gs.pm	1389	1481	
==>compile-time-bound values for them.
It includes the parameters as well as anything declared w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5676	5764	
==>users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normali <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5676	5764	
==>users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normali <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	930	1058	
==>X::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented *** <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	930	1058	
==>X::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented *** <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	930	1058	
==>X::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented *** <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16380	16527	
==>t reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *sub <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20806	20953	
==>t reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4926	5044	
==>es(package => $pkg) ) {
        unless (-e $index) {
            # create the directory an index file lives in (ignores <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1140	1256	
==>) . "\n" . ("    " x ($indent-1)) . ")";
	} else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	426	541	
==>$libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	426	541	
==>$libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6400	6538	
==>e {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_b <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6458	6596	
==>e {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	399	528	
==>>{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = delete $para <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2122	2232	
==>s Live CD.
It fetches kernel and GRUB from a public server (which can be specified below).
Then, it creates a i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3059	3161	
==>n object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3059	3161	
==>n object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $sp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	69	175	
==>ule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	62	162	
==>ule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	62	162	
==>ule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5806	5929	
==>ch->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5622	5742	
==>ch->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18867	18954	
==>nditionalExpressionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <Assignment <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	348	451	
==>ompatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	348	451	
==>ompatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	348	451	
==>ompatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'default' para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2484	2603	
==>t(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2484	2603	
==>t(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2484	2603	
==>t(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method value <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28147	28242	
==>alues of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringifi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28147	28242	
==>alues of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringifi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	222	309	
==>gs::Compiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statement <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7098	7201	
==>ge") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

method user_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7098	7201	
==>ge") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

method user_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	334	433	
==>s Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	334	433	
==>s Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13628	13812	
==>>params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13628	13812	
==>>params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13628	13812	
==>>params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_descript <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5364	5502	
==>ntinue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5364	5502	
==>ntinue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9347	9480	
==>!!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9347	9480	
==>!!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8303	8406	
==>f "\\%s{%s}", $self->{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser::clump;
  push @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12340	12431	
==>tribute (that attribute defaults to empty if the parameter's
corresponding argument is undef <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12340	12431	
==>tribute (that attribute defaults to empty if the parameter's
corresponding argument is undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	771	895	
==>pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	771	895	
==>pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	771	895	
==>pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $s <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2345	2455	
==>req->{$_->[0]} for @{$self->bundles};
    }

    if (my $perl_version = $self->perl_version) {
        eval "us <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	599	693	
==>he 
Cipher API> for general information.

=head2 Constructor options

With no options, Cipher:: <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	599	693	
==>he 
Cipher API> for general information.

=head2 Constructor options

With no options, Cipher:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	603	759	
==>=> sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'rep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	603	759	
==>=> sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'rep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	603	759	
==>=> sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'rep <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	754	855	
==>rn the result.
  # The session's event handler won't be executed until @:events[0] =:= the
  # callbac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4670	4776	
==>UB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4670	4776	
==>UB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4670	4776	
==>UB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26098	26198	
==>urs.

Matching against the regex is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13121	13213	
==>.

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representative fo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13121	13213	
==>.

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representative fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	311	422	
==>VIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	311	422	
==>VIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	311	422	
==>VIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::nam <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4530	4674	
==>x { #TODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6820	6948	
==>t;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6820	6948	
==>t;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9408	9576	
==>ference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12885	13053	
==>ference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24988	25087	
==>dinal value.

Note that it is valid for a Relation::Example to have zero tuples.  It is also valid
f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14334	14447	
==>self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14334	14447	
==>self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14334	14447	
==>self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4588	4703	
==>( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8065	8180	
==>( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7058	7173	
==>( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12065	12190	
==>ative;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12065	12190	
==>ative;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12065	12190	
==>ative;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4620	4738	
==>sif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4620	4738	
==>sif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6629	6730	
==>e { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6629	6730	
==>e { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6629	6730	
==>e { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1782	1916	
==>nction () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1782	1916	
==>nction () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1782	1916	
==>nction () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        fu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19357	19456	
==>ram, so that if you wanted to upgrade or localize what text the user
sees, you only have to update s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19357	19456	
==>ram, so that if you wanted to upgrade or localize what text the user
sees, you only have to update s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10052	10199	
==>t            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10052	10199	
==>t            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	397	507	
==>>' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], signature => $_[2], } } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3489	3601	
==>p>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1655	1744	
==>h Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int|Real $iso860 <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3514	3602	
==>h Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int|Real $iso860 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22538	22635	
==>x1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22538	22635	
==>x1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22538	22635	
==>x1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	657	761	
==>hat the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The U <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	625	722	
==>hat the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The U <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10391	10486	
==>ds.keys;
}

(method get_method_list ((opaque $self:)) returns list
    ((($self: get_attr (symbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3717	3866	
==>]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3717	3866	
==>]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3717	3866	
==>]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and MMD to be done wi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40680	40774	
==>re
details.

While it is by no means required, the copyright holders of
Locale::KeyedText would <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40680	40774	
==>re
details.

While it is by no means required, the copyright holders of
Locale::KeyedText would <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2945	3052	
==>dget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-or <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2945	3052	
==>dget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-or <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5029	5134	
==>nd !$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Regexp::Parser::{$type . '::'};
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1853	1953	
==>rs > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1853	1953	
==>rs > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1853	1953	
==>rs > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	230	358	
==>::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $p6 = Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1794	1907	
==>sons,

# because they are too frequent and they are too slow using the basic 

# rule parser



sub code {

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1722	1830	
==>sons,
# because they are too frequent and they are too slow using the basic 
# rule parser

sub code {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11412	11533	
==>>{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11412	11533	
==>>{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11412	11533	
==>>{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10707	10806	
==>g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$un <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10707	10806	
==>g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36654	36751	
==>y each of any duplicated tuples.

=item C<exclusion (Relation::Example $other!) returns Relation:: <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	494	616	
==>go cperl-mode ;))

our $iso8601_dur_re = rx:perl5:ix/\s*
        P \s*
        (?: (\d+) \s* Y )? \s*
        (?: (\d+) \s* <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1748	1863	
==>$self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method proto <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1748	1863	
==>$self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method proto <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6221	6461	
==>hort circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No packa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6685	6925	
==>hort circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No packa <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	612	702	
==>:abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::abs_path($FindBin::Bin)]}
*** Please re <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	322	418	
==>de.compare is incomplete
    * Constructors should emit error messages if there are unknown param <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	322	418	
==>de.compare is incomplete
    * Constructors should emit error messages if there are unknown param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9804	9890	
==>oo->test_iFoo_singleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still go <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	720	811	
==>umper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_leve <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	720	811	
==>umper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_leve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2216	2319	
==>sh - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2216	2319	
==>sh - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2216	2319	
==>sh - cleanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	165	294	
==>N || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	165	294	
==>N || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	165	294	
==>N || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12659	12825	
==>y->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Tr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12659	12825	
==>y->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Tr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12659	12825	
==>y->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3180	3310	
==>ss eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3180	3310	
==>ss eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3180	3310	
==>ss eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8739	8843	
==>sly, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8449	8550	
==>sly, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24670	24764	
==>ributes may store values of the same class;
every Relation::Example tuple must be distinct from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3755	3842	
==>html1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3755	3842	
==>html1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3755	3842	
==>html1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3507	3665	
==>spatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3507	3665	
==>spatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3507	3665	
==>spatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	404	514	
==>nd ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	404	514	
==>nd ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	404	514	
==>nd ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11029	11119	
==>--------------------------------------------------------------------

What if Roles could p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11029	11119	
==>--------------------------------------------------------------------

What if Roles could p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11029	11119	
==>--------------------------------------------------------------------

What if Roles could p <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	62	154	
==>.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	62	154	
==>.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2251	2382	
==>f $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2251	2382	
==>f $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2251	2382	
==>f $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	744	851	
==>eimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	744	851	
==>eimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	744	851	
==>eimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9302	9415	
==>ure does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9302	9415	
==>ure does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9302	9415	
==>ure does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_par <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4978	5089	
==>]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LVa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4978	5089	
==>]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LVa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1882	1993	
==>]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10639	10747	
==>--------------------------------

    method add_method;
    method get_method;
    method has_method;
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10639	10747	
==>--------------------------------

    method add_method;
    method get_method;
    method has_method;
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10639	10747	
==>--------------------------------

    method add_method;
    method get_method;
    method has_method;
    me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3202	3359	
==>ind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3202	3359	
==>ind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3202	3359	
==>ind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2172	2265	
==>elf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2172	2265	
==>elf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2172	2265	
==>elf:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1724	1841	
==>:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20287	20384	
==>o study.  As a result, while it performs correctly
and reliably, it also performs quite slowly; yo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20287	20384	
==>o study.  As a result, while it performs correctly
and reliably, it also performs quite slowly; yo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20349	20460	
==>a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $file";
    undef;
  }
  else {
    my $cmd = %?CONFIG<perl5path <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1508	1613	
==>tional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since th <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1508	1613	
==>tional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since th <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	119	216	
==>e compiled and
# applied) to permit alternate regexp engines to be used without
# requiring change <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18359	18451	
==>ures
such as system-managed locks so that resource corruption or application
failure is preve <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18359	18451	
==>ures
such as system-managed locks so that resource corruption or application
failure is preve <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6447	6543	
==>ich will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6447	6543	
==>ich will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2838	3004	
==>w('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:</>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            P <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3659	3792	
==>thname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $basename =~ s!.*/!!;

        # XXX - w <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14142	14245	
==>lf->params;

    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25624	25719	
==>> value is a reference, and thus why I'm using
C<${&Rx}> everywhere, it's because an lvalued sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1581	1717	
==>ay();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1581	1717	
==>ay();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1581	1717	
==>ay();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = per <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14191	14285	
==>ethod nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14191	14285	
==>ethod nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enque <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2270	2361	
==>./util/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml harness: $!";
sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11742	11992	
==>ate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11742	11992	
==>ate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11742	11992	
==>ate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1936	2064	
==>);
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1936	2064	
==>);
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1936	2064	
==>);
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1954	2052	
==>rns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - mul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1954	2052	
==>rns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - mul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1954	2052	
==>rns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6763	6865	
==>he version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6763	6865	
==>he version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6763	6865	
==>he version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($self => '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	671	798	
==>user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	671	798	
==>user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	671	798	
==>user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6637	6748	
==>B postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fet <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6637	6748	
==>B postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fet <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6637	6748	
==>B postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10621	10767	
==>e));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10621	10767	
==>e));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10621	10767	
==>e));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	384	487	
==>, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	384	487	
==>, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	384	487	
==>, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	975	1072	
==>rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$self-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	975	1072	
==>rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2778	2894	
==>$self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"} <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	953	1068	
==>$self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4578	4685	
==>ore => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->la <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5063	5170	
==>ore => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->la <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	539	657	
==>: "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFL <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25575	25680	
==>erator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1030	1127	
==>ub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations are <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1030	1127	
==>ub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4966	5071	
==>source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4966	5071	
==>source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4966	5071	
==>source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($method));
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	33	144	
==>2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	33	144	
==>2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	33	144	
==>2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3486	3592	
==>=> $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3486	3592	
==>=> $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3486	3592	
==>=> $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstS <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13103	13225	
==>ertyName> <':'> <AssignmentExpression>
    | <PropertyNameAndValueList> <','> <PropertyName> <':'> <AssignmentExpression>
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15273	15398	
==>ps}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15273	15398	
==>ps}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15273	15398	
==>ps}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	241	375	
==>$type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	241	375	
==>$type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	241	375	
==>$type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::al <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11891	12020	
==>igit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11885	12014	
==>igit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) { <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1256	1377	
==>[$_] eq ~$next.[$_];
    }
    
    return $value.($next, $u), tail($input);
  };
}

## Chapter 8 section 3.2

sub concate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5642	5784	
==>apitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5642	5784	
==>apitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5642	5784	
==>apitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5587	5697	
==>XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5587	5697	
==>XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5587	5697	
==>XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2437	2559	
==>ake encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @oc <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2437	2559	
==>ake encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @oc <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	572	689	
==>ub collect_arguments ([ $args, *@args ]) {
            my $normalizer = $arg but $.normalizer_role;
            return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7362	7452	
==>ar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statemen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1187	1277	
==>ar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7334	7445	
==>h_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7334	7445	
==>h_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7334	7445	
==>h_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14164	14267	
==>ew( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14164	14267	
==>ew( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6707	6834	
==>$version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6707	6834	
==>$version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6707	6834	
==>$version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1712	1891	
==>::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1712	1891	
==>::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6117	6241	
==>erator->emit_yapp;
    #print $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local variable '$out' inside the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7166	7272	
==>er("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7166	7272	
==>er("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	76	200	
==>kage';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	81	204	
==>kage';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	79	202	
==>kage';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1836	1950	
==>tart_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Element <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1836	1950	
==>tart_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Element <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9954	10058	
==>pan0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9954	10058	
==>pan0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # retur <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27725	27821	
==>(which results in a
somewhat messy output).

=item C<HARNESS_PERL>

Usually your tests will be ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2497	2614	
==>+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2497	2614	
==>+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2497	2614	
==>+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub ev <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9573	9722	
==>);

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	253	350	
==>l {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5559	5688	
==>on_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5559	5688	
==>on_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5559	5688	
==>on_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1193	1290	
==>%mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1193	1290	
==>%mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1193	1290	
==>%mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Wa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8455	8545	
==>ar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @state <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2280	2370	
==>ar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @state <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2530	2621	
==>label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2530	2621	
==>label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2530	2621	
==>label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6:: <==
3	/Users/nnunley/pugs/t/packages/Test.pm	280	422	
==>();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my package My::Package {
        sub pkg { $?PACKAGE }
    }

}

sub du <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6994	7096	
==>call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6994	7096	
==>call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	614	726	
==>r = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with dupli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	614	726	
==>r = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with dupli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	614	726	
==>r = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with dupli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14791	14882	
==>$xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14791	14882	
==>$xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14791	14882	
==>$xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10909	11013	
==>rl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10909	11013	
==>rl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10909	11013	
==>rl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $k <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10487	10630	
==>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10487	10630	
==>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	698	815	
==>', $self->{source}, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $self->{sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4002	4124	
==>ef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4002	4124	
==>ef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4002	4124	
==>ef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unles <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5507	5655	
==>bove section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be abl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5971	6119	
==>bove section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be abl <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1009	1118	
==>ss, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22281	22377	
==>()
method not to actually create any objects.  Afterwards, it is an array
reference of (node) obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39850	39961	
==>t, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39850	39961	
==>t, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39850	39961	
==>t, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	5	117	
==>v6;

# this is a super-class for Arrays, Hashes, Sets and other collections
# like Bags, ordered hashes and so on <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30220	30314	
==>respond
to Message Variables, which will be substituted at run-time before the text
is shown to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30220	30314	
==>respond
to Message Variables, which will be substituted at run-time before the text
is shown to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12744	12839	
==>nd error messages.  Their values are all
negative; positive values are left available for extens <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1913	2004	
==>IL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1913	2004	
==>IL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16420	16530	
==>x) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16420	16530	
==>x) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16420	16530	
==>x) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6850	6961	
==>fault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6850	6961	
==>fault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6850	6961	
==>fault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	205	308	
==>-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   Thes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	205	308	
==>-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   Thes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	205	308	
==>-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   Thes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5837	5953	
==>urn unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5837	5953	
==>urn unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4110	4199	
==>tified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantified_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38336	38449	
==>> ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38336	38449	
==>> ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38336	38449	
==>> ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub reverse {
    m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1959	2138	
==>:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tree.new(:node<Socket>),
                        Tre <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3873	4037	
==>his one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4337	4501	
==>his one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9259	9419	
==>(
        map {
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	503	621	
==>/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $stri <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	503	621	
==>/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $stri <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	627	753	
==>hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DE <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	627	753	
==>hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DE <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1867	1956	
==><$POE::Kernel>

=head2 C<post(POE::Session $session, Str $event, *@args)>

Calls C<$sessio <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	558	673	
==>ues { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $class;
	}

	sub AUTOL <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3334	3439	
==>ogether, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $bas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3334	3439	
==>ogether, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $bas <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3072	3201	
==>ode<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree.new(:node<Scalar::Lazy>) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7687	7772	
==>is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok & <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7745	7830	
==>is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1695	1841	
==>r (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (ke <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1695	1841	
==>r (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (ke <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1695	1841	
==>r (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (ke <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5674	5817	
==>gx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5674	5817	
==>gx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5340	5446	
==>n_type = $node->type->[-1]->type;
		
		my @children = $child->values;
		my @params;
		my @exps;

		$self->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1145	1265	
==>elf->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1145	1265	
==>elf->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1145	1265	
==>elf->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('curre <==
3	/Users/nnunley/pugs/util/package-osx.pl	1166	1275	
==>an3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/lib/libreadline.a
        /usr/local/l <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10703	10802	
==>rl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10703	10802	
==>rl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7038	7140	
==>\\012 illegal, use $1, \\o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No di <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15189	15287	
==>ing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The followi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15189	15287	
==>ing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The followi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2272	2379	
==>,  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2272	2379	
==>,  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2272	2379	
==>,  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13086	13206	
==>some forms of redefinition
  make its magic not stick.

  The implementation is at best an XS-based module (currently Inl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	832	944	
==>) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	832	944	
==>) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	925	1017	
==>y = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	925	1017	
==>y = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	925	1017	
==>y = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	188	298	
==>c = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	188	298	
==>c = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	188	298	
==>c = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1842	1996	
==>dy!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1842	1996	
==>dy!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1842	1996	
==>dy!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32522	32719	
==>ngth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32522	32719	
==>ngth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32522	32719	
==>ngth >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18629	18729	
==>f these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18629	18729	
==>f these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3763	3867	
==>th == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3763	3867	
==>th == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3763	3867	
==>th == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1092	1201	
==>y implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1092	1201	
==>y implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1092	1201	
==>y implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, In <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20328	20450	
==>old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->err <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16749	16871	
==>old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->err <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38206	38312	
==>kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3687	3800	
==>b fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5589	5702	
==>b fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $de <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19868	19976	
==>pp_to_str,
	param => $id,
);

# we can't get app_to_str to apply something of a bad type to a str
my $app_plu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2476	2593	
==>ional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primitive is <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2589	2697	
==>] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2589	2697	
==>] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3214	3403	
==>path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # x <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3214	3403	
==>path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # x <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4819	4907	
==>'Str',@_)}
sub p6_Ref {p6_new('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5793	5889	
==>reate ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5793	5889	
==>reate ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5793	5889	
==>reate ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6322	6468	
==>)(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6322	6468	
==>)(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3876	4000	
==>e};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<precompiled>';\n\n";
        # (the need f <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6768	6897	
==>onal'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramN <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6768	6897	
==>onal'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramN <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3667	3796	
==>onal'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramN <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4935	5054	
==>e we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is n <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4935	5054	
==>e we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is n <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	108	216	
==>.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "htt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	194	296	
==>eded because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACRO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	194	296	
==>eded because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACRO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	194	296	
==>eded because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28850	29017	
==>alue::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28850	29017	
==>alue::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28850	29017	
==>alue::numify( $self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unbox <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6468	6580	
==>test scripts which failed.  Each key
is the name of a test script, each value is another hash representing
how th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5869	5983	
==>t;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5869	5983	
==>t;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5869	5983	
==>t;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings);
  }
}

1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1289	1388	
==>ng the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1289	1388	
==>ng the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6635	6727	
==>d_indexes($_, $index->{_dirs}->{$_});
}


# Generating error.html
my $error_file = catfile($o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1570	1707	
==>alue('@:slots')->[$idx] = $container;
            },

            'array_fetchVal' => sub { # $idx -> $value
                my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1356	1454	
==>ub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1356	1454	
==>ub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8204	8305	
==>st::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8262	8363	
==>st::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2984	3079	
==>= $self->{admin} or die << "END";
The '$method' method does not exist in the '$self->{prefix}' p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	374	471	
==>d performance reality check")
# spike has succeeded.  The most of the re_tests are passing.  While <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9327	9452	
==>hat role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # -------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9327	9452	
==>hat role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # -------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9327	9452	
==>hat role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # -------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7703	7832	
==>ss $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     if !defined $ra->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	737	852	
==>urns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	737	852	
==>urns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1426	1573	
==>structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1426	1573	
==>structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1426	1573	
==>structure
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3892	3989	
==>Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3892	3989	
==>Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3892	3989	
==>Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssio <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1100	1231	
==>sults
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1100	1231	
==>sults
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1271	1383	
==>o{use Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $self->{code} = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3934	4058	
==>}\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3922	4046	
==>}\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7274	7379	
==>less_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9959	10147	
==>or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $me <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11436	11624	
==>or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $me <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15984	16085	
==>out!".  Places the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $li <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2441	2561	
==>mented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2625	2745	
==>mented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2382	2478	
==>t's best to work with those limitations and 
still produce a working version of File::Spec for us <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2382	2478	
==>t's best to work with those limitations and 
still produce a working version of File::Spec for us <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	693	780	
==>ll Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/syn <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	693	780	
==>ll Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/syn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5565	5683	
==>er, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5565	5683	
==>er, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5565	5683	
==>er, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28907	29023	
==>OODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28907	29023	
==>OODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	270	378	
==>OODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2207	2345	
==>b {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2207	2345	
==>b {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2207	2345	
==>b {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2188	2288	
==>first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subrou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2188	2288	
==>first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subrou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2188	2288	
==>first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subrou <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3205	3307	
==>descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3205	3307	
==>descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9297	9392	
==>b { 
   '$iFoo::test_iFoo_singleton_method' 
});

is($iFoo->test_iFoo_singleton_method(), 
   '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	322	439	
==>ef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	322	439	
==>ef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	322	439	
==>ef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	16	122	
==>-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $co <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	16	122	
==>-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28801	28893	
==>of the invocant.

=item C<not_equal (Relation::Example $other!) returns Bool>

This method re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3420	3528	
==>l5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS." <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3420	3528	
==>l5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS." <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3420	3528	
==>l5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS." <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	403	512	
==>xception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	403	512	
==>xception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	403	512	
==>xception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9121	9227	
==>unction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9121	9227	
==>unction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9121	9227	
==>unction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12085	12188	
==>rop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMP <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4728	4831	
==>rop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMP <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32809	32906	
==>m C<unwrap ( Set of Str $attrs! ) returns Relation::Example>

I<TODO.  This method has not yet bee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2075	2168	
==>:Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2075	2168	
==>:Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2075	2168	
==>:Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17270	17367	
==>TION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17270	17367	
==>TION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17270	17367	
==>TION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3736	3872	
==>atch = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3736	3872	
==>atch = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3736	3872	
==>atch = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16260	16374	
==>efined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my <==
3	/Users/nnunley/pugs/util/combine_tests.pl	564	669	
==>_revisions[] is added with revision number of the older versions.
#
sub combine_tests{
    #
    # Collect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21751	21941	
==>def;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21751	21941	
==>def;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21751	21941	
==>def;
                    push @classes => $subclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @cla <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	389	491	
==>rns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	389	491	
==>rns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2761	2860	
==>iming}{duration} =
        $self->{_timing}{end} - $self->{_timing}{start};
    DumpFile($Config{"ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23396	23531	
==>eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23396	23531	
==>eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23396	23531	
==>eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scala <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7146	7292	
==>losure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7146	7292	
==>losure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3803	3921	
==>eOps::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $data = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11951	12075	
==>rn $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11951	12075	
==>rn $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11951	12075	
==>rn $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1464	1599	
==>';

    package Sym;
    use base 'Unit';

    package Param;
    use base 'Unit';

    package App;
    use base 'Node';

    package V <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3122	3223	
==>the directories the resulting relative path
    # must ascend out of before it can descend to $path_di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3122	3223	
==>the directories the resulting relative path
    # must ascend out of before it can descend to $path_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	83	189	
==>to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	83	189	
==>to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	83	189	
==>to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args) <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6960	7087	
==>Body"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6506	6601	
==>elf.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6506	6601	
==>elf.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	102	198	
==>This file contains p5 runtime primitives which are written in p6.
Most will eventually be impleme <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	102	198	
==>This file contains p5 runtime primitives which are written in p6.
Most will eventually be impleme <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	102	198	
==>This file contains p5 runtime primitives which are written in p6.
Most will eventually be impleme <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17529	17660	
==>me)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type gramm <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	478	586	
==>';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's bot <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	478	586	
==>';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's bot <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4385	4490	
==>/A001113
}

 multi method Array::delete (@array ; *@indices --> List )
 { ... } # XXX


 multi method Arra <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1183	1283	
==>ompile;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13938	14055	
==>hile $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13938	14055	
==>hile $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13938	14055	
==>hile $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	271	399	
==>ns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	271	399	
==>ns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32304	32414	
==>ation of this object.

=item type

The specific type of this object.

=item up

Whether this object goes into a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2941	3054	
==>or_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($expla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2941	3054	
==>or_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($expla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4465	4578	
==>or_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($expla <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3257	3352	
==>? }

rule null_term  { \< null \> }

rule assertion  { <assert_bos>|<assert_eos>|<assert_bol>|<a <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11385	11477	
==>nicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11385	11477	
==>nicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4159	4274	
==>efined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4159	4274	
==>efined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4159	4274	
==>efined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	29	149	
==>ovides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	29	149	
==>ovides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	29	149	
==>ovides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1025	1122	
==>t's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1025	1122	
==>t's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1025	1122	
==>t's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2205	2297	
==>r) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2205	2297	
==>r) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2205	2297	
==>r) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9991	10094	
==>l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'L <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9991	10094	
==>l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'L <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14903	15030	
==>ed_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18380	18507	
==>ed_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17796	17923	
==>ed_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10237	10413	
==>ssed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              description => $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	787	953	
==>ssed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	787	953	
==>ssed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            description => $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16202	16299	
==>nts into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  st <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20628	20725	
==>nts into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8526	8621	
==>->parse;

This is not necessary, though, because the following methods will
invoke parse() if th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	488	600	
==>ide of this function
      // and refer to it via the closure, then things don\'t work right
      // --the order <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	488	600	
==>ide of this function
      // and refer to it via the closure, then things don\'t work right
      // --the order <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	488	600	
==>ide of this function
      // and refer to it via the closure, then things don\'t work right
      // --the order <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1201	1299	
==>of the test results difficult for anything but a human.  To
make it easier for programs to work wit <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2201	2296	
==>postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity f <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2201	2296	
==>postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11816	11910	
==>at define the recurrences are exactly the same.

This method tests the closures identities usin <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11816	11910	
==>at define the recurrences are exactly the same.

This method tests the closures identities usin <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15447	15564	
==>eturn $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    $self->enter_scope;
    my $node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	123	223	
==>- Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSIO <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	123	223	
==>- Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSIO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15685	15791	
==>inyan)

Produces a human-readable explanation of the execution of a regex.  Will
be able to produce HTML ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9988	10165	
==>tr => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9988	10165	
==>tr => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9988	10165	
==>tr => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11912	12098	
==>, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11912	12098	
==>, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            } <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16414	16543	
==>t)){
        $val->set($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk")) {
            $builtin = $self->re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3455	3557	
==>0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3455	3557	
==>0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	313	405	
==>ile::Spec::Functions ':ALL';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9152	9260	
==>=> ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9152	9260	
==>=> ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9152	9260	
==>=> ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2937	3047	
==>= "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2937	3047	
==>= "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2937	3047	
==>= "$decl;\n$name;\n";

    # Special magic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21491	21619	
==>lock = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21770	21898	
==>lock = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3134	3258	
==>use of an icky pugsbug.
    #my %idx = <package file line subname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7159	7303	
==>d or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7159	7303	
==>d or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7159	7303	
==>d or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_method($meth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3269	3524	
==>} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3141	3386	
==>} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2587	2699	
==>) && $arg->isa($param_type))
                || confess "got the wrong type for " . $param->to_str->to_native . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5430	5581	
==>art, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5430	5581	
==>art, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5430	5581	
==>art, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4362	4472	
==>ious }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4362	4472	
==>ious }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1706	1803	
==>er} } @{$self->{levels}[$_]} ) {
            $relative_precedences{$opt->{precedence}}->($self, $_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1746	1903	
==>./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1746	1903	
==>./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30712	30805	
==>ired by Larry Wall's TEST script that came
with perl distributions for ages. Numerous anonymou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	122	235	
==>:Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$k <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	158	257	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	158	257	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	158	257	
==>:inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10944	11101	
==>},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10944	11101	
==>},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10944	11101	
==>},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16500	16618	
==>e; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15556	15666	
==>e; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15584	15687	
==>ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $Verbose;

    return($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12361	12455	
==>t hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12361	12455	
==>t hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12361	12455	
==>t hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@id <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1816	1914	
==>he ciphertext version.  Most 
algorithms will have a key, which will be specified in the options; c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1816	1914	
==>he ciphertext version.  Most 
algorithms will have a key, which will be specified in the options; c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2854	2979	
==>us::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2854	2979	
==>us::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	275	370	
==>lf->can("reduce_" . $node->moniker))) {
		return $self->$meth($node);
	} else {
		return $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1248	1365	
==>err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1248	1365	
==>err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1248	1365	
==>err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exp <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	253	391	
==>ME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my S <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	253	391	
==>ME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	178	283	
==>pr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	178	283	
==>pr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	178	283	
==>pr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9851	9970	
==>.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9851	9970	
==>.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9851	9970	
==>.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25871	26074	
==>e::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25871	26074	
==>e::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25871	26074	
==>e::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > 0 ) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6841	7037	
==>ch;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $new <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6841	7037	
==>ch;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9979	10125	
==>rgs = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
    #- this allows, for example, to set PERL_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8510	8640	
==>shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $cou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8510	8640	
==>shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $cou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8510	8640	
==>shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13309	13575	
==>ams[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13309	13575	
==>ams[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13309	13575	
==>ams[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    el <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2870	2991	
==>Lit"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21194	21292	
==>es.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each M <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25746	25844	
==>es.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1394	1495	
==>am->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1394	1495	
==>am->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1603	1704	
==>am->is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1812	1937	
==>ub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1812	1937	
==>ub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1812	1937	
==>ub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	462	571	
==>g a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	462	571	
==>g a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	462	571	
==>g a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3169	3271	
==>isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3169	3271	
==>isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3169	3271	
==>isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	842	978	
==>sors( qw[installations] );
    
    $obj->installations( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14296	14396	
==>L DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hiera <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14296	14396	
==>L DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hiera <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2427	2544	
==>Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2427	2544	
==>Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2427	2544	
==>Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2699	2813	
==>elf: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2699	2813	
==>elf: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4983	5083	
==>e::Completion {
   submethod BUILD { $.type = JSX::InternalValue::Completion_type.new(); }
   has $.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1836	1961	
==>ect)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1836	1961	
==>ect)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1836	1961	
==>ect)
#    type         (default: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6947	7075	
==>}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	261	353	
==>::TypeSafe;
use Set::Object ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinder;
	u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	41	132	
==>::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	41	132	
==>::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7303	7392	
==>s, which delegate. see below)
multi unify => ( 'type::variable::free', any(qw/type::variab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	14	126	
==>kage PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	14	126	
==>kage PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	14	126	
==>kage PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$sel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1505	1623	
==>cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1505	1623	
==>cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1405	1512	
==>ndled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13285	13395	
==>t;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^`` <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13285	13395	
==>t;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^`` <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1686	1786	
==>ted, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1744	1844	
==>ted, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10300	10391	
==>ularExpressionFirstChar> <RegularExpressionChars>
}
rule RegularExpressionChars {  # see 7.8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2562	2661	
==>of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2562	2661	
==>of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2562	2661	
==>of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junc <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	492	605	
==>line 49

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2346	2456	
==>ined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2346	2456	
==>ined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9038	9175	
==>{
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9038	9175	
==>{
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9038	9175	
==>{
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18363	18468	
==>ler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18363	18468	
==>ler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11727	11827	
==>ch does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Becau <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11727	11827	
==>ch does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Becau <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11727	11827	
==>ch does Role too. So this means that all classes
and roles can be polymorphic to one another. 

Becau <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2094	2212	
==>(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2094	2212	
==>(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2094	2212	
==>(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14793	14905	
==>anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14793	14905	
==>anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14793	14905	
==>anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MR <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5767	5886	
==>_for_var_CODE($_)}@vars).')';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3631	3735	
==>an}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<obj <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3631	3735	
==>an}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<obj <==
3	/Users/nnunley/pugs/util/testgraph.pl	327	424	
==>{help};

my $yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn't o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5686	5786	
==>./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5686	5786	
==>./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5686	5786	
==>./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1825	1956	
==>n->{array};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_q <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4069	4166	
==>::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4069	4166	
==>::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5749	5981	
==>= $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yiel <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5749	5981	
==>= $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yiel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	709	819	
==>()->cc_lib_links(@_);
}

sub optimize_flags {
	warn "optimize_flags has been changed to cc_optimize_flags for c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3867	3982	
==>e>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3867	3982	
==>e>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3867	3982	
==>e>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6757	6855	
==>Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6757	6855	
==>Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6757	6855	
==>Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	880	993	
==>ring.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Stan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	880	993	
==>ring.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Stan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	880	993	
==>ring.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Stan <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17870	17965	
==>hs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14291	14386	
==>hs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3975	4063	
==>);

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Test::Skip' => <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5283	5414	
==>@!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            par <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5283	5414	
==>@!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2646	2770	
==>d 
    ((= $method NIL)
     (= $current (&dispatcher do))
     (while (($current is_not_nil) and ($method is_nil))
        ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	167	276	
==>s?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	167	276	
==>s?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	167	276	
==>s?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3233	3340	
==>or &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3233	3340	
==>or &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3233	3340	
==>or &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7660	7763	
==>nodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7660	7763	
==>nodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7660	7763	
==>nodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5989	6113	
==>) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    r <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5989	6113	
==>) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3645	3740	
==>on lacks the actual algorithm description. See links or read
the source (there are about 10 line <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3645	3740	
==>on lacks the actual algorithm description. See links or read
the source (there are about 10 line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3336	3443	
==>X COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3336	3443	
==>X COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3336	3443	
==>X COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6307	6409	
==>ithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6307	6409	
==>ithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6307	6409	
==>ithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3280	3387	
==>ew if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3280	3387	
==>ew if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3280	3387	
==>ew if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1173	1342	
==>y $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # aut <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	456	625	
==>y $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # aut <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4418	4572	
==>m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4418	4572	
==>m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5682	5798	
==>j) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5682	5798	
==>j) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5682	5798	
==>j) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1479	1621	
==>spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1479	1621	
==>spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1479	1621	
==>spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	602	720	
==>== 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	602	720	
==>== 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	602	720	
==>== 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2804	2921	
==>::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2804	2921	
==>::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4328	4445	
==>::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_out <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3967	4099	
==>uce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		B <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	299	414	
==>ls:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- impl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	281	392	
==>ls:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- impl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7873	8019	
==>me};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11872	12014	
==>me};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11872	12014	
==>me};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21549	21650	
==>bstr     substrs->data[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	975	1075	
==>es of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	975	1075	
==>es of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	311	423	
==>IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	311	423	
==>IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	311	423	
==>IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $re <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	489	592	
==>ess ONLY!>

=head1 FUNCTIONS

=head2 C<assert()>

  assert( EXPR, $name );

If the expression is false t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17525	17617	
==>he balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17525	17617	
==>he balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4492	4604	
==>ame goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4492	4604	
==>ame goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4492	4604	
==>ame goes for Class too, this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	791	902	
==>h { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	791	902	
==>h { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	791	902	
==>h { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_st <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	706	821	
==>when 'new'   {
        print template( "wiki.tmpl", topic => '', entry => '', entry_html => '');
    }
    when 'edi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12861	12973	
==>uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ($str) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12861	12973	
==>uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ($str) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14938	15040	
==>, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span wit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14938	15040	
==>, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3034	3207	
==>es([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3034	3207	
==>es([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3034	3207	
==>es([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_ins <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1395	1500	
==>) . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1395	1500	
==>) . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10344	10446	
==>me = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] negate( sub{ $name(\@_) } )\n";
}
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2134	2244	
==>TH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2134	2244	
==>TH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2134	2244	
==>TH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	546	688	
==>e {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	546	688	
==>e {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	546	688	
==>e {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	879	981	
==>ckage PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	879	981	
==>ckage PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	879	981	
==>ckage PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3675	3785	
==>ot defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3675	3785	
==>ot defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3675	3785	
==>ot defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12576	12699	
==>_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12576	12699	
==>_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12576	12699	
==>_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28265	28387	
==>h::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28544	28666	
==>h::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	437	547	
==>s;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includes($node)) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15566	15661	
==>ing access to information details, or their technical
skills.  For example, a native French or C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15566	15661	
==>ing access to information details, or their technical
skills.  For example, a native French or C <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9525	9713	
==>say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	528	633	
==>:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	539	644	
==>:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $cod <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17838	17948	
==>dex 

Needs to be in terms of StrPos, not Int.

=item pack

=item pos

=item quotemeta

=item rindex 

Needs to <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3181	3288	
==>dmin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5387	5494	
==>dmin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2749	2861	
==>say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2749	2861	
==>say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2749	2861	
==>say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5737	5836	
==>'=('.join(",",map{p6_container_for_var_CODE($_)}@vars).')';
    my $decl = "";

    my $sn = $pScope <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21137	21228	
==>QL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most promina <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21137	21228	
==>QL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most promina <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	864	976	
==>*no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	864	976	
==>*no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	864	976	
==>*no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(funct <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3888	3997	
==>( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7365	7474	
==>( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6331	6440	
==>( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	433	598	
==>mar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
    war <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10628	10725	
==>urrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10628	10725	
==>urrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	496	620	
==>is is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	496	620	
==>is is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	496	620	
==>is is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8448	8565	
==>ta);
    my $len = length($s);
    if($o->{'flags'} & $o->flag_val_i) {
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1219	1322	
==>agment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whites <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1219	1322	
==>agment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whites <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6132	6229	
==>st Context

All headers are returned split into the respective
lines.

=item Hash Context (if it e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6132	6229	
==>st Context

All headers are returned split into the respective
lines.

=item Hash Context (if it e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32576	32673	
==>e N-ary version of the aforementioned binary union()
operator, and the order of its arguments is n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37126	37223	
==>e N-ary version of the aforementioned binary union()
operator, and the order of its arguments is n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36434	36531	
==>e N-ary version of the aforementioned binary union()
operator, and the order of its arguments is n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4463	4561	
==>ly creates and returns a new Test::Builder instance.  It
takes the same optional named arguments as <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4463	4561	
==>ly creates and returns a new Test::Builder instance.  It
takes the same optional named arguments as <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5987	6085	
==>ly creates and returns a new Test::Builder instance.  It
takes the same optional named arguments as <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27310	27423	
==>lf, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29816	29977	
==>sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29816	29977	
==>sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29816	29977	
==>sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1053	1195	
==>'}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1053	1195	
==>'}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1053	1195	
==>'}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3379	3540	
==>h';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3379	3540	
==>h';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3379	3540	
==>h';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1790	1894	
==>»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1790	1894	
==>»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1790	1894	
==>»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2077	2171	
==>Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2077	2171	
==>Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2077	2171	
==>Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f>})") <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10989	11142	
==>$discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10989	11142	
==>$discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22604	22713	
==>.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this module doesn't have bugs.  I don't k <==
3	/Users/nnunley/pugs/util/importgraph.pl	2745	2852	
==>dules{$k}; # only pugs modules
    my $color = $edge->[1] ? 'green' : $edge->[0] ? "blue" : "black";
    $g- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2577	2667	
==>et_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2577	2667	
==>et_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3052	3170	
==>/= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3052	3170	
==>/= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2509	2624	
==>pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2509	2624	
==>pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19261	19376	
==>eps_2:
    $I0 = pad["subpats"]
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    self[0] = exp0

    $I1 = pad[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1239	1410	
==>ield = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1239	1410	
==>ield = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif ( <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	106	209	
==>/graph.png   --or
#        svn log > /tmp/log; util/svnlog2graph /tmp/log > /tmp/graph.png

use warnings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5619	5787	
==>has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5619	5787	
==>has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5619	5787	
==>has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to impleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6766	6884	
==>SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6766	6884	
==>SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6766	6884	
==>SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      p <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7632	7787	
==>=~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7689	7844	
==>=~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	391	515	
==>t($script_file) ) {
        last unless $line =~ /^#/;
        $prompt = $1   if $line =~ /^#\s*prompt:\s+(.*)/;
        $def <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4095	4230	
==>, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4095	4230	
==>, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1283	1416	
==>y $fh, $file or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not loa <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	698	799	
==>UILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	698	799	
==>UILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2794	2912	
==>Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2794	2912	
==>Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2794	2912	
==>Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15983	16223	
==>new($e, sub {
                    my $e = shift;
                    $e->get('$c')
                      ->send('get_attributes')
                      ->apply(
                          block->new($e, sub {
                                m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5959	6064	
==>s Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5959	6064	
==>s Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1044	1200	
==>1], $_[2], $_[3] ] }
        |   '(' exp ')'         { $out= $_[2] }
;

list_left:  exp                 { $out= [ $_[1] ] }
        |   list_left ',' ex <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16841	16973	
==>s primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::ro <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14485	14575	
==>ed by default.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14485	14575	
==>ed by default.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4403	4504	
==>me_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in t <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4403	4504	
==>me_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in t <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	255	353	
==>.type;

class Perl::Type::Junctive isa Perl::Type;

# junctive types can only be disjunctions and c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2725	2856	
==>param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2725	2856	
==>param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2725	2856	
==>param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6502	6599	
==>ies) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6502	6599	
==>ies) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_ <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	848	945	
==>fig{installsitebin} || $Config{installsbin},

        installman1dir     => $Config{installman1dir <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1442	1553	
==>ort
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $num <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1442	1553	
==>ort
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1522	1633	
==>ort
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	432	547	
==>tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	432	547	
==>tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	432	547	
==>tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5516	5625	
==>pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5516	5625	
==>pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5516	5625	
==>pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1575	1721	
==>{
                # XXX - angle quotes are always tried even if it were expecting a simple '<'
            
                # after whitespace mean <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3791	3896	
==>ading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7268	7373	
==>ading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4340	4437	
==>parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4340	4437	
==>parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4340	4437	
==>parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	535	649	
==>mitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignoreca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	535	649	
==>mitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignoreca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	535	649	
==>mitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignoreca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6046	6161	
==>r.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	40	145	
==>se v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

su <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	40	145	
==>se v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

su <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	674	834	
==>hift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(map <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11398	11530	
==>fined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11398	11530	
==>fined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1554	1651	
==>dy() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1554	1651	
==>dy() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1554	1651	
==>dy() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	876	1025	
==>( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2292	2424	
==>n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2292	2424	
==>n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49148	49356	
==>ub {
                my $e = shift;
                $e->get('?$version')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3031	3125	
==>as for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3031	3125	
==>as for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39154	39274	
==>t->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39154	39274	
==>t->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39154	39274	
==>t->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1044	1139	
==>Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1044	1139	
==>Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1124	1219	
==>Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from out <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12874	13018	
==>)
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12874	13018	
==>)
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21054	21186	
==>ut we do not set $canon!
        }
        else {
            push @{$test->{failed}}, $test->{'next'}..$test->{max};
            $fa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1146	1291	
==>( 
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    __PACKAGE__->add_rule( 
        n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2968	3086	
==>.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a sing <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2968	3086	
==>.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a sing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1237	1357	
==>f($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1237	1357	
==>f($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1237	1357	
==>f($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2937	3060	
==>pan = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2937	3060	
==>pan = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $sta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	88	187	
==>ager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules that will be u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6898	7004	
==>ted" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1255	1358	
==>ted" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	357	457	
==>ted" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2243	2376	
==>tant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2243	2376	
==>tant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2243	2376	
==>tant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1027	1137	
==>initialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1027	1137	
==>initialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1027	1137	
==>initialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1226	1338	
==>=> "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1226	1338	
==>=> "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1226	1338	
==>=> "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint" <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12588	12681	
==>roper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<l <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12588	12681	
==>roper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<l <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12509	12595	
==>ar(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_more(Rc0,R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4730	4878	
==>versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4742	4890	
==>versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ ma <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5505	5614	
==>ify_type {
		my $self = shift;

		my $node = shift;
		my $expected_type = shift;

		my $de_facto_type = $node- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4149	4367	
==>uld be a policy test!
                            $version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = dele <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7517	7613	
==>element ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element (' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7517	7613	
==>element ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element (' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2142	2260	
==>= HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2142	2260	
==>= HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2262	2370	
==>supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2262	2370	
==>supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2262	2370	
==>supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1156	1251	
==>age

=head2 $meta = $pkg->meta

The JIB::Meta object associated with this package

=head2 $pkg-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1192	1352	
==>^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z// <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1192	1352	
==>^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1277	1391	
==>ited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1277	1391	
==>ited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1277	1391	
==>ited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14713	14812	
==>tes is identical; they do not interact with the outside
environment at all.

A Node object has 5 mai <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14713	14812	
==>tes is identical; they do not interact with the outside
environment at all.

A Node object has 5 mai <==
3	/Users/nnunley/pugs/util/combine_tests.pl	281	379	
==>Annotates the last test tree with the earlier one's
# and returns the modified reference.
# Note: n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16364	16463	
==>as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - what's right?
      perl6_object => sub { $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32475	32567	
==>an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37025	37117	
==>an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5206	5432	
==>o I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5206	5432	
==>o I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is f <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	273	378	
==>----------------

sub IDGenerate {
    my($id)='';
    for (1..32) { $id~=chr(65+int(rand 26)); }
    retu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12681	12774	
==>character entities.  The module provides the following functions:

=over 4

=item decode_entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12681	12774	
==>character entities.  The module provides the following functions:

=over 4

=item decode_entit <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	675	767	
==>:Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConj <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	675	767	
==>:Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConj <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3717	3813	
==>lf.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3717	3813	
==>lf.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3182	3276	
==>i
    mklivecd.pl automatically fetches a kernel from the Internet.
  --kernel-local=$kernel_lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11148	11305	
==>('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11148	11305	
==>('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11148	11305	
==>('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)= <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8588	8684	
==>ue if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8588	8684	
==>ue if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7756	7860	
==>sses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7756	7860	
==>sses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7756	7860	
==>sses_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3599	3743	
==>. }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first subm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3611	3755	
==>. }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first subm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	91	203	
==>er;
use Scalar::Util ();

sub reduce {
    my $self = shift;
    my $node = shift;

	return $node unless $self->c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5829	5981	
==>e a policy test!
            if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->ve <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8655	8787	
==>== "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8655	8787	
==>== "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3290	3401	
==>lf: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3290	3401	
==>lf: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3290	3401	
==>lf: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12456	12559	
==>(str $canidate) (hash %params)) returns opaque
    ((($canidate to_bit) or (= $canidate (str new ('P6opa <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	330	431	
==>*"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	330	431	
==>*"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5010	5110	
==>ef ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Regexp::Parser <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1821	1911	
==>ecifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1821	1911	
==>ecifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4628	4723	
==>name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4628	4723	
==>name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5218	5313	
==>name p5type is_optional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3346	3522	
==>ype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3346	3522	
==>ype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3346	3522	
==>ype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{supertype} &&
                ( ref($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1171	1271	
==>from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1171	1271	
==>from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1171	1271	
==>from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10008	10129	
==>$min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23152	23250	
==>a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The com <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23152	23250	
==>a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The com <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22089	22204	
==>eps_1:
    reps[cname] = self
    self["isarray"] = isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3783	3883	
==>ect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3783	3883	
==>ect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	301	421	
==>ed($_) && $_->isa('type'))
        || confess "You must store a native type in a list"
            foreach @values;
    b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2621	2726	
==>GE__;
    my $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    retu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2621	2726	
==>GE__;
    my $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6234	6329	
==>rt_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6234	6329	
==>rt_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6234	6329	
==>rt_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1034	1147	
==>eys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1034	1147	
==>eys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1034	1147	
==>eys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	11	113	
==>a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	11	113	
==>a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	11	113	
==>a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	68	193	
==>ication of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	68	193	
==>ication of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	68	193	
==>ication of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16675	16934	
==>(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16675	16934	
==>(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16675	16934	
==>(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	706	813	
==>d_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	706	813	
==>d_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	706	813	
==>d_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3184	3336	
==>ion, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FA <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3184	3336	
==>ion, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4708	4860	
==>ion, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	599	713	
==>ude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	599	713	
==>ude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	599	713	
==>ude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3365	3500	
==>method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3365	3500	
==>method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3365	3500	
==>method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1217	1316	
==>{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1217	1316	
==>{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1217	1316	
==>{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3298	3427	
==>self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3298	3427	
==>self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3298	3427	
==>self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24142	24266	
==>eturn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24142	24266	
==>eturn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24142	24266	
==>eturn Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $met <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2070	2164	
==>rse_quant);
    $optable->addToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optabl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2312	2429	
==>ode";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2312	2429	
==>ode";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6475	6572	
==>ation of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6475	6572	
==>ation of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6475	6572	
==>ation of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20229	20329	
==>rule VariableDeclarationListNoIn :words {  # see 12.2
      <VariableDeclarationNoIn>
    | <Variable <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3230	3321	
==>ring \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3230	3321	
==>ring \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1480	1615	
==>hod;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1480	1615	
==>hod;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1480	1615	
==>hod;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6578	6679	
==>local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kernel_local };

step
  descr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8840	8941	
==>ULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8840	8941	
==>ULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8840	8941	
==>ULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2443	2580	
==>e
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2443	2580	
==>e
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2443	2580	
==>e
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	830	959	
==>y(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	830	959	
==>y(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	830	959	
==>y(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        ret <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	902	999	
==>t_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	902	999	
==>t_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	982	1079	
==>t_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6835	6945	
==>ro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6835	6945	
==>ro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6835	6945	
==>ro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $se <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	773	897	
==>rmTable({});
  $object->whitespaceOperatorTable({}); 
  $object;
}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	376	492	
==>$.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	376	492	
==>$.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2935	3063	
==>ass->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2935	3063	
==>ass->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2935	3063	
==>ass->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach my $at <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	10	103	
==>le is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	10	103	
==>le is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	10	103	
==>le is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8862	9129	
==>( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8862	9129	
==>( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8862	9129	
==>( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	531	667	
==>d Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        30 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	531	667	
==>d Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        30 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8981	9086	
==>EE ALSO

Summary of Perl 6 Operators: L<http://dev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	809	915	
==>d by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	809	915	
==>d by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	809	915	
==>d by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8578	8684	
==>::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = recurse( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1234	1336	
==>tart => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1234	1336	
==>tart => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6250	6428	
==>r_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6250	6428	
==>r_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6250	6428	
==>r_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19250	19369	
==>))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        me <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9728	9822	
==>>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1> and <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9728	9822	
==>>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1> and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11592	11713	
==>ants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::status();
          $stat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2028	2145	
==>ants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $stat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2028	2145	
==>ants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $stat <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2933	3077	
==>loor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5310	5398	
==>class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5310	5398	
==>class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	857	962	
==>005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	857	962	
==>005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	857	962	
==>005-08-29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4387	4501	
==>'add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4387	4501	
==>'add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4387	4501	
==>'add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	723	828	
==>bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	723	828	
==>bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	723	828	
==>bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1296	1414	
==>s an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1296	1414	
==>s an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1296	1414	
==>s an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5912	6026	
==>ly) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::com <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1442	1553	
==>&RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5708	5817	
==>ly) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::com <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	136	255	
==>@paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile ti <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	136	255	
==>@paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2010	2125	
==>e_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2010	2125	
==>e_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2010	2125	
==>e_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2347	2469	
==>d see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2347	2469	
==>d see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2347	2469	
==>d see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	130	235	
==>::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	130	235	
==>::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	130	235	
==>::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = b <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	179	284	
==>xport { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is expor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	179	284	
==>xport { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is expor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1651	1781	
==>ure => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1585	1709	
==>ure => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for per <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	367	471	
==>urns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	367	471	
==>urns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    r <==
3	/Users/nnunley/pugs/util/version_h.pl	1802	1903	
==>(filehandle #0), slot #0 is available for new
  # filehandles again. If we opened a new file ($version <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9210	9324	
==>$cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9210	9324	
==>$cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9210	9324	
==>$cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2309	2427	
==>t_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2309	2427	
==>t_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why t <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2669	2766	
==>f the perl core.  There being no
documentation, one ends up reverse engineering perl source.

We b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9168	9284	
==>xt'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9168	9284	
==>xt'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9168	9284	
==>xt'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8450	8558	
==>f_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8508	8616	
==>f_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1095	1201	
==>d1 NAME

str - the core str type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2785	2923	
==>ss $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $stat <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2785	2923	
==>ss $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $stat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2415	2514	
==>_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceive <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2415	2514	
==>_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2495	2594	
==>_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceive <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4334	4465	
==>and 2147483648
        # that stringify to the same thing but are acutally numerically
        # different. Display the numbers if $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	192	291	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welco <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	192	291	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1428	1581	
==>) {
                $_table = $_table->{prototype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not fi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6971	7080	
==>OWN($pLit); }
NODE PThunk ($pThunk) {
    "(do{ ".DOWN($pThunk)."})";
}
NODE PCode ($pType, $pParams, $pLValue <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10583	10684	
==>ame;
    $code_args .= "'\$.params'=>$code_params,";
    $code_args .= "'\$.body'=>$code_body";
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	254	352	
==>f $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	254	352	
==>f $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	254	352	
==>f $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	717	911	
==>e {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_elemen <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	717	911	
==>e {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_elemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3769	3878	
==>nly) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3769	3878	
==>nly) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4359	4468	
==>nly) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	560	672	
==>IL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	560	672	
==>IL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	560	672	
==>IL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1141	1251	
==>ut object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1141	1251	
==>ut object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1221	1331	
==>ut object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10405	10538	
==>S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["is <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14646	14740	
==>except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  Fo <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14646	14740	
==>except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  Fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	321	436	
==>gspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	321	436	
==>gspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $ <==
3	/Users/nnunley/pugs/util/addauthors.pl	975	1083	
==>, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18996	19114	
==>ange( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18996	19114	
==>ange( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18996	19114	
==>ange( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3104	3198	
==>s as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3104	3198	
==>s as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3451	3545	
==>s as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29666	29824	
==>ms}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29666	29824	
==>ms}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29666	29824	
==>ms}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4630	4754	
==>(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7353	7477	
==>(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5310	5423	
==>pos
  term_bx1:
    $S0 = substr target, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4359	4505	
==>',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4359	4505	
==>',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4359	4505	
==>',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	712	818	
==>tion with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	712	818	
==>tion with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	712	818	
==>tion with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14053	14184	
==>l { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14053	14184	
==>l { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14053	14184	
==>l { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21236	21335	
==>PI, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25788	25887	
==>PI, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24412	24511	
==>PI, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2462	2590	
==>s = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2462	2590	
==>s = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2462	2590	
==>s = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11232	11339	
==>shstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11232	11339	
==>shstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	262	388	
==>r::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20389	20483	
==>es followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationa <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20389	20483	
==>es followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	262	350	
==>erl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	262	350	
==>erl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	262	350	
==>erl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1583	1694	
==>ox.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1583	1694	
==>ox.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1583	1694	
==>ox.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array.lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	203	311	
==>/article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	203	311	
==>/article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	203	311	
==>/article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1320	1422	
==>tract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1320	1422	
==>tract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1320	1422	
==>tract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1979	2114	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1979	2114	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1979	2114	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20566	20827	
==>f;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20566	20827	
==>f;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20566	20827	
==>f;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3915	4041	
==>my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3915	4041	
==>my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3915	4041	
==>my ($self) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1543	1649	
==>}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1543	1649	
==>}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1543	1649	
==>}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	47	155	
==>n in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	40	142	
==>n in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	40	142	
==>n in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15189	15303	
==>ronmental parameter to pay attention to
to select our language.  so I suspect the default should be Grf. -law]

Att <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6350	6447	
==>VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6350	6447	
==>VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3755	3879	
==>.push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3755	3879	
==>.push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3755	3879	
==>.push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	580	687	
==>f(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	580	687	
==>f(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	580	687	
==>f(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1977	2146	
==>y $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1977	2146	
==>y $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1977	2146	
==>y $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17592	17686	
==>DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17592	17686	
==>DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13232	13344	
==>);


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13232	13344	
==>);


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13232	13344	
==>);


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %params) = @_;
    return $sel <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8806	8923	
==>my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8806	8923	
==>my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2650	2811	
==>ule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    # experimental
    __PACKAGE__->add <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3902	3990	
==>------------------------------------
## removing children

method remove_child_at ($self: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3902	3990	
==>------------------------------------
## removing children

method remove_child_at ($self: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	244	494	
==>NGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	244	494	
==>NGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3471	3567	
==>ed, 77.27% okay.

Everything passed but F<t/waterloo.t>.  It failed 10 of 20 tests and
exited wit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	635	740	
==>}

    require Pugs::Compiler::Perl6;

    my $p6 = Pugs::Compiler::Perl6->compile( $source );
    my $per <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6151	6253	
==>or a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6209	6311	
==>or a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	941	1044	
==>JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	941	1044	
==>JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	941	1044	
==>JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2604	2721	
==>ata::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #na <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2604	2721	
==>ata::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #na <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2951	3068	
==>ata::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #na <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17836	17936	
==>re/;;
    return  signature($thunk);
    Digest::SHA1::sha1_hex($class->reduce($thunk->val));
}

# vi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21205	21295	
==>l names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

= <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21205	21295	
==>l names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

= <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2115	2287	
==>end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2115	2287	
==>end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2935	3056	
==>) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2935	3056	
==>) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2202	2316	
==>esn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2202	2316	
==>esn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2202	2316	
==>esn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @I <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2149	2254	
==>hod is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { ret <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2149	2254	
==>hod is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { ret <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22705	22839	
==>"]
    value = self["value"]
    if mname == ":sigspace" goto words
    if mname == ":ignorecase" goto ignorecase
    goto setpad
  wor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22315	22410	
==>mes as you or each other, or having multiple search
directories in your path that packages could <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22315	22410	
==>mes as you or each other, or having multiple search
directories in your path that packages could <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10038	10140	
==>sign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10038	10140	
==>sign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10038	10140	
==>sign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6189	6330	
==>ady a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6189	6330	
==>ady a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6189	6330	
==>ady a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5095	5216	
==>ively

Returns true on success, false on failure.

=cut

sub _copy {
    my $self = shift;
    my %hash = @_;
    
    my( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1123	1222	
==>steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it da <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1123	1222	
==>steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it da <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6451	6597	
==>eturn mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6451	6597	
==>eturn mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6451	6597	
==>eturn mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$patt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15805	15972	
==>onal(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16084	16251	
==>onal(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ru <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3091	3207	
==>em.
    $self->{totals}{$name}         = \%totals;
    while( defined(my $line = $it->next) ) {
        $self->_analy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	740	863	
==>undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in rep <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	740	863	
==>undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in rep <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2324	2413	
==>:", "<postfix:*", "right,nows", "PGE::Exp::Concat");
    $optable->addToken("infix:&", "<i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18093	18346	
==>map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2onl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21570	21823	
==>map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2onl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21157	21410	
==>map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6648	6753	
==>o }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6648	6753	
==>o }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6648	6753	
==>o }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, N <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4210	4395	
==>nassoc' if $a eq 'non';
                $a = 'left'     if $a eq 'list';
                $s .= "%$a ";
                for ( @{ $assoc{$_} } ) {
                    next if $seen{$_- <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7247	7376	
==>VRule, Int)\
\\n   List      pre     split   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6099	6186	
==>cess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6099	6186	
==>cess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6099	6186	
==>cess
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3501	3625	
==>ree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3501	3625	
==>ree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16404	16506	
==>>. In
either case, it returns the number of chars removed.

Note: Most users should consider setting th <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23665	23791	
==>aram => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    para <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7027	7127	
==>emented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not impleme <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1381	1479	
==>emented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not impleme <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7374	7490	
==>$QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        els <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7374	7490	
==>$QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        els <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10846	10953	
==>\$self=\$_[0];my($vars)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29640	29760	
==>0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29640	29760	
==>0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29640	29760	
==>0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2171	2286	
==>->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matche <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2171	2286	
==>->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matche <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2171	2286	
==>->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matche <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	736	861	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	736	861	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	736	861	
==>'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1517	1623	
==>- move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1517	1623	
==>- move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1517	1623	
==>- move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	439	550	
==>lling members before any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# N <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	439	550	
==>lling members before any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# N <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7891	7985	
==>ackage Regexp::Parser::anyof_close;
}
{
  package Regexp::Parser::prop;
}
{
  package Regexp::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3198	3315	
==>>superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3198	3315	
==>>superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3198	3315	
==>>superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6064	6166	
==>riable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # this simplif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22824	22918	
==>the available details depending on the
intended viewer.

=head2 Compared to Other Solutions

On <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22824	22918	
==>the available details depending on the
intended viewer.

=head2 Compared to Other Solutions

On <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11318	11437	
==>ed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11318	11437	
==>ed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11318	11437	
==>ed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10814	10998	
==>e 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10814	10998	
==>e 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10814	10998	
==>e 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12135	12261	
==>y %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12135	12261	
==>y %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12135	12261	
==>y %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8834	9027	
==>1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8834	9027	
==>1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8834	9027	
==>1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	845	987	
==>gth; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	845	987	
==>gth; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	845	987	
==>gth; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.glob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9959	10144	
==>'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2024	2195	
==>'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2024	2195	
==>'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3377	3478	
==>nal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3377	3478	
==>nal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3377	3478	
==>nal array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13913	14029	
==>ringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13913	14029	
==>ringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13913	14029	
==>ringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "str <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15325	15425	
==>ects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may return no <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15325	15425	
==>ects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may return no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	997	1137	
==>code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	997	1137	
==>code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	997	1137	
==>code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5175	5332	
==>,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5175	5332	
==>,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5175	5332	
==>,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6983	7099	
==>contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6983	7099	
==>contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6983	7099	
==>contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8317	8577	
==>>new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22037	22147	
==>up knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16939	17048	
==>up knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19628	19726	
==>rl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19628	19726	
==>rl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19628	19726	
==>rl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2399	2532	
==>how PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2399	2532	
==>how PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2399	2532	
==>how PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile expression and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15365	15488	
==>( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15365	15488	
==>( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15365	15488	
==>( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38227	38348	
==>a} };
    my $consume = pop @kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch';

    for (@kids) {
      $_ = $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7592	7693	
==>authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7592	7693	
==>authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31824	31945	
==>$ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31824	31945	
==>$ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31824	31945	
==>$ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4492	4596	
==>ge information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4492	4596	
==>ge information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4492	4596	
==>ge information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by P <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3776	3885	
==>( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2201	2315	
==>ROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2201	2315	
==>ROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2201	2315	
==>ROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2561	2672	
==>e)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2561	2672	
==>e)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2561	2672	
==>e)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->author <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7209	7312	
==>egate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CAL <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7267	7370	
==>egate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CAL <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27968	28064	
==>t version.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C<HARN <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1226	1367	
==>&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1226	1367	
==>&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7390	7478	
==>ion_alternative(R)    --> "|", p5_concatenation(R), ")", !.
p5_condition_alternative(noop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4513	4654	
==>nt           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4513	4654	
==>nt           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4513	4654	
==>nt           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6396	6480	
==>hod_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6396	6480	
==>hod_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6396	6480	
==>hod_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21202	21303	
==>p ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21202	21303	
==>p ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21202	21303	
==>p ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4522	4632	
==>$operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $tokenStack[-1];
    goto missing_term if ((in <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1842	1945	
==>abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of origina <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1842	1945	
==>abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of origina <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4317	4489	
==>s[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4317	4489	
==>s[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	393	540	
==>Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<*>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	503	672	
==>arse (@start, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    retur <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10579	10673	
==>omplement_previous => sub {...} )`

Creates a recurrence set. The complement set is specified w <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10579	10673	
==>omplement_previous => sub {...} )`

Creates a recurrence set. The complement set is specified w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11233	11383	
==>arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'int <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11233	11383	
==>arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'int <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1563	1664	
==>e the characteristics
#  of particular regex engines.  Its structure follows the spec.  If for
#  inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2639	2782	
==>s",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2639	2782	
==>s",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2639	2782	
==>s",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_req <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10426	10569	
==>[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6767	6910	
==>[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7616	7759	
==>[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14396	14493	
==>s> the value; C<kv> returns both as
a 2 element list in (key, value) order, C<pairs> a C<Pair(key, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26800	26895	
==>ant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31352	31447	
==>ant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19335	19468	
==>($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15756	15889	
==>($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7399	7512	
==>n = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7399	7512	
==>n = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1528	1631	
==>-M $filename > -M $config_template) {
        print <<".";
*** Build config file '$filename' is older th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4767	4876	
==>->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::prote <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4767	4876	
==>->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::prote <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4767	4876	
==>->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::prote <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1281	1491	
==>=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array.new
                if !stack.empty?
                    stack[-1].push(new_arr)
                else
                    su <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2094	2191	
==>n of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C< <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2094	2191	
==>n of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4093	4210	
==>l6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4093	4210	
==>l6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4093	4210	
==>l6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	275	378	
==>y ($class, $env, $signature, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || co <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3014	3116	
==>t will need to be sent to the other end along with 
the ciphertext, but it's safe to send it in the cle <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3014	3116	
==>t will need to be sent to the other end along with 
the ciphertext, but it's safe to send it in the cle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5423	5585	
==>required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5423	5585	
==>required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5423	5585	
==>required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5998	6103	
==>xes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This is version B<0.022b>.  The documen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	206	304	
==>only = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1734	1832	
==>only = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1	104	
==>!/usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1	104	
==>!/usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1	104	
==>!/usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File: <==
3	/Users/nnunley/pugs/util/claim_drift.pl	980	1134	
==>al);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or die "unlink: $!" }  unless $Conf{n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3915	4010	
==>rray { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3915	4010	
==>rray { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18625	18833	
==>re
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18625	18833	
==>re
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18625	18833	
==>re
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10551	10656	
==>azy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, "Error in closure quantifier <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18021	18112	
==>ad2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you' <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18021	18112	
==>ad2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3096	3255	
==>over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX i <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5476	5569	
==>x(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 209 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5476	5569	
==>x(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 209 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2069	2214	
==>= <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2286	2431	
==>= <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4071	4184	
==>$self->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$self->{how}}, "]";
      }
    }
END
}

{
  pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2531	2626	
==>);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Mai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2531	2626	
==>);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Mai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2531	2626	
==>);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Mai <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3407	3546	
==>nd;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3407	3546	
==>nd;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2322	2431	
==>Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14675	14804	
==>s a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14675	14804	
==>s a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14675	14804	
==>s a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	586	699	
==>$self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1248	1361	
==>$self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4634	4713	
==>:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4634	4713	
==>:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4766	4875	
==>h as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4766	4875	
==>h as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6290	6399	
==>h as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set numbe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	212	320	
==>tcher
our %hash;

#our @subroutine_names;

BEGIN {
    $operator = Pugs::Grammar::Precedence->new( 
        g <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11504	11593	
==>eb-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11504	11593	
==>eb-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2315	2428	
==>( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_appli <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3096	3209	
==>( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_appli <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	320	428	
==>tdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(< <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	320	428	
==>tdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1348	1447	
==>turn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1348	1447	
==>turn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.span <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13500	13586	
==>ts_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="tests_unexpect">< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1979	2111	
==>date
        foreach my $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3502	3618	
==>r<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ou <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3502	3618	
==>r<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	972	1072	
==>g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	972	1072	
==>g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	972	1072	
==>g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    % <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2823	2948	
==>imize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].inters <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2823	2948	
==>imize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].inters <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4272	4367	
==>local *MAKEFILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	646	779	
==>ush @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	646	779	
==>ush @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	646	779	
==>ush @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	934	1065	
==>At(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	934	1065	
==>At(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	934	1065	
==>At(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1248	1348	
==>.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1248	1348	
==>.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1248	1348	
==>.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3026	3143	
==>= $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3026	3143	
==>= $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3026	3143	
==>= $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $sel <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	457	564	
==>SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	457	564	
==>SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1013	1120	
==>SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3398	3497	
==>re to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3398	3497	
==>re to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3398	3497	
==>re to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3434	3524	
==>-L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-s <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3434	3524	
==>-L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4025	4132	
==>>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4025	4132	
==>>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4105	4212	
==>>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32661	32785	
==>SAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32661	32785	
==>SAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32661	32785	
==>SAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->po <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1632	1799	
==>ame( $arg );
            $.append_value( $arg );
            $.count++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24422	24515	
==>$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24422	24515	
==>$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18897	18996	
==>w(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18897	18996	
==>w(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3766	3860	
==>h';
trig_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_func 'cosech';
trig_func 'cota <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17710	17813	
==>.= "our \$META;\n";
    $code .= "\$META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9255	9355	
==>d add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method conn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9255	9355	
==>d add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method conn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4050	4158	
==>shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4050	4158	
==>shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4050	4158	
==>shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    retur <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	324	445	
==>ntent} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=hea <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	324	445	
==>ntent} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=hea <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5812	5931	
==>"";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	warn "state PPad not implemented\n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4828	5002	
==>project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8305	8479	
==>project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13599	13684	
==>(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I,[42,120,D0,D1,D2,D3] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2144	2240	
==>js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2144	2240	
==>js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2144	2240	
==>js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4303	4417	
==>al_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24436	24531	
==>gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside fr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24436	24531	
==>gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3136	3246	
==>rl5 I<and> perl6 code.

This is a valid header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes perl5

* p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3998	4101	
==>tem B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're go <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3998	4101	
==>tem B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4078	4181	
==>tem B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12129	12227	
==>5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12129	12227	
==>5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12129	12227	
==>5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	248	354	
==>lue::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	248	354	
==>lue::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	248	354	
==>lue::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28341	28538	
==>== ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28341	28538	
==>== ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28341	28538	
==>== ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1775	1893	
==>s);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $baren <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1775	1893	
==>s);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $baren <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1775	1893	
==>s);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $baren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15237	15348	
==>elf->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15237	15348	
==>elf->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15237	15348	
==>elf->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3809	3933	
==>pc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3809	3933	
==>pc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3809	3933	
==>pc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	569	687	
==>{
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	569	687	
==>{
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	569	687	
==>{
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $name ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4768	4942	
==>d) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # min <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4768	4942	
==>d) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # min <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8313	8449	
==>t {
    my $n = $_[0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	94	209	
==>n/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	94	209	
==>n/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	94	209	
==>n/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1102	1206	
==>ly live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# nee <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1102	1206	
==>ly live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# nee <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1102	1206	
==>ly live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# nee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4969	5088	
==>ceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4969	5088	
==>ceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4969	5088	
==>ceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3830	3955	
==>()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3842	3967	
==>()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something i <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	652	751	
==>h } qq[<li><a href="/~$_/">$_</a></li>\n] for sort @users;

print { $fh } <<'END';
</ul>
<p>
Or <a h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9065	9187	
==>r die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Availa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10542	10664	
==>r die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Availa <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	260	356	
==>od add($self: Duration $duration) returns Date {
    ...
}

method subtract($self: Duration $dura <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15554	15711	
==>->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15554	15711	
==>->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15554	15711	
==>->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5441	5556	
==>$self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5441	5556	
==>$self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6031	6146	
==>$self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writable) {
	    lexalias($l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5945	6060	
==>x::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::Ternary::hash,
    );
    $class->SUPE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25082	25177	
==>e argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29634	29729	
==>e argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6611	6721	
==>oreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6611	6721	
==>oreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6611	6721	
==>oreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	680	871	
==>tem' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                whe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	680	871	
==>tem' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                whe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2394	2523	
==>,'Type';
node_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,' <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2873	2991	
==>er.
multi infix:«¥» (Array *@arrays --> Lazy) { zip *@arrays }

# copied from S29draft.pod 8651.
multi List::zip ( A <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40224	40317	
==>2110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40224	40317	
==>2110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5861	5971	
==>USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5861	5971	
==>USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5861	5971	
==>USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4686	4817	
==>else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4686	4817	
==>else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4686	4817	
==>else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4972	5098	
==>'nt open file $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv_self conv_array conv_hash conv_refere <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	551	666	
==>d, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	551	666	
==>d, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($u <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	284	380	
==>f.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.S <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	284	380	
==>f.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28537	28632	
==>a C<close> node, any other assertion's ender is a C<tail> node, and a
character class's ender is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21981	22098	
==>SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21981	22098	
==>SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21981	22098	
==>SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6320	6436	
==>-----------------------------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6320	6436	
==>-----------------------------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6320	6436	
==>-----------------------------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::M <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5512	5638	
==>= $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5512	5638	
==>= $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23157	23254	
==>FunctionExpression :words {  # see clause 13
      <'function'> <Identifier>? <'('> <FormalParamet <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1	98	
==>!/usr/bin/perl

# Generate .html from .t and test results 
# Generate cross-referenced html for p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37132	37226	
==>ily

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<ja <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2768	2895	
==>"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2768	2895	
==>"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2768	2895	
==>"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running o <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2601	2715	
==>fset(-1) :length(1));
## an alternate implementation:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4703	4798	
==>'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4703	4798	
==>'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	196	289	
==>id";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	196	289	
==>id";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	196	289	
==>id";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1782	1890	
==>f->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1782	1890	
==>f->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1782	1890	
==>f->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	802	935	
==>c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	802	935	
==>c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	802	935	
==>c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribut <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1993	2126	
==>Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sy <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1993	2126	
==>Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sy <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	680	784	
==>optional match.
#   * Parts of the grammar, intended for a tokenizer, are not actually used.
#   * Some r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2245	2342	
==>he strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $.Par <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2245	2342	
==>he strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $.Par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1879	1973	
==>ssage, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1879	1973	
==>ssage, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1879	1973	
==>ssage, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34706	34803	
==>elation that has the
same heading as the invocant and whose body contains all of the tuples that
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39256	39353	
==>elation that has the
same heading as the invocant and whose body contains all of the tuples that
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9539	9664	
==>ift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::string <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9539	9664	
==>ift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::string <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9539	9664	
==>ift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21825	21980	
==>traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21825	21980	
==>traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21825	21980	
==>traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7660	7767	
==>items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with array <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7660	7767	
==>items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with array <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3887	3987	
==>}
}

### add our own ls_accessors, so we don't give back the private accessors
sub ls_all_accessors { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1431	1536	
==>elf;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1431	1536	
==>elf;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1431	1536	
==>elf;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	975	1092	
==>alue => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	975	1092	
==>alue => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	975	1092	
==>alue => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3790	3898	
==>\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5324	5415	
==>GHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5324	5415	
==>GHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14357	14453	
==>d attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14357	14453	
==>d attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3326	3453	
==>le =~ s/^\#\s*(.*)\n//m) {
#	$desc = $1;
#    }
#    # backslash
#    $file =~ s/\\/\\textbackslash\{\}/g;
#    # segils
##    $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5490	5594	
==>ick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5490	5594	
==>ick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29466	29570	
==>gument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34018	34122	
==>gument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33182	33286	
==>gument C<$attrs> are the names of the
invocant's attributes to split/unwrap.  This method will fail if an <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5563	5657	
==>ithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5563	5657	
==>ithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7760	7854	
==>ithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4765	4862	
==>e same ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3659	3749	
==>=>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3659	3749	
==>=>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2529	2668	
==>ion (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return syst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2529	2668	
==>ion (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return syst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2529	2668	
==>ion (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return syst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2091	2195	
==>.arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2091	2195	
==>.arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2091	2195	
==>.arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2320	2520	
==>t() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2320	2520	
==>t() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2320	2520	
==>t() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1207	1312	
==>S.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1207	1312	
==>S.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1207	1312	
==>S.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5957	6138	
==>p => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5957	6138	
==>p => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5957	6138	
==>p => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26610	26702	
==>header, in which case it returns the identity-one
Relation or the invocant Relation respectiv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31162	31254	
==>header, in which case it returns the identity-one
Relation or the invocant Relation respectiv <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4541	4649	
==>cessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4933	5041	
==>cessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5444	5552	
==>cessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2514	2614	
==>_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2514	2614	
==>_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2514	2614	
==>_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2037	2210	
==>eadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.ui <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2037	2210	
==>eadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.ui <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2037	2210	
==>eadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.ui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	373	548	
==>bjects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	373	548	
==>bjects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	373	548	
==>bjects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5908	6009	
==>licts ... add method
                $self->add_method($method_name => $role->get_method($method_name) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5908	6009	
==>licts ... add method
                $self->add_method($method_name => $role->get_method($method_name) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5908	6009	
==>licts ... add method
                $self->add_method($method_name => $role->get_method($method_name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3209	3368	
==>)
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3209	3368	
==>)
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3209	3368	
==>)
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2435	2563	
==>1;       
    return $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    foreach my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3017	3142	
==>t;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3564	3689	
==>t;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1766	1890	
==>')))    
        || confess "Indecies must be a num type";
    return list->new(
        # make sure to create any nils we ne <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1850	1955	
==>n is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.int <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1850	1955	
==>n is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20991	21095	
==>0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20991	21095	
==>0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20991	21095	
==>0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5348	5499	
==>) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled cap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5180	5324	
==>) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	358	459	
==>$term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	358	459	
==>$term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	358	459	
==>$term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5048	5174	
==>) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5048	5174	
==>) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5638	5764	
==>) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($self->p5type <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6745	6863	
==>"\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Ma <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10056	10151	
==>roperties.

Note that all set functions may end up being calculated using iterations, 
which can <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10056	10151	
==>roperties.

Note that all set functions may end up being calculated using iterations, 
which can <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46332	46495	
==>nd('add_method' => (
    # method label
        symbol->new('FETCH'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	677	766	
==>options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	677	766	
==>options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7785	7901	
==>if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  reduce_backtrack:
  $positi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19812	19911	
==><use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19812	19911	
==><use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3700	3821	
==>{ my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3688	3809	
==>{ my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quan <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8221	8358	
==>lone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8221	8358	
==>lone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	799	904	
==>=> Blondie::TypeSafe::Type::Std->new("GV"),
		},
		{
			arity => 3,
			name => '&printf',
			body => 'prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2464	2591	
==>hly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2464	2591	
==>hly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2464	2591	
==>hly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XX <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	72	170	
==>Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	72	170	
==>Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17939	18162	
==>thod->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17939	18162	
==>thod->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17939	18162	
==>thod->($self, @{$args});                   
                };
                # call the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2397	2539	
==>.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2397	2539	
==>.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2397	2539	
==>.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2564	2690	
==>mp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2564	2690	
==>mp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2564	2690	
==>mp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13895	14003	
==>>{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13895	14003	
==>>{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from th <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1498	1601	
==>ha1->hexdigest;
    }
}

{
	package Blondie::Node::Atomic;
	use base qw/Blondie::Node/;

	sub digest { " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10330	10476	
==>et( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6671	6817	
==>et( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7520	7666	
==>et( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9654	9758	
==>1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9654	9758	
==>1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9654	9758	
==>1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2905	3071	
==>ean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d $obj->meta_dir ) {
                
                ### set up the dir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8236	8338	
==>unknown whether this is working because the language
    # spec says it is supposed to, or whether is d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8236	8338	
==>unknown whether this is working because the language
    # spec says it is supposed to, or whether is d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	183	287	
==>fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	183	287	
==>fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	183	287	
==>fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pE <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1753	1880	
==>l>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1753	1880	
==>l>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a <==
3	/Users/nnunley/pugs/util/addauthors.pl	1511	1636	
==>an, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	49	143	
==>*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	49	143	
==>*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	49	143	
==>*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1482	1582	
==>c}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1482	1582	
==>c}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1482	1582	
==>c}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6726	6842	
==>X::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0| <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7098	7214	
==>X::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0| <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7397	7513	
==>X::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3082	3182	
==>rl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3082	3182	
==>rl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3082	3182	
==>rl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7276	7393	
==>rn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7276	7393	
==>rn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7276	7393	
==>rn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2344	2463	
==>); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2484	2603	
==>); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14244	14350	
==>);
    return $self;
}

method CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %att <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21127	21226	
==>names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25679	25778	
==>names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24294	24393	
==>names of each tuple are all the same as those of
all the other tuples.

For purposes of the Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2025	2141	
==>ame');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2025	2141	
==>ame');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2025	2141	
==>ame');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7520	7652	
==>arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7520	7652	
==>arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7520	7652	
==>arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	918	1048	
==>marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an ob <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	918	1048	
==>marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an ob <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22939	23020	
==>---------------------------------------------------------------

rmSomewhere(Re,F0 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25435	25537	
==>ype->stringify, "∀α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x c");
}
{
	my $type = t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	749	844	
==>:Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	749	844	
==>:Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34615	34723	
==>erl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34615	34723	
==>erl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34615	34723	
==>erl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16293	16414	
==>{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16293	16414	
==>{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19231	19398	
==>rray' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19231	19398	
==>rray' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19231	19398	
==>rray' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the original arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1130	1262	
==>de>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1130	1262	
==>de>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variab <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12549	12717	
==>\$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8823	8991	
==>\$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9658	9826	
==>\$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19922	20123	
==>::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19922	20123	
==>::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19922	20123	
==>::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14867	14977	
==>SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14867	14977	
==>SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14867	14977	
==>SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10230	10384	
==>he
    # invocant, which usually will be a class, but it
    # can be a role too.
    # -----------------------------------------------    
    method reso <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10230	10384	
==>he
    # invocant, which usually will be a class, but it
    # can be a role too.
    # -----------------------------------------------    
    method reso <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10230	10384	
==>he
    # invocant, which usually will be a class, but it
    # can be a role too.
    # -----------------------------------------------    
    method reso <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1201	1313	
==>> join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@values) returns List
 multi sub sort(Criterion $by ; *@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13871	13975	
==>rl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8077	8181	
==>rl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34151	34277	
==>erl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34151	34277	
==>erl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34151	34277	
==>erl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2242	2381	
==>ush( @hits, $currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8371	8474	
==>}];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8371	8474	
==>}];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2731	2840	
==>oin "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$da <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2731	2840	
==>oin "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16256	16398	
==>eturn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16256	16398	
==>eturn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16256	16398	
==>eturn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	659	768	
==>xecutable not found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28	131	
==>ptember 7

This file is a development snapshot of the prolog regex engine I
started over the weekend.  A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	558	655	
==>xecutable not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	809	932	
==>boxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	809	932	
==>boxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	809	932	
==>boxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2365	2460	
==>g(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2365	2460	
==>g(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2365	2460	
==>g(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")" <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27687	27799	
==>if $@;
	    #use Data::Dumper;
	    #print Dumper($res);
	    mkMatch(length($s),$res);
	}
	else { MatchX->new()- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1874	1971	
==>(see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1874	1971	
==>(see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1874	1971	
==>(see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1285	1486	
==>}
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1285	1486	
==>}
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5925	6009	
==>x)".$::X::cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X::ca <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1310	1445	
==>my %in_tail = (map { $_ => 1 } $sub_seq->tail->to_native);
                # NOTE:
                # jump out as soon as we find one mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11043	11140	
==>ter some source code into something else. This is almost
# always overridden in a subclass.
sub pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11043	11140	
==>ter some source code into something else. This is almost
# always overridden in a subclass.
sub pm <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9669	9763	
==>ciphers will need to override these
method _head() returns Array { return }
method _tail() retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9669	9763	
==>ciphers will need to override these
method _head() returns Array { return }
method _tail() retu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8188	8297	
==>SubPrim' && $name =~ /END/;#XXX

    $kind = 'Sub' if $kind eq 'SubRoutine';
    $kind = 'Sub' if $kind eq 'Su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11924	12024	
==>peration.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right af <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11924	12024	
==>peration.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right af <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	35	140	
==>se warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	35	140	
==>se warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	35	140	
==>se warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6672	6795	
==>Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6672	6795	
==>Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6672	6795	
==>Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3833	3933	
==>umper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3833	3933	
==>umper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{matc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9944	10104	
==>od revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (* <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9944	10104	
==>od revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (* <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1108	1205	
==>_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param("version") or $CGI->param( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8013	8135	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8013	8135	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8013	8135	
==>'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1916	2022	
==>b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1916	2022	
==>b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1916	2022	
==>b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7762	7883	
==>version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7762	7883	
==>version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7762	7883	
==>version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6171	6290	
==>o understand.  If you find a problem,
please let L<me|/"AUTHOR"> know.

Documentation has been added and moved around. S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21886	21979	
==>verview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The interf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21886	21979	
==>verview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The interf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	412	517	
==>f;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	412	517	
==>f;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	412	517	
==>f;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13732	13877	
==>_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13732	13877	
==>_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13732	13877	
==>_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5083	5281	
==>ass_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5083	5281	
==>ass_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5083	5281	
==>ass_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7524	7685	
==>se Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7524	7685	
==>se Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	145	253	
==>th explicit EigenClasses
## ----------------------------------------------------------------------------
## T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3199	3318	
==>al%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3199	3318	
==>al%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3199	3318	
==>al%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14357	14451	
==>from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14357	14451	
==>from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14357	14451	
==>from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	443	541	
==>utput

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	443	541	
==>utput

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	999	1097	
==>utput

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles all th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2502	2614	
==>content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2502	2614	
==>content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str w <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16315	16410	
==>$r = $self->runtime;

    if ($builtin->can("digest") and my $native = $r->provides($builtin->di <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	955	1090	
==>ir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	641	764	
==>my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpParser->pars <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	826	935	
==>ir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17413	17497	
==>(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1743	1837	
==>elf->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1743	1837	
==>elf->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1743	1837	
==>elf->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4086	4260	
==>ub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4086	4260	
==>ub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4086	4260	
==>ub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3857	3961	
==>ance, passing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3857	3961	
==>ance, passing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6054	6158	
==>ance, passing on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3922	4088	
==>})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3922	4088	
==>})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3922	4088	
==>})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9140	9263	
==>sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12992	13112	
==>sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } k <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12992	13112	
==>sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } k <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20584	20680	
==>nelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor, you
hav <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20584	20680	
==>nelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor, you
hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2744	2850	
==>= args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2744	2850	
==>= args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2744	2850	
==>= args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } el <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30476	30571	
==>f the set. There is a separate template module for each distinct "user
language" (or "user type" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30476	30571	
==>f the set. There is a separate template module for each distinct "user
language" (or "user type" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1258	1364	
==>e);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1258	1364	
==>e);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1258	1364	
==>e);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28652	28751	
==>will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33204	33303	
==>will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32332	32431	
==>will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$map <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1935	2052	
==>->add_handler('\C' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	856	963	
==>ary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	856	963	
==>ary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	558	673	
==>e},
		type => $params->{type},
    );
}

my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie::Prelude->en <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9769	9863	
==>t it has succeeded, even if the return
value is undefined.

Rosetta::Model's input validation i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9769	9863	
==>t it has succeeded, even if the return
value is undefined.

Rosetta::Model's input validation i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1044	1170	
==>ol  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1055	1181	
==>ol  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	130	278	
==>alue is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                pus <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	130	278	
==>alue is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                pus <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3414	3559	
==>l}) ||
                 ($totals{max} && $totals{seen} &&
                  $totals{max} == $totals{seen} && 
                  $totals{max} == $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13120	13230	
==>l6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13120	13230	
==>l6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13120	13230	
==>l6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3917	4017	
==>ant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3917	4017	
==>ant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3917	4017	
==>ant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function ( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4470	4576	
==>$self = shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20126	20214	
==>ormalized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_han <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20126	20214	
==>ormalized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_han <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1426	1526	
==>ric_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1426	1526	
==>ric_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1426	1526	
==>ric_deref($thing) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4114	4235	
==>RCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4114	4235	
==>RCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4114	4235	
==>RCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17862	18093	
==>ance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17862	18093	
==>ance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17862	18093	
==>ance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	85	180	
==>erl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Inte <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	85	180	
==>erl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	968	1085	
==>all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	968	1085	
==>all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	968	1085	
==>all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1380	1486	
==>ny elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1380	1486	
==>ny elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1380	1486	
==>ny elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12579	12738	
==>hift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12579	12738	
==>hift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12579	12738	
==>hift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23155	23250	
==>$xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23155	23250	
==>$xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23155	23250	
==>$xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1781	1911	
==>}, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1781	1911	
==>}, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22040	22156	
==>cname]
    $P0["isarray"] = 1
    isarray = 1
  reps_1:
    reps[cname] = self
    self["isarray"] = isarray
  
  nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4337	4469	
==>xt = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4337	4469	
==>xt = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4337	4469	
==>xt = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2887	3027	
==>x.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2887	3027	
==>x.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2887	3027	
==>x.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	0	106	
==>module Prelude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	0	106	
==>module Prelude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	0	106	
==>module Prelude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8126	8232	
==>rm (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8126	8232	
==>rm (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8126	8232	
==>rm (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	228	346	
==>oul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	228	346	
==>oul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	228	346	
==>oul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the rational soul, re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	50	159	
==>r module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simpl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	50	159	
==>r module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simpl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	50	159	
==>r module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simpl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9166	9262	
==>my($self, $file) = @_;

    my @existing_switches = $self->_cleaned_switches( $Test::Harness::Swi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4262	4352	
==>n is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed() <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4262	4352	
==>n is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed() <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17408	17573	
==>n-conversion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	730	822	
==>So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> ar <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	730	822	
==>So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23589	23706	
==>qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23589	23706	
==>qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23589	23706	
==>qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9545	9641	
==>le into blocks. This code divides a module based on
# lines that use/no a Module::Compile subclas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9545	9641	
==>le into blocks. This code divides a module based on
# lines that use/no a Module::Compile subclas <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19250	19339	
==>),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3577	3706	
==>_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3577	3706	
==>_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3577	3706	
==>_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2230	2348	
==>pts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2230	2348	
==>pts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2230	2348	
==>pts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12252	12401	
==>rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8528	8677	
==>rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9363	9512	
==>rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5486	5605	
==>w($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$ty <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27504	27606	
==>, you must create a new
object that is a clone of the first but for the changes.

=back

A Message obje <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27504	27606	
==>, you must create a new
object that is a clone of the first but for the changes.

=back

A Message obje <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	646	786	
==>il    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	646	786	
==>il    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13	108	
==>here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13	108	
==>here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13	108	
==>here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	911	1058	
==>ss($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	911	1058	
==>ss($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	911	1058	
==>ss($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4657	4762	
==>NOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DB <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4657	4762	
==>NOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DB <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	202	301	
==>ARGV or die 'Need at least one package';

my %indexed = map { $_->{package} => $_ } LoadFile( $Repoi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21650	21753	
==>,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21650	21753	
==>,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21650	21753	
==>,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15443	15601	
==>|| !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15443	15601	
==>|| !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15443	15601	
==>|| !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatch <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8687	8812	
==>3),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8687	8812	
==>3),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "r <==
3	/Users/nnunley/pugs/util/build_pugs.pl	527	621	
==>ning
precompiled modules in a second pass.

Primary configuration settings are read from the fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11696	11814	
==>ar arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11696	11814	
==>ar arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11696	11814	
==>ar arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-arr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4950	5060	
==>t:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4950	5060	
==>t:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	518	634	
==>s?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	518	634	
==>s?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	518	634	
==>s?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     = <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5966	6067	
==>r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6536	6637	
==>r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6741	6842	
==>r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array:: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21986	22084	
==>e something real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16888	16985	
==>e something real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5368	5528	
==>_('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5368	5528	
==>_('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5368	5528	
==>_('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => u <==
3	/Users/nnunley/pugs/util/func_refact.pl	1070	1183	
==>@_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set size is " . scalar(keys %ccse <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14468	14566	
==>LANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This modu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14526	14624	
==>LANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This modu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13274	13426	
==>} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13274	13426	
==>} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13274	13426	
==>} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9053	9176	
==>ethods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9053	9176	
==>ethods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9053	9176	
==>ethods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5143	5265	
==>correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else { <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5201	5323	
==>correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19630	19721	
==>($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19630	19721	
==>($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19630	19721	
==>($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1983	2093	
==><FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { us <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1983	2093	
==><FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { us <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20868	20956	
==>:True,$module);
}
sub Pugs::Internals::Disabled::require ($module=$+_) is builtin is unsa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11564	11715	
==>\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11564	11715	
==>\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25282	25407	
==>ag value
    sub Rf :lvalue          { $_[0]{flags}[-1] }

  # access to the tree
    # is this the first pass?
    sub SIZE_O <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7236	7358	
==>(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7236	7358	
==>(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7236	7358	
==>(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly hacky way to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3371	3488	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3564	3681	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22822	22920	
==>up being identical to
C<nparen>, but it is incremented during the initial pass, so that on
the seco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19850	19980	
==>ith it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19850	19980	
==>ith it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19850	19980	
==>ith it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $labe <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9109	9255	
==>ines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unesc <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9109	9255	
==>ines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unesc <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18273	18476	
==>p(\*STDERR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($rege <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	572	680	
==>ocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	572	680	
==>ocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4281	4400	
==>r my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) = @_;
   my @tt = (
      [ 'f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3227	3337	
==>$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HAS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3227	3337	
==>$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HAS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3227	3337	
==>$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HAS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6213	6355	
==>md =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6726	6868	
==>md =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10027	10135	
==>r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10027	10135	
==>r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10027	10135	
==>r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    ru <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25549	25646	
==>age similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19789	19882	
==>uthorization header that use the
"Basic Authentication Scheme".  In array context it will retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19789	19882	
==>uthorization header that use the
"Basic Authentication Scheme".  In array context it will retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2952	3067	
==>')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2952	3067	
==>')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4476	4591	
==>')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1778	1909	
==>dy added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1778	1909	
==>dy added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1778	1909	
==>dy added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5562	5678	
==>t ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5562	5678	
==>t ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5562	5678	
==>t ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Pe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5503	5669	
==>as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinatio <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5503	5669	
==>as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinatio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19833	19944	
==>urn (self)
.end
    
    
.namespace [ "PGE::Exp::Quant" ]

.sub "p6analyze" :method
    .param pmc pad
    .loc <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15943	16044	
==>$reason);

Checks if the line is a "Bail out!".  Places the reason for bailing
(if any) in $reason.

= <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	554	649	
==>the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Co <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	554	649	
==>the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15127	15241	
==>s);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18604	18718	
==>s);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18020	18134	
==>s);

    # TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3161	3267	
==>es not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3161	3267	
==>es not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3161	3267	
==>es not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("H <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24240	24347	
==>$self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visual {
    my $self = shift;
    join "", $sel <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2476	2570	
==>erl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this woul <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2476	2570	
==>erl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this woul <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1808	1950	
==>s[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1808	1950	
==>s[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2795	2906	
==>b generic_reduce {
		my $self = shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1515	1624	
==>bj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1515	1624	
==>bj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1515	1624	
==>bj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.leng <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	885	1011	
==>$code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	885	1011	
==>$code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4963	5062	
==>ile(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4963	5062	
==>ile(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4963	5062	
==>ile(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1243	1367	
==>left',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule( 
        name => '{ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8314	8436	
==>:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8314	8436	
==>:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	514	611	
==>.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $descript <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	514	611	
==>.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $descript <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21407	21504	
==>bute has a name that is distinct from the other
attributes, though several attributes may store va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25959	26056	
==>bute has a name that is distinct from the other
attributes, though several attributes may store va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24592	24689	
==>bute has a name that is distinct from the other
attributes, though several attributes may store va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	538	679	
==>p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	538	679	
==>p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	538	679	
==>p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39959	40102	
==>ass = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39959	40102	
==>ass = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39959	40102	
==>ass = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::nu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5858	5960	
==>y' => $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scala <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	85	174	
==>ar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Run <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	216	305	
==>ar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Run <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10932	11047	
==>("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readline <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10932	11047	
==>("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readline <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	517	622	
==>}
macro CdPt  () { "CodePoint" }


 type MatchTest ::= Item | Junction;

package Math::Basic {}

 multi  N <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2257	2402	
==>@tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2257	2402	
==>@tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3871	3991	
==>}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3871	3991	
==>}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3871	3991	
==>}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- w <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	205	307	
==>. "::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	318	438	
==>w(call load) ) {
        *{"$class\::$method"} = sub {
            shift()->_top->$method(@_);
        } unless defined & <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	149	260	
==>self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	149	260	
==>self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4152	4267	
==>alue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4152	4267	
==>alue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4152	4267	
==>alue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3260	3386	
==>rse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3260	3386	
==>rse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4232	4355	
==>\$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4220	4343	
==>\$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub c <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	189	300	
==>nt Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset o <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	189	300	
==>nt Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27622	27721	
==>r rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous funct <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32174	32273	
==>r rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous funct <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31266	31365	
==>r rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous funct <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24402	24499	
==>=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28954	29051	
==>=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27821	27918	
==>=over

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	862	995	
==>p,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	862	995	
==>p,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	862	995	
==>p,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6304	6441	
==>al_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6304	6441	
==>al_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6304	6441	
==>al_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3948	4053	
==>s);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns B <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4006	4111	
==>s);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns B <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3609	3728	
==>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitpara <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3609	3728	
==>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitpara <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	117	213	
==>is currently unused
# XXX - see Pugs::Grammar::BaseCategory ws()

# placeholder for the Pod gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4604	4720	
==>[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4604	4720	
==>[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4604	4720	
==>[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1194	1355	
==>ers passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1194	1355	
==>ers passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1194	1355	
==>ers passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1781	1887	
==>{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1781	1887	
==>{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1781	1887	
==>{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	611	762	
==>> {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	611	762	
==>> {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	611	762	
==>> {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	949	1043	
==>x) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	949	1043	
==>x) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	949	1043	
==>x) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11798	12034	
==>$candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11798	12034	
==>$candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11798	12034	
==>$candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5411	5511	
==>XX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5411	5511	
==>XX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5411	5511	
==>XX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	199	329	
==>mpile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	199	329	
==>mpile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	199	329	
==>mpile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6500	6637	
==>b { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6500	6637	
==>b { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6500	6637	
==>b { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tiea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10652	10814	
==>h( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10652	10814	
==>h( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10652	10814	
==>h( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6248	6360	
==>ugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6248	6360	
==>ugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6248	6360	
==>ugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3264	3362	
==>ne('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::noth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3264	3362	
==>ne('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::noth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3264	3362	
==>ne('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::noth <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	571	686	
==>unless @:events;

    my $callback = shift @:events;
    return $callback();
  }

  method run () {
    while @:even <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11576	11679	
==>e I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11576	11679	
==>e I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	81	193	
==>n;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	81	193	
==>n;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	980	1076	
==>$source;
    print "RULE\n";
}
print <<'PUSH';
push @terms, sub { Grammar::Perl6->indirect_object <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1477	1646	
==>-1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A" <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1477	1646	
==>-1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	418	577	
==>ate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35356	35509	
==>op length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35356	35509	
==>op length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35356	35509	
==>op length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4440	4554	
==>ut is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4440	4554	
==>ut is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4440	4554	
==>ut is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4860	4976	
==>));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4860	4976	
==>));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4860	4976	
==>));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7064	7190	
==>er = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7064	7190	
==>er = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7064	7190	
==>er = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push @js,
        "if($jsn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	103	228	
==>JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	103	228	
==>JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	103	228	
==>JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22497	22645	
==>ms => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42286	42433	
==>ms => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27966	28067	
==>);
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4973	5178	
==>lves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4973	5178	
==>lves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cooki <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	960	1065	
==>() {
    my $fh = open("$Path/$SID", :w);
    $fh.print(SessionCode(%Session.keys));
    $fh.close;
}

Ses <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1194	1283	
==>L2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIM <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1405	1494	
==>L2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIM <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6225	6346	
==>2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17540	17636	
==>my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17540	17636	
==>my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4110	4245	
==>ent->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4110	4245	
==>ent->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4110	4245	
==>ent->has_method($label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17183	17297	
==>e::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17183	17297	
==>e::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17183	17297	
==>e::Str::to_num( 'NaN' );
 
  # Perl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28995	29097	
==>erted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28995	29097	
==>erted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	350	448	
==>erted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15008	15220	
==>}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15008	15220	
==>}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15008	15220	
==>}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	979	1084	
==>aque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1184	1289	
==>aque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1245	1350	
==>aque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26485	26611	
==>lock = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26764	26890	
==>lock = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1284	1385	
==>(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
}

__PACKAGE__;

__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	386	508	
==>x.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	386	508	
==>x.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	386	508	
==>x.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1468	1583	
==>um;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1468	1583	
==>um;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1468	1583	
==>um;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14398	14498	
==>acter appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a wo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14456	14556	
==>acter appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5317	5405	
==>pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5317	5405	
==>pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1215	1332	
==>rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' => q( <before <Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1500	1590	
==>onform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from h <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1500	1590	
==>onform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19852	19986	
==>h it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19852	19986	
==>h it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19852	19986	
==>h it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'D <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2784	2891	
==>ub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2772	2879	
==>ub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1104	1196	
==>---------------------------------------------------
## Roles

# Questions on Role methods sen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1104	1196	
==>---------------------------------------------------
## Roles

# Questions on Role methods sen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1104	1196	
==>---------------------------------------------------
## Roles

# Questions on Role methods sen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5724	5979	
==>$_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'Sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5724	5979	
==>$_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'Sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5724	5979	
==>$_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'Sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	778	893	
==>slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	778	893	
==>slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	778	893	
==>slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1882	2038	
==>register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2662	2818	
==>register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3524	3678	
==>register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        " <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3274	3380	
==>This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A.. <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3274	3380	
==>This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A.. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3924	4028	
==>dlers.pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $self->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2118	2221	
==>.ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2118	2221	
==>.ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2118	2221	
==>.ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37184	37344	
==>::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37184	37344	
==>::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37184	37344	
==>::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10014	10153	
==>aram_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10014	10153	
==>aram_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @par <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6228	6391	
==>uirements
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pk <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9777	9891	
==>~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9777	9891	
==>~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3873	3974	
==><~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3873	3974	
==><~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3873	3974	
==><~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5846	5957	
==>= &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5846	5957	
==>= &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5846	5957	
==>= &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4637	4739	
==>PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not ree <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4637	4739	
==>PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not ree <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4637	4739	
==>PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not ree <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12569	12737	
==>n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8843	9011	
==>n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9678	9846	
==>n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expan <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	931	1198	
==>8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso8601_dur_re ) |
                                 ( # $36
                                 $iso8 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6648	6806	
==>rn $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6648	6806	
==>rn $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3015	3128	
==>nless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ whi <==
3	/Users/nnunley/pugs/misc/IDE-support/server.pl	155	255	
==>ut (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"red\"))" if $m;
say '(message <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36671	36767	
==>\d+)))

=head2 Extending the Extension

Here's a final example.  I'm going to rewrite F<Regexp::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1159	1269	
==>ft(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1159	1269	
==>ft(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1159	1269	
==>ft(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
pack <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	263	362	
==>oinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	263	362	
==>oinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22329	22455	
==>,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# so <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22329	22455	
==>,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# so <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22329	22455	
==>,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20672	20844	
==>TORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20672	20844	
==>TORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20672	20844	
==>TORING @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10528	10663	
==>/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10528	10663	
==>/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10528	10663	
==>/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Ar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25764	25859	
==>mponents.

Any versions of Rosetta that you modify and distribute must carry prominent
notices s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25764	25859	
==>mponents.

Any versions of Rosetta that you modify and distribute must carry prominent
notices s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	236	349	
==>ata::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4116	4199	
==>::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4116	4199	
==>::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7140	7257	
==>oes call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::poss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7140	7257	
==>oes call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::poss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7140	7257	
==>oes call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::poss <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	81	183	
==>se Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	81	183	
==>se Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.outp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2339	2555	
==>d.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2339	2555	
==>d.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!con <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10735	10837	
==>--> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\n", !. %# XXX - not quite?
p6_char_cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6934	7055	
==>] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6934	7055	
==>] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## r <==
3	/Users/nnunley/pugs/util/version_h.pl	109	204	
==>version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/entries";

my $old_rev <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4198	4334	
==>pDefault"> ) 
        );
    }
    elsif $tree[0] eq '"MkParam"' {
        my %pad = $tree[1];  # keys: "isInvocant""isLValue""isLazy""is <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2516	2631	
==>clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2516	2631	
==>clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1363	1506	
==>e.new(:node<Scalar>).add_children(
                        Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3125	3251	
==>tine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print D <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3589	3715	
==>tine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2373	2529	
==>ethod.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2373	2529	
==>ethod.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2373	2529	
==>ethod.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1905	2050	
==>xt unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cookies <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1905	2050	
==>xt unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cookies <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1088	1212	
==>y[42] = 1500 (1500 commits from day 1 to day 42)
my @commits_till_day = dayify(@commits);
my @devs_till_day    = dayify(@deve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	214	323	
==>t   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	214	323	
==>t   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	214	323	
==>t   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	706	857	
==>[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	678	824	
==>[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1035	1147	
==>n" .
           "use base 'Pugs::Grammar::Base';\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<id <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3721	3815	
==>hemselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3721	3815	
==>hemselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6540	6645	
==>->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6540	6645	
==>->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6540	6645	
==>->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1947	2040	
==>CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1947	2040	
==>CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21119	21219	
==>the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of the conven <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21119	21219	
==>the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of the conven <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2508	2605	
==>operty_attributes{$P};
    return JSX::false if $attr && $attr.ReadOnly;
    delete $O.property_va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	619	722	
==>ance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	619	722	
==>ance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	619	722	
==>ance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3767	3989	
==>ng Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.sp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3767	3989	
==>ng Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.sp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4170	4283	
==>eriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	331	433	
==>riptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	331	433	
==>riptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	331	433	
==>riptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7073	7165	
==>$pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $pB <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31637	31735	
==>other set for itself.  When the program is run, it would
determine either from a user config file o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31637	31735	
==>other set for itself.  When the program is run, it would
determine either from a user config file o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3344	3436	
==>:Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) <p6ws> <variable> <p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4065	4173	
==>1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4065	4173	
==>1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4065	4173	
==>1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation outside a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1404	1502	
==>lassname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1404	1502	
==>lassname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1404	1502	
==>lassname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1343	1442	
==>ore strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1343	1442	
==>ore strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2546	2671	
==>rl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2546	2671	
==>rl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2546	2671	
==>rl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	427	612	
==>|| ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	342	527	
==>|| ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	430	615	
==>|| ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	103	213	
==>ta::Dumper;
$Data::Dumper::Indent = 1;

sub _mangle_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8967	9074	
==>n = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9025	9132	
==>n = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2145	2248	
==>nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2145	2248	
==>nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6014	6115	
==>o_type)) {
			warn "filling " . $self->display_type($expected_type) . " for placeholder of " . Blondie <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1290	1422	
==>mpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Pa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11951	12047	
==>his is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11951	12047	
==>his is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13804	13971	
==>ror_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 peop <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13804	13971	
==>ror_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 peop <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19294	19385	
==>thorized> response.
The field value consist of a challenge that indicates the
authentication <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19294	19385	
==>thorized> response.
The field value consist of a challenge that indicates the
authentication <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5629	5742	
==>g{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "*** g <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24228	24321	
==>nding and
will support multiple languages or locales simultaneously at run time.

=head1 INTER <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24228	24321	
==>nding and
will support multiple languages or locales simultaneously at run time.

=head1 INTER <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13673	13829	
==>->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18772	18869	
==>tored in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18772	18869	
==>tored in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2012	2110	
==>('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2012	2110	
==>('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2012	2110	
==>('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1054	1152	
==>der.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1054	1152	
==>der.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1134	1232	
==>der.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10603	10709	
==>be implemented
    # -----------------------------------------------

    method add_method;
    method get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10603	10709	
==>be implemented
    # -----------------------------------------------

    method add_method;
    method get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10603	10709	
==>be implemented
    # -----------------------------------------------

    method add_method;
    method get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5609	5707	
==>push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5609	5707	
==>push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5609	5707	
==>push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12376	12497	
==>nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num(${$_[0]}) } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10783	10881	
==>ugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10841	10939	
==>ugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14989	15157	
==>op @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14989	15157	
==>op @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14989	15157	
==>op @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            fo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	820	1022	
==>work over http mirrors etc!
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS,
        }
    };
    
    my $args = check( $tmpl, \ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	431	541	
==>n->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	451	556	
==>n->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21990	22108	
==>cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  reps_1:
    reps[cnam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4643	4748	
==>:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makein <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4643	4748	
==>:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makein <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	484	588	
==>ur $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	484	588	
==>ur $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	484	588	
==>ur $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1244	1338	
==>oesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, w <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1244	1338	
==>oesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, w <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	144	238	
==>e Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict 'var <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	837	976	
==>har eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	837	976	
==>har eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5995	6119	
==>);
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5983	6107	
==>);
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1488	1610	
==>self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->tar <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13814	13920	
==>se Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Spa <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13814	13920	
==>se Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Spa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7476	7595	
==>{ $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7225	7339	
==>{ $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2155	2252	
==>strings such as \n
my %backslash_escape;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backslash_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10599	10736	
==>b { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10599	10736	
==>b { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10599	10736	
==>b { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3191	3294	
==>, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3191	3294	
==>, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3191	3294	
==>, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2880	2987	
==>s",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2880	2987	
==>s",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2880	2987	
==>s",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_bas <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	63	169	
==>rter Smart-Match-Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion();
#=Alles zusamme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9402	9585	
==>) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9402	9585	
==>) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9402	9585	
==>) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9469	9588	
==>".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9469	9588	
==>".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9469	9588	
==>".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	741	840	
==>o warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	741	840	
==>o warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	741	840	
==>o warnings "recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13191	13291	
==>xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13191	13291	
==>xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13191	13291	
==>xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5052	5150	
==>pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5052	5150	
==>pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5052	5150	
==>pil\n";
}

sub command_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift) <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12727	12848	
==>->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1454	1558	
==>...
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1454	1558	
==>...
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1454	1558	
==>...
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6559	6671	
==>, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6559	6671	
==>, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6559	6671	
==>, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11079	11188	
==>cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11079	11188	
==>cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11079	11188	
==>cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify = <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2219	2322	
==>ss Class::Events::Subscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role C <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9746	9842	
==>o facilitate the Pugs test suite. It has the
distinction of being the very first module written f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9804	9900	
==>o facilitate the Pugs test suite. It has the
distinction of being the very first module written f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1826	1918	
==>lf to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1826	1918	
==>lf to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1826	1918	
==>lf to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17403	17504	
==>ns for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17403	17504	
==>ns for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17403	17504	
==>ns for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18353	18562	
==>xt METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18353	18562	
==>xt METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18353	18562	
==>xt METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5103	5202	
==>"PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5103	5202	
==>"PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5103	5202	
==>"PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19707	19827	
==>lue->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19707	19827	
==>lue->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19707	19827	
==>lue->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	493	604	
==>5-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	493	604	
==>5-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	493	604	
==>5-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 200 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1050	1154	
==>ckage MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1050	1154	
==>ckage MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1025	1130	
==>d .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1025	1130	
==>d .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1025	1130	
==>d .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11174	11315	
==>elimiter was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $linkfile = $1 if ($linkfile =~ /^"(.*)"$/);
 
      i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2823	2921	
==>PORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently ru <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2823	2921	
==>PORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1308	1423	
==>e.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1296	1411	
==>e.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	719	853	
==>loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	719	853	
==>loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	719	853	
==>loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1195	1306	
==>b store {
    my ($self, $key, $value) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key mu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1303	1406	
==>$self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return B <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1303	1406	
==>$self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2940	3062	
==>y) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2940	3062	
==>y) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2940	3062	
==>y) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&so <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4455	4572	
==>irs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4455	4572	
==>irs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13383	13482	
==>),
}

# identifiers pass the generic variables unchanged
ide: generic($$) = { generic_in($$) }

# if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6493	6590	
==>rs and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6493	6590	
==>rs and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6493	6590	
==>rs and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11527	11720	
==>ess $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11527	11720	
==>ess $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11527	11720	
==>ess $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10506	10654	
==>asses;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10506	10654	
==>asses;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8332	8434	
==>d map (Set of Str $heading!, Code $replacements!) returns Relation::Example {
    return Relation::Exam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38416	38512	
==>O.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CO <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42965	43061	
==>O.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CO <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42615	42711	
==>O.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7748	7918	
==>new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7748	7918	
==>new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7748	7918	
==>new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } @arg;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3811	3927	
==>_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7288	7404	
==>_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => se <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	626	778	
==>rn $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1132	1242	
==>n ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1132	1242	
==>n ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == In <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1153	1250	
==>ompiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1153	1250	
==>ompiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may ha <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20969	21066	
==>e tell telldir truncate umask
# unlink utime warn


# chroot crypt exec getlogin /[get|set][pw|gr] <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	680	787	
==>0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running t <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	680	787	
==>0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9371	9468	
==>neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charse <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36125	36220	
==>pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40674	40769	
==>pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40288	40383	
==>pairwise-matching every
tuple of the invocant relation with every tuple of the <$other> relation <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6863	6957	
==>_get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6863	6957	
==>_get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	128	231	
==>ate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	128	231	
==>ate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	128	231	
==>ate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	404	509	
==>js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	404	509	
==>js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	404	509	
==>js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	974	1081	
==>tructure and recurses through its
hierarchy, reblessing objects that it finds along the way into new
namespa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	974	1081	
==>tructure and recurses through its
hierarchy, reblessing objects that it finds along the way into new
namespa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	974	1081	
==>tructure and recurses through its
hierarchy, reblessing objects that it finds along the way into new
namespa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4017	4140	
==>ewline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4210	4333	
==>ewline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1785	1901	
==>y $name = $self->name
            or die "all_from called with no args without setting name() first";
        $file = <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	560	665	
==>msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	560	665	
==>msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13540	13668	
==>me(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_pers <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13540	13668	
==>me(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_pers <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3259	3373	
==>n't close \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14292	14386	
==>U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14292	14386	
==>U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14292	14386	
==>U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3333	3489	
==>: $matches[1]

            return $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3227	3379	
==>: $matches[1]
            return $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9598	9723	
==>VERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9598	9723	
==>VERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9598	9723	
==>VERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elems; 
            push @list, @l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4832	4933	
==>x for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4832	4933	
==>x for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4832	4933	
==>x for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	81	216	
==>= '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	81	216	
==>= '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	81	216	
==>= '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13555	13653	
==>ntation
could be started).  This is most useful when writing modules and you
find there is some lan <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13613	13711	
==>ntation
could be started).  This is most useful when writing modules and you
find there is some lan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6074	6164	
==>e($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required paramete <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6074	6164	
==>e($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required paramete <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6074	6164	
==>e($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required paramete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	849	960	
==>of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	849	960	
==>of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	849	960	
==>of the opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2649	2757	
==>m recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2649	2757	
==>m recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2649	2757	
==>m recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11389	11481	
==>erited. This provides more predictable 
behavior to class consturction because it isolates th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11389	11481	
==>erited. This provides more predictable 
behavior to class consturction because it isolates th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11389	11481	
==>erited. This provides more predictable 
behavior to class consturction because it isolates th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2974	3076	
==>erl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2974	3076	
==>erl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2974	3076	
==>erl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if no <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15203	15306	
==>so \digit works forever. */

  I32 *startp;
  I32 *endp;

for $n (eg $1 => n=1), 1<=n<=nparens,
startp[n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	900	992	
==>Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	900	992	
==>Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29223	29323	
==>he tree.

=item my $m = $obj->merge()

Merges this node with the previous one, if they are of the sam <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4422	4512	
==>ipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4422	4512	
==>ipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	622	730	
==>lf->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextTo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	622	730	
==>lf->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextTo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	622	730	
==>lf->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextTo <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1694	1824	
==>$i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub splice (@a is rw, $offset=0, $len <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1759	1858	
==>ing object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {... <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1759	1858	
==>ing object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2379	2503	
==>rray.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2379	2503	
==>rray.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2379	2503	
==>rray.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9934	10045	
==>$prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9934	10045	
==>$prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17970	18111	
==>al);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14391	14532	
==>al);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	854	956	
==>er's
# Perl6::Rule::Parser does NOT look like it's mature enough to bear
# our weight, to be a next ste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5420	5534	
==>$_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5420	5534	
==>$_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5420	5534	
==>$_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10666	10773	
==>",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10666	10773	
==>",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10666	10773	
==>",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17442	17577	
==>eading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20919	21054	
==>eading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20506	20641	
==>eading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	493	605	
==>$self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	493	605	
==>$self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	493	605	
==>$self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37542	37632	
==>a string) and tries to load it using 'require'.

=item C<get_template_text_from_loaded_modu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37542	37632	
==>a string) and tries to load it using 'require'.

=item C<get_template_text_from_loaded_modu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5493	5609	
==>subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5493	5609	
==>subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5493	5609	
==>subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5801	6024	
==>},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5801	6024	
==>},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5801	6024	
==>},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23249	23345	
==>ations.  Or alternately, the other
packages require your text data to be stored in a format other <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23249	23345	
==>ations.  Or alternately, the other
packages require your text data to be stored in a format other <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1941	2052	
==>h event.
    # Note that I use the test number for reference, which will
    # blow up in our faces when tests a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13896	13995	
==>skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can u <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13954	14053	
==>skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2953	3077	
==>l} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2953	3077	
==>l} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2953	3077	
==>l} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1538	1643	
==>, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2->match('ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12998	13212	
==>y;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12998	13212	
==>y;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12998	13212	
==>y;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4852	4970	
==>>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a plan set before you ca <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4852	4970	
==>>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a plan set before you ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6376	6494	
==>>,
there is no set number of tests to run.

Those are the only valid arguments.

You must have a plan set before you ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30367	30492	
==>t_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30367	30492	
==>t_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30367	30492	
==>t_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11306	11422	
==>source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14783	14899	
==>source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14091	14207	
==>source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10541	10701	
==>ems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub rever <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10541	10701	
==>ems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub rever <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10541	10701	
==>ems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	29	155	
==>rser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	29	155	
==>rser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	29	155	
==>rser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34093	34205	
==>y->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34093	34205	
==>y->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34093	34205	
==>y->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2486	2583	
==>:{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2486	2583	
==>:{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2486	2583	
==>:{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24053	24194	
==>a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24053	24194	
==>a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24053	24194	
==>a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3932	4129	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3932	4129	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3932	4129	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3976	4074	
==>em * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4160	4258	
==>em * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11490	11652	
==>\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7772	7934	
==>\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8606	8768	
==>\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1860	1968	
==>H(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1860	1968	
==>H(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1860	1968	
==>H(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14290	14456	
==>f $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14290	14456	
==>f $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14290	14456	
==>f $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4291	4379	
==>warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4291	4379	
==>warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4291	4379	
==>warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2420	2518	
==>s  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2420	2518	
==>s  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2420	2518	
==>s  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_chec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5249	5382	
==>he attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5249	5382	
==>he attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5249	5382	
==>he attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4254	4414	
==>@_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4254	4414	
==>@_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4254	4414	
==>@_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12982	13091	
==>) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12982	13091	
==>) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12982	13091	
==>) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4197	4334	
==>urce = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_cou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4197	4334	
==>urce = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_cou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4197	4334	
==>urce = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_cou <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3232	3357	
==>luePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('valu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10405	10516	
==>an.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10405	10516	
==>an.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $se <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	400	506	
==>0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	400	506	
==>0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1864	1968	
==>( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1864	1968	
==>( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1944	2048	
==>( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5669	5769	
==>2 new ()

Class method.  Returns a category object.

options:

=item * name => $category_name - the n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18134	18229	
==>descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, sc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18134	18229	
==>descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13514	13627	
==>ainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13514	13627	
==>ainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13514	13627	
==>ainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3732	3862	
==>arename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3732	3862	
==>arename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3732	3862	
==>arename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3374	3480	
==>f_2object(ref($node) ? $node : \$node);
		my $class = B::class($obj);

		return $class unless $class eq "PV <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	214	318	
==>urns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	214	318	
==>urns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16395	16490	
==>@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This pro <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16453	16548	
==>@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This pro <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2040	2143	
==>eturns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $yea <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2040	2143	
==>eturns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $yea <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7006	7108	
==>n $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32(JSX::Value $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3997	4099	
==>epc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3997	4099	
==>epc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3997	4099	
==>epc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_p <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1429	1588	
==>rlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1429	1588	
==>rlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1483	1585	
==>:Result;
use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless {
	value => $val <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1587	1725	
==>pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_error), return;
        
        my $obj = $clas <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4306	4414	
==>ment ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4306	4414	
==>ment ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1821	1980	
==>ESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Lo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1821	1980	
==>ESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2454	2559	
==>, "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2454	2559	
==>, "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2454	2559	
==>, "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11669	11766	
==>elves does Role since they
are just instances of Class which does Role too. So this means that all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11669	11766	
==>elves does Role since they
are just instances of Class which does Role too. So this means that all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11669	11766	
==>elves does Role since they
are just instances of Class which does Role too. So this means that all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9993	10173	
==>d      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	557	727	
==>d      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	557	727	
==>d      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39818	39912	
==>of the GNU Lesser General Public License (LGPL) as
published by the Free Software Foundation (L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39818	39912	
==>of the GNU Lesser General Public License (LGPL) as
published by the Free Software Foundation (L <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36448	36545	
==>reference of any number of objects

Ender: tail

=head2 ifthen

Family: assertion

Types: ifthen ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10926	11023	
==>_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo singl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8448	8543	
==>_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo singl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8481	8611	
==>x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8481	8611	
==>x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8481	8611	
==>x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	618	744	
==>eturn { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	634	760	
==>eturn { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	610	736	
==>eturn { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1748	1943	
==>F, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1748	1943	
==>F, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18570	18677	
==>ntf # XXX - see Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replace <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3317	3410	
==>ss($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3317	3410	
==>ss($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3317	3410	
==>ss($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	650	768	
==>d(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	650	768	
==>d(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	650	768	
==>d(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2673	2806	
==>ity($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2673	2806	
==>ity($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2673	2806	
==>ity($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14707	14810	
==>Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14707	14810	
==>Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14707	14810	
==>Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	274	380	
==>n class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse give <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	274	380	
==>n class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse give <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	274	380	
==>n class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "No string to parse give <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8160	8307	
==>le, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4520	4667	
==>le, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5369	5516	
==>le, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16248	16388	
==>$_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19725	19865	
==>$_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19258	19398	
==>$_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23980	24089	
==>@{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->err <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20401	20510	
==>@{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->err <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29922	30019	
==>tuffed hash
and an accessor method to read values from it by key.  Each template hash
key correspo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29922	30019	
==>tuffed hash
and an accessor method to read values from it by key.  Each template hash
key correspo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11971	12079	
==>$dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11971	12079	
==>$dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2060	2223	
==>mp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2060	2223	
==>mp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2060	2223	
==>mp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        la <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	448	602	
==>hive'\n";
    
        ### get the metadata out
        {   ### extract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37087	37181	
==>ed by
translate_message() to handle the trickier parts of its work:

=over

=item C<template_mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37087	37181	
==>ed by
translate_message() to handle the trickier parts of its work:

=over

=item C<template_mo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7569	7664	
==>hchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7569	7664	
==>hchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1318	1543	
==>t;
            }         
            
            # deal with strings   
            if ($t eq '"') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => rev <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17017	17119	
==>ple usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 . <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17017	17119	
==>ple usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	692	803	
==>gs, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	692	803	
==>gs, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	692	803	
==>gs, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1359	1494	
==>d splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1359	1494	
==>d splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3505	3622	
==>l, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5555	5672	
==>l, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23635	23743	
==>(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' af <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1216	1312	
==>ing", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, w <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1216	1312	
==>ing", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, w <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7499	7595	
==>$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14246	14343	
==>}
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14246	14343	
==>}
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enque <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	249	342	
==>:Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21968	22095	
==>::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4206	4302	
==>tch. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. De <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4390	4486	
==>tch. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. De <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8384	8527	
==>se {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8384	8527	
==>se {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8384	8527	
==>se {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6254	6389	
==>dle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at leas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6254	6389	
==>dle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at leas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20271	20369	
==>thod is also now abstracted -- each node it comes across
will have its walk() method called.  And t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3828	3936	
==>:{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3828	3936	
==>:{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3828	3936	
==>:{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_ty <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5762	5855	
==>d : cannot find object ($child_to_remove) in self";
}

## ------------------------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5762	5855	
==>d : cannot find object ($child_to_remove) in self";
}

## ------------------------------------ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23797	23880	
==>lace_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6659	6747	
==>eton_test_on_object'
});

is($Object->singleton_test_on_object(), 
   '&Object::singleton <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	953	1052	
==>CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	953	1052	
==>CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	953	1052	
==>CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9531	9640	
==>s_"  + id),
          expander = document.getElementById("expander_" + id);
      if(elem.className == "detail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8774	8878	
==>and also you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8483	8584	
==>and also you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8280	8390	
==>{ (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8280	8390	
==>{ (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8280	8390	
==>{ (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8260	8480	
==>ethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8260	8480	
==>ethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8260	8480	
==>ethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19301	19407	
==>al tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23853	23959	
==>al tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22369	22475	
==>al tuples; a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35604	35737	
==>$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35604	35737	
==>$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35604	35737	
==>$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positi <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1283	1399	
==>path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1283	1399	
==>path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22850	22935	
==>ember(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0,C,T).

%---- <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8295	8483	
==>te->param(directory => $path);
    $template->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => ! <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3565	3706	
==>e with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4029	4170	
==>e with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = s <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1951	2042	
==>h =~ s/([\/\\])[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20785	20900	
==>Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17206	17321	
==>Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	714	809	
==>u get from C<::SomeClass> references.

Note that this could be a different entity to the objects <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4320	4433	
==>ve 2147483648 and 2147483648
        # that stringify to the same thing but are acutally numerically
        # dif <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	110	201	
==>$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand() <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	110	201	
==>$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand() <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2273	2370	
==>gle test, assigning it the given C<$name>
for use in the total report.  Returns the C<%results> of <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9402	9646	
==>$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provid <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10879	11123	
==>$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provid <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29434	29534	
==>de types don't merge.  Returns true if
the node was merged with the previous one.

=item my $o = $obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4760	4856	
==>gex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4900	4996	
==>gex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for P <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	194	318	
==>r = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	194	318	
==>r = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	536	653	
==>spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	536	653	
==>spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	536	653	
==>spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4036	4159	
==>PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4036	4159	
==>PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4036	4159	
==>PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6958	7078	
==>pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6958	7078	
==>pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6958	7078	
==>pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7268	7381	
==>nels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KIL <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7268	7381	
==>nels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2168	2263	
==>e the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2168	2263	
==>e the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2168	2263	
==>e the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	540	651	
==>tor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	540	651	
==>tor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2779	2882	
==>est
script(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 Failure

Wh <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4244	4344	
==>p (v5.8.5)?!?
    return &$step;
  };
}

my @whitespaces;
my $ws = def_rule('ws',mk_dynamic_alt(\@whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18750	18870	
==>n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( sta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18750	18870	
==>n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( sta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18750	18870	
==>n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( sta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2963	3059	
==>ery string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2963	3059	
==>ery string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5119	5233	
==>pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5119	5233	
==>pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2023	2137	
==>pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param', <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12994	13099	
==>ll( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16471	16576	
==>ll( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15833	15938	
==>ll( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cr <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1697	1809	
==>f $position < 0 or $position <= $from;
  return substr $target, $from, $position;  
}

#get_string_keyed_int
#get <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	816	913	
==>rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	816	913	
==>rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26817	26908	
==>parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26817	26908	
==>parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3250	3371	
==>] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3145	3264	
==>] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1059	1170	
==>s::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3372	3472	
==>{ Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4473	4569	
==>ecrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    p <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4473	4569	
==>ecrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3266	3406	
==>$type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3266	3406	
==>$type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3266	3406	
==>$type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13030	13140	
==>($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13030	13140	
==>($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13030	13140	
==>($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13144	13253	
==>6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13144	13253	
==>6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13144	13253	
==>6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2700	2838	
==>) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    registe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2700	2838	
==>) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    registe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2700	2838	
==>) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    registe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10281	10392	
==>ut it
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10281	10392	
==>ut it
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10281	10392	
==>ut it
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2565	2653	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2777	2865	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	348	512	
==>_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	348	512	
==>_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	348	512	
==>_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6670	6789	
==>type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6670	6789	
==>type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6670	6789	
==>type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9843	9956	
==>>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19460	19553	
==>ts but that the target relation
variables are system catalog relation variables rather than us <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19460	19553	
==>ts but that the target relation
variables are system catalog relation variables rather than us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8584	8737	
==>SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8584	8737	
==>SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8584	8737	
==>SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	426	543	
==>..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Per <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	426	543	
==>..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	124	235	
==>::Yapp;

my %relative_precedences = (
    tighter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4612	4762	
==>afe   (Scalar)\
\\n   List      post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   ( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16067	16176	
==>ymbol};
    my $val = $self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a pre <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1551	1643	
==>")){
			my $reduced = $self->SUPER::generic_reduce($node);
			return $self->constructor($redu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1408	1509	
==>cope;

	pop @{ $self->{param_count_stack} };
}

sub count_param {
	my $self = shift;
	$self->{param_co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32832	32923	
==>lusion (Relation $other!) returns Relation>

This multi-method is a generic binary relationa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37382	37473	
==>lusion (Relation $other!) returns Relation>

This multi-method is a generic binary relationa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	850	948	
==>eing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	850	948	
==>eing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	469	562	
==>die::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10129	10226	
==>:PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10129	10226	
==>:PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10129	10226	
==>:PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12689	12782	
==>::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12689	12782	
==>::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12689	12782	
==>::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16988	17093	
==>eta = "${ROOT}::${pkg}::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefully remain unused. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	493	597	
==>$msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	493	597	
==>$msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2297	2395	
==>a aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<gen <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2297	2395	
==>a aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<gen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5330	5426	
==>als to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5330	5426	
==>als to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5330	5426	
==>als to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1419	1516	
==>ur $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1419	1516	
==>ur $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1419	1516	
==>ur $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2629	2748	
==>oxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2629	2748	
==>oxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2629	2748	
==>oxing/un-boxing
# TODO - add support for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)-> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13647	13784	
==>n) {
        # create HTML out of the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37567	37662	
==>elation is the result of combining all of the source Relations,
such that all common attribute n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42116	42211	
==>elation is the result of combining all of the source Relations,
such that all common attribute n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13137	13270	
==>ble = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13137	13270	
==>ble = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13137	13270	
==>ble = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attri <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3568	3687	
==>ewSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2644	2751	
==>WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6233	6345	
==><EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6233	6345	
==><EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6233	6345	
==><EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewlin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3392	3487	
==>the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 A <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3392	3487	
==>the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	875	971	
==>LS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	875	971	
==>LS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	875	971	
==>LS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1302	1418	
==>py) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1302	1418	
==>py) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1511	1627	
==>py) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17335	17429	
==>10
      <BitwiseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpressio <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24904	24997	
==>ston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other components is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24904	24997	
==>ston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other components is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4541	4655	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4541	4655	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4541	4655	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1996	2127	
==>$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::R <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1996	2127	
==>$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4980	5100	
==>ds, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4980	5100	
==>ds, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7798	7898	
==>_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    return e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16383	16487	
==>or',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) error/synt <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36298	36388	
==>'MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produce t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36298	36388	
==>'MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produce t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2185	2279	
==>add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2185	2279	
==>add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2185	2279	
==>add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.d <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1178	1276	
==>ned for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective e <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1178	1276	
==>ned for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11618	11768	
==>rces.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15095	15245	
==>rces.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14430	14580	
==>rces.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9954	10065	
==>rl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'nam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9954	10065	
==>rl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'nam <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1490	1584	
==>_kw}\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $1 {/g;
    $_
}


my $conv = << <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	239	347	
==>turn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scop <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	239	347	
==>turn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scop <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	239	347	
==>turn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scop <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3168	3318	
==>[{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3168	3318	
==>[{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1593	1741	
==>{ $_[0]->{out}= { attribute => [
                [$_[2], $_[3],],
            ], %{$_[1]} } }
    ;

signature:
        #empty  
        { $_[0]->{ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3559	3666	
==>pen pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3559	3666	
==>pen pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3559	3666	
==>pen pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14424	14556	
==>E:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14424	14556	
==>E:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14424	14556	
==>E:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13596	13691	
==>" here means "whatever annotation went with this attribute when it's declared"
::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13596	13691	
==>" here means "whatever annotation went with this attribute when it's declared"
::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13596	13691	
==>" here means "whatever annotation went with this attribute when it's declared"
::Class.meta.add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	58	168	
==>nks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	58	168	
==>nks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	58	168	
==>nks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	379	475	
==>int($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  m <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	379	475	
==>int($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11674	11823	
==>est{failed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $details = $resu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10293	10390	
==>set the value of one or more header fields.  The header field
name ($field) is not case sensitive. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10293	10390	
==>set the value of one or more header fields.  The header field
name ($field) is not case sensitive. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8333	8490	
==>a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8333	8490	
==>a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8333	8490	
==>a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	564	690	
==>nstalled
    {   my @list = LoadFile( $Available );
        if ( grep { $_->{package} eq $path } @list ) {
            warn "$p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9687	9781	
==>to override these
method _head() returns Array { return }
method _tail() returns Array { return <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9687	9781	
==>to override these
method _head() returns Array { return }
method _tail() returns Array { return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	645	772	
==>EndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	645	772	
==>EndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	645	772	
==>EndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2088	2219	
==>"\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2088	2219	
==>"\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2168	2299	
==>"\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	209	328	
==>**************

use strict;
use warnings;
no warnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18775	18876	
==>(my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20133	20234	
==>(my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1163	1265	
==>work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1163	1265	
==>work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1163	1265	
==>work but performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1779	1897	
==>pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1779	1897	
==>pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1779	1897	
==>pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9916	10010	
==>o as "immediate" and "deferred".  The immediate validations
are performed at the moment the use <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9916	10010	
==>o as "immediate" and "deferred".  The immediate validations
are performed at the moment the use <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25730	25823	
==>bove messages.

=item C<FAILED--Further testing stopped: %s>

If a single subtest decides that <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1262	1396	
==>|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array.new
                if !stack <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2276	2400	
==>small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2276	2400	
==>small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1228	1327	
==>ont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1228	1327	
==>ont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1228	1327	
==>ont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1344	1451	
==>open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<den <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1344	1451	
==>open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<den <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7384	7575	
==>->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7384	7575	
==>->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7384	7575	
==>->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8850	8987	
==>ier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8846	8983	
==>ier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10334	10441	
==>atch (end+1)
    match - positional submatches
    named - named submatches
    capture - return'ed thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4330	4443	
==>BLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4330	4443	
==>BLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4330	4443	
==>BLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return b <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16762	16882	
==>pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if has_gram goto p6rule_1
    gr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14194	14288	
==>ss()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) ret <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14252	14346	
==>ss()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18303	18406	
==>~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18303	18406	
==>~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18303	18406	
==>~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4740	4843	
==>stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4740	4843	
==>stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4740	4843	
==>stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2115	2229	
==>tant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2115	2229	
==>tant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2115	2229	
==>tant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	754	895	
==>n $self->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shi <==
3	/Users/nnunley/pugs/util/package-osx.pl	6365	6462	
==>view::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5087	5209	
==>:fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5087	5209	
==>:fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5087	5209	
==>:fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #w <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	195	349	
==>hr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @tests = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2096	2199	
==>r($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2096	2199	
==>r($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5074	5167	
==>n>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic messa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5074	5167	
==>n>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic messa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7271	7364	
==>n>

The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic messa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32590	32683	
==>in purpose is to convert Message objects on demand into user-readable
message strings, using d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32590	32683	
==>in purpose is to convert Message objects on demand into user-readable
message strings, using d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	315	421	
==>S_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	315	421	
==>S_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	315	421	
==>S_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe {
    bool::true}

multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	751	872	
==>shes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	751	872	
==>shes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	751	872	
==>shes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } gen <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9057	9158	
==>s used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_h <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9057	9158	
==>s used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29028	29124	
==>ich wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33580	33676	
==>ich wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32717	32813	
==>ich wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2067	2185	
==>otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2067	2185	
==>otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2067	2185	
==>otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1112	1238	
==>et pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $gramma <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	707	797	
==>azy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	707	797	
==>azy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08 <==
3	/Users/nnunley/pugs/util/importgraph.pl	2591	2711	
==>luster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  while(my ($k, $edge) = each %{$module->[ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5970	6062	
==>ec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    giv <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5970	6062	
==>ec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    giv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3419	3507	
==>rclass'} = $Object;

## ----------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4113	4201	
==>rclass'} = $Object;

## ----------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5321	5409	
==>rclass'} = $Object;

## ----------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1787	1897	
==>Scope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1787	1897	
==>Scope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1787	1897	
==>Scope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14242	14340	
==>k") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:en <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14242	14340	
==>k") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	38	133	
==>net.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	38	133	
==>net.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	38	133	
==>net.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.14159265358979323846264338327950288 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1162	1278	
==>[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1162	1278	
==>[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1162	1278	
==>[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6346	6448	
==>nshift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (within "._q($range).") <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16472	16611	
==>eading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19949	20088	
==>eading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19509	19648	
==>eading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3271	3411	
==>e $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3271	3411	
==>e $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4427	4527	
==>def>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rules.

=item * Perl5 => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	126	228	
==>ass Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  B <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	126	228	
==>ass Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  B <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52329	52429	
==>boostrapping

# < Class is subclass of Object >
$::Class->set_attr(symbol->new('@:superclasses') => l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4420	4539	
==>}, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4420	4539	
==>}, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4420	4539	
==>}, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4974	5079	
==>Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4974	5079	
==>Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4974	5079	
==>Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	652	764	
==>($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	652	764	
==>($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	652	764	
==>($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = sh <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1955	2103	
==>el2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1955	2103	
==>el2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11874	11992	
==>. q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the tes <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5362	5461	
==>operties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5362	5461	
==>operties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9601	9696	
==>x) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9601	9696	
==>x) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9601	9696	
==>x) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_requir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	312	416	
==>e used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	312	416	
==>e used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13527	13676	
==>e are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13527	13676	
==>e are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13527	13676	
==>e are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3268	3403	
==>[ _ | <?alnum> ]+
        ]+
    |   <before \< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->co <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	985	1096	
==>ry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $topic ~~ $wikiwords;
        %wik <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	451	544	
==>dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DES <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	451	544	
==>dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2554	2665	
==>code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2554	2665	
==>code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2554	2665	
==>code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matte <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16713	16818	
==>yof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13134	13239	
==>yof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => s <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16089	16190	
==>$self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefined global <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5666	5842	
==>ations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5666	5842	
==>ations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10279	10437	
==>{ $_->package ne $inst_pkg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1969	2103	
==>',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        precedence = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11020	11114	
==>Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utili <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11020	11114	
==>Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utili <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1232	1334	
==>s to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1232	1334	
==>s to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1232	1334	
==>s to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1787	1902	
==>k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XX <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	964	1077	
==>k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XX <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1437	1550	
==>k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3572	3681	
==>:name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3572	3681	
==>:name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3572	3681	
==>:name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1030	1131	
==>core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1030	1131	
==>core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1030	1131	
==>core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	638	740	
==>_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	638	740	
==>_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	638	740	
==>_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5610	5777	
==>h will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6074	6241	
==>h will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _pa <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20470	20635	
==>),
									param => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36575	36702	
==>{
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36575	36702	
==>{
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36575	36702	
==>{
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12028	12123	
==>ll_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12028	12123	
==>ll_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12028	12123	
==>ll_perl5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2053	2149	
==>lf) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2053	2149	
==>lf) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2053	2149	
==>lf) }
method chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) } <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26477	26582	
==>ringify, "∀α. ∀β. list α → list β → list (α × β)", "pretty print :t zip");
}




# tests fo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	829	933	
==>:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $director <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	829	933	
==>:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $director <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1053	1160	
==>oxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1053	1160	
==>oxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1053	1160	
==>oxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    / <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13151	13269	
==>>( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9337	9455	
==>>( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10173	10291	
==>>( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\" <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16325	16428	
==>rw --> Int )

Related to C<chop>, only removes trailing chars that match C</\n/>. In
either case, it ret <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19059	19158	
==>o_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19059	19158	
==>o_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17620	17800	
==>RSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17620	17800	
==>RSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17620	17800	
==>RSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3700	3859	
==>$port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3700	3859	
==>$port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35977	36075	
==>d merged.  The heading
of the new relation is the union of the invocant and <$other> headings. 
The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40527	40624	
==>d merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40141	40238	
==>d merged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11871	11988	
==>$hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # W <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11871	11988	
==>$hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # W <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1400	1508	
==>tcircumfix', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1836	1952	
==>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1836	1952	
==>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::C <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3710	3813	
==>nd_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->val . " to $type";

		Blondie::TypeSaf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19940	20034	
==>ore mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24492	24586	
==>ore mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23044	23138	
==>ore mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	331	588	
==>t values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given ve <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	331	588	
==>t values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	468	564	
==>is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	468	564	
==>is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	468	564	
==>is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	255	361	
==>R"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub uni <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	255	361	
==>R"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub uni <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3857	4021	
==>ant to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4321	4485	
==>ant to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                f <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17912	18067	
==>say 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23971	24119	
==>G_$_")) {
      my $v = $h->(1);       # 1 means this is 'on'
      if ($v) { &Rf |= $v }  # turn the flag on
      else { ... }           # the flag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7620	7747	
==>) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7620	7747	
==>) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17012	17101	
==>rclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17012	17101	
==>rclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17012	17101	
==>rclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasse <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31583	31680	
==>te> simply returns True or False regardless of its
argument, in which case the new Relation has ei <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36133	36230	
==>te> simply returns True or False regardless of its
argument, in which case the new Relation has ei <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11223	11344	
==>= $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	631	742	
==>$method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.define <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	631	742	
==>$method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.define <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1628	1766	
==>d not specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1628	1766	
==>d not specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2955	3057	
==>native(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7113	7226	
==>ze all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONT <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7113	7226	
==>ze all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14158	14244	
==>ibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14158	14244	
==>ibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14158	14244	
==>ibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2598	2733	
==>er};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2598	2733	
==>er};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2604	2706	
==>pe {
	my $self = shift;
	my $type = shift;

	$type = $type->type while Scalar::Util::blessed($type);
	$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	239	354	
==>m = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	239	354	
==>m = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16815	16924	
==>0);
        my $percent_ok = 100*$tot->{ok}/$tot->{max};
        my $subpct = sprintf " %d/%d subtests failed, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5759	5884	
==>for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5759	5884	
==>for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5759	5884	
==>for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3744	3879	
==>her || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::W <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3744	3879	
==>her || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::W <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3744	3879	
==>her || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::W <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	79	200	
==>s;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=f <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	79	200	
==>s;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3323	3473	
==>turn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3323	3473	
==>turn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3323	3473	
==>turn Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junct <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	464	569	
==>em> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $ma <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	464	569	
==>em> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4699	4812	
==>fg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4699	4812	
==>fg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4699	4812	
==>fg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	481	629	
==>the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	481	629	
==>the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	481	629	
==>the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13304	13411	
==>UB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13304	13411	
==>UB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13304	13411	
==>UB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9301	9409	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, $how);
  } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25959	26054	
==>nal copyright notice and other credits.
Rosetta is distributed in the hope that it will be usefu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25959	26054	
==>nal copyright notice and other credits.
Rosetta is distributed in the hope that it will be usefu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20999	21087	
==>C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20999	21087	
==>C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2176	2290	
==>ename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2176	2290	
==>ename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2176	2290	
==>ename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2418	2532	
==>ror(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2418	2532	
==>ror(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2418	2532	
==>ror(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5668	5809	
==>hen ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5668	5809	
==>hen ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5668	5809	
==>hen ...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2649	2790	
==>elf->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2649	2790	
==>elf->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2649	2790	
==>elf->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6633	6799	
==>rk (Mn)"
      # or "Combining spacing mark (Mc)"
      <Mn> | <Mc>
}
rule UnicodeDigit {  # see 7.6
      # any character in the Unicode category "Decimal number (Nd) <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	434	552	
==>urns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsa <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	434	552	
==>urns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6039	6146	
==>e_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6039	6146	
==>e_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6039	6146	
==>e_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26359	26522	
==>( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26359	26522	
==>( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26359	26522	
==>( ' ', map { Perl6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11253	11375	
==>+) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11253	11375	
==>+) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11253	11375	
==>+) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29665	29767	
==>wrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffected invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34217	34319	
==>wrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffected invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33381	33483	
==>wrapped tuple-valued attribute are the same as those of another,
or are the same as the unaffected invo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	276	419	
==>&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	276	419	
==>&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	276	419	
==>&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS) <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	779	901	
==>ed;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 19 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	779	901	
==>ed;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 19 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27483	27584	
==>rue value, forces it to behave as though STDOUT were
not a console.  You may need to set this if you d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	697	800	
==>ILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./lo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	697	800	
==>ILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./lo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12297	12397	
==>ted in place.

See L<http://www.nntp.perl.org/group/perl.perl6.language/16578> for more
details and e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21103	21218	
==>]
    isarray |= padarray
    self["isarray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto unscoped

  s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1637	1733	
==>i sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1637	1733	
==>i sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1794	1931	
==>thod keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method S <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1794	1931	
==>thod keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	916	1018	
==>e 'Pugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12700	12811	
==>e reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12700	12811	
==>e reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12700	12811	
==>e reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2637	2743	
==>e\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12, <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3073	3179	
==>e\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8632	8735	
==>ot call singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2001	2104	
==>self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2001	2104	
==>self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2001	2104	
==>self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14842	14939	
==>an Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from Meta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14842	14939	
==>an Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from Meta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14842	14939	
==>an Little E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from Meta <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5693	5799	
==>tests) = @_;
    my $chunk_size = POSIX::ceil(@$all_tests / ($child_count * 3 - 1));
    for my $child (1 . <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1146	1243	
==>, to explain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick refer <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1146	1243	
==>, to explain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick refer <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7569	7722	
==>q '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7581	7734	
==>q '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4117	4231	
==>-------------------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4117	4231	
==>-------------------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4117	4231	
==>-------------------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13791	13887	
==>> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13791	13887	
==>> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13791	13887	
==>> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12860	12996	
==>};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      return 1 if not FAILED($v);
    }
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40927	41021	
==>ay of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item J <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40927	41021	
==>ay of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item J <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4322	4417	
==>762772407663;
    # http://www.research.att.com/~njas/sequences/A001113
}

 multi method Array:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3162	3255	
==>:opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3162	3255	
==>:opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3162	3255	
==>:opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attri <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6988	7119	
==>ulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSubLValue">;
        dbg "# Para <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1415	1530	
==>m>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1415	1530	
==>m>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	495	597	
==>return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	495	597	
==>return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	495	597	
==>return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7203	7368	
==>->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7203	7368	
==>->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7203	7368	
==>->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8191	8320	
==>f Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8191	8320	
==>f Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8191	8320	
==>f Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	283	387	
==>e 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = compile($re) || die "Compile failed";
my <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2030	2126	
==>ut what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2030	2126	
==>ut what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4976	5092	
==>les;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4976	5092	
==>les;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4976	5092	
==>les;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1745	1848	
==>f.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1745	1848	
==>f.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1745	1848	
==>f.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6197	6304	
==>oy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6197	6304	
==>oy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6197	6304	
==>oy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	731	853	
==>)" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	731	853	
==>)" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	731	853	
==>)" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25778	25956	
==>@start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25778	25956	
==>@start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25778	25956	
==>@start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	283	439	
==>as %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	283	439	
==>as %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5608	5741	
==>me 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5435	5535	
==>urse, this feature is not available
when linking to a standalone JavaScript file.

Recommended usage: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5435	5535	
==>urse, this feature is not available
when linking to a standalone JavaScript file.

Recommended usage: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5435	5535	
==>urse, this feature is not available
when linking to a standalone JavaScript file.

Recommended usage: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2991	3102	
==>_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2991	3102	
==>_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_star <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10533	10690	
==>rray[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10533	10690	
==>rray[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10533	10690	
==>rray[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1316	1439	
==>rn ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $self->position();
}

sub as_bool {
  my ( $self ) =  @_;
  return $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27019	27120	
==>ale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27019	27120	
==>ale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedT <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2146	2260	
==>\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2146	2260	
==>\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3075	3175	
==>", $type, ++$self->{counters}{$type});
	}
}

sub define {
	my $self = shift;
	my ($node, $symbol, $bo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1500	1641	
==>ut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir   or return;

    return $self->co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39949	40048	
==>on 2.1 of the License, or (at your option) any later version.  You
should have received a copy of th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39949	40048	
==>on 2.1 of the License, or (at your option) any later version.  You
should have received a copy of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21432	21530	
==>om_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21432	21530	
==>om_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21432	21530	
==>om_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, H <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8633	8739	
==>anged nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8633	8739	
==>anged nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	992	1096	
==>e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_version = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12705	12846	
==>OAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12705	12846	
==>OAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12705	12846	
==>OAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALK <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	957	1091	
==>ub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	957	1091	
==>ub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1589	1700	
==>s the
    # only required language, but supporting C<Perl5> is I<strongly>
    # recommended.

    # safety of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18866	18999	
==>ass::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18866	18999	
==>ass::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18866	18999	
==>ass::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2127	2237	
==>me = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burs <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2127	2237	
==>me = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burs <==
3	/Users/nnunley/pugs/util/importgraph.pl	1452	1561	
==>pe = shift;
  my $name = shift;
  my $regexp = join '|', map {
    UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$_\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8424	8547	
==>elf->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8424	8547	
==>elf->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8424	8547	
==>elf->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	77	175	
==>l;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	77	175	
==>l;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	77	175	
==>l;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	206	356	
==>dy>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	206	356	
==>dy>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17465	17581	
==>lasses;
    shift(@classes); # dont want current class;
    push(@classes,$ROOT);

    my $code = "";
    $code .= "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7237	7394	
==>.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7237	7394	
==>.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7237	7394	
==>.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6253	6349	
==>a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Althou <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6253	6349	
==>a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Althou <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	803	904	
==>head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    retu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	803	904	
==>head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	509	607	
==>ill be put into the index files. jibs/ if
not specified.

=item index

Path to the index directory. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20676	20853	
==>NG @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20676	20853	
==>NG @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20676	20853	
==>NG @param";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Sc <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7447	7552	
==>ret = emit_Sub( $name, $body, $is_multi, $lvalue, @params, $type );
    }
    elsif $tree[0] eq '"PApp"' { <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5621	5714	
==>use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. De <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5621	5714	
==>use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. De <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7286	7400	
==>, PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7286	7400	
==>, PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7286	7400	
==>, PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5668	5806	
==>ft_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $mid <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5668	5806	
==>ft_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $mid <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5668	5806	
==>ft_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $mid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5050	5176	
==>rray(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5050	5176	
==>rray(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5050	5176	
==>rray(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20301	20409	
==>,B0,B0,E0,E0) :- !.
rm(eosnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1428	1527	
==>do, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1486	1585	
==>do, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6932	7056	
==>ll)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6932	7056	
==>ll)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6932	7056	
==>ll)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { document.write("Alert <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6746	6865	
==>'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6746	6865	
==>'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3645	3764	
==>'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1107	1222	
==>es %{ $_[0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8093	8212	
==>$tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8093	8212	
==>$tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8093	8212	
==>$tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6127	6230	
==>id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6127	6230	
==>id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6127	6230	
==>id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1220	1326	
==>$file = $inst->files_list( $meta->package );
            open my $fh, $file or die "Could not open '$file': <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3063	3154	
==>t {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::count : <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3063	3154	
==>t {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::count : <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	4012	4121	
==>elf->{path}/$1.pm";
        my $pkg = "$self->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6363	6456	
==>rs{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6363	6456	
==>rs{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6032	6143	
==>function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6032	6143	
==>function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6032	6143	
==>function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	860	957	
==>ernal packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	860	957	
==>ernal packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3103	3233	
==>tion;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3103	3233	
==>tion;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2812	2914	
==>($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2812	2914	
==>($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2812	2914	
==>($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6794	6903	
==>status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6794	6903	
==>status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8991	9100	
==>status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37646	37830	
==>ods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_a <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3387	3502	
==>ion.

>   Alive without breath;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in mail, never cl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14234	14328	
==>It would not make sense to iterate through a continuous span, because the "separation" 
between <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14234	14328	
==>It would not make sense to iterate through a continuous span, because the "separation" 
between <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9780	9919	
==>@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9780	9919	
==>@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9780	9919	
==>@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11578	11703	
==>f none($r, $w);
        my ($in, $out, $err) =
            Pugs::Internals::runInteractiveCommand($command);
        close $er <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7208	7311	
==>no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7220	7323	
==>no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	145	276	
==>.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	145	276	
==>.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27363	27459	
==>XITCODE>

Makes harness ignore the exit status of child processes when defined.

=item C<HARNESS_ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1630	1749	
==>oload $caller";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

use C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11448	11559	
==>->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11448	11559	
==>->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11448	11559	
==>->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3975	4078	
==>tch a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3975	4078	
==>tch a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4055	4158	
==>tch a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5861	5985	
==>, @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5861	5985	
==>, @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5861	5985	
==>, @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11247	11400	
==>%_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to preven <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11247	11400	
==>%_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to preven <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11247	11400	
==>%_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to preven <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	427	548	
==>RSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	427	548	
==>RSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	427	548	
==>RSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1874	1968	
==>n, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructo <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1874	1968	
==>n, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48607	48691	
==>nd('add_attribute', (symbol->new('$:authority') => attribute->new('$:authority' => 's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3044	3195	
==>A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3044	3195	
==>A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3044	3195	
==>A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2641	2747	
==>_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2641	2747	
==>_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2641	2747	
==>_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1008	1114	
==>compiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1008	1114	
==>compiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1008	1114	
==>compiled copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	796	897	
==>, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	796	897	
==>, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	796	897	
==>, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2082	2272	
==>y $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2082	2272	
==>y $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2082	2272	
==>y $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6456	6566	
==>IL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6456	6566	
==>IL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6456	6566	
==>IL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41121	41228	
==>Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41121	41228	
==>Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41121	41228	
==>Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1394	1534	
==>erms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1394	1534	
==>erms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19149	19276	
==>s $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19428	19555	
==>s $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Du <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19617	19722	
==>ist::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	573	672	
==>lf);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	573	672	
==>lf);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	573	672	
==>lf);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1955	2059	
==>Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1955	2059	
==>Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1955	2059	
==>Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2338	2462	
==>elds)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2338	2462	
==>elds)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1087	1196	
==>ous match from where it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18837	18957	
==>::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18837	18957	
==>::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18837	18957	
==>::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5399	5556	
==>( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5621	5778	
==>( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return u <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2551	2656	
==>lf)=@_;
    my @todo;
    for my $stage (reverse $self->_stages) {
	last if defined $self->{$stage};
	push <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6593	6718	
==>->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6593	6718	
==>->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7060	7178	
==>ast_error ), return;

=pod
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6118	6214	
==>dd_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6118	6214	
==>dd_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6118	6214	
==>dd_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1097	1206	
==>ss {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1097	1206	
==>ss {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1097	1206	
==>ss {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1268	1371	
==>itive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1268	1371	
==>itive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1268	1371	
==>itive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17214	17390	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17493	17669	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1915	2057	
==>[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]->( $_[0], $state[1], $_[2], $_[3]->{match}[1], 
                         $_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13705	13812	
==>does result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ), <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15230	15337	
==>does result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ), <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	74	173	
==>Code $f, Code $fprime) {
    $guess += ($target - $f($guess)) / $fprime($guess);
}

sub approxfprime <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3690	3783	
==>lear>

=back

Please read the HTTP::Query documentation for more information on these methods. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3690	3783	
==>lear>

=back

Please read the HTTP::Query documentation for more information on these methods. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1259	1382	
==>us::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1259	1382	
==>us::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	678	784	
==>il->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	678	784	
==>il->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	678	784	
==>il->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1185	1382	
==>ternatives';          # Alternative link dir                                                    
$Metaext        = '.info';                          # Extension for meta files
$Metafile       = 'MET <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3960	4051	
==>multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

= <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3960	4051	
==>multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

= <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5561	5662	
==>_after field is dual format (can also be a expressed as
# number of seconds from now), so we don't pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5561	5662	
==>_after field is dual format (can also be a expressed as
# number of seconds from now), so we don't pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1585	1690	
==>"S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1585	1690	
==>"S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1585	1690	
==>"S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1665	1793	
==>UR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1665	1793	
==>UR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1665	1793	
==>UR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	812	920	
==>PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	812	920	
==>PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	812	920	
==>PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2322	2480	
==>urn $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2322	2480	
==>urn $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2322	2480	
==>urn $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3189	3314	
==>ion> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3189	3314	
==>ion> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defin <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4360	4458	
==>ow;
}

sub splat { # recursive splatting happens in parametrized type operators, since they have ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5179	5291	
==>--link option not given), there has to be only one input file.
In linking mode, multiple input files may be speci <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5179	5291	
==>--link option not given), there has to be only one input file.
In linking mode, multiple input files may be speci <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5179	5291	
==>--link option not given), there has to be only one input file.
In linking mode, multiple input files may be speci <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8277	8383	
==>eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\". <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8277	8383	
==>eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\". <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11343	11437	
==>e/zero/positive,
signaling the first arguement should be before/tied with/after the
second in t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39698	39792	
==>t/> for more
information.

Locale::KeyedText is free software; you can redistribute it and/or m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39698	39792	
==>t/> for more
information.

Locale::KeyedText is free software; you can redistribute it and/or m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5567	5672	
==>eason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5567	5672	
==>eason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7764	7869	
==>eason>

This role extends the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2283	2392	
==>$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2283	2392	
==>$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2283	2392	
==>$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5640	5767	
==>::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (Li <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5319	5415	
==>ject to clear its internal state as completely as possible. 
This is automatically done as part o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5319	5415	
==>ject to clear its internal state as completely as possible. 
This is automatically done as part o <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17247	17363	
==>eration, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str )
 multi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15552	15647	
==>ributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and valu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15552	15647	
==>ributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and valu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16776	16884	
==>on $other!) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20253	20361	
==>on $other!) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	984	1116	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        name => '?', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1127	1257	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        name => ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	840	969	
==>ssoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        name => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13973	14075	
==>LTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13973	14075	
==>LTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13973	14075	
==>LTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	605	761	
==>->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	605	761	
==>->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	605	761	
==>->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8702	8899	
==>:stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8702	8899	
==>:stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8702	8899	
==>:stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6498	6617	
==>r("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, sect <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6498	6617	
==>r("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, sect <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1508	1604	
==>}
}

sub uncompress_smoke {
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->param("smo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12974	13090	
==>ribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12974	13090	
==>ribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12974	13090	
==>ribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArg <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1823	1927	
==>thod today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

m <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1823	1927	
==>thod today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7910	8006	
==>t method list (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	493	636	
==>turn;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	493	636	
==>turn;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	493	636	
==>turn;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7066	7194	
==>[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2841	2944	
==>erface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2841	2944	
==>erface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4811	4919	
==>$_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4811	4919	
==>$_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4811	4919	
==>$_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7857	8002	
==>g );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7857	8002	
==>g );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7857	8002	
==>g );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	373	472	
==>ok 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep clonin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	373	472	
==>ok 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep clonin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	373	472	
==>ok 'clone'
# * some constructors implement deep cloning
# * functions that don't support deep clonin <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	680	813	
==>ist>).add_children(
                        Tree.new(:node<Lazy>).add_children(
                            Tree.new(:node<Array>).add <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19118	19211	
==>he Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming lan <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19118	19211	
==>he Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming lan <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24967	25063	
==>ically with other components is making a
combined work based on Rosetta.  Thus, the terms and con <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24967	25063	
==>ically with other components is making a
combined work based on Rosetta.  Thus, the terms and con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36192	36288	
==>ail

=head2 unlessm

Family: assertion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array referen <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1285	1411	
==>ml)
    --help          Show this help

  Perl6 Documentation:
    You will need the Synopses checked out; try

    cd ..
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	233	355	
==>f, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	233	355	
==>f, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	233	355	
==>f, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1152	1273	
==>it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1152	1273	
==>it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1232	1353	
==>it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	510	632	
==>: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	510	632	
==>: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	510	632	
==>: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5564	5670	
==>This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5564	5670	
==>This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1843	1935	
==>end::C::Builtins - 

=head1 SYNOPSIS

	use Blondie::Backend::C::Builtins;

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	415	545	
==>NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink : <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	415	545	
==>NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2254	2357	
==>, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2254	2357	
==>, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2254	2357	
==>, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1324	1431	
==>rorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1324	1431	
==>rorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1324	1431	
==>rorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4658	4757	
==>and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides whatever
ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4658	4757	
==>and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides whatever
ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4658	4757	
==>and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides whatever
ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2338	2442	
==>::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2338	2442	
==>::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2338	2442	
==>::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'gl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	274	429	
==>r1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	274	429	
==>r1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10603	10703	
==>ERR "compiling pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4112	4297	
==>or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "C <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4112	4297	
==>or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1965	2074	
==>d1 Perl 6 Code
  
  class Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	438	556	
==>ethod is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	438	556	
==>ethod is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	80	171	
==>row-away code.
use strict;
package PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_ty <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19152	19247	
==>rogram*, and not the program's users' own data; only
someone already involved in making the prog <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19152	19247	
==>rogram*, and not the program's users' own data; only
someone already involved in making the prog <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	429	518	
==>as($?CLASS, "superclasses", "Set", { companion => "subclasses" });
Has($?CLASS, "subclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34324	34485	
==>canonical')));
                $e->create('$next' => $e->get('$dispatcher')->do());             
                block->new($e, sub {
                    $e->get( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7967	8069	
==>outine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7967	8069	
==>outine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Mod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9206	9381	
==>s()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$x <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9206	9381	
==>s()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$x <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2811	2980	
==>ps_left;
    SV* perl_callback;
    I32 ret;
    IV matched;
    U32 start;
    int newstr;

    if(stringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	31	134	
==>package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	31	134	
==>package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	31	134	
==>package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_typ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8730	8833	
==>atchObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	208	301	
==>d universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	208	301	
==>d universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17189	17280	
==>MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17189	17280	
==>MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17189	17280	
==>MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4104	4221	
==>ub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	365	474	
==>nspector->subclasses("Blondie::Node") }) {
        next unless $class =~ /^Blondie::(\w+)$/;
        next if _ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	80	179	
==>t::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	80	179	
==>t::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	332	430	
==>ion.  To return a value, arrange for
it to be the last evaluated expression.

All functions (but no <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1423	1581	
==>x:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %event <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1423	1581	
==>x:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %event <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5955	6103	
==>tr, List)\
\\n   List      pre     zip     safe   (List)\
\\n   List      pre     keys    safe   (rw!Hash)\
\\n   List      pre     values  safe   (r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10819	10944	
==>try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10819	10944	
==>try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10819	10944	
==>try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5067	5175	
==>_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'T <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5067	5175	
==>_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'T <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1971	2079	
==>_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'T <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17189	17344	
==>ts) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            pr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	266	371	
==>hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	266	371	
==>hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4707	4827	
==>[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4707	4827	
==>[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4707	4827	
==>[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3728	3833	
==>list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3728	3833	
==>list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3728	3833	
==>list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26522	26618	
==>sh.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26522	26618	
==>sh.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2069	2317	
==>. 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2069	2317	
==>. 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2069	2317	
==>. 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5397	5497	
==>Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5397	5497	
==>Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5987	6087	
==>Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, take <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	366	484	
==>ys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	366	484	
==>ys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	366	484	
==>ys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4857	4960	
==>ementation is, of course, incorrect. There is *no* attention
# paid to the associativity of the original <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4857	4960	
==>ementation is, of course, incorrect. There is *no* attention
# paid to the associativity of the original <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4857	4960	
==>ementation is, of course, incorrect. There is *no* attention
# paid to the associativity of the original <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	509	621	
==>e(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	509	621	
==>e(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	509	621	
==>e(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	585	686	
==>/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	585	686	
==>/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12445	12636	
==>xt::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12445	12636	
==>xt::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	410	508	
==>nt-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	371	469	
==>nt-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	371	469	
==>nt-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14440	14544	
==>('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14440	14544	
==>('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14440	14544	
==>('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3685	3798	
==>sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('symbol'))
        || confess "You must store <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20910	21007	
==>it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25462	25559	
==>it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, eac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2580	2684	
==>required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2580	2684	
==>required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2580	2684	
==>required.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30529	30628	
==>rn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35080	35179	
==>rn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34262	34361	
==>rn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attri <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4429	4554	
==>o term_literal;
  {
  }
  else
  {
    if (matches(/\d/, $target, $pos))
    {
      goto err_backslash_digit;
    }
    $init <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2436	2529	
==>uthor; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordo <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2436	2529	
==>uthor; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23695	23870	
==>) {
        for (@failed, $failed[-1]) { # don't forget the last one
            if ($_ > $last+1 || $_ == $last) {
                if ($min == $last) {
                    pus <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23374	23467	
==>ately they have a compiled C component or otherwise have
non-trivial external dependencies; Lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23374	23467	
==>ately they have a compiled C component or otherwise have
non-trivial external dependencies; Lo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1946	2056	
==>londie::TypeSafe::Annotation->new(
				type => $type,
				struct_equiv => $val,
			),
		),
	);
}

sub cast {
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5934	6034	
==>s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5934	6034	
==>s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5934	6034	
==>s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8705	8912	
==>ringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_nor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8705	8912	
==>ringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_nor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8705	8912	
==>ringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8879	8985	
==>sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8879	8985	
==>sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8879	8985	
==>sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1340	1459	
==>e, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1340	1459	
==>e, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1340	1459	
==>e, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribute($meta_obj => '$:name'      => '');
    : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4303	4446	
==>ode->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4844	4987	
==>ode->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	520	617	
==>$ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	520	617	
==>$ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	520	617	
==>$ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5170	5289	
==>sed to it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2958	3046	
==>self.members.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2958	3046	
==>self.members.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13470	13589	
==>ing ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16947	17066	
==>ing ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16309	16428	
==>ing ) === any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6855	7030	
==>/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6855	7030	
==>/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6855	7030	
==>/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12313	12411	
==>ification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12313	12411	
==>ification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12313	12411	
==>ification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	132	238	
==>tive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	132	238	
==>tive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	132	238	
==>tive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5182	5282	
==>dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5182	5282	
==>dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5182	5282	
==>dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9038	9138	
==>ve_file =~ s/t$/html/;
  
  my $output_path   = inpath_to_outpath($input_path);
  my $path = dirname( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	868	966	
==>are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	868	966	
==>are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1782	1881	
==>s /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1782	1881	
==>s /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1782	1881	
==>s /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|pr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	327	443	
==>t {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly
    # and calling <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	327	443	
==>t {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly
    # and calling <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31778	31871	
==>s
named C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36328	36421	
==>s
named C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16576	16663	
==><RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'=='> <RelationalExpressionNo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4095	4203	
==>h->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4312	4420	
==>h->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	549	650	
==>or ( error( Params::Check->last_error), return );

    my $struct = eval { LoadFile( $file ) } or erro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13962	14059	
==>eld is multi-valued, then the
routine is called once for each value.  The field name passed to the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13962	14059	
==>eld is multi-valued, then the
routine is called once for each value.  The field name passed to the <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1411	1505	
==>->file( $self->config->_available );
}

=head2 $file = $inst->files_list( $pkg_name )

=cut

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	772	914	
==>List) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	772	914	
==>List) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	772	914	
==>List) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main:: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2270	2369	
==>ou want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs hom <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2270	2369	
==>ou want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs hom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8116	8228	
==>ndex
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8116	8228	
==>ndex
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8116	8228	
==>ndex
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($sel <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7919	8100	
==>apture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7919	8100	
==>apture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13624	13714	
==>e('$self' => $e->get('$class:')->send('CREATE' => ($e->get('$canidate'), $e->get('%params') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	146	246	
==>.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	146	246	
==>.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	146	246	
==>.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1399	1509	
==>y concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1399	1509	
==>y concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9949	10063	
==>$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9943	10057	
==>$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20580	20694	
==>tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # \1 (backrefs)
  package Regex <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3564	3676	
==>$pkg};

        eval { require $file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = delete $INC{$fi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10929	11081	
==>0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10929	11081	
==>0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        de <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	756	873	
==>e that this could be a different entity to the objects that are
created when you use;

  type Bar;
  subtype Foo of St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5165	5274	
==>s = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5165	5274	
==>s = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5165	5274	
==>s = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2042	2145	
==>londie::Node::Unit';

    package Blondie::App;
    use base 'Blondie::Node::List';

    package Blondie <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5652	5750	
==>urn $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5652	5750	
==>urn $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2577	2689	
==>ly implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2577	2689	
==>ly implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2577	2689	
==>ly implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2476	2581	
==>_export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2476	2581	
==>_export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2476	2581	
==>_export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12914	13045	
==>le' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12914	13045	
==>le' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12914	13045	
==>le' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1065	1163	
==>);
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1065	1163	
==>);
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1065	1163	
==>);
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  m <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	147	269	
==>r Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXPORT_OK <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3099	3195	
==>send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that you <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3099	3195	
==>send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that you <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5264	5399	
==>"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5264	5399	
==>"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	962	1072	
==>each my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19025	19183	
==>ble::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19025	19183	
==>ble::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19025	19183	
==>ble::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => su <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15629	15757	
==>on separate lines on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4297	4406	
==>ude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4297	4406	
==>ude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4297	4406	
==>ude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $typ <==
3	/Users/nnunley/pugs/util/package-osx.pl	9611	9743	
==>b_dir (grep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13869	13961	
==>routine is exported by default.

=item encode_entities( $string )

=item encode_entities( $st <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13869	13961	
==>routine is exported by default.

=item encode_entities( $string )

=item encode_entities( $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12127	12260	
==>thods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12127	12260	
==>thods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12127	12260	
==>thods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8444	8543	
==>{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8432	8531	
==>{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12403	12501	
==>y_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12403	12501	
==>y_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12403	12501	
==>y_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4712	4820	
==>no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4550	4655	
==>no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2515	2682	
==>>{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub visual {
    my $self = shift;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	100	202	
==>ed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	100	202	
==>ed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	100	202	
==>ed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%attrs) = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22684	22780	
==>- B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names that
defi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27236	27332	
==>- B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names that
defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	657	766	
==>tored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	657	766	
==>tored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	657	766	
==>tored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	470	588	
==>rCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	470	588	
==>rCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	470	588	
==>rCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> St <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7779	7883	
==>iteral>
    | <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22369	22511	
==>->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42158	42300	
==>->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1893	2119	
==>mmar::Term->angle_quoted( substr($match, 1), { p => 1 } );
                if ( $m ) {
                    #print "Match: ",Dumper $m->();
                    if ( grep { $_ eq 'NUM' } @expect ) {
                        # expe <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	925	1036	
==>INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

T <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	925	1036	
==>INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1863	1957	
==>sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1863	1957	
==>sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1863	1957	
==>sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1849	1960	
==>($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1849	1960	
==>($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1849	1960	
==>($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	257	416	
==>> [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	257	416	
==>> [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	257	416	
==>> [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'jun <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7563	7755	
==>dex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7563	7755	
==>dex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13039	13135	
==>rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10351	10487	
==>rn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10351	10487	
==>rn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10351	10487	
==>rn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4967	5111	
==>ef($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4967	5111	
==>ef($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4967	5111	
==>ef($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2998	3639	
==>ames );
}

###########################################################################

} # role Relation::Heading

###########################################################################
###########################################################################

role Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20924	21018	
==>e on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20924	21018	
==>e on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4464	4609	
==>str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4464	4609	
==>str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4464	4609	
==>str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	34	152	
==>ram = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	34	152	
==>ram = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	290	398	
==>quote:<qX> (*%adverbs) {...}

=head1 See also

S02

=cut

# TODO - implement the "magic hash" dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1493	1643	
==>sg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1493	1643	
==>sg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1493	1643	
==>sg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $count - $msg";
}
sub fail ($msg="") { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	149	265	
==>} }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	149	265	
==>} }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	149	265	
==>} }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11393	11484	
==>ingle
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("Use <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11393	11484	
==>ingle
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("Use <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1524	1638	
==>( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1524	1638	
==>( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2093	2201	
==>cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2093	2201	
==>cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2093	2201	
==>cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1028	1130	
==>onstant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1028	1130	
==>onstant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1028	1130	
==>onstant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16156	16278	
==>rams) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16156	16278	
==>rams) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16156	16278	
==>rams) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18489	18598	
==>render as C<[\w\d:]>.  If you want to go even further and remove
any embedded class that is I<entirely> redund <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20184	20283	
==>to a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20184	20283	
==>to a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilati <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28382	28471	
==>wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32934	33023	
==>wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32062	32151	
==>wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says which attribu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8576	8690	
==>nick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8576	8690	
==>nick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14445	14541	
==>rglist.com/regex/  While the code has diverged,
  at least the library has some documentation, wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2138	2232	
==>_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2138	2232	
==>_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2138	2232	
==>_attribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	744	846	
==>_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Ma <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21731	21825	
==>k(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21731	21825	
==>k(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a chann <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15993	16110	
==>_[0]}) },
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Hash(%{$_[0]}) },
      code  => sub { $a <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4432	4541	
==>sConfig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21620	21745	
==>@xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21620	21745	
==>@xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21620	21745	
==>@xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6599	6745	
==>$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5103	5249	
==>$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my <==
3	/Users/nnunley/pugs/util/func_refact.pl	108	208	
==>nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n filenam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	325	438	
==>il 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: referenc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	530	643	
==>il 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: referenc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	586	699	
==>il 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: referenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8041	8139	
==>TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8041	8139	
==>TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8041	8139	
==>TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3169	3317	
==>efined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3169	3317	
==>efined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3169	3317	
==>efined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5600	5713	
==>> "(?=",  !, p5_start(R), ")".
p5_elemental(lookahead_not(R))    --> "(?!",  !, p5_start(R), ")".
p5_elemental(loo <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	108	198	
==>ackage Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basenam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	9	99	
==>ackage Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basenam <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13522	13642	
==>eyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $transl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13522	13642	
==>eyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $transl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	744	858	
==>eval {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in pe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6961	7095	
==>e1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6961	7095	
==>e1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4096	4205	
==>rl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4096	4205	
==>rl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4096	4205	
==>rl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	260	353	
==>gs.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	260	353	
==>gs.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	260	353	
==>gs.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1748	1851	
==>$::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1748	1851	
==>$::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1748	1851	
==>$::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($fu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2848	3015	
==>e( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2848	3015	
==>e( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	237	400	
==>ds => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                my ($s <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2299	2393	
==>the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2299	2393	
==>the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6010	6193	
==>);
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9487	9670	
==>);
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16766	16895	
==>ch = $m0;
      push(@{$X::cap},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4683	4775	
==>ew namespaces relative to New::Namespace::Root. This overrides whatever
blessing they had bef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4683	4775	
==>ew namespaces relative to New::Namespace::Root. This overrides whatever
blessing they had bef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4683	4775	
==>ew namespaces relative to New::Namespace::Root. This overrides whatever
blessing they had bef <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7128	7241	
==>add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7128	7241	
==>add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12364	12459	
==>hem (and their children).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10411	10554	
==>rameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5303	5403	
==>Undef';
    return new_box('Bool',(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_box('Bit',( <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2638	2738	
==>ct as a new api into the guts of the perl core.  There being no
documentation, one ends up reverse en <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27723	27821	
==>on that, when
given each original tuple/Mapping as its sole read-only argument, returns a
value tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32275	32373	
==>on that, when
given each original tuple/Mapping as its sole read-only argument, returns a
value tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31367	31465	
==>on that, when
given each original tuple/Mapping as its sole read-only argument, returns a
value tha <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4759	4858	
==>er and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4759	4858	
==>er and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6956	7055	
==>er and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	621	723	
==>Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	621	723	
==>Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	621	723	
==>Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23402	23579	
==>ift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23402	23579	
==>ift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23402	23579	
==>ift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30995	31087	
==>his method returns the identity-one Relation or the invocant relation,
respectively.

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35545	35637	
==>his method returns the identity-one Relation or the invocant relation,
respectively.

=item C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4200	4302	
==>ethods you should take care not
to call them in function form by mistake; that would not do at all.

=o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4200	4302	
==>ethods you should take care not
to call them in function form by mistake; that would not do at all.

=o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4200	4302	
==>ethods you should take care not
to call them in function form by mistake; that would not do at all.

=o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1900	2087	
==>re';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    uns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2147	2334	
==>re';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1010	1113	
==>arn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1010	1113	
==>arn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1010	1113	
==>arn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{P <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	741	835	
==>SX::Value;
class JSX::Value::Undefined is JSX::ValuePrimitive;
class JSX::Value::Null      is J <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8224	8314	
==>tements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2049	2139	
==>tements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5652	5758	
==>y @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5652	5758	
==>y @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5652	5758	
==>y @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9533	9668	
==>s?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9533	9668	
==>s?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9533	9668	
==>s?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2855	2988	
==>t back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2855	2988	
==>t back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2855	2988	
==>t back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11029	11141	
==>:Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11029	11141	
==>:Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11029	11141	
==>:Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6399	6523	
==>ch->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6399	6523	
==>ch->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	702	825	
==>th rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	702	825	
==>th rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	702	825	
==>th rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - %a = %b - whole hash fetch/store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2973	3086	
==>X - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2973	3086	
==>X - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2973	3086	
==>X - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2879	2973	
==>erl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2879	2973	
==>erl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3226	3320	
==>erl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3618	3725	
==>not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3618	3725	
==>not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3618	3725	
==>not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2839	2965	
==>( $n )
        if ref $n->{op1} && exists $n->{op1}{stmt};

    return default( $n );
}

sub assoc_list {
    my $n = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27183	27303	
==>O_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27183	27303	
==>O_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4247	4409	
==>ass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4247	4409	
==>ass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4247	4409	
==>ass) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5854	5960	
==>Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5854	5960	
==>Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6444	6550	
==>Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

sub FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	365	477	
==>he.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	365	477	
==>he.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	365	477	
==>he.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	858	970	
==>predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	858	970	
==>predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	858	970	
==>predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8103	8221	
==>$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8091	8209	
==>$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	23	111	
==>erl5::X1::Repl;
use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	84	191	
==>(*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	84	191	
==>(*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	84	191	
==>(*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8329	8449	
==>yseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8329	8449	
==>yseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8329	8449	
==>yseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3296	3398	
==>x.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3296	3398	
==>x.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3296	3398	
==>x.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8156	8283	
==>_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8156	8283	
==>_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8156	8283	
==>_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3827	3940	
==>= $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3827	3940	
==>= $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15291	15388	
==>elf is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifie <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15291	15388	
==>elf is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifie <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3343	3435	
==>ri=$grub_uri
    mklivecd.pl automatically fetches a GRUB tarball.
  --grub-local=$grub_local <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3027	3129	
==>{
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export { <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3027	3129	
==>{
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4551	4653	
==>{
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3240	3470	
==>bug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3240	3470	
==>bug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	600	702	
==>* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token->compile(q( [ \w | \d | \ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7655	7768	
==>\Z//;
	    $h{'isOptional'}=1 if s/\?//;
	    $h{'slurpy'}=1 if s/\*//;
	    $h{'isNamed'}=1 if s/\+//;
	    $h{'i <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	866	960	
==>) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+) <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	866	960	
==>) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26172	26269	
==>.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26172	26269	
==>.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4103	4296	
==>ar => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear;
        },              
        class => sub { \&Point3D },        
    };
}

my $p3d = new Point3 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14115	14218	
==>s);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17592	17695	
==>s);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3069	3165	
==>lems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( sta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3069	3165	
==>lems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( sta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3069	3165	
==>lems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26227	26330	
==>ubset of the original's attributes; that subset is the same as
those attribute names in the argument C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30779	30882	
==>ubset of the original's attributes; that subset is the same as
those attribute names in the argument C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29772	29875	
==>ubset of the original's attributes; that subset is the same as
those attribute names in the argument C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4390	4502	
==>ce})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4390	4502	
==>ce})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4390	4502	
==>ce})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->un <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	45	143	
==>s Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwi <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	45	143	
==>s Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4731	4832	
==>rent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4731	4832	
==>rent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26492	26587	
==>Atom>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	782	897	
==>ive());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	782	897	
==>ive());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	782	897	
==>ive());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	840	961	
==>on to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4318	4439	
==>on to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	779	868	
==>s been changed to cc_optimize_flags for consistency reasons";
	shift()->cc_optimize_flags( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14718	14893	
==>) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14718	14893	
==>) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14718	14893	
==>) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shif <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17268	17396	
==>", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.pu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17268	17396	
==>", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.pu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	68	164	
==>Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28805	28913	
==>rog), (PL_reg_match_utf8 = 0)))

 #define REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	127	222	
==>eaders::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	127	222	
==>eaders::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class v <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4045	4155	
==>Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4045	4155	
==>Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1982	2068	
==>gs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)\{$<key>: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9803	9954	
==>reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method skip ( $self: Int $num = 1, Str $reaso <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1884	2019	
==>reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reaso <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1884	2019	
==>reason,
            description =>  $description,
        )
    );

    return $passed;
}

method skip ( $self: Int $num = 1, Str $reaso <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17692	17814	
==>ode) : "undef";
    }
}


package Digest;

sub compute {
    my $class = shift;
    my $thunk = shift;

    use Data::Struc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8032	8133	
==>nd:
  goto (pop @bsrStack);

  token_match:
  $matchObjPos = $whitespacePosition;
  my $match = $$toke <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7382	7501	
==>{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7575	7694	
==>{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4594	4698	
==>s_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4594	4698	
==>s_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4594	4698	
==>s_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1783	1903	
==>,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1783	1903	
==>,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1783	1903	
==>,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4022	4116	
==>ge = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4022	4116	
==>ge = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4022	4116	
==>ge = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3843	3947	
==>n )>

Marks that the next test should fail.  C<$description> is the optional
description of the test.  Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3843	3947	
==>n )>

Marks that the next test should fail.  C<$description> is the optional
description of the test.  Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3923	4027	
==>n )>

Marks that the next test should fail.  C<$description> is the optional
description of the test.  Th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18872	18970	
==>lation;

I<This documentation is pending.>

=head1 DESCRIPTION

This class implements a Relation da <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1679	1776	
==>`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> an <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1679	1776	
==>`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1035	1137	
==>mAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1035	1137	
==>mAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1035	1137	
==>mAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PI <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3979	4079	
==>~ s/^(\t+)cd \.\.$/$1cd $canonical_base/mg;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or di <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10669	10766	
==>phertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $cla <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10669	10766	
==>phertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7922	8042	
==>, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7922	8042	
==>, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7922	8042	
==>, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TO <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9087	9185	
==>2;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUIL <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9087	9185	
==>2;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1280	1401	
==>result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_resu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1280	1401	
==>result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_resu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1280	1401	
==>result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1459	1563	
==>@vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1459	1563	
==>@vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1459	1563	
==>@vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_ma <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6588	6701	
==>ound for a relatively short while.
sub gather_results {
    my($self) = @_;
    my $kid;
    for my $pid (@{ $self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9733	9827	
==>defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend fr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9733	9827	
==>defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend fr <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9895	10182	
==>w
          if($test->{todo}||0 == 1) {
          $lines->{$line} = 2;
          } else {
          $lines->{$line} = ($test->{ok}||0 ==1 ? 1 : 0);
          }
          }
      }
  }
                                                                                           
  my $infile <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3071	3169	
==>g union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3071	3169	
==>g union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6880	7024	
==>ROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6880	7024	
==>ROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6880	7024	
==>ROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUT <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5710	5811	
==>overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5710	5811	
==>overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7907	8008	
==>overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	288	410	
==>), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	288	410	
==>), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	288	410	
==>), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1017	1125	
==>=> "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1017	1125	
==>=> "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1017	1125	
==>=> "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCx <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	431	557	
==>ce package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11719	11828	
==>ug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11719	11828	
==>ug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1389	1490	
==>ubrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1389	1490	
==>ubrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6829	6925	
==>SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1735	1840	
==>'',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gat <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1735	1840	
==>'',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22459	22553	
==>nsitive_char_eq(C,X), !.
charset_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
chars <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10719	10861	
==>ime processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dum <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7060	7202	
==>ime processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7909	8051	
==>ime processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	24	148	
==>ule;

=for About

Original file: pX/Common/iterator_engine.pl - fglock

Old docs are after the __END__.

This is a re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1045	1161	
==>he opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1045	1161	
==>he opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1045	1161	
==>he opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7494	7600	
==>hift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class-> <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7494	7600	
==>hift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	481	577	
==>e::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->require || die $UNI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9249	9390	
==>unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4670	4801	
==>,
        'bool::true' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::fals <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1747	1866	
==>ts_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	756	918	
==>anceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	756	918	
==>anceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	756	918	
==>anceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11013	11114	
==>ms = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11013	11114	
==>ms = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11013	11114	
==>ms = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2639	2725	
==>statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2639	2725	
==>statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4299	4450	
==>efined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4299	4450	
==>efined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4299	4450	
==>efined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	551	656	
==>n sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	551	656	
==>n sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	551	656	
==>n sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5936	6042	
==>$method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5936	6042	
==>$method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5936	6042	
==>$method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	299	403	
==>ar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compil <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	45	144	
==>ect,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"h <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	91	190	
==>ect, see thread "What do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7127	7227	
==>ually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7127	7227	
==>ually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7127	7227	
==>ually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7057	7167	
==>here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7057	7167	
==>here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7057	7167	
==>here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3304	3433	
==>defined $got && !defined $expected;
    }
    else {
        $pass = $got eq $expected;
    }

    unless ($pass) {
	unshift(@mess <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3776	3873	
==>ecoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3776	3873	
==>ecoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib <==
3	/Users/nnunley/pugs/util/importgraph.pl	690	795	
==>h, '<', $_
    or die "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^module \s+ ([\w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18132	18227	
==>or ambiguity involved.
By contrast, if a program simply returned words for the user, such as
'er <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18132	18227	
==>or ambiguity involved.
By contrast, if a program simply returned words for the user, such as
'er <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15294	15394	
==>hods are available for Span objects:

- `start()` / `end()`

Return the start or end value of the spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15294	15394	
==>hods are available for Span objects:

- `start()` / `end()`

Return the start or end value of the spa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24309	24398	
==>nPerl5::X1::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7118	7224	
==>Parrot)";
  $_ eq "normal" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6059	6171	
==>houtNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6059	6171	
==>houtNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6059	6171	
==>houtNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9029	9158	
==>/win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9029	9158	
==>/win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9029	9158	
==>/win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	825	944	
==>ur proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	825	944	
==>ur proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	825	944	
==>ur proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PI <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	286	401	
==>];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3568	3773	
==>,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                named => {},
                match => [],
            }, 'Pugs: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5915	6037	
==>> [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $self->{data}[0]->qr, $self->{data}[1]-> <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1318	1408	
==>$foreach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\((( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5915	6027	
==>\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5915	6027	
==>\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5915	6027	
==>\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3889	3989	
==>trc.
  --terminfo=$terminfo
    To make, for example, the <Pos1> and <End> keys working, we need a te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19135	19235	
==>1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19135	19235	
==>1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19135	19235	
==>1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($x <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6126	6229	
==>s-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        push @pkgs, -pac <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	154	244	
==>se Perl6::Core::Hash;
use Perl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9937	10030	
==>ys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_par <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9937	10030	
==>ys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21793	21886	
==>s
documentation contains a sub-classing tutorial.

=head1 SUB-CLASSING

I will present two exa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1293	1405	
==>{
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1293	1405	
==>{
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1293	1405	
==>{
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12664	12858	
==>^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_da <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12664	12858	
==>^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5076	5238	
==>Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil requi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5076	5238	
==>Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil requi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5076	5238	
==>Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil requi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	474	583	
==>est::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	474	583	
==>est::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1030	1139	
==>est::Builder::Output;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25421	25521	
==>nt of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29973	30073	
==>nt of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28912	29012	
==>nt of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1582	1679	
==>$cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1582	1679	
==>$cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1582	1679	
==>$cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1014	1117	
==>ure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1014	1117	
==>ure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1014	1117	
==>ure
    # it's nothing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5962	6123	
==>f = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5962	6123	
==>f = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5962	6123	
==>f = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, fr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1960	2108	
==>s($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1960	2108	
==>s($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2438	2533	
==>oment but should be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not call "TAILCA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2405	2617	
==>v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2405	2617	
==>v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	495	608	
==>);
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no_plan';
p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2485	2620	
==>},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30893	30990	
==>ame set as the current one.  The
Member Name comes next and is what distinguishes each module from <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30893	30990	
==>ame set as the current one.  The
Member Name comes next and is what distinguishes each module from <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1251	1372	
==>::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1251	1372	
==>::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1100	1221	
==>ctrl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9885	10009	
==>stify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9885	10009	
==>stify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9885	10009	
==>stify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4111	4222	
==>) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4111	4222	
==>) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4701	4812	
==>) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1883	1995	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1883	1995	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7417	7518	
==>han helpful currently
# 
# ## XXX @bools? how is this useful?
# =head2 @bools = $repo->add_files($file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8419	8521	
==>add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8419	8521	
==>add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8419	8521	
==>add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10619	10731	
==>& Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10619	10731	
==>& Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10619	10731	
==>& Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23198	23290	
==>rnals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23198	23290	
==>rnals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23198	23290	
==>rnals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2845	2945	
==>:Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2845	2945	
==>:Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33986	34083	
==>ated

Ender: I<anyof_close>

=head2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7675	7802	
==>urn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7675	7802	
==>urn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22290	22389	
==>y $length_and_first_p = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29957	30059	
==>ero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34509	34611	
==>ero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33673	33775	
==>ero attributes (they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Rela <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7637	7736	
==>lee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7637	7736	
==>lee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	749	842	
==>se constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	242	368	
==>eys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	242	368	
==>eys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	242	368	
==>eys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23713	23942	
==>m );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23713	23942	
==>m );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23713	23942	
==>m );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5295	5394	
==>$symbol = $self->declare($node);

		my $return_type = $node->type->[-1]->type;
		
		my @children = $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33429	33525	
==>eturned Relation contains only tuples that are in
all of the source Relations.  This method has a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37979	38075	
==>eturned Relation contains only tuples that are in
all of the source Relations.  This method has a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4156	4276	
==>pply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_cr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4156	4276	
==>pply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_cr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4156	4276	
==>pply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3160	3265	
==>|= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3160	3265	
==>|= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3160	3265	
==>|= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1548	1660	
==>$self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1548	1660	
==>$self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1548	1660	
==>$self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2287	2383	
==>they fall back
on something more likely to work.

Further, the above method always uses a startin <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1364	1455	
==>ot_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_per <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1422	1513	
==>ot_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_per <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2839	2961	
==>=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2839	2961	
==>=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $spa <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1725	1840	
==>tr :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # const <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1725	1840	
==>tr :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5654	5766	
==>nkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5654	5766	
==>nkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5654	5766	
==>nkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaSc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13677	13855	
==>" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9861	10039	
==>" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10697	10875	
==>" .
                "    };\n" .
                "    my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                " <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1649	1759	
==>ir( $pkg )
                ->file( $self->config->_files_list );
}

=head1 METHODS

=head2 $inst = JIB::Install <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6822	6924	
==>n1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6822	6924	
==>n1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37153	37284	
==>$ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37153	37284	
==>$ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37153	37284	
==>$ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1820	1960	
==>gnature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4640	4753	
==>{
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4698	4811	
==>{
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5397	5520	
==>lf->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5397	5520	
==>lf->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5397	5520	
==>lf->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7481	7596	
==>$params);
	$params = \@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($params->[0])) { # an array of strings <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1696	1788	
==>e {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1696	1788	
==>e {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	602	709	
==>), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	602	709	
==>), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	602	709	
==>), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5138	5313	
==>$value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5138	5313	
==>$value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5138	5313	
==>$value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defined' => s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1737	1913	
==>ist');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1737	1913	
==>ist');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	22	116	
==>ge Blondie::Backend::Perl::Builtins;

use strict;
use warnings;

use Blondie::Prelude;
use Blon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	304	416	
==>l $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	304	416	
==>l $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	304	416	
==>l $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2712	2860	
==>e => 'equal',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        as <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	553	651	
==>!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	553	651	
==>!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2821	2927	
==>e quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3068	3174	
==>e quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5698	5836	
==>( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3034	3172	
==>( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3883	4021	
==>( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	931	1049	
==>(blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	931	1049	
==>(blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	931	1049	
==>(blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8091	8238	
==>on => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8091	8238	
==>on => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8091	8238	
==>on => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5009	5135	
==>ry!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5009	5135	
==>ry!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5009	5135	
==>ry!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1692	1804	
==>f $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performance reasons,

# be <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1624	1731	
==>f $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performance reasons,
# be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	286	384	
==>h qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub cop <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7466	7613	
==>n' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7466	7613	
==>n' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1609	1745	
==>=>'4'}] ,
    [';'=>{}] ,
    ['STMT'=>{if=>'block'}] 
];


    my($lex) = sub {
        my($t)=shift(@$in);
            defined( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7457	7558	
==>se, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7457	7558	
==>se, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $? <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	276	373	
==>}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gleichheitszeichen keine leeren Zeilen <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1983	2079	
==>u should
be left with nothing but questions about what this object represents.

It represents a n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1983	2079	
==>u should
be left with nothing but questions about what this object represents.

It represents a n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2853	2959	
==>pts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2853	2959	
==>pts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2853	2959	
==>pts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	if (Sc <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5625	5744	
==>ETA $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require Ext <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11302	11417	
==>hift;
    join "", @{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLAG <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26188	26288	
==>f the terminal. If it is not
set then it will default to C<COLUMNS>. If this is not set, it will
defa <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5273	5378	
==>};

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_version and (    $Config{osname} eq "cyg <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2132	2228	
==>ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2132	2228	
==>ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Messa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	151	242	
==>tant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not implemented';
use constant RPe_NOTERM = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19029	19116	
==>ead2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19029	19116	
==>ead2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2182	2285	
==>de as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2182	2285	
==>de as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2182	2285	
==>de as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	221	311	
==>quire Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	221	311	
==>quire Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	221	311	
==>quire Perl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container:: <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	161	257	
==>llo, {name $person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = new Person;
nam <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5043	5141	
==>);

Copies a file or directory to the target, recursively

Returns true on success, false on failur <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26717	26813	
==>attribute of the new object is set from the named parameter
$msg_key (a string); the optional nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26717	26813	
==>attribute of the new object is set from the named parameter
$msg_key (a string); the optional nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	423	533	
==>result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object > <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	423	533	
==>result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object > <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	423	533	
==>result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass of Object > <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	81	326	
==>don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant val <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	81	326	
==>don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant val <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38388	38555	
==>xists($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        sym <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	375	490	
==>qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	375	490	
==>qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	801	892	
==>Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	801	892	
==>Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8715	8859	
==>tem => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8715	8859	
==>tem => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8715	8859	
==>tem => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2558	2672	
==>g->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2558	2672	
==>g->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6118	6264	
==>t.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.nex <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6118	6264	
==>t.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6590	6684	
==>THOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6590	6684	
==>THOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6590	6684	
==>THOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11912	12006	
==>nals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11912	12006	
==>nals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11912	12006	
==>nals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PI <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	330	434	
==>, Ord)
method Show {
    ...
}

method &infix:«==»($self, Perl::Param $other) {
    ...
}

method &infi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	493	593	
==>on: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	493	593	
==>on: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6751	6866	
==>S = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6751	6866	
==>S = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6751	6866	
==>S = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4565	4668	
==>p => "\r", '\R') if $cc;
    return $S->object(exact_comp => "\r", '\R');
  });

  $self->add_handler('\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7976	8076	
==>eop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7703	7799	
==>eop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4141	4249	
==>rogram '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4358	4466	
==>rogram '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	342	451	
==>ash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	342	451	
==>ash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	342	451	
==>ash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements a hash in which the ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	372	500	
==>or more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	372	500	
==>or more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ----------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	372	500	
==>or more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ----------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1749	1877	
==>{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1749	1877	
==>{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1749	1877	
==>{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1564	1679	
==>s('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1564	1679	
==>s('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1564	1679	
==>s('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1718	1824	
==>e = (shift)->to_native;
    list->new(map { str->new($_) } keys %native) 
}

sub values { 
    my %native = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2237	2333	
==>rgs);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args->{NAME <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1343	1438	
==>rgs);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args->{NAME <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2415	2556	
==>q 'infix';
        return prefix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	370	499	
==>e and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pmc = $file.'c';
        my $pmc_is_uptodate = ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3187	3314	
==>) {
        $self->load_extensions(
            "$self->{prefix}/$self->{path}", $self
        );
    }

    my @exts = @{$self- <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	743	857	
==>ool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	743	857	
==>ool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.st <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10075	10223	
==>ay {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10075	10223	
==>ay {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1882	1997	
==>?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1882	1997	
==>?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1882	1997	
==>?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2095	2208	
==>UE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[2 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1773	1878	
==>UE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    return $self->[2 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14116	14216	
==>e, \%test);

Checks if the $line is a test report (ie. 'ok/not ok').  Reports the
result back in C<%t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3301	3415	
==>zlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uac <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3301	3415	
==>zlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uac <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	379	516	
==>nts{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.read <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	379	516	
==>nts{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.read <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8237	8364	
==>';
    }

    return _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Du <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	892	1090	
==>_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('h <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	892	1090	
==>_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('h <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6235	6419	
==>ts
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       = <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3843	3943	
==>iff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::co <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3843	3943	
==>iff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	534	642	
==>{key}{single_quoted};
        my $name     = $_[0]{pair}{value}{single_quoted};
        $category =~ s/^(\w)/ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4375	4477	
==>int($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4375	4477	
==>int($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11774	11901	
==>\$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25650	25749	
==>is intended to be read by a machine and
mapped to a user-readable message; the key itself is not mea <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25650	25749	
==>is intended to be read by a machine and
mapped to a user-readable message; the key itself is not mea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9725	9816	
==>r_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9725	9816	
==>r_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9725	9816	
==>r_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4599	4721	
==>local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4599	4721	
==>local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4599	4721	
==>local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3314	3410	
==>nt = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pIn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3314	3410	
==>nt = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pIn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3314	3410	
==>nt = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pIn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5873	5987	
==>tch = { %$match };

        $new_match->{capture} = [ { $label => $match->{capture} } ];

        return $new_match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5687	5799	
==>tch = { %$match };
        $new_match->{capture} = [ { $label => $match->{capture} } ];
        return $new_match <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3114	3229	
==>t version
        $perl_version =~
          s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2), int($3))}e
          if <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1812	1896	
==>process described in README.

------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1652	1736	
==>process described in README.

------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2916	3037	
==>sult1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3461	3582	
==>sult1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	466	583	
==>or");
    $optable->addToken("term:^^", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\$\$", "ter <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	160	269	
==>Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addMethod(Method--Perl6 $me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1240	1332	
==>*@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alt <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1240	1332	
==>*@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33539	33675	
==>n "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33539	33675	
==>n "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33539	33675	
==>n "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3949	4058	
==>NAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3949	4058	
==>NAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3949	4058	
==>NAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11135	11254	
==>iguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11135	11254	
==>iguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11135	11254	
==>iguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4269	4373	
==>and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4269	4373	
==>and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4269	4373	
==>and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10415	10550	
==>~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10415	10550	
==>~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10415	10550	
==>~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7314	7409	
==>:



- higher order operators: alternation, concatenation.

- "plain" match operators: like 'lit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7066	7158	
==>:

- higher order operators: alternation, concatenation.
- "plain" match operators: like 'lit <==
3	/Users/nnunley/pugs/util/package-osx.pl	6201	6298	
==>Object.3pm
        /usr/local/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Per <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1355	1449	
==>), values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroL <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1355	1449	
==>), values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19937	20059	
==>if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19937	20059	
==>if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19937	20059	
==>if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destru <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	657	786	
==>Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Con <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	657	786	
==>Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13020	13122	
==>rep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you're r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4510	4668	
==>0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4510	4668	
==>0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4510	4668	
==>0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	54	156	
==>MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::Ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	54	156	
==>MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::Ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	54	156	
==>MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::Ei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4401	4527	
==>, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4401	4527	
==>, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4401	4527	
==>, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    p <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	582	684	
==>e, it
is not bound to a type until the role is included in the class.

This has the effect of making C< <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4291	4389	
==>mentation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<e <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4291	4389	
==>mentation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12823	12936	
==>do};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.connec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12823	12936	
==>do};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.connec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13924	14030	
==>$xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13924	14030	
==>$xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13924	14030	
==>$xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_fro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3673	3919	
==>ocale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3673	3919	
==>ocale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22601	22698	
==>:words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
}
rule TryStatemen <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	44	143	
==>r_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	44	143	
==>r_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1427	1554	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1427	1554	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1427	1554	
==>patchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11523	11619	
==>>force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3114	3210	
==>>force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	280	385	
==>e
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	280	385	
==>e
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	280	385	
==>e
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8149	8306	
==>trs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8149	8306	
==>trs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8149	8306	
==>trs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10249	10345	
==>S

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Cr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10249	10345	
==>S

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Cr <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1620	1710	
==>mpress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke"));
}

sub require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14094	14230	
==>mp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14094	14230	
==>mp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14094	14230	
==>mp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2727	2834	
==>sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <t <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2727	2834	
==>sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	19	113	
==>:Opaque;

use Perl6::Core::Num;
use Perl6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Core::R <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5763	5870	
==>get_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5763	5870	
==>get_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11308	11446	
==>urce.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14785	14923	
==>urce.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14093	14231	
==>urce.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16687	16882	
==>);  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16687	16882	
==>);  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16687	16882	
==>);  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	384	476	
==>IL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	384	476	
==>IL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	384	476	
==>IL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5248	5361	
==>arts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5248	5361	
==>arts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5248	5361	
==>arts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	524	614	
==>implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	524	614	
==>implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	202	335	
==>l_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	202	335	
==>l_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	202	335	
==>l_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3281	3377	
==>tions yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3281	3377	
==>tions yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3281	3377	
==>tions yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22581	22675	
==>::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22581	22675	
==>::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22581	22675	
==>::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2468	2608	
==>tidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2468	2608	
==>tidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14363	14471	
==>(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14363	14471	
==>(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14363	14471	
==>(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13284	13493	
==>our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set(' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7290	7409	
==>r(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(85 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7290	7409	
==>r(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(85 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3931	4036	
==>ad1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=ove <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3931	4036	
==>ad1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=ove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5455	5560	
==>ad1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=ove <==
3	/Users/nnunley/pugs/util/importgraph.pl	214	314	
==>importee

use strict;
use warnings;
use File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "ne <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19252	19351	
==>would be editing them.  At
the same time, this information is in separate resource files used by the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19252	19351	
==>would be editing them.  At
the same time, this information is in separate resource files used by the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14403	14505	
==>%{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14403	14505	
==>%{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14403	14505	
==>%{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6837	6956	
==>nstalls &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6837	6956	
==>nstalls &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6837	6956	
==>nstalls &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12546	12664	
==>rn $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  # start of char class (and possible negation <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20327	20421	
==>sers could do,
although program package installers usually do it.  An os-level preference
/ con <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20327	20421	
==>sers could do,
although program package installers usually do it.  An os-level preference
/ con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2464	2571	
==>w PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2464	2571	
==>w PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2464	2571	
==>w PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3083	3212	
==>e closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3267	3396	
==>e closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2458	2549	
==>stant ISA_JIB_CONFIG => sub { UNIVERSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JI <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4247	4359	
==>st' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Per <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4247	4359	
==>st' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Per <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2141	2236	
==>/pugs_versnum: ([\d.]+)/ and $smoke{pugs_version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11055	11194	
==>) . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11055	11194	
==>) . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11055	11194	
==>) . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14985	15069	
==>rewrite(plus(cap(plus(R))),R1,RW0,RW1) :-
  re_rewrite(cap(plus(R)),R1,RW0,RW1).
re_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	868	967	
==>rement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	868	967	
==>rement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	868	967	
==>rement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	69	203	
==>?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	69	203	
==>?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20947	21044	
==>$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20947	21044	
==>$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20947	21044	
==>$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4387	4542	
==>$control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $builddir] )                      and error($?), return;

    return JIB::Package- <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15187	15298	
==>on})  = $control ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test->{o <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7856	7959	
==>zy'}=1 if s/\s+is lazy//;
	    $h{'isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	540	655	
==>'CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	540	655	
==>'CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	540	655	
==>'CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8267	8371	
==>_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8267	8371	
==>_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7612	7749	
==>', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'tabl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7612	7749	
==>', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'tabl <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1595	1715	
==>age Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18448	18534	
==>t.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18448	18534	
==>t.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	29	113	
==>die::Backend::C::Emitter;
use base qw/Blondie::Emitter Blondie::Reducer::DynamicScopi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1427	1540	
==>pen $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
war <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18977	19098	
==>->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20335	20456	
==>->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7596	7786	
==>rn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7596	7786	
==>rn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7596	7786	
==>rn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->f <==
3	/Users/nnunley/pugs/util/package-osx.pl	10390	10498	
==>en  REMOVER, '>', "$dest$files[-1]" or die "Can't open $dest$files[-1]!";

    my @header = qq(
        #!/us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	400	504	
==>s,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	411	515	
==>s,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46275	46435	
==>name'));
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new('FETCH'),
    # method body
        method-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20488	20583	
==>r production use, there should be a wide variety of third party Engine
modules that become avail <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20488	20583	
==>r production use, there should be a wide variety of third party Engine
modules that become avail <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8920	9051	
==>},
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8920	9051	
==>},
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25839	25932	
==>ail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30391	30484	
==>ail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1514	1633	
==>"=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1514	1633	
==>"=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1514	1633	
==>"=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1556	1802	
==>::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1556	1802	
==>::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Ros <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7063	7189	
==>_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7063	7189	
==>_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $conten <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	50	150	
==>e Cwd;
use Config;
use Path::Class ();
use base 'Object::Accessor';

my %config;
my $Cwd = Path::Clas <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1919	2100	
==>ool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tree.new(:node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13574	13707	
==>g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13574	13707	
==>g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3667	3816	
==>ength; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3667	3816	
==>ength; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3667	3816	
==>ength; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7548	7650	
==>led by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7548	7650	
==>led by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels> <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11302	11435	
==>rent if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.curren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11302	11435	
==>rent if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.curren <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	313	445	
==>mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq '$*OS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	244	343	
==>t == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	244	343	
==>t == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	244	343	
==>t == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7188	7297	
==>ie "not implemented" }
sub perl5 { die "not implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13549	13644	
==>mplementation
could be started).  This is most useful when writing modules and you
find there is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13607	13702	
==>mplementation
could be started).  This is most useful when writing modules and you
find there is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	264	358	
==>normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	264	358	
==>normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	264	358	
==>normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3323	3453	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3516	3646	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $b <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2866	2964	
==>nt(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the bu <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2866	2964	
==>nt(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the bu <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3292	3389	
==>kip_all} = $self->{skip_all} if defined $self->{skip_all};

    my $passed = ($totals{max} == 0 && <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	242	353	
==>-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    retur <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	242	353	
==>-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19436	19749	
==>other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19436	19749	
==>other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19436	19749	
==>other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1885	1992	
==>f %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1885	1992	
==>f %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1885	1992	
==>f %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6465	6648	
==>.
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { return $/{'Pugs::Grammar::Term.sub_call'}->() }
            |
                ### Test-0.0.6
                < <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	682	784	
==>plitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	682	784	
==>plitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19174	19316	
==>s_2
    $P1 = shift $P0
    $P2 = reps[$P1]
    savereps[$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad["subpats"]
    exp0 = self[0]
    e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5083	5182	
==>We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5083	5182	
==>We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5145	5255	
==>ompile anything.

When compiling (--link option not given), there has to be only one input file.
In linking mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5145	5255	
==>ompile anything.

When compiling (--link option not given), there has to be only one input file.
In linking mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5145	5255	
==>ompile anything.

When compiling (--link option not given), there has to be only one input file.
In linking mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1050	1166	
==>e emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Ii <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1050	1166	
==>e emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Ii <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1050	1166	
==>e emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Ii <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1139	1299	
==>_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1139	1299	
==>_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1139	1299	
==>_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	503	601	
==>t == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unsh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	503	601	
==>t == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unsh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	503	601	
==>t == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unsh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7307	7438	
==>ement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7307	7438	
==>ement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7307	7438	
==>ement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6099	6228	
==>--$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6099	6228	
==>--$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6099	6228	
==>--$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7589	7820	
==>s}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7589	7820	
==>s}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7589	7820	
==>s}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7882	7994	
==>ar' ],
    '... got the right method list (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3440	3541	
==>eek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3440	3541	
==>eek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	247	403	
==>tr $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	247	403	
==>tr $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $reques <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2927	3029	
==>method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6404	6506	
==>method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7325	7435	
==>"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefix_and_cleanup {
    my($o,$prefix)=@_;
    my $ref <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	665	772	
==>fix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	665	772	
==>fix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2622	2732	
==>@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2622	2732	
==>@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3583	3687	
==>eable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3583	3687	
==>eable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tiea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3583	3687	
==>eable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tiea <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1149	1265	
==>s is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1149	1265	
==>s is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9761	9858	
==>ss.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9761	9858	
==>ss.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9761	9858	
==>ss.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1550	1687	
==>E__->add_rule(
        name => 'eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<~>',
    );
    _ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	746	839	
==>urce> property, and adds C<content>,
which is the whitespace to be represented in the normativ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	746	839	
==>urce> property, and adds C<content>,
which is the whitespace to be represented in the normativ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9614	9799	
==>ason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_test_number(),
              reason      => <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1707	1880	
==>ason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      => <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1707	1880	
==>ason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_test_number(),
            reason      => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10890	10999	
==>ame eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10890	10999	
==>ame eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10890	10999	
==>ame eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	470	641	
==>maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	385	556	
==>maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	473	644	
==>maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1158	1275	
==>ge, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1158	1275	
==>ge, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1158	1275	
==>ge, ::Object, ::Module and ::Role). This is
# needed because we lock the keys inside the opaque instance structure (se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5238	5385	
==>ly let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it fou <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5702	5849	
==>ly let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it fou <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	946	1056	
==>.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM->may <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5090	5203	
==>_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5090	5203	
==>_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1936	2040	
==>ment { num->new((shift)->to_native + 1) }
sub decrement { num->new((shift)->to_native - 1) }

1;

__END__ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7902	8028	
==>715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7902	8028	
==>715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    " <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1440	1533	
==>ht fairly simple code with tolerable performance.

However, pugs critical path is currently mo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6657	6754	
==>etstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
return va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6657	6754	
==>etstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
return va <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3816	3925	
==>_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3816	3925	
==>_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	666	775	
==>_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12054	12156	
==>ill be limited to
  strings, rather than Match objects.

  A set of hooks should be defined in CORE whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17850	17948	
==>check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMP <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17850	17948	
==>check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2590	2701	
==>rray, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2590	2701	
==>rray, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2590	2701	
==>rray, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3627	3761	
==>son' ],
    methods => {
        'reason' => sub { _('$.reason') },
        'status' => sub {
            my $status_sub      = $::Test <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	279	387	
==>defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	279	387	
==>defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14514	14634	
==>handler;
    $handler->($x);
}

my $as_hash_complain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1400	1504	
==>am1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1400	1504	
==>am1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2539	2653	
==>str, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2539	2653	
==>str, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2539	2653	
==>str, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (s <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	716	814	
==>ing is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_. <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	716	814	
==>ing is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	139	257	
==>ct);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	139	257	
==>ct);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	139	257	
==>ct);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9066	9169	
==>b {
	die "trying to unify incompatible types:\n" . Dumper(@_);
};


# these are the type signatures of s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21785	21887	
==>ue.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to have <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26337	26439	
==>ue.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to have <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1933	2031	
==>::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return $args{_self} if $args{_self};

    $args{disp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23163	23255	
==>in english text and they translate it, which could
produce ambiguous results or associations. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23163	23255	
==>in english text and they translate it, which could
produce ambiguous results or associations. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28802	28926	
==>item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28802	28926	
==>item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28802	28926	
==>item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14741	14860	
==>d_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14741	14860	
==>d_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14741	14860	
==>d_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6692	6791	
==>!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6692	6791	
==>!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6692	6791	
==>!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redis <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	839	956	
==>?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	839	956	
==>?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6870	6990	
==>L2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6870	6990	
==>L2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6870	6990	
==>L2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FET <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1568	1742	
==>ule;\n" .
        "    rule_wrapper( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14738	14882	
==>";
		$Perl = "./$perl";
	    } else {
		$Perl = File::Spec->catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executab <==
3	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	52	148	
==>$.returns;
  multi sub trait_verb:<returns>($container; ReturnType $arg) {
    $container does re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	551	660	
==>{
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	551	660	
==>{
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	551	660	
==>{
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3626	3737	
==>aram_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3626	3737	
==>aram_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4216	4327	
==>aram_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1148	1254	
==>ains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1148	1254	
==>ains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3831	3935	
==>6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		return { require_barew <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	945	1044	
==>$b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	945	1044	
==>$b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	945	1044	
==>$b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29256	29382	
==>urn { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29535	29661	
==>urn { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1878	1977	
==>ie "bug" if $datatype !~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	stages => [qw(p6_file <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3868	3962	
==>tomorrow", and "yesterday" return the appropriate date.

Any other string will be passed to `Da <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3868	3962	
==>tomorrow", and "yesterday" return the appropriate date.

Any other string will be passed to `Da <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3458	3590	
==>ess $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z] <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3458	3590	
==>ess $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z] <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	28	130	
==>ndie::Reducer::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	133	227	
==>es a finite string and a position
within that string, and it provides the fundamental operation <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	133	227	
==>es a finite string and a position
within that string, and it provides the fundamental operation <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2764	2888	
==>ose:}", "<prefix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6663	6764	
==>And',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isO <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6663	6764	
==>And',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1418	1561	
==>,
    };

    ### acc is just for accessors, the others get added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4515	4655	
==>ule( 
        name => 'or',
        assoc => 'left',
        precedence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__->add <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4588	4707	
==>g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3917	4070	
==>=> new Point($x, $y),  
    # rest of the class 
        get_z => sub { $z },
        set_z => sub {
            my ($self, $new_z) = @_;
            $z = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3121	3217	
==>e HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3121	3217	
==>e HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4097	4213	
==>], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_scalar {
   m <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1964	2073	
==>return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        ( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1964	2073	
==>return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1271	1380	
==>or { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1271	1380	
==>or { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1271	1380	
==>or { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	540	638	
==>my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	540	638	
==>my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	540	638	
==>my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5939	6038	
==>Name", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the oppor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5939	6038	
==>Name", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the oppor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5939	6038	
==>Name", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser has the oppor <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1599	1741	
==>s.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::I <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1599	1741	
==>s.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	241	344	
==>ersion.

- It currently passes all it's tests.

- The algorithm is a bit simpler than the previous v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3693	3805	
==>= shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3693	3805	
==>= shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3693	3805	
==>= shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
})) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3222	3347	
==>("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3222	3347	
==>("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $des <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4746	4871	
==>("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7450	7583	
==>{
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7450	7583	
==>{
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7450	7583	
==>{
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4864	5020	
==>ew_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specif <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4864	5020	
==>ew_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14417	14510	
==>ss.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14417	14510	
==>ss.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14417	14510	
==>ss.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	579	706	
==>his just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	579	706	
==>his just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	579	706	
==>his just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2322	2439	
==>st::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2322	2439	
==>st::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11353	11444	
==>on_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok { $iBa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1305	1419	
==>reqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_d <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	865	979	
==>reqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	116	214	
==>Blondie::Backend::C::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3743	3858	
==>opic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3743	3858	
==>opic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	213	322	
==>ed';

use base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1896	1994	
==>linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1896	1994	
==>linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1896	1994	
==>linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2464	2586	
==>body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2464	2586	
==>body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2464	2586	
==>body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4686	4807	
==>cial_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4686	4807	
==>cial_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" i <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	17	131	
==>::MiniYAML;
use strict;
use warnings;
our $VERSION = '0.01';

sub new { bless {}, shift }

sub load {
    my($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8628	8730	
==>PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub double <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8628	8730	
==>PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub double <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8628	8730	
==>PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub double <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5485	5593	
==>e_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5485	5593	
==>e_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5485	5593	
==>e_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	165	296	
==>{
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	165	296	
==>{
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	165	296	
==>{
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1843	1942	
==>s,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defin <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	839	938	
==>s,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defin <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16079	16176	
==>le script, it suffices.
# This script doesn't run as root, anyway.
sub check_for_evil_chars {
  lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7111	7259	
==>'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7111	7259	
==>'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7111	7259	
==>'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1957	2053	
==>_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1957	2053	
==>_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1957	2053	
==>_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	916	1045	
==>abel";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	916	1045	
==>abel";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	916	1045	
==>abel";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13377	13478	
==>rn $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13377	13478	
==>rn $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13377	13478	
==>rn $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8011	8116	
==>eturn -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

met <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8011	8116	
==>eturn -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2803	2919	
==>rt_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2803	2919	
==>rt_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2803	2919	
==>rt_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1576	1687	
==>pare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1576	1687	
==>pare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17212	17329	
==>AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17212	17329	
==>AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17212	17329	
==>AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2156	2360	
==>hod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2156	2360	
==>hod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2156	2360	
==>hod($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13147	13256	
==>b scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13147	13256	
==>b scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13147	13256	
==>b scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1194	1297	
==>\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2068	2171	
==>\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	579	675	
==>\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1453	1546	
==>uantifiers are implemented by passing a C<Result> object that has a
$.backtrack closure that c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1453	1546	
==>uantifiers are implemented by passing a C<Result> object that has a
$.backtrack closure that c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6410	6598	
==>"\t%prec $prec\n" .
                        "\t/* $op->{name} $op->{fixity} $op->{assoc} */\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3620	3716	
==>of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures should p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3620	3716	
==>of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures should p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23832	23942	
==>e_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23832	23942	
==>e_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23832	23942	
==>e_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1598	1722	
==>r i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1598	1722	
==>r i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1598	1722	
==>r i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2542	2661	
==>y $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2542	2661	
==>y $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2542	2661	
==>y $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are t <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6766	6897	
==>) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$file <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3850	3950	
==>$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3850	3950	
==>$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21961	22069	
==>ser Internals

The parser object is a hash reference with the following keys:

=over 4

=item regex

A refere <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1394	1498	
==>ate::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNO <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1394	1498	
==>ate::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	994	1125	
==>umber of new attributes from various sources
# and we need to now create these attributes in all the currently live instances
# of C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	994	1125	
==>umber of new attributes from various sources
# and we need to now create these attributes in all the currently live instances
# of C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	994	1125	
==>umber of new attributes from various sources
# and we need to now create these attributes in all the currently live instances
# of C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1054	1172	
==>t(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1054	1172	
==>t(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1054	1172	
==>t(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5719	5901	
==>->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5719	5901	
==>->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5719	5901	
==>->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6438	6565	
==>] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6438	6565	
==>] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13944	14036	
==>--> [].
octdigit(D) --> [D], { member(D,"01234567") }.

octdigits3_int(I) -->
  octdigit(D0), <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9314	9416	
==>ler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9314	9416	
==>ler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1664	1786	
==>nction (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1664	1786	
==>nction (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1664	1786	
==>nction (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5922	6043	
==>',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5922	6043	
==>',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5922	6043	
==>',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $b <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6118	6237	
==>n @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6118	6237	
==>n @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8027	8133	
==>ub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12605	12702	
==>2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12605	12702	
==>2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1853	1977	
==>) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1853	1977	
==>) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4677	4777	
==>at Cygwin support for pugs still depends on the .msi
   version of GHC and does not provide POSIX fea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8976	9165	
==>}
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8976	9165	
==>}
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8976	9165	
==>}
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	219	318	
==>ew()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	219	318	
==>ew()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	219	318	
==>ew()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->ha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11793	11897	
==>m eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11793	11897	
==>m eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16999	17094	
==>n::Example @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	257	389	
==>items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed t <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	257	389	
==>items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17497	17647	
==>dy => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20974	21124	
==>dy => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20561	20711	
==>dy => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	485	593	
==>le_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pugs_fix_makefile;
}

sub s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9724	9828	
==>ss the string index around, 
# XXX - weaken self-referential things

=pod

A "rule" function gets as <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	816	911	
==>::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	816	911	
==>::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	816	911	
==>::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3748	3951	
==>_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3748	3951	
==>_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3748	3951	
==>_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body->{methods <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11984	12084	
==>h information.  Match
  information gets inserted in $1 etal.  These will be limited to
  strings, ra <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15638	15733	
==>le, a native French or Chinese speaker often prefers to
communicate in those languages.  Or, whe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15638	15733	
==>le, a native French or Chinese speaker often prefers to
communicate in those languages.  Or, whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	466	565	
==>kenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	466	565	
==>kenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	466	565	
==>kenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokeni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5152	5269	
==>, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5152	5269	
==>, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5152	5269	
==>, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8097	8270	
==>lain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4457	4630	
==>lain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5306	5479	
==>lain text
            
            my ($prefix, $id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule cod <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6937	7070	
==>urn $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6937	7070	
==>urn $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11587	11702	
==>f & $S->FLAG_s ? 'sany' :
      'reg_any';
    return $S->object(reg_any => $family, '.');
  });

  # backslash
  $s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22555	22719	
==>("%-${max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	861	952	
==>ish

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=he <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	861	952	
==>ish

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9638	9757	
==>lc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_number <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9638	9757	
==>lc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_number <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9638	9757	
==>lc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_number <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9344	9443	
==>"size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration.

If <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9344	9443	
==>"size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration.

If <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8213	8314	
==>method.  Returns a category object.

options:

=item * grammar => $category_name - the name of thi <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12279	12393	
==>hift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
} <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1161	1261	
==>le );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1161	1261	
==>le );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5987	6107	
==>$file\n";
        return;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2964	3075	
==>/nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2964	3075	
==>/nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostn <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7372	7502	
==>b _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $call <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14629	14721	
==>encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14629	14721	
==>encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	505	607	
==>clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	505	607	
==>clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	505	607	
==>clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5212	5355	
==>f scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5212	5355	
==>f scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5212	5355	
==>f scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17292	17461	
==>n "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17292	17461	
==>n "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17292	17461	
==>n "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Valu <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8344	8457	
==>turn immediately if we've cached this.
    return $self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1711	1862	
==>t' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1711	1862	
==>t' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1711	1862	
==>t' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3561	3665	
==>il.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual a <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3561	3665	
==>il.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9274	9408	
==>`$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9274	9408	
==>`$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9274	9408	
==>`$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16975	17071	
==>sses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16975	17071	
==>sses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16975	17071	
==>sses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4183	4303	
==>ler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24857	24975	
==>ifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifie <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4037	4154	
==>ler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	71	169	
==>5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use stric <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	71	169	
==>5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use stric <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	71	169	
==>5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use stric <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2745	2836	
==>>dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2745	2836	
==>>dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2745	2836	
==>>dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1808	1925	
==>} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1808	1925	
==>} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1808	1925	
==>} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    cc(ref);
  })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5303	5407	
==>pand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5303	5407	
==>pand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5303	5407	
==>pand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expan <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15115	15213	
==>ed as the first argument, if
called in a void context.  In scalar and array contexts, the encoded o <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15115	15213	
==>ed as the first argument, if
called in a void context.  In scalar and array contexts, the encoded o <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2075	2196	
==>,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2075	2196	
==>,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11124	11232	
==>aptures the closing delimiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17071	17255	
==>h( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17071	17255	
==>h( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17071	17255	
==>h( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1189	1291	
==>t
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1189	1291	
==>t
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1189	1291	
==>t
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Objec <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6958	7070	
==>$re eq '\w';
    return $o->mk_eater_for_re('\W') if $re eq '\W';
    die "Regexp compilation bug";
  }
}
{
  # \ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8501	8611	
==>red correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  sa <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8501	8611	
==>red correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  sa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6008	6132	
==>q 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6008	6132	
==>q 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20739	20837	
==>lassing includes an ordered list of what
packages a method is looked up in for a given object of ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16070	16180	
==>rn Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16070	16180	
==>rn Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16070	16180	
==>rn Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1350	1449	
==>later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1350	1449	
==>later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1350	1449	
==>later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8529	8698	
==>m = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8529	8698	
==>m = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8529	8698	
==>m = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6422	6535	
==>)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6422	6535	
==>)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6422	6535	
==>)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1168	1270	
==>l2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1168	1270	
==>l2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1168	1270	
==>l2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelud <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1458	1595	
==>s.map:{ ( .key => 
            (.value.does(Pair)
                ?? ( .value.key =>
                    (.value.value.does(Relation::Head <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1719	1816	
==>Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' cl <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1719	1816	
==>Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	884	1017	
==>-= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	884	1017	
==>-= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6031	6134	
==>cope(M,X).
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_elemental(bos)   --> "\\A" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8845	8990	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8845	8990	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8845	8990	
==>ct ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2729	2854	
==>=~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2729	2854	
==>=~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2729	2854	
==>=~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4054	4165	
==>it($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::varia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4903	5014	
==>it($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::varia <==
3	/Users/nnunley/pugs/util/package-osx.pl	1970	2068	
==>y/Perl/5.8.6/runjs.pl
        /usr/local/lib/perl5/site_perl/Class/Rebless.pm /Library/Perl/5.8.6/C <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	156	273	
==>le::Install::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $ar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1356	1456	
==>e_scope {
	my $self = shift;

	$self->SUPER::leave_scope;

	pop @{ $self->{param_count_stack} };
}

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2444	2643	
==>,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_cla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19004	19101	
==>can support a complete SQL emulation layer on top of it, so that your
legacy applications can be m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19004	19101	
==>can support a complete SQL emulation layer on top of it, so that your
legacy applications can be m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7801	7926	
==>])

Adds a given file to the repository.

=cut

sub add_file {
    my $self = shift;
    my %args = @_;
    my ($file, $force) <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8649	8749	
==>ere this method comes into play
# it will recurse down the tree and fix the
# depth fields appropriat <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8649	8749	
==>ere this method comes into play
# it will recurse down the tree and fix the
# depth fields appropriat <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3877	3974	
==>\(UNINST\)/0/g;

    my $canonical_base = File::Spec->catdir(split(/[\\\/]/, $base));

    $makefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16428	16535	
==>nfess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16428	16535	
==>nfess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16428	16535	
==>nfess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS->has_ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	75	170	
==>datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurr <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	75	170	
==>datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	523	658	
==>';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	523	658	
==>';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19829	19916	
==>g under PIL2JS!";
}
our &PIL2JS::Internals::use_jsan_module_noimp := &PIL2JS::Internals: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10279	10458	
==>";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10279	10458	
==>";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10279	10458	
==>";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8766	8894	
==>is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8766	8894	
==>is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8766	8894	
==>is_contiguous;
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->i <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	664	790	
==>c') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 D <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	664	790	
==>c') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 D <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7752	7861	
==>eek     $fh, 0, 0  or die "Couldn't rewind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8158	8275	
==>cedence.  

=head1 METHODS

=head2 new ()

Class method.  Returns a category object.

options:

=item * gram <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	229	337	
==>$_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	229	337	
==>$_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1108	1230	
==>scalar(@{_('@:results')}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => sub {
            my ($se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31438	31532	
==>uple/Mapping as its sole read-only argument. The new
Relation has all of the same attributes as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35988	36082	
==>uple/Mapping as its sole read-only argument. The new
Relation has all of the same attributes as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2636	2747	
==>$jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3apref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2636	2747	
==>$jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3apref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2636	2747	
==>$jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3apref <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6775	6913	
==>hift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, sto <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12860	12993	
==>hift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, sto <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1350	1450	
==>y, entry_html => $entry_html );
}

sub template ($filename, *%params) {
    my $template = slurp $fil <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	501	644	
==>fig{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        and
        !$self->can_run('nmake')
    );

    print "The requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2098	2195	
==>il2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2098	2195	
==>il2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2098	2195	
==>il2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2291	2480	
==>$code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2291	2480	
==>$code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2291	2480	
==>$code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18670	18764	
==>ficiently
like what the core expects to avoid problems.  While simultaneously
trying to avoid t <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2960	3054	
==>ficiently
like what the core expects to avoid problems.  While simultaneously
trying to avoid t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6742	6830	
==>aaah! expected type cannot be placeholder" if $y->isa("Blondie::TypeSafe::Type::Placehold <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1918	2027	
==>)
        || confess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args->length()->less_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11842	11940	
==>Rx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun->new() <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11246	11389	
==>>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNumericLiteral {  # see 9.3.1
      <StrD <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3022	3114	
==>cipherer closure, which can be called repeatedly to encipher data.
The encipherer closure can <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3022	3114	
==>cipherer closure, which can be called repeatedly to encipher data.
The encipherer closure can <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15901	15994	
==>hiftExpression>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpression>
    | <RelationalExpr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17356	17542	
==>thod( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17356	17542	
==>thod( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17356	17542	
==>thod( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->items :  
                        Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	266	379	
==>meter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	266	379	
==>meter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	266	379	
==>meter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2301	2421	
==>etamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2301	2421	
==>etamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2301	2421	
==>etamodel_base|output)
:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1121	1233	
==>= $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1121	1233	
==>= $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	948	1043	
==>> . " => 0" } ))->code;

*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2266	2370	
==>s.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2266	2370	
==>s.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2266	2370	
==>s.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Constant(backup_val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1915	2036	
==>}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1915	2036	
==>}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1915	2036	
==>}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @co <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1065	1201	
==>_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f($self->val));
    }

    packag <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5809	5924	
==>t () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*un <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5809	5924	
==>t () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*un <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2568	2670	
==>indexs;
my @syn;

my $help;
my $no_designdocs;
GetOptions('test_dirs=s@' => \@t_dirs,
       'output_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22422	22588	
==>lar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22422	22588	
==>lar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22422	22588	
==>lar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30930	31051	
==>sub {
        return @values[$counter++];
    };
}

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6687	6801	
==>'$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6687	6801	
==>'$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38290	38383	
==>xample>

This method is a generic relational operator that returns the complement of
C<semijoi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11738	11871	
==>$_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11738	11871	
==>$_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11738	11871	
==>$_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a priv <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21659	21773	
==>neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18080	18194	
==>neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5027	5122	
==>self = shift;
		my $type = shift;
		while (Scalar::Util::blessed($type) and !$type->isa("Blondie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8008	8119	
==>eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8008	8119	
==>eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8008	8119	
==>eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4601	4721	
==>$match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4613	4733	
==>$match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7105	7210	
==>turn <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9571	9687	
==>pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9571	9687	
==>pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9571	9687	
==>pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6134	6255	
==>tch->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6134	6255	
==>tch->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $mat <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2701	2816	
==>t) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	810	922	
==>azy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	810	922	
==>azy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	810	922	
==>azy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unboxed value
#     Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7791	7900	
==>invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7791	7900	
==>invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7791	7900	
==>invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3757	3865	
==>r($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3757	3865	
==>r($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3757	3865	
==>r($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	629	749	
==>[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	629	749	
==>[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4910	5014	
==>as $.continue;
   has $.return;
   has $.throw;
}
class JSX::InternalValue::Completion {
   submethod BUI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1626	1776	
==>e_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1626	1776	
==>e_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1626	1776	
==>e_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4753	4921	
==>$_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4753	4921	
==>$_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4753	4921	
==>$_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1909	2105	
==>ement>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1909	2105	
==>ement>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7465	7594	
==>]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7465	7594	
==>]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7465	7594	
==>]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different class";   
            r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2764	2898	
==>) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2764	2898	
==>) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2764	2898	
==>) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2304	2426	
==>== 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2304	2426	
==>== 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3598	3701	
==>s::compile_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1137	1262	
==>ulti sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1137	1262	
==>ulti sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1137	1262	
==>ulti sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5729	5874	
==>rgs = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6578	6723	
==>rgs = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dump <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25308	25388	
==>_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1113	1214	
==>)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1113	1214	
==>)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1113	1214	
==>)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7016	7162	
==>$_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7016	7162	
==>$_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7016	7162	
==>$_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1882	2043	
==>my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1882	2043	
==>my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1882	2043	
==>my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7501	7648	
==>rrent_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            undefin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7501	7648	
==>rrent_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            undefin <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6155	6252	
==>{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my %results = $strap->analyze_fh($name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1673	1776	
==>eturns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1673	1776	
==>eturns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1673	1776	
==>eturns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1124	1239	
==>', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7171	7277	
==>mes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7171	7277	
==>mes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs( <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2292	2388	
==>ity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2292	2388	
==>ity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27878	27978	
==>alues as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32430	32530	
==>alues as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31522	31622	
==>alues as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to the i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1096	1229	
==>$authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1096	1229	
==>$authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1096	1229	
==>$authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3181	3302	
==>ll o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szl <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3181	3302	
==>ll o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szl <==
3	/Users/nnunley/pugs/util/importgraph.pl	1093	1206	
==>nless (defined $module_name) {
    warn "couldn't find a module in $File::Find::name\n";
    return;
  }

  $modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14440	14562	
==>need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-ci <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14440	14562	
==>need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-ci <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14440	14562	
==>need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	947	1047	
==>l5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	947	1047	
==>l5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	947	1047	
==>l5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11187	11319	
==>_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:p <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11187	11319	
==>_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1811	1906	
==>ning $node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar::Util::blessed($no <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1150	1237	
==>ode;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Paramete <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1150	1237	
==>ode;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Paramete <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1021	1156	
==>m  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Inte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2374	2489	
==>ompile(<<'RULE')->code();

    $<variable>:=(<varscalar>)<?p6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5378	5489	
==>in);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	744	850	
==>sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is exp <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	744	850	
==>sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	564	683	
==>";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	564	683	
==>";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	564	683	
==>";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) o <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	534	654	
==>t_arguments ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $normalizer = $arg but $. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6673	6778	
==>rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne ' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6673	6778	
==>rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14127	14228	
==>NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20730	20904	
==>aram;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20730	20904	
==>aram;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20730	20904	
==>aram;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12828	12969	
==>if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12828	12969	
==>if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12828	12969	
==>if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $met <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11140	11233	
==>rse()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everything ( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11140	11233	
==>rse()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everything ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3758	3849	
==>ire'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	318	421	
==>s it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	318	421	
==>s it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2677	2775	
==>o make it work automagically for platforms is really bad. I 
hope that as Pugs matures this will ch <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2677	2775	
==>o make it work automagically for platforms is really bad. I 
hope that as Pugs matures this will ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	964	1082	
==>eturn "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	964	1082	
==>eturn "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	964	1082	
==>eturn "(function () { throw new PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2898	3017	
==>=> "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2898	3017	
==>=> "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2898	3017	
==>=> "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    ou <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	158	276	
==>count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_fun <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	158	276	
==>count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_fun <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3188	3298	
==>id for a Relation::Example to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8742	8846	
==>0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <Dou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2695	2791	
==>ar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2695	2791	
==>ar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7462	7643	
==>= _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7462	7643	
==>= _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7462	7643	
==>= _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8925	9030	
==>e.\n");
    return r;
  }
}

void regexp_hook_on() {
  if(previous_comp_hook != NULL) { croak("Cant instal <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8522	8624	
==>nels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8522	8624	
==>nels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2990	3086	
==>vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2990	3086	
==>vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStm <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27543	27637	
==>ist α", ":t listify(x)");
is(t(comb( fun => $one_elem_list, param => val(5) )), "list int", ": <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	480	581	
==>ASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	480	581	
==>ASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	480	581	
==>ASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($a <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2102	2245	
==>c);
    my $rem = $sec - $round_sec;
    my $nano = $rem * 1e9;
    return int($nano);
    #int( ($.second - int($.second) ) * 1e9);
}
method mi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6551	6645	
==>el::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_typ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6551	6645	
==>el::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_typ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7653	7761	
==>rn $Result4;
}

# 9.8

# 9.9





class JSX::Value::Array;
submethod BUILD {
    $.property_attributes{'lengt <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5339	5433	
==>ternal state as completely as possible. 
This is automatically done as part of C<finish>, C<fin <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	754	848	
==>f="#" onclick="openNewWindows(); return false;">open each link in a
new window</a>.  (Useful wi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5339	5433	
==>ternal state as completely as possible. 
This is automatically done as part of C<finish>, C<fin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10862	11009	
==>per( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3737	3906	
==>= *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3737	3906	
==>= *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3737	3906	
==>= *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slo <==
3	/Users/nnunley/pugs/util/func_refact.pl	946	1085	
==>es) {
            print "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        unio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4904	5030	
==>oid'>
    | <'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17929	18026	
==>he perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2288	2385	
==>he perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	205	347	
==>il
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	205	347	
==>il
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	205	347	
==>il
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6316	6416	
==>{
	my($name,$argl,$f,$lval)=@_;
	my $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $code = code_for_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25806	25902	
==>the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30358	30454	
==>the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation attri <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1969	2074	
==>quires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2849	2954	
==>quires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38439	38527	
==>ed
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation::Example $other!) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21260	21356	
==>lves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module:: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21260	21356	
==>lves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	563	671	
==>l = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	333	441	
==>l = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	333	441	
==>l = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17476	17598	
==>en) {
    local $X::str = $s;
    local $X::pos = $start;
    local $X::cap = [];
    my $m = MatchX->new();
    local $X:: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4770	4878	
==>utators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4770	4878	
==>utators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2699	2883	
==>y library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $us <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2699	2883	
==>y library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $us <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28157	28264	
==>_COW_DROP(rx->saved_copy); \
	 } \
	 if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MAT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16509	16630	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16509	16630	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16509	16630	
==>> ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	581	702	
==>ument; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ whi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	581	702	
==>ument; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ whi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15101	15204	
==>{ ... })
  package Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1006	1150	
==>@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1006	1150	
==>@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26752	26847	
==>:t (+ 10) 5");
is(t($half_pair), "∀α. α → (int × α)", ":t pair(10)");
is(t($pair), "(int <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6909	7006	
==>f->{t} ||= type::operator::nullary->new("int");
	$self;
}


package types;

use Class::Multimethod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21522	21617	
==>class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes may <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26074	26169	
==>class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes may <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3129	3249	
==>open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3129	3249	
==>open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27224	27326	
==>add_handler('&' => ...);  # see below
  }

=item $parser->add_flag($flag, $code)

This method creates a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4121	4234	
==>B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4121	4234	
==>B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4201	4314	
==>B<test_diag( Str $line )>

Adds a line to the list of lines of expected diagnostics for the test you're
going to r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3342	3444	
==>} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3342	3444	
==>} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3342	3444	
==>} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12026	12147	
==>, $min, $max, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'quant <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12977	13072	
==>ecognized
entities are left alone.

If multiple strings are provided as argument they are each d <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12977	13072	
==>ecognized
entities are left alone.

If multiple strings are provided as argument they are each d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1725	1853	
==>helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.char <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1725	1853	
==>helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.char <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1725	1853	
==>helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.char <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2338	2455	
==>::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2338	2455	
==>::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2685	2802	
==>::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1098	1211	
==>k -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1098	1211	
==>k -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1098	1211	
==>k -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this by emitting %PIL2JS::EXPORTS <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5189	5352	
==>verse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5189	5352	
==>verse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8185	8274	
==>//www.w3.org/1999/xhtml" xml:lang="en">
<head>
  <title>Pugs Smoke Reports</title>
  <meta <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23773	23900	
==>EXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #d <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2081	2186	
==>ely -- other
events may be pending processing, too.

=head2 C<run()>

Enter the main runloop.

=head1 AUTH <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28974	29076	
==>EXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1548	1668	
==>x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1548	1668	
==>x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30955	31046	
==>w POSIX character class, its handler
must start with "POSIX_".

=item $parser->del_handler(@ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12574	12679	
==>nd};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12574	12679	
==>nd};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5071	5163	
==>test has passed or failed, depending on the value of C<$passed>,
recording C<$description> as <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5071	5163	
==>test has passed or failed, depending on the value of C<$passed>,
recording C<$description> as <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6595	6687	
==>test has passed or failed, depending on the value of C<$passed>,
recording C<$description> as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4796	4943	
==>ms;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4796	4943	
==>ms;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4796	4943	
==>ms;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26124	26224	
==>ble names you can have depend on the Message Key
it is being used with (others are ignored).  Each va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26124	26224	
==>ble names you can have depend on the Message Key
it is being used with (others are ignored).  Each va <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14771	14869	
==>ead2 Str

General notes about strings:

A Str can exist at several Unicode levels at once. Which le <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4434	4607	
==>s, $script;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dum <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18335	18507	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::option <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18614	18786	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::option <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1172	1333	
==>if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1172	1333	
==>if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	54	144	
==>:MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Te <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18569	18700	
==>ternals::sprintf($conversion,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17600	17695	
==>he HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and conta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17600	17695	
==>he HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6140	6250	
==>:stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6140	6250	
==>:stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6140	6250	
==>:stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_descript <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7281	7425	
==>} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7281	7425	
==>} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10311	10440	
==>ject(bol => bol => '^^');
  });


  ### '&'


  ### '*'

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5262	5387	
==>ious => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5262	5387	
==>ious => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1399	1496	
==>main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline_bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6414	6577	
==>me', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6414	6577	
==>me', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6414	6577	
==>me', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2136	2232	
==>a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2136	2232	
==>a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functio <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5545	5659	
==>ms) {
	my($var)=@$_;
        push(@vars,$var);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstract <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	636	735	
==>ile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Cons <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	636	735	
==>ile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	815	933	
==>t have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	815	933	
==>t have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	815	933	
==>t have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1213	1318	
==>DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1213	1318	
==>DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1213	1318	
==>DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::EXPORT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1544	1645	
==>eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1544	1645	
==>eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1544	1645	
==>eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5017	5142	
==>v_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5017	5142	
==>v_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5607	5732	
==>v_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40731	40846	
==>Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40731	40846	
==>Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40731	40846	
==>Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1128	1250	
==>if(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1128	1250	
==>if(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1128	1250	
==>if(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	636	729	
==>ue_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	636	729	
==>ue_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	636	729	
==>ue_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7357	7472	
==>s MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7357	7472	
==>s MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7357	7472	
==>s MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12732	12838	
==>instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12732	12838	
==>instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12732	12838	
==>instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_metho <==
3	/Users/nnunley/pugs/util/package-osx.pl	49	179	
==>s (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|parrot|pugs-parrot] target_base_dir
        Run after make install <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24212	24310	
==>t,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set wi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28764	28862	
==>t,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	79	179	
==>onstant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	79	179	
==>onstant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	79	179	
==>onstant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of th <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4062	4164	
==>ded to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SE <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4062	4164	
==>ded to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SE <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	994	1090	
==>e;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	use base qw/Blondie: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11708	11825	
==>valX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Err <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11708	11825	
==>valX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Err <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11708	11825	
==>valX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Err <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6097	6225	
==>$!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6097	6225	
==>$!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6097	6225	
==>$!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Co <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7689	7802	
==>try again, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewind \"@{[ BU <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12600	12696	
==>($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=he <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12600	12696	
==>($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1555	1680	
==>{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1555	1680	
==>{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1555	1680	
==>{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10062	10157	
==>st for grep { $prog->get($_)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { native(en <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39266	39358	
==>le>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39266	39358	
==>le>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	401	524	
==>temAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	401	524	
==>temAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	401	524	
==>temAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3782	3885	
==>roak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3782	3885	
==>roak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4372	4475	
==>roak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2908	3019	
==>L {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2908	3019	
==>L {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PIL <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13714	13812	
==>ric($$) = { generic_in($$) }
# vals are assumed to know their own type (see package val above)
val: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1494	1617	
==>ment.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1494	1617	
==>ment.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1494	1617	
==>ment.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1238	1349	
==>= (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1443	1554	
==>= (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1504	1615	
==>= (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6312	6412	
==>ngs won't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6312	6412	
==>ngs won't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6312	6412	
==>ngs won't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13788	13963	
==>n -fs $alt $bin ] )                 and die $?;
        push @bins, $script;
    }

    my $alt = JIB::Alternative->new_from_struct( struct => 
                    { bin => \@b <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	437	535	
==>);
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compression <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1069	1190	
==>use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1901	2017	
==>use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2041	2157	
==>use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1891	1991	
==>meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1891	1991	
==>meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1891	1991	
==>meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package') <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1158	1304	
==>$x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher ord <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23752	23850	
==>ary.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of log <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22268	22366	
==>ary.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of log <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1382	1502	
==>pr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1382	1502	
==>pr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    d <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1812	1906	
==>.pl --test_dirs=t/builtins,t/macros --output_dir=t_test --no_designdocs

   See also:
     util <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1230	1321	
==>--------------------------

Since you are using Microsoft Windows, you will need the 'nmake' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1070	1161	
==>--------------------------

Since you are using Microsoft Windows, you will need the 'nmake' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	473	583	
==>ently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	473	583	
==>ently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	473	583	
==>ently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7831	7975	
==>g;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7831	7975	
==>g;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7831	7975	
==>g;
        $ary->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction- <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	130	237	
==>has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengt <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	130	237	
==>has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengt <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1119	1218	
==>client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1714	1809	
==>::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1714	1809	
==>::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1714	1809	
==>::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5307	5532	
==>}
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5307	5532	
==>}
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1569	1691	
==>>{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20949	21162	
==>)
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21228	21441	
==>)
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ru <==
3	/Users/nnunley/pugs/util/addauthors.pl	358	453	
==>ors = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5118	5246	
==>Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5118	5246	
==>Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15620	15726	
==>nperl_args ||= {};
    $runperl_args->{progfile} = $tmpfile;
    $runperl_args->{stderr} = 1;

    open TES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	69	191	
==>ma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	69	191	
==>ma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	69	191	
==>ma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1523	1683	
==>Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not impl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1523	1683	
==>Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not impl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1523	1683	
==>Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not impl <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	986	1101	
==>al_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	953	1068	
==>al_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11817	11935	
==>{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package Regexp::Pars <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9564	9655	
==>set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9564	9655	
==>set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3968	4096	
==>avail = eval { 
                map { JIB::Package->new( meta => $_, installation => $obj) }
                map { JIB::Meta->new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21029	21118	
==>seudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21029	21118	
==>seudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15813	15924	
==>nt pos
    .param string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = new .E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29719	29908	
==>ue::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29719	29908	
==>ue::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29719	29908	
==>ue::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unboxed
        }
        else {
            $sum += $_
        }
    }
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1802	1896	
==>_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1802	1896	
==>_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1802	1896	
==>_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3363	3462	
==>s represents a single test within the
Test::Builder framework. The class itself is actually a factor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3363	3462	
==>s represents a single test within the
Test::Builder framework. The class itself is actually a factor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5560	5659	
==>s represents a single test within the
Test::Builder framework. The class itself is actually a factor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	674	784	
==>({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	464	572	
==>= -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	464	572	
==>= -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.sp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	328	583	
==>n this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This gi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	328	583	
==>n this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This gi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3043	3153	
==>ft;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list got($_) => " . (C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1333	1450	
==>o (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1333	1450	
==>o (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1333	1450	
==>o (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14939	15092	
==>ant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15218	15371	
==>ant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5744	5854	
==>{ return { angle_quoted => $/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pug <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1591	1701	
==>=   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1591	1701	
==>=   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, de <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	969	1064	
==>pressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>au <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1134	1231	
==>r -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This document de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1134	1231	
==>r -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This document de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17476	17578	
==>o_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17476	17578	
==>o_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17476	17578	
==>o_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	495	672	
==>$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	583	760	
==>$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	580	752	
==>$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2309	2413	
==>"$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passiv <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2309	2413	
==>"$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4951	5045	
==>ass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4951	5045	
==>ass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4951	5045	
==>ass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor }) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2773	2929	
==>:NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	526	664	
==>:NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	526	664	
==>:NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14944	15096	
==>efined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14944	15096	
==>efined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1472	1572	
==>$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call_ter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4390	4501	
==>return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4390	4501	
==>return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4390	4501	
==>return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2753	2887	
==>class Test::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	506	626	
==>class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	506	626	
==>class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns S <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3354	3465	
==>param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -I <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3354	3465	
==>param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -I <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	112	212	
==>re::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

use Carp 'confess';
us <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4629	4738	
==>^O eq 'cygwin') {
        warn << "."
** Note that Cygwin support for pugs still depends on the .msi
   versio <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22069	22178	
==>ef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I do <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16970	17078	
==>ef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I do <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1238	1338	
==>b catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1238	1338	
==>b catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	784	889	
==>@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 mult <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4557	4657	
==>plicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes($node->orig);
}

sub reduce <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32639	32734	
==>butes, it is
I<imperative> you use the method to access the attribute when I<outside>
the class, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4156	4258	
==>stance
constructor, and when calling these methods you should take care not
to call them in function fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4156	4258	
==>stance
constructor, and when calling these methods you should take care not
to call them in function fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4156	4258	
==>stance
constructor, and when calling these methods you should take care not
to call them in function fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	117	239	
==>nction (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	117	239	
==>nction (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	117	239	
==>nction (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative() <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	46	150	
==>ting(Str $name) returns Str is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Module - A Sample M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14074	14171	
==>_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14074	14171	
==>_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14074	14171	
==>_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PI <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4155	4276	
==>";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4155	4276	
==>";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it re <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13552	13649	
==>Bool )

True if invocant has an element whose key matches C<$key>, false
otherwise.

An unary form <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6038	6158	
==>on( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6038	6158	
==>on( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6038	6158	
==>on( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  war <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1224	1333	
==>ber,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1224	1333	
==>ber,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1224	1333	
==>ber,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FET <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	422	531	
==>less $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	422	531	
==>less $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	215	312	
==>ring related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::Strings;

=head1 DESCRIPTION

=c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1484	1595	
==>$.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1484	1595	
==>$.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1456	1554	
==>ng faced were insufficiently documented,
# audreyt forked, creating re-override, intending to provi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16336	16433	
==>edia type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16336	16433	
==>edia type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned w <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4439	4560	
==>ndex == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4439	4560	
==>ndex == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	65	150	
==>Perl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1412	1518	
==>_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1412	1518	
==>_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2202	2290	
==>Blondie::App->new(
			$class->build_indirect_typed_value(
				Blondie::Backend::Perl::Pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22504	22670	
==>al concept is:

  if (into_scope) {
    push STACK, TREE;
    TREE = CURRENT->DATA;
  }
  if (outof_scope) {
    TREE = pop STACK;
  }

After the tree has been created <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15892	16045	
==>efined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15892	16045	
==>efined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15892	16045	
==>efined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13501	13606	
==>e Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13501	13606	
==>e Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13501	13606	
==>e Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1111	1223	
==>->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1111	1223	
==>->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1111	1223	
==>->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	227	394	
==>ach \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'valu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1136	1240	
==>ocument contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # Li <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1136	1240	
==>ocument contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # Li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	947	1047	
==>T - so maybe the implementation

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, emit a M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	900	997	
==>T - so maybe the implementation
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, emit a M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5638	5724	
==>e Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternar <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6972	7069	
==>ired once the '=head(n)' directive is reached. This does not include 
the text of the header, that <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6972	7069	
==>ired once the '=head(n)' directive is reached. This does not include 
the text of the header, that <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16023	16116	
==>ession>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpression>
    | <RelationalExpressionN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5989	6092	
==>d('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5989	6092	
==>d('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5989	6092	
==>d('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4708	4836	
==>ar = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4708	4836	
==>ar = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6289	6387	
==>ber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumber <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3744	3901	
==>le themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 sh <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3744	3901	
==>le themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5268	5425	
==>le themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 sh <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4253	4349	
==>nels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4253	4349	
==>nels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	866	964	
==>ce accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Laz <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	866	964	
==>ce accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Laz <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11999	12110	
==>&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num tests_total"><span title="<tmpl_var na <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	882	978	
==>ble to access the Class' private
attributes.  This is "early" method binding.

=head1 NOTES

Perh <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10653	10748	
==>rns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B< <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10653	10748	
==>rns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45547	45688	
==>w('name'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5785	5912	
==>de = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6634	6761	
==>de = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11918	12028	
==>one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11918	12028	
==>one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11918	12028	
==>one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3219	3318	
==>ype

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameter <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3219	3318	
==>ype

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18831	19035	
==>r = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18831	19035	
==>r = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18831	19035	
==>r = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5827	5931	
==>igil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5827	5931	
==>igil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5827	5931	
==>igil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	85	199	
==>educer::DynamicScoping/;

use strict;
use warnings;

use UNIVERSAL::require;
use Blondie::TypeSafe ();

use Blondie <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5153	5254	
==>inishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5153	5254	
==>inishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	887	979	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	887	979	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	887	979	
==>_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1350	1453	
==>l");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $inp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1350	1453	
==>l");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $inp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1350	1453	
==>l");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $inp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21059	21160	
==>he last of these fields will be present in the header
after the call.  All values ought to be kept.

P <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21059	21160	
==>he last of these fields will be present in the header
after the call.  All values ought to be kept.

P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5562	5694	
==>function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5562	5694	
==>function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5562	5694	
==>function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_matc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14042	14445	
==>,
                                         failed      => '??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $File <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20549	20649	
==>w you to force a
specific spelling.  For example if you really want a header field name
to show up as <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20549	20649	
==>w you to force a
specific spelling.  For example if you really want a header field name
to show up as <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17041	17158	
==>ys free, and thus becomes generic (id is polymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(1 <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3087	3199	
==>wsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $dat <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3087	3199	
==>wsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4680	4812	
==>e caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4680	4812	
==>e caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4680	4812	
==>e caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3800	3973	
==>is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3800	3973	
==>is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # N <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4565	4674	
==>ck)
  {
    my $top = $tokenStack[-1];
    goto missing_term if ((index $$top["opts"], "nullterm") < 1);
    ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24597	24697	
==>rn $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21018	21118	
==>rn $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16260	16374	
==>XAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16260	16374	
==>XAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	687	834	
==>sNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	687	834	
==>sNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	687	834	
==>sNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2284	2392	
==>sh{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2284	2392	
==>sh{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2284	2392	
==>sh{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32184	32284	
==>and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36734	36834	
==>and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36024	36124	
==>and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3678	3838	
==>1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3678	3838	
==>1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3678	3838	
==>1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2132	2244	
==>_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2132	2244	
==>_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2132	2244	
==>_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4420	4571	
==>~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4420	4571	
==>~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4420	4571	
==>~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8727	8948	
==>}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8727	8948	
==>}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8727	8948	
==>}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13863	13981	
==>ed) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the con <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13863	13981	
==>ed) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the con <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	302	408	
==>al list.

CAVEAT - This file so far represents only a an hour or two of work.
It is very much in a state of <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2090	2186	
==>xt::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and transl <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2090	2186	
==>xt::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and transl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6642	6755	
==>l/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramCon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6642	6755	
==>l/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramCon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6642	6755	
==>l/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramCon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7412	7547	
==>'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7412	7547	
==>'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7412	7547	
==>'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34963	35078	
==>offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34963	35078	
==>offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34963	35078	
==>offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13277	13430	
==>f @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13277	13430	
==>f @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13277	13430	
==>f @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4297	4416	
==>FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4297	4416	
==>FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3253	3354	
==>/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirname($ghc) . $Config{path_se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1917	2040	
==>os}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1977	2100	
==>os}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->n <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	721	826	
==>"<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	457	552	
==>} elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	457	552	
==>} elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	457	552	
==>} elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18893	19048	
==>constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19172	19327	
==>constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \& <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1417	1537	
==>\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @result = eval($code);
            w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3295	3393	
==>itional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3479	3577	
==>itional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $vari <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	488	583	
==>v" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my %request = (uploa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	916	1007	
==>alidator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	916	1007	
==>alidator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5394	5530	
==>r to have to deal with
            # uninitialized vars.
            foreach my $piece (qw(name type reason)) {
                $details- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3034	3146	
==>tinue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3034	3146	
==>tinue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	179	303	
==>e of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	179	303	
==>e of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	179	303	
==>e of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9479	9597	
==>ion? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9479	9597	
==>ion? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9479	9597	
==>ion? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1765	1893	
==>0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1765	1893	
==>0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1765	1893	
==>0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2686	2897	
==>if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2686	2897	
==>if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($conten <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4577	4678	
==>e;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4577	4678	
==>e;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mir <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	520	621	
==>head2 C<assert()>

  assert( EXPR, $name );

If the expression is false the program aborts.

=cut

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2376	2471	
==>ix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2376	2471	
==>ix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2376	2471	
==>ix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5044	5173	
==>=> { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5237	5366	
==>=> { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35596	35697	
==>s the body of one and-branch.  We will take the last one off
and keep it normal, but the others we wil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8194	8344	
==>get ("$method"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::si <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3010	3100	
==>od symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).union <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3010	3100	
==>od symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).union <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24338	24434	
==>e of
all the other tuples.

For purposes of the Relation::Example class' API, a tuple is represen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1300	1393	
==>lter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1300	1393	
==>lter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14903	15021	
==>_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB ki <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14903	15021	
==>_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB ki <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14903	15021	
==>_to_s($_)} @xx;
    p6_from_n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB ki <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4576	4678	
==>b JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4576	4678	
==>b JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4576	4678	
==>b JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17852	18034	
==>r => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17852	18034	
==>r => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17852	18034	
==>r => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->get_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9420	9537	
==>6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9420	9537	
==>6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9420	9537	
==>6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	117	227	
==>recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	117	227	
==>recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	117	227	
==>recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2226	2468	
==>nt.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> St <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2226	2468	
==>nt.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13245	13360	
==>match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') / <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13245	13360	
==>match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') / <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13738	13843	
==>2
      <MemberExpression> <Arguments>
    | <CallExpression> <Arguments>
    | <CallExpression> <'['> <Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1171	1279	
==>to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1171	1279	
==>to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1171	1279	
==>to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36133	36264	
==>emaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36133	36264	
==>emaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36133	36264	
==>emaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class->from_list( @tai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11884	12011	
==>word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11878	12005	
==>word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12717	12824	
==>t) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12717	12824	
==>t) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12717	12824	
==>t) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3743	3848	
==>:: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3743	3848	
==>:: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3743	3848	
==>:: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @ <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	131	225	
==>st' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remot <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	131	225	
==>st' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remot <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	132	221	
==>dToken("term:::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term::::", "t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5205	5307	
==>n absolute value
# otherwise $range is a fractional error.
# Here $range must be numeric, >= 0
# Non nu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	909	1010	
==>tions: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	909	1010	
==>tions: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6083	6199	
==>) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6071	6187	
==>) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2318	2421	
==>end of the pass, and the original object they had
	# this lets us assign letters to them

	my @letters = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13011	13109	
==>ns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structures ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13011	13109	
==>ns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structures ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3702	3859	
==>e_class(shift)->superclass;
        },                       
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1585	1705	
==>FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1552	1672	
==>FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5014	5141	
==>{ 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5014	5141	
==>{ 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	409	515	
==>lement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	409	515	
==>lement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	409	515	
==>lement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7150	7265	
==>main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7150	7265	
==>main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7150	7265	
==>main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	556	677	
==>esh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } el <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	556	677	
==>esh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } el <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7103	7419	
==>d',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artist <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7160	7476	
==>d',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artist <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18623	18706	
==>_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_ma <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	856	985	
==>\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	856	985	
==>\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1586	1714	
==>nts a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1586	1714	
==>nts a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::C <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	561	662	
==>Params::Check->last_error), return );

    my $struct = eval { LoadFile( $file ) } or error( $@ ), ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6943	7066	
==>PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6943	7066	
==>PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6943	7066	
==>PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2618	2771	
==>igenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2618	2771	
==>igenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2618	2771	
==>igenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16110	16207	
==>_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16110	16207	
==>_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16110	16207	
==>_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2223	2350	
==>n perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2223	2350	
==>n perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2223	2350	
==>n perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2039	2148	
==>ing

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2039	2148	
==>ing

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	510	608	
==>lass.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created when you
de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9323	9441	
==>( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9311	9429	
==>( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15022	15128	
==>package Compiler;
use base qw/Reducer Map DynamicScopes/;

sub compile {
    my $self = shift;

    $self-> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18419	18612	
==>t if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_content($i, 1, $1, $2, $backlink, $3);
                      $found = 1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30972	31064	
==>iginal, in which case
this method returns the identity-one Relation or the invocant relation, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35522	35614	
==>iginal, in which case
this method returns the identity-one Relation or the invocant relation, <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5581	5697	
==>$to, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "pStmts" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1180	1271	
==>IL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1180	1271	
==>IL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5533	5650	
==>space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    re <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1759	1911	
==>hift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token}( @_ );
    for @end   { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    $ret;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2833	2937	
==>tr>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below i <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2833	2937	
==>tr>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	250	365	
==>D (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

metho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	250	365	
==>D (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

metho <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2022	2113	
==>cif(%?CONFIG{'num_width'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	466	616	
==>e key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	466	616	
==>e key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	466	616	
==>e key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4125	4270	
==>ult;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4125	4270	
==>ult;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4125	4270	
==>ult;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3892	3993	
==>Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3950	4051	
==>Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	690	797	
==>f->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	690	797	
==>f->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	690	797	
==>f->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13970	14088	
==>:Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13970	14088	
==>:Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13970	14088	
==>:Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	900	995	
==>ect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	900	995	
==>ect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	980	1075	
==>ect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7678	7797	
==>$self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(file => $file, [force => B <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2944	3053	
==>oad;
    $self->preload;

    # Unregister loader and worker packages so subdirs can use them again
    delete <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	68	160	
==>s export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  retu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	68	160	
==>s export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4175	4316	
==>he {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4175	4316	
==>he {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4175	4316	
==>he {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4406	4503	
==>{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4406	4503	
==>{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4406	4503	
==>{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3843	3954	
==>e ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3843	3954	
==>e ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3843	3954	
==>e ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3252	3377	
==>stanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3252	3377	
==>stanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3252	3377	
==>stanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7251	7400	
==>rn bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7251	7400	
==>rn bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7251	7400	
==>rn bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1364	1472	
==>ssoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1364	1472	
==>ssoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1364	1472	
==>ssoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1947	2096	
==>tcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1947	2096	
==>tcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1947	2096	
==>tcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1765	1873	
==>, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $lin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1765	1873	
==>, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $lin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1845	1953	
==>, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $lin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2702	2805	
==>et $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stringif <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2702	2805	
==>et $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	756	895	
==>q 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	756	895	
==>q 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	756	895	
==>q 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	59	155	
==>e File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	59	155	
==>e File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	59	155	
==>e File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5036	5143	
==>escription = '' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recordin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5036	5143	
==>escription = '' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recordin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6560	6667	
==>escription = '' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recordin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4746	4862	
==>r

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4583	4695	
==>r
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitt <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5972	6084	
==>by 1/3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$all_tests, 0, $this_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2537	2641	
==>_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2537	2641	
==>_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2537	2641	
==>_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15208	15315	
==>text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15208	15315	
==>text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3115	3250	
==>.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    forea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3115	3250	
==>.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    forea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3115	3250	
==>.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    forea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1634	1750	
==>{
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1634	1750	
==>{
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1634	1750	
==>{
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17844	18023	
==>2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21321	21500	
==>2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20908	21087	
==>2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17765	17883	
==>lf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17765	17883	
==>lf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17765	17883	
==>lf);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1291	1406	
==>ext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives the <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1291	1406	
==>ext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives the <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1291	1406	
==>ext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3190	3302	
==>e {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3190	3302	
==>e {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3190	3302	
==>e {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16022	16136	
==>Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16022	16136	
==>Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16022	16136	
==>Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13162	13317	
==>(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13162	13317	
==>(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13162	13317	
==>(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # constru <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4992	5100	
==>splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	$self->{param}->free_vars;
}


package <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2188	2285	
==>es.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2188	2285	
==>es.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3116	3230	
==>= Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3116	3230	
==>= Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3116	3230	
==>= Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15668	15787	
==>$min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10524	10643	
==>$min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	405	519	
==>rogram);

	$self->{dups}->members;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4164	4277	
==>/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*// <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4164	4277	
==>/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*// <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4164	4277	
==>/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	699	814	
==>urpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	699	814	
==>urpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	699	814	
==>urpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5443	5603	
==>undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5443	5603	
==>undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4679	4784	
==>the thunk

			my $expected = shift @context;

			#warn "## unifying " . $self->display_type($expected) . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14012	14145	
==>p;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14012	14145	
==>p;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14012	14145	
==>p;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    e <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6946	7133	
==>.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$nu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6946	7133	
==>.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2551	2645	
==>Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2551	2645	
==>Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2551	2645	
==>Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9891	10028	
==>' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9891	10028	
==>' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9891	10028	
==>' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2711	2831	
==>hift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2711	2831	
==>hift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2711	2831	
==>hift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4382	4533	
==>E')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4382	4533	
==>E')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4382	4533	
==>E')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4698	4822	
==>:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 3 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11866	11961	
==>his method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11866	11961	
==>his method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1403	1525	
==>"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallba <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1370	1492	
==>"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2977	3085	
==>ic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2977	3085	
==>ic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2977	3085	
==>ic for methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methnam <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42979	43094	
==>:Object->send('add_method' => (
    # method label
        symbol->new('can'),
    # method body
        method->new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20680	20768	
==>and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20680	20768	
==>and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1267	1395	
==>done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1267	1395	
==>done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1267	1395	
==>done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.sh <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7053	7179	
==>}
    warn "all chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2112	2205	
==>ad2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postf <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2112	2205	
==>ad2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postf <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4019	4111	
==>er::Test::Fail
instance, passing on the C<$description> parameter and setting the passed
para <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4019	4111	
==>er::Test::Fail
instance, passing on the C<$description> parameter and setting the passed
para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6216	6308	
==>er::Test::Fail
instance, passing on the C<$description> parameter and setting the passed
para <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1206	1310	
==>ivalence = "=";

  $match = "P6RulesInP5::Match" if ! defined $match; 
  $options = "left" if not $option <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21532	21627	
==>es yours may wish to
override some of your messages, showing other messages instead which are
mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21532	21627	
==>es yours may wish to
override some of your messages, showing other messages instead which are
mo <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5742	5871	
==>dex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5742	5871	
==>dex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	361	464	
==>ackage} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl/$struct-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8633	8767	
==>1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8633	8767	
==>1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	926	1031	
==>\n",number_the_lines($p5),"\n";
	}
	print $cc->warnings;
        print "----\n";
	my @res = eval($p5);
	pr <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1086	1231	
==>al;
            next;
        };
        /^\s/ && die "sorry, nesting not supported: $_\n";
        die "can't parse line: $_\n";
    }
    return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5061	5169	
==>ined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5061	5169	
==>ined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6889	7008	
==>mName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6889	7008	
==>mName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6889	7008	
==>mName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11785	11914	
==>ock->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12064	12193	
==>ock->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5414	5519	
==>"( " . join(" -> ", map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	306	409	
==>tta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	306	409	
==>tta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5659	5801	
==>le' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5881	6023	
==>le' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3116	3233	
==>@ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3116	3233	
==>@ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3116	3233	
==>@ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9129	9329	
==>rt .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_parameter_binding( $n->{signature} ) .
                    _emit( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2644	2753	
==>class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Ge <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2644	2753	
==>class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3674	3781	
==>nding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3674	3781	
==>nding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3674	3781	
==>nding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2091	2202	
==>t = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	96	199	
==>t = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	96	199	
==>t = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5736	5859	
==>es)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5736	5859	
==>es)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5736	5859	
==>es)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24375	24473	
==>object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a de <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28927	29025	
==>object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a de <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27794	27892	
==>object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns a de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5942	6066	
==>("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5942	6066	
==>("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5942	6066	
==>("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10810	10920	
==>ainer::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10810	10920	
==>ainer::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10810	10920	
==>ainer::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11343	11444	
==>e::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11343	11444	
==>e::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11343	11444	
==>e::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = File::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3335	3428	
==>her(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3335	3428	
==>her(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3335	3428	
==>her(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1152	1256	
==>cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1152	1256	
==>cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1152	1256	
==>cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4269	4447	
==>l = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4269	4447	
==>l = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4269	4447	
==>l = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19668	19763	
==>-text format that will be much easier for a non-programmer to edit.
But the current Perl-based s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19668	19763	
==>-text format that will be much easier for a non-programmer to edit.
But the current Perl-based s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3305	3420	
==>l5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3305	3420	
==>l5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3305	3420	
==>l5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2107	2234	
==>rt> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2107	2234	
==>rt> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $star <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	222	315	
==>{ }»('foo');
#=postcircumfix
postcircumfix:«{ }»($a, 'foo');
# $a.postcircumfix:«{ }»('f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18133	18287	
==>, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14554	14708	
==>, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3318	3443	
==>e a thingy

package type::operator;
use base qw/type/;

sub new {
	my $class = shift;
	bless {}, $class;
}

package type::oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15508	15635	
==>= Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15508	15635	
==>= Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15508	15635	
==>= Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17976	18108	
==>gs => $rx->{flags}[-1],
      family => 'close',
      nparen => $nparen,
      raw => ')',
      omit => 1,
      up => 1,
    }, $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6958	7068	
==>match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6958	7068	
==>match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8351	8587	
==>gify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8351	8587	
==>gify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8351	8587	
==>gify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12528	12627	
==>ast (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12528	12627	
==>ast (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12528	12627	
==>ast (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5663	5788	
==>r = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9974	10099	
==>r = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9542	9675	
==>r orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9542	9675	
==>r orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9542	9675	
==>r orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var ori <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11212	11320	
==>rn $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1678	1776	
==>rn $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1678	1776	
==>rn $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18853	18980	
==>rom_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18853	18980	
==>rom_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18853	18980	
==>rom_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3876	3986	
==>it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3876	3986	
==>it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3876	3986	
==>it will be substituted by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	331	482	
==>_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	331	482	
==>_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	331	482	
==>_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2138	2248	
==>dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2138	2248	
==>dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2138	2248	
==>dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9558	9700	
==>mp if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	832	953	
==>> 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # cap <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	832	953	
==>> 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2099	2210	
==>" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2099	2210	
==>" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2099	2210	
==>" ],
    [ "infix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	29	131	
==>ll::Can;

use strict;
use Module::Install::Base;
use Config ();
### This adds a 5.005 Perl version depe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2407	2515	
==>_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2407	2515	
==>_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2407	2515	
==>_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8917	9023	
==>turn "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8917	9023	
==>turn "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8917	9023	
==>turn "\"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1258	1356	
==>out if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1258	1356	
==>out if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1258	1356	
==>out if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7326	7546	
==>>unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7326	7546	
==>>unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7326	7546	
==>>unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	885	999	
==>y $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	885	999	
==>y $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	885	999	
==>y $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1319	1431	
==>_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::dou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1319	1431	
==>_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::dou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1319	1431	
==>_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::dou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2792	2898	
==>ush @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2792	2898	
==>ush @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2792	2898	
==>ush @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3131	3250	
==>>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3131	3250	
==>>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3131	3250	
==>>add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18439	18612	
==>$method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # who <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18439	18612	
==>$method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # who <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18439	18612	
==>$method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # who <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2145	2254	
==>ng(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2145	2254	
==>ng(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2145	2254	
==>ng(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5606	5754	
==>t is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5606	5754	
==>t is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5606	5754	
==>t is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) {
                # we stub th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9651	9857	
==>store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9651	9857	
==>store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9651	9857	
==>store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	611	761	
==>print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	611	761	
==>print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	611	761	
==>print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12057	12185	
==>LASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12057	12185	
==>LASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12057	12185	
==>LASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8620	8731	
==>n0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - thi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8620	8731	
==>n0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - thi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	292	428	
==>'can_run');
	$self->load('get_file');
	
	require Config;
	return unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1163	1291	
==>\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1163	1291	
==>\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16514	16668	
==>),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19991	20145	
==>),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19551	19705	
==>),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7232	7353	
==>_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7232	7353	
==>_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2852	2966	
==>"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\x0d\x85\u2028\u2029"
    ,"h" => unicode:"\x09\x20\x <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10549	10711	
==>\\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6890	7052	
==>\\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7739	7901	
==>\\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12347	12478	
==>);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12347	12478	
==>);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12347	12478	
==>);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3557	3792	
==>.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3557	3792	
==>.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3557	3792	
==>.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3288	3420	
==>ment to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3288	3420	
==>ment to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3288	3420	
==>ment to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->ce <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2035	2142	
==>l::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vty <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2035	2142	
==>l::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	898	1013	
==>y a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	898	1013	
==>y a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	898	1013	
==>y a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2297	2421	
==>( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2297	2421	
==>( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2297	2421	
==>( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    ev <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38720	38817	
==>the invocant Relation::Example, and returns a new Relation::Example that has the
same heading as t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35827	35921	
==>the invocant Relation::Example, and returns a new Relation::Example that has the same heading
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37859	37953	
==>the
invocant Relation::Example, and returns a new Relation::Example that has the same heading a <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9437	9557	
==>$.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to impleme <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9437	9557	
==>$.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to impleme <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8282	8431	
==>Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8282	8431	
==>Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	936	1047	
==>b reduce_stub {
    my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emitte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14327	14445	
==>::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14327	14445	
==>::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14327	14445	
==>::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1671	1782	
==>\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1731	1842	
==>\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2494	2593	
==>my $node = shift;
		warn "reducing " . qprintable($node) . "...";
		my $res = $self->SUPER::reduce($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	168	293	
==>ct;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	57	176	
==>ct;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	57	176	
==>ct;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3358	3452	
==>lling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCT <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3358	3452	
==>lling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3438	3532	
==>lling this module to compare the received
output to the expected output.

=head1 EXPORTED FUNCT <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9729	9826	
==>od difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_emp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9729	9826	
==>od difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_emp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7866	7963	
==>oreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7866	7963	
==>oreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7866	7963	
==>oreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  > <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2815	2929	
==>-> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  Num <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7156	7260	
==>$self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-A <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7156	7260	
==>$self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2025	2125	
==>";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2025	2125	
==>";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2025	2125	
==>";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cf <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11093	11218	
==>(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11093	11218	
==>(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1005	1122	
==>untime::Match::Ratchet';
};
);
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11027	11165	
==>S.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11027	11165	
==>S.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11027	11165	
==>S.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19649	19743	
==>o join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19649	19743	
==>o join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#cha <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24376	24521	
==>..zA..Z]>
}
rule uriMark {  # see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2732	2853	
==>endencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3196	3317	
==>endencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2762	2861	
==>, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, Z) --> "|", p5_concatenation(X), p5_alternat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6500	6610	
==>ckage Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match object <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6282	6388	
==>ckage Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match object <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1530	1636	
==>each my $class (@classes) {
        my $methods = $class->get_attr(symbol->new('%:methods'));
        #warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14621	14758	
==>{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14621	14758	
==>{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14621	14758	
==>{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3651	3802	
==>0,
			    Int $length,
			    *@values
			    --> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $si <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2177	2272	
==>Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2177	2272	
==>Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4559	4670	
==>change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4559	4670	
==>change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4559	4670	
==>change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2469	2573	
==>->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2469	2573	
==>->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2469	2573	
==>->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14732	14842	
==>s.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14732	14842	
==>s.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14732	14842	
==>s.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3659	3766	
==>(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3659	3766	
==>(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3659	3766	
==>(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2153	2280	
==>a( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1376	1491	
==>$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1376	1491	
==>$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$fiel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	443	548	
==>$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	443	548	
==>$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	443	548	
==>$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1804	1930	
==>$subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('supe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2901	3002	
==>and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2901	3002	
==>and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns St <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22889	23044	
==>nitial pass, so that on
the second pass (the tree-building), it can distinguish back-references
from octal escapes.  (The source code to Perl's regex compil <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	214	365	
==>value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3309	3408	
==>fg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3309	3408	
==>fg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3309	3408	
==>fg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3781	3895	
==>, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3781	3895	
==>, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3781	3895	
==>, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an empty array
# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9101	9232	
==>n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9101	9232	
==>n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9101	9232	
==>n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isI <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3482	3607	
==>fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3482	3607	
==>fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	814	911	
==>ile($source);
    #print '*{\''.$rulename.'\'} = '.$rule->perl5().";\n";
    print "*{\'$rulename\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7887	8033	
==>intf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7887	8033	
==>intf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7887	8033	
==>intf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    return join <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12937	13054	
==>_[0] },
      scalar_numeric     => sub { "". ${$_[0]} },
      scalar_non_numeric => sub { "". ${$_[0]} },
      arra <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35652	35745	
==>tioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic bin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40202	40295	
==>tioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5203	5423	
==>ey ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5203	5423	
==>ey ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5203	5423	
==>ey ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18125	18225	
==>ined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18125	18225	
==>ined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4529	4637	
==>} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4529	4637	
==>} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4529	4637	
==>} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18591	18694	
==>de.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replace)
{ Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12401	12494	
==>corresponding argument is undefined).  The new Document object's All Nodes
attribute starts ou <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12401	12494	
==>corresponding argument is undefined).  The new Document object's All Nodes
attribute starts ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1383	1479	
==>PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1383	1479	
==>PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1383	1479	
==>PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9456	9607	
==>self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16438	16533	
==>be converted to lower case, and potential
parameters will be chopped off and returned as a separ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16438	16533	
==>be converted to lower case, and potential
parameters will be chopped off and returned as a separ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	324	429	
==>errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	324	429	
==>errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	324	429	
==>errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1723	1821	
==>defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns In <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1723	1821	
==>defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns In <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5514	5640	
==>pre     push    safe   (rw!Array, List)\
\\n   Int       pre     unshift safe   (rw!Array, List)\
\\n   Scalar    pre     List: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10087	10183	
==>Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10087	10183	
==>Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1474	1596	
==>sif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whites <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1474	1596	
==>sif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whites <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1474	1596	
==>sif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whites <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4524	4668	
==>fined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4524	4668	
==>fined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4524	4668	
==>fined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	278	383	
==>= $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	278	383	
==>= $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	278	383	
==>= $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17212	17317	
==>f ($seen->{$node}++){
        return "... recursive=$node ...";
    }

    if (Scalar::Util::blessed($node <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6078	6173	
==>ointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'u <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6078	6173	
==>ointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2647	2750	
==>$self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2647	2750	
==>$self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2647	2750	
==>$self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28649	28764	
==>le $other!) returns Bool>

This method returns a Bool indicating whether the immutable identity of the
argument C<$o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11385	11482	
==>feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &com <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11443	11540	
==>feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &com <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27511	27612	
==>ust create a new
object that is a clone of the first but for the changes.

=back

A Message object has <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27511	27612	
==>ust create a new
object that is a clone of the first but for the changes.

=back

A Message object has <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	536	656	
==>$class, $rule_source, $param ) = @_;

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - shou <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	837	937	
==>:Pretty; # in case the result is an AST
    
    print Blondie::Emitter::Pretty->new->string($result) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13981	14138	
==>r( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13975	14132	
==>r( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { m <==
3	/Users/nnunley/pugs/util/func_refact.pl	1043	1161	
==>y %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set size is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5721	5830	
==>mespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5721	5830	
==>mespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5721	5830	
==>mespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion filter, not
an inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11213	11352	
==>,
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11213	11352	
==>,
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11213	11352	
==>,
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $cod <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4553	4658	
==>ath($candidates[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # create dir for targ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8300	8391	
==>nd_element ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('lin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8300	8391	
==>nd_element ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('lin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1045	1143	
==>ebug = $debug;
$Perl6::Run::OnPerl5::X1::BB::pugs_args = join(" ",map{"-I$_"}@inc_dirs);
}

BEGIN { <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5780	5931	
==>calar    pre     min     safe   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (List)\
\\n   Str       pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5884	5986	
==>nn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5884	5986	
==>nn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Mod <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18683	18796	
==>to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18683	18796	
==>to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1773	1923	
==>' => sub { 
            my ($self, $passed, $description) = @_;
            $description ||= '';
            $self->report_test(
                $::Tes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2865	3009	
==>r    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2865	3009	
==>r    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5290	5397	
==>_ . "::$type" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8972	9077	
==>arget') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8972	9077	
==>arget') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	798	909	
==>var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	798	909	
==>var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	798	909	
==>var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1739	1845	
==>t(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1739	1845	
==>t(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1739	1845	
==>t(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4215	4316	
==>ute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4215	4316	
==>ute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4215	4316	
==>ute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    : <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3046	3186	
==>sion};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version';
        ($perl_versi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6748	6865	
==>(defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6748	6865	
==>(defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11982	12099	
==>-= pos
    $S0 = substr target, pos, $I0
    mob["arg"] = $S0
    pos += $I0
    $S0 = substr target, pos, 1
  subrule <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2564	2672	
==>e recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2564	2672	
==>e recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	548	675	
==>ng controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	548	675	
==>ng controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1648	1745	
==>path}  =
      File::Spec->catfile($config->{bin}, "pugs$config->{exe_ext}");

    ($config->{file <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	351	486	
==>ap {
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(%$self);

        $_ = &$f($_) for values %$new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5260	5382	
==>e_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5260	5382	
==>e_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19557	19661	
==>| <ExpressionStatement>
    | <IfStatement>
    | <IterationStatement>
    | <ContinueStatement>
    | <B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2106	2210	
==>if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2106	2210	
==>if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	61	177	
==>f $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	61	177	
==>f $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	61	177	
==>f $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7827	7959	
==>lice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #wa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7827	7959	
==>lice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #wa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7827	7959	
==>lice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1315	1421	
==>m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1315	1421	
==>m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26422	26516	
==>ng projection of
each tuple), but that any duplicates following the projection have been
elimin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30974	31068	
==>ng projection of
each tuple), but that any duplicates following the projection have been
elimin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29976	30070	
==>ng projection of
each tuple), but that any duplicates following the projection have been
elimin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8078	8185	
==>);

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8078	8185	
==>);

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/s <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2760	2858	
==>ne\n2nd line\n3rd line\n4th line\n5th line\n".
        "6th line\n7th line\n8th line\n9th line\n10t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19229	19326	
==>orted, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19229	19326	
==>orted, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1677	1815	
==>ixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1677	1815	
==>ixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1677	1815	
==>ixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16517	16609	
==>! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16517	16609	
==>! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1302	1417	
==>t - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1302	1417	
==>t - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1302	1417	
==>t - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5152	5293	
==>e or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5152	5293	
==>e or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5152	5293	
==>e or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless { <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4291	4420	
==>,             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Exp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4291	4420	
==>,             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Exp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1141	1270	
==>,             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2943	3074	
==>d $attrs{'$:superclass'}) {
                    $eigenclass->superclass(
                        ::opaque_instance_class($attrs{'$:s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	383	487	
==>idth  = 1;
    $.node   = $node if $node.defined;   
}

## ---------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	383	487	
==>idth  = 1;
    $.node   = $node if $node.defined;   
}

## ---------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3772	3867	
==>unction (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3772	3867	
==>unction (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3772	3867	
==>unction (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __ret <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5844	5946	
==>es of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5844	5946	
==>es of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8041	8143	
==>es of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	863	971	
==>set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17005	17103	
==>odule just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17005	17103	
==>odule just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> modul <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4388	4494	
==>This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4388	4494	
==>This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6585	6691	
==>This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2349	2450	
==>sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2349	2450	
==>sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2349	2450	
==>sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18713	18831	
==>{
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15134	15252	
==>{
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30472	30590	
==>{
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	451	572	
==>ub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	451	572	
==>ub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_f <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6974	7090	
==>c -isrc/pcre -I. -Isrc -Isrc/pcre -static ";
    $ghc_flags .= " -Wall " #  -package-name Pugs -odir dist/build/src - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10638	10752	
==>t_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10638	10752	
==>t_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10638	10752	
==>t_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3747	3867	
==>dn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3747	3867	
==>dn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3747	3867	
==>dn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24612	24770	
==>'$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => $to);
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24612	24770	
==>'$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => $to);
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24612	24770	
==>'$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' => $to);
} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13207	13344	
==>t_pkg->package )->subdir('bin');

    ### XXX doesn't return an object...
    return 1 unless -d $my_bindir;

    my @bins;
    msg( "Link <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18031	18130	
==>->get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->creat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41296	41395	
==>->get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->creat <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1208	1294	
==>------------------------------------------------

Since you are using Microsoft Windows <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1048	1134	
==>------------------------------------------------

Since you are using Microsoft Windows <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3185	3324	
==>uilddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkd <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3070	3183	
==>it at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3070	3183	
==>it at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4296	4417	
==>.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4296	4417	
==>.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4296	4417	
==>.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote subst <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1880	2014	
==>_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $sel <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1880	2014	
==>_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5223	5328	
==>sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $_does);
};

# our class(Role), whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22	122	
==>wid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22	122	
==>wid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22	122	
==>wid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5722	5828	
==>s;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5722	5828	
==>s;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %chann <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8007	8106	
==>oes('rBar'), '... FooBar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBa <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10251	10363	
==>g; mkdir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directory the initrd.gz will be built la <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	217	315	
==>root->subdir(    shift() )  };
use constant SUBDIR_OF_META     => sub { shift()->_meta_dir->subdir( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2752	2860	
==>_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2752	2860	
==>_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2752	2860	
==>_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	841	996	
==>{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	834	989	
==>{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $ret <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19959	20063	
==>al($cc->as_p6);
}


my %macros;
sub p6_macrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9715	9920	
==>@list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9715	9920	
==>@list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9715	9920	
==>@list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23174	23268	
==>automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not modifi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23174	23268	
==>automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not modifi <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2391	2487	
==>3);
}
method ce_year returns Int { $.year }
method quarter returns Int { int(($.month+2)/3) }
met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20976	21065	
==>re normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20976	21065	
==>re normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4684	4789	
==>6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encodi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4684	4789	
==>6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encodi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4684	4789	
==>6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encodi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17318	17417	
==>:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Module:: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17318	17417	
==>:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Module:: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14067	14154	
==>number_chars(I,[42,111,D0,D1,D2])}.


alnums([C|T]) --> [C], {code_type(C,alnum)}, alnum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9916	10033	
==>er(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9916	10033	
==>er(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9916	10033	
==>er(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6122	6212	
==>xt two classes both perform the Test::Builder::Test::WithReason role
and override some meth <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6122	6212	
==>xt two classes both perform the Test::Builder::Test::WithReason role
and override some meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8319	8409	
==>xt two classes both perform the Test::Builder::Test::WithReason role
and override some meth <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1425	1571	
==>list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18639	18732	
==>n the constructor. For example,
this module automatically tries to use slight variations of th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18639	18732	
==>n the constructor. For example,
this module automatically tries to use slight variations of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3808	3920	
==>}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3808	3920	
==>}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3808	3920	
==>}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9372	9636	
==>isfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10849	11113	
==>isfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2124	2227	
==>bute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[2]->store($name, $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16727	16847	
==>($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16727	16847	
==>($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16727	16847	
==>($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Cl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13824	13940	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14103	14219	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	851	956	
==>nstance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1056	1161	
==>nstance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1112	1217	
==>nstance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3556	3750	
==>]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3556	3750	
==>]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3556	3750	
==>]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6422	6536	
==>r_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6422	6536	
==>r_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4148	4296	
==>t',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        pre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14459	14555	
==>A sections, though).
The Node class is pure and deterministic, such that all of its class and
obj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14459	14555	
==>A sections, though).
The Node class is pure and deterministic, such that all of its class and
obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1324	1427	
==>descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1324	1427	
==>descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1324	1427	
==>descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %param <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2788	2886	
==>er; you might not be able to derive the 
plaintext from the result, but any cryptographer worth the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2788	2886	
==>er; you might not be able to derive the 
plaintext from the result, but any cryptographer worth the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2126	2234	
==>AME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2126	2234	
==>AME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2473	2581	
==>AME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10365	10478	
==>'

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->obje <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11793	11889	
==>true if the closures that define the recurrences are exactly the same.

This method tests the clo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11793	11889	
==>true if the closures that define the recurrences are exactly the same.

This method tests the clo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8358	8484	
==>pture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8551	8677	
==>pture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7700	7811	
==>l { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8449	8552	
==>indBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8449	8552	
==>indBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8449	8552	
==>indBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7385	7528	
==>ndef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7385	7528	
==>ndef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7385	7528	
==>ndef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4772	4900	
==>ESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4772	4900	
==>ESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4772	4900	
==>ESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14147	14266	
==>e is a test report (ie. 'ok/not ok').  Reports the
result back in C<%test> which will contain:

  ok            did it s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2620	2722	
==>.>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2804	2906	
==>.>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5029	5168	
==>erated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5029	5168	
==>erated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5029	5168	
==>erated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1967	2070	
==>oop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1967	2070	
==>oop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1967	2070	
==>oop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_con <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2760	2965	
==>req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2760	2965	
==>req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8715	8830	
==>1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .return (mob)
 err_noclose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5434	5540	
==>D\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5434	5540	
==>D\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5434	5540	
==>D\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	356	470	
==>w sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	356	470	
==>w sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	356	470	
==>w sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20002	20099	
==>ispatches the code blocks
to the compilers. It does so in a most specific to most general order.
S <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20002	20099	
==>ispatches the code blocks
to the compilers. It does so in a most specific to most general order.
S <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9643	9761	
==>_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be u <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9643	9761	
==>_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2729	2830	
==>f->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2729	2830	
==>f->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2729	2830	
==>f->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4514	4622	
==>cendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## make class

my $Foo = $Cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6406	6512	
==>??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6190	6294	
==>??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10577	10755	
==>\"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6918	7096	
==>\"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7767	7945	
==>\"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20932	21128	
==>:constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21211	21407	
==>:constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7666	7757	
==>rser->errmsg will return
that error message, and $parser->errnum will return the numerical v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	197	290	
==>rguments
my $input_filename = shift || die "Missing arguments!";
my $output_filename = shift | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	197	290	
==>rguments
my $input_filename = shift || die "Missing arguments!";
my $output_filename = shift | <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2949	3089	
==>version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - check <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2949	3089	
==>version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - check <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5746	5845	
==>initrd_gz, $initrd_mnt, $lib6, $parrot_path);

my $welcomed = 0;
step
  descr  => "Welcome",
  ensur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4435	4523	
==>uperclass name for Point3D');
is($p3d->prototype->prototype->class, \&Object, '... go the <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1806	1891	
==>ation process described in README.

-------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1646	1731	
==>ation process described in README.

-------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6255	6371	
==>6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($typ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6255	6371	
==>6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($typ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6255	6371	
==>6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2780	2900	
==>_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2780	2900	
==>_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2780	2900	
==>_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	564	677	
==>'$.reason'};
            $params{'$.description'} = '' unless exists $params{'$.description'};

            return <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14890	14986	
==>ted, we will need an easy way
to test them. So we will implement the Test::More function is_deepl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14948	15044	
==>ted, we will need an easy way
to test them. So we will implement the Test::More function is_deepl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1350	1438	
==>SUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1350	1438	
==>SUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1350	1438	
==>SUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3243	3343	
==>erl's C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also mea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3243	3343	
==>erl's C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also mea <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4789	4888	
==>on-array
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name) if $match_hack;
  push(@$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2297	2429	
==>let
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 J <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2297	2429	
==>let
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 J <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49056	49284	
==>,
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$version')
                  ->is_not_nil
                  ->and(block->ne <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	799	915	
==>h as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %par <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	799	915	
==>h as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %par <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2805	2921	
==>cape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\x0d\x85 <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	488	585	
==>pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	488	585	
==>pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9966	10151	
==>"Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta-> <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11443	11628	
==>"Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta-> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4824	4932	
==>ER::new;
	$self->{name} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $acc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1452	1712	
==>$msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str %T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18444	18528	
==><$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18444	18528	
==><$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1934	2028	
==>rent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1934	2028	
==>rent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1934	2028	
==>rent Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5074	5198	
==>timizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4898	5018	
==>timizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Compiler <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5875	5968	
==>ub hlp_rule {      def_rule($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_oper { def_op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	488	603	
==>)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	488	603	
==>)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	488	603	
==>)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurp <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	766	890	
==>ext.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	766	890	
==>ext.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	37	144	
==>eSafe;

use strict;
use warnings;

use Blondie::ADTs;
use Blondie::Nodes;


sub new {
	my $class = shift;
	b <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13532	13635	
==>'t know it's type
ide: type($$) = {
	my $t = env($$)->{$.v};

	die "no such identifier " . $.v unless de <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4475	4554	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4475	4554	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20245	20404	
==>n $nil::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dispatcher = $self.d <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2266	2403	
==>:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    fo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2266	2403	
==>:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    fo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3270	3366	
==>ing the expected output and diagnostic output of tests,
running those tests, and then telling thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3270	3366	
==>ing the expected output and diagnostic output of tests,
running those tests, and then telling thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3350	3446	
==>ing the expected output and diagnostic output of tests,
running those tests, and then telling thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6261	6362	
==>ks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6261	6362	
==>ks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6261	6362	
==>ks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7968	8057	
==>ub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1793	1882	
==>ub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7605	7697	
==>-------------------------------------------------------------------------

## NOTE:
## we wan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7605	7697	
==>-------------------------------------------------------------------------

## NOTE:
## we wan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7605	7697	
==>-------------------------------------------------------------------------

## NOTE:
## we wan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5485	5581	
==>rds the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5485	5581	
==>rds the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7009	7105	
==>rds the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11045	11194	
==>t\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8111	8255	
==>t\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8111	8255	
==>t\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	127	220	
==>nature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	127	220	
==>nature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	127	220	
==>nature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3715	3815	
==>ld is really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3715	3815	
==>ld is really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6204	6315	
==>nels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.del <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6204	6315	
==>nels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.del <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4899	4992	
==>%# XXX - spaces permitted around **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	812	922	
==>n Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $Perl6::Run::OnPerl5::X1::BB::pugs_args | <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	326	452	
==>ot -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @ <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	326	452	
==>ot -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1238	1356	
==>so, why do these two not actually split?
        # my @args = $string.split(rx:Perl5/\s+/);
        # my @args = split( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1211	1331	
==>t->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1211	1331	
==>t->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1211	1331	
==>t->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21815	21962	
==>t'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22094	22241	
==>t'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alter <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15028	15133	
==>, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $extra ? split(/(?:[^\\ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11416	11515	
==>em B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My incl <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11416	11515	
==>em B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My incl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1467	1563	
==>works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4155	4255	
==>to it so that you can refer to it
    #   > inside, but that name is not visible to binding. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4155	4255	
==>to it so that you can refer to it
    #   > inside, but that name is not visible to binding. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4155	4255	
==>to it so that you can refer to it
    #   > inside, but that name is not visible to binding. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	560	818	
==>0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	560	818	
==>0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rose <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25624	25768	
==>erclasses'));                
            }
        )
    )
);

=pod

method subclasses (opaque $self:) returns list {
    @:subclasses;
}

(meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3879	3988	
==>ty = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3879	3988	
==>ty = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3879	3988	
==>ty = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1647	1765	
==>turn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1647	1765	
==>turn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1647	1765	
==>turn;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      window.scrollTo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47801	48068	
==>symbol'), 
                              symbol->new('$value' => 'type'),                               
                          ),
                returns => 'nil'
            ),            
            sub {
                my $e = shift;
                $e->get(' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9300	9427	
==>mplement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf } <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9300	9427	
==>mplement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	543	645	
==>it is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	543	645	
==>it is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	543	645	
==>it is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3659	3775	
==>d found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5561	5677	
==>d found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14194	14293	
==>type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::va <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2370	2458	
==>::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.si <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2370	2458	
==>::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.si <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10668	10774	
==>whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10668	10774	
==>whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	128	232	
==>];
my $pmc = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
die "this is not a .pl, .t or .pm file"
    unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6195	6296	
==>n("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6195	6296	
==>n("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6195	6296	
==>n("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13925	14080	
==>elete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13925	14080	
==>elete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13925	14080	
==>elete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13182	13317	
==>to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13182	13317	
==>to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13182	13317	
==>to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5346	5486	
==>$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5346	5486	
==>$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5346	5486	
==>$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3224	3339	
==>ss($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3224	3339	
==>ss($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3224	3339	
==>ss($self, $eigenclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27499	27690	
==>::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27499	27690	
==>::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27499	27690	
==>::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28984	29093	
==>r to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVER <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28984	29093	
==>r to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVER <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	339	444	
==>r to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" is "<INVER <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2274	2383	
==>ist);\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = Pugs::Emitter <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13099	13196	
==>e.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implement <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13157	13254	
==>e.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4589	4690	
==>o'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4589	4690	
==>o'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4589	4690	
==>o'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	396	491	
==>moved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	396	491	
==>moved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	396	491	
==>moved classes Params, Signature
# * Added 'default' parameter hook
# * Added required/optional p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32881	32976	
==>_message()> method, but it has no other side effects.

A Translator object has 2 main attributes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32881	32976	
==>_message()> method, but it has no other side effects.

A Translator object has 2 main attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22082	22179	
==>6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22082	22179	
==>6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22082	22179	
==>6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5344	5462	
==>the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not av <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5344	5462	
==>the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not av <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5344	5462	
==>the file is not inlined, but instead linked to
using the HTML tag "<script src=...>". Of course, this feature is not av <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	709	821	
==>ad = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	709	821	
==>ad = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	709	821	
==>ad = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Context. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	687	796	
==>values;

    $self->prepare_scope(@params);

    # profiling actually slows this down by around 30%
    #my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19718	19815	
==>e sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19718	19815	
==>e sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2275	2391	
==>f !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2275	2391	
==>f !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2275	2391	
==>f !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5590	5722	
==>ute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5590	5722	
==>ute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5590	5722	
==>ute'))
            || confess "You must provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        r <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1812	1908	
==>dules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in t <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1812	1908	
==>dules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4769	5030	
==>my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4769	5030	
==>my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9348	9518	
==>$passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic = '' )
  {
      $.output.diag( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12616	12757	
==>perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8890	9031	
==>perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9725	9866	
==>perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1065	1169	
==>ody() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1065	1169	
==>ody() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1065	1169	
==>ody() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret;
  loop <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14754	14851	
==>ng sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14754	14851	
==>ng sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5149	5237	
==>t's isolated here. :(
sub new_box {get_meta($_[0])->new('$.unboxed'=>$_[1])}
sub p6_new { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1988	2087	
==>_

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinterac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1988	2087	
==>_

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinterac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1988	2087	
==>_

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinterac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11321	11450	
==>l6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11321	11450	
==>l6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11321	11450	
==>l6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3032	3137	
==>h.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3032	3137	
==>h.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3032	3137	
==>h.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	292	398	
==>005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	292	398	
==>005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	292	398	
==>005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1468	1559	
==>instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1468	1559	
==>instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1468	1559	
==>instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4154	4271	
==>e ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4154	4271	
==>e ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4744	4861	
==>e ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	585	723	
==>f, $message) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.output')} $message, "\n";
        },
        'diag' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	809	912	
==>e->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	809	912	
==>e->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6127	6224	
==>/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6127	6224	
==>/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6127	6224	
==>/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3120	3239	
==>s export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3120	3239	
==>s export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4644	4763	
==>s export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7280	7395	
==>string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7280	7395	
==>string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7280	7395	
==>string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15532	15633	
==>ub p6_as_perl5_whatever {
    my($x)=@_;
    return $x if !p6_is_perl6_object($x);
    $x->as_perl5_wh <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	208	307	
==>$self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw( <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	208	307	
==>$self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1524	1636	
==>=> 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1524	1636	
==>=> 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1582	1691	
==>el_skip => 10,
  y_max_value  => (int(@commits / 500) + 1) * 500,
) or die $graph->error;

my @data = (
  [ 0. <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	103	201	
==>these two lines if it turns out we need the real YAML.pm
use PugsBuild::MiniYAML ();
our $YAML = Pu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3387	3485	
==>he runtime provides builtins for with the replacement nodes

=item *

Ensuring that there is no cra <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3953	4045	
==>-
Rigorous database portability

=head1 VERSION

This document describes Rosetta version 0.72 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3953	4045	
==>-
Rigorous database portability

=head1 VERSION

This document describes Rosetta version 0.72 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8366	8471	
==>ntime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8354	8459	
==>ntime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1113	1216	
==>[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1113	1216	
==>[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24017	24112	
==>ply
returns, you can assume that it has succeeded.

=head2 The Relation::Example Class

A Relati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17846	17964	
==>( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20726	20844	
==>( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24514	24632	
==>( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1963	2059	
==>t will intuit one by extracting the 
last component of the calling function's package name.  (For <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1963	2059	
==>t will intuit one by extracting the 
last component of the calling function's package name.  (For <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6693	6924	
==>> sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6693	6924	
==>> sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6693	6924	
==>> sub { 
                        my $obj = shift;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2200	2326	
==>def') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2200	2326	
==>def') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2200	2326	
==>def') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23399	23493	
==>"...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23399	23493	
==>"...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1081	1186	
==>? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1081	1186	
==>? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1081	1186	
==>? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17426	17555	
==>@_;
  my $len = length($s);
  for my $start (0..$len) {
    local $X::str = $s;
    local $X::pos = $start;
    local $X::cap = [] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21014	21128	
==>eg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17435	17549	
==>eg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S-> <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3875	3989	
==>$r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckMid {
   my ($scr) = @_;
   my @tt = (
      [ ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6266	6365	
==>evel operators

  # Domain-specific-language-like syntax, contained in a package

### rule must ever <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6052	6149	
==>evel operators
  # Domain-specific-language-like syntax, contained in a package
### rule must ever <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1776	1874	
==>carded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1776	1874	
==>carded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1076	1195	
==>args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1076	1195	
==>args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1076	1195	
==>args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2227	2335	
==>5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2227	2335	
==>5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2227	2335	
==>5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Ro <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1839	1977	
==>struct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Ex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1839	1977	
==>struct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Ex <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	108	218	
==>arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1249	1339	
==>is document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1249	1339	
==>is document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This do <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	712	812	
==>method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	712	812	
==>method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14767	14862	
==>"%s-%s"

=back

=head1 EXTENSIONS

Here are some ideas for extensions (sub-classes) for this mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11660	11756	
==>es, themselves does Role since they
are just instances of Class which does Role too. So this mean <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11660	11756	
==>es, themselves does Role since they
are just instances of Class which does Role too. So this mean <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11660	11756	
==>es, themselves does Role since they
are just instances of Class which does Role too. So this mean <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	2054	2175	
==>ew(exists $self->{$key->to_str->to_native} ? 1 : 0);    
}

1;

__END__

=pod

=head1 NAME

hash - the core hash type

=cu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21818	21910	
==>ppropriate place, usually in the
main program, Locale::KeyedText can be given input that says <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21818	21910	
==>ppropriate place, usually in the
main program, Locale::KeyedText can be given input that says <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22984	23086	
==>ch Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27536	27638	
==>ch Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26313	26415	
==>ch Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8703	8830	
==>SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7753	7860	
==>e $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7753	7860	
==>e $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34293	34398	
==>lone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34293	34398	
==>lone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34293	34398	
==>lone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7631	7752	
==>lt3 % $n2_16;
    return $Result4;
}

# 9.8

# 9.9





class JSX::Value::Array;
submethod BUILD {
    $.property_attribut <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	938	1031	
==>d), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	938	1031	
==>d), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	826	946	
==>$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	826	946	
==>$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	826	946	
==>$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11180	11297	
==>$.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Bas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1650	1755	
==>$.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Bas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1650	1755	
==>$.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Bas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1043	1221	
==>, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            else <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29764	29858	
==>ERR.

Implement Straps total_results()

Remember exit code

Completely redo the print summary c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35053	35148	
==>h

Family: branch

Types: branch (C<|>)

Data: array reference of array references, each represe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1153	1246	
==>ters.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1153	1246	
==>ters.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6219	6344	
==>lass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6219	6344	
==>lass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6219	6344	
==>lass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1089	1194	
==>} )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1089	1194	
==>} )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31499	31597	
==>he
more common C<(??{ ... })>.  Using the 'p' form is deprecated, but is
still allowed, so I delete <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	490	602	
==>support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+):/ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	457	569	
==>support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+):/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40344	40444	
==>ant NAME => VALUE, FMTSTRING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use constant err_T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2660	2771	
==>o many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - cu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2660	2771	
==>o many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - cu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2660	2771	
==>o many methods under AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - cu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1793	1940	
==>n(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say " <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1793	1940	
==>n(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say " <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	659	791	
==>ckage_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13502	13607	
==>refix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13502	13607	
==>refix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13502	13607	
==>refix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24603	24697	
==>) returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=item C<h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29155	29249	
==>) returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=item C<h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3538	3712	
==>ge
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_tim <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3538	3712	
==>ge
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_tim <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3765	3872	
==>er this Relation::Example is mutable or not;
        # depending on the implementing class, it can default t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1490	1644	
==>y the .jib there too
        system( qq[cp -f $archive $Repodir/$file] )             and die $?;
    }

    print "\n\n\n";

    ### start aggregating thei <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5122	5244	
==>raverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5446	5568	
==>raverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3306	3400	
==>nstance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3306	3400	
==>nstance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3306	3400	
==>nstance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11669	11768	
==>UB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11669	11768	
==>UB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11669	11768	
==>UB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {P <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	423	531	
==>tchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

sub upper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38119	38280	
==>tore( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38119	38280	
==>tore( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38119	38280	
==>tore( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4970	5103	
==>Multi" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4970	5103	
==>Multi" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4970	5103	
==>Multi" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24612	24705	
==>ethods.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24612	24705	
==>ethods.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13932	14100	
==>elf->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13932	14100	
==>elf->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13932	14100	
==>elf->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3985	4109	
==>mToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3997	4121	
==>mToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7957	8087	
==>d) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7957	8087	
==>d) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7957	8087	
==>d) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	141	272	
==>GV[1];

sub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1724	1831	
==>::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VE <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2576	2683	
==>::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VE <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3541	3651	
==>bj->from() + 1);
  }
  return $matchObj;
}

sub sp {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2869	2974	
==>ce of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit runn <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2869	2974	
==>ce of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit runn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6354	6477	
==>instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6354	6477	
==>instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6354	6477	
==>instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5999	6098	
==>tional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5999	6098	
==>tional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5999	6098	
==>tional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name, $PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1180	1303	
==>L-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        ible <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1180	1303	
==>L-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        ible <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1180	1303	
==>L-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        ible <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	547	656	
==>r derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	547	656	
==>r derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	547	656	
==>r derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but extend the metaphor t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1368	1475	
==>ported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a clos <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1368	1475	
==>ported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a clos <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1368	1475	
==>ported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3120	3231	
==>b {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3120	3231	
==>b {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3120	3231	
==>b {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1479	1575	
==>Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, []);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1479	1575	
==>Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, []);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1479	1575	
==>Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, []);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2182	2283	
==>);
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2182	2283	
==>);
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2182	2283	
==>);
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1041	1141	
==>0 params (e.g. int)
# type::variable - a placeholder to make a DAG out of a tree (to gain strong typi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25761	25857	
==>aningful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25761	25857	
==>aningful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	392	497	
==>.untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	392	497	
==>.untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	392	497	
==>.untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3658	3764	
==>ool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.int <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3658	3764	
==>ool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.int <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2794	2908	
==>shift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14914	15010	
==>y way
to test them. So we will implement the Test::More function is_deeply.
The plan currently is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14972	15068	
==>y way
to test them. So we will implement the Test::More function is_deeply.
The plan currently is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8547	8663	
==>Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8547	8663	
==>Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8547	8663	
==>Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# D <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17373	17469	
==>provides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17373	17469	
==>provides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" f <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7637	7731	
==>, $ghc_version, $ghc_flags, $self->assert_ghc_pkg($ghc));
}

sub has_ghc_package {
    my ($sel <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8817	8919	
==>le_t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relative_file = abs2rel($i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27000	27097	
==>∀α. ∀β. α → β → (α × β)", ":t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β)  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	511	646	
==>op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	511	646	
==>op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	511	646	
==>op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $po <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2712	2841	
==>class namespace
    Object      Perl 6 object
    Grammar     Perl 6 pattern matching namespace
    List        Perl list
    Lazy <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	867	972	
==>die "can't match '$iso8601' to available ISO-8601 formats";

    my $year = $0;
    if ( $year.defined and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29113	29209	
==>ich is the same as the invocant Relation::Example but that some of its attributes
are renamed.  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4058	4171	
==>ional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4058	4171	
==>ional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4648	4761	
==>ional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4772	4879	
==>ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is($p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6524	6624	
==>ay of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6524	6624	
==>ay of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1032	1232	
==>rse( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13689	13807	
==>:Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13689	13807	
==>:Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_name <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5336	5435	
==>h an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<ski <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5336	5435	
==>h an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<ski <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6860	6959	
==>h an
optional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<ski <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9004	9121	
==>}->get($params->{name});
    my $digest = $stub->digest;

    Prim->new(
        equals => $digest,
        body => $p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10318	10428	
==>var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10318	10428	
==>var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1886	1980	
==>_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1886	1980	
==>_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1886	1980	
==>_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2391	2507	
==>se;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2391	2507	
==>se;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2391	2507	
==>se;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13518	13662	
==>d unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13518	13662	
==>d unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13518	13662	
==>d unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	179	277	
==>agic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antle <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11708	11803	
==>numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11708	11803	
==>numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1005	1135	
==>ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1005	1135	
==>ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	74	169	
==>use Perl6::Core::Str;
use Perl6::Core::Ref;

use Perl6::MM::Attribute;

package opaque;

use str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6216	6314	
==>::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceili <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6216	6314	
==>::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceili <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6216	6314	
==>::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceili <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36037	36137	
==>he invocant and <$other> headings. 
The body of the new relation is the result of first pairwise-matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40587	40686	
==>he invocant and <$other> headings.
The body of the new relation is the result of first pairwise-matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40201	40300	
==>he invocant and <$other> headings.
The body of the new relation is the result of first pairwise-matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4295	4399	
==>"($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4295	4399	
==>"($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4295	4399	
==>"($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4153	4269	
==>cription = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4153	4269	
==>cription = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4153	4269	
==>cription = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3923	4039	
==>son');
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'Tes <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2363	2499	
==>my $n = $event->{num};
            if( defined $sum{$fname}[$n]){
                $event->{more_events} = $sum{$fname}[$n];
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1253	1384	
==>ule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1253	1384	
==>ule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16275	16402	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12696	12823	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1641	1752	
==>val($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$compile") or die "open $co <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6703	6799	
==>*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6703	6799	
==>*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1619	1721	
==>my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_com <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	35	129	
==>educer::DuplicateFinder;
use base qw/Blondie::Reducer/;

use strict;
use warnings;

use Set::Ob <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1521	1614	
==>my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_com <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	241	339	
==>n' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.compare is inco <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	241	339	
==>n' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.compare is inco <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	687	784	
==>ride/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5370	5488	
==>flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5370	5488	
==>flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5370	5488	
==>flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16041	16153	
==>Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16041	16153	
==>Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16041	16153	
==>Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5006	5146	
==>6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5006	5146	
==>6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5006	5146	
==>6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	201	294	
==>y into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	201	294	
==>y into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8045	8189	
==>g Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8045	8189	
==>g Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8045	8189	
==>g Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2563	2685	
==>o { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTT <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2563	2685	
==>o { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTT <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1315	1406	
==>bject__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2444	2580	
==>block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	395	501	
==>the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	395	501	
==>the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1150	1248	
==>he superclass of any superclass

method set_superclasses($self: Set $super) {

    my $supers = $se <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4856	4985	
==>, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4856	4985	
==>, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3537	3656	
==>losure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            my $ref = refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7277	7379	
==>ub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7277	7379	
==>ub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7277	7379	
==>ub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
} <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11182	11280	
==>true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11182	11280	
==>true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3875	3992	
==>. As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3875	3992	
==>. As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3875	3992	
==>. As this is
# partly a bug/oddity in Perl 6's design and it's too early to implement
# typechecking etc. I renamed th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	287	406	
==>>{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	287	406	
==>>{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	287	406	
==>>{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	948	1087	
==>{ shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	948	1087	
==>{ shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	948	1087	
==>{ shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	448	572	
==>n (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.ui <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	448	572	
==>n (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.ui <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	448	572	
==>n (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.ui <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36460	36555	
==>he sequence in which any two source relations are
combined is inconsequential.  A trivial case i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41009	41104	
==>he sequence in which any two source relations are
combined is inconsequential.  A trivial case i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40623	40718	
==>he sequence in which any two source relations are
combined is inconsequential.  A trivial case i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	250	368	
==>->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	250	368	
==>->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	250	368	
==>->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(String::Tokenizer->RETAIN_WHITESPAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11547	11742	
==>e( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candida <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11547	11742	
==>e( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candida <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11547	11742	
==>e( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candida <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6427	6588	
==>(!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6427	6588	
==>(!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6427	6588	
==>(!match) {
            return mkMatch(false, null,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      ) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15378	15479	
==>t warning. The highest supported level is simply mapped char for
char to the desired level. However, a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22894	22990	
==>ed to Other Solutions

One of the main distinctions of this approach over similar packages is tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22894	22990	
==>ed to Other Solutions

One of the main distinctions of this approach over similar packages is tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	578	687	
==>VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	578	687	
==>VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	578	687	
==>VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3317	3438	
==>match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a clos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3328	3449	
==>match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a clos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9990	10097	
==>r name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2479	2601	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2479	2601	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2479	2601	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6566	6748	
==>ookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6566	6748	
==>ookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2138	2249	
==>( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1522	1628	
==>art = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1522	1628	
==>art = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	435	543	
==>ted
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	435	543	
==>ted
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	435	543	
==>ted
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1844	1997	
==>} 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { bef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2091	2244	
==>} 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { bef <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9790	9911	
==>ts{skip};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ($te <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1828	1933	
==>rm:<+[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:{{", "term:", "nows", &parse_clo <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1307	1404	
==>ATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `B <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1307	1404	
==>ATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1102	1204	
==>e_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1102	1204	
==>e_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1102	1204	
==>e_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9559	9677	
==>ns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1652	1764	
==>ns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1652	1764	
==>ns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19603	19704	
==>value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19603	19704	
==>value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19603	19704	
==>value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	919	1020	
==>, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{__WARN__} = $SIG{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1368	1459	
==>F!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1368	1459	
==>F!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	740	833	
==>x-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accep <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	740	833	
==>x-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12970	13089	
==>n(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12970	13089	
==>n(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12970	13089	
==>n(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3109	3236	
==>pan.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3109	3236	
==>pan.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_st <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21545	21637	
==>{my($o,$v)=@_; $o->BIND($v);}


my %space_from_sigil;
my %sigil_from_space;
BEGIN{
%space_fro <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	306	463	
==>dle'),
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19620	19717	
==>d to that compiler. The end of an inner block
effectively acts as a C<no> statement for any compil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19620	19717	
==>d to that compiler. The end of an inner block
effectively acts as a C<no> statement for any compil <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17206	17331	
==>fifteen = comb(
	fun => $plus_ten,
	param => val(5),
);

# the pair function takes any param and returns a function that takes <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15608	15702	
==>e arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONM <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15666	15760	
==>e arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONM <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38319	38430	
==>O.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42868	42979	
==>O.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42518	42629	
==>O.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2177	2281	
==>od not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

meth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2177	2281	
==>od not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	394	502	
==>lt
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	394	502	
==>lt
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	394	502	
==>lt
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3194	3336	
==>) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    }, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1965	2089	
==>! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", map <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3925	4030	
==>) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1947	2087	
==>TTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1947	2087	
==>TTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    metho <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1881	2072	
==>infix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						),
					),
				),
			),
		),
		result => 120,
		name => "recursion via <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	279	422	
==>:$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $sta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	279	422	
==>:$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	399	506	
==>uctors implement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	399	506	
==>uctors implement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	399	506	
==>uctors implement deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005- <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2518	2639	
==>3.
# But Prim.hs is \\n   List      list    Y       safe   (Array)\
#   ie, both return and argument types differ.
multi i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1479	1598	
==>ame => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1544	1661	
==>essage is properly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = caller( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16252	16354	
==>~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means character classes should store a hash of what chara <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37270	37363	
==>sitional parameter
$module_name (a string) and checks whether or not it has already been
loade <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37270	37363	
==>sitional parameter
$module_name (a string) and checks whether or not it has already been
loade <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2154	2266	
==>code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2154	2266	
==>code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    su <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4915	5008	
==>ild.html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html
.
    }
}

sub asse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7019	7159	
==>- slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned be <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7019	7159	
==>- slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned be <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7019	7159	
==>- slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned be <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3284	3409	
==>>can('file') ) {
            error("No file associated with this object -- " .
                  "can not extract meta object" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1029	1137	
==>*)$/sx;
    return $class->no_match;
};

sub substitution {
    my $grammar = shift;
    return $grammar->no_ <==
3	/Users/nnunley/pugs/util/drift.pl	281	382	
==>r exit;
my ($dir) = $in =~ /^(.*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Instances.hs";
op <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48911	49118	
==>od::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$version' => 'str'),
                          ),
                returns => 'str' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16315	16444	
==>",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16315	16444	
==>",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39694	39798	
==>y->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39694	39798	
==>y->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39694	39798	
==>y->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	121	233	
==>or - Internal Test::Harness Iterator

=head1 SYNOPSIS

  use Test::Harness::Iterator;
  my $it = Test::Harness::I <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9924	10024	
==>export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.ele <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9924	10024	
==>export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19385	19645	
==>e original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19385	19645	
==>e original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19385	19645	
==>e original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	695	810	
==>n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.microsoft.com <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1196	1306	
==>) {
        print "\n*** $entry->{package} depends on $depends->{package}...\n";
    
        system(qq[$^X bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	594	695	
==>n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.com <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1239	1343	
==>pers = $self.all_superclasses;
    die "Uh-oh, there's a super in my duper!"
        if $supers.includes( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1738	1831	
==>ng utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=hea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1738	1831	
==>ng utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	498	588	
==>LLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	498	588	
==>LLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	498	588	
==>LLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.acos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15852	16142	
==>w( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15852	16142	
==>w( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15852	16142	
==>w( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	90	217	
==>re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	90	217	
==>re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	90	217	
==>re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primit <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	299	412	
==>{ <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <le <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	299	412	
==>{ <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <le <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10126	10237	
==>es6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21489	21609	
==>('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17910	18030	
==>('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	782	873	
==>y $self = shift;
	$self->emitter_class->require || die $UNIVERSAL::require::ERROR;
	$self->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1501	1622	
==>eateTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1501	1622	
==>eateTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1501	1622	
==>eateTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1961	2077	
==>"pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable decla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1961	2077	
==>"pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable decla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1961	2077	
==>"pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable decla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17206	17300	
==>add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17206	17300	
==>add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17206	17300	
==>add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	879	1024	
==>xy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	879	1024	
==>xy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	322	418	
==>econds ) returns Duration::Gregorian is export {
    duration(:second($seconds));
}

multi sub du <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1862	1969	
==>open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    clos <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1862	1969	
==>open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    clos <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9609	9707	
==>erator that will traverse the entire parse tree,
to any depth.  To restrict the depth to which it r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1663	1787	
==>ant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1674	1798	
==>ant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleo <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	148	240	
==>etopt::Argument::Normalizer::Null;
        has $coercer_role = ::Getopt::Argument::Coercer::N <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2017	2111	
==>=> Perl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _stages {@{$_[0]{'stage <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5530	5647	
==>nshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5530	5647	
==>nshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5530	5647	
==>nshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a be <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	579	691	
==>t = $1 if $line =~ /^#\s*abstract:\s+(.*)/;
    }
    unless (defined $prompt) {
        my $script_name = File:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36994	37093	
==>ge( $message );

=back

The Translator class also has these utility methods, which are all used by
t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36994	37093	
==>ge( $message );

=back

The Translator class also has these utility methods, which are all used by
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1923	2031	
==>Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(calle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1923	2031	
==>Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(calle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2159	2267	
==>Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(calle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5691	5895	
==>$sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5691	5895	
==>$sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5691	5895	
==>$sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1194	1300	
==>g %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1194	1300	
==>g %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1194	1300	
==>g %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4591	4695	
==>o_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4591	4695	
==>o_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4591	4695	
==>o_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9716	9804	
==>$dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9716	9804	
==>$dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9716	9804	
==>$dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4033	4146	
==>default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $opti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4033	4146	
==>default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $opti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4033	4146	
==>default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $opti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6404	6520	
==>();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6404	6520	
==>();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6404	6520	
==>();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and exportation of subs.\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3476	3580	
==>ed $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3476	3580	
==>ed $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3476	3580	
==>ed $param{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	527	633	
==>canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	527	633	
==>canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	527	633	
==>canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$::Class->add_method('CREATE' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18042	18141	
==>g up your module's source code into various blocks; so that by the
time a compiler is called it only <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18042	18141	
==>g up your module's source code into various blocks; so that by the
time a compiler is called it only <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6995	7197	
==>> '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6995	7197	
==>> '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6995	7197	
==>> '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15971	16276	
==>t )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15971	16276	
==>t )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15971	16276	
==>t )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $arr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4364	4556	
==>ss \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4905	5097	
==>ss \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	770	899	
==>ed for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	29	130	
==>able;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use J <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15580	15676	
==>n for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Codd's o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15580	15676	
==>n for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Codd's o <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2171	2271	
==>= self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2171	2271	
==>= self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10418	10573	
==>ms > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10418	10573	
==>ms > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10418	10573	
==>ms > scalar @{ $self->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # w <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1889	2018	
==>od r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# XXX Prim.hs has a different return type, Scalar vs List.
# \\n   Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9143	9247	
==>) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9143	9247	
==>) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9143	9247	
==>) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11457	11592	
==>y ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11457	11592	
==>y ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11457	11592	
==>y ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	913	1011	
==>less.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hier <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	913	1011	
==>less.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hier <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	913	1011	
==>less.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hier <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	701	823	
==>$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) retur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	701	823	
==>$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6224	6324	
==>a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6224	6324	
==>a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6224	6324	
==>a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2878	2979	
==>warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2878	2979	
==>warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2878	2979	
==>warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5608	5818	
==>y;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5608	5818	
==>y;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5608	5818	
==>y;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4511	4624	
==>d\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4511	4624	
==>d\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4511	4624	
==>d\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	646	758	
==>/ (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	646	758	
==>/ (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	646	758	
==>/ (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if ( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	271	371	
==>nstead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	271	371	
==>nstead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29091	29190	
==>serts this object into the tree.  It returns a value that says whether
or not it ended up being merg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	561	684	
==>onst = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# impleme <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	561	684	
==>onst = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# impleme <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	313	415	
==>=> -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	313	415	
==>=> -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5286	5382	
==>ntaining two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5286	5382	
==>ntaining two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7483	7579	
==>ntaining two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2526	2654	
==>.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:han <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2526	2654	
==>.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14445	14550	
==>ove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14445	14550	
==>ove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14445	14550	
==>ove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	294	390	
==>MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	294	390	
==>MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	294	390	
==>MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4608	4721	
==>'Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4608	4721	
==>'Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4608	4721	
==>'Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7347	7534	
==>.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7347	7534	
==>.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7347	7534	
==>.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5974	6139	
==>l;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5974	6139	
==>l;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5974	6139	
==>l;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	351	450	
==>PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	351	450	
==>PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	351	450	
==>PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1277	1395	
==>nless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1277	1395	
==>nless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1277	1395	
==>nless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%para <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1200	1297	
==>swer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1200	1297	
==>swer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2885	3017	
==>ethod) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2885	3017	
==>ethod) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2885	3017	
==>ethod) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eig <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13876	13976	
==>t2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as so <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13876	13976	
==>t2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22883	22978	
==>ue of
a Relation::Example object is determined when it is constructed, and the object can
not be <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24937	25030	
==>Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29489	29582	
==>Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5685	5773	
==>=> \&usage,
) or usage();
check_for_evil_chars($initrd_img, $initrd_gz, $initrd_mnt, $lib <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4127	4257	
==>Operator precedence parser

--- from S05 -----
Syntactic categories
    For writing your own backslash and assertion rules or macro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	48	156	
==>:Perl6::VERSION = '0.05';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use ba <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	502	679	
==>tr = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	502	679	
==>tr = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	586	695	
==>e = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2607	2755	
==>ed"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8025	8115	
==>tatements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Gr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1850	1940	
==>tatements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7523	7645	
==>defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, cele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7523	7645	
==>defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, cele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7523	7645	
==>defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, cele <==
3	/Users/nnunley/pugs/misc/S29_round.pl	365	494	
==>( Num $x ) {
    my $x_round;

    # round .5 up above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	293	402	
==>et} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	293	402	
==>et} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10567	10702	
==>s
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10567	10702	
==>s
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10567	10702	
==>s
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	797	894	
==>t)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	797	894	
==>t)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	797	894	
==>t)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1390	1590	
==>nstant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "aln <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1517	1717	
==>nstant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "aln <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2125	2231	
==>my $grammar = shift;
    #warn "rule argument is undefined" unless defined $_[0];
    $_[0] = "" unless def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1267	1375	
==>ix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1267	1375	
==>ix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1267	1375	
==>ix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2568	2691	
==>{
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2568	2691	
==>{
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2568	2691	
==>{
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      return str.la <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22118	22218	
==>ity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can look like a table, where eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26670	26770	
==>ity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can look like a table, where eac <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3055	3153	
==>Bool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'value' ,'u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2458	2586	
==>ongest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2458	2586	
==>ongest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug: <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	630	741	
==>le = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_v <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16436	16531	
==>> <RelationalExpression>
    | <EqualityExpression> <'!=='> <RelationalExpression>
}
rule Equali <==
3	/Users/nnunley/pugs/util/func_refact.pl	284	379	
==>itial set sizes for all functions
by default, or use -initial <fname>, possibly many times, to
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	868	960	
==>_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	868	960	
==>_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	868	960	
==>_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	311	439	
==>f, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21822	21915	
==>priate place, usually in the
main program, Locale::KeyedText can be given input that says what <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21822	21915	
==>priate place, usually in the
main program, Locale::KeyedText can be given input that says what <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	71	181	
==>g "data Param")

has Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool $isLValue;    # not is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5124	5227	
==>{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5124	5227	
==>{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7487	7602	
==>sh @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7487	7602	
==>sh @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7487	7602	
==>sh @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	190	296	
==>IE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=h <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	190	296	
==>IE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=h <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21854	21957	
==>uire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) is builtin is uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3438	3529	
==>ib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3438	3529	
==>ib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3438	3529	
==>ib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	252	418	
==>val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	252	418	
==>val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	252	418	
==>val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	210	312	
==>r ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	210	312	
==>r ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	210	312	
==>r ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9027	9186	
==>ed subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12884	13036	
==>ed subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12884	13036	
==>ed subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #pr <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6222	6360	
==>p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method cap <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6222	6360	
==>p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30374	30502	
==>h = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30374	30502	
==>h = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30374	30502	
==>h = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5761	5887	
==>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3097	3223	
==>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3946	4072	
==>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    re <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6615	6713	
==>ken{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PGE_OPTABLE_TERNARY );
  goto ternar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5969	6072	
==>ck):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5969	6072	
==>ck):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5969	6072	
==>ck):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8081	8191	
==>field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns nor <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7810	7915	
==>field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5603	5702	
==>cify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5603	5702	
==>cify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5603	5702	
==>cify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16946	17047	
==>efaults to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a uns <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16946	17047	
==>efaults to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a uns <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1153	1252	
==>oxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->conte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20805	20905	
==>.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20805	20905	
==>.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20805	20905	
==>.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'd <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2154	2282	
==>ent_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2154	2282	
==>ent_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2154	2282	
==>ent_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1748	1877	
==>TORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1748	1877	
==>TORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1748	1877	
==>TORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t reb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15892	16032	
==>num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15892	16032	
==>num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15892	16032	
==>num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1007	1102	
==>}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1007	1102	
==>}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::P <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16538	16626	
==>(Ey,E0,E1).

rm(group(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifie <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23409	23552	
==>_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4951	5057	
==>pr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRH <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4951	5057	
==>pr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRH <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5891	6107	
==>qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5891	6107	
==>qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7350	7459	
==>->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7350	7459	
==>->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7350	7459	
==>->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1254	1443	
==>ue::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1254	1443	
==>ue::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1254	1443	
==>ue::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1105	1238	
==>!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1105	1238	
==>!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2084	2195	
==>test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2084	2195	
==>test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2084	2195	
==>test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	949	1050	
==>ass->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	949	1050	
==>ass->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	949	1050	
==>ass->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $att <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2205	2317	
==>6_install {
    my $self = shift;
    my $libs = $self->get_pugs_config;
    $self->makemaker_args(
        INSTA <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4964	5067	
==>e_name: $!";
    print MAKEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFILE  or die $! <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5930	6030	
==>ack

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5930	6030	
==>ack

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8127	8227	
==>ack

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::B <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1817	1919	
==>::MakeMaker::VERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unle <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	315	412	
==>thLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	315	412	
==>thLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19859	19989	
==>ke this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19859	19989	
==>ke this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19859	19989	
==>ke this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DEST <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	331	430	
==>xpected to serve as a tool to somewhat speed up
# the rewrite of existing p5 programs instead of doi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2648	2759	
==>provides} ||= {} );
    %$provides = (%$provides, @_) if @_;
    return $provides;
}

sub auto_provides {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14468	14565	
==>s, though).
The Node class is pure and deterministic, such that all of its class and
object method <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14468	14565	
==>s, though).
The Node class is pure and deterministic, such that all of its class and
object method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9183	9359	
==>);
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9183	9359	
==>);
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9183	9359	
==>);
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2279	2418	
==>$len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2279	2418	
==>$len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2279	2418	
==>$len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } el <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5930	6047	
==>e::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method ne <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5930	6047	
==>e::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36334	36442	
==>ew;

  # matches the first number found in a string
  # that contains 'foo' somewhere init
  my $rx = q{^.*fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13916	14059	
==>gify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13916	14059	
==>gify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13916	14059	
==>gify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1445	1577	
==>turn;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1387	1513	
==>turn;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2519	2614	
==>E

Blondie::Backend::Perl::Interpreter - A perl interpreter for compiled Blondie programs.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3658	3777	
==>up_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3658	3777	
==>up_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3658	3777	
==>up_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17026	17125	
==>::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17026	17125	
==>::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17026	17125	
==>::Class->add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1082	1202	
==>ub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1082	1202	
==>ub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1082	1202	
==>ub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7972	8170	
==>null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7972	8170	
==>null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7972	8170	
==>null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.pu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9883	9986	
==>andler register method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9883	9986	
==>andler register method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35837	35937	
==>_ = $self->{rx}->object(ifmatch => 1, @$_);
    }

The 'ifmatch' object is a positive looking asserti <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4264	4363	
==>.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4264	4363	
==>.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5788	5887	
==>.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4626	4734	
==>ain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4626	4734	
==>ain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4626	4734	
==>ain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27265	27387	
==>{ +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9125	9225	
==>you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9125	9225	
==>you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11322	11424	
==>er::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1778	1876	
==>er::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1778	1876	
==>er::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7595	7727	
==>ass->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7595	7727	
==>ass->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7595	7727	
==>ass->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	95	202	
==>m
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $wha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	95	202	
==>m
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $wha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	95	202	
==>m
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $wha <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5199	5424	
==>face, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5199	5424	
==>face, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 h <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3184	3289	
==>plementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array.splice(0,1);
#}

# copi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	222	331	
==>ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	222	331	
==>ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	222	331	
==>ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9169	9324	
==>t*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9169	9324	
==>t*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9169	9324	
==>t*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6382	6590	
==>b {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6382	6590	
==>b {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27565	27660	
==>If C<$body> is undefined or an empty Set,
the Relation::Example has zero tuples.  If a Relation: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1732	1898	
==>$value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when N <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1732	1898	
==>$value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when N <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4010	4106	
==>Column'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9491	9607	
==>in" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9491	9607	
==>in" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9491	9607	
==>in" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6542	6689	
==>c,$noop);
    } if $re eq '$';
    die "didn't implement $re"
  }
}
{
  # . \C
  package Regexp::Parser::reg_any;
  sub emit {
    my($o)=@_;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15634	15729	
==>tate, such as `start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15634	15729	
==>tate, such as `start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2784	2928	
==>$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            wa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3001	3145	
==>$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            wa <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2277	2381	
==>an Ingerson for now)
.
# XXX Not sure about the above heuristic. So die if incorrect.
    $path =~ s/\/\d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1954	2114	
==>(
                    '$.number'      => $self->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $desc <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1566	1670	
==>e for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglo <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1566	1670	
==>e for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2604	2703	
==>atch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matche <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2604	2703	
==>atch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2684	2783	
==>atch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matche <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	63	187	
==>s? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @a <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	63	187	
==>s? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2440	2564	
==>atch}[0]->from,
                to    => \$_[3]{match}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	31	133	
==>hema;
use Perl6::MetaModel;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of a Tang <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2064	2158	
==>of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::B <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2064	2158	
==>of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::B <==
3	/Users/nnunley/pugs/util/importgraph.pl	854	960	
==>s = defined $2;
    } elsif (/^import \s+ (qualified \s+)? ([\w.]+) (\s* \()?/x) {
      $imports{$2} = [de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5798	5901	
==>//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5798	5901	
==>//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3774	3883	
==>ansitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3774	3883	
==>ansitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3774	3883	
==>ansitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1019	1124	
==>Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1019	1124	
==>Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1019	1124	
==>Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this because PIL2JS.R <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18644	18741	
==>mpting to make it look sufficiently
like what the core expects to avoid problems.  While simultane <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2934	3031	
==>mpting to make it look sufficiently
like what the core expects to avoid problems.  While simultane <==
3	/Users/nnunley/pugs/util/package-osx.pl	2469	2558	
==>Users/dromano/dev/pugs/docs /usr/local/share/doc/pugs/docs
        /Users/dromano/dev/pugs <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	106	225	
==>ess.plx in the Test::Harness dist.
# (And some stuff stolen from prove, too.)

# Please improve me!
#
# TODO:
# 1. Modul <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	290	397	
==>ence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	290	397	
==>ence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @sta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14754	14859	
==>plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14754	14859	
==>plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16304	16402	
==>pturing
  package Regexp::Parser::open;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35790	35883	
==>ere <$other> has the same heading as
the invocant Relation::Example, and returns a new Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37822	37915	
==>ere <$other> has the same heading as the
invocant Relation::Example, and returns a new Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10843	10966	
==>...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10843	10966	
==>...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10843	10966	
==>...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2570	2743	
==>_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2570	2743	
==>_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2570	2743	
==>_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3121	3270	
==>method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($resp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3121	3270	
==>method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($resp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1243	1377	
==>>',
    );
    __PACKAGE__->add_rule(
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2274	2376	
==>if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_defau <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2274	2376	
==>if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_defau <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22158	22251	
==>'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <CaseClauses>? <'}'>
}
rule CaseClauses :words <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5533	5636	
==>N_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5533	5636	
==>N_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5533	5636	
==>N_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of va <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2475	2582	
==>pan.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2475	2582	
==>pan.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5327	5418	
==>tor_precedence_parser($ws,$ops,$tok));
sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4974	5091	
==>absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4974	5091	
==>absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4974	5091	
==>absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9490	9624	
==>$count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9490	9624	
==>$count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9490	9624	
==>$count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4170	4278	
==>od is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4170	4278	
==>od is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	185	286	
==>rc_root = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4464	4576	
==>), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4464	4576	
==>), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4464	4576	
==>), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13447	13573	
==>d () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13447	13573	
==>d () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13447	13573	
==>d () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys % <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22058	22156	
==>g in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal alge <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26610	26708	
==>g in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal alge <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25306	25404	
==>g in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal alge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4670	4770	
==>iag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4670	4770	
==>iag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4670	4770	
==>iag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2719	2849	
==>inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2719	2849	
==>inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2719	2849	
==>inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @compo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3616	3739	
==>xtToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3616	3739	
==>xtToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3616	3739	
==>xtToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1487	1661	
==>=> sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "J <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1487	1661	
==>=> sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "J <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1487	1661	
==>=> sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13597	13780	
==>new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13597	13780	
==>new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13597	13780	
==>new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2837	2946	
==>plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2837	2946	
==>plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2917	3026	
==>plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	539	660	
==>ixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	539	660	
==>ixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	539	660	
==>ixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1567	1674	
==>e {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1567	1674	
==>e {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_capture <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8962	9069	
==>i Array::map (@values,   Code $expression --> Lazy ) 
 multi  List::map (Code $expression ; *@values --> Laz <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	304	405	
==>ler.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @ <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	304	405	
==>ler.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7924	8040	
==>code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7924	8040	
==>code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7924	8040	
==>code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX:: <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2935	3042	
==>rns Str { @months_abbr[./month_0] }

# yes, these functions are not "correct" :)
method doy returns Int { $. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21776	21877	
==>dinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26328	26429	
==>dinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3129	3246	
==>ve call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3129	3246	
==>ve call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3129	3246	
==>ve call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8715	8827	
==>print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9550	9662	
==>print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	812	912	
==>CESSORS 

=head2 package

Set the name of the full package package. For example:

    p5-foo-1-cpan+k <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6182	6285	
==>bal, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6182	6285	
==>bal, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18928	19059	
==>od "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) {
                    my $ref = ref $obj <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17914	18009	
==>542'.  These codes
are "machine readable"; any application receiving such a code can identify
it <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17914	18009	
==>542'.  These codes
are "machine readable"; any application receiving such a code can identify
it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2653	2749	
==>=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2653	2749	
==>=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2653	2749	
==>=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	84	200	
==>converts p5 source to p6. Currently,
# only regexp matching and substitution are used, and
# this brute-force, simpli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22465	22560	
==>ion;

I<This documentation is pending.>

=head1 DESCRIPTION

This library provides a partial imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2423	2513	
==>1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2423	2513	
==>1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2423	2513	
==>1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subn <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2793	2969	
==>e!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Boo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6270	6446	
==>e!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3357	3452	
==>erl5 to execute C</usr/bin/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- The C<Pugs::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1715	1813	
==>** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1715	1813	
==>** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1715	1813	
==>** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13705	13815	
==>attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13705	13815	
==>attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13705	13815	
==>attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12065	12175	
==>elp_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12065	12175	
==>elp_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12065	12175	
==>elp_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(m <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3237	3341	
==>e\n".
        "8th line\n9th line\n10th line\n11th line\n12th line\n" ],
      [ 'file21', $file21, "12th <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1753	1851	
==>as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (P <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1753	1851	
==>as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1873	2028	
==>n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1861	2016	
==>n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = b <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	538	667	
==>=($str,$pos,$cap);
        return $kludge_retval if defined $kludge_retval;
        return $v;
      }
    }
    return undef;
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	131	244	
==>hing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	131	244	
==>hing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	131	244	
==>hing = args[1].FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2756	2866	
==>ay = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2756	2866	
==>ay = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2756	2866	
==>ay = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3087	3202	
==>_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3087	3202	
==>_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3087	3202	
==>_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	989	1105	
==>me_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	989	1105	
==>me_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	989	1105	
==>me_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7425	7514	
==>2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7425	7514	
==>2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7425	7514	
==>2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(fu <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	239	344	
==>Int {
    ...
}

method add($self: Duration $duration) returns Date {
    ...
}

method subtract($self: Du <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	44	136	
==>ar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use ba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	44	136	
==>ar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1056	1178	
==>= 
    concat( 
        alternation( constant('a'), constant('b') ),
        capture( '0', constant('b') ),
    );
pri <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11822	11944	
==>al "qr/$regex/$reopts";
      }
      $link->{sourcepath}=$output_path;
      $output .= $text;
      my $syn_path = catfil <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	974	1089	
==>ILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	974	1089	
==>ILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	330	449	
==>evel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	330	449	
==>evel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	330	449	
==>evel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1705	1815	
==>no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
asc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1765	1875	
==>no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
asc <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3458	3566	
==>ng, ever drinking;
>   clad in mail, never clinking.
-}


module Pugs.Config (
    config,
    getConfig
) wh <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3841	3924	
==>lf.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ), <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3841	3924	
==>lf.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9784	9886	
==>'writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$list <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9784	9886	
==>'writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$list <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9784	9886	
==>'writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name',$list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3624	3722	
==>et_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3624	3722	
==>et_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3624	3722	
==>et_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6090	6221	
==>oxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6090	6221	
==>oxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6090	6221	
==>oxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	358	474	
==>hing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	358	474	
==>hing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	358	474	
==>hing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1180	1313	
==>mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbati <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1180	1313	
==>mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	165	271	
==>s: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	165	271	
==>s: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	165	271	
==>s: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26797	26891	
==>vocant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of St <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31349	31443	
==>vocant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of St <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25337	25417	
==>C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	605	713	
==>Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOpti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	605	713	
==>Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOpti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	605	713	
==>Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOpti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2449	2555	
==>::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2449	2555	
==>::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2449	2555	
==>::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3073	3251	
==>. 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3073	3251	
==>. 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3073	3251	
==>. 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	530	644	
==>PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	530	644	
==>PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	530	644	
==>PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3081	3183	
==>->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3081	3183	
==>->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3081	3183	
==>->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5615	5725	
==>| <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | <'double'> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10606	10701	
==>hich
means that you can update several fields with a single invocation.

The $value argument may <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10606	10701	
==>hich
means that you can update several fields with a single invocation.

The $value argument may <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2025	2132	
==>names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1707	1810	
==>names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2791	2905	
==>uld be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2791	2905	
==>uld be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2791	2905	
==>uld be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3445	3586	
==>== bit->new(1) && 
     $left->returns eq $right->returns) ? 
        bit->new(1) : bit->new(0)
}

package closure::params;

use strict;
use w <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16105	16194	
==>active.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuva <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16163	16252	
==>active.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10206	10324	
==>do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10206	10324	
==>do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10206	10324	
==>do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7732	7834	
==>-> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional "conti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7470	7569	
==>-> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional "conti <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1165	1261	
==>ts or
cube roots (as in the example above).  Read a Calculus textbook for details.
This implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	259	359	
==>);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	259	359	
==>);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	259	359	
==>);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5682	5782	
==>::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5682	5782	
==>::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5682	5782	
==>::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13491	13595	
==>PSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13491	13595	
==>PSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13491	13595	
==>PSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	380	487	
==>PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	380	487	
==>PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	380	487	
==>PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3830	3922	
==>on
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3830	3922	
==>on
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3830	3922	
==>on
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6202	6348	
==>\\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6202	6348	
==>\\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6202	6348	
==>\\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3213	3412	
==>> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3087	3279	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:) <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15883	15997	
==>e "Couldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26237	26336	
==>he original's attributes; that subset is the same as
those attribute names in the argument C<$attrs> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30789	30888	
==>he original's attributes; that subset is the same as
those attribute names in the argument C<$attrs> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29782	29881	
==>he original's attributes; that subset is the same as
those attribute names in the argument C<$attrs> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	79	185	
==>$delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	79	185	
==>$delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13006	13125	
==>t">&raquo;</a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colsp <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14416	14528	
==>elf = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1896	2008	
==>elf = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	521	623	
==>\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Lim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	521	623	
==>\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Lim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	521	623	
==>\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Lim <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8775	8884	
==>ot and bash require",
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd($pugs), ldd("$parrot_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22774	22873	
==>The highest number of parentheses.  It will end up being identical to
C<nparen>, but it is increment <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2976	3076	
==>sed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2976	3076	
==>sed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2976	3076	
==>sed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	60	166	
==>e Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::In <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	55	161	
==>e Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::In <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	55	161	
==>e Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1854	1962	
==>].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1854	1962	
==>].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1854	1962	
==>].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14211	14304	
==>length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14211	14304	
==>length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14211	14304	
==>length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	710	808	
==>e, $test_filehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %to <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	359	455	
==>RAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfil <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	359	455	
==>RAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8756	8940	
==>nt' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8756	8940	
==>nt' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8756	8940	
==>nt' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	908	1023	
==>ptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	908	1023	
==>ptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11720	11857	
==>" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11720	11857	
==>" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11720	11857	
==>" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11259	11392	
==>date = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11259	11392	
==>date = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11259	11392	
==>date = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	550	701	
==>uery.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	550	701	
==>uery.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2676	2802	
==>l;
    my $tmpl = {
        perl    => { required => 1, store => \$perl },
    };

    check( $tmpl, \%hash ) or error(Params:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1469	1564	
==>from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1469	1564	
==>from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1469	1564	
==>from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (thi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21928	22040	
==>= pad["isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	81	178	
==>d BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	81	178	
==>d BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6087	6228	
==>e_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6087	6228	
==>e_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6087	6228	
==>e_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11429	11612	
==>unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11429	11612	
==>unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11429	11612	
==>unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3245	3375	
==>);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3245	3375	
==>);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3245	3375	
==>);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10137	10307	
==>s";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10137	10307	
==>s";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10137	10307	
==>s";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31781	31938	
==>arn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31781	31938	
==>arn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31781	31938	
==>arn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3748	3864	
==>{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3748	3864	
==>{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2829	2934	
==>k$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# .pmc file is <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2829	2934	
==>k$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# .pmc file is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	171	351	
==>e; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlExc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	171	351	
==>e; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlExc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	171	351	
==>e; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlExc <==
3	/Users/nnunley/pugs/util/grokprims.pl	667	768	
==>e {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, ret=>$ret, assoc=>$assoc, args=>[@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2409	2510	
==>- should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2409	2510	
==>- should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2409	2510	
==>- should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	669	776	
==>X add a fields accessors for all the fields in the file
    ### so we can have other accessors for other met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1153	1260	
==>X add a fields accessors for all the fields in the file
    ### so we can have other accessors for other met <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6098	6225	
==>defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24564	24670	
==>t} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20985	21091	
==>t} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34377	34473	
==>ames property of the new object is set from the named parameter
@set_names (an array ref), and Me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34377	34473	
==>ames property of the new object is set from the named parameter
@set_names (an array ref), and Me <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28563	28665	
==>/Test-Harness
  $ perl -Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose=0; runtests @A <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13179	13277	
==>g is not implemented yet. So
in order to still allow that to be tested, and those tests to knowingl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13237	13335	
==>g is not implemented yet. So
in order to still allow that to be tested, and those tests to knowingl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29488	29597	
==>RSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29488	29597	
==>RSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29488	29597	
==>RSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4999	5104	
==>om($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4999	5104	
==>om($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4999	5104	
==>om($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	96	215	
==>age at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	96	215	
==>age at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	96	215	
==>age at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9065	9158	
==>to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9065	9158	
==>to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14016	14123	
==>eds a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14016	14123	
==>eds a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14016	14123	
==>eds a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Contain <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	289	406	
==>all::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => j <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	190	307	
==>all::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	654	781	
==>p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	654	781	
==>p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	654	781	
==>p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	744	845	
==>hing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	744	845	
==>hing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	744	845	
==>hing = args[1].FETCH(), cc = args.pop();

    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14443	14535	
==>ttributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14443	14535	
==>ttributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14443	14535	
==>ttributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2013	2122	
==>sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2013	2122	
==>sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2013	2122	
==>sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6416	6641	
==>us, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6416	6641	
==>us, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6416	6641	
==>us, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $star <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3342	3478	
==>)                and error($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), return;
        system( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7802	7923	
==>er};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::alt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7540	7653	
==>er};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::alt <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2150	2251	
==>egex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2150	2251	
==>egex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1104	1225	
==>ead2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg->meta

The JIB::Meta object associated with t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1291	1391	
==>a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1291	1391	
==>a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1291	1391	
==>a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11137	11316	
==>arams;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11137	11316	
==>arams;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11137	11316	
==>arams;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4377	4499	
==>) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4377	4499	
==>) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6772	6873	
==>r 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6772	6873	
==>r 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1363	1484	
==>lurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1363	1484	
==>lurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1363	1484	
==>lurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4301	4402	
==>ing[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xF <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4301	4402	
==>ing[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10557	10658	
==>MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10557	10658	
==>MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10557	10658	
==>MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7178	7334	
==>Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7178	7334	
==>Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7178	7334	
==>Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	451	545	
==>TCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	451	545	
==>TCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	451	545	
==>TCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1326	1441	
==>truct->{$_} ) for keys %$struct;
    
    ### if it has a dependency list, transform it into an object
    if( $obj- <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2474	2576	
==>- Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configura <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2474	2576	
==>- Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configura <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3411	3518	
==>hrow "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3411	3518	
==>hrow "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3411	3518	
==>hrow "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9572	9675	
==>Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9572	9675	
==>Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9572	9675	
==>Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5830	5983	
==>hod_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5830	5983	
==>hod_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5830	5983	
==>hod_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11606	11720	
==>ork...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11606	11720	
==>ork...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11606	11720	
==>ork...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29469	29586	
==>{
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29469	29586	
==>{
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29469	29586	
==>{
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2256	2366	
==>VarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2256	2366	
==>VarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2256	2366	
==>VarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1096	1213	
==>op2> <equal>',
);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $cla <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4710	4809	
==>e initialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, whi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4710	4809	
==>e initialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9420	9524	
==>or/accessor

    # -----------------------------------------------      
    # this collects a unique lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9420	9524	
==>or/accessor

    # -----------------------------------------------      
    # this collects a unique lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9420	9524	
==>or/accessor

    # -----------------------------------------------      
    # this collects a unique lis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1648	1788	
==>, $_[3],],
            ], %{$_[1]} } }
    ;

signature:
        #empty  
        { $_[0]->{out}= { signature => [] } }
    |   signature_ter <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1637	1759	
==>the current tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1637	1759	
==>the current tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9489	9614	
==>' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $description?, Str $rea <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1592	1707	
==>' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $rea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1592	1707	
==>' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $description?, Str $rea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19381	19510	
==>lit //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15802	15931	
==>lit //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	400	493	
==>rl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1::BB::pugs_args);
BEGIN{
GetOptions(
    'versi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	49	148	
==>rnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	54	152	
==>rnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	52	150	
==>rnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2451	2553	
==>rn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2451	2553	
==>rn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2451	2553	
==>rn $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1995	2166	
==>ined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1995	2166	
==>ined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1995	2166	
==>ined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap->isa("PIL::PLit")         and <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3522	3653	
==>| $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3522	3653	
==>| $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5046	5177	
==>| $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	699	835	
==>shift; $::CLASS->new(@_) }        
    },
    submethods => {
        'BUILD' => sub {
            _('$.output' => $::TestBuilder->FETCH( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10163	10259	
==>section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10221	10317	
==>section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19635	19731	
==>dText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19635	19731	
==>dText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	34	131	
==>arnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	34	131	
==>arnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	34	131	
==>arnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16937	17033	
==>);
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16937	17033	
==>);
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16937	17033	
==>);
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2529	2655	
==>catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2529	2655	
==>catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2529	2655	
==>catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20740	20841	
==>) }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20740	20841	
==>) }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20740	20841	
==>) }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	315	421	
==>crypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	315	421	
==>crypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	176	281	
==>n($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addit <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	176	281	
==>n($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7584	7682	
==>bel)) returns bit
    ((($self: get_attr (symbol new (%:methods))) exists ($label))))

=cut

$::Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4824	4983	
==>$pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4824	4983	
==>$pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4824	4983	
==>$pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14823	14936	
==>] = "$"
    goto end
  scalar:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    dec pos
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15739	15839	
==>he design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http:/ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15739	15839	
==>he design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http:/ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10662	10756	
==>type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10900	10994	
==>type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11092	11186	
==>type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8623	8759	
==>b before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8623	8759	
==>b before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	228	347	
==>ub is_nil     { bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $result = $se <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13174	13296	
==>tart => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( day <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13174	13296	
==>tart => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( day <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7215	7325	
==>f->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER::run_test($t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1943	2070	
==>kage Blondie::Sym;
    use base 'Blondie::Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    pac <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2471	2575	
==>rter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Previ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2471	2575	
==>rter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8229	8356	
==>.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8229	8356	
==>.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8229	8356	
==>.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6884	6978	
==>urn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6884	6978	
==>urn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6884	6978	
==>urn new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	289	391	
==>elf->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	289	391	
==>elf->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	289	391	
==>elf->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16718	16854	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $travers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16718	16854	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $travers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16718	16854	
==>$::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $travers <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1027	1161	
==>\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1027	1161	
==>\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22980	23081	
==>mb(
					fun => ide("listify"),
					param => val(v => "foo", t => type::operator::nullary->new("str") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	661	759	
==>x.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	661	759	
==>x.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	661	759	
==>x.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	440	539	
==>indBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	440	539	
==>indBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	440	539	
==>indBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1951	2084	
==>header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5428	5561	
==>header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4358	4491	
==>header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14038	14137	
==>o {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=item RPe_NESTED (-16 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22561	22653	
==>Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22561	22653	
==>Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	483	591	
==>essors(qw/
    tokenTable 
    termTable 
    operatorTable 
    whitespaceTermTable 
    whitespaceOperatorT <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23333	23423	
==>C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> ". <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23333	23423	
==>C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> ". <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13627	13745	
==>n.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17104	17222	
==>n.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16466	16584	
==>n.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	22	124	
==>ge Blondie::Prelude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub ' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10690	10782	
==>$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since P <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10748	10840	
==>$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6300	6398	
==>c-language-like syntax, contained in a package

### rule must ever use Rule::rule form - never Rule <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	19	116	
==>does NameSpace--Perl6;

# publicly exported methods
has Code--Perl6 %.methods;

# private use meth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6085	6182	
==>c-language-like syntax, contained in a package
### rule must ever use Rule::rule form - never Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8292	8378	
==>expand();
}

#======================================================================

u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8292	8378	
==>expand();
}

#======================================================================

u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8292	8378	
==>expand();
}

#======================================================================

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1958	2089	
==>ce($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1958	2089	
==>ce($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1958	2089	
==>ce($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if ($ty <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	967	1068	
==>a grammar for perl6.
  This will likely be pure p5/prolog, with no p6 runtime associated.
Then, 
  - a <==
3	/Users/nnunley/pugs/misc/S29_round.pl	594	704	
==>_round = sign($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <  0) { $x_round = sign($x) * floor( abs($ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	275	380	
==>nd, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	275	380	
==>nd, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	115	218	
==>or usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	115	218	
==>or usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	115	218	
==>or usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9274	9366	
==>d2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9274	9366	
==>d2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	191	290	
==>Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	191	290	
==>Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	191	290	
==>Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1234	1384	
==>on'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            ret <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	169	288	
==>oat {
    ...
}

# return a unix time_t
method time_t($self:) returns Int {
    ...
}

method add($self: Duration $durat <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10103	10192	
==>p://svn.openfoundry.org/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6071	6199	
==>F->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6071	6199	
==>F->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6071	6199	
==>F->ref->new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_descri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	356	474	
==>ile( $Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16362	16463	
==>eue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16362	16463	
==>eue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10721	10864	
==>e processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7062	7205	
==>e processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7911	8054	
==>e processing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2559	2667	
==>*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2559	2667	
==>*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2559	2667	
==>*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1984	2078	
==>t_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1984	2078	
==>t_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10486	10672	
==>fined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10486	10672	
==>fined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10486	10672	
==>fined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = ar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2114	2221	
==>ty );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start" <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2114	2221	
==>ty );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start" <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	789	893	
==>ine ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if $line ~~ m:per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4176	4308	
==>:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4176	4308	
==>:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4176	4308	
==>:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: " <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1235	1347	
==>mp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1235	1347	
==>mp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -In <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	125	242	
==>a dumb intermediate language and a compiler collection for
the purpose of demonstrating an approach to compilation.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2340	2446	
==>kages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of ev <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2888	2994	
==>kages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of ev <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11335	11472	
==>alternative {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1799	1906	
==>ant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1799	1906	
==>ant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1799	1906	
==>ant($_[0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { spr <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9128	9262	
==>ob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islaz <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25135	25229	
==>, the copyright holders
of Rosetta give you permission to link Rosetta with other free software <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25135	25229	
==>, the copyright holders
of Rosetta give you permission to link Rosetta with other free software <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1289	1410	
==>ay();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1289	1410	
==>ay();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1289	1410	
==>ay();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1389	1500	
==>alk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1389	1500	
==>alk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1389	1500	
==>alk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	60	174	
==>rts) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	60	174	
==>rts) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	60	174	
==>rts) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19009	19116	
==>en->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20367	20474	
==>en->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4421	4522	
==>le>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31920	32077	
==>$e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _make_descendant_dispatcher (opaque $self:) returns block {
    $self._ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21045	21144	
==>it that only the last of these fields will be present in the header
after the call.  All values ough <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21045	21144	
==>it that only the last of these fields will be present in the header
after the call.  All values ough <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	52	176	
==>ixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	52	176	
==>ixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	52	176	
==>ixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10166	10311	
==>ms, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10166	10311	
==>ms, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10166	10311	
==>ms, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3507	3638	
==>features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8402	8505	
==>Adds a new operator to the category.

options:

=item * name => $operator_name - the name of this op <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5942	6041	
==>Adds a new operator to the category.

options:

=item * name => $operator_name - the name of this op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13534	13632	
==>sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13534	13632	
==>sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13534	13632	
==>sub p6_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6572	6667	
==>an (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6572	6667	
==>an (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6572	6667	
==>an (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	807	929	
==>"Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content_type;
        $header ~= "; chars <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	753	867	
==>$value->isa('type'))
        || confess "You must provide a value to reference";    
    ${$self} = $value;
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	300	441	
==>uct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        st <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	784	925	
==>uct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	977	1093	
==>me'\n";
    open FILE, "<", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    cl <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2872	3002	
==>($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($tex <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2872	3002	
==>($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($tex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1611	1697	
==>'RULE')->code();

    $<name>:=(<ident>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3918	4078	
==>ll')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3918	4078	
==>ll')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3918	4078	
==>ll')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11407	11581	
==>"    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7689	7863	
==>"    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8523	8697	
==>"    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3109	3202	
==>ns] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3109	3202	
==>ns] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3109	3202	
==>ns] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jss <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	167	254	
==>me bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.langua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	167	254	
==>me bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.langua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	167	254	
==>me bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.langua <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1843	1961	
==>it/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10205	10378	
==>>store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10205	10378	
==>>store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10205	10378	
==>>store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6713	6911	
==>.pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6713	6911	
==>.pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2292	2476	
==>=> [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClas <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3184	3336	
==>> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3184	3336	
==>> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25107	25195	
==>t_flag_x(E0,-,E1), !.
set_flag(E0,_,E0).
set_modifiers_from(E0,Em,E1) :-
  E0 = amat(C0,_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	117	220	
==>cessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	117	220	
==>cessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	117	220	
==>cessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16392	16508	
==>s methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16392	16508	
==>s methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16392	16508	
==>s methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread:: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3313	3420	
==>smokes {
  my $category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<pugs_version osname runco <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2562	2666	
==>ine, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2562	2666	
==>ine, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5060	5241	
==>cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5072	5253	
==>cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1267	1356	
==>reating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Regex->compile( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11584	11686	
==>ile($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11584	11686	
==>ile($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11584	11686	
==>ile($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5165	5301	
==>fe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5051	5178	
==>r $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method pr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5051	5178	
==>r $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method pr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1727	2021	
==>('$y'),
                                ),
                                Sym('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39665	39753	
==>isit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free sof <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39665	39753	
==>isit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free sof <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27967	28070	
==>t 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: set_attr ((symbol new @:MRO) ($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21659	21754	
==>names, and all
Relation tuples may be individually addressed only by their values; neither
may b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26211	26306	
==>names, and all
Relation tuples may be individually addressed only by their values; neither
may b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1513	1613	
==>iled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1513	1613	
==>iled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1513	1613	
==>iled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelud <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4377	4477	
==>' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4377	4477	
==>' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11040	11134	
==>h_sep}, $self->_filtered_INC;
}

=head2 C<_filtered_INC>

  my @filtered_inc = $self->_filtered <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2225	2315	
==>freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2225	2315	
==>freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9739	9828	
==>:Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9739	9828	
==>:Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9739	9828	
==>:Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6281	6393	
==>rgs) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6281	6393	
==>rgs) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6281	6393	
==>rgs) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	421	548	
==>way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it via the closure <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	421	548	
==>way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it via the closure <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	421	548	
==>way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it via the closure <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4472	4569	
==>face to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4472	4569	
==>face to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4221	4315	
==>eturns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> para <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4221	4315	
==>eturns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6418	6512	
==>eturns a
Test::Builder::Test::Skip instance, passing on the C<$description> and
C<$reason> para <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46013	46163	
==>_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49247	49397	
==>_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50125	50275	
==>_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	142	255	
==>w();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	142	255	
==>w();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	142	255	
==>w();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14229	14449	
==>);         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14229	14449	
==>);         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14229	14449	
==>);         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	164	277	
==>l::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	164	277	
==>l::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	164	277	
==>l::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaMod <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3469	3594	
==>y $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) {
            next unless exists &{ref($obj) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4429	4520	
==>F!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4429	4520	
==>F!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7035	7223	
==>rns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7035	7223	
==>rns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7035	7223	
==>rns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12786	12893	
==>$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12786	12893	
==>$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12786	12893	
==>$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2594	2714	
==>>lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2594	2714	
==>>lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2594	2714	
==>>lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2942	3074	
==>c_list {
    my $n = $_[0];
    # print "list emit_rule: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ', <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9856	9983	
==>tch = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9850	9977	
==>tch = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3529	3636	
==>$path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3529	3636	
==>$path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11771	11905	
==>exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11771	11905	
==>exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11771	11905	
==>exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2511	2663	
==>compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2511	2663	
==>compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2511	2663	
==>compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4741	4903	
==>y $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4741	4903	
==>y $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4741	4903	
==>y $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should b <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	404	512	
==>sort by highest version
    ### XXX this should be a policy decision
    my @metas = sort { $b->{version} cmp <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5810	5906	
==>dlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled afte <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5810	5906	
==>dlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled afte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5835	5987	
==>e}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5835	5987	
==>e}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5835	5987	
==>e}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10859	10979	
==>is package from the available list
    $self->remove_available( package => $inst_pkg );
    
    ### move this all to Ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6345	6493	
==>eturn null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6345	6493	
==>eturn null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6345	6493	
==>eturn null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null, null, null, <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7496	7601	
==>esult1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_16 = 2 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6825	6924	
==>esult1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7197	7296	
==>esult1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1404	1518	
==>EED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1404	1518	
==>EED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1404	1518	
==>EED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled P <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14017	14144	
==>syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1266	1386	
==>s Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has I <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1266	1386	
==>s Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1872	1992	
==>js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1872	1992	
==>js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1872	1992	
==>js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	199	290	
==>tp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	199	290	
==>tp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	199	290	
==>tp://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Cla <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12530	12667	
==>ING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle num <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12530	12667	
==>ING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle num <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	679	865	
==>ls:
    # (None Yet)

    # Attributes of every Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

s <==
3	/Users/nnunley/pugs/util/grokprims.pl	646	751	
==>ssoc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, ret=>$ret, assoc=>$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7140	7247	
==>_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7152	7259	
==>_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1925	2016	
==>s of Relation::LaxAttrList () {...}

proto method export_attr_names of List of Relation::Att <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14200	14327	
==>" ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14194	14321	
==>" ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	7	119	
==>JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	7	119	
==>JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	7	119	
==>JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11788	11883	
==>d: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or d <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11788	11883	
==>d: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3253	3373	
==>m src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3253	3373	
==>m src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3253	3373	
==>m src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4579	4689	
==>$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describing why the te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4579	4689	
==>$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describing why the te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6776	6886	
==>$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a string describing why the te <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10197	10295	
==>.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4989	5085	
==>uperclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7657	7753	
==>uperclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7361	7535	
==>Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7361	7535	
==>Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7361	7535	
==>Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15835	15981	
==>escendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1612	1743	
==>s Void is export {
    say "1..$number_of_tests";
}

1 if 4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2863	2965	
==>(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2863	2965	
==>(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19356	19461	
==>dy.values )
        } ),
    );
}

my method _product (Relation::Example $other!) returns Relation::Exampl <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3186	3283	
==>d a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_v <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3186	3283	
==>d a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_v <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15077	15172	
==>e able to handle structures of arbitrary depth and of
an arbitrary type. The function signatures <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15135	15230	
==>e able to handle structures of arbitrary depth and of
an arbitrary type. The function signatures <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1452	1544	
==>ackage Perl6::Run::OnPerl5::X1::Result;
use strict;
sub new {
    my($cls,$value,$warnings,$h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2140	2268	
==>source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2140	2268	
==>source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2140	2268	
==>source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16639	16816	
==>y->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16639	16816	
==>y->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16639	16816	
==>y->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7601	7828	
==>_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7601	7828	
==>_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7601	7828	
==>_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	621	716	
==>and {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	621	716	
==>and {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	621	716	
==>and {
    my($self,$avoid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4988	5095	
==>s_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4988	5095	
==>s_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4988	5095	
==>s_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->j <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5608	5719	
==>, 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5608	5719	
==>, 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2505	2616	
==>, 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	64	184	
==>e warnings;

use Blondie::Nodes;

sub symbols {
    (
		map { stub($_, '$x', '$y') }
        '&infix:<==>',
        '&inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14513	14686	
==>n $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14513	14686	
==>n $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14513	14686	
==>n $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_descripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3353	3445	
==>self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3353	3445	
==>self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3353	3445	
==>self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	437	630	
==>, @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$progra <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5267	5390	
==>=> sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5267	5390	
==>=> sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3336	3428	
==>akefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(IN <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4472	4564	
==>akefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(IN <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16642	16729	
==>RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2731	2857	
==>ude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2948	3074	
==>ude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4841	4985	
==>_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4841	4985	
==>_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4841	4985	
==>_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8367	8495	
==>ck = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8560	8688	
==>ck = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	420	540	
==>'new'    => sub { 
            my ($class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testpla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10824	11007	
==>rent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10824	11007	
==>rent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10824	11007	
==>rent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12217	12351	
==>MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Erro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12217	12351	
==>MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Erro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12217	12351	
==>MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7297	7471	
==>ay->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7297	7471	
==>ay->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7297	7471	
==>ay->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32407	32627	
==>-$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32407	32627	
==>-$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32407	32627	
==>-$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1228	1339	
==>attr(symbol->new('@:MRO'));
    # if nothing is in MRO, we take the superclasses
    # because we know that is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14710	14824	
==>}
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14710	14824	
==>}
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14710	14824	
==>}
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5511	5611	
==>b possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5511	5611	
==>b possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5511	5611	
==>b possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3704	3962	
==>re => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3557	3802	
==>re => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11734	11885	
==>{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # pri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11734	11885	
==>{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # pri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11734	11885	
==>{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # pri <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	346	448	
==>ked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given b <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	346	448	
==>ked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5494	5605	
==>ue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5494	5605	
==>ue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5494	5605	
==>ue::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8556	8659	
==>ck}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8556	8659	
==>ck}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1636	1736	
==>iled,
    }, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_failed { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	117	246	
==>ile::Copy                  ();
use Params::Check               qw[check];
use Log::Message::Simple        qw[:STD];
use Module::Lo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22859	22955	
==>=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27411	27507	
==>=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2299	2406	
==>o should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2299	2406	
==>o should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2299	2406	
==>o should autovivify %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5272	5370	
==>t files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5272	5370	
==>t files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5272	5370	
==>t files may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, bu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2724	2844	
==>x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2724	2844	
==>x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    retur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1134	1411	
==>Level+2;
                                    error(qq[File '$file' is not readable ].
                                           q[or does not exist]);
                                    return;
                            };    
use constant IS_DIR         => sub { return 1 i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16535	16631	
==>ed in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is inst <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16535	16631	
==>ed in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is inst <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7541	7677	
==>@phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7598	7734	
==>@phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29417	29517	
==>he tree.  Most node types don't merge.  Returns true if
the node was merged with the previous one.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10843	11011	
==>art;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10843	11011	
==>art;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2040	2140	
==>sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)), <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10381	10559	
==>ijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13858	14036	
==>ijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13139	13317	
==>ijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relat <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3729	3825	
==>w' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts t <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3729	3825	
==>w' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	174	270	
==>nd;

has Time::Zone $.tz;

our $iso8601_re_anchored = rx:perl5/^$iso8601_re$/;

multi sub date( I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13288	13400	
==>L::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__fla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13288	13400	
==>L::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__fla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13288	13400	
==>L::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__flag) {
        last if $__fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34314	34444	
==>t->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34314	34444	
==>t->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub spli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34314	34444	
==>t->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7285	7451	
==>d - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7285	7451	
==>d - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7285	7451	
==>d - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36876	37000	
==>);
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36876	37000	
==>);
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36876	37000	
==>);
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in numeric con <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8931	9020	
==>:Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, an <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8931	9020	
==>:Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9284	9401	
==>lock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9477	9594	
==>lock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35870	36010	
==>th
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35870	36010	
==>th
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35870	36010	
==>th
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16109	16219	
==>aN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16109	16219	
==>aN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16109	16219	
==>aN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13666	13788	
==>ELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17143	17265	
==>ELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16505	16627	
==>ELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	695	894	
==>op::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	696	895	
==>op::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17260	17363	
==>un_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name) = @_;
    loca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	510	605	
==>r Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Acce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	510	605	
==>r Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Acce <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	68	225	
==>::Rule;
use Cwd                         ();
use File::Copy                  ();
use Params::Check               qw[check];
use Log::Message::Simple        qw[ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17347	17441	
==>interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17347	17441	
==>interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7995	8158	
==>etch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7995	8158	
==>etch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7995	8158	
==>etch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4118	4228	
==>args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4118	4228	
==>args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4118	4228	
==>args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21457	21555	
==>d come with a set of user
messages, but another package or program which uses yours may wish to
ove <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21457	21555	
==>d come with a set of user
messages, but another package or program which uses yours may wish to
ove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	97	183	
==>-------------------------------------------------------
## Mini Meta-Model with Self-Bo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40074	40168	
==>ale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Found <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40074	40168	
==>ale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Found <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	232	335	
==>s $pmc =~ /\.pmc/;
# test file dates
my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $filename));
# pr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	137	234	
==>text, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) fo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	137	234	
==>text, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4992	5102	
==>\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4992	5102	
==>\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4992	5102	
==>\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2797	2894	
==>: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2797	2894	
==>: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Ei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2797	2894	
==>: " . ::opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'Ei <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1932	2105	
==>ot_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $ms <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1932	2105	
==>ot_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $ms <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6955	7083	
==>s.keys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4895	4992	
==>al public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.nu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4895	4992	
==>al public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.nu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7092	7189	
==>al public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3754	3881	
==>", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3754	3881	
==>", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3754	3881	
==>", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	614	718	
==>_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	614	718	
==>_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	614	718	
==>_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recur <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7469	7574	
==>my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10961	11057	
==>, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11019	11115	
==>, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	400	498	
==>true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	400	498	
==>true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	400	498	
==>true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1679	1834	
==>ompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $re <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9258	9361	
==>::Switches, $ENV{HARNESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $f <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1093	1186	
==>igest->digest;

	$cache{$sha1} ||= $self->generate_inline_c($c_code);
}

my $i;
sub generate_i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	80	186	
==>rl6::Core::Str;
use Perl6::Core::Ref;

use Perl6::MM::Attribute;

package opaque;

use strict;
use warnings <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	808	900	
==>level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	808	900	
==>level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1371	1530	
==>_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SEL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1371	1530	
==>_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SEL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1371	1530	
==>_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SEL <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17100	17197	
==>, it is this "Rosetta" file which provides
the glue between your Perl code and your Rosetta D code <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17100	17197	
==>, it is this "Rosetta" file which provides
the glue between your Perl code and your Rosetta D code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4150	4262	
==>aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4150	4262	
==>aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4150	4262	
==>aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script type="text/javascript">//<![C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13144	13310	
==>$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13138	13304	
==>$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2595	2696	
==>tics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2595	2696	
==>tics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2675	2776	
==>tics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2149	2275	
==>[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2149	2275	
==>[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	443	550	
==>enerator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37177	37313	
==>IVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37177	37313	
==>IVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37177	37313	
==>IVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        } <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	231	350	
==>eam;

# use base Exporter;
# @EXPORT_OK = qw(node head tail drop upto upfrom show promise
#                 filter trans <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1159	1264	
==>$.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent() <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1159	1264	
==>$.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent() <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25937	26032	
==>e names and values
that are associated with the message, and can be interpolated into the
human- <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25937	26032	
==>e names and values
that are associated with the message, and can be interpolated into the
human- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1547	1659	
==>e_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    spl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16105	16205	
==>alue. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16105	16205	
==>alue. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8556	8663	
==>xed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8556	8663	
==>xed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8556	8663	
==>xed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	558	664	
==>y $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	328	434	
==>y $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	328	434	
==>y $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18516	18614	
==>x0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18516	18614	
==>x0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18516	18614	
==>x0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8507	8635	
==>lf->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8507	8635	
==>lf->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8507	8635	
==>lf->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10095	10221	
==>fthen->{data} = [ [ @{ $ifthen->{data} } ], $cond ];
      $rx->{tree} = $ifthen->{data};
    }

    # if this is the 2nd or 3r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1022	1121	
==>turn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1022	1121	
==>turn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14637	14803	
==>$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14637	14803	
==>$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14637	14803	
==>$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	344	450	
==>use this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	344	450	
==>use this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$g <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15544	15661	
==>he world messes with:

  I32 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible le <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1310	1420	
==>ss -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathf <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1310	1420	
==>ss -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23874	23968	
==>ef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23874	23968	
==>ef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23874	23968	
==>ef); };
MULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11652	11784	
==>quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11652	11784	
==>quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5130	5233	
==>k could be generated automatically ?
  );

Pseudo-code for usage inside a grammar:

    rule prototype { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	939	1064	
==>e_lines($p5),"\n";
	}
	print $cc->warnings;
        print "----\n";
	my @res = eval($p5);
	print $@ if $@;
        print "\n", <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5409	5499	
==>$Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5467	5557	
==>$Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10088	10256	
==>names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10088	10256	
==>names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10088	10256	
==>names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1695	1807	
==>ing(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5172	5284	
==>ing(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4102	4214	
==>ing(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1148	1246	
==>once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1148	1246	
==>once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1148	1246	
==>once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5498	5663	
==>next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5498	5663	
==>next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5498	5663	
==>next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invocant
            push @params => $1;
        }
        else {
            push @params => $token <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12020	12128	
==>.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12020	12128	
==>.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12020	12128	
==>.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1313	1444	
==>return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>',
    my ($self, $op) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4028	4145	
==>tch->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4168	4285	
==>tch->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12619	12719	
==>ode;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Erro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12619	12719	
==>ode;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Erro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12619	12719	
==>ode;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6633	6747	
==>ain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6633	6747	
==>ain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6633	6747	
==>ain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6828	6930	
==>onnectorPunctuation {  # see 7.6
      # any character in the Unicode category "Connector punctuation ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6831	6932	
==>ct(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", su <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2529	2683	
==>0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change;
        while $i >= $final {
            @a[$i] = @a[$i-$size_change] <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1116	1240	
==>y = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1116	1240	
==>y = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	99	200	
==>e 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	67	168	
==>e 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	99	200	
==>e 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3285	4005	
==>le-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation-0.1 <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1733	1860	
==>tfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $R <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1733	1860	
==>tfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1627	1741	
==>fix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1627	1741	
==>fix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1627	1741	
==>fix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      va <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4135	4249	
==>is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines wit <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4135	4249	
==>is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines wit <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7335	7499	
==>)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  file => $_ . ".html",
               name => $_,
            };
    }
}

sub bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3096	3225	
==>bject = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4796	4920	
==>bject = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3824	3944	
==>bject = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2947	3086	
==>xit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2947	3086	
==>xit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2947	3086	
==>xit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4772	4950	
==>ore' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4772	4950	
==>ore' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4772	4950	
==>ore' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	305	410	
==>("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	305	410	
==>("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	305	410	
==>("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pN <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1519	1648	
==>package eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alternative( $alt );
    } <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	375	498	
==>o lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*IN <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	375	498	
==>o lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*IN <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7778	7883	
==>> $file, [force => BOOL])

Adds a given file to the repository.

=cut

sub add_file {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8119	8254	
==>"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8119	8254	
==>"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746), <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5004	5117	
==>{p6_new('Scalar',@_)}

# XXX - Using field names here is a major abstraction violation.
# Need to figure out posit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2428	2552	
==>', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2428	2552	
==>', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2775	2899	
==>', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7951	8105	
==>[ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7951	8105	
==>[ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7951	8105	
==>[ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13577	13718	
==>Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13577	13718	
==>Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13577	13718	
==>Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $su <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2356	2492	
==>tart: $!\n";
    }

    return @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13049	13153	
==>lly when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13049	13153	
==>lly when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	230	333	
==>, or type literals

# second part is the object model for a lambda calculus, and a type inferrencer

# t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13377	13482	
==>%{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13377	13482	
==>%{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13377	13482	
==>%{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3090	3182	
==>(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3090	3182	
==>(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3090	3182	
==>(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|p <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	41	145	
==>FO','NOISY','FORCE';
# please help fill in this file
# a method of autogenrating bindings from vtable.h i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6905	6998	
==>content = $class->pmc_process($real_content);
        $class->$post_process($filtered_content, <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6905	6998	
==>content = $class->pmc_process($real_content);
        $class->$post_process($filtered_content, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8019	8166	
==>ed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8019	8166	
==>ed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8019	8166	
==>ed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1739	1867	
==>:PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1739	1867	
==>:PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1739	1867	
==>:PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2503	2615	
==>_;
    my $output = _draw_role_node($role);   
    foreach my $subrole (@{$role->roles}) {
        $output .= _dr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4982	5088	
==>ent;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $paren <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4982	5088	
==>ent;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $paren <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	348	456	
==>sh = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::Var::has <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3626	3733	
==>{$_} = [
    (sort {
      $b->{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a-> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6590	6717	
==>strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	521	633	
==>y $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $cod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	521	633	
==>y $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3427	3530	
==>ttribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3427	3530	
==>ttribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3427	3530	
==>ttribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6909	7031	
==>te).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6909	7031	
==>te).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6909	7031	
==>te).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8842	8966	
==>$quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8838	8962	
==>$quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5999	6137	
==>[];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5999	6137	
==>[];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5999	6137	
==>[];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18689	18800	
==>add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15110	15221	
==>add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30448	30559	
==>add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	77	189	
==>Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Inst <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1773	1865	
==>constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1773	1865	
==>constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7586	7707	
==>cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7586	7707	
==>cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7586	7707	
==>cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my % <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4782	4900	
==>irs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4782	4900	
==>irs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updi <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	216	312	
==>mely foolish
# script, ignoring deeper context, needs lots of
# improvement. Due to regexp's limi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11283	11400	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11283	11400	
==>NDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_A <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15048	15139	
==>(R)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N), N1 is N + <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22581	22678	
==>tributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27133	27230	
==>tributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25865	25962	
==>tributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11323	11444	
==>y = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11323	11444	
==>y = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11323	11444	
==>y = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shif <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4129	4238	
==>=> 1, store => \$file }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	348	449	
==>en} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	220	319	
==>method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	220	319	
==>method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	220	319	
==>method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unless $self.i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8094	8214	
==>cache the hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        pr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1473	1574	
==>d end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1473	1574	
==>d end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	246	358	
==>}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	246	358	
==>}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	246	358	
==>}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $cou <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2062	2172	
==>ubmitted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+)/ and $sm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10605	10711	
==>successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10605	10711	
==>successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1715	1845	
==>$k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1715	1845	
==>$k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1715	1845	
==>$k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif ( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2904	3039	
==>, $col;
		$chr = shift @file;
		last if $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    prin <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3141	3238	
==>urns Int { int (./doy / 7) }

method day_of_month returns Int { $.day }
method day_of_month_0 retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	56	178	
==>gs;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	56	178	
==>gs;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5451	5552	
==>re is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5451	5552	
==>re is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5451	5552	
==>re is not available
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PI <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	995	1097	
==>:Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	995	1097	
==>:Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1330	1429	
==>= $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[Prototype]]> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	0	93	
==>class Test::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	0	93	
==>class Test::Builder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Buil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20417	20532	
==>} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16838	16953	
==>} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	427	541	
==>exicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	427	541	
==>exicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	427	541	
==>exicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1995	2128	
==>p = Hacks->noop;
  my $debug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12004	12095	
==>=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12004	12095	
==>=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Documen <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2705	2809	
==>tor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2705	2809	
==>tor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7710	7815	
==>, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9638	9743	
==>, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7698	7803	
==>, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2304	2401	
==>turn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2304	2401	
==>turn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2304	2401	
==>turn str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14947	15047	
==>};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14947	15047	
==>};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14947	15047	
==>};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20243	20334	
==>zation_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NON-CAN <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20243	20334	
==>zation_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NON-CAN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1266	1375	
==>piled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1266	1375	
==>piled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1266	1375	
==>piled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7917	8077	
==>arn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7917	8077	
==>arn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7917	8077	
==>arn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15301	15408	
==>nc ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15301	15408	
==>nc ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15301	15408	
==>nc ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	651	765	
==>old,
and only now is changing from an experimental "let's see if something
like this can work" to "ok, this looks d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2756	2866	
==>inite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2756	2866	
==>inite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2756	2866	
==>inite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1900	2031	
==>:FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1900	2031	
==>:FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1900	2031	
==>:FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2265	2401	
==>h->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2192	2321	
==>h->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1610	1723	
==>ct>  }
rule hash_alias             {  \%\<<name>\>  \:\=  <construct>  }
rule numbered_scalar_alias  {  \$<number> <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	390	501	
==>rns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method mem <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	390	501	
==>rns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method mem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8539	8666	
==>print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12448	12573	
==>print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12448	12573	
==>print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6057	6152	
==>de_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6057	6152	
==>de_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2956	3051	
==>de_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12853	13008	
==>class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12853	13008	
==>class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12853	13008	
==>class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Method <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7389	7514	
==>y $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $call = caller($d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9760	9881	
==>atisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wan <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11237	11358	
==>atisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2310	2456	
==>lse"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2310	2456	
==>lse"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2310	2456	
==>lse"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3227	3340	
==>f
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3227	3340	
==>f
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3227	3340	
==>f
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	133	237	
==>arser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	133	237	
==>arser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	133	237	
==>arser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = ble <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9775	9913	
==>{ok}||0 == 0;
          } else { 
              # skipped tests do not carry the a line number, so leave them out for now
          if($tes <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	118	223	
==>rer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secre <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	118	223	
==>rer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13710	13809	
==>ument.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persistenc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13710	13809	
==>ument.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persistenc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14273	14368	
==>re iterated.

What is returned at each element of the iteration varies with function.
C<keys> on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5128	5303	
==>y;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5128	5303	
==>y;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5128	5303	
==>y;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3551	3731	
==>ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3551	3731	
==>ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	179	276	
==>xt::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	179	276	
==>xt::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

us <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3167	3287	
==>> 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlau <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3167	3287	
==>> 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14261	14364	
==>t' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14261	14364	
==>t' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14261	14364	
==>t' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%param <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5355	5480	
==>his is shorthand for backwards
compatibility on systems where C<glob()> doesn't work right.

=cut

sub _globdir { 
    opendir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11868	11966	
==>.  Previous values
for the same field are retained.

As for the header() method, the field name ($f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11868	11966	
==>.  Previous values
for the same field are retained.

As for the header() method, the field name ($f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18018	18125	
==>_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18018	18125	
==>_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18018	18125	
==>_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6590	6679	
==>_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6590	6679	
==>_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6590	6679	
==>_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6538	6642	
==>$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6538	6642	
==>$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6538	6642	
==>$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4682	4815	
==>y $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4682	4815	
==>y $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1727	1852	
==>t;
    for @array.keys -> $k {
	push(@ret, @array[$k] ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2106	2209	
==>'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($self->_stages) {
	my $result = $self <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1494	1589	
==>ewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1494	1589	
==>ewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

= <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1222	1361	
==>escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1222	1361	
==>escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	429	534	
==>gged with
#     #SourceCharacter but not ...
#     But <SourceCharacter> isnt called for all characters an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13156	13314	
==>cher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # cons <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13156	13314	
==>cher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # cons <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13156	13314	
==>cher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1614	1772	
==>->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1614	1772	
==>->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1614	1772	
==>->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3022	3176	
==>de<Junction>),
                        Tree.new(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8153	8286	
==>nue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8153	8286	
==>nue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16382	16495	
==>n
    }
    multi sub round_gen(Num $n, Code $corner) returns Int is primitive is safe {
        (int($n) == $n) ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11249	11346	
==>ot only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11249	11346	
==>ot only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11249	11346	
==>ot only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important that submeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9626	9751	
==>ain::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9626	9751	
==>ain::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9626	9751	
==>ain::" .
      substr($str, 1);
  }

  # Finally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8902	9032	
==>_/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3314	3427	
==>tion ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3314	3427	
==>tion ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @in <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	616	711	
==>s_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) re <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	674	769	
==>s_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24025	24164	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24304	24443	
==>ock->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4716	4914	
==>arse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18001	18162	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18280	18441	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2758	2877	
==>ile) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2758	2877	
==>ile) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2758	2877	
==>ile) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2758	2858	
==>wd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2758	2858	
==>wd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2758	2858	
==>wd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3774	3931	
==>ected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age + <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3774	3931	
==>ected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age + <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12398	12518	
==>' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12398	12518	
==>' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12398	12518	
==>' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaqu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8277	8431	
==>RN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8277	8431	
==>RN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8470	8585	
==>ROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8470	8585	
==>ROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8470	8585	
==>ROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1066	1169	
==>mber(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1066	1169	
==>mber(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1066	1169	
==>mber(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Number(a) < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1010	1113	
==>too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using trai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1010	1113	
==>too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using trai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1010	1113	
==>too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using trai <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3913	4007	
==>iate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `ne <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3913	4007	
==>iate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28065	28262	
==>ue::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28065	28262	
==>ue::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28065	28262	
==>ue::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23472	23568	
==>g a handle that might parse flags, because you do not
want to accidentally affect the previous sc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1149	1239	
==>xt { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1149	1239	
==>xt { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8103	8248	
==>_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8103	8248	
==>_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16554	16681	
==>,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16554	16681	
==>,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16554	16681	
==>,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1460	1584	
==>s "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1460	1584	
==>s "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1460	1584	
==>s "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4986	5121	
==>end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4986	5121	
==>end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10397	10525	
==>y $e = shift; 
            $e->get("&dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = join "" = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8107	8468	
==>ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=enc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8107	8468	
==>ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=enc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7841	7949	
==>ist ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... got the right method list (resolved)');
    
ok($Foo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4990	5110	
==>first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4990	5110	
==>first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4990	5110	
==>first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9627	9744	
==>$@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9627	9744	
==>$@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9627	9744	
==>$@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1282	1412	
==>stination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) {
    # We a <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6894	6996	
==>$closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6894	6996	
==>$closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13493	13618	
==>zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13493	13618	
==>zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13493	13618	
==>zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5288	5463	
==>less {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5288	5463	
==>less {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5288	5463	
==>less {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	248	400	
==>__PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $prog = shift;

    my $c = $self->compile($prog);

    $self->execute($c);
}

sub i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1115	1236	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1320	1441	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1381	1502	
==>AD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7299	7406	
==>y || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7299	7406	
==>y || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7299	7406	
==>y || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8324	8437	
==>event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8324	8437	
==>event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1706	1801	
==>, an alternate engine is invoked.

Currently, only the I<PCRE> flavor is supported.

=head1 CAVE <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15327	15427	
==>rce_object(anyof_class => word => $neg, \$how);
  });

  # xdigit POSIX class
  $self->add_handler('P <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3077	3176	
==>, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time) <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3077	3176	
==>, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4132	4303	
==>( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_con <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4132	4303	
==>( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	596	705	
==>valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	596	705	
==>valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	596	705	
==>valid attribute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16131	16233	
==>return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16131	16233	
==>return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16131	16233	
==>return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::In <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4926	5103	
==>fix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { op1 = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	801	942	
==>'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	801	942	
==>'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1735	1846	
==>(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1735	1846	
==>(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1735	1846	
==>(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3379	3478	
==>compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3379	3478	
==>compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3459	3558	
==>compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	135	240	
==>pr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	135	240	
==>pr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	135	240	
==>pr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10815	10930	
==>now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10815	10930	
==>now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10815	10930	
==>now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2928	3025	
==>erl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2928	3025	
==>erl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2928	3025	
==>erl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11984	12103	
==>lar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11984	12103	
==>lar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11984	12103	
==>lar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6151	6259	
==>tr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14591	14698	
==>class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n== <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14591	14698	
==>class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n== <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7021	7122	
==>ata::Dumper;


# The unification of the various types depends on their data...
# this is why this code <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6150	6247	
==>aders are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6150	6247	
==>aders are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	71	167	
==>tant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	71	167	
==>tant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	71	167	
==>tant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18105	18200	
==>me> you've
specified in the constructor. If the nickname is already used, this module
will try t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18105	18200	
==>me> you've
specified in the constructor. If the nickname is already used, this module
will try t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1510	1598	
==>::operator::nary: layout($$) = { join(" ", $.name, layout($.param)) }
type::operator::nar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14100	14220	
==>ute_list() -> $attr {
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6392	6493	
==>) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6392	6493	
==>) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4156	4259	
==>new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4156	4259	
==>new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4156	4259	
==>new_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$metho <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1021	1113	
==>config->_alternatives );
}

=head2 $file = $inst->registered_alternatives_file

=cut

sub reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	237	332	
==>terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	237	332	
==>terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	237	332	
==>terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24765	24877	
==>tive> <Term>
}
rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Asserti <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3024	3121	
==>ess of the client, if available.

=back

In addition, the following request headers are set on the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3024	3121	
==>ess of the client, if available.

=back

In addition, the following request headers are set on the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6513	6610	
==>n Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6513	6610	
==>n Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6513	6610	
==>n Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4063	4192	
==>lf->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jspa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4063	4192	
==>lf->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jspa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4063	4192	
==>lf->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jspa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3939	4084	
==>manpages to $new_alt->{package}...\n";
        for ( qx[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5762	5883	
==>ter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        w <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5762	5883	
==>ter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        w <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1438	1563	
==>tory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1438	1563	
==>tory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, St <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8448	8558	
==>calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object represent <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8448	8558	
==>calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object represent <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30068	30173	
==>minated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation::Example's h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1563	1663	
==>ribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1563	1663	
==>ribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1563	1663	
==>ribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attribute($meta_obj => ' <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	661	781	
==>m") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_version($file)) if -f $file;
    }

    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18590	18704	
==>leop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18869	18983	
==>leop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	154	258	
==>ed to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	154	258	
==>ed to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(? <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19377	19475	
==>0)
{
    Pugs::Internals::exit($status);
}


 multi Control::Basic::nothing ()


 multi Control::Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3158	3263	
==>tinued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3158	3263	
==>tinued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3158	3263	
==>tinued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2635	2735	
==>lf:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2635	2735	
==>lf:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2635	2735	
==>lf:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4691	4791	
==>:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4691	4791	
==>:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4691	4791	
==>:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Package->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3258	3392	
==>elf.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3258	3392	
==>elf.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3258	3392	
==>elf.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } el <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14906	15069	
==>eparate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14900	15063	
==>eparate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5521	5697	
==>ue' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5521	5697	
==>ue' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5521	5697	
==>ue' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	38	153	
==>-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	38	153	
==>-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	38	153	
==>-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7023	7189	
==>y, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7023	7189	
==>y, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7023	7189	
==>y, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	213	318	
==>d, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	213	318	
==>d, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	213	318	
==>d, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5155	5254	
==>\@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5155	5254	
==>\@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5155	5254	
==>\@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4949	5072	
==>my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4949	5072	
==>my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5539	5662	
==>my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$var->[$_]) for 0..$#{$var};
	    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6821	6953	
==>) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6821	6953	
==>) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6821	6953	
==>) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2547	2683	
==>ES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flush <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2547	2683	
==>ES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flush <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21916	22013	
==>foreach my $script (keys %$failedtests) {
        my $namelen = length $failedtests->{$script}->{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7683	7862	
==>tem => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7683	7862	
==>tem => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7683	7862	
==>tem => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicin <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3285	3501	
==>pe {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @a <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3285	3501	
==>pe {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @a <==
3	/Users/nnunley/pugs/util/version_h.pl	2120	2216	
==>int OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $revision\n";
  clos <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19469	19583	
==>al {
    my($p6,$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5371	5471	
==>sif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5371	5471	
==>sif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $de <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6852	6980	
==>us_w( file => '/path/to/file' );

Sets the +w bit for the file.

Returns true on success, false on failure.

=cut

sub _mode_plus <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9716	9816	
==>d() returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9716	9816	
==>d() returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	204	327	
==>>new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	204	327	
==>>new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	204	327	
==>>new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	603	767	
==>py_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	603	767	
==>py_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	603	767	
==>py_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	962	1089	
==>unc = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	962	1089	
==>unc = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	962	1089	
==>unc = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14752	14857	
==>(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14752	14857	
==>(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14752	14857	
==>(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3897	3997	
==>e following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3897	3997	
==>e following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3897	3997	
==>e following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1642	1783	
==>n match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::deb <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1642	1783	
==>n match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::deb <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8042	8129	
==>er_spec_pos([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([m|L])  -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1732	1848	
==>ty, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1732	1848	
==>ty, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1732	1848	
==>ty, $body);
    $::{'*'}->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1680	1782	
==>method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1680	1782	
==>method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1680	1782	
==>method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7226	7323	
==>@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7226	7323	
==>@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7226	7323	
==>@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4148	4299	
==>not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4148	4299	
==>not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #retur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4037	4167	
==>ed $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up yet for failing back into the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2930	3046	
==>nfix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2930	3046	
==>nfix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2930	3046	
==>nfix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1712	1845	
==>to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1712	1845	
==>to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1712	1845	
==>to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2778	2902	
==>al) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2778	2902	
==>al) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2778	2902	
==>al) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $ <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	731	866	
==>ot' user.)\n"
    unless -w $Config{sitelib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir( <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3072	3173	
==>!~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about l <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3072	3173	
==>!~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4541	4693	
==>my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4541	4693	
==>my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4541	4693	
==>my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11389	11536	
==>art of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11389	11536	
==>art of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - p <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1774	1894	
==>"Array", #  └── "" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)),
        (m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18363	18458	
==>};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18363	18458	
==>};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18363	18458	
==>};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1817	1923	
==>hdir $pwd;
    }
    print "*** Finished building dependencies.\n\n";

    $run_setup = sub { system($setup <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1193	1287	
==>head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1193	1287	
==>head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3140	3283	
==>ibute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3140	3283	
==>ibute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3140	3283	
==>ibute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2629	2739	
==>eof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2629	2739	
==>eof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2629	2739	
==>eof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original arra <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1400	1520	
==>bms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1400	1520	
==>bms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	112	212	
==>:Bit;
use Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use warnings;

use Car <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6079	6182	
==>::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6079	6182	
==>::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1894	2000	
==>) parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and bindin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1894	2000	
==>) parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and bindin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1894	2000	
==>) parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and bindin <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9693	9800	
==>now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.par <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9693	9800	
==>now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	354	587	
==>tion.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	354	587	
==>tion.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	354	587	
==>tion.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16669	16776	
==>me ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16669	16776	
==>me ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16669	16776	
==>me ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	257	377	
==>l
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	257	377	
==>l
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	257	377	
==>l
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3002	3129	
==>$step;
        } else {
            print STDERR "op reduce\n" if $debug;
          my $var = [@{$Z::oop{$id}{'var'}}]; local $Z <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5774	5869	
==>annels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JO <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5774	5869	
==>annels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14855	14951	
==>this module.  Some
of them may be absorbed into the core functionality of F<Regexp::Parser>
in th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4745	4836	
==>binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4967	5058	
==>binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4400	4532	
==>_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4400	4532	
==>_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4400	4532	
==>_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
sub int           { $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7431	7538	
==>nternals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7431	7538	
==>nternals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7431	7538	
==>nternals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6049	6145	
==>ock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6049	6145	
==>ock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2948	3044	
==>ock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2832	2949	
==>return Bool::true;
        }
    }
    return Bool::false;
}

method no_names_exist of Bool (Relation::AttrName *@attr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5590	5693	
==>can also be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5590	5693	
==>can also be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8540	8635	
==>ugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8540	8635	
==>ugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8540	8635	
==>ugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7334	7439	
==>in().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub ge <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7334	7439	
==>in().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub ge <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7334	7439	
==>in().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5799	5906	
==>(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5799	5906	
==>(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5799	5906	
==>(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7743	7853	
==>\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7743	7853	
==>\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7743	7853	
==>\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::ad <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	483	618	
==>s = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$di <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	483	618	
==>s = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38910	39004	
==>:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequences

If you are creating a new <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	614	724	
==>imelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.auto <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	614	724	
==>imelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.auto <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	572	688	
==>(substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..400 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	669	785	
==>(substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..400 <==
3	/Users/nnunley/pugs/util/config_h.pl	910	1006	
==>if you have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|mingw|msys|cygwin/i) {
    pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3095	3210	
==>>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	43	151	
==>e base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class::Inspector ();

use Blondie::ADTs;

o <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2152	2259	
==>IR} = '$(INST_ARCHLIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self- <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4012	4110	
==>uper *@args;
    }
}

class Class::Events::Notification {
    has Class::Events::Subscription $.sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34627	34724	
==>other> is a subset of the
heading of the invocant Relation, and returns a new Relation that has th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39177	39274	
==>other> is a subset of the
heading of the invocant Relation, and returns a new Relation that has th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6851	6970	
==>PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6851	6970	
==>PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6851	6970	
==>PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5068	5191	
==>t }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5068	5191	
==>t }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5068	5191	
==>t }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	350	458	
==>/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	350	458	
==>/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	350	458	
==>/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	54	156	
==>ur %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	54	156	
==>ur %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	54	156	
==>ur %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5313	5439	
==>umify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5313	5439	
==>umify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5313	5439	
==>umify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => $start, end = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5558	5830	
==>q("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5558	5830	
==>q("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Pa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	908	1033	
==>p { Blondie::TypeSafe::Type::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2263	2370	
==>Nodes->can($1)){
		return $1;
	} else {
		return $class . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31736	31832	
==>r a user interface that the
current user is fluent in (and prefers) language A but also understan <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31736	31832	
==>r a user interface that the
current user is fluent in (and prefers) language A but also understan <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37870	37960	
==>en module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37870	37960	
==>en module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4620	4800	
==>state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4620	4800	
==>state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper( <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3030	3189	
==>ion>),
                        Tree.new(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree.new(:node<Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2621	2721	
==>||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2621	2721	
==>||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2621	2721	
==>||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	877	989	
==>key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	877	989	
==>key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	877	989	
==>key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3789	3919	
==>V){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die "Enter a one-liner";
    }
    elsif($arg eq '-d'){
        $DEBUG = 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18746	18858	
==>ta}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $tru <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20104	20216	
==>ta}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $tru <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1587	1698	
==>'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LV <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4682	4792	
==>'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4682	4792	
==>'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LV <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9694	9790	
==>?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9694	9790	
==>?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3596	3729	
==>mes of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.dif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7073	7206	
==>mes of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.dif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6030	6163	
==>mes of this"
            ~ " relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.dif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34166	34357	
==>st') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34166	34357	
==>st') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34166	34357	
==>st') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1385	1481	
==>/ IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1385	1481	
==>/ IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1385	1481	
==>/ IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludep <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4085	4200	
==>capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4278	4393	
==>capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1050	1143	
==>eered implicit abstraction kludge would be
# unsustainable, and unsuitable for anything but th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6105	6261	
==>pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6105	6261	
==>pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6105	6261	
==>pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36511	36608	
==>ombined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41060	41157	
==>ombined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40674	40771	
==>ombined is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1478	1571	
==>appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1478	1571	
==>appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1478	1571	
==>appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHe <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1192	1307	
==>utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1192	1307	
==>utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11933	12043	
==>xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11933	12043	
==>xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11933	12043	
==>xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,* <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3236	3362	
==>ader, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %ou <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3236	3362	
==>ader, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %ou <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	48	147	
==>guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($target - $f($guess)) / $fprime($g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2937	3050	
==>r its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2937	3050	
==>r its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2937	3050	
==>r its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	871	994	
==>ttribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	871	994	
==>ttribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	871	994	
==>ttribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3554	3663	
==>n't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3554	3663	
==>n't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3554	3663	
==>n't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh>;
  return <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	65	179	
==>hr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkettung ist mögl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16026	16124	
==>to some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl ha <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16026	16124	
==>to some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6837	6937	
==>que_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6837	6937	
==>que_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6837	6937	
==>que_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:vers <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2718	2833	
==>e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2718	2833	
==>e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22673	22770	
==>this module doesn't have bugs.  I don't know of any in
this current version, because I've tried to <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6493	6588	
==>xt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6493	6588	
==>xt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13268	13444	
==>ms{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13268	13444	
==>ms{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13268	13444	
==>ms{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle <==
3	/Users/nnunley/pugs/t/packages/Test.pm	370	479	
==>kage {
        sub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params($arg1, $arg2) is export { "[$arg1] [$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8537	8639	
==>ze($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8537	8639	
==>ze($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	493	611	
==>types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	493	611	
==>types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	493	611	
==>types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if no <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	211	334	
==>PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	97	214	
==>PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	97	214	
==>PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2756	2886	
==>coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2756	2886	
==>coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2756	2886	
==>coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9476	9569	
==>(symbol $label)) returns nil
    ((($self: get_attr (symbol new (%:methods))) delete ($label)) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8374	8461	
==>oks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run" <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8432	8519	
==>oks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1081	1207	
==>et a str like ref
sub to_bit { bit->new(1)            } # we are always true

# comparitor

sub _compare {
    my ($left, $righ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8728	8829	
==>r>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event h <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8728	8829	
==>r>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5160	5270	
==>( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5160	5270	
==>( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30605	30704	
==>ead1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know. What we know for
sure is, that it w <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24555	24655	
==>nged to SV* for bminstr()--law]

Confined to regcomp/regexec.

 * regmlen      length of regmust stri <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11643	11736	
==>calar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $self->reduce($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	63	149	
==>------------------------------------------------------------
## Mini Meta-Model with ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3925	4025	
==>rrently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3925	4025	
==>rrently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3925	4025	
==>rrently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13051	13194	
==>nt, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13051	13194	
==>nt, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13051	13194	
==>nt, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class h <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	426	543	
==>>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # fr <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	426	543	
==>>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # fr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	261	364	
==>has $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2178	2287	
==>'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2178	2287	
==>'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2178	2287	
==>'} = $::Package->new('$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	749	996	
==>command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) ret <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	749	996	
==>command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4128	4224	
==>infix:<+>' into the thunk that does
addition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') > <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8756	8903	
==>ems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement z <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8756	8903	
==>ems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement z <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5837	5926	
==>les => $total_files);
$template->param(links => $total_links);
print $fh $template->output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17031	17207	
==>Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17031	17207	
==>Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17031	17207	
==>Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17386	17515	
==>x} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13807	13936	
==>x} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6139	6261	
==>e pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        push @pkgs, -package => 'Win32' unless $ghc_vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1643	1767	
==>y",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1643	1767	
==>y",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1643	1767	
==>y",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5332	5439	
==>ngle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5332	5439	
==>ngle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5332	5439	
==>ngle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	818	911	
==>nfix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	818	911	
==>nfix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	818	911	
==>nfix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2729	2861	
==>(ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2729	2861	
==>(ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2729	2861	
==>(ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2097	2275	
==>tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1867	2040	
==>tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1867	2040	
==>tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2338	2450	
==>tml =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{ru <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	554	652	
==>teTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# mak <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	554	652	
==>teTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5811	5970	
==>] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5811	5970	
==>] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5811	5970	
==>] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2053	2174	
==>def()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2053	2174	
==>def()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2053	2174	
==>def()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11192	11347	
==>StrWhiteSpaceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule St <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	582	674	
==>source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	582	674	
==>source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Gr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2784	2892	
==>lse {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2842	2950	
==>lse {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10555	10641	
==>://search.cpan.org/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1070	1161	
==>nternals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1070	1161	
==>nternals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1070	1161	
==>nternals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	920	1023	
==>);
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1172	1275	
==>);
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3662	3777	
==>$subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3662	3777	
==>$subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3662	3777	
==>$subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6503	6612	
==>we want to preserve ordering anyway and it's probably okay to keep a few
# zombies around for a relatively sho <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12381	12478	
==>- `closest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12381	12478	
==>- `closest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3196	3323	
==>/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1206	1320	
==>$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{la <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1206	1320	
==>$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{la <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3694	3795	
==>pass.  C<$description> is the optional
description of the test.  This is the easiest way to match a pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3694	3795	
==>pass.  C<$description> is the optional
description of the test.  This is the easiest way to match a pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3774	3875	
==>pass.  C<$description> is the optional
description of the test.  This is the easiest way to match a pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5023	5130	
==>args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5023	5130	
==>args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5023	5130	
==>args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2847	2976	
==>$self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2847	2976	
==>$self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3121	3234	
==>tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0, "PANI <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	18025	18123	
==>Pkg_re_tests::test(sub{my($mods,$re)=@_;
    $re = "(?$mods)(?:$re)" if $mods;
    my $r = compile( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	403	498	
==>ose();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	403	498	
==>ose();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20070	20236	
==>}) {
            $bonusmsg .= " and $tot->{sub_skipped} subtest"
                         . ($tot->{sub_skipped} != 1 ? 's' : '');
        }
        $bonusmsg .= ' ski <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6888	6988	
==>= $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6888	6988	
==>= $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	144	262	
==>{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	108	225	
==>{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	196	313	
==>{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2096	2254	
==>:node<Socket>),
                        Tree.new(:node<Thread>),
                        Tree.new(:node<Code>).add_children(
                            Tree.n <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8983	9084	
==>a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8983	9084	
==>a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2265	2368	
==>erface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2265	2368	
==>erface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inte <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1869	1969	
==>UBDIR_OF_META   ];
$config{'_alternatives'}    = [ alternatives    => SUBDIR_OF_META   ];
$config{'_a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5818	5923	
==>';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMeth <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5818	5923	
==>';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMeth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2717	2822	
==>';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7942	8052	
==>(@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7942	8052	
==>(@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7942	8052	
==>(@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19154	19265	
==>ng group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15575	15686	
==>ng group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7474	7581	
==>xinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->add_op( 
    name = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3192	3284	
==>h zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3192	3284	
==>h zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23017	23199	
==>-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23017	23199	
==>-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23017	23199	
==>-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5302	5408	
==>$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5302	5408	
==>$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5302	5408	
==>$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my $_resolve = sub {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1226	1322	
==>sed by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely def <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1226	1322	
==>sed by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2694	2794	
==>Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2694	2794	
==>Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2694	2794	
==>Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1866	1978	
==>""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1866	1978	
==>""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1866	1978	
==>""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7792	7933	
==>mp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7792	7933	
==>mp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7792	7933	
==>mp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11870	12022	
==>port returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # X <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2288	2426	
==>port returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # X <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2288	2426	
==>port returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # X <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28771	28876	
==>"MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcom <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28771	28876	
==>"MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcom <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	350	456	
==>his version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %pa <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	350	456	
==>his version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14873	14977	
==>ive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14873	14977	
==>ive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14873	14977	
==>ive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9422	9530	
==>/accessor

    # -----------------------------------------------      
    # this collects a unique list of r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9422	9530	
==>/accessor

    # -----------------------------------------------      
    # this collects a unique list of r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9422	9530	
==>/accessor

    # -----------------------------------------------      
    # this collects a unique list of r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1013	1122	
==>subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1013	1122	
==>subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1013	1122	
==>subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Numbe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5601	5696	
==>::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5601	5696	
==>::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7798	7893	
==>::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7627	7752	
==>n $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3085	3184	
==>*@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@ar <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3085	3184	
==>*@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36629	36734	
==>l>, I<groupp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp

Types: groupp1, groupp2 .. g <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22144	22261	
==>e_elem_list = fun(
	param => "x",
	body => comb(
		fun => comb(
			fun => ide("cons"),
			param => ide("x"),
		),
		pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2802	2892	
==>::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2802	2892	
==>::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1462	1585	
==>ed with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1462	1585	
==>ed with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1462	1585	
==>ed with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23942	24041	
==>o,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23942	24041	
==>o,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23942	24041	
==>o,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8674	8771	
==>d when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=h <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8674	8771	
==>d when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=h <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1211	1305	
==>ue;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::Strin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4129	4253	
==>t ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 2, '... $Object is the second id') <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20537	20634	
==>of third party Engine
modules that become available over time.  One plan which I favor is that
the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20537	20634	
==>of third party Engine
modules that become available over time.  One plan which I favor is that
the <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	429	526	
==>st::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	429	526	
==>st::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	985	1082	
==>st::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9758	9891	
==>ed_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9758	9891	
==>ed_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9758	9891	
==>ed_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22583	22679	
==>rm of several
roles, for a Relation data type that corresponds to the "relation" of logic
and mat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27146	27240	
==>ll_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a gen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31698	31792	
==>ll_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a gen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1940	2037	
==>eturns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1940	2037	
==>eturns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!ms <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1427	1520	
==>r "third-party/$module";
        system("../../Setup$Config{_exe}", 'configure', '--user', '-- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2221	2337	
==>e('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2221	2337	
==>e('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2221	2337	
==>e('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10162	10277	
==>_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10162	10277	
==>_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10162	10277	
==>_file {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3896	4013	
==>re id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3896	4013	
==>re id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3896	4013	
==>re id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "li <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16841	16935	
==>ctice one would
normally just write some components of their application in Rosetta D (as
eithe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16841	16935	
==>ctice one would
normally just write some components of their application in Rosetta D (as
eithe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	618	711	
==>{ $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->new(0) }

sub greater_than { $_[0]->_compa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3530	3664	
==>, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3530	3664	
==>, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3530	3664	
==>, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6651	6755	
==>w( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6651	6755	
==>w( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21268	21365	
==>this would come up with keys which are unique across all Perl packages
(perhaps the key name can s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21268	21365	
==>this would come up with keys which are unique across all Perl packages
(perhaps the key name can s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1296	1406	
==>l operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1296	1406	
==>l operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1296	1406	
==>l operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4534	4665	
==>>elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4534	4665	
==>>elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4534	4665	
==>>elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19573	19670	
==>a Relation is like a Set that exists
over N dimensions rather than one.  The Relation operators ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24125	24222	
==>a Relation is like a Set that exists
over N dimensions rather than one.  The Relation operators ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1386	1498	
==>ebug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1386	1498	
==>ebug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1386	1498	
==>ebug = $debug; 
local $main::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5199	5301	
==>I SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB ch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5199	5301	
==>I SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB ch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5199	5301	
==>I SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB ch <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1145	1240	
==>by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Ran <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1145	1240	
==>by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Ran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20615	20734	
==>$value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20615	20734	
==>$value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20615	20734	
==>$value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21723	21837	
==>hod
    .param pmc pad
    .local int isarray, iscapture
    .local string cname
    .local pmc reps

    iscapture <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10940	11042	
==>NLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11369	11471	
==>NLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1580	1695	
==>ulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1991	2084	
==>);
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1991	2084	
==>);
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1991	2084	
==>);
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->nam <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4816	4910	
==>ly qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny obj <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4816	4910	
==>ly qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1007	1113	
==>deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1007	1113	
==>deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1007	1113	
==>deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5720	5831	
==>ngle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5720	5831	
==>ngle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5720	5831	
==>ngle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2653	2753	
==>if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2653	2753	
==>if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2653	2753	
==>if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  ex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1539	1672	
==>string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1539	1672	
==>string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywor <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8219	8321	
==>!defined $x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(",",map{recurse($_)}@$x).' <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1499	1617	
==>};
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1499	1617	
==>};
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2953	3069	
==>};
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	699	809	
==>dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	699	809	
==>dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	699	809	
==>dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_at <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	322	428	
==>less $install_version =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12818	12912	
==>HTML entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 an <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12818	12912	
==>HTML entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8730	8844	
==>L::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8730	8844	
==>L::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8730	8844	
==>L::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thu <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3427	3526	
==>P\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3427	3526	
==>P\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41532	41621	
==>m C<join (Relation::Example *@others) returns Relation::Example>

This multi-method is the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6270	6372	
==>/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6270	6372	
==>/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6270	6372	
==>/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13592	13722	
==>key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13592	13722	
==>key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13592	13722	
==>key->isa( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	225	323	
==>(&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	225	323	
==>(&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	225	323	
==>(&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are called a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2041	2150	
==>[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub ca <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2041	2150	
==>[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5058	5174	
==>single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar:: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1948	2046	
==>( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1948	2046	
==>( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5994	6124	
==>ute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5994	6124	
==>ute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5994	6124	
==>ute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5008	5225	
==>on_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5008	5225	
==>on_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5008	5225	
==>on_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1584	1701	
==>)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1584	1701	
==>)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1584	1701	
==>)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9699	9848	
==>le( $script );
            1 while unlink $self->alternatives_dir->file( $script ); 
        }      
        
        ### see if there's any other pac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8048	8174	
==>ime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8036	8162	
==>ime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2842	2939	
==>nfix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2842	2939	
==>nfix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2842	2939	
==>nfix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3510	3632	
==>= @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3510	3632	
==>= @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3510	3632	
==>= @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10232	10404	
==>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6573	6745	
==>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7422	7594	
==>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1641	1744	
==>t->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1641	1744	
==>t->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1641	1744	
==>t->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	90	334	
==>ort symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant va <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	90	334	
==>ort symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2508	2620	
==>e;
    $self->abstract_from($file) unless $self->abstract;
}

sub provides {
    my $self     = shift;
    my $pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2187	2311	
==>sage ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	184	296	
==>sage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	184	296	
==>sage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1655	1769	
==>p, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1655	1769	
==>p, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1655	1769	
==>p, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1812	1925	
==>ated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1812	1925	
==>ated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1812	1925	
==>ated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4604	4708	
==>isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4604	4708	
==>isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4604	4708	
==>isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5378	5529	
==>next => undef
    } => $class;
}

sub create {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to se <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12104	12201	
==>hat is right before the parameter.

- `current( $x )`

Returns the parameter value if the paramete <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12104	12201	
==>hat is right before the parameter.

- `current( $x )`

Returns the parameter value if the paramete <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1908	2036	
==>].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersec <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1908	2036	
==>].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32716	32810	
==>tion contains all the tuples of the source Relations, including
one copy each of any duplicated <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37266	37360	
==>tion contains all the tuples of the source Relations, including
one copy each of any duplicated <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20193	20286	
==>:<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1032	1140	
==>ad->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1032	1140	
==>ad->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1032	1140	
==>ad->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3288	3404	
==>N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3288	3404	
==>N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3288	3404	
==>N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	551	706	
==>y_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	837	980	
==>y_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	522	716	
==>n, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    pu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3726	3815	
==>le <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Da <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3726	3815	
==>le <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	643	753	
==>ance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	643	753	
==>ance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	643	753	
==>ance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2408	2522	
==>ilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2408	2522	
==>ilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2408	2522	
==>ilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3510	3653	
==>rn 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3498	3641	
==>rn 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $qua <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	917	1031	
==>reduce($ast);
}

sub reduce_stub {
    my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8955	9047	
==>::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8955	9047	
==>::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8955	9047	
==>::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5663	5759	
==>%users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, esp <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5663	5759	
==>%users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, esp <==
3	/Users/nnunley/pugs/util/package-osx.pl	11528	11642	
==>lit /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    print RE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4158	4256	
==>-------------------------------------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## - <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	410	503	
==>uperficial success proved
# straightforward, a more robust solution would be far more difficul <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	686	896	
==>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_docu <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	686	896	
==>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_docu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	239	357	
==>T )
                or die "No repository created";

$REPO->create   or die "Creation failed";

for my $jib ( values %P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11096	11252	
==>ubdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11096	11252	
==>ubdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11096	11252	
==>ubdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1712	1812	
==>C<Env> is a map - it contains symbol to value mappings.

=back

=head2 Misc

=over 4

=item Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21336	21425	
==>, -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {... <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21336	21425	
==>, -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {... <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6466	6562	
==>n(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@ar <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6466	6562	
==>n(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@ar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5915	5999	
==>],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10790	11001	
==>})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10790	11001	
==>})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10790	11001	
==>})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6721	6841	
==>able' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6721	6841	
==>able' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6721	6841	
==>able' => sub { _('$:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            ' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15887	15992	
==>_out>

  my $is_bail_out = $strap->_is_bail_out($line, \$reason);

Checks if the line is a "Bail out!".  P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4260	4361	
==>OP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4260	4361	
==>OP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4260	4361	
==>OP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	686	798	
==>l6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	955	1059	
==>.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub * <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	955	1059	
==>.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub * <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5056	5200	
==>e == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $arr <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5056	5200	
==>e == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1934	2034	
==>PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a inst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1934	2034	
==>PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a inst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1934	2034	
==>PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a inst <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18216	18714	
==>ing(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=po <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	352	454	
==>/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $ma <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	352	454	
==>/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $ma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1268	1358	
==>elf: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) } <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1268	1358	
==>elf: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) } <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5888	5997	
==>tate') {
	warn "state PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($varlist) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	829	923	
==>mpler, ast.  Regexp::Parser's
# Perl6::Rule::Parser does NOT look like it's mature enough to be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	723	826	
==>Sub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	723	826	
==>Sub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	723	826	
==>Sub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code obje <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6656	6797	
==>tch...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6441	6573	
==>tch...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    re <==
3	/Users/nnunley/pugs/util/testgraph.pl	652	744	
==>ix->new($tap, Dump($data));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $out = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2172	2406	
==>}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2172	2406	
==>}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2172	2406	
==>}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12514	12620	
==>)) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1346	1447	
==>Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1346	1447	
==>Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14028	14129	
==>)

Can't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=item RPe_NES <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20740	20838	
==>usual way that Relation indicates a failure is to throw an exception;
most often this is due to inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25292	25390	
==>usual way that Relation indicates a failure is to throw an exception;
most often this is due to inv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2817	2922	
==>e;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2817	2922	
==>e;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2817	2922	
==>e;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9795	9918	
==>lice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9795	9918	
==>lice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9795	9918	
==>lice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	975	1087	
==>> ... <'9'> changed to <[0..9]>
#   * "Foo but not x" is expressed as
#     <!before x> <Foo>
#   * "lookahead is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8586	8698	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8779	8891	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4641	4747	
==>ub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4641	4747	
==>ub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4641	4747	
==>ub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2338	2482	
==>|= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2338	2482	
==>|= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2338	2482	
==>|= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	389	541	
==>seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	389	541	
==>seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	389	541	
==>seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5411	5539	
==>ing which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5411	5539	
==>ing which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7608	7736	
==>ing which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2616	2746	
==>eturn;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	664	791	
==>f $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	664	791	
==>f $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	935	1059	
==>$match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	935	1059	
==>$match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	175	270	
==>lar | Perl::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1548	1652	
==>turn _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1548	1652	
==>turn _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1548	1652	
==>turn _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	579	683	
==>ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	349	453	
==>ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	349	453	
==>ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15295	15396	
==>UB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15295	15396	
==>UB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15295	15396	
==>UB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3722	3902	
==>$body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3722	3902	
==>$body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3722	3902	
==>$body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1789	1898	
==>n($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp(input => $g);
    $p=$p->Output(classname => 'Test' <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3244	3341	
==>-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$di <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3244	3341	
==>-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$di <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	893	994	
==>chObj );
  if ( (substr $target, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->position( $matchObj->fr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1443	1543	
==>infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1443	1543	
==>infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5692	5804	
==>>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the superc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5692	5804	
==>>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7889	8001	
==>>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method calls the superc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10533	10631	
==>multi method product (Relation $other!) returns Relation {

    die "The relation in $other has att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14010	14108	
==>multi method product (Relation $other!) returns Relation {

    die "The relation in $other has att <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2608	2742	
==>ther => '*',
    );
    __PACKAGE__->add_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        ot <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7120	7211	
==>els{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7120	7211	
==>els{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12086	12195	
==>$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12086	12195	
==>$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12086	12195	
==>$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1052	1150	
==>ve()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1052	1150	
==>ve()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1052	1150	
==>ve()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6088	6192	
==>r = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "intern <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5878	5979	
==>r = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4836	4940	
==>e::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a te <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4836	4940	
==>e::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a te <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4836	4940	
==>e::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	22	128	
==>ngeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	22	128	
==>ngeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	22	128	
==>ngeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11442	11575	
==>my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11442	11575	
==>my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11442	11575	
==>my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2240	2360	
==>();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2240	2360	
==>();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22710	22806	
==>r than one.  The Relation::Example operators are somewhat of
a superset of the Set operators.

Li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4135	4270	
==>assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        as <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	409	506	
==>ND__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This mo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	409	506	
==>ND__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11084	11233	
==>bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11084	11233	
==>bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11084	11233	
==>bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3322	3451	
==>= $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3322	3451	
==>= $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4284	4403	
==>my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), "]";
  }

  sub raw {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25721	25823	
==>ge; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25721	25823	
==>ge; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1324	1467	
==>ash_fetchElem($idx);
                unless ($c){
                    $c = PIL::Run::Container::Scalar->new;
                    $self->hash_sto <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6485	6586	
==>rs' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6485	6586	
==>rs' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4729	4932	
==>ch");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4729	4932	
==>ch");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cooki <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5361	5495	
==>6),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5361	5495	
==>6),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6326	6509	
==>lar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6326	6509	
==>lar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6326	6509	
==>lar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	524	632	
==>b {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	524	632	
==>b {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	524	632	
==>b {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5123	5239	
==>'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5123	5239	
==>'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2027	2143	
==>'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20830	20926	
==>s non-Unix Mac OS) handles
lots of other program resources as data files as well, making them eas <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20830	20926	
==>s non-Unix Mac OS) handles
lots of other program resources as data files as well, making them eas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33908	34000	
==>rray reference of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

Ender: I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6086	6270	
==>ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6086	6270	
==>ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6086	6270	
==>ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2540	2679	
==>$instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unloc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2540	2679	
==>$instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unloc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2540	2679	
==>$instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unloc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5068	5185	
==>};

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2870	2986	
==>}

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20494	20603	
==>E0,E0) :- flag_m(E0), !.
rm(eol,         [],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !. <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2933	3042	
==>low is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Fo <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2933	3042	
==>low is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4714	4839	
==>ay' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4714	4839	
==>ay' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4714	4839	
==>ay' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6776	6886	
==>WAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6834	6944	
==>WAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	932	1029	
==>::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::AttrName}
    of Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14106	14206	
==>fess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14106	14206	
==>fess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14106	14206	
==>fess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($::ARGS <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6031	6126	
==>type";
	my $pkg_rep  = "${pkg_root}::NodeRep$rep";
	my $pkg_node = "${pkg_root}::Node";
	$pkg_ty <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1321	1431	
==>sh @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args- <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	659	768	
==>sh @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7677	7801	
==>eral ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7677	7801	
==>eral ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13538	13631	
==>ic entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated nam <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13538	13631	
==>ic entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	896	1036	
==>ck_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	896	1036	
==>ck_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	896	1036	
==>ck_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the ins <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1094	1199	
==>$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1457	1564	
==>ional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1457	1564	
==>ional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1666	1773	
==>ional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3794	3893	
==>{
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3794	3893	
==>{
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3794	3893	
==>{
  die "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	712	831	
==>_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	712	831	
==>_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	712	831	
==>_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    if(uc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1169	1298	
==>ame eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1169	1298	
==>ame eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1169	1298	
==>ame eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11704	11821	
==>lf<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and proces <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11704	11821	
==>lf<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and proces <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4270	4377	
==>h} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author' <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4238	4346	
==>een
    The file referenced by --splashscreen will be displayed before booting.
  --lib6=$lib6
    --lib6 wil <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3033	3124	
==>ethod does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' dire <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5235	5326	
==>ethod does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' dire <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6259	6365	
==>x.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6259	6365	
==>x.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6259	6365	
==>x.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6933	7023	
==>($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6933	7023	
==>($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6933	7023	
==>($self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_priv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	575	678	
==>->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	575	678	
==>->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	575	678	
==>->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4313	4439	
==>script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4313	4439	
==>script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4313	4439	
==>script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1165	1344	
==>|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        retu <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1165	1344	
==>|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        retu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1383	1477	
==>, as attribute fetching is actually
just a shorthand for calling an accessor).

Run-time inheri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	938	1182	
==>Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-containe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	938	1182	
==>Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-containe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15379	15497	
==>_emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{ex <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	359	466	
==>gths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Previ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	359	466	
==>gths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Previ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6628	6762	
==>f;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->type;
    }
    else {
      join "", $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5575	5690	
==>ethod export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5575	5690	
==>ethod export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2917	3038	
==>lags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3057	3178	
==>lags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36998	37093	
==>ags

Types: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10256	10357	
==>te->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10256	10357	
==>te->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1620	1711	
==>elf, $start_index, $end_index) = @_;
    ((blessed($start_index) && $start_index->isa('num') <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	75	171	
==>base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	75	171	
==>base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1257	1359	
==>and {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1257	1359	
==>and {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1257	1359	
==>and {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	123	248	
==>ub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	123	248	
==>ub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	123	248	
==>ub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $sel <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1877	1985	
==>verse = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.compl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1877	1985	
==>verse = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.compl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5669	5766	
==>iles> (as C<runtests()>) but does it
quietly (no report).  $total is a hash ref summary of all the <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6629	6735	
==>ilder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6629	6735	
==>ilder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8826	8932	
==>ilder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1752	1874	
==>}      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1752	1874	
==>}      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1752	1874	
==>}      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (ke <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5530	5625	
==>ault), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5530	5625	
==>ault), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7054	7149	
==>ault), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	512	607	
==>put_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	512	607	
==>put_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15299	15392	
==>or you right there!)

=item Regexp::MinLength

Implements a min_length() method for all object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5997	6138	
==>emplates{"$op->{fixity}_$op->{assoc}"};
                    unless ( defined $t ) {
                        warn "can't find template for '$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4504	4600	
==>ns the I<result>
object; this is normally the entire match string, but may be arbitrary
objects r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4504	4600	
==>ns the I<result>
object; this is normally the entire match string, but may be arbitrary
objects r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	435	545	
==>ement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	435	545	
==>ement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	435	545	
==>ement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14287	14399	
==>onf = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct } @{ $self->availa <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1594	1692	
==>se Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plu <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1594	1692	
==>se Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plu <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2069	2167	
==>age: $0 [options]

$0 creates a very minimalistic Pugs Live CD.
It fetches kernel and GRUB from a p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13473	13582	
==>eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13473	13582	
==>eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13473	13582	
==>eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_macro {
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	4	111	
==>sr/bin/perl -w
use strict;


# this test script will compare the result of all the listed cookbook files
# t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3027	3119	
==>: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3027	3119	
==>: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3451	3561	
==>../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3451	3561	
==>../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3451	3561	
==>../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16092	16208	
==>PGE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3277	3370	
==>ere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3162	3251	
==>ere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2463	2601	
==>turn;
# 
#         ### copy these sources to a build dir
#         JIB::Utils->_copy( file => $tmpsrc, to => $builddir )
#             or e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20852	20956	
==>ion> <';'> #lookahead
}
rule IfStatement :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <Stat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3268	3365	
==>d $perl_version;
    return;
}

=pod

=head2 JIB::Utils->_version_to_number( version => $version ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21949	22054	
==>enFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21949	22054	
==>enFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21949	22054	
==>enFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1650	1749	
==>to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1650	1749	
==>to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1650	1749	
==>to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6591	6704	
==>y:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6591	6704	
==>y:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6591	6704	
==>y:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41042	41134	
==>tin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41042	41134	
==>tin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23394	23504	
==>xp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8509	8605	
==>ysis before using it in any 
sensitive application.>

B<I<The authors and copyright holders DO NO <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8509	8605	
==>ysis before using it in any 
sensitive application.>

B<I<The authors and copyright holders DO NO <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6475	6581	
==>if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method pr <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6475	6581	
==>if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method pr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19148	19247	
==>ti shift ($array) is builtin is primitive { die "Cannot 'shift' scalar"; };

multi pop (@array) is b <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27433	27529	
==>tructed.  If you want to
conceptually change an existing Message object, you must create a new
ob <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27433	27529	
==>tructed.  If you want to
conceptually change an existing Message object, you must create a new
ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10793	10898	
==>ckage Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10793	10898	
==>ckage Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10793	10898	
==>ckage Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	216	321	
==>print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @out <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	216	321	
==>print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @out <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11549	11640	
==>returns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. This <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11607	11698	
==>returns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2836	2950	
==>d $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2836	2950	
==>d $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2836	2950	
==>d $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5263	5362	
==>::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5263	5362	
==>::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5263	5362	
==>::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1141	1258	
==>ox(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1141	1258	
==>ox(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1141	1258	
==>ox(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method pos <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8340	8491	
==>l => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8340	8491	
==>l => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1443	1543	
==>river, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call a Match obj.
# J <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	132	248	
==>se Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => Thunk(
		Seq <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6458	6557	
==>tem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6458	6557	
==>tem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  ' <==
3	/Users/nnunley/pugs/util/package-osx.pl	5236	5342	
==>m
        /usr/local/man/man3/Perl6::Bible::S29.3pm
        /usr/local/man/man3/Perl6::Doc.3
        /usr/l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7754	7859	
==>$event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug " <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7754	7859	
==>$event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1551	1654	
==>s not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1551	1654	
==>s not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1551	1654	
==>s not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* E <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	729	875	
==>har eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $e <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	729	875	
==>har eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1960	2060	
==>wsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1960	2060	
==>wsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1960	2060	
==>wsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2956	3066	
==>ng_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) | <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2956	3066	
==>ng_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3036	3146	
==>ng_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) | <==
3	/Users/nnunley/pugs/util/package-osx.pl	11174	11294	
==>"Removing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	125	225	
==>ut I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	125	225	
==>ut I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34500	34606	
==>offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34500	34606	
==>offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34500	34606	
==>offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1027	1133	
==>ous sources
# and we need to now create these attributes in all the currently live instances
# of Class (wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1027	1133	
==>ous sources
# and we need to now create these attributes in all the currently live instances
# of Class (wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1027	1133	
==>ous sources
# and we need to now create these attributes in all the currently live instances
# of Class (wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3143	3251	
==>j;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3143	3251	
==>j;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3143	3251	
==>j;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4627	4729	
==>2js.pl [options] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4627	4729	
==>2js.pl [options] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4627	4729	
==>2js.pl [options] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verb <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1694	1798	
==>members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.memb <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1694	1798	
==>members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.memb <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7658	7754	
==>isa("Blondie::Param") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotation->new(
				t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7953	8104	
==>satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8417	8568	
==>satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26919	27028	
==>e used to see if a Relation::Example-doing object
can mutate.  Depending on the implementing class, it can def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12308	12412	
==>(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12308	12412	
==>(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12308	12412	
==>(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1243	1342	
==>);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1243	1342	
==>);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1243	1342	
==>);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.ref} a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	972	1087	
==>etamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	972	1087	
==>etamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	972	1087	
==>etamodel_base => try_files(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0] <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16820	16954	
==>tion:

  passing           true if the whole test is considered a pass 
                    (or skipped), false if its a failure

  exi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6276	6402	
==>> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6276	6402	
==>> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2045	2241	
==>o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2045	2241	
==>o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2045	2241	
==>o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	88	185	
==>ored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	88	185	
==>ored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	88	185	
==>ored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7697	7803	
==>'$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7697	7803	
==>'$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7697	7803	
==>'$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unb <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13571	13731	
==>asename($_);
    
        my $alt = $self->alternatives_dir->file( $script );
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8571	8692	
==>my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8571	8692	
==>my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5856	5958	
==>>prelen <0){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = savesvpv(pat);
    
    r->nparens = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	155	248	
==>parenthesized
group.  This is approximately the Match object that userland folks will
see, but <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	155	248	
==>parenthesized
group.  This is approximately the Match object that userland folks will
see, but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	389	561	
==>} ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	389	561	
==>} ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	389	561	
==>} ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	718	830	
==>ith duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	718	830	
==>ith duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	718	830	
==>ith duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22419	22586	
==>scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22419	22586	
==>scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22419	22586	
==>scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3789	3918	
==>exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitiali <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3789	3918	
==>exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitiali <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3115	3239	
==>}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load_extensions(
            "$sel <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6084	6191	
==>ESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[]() <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18438	18523	
==>ead2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18438	18523	
==>ead2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7443	7540	
==>else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}< <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2249	2346	
==>ching.  When their fast method fails, they fall back
on something more likely to work.

Further, t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7443	7540	
==>else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}< <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9419	9553	
==>pt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to imp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9419	9553	
==>pt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to imp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10034	10128	
==>::/;
    return "$_[1] ruleop::capture( '$_[0]', \\&{'$name'} )\n";
}
sub node::non_capturing_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8888	9034	
==>=> $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1044	1176	
==>=> $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    { <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1044	1176	
==>=> $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	570	665	
==>@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	570	665	
==>@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	570	665	
==>@self);
}

method JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5164	5260	
==>hen compiling (--link option not given), there has to be only one input file.
In linking mode, mu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5164	5260	
==>hen compiling (--link option not given), there has to be only one input file.
In linking mode, mu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5164	5260	
==>hen compiling (--link option not given), there has to be only one input file.
In linking mode, mu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6252	6378	
==>e};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6252	6378	
==>e};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4274	4383	
==>t2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
met <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11352	11452	
==>ectional pipe. Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Bool :$w) returns <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13667	13762	
==>ood Practice" order.

In scalar context return the number of distinct field names.

=item $h.sca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13667	13762	
==>ood Practice" order.

In scalar context return the number of distinct field names.

=item $h.sca <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6799	6914	
==>s_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    .return (mob)

  err <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7823	7925	
==>l = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7811	7913	
==>l = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	55	150	
==>/../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$::T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17397	17491	
==>velopers and users alike.

For some practical examples of Locale::KeyedText in use, see the /ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17397	17491	
==>velopers and users alike.

For some practical examples of Locale::KeyedText in use, see the /ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	481	684	
==>s')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	481	684	
==>s')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	481	684	
==>s')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6101	6209	
==>');

is($Object->id, 4, '... $Object is the second id');
is($Object->class, $Class, '... $Object class slot i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1617	1718	
==>dural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1617	1718	
==>dural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Ciph <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17009	17117	
==>}::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_objec <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11752	11847	
==>e', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11810	11905	
==>e', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9044	9174	
==>ot implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9044	9174	
==>ot implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37833	37948	
==>, $class;
    return $self;
  }

We've added a C<neg> attribute, and removed both C<type> and C<raw>.  We
will repla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	238	368	
==>INE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	238	368	
==>INE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	238	368	
==>INE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel d <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2624	2738	
==>e ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10346	10541	
==>rt =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        cele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10346	10541	
==>rt =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        cele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10346	10541	
==>rt =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        cele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17589	17697	
==>em => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17589	17697	
==>em => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17589	17697	
==>em => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1778	1900	
==>= $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  whil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1778	1900	
==>= $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  whil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1778	1900	
==>= $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  whil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4062	4155	
==>r::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4062	4155	
==>r::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5586	5679	
==>r::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8407	8529	
==>{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8407	8529	
==>{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8407	8529	
==>{array}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @id <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32059	32157	
==>tion that has the same heading
and whose body contains all of the tuples that are in either or both <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36609	36707	
==>tion that has the same heading
and whose body contains all of the tuples that are in either or both <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8471	8569	
==>e the
parse() method to explicitly build it:

  $parser->parse;

This is not necessary, though, bec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4078	4202	
==>/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_appl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4078	4202	
==>/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_appl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4078	4202	
==>/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_appl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2705	2828	
==>.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2705	2828	
==>.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2705	2828	
==>.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of somet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	395	501	
==>instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	600	706	
==>instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	656	762	
==>instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_insta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39932	40030	
==>/>); either
version 2.1 of the License, or (at your option) any later version.  You
should have rec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39932	40030	
==>/>); either
version 2.1 of the License, or (at your option) any later version.  You
should have rec <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7666	7843	
==>\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^..     safe   (Scalar, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   L <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22074	22174	
==>\+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C)     :- (char_type(C,alnum);char_type( <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1362	1463	
==>return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1283	1383	
==>return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	597	717	
==>rn 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	597	717	
==>rn 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	597	717	
==>rn 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4274	4414	
==>rclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2889	3028	
==>rclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3094	3233	
==>rclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4066	4184	
==>ertyName ($O:) { $.property_name }
}
# 8.7.1
method GetValue (JSX::PsuedoValue $V) { $V }
method GetValue (JSX::Interna <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5717	5826	
==>mpile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5705	5814	
==>mpile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1630	1728	
==>l_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", or <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1630	1728	
==>l_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1930	2026	
==>ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1930	2026	
==>ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1930	2026	
==>ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, und <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14160	14249	
==>add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14160	14249	
==>add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14160	14249	
==>add_attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33727	33872	
==>, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33727	33872	
==>, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33727	33872	
==>, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14007	14108	
==>ist :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <AssignmentExpression <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5256	5355	
==>tem C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5256	5355	
==>tem C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6756	6851	
==>_object',
   '... got the right return value from Object singleton/class method');

$Object->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1167	1280	
==>NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1167	1280	
==>NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1167	1280	
==>NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9615	9716	
==>and compile a procedure that will insert a record into the
    # 'person' table, which is populated fr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9615	9716	
==>and compile a procedure that will insert a record into the
    # 'person' table, which is populated fr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26837	26929	
==>hing */
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15391	15531	
==>cat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15670	15810	
==>cat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1 <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4237	4364	
==>ates > 1) {
            # This is harmless -- so we don't do anything.
            # warn "*** Found more than one '$basename' - <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2216	2322	
==>et_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2216	2322	
==>et_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2910	3003	
==>ang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2910	3003	
==>ang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3257	3350	
==>ang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19989	20115	
==>TROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19989	20115	
==>TROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19989	20115	
==>TROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1079	1185	
==>.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1079	1185	
==>.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1079	1185	
==>.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9913	10000	
==>es[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9913	10000	
==>es[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9913	10000	
==>es[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6974	7149	
==>:Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6974	7149	
==>:Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6974	7149	
==>:Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unbo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6748	6903	
==>isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                pu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7212	7367	
==>isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                pu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3961	4055	
==>ement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3961	4055	
==>ement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11902	12005	
==>utput .= $text;
      my $syn_path = catfile($output_dir, "Synopsis", "$linkfile.html");
      $output . <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3938	4037	
==>Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3938	4037	
==>Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35136	35335	
==>::FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	380	498	
==>ery handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	380	498	
==>ery handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	74	200	
==>e ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	74	200	
==>e ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	74	200	
==>e ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8741	8870	
==>sub' ) {
        #warn "sub: ",Dumper $n;

        my $name = _mangle_ident( $n->{name}{bareword} );

        my $export = '' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	663	778	
==>y $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	751	866	
==>y $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dump <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16698	16797	
==>rgument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

R <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16698	16797	
==>rgument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

R <==
3	/Users/nnunley/pugs/util/package-osx.pl	4258	4360	
==>an/man3/Perl6::Bible::E04.3pm
        /usr/local/man/man3/Perl6::Bible::E05.3pm
        /usr/local/man/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1590	1691	
==>y structure of the signature; it does

not allocate containers.



the Body is just a structure with t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1525	1623	
==>y structure of the signature; it does
not allocate containers.

the Body is just a structure with t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1284	1399	
==>ramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1284	1399	
==>ramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1284	1399	
==>ramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12714	12943	
==>gs;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12714	12943	
==>gs;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2222	2441	
==>$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use constant ISA_JIB_META   => sub { UNIVERSAL::isa(shift(), 'JIB::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2022	2130	
==>.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2022	2130	
==>.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2022	2130	
==>.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->ne <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	990	1117	
==>failed (exit code $rv).
.
}

exit $rv;

sub is_root {
    local $@;
    eval('$> == 0') || $@; # System with no concepts of UIDs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	864	974	
==>le => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	864	974	
==>le => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4756	4886	
==>tant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4607	4734	
==>tant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 matc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9010	9124	
==>verse );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9010	9124	
==>verse );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2432	2526	
==>her, symbol $label, hash %opts) returns method {
    { (&dispatcher.() // return).get_method($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2636	2775	
==>ame $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2636	2775	
==>ame $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2636	2775	
==>ame $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys % <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	272	385	
==>{
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	284	397	
==>{
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1503	1612	
==>ght hand side must be a core type";    
    return num->new($left->to_native * $right->to_num->to_native());
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3300	3433	
==>}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3440	3573	
==>}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $gramm <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6525	6627	
==>o refetch the kernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { ge <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	141	242	
==>r::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree i <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	141	242	
==>r::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5291	5433	
==>ns;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2744	2859	
==>ion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &contin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2744	2859	
==>ion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &contin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11850	11953	
==>nt's Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11850	11953	
==>nt's Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	307	413	
==>= $ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	144	236	
==>kefile::Name;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7457	7548	
==>my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directorie <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7457	7548	
==>my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directorie <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18006	18162	
==>family => 'close',
      nparen => $nparen,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11722	11820	
==>r.header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11722	11820	
==>r.header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9079	9198	
==>le($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9079	9198	
==>le($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9079	9198	
==>le($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3929	4028	
==>be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<va <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3929	4028	
==>be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<va <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3174	3272	
==>e
compiler creates, but which we obviously don't have).

Whether this will all succeed or not is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35700	35791	
==>ry relational operator that takes a single
Relation::Example in its C<$other> argument, wher <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9214	9304	
==>>_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statemen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3039	3129	
==>>_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	521	628	
==>t implemented" };

sub add_op {
    # name=>'*', precedence=>'>', other=>'+', rule=>$rule
    my ($self, $op <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4357	4448	
==>ynonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= O <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4357	4448	
==>ynonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= O <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14033	14130	
==>he field name passed to the
callback routine has case as suggested by HTTP spec, and the headers
w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14033	14130	
==>he field name passed to the
callback routine has case as suggested by HTTP spec, and the headers
w <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	345	439	
==>h/CORE/pugs');
    copy_all("$_/blib/", 'blib6/pugs/perl5') for <perl5/*>;
    copy_all("$_/bli <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32601	32700	
==>orementioned binary union()
operator, and the order of its arguments is not significant to the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37151	37250	
==>orementioned binary union()
operator, and the order of its arguments is not significant to the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36459	36558	
==>orementioned binary union()
operator, and the order of its arguments is not significant to the resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1230	1327	
==>undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1230	1327	
==>undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1230	1327	
==>undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Date()).g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	755	884	
==>compile(q( \w+ ))->code;

*block = Pugs::Compiler::Token->compile(q( \{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10910	11002	
==>head2 The Rosetta::Model::Document Class

A Document object is a simple container which store <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10910	11002	
==>head2 The Rosetta::Model::Document Class

A Document object is a simple container which store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16096	16196	
==>, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16096	16196	
==>, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16096	16196	
==>, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3559	3664	
==>TI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3559	3664	
==>TI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3559	3664	
==>TI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	380	482	
==>xport {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	380	482	
==>xport {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33817	33979	
==>lems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33817	33979	
==>lems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33817	33979	
==>lems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1606	1763	
==>r($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1606	1763	
==>r($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1606	1763	
==>r($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7669	7782	
==>$n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7669	7782	
==>$n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7669	7782	
==>$n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	117	222	
==>lso at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	112	211	
==>lso at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	641	774	
==>} if defined $args{'str'};
    return $o;
}
sub init {
    my($o)=@_;
    $o->set(1,"",[],{});
    return $o;
}
sub set {
    my($o,$b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2575	2675	
==>arse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2575	2675	
==>arse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5180	5326	
==>aram (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5180	5326	
==>aram (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5180	5326	
==>aram (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == un <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32503	32604	
==>', $self->nparen ];
  }

That means that when an 'open' node is walked into, after it has
been walk()e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14732	14826	
==>ead1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14732	14826	
==>ead1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12372	12499	
==>?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $description <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2752	2875	
==>?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2752	2875	
==>?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6491	6649	
==>ll,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6491	6649	
==>ll,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6491	6649	
==>ll,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XX <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3158	3280	
==>lash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis o <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3158	3280	
==>lash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis o <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	62	154	
==>e_perl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspend handler for "r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14490	14697	
==>? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14490	14697	
==>? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14490	14697	
==>? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $arra <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9874	9975	
==>ring); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is cop <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9874	9975	
==>ring); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is cop <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2165	2263	
==>such cases is die with a complaint.  Real solvers usually do
a bit of algorithm switching.  When th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8017	8154	
==>];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8017	8154	
==>];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8017	8154	
==>];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ... <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4563	4660	
==>to code refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config: <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4563	4660	
==>to code refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2377	2469	
==>ing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2377	2469	
==>ing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2377	2469	
==>ing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13256	13353	
==>d>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13256	13353	
==>d>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::H <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26557	26652	
==>tly only works when sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2078	2187	
==>code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2078	2187	
==>code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2078	2187	
==>code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2359	2452	
==>eta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2359	2452	
==>eta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2359	2452	
==>eta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3293	3405	
==>ang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3293	3405	
==>ang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3293	3405	
==>ang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4667	4766	
==>slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4667	4766	
==>slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5257	5356	
==>slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1997	2135	
==>re
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.fi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1997	2135	
==>re
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.fi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1997	2135	
==>re
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12425	12532	
==>defs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12425	12532	
==>defs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12425	12532	
==>defs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5056	5188	
==>ttribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5056	5188	
==>ttribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5056	5188	
==>ttribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	604	719	
==>the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	604	719	
==>the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	604	719	
==>the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	411	540	
==>e if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODULE, $modules[0] or die $!;
        while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5388	5490	
==>_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type et <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5388	5490	
==>_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type et <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5978	6080	
==>_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type et <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3820	3981	
==>..
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3820	3981	
==>..
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3820	3981	
==>..
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9996	10106	
==>Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9996	10106	
==>Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9996	10106	
==>Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30966	31061	
==>tes; the new Relation::Example has as
many additional attributes as there are pairs in the argum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1450	1556	
==>de, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, documen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1450	1556	
==>de, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, documen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1450	1556	
==>de, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, documen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	919	1072	
==>lit(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .mes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	919	1072	
==>lit(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .mes <==
3	/Users/nnunley/pugs/util/drift.pl	1681	1769	
==>ort Data.Yaml.Syck
import DrIFT.YAML
import DrIFT.JSON
import DrIFT.Perl5
import Control. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7247	7367	
==>r,"regexp_compile_hook_p5re...\n");
      handler = sv;
    }
  }  
  /* If no handlers, then hand off */
  if(handler == <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	827	940	
==>Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	827	940	
==>Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11485	11582	
==>!-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11485	11582	
==>!-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11485	11582	
==>!-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4858	4957	
==>ied view of the
libwww-perl library.  It should also be suitable for one-liners.  If
you need more c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4858	4957	
==>ied view of the
libwww-perl library.  It should also be suitable for one-liners.  If
you need more c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3537	3630	
==>f => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3537	3630	
==>f => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3537	3630	
==>f => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12628	12758	
==>*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12628	12758	
==>*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12628	12758	
==>*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2645	2757	
==>ot the wrong type for " . $param->to_str->to_native . " got($arg) -> expected($param_type)"
                    i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1045	1138	
==>nge Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1045	1138	
==>nge Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23253	23356	
==>=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41177	41280	
==>=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37203	37306	
==>=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19285	19426	
==>d' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39737	39878	
==>d' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signat <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4012	4134	
==>} ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22130	22373	
==>fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22130	22373	
==>fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22130	22373	
==>fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	544	692	
==>lf = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d* <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	544	692	
==>lf = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d* <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	199	448	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	199	448	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2034	2139	
==>f->add_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in character class") i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	403	500	
==>lasses Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	403	500	
==>lasses Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	403	500	
==>lasses Params, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11380	11515	
==>ram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11374	11509	
==>ram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11363	11481	
==>elf->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, so
        # toss the ones that i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16995	17122	
==>> $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20472	20599	
==>> $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20050	20177	
==>> $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15012	15117	
==>LTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15012	15117	
==>LTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15012	15117	
==>LTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@xxa;
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4218	4363	
==>',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4218	4363	
==>',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±', <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	67	148	
==>rl5/site_perl/5.8.7/Module/Install/Makefile/Version.pm"
package Module::Install::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2507	2639	
==>4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2507	2639	
==>4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2507	2639	
==>4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = und <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6979	7078	
==>h->{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6991	7090	
==>h->{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eva <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	181	273	
==>haustier";
say "$wer mag @obst[0] und @obst[1]";
say "{$wer}s Lieblingsfarbe ist %lieblings{' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2925	3017	
==>encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2925	3017	
==>encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	65	175	
==>$self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	65	175	
==>$self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	65	175	
==>$self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21702	21800	
==>idually addressed only by their values; neither
may be addressed by any ordinal value.

Note that i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26254	26352	
==>idually addressed only by their values; neither
may be addressed by any ordinal value.

Note that i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24914	25012	
==>idually addressed only by their values; neither
may be addressed by any ordinal value.

Note that i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2598	2748	
==>afe {
        eval(slurp $filename, $lang);
    }
}


class Control::Caller {
    has Str $.package;
    has Str $.file;
    has Int $.line;
    has St <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1330	1432	
==>id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<texta <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1330	1432	
==>id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<texta <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13053	13150	
==>the whole test was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33400	33495	
==>ke
C<union> except that the returned Relation contains only tuples that are in
all of the source <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37950	38045	
==>ke
C<union> except that the returned Relation contains only tuples that are in
all of the source <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10504	10613	
==>],
    ["$parrot_path/parrot" => "$initrd_mnt/bin/parrot"],
    [$bash                 => "$initrd_mnt/bin/bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1937	2067	
==>w PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1937	2067	
==>w PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1937	2067	
==>w PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12883	12994	
==>n);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12883	12994	
==>n);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12883	12994	
==>n);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31294	31410	
==>p::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();
    $self->del_handler(qw<
      (?{   (??{ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6341	6438	
==>>

Although not technically part of the API, most ciphers will want to implement 
a constructor wi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6341	6438	
==>>

Although not technically part of the API, most ciphers will want to implement 
a constructor wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2633	2725	
==>self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2633	2725	
==>self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2633	2725	
==>self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1671	1779	
==>)])/\\\\$1/g;  # escape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Toke <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	780	878	
==>the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the serve <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	780	878	
==>the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the serve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10883	10985	
==>on of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10883	10985	
==>on of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10883	10985	
==>on of non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6612	6757	
==>end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6612	6757	
==>end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6612	6757	
==>end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless d <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3526	3647	
==>=> 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3526	3647	
==>=> 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24834	24985	
==>sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  pa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	317	432	
==>t.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	317	432	
==>t.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	100	216	
==>h';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	100	216	
==>h';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4430	4535	
==>->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4430	4535	
==>->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4430	4535	
==>->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) {
      local $macro->{CC} = $cc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10436	10548	
==>ode<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10436	10548	
==>ode<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2864	2964	
==>e closure::signature;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8106	8255	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8106	8255	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8106	8255	
==>=> [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTR <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1368	1458	
==>he parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantif <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1368	1458	
==>he parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantif <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	750	852	
==>to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	750	852	
==>to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1306	1408	
==>to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message ) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1983	2089	
==>type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw!Array: List)\
multi method Array::delete <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11310	11402	
==>ode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params retu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11310	11402	
==>ode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12178	12415	
==>'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12178	12415	
==>'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1812	1925	
==>pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18965	19130	
==>mal link, after the header, when there is no regex
                # or if the regex failed
                unless ($found) {
                  push @bad_regex, { reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1128	1238	
==>de $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_contr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1128	1238	
==>de $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_contr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1128	1238	
==>de $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_contr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5296	5410	
==>h( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5296	5410	
==>h( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5296	5410	
==>h( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8635	8734	
==>Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8635	8734	
==>Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8635	8734	
==>Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1663	1769	
==>}
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1868	1974	
==>}
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1931	2037	
==>}
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (% <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3425	3514	
==>$/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3609	3698	
==>$/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6949	7065	
==>classes')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6949	7065	
==>classes')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6949	7065	
==>classes')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8539	8676	
==>chTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	86	217	
==>pec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	86	217	
==>pec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35242	35350	
==>tional operator that is identical
to C<join> except that this method will fail if any of its source Relations <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39792	39900	
==>tional operator that is identical
to C<join> except that this method will fail if any of its source Relations <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39352	39460	
==>tional operator that is identical
to C<join> except that this method will fail if any of its source Relations <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1647	1762	
==>ynamic_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless ( define <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2732	2828	
==>be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

I <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2732	2828	
==>be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2560	2683	
==>urn hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2560	2683	
==>urn hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2560	2683	
==>urn hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(key <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6197	6305	
==>sequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The wo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6197	6305	
==>sequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The wo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5648	5817	
==>ray; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5648	5817	
==>ray; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25477	25573	
==>ero exit status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message similar to the above. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11580	11770	
==>', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7862	8052	
==>', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8696	8886	
==>', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #" <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3277	3411	
==>elf!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3277	3411	
==>elf!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9924	10022	
==>eturned is a function reference.  When called in scalar
context, it returns the next node:

  while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	628	795	
==>version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	628	795	
==>version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	628	795	
==>version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14687	14802	
==>if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.trans <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14687	14802	
==>if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.trans <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	364	465	
==>my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	364	465	
==>my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<so <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8314	8422	
==>, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, $how);
  });

  # graph POSIX c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	670	777	
==>r generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	638	736	
==>r generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	799	916	
==>. " but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPlan <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3486	3593	
==>kie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } els <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3486	3593	
==>kie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37750	37873	
==>erl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37750	37873	
==>erl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37750	37873	
==>erl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $po <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	596	851	
==>pplies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # Ext <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	596	851	
==>pplies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # Ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5855	5971	
==>n = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5855	5971	
==>n = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5855	5971	
==>n = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9634	9733	
==>_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9634	9733	
==>_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9634	9733	
==>_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1797	1910	
==>ere?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = 'Perl6')
            is primitive is safe is builti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24314	24413	
==>a single member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28866	28965	
==>a single member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3384	3482	
==>t class name');

is($p2->get_x, 100, '... got the right x for p2');
is($p2->get_y, 200, '... got th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	119	216	
==>y basic first attempt at a primitive 
s-expr compiler to generate p5 code, it's really 
pretty bad <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2132	2235	
==>$set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2132	2235	
==>$set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3241	3345	
==>thod('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3241	3345	
==>thod('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3241	3345	
==>thod('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5292	5426	
==>else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5292	5426	
==>else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5292	5426	
==>else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	845	943	
==>s currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BE <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	845	943	
==>s currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BE <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4451	4534	
==>unds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	244	342	
==>ant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	244	342	
==>ant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	244	342	
==>ant(function (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36296	36430	
==>tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36296	36430	
==>tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36296	36430	
==>tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @he <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6530	6635	
==>ment>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how s <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6530	6635	
==>ment>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14709	14829	
==>ode', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14709	14829	
==>ode', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14709	14829	
==>ode', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13181	13354	
==>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13175	13348	
==>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $c <==
3	/Users/nnunley/pugs/util/version_h.pl	2345	2450	
==>hi";
    unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($revision) {
  print "Not wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	960	1069	
==>> $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	960	1069	
==>> $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	960	1069	
==>> $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pai <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	369	562	
==>tion: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { uns <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	369	562	
==>tion: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { uns <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25666	25757	
==>sing
C<${&Rx}> everywhere, it's because an lvalued subroutine returning a
normal scalar does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2559	2699	
==>PED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2559	2699	
==>PED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2559	2699	
==>PED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11451	11583	
==>ose);
        $m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8063	8160	
==>rations on 
Span objects, that return lists of spans.

In this example, @span may contain zero, on <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8063	8160	
==>rations on 
Span objects, that return lists of spans.

In this example, @span may contain zero, on <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22406	22500	
==>d 'o' flags now evoke "Useless ..." warnings when used
in flag and non-capturing group construc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1287	1380	
==>nse_headers,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1287	1380	
==>nse_headers,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7422	7530	
==>ata::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7434	7542	
==>ata::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25698	25779	
==>_,_,_,_))).
flag_s(amat(_,flgs(_,_,s,_,_,_,_,_,_,_))).
flag_x(amat(_,flgs(_,_,_,x, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2156	2304	
==>_[5],} }",
        
    # XXX
    #infix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4127	4229	
==>o 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4311	4413	
==>o 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1361	1468	
==>(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1361	1468	
==>(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1361	1468	
==>(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8747	8919	
==>n $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12652	12804	
==>n $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12652	12804	
==>n $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10092	10205	
==>he;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10092	10205	
==>he;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10092	10205	
==>he;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1] <==
3	/Users/nnunley/pugs/util/importgraph.pl	2930	3021	
==>s and $edges edges\n";

#$g->as_canon("importgraph.dot");
#$g->as_png("importgraph.png");
$g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2315	2415	
==>&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2315	2415	
==>&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2315	2415	
==>&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6998	7100	
==>ul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6998	7100	
==>ul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6998	7100	
==>ul) { return rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Interna <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3866	3968	
==>tified_op(W, Z) --> p5_range(W, Z), !.
p5_quantified_op(W, W) --> {true}.

p6_quantified(Z) --> p6_elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14651	14752	
==>mc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14651	14752	
==>mc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2324	2424	
==>set($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# sev <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2324	2424	
==>set($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# sev <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33041	33130	
==>elation::Example but that some of its
tuple/Mapping-valued attributes have been split/unwr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10688	10788	
==>efined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10688	10788	
==>efined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10688	10788	
==>efined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	289	394	
==>var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	289	394	
==>var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	289	394	
==>var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Con <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	621	733	
==>l(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	621	733	
==>l(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1934	2033	
==>fess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args->length()->less_than_o <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	753	878	
==>...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	753	878	
==>...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1573	1684	
==>/parrot-trunk";
my $bash         = "/bin/bash";
my $inputrc      = "/etc/inputrc";
my $terminfo     = "/etc/term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29688	29834	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29688	29834	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29688	29834	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ ) ) {
            $sum += $_->num->unb <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4322	4435	
==>ious =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4322	4435	
==>ious =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        c <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2399	2505	
==>s half
the target.  This does not facilitate recovering all the roots of a
function (not that Newton's meth <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1593	1691	
==>ild config file '$filename' is older than template
    '$config_template'.  I will merge them in me <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9220	9316	
==>nels{normalize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9220	9316	
==>nels{normalize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	222	341	
==>ML;
use Scriptalicious 1.05;
use strict;

sub print_repl_help {
    print ":h             show this help\n";
    print " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	905	1020	
==>cceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Confli <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	905	1020	
==>cceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Confli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5683	5781	
==>\$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5683	5781	
==>\$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5683	5781	
==>\$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6726	6833	
==>}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6726	6833	
==>}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3197	3310	
==>gh, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3197	3310	
==>gh, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3197	3310	
==>gh, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9818	9944	
==>_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9818	9944	
==>_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9818	9944	
==>_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3527	3618	
==>=> $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3527	3618	
==>=> $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3527	3618	
==>=> $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	262	356	
==>w new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	262	356	
==>w new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	262	356	
==>w new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/misc/S29_round.pl	856	971	
==>symmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    given abs($x) - floor( abs($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	727	826	
==>le/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class support <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	727	826	
==>le/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class support <==
3	/Users/nnunley/pugs/util/package-osx.pl	11408	11540	
==>nt "Successfully removed \$file\\n";
            \}
        \}
    );
    @footer = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $fo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	9	104	
==>=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to no <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	9	104	
==>=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7955	8072	
==>var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7955	8072	
==>var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7955	8072	
==>var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4143	4267	
==>n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4143	4267	
==>n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4143	4267	
==>n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sig <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1360	1510	
==>$() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1360	1510	
==>$() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12795	12880	
==>ass="expander" onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmpl_va <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	614	751	
==>y $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	614	751	
==>y $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4924	5022	
==>ocessing .t files
my $files = {}; # mapping from test-file-name to test-record
$files->{$_->{file}} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11370	11467	
==>rt of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11370	11467	
==>rt of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6635	6781	
==>var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6635	6781	
==>var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6635	6781	
==>var_macro($_[0]{'pSubName'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	34	177	
==>:Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	34	177	
==>:Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	34	177	
==>:Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1201	1312	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1259	1370	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16371	16473	
==>", "$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3438	3529	
==>teral">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <% <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3622	3713	
==>teral">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2940	3054	
==>tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2940	3054	
==>tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2940	3054	
==>tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16488	16605	
==>E'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15544	15653	
==>E'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	193	308	
==>caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	193	308	
==>caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	193	308	
==>caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1191	1325	
==>self = shift;
        my $sha1 = Digest->new("SHA-1");

        {
			local $SIG{__WARN__} = sub { };
            local $Storable::forgi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18453	18549	
==>ted.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18453	18549	
==>ted.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16602	16715	
==>se Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16602	16715	
==>se Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16602	16715	
==>se Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	481	583	
==>pile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	481	583	
==>pile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14775	14875	
==>icativeExpression :words {  # see 11.5
      <UnaryExpression>
    | <MultiplicativeExpression> <'*'> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1087	1208	
==>::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1087	1208	
==>::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1087	1208	
==>::opaque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	294	399	
==>lock { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A0 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	294	399	
==>lock { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7635	7739	
==>n \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4145	4244	
==>n.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4145	4244	
==>n.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12541	12689	
==>::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	126	235	
==>ata::Dumper;
use strict;
our @EXPORT_OK = qw(rule);

sub compiled {
    my $class = shift;
    my $code = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5427	5535	
==>SCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5427	5535	
==>SCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5427	5535	
==>SCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_G <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4410	4527	
==>lse;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::V <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4410	4527	
==>lse;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::V <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11112	11209	
==>ckage ) ) and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata removed" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10198	10282	
==>:operator::nary->new(list => type::variable::free->new),
		type::operator::nullary->n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	462	567	
==>ry { die "not implemented" };
sub inherit_grammar { die "not implemented" };

sub add_op {
    # name=>'*' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17208	17305	
==>is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17208	17305	
==>is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23847	23954	
==>d_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@superclasses)))
          ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5030	5133	
==>DO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5030	5133	
==>DO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	69	161	
==>he;

## ----------------------------------------------------------------------------
## now f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	69	161	
==>he;

## ----------------------------------------------------------------------------
## now f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	69	161	
==>he;

## ----------------------------------------------------------------------------
## now f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17726	17861	
==>:next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17726	17861	
==>:next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17726	17861	
==>:next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6468	6572	
==>_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6468	6572	
==>_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6468	6572	
==>_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22423	22526	
==>nce, used to store the tree as a new scope is
entered and then exited.  The general concept is:

  if (i <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1617	1714	
==>Subscriber {
    use Set;
    has Set $.subscriptions handles :note_subscription<insert> :remove_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1411	1524	
==>ray = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1411	1524	
==>ray = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1411	1524	
==>ray = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5435	5555	
==>=> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5435	5555	
==>=> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5435	5555	
==>=> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16128	16328	
==>' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16128	16328	
==>' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16128	16328	
==>' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7796	7948	
==>pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7796	7948	
==>pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7796	7948	
==>pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9742	9835	
==>ass->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9742	9835	
==>ass->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9742	9835	
==>ass->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @val <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1617	1755	
==>precedence => 'looser',
        other => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__->add_rule( 
    #    na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9539	9652	
==>($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9539	9652	
==>($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9539	9652	
==>($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1723	1824	
==>should
#  create a new grammar, inherit from this one, and redefine just those
#  rules.  See JavaScri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18634	18723	
==>t
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18634	18723	
==>t
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	26	146	
==>::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	26	146	
==>::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1579	1689	
==>ft @rule_terms, 'match_variable';

    rule named_capture_body {
          [ \( <rule> \) { return { rule => $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1890	2035	
==>ch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1671	1808	
==>ch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1671	1808	
==>ch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ne <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13664	13789	
==>eate HTML out of the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6547	6665	
==>le is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6547	6665	
==>le is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be lo <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5	113	
==>6;
module Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'star <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5	113	
==>6;
module Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'star <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3523	3621	
==>p of the object-oriented backend.

To use the Cipher API, you must first create an object of the ap <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3523	3621	
==>p of the object-oriented backend.

To use the Cipher API, you must first create an object of the ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	299	390	
==>::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	299	390	
==>::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	299	390	
==>::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14970	15069	
==>x) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14970	15069	
==>x) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14970	15069	
==>x) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULT <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4174	4289	
==>awName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4174	4289	
==>awName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1024	1139	
==>awName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13859	13996	
==>PATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13859	13996	
==>PATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13859	13996	
==>PATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $method_table_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2272	2423	
==>t' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2272	2423	
==>t' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2272	2423	
==>t' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type') <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7453	7582	
==>_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantifie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7441	7570	
==>_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantifie <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23687	23775	
==>T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2135	2270	
==>{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2135	2270	
==>{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2135	2270	
==>{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6463	6571	
==>rsion'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6463	6571	
==>rsion'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6463	6571	
==>rsion'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:aut <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3461	3570	
==>\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Per <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3461	3570	
==>\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24067	24176	
==>$n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20488	20597	
==>$n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7032	7201	
==>taModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7032	7201	
==>taModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7032	7201	
==>taModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4391	4509	
==>nk_val->type;
		my @context = ref $thunk_type eq "ARRAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1472	1560	
==>microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1312	1400	
==>microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	906	1013	
==>fmapping nodes.

=head1 SYNOPSIS

    package My::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26106	26201	
==>of Str $attrs!) returns Relation>

This method is a generic relational operator that returns a n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30658	30753	
==>of Str $attrs!) returns Relation>

This method is a generic relational operator that returns a n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3090	3271	
==>$other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6567	6748	
==>$other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5515	5696	
==>$other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mappin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2027	2152	
==>n(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2027	2152	
==>n(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2107	2232	
==>n(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14342	14441	
==>ars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14342	14441	
==>ars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14342	14441	
==>ars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	969	1089	
==>{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	969	1089	
==>{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	969	1089	
==>{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_string;

  sub fixup {
    die unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	459	645	
==>my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	459	645	
==>my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	459	645	
==>my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $ty <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4368	4483	
==>l_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      current_pragma <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	184	288	
==>nd";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	184	288	
==>nd";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	736	863	
==>much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	736	863	
==>much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	736	863	
==>much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2273	2377	
==>S::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2273	2377	
==>S::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2273	2377	
==>S::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	966	1082	
==>e;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	966	1082	
==>e;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	966	1082	
==>e;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1485	1587	
==>ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $ful <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1485	1587	
==>ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $ful <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1485	1587	
==>ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $ful <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15495	15618	
==>size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all ent <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15495	15618	
==>size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all ent <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	87	194	
==>log2graph.pl > /tmp/graph.png   --or
#        svn log > /tmp/log; util/svnlog2graph /tmp/log > /tmp/graph.pn <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1048	1197	
==>vername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1048	1197	
==>vername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18590	18684	
==>y> redundant (that is, I<every>
character in that embedded class is already found in the class) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10204	10288	
==>fined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10939	11023	
==>fined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3614	3711	
==>HO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3614	3711	
==>HO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4490	4622	
==>atcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4490	4622	
==>atcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4490	4622	
==>atcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11359	11555	
==>ay';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11359	11555	
==>ay';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11359	11555	
==>ay';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5735	5891	
==>return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5735	5891	
==>return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5735	5891	
==>return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2687	2793	
==>new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2687	2793	
==>new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2687	2793	
==>new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2918	3025	
==>.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2918	3025	
==>.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2998	3105	
==>.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1837	1954	
==>nv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1080	1184	
==>($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1080	1184	
==>($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1080	1184	
==>($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5595	5695	
==><end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5595	5695	
==><end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple even <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5490	5632	
==>e('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5490	5632	
==>e('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5490	5632	
==>e('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3196	3294	
==>you to test test modules that use Test::Builder.  It
does this by you setting the expected output a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3196	3294	
==>you to test test modules that use Test::Builder.  It
does this by you setting the expected output a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3276	3374	
==>you to test test modules that use Test::Builder.  It
does this by you setting the expected output a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	104	216	
==>5-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	104	216	
==>5-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	104	216	
==>5-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10996	11080	
==>oughts on Role state:
--------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10996	11080	
==>oughts on Role state:
--------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10996	11080	
==>oughts on Role state:
--------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3901	4076	
==>~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3901	4076	
==>~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3487	3607	
==>> method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3487	3607	
==>> method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3487	3607	
==>> method () {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25450	25543	
==>r components concerned, provided that you include the source
code of the other components when <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25450	25543	
==>r components concerned, provided that you include the source
code of the other components when <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	437	527	
==>rm:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:^^", "term:", "nows", "PGE: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	758	916	
==>me,
            assoc => 'left',
            precedence => 'equal',
            other => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	403	503	
==>turn @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	403	503	
==>turn @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4521	4629	
==>bstitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4521	4629	
==>bstitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  ret <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2567	2669	
==>load_script) {
    system("$^X $smoke_upload_script $html_location") == 0
        or die "Couln't run s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38155	38279	
==>) method:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39678	39769	
==>/www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39678	39769	
==>/www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27478	27575	
==>the names of the new attributes, and
the values provide values applied to each tuple.  The new Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32030	32127	
==>the names of the new attributes, and
the values provide values applied to each tuple.  The new Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31113	31210	
==>the names of the new attributes, and
the values provide values applied to each tuple.  The new Rel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11381	11487	
==>Test::Builder::Test::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submeth <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1833	1931	
==>Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submeth <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1833	1931	
==>Test::Builder::Test::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1368	1566	
==>id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1368	1566	
==>id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1368	1566	
==>id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	620	890	
==>ction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	620	890	
==>ction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	620	890	
==>ction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6761	6877	
==>= map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6761	6877	
==>= map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6761	6877	
==>= map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6113	6242	
==>inue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6113	6242	
==>inue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clon <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10137	10282	
==>sr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10137	10282	
==>sr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	334	435	
==>r,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3894	3998	
==>refix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3894	3998	
==>refix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3894	3998	
==>refix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10639	10736	
==>uote_args(\$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25967	26060	
==>sociated with the message, and can be interpolated into the
human-readable version.  Each vari <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25967	26060	
==>sociated with the message, and can be interpolated into the
human-readable version.  Each vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1781	1906	
==>en;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1781	1906	
==>en;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } els <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1781	1906	
==>en;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2994	3122	
==>.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2994	3122	
==>.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2994	3122	
==>.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	88	205	
==>PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	88	205	
==>PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	88	205	
==>PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9975	10091	
==>[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')} <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9975	10091	
==>[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9908	10008	
==>"".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9908	10008	
==>"".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9908	10008	
==>"".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5226	5366	
==>@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5226	5366	
==>@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5226	5366	
==>@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3731	3880	
==>art,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method interse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3731	3880	
==>art,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method interse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3916	4028	
==>ess _('$.testplan');
            push @{_('@:results')} => $test;
            _('$.output')->write( $test->report <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1537	1649	
==>~ substr $str, 1, chars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return u <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	643	732	
==>09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::A <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	643	732	
==>09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21370	21561	
==>n $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21370	21561	
==>n $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21370	21561	
==>n $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1823	1930	
==>][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1823	1930	
==>][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1823	1930	
==>][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2305	2448	
==>close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

= <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2305	2448	
==>close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

= <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12739	12842	
==>new;
}

# inherit the set of generic vars to our body
fun: generic_in($.body) = { generic_in($$) }

# po <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5596	5753	
==>grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $re <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5596	5753	
==>grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2248	2382	
==>6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2248	2382	
==>6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2248	2382	
==>6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6870	6970	
==>e::Type::Placeholder")) {
				return $self->types_eq($x->type, $y->type);
			} else {
				return unde <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6024	6120	
==>b. All rights reserved.
This program is free software; you can redistribute it
and/or modify it u <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6024	6120	
==>b. All rights reserved.
This program is free software; you can redistribute it
and/or modify it u <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8839	8951	
==>left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13150	13249	
==>ad2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13150	13249	
==>ad2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4685	4783	
==>ar named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4685	4783	
==>ar named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5275	5373	
==>ar named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3827	3943	
==>js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3827	3943	
==>js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3827	3943	
==>js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2456	2561	
==>:Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2456	2561	
==>:Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2456	2561	
==>:Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	334	438	
==>uld be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	334	438	
==>uld be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	334	438	
==>uld be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2780	2939	
==>];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2689	2843	
==>];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $mat <==
3	/Users/nnunley/pugs/util/package-osx.pl	7807	7904	
==>:Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14186	14296	
==>table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14186	14296	
==>table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14186	14296	
==>table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7841	7947	
==>ils_ok { $Foo->bar } '... metaclass calling instance method fails';

## does Foo get Object's singleton met <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16599	16702	
==>utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_du <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21025	21128	
==>utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1671	1802	
==>NAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1671	1802	
==>NAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1671	1802	
==>NAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq "&*END";
    #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2066	2199	
==>wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2066	2199	
==>wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2066	2199	
==>wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18894	19030	
==>patchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18894	19030	
==>patchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18894	19030	
==>patchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5360	5523	
==>defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5360	5523	
==>defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5360	5523	
==>defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8390	8503	
==>[1] capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_grou <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1896	2001	
==>se if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1896	2001	
==>se if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1518	1616	
==>p() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1518	1616	
==>p() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1518	1616	
==>p() could accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24261	24364	
==>as zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28813	28916	
==>as zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27671	27774	
==>as zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2587	2683	
==>tch: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2727	2823	
==>tch: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	433	526	
==>t::Harness::Straps - detailed analysis of test results

=head1 SYNOPSIS

  use Test::Harness:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3869	3977	
==>he file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10142	10250	
==>its depth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3869	3977	
==>he file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2555	2651	
==>atcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2555	2651	
==>atcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2555	2651	
==>atcher $dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8652	8829	
==>( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12559	12730	
==>( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12559	12730	
==>( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7974	8139	
==>turn $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7974	8139	
==>turn $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7974	8139	
==>turn $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3363	3482	
==>es %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3363	3482	
==>es %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3363	3482	
==>es %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3578	3693	
==>$MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3578	3693	
==>$MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3578	3693	
==>$MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	90	178	
==>---------------------------------------------------------------
## now for some bootstrap <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	90	178	
==>---------------------------------------------------------------
## now for some bootstrap <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	90	178	
==>---------------------------------------------------------------
## now for some bootstrap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9614	9748	
==>ro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5955	6089	
==>ro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6804	6938	
==>ro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	24	124	
==>ict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	24	124	
==>ict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	24	124	
==>ict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28634	28743	
==>ped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33186	33295	
==>ped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32314	32423	
==>ped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or an <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5090	5206	
==>tribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8567	8683	
==>tribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        hea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5072	5180	
==>w(0) 
            if $left->fetch($i)->equal_to($right->fetch($i)) != bit->new(1);
    }
    return bit->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5603	5701	
==>s defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5603	5701	
==>s defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5603	5701	
==>s defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6107	6212	
==>ld it be a package level version of OUTER::?

Either way, I think it might be useful to have this if for n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6107	6212	
==>ld it be a package level version of OUTER::?

Either way, I think it might be useful to have this if for n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6107	6212	
==>ld it be a package level version of OUTER::?

Either way, I think it might be useful to have this if for n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4629	4756	
==>_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4471	4592	
==>_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23529	23635	
==>t to accidentally affect the previous scope's flag values.  

Here is example code from the handler for C<( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6136	6274	
==>tors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } e <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4638	4776	
==>tors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7354	7446	
==>elf->generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13819	13923	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13819	13923	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13819	13923	
==>$xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1301	1435	
==>cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $t <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1313	1425	
==>t_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<dens <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1313	1425	
==>t_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<dens <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14242	14414	
==>shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14242	14414	
==>shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14242	14414	
==>shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1456	1589	
==>424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        5 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1456	1589	
==>424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        5 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12299	12404	
==>$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12299	12404	
==>$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6548	6647	
==>ault "grammar"
is Perl 5.8.4's regex set.  Grammar is quoted because the module does
not so much def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3787	3908	
==>bel)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3787	3908	
==>bel)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3787	3908	
==>bel)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2422	2532	
==>es = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2422	2532	
==>es = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2422	2532	
==>es = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2853	2992	
==>ename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2853	2992	
==>ename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2853	2992	
==>ename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	101	212	
==>yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	101	212	
==>yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	101	212	
==>yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11802	11901	
==>ic to one another. 

Because instances of class all conform to the Role interface/API they are 
inte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11802	11901	
==>ic to one another. 

Because instances of class all conform to the Role interface/API they are 
inte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11802	11901	
==>ic to one another. 

Because instances of class all conform to the Role interface/API they are 
inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12332	12448	
==>};
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12332	12448	
==>};
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12332	12448	
==>};
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MU <==
3	/Users/nnunley/pugs/util/importgraph.pl	2859	2963	
==>dge($name, $k, color => $color);
    $edges++;
  }
}
print "$nodes nodes and $edges edges\n";

#$g->as_ca <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1781	1874	
==>mpiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.va <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1781	1874	
==>mpiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7666	7774	
==>> Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7666	7774	
==>> Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7666	7774	
==>> Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	530	623	
==>erl -- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns V <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	530	623	
==>erl -- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1348	1482	
==>} else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1348	1482	
==>} else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1348	1482	
==>} else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	309	428	
==>2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	309	428	
==>2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	309	428	
==>2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Container::Hash::Object"
#   implements <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1582	1695	
==>f the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2244	2357	
==>f the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2374	2464	
==>GNITION_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14566	14670	
==>eue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("K <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14566	14670	
==>eue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("K <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17948	18044	
==>m;
}

if(@ARGV && $ARGV[0] eq '--test') {
  require './re_tests_match.pl';
  Pkg_re_tests::test(s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4103	4200	
==>=head2 bool

When used as a boolean, the match object returns whether the match has
succeeded or n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4103	4200	
==>=head2 bool

When used as a boolean, the match object returns whether the match has
succeeded or n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4573	4850	
==>okies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XX <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4573	4850	
==>okies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12833	12964	
==>b ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12833	12964	
==>b ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12833	12964	
==>b ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36012	36113	
==>elation is the union of the invocant and <$other> headings. 
The body of the new relation is the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40562	40662	
==>elation is the union of the invocant and <$other> headings.
The body of the new relation is the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40176	40276	
==>elation is the union of the invocant and <$other> headings.
The body of the new relation is the resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15243	15396	
==>i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15243	15396	
==>i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15243	15396	
==>i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2117	2278	
==>o   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2117	2278	
==>o   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2117	2278	
==>o   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1081	1207	
==>.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num / <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1081	1207	
==>.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num / <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3063	3151	
==>fprintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	244	407	
==>CH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_dis <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	244	407	
==>CH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_dis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10894	11003	
==>ata}[-1];
    }
  }
}


{
  package Regexp::Parser::exact;
  push @ISA, qw( Regexp::Parser::__object__ );

  s <==
3	/Users/nnunley/pugs/util/build_pugs.pl	337	438	
==>lp') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3113	3253	
==>an('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3113	3253	
==>an('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3113	3253	
==>an('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10787	10942	
==>cure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10787	10942	
==>cure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19565	19658	
==>es instead of I<anyof_char> nodes when inside character classes.  Fixed.
(Mike Lambert)

Non-g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	49	140	
==>ternals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	49	140	
==>ternals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	49	140	
==>ternals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4223	4323	
==>e
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4223	4323	
==>e
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4303	4403	
==>e
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5868	6006	
==>ub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->option <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5868	6006	
==>ub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->option <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5868	6006	
==>ub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	236	351	
==>e Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	236	351	
==>e Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	236	351	
==>e Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc. <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14522	14625	
==>> 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, befo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14522	14625	
==>> 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, befo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1421	1528	
==>instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1421	1528	
==>instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1421	1528	
==>instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2284	2398	
==>t know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2284	2398	
==>t know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2284	2398	
==>t know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2990	3122	
==>0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2990	3122	
==>0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2990	3122	
==>0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3858	3949	
==>e done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3858	3949	
==>e done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3858	3949	
==>e done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6740	6864	
==>:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6740	6864	
==>:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6740	6864	
==>:cell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4326	4418	
==>alX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4326	4418	
==>alX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4326	4418	
==>alX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->exp <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1173	1313	
==>? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $e <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1173	1313	
==>? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1357	1455	
==>a while.  By
  sacrificing ease of installation and portability, we may have
  bought fairly simple <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1132	1332	
==>ction!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                el <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1132	1332	
==>ction!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                el <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5933	6057	
==>at);
    
    r->nparens = nparens;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2844	2996	
==>ms;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0] <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2844	2996	
==>ms;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	963	1064	
==>[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	963	1064	
==>[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4042	4143	
==>@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free sof <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13800	13916	
==>connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at lea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13800	13916	
==>connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at lea <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3693	3792	
==>at_should_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPER::new;

	$self->{left} = sh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24585	24679	
==>tem C<is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29137	29231	
==>tem C<is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean att <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	352	441	
==>ss $Config{keep} };

GetOptions \%Config, qw(--inline --pugs|p=s --precompile|i=s@ --verbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7919	8051	
==>1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7919	8051	
==>1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7919	8051	
==>1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1009	1105	
==>rce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1009	1105	
==>rce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1009	1105	
==>rce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	414	518	
==>rder to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	414	518	
==>rder to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	414	518	
==>rder to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2787	2909	
==>$src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2787	2909	
==>$src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2787	2909	
==>$src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10800	10949	
==>ef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_auto <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10800	10949	
==>ef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_auto <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15809	15909	
==>odes the elements of the regex
according to a style-sheet (syntax highlighting).

=item Regexp::Rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13847	13940	
==>SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13847	13940	
==>SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13847	13940	
==>SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14264	14377	
==>fined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14264	14377	
==>fined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14264	14377	
==>fined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	10	104	
==>IL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	10	104	
==>IL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	10	104	
==>IL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	198	334	
==>methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $param <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15542	15662	
==>cat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0 + 1
    goto end
  err_close:
    par <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11419	11510	
==>t(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ")".
p5_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18174	18307	
==>, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3509	3628	
==>] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3509	3628	
==>] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2947	3049	
==>String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2947	3049	
==>String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2947	3049	
==>String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14127	14237	
==>ecision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It w <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14127	14237	
==>ecision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2322	2444	
==>}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2322	2444	
==>}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2322	2444	
==>}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6230	6369	
==>user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                Sym->new('& <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	525	626	
==>) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:< <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	525	626	
==>) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:< <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19768	19890	
==>ent>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :words {  # see 12.1
      <'{'> <StatementList>? <'}'>
}
rul <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2064	2164	
==>$two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2064	2164	
==>$two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	691	791	
==>file($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	691	791	
==>file($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	691	791	
==>file($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2134	2260	
==>x
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2134	2260	
==>x
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19976	20076	
==>ule_imp (*@whatever) {
    die "Can't load perl5 modules via js when not running under PIL2JS!";
}
ou <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3646	3747	
==>sub Perl6::Lists::zip (; Array *@lists, Bit :$shortest) returns Lazy {
   gather {
     while $shortes <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4196	4452	
==>.= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $a <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5487	5591	
==>s);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5545	5649	
==>s);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	814	925	
==>L2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	814	925	
==>L2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	814	925	
==>L2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3517	3618	
==>O - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3517	3618	
==>O - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3517	3618	
==>O - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	819	940	
==>pan::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	819	940	
==>pan::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3208	3328	
==>w(
        dist_name    => $self->{name},
        dist_version => $self->{version},
        license      => $self->{licen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3472	3577	
==>ly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3472	3577	
==>ly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3472	3577	
==>ly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6638	6748	
==>var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6638	6748	
==>var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6638	6748	
==>var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4119	4274	
==>} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4119	4274	
==>} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1867	1981	
==>{levels}}, [ $opt ];
}

sub code { 
    warn "not implemented";
}

sub match {
    warn "not implemented";
}

sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	393	497	
==>alue.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	393	497	
==>alue.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	393	497	
==>alue.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2498	2605	
==>0]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2498	2605	
==>0]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2498	2605	
==>0]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21903	22118	
==>str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21903	22118	
==>str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21903	22118	
==>str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1271	1371	
==>Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - control <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1271	1371	
==>Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - control <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1271	1371	
==>Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - control <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3297	3432	
==>" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ?? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3285	3420	
==>" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19442	19753	
==>= $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19442	19753	
==>= $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19442	19753	
==>= $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4043	4165	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4236	4358	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3644	3752	
==>{
		my $self = shift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linkin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11659	11868	
==>\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7941	8150	
==>\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8775	8984	
==>\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	386	537	
==>hash" dispatcher
# TODO - generate AST

*ident = Pugs::Compiler::Rule->compile( '
            [
                [ \:\: ]?
                [ \_ | < <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4462	4598	
==>attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document! <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4462	4598	
==>attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document! <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7492	7605	
==>Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7492	7605	
==>Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	109	205	
==>ckage;
use JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1538	1645	
==>t.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1538	1645	
==>t.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1538	1645	
==>t.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx] <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6042	6146	
==>=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perfo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6042	6146	
==>=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perfo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8239	8343	
==>=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two classes both perfo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	276	388	
==>le
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	276	388	
==>le
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	276	388	
==>le
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5021	5191	
==>: 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5021	5191	
==>: 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5021	5191	
==>: 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1722	1825	
==>VarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1722	1825	
==>VarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1722	1825	
==>VarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8982	9102	
==>->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8982	9102	
==>->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8982	9102	
==>->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6068	6181	
==>ne',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6068	6181	
==>ne',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6068	6181	
==>ne',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5139	5239	
==>',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5139	5239	
==>',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5139	5239	
==>',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4057	4171	
==>d}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?// <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4057	4171	
==>d}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?// <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4057	4171	
==>d}, $param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?// <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3043	3131	
==>ILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \$__v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	13	98	
==>ar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	144	229	
==>ar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9178	9304	
==>r $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1306	1424	
==>r $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1306	1424	
==>r $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30050	30210	
==>ist {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30050	30210	
==>ist {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30050	30210	
==>ist {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21474	21619	
==>DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44381	44526	
==>DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3748	3873	
==>6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    prin <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16181	16333	
==>9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int $n, Code $corn <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6722	6873	
==>an.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6722	6873	
==>an.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	433	583	
==>) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	433	583	
==>) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	433	583	
==>) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1225	1364	
==>i () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1225	1364	
==>i () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11426	11531	
==>lags} }, &Rf;
    return $S->object(open => $S->{nparen});
  });

  # any character
  $self->add_handler(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30490	30587	
==>d for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35041	35138	
==>d for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34223	34320	
==>d for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and it mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7929	8047	
==>s_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7929	8047	
==>s_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7929	8047	
==>s_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO .. <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1422	1556	
==>ement->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way o <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1422	1556	
==>ement->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way o <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3469	3600	
==>&&
                  $totals{max} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing} = $passe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2697	2816	
==>d returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3161	3280	
==>d returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8792	8897	
==>ms}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8792	8897	
==>ms}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8792	8897	
==>ms}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5688	5808	
==>'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <R <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4006	4121	
==>n";
        print map{ "$_ => ${$_}\n" } sort grep { /patt/ } keys %main::;
        print "\n---- Conversion subs -- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3071	3164	
==>y $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&comp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3129	3222	
==>y $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&comp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2444	2557	
==>ckages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new repository on the fi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	638	996	
==>{
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	638	996	
==>{
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5708	5910	
==>]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3621	3729	
==>f->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3621	3729	
==>f->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3621	3729	
==>f->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5997	6144	
==>$method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5997	6144	
==>$method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5997	6144	
==>$method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have th <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3863	3975	
==>vocant) {
	croak 'invocant missing'
	    if !defined $args->{invocant};

	$self->invocant->bind(\$args->{invocant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2133	2250	
==>or_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2133	2250	
==>or_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2133	2250	
==>or_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5233	5357	
==>X!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5233	5357	
==>X!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5233	5357	
==>X!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fix <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10366	10470	
==>S

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10366	10470	
==>S

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4935	5030	
==>pace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4935	5030	
==>pace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4935	5030	
==>pace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7251	7357	
==>:doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7251	7357	
==>:doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7251	7357	
==>:doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2247	2360	
==>UT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shif <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2247	2360	
==>UT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11635	11731	
==>$orig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my $r <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	359	496	
==>Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $re <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	359	496	
==>Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2673	2793	
==>s

The Pugs/Haskell Perl 6 is currently the most complete implementation. 
Pugs currently has some issues with Perl 5 int <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16353	16465	
==>primitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Code $corner) returns Int is primitive is sa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21728	21827	
==>g the same key code with a new user message in
one of their own resource files.  At some appropriate <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21728	21827	
==>g the same key code with a new user message in
one of their own resource files.  At some appropriate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	105	222	
==>mport {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 're <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	105	222	
==>mport {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 're <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	105	222	
==>mport {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 're <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3185	3316	
==>PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3185	3316	
==>PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19454	19569	
==>f[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad[" <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1765	1889	
==>turns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        en <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1765	1889	
==>turns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        en <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32762	32858	
==>mitted from the tree because of the stacked nature of the
tree.  However, having them returned wh <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	556	663	
==>est::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all no <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	556	663	
==>est::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1112	1219	
==>est::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7295	7402	
==>ority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7295	7402	
==>ority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7295	7402	
==>ority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4835	5038	
==>( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4835	5038	
==>( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4835	5038	
==>( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3376	3527	
==>e => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3376	3527	
==>e => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3376	3527	
==>e => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1291	1383	
==>IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1291	1383	
==>IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1291	1383	
==>IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2335	2431	
==>ule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2335	2431	
==>ule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	861	989	
==>"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	861	989	
==>"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	861	989	
==>"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3- <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	151	249	
==>s, methods, etc
has Method %:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Ty <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	875	972	
==>r CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	875	972	
==>r CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1016	1134	
==>} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1016	1134	
==>} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #pr <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2077	2172	
==>PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6047	6151	
==>ce_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6047	6151	
==>ce_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6047	6151	
==>ce_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9955	10075	
==>$p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main(). <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9955	10075	
==>$p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main(). <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9955	10075	
==>$p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main(). <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4157	4335	
==>$File::Find::name;
        };
        find $wanted, "dist";

        if (@candidates > 1) {
            # This is harmless -- so we don't do anything.
            # warn "*** Foun <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12100	12198	
==>ce that is right before the parameter.

- `current( $x )`

Returns the parameter value if the param <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12100	12198	
==>ce that is right before the parameter.

- `current( $x )`

Returns the parameter value if the param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6592	6684	
==>s, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_excep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6592	6684	
==>s, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_excep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6592	6684	
==>s, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_excep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	526	619	
==>lX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	526	619	
==>lX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	526	619	
==>lX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	623	749	
==>$output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnosti <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2559	2651	
==>se this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Arra <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2559	2651	
==>se this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Arra <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17508	17652	
==>gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20985	21129	
==>gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20572	20716	
==>gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $commo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1572	1690	
==>ef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1572	1690	
==>ef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1572	1690	
==>ef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	239	349	
==>l
see, but it has some other clutter because of unclear design.

    $.from         - The place where this subr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	239	349	
==>l
see, but it has some other clutter because of unclear design.

    $.from         - The place where this subr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15354	15451	
==>ype variable that is present inside the function, if it was free it might be unified to a concrete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6398	6513	
==>n";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6398	6513	
==>n";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6398	6513	
==>n";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	642	782	
==>PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	642	782	
==>PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler: <==
3	/Users/nnunley/pugs/util/build_pugs.pl	626	718	
==>config.yml` in
the build root. You may override these settings using the PUGS_BUILD_OPTS
envi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3102	3214	
==>$r->insert($self->{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18999	19098	
==>s the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18999	19098	
==>s the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal d <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7172	7310	
==>ubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pSu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	560	650	
==>$.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Con <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	560	650	
==>$.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2812	2928	
==>to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.dele <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2812	2928	
==>to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.dele <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2812	2928	
==>to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.dele <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1013	1120	
==>:Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# rem <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1013	1120	
==>:Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# rem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1093	1200	
==>:Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# rem <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8398	8508	
==>s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0:: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6586	6680	
==>m I<start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_docum <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6586	6680	
==>m I<start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20359	20453	
==>::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20359	20453	
==>::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20359	20453	
==>::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5805	5909	
==>and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5805	5909	
==>and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5805	5909	
==>and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # creat <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3911	4016	
==>func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11651	11743	
==>ODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E< <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11651	11743	
==>ODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37761	37865	
==>n is the union of
all the headings of the source relations.  The body of the new relation is
the result o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42310	42414	
==>n is the union of
all the headings of the source relations.  The body of the new relation is
the result o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41960	42064	
==>n is the union of
all the headings of the source relations.  The body of the new relation is
the result o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2538	2635	
==>compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2538	2635	
==>compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2538	2635	
==>compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	373	554	
==>[],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	373	554	
==>[],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	373	554	
==>[],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:met <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13087	13192	
==>rmat string for use with sprintf().

  # for when you have a zero-width chunk
  # with a boundless quantif <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1789	1892	
==>r
    *Compress::Zlib::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7320	7444	
==>t      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\
\\n   Li <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1675	1775	
==>wo) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1675	1775	
==>wo) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2893	2991	
==>.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2893	2991	
==>.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2893	2991	
==>.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12235	12381	
==>idate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12235	12381	
==>idate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12235	12381	
==>idate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->sl <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2799	2935	
==>_;
    open my $ofh, ">", $target or die "open: $target: $!";

    {
        my $prelude = shift @{ $Config{precompile} };
        warn " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18642	18731	
==>_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node.n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18642	18731	
==>_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node.n <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	561	683	
==>chTest ::= Item | Junction;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13031	13127	
==>empty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13031	13127	
==>empty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14284	14380	
==>> ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14284	14380	
==>> ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14284	14380	
==>> ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_at <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2482	2638	
==>." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2482	2638	
==>." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	368	482	
==>Grapheme     is Char;
class CodePoint    is Char;
class Byte         is Char, Number;

macro LChar () { "LanguageCh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17501	17635	
==>method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17501	17635	
==>method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17501	17635	
==>method)
                || confess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2410	2524	
==>) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2410	2524	
==>) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2410	2524	
==>) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unle <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15607	15700	
==>ch contain the mapping from all characters to the corresponding entities
(and vice versa, resp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15607	15700	
==>ch contain the mapping from all characters to the corresponding entities
(and vice versa, resp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37880	37994	
==>array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37880	37994	
==>array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37880	37994	
==>array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1116	1213	
==>ns num>

=item B<to_str () returns str>

=item B<fetch () returns ~type>

=item B<store (~type) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3897	4004	
==>$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3897	4004	
==>$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3897	4004	
==>$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13797	13955	
==>tribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sigil
            return $n->{op1}{op} . " ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2368	2497	
==>FO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV< <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2368	2497	
==>FO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7775	7880	
==>pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7775	7880	
==>pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7775	7880	
==>pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6034	6135	
==>s.

Please note that most of the time, it will not be necessary to write these 
methods yourself; in p <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6034	6135	
==>s.

Please note that most of the time, it will not be necessary to write these 
methods yourself; in p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5058	5161	
==>_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7726	7829	
==>_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3327	3418	
==>{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) <p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10047	10188	
==>socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = un <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10047	10188	
==>socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = un <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9710	9838	
==>ated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_perso <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9710	9838	
==>ated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_perso <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9779	9893	
==>et, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1277	1379	
==>self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BAC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1277	1379	
==>self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BAC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1277	1379	
==>self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17399	17497	
==>ctions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17399	17497	
==>ctions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17399	17497	
==>ctions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16970	17085	
==>== 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16970	17085	
==>== 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16970	17085	
==>== 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5420	5529	
==>le:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5420	5529	
==>le:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5420	5529	
==>le:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9224	9428	
==>ems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9224	9428	
==>ems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9224	9428	
==>ems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24948	25078	
==>>;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21369	21499	
==>>;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8640	8753	
==>($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8640	8753	
==>($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8640	8753	
==>($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#M <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3915	4028	
==>on->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9907	10007	
==>);
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finis <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9907	10007	
==>);
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finis <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9254	9348	
==>the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9254	9348	
==>the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$se <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1562	1675	
==>ating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1562	1675	
==>ating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9354	9445	
==>o->test_iFoo_singleton_method(), 
   '$iFoo::test_iFoo_singleton_method',
   '... got the ri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2365	2483	
==>e spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2365	2483	
==>e spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2365	2483	
==>e spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_class($self)->find_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3142	3249	
==>.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3142	3249	
==>.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3142	3249	
==>.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    un <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1285	1401	
==>+@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1285	1401	
==>+@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some po <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17637	17742	
==>$noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$st <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15677	15769	
==>e span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15677	15769	
==>e span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	830	939	
==>stant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	830	939	
==>stant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	830	939	
==>stant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1981	2097	
==>ef $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1981	2097	
==>ef $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1106	1241	
==>=> '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	955	1089	
==>=> '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2026	2131	
==>"type::operator::pair") || level($$) }
#'EOG

sub stringify {
	my $dag = shift;

	my @free;

	my $tree = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2037	2145	
==>r &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2037	2145	
==>r &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2037	2145	
==>r &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	695	804	
==>elf->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	695	804	
==>elf->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	695	804	
==>elf->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad";
  }

  my $scopeid = $PIL::CUR_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3235	3357	
==>te.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 por <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3235	3357	
==>te.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 por <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2244	2365	
==>');
  });

  # nbound (not a word boundary)
  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BAD <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18498	18589	
==>>,
C<$bot.curhostname>

Returns the current nickname, username, or ircname. Note that thesse <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18498	18589	
==>>,
C<$bot.curhostname>

Returns the current nickname, username, or ircname. Note that thesse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13721	13839	
==>$$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13721	13839	
==>$$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13721	13839	
==>$$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5315	5412	
==>prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5315	5412	
==>prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5315	5412	
==>prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using the HTML tag "<s <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2569	2682	
==>ile1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  " <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3005	3118	
==>ile1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  " <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3991	4104	
==>ile1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9701	9797	
==>die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9701	9797	
==>die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1908	2205	
==>nt OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or error(
                                            "Could <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7116	7237	
==>r(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7116	7237	
==>r(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11486	11592	
==>mand($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11486	11592	
==>mand($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1782	1878	
==>r maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ sour <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1782	1878	
==>r maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12549	12674	
==>$key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12549	12674	
==>$key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12549	12674	
==>$key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18661	18839	
==>OLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18661	18839	
==>OLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18661	18839	
==>OLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $para <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5582	5729	
==>e} : '';
            }
            $totals->{details}[$result{number} - 1] = $details;
        }

        # XXX handle counter mismatch
    }
    el <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11959	12053	
==>>force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4602	4696	
==>>force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	762	850	
==>:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	762	850	
==>:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	762	850	
==>:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34776	34875	
==>en_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34776	34875	
==>en_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34776	34875	
==>en_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14985	15092	
==>(($_ name) ($_ instantite_container)))
             (= $c (WALKCLASS (&dispatcher)))))))
     (opaque new (\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29801	29898	
==>upports having the new attributes having the same names as old attributes
that were wrapped, and i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34353	34450	
==>upports having the new attributes having the same names as old attributes
that were wrapped, and i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33517	33614	
==>upports having the new attributes having the same names as old attributes
that were wrapped, and i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4585	4678	
==>"New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4585	4678	
==>"New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4585	4678	
==>"New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	536	642	
==>owing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	536	642	
==>owing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	536	642	
==>owing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1788	1891	
==>*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1788	1891	
==>*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1788	1891	
==>*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "inf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21259	21361	
==>ted by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the corresp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25811	25913	
==>ted by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the corresp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24435	24537	
==>ted by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the corresp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1998	2163	
==>ore => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2245	2410	
==>ore => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20603	20701	
==>='> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <AssignmentExpre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2499	2619	
==>ve {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2499	2619	
==>ve {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2499	2619	
==>ve {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8036	8140	
==>ns;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8036	8140	
==>ns;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %chann <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30986	31075	
==>ndler
must start with "POSIX_".

=item $parser->del_handler(@handle_names)

This uninstall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10595	10732	
==>{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10595	10732	
==>{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10595	10732	
==>{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1470	1566	
==>l|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1470	1566	
==>l|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1470	1566	
==>l|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30221	30315	
==>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34773	34867	
==>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33946	34040	
==>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operator. It retu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8709	8800	
==>of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8709	8800	
==>of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13642	13771	
==>ody.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15167	15296	
==>ody.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12634	12751	
==>ody.size() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new( head <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17016	17111	
==>lied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17016	17111	
==>lied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12078	12172	
==>ensitivity of C<cmp> as a Comparator.

If all criteria are exhausted when comparing two element <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12324	12452	
==>ed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12324	12452	
==>ed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12324	12452	
==>ed')->num  ) },
            'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16903	17043	
==>] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16903	17043	
==>] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16903	17043	
==>] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 N <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	843	981	
==>},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	843	981	
==>},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	843	981	
==>},
        <i ignorecase w words g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2900	3037	
==>ckup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js;
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2900	3037	
==>ckup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js;
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2900	3037	
==>ckup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{pStmts}->as_js;
}

1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34141	34238	
==>an be any defined and non-empty string.

=back

This is the main Translator constructor method:

= <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34141	34238	
==>an be any defined and non-empty string.

=back

This is the main Translator constructor method:

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8969	9110	
==>stplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1117	1244	
==>stplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1117	1244	
==>stplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6052	6151	
==>.Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6052	6151	
==>.Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6052	6151	
==>.Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8102	8328	
==>p = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8102	8328	
==>p = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8102	8328	
==>p = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1281	1455	
==>eld") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1281	1455	
==>eld") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1281	1455	
==>eld") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1387	1487	
==>ug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1308	1404	
==>ug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13264	13372	
==>1.5
      <Identifier>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpression :words {  # see 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21823	21917	
==>eful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21823	21917	
==>eful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1932	2049	
==>test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1932	2049	
==>test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2012	2129	
==>test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11323	11464	
==>->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11323	11464	
==>->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11323	11464	
==>->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->na <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6175	6340	
==>n @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    ST <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6175	6340	
==>n @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    ST <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	745	857	
==>e(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  whil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	337	491	
==>$?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	337	491	
==>$?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10834	10935	
==>rd_mnt/welcome.p6"],
  );
  step
    descr  => "Copying Pugs, Parrot, Bash, inputrc, the terminfo desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2467	2579	
==>r the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2467	2579	
==>r the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2467	2579	
==>r the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11764	11863	
==>code_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::En <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11764	11863	
==>code_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::En <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	237	333	
==>use warnings;
no warnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14101	14195	
==>to specify which
characters to consider unsafe (i.e., which to escape). The default set
of char <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14101	14195	
==>to specify which
characters to consider unsafe (i.e., which to escape). The default set
of char <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24289	24370	
==>aptures(amat(_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),amat([],G)).
m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1883	1978	
==>l be specified in the options; check your 
cipher's documentation for details.

=item C<decipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1883	1978	
==>l be specified in the options; check your 
cipher's documentation for details.

=item C<decipher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1288	1410	
==>'$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuilder->FETCH( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23684	23801	
==>qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23684	23801	
==>qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23684	23801	
==>qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$q <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34557	34654	
==>s a single Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39107	39204	
==>s a single Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13368	13473	
==>{ scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13368	13473	
==>{ scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13368	13473	
==>{ scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17585	17746	
==>R',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17585	17746	
==>R',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5702	5800	
==>:Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs::Grammar::Term.angle_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9706	9821	
==>:EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9706	9821	
==>:EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9706	9821	
==>:EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	612	751	
==>!$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	612	751	
==>!$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	612	751	
==>!$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	642	748	
==>>{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	642	748	
==>>{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	642	748	
==>>{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVa <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	718	836	
==>s);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	718	836	
==>s);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	494	613	
==>_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	494	613	
==>_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	494	613	
==>_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self->{CC}->as_js,
      $de <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5977	6113	
==>n
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5977	6113	
==>n
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $cod <==
3	/Users/nnunley/pugs/util/grokprims.pl	1466	1570	
==>args}}) .")";
  } elsif (/(list|chaining) infix/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0";
  } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	319	422	
==>uma is the rational soul, really concreate and practical 
# things like Object, Package and Module. It w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	319	422	
==>uma is the rational soul, really concreate and practical 
# things like Object, Package and Module. It w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	319	422	
==>uma is the rational soul, really concreate and practical 
# things like Object, Package and Module. It w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19435	19572	
==>nClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19435	19572	
==>nClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19435	19572	
==>nClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7086	7192	
==>rement\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7086	7192	
==>rement\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7086	7192	
==>rement\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2812	2914	
==>method _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2812	2914	
==>method _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32462	32557	
==>e visual representation of this object.

=item zerolen

Whether this object does is zero-width ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4581	4694	
==>ode, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::procl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4639	4752	
==>ode, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::procl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3245	3352	
==>l::Caller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4031	4134	
==>}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4031	4134	
==>}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1088	1190	
==>:Subscription) {
        map { Class::Events::Notification.new(:subscriber($_), :event($event)) }, *@su <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3007	3116	
==>$syncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21666	21756	
==>f DBI's provided independence
is I<Database Driver Independence>, and not I<Database Langua <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21666	21756	
==>f DBI's provided independence
is I<Database Driver Independence>, and not I<Database Langua <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4238	4331	
==>ing(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4238	4331	
==>ing(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4238	4331	
==>ing(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27783	27890	
==>t and a boolean as arguments.
The boolean is true if the flag is going to be turned on, and false if
it's go <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5201	5296	
==>ess or failure

=item data

The C<data> method returns a hash reference representing the configu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5201	5296	
==>ess or failure

=item data

The C<data> method returns a hash reference representing the configu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11259	11414	
==>patch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11259	11414	
==>patch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11259	11414	
==>patch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4436	4542	
==>, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, an <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4436	4542	
==>, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6633	6739	
==>, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, an <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	540	640	
==>GS = ('all' => \@EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) {
  return(undef, $input) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1861	1958	
==><i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4, I <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1861	1958	
==><i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4, I <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	793	1031	
==>sh);
            },
            hash_fetchElem => sub {
                my $self = shift;
                my $idx = shift;
                $self->hash_fetch->{$idx};
            },
            hash_storeElem => sub {
                my $se <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4769	4876	
==>)) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
lib <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4769	4876	
==>)) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
lib <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19517	19607	
==>lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thess <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19517	19607	
==>lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thess <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3144	3250	
==>iler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3144	3250	
==>iler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4096	4238	
==>return unless $_ eq $basename;
            push @candidates, $File::Find::name;
        };
        find $wanted, "dist";

        if (@candidat <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1089	1213	
==>eturn {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib, <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1089	1213	
==>eturn {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8593	8700	
==>= "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8593	8700	
==>= "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8593	8700	
==>= "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21108	21292	
==>elf:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44032	44199	
==>elf:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->ge <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	447	549	
==>hift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\$(?:(?:\:\:)?[_[:alnum:]]+)+)(. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	45	137	
==>ompatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaint <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	45	137	
==>ompatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaint <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14892	14975	
==>------------------------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0), <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3718	3836	
==>s the optional
description of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3718	3836	
==>s the optional
description of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $desc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3798	3916	
==>s the optional
description of the test.  This is the easiest way to match a passing test.

=item B<test_fail( Str $desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16473	16571	
==>ther ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16473	16571	
==>ther ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16473	16571	
==>ther ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5108	5220	
==>ts parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the rem <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5108	5220	
==>ts parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the rem <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1394	1491	
==>ig{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($^O =~ /MSWin32|msys/) { # On cygwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2830	2964	
==>.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2830	2964	
==>.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2830	2964	
==>.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	191	331	
==>lf:) {
    die "There can only be one instance of POE::Kernel."
      if defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2438	2531	
==>d all_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4575	4690	
==>FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4575	4690	
==>FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4575	4690	
==>FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4993	5164	
==>_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = sel <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4993	5164	
==>_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = sel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22003	22103	
==>chStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseBl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5692	5815	
==>r %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXIC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5692	5815	
==>r %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXIC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5692	5815	
==>r %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXIC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3908	4030	
==>udepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3908	4030	
==>udepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3908	4030	
==>udepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	775	878	
==>08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	775	878	
==>08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	775	878	
==>08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2339	2440	
==>:Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2339	2440	
==>:Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2339	2440	
==>:Module);
$::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	115	262	
==>imple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Repository;

use base 'Object::Accessor';

=head2 $set = JIB::Reposit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7929	8031	
==>call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinit <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7929	8031	
==>call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinit <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	49	212	
==>rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	49	212	
==>rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1256	1357	
==>ing dependencies.  Please wait...\n\n";

    # XXX - instead of --user, use our own package-conf stora <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23584	23752	
==>y fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23584	23752	
==>y fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23584	23752	
==>y fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	599	717	
==>l_env
    } => $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1197	1307	
==>l_env
    } => $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13427	13536	
==>my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, \$how);
  });

  # alnum P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2056	2146	
==>>name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2056	2146	
==>>name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2056	2146	
==>>name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create th <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16418	16544	
==>ift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16418	16544	
==>ift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20804	20902	
==>.
rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14797	14908	
==>.. })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedded_code <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7101	7202	
==>gate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, B <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7159	7260	
==>gate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, B <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1971	2103	
==>ringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1971	2103	
==>ringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	484	586	
==>CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	484	586	
==>CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	484	586	
==>CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      unless g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29487	29595	
==>the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34039	34147	
==>the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33203	33311	
==>the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
named attributes <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6536	6637	
==>he kernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $ke <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1497	1586	
==>C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed fr <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1497	1586	
==>C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed fr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13949	14063	
==>nt 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13949	14063	
==>nt 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        p <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13134	13245	
==>ations should create a suitable macro, or otherwise support the
unary form C<delete %hash{$key}> in all it's for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1039	1160	
==>=> "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1039	1160	
==>=> "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1039	1160	
==>=> "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5978	6102	
==>t( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5966	6090	
==>t( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	800	899	
==>pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	800	899	
==>pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	800	899	
==>pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5433	5660	
==>al ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally rem <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5433	5660	
==>al ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally rem <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1209	1317	
==>trap to something cleaner and simpler.  Even though it will
# likely lack R:P's nice error messages.


# Test <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34972	35111	
==>>new($e, sub {
                       my $e = shift;
                       ($e->get('$return') == $bit::FALSE && $e->get('$next') != $nil:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1601	1704	
==>$cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span:: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1601	1704	
==>$cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span:: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8763	8878	
==>esult);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exit(0 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21979	22072	
==>ibute Relation with zero tuples or
one tuple respectively have a special meaning in relational <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26531	26624	
==>ibute Relation with zero tuples or
one tuple respectively have a special meaning in relational <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6236	6373	
==>re     keys    safe   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3307	3398	
==>$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3307	3398	
==>$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3307	3398	
==>$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ($ENV{PERL5LIB} | <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14592	14723	
==>lass Time::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregorian dates are inaccurate" - GHC
                        # System. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11248	11353	
==>ath_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardabl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11248	11353	
==>ath_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1607	1716	
==><",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1607	1716	
==><",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1607	1716	
==><",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4667	4798	
==>XX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4667	4798	
==>XX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4667	4798	
==>XX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12462	12559	
==>pe ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12462	12559	
==>pe ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12462	12559	
==>pe ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2461	2585	
==>M->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2461	2585	
==>M->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2461	2585	
==>M->superclasses($sc);
	} elsif($key eq 'class') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3975	4161	
==>pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7452	7638	
==>pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6418	6604	
==>pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4096	4200	
==>ew PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4096	4200	
==>ew PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4096	4200	
==>ew PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1878	2022	
==>nstance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1878	2022	
==>nstance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1878	2022	
==>nstance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_at <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12819	12947	
==>ges yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	621	720	
==>);
		$self->SUPER::generic_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2619	2727	
==>ion

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2619	2727	
==>ion

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2619	2727	
==>ion

# TODO - sum()
# TODO - there are too many methods under AUTOLOAD - upgrade them to real methods
#
# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3570	3674	
==>k   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3570	3674	
==>k   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3570	3674	
==>k   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14537	14663	
==>unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to us <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14537	14663	
==>unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to us <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14537	14663	
==>unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4070	4178	
==>u can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4070	4178	
==>u can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you  <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4070	4178	
==>u can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so that you  <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	990	1158	
==>pp(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sym('&f'),
							Val(2),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	881	974	
==>Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perld <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	881	974	
==>Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perld <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6321	6460	
==>{
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6309	6448	
==>{
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18864	18944	
==>_repeat_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(_Re,_,F0,F0,B0,B0,E0,E0 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3814	4139	
==>->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3223	3400	
==>}
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3223	3400	
==>}
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2705	2801	
==>bel;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2705	2801	
==>bel;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2705	2801	
==>bel;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5983	6117	
==>>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5983	6117	
==>>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5983	6117	
==>>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11685	11804	
==>"PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11685	11804	
==>"PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2588	2703	
==>$justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2588	2703	
==>$justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2935	3050	
==>$justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	405	507	
==>pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want synt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	405	507	
==>pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want synt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	405	507	
==>pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want synt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1597	1698	
==>nd -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1597	1698	
==>nd -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1597	1698	
==>nd -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39993	40227	
==>aque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19542	19767	
==>aque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%p <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3096	3193	
==>\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my ($n, $c) = ($1, $2);
    $c =~ s/^\{[\s\n]*(.+)\}/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10	122	
==>/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10	122	
==>/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10	122	
==>/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	736	839	
==>r $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.conne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	736	839	
==>r $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.conne <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	126	220	
==>get_int';
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3563	3671	
==>efault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3563	3671	
==>efault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3563	3671	
==>efault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7007	7154	
==>rint "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6995	7142	
==>rint "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6260	6406	
==>um} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gathe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	784	936	
==>ANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	784	936	
==>ANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	784	936	
==>ANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_key <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2041	2159	
==>unk(
            Stub("&func is not really implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelude <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8362	8467	
==>Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # c <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8362	8467	
==>Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2678	2791	
==>position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2678	2791	
==>position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2678	2791	
==>position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8476	8586	
==>ks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($match. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8476	8586	
==>ks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($match. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5476	5604	
==>xtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTE <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5476	5604	
==>xtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2254	2361	
==>oto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2254	2361	
==>oto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2254	2361	
==>oto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $cod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14285	14431	
==>($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17762	17908	
==>($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17178	17324	
==>($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4541	4671	
==>->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE IT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4541	4671	
==>->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE IT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4541	4671	
==>->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE IT <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6108	6205	
==>e long string.

=item List Context

All headers are returned split into the respective
lines.

=it <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6108	6205	
==>e long string.

=item List Context

All headers are returned split into the respective
lines.

=it <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10715	10841	
==>_mnt/etc/terminfo/l/linux"],
    [$linuxrc              => "$initrd_mnt/linuxrc"],
    [$welcome_p6           => "$initrd_mnt/w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18343	18433	
==>appropriate measures
such as system-managed locks so that resource corruption or applicatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18343	18433	
==>appropriate measures
such as system-managed locks so that resource corruption or applicatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4338	4485	
==>= 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4338	4485	
==>= 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4338	4485	
==>= 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9688	9796	
==>y $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9688	9796	
==>y $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9688	9796	
==>y $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2017	2114	
==>ameSplit ", length @nameSplit, " ", $#nameSplit, "\n";
  my @spacePresent = split / /, $nameSplit[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9348	9437	
==>g_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module', <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9348	9437	
==>g_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	468	557	
==>genClass = undef;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	468	557	
==>genClass = undef;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	468	557	
==>genClass = undef;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1300	1397	
==>ginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1300	1397	
==>ginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1300	1397	
==>ginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3040	3255	
==>::opaque_instance_class($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass->superclass($class);
                }
                $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16049	16144	
==>In some
situations, a shared program component may raise such a condition, and one
application m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16049	16144	
==>In some
situations, a shared program component may raise such a condition, and one
application m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7303	7488	
==>fier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7496	7681	
==>fier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5274	5389	
==>::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5274	5389	
==>::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5274	5389	
==>::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_a <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6195	6388	
==>y; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6195	6388	
==>y; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5474	5590	
==>$jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5474	5590	
==>$jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5474	5590	
==>$jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name <==
3	/Users/nnunley/pugs/util/package-osx.pl	10526	10675	
==>[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local/bin';\n
        my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4413	4523	
==>olation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4413	4523	
==>olation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10958	11072	
==>r} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  });


  ### ')' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	578	671	
==>IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. When it i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	578	671	
==>IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. When it i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9875	10086	
==>},
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9875	10086	
==>},
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9875	10086	
==>},
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0 <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15858	15993	
==>ut, unless specified otherwise.

=over

=item chop

 multi Str::chop (  Str  $string is rw                 --> Char )
 multi Str::chop ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27492	27593	
==>ssage object, you must create a new
object that is a clone of the first but for the changes.

=back

A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27492	27593	
==>ssage object, you must create a new
object that is a clone of the first but for the changes.

=back

A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	150	256	
==>ed - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't chec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	150	256	
==>ed - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't chec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	150	256	
==>ed - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't chec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1337	1428	
==>al_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = jo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1337	1428	
==>al_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = jo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1337	1428	
==>al_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = jo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	957	1060	
==>riables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	957	1060	
==>riables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1578	1683	
==>e = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1578	1683	
==>e = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1578	1683	
==>e = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4322	4423	
==>($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_bool {$_[0]?1:undef}
sub p6_bit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34662	34758	
==>f the invocant Relation, and returns a new Relation that has the
same heading as the invocant and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39212	39308	
==>f the invocant Relation, and returns a new Relation that has the
same heading as the invocant and <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4954	5084	
==>")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_sinc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4954	5084	
==>")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_sinc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2438	2552	
==>ult;
	my $warn = $result->warnings();
	$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16995	17090	
==>attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16995	17090	
==>attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16995	17090	
==>attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make_attribute(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1806	1934	
==>s.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1806	1934	
==>s.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1806	1934	
==>s.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2300	2394	
==>proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2300	2394	
==>proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7253	7346	
==>I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test(Rk), p5_concatenation(R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1298	1395	
==>IKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1298	1395	
==>IKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1298	1395	
==>IKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	951	1050	
==>de::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	951	1050	
==>de::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	951	1050	
==>de::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34014	34142	
==>nfinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34014	34142	
==>nfinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34014	34142	
==>nfinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8251	8414	
==>ush @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8251	8414	
==>ush @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8251	8414	
==>ush @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5487	5587	
==>test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role ext <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5487	5587	
==>test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role ext <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7684	7784	
==>test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role ext <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16638	16754	
==>S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13059	13175	
==>S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char <==
3	/Users/nnunley/pugs/util/package-osx.pl	392	507	
==>/parrot/) {
    @files = qw(
        /usr/local/bin/parrot-config
        /usr/local/bin/pbc_merge
        /usr/loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7301	7455	
==>w('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7301	7455	
==>w('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7301	7455	
==>w('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	109	204	
==>c->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	109	204	
==>c->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	109	204	
==>c->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2875	2983	
==>$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2875	2983	
==>$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2875	2983	
==>$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at compil <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37720	37832	
==>d merged.  The heading of the new relation is the union of
all the headings of the source relations.  The body of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42269	42381	
==>d merged.  The heading of the new relation is the union of
all the headings of the source relations.  The body of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41919	42031	
==>d merged.  The heading of the new relation is the union of
all the headings of the source relations.  The body of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30357	30451	
==>ibute names of the invocant
Relation::Example.  This method has an alias named C<select>.

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12409	12527	
==>rom_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$com <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12409	12527	
==>rom_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7302	7481	
==>ls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7302	7481	
==>ls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7302	7481	
==>ls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2200	2306	
==>st for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2200	2306	
==>st for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6163	6295	
==>ost-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5966	6090	
==>ost-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1316	1411	
==>=> \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1316	1411	
==>=> \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1316	1411	
==>=> \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	562	746	
==>y $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25142	25283	
==>e_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25421	25562	
==>e_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4732	4831	
==>SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4732	4831	
==>SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4732	4831	
==>SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5202	5305	
==>UB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5202	5305	
==>UB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5202	5305	
==>UB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24263	24355	
==>s(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	386	489	
==>RCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	386	489	
==>RCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	386	489	
==>RCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9945	10125	
==>Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2010	2176	
==>Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2010	2176	
==>Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10257	10376	
==>apped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10257	10376	
==>apped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10257	10376	
==>apped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6636	6759	
==>SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6636	6759	
==>SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6636	6759	
==>SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	556	672	
==>IL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	556	672	
==>IL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	556	672	
==>IL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3442	3551	
==>sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3442	3551	
==>sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3442	3551	
==>sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1017	1156	
==>{
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1017	1156	
==>{
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1017	1156	
==>{
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36457	36549	
==>late_message( $message! )>

This method takes a (machine-readable) Message object as its posi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36457	36549	
==>late_message( $message! )>

This method takes a (machine-readable) Message object as its posi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37590	37697	
==>f combining all of the source Relations,
such that all common attribute names and corresponding common tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42139	42246	
==>f combining all of the source Relations,
such that all common attribute names and corresponding common tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41789	41896	
==>f combining all of the source Relations,
such that all common attribute names and corresponding common tuple <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7365	7647	
==>(
                bonus    => 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skipped  => 0,
                t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1332	1430	
==>lf.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: * <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1332	1430	
==>lf.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: * <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	62	151	
==>::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2933	3041	
==>hing's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2933	3041	
==>hing's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2933	3041	
==>hing's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22258	22354	
==>xa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22258	22354	
==>xa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22258	22354	
==>xa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5043	5244	
==>y;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5043	5244	
==>y;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5043	5244	
==>y;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ke <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4896	5023	
==>of"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(9 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4896	5023	
==>of"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(9 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	180	288	
==>TCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	180	288	
==>TCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	180	288	
==>TCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34289	34390	
==>neric relational operator that returns the complement of
C<semijoin> with the same argument.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38839	38940	
==>neric relational operator that returns the complement of
C<semijoin> with the same argument.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38318	38419	
==>neric relational operator that returns the complement of
C<semijoin> with the same argument.  This met <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1128	1222	
==>ven't been selected won't be printed.  It is designed for so-called 
"print-based debugging", b <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1128	1222	
==>ven't been selected won't be printed.  It is designed for so-called 
"print-based debugging", b <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20292	20380	
==>riableDeclarationNoIn>
    | <VariableDeclarationListNoIn> <','> <VariableDeclarationNoIn <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9158	9279	
==>= LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencie <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10635	10756	
==>= LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2986	3087	
==>e_file);
my $match  = Pugs::Compiler::Grammar->grammar($source);
print "$match";

sub slurp {
    my $ <==
3	/Users/nnunley/pugs/util/package-osx.pl	11743	11849	
==>st$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1185	1289	
==>$key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1185	1289	
==>$key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1185	1289	
==>$key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13949	14101	
==>if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13949	14101	
==>if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13949	14101	
==>if ($label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3718	3831	
==>genClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3718	3831	
==>genClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3718	3831	
==>genClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11254	11346	
==>ok { $iBar->name } '... instance calling metaclass method fails';
fails_ok { $iBar->another_s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14377	14468	
==>on(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14377	14468	
==>on(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7556	7665	
==>:$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7556	7665	
==>:$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7556	7665	
==>:$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3183	3273	
==>($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3183	3273	
==>($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3183	3273	
==>($self => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7545	7697	
==>undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7545	7697	
==>undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7545	7697	
==>undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3628	3754	
==>package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) { <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3686	3812	
==>package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) { <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20035	20161	
==>tstr) }
 multi prefix:<:2> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(2,$binstr) }
 multi prefi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3346	3494	
==>ance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'id' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2350	2495	
==>ance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2555	2700	
==>ance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13976	14095	
==>::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13976	14095	
==>::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13976	14095	
==>::p6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2207	2344	
==>l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2207	2344	
==>l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2207	2344	
==>l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2965	3083	
==>y $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2965	3083	
==>y $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2965	3083	
==>y $class_description = '-0.0.1-cpan:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	692	805	
==>ss->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	692	805	
==>ss->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	692	805	
==>ss->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29727	29823	
==>ted.  As such,
it would be pre-consumptive.

There is an interesting case of the right parenthesi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8638	8733	
==>nsecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher:: <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8638	8733	
==>nsecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1443	1543	
==>conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1443	1543	
==>conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1443	1543	
==>conf(pugs           => $cfg{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2058	2150	
==>r = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2058	2150	
==>r = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2058	2150	
==>r = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6051	6154	
==>$xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6051	6154	
==>$xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6051	6154	
==>$xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2446	2553	
==>=> ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2446	2553	
==>=> ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2446	2553	
==>=> ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2262	2381	
==>($code) };
            when 'yaml'    { Pugs::Internals::eval_yaml($code) };

            die "Language \"$lang\" unknow <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3873	3970	
==>re_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3873	3970	
==>re_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_uni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11907	11999	
==>Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11907	11999	
==>Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11907	11999	
==>Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	849	958	
==>--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    fo <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	849	958	
==>--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11851	11974	
==>nts, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12130	12253	
==>nts, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "gr <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6350	6448	
==>op{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10079	10210	
==>re( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10079	10210	
==>re( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> no <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4123	4252	
==>h ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{no_index} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10961	11062	
==>defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10961	11062	
==>defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10961	11062	
==>defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-work <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1703	1804	
==>}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	warn "compiled: $compi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3301	3390	
==>at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3301	3390	
==>at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	752	884	
==>' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	752	884	
==>' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	752	884	
==>' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7951	8238	
==>t; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7951	8238	
==>t; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7951	8238	
==>t; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1107	1208	
==>l6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1107	1208	
==>l6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1107	1208	
==>l6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6704	6801	
==>this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6704	6801	
==>this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6704	6801	
==>this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6587	6700	
==>.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'ch <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6587	6700	
==>.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'ch <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1032	1125	
==>head1 SYNOPSIS

    use Blondie::Backend::Perl;

=head1 DESCRIPTION

L<Blondie::Backend::Perl: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12600	12746	
==>= $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12600	12746	
==>= $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8183	8272	
==>os([s|L])  --> "s", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([x|L])  --> "x", p5_m <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1654	1793	
==>file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = re <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1654	1793	
==>file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = re <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	385	499	
==>Config{archname},
        exe_ext   => $Config{exe_ext},
        path_sep  => $Config{path_sep},

        scriptdir <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2380	2478	
==>o) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2380	2478	
==>o) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	957	1074	
==>return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	957	1074	
==>return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	957	1074	
==>return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2974	3128	
==>f ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2974	3128	
==>f ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2974	3128	
==>f ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19720	19919	
==>stant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19999	20198	
==>stant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1706	1811	
==>params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1706	1811	
==>params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1706	1811	
==>params) = @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALK <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7078	7201	
==>"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7078	7201	
==>"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => c <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1823	1940	
==>%sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)),
        (map { $_ => '@' } qw(flat_array array iarray)), <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	95	195	
==>::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	95	195	
==>::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
us <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34776	34870	
==>tion::Example or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8603	8783	
==>rint $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12511	12686	
==>rint $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12511	12686	
==>rint $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	59	168	
==>n (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	59	168	
==>n (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	59	168	
==>n (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems = <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1706	1818	
==>onfig->{exe_ext}");

    ($config->{file_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die "Can't det <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1305	1399	
==>our is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1305	1399	
==>our is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21981	22098	
==>pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $lengt <==
3	/Users/nnunley/pugs/util/build_pugs.pl	991	1104	
==>ELUDE segment";
    
    print "Build configuration:\n" . PugsBuild::Config->pretty_print;

    my ($version, $ghc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10497	10601	
==>er->new;
my $code = join "" => $i->parse($source), '';

warn "\n" . $code . "\n";

eval $code;
warn $@ if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	195	306	
==>e('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	195	306	
==>e('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	195	306	
==>e('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.set <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3122	3234	
==>> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3122	3234	
==>> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1194	1317	
==>essively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1194	1317	
==>essively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22370	22470	
==>t(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => ide("length_and_fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9068	9169	
==>::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9068	9169	
==>::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9068	9169	
==>::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8130	8242	
==>more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8130	8242	
==>more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8130	8242	
==>more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	975	1071	
==>e::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	975	1071	
==>e::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	975	1071	
==>e::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7136	7284	
==>tems should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7136	7284	
==>tems should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7136	7284	
==>tems should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	160	291	
==>use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	160	291	
==>use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	160	291	
==>use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	264	356	
==>l6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	264	356	
==>l6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	264	356	
==>l6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3535	3646	
==>s
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3535	3646	
==>s
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3535	3646	
==>s
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19825	20063	
==>y(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40285	40523	
==>y(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	650	769	
==>Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self, 'T <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	77	180	
==>die::Reducer::DynamicScoping Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
us <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	211	324	
==>t) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	211	324	
==>t) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9806	9915	
==>f->{_is_macos} ) {
        my @inc = $self->_filtered_INC;
        push @derived_switches, map { "-I$_" } @inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12884	12998	
==>rl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12884	12998	
==>rl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12884	12998	
==>rl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	526	673	
==>P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	526	673	
==>P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27601	27692	
==>:*> objects inherit from
F<Regexp::Parser::__object__>, the global object base class.  All
u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2423	2519	
==>ciphered; when you're done, call the closure 
with no arguments to finish the ciphering and clear <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2423	2519	
==>ciphered; when you're done, call the closure 
with no arguments to finish the ciphering and clear <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5226	5322	
==>th"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } for `@ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2381	2513	
==>wn.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    mult <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6926	7034	
==>ed ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $con <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6984	7092	
==>ed ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	880	1022	
==>se => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	880	1022	
==>se => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	880	1022	
==>se => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1740	1841	
==>, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1740	1841	
==>, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1740	1841	
==>, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5058	5186	
==>return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2600	2728	
==>return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3381	3509	
==>return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3259	3351	
==>essors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3259	3351	
==>essors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	630	815	
==>rsion itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	630	815	
==>rsion itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	630	815	
==>rsion itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	954	1056	
==>dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	954	1056	
==>dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	954	1056	
==>dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24856	24951	
==>st too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24856	24951	
==>st too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9355	9449	
==>rset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_item(class_pos(X) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	317	419	
==>::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	317	419	
==>::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2222	2332	
==>ole->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2222	2332	
==>ole->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2222	2332	
==>ole->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authorit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36487	36582	
==>o source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
em <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41036	41131	
==>o source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
em <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40650	40745	
==>o source relations are
combined is inconsequential.  A trivial case is where C<@others> is an
em <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5810	5906	
==>The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status code i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5810	5906	
==>The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status code i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2966	3123	
==>rn sub {
        my $bool = $const eq substr( $_[0], $_[5], $lconst );
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1222	1326	
==>ent, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1222	1326	
==>ent, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18727	18935	
==>y is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18727	18935	
==>y is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18727	18935	
==>y is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	536	638	
==>2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	536	638	
==>2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	536	638	
==>2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implement <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4852	5006	
==>ot - $expected = " . ($got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got)."\n",
                       "# expected $type "._q <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	225	330	
==>y @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @Mon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	225	330	
==>y @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @Mon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2967	3070	
==>o from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2967	3070	
==>o from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2967	3070	
==>o from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1922	2037	
==>ER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1922	2037	
==>ER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1922	2037	
==>ER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = PIL::name_mangle $name;
    if($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16376	16528	
==>ay = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16376	16528	
==>ay = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16376	16528	
==>ay = shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3503	3606	
==>ram_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = del <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3503	3606	
==>ram_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = del <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4093	4196	
==>ram_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = del <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4953	5090	
==>sename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alterna <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4177	4302	
==>sename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alterna <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4134	4268	
==>:ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4327	4461	
==>:ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4142	4281	
==>'$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4142	4281	
==>'$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4142	4281	
==>'$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20133	20226	
==>greatly (it isn't what's important;
the interface/behaviour is), this Relation data type is pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24685	24778	
==>greatly (it isn't what's important;
the interface/behaviour is), this Relation data type is pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33696	33824	
==>he node's child.

=head2 Creating an Object

Ok, back to our F<Regexp::AndBranch> example.  Let me explain what the
'&' metachara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39033	39184	
==>->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39033	39184	
==>->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39033	39184	
==>->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1468	1597	
==>w();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1468	1597	
==>w();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1468	1597	
==>w();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Arr <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	679	787	
==>ums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi * <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	679	787	
==>ums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5121	5219	
==>put PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5121	5219	
==>put PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5121	5219	
==>put PIL as YAML; don't compile anything.

When compiling (--link option not given), there has to be <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4128	4231	
==>> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35737	35831	
==>ingle
Relation::Example in its C<$other> argument, where <$other> has the same heading as
the i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37769	37863	
==>ingle Relation::Example
in its C<$other> argument, where <$other> has the same heading as the
i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5777	5890	
==>$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpol <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5765	5878	
==>$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpol <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3680	3776	
==>:Compiler::Rule> should fix the problem.

- The perl5 executable must have PMC support. 

PMC sup <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35483	35578	
==>l Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35483	35578	
==>l Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22224	22319	
==>ning raised by a zero-width
assertion followed by C<?>, which doesn't warrant the warning.

Adde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24106	24247	
==>6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24106	24247	
==>6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24106	24247	
==>6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(de <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10763	10905	
==>/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10763	10905	
==>/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1805	1921	
==>{
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
)) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1805	1921	
==>{
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2214	2328	
==>. $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2214	2328	
==>. $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2214	2328	
==>. $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $auth <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	523	647	
==>reated as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash ref <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	523	647	
==>reated as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash ref <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10203	10297	
==>able, $isLazy, $paramName, $paramContext, $paramDefault) {
    my $default; $default = DOWN($pa <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	716	825	
==>n PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or di <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	716	825	
==>n PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21119	21214	
==>ix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21119	21214	
==>ix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21119	21214	
==>ix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12346	12481	
==>y $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.nu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2726	2857	
==>y $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.nu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2726	2857	
==>y $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.nu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12457	12594	
==>turn join( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This want <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2833	2960	
==>turn join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This want <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2833	2960	
==>turn join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This want <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1336	1445	
==>tr) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1336	1445	
==>tr) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1336	1445	
==>tr) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	988	1092	
==>_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	988	1092	
==>_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	988	1092	
==>_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2282	2518	
==>_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2282	2518	
==>_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2282	2518	
==>_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	144	253	
==>rn bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	144	253	
==>rn bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	144	253	
==>rn bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	7	117	
==>ict;
use YAML            qw[LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Cwd;
use Config;

BEG <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6039	6143	
==>sed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6039	6143	
==>sed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () retur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16077	16182	
==>at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16077	16182	
==>at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2228	2345	
==>}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2228	2345	
==>}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2228	2345	
==>}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24275	24368	
==>cales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is ent <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24275	24368	
==>cales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is ent <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2676	2784	
==>only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2860	2968	
==>only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	21	125	
==>Parameter definieren
class Welt {
	method hallo ( $name ) { "Hallo, $name!".say; }
}
#=Methoden mit einem <==
3	/Users/nnunley/pugs/util/package-osx.pl	11233	11417	
==>n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{
                print "Problem removing \$file\: \$_\\n";
            \}
            else \{
                print "Succes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13802	13903	
==>z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13802	13903	
==>z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13802	13903	
==>z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MUL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2214	2382	
==>cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2214	2382	
==>cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cooki <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6523	6649	
==>oing the right thing\n";
	$decl = "no strict; ($varlist)$init; use strict;";
    }
    else { die "bug $sn" }
    my $body = DO <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4546	4651	
==>ry to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4938	5043	
==>ry to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5449	5554	
==>ry to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/binding/a <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	65	173	
==>a" x 3  # "aaa"

#=der xx Operator
# neu in Perl 6 ist der xx Operator
# so wie x Strings wiederholt, wiederh <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1868	1975	
==>l {

    # for some reason, directly returning this expression does not
    # yield the correct return value <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1868	1975	
==>l {

    # for some reason, directly returning this expression does not
    # yield the correct return value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11071	11227	
==>$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11071	11227	
==>$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11071	11227	
==>$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2592	2685	
==>w_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2592	2685	
==>w_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2592	2685	
==>w_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5374	5558	
==>fault =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5374	5558	
==>fault =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5374	5558	
==>fault =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1274	1376	
==>air_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1274	1376	
==>air_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1274	1376	
==>air_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5720	5862	
==>me)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5720	5862	
==>me)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5720	5862	
==>me)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3307	3403	
==>:Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3307	3403	
==>:Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5504	5600	
==>:Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	728	855	
==>entById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	728	855	
==>entById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	728	855	
==>entById("__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	876	1038	
==>=>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	876	1038	
==>=>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	876	1038	
==>=>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $::SELF- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3681	3774	
==>method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3681	3774	
==>method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3681	3774	
==>method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18678	18797	
==>hods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18678	18797	
==>hods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18678	18797	
==>hods get called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27179	27334	
==>s'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27458	27613	
==>s'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11214	11326	
==>er was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11214	11326	
==>er was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	470	571	
==>le
# the spike "coded to the tests", and thus is far from being a
# complete p5 compatible regex engin <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1392	1490	
==>strings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by giv <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1392	1490	
==>strings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by giv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5639	5745	
==>t.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5639	5745	
==>t.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5639	5745	
==>t.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2137	2248	
==>$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2137	2248	
==>$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2137	2248	
==>$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2650	2756	
==>x = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1262	1368	
==>x = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1963	2069	
==>x = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3151	3256	
==>nt_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3151	3256	
==>nt_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3151	3256	
==>nt_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3371	3495	
==>('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3371	3495	
==>('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3371	3495	
==>('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	321	457	
==>.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I sto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	321	457	
==>.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I sto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	321	457	
==>.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I sto <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8626	8739	
==>y $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = recurse($v0);
    $s = "\"$v0\"" if $n eq 'VStr' && $s !~ /\A\" <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8658	8763	
==>hod subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8658	8763	
==>hod subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9294	9519	
==>>fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9294	9519	
==>>fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9294	9519	
==>>fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	925	1077	
==>t = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	925	1077	
==>t = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	925	1077	
==>t = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::Ev <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5827	5922	
==>ode (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5827	5922	
==>ode (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3038	3186	
==>ll->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3038	3186	
==>ll->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3038	3186	
==>ll->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7327	7513	
==>te_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7327	7513	
==>te_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7327	7513	
==>te_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18650	18771	
==>p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18650	18771	
==>p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18650	18771	
==>p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3439	3537	
==>y @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3439	3537	
==>y @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3439	3537	
==>y @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19934	20051	
==>f, ' ', {}));
    }
}

# calculate output path of a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14897	15007	
==>eric") },
      scalar_non_numeric => sub { $as_hash_complain->("scalar_non_numeric") },
      array => sub { { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11546	11646	
==>-- they get interpolated
by Perl first.  In fact, if one slipped through:

  my $rx = '\N{LATIN CAPIT <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	343	436	
==>_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: C <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	343	436	
==>_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: C <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17109	17232	
==>);

        # Now write to formats
        for my $script (sort keys %$failedtests) {
          $Curtest = $failedtests->{$s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	347	447	
==>.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.dif <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	347	447	
==>.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.dif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4461	4594	
==>\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4601	4734	
==>\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12568	12681	
==>$_[0]->as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1497	1605	
==>tring(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1497	1605	
==>tring(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1497	1605	
==>tring(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == St <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23167	23382	
==>que')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

me <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2110	2216	
==>oodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connecte <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2110	2216	
==>oodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connecte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3082	3182	
==>0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3082	3182	
==>0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3082	3182	
==>0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	867	961	
==>Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	867	961	
==>Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8356	8543	
==>method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8356	8543	
==>method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8356	8543	
==>method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5890	5993	
==>arse operands.

=head2 add_op ()

Instance method.  Adds a new operator to the category.

options:

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6183	6276	
==>DO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6241	6334	
==>DO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20961	21170	
==>",
            body => fun(
                param => "n",
                body => cond(
                    if => comb(
                        fun => ide("is_nil?"),
                        param => ide("xs"), <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2982	3107	
==>t.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Si <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2982	3107	
==>t.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Si <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7514	7616	
==>a    ||= [MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBucket->new(@$data);

  my $exit;
  unless($ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	125	220	
==>me_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrenc <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	125	220	
==>me_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrenc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1767	1880	
==>type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlen <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1767	1880	
==>type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6696	6777	
==>-------------------------------------------------------------------

ok($Class->do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3040	3165	
==>hift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3587	3712	
==>hift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  su <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2882	3000	
==>cation

    Or add
        smoke_upload: 1 
    to your config.yml file if you want the reports to be uploaded
    auto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15865	16004	
==>'';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15865	16004	
==>'';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15865	16004	
==>'';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	997	1105	
==>eturn 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	997	1105	
==>eturn 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	997	1105	
==>eturn 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5190	5304	
==>Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5190	5304	
==>Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5190	5304	
==>Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6:: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	484	581	
==>cut

$VERSION = "2.46";

# Backwards compatibility for exportable variable names.
*verbose  = *Ver <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40973	41065	
==>version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40973	41065	
==>version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3989	4101	
==>ar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3989	4101	
==>ar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3989	4101	
==>ar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	137	261	
==>var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	137	261	
==>var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	137	261	
==>var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1782	1874	
==>-
Localization of Rosetta::Model for English

=head1 VERSION

This document describes Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1782	1874	
==>-
Localization of Rosetta::Model for English

=head1 VERSION

This document describes Rosetta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	953	1051	
==>l5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	953	1051	
==>l5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	953	1051	
==>l5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	849	978	
==>:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	849	978	
==>:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	244	347	
==>cheme, which can
be seen here:

  http://okmij.org/ftp/Scheme/pure-oo-system.scm

I ended up removing th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7393	7504	
==>d an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7393	7504	
==>d an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40955	41054	
==>ful when you need to
throw a warning that can only be figured out the second pass.

=item $parser->e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8551	8679	
==>subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12460	12586	
==>subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12460	12586	
==>subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8288	8374	
==>lc->expand();
}

#===================================================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8288	8374	
==>lc->expand();
}

#===================================================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8288	8374	
==>lc->expand();
}

#===================================================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3527	3634	
==>->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3527	3634	
==>->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3527	3634	
==>->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1223	1324	
==>part of the Module is simply a hash from strings

(symbol names) to objects (containers)



the Code p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1168	1266	
==>part of the Module is simply a hash from strings
(symbol names) to objects (containers)

the Code p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	574	668	
==>, $rule_source, $param ) = @_;

    return Pugs::Compiler::RegexPerl5->compile( $rule_source, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4822	4915	
==>tmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4822	4915	
==>tmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4822	4915	
==>tmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2473	2607	
==>al {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].inte <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2473	2607	
==>al {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].inte <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13971	14074	
==>st (use '..' or '\-')")
    goto end
  err_close:
    parse_error(mob, pos, "No closing ']>' for charlis <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21380	21475	
==>alue.

Every Relation attribute has a name that is distinct from the other
attributes, though se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25932	26027	
==>alue.

Every Relation attribute has a name that is distinct from the other
attributes, though se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	230	354	
==>"Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	230	354	
==>"Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	230	354	
==>"Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3042	3138	
==>}
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Avai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3042	3138	
==>}
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Avai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3042	3138	
==>}
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Avai <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3193	3325	
==>udge includes the
    # win32ified path as well.

    if ($Config{osname} eq q{cygwin}) {

        # The world's ugliest cygwin varia <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	619	719	
==>st character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - N <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	619	719	
==>st character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - N <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3356	3454	
==>riable {

    # External packages used by the Rosetta::Interface::Variable class, that do export sy <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3356	3454	
==>riable {

    # External packages used by the Rosetta::Interface::Variable class, that do export sy <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15383	15481	
==>olve must be a subref that tests the first argument
# for success, or returns the definition of suc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31045	31141	
==>se, the full name of a module
consists of the two parts concatenated without any delimiter.  This <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31045	31141	
==>se, the full name of a module
consists of the two parts concatenated without any delimiter.  This <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1811	1904	
==>_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	807	900	
==>_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42096	42224	
==>ject->send('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $:: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3066	3180	
==>buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %event <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3066	3180	
==>buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %event <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24729	24838	
==>S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21150	21259	
==>S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16213	16320	
==>exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    my $r = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38517	38641	
==>v = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38517	38641	
==>v = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38517	38641	
==>v = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1186	1290	
==>UBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1186	1290	
==>UBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1186	1290	
==>UBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1902	2012	
==>ter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1902	2012	
==>ter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1902	2012	
==>ter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6574	6699	
==>outNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6574	6699	
==>outNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6574	6699	
==>outNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1788	1886	
==>is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splic <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1788	1886	
==>is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	381	484	
==>RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	381	484	
==>RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	381	484	
==>RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35605	35696	
==>ion (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36702	36793	
==>ion (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7056	7211	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't sup <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7056	7211	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't sup <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7056	7211	
==>LF->ref->new( '$.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't sup <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3403	3532	
==>() ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3596	3725	
==>() ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13520	13618	
==>ode, so this may not be a real problem.
  [It was.  The regexp implementation is intimately entangl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1034	1149	
==>p> <tight> ]+',
    ternary =>         '<tight> <op> <parse> <op2> <equal>',
);

sub new {
    my ($class, $opt) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10893	10986	
==>ormation about how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

R <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10893	10986	
==>ormation about how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

R <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12722	12851	
==>udo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check tha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12722	12851	
==>udo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check tha <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26457	26558	
==>ill make harness attempt to compile the test using
C<perlcc> before running it.

B<NOTE> This currentl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11180	11296	
==>e::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11180	11296	
==>e::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11180	11296	
==>e::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2529	2631	
==>ulti
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2529	2631	
==>ulti
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2529	2631	
==>ulti
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	780	880	
==>ints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't acti <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	780	880	
==>ints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't acti <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42818	42918	
==>y version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are in th <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	877	968	
==>/Tabs/Force/NewTab
setting.)
</p>
<p>
To update this listing, run <tt>perl gen.pl</tt> in <t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	217	318	
==>RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	217	318	
==>RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	217	318	
==>RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6714	6855	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6714	6855	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6714	6855	
==>::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1547	1662	
==>- @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1547	1662	
==>- @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1547	1662	
==>- @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4717	4931	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4717	4931	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4717	4931	
==>irstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6031	6163	
==>lsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6031	6163	
==>lsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6031	6163	
==>lsif ($n =~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14333	14456	
==>o_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17810	17933	
==>o_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17226	17349	
==>o_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6521	6628	
==>sub node::_print_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<li <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10996	11091	
==>isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11054	11149	
==>isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (S <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	3	106	
==>ass Type--Perl6;

has Class $.meta;

# this is the compiled dispatch table... accessors should be in her <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	384	486	
==>messages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	384	486	
==>messages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10047	10146	
==>scapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule RegularE <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1995	2085	
==>t = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but dec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1995	2085	
==>t = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3734	3837	
==>f supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3734	3837	
==>f supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3734	3837	
==>f supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14333	14468	
==>isub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14333	14468	
==>isub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14333	14468	
==>isub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1099	1233	
==>ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1099	1233	
==>ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1099	1233	
==>ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  }) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8293	8451	
==>ix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4653	4811	
==>ix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5502	5660	
==>ix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2429	2529	
==>sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2429	2529	
==>sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2429	2529	
==>sub p6_undef {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	746	859	
==>by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	746	859	
==>by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	746	859	
==>by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1217	1312	
==>nt to rebless everything down to your project's base namespace.

Class::Rebless walks scalar, ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1217	1312	
==>nt to rebless everything down to your project's base namespace.

Class::Rebless walks scalar, ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1217	1312	
==>nt to rebless everything down to your project's base namespace.

Class::Rebless walks scalar, ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5060	5192	
==>od));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5060	5192	
==>od));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5060	5192	
==>od));
}

sub _parse_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13804	13920	
==>ection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13804	13920	
==>ection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14387	14492	
==>lass.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1167	1304	
==>__->add_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => 'pref <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5233	5327	
==>C<data> method returns a hash reference representing the configuration data

=item write

The C <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5233	5327	
==>C<data> method returns a hash reference representing the configuration data

=item write

The C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	513	615	
==>}


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rule <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	513	615	
==>}


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rule <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	513	615	
==>}


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21697	21897	
==>6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21697	21897	
==>6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21697	21897	
==>6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR " <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2167	2279	
==>ase}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $args{name}     ||= $class;
    $args{v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7827	7929	
==>n1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_para <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7827	7929	
==>n1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13125	13225	
==>-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unaccepta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13125	13225	
==>-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unaccepta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13125	13225	
==>-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unaccepta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	291	399	
==>ire Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	252	360	
==>ire Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	252	360	
==>ire Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15798	15909	
==>_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10654	10765	
==>_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->obj <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	757	850	
==>erl backend that
conditionally excludes some builtin operators to demonstrate dynamicity.

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12956	13069	
==>ete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12956	13069	
==>ete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12956	13069	
==>ete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13144	13258	
==>";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     tr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13144	13258	
==>";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     tr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13144	13258	
==>";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     tr <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1234	1336	
==>your subclass of POE::Session.';
  }
}

=head1 NAME

POE - Perl Object Environment for Perl 6

=head1 S <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10113	10209	
==>atures. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10171	10267	
==>atures. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1819	1927	
==>c  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b insta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1819	1927	
==>c  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b insta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1819	1927	
==>c  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3294	3424	
==>push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3294	3424	
==>push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3294	3424	
==>push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MUL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1354	1475	
==>[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18443	18548	
==>rd I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18443	18548	
==>rd I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTT <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1296	1399	
==>haskell.
  - perhaps serve as a reference implementation for a while.  By
  sacrificing ease of installa <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5224	5318	
==>ata

The C<data> method returns a hash reference representing the configuration data

=item wri <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5224	5318	
==>ata

The C<data> method returns a hash reference representing the configuration data

=item wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4070	4213	
==>n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4070	4213	
==>n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4070	4213	
==>n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	77	174	
==>'FORCE';
use lib 'lib';
use Inline::Parrot::PMC 'get_int';
use Inline C=>'Config',
	INC => `pkg-co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52493	52588	
==>asses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22604	22695	
==>on is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22604	22695	
==>on is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2619	2712	
==>ray|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2619	2712	
==>ray|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2619	2712	
==>ray|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7584	7805	
==>ethods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7584	7805	
==>ethods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7584	7805	
==>ethods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3383	3470	
==>que_instance_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4077	4164	
==>que_instance_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5285	5372	
==>que_instance_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9498	9614	
==>cognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9498	9614	
==>cognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	524	653	
==>ew PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	524	653	
==>ew PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	524	653	
==>ew PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25952	26045	
==>ues
that are associated with the message, and can be interpolated into the
human-readable vers <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25952	26045	
==>ues
that are associated with the message, and can be interpolated into the
human-readable vers <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	550	638	
==>ptable->addToken("term:\$\$", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToke <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	722	822	
==>tle slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	722	822	
==>tle slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16898	16995	
==>ptions,
such as whether to do optimize...

  # strings
  /foo|father|fort/  => /f(?:o(?:o|rt)|athe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2057	2151	
==>cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2057	2151	
==>cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2057	2151	
==>cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8494	8597	
==>cal $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8494	8597	
==>cal $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8494	8597	
==>cal $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	670	763	
==>utput (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to wr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	670	763	
==>utput (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to wr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1226	1319	
==>utput (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	97	185	
==>3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	97	185	
==>3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	97	185	
==>3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5145	5241	
==>sed the current object in the recursion and
the wanted namespace ("MyName" in the code above).  T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5145	5241	
==>sed the current object in the recursion and
the wanted namespace ("MyName" in the code above).  T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5145	5241	
==>sed the current object in the recursion and
the wanted namespace ("MyName" in the code above).  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4851	4961	
==>fix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->pref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4851	4961	
==>fix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->pref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4851	4961	
==>fix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->pref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2207	2319	
==>E('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2207	2319	
==>E('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2207	2319	
==>E('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12785	12899	
==>ey ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::iden <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12785	12899	
==>ey ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::iden <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12785	12899	
==>ey ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::iden <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11350	11483	
==>s1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11350	11483	
==>s1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11350	11483	
==>s1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6688	6833	
==>= 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6472	6608	
==>= 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op- <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	723	841	
==>ile" or die "Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'">]+)/) {
            dump_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6394	6500	
==>s => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6394	6500	
==>s => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6394	6500	
==>s => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28431	28556	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28710	28835	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3072	3194	
==>}

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'space' }

  sub v <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2312	2420	
==>f = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x', <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2312	2420	
==>f = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x', <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6853	6953	
==>arp::longmess($e))};# XXX doesnt work yet.
    my sub warning($e){warn("Warning: $e\n")};
    for %mo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3394	3490	
==>eived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3394	3490	
==>eived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3474	3570	
==>eived
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9645	9741	
==>ire ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9645	9741	
==>ire ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9645	9741	
==>ire ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1320	1445	
==>nd defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1320	1445	
==>nd defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1320	1445	
==>nd defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3587	3687	
==>->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9083	9179	
==>eturn the same failure object always

then there's absolutely no overhead

I'm not sure about thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8784	8878	
==>eturn the same failure object always
then there's absolutely no overhead
I'm not sure about thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1857	1960	
==>editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1857	1960	
==>editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1857	1960	
==>editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5269	5376	
==>ndef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5269	5376	
==>ndef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5269	5376	
==>ndef;
  # We should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5272	5383	
==>u like with each object, but is (at least nominally)
intended to allow filtering out objects you don't want to r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5272	5383	
==>u like with each object, but is (at least nominally)
intended to allow filtering out objects you don't want to r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5272	5383	
==>u like with each object, but is (at least nominally)
intended to allow filtering out objects you don't want to r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4451	4541	
==>ciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<decipheri <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4451	4541	
==>ciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<decipheri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7091	7207	
==>ake_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7091	7207	
==>ake_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7091	7207	
==>ake_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5171	5277	
==>( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5171	5277	
==>( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5171	5277	
==>( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($s <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1583	1680	
==>C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1583	1680	
==>C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4090	4202	
==>function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4090	4202	
==>function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4090	4202	
==>function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3546	3662	
==>hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3546	3662	
==>hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3546	3662	
==>hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	622	744	
==>. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Contin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	622	744	
==>. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Contin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	622	744	
==>. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Contin <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	440	555	
==>as (rw!Array).  Why rw?
# \\n   List      pre     keys    safe   (rw!Array)\
multi Array::keys   (@array ; MatchTest <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10418	10529	
==>scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method sca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10418	10529	
==>scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method sca <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	668	758	
==>specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core ty <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	668	758	
==>specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16381	16530	
==>shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16381	16530	
==>shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16381	16530	
==>shift;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	888	1022	
==>tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	888	1022	
==>tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	888	1022	
==>tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3447	3565	
==>te accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "u <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3447	3565	
==>te accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10657	10746	
==>om another Object singleton/class method called by Bar');

is($Bar->singleton_test_on_obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1959	2151	
==>= "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1959	2151	
==>= "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1959	2151	
==>= "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15494	15652	
==>el = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15494	15652	
==>el = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15494	15652	
==>el = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11758	11864	
==>);
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_bool_handlers{$re <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3886	3986	
==>abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($a <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3886	3986	
==>abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2979	3102	
==>ing(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2979	3102	
==>ing(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2979	3102	
==>ing(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18076	18307	
==>pping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21553	21784	
==>pping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21140	21371	
==>pping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	622	725	
==>ntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-spec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	591	690	
==>ntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-spec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1179	1271	
==>g->meta

The JIB::Meta object associated with this package

=head2 $pkg->install( installatio <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7405	7502	
==>odule doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_modu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7405	7502	
==>odule doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_modu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1497	1607	
==>me) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1497	1607	
==>me) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1497	1607	
==>me) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1031	1158	
==>thing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1031	1158	
==>thing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1031	1158	
==>thing special, but it works :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	180	342	
==>hift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _mangle_var {
    my $s = shift;
    #warn "mangle: $s";
    
    # perl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	241	348	
==>}
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	241	348	
==>}
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9912	10044	
==>[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9912	10044	
==>[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9912	10044	
==>[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3959	4186	
==>),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->new(
        Seq->new(
            Param->new('& <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	762	873	
==>[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	771	882	
==>[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$cons <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	452	572	
==>th_sep  => $Config{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14904	15001	
==>d efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common pr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14904	15001	
==>d efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	401	520	
==>be a more efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	401	520	
==>be a more efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	401	520	
==>be a more efficient way to do this,
      // but if I store the node in a variable outside of this function
      // and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35782	35904	
==>head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35782	35904	
==>head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35782	35904	
==>head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->f <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5560	5681	
==>n our path.   Let's hunt around for it.

        my $slash = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $gh <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2400	2505	
==>: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2400	2505	
==>: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	158	264	
==>cwd());

use constant SUBDIR_OF_ROOT     => sub { shift()->root->subdir(    shift() )  };
use constant SUBD <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5027	5127	
==>($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5027	5127	
==>($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2401	2509	
==>TER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2401	2509	
==>TER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2401	2509	
==>TER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23753	23855	
==>("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23753	23855	
==>("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23753	23855	
==>("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3877	3993	
==>fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3877	3993	
==>fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3877	3993	
==>fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3897	3998	
==>nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (sectio <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3897	3998	
==>nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (sectio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17244	17353	
==>tnum"] = PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2425	2521	
==>thod superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method prope <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2425	2521	
==>thod superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method prope <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1675	1784	
==>for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_pat <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1675	1784	
==>for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	197	329	
==>t &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    * <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	197	329	
==>t &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    * <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	197	329	
==>t &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    * <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2621	2717	
==>, map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = asser <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2621	2717	
==>, map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = asser <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7615	7718	
==>S_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are alias <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7615	7718	
==>S_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are alias <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7615	7718	
==>S_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are alias <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3574	3704	
==>lice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3574	3704	
==>lice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3574	3704	
==>lice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8210	8333	
==>= undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8210	8333	
==>= undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8210	8333	
==>= undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5068	5183	
==>}

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5068	5183	
==>}

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5068	5183	
==>}

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	216	319	
==>TEST );

sub Rx :lvalue		{ $_[0]{regex} }
sub RxPOS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3406	3604	
==>nboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3406	3604	
==>nboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3406	3604	
==>nboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18377	18483	
==>nfix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18377	18483	
==>nfix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18377	18483	
==>nfix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $x <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9333	9450	
==>ly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9333	9450	
==>ly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	3	106	
==>XX PIL1 pugs -C kludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	3	106	
==>XX PIL1 pugs -C kludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	3	106	
==>XX PIL1 pugs -C kludge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5332	5445	
==>s to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5332	5445	
==>s to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5332	5445	
==>s to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is cop <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1440	1597	
==>h,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1440	1597	
==>h,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1440	1597	
==>h,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = functi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18743	18855	
==>{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20101	20213	
==>{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8930	9103	
==>conf->postrm );
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternativ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4254	4371	
==>x[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take in <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4254	4371	
==>x[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18161	18256	
==>de that it should be
looking at.

This section describes the rather complex algorithm that
Modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18161	18256	
==>de that it should be
looking at.

This section describes the rather complex algorithm that
Modul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37145	37235	
==>EE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Piny <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2564	2669	
==>- check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2564	2669	
==>- check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2564	2669	
==>- check specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14690	14791	
==>s conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14690	14791	
==>s conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14690	14791	
==>s conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5050	5161	
==>,
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Exp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5050	5161	
==>,
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Exp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1954	2065	
==>,
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20075	20165	
==>_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20075	20165	
==>_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20075	20165	
==>_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11560	11681	
==>, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11560	11681	
==>, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<re <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6460	6552	
==>yze_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = $strap->analyze_file($te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	667	782	
==>fix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	667	782	
==>fix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	667	782	
==>fix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2783	2886	
==>mpile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2783	2886	
==>mpile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2783	2886	
==>mpile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4137	4224	
==>attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4137	4224	
==>attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4137	4224	
==>attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1339	1446	
==>EFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1339	1446	
==>EFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1339	1446	
==>EFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4778	4883	
==>rn "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4778	4883	
==>rn "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4334	4470	
==>elf: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cm <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4334	4470	
==>elf: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5712	5815	
==>$obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5712	5815	
==>$obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5712	5815	
==>$obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6310	6409	
==>ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6310	6409	
==>ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6310	6409	
==>ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12389	12596	
==>{
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12389	12596	
==>{
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12389	12596	
==>{
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14332	14448	
==>str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14332	14448	
==>str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14332	14448	
==>str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10708	10894	
==>dren(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10708	10894	
==>dren(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say( <==
3	/Users/nnunley/pugs/util/grokprims.pl	120	233	
==>',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'right-asso <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	757	961	
==>//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	757	961	
==>//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19424	19561	
==>er second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml(@_);
        $Last_ML_Print = time;
    }
}

sub _bo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2931	3051	
==>pen ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start < <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2931	3051	
==>pen ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	931	1026	
==>h_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lva <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	931	1026	
==>h_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lva <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	931	1026	
==>h_fetch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7752	7878	
==>(3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7752	7878	
==>(3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7752	7878	
==>(3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13433	13535	
==>list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13433	13535	
==>list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13433	13535	
==>list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9840	9961	
==>het'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9834	9955	
==>het'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2994	3101	
==>_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --ve <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2994	3101	
==>_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	967	1068	
==>s now actually inherits a number of new attributes from various sources
# and we need to now create th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	967	1068	
==>s now actually inherits a number of new attributes from various sources
# and we need to now create th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	967	1068	
==>s now actually inherits a number of new attributes from various sources
# and we need to now create th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38122	38240	
==>ally, the small change to the qr() method:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2573	2683	
==>urn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2573	2683	
==>urn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2573	2683	
==>urn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4666	4777	
==>ed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4666	4777	
==>ed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4666	4777	
==>ed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9112	9227	
==>ine switches ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	704	830	
==>>bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	704	830	
==>>bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	704	830	
==>>bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3794	3909	
==>if ($closure->isa('block')) {
            my $ref = reference->new($val);  
            $closure->env->set('$_' => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5009	5161	
==>else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5009	5161	
==>else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} } <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	113	207	
==>tmatch seem like the kind of
thing which an implementation will overwrite. So smartmatch can be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40476	40586	
==>yref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayre <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40476	40586	
==>yref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayre <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40476	40586	
==>yref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1469	1599	
==>ulti method submethod
        my our has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\s> { return { st <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	390	491	
==>D time
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure f <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	390	491	
==>D time
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure f <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8438	8570	
==>@failed = grep { !$results{details}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs ad <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2839	2971	
==>urn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1461	1593	
==>urn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4249	4381	
==>_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4237	4369	
==>_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10608	10720	
==>q 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10608	10720	
==>q 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10608	10720	
==>q 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6857	6972	
==>return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = subst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6857	6972	
==>return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = subst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	562	669	
==>type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	562	669	
==>type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	562	669	
==>type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4712	4820	
==>om filter,
    # because we need all the lines including the ones before the `use`
    # statement, so we can <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4712	4820	
==>om filter,
    # because we need all the lines including the ones before the `use`
    # statement, so we can <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21188	21286	
==>\\$self->{nparen}";
  }
}


{
  package Regexp::Parser::assertion;
  push @ISA, qw( Regexp::Parser: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4651	4750	
==>";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4651	4750	
==>";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4651	4750	
==>";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6192	6335	
==>ed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6192	6335	
==>ed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6192	6335	
==>ed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5246	5393	
==>t look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5710	5857	
==>t look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16246	16362	
==>,
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      ) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16246	16362	
==>,
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3035	3142	
==>e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	62	176	
==>ie unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs usin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	62	176	
==>ie unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs usin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	62	176	
==>ie unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs usin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2629	2760	
==>er(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2629	2760	
==>er(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2629	2760	
==>er(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29824	29919	
==>he same as
those attribute names in the argument C<$attrs>.  The new Relation::Example has all
o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35747	35840	
==>tion::Example in its C<$other> argument, where <$other> has the same heading as
the invocant R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37779	37872	
==>tion::Example
in its C<$other> argument, where <$other> has the same heading as the
invocant R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	988	1113	
==>right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5670	5793	
==>),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5670	5793	
==>),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8132	8240	
==>e => 'util/catalog_tmpl/directory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template->pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1191	1307	
==>d($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->[$index->t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	784	881	
==>R_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	784	881	
==>R_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref] <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7269	7533	
==>LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7326	7590	
==>LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7695	7790	
==>ch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9623	9718	
==>ch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7683	7778	
==>ch => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture } <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9450	9570	
==>e|[A-Za-z]:)/.*$Config{_exe}$}
            ) {

                # Smells like a Windows executable called from cygwin-lan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5040	5143	
==>art/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5040	5143	
==>art/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1791	1910	
==>$new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1791	1910	
==>$new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1791	1910	
==>$new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if ( <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	115	214	
==>e.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	115	214	
==>e.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	686	792	
==>link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we have a Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	653	751	
==>link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we have a Perl <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	258	355	
==>odule is simply to be an example Perl6 module that will
run and install and have all the distribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3154	3260	
==>lues does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3154	3260	
==>lues does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3154	3260	
==>lues does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1475	1563	
==>m), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1475	1563	
==>m), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1007	1142	
==>08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1007	1142	
==>08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1007	1142	
==>08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..In <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1483	1726	
==>ng = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	751	854	
==>s = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	751	854	
==>s = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4189	4293	
==>se. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4189	4293	
==>se. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6386	6490	
==>se. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing on the C<$descriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1440	1530	
==>ng) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1440	1530	
==>ng) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1440	1530	
==>ng) }
sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1146	1247	
==>chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1146	1247	
==>chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1146	1247	
==>chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13356	13535	
==>num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13356	13535	
==>num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13356	13535	
==>num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	644	767	
==>r;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	644	767	
==>r;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	644	767	
==>r;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4635	4799	
==>source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4635	4799	
==>source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4635	4799	
==>source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	174	296	
==>t   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	174	296	
==>t   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( T <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5903	6017	
==>s (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/3.
        $this_size -= $chunk_size if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	4	95	
==>ackage Pugs::Grammar::Postcircumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22784	22960	
==>lar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22784	22960	
==>lar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22784	22960	
==>lar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	120	235	
==>no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	427	518	
==>ntity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	427	518	
==>ntity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1557	1710	
==>_;
    bless {
	value => $value,
	warnings => $warnings,
	has_failed => $has_failed,
    }, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1874	1970	
==>t types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static look <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1802	1896	
==>t types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static look <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18165	18277	
==>ning or end of tests\n"
      if $totals->{seen} && 
         $totals->{max}  < $totals->{seen};
};

sub test_han <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	487	585	
==>}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	487	585	
==>}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	321	456	
==>ELUDE

RULEMATCH:
while ($tail =~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $dee <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	731	841	
==>ot $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	731	841	
==>ot $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11399	11553	
==>ate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11399	11553	
==>ate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11399	11553	
==>ate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7849	7963	
==>OPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7849	7963	
==>OPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7849	7963	
==>OPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	827	932	
==>e::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	915	1020	
==>e::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5106	5205	
==>L2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5106	5205	
==>L2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5106	5205	
==>L2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	837	937	
==>x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	837	937	
==>x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	837	937	
==>x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	388	512	
==>= 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	388	512	
==>= 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    st <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17003	17123	
==>attern, 0, "PGE::Exp")
    $P0 = 0

    $P0 = find_global "PGE::Rule", "p6rule"
    exp = $P0(exp)
    unless exp goto en <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10691	10791	
==>al <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',def <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4575	4668	
==>output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data wh <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4575	4668	
==>output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18363	18458	
==>docs can possibly confuse further parsing.

Next, the source module is divided into a shallow tr <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18363	18458	
==>docs can possibly confuse further parsing.

Next, the source module is divided into a shallow tr <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5834	5957	
==>h => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minim <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5834	5957	
==>h => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minim <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2436	2556	
==>Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namesp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2620	2740	
==>Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namesp <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8273	8381	
==>ute F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediately if we've cached this. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7054	7216	
==>y $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7054	7216	
==>y $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7054	7216	
==>y $start = $param{start};
    my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11478	11569	
==>s the Role specifc
code to the class that consumed it.

------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11478	11569	
==>s the Role specifc
code to the class that consumed it.

------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11478	11569	
==>s the Role specifc
code to the class that consumed it.

------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4437	4549	
==>m->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4437	4549	
==>m->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5027	5139	
==>m->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7513	7620	
==>seq = $child->values; # the children of the seq child of the thunk
			my $last = pop @children_of_seq;

			m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6812	6897	
==>od($_resolve));

## ------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6812	6897	
==>od($_resolve));

## ------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6812	6897	
==>od($_resolve));

## ------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2205	2327	
==>r message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   } <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2205	2327	
==>r message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   } <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15614	15709	
==>>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <'>='> <Shi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	357	448	
==>= IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	357	448	
==>= IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19942	20189	
==>other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19942	20189	
==>other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19942	20189	
==>other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @items - current = ". $self->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4824	4929	
==>ULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed abo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4824	4929	
==>ULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed abo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4824	4929	
==>ULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed abo <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2802	2965	
==>hange -1;
        while $i <= $final {
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10964	11133	
==>scription => $.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.numb <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1450	1605	
==>scription => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.numb <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1450	1605	
==>scription => $.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8204	8320	
==>my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8204	8320	
==>my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8204	8320	
==>my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1947	2077	
==>nion ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say " <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1947	2077	
==>nion ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6223	6326	
==>heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading => <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	171	310	
==>ze()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	171	310	
==>ze()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19615	19743	
==>ndicates the capture didn't happen.

  U32 lastparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3398	3523	
==>s $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3398	3523	
==>s $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40663	40761	
==>arp::croak().  The argument list is used to fill in
the format string for sprintf().

=over 4

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3535	3656	
==>eday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3535	3656	
==>eday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3615	3736	
==>eday there will be a C<no_plan> version
of this too.  For now, this is what you have.

=item B<test_pass( Str $description <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1235	1333	
==>sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1235	1333	
==>sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1235	1333	
==>sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9809	9931	
==>ert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13839	13951	
==>.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a her <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13839	13951	
==>.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a her <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	86	245	
==>t;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.pa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	86	245	
==>t;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32795	32901	
==>end('add_method' => (
    # method label
        symbol->new('_make_ascendant_dispatcher'),
    # method bo <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	99	208	
==>" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " ~ 4;

#=Zahlen-Kontext: +
sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15145	15250	
==>ext);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original conten <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15145	15250	
==>ext);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1326	1455	
==>= shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1326	1455	
==>= shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1326	1455	
==>= shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7546	7670	
==>=> chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(86 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7546	7670	
==>=> chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(86 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7432	7533	
==>n "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7432	7533	
==>n "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14492	14576	
==>_to_char(Name,C)), !.

%-------------------------

re_reverse(conc(Ra0,Rb0),conc(Rb1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	219	324	
==>ts have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	219	324	
==>ts have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	219	324	
==>ts have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * st <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4748	4940	
==>art/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4748	4940	
==>art/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3187	3350	
==>-R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX symlink the manpages
            LI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	376	475	
==>ap = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override thing <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	376	475	
==>ap = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2156	2238	
==>|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_aux <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2156	2238	
==>|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_aux <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2156	2238	
==>|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_aux <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13617	13715	
==>edText::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'], <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13617	13715	
==>edText::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6109	6203	
==>F, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entryp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6109	6203	
==>F, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entryp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6109	6203	
==>F, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entryp <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4657	4809	
==>k.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the st <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4657	4809	
==>k.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12195	12312	
==>tatus;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
  {
      method repor <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2593	2696	
==>tatus;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method repor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2593	2696	
==>tatus;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method repor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16379	16488	
==>implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16379	16488	
==>implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16379	16488	
==>implemented as methods.
#MULTI SUB to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4578	4708	
==>elf->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ") <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4718	4848	
==>elf->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	461	564	
==>nt $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	461	564	
==>nt $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	461	564	
==>nt $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4563	4701	
==>is primitive".
    #      If I'm wrong then the above two subs might not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8235	8344	
==>C<$ENV{PATH}> that can be used to execute F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Ret <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	889	984	
==>no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "tit <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	889	984	
==>no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "tit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14116	14206	
==>=> ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14116	14206	
==>=> ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14116	14206	
==>=> ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_at <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3927	4047	
==>Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3927	4047	
==>Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	777	897	
==>Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7585	7734	
==>ndefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7585	7734	
==>ndefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7585	7734	
==>ndefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12281	12380	
==>($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::Ap <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12281	12380	
==>($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::Ap <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12281	12380	
==>($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::Ap <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2320	2437	
==>uest::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query stri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2320	2437	
==>uest::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query stri <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18161	18278	
==>1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $where = "root namespac <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	113	286	
==>N = '0.61';

use strict;

sub WriteAll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4580	4710	
==><>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4592	4722	
==><>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2320	2423	
==>})')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2320	2423	
==>})')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2320	2423	
==>})')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, subst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	34	175	
==>e strict;
use warnings;

use Data::Dumper;

# TODO - see Pugs::Runtime::Grammar for metaclass stuff

sub perl {
    local $Data::Dumper::Terse <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	13	108	
==>Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesa <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	13	108	
==>Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesa <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2312	2446	
==>rnals::eval_yaml($code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and replace <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2148	2269	
==>ncode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2148	2269	
==>ncode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3043	3156	
==>ring  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3043	3156	
==>ring  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4046	4158	
==>{ }xgc;
    $S->error(RPe_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2317	2418	
==>fix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2317	2418	
==>fix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2317	2418	
==>fix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Err <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9225	9337	
==>wnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly ac <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9225	9337	
==>wnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly ac <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	394	491	
==>ity, given the cruft
of wrapping a map and join around the macro string.  But perhaps there
should <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8102	8251	
==>) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8102	8251	
==>) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8102	8251	
==>) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2623	2737	
==>n)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2623	2737	
==>n)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2623	2737	
==>n)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4529	4636	
==>(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4529	4636	
==>(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4529	4636	
==>(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# H <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	157	283	
==>s rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	157	283	
==>s rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	185	295	
==>use JIB::Repository;

use base 'Object::Accessor';

=head2 $set = JIB::Repository::Set->new( [dirs => \@dirs] ) <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6746	6844	
==>return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document identi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6746	6844	
==>return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document identi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7495	7675	
==>hod}, '  ' ) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7138	7241	
==>delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7138	7241	
==>delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8079	8284	
==>l "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8543	8748	
==>l "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2473	2599	
==>nce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2473	2599	
==>nce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2473	2599	
==>nce) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $val <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3099	3217	
==>scription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3099	3217	
==>scription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4623	4741	
==>scription?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3833	3943	
==>2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3833	3943	
==>2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3833	3943	
==>2), Iterators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13849	13985	
==>arams) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13849	13985	
==>arams) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13849	13985	
==>arams) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3270	3360	
==>.reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3270	3360	
==>.reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2551	2661	
==>$val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2551	2661	
==>$val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2551	2661	
==>$val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11606	11762	
==>>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11606	11762	
==>>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11606	11762	
==>>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15033	15137	
==>tra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $extra ? split(/(?:[^\\]|^) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1950	2042	
==>on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1950	2042	
==>on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9652	9796	
==>:Test::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	234	372	
==>:Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	234	372	
==>:Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3761	3886	
==>intf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3761	3886	
==>intf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3761	3886	
==>intf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3767	3883	
==>@supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3767	3883	
==>@supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3767	3883	
==>@supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	182	279	
==>r a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	182	279	
==>r a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	182	279	
==>r a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5517	5620	
==>rs .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5517	5620	
==>rs .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5517	5620	
==>rs .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3444	3581	
==>t $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depend <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3908	4045	
==>t $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depend <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	221	319	
==>ut it's
real p5 re coverage is much less.  The test passing was simply to
permit refactoring with c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14180	14339	
==>my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14180	14339	
==>my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14180	14339	
==>my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	84	190	
==>gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	84	190	
==>gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	84	190	
==>gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	317	428	
==>run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similaritie <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	317	428	
==>run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similaritie <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3422	3529	
==>) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument to &each must be eit <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	539	637	
==>turns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	597	695	
==>turns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12022	12136	
==>bs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . enco <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6345	6448	
==>e

### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6130	6231	
==>e
### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2336	2483	
==>ed}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2336	2483	
==>ed}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2336	2483	
==>ed}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15044	15191	
==>s')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15044	15191	
==>s')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15044	15191	
==>s')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # however, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	363	479	
==>port {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]-> <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	363	479	
==>port {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2962	3074	
==>ompiler;

    my $c = Blondie::Compiler->new;
    $c->compile($runtime, $env, $program);

    # or more convenien <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19579	19675	
==>t will enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text fo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19579	19675	
==>t will enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	955	1194	
==>nt( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	956	1195	
==>nt( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7489	7604	
==>Params;
    my $lval = $pLValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CODE($name,$type,\@pams,$lval <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6756	6874	
==>, array, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module docum <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6531	6640	
==>, array, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module docum <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	971	1067	
==>$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	869	986	
==>* Full support for lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplifi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	869	986	
==>* Full support for lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplifi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	869	986	
==>* Full support for lazy splicing and sparse array
# * Added support for store() past the end of the array
# * Simplifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8129	8303	
==>arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8129	8303	
==>arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8129	8303	
==>arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #war <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15524	15644	
==>ables, so the body has the generic variables created in the binding
let: generic_in($.is) = { generic_in($$) }
let: gener <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37539	37637	
==>ant to the result;
the new Relation is the result of combining all of the source Relations,
such th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42088	42186	
==>ant to the result;
the new Relation is the result of combining all of the source Relations,
such th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1962	2158	
==>^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1962	2158	
==>^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1962	2158	
==>^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	641	891	
==>Text

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	641	891	
==>Text

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10868	10983	
==>$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10868	10983	
==>$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10868	10983	
==>$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7670	7785	
==>@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7670	7785	
==>@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7670	7785	
==>@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new() <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	927	1019	
==>ughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	927	1019	
==>ughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1474	1566	
==>ughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	569	672	
==>nversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	460	563	
==>nversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	369	472	
==>nversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8724	8833	
==>~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8724	8833	
==>~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8724	8833	
==>~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7752	7850	
==>Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7752	7850	
==>Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7752	7850	
==>Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $nam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13268	13405	
==>\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9454	9591	
==>\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10290	10427	
==>\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5080	5189	
==>plicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8557	8666	
==>plicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7568	7677	
==>plicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1810	1936	
==>d to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $se <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1810	1936	
==>d to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $se <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8069	8170	
==>malLiteral {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <ExponentPart>?
    | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	941	1048	
==>PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	941	1048	
==>PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	941	1048	
==>PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8684	8783	
==>oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$ol <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8684	8783	
==>oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$ol <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14202	14292	
==>ke_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14202	14292	
==>ke_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14202	14292	
==>ke_attribute('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7436	7552	
==>re} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7436	7552	
==>re} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12887	12986	
==>no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12887	12986	
==>no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12887	12986	
==>no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => me <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22440	22536	
==>nvoked on the
same object with the same arguments; they do not interact with the outside
environm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26992	27088	
==>nvoked on the
same object with the same arguments; they do not interact with the outside
environm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25715	25811	
==>nvoked on the
same object with the same arguments; they do not interact with the outside
environm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6942	7055	
==>);    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6942	7055	
==>);    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6942	7055	
==>);    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3775	3874	
==>'$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3775	3874	
==>'$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3775	3874	
==>'$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Class->add_method(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28371	28461	
==>n combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says whi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32923	33013	
==>n combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says whi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32051	32141	
==>n combined/wrapped into tuple/Mapping-valued attributes.  The
argument C<$mapping> says whi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2879	2995	
==>.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2879	2995	
==>.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].e <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2884	2986	
==>rectory, check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_sr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3214	3350	
==>ock => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	968	1088	
==>STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microopti <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15047	15163	
==>see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpression> <'+'> <MultiplicativeExpression>
    | <Additive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9050	9218	
==>=> sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9050	9218	
==>=> sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9050	9218	
==>=> sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                m <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2975	3080	
==>dule_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2975	3080	
==>dule_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9990	10096	
==>gify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9990	10096	
==>gify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22558	22659	
==>len+1, U32);


 } regexp;

=head2 Additional notes

Perl_re_dup() in sv.c is a useful source of inform <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1851	1960	
==>ple.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->c <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1345	1436	
==>l_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Make <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1345	1436	
==>l_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Make <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1848	1945	
==>tle and others.

This program is free software; you can redistribute it and/or modify it
under the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1848	1945	
==>tle and others.

This program is free software; you can redistribute it and/or modify it
under the <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27814	27904	
==>length_and_first_gen), "((int × int) × (str × int))", ":t (length_and_first ['foo'], len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8379	8486	
==>ame" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>ste <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8379	8486	
==>ame" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>ste <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8379	8486	
==>ame" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>ste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1367	1477	
==>ks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1367	1477	
==>ks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1367	1477	
==>ks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSO <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	193	293	
==>= path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1::BB::pug <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4989	5150	
==>eady?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depend <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5453	5614	
==>eady?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depend <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2837	2942	
==>y $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")){
			return Blondie::TypeSafe: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5938	6041	
==>from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5938	6041	
==>from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5938	6041	
==>from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child pac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2933	3107	
==>::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} # role Relation::Hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6085	6189	
==>cher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "int <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5875	5976	
==>cher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15986	16138	
==>$DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15986	16138	
==>$DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15986	16138	
==>$DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent some G <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4495	4627	
==>.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7972	8104	
==>.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6965	7097	
==>.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3474	3601	
==>ier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3462	3589	
==>ier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8028	8131	
==>Bar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iFooBar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18271	18379	
==>each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18271	18379	
==>each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18271	18379	
==>each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14759	14888	
==>]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14759	14888	
==>]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14759	14888	
==>]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2638	2774	
==>mber(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2638	2774	
==>mber(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2638	2774	
==>mber(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17497	17641	
==>oxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17497	17641	
==>oxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17497	17641	
==>oxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12772	12922	
==>{
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	288	407	
==>ice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1 <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2870	2981	
==>z = Compress::Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    while (<$ifh>) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2703	2814	
==>ubstr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2703	2814	
==>ubstr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2703	2814	
==>ubstr, pos);
    })')(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	139	543	
==>se Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

packag <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	139	543	
==>se Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

packag <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	425	545	
==>.  The most of the re_tests are passing.  While
# the spike "coded to the tests", and thus is far from being a
# complete <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14572	14658	
==>hods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14572	14658	
==>hods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14572	14658	
==>hods'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_m <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2169	2301	
==>],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      ta <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2169	2301	
==>],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      ta <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1204	1305	
==>s this case.

Types have a dispatch table; this is a collection of functions and
methods that are quer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26633	26871	
==>r );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26633	26871	
==>r );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26633	26871	
==>r );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	397	491	
==>Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	397	491	
==>Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	397	491	
==>Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3817	3923	
==>quires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::Qu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3817	3923	
==>quires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::Qu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43530	43623	
==><Set>, L<Rosetta>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3622	3731	
==>nt', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3622	3731	
==>nt', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	472	581	
==>nt', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3418	3557	
==>ee";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3418	3557	
==>ee";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	283	375	
==>ni-MetaModel which adds explicit Eigenclasses
## to all Classes created. See Method_Dispatch_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8051	8149	
==>teral>
}
rule DecimalLiteral {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <E <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1753	1857	
==>o->_indent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	273	390	
==>, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_number($value)) 
        || confe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5826	5928	
==>e handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the P <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5826	5928	
==>e handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the P <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1092	1201	
==>() returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1092	1201	
==>() returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10043	10149	
==>()) {
    # $node is a Regexp::Parser::* object
  }

In list context, it returns the next node and its dept <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1879	2043	
==>str .= "$k $op $ver";
            }
        } else {
            error("Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10062	10168	
==>span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10062	10168	
==>span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	260	364	
==>ant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	260	364	
==>ant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is expo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10490	10595	
==>.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w, Bool :$rw <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5338	5427	
==>e::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::Key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5338	5427	
==>e::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::Key <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	827	926	
==>nterest was expressed in developing this into a cpan module for
# real use.  It might, imaginably, p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33536	33626	
==>med C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38086	38176	
==>med C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	171	296	
==>s;
    open FH, "< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1170	1262	
==>Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1170	1262	
==>Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document de <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5321	5431	
==>ject(exact_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5414	5513	
==>g === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation::Example <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5274	5421	
==>@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: curryin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5274	5421	
==>@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: curryin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5274	5421	
==>@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: curryin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1776	1875	
==>::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1776	1875	
==>::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1776	1875	
==>::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling... <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15205	15313	
==>@statements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15484	15592	
==>@statements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9358	9460	
==>lue) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf('-') is part of <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29880	29974	
==>very simple, consisting mainly of a data-stuffed hash
and an accessor method to read values fro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29880	29974	
==>very simple, consisting mainly of a data-stuffed hash
and an accessor method to read values fro <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2127	2217	
==>*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfix:*", "left", "PGE::E <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13769	13864	
==>rocess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13769	13864	
==>rocess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2339	2471	
==>e capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2586	2718	
==>e capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rul <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5021	5126	
==>.type = JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value;
   has $.target;
   me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4648	4770	
==>medpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4648	4770	
==>medpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4648	4770	
==>medpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27952	28044	
==>iable value (a string) associated with
the variable name specified in the positional paramete <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27952	28044	
==>iable value (a string) associated with
the variable name specified in the positional paramete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	741	856	
==>\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	741	856	
==>\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	741	856	
==>\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2942	3057	
==>ocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2942	3057	
==>ocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2942	3057	
==>ocant? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invo <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2401	2516	
==>t *@indices --> Bool )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@re <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1365	1503	
==>@path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath( <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1365	1503	
==>@path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9597	9696	
==>c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} / <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9597	9696	
==>c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} / <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1472	1570	
==>nPerl5::X1::Result;
use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31383	31562	
==>{
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31383	31562	
==>{
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31383	31562	
==>{
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_len <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3122	3224	
==>esult = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is copy) { <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3122	3224	
==>esult = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is copy) { <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	968	1063	
==>esign_dir  Directory containing the perl6 design docs apo/exe/syn
    --no_designdocs Do not gen <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20779	20874	
==>r readline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send sets <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5654	5756	
==>me == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5654	5756	
==>me == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5654	5756	
==>me == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15755	15969	
==>::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15755	15969	
==>::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15755	15969	
==>::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9988	10196	
==>ry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illeg <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9024	9127	
==>$self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @unio <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9024	9127	
==>$self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @unio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3633	3742	
==>magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3633	3742	
==>magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3633	3742	
==>magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	25	119	
==>Grammar;
our %nodes;

sub Pugs::Runtime::Rule::rule_wrapper { @_ };
my $grammar1 = 'Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15409	15501	
==>L::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15409	15501	
==>L::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34967	35096	
==>=> 'branch',
      type => 'and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inherit the merge( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4881	4979	
==>lt object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4881	4979	
==>lt object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial p <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1049	1154	
==>:Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infini <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1049	1154	
==>:Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infini <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7801	7912	
==>I))          --> "(", digits_int(I1), ")", {I is I1 - 1}.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1847	1952	
==>span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1847	1952	
==>span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self. <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2260	2369	
==>ut\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sin <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2260	2369	
==>ut\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	150	259	
==>he ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	150	259	
==>he ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	150	259	
==>he ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13501	13628	
==>rl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13501	13628	
==>rl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13501	13628	
==>rl6::Value::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1732	1843	
==>in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1732	1843	
==>in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1732	1843	
==>in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1688	1806	
==>Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1688	1806	
==>Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1688	1806	
==>Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24047	24144	
==>l named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28599	28696	
==>l named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27430	27527	
==>l named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Rel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	412	541	
==>n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	509	638	
==>n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37451	37546	
==>se value determining whether this is a positive
assertion.  Here's the new class for the object: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2859	2956	
==>$new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{doe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2859	2956	
==>$new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{doe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2859	2956	
==>$new_class->superclasses($body->{is}) if exists $body->{is};
        $new_class->roles($body->{doe <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1629	1740	
==>x_round;
}

our Int multi Num::round_half_even ( Num $x ) {
    my $x_round;

    # round .5 to the nearest even <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7418	7517	
==>ading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7418	7517	
==>ading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	382	497	
==>libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub g <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	382	497	
==>libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub g <==
3	/Users/nnunley/pugs/util/version_h.pl	2389	2491	
==>ersion.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $version_h because $old_revision == <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	932	1102	
==>de<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_children(
                                Tree.new(:node<Hash::Cons <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10510	10623	
==>unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10510	10623	
==>unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9542	9644	
==>method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1635	1733	
==>method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1635	1733	
==>method todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1541	1650	
==>do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1541	1650	
==>do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1541	1650	
==>do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$::Object->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3047	3208	
==>\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3047	3208	
==>\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3047	3208	
==>\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5145	5248	
==>pletion() { !$.type.normal }
}
# empty is represented by undef.

# 9. Type Conversion

# 9.1
multi sub T <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5071	5161	
==>::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5071	5161	
==>::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12815	12928	
==>hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12815	12928	
==>hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12815	12928	
==>hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $thi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3607	3731	
==>xpected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3607	3731	
==>xpected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5131	5255	
==>xpected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10084	10272	
==>?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10084	10272	
==>?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14175	14291	
==>ression>
    | <CallExpression>
}
rule PostfixExpression :words {  # see 11.3
      <LeftHandSideExpression>
    | <L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4180	4317	
==>ss;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4180	4317	
==>ss;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4180	4317	
==>ss;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21046	21142	
==>: ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21046	21142	
==>: ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21046	21142	
==>: ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1967	2129	
==>elf->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1967	2129	
==>elf->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1967	2129	
==>elf->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3343	3458	
==>= shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3343	3458	
==>= shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3343	3458	
==>= shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10288	10410	
==>ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10282	10404	
==>ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	809	913	
==>export {

    $iso8601 ~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to available ISO-86 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12970	13127	
==>delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12970	13127	
==>delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12970	13127	
==>delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value::List->f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	584	729	
==>' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13325	13451	
==>nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13325	13451	
==>nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3089	3191	
==>i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3089	3191	
==>i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3089	3191	
==>i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15135	15242	
==>lar version which will overwrite the current line (by use of
\r and such).  C<$ml> may be empty if Test::Har <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10020	10118	
==>mpare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be a Set:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10020	10118	
==>mpare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be a Set:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	368	471	
==>t;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	368	471	
==>t;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	368	471	
==>t;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run::ApiX;
require PIL::Run::Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	340	472	
==>tr) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	340	472	
==>tr) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	340	472	
==>tr) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CP <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6057	6171	
==>ct(alnum => 1);
  });

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nes <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7913	8001	
==>vent<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7913	8001	
==>vent<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4778	4884	
==>dd_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4778	4884	
==>dd_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4778	4884	
==>dd_singleton_method($method_name => ::make_private_method(
                        $body->{class_methods}-> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6227	6438	
==>ew(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6227	6438	
==>ew(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret. <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1961	2074	
==>g;
}

conv_self {
    my $sub_context;
    # Check if it's now in 'sub' context
    if(/\bsub\s*(${re_symbol}\s*)? <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5951	6153	
==>d;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5951	6153	
==>d;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34981	35081	
==>negated

=head2 clump

Family: clump

Types: clump (C<\X>)

=head2 branch

Family: branch

Types: bra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	737	862	
==>val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    i <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2823	2939	
==>'};
}

sub _dump {
    my $self    = shift;
    my $package = ref( $self->_top );
    my $version = $self->_top->VERS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	760	875	
==>val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5407	5526	
==>Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5407	5526	
==>Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5407	5526	
==>Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23568	23725	
==>de("map"),
						param => ide("f"),
					),
					param => comb(
						fun => ide("tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21356	21452	
==>Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
mod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21356	21452	
==>Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
mod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2792	2918	
==>y $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1414	1540	
==>y $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15816	15932	
==>'in'> <ShiftExpression>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <Relationa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2631	2743	
==>y () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6108	6220	
==>y () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5038	5150	
==>y () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.si <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	337	452	
==>.traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1296	1398	
==>ts (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1240	1338	
==>ts (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12037	12190	
==>h @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12037	12190	
==>h @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12037	12190	
==>h @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	872	963	
==>ICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	872	963	
==>ICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	872	963	
==>ICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1112	1217	
==>erl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1112	1217	
==>erl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1112	1217	
==>erl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6518	6656	
==>e;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28115	28234	
==>>saved_copy) { \
	     SV_CHECK_THINKFIRST_COW_DROP(rx->saved_copy); \
	 } \
	 if (RX_MATCH_COPIED(rx)) { \
	     Safefr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9850	9949	
==>py { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @stri <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9850	9949	
==>py { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16719	16833	
==>l6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16719	16833	
==>l6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16719	16833	
==>l6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint:: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	661	793	
==>= @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert failed';
        $msg .= " - '$name'" if defined $name <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	848	955	
==>p
sub identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  i <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	848	955	
==>p
sub identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1913	2016	
==>ft;
        return $self->($label, @_);
    }
}

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1459	1603	
==>$script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            las <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1459	1603	
==>$script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            las <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	895	1001	
==>nsure we don't accidentally load old or
    # different versions of modules.
    # This is not enforced yet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13620	13715	
==>un::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13620	13715	
==>un::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13620	13715	
==>un::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28184	28298	
==>)

Deletes the handlers for the flags -- you need only pass the flag names,
without the "FLAG_" prefix.

=item $par <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1067	1152	
==>class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Bas <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1067	1152	
==>class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Bas <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2242	2352	
==>dule_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*modu <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2242	2352	
==>dule_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2271	2462	
==>nition
        get_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x;
        },                  
        set <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	32	132	
==>ub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Co <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	32	132	
==>ub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	69	171	
==>VITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$fr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	69	171	
==>VITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$fr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	749	848	
==>strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Alteri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8611	8721	
==>ed $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8611	8721	
==>ed $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8611	8721	
==>ed $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30050	30172	
==>order = str->new(':ascendant') # C3 is the canonical order
                    if $order == $nil::NIL || $order->equal_to(s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9016	9164	
==>{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5376	5524	
==>{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6225	6373	
==>{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	910	1018	
==>PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	910	1018	
==>PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	910	1018	
==>PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = . <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1413	1549	
==>($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1413	1549	
==>($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12249	12369	
==>end
    $S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .retur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9794	9907	
==>s
    $S0 = substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1439	1534	
==>'$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1579	1674	
==>'$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	545	654	
==>ad, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	545	654	
==>ad, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	545	654	
==>ad, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2976	3096	
==>) =~ /[:cntrl:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub punct {
  my ( $ma <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1369	1484	
==>b concatenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	658	765	
==>"
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	658	765	
==>"
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16076	16290	
==>n Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16076	16290	
==>n Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16076	16290	
==>n Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10357	10480	
==>lf, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10357	10480	
==>lf, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10357	10480	
==>lf, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $self->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6977	7083	
==>ess($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6977	7083	
==>ess($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2398	2519	
==>t} = { TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16896	16990	
==>their application in Rosetta D (as
either named modules or anonymous routines) and write the re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16896	16990	
==>their application in Rosetta D (as
either named modules or anonymous routines) and write the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2769	2877	
==>ound.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? wo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2769	2877	
==>ound.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? wo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2769	2877	
==>ound.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? wo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7705	7806	
==>KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq nor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7705	7806	
==>KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq nor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10913	11004	
==>_intersection( $other );
}

multi method intersection (Relation::Example *@others) returns R <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19365	19469	
==>t
my $no_such_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order function that tak <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1381	1480	
==>pth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1381	1480	
==>pth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	419	549	
==>ars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	419	549	
==>ars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	419	549	
==>ars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	22	117	
==>:Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	22	117	
==>:Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33046	33155	
==>rce Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37596	37705	
==>rce Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36940	37049	
==>rce Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9134	9256	
==>->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@argum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9134	9256	
==>->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@argum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9134	9256	
==>->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@argum <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4612	4780	
==>found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                pu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5076	5244	
==>found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                pu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23386	23479	
==>d superclasses (opaque $self: list ?@superclasses) returns list {
    if (@superclasses.define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1145	1295	
==>{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Func <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1145	1295	
==>{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Func <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1145	1295	
==>{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	120	221	
==>Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	120	221	
==>Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	120	221	
==>Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12914	13063	
==>sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $siz <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12914	13063	
==>sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $siz <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12914	13063	
==>sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30938	31062	
==>IVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30938	31062	
==>IVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30938	31062	
==>IVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5406	5513	
==>a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5406	5513	
==>a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7603	7710	
==>a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1021	1130	
==>ocal @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1021	1130	
==>ocal @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1021	1130	
==>ocal @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2674	2769	
==>XX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2674	2769	
==>XX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2674	2769	
==>XX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13904	14039	
==>l');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13904	14039	
==>l');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13904	14039	
==>l');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = :: <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4958	5055	
==>ve Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4958	5055	
==>ve Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or mo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26854	26988	
==>y $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27133	27267	
==>y $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6709	6809	
==>is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6709	6809	
==>is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6709	6809	
==>is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setT <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10533	10639	
==>ob["islazy"] = islazy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, "Error in c <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4782	4878	
==>void name collisions, we use a fully qualified function name.

=back

The following are the (pseu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4782	4878	
==>void name collisions, we use a fully qualified function name.

=back

The following are the (pseu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6829	6948	
==>l} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6841	6960	
==>l} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	23	119	
==>es for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	23	119	
==>es for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	23	119	
==>es for continuations)

# sleep, slightly hacky (we redefine &exit temporarily)
sub sleep (Num $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13498	13657	
==>rns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13498	13657	
==>rns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13498	13657	
==>rns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3814	3908	
==>--------------------------------------------------------------------------
## Package

## See h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3814	3908	
==>--------------------------------------------------------------------------
## Package

## See h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3814	3908	
==>--------------------------------------------------------------------------
## Package

## See h <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1296	1395	
==>h.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet s <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1296	1395	
==>h.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet s <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1094	1287	
==>g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1094	1287	
==>g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	197	290	
==>mart::Comments before every fully qualified subroutine.
* takes a rexep as the only argument
* <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21208	21332	
==>fix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17629	17753	
==>fix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	627	726	
==>imes.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	627	726	
==>imes.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13222	13320	
==>$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13222	13320	
==>$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13222	13320	
==>$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10513	10608	
==>nt for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, whic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10513	10608	
==>nt for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, whic <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12498	12597	
==>nt($line, \$comment);

Checks if the given line is a comment.  If so, it will place it into
C<$comme <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19838	19958	
==>onstructed, and the object can
not be changed afterwards.

If you want something similar but that is more mutable, you ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24390	24510	
==>onstructed, and the object can
not be changed afterwards.

If you want something similar but that is more mutable, you ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22942	23062	
==>onstructed, and the object can
not be changed afterwards.

If you want something similar but that is more mutable, you ca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	664	833	
==>tore => sub {
                my $self = shift;
                my $hash = shift;
                $self->set_value('%:slots', $hash);
            },
            hash_fetc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2311	2405	
==>et($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2311	2405	
==>et($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11864	11952	
==>om_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11864	11952	
==>om_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11864	11952	
==>om_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3350	3549	
==>=> 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3350	3549	
==>=> 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3350	3549	
==>=> 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2611	2766	
==>!= $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2611	2766	
==>!= $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2611	2766	
==>!= $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	553	663	
==>n(str->new('')) }
sub to_num { (shift)->length             }
sub to_bit { (shift)->length->to_bit     }

# meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	503	607	
==>Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	503	607	
==>Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7623	7736	
==>ist->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7623	7736	
==>ist->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7623	7736	
==>ist->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	116	238	
==>method BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $? <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	116	238	
==>method BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $? <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7962	8051	
==>e}, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variable::i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1053	1187	
==>{
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1453	1587	
==>{
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1927	2061	
==>{
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "";
        $body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3791	3926	
==>%$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3791	3926	
==>%$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3791	3926	
==>%$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38825	38919	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43639	43733	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43173	43267	
==>Duncan (C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relat <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2258	2378	
==>mp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Targe <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2258	2378	
==>mp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Targe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1226	1351	
==>her => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '~',
        assoc => 'left',
        precedence => 'eq <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	373	482	
==>!$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	373	482	
==>!$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23239	23444	
==>->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23239	23444	
==>->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23239	23444	
==>->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tm <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32976	33071	
==>urned Relation contains only tuples that are in
exactly one of the source Relations.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37526	37621	
==>urned Relation contains only tuples that are in
exactly one of the source Relations.  This metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	937	1040	
==>turns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - exc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	937	1040	
==>turns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - exc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	937	1040	
==>turns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - exc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	113	211	
==>)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	113	211	
==>)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	113	211	
==>)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	845	966	
==>the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(': <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	845	966	
==>the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(': <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	845	966	
==>the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(': <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14612	14748	
==>@{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14612	14748	
==>@{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14612	14748	
==>@{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2877	3002	
==>$contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2877	3002	
==>$contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2877	3002	
==>$contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4509	4604	
==>{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4509	4604	
==>{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4509	4604	
==>{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12763	12848	
==>rn;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12763	12848	
==>rn;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12763	12848	
==>rn;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7511	7610	
==>PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7511	7610	
==>PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7511	7610	
==>PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13651	13770	
==>!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17128	17247	
==>!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16490	16609	
==>!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18669	18796	
==>e";
    }
    else {
        # We can't use UNIVERSAL::isa because we want to honor isa() overrides
        local($@, $!);  # ev <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1064	1169	
==>eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NAME

symbol - the core s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35383	35478	
==>ill only accept inputs that would result in
a cross-product when joined.  This method has aliase <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39933	40028	
==>ill only accept inputs that would result in
a cross-product when joined.  This method has aliase <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39493	39588	
==>ill only accept inputs that would result in
a cross-product when joined.  This method has aliase <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4930	5058	
==>ath_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4930	5058	
==>ath_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	784	899	
==>:Reducer::DynamicScoping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4437	4547	
==>ly, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4437	4547	
==>ly, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	445	560	
==>od (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	445	560	
==>od (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	445	560	
==>od (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16526	16672	
==>nt( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16805	16951	
==>nt( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { bloc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10344	10432	
==>s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1427	1534	
==>vert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1427	1534	
==>vert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1427	1534	
==>vert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24041	24134	
==>ptional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28593	28686	
==>ptional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27424	27517	
==>ptional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3304	3413	
==>lass-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3304	3413	
==>lass-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3304	3413	
==>lass-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the E <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	487	582	
==>er_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	487	582	
==>er_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7550	7683	
==>pture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7538	7671	
==>pture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6315	6445	
==>ray)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12560	12665	
==>XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12560	12665	
==>XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12560	12665	
==>XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - se <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	105	235	
==>}

sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5353	5481	
==>Value',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlur <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5353	5481	
==>Value',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4008	4117	
==>= @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4008	4117	
==>= @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4008	4117	
==>= @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1876	1983	
==>.FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1876	1983	
==>.FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1876	1983	
==>.FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5125	5233	
==>sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->n <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1270	1362	
==>e using Microsoft Windows, you will need the 'nmake' utility
before installation. It's availa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1110	1202	
==>e using Microsoft Windows, you will need the 'nmake' utility
before installation. It's availa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1126	1241	
==>d);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1126	1241	
==>d);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1126	1241	
==>d);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28947	29040	
==>ibutes that become wrapped, and it supports having new tuple-valued
attributes which wrap zero <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33499	33592	
==>ibutes that become wrapped, and it supports having new tuple-valued
attributes which wrap zero <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32636	32729	
==>ibutes that become wrapped, and it supports having new tuple-valued
attributes which wrap zero <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19362	19483	
==>sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}


sub p6_eval {
    my($p6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	436	527	
==>ders

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encodin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	436	527	
==>ders

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encodin <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10876	10984	
==></p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend, the
    <code>ext/</cod <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3390	3486	
==>, it does not handle time zones or leap
seconds.

All methods take named parameters unless otherw <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3390	3486	
==>, it does not handle time zones or leap
seconds.

All methods take named parameters unless otherw <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1519	1709	
==>ren(
                                Tree.new(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).add_children(
                                        Tree.new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13652	13815	
==>erson', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13652	13815	
==>erson', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11475	11650	
==>match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds an 'before' or <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22201	22297	
==>ely in the search
list.  The analogy is similar to inheriting from multiple packages which
have t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22201	22297	
==>ely in the search
list.  The analogy is similar to inheriting from multiple packages which
have t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	880	985	
==>ody) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	880	985	
==>ody) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	880	985	
==>ody) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($body) & <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9961	10083	
==>s.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9961	10083	
==>s.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	855	969	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	855	969	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	855	969	
==>_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21431	21573	
==>aram ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21431	21573	
==>aram ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21431	21573	
==>aram ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6260	6383	
==>(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6260	6383	
==>(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for ( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6007	6128	
==>$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) is primitive is safe is builtin {$r.f.($x)}


sub rx_common_($hook,%mods0,$pa <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3683	3797	
==><=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1866	1964	
==>im($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expec <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1924	2022	
==>im($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expec <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1833	1946	
==>_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $des <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1833	1946	
==>_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $des <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1913	2026	
==>_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $des <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	52	147	
==>n/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841971693993751 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	52	147	
==>n/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841971693993751 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	52	147	
==>n/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433832795028841971693993751 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5791	5914	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => 'anyof_range',
      data = <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	616	745	
==>dy with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	616	745	
==>dy with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2462	2561	
==>x:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2462	2561	
==>x:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10901	10997	
==>$method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10901	10997	
==>$method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10901	10997	
==>$method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5458	5572	
==>$i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5458	5572	
==>$i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5458	5572	
==>$i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9559	9741	
==>when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9559	9741	
==>when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3413	3527	
==>ns for with the replacement nodes

=item *

Ensuring that there is no crap in the AST - no calls to stubs and no in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14138	14267	
==>";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14138	14267	
==>";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14138	14267	
==>";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless define <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6545	6662	
==>dule is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6545	6662	
==>dule is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14747	14849	
==>in hand when doing p6 regex.



Notes on struct regex:

  typedef struct regexp {

The regular expressi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6152	6271	
==>COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6152	6271	
==>COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6152	6271	
==>COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from superclass <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10776	10892	
==>ements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUT <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10776	10892	
==>ements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9758	9877	
==>idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9758	9877	
==>idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9758	9877	
==>idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    / <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11846	11952	
==>igit>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 9.3.1
      <[0..9]>
}
rule Exponen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7355	7455	
==>able.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7355	7455	
==>able.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9806	9918	
==>"rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partial <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	244	352	
==>"rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partial <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	244	352	
==>"rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partial <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2438	2556	
==>}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$construct <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2438	2556	
==>}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$construct <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	495	596	
==>nf{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ / <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8678	8885	
==>ybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a string with a wan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18032	18135	
==>ULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18032	18135	
==>ULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18032	18135	
==>ULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1878	1975	
==>es, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method by <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1878	1975	
==>es, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method by <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1878	1975	
==>es, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1871	1983	
==>arename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1871	1983	
==>arename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1871	1983	
==>arename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9587	9677	
==>.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9587	9677	
==>.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9587	9677	
==>.add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12032	12122	
==>>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12032	12122	
==>>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12032	12122	
==>>add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10655	10804	
==>$tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10655	10804	
==>$tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10655	10804	
==>$tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

package Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	199	321	
==>aram::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Adde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	199	321	
==>aram::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Adde <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	199	321	
==>aram::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Adde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1304	1406	
==>more).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1304	1406	
==>more).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1304	1406	
==>more).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against r <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	855	979	
==>rings )  {
            $.argument_class.string_to_arguments( @strings );
        }
    }

    class Getopt::Argument::Style { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1235	1334	
==>ns can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subs <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1235	1334	
==>ns can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	765	927	
==>);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	765	927	
==>);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	765	927	
==>);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::in <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1060	1174	
==>LD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31545	31640	
==>c
to it, another library likewise, and a program which uses both libraries
could have yet anothe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31545	31640	
==>c
to it, another library likewise, and a program which uses both libraries
could have yet anothe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2710	2818	
==>TDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.fl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2710	2818	
==>TDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.fl <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1649	1785	
==>$pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->li <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	526	629	
==>INFO

# Read the logfile
while(<>) {
  # Only process headlines
  next unless m/^r/ and m/lines?$/ and m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5625	5734	
==>{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5625	5734	
==>{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5625	5734	
==>{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7178	7356	
==>->{param}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38130	38222	
==>_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Templ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38130	38222	
==>_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Templ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	906	1013	
==>(This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	906	1013	
==>(This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	906	1013	
==>(This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExce <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1212	1315	
==>urce fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1212	1315	
==>urce fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	252	361	
==>y (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	252	361	
==>y (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	252	361	
==>y (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	969	1074	
==>ame => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	969	1074	
==>ame => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	969	1074	
==>ame => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6932	7022	
==>->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $self->red <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2733	2816	
==>/groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.o <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2733	2816	
==>/groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15785	15888	
==>('$class:')->send('dispatcher' => (symbol->new(':descendant'))));
                $e->create('$c' => $e- <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	315	417	
==>);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	315	417	
==>);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<so <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25979	26072	
==>ribute names that aren't being renamed.  This method
supports renaming attributes to each othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30531	30624	
==>ribute names that aren't being renamed.  This method
supports renaming attributes to each othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29506	29599	
==>ribute names that aren't being renamed.  This method
supports renaming attributes to each othe <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	565	662	
==>f:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	565	662	
==>f:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17580	17725	
==>n_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21057	21202	
==>n_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20644	20789	
==>n_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4523	4635	
==>bclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4523	4635	
==>bclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4523	4635	
==>bclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1976	2091	
==>->[1]->( $_[0], $state[1], $_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[6,7 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3442	3536	
==>tally object-oriented; the procedural and functional 
interfaces are layers on top of the objec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3442	3536	
==>tally object-oriented; the procedural and functional 
interfaces are layers on top of the objec <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1189	1300	
==>intf STDERR "%sfailed%s.\n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vli <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2450	2556	
==>ompile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*Varia <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2450	2556	
==>ompile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*Varia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16716	16832	
==>t_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16716	16832	
==>t_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16716	16832	
==>t_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# no <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	458	613	
==>s),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	458	613	
==>s),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1096	1195	
==>lequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1096	1195	
==>lequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1096	1195	
==>lequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $k <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22789	22905	
==>Set operators.

Like the Set data type, the Relation::Example data type is immutable.  The value of
a Relation::Examp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4748	4841	
==>mode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4970	5063	
==>mode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	587	708	
==>ue => { single_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10847	11000	
==>ar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11126	11279	
==>ar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2557	2667	
==>l = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain:    "; my $main =   traverse_ast ( %pad<"pilMain"> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3749	3899	
==>oin( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    my $n = $_[0];
    #warn "emit: ", D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6124	6246	
==>re(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5929	6045	
==>re(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1350	1447	
==>= {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1350	1447	
==>= {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2566	2655	
==>stance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2566	2655	
==>stance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2566	2655	
==>stance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7246	7391	
==>{
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7246	7391	
==>{
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7246	7391	
==>{
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2171	2265	
==>=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the easi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2171	2265	
==>=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the easi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24642	24736	
==>ree->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->string <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25614	25708	
==>ree->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13935	14046	
==>rol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13935	14046	
==>rol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13935	14046	
==>rol('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_packa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	694	805	
==>ce: ', $self->{source}, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3045	3141	
==>n Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $sel <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3045	3141	
==>n Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37188	37283	
==>uation where the heading of one source relation is a
full subset of another, the result degenera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41737	41832	
==>uation where the heading of one source relation is a
full subset of another, the result degenera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41360	41455	
==>uation where the heading of one source relation is a
full subset of another, the result degenera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5107	5209	
==>my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5107	5209	
==>my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5107	5209	
==>my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to *$f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1517	1633	
==>re it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1517	1633	
==>re it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1517	1633	
==>re it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance methods

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2367	2554	
==>shift;
                my $idx = shift;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = shift;
                % <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1692	1789	
==>no $num or $name is given, a new scope is introduced but the resulting object
is discarded (used f <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1692	1789	
==>no $num or $name is given, a new scope is introduced but the resulting object
is discarded (used f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3792	3936	
==>n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    my $n = $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4276	4368	
==>ce::Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4276	4368	
==>ce::Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9707	9861	
==>uleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9986	10140	
==>uleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14438	14564	
==>,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emit {
    my($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6592	6707	
==>ur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6592	6707	
==>ur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6592	6707	
==>ur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8615	8734	
==>rd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24361	24466	
==>($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20782	20887	
==>($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7464	7601	
==>SS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7464	7601	
==>SS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7464	7601	
==>SS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4471	4601	
==>1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4471	4601	
==>1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4471	4601	
==>1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	643	746	
==>f $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	643	746	
==>f $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	643	746	
==>f $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16157	16262	
==>Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16157	16262	
==>Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16157	16262	
==>Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1618	1730	
==>tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install check
    if( $inst->is_instal <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1823	1919	
==>hod intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersect <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1823	1919	
==>hod intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersect <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4948	5140	
==>switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <'with'>
    | <'default'>
    | <'if'>
    | <'throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'d <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6028	6136	
==>te here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/operat <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6418	6526	
==>te here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/operat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1024	1125	
==>ox.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1024	1125	
==>ox.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1024	1125	
==>ox.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7064	7173	
==>{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7064	7173	
==>{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7064	7173	
==>{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3423	3516	
==>ags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-m <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3423	3516	
==>ags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2329	2448	
==>lf) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2329	2448	
==>lf) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2329	2448	
==>lf) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(function (str, substr, pos) {
    return str. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12054	12180	
==>s - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12048	12174	
==>s - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12439	12534	
==>(opaque $class:) (str $canidate) (hash %params)) returns opaque
    ((($canidate to_bit) or (= $ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2259	2366	
==>1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_away <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	515	619	
==>:Module  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# (very primitive at t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12427	12541	
==>, @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12427	12541	
==>, @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12427	12541	
==>, @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12094	12189	
==>e. Potenially dangerous. Uses the shell.
    # Please remember to update t/pugsrun/11-safemode.t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2326	2420	
==>n short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2326	2420	
==>n short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17910	18003	
==>from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17910	18003	
==>from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17910	18003	
==>from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10302	10404	
==>('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2423	2518	
==>ng-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or modif <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2423	2518	
==>ng-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or modif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2345	2476	
==>$msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2345	2476	
==>$msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1232	1330	
==>or anything but a human.  To
make it easier for programs to work with test results, we provide
Test <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2732	2859	
==>$sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2732	2859	
==>$sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4260	4368	
==>\<(!?)\( <code> \)\> }
rule code { [ <-[\{\}]> | \{ <code> <'}'> ]* }
rule metasyntactic_var      { \<(!?)<[\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1495	1592	
==>name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1495	1592	
==>name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1495	1592	
==>name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2920	3038	
==>file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2920	3038	
==>file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2920	3038	
==>file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5602	5704	
==>JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5602	5704	
==>JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5602	5704	
==>JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link= <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4781	4884	
==>not sure if it breaks other MM-users
    # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    ope <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15430	15529	
==>sion
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node can b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15430	15529	
==>sion
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node can b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8797	8956	
==>elf->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8797	8956	
==>elf->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8797	8956	
==>elf->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1372	1483	
==>[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1372	1483	
==>[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	486	578	
==>pile(q(<'rule'> <rule_name><?ws>?<block>{
	my $body = substr($<block>, 1, -1);
	$body =~ s/\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2056	2176	
==>new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2056	2176	
==>new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2056	2176	
==>new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1832	1927	
==>the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1832	1927	
==>the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1832	1927	
==>the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	223	331	
==>elf = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12140	12246	
==>.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = shift;

    return un <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2066	2171	
==>'EOG

sub stringify {
	my $dag = shift;

	my @free;

	my $tree = $dag->splat(\@free); # Attribute grammars <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1668	1769	
==>=> "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as processing ins <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1668	1769	
==>=> "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as processing ins <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6066	6153	
==>$expected_type) . " for placeholder of " . Blondie::Emitter::Pretty->new->string(Blondie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8304	8419	
==>.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      return m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8304	8419	
==>.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      return m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8304	8419	
==>.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      return m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3176	3299	
==>ess (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3176	3299	
==>ess (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3176	3299	
==>ess (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8776	8905	
==>] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8764	8893	
==>] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3742	3850	
==>k {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	# all thunks with protos were already defined as f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1110	1223	
==>5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_star <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1110	1223	
==>5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_star <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1110	1223	
==>5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_star <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8039	8152	
==>ugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8027	8140	
==>ugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8177	8280	
==>everse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from PIL2JS Array.pm r8593. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13560	13766	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13839	14045	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	584	702	
==>the same level
my %rule_templates = (
    prefix =>          '<op> <equal>', 
    circumfix =>       '<op> <parse> <op2 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1411	1526	
==>fic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1411	1526	
==>fic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	156	262	
==>class;
}

sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = shift;

	Blondie::TypeSafe:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7895	8097	
==>\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete ' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1196	1398	
==>\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14048	14158	
==>LASS($dispatcher) -> $c {
        for $c->get_attribute_list() -> $attr {
            %attrs{$attr->name} = $at <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2275	2379	
==>mmand class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Comm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2275	2379	
==>mmand class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Comm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29737	29832	
==>new Relation::Example
which has a subset of the original's attributes; that subset is the same a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1176	1272	
==>ntime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1176	1272	
==>ntime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10083	10224	
==>y => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10083	10224	
==>y => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10083	10224	
==>y => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2737	2847	
==>nt->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2737	2847	
==>nt->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2737	2847	
==>nt->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5932	6135	
==>ddle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5932	6135	
==>ddle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5932	6135	
==>ddle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cs <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1095	1221	
==>ays.  It is otherwise stable.

Test::Harness is limited to printing out its results.  This makes
analysis of the test results d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2578	2664	
==>mpiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2790	2876	
==>mpiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13951	14081	
==>\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10124	10254	
==>\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10960	11090	
==>\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	548	648	
==>acked in an Object with
# the property .FETCH() holding the original value. This is necessary to
# em <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	548	648	
==>acked in an Object with
# the property .FETCH() holding the original value. This is necessary to
# em <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	548	648	
==>acked in an Object with
# the property .FETCH() holding the original value. This is necessary to
# em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	199	309	
==>ebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	199	309	
==>ebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	199	309	
==>ebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    on <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6963	7065	
==>s primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  whi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6963	7065	
==>s primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  whi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6963	7065	
==>s primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  whi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5362	5558	
==>_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8839	9035	
==>_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7859	8055	
==>_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10555	10698	
==>uilder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1081	1210	
==>uilder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    sub <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1081	1210	
==>uilder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9867	9973	
==>patcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _norma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9867	9973	
==>patcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _norma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9867	9973	
==>patcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _norma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6267	6386	
==>(\$self\)=/my \$out; my\(\$self\)=/;

    #print $p;
    eval $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34678	34774	
==>elation, and returns a new Relation that has the
same heading as the invocant and whose body cont <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39228	39324	
==>elation, and returns a new Relation that has the
same heading as the invocant and whose body cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7323	7498	
==>' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7323	7498	
==>' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7323	7498	
==>' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	542	638	
==>ge PMCPtr;
# fix the typemap to make all those stuff live in Inline::Parrot::PMC
our $interpreter <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	738	912	
==>pts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    un <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	738	912	
==>pts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8099	8191	
==>= $FooBar->new();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	414	510	
==>}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	414	510	
==>}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	414	510	
==>}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4046	4164	
==>Text::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4046	4164	
==>Text::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25362	25442	
==>,J))).
set_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	788	894	
==>d()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($sel <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	788	894	
==>d()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	984	1083	
==>s::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $body = substr($<b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	69	172	
==>*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	69	172	
==>*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	69	172	
==>*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	487	583	
==>l bytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	487	583	
==>l bytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7772	7914	
==>'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7772	7914	
==>'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29959	30058	
==>ean, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10151	10272	
==>f $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10151	10272	
==>f $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10151	10272	
==>f $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13665	13889	
==>( ', ', 
                map { 
                    join( ' => ', map { "'" . _emit($_) . "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17156	17250	
==>ise use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17156	17250	
==>ise use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17619	17735	
==>pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code .= "our \$META;\n";
    $c <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14817	14914	
==>, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duratio <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14817	14914	
==>, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duratio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2700	2812	
==>= "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2700	2812	
==>= "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1149	1256	
==>rom args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1149	1256	
==>rom args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1149	1256	
==>rom args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual ch <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10681	10798	
==>me =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10839	10956	
==>me =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38203	38296	
==>ossibly empty) Template text string in
its positional parameter $text (a string), and a Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38203	38296	
==>ossibly empty) Template text string in
its positional parameter $text (a string), and a Messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3142	3245	
==>bel) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3142	3245	
==>bel) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3142	3245	
==>bel) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$label};
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6820	6930	
==>owing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6820	6930	
==>owing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6820	6930	
==>owing line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6057	6156	
==>parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Eith <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6057	6156	
==>parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Eith <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6057	6156	
==>parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Eith <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12942	13059	
==>$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12942	13059	
==>$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12942	13059	
==>$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2351	2483	
==>oerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2351	2483	
==>oerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2351	2483	
==>oerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4208	4304	
==>h. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defa <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	12	108	
==>erl

package P6RulesInP5::OpTable;
use base qw/Class::Accessor/;

use strict;
use warnings;
use c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4392	4488	
==>h. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4501	4600	
==>pace_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4501	4600	
==>pace_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4501	4600	
==>pace_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19003	19120	
==>tart => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19003	19120	
==>tart => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19003	19120	
==>tart => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29462	29563	
==>ns true if
the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13511	13601	
==>me
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13511	13601	
==>me
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7067	7188	
==>le->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24621	24714	
==>ocale::KeyedText does not declare any subroutines or export such.

The usual way that Locale:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24621	24714	
==>ocale::KeyedText does not declare any subroutines or export such.

The usual way that Locale:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6183	6319	
==>'t filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6183	6319	
==>'t filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way <==
3	/Users/nnunley/pugs/util/package-osx.pl	1674	1768	
==>/usr/local/lib/perl5/site_perl/pil2js.pl /Library/Perl/5.8.6/pil2js.pl
        /usr/local/lib/p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3983	4082	
==>ammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4167	4266	
==>ammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Di <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6792	6910	
==>med'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'Str <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6792	6910	
==>med'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'Str <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3691	3809	
==>med'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3804	3945	
==>sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3804	3945	
==>sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3804	3945	
==>sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1046	1172	
==>',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        4 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1046	1172	
==>',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	76	181	
==>tainer::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	76	181	
==>tainer::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	76	181	
==>tainer::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31835	31966	
==>, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31835	31966	
==>, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31835	31966	
==>, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7423	7509	
==>IL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7423	7509	
==>IL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7423	7509	
==>IL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1664	1793	
==>,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1857	1986	
==>,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex => <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6576	6662	
==>-> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_matchref(I).
p5_elemen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2362	2475	
==>hod: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DES <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2362	2475	
==>hod: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DES <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3894	3997	
==>st::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &co <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3952	4055	
==>st::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	423	553	
==>( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
        name => 'postcircumfix:<' . $opt{name} . ' ' . $opt{nam <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1565	1659	
==>head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<ex <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1565	1659	
==>head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<ex <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9713	9863	
==>-> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @v <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	936	1062	
==>-> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @v <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19136	19254	
==>reps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = reps[$P1]
    savereps[$P1] = $P2
    goto reps <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1904	2080	
==>\$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2109	2285	
==>\$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2172	2348	
==>\$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # a <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	942	1057	
==>cape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	942	1057	
==>cape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11321	11453	
==>for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11321	11453	
==>for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11321	11453	
==>for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6365	6475	
==>e();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6365	6475	
==>e();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6365	6475	
==>e();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is pr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10709	10813	
==>able::free->new;
		
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4612	4709	
==>no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4612	4709	
==>no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	212	320	
==>('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	212	320	
==>('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	212	320	
==>('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10803	10971	
==>ata::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7144	7312	
==>ata::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7993	8161	
==>ata::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6229	6325	
==>_export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6229	6325	
==>_export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6229	6325	
==>_export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ /import$/
        ? sprintf("PIL2JS.cps2no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21437	21554	
==>S - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17858	17975	
==>S - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21113	21216	
==>leanly.

=item Flag Handlers

Flag handlers now receive an additional argument that says whether
they're <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4966	5104	
==>ems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4966	5104	
==>ems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4966	5104	
==>ems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28697	28791	
==>ttribute names that aren't being
wrapped, or any C<$mapping> value set members do not match inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33249	33343	
==>ttribute names that aren't being
wrapped, or any C<$mapping> value set members do not match inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32377	32471	
==>ttribute names that aren't being
wrapped, or any C<$mapping> value set members do not match inv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6199	6321	
==>my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6199	6321	
==>my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6199	6321	
==>my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6380	6500	
==>e}->fetch
            if exists $current->{env}->{$name};  
        $current = $current->next;
    }
    confess "'$name' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	96	189	
==>EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	96	189	
==>EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3912	4019	
==>rammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: synt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4129	4236	
==>rammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: synt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13199	13305	
==>PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13199	13305	
==>PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13199	13305	
==>PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3660	3781	
==>&& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3660	3781	
==>&& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3660	3781	
==>&& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (define <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2235	2352	
==>els}};
    for my $op ( @{$self->{levels}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25624	25718	
==>he invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> say <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30176	30270	
==>he invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> say <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19776	19874	
==>B infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19776	19874	
==>B infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19776	19874	
==>B infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	285	383	
==>an.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	285	383	
==>an.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	285	383	
==>an.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10746	10863	
==>rt($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note t <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10746	10863	
==>rt($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	769	886	
==>flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	769	886	
==>flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	769	886	
==>flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	319	434	
==>0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
} <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	319	434	
==>0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
} <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10490	10601	
==>late->new(filename => catdir $start_dir, 
                     'util','catalog_tmpl','code.tmpl');  
  $template <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2013	2143	
==>{
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2013	2143	
==>{
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2013	2143	
==>{
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7426	7539	
==>chain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7426	7539	
==>chain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7426	7539	
==>chain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1288	1390	
==>fix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1288	1390	
==>fix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1288	1390	
==>fix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	280	409	
==>lid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	280	409	
==>lid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	280	409	
==>lid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13345	13447	
==>e() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_aut <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13345	13447	
==>e() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_aut <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	185	281	
==>'0.20';

use Test::Harness::Assert;
use Test::Harness::Iterator;

# Flags used as return values f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	398	516	
==>s = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	398	516	
==>s = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	398	516	
==>s = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11780	11889	
==>b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11780	11889	
==>b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11780	11889	
==>b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6 <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3399	3521	
==>CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  " <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13388	13488	
==>r to most of the functions is a way
to provide a comment that refers to another file or test which mu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13446	13546	
==>r to most of the functions is a way
to provide a comment that refers to another file or test which mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2576	2707	
==>@_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2576	2707	
==>@_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2576	2707	
==>@_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2413	2552	
==>value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2413	2552	
==>value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7214	7328	
==>SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook_p5re...\n");
      handler = sv;
    }
  }  
  /* If no han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7187	7302	
==>mp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7187	7302	
==>mp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7187	7302	
==>mp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13952	14053	
==>thod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13952	14053	
==>thod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13952	14053	
==>thod('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You must p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3365	3474	
==>inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3365	3474	
==>inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3365	3474	
==>inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11621	11725	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11621	11725	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11621	11725	
==>lue::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1156	1274	
==>OLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shells have trouble with a full line of text.

=head1 SY <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3339	3452	
==>rman (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute acc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3339	3452	
==>rman (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute acc <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3641	3744	
==>root of an Parrot source directory.
  --pge=$pge
    mklivecd.pl takes --pge as the path of the PGE ship <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1466	1573	
==>-s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1466	1573	
==>-s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1466	1573	
==>-s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} e <==
3	/Users/nnunley/pugs/util/func_refact.pl	3121	3225	
==>al - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
sub ::Y <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5410	5513	
==>timestamp to a response when it has been received.
method client_date ($self: )         is rw { $self!da <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5410	5513	
==>timestamp to a response when it has been received.
method client_date ($self: )         is rw { $self!da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1661	1755	
==>_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1661	1755	
==>_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1661	1755	
==>_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9894	10006	
==>irs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 199 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9894	10006	
==>irs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 199 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3160	3295	
==>e( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3160	3295	
==>e( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3160	3295	
==>e( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4301	4404	
==>family eq 'group') {
    my $vis = join "", map $_->qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19392	19487	
==>the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19392	19487	
==>the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6650	6766	
==>pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6650	6766	
==>pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6650	6766	
==>pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, lo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3510	3651	
==>$old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3510	3651	
==>$old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1630	1729	
==>has_failed,
    }, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2942	3056	
==>rror Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2942	3056	
==>rror Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1102	1197	
==>Type/;
	sub type { $_[0] }

	package Blondie::TypeSafe::Type::Placeholder;
	use base qw/Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	312	452	
==>E;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS suppo <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	312	452	
==>E;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS suppo <==
3	/Users/nnunley/pugs/misc/S29_round.pl	688	810	
==>x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1729	1842	
==>d(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1729	1842	
==>d(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1729	1842	
==>d(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10163	10296	
==>y->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrap <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10163	10296	
==>y->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrap <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10163	10296	
==>y->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	4	113	
==>signment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	4	113	
==>signment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	4	113	
==>signment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	776	933	
==>lException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	776	933	
==>lException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	776	933	
==>lException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6690	6847	
==>e_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5194	5351	
==>e_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15675	15793	
==>range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10531	10649	
==>range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3182	3277	
==>]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11361	11513	
==>g else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11361	11513	
==>g else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11361	11513	
==>g else is not auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	944	1066	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	944	1066	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	944	1066	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17135	17256	
==>node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_preci <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17135	17256	
==>node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_preci <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9703	9903	
==>iption => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	283	471	
==>iption => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	283	471	
==>iption => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10623	10741	
==>r has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14100	14218	
==>r has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13399	13517	
==>r has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6839	6949	
==>d) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6839	6949	
==>d) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6839	6949	
==>d) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5962	6061	
==>_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $message pa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5962	6061	
==>_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $message pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5381	5517	
==>v}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5381	5517	
==>v}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5381	5517	
==>v}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7032	7192	
==>[
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7032	7192	
==>[
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3633	3739	
==>vocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3633	3739	
==>vocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3633	3739	
==>vocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3956	4148	
==>) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this sho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3197	3283	
==>nd::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3197	3283	
==>nd::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14034	14134	
==>d = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14034	14134	
==>d = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14034	14134	
==>d = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13921	14036	
==>t_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13921	14036	
==>t_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13921	14036	
==>t_attribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	850	961	
==>gth; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	850	961	
==>gth; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	850	961	
==>gth; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1114	1219	
==>ances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1114	1219	
==>ances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1114	1219	
==>ances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# needed because w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3540	3651	
==>rl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2583	2691	
==>rl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2358	2463	
==>}

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1365	1498	
==>unless ref( $n ) eq 'HASH';
        
    return _mangle_ident( $n->{bareword} )
        if exists $n->{bareword};
        
    re <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5304	5429	
==>d.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of this module
    # to prop <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5304	5429	
==>d.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of this module
    # to prop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3376	3466	
==>d([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3376	3466	
==>d([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3376	3466	
==>d([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1870	1995	
==>than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1870	1995	
==>than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1870	1995	
==>than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4313	4464	
==>h ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = spli <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4313	4464	
==>h ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = spli <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26648	26744	
==>is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x1000000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8798	8974	
==>:Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8798	8974	
==>:Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8798	8974	
==>:Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4976	5086	
==>de block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4976	5086	
==>de block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4976	5086	
==>de block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13442	13646	
==>ss_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will han <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13442	13646	
==>ss_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will han <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13442	13646	
==>ss_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will han <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1278	1382	
==>nk "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dis <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14813	14911	
==>:int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_dura <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14813	14911	
==>:int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_dura <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3435	3545	
==>.";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3435	3545	
==>.";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23296	23386	
==>oyed when objects of
multiple different Relation-implementing classes are used together, an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3802	3907	
==>ame the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3802	3907	
==>ame the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3802	3907	
==>ame the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1053	1167	
==>($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1053	1167	
==>($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1053	1167	
==>($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9667	9778	
==>e_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9667	9778	
==>e_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9667	9778	
==>e_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4542	4634	
==>ebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4542	4634	
==>ebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4542	4634	
==>ebase>

    Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4561	4670	
==>nfess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4561	4670	
==>nfess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4561	4670	
==>nfess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1099	1299	
==>$size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=ov <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1099	1299	
==>$size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=ov <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18915	19047	
==>n't call method "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) {
                    my $re <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	785	910	
==>escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encod <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	785	910	
==>escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5928	6040	
==>red, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5928	6040	
==>red, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5928	6040	
==>red, but a value hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7486	7584	
==>th_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @base <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7486	7584	
==>th_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @base <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4652	4747	
==>e (uncompressed) initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2616	2716	
==>$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2616	2716	
==>$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2616	2716	
==>$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2950	3051	
==>op();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2950	3051	
==>op();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2950	3051	
==>op();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2858	2970	
==>rt $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2858	2970	
==>rt $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2858	2970	
==>rt $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4048	4159	
==>link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4048	4159	
==>link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4048	4159	
==>link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', aborting.\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15607	15719	
==>ep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15607	15719	
==>ep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15607	15719	
==>ep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4475	4569	
==>nd returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4475	4569	
==>nd returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5999	6093	
==>nd returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6349	6469	
==>, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# X <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6349	6469	
==>, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# X <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5280	5386	
==>e should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<=== <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5280	5386	
==>e should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<=== <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5280	5386	
==>e should return undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<=== <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2617	2739	
==>h        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2617	2739	
==>h        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2617	2739	
==>h        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, fr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1580	1692	
==>n $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Packa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4783	4895	
==>n $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3502	3652	
==>lf.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3502	3652	
==>lf.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3502	3652	
==>lf.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16560	16678	
==>get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5991	6098	
==>Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Cod <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5991	6098	
==>Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6372	6544	
==>var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{param} );
            }
            return " print '', $s";
        }
        if ( $n->{met <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3668	3763	
==>her "enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3668	3763	
==>her "enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2742	2893	
==>label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2742	2893	
==>label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2742	2893	
==>label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3805	3977	
==>e.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3805	3977	
==>e.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33742	33833	
==>, Code $transformer!) returns Relation::Example>

This method is a short-hand or alternative <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	291	408	
==>]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	291	408	
==>]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	291	408	
==>]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3716	3853	
==>et]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } else {
        d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4140	4260	
==>or 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => [ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3995	4112	
==>or 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => [ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3416	3535	
==>>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1774	1893	
==>>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2554	2673	
==>>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fix <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3123	3253	
==>@$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3123	3253	
==>@$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3123	3253	
==>@$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1168	1282	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1168	1282	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1168	1282	
==>($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2202	2327	
==>:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	199	312	
==>:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	199	312	
==>:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21622	21794	
==>Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21622	21794	
==>Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21622	21794	
==>Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1700	1794	
==>args->{INST_BIN} =
      File::Spec->catfile($path, "bin");
    $self->makemaker_args->{INST_MA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5380	5494	
==>op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_st <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	816	930	
==>warn "More than one result found, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_ins <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27976	28067	
==>ssociated with
the variable name specified in the positional parameter $var_name (a
string). <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27976	28067	
==>ssociated with
the variable name specified in the positional parameter $var_name (a
string). <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4647	4773	
==>'½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4647	4773	
==>'½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	421	517	
==>EGIN{
node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' , <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1184	1279	
==>Perl6>) disambiguates this case.

Types have a dispatch table; this is a collection of functions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4989	5111	
==>al case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4989	5111	
==>al case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4989	5111	
==>al case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly w <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6445	6543	
==>:pos == (length($X::str)) || substr($X::str,$X::pos,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c, <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5395	5501	
==>_}          } qw<pugs_version pugs_revision osname runcore timestamp duration>),
    (map { $smoke{summary} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38653	38748	
==>ill return "Hello World!".  All
occurances of any given variable name will be replaced, non-recu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38653	38748	
==>ill return "Hello World!".  All
occurances of any given variable name will be replaced, non-recu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17197	17290	
==>(hash %params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :descendant)) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13075	13171	
==>ader fields used to describe the content of
a message.  All header field names prefixed with C<Co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13075	13171	
==>ader fields used to describe the content of
a message.  All header field names prefixed with C<Co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2014	2138	
==>xpect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2014	2138	
==>xpect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2094	2218	
==>xpect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	69	169	
==>e::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Mo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	69	169	
==>e::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Mo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	69	169	
==>e::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives which are written in p6.
Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3618	3727	
==>ode to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3618	3727	
==>ode to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3618	3727	
==>ode to eval later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8926	9091	
==>1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12811	12944	
==>1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12811	12944	
==>1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	31	136	
==>e warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	31	136	
==>e warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	31	136	
==>e warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_class can refer t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	267	374	
==>l6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	267	374	
==>l6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	267	374	
==>l6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	648	761	
==>?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	648	761	
==>?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	620	713	
==>->pretty_print

Pretty prints the dependency declaration from the META.info.
It will turn an e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1958	2062	
==>control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub state <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1958	2062	
==>control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub state <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1958	2062	
==>control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub state <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1333	1461	
==>e_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1333	1461	
==>e_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1333	1461	
==>e_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2691	2810	
==>AX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2691	2810	
==>AX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2691	2810	
==>AX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::longmess;
		$o <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8134	8274	
==>736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8134	8274	
==>736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2094	2182	
==>->addToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18450	18568	
==>( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18450	18568	
==>( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18450	18568	
==>( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1651	1775	
==>@_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an implementat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1651	1775	
==>@_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an implementat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1651	1775	
==>@_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which do not have an implementat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17513	17657	
==>r {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20990	21134	
==>r {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20577	20721	
==>r {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1044	1147	
==>('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1277	1380	
==>('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit:: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14649	14744	
==>have
been iterated.

The lvalue form of C<keys> is not longer supported. Use the C<.buckets>
pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20637	20742	
==>s $self->omit;
  }
}


{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7515	7619	
==>ds.exists($label);
}

(method has_method ((opaque $self:) (symbol $label)) returns bit
    ((($self: get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15606	15709	
==>value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15606	15709	
==>value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15606	15709	
==>value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2059	2171	
==>.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2059	2171	
==>.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = <==
3	/Users/nnunley/pugs/util/munge_haddock.pl	75	175	
==>intained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8583	8708	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12060	12185	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &inte <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11269	11394	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6682	6791	
==>ception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6682	6791	
==>ception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6682	6791	
==>ception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8410	8534	
==>ray}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8410	8534	
==>ray}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8410	8534	
==>ray}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8400	8516	
==>eturn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8400	8516	
==>eturn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8400	8516	
==>eturn $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11593	11706	
==>'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11593	11706	
==>'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11593	11706	
==>'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	673	786	
==>sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	231	341	
==>' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	231	341	
==>' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	68	163	
==>se base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->boot <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	68	163	
==>se base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->boot <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	68	163	
==>se base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAGE__->boot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16236	16331	
==>if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16236	16331	
==>if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16236	16331	
==>if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7359	7494	
==>>{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::Perl6::Scalar::" . _emit( $n->{met <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5263	5390	
==>Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCx <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5263	5390	
==>Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCx <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	244	352	
==>goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	244	352	
==>goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3290	3400	
==>b is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3290	3400	
==>b is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3290	3400	
==>b is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	666	766	
==>stant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	666	766	
==>stant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	666	766	
==>stant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3354	3473	
==>d $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3354	3473	
==>d $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3354	3473	
==>d $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless def <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8515	8684	
==>f $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8515	8684	
==>f $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15125	15214	
==>ltiplicativeExpression>
    | <AdditiveExpression> <'-'> <MultiplicativeExpression>
}
rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27137	27249	
==>f->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $sel <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2976	3076	
==>vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphert <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2976	3076	
==>vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7935	8174	
==>$start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7935	8174	
==>$start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7935	8174	
==>$start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2127	2232	
==>');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2127	2232	
==>');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2127	2232	
==>');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:name' => '*');

# and add our m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3461	3642	
==>Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3461	3642	
==>Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3461	3642	
==>Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4726	4828	
==>?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=ov <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4726	4828	
==>?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=ov <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6923	7025	
==>?$description = ''>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=ov <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15650	15747	
==>Ss); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15650	15747	
==>Ss); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18742	18837	
==>need to supply its $document and optional
$parent_node though; you can produce a direct clone li <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18742	18837	
==>need to supply its $document and optional
$parent_node though; you can produce a direct clone li <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7641	7754	
==>an1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some ki <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7641	7754	
==>an1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some ki <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	299	411	
==>op protection
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potentia <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	28	122	
==>Metadata.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Metadata.pm"
package Module:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11492	11663	
==>" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7774	7945	
==>" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8608	8779	
==>" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9744	9839	
==>turns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9744	9839	
==>turns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Mo <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13788	13933	
==>LCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Dat <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3765	3864	
==>fy if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stri <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3765	3864	
==>fy if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stri <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1772	1868	
==>nused, but for forward compatibility it should always be the 
value C<1>, the default for the C<: <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1772	1868	
==>nused, but for forward compatibility it should always be the 
value C<1>, the default for the C<: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6464	6549	
==>imple_escape_sequence(R).
p5_elemental(negSet(X)) --> "[^", !, p5_charset_def(X), "]". <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38917	39013	
==>lation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; yo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43731	43827	
==>lation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; yo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5010	5120	
==>n $e->get('&dispatcher')->do();        
        }
    )
);

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	18	125	
==>.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	18	125	
==>.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5576	5688	
==>]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5576	5688	
==>]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5576	5688	
==>]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12960	13080	
==>fined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12960	13080	
==>fined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12960	13080	
==>fined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	708	958	
==>ULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	708	958	
==>ULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    s <==
3	/Users/nnunley/pugs/util/package-osx.pl	2337	2427	
==>relude/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm
        /Users/dromano/dev/pugs/examples /us <==
3	/Users/nnunley/pugs/misc/S29_round.pl	343	457	
==>nd_half_up_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, up below 0
    given abs($x) - floo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16198	16291	
==>ring); the optional named parameter %attributes (a hash ref) sets the
"Attributes" attribute i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16198	16291	
==>ring); the optional named parameter %attributes (a hash ref) sets the
"Attributes" attribute i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2911	3000	
==>_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2911	3000	
==>_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2911	3000	
==>_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvo <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2394	2537	
==>$valuex<\n  \#      Got: >$res<  from  $expr\n";
		} else {
		    print "ok\n";
		}
	    }
	}
    }
}

do {
    # $use_native_ui = 1;
    test(s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2967	3062	
==>ient, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2967	3062	
==>ient, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9302	9416	
==>.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_calle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9302	9416	
==>.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_calle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9302	9416	
==>.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_calle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5659	5811	
==>mmar::Precedence::add_to_list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{na <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6784	6902	
==>LER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $conte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6842	6960	
==>LER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $conte <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1199	1314	
==>) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->[$index->to_nativ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	712	806	
==>ethods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	712	806	
==>ethods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2915	3114	
==>, $c if $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    retur <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3845	3943	
==>"$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3845	3943	
==>"$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7379	7492	
==>, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7379	7492	
==>, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7379	7492	
==>, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Class. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4947	5054	
==>ay) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4947	5054	
==>ay) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4947	5054	
==>ay) is primitive {
  #die "Code block for \"grep\" must be unary!" unless $code.arity == 1;

  my @res;
  fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2971	3083	
==>_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2971	3083	
==>_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2971	3083	
==>_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.length; i++) {
    block_leave_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1166	1272	
==>e Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1166	1272	
==>e Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1166	1272	
==>e Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write outputs
# "string_t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	163	259	
==>sized
group.  This is approximately the Match object that userland folks will
see, but it has som <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	163	259	
==>sized
group.  This is approximately the Match object that userland folks will
see, but it has som <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1272	1364	
==>el_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19977	20067	
==>o_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19977	20067	
==>o_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19977	20067	
==>o_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35050	35213	
==>e->get('$return') == $bit::FALSE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e-> <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9949	10040	
==>sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9949	10040	
==>sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	577	684	
==>New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	577	684	
==>New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	577	684	
==>New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10580	10718	
==>arams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10580	10718	
==>arams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10580	10718	
==>arams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3592	3699	
==>thod($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3592	3699	
==>thod($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3592	3699	
==>thod($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_method(sub { 
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1542	1653	
==>proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1542	1653	
==>proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	313	438	
==>>{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	313	438	
==>>{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	313	438	
==>>{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3743	3873	
==>obj );
    }
}

sub find_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $Fi <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1669	1794	
==>elf, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub new {
    my ($class <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4001	4101	
==>ther pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehan <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4001	4101	
==>ther pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5731	5832	
==>thod:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and ad <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5731	5832	
==>thod:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7928	8029	
==>thod:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> method and ad <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	574	703	
==>T} ) {
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9740	9845	
==>\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9740	9845	
==>\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4142	4260	
==>f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_appl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4142	4260	
==>f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_appl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4142	4260	
==>f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_appl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5160	5312	
==>ay->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5160	5312	
==>ay->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5160	5312	
==>ay->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9906	10019	
==>ation detail 
    # for the methods described below.
    # -----------------------------------------------
    # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9906	10019	
==>ation detail 
    # for the methods described below.
    # -----------------------------------------------
    # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9906	10019	
==>ation detail 
    # for the methods described below.
    # -----------------------------------------------
    # h <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15561	15693	
==>oot-load-size" => 4,              # Set numbers of load sectors
      "-boot-info-table",                  # Patch boot image with in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3373	3473	
==>sted features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3557	3657	
==>sted features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+un <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5950	6054	
==>ndex) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5950	6054	
==>ndex) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	89	190	
==>tall is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install installed, cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3447	3570	
==>erl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3447	3570	
==>erl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3447	3570	
==>erl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2921	3036	
==>s field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2921	3036	
==>s field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11370	11474	
==>ass="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name=categories>
        <tr><th colspan="1 <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	163	283	
==>EXPORT = qw/smoke_runtime/;

my @progs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	11	109	
==>pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Messag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	11	109	
==>pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4117	4225	
==>->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4117	4225	
==>->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4117	4225	
==>->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2655	2761	
==>takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_depende <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3119	3225	
==>takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_depende <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	591	683	
==>ar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    rule <p6ws> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	516	617	
==>ich stack frame points to the code we are filtering.
# This is a method in case it needs to be overrid <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	516	617	
==>ich stack frame points to the code we are filtering.
# This is a method in case it needs to be overrid <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1074	1173	
==>}

method export_attr_names of List of Relation::AttrName () {
    return %!attrs.keys;
}

method ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3883	3989	
==><body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3883	3989	
==><body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3883	3989	
==><body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2962	3079	
==>4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2962	3079	
==>4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2962	3079	
==>4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	973	1070	
==>actually inherits a number of new attributes from various sources
# and we need to now create thes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	973	1070	
==>actually inherits a number of new attributes from various sources
# and we need to now create thes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	973	1070	
==>actually inherits a number of new attributes from various sources
# and we need to now create thes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10096	10209	
==>into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10096	10209	
==>into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'in <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13576	13710	
==>y $syndir = catdir($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $s <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1441	1543	
==>die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $ob <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1441	1543	
==>die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	587	690	
==>t setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	587	690	
==>t setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	587	690	
==>t setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->cat <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5668	5887	
==>:Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5668	5887	
==>:Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3247	3362	
==>t_perl6_rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n";
}

s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3704	3819	
==>!((~$x & $x) eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref =~ /\A(?:SCALAR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2409	2502	
==>elf => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2409	2502	
==>elf => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2409	2502	
==>elf => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	191	305	
==>anceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	191	305	
==>anceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	191	305	
==>anceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13437	13558	
==>&_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13437	13558	
==>&_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13437	13558	
==>&_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10243	10356	
==>_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style error messages instead of MPW style.
	    $runperl .= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7841	7934	
==>./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7841	7934	
==>./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<chann <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	474	585	
==>ng JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	474	585	
==>ng JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	474	585	
==>ng JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	655	784	
==>);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefull <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	655	784	
==>);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefull <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	655	784	
==>);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefull <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1203	1348	
==>f ( $8.defined ) {
        $second += "0.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Date::Gregorian.ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	675	784	
==>f });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	675	784	
==>f });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first . <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15132	15243	
==>che} = {};
    $self->{runtime} = shift;
    my $env = $self->{env} = shift;
    $self->{digests} = { map { Dige <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32484	32576	
==>named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37034	37126	
==>named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	302	400	
==>qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	302	400	
==>qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	302	400	
==>qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7688	7780	
==>sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7688	7780	
==>sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7688	7780	
==>sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3338	3488	
==>$level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} ) {
        push @{$self->{levels}}, [ $opt ];
        r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13529	13626	
==>uch as "say" and
database queries, may occur much later than expected.

It may enter an infinite l <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13529	13626	
==>uch as "say" and
database queries, may occur much later than expected.

It may enter an infinite l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	330	443	
==>se Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	362	475	
==>se Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11199	11305	
==>rt_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11199	11305	
==>rt_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1276	1383	
==>tance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1276	1383	
==>tance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1276	1383	
==>tance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1028	1180	
==>> '+',
        assoc => 'left',
        precedence => 'looser',
        other => '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        ass <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3934	4036	
==>f->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5293	5395	
==>f->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2570	2723	
==>$.diagnostic') },        
        'description' => sub { _('$.description') },        
        'status' => sub {
            return {
                pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10885	11021	
==>{
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10885	11021	
==>{
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7353	7444	
==>$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7353	7444	
==>$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) ret <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19110	19201	
==>,E0,E1) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(Re,F0,F1,B0, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8314	8408	
==>l to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specifi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8314	8408	
==>l to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6434	6569	
==>Grammar::Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "pars <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4052	4185	
==>:<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4052	4185	
==>:<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9452	9576	
==>n "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9452	9576	
==>n "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9452	9576	
==>n "other.elems = ".$other->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	317	434	
==>toderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	317	434	
==>toderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	317	434	
==>toderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	99	226	
==>Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-Meta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	99	226	
==>Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-Meta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	99	226	
==>Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-Meta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31145	31239	
==>ans,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31145	31239	
==>ans,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12497	12644	
==>ion );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $statu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2873	3008	
==>ion );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $statu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2873	3008	
==>ion );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $statu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6261	6410	
==>lar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6261	6410	
==>lar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6261	6410	
==>lar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7711	7817	
==>'}=1 if s/\*//;
	    $h{'isNamed'}=1 if s/\+//;
	    $h{'isInvocant'}=1 if s/\s*:\s*$//;
	    $h{'isLValue' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15331	15428	
==>C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by exte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15331	15428	
==>C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by exte <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3460	3584	
==>ail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3460	3584	
==>ail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl <==
3	/Users/nnunley/pugs/util/func_refact.pl	617	732	
==>or
        die "can't load nodes data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignoring: $_\n" for (@{$Con <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3190	3451	
==>{
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            inter <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3190	3451	
==>{
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            inter <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	636	735	
==>ray is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $no <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	636	735	
==>ray is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $no <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18870	18968	
==>tree the native
compiler creates, but which we obviously don't have).


=head1 struct regexp

  typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2040	2155	
==>$code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2040	2155	
==>$code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2040	2155	
==>$code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3537	3649	
==>f;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definitio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3537	3649	
==>f;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definitio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3537	3649	
==>f;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definitio <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	976	1071	
==>..] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	976	1071	
==>..] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1634	1776	
==>I::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1634	1776	
==>I::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3335	3475	
==>recedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right',
        p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1395	1497	
==>b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1395	1497	
==>b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1395	1497	
==>b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= St <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22817	22927	
==>ect(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19238	19348	
==>ect(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => su <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1023	1121	
==>cube root of 7 is: {newton(7, &f, $verbose => 1)}";

=head1 DESCRIPTION

Newton's method is a simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11737	11838	
==>le too. So this means that all classes
and roles can be polymorphic to one another. 

Because instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11737	11838	
==>le too. So this means that all classes
and roles can be polymorphic to one another. 

Because instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11737	11838	
==>le too. So this means that all classes
and roles can be polymorphic to one another. 

Because instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6497	6632	
==>>get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6497	6632	
==>>get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6497	6632	
==>>get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8998	9119	
==>eed a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8998	9119	
==>eed a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8998	9119	
==>eed a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5753	5856	
==>finite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5753	5856	
==>finite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5753	5856	
==>finite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10098	10217	
==>-------------    
      
    # -----------------------------------------------  
    # collects all the roles, and appli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10098	10217	
==>-------------    
      
    # -----------------------------------------------  
    # collects all the roles, and appli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10098	10217	
==>-------------    
      
    # -----------------------------------------------  
    # collects all the roles, and appli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9896	10053	
==>n ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	464	615	
==>n ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	464	615	
==>n ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14590	14734	
==>eturn 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14584	14728	
==>eturn 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4317	4431	
==>~ s{(['\\])}{\\$1}g;

    eval "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1103	1216	
==>$perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1103	1216	
==>$perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1103	1216	
==>$perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4784	4923	
==>lue::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4784	4923	
==>lue::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4784	4923	
==>lue::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'increment' => sub { 
                my $va <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	774	879	
==>XX - the sub(Siglet) syntax works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub look <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	607	706	
==>ut in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PR <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	607	706	
==>ut in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	148	258	
==>(args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	148	258	
==>(args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	148	258	
==>(args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19958	20104	
==>Y/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it wil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19958	20104	
==>Y/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it wil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19958	20104	
==>Y/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it wil <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7466	7588	
==>, grep { m{^/} or m{^-[DILl]} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2234	2337	
==>od send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2234	2337	
==>od send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4311	4519	
==>s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date / <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4311	4519	
==>s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date / <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2290	2489	
==>!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $kee <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2290	2489	
==>!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $kee <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1121	1243	
==>> '+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $diges <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	428	577	
==>Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	428	577	
==>Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	428	577	
==>Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12545	12644	
==>e result to is or ok
on success, or report that the eval was not successful on failure.

- `throws_o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12603	12702	
==>e result to is or ok
on success, or report that the eval was not successful on failure.

- `throws_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1912	2048	
==>array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1912	2048	
==>array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1912	2048	
==>array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	598	697	
==>gs);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	598	697	
==>gs);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	598	697	
==>gs);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	149	248	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	149	248	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	149	248	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34135	34244	
==>SAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizatio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34135	34244	
==>SAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizatio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34135	34244	
==>SAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	886	983	
==>rimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	886	983	
==>rimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	886	983	
==>rimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20736	20835	
==>x1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20736	20835	
==>x1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20736	20835	
==>x1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2364	2474	
==>b expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2364	2474	
==>b expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2364	2474	
==>b expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3497	3586	
==>f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3497	3586	
==>f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3497	3586	
==>f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}el <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1794	1905	
==>r $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1794	1905	
==>r $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1874	1985	
==>r $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33031	33235	
==>Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33031	33235	
==>Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33031	33235	
==>Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4359	4474	
==>xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4359	4474	
==>xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4359	4474	
==>xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1090	1212	
==>paque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1090	1212	
==>paque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1090	1212	
==>paque_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1109	1226	
==>_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1109	1226	
==>_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1109	1226	
==>_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{J <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2272	2368	
==>x:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $o <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2272	2368	
==>x:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4153	4240	
==>e'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4153	4240	
==>e'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4153	4240	
==>e'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$::P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4290	4386	
==>the receivied and expected lines from the previously run tests,
passing if both the diagnostics a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4290	4386	
==>the receivied and expected lines from the previously run tests,
passing if both the diagnostics a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4370	4466	
==>the receivied and expected lines from the previously run tests,
passing if both the diagnostics a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11432	11556	
==>}, &Rf;
    return $S->object(open => $S->{nparen});
  });

  # any character
  $self->add_handler('.' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1161	1254	
==>xample -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1161	1254	
==>xample -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6248	6419	
==>ttr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6248	6419	
==>ttr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6248	6419	
==>ttr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflict <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23778	23909	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20199	20330	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39077	39169	
==>cant Relation::Example.  This method
degenerates into an C<intersection> if the two source he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	621	721	
==>n-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	621	721	
==>n-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	621	721	
==>n-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32993	33097	
==>ntains only tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disj <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37543	37647	
==>ntains only tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disj <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36887	36991	
==>ntains only tuples that are in
exactly one of the source Relations.  This method has aliases named
C<disj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12598	12707	
==>is($parser->RPe_BCURLY)) {
    # there was a {n,m} quantifier with n > m
  }

=head2 Standard Warnings and Err <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26106	26199	
==>ed warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additiona <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26106	26199	
==>ed warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additiona <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2894	3026	
==>ame.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1516	1648	
==>ame.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	515	615	
==>dir  = $self->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	898	1012	
==>.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	898	1012	
==>.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	898	1012	
==>.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1026	1152	
==>e {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compile_pir($code)
        !! Perl6::Internals::compi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20244	20335	
==>_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Retu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20244	20335	
==>_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3555	3676	
==>on");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3555	3676	
==>on");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5079	5200	
==>on");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $descriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1408	1510	
==>array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1408	1510	
==>array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1408	1510	
==>array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3685	3820	
==>_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACKAGE__->add <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	29	140	
==>n;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	29	140	
==>n;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28194	28298	
==>if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28355	28459	
==>if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9501	9633	
==>== $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	857	960	
==>::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	857	960	
==>::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2022	2136	
==>rename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2022	2136	
==>rename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2022	2136	
==>rename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1992	2091	
==>) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1992	2091	
==>) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1992	2091	
==>) { JS::inline('(function (str) { return str.length })')(~$self) }
method chars  (Str $self:) { JS:: <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1166	1386	
==>en rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1166	1386	
==>en rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5666	5791	
==>p::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  sub emit {
    my($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	203	315	
==>S.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	203	315	
==>S.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	203	315	
==>S.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14165	14261	
==>ttribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14165	14261	
==>ttribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14165	14261	
==>ttribute('@:superclasses'     => ::make_attribute('@:superclasses'));
::Class.meta.add_attribute( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10331	10429	
==>elds.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
user <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10331	10429	
==>elds.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
user <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10469	10551	
==>zy=>$isLazy, paramName=>$paramName, paramContext=>$paramContext, paramDefault=>$def <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	322	462	
==>t

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	806	946	
==>t

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	224	360	
==>t

sub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14725	14824	
==>ical; they do not interact with the outside
environment at all.

A Node object has 5 main attributes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14725	14824	
==>ical; they do not interact with the outside
environment at all.

A Node object has 5 main attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1498	1613	
==>p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1498	1613	
==>p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1498	1613	
==>p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1204	1304	
==>l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1204	1304	
==>l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1204	1304	
==>l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15703	15831	
==>refix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15703	15831	
==>refix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15703	15831	
==>refix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5660	5769	
==>};

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5660	5769	
==>};

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5660	5769	
==>};

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primiti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23426	23521	
==>le rather than a Class, and some
implementations are immutable rather than mutable, this propert <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27978	28073	
==>le rather than a Class, and some
implementations are immutable rather than mutable, this propert <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26782	26877	
==>le rather than a Class, and some
implementations are immutable rather than mutable, this propert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11638	11745	
==>ap->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11638	11745	
==>ap->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11638	11745	
==>ap->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21194	21466	
==>->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21194	21466	
==>->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21194	21466	
==>->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	26	132	
==>og
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	26	132	
==>og
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	26	132	
==>og
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2058	2171	
==>{ shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2058	2171	
==>{ shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2058	2171	
==>{ shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37664	37755	
==>:Example $other!) returns Relation::Example>

This method is a generic relational operator t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38253	38344	
==>:Example $other!) returns Relation::Example>

This method is a generic relational operator t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38504	38595	
==>:Example $other!) returns Relation::Example>

This method is a generic relational operator t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8186	8335	
==>eturn ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8186	8335	
==>eturn ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8186	8335	
==>eturn ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5037	5173	
==>4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5037	5173	
==>4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5037	5173	
==>4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($patter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	611	754	
==>ry_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	611	754	
==>ry_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	611	754	
==>ry_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pug <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2949	3057	
==>= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar::Util::blessed($struct) ? $struct->moniker : " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1955	2112	
==>epl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1955	2112	
==>epl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1955	2112	
==>epl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose output\n";
    prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	379	480	
==>pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting Java <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	379	480	
==>pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting Java <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	379	480	
==>pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the resulting Java <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5390	5575	
==>ft(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5390	5575	
==>ft(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	422	514	
==>erminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not reco <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4335	4531	
==>,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4876	5072	
==>,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5340	5536	
==>,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16752	16863	
==>xed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::ta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16752	16863	
==>xed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::ta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16752	16863	
==>xed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	893	1020	
==>tance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	893	1020	
==>tance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	893	1020	
==>tance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1416	1525	
==>attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1416	1525	
==>attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1416	1525	
==>attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1204	1318	
==>elf->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1204	1318	
==>elf->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1204	1318	
==>elf->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2533	2642	
==>tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1822	1924	
==>{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1962	2064	
==>{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2005	2115	
==>def, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2005	2115	
==>def, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2005	2115	
==>def, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9999	10123	
==>my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9999	10123	
==>my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9999	10123	
==>my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n", <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1198	1297	
==>r contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1198	1297	
==>r contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2669	2766	
==>while Scalar::Util::blessed($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$type;
} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9611	9700	
==>usually created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9611	9700	
==>usually created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4463	4569	
==>inor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4463	4569	
==>inor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4463	4569	
==>inor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1176	1286	
==>Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1176	1286	
==>Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1176	1286	
==>Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inlin <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5665	5816	
==>ch_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &conti <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5665	5816	
==>ch_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &conti <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23535	23625	
==>,Replace,[_|T],[Replace|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2581	2674	
==>oxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2581	2674	
==>oxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2581	2674	
==>oxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1490	1665	
==>sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1490	1665	
==>sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1490	1665	
==>sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junct <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1798	1913	
==>ine ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1798	1913	
==>ine ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1878	1993	
==>ine ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10030	10277	
==>xtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6374	6464	
==>ze($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6374	6464	
==>ze($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1203	1329	
==>ed::extract_delimited( "/" . $_[0], "/" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    my $extr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8297	8398	
==>ec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8297	8398	
==>ec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1873	2029	
==>e of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2078	2234	
==>e of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2141	2297	
==>e of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [], <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6407	6519	
==>s!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outs <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6407	6519	
==>s!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	304	394	
==>factoring with confidence.

It uses Language::Prolog::Yaswi, which requires swi-prolog be
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10257	10412	
==>lone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10257	10412	
==>lone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10257	10412	
==>lone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21107	21205	
==>ULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21107	21205	
==>ULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21107	21205	
==>ULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3680	3813	
==>$param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3680	3813	
==>$param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4270	4403	
==>$param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4395	4506	
==>"\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4395	4506	
==>"\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4395	4506	
==>"\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18303	18407	
==>my $tell = 0 ? "confess" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell.'("Undefined variable $_[1] <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5193	5293	
==>returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroiz <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5193	5293	
==>returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroiz <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1470	1651	
==>[0] eq '{' { 
                    return parse( << { >>, 'hash', << } >>, @_ ) 
                };
                if @_[0] eq '[' { 
                    return parse( << [ >>, 'list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20293	20388	
==>tion
is replaced by a single line containing the hexadecimal digest of the
result in double quot <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20293	20388	
==>tion
is replaced by a single line containing the hexadecimal digest of the
result in double quot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8095	8206	
==>xists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8095	8206	
==>xists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2249	2353	
==>hift;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub shift_par <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8545	8729	
==>call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8545	8729	
==>call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interfac <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3776	3882	
==>survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp_hook_exec failed - didnt return anything\n" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2170	2282	
==>t the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_H <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2170	2282	
==>t the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_H <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5365	5510	
==>{sub}{bareword} =~ /^v5/ ) {
                return "warn 'use v5 - not implemented'";
            }
            if ( $n->{param}{sub}{bareword <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10803	10926	
==>ocess it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10803	10926	
==>ocess it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_p <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1453	1569	
==>e ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1453	1569	
==>e ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2914	3014	
==>Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1530	1651	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1530	1651	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1530	1651	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  ( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2610	2722	
==>{
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2610	2722	
==>{
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	326	535	
==>{ 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'lis <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	326	535	
==>{ 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'lis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9928	10047	
==>{ # Create the string to qx in runperl().
    my %args = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
    #- th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25532	25662	
==>)
  package Regexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      f <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	806	901	
==>reated using the C<Tree> interface.

Normally, they will be constructed as a series of events fi <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	806	901	
==>reated using the C<Tree> interface.

Normally, they will be constructed as a series of events fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1839	1969	
==>(keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1839	1969	
==>(keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1839	1969	
==>(keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if % <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	423	539	
==>< minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	423	539	
==>< minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	423	539	
==>< minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      retur <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19250	19373	
==>e (Str $filename ; Grammar :$lang = Perl6)
{
    eval(slurp($filename),$lang);
}


 multi Control::Basic::exit ( Int $status <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32347	32442	
==>Perl modules, but in the future they may alternately be something
else, such as XML or tab-delim <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32347	32442	
==>Perl modules, but in the future they may alternately be something
else, such as XML or tab-delim <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1122	1221	
==>rs.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1122	1221	
==>rs.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22292	22383	
==>describes Relation version 0.1.0.

It also describes the same-number versions of Relation::H <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3503	3626	
==>th";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3503	3626	
==>th";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10484	10600	
==>isconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10484	10600	
==>isconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connec <==
3	/Users/nnunley/pugs/util/package-osx.pl	2734	2834	
==>/pugscc /usr/local/bin/pugscc
        blank /System/Library/Perl6/
        /Users/dromano/dev/pugs/sr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	830	927	
==>B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
ch <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	830	927	
==>B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1386	1483	
==>B<write( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
ch <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14856	14952	
==>ested data structures are implemented, we will need an easy way
to test them. So we will implemen <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14914	15010	
==>ested data structures are implemented, we will need an easy way
to test them. So we will implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	398	509	
==>perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	398	509	
==>perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	398	509	
==>perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1620	1738	
==>.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1620	1738	
==>.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1620	1738	
==>.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2026	2123	
==>})')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2026	2123	
==>})')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2026	2123	
==>})')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
sub JS::Root::map(Code $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2012	2114	
==>st()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2012	2114	
==>st()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2012	2114	
==>st()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15139	15243	
==>hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15139	15243	
==>hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19905	19995	
==>[C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10480	10569	
==>$^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive\n";

our $regexp_compile_hook <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1743	1855	
==>warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1743	1855	
==>warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1743	1855	
==>warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11457	11574	
==>rgs)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11457	11574	
==>rgs)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11457	11574	
==>rgs)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3992	4142	
==>{
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        }
        return  "{\n" . _emit( $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1293	1395	
==>((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1293	1395	
==>((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' ) <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	629	754	
==>.add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node<Lazy>).add_child <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	406	508	
==>uld not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	406	508	
==>uld not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4395	4504	
==>lessed objects refered to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4395	4504	
==>lessed objects refered to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4395	4504	
==>lessed objects refered to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	203	318	
==>6.p6

  #! /usr/bin/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_trav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4776	4906	
==>ldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4776	4906	
==>ldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4776	4906	
==>ldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1822	1913	
==>itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1822	1913	
==>itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1822	1913	
==>itself to the $::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5063	5201	
==>pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    tr <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5387	5525	
==>pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    tr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22969	23055	
==>Exception;
@ISA=qw(Error);
package Perl6::Run::OnPerl5::X1::Api::Exception::Return;
@IS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2688	2795	
==>stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { return $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2688	2795	
==>stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { return $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27005	27100	
==>, harness will check after each
test whether new files appeared in that directory, and report th <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8936	9052	
==>ursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min','max'});
    $min = 0 if <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	181	282	
==>TRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## function <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	181	282	
==>TRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## function <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1315	1415	
==>he message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have to b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1315	1415	
==>he message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have to b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24797	24916	
==>BRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21218	21337	
==>BRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7355	7465	
==>n "    ".timestr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and store results in YAML

Usage: $0 [ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	632	731	
==>ld be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, S <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	632	731	
==>ld be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2460	2576	
==>f $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_stri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2460	2576	
==>f $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_stri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	873	986	
==>@seqs);
        # return the list if we have no more no-empty sequences
        return list->new(@res) if not @non <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40343	40447	
==>h @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40343	40447	
==>h @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40343	40447	
==>h @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1965	2070	
==>(bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1965	2070	
==>(bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1965	2070	
==>(bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($li <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10382	10474	
==>entary functions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUC <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10382	10474	
==>entary functions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUC <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3698	3934	
==>P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('pa <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3698	3934	
==>P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	470	566	
==>Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the type <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4743	4923	
==>ultipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4743	4923	
==>ultipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13805	13902	
==>ments>
    | <CallExpression> <'['> <Expression> <']'>
    | <CallExpression> <'.'> <Identifier>
} <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	726	867	
==>the extra
# types for 1 to 1 correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtItem (Perl::Type)
#                  | <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2286	2426	
==>ier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2286	2426	
==>ier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	490	587	
==>nostics;
use Regexp::Parser::Objects;
use Regexp::Parser::Handlers;


# this handles 'use base "Re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14656	14752	
==>r fields.  Long header
values are not folded.

The optional $eol parameter specifies the line end <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14656	14752	
==>r fields.  Long header
values are not folded.

The optional $eol parameter specifies the line end <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5557	5684	
==>' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5557	5684	
==>' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5719	5825	
==>keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5719	5825	
==>keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3426	3533	
==>grammar_perl5 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl5\n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	751	843	
==>ch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE() <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	751	843	
==>ch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7827	7952	
==>dx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11827	11948	
==>dx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11827	11948	
==>dx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22837	22939	
==>.  Messages should include the
code you ran that contains the bug, and your opinion on what's wrong
wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29843	29938	
==>tribute names in the argument C<$attrs>.  The new Relation::Example has all
of the tuples of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	125	233	
==>----------------------------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	125	233	
==>----------------------------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	125	233	
==>----------------------------
## now for some bootstrapping ....

## See http://article.gmane.org/gmane.comp.l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3318	3425	
==>TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3318	3425	
==>TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3318	3425	
==>TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 req <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3228	3372	
==>\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3692	3836	
==>\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1873	1978	
==>th>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list);\n";
}
sub <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3052	3139	
==>omplement_next =>     $self._get_intersection( $self.complement_next, $self.complement_p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3052	3139	
==>omplement_next =>     $self._get_intersection( $self.complement_next, $self.complement_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	9	109	
==>n/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	9	109	
==>n/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	9	109	
==>n/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin:: <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7391	7494	
==>$name =     emit_Variable( %pad<"pSubName"> );
        $ret = emit_Sub( $name, $body, $is_multi, $lvalue <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4263	4363	
==>d start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4263	4363	
==>d start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1970	2064	
==>t_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

metho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1970	2064	
==>t_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2448	2555	
==>)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2448	2555	
==>)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2448	2555	
==>)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2273	2371	
==>::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2273	2371	
==>::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2273	2371	
==>::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2474	2578	
==>ot defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2474	2578	
==>ot defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2474	2578	
==>ot defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $le <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1034	1137	
==>_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1034	1137	
==>_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1114	1217	
==>_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	867	1012	
==>i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	867	1012	
==>i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	867	1012	
==>i);
            $self->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_sc <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	167	294	
==>cument => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_elem <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	167	294	
==>cument => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_elem <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10223	10318	
==>mName, $paramContext, $paramDefault) {
    my $default; $default = DOWN($paramDefault) if define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	814	927	
==>org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is nece <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	814	927	
==>org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is nece <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	814	927	
==>org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is nece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1751	1876	
==>ault: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1751	1876	
==>ault: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1751	1876	
==>ault: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1858	1974	
==>e, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1858	1974	
==>e, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1858	1974	
==>e, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5272	5409	
==>.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5465	5602	
==>.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1392	1525	
==>> $k {
	push(@ret, Pair($k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12808	12929	
==>== $max) { "{$min}" }
    else { "{$min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $se <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5211	5304	
==>of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5211	5304	
==>of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13036	13224	
==>$value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13036	13224	
==>$value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13036	13224	
==>$value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1826	1980	
==>er, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1826	1980	
==>er, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1826	1980	
==>er, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2857	2982	
==>rn { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3050	3175	
==>rn { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1456	1559	
==>$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1456	1559	
==>$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1456	1559	
==>$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	768	889	
==>ldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	768	889	
==>ldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # n <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	710	818	
==>} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($t <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	710	818	
==>} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	828	991	
==>->FETCH('::Output')->new());
        },
        'DESTROY' => sub {
            my $footer = _('$.testplan')->footer( scalar @{_('@:results')} );
            _('$.ou <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4218	4331	
==>t
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @i <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4218	4331	
==>t
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12787	12890	
==>med_character_tail([],Close)    --> [Close], !.
p6_named_character_tail([C,T],Close) --> [C], p6_named_c <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4039	4142	
==>th, day => $day )`

Returns a date object for the given values.  The month and day default
to 1 if not g <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4039	4142	
==>th, day => $day )`

Returns a date object for the given values.  The month and day default
to 1 if not g <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10990	11085	
==>my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10383	10494	
==>=~ /->/;
    return "$_[1] negate( sub{ $name(\@_) } )\n";
}
sub node::constant {
    my $literal = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16160	16248	
==>ent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <pe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16218	16306	
==>ent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21129	21339	
==>A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21129	21339	
==>A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21129	21339	
==>A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3047	3195	
==>ed $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3187	3335	
==>ed $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1053	1146	
==>d2 $file = $inst->registered_alternatives_file

=cut

sub registered_alternatives_file {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	969	1080	
==>err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	969	1080	
==>err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	969	1080	
==>err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<| <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5878	6044	
==>eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $test->version
            ) {
                $link <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20662	20751	
==>terprise-strength and Perl implemented
database server named L<Genezzo> (see also L<http:/ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20662	20751	
==>terprise-strength and Perl implemented
database server named L<Genezzo> (see also L<http:/ <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	918	1078	
==>these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2.2

## XXX - perl5 semantics are desired here
sub d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1886	2073	
==>infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1886	2073	
==>infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1886	2073	
==>infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3924	4040	
==>r nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3924	4040	
==>r nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3924	4040	
==>r nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5254	5402	
==>tribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5254	5402	
==>tribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute cont <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5254	5402	
==>tribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute cont <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11467	11616	
==>)
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11467	11616	
==>)
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11797	11897	
==>.  The nchar() method takes
a named character's name, and returns the actual character:

  my $R = $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5312	5436	
==>:ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5312	5436	
==>:ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5312	5436	
==>:ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 this s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9638	9743	
==>ocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9638	9743	
==>ocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9638	9743	
==>ocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3240	3351	
==>l5

* perl5 will call the C<v6.pm> module.

This is an invalid header:

    #!/usr/bin/pugs
    use v6;

* it te <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33754	33849	
==>English or French.  The order of these items corresponds to
an individual user's (or user role's <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33754	33849	
==>English or French.  The order of these items corresponds to
an individual user's (or user role's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1012	1118	
==>removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * add <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1012	1118	
==>removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * add <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1012	1118	
==>removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * add <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1878	1970	
==>S::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1878	1970	
==>S::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1878	1970	
==>S::inline('(function (arr) { return arr.length })')(@self);
}

method JS::Root::end(@self:) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2804	2913	
==>:opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2804	2913	
==>:opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2804	2913	
==>:opaque_instance_class($class);
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9690	9806	
==>goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2111	2201	
==>so want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freep <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2111	2201	
==>so want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	698	802	
==>ap { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	698	802	
==>ap { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	698	802	
==>ap { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5377	5592	
==>ument    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_ha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5377	5592	
==>ument    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_ha <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9462	9547	
==>urns) = ([1,undef,undef,1,2,1,2],[1,undef,undef,3,4,3,3],[0],[0]);
my($qr) = Regexp::S <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25439	25521	
==>,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	28	140	
==>d sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	28	140	
==>d sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	28	140	
==>d sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16911	17007	
==>on in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applica <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16911	17007	
==>on in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applica <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12059	12185	
==>f"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26649	26749	
==>es perl5_call/3, perl5_eval/2 and perl5_method/4 will be available

do{open F,">deleteme_pro.pl";prin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13430	13571	
==>rson .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13430	13571	
==>rson .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => a <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	788	918	
==>.

=cut
###*** Value types - numeric

macro Clutter::int_size($n) {
  'subset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	306	422	
==>.assuming:base(10);

multi sub rand (; Num ?$x = 1, Num :$seed )
    returns Num { ... }

multi sub sign (; Num ?$x = <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1046	1147	
==>onfig.push({Name => ''}) unless +@config;
			@config[-1]{"Features"}{$0} = $1;
		} else {
			die "Inva <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38147	38242	
==>text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text string in
i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38147	38242	
==>text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text string in
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6466	6598	
==>_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6466	6598	
==>_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6466	6598	
==>_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => : <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4485	4590	
==>@s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4473	4578	
==>@s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
} <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14158	14261	
==>), !.
alnums([]) --> {true}.

uncode_charname_to_char(Name,C) :- cached_uncode_charname_to_char(Name,C), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5079	5195	
==>ass->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5079	5195	
==>ass->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5079	5195	
==>ass->from_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7506	7661	
==>rt + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7506	7661	
==>rt + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7506	7661	
==>rt + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13803	13950	
==>... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13803	13950	
==>... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13803	13950	
==>... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1037	1172	
==>${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f($s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4326	4437	
==>, return;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system( "rm - <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1745	1841	
==>It is only an experiment, it's not
API compatible to the original POE, and is possibly very unsta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11780	11941	
==>y';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11780	11941	
==>y';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11780	11941	
==>y';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2049	2317	
==>er ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2049	2317	
==>er ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15011	15125	
==>parentheses */

The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1760	1866	
==>return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1760	1866	
==>return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1241	1412	
==>ld = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1241	1412	
==>ld = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7684	7838	
==>my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'inc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7684	7838	
==>my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'inc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7684	7838	
==>my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'inc <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4739	4842	
==>ke index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = spl <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4739	4842	
==>ke index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = spl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16428	16529	
==>modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1981	2100	
==>{
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1981	2100	
==>{
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1981	2100	
==>{
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	952	1087	
==>my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	952	1087	
==>my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10225	10320	
==>$_[1] ruleop::negate( \\&{'$namespace$_[0]'} )\n";
}
sub node::constant {
    my $literal = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2440	2597	
==>l',
    #    other => 'prefix:<say>',
    #);
    
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'tighter', <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2044	2143	
==>turn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2044	2143	
==>turn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21404	21510	
==>e_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17825	17931	
==>e_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    m <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3228	3362	
==>ereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    els <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1970	2087	
==>ccent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1970	2087	
==>ccent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13474	13657	
==>op::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13753	13936	
==>op::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23297	23391	
==>is), this Relation::Example data type is proposed to be
generally useful, and very basic, and w <==
3	/Users/nnunley/pugs/util/package-osx.pl	1136	1242	
==>.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/lib/l <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6701	6805	
==>an0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6701	6805	
==>an0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $sp <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1982	2085	
==>n $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" un <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1982	2085	
==>n $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	252	359	
==>ub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	252	359	
==>ub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	252	359	
==>ub {
    my ($class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11529	11730	
==>s $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11529	11730	
==>s $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11529	11730	
==>s $spec->match_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20487	20607	
==>G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16908	17028	
==>G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6589	6710	
==>hods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6589	6710	
==>hods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6589	6710	
==>hods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method($method <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	645	752	
==>ned $prompt) {
        my $script_name = File::Basename::basename($script_file);
        $prompt = "Do you w <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	125	222	
==>never you enter a new rule or parenthesized
group.  This is approximately the Match object that us <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	125	222	
==>never you enter a new rule or parenthesized
group.  This is approximately the Match object that us <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1213	1327	
==>lopers);
# @devs_till_day should have the same length as @commits_till_day --
# fill if needed
push @devs_till_day, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1660	1754	
==>.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1660	1754	
==>.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6790	6897	
==>= ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7162	7269	
==>= ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7461	7568	
==>= ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18027	18249	
==>ommon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21504	21726	
==>ommon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21091	21313	
==>ommon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5137	5241	
==>::');
    #print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5:: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3720	3813	
==>ILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3720	3813	
==>ILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1574	1723	
==>builddir )
#                 or error( "Could not clean out '$builddir'" ), return;
#         }                
#         JIB::Utils->_mkdir( dir => $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3252	3354	
==>r so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3252	3354	
==>r so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4190	4300	
==>target, $pos )
  {
    goto term_ws;
  }

  $initchar = substr $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4303	4402	
==>s with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @token <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4303	4402	
==>s with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @token <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14557	14642	
==>l5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14557	14642	
==>l5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14557	14642	
==>l5::array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2313	2460	
==>ier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARR <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2313	2460	
==>ier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARR <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4382	4495	
==>noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub concat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9663	9769	
==>-----------------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9663	9769	
==>-----------------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9663	9769	
==>-----------------      
    method collect_all_roles () { "<implemented>" }  

    # ---------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12533	12634	
==>*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12533	12634	
==>*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12533	12634	
==>*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	101	215	
==>nless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	101	215	
==>nless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	101	215	
==>nless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4807	4973	
==>v = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4807	4973	
==>v = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4807	4973	
==>v = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	669	766	
==>t is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	669	766	
==>t is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<l <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2443	2600	
==>pear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # X <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2443	2600	
==>pear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # X <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24109	24210	
==>nt to pass info from
 * compile to execute that permits the execute phase to run lots faster on
 * sim <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13546	13641	
==>t => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13546	13641	
==>t => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5584	5699	
==>ar);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5584	5699	
==>ar);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6174	6289	
==>ar);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Da <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2059	2230	
==>layload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2059	2230	
==>layload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cooki <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3780	3922	
==>) ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1196	1305	
==>ect ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::In <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1196	1305	
==>ect ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::In <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20785	20883	
==>>{_dirs}->{$subdir . "/" . $subsubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30902	30999	
==>s either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35452	35549	
==>s either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34643	34740	
==>s either an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1957	2057	
==>'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1957	2057	
==>'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1957	2057	
==>'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - multisub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1542	1671	
==>Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1542	1671	
==>Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	455	628	
==>add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15818	15946	
==>e";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15818	15946	
==>e";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2852	2962	
==>rs||()));


# Find design doc directory, check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($sy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	302	408	
==>:Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	263	369	
==>:Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	263	369	
==>:Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	299	410	
==>6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	299	410	
==>6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	299	410	
==>6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2637	2773	
==>=> '-',
        block => sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => 'infix', <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1976	2100	
==>{
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    to <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1976	2100	
==>{
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1914	2010	
==>"Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1914	2010	
==>"Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1914	2010	
==>"Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22620	22717	
==>SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22620	22717	
==>SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22620	22717	
==>SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3097	3234	
==>s}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3097	3234	
==>s}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3097	3234	
==>s}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3208	3344	
==>, "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3208	3344	
==>, "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3208	3344	
==>, "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2819	2912	
==>ration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2819	2912	
==>ration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRul <==
3	/Users/nnunley/pugs/util/testgraph.pl	177	267	
==>e File::Spec;

GetOptions \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2617	2731	
==>ces
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2605	2719	
==>ces
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3770	3870	
==>bash
    linuxrc needs a bash-compatible shell.
  --inputrc=$inputrc
    The readline library likes t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2791	2889	
==>ow, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2791	2889	
==>ow, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	971	1069	
==>'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5601	5722	
==>turns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_no <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5601	5722	
==>turns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1363	1483	
==>s),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1363	1483	
==>s),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1363	1483	
==>s),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18052	18150	
==>ER::<$_>, Int $limit = inf --> List )
 multi Str::split ( Rule $delimiter ,  Str $input = CALLER::< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7420	7509	
==>dition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1245	1334	
==>dition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4853	4981	
==>ced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4853	4981	
==>ced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4362	4468	
==>lete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4362	4468	
==>lete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4362	4468	
==>lete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20487	20588	
==>'.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20487	20588	
==>'.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20487	20588	
==>'.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6138	6272	
==>_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6138	6272	
==>_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6138	6272	
==>_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	56	147	
==>) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	56	147	
==>) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	56	147	
==>) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3405	3513	
==>eep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3405	3513	
==>eep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3405	3513	
==>eep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1326	1454	
==>:node<Pair>),
                    Tree.new(:node<Scalar>).add_children(
                        Tree.new(:node<Complex>).add_chil <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3302	3399	
==>) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3302	3399	
==>) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6068	6248	
==>art =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6068	6248	
==>art =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6068	6248	
==>art =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { $start += $step } else { $start++ } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12788	12896	
==>UTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12788	12896	
==>UTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12788	12896	
==>UTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3309	3419	
==>.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3309	3419	
==>.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3173	3283	
==><package file line subname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( map { ; $_ => @caller[ % <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	947	1075	
==>:Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	947	1075	
==>:Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2103	2202	
==>Internals::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17795	17891	
==>5 for 'A') and
the number of times that character appeared in the character class.  The
character <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1657	1752	
==>d" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file ne <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1497	1592	
==>d" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23345	23440	
==>y($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23345	23440	
==>y($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23345	23440	
==>y($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12811	12908	
==>PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12811	12908	
==>PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12811	12908	
==>PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10341	10466	
==>otemeta( match::str( $literal ) );
    return "$_[0] ruleop::constant( \"$name\" )\n";
}
sub node::variable {
    my $name = m <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2790	2890	
==>$h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2790	2890	
==>$h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12630	12730	
==>']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule ElementL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3038	3168	
==>-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3038	3168	
==>-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3038	3168	
==>-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4325	4468	
==>"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "mic <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4325	4468	
==>"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "mic <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	897	1034	
==>f{allccs}) {
    $|++ if $Conf{verbose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{verbose};
        my %cc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13020	13136	
==>o err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto addchar
  backslash:
    inc pos
    $S0 = subst <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15264	15377	
==>s = $I0
    goto end
  name:
    inc pos
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2315	2438	
==>alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2326	2449	
==>alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14689	14789	
==>type variables in the function body
	# for this reason the function needs to be cloned (so it will st <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6522	6621	
==>rray of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
da <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6522	6621	
==>rray of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
da <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2483	2601	
==>? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2667	2785	
==>? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!su <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7198	7305	
==>e;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sysop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7546	7744	
==>:stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7546	7744	
==>:stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7546	7744	
==>:stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6576	6707	
==>rl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6576	6707	
==>rl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6576	6707	
==>rl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25895	26027	
==>cape {  # see 15.10.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # see 15.10.1
      <[a..zA <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3509	3610	
==>t {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3509	3610	
==>t {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1550	1659	
==>js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1550	1659	
==>js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1550	1659	
==>js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2241	2339	
==>er(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2241	2339	
==>er(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2241	2339	
==>er(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16821	16921	
==>parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmai <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16821	16921	
==>parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmai <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16821	16921	
==>parameters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5411	5530	
==>sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5411	5530	
==>sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5411	5530	
==>sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6848	6942	
==>vents is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('head <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6848	6942	
==>vents is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('head <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	552	665	
==>modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g glo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	552	665	
==>modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g glo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	552	665	
==>modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g glo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	191	305	
==>odule that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	936	1035	
==>rom Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

su <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	936	1035	
==>rom Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6434	6554	
==>or =~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot determine author info from $fi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10728	10830	
==>n "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10728	10830	
==>n "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12133	12260	
==>.join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12133	12260	
==>.join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # par <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8982	9083	
==>_);

	unify($x->{param}, $y->{param}, @_);
};

multi unify => ('type', 'type') => sub {
	die "trying t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16622	16725	
==>ell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16622	16725	
==>ell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16622	16725	
==>ell the
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	299	425	
==>{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	299	425	
==>{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	299	425	
==>{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1690	1795	
==>e for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1690	1795	
==>e for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!he <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3838	3939	
==>is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3838	3939	
==>is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1929	2039	
==>s = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1929	2039	
==>s = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1929	2039	
==>s = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @compo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7385	7517	
==>|    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7385	7517	
==>|    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7385	7517	
==>|    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                | <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18699	18824	
==>r('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15120	15245	
==>r('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30458	30583	
==>r('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	766	888	
==>=~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	766	888	
==>=~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20949	21059	
==>turn $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	888	999	
==>oper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	888	999	
==>oper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	888	999	
==>oper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scope <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1162	1280	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1162	1280	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1162	1280	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12165	12316	
==>+) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovific <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12165	12316	
==>+) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovific <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12165	12316	
==>+) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovific <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29447	29564	
==>$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29447	29564	
==>$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29447	29564	
==>$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{it <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3481	3627	
==>s);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @tree <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3481	3627	
==>s);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @tree <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	289	380	
==>ompiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use base 'Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	814	913	
==>, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	814	913	
==>, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17689	17785	
==>error condition by an
internal code which is guaranteed to be unique for a situation, and this is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17689	17785	
==>error condition by an
internal code which is guaranteed to be unique for a situation, and this is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4354	4469	
==>sa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4354	4469	
==>sa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4354	4469	
==>sa(Str) ?? expand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1468	1575	
==>ame'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool',
  'pSu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4592	4695	
==>ame'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4592	4695	
==>ame'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1979	2101	
==>+;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1979	2101	
==>+;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1979	2101	
==>+;
    }

    my $jsvar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1725	1862	
==>ll)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1725	1862	
==>ll)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1725	1862	
==>ll)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (def <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2218	2330	
==>args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user m <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	994	1145	
==>\[{]/;
            die "Expected separator '---'" unless $doc;
            $doc->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16627	16748	
==>{
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13048	13169	
==>{
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	85	208	
==>eof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	85	208	
==>eof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	85	208	
==>eof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6940	7053	
==><=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6940	7053	
==><=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6940	7053	
==><=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primi <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4951	5080	
==>srcfile or die "Could'nt open file $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv_self conv_array con <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3078	3202	
==>H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $dat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3078	3202	
==>H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $dat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25393	25488	
==>type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → (β × γ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11645	11739	
==>@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11645	11739	
==>@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11645	11739	
==>@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2439	2546	
==>{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2439	2546	
==>{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2439	2546	
==>{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exh <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2523	2690	
==>g') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7460	7583	
==>> chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(86 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7460	7583	
==>> chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(86 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	617	711	
==>l $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	617	711	
==>l $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	617	711	
==>l $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3608	3701	
==>ng. 

If that is the case, running C<Makefile.PL> and C<make> in
C<Pugs::Compiler::Rule> shoul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11301	11411	
==>catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11301	11411	
==>catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11301	11411	
==>catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3800	3908	
==>e "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3800	3908	
==>e "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3800	3908	
==>e "&reduce needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2397	2499	
==>rator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2397	2499	
==>rator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2397	2499	
==>rator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5689	5828	
==>0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5689	5828	
==>0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5689	5828	
==>0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18938	19036	
==>g on the wire.

When setting the referrer, this method removes the fragment from the
given URI if i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18938	19036	
==>g on the wire.

When setting the referrer, this method removes the fragment from the
given URI if i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14065	14192	
==>s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14065	14192	
==>s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14065	14192	
==>s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6572	6667	
==>hority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6572	6667	
==>hority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6572	6667	
==>hority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11711	11826	
==>tatus{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Bu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2143	2248	
==>tatus{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2143	2248	
==>tatus{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Bu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	175	282	
==>rns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addMethod(Method--Perl6 $meth) {
    ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	818	927	
==>ecome our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	818	927	
==>ecome our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	818	927	
==>ecome our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2686	2809	
==>tring()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2686	2809	
==>tring()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2686	2809	
==>tring()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::war <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2416	2548	
==>uring_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2663	2795	
==>uring_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	922	1037	
==>ift)->keys->length             }
sub to_bit { (shift)->keys->length->to_bit     }

# methods ...

sub fetch {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	878	1039	
==>ey, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	878	1039	
==>ey, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	878	1039	
==>ey, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be do <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33612	33705	
==>>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38162	38255	
==>>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37569	37662	
==>>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14247	14350	
==>'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14247	14350	
==>'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14247	14350	
==>'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) if $s+0 e <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3498	3600	
==>Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object repres <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3498	3600	
==>Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object repres <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7854	7948	
==>authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_au <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7854	7948	
==>authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_au <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4852	4946	
==>lder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4852	4946	
==>lder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7049	7143	
==>lder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.passe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2057	2159	
==>b add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2057	2159	
==>b add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2057	2159	
==>b add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6726	6831	
==>package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6726	6831	
==>package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6726	6831	
==>package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21213	21322	
==>ule)
      !! Pugs::Internals::require($module);
  }
  my sub find() {
    my $file = join(%?CONFIG<file_sep>, <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6752	6849	
==>head2 Element Events

For each POD element, an event is fired, the first argument to all these eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6752	6849	
==>head2 Element Events

For each POD element, an event is fired, the first argument to all these eve <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6555	6654	
==>re => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16374	16483	
==>));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16374	16483	
==>));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16374	16483	
==>));

# "spec" here means "whatever annotation went with this attribute when it's declared"
$::Class->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2188	2334	
==>y $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2188	2334	
==>y $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2188	2334	
==>y $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3639	3737	
==>r definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3639	3737	
==>r definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3639	3737	
==>r definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	628	764	
==>de, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Respon <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	628	764	
==>de, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Respon <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1845	1953	
==>le::Path ();
use FindBin;

*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA     = __PACK <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11400	11533	
==>[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16665	16760	
==>t Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then ea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16665	16760	
==>t Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then ea <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8794	8941	
==>ode assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8794	8941	
==>ode assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4548	4667	
==>G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self->error(RPe_NOTERM);
    }
    &Rf & $self->FL <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6582	6682	
==>irectories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6582	6682	
==>irectories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $ <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	27	125	
==>ile = shift || 'test';

print(('-' x 80), "\n");
print "Testing perl5 naive bayesian script with $t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	708	821	
==>>to_str->to_native()} = $value;
    }
    bless \%values => $class;
}

# native conversion
sub to_native { %{(shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2726	2827	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3299	3400	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if <==
3	/Users/nnunley/pugs/util/build_pugs.pl	84	185	
==>y);
use File::Path qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3929	4110	
==>_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3929	4110	
==>_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3929	4110	
==>_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3958	4058	
==>d in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3958	4058	
==>d in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3958	4058	
==>d in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5751	5867	
==>sh @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5751	5867	
==>sh @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5751	5867	
==>sh @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2108	2338	
==>irst arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn "hello there";
                            $bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5666	5770	
==>esses



### separate "processes" from actual module documentation?



=head2 Grammar engine



* Pugs::G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5471	5569	
==>esses

### separate "processes" from actual module documentation?

=head2 Grammar engine

* Pugs::G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16749	16844	
==>ad1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16749	16844	
==>ad1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16749	16844	
==>ad1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1960	2070	
==>$_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1960	2070	
==>$_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1960	2070	
==>$_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5479	5581	
==>vent<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5479	5581	
==>vent<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        de <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	646	747	
==>mply run this program in the same directory containing
# those files.
#
# Enjoy! -- asavige (aka mad g <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6510	6608	
==>a) returns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a co <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6510	6608	
==>a) returns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a co <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	728	839	
==>::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not in <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	728	839	
==>::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12560	12677	
==>fined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12560	12677	
==>fined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12560	12677	
==>fined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9161	9302	
==>: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1289	1422	
==>: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1289	1422	
==>: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5006	5163	
==>sa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or somethi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5006	5163	
==>sa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or somethi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5006	5163	
==>sa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or somethi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1930	2033	
==>we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1930	2033	
==>we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1930	2033	
==>we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1440	1535	
==>y $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1440	1535	
==>y $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1440	1535	
==>y $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3865	3985	
==>ey, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3865	3985	
==>ey, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::? <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	811	905	
==>method notify (Class::Events::Event $event) {
        (.get_subscriptions($event) ==> .mk_notif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1153	1261	
==>args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checkin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1153	1261	
==>args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checkin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1153	1261	
==>args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checkin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2705	2824	
==>of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2705	2824	
==>of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2705	2824	
==>of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new P <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2039	2181	
==>ction {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %s <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2039	2181	
==>ction {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8298	8444	
==>CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8298	8444	
==>CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSE <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5422	5515	
==>nish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5422	5515	
==>nish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33733	33892	
==>AY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33733	33892	
==>AY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33733	33892	
==>AY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4205	4308	
==>attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4205	4308	
==>attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4205	4308	
==>attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    :: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2082	2235	
==>> $body, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8276	8391	
==>5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8276	8391	
==>5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4895	5005	
==>"post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4895	5005	
==>"post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4895	5005	
==>"post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9491	9673	
==>->new(
                Sym->new('&say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App->new(
                        Sym->new('&infix:< <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9673	9782	
==>g_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_te <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9673	9782	
==>g_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24329	24533	
==>'$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24329	24533	
==>'$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24329	24533	
==>'$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5220	5335	
==>ds:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5220	5335	
==>ds:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7417	7532	
==>ds:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, f <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1321	1465	
==>h @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @_;

    $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1675	1807	
==>s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $ch <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1675	1807	
==>s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $ch <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	117	218	
==>t::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	117	218	
==>t::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31386	31484	
==>rection of this object (for look-ahead/behind assertions).  If
less than 0, it is behind; otherwise <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12337	12506	
==>od->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canoni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12337	12506	
==>od->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canoni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12337	12506	
==>od->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canoni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8039	8161	
==>calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8039	8161	
==>calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8039	8161	
==>calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	8	104	
==>X - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

Thi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	8	104	
==>X - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

Thi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	8	104	
==>X - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

Thi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	375	494	
==>ap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if(defi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	794	888	
==>> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as soon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	794	888	
==>> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as soon <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8687	8794	
==>ze} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set op <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8687	8794	
==>ze} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set op <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	21	121	
==>ckage Pugs::Utils::Interface;

#options
our $print_program = 0;
our $print_ast     = 0;
our $print_ma <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3022	3253	
==>st->dir . qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin comment

        {   
            ### dependencies satisfied?
            my $i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	924	1016	
==>r ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Alt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	924	1016	
==>r ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Alt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7088	7250	
==>value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7088	7250	
==>value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7088	7250	
==>value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5027	5119	
==>ses received, then you should use the full object-oriented
interface provided by the C<LWP::U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5027	5119	
==>ses received, then you should use the full object-oriented
interface provided by the C<LWP::U <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7768	7933	
==>n of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7768	7933	
==>n of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7768	7933	
==>n of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7487	7574	
==>struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	824	955	
==>negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	824	955	
==>negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27101	27211	
==>y $self = shift;

    # installs Regexp::Parser's handlers
    $self->SUPER::init();

    # now add your own... <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10352	10518	
==>e $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              :: <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2969	3066	
==>s not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to nav <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2969	3066	
==>s not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to nav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	611	732	
==>f (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	611	732	
==>f (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	611	732	
==>f (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7157	7401	
==>bobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7157	7401	
==>bobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3914	4113	
==>')));                    
                      })
                  );    
                $e->set('$current' => $e->get('&dispatcher')->do());
            })->do_while(
                block->new($e <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	190	299	
==>$.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	190	299	
==>$.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_st <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6925	7053	
==>o skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6925	7053	
==>o skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_templat <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16704	16830	
==>rom
    .local pmc code
    .local pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23887	24045	
==>'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'ex <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23887	24045	
==>'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'ex <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23887	24045	
==>'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3785	3896	
==>ess { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3785	3896	
==>ess { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3785	3896	
==>ess { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8628	8767	
==>iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8628	8767	
==>iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8628	8767	
==>iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2518	2622	
==>he .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2518	2622	
==>he .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE <==
3	/Users/nnunley/pugs/util/importgraph.pl	1964	2050	
==>gex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parser', qr/^Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11834	11989	
==>t_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1046	1175	
==>s Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BU <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1046	1175	
==>s Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5652	5785	
==>$body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5652	5785	
==>$body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5652	5785	
==>$body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	542	641	
==>d return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	542	641	
==>d return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	542	641	
==>d return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.j <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1979	2148	
==>lass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2184	2353	
==>lass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2247	2416	
==>lass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
} <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9187	9285	
==>{
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decod <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9187	9285	
==>{
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15163	15282	
==>$_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15163	15282	
==>$_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15163	15282	
==>$_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12846	12959	
==>ULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12846	12959	
==>ULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12846	12959	
==>ULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5320	5421	
==>tta Interface root, whose attributes will hold all of
    # the other data structures used by the Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5320	5421	
==>tta Interface root, whose attributes will hold all of
    # the other data structures used by the Rose <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25881	25977	
==>ence> to a scalar, makes it work (!).

B<These functions can only work if called with ampersands, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31862	31954	
==>implemented.>

This method is a generic relational operator that returns a new Relation::Exam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32909	33001	
==>implemented.>

This method is a generic relational operator that returns a new Relation::Exam <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2115	2218	
==>$self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq_pm
    my $di <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11384	11478	
==>ax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11384	11478	
==>ax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9655	9774	
==>om_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9655	9774	
==>om_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9655	9774	
==>om_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2913	3033	
==>an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <va <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2913	3033	
==>an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <va <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11734	11855	
==>! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17640	17733	
==>IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPS <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17640	17733	
==>IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11848	11966	
==>{
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4491	4609	
==>{
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3107	3220	
==>}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load_extensions <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24991	25085	
==>apping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29543	29637	
==>apping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28455	28549	
==>apping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3037	3147	
==>) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3037	3147	
==>) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27655	27752	
==>x01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	274	370	
==>&JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	274	370	
==>&JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	274	370	
==>&JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("... <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5832	5929	
==>pe', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5832	5929	
==>pe', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2731	2828	
==>pe', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7857	7997	
==>xists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11856	11992	
==>xists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11856	11992	
==>xists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2930	3036	
==>warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.ele <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2930	3036	
==>warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.ele <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2930	3036	
==>warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.ele <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5120	5266	
==>rict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5120	5266	
==>rict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dir <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22791	22881	
==>),C), !.
charset_member(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), !.
charse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3939	4040	
==>arp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3939	4040	
==>arp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3939	4040	
==>arp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19738	19834	
==>t the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19738	19834	
==>t the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15534	15628	
==>self->enter_scope;
    my $node = Thunk->new($self->reduce($thunk->val));
    $self->leave_scop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16412	16515	
==>B to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16412	16515	
==>B to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16412	16515	
==>B to ($xx) {...};
MULTI SUB matches ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2520	2627	
==>}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1132	1239	
==>}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1833	1940	
==>}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1998	2120	
==>svar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1998	2120	
==>svar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1998	2120	
==>svar = PIL::name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      retur <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10666	10759	
==>_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently u <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10724	10817	
==>_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6245	6345	
==>ther functions.  

=cut

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6245	6345	
==>ther functions.  

=cut

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6245	6345	
==>ther functions.  

=cut

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19988	20080	
==>::Example> is the self-contained and pure-Perl reference
implementation of an Engine and is i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19988	20080	
==>::Example> is the self-contained and pure-Perl reference
implementation of an Engine and is i <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	944	1125	
==>.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlin <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	944	1125	
==>.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlin <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5147	5250	
==>+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading synopses
infest_syns( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2917	3031	
==>ty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data< <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2917	3031	
==>ty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3190	3351	
==>igenclass->superclass($class);
                }
                $class = $eigenclass;                
            }
            return ::create_opaque_instance(\ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1459	1574	
==>:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=he <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1459	1574	
==>:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=he <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4897	5018	
==>t;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4897	5018	
==>t;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_typ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	383	500	
==>h @modules, $File::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODU <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	184	278	
==>ay turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	184	278	
==>ay turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28115	28198	
==>print $rx->('abc')->('abc')->describe,"\n";
print $rx->('(a+|b)*')->('ab')->describe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4170	4329	
==>) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4170	4329	
==>) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4170	4329	
==>) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'arra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4715	4841	
==>:Test')->FETCH('::WithReason') ],
    methods => {
        'report' => sub {
            my $ok          = _('$.passed') ? 'ok' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9326	9416	
==>1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9326	9416	
==>1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The head <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4097	4215	
==>T
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file eq "update.pl";
    p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9964	10072	
==>$text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9964	10072	
==>$text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15485	15585	
==>B pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15485	15585	
==>B pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15485	15585	
==>B pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_fr <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	537	637	
==>b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	537	637	
==>b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4711	4806	
==>rule logical_grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29016	29198	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29295	29477	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	687	809	
==>op> <parse> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    inf <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	991	1082	
==>niverse => $universal_set )`

Create a recurrence set with full bidirectional functionality. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	991	1082	
==>niverse => $universal_set )`

Create a recurrence set with full bidirectional functionality. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29418	29509	
==>ts.  (Partially done in Test::Harness::Straps)

Document the format.

Fix HARNESS_COMPILE_TE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2361	2468	
==>ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->super <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2361	2468	
==>ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->super <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2361	2468	
==>ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->super <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16410	16503	
==>>, etc.  Then this
example would be reversed into something like C</(\w+(?<!\d))(\d+)/>.
The o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21869	21959	
==>file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head1 I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21869	21959	
==>file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head1 I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4997	5103	
==>add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4997	5103	
==>add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4997	5103	
==>add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4371	4475	
==>return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4371	4475	
==>return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31456	31556	
==>n't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the 'p' form is depr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2779	2876	
==>em together; you might not be able to derive the 
plaintext from the result, but any cryptographer <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2779	2876	
==>em together; you might not be able to derive the 
plaintext from the result, but any cryptographer <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20416	20542	
==>{ _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20695	20821	
==>{ _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13678	13796	
==>$todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } split /\s+/, $t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8123	8219	
==>example, it should not merely set arrays to C<()>, but loop 
through them setting all the element <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8123	8219	
==>example, it should not merely set arrays to C<()>, but loop 
through them setting all the element <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	432	632	
==>ift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	432	632	
==>ift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1380	1494	
==>(@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o};
    $s .= "],{";
    for my $k (ke <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3915	4040	
==>p        { \( <pattern> \) }
rule noncapturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5819	5919	
==>hannel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5819	5919	
==>hannel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23824	23924	
==>ructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28376	28476	
==>ructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27198	27298	
==>ructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1362	1458	
==>6-02-12
#  re_tests_perl5.t - driver from same.
#  re_tests_parrot.t - parrot's driver, same date <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	709	803	
==>ilder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	709	803	
==>ilder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3930	4033	
==>otes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3930	4033	
==>otes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3930	4033	
==>otes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14817	14911	
==>::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14817	14911	
==>::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14817	14911	
==>::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2158	2261	
==>self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11004	11102	
==>ss: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11004	11102	
==>ss: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7134	7251	
==>ther does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7134	7251	
==>ther does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7134	7251	
==>ther does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2233	2355	
==>if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solv <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2233	2355	
==>if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solv <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2141	2259	
==>repository} && $args->{file}
                ? JIB::Package::Installable->Object::Accessor::new      :
            $arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6196	6342	
==>, $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6196	6342	
==>, $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warn <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5976	6091	
==>-d  $final_dir
            ? "\n\tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed to install '$a <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	39	132	
==>doc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	39	132	
==>doc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2843	2936	
==>ing implementation by far.
The Parrot implementation is currently at a comparable state as v6. <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15729	15877	
==>\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $self->{lone_not_line} = $self->{line};
        }

        return $NO;
    }
}

=head2 C <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6833	6941	
==>the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $conte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6891	6999	
==>the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $conte <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6165	6295	
==>> chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "ps <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6165	6295	
==>> chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "ps <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1064	1179	
==>assoc => 'non',
        precedence => 'equal',
        other => 'circumfix:<( )>',
    );
    __PACKAGE__->add_rule( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10481	10582	
==>too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10481	10582	
==>too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12475	12566	
==>roperly do (non-leaking) memory management, via reverse
  engineering (almost completely und <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2925	3056	
==>grammar_perl6 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl6\n";
    my $s = "";
    f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1850	1939	
==>ocument describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This document <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1850	1939	
==>ocument describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This document <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3400	3490	
==>s($Class)->{'$:superclass'} = $Object;

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4094	4184	
==>s($Class)->{'$:superclass'} = $Object;

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5302	5392	
==>s($Class)->{'$:superclass'} = $Object;

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19606	19759	
==>ding, "link in $source to $target does not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1479	1584	
==>wo, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Re <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1479	1584	
==>wo, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Re <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4111	4251	
==>ameter_with_default(
            traverse_ast( %pad<"tpParam"> ), traverse_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5566	5692	
==>ush(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ' <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5566	5692	
==>ush(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3922	4124	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3922	4124	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3922	4124	
==>{
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14780	14955	
==>p, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14780	14955	
==>p, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14780	14955	
==>p, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3262	3351	
==>line('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3262	3351	
==>line('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3262	3351	
==>line('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1223	1406	
==>{
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } els <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1223	1406	
==>{
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } els <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3891	3999	
==>urn unless $next;
    $next->walk(\@stack, $d);
    return wantarray ? ($next, $depth-$d) : $next;
  }
}


su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6716	6813	
==>U-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6716	6813	
==>U-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6716	6813	
==>U-burning implementation of setTimeout
  // (needed for &sleep). Is there a better way?
  setTimeo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13321	13446	
==>ingle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13315	13440	
==>ingle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $pre <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	301	414	
==>+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	337	447	
==>+)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25211	25302	
==>ro-attribute Relation::Example with zero tuples or
one tuple respectively have a special mea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14421	14525	
==>lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg, \ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37611	37703	
==>_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37611	37703	
==>_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5532	5646	
==>= @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5532	5646	
==>= @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5532	5646	
==>= @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	401	501	
==>gs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	401	501	
==>gs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	401	501	
==>gs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7653	7776	
==>ray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7653	7776	
==>ray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7653	7776	
==>ray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9394	9492	
==>f "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9394	9492	
==>f "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9394	9492	
==>f "PIL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11933	12067	
==>sed by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11933	12067	
==>sed by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11933	12067	
==>sed by bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	558	678	
==>r
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub cal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	558	678	
==>r
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub cal <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9381	9474	
==>$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed'};
	push(@args,"name=>".$ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3492	3689	
==>ndent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3492	3689	
==>ndent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4818	4926	
==>0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4818	4926	
==>0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4818	4926	
==>0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1759	1899	
==>$h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1759	1899	
==>$h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1759	1899	
==>$h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7462	7706	
==>e; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $a <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7462	7706	
==>e; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	413	530	
==>($value)";
    bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11792	12032	
==>atch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11792	12032	
==>atch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11792	12032	
==>atch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3152	3281	
==>";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAR <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	388	515	
==>s => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

= <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	388	515	
==>s => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4224	4338	
==>ation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SE <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7701	7815	
==>ation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2286	2383	
==>=item B<add (x as num) returns num>

=item B<subtract (x as num) returns num>

=item B<mulitply (x <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2463	2605	
==>>/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




conv_package {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2023	2116	
==>h C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* G <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2112	2205	
==>h C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* G <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3651	3792	
==>tch = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3900	4038	
==>tch = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3900	4038	
==>tch = $state->{op}->( $tail, undef );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2190	2329	
==>p = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2190	2329	
==>p = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2190	2329	
==>p = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10940	11083	
==>, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (B <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10940	11083	
==>, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33584	33684	
==>eper
scope, and C<sub{ +1 }> is used to come up out of it.  In between these
is C<< $self->{data} >>, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36384	36475	
==>eturns Relation::Example>

This multi-method is the N-ary version of the aforementioned bina <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41571	41662	
==>eturns Relation::Example>

This multi-method is the N-ary version of the aforementioned bina <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12748	12847	
==>r '-'.

The return value is the values of the fields removed.  In scalar
context the number of field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12748	12847	
==>r '-'.

The return value is the values of the fields removed.  In scalar
context the number of field <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4353	4496	
==>b concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4341	4484	
==>b concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8668	8770	
==>es into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8668	8770	
==>es into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12196	12292	
==>hem in the same relative order they had in C<@values>.

If C<$inplace> is specified, the array is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	796	954	
==>->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	796	954	
==>->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	796	954	
==>->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5274	5426	
==>$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( @{$assoc{$_}} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22871	22963	
==>ies to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22871	22963	
==>ies to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23224	23318	
==>1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23224	23318	
==>1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23224	23318	
==>1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1641	1749	
==>s != \@values
    return \@values, $input;
  };
}

## Chapter 8 section 3.2

sub alternate(Array *@p) is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1266	1359	
==>e> does the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C< <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1266	1359	
==>e> does the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C< <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9925	10029	
==>-> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9925	10029	
==>-> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2514	2602	
==>PGE::Exp::Alt");
    $optable->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Ali <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10795	10904	
==>age Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10795	10904	
==>age Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10795	10904	
==>age Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3525	3622	
==>my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3525	3622	
==>my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3525	3622	
==>my $k qw(pFun pLV pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1220	1349	
==>push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1220	1349	
==>push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1220	1349	
==>push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1573	1674	
==>itive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1573	1674	
==>itive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1573	1674	
==>itive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1052	1158	
==>rom a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1052	1158	
==>rom a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1052	1158	
==>rom a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100. <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2128	2259	
==>p_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2128	2259	
==>p_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4838	4985	
==>bject',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	997	1100	
==>dy>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	997	1100	
==>dy>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3162	3269	
==>= $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3162	3269	
==>= $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3162	3269	
==>= $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(s <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4012	4122	
==>lon in "};" is probably a bug.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip comments and docs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	416	512	
==>le(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	416	512	
==>le(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1214	1329	
==>value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1214	1329	
==>value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1214	1329	
==>value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24366	24460	
==>Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28918	29012	
==>Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	153	253	
==>sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	153	253	
==>sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	153	253	
==>sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8181	8301	
==>{
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLAS <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8181	8301	
==>{
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLAS <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1600	1728	
==>l::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1600	1728	
==>l::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1106	1218	
==>ew($left->to_native + $right->to_num->to_native());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8678	8780	
==>ash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8666	8768	
==>ash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3099	3222	
==>d have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3099	3222	
==>d have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3099	3222	
==>d have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element in the tied arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2222	2361	
==>b->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2222	2361	
==>b->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2222	2361	
==>b->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37091	37187	
==>s) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37541	37637	
==>s) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39695	39791	
==>s) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned.

=it <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11149	11369	
==>{
                    $todo_type = '' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${todo_type}t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	620	711	
==>ch->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Wr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	620	711	
==>ch->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Wr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8899	8988	
==>ngleton_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11348	11437	
==>ngleton_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8319	8423	
==>if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8319	8423	
==>if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8319	8423	
==>if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1069	1165	
==>odified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1069	1165	
==>odified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2965	3053	
==>dy =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNativ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2965	3053	
==>dy =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNativ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2965	3053	
==>dy =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNativ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5300	5400	
==>ft;
		my $type = $self->simplify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24085	24182	
==>body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28637	28734	
==>body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2818	2944	
==>uilder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2818	2944	
==>uilder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2898	3024	
==>uilder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_t <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3189	3307	
==>g());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    Thi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8765	8880	
==>pugs, parrot and bash require",
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd($pugs), ldd("$par <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3642	3741	
==>1_dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<->( $self: Int|Real $iso <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	272	382	
==>terface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	478	588	
==>terface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13449	13546	
==>sion> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_requ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11606	11724	
==>y $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15083	15201	
==>y $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14418	14536	
==>y $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relation i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	969	1094	
==>lete $param->{p}    unless defined $self->{p};
                        # default = undef;
    $self->{sigspace} = delete $para <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1615	1709	
==>Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1615	1709	
==>Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was l <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3088	3185	
==>'s safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This mean <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3088	3185	
==>'s safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This mean <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3598	3701	
==>{
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3598	3701	
==>{
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3598	3701	
==>{
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $sel <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2409	2539	
==>$path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$b <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2409	2539	
==>$path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$b <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	703	796	
==>d_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at the class l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4599	4704	
==>aseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand(). <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4599	4704	
==>aseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand(). <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4599	4704	
==>aseClass); sub expand {
    #$_[0]->SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand(). <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2467	2588	
==>ns < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2467	2588	
==>ns < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	633	737	
==>], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	633	737	
==>], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	633	737	
==>], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9094	9202	
==>str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9094	9202	
==>str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9094	9202	
==>str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($str =~ /^[\& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8350	8462	
==>tput );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	560	660	
==>tput );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	560	660	
==>tput );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27727	27862	
==>tant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28006	28141	
==>tant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4732	4828	
==>_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4732	4828	
==>_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4732	4828	
==>_attr($self => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	155	251	
==>e base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	155	251	
==>e base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	155	251	
==>e base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7234	7348	
==>or(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7234	7348	
==>or(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7234	7348	
==>or(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6350	6468	
==>__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6350	6468	
==>__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6350	6468	
==>__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20191	20289	
==>c OS X
program is as simple as adding a language file to the program package.  No
recompilation nec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20191	20289	
==>c OS X
program is as simple as adding a language file to the program package.  No
recompilation nec <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1365	1456	
==>buteGrammar->new(<<'#\'EOG');
#\
type::variable::instantiated: layout($$) = { $.instance }
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20857	21119	
==>r' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20857	21119	
==>r' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20857	21119	
==>r' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	280	380	
==>olException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	280	380	
==>olException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	280	380	
==>olException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "ne <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17114	17210	
==>0,B0,E0,E0).
rm(star_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	468	562	
==>ringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase m <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	468	562	
==>ringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9868	10004	
==>if ($results{passing}) {
            if ($test{max} and $test{skipped} + $test{bonus}) {
                my @msg;
                push(@m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8121	8218	
==>om %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8121	8218	
==>om %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6377	6482	
==>g)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6377	6482	
==>g)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6377	6482	
==>g)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40227	40320	
==>0-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prom <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40227	40320	
==>0-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prom <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11650	11746	
==>ubref, which gets written onto a
  hopefully otherwise unused section of a regexp struct.  Anothe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	695	808	
==>fined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	695	808	
==>fined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	695	808	
==>fined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1363	1463	
==>set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version th <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4017	4106	
==>new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4017	4106	
==>new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7498	7639	
==>ds
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7498	7639	
==>ds
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7498	7639	
==>ds
                || confess "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1157	1266	
==>return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1157	1266	
==>return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8140	8234	
==>igits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalIntegerLitera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6346	6442	
==>$xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6346	6442	
==>$xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6346	6442	
==>$xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2778	2958	
==>Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2778	2958	
==>Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2778	2958	
==>Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = ' <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1247	1365	
==>cript )
          unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @ <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1247	1365	
==>cript )
          unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19118	19230	
==>regular expression */
  U32 nparens;            /* number of parentheses */

=head2 The match result:

  I32 subl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5358	5448	
==>tails.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5358	5448	
==>tails.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	441	535	
==>You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	441	535	
==>You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	441	535	
==>You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19252	19364	
==>elf => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19252	19364	
==>elf => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19252	19364	
==>elf => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3696	3805	
==>d = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Confi <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3696	3805	
==>d = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Confi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	736	839	
==>d = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6641	6750	
==>$self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6641	6750	
==>$self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6641	6750	
==>$self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(sub {        
    ::opaqu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	700	901	
==>onstant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	701	902	
==>onstant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" ) <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1603	1716	
==>rst derivative of f (which Newton's method
              uses to update its guess at each iteration)
    verbose - <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	583	694	
==>ring\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

sub dump_file {
    my $file = shift;

    l <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1840	1935	
==>ghter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1840	1935	
==>ghter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9925	10025	
==>rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9925	10025	
==>rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_ent <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1315	1408	
==>api06.pl |perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1304	1426	
==>ol  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1304	1426	
==>ol  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1181	1285	
==>but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1181	1285	
==>but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1181	1285	
==>but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3939	4077	
==>mp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3939	4077	
==>mp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16209	16315	
==>est name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1043	1151	
==>el_w_Roles.pl

$::Role = undef;

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1043	1151	
==>el_w_Roles.pl

$::Role = undef;

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1043	1151	
==>el_w_Roles.pl

$::Role = undef;

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5701	5824	
==>pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->ca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1636	1755	
==>if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1636	1755	
==>if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3978	4084	
==>LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LVal <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3978	4084	
==>LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LVal <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2558	2682	
==>es) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2558	2682	
==>es) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	693	786	
==>pod

=head1 NAME

Blondie::Reducer::DuplicateFinder - find duplicate nodes in a program.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10285	10402	
==>t
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { "<impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10285	10402	
==>t
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { "<impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10285	10402	
==>t
    # can be a role too.
    # -----------------------------------------------    
    method resolve () { "<impleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	135	239	
==>ser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	135	239	
==>ser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	135	239	
==>ser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3603	3716	
==>tcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3603	3716	
==>tcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3603	3716	
==>tcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13360	13464	
==>ss name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13360	13464	
==>ss name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13360	13464	
==>ss name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify { <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1332	1532	
==>arator);

# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inpla <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6675	6771	
==>_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6675	6771	
==>_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28863	28962	
==>s.  This
method supports having the new attributes having the same names as old
attributes that beco <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33415	33514	
==>s.  This
method supports having the new attributes having the same names as old
attributes that beco <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32552	32651	
==>s.  This
method supports having the new attributes having the same names as old
attributes that beco <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	296	398	
==>[Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

met <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	296	398	
==>[Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	491	596	
==>thod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	491	596	
==>thod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	491	596	
==>thod, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3141	3285	
==>( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3141	3285	
==>( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3141	3285	
==>( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fet <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4584	4760	
==>shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6253	6429	
==>shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1074	1179	
==>f the runtime has a hash for this right now this is a non
    # issue since even higher order functions ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	592	712	
==>own = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	592	712	
==>own = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	592	712	
==>own = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3449	3581	
==>'BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3449	3581	
==>'BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3449	3581	
==>'BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15183	15283	
==>./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  cla <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15183	15283	
==>./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  cla <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12013	12107	
==>_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7132	7249	
==>efix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7132	7249	
==>efix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7132	7249	
==>efix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21921	22014	
==>ribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21921	22014	
==>ribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2160	2311	
==>ate):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2090	2237	
==>ate):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3573	3776	
==>ed($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.rea <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3573	3776	
==>ed($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.rea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39014	39109	
==>equence, like '\y', your handler will
receive an additional argument which tells it if it's insi <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1322	1462	
==>?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $e <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1322	1462	
==>?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	303	404	
==>o.pl';

#my $m = match_re($re,$str);
my $r = compile($re) || die "Compile failed";
my $m;
if($bench) { <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	646	773	
==>sults;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $curren <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	646	773	
==>sults;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $curren <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1563	1684	
==>tr) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10857	10978	
==>reach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10857	10978	
==>reach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10857	10978	
==>reach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	76	190	
==>ente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeitung
	return $result;
})
#="Auspacken"
$id.u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2683	2778	
==>e given string, seperating it into 'name' and 'value' pairs.  This
method should be called befor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2683	2778	
==>e given string, seperating it into 'name' and 'value' pairs.  This
method should be called befor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5336	5441	
==>& args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5336	5441	
==>& args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5336	5441	
==>& args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	487	590	
==>"Blondie::Compiler" }

sub provides {
    die "virtual method 'provides' called on @_";
}

sub run {
	di <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1433	1529	
==>$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1433	1529	
==>$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($se <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5206	5374	
==>f._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*pu <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5206	5374	
==>f._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28292	28392	
==>a 'quant' node), or it might not exist at all
(for an 'anchor' node).

=item my $e = $obj->ender()

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16126	16326	
==>ey' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16126	16326	
==>ey' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16126	16326	
==>ey' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5990	6165	
==>&$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5990	6165	
==>&$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	685	785	
==>ot be
  implemented immediately.  Assume the existence of what would
  be useful, and we'll do it lat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1813	1926	
==>nd
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1813	1926	
==>nd
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1813	1926	
==>nd
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1220	1318	
==>t(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1220	1318	
==>t(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1220	1318	
==>t(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7318	7419	
==>rcumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7318	7419	
==>rcumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7318	7419	
==>rcumfix_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1377	1481	
==>qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1377	1481	
==>qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1377	1481	
==>qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17429	17560	
==>->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13850	13981	
==>->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4258	4368	
==>t(exact_comp => "\n", '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6089	6195	
==>ses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6089	6195	
==>ses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6089	6195	
==>ses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9269	9396	
==>ey') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9269	9396	
==>ey') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9269	9396	
==>ey') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14583	14708	
==>hed_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later). <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14583	14708	
==>hed_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later). <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	633	750	
==>bj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have oth <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1117	1234	
==>bj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have oth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19995	20096	
==>p6_macrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18843	18970	
==>>{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20201	20328	
==>>{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50838	50956	
==>entifier' => $e->get('$self:')->get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2432	2576	
==>( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2432	2576	
==>( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2432	2576	
==>( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "st <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52349	52440	
==>ass is subclass of Object >
$::Class->set_attr(symbol->new('@:superclasses') => list->new($: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1199	1314	
==>ump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1199	1314	
==>ump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1199	1314	
==>ump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2995	3109	
==>ass::dir( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to anothe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2826	2922	
==>ILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2826	2922	
==>ILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8330	8441	
==>unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8330	8441	
==>unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8330	8441	
==>unboxed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19213	19310	
==>uage can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19213	19310	
==>uage can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2707	2808	
==>ttrName *@attr_names) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $attr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17947	18046	
==>ated from each other, even if more than one uses the
same Engine class to implement it; that is, mul <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17947	18046	
==>ated from each other, even if more than one uses the
same Engine class to implement it; that is, mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4292	4423	
==>::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4292	4423	
==>::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4292	4423	
==>::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1733	1842	
==>s_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1733	1842	
==>s_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1733	1842	
==>s_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11661	11775	
==>.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11661	11775	
==>.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11661	11775	
==>.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4996	5142	
==>::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4996	5142	
==>::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4996	5142	
==>::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13165	13288	
==>shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13165	13288	
==>shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13165	13288	
==>shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** get the class name, from object
#    my $class = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1413	1538	
==>ad') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1413	1538	
==>ad') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15478	15593	
==>substr target, pos, $I1
    cname = escape cname
    cname = concat '"', cname
    cname = concat cname, '"'
    mob <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4246	4354	
==>,6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4246	4354	
==>,6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8262	8351	
==>$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8262	8351	
==>$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $ev <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2286	2412	
==>lass, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2833	2959	
==>lass, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3380	3506	
==>lass, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13705	13800	
==>t return the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13705	13800	
==>t return the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2932	3025	
==>nd::Perl::Builtins;

=head1 DESCRIPTION

This file bridges between perl and Blondie, by provid <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3108	3213	
==>t_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3108	3213	
==>t_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3188	3293	
==>t_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4763	4866	
==>n.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faster.

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4763	4866	
==>n.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faster.

= <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22174	22271	
==>(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (char_type(C,space) ; C = 11), !. %\v chr(11)

c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27720	27814	
==>ction that, when
given each original tuple/Mapping as its sole read-only argument, returns a
va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32272	32366	
==>ction that, when
given each original tuple/Mapping as its sole read-only argument, returns a
va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31364	31458	
==>ction that, when
given each original tuple/Mapping as its sole read-only argument, returns a
va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12368	12505	
==>shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12368	12505	
==>shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12368	12505	
==>shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1280	1408	
==>atisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Lock <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1280	1408	
==>atisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Lock <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8077	8179	
==>rn value from another Object singleton/class method called by Foo');

is($Foo->singleton_test_on_object <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9449	9618	
==>es;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9449	9618	
==>es;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9449	9618	
==>es;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11755	11908	
==>shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11755	11908	
==>shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11755	11908	
==>shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22000	22208	
==>constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22279	22487	
==>constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constan <==
3	/Users/nnunley/pugs/util/package-osx.pl	5282	5388	
==>9.3pm
        /usr/local/man/man3/Perl6::Doc.3
        /usr/local/man/man3/Perl6::Doc.3pm
        /usr/loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2492	2585	
==>->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(':: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2492	2585	
==>->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(':: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2492	2585	
==>->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->STORE(':: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2845	2974	
==>ss
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2845	2974	
==>ss
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2845	2974	
==>ss
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1830	1947	
==>pts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $edit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1830	1947	
==>pts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $edit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1830	1947	
==>pts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $edit <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16539	16632	
==>uage, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16539	16632	
==>uage, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta: <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	537	633	
==>package PMCPtr;
# fix the typemap to make all those stuff live in Inline::Parrot::PMC
our $interp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12872	12966	
==>er to user messages in programs by keys

=head1 VERSION

This document describes Locale::KeyedT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12872	12966	
==>er to user messages in programs by keys

=head1 VERSION

This document describes Locale::KeyedT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2949	3065	
==>);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2949	3065	
==>);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2949	3065	
==>);($vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6776	6887	
==>k;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6776	6887	
==>k;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6776	6887	
==>k;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3517	3701	
==>l' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3517	3701	
==>l' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3517	3701	
==>l' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.t <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	590	715	
==>r ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir( <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	590	715	
==>r ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11932	12055	
==>x);
}

my $nan = 100**100**100 / 100**100**100;
my %as_num_handlers =
    ( undef => sub { Carp::carp("p6_as_num called on u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11491	11580	
==>ecifc
code to the class that consumed it.

----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11491	11580	
==>ecifc
code to the class that consumed it.

----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11491	11580	
==>ecifc
code to the class that consumed it.

----------------------------------------------- <==
3	/Users/nnunley/pugs/util/package-osx.pl	932	1038	
==>local/lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/parrot
        /us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27346	27440	
==>he new Relation has as
many additional attributes as there are pairs in the argument C<$attrs>, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31898	31992	
==>he new Relation has as
many additional attributes as there are pairs in the argument C<$attrs>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1531	1647	
==>,
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1531	1647	
==>,
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1531	1647	
==>,
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10254	10392	
==>$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10254	10392	
==>$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10254	10392	
==>$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $method_table_name = '%:priva <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	833	929	
==>rite( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
char <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	833	929	
==>rite( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
char <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1389	1485	
==>rite( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
char <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4175	4269	
==>efaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4175	4269	
==>efaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6372	6466	
==>efaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, pass <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6739	6845	
==>pecific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6739	6845	
==>pecific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8936	9042	
==>pecific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10070	10191	
==>y %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10070	10191	
==>y %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10070	10191	
==>y %_class_dispatch_cache;
    sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispat <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18180	18300	
==>being empty, this is less awkward.

=head1 EXAMPLES

See F<examples/mini_harness.plx> for an example of use.

=head1 AUTH <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1958	2050	
==>ls.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1958	2050	
==>ls.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10398	10525	
==>n slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_si <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10398	10525	
==>n slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_si <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10398	10525	
==>n slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	811	912	
==>ebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	811	912	
==>ebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	811	912	
==>ebless->rebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6385	6494	
==>ght;
}

sub free_vars {
	my $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inh <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14686	14785	
==>can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a po <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14686	14785	
==>can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22800	22905	
==>v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22800	22905	
==>v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22800	22905	
==>v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9452	9571	
==>->{pos} =~ /line (\d+)(?:.*line (\d+))?/s;
      my @lines;
      if (defined $end && $end > 0) {
         @lines = $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1207	1306	
==>10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operation <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1207	1306	
==>10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operation <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1207	1306	
==>10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3796	3924	
==>ined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3796	3924	
==>ined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3796	3924	
==>ined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1122	1234	
==>rn bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_en <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1122	1234	
==>rn bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_en <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1122	1234	
==>rn bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2457	2636	
==>rl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2457	2636	
==>rl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2457	2636	
==>rl6.Object
        >
      : ($_)
  } @input;

  my $js;
  foreach my $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9052	9206	
==>f $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4796	4935	
==>mper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4796	4935	
==>mper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1301	1430	
==>vent $event) {
        grep { .match($event) }, gather {
            take $.subscriptions.members;

            # FIXME this is bu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3966	4060	
==>tabase portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3966	4060	
==>tabase portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	550	649	
==>sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	550	649	
==>sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	550	649	
==>sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1362	1471	
==>k b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1362	1471	
==>k b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1362	1471	
==>k b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	178	278	
==>thod('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	178	278	
==>thod('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	178	278	
==>thod('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2793	2892	
==>gs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2793	2892	
==>gs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2793	2892	
==>gs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	131	240	
==>upplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	131	240	
==>upplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	131	240	
==>upplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	90	192	
==>e them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	90	192	
==>e them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	90	192	
==>e them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	394	505	
==>ndings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape() or anoth <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	33	134	
==>as $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method em <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	33	134	
==>as $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method em <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	244	699	
==>j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	244	699	
==>j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	195	291	
==>want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	195	291	
==>want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	195	291	
==>want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10745	10859	
==>{ $tree->[-1]{data}[0] }) {
        last unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32995	33093	
==>@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements whe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32995	33093	
==>@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements whe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4560	4673	
==>} # define your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define your own m:x()/stuff/

    As w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7429	7523	
==>ub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7429	7523	
==>ub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7429	7523	
==>ub { return $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2916	3020	
==>st.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2916	3020	
==>st.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2996	3100	
==>st.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4108	4240	
==>ray of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4108	4240	
==>ray of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1883	2000	
==>STROY/;
        my $self = shift;
        return $self->($label, @_);
    }
}

## ------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2703	2824	
==>ue);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2703	2824	
==>ue);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14874	14970	
==>h_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18351	18447	
==>h_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17767	17863	
==>h_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4344	4451	
==>et_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4344	4451	
==>et_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	862	981	
==>ix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	862	981	
==>ix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	862	981	
==>ix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2665	2764	
==>_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2665	2764	
==>_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2665	2764	
==>_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("run <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2473	2709	
==>/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- highe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2781	3004	
==>/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- highe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2781	3004	
==>/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- highe <==
3	/Users/nnunley/pugs/util/addauthors.pl	522	654	
==>r;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19461	19555	
==>henticate

This header must be included in a C<407 Proxy Authentication Required>
response.

=i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19461	19555	
==>henticate

This header must be included in a C<407 Proxy Authentication Required>
response.

=i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15273	15379	
==>sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $r <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4420	4515	
==>)}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\d <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4420	4515	
==>)}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\d <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	647	793	
==>+^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	647	793	
==>+^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my i <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	618	737	
==>1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die "open: $Confi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3763	3863	
==>ntersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3763	3863	
==>ntersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4033	4233	
==>($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear;
        },              
        cla <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3859	4058	
==>$end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3859	4058	
==>$end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13165	13279	
==>( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13165	13279	
==>( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13165	13279	
==>( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Container::Hash;

sub clone { 
    my $tmp = { %{ $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	750	862	
==>uctor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	750	862	
==>uctor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	750	862	
==>uctor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0] <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3419	3518	
==>( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $mak <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4555	4653	
==>( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $mak <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30539	30634	
==>ancements to 
C<< <bug-test-harness >> at C<< rt.cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2473	2600	
==>o root
$Repoindex      = $Repodir . '/index';              # index file for the repo

### be strict from here on down
{   use st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8623	8730	
==>uch as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6156	6260	
==>uch as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	193	311	
==>->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	193	311	
==>->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	193	311	
==>->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3192	3341	
==>next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matche <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3090	3235	
==>next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matche <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1447	1542	
==>{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1587	1682	
==>{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($sel <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11460	11552	
==>><th colspan="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4521	4667	
==>_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4521	4667	
==>_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39138	39259	
==>rser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class specific code
    }
    else <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5909	6127	
==>in") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.ch <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5909	6127	
==>in") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22927	23024	
==>t's wrong
with it.

=item * Variable interpolation

This module parses I<regexes>, not Perl.  If y <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19462	19558	
==>eparate resource files, and not change
your main program.

I<Note that an update is planned for L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19462	19558	
==>eparate resource files, and not change
your main program.

I<Note that an update is planned for L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	386	483	
==>* some constructors implement deep cloning
# * functions that don't support deep cloning emit warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	386	483	
==>* some constructors implement deep cloning
# * functions that don't support deep cloning emit warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	386	483	
==>* some constructors implement deep cloning
# * functions that don't support deep cloning emit warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9633	9735	
==>-----------------------------------------------      
    method collect_all_roles () { "<implemented>" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9633	9735	
==>-----------------------------------------------      
    method collect_all_roles () { "<implemented>" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9633	9735	
==>-----------------------------------------------      
    method collect_all_roles () { "<implemented>" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14744	14887	
==>ar( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        return ' "" . ' . _emit( $n->{exp1} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6448	6557	
==>e $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accord <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6448	6557	
==>e $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accord <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21998	22112	
==>t)     ,C) :- !,    isPrint(C).
class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2134	2246	
==>$_[3] } }
    | IF exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3061	3161	
==>n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3061	3161	
==>n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3061	3161	
==>n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3199	3360	
==>ch => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3073	3229	
==>ch => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8555	8674	
==>ar i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8555	8674	
==>ar i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8555	8674	
==>ar i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	86	176	
==>wd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	86	176	
==>wd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	86	176	
==>wd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	402	520	
==>own);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if(defined $v) {
        ($X::str <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14333	14437	
==>, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14333	14437	
==>, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_en <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9408	9712	
==>fied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @l <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10885	11189	
==>fied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3787	3979	
==>ch::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	868	979	
==>h, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replac <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	868	979	
==>h, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replac <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5312	5401	
==>y @dirs = sort keys %{$index->{_dirs}};
my $index_file = catfile($output_dir,"index.html") <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3306	3412	
==>ocal $ENV{PATH} = dirname($ghc) . $Config{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run_setup->('bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1	100	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1	100	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1	100	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4307	4420	
==>ymbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4307	4420	
==>ymbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4307	4420	
==>ymbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var va <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1436	1565	
==>mpl = {
        installation => { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4210	4316	
==>$id} contents dont make it to $step (v5.8.5)?!?
    return &$step;
  };
}

my @whitespaces;
my $ws = def_ru <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40147	40242	
==>he Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

An <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40147	40242	
==>he Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

An <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4746	4840	
==>g::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified function nam <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4746	4840	
==>g::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified function nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	999	1113	
==>[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	999	1113	
==>[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	999	1113	
==>[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9665	9804	
==>=> \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
.
        $gen_match = "bless \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7737	7845	
==>=> \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7725	7833	
==>=> \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1891	1993	
==>{ (shift)->keys->length }

sub exists {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('typ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11192	11286	
==>d _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11192	11286	
==>d _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20995	21095	
==>dule);
    Pugs::Internals::require_use_helper(Bool::False,$module);
}
sub Pugs::Internals::require_u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12000	12093	
==>er

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12000	12093	
==>er

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Docum <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	262	364	
==>(
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	262	364	
==>(
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_ <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5347	5442	
==>gs starts.  After the executable is ready, the Standard
Prelude is precompiled and stored in YAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1983	2084	
==>e('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1983	2084	
==>e('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1983	2084	
==>e('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7643	7792	
==>jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7643	7792	
==>jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7643	7792	
==>jsname);";
    }

    my $padname = PIL::doublequote $name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the in <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11836	11968	
==>" in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15313	15445	
==>" in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14648	14780	
==>" in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1458	1592	
==>ods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1458	1592	
==>ods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1458	1592	
==>ods')->{$label} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	290	413	
==>Val};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	290	413	
==>Val};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	290	413	
==>Val};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6729	6840	
==>my $file = "tests.$pid.yml";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	22	123	
==>trict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	22	123	
==>trict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	22	123	
==>trict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7406	7516	
==>ader("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authent <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7406	7516	
==>ader("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authent <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	249	348	
==>brary

use warnings;
use strict;

use Cwd;
use File::Find;
use File::Spec::Functions ':ALL';
use Fil <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4126	4224	
==>bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4126	4224	
==>bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.star <==
3	/Users/nnunley/pugs/util/package-osx.pl	697	794	
==>nclude/parrot
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5.1.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13921	14047	
==>ethods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13921	14047	
==>ethods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13921	14047	
==>ethods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21333	21509	
==>un => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs"),
							),
						),
						param => comb(
							fun => co <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	829	932	
==>Data::Dumper ();
use Storable ();

use Devel::STDERR::Indent;

package type;
use base qw/Clone/;

### th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1283	1376	
==>sh @ISA, qw( Regexp::Parser::__object__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  pu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6224	6331	
==>G
    return $o->mk_eater_for_re('\Z') if $re eq '\Z';
    return sub{
      FAIL() if !($X::pos == (length( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4692	4785	
==>ct_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.differ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8169	8262	
==>ct_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.differ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	392	508	
==>pression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	219	323	
==>xport(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	219	323	
==>xport(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5779	5910	
==>G;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5779	5910	
==>G;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5779	5910	
==>G;
    return ($method_type, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	712	838	
==>($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	712	838	
==>($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	712	838	
==>($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	515	647	
==>push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	515	647	
==>push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	515	647	
==>push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          pus <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4885	5062	
==>tch => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4733	4905	
==>tch => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        retu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11924	12070	
==>q $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14691	14900	
==>.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18168	18377	
==>.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17584	17793	
==>.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_sh <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1422	1554	
==>t;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if it were co <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10415	10510	
==>ng iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10415	10510	
==>ng iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	646	774	
==>ox.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	646	774	
==>ox.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	646	774	
==>ox.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2588	2692	
==>diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2588	2692	
==>diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2668	2772	
==>diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13303	13423	
==>ub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13303	13423	
==>ub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13303	13423	
==>ub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3269	3406	
==>\n";
            $relative_precedences{$opt->{precedence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! def <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6885	6997	
==>o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7444	7556	
==>o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15471	15638	
==>: 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on separat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	464	628	
==>ontcolor = orange, " . 
                    "color = orange, " . 
                    "style = rounded, " .
                    "label = \"" . $node->name . "(" . $n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5557	5658	
==>ush(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

package PIL::PIL1: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6802	6913	
==>,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6802	6913	
==>,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3701	3812	
==>,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1374	1482	
==>TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1374	1482	
==>TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1374	1482	
==>TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = n <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13460	13557	
==>ote that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=h <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13460	13557	
==>ote that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=h <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3358	3446	
==>W, Z), !.
p5_concatenation(noop) --> {true}.
p5_concatenation_more(W, Z) --> p5_quantifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2320	2422	
==>::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2320	2422	
==>::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2320	2422	
==>::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7043	7229	
==>an];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7043	7229	
==>an];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_sp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	667	781	
==>nfix:<" . $opt{name} . ">",
        '{ return { op => "infix:<' . $opt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAG <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9138	9234	
==>Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9138	9234	
==>Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6701	6792	
==>my $error_file = catfile($output_dir,"error.html");
open( my $error, '>', $error_file) or di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1037	1151	
==>ad '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1037	1151	
==>ad '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1037	1151	
==>ad '""' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2863	2971	
==>::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2863	2971	
==>::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2943	3051	
==>::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	581	679	
==>asses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	581	679	
==>asses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	581	679	
==>asses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Rol <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7139	7243	
==>erm2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @terms, sub { Grammar::Perl6->indirec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	997	1135	
==>s, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	997	1135	
==>s, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	997	1135	
==>s, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5834	5963	
==>= -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::C <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5834	5963	
==>= -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	12	107	
==>erl

use strict;
use warnings;

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14524	14712	
==>list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14524	14712	
==>list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14524	14712	
==>list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5311	5412	
==>te a Rosetta Interface root, whose attributes will hold all of
    # the other data structures used by <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5311	5412	
==>te a Rosetta Interface root, whose attributes will hold all of
    # the other data structures used by <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9097	9194	
==><SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      <!before <LineTerminat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6258	6354	
==>Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6258	6354	
==>Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8455	8551	
==>Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18476	18579	
==>e' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18476	18579	
==>e' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18476	18579	
==>e' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	537	666	
==>ash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	537	666	
==>ash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	537	666	
==>ash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Ca <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3540	3666	
==>ED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3540	3666	
==>ED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5064	5190	
==>ED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8229	8395	
==>hing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No packa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8693	8859	
==>hing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No packa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	449	554	
==>e a tree, instead of a 'plain' Match.

- There are no tests yet for <before>, hashes, end_of_string, and <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37166	37266	
==><product>.  In any situation where the heading of one source relation is a
full subset of another, th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41715	41815	
==><product>.  In any situation where the heading of one source relation is a
full subset of another, th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41338	41438	
==><product>.  In any situation where the heading of one source relation is a
full subset of another, th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22851	22947	
==>B rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22851	22947	
==>B rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22851	22947	
==>B rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 = p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12576	12684	
==>P5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12576	12684	
==>P5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12576	12684	
==>P5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37135	37237	
==>et->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37135	37237	
==>et->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37135	37237	
==>et->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5657	5778	
==>ATE would take a fully qualified name, and create any missing packages 
nessecary, possibly storing a value in the last lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5657	5778	
==>ATE would take a fully qualified name, and create any missing packages 
nessecary, possibly storing a value in the last lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5657	5778	
==>ATE would take a fully qualified name, and create any missing packages 
nessecary, possibly storing a value in the last lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8237	8397	
==>$a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8237	8397	
==>$a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8237	8397	
==>$a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7068	7216	
==>sts
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7068	7216	
==>sts
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7068	7216	
==>sts
    // don\'t create new containers. Assigning to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7575	7798	
==>>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7575	7798	
==>>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7575	7798	
==>>{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::Me <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	148	267	
==>essors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $mat <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8757	8867	
==>elimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @va <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	230	338	
==>elimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @va <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2445	2530	
==>compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>> <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2445	2530	
==>compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1973	2150	
==>_store($value);
            },
            hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $self->hash_fetch };
            },
            hash_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4821	4945	
==>, return;

    if( File::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2407	2523	
==>fix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2407	2523	
==>fix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6144	6270	
==>ie("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6144	6270	
==>ie("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6144	6270	
==>ie("Required parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12775	12888	
==>$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12775	12888	
==>$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2602	2700	
==>?  LET is non-trivial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23872	23991	
==>G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20293	20412	
==>G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8451	8537	
==>er_spec_neg(L), !.
p5_modifier_spec_neg([-m|L]) --> "m", p5_modifier_spec_neg(L), !.
p5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13114	13246	
==>h the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13114	13246	
==>h the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13114	13246	
==>h the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1423	1523	
==>'<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Arr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1423	1523	
==>'<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Arr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23580	23672	
==>n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1).
replace_at_n(N,Rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5873	5991	
==>:Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5873	5991	
==>:Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5873	5991	
==>:Slice::unbind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4748	4853	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4748	4853	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4748	4853	
==>{ Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11648	11762	
==>' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11648	11762	
==>' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11648	11762	
==>' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	503	609	
==>s are not fmappable, flatten first";
	}

	sub values {
		my $self = shift;
		croak "annotations are not eat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5327	5428	
==>erface root, whose attributes will hold all of
    # the other data structures used by the Rosetta fra <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5327	5428	
==>erface root, whose attributes will hold all of
    # the other data structures used by the Rosetta fra <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19416	19532	
==>once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml(@_);
        $Last_ML_P <==
3	/Users/nnunley/pugs/util/config_h.pl	1936	2041	
==>-s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi");
    unlink("$tem <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2508	2603	
==>tml_location);
if ($smoke_upload) {
  if (defined $smoke_upload_script) {
    system("$^X $smoke <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4801	4952	
==>ackage;
    }
    
    return;
}    

=head2 $inst_pkg = $inst->register( package => $package )

=cut

sub register {
    my $self = shift;
    my $conf <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12112	12200	
==>s.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12112	12200	
==>s.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	418	538	
==>Nil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	418	538	
==>Nil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	418	538	
==>Nil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15353	15470	
==>es{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  my $pos = $X::pos;
  my $cap = $X: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	834	937	
==>eturns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REF <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	834	937	
==>eturns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REF <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2712	2824	
==>f, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fata <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2770	2882	
==>f, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fata <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	254	358	
==>r';

=head1 METHODS

=head2 $meta = JIB::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8856	8969	
==>$default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8856	8969	
==>$default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8856	8969	
==>$default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    pu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24863	24951	
==>0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), !.
set_fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1318	1422	
==>cher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1318	1422	
==>cher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1318	1422	
==>cher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	538	649	
==>"PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	538	649	
==>"PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	538	649	
==>"PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    return if re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1109	1218	
==>outines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Remov <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1109	1218	
==>outines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Remov <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1109	1218	
==>outines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Remov <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1065	1282	
==>:CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' is not readable ].
                                           q[or does not exist] <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	872	989	
==>.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so return <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	872	989	
==>.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so return <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1564	1688	
==>ias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias             {  \%\<<name>\>  \:\=  <construct>  }
rule n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9347	9464	
==>h, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9347	9464	
==>h, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8567	8699	
==>ty_value($P) = $V;
    } else { # 7
        $A.property_value($P) = $V;
    }
    # 8
    my sub not_an_array_index($P){ !($P ~~ rx:p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10919	11012	
==>this recurrence is a "universal set".
Otherwise the program will emit warnings during the exec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10919	11012	
==>this recurrence is a "universal set".
Otherwise the program will emit warnings during the exec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4554	4684	
==>.
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4554	4684	
==>.
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4554	4684	
==>.
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10309	10426	
==>"\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10309	10426	
==>"\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10309	10426	
==>"\n} catch PIL::Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCod <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9266	9382	
==>d 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :tod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9324	9440	
==>d 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :tod <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18947	19053	
==>::Exp::Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .local pmc exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16278	16399	
==>clare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16278	16399	
==>clare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32479	32571	
==>lias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37029	37121	
==>lias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	524	661	
==>slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	524	661	
==>slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	524	661	
==>slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confes <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12633	12769	
==>t {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comment = $1;
        return $YES;
    }
    else { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	781	882	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4022	4172	
==>array_unshift' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                unshift @{$self->get_valu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5191	5300	
==>) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5191	5300	
==>) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10171	10369	
==>s.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	725	911	
==>s.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	725	911	
==>s.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4022	4116	
==>. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4022	4116	
==>. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4022	4116	
==>. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2182	2303	
==>bmethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map - <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2182	2303	
==>bmethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map - <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4001	4112	
==>MOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15230	15352	
==>urns Time::Local
        is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - in <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	893	989	
==>oop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vty <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	893	989	
==>oop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vty <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7048	7150	
==>an\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normal <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7048	7150	
==>an\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normal <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3977	4103	
==>ode_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pEx <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3977	4103	
==>ode_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pEx <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	827	953	
==>ode_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pEx <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31374	31468	
==>tion in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35924	36018	
==>tion in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35142	35236	
==>tion in the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	607	726	
==>sub new {
		my $class = shift;
		bless {@_}, $class;
	}

	sub AUTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1764	1855	
==>tta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1764	1855	
==>tta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This documen <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11449	11550	
==>turns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects ar <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11449	11550	
==>turns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects ar <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1993	2131	
==>ject, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1993	2131	
==>ject, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the use <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12481	12609	
==>ti sub prefix:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method cu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9842	9936	
==>ect.  You might pass some initial
attribute-value pairs as parameters to the constructor.  I<E. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9842	9936	
==>ect.  You might pass some initial
attribute-value pairs as parameters to the constructor.  I<E. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1013	1119	
==>e locate a (the) C compiler
sub can_cc {
	my $self   = shift;
	my @chunks = split(/ /, $Config::Config{cc}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7974	8085	
==>name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7974	8085	
==>name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7974	8085	
==>name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4444	4544	
==>t the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6346	6446	
==>t the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31567	31671	
==>t is
still allowed, so I delete its handler too.  You can use this class to
ensure that there is are no c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1870	1973	
==>thod export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1870	1973	
==>thod export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3194	3310	
==>ass->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3194	3310	
==>ass->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3194	3310	
==>ass->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	441	551	
==>)->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $ta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	441	551	
==>)->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $ta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	441	551	
==>)->fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	193	307	
==>rl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	193	307	
==>rl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	193	307	
==>rl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22724	22896	
==>ET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22724	22896	
==>ET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22724	22896	
==>ET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	636	778	
==>ss) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	636	778	
==>ss) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	636	778	
==>ss) 
            || confess "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33784	33920	
==>$_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33784	33920	
==>$_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33784	33920	
==>$_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29408	29520	
==>bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29408	29520	
==>bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29408	29520	
==>bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1030	1136	
==>lue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1030	1136	
==>lue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1030	1136	
==>lue() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added class Ref
# * a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2200	2339	
==>y => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2200	2339	
==>y => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2200	2339	
==>y => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16891	17024	
==>ast;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $cod <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16891	17024	
==>ast;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $cod <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13315	13426	
==>},
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by entering the following command
      a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17458	17594	
==>ew('sup');
                $t->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_indexs- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12444	12541	
==>further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12444	12541	
==>further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	888	979	
==>haviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	888	979	
==>haviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	888	979	
==>haviour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6692	6804	
==>->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6692	6804	
==>->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6692	6804	
==>->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_method('resolve' => ::ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	72	185	
==>a(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	72	185	
==>a(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	72	185	
==>a(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (I <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6388	6487	
==>f TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6388	6487	
==>f TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8585	8684	
==>f TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15862	15996	
==>eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15862	15996	
==>eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15862	15996	
==>eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1846	1962	
==>ht);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1846	1962	
==>ht);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1846	1962	
==>ht);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    func <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5261	5389	
==>turn ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5261	5389	
==>turn ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21373	21467	
==>'> <Expression>? <')'> <Statement>
    | <'for'> <'('> <LeftHandSideExpression> <'in'> <Express <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29373	29493	
==>ODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29373	29493	
==>ODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29373	29493	
==>ODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30826	30918	
==>mation have been eliminated. 
Trivial cases are where C<$transformer> returns either an empty <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35377	35468	
==>mation have been eliminated.
Trivial cases are where C<$transformer> returns either an empty <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34568	34659	
==>mation have been eliminated.
Trivial cases are where C<$transformer> returns either an empty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9401	9518	
==>y $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9401	9518	
==>y $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9401	9518	
==>y $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5979	6109	
==>urrent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5979	6109	
==>urrent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @span <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7000	7105	
==>Build failed: $?" unless -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4157	4262	
==>ar1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
sec <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4157	4262	
==>ar1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
sec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1038	1142	
==>elf->package( $self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->file

Location of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	442	561	
==>ess {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	442	561	
==>ess {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	442	561	
==>ess {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1436	1534	
==>arName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1436	1534	
==>arName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1436	1534	
==>arName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	85	186	
==>sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	85	186	
==>sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	85	186	
==>sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str *@text) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2529	2626	
==>class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2529	2626	
==>class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2529	2626	
==>class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3156	3364	
==>$self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Cannot skill <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23522	23617	
==>es (it is very simple).

There are other differences.  Where other solutions take variables, the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23522	23617	
==>es (it is very simple).

There are other differences.  Where other solutions take variables, the <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3397	3518	
==>});
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{values}{features} || <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4610	4718	
==>y $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4469	4577	
==>y $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2450	2559	
==>len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2450	2559	
==>len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2450	2559	
==>len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18578	18674	
==>a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "objec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18578	18674	
==>a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "objec <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5349	5558	
==>1]) {
                            # pop the top off ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5349	5558	
==>1]) {
                            # pop the top off ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1018	1167	
==>turn { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( { return { stmt => '{'} } ));
    __PACKAGE__->add_rule(
        '}' => q( { re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1186	1288	
==>epl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1186	1288	
==>epl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - creat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1186	1288	
==>epl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - creat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6175	6308	
==>$_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_b <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6175	6308	
==>$_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_b <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	877	979	
==>hod post (POE::Session $session, Str $event, *@args) {
    # Push our callback on @:events.
    ./:enqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1539	1694	
==>an' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3930	4060	
==>{
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i] =~ /^(<.*?>)/;
    #print "item: $ite <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9757	9854	
==>'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'RE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9757	9854	
==>'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'RE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23910	24086	
==>m' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23910	24086	
==>m' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23910	24086	
==>m' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TOD <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20420	20516	
==>ontrol-panel displays a list of all the languages your programs do or
might have, and lets you ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20420	20516	
==>ontrol-panel displays a list of all the languages your programs do or
might have, and lets you ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	551	650	
==>$_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	551	650	
==>$_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	551	650	
==>$_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6627	6731	
==>sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6627	6731	
==>sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6627	6731	
==>sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1174	1277	
==>ound this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1174	1277	
==>ound this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1174	1277	
==>ound this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9580	9669	
==>use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9580	9669	
==>use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9580	9669	
==>use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13202	13328	
==>urn _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{op <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2157	2240	
==>:Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repo <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2157	2240	
==>:Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repo <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12674	12795	
==><span class='$class'>$rest</span>";
      
    }
#    $body->push_content("\n");
     $output .= "\n";
  }
  $template->pa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41112	41207	
==>e usage and patch
code, that supports embedding of Template modules into the same files as
progr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41112	41207	
==>e usage and patch
code, that supports embedding of Template modules into the same files as
progr <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14752	14892	
==>ILES: @f\n";
                @dir_files = @new_dir_files;
            }
        }
    } # foreach test
    $tot{bench} = timediff(new Benchma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2303	2423	
==>ase') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2303	2423	
==>ase') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15689	15791	
==>r!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19166	19268	
==>r!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29163	29261	
==>0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcnt++), re)
 #define ReREFC <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7887	8046	
==>n $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7887	8046	
==>n $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	387	525	
==>r->file(  shift() ) };

### %config is initialized with a [ default_value => return value ] pair
### the default_value is the value of init <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18193	18326	
==>S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14614	14747	
==>S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4609	4706	
==>ompile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<id> := (.*?) \> <?p6ws> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11535	11661	
==>, uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11535	11661	
==>, uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11535	11661	
==>, uniq(), kv()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6271	6376	
==>et_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6271	6376	
==>et_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4219	4326	
==>'@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4219	4326	
==>'@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4219	4326	
==>'@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6653	6752	
==>ocks of text which seem to still be inside a list?

Basically the item body, much like this text is. <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6653	6752	
==>ocks of text which seem to still be inside a list?

Basically the item body, much like this text is. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11300	11420	
==>first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14777	14897	
==>first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14085	14205	
==>first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2640	2752	
==>malize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2640	2752	
==>malize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2987	3099	
==>malize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2184	2319	
==>e => '==',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        nam <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7842	7937	
==>le::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7842	7937	
==>le::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14103	14237	
==>reface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14103	14237	
==>reface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5385	5642	
==>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5385	5642	
==>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	591	714	
==>r $str, -1, 1;
        $str = substr $str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4926	5043	
==>lt to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4926	5043	
==>lt to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4926	5043	
==>lt to go to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	382	473	
==>(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringif <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	382	473	
==>(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringif <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20817	20906	
==>ule);
    Pugs::Internals::require_use_helper(Bool::True,$module);
}
sub Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5304	5396	
==>e LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The AC <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5304	5396	
==>e LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The AC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1391	1484	
==>ive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1391	1484	
==>ive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1391	1484	
==>ive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is primitiv <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	687	817	
==>(Class $class: IO $fh) {
	my @config;

	my $lineno = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18952	19047	
==>lling anything in the real world accurately, and it
can support a complete SQL emulation layer o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18952	19047	
==>lling anything in the real world accurately, and it
can support a complete SQL emulation layer o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3256	3378	
==>name =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3256	3378	
==>name =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3256	3378	
==>name =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not def <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11316	11440	
==>f ($linkfile =~ /^http/) {
        $output .= "$text <a href='$linkfile'>$whole</a>";
        $links++;
        next;
      } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19429	19525	
==>ad2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19429	19525	
==>ad2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9547	9818	
==>ub { 
                              my $e = shift; 
                              $e->get("$method")->is_nil(); 
                          })
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) cre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	541	634	
==>ew(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	541	634	
==>ew(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3304	3404	
==>arameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3488	3588	
==>arameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @var <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8673	8771	
==>arsing Together

You can also use parse() instead of regex() to set the regex and create
the tree i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1701	1795	
==>multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is teste <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1701	1795	
==>multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is teste <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23226	23314	
==>tifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalParam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3271	3406	
==>b {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3271	3406	
==>b {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3271	3406	
==>b {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3421	3549	
==>d) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3421	3549	
==>d) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3421	3549	
==>d) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4322	4471	
==>erl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4322	4471	
==>erl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4322	4471	
==>erl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	50	159	
==>rl6::Runtime;
use Perl6::Util::SExpParser;

=pod

NOTE:
This is a very basic first attempt at a primitive 
s-e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3578	3672	
==>phic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3578	3672	
==>phic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2101	2211	
==>[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2101	2211	
==>[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2448	2558	
==>[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11174	11327	
==>outine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11174	11327	
==>outine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16768	16881	
==>rned from C<analyze()> contain the following
information:

  passing           true if the whole test is considere <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2545	2722	
==>},    
        clear => sub {
            $x = 0; $y = 0;
        },   
        class => sub { \&Point },        
    };
}

my $p = new Point(5, 6);
is($p->class, \&Point, '... g <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	811	919	
==>ng.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Si <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	811	919	
==>ng.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Si <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17575	17673	
==>brary for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Ne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17575	17673	
==>brary for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Ne <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5417	5566	
==>0; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshn <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5417	5566	
==>0; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshn <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15976	16068	
==>1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13206	13298	
==>outine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _d <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13206	13298	
==>outine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10031	10140	
==>e'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10025	10134	
==>e'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20380	20476	
==>node for stack-type
nodes has been abstracted to the ender() method of the node.

The init() meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21887	21977	
==>SetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21887	21977	
==>SetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21887	21977	
==>SetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4356	4453	
==>Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4356	4453	
==>Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4356	4453	
==>Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::cl <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	327	446	
==>);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	327	446	
==>);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5857	5958	
==>oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whitespacePos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3127	3235	
==>$a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3127	3235	
==>$a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3127	3235	
==>$a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1690	1787	
==>code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1690	1787	
==>code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1403	1528	
==>it { bit->new(1)            }

# methods 

sub do {
    my ($self, $args) = @_;
    $args ||= list->new();
    $self->_bind_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6740	6855	
==>rg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6740	6855	
==>rg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6740	6855	
==>rg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5770	5905	
==>ing in $ghc_root\n";

        if (-d $ghc_root) {
            # Looks like we've found a GHC directory.  Find the latest
            # g <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3436	3577	
==>t in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while (<$if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4604	4691	
==>KAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4604	4691	
==>KAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5194	5281	
==>KAGE__->mk_accessors(qw(name p5type is_optional is_writable is_slurpy container_var name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9315	9445	
==>azy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9315	9445	
==>azy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9315	9445	
==>azy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1767	1877	
==>die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1767	1877	
==>die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1767	1877	
==>die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2343	2487	
==>ther => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2343	2487	
==>ther => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3706	3835	
==>lt = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $type = 'test';

        $tota <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4600	4697	
==>turn "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4600	4697	
==>turn "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4600	4697	
==>turn "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	21	139	
==>se warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	21	139	
==>se warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	21	139	
==>se warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18568	18662	
==>p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18568	18662	
==>p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18568	18662	
==>p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	197	304	
==>de

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{] <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	197	304	
==>de

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{] <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17307	17408	
==>rns a function that takes any param
# that function will return a pair with the first param and the se <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5039	5139	
==>s {
	my $self = shift;
	$self->{param}->free_vars;
}


package type::operator::arrow;
use base qw/typ <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	991	1093	
==>eturns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([ <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	991	1093	
==>eturns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3467	3662	
==>$m = Pugs::Runtime::Match->new( { 
                        bool  => 1,
                        match => '{',
                        tail  => substr( $match, 1 ),
                        capture = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5032	5140	
==>}, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5254	5362	
==>}, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4962	5072	
==>re you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4962	5072	
==>re you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6486	6596	
==>re you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a te <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6207	6309	
==>o_type->set($expected_type);
			return $node;
		} else {
			warn "casting";
			return $self->runtime->c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29973	30070	
==>rom it by key.  Each template hash
key corresponds to the Message Key attribute of a Message objec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29973	30070	
==>rom it by key.  Each template hash
key corresponds to the Message Key attribute of a Message objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	253	375	
==>elf, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.passed'};
            $params{'$.ski <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3363	3468	
==>y is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3363	3468	
==>y is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5676	5828	
==>'prefered' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2729	2830	
==>rl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2729	2830	
==>rl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12832	13005	
==>re |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $resul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12832	13005	
==>re |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $resul <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18130	18226	
==>alANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      <LogicalANDExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6874	7000	
==>e = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6874	7000	
==>e = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6874	7000	
==>e = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	921	1054	
==>) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	921	1054	
==>) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	921	1054	
==>) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value);
}

# Needs PIL2 and MMD to be done without hack <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22195	22296	
==>32 = space
isSpacePerl(C) :- (char_type(C,space) ; C = 11), !. %\v chr(11)

case_insensitive_char_eq(C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18639	18728	
==>ode_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18639	18728	
==>ode_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Nod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10264	10380	
==>[0]'} )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    r <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12149	12241	
==>=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12149	12241	
==>=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3420	3571	
==>ch';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3420	3571	
==>ch';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	780	888	
==>"PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	780	888	
==>"PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	780	888	
==>"PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless gr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6674	6825	
==>index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_inde <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6674	6825	
==>index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_inde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10944	11052	
==>/^\%/;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6534	6650	
==>template module is already loaded.
        # It may have been embedded in a core program file and hence
        # sho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6534	6650	
==>template module is already loaded.
        # It may have been embedded in a core program file and hence
        # sho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10653	10753	
==>nperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both 'prog' an <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13350	13471	
==>> strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13350	13471	
==>> strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1703	1807	
==>de/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Blondie <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9157	9328	
==>rams->{arity},
        name => $params->{name},
    )
}

my $x = 15;
my $prog = AST->new(
    Seq->new(
        map {
            App->new(
                Sym->new('&print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15291	15394	
==>est) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15291	15394	
==>est) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8251	8374	
==>ject ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello fro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8251	8374	
==>ject ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello fro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8251	8374	
==>ject ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello fro <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6386	6482	
==>use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::Fal <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6386	6482	
==>use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::Fal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2784	2898	
==>_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2977	3091	
==>_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0] <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	483	585	
==>lue;
}

sub SessionGet($variable) {
    return %Session{$variable};
}

sub SessionClear() {
    %Sessio <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1415	1581	
==>mp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $archive $Repodir/$file] )             and die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6658	6792	
==>mmar::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Tes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1019	1140	
==>'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . joi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1419	1540	
==>'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . joi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1893	2014	
==>'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22952	23060	
==>n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22952	23060	
==>n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22952	23060	
==>n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8534	8644	
==>a hash recompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    next if (exists $suspec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1866	1973	
==>undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2083	2190	
==>undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2375	2482	
==>rn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2375	2482	
==>rn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2455	2562	
==>rn 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19163	19293	
==>d 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19163	19293	
==>d 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19163	19293	
==>d 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1205	1315	
==>on)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * N <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1205	1315	
==>on)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * N <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1205	1315	
==>on)
# * New method tied()
# * Fixed binding of fetched result
# * Fixed stringification of unboxed values
# * N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4061	4242	
==>@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4061	4242	
==>@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pm <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9002	9128	
==>t we can't rely upon everyone having it.  As such, we have
        # a very special cygwin work-around.  Ugh!


        if (not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7682	7822	
==>ded for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7682	7822	
==>ded for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7682	7822	
==>ded for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4977	5150	
==>== $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4989	5162	
==>== $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25680	25778	
==>chine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25680	25778	
==>chine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23061	23143	
==>Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api::Exc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20804	20999	
==>, 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21083	21278	
==>, 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	43	169	
==>ct;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	43	169	
==>ct;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	43	169	
==>ct;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9711	9851	
==>- should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9711	9851	
==>- should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9711	9851	
==>- should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5502	5663	
==>fy( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5502	5663	
==>fy( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5502	5663	
==>fy( $self->{slice}->fetch( $i ) );
    #warn "SLICE STORE: at ($i) $pos -- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2507	2608	
==>b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2507	2608	
==>b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2507	2608	
==>b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36418	36528	
==>gth head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36418	36528	
==>gth head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36418	36528	
==>gth head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14742	14873	
==>) - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    j <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14742	14873	
==>) - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    j <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2631	2747	
==>in =   traverse_ast ( %pad<"pilMain"> );
        $ret = emit_Main( $global, $main );
    }	
    elsif $tree[0] eq '"P <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	824	982	
==>ocation;
    }
    else {
        $header ~= "Content-type: " ~ $content_type;
        $header ~= "; charset=$charset" if $charset.defined;        
    }
    r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8099	8222	
==>f %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@ar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8099	8222	
==>f %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@ar <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11228	11323	
==>, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most reg <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11286	11381	
==>, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most reg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6191	6299	
==>RULE')->code();

    sub <?p6ws>? <ident> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'t <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4905	5000	
==>utarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This prog <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4905	5000	
==>utarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This prog <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	174	299	
==>eturn &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	138	262	
==>eturn &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	226	350	
==>eturn &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	413	520	
==>ams, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	413	520	
==>ams, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	413	520	
==>ams, Signature
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18944	19120	
==>>{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18944	19120	
==>>{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18944	19120	
==>>{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5696	5794	
==>and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj[" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5696	5794	
==>and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj[" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5696	5794	
==>and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj[" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7634	7771	
==>}

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7634	7771	
==>}

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7634	7771	
==>}

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var prox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5966	6105	
==>{
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5966	6105	
==>{
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5966	6105	
==>{
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1513	1669	
==>my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1513	1669	
==>my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1513	1669	
==>my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15409	15594	
==>r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18886	19071	
==>r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relatio <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14057	14155	
==>e next steps:

  Get per-package hooks working.

Notes:

  http://perl.plover.com/Rx/paper/

  Some <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2502	2635	
==>e         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2502	2635	
==>e         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3616	3726	
==>h;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3616	3726	
==>h;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3616	3726	
==>h;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5375	5564	
==>alue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8852	9041	
==>alue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7872	8061	
==>alue.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14459	14577	
==>);
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'inst <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14459	14577	
==>);
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'inst <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14459	14577	
==>);
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7778	7878	
==>main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7778	7878	
==>main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7778	7878	
==>main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10298	10432	
==>n a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10298	10432	
==>n a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10298	10432	
==>n a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].i <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6192	6304	
==>$self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.st <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	171	283	
==>6 nicht mehr
my $welt = Welt.new();  	# (fast) wie in Perl 5
my $welt = new Welt();  	# wie in Perl 5
my Welt $we <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6192	6304	
==>$self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	60	166	
==>oo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	60	166	
==>oo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	60	166	
==>oo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why not simply use * <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15905	16040	
==>s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2623	2750	
==>on to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2840	2967	
==>on to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-c <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4406	4524	
==>ramContext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14471	14563	
==>tine is exported by default.

=item encode_entities_numeric( $string )

=item encode_entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14471	14563	
==>tine is exported by default.

=item encode_entities_numeric( $string )

=item encode_entities <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3827	3973	
==>d = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3815	3961	
==>d = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        i <==
3	/Users/nnunley/pugs/util/munge_haddock.pl	87	189	
==>ing the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17775	18005	
==>'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41044	41270	
==>' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25972	26074	
==>sands, and only if
the parser object is the first value in C<@_>.>  I made sure of this in
my code; you <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4017	4219	
==>} )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7494	7696	
==>} )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18295	18386	
==>E1).
rm(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1739	1889	
==>n";
    print Dump( $deps );
    print "\n\nTo:\n";
    print join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $d <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	656	778	
==>ker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemak <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	557	679	
==>ker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemak <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4981	5087	
==>ill in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4981	5087	
==>ill in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20459	20675	
==>->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20459	20675	
==>->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20459	20675	
==>->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4153	4250	
==>e to it so that you can refer to it
    #   > inside, but that name is not visible to bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4153	4250	
==>e to it so that you can refer to it
    #   > inside, but that name is not visible to bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4153	4250	
==>e to it so that you can refer to it
    #   > inside, but that name is not visible to bin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2611	2727	
==>$run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan because o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	376	482	
==>$run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	376	482	
==>$run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3712	3827	
==>unexpected argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo if re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21849	21943	
==>e
main program, Locale::KeyedText can be given input that says what resource
files it should us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21849	21943	
==>e
main program, Locale::KeyedText can be given input that says what resource
files it should us <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13186	13280	
==>? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $nu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6661	6755	
==>? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $nu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35676	35769	
==>method is a generic binary relational operator that takes a single
Relation::Example in its C< <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	415	580	
==>tr;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	415	580	
==>tr;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request <==
3	/Users/nnunley/pugs/util/package-osx.pl	7766	7863	
==>ck.3pm
        /usr/local/man/man3/Perl6::Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2075	2166	
==>->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2075	2166	
==>->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2075	2166	
==>->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	187	296	
==>y be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	187	296	
==>y be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	187	296	
==>y be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11288	11418	
==>$this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11288	11418	
==>$this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11288	11418	
==>$this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3475	3601	
==>>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('toSt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2930	3052	
==>>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>(' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15790	15907	
==>$self->{lone_not_line} = $self->{line};
        }

        return $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bail_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1902	2004	
==>rray')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1902	2004	
==>rray')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1902	2004	
==>rray')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5235	5341	
==>ve).  This lets you to
do anything you like with each object, but is (at least nominally)
intended to allow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5235	5341	
==>ve).  This lets you to
do anything you like with each object, but is (at least nominally)
intended to allow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5235	5341	
==>ve).  This lets you to
do anything you like with each object, but is (at least nominally)
intended to allow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6422	6633	
==>s.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation::Example {

    if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3979	4171	
==>s.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7456	7648	
==>s.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2193	2313	
==>~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $mess <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	190	298	
==>~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $mess <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	190	298	
==>~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3396	3496	
==>t) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3396	3496	
==>t) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3396	3496	
==>t) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5488	5602	
==>le (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5488	5602	
==>le (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5488	5602	
==>le (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16393	16531	
==>~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16393	16531	
==>~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16393	16531	
==>~ /^_/) {           
            confess "Private Method ($label) not found for current class ($::CLASS)"
                unless $::CLASS-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2749	2853	
==>ray to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2749	2853	
==>ray to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2749	2853	
==>ray to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef,$b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	333	463	
==>{pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	333	463	
==>{pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	333	463	
==>{pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an at <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13222	13317	
==>is thus not very portable to broken (no compiler) microsoft systems.

  The implementation reach <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1469	1561	
==>to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms ar <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1469	1561	
==>to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5599	5709	
==>m_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5599	5709	
==>m_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5599	5709	
==>m_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2145	2335	
==>erion  @by
                              ;               *@values
                             --> List )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort( SortCriterion  $by = &i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9342	9437	
==>al {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($st <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9342	9437	
==>al {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	826	940	
==>2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative()) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	826	940	
==>2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative()) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	826	940	
==>2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative()) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9385	9517	
==>if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $self = shift;';
        # method clear {
        #warn "meth <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3443	3557	
==>});

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3443	3557	
==>});

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16602	16702	
==>- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argume <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16602	16702	
==>- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5386	5491	
==>";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5386	5491	
==>";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5386	5491	
==>";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9382	9482	
==>:roles is rw;  # makes the roles mutator/accessor

    # -------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9382	9482	
==>:roles is rw;  # makes the roles mutator/accessor

    # -------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9382	9482	
==>:roles is rw;  # makes the roles mutator/accessor

    # -------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1338	1438	
==>!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1338	1438	
==>!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1338	1438	
==>!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30804	30907	
==>following the transformation have been eliminated. 
Trivial cases are where C<$transformer> returns eith <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35355	35457	
==>following the transformation have been eliminated.
Trivial cases are where C<$transformer> returns eith <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34546	34648	
==>following the transformation have been eliminated.
Trivial cases are where C<$transformer> returns eith <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4526	4634	
==>{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4526	4634	
==>{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4526	4634	
==>{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	292	455	
==>he value 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9105	9209	
==>might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9105	9209	
==>might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find th <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16975	17113	
==>xit code of the test run, if from a file
  wait              the wait code of the test run, if from a file

  max               total tests <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11244	11371	
==>array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11244	11371	
==>array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11244	11371	
==>array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Per <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13817	13920	
==>ion:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13817	13920	
==>ion:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2723	2846	
==>3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2723	2846	
==>3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3697	3799	
==>em C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3697	3799	
==>em C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5894	5996	
==>em C<$number>   

This is the test number. 

=item C<$passed = 1>

This parameter defaults to true, and <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	193	313	
==>int "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix add: @{[ %opt ]} \n";

    Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2182	2299	
==>TP::Status::status_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $statu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2182	2299	
==>TP::Status::status_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $statu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11174	11292	
==>n" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1644	1750	
==>n" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1644	1750	
==>n" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	157	265	
==>returns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6916	7016	
==>ore the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher>.  T <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6916	7016	
==>ore the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher>.  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6597	6689	
==>aal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Than <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6597	6689	
==>aal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Than <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6597	6689	
==>aal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Than <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6604	6721	
==>) {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6604	6721	
==>) {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6604	6721	
==>) {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($orde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6916	7038	
==>Time() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6916	7038	
==>Time() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6916	7038	
==>Time() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { doc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14991	15090	
==>widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18468	18567	
==>widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17884	17983	
==>widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6462	6567	
==>nyof_char => chr(hex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), @he <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15239	15340	
==>ty-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18716	18817	
==>ty-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3310	3429	
==>rrent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3310	3429	
==>rrent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3310	3429	
==>rrent_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13373	13474	
==>return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13373	13474	
==>return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13373	13474	
==>return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21165	21287	
==>or> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB redu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21165	21287	
==>or> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB redu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21165	21287	
==>or> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB redu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28053	28234	
==>= Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28053	28234	
==>= Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28053	28234	
==>= Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5835	5939	
==>bName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// De <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5835	5939	
==>bName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// De <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5835	5939	
==>bName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// De <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	771	903	
==>\$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	771	903	
==>\$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	771	903	
==>\$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23520	23695	
==>elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23520	23695	
==>elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23520	23695	
==>elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3614	3752	
==>a('closure')) {
            my $ref = reference->new($val);            
            $closure->do(list->new($ref));
            $val = $ref- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4525	4640	
==>to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4525	4640	
==>to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14417	14526	
==>or 'skip' (if any)
  reason        why is it todo or skip? (if any)

It will also catch lone 'not' lines, note <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8495	8595	
==>== 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8495	8595	
==>== 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	259	363	
==>opy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	259	363	
==>opy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1382	1481	
==>an encapsulation of a single value and a type.

C<Val> is a type of unit because it encloses one val <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	145	265	
==>)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub matc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2255	2352	
==>}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2255	2352	
==>}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3201	3307	
==>ssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3201	3307	
==>ssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3201	3307	
==>ssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2909	3104	
==>ef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shift;
                my $size = $idx + 1;
                if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14332	14466	
==>r.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic fo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14332	14466	
==>r.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic fo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	500	608	
==>r Blondie runtimes

=head1 SYNOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelude is essentiall <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3465	3558	
==>Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3465	3558	
==>Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	332	433	
==>referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() }, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	332	433	
==>referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() }, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	332	433	
==>referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() }, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp3.pl	32	140	
==>Perl 6
sub hallo {
	"Hallo, @_[0]!" # $_ würde aber auch gehen!
}

say "Otto sagt: &hallo('Hund')"; # Funkti <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24536	24628	
==>e GNU General Public License (GPL) as published by the Free
Software Foundation (L<http://www <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24536	24628	
==>e GNU General Public License (GPL) as published by the Free
Software Foundation (L<http://www <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3769	3895	
==>r %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3769	3895	
==>r %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3769	3895	
==>r %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1406	1526	
==>ts of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{ed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1406	1526	
==>ts of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{ed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1406	1526	
==>ts of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{ed <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1695	1829	
==>line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @exp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1695	1829	
==>line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1775	1909	
==>line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3101	3224	
==>})')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3101	3224	
==>})')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3101	3224	
==>})')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13874	14016	
==>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13874	14016	
==>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13874	14016	
==>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4494	4617	
==>ext->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of someth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4494	4617	
==>ext->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of someth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4494	4617	
==>ext->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of someth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7606	7710	
==>hods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7606	7710	
==>hods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7606	7710	
==>hods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	683	804	
==>pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	683	804	
==>pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	683	804	
==>pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %mo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13194	13302	
==>ing non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16671	16779	
==>ing non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16033	16141	
==>ing non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sourc <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8476	8628	
==>ne-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      padding:          10p <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1234	1328	
==>ead1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIG <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1234	1328	
==>ead1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIG <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11112	11237	
==>{
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishstr( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11112	11237	
==>{
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishstr( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1490	1670	
==>e, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4967	5147	
==>e, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3897	4077	
==>e, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = se <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3377	3489	
==>cense specified, setting license = 'unknown'\n"
      unless $values{license};

    $values{license}           || <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23430	23525	
==>TIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23430	23525	
==>TIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Roset <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12150	12246	
==>tly on checks with ref() since we do not yet have
object support. Once object support is created, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12208	12304	
==>tly on checks with ref() since we do not yet have
object support. Once object support is created, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2294	2450	
==>y $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2294	2450	
==>y $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2294	2450	
==>y $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1433	1608	
==>3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $val <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1433	1608	
==>3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2509	2731	
==>= { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2816	3024	
==>= { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2816	3024	
==>= { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3246	3383	
==>+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3439	3576	
==>+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	819	934	
==>Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	819	934	
==>Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	819	934	
==>Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autod <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22668	22778	
==>local pmc exp
    mname = self["mname"]
    value = self["value"]
    if mname == ":sigspace" goto words
    if <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10865	10973	
==>ot.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

= <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10865	10973	
==>ot.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

= <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3889	4039	
==>[tar -f $my_tmp_dir/$data -C ] . 
                        $conf->compile_dir . q[ -xz] );

            ### preinst hook
            my $preinst = $meta <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4054	4188	
==>./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4054	4188	
==>./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4012	4134	
==>->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4012	4134	
==>->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a bool <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6756	6867	
==>',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'is <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6756	6867	
==>',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'is <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3655	3766	
==>',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14249	14343	
==>Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14249	14343	
==>Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14249	14343	
==>Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1426	1540	
==>LE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $f <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1426	1540	
==>LE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $f <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2880	2993	
==>LE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	472	569	
==>BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	472	569	
==>BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	472	569	
==>BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2215	2322	
==>am<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2215	2322	
==>am<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $de <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	675	767	
==>ckend::Perl::Builtins->find($node->digest || return);
}

sub cast_node_type {
	my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	348	451	
==>SIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	348	451	
==>SIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1508	1636	
==>difiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1508	1636	
==>difiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1508	1636	
==>difiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6016	6106	
==>uilder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6016	6106	
==>uilder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8213	8303	
==>uilder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	73	175	
==>ly* for run-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Search <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	73	175	
==>ly* for run-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Search <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	73	175	
==>ly* for run-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Search <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	366	481	
==>lue"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	366	481	
==>lue"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27950	28048	
==>lled
with a true argument, and C<FLAG_s> would be called with a false one.

If the flag handler ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2749	2854	
==>ang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2749	2854	
==>ang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2749	2854	
==>ang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2589	2700	
==>s), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2589	2700	
==>s), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2589	2700	
==>s), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25215	25393	
==>elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25215	25393	
==>elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25215	25393	
==>elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21037	21136	
==>t of named attributes; all tuples in a Relation are of the same
degree, and the attribute names of e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25589	25688	
==>t of named attributes; all tuples in a Relation are of the same
degree, and the attribute names of e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2119	2232	
==>UND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDAT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2119	2232	
==>UND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDAT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2983	3095	
==>est - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think y <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2983	3095	
==>est - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think y <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2983	3095	
==>est - @a[1] := $x

# TODO - tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think y <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1527	1626	
==>des? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_no <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1527	1626	
==>des? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	125	238	
==>elf->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	125	238	
==>elf->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	125	238	
==>elf->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1042	1163	
==>os = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1042	1163	
==>os = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7214	7357	
==>w_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' tabl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7214	7357	
==>w_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' tabl <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14751	14865	
==>ot/splashscreen.txt
GRUB

for(
  [$splashscreen => "$cdroot/boot/splashscreen.txt"],
  [$initrd_gz    => "$cdroot/b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5039	5141	
==>ent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5039	5141	
==>ent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2436	2535	
==>.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2436	2535	
==>.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15612	15725	
==>all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15612	15725	
==>all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	453	581	
==>ty => 'infix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	812	914	
==>with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <bloc <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	812	914	
==>with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <bloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2207	2291	
==>_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2207	2291	
==>_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2207	2291	
==>_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_po <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	959	1115	
==>ER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	959	1115	
==>ER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $v <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1063	1164	
==>nerate html files for the perl6 design docs (faster)
    --output_dir    Output Directory to put the h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3892	4000	
==>ity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  whi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3892	4000	
==>ity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  whi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3892	4000	
==>ity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  whi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	498	616	
==>''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	498	616	
==>''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1311	1425	
==>ow this help

  Perl6 Documentation:
    You will need the Synopses checked out; try

    cd ..
    svn co $_PERL6_ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3158	3318	
==>er 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # De <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3158	3318	
==>er 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # De <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7352	7503	
==>);
    my $mask    = -d $file ? 0100 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        erro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3344	3440	
==>s, and then telling this module to compare the received
output to the expected output.

=head1 EX <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3344	3440	
==>s, and then telling this module to compare the received
output to the expected output.

=head1 EX <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3424	3520	
==>s, and then telling this module to compare the received
output to the expected output.

=head1 EX <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2505	2643	
==>rn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for my $stage (reverse $self->_stages) {
	last if defined $self->{$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2214	2318	
==>{

    # External packages used by the Rosetta::Interface::Command class, that do export symbols:
    # ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2214	2318	
==>{

    # External packages used by the Rosetta::Interface::Command class, that do export symbols:
    # ( <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	454	557	
==>FA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	454	557	
==>FA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	461	558	
==>}

sub lib_paths {
	warn "lib_paths has been changed to cc_lib_paths due to confusion between Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7155	7249	
==>.'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7155	7249	
==>.'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7155	7249	
==>.'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5351	5479	
==>" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5351	5479	
==>" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5351	5479	
==>" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3478	3583	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3478	3583	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	25	129	
==>shed sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_hel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	25	129	
==>shed sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_hel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	25	129	
==>shed sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_hel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8993	9101	
==>ill need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8993	9101	
==>ill need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8993	9101	
==>ill need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ / <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3721	3904	
==>$self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $control  = $conf->arc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1087	1184	
==>o 
serious insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1087	1184	
==>o 
serious insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7983	8128	
==>r.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (oth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7983	8128	
==>r.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (oth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7983	8128	
==>r.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (oth <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5376	5491	
==>' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5376	5491	
==>' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2656	2761	
==>>orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7461	7593	
==>ode)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7461	7593	
==>ode)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7461	7593	
==>ode)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7289	7462	
==>$a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7289	7462	
==>$a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7289	7462	
==>$a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5189	5296	
==>fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5189	5296	
==>fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5189	5296	
==>fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6231	6337	
==>s_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6231	6337	
==>s_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	135	251	
==>-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	135	251	
==>-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	135	251	
==>-0.0.1-cpan:FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1715	1830	
==>f($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1715	1830	
==>f($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1715	1830	
==>f($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 { <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8924	9038	
==>to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOT <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8924	9038	
==>to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOT <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4288	4375	
==>7135266249775724709369995957496696762772407663;
    # http://www.research.att.com/~njas/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7502	7610	
==>d" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running u <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7560	7668	
==>d" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8034	8213	
==>Str $mapping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10116	10237	
==>tch;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10110	10231	
==>tch;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2801	2918	
==>er;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2801	2918	
==>er;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2881	2998	
==>er;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello' );
  $Test. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	166	314	
==>unction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	166	314	
==>unction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	166	314	
==>unction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.things' ],
                # type - unbox <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5935	6060	
==>tch = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'defi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5935	6060	
==>tch = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'defi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7640	7786	
==>e_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7640	7786	
==>e_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13918	14026	
==>o try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17395	17503	
==>o try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16775	16883	
==>o try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    if (+@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1222	1322	
==>hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1222	1322	
==>hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1222	1322	
==>hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6602	6761	
==>dd_method = method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              sy <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1108	1219	
==>n $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1108	1219	
==>n $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1115	1229	
==>tely extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1115	1229	
==>tely extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1115	1229	
==>tely extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finall <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16973	17065	
==>o document a certain localization methodology
in an easily accessable manner, such that would <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16973	17065	
==>o document a certain localization methodology
in an easily accessable manner, such that would <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1182	1270	
==>ULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1402	1490	
==>ULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>? <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2131	2226	
==>>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Fa <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2131	2226	
==>>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7524	7682	
==>& iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7524	7682	
==>& iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7524	7682	
==>& iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy need <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7288	7380	
==>L2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7288	7380	
==>L2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7288	7380	
==>L2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idxs
) is pri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11632	11744	
==>elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11632	11744	
==>elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	76	173	
==>ps.
# Hacked up from mini_harness.plx in the Test::Harness dist.
# (And some stuff stolen from pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1641	1742	
==>}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1641	1742	
==>}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1641	1742	
==>}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4703	4817	
==>>parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4703	4817	
==>>parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	417	530	
==>L::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	417	530	
==>L::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	417	530	
==>L::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1006	1101	
==>e currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1006	1101	
==>e currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1006	1101	
==>e currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a an <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1399	1509	
==>h ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdir $args->{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15809	15904	
==>ails than joe public would.

Alternately, sometimes a program will raise a condition or error th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15809	15904	
==>ails than joe public would.

Alternately, sometimes a program will raise a condition or error th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2630	2728	
==>ix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2630	2728	
==>ix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2630	2728	
==>ix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3274	3379	
==>$class;
}

sub params  { (shift)->{params}  }
sub returns { (shift)->{returns} }

sub equal_to {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18084	18185	
==>s blocks; so that by the
time a compiler is called it only gets the source code that it should be
look <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18084	18185	
==>s blocks; so that by the
time a compiler is called it only gets the source code that it should be
look <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1516	1626	
==>fix)] ];


### meta dirs/files
### These are dependant on the installation, so they are 
### marked privata.. t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	155	248	
==>acktracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successful <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	155	248	
==>acktracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successful <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2124	2238	
==>= ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2124	2238	
==>= ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2204	2318	
==>= ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2605	2710	
==>mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @compo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2605	2710	
==>mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @compo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2605	2710	
==>mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @compo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12757	12906	
==>s
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12757	12906	
==>s
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12757	12906	
==>s
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1992	2155	
==>= $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        las <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1992	2155	
==>= $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        las <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1992	2155	
==>= $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        las <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15813	15918	
==>ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15813	15918	
==>ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15813	15918	
==>ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {... <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1525	1683	
==>$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1473	1625	
==>$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( de <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1507	1650	
==>->{dir} ) {
        error( q[Could not chdir into '$args->{dir}'] );
        return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4410	4549	
==>',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4410	4549	
==>',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6682	6793	
==>nd $2 >= 4);

    if ($ghc_lt_640 or ($ghc_version =~ /^6.4(?:.0)?$/)) {
        die << ".";
*** Cannot find GHC <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7398	7495	
==>a until they have an entire block, then cipher 
the block and return the new ciphertext (or plaint <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7398	7495	
==>a until they have an entire block, then cipher 
the block and return the new ciphertext (or plaint <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	100	200	
==>l portable.

my ($in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$name =~ s/\..*$//;
my @pat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11394	11486	
==>return $?SELF!_product( $other );
}

multi method product (Relation *@others) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14871	14963	
==>return $?SELF!_product( $other );
}

multi method product (Relation *@others) returns Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7116	7243	
==>ng to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7116	7243	
==>ng to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7116	7243	
==>ng to an array will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19722	19826	
==>)->compile;
    print STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13392	13485	
==>o "Locale::KeyedText" in
your code; instead refer to other above-named packages in this file.> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13392	13485	
==>o "Locale::KeyedText" in
your code; instead refer to other above-named packages in this file.> <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	265	365	
==>se Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @developers;
my %devs_seen;

print STDE <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26138	26235	
==>can have depend on the Message Key
it is being used with (others are ignored).  Each variable name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26138	26235	
==>can have depend on the Message Key
it is being used with (others are ignored).  Each variable name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	862	962	
==>st.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	862	962	
==>st.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	862	962	
==>st.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8041	8165	
==>lling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8041	8165	
==>lling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8041	8165	
==>lling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4701	4798	
==>p or TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4701	4798	
==>p or TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6898	6995	
==>p or TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

= <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10638	10734	
==>everal fields with a single invocation.

The $value argument may be a plain string or a reference <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10638	10734	
==>everal fields with a single invocation.

The $value argument may be a plain string or a reference <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2408	2504	
==>item B<divide (x as num) returns num>

=item B<increment () returns num>

=item B<decrement () re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3908	4065	
==>me) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3908	4065	
==>me) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./head <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12857	12946	
==>)" id="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a style="text-decoration <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	277	383	
==>::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	277	383	
==>::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	277	383	
==>::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseud <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17921	18081	
==>,
	param => $pair,
);

# the polymorphic fst function takes any pair and returns it's first thingy
# (a x b) -> a
# applied to $pair (int x str) this should be i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2265	2381	
==>plice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fe <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2265	2381	
==>plice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	539	730	
==>atch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	539	730	
==>atch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	539	730	
==>atch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1236	1366	
==>???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1236	1366	
==>???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1236	1366	
==>???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8686	8846	
==>*, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8686	8846	
==>*, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8686	8846	
==>*, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7946	8059	
==>o SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7946	8059	
==>o SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7946	8059	
==>o SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6305	6417	
==>() if !($X::pos == (length($X::str)));
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\z';
    return <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8589	8694	
==>$Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $T <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8647	8752	
==>$Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1710	1807	
==>args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1710	1807	
==>args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1710	1807	
==>args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5037	5148	
==>encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    m <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5037	5148	
==>encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6438	6579	
==>ading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatib <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6438	6579	
==>ading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatib <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8581	8680	
==>my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't unify $x->{symbol} wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1344	1446	
==>package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1344	1446	
==>package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1344	1446	
==>package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5698	5818	
==>t' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5698	5818	
==>t' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5698	5818	
==>t' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4604	4768	
==>_to -> @replace_list -> @list
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replace <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13223	13313	
==>d by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13223	13313	
==>d by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1469	1569	
==>$i;
		package %s::inline_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http://www.hpl.h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35961	36054	
==>array ref having all combinations of this object's
Set Names and Member Names elements, concat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35961	36054	
==>array ref having all combinations of this object's
Set Names and Member Names elements, concat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	577	685	
==>tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	577	685	
==>tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	577	685	
==>tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->h <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1092	1198	
==>p(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(1 <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1092	1198	
==>p(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6902	6993	
==>t' => sub { 
   '&Object::another_singleton_test_on_object'
});

is($Object->another_singlet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9757	9895	
==>eturn $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9757	9895	
==>eturn $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9757	9895	
==>eturn $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2363	2487	
==>ge \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lan <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2646	2747	
==>1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @interse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2646	2747	
==>1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @interse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3620	3726	
==>g->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3620	3726	
==>g->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4210	4316	
==>g->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15097	15249	
==>ed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19272	19424	
==>ed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3199	3329	
==>foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3199	3329	
==>foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3199	3329	
==>foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->na <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2650	2758	
==>eceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2650	2758	
==>eceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2730	2838	
==>eceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	396	523	
==>mpiling" : "skipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1488	1598	
==>span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $clas <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1488	1598	
==>span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6329	6429	
==>ined in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6114	6213	
==>ined in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16956	17046	
==>x),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(ques_ng(Re),F0,F1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11994	12099	
==>te' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11994	12099	
==>te' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11994	12099	
==>te' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20280	20372	
==>y-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20280	20372	
==>y-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header fie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16036	16149	
==>Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16036	16149	
==>Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16036	16149	
==>Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21477	21608	
==>h.yml";
      if -e $yml && prefix_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::compil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4006	4106	
==>o) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4006	4106	
==>o) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3529	3640	
==>f $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can prov <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3529	3640	
==>f $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can prov <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6658	6762	
==>urns Str {
    join(" ",@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@array <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9422	9532	
==>_code = Runtime::Perl5::RuleOps::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dum <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16619	16703	
==>_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(Re1,F0,F1,B0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	441	564	
==>lars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	441	564	
==>lars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	441	564	
==>lars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a trait is applied.
#
# 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9220	9369	
==>->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9220	9369	
==>->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9220	9369	
==>->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->v <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5119	5259	
==>x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_pr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5119	5259	
==>x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_pr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20310	20405	
==>s/[\@\%]/\$/g;
	my $code = "# macrop5 $name\n sub{my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1922	2025	
==>(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1922	2025	
==>(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1922	2025	
==>(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	336	432	
==><Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file"). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	336	432	
==><Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file"). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	336	432	
==><Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file"). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34430	34544	
==>et;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34430	34544	
==>et;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34430	34544	
==>et;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $of <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16842	16957	
==>g              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, but only affects <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4961	5057	
==>rol or access to the header fields in the requests
sent and responses received, then you should u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4961	5057	
==>rol or access to the header fields in the requests
sent and responses received, then you should u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2387	2487	
==>CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2387	2487	
==>CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2387	2487	
==>CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	863	951	
==>bclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	863	951	
==>bclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<pla <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30921	31018	
==>uple/Mapping or a tuple that is identical to the original, in which case
this method returns the i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35471	35568	
==>uple/Mapping or a tuple that is identical to the original, in which case
this method returns the i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34662	34759	
==>uple/Mapping or a tuple that is identical to the original, in which case
this method returns the i <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	314	412	
==>ses up PIR generation.  To return a value, arrange for
it to be the last evaluated expression.

All <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1462	1550	
==>($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1462	1550	
==>($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3461	3608	
==>y $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3461	3608	
==>y $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3461	3608	
==>y $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	161	263	
==>iven.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	161	263	
==>iven.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ... <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	161	263	
==>iven.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6322	6449	
==>st' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6322	6449	
==>st' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6322	6449	
==>st' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unless $i->is_co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16669	16814	
==>t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20146	20291	
==>t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # Th <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6339	6435	
==>_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6339	6435	
==>_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11772	11868	
==>currence )`

Returns true if the closures that define the recurrences are exactly the same.

This <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11772	11868	
==>currence )`

Returns true if the closures that define the recurrences are exactly the same.

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10134	10269	
==>shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not im <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10134	10269	
==>shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not im <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10134	10269	
==>shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not im <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	207	318	
==>$type) = @_;
    (defined $name && $name =~ /^[\$\@\%\&][\.\:][a-zA-Z0-9_]+$/)
        || confess "bad attribute <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10450	10553	
==>so test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=hea <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10450	10553	
==>so test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=hea <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2574	2689	
==>hod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2574	2689	
==>hod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	50	164	
==>use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    (
		map { stub($_, '$x', '$y') }
        '&infix: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6322	6491	
==>age => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%args) or error(P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7160	7263	
==>ee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7160	7263	
==>ee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}< <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2692	2824	
==>if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2692	2824	
==>if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5203	5371	
==>self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                & <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5203	5371	
==>self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                & <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6583	6724	
==>of Str $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return Relation::Example.new( heading => set(), body => set <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6013	6138	
==>har {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6001	6126	
==>har {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	856	971	
==>(blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	856	971	
==>(blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	856	971	
==>(blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2367	2466	
==>_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <noncapturing_group>
  | <literal> | <i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16397	16492	
==>orum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This progr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16455	16550	
==>orum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This progr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4146	4276	
==>rse =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4146	4276	
==>rse =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self. <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1383	1482	
==>m and ...XXXfill in... };
   subset complex'~$n~' of ValueType where { $^n ~~ Num and ...XXXfill in. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25224	25312	
==>n
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHO <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25224	25312	
==>n
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3967	4086	
==>self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_pars <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3967	4086	
==>self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_pars <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3967	4086	
==>self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_pars <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	759	872	
==>shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	759	872	
==>shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1176	1281	
==>e_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	915	1015	
==>e_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1120	1220	
==>e_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6440	6545	
==>IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6440	6545	
==>IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6440	6545	
==>IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessing a tied objec <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11193	11290	
==>sh());
}

(method new ((opaque $class:) (hash ?%params)) returns opaque
    (((?%params is_nil) an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31458	31571	
==>rn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31458	31571	
==>rn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31458	31571	
==>rn "push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $l <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	481	588	
==>efile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bi <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	481	588	
==>efile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bi <==
3	/Users/nnunley/pugs/util/package-osx.pl	7394	7485	
==>/usr/local/man/man3/Perl6::Spec::Concurrency.3
        /usr/local/man/man3/Perl6::Spec::Conc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5575	5676	
==>gexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22048	22139	
==>meter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22048	22139	
==>meter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4671	4774	
==>elf->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4671	4774	
==>elf->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4671	4774	
==>elf->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESS <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1166	1265	
==>ional(1)
		unless $param->{required};
	    $invocant = $db_param;
	}
	elsif ($param->{named_only}) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24292	24385	
==>sly at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-orie <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24292	24385	
==>sly at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-orie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17328	17427	
==>6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17328	17427	
==>6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17328	17427	
==>6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3305	3415	
==>_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3305	3415	
==>_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3305	3415	
==>_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($la <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5899	6000	
==>e hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perf <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5899	6000	
==>e hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8096	8197	
==>e hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perf <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	274	381	
==>ckage Parser;

# use lib '../Chap6';
use Stream;# :all;

# use base Exporter;
# @EXPORT_OK = qw(parser nothi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5771	5881	
==>ntifier {  # see 7.6
      <!before <ReservedWord>> <IdentifierName>
}
rule IdentifierName {  # see 7.6
      < <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1906	1998	
==>hod get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1906	1998	
==>hod get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3825	3926	
==>quired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3825	3926	
==>quired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4415	4516	
==>quired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2833	2964	
==>_rule        { \:\:\: }
rule commit_alternation { \:\: }
rule commit_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5917	6017	
==>er('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5605	5705	
==>er('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4039	4162	
==>{
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4039	4162	
==>{
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4039	4162	
==>{
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8657	8804	
==>new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8657	8804	
==>new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8657	8804	
==>new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	595	727	
==>b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	595	727	
==>b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	595	727	
==>b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8337	8436	
==>Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8337	8436	
==>Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3812	3910	
==>Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpression, $target, $pos, $length) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13883	13989	
==>rn $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13883	13989	
==>rn $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13883	13989	
==>rn $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2025	2133	
==>y ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2025	2133	
==>y ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2025	2133	
==>y ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4062	4177	
==>hods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4062	4177	
==>hods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4062	4177	
==>hods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12398	12499	
==>:array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12398	12499	
==>:array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12398	12499	
==>:array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2224	2361	
==>e] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2224	2361	
==>e] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2224	2361	
==>e] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2900	3019	
==>urrently at a comparable state as v6.pm.

Although running C<v6-pugs> requires the installation of a lot of Perl 5 modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18204	18296	
==>ion describes the rather complex algorithm that
Module::Compile uses.

First, the source modu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18204	18296	
==>ion describes the rather complex algorithm that
Module::Compile uses.

First, the source modu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9383	9493	
==>'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9383	9493	
==>'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9383	9493	
==>'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8176	8308	
==>{ 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8369	8501	
==>{ 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26016	26117	
==>first value in C<@_>.>  I made sure of this in
my code; you should make sure in yours.

Matching again <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	625	725	
==>t model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	625	725	
==>t model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	625	725	
==>t model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	993	1091	
==>urn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	993	1091	
==>urn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9131	9253	
==>ess @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9131	9253	
==>ess @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9131	9253	
==>ess @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28879	29041	
==>== 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28879	29041	
==>== 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28879	29041	
==>== 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Pe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1637	1759	
==>s {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub Array::reduce ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	472	582	
==>e actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	472	582	
==>e actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	472	582	
==>e actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34093	34189	
==>does not have
an identical header to the invocant relation.  This method has aliases
named C<minu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38643	38739	
==>does not have
an identical header to the invocant relation.  This method has aliases
named C<minu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38104	38200	
==>does not have
an identical header to the invocant relation.  This method has aliases
named C<minu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20426	20521	
==>the
'_' to '-' translation.  There are some application where this is not
appropriate.  Prefixin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20426	20521	
==>the
'_' to '-' translation.  There are some application where this is not
appropriate.  Prefixin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5551	5646	
==>protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5551	5646	
==>protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5551	5646	
==>protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2311	2429	
==>var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.refe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2311	2429	
==>var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.refe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2311	2429	
==>var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.refe <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12003	12098	
==>'... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12061	12156	
==>'... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11434	11546	
==>%*ENV entries, so
        # toss the ones that involve perl_root, the install location
        @inc = grep !/perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4694	4806	
==>g, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4706	4818	
==>g, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3220	3321	
==>alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clo <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3220	3321	
==>alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5412	5531	
==>,$type,@pairs)=@$_;
        my $o = PIL::PIL1CPerl5::NodesInfo::Object->new($name,$rep,$type,\@pairs);
        $node_nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3996	4096	
==>@_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1303	1403	
==>@_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n" <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13831	13956	
==>-f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	657	752	
==>kslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	657	752	
==>kslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3718	3822	
==>se $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3718	3822	
==>se $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3718	3822	
==>se $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7439	7541	
==>ors take a list of match operators, and return a new 

match operator.



A ruleop() function gets as a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7186	7285	
==>ors take a list of match operators, and return a new 
match operator.

A ruleop() function gets as a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31328	31517	
==>h += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31328	31517	
==>h += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31328	31517	
==>h += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	374	476	
==>$func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	374	476	
==>$func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11805	11960	
==>lations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15282	15437	
==>lations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14617	14772	
==>lations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1976	2081	
==>non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1987	2092	
==>non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14116	14244	
==>method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14116	14244	
==>method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14116	14244	
==>method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7919	8034	
==>ile (@tests) {
        $Last_ML_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leade <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4233	4340	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = sp <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4233	4340	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22548	22786	
==>ALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22548	22786	
==>ALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22548	22786	
==>ALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3538	3682	
==>ef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3538	3682	
==>ef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3538	3682	
==>ef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	416	509	
==>an't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	416	509	
==>an't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	416	509	
==>an't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32012	32110	
==>ts in turn, looking at just the set member for
each that corresponds to language A, looking for a m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32012	32110	
==>ts in turn, looking at just the set member for
each that corresponds to language A, looking for a m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3955	4062	
==>Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!chil <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3955	4062	
==>Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!chil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16707	16796	
==>m Regexp::CharClassOps

Implements character class operations like union, intersection, an <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	189	310	
==>ot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	189	310	
==>ot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	77	183	
==>ator
$x := $y; # $x ist nun der selbe Container wie $y

#=Bindungsoperator (statisch)
$x ::= $y; # $x ist n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23295	23387	
==>It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta::Model- <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23295	23387	
==>It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta::Model- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21456	21613	
==>&& defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21456	21613	
==>&& defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21456	21613	
==>&& defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            fo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9433	9533	
==>od
my $str = "axbxc";
my(@returns) = ([1,undef,undef,1,2,1,2],[1,undef,undef,3,4,3,3],[0],[0]);
my($q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2707	2833	
==>eta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2707	2833	
==>eta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2707	2833	
==>eta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of something, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2512	2623	
==>ort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2512	2623	
==>ort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	54	145	
==>preter;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping/;

use strict;
use war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16223	16367	
==>lass here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16223	16367	
==>lass here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16223	16367	
==>lass here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2659	2758	
==>(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2659	2758	
==>(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2659	2758	
==>(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) < <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1255	1359	
==>if ! defined $match; 
  $options = "left" if not $options;
  if ( $relativePrecedence and $relativePreced <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33432	33530	
==>the program or first library should
appear first in the array.  Each Set Name can be any defined an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33432	33530	
==>the program or first library should
appear first in the array.  Each Set Name can be any defined an <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4999	5110	
==>Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4999	5110	
==>Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7340	7433	
==>1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7340	7433	
==>1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7340	7433	
==>1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3137	3247	
==>= @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3137	3247	
==>= @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3137	3247	
==>= @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10551	10656	
==>ted, so it makes abstract 
    # methods which must be implemented
    # --------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10551	10656	
==>ted, so it makes abstract 
    # methods which must be implemented
    # --------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10551	10656	
==>ted, so it makes abstract 
    # methods which must be implemented
    # --------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9777	9893	
==>ate_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9777	9893	
==>ate_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    ret <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2444	2551	
==>we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servern <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2444	2551	
==>we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servern <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5209	5362	
==>( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5197	5350	
==>( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6835	6922	
==>warn Dumper($prog);

	my $dup_finder = Blondie::Backend::C::Emitter::DuplicateFinder->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4683	4874	
==>s
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4683	4874	
==>s
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1305	1399	
==>hift;
    my $foreach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7876	8029	
==>}

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule statemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	88	194	
==>untime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	88	194	
==>untime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&ar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7068	7241	
==>ule_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7068	7241	
==>ule_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15648	15751	
==>item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-readable explanation of the execution of a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21289	21384	
==>e ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21289	21384	
==>e ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21289	21384	
==>e ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1) { p6_from_b($xx0->does( p6_to_s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3251	3351	
==>f is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3309	3409	
==>f is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4243	4344	
==>IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4243	4344	
==>IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4243	4344	
==>IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3277	3391	
==>m (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3277	3391	
==>m (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3277	3391	
==>m (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($va <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3816	3992	
==>ecide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file not found"
    #  say this: "fail            'file not found';"
    
    # ma <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	178	286	
==>X - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	178	286	
==>X - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9821	9932	
==>he
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9821	9932	
==>he
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9821	9932	
==>he
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2420	2529	
==>/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2420	2529	
==>/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13261	13363	
==>ses</span>:<br />
		<span class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class="tests_failed">< <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2718	2811	
==>Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2718	2811	
==>Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1802	1931	
==>1]);
    };


    my($p)=new Parse::Yapp(input => $g);
    $p=$p->Output(classname => 'Test');

        $DEBUG
    and pri <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	499	613	
==>y $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	499	613	
==>y $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4610	4716	
==>f something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4610	4716	
==>f something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4610	4716	
==>f something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1908	2018	
==>method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1908	2018	
==>method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1908	2018	
==>method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1146	1233	
==>)->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Para <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1146	1233	
==>)->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1919	2047	
==>);
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1919	2047	
==>);
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1919	2047	
==>);
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4201	4311	
==>ply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4201	4311	
==>ply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4201	4311	
==>ply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10092	10223	
==>', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10092	10223	
==>', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1959	2063	
==>e that I use the test number for reference, which will
    # blow up in our faces when tests are inserted <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19987	20113	
==>ESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 10 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19987	20113	
==>ESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 10 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19987	20113	
==>ESTROYALL';
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 10 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10286	10384	
==>ignature for this sub is nowhere near finalized; it should
    # support asynch/exclusive/other stu <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5518	5614	
==>)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(12 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5518	5614	
==>)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(12 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7009	7159	
==>me' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7009	7159	
==>me' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7009	7159	
==>me' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@par <==
3	/Users/nnunley/pugs/util/testgraph.pl	1190	1289	
==>.pl  - produce the data for this tool
   util/catalog_tests.pl - produce cross-linkable tests
   uti <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23796	24002	
==>$_ == $last) {
                if ($min == $last) {
                    push @canon, $last;
                } else {
                    push @canon, "$min-$last";
                }
                $min = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14805	14920	
==>te_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FI <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14805	14920	
==>te_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3759	3930	
==>h(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3759	3930	
==>h(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3759	3930	
==>h(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2129	2252	
==>1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_P <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2129	2252	
==>1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8855	8965	
==>ames5,@names6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $default = $op{'paramDefa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2435	2527	
==>.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2435	2527	
==>.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2435	2527	
==>.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9939	10180	
==>')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:meth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6926	7136	
==>')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28239	28334	
==>turns Set of Mapping(Str) of Any>

This method returns this Relation::Example's body.

=item C<s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2142	2247	
==>s_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2142	2247	
==>s_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5056	5164	
==>encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5056	5164	
==>encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5056	5164	
==>encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3040	3150	
==><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3040	3150	
==><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37503	37602	
==>rtion.  Here's the new class for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9347	9456	
==>!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9347	9456	
==>!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9347	9456	
==>!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4826	4981	
==>1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4826	4981	
==>1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4826	4981	
==>1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10559	10688	
==>sa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10559	10688	
==>sa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10559	10688	
==>sa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1459	1562	
==>class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1459	1562	
==>class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1459	1562	
==>class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8385	8490	
==>=>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8385	8490	
==>=>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8385	8490	
==>=>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6395	6502	
==>sion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6395	6502	
==>sion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6395	6502	
==>sion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkPara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2430	2527	
==>{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2430	2527	
==>{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2430	2527	
==>{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6659	6774	
==>he package name.
        if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
            open PKGFILE, "<$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	23	119	
==>r::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	23	115	
==>r::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtim <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3136	3279	
==>'') . $self->family;
  }

  sub family { 'space' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7207	7333	
==>_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_MET <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7207	7333	
==>_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_MET <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2309	2431	
==>leop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2320	2442	
==>leop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	873	972	
==>opied from S29draft.pod 8651.
multi  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2492	2609	
==>@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2492	2609	
==>@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2492	2609	
==>@a[$i+3],@a[$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22043	22146	
==>$namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str) - $max_nam <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16654	16755	
==>e list may have from zero to 2 spans.

The argument can be a Span object, a Recurrence object, or a sc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16654	16755	
==>e list may have from zero to 2 spans.

The argument can be a Span object, a Recurrence object, or a sc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24635	24734	
==>ength of regmust string
 *  [regmlen not used currently]

Confined to regcomp/regexec.

 *
 * Regsta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2161	2259	
==>ds -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSC <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2161	2259	
==>ds -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6812	6918	
==>t '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6812	6918	
==>t '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6812	6918	
==>t '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	284	391	
==>.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	284	391	
==>.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	284	391	
==>.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9225	9388	
==>a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9225	9388	
==>a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9225	9388	
==>a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1818	1937	
==>s_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1818	1937	
==>s_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9223	9332	
==>ise?
	my $v2 = recurse($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2557	2660	
==>'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2557	2660	
==>'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2557	2660	
==>'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  fo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1358	1455	
==>. " is duplicated, and has been alocated $symbol" if defined $symbol;

	my $result = $self->inner_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6627	6718	
==>age|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5793	5889	
==>CLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5793	5889	
==>CLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5793	5889	
==>CLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	177	292	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	177	292	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	177	292	
==>"ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	128	240	
==>:Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	128	240	
==>:Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	128	240	
==>:Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1264	1364	
==>}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1264	1364	
==>}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1264	1364	
==>}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package V <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10726	10867	
==>cessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7067	7208	
==>cessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7916	8057	
==>cessing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8194	8375	
==>$tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8194	8375	
==>$tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8194	8375	
==>$tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3276	3394	
==>$Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expect <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3276	3394	
==>$Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4800	4918	
==>$Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3543	3642	
==>pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3543	3642	
==>pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3543	3642	
==>pVarName){if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5198	5296	
==><todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5198	5296	
==><todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6722	6820	
==><todo returns Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	732	838	
==>return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	732	838	
==>return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	568	662	
==>Clutter:: is a package for macros declared and used locally.
Helpers:: is for more generally us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11530	11640	
==>} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11530	11640	
==>} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11530	11640	
==>} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4629	4754	
==>e pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4629	4754	
==>e pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4629	4754	
==>e pass
    # it back up to our class
    return ::opaque_instance_class($self)->isa($class_name) 
        # however, we need t <==
3	/Users/nnunley/pugs/misc/S29_round.pl	402	518	
==>round .5 up above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_roun <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2555	2762	
==>ntent unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2555	2762	
==>ntent unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14577	14676	
==>ht direction.

  The regexp compiler hook generally gets the pattern _after_ variable
  interpolatio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1355	1523	
==>> sub { # $idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->_exte <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9297	9396	
==>sed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9297	9396	
==>sed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5298	5406	
==>lue;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5298	5406	
==>lue;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5298	5406	
==>lue;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, but I thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11873	12003	
==>);
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11873	12003	
==>);
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11873	12003	
==>);
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14850	14948	
==>e E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/8 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14850	14948	
==>e E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/8 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14850	14948	
==>e E<lt>stevan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15371	15479	
==>..};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15371	15479	
==>..};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15371	15479	
==>..};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27362	27461	
==>has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31914	32013	
==>has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30997	31096	
==>has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10415	10598	
==>o\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10415	10598	
==>o\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10415	10598	
==>o\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1163	1266	
==>05-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1163	1266	
==>05-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1163	1266	
==>05-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8560	8683	
==>n
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err_noc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2770	2865	
==>led before any other methods, as it initialises the list of
parameters.

=item C<$q.params()>

R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2770	2865	
==>led before any other methods, as it initialises the list of
parameters.

=item C<$q.params()>

R <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1585	1686	
==>);
	(void)sprintf(target, "%s%s", x, y);
	return target;
}

PV type_convert_IV_PV (IV x) {
	char * tar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21087	21207	
==>kg;".<<'    END';
    #  no strict;defined($$mn)?$$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3889	4001	
==>$x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3901	4013	
==>$x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	709	819	
==>tion ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expec <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	709	819	
==>tion ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18905	18999	
==>pending.>

=head1 DESCRIPTION

This class implements a Relation data type that corresponds to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	343	440	
==>JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	343	440	
==>JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	343	440	
==>JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_re <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10150	10251	
==>is is intended to eventually replace Prim.hs's open (or be replaced by
    # it, since that would prob <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16812	16906	
==>to its own executable, in practice one would
normally just write some components of their appli <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16812	16906	
==>to its own executable, in practice one would
normally just write some components of their appli <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26466	26561	
==>uplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31018	31113	
==>uplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30020	30115	
==>uplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs> is e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18517	18620	
==>"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp::Concat" ]

.sub "p6analyze" :method
    .param pm <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	81	169	
==>6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunatel <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	81	169	
==>6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunatel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16767	16919	
==>Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16767	16919	
==>Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16767	16919	
==>Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	942	1062	
==>de::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "use base 'P <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	613	704	
==>perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
sp <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	613	704	
==>perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17967	18059	
==>Module::Compile attempts to make source filtering a sane process, by
parsing up your module's <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17967	18059	
==>Module::Compile attempts to make source filtering a sane process, by
parsing up your module's <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2129	2262	
==>ode) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1053	1173	
==>t; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1053	1173	
==>t; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10186	10304	
==>e("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a sli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10186	10304	
==>e("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a sli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10186	10304	
==>e("Modification of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a sli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4173	4281	
==>_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4173	4281	
==>_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4173	4281	
==>_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	114	241	
==>ymbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	114	241	
==>ymbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	498	600	
==>ON . " started.\n";

setup_compression() if $compression_wanted;

my %request = (upload => 1, version = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7442	7567	
==>ode') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7442	7567	
==>ode') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7442	7567	
==>ode') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	391	507	
==>::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5498	5595	
==>rn $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5498	5595	
==>rn $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9506	9629	
==>\n/; }
    my $tof = sub { open(F,">$_[0]") or die; print F $_[1];close F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4528	4651	
==>eturn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4516	4639	
==>eturn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	169	280	
==>tub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => Thunk(
		Seq(
			(map { Param($_) } @params) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23898	24047	
==>ethod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23898	24047	
==>ethod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23898	24047	
==>ethod eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8908	9054	
==>stant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9101	9247	
==>stant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	46	142	
==>e Perl6::MetaModel;

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Test' => class 'Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20426	20529	
==>:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20426	20529	
==>:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20426	20529	
==>:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5919	6040	
==>pe";
    my $current = $self;
    while ($current) {
        if (exists $current->{env}->{$name}) {
            $current-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15480	15575	
==>, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15538	15633	
==>, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3015	3159	
==>ext;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3015	3159	
==>ext;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3015	3159	
==>ext;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3115	3231	
==>no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3115	3231	
==>no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3115	3231	
==>no longer the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1663	1773	
==>in';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure ou <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1663	1773	
==>in';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1113	1212	
==>hen your object belongs to a
package that is too close to the main namespace for your tastes, and
yo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1113	1212	
==>hen your object belongs to a
package that is too close to the main namespace for your tastes, and
yo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1113	1212	
==>hen your object belongs to a
package that is too close to the main namespace for your tastes, and
yo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16359	16582	
==>)
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16638	16861	
==>)
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21562	21710	
==>::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21562	21710	
==>::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21562	21710	
==>::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11551	11654	
==>f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11551	11654	
==>f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11551	11654	
==>f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12797	12883	
==>ion);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12797	12883	
==>ion);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12797	12883	
==>ion);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7252	7362	
==>> 'Z') if $cc;
    return $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_handler( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8689	8789	
==>be just overload bool to false ;)

(I mean, seriously, because that's what p6 does)

and also you can <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8400	8498	
==>be just overload bool to false ;)
(I mean, seriously, because that's what p6 does)
and also you can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3630	3727	
==>entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3630	3727	
==>entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3630	3727	
==>entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalue_fix[0]ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3354	3477	
==>_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3354	3477	
==>_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3354	3477	
==>_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	317	479	
==>om_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	317	479	
==>om_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	317	479	
==>om_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5512	5614	
==>|| die;
  $r = mk_Match_appender($r,$name);
  push(@operators,[$r,$op]);
  $r;
}

# so Regexp::Parser d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29978	30075	
==>t by key.  Each template hash
key corresponds to the Message Key attribute of a Message object, an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29978	30075	
==>t by key.  Each template hash
key corresponds to the Message Key attribute of a Message object, an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9189	9325	
==>>= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9189	9325	
==>>= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9189	9325	
==>>= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3861	3968	
==>l to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3861	3968	
==>l to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5385	5492	
==>l to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2116	2230	
==>ching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2094	2208	
==>ching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	594	696	
==>sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_bit { shift }

# convers <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3353	3480	
==>}

sub perl5 {
    my $rx = qr(^($_[0]))s;
    no warnings qw( uninitialized );
    return sub {
        my $bool = substr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1511	1620	
==>ow_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_va <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1511	1620	
==>ow_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2620	2730	
==>") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2620	2730	
==>") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2620	2730	
==>") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3746	3883	
==>s rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3746	3883	
==>s rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3746	3883	
==>s rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1039	1166	
==>Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1039	1166	
==>Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1039	1166	
==>Perl6::Value::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	328	458	
==>int "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	328	458	
==>int "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	328	458	
==>int "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37462	37580	
==>"FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37462	37580	
==>"FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37462	37580	
==>"FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	199	330	
==>umper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	86	210	
==>umper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	86	210	
==>umper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16370	16469	
==>.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16370	16469	
==>.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1528	1728	
==>t can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5005	5205	
==>t can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3935	4135	
==>t can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6937	7044	
==>sion');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6937	7044	
==>sion');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6937	7044	
==>sion');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shift;
    ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6088	6190	
==>of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6088	6190	
==>of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6088	6190	
==>of $myobj. All it needs to do to signal
this is to return the string set in advance with the prune meth <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	639	738	
==>ntersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	639	738	
==>ntersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2142	2254	
==>ifference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2142	2254	
==>ifference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1718	1815	
==>te engine is invoked.

Currently, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This is a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16517	16612	
==>f Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `differen <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16517	16612	
==>f Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `differen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36869	36991	
==>( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36869	36991	
==>( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36869	36991	
==>( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used in nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5069	5191	
==>TI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5069	5191	
==>TI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5069	5191	
==>TI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7903	8052	
==>eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7903	8052	
==>eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7903	8052	
==>eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        fo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9731	9873	
==>8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter {  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1090	1188	
==>:Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1090	1188	
==>:Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14105	14248	
==>@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14105	14248	
==>@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14105	14248	
==>@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6188	6290	
==>o the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on unde <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6188	6290	
==>o the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on unde <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16301	16390	
==>ityExpression> <'=='> <RelationalExpression>
    | <EqualityExpression> <'!='> <Relational <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2182	2278	
==>ranslates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2182	2278	
==>ranslates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2831	2966	
==>flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantia <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2831	2966	
==>flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantia <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7990	8089	
==>sprintf('%09s', $1)}eg;
    return $ver;
}

=head2 assert_ghc_pkg

Assert that we have F<ghc_pkg> in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14662	14755	
==>TI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14662	14755	
==>TI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14662	14755	
==>TI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17319	17412	
==>$xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17319	17412	
==>$xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17319	17412	
==>$xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_to_n( <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8576	8677	
==>rarchies of trees, your
# depth fields are all out of whack.
# This is where this method comes into pl <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8576	8677	
==>rarchies of trees, your
# depth fields are all out of whack.
# This is where this method comes into pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5353	5489	
==>uch (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5353	5489	
==>uch (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5353	5489	
==>uch (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1112	1217	
==>me = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1112	1217	
==>me = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1112	1217	
==>me = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8802	8969	
==>get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8802	8969	
==>get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8802	8969	
==>get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28713	28858	
==>y_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28713	28858	
==>y_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28713	28858	
==>y_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6196	6400	
==>me => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6196	6400	
==>me => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6196	6400	
==>me => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10060	10181	
==>s Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10060	10181	
==>s Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2548	2655	
==>t { die if $.year < 0; $.year % 100 }
method century returns Int { die if $.year < 0; int($.year / 100) }

o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15096	15189	
==>ructures of arbitrary depth and of
an arbitrary type. The function signatures will likely look <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15154	15247	
==>ructures of arbitrary depth and of
an arbitrary type. The function signatures will likely look <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1408	1545	
==>ide => 1 },
    };

    ### acc is just for accessors, the others get added for our 
    ### param checking too
    my $tmpl = {
        % <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15245	15356	
==>" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $targ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15245	15356	
==>" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $targ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	909	1007	
==>et::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[pub <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	909	1007	
==>et::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[pub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4181	4284	
==>ic categories
    For writing your own backslash and assertion rules or macros, you may
    use the foll <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11433	11526	
==>t ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11433	11526	
==>t ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$s <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3899	4047	
==>){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4326	4438	
==>_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCA <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6188	6282	
==>}

=head2 C<analyze_fh>

  my %results = $strap->analyze_fh($name, $test_filehandle);

Like C<a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11549	11634	
==>----------------------------------------------------------------

With this Role meta- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11549	11634	
==>----------------------------------------------------------------

With this Role meta- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11549	11634	
==>----------------------------------------------------------------

With this Role meta- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9562	9666	
==>ed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag(' <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9620	9724	
==>ed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag(' <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2117	2216	
==>{ return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or die <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13749	13898	
==>>( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9933	10082	
==>>( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10769	10918	
==>>( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1852	1976	
==>pt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1852	1976	
==>pt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1852	1976	
==>pt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5679	5779	
==><Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5679	5779	
==><Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7876	7976	
==><Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3196	3320	
==>lf.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3196	3320	
==>lf.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3196	3320	
==>lf.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        pus <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1156	1253	
==>.
# However, the perl5 core team expressed some interest in perhaps
# maintaining the capability i <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4465	4544	
==>0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*26214 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4465	4544	
==>0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*26214 <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3465	3583	
==>y ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st line\ <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	651	747	
==>> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<dens <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	651	747	
==>> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<dens <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10497	10602	
==>:Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10497	10602	
==>:Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	123	234	
==>:Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	123	234	
==>:Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	123	234	
==>:Run::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1252	1359	
==>al checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1252	1359	
==>al checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1252	1359	
==>al checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12328	12418	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12328	12418	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12328	12418	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircumfix_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2765	2861	
==>er(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2765	2861	
==>er(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2765	2861	
==>er(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13444	13578	
==>scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13444	13578	
==>scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13444	13578	
==>scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Pe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4677	4774	
==>ined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a hashr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4677	4774	
==>ined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a hashr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20943	21037	
==>uiltin is unsafe {
    #Pugs::Internals::require($module);
    Pugs::Internals::require_use_hel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16740	16852	
==>ilt-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16740	16852	
==>ilt-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16740	16852	
==>ilt-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2038	2143	
==>t compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2038	2143	
==>t compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2038	2143	
==>t compile to PIL!\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22222	22314	
==>Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...") <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22222	22314	
==>Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...") <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1108	1213	
==>an' );

# remove header from output object; it gets in the way of the first test
$tb_output.output();

sub <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1108	1213	
==>an' );

# remove header from output object; it gets in the way of the first test
$tb_output.output();

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1188	1293	
==>an' );

# remove header from output object; it gets in the way of the first test
$tb_output.output();

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	78	200	
==>::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	78	200	
==>::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	78	200	
==>::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6159	6271	
==>ssAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6159	6271	
==>ssAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6159	6271	
==>ssAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbinding $?PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1544	1654	
==>thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1544	1654	
==>thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1544	1654	
==>thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa(" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	133	244	
==>_tree;

method tree ($self:) returns Tree {
    # create the tree lazily ...
    $self.:create_tree() unless $:t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	910	1010	
==>$cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$dep <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	968	1068	
==>$cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$dep <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14599	14720	
==>rl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - test want() <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3559	3655	
==>t::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3559	3655	
==>t::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37626	37722	
==>ons,
such that all common attribute names and corresponding common tuple values
are aligned and m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42175	42271	
==>ons,
such that all common attribute names and corresponding common tuple values
are aligned and m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41825	41921	
==>ons,
such that all common attribute names and corresponding common tuple values
are aligned and m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10129	10287	
==>od .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10129	10287	
==>od .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10129	10287	
==>od .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1250	1358	
==>rn $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1250	1358	
==>rn $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	730	821	
==>ue_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	730	821	
==>ue_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	730	821	
==>ue_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	479	576	
==>e);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->itera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	479	576	
==>e);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->itera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	479	576	
==>e);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenizer}->itera <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	62	158	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	62	158	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	62	158	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	307	446	
==>M_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	307	446	
==>M_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8904	9018	
==>re");
}

sub use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20180	20312	
==>defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20180	20312	
==>defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20180	20312	
==>defined($::Class);
        }        
        # go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	2	117	
==>ckage PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	2	117	
==>ckage PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	2	117	
==>ckage PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2604	2698	
==>ss->version($version)     if defined $version;
    $new_class->authority($authority) if defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2604	2698	
==>ss->version($version)     if defined $version;
    $new_class->authority($authority) if defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2604	2698	
==>ss->version($version)     if defined $version;
    $new_class->authority($authority) if defined <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3327	3446	
==>5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3327	3446	
==>5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29132	29240	
==>rns a value that says whether
or not it ended up being merged with the previous object in the tree.

=item my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2327	2471	
==>? dir($pool_rel)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2525	2621	
==>start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2525	2621	
==>start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13619	13768	
==>t = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13619	13768	
==>t = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13619	13768	
==>t = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16969	17089	
==>r.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for oute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20446	20566	
==>r.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for oute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20024	20144	
==>r.

    if ($!body.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for oute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4537	4720	
==>eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4537	4720	
==>eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4537	4720	
==>eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2368	2474	
==>g{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2368	2474	
==>g{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2368	2474	
==>g{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8930	9095	
==>xt unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5290	5455	
==>xt unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6139	6304	
==>xt unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16405	16506	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19882	19983	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!h <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3470	3639	
==>t' => $e->get('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$current') <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	111	253	
==>m -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	298	407	
==>_;
    (blessed($args) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args->is_e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3694	3820	
==>->family;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  packa <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1787	1903	
==>ph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $st <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1787	1903	
==>ph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $st <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4665	4808	
==>e}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # helps diffi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12900	13029	
==>rip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12900	13029	
==>rip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1472	1574	
==>$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1472	1574	
==>$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1472	1574	
==>$::Role->add_attribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1503	1618	
==>tracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made aut <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1503	1618	
==>tracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made aut <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14140	14240	
==>$S->force_object(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_hand <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22361	22459	
==>hat all of its class
and object methods will each return the same result when invoked on the
same o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26913	27011	
==>hat all of its class
and object methods will each return the same result when invoked on the
same o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25636	25734	
==>hat all of its class
and object methods will each return the same result when invoked on the
same o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34264	34377	
==>hift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34264	34377	
==>hift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34264	34377	
==>hift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2523	2618	
==>ngle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2523	2618	
==>ngle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2523	2618	
==>ngle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2247	2351	
==>cursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2247	2351	
==>cursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2247	2351	
==>cursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13376	13521	
==>g to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13376	13521	
==>g to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13376	13521	
==>g to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3411	3531	
==>kage(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2450	2567	
==>'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2450	2567	
==>'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7166	7280	
==>ush @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7166	7280	
==>ush @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7166	7280	
==>ush @js,
        "if($jsname == undefined) PIL2JS.runloop(function () {" .
        PIL::possibly_ccify($other, PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5346	5479	
==>ody) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5346	5479	
==>ody) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5346	5479	
==>ody) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22036	22264	
==>aram );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whol <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22036	22264	
==>aram );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whol <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22036	22264	
==>aram );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whol <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15557	15671	
==>self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10413	10527	
==>self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2068	2180	
==>package Blondie::App;
    use base 'Blondie::Node::List';

    package Blondie::Val;
    use base 'Blondie::Node: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4576	4854	
==>es only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: W <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4576	4854	
==>es only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: W <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1110	1206	
==>,map{"-I$_"}@inc_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4334	4429	
==>eviously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$de <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4334	4429	
==>eviously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4414	4509	
==>eviously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3878	4009	
==>"Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3878	4009	
==>"Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3878	4009	
==>"Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1551	1660	
==>ms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1551	1660	
==>ms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1981	2104	
==>=@_;
  my $noop = Hacks->noop;
  my $debug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::current_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6858	6957	
==>e to module documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6624	6720	
==>e to module documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6427	6528	
==>tatus returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6427	6528	
==>tatus returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8624	8725	
==>tatus returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2131	2240	
==>KMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2131	2240	
==>KMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2131	2240	
==>KMETH($dispatcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2231	2364	
==>fined $_[0];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  => $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5339	5436	
==>hod the file for the properties, and writes it
to disk.  Returns boolean value of success or failu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5339	5436	
==>hod the file for the properties, and writes it
to disk.  Returns boolean value of success or failu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5820	6043	
==>y ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5820	6043	
==>y ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5820	6043	
==>y ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1263	1520	
==>"</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'v <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1263	1520	
==>"</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6986	7096	
==>y' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6986	7096	
==>y' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6986	7096	
==>y' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6301	6405	
==>$i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-conti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6301	6405	
==>$i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-conti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6301	6405	
==>$i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-conti <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3690	3801	
==>$event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3690	3801	
==>$event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1821	1920	
==>ample.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17134	17229	
==>provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17134	17229	
==>provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17357	17447	
==>pressionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpressionNoIn>
}
rule Bitw <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5263	5381	
==>"parrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1845	1952	
==>reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1845	1952	
==>reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1845	1952	
==>reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( +$x )
# TODO - 'ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8262	8373	
==>@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT] <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8262	8373	
==>@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT] <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	235	344	
==>TABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX => 4;
use constant PGE_OPTABLE_INFIX => 5;
use constant PGE_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1122	1219	
==>er(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1122	1219	
==>er(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1122	1219	
==>er(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3899	4007	
==>invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3899	4007	
==>invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3899	4007	
==>invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> <==
3	/Users/nnunley/pugs/util/package-osx.pl	9395	9530	
==>";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        pri <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4037	4140	
==>od intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4037	4140	
==>od intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6100	6229	
==>ackage Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a conv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6100	6229	
==>ackage Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a conv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6100	6229	
==>ackage Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a conv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1943	2069	
==>)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1943	2069	
==>)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1943	2069	
==>)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            ::wrap_role_method($met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	669	773	
==>ash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File::Pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1950	2054	
==>ash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File::Pa <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	341	441	
==>aram @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3991	4109	
==>ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $eve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3991	4109	
==>ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $eve <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11180	11288	
==>ow->new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operato <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6082	6178	
==>homp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6082	6178	
==>homp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6082	6178	
==>homp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32740	32938	
==>> 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32740	32938	
==>> 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32740	32938	
==>> 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li-> <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8750	8859	
==>(Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimit <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	223	330	
==>(Str $delimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4574	4692	
==>sking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4574	4692	
==>sking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4574	4692	
==>sking of we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35592	35725	
==>y->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35592	35725	
==>y->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35592	35725	
==>y->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative of <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2016	2161	
==>@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2016	2161	
==>@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP:: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	418	510	
==>::Template;
use HTML::TreeBuilder;
use HTML::Entities;
use List::Util 'first';
use Regexp::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5433	5526	
==>course, this feature is not available
when linking to a standalone JavaScript file.

Recommend <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5433	5526	
==>course, this feature is not available
when linking to a standalone JavaScript file.

Recommend <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5433	5526	
==>course, this feature is not available
when linking to a standalone JavaScript file.

Recommend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	177	274	
==>ng for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal opti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	177	274	
==>ng for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal opti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	177	274	
==>ng for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal opti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23966	24085	
==>c;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20387	20506	
==>c;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9857	9966	
==>pe $value" } # XXX

NODE MkType ($typename) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOW <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3455	3563	
==>g{include} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( "|", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9907	10012	
==>e( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5454	5549	
==>tructor, but there may be situations in which explicitly zeroizing the 
cipher object would be d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5454	5549	
==>tructor, but there may be situations in which explicitly zeroizing the 
cipher object would be d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3953	4065	
==>'', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3953	4065	
==>'', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3953	4065	
==>'', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2886	3046	
==>n { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2774	2928	
==>n { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	820	927	
==>ebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	820	927	
==>ebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	820	927	
==>ebless($beat, 'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	201	302	
==>ed in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	201	302	
==>ed in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	201	302	
==>ed in perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4973	5091	
==>REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Defin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4973	5091	
==>REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Defin <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2572	2671	
==>fe   (Array)\
#   ie, both return and argument types differ.
multi infix:«Y» (Array *@arrays --> L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2460	2609	
==>xpression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2460	2609	
==>xpression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2460	2609	
==>xpression dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7221	7389	
==>) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7221	7389	
==>) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7221	7389	
==>) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7678	7800	
==>eop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7871	7993	
==>eop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17703	17809	
==>ass "PGE::Rule"
    $P1 = subclass $P0, grammar 
  end:
    .return (sub, code, exp)
.end

.namespace [ "PG <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3939	4063	
==>.
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3927	4051	
==>.
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36845	36955	
==>ero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41394	41504	
==>ero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41017	41127	
==>ero attributes, one tuple),
the result is as if it wasn't there at all.  In any situation where a pair
of sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	945	1093	
==>e->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1287	1483	
==>eight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.append <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1287	1483	
==>eight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.append <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1287	1483	
==>eight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.append <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9590	9689	
==>rule CharacterEscapeSequence {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscapeCharacter> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	501	604	
==>PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	501	604	
==>PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	501	604	
==>PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() holding t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7042	7153	
==>->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7054	7165	
==>->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6204	6310	
==>6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_ins <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6204	6310	
==>6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_ins <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6204	6310	
==>6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3499	3613	
==>.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3499	3613	
==>.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3499	3613	
==>.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27353	27453	
==>AG_$flag>, and sets it to
the code reference in $code.  Example:

  $parser->add_flag("u" => sub { 0x <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33551	33643	
==>>.

=item C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38101	38193	
==>>.

=item C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9460	9607	
==>$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9460	9607	
==>$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9460	9607	
==>$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3032	3215	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3032	3215	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3032	3215	
==>} } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     su <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1743	1937	
==>$?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1743	1937	
==>$?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nod <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20819	20915	
==>dir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val->{_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11474	11581	
==>~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3065	3172	
==>~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	120	246	
==>ated; use family() instead");
    $self->family(@_);
  }

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub fa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7943	8041	
==>s;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7943	8041	
==>s;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	163	277	
==>TER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v = <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	163	277	
==>TER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11124	11265	
==>st) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch: $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5705	5829	
==>"gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5705	5829	
==>"gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2334	2446	
==>has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2334	2446	
==>has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1273	1368	
==>plementations in p5/p6/haskell.
  - perhaps serve as a reference implementation for a while.  By <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4858	4968	
==>ouldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4858	4968	
==>ouldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4858	4968	
==>ouldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compil <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8435	8535	
==>lf.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from t <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8435	8535	
==>lf.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13548	13646	
==>from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13548	13646	
==>from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13548	13646	
==>from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12741	12874	
==>ashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12741	12874	
==>ashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12741	12874	
==>ashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5249	5446	
==>_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5249	5446	
==>_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5249	5446	
==>_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6726	6894	
==>h( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6726	6894	
==>h( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6726	6894	
==>h( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell')->{tied} ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4491	4652	
==>{
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4491	4652	
==>{
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4491	4652	
==>{
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        la <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4128	4225	
==>=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4128	4225	
==>=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5652	5749	
==>=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Build <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26828	26981	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27107	27260	
==>} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::c <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5827	5973	
==>ning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        prin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4880	4989	
==>e ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterat <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4880	4989	
==>e ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterat <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2490	2595	
==>s_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r8649.
&Array::pop := &Array::splice.assumin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	679	796	
==>ea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	679	796	
==>ea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	679	796	
==>ea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node) {
          // This approach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	215	333	
==>a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	215	333	
==>a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	215	333	
==>a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $ar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12519	12637	
==>=> sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	838	946	
==>er
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already se <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	838	946	
==>er
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	967	1048	
==>JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	967	1048	
==>JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	967	1048	
==>JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2330	2503	
==>,
        precedence => 'looser',
        other => '*',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6340	6457	
==>ped

If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you've
got a successful test.

$failed is a hash ref o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5880	5983	
==>M::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5880	5983	
==>M::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5880	5983	
==>M::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	83	197	
==>&exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	83	197	
==>&exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	83	197	
==>&exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2277	2398	
==>tr $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	266	379	
==>tr $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	266	379	
==>tr $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1672	1805	
==>(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5149	5282	
==>(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg : <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4079	4212	
==>(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg : <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37835	37931	
==>uming that a Perl module by the given module name
is already loaded, it tries to invoke $module_n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37835	37931	
==>uming that a Perl module by the given module name
is already loaded, it tries to invoke $module_n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11397	11498	
==>iteral>
    | <HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrUnsignedDecimalLit <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13630	13726	
==>nce_holidays );

- Continuous span

This type os span is used to represent continuous measurement <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13630	13726	
==>nce_holidays );

- Continuous span

This type os span is used to represent continuous measurement <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21303	21404	
==>)->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44210	44311	
==>)->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10042	10141	
==>nd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE Mk <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9184	9310	
==>:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9184	9310	
==>:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11145	11313	
==>g" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14782	14892	
==>ARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14782	14892	
==>ARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14782	14892	
==>ARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval(' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6999	7196	
==>{
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6999	7196	
==>{
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6674	6771	
==>tance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6674	6771	
==>tance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6674	6771	
==>tance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::R <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1808	1915	
==>xport 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $li <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1808	1915	
==>xport 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1888	1995	
==>xport 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $li <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3180	3336	
==>w(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node<Grammar>),
            Tree.new(:node<Type>).add_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2527	2653	
==>}

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2527	2653	
==>}

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21005	21104	
==>ultiple times.  The result of doing so,
it that only the last of these fields will be present in the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21005	21104	
==>ultiple times.  The result of doing so,
it that only the last of these fields will be present in the <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4192	4283	
==>ntified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> "+?", !.
p56_qua <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	489	590	
==>to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_num { shift }

# conversion <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10814	10968	
==>%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10814	10968	
==>%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1378	1473	
==>stant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1378	1473	
==>stant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1378	1473	
==>stant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BL <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	557	683	
==>gment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	557	683	
==>gment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5656	5773	
==>A;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->ve <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	145	270	
==>less defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	145	270	
==>less defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3097	3279	
==>) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6574	6756	
==>) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5522	5704	
==>) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6787	6927	
==>urn CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6787	6927	
==>urn CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6787	6927	
==>urn CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4342	4448	
==>f $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($cur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4342	4448	
==>f $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($cur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4932	5038	
==>f $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16066	16170	
==>chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16066	16170	
==>chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16066	16170	
==>chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9065	9263	
==>e = shift; 
                          $e->set("$method", $e->get("$current")->send("get_method", $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	692	792	
==>ur are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
crypt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	692	792	
==>ur are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
crypt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	374	481	
==>e is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	374	481	
==>e is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	374	481	
==>e is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is pri <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4531	4637	
==>} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => 'Parse-YAML', $TEMP_P <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	13	118	
==>0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	13	118	
==>0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	883	999	
==>Num::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($x);
 }
 &Num::ceil ::= &Num::ceiling;


 mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11741	11856	
==>Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminatin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11741	11856	
==>Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminatin <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3572	3684	
==>hind  { \< (!?) after  <ws> <pattern> \> }
rule word_boundary  { \\ b }
#rule element_boundary { \< , \> } # punt <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13750	13857	
==>ect if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $spa <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13750	13857	
==>ect if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	855	1033	
==>},
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	855	1033	
==>},
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	855	1033	
==>},
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() if @_ < 2;
                $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2852	2967	
==>se {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2852	2967	
==>se {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2852	2967	
==>se {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13590	13701	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13590	13701	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13590	13701	
==>ptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4444	4567	
==>}->value }

sub as_pil_tree_yaml {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13382	13487	
==>nd );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13382	13487	
==>nd );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, t <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6251	6359	
==>fy;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6251	6359	
==>fy;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _n <==
3	/Users/nnunley/pugs/util/addauthors.pl	1471	1590	
==>", "<:utf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    cho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1621	1723	
==>pile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1621	1723	
==>pile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1339	1456	
==>defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @tokens <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5455	5548	
==>file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5455	5548	
==>file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3467	3615	
==>"Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3467	3615	
==>"Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3467	3615	
==>"Array") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3348	3464	
==>defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3348	3464	
==>defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3348	3464	
==>defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5153	5261	
==>,
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5346	5454	
==>,
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20798	20891	
==>nk readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsockopt shutdown s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4969	5123	
==>l;
        }
        $matchObj->{value} = $initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5564	5677	
==>emove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5564	5677	
==>emove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5290	5387	
==>is allows r/w access to the value.

=item B<apply (closure) return list>

The closure here will be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1564	1654	
==>g E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@aud <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1564	1654	
==>g E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@aud <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	573	681	
==>, sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	573	681	
==>, sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	573	681	
==>, sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11855	12104	
==>f !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11855	12104	
==>f !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11855	12104	
==>f !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1634	1744	
==>azy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1634	1744	
==>azy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1634	1744	
==>azy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11696	11808	
==>b constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11690	11802	
==>b constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	19	127	
==>nts;

use strict;

use Package::Constants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

use var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6142	6248	
==>IL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6142	6248	
==>IL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6142	6248	
==>IL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	697	842	
==>unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	669	809	
==>unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6673	6792	
==>P5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || % <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10450	10548	
==>ome tests which you would like to force into being TODO tests
then you can pass them through this f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10508	10606	
==>ome tests which you would like to force into being TODO tests
then you can pass them through this f <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2209	2334	
==>ssage (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Thi <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2209	2334	
==>ssage (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4646	4754	
==>$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::double <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4646	4754	
==>$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::double <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4646	4754	
==>$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::double <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2108	2215	
==>.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2108	2215	
==>.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	392	486	
==>n);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	392	486	
==>n);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	392	486	
==>n);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2394	2513	
==>descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2394	2513	
==>descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go in <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21	114	
==>periment in using the perl5 implementation's
# "regcomp hooks" (C functions called when regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35892	36042	
==>l = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35892	36042	
==>l = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35892	36042	
==>l = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6419	6579	
==>ts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6419	6579	
==>ts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6419	6579	
==>ts ... add attribute
                $self->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6646	6766	
==>($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6646	6766	
==>($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6646	6766	
==>($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3820	3915	
==>e_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3820	3915	
==>e_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3820	3915	
==>e_attr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13898	14039	
==>/;  # remove sigil
            return $n->{op1}{op} . " '$name' => ( $attr )";
    }

    if ( $n->{op1}{op} eq 'try' ) {
        #warn " <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4501	4611	
==>flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4501	4611	
==>flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6757	6864	
==>// (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6757	6864	
==>// (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6757	6864	
==>// (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2743	2872	
==>0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2743	2872	
==>0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2743	2872	
==>0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6478	6597	
==>'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6478	6597	
==>'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6478	6597	
==>'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35192	35288	
==>f objects

Branched

=head2 exact

Family: exact

Types: exact (C<abc>), exactf (C<abc> with C</i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5278	5373	
==>ub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5278	5373	
==>ub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5278	5373	
==>ub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::make_method <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9234	9342	
==>/;
	    push(@names5,$pn);
	} else {
	    push(@names5,'$'.p6_mangle($pname));
	}
	my $aname = $pname;
	$anam <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1940	2043	
==>riginal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCR <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1940	2043	
==>riginal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4386	4479	
==>nds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4386	4479	
==>nds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4386	4479	
==>nds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. This comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	156	260	
==>e;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	156	260	
==>e;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	156	260	
==>e;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8747	8862	
==>$str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8747	8862	
==>$str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8747	8862	
==>$str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6904	7001	
==>YAPE::Regex> modules.

=head1 USAGE

=head2 Creating an Instance

To use this module as is, load i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4699	4793	
==>c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4921	5015	
==>c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14571	14708	
==>my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14571	14708	
==>my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14571	14708	
==>my $self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14638	14738	
==>t = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14638	14738	
==>t = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4261	4358	
==>:SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4261	4358	
==>:SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4261	4358	
==>:SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturnc <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	198	297	
==>cept perhaps to express sub-types, default values,
# etc.
enum ExpType «Noop App Syn Cxt Pos Pad Sy <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15334	15431	
==>!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extensi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15334	15431	
==>!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extensi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4926	5051	
==>a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4926	5051	
==>a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4926	5051	
==>a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS.make_slurpy_arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6513	6636	
==>'1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6513	6636	
==>'1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	414	518	
==>an though,
# so it should be considered a protected 
# method, which is used to implement the 
# other me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1431	1549	
==>onal};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1431	1549	
==>onal};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1640	1758	
==>onal};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bin <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	457	594	
==>AML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	463	570	
==>s, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	463	570	
==>s, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6458	6588	
==>elf->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6458	6588	
==>elf->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6458	6588	
==>elf->add_attribute($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method(' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5660	5765	
==>.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5660	5765	
==>.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7857	7962	
==>.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<status retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3341	3451	
==>ss($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3341	3451	
==>ss($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3341	3451	
==>ss($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1298	1421	
==>" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1298	1421	
==>" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11151	11266	
==>", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this is useful to see that the unnecessary parts of the prelude weren't compil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	121	218	
==>se warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	121	218	
==>se warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runti <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	89	185	
==>se warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2840	3010	
==>ttribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2840	3010	
==>ttribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2840	3010	
==>ttribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3348	3456	
==>"a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3348	3456	
==>"a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3348	3456	
==>"a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1949	2073	
==>_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $O <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1949	2073	
==>_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $O <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1949	2073	
==>_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $O <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1027	1151	
==>elf->$acc( $val );
    }
    
    $self->package( $self->meta->package );
    
    ### XXX flesh out this format better
    { <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	472	584	
==>param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param< <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	472	584	
==>param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param< <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	731	844	
==>.$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions o <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	731	844	
==>.$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	593	694	
==>ft) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->new(0) }

sub greater_tha <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	235	330	
==>ad1 METHODS

=head2 $alt = JIB::Alternative->new_from_struct( struct => $struct );

=cut

sub ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	220	338	
==>soc' is one of:  nonassoc / right / left

my $g = <<'EOT';
%{ my $out; %}

%left   ';'
%left   '-' '«+»'
%left <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1568	1656	
==>) + 1;
}

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1568	1656	
==>) + 1;
}

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	596	690	
==>Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code directly 
I<inli <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	596	690	
==>Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code directly 
I<inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3449	3557	
==>("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3449	3557	
==>("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3449	3557	
==>("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9179	9442	
==>y
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runtime::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3291	3423	
==>&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3279	3411	
==>&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4270	4369	
==>mp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4270	4369	
==>mp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4270	4369	
==>mp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub JS::Root::min(Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10836	11020	
==>superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10836	11020	
==>superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10836	11020	
==>superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	478	579	
==>bin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	478	579	
==>bin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	478	579	
==>bin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: in <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6604	6702	
==>Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to Fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6604	6702	
==>Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2347	2452	
==>f,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2347	2452	
==>f,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2347	2452	
==>f,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10594	10709	
==>{
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10594	10709	
==>{
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3424	3575	
==>./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3424	3575	
==>./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $requ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39619	39738	
==>less of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	171	313	
==>0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	171	313	
==>0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	171	313	
==>0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1213	1310	
==>ed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1213	1310	
==>ed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1213	1310	
==>ed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => '%:methods')->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9165	9260	
==>ar.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9165	9260	
==>ar.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1777	1868	
==>kg->alternative

Returns the JIB::Alternative object, if this package is a registered altern <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1193	1347	
==>OAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1398	1552	
==>OAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1459	1613	
==>OAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instan <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	113	251	
==>ename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    
    ### co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4145	4264	
==>val( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4000	4116	
==>val( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Per <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3148	3395	
==>Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3148	3395	
==>Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16763	16857	
==>tions like union, intersection, and
subtraction.

=item Regexp::Optimize

Eliminates redundancy <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9820	9923	
==>object, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11297	11400	
==>object, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18901	18992	
==>n::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open($eval_log_file,">>deleteme_code.pl") o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27167	27308	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27446	27587	
==>rammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11287	11405	
==>ush \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3947	4134	
==>rest of the class 
        get_z => sub { $z },
        set_z => sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3620	3724	
==>rmalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3620	3724	
==>rmalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	573	673	
==>/ I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	573	673	
==>/ I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	573	673	
==>/ I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	834	933	
==>ompilation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	834	933	
==>ompilation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1672	1811	
==>e
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for coo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1672	1811	
==>e
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for coo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	65	174	
==>e - fglock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gnu/ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5861	5956	
==>rn Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5861	5956	
==>rn Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () retu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7796	7889	
==>ze() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors shou <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7796	7889	
==>ze() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors shou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33625	33746	
==>rray = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33625	33746	
==>rray = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33625	33746	
==>rray = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3759	3894	
==>tions
    # in library code. Do either! Let your caller decide!
    # instead of "die             'file not found';"
    #         or "r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6247	6368	
==>, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6305	6426	
==>, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6217	6351	
==>try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6217	6351	
==>try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6217	6351	
==>try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14160	14275	
==>r.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $self;
}

method C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32240	32336	
==>r flag assertions
and C<(?:...)>).

=item raw

The raw representation of this object.

=item type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40045	40151	
==>( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40045	40151	
==>( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40045	40151	
==>( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] = $value- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	739	988	
==>cute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_k <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	739	988	
==>cute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9667	9901	
==>y, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9667	9901	
==>y, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9667	9901	
==>y, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $se <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2354	2494	
==>>= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2354	2494	
==>>= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	56	187	
==>:Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submeth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	56	187	
==>:Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submeth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	341	544	
==>( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	341	544	
==>( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ru <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4470	4604	
==>] )                      and error($?), return;

    return JIB::Package->new( 
                file => File::Spec->rel2abs( $archive ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1127	1236	
==>----------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1127	1236	
==>----------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1127	1236	
==>----------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see recent thread: 'Concer <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10027	10135	
==>$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10021	10129	
==>$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15438	15542	
==>t' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, \$ho <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7247	7343	
==>method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7247	7343	
==>method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1512	1731	
==>::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1032	1140	
==>item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1032	1140	
==>item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1579	1687	
==>item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header re <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2159	2282	
==>(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @st <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2159	2282	
==>(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @st <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9339	9434	
==>ator>> <-[\'\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeSequenc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1426	1542	
==>hod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos : <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1426	1542	
==>hod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos : <==
3	/Users/nnunley/pugs/util/package-osx.pl	2257	2346	
==>_perl/PIL2JS /Library/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2353	2455	
==>self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2353	2455	
==>self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2353	2455	
==>self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9124	9222	
==>ethod user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9124	9222	
==>ethod user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	432	526	
==>ported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	432	526	
==>ported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	432	526	
==>ported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1942	2055	
==>~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1942	2055	
==>~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1942	2055	
==>~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	43	145	
==>LD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Go <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	43	145	
==>LD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1680	1782	
==>Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1680	1782	
==>Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1680	1782	
==>Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13275	13451	
==>self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13275	13451	
==>self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13275	13451	
==>self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	627	736	
==>at {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	627	736	
==>at {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$ <==
3	/Users/nnunley/pugs/util/grokprims.pl	1164	1298	
==>{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/prefix/) {
    if (($arity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $examp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3270	3368	
==>ing!) returns Relation {

    die "Some keys of $mapping! do not match this relation's attributes." <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6747	6845	
==>ing!) returns Relation {

    die "Some keys of $mapping! do not match this relation's attributes." <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2391	2494	
==>truct);
}

sub can_reduce {
	my $self = shift;
	my $node = shift;
	Scalar::Util::blessed($node->struct_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36261	36414	
==>@tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36261	36414	
==>@tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36261	36414	
==>@tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10568	10666	
==>abstract 
    # methods which must be implemented
    # ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10568	10666	
==>abstract 
    # methods which must be implemented
    # ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10568	10666	
==>abstract 
    # methods which must be implemented
    # ------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2627	2728	
==>y $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2627	2728	
==>y $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2627	2728	
==>y $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5666	5766	
==>_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5666	5766	
==>_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5666	5766	
==>_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10194	10320	
==>ss->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10194	10320	
==>ss->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10194	10320	
==>ss->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1052	1153	
==>ti sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        .. <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1052	1153	
==>ti sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        .. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	326	423	
==>:Parser.

# It looks like the ("A feasibility and performance reality check")
# spike has succeede <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7116	7227	
==>rom_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7116	7227	
==>rom_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7116	7227	
==>rom_n(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1404	1512	
==>AME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1404	1512	
==>AME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1404	1512	
==>AME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub call <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2256	2371	
==>= $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2256	2371	
==>= $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star', <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	191	292	
==>quality

sub equal_to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15222	15321	
==>s this is an error message of some kind, but it
could also be a prompt or response message for inter <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15222	15321	
==>s this is an error message of some kind, but it
could also be a prompt or response message for inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4635	4753	
==>s'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4635	4753	
==>s'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4635	4753	
==>s'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->colle <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12724	12840	
==>ackwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2198	2299	
==>', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', asso <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2198	2299	
==>', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', asso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1906	2002	
==>Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1906	2002	
==>Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1906	2002	
==>Class; 
}

# now make sure we set everyone's name properly
$::Package->name('Package');
$::Module <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4155	4286	
==>pture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            pus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4027	4155	
==>pture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            pus <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1199	1323	
==>ore {
    my ($self, $key, $value) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type" <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1613	1715	
==>iable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named p <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1613	1715	
==>iable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	660	756	
==>lass;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $obje <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1241	1410	
==>digest {
        my $self = shift;
        Digest->compute($self);
    }

    package Env;
    use base 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3605	3706	
==>unt>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or read
t <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3605	3706	
==>unt>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or read
t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19138	19243	
==>n or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15559	15664	
==>n or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	85	216	
==>rter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	85	216	
==>rter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	85	216	
==>rter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5 <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2495	2620	
==>ex
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode( <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2495	2620	
==>ex
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10865	11012	
==>'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10865	11012	
==>'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10865	11012	
==>'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13978	14083	
==>UB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13978	14083	
==>UB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13978	14083	
==>UB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2443	2552	
==>se eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (St <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2501	2610	
==>se eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (St <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	13	111	
==>-Perl6;

is Role--Perl6;

has Type $.type;

method subclass(Role $base, Str ?$name) returns Class { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6010	6129	
==>t is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # beca <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6068	6187	
==>t is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # beca <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1650	1742	
==>e
more objects.

They provide stringification, fmapping and value encapsulation features.

Th <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1767	1867	
==>ION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1767	1867	
==>ION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4185	4280	
==>S->nchar($name), "\\N{$name}") if $cc;
    return $S->object(exact => $S->nchar($name), "\\N{$na <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4652	4770	
==>t "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4664	4782	
==>t "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4637	4737	
==>>orig);
}

sub reduce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10270	10429	
==>urn  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9246	9346	
==>self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9246	9346	
==>self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8260	8355	
==>for 
pedestrian events like object destruction, but let's not make too many 
assumptions.

=back <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8260	8355	
==>for 
pedestrian events like object destruction, but let's not make too many 
assumptions.

=back <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3865	3978	
==>-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3865	3978	
==>-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3865	3978	
==>-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5107	5225	
==>PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5107	5225	
==>PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2011	2129	
==>PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   , <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3595	3706	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3788	3899	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19199	19287	
==>B0,B1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPos,[] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4811	5001	
==>m failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5033	5223	
==>m failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	748	848	
==>str->new((shift)->{name}) }
sub type { str->new((shift)->{type}) }

sub equal_to {
    my ($left, $ri <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7345	7554	
==>'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7402	7611	
==>'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1566	1696	
==>xename}_exe.uu")) {
    print "# Unpacking $exename.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	423	525	
==>utput
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	423	525	
==>utput
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6741	6883	
==>ms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6798	6940	
==>ms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => ' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12566	12682	
==>R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true}.

p6_named_character(char(C)) --> "\\", ("c","C"), [Open], b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2656	2763	
==>r $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TR <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2656	2763	
==>r $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35233	35340	
==>l()Z and walk()Z<>.

However, we need to define our own qr() method, because we don't want
to have &'s in ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16079	16229	
==>h,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16073	16223	
==>h,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2555	2642	
==>%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2555	2642	
==>%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2555	2642	
==>%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1125	1229	
==>xt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1125	1229	
==>xt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1125	1229	
==>xt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7838	7980	
==>crement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7838	7980	
==>crement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7838	7980	
==>crement' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6295	6399	
==>(); # Role can resolve itself now :)

# Class gets a special case Does
# to avoid endless recursion
$Clas <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	968	1068	
==>() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_rang <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	968	1068	
==>() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_rang <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1007	1143	
==>f_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1007	1143	
==>f_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8395	8535	
==>$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::immediate_statement_rule( \$ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	595	716	
==>rent position of the match (also holds the
                  string that is being matched against).
    $.match     - Stat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	595	716	
==>rent position of the match (also holds the
                  string that is being matched against).
    $.match     - Stat <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8815	8938	
==>il"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8815	8938	
==>il"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3698	3791	
==>e
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3698	3791	
==>e
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5617	5705	
==>:Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4071	4185	
==>) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4071	4185	
==>) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4071	4185	
==>) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17124	17221	
==>->noop;
sub compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9155	9254	
==>pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9155	9254	
==>pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9155	9254	
==>pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1313	1417	
==>expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1313	1417	
==>expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1313	1417	
==>expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	829	936	
==>01 ~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 formats";

    my $y <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11931	12031	
==>ctions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two string <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11989	12089	
==>ctions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two string <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5241	5339	
==>>{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp::Parser::__object_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2441	2537	
==>'re done, call the closure 
with no arguments to finish the ciphering and clear the cipher's stat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2441	2537	
==>'re done, call the closure 
with no arguments to finish the ciphering and clear the cipher's stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1241	1338	
==>eout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1241	1338	
==>eout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1241	1338	
==>eout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9981	10158	
==>ature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9981	10158	
==>ature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9981	10158	
==>ature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7715	7822	
==>, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7715	7822	
==>, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7715	7822	
==>, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2889	3002	
==>ount {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $sr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2889	3002	
==>ount {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $sr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2889	3002	
==>ount {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $sr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17684	17845	
==>edefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17684	17845	
==>edefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17684	17845	
==>edefine';        
                local *::next_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confe <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8808	8927	
==>/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        prin <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6280	6378	
==>f there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6280	6378	
==>f there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2954	3151	
==>} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2954	3151	
==>} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2954	3151	
==>} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1172	1310	
==>$.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.d <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1172	1310	
==>$.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3481	3597	
==>scmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3481	3597	
==>scmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3481	3597	
==>scmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1236	1366	
==>}} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1236	1366	
==>}} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1236	1366	
==>}} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5120	5234	
==>um_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5120	5234	
==>um_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5120	5234	
==>um_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4820	4947	
==>ang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4655	4776	
==>ang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load th <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2832	2938	
==>ay::pop ( --> Scalar ) {
multi Array::pop (  ) {
    Array::pop @+_;
}

# copied from S29draft.pod r8593.
m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21397	21489	
==>nostics and Bug Fixes

More tests added (specifically, making sure C<(?(N)T|F)> works right). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	857	947	
==>-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simpl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	857	947	
==>-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11193	11344	
==>OD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11193	11344	
==>OD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11193	11344	
==>OD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11932	12100	
==>s ref $details->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $failedtes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	692	796	
==>ble
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	692	796	
==>ble
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Matc <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	405	509	
==>l) {
  ## XXX - slurpy magic doesn't work too well presently ...
  $maketoken := { [ $^tok_label, $^tok ] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	606	709	
==>set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	606	709	
==>set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1935	2041	
==>e sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1935	2041	
==>e sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1935	2041	
==>e sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7948	8121	
==>, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7948	8121	
==>, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7948	8121	
==>, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	60	152	
==>ap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	60	152	
==>ap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38569	38705	
==>? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38569	38705	
==>? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38569	38705	
==>? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17980	18077	
==>xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17980	18077	
==>xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17980	18077	
==>xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6508	6637	
==>")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6508	6637	
==>")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12701	12798	
==>and Errors

Here are the standard warning and error messages.  Their values are all
negative; posi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8353	8537	
==>as_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8353	8537	
==>as_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8353	8537	
==>as_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1278	1380	
==>'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1278	1380	
==>'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1278	1380	
==>'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3506	3616	
==>hift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3506	3616	
==>hift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3506	3616	
==>hift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unles <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3598	3702	
==>_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $sel <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2639	2742	
==>_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $sel <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1929	2057	
==>->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2134	2245	
==>file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primati <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2134	2245	
==>file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primati <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1949	2045	
==>y {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1949	2045	
==>y {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17793	17939	
==>s}[$test_num - 1] = 
            { ok        => is the test considered ok?
              actual_ok => did it literally say 'ok'?
              name <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	856	975	
==>($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	856	975	
==>($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4176	4300	
==>value { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4176	4300	
==>value { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4176	4300	
==>value { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6177	6277	
==>>struct_equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11904	12003	
==>d are retained.

As for the header() method, the field name ($field) is not case
sensitive and '_' c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11904	12003	
==>d are retained.

As for the header() method, the field name ($field) is not case
sensitive and '_' c <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2421	2556	
==>f->perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3379	3513	
==>f->perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . " <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9279	9385	
==>ESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't ope <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12764	12861	
==>e and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12822	12919	
==>e and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11344	11439	
==>ethods are used
because they will not get inherited. This provides more predictable 
behavior to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11344	11439	
==>ethods are used
because they will not get inherited. This provides more predictable 
behavior to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11344	11439	
==>ethods are used
because they will not get inherited. This provides more predictable 
behavior to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5011	5158	
==>$_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5011	5158	
==>$_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5011	5158	
==>$_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	495	684	
==>,
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	495	684	
==>,
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	495	684	
==>,
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Cla <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1174	1286	
==>port_attr_type of Relation::LaxPairAttrType
        (Relation::AttrName $attr_name) {
    return %!attrs{$attr_na <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5602	5701	
==>o, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag ( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5660	5759	
==>o, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag ( <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4071	4221	
==>es{$key};
        $dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( m <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2317	2428	
==>$pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKI <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2317	2428	
==>$pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2619	2722	
==>args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2619	2722	
==>args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2619	2722	
==>args = qw(--run=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1316	1424	
==>ain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1316	1424	
==>ain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1316	1424	
==>ain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5529	5691	
==>ring) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5529	5691	
==>ring) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5529	5691	
==>ring) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	739	864	
==>diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Outpu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	739	864	
==>diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Outpu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	819	944	
==>diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Outpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	123	239	
==>_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	123	239	
==>_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	123	239	
==>_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4365	4488	
==>lf->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4365	4488	
==>lf->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4365	4488	
==>lf->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $name;
    return substr < <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5292	5414	
==>tr is primitive is safe {
        my($mess, $i);
        $mess = "$e at $?CALLER::POSITION";

        #while Control::Calle <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1240	1352	
==>PI}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_d <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1240	1352	
==>PI}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2350	2441	
==>postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2350	2441	
==>postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2350	2441	
==>postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # " <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9364	9468	
==>an => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9364	9468	
==>an => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @spa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1972	2117	
==>ase, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1972	2117	
==>ase, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13138	13282	
==>per( $n );
    
    if ( $n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1930	2050	
==>if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2365	2485	
==>if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2802	2922	
==>if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6506	6617	
==>Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match objects (Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6288	6395	
==>Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match objects (Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5755	5862	
==>angle_quoted => $/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pugs::Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4913	5024	
==>mmar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5106	5217	
==>mmar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13827	13928	
==>s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
    return $result;
}

*run_perl = \&runperl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7516	7623	
==>only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7516	7623	
==>only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7516	7623	
==>only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9160	9331	
==>> $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9160	9331	
==>> $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9160	9331	
==>> $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item }, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5816	5921	
==>us> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5816	5921	
==>us> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8013	8118	
==>us> method and adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2424	2554	
==>i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2424	2554	
==>i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2424	2554	
==>i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10789	10896	
==>%/;

    return "$_[1] ruleop::constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2122	2221	
==>re may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher AP <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2122	2221	
==>re may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher AP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2327	2410	
==>_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2327	2410	
==>_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2327	2410	
==>_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10243	10356	
==>tring;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10243	10356	
==>tring;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	425	530	
==>PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1112	1208	
==>stances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# neede <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1112	1208	
==>stances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# neede <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1112	1208	
==>stances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Role). This is
# neede <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	54	157	
==>e Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil;
use Perl6::Core::L <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7377	7470	
==>rsal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7377	7470	
==>rsal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5667	5809	
==>v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /package

1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5889	6031	
==>v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /package

1 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24208	24304	
==>tributes; all tuples in a Relation::Example are of the same
degree, and the attribute names of ea <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2192	2293	
==>er>  }

rule simple_term  {
    <metasyntactic_token> | <commit_something>
  | <match_var>
  | <psuedo <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2371	2485	
==>elf },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2371	2485	
==>elf },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	69	164	
==>e::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2702	2827	
==>$_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2702	2827	
==>$_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2702	2827	
==>$_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1838	1941	
==>rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of ori <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1838	1941	
==>rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of ori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	342	451	
==>Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	342	451	
==>Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	342	451	
==>Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30551	30650	
==>ts sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35102	35201	
==>ts sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34284	34383	
==>ts sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
those of C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	405	506	
==>]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	405	506	
==>]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	405	506	
==>]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	939	1039	
==>> "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	939	1039	
==>> "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	939	1039	
==>> "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXS <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5647	5785	
==>nator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5647	5785	
==>nator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9478	9613	
==>eight;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height = <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9478	9613	
==>eight;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height = <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2627	2723	
==>ters.
This includes providing a default fprime in the example.  For fprime, the
example goes on s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	830	964	
==>eout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	830	964	
==>eout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	830	964	
==>eout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	29	134	
==>use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this construc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	29	134	
==>use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this construc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	29	134	
==>use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this construc <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	668	841	
==>: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? \s*
            (?: (\d+) (?: \.(\d+))? \s* S )? \s* )?
        /;      #/x  # (go cperl-mode ;))

o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5426	5532	
==>ember_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5426	5532	
==>ember_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	91	203	
==>lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11840	11937	
==>s are exactly the same.

This method tests the closures identities using the '===' operation.

= S <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11840	11937	
==>s are exactly the same.

This method tests the closures identities using the '===' operation.

= S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5430	5601	
==>= $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5430	5601	
==>= $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5430	5601	
==>= $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	60	164	
==>/m, /s, /i, /x flags
  $self->add_flag('m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 });
  $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24245	24336	
==>pyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24245	24336	
==>pyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8147	8244	
==>for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8147	8244	
==>for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8147	8244	
==>for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2148	2245	
==>%msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2148	2245	
==>%msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6129	6260	
==>ame =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6129	6260	
==>ame =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6129	6260	
==>ame =~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{meth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9157	9283	
==>,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} else {
	    push(@na <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6420	6523	
==>hod referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    ST <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6420	6523	
==>hod referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	854	953	
==>tr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	854	953	
==>tr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	854	953	
==>tr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10165	10295	
==>le {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10165	10295	
==>le {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10165	10295	
==>le {
    my($fn)=@_;
    open IN, $fn or do{ warn "p6_eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2403	2509	
==>o.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_lin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2403	2509	
==>o.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_lin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2150	2250	
==>_from($file) unless $self->perl_version;

    # The remaining probes read from POD sections; if the f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1146	1254	
==>ontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1146	1254	
==>ontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16832	16929	
==>ize

Eliminates redundancy from a regex.  It should have various options,
such as whether to do op <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14619	14729	
==>0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic see <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14619	14729	
==>0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic see <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1299	1390	
==>XX: hack to be identified by smokeserv
$ENV{HARNESS_PERL}  = "$^X -I/tmp/JSPERL5 $FindBin::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1807	1910	
==>Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1807	1910	
==>Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1807	1910	
==>Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3662	3779	
==>ain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3662	3779	
==>ain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	512	629	
==>ain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15969	16099	
==>->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15969	16099	
==>->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15969	16099	
==>->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39120	39244	
==>lems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39120	39244	
==>lems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39120	39244	
==>lems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7831	7935	
==>str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7831	7935	
==>str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7831	7935	
==>str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14063	14183	
==>::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14063	14183	
==>::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14063	14183	
==>::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6383	6485	
==>s recursion
$Class->add_method('does' => sub {
    return $_[1] eq 'Role' if $_[0] == $Class;
    ::opa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10262	10356	
==>her(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method en <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10262	10356	
==>her(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method en <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16623	16758	
==>p; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::curr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	779	894	
==>a("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	799	907	
==>a("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2950	3040	
==>dy;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2950	3040	
==>dy;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2950	3040	
==>dy;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3838	3946	
==>TCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3838	3946	
==>TCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3838	3946	
==>TCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @param <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4316	4442	
==>) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\") goto term_literal <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3476	3577	
==>D event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Po <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3476	3577	
==>D event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Po <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15965	16088	
==>e most widely used. ;)
Zero seems safe.  But more nuanced treatment will be needed if utf8 is
to be supported.

  regnode pr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3135	3238	
==>x:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3135	3238	
==>x:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4191	4307	
==>x given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no mo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4191	4307	
==>x given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no mo <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	445	546	
==>2 = times;
my $annotated = $r->annotate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my $t4 = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2624	2718	
==>hildren[$index] }
method get_all_children returns Array of Tree { @!children }

## ------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2624	2718	
==>hildren[$index] }
method get_all_children returns Array of Tree { @!children }

## ------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5411	5546	
==>e = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5411	5546	
==>e = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5411	5546	
==>e = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6060	6173	
==>ine a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6060	6173	
==>ine a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1030	1120	
==>pyright 2006 by Audrey Tang E<lt>autrijus@autrijus.orgE<gt>.

The F<libpcre> code bundled w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10639	10744	
==>tracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

=for later
# experi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31309	31406	
==>iny useful if you want modules from multiple
sets in the same disk directory.  In the first exampl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31309	31406	
==>iny useful if you want modules from multiple
sets in the same disk directory.  In the first exampl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1878	1988	
==>ut
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = shift;
    msg("Package already install <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3827	3926	
==>net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
mainta <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3827	3926	
==>net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
mainta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6860	7126	
==>+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6860	7126	
==>+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.hea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5527	5671	
==>This is a fail, but doesn't need extra diagnostics
    } elsif ($got !~ tr/0-9// or $expected !~ tr/0-9// or $range !~ tr/0-9//) {
        # This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3374	3529	
==>ipt file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3374	3529	
==>ipt file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3374	3529	
==>ipt file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15315	15420	
==>+$tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the f <==
3	/Users/nnunley/pugs/util/build_pugs.pl	41	137	
==>ngs;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use File::Find q <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	208	301	
==>:DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:na <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	208	301	
==>:DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14802	14949	
==>);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14802	14949	
==>);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14802	14949	
==>);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7520	7653	
==>ringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7520	7653	
==>ringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7520	7653	
==>ringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5256	5473	
==>etch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5256	5473	
==>etch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5256	5473	
==>etch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	91	184	
==>equire Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	91	184	
==>equire Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	91	184	
==>equire Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bn <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8039	8136	
==>y text which follows the item.

=item I<end_element ('item')>

This event is fired once the last ' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8039	8136	
==>y text which follows the item.

=item I<end_element ('item')>

This event is fired once the last ' <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2194	2286	
==>,
>   When Durin woke and walked alone.

-}

------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	101	213	
==>me";
}

=kwid

= NAME

Sample::Module - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Mo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10277	10372	
==>ub {...}, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

Th <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10277	10372	
==>ub {...}, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

Th <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18480	18590	
==>ants.  The
default is no longer ' ' since that would be interpreted as a constant.

# sprintf # XXX - see Prelu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8436	8538	
==>users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8436	8538	
==>users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3253	3386	
==>ll times
        unless( $self->can('file') ) {
            error("No file associated with this object -- " .
                  "can n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	105	225	
==>. }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	105	225	
==>. }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1976	2074	
==>tant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1976	2074	
==>tant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1976	2074	
==>tant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3329	3455	
==>" x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3329	3455	
==>" x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3329	3455	
==>" x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - lengt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	664	771	
==>ymbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	664	771	
==>ymbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1470	1573	
==>,   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1470	1573	
==>,   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1470	1573	
==>,   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«e <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8766	8865	
==>Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos_','$_re_','$_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36951	37042	
==>r_text_string = $translator.translate_message( $message );

=back

The Translator class also <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36951	37042	
==>r_text_string = $translator.translate_message( $message );

=back

The Translator class also <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3108	3203	
==>piler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.ta <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3108	3203	
==>piler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5640	5745	
==>r, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5640	5745	
==>r, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6230	6335	
==>r, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12859	12972	
==>ey ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12859	12972	
==>ey ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12859	12972	
==>ey ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3224	3327	
==>e +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's sem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3224	3327	
==>e +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's sem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3224	3327	
==>e +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't match Perl's sem <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	237	339	
==>rint "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print "nach a kommt $hash{a}";
Perl 6: my %hash = { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6283	6385	
==>id, 6, '... $iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8559	8791	
==>increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8559	8791	
==>increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8559	8791	
==>increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	441	559	
==>to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	646	764	
==>to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	702	820	
==>to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16486	16592	
==>r($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16486	16592	
==>r($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16486	16592	
==>r($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4656	4747	
==>ritable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4656	4747	
==>ritable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5246	5337	
==>ritable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21055	21150	
==>.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21055	21150	
==>.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21055	21150	
==>.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4744	4912	
==>able' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4744	4912	
==>able' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4744	4912	
==>able' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	272	388	
==>tch;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	272	388	
==>tch;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3576	3690	
==>'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func 'cotan';
trig_func 'asec';
trig_func 'acosec';
trig_func 'aco <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5509	5622	
==>e off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5509	5622	
==>e off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1586	1751	
==>Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1586	1751	
==>Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1586	1751	
==>Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1924	2033	
==>$n) = @_;
  $self->parse if $self->{stack};
  return $self->{captures}[--$n] if $n;
  return $self->{captures} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1706	1809	
==>perand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1706	1809	
==>perand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5075	5173	
==>ast 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5075	5173	
==>ast 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8571	8715	
==>ammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12480	12621	
==>ammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12480	12621	
==>ammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$mat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6414	6517	
==>expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this is <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1484	1580	
==>ls::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1401	1491	
==>ls::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygw <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2327	2443	
==>>isa('str'))
        || confess "delimiter must be a string type";    
    return str->new(
        CORE::join $delim <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4839	4938	
==>engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4839	4938	
==>engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8951	9129	
==>_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $ve <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8951	9129	
==>_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $ve <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9921	10024	
==>ractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1136	1237	
==>ractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7559	7687	
==>shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    key <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7559	7687	
==>shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    key <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7559	7687	
==>shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    key <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5622	5737	
==>ttribute new (%:methods))         (hash)))    

=cut

# create the basic Class
$::Class = opaque->new(
        refer <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11563	11659	
==>ood amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

Thi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11563	11659	
==>ood amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

Thi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3376	3471	
==>IL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Pe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3376	3471	
==>IL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Pe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1510	1604	
==>pression) returns Lazy 
 multi sub  Perl6::List::map (Code $expression ; *@values) returns Lazy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	825	936	
==>'Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	825	936	
==>'Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	825	936	
==>'Prelude.js'),
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4061	4170	
==>y that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so tha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4061	4170	
==>y that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so tha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4061	4170	
==>y that you can't bind to the name
    #   > of the slurpy
    #   hash.  You give a name to it so tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8789	8952	
==>[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8789	8952	
==>[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8789	8952	
==>[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	763	861	
==>e.

It has one property - content.

The constructor for this class has a special shortcut syntax co <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	763	861	
==>e.

It has one property - content.

The constructor for this class has a special shortcut syntax co <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	334	429	
==>if (href.match(/\/~/)) window.open(href);
    }
}
</script>
<body>
<h1>~</h1>
<p>(<a href="/">Ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6042	6171	
==>_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6030	6159	
==>_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_per <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25008	25104	
==>by default.

C<$verbose>, C<$switches> and C<$debug> are exported upon request.

=head1 DIAGNOSTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13529	13649	
==>%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13529	13649	
==>%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13529	13649	
==>%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	416	521	
==>ASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	416	521	
==>ASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	416	521	
==>ASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2950	3054	
==>rn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2950	3054	
==>rn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2950	3054	
==>rn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9574	9683	
==>rl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9574	9683	
==>rl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9574	9683	
==>rl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2129	2264	
==>.. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2129	2264	
==>.. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2129	2264	
==>.. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshift @end <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3669	4052	
==>his should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3669	4052	
==>his should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2845	3080	
==>ntainer::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2845	3080	
==>ntainer::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2845	3080	
==>ntainer::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21661	21842	
==>n => comb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4570	4671	
==>y $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.int <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4570	4671	
==>y $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.int <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9688	9827	
==>::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6029	6168	
==>::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6878	7017	
==>::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5034	5146	
==>000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5034	5146	
==>000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5034	5146	
==>000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2274	2369	
==>> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2274	2369	
==>> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12957	13040	
==>ackets("[","]").
brackets("<",">"). brackets(">","<").
brackets("/","/"). brackets(" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11744	11953	
==>'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11744	11953	
==>'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ <==
3	/Users/nnunley/pugs/util/func_refact.pl	506	606	
==>re
information about as components are computed.
END
    exit 0;
}
 
our $nodes = YAML::LoadFile($Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1086	1182	
==>tore of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1086	1182	
==>tore of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1086	1182	
==>tore of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2725	2830	
==>", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2725	2830	
==>", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2725	2830	
==>", map {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1394	1675	
==>(@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => - <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1394	1675	
==>(@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19871	19966	
==>s force_object().  force_object() creates an
object no matter what pass the parser is making; ob <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4078	4176	
==>opyright 2006 by Audrey Tang and others.

This program is free software; you can redistribute it an <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8248	8344	
==>n1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8248	8344	
==>n1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4199	4322	
==>p {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4199	4322	
==>p {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4199	4322	
==>p {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2643	2756	
==>, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2643	2756	
==>, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2643	2756	
==>, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($se <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11659	11745	
==>de_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeri <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11659	11745	
==>de_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeri <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	863	1033	
==>ew(:node<Array::Const>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).ad <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	779	893	
==>:croak "virtual method fmap called on @_";
    }

    sub str {
        Carp::croak "virtual method str called on @ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3525	3629	
==>ends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().pa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3583	3687	
==>ends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4957	5059	
==>inal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4957	5059	
==>inal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4957	5059	
==>inal operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	904	1017	
==>ift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	904	1017	
==>ift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	904	1017	
==>ift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1176	1280	
==>RGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1176	1280	
==>RGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1176	1280	
==>RGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	13	113	
==>Package::Source;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::C <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2678	2773	
==>sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0 <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2678	2773	
==>sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2590	2730	
==>>class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2590	2730	
==>>class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2590	2730	
==>>class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10759	10860	
==>return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10759	10860	
==>return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10759	10860	
==>return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7165	7259	
==>leton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8160	8254	
==>leton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10729	10823	
==>leton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	77	183	
==>p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	77	183	
==>p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	77	183	
==>p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2583	2695	
==>uired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2583	2695	
==>uired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2583	2695	
==>uired.";
        var system = Perl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	6	116	
==>e PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	6	116	
==>e PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	6	116	
==>e PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings " <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15418	15520	
==>dditiveExpression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <Rela <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	424	520	
==>r   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is non-id <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	424	520	
==>r   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is non-id <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	159	571	
==>.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	159	571	
==>.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # No <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12846	13020	
==>od::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11525	11697	
==>od::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15276	15448	
==>od::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->n <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1128	1229	
==>nge Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object represent <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1128	1229	
==>nge Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object represent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6827	6988	
==>self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6827	6988	
==>self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6827	6988	
==>self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21298	21394	
==>ases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to it sh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21298	21394	
==>ases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to it sh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5929	6026	
==>rammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::Tern <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1708	1803	
==>HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtU <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1708	1803	
==>HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtU <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16854	16949	
==>ld
normally just write some components of their application in Rosetta D (as
either named module <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16854	16949	
==>ld
normally just write some components of their application in Rosetta D (as
either named module <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2054	2151	
==>ou get used to infrastructure you've built up in Perl5

=head1 NAME

Meta::Class - Entities in the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2796	2891	
==>xample, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2796	2891	
==>xample, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5765	5875	
==>y $code = "";
    my(%created,%used);
    for my $n (@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $name = $ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1770	1877	
==>$Config{_exe}", 'install', '--user');
        chdir $pwd;
    }
    print "*** Finished building dependencie <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26584	26678	
==>r

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::Keyed <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26584	26678	
==>r

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::Keyed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	598	728	
==>) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	598	728	
==>) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	598	728	
==>) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	27	143	
==>"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	27	143	
==>"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	27	143	
==>"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	519	628	
==>arams->{arity},
		name => $params->{name},
		type => $params->{type},
    );
}

my %p6p5 = (
    '~' => '.',
) <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	741	850	
==>SIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greeting <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1325	1434	
==>SIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greeting <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1583	1741	
==>ess $_[3];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2144	2250	
==>/code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $mess <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2144	2250	
==>/code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $mess <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6985	7091	
==>" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implemented" };
sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	439	542	
==>" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "not implemented" };

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1340	1443	
==>" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implemented" };
sub <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1569	1710	
==>1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4021	4118	
==>recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4021	4118	
==>recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5399	5507	
==>$folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5399	5507	
==>$folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	496	601	
==>= bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, named <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	496	601	
==>= bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, named <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7966	8070	
==>1;
    $ver =~ s{(\d+)}{sprintf('%09s', $1)}eg;
    return $ver;
}

=head2 assert_ghc_pkg

Assert that we <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	610	724	
==>atch}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	610	724	
==>atch}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5945	6044	
==>hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5945	6044	
==>hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5945	6044	
==>hasn't been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14858	14992	
==>=> 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14858	14992	
==>=> 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14858	14992	
==>=> 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3440	3554	
==>ieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3440	3554	
==>ieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3440	3554	
==>ieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = un <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	778	931	
==>s/\'([^\']*)$//;
	    $mods = $1;
	}
        my $qr = eval{ $f->($mods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	18	118	
==>se strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	18	118	
==>se strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	18	118	
==>se strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15441	15615	
==>&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18918	19092	
==>&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relati <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	599	697	
==>f;
my $t6 = times;

printf "Total time: %.3f seconds (%.3f compilation, %.3f type checking, %.3f em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3949	4069	
==>::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3949	4069	
==>::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3949	4069	
==>::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3004	3150	
==>oncat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3015	3161	
==>oncat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	149	253	
==>en;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14372	14561	
==>sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14372	14561	
==>sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14372	14561	
==>sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn " <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1373	1514	
==>if $k eq 'revision';
                return 0 unless defined $o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16097	16192	
==>into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, befor <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16097	16192	
==>into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, befor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36941	37037	
==>ring with contents of assertion

=head2 flags

Family: flags

Types: flags (C<(?i-s)>)

=head2 mi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5849	5941	
==>um%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5849	5941	
==>um%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5527	5690	
==>start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5527	5690	
==>start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5527	5690	
==>start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14614	14761	
==>] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14608	14755	
==>] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4988	5110	
==>ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4988	5110	
==>ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4988	5110	
==>ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5346	5464	
==>%:methods;
}

(class (Class)
    ((attribute new (@:MRO))             (list)
     (attribute new (@:subclasses))      ( <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1046	1141	
==>t say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, tho <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1046	1141	
==>t say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, tho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1047	1168	
==>= shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1047	1168	
==>= shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3003	3102	
==>t of Perl 5 modules,
it is completely independent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The so <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11852	11961	
==>= shift;

    local $ENV{PERL5LIB};
    my $perl = $self->_command;
    my @inc =`$perl -le "print join qq[\n] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7256	7383	
==>f ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7256	7383	
==>f ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	929	1026	
==>next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	929	1026	
==>next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	929	1026	
==>next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$name } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3677	3782	
==>irs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3677	3782	
==>irs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3677	3782	
==>irs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	452	556	
==>it(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	452	556	
==>it(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what',' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	452	556	
==>it(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what',' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2136	2281	
==>> \$_[3], exp3 => \$_[5],} }",
        
    # XXX
    #infix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{ou <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	509	621	
==>= $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwi <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	509	621	
==>= $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3799	3905	
==>d name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/odd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3799	3905	
==>d name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/odd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3799	3905	
==>d name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/odd <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10222	10328	
==>ay value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10222	10328	
==>ay value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10222	10328	
==>ay value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3069	3237	
==>ebug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3069	3237	
==>ebug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug:: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8243	8346	
==>hObj, $whitespacePosition, $match);
  #What does this line 
  #$temp1 = length $key + $whitespacePositio <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	17	112	
==>::DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::N <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	17	112	
==>::DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4341	4525	
==>_('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4341	4525	
==>_('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4341	4525	
==>_('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23314	23456	
==>n::Example data type is proposed to be
generally useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5912	6012	
==>handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5600	5700	
==>handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obj <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3596	3730	
==>($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3596	3730	
==>($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1234	1362	
==>gs"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS';
# XXX: hack to be identified by smokeserv
$ENV{HARNESS_PERL}  = "$^ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	10	113	
==>P::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	10	113	
==>P::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	307	410	
==>m is a bit simpler than the previous version, but the complexity is the same.

TODO

- The structure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3156	3300	
==>ray' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3156	3300	
==>ray' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3156	3300	
==>ray' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20249	20345	
==>maintain and
and easy for developers to study.  As a result, while it performs correctly
and reli <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20249	20345	
==>maintain and
and easy for developers to study.  As a result, while it performs correctly
and reli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	761	897	
==>ass') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	761	897	
==>ass') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	761	897	
==>ass') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5079	5190	
==>&{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2621	2732	
==>&{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3402	3513	
==>&{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21158	21262	
==>nfix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21158	21262	
==>nfix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21158	21262	
==>nfix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4938	5030	
==>turn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4938	5030	
==>turn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4938	5030	
==>turn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	658	834	
==>P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lon <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	658	834	
==>P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	265	365	
==>$class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	265	365	
==>$class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	265	365	
==>$class, %params) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bles <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6611	6710	
==>HS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6611	6710	
==>HS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1056	1187	
==>@_;
    # Do not try to microoptimize by factoring out the "not ".
    # VMS will avenge.
    my $out;
    if ($name) {
        # es <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7850	7949	
==>::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCR <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7850	7949	
==>::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15224	15367	
==>NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15224	15367	
==>NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15224	15367	
==>NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	449	551	
==>[\n|$] |
  \N* [ $ | \n <pod> ]
))->code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16057	16156	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16057	16156	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16057	16156	
==>make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19492	19589	
==>e Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> st <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19492	19589	
==>e Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> st <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14686	14799	
==>e_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14686	14799	
==>e_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $se <==
3	/Users/nnunley/pugs/util/package-osx.pl	5510	5608	
==>AQ::FUD.3
        /usr/local/man/man3/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/Perl6::Overvi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5159	5291	
==>_instance_class($self)->add_method($label, $method);
        },          
    },
);

# < Class is a subclass of Object >
::opaque_ins <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1146	1252	
==>ring_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1157	1263	
==>ring_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7678	7783	
==>>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7678	7783	
==>>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7678	7783	
==>>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	258	378	
==>w PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	258	378	
==>w PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	258	378	
==>w PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1600	1717	
==>S';
conv_array {
    s/\$(${re_symbol}\[.+])/\@$1/g;
    s/\$#(${re_symbol})/\@$1.last/g;  # last_index
}

conv_hash { <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1056	1160	
==>my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @with <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1056	1160	
==>my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14417	14511	
==>bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14417	14511	
==>bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14417	14511	
==>bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10611	10725	
==>mented
    # -----------------------------------------------

    method add_method;
    method get_method;
    met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10611	10725	
==>mented
    # -----------------------------------------------

    method add_method;
    method get_method;
    met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10611	10725	
==>mented
    # -----------------------------------------------

    method add_method;
    method get_method;
    met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36955	37048	
==>xt_string = $translator.translate_message( $message );

=back

The Translator class also has t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36955	37048	
==>xt_string = $translator.translate_message( $message );

=back

The Translator class also has t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	698	795	
==>s('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	698	795	
==>s('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	698	795	
==>s('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3161	3294	
==>{ 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3161	3294	
==>{ 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3161	3294	
==>{ 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mode, $content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1037	1144	
==>d warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1037	1144	
==>d warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1037	1144	
==>d warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>unde <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9199	9352	
==>old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10190	10343	
==>old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18333	18433	
==>s {  # see 11.12
      <LogicalORExpression>
    | <LogicalORExpression> <'?'> <AssignmentExpression> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7047	7160	
==>$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7606	7719	
==>$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24009	24116	
==>p_CODE: bug";
       }
      }'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Excepti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10323	10432	
==>$start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10323	10432	
==>$start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10323	10432	
==>$start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2346	2473	
==>instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2551	2678	
==>instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3342	3469	
==>instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name' <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	573	698	
==>mmand
sub can_run {
    my ($self, $cmd) = @_;
    # XXX: what to do in native win32?
    my $mx = $^O eq 'cygwin' ?
        s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13250	13342	
==>$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13250	13342	
==>$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8015	8130	
==>$val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8015	8130	
==>$val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7248	7348	
==>"backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7248	7348	
==>"backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7248	7348	
==>"backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	367	462	
==>icode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	367	462	
==>icode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compa <==
3	/Users/nnunley/pugs/util/package-osx.pl	8205	8294	
==>/usr/local/man/man3/Perl6::Spec::Subroutine.3pm
        /usr/local/man/man3/Perl6::Spec::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3281	3397	
==>b {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3281	3397	
==>b {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3281	3397	
==>b {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11000	11091	
==>ts on Role state:
-------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11000	11091	
==>ts on Role state:
-------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11000	11091	
==>ts on Role state:
-------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2195	2307	
==>:{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2195	2307	
==>:{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2195	2307	
==>:{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3668	3783	
==>elf->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3668	3783	
==>elf->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3668	3783	
==>elf->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1078	1181	
==>..}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "ibl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1078	1181	
==>..}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "ibl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25377	25473	
==>urns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<renam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29929	30025	
==>urns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<renam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28868	28964	
==>urns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<renam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1322	1413	
==>IL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1322	1413	
==>IL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1322	1413	
==>IL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2654	2788	
==>sa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2654	2788	
==>sa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2654	2788	
==>sa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7442	7562	
==>m"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Modifier")
    pos = mfrom
    lastpos = length target
    val <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	681	782	
==>ld test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message i <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	681	782	
==>ld test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13535	13682	
==>s = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13535	13682	
==>s = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13535	13682	
==>s = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2120	2226	
==>'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2120	2226	
==>'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2120	2226	
==>'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25934	26031	
==>=item C<HARNESS_ACTIVE>

Harness sets this before executing the individual tests.  This allows
the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12920	13021	
==>UB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12920	13021	
==>UB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12920	13021	
==>UB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2485	2586	
==>st the integration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2485	2586	
==>st the integration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2485	2586	
==>st the integration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4664	4788	
==>\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4857	4981	
==>\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	321	426	
==>47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	321	426	
==>47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	321	426	
==>47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use Fi <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	111	237	
==>s) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	111	237	
==>s) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1360	1486	
==>file.PL).

.
    }       

    open my $fh, $filename or die "open: $filename: $!";
    { local $/; $stream = <$fh> }
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3567	3681	
==>') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3567	3681	
==>') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3567	3681	
==>') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6171	6278	
==>le->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6171	6278	
==>le->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6171	6278	
==>le->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_nam <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13591	13699	
==>ause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by entering the following command as ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3560	3685	
==>ethods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3560	3685	
==>ethods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3560	3685	
==>ethods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_method($method_name => ::make_priv <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1085	1179	
==>ULNUL => --$ENUM, '%s matches null string many times';
use constant RPe_NESTED => --$ENUM, 'Nes <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36030	36128	
==>on of the invocant and <$other> headings. 
The body of the new relation is the result of first pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40580	40677	
==>on of the invocant and <$other> headings.
The body of the new relation is the result of first pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40194	40291	
==>on of the invocant and <$other> headings.
The body of the new relation is the result of first pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1250	1375	
==>$_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain glob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1250	1375	
==>$_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain glob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1250	1375	
==>$_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain glob <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2445	2548	
==>ined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2445	2548	
==>ined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2445	2548	
==>ined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      / <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11591	11684	
==>.header("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11591	11684	
==>.header("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9125	9312	
==>m => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9125	9312	
==>m => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9125	9312	
==>m => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1726	1838	
==>== 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUG <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1726	1838	
==>== 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUG <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1726	1838	
==>== 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUG <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9690	9787	
==>documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9748	9845	
==>documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2392	2497	
==>, ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2392	2497	
==>, ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2392	2497	
==>, ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1627	1746	
==>P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1627	1746	
==>P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36455	36552	
==>s.  The sequence in which any two source relations are
combined is inconsequential.  A trivial cas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41004	41101	
==>s.  The sequence in which any two source relations are
combined is inconsequential.  A trivial cas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40618	40715	
==>s.  The sequence in which any two source relations are
combined is inconsequential.  A trivial cas <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19639	19742	
==>inueStatement>
    | <BreakStatement>
    | <ReturnStatement>
    | <WithStatement>
    | <LabelledState <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23604	23697	
==>le L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23604	23697	
==>le L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6272	6367	
==>\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6272	6367	
==>\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6272	6367	
==>\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	295	437	
==>ntainer::Hash' => {
    does => [ 'IHash' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7592	7681	
==>R))  --> p5_elemental(lookahead_not(R)).
p5_condition_test(lookbehind(R))     --> p5_eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9962	10084	
==>f $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use ut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9962	10084	
==>f $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use ut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9962	10084	
==>f $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use ut <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4026	4137	
==>mizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3884	3992	
==>mizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10956	11070	
==>d only one delimiter was specified)
      my $regex    = $7; 
      # captures delimited portion of the string (pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1307	1405	
==>p( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1307	1405	
==>p( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2735	2931	
==>ackage name
                     ([\d.]+)   -   # the version
                     (\w+\+\S+) $   # the authority
                /smx;
                
        sub package_prefix      { $_[0] =~ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4034	4149	
==>s a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4046	4161	
==>s a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1327	1490	
==>|| document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1327	1490	
==>|| document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1327	1490	
==>|| document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3005	3122	
==>onfig;
    my $meta = $self->meta;

    ### if we didn't get a meta object, we'll fetch it from the .jib
    unless( $ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2614	2723	
==>encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2614	2723	
==>encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	973	1080	
==>ub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	973	1080	
==>ub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	973	1080	
==>ub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1906	2084	
==>Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2111	2289	
==>Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2174	2352	
==>Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2458	2560	
==>:Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2458	2560	
==>:Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2458	2560	
==>:Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2260	2365	
==>'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2260	2365	
==>'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2260	2365	
==>'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	613	718	
==>ash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	613	718	
==>ash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3652	3746	
==>ec';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tan <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18234	18333	
==>ening file', programs would have a harder time figuring out the
best way to deal with it.  But for d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18234	18333	
==>ening file', programs would have a harder time figuring out the
best way to deal with it.  But for d <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1989	2073	
==>nstruct_but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14100	14245	
==>lf->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14100	14245	
==>lf->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14100	14245	
==>lf->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	876	1004	
==>(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	876	1004	
==>(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	876	1004	
==>(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6513	6615	
==>qrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6513	6615	
==>qrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6513	6615	
==>qrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	547	673	
==>c::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><tit <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	547	673	
==>c::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><tit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25812	25907	
==>pdate its target's C<pos()>.  This method, where it returns a
I<reference> to a scalar, makes it <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	279	390	
==>string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	279	390	
==>string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1662	1767	
==>function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1662	1767	
==>function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1662	1767	
==>function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19015	19122	
==>ata} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{dat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20373	20480	
==>ata} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{dat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	987	1079	
==>IT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	987	1079	
==>IT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3228	3326	
==>&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3216	3314	
==>&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	109	203	
==>dule::Install::Base;

# Suspend handler for "redefined" warnings
BEGIN { my $w = $SIG{__WARN__} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	275	372	
==>pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	275	372	
==>pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	275	372	
==>pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2205	2308	
==>ten in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2124	2224	
==>ten in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3646	3751	
==>>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3830	3935	
==>>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2467	2567	
==>ut rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <AR <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2467	2567	
==>ut rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <AR <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21667	21765	
==>ere><Identifier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      <'break'><no_LineTerminato <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1294	1384	
==>PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1294	1384	
==>PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1294	1384	
==>PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	379	487	
==>Str::hash,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::Var::hash,
    );
    $class->SUPER::re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13921	14028	
==>_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13921	14028	
==>_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::M <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2315	2413	
==>or more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about me <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2315	2413	
==>or more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about me <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2099	2197	
==>JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.4
method <[[HasProperty]]> ($O: JSX::Strin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4868	4979	
==>f $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4868	4979	
==>f $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4982	5084	
==>e_simple {
    my($self,$fname)=@_;
    my $ftype = $self->{'field_type'}{$fname};
    $ftype =~ s/Maby <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1523	1650	
==>ddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "Could not clean out '$builddir'" ), r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16908	17005	
==>span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16908	17005	
==>span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()` <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10228	10326	
==>ests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expected <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10286	10384	
==>ests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expected <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	784	874	
==>n changed to cc_optimize_flags for consistency reasons";
	shift()->cc_optimize_flags(@_);
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11798	11942	
==>ther relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15275	15419	
==>ther relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14610	14754	
==>ther relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	82	178	
==>ire Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	269	365	
==>ire Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	456	552	
==>ire Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2943	3080	
==>ash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2943	3080	
==>ash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2943	3080	
==>ash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24327	24425	
==>er that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28879	28977	
==>er that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5447	5556	
==>ction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5447	5556	
==>ction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5447	5556	
==>ction_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9405	9562	
==>my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9405	9562	
==>my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2231	2378	
==>fig->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $config->repo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8488	8630	
==>, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8488	8630	
==>, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8488	8630	
==>, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1494	1597	
==>he same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        sho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1494	1597	
==>he same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        sho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1494	1597	
==>he same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        sho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6360	6516	
==>';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3485	3641	
==>';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4334	4490	
==>';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9107	9213	
==>ches necessary to run the test.

=cut

sub _switches {
    my($self, $file) = @_;

    my @existing_switche <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6090	6187	
==>are returned as one long string.

=item List Context

All headers are returned split into the resp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6090	6187	
==>are returned as one long string.

=item List Context

All headers are returned split into the resp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6114	6239	
==>if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs]e|licen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17183	17281	
==>s) of the intended audience for the message
content.  The value is one or more language tags as def <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17183	17281	
==>s) of the intended audience for the message
content.  The value is one or more language tags as def <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4481	4613	
==>gspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4621	4753	
==>gspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13024	13121	
==>et1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13024	13121	
==>et1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15046	15141	
==>dth);

Generates the 't/foo........' leader for the given C<$test_file> as well
as a similar ver <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4755	4854	
==>rter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4755	4854	
==>rter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13670	13768	
==>_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <MemberExpression> <Arg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34817	34911	
==>ocant Relation and that match any tuples of C<$other> along
their common attributes.  This meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39367	39461	
==>ocant Relation and that match any tuples of C<$other> along
their common attributes.  This meth <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6713	6863	
==>rror("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    return 1;
    
}

=head2 JIB::Utils->_mode_plus_w( file = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8004	8107	
==>ame eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8004	8107	
==>ame eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8004	8107	
==>ame eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETC <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21559	21653	
==>de some of your messages, showing other messages instead which are
more appropriate to the cont <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21559	21653	
==>de some of your messages, showing other messages instead which are
more appropriate to the cont <==
3	/Users/nnunley/pugs/util/func_refact.pl	1216	1342	
==>ding candidates.\n\n";

        candidates(\%ccset);
	#while (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4036	4150	
==>}
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = shift;
	my $class = sh <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1532	1639	
==>om },

		{ $^a.round_half_ceiling },
		{ $^a.round_toward_zero },
		{ $^a.round_away_from_zero },

#		{ $^a. <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1957	2077	
==>int 16.0 * 1024;
my $cdroot       = "cdroot";
my $iso          = "cd.iso";

sub usage { print <<USAGE; exit }
Usage: $0 [ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3941	4039	
==>ent_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        comple <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3941	4039	
==>ent_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5328	5436	
==>unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5328	5436	
==>unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5328	5436	
==>unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	932	1047	
==>st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	932	1047	
==>st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	932	1047	
==>st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1860	2060	
==>[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1799	1992	
==>[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	169	273	
==>ge hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1771	2004	
==>!$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1771	2004	
==>!$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else { <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	214	322	
==>stall::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = shift;
    my @modules <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24113	24207	
==>code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText doe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24113	24207	
==>code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	194	313	
==>{
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	194	313	
==>{
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	194	313	
==>{
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FET <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23593	23705	
==>ing object
can mutate.  Depending on the implementing class, it can default to True or
False, but once it has a v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28145	28257	
==>ing object
can mutate.  Depending on the implementing class, it can default to True or
False, but once it has a v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26958	27070	
==>ing object
can mutate.  Depending on the implementing class, it can default to True or
False, but once it has a v <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4241	4352	
==>PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_E <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4241	4352	
==>PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_E <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1091	1202	
==>PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10410	10543	
==>cause it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10410	10543	
==>cause it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10410	10543	
==>cause it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #w <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4075	4183	
==>=\w)//s;
	return if $ref eq $cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11688	11785	
==>ll of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11688	11785	
==>ll of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Roset <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26069	26169	
==>e; you should make sure in yours.

Matching against the regex is done in scalar context, globally, li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1820	1964	
==>le (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1820	1964	
==>le (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1820	1964	
==>le (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34486	34594	
==>hers are
possible (Unicode properties and user-defined POSIX classes)

Data: 'POSIX' if C<[:NAME:]>, C<[^:NAM <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2687	2784	
==>t " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2687	2784	
==>t " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	358	466	
==>y $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	358	466	
==>y $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	358	466	
==>y $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	965	1096	
==>->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasynta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	965	1096	
==>->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasynta <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2646	2764	
==>_fields#/$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6358	6462	
==>.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6358	6462	
==>.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6358	6462	
==>.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7897	8008	
==>thod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7897	8008	
==>thod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7897	8008	
==>thod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8537	8654	
==>lf->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8537	8654	
==>lf->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8537	8654	
==>lf->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6678	6778	
==>e_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6678	6778	
==>e_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6678	6778	
==>e_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20676	20774	
==>$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20676	20774	
==>$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20676	20774	
==>$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	737	840	
==>> q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	737	840	
==>> q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	762	889	
==>ext_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	762	889	
==>ext_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	762	889	
==>ext_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispa <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6664	6766	
==>Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6664	6766	
==>Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	4	103	
==>odule Foo; ..." is equivalent to "module Foo {...}", so it returns the Foo
# module object, see thre <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15557	15691	
==>_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15551	15685	
==>_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	72	182	
==>ock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gnu/doc/html <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2130	2231	
==>r 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Se <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2130	2231	
==>r 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	255	359	
==>nizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	255	359	
==>nizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	255	359	
==>nizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2784	2898	
==>+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2784	2898	
==>+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2784	2898	
==>+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14460	14588	
==>_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14460	14588	
==>_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14460	14588	
==>_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11581	11721	
==>%opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11581	11721	
==>%opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11581	11721	
==>%opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4810	4965	
==>g raw YAML results.
            @tests = sort @tests;
        }
        if ( $Config{dry} ) {
            print join( "\n", @tests, "" );
            exit 0 <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	715	825	
==>else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	715	825	
==>else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	674	775	
==>s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	674	775	
==>s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	674	775	
==>s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4181	4304	
==>/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4181	4304	
==>/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29386	29483	
==>raw data
on the state of the tests.  (Partially done in Test::Harness::Straps)

Document the forma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3357	3479	
==>sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1715	1837	
==>sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2495	2617	
==>sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11673	11815	
==>, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_") {
          mkdir "$initrd_mnt/lib6/$_";
        } else {
          copy <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20471	20569	
==>our programs do or
might have, and lets you arrange the list in order of preference.  When you
open <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20471	20569	
==>our programs do or
might have, and lets you arrange the list in order of preference.  When you
open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29431	29540	
==>ef $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29431	29540	
==>ef $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29431	29540	
==>ef $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9091	9188	
==>e same failure object always

then there's absolutely no overhead

I'm not sure about this - faile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8792	8887	
==>e same failure object always
then there's absolutely no overhead
I'm not sure about this - faile <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7567	7671	
==>encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7567	7671	
==>encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16216	16309	
==>l named parameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it def <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16216	16309	
==>l named parameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6483	6612	
==>name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6483	6612	
==>name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6483	6612	
==>name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	274	368	
==>if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	274	368	
==>if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	274	368	
==>if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var prox <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23132	23263	
==>{flags}[-1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      z <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9945	10042	
==>d".  The immediate validations
are performed at the moment the user tries to set the input, and in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9945	10042	
==>d".  The immediate validations
are performed at the moment the user tries to set the input, and in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1472	1601	
==>ss.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The defa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1472	1601	
==>ss.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The defa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1472	1601	
==>ss.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1660	1756	
==>=> '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => [] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1660	1756	
==>=> '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => [] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1660	1756	
==>=> '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => [] <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3494	3613	
==>$set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3494	3613	
==>$set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16003	16109	
==>Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'Na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16003	16109	
==>Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'Na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16003	16109	
==>Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'Na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6809	6915	
==>rmat '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6809	6915	
==>rmat '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6809	6915	
==>rmat '0.0.0'";
        ::opaque_instance_attr($self => '$:version') = $version;
    }
    ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1032	1136	
==>tta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1032	1136	
==>tta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Do <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1701	1795	
==>ert> :remove_subscription<remove> .= new;
}

class Class::Events::Subscription {
    has Class: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4272	4373	
==>ly has one function, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

Th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24992	25090	
==>nts is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24992	25090	
==>nts is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover th <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2440	2547	
==>d quarter returns Int { int(($.month+2)/3) }
method month_0 returns Int { $.month - 1 }
method yy returns In <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27672	27771	
==>hod returns a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27672	27771	
==>hod returns a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	669	764	
==>O - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	669	764	
==>O - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	669	764	
==>O - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:< <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	763	878	
==>{ 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module should be core!" );
        retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2044	2159	
==>{ 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module should be core!" );
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1994	2095	
==>s("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1994	2095	
==>s("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1994	2095	
==>s("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $mini = run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9184	9309	
==>return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9184	9309	
==>return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9184	9309	
==>return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2350	2452	
==>bute names must be symbols";
    ($self->[2]->exists($name) == $bit::FALSE)
        || confess "Attribu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12037	12135	
==>-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12037	12135	
==>-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14471	14578	
==>link ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14471	14578	
==>link ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14471	14578	
==>link ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $x <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1964	2063	
==>The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer v <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1964	2063	
==>The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4700	4799	
==>args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $class );
}

sub call {
	my ($self, $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2887	2977	
==>running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2887	2977	
==>running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2887	2977	
==>running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10987	11096	
==>)
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10987	11096	
==>)
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10987	11096	
==>)
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4818	4957	
==>del/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4818	4957	
==>del/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4818	4957	
==>del/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=htm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12559	12686	
==>ell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'del <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12559	12686	
==>ell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'del <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12559	12686	
==>ell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'del <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4105	4244	
==>n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1348	1465	
==>how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1348	1465	
==>how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1348	1465	
==>how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>u <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5973	6089	
==>l tests passed
    sub_skipped     Number of individual tests skipped
    todo            Number of individual todo t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1822	1923	
==>}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expr <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1822	1923	
==>}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5229	5392	
==>4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5229	5392	
==>4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5229	5392	
==>4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multil <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	111	212	
==>" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($ <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	111	212	
==>" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13182	13300	
==>ave overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16659	16777	
==>ave overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16021	16139	
==>ave overlapping non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second sou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8176	8318	
==>ists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_ty <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8176	8318	
==>ists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_ty <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	869	973	
==>rmal Code refs only in that they do not have a
dynamically bound scope for private accessors, etc.

=back <==
3	/Users/nnunley/pugs/util/version_h.pl	2258	2355	
==>uild Help.hs to show new revision number
    unlink "$base/dist/build/src/Pugs/Version.hi";
    un <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28283	28379	
==>tion
which is the same as the invocant Relation but that some of its attributes
have been combine <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32835	32931	
==>tion
which is the same as the invocant Relation but that some of its attributes
have been combine <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6145	6260	
==>[^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6145	6260	
==>[^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex( <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1732	1851	
==>ELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEMP_PRELUDE): $!"; 
    my $program = d <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10700	10792	
==>ray>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10700	10792	
==>ray>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8558	8668	
==>PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8558	8668	
==>PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8558	8668	
==>PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1256	1375	
==>ue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1256	1375	
==>ue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1256	1375	
==>ue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10521	10649	
==>Model/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10521	10649	
==>Model/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10521	10649	
==>Model/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	108	202	
==>---------------------------------------------
## now for some bootstrapping ....

## See http:/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	108	202	
==>---------------------------------------------
## now for some bootstrapping ....

## See http:/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	108	202	
==>---------------------------------------------
## now for some bootstrapping ....

## See http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	576	689	
==>ds: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	576	689	
==>ds: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	576	689	
==>ds: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2150	2271	
==>atement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	whil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2150	2271	
==>atement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	whil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2150	2271	
==>atement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	whil <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1706	1814	
==>y();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1706	1814	
==>y();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1095	1190	
==>eSafe::Type/;
	sub type { $_[0] }

	package Blondie::TypeSafe::Type::Placeholder;
	use base qw/B <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15810	15907	
==>-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15810	15907	
==>-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4545	4639	
==>ay.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4545	4639	
==>ay.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4545	4639	
==>ay.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1394	1494	
==>re(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1394	1494	
==>re(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1394	1494	
==>re(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaM <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1079	1192	
==>$err = $!."\n";
	$err = `cat $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pilfn.err" or d <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3573	3669	
==>ect representing the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch ti <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3573	3669	
==>ect representing the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch ti <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9300	9402	
==>") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are t <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9300	9402	
==>") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	439	532	
==>1 NAME

Blondie::Prelude - Aggregator of builtin functions for Blondie runtimes

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	864	976	
==>.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	864	976	
==>.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	864	976	
==>.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22570	22672	
==>s 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27122	27224	
==>s 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25854	25956	
==>s 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

=over

=item C< <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	889	1029	
==>e, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .cod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	889	1029	
==>e, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .cod <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1713	1825	
==>um )
 {
     Math::Basic::log($x,$base);
 }
 multi Math::Basic::log ( Num $x = CALLER::<$_>, Num :$base --> Num ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11707	11822	
==>her.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11707	11822	
==>her.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11707	11822	
==>her.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice to non-array objec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5440	5549	
==>in( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5440	5549	
==>in( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24450	24680	
==>);
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24450	24680	
==>);
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24450	24680	
==>);
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	610	721	
==>s {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	610	721	
==>s {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	610	721	
==>s {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3850	4013	
==>shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3850	4013	
==>shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3850	4013	
==>shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13856	13956	
==>er = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13856	13956	
==>er = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13856	13956	
==>er = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7227	7326	
==>reak the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into package <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7227	7326	
==>reak the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into package <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11013	11130	
==>ht want to strip pugs and parrot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1894	1991	
==>code {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1818	1913	
==>code {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1558	1720	
==>[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1504	1661	
==>[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2688	2783	
==>mainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extracted = substr( $e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10729	10894	
==>sing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7070	7235	
==>sing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7919	8084	
==>sing
    
            # emit the macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	403	513	
==>lf = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	403	513	
==>lf = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22426	22519	
==>"#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22426	22519	
==>"#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2370	2776	
==>face::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2370	2776	
==>face::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Inte <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9555	9671	
==>erived_switches, "-$1" ) if $taint;

    # When taint mode is on, PERL5LIB is ignored.  So we need to put
    # all t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4502	4637	
==>y $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # M <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4502	4637	
==>y $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	371	468	
==>{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2860	3092	
==>Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2860	3092	
==>Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2860	3092	
==>Object';
                            $cell->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	82	194	
==>mentation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	80	186	
==>mentation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1293	1387	
==>_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1293	1387	
==>_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1293	1387	
==>_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($nam <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14913	15009	
==>ference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14913	15009	
==>ference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6926	7039	
==>urpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6926	7039	
==>urpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6926	7039	
==>urpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2402	2560	
==>$to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2402	2560	
==>$to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2402	2560	
==>$to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8352	8490	
==>ift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8352	8490	
==>ift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8352	8490	
==>ift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	27	135	
==>ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	27	135	
==>ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	27	135	
==>ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8894	9086	
==>_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5254	5446	
==>_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6103	6295	
==>_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	326	436	
==>_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	326	436	
==>_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	326	436	
==>_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	716	872	
==>%hash ) 
                or error( Params::Check->last_error ), return;

    ### make it a P::C item
    $args->{file} = Path::Class::file( $file );

    whi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16507	16603	
==>nd the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16507	16603	
==>nd the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3775	3889	
==>(defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3775	3889	
==>(defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3775	3889	
==>(defined $label)
            || confess "You must provide a method label for WALKMETH";
        warn "::WALKMETH ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	182	299	
==>ngs;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	70	182	
==>ngs;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	70	182	
==>ngs;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14638	14733	
==>ordering the header fields.  Long header
values are not folded.

The optional $eol parameter spe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14638	14733	
==>ordering the header fields.  Long header
values are not folded.

The optional $eol parameter spe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27925	28042	
==>s> is empty, the output relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32477	32594	
==>s> is empty, the output relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31569	31686	
==>s> is empty, the output relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplica <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2539	2635	
==>es not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2539	2635	
==>es not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2539	2635	
==>es not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	316	430	
==>xity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22523	22616	
==>tside
environment at all.

A Relation object has 2 main attributes (implementation details sub <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27075	27168	
==>tside
environment at all.

A Relation object has 2 main attributes (implementation details sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7818	7933	
==>f->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7818	7933	
==>f->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7818	7933	
==>f->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15575	15684	
==>parent->splice_content($beg_n, $end_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kid <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19631	19729	
==>s to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19631	19729	
==>s to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2580	2684	
==>code = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2580	2684	
==>code = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub nod <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8095	8195	
==>}, $_[1]{instance}, @_[2, 3]) };

# nullary operators much have the same name (e.g. int == int, str = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8688	8816	
==>{
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8688	8816	
==>{
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8688	8816	
==>{
        # check for instance attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1132	1272	
==>'{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1132	1272	
==>'{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && <==
3	/Users/nnunley/pugs/util/func_refact.pl	2630	2745	
==>cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) for
        sort <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	449	549	
==>se File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	449	549	
==>se File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	449	549	
==>se File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7197	7378	
==>('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7197	7378	
==>('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7197	7378	
==>('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16096	16215	
==>$to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16096	16215	
==>$to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	497	596	
==>iv;
		my $orig = $node->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8812	8925	
==>ce (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12289	12402	
==>ce (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15248	15341	
==>st(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_rewrite(X,X,RW0,RW0).
re_rewrite_list([],[],RW0,RW0).
r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	808	926	
==>)
        || confess "body must be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	630	727	
==>->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	630	727	
==>->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	936	1065	
==>_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	936	1065	
==>_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	936	1065	
==>_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'P <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7383	7516	
==>}
    else {
        $depends = ', unix -any';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16813	16939	
==>' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13234	13360	
==>' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4401	4508	
==>our Int multi Num::round_toward_zero ( Num $x ) {
    my $x_round;

    # round floor above 0, round ceiling <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10	108	
==>n/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10	108	
==>n/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5436	5544	
==>s.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5436	5544	
==>s.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6486	6580	
==>ON

This module parses regular expressions (regexes).  Its default "grammar"
is Perl 5.8.4's re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3007	3122	
==>type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3007	3122	
==>type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3007	3122	
==>type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11490	11618	
==>o-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11484	11612	
==>o-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26118	26226	
==>st the regex is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30450	30547	
==>n the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35001	35098	
==>n the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34183	34280	
==>n the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which it gets a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14884	15034	
==>tant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14884	15034	
==>tant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14884	15034	
==>tant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8404	8517	
==>e) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} / <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8404	8517	
==>e) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1799	1894	
==>_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1799	1894	
==>_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1799	1894	
==>_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5263	5367	
==>t "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

if($src <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15814	15905	
==>b site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15814	15905	
==>b site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
se <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4641	4753	
==>mplement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    ret <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4641	4753	
==>mplement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    ret <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23179	23290	
==>.local pmc exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    exp1 = self[1]
    exp1["cname"] = cname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19891	20026	
==>ith it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19891	20026	
==>ith it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19891	20026	
==>ith it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	542	640	
==>rep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	542	640	
==>rep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2046	2170	
==>g{exclude_re} && $currfile =~ $Config{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $c <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3141	3244	
==>PLOAD} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub check_prereq {
    my ($m <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1136	1235	
==>ass POE::Session {
  method dispatch (Str $event, *@args) {
    die 'Please override &dispatch in yo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2021	2138	
==>attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2021	2138	
==>attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2021	2138	
==>attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1722	1868	
==>et()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5199	5345	
==>et()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4129	4275	
==>et()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	112	212	
==>ghly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loadi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	112	212	
==>ghly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loadi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	112	212	
==>ghly depends on the
# exact commandline options given.)
# Searching for a way to keep pugs from loadi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	229	334	
==>n override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	229	334	
==>n override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.b <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6513	6614	
==>klivecd.pl to refetch the kernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4215	4318	
==><<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4215	4318	
==><<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4215	4318	
==><<EOF;
    <script type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	192	295	
==>") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	192	295	
==>") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	192	295	
==>") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PI <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12926	13031	
==>,'>
}
rule ObjectLiteral :words {  # see 11.1.5
      <'{'> <'}'>
    | <'{'> <PropertyNameAndValueList> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2496	2594	
==>000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2496	2594	
==>000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2496	2594	
==>000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	442	541	
==>y = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	442	541	
==>y = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	442	541	
==>y = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5175	5265	
==>make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5175	5265	
==>make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5175	5265	
==>make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3323	3413	
==>lf)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3323	3413	
==>lf)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3323	3413	
==>lf)->dispatcher(':canonical'), $label);
});

::Class.meta.add_method('id' => method () { :: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10085	10221	
==>ub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      return $S->$n;
    }

    return $S->object(bol => b <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20857	20953	
==>lots of other program resources as data files as well, making them easy to
upgrade.

Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20857	20953	
==>lots of other program resources as data files as well, making them easy to
upgrade.

Locale::Keye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	168	279	
==>self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	168	279	
==>self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	168	279	
==>self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11832	11919	
==>ternals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11832	11919	
==>ternals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11832	11919	
==>ternals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5216	5308	
==>valX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5216	5308	
==>valX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5216	5308	
==>valX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3211	3359	
==>arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3211	3359	
==>arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3211	3359	
==>arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash slice to non-array object!");
        }

        v <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1554	1644	
==>m[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1554	1644	
==>m[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	937	1035	
==>efix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	937	1035	
==>efix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	937	1035	
==>efix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1401	1572	
==>ta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1401	1572	
==>ta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1746	1875	
==>, '\t');
  });

  # bol, mbol, sbol
  $self->add_handler('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	640	743	
==>rn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	640	743	
==>rn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11355	11462	
==>.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11355	11462	
==>.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } ) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5410	5512	
==>iable is a placeholder
# when going into an AST these are generated
# as the AST is left they are unifi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15173	15271	
==>t using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METH <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15173	15271	
==>t using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METH <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3455	3578	
==>t
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3455	3578	
==>t
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => ' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3662	3779	
==>a Relation::Example to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8171	8278	
==>l)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8171	8278	
==>l)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8171	8278	
==>l)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	390	511	
==>:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	390	511	
==>:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	390	511	
==>:
# method assuming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27853	28008	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28132	28287	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::ca <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14568	14679	
==>xpression>
    | <'++'> <UnaryExpression>
    | <'--'> <UnaryExpression>
    | <'+'> <UnaryExpression>
    | <'- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	931	1052	
==>ry to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	931	1052	
==>ry to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	931	1052	
==>ry to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1172	1269	
==>@input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1172	1269	
==>@input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1172	1269	
==>@input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16038	16154	
==>$password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    }, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16038	16154	
==>$password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    }, <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6277	6376	
==>kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= SYN <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6277	6376	
==>kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= SYN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1431	1569	
==>ee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1431	1569	
==>ee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1431	1569	
==>ee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	932	1084	
==>ype::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&print',
            body <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12025	12134	
==>f $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4668	4777	
==>f $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10034	10207	
==>son      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new(
              description => $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	596	759	
==>son      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	596	759	
==>son      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2460	2582	
==>tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2366	2483	
==>tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17415	17511	
==>from that class.

There are no longer I<star>, I<plus>, and I<curly> classes; they have been
comb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2323	2546	
==>( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1463	1630	
==>( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1463	1630	
==>( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	120	244	
==>x.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	120	244	
==>x.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	120	244	
==>x.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11455	11565	
==>od_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11455	11565	
==>od_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11455	11565	
==>od_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3027	3140	
==>ethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3027	3140	
==>ethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3027	3140	
==>ethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fai <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6558	6687	
==>> );
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pType"> );
        $ret = emit_Code( $body, $is_multi, $lva <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2434	2529	
==>PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2434	2529	
==>PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5011	5109	
==>MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5011	5109	
==>MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5011	5109	
==>MyName", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10100	10298	
==>lf->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10100	10298	
==>lf->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10100	10298	
==>lf->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                }
                return join( ', ', @s );        
            }, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9355	9472	
==>ck       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9355	9472	
==>ck       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	300	411	
==>ml =>  ['XML::Generator' => \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xm <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26744	26842	
==>s of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias nam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31296	31394	
==>s of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias nam <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5215	5341	
==>parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5215	5341	
==>parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	876	991	
==>g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	876	991	
==>g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	876	991	
==>g global>;
    %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	236	334	
==>ass;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	236	334	
==>ass;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	236	334	
==>ass;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}->handleWhitespace(S <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4718	4894	
==>ar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     gather  safe   (Code)\
\\n   List      pre     map     safe   (Code, List)\
\\n   List      pre     g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2306	2397	
==>mmar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2395	2486	
==>mmar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14191	14387	
==>ems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14191	14387	
==>ems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14191	14387	
==>ems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11635	11748	
==>$key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11635	11748	
==>$key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11635	11748	
==>$key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17374	17480	
==>1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17374	17480	
==>1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17374	17480	
==>1) { p6_from_n(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3195	3302	
==>retval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3195	3302	
==>retval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3195	3302	
==>retval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2831	2931	
==>printf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2831	2931	
==>printf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2831	2931	
==>printf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var _ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	222	361	
==>.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't ins <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	222	361	
==>.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't ins <==
3	/Users/nnunley/pugs/util/package-osx.pl	8378	8475	
==>/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pug <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7307	7431	
==>len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7307	7431	
==>len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9135	9242	
==>=> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, $how);
  }) <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3006	3109	
==>}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3006	3109	
==>}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1971	2117	
==>ion."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::Fal <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5448	5594	
==>ion."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::Fal <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4378	4524	
==>ion."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::Fal <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6735	6861	
==>$v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7107	7233	
==>$v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7406	7532	
==>$v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36985	37083	
==>adings, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41534	41632	
==>adings, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41157	41255	
==>adings, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7410	7544	
==>pper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7410	7544	
==>pper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7410	7544	
==>pper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	598	714	
==>gsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        retu <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	598	714	
==>gsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2870	2981	
==>eturn "[ " . join( ' | ', @rules ) . " ]";
}

sub emit_grammar_perl6 {
    # item=>'<item>',
    my ($self, $def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3262	3359	
==>f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3262	3359	
==>f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3262	3359	
==>f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6343	6440	
==>------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Modul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6343	6440	
==>------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Modul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6343	6440	
==>------
## Module

$::Module = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Modul <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1933	2028	
==>re...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1933	2028	
==>re...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34909	35006	
==>ethod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39459	39556	
==>ethod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38992	39089	
==>ethod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4692	4817	
==>_exec failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9922	10024	
==>rces have zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13399	13501	
==>rces have zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4530	4650	
==>sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4530	4650	
==>sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4530	4650	
==>sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1135	1233	
==>h;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1135	1233	
==>h;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1135	1233	
==>h;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = unde <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2215	2408	
==>]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2275	2468	
==>]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7347	7524	
==>alue::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7347	7524	
==>alue::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7347	7524	
==>alue::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12598	12743	
==>int \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8872	9017	
==>int \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9707	9852	
==>int \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6124	6283	
==>template for '$op->{fixity}_$op->{assoc}'";
                        next;
                    }
                    $t =~ s/$_/$op->{$_}/g for qw( name2 name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1122	1263	
==>h @$tree, $self;
    $self->merge;
  }

  sub merge {
    my ($self) = @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20431	20533	
==>$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_cont <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	229	339	
==>yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    return <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3192	3297	
==>ip away status and headers
  # This should all be done better so the response doesn't live in
  # memory a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3192	3297	
==>ip away status and headers
  # This should all be done better so the response doesn't live in
  # memory a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4046	4155	
==>ub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4046	4155	
==>ub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4046	4155	
==>ub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11426	11601	
==>'$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11426	11601	
==>'$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11426	11601	
==>'$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2415	2541	
==>ass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2415	2541	
==>ass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2415	2541	
==>ass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3481	3601	
==>pan.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3481	3601	
==>pan.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9710	9815	
==>'isWritable'};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	125	250	
==>d {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compi <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	125	250	
==>d {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7699	7810	
==>(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyof_char;
}
{
  package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3295	3405	
==>self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3295	3405	
==>self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3295	3405	
==>self => class-class: " . ::opaque_instance_class($class);
    }      
}));

# NOTE: This needs to be here to ke <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8879	8969	
==>mmar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2704	2794	
==>mmar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25754	25916	
==>>elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25754	25916	
==>>elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25754	25916	
==>>elems ) + $_ >= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unsh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8743	8845	
==>@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8743	8845	
==>@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8743	8845	
==>@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5602	5795	
==>tore( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5602	5795	
==>tore( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5602	5795	
==>tore( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1827	2027	
==>l pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1827	2027	
==>l pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1827	2027	
==>l pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14162	14289	
==>e; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14162	14289	
==>e; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14162	14289	
==>e; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1826	1931	
==>ersion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1826	1931	
==>ersion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1826	1931	
==>ersion

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3134	3282	
==>ined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3134	3282	
==>ined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3134	3282	
==>ined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") {
    my $js;
    foreach (@components) {
      my ($mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4781	4881	
==>{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  clos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4781	4881	
==>{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  clos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4781	4881	
==>{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2011	2109	
==>"-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2011	2109	
==>"-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2011	2109	
==>"-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} an <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1438	1555	
==>tr;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map: <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1438	1555	
==>tr;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map: <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1876	1982	
==>.
    delete $args{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4991	5123	
==>ions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4991	5123	
==>ions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4991	5123	
==>ions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || // <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	313	427	
==>l
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	313	427	
==>l
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	313	427	
==>l
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2693	2800	
==>defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2693	2800	
==>defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2693	2800	
==>defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2816	2931	
==>ance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2816	2931	
==>ance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2816	2931	
==>ance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3960	4083	
==><~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3960	4083	
==><~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3960	4083	
==><~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1015	1134	
==>)} ||= $self->compute_digest;
    }

    sub DESTROY {
        my $self = shift;
        delete $DIGEST_CACHE{overload:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2687	2804	
==>code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2675	2792	
==>code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	737	858	
==>__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	737	858	
==>__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	737	858	
==>__pil2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mi <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	737	841	
==>gA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", : <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	737	841	
==>gA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", : <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10452	10551	
==>rooted at <20050502192508.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	348	469	
==>TCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	348	469	
==>TCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	348	469	
==>TCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the ke <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	227	325	
==>PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	227	325	
==>PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1810	1919	
==>ber(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1810	1919	
==>ber(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1810	1919	
==>ber(a)  * Number(b)",
  "infix:«/»",    2, "N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21103	21199	
==>};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21103	21199	
==>};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21103	21199	
==>};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB g <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10793	10947	
==>$expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domai <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10793	10947	
==>$expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1521	1619	
==>my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1521	1619	
==>my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	105	198	
==>tance or a junctive type?  hmm..
# type Perl::Type is Perl::Type::Regular | Perl::Type::Juncti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4907	5032	
==>cal $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4907	5032	
==>cal $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4907	5032	
==>cal $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HA <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5882	5986	
==>e', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5882	5986	
==>e', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2781	2885	
==>e', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4085	4222	
==>,
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1922	2021	
==>g up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1922	2021	
==>g up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	984	1372	
==>lor = grey60, "
                            :
                            "color = green, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24637	24734	
==>ns this Relation's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29189	29286	
==>ns this Relation's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This m <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5877	5956	
==>c2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/2 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5877	5956	
==>c2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	646	775	
==>ng() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	646	775	
==>ng() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	646	775	
==>ng() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1810	1940	
==>my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1810	1940	
==>my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1159	1254	
==>1';
}

# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3028	3133	
==>{
			my $type = $self->guess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type";
			re <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14674	14776	
==>t does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14674	14776	
==>t does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11815	11903	
==>ULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11815	11903	
==>ULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11815	11903	
==>ULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2424	2530	
==>\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, mak <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2424	2530	
==>\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1059	1180	
==>:)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1059	1180	
==>:)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1059	1180	
==>:)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8466	8589	
==>e:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8466	8589	
==>e:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8466	8589	
==>e:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1112	1221	
==>src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17869	17965	
==>ten have error codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any appli <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17869	17965	
==>ten have error codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any appli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5474	5570	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccepta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5474	5570	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccepta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5474	5570	
==>X::BaseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unaccepta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6630	6728	
==>Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6630	6728	
==>Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10969	11076	
==>(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10969	11076	
==>(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10969	11076	
==>(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDT <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2322	2452	
==>>new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	81	182	
==>t;
use warnings;

use Blondie::Nodes;

use Test::Deep;
use Test::Exception;

our @EXPORT = qw/smoke_ru <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28321	28416	
==>dy.

=item C<size () returns Int>

This method returns a count of this Relation::Example's membe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	2024	2158	
==>{
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__END__

=pod

=head1 NAME

C3 - the core <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	858	954	
==>nal parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	858	954	
==>nal parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	803	911	
==>Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	803	911	
==>Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	803	911	
==>Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => :: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	730	849	
==>l5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad inste <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21408	21515	
==>TREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17829	17936	
==>TREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	853	955	
==>not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	853	955	
==>not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	853	955	
==>not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2112	2255	
==>($x) ) + 1) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	523	641	
==>, $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	523	641	
==>, $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	603	711	
==>e::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	603	711	
==>e::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3305	3445	
==>hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3305	3445	
==>hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3305	3445	
==>hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backup_arr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16096	16253	
==>n) = @_;

    if( $line =~ /^Bail out!\s*(.*)/i ) {
        $$reason = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15193	15291	
==>span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15193	15291	
==>span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8878	9005	
==>w( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1034	1153	
==>w( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1034	1153	
==>w( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12160	12254	
==>eturns the parameter value if the parameter is a member of the recurrence.
Otherwise, returns t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12160	12254	
==>eturns the parameter value if the parameter is a member of the recurrence.
Otherwise, returns t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	370	482	
==>f $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	370	482	
==>f $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	370	482	
==>f $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg= <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7993	8107	
==>clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15555	15651	
==>utes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15555	15651	
==>utes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9663	9765	
==>quire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9663	9765	
==>quire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9663	9765	
==>quire_use($xx,0)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11278	11423	
==>de: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11410	11552	
==>de: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	817	914	
==>or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26353	26452	
==>>new(list => $b),
            type::operator::nary->new(list => type::operator::pair->new( $a, $b )) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5006	5104	
==>n clears the object's internal state.  This should be called as the last 
step of enciphering.

=it <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5006	5104	
==>n clears the object's internal state.  This should be called as the last 
step of enciphering.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2711	2835	
==>a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2711	2835	
==>a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2711	2835	
==>a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1233	1334	
==>on code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (howe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1233	1334	
==>on code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (howe <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10253	10342	
==>t</a>, ...) supports of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's testsuite< <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1940	2043	
==>} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1940	2043	
==>} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compil <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	112	214	
==>s = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag @ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1078	1208	
==>gs;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1078	1208	
==>gs;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1078	1208	
==>gs;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6prelu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14083	14180	
==>','> <AssignmentExpression>
}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpressio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2136	2249	
==>>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }el <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2136	2249	
==>>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }el <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2676	2776	
==>=> \$output_dir,
       'p6design_dir=s' => \$syn_src_dir,
       'no_designdocs' => \$no_designdocs, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3784	3888	
==>ak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3784	3888	
==>ak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4374	4478	
==>ak "named argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	529	636	
==>s()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	529	636	
==>s()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	529	636	
==>s()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	485	590	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Eng <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	485	590	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Eng <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	348	438	
==>string'}}
sub as_array  {my($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$o->{'val_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19067	19162	
==>t your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewis <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19067	19162	
==>t your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9633	9806	
==>code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5974	6147	
==>code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6823	6996	
==>code\n";
            # print "macro: block = \n", match::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutio <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25763	25860	
==>ingful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25763	25860	
==>ingful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6997	7089	
==>test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7984	8076	
==>test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10553	10645	
==>test_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right retu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5455	5564	
==>ived.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_aft <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5455	5564	
==>ived.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_aft <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2161	2263	
==>INST_ARCHLIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16205	16358	
==>rn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16205	16358	
==>rn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16205	16358	
==>rn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32263	32415	
==>[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32263	32415	
==>[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32263	32415	
==>[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	879	992	
==>utoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	879	992	
==>utoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	879	992	
==>utoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15509	15655	
==>L';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15509	15655	
==>L';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15509	15655	
==>L';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12693	12841	
==>self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12693	12841	
==>self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12693	12841	
==>self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16720	16816	
==>:Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() with <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16720	16816	
==>:Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() with <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16720	16816	
==>:Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13732	13827	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13732	13827	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13732	13827	
==>eptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_r <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1837	1953	
==>Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # ca <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1837	1953	
==>Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24998	25134	
==>string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxCUR               { subs <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	121	223	
==>sults;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	121	223	
==>sults;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	804	914	
==>whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	804	914	
==>whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	804	914	
==>whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	357	470	
==>t sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're cu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	357	470	
==>t sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're cu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	357	470	
==>t sublevel does that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're cu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14206	14323	
==>ion @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17683	17800	
==>ion @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1479	1583	
==>6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1479	1583	
==>6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1479	1583	
==>6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	435	535	
==>me = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficien <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	435	535	
==>me = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficien <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	435	535	
==>me = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficien <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5597	5706	
==>b required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5597	5706	
==>b required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5597	5706	
==>b required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30549	30697	
==>[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30549	30697	
==>[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30549	30697	
==>[0], 'ARRAY') ) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1421	1531	
==>store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1421	1531	
==>store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1421	1531	
==>store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	313	414	
==>s Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	313	414	
==>s Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler:: <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2629	2726	
==>ts.

=head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

I <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2629	2726	
==>ts.

=head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

I <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21571	21666	
==>[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_min subs <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24201	24329	
==>D test $last\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6171	6287	
==>_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6171	6287	
==>_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3975	4104	
==>ve is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3975	4104	
==>ve is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3975	4104	
==>ve is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3239	3345	
==>from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3239	3345	
==>from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5252	5356	
==>r $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5252	5356	
==>r $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$desc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6776	6880	
==>r $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
optional C<$desc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	708	829	
==>e';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	913	1034	
==>e';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	969	1090	
==>e';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3946	4050	
==>SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3946	4050	
==>SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3946	4050	
==>SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3354	3461	
==>arator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3354	3461	
==>arator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15641	15740	
==>uplifted to an LChar).

Attempting to use a string at a level lower than what it supports is not
all <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	38	155	
==>dFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	38	155	
==>dFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    re <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	33	137	
==>aussehen:
if (wurf() == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 geht das eleganter:
if any( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24881	24980	
==>ze () returns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29433	29532	
==>ze () returns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2444	2541	
==>recovering all the roots of a
function (not that Newton's method is ever really good at that).

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5573	5696	
==>andle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5573	5696	
==>andle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5573	5696	
==>andle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would take a fully qualified name, a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6386	6497	
==>H';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6398	6509	
==>H';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7297	7395	
==>];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7297	7395	
==>];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7297	7395	
==>];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2669	2887	
==>( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2680	2898	
==>( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25045	25160	
==><'?'>
}
rule QuantifierPrefix {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15482	15609	
==>class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15482	15609	
==>class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15482	15609	
==>class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2838	2941	
==>t(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2838	2941	
==>t(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10744	10840	
==>ray
of strings for a multi-valued field. If the $value is undefined or not
given, then that heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10744	10840	
==>ray
of strings for a multi-valued field. If the $value is undefined or not
given, then that heade <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5401	5545	
==>tlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6854	6952	
==>ot insert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# ins <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6854	6952	
==>ot insert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# ins <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12014	12114	
==>module requires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the Tree

If y <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19186	19285	
==>rs' own data; only
someone already involved in making the program would be editing them.  At
the sam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19186	19285	
==>rs' own data; only
someone already involved in making the program would be editing them.  At
the sam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5194	5304	
==>d_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5387	5497	
==>d_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        boo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5483	5580	
==>RIPTION

This module provides an implementation for Perl 6 Rule categories.  

The module is still <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6067	6171	
==>t inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-proce <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5874	5974	
==>t inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-proce <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1547	1646	
==>of(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	return target;
}

PV <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13470	13601	
==>params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13470	13601	
==>params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13470	13601	
==>params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# "spec" here <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3914	4083	
==>bj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=hea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3914	4083	
==>bj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=hea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3914	4083	
==>bj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2382	2489	
==>= 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2382	2489	
==>= 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2382	2489	
==>= 0) {
  JS::inline('(function (str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12412	12528	
==>thod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12412	12528	
==>thod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12412	12528	
==>thod(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5005	5169	
==>ithin the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5005	5169	
==>ithin the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10133	10236	
==>node and its depth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1306	1421	
==>sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1306	1421	
==>sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1306	1421	
==>sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	247	384	
==>{
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!" <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	247	384	
==>{
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!" <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17459	17571	
==>on on the first character of the string.


=item capitalize

 multi Str::capitalize (  Str $string              - <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4558	4679	
==>candidates[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # create dir for target
            copy($ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7523	7634	
==>E [default: $Config{"output-file"}]
    --dry, -n               Show which tests would be run but don't run them <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1976	2079	
==>sub node::sub_call_term {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1660	1756	
==>ODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() shou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1660	1756	
==>ODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() shou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1660	1756	
==>ODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() shou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1156	1280	
==>n(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1156	1280	
==>n(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1156	1280	
==>n(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7913	8045	
==>>{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11910	12038	
==>>{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11910	12038	
==>>{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12055	12159	
==>erse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12055	12159	
==>erse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12055	12159	
==>erse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5624	5734	
==>$_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5624	5734	
==>$_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5624	5734	
==>$_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9426	9551	
==>essor

    # -----------------------------------------------      
    # this collects a unique list of roles 
    # gather re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9426	9551	
==>essor

    # -----------------------------------------------      
    # this collects a unique list of roles 
    # gather re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9426	9551	
==>essor

    # -----------------------------------------------      
    # this collects a unique list of roles 
    # gather re <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5438	5540	
==>sion}]}'\n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2838	2939	
==><<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2838	2939	
==><<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2838	2939	
==><<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returnc <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1031	1265	
==>rmal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AU <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1031	1265	
==>rmal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AU <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5803	5933	
==>pan.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5803	5933	
==>pan.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    re <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4993	5119	
==>tart_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4993	5119	
==>tart_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	361	454	
==>ethod_Dispatch_w_EigenClasses.jpg in this 
## same directory for a visual explaination of this <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	362	461	
==>mparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
mult <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	362	461	
==>mparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
mult <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	345	485	
==>t;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

	my @nodes = grep { blessed($_) } $dup_finder->duplicate <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6558	6687	
==>ed_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6751	6880	
==>ed_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1656	1786	
==>l $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1656	1786	
==>l $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1656	1786	
==>l $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      if $self->name eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2689	2813	
==>ew {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2689	2813	
==>ew {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2689	2813	
==>ew {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unles <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1878	2108	
==>/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our fi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16247	16341	
==>d
various other external documentation for much of that.

The Rosetta Native Interface is defin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16247	16341	
==>d
various other external documentation for much of that.

The Rosetta Native Interface is defin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7037	7158	
==>s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3641	3762	
==>s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4490	4611	
==>s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9408	9550	
==>bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9408	9550	
==>bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9408	9550	
==>bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments ) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4747	4850	
==>of the data given.
The data may be either a string or an array of bytes; the array of bytes will 
be sli <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4747	4850	
==>of the data given.
The data may be either a string or an array of bytes; the array of bytes will 
be sli <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5600	5699	
==>.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5600	5699	
==>.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	388	471	
==>:Compiler::Rule->compile(q(\{[<block>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8410	8516	
==>for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accident <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8410	8516	
==>for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accident <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	160	260	
==>@ISA = qw(Module::Install::Base);

$VERSION = '0.02';

use strict;

# determine if the user needs nma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11647	11758	
==>() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11647	11758	
==>() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11647	11758	
==>() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shif <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1846	1952	
==>Map Blondie::Node/;
}

{
    package Blondie::Thunk;
    use base 'Blondie::Node::Unit';

    package Blond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11271	11409	
==>b p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11271	11409	
==>b p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11271	11409	
==>b p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14594	14720	
==>No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14594	14720	
==>No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14594	14720	
==>No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	401	512	
==>gs::Grammar::Num::hash,
        %Pugs::Grammar::Var::hash,
    );
    $class->SUPER::recompile;
}

BEGIN {
    _ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	852	954	
==>x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6::API::AST - so m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	808	907	
==>x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6::API::AST - so m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	510	613	
==>alanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extrac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	510	613	
==>alanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extrac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15242	15372	
==>{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15242	15372	
==>{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15242	15372	
==>{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12454	12569	
==>idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12454	12569	
==>idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12454	12569	
==>idxs,
) is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1270	1383	
==>a('type'))
        || confess "Key must be a str type";
    (blessed($value) && $value->isa('type'))
        || co <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5530	5628	
==>RS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Lim <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5530	5628	
==>RS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Lim <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3585	3680	
==>m>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3585	3680	
==>m>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_param <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31387	31485	
==>rgument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35937	36035	
==>rgument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35155	35253	
==>rgument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only argument. The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2329	2448	
==>This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2329	2448	
==>This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2329	2448	
==>This hack does not fix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	628	877	
==>Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	628	877	
==>Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3962	4080	
==>ocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3822	3936	
==>ocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28302	28400	
==>y(time)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6289	6402	
==>o 3rd party classes that your object might be
holding. Using the noio example above, the "return" can be changed t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6289	6402	
==>o 3rd party classes that your object might be
holding. Using the noio example above, the "return" can be changed t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6289	6402	
==>o 3rd party classes that your object might be
holding. Using the noio example above, the "return" can be changed t <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2984	3126	
==>newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub po <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2984	3126	
==>newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub po <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2272	2382	
==>n($1)){
		return $1;
	} else {
		return $class . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blond <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10242	10350	
==>subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10242	10350	
==>subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10242	10350	
==>subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5). <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3744	3934	
==>Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10385	10482	
==>aintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10385	10482	
==>aintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	85	209	
==>sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::IS <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	85	209	
==>sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::IS <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18567	18680	
==>kip' ) {
            $totals->{skip_reason} = $detail->{reason}
              unless defined $totals->{skip_reason <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3361	3490	
==>alone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3361	3490	
==>alone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3361	3490	
==>alone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2640	2755	
==>ub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2640	2755	
==>ub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2640	2755	
==>ub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23959	24051	
==>e L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23959	24051	
==>e L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14474	14630	
==>>{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14474	14630	
==>>{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14474	14630	
==>>{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{pops}} if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6147	6296	
==>D|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6147	6296	
==>D|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12854	12953	
==>elete

 multi method Hash::delete ( *@keys --> List )
 multi method Hash::delete (   $key --> Scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	316	437	
==>unction () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	316	437	
==>unction () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	316	437	
==>unction () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(function () {
          PI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18937	19031	
==>, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18937	19031	
==>, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using th <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1655	1770	
==>html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expire <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1655	1770	
==>html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expire <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11179	11281	
==>- for example, if a backend only ran three tests, which it
    passed, this page would report 100 % tes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5134	5259	
==>( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attribut <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5134	5259	
==>( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attribut <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1016	1105	
==>erm:\\S", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w", "te <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3362	3468	
==>psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> < <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3362	3468	
==>psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> < <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	335	440	
==>if($fn) { $funcs{$fn} .= $_ }
}

our %nodes;
for my $key (keys %funcs) {
	for my $func (keys %funcs) {
		n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3567	3699	
==>he capture - what''s returned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the sa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7088	7206	
==>ndary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::He <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7088	7206	
==>ndary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::He <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4439	4538	
==>subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4439	4538	
==>subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4439	4538	
==>subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
});

::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1621	1723	
==>or>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1621	1723	
==>or>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1621	1723	
==>or>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14986	15153	
==>elf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'group',
      type => 'group',
      data => \@data,
      on => $on,
      off => $off <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15244	15346	
==>e relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18721	18823	
==>e relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mappi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1086	1198	
==>ile = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print "$m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1838	1949	
==>ile = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1838	1949	
==>ile = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1308	1405	
==>@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1308	1405	
==>@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1308	1405	
==>@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	304	426	
==>success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	304	426	
==>success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29167	29301	
==>m::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29167	29301	
==>m::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29167	29301	
==>m::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1018	1117	
==>(ref $self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub values { values %{ $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3136	3231	
==>path (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3136	3231	
==>path (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1135	1343	
==>rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1135	1343	
==>rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1135	1343	
==>rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16934	17022	
==>O'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16934	17022	
==>O'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16934	17022	
==>O'));
$::Class->add_attribute('@:superclasses'     => ::make_attribute('@:superclasses')) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3629	3756	
==>use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3629	3756	
==>use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3629	3756	
==>use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --pre <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4423	4662	
==>:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ), <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1414	1509	
==>thing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1414	1509	
==>thing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Ciphe <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9214	9314	
==>e} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entiti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9214	9314	
==>e} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entiti <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4569	4661	
==>igh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	304	421	
==>piX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	304	421	
==>piX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	304	421	
==>piX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3558	3661	
==>t, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3558	3661	
==>t, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3558	3661	
==>t, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should no <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5411	5548	
==>& -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5411	5548	
==>& -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.d <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2544	2644	
==>syntactic_var> | <symbolic_indirect_rule>
  | <character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11211	11351	
==>ms,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11211	11351	
==>ms,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11211	11351	
==>ms,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1506	1720	
==>ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9423	9525	
==>connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9423	9525	
==>connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8185	8327	
==>[
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8185	8327	
==>[
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state2.pl	15	119	
==>erl 6: Anwendung von state
sub singleton {
	state $var = new MeineKlasse;
	# $var wird nur einmal erzeugt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4616	4725	
==>|| $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4616	4725	
==>|| $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4616	4725	
==>|| $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->name eq $role_name;
    foreac <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2449	2546	
==>est.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2449	2546	
==>est.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2529	2626	
==>est.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4800	4931	
==>tput}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4800	4931	
==>tput}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4800	4931	
==>tput}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("output");
}

sub c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28043	28191	
==>ol>

This method returns this Relation::Example's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns this R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	277	374	
==>LLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	277	374	
==>LLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4148	4247	
==>S

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4148	4247	
==>S

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5672	5771	
==>S

=over 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3972	4069	
==>" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3972	4069	
==>" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3972	4069	
==>" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14245	14344	
==>en) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14245	14344	
==>en) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14245	14344	
==>en) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5259	5378	
==>e JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5259	5378	
==>e JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5259	5378	
==>e JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	619	737	
==>implemented {
    my ( $n, $what ) = @_;
    return "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub e <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13583	13680	
==>fference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13583	13680	
==>fference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3596	3723	
==>},  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3596	3723	
==>},  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3596	3723	
==>},  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 }, <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1499	1630	
==>fined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1499	1630	
==>fined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $. <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3230	3329	
==>ec->rel2abs("dist/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirnam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29756	29854	
==>so set this attribute by passing a value.

=item my $q = $obj->qr()

The regex representation of th <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9722	9818	
==>on( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

Th <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9722	9818	
==>on( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14644	14763	
==>rn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::St <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14644	14763	
==>rn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::St <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14644	14763	
==>rn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::St <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12223	12345	
==>b { 0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1698	1817	
==>things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1698	1817	
==>things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1698	1817	
==>things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13794	13901	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13794	13901	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13794	13901	
==>ethod' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16528	16629	
==>MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16528	16629	
==>MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16528	16629	
==>MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1547	1660	
==>rt ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.ne <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1547	1660	
==>rt ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6495	6586	
==>IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6495	6586	
==>IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6495	6586	
==>IN_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5897	6113	
==>omain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5897	6113	
==>omain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4760	4900	
==>m = shift;   TODO?
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5262	5425	
==>lue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5262	5425	
==>lue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5262	5425	
==>lue, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'u <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8003	8129	
==>ast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8003	8129	
==>ast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10735	10851	
==>linux"],
    [$linuxrc              => "$initrd_mnt/linuxrc"],
    [$welcome_p6           => "$initrd_mnt/welcome.p6" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11523	11611	
==>sumed it.

------------------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11523	11611	
==>sumed it.

------------------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11523	11611	
==>sumed it.

------------------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1015	1158	
==>e;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1015	1158	
==>e;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1015	1158	
==>e;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14838	14931	
==>require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14838	14931	
==>require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14838	14931	
==>require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_init <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22397	22513	
==>y $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22676	22792	
==>y $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2119	2221	
==>Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[2]->store($nam <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39535	39629	
==>)
);

## ----------------------------------------------------------------------------
## now bu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45013	45107	
==>)
);

## ----------------------------------------------------------------------------
## now bu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5064	5157	
==>)
);

## ----------------------------------------------------------------------------
## now b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3343	3459	
==>($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3343	3459	
==>($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3343	3459	
==>($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in sync
$::Class->add_method('n <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1735	1835	
==>) + $time_t;
}

# convert from a perl float
multi sub epoch( Real $epoch ) returns Date::Gregorian is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2718	2815	
==>_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Express <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2718	2815	
==>_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Express <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6111	6233	
==>t') {
	warn "let PPad not implemented\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8756	8867	
==>uleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8949	9060	
==>uleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8368	8480	
==>o \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8368	8480	
==>o \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7337	7443	
==>AT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6338	6470	
==>> {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6338	6470	
==>> {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6338	6470	
==>> {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2612	2720	
==>y $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2612	2720	
==>y $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2612	2720	
==>y $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7662	7781	
==>};

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7662	7781	
==>};

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7662	7781	
==>};

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2197	2277	
==>mfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2197	2277	
==>mfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2197	2277	
==>mfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1387	1499	
==>"    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1387	1499	
==>"    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gramm <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14810	14911	
==>eturn $S->force_object(anyof_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4114	4243	
==>ply_and_accum' => Thunk->new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum'),
            Param- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3020	3113	
==>Stmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3020	3113	
==>Stmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6162	6277	
==>rn "method_call: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bare <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4710	4817	
==>u have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4710	4817	
==>u have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6234	6341	
==>u have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	94	206	
==>(mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, import <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	94	206	
==>(mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, import <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	94	206	
==>(mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, import <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17462	17566	
==>6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17462	17566	
==>6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17462	17566	
==>6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::V <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1650	1770	
==>ree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1650	1770	
==>ree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15442	15545	
==>sh_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

sub p6_as_perl5 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10337	10487	
==>e( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  meth <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2366	2496	
==>e( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

meth <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2366	2496	
==>e( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15381	15493	
==>od ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15381	15493	
==>od ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15381	15493	
==>od ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9282	9399	
==>----------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9282	9399	
==>----------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9282	9399	
==>----------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19551	19645	
==>.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authentica <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19551	19645	
==>.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authentica <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11228	11361	
==>size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14705	14838	
==>size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14013	14146	
==>size() == 0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16089	16201	
==>in (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19566	19678	
==>in (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6385	6475	
==>m.  See L<Regexp::Parser::Handlers> for information
about sub-classing this module.

=head1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1397	1538	
==>s, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1397	1538	
==>s, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	859	976	
==>s;
 }

 multi sub reverse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	777	894	
==>or return;

    return $dir->subdir( $self->config->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2943	3079	
==>env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

= <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2943	3079	
==>env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

= <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2654	2755	
==>, "nows", &parse_modifier);
    $optable->addToken("close:>", "<prefix::", "nows");
    $optable->addT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3368	3493	
==>== -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3368	3493	
==>== -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3368	3493	
==>== -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	916	1050	
==>0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	916	1050	
==>0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	916	1050	
==>0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	573	717	
==>);
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20494	20587	
==>t>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channels <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20494	20587	
==>t>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channels <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6770	6888	
==>8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(822 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6770	6888	
==>8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(822 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3524	3635	
==>{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3524	3635	
==>{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3524	3635	
==>{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	378	509	
==>n a list"
            foreach @values;
    bless \@values => $class;
}

# native conversion
sub to_native { @{(shift)} }

# conversi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7889	7989	
==>file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7889	7989	
==>file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9055	9231	
==>b {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9055	9231	
==>b {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9055	9231	
==>b {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17383	17505	
==>il) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new BUILD)))))))

=cut

$::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	16	101	
==>Tree-0.0.2;

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	16	101	
==>Tree-0.0.2;

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	126	236	
==>n::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	126	236	
==>n::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	126	236	
==>n::Type::Object);

sub new {
    my($class,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4914	5043	
==>te );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4914	5043	
==>te );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4914	5043	
==>te );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11467	11597	
==>->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8414	8523	
==>rn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAM <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8414	8523	
==>rn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAM <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29048	29150	
==>neric relational operator that returns a new Relation::Example
which is the same as the invocant Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31896	31998	
==>neric relational operator that returns a new Relation::Example
which is the same as the invocant Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32943	33045	
==>neric relational operator that returns a new Relation::Example
which is the same as the invocant Relati <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2675	2802	
==>am->to_str->to_native . " got($arg) -> expected($param_type)"
                    if $param_type ne '';
        }
        $self- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30349	30447	
==>deally comes as part of a set, at least one member
large, with each set member being an an exclusiv <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30349	30447	
==>deally comes as part of a set, at least one member
large, with each set member being an an exclusiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8559	8666	
==>CUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8559	8666	
==>CUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8559	8666	
==>CUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $fro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4125	4233	
==>if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4974	5082	
==>if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6735	6823	
==>----------------------------

ok($Class->does('Role'), '... Class now does Role');
ok($Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4095	4190	
==>self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4095	4190	
==>self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4095	4190	
==>self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3941	4061	
==>arn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3941	4061	
==>arn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3941	4061	
==>arn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $s <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2070	2169	
==>fig{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    print "# Could not compile $ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1806	1914	
==>s.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1806	1914	
==>s.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1806	1914	
==>s.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.R <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3680	3876	
==>{
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3946	4142	
==>{
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1263	1370	
==>opulates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9717	9910	
==>cription,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	297	478	
==>cription,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	297	478	
==>cription,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10089	10206	
==>t STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10089	10206	
==>t STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10089	10206	
==>t STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9548	9656	
==>->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::op <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8215	8316	
==>f convience. Sometimes that depth 
# field is not always correct.
# If you create your tree in a top-d <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8215	8316	
==>f convience. Sometimes that depth 
# field is not always correct.
# If you create your tree in a top-d <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17129	17274	
==>ave been run
  seen              total tests actually seen
  skip_all          if the whole test was skipped, this will 
                      con <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	492	589	
==>ot "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	492	589	
==>ot "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4931	5066	
==>=> ';',
    #);

    # experimental
    __PACKAGE__->add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tig <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	806	906	
==>or single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 v <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	806	906	
==>or single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	780	918	
==>ti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	780	918	
==>ti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	780	918	
==>ti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9227	9344	
==>}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9227	9344	
==>}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9227	9344	
==>}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isL <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4599	4758	
==>hive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2415	2527	
==>an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2415	2527	
==>an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7555	7680	
==>"}]
    --dry, -n               Show which tests would be run but don't run them
    --concurrent=N, -j      Run N test jobs c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10163	10262	
==>, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Return <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10163	10262	
==>, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9877	10044	
==>be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6218	6385	
==>be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7067	7234	
==>be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3119	3232	
==>>{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0, "PA <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	707	818	
==>ringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	707	818	
==>ringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16521	16621	
==>ed as a separate value if in
an array context.  If there is no such header field, then the empty
stri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16521	16621	
==>ed as a separate value if in
an array context.  If there is no such header field, then the empty
stri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14509	14607	
==>ethod to build the string, the result
will use case as suggested by HTTP spec, and it will follow
r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14509	14607	
==>ethod to build the string, the result
will use case as suggested by HTTP spec, and it will follow
r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	450	565	
==>est = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	450	565	
==>est = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	450	565	
==>est = shift;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	697	805	
==>ams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	697	805	
==>ams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	697	805	
==>ams{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2828	2957	
==>ub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3033	3162	
==>ub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3070	3194	
==>it($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' );
    my $block = get_data( $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13782	14002	
==>ist;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13782	14002	
==>ist;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13782	14002	
==>ist;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2410	2516	
==>/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2410	2516	
==>/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $dec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2410	2516	
==>/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $dec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23591	23703	
==>.)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20012	20124	
==>.)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1125	1253	
==>rgs, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1125	1253	
==>rgs, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1125	1253	
==>rgs, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	656	790	
==>_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	656	790	
==>_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	656	790	
==>_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29747	29845	
==>ou can also set this attribute by passing a value.

=item my $q = $obj->qr()

The regex representat <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19921	20012	
==>t.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19921	20012	
==>t.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<ch <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2239	2361	
==>Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2239	2361	
==>Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $! <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10579	10691	
==>@{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $self->add_handler('?' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14717	14813	
==>eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" cha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14717	14813	
==>eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" cha <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	185	322	
==>sub report (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x {
          $str = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5499	5604	
==>s rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be a e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5499	5604	
==>s rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be a e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11223	11350	
==>var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11223	11350	
==>var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11223	11350	
==>var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7669	7767	
==>les > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1603	1696	
==>PYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free softw <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1603	1696	
==>PYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free softw <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3798	3908	
==>elf->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5158	5267	
==>elf->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16452	16542	
==>,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifiers_from(Ey,E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7755	7855	
==>over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be tr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7755	7855	
==>over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be tr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7755	7855	
==>over which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be tr <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4081	4193	
==>\\end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2479	2600	
==>::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2672	2793	
==>::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1955	2050	
==>);

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role 'TestBuilder::Test::Base' => {
    a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47318	47469	
==>>fetch($e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1408	1497	
==>ompiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1408	1497	
==>ompiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8207	8335	
==>ne_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8207	8335	
==>ne_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1292	1395	
==>return $value.($next, $u), tail($input);
  };
}

## Chapter 8 section 3.2

sub concatenate(Array *@p) is <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7063	7176	
==>less $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7622	7735	
==>less $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5536	5700	
==>,
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5536	5700	
==>,
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5536	5700	
==>,
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell') <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	630	735	
==>ta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::She <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	630	735	
==>ta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::She <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	379	481	
==>c_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	379	481	
==>c_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	379	481	
==>c_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7004	7190	
==>= $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10481	10667	
==>= $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) re <==
3	/Users/nnunley/pugs/util/run-smoke.pl	677	776	
==>le location";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->looku <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7007	7154	
==>ms = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7007	7154	
==>ms = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7007	7154	
==>ms = $elems - slice isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be clon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	897	994	
==>ame => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dumm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	897	994	
==>ame => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dumm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	897	994	
==>ame => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dumm <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8589	8692	
==>.3
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLitera <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	14115	14213	
==>van" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You migh <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14115	14213	
==>van" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You migh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2255	2387	
==>tion") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2255	2387	
==>tion") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2255	2387	
==>tion") ||
      $_->type->matches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = jo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8175	8316	
==>doesn't actually do :ignorecase yet.";
        }
        if %mods<s> || %mods<sigspace> {      
            $pre ~= ":s";
            %mods.de <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	756	856	
==>igger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi meth <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	756	856	
==>igger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	73	192	
==>ot::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	73	192	
==>ot::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	73	192	
==>ot::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4721	4843	
==>oreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4721	4843	
==>oreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4721	4843	
==>oreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1117	1219	
==>s Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $ty <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1117	1219	
==>s Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1054	1180	
==>class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1054	1180	
==>class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1054	1180	
==>class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6192	6300	
==>person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6192	6300	
==>person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7380	7481	
==>me,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    my @pams = map{DOWN($ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12537	12674	
==>, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3519	3624	
==>, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3577	3682	
==>, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7763	7883	
==>oid {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method travers <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7763	7883	
==>oid {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method travers <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1116	1217	
==>6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14270	14364	
==>hrough a continuous span, because the "separation" 
between values would be very close to zero: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14270	14364	
==>hrough a continuous span, because the "separation" 
between values would be very close to zero: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3949	4058	
==>thing in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3961	4070	
==>thing in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6165	6263	
==>8593.
multi method Array::as_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name from doc <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6906	7014	
==>out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6964	7072	
==>out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4915	5002	
==>rray',@_)}
sub p6_Hash {p6_new('Hash',@_)}
sub p6_List {p6_new('List',@_)}
sub p6_Scalar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8475	8580	
==>rp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8475	8580	
==>rp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7875	8005	
==>3),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7875	8005	
==>3),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	424	542	
==>ass;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not isa "P6Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	847	950	
==>Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	847	950	
==>Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and auto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	847	950	
==>Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and auto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1934	2047	
==>nterfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1934	2047	
==>nterfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1934	2047	
==>nterfaces)
    ::opaque_instance_attr($self => '%:methods')->{$label} = (
        defined $method ? 
            : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5490	5609	
==>ribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5490	5609	
==>ribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5490	5609	
==>ribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            | <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23983	24079	
==>eading and
Body attributes are set respectively from the optional named parameters
C<$heading> an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28535	28631	
==>eading and
Body attributes are set respectively from the optional named parameters
C<$heading> an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27366	27462	
==>eading and
Body attributes are set respectively from the optional named parameters
C<$heading> an <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10403	10550	
==>lf = shift;
            my $fh = shift->val;
            print $fh @_;
        }
    },
    map {{ arity => 2, name => "&infix:<$_>", body => eval ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7362	7487	
==>$rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7350	7475	
==>$rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8211	8376	
==>], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $bl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4571	4736	
==>], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5420	5585	
==>], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $bl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	36	137	
==>n the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::N <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	36	137	
==>n the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10245	10348	
==>t
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10245	10348	
==>t
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10245	10348	
==>t
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3056	3159	
==>de($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3056	3159	
==>de($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1490	1597	
==>m=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    [ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4684	4781	
==>also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4684	4781	
==>also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machin <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11547	11654	
==>xception;
use Data::Dumper;
use Language::AttributeGrammar;

{
	# please forgive me
	my $orig = \&Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4691	4785	
==>fference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4691	4785	
==>fference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29021	29117	
==>functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29021	29117	
==>functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29021	29117	
==>functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20689	20789	
==>ight set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' int <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20689	20789	
==>ight set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' int <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1786	1884	
==>uivalence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my %token = ( name = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11711	11815	
==>ires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $disc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11711	11815	
==>ires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $disc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1675	1773	
==>he test in a
certain format.  That format is called TAP, the Test Anything
Protocol.  It is defined <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	14125	14225	
==>e (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14125	14225	
==>e (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	197	286	
==>self->can_reduce($node);

	if (Scalar::Util::blessed($node) && (my $meth = $self->can("red <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5930	6027	
==>attribute->new('@:superclasses')    => list->new(),
            attribute->new('%:private_methods' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	784	874	
==>NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	784	874	
==>NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3602	3703	
==>/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3602	3703	
==>/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3602	3703	
==>/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XH <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	471	588	
==>26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	471	588	
==>26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	471	588	
==>26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5142	5251	
==>turns the version of ghc passed to it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1135	1225	
==>L::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1135	1225	
==>L::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8489	8679	
==>ll')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8489	8679	
==>ll')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8489	8679	
==>ll')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34815	34936	
==>hen in C<[...>)

Omitted

=head2 prop

Family: prop

Types: name of property (C<\p{NAME}>, C<\P{NAME}>); any Unicode prope <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	763	866	
==>acros are
   currently defined as subs, which we can get away with since
   this is currently simply a c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	763	866	
==>acros are
   currently defined as subs, which we can get away with since
   this is currently simply a c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3804	3899	
==>st.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3804	3899	
==>st.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3884	3979	
==>st.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$descripti <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15959	16066	
==>el" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15959	16066	
==>el" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	300	398	
==>sitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'repo' );

system( qw[rm -rf], $config->root <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24992	25110	
==>regex string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on
    sub Rx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9623	9732	
==>le::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = spli <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9623	9732	
==>le::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = spli <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	855	974	
==>_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	756	875	
==>_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20713	20825	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bles <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16973	17072	
==>responding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16973	17072	
==>responding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	646	735	
==>ion is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21555	21648	
==>erride some of your messages, showing other messages instead which are
more appropriate to the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21555	21648	
==>erride some of your messages, showing other messages instead which are
more appropriate to the <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1066	1157	
==>re_varname = $re_sigil.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26649	26743	
==>Test::Harness will print debugging information about itself as
it runs the tests.  This is diff <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5447	5531	
==>lsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5447	5531	
==>lsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4774	4881	
==>));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4774	4881	
==>));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4774	4881	
==>));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	603	710	
==>nt->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	603	710	
==>nt->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	603	710	
==>nt->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10620	10765	
==>$file);
  my $output = ""; 
  
  while (my $rest = <$infile>) {
    chomp $rest;
    $output .= "<a name='line_$.'></a>";
    while ( $rest =~ $li <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1448	1559	
==>eturn the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1448	1559	
==>eturn the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2789	2906	
==>$v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2789	2906	
==>$v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2789	2906	
==>$v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_co <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	870	987	
==>lf.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so retu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	870	987	
==>lf.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so retu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22505	22604	
==>elledStatement :words {  # see 12.12
      <Identifier> <':'> <Statement>
}
rule ThrowStatement :wor <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	924	1044	
==>ch;
    }
    
    method notify (*@args) {
        .notify(Class::Events::Event.new(*@args));
    }

    method mk_notif <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2087	2202	
==>IB::Utils->_copy( file => $self->dir, to => $tmpdir ) 
#             or error( "Could not copy sources to '$tmpdir'" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3311	3405	
==>t;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3311	3405	
==>t;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5508	5602	
==>t;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within the
Test: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22637	22738	
==>}

After the tree has been created, this key is deleted; this gives the
code a way to be sure compilat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	827	953	
==>body => sub {
                $_[1] ? $_[2] : $_[3]
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	101	206	
==>UG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gnu/doc/html/bison_[6,8].html

# n <==
3	/Users/nnunley/pugs/util/importgraph.pl	2728	2829	
==>unless exists $modules{$k}; # only pugs modules
    my $color = $edge->[1] ? 'green' : $edge->[0] ? "b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3232	3322	
==>ompiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3118	3205	
==>ompiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5920	6039	
==>e} = [ { $label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5733	5846	
==>e} = [ { $label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	983	1082	
==>s'       => \$compile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Run::OnPerl5::X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5256	5372	
==>6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5256	5372	
==>6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5256	5372	
==>6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2486	2581	
==>@args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errmsg} = sprintf <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1977	2093	
==>];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14497	14612	
==>];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	676	779	
==>d die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	676	779	
==>d die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	676	779	
==>d die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return spri <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	267	362	
==>, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	267	362	
==>, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10669	10793	
==>n "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10663	10787	
==>n "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1729	1838	
==>mpile") or die "open $compile: $!\n";
    my $f = do{local $/=undef; <F>}; close F;
    my $type = $compile =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1280	1389	
==>is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1280	1389	
==>is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1280	1389	
==>is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String(splitter)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1395	1496	
==>stance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1395	1496	
==>stance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1395	1496	
==>stance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7735	7839	
==>(args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7735	7839	
==>(args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7735	7839	
==>(args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1372	1494	
==>:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1372	1494	
==>:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12769	12884	
==>s( package => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $conf = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3137	3241	
==>/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3137	3241	
==>/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3137	3241	
==>/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1270	1425	
==>eq ':' or die "Expected PIL2 ':'";
                my $value = parse( <<>>, 'item', <<>>, @_ );
                [ $key, $value ];
            },
        ite <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	909	1000	
==>Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Len <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	909	1000	
==>Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Len <==
3	/Users/nnunley/pugs/util/func_refact.pl	2450	2580	
==>nodes->{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand)];  # new con <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13323	13449	
==>m_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$comman <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13323	13449	
==>m_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$comman <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5400	5652	
==>ue
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and fin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5400	5652	
==>ue
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and fin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2995	3110	
==>ess defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2995	3110	
==>ess defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2995	3110	
==>ess defined $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10695	10802	
==>? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10695	10802	
==>? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10695	10802	
==>? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	332	418	
==>Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	332	418	
==>Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	329	412	
==>Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	807	927	
==>DERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Mat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	807	927	
==>DERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Mat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	807	927	
==>DERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Mat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5364	5510	
==>eturns a match, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5828	5974	
==>eturns a match, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37003	37112	
==>l->new('@:MRO')             => attribute->new('@:MRO'             => 'list')));
$::Class->send('add_attribute' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14365	14526	
==>ip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14365	14526	
==>ip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14365	14526	
==>ip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_lis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11998	12120	
==>elf is one; we can't do two more, so
	    # write to temp file
	    my $stdin = qq{$^X -e 'print qq(} . $args{stdin} . qq{) <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2432	2529	
==>he first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2432	2529	
==>he first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2878	2977	
==>.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2878	2977	
==>.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32422	32520	
==>wer scope (like a CLOSE).

=item vis

The visual representation of this object.

=item zerolen

Whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4246	4368	
==>[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4246	4368	
==>[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4246	4368	
==>[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2js("--yaml-dump", \$pil) };
  print $OUT $@ and return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1297	1408	
==>_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1297	1408	
==>_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1297	1408	
==>_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6927	7117	
==>y $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6927	7117	
==>y $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4955	5069	
==>f->has_method($method_name);
            # otherwise ... add the method in 
            $self->add_method($method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3275	3392	
==>e =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3275	3392	
==>e =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3275	3392	
==>e =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17226	17327	
==>ns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17226	17327	
==>ns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16147	16298	
==>", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16141	16292	
==>", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	148	274	
==>. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	148	274	
==>. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	148	274	
==>. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7302	7410	
==>Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7302	7410	
==>Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7302	7410	
==>Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3269	3631	
==>);
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3269	3631	
==>);
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2548	2646	
==>S

For each node type a function named for its class (without the prefix) is
exported. This is very <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5086	5192	
==>urn;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start" <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5086	5192	
==>urn;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5978	6084	
==>last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->reduce($thunk->val);
	}
}

sub reduce_sym {
	my <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27732	27853	
==>mper($res);
	    mkMatch(length($s),$res);
	}
	else { MatchX->new()->set_as_failed() }
    };
}
my $rx = \&rx;
$/=undef;
d <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1478	1583	
==>guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numb <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1478	1583	
==>guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1410	1521	
==>extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1410	1521	
==>extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1410	1521	
==>extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11107	11228	
==>( $n->{op1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	696	815	
==>ocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = 0 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	696	815	
==>ocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2747	2884	
==>ure => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2642	2772	
==>ure => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21691	21802	
==>hod for the F<Regexp::Parser> class,
which installs all the handlers for standard Perl 5 regexes.  This
document <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14316	14408	
==>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14316	14408	
==>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14316	14408	
==>{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4367	4469	
==>e::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4367	4469	
==>e::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4367	4469	
==>e::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23540	23635	
==>ple).

There are other differences.  Where other solutions take variables, they
seem to be posit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23540	23635	
==>ple).

There are other differences.  Where other solutions take variables, they
seem to be posit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1873	2014	
==>|= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1873	2014	
==>|= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1873	2014	
==>|= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2536	2645	
==>rs;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2536	2645	
==>rs;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2536	2645	
==>rs;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9635	9753	
==>not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13112	13230	
==>not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12384	12502	
==>not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	733	885	
==>( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	733	885	
==>( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7977	8078	
==>reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto (pop @bsrStack);

  token_match:
  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6717	6866	
==>o_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6717	6866	
==>o_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6717	6866	
==>o_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	881	1059	
==>match = $m->{tail};
                $whitespace_before = 1;
            }
            my @expect = $p->YYExpect;  # XXX is this expensive?
            
            # print "tail $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	357	456	
==>//= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	357	456	
==>//= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	357	456	
==>//= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	563	677	
==>nown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	563	677	
==>nown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	563	677	
==>nown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11698	11912	
==>ew('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e->get('?%params')
                  ->is_ni <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11600	11701	
==>l not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=ba <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11600	11701	
==>l not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=ba <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5156	5257	
==>ary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::operator::pair;
use base qw/type::operat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2927	3052	
==>return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2927	3052	
==>return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2927	3052	
==>return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	253	387	
==>r $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	253	387	
==>r $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	253	387	
==>r $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1151	1286	
==>TP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unles <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1151	1286	
==>TP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unles <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2324	2419	
==>okenClone;
    $self->whitespaceOperatorTable()->{$spacePresent[1]} = %tokenClone;
  }

  $token <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4875	4991	
==>d_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method ev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4875	4991	
==>d_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method ev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4875	4991	
==>d_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "method ev <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2470	2594	
==>stringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $sel <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2470	2594	
==>stringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $sel <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12103	12216	
==>f->{scopes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = shift;
    map { @$_ } rever <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1527	1657	
==>{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{out}= { attribute => [
                [$_[2], $_[3],], <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4754	4851	
==>itespacePosition, "PGE::Match");
    my $temp2 = $whitespacePosition;
    push @termStack, $operat <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19282	19395	
==>"subpats"]
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    self[0] = exp0

    $I1 = pad["subpats"]
    pad[ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6099	6192	
==>${pkg_root}::Node";
	$pkg_type = "" if $pkg_type eq $pkg_this;
	$used{$pkg_type}=1 if $pkg_typ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6788	6913	
==>reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the intern <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6788	6913	
==>reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the intern <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	979	1092	
==>{
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12561	12692	
==>PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 - <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12561	12692	
==>PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 - <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	587	683	
==>ver

=item *

unbound public and private methods, including the signatures of these
methods

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1006	1161	
==>ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1006	1161	
==>ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1006	1161	
==>ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            unshift( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12044	12153	
==>mple {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8787	8891	
==>x/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6314	6414	
==>x/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is p <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9685	9783	
==>an0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9685	9783	
==>an0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Sp <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5819	5959	
==>n {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5819	5959	
==>n {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Spa <==
3	/Users/nnunley/pugs/util/config_h.pl	883	982	
==>ast;
}

# FIXME: we assume if you have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|mingw| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2182	2283	
==>ll already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively har <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2182	2283	
==>ll already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively har <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2182	2283	
==>ll already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively har <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20914	21011	
==>1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20914	21011	
==>1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20914	21011	
==>1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3806	3911	
==>precompiled Perl 6 files.

If you see the error below, it may happen that your perl was compiled without P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18492	18588	
==>lts by having a human being write out
that text themselves.

What Locale::KeyedText does is assoc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18492	18588	
==>lts by having a human being write out
that text themselves.

What Locale::KeyedText does is assoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7552	7709	
==>tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7552	7709	
==>tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7552	7709	
==>tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2993	3143	
==>elete $values{sign};
    if ( my $perl_version = delete $values{perl_version} ) {

        # Always canonical to three-dot version
        $perl_versio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2072	2179	
==>e a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $fl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2072	2179	
==>e a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27962	28069	
==>true argument, and C<FLAG_s> would be called with a false one.

If the flag handler returns 0, the flag is r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	897	995	
==>st::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	955	1053	
==>st::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12168	12260	
==>her_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12168	12260	
==>her_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12168	12260	
==>her_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7162	7269	
==>( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7150	7257	
==>( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	12	99	
==>erl

package Blondie::Backend::C;
use base qw/Blondie::Runtime Blondie::Reducer::Dynamic <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5068	5243	
==>{
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # g <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5068	5243	
==>{
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2496	2609	
==>ew PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2496	2609	
==>ew PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2496	2609	
==>ew PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } el <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2515	2614	
==>r really good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for opt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4502	4597	
==>string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4752	4847	
==>string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2334	2471	
==>ty ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2334	2471	
==>ty ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2334	2471	
==>ty ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2479	2589	
==>me

    # update: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2397	2504	
==>me
    # update: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	404	487	
==>>compile(q(\{[<block>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8980	9176	
==>str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8980	9176	
==>str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8980	9176	
==>str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1 <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	639	804	
==>e\s+(\w[\w:]*)\s*;\s*$/;
            last;
        }
    }

    return if $self->module_name;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME fo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15955	16049	
==>4 Not Modified> response instead of
the document itself.

=item $h.last_modified

This header i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15955	16049	
==>4 Not Modified> response instead of
the document itself.

=item $h.last_modified

This header i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	864	987	
==>c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	864	987	
==>c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	864	987	
==>c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3049	3154	
==>Dumper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10348	10452	
==>ONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10348	10452	
==>ONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9515	9627	
==>$max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9515	9627	
==>$max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9515	9627	
==>$max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $star <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1285	1394	
==>> $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $sel <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1285	1394	
==>> $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $sel <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10338	10436	
==>ST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10338	10436	
==>ST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11480	11568	
==>!, p5_comment_body(L), ")".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_bod <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22672	22768	
==>ll as (I
suspect) an important constraint on what fields can contain.

=head1 reganch

 REG_SEEN_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36900	36993	
==>e::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36900	36993	
==>e::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_messa <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	243	351	
==>e -MTestInit.  You may "use TestInit" in the test
# programs but it is not required.
#
# P.S. This documen <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2142	2238	
==>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=h <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2142	2238	
==>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=h <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	560	658	
==>use Benchmark;
our @ISA = qw(Test::TAP::Model);
our $SMOKERFILE = ".smoker.yml";

$| = 1;

$ENV{TES <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41092	41186	
==>, and provided sample usage and patch
code, that supports embedding of Template modules into th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41092	41186	
==>, and provided sample usage and patch
code, that supports embedding of Template modules into th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	573	739	
==>{},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	573	739	
==>{},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	573	739	
==>{},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the body of 'add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2888	2998	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2888	2998	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2888	2998	
==>:opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16221	16319	
==>alue::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16221	16319	
==>alue::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16221	16319	
==>alue::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2368	2480	
==>{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2368	2480	
==>{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2368	2480	
==>{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	44	172	
==>5-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     j <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	44	172	
==>5-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     j <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	44	172	
==>5-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18454	18580	
==>ow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROU <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18454	18580	
==>ow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROU <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4566	4693	
==>/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4566	4693	
==>/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	903	1013	
==>t {
	my $self = shift;
	$self->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1845	1990	
==>$.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1845	1990	
==>$.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -In <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6902	7037	
==>me::Perl6::perl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox" <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5179	5309	
==>int mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) } <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5179	5309	
==>int mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23029	23149	
==>end a single-quoted
string as a regex with a variable in it, that '$' will be interpreted as
an anchor. If you want to in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1071	1182	
==>undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1071	1182	
==>undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1071	1182	
==>undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14095	14230	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14374	14509	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ru <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4953	5054	
==>ether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4953	5054	
==>ether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7150	7251	
==>ether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	761	867	
==>->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	761	867	
==>->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	761	867	
==>->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3712	3834	
==>ified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3700	3822	
==>ified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6043	6154	
==>$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4521	4639	
==>e_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) { <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4521	4639	
==>e_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5850	5966	
==>f $cc;
    return $S->object(alnum => 0);
  });

  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3539	3669	
==>end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3539	3669	
==>end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	233	346	
==>uld be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	233	346	
==>uld be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	233	346	
==>uld be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4228	4329	
==>ckage::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {"" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4228	4329	
==>ckage::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {"" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4228	4329	
==>ckage::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {"" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7375	7537	
==>}
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7375	7537	
==>}
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            " <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23059	23158	
==>ee also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SE <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17752	17858	
==>ree} = $self->{data};
  }
}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp::Par <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30693	30794	
==>nguage.

The name of each Template module has two parts, the Set Name and the Member
Name.  The Set Na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30693	30794	
==>nguage.

The name of each Template module has two parts, the Set Name and the Member
Name.  The Set Na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7460	7567	
==>ub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($dat <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7460	7567	
==>ub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($dat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	308	414	
==>import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	269	375	
==>import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	269	375	
==>import Getopt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6438	6544	
==>($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3726	3820	
==>etval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3726	3820	
==>etval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3726	3820	
==>etval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32224	32366	
==>cher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::param <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32879	33021	
==>cher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::param <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29432	29573	
==>cher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6278	6381	
==>ns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6278	6381	
==>ns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9782	9901	
==>:Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pk <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9782	9901	
==>:Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pk <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9782	9901	
==>:Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	735	882	
==>$grammar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1480	1611	
==>'ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1447	1578	
==>'ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1	117	
==>ackage PIL2JS;

use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1	117	
==>ackage PIL2JS;

use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1	117	
==>ackage PIL2JS;

use warnings;
use strict;

use FindBin;
use IPC::Open2;
use Config;
use File::Spec;
use File::Temp;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2319	2441	
==>args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2319	2441	
==>args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2319	2441	
==>args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2081	2203	
==>ncat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2092	2214	
==>ncat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace e <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7756	7857	
==>iles;
    @dir_files = _globdir $Files_In_Dir if defined $Files_In_Dir;
    my $t_start = new Benchmar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5646	5811	
==>bute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5646	5811	
==>bute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5646	5811	
==>bute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	8	124	
==>Regexp::Parser;

my $ENUM;
BEGIN { $ENUM = 0 }

use constant RPe_ZQUANT => --$ENUM, 'Quantifier unexpected on zero-le <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1380	1482	
==>s Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Litera <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1380	1482	
==>s Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Litera <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	386	500	
==>::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name => 'circu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7634	7732	
==>killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7634	7732	
==>killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	610	734	
==>d
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	610	734	
==>d
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	610	734	
==>d
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9619	9744	
==>iscard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9619	9744	
==>iscard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1014	1120	
==>e = shift;

	my $h = Devel::STDERR::Indent::indent;
	warn "annotation: $node";
	warn "reducing " . $node->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14495	14593	
==>_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14495	14593	
==>_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14495	14593	
==>_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	503	643	
==>ce ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	708	848	
==>ce ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	764	904	
==>ce ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12541	12684	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'd <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12541	12684	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'd <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12541	12684	
==>)->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'd <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2734	2872	
==>$match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2734	2872	
==>$match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24632	24736	
==>e 15.10.1
      <Alternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see 15.10.1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18415	18503	
==>line> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18415	18503	
==>line> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1669	1789	
==>set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5146	5266	
==>set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4076	4196	
==>set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5245	5345	
==>_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5245	5345	
==>_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5245	5345	
==>_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $po <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10868	11005	
==>...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	499	603	
==>new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source code gen <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	499	603	
==>new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source code gen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7164	7276	
==>usion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10641	10753	
==>usion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19789	19899	
==>"Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL2JS::Internals::use_jsan_module_noimp := &P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15680	15802	
==>nnel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MO <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15680	15802	
==>nnel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1463	1582	
==>emitting grammar\n";
    my $s = "";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25643	25748	
==>n but that some of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30195	30300	
==>n but that some of its attributes
are renamed.  The argument C<$mapping> says which attributes are being
r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1893	2012	
==>cl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1893	2012	
==>cl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1893	2012	
==>cl])\s*(.*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4528	4664	
==>erits Unit.

=item Stub

A node that makes the runtime throw a fatal error. Used for thunks that cannot
have a value:

    Env(
        ' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3593	3711	
==>= $passed ? 1 : 0;

    return %totals;
}


sub _analyze_line {
    my($self, $line, $totals) = @_;

    my %result = ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11856	11953	
==>header field.  Previous values
for the same field are retained.

As for the header() method, the f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11856	11953	
==>header field.  Previous values
for the same field are retained.

As for the header() method, the f <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14981	15083	
==>"day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `ne <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14981	15083	
==>"day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `ne <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26744	26837	
==>erent from C<HARNESS_VERBOSE>, which prints
the output from the test being run.  Setting C<$Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2984	3083	
==>l {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2984	3083	
==>l {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2984	3083	
==>l {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7760	7865	
==>which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7760	7865	
==>which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7760	7865	
==>which would make
## things like: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26688	26783	
==>ation respectively.  This method will fail if
any members of C<$attrs> do not match attribute na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31240	31335	
==>ation respectively.  This method will fail if
any members of C<$attrs> do not match attribute na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21204	21302	
==>ether
they're being turned on or off.  Also, if the flag handler returns 0,
that flag is removed fr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11371	11467	
==>m ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Co <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11371	11467	
==>m ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4336	4453	
==>tfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4336	4453	
==>tfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4847	4942	
==>fname)=@_;
    ($self->{'field_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::Node <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	906	1023	
==>ag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	906	1023	
==>ag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	986	1103	
==>ag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	917	1132	
==>M_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        war <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	917	1132	
==>M_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        war <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4224	4320	
==>een=$splashscreen
    The file referenced by --splashscreen will be displayed before booting.
  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14151	14350	
==>unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic suga <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14151	14350	
==>unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic suga <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14151	14350	
==>unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic suga <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18971	19064	
==>ta type that corresponds to the
"relation" of logic and mathematics and philosophy ("a predica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22621	22714	
==>ta type that corresponds to the "relation" of logic
and mathematics and philosophy ("a predica <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17941	18024	
==>Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12785	12897	
==>}
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibili <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12785	12897	
==>}
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibili <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	860	964	
==>ferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	860	964	
==>ferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	860	964	
==>ferencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8862	8975	
==>ls{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8862	8975	
==>ls{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	208	315	
==>b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	208	315	
==>b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	208	315	
==>b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FETCH().a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18182	18281	
==>x0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18182	18281	
==>x0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18182	18281	
==>x0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1417	1545	
==>und = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2861	2955	
==>ery_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostnam <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2861	2955	
==>ery_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostnam <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5443	5554	
==>( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curre <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5443	5554	
==>( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curre <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2345	2456	
==>ib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCH <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	645	804	
==>age} eq $path } @list ) {
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	302	408	
==>rse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	302	408	
==>rse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	302	408	
==>rse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2061	2155	
==>thod chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2061	2155	
==>thod chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2061	2155	
==>thod chars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14487	14588	
==>nk(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14487	14588	
==>nk(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14487	14588	
==>nk(p6_to_s($xx0))};
MULTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MU <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7754	7874	
==>returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

metho <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7754	7874	
==>returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

metho <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1394	1483	
==>oken("circumfix:( )", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken("<commit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28174	28267	
==>ash ref.

=item C<as_debug_string()>

This method returns a stringified version of this object <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28174	28267	
==>ash ref.

=item C<as_debug_string()>

This method returns a stringified version of this object <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	247	338	
==>, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	247	338	
==>, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	247	338	
==>, %params);
});

::Class.meta.add_method('bless' => method ($canidate, %params) returns Clas <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5059	5186	
==>spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5059	5186	
==>spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9079	9175	
==>eStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      <!b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11897	11989	
==>SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11897	11989	
==>SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11897	11989	
==>SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {.. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13743	13875	
==>Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15268	15400	
==>Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4039	4135	
==>y $self = shift;
	my ($node, $symbol, $body) = @_;

	$self->define_named_block($node, $symbol, $b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7001	7102	
==>_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7988	8089	
==>_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10557	10658	
==>_on_object(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1385	1483	
==>data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::N <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1385	1483	
==>data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::N <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7234	7374	
==>E>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7234	7374	
==>E>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2594	2696	
==>l { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2594	2696	
==>l { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2594	2696	
==>l { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5190	5312	
==>FutureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'boolean'>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19800	19896	
==>ete freedom to implement the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19800	19896	
==>ete freedom to implement the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	746	881	
==>nature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Point <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	746	881	
==>nature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Point <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1382	1500	
==>bose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21699	21901	
==>:Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21699	21901	
==>:Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21699	21901	
==>:Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14128	14244	
==>very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10301	10417	
==>very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11137	11253	
==>very rough
            my $category = $prefix;
            $category = 'statements' if $prefix eq 'statement_control' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5965	6093	
==>cut

sub index_files { #TODO: When using two properties (A and B) to group the dists
                  #      tree A/A_val/B/B_va <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1568	1685	
==>eaders {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1568	1685	
==>eaders {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8727	8828	
==>ocal $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8723	8824	
==>ocal $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8611	8736	
==>be"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8611	8736	
==>be"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4376	4489	
==>om Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4376	4489	
==>om Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4376	4489	
==>om Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1602	1715	
==>y('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1602	1715	
==>y('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1602	1715	
==>y('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3547	3658	
==>at} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3547	3658	
==>at} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3547	3658	
==>at} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15329	15432	
==>@_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15329	15432	
==>@_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15329	15432	
==>@_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2530	2632	
==>mmand.

Returns the perl version on success and false on failure.

=cut

sub _perl_version {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2074	2171	
==>port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pat <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2074	2171	
==>port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1905	2012	
==>";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1905	2012	
==>";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1905	2012	
==>";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4368	4520	
==>h;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@:slots')})->sc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3745	3840	
==>r example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the grou <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3745	3840	
==>r example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the grou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9372	9489	
==>};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9372	9489	
==>};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], nu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3973	4079	
==>e} = $class_that_should_be;

	$self;
}

sub left { $_[0]{left} }
sub right { $_[0]{right} }


sub isa { # F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	866	983	
==>h document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	866	983	
==>h document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	866	983	
==>h document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //retur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1317	1428	
==>KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBM <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1317	1428	
==>KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBM <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15672	15808	
==>d run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15672	15808	
==>d run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2607	2721	
==>bs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4171	4304	
==>p = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a qua <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4171	4304	
==>p = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a qua <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	501	620	
==>minute, Int|Real ?$second #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4565	4681	
==>close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4565	4681	
==>close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4565	4681	
==>close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23881	24033	
==>od eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23881	24033	
==>od eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23881	24033	
==>od eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37617	37716	
==>ce Relations,
such that all common attribute names and corresponding common tuple values
are aligned <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42166	42265	
==>ce Relations,
such that all common attribute names and corresponding common tuple values
are aligned <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41816	41915	
==>ce Relations,
such that all common attribute names and corresponding common tuple values
are aligned <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1449	1582	
==>eal => "Num",
        string => "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        ref = <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1150	1246	
==>rectories to Pugs's 
search path so that later `use` or `require` statements 
will find modules w <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1150	1246	
==>rectories to Pugs's 
search path so that later `use` or `require` statements 
will find modules w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5808	5911	
==>self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5808	5911	
==>self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5808	5911	
==>self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2795	2906	
==>redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2795	2906	
==>redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1455	1559	
==>"class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1455	1559	
==>"class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40094	40213	
==>Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40094	40213	
==>Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40094	40213	
==>Value::numify( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2827	2931	
==>".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2827	2931	
==>".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2827	2931	
==>".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35822	35917	
==>t and combines it with the
invocant relation into a new Relation, such that all common attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40372	40467	
==>t and combines it with the
invocant relation into a new Relation, such that all common attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12995	13152	
==>ontiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12995	13152	
==>ontiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12995	13152	
==>ontiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementation of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2238	2339	
==>bjects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2238	2339	
==>bjects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2238	2339	
==>bjects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14068	14219	
==>str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14068	14219	
==>str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14068	14219	
==>str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6073	6295	
==>e( q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### long:< <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3774	3902	
==>library code. Do either! Let your caller decide!
    # instead of "die             'file not found';"
    #         or "return EN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	72	167	
==>TTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	72	167	
==>TTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12522	12629	
==>$class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12522	12629	
==>$class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5525	5618	
==>( $whitespacePosition <= $position );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6708	6850	
==>e::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6708	6850	
==>e::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6708	6850	
==>e::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2968	3072	
==>Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2968	3072	
==>Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	758	898	
==>"link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	758	898	
==>"link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	758	898	
==>"link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1892	2019	
==>e {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1892	2019	
==>e {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	846	961	
==>llow handlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta object
    {   my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11101	11200	
==>at if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would need <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11101	11200	
==>at if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would need <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11101	11200	
==>at if Roles could provide their own BUILD submethods? This would 
mean that BUILD methods would need <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4226	4373	
==>}
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4226	4373	
==>}
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4226	4373	
==>}
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14417	14527	
==>ub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4983	5093	
==>ub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5205	5315	
==>ub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11682	11807	
==>:Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2116	2229	
==>:Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2116	2229	
==>:Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4738	4841	
==>} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4738	4841	
==>} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3984	4085	
==>=x

class Relation-0.1.0 {

    # External packages used by the Relation class, that do export symbols <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1248	1413	
==>f = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                unless ($c){
                    $c = PIL::Run::Conta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2242	2363	
==>tch = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2242	2363	
==>tch = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30796	30892	
==>licates following the transformation have been eliminated. 
Trivial cases are where C<$transforme <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35347	35442	
==>licates following the transformation have been eliminated.
Trivial cases are where C<$transforme <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34538	34633	
==>licates following the transformation have been eliminated.
Trivial cases are where C<$transforme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15671	15772	
==>e";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15671	15772	
==>e";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15671	15772	
==>e";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3517	3627	
==>:bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3517	3627	
==>:bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3517	3627	
==>:bind_method_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	183	277	
==>l6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	183	277	
==>l6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	183	277	
==>l6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# C <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3961	4070	
==>s)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3555	3660	
==>}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/x <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3555	3660	
==>}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1395	1518	
==>essed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1395	1518	
==>essed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1395	1518	
==>essed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4383	4494	
==>rams => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4383	4494	
==>rams => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4383	4494	
==>rams => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local $PIL::IN_SU <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	347	447	
==>YearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	347	447	
==>YearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304 <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	535	635	
==>/*>;
}

print "*** Successfully built!  Type '$Config{make} install' to install.\n";

# make an educa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3461	3578	
==>st.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else { <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3461	3578	
==>st.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4985	5102	
==>st.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1377	1483	
==>$current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($toke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1377	1483	
==>$current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($toke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1377	1483	
==>$current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($toke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2168	2292	
==>urn $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2168	2292	
==>urn $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2168	2292	
==>urn $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12307	12427	
==>0]} },
      code  => sub { Carp::carp("p6_as_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glo <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2897	3011	
==>of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2897	3011	
==>of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4401	4510	
==>verlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4401	4510	
==>verlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4401	4510	
==>verlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5447	5549	
==>well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5447	5549	
==>well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5447	5549	
==>well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7309	7410	
==>s killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($ki <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7309	7410	
==>s killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($ki <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16145	16239	
==>Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16145	16239	
==>Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16145	16239	
==>Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf if $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3615	3716	
==>ader('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3615	3716	
==>ader('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13373	13505	
==>n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Emi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3373	3472	
==>c !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclai <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3431	3530	
==>c !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	695	803	
==>que_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	695	803	
==>que_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	695	803	
==>que_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8978	9080	
==>lf->{_is_win32};
    return $^X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Fo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3898	3994	
==>@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) retu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3898	3994	
==>@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1234	1432	
==>WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1234	1432	
==>WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6845	6938	
==>esigned as a replacement (though not drop-in) for my old
F<YAPE::Regex> modules.

=head1 USAGE <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2521	2641	
==>d ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2521	2641	
==>d ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2446	2542	
==>me)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2446	2542	
==>me)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2446	2542	
==>me)
}

sub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3459	3623	
==>->{'$:name'}
        },
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            return ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	210	309	
==>psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	210	309	
==>psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	210	309	
==>psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4670	4816	
==>ce 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4670	4816	
==>ce 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4670	4816	
==>ce 
                    # method, maybe there should be, but I am not sure
                    $new_class->add_singleton_method($method_name => ::m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8544	8657	
==>api 14 violation\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	554	658	
==>efinitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure tha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	527	626	
==>efinitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	178	277	
==>ys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterato <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	178	277	
==>ys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterato <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	178	277	
==>ys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterato <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8430	8530	
==>if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8430	8530	
==>if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3958	4057	
==>ame.tex" or die "can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1917	2017	
==>use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1917	2017	
==>use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1917	2017	
==>use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2168	2306	
==>nt->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2168	2306	
==>nt->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2168	2306	
==>nt->new(argname => $argname, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	76	193	
==>, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	76	193	
==>, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	76	193	
==>, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7658	7760	
==>($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_method' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3550	3651	
==>~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3550	3651	
==>~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2582	2672	
==>ild ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2582	2672	
==>ild ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1199	1312	
==>if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!lo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1199	1312	
==>if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2099	2235	
==>op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], exp3 => \$_[5],} }",
        
    # XXX
    #infix_chain =>       
    #    "exp 'name <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2007	2096	
==>ial AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/> <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2007	2096	
==>ial AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1532	1648	
==>ction perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1532	1648	
==>ction perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1532	1648	
==>ction perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args. <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3626	3720	
==>1 BUGS

Documentation lacks the actual algorithm description. See links or read
the source (the <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3626	3720	
==>1 BUGS

Documentation lacks the actual algorithm description. See links or read
the source (the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5126	5281	
==>tomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5126	5281	
==>tomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5126	5281	
==>tomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2969	3067	
==>l::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2969	3067	
==>l::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2969	3067	
==>l::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1249	1353	
==>LTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1249	1353	
==>LTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1249	1353	
==>LTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2337	2431	
==>ose subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and struct <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2337	2431	
==>ose subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and struct <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	23	116	
==>r::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	350	488	
==>a' does not exist\n" unless -d $meta;
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pk <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8660	8765	
==>d subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8660	8765	
==>d subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13406	13551	
==>PATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPAT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13406	13551	
==>PATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPAT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13406	13551	
==>PATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch" if $DISPAT <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6355	6466	
==>elemental(dot)       --> ".".
p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5_simp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19499	19591	
==>es are system catalog relation variables rather than user-defined
relation variables.  In SQL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19499	19591	
==>es are system catalog relation variables rather than user-defined
relation variables.  In SQL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20982	21079	
==><or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20982	21079	
==><or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20982	21079	
==><or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5193	5341	
==>uleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5029	5173	
==>uleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	786	896	
==>ar' and .value.does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tuple'|'Relation'
            and .va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37465	37593	
==>TCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37465	37593	
==>TCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37465	37593	
==>TCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	243	367	
==>t::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	243	367	
==>t::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	243	367	
==>t::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyness etc.)

my $term = Te <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3700	3842	
==>= shift;
                @{$self->get_value('@:slots')} = (); # just ref = []?
            },

            'array_push' => sub { # @values -> ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1206	1299	
==>ariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1206	1299	
==>ariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2168	2315	
==>$tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5925	6014	
==>os/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Josh <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5925	6014	
==>os/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Josh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14163	14343	
==>ely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14163	14343	
==>ely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14163	14343	
==>ely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8141	8274	
==>y @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CL <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8141	8274	
==>y @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11209	11340	
==>([^']) \$ \( \) /$1 match::get( \$_[0], '\$()' ) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6039	6240	
==>) => Pugs::Compiler::Regex->compile( q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6295	6418	
==>ame', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6295	6418	
==>ame', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6014	6122	
==>" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6014	6122	
==>" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6014	6122	
==>" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1711	1819	
==>do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1711	1819	
==>do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15952	16113	
==>l_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15952	16113	
==>l_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15952	16113	
==>l_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1379	1488	
==>tamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1379	1488	
==>tamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1379	1488	
==>tamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs});
command_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7091	7210	
==>lf = shift;
    if (ref $self->{data}) {
      $self->{data}->visual;
    }
    else {
      join "", "[", $self->{how}, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14442	14534	
==>es($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $st <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14442	14534	
==>es($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21835	21990	
==>>($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (rev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21835	21990	
==>>($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (rev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21835	21990	
==>>($subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1075	1208	
==>my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, loo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1075	1208	
==>my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, loo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1075	1208	
==>my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, loo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4199	4315	
==>, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unles <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4199	4315	
==>, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unles <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4789	4905	
==>, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unles <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2676	2844	
==>B::Repository') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22382	22473	
==>pecified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>q <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22382	22473	
==>pecified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6026	6119	
==>ify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6026	6119	
==>ify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6026	6119	
==>ify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36114	36236	
==>op length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36114	36236	
==>op length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36114	36236	
==>op length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2153	2259	
==>hod('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2153	2259	
==>hod('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2153	2259	
==>hod('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30577	30692	
==>ned Relation::Example has
the complement subset of the original's attributes to what C<project> would
return given t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14132	14238	
==>eric($.fun) + generic($.param) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.param);

	types: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19589	19694	
==>X - need api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12726	12874	
==>$ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12726	12874	
==>$ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12726	12874	
==>$ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24888	24986	
==>eturns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C<exist <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29440	29538	
==>eturns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C<exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9345	9461	
==>n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9345	9461	
==>n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9345	9461	
==>n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3936	4052	
==>d($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3936	4052	
==>d($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4526	4642	
==>d($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3118	3233	
==>build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3118	3233	
==>build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3118	3233	
==>build  = $a_config->{'build'};
			my $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7101	7218	
==>eturn emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3705	3822	
==>eturn emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4554	4671	
==>eturn emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1098	1201	
==>::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1098	1201	
==>::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20152	20274	
==>on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16573	16695	
==>on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22697	22892	
==>warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22697	22892	
==>warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22697	22892	
==>warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7795	7895	
==>asses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7795	7895	
==>asses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7795	7895	
==>asses = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13881	13989	
==>ce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17358	17466	
==>ce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16738	16846	
==>ce relations are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14176	14265	
==>un::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hash <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14176	14265	
==>un::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hash <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14176	14265	
==>un::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( hash <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4421	4520	
==>h, the Thunk will
finish, the stacks will be popped once more, and the whole AST is now reduced
to 1 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10679	10771	
==>ule, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10737	10829	
==>ule, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2585	2737	
==>INDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2585	2737	
==>INDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2585	2737	
==>INDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	457	586	
==>sargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	457	586	
==>sargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	457	586	
==>sargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6769	6890	
==>_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6769	6890	
==>_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6769	6890	
==>_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	633	748	
==>->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	633	748	
==>->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	633	748	
==>->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	431	578	
==>),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	431	578	
==>),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	431	578	
==>),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2347	2461	
==>_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2347	2461	
==>_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2347	2461	
==>_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18958	19075	
==>gexp

  typedef struct regexp {

=head2 The regular expression:

  I32 prelen;             /* length of precomp */
  c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20608	20704	
==>es will
be expanded again.

Every bit of the default process described above is overridable by
va <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20608	20704	
==>es will
be expanded again.

Every bit of the default process described above is overridable by
va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	610	698	
==>}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	610	698	
==>}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	610	698	
==>}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7468	7609	
==>,
            };
    }
}

sub build_indexes {
    my $path     = shift;
    my $index    = shift;
    
    return unless exists $index->{_dirs <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	446	563	
==>) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	446	563	
==>) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11477	11597	
==>val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11477	11597	
==>val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1277	1388	
==>rv;
    };
}

sub sign {
    my $self = shift;
    return $self->{'values'}{'sign'} if defined wantarray and !@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9527	9651	
==>riables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9527	9651	
==>riables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9527	9651	
==>riables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	839	938	
==>ut the remote user that is using your CGI. 
It also attempts to provide some useful defaults for deb <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	839	938	
==>ut the remote user that is using your CGI. 
It also attempts to provide some useful defaults for deb <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17919	18002	
==>_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	848	962	
==>s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	857	971	
==>s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15535	15798	
==>6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15814	16077	
==>6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	867	985	
==>rms one dimensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	254	348	
==>equire Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	254	348	
==>equire Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	254	348	
==>equire Perl6::Container::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PI <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	252	383	
==>OPSIS

    # a program that reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2727	2825	
==>eap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

met <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2727	2825	
==>eap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

met <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1238	1359	
==>tr
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10614	10717	
==>cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10614	10717	
==>cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1016	1157	
==>ast, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1534	1629	
==>installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> met <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1534	1629	
==>installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24263	24434	
==>$method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24263	24434	
==>$method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24263	24434	
==>$method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5459	5566	
==>te $opt{rule};
    $operator->add_op( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14283	14383	
==>o) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string w <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14341	14441	
==>o) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string w <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2172	2295	
==>rrfile ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Config{includ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	847	946	
==>ers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	847	946	
==>ers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers { <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1873	2001	
==>e, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rat <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1873	2001	
==>e, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9769	9885	
==>ub_skipped} += $results{skip};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	798	915	
==>spatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	798	915	
==>spatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	798	915	
==>spatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $_[ <==
3	/Users/nnunley/pugs/util/config_h.pl	399	513	
==>t

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6944	7039	
==>y $program = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $fla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6956	7051	
==>y $program = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	114	240	
==>rict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	114	240	
==>rict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	114	240	
==>rict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2989	3139	
==>uePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6834	6925	
==>ment identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6834	6925	
==>ment identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  R <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1616	1714	
==>Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugin <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1616	1714	
==>Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27068	27155	
==>erClassEscape>
}



grammar JavaScript::ECMAScript3::Grammar is JavaScript::ECMAScript3: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13964	14116	
==>^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13964	14116	
==>^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13964	14116	
==>^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6190	6293	
==>hod.

This feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6190	6293	
==>hod.

This feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6190	6293	
==>hod.

This feature is useful, like custom, for when you don't want to mess
with members belonging to 3rd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6345	6469	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::St <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6345	6469	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::St <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6345	6469	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::St <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5691	5842	
==>("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7453	7604	
==>("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7133	7231	
==>>is_extension_build;
    $ghc_flags .= " -fno-warn-name-shadowing ";
    $ghc_flags .= " -I../../sr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27699	27797	
==>this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=it <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27699	27797	
==>this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=it <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	576	674	
==>= (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args{'str'};
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3699	3835	
==>->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ and <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	746	839	
==>ards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Rang <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	746	839	
==>ards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Rang <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10654	10749	
==>ions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function c <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10712	10807	
==>ions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	842	963	
==>e/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	842	963	
==>e/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	842	963	
==>e/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9088	9262	
==>f($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9088	9262	
==>f($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9088	9262	
==>f($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1150	1274	
==>- kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1150	1274	
==>- kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1150	1274	
==>- kludge
	$_[0]->name; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3822	3923	
==>coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3822	3923	
==>coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3822	3923	
==>coro_id] = function (new_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	703	813	
==>$beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	703	813	
==>$beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	703	813	
==>$beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12332	12461	
==>shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	31049	31167	
==>x.com> >>,
Andy Lester C<< <andy at petdance.com> >>.

This program is free software; you can redistribute it and/or 
m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13217	13307	
==>xported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13217	13307	
==>xported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_ent <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36425	36540	
==>lt tuples that
duplicate others.  The sequence in which any two source relations are
combined is inconsequential.  A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40974	41089	
==>lt tuples that
duplicate others.  The sequence in which any two source relations are
combined is inconsequential.  A <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40588	40703	
==>lt tuples that
duplicate others.  The sequence in which any two source relations are
combined is inconsequential.  A <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33717	33812	
==>ually corresponds to a
language like English or French.  The order of these items corresponds to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33717	33812	
==>ually corresponds to a
language like English or French.  The order of these items corresponds to <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15928	16028	
==>message that would be shown to a user, is in fact meant
to be interpreted by the machine itself and n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15928	16028	
==>message that would be shown to a user, is in fact meant
to be interpreted by the machine itself and n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	690	832	
==>e in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	690	832	
==>e in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	690	832	
==>e in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	753	857	
==>callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $ur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	753	857	
==>callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $ur <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	160	262	
==>Hacker'; # $x ist nun auch 'Perl Hacker'
	
#=Bindung (statisch)
my $y ::= $x # Bindung zur Compile-Zeit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10392	10553	
==>tance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10392	10553	
==>tance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10392	10553	
==>tance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2128	2208	
==>::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2128	2208	
==>::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2128	2208	
==>::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12078	12237	
==>_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candida <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12078	12237	
==>_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candida <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12078	12237	
==>_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candida <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2919	3039	
==>er => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1728	1823	
==>x:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1728	1823	
==>x:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8217	8352	
==>ch.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8217	8352	
==>ch.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6382	6482	
==>t<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6382	6482	
==>t<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %cha <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18818	18915	
==>k is already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18818	18915	
==>k is already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<use <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17054	17138	
==>E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(star_ng(R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2450	2550	
==>y slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2450	2550	
==>y slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2450	2550	
==>y slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1154	1289	
==>ODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_pack <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2591	2686	
==><&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2591	2686	
==><&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	170	286	
==>die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	170	286	
==>die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	170	286	
==>die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1472	1598	
==>ance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1472	1598	
==>ance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1472	1598	
==>ance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6949	7044	
==>matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6949	7044	
==>matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6949	7044	
==>matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <ok <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1989	2095	
==>rgs{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{auth <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4224	4330	
==>rgs{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{auth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	271	374	
==>($class, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confess "You must provide <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	252	356	
==>imple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	252	356	
==>imple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	197	299	
==>ase);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub Ma <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10079	10193	
==>.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.ma <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10079	10193	
==>.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.ma <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	561	668	
==>run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5997	6092	
==>Optional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5997	6092	
==>Optional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5997	6092	
==>Optional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3433	3544	
==>ync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3433	3544	
==>ync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3433	3544	
==>ync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) {
        ::op <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1476	1589	
==>as Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_cont <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1476	1589	
==>as Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5208	5347	
==>tive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5208	5347	
==>tive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5208	5347	
==>tive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but as &fail is <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1550	1658	
==>probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $fi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2212	2320	
==>probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $fi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3216	3317	
==>elf->error(0, "PANIC! %d %s", &RxPOS, &RxCUR) if &RxPOS != &RxLEN;

  if (! &SIZE_ONLY) {
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14919	15052	
==>op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15320	15416	
==>eractive systems.

If the program or any of its components are intended for widespread use
then i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15320	15416	
==>eractive systems.

If the program or any of its components are intended for widespread use
then i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2860	2953	
==>er::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2860	2953	
==>er::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	668	765	
==>cro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	668	765	
==>cro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	668	765	
==>cro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10792	10941	
==>METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10792	10941	
==>METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10792	10941	
==>METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2784	2881	
==>rl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2784	2881	
==>rl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2784	2881	
==>rl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	659	751	
==>letime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	659	751	
==>letime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	659	751	
==>letime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	436	529	
==>R::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	436	529	
==>R::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	436	529	
==>R::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$sel <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5167	5299	
==>,
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5167	5299	
==>,
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	148	250	
==>t' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$.erro <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	220	358	
==>\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq '(') {
            my $new <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2045	2166	
==>ereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # me <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2925	3046	
==>ereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # me <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6665	6763	
==>ing C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> whic <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6665	6763	
==>ing C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> whic <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2523	2617	
==>:Alt");
    $optable->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias");
    $opta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5481	5583	
==>nt<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5481	5583	
==>nt<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	353	454	
==>rams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	288	420	
==>rn {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	288	420	
==>rn {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	288	420	
==>rn {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $class;
    $jsclas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13113	13261	
==>che{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next ME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13113	13261	
==>che{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next ME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13113	13261	
==>che{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next ME <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	374	503	
==>2,
        #capture => $1,
    });
}
sub varscalar {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3754	3868	
==>ent<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<re <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3754	3868	
==>ent<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13745	13897	
==>$self')->send('BUILDALL' => ($e->get('%params')));
                return $e->get('$self');                  
            }
        )
    )
);

=pod

met <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2503	2600	
==>ame.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2503	2600	
==>ame.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25244	25404	
==>$tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25244	25404	
==>$tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25244	25404	
==>$tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5100	5210	
==>pen {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5100	5210	
==>pen {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.sta <==
3	/Users/nnunley/pugs/util/package-osx.pl	5945	6040	
==>local/man/man3/Perl6::Overview::File.3pm
        /usr/local/man/man3/Perl6::Overview::Functions. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	514	635	
==>ass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	514	635	
==>ass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	514	635	
==>ass and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20989	21080	
==>ur distrbution's modules that use Module::Compile based modules
will automatically be compil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20989	21080	
==>ur distrbution's modules that use Module::Compile based modules
will automatically be compil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6413	6504	
==>$iBar->name } '... instance calling metaclass method fails';

is($iBar->foo, 'Foo->foo', '.. <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8657	8769	
==>itrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checking which shared libraries pugs, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20912	21005	
==>he other (near term) third party Engines will likely just map
Rosetta's rigorously defined API <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20912	21005	
==>he other (near term) third party Engines will likely just map
Rosetta's rigorously defined API <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	184	312	
==>pher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	184	312	
==>pher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode< <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2060	2258	
==>eader' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2060	2258	
==>eader' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10904	11072	
==>rtCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )

Returns C<@values> sorted, using criteri <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	58	146	
==>::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	58	146	
==>::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3968	4064	
==>hecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3968	4064	
==>hecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3968	4064	
==>hecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4052	4214	
==>, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4052	4214	
==>, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11230	11359	
==>x eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2178	2268	
==>{ JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2178	2268	
==>{ JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2178	2268	
==>{ JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6863	6961	
==>ny data the cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6863	6961	
==>ny data the cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1376	1505	
==>-> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1376	1505	
==>-> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1376	1505	
==>-> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => subm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2503	2611	
==>);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class ! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2503	2611	
==>);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class ! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2503	2611	
==>);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class ! <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5324	5513	
==>lock new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (bloc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7086	7275	
==>lock new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (bloc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1317	1415	
==>test_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do is write a test script, consider
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1404	1527	
==>porarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1404	1527	
==>porarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1404	1527	
==>porarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4659	4760	
==>able is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4659	4760	
==>able is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5249	5350	
==>able is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18045	18188	
==>ren,
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->famil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4419	4554	
==>ontent_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4419	4554	
==>ontent_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	665	770	
==>e not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $st <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	665	770	
==>e not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $st <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	99	196	
==>ing subs you want to debug'}
* adds use Smart::Comments (if it matches the supplied regex) or
no S <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	460	558	
==>string   returns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQU <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	460	558	
==>string   returns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQU <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28309	28404	
==>define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4240	4350	
==>($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4240	4350	
==>($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4240	4350	
==>($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	885	1043	
==>elf->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	885	1043	
==>elf->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	885	1043	
==>elf->env->set('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12989	13105	
==>$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12989	13105	
==>$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1991	2100	
==>>STORE('::Base' => role 'TestBuilder::Test::Base' => {
    attributes => [
        '$.passed',
        '$.numb <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4196	4389	
==>ames;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4196	4389	
==>ames;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_na <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11827	11926	
==>tsep"><tmpl_var name=timestamp></td>
            <td class="leftsep num"><tmpl_var name=duration></t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4996	5138	
==>LASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4996	5138	
==>LASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4996	5138	
==>LASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associat <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	319	425	
==>( $Available ) 
) {
    print "$struct->{package} -- $struct->{description}\n";

    ### XXX yaml this file <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7527	7620	
==>:Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7527	7620	
==>:Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15508	15604	
==>?) returns Bool;

Because these functions will be mutually recursive, they will easily be
able ha <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15566	15662	
==>?) returns Bool;

Because these functions will be mutually recursive, they will easily be
able ha <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4402	4512	
==>t;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4402	4512	
==>t;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	96	194	
==>es;

sub symbols {
    stub('&ternary:<?? !!>', '$cond', '$true', '$false'), # non short circuiting <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3103	3223	
==>ption?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag(" <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3103	3223	
==>ption?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag(" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4627	4747	
==>ption?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag(" <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9034	9138	
==>ad1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan l <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9034	9138	
==>ad1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan l <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2122	2207	
==>in Prolog".
    http://www.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg.ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7174	7267	
==>e->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7174	7267	
==>e->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7174	7267	
==>e->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5799	5932	
==>ll::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5799	5932	
==>ll::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3194	3304	
==>exact_comp => "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->forc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9398	9496	
==>IL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9398	9496	
==>IL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9398	9496	
==>IL2JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	262	388	
==>_stack => [],
    }, $class;
}

sub execute {
    my $self = shift;
    my $prog = shift;
    $self->reduce($prog);
}

sub can_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12413	12509	
==>ay need a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12413	12509	
==>ay need a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	121	268	
==>xporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	121	268	
==>xporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	121	268	
==>xporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_eval
       p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9095	9244	
==>" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9095	9244	
==>" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9095	9244	
==>" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension f <==
3	/Users/nnunley/pugs/misc/S29_round.pl	190	308	
==>ound = sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4080	4175	
==>= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4080	4175	
==>= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12561	12688	
==>l')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12561	12688	
==>l')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12561	12688	
==>l')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6847	6966	
==>r loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6847	6966	
==>r loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6847	6966	
==>r loop_till = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	902	1025	
==>tml.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.chil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	902	1025	
==>tml.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.chil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	902	1025	
==>tml.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for (var i = 0; i < node.chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	0	108	
==>package PIL::Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	0	108	
==>package PIL::Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	0	108	
==>package PIL::Parser;
# This module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# ob <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4786	4908	
==>'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length > <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4786	4908	
==>'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length > <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	48	157	
==>("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Per <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	543	658	
==>s 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %para <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	543	658	
==>s 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %para <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	483	577	
==>ewclass.does($role);
 $newclass.apply;

=head1 DESCRIPTION

This object represents a Class.  It <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3632	3739	
==>ject->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3632	3739	
==>ject->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3632	3739	
==>ject->add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2545	2761	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2545	2761	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2545	2761	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3840	3936	
==>tion )>

Marks that the next test should fail.  C<$description> is the optional
description of th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3840	3936	
==>tion )>

Marks that the next test should fail.  C<$description> is the optional
description of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3920	4016	
==>tion )>

Marks that the next test should fail.  C<$description> is the optional
description of th <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2997	3099	
==>se plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7376	7477	
==>se plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	152	287	
==>tance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	152	287	
==>tance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	152	287	
==>tance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ], <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35801	35893	
==>> has the same heading as
the invocant Relation::Example, and returns a new Relation::Example <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37833	37925	
==>> has the same heading as the
invocant Relation::Example, and returns a new Relation::Example <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1529	1636	
==>N {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1529	1636	
==>N {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xx <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21525	21629	
==>N($v);}
sub p6_bind {my($o,$v)=@_; $o->BIND($v);}


my %space_from_sigil;
my %sigil_from_space;
BEGIN{
%s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	834	941	
==>'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	834	941	
==>'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	834	941	
==>'Beatless');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Cl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9833	9953	
==>'s any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2865	2985	
==>'s any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11256	11357	
==>s opaque
    (((?%params is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL ?%params) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1305	1406	
==>options;
  if ( $relativePrecedence and $relativePrecedence ne "" )
  {
    if ( substr $relativePrece <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	934	1027	
==>xt.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although it is <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	934	1027	
==>xt.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6517	6615	
==>EATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6517	6615	
==>EATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6517	6615	
==>EATS

Reblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11799	11961	
==>he{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11799	11961	
==>he{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11799	11961	
==>he{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11682	11822	
==>{
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11682	11822	
==>{
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11682	11822	
==>{
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1483	1592	
==>";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "compilation error: ", $@ if $@;
eval $p6->{perl5} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1345	1444	
==>X - weaken self-referential things

sub alternation {
    # alternation is first match (not longest) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1345	1444	
==>X - weaken self-referential things

sub alternation {
    # alternation is first match (not longest) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	882	1012	
==>ng.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	882	1012	
==>ng.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	882	1012	
==>ng.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15114	15247	
==>thing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15114	15247	
==>thing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15114	15247	
==>thing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if what <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2808	2910	
==>file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2808	2910	
==>file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2808	2910	
==>file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4486	4620	
==>xup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4486	4620	
==>xup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4486	4620	
==>xup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6657	6791	
==>y $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.curre <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6657	6791	
==>y $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.curre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10343	10463	
==>+1)
    match - positional submatches
    named - named submatches
    capture - return'ed things
    
    state - a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	188	303	
==>\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Spl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	188	303	
==>\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Spl <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1927	2030	
==>gram =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20053	20194	
==>tot->{sub_skipped}) {
            $bonusmsg .= " and $tot->{sub_skipped} subtest"
                         . ($tot->{sub_skipped} != 1 ? 's' : <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2696	2820	
==>am
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || di <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2696	2820	
==>am
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || di <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2669	2850	
==>}
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2669	2850	
==>}
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13381	13481	
==>class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13381	13481	
==>class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13381	13481	
==>class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::Value::identify {
    my $key = sh <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5031	5168	
==>is_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operation <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5031	5168	
==>is_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operation <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11236	11329	
==>lass method
fails_ok { $iBar->name } '... instance calling metaclass method fails';
fails_ok { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10880	11100	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10880	11100	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10880	11100	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5103	5212	
==>_editor() on it.
The editor routine is passed the current object in the recursion and
the wanted namespace ("M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5103	5212	
==>_editor() on it.
The editor routine is passed the current object in the recursion and
the wanted namespace ("M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5103	5212	
==>_editor() on it.
The editor routine is passed the current object in the recursion and
the wanted namespace ("M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8087	8225	
==>ess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8087	8225	
==>ess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8087	8225	
==>ess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24319	24429	
==>[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24319	24429	
==>[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24319	24429	
==>[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	11	124	
==>ole Math::Basic;

multi sub abs (; Num ?$x = $CALLER::_ )
    returns Num { ... }

multi sub exp (; Num ?$exponent <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3989	4086	
==>n` objects.

The array of spans must be ordered, and the spans must not intersect with each other. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3989	4086	
==>n` objects.

The array of spans must be ordered, and the spans must not intersect with each other. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3219	3339	
==>iag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILE <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3219	3339	
==>iag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4743	4863	
==>iag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1086	1177	
==>$timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARG <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1086	1177	
==>$timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARG <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1086	1177	
==>$timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARG <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21333	21452	
==>,$module)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if !(-e $path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7610	7704	
==>--------------------------------------------------------------------

## NOTE:
## we want to pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7610	7704	
==>--------------------------------------------------------------------

## NOTE:
## we want to pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7610	7704	
==>--------------------------------------------------------------------

## NOTE:
## we want to pr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2952	3102	
==>Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./ge <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2952	3102	
==>Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./ge <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	905	1022	
==>am("upload")) {
  process_upload();
} else {
  process_list();
}

exit;

sub process_upload {
  print "Content-Type: t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4511	4628	
==>st}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4294	4406	
==>st}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13186	13290	
==>lf->dir->subdir( $inst_pkg->package )->subdir('bin');

    ### XXX doesn't return an object...
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2490	2611	
==>: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2490	2611	
==>: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2490	2611	
==>: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1629	1749	
==>ile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1629	1749	
==>ile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1629	1749	
==>ile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8913	9032	
==>bstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8913	9032	
==>bstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8913	9032	
==>bstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	715	804	
==>]);

## ----------------------------------------------------------------------------
## Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	715	804	
==>]);

## ----------------------------------------------------------------------------
## Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	715	804	
==>]);

## ----------------------------------------------------------------------------
## Ob <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	84	184	
==>b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo');

#=postcircumfix
$a. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	809	908	
==>an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported opera <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	809	908	
==>an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported opera <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	679	832	
==>pt )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosis <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	679	832	
==>pt )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15702	15816	
==>tderr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'V <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15743	15841	
==>tion of a regex.  Will
be able to produce HTML output that color-codes the elements of the regex
ac <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	446	540	
==>ontiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Laz <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	446	540	
==>ontiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Laz <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12929	13078	
==>_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12929	13078	
==>_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15397	15546	
==>) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3620	3763	
==>uses them
            my @alts = eval { 
                map { JIB::Alternative->new_from_struct( struct => $_ ) }
                    LoadFile( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2478	2616	
==>_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2478	2616	
==>_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quant <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23945	24070	
==>x => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen',
      data => [],
      down = <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5649	5741	
==>o.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5649	5741	
==>o.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2289	2404	
==>ctory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	264	351	
==>*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_varia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	264	351	
==>*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_varia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10656	10763	
==>gs = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = (' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10656	10763	
==>gs = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = (' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10656	10763	
==>gs = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = (' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13681	13780	
==>p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exceptio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13681	13780	
==>p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exceptio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13681	13780	
==>p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exceptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12549	12710	
==>s[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12549	12710	
==>s[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12549	12710	
==>s[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params}[$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	928	1034	
==>xport symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	928	1034	
==>xport symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1608	1744	
==>',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> liter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1619	1755	
==>',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> liter <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5354	5454	
==>riable::free;
use base qw/type::variable/;

# a free variable is a placeholder
# when going into an A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19357	19534	
==>name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19357	19534	
==>name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19357	19534	
==>name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6768	6858	
==>::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6768	6858	
==>::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6768	6858	
==>::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5747	5841	
==>=item B<status returns Hash>

This method calls the superclass C<status> method and adds the va <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5747	5841	
==>=item B<status returns Hash>

This method calls the superclass C<status> method and adds the va <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7944	8038	
==>=item B<status returns Hash>

This method calls the superclass C<status> method and adds the va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2535	2666	
==>l5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1147	1278	
==>l5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1848	1979	
==>l5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1737	1848	
==>} )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1737	1848	
==>} )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1737	1848	
==>} )
}

multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6672	6816	
==>\n   Int       pre     List::end     safe   (Array)\
\\n   List      pre     keys    safe   (rw!Pair)\
\\n   List      pre     values  safe   (Pa <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4552	4654	
==>the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day f <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4552	4654	
==>the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	65	185	
==>{
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	65	185	
==>{
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	65	185	
==>{
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	78	203	
==>r $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	78	203	
==>r $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	78	203	
==>r $VERSION = '2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2122	2225	
==>"S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2122	2225	
==>"S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2122	2225	
==>"S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	646	744	
==>_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	646	744	
==>_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	646	744	
==>_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11589	11687	
==>------------------------

With this Role meta-model , any Class instances, themselves does Role sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11589	11687	
==>------------------------

With this Role meta-model , any Class instances, themselves does Role sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11589	11687	
==>------------------------

With this Role meta-model , any Class instances, themselves does Role sin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12439	12563	
==>'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefine <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12439	12563	
==>'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefine <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12439	12563	
==>'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	366	473	
==>ode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	366	473	
==>ode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	366	473	
==>ode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32105	32206	
==>or a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
eac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32105	32206	
==>or a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
eac <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4010	4108	
==>entage of the total tests which failed.

=item B<List of Failed>

A list of the tests which failed. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8448	8555	
==>('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8448	8555	
==>('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8448	8555	
==>('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	780	906	
==>my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	780	906	
==>my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4166	4288	
==>ompiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\&" . $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18387	18546	
==>if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18387	18546	
==>if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18387	18546	
==>if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1469	1582	
==>eter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1469	1582	
==>eter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1469	1582	
==>eter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	431	539	
==>_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	431	539	
==>_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	431	539	
==>_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	553	678	
==>ey => { single_quoted => $1 }, value => { single_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(. <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1798	1904	
==>rns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1798	1904	
==>rns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	578	690	
==>as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	578	690	
==>as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	578	690	
==>as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4339	4443	
==>, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4339	4443	
==>, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4339	4443	
==>, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1874	1994	
==>Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1874	1994	
==>Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5120	5228	
==>othing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5120	5228	
==>othing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5120	5228	
==>othing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	495	646	
==>regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	495	646	
==>regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if <==
3	/Users/nnunley/pugs/util/claim_drift.pl	95	193	
==>veral working directories and they all use a shared DrIFT,
# you need to point symlinks to the curr <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	670	776	
==>ort { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	670	776	
==>ort { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15268	15497	
==>> 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15268	15497	
==>> 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15268	15497	
==>> 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opa <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7541	7656	
==>g{"output-file"}]
    --dry, -n               Show which tests would be run but don't run them
    --concurrent=N, - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	633	733	
==>tch unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	839	939	
==>tch unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	504	607	
==>rs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	504	607	
==>rs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1 <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1987	2089	
==>*([\/\\]?)/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	342	447	
==>fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	342	447	
==>fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	342	447	
==>fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29122	29239	
==>e Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29122	29239	
==>e Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29122	29239	
==>e Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4989	5097	
==>>is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4989	5097	
==>>is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4989	5097	
==>>is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13972	14111	
==>$reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_test( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2234	2405	
==>{
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2234	2405	
==>{
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2234	2405	
==>{
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6411	6624	
==>rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6411	6624	
==>rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1218	1311	
==>t>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2142	2256	
==>Data::Dumper;

{
    my $cat = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_op <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	705	809	
==>ral {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	705	809	
==>ral {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1439	1576	
==>ame => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1439	1576	
==>ame => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1439	1576	
==>ame => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2396	2494	
==>exists($name) == $bit::FALSE)
        || confess "Attribute (" . $name->to_str->to_native . ") alre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	74	202	
==>n of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	74	202	
==>n of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	74	202	
==>n of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4082	4252	
==>ub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is impl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4082	4252	
==>ub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is impl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4082	4252	
==>ub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is impl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	693	803	
==>sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	693	803	
==>sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	693	803	
==>sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3137	3267	
==>$filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $sourc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3354	3484	
==>$filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $sourc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7522	7637	
==>mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMERI <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3106	3208	
==>($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status an <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3106	3208	
==>($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status an <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6348	6446	
==>$self = shift;
	$self->{instance}->right;
}

sub free_vars {
	my $self = shift;
	$self->{instance}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6579	6686	
==>NAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6579	6686	
==>NAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6579	6686	
==>NAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20072	20162	
==>_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20072	20162	
==>_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20072	20162	
==>_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7348	7448	
==>0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7348	7448	
==>0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7348	7448	
==>0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3554	3654	
==>defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3554	3654	
==>defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3554	3654	
==>defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5958	6085	
==>'+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globall <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5958	6085	
==>'+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globall <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	910	1013	
==>g XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored
        or die "can't match '$iso8601' to availabl <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4638	4745	
==>'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4638	4745	
==>'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd retu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1554	1655	
==>String $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::fals <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32311	32420	
==>f
which is the invocant and which is the argument.  This method will fail if
C<$other> does not have an identi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36861	36970	
==>f
which is the invocant and which is the argument.  This method will fail if
C<$other> does not have an identi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36151	36260	
==>f
which is the invocant and which is the argument.  This method will fail if
C<$other> does not have an identi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2676	2783	
==>t' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2676	2783	
==>t' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2676	2783	
==>t' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## attributes

$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10919	11065	
==>affic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<rese <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10919	11065	
==>affic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<rese <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25080	25195	
==>see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',}'> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3697	3795	
==>ad1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).). <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3697	3795	
==>ad1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7007	7179	
==>ue::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7007	7179	
==>ue::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7007	7179	
==>ue::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Pe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1544	1657	
==>start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1544	1657	
==>start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1301	1414	
==>e_file

=cut

sub available_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7065	7180	
==>[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7065	7180	
==>[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7065	7180	
==>[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      P <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	428	538	
==>dmin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } e <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	448	553	
==>dmin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2936	3065	
==>x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2936	3065	
==>x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2936	3065	
==>x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primiti <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4301	4403	
==>C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4301	4403	
==>C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6498	6600	
==>C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

This parameter d <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12519	12602	
==>ped"><span title="<tmpl_var name=skipped> skipped"><tmpl_var name=skipped></span>,</ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5517	5724	
==>ew 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7279	7486	
==>ew 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))) <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	721	828	
==>intf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $testdir/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33922	34040	
==>rray->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33922	34040	
==>rray->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33922	34040	
==>rray->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9058	9182	
==>ime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9251	9375	
==>ime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50245	50363	
==>elf:')->set_attr(symbol->new('$:authority'), $e->get('?$authority'));
                  }));
                $e->get('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10247	10346	
==>aque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10247	10346	
==>aque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10247	10346	
==>aque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2313	2432	
==>ter> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2313	2432	
==>ter> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1703	1806	
==>_alias  {  \$<number>    \:\=  <construct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9	123	
==>n/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9	123	
==>n/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9	123	
==>n/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2276	2390	
==>N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2276	2390	
==>N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2276	2390	
==>N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6522	6655	
==>ilation on
                # the module content; not the DATA section. Because we
                # want to make sure that the program <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6522	6655	
==>ilation on
                # the module content; not the DATA section. Because we
                # want to make sure that the program <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2445	2538	
==>"Attribute (" . $name->to_str->to_native . ") already exists";
    return $self->[2]->store($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12938	13063	
==>$_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12938	13063	
==>$_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12938	13063	
==>$_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6402	6490	
==>superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6402	6490	
==>superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6402	6490	
==>superclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6795	6899	
==>ter way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    whil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6795	6899	
==>ter way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    whil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6795	6899	
==>ter way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    whil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11241	11328	
==>s Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1699	1784	
==>s Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1699	1784	
==>s Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30895	30993	
==>e set as the current one.  The
Member Name comes next and is what distinguishes each module from ot <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30895	30993	
==>e set as the current one.  The
Member Name comes next and is what distinguishes each module from ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	44	149	
==>PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	44	149	
==>PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	44	149	
==>PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code later.
# Why <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3344	3499	
==>t to the
        # cygwin root.  There is probably a better way to find this.
        # (registry lookup?)

        my $cygroot = $ENV{'!C:'};

        $cyg <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9129	9256	
==>ersion = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9129	9256	
==>ersion = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22218	22310	
==>ystem - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22218	22310	
==>ystem - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22218	22310	
==>ystem - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14634	14772	
==>$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14634	14772	
==>$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14634	14772	
==>$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2158	2263	
==>", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2158	2263	
==>", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2158	2263	
==>", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&» <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10014	10130	
==>00000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10014	10130	
==>00000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10014	10130	
==>00000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1436	1552	
==>e
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_only <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15329	15427	
==>alue to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15329	15427	
==>alue to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	364	468	
==>("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	364	468	
==>("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	364	468	
==>("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($nam <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7670	7838	
==>v ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7670	7838	
==>v ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	456	558	
==>class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$.ou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7100	7230	
==>nshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7293	7423	
==>nshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'gr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10716	10814	
==>die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $args{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8616	8724	
==>@xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8616	8724	
==>@xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8616	8724	
==>@xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11979	12096	
==>od('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11979	12096	
==>od('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11979	12096	
==>od('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6964	7053	
==>-----------------------------------------------

# stub this for the moment ...
$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6964	7053	
==>-----------------------------------------------

# stub this for the moment ...
$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6964	7053	
==>-----------------------------------------------

# stub this for the moment ...
$::Class-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27381	27467	
==>_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_on <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20026	20111	
==>he C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20026	20111	
==>he C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3046	3139	
==>other) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3046	3139	
==>other) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2987	3102	
==>Path::Class::dir( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25640	25735	
==>ight holders of
Rosetta can sell you an alternate, limited license that allows you to link
Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25640	25735	
==>ight holders of
Rosetta can sell you an alternate, limited license that allows you to link
Roset <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21857	22151	
==>w($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	768	1047	
==>_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1160	1264	
==>},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1160	1264	
==>},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1160	1264	
==>},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2472	2570	
==>d('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2472	2570	
==>d('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2472	2570	
==>d('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19033	19141	
==>ally
        $.($key) = $value if $.($key);
    }
}

(method BUILD ((opaque $self:) (hash %params)) returns n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2801	2894	
==>curr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.ne <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2801	2894	
==>curr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17659	17838	
==>' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17659	17838	
==>' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17659	17838	
==>' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5016	5161	
==>ixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5016	5161	
==>ixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5016	5161	
==>ixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	475	650	
==>"$tab ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2352	2448	
==>solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/value <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2352	2448	
==>solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1786	1888	
==>an\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1786	1888	
==>an\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1786	1888	
==>an\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7875	8006	
==>'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7875	8006	
==>'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	497	613	
==>le'> <rule_name><?ws>?<block>{
	my $body = substr($<block>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9676	9803	
==>n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9656	9783	
==>n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14242	14344	
==>ey ~~ any(@keytests)> as true are iterated.

What is returned at each element of the iteration varies w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1620	1821	
==>my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1620	1821	
==>my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1620	1821	
==>my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14663	14759	
==>ds'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14663	14759	
==>ds'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14663	14759	
==>ds'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6062	6240	
==>ull,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6062	6240	
==>ull,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6062	6240	
==>ull,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against m <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2107	2231	
==>> 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2107	2231	
==>> 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10370	10478	
==>d login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently loggi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10370	10478	
==>d login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently loggi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7018	7183	
==>( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7018	7183	
==>( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7018	7183	
==>( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7825	7925	
==>=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use Fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7825	7925	
==>=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	321	421	
==>d at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	321	421	
==>d at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	321	421	
==>d at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3915	4032	
==>y $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3915	4032	
==>y $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3915	4032	
==>y $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7364	7458	
==>esolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7364	7458	
==>esolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7364	7458	
==>esolve->($::Class);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::mak <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21899	22022	
==>tr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2016	2129	
==>eature like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3608	3721	
==>eature like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2114	2245	
==>r,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2032	2156	
==>r,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4038	4134	
==>c/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1853	1954	
==>? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1853	1954	
==>? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1853	1954	
==>? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4603	4719	
==>, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
place.  You have two <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4603	4719	
==>, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
place.  You have two <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6127	6243	
==>, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
place.  You have two <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3827	3928	
==>ired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3827	3928	
==>ired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4417	4518	
==>ired"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slu <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1648	1755	
==>oke server.
  --version
    Outputs the version of this program and exits.
  --help
    Show this help.

Opt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4142	4225	
==>Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4142	4225	
==>Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2378	2481	
==>n( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2595	2698	
==>n( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cac <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10709	10810	
==>ring') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($keys)};";} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	736	851	
==>}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	736	851	
==>}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	736	851	
==>}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub cl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12157	12323	
==>hing ::= &semidifference;

###########################################################################

method semijoin (Relation::Example $other!) returns Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6237	6346	
==>5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is expo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6237	6346	
==>5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is expo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1979	2273	
==>, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1697	1833	
==>ess defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1685	1821	
==>ess defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3177	3287	
==>s, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3177	3287	
==>s, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3177	3287	
==>s, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2572	2687	
==>specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2572	2687	
==>specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2572	2687	
==>specification of Array, Hash, Pair stringification

# TODO - sum()
# TODO - there are too many methods under AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1358	1463	
==>sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1358	1463	
==>sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('p <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	28	126	
==>ndie::TestPrograms;
use base qw/Exporter/;

use strict;
use warnings;

use Blondie::Nodes;

use Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7812	7932	
==>) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7812	7932	
==>) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7812	7932	
==>) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3835	3928	
==>Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3835	3928	
==>Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3835	3928	
==>Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1187	1308	
==>{
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1187	1308	
==>{
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1187	1308	
==>{
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::R <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2681	2874	
==>nterpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($m <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2681	2874	
==>nterpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4438	4550	
==>$path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4438	4550	
==>$path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	96	244	
==>inue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	96	244	
==>inue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36085	36193	
==>re done.  Now
we just need to return the regex representation of our children:

    return join "",
      map <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9517	9639	
==>$.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9517	9639	
==>$.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1701	1823	
==>d "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1701	1823	
==>d "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1701	1823	
==>d "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 <==
3	/Users/nnunley/pugs/util/claim_drift.pl	1077	1212	
==>unlink  $orig        or die "unlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbos <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3036	3134	
==>ns with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3036	3134	
==>ns with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12767	12879	
==>_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12767	12879	
==>_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12767	12879	
==>_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2948	3114	
==>/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2948	3114	
==>/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2948	3114	
==>/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the at <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20711	20804	
==>t> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a has <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20711	20804	
==>t> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a has <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5323	5421	
==>ving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5323	5421	
==>ving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5323	5421	
==>ving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1137	1239	
==>[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1137	1239	
==>[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1137	1239	
==>[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6612	6726	
==>e eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6612	6726	
==>e eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6612	6726	
==>e eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	655	904	
==>::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta::Model::Do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	655	904	
==>::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta::Model::Do <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2756	2870	
==>ss = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		if (Scalar::Ut <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34491	34763	
==>t')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->se <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6331	6435	
==>lf: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6331	6435	
==>lf: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2158	2248	
==>TP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2158	2248	
==>TP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10755	10909	
==>ub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7835	7983	
==>ub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7835	7983	
==>ub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13211	13309	
==>n $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13211	13309	
==>n $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13211	13309	
==>n $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($self, $la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14060	14161	
==>ibutes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14060	14161	
==>ibutes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14060	14161	
==>ibutes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7003	7124	
==>e PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7003	7124	
==>e PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7003	7124	
==>e PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26068	26164	
==>me is a machine-readable short
string; the allowed variable names you can have depend on the Mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26068	26164	
==>me is a machine-readable short
string; the allowed variable names you can have depend on the Mess <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7824	7934	
==>match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7561	7664	
==>match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15828	15925	
==>ort the same levels as the input, unless specified otherwise.

=over

=item chop

 multi Str::chop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2792	2905	
==>t_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); nex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2792	2905	
==>t_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); nex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2792	2905	
==>t_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); nex <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24615	24728	
==>sjunction {  # see 15.10.1
      <Alternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4772	4868	
==>rence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrenc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4772	4868	
==>rence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7844	7978	
==>ry->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7844	7978	
==>ry->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7844	7978	
==>ry->push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7884	8023	
==>sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7884	8023	
==>sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7884	8023	
==>sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname,                   $jsname;
    }

    r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2046	2180	
==>rrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2] <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2046	2180	
==>rrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2] <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1401	1523	
==>>{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		w <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8512	8611	
==>identally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#b <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8512	8611	
==>identally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27344	27472	
==>...
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_merge'),
    # method body
        method- <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11402	11501	
==>urns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Coo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11402	11501	
==>urns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Coo <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7272	7376	
==>sion_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4893	4992	
==>p $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4893	4992	
==>p $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4893	4992	
==>p $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8433	8669	
==>my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8433	8669	
==>my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8433	8669	
==>my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4503	4620	
==>subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4503	4620	
==>subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4503	4620	
==>subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16533	16654	
==>e v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16533	16654	
==>e v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time th <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9851	9966	
==>filtered_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any wh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20617	20717	
==>a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20617	20717	
==>a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h. <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	54	138	
==>perl5/site_perl/5.8.7/Module/Install/Win32.pm"
package Module::Install::Win32;
use Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2613	2831	
==>{
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2613	2831	
==>{
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2613	2831	
==>{
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8733	8840	
==>hObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	191	295	
==>etasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	191	295	
==>etasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4436	4534	
==>.toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join ": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4436	4534	
==>.toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join ": <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4436	4534	
==>.toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join ": <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1597	1740	
==>e = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1597	1740	
==>e = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1597	1740	
==>e = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("P <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4894	5028	
==>en - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4894	5028	
==>en - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that th <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	514	615	
==>seen} = {};

	return $self->reduce($program) unless @nodes;

	$self->{seen} = { map { $_ => $_ } @node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3063	3162	
==>ugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2954	3049	
==>ugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1820	1923	
==>r die "all_from called with no args without setting name() first";
        $file = join('/', 'lib', spli <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	493	595	
==>eturn "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	493	595	
==>eturn "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10599	10786	
==>ect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10599	10786	
==>ect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4755	4866	
==>%args, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or return;
        spl <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16036	16148	
==>$S1
    $S0 .= ", found '"
    $P1 = getattribute mob, "PGE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12805	12902	
==>Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12805	12902	
==>Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8764	8877	
==>$str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8764	8877	
==>$str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8764	8877	
==>$str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10988	11131	
==>e' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10988	11131	
==>e' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3220	3326	
==>py) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.com <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3220	3326	
==>py) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3989	4112	
==>>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3989	4112	
==>>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3989	4112	
==>>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9952	10091	
==>) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9952	10091	
==>) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9952	10091	
==>) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6432	6541	
==>{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6432	6541	
==>{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6432	6541	
==>{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1737	1857	
==>r message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1737	1857	
==>r message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1737	1857	
==>r message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1869	1983	
==>ferences
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_grou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1869	1983	
==>ferences
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_grou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2807	2915	
==>ethod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2807	2915	
==>ethod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2807	2915	
==>ethod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->c <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4679	4805	
==>++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        } <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4679	4805	
==>++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12501	12607	
==>ation.

To see if an error is a particular one, use the error_is() method:

  if ($parser->error_is($parser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15794	15954	
==>ay->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15794	15954	
==>ay->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15794	15954	
==>ay->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34832	34938	
==>$array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34832	34938	
==>$array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34832	34938	
==>$array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8827	8927	
==>->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction viol <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8827	8927	
==>->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction viol <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8827	8927	
==>->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction viol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3142	3253	
==>et('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3142	3253	
==>et('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3142	3253	
==>et('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4414	4597	
==>new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4414	4597	
==>new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4414	4597	
==>new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Contain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37748	37869	
==>'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37748	37869	
==>'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37748	37869	
==>'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2863	2967	
==>{
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2863	2967	
==>{
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6069	6164	
==>me, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6069	6164	
==>me, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	877	982	
==>:SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	877	982	
==>:SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	877	982	
==>:SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1497	1684	
==>once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4974	5161	
==>once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3904	4091	
==>once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18340	18544	
==>{ confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18340	18544	
==>{ confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18340	18544	
==>{ confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4952	5060	
==>if shift->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20851	20959	
==>($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20851	20959	
==>($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20851	20959	
==>($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4388	4572	
==>apture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4255	4433	
==>apture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                sta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8721	8863	
==>e "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	300	413	
==>t} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	300	413	
==>t} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6339	6443	
==>o_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->simplify_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6101	6230	
==>$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6101	6230	
==>$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6101	6230	
==>$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3011	3131	
==>my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3011	3131	
==>my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3011	3131	
==>my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	374	473	
==>_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override thi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	374	473	
==>_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14719	14855	
==>has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14719	14855	
==>has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14719	14855	
==>has to @a[$off+$i], see t/operators/binding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2354	2472	
==>: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{runcore}       = pugspat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	753	857	
==>code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	753	857	
==>code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8679	8815	
==>>{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9514	9650	
==>>{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2975	3082	
==>t "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '<item>',
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7094	7253	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7094	7253	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7094	7253	
==>) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::S <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22735	22843	
==>ntain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	792	886	
==>fy> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as so <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	792	886	
==>fy> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as so <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	656	774	
==>erl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule {
    package Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	270	367	
==>OS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBM <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	270	367	
==>OS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40442	40584	
==>) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40442	40584	
==>) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40442	40584	
==>) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4657	4757	
==>atch => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4657	4757	
==>atch => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4657	4757	
==>atch => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	686	832	
==>mpile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	686	832	
==>mpile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	742	861	
==>ame2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	345	459	
==>addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_params <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	345	459	
==>addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_params <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3085	3203	
==>ourceCharacter {  # see clause 6
      . #dot
}
rule InputElementDiv {  # see clause 7
      <WhiteSpace>
    | <LineTe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	137	239	
==>Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	137	239	
==>Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	868	995	
==>ar name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	868	995	
==>ar name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	868	995	
==>ar name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2358	2468	
==>d_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2358	2468	
==>d_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2438	2548	
==>d_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3062	3155	
==>l 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3062	3155	
==>l 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3062	3155	
==>l 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4119	4232	
==>skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4119	4232	
==>skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4119	4232	
==>skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7839	7951	
==>=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7839	7951	
==>=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7839	7951	
==>=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5715	5852	
==>list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5715	5852	
==>list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5715	5852	
==>list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($lis <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26347	26443	
==>ppreciate being informed any time you create a modified version of Rosetta
that you are willing t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26347	26443	
==>ppreciate being informed any time you create a modified version of Rosetta
that you are willing t <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	1	113	
==>use v6;

role Math::Basic;

multi sub abs (; Num ?$x = $CALLER::_ )
    returns Num { ... }

multi sub exp (; Num <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2132	2237	
==>$<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ") <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2132	2237	
==>$<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18296	18490	
==>$ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "ST <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18296	18490	
==>$ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "ST <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18296	18490	
==>$ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "ST <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	91	186	
==>@.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	91	186	
==>@.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( sp <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2229	2347	
==>k and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, sto <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2229	2347	
==>k and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, sto <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12107	12211	
==>ee 9.3.1
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7424	7558	
==>b "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7424	7558	
==>b "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7424	7558	
==>b "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12137	12363	
==>' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12137	12363	
==>' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12137	12241	
==>ent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12137	12241	
==>ent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12137	12241	
==>ent class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2340	2489	
==>>store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2340	2489	
==>>store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2340	2489	
==>>store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5689	5811	
==>^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5689	5811	
==>^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5689	5811	
==>^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actually use an inclusion <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	109	234	
==>IB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	114	238	
==>IB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	112	236	
==>IB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9161	9299	
==>"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws> <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13720	13819	
==>urements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13720	13819	
==>urements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_sp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1126	1232	
==>_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) { <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1126	1232	
==>_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4915	5014	
==>r than rules or macros. (The numeric
    rxmods are recognized by fallback macros defined with an em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12669	12835	
==>,
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12669	12835	
==>,
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12669	12835	
==>,
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12352	12510	
==>eader('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12352	12510	
==>eader('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (U <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	444	570	
==>f $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of the keys in the met <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23860	23984	
==>ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9549	9720	
==>)
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5507	5623	
==>on;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5507	5623	
==>on;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5507	5623	
==>on;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	197	306	
==>, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	197	306	
==>, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7625	7716	
==>ere is a compilation-stopping error>, $parser->errmsg will return
that error message, and $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3287	3377	
==>tant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3287	3377	
==>tant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3287	3377	
==>tant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7138	7281	
==>xt
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded templ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7138	7281	
==>xt
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded templ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	425	538	
==>yte         is Char, Number;

macro LChar () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1246	1345	
==>x:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1246	1345	
==>x:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1246	1345	
==>x:<!> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	179	293	
==>args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	179	293	
==>args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	179	293	
==>args[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10305	10441	
==>ghtly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10305	10441	
==>ghtly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10305	10441	
==>ghtly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4164	4330	
==>alue::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4164	4330	
==>alue::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4164	4330	
==>alue::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7759	7889	
==>defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7759	7889	
==>defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7759	7889	
==>defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @argument <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3688	3791	
==>rom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj->position( $matchObj->fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	149	261	
==>pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	149	261	
==>pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	149	261	
==>pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1281	1376	
==>: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1281	1376	
==>: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15442	15532	
==>1).

re_parse(Pat,Re) :-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1853	1949	
==>eturn m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOP <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1853	1949	
==>eturn m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23750	23951	
==>scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23750	23951	
==>scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23750	23951	
==>scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3844	3939	
==>le_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception on <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4028	4123	
==>le_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6354	6460	
==>_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6354	6460	
==>_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6354	6460	
==>_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6511	6613	
==>PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6511	6613	
==>PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6511	6613	
==>PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38991	39084	
==>creating a new escape sequence, like '\y', your handler will
receive an additional argument wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	725	836	
==>),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	725	836	
==>),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	725	836	
==>),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2206	2367	
==>>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2206	2367	
==>>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5302	5433	
==>g->meta->to_struct;
        
        # add the archive path to the package's meta info
        $meta->{archive} =
            $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2806	2918	
==>y $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2806	2918	
==>y $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2806	2918	
==>y $pil = eval { run_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	153	276	
==>in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	153	276	
==>in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	153	276	
==>in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3793	3913	
==>n \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3793	3913	
==>n \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3793	3913	
==>n \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2632	2741	
==>d name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2632	2741	
==>d name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2632	2741	
==>d name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2265	2352	
==>statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2265	2352	
==>statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2265	2352	
==>statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9611	9759	
==>$reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1704	1842	
==>$reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1704	1842	
==>$reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_tes <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	68	180	
==>l';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@AR <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	68	180	
==>l';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@AR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6007	6110	
==>ce_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handler('\x' => su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11575	11686	
==>mpl, \%hash ) or error( Params::Check->last_error ), return;

    my $alt; 
    my @alts = map  { $_->[0] } # re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22210	22314	
==>eClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <CaseClauses> <CaseCla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1443	1544	
==>r::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA, __PACKAGE__;

  sub new {
    my ($class, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	845	964	
==>to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (blessed($right))
        || confess "The r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	144	261	
==>s export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	144	261	
==>s export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7853	7955	
==>{!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_need <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7853	7955	
==>{!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_need <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7853	7955	
==>{!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_need <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	801	939	
==>le (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	801	939	
==>le (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	801	939	
==>le (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8844	8973	
==>ecurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8844	8973	
==>ecurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52254	52354	
==>------------------------------------------------------
## finishing up the boostrapping

# < Class is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16412	16501	
==>otation went with this attribute when it's declared"
$::Class->add_method('find_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16412	16501	
==>otation went with this attribute when it's declared"
$::Class->add_method('find_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16412	16501	
==>otation went with this attribute when it's declared"
$::Class->add_method('find_attribute_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1306	1430	
==>rimitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1306	1430	
==>rimitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1306	1430	
==>rimitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17267	17365	
==>MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17267	17365	
==>MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17267	17365	
==>MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4797	4956	
==>x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4797	4956	
==>x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3522	3633	
==>t' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8603	8726	
==>) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => ghc-pkg-6.5
            or $ghc <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3756	3858	
==>_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        nex <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3756	3858	
==>_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1643	1773	
==>tToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1643	1773	
==>tToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1643	1773	
==>tToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}->FET <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5315	5480	
==>ge as being authorative for these links ###
                $href->{ $path } = { bin => \@bins, auto => 1 };
                    
                ### dump out alterna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1204	1306	
==>modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1204	1306	
==>modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2762	2879	
==>::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2762	2879	
==>::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1446	1551	
==>est::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1759	1885	
==>S.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1759	1885	
==>S.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1759	1885	
==>S.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7940	8124	
==>t;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SEL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7940	8124	
==>t;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SEL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8764	8896	
==>iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8764	8896	
==>iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8764	8896	
==>iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12690	12799	
==>f ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12690	12799	
==>f ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12690	12799	
==>f ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17754	17881	
==>$value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17754	17881	
==>$value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17754	17881	
==>$value, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2982	3087	
==>ot ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2982	3087	
==>ot ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3062	3167	
==>ot ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8386	8518	
==>re::params->new(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->new("$label", q<symbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	185	282	
==>::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# Change <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	185	282	
==>::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# Change <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	185	282	
==>::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# Change <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1967	2079	
==>e) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1649	1757	
==>e) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2297	2405	
==>e) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($na <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	867	1018	
==>ER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	867	1018	
==>ER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11394	11545	
==>];
        $X::cap->[$idx] = $m;
        my $v = $f->($close);
        $m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5648	5757	
==>elf->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5648	5757	
==>elf->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5648	5757	
==>elf->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	595	708	
==>}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	595	708	
==>}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	595	708	
==>}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2656	2769	
==>HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it ha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2656	2769	
==>HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it ha <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10134	10223	
==>rl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pugs/perl5/PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1983	2081	
==>referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1983	2081	
==>referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1983	2081	
==>referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11296	11413	
==>lf = shift;
    join "", @{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14876	14973	
==>s are implemented, we will need an easy way
to test them. So we will implement the Test::More func <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14934	15031	
==>s are implemented, we will need an easy way
to test them. So we will implement the Test::More func <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15048	15180	
==>ces = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # N <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18525	18657	
==>ces = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # N <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17941	18073	
==>ces = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3531	3668	
==>abel} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3531	3668	
==>abel} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtim <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5951	6053	
==>{ "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->reduce($thunk->v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34448	34559	
==>{ 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34448	34559	
==>{ 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34448	34559	
==>{ 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7315	7507	
==>::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7315	7507	
==>::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7315	7507	
==>::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3361	3465	
==>lf<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3361	3465	
==>lf<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2724	2822	
==>ALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2724	2822	
==>ALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2724	2822	
==>ALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1422	1544	
==>:make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1422	1544	
==>:make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1422	1544	
==>:make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	652	760	
==>se {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	652	760	
==>se {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	652	760	
==>se {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26912	27014	
==>gument is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26912	27014	
==>gument is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4141	4247	
==>def_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4141	4247	
==>def_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4141	4247	
==>def_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20852	20947	
==>If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25404	25499	
==>If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23992	24087	
==>If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	845	965	
==>sed
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	845	965	
==>sed
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2158	2291	
==>uoted} . ')' 
        if exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31748	31842	
==>ively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36298	36392	
==>ively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) r <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1085	1226	
==>/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escap <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1085	1226	
==>/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escap <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10809	10941	
==>e = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the opening deli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20891	20989	
==>.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field name sho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20891	20989	
==>.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field name sho <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17282	17398	
==>s"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8870	8965	
==>m I<string>

This event processes raw strings.

=item I<newline>

This event handles newlines in <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8870	8965	
==>m I<string>

This event processes raw strings.

=item I<newline>

This event handles newlines in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4184	4349	
==>) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        retu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4184	4349	
==>) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14590	14703	
==>};
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(method CREATE ((opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1036	1149	
==>function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1036	1149	
==>function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1036	1149	
==>function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	806	941	
==>xup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	806	941	
==>xup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	806	941	
==>xup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30690	30908	
==>}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30690	30908	
==>}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30690	30908	
==>}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10479	10588	
==>_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10637	10746	
==>_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3187	3316	
==>] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3187	3316	
==>] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match} <==
3	/Users/nnunley/pugs/util/build_pugs.pl	111	206	
==>h rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs;
use Config <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2573	2739	
==>ist( $self->package );
        
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            syste <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9311	9412	
==>e
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9311	9412	
==>e
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20511	20728	
==>->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20511	20728	
==>->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20511	20728	
==>->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2459	2571	
==>ure from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    Y       sa <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2655	2756	
==>se = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $sel <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2655	2756	
==>se = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7249	7348	
==>head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7249	7348	
==>head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7249	7348	
==>head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3900	4020	
==>_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3900	4020	
==>_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	750	870	
==>_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	799	945	
==>>{var},
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	781	918	
==>>{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	781	918	
==>>{var},
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $par <==
3	/Users/nnunley/pugs/util/importgraph.pl	932	1047	
==>x) {
      $imports{$2} = [defined($1), defined($3)];
    } elsif (/^import|^module/) {
      warn "Unrecognised imp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26390	26486	
==>e a modified version of Rosetta
that you are willing to distribute, because that is a practical w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26390	26486	
==>e a modified version of Rosetta
that you are willing to distribute, because that is a practical w <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1598	1707	
==>=~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        goto &{$self->can('ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	189	292	
==>} => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	189	292	
==>} => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	189	292	
==>} => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10135	10244	
==>moize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10135	10244	
==>moize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10135	10244	
==>moize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	258	368	
==>onal   qw[can_load];
use File::Basename              qw[dirname];

=pod

=head1 NAME

JIB::Utils

=head1 METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5984	6078	
==>r got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the right metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10241	10335	
==>r got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the right metho <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1137	1238	
==>o DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a dat <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1137	1238	
==>o DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2855	2979	
==>=> 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        name => 'tr <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2825	2927	
==>fg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Synt <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2825	2927	
==>fg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Synt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7840	7945	
==>eeded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7840	7945	
==>eeded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7840	7945	
==>eeded = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	924	1026	
==>::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	924	1026	
==>::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	924	1026	
==>::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2023	2145	
==>return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5996	6118	
==>If expected is 0, treat range as absolute
        $pass = ($got <= $range) && ($got >= - $range);
    } else {
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2083	2205	
==>return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3381	3468	
==>paque_instance_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4075	4162	
==>paque_instance_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5283	5370	
==>paque_instance_attrs($Class)->{'$:superclass'} = $Object;

## -------------------------- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4015	4151	
==>y_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], } }

    | BAREWORD 'IF <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5180	5280	
==>ft if ( $tokenCat == PGE_OPTABLE_CIRCUMFIX );
  push @termStack, $operator;

  expect_oper:
  goto en <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11892	11989	
==>ep num"><tmpl_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15263	15387	
==>rnation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15542	15666	
==>rnation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop:: <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	699	807	
==>ssion, %.3f binding, %.3f execution)\n", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2566	2692	
==>nt<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We wan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2566	2692	
==>nt<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We wan <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11080	11174	
==>>val), "\n";
printf"Run took: %.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2666	2780	
==>le expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2666	2780	
==>le expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2666	2780	
==>le expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3536	3655	
==>ined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3536	3655	
==>ined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3536	3655	
==>ined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7890	8021	
==>y();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7890	8021	
==>y();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7890	8021	
==>y();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1008	1134	
==>09 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1008	1134	
==>09 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1150	1248	
==>db_param->is_optional(1)
		unless $param->{required};
	    $invocant = $db_param;
	}
	elsif ($param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	332	449	
==>"Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	332	449	
==>"Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	332	449	
==>"Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4829	4929	
==>$self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5173	5273	
==>$self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27115	27211	
==>D FILES: scr.tmp 0 my.db

If relative, directory name is with respect to the current directory at <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	537	672	
==>turn res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	537	672	
==>turn res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	537	672	
==>turn res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	170	275	
==>ingify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	170	275	
==>ingify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recur <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	585	687	
==>ig{sitebin},
        siteprefix=> $Config{siteprefix},

        installscript  => $Config{installscript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	561	654	
==>join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	561	654	
==>join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	561	654	
==>join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2465	2570	
==>('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string por <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2465	2570	
==>('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string por <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6232	6336	
==>]e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
        ([ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3603	3703	
==>bpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3603	3703	
==>bpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3603	3703	
==>bpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8555	8699	
==>ule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #prin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12464	12605	
==>ule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12464	12605	
==>ule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2296	2403	
==>mber(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2296	2403	
==>mber(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2296	2403	
==>mber(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14133	14325	
==>s => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14133	14325	
==>s => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14133	14325	
==>s => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9026	9167	
==>gth = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9026	9167	
==>gth = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9026	9167	
==>gth = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3122	3257	
==>module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32- <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3122	3257	
==>module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14750	14845	
==>Invalid [] range "%s-%s"

=back

=head1 EXTENSIONS

Here are some ideas for extensions (sub-clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3458	3562	
==>= args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3458	3562	
==>= args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3458	3562	
==>= args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7619	7716	
==>ist;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7619	7716	
==>ist;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7619	7716	
==>ist;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Array <==
3	/Users/nnunley/pugs/util/grokprims.pl	737	825	
==>>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14068	14170	
==>end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $le <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14068	14170	
==>end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $le <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14068	14170	
==>end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14707	14826	
==>'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14707	14826	
==>'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14707	14826	
==>'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1074	1187	
==>te" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1074	1187	
==>te" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1074	1187	
==>te" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	684	785	
==>Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	684	785	
==>Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16053	16167	
==>!";

    my $results = runperl(%$runperl_args);
    my $status = $?;

    # Clean up the results into something a b <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8767	8876	
==>ctedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8825	8934	
==>ctedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5159	5272	
==>e-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5159	5272	
==>e-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5159	5272	
==>e-everything slurpy param (*@foo, as opposed to *$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13180	13302	
==>> 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13180	13302	
==>> 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	634	733	
==>($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_half_even (Num $x) {
	return int($x.is_e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4070	4172	
==>ion> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4070	4172	
==>ion> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6267	6369	
==>ion> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23849	23967	
==>if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23849	23967	
==>if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23849	23967	
==>if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9992	10159	
==>d->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9992	10159	
==>d->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9992	10159	
==>d->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5875	6022	
==>{ 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5875	6022	
==>{ 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5875	6022	
==>{ 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s <==
3	/Users/nnunley/pugs/util/package-osx.pl	1765	1854	
==>ib/perl5/site_perl/PIL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/local/lib/perl5/si <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9698	9831	
==>ck),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6039	6172	
==>ck),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6888	7021	
==>ck),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' in the body's AS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3304	3444	
==>igspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3292	3432	
==>igspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5052	5165	
==>en =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5052	5165	
==>en =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5139	5300	
==>A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5139	5300	
==>A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5139	5300	
==>A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17478	17594	
==>e 11.10
      <BitwiseXORExpression>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpress <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	990	1089	
==>new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(a <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	990	1089	
==>new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1837	1980	
==>Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1837	1980	
==>Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7978	8095	
==>be run to test I<$file>.

=cut

sub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6889	7042	
==><PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_pod || /^=cut/);  # skip pod tex <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3390	3490	
==>, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isr <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3390	3490	
==>, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13912	14021	
==>, so to try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17389	17498	
==>, so to try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16769	16878	
==>, so to try and make the least expensive kinds of combining
    # occur first, and most expensive later.
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	359	448	
==>o, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	359	448	
==>o, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	359	448	
==>o, $qc);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7440	7537	
==>all_roles' => ::make_method($_collect_all_roles));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7440	7537	
==>all_roles' => ::make_method($_collect_all_roles));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7440	7537	
==>all_roles' => ::make_method($_collect_all_roles));

## ------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1710	1833	
==>and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1710	1833	
==>and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1710	1833	
==>and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $sel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7866	7983	
==>Literal {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule Numer <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2146	2261	
==>' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2146	2261	
==>' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2384	2530	
==>,
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => 'left',
        precedence <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	705	799	
==>iens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are se <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	705	799	
==>iens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1241	1336	
==>::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1241	1336	
==>::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1241	1336	
==>::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, st <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	324	426	
==>y package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	324	426	
==>y package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23004	23106	
==>rmSomewhere(Re,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1814	1912	
==>TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1814	1912	
==>TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1814	1912	
==>TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9980	10105	
==>JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9980	10105	
==>JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9980	10105	
==>JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6091	6292	
==>to, $target) ) ) {
                error( "Could not create subdir to copy to" );
                return;
            }                
        }        
        
        ### strip the leading dirs from <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3341	3442	
==>gs);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3341	3442	
==>gs);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5299	5406	
==>ub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5299	5406	
==>ub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5299	5406	
==>ub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3048	3202	
==>\&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3059	3213	
==>\&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19597	19705	
==>nt>
    | <IterationStatement>
    | <ContinueStatement>
    | <BreakStatement>
    | <ReturnStatement>
    | <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3072	3244	
==>string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3072	3244	
==>string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3072	3244	
==>string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4897	5035	
==>ts for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4897	5035	
==>ts for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4897	5035	
==>ts for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5418	5531	
==>$name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5418	5531	
==>$name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5418	5531	
==>$name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_role->author <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1727	1837	
==>w('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1727	1837	
==>w('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1727	1837	
==>w('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7867	8116	
==>new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9652	9748	
==>ny, but not all, ciphers will need to override these
method _head() returns Array { return }
meth <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9652	9748	
==>ny, but not all, ciphers will need to override these
method _head() returns Array { return }
meth <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10176	10308	
==>tname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10176	10308	
==>tname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22226	22322	
==>E

Relation -
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0.1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5252	5340	
==>'class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5252	5340	
==>'class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5252	5340	
==>'class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2600	2697	
==>X ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2600	2697	
==>X ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2600	2697	
==>X ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6129	6238	
==>el version of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helpe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6129	6238	
==>el version of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helpe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6129	6238	
==>el version of OUTER::?

Either way, I think it might be useful to have this if for nothing other than 
a helpe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15159	15265	
==>optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and join al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18636	18742	
==>optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and join al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18052	18158	
==>optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and join al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6695	6839	
==>> Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6695	6839	
==>> Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6695	6839	
==>> Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	892	1004	
==>(a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) proba <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	892	1004	
==>(a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) proba <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	892	1004	
==>(a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) proba <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13135	13242	
==>tick.

  The implementation is at best an XS-based module (currently Inline::C),
  and is thus not very port <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15947	16043	
==>n a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified

This he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15947	16043	
==>n a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified

This he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13440	13639	
==>::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13440	13639	
==>::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13440	13639	
==>::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2644	2744	
==>rl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2644	2744	
==>rl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2644	2744	
==>rl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2246	2407	
==>agnostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4452	4585	
==>ms
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4452	4585	
==>ms
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9739	9848	
==>ssName = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2794	2940	
==>'ternary';
    }
    
    return statement( $n )
        if ref $n->{op1} && exists $n->{op1}{stmt};

    return default( $n );
}

sub ass <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1481	1615	
==>pe($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $nam <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1481	1615	
==>pe($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6534	6666	
==>ack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6534	6666	
==>ack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6534	6666	
==>ack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2227	2327	
==>$self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2227	2327	
==>$self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34046	34139	
==>f_char

Types: anyof_char (C<X>)

Data: actual character

=head2 anyof_range

Family: anyof_ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6257	6354	
==>to mess
with members belonging to 3rd party classes that your object might be
holding. Using the n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6257	6354	
==>to mess
with members belonging to 3rd party classes that your object might be
holding. Using the n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6257	6354	
==>to mess
with members belonging to 3rd party classes that your object might be
holding. Using the n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5703	5911	
==>he Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5703	5911	
==>he Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5703	5911	
==>he Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23172	23322	
==>($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n.\n";

    eval $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7485	7598	
==>push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7485	7598	
==>push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7485	7598	
==>push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4210	4311	
==>to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4210	4311	
==>to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4210	4311	
==>to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1743	1865	
==>5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domai <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1743	1865	
==>5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6874	6990	
==>args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6874	6990	
==>args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6874	6990	
==>args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Per <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13872	13983	
==>ethod join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13872	13983	
==>ethod join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $cha <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2294	2391	
==>w/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Nodes - Basic AST no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2799	2928	
==>re an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # howev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2799	2928	
==>re an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # howev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2799	2928	
==>re an 
    # instance of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # howev <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1408	1525	
==>);
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1408	1525	
==>);
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15330	15431	
==>this return value is a type variable that is present inside the function, if it was free it might be u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7591	7692	
==>appedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7591	7692	
==>appedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7591	7692	
==>appedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20255	20376	
==>.      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20255	20376	
==>.      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20255	20376	
==>.      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::M <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	92	188	
==>tate that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is appr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	92	188	
==>tate that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is appr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2300	2403	
==>given C<$name>
for use in the total report.  Returns the C<%results> of the test.
See L<Results>.

C<@te <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5890	5969	
==>m/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$d <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5890	5969	
==>m/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8503	8652	
==>~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8503	8652	
==>~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17249	17398	
==>},
                         class => 'testlink');
                # $backlink->push_content(abs2rel($source, $output_dir));
                $h->push_c <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1252	1400	
==>uffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1252	1400	
==>uffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1229	1347	
==>self, $explanation, $tests) = @_;
            confess "Plan already set!" if _('$.testplan');
            if ($tests) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9839	9948	
==>a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a lea <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	277	381	
==>a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a lea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	277	381	
==>a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a lea <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5110	5234	
==>true on success, false on failure.

=cut

sub _copy {
    my $self = shift;
    my %hash = @_;
    
    my($from,$to);
    my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1568	1677	
==>.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1568	1677	
==>.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1648	1757	
==>.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4097	4215	
==>n ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4097	4215	
==>n ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4097	4215	
==>n ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	334	430	
==>NC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	334	430	
==>NC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	334	430	
==>NC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1935	2053	
==>self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1935	2053	
==>self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1935	2053	
==>self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	685	785	
==>---
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	685	785	
==>---
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1306	1399	
==>othing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRAC <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1011	1137	
==>qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
        my $meta_dir = $Metactrl . "/$path";
        ### extract t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28216	28331	
==>apture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28495	28610	
==>apture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5660	5761	
==>pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5660	5761	
==>pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5660	5761	
==>pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5775	5953	
==>ss to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5775	5953	
==>ss to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5775	5953	
==>ss to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->ad <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7408	7667	
==>} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7408	7667	
==>} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2283	2380	
==>turn $S->object(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "Mi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	989	1151	
==>\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	989	1151	
==>\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %even <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6274	6364	
==>sym_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_sym_name {
	my $self = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3102	3236	
==>}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contain <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3102	3236	
==>}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contain <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	187	286	
==>k];
use Log::Message::Simple        qw[:STD];
use Module::Load::Conditional   qw[can_load];
use File <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	563	667	
==>1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	563	667	
==>1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	563	667	
==>1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8448	8558	
==>thod(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8448	8558	
==>thod(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8448	8558	
==>thod(sub { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3994	4150	
==>')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3994	4150	
==>')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3994	4150	
==>')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1507	1656	
==>as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1507	1656	
==>as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1507	1656	
==>as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4734	4852	
==>teral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4734	4852	
==>teral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1640	1758	
==>teral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	246	347	
==>inuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever matches'



it ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	234	331	
==>inuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever matches'

it ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	492	608	
==>)};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_fi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	492	608	
==>)};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	625	749	
==>pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	625	749	
==>pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2158	2256	
==>return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2158	2256	
==>return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28626	28717	
==><equal (Relation::Example $other!) returns Bool>

This method returns a Bool indicating whet <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11921	12024	
==>nstead of fun->new()
	(my $class) = ((our $AUTOLOAD) =~ /([^:]+) $/x);
	$class->new(@_);
}


# this is t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12134	12232	
==>eter @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node ob <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12134	12232	
==>eter @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9717	9807	
==>ispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9717	9807	
==>ispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9717	9807	
==>ispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_dispatcher' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	810	921	
==>ists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	810	921	
==>ists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	810	921	
==>ists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and sparse array
# * <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2960	3055	
==>sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2960	3055	
==>sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3334	3456	
==>e and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3334	3456	
==>e and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3334	3456	
==>e and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	180	288	
==>.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $ma <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	180	288	
==>.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $ma <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22820	22908	
==>class_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4355	4468	
==>ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4355	4468	
==>ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4355	4468	
==>ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4072	4204	
==>. ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4072	4204	
==>. ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1701	1811	
==>~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performance reasons,

# because t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1633	1738	
==>~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performance reasons,
# because t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7105	7222	
==>$ddoc_dir = shift;
    @syn = map { m|^.*/(\D\d\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6800	6904	
==>rnal Perl template module; on a require
        # failure, we assume that module intentionally doesn't ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6800	6904	
==>rnal Perl template module; on a require
        # failure, we assume that module intentionally doesn't ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40997	41103	
==>}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40997	41103	
==>}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40997	41103	
==>}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1237	1356	
==>EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1237	1356	
==>EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1237	1356	
==>EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	326	429	
==>_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	326	429	
==>_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	326	429	
==>_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1674	1849	
==>rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_be <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1674	1849	
==>rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_be <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27658	27780	
==>al($ret); die "bug $@\n$ret" if $@;
	    #use Data::Dumper;
	    #print Dumper($res);
	    mkMatch(length($s),$res);
	}
	el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8889	9057	
==>really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8889	9057	
==>really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8889	9057	
==>really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8380	8488	
==>ewfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  init: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19352	19457	
==>ACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines like:

    us <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19352	19457	
==>ACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines like:

    us <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	150	269	
==>hs.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	150	269	
==>hs.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7396	7518	
==>CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7396	7518	
==>CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX u <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20971	21060	
==>::Internals::require($module);
    Pugs::Internals::require_use_helper(Bool::False,$module <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	436	561	
==>$c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7262	7352	
==>sh @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1087	1177	
==>sh @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11873	12020	
==>te method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11873	12020	
==>te method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11873	12020	
==>te method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6027	6161	
==>e it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6027	6161	
==>e it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6027	6161	
==>e it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE & <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3313	3438	
==>_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while( <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3313	3438	
==>_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1017	1113	
==>Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Backend::Perl;

=head1 DESCRIPTION

L<Blondie::Ba <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15975	16089	
==>new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19452	19566	
==>new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18958	19072	
==>new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1209	1345	
==>orts));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1209	1345	
==>orts));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1209	1345	
==>orts));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1305	1402	
==>js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1305	1402	
==>js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1305	1402	
==>js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2263	2386	
==>ie "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2263	2386	
==>ie "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2263	2386	
==>ie "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5618	5720	
==>ok;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* ca <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	384	479	
==>otated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4899	4991	
==>Array {p6_new('Array',@_)}
sub p6_Hash {p6_new('Hash',@_)}
sub p6_List {p6_new('List',@_)}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7	110	
==>:
#
# - Make preface part of parsed code, since it might contain `package`
#   statements or other scopi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7	110	
==>:
#
# - Make preface part of parsed code, since it might contain `package`
#   statements or other scopi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1601	1694	
==>=item B<new (*native*) returns bit>

=item B<to_native () returns *native*>

=item B<to_bit () <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24375	24495	
==>ub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my($x)=@_;
    return 'undef' if !defined $x;
    my $s = eva <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2806	2914	
==>hen ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2806	2914	
==>hen ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11016	11117	
==>on of some methods, 
because it will try to iterate to find a "complement set" that is empty.

= SET F <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11016	11117	
==>on of some methods, 
because it will try to iterate to find a "complement set" that is empty.

= SET F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1587	1713	
==>) } },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install check
    if( <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	507	608	
==>t($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	507	608	
==>t($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5422	5518	
==>which means 
you it is essentially read-only, however, all the return values of the
closure are c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12019	12201	
==>t;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15496	15678	
==>t;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	229	322	
==>> "class" });
Has($?CLASS, "associations", "Set", { companion => "class" });
Has($?CLASS, "rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1049	1161	
==>);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1049	1161	
==>);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1049	1161	
==>);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4230	4340	
==>t
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4230	4340	
==>t
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4230	4340	
==>t
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Re <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8201	8303	
==>$Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8259	8361	
==>$Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7930	8019	
==>,group_modify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> p5_modifier_ <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	760	933	
==>err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	760	933	
==>err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38142	38266	
==>ge to the qr() method:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3400	3524	
==>r( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1758	1882	
==>r( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2538	2662	
==>r( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7562	7697	
==>ft(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7562	7697	
==>ft(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7562	7697	
==>ft(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	267	395	
==>neric reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	267	395	
==>neric reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	267	395	
==>neric reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function ( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2105	2226	
==>londie::Node::List';

    package Blondie::Val;
    use base 'Blondie::Node::Unit';

    package Blondie::Seq;
    use bas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3306	3413	
==>e_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16180	16283	
==>ub { $as_p6obj_complain->("ref") },
      glob  => sub { $as_p6obj_complain->("glob") },
      lvalue => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4008	4107	
==>e_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9518	9618	
==>lternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9518	9618	
==>lternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1974	2112	
==>ss;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1974	2112	
==>ss;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1974	2112	
==>ss;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4748	4868	
==>t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4748	4868	
==>t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3916	4018	
==>pod

=head2 _get_file_contents( file => $file );

Returns the contents of a file

=cut

sub _get_file_c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35288	35394	
==>xcept that this method will fail if any of its source Relations
have attributes in common; it will only acc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39838	39944	
==>xcept that this method will fail if any of its source Relations
have attributes in common; it will only acc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39398	39504	
==>xcept that this method will fail if any of its source Relations
have attributes in common; it will only acc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3807	3912	
==>prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4024	4129	
==>prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = gr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10846	10940	
==>C<@INC> and turns it into something suitable
for putting onto C<PERL5LIB>.

=cut

sub _INC2PERL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4207	4335	
==>ub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4207	4335	
==>ub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4207	4335	
==>ub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3924	4039	
==>->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3924	4039	
==>->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4514	4629	
==>->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1669	1782	
==>e($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1669	1782	
==>e($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1669	1782	
==>e($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of($_->{fixed}),
      );

      if($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	227	390	
==>_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	227	390	
==>_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	227	390	
==>_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13467	13561	
==>m $h.header_field_names

Returns the list of distinct names for the fields present in the
heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13467	13561	
==>m $h.header_field_names

Returns the list of distinct names for the fields present in the
heade <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	143	257	
==>'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	143	257	
==>'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2540	2642	
==>(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2540	2642	
==>(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2540	2642	
==>(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	825	941	
==>is just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	825	941	
==>is just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	825	941	
==>is just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatche <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	225	327	
==>o known as sixpan.

Please refer the documentation of the other Modules in the JIB namespace for
detail <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15422	15523	
==>ler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9619	9720	
==>ler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => x <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3857	3986	
==>$::SELF->$status_sub();
            $status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestB <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3341	3435	
==>::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable class <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3341	3435	
==>::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5644	5747	
==>);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5644	5747	
==>);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6234	6337	
==>);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1758	1876	
==>{rule}(), } } ]
        | [ <metasyntax> { return { rule => $_[0]{metasyntax}(), } } ]
    }
    
    rule named_captur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28162	28276	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28441	28555	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4743	4860	
==>tter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4580	4693	
==>tter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22094	22198	
==>ule CaseBlock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1860	1966	
==>x:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1860	1966	
==>x:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1860	1966	
==>x:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	517	612	
==>|Junction *@indextests) returns List of Object|Object
multi sub pairs  (@array ; Any|Junction *@ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16605	16696	
==>ibed fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" dis <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16605	16696	
==>ibed fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4182	4283	
==>en calling these methods you should take care not
to call them in function form by mistake; that would <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4182	4283	
==>en calling these methods you should take care not
to call them in function form by mistake; that would <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4182	4283	
==>en calling these methods you should take care not
to call them in function form by mistake; that would <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	425	566	
==>( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Du <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18963	19060	
==>ldn't be a problem
because Locale::KeyedText is only meant to be used with user text that is
assoc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18963	19060	
==>ldn't be a problem
because Locale::KeyedText is only meant to be used with user text that is
assoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	211	306	
==>2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	211	306	
==>2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	211	306	
==>2normal can
  # correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	267	373	
==>2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	267	373	
==>2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	267	373	
==>2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hoo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12493	12621	
==>x:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method current () { . <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1250	1360	
==>tr $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        ' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1250	1360	
==>tr $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7739	7851	
==>s) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7739	7851	
==>s) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7739	7851	
==>s) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	418	520	
==>are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	429	531	
==>are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude u <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21767	21908	
==>s"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_and_fi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36872	36968	
==>main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36872	36968	
==>main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11618	11712	
==>$name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11618	11712	
==>$name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11618	11712	
==>$name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	858	959	
==>{} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	858	959	
==>{} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	858	959	
==>{} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5578	5683	
==>rpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5578	5683	
==>rpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5578	5683	
==>rpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1562	1668	
==>::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1562	1668	
==>::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1562	1668	
==>::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "h <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1661	1775	
==>my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1661	1775	
==>my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15020	15225	
==>es = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15020	15225	
==>es = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15020	15225	
==>es = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	370	476	
==>JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	370	476	
==>JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	370	476	
==>JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&? <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1204	1330	
==>n_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1204	1330	
==>n_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16425	16516	
==>ic($.else) }

cond: type($$) = {
	types::unify(
		type($.if), type::operator::nullary->new(" <==
3	/Users/nnunley/pugs/util/addauthors.pl	540	667	
==>c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6213	6325	
==>HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $conte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6213	6325	
==>HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $conte <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13564	13697	
==>the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17041	17174	
==>the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16403	16536	
==>the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6367	6468	
==>or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6367	6468	
==>or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6367	6468	
==>or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37034	37146	
==>s;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37034	37146	
==>s;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37034	37146	
==>s;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34049	34161	
==>y {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34049	34161	
==>y {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34049	34161	
==>y {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	528	632	
==>$!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	528	632	
==>$!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	215	350	
==>base 'Object::Accessor';

=head2 $set = JIB::Installation::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8125	8241	
==>ms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8318	8434	
==>ms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'g <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38561	38657	
==>For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38561	38657	
==>For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3573	3667	
==>=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3573	3667	
==>=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30294	30387	
==>visual representation of this object.  It includes the visual
representation of any children o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9164	9311	
==>ortant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9164	9311	
==>ortant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9164	9311	
==>ortant*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16772	16901	
==>->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $self = shift;
    join "", $self- <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3577	3825	
==>,
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$x'), <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2924	3043	
==>rt_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2924	3043	
==>rt_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3896	4041	
==>$response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3896	4041	
==>$response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () { <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24752	24852	
==>β. ∀γ. (α → β) → γ", "pretty print (a -> b) -> c");
}
{
	my $type = type::operator::arrow <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14594	14707	
==>erl\Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl had p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1766	1866	
==>ains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1766	1866	
==>ains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3249	3383	
==>{
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3249	3383	
==>{
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3249	3383	
==>{
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2836	2950	
==>DO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2836	2950	
==>DO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2836	2950	
==>DO - ($a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# T <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	44	152	
==>1
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constru <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	44	152	
==>1
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3758	3927	
==>:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3758	3927	
==>:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3758	3927	
==>:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	588	701	
==>q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	588	701	
==>q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TO <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24287	24387	
==>if none obvious

Confined to regcomp/regexec.

 * reganch      is the match anchored (at beginning-of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6566	6681	
==>$cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6566	6681	
==>$cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6566	6681	
==>$cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1965	2059	
==>w('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1965	2059	
==>w('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1965	2059	
==>w('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7833	7945	
==>y $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Las <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12910	13017	
==>elf->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27049	27156	
==>elf->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14441	14543	
==>e TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14499	14601	
==>e TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9146	9291	
==>ctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9146	9291	
==>ctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9146	9291	
==>ctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3904	4014	
==>es ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7381	7491	
==>es ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6347	6457	
==>es ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.valu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	232	334	
==>$one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	232	334	
==>$one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8220	8322	
==>Check->last_error), return;

    my $pkg = JIB::Package->new( file => $file );

    return $self->add_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3966	4102	
==>) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\']) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3966	4102	
==>) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\']) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3966	4102	
==>) {
        # XXX - horrid compensation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\']) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4680	4793	
==>word>
    | <FutureReservedWord>
    | <NullLiteral>
    | <BooleanLiteral>
}
rule Keyword {  # see 7.5.2
      <' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8458	8556	
==>ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8446	8544	
==>ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2864	2963	
==>lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var bloc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2864	2963	
==>lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var bloc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2864	2963	
==>lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var bloc <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	769	877	
==>f->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	670	778	
==>f->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17065	17165	
==>tyExpressionNoIn>
    | <BitwiseANDExpressionNoIn> <'&'> <EqualityExpressionNoIn>
}
rule BitwiseXOREx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11480	11681	
==>'$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11480	11681	
==>'$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11480	11681	
==>'$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19346	19437	
==>xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19346	19437	
==>xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19346	19437	
==>xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	390	487	
==>cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	390	487	
==>cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	390	487	
==>cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1634	1784	
==>,
    ['STMT'=>{if=>'block'}] 
];


    my($lex) = sub {
        my($t)=shift(@$in);
            defined($t)
        or  $t=['',''];
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8659	8778	
==>nary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6192	6305	
==>nary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  inf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10852	11040	
==>status returns Hash
      {
          return
          {
              passed      => $.passed,
              description => $.description,
          };
      }
  
      method report retur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1348	1518	
==>status returns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1348	1518	
==>status returns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method report retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1130	1238	
==>air() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1130	1238	
==>air() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1130	1238	
==>air() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6165	6258	
==>rn str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6165	6258	
==>rn str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6165	6258	
==>rn str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11592	11704	
==>if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11592	11704	
==>if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11592	11704	
==>if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21799	21916	
==>param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_and_first = fu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3059	3160	
==>tersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3059	3160	
==>tersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	599	703	
==>f); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	599	703	
==>f); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	599	703	
==>f); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * dele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6232	6361	
==>de'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6232	6361	
==>de'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6232	6361	
==>de'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6124	6226	
==>e level version of OUTER::?

Either way, I think it might be useful to have this if for nothing other t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6124	6226	
==>e level version of OUTER::?

Either way, I think it might be useful to have this if for nothing other t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6124	6226	
==>e level version of OUTER::?

Either way, I think it might be useful to have this if for nothing other t <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2693	2794	
==>ut of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2693	2794	
==>ut of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	255	348	
==>e::Install"
#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2204	2309	
==>«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2204	2309	
==>«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2204	2309	
==>«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19243	19361	
==>2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15664	15782	
==>2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = & <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2639	2742	
==>ttp_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connecti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2639	2742	
==>ttp_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connecti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38885	38975	
==>?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12372	12533	
==>t_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12372	12533	
==>t_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12372	12533	
==>t_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _(' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1761	1864	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::procl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1819	1922	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::procl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8824	8921	
==>ackage Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for development.
  no <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3836	3941	
==>eaders::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Enco <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3836	3941	
==>eaders::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Enco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11003	11123	
==>{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11003	11123	
==>{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11003	11123	
==>{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::V <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	722	838	
==>nal $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	722	838	
==>nal $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9556	9657	
==>'NaN' => '100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37659	37751	
==>tion::Example $other!) returns Relation::Example>

This method is a generic relational operat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38248	38340	
==>tion::Example $other!) returns Relation::Example>

This method is a generic relational operat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38499	38591	
==>tion::Example $other!) returns Relation::Example>

This method is a generic relational operat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9698	9891	
==>description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	278	459	
==>description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	278	459	
==>description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2409	2501	
==>lf->author_from($file)   unless $self->author;
    $self->license_from($file)  unless $self-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1577	1666	
==>turn &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1577	1666	
==>turn &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7190	7335	
==>with_prefix($_,$prefix) }
    } elsif($s =~ /HASH/) {
        for (values %$o) { rebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bles <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8153	8258	
==>_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8153	8258	
==>_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1031	1152	
==>(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1031	1152	
==>(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code <==
3	/Users/nnunley/pugs/util/grokprims.pl	1952	2071	
==>== 1) {
    $example = "\$$a0$name";
  } elsif (/special/ and $arity == 1) {
    $example = "$name\$$a0 # ???";
  } else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3539	3639	
==>t the right x for p');
is($p->get_y, 0, '... got the right y for p');

is($p2->get_x, 100, '... still <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2811	2906	
==>alises the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2811	2906	
==>alises the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5518	5627	
==>t(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1523	1623	
==>s anything declared within

that scope.



the Sig contains a simply structure of the signature; it d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1461	1558	
==>s anything declared within
that scope.

the Sig contains a simply structure of the signature; it d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2183	2288	
==>hod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2183	2288	
==>hod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2183	2288	
==>hod(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10191	10332	
==>own class or not.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10191	10332	
==>own class or not.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10191	10332	
==>own class or not.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	122	220	
==>estBuilder->STORE('::Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	734	866	
==>ttrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	926	1020	
==>:Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	926	1020	
==>:Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1724	1860	
==>($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # over <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1724	1860	
==>($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # over <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1724	1860	
==>($meta_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # over <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2752	2872	
==>d $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2752	2872	
==>d $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8298	8403	
==>- the name of this category 
(a namespace or a Grammar name).

=head2 add_op ()

Instance method.  Ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12902	13063	
==>s);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12902	13063	
==>s);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12902	13063	
==>s);
            }            
            
            (defined $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2254	2381	
==>new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2459	2586	
==>new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12475	12573	
==>ds to get the error information.

To see if an error is a particular one, use the error_is() method <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5370	5472	
==>|| %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5370	5472	
==>|| %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3934	4025	
==>mane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3934	4025	
==>mane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3934	4025	
==>mane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	128	219	
==>arnings;

use UNIVERSAL::require;
use Blondie::TypeSafe ();

use Blondie::Backend::C::Builti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	328	417	
==>itter::DuplicateFinder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub generic_red <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7625	7765	
==>ule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7818	7958	
==>ule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13592	13697	
==>ewExpression :words  {  # see 11.2
      <MemberExpression>
    | <'new'> <?ws_required> <NewExpression>
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8053	8192	
==>[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7779	7910	
==>[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28764	28872	
==>e file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[We <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28764	28872	
==>e file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[We <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7324	7419	
==>er if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_TER <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3792	3966	
==>^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3792	3966	
==>^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip re <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2213	2380	
==>s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2213	2380	
==>s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %e <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	122	220	
==>ameSpace;

=head1 DESCRIPTION

This type is not used directly; however, it adds the "name" property <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23396	23518	
==>fine REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1336	1443	
==>an('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    g <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1336	1443	
==>an('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    g <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1840	1989	
==>se::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1840	1989	
==>se::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	723	839	
==>len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5407	5493	
==>ain_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5407	5493	
==>ain_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5407	5493	
==>ain_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9121	9216	
==>set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9121	9216	
==>set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	711	830	
==>are_scope(@params);

    # profiling actually slows this down by around 30%
    #my $t = times;
    #my $v = 
    $self- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1001	1117	
==>->compile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1102	1193	
==>ducing " . $node->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self->h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1142	1382	
==>ant( "\$" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	539	656	
==>_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	539	656	
==>_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6572	6671	
==>esults.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contribute <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6572	6671	
==>esults.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contribute <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6572	6671	
==>esults.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contribute <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4957	5078	
==>XX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11320	11420	
==>t is important that submethods are used
because they will not get inherited. This provides more predi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11320	11420	
==>t is important that submethods are used
because they will not get inherited. This provides more predi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11320	11420	
==>t is important that submethods are used
because they will not get inherited. This provides more predi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1256	1456	
==>ruleop::constant( "\%" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::const <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2313	2435	
==>$str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2453	2575	
==>$str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    r <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	862	1012	
==>label)
          if defined $tok;
        @tokens.push( ($sep, $tok, $i).grep:{ $_ ne "" } );
        $buf = "";
        last;
      }

      $buf ~= $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2687	2785	
==>X it is not clear
that this is the optimal interface for this combinator.

=cut

method subrule (Co <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2687	2785	
==>X it is not clear
that this is the optimal interface for this combinator.

=cut

method subrule (Co <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7354	7619	
==>my(%tot) = (
                bonus    => 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skip <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	574	669	
==>API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor options

W <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	574	669	
==>API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor options

W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	149	265	
==>s = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	149	265	
==>s = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	149	265	
==>s = undef;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1089	1198	
==>urns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1089	1198	
==>urns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7565	7673	
==>vepv(""); /*XXX - can be constant? */
    r = Perl_pregcomp(aTHX_ nulpat,nulpat,pm);
    /*XXX - can free nul <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3967	4070	
==>ay to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expecte <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3967	4070	
==>ay to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expecte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4047	4150	
==>ay to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expecte <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5549	5678	
==>> chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "b <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5549	5678	
==>> chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "b <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8453	8549	
==>3.
# not in S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = &infix:«<=>» -- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17952	18047	
==>le"; any application receiving such a code can identify
it easily in its conditional logic, usin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17952	18047	
==>le"; any application receiving such a code can identify
it easily in its conditional logic, usin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11815	11944	
==>key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11815	11944	
==>key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11815	11944	
==>key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3028	3143	
==>umper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3506	3621	
==>umper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18644	18735	
==>hod _exclusion (Relation::Example $other!) returns Relation::Example {
    return Relation:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2572	2709	
==>3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2572	2709	
==>3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2572	2709	
==>3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1338	1488	
==>events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_eleme <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1338	1488	
==>events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_eleme <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1294	1400	
==>: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1994	2133	
==>cture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1994	2133	
==>cture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1994	2133	
==>cture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2438	2580	
==>]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2438	2580	
==>]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2438	2580	
==>]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storin <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6537	6682	
==>g/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5041	5186	
==>g/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3416	3515	
==>pected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3416	3515	
==>pected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3496	3595	
==>pected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2064	2172	
==>s = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation->new(
		ty <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16930	17023	
==>that
attribute defaults to empty if the corresponding argument is undefined).

Some sample usa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16930	17023	
==>that
attribute defaults to empty if the corresponding argument is undefined).

Some sample usa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6101	6210	
==>Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason role
and override some me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6101	6210	
==>Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason role
and override some me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8298	8407	
==>Test::Fail>

These next two classes both perform the Test::Builder::Test::WithReason role
and override some me <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3327	3421	
==>he closure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3327	3421	
==>he closure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9598	9703	
==>l the roles to be 'resolved'
    # -----------------------------------------------      
    method collec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9598	9703	
==>l the roles to be 'resolved'
    # -----------------------------------------------      
    method collec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9598	9703	
==>l the roles to be 'resolved'
    # -----------------------------------------------      
    method collec <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30691	30861	
==>h order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator (opaque $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4595	4697	
==>We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For eac <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4595	4697	
==>We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For eac <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4507	4683	
==>ng below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $x > 0 {
        $x_round = round_ceiling($x);
    }
    else {
        $x_round = 0;
    }

    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6301	6426	
==>nfix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6301	6426	
==>nfix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	260	361	
==>Perl 5: my %hash = {a=>'b'}; print "nach a kommt $hash{a}";
Perl 6: my %hash = {a=>'b'}; print "nach a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	444	569	
==>ction (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	444	569	
==>ction (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	444	569	
==>ction (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1106	1201	
==>values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide ex <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1106	1201	
==>values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2607	2725	
==>new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2607	2725	
==>new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2607	2725	
==>new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4161	4255	
==>term2 );\n";
}
sub node::assign_hash_to_scalar {
   my $var = emit(get_data($_[0], '$<variable> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27168	27261	
==>nd (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relational opera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31720	31813	
==>nd (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relational opera <==
3	/Users/nnunley/pugs/util/config_h.pl	227	339	
==>on and flags of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base directory of the Pugs insta <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1132	1231	
==>lbeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1132	1231	
==>lbeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to enc <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6197	6343	
==>hildren} }, $pid;
        } else {
            $self->{_child_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3956	4062	
==>ren

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || d <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3956	4062	
==>ren

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4398	4507	
==>ile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4398	4507	
==>ile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	906	1049	
==>$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	906	1049	
==>$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	906	1049	
==>$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10197	10317	
==>{
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10197	10317	
==>{
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	842	937	
==>to \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1354	1465	
==>:Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1354	1465	
==>:Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1354	1465	
==>:Util::reftype to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1436	1542	
==>etch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_des <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1436	1542	
==>etch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_des <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1436	1542	
==>etch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	168	291	
==>s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	168	291	
==>s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	168	291	
==>s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4739	4919	
==>e("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4739	4919	
==>e("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7620	7742	
==>asses{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7620	7742	
==>asses{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7620	7742	
==>asses{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
s <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1446	1594	
==>t to read the details
            #for $class ($self.meta.superclasses){
            #    take $class.subscriptions;
            #}
        }
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1050	1146	
==>> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it store <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1050	1146	
==>> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it store <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2407	2534	
==>n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub no <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2407	2534	
==>n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub no <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	38	133	
==>lesInP5::OpTable;
    $optable->addToken("term:", "", "nows", &parse_ws_lit);
    $optable->addT <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4533	4635	
==>=> $self->left->splat($accum),
		right => $self->right->splat($accum),
	}, (ref $self);
}

sub free_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1631	1723	
==>udrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1631	1723	
==>udrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute i <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4514	4641	
==>r (@a)  -->  for @a -> $r

    package MY::Class;  -->  class MY::Class;

    open $f, 'file';      -->  $f = open 'file';
    o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18345	18455	
==>ler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->objec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14766	14876	
==>ler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->objec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1643	1745	
==>'<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1643	1745	
==>'<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3894	4001	
==>l_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7371	7478	
==>l_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.ke <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6337	6444	
==>l_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.ke <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14343	14438	
==>ap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14343	14438	
==>ap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fiel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17360	17458	
==>, you can only call it through an object that
inherits from that class.

There are no longer I<star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2683	2790	
==>TOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled wi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2683	2790	
==>TOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled wi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2683	2790	
==>TOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled wi <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2348	2487	
==>okens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fi <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2348	2487	
==>okens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30587	30684	
==>.cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know. What we know fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2062	2176	
==>put, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2062	2176	
==>put, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2062	2176	
==>put, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4178	4291	
==>ke_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4178	4291	
==>ke_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4178	4291	
==>ke_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	327	437	
==>sa('type'))
        || confess "You must provide a value to reference";
    bless \$value => $class;
}

sub to_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2693	2790	
==>laceholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule paramete <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2693	2790	
==>laceholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule paramete <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8842	8942	
==>_error(mob, pos, "Missing closing braces for closure")
    .return (mob)
.end
    

.sub "parse_quant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	14	106	
==>se Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_desc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	14	106	
==>se Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_desc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	14	106	
==>se Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	560	663	
==>Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	560	663	
==>Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	560	663	
==>Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate pass by r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3092	3245	
==>_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3092	3245	
==>_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	80	185	
==>f() == 6) {
	...
}
#=In Perl 6 geht das eleganter:
if any(wurf(), wurf(), wurf()) == 6 {
	... # aber: wurf <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3945	4037	
==>Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta vers <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3945	4037	
==>Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta vers <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1153	1279	
==>regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_cu <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1153	1279	
==>regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13022	13117	
==>lX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13022	13117	
==>lX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13022	13117	
==>lX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(-text =>q{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	297	432	
==>less({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	297	432	
==>less({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	297	432	
==>less({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'), <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4371	4478	
==>urn;

    return 1;
}

=head2 $bool = $repo->add_package_to_index(package => $pkg)

Adds a package to all ne <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10572	10666	
==>...}, complement_previous => sub {...} )`

Creates a recurrence set. The complement set is spec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10572	10666	
==>...}, complement_previous => sub {...} )`

Creates a recurrence set. The complement set is spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9475	9608	
==>lems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9475	9608	
==>lems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9475	9608	
==>lems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2940	3032	
==>body = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2940	3032	
==>body = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2940	3032	
==>body = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1233	1335	
==>s Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

P <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1233	1335	
==>s Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1780	1882	
==>s Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4666	4763	
==>ub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4666	4763	
==>ub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4666	4763	
==>ub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	837	961	
==>p"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	837	961	
==>p"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	837	961	
==>p"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cfg{metamodel_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1087	1204	
==>$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.outpu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1087	1204	
==>$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.outpu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1167	1284	
==>$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.outpu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36097	36201	
==>tion is the result of first pairwise-matching every
tuple of the invocant relation with every tuple of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40646	40750	
==>tion is the result of first pairwise-matching every
tuple of the invocant relation with every tuple of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40260	40364	
==>tion is the result of first pairwise-matching every
tuple of the invocant relation with every tuple of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2506	2606	
==>r lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2506	2606	
==>r lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2506	2606	
==>r lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	9	106	
==>s a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Obj <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	9	106	
==>s a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Obj <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	9	106	
==>s a temporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1086	1225	
==>$run";            
        }
    }    
});

1;

__END__

=pod

=head1 NAME

TestBuilder::TestPlan

=head1 SYNOPSIS

  use TestBuilder::TestP <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3252	3348	
==>ccept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessibl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3252	3348	
==>ccept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessibl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2333	2441	
==>Int )
 {
     Math::Basic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2181	2284	
==>ate->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2181	2284	
==>ate->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3062	3241	
==>my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3062	3241	
==>my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3062	3241	
==>my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1185	1290	
==>est
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub li <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1185	1290	
==>est
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1265	1370	
==>est
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub li <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1015	1106	
==>'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_cor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1015	1106	
==>'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_cor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1015	1106	
==>'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_cor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7343	7568	
==>0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7343	7568	
==>0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7343	7568	
==>0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5395	5520	
==>class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5395	5520	
==>class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5395	5520	
==>class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7361	7492	
==>l == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7361	7492	
==>l == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7361	7492	
==>l == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	412	514	
==>t open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	412	514	
==>t open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3735	3834	
==>Stat>

If the test exited with non-zero, this is its exit status.

=item B<Wstat>

The wait status o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	969	1093	
==>.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	969	1093	
==>.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	969	1093	
==>.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8143	8271	
==>t container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8143	8271	
==>t container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8143	8271	
==>t container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7664	7779	
==>erse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7664	7779	
==>erse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7664	7779	
==>erse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	124	284	
==>);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX corre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	124	284	
==>);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX corre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	124	284	
==>);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX corre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12483	12606	
==>s, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12483	12606	
==>s, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12483	12606	
==>s, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self->{pops}}   if @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2882	2983	
==>:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2882	2983	
==>:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2882	2983	
==>:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7423	7567	
==>o make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7423	7567	
==>o make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7423	7567	
==>o make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	676	807	
==>= {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	676	807	
==>= {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	676	807	
==>= {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2160	2257	
==>$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2160	2257	
==>$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1630	1748	
==>, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1630	1748	
==>, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1630	1748	
==>, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for methods which <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3288	3394	
==>sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3288	3394	
==>sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3288	3394	
==>sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	821	942	
==>store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	821	942	
==>store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	821	942	
==>store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1217	1405	
==>->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1217	1405	
==>->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1217	1405	
==>->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5485	5612	
==>inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5485	5612	
==>inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5485	5612	
==>inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14538	14675	
==>"' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14538	14675	
==>"' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14538	14675	
==>"' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	308	460	
==>- unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	308	460	
==>- unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	308	460	
==>- unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3806	3904	
==>.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3806	3904	
==>.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3886	3984	
==>.

=item B<test_fail( Str $description )>

Marks that the next test should fail.  C<$description> i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6074	6212	
==>O - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6074	6212	
==>O - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18938	19026	
==>0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23269	23450	
==>$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23269	23450	
==>$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23269	23450	
==>$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8917	9019	
==>B prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8917	9019	
==>B prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8917	9019	
==>B prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4874	4990	
==>(defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4874	4990	
==>(defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4874	4990	
==>(defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	610	710	
==>values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	610	710	
==>values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	610	710	
==>values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22837	22942	
==>);
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22837	22942	
==>);
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22837	22942	
==>);
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $v2 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3462	3569	
==>er 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> ver <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3462	3569	
==>er 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3542	3649	
==>er 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_plan> ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2511	2610	
==>AsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2511	2610	
==>AsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2511	2610	
==>AsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6211	6397	
==>$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.cu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6211	6397	
==>$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.cu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2810	2907	
==>>set($param->to_str->to_native, $arg);
    }
}

package closure::signature;

use strict;
use warni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1095	1210	
==>)) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1095	1210	
==>)) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1095	1210	
==>)) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3039	3151	
==>y, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3039	3151	
==>y, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3039	3151	
==>y, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2854	2962	
==>say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2854	2962	
==>say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	676	796	
==>ing { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	676	796	
==>ing { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	676	796	
==>ing { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3532	3646	
==>ndefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3532	3646	
==>ndefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3532	3646	
==>ndefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4857	4980	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4857	4980	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4857	4980	
==>value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	295	415	
==>i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	295	415	
==>i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	295	415	
==>i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1426	1538	
==>x.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1426	1538	
==>x.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1426	1538	
==>x.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1278	1385	
==>less {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1278	1385	
==>less {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1278	1385	
==>less {
      pVarName => '%PIL2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "P <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1426	1575	
==>( attrs =>
        { %attrs.pairs.map:{ ( .key => 
            (.value.does(Pair)
                ?? ( .value.key =>
                    (.value.value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	416	532	
==>ient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	416	532	
==>ient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	416	532	
==>ient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer to it <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23923	24016	
==>$b = type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. α → β", "pretty p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23621	23713	
==>eem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23621	23713	
==>eem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1094	1214	
==>e_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_chan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1094	1214	
==>e_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_chan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1094	1214	
==>e_instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	100	193	
==>4159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	100	193	
==>4159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	100	193	
==>4159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3423	3546	
==>: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3411	3534	
==>: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantifi <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	311	422	
==>${name}__");

open OUT, "> $out" or die $!;
print OUT "module $fullname ($data) where\n\n";
print OUT <<EOF . "\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	384	543	
==>s' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('%:slots', {});
        },
        methods => {
            hash_fetch = <==
3	/Users/nnunley/pugs/util/version_h.pl	39	141	
==>ings;
use Cwd;

my $version_h = shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
my $base = shift || C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35087	35178	
==>C<|>)

Data: array reference of array references, each representing one
alternation, holding <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10316	10429	
==>pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10316	10429	
==>pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10316	10429	
==>pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4457	4618	
==>")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4457	4618	
==>")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4457	4618	
==>")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	19	133	
==>ugh translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anyt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	19	133	
==>ugh translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anyt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	19	133	
==>ugh translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anyt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10381	10515	
==>e = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10381	10515	
==>e = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10381	10515	
==>e = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16966	17081	
==>[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16966	17081	
==>[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16966	17081	
==>[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11267	11430	
==>params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11267	11430	
==>params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11267	11430	
==>params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1782	1898	
==>ables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1782	1898	
==>ables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1782	1898	
==>ables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20575	20674	
==>b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20575	20674	
==>b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20575	20674	
==>b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3862	3986	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4055	4179	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	25	135	
==>s;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	25	135	
==>s;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Se <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	110	202	
==>e::Parrot::PMC 'get_int';
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4682	4795	
==>already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4682	4795	
==>already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6206	6319	
==>already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Egt 10>, the pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	910	1015	
==>:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	910	1015	
==>:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	910	1015	
==>:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actually inherits a number of new attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2709	2805	
==>$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2709	2805	
==>$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2709	2805	
==>$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12518	12617	
==>ACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12518	12617	
==>ACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12518	12617	
==>ACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MACROP <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18788	18932	
==>.return (exp1)
  exp1null:
    self[0] = exp0
    unless_null exp1, end
    .return (exp0)
  end:
    self[1] = exp1
    .return (self)
.end

.na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2163	2263	
==>h, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2151	2251	
==>h, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	630	758	
==>> "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	646	774	
==>> "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	622	750	
==>> "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8630	8816	
==>_ && system(qq[rm -rf $_])                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need statu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1780	1943	
==>_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need statu <==
3	/Users/nnunley/pugs/util/package-osx.pl	8009	8106	
==>an3/Perl6::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Spec::Package.3pm
        /usr/lo <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1601	1693	
==>directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1601	1693	
==>directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5195	5295	
==>upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5195	5295	
==>upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub pat <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19977	20075	
==>t>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_required> <VariableDeclarationL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4539	4679	
==>sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4539	4679	
==>sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4539	4679	
==>sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1020	1139	
==>$b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1020	1139	
==>$b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1020	1139	
==>$b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	995	1129	
==>[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gath <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	995	1129	
==>[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gath <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3723	3829	
==>de_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3723	3829	
==>de_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	573	679	
==>de_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20946	21058	
==>, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17367	17479	
==>, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    m <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1108	1202	
==>ode bundled with this library by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1040	1168	
==>, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1040	1168	
==>, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1040	1168	
==>, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	504	628	
==>lues %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	504	628	
==>lues %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	504	628	
==>lues %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8422	8568	
==>hod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8422	8568	
==>hod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8422	8568	
==>hod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1933	2061	
==>= ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1933	2061	
==>= ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1933	2061	
==>= ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	884	974	
==>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	884	974	
==>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	884	974	
==>[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6662	6773	
==><..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6662	6773	
==><..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6662	6773	
==><..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8368	8511	
==>] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', { <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8368	8511	
==>] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10485	10577	
==>s Bar get Object's singleton methods ..

is($Bar->another_singleton_test_on_object(), 
   '&O <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	324	576	
==>r $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $^n ne $EMPTY_STR };

sub <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	499	642	
==>$self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	499	642	
==>$self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24539	24661	
==>s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24539	24661	
==>s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24539	24661	
==>s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1536	1633	
==>le first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIG <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1536	1633	
==>le first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIG <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9238	9363	
==>G: {   
        my $alt = $self->remove_registered_alternative( package => $inst_pkg );

        ### this package didn't provi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19594	19690	
==>Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a supe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24146	24242	
==>Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1328	1425	
==>olumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1328	1425	
==>olumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1328	1425	
==>olumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  }
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20077	20174	
==>($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20077	20174	
==>($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20077	20174	
==>($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1314	1430	
==>py) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        re <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1314	1430	
==>py) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Object.pm	15	117	
==>mporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Object.pm	15	117	
==>mporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Object.pm	15	117	
==>mporary throwaway class.
# The real one will use the metamodel.

package PIL::Run::Type::Object;

sub n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1126	1223	
==>ile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1126	1223	
==>ile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1126	1223	
==>ile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --l <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1964	2065	
==>->param("smoke");

  my $id = md5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "The submi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14237	14334	
==>nored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would ha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14237	14334	
==>nored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would ha <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	936	1059	
==>{
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might allow adding globals
    # ou <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3631	3752	
==>f $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && define <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3631	3752	
==>f $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && define <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4593	4696	
==>th for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_ye <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4593	4696	
==>th for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_ye <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1758	1858	
==>ub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1758	1858	
==>ub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2791	2903	
==>me.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2791	2903	
==>me.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2791	2903	
==>me.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8436	8556	
==>values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8436	8556	
==>values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8436	8556	
==>values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11614	11709	
==>xt/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $acce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11614	11709	
==>xt/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $acce <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	196	313	
==>diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Cla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	196	313	
==>diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2390	2513	
==>"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2390	2513	
==>"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ ' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19192	19293	
==>ion :words {  # see 11.14
      <AssignmentExpression>
    | <Expression> <','> <AssignmentExpression> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5481	5592	
==>$self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5481	5592	
==>$self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22358	22447	
==>er versions of Relation::Heading ("Heading")
and Relation::Tuple ("Tuple").

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19250	19350	
==>is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23802	23902	
==>is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22318	22418	
==>is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30028	30127	
==>AIL to display TODO failures

Add a test for verbose.

Change internal list of test results to a has <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22141	22234	
==>to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22141	22234	
==>to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14496	14610	
==>:Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECON <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14496	14610	
==>:Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECON <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	50	156	
==>ef, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	50	156	
==>ef, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	50	156	
==>ef, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	449	551	
==>RC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

= <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	449	551	
==>RC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5270	5383	
==>rn $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5270	5383	
==>rn $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5270	5383	
==>rn $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2728	2854	
==>arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2728	2854	
==>arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2728	2854	
==>arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	505	633	
==>1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	505	633	
==>1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	505	633	
==>1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	994	1101	
==>nt_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	994	1101	
==>nt_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	994	1101	
==>nt_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1212	1314	
==>in_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBRO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1212	1314	
==>in_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBRO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1212	1314	
==>in_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13468	13587	
==>hdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13468	13587	
==>hdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13468	13587	
==>hdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29911	30006	
==>aving old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34463	34558	
==>aving old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33627	33722	
==>aving old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (S <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16300	16427	
==>ruct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20726	20853	
==>ruct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4867	4958	
==>ject blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4867	4958	
==>ject blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4867	4958	
==>ject blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13681	13776	
==>spacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13681	13776	
==>spacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13681	13776	
==>spacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	787	898	
==>+;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	787	898	
==>+;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	787	898	
==>+;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14598	14801	
==>if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18075	18278	
==>if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17491	17694	
==>if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17141	17280	
==>ts
        for my $script (sort keys %$failedtests) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4603	4721	
==>cksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4825	4943	
==>cksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7956	8079	
==>6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7968	8091	
==>6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10963	11068	
==>he
    <code>ext/</code> tests may or may not be run, causing durations and the ok
    percentage to not b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	219	349	
==>spaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	219	349	
==>spaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	219	349	
==>spaces, hierarchically

=head1 SYNOPSIS

  use Class::Rebless;

  my $beat = bless({
    one => bless({
      hey => 'ho',
    }, ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20790	20887	
==>m using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resources <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20790	20887	
==>m using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resources <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26702	26798	
==>t → int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), "∀α. α → <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28756	28850	
==>> value set members do not match invocant
Relation attribute names, or duplicate any other valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33308	33402	
==>> value set members do not match invocant
Relation attribute names, or duplicate any other valu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5311	5413	
==>($pilGlob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NOD <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22580	22671	
==>lass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22580	22671	
==>lass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	362	462	
==>Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	362	462	
==>Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	362	462	
==>Constant(function (args) {
    args.pop()(args[1].FETCH().value);
  })')($self);
}

sub infix:«=>»( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4345	4448	
==>b expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4345	4448	
==>b expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4345	4448	
==>b expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @I <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7093	7217	
==>),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "i <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7093	7217	
==>),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "i <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	658	744	
==>[Cwd::abs_path($FindBin::Bin)]}
*** Please report this issue to <perl6-compiler\@perl.o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22207	22311	
==>CaseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <CaseClauses> <Case <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5502	5598	
==>removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5502	5598	
==>removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13818	13950	
==>sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13818	13950	
==>sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13818	13950	
==>sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8303	8416	
==>gal octal digit '%s' ignored", $1) if $o =~ /([^0-7;])/;

      if ($cc) {
        $S->error(0, "\\0[A;B] in chara <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4544	4641	
==>times, then `size` will be a duration.

- `intersects( $set )`

This method return a logical value <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4544	4641	
==>times, then `size` will be a duration.

- `intersects( $set )`

This method return a logical value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7489	7578	
==>ass.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7489	7578	
==>ass.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7489	7578	
==>ass.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1401	1514	
==>ostcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pair_objects
    );
  })')();
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1401	1514	
==>ostcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pair_objects
    );
  })')();
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1401	1514	
==>ostcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_pair_objects
    );
  })')();
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1522	1636	
==>ude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1522	1636	
==>ude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1522	1636	
==>ude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	539	635	
==>t (c) 2005. Brian Ingerson. All rights reserved.

This program is free software; you can redistri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1124	1215	
==><ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableNam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1124	1215	
==><ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableNam <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1741	1863	
==>:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$dom <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1741	1863	
==>:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$dom <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5960	6055	
==>y.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This pro <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5960	6055	
==>y.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This pro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	770	865	
==>Pugs::Runtime::Rule;
    my $grammar = shift;
    ].Pugs::Emitter::Rule::Perl5::emit_rule( $ast, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1150	1244	
==>mented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1150	1244	
==>mented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3730	3849	
==>. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3730	3849	
==>. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3730	3849	
==>. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't y <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4012	4147	
==>xcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4012	4147	
==>xcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦', <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12295	12406	
==>erl .= q{ < teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2692	2819	
==>ckage;
    has Str $.file;
    has Int $.line;
    has Str $.subname;
    has Str $.subtype;
    has Code $.sub;
    has Str $.p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4481	4593	
==>val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4481	4593	
==>val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	188	289	
==>el", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	188	289	
==>el", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	188	289	
==>el", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3793	3920	
==>t (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # n <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3793	3920	
==>t (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19110	19204	
==>{
    my($code,$err)=@_;
    Carp::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_p5_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18420	18524	
==>e_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3890	3984	
==>ss, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5792	5886	
==>ss, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1082	1178	
==>-------------------------------------------------------------------------
## Roles

# Questions o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1082	1178	
==>-------------------------------------------------------------------------
## Roles

# Questions o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1082	1178	
==>-------------------------------------------------------------------------
## Roles

# Questions o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2919	3064	
==>tains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2919	3064	
==>tains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37623	37718	
==>oaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37623	37718	
==>oaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16143	16420	
==>-, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16143	16420	
==>-, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16143	16420	
==>-, 
                                '$.value' => $array->pop )
                        },
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6369	6466	
==>s are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6369	6466	
==>s are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6369	6466	
==>s are overloaded with calls to JS::inline.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5784	6010	
==>_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5784	6010	
==>_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5784	6010	
==>_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3280	3415	
==>ie "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3280	3415	
==>ie "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3280	3415	
==>ie "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14710	14812	
==>nputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14710	14812	
==>nputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_messa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2677	2785	
==>der AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2677	2785	
==>der AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2677	2785	
==>der AUTOLOAD - upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12534	12641	
==>( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12534	12641	
==>( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12534	12641	
==>( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unboxed <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17699	17815	
==>use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17699	17815	
==>use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3770	3875	
==>), 10 )

At which point the App will put the 10 into the parameter stack and reduce the
Thunk.

Inside the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5631	5762	
==>ngth = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5631	5762	
==>ngth = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5631	5762	
==>ngth = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $le <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1410	1512	
==>_superclasses($self:) returns Set {
    if ( $:superclasses.size ) {
        return ([+] $:superclasses <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39474	39567	
==>le::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39474	39567	
==>le::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All r <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	375	511	
==>1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	375	511	
==>1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18353	18456	
==>= inf --> List )
 &split<> := &split<Str>.assuming:delimiter(' ');

String delimiters must not be treate <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1513	1612	
==>d;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggabl <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1513	1612	
==>d;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34904	35039	
==>insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34904	35039	
==>insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34904	35039	
==>insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8165	8408	
==>ew;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8165	8408	
==>ew;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8165	8408	
==>ew;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store' => sub {
                my ($self, @param) = @ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	976	1115	
==>= shift;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1367	1480	
==>an::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1367	1480	
==>an::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	320	432	
==>/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	320	432	
==>/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	320	432	
==>/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2891	3026	
==>= 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2891	3026	
==>= 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2891	3026	
==>= 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20150	20248	
==>ks.

A compiler may choose to declare that its result not be recompiled by
some other containing pa <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20150	20248	
==>ks.

A compiler may choose to declare that its result not be recompiled by
some other containing pa <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12845	12966	
==>n for map { "$initrd_mnt/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, undef, $initr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3102	3198	
==>aders are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3102	3198	
==>aders are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14764	14896	
==>onds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14764	14896	
==>onds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28651	28742	
==>=0; runtests @ARGV;' t/*.t
  Using /home/schwern/src/devel/Test-Harness/blib
  t/base....... <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6805	6901	
==>ar* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21160	21254	
==>2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it prov <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21160	21254	
==>2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it prov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4866	4980	
==>urpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4866	4980	
==>urpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4866	4980	
==>urpy parameter? Flatten args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1795	1932	
==>o/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1795	1932	
==>o/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1795	1932	
==>o/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	237	368	
==>);
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	237	368	
==>);
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	237	368	
==>);
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my % <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5201	5335	
==>nless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope." <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5400	5530	
==>nless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope." <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5400	5530	
==>nless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13719	13848	
==>a( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13719	13848	
==>a( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13719	13848	
==>a( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10870	10979	
==>averse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4 <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10870	10979	
==>averse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	135	244	
==>::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name && $na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5747	5847	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5826	5926	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3435	3578	
==>')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3435	3578	
==>')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3435	3578	
==>')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3428	3535	
==>span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3428	3535	
==>span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21198	21291	
==>a[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20695	20790	
==>closest to your
preference.  Presumably the messages in these files are looked up by the
program <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20695	20790	
==>closest to your
preference.  Presumably the messages in these files are looked up by the
program <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30968	31141	
==>:Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30968	31141	
==>:Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30968	31141	
==>:Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7527	7667	
==>ed;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7515	7655	
==>ed;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1960	2063	
==>se Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1960	2063	
==>se Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4301	4401	
==>ed and expected lines from the previously run tests,
passing if both the diagnostics and output match <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4301	4401	
==>ed and expected lines from the previously run tests,
passing if both the diagnostics and output match <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4381	4481	
==>ed and expected lines from the previously run tests,
passing if both the diagnostics and output match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6668	6772	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6668	6772	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6668	6772	
==>b { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5173	5297	
==>eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5231	5355	
==>eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15104	15200	
==>match at the
beginning and end of a "word", respectively.  C<< /</ >> is equivalent to
C</(?!\w)( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1668	1788	
==>n.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1668	1788	
==>n.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1668	1788	
==>n.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2438	2630	
==>my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2438	2630	
==>my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	251	364	
==>Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6087	6200	
==>ice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6087	6200	
==>ice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6087	6200	
==>ice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3998	4126	
==>losure                { \{ <code> <'}'> }
rule literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_l <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8556	8683	
==>tion\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      exp <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6353	6452	
==>syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topcat == <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1542	1675	
==>e;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4745	4878	
==>e;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->pa <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	705	799	
==>, qw(--output-file|o=s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	474	582	
==>le($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	474	582	
==>le($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	474	582	
==>le($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5235	5341	
==>se base qw/type::operator::binary/;

sub symbol { "×" }


package type::variable;
use base qw/type/;

pack <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15418	15516	
==>d, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) return <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15476	15574	
==>d, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5160	5277	
==>$arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5160	5277	
==>$arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5160	5277	
==>$arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX this doesn't deal with $obj.$methref(...) (but as Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	971	1076	
==>rred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	971	1076	
==>rred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	971	1076	
==>rred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Sca <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8071	8174	
==>tch:
  $matchObjPos = $whitespacePosition;
  my $match = $$token{match};
  #TODO == should be isa
  goto <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21514	21609	
==>ho has not tried to port between
databases before, especially given that the Perl DBI purports t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21514	21609	
==>ho has not tried to port between
databases before, especially given that the Perl DBI purports t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	213	366	
==>{ access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	213	366	
==>{ access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	213	366	
==>{ access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$.val_array' => { access => 'rw' } ],
            [ '$.val_hash <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12859	12985	
==>}

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    j <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14790	14881	
==>in reverse dont currently work.
%# XXX - more...
re_reverse(R,R).

%------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1517	1662	
==>$opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1517	1662	
==>$opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1517	1662	
==>$opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3945	4069	
==>ash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3945	4069	
==>ash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3945	4069	
==>ash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $h <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4442	4558	
==>ent_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method diff <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4442	4558	
==>ent_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method diff <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10350	10464	
==></p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pre class="indent2">$ make smoke
$ ./util/smokeserv/s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	82	182	
==>un-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	82	182	
==>un-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	82	182	
==>un-smoke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	243	332	
==>_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	243	332	
==>_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	243	332	
==>_to_mini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	966	1070	
==>rray_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	966	1070	
==>rray_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	966	1070	
==>rray_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34040	34139	
==>'t in C<$other>.  This method will fail if C<$other> does not have
an identical header to the invoca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38590	38689	
==>'t in C<$other>.  This method will fail if C<$other> does not have
an identical header to the invoca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38051	38150	
==>'t in C<$other>.  This method will fail if C<$other> does not have
an identical header to the invoca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14863	14958	
==>@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14863	14958	
==>@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14863	14958	
==>@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_Code.t
b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	142	239	
==>warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	142	239	
==>warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#us <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	756	860	
==>ch to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Write <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	756	860	
==>ch to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Write <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1312	1416	
==>ch to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Write <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3659	3766	
==>uilder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3659	3766	
==>uilder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5856	5963	
==>uilder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5460	5566	
==>split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5460	5566	
==>split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5460	5566	
==>split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@p <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19770	19901	
==>y $outfile = IO::File->new(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $ou <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1918	2020	
==>rns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs P <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1918	2020	
==>rns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3272	3391	
==>::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3272	3391	
==>::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3272	3391	
==>::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16852	16991	
==>turn join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } els <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8976	9098	
==>it_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8964	9086	
==>it_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	657	766	
==>y $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8343	8442	
==>_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8401	8500	
==>_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5243	5361	
==>y ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5465	5583	
==>y ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2537	2642	
==>te =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	665	784	
==>ur path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	665	784	
==>ur path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $t <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	196	306	
==>s had not been specced yet (need S29 work).

When writing primitives, please do *not* use `return()`, because
t <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7584	7687	
==>(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1660	1758	
==>amples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Pe <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1660	1758	
==>amples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8942	9134	
==>ists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5302	5494	
==>ists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6151	6343	
==>ists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if t <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1062	1203	
==>t_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$i <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1062	1203	
==>t_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3046	3162	
==>ode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a wou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3046	3162	
==>ode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a wou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3046	3162	
==>ode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a wou <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13998	14108	
==>usible to realloc the regexp struct to create one?

Possible next steps:

  Get per-package hooks working.

Not <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9096	9186	
==>6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2921	3011	
==>6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	224	328	
==>tion (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	224	328	
==>tion (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	224	328	
==>tion (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5952	6064	
==>evel
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5952	6064	
==>evel
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5952	6064	
==>evel
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3394	3522	
==>ath     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3394	3522	
==>ath     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3394	3522	
==>ath     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cf <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2945	3051	
==>:Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, %options) = @_;
    (exists $opt <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1786	1886	
==>oniker)) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18650	18746	
==>into your application or package, with one or more
text strings to show human users.  This associ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18650	18746	
==>into your application or package, with one or more
text strings to show human users.  This associ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1669	1777	
==>hority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alrea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1669	1777	
==>hority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alrea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1669	1777	
==>hority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => []) 
        # we alrea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	341	597	
==>sed by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version app <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	341	597	
==>sed by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version app <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3790	3917	
==>self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3790	3917	
==>self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3790	3917	
==>self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_invocant or $_->is_ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7863	7975	
==>nction:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_a <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	318	418	
==>ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEA <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	318	418	
==>ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40395	40514	
==>$value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40395	40514	
==>$value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40395	40514	
==>$value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34442	34550	
==>plice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34442	34550	
==>plice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34442	34550	
==>plice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13022	13120	
==>ce is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurren <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13022	13120	
==>ce is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurren <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20495	20588	
==>to another file to help keep I<this>
file as abstract as possible.  F<Regexp::Parser> installs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10259	10396	
==>nnot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10259	10396	
==>nnot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10259	10396	
==>nnot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9355	9509	
==>$err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9355	9509	
==>$err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9355	9509	
==>$err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12689	12841	
==>generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #ou <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12689	12841	
==>generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #ou <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	170	280	
==>ISA = qw(Module::Install::Base);

$VERSION = '0.04';

use strict 'vars';
use vars qw($VERSION);

sub Meta { shi <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	823	974	
==>perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\] <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	823	974	
==>perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\] <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9115	9214	
==>cters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\"\\]> #Sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2851	2964	
==>), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2851	2964	
==>), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2851	2964	
==>), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5771	5872	
==>c example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5771	5872	
==>c example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5771	5872	
==>c example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2416	2540	
==>')} unless uc($1) eq $1;
    };
}

sub import {
    my $class = shift;
    my $self  = $class->new(@_);
    my $who   = $self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13567	13663	
==>he field names have case as suggested by HTTP spec, and the
names are returned in the recommended <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13567	13663	
==>he field names have case as suggested by HTTP spec, and the
names are returned in the recommended <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6210	6315	
==>ethods to provide additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6210	6315	
==>ethods to provide additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8407	8512	
==>ethods to provide additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

= <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4568	4664	
==>de refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tin <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4568	4664	
==>de refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14170	14257	
==>PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14170	14257	
==>PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14170	14257	
==>PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6314	6414	
==>IL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6314	6414	
==>IL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6314	6414	
==>IL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12353	12462	
==>int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12353	12462	
==>int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12353	12462	
==>int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unb <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21463	21589	
==>match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21742	21868	
==>match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1243	1335	
==>eneral_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make altern <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1243	1335	
==>eneral_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make altern <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18080	18179	
==>-> List )
 multi Str::split ( Rule $delimiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> Lis <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6391	6488	
==>>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it us <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6391	6488	
==>>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it us <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2316	2424	
==>ymbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::FALSE) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1986	2092	
==>ymbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1668	1770	
==>ymbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2955	3097	
==>m STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3172	3314	
==>m STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7155	7262	
==>$S->warn(RPe_BADESC, "Z", " in character class") if $cc;
    return $S->force_object(anyof_char => 'Z') if $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7194	7320	
==>{
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->ent <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4632	4741	
==>self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call met <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4491	4600	
==>self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	134	317	
==>turn block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	134	317	
==>turn block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	613	715	
==>> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token->compile(q( [ \w | \d | \: ]+ ))->code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1280	1378	
==>JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1280	1378	
==>JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1280	1378	
==>JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6284	6452	
==>e, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_class',
    }, $class;

    if (ref $type) {
      $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9168	9264	
==>ize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_hand <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9168	9264	
==>ize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_hand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5047	5154	
==>turn_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5047	5154	
==>turn_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5047	5154	
==>turn_macro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2185	2298	
==>& defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2185	2298	
==>& defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2185	2298	
==>& defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23583	23699	
==>$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23583	23699	
==>$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23583	23699	
==>$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	457	561	
==>cro LChar () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type Matc <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6674	6773	
==>`start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6674	6773	
==>`start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2622	2780	
==>pture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], nul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2925	3072	
==>pture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], nul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2925	3072	
==>pture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], nul <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5244	5371	
==>keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8721	8848	
==>keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7741	7868	
==>keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5965	6101	
==>bType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5965	6101	
==>bType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5965	6101	
==>bType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3614	3728	
==>el, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3614	3728	
==>el, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3614	3728	
==>el, %opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11892	12002	
==>s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11892	12002	
==>s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15290	15376	
==>rite(X,X,RW0,RW0).
re_rewrite_list([],[],RW0,RW0).
re_rewrite_list([T0|L0],[T1|L1],RW0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1237	1351	
==>l6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1237	1351	
==>l6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1237	1351	
==>l6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7904	8059	
==>$ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7904	8059	
==>$ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7904	8059	
==>$ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5788	5908	
==>ce::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5788	5908	
==>ce::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5788	5908	
==>ce::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	378	506	
==>] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	378	506	
==>] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	378	506	
==>] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	971	1099	
==>0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	971	1099	
==>0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	971	1099	
==>0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5 <==
3	/Users/nnunley/pugs/util/package-osx.pl	1101	1207	
==>nfo
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/util/package-osx.pl	3411	3517	
==>nfo
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/util/drift.pl	774	869	
==>src/DrIFT",
    "-i$Bin/../../DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	934	1060	
==>.push(int($y / $x)) }
            default  { die "Invalid token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die "In <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1579	1679	
==>ase{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1579	1679	
==>ase{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2942	3077	
==>- pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2942	3077	
==>- pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2942	3077	
==>- pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2076	2168	
==>re tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2076	2168	
==>re tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2076	2168	
==>re tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22253	22365	
==>que $self:)) returns num 
    ($self: id))

=cut

$::Class->send('add_method' => (
    # method label
        sym <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18749	18843	
==>rying to avoid triggering core behavior which we are not prepared to
support (such as modificat <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3039	3133	
==>rying to avoid triggering core behavior which we are not prepared to
support (such as modificat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19660	19770	
==>.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- C \= 10, !. %\n
rm(dot,         [ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6461	6650	
==>$op->{name} $op->{fixity} $op->{assoc} */\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11351	11454	
==>ray of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    r <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11351	11454	
==>ray of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7879	7998	
==>lue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7879	7998	
==>lue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7879	7998	
==>lue::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5143	5242	
==>ng C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5143	5242	
==>ng C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descrip <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6667	6766	
==>ng C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	591	700	
==>STS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	591	700	
==>STS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	591	700	
==>STS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2088	2212	
==>split /;/, $n;

      if ($cc) {
        $S->error(0, "\\C[A;B] in character class") if @names > 1;
        return $S->force_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1188	1317	
==>s rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_ra <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1188	1317	
==>s rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_ra <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8666	8780	
==>>output();
    close $fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $index->{_dirs}->{$_});
    } <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1516	1641	
==>,$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4725	4820	
==>$EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4725	4820	
==>$EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4725	4820	
==>$EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11534	11639	
==>rint STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11534	11639	
==>rint STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11534	11639	
==>rint STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1684	1798	
==>",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1684	1798	
==>",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1684	1798	
==>",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9460	9660	
==>},
                    todo        => $results{todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	606	718	
==>as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	606	718	
==>as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	606	718	
==>as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2248	2410	
==>ile)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $config->repo_pool
        ));
        $obj-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3468	3567	
==>ompare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infini <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3468	3567	
==>ompare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infini <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4432	4541	
==>s it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4432	4541	
==>s it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4432	4541	
==>s it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	673	764	
==>$avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	673	764	
==>$avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	673	764	
==>$avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes_o <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7197	7296	
==>y

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTR <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7197	7296	
==>y

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTR <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	533	626	
==>JSX::InternalValue;
class JSX::InternalValue::List       is JSX::InternalValue;
class JSX::Int <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12159	12276	
==>tus{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2559	2664	
==>tus{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2559	2664	
==>tus{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Tes <==
3	/Users/nnunley/pugs/util/version_h.pl	788	905	
==>iting version from $svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ * <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	99	189	
==>!headers handles «
    header push_header init_header remove_header remove_content_headers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	99	189	
==>!headers handles «
    header push_header init_header remove_header remove_content_headers <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5567	5678	
==>elemental(lookahead(R))        --> "(?=",  !, p5_start(R), ")".
p5_elemental(lookahead_not(R))    --> "(?!",  !, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	397	491	
==>lement'.

All meta-information provided by dialects should be stored in this
tree as an attribu <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	397	491	
==>lement'.

All meta-information provided by dialects should be stored in this
tree as an attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1054	1158	
==>k?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1054	1158	
==>k?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1054	1158	
==>k?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6628	6790	
==>n sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6628	6790	
==>n sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4727	4830	
==>ject(anyof_class => $S->force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13036	13293	
==>=> 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our defaul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2319	2445	
==>ecedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2319	2445	
==>ecedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6148	6254	
==>::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to other funct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6148	6254	
==>::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to other funct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6148	6254	
==>::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to other funct <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	38	164	
==>$worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	38	164	
==>$worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3254	3386	
==>}
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3254	3386	
==>}
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4778	4910	
==>}
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	639	779	
==>L::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	639	779	
==>L::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compil <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7715	7839	
==>nicode_c = 'src/UnicodeC.c';
    }

    my $perl5_c = '';
    if (grep /^-DPUGS_HAVE_PERL5$/, @_) {
        $perl5_c = 'src/p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3106	3197	
==>tions] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3106	3197	
==>tions] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3106	3197	
==>tions] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2711	2809	
==>lo'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2711	2809	
==>lo'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3058	3156	
==>lo'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	615	858	
==>('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	615	858	
==>('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	615	858	
==>('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	28	140	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	28	140	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	28	140	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3209	3339	
==>%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3209	3339	
==>%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7547	7656	
==>s => '\z');
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	447	570	
==>1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# conv <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13912	14014	
==>ting a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13912	14014	
==>ting a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2786	2886	
==>valX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2786	2886	
==>valX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2786	2886	
==>valX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10849	11037	
==>rn (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10849	11037	
==>rn (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10849	11037	
==>rn (0,"err1") if $num_required > scalar @params;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#p <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7701	7803	
==>ue::Array;
submethod BUILD {
    $.property_attributes{'length'} =
        JSX::PropertyAttributes.new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10250	10343	
==>s that mandatory
constructor arguments are provided and that they are of the correct
container <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10250	10343	
==>s that mandatory
constructor arguments are provided and that they are of the correct
container <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	565	665	
==>$b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *pref <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	565	665	
==>$b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *pref <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1155	1248	
==>le non_conjunction { <repetition> | <alias> | <simple_term> }

rule repetition  { <simple_term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	130	237	
==>ure can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	130	237	
==>ure can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - M <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	130	237	
==>ure can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - M <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6908	7041	
==>ding === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10385	10518	
==>ding === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	136	228	
==>re 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	441	536	
==>) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	441	536	
==>) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	441	536	
==>) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
me <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1884	1988	
==>s: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1884	1988	
==>s: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

meth <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	662	758	
==>ss;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37693	37821	
==>unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37693	37821	
==>unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37693	37821	
==>unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1018	1132	
==>prolog, with no p6 runtime associated.
Then, 
  - aid in prototyping the regexp system - the regexp tree, its
  com <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8070	8183	
==>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8070	8183	
==>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2041	2152	
==>oo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2041	2152	
==>oo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2041	2152	
==>oo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	691	818	
==>Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	691	818	
==>Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	691	818	
==>Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the C <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	968	1240	
==>N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	968	1240	
==>N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19428	19556	
==>y $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }

    _ok( !$diag, _where(), <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8240	8387	
==>$key), " was ", _qq($orig->{$key}),
                     " now ", _qq($value), "\n";
        $fail = 1;
      }
    } else {
      print STDOUT "# k <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	862	960	
==>n about the server your CGI is running on. It also 
attempts to provide some useful defaults for de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	862	960	
==>n about the server your CGI is running on. It also 
attempts to provide some useful defaults for de <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23119	23216	
==>EEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3456	3552	
==>dline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 wh <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3456	3552	
==>dline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 wh <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	250	347	
==>t cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::T <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	250	347	
==>t cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::T <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8384	8481	
==>_sub:
  $operator = &$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$token{name};
  go <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8036	8177	
==>($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_seen_header} = 0;
        if ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6105	6207	
==>ent $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6105	6207	
==>ent $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5350	5480	
==>lasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You mu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5350	5480	
==>lasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You mu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5350	5480	
==>lasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	95	194	
==>tdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	95	194	
==>tdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	95	194	
==>tdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6164	6312	
==>lt ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6164	6312	
==>lt ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6164	6312	
==>lt ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10879	11034	
==>$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10879	11034	
==>$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10879	11034	
==>$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2217	2327	
==>);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2217	2327	
==>);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2217	2327	
==>);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Cou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10657	10790	
==>e invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14134	14267	
==>e invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13433	13566	
==>e invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for trivial cases that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1902	2028	
==>*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1902	2028	
==>*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1902	2028	
==>*)$/) {
    no strict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	493	608	
==>_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	493	608	
==>_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	493	608	
==>_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2202	2337	
==>ef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2131	2263	
==>ef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $mat <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2173	2268	
==>l (M2)

=head1 SYNOPSIS

 my $role_mc = Meta::Class.new("Role");
 my $class_mc = Meta::Class.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4737	4853	
==> () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4737	4853	
==> () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4737	4853	
==> () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8645	8794	
==>->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12552	12696	
==>->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12552	12696	
==>->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fai <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	609	707	
==>em B<$.output>

The filehandle to which to write all normal output (test results and
descriptions). <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	609	707	
==>em B<$.output>

The filehandle to which to write all normal output (test results and
descriptions). <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1165	1263	
==>em B<$.output>

The filehandle to which to write all normal output (test results and
descriptions). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2168	2268	
==>' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2168	2268	
==>' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2168	2268	
==>' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4578	4722	
==>ase_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4578	4722	
==>ase_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22575	22708	
==>y $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifmatch',
      dir => <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9450	9565	
==>$universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set:: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9450	9565	
==>$universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set:: <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	793	896	
==>) syntax works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Code <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3016	3375	
==>' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3016	3375	
==>' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2653	2811	
==>ithout this ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<token>},
                map { "$_" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	934	1061	
==>header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($sc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	934	1061	
==>header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1345	1431	
==>3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1345	1431	
==>3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1345	1431	
==>3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBN <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22437	22534	
==>n invoked on the
same object with the same arguments; they do not interact with the outside
enviro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26989	27086	
==>n invoked on the
same object with the same arguments; they do not interact with the outside
enviro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25712	25809	
==>n invoked on the
same object with the same arguments; they do not interact with the outside
enviro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3864	3983	
==>de");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3864	3983	
==>de");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3864	3983	
==>de");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1945	2051	
==>ssion';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1945	2051	
==>ssion';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1990	2124	
==>new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2425	2559	
==>new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2862	2996	
==>new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8744	8895	
==>turn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12649	12794	
==>turn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12649	12794	
==>turn $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	903	1014	
==>referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	903	1014	
==>referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	903	1014	
==>referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FE <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7940	8090	
==>s dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8404	8554	
==>s dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	347	448	
==>:cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11701	11825	
==>exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11701	11825	
==>exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11701	11825	
==>exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3318	3447	
==>k);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3318	3447	
==>k);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3674	3803	
==>k);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36803	36925	
==>$array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36803	36925	
==>$array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36803	36925	
==>$array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29854	29953	
==>es as old attributes
that were wrapped, and it supports having old tuple-valued attributes which
hav <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34406	34505	
==>es as old attributes
that were wrapped, and it supports having old tuple-valued attributes which
hav <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33570	33669	
==>es as old attributes
that were wrapped, and it supports having old tuple-valued attributes which
hav <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37035	37130	
==><intersection>.  In any situation where a pair of source
relations have zero attributes in commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41584	41679	
==><intersection>.  In any situation where a pair of source
relations have zero attributes in commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41207	41302	
==><intersection>.  In any situation where a pair of source
relations have zero attributes in commo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	433	584	
==>(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	433	584	
==>(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2301	2417	
==>ved_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_ma <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2301	2417	
==>ved_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2381	2497	
==>ved_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13716	13826	
==>RPe_NESTED)
      if $tree->[-1]->family eq "quant";

    # on /abc+/, we extract the 'c' from the 'exact' node <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11732	11833	
==>Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11732	11833	
==>Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2070	2179	
==>M->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2070	2179	
==>M->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2070	2179	
==>M->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2148	2269	
==>e to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1244	1345	
==>of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1244	1345	
==>of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Nod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3493	3593	
==>ite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3493	3593	
==>ite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	347	443	
==>litdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $n <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	347	443	
==>litdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3673	3768	
==>mp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3673	3768	
==>mp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3673	3768	
==>mp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23959	24152	
==>boxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23959	24152	
==>boxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23959	24152	
==>boxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2382	2540	
==>x: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2693	2846	
==>x: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2693	2846	
==>x: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9222	9337	
==>Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'Lis <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9280	9395	
==>Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6603	6700	
==>has <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6603	6700	
==>has <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6603	6700	
==>has <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many tests. Thanks!

Copyri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2233	2349	
==>ore($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2233	2349	
==>ore($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2233	2349	
==>ore($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	778	868	
==>ass, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	778	868	
==>ass, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	778	868	
==>ass, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = [ $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7029	7130	
==>rray, Int)\.
sub prefix:<[.[]]> (*$head is copy, *@rest is copy) {
  while @rest {
    $head = $head[s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	258	352	
==>m_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	316	410	
==>m_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32356	32478	
==>eference of arguments to object() that will produce
its ending node:

  # the 'open' node's ender:
  sub ender {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2073	2182	
==>(($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2073	2182	
==>(($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1363	1488	
==>(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1363	1488	
==>(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1363	1488	
==>(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).F <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1728	1843	
==>my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1728	1843	
==>my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	419	514	
==>by passin
	all => sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filter::Simp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1800	1922	
==>y") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1800	1922	
==>y") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1800	1922	
==>y") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2898	3008	
==>\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	929	1039	
==>\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10495	10604	
==>hk\n";
    my $keys = join(" ", @{$info->{'fields'}});

    my $code = "";
    $code .= "sub ${package_name}:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3692	3791	
==>ce_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3692	3791	
==>ce_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3692	3791	
==>ce_attr($::SELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1905	2002	
==>ange. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1905	2002	
==>ange. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1905	2002	
==>ange. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4635	4741	
==>r' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4635	4741	
==>r' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4635	4741	
==>r' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10279	10388	
==>ub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10445	10554	
==>ub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$ <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	523	659	
==>Stack underflow\n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq '+') {
            pus <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5840	5941	
==>els and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<ob <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5840	5941	
==>els and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<ob <==
3	/Users/nnunley/pugs/util/package-osx.pl	4582	4682	
==>3.3pm
        /usr/local/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1465	1559	
==>ring text from 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1465	1559	
==>ring text from 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4099	4194	
==>lass Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4099	4194	
==>lass Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1519	1613	
==>e meta
objects; each dispatch table points directly to its "superclass"
dispatch table(s).

=cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14946	15062	
==>cause we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14946	15062	
==>cause we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14946	15062	
==>cause we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclasses')} 
            i <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	738	857	
==>:inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ft <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	705	824	
==>:inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ft <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	68	177	
==>y (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	68	177	
==>y (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	68	177	
==>y (we redefine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2133	2225	
==>th })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2133	2225	
==>th })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2133	2225	
==>th })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.lengt <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	892	1019	
==>n's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "T <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3123	3244	
==>',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3123	3244	
==>',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12527	12638	
==>rl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12527	12638	
==>rl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12527	12638	
==>rl6::Value::identify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey { <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1851	1946	
==>f working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypse <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1851	1946	
==>f working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypse <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2436	2564	
==>'\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	335	471	
==>erencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	335	471	
==>erencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	335	471	
==>erencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH() },
      function (n) {
        thing.re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	193	291	
==>meta-model can be experimented
# on without loosing this code as a reference point.

use Test::More <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23679	23770	
==>setta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23679	23770	
==>setta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosett <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	440	560	
==>:}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24330	24448	
==>result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
    } else {
        push @result, "?% okay";
    }
    my $end <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	559	670	
==>:}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1335	1446	
==>opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1540	1651	
==>opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1601	1712	
==>opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1021	1128	
==>eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg=" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1021	1128	
==>eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg=" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1021	1128	
==>eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg=" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9126	9232	
==>on => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9126	9232	
==>on => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9126	9232	
==>on => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3894	3979	
==>ler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/> <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3894	3979	
==>ler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2761	2887	
==>encies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed depe <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3225	3351	
==>encies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed depe <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5500	5602	
==>y}{$_} } qw<total ok failed todo skipped unexpect>),
    $smoke{id};
}

sub unpack_smoke {
  my $name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7675	7798	
==>{ $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7675	7798	
==>{ $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7675	7798	
==>{ $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1002	1102	
==>2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1002	1102	
==>2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1002	1102	
==>2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch/store of whole laz <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24929	25038	
==>'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <QuantifierPr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4949	5046	
==>e delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4949	5046	
==>e delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	11	99	
==>kage Module::Install::WriteAll;

use Module::Install::Base;
@ISA = qw(Module::Install::Ba <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	110	197	
==>kage Module::Install::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::Ba <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3829	3944	
==>0>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3829	3944	
==>0>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5353	5468	
==>0>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13247	13343	
==>t-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13247	13343	
==>t-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14952	15059	
==>$S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, \$how);
  });

  # upper POS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19871	19966	
==>s; all Rosetta cares about is that the user
interface and behaviour conform to its preconception <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19871	19966	
==>s; all Rosetta cares about is that the user
interface and behaviour conform to its preconception <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6113	6269	
==>nd $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6113	6269	
==>nd $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14446	14575	
==>1))
      ) {
        $rx->awarn($rx->RPe_ZQUANT);
      }

      # unbounded quantifier on a zero-width
      # assertion can mat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1300	1415	
==>] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1300	1415	
==>] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gat <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10597	10700	
==>ressionChar {  # see 7.8.5
      <!before <[\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule Bac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8557	8711	
==>e - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ", <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12466	12617	
==>e - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12466	12617	
==>e - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2568	2686	
==>r not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2568	2686	
==>r not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2568	2686	
==>r not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	402	510	
==>tails;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("could not open $file in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16823	16915	
==>yModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16823	16915	
==>yModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1864	1974	
==>text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filena <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1864	1974	
==>text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filena <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1864	1974	
==>text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filena <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22055	22162	
==>$namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str) - $max_namelen;
    if ($l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	572	670	
==>ne, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	572	670	
==>ne, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	204	310	
==>)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	204	310	
==>)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	204	310	
==>)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $class->bles <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	589	687	
==>IBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test result <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	589	687	
==>IBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test result <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1145	1243	
==>IBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test result <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9113	9244	
==>t    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify proper <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10590	10721	
==>t    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify proper <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3438	3557	
==>ammar::Category->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4096	4214	
==>= sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4096	4214	
==>= sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4096	4214	
==>= sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1885	2006	
==>sername, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1885	2006	
==>sername, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21287	21380	
==>,C) :- !,   (char_type(C,space) ; C = 11). %\v chr(11)
class_member(class_neg(space_perl),C) : <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2065	2169	
==>($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2065	2169	
==>($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9347	9446	
==>ullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	sub => type::operator::arrow-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16366	16463	
==>nt. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16366	16463	
==>nt. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3442	3532	
==>orian::duration ::= &Duration::Gregorian::duration;
#}

# operations with Duration::Gregori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7397	7516	
==>$xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7397	7516	
==>$xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7397	7516	
==>$xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $xx;
    #p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5640	5768	
==>ift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5640	5768	
==>ift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5640	5768	
==>ift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2726	2861	
==>),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2726	2861	
==>),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2726	2861	
==>),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1269	1366	
==>containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::H <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1269	1366	
==>containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::H <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1816	1913	
==>containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9037	9142	
==>in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9037	9142	
==>in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9037	9142	
==>in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6557	6673	
==>dule content; not the DATA section. Because we
                # want to make sure that the program runs the same way <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6557	6673	
==>dule content; not the DATA section. Because we
                # want to make sure that the program runs the same way <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	94	195	
==>re perl6 implementations of /builtins/
* They sometimes use Pugs internals to do the job
* Some of thi <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3883	4022	
==>sif($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	329	428	
==>$cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	329	428	
==>$cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	329	428	
==>$cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	597	843	
==>:en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::V <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	597	843	
==>:en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::V <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24227	24324	
==>s in a Relation::Example are of the same
degree, and the attribute names of each tuple are all the <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37430	37527	
==>he N-ary version of the aforementioned binary join()
operator, and the order of its arguments is n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41979	42076	
==>he N-ary version of the aforementioned binary join()
operator, and the order of its arguments is n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41620	41717	
==>he N-ary version of the aforementioned binary join()
operator, and the order of its arguments is n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3527	3628	
==>my $union = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3527	3628	
==>my $union = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16797	16904	
==>elation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20274	20381	
==>elation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3647	3780	
==>../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3647	3780	
==>../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4576	4703	
==>MY::Class;

    open $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23308	23413	
==>rg>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41232	41337	
==>rg>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37258	37363	
==>rg>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24642	24758	
==>next

An array reference of what handles (or "rules") to try to match next.

=back

=head2 Devices and Standards

I m <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7056	7163	
==>gs_version = get_version($pugs) };

step
  descr  => "Checking for Parrot binary",
  ensure => sub { -r "$pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	187	287	
==>'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3750	3915	
==>,
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30293	30394	
==>e the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30293	30394	
==>e the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28642	28796	
==>ant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28921	29075	
==>ant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ru <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12544	12640	
==>he body, but is also reused in the 'type' attr
fun: env($.body) = { new_env($$) }
fun: new_env($$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9607	9732	
==>f the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13084	13209	
==>f the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12356	12481	
==>f the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $ot <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2675	2794	
==>");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2675	2794	
==>");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29003	29094	
==>uple-valued
attributes which wrap zero old attributes (they are effectively just an
extensio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33555	33646	
==>uple-valued
attributes which wrap zero old attributes (they are effectively just an
extensio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32692	32783	
==>uple-valued
attributes which wrap zero old attributes (they are effectively just an
extensio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12053	12153	
==>everse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12053	12153	
==>everse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12053	12153	
==>everse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    pu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	57	181	
==>$?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	57	181	
==>$?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25604	25701	
==>ich is the same as the invocant Relation but that some of its attributes
are renamed.  The argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30156	30253	
==>ich is the same as the invocant Relation but that some of its attributes
are renamed.  The argumen <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	325	419	
==>name version abstract author license
    distribution_type perl_version tests
>;
my @tuple_keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1081	1175	
==>ined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1081	1175	
==>ined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1081	1175	
==>ined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13683	13808	
==>meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13683	13808	
==>meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13683	13808	
==>meta.add_method('find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1554	1673	
==>SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1554	1673	
==>SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1554	1673	
==>SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33966	34082	
==>RSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33966	34082	
==>RSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33966	34082	
==>RSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25590	25686	
==>e code.  However, for an additional fee, the copyright holders of
Rosetta can sell you an alterna <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25590	25686	
==>e code.  However, for an additional fee, the copyright holders of
Rosetta can sell you an alterna <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1624	1722	
==>nction (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1624	1722	
==>nction (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1624	1722	
==>nction (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3958	4121	
==>s %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3958	4121	
==>s %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3958	4121	
==>s %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<o <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1732	1829	
==>-1]->to;
    my $str = substr($X::str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str,\@args <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1448	1547	
==>s.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are defin <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6659	6757	
==>TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6659	6757	
==>TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5256	5359	
==>ethref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (ye <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5256	5359	
==>ethref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (ye <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5256	5359	
==>ethref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't matter much (ye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	947	1089	
==>}
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	947	1089	
==>}
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	947	1089	
==>}
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_curr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2607	2734	
==>uldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2607	2734	
==>uldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	9	121	
==>IL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	9	121	
==>IL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	9	121	
==>IL::PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6763	6867	
==>lings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert sibl <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6763	6867	
==>lings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert sibl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	14	114	
==>eta;

use strict;
use warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YA <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3769	4028	
==>_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3769	4028	
==>_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (S <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2810	2912	
==>chObj;
}

sub cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1888	1989	
==>o 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1888	1989	
==>o 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1888	1989	
==>o 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8351	8444	
==>=========================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8351	8444	
==>=========================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8351	8444	
==>=========================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10981	11224	
==>> { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10981	11224	
==>> { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10981	11224	
==>> { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10471	10595	
==>p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10471	10595	
==>p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10471	10595	
==>p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	836	933	
==>LTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Tri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	836	933	
==>LTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Tri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	836	933	
==>LTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Tri <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	692	792	
==>sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently defined <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	692	792	
==>sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently defined <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	434	527	
==>=head1 NAME

Blondie::Prelude - Aggregator of builtin functions for Blondie runtimes

=head1 S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2299	2398	
==>oc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2299	2398	
==>oc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	460	553	
==>ing a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	460	553	
==>ing a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	460	553	
==>ing a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19815	19913	
==>determined when it is constructed, and the object can
not be changed afterwards.

If you want somet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24367	24465	
==>determined when it is constructed, and the object can
not be changed afterwards.

If you want somet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22919	23017	
==>determined when it is constructed, and the object can
not be changed afterwards.

If you want somet <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	971	1064	
==>ules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	971	1064	
==>ules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	378	502	
==>ffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        wh <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	378	502	
==>ffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5951	6054	
==>[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5951	6054	
==>[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5951	6054	
==>[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38679	38785	
==>arser->errmsg;
    print "VISUAL: ", $parser->visual, "\n";
    print "REGEX:  ", $parser->qr, "\n";
  }

T <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1611	1709	
==>) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $str <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1611	1709	
==>) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $str <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24150	24263	
==>> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arrow->new($a, $a);

	is( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2287	2385	
==>));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size & <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2287	2385	
==>));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size & <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13427	13548	
==>mijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16904	17025	
==>mijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16266	16387	
==>mijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's heading is a pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	80	186	
==>s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	80	186	
==>s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	80	186	
==>s it, and reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/P <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10406	10558	
==>witches from the parms passed.

=cut

sub _cleaned_switches {
    my $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16903	17026	
==>$S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13324	13447	
==>$S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22567	22674	
==>ease

Documentation not complete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8667	8846	
==>more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5027	5206	
==>more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5876	6055	
==>more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5807	5926	
==>}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5807	5926	
==>}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5807	5926	
==>}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11966	12088	
==>hod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11966	12088	
==>hod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11966	12088	
==>hod($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15607	15701	
==>ir technical
skills.  For example, a native French or Chinese speaker often prefers to
communic <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15607	15701	
==>ir technical
skills.  For example, a native French or Chinese speaker often prefers to
communic <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7083	7204	
==>r = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0);
    if(sv != <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9094	9210	
==>t;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = spl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9094	9210	
==>t;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	378	489	
==>tch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	378	489	
==>tch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	378	489	
==>tch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11428	11622	
==>uery', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11428	11622	
==>uery', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's <==
3	/Users/nnunley/pugs/util/package-osx.pl	5959	6056	
==>/Perl6::Overview::File.3pm
        /usr/local/man/man3/Perl6::Overview::Functions.3
        /usr/l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10709	10805	
==>ef = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10709	10805	
==>ef = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1277	1375	
==>== Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1277	1375	
==>== Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1277	1375	
==>== Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10607	10774	
==>zy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# --- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10607	10774	
==>zy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# --- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10607	10774	
==>zy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# --- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2886	3046	
==>);
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2886	3046	
==>);
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<st <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1648	1760	
==>_with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $args[-1]->to;
    my $str = substr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2989	3135	
==>]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2989	3135	
==>]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9477	9623	
==>]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2687	2796	
==>%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2687	2796	
==>%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2687	2796	
==>%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14984	15081	
==>ed through the
following convenience methods.  These methods can both be used to read
and to set t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14984	15081	
==>ed through the
following convenience methods.  These methods can both be used to read
and to set t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4949	5112	
==>ASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4961	5124	
==>ASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $c <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12193	12323	
==>ion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->con <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22044	22151	
==>'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseBlock :words {  # see 12.11
      <'{'> <CaseClaus <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5678	5766	
==>ers>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5678	5766	
==>ers>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4149	4277	
==>IL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4149	4277	
==>IL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	999	1127	
==>IL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5048	5196	
==>en->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5048	5196	
==>en->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5048	5196	
==>en->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5090	5192	
==>e_content_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $mes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5090	5192	
==>e_content_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $mes <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10411	10514	
==>r $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsaf <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10411	10514	
==>r $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsaf <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2766	2966	
==>start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2766	2966	
==>start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30790	30885	
==>ny duplicates following the transformation have been eliminated. 
Trivial cases are where C<$tra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35341	35435	
==>ny duplicates following the transformation have been eliminated.
Trivial cases are where C<$tra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34532	34626	
==>ny duplicates following the transformation have been eliminated.
Trivial cases are where C<$tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33975	34091	
==>( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33975	34091	
==>( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33975	34091	
==>( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$arr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6380	6527	
==>emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub nod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3505	3652	
==>emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub nod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4354	4501	
==>emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub nod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29343	29440	
==>ut that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33895	33992	
==>ut that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33059	33156	
==>ut that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other
attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34668	34796	
==>defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34668	34796	
==>defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34668	34796	
==>defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	129	229	
==>> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	129	229	
==>> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12636	12812	
==>match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12630	12806	
==>match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37921	38033	
==>> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2344	2438	
==>f.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subse <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2344	2438	
==>f.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subse <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1231	1341	
==>return $FALSE;
    }
}

sub or : method {
    my ($self, $block) = @_;
    (blessed($block) && $block->isa('blo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21486	21583	
==>. Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21486	21583	
==>. Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3356	3461	
==>s[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3356	3461	
==>s[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0 <==
3	/Users/nnunley/pugs/util/grokprims.pl	204	312	
==>fix',
    right => 'right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list infi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23219	23317	
==>e> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27771	27869	
==>e> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has <==
3	/Users/nnunley/pugs/util/package-osx.pl	9983	10127	
==>_\n";
        }
        else {
            print "Copied $from to $dest$from\n";
        }
    }
}


# @files are all files that will be removed. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6658	6796	
==>dary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6658	6796	
==>dary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4724	4826	
==>".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4724	4826	
==>".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4724	4826	
==>".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infini <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12054	12175	
==>1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9.3.1
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8679	8784	
==>{$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various com <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8679	8784	
==>{$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various com <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8029	8128	
==>ode *&expression --> Scalar )
{
    List::reduce *&expression, *@values;
}

# signature from S29draf <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11828	11926	
==>6 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SY <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11828	11926	
==>6 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SY <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1450	1561	
==>_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1450	1561	
==>_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	208	312	
==>[0,1] = @_[1,0] }
#="is copy"
sub func( $arg is copy ) { $arg = 123; }
#="is ref": eine Referenz wird erw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11671	11772	
==>ves does Role since they
are just instances of Class which does Role too. So this means that all class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11671	11772	
==>ves does Role since they
are just instances of Class which does Role too. So this means that all class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11671	11772	
==>ves does Role since they
are just instances of Class which does Role too. So this means that all class <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	342	472	
==>str($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	975	1074	
==>fy ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	975	1074	
==>fy ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3228	3351	
==>h|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3228	3351	
==>h|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3228	3351	
==>h|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30039	30132	
==>former!) returns Relation>

This method is a short-hand or alternative for the functionality p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34591	34684	
==>former!) returns Relation>

This method is a short-hand or alternative for the functionality p <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4873	5000	
==>ly'>
    | <'return'>
    | <'void'>
    | <'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'f <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6371	6470	
==>';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xTy <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6371	6470	
==>';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xTy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	373	471	
==>lar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	373	471	
==>lar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	373	471	
==>lar/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16935	17025	
==>Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16935	17025	
==>Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16935	17025	
==>Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13956	14064	
==>$v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1083	1189	
==>ame for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run curr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1083	1189	
==>ame for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run curr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1083	1189	
==>ame for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4219	4333	
==>'%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4219	4333	
==>'%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4219	4333	
==>'%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6341	6452	
==>ORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6341	6452	
==>ORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1354	1447	
==>d print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5::X1: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41095	41201	
==>d1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41095	41201	
==>d1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41095	41201	
==>d1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1537	1662	
==>efix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub gre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1537	1662	
==>efix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub gre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1537	1662	
==>efix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub gre <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	210	312	
==>if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	210	312	
==>if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5281	5388	
==>$op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'war <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2823	2930	
==>$op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3672	3779	
==>$op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'war <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	132	277	
==>y($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(. <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	132	277	
==>y($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3542	3639	
==>s => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
    attributes => [ '$.reason' ],
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27138	27262	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27417	27541	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'gram <==
3	/Users/nnunley/pugs/misc/S29_round.pl	928	1041	
==>wn below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) } <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	237	334	
==>!!
# -----------------------------------------------

my %Cookies;

sub CookiesInit() {
    %Cooki <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	437	537	
==>d (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	437	537	
==>d (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	437	537	
==>d (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1045	1180	
==>tr_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1045	1180	
==>tr_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1045	1180	
==>tr_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6111	6216	
==>P6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6111	6216	
==>P6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6111	6216	
==>P6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs::Internals: <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2036	2170	
==>es by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3628	3758	
==>es by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $m <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17159	17266	
==>e is safe {
        Num::round_gen($n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primitive is b <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	550	679	
==>':ov'> }
rule flag_words       { <':sigspace'> | <':s'> }
# XXX - there are more.  Useful short-term. Eventually not needed,
# onc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	474	582	
==>ions with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	474	582	
==>ions with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_spa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6033	6247	
==>"};
                    unless ( defined $t ) {
                        warn "can't find template for '$op->{fixity}_$op->{assoc}'";
                        next;
                    }
                    $t =~ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4795	4901	
==>TORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4795	4901	
==>TORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6348	6452	
==>x)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6348	6452	
==>x)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6348	6452	
==>x)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3997	4114	
==>d $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3997	4114	
==>d $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3997	4114	
==>d $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1380	1478	
==>ant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1380	1478	
==>ant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1380	1478	
==>ant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK & <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3619	3804	
==>keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->mk_accessors( $acc );
            
            ### set to a sane default value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5554	5656	
==>main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5554	5656	
==>main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5554	5656	
==>main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	250	358	
==>:Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	250	358	
==>:Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3491	3601	
==>the AST - no calls to stubs and no inexistant symbols

=back

The compiler inherits L<Blondie::Reducer> in orde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3418	3511	
==>el <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This li <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3418	3511	
==>el <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1720	1851	
==>allow
    # for methods which do not have an implementation. These
    # methods are then required to be implemented by the 
    # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1720	1851	
==>allow
    # for methods which do not have an implementation. These
    # methods are then required to be implemented by the 
    # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1720	1851	
==>allow
    # for methods which do not have an implementation. These
    # methods are then required to be implemented by the 
    # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3034	3151	
==>airs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3034	3151	
==>airs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3034	3151	
==>airs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13245	13348	
==>_flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13245	13348	
==>_flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13245	13348	
==>_flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{" <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3319	3423	
==>], @{ $values{requires} || [] }, ];
    }

    warn "No license specified, setting license = 'unknown'\n" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36192	36283	
==>with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEn <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36192	36283	
==>with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4831	4933	
==>=> [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5024	5126	
==>=> [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8064	8193	
==>lock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8257	8386	
==>lock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6226	6322	
==>ass back to Class
$::Class->change_class($::Class);

=pod

method add_method (opaque $self: symbo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33469	33570	
==>at are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersec <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38019	38120	
==>at are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersec <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37408	37509	
==>at are in
all of the source Relations.  This method has an alias named C<intersect>.

=item C<intersec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3636	3737	
==>x.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3636	3737	
==>x.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3636	3737	
==>x.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	217	341	
==>{
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	180	304	
==>{
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	268	392	
==>{
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5591	5723	
==>e = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5413	5541	
==>e = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10991	11087	
==>ew ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<par <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10991	11087	
==>ew ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<par <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2154	2254	
==>ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2212	2312	
==>ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	114	210	
==>ix/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is parsed) / ternary
#  (wil <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15663	15761	
==>ar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15663	15761	
==>ar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13932	14052	
==>},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13932	14052	
==>},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13932	14052	
==>},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instanc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14464	14557	
==>his routine is exported by default.

=item encode_entities_numeric( $string )

=item encode_en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14464	14557	
==>his routine is exported by default.

=item encode_entities_numeric( $string )

=item encode_en <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18642	18734	
==>$start  ; StrPos $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10691	10790	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10691	10790	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10613	10723	
==>ray' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10613	10723	
==>ray' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10613	10723	
==>ray' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5430	5537	
==>hods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5430	5537	
==>hods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5430	5537	
==>hods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4040	4164	
==>def  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4040	4164	
==>def  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4040	4164	
==>def  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11103	11269	
==>self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11103	11269	
==>self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11103	11269	
==>self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9960	10126	
==>OD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9960	10126	
==>OD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9960	10126	
==>OD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3063	3213	
==>>{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20295	20402	
==>(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16716	16823	
==>(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8554	8727	
==>l->new("?%opts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6812	6912	
==>if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6812	6912	
==>if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1572	1691	
==>.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1572	1691	
==>.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1572	1691	
==>.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8640	8824	
==>.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $arr <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8640	8824	
==>.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13897	14045	
==>s/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13897	14045	
==>s/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13897	14045	
==>s/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23983	24164	
==>param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23983	24164	
==>param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23983	24164	
==>param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8184	8298	
==>atch[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8172	8286	
==>atch[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	73	186	
==>:Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

# determ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	78	181	
==>:Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	73	176	
==>:Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
} <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1796	2012	
==>Sym('$n'),
										App(
											Sym('&fact'),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						),
					), <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8315	8418	
==>fference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manu <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8315	8418	
==>fference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2423	2521	
==>m($file)   unless $self->author;
    $self->license_from($file)  unless $self->license;
    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2699	2794	
==>clear
that this is the optimal interface for this combinator.

=cut

method subrule (Code $code) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2699	2794	
==>clear
that this is the optimal interface for this combinator.

=cut

method subrule (Code $code) <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1402	1546	
==>if ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($e <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1402	1546	
==>if ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18991	19112	
==>=head2 The regular expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compila <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9838	9939	
==>ems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.star <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9838	9939	
==>ems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.star <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40504	40605	
==>a C<< $parser->err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors

There are three methods you c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3388	3495	
==>6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3388	3495	
==>6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3388	3495	
==>6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tie <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6308	6391	
==>def_stmt_prim('bs_stmt_decl','\s*macro\s+statement_control:<(\w+)>\s+\([^\)]*\)\s+is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10455	10565	
==>es to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10455	10565	
==>es to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10455	10565	
==>es to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3671	3771	
==>nding bug in overloaded -
#multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + dura <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36834	36929	
==>a: string with contents of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4598	4712	
==>ted = matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1944	2036	
==>ticle on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources writ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1944	2036	
==>ticle on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources writ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4229	4335	
==>blen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      Safefree(r->subbe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	80	172	
==>>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	80	172	
==>>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12624	12728	
==>rom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mob[ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12687	12781	
==>ter entities.  The module provides the following functions:

=over 4

=item decode_entities( $s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12687	12781	
==>ter entities.  The module provides the following functions:

=over 4

=item decode_entities( $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14819	14934	
==>e Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14819	14934	
==>e Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14819	14934	
==>e Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12404	12530	
==>y $description = "# TODO $.description";
          return join( ' ', $ok, $.number, $description );
      }
  
      method sta <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2782	2900	
==>y $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method sta <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2782	2900	
==>y $description = "# TODO $.description";
        return join( ' ', $ok, $.number, $description );
    }

    method sta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3538	3649	
==>in_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3538	3649	
==>in_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1529	1642	
==>$self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $from = $self->from( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	115	209	
==>ndie::Backend::Perl::Builtins;

use UNIVERSAL::require;

sub compiler_class { __PACKAGE__ . ":: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11216	11307	
==>", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2579	2735	
==>pl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2784	2940	
==>pl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3856	4012	
==>pl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2318	2422	
==>t will call mkisofs to create a ISO9660 image.

You can stop this program at any time, it'll continue whe <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1354	1453	
==>nection: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1354	1453	
==>nection: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15569	15684	
==>ef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15569	15684	
==>ef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15569	15684	
==>ef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (sh <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7576	7713	
==>DLINE$/, @_) {
        $depends .= ', readline -any';
    }

    my $unicode_c = '';
    if ($ghc_version =~ /^6\.4(?:\.0)?$/) {
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1573	1671	
==>can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SEC <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1573	1671	
==>can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SEC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8393	8547	
==>S->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8393	8547	
==>S->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8393	8547	
==>S->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is current <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1148	1267	
==>a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fgloc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1148	1267	
==>a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fgloc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1148	1267	
==>a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fgloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13533	13634	
==>xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13533	13634	
==>xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13533	13634	
==>xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1751	1868	
==>>object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1751	1868	
==>>object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1987	2104	
==>>object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $class = shift;
    my $sub = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1552	1650	
==>6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1552	1650	
==>6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1552	1650	
==>6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3094	3207	
==>"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->lo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2219	2318	
==><term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2230	2329	
==><term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24099	24212	
==>e to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24099	24212	
==>e to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24099	24212	
==>e to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4469	4579	
==>md
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4469	4579	
==>md
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4469	4579	
==>md
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	495	612	
==>doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	495	612	
==>doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	495	612	
==>doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2569	2679	
==>create accessors
        my %acc = map { $_ => $acc->{$_}->{allow} } keys %$acc;
        $obj->mk_accessors( \% <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	651	751	
==>d deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	651	751	
==>d deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1817	1973	
==>" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1805	1961	
==>" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3577	3713	
==>,
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '~=', <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	557	686	
==>2 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Red <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	557	686	
==>2 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Red <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13121	13263	
==>ss} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13121	13263	
==>ss} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13121	13263	
==>ss} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METH <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9741	9839	
==>n }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $se <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9741	9839	
==>n }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2494	2659	
==>')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2494	2659	
==>')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2494	2659	
==>')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1524	1630	
==>]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1524	1630	
==>]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1524	1630	
==>]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6569	6700	
==>m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6569	6700	
==>m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6569	6700	
==>m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "J <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8672	8770	
==>g something?

maybe just overload bool to false ;)

(I mean, seriously, because that's what p6 does <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8384	8480	
==>g something?
maybe just overload bool to false ;)
(I mean, seriously, because that's what p6 does <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3566	3814	
==>Val->new(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	30	126	
==>08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elem <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	30	126	
==>08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elem <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	500	593	
==>ng with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Remov <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	500	593	
==>ng with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Remov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2966	3086	
==>b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2966	3086	
==>b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2966	3086	
==>b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5297	5432	
==>\{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5297	5432	
==>\{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5297	5432	
==>\{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1552	1643	
==>add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1552	1643	
==>add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1552	1643	
==>add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	67	165	
==>er

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	67	165	
==>er

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &ciph <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3049	3145	
==>{sitearch} = 'C:\usr\site\lib';
    $Config{sitelib} = 'C:\usr\site\lib';
    require Data::Dumpe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14895	15033	
==>mar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15174	15312	
==>mar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3708	3818	
==>the problem.

- The perl5 executable must have PMC support. 

PMC support is required for loading precompiled P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	433	533	
==>port BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	433	533	
==>port BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	433	533	
==>port BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3343	3461	
==>curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3343	3461	
==>curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11720	11832	
==>ub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data::Dumper::Terse = 1; # no need for poin <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3628	3752	
==>s,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3628	3752	
==>s,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_chil <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6013	6131	
==>s now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # becaus <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6071	6189	
==>s now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # becaus <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37929	38026	
==>ith every tuple of each other source relation, then where each member of a
tuple pair has attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42478	42575	
==>ith every tuple of each other source relation, then where each member of a
tuple pair has attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42128	42225	
==>ith every tuple of each other source relation, then where each member of a
tuple pair has attribut <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3289	3391	
==>.day - 1 }
method mday returns Int { $.day }
method mday_0 returns Int { $.day - 1 }

#use Duration::Gr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9133	9229	
==>del::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9133	9229	
==>del::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2850	2947	
==>tch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2850	2947	
==>tch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2850	2947	
==>tch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3361	3487	
==>ss($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from alread <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3361	3487	
==>ss($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from alread <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3361	3487	
==>ss($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from alread <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4005	4140	
==>$v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up ye <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23252	23349	
==>ons.  Or alternately, the other
packages require your text data to be stored in a format other tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23252	23349	
==>ons.  Or alternately, the other
packages require your text data to be stored in a format other tha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1077	1196	
==>key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1077	1196	
==>key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	119	220	
==>",
    "$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Grammar::Perl6;
use strict;
use w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33209	33307	
==>ules will be searched in the order
they appear in this array until a match for that message is foun <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33209	33307	
==>ules will be searched in the order
they appear in this array until a match for that message is foun <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	924	1112	
==>t symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submet <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	924	1112	
==>t symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submet <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3008	3104	
==>ect" :)
method doy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_year ::= &D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1554	1671	
==>ot exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1554	1671	
==>ot exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1554	1671	
==>ot exist.\n";
  #} elsif(-e $cfg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precom <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7828	7955	
==>::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6091	6206	
==>}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6103	6218	
==>}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39690	39790	
==>array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39690	39790	
==>array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39690	39790	
==>array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7829	7933	
==>types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7829	7933	
==>types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7829	7933	
==>types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1848	2003	
==>ed - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1848	2003	
==>ed - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1848	2003	
==>ed - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40650	40774	
==>his->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40650	40774	
==>his->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40650	40774	
==>his->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11704	11869	
==>test{max};
            }
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach my $over <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4874	4991	
==>_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4707	4818	
==>_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3653	3777	
==>1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3846	3970	
==>1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'e <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17766	17870	
==>d function takes any pair and returns it's second thingy
# (a x b) -> b
# applied to $pair (int x str) th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1220	1344	
==>lse {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1220	1344	
==>lse {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1220	1344	
==>lse {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15054	15154	
==>- This stores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this att <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15054	15154	
==>- This stores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12018	12110	
==>));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12018	12110	
==>));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12018	12110	
==>));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4509	4604	
==>e C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This param <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4509	4604	
==>e C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6706	6801	
==>e C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This param <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7496	7643	
==>[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            un <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7496	7643	
==>[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	314	422	
==>al soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	314	422	
==>al soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	314	422	
==>al soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2171	2292	
==>\$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2171	2292	
==>\$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2171	2292	
==>\$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) { <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4255	4365	
==>ie "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4255	4365	
==>ie "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6421	6516	
==>ame } '... instance calling metaclass method fails';

is($iBar->foo, 'Foo->foo', '... $iBar call <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4051	4162	
==>IGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=va <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4051	4162	
==>IGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=va <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12721	12818	
==>set($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

R <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12721	12818	
==>set($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2157	2267	
==>mmand line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	364	464	
==>) }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_strin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	364	464	
==>) }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12590	12743	
==>}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12590	12743	
==>}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12590	12743	
==>}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8568	8668	
==>urn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8568	8668	
==>urn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8568	8668	
==>urn $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	131	228	
==>self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	131	228	
==>self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	131	228	
==>self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11546	11673	
==>d () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11546	11673	
==>d () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11546	11673	
==>d () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	175	279	
==>b";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	175	279	
==>b";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	175	279	
==>b";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import BSD::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	497	602	
==>turn $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	497	602	
==>turn $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	497	602	
==>turn $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1307	1398	
==>eed the 'nmake' utility
before installation. It's available at:

  http://download.microsoft <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1147	1238	
==>eed the 'nmake' utility
before installation. It's available at:

  http://download.microsoft <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35197	35296	
==>>

This multi-method is a generic binary relational operator that is identical
to C<join> except tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39747	39846	
==>>

This multi-method is a generic binary relational operator that is identical
to C<join> except tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39307	39406	
==>>

This multi-method is a generic binary relational operator that is identical
to C<join> except tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5072	5189	
==>$line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5072	5189	
==>$line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5072	5189	
==>$line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users w <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1207	1331	
==>,             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4357	4480	
==>,             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4357	4480	
==>,             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9657	9747	
==>TTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9657	9747	
==>TTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following method <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	92	189	
==>.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	92	189	
==>.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14016	14105	
==>) -->
  octdigit(D0), octdigit(D1), octdigit(D2), {number_chars(I,[42,111,D0,D1,D2])}.


a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	43	161	
==>];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	48	166	
==>];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	48	166	
==>];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1733	1867	
==>I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1733	1867	
==>I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1733	1867	
==>I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	797	899	
==>type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	797	899	
==>type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	797	899	
==>type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1729	1853	
==>ss "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1729	1853	
==>ss "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1729	1853	
==>ss "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3858	3949	
==>------------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3858	3949	
==>------------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3858	3949	
==>------------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4734	4841	
==>he plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4734	4841	
==>he plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6258	6365	
==>he plan.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8408	8515	
==>]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8396	8503	
==>]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3540	3645	
==>->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3540	3645	
==>->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3540	3645	
==>->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4919	5035	
==>e if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4919	5035	
==>e if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4919	5035	
==>e if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	103	205	
==>lass Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	103	205	
==>lass Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	103	205	
==>lass Perl6::Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2989	3117	
==>is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2989	3117	
==>is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2989	3117	
==>is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $curre <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	270	404	
==>ge (@ARGV ) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry to install
        next unless $entry->{pac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2164	2285	
==>nings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2381	2502	
==>nings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2540	2635	
==>"a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2540	2635	
==>"a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2540	2635	
==>"a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6862	6974	
==>('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6862	6974	
==>('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6862	6974	
==>('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5051	5175	
==>ined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5051	5175	
==>ined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $docu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	91	179	
==>::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data::Dumper::Indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1576	1693	
==>y

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1576	1693	
==>y

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1576	1693	
==>y

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4999	5105	
==>d_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4999	5105	
==>d_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4999	5105	
==>d_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23593	23709	
==>ub p6_loop_CODE {
    my($body)=@_;
    # the caller is responsible for providing any value capture needed, in $body. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2620	2727	
==>s> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2620	2727	
==>s> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	55	156	
==>thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	55	156	
==>thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	55	156	
==>thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return valu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5309	5431	
==>evious( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5309	5431	
==>evious( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	639	750	
==>| = 1;
my $start = time;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11632	11740	
==>_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11632	11740	
==>_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11632	11740	
==>_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35388	35487	
==>nly accept inputs that would result in
a cross-product when joined.  This method has aliases named
C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39938	40037	
==>nly accept inputs that would result in
a cross-product when joined.  This method has aliases named
C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39498	39597	
==>nly accept inputs that would result in
a cross-product when joined.  This method has aliases named
C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	646	771	
==>hod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	646	771	
==>hod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	646	771	
==>hod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7873	8016	
==>urn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7873	8016	
==>urn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7873	8016	
==>urn $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3852	3944	
==>D to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3852	3944	
==>D to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3852	3944	
==>D to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	670	772	
==>t([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	670	772	
==>t([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	670	772	
==>t([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	182	293	
==>de
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed string <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	182	293	
==>de
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed string <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	182	293	
==>de
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed string <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9786	9885	
==>t
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fix <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9786	9885	
==>t
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9874	9973	
==>er(2);  # top- through third-level

The iterator returned is a function reference.  When called in s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3244	3474	
==>"   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3244	3474	
==>"   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15874	15979	
==>et: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7423	7593	
==>items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7423	7593	
==>items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7423	7593	
==>items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1185	1291	
==>g positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1185	1291	
==>g positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1185	1291	
==>g positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1213	1342	
==>_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1213	1342	
==>_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1213	1342	
==>_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1425	1524	
==>bj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1425	1524	
==>bj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1425	1524	
==>bj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("P <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11862	11987	
==>}
      }
    };

  step
    descr  => "Copying Parrot include files to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	28	128	
==>quire Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	28	128	
==>quire Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	28	128	
==>quire Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4041	4138	
==>g = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy & <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4041	4138	
==>g = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy & <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4631	4728	
==>g = $args->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4152	4265	
==>\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4152	4265	
==>\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4152	4265	
==>\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".j <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2643	2791	
==>{
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smok <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1671	1811	
==>ame,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1671	1811	
==>ame,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3378	3518	
==>nt_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3378	3518	
==>nt_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3378	3518	
==>nt_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15617	15717	
==>ULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15617	15717	
==>ULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15617	15717	
==>ULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6541	6681	
==>ch(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6541	6681	
==>ch(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6541	6681	
==>ch(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not wa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29806	29921	
==>member exit code

Completely redo the print summary code.

Implement Straps callbacks.  (experimentally implemented) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14171	14281	
==>et
    .local int pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .local string cname
    newfrom = find_g <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8645	8746	
==>s where this method comes into play
# it will recurse down the tree and fix the
# depth fields appropr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8645	8746	
==>s where this method comes into play
# it will recurse down the tree and fix the
# depth fields appropr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24212	24293	
==>(amat([],flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_G),C0).
match_captur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2940	3143	
==>> 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2940	3143	
==>> 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2940	3143	
==>> 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $coun <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13516	13698	
==>:non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13795	13977	
==>:non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	154	245	
==>ugs-Compiler-Precedence/lib",
;

use Pugs::Compiler::Perl6;
#use Pugs::Utils::Dump;
use Data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14996	15118	
==>@{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14996	15118	
==>@{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14996	15118	
==>@{::opaque_instance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5742	5859	
==>f vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5742	5859	
==>f vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5742	5859	
==>f vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8172	8273	
==>turn $S->force_object(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_h <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3518	3607	
==>ssing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    ret <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3518	3607	
==>ssing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2119	2236	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2119	2236	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2119	2236	
==>e) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shif <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13199	13307	
==>on-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16676	16784	
==>on-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16038	16146	
==>on-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9044	9167	
==>me'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramConte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9044	9167	
==>me'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramConte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9044	9167	
==>me'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramConte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5162	5353	
==>->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5162	5353	
==>->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5162	5353	
==>->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1100	1218	
==>nstant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1100	1218	
==>nstant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1100	1218	
==>nstant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.i <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19734	19864	
==>ly, write out the synopsis
        my $outfile = IO::File->new(">$synhtml") 
                             or die "Can't open output <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	885	980	
==>description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	885	980	
==>description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bo <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	733	863	
==>\s* M )? \s*
            (?: (\d+) (?: \.(\d+))? \s* S )? \s* )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_duration_r <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2725	2825	
==>$extensions = $self->{extensions} || [];
    unless (@$extensions) {
        $self->load_extensions(" <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2320	2415	
==>metrical? = 1) {
	$symmetrical ?? $x.round_away_from_zero
		!! $x.round_ceiling
}

our Int multi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28800	28893	
==>lation attribute names, or duplicate any other value set members.  This
method supports having <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33352	33445	
==>lation attribute names, or duplicate any other value set members.  This
method supports having <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12463	12603	
==>oin( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2839	2969	
==>oin( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2839	2969	
==>oin( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6143	6250	
==>yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6143	6250	
==>yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6143	6250	
==>yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1658	1754	
==>ase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1658	1754	
==>ase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1658	1754	
==>ase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5353	5442	
==>.2
multi sub ToBoolean(JSX::Value::Undefined $v) { JSX::false }
multi sub ToBoolean(JSX::V <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7304	7421	
==>' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7056	7171	
==>' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35860	36000	
==>dy = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35860	36000	
==>dy = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35860	36000	
==>dy = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1609	1712	
==>split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACK <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11122	11215	
==>desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11180	11273	
==>desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	610	726	
==>$key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	610	726	
==>$key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	610	726	
==>$key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4722	4915	
==>for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3986	4147	
==>for ( qx[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2439	2534	
==>s.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2439	2534	
==>s.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2439	2534	
==>s.meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $cla <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2152	2452	
==>> -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2152	2452	
==>> -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                wh <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1321	1411	
==>ivecd-kernel.bin";
my $grub_uri     = "http://m19s28.vlinux.de/iblech/pugs/grub.tar.bz2";
m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1107	1225	
==>tion Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1107	1225	
==>tion Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4926	5016	
==>round **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_range_greed(W,Min,M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1275	1408	
==>5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1480	1613	
==>5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	462	558	
==>rn unless Scalar::Util::blessed($node);
	return if $node->atomic;

	return 1;
}

sub generic_redu <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	565	659	
==>It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	565	659	
==>It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	886	978	
==>tp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	763	847	
==>tp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5889	6108	
==>}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fixity}_$op->{assoc}"};
                    unless ( defined $t ) {
                        wa <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2749	2849	
==>["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2749	2849	
==>["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	468	581	
==>ool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	468	581	
==>ool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3392	3507	
==>f => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3392	3507	
==>f => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3392	3507	
==>f => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $bu <==
3	/Users/nnunley/pugs/util/func_refact.pl	2140	2264	
==>$new;
    return $size - $oldsize; # new member count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    for my $c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	31	124	
==>Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	31	124	
==>Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.enc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4797	4895	
==>s on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5047	5145	
==>s on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9889	9985	
==>n_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::s <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	576	681	
==>ess headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4743	4851	
==>ople who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4743	4851	
==>ople who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$ <==
3	/Users/nnunley/pugs/util/config_h.pl	33	132	
==>e warnings;
use Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	926	1031	
==>";
    my $pilfn = "deleteme_$$";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn.er <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	767	863	
==>ion Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	767	863	
==>ion Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	995	1115	
==>%a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	995	1115	
==>%a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	995	1115	
==>%a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3012	3135	
==>f ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3012	3135	
==>f ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3012	3135	
==>f ($body->{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5141	5247	
==>eturn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5141	5247	
==>eturn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5731	5837	
==>eturn;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9780	9902	
==>---------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9780	9902	
==>---------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9780	9902	
==>---------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implem <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7175	7302	
==>nt)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, Int)\
\\n   List      pre     split   safe   (Str <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10569	10681	
==>se is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10569	10681	
==>se is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1750	1866	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1750	1866	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8841	8941	
==>-> "]", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4068	4164	
==>$hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4068	4164	
==>$hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4068	4164	
==>$hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_postcircumfix_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1842	2104	
==>et)

    # Attributes of every Relation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Exam <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18743	18838	
==>usly
trying to avoid triggering core behavior which we are not prepared to
support (such as modi <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3033	3128	
==>usly
trying to avoid triggering core behavior which we are not prepared to
support (such as modi <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2960	3099	
==>n $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $x_round = round_up_sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9773	9911	
==>[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9773	9911	
==>[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5203	5323	
==>urns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5203	5323	
==>urns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_na <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7253	7367	
==>and lock it exclusively. See perldoc -q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2065	2172	
==>b($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2065	2172	
==>b($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2065	2172	
==>b($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant parameter i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4037	4138	
==>tance, passing on the C<$description> parameter and setting the passed
parameter to a false value. 

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4037	4138	
==>tance, passing on the C<$description> parameter and setting the passed
parameter to a false value. 

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6234	6335	
==>tance, passing on the C<$description> parameter and setting the passed
parameter to a false value. 

= <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7124	7227	
==>is so big.

# in a language with native multimetods this would be much more concise

# a free variable i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1835	1993	
==>D')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1835	1993	
==>D')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1835	1993	
==>D')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5376	5501	
==>tch->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5376	5501	
==>tch->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15338	15457	
==>t

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4306	4419	
==>y, say "--anonymous"
on the command line to withold your identity (and this message).
AD
        }
    }
    #$sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24125	24222	
==>n empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28677	28774	
==>n empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1965	2090	
==>on (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1965	2090	
==>on (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1965	2090	
==>on (args) {
      var hash = args[1].FETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11848	12001	
==>6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11848	12001	
==>6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11848	12001	
==>6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14992	15098	
==>Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14992	15098	
==>Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14992	15098	
==>Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5416	5526	
==>urrying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5416	5526	
==>urrying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5416	5526	
==>urrying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16259	16401	
==>rn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16259	16401	
==>rn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16259	16401	
==>rn unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) { <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7136	7250	
==>y $test = shift;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3927	4024	
==>GE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibili <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3927	4024	
==>GE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibili <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1903	2022	
==>($node) ? $self->SUPER::reduce($node->struct_equiv) : $node;
	}
}

{
	package Blondie::TypeSafe::Annotator;
	use base qw <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2	119	
==>e v6;

module File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2	119	
==>e v6;

module File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21384	21496	
==>TROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21384	21496	
==>TROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21384	21496	
==>TROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27010	27112	
==>subset of the original's attributes to what C<project> would
return given the same C<$attrs>.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31562	31664	
==>subset of the original's attributes to what C<project> would
return given the same C<$attrs>.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30618	30720	
==>subset of the original's attributes to what C<project> would
return given the same C<$attrs>.  This met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13533	13665	
==>ams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13533	13665	
==>ams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13533	13665	
==>ams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's d <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1201	1304	
==>ss @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns St <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1201	1304	
==>ss @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2259	2372	
==>Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2259	2372	
==>Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2259	2372	
==>Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2559	2696	
==>ric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2559	2696	
==>ric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14486	14591	
==>c_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14486	14591	
==>c_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4967	5064	
==>ammar::Term.single_quoted>
            { return { single_quoted => $/{'Pugs::Grammar::Term.single_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14350	14537	
==>'',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_dir <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3009	3106	
==>{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $cod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3009	3106	
==>{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3920	4049	
==>\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3920	4049	
==>\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3920	4049	
==>\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub c <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	178	294	
==>e;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	178	294	
==>e;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20848	20964	
==>["subpats"] = $I0

  setreps:
    isarray = 0
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 got <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4482	4586	
==>to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4328	4430	
==>to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' ) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	522	638	
==>"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	522	638	
==>"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7748	7911	
==>1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7748	7911	
==>1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7748	7911	
==>1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4492	4597	
==>- ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4492	4597	
==>- ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4492	4597	
==>- ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_fro <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	341	585	
==>nstructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4322	4480	
==>p @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2212	2318	
==>();

    $<variable>:=(<varhash>)\{$<key>:=(<term1>)\}
        { return { access_hash_element => $() } }
RU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3568	3677	
==>ALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3568	3677	
==>ALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3568	3677	
==>ALKMETH ($$;%) {
        my ($dispatcher, $label, %opts) = @_;
        (defined $dispatcher && ref($dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1093	1211	
==>ns(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1093	1211	
==>ns(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1093	1211	
==>ns(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9877	10001	
==>ame',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9877	10001	
==>ame',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9877	10001	
==>ame',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12548	12675	
==>ody, but is also reused in the 'type' attr
fun: env($.body) = { new_env($$) }
fun: new_env($$) = {
	my $orig = env($$);
	my %new <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	369	495	
==>returns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.push($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4012	4120	
==>position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matchObj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1279	1381	
==>_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1279	1381	
==>_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	142	237	
==>rammar::Var;
use Pugs::Grammar::Num;
use Pugs::Grammar::Str;

# TODO - implement the "magic hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7324	7424	
==>x_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7324	7424	
==>x_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7324	7424	
==>x_for_match_objects (
  Match $match, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4424	4516	
==>te.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects: <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4424	4516	
==>te.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	84	185	
==>b emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"nod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	48	149	
==>b emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"nod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	136	237	
==>b emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4861	4986	
==>e) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: spe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4861	4986	
==>e) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: spe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4861	4986	
==>e) = @_;
    (defined $label && $label)
        || confess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4408	4525	
==>> 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4408	4525	
==>> 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} k <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4408	4525	
==>> 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} k <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2039	2187	
==>system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do ma <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4450	4577	
==>an => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.di <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4450	4577	
==>an => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12198	12336	
==>_DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12198	12336	
==>_DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment blo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1932	2051	
==>butes{$P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17810	17921	
==>r($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17810	17921	
==>r($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17810	17921	
==>r($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCR <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26545	26646	
==>OPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15138	15236	
==>t, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string is ret <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15138	15236	
==>t, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string is ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9537	9662	
==>shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9537	9662	
==>shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9537	9662	
==>shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2781	2904	
==>" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1403	1526	
==>" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9697	9819	
==>il0 deleteme_pil1");
}
sub p2p {
    my($fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if $@;
    PI <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9462	9594	
==>y be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the scri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2515	2647	
==>y be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the scri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3039	3157	
==>ager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3039	3157	
==>ager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3039	3157	
==>ager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @ <==
3	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	111	211	
==>.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20309	20404	
==>ad.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally can <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20309	20404	
==>ad.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally can <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1064	1190	
==>y = shift;
    
    my @list = _recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3449	3559	
==>Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3449	3559	
==>Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3449	3559	
==>Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if (defined <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6425	6536	
==>$self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# ----- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6425	6536	
==>$self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# ----- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23165	23280	
==>ing cname
    .local pmc exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    exp1 = self[1]
    exp1["cname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17596	17689	
==>ile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17596	17689	
==>ile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12941	13046	
==>@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_una <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12941	13046	
==>@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_una <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12941	13046	
==>@args)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_una <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4057	4151	
==>uilder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4057	4151	
==>uilder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5581	5675	
==>uilder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=head1 METHODS

= <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13569	13707	
==>.  The regexp implementation is intimately entangled with
  the rest of perl.]

  The regexp engine and the perl compiler have an overly fr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24473	24567	
==>erver. The command is not modified by C<Net::IRC>,
aside from appending the correct newline cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24473	24567	
==>erver. The command is not modified by C<Net::IRC>,
aside from appending the correct newline cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	282	380	
==>nt(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	282	380	
==>nt(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	282	380	
==>nt(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7727	7861	
==>/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7727	7861	
==>/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7727	7861	
==>/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g");
    #      var ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1598	1709	
==>epc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1598	1709	
==>epc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1598	1709	
==>epc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2802	2909	
==>t]]>('toString');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17926	18021	
==>am handling the request.

=item $h.from

This header should contain an Internet e-mail address f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17926	18021	
==>am handling the request.

=item $h.from

This header should contain an Internet e-mail address f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25365	25469	
==>$other!) returns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29917	30021	
==>$other!) returns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13980	14096	
==>ter new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {.. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10153	10269	
==>ter new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {.. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10989	11105	
==>ter new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	120	227	
==>);
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	120	227	
==>);
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	120	227	
==>);
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6279	6390	
==>UM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.bu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6279	6390	
==>UM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16178	16279	
==>from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16178	16279	
==>from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16178	16279	
==>from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	918	1044	
==>H();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	918	1044	
==>H();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	918	1044	
==>H();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	563	719	
==>$Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp dir <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	849	993	
==>$Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp dir <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1109	1215	
==>y $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} + $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9802	9937	
==>lass->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9802	9937	
==>lass->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9802	9937	
==>lass->new(
        clone =>   sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	587	743	
==>Y )? \s*
        (?: (\d+) \s* M )? \s*
        (?: (\d+) \s* D )? \s*
        (?: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? \s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1648	1832	
==>();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1648	1832	
==>();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1648	1832	
==>();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad. <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2092	2232	
==>list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for bett <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3461	3593	
==>list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for bett <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9545	9661	
==>need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.h <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9545	9661	
==>need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.h <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9351	9436	
==>_charset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_item <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9014	9104	
==>h @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2839	2929	
==>h @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	873	999	
==>rname = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	873	999	
==>rname = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1066	1159	
==>nt $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %erro <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20725	20870	
==>:
    cname = self["cname"]
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  se <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9954	10088	
==>c);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	810	910	
==>1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	810	910	
==>1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11414	11522	
==>_[0] } }\n"
        unless $code =~ /return/;
    return "#return-block#" . $code;
}
sub node::runtime_altern <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15247	15343	
==>hout changing the input string).

If you prefer not to import these routines into your namespace, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15247	15343	
==>hout changing the input string).

If you prefer not to import these routines into your namespace, <==
3	/Users/nnunley/pugs/util/claim_drift.pl	684	818	
==>of DrIFT one level up.
.
    exit 1;
}

for my $orig (glob join $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3565	3676	
==>ft',
    precedence => { tighter => '+' },
    fixity => 'infix',
  );

    my $rule = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29526	29671	
==>? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29526	29671	
==>? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29526	29671	
==>? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12135	12262	
==>oin("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # parti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12135	12262	
==>oin("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # parti <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	815	924	
==>},
        installsitebin => $Config{installsitebin} || $Config{installsbin},

        installman1dir     => $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1129	1225	
==>ng iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1129	1225	
==>ng iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3428	3532	
==>t.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3428	3532	
==>t.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3508	3612	
==>t.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	232	371	
==>i method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	232	371	
==>i method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	333	427	
==>require File::Find;
    File::Find::find(sub { push @modules, $File::Find::name if /\.pm/i }, ' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4281	4388	
==>_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complement <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4281	4388	
==>_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complement <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8774	8881	
==>rLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2819	2934	
==>alues));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2819	2934	
==>alues));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2819	2934	
==>alues));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map return <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5389	5602	
==>$document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () retu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5389	5602	
==>$document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2750	2879	
==>'prefix:<++>',
    );

    # experimental
    __PACKAGE__->add_rule(
        name => 'do',
        assoc => 'non',
        precede <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2245	2363	
==>esult && $result->has_failed();
    }
    return 0;
}
sub warnings {
    my($self)=@_;
    my $ret="";
    for my $stag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3078	3199	
==>t $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3078	3199	
==>t $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3078	3199	
==>t $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8869	9016	
==>n 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8869	9016	
==>n 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6428	6538	
==>x exhaustive
        rw keepall e each any parsetree stringify>;
        %modifiers_supported_p6 = map {;($_ => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14252	14354	
==>MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14252	14354	
==>MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14252	14354	
==>MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1594	1706	
==>e::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1594	1706	
==>e::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1594	1706	
==>e::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN') <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	36	131	
==>Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It sto <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	36	131	
==>Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	938	1061	
==>name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	938	1061	
==>name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	938	1061	
==>name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7627	7783	
==>text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine lic <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7684	7840	
==>text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine lic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5837	5945	
==>rent level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5837	5945	
==>rent level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5837	5945	
==>rent level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13240	13379	
==>\$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Du <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9426	9565	
==>\$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10262	10401	
==>\$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7862	7966	
==>- capture then entire match. For example:

  

  # returns a Match object that has the 'capture' field se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7596	7698	
==>- capture then entire match. For example:
  
  # returns a Match object that has the 'capture' field se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1061	1413	
==>p(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37314	37414	
==>nd checks whether or not it has already been
loaded, returning true if so and false if not.

=item C< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37314	37414	
==>nd checks whether or not it has already been
loaded, returning true if so and false if not.

=item C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13907	14031	
==>[], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13907	14031	
==>[], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13907	14031	
==>[], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1231	1452	
==>] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1231	1452	
==>] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1231	1452	
==>] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7976	8104	
==>me;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7976	8104	
==>me;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7976	8104	
==>me;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package interface

$::Role->add_method('F <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10529	10630	
==>t is ignoring it.

The iterator will return undef when it has reached the end of the tree;
it will the <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	971	1066	
==>fy 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cau <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	971	1066	
==>fy 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cau <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16913	17072	
==>ests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	300	432	
==>nless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	300	432	
==>nless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        " <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3278	3438	
==>le( $Available );
            
            my @maybe;
            for my $test ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2138	2238	
==>')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2138	2238	
==>')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2138	2238	
==>')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21282	21376	
==>tatement>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? <';'> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	124	227	
==>emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	124	227	
==>emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	124	227	
==>emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (functio <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15756	15872	
==>6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7997	8103	
==>efined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7997	8103	
==>efined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5047	5174	
==>s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5047	5174	
==>s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5047	5174	
==>s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37758	37859	
==>tion is the union of
all the headings of the source relations.  The body of the new relation is
the re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42307	42408	
==>tion is the union of
all the headings of the source relations.  The body of the new relation is
the re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41957	42058	
==>tion is the union of
all the headings of the source relations.  The body of the new relation is
the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2909	3014	
==>g (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2909	3014	
==>g (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2909	3014	
==>g (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	809	910	
==>perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	809	910	
==>perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	809	910	
==>perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3838	3942	
==>ackage ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3838	3942	
==>ackage ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3838	3942	
==>ackage ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26034	26133	
==>ests to determine if they are being executed through the harness
or by any other means.

=item C<HAR <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6329	6426	
==>unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6329	6426	
==>unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5139	5248	
==>tests;
}

sub get_revision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4009	4110	
==>( year => $year, month => $month, day => $day )`

Returns a date object for the given values.  The mon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4009	4110	
==>( year => $year, month => $month, day => $day )`

Returns a date object for the given values.  The mon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7827	7947	
==>arr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7827	7947	
==>arr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7827	7947	
==>arr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1111	1236	
==>r.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1111	1236	
==>r.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1111	1236	
==>r.key),
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4459	4583	
==>) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differen <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4459	4583	
==>) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	5	100	
==>ge Pugs::Compiler::Perl6;
$Pugs::Compiler::Perl6::VERSION = '0.05';

# Documentation in the _ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	537	663	
==>e])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $s <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	537	663	
==>e])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5147	5260	
==>cro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5369	5482	
==>cro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21146	21240	
==>g handlers now receive an additional argument that says whether
they're being turned on or off. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15710	15851	
==>o

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15710	15851	
==>o

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15018	15151	
==>nsure => sub { -r $dest and -M $dest <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20328	20423	
==>=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20328	20423	
==>=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20328	20423	
==>=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   inf <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10887	10981	
==>functions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer retu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10887	10981	
==>functions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7574	7683	
==>$xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7574	7683	
==>$xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7574	7683	
==>$xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31217	31313	
==>s a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that sub <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35767	35863	
==>s a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that sub <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34985	35081	
==>s a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3485	3585	
==>l) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3485	3585	
==>l) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3485	3585	
==>l) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6::StubAt <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	170	270	
==>most (95%) of a perl 5.9 re test file (re_tests), but it's
real p5 re coverage is much less.  The tes <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	729	822	
==>r::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array meth <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	729	822	
==>r::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array meth <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30712	30809	
==>iginal (or rather, the corresponding transformation of each tuple), but
that any duplicates follow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35263	35360	
==>iginal (or rather, the corresponding transformation of each tuple), but
that any duplicates follow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34454	34551	
==>iginal (or rather, the corresponding transformation of each tuple), but
that any duplicates follow <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2174	2285	
==>(want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2174	2285	
==>(want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7556	7653	
==>dy);
    p6_code_mk_CODE($name,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DOWN($pVal); }

N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31818	31942	
==>urn ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31818	31942	
==>urn ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31818	31942	
==>urn ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8887	9002	
==>nick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.del <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8887	9002	
==>nick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.del <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14900	14986	
==>----------------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9474	9648	
==>r .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1285	1435	
==>r .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4986	5129	
==>* 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4986	5129	
==>* 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I d <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14215	14311	
==>s compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14273	14369	
==>s compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23537	23632	
==>simple).

There are other differences.  Where other solutions take variables, they
seem to be po <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23537	23632	
==>simple).

There are other differences.  Where other solutions take variables, they
seem to be po <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5763	5860	
==>ally the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5763	5860	
==>ally the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3184	3337	
==>aram{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3184	3337	
==>aram{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3184	3337	
==>aram{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3809	3913	
==>//www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3809	3913	
==>//www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3809	3913	
==>//www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7193	7301	
==>tifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7193	7301	
==>tifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7193	7301	
==>tifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority | <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15192	15389	
==>od($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15192	15389	
==>od($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15192	15389	
==>od($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3565	3681	
==>::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3565	3681	
==>::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    m <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1380	1494	
==>at least:

    y - target value for y
    f - function of one variable

It looks for an x such that f(x) is y.

You <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37882	37976	
==>-matching every tuple of each source relation
with every tuple of each other source relation, t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42431	42525	
==>-matching every tuple of each source relation
with every tuple of each other source relation, t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42081	42175	
==>-matching every tuple of each source relation
with every tuple of each other source relation, t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8865	8987	
==>::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1021	1135	
==>::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1021	1135	
==>::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4618	4710	
==>$span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4618	4710	
==>$span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2395	2511	
==>out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nrece <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2395	2511	
==>out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nrece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2475	2591	
==>out_matches && $diag_matches), $description );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nrece <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5355	5502	
==>$_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5577	5724	
==>$_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2380	2490	
==>or {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1034	1162	
==><mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1434	1562	
==><mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1908	2036	
==><mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7642	7745	
==>when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7642	7745	
==>when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	81	173	
==>e/Install/Win32.pm"
package Module::Install::Win32;
use Module::Install::Base; @ISA = qw(Modu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	542	638	
==>e Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAML/;


$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	85	169	
==>-------------------------------------------------------------------
## Mini Meta-Mode <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	56	140	
==>-------------------------------------------------------------------
## Mini Meta-Mode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4954	5058	
==>".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4954	5058	
==>".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4954	5058	
==>".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4902	5002	
==>"-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4902	5002	
==>"-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4902	5002	
==>"-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one stand <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1768	1871	
==>ed_value {
	my $class = shift;
	my $val = shift;
	my $type = shift || $val->type;

	Blondie::TypeSafe::A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3243	3334	
==>.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3243	3334	
==>.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6722	6836	
==>$a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6722	6836	
==>$a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6722	6836	
==>$a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also i <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10889	10990	
==>he entire match
      # $6  captures the opening delimiter (provided only one delimiter was specified) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	267	358	
==>at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	267	358	
==>at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1995	2094	
==>ll::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1995	2094	
==>ll::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1995	2094	
==>ll::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8166	8297	
==>defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8178	8309	
==>defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#r <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	165	261	
==>rserDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, St <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2897	3038	
==>g closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3081	3222	
==>g closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closu <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14990	15088	
==>be". Default is LChars.

[Q: Can't be LChars because we don't go into "language" mode unless there' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4881	4979	
==>perl library.  It should also be suitable for one-liners.  If
you need more control or access to th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4881	4979	
==>perl library.  It should also be suitable for one-liners.  If
you need more control or access to th <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13226	13322	
==>ey}> in all it's forms. Below are some
example translations. This list is I<not> exhaustive.

 de <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12636	12751	
==>no change!
    return if @avail == @prev;
    
    $self->available( \@avail );
    return 1;
}

=head2 $bool|$alt = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22079	22176	
==>the first one it finds.  This also works for the multiple language
or permissions issue; simply or <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22079	22176	
==>the first one it finds.  This also works for the multiple language
or permissions issue; simply or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3142	3244	
==>ie("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3142	3244	
==>ie("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3142	3244	
==>ie("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root::eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4437	4548	
==>$undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4437	4548	
==>$undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4437	4548	
==>$undef    = PIL::undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9271	9424	
==>et: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12183	12285	
==>($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12183	12285	
==>($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12183	12285	
==>($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7347	7485	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7347	7485	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7347	7485	
==>> sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14406	14511	
==>scendent);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_attributes().map:{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2294	2416	
==>s->to_native) {
        my $value; 
        my $param      = $params->fetch(num->new($i));
        my $param_type = $param- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2864	2968	
==>s it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Funct <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2864	2968	
==>s it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	945	1063	
==>od))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	945	1063	
==>od))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	945	1063	
==>od))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($met <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9456	9571	
==>rse );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infini <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9456	9571	
==>rse );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infini <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22779	22874	
==>ined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTENDED
 PMf_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17486	17592	
==>x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17486	17592	
==>x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17486	17592	
==>x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21091	21206	
==>xt} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17512	17627	
==>xt} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind pr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10060	10174	
==>Simple file open. Unlike perl5 open, it isn't very dwimmy.

    ### XXX: NOTE ###
    # this is intended to eventua <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1983	2080	
==>y Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 SEC <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1983	2080	
==>y Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 SEC <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15881	15997	
==>unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15881	15997	
==>unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1234	1331	
==>::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array::pairs  (@array ; M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3804	3924	
==>.$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3804	3924	
==>.$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4394	4514	
==>.$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3259	3350	
==>y $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3259	3350	
==>y $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3259	3350	
==>y $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	359	469	
==>e psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	359	469	
==>e psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	359	469	
==>e psyche.pl for more information)

$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::Eige <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2025	2200	
==>object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2025	2200	
==>object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13800	13912	
==>erl`;
    }
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
    return $result;
}

*run_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	5	107	
==>r/bin/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = sl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	5	107	
==>r/bin/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2487	2599	
==>ib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2487	2599	
==>ib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2487	2599	
==>ib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3013	3169	
==>or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->gzclose;
    unlink $in;
    1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14190	14304	
==>ow);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8394	8508	
==>ow);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2034	2128	
==>e('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2034	2128	
==>e('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2034	2128	
==>e('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass') <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1039	1209	
==>( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1039	1209	
==>( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4661	4766	
==>)=@_;
  #$match_hack - Match creation is one thing which is very cruft in this spike.
  # 0- dont create o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6698	6811	
==>, $expected, $name, @mess) = @_;
    my $pass;
    $pass = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1995	2094	
==>', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1995	2094	
==>', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3180	3322	
==>ovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3180	3322	
==>ovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3180	3322	
==>ovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Ar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10330	10438	
==>name};
    die "bug $name" if !$info;
    my $chk = join(", ",map {"\$$_"} @{$info->{'fields'}});
    $vars e <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	597	751	
==>y),
                             :hour($hour), :minute($minute), :second($second),
                             :tz($tz) );
}

# convert from an iso date
m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13067	13171	
==>wo spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13067	13171	
==>wo spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1583	1734	
==>r();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1583	1734	
==>r();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1663	1814	
==>r();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diagnostic;
    test_out( $line );
}

sub test_out ( Str $line ) is <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9781	9874	
==>ssor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9781	9874	
==>ssor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	513	600	
==>-----------------------------------------------------
## Eigenclass

$::EigenClass = $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	513	600	
==>-----------------------------------------------------
## Eigenclass

$::EigenClass = $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	513	600	
==>-----------------------------------------------------
## Eigenclass

$::EigenClass = $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3169	3280	
==>ined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3169	3280	
==>ined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3169	3280	
==>ined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	285	403	
==>l, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	285	403	
==>l, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	285	403	
==>l, better die now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24353	24462	
==>tch_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24353	24462	
==>tch_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24353	24462	
==>tch_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4011	4119	
==>$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4011	4119	
==>$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4011	4119	
==>$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12906	13010	
==>r} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12906	13010	
==>r} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12906	13010	
==>r} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	380	528	
==>e
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	380	528	
==>e
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3501	3603	
==>=> "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler('\h <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21633	21724	
==>ependence".  However, the level of DBI's provided independence
is I<Database Driver Independ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21633	21724	
==>ependence".  However, the level of DBI's provided independence
is I<Database Driver Independ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7442	7544	
==>ists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_li <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7442	7544	
==>ists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_li <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40680	40777	
==>e argument list is used to fill in
the format string for sprintf().

=over 4

=item $parser->warn( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4324	4448	
==>rint $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4324	4448	
==>rint $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4324	4448	
==>rint $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19278	19459	
==>{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19278	19459	
==>{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19278	19459	
==>{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	130	236	
==>removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an interna <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	130	236	
==>removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an interna <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	130	236	
==>removed uniq(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12397	12520	
==>.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12397	12520	
==>.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12397	12520	
==>.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  s <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3738	3865	
==>hname;
        $basename =~ s!.*/!!;

        # XXX - work around Cabal bug --
        # we have to locate "Syck_stub.o" and cop <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	158	256	
==>s = 'ParserDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is cop <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5606	5709	
==>pressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have k <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5606	5709	
==>pressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	181	276	
==>:Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	181	276	
==>:Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	177	268	
==>:Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5884	5980	
==>prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5884	5980	
==>prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

W <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5884	5980	
==>prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_editor });

W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4761	4873	
==>rce .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4761	4873	
==>rce .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4761	4873	
==>rce .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process_method($meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	633	730	
==>and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	633	730	
==>and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	633	730	
==>and memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10389	10522	
==>]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10383	10516	
==>]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1335	1456	
==>\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5929	6048	
==>ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5929	6048	
==>ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5929	6048	
==>ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28397	28604	
==>)),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                # if it is empty ... 
                $e->get('$self:')
                  ->get_attr(symb <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5904	6004	
==>fter XML SAX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & C <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5904	6004	
==>fter XML SAX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5313	5418	
==>n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5313	5418	
==>n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5313	5418	
==>n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6704	6804	
==>my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->mag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6704	6804	
==>my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->mag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6704	6804	
==>my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $self->mag <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	224	318	
==>num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Jun <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	282	376	
==>num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Jun <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7240	7332	
==>{I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test(Rk), p5_c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4469	4567	
==>ates and returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4469	4567	
==>ates and returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5993	6091	
==>ates and returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1489	1594	
==>2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1489	1594	
==>2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1489	1594	
==>2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	783	880	
==>lity (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	783	880	
==>lity (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	783	880	
==>lity (Windows x Linux)
# * Separate from_num_range() and from_range() constructors. 
#   - from_nu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	98	194	
==>t::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	98	194	
==>t::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3442	3587	
==>f);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3442	3587	
==>f);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3442	3587	
==>f);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	764	882	
==>- delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	764	882	
==>- delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	764	882	
==>- delete hash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7733	7880	
==>(@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	}
    } elsif($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13540	13639	
==>" and
database queries, may occur much later than expected.

It may enter an infinite loop if the fo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13540	13639	
==>" and
database queries, may occur much later than expected.

It may enter an infinite loop if the fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3521	3631	
==>deAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3521	3631	
==>deAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3521	3631	
==>deAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval la <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2444	2584	
==>efix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9308	9433	
==>lf.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_heig <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9308	9433	
==>lf.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_heig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8683	8869	
==>:SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8683	8869	
==>:SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8683	8869	
==>:SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18582	18684	
==>o_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18582	18684	
==>o_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18582	18684	
==>o_s($xx0) cmp p6_to_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5122	5217	
==>ft if ( $tokenCat == PGE_OPTABLE_PREFIX );
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_CIRCU <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22135	22229	
==>nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22135	22229	
==>nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18376	18584	
==>here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18376	18584	
==>here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18376	18584	
==>here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3453	3556	
==>digit (a digit)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	779	894	
==>we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	738	848	
==>we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4451	4742	
==>$arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = q|
($: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8647	8830	
==>section( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12124	12307	
==>section( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4114	4227	
==>urpy
    #   hash.  You give a name to it so that you can refer to it
    #   > inside, but that nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4114	4227	
==>urpy
    #   hash.  You give a name to it so that you can refer to it
    #   > inside, but that nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4114	4227	
==>urpy
    #   hash.  You give a name to it so that you can refer to it
    #   > inside, but that nam <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12892	12986	
==>f
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12892	12986	
==>f
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	113	220	
==>* of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	113	220	
==>* of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	113	220	
==>* of the JavaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	588	701	
==>$grammar)->( $_[0], undef, $tree, $tree )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	969	1076	
==>eful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	969	1076	
==>eful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36552	36691	
==>( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36552	36691	
==>( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36552	36691	
==>( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12818	12968	
==>ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12818	12968	
==>ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12818	12968	
==>ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14957	15060	
==>ive
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14957	15060	
==>ive
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14957	15060	
==>ive
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	150	251	
==>ACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take sto <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	150	251	
==>ACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take sto <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	150	251	
==>ACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take sto <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	133	291	
==>ocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'No <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	133	291	
==>ocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'No <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6286	6424	
==>package $pkg_this;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13712	13832	
==>sult.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15237	15357	
==>sult.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3899	4024	
==>}
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      for(i=0;i<=r->nparens;i+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19433	19544	
==>d for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines withi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19433	19544	
==>d for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines withi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2630	2778	
==>. ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2630	2778	
==>. ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2630	2778	
==>. ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17850	17964	
==>alue;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17850	17964	
==>alue;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17850	17964	
==>alue;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4174	4283	
==>ram->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4174	4283	
==>ram->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4764	4873	
==>ram->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $c <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10750	10877	
==></p>

  <p>
    Note that old smoke reports are automatically deleted, so you may not want
    to link directly to a smoke.
  </ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7801	7905	
==>Model - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7801	7905	
==>Model - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7801	7905	
==>Model - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25150	25288	
==>'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	187	283	
==>NOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	187	283	
==>NOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to t <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1869	1996	
==>$rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1869	1996	
==>$rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5515	5620	
==>Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5515	5620	
==>Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5515	5620	
==>Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1319	1431	
==>ys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1319	1431	
==>ys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1319	1431	
==>ys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7788	7897	
==>e }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7776	7885	
==>e }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4187	4295	
==>$self->{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11950	12056	
==>bug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11950	12056	
==>bug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16859	16990	
==>$tot->{max};
        my $subpct = sprintf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21376	21471	
==>te value.

Every Relation attribute has a name that is distinct from the other
attributes, thoug <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25928	26023	
==>te value.

Every Relation attribute has a name that is distinct from the other
attributes, thoug <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9915	10036	
==>(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9915	10036	
==>(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9915	10036	
==>(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7833	7964	
==>ags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7833	7964	
==>ags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7833	7964	
==>ags + "g");
    #      var match  = regexp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2013	2117	
==>odel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - esca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2013	2117	
==>odel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - esca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2013	2117	
==>odel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - esca <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1823	1963	
==>le for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX d <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1823	1963	
==>le for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10467	10572	
==>.')]';
    my $namestr = $stringify->($name);
    my $code_args = "";
    $code_args .= "'\$.name'=>$names <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3860	3970	
==>:Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3860	3970	
==>:Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3860	3970	
==>:Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25202	25297	
==>hod returns a Bool indicating whether the immutable identity of the
argument C<$other> equals th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29754	29849	
==>hod returns a Bool indicating whether the immutable identity of the
argument C<$other> equals th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28684	28779	
==>hod returns a Bool indicating whether the immutable identity of the
argument C<$other> equals th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5431	5573	
==>capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5431	5573	
==>capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1324	1423	
==>lativePrecedence and $relativePrecedence ne "" )
  {
    if ( substr $relativePrecedence, 0, 1 =~ m/ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	294	459	
==>m('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sym('$cond <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1093	1190	
==>M_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is exp <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1093	1190	
==>M_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	216	316	
==>stant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	216	316	
==>stant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	216	316	
==>stant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(fu <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2750	2849	
==>op}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile($base, 'b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7322	7412	
==>igher order operators: alternation, concatenation.

- "plain" match operators: like 'litera <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7072	7161	
==>igher order operators: alternation, concatenation.
- "plain" match operators: like 'litera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	587	707	
==>d($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	587	707	
==>d($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	587	707	
==>d($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23670	23773	
==>eElement :words {  # see clause 14
      <Statement> <FunctionDeclaration>
}

# A.6 Universal Resource I <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22423	22519	
==>d in.

Generally, when a program package would return a code-key to indicate a
condition, often i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22423	22519	
==>d in.

Generally, when a program package would return a code-key to indicate a
condition, often i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8036	8155	
==>alX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8036	8155	
==>alX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8036	8155	
==>alX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7182	7305	
==>,
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7182	7305	
==>,
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7182	7305	
==>,
            #'int' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2211	2318	
==>'*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2211	2318	
==>'*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2211	2318	
==>'*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1223	1332	
==>et {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$self->{type} = $type <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24379	24469	
==>et>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free softwa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24379	24469	
==>et>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free softwa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36997	37092	
==>these their joining
degenerates to a C<intersection>.  In any situation where a pair of source
r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41546	41641	
==>these their joining
degenerates to a C<intersection>.  In any situation where a pair of source
r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41169	41264	
==>these their joining
degenerates to a C<intersection>.  In any situation where a pair of source
r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5020	5119	
==>catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Ju <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5020	5119	
==>catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Ju <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22311	22401	
==>version 0.1.0.

It also describes the same-number versions of Relation::Heading ("Heading") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1941	2057	
==>",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1941	2057	
==>",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1941	2057	
==>",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5665	5763	
==>est.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5665	5763	
==>est.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5665	5763	
==>est.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	429	527	
==>dent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  reg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	429	527	
==>dent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  reg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	429	527	
==>dent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3955	4089	
==>f,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3955	4089	
==>f,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3955	4089	
==>f,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of ty <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6770	6875	
==>handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing matc <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6770	6875	
==>handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6895	7033	
==>n (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6895	7033	
==>n (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6895	7033	
==>n (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6074	6200	
==>>get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6074	6200	
==>>get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6074	6200	
==>>get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is not already a stub t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2434	2551	
==>MOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_h <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2434	2551	
==>MOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1897	2013	
==>thod($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1897	2013	
==>thod($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1897	2013	
==>thod($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnos <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	833	935	
==>"$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2668	2759	
==>"$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5726	5997	
==>))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7488	7759	
==>))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                { <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17859	17966	
==>se;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $type, $totals) if $meth;
};


sub header_ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	793	899	
==>l6->parse( $self->{source} . ';' );
    };
    carp "Error in perl 6 parser: '$rule_source' at: '$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2644	2748	
==>$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2644	2748	
==>$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6056	6171	
==>ot implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif($sn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25848	25942	
==>%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable name <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25848	25942	
==>%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable name <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1279	1388	
==>);
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagn <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1279	1388	
==>);
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1359	1468	
==>);
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagn <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2213	2351	
==>key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2213	2351	
==>key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23416	23510	
==>and-push before you do any flag-parsing,
if you're adding a handle that might parse flags, beca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	305	418	
==>IMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	305	418	
==>IMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	305	418	
==>IMIT_CPU(), 43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2817	2956	
==>ar              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3001	3140	
==>ar              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	574	681	
==>blists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringific <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	574	681	
==>blists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringific <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	574	681	
==>blists
# * new hook DESTROY
#
# 2005-08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringific <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4832	4953	
==>unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	681	779	
==>> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.s <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	681	779	
==>> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20709	20802	
==>art> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20709	20802	
==>art> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a h <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	273	366	
==>RT=qw(get_int);
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1971	2100	
==>{};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1971	2100	
==>{};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2033	2152	
==>f") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2033	2152	
==>f") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2033	2152	
==>f") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6961	7076	
==>> $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6961	7076	
==>> $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6961	7076	
==>> $subclass;
}));

$::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2777	2872	
==>nfix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2777	2872	
==>nfix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2777	2872	
==>nfix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Numbe <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24088	24206	
==>sh @result, "FAILED tests @canon\n";
        $canon = join ' ', @canon;
    } else {
        push @result, "FAILED test <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1011	1123	
==>things



sub ruleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	972	1080	
==>things

sub ruleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3170	3304	
==>e_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3170	3304	
==>e_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3170	3304	
==>e_attribute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5732	5837	
==>secary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5732	5837	
==>secary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5732	5837	
==>secary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1694	1798	
==>ted.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1694	1798	
==>ted.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1694	1798	
==>ted.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2339	2464	
==>tself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2339	2464	
==>tself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2339	2464	
==>tself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_instance_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3567	3727	
==>self->SUPER::new();
    
    
        for my $key ( keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->m <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1992	2075	
==>---------------------------------------------------------------------------
## addin <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1992	2075	
==>---------------------------------------------------------------------------
## addin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6817	6966	
==>dary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boun <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6817	6966	
==>dary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boun <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	260	376	
==>a->{package} cmp $b->{package} } 
                 LoadFile( $Available ) 
) {
    print "$struct->{package} -- $stru <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8712	8818	
==>, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11136	11230	
==>todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, B <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11194	11288	
==>todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4672	4782	
==>g $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4672	4782	
==>g $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4672	4782	
==>g $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{j <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2072	2215	
==>fig->repo_index)
        ));
        $obj->index_file((defined $index_file
                    ? file($index_file)
                    : $obj->i <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1761	1893	
==>ping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text: <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1761	1893	
==>ping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text: <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4847	5018	
==>tack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event . <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4847	5018	
==>tack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event . <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8214	8343	
==>/^".*"$/);
    my $line = "$command $switches $file";

    return $line;
}


=head2 C<_command>

  my $command = $self->_command() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4485	4685	
==>', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4485	4685	
==>', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4485	4685	
==>', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq ' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6713	6815	
==>_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe,"\n";

__END__
my $m = m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2370	2458	
==>= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2370	2458	
==>= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5691	5796	
==>n_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Uni <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5173	5278	
==>n_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Uni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7185	7281	
==>_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7185	7281	
==>_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7185	7281	
==>_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	672	775	
==>::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	672	775	
==>::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	672	775	
==>::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	150	255	
==>() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	150	255	
==>() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	150	255	
==>() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12081	12196	
==>$status      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $sta <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2483	2594	
==>$status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $sta <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2483	2594	
==>$status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13552	13663	
==>r subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17029	17140	
==>r subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16391	16502	
==>r subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	165	271	
==>ys to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	165	271	
==>ys to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	165	271	
==>ys to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_ar <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2507	2640	
==>do { local $/; <DATA> };

    my $all_fields = join ",\n    ", map {
        "config_$_";
    } sort keys %$config;
    $template =~ s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6843	6961	
==>uo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6843	6961	
==>uo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3471	3567	
==>::Gregorian::duration;
#}

# operations with Duration::Gregorian constructors..
#multi method inf <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13310	13403	
==>l archive indexes.  Aside from
'use' statements, you should never refer directly to "Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13310	13403	
==>l archive indexes.  Aside from
'use' statements, you should never refer directly to "Locale::K <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17499	17597	
==>n event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17499	17597	
==>n event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note th <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20120	20217	
==>p := &PIL2JS::Internals::use_perl5_module_imp;


# In src/perl6/Prelude.pm, prefix:<-M> doesn't wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5996	6099	
==>IL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5996	6099	
==>IL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5996	6099	
==>IL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4584	4687	
==><[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    JSX::global_object.<[[Put]]>(GetPropert <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	706	803	
==>e on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	706	803	
==>e on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23688	23781	
==>ol(1)> to the constructor, this module won't simply
send all commands immediately to the serve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23688	23781	
==>ol(1)> to the constructor, this module won't simply
send all commands immediately to the serve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21071	21165	
==>SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21071	21165	
==>SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21071	21165	
==>SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9944	10054	
==>" x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9944	10054	
==>" x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9944	10054	
==>" x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3574	3707	
==>b { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3574	3707	
==>b { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3574	3707	
==>b { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	709	820	
==>"VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	709	820	
==>"VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	709	820	
==>"VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3569	3666	
==>Cipher API, you must first create an object of the appropriate 
class, passing the key, a mode (ei <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3569	3666	
==>Cipher API, you must first create an object of the appropriate 
class, passing the key, a mode (ei <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1206	1332	
==>\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18063	18163	
==>_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18063	18163	
==>_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9574	9778	
==>guments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9574	9778	
==>guments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9574	9778	
==>guments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30092	30221	
==>ew( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30092	30221	
==>ew( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30092	30221	
==>ew( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2597	2702	
==>is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2597	2702	
==>is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29565	29662	
==>port test names in the failure summary.

Rework the test summary so long test names are not trunca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	8	98	
==>so: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	8	98	
==>so: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	8	98	
==>so: L<http://theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2916	3034	
==>d Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2916	3034	
==>d Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2916	3034	
==>d Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15262	15437	
==>es = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15262	15437	
==>es = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15262	15437	
==>es = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12563	12694	
==>ri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12563	12694	
==>ri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	606	730	
==>ed => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_bar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8296	8383	
==>nd();
}

#======================================================================

use Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8296	8383	
==>nd();
}

#======================================================================

use Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8296	8383	
==>nd();
}

#======================================================================

use Fi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15871	15970	
==>e comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20104	20203	
==>e comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13925	14045	
==>patcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13925	14045	
==>patcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13925	14045	
==>patcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKME <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16346	16439	
==>ainly in terms of a new high-level
programming language named "Rosetta D", which is computatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16346	16439	
==>ainly in terms of a new high-level
programming language named "Rosetta D", which is computatio <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28893	28989	
==>g the new attributes having the same names as old
attributes that become wrapped, and it supports <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33445	33541	
==>g the new attributes having the same names as old
attributes that become wrapped, and it supports <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32582	32678	
==>g the new attributes having the same names as old
attributes that become wrapped, and it supports <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5481	5629	
==>e
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5481	5629	
==>e
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24963	25056	
==>hat pregcomp() supplies a regmust only if the r.e. contains something
 * potentially expensive <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5276	5415	
==>23),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(9 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5276	5415	
==>23),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(9 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20307	20426	
==>node it comes across
will have its walk() method called.  And the ending node for stack-type
nodes has been abstracted t <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17799	17952	
==>st_num - 1] = 
            { ok        => is the test considered ok?
              actual_ok => did it literally say 'ok'?
              name      => name <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5875	5967	
==>---------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5875	5967	
==>---------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1250	1350	
==>sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1250	1350	
==>sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1250	1350	
==>sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	153	261	
==>ion (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	153	261	
==>ion (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	153	261	
==>ion (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") : "",
    PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3039	3168	
==>t
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3039	3168	
==>t
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3039	3168	
==>t
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

:: <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	69	169	
==>g!):
my $option = $para{'x'} || "wert";

#!\pause
# Etwas besser, aber jedoch unübersichtlich:
my $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7922	8022	
==>lternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7652	7748	
==>lternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alt <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19789	19883	
==>ample C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> it <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19789	19883	
==>ample C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> it <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7651	7795	
==>x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_nex <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7651	7795	
==>x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_nex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6453	6560	
==>_object(anyof_char => chr(hex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	346	468	
==>.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	346	468	
==>.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	346	468	
==>.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2017	2161	
==>',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2017	2161	
==>',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17900	18004	
==>tem pos

=item quotemeta

=item rindex 

Needs to be in terms of StrPos, not Int.

=item split

 multi St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4542	4720	
==>buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->first <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4542	4720	
==>buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->first <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4542	4720	
==>buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->first <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5279	5390	
==>lass;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5279	5390	
==>lass;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5279	5390	
==>lass;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1826	1936	
==>b eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1826	1936	
==>b eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1826	1936	
==>b eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18495	18589	
==>TI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18495	18589	
==>TI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18495	18589	
==>TI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7342	7445	
==>n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7342	7445	
==>n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7342	7445	
==>n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	40	153	
==>rnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	40	153	
==>rnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	40	153	
==>rnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3759	3864	
==>y)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3759	3864	
==>y)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3759	3864	
==>y)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13480	13577	
==>ield_names

Returns the list of distinct names for the fields present in the
header.  The field na <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13480	13577	
==>ield_names

Returns the list of distinct names for the fields present in the
header.  The field na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	199	335	
==>s) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	199	335	
==>s) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	199	335	
==>s) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1147	1287	
==>= shift;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entry ( @$struct ) {
        $str . <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	780	882	
==>> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	780	882	
==>> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	177	271	
==>Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Varia <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	177	271	
==>Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Varia <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	618	765	
==>ther dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XXX instead of cp -R, we can <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8769	8886	
==>r(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8769	8886	
==>r(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2724	2850	
==>sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2724	2850	
==>sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2724	2850	
==>sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11773	11877	
==>!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11773	11877	
==>!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11773	11877	
==>!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7980	8075	
==>ent_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7980	8075	
==>ent_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3946	4066	
==>ACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3946	4066	
==>ACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3946	4066	
==>ACE;
        while (my $current = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6120	6250	
==>" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6120	6250	
==>" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1687	1785	
==>name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            $relative_precedences{$opt->{preced <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	708	813	
==>d
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	708	813	
==>d
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	708	813	
==>d
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16686	16789	
==>nd => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16686	16789	
==>nd => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16686	16789	
==>nd => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32353	32517	
==>t_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32353	32517	
==>t_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32353	32517	
==>t_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	934	1055	
==>areword => $1 },
    } )
        if $_[0] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class-> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2617	2724	
==>h);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2617	2724	
==>h);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1667	1778	
==>"help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1667	1778	
==>"help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1667	1778	
==>"help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2840	2971	
==>rules[0] unless $#rules;
    return "[ " . join( ' | ', @rules ) . " ]";
}

sub emit_grammar_perl6 {
    # item=>'<item>',
    my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	479	586	
==><content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	479	586	
==><content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3114	3219	
==>Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.n <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3114	3219	
==>Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1455	1574	
==>of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1560	1670	
==>ndefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1560	1670	
==>ndefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1560	1670	
==>ndefined ? new PIL2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4324	4431	
==>ift;
    my $type = shift;
    push @{ $self->{values}{no_index}{$type} }, @_ if $type;
    return $self->{v <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3326	3423	
==>bs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upw <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3326	3423	
==>bs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1780	1919	
==>bj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1780	1919	
==>bj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1780	1919	
==>bj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6344	6447	
==>PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6344	6447	
==>PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6344	6447	
==>PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3389	3534	
==>er eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3377	3522	
==>er eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { m <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1967	2071	
==>ile1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2110	2216	
==>plit[$#nameSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	392	527	
==>) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	392	527	
==>) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	392	527	
==>) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	628	759	
==>on () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	628	759	
==>on () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	628	759	
==>on () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9160	9254	
==>s{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  metho <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9160	9254	
==>s{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  metho <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4049	4161	
==>:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max :: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3651	3749	
==>b '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $so <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3868	3966	
==>b '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5026	5139	
==>()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5026	5139	
==>()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5026	5139	
==>()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1787	1910	
==>s) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1992	2115	
==>s) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2055	2178	
==>s) = @_;
    return ::create_opaque_instance(
        # < a Class object is an instance of the Class class >
        \$Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3377	3479	
==>tance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3377	3479	
==>tance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3377	3479	
==>tance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	104	204	
==>");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	104	204	
==>");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	104	204	
==>");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5347	5481	
==>ile ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'Ex <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5865	5975	
==>ile ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'Ex <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1793	1877	
==>,'--concurrent', PugsBuild::Config->lookup('smoke_concurrent') || 1);
push(@yaml_harn <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17681	17775	
==>:OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17681	17775	
==>:OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1415	1534	
==>Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::Keye <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1415	1534	
==>Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::Keye <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1919	2030	
==>plemented";
}

sub match {
    warn "not implemented";
}

sub perl5 {
    warn "not implemented";
}

sub emit_pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4959	5082	
==>inite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4959	5082	
==>inite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4959	5082	
==>inite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20543	20650	
==>{ 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20543	20650	
==>{ 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20543	20650	
==>{ 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MA <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1465	1653	
==>rs?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1465	1653	
==>rs?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3552	3689	
==>$values{name}              ||= do {
        my $name = $values{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1686	1809	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1686	1809	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1686	1809	
==>) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20954	21097	
==>aner Grammar Flow

Now the only places 'atom' gets pushed to the queue are after an opening
parenthesis or after 'atom' matches.  This makes thi <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	129	242	
==>("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »- <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	129	242	
==>("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4825	4937	
==>elf->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4825	4937	
==>elf->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4825	4937	
==>elf->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shift() one item at a
    # time <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8	112	
==>his is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8	112	
==>his is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8	112	
==>his is a rough translation of metamorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	614	770	
==>ub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( error( Params::Check-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	165	268	
==>_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "a <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	165	268	
==>_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1982	2077	
==>eld, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1982	2077	
==>eld, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4501	4594	
==>('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4501	4594	
==>('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4501	4594	
==>('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(Eval <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10439	10551	
==>y @files = (
    [$pugs                 => "$initrd_mnt/bin/pugs"],
    ["$parrot_path/parrot" => "$initrd_mnt/bi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13518	13612	
==>a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13518	13612	
==>a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Do <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2782	2881	
==>::Value {

    # External packages used by the Rosetta::Interface::Value class, that do export symbo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2782	2881	
==>::Value {

    # External packages used by the Rosetta::Interface::Value class, that do export symbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1109	1215	
==>$name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1109	1215	
==>$name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1109	1215	
==>$name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2811	2960	
==>? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2811	2960	
==>? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2811	2960	
==>? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3362	3461	
==>h_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3362	3461	
==>h_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3362	3461	
==>h_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5095	5229	
==>( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5095	5229	
==>( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	736	868	
==>gn'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2050	2158	
==>or_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( Str $mess <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	59	159	
==>or_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $mess <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	59	159	
==>or_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( Str $mess <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	334	505	
==>rom_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    ch <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	818	989	
==>rom_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    ch <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	236	403	
==>rom_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10250	10432	
==>am;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10250	10432	
==>am;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10250	10432	
==>am;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7668	7758	
==>call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1493	1583	
==>call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7954	8040	
==>.

is($Foo->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9611	9745	
==>dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9611	9745	
==>dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9611	9745	
==>dispatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
}));

$::Class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5374	5472	
==>fined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5374	5472	
==>fined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5374	5472	
==>fined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(Eva <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6705	6803	
==>d when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6705	6803	
==>d when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	523	623	
==>nd_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	523	623	
==>nd_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	523	623	
==>nd_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28979	29084	
==>number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28979	29084	
==>number to be inverted, or press ENTER to quit.],
        'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	334	435	
==>number to be inverted, or press ENTER to quit.],
    'MYAPP_RESULT' => q[The inverse of "<ORIGINAL>" i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	543	659	
==>nstant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	543	659	
==>nstant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	543	659	
==>nstant(function (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1728	1828	
==>= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1728	1828	
==>= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1728	1828	
==>= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37647	37755	
==>lized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37647	37755	
==>lized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37647	37755	
==>lized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2362	2461	
==>RE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2362	2461	
==>RE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2362	2461	
==>RE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Rol <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6655	6755	
==>', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6655	6755	
==>', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3512	3621	
==>rk under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3512	3621	
==>rk under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3512	3621	
==>rk under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7251	7356	
==>self->{type}, $self->{how}, "]";
    }
  }
}


{
  package Regexp::Parser::anyof_close;
  push @ISA, qw( R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22730	22819	
==>ace::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Valu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22730	22819	
==>ace::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2621	2749	
==>on and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
US <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2621	2749	
==>on and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
US <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2621	2749	
==>on and run it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
US <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	808	929	
==>an $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPlan' => {
    is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7838	7944	
==>package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7838	7944	
==>package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7838	7944	
==>package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	179	284	
==>b.pl';
require 'p5hacks.pl';

my $namespace = 'Pugs::Grammar::Rule::';

{
  package grammar1;

  use Data: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16072	16168	
==>un. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It alway <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16072	16168	
==>un. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It alway <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14258	14406	
==>op::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14537	14685	
==>op::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	379	487	
==>ments to construct a hash (must be an even number)";
    my %values;
    while (my ($key, $value) = splice(@v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1629	1735	
==>ds

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1629	1735	
==>ds

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1629	1735	
==>ds

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2470	2644	
==>x (@_) {
        if (defined $x and not ref $x) {
            my $y = '';
            foreach my $c (unpack("U*", $x)) {
                if ($c > 255) {
                    $y <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4941	5043	
==>ect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.nex <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4941	5043	
==>ect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	803	900	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	803	900	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	803	900	
==>:inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2 <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1531	1647	
==>ect file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{A <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1531	1647	
==>ect file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{A <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6430	6529	
==>ait here is sequential rather than nonblocking / as-they-come, because
# we want to preserve orderin <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13691	13787	
==>e of values.

You should consider using a Set::Infinite object if you want to exclude
large range <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13691	13787	
==>e of values.

You should consider using a Set::Infinite object if you want to exclude
large range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14375	14530	
==>ext = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14375	14530	
==>ext = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2587	2687	
==>iled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Interpreter;

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15896	15991	
==>written
several books and papers and taught classes on the subject over the last
35+ years, alon <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15896	15991	
==>written
several books and papers and taught classes on the subject over the last
35+ years, alon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2231	2368	
==>se {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2231	2368	
==>se {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2231	2368	
==>se {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16934	17033	
==>e MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6- <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16934	17033	
==>e MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1851	2003	
==>return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1851	2003	
==>return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        w <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2609	2721	
==>\n" if $Config{verbose};
}

# concatenate source files. hardcode special treatment to the Prelude,
# which is ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1384	1512	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1384	1512	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1384	1512	
==>f($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1253	1363	
==>ot ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1253	1363	
==>ot ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1253	1363	
==>ot ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	857	995	
==>lse {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	857	995	
==>lse {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	857	995	
==>lse {
      $key = $self->{pArgs}[0]->fixup;
    }
    my $pair = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8379	8477	
==>aceholder = Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $param->fmap(sub {
			Blon <==
3	/Users/nnunley/pugs/util/drift.pl	1237	1360	
==>ARNING WARNING --
-}

#ifndef HADDOCK









SCARY

# splice(@program, 2, 0, @scary_header);

open IN, $in or die $!;
open <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6402	6501	
==>i method union (Relation $other!) returns Relation {

    die "The heading of the relation in $other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9879	9978	
==>i method union (Relation $other!) returns Relation {

    die "The heading of the relation in $other <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	202	287	
==>g/group/perl.perl6.language/20985
  docs/quickref/rules
  http://search.cpan.org/dist/ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21274	21357	
==>spatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44181	44264	
==>spatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13784	13890	
==>anges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..1 <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13784	13890	
==>anges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..1 <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	575	693	
==>] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %paramete <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	575	693	
==>] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %paramete <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6055	6156	
==>ethod Array::as_seq (@array:) returns List {
    *@array
}
# name from docs/notes/piln_object_repr_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7140	7281	
==>revious call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7140	7281	
==>revious call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7140	7281	
==>revious call
        # and know if we are being called from within
        # our own class or not.
        return bless sub {
            (def <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1305	1461	
==>=> 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1305	1461	
==>=> 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2763	2906	
==>,
    );

    # experimental
    __PACKAGE__->add_rule(
        name => 'do',
        assoc => 'non',
        precedence => 'equal',
        oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12496	12609	
==>$array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12496	12609	
==>$array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12496	12609	
==>$array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	236	352	
==>ake sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	236	352	
==>ake sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	236	352	
==>ake sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6625	6746	
==>ta_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scala <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6625	6746	
==>ta_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scala <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16101	16203	
==>: once for inline code, once for the final Match tree.
  return $v;
}
}
sub def_rule {
  my($name,$re)= <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17272	17379	
==>ad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4826	4915	
==>rovides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4966	5055	
==>rovides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4637	4750	
==>sts and should contain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4637	4750	
==>sts and should contain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6834	6947	
==>sts and should contain
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8564	8756	
==>>{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                di <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9028	9220	
==>>{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                di <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	149	247	
==>in/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4926	5028	
==>e {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4926	5028	
==>e {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4926	5028	
==>e {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5881	5979	
==>Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5939	6037	
==>Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10473	10616	
==>y $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $switc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4225	4361	
==>e} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4096	4229	
==>e} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5499	5620	
==>:Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5499	5620	
==>:Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5499	5620	
==>:Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	75	176	
==>ft;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	75	176	
==>ft;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	75	176	
==>ft;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	39	135	
==>s the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	39	135	
==>s the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	39	135	
==>s the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	38	134	
==>thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	38	134	
==>thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	38	134	
==>thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15600	15750	
==>aN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15600	15750	
==>aN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15600	15750	
==>aN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3636	3772	
==>- Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieab <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3636	3772	
==>- Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieab <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3636	3772	
==>- Implementation types
# See: t/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2998	3116	
==>t "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3476	3594	
==>t "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #prin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9755	9876	
==>so be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in n <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9755	9876	
==>so be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in n <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6959	7061	
==>srStack, "bsr_reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper_close:
  goto oper <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21535	21629	
==>Relation tuple must be distinct from the other tuples.  All Relation
attributes may be individu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26087	26181	
==>Relation tuple must be distinct from the other tuples.  All Relation
attributes may be individu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	69	184	
==>r $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	69	184	
==>r $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8127	8269	
==>sbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8127	8269	
==>sbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8127	8269	
==>sbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    ret <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4549	4672	
==>age MY::Class;  -->  class MY::Class;

    open $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   -->  my $f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5869	5968	
==>Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTI <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5869	5968	
==>Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTI <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	132	229	
==>(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# T <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	132	229	
==>(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# T <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	70	174	
==>lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a n <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	70	174	
==>lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	910	1013	
==>t load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	910	1013	
==>t load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	910	1013	
==>t load Test.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompil <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6268	6373	
==>nc litlen
    goto term_literal_loop
  term_literal_end:
    if litlen < 1 goto term_literal_one
    dec p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6581	6679	
==>ethod should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> varia <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6581	6679	
==>ethod should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> varia <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17080	17204	
==>remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    $$meta = $meta_object;
}
sub p6_init <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32788	32879	
==>inistic because it
invokes user-defined external files for reading, mainly in the
C<translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32788	32879	
==>inistic because it
invokes user-defined external files for reading, mainly in the
C<translat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1329	1444	
==>nal argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1329	1444	
==>nal argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1538	1653	
==>nal argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2702	2811	
==>sh @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2702	2811	
==>sh @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2702	2811	
==>sh @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @components, [li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14477	14604	
==>re
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14477	14604	
==>re
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14477	14604	
==>re
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all the <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	680	796	
==>y "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIP <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	680	796	
==>y "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIP <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6625	6729	
==>lf->write or return;
    
    return $inst_pkg;

}

=head2 $bool = $inst->unregister( package => $inst_pk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	986	1135	
==>ool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	945	1089	
==>ool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37171	37259	
==>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1051	1176	
==>::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1051	1176	
==>::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1051	1176	
==>::identify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1143	1269	
==>nd to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1143	1269	
==>nd to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1143	1269	
==>nd to the node and scroll down.
                  node.childNodes[i].appendData(msg);
                  window.scrollTo(0, docu <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1194	1310	
==>f8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1194	1310	
==>f8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2357	2467	
==>ot defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2357	2467	
==>ot defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2357	2467	
==>ot defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11343	11535	
==>p( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7625	7817	
==>p( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8459	8651	
==>p( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n" .
                "    my \$code = sub { \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36740	36872	
==>ent because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36740	36872	
==>ent because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36740	36872	
==>ent because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14593	14790	
==>ray"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14593	14790	
==>ray"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14593	14790	
==>ray"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	68	185	
==>ctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	68	185	
==>ctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	68	185	
==>ctions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5603	5740	
==>);

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5603	5740	
==>);

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5603	5740	
==>);

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3434	3579	
==>r($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3434	3579	
==>r($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3434	3579	
==>r($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5652	5787	
==>($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5652	5787	
==>($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5652	5787	
==>($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16017	16124	
==>rn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # nativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16017	16124	
==>rn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # nativ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16017	16124	
==>rn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # nativ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17083	17194	
==>~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > length $name;
    }

    _ok($pass, _where(), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5437	5540	
==>b/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  / <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5247	5348	
==>b/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9911	10015	
==>eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9911	10015	
==>eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9911	10015	
==>eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4881	4987	
==>, incorrect. There is *no* attention
# paid to the associativity of the original operator and auto-metaed v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4881	4987	
==>, incorrect. There is *no* attention
# paid to the associativity of the original operator and auto-metaed v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4881	4987	
==>, incorrect. There is *no* attention
# paid to the associativity of the original operator and auto-metaed v <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11223	11315	
==>>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: *@child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11223	11315	
==>>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: *@child <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9451	9543	
==>.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9451	9543	
==>.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	134	226	
==>use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2688	2908	
==>$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ r <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2688	2908	
==>$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	735	831	
==>hich they are included; unlike the "mix-in" effect of
adding more superclasses to a Class, all of <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5261	5393	
==>ec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5261	5393	
==>ec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $de <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1287	1379	
==>846264338327950288419716939937510;
}

sub lcfirst (Str $str) returns Str is builtin is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14647	14760	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/bindin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14647	14760	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/bindin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14647	14760	
==>e is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/bindin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40979	41074	
==>his->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40979	41074	
==>his->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40979	41074	
==>his->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1538	1637	
==>ram]',
  'pSubLValue'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2591	2685	
==>URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2591	2685	
==>URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37298	37391	
==>ijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41847	41940	
==>ijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31295	31598	
==>),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11439	11563	
==>olon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11433	11557	
==>olon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2237	2352	
==>NIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$op) = reverse spl <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3473	3564	
==>as particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3473	3564	
==>as particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4943	5051	
==>rn $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # c <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4943	5051	
==>rn $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	860	964	
==>ammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::ru <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4418	4553	
==>x } );
    }
    else {
        $dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "generated_by: $package ve <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2966	3077	
==>nctional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2966	3077	
==>nctional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2879	2994	
==>el, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2879	2994	
==>el, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2879	2994	
==>el, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	943	1051	
==>bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	943	1051	
==>bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	888	985	
==>( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {.. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	888	985	
==>( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12050	12141	
==>{ # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12050	12141	
==>{ # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12050	12141	
==>{ # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1971	2091	
==>lf = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens } <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1971	2091	
==>lf = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6976	7105	
==>arams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6976	7105	
==>arams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6976	7105	
==>arams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14467	14598	
==>irectly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14467	14598	
==>irectly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14467	14598	
==>irectly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27445	27545	
==>re the keys of C<$attrs> provide the names of the new attributes, and
the values provide values appli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31997	32097	
==>re the keys of C<$attrs> provide the names of the new attributes, and
the values provide values appli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31080	31180	
==>re the keys of C<$attrs> provide the names of the new attributes, and
the values provide values appli <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1426	1655	
==>w,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3249	3454	
==>%events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3249	3454	
==>%events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3853	3971	
==>jib_dir;
    
        ### XXX hardcoded .svn exclusion! we should fix this proper!
        system( qq[tar --exclude $ji <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9329	9458	
==>self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9329	9458	
==>self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9329	9458	
==>self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7424	7515	
==>method('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7424	7515	
==>method('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7424	7515	
==>method('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1652	1756	
==>od('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1652	1756	
==>od('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1652	1756	
==>od('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = $self->class->di <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8290	8402	
==>d eq 'SubPrim';
    $kind =~ s/^Sub(\w+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Mac <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3668	3776	
==>s;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3668	3776	
==>s;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20714	20816	
==>he documentation on sub-classing includes an ordered list of what
packages a method is looked up in for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2370	2462	
==>l;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2370	2462	
==>l;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2370	2462	
==>l;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5642	5770	
==>" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5642	5770	
==>" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5642	5770	
==>" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11018	11151	
==>~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) {
        return _ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23347	23437	
==>chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23347	23437	
==>chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5298	5407	
==>\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2840	2949	
==>\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3689	3798	
==>\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2890	2986	
==>ning of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2890	2986	
==>ning of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2890	2986	
==>ning of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7187	7311	
==>= function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7187	7311	
==>= function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7187	7311	
==>= function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1937	2065	
==>lk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1937	2065	
==>lk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1937	2065	
==>lk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7538	7670	
==>ot is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7538	7670	
==>ot is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7538	7670	
==>ot is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1529	1679	
==>";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1529	1679	
==>";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1529	1679	
==>";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2() . "\n" for @$self;
    $js .= $_->as_j <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5830	5991	
==>w') };
        unless ( $new ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$file};
        push @{$sel <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	255	359	
==>my $prog = shift;

	my $c = $self->compile($prog);
	my $type_annotated = $self->annotate($c);
	my $c_code <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	100	202	
==>se strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Prim - 

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10570	10683	
==>_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go ther <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10570	10683	
==>_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go ther <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10570	10683	
==>_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go ther <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4682	4798	
==>n 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4682	4798	
==>n 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4682	4798	
==>n 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3558	3685	
==>$s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4407	4534	
==>$s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unles <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14823	14915	
==>creen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1373	1550	
==>attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1373	1550	
==>attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6146	6241	
==>>{'@:roles'} = [ $Role ];
$_resolve->($Class);

# Bootstrap -> Role does Role
::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1155	1332	
==>nue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1155	1332	
==>nue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    ret <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27728	27818	
==>first");
is(t($length_and_first_p), "(int × int)", ":t length_and_first [1]");
is(t($lengt <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4440	4547	
==>ken_match_2";
    goto token_match;
    bsr_token_match_2:
    goto found_term if $operator;
  }
  null_term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3105	3234	
==>e {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3105	3234	
==>e {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3105	3234	
==>e {
            $eigenclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7319	7432	
==>n;
    }

    my %results = $self->analyze_fh($file, \*FILE);
    my $exit = close FILE;
    $results{'wait'} = $? <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	194	303	
==>in;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	194	303	
==>in;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2434	2555	
==>op::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2627	2748	
==>op::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2162	2256	
==>plex32  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subset complex of comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39682	39786	
==>et ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39682	39786	
==>et ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39682	39786	
==>et ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2443	2599	
==>,
							body => "type_convert_${from}_${to}",
							type => [$from => $to],
						),
					),
				),	
			),
			(ref $node)->new(
				%$node,
				orig => Blo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17692	17812	
==>SIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "ble <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17692	17812	
==>SIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "ble <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1782	1937	
==>\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1770	1925	
==>\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2606	2708	
==>->version($version)     if defined $version;
    $new_class->authority($authority) if defined $authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2606	2708	
==>->version($version)     if defined $version;
    $new_class->authority($authority) if defined $authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2606	2708	
==>->version($version)     if defined $version;
    $new_class->authority($authority) if defined $authorit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11689	11881	
==>symbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e->get('?%par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5007	5113	
==>nd the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5007	5113	
==>nd the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2824	2945	
==>{
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2824	2945	
==>{
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10681	10794	
==>[$terminfo             => "$initrd_mnt/etc/terminfo/l/linux"],
    [$linuxrc              => "$initrd_mnt/linuxrc" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	37	149	
==>ings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	37	149	
==>ings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	37	149	
==>ings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3169	3404	
==>el'      => 'symbol'),
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	220	335	
==>nd ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	220	335	
==>nd ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4839	4971	
==>ystem(qq[rm -rf $meta])                                    and die $?;

    print "\n\tPackage '$pkg' and associated metadata removed <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9910	10003	
==>ements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a n <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9910	10003	
==>ements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9487	9604	
==>{ die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
metho <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9487	9604	
==>{ die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
metho <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2921	3024	
==>draft.pod r8593.
multi Array::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1410	1527	
==>= _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1410	1527	
==>= _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1410	1527	
==>= _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9402	9547	
==>mt} eq 'method' ) {
        # Moose: sub clear { my $self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        retu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15071	15173	
==>e same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15071	15173	
==>e same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13776	13903	
==>}
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13776	13903	
==>}
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13776	13903	
==>}
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6585	6702	
==>bmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6585	6702	
==>bmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6585	6702	
==>bmethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_role->add_method <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16161	16262	
==>object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then th <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16161	16262	
==>object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	358	455	
==>functional" aspects of it in favor of 
a more practical closure based system, similar to what is d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2108	2214	
==>floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2108	2214	
==>floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connec <==
3	/Users/nnunley/pugs/util/grokprims.pl	346	456	
==>,
);

my @ops;

while (<>) {
  last unless /^\\\\n[^"]/;
  chomp;

  my (undef, $ret, $assoc, $name, $args) = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1514	1636	
==>lit /;/, $n;

      if ($cc) {
        $S->error(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3599	3710	
==>() {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3599	3710	
==>() {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	477	577	
==>(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	477	577	
==>(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	477	577	
==>(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4725	4836	
==>istered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4725	4836	
==>istered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	232	365	
==>method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	232	365	
==>method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6482	6597	
==>or error(Params::Check->last_error), return;

    return
        map { $self->index->file($_) }
        $self->_inde <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15317	15417	
==>ion
	# since this return value is a type variable that is present inside the function, if it was free <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	878	966	
==>uilder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	878	966	
==>uilder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16405	16522	
==>cs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9264	9357	
==>ize.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=he <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9264	9357	
==>ize.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=he <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1631	1777	
==>IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1598	1744	
==>IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4219	4337	
==>ion.subscriber);
    }
    
    method dispatch (Code & Class::Events::Subscriber $subscriber) {
        $subscriber.($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2372	2517	
==>:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2372	2517	
==>:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2372	2517	
==>:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<exp>                   = compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7355	7482	
==>ER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7355	7482	
==>ER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7355	7482	
==>ER::expand().";\n";    
}


package PIL::Run::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4527	4670	
==>the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $mult <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4527	4670	
==>the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $mult <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	812	913	
==>distribution.
Please use the 'name' function in Makefile.PL.
END

    $name =~ s/-/::/g;
    $self->mo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	43	148	
==>parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	43	148	
==>parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28417	28519	
==>re.
(a\1) isnt handled properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful match.
//x isnt being h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	455	576	
==>Pos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	455	576	
==>Pos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	455	576	
==>Pos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12946	13058	
==>urn _emit( $n->{exp1} ) . '[' . _emit( $n->{exp2} ) . ']';
    }
    
    return _not_implemented( $n, "postci <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10315	10425	
==>$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10309	10419	
==>$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	706	817	
==>t|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # wa <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	706	817	
==>t|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33055	33153	
==>ons will have more complete
documentation.  For now, read the source (!).

=head2 bol

Family: anch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5765	5898	
==>, 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5765	5898	
==>, 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_gr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2599	2697	
==>return and argument types differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1120	1223	
==>did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1120	1223	
==>did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1120	1223	
==>did not s/^use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3989	4117	
==>er->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3989	4117	
==>er->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3989	4117	
==>er->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4763	4885	
==>ub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4763	4885	
==>ub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4763	4885	
==>ub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5260	5514	
==>1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5260	5514	
==>1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15298	15396	
==>]

Attempting to use a string at a level higher it can support is handled
without warning. The high <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1050	1151	
==>"Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1050	1151	
==>"Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1050	1151	
==>"Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6488	6601	
==>odule_name {
        # Determine if requested template module is already loaded.
        # It may have been embedd <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6488	6601	
==>odule_name {
        # Determine if requested template module is already loaded.
        # It may have been embedd <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	114	224	
==>erfe('steak'); }
	when .füttert     { schleiche_vorbei();  }
	when /grrr+/      { ohren_zuhalten();  }
	
	prin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22998	23098	
==>is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22998	23098	
==>is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3406	3541	
==>_->add_rule( 
        name => '=',
        assoc => 'right',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	156	265	
==>> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	156	265	
==>> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($ev <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1816	1918	
==>$set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1816	1918	
==>$set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	726	879	
==>SubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	726	879	
==>SubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	726	879	
==>SubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    return $_[0]->SUPER::fixup;
  }

  sub magical_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10522	10617	
==>' in header names.

The header() method accepts multiple ($field => $value) pairs, which
means t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10522	10617	
==>' in header names.

The header() method accepts multiple ($field => $value) pairs, which
means t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28018	28111	
==>you can use the C<--perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepended <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4256	4353	
==>_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4256	4353	
==>_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4256	4353	
==>_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_postcircumf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14320	14440	
==>ue::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14320	14440	
==>ue::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14320	14440	
==>ue::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1024	1134	
==>($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by factoring out the "not ".
    # VMS wi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9354	9446	
==>ar_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9354	9446	
==>ar_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	40	147	
==>erl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	40	147	
==>erl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ <==
3	/Users/nnunley/pugs/util/package-osx.pl	5498	5596	
==>an3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	129	229	
==>';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	129	229	
==>';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9978	10071	
==>Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9978	10071	
==>Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NA <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	348	453	
==>ll';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $self = $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2574	2684	
==>ss_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2574	2684	
==>ss_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2574	2684	
==>ss_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;   
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13086	13192	
==>getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13086	13192	
==>getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1375	1499	
==>new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 

sub do {
    my ($self, $args) = @_;
    $args ||= lis <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7303	7422	
==>"trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rar <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7303	7422	
==>"trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4037	4136	
==>ne to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4037	4136	
==>ne to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4117	4216	
==>ne to the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5707	5832	
==>amma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5707	5832	
==>amma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5462	5578	
==>lit('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5462	5578	
==>lit('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5462	5578	
==>lit('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4898	5033	
==>($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4898	5033	
==>($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_head <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	494	600	
==>::Object  = undef;
$::Module  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3115	3291	
==>('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3115	3291	
==>('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3115	3291	
==>('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5659	5760	
==>if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5659	5760	
==>if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7183	7284	
==>if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9538	9647	
==>.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9538	9647	
==>.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9538	9647	
==>.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	pu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	436	553	
==>m<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	436	553	
==>m<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!pa <==
3	/Users/nnunley/pugs/util/func_refact.pl	1271	1388	
==>while (my $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16708	16813	
==>ist = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16708	16813	
==>ist = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16708	16813	
==>ist = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" object.

new() w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6526	6659	
==>perimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6316	6444	
==>perimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	252	343	
==>::ECMAScript3::Grammar::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9321	9458	
==>str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9321	9458	
==>str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9321	9458	
==>str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9490	9612	
==>p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9490	9612	
==>p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9490	9612	
==>p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1588	1729	
==>r = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1588	1729	
==>r = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	164	281	
==>ps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime:: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6032	6165	
==>continue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Par <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6032	6165	
==>continue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Par <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19753	19863	
==>| <SwitchStatement>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :words {  # see 12.1
      <'{'> < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	771	896	
==>l5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Runtime::Perl6;\n" . 
        "use strict;\n" . 
        "no warning <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8872	8969	
==>an (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8872	8969	
==>an (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2501	2605	
==>ey);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2501	2605	
==>ey);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2501	2605	
==>ey);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6062	6171	
==>t package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6062	6171	
==>t package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6062	6171	
==>t package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either way, I think <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1846	1962	
==>eturn ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1846	1962	
==>eturn ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1846	1962	
==>eturn ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1306	1416	
==>whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1306	1416	
==>whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1306	1416	
==>whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_name <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20569	20709	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20848	20988	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3782	3916	
==>to a sane default value
            $Obj->$acc( $config{$key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_access <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	301	398	
==>unctions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	301	398	
==>unctions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	311	412	
==>if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	311	412	
==>if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	311	412	
==>if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	832	959	
==>xportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	832	959	
==>xportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	832	959	
==>xportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2151	2280	
==>}
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %para <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2151	2280	
==>}
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %para <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2122	2228	
==>class, $conf) = @_;
    my %env = map { split /=/ } (split /:/, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14681	14780	
==>make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14681	14780	
==>make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14681	14780	
==>make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method () {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10637	10748	
==>v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10637	10748	
==>v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10637	10748	
==>v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13894	14011	
==>':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13894	14011	
==>':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13894	14011	
==>':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2659	2769	
==>o [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2659	2769	
==>o [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2659	2769	
==>o [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8400	8603	
==>ck );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4760	4963	
==>ck );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5609	5812	
==>ck );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ );  # emit($_);
            }
            # no parameters <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2616	2723	
==>y $provides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provides, @_) if @_;
    return $pro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13742	13844	
==>F!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17219	17321	
==>F!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2313	2415	
==>h @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2313	2415	
==>h @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2313	2415	
==>h @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16396	16490	
==>ns "whatever annotation went with this attribute when it's declared"
$::Class->add_method('find <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16396	16490	
==>ns "whatever annotation went with this attribute when it's declared"
$::Class->add_method('find <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16396	16490	
==>ns "whatever annotation went with this attribute when it's declared"
$::Class->add_method('find <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1071	1181	
==>ts expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1071	1181	
==>ts expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1618	1728	
==>ts expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string containing t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9836	9950	
==>X - code\n";  
}        
sub node::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{' <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	823	925	
==>h::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2658	2749	
==>h::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}::$self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7172	7324	
==>ch => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6932	7076	
==>ch => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	247	357	
==>@param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	247	357	
==>@param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10908	11000	
==>------------------------------------------------------------------------------
Random Thought <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10908	11000	
==>------------------------------------------------------------------------------
Random Thought <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10908	11000	
==>------------------------------------------------------------------------------
Random Thought <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33020	33229	
==>:isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33020	33229	
==>:isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33020	33229	
==>:isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list " <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4131	4240	
==>~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exceptio <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4189	4298	
==>~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exceptio <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	312	405	
==>ype_annotated = $self->annotate($c);
	my $c_code = $self->emit($type_annotated);
	my $main = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	570	723	
==>=> {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	570	723	
==>=> {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	570	723	
==>=> {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$::Class = ::create_class();

## create the b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13705	13802	
==>I SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13705	13802	
==>I SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13705	13802	
==>I SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8857	8996	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8857	8996	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8857	8996	
==>ass => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { ac <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3432	3556	
==>{
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3432	3556	
==>{
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4956	5080	
==>{
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1002	1098	
==>sion
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1002	1098	
==>sion
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1123	1221	
==>bject belongs to a
package that is too close to the main namespace for your tastes, and
you want to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1123	1221	
==>bject belongs to a
package that is too close to the main namespace for your tastes, and
you want to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1123	1221	
==>bject belongs to a
package that is too close to the main namespace for your tastes, and
you want to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	835	949	
==>ump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	835	949	
==>ump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	835	949	
==>ump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamodel-base=s"   => \$PIL2JS::cf <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16801	16901	
==>TML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16801	16901	
==>TML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10044	10143	
==>deEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule Regul <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	685	803	
==>d $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_inv <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	685	803	
==>d $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_inv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3020	3149	
==>ss->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3020	3149	
==>ss->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3020	3149	
==>ss->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->superclasses([ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18539	18632	
==>her and remove
any embedded class that is I<entirely> redundant (that is, I<every>
character i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4379	4480	
==>HS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4379	4480	
==>HS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4379	4480	
==>HS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11232	11451	
==>r::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11232	11451	
==>r::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11232	11451	
==>r::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1030	1140	
==>objects that it finds along the way into new
namespaces. This is typically useful when your object belongs to a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1030	1140	
==>objects that it finds along the way into new
namespaces. This is typically useful when your object belongs to a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1030	1140	
==>objects that it finds along the way into new
namespaces. This is typically useful when your object belongs to a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23112	23209	
==>e "gettext" it looks like you
are supposed to pass in english text and they translate it, which co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23112	23209	
==>e "gettext" it looks like you
are supposed to pass in english text and they translate it, which co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28218	28312	
==>ags -- you need only pass the flag names,
without the "FLAG_" prefix.

=item $parser->add_handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3526	3640	
==>ame) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3526	3640	
==>ame) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3526	3640	
==>ame) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7619	7829	
==>s";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7619	7829	
==>s";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7619	7829	
==>s";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4248	4351	
==>less $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4248	4351	
==>less $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4248	4351	
==>less $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dispatche <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16648	16758	
==>$x);
    my $handler = $as_p6obj_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	447	542	
==>r $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	447	542	
==>r $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4325	4431	
==>-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4325	4431	
==>-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4325	4431	
==>-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5565	5697	
==>fined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5787	5919	
==>fined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #pri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23923	24053	
==>(?@superclasses)))
          ($self: set_attr ((symbol new @:MRO) (list new)))          
          ($self: send (MRO))))
     ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14846	14974	
==>onstant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14846	14974	
==>onstant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14846	14974	
==>onstant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7093	7195	
==>:Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7093	7195	
==>:Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7093	7195	
==>:Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43003	43147	
==>d' => (
    # method label
        symbol->new('can'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6378	6476	
==>event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      fo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6378	6476	
==>event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	768	886	
==>e;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	973	1091	
==>e;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1029	1147	
==>e;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47489	47637	
==>bel
        symbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	836	961	
==>($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	836	961	
==>($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3609	3697	
==>->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3609	3697	
==>->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3609	3697	
==>->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	599	715	
==>ource);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	599	715	
==>ource);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	599	715	
==>ource);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $tok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5039	5153	
==>SSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5039	5153	
==>SSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5039	5153	
==>SSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	429	535	
==>g only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	429	535	
==>g only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	429	535	
==>g only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1000	1098	
==>e { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1000	1098	
==>e { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1000	1098	
==>e { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4581	4696	
==>one;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4581	4696	
==>one;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4581	4696	
==>one;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3854	3966	
==>is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 po <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3854	3966	
==>is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5378	5490	
==>is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 po <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3349	3478	
==>ription");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3349	3478	
==>ription");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4873	5002	
==>ription");
     }
  }

  sub is ($got, $expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4411	4554	
==>=> [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4411	4554	
==>=> [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4411	4554	
==>=> [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2258	2357	
==>Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2258	2357	
==>Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2258	2357	
==>Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9842	9955	
==>ist:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf point <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	280	388	
==>ist:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf point <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	280	388	
==>ist:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf point <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3711	3897	
==>)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3711	3897	
==>)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no w <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4857	4962	
==>ror code ".($?>>8)) if $?;
    print STDERR "done.\n" if $Config{verbose};
}

sub usage {
    print STDERR <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3599	3714	
==>$tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3850	3962	
==>$tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3850	3962	
==>$tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return unless $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1144	1275	
==>}

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1144	1275	
==>}

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1144	1275	
==>}

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	443	569	
==>- $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	443	569	
==>- $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	443	569	
==>- $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23137	23304	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42740	42906	
==>w(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1359	1478	
==>oken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1359	1478	
==>oken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1359	1478	
==>oken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4731	4849	
==>_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4731	4849	
==>_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1637	1755	
==>_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	119	226	
==>.. this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	119	226	
==>.. this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	119	226	
==>.. this constructs the rest of the ::Class
# the result of this file is the (demiurge)

$::Class->add_method <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	31	135	
==>tistic of Pugs' development.
# Usage: svn log | util/svnlog2graph.pl > /tmp/graph.png   --or
#        svn <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36568	36664	
==>thers> is an
empty list, in which case the returned Relation is identical to the
invocant.  Anoth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41117	41213	
==>thers> is an
empty list, in which case the returned Relation is identical to the
invocant.  Anoth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14688	14826	
==>nstant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14967	15105	
==>nstant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40997	41091	
==>can only be figured out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a f <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1650	1759	
==>.

=item Map

A map is like a hash - it has keys and values.

C<Env> is a map - it contains symbol to value ma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9707	9803	
==>th_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9707	9803	
==>th_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2221	2328	
==>if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2221	2328	
==>if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2221	2328	
==>if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	899	1009	
==>le ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Regex->compile( 
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4726	4828	
==>dText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4726	4828	
==>dText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	847	942	
==>r;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	847	942	
==>r;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	847	942	
==>r;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8622	8720	
==>op... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8622	8720	
==>op... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8622	8720	
==>op... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15689	15822	
==>->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15689	15822	
==>->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15689	15822	
==>->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11127	11241	
==>cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11127	11241	
==>cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11127	11241	
==>cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10044	10142	
==>use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10044	10142	
==>use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10044	10142	
==>use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9223	9343	
==>n_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9223	9343	
==>n_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enci <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3015	3107	
==>warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5954	6085	
==>elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5954	6085	
==>elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5954	6085	
==>elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).m <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1086	1198	
==>dth > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now b <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1086	1198	
==>dth > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35045	35146	
==>ntersection> if the two source headings are
identical.  This method has an alias named C<matching>.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39595	39696	
==>ntersection> if the two source headings are
identical.  This method has an alias named C<matching>.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39137	39238	
==>ntersection> if the two source headings are
identical.  This method has an alias named C<matching>.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	417	529	
==>r to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   workin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	417	529	
==>r to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   workin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	417	529	
==>r to keep 
#   bound scalars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   workin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	929	1033	
==>::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	929	1033	
==>::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	929	1033	
==>::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5717	5854	
==>st->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5717	5854	
==>st->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5717	5854	
==>st->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11015	11146	
==>Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11015	11146	
==>Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submetho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11015	11146	
==>Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submetho <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2785	2888	
==>signed = shift @letters;
			$map{$entry->{orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22613	22707	
==>yedText would also handle
this.

A program generates a Message that contains all possibly usefu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22613	22707	
==>yedText would also handle
this.

A program generates a Message that contains all possibly usefu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1512	1601	
==>::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1512	1601	
==>::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1512	1601	
==>::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	674	778	
==>);

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	674	778	
==>);

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	674	778	
==>);

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15469	15581	
==>alue };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15469	15581	
==>alue };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15469	15581	
==>alue };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7901	8061	
==>_('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7901	8061	
==>_('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7901	8061	
==>_('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $meth <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3581	3721	
==>t >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3581	3721	
==>t >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8252	8356	
==>6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8252	8356	
==>6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8252	8356	
==>6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($othe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2736	2835	
==>!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6213	6312	
==>!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5143	5242	
==>!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14921	15023	
==>'POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9121	9223	
==>'POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12186	12279	
==>ests_ok"><span title="<tmpl_var name=ok> ok"><tmpl_var name=ok></span>,</td>
	      <td class= <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22676	22793	
==>",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23661	23753	
==>If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all comma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23661	23753	
==>If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all comma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13600	13748	
==>( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13600	13748	
==>( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13600	13748	
==>( 'Int' ) ||
        $key->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	112	213	
==>N $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	112	213	
==>N $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	112	213	
==>N $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1389	1504	
==>}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($firs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1389	1504	
==>}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($firs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1389	1504	
==>}

sub statement_control:<postuntil>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($firs <==
3	/Users/nnunley/pugs/util/drift.pl	1388	1495	
==>hile (<IN>) {
    /OPTION/ or last;
	s{\Q../}{../../}; # Hack to fix includes (It's stupid!)
    print OUT $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2823	2929	
==>$current send (get_method $label)))
         (= $current (&dispatcher do))))
     ($method))

=cut

$::ENV- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5989	6085	
==>sing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This is version B<0.0 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2350	2467	
==>an::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2350	2467	
==>an::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14946	15059	
==>- pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cna <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7115	7218	
==>cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) re <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7173	7276	
==>cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1784	1905	
==>AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $sel <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16300	16391	
==>dios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <g <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16358	16449	
==>dios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <g <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	238	335	
==>les to reduce confusion and keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16817	16910	
==>s own executable, in practice one would
normally just write some components of their applicati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16817	16910	
==>s own executable, in practice one would
normally just write some components of their applicati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13264	13366	
==>.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13264	13366	
==>.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13264	13366	
==>.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2077	2189	
==>{
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( package => $self ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1773	1874	
==>en't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1773	1874	
==>en't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6379	6467	
==>ss->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6379	6467	
==>ss->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6379	6467	
==>ss->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:version <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15347	15452	
==>HOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15347	15452	
==>HOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	677	783	
==>$s, from => \\(0+$-[$_]), to => \\(0+$+[$_]),
        bool => \\1, match => [], named => {}, capture => \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4839	4940	
==>] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5032	5133	
==>] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6678	6781	
==>f );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6678	6781	
==>f );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) ) <==
3	/Users/nnunley/pugs/util/config_h.pl	1136	1236	
==>);
import System.Console.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22117	22235	
==>{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22117	22235	
==>{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22117	22235	
==>{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14133	14229	
==>:ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14133	14229	
==>:ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14133	14229	
==>:ARGS->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	91	213	
==>new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	91	213	
==>new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	91	213	
==>new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	770	873	
==>l diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	770	873	
==>l diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1326	1429	
==>l diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1656	1753	
==>lf.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersection ($self: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1656	1753	
==>lf.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersection ($self: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9368	9469	
==>t(anyof_class => upper => $neg, $how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14603	14695	
==>s routine works just like encode_entities, except that the replacement
entities are always C< <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14603	14695	
==>s routine works just like encode_entities, except that the replacement
entities are always C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4855	4968	
==>) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4855	4968	
==>) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4855	4968	
==>) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1399	1505	
==>ment = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ------- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1399	1505	
==>ment = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6201	6297	
==>de some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This overrid <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6201	6297	
==>de some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This overrid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8398	8494	
==>de some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This overrid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5164	5270	
==><!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5164	5270	
==><!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5164	5270	
==><!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7612	7778	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7612	7778	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7612	7778	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38847	38947	
==>uncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43661	43761	
==>uncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43195	43295	
==>uncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3036	3142	
==>ems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3036	3142	
==>ems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3036	3142	
==>ems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::Li <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1598	1740	
==>o character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1598	1740	
==>o character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	273	358	
==>my (@eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Perl6::Run::OnPe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37096	37193	
==>tions have zero attributes in common, their joining degenerates to a
C<product>.  In any situation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41645	41742	
==>tions have zero attributes in common, their joining degenerates to a
C<product>.  In any situation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41268	41365	
==>tions have zero attributes in common, their joining degenerates to a
C<product>.  In any situation <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19856	19954	
==>s organization partly by how Mac OS X manages its
resources.  It is the standard practice for Mac O <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19856	19954	
==>s organization partly by how Mac OS X manages its
resources.  It is the standard practice for Mac O <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2826	2979	
==>sert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Pars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2826	2979	
==>sert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10270	10361	
==>(*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10270	10361	
==>(*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10270	10361	
==>(*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14228	14327	
==>Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14228	14327	
==>Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14228	14327	
==>Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $tab <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32351	32500	
==>=> method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33006	33155	
==>=> method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13150	13245	
==>plementation is at best an XS-based module (currently Inline::C),
  and is thus not very portabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34987	35133	
==>ength \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34987	35133	
==>ength \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34987	35133	
==>ength \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head= <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2408	2580	
==>ld;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.def <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2408	2580	
==>ld;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2520	2626	
==>, $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2520	2626	
==>, $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2520	2626	
==>, $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9065	9197	
==>with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9065	9197	
==>with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9065	9197	
==>with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1578	1691	
==>some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1578	1691	
==>some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1578	1691	
==>some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1791	1931	
==>,} }", 
    infix_non =>         
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12032	12146	
==>XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12026	12140	
==>XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14366	14463	
==>tes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sec <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14366	14463	
==>tes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sec <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17769	17926	
==>we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto n <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3575	3704	
==>nd_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3575	3704	
==>nd_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24443	24650	
==>@param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24443	24650	
==>@param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24443	24650	
==>@param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	13	130	
==>:Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use bas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	13	130	
==>:Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use bas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	13	130	
==>:Bind;
use 5.008;
use strict;
our $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2949	3073	
==>rs.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2949	3073	
==>rs.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2949	3073	
==>rs.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12945	13068	
==>s)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12945	13068	
==>s)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12945	13068	
==>s)=@_;
    my $argl = join(",",@args);
    #return "return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	231	355	
==>SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	231	355	
==>SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	231	355	
==>SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	219	320	
==>ensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	219	320	
==>ensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	219	320	
==>ensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneum <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5405	5502	
==>s accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq norm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5405	5502	
==>s accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq norm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1007	1111	
==>::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attemp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1007	1111	
==>::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attemp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1007	1111	
==>::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attemp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3903	4030	
==>cant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3903	4030	
==>cant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3903	4030	
==>cant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8451	8689	
==>ms ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8451	8689	
==>ms ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8451	8689	
==>ms ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { P <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1602	1700	
==>e::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyA <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1602	1700	
==>e::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	294	382	
==>se Pugs::Runtime::Match;
PRELUDE

RULEMATCH:
while ($tail =~ m/rule\s+(\S+)\s+\{(.+)$/gs) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1024	1155	
==>trs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1229	1360	
==>trs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1290	1421	
==>trs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4203	4299	
==>s for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receiv <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4203	4299	
==>s for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receiv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4283	4379	
==>s for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4511	4606	
==>sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4511	4606	
==>sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4511	4606	
==>sigil{$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	912	1009	
==>ments; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( pee <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	113	207	
==>ments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( pee <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	113	207	
==>ments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( pee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39882	40034	
==>eturn $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39882	40034	
==>eturn $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39882	40034	
==>eturn $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	459	581	
==>n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	459	581	
==>n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7357	7451	
==>tch, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7357	7451	
==>tch, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7357	7451	
==>tch, Int *@idxs
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1059	1178	
==>ric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1059	1178	
==>ric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1059	1178	
==>ric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33507	33627	
==>rray->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33507	33627	
==>rray->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33507	33627	
==>rray->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $arra <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2148	2292	
==>method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2148	2292	
==>method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15178	15287	
==>lass => upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7384	7537	
==>' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7384	7537	
==>' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7384	7537	
==>' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7377	7480	
==>in { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7377	7480	
==>in { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7377	7480	
==>in { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13591	13685	
==>"spec" here means "whatever annotation went with this attribute when it's declared"
::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13591	13685	
==>"spec" here means "whatever annotation went with this attribute when it's declared"
::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13591	13685	
==>"spec" here means "whatever annotation went with this attribute when it's declared"
::Class.met <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4872	4969	
==>e
libwww-perl library.  It should also be suitable for one-liners.  If
you need more control or ac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4872	4969	
==>e
libwww-perl library.  It should also be suitable for one-liners.  If
you need more control or ac <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	704	826	
==>hour), :minute($minute), :second($second),
                           );
}

# convert from an iso duration
multi method dur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	432	527	
==>nto a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder::N <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	432	527	
==>nto a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder::N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3171	3300	
==>ta};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3171	3300	
==>ta};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8226	8339	
==>ASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8226	8339	
==>ASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8226	8339	
==>ASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => : <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37611	37706	
==>e source Relations,
such that all common attribute names and corresponding common tuple values
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42160	42255	
==>e source Relations,
such that all common attribute names and corresponding common tuple values
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41810	41905	
==>e source Relations,
such that all common attribute names and corresponding common tuple values
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5791	5926	
==>]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5791	5926	
==>]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5791	5926	
==>]{type}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21470	21629	
==>Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21470	21629	
==>Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21470	21629	
==>Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subcla <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1502	1651	
==>e<Num>).add_children(
                                Tree.new(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).add_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15191	15287	
==>s always returned.
If the given header did not exist then C<undef> is returned.

Methods that dea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15191	15287	
==>s always returned.
If the given header did not exist then C<undef> is returned.

Methods that dea <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5487	5585	
==>the last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5487	5585	
==>the last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module <==
3	/Users/nnunley/pugs/util/run-smoke.pl	341	438	
==>have the required modules installed.
Please install it from the CPAN and try again.

A bundle is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14086	14182	
==>lems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14086	14182	
==>lems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14086	14182	
==>lems ($xx) { $xx->elems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6166	6279	
==>$grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6166	6279	
==>$grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4685	4785	
==>n support for pugs still depends on the .msi
   version of GHC and does not provide POSIX features ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	21	120	
==>warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	21	120	
==>warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	21	120	
==>warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6540	6642	
==>ment = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6540	6642	
==>ment = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6540	6642	
==>ment = {
  write: PIL2JS_printWithoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1948	2091	
==>, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1948	2091	
==>, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,st <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1084	1190	
==>$o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	642	761	
==>usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	642	761	
==>usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	642	761	
==>usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7199	7311	
==>XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7199	7311	
==>XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7199	7311	
==>XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_new(Num <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	624	735	
==>=> {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	624	735	
==>=> {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	621	753	
==>rammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1943	2063	
==>number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<pa <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1943	2063	
==>number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1821	1911	
==>s::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1910	2000	
==>s::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2801	2888	
==>_alternatives(W, Z) --> "|", p5_concatenation(X), p5_alternatives(union(W,X), Z), !.
p5_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10058	10172	
==>str target, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25868	25960	
==>o not match invocant
Relation attribute names, or any C<$mapping> values duplicate each other <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30420	30512	
==>o not match invocant
Relation attribute names, or any C<$mapping> values duplicate each other <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4281	4379	
==>Compares the receivied and expected lines from the previously run tests,
passing if both the diagno <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4281	4379	
==>Compares the receivied and expected lines from the previously run tests,
passing if both the diagno <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4361	4459	
==>Compares the receivied and expected lines from the previously run tests,
passing if both the diagno <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7614	7733	
==>{
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7614	7733	
==>{
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7614	7733	
==>{
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	225	331	
==>.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	225	331	
==>.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	225	331	
==>.shift();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21731	21870	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22010	22149	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13399	13531	
==>n.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16876	17008	
==>n.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16238	16370	
==>n.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16312	16435	
==>appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::curr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15123	15221	
==>e first argument, if
called in a void context.  In scalar and array contexts, the encoded or
decode <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15123	15221	
==>e first argument, if
called in a void context.  In scalar and array contexts, the encoded or
decode <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1828	1938	
==>thods->fetch($label)->do($args);
        }
    }
    confess "Method (" . $label->to_native . ") not found in \ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2295	2397	
==>ctory of the output tree.
my $start_dir = cwd;

# ref to hash of information about links that we mean t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7215	7308	
==>t_on_object',
  '... still got the right return value from first Object singleton/class method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8210	8303	
==>t_on_object',
  '... still got the right return value from first Object singleton/class method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10779	10872	
==>t_on_object',
  '... still got the right return value from first Object singleton/class method <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20550	20650	
==>s an operand.

We don't care.


=head2 Internals:

  regnode *regstclass;

Points into ->data.
sv.c's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1924	2026	
==>- non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1924	2026	
==>- non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1924	2026	
==>- non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2917	3035	
==>',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, a <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2917	3035	
==>',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28580	28678	
==>r is a C<tail> node, and a
character class's ender is an C<anyof_close> node.

=item my $c = $obj-> <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	288	394	
==>al=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $. <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	288	394	
==>al=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3227	3324	
==>ue' ,'unk';
node_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	301	393	
==>, the current approach seems plausible, no?

Clutter::int_sizes 1,2,4... doesnt add much clar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1561	1651	
==>Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1561	1651	
==>Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1374	1468	
==>d, and has been alocated $symbol" if defined $symbol;

	my $result = $self->inner_reduce($node) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9780	9872	
==>= eval($c0); die "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::rebless_with_prefix($p,'PIL::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5474	5584	
==>x:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5474	5584	
==>x:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5474	5584	
==>x:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.as <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	759	867	
==>alar value

		# simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $t <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	138	234	
==>ub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	138	234	
==>ub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21243	21348	
==>uple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25795	25900	
==>uple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24419	24524	
==>uple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6664	6764	
==>IL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6664	6764	
==>IL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6664	6764	
==>IL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2833	2939	
==>$who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2833	2939	
==>$who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2833	2939	
==>$who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	348	447	
==>in_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	348	447	
==>in_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	348	447	
==>in_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13305	13442	
==>$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9491	9628	
==>$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10327	10464	
==>$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1189	1319	
==>my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	358	482	
==>-iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	358	482	
==>-iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	358	482	
==>-iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	167	262	
==>" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	167	262	
==>" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	167	262	
==>" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1496	1603	
==>evelopment",
  x_label      => "Days",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38594	38691	
==>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occuran <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38594	38691	
==>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occuran <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22367	22470	
==>eturn unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22646	22749	
==>eturn unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19410	19499	
==>from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19410	19499	
==>from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19410	19499	
==>from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25228	25332	
==>ing whether the immutable identity of the
argument C<$other> equals the immutable identity of the invocan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29780	29884	
==>ing whether the immutable identity of the
argument C<$other> equals the immutable identity of the invocan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28710	28814	
==>ing whether the immutable identity of the
argument C<$other> equals the immutable identity of the invocan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1473	1590	
==>.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1473	1590	
==>.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1473	1590	
==>.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17223	17337	
==>$node}++){
        return "... recursive=$node ...";
    }

    if (Scalar::Util::blessed($node)){
        if ($nod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	23	113	
==>t::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Fun <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	23	113	
==>t::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Fun <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2504	2632	
==>", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2504	2632	
==>", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2192	2296	
==>6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hel <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1738	1909	
==>ile( <$fh> ) {
        chomp;
        -e $_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31298	31397	
==>atter is mainy useful if you want modules from multiple
sets in the same disk directory.  In the fir <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31298	31397	
==>atter is mainy useful if you want modules from multiple
sets in the same disk directory.  In the fir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13356	13452	
==>ibute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13356	13452	
==>ibute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13356	13452	
==>ibute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15741	15834	
==>ng an error message, the
application's developer should see more details than joe public would <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15741	15834	
==>ng an error message, the
application's developer should see more details than joe public would <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9861	9964	
==>ts = split(/::/,$name); pop(@parts);
	    $class = join("::",@parts) if @parts;
	}

	my $args = "[".join <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	983	1081	
==>O - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when sta <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	983	1081	
==>O - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	606	799	
==>= @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	606	799	
==>= @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	606	799	
==>= @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Disp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10178	10317	
==>y @list = @{ $self->available };
            
            my @maybe;
            for my $test ( grep { $_->package ne $inst_pkg->package } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7302	7404	
==>rse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# R <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7302	7404	
==>rse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13128	13234	
==>for when you have a zero-width chunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5039	5135	
==>itor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5039	5135	
==>itor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5039	5135	
==>itor });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12483	12616	
==>ber, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2859	2982	
==>ber, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2859	2982	
==>ber, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1161	1265	
==>elf: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1161	1265	
==>elf: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

me <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1529	1632	
==>tests first.  Collect links and format as HTML
    as we go.  Then get the design docs, and format those <==
3	/Users/nnunley/pugs/util/package-osx.pl	8238	8348	
==>Subroutine.3pm
        /usr/local/man/man3/Perl6::Spec::Syntax.3pm
        /usr/local/man/man3/Perl6::Tutorial. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1003	1095	
==>h Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %ent <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1003	1095	
==>h Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %ent <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2023	2272	
==>on

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2023	2272	
==>on

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface:: <==
3	/Users/nnunley/pugs/util/func_refact.pl	1996	2092	
==>t, new=>$new}});
    print "union: while adding $new, entered with $oldsize, leaving with $size\n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12963	13089	
==>ion( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16440	16566	
==>ion( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15802	15928	
==>ion( $other );
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28823	28941	
==>INGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28823	28941	
==>INGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MY <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	194	300	
==>INGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2684	2811	
==>false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2684	2811	
==>false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2684	2811	
==>false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17347	17478	
==>=> {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17347	17478	
==>=> {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1767	1870	
==>" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 re <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1756	1872	
==>O $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1756	1872	
==>O $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22404	22501	
==>nd Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3295	3415	
==>description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3295	3415	
==>description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4819	4939	
==>description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $description?, $t <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	37	153	
==>0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'sta <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	37	153	
==>0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'sta <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19825	19938	
==>lock :words {  # see 12.1
      <'{'> <StatementList>? <'}'>
}
rule StatementList :words {  # see 12.1
      <Stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4961	5141	
==>{
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0]->{out}= \$_[1] }\n";
    }
    $prec = "P000";
    for my $level ( rev <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	28	126	
==>----------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use i <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	28	126	
==>----------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9339	9482	
==>ve.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3907	4020	
==>set!' unless _('$.testplan');
            push @{_('@:results')} => $test;
            _('$.output')->write( $test <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12632	12730	
==>:init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12632	12730	
==>:init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12632	12730	
==>:init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	658	786	
==>method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	658	786	
==>method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	658	786	
==>method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16489	16622	
==>x error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger VMS messages that won't be expected
        $results =~ s/\n?% <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1039	1144	
==>- $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1039	1144	
==>- $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2822	2956	
==>%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2822	2956	
==>%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2822	2956	
==>%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5274	5413	
==>lob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical sco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5274	5413	
==>lob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical sco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5274	5413	
==>lob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical sco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10798	10927	
==>ods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10798	10927	
==>ods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10798	10927	
==>ods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class->[2] <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	673	777	
==>sh(@coded,$_ ~ "=" ~ url_encode(%Session{$_}));
    }
    return @coded.join('&');
}
 
sub SessionDecode( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11795	11894	
==>{ $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11789	11888	
==>{ $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11831	12027	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11831	12027	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11831	12027	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Cl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5749	5852	
==>tem B<status returns Hash>

This method calls the superclass C<status> method and adds the values of the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5749	5852	
==>tem B<status returns Hash>

This method calls the superclass C<status> method and adds the values of the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7946	8049	
==>tem B<status returns Hash>

This method calls the superclass C<status> method and adds the values of the <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18467	18582	
==>$id_pair = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => comb(
			fun => comb (
				fun <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36107	36237	
==>need to return the regex representation of our children:

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40219	40313	
==>MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must car <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40219	40313	
==>MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must car <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1440	1533	
==>s{}';
use constant RPe_BGROUP => --$ENUM, 'Reference to nonexistent group';
use constant RPe_E <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	851	960	
==>T_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	851	960	
==>T_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	398	502	
==>use base qw/Blondie::Node::Map/;

	use Carp qw/croak/;

	sub fmap {
		my $self = shift;
		die "annotation <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	198	331	
==>~~ %h        # ?%h{$s}
%h ~~ /regex/   # ein passender Hash-Key
%a ~~ %b        # gleiche Hashes
any($a,'b',/regex/) ~~ any(@a, 'c', ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	5	104	
==>r/bin/pugs
use v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	5	104	
==>r/bin/pugs
use v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	458	559	
==>=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	458	559	
==>=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	458	559	
==>=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6107	6231	
==>rint $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6107	6231	
==>rint $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6107	6231	
==>rint $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12152	12254	
==>from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12152	12254	
==>from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12152	12254	
==>from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3445	3554	
==>(25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3445	3554	
==>(25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3445	3554	
==>(25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && - <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4975	5077	
==>cord any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test ha <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4975	5077	
==>cord any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6499	6601	
==>cord any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test ha <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	165	293	
==><==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thun <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2092	2219	
==><==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thun <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2545	2655	
==>q "infix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "postfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1604	1692	
==>::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Intern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1604	1692	
==>::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Intern <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1604	1692	
==>::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9907	10034	
==>splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9907	10034	
==>splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9907	10034	
==>splice 3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1628	1739	
==>@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1616	1727	
==>@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1653	1763	
==>mpile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1653	1763	
==>mpile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1653	1763	
==>mpile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7774	7882	
==>-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	19	115	
==>-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	19	115	
==>-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9898	10015	
==>_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will han <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9898	10015	
==>_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will han <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9898	10015	
==>_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	597	698	
==>elf->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	597	698	
==>elf->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	597	698	
==>elf->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2432	2550	
==>\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$con <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2432	2550	
==>\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14217	14312	
==>18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Missing braces on \%s{}

=item RPe_RBRA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12737	12826	
==>Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12737	12826	
==>Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12737	12826	
==>Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	344	434	
==>re PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	344	434	
==>re PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	344	434	
==>re PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2621	2774	
==>nClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2621	2774	
==>nClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2621	2774	
==>nClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5341	5442	
==>d_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number o <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5341	5442	
==>d_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	576	709	
==>Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  shif <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	289	389	
==>() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messag <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	289	389	
==>() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	101	206	
==>Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to over <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	101	206	
==>Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to over <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	101	206	
==>Root is the * of the JavaScript code later.
# Why not simply use * here too? Because we don't want to over <==
3	/Users/nnunley/pugs/util/func_refact.pl	2126	2248	
==>onf{debug} eq $new;
    return $size - $oldsize; # new member count
}

sub candidates {
    my %cands;
    my $ccset = shif <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1782	1898	
==>> 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # cap <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1782	1898	
==>> 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # cap <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3953	4059	
==>is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3953	4059	
==>is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5477	5583	
==>is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Buil <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9317	9440	
==>on ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expressio <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	713	834	
==>on ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expressio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37333	37448	
==>nd => 0);
    });
  }

We've added a handler, and added an argument to the constructor.  The
argument is a true or f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14173	14281	
==>igit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7373	7476	
==>led test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wan <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7431	7534	
==>led test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2209	2312	
==>ss $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2209	2312	
==>ss $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2209	2312	
==>ss $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9364	9505	
==>nation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9557	9698	
==>nation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38876	38966	
==>ISUAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7287	7437	
==>return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7287	7437	
==>return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7287	7437	
==>return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	799	908	
==>print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	799	908	
==>print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	799	908	
==>print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFilte <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16986	17078	
==>certain localization methodology
in an easily accessable manner, such that would not be possi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16986	17078	
==>certain localization methodology
in an easily accessable manner, such that would not be possi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2961	3375	
==>t:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Exte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2961	3375	
==>t:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Exte <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52476	52573	
==>bol->new('@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6538	6639	
==>ed object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6538	6639	
==>ed object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6538	6639	
==>ed object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3398	3532	
==>self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3398	3532	
==>self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3398	3532	
==>self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $self.keys {
        push @res, $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6467	6583	
==>_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6467	6583	
==>_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ nu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26545	26649	
==>retty print :t zip");
}




# tests for the type inferrencer
is(t($id), "∀α. α → α", ":t id");
is( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5875	6041	
==>var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5875	6041	
==>var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5875	6041	
==>var i = 1; i < match.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2390	2528	
==>my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2390	2528	
==>my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2390	2528	
==>my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21091	21214	
==>usible places to hide data.
Perl_re_dup just copies them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #def <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2840	2931	
==>yedText::Message $message!) {
    my Str $user_text = $translator.translate_message( $messag <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2840	2931	
==>yedText::Message $message!) {
    my Str $user_text = $translator.translate_message( $messag <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16180	16281	
==>ined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2589	2690	
==>ined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10924	11050	
==>ackage => $inst_pkg );
    
    ### move this all to Installation.pm
    $self->write or return;
    
    ### unisntall metadat <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5078	5203	
==>(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Io <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5078	5203	
==>(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Io <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35363	35460	
==>utes in common; it will only accept inputs that would result in
a cross-product when joined.  This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39913	40010	
==>utes in common; it will only accept inputs that would result in
a cross-product when joined.  This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39473	39570	
==>utes in common; it will only accept inputs that would result in
a cross-product when joined.  This <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2149	2278	
==>ou meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2149	2278	
==>ou meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2149	2278	
==>ou meant :i:s ?" if $k eq ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3329	3469	
==>Walker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3329	3469	
==>Walker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3685	3825	
==>Walker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	706	845	
==>(.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);
      --&RxPOS;

      $S->warn(RPe_BADESC, $c = $n, "") if <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	832	936	
==>iables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, % <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	832	936	
==>iables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1902	2016	
==>$params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role 'T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19671	19763	
==>ctor. For example,
C<Net::IRC> automatically tries to use slight variations of the nickname i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19671	19763	
==>ctor. For example,
C<Net::IRC> automatically tries to use slight variations of the nickname i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6156	6337	
==>Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shif <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6156	6337	
==>Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shif <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1357	1466	
==>.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1357	1466	
==>.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9363	9468	
==>{
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf('-') is part of -CPerl5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3897	4051	
==>[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3897	4051	
==>[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	648	754	
==>? bit->new(1) : bit->new(0) }
sub to_str { 
    # eventually must deal with Inf and NaN
    return str->new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1442	1592	
==>attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1647	1797	
==>attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1708	1858	
==>attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->sup <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16025	16203	
==>o {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16019	16197	
==>o {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	134	256	
==>$_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	134	256	
==>$_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	134	256	
==>$_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	780	874	
==>>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	780	874	
==>>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	76	173	
==>pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	76	173	
==>pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	76	173	
==>pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (N <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13566	13701	
==>handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13566	13701	
==>handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34878	35014	
==>s {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      type => 'and',
      raw => ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22737	22829	
==>mmand Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22737	22829	
==>mmand Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3443	3562	
==>e;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3443	3562	
==>e;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3443	3562	
==>e;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpD <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5436	5554	
==>ions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $s <==
3	/Users/nnunley/pugs/util/grokprims.pl	545	657	
==>";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $assoc{$assoc} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13873	13990	
==>ailable languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of the f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13873	13990	
==>ailable languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of the f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8046	8242	
==>p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8046	8242	
==>p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8046	8242	
==>p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3715	3828	
==>rser bug fix/workaround
    package Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11606	11694	
==>pected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() thoug <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11664	11752	
==>pected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() thoug <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5139	5241	
==>'RULE')->code();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _open => $(), } }
RULE
*{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4896	4995	
==>ssert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4896	4995	
==>ssert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $docu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1900	2003	
==>ort_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1900	2003	
==>ort_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1900	2003	
==>ort_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $nam <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1687	1784	
==>rs..
##multi method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601 <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3546	3642	
==>rs..
#multi method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3046	3142	
==>.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnost <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3046	3142	
==>.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnost <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3126	3222	
==>.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnost <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4114	4213	
==>hich the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=ba <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4114	4213	
==>hich the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=ba <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9195	9283	
==>b { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3020	3108	
==>b { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4207	4327	
==>be either a closure or a block";    
    my $list = list->new();
    foreach my $val (@{$self}) {
        if ($closure->i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3691	3809	
==>end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3691	3809	
==>end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4549	4696	
==>) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<star <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4549	4696	
==>) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<star <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3003	3108	
==>nstance_attrs($self)->{'%:methods'}->{$label};
        }
    },
);
# The 'Object' class
my $Object = $Clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16740	16848	
==>ace even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16740	16848	
==>ace even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14664	14758	
==>ted.

The lvalue form of C<keys> is not longer supported. Use the C<.buckets>
property instead. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1697	1810	
==>g(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5174	5287	
==>g(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4104	4217	
==>g(Str) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3708	3872	
==>k_this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package = package_name(     $path );
                    my $versio <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	352	443	
==>rldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dial <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	352	443	
==>rldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dial <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8137	8304	
==>ch(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8137	8304	
==>ch(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8137	8304	
==>ch(match);
    #        g_array.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5221	5332	
==>cumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5221	5332	
==>cumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1138	1399	
==>defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1138	1399	
==>defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	970	1102	
==>hen List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5515	5621	
==>ssibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5515	5621	
==>ssibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5515	5621	
==>ssibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3583	3710	
==>name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3583	3710	
==>name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3583	3710	
==>name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        = <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1232	1336	
==>mbers));
    return $answer;
}

method member($self: $item) returns Object {
    return $item if $self.in <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1232	1336	
==>mbers));
    return $answer;
}

method member($self: $item) returns Object {
    return $item if $self.in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1075	1184	
==>calar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added box <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1075	1184	
==>calar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added box <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1075	1184	
==>calar' temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2486	2607	
==>reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2486	2607	
==>reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2486	2607	
==>reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3223	3378	
==>]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3470	3625	
==>]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10349	10446	
==>opaque $self:) returns list { 
    %:methods.keys;
}

(method get_method_list ((opaque $self:)) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16899	16993	
==>yModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16899	16993	
==>yModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3081	3202	
==>self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3582	3703	
==>self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14542	14639	
==>e as C<zip(keys %hash; values %hash)>

In Scalar context, they all return the count of elements th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4209	4328	
==>ed ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4209	4328	
==>ed ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4209	4328	
==>ed ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2322	2441	
==>.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $description, $reason) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9416	9519	
==>t if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9416	9519	
==>t if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14243	14357	
==>0) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14243	14357	
==>0) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4534	4648	
==>rgs{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $args{name};
        $args{p <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2275	2388	
==>rgs{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $args{name};
        $args{p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8663	8767	
==>ss = $params->[0]{'type'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE($code_bod <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16099	16376	
==>_attributes')
                      ->apply(
                          block->new($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5315	5421	
==>$name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5315	5421	
==>$name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5315	5421	
==>$name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_role->name($nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3333	3454	
==>undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3333	3454	
==>undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3333	3454	
==>undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5076	5226	
==>ex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5076	5226	
==>ex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5076	5226	
==>ex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($patter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	42	170	
==>(function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	42	170	
==>(function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	42	170	
==>(function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7565	7721	
==>name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7565	7721	
==>name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7565	7721	
==>name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6543	6668	
==>[]
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6543	6668	
==>[]
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6543	6668	
==>[]
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4038	4135	
==>ew();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4038	4135	
==>ew();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4038	4135	
==>ew();

$::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3758	3864	
==>stem runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3623	3727	
==>stem runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19619	19712	
==>->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19619	19712	
==>->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19619	19712	
==>->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->i <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1418	1523	
==>rser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1418	1523	
==>rser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1309	1408	
==>.
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against ree <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1309	1408	
==>.
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against ree <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1309	1408	
==>.
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against ree <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6940	7073	
==>/sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6928	7061	
==>/sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	92	184	
==>mar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	92	184	
==>mar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27742	27833	
==>x::__object__> first,
then from the F<Regexp::Parser::*> object of the same name, and finall <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29440	29535	
==>es.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33992	34087	
==>es.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33156	33251	
==>es.  The members of the argument C<$attrs> are the names of the
invocant's attributes to split/u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39671	39772	
==>$length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39671	39772	
==>$length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39671	39772	
==>$length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2856	2984	
==>L ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2856	2984	
==>L ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2856	2984	
==>L ? "" : "var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2789	2884	
==>erl6-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2789	2884	
==>erl6-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3136	3231	
==>erl6-style variable binding,
as well as subroutine call argument passing and binding, in Perl 5. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6018	6128	
==>orofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6018	6128	
==>orofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6018	6128	
==>orofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21810	21957	
==>tement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22089	22236	
==>tement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	574	666	
==>lue::List       is JSX::InternalValue;
class JSX::InternalValue::Completion is JSX::InternalV <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1528	1662	
==>f ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1528	1662	
==>f ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.pa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2669	2774	
==>nds $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_ra <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2669	2774	
==>nds $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_ra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	897	1002	
==>ken->compile(q( \: <rule_name> { return $<rule_name> . " => 0" } ))->code;

*rule = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3119	3230	
==>ada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The su <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3119	3230	
==>ada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9986	10104	
==>c);
  });

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11265	11371	
==>TROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11265	11371	
==>TROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	965	1087	
==>1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} - $increment;
      }
      elsif($prec =~ /is tighter\( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	889	1007	
==>>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	889	1007	
==>>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1358	1451	
==>values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroLis <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1358	1451	
==>values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroLis <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14668	14860	
==>f{@dir_files};
                my @f = sort keys %f;
                print "LEAKED FILES: @f\n";
                @dir_files = @new_dir_files;
            }
        }
    } # foreach test
    $t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	717	822	
==>ROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

metho <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	717	822	
==>ROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

metho <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	30	129	
==>r::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	30	129	
==>r::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13007	13100	
==>class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13007	13100	
==>class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13007	13100	
==>class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14073	14169	
==>tine has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14073	14169	
==>tine has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1469	1560	
==>turn &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1469	1560	
==>turn &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10603	10704	
==>unction that will select a record from the
    # 'person' table, whose 'id' field matches the function <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10603	10704	
==>unction that will select a record from the
    # 'person' table, whose 'id' field matches the function <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14308	14393	
==>codes(AName,Name),
  concat_atom(['use charnames ":full";unpack("U*","\\N{',AName,'}\n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16914	17041	
==>$?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    my Relation::Example @r_with_zero_tuples;
    my Rela <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	367	478	
==>sefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	367	478	
==>sefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2345	2447	
==>ict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2345	2447	
==>ict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2345	2447	
==>ict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4793	4899	
==>skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4793	4899	
==>skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4793	4899	
==>skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	158	262	
==>as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1613	1711	
==>@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($wor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1613	1711	
==>@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11700	11893	
==>ingify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11700	11893	
==>ingify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11700	11893	
==>ingify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	962	1082	
==>=>     '<tight> [ <op> <tight> ]+',
    infix_list =>      '<tight> [ <op> <tight> ]+',
    ternary =>         '<tight> < <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26996	27104	
==>mple usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26996	27104	
==>mple usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    m <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6662	6760	
==>re($url, $file)

Gets a document identified by a URL and stores it in the file. The
return value is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6662	6760	
==>re($url, $file)

Gets a document identified by a URL and stores it in the file. The
return value is <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30336	30429	
==>s.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
director <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11453	11585	
==>ext>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from serv <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11453	11585	
==>ext>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from serv <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	979	1089	
==>ft;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_ve <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2463	2572	
==>ure;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    subme <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2463	2572	
==>ure;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    subme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	595	700	
==>ue
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	595	700	
==>ue
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	595	700	
==>ue
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	905	1012	
==>\(0+$+[0]),
    bool => \\$bool, match => \\@match, named => {}, capture => \\undef,
  }, 'Pugs::Runtime:: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3988	4132	
==>to &$c;
      my $v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not s <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1923	2027	
==>te directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1923	2027	
==>te directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12222	12331	
==>, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_comman <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12222	12331	
==>, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_comman <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17648	17800	
==>rtoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attribut <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17648	17800	
==>rtoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attribut <==
3	/Users/nnunley/pugs/util/testgraph.pl	1240	1341	
==>log_tests.pl - produce cross-linkable tests
   util/run-smome.pl     - automate the smoke process

USA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5829	5921	
==>nclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5829	5921	
==>nclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5829	5921	
==>nclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7389	7519	
==>l;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7389	7519	
==>l;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7389	7519	
==>l;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy() <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13047	13152	
==>es}} and $tainted++;

    if ($tainted) {
	# We will assume that if you're running under -T, you really me <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14969	15056	
==>w(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_nu <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14969	15056	
==>w(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3014	3128	
==>}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3014	3128	
==>}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3014	3128	
==>}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Uti <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	351	496	
==>ttribute )
                 },
    };

sub generate_p6mm {
    my $self = shift;

    my $schema = $self->schema;

    for my $class ( $schema->cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2227	2326	
==>less $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $ex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2139	2236	
==>less $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4196	4288	
==>e' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4196	4288	
==>e' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4196	4288	
==>e' => ::make_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2482	2594	
==>for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2482	2594	
==>for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2482	2594	
==>for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11256	11369	
==>hs, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( $self->{_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24849	24943	
==>tware Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24849	24943	
==>tware Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13959	14059	
==>rom_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13959	14059	
==>rom_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13959	14059	
==>rom_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5537	5667	
==>authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5537	5667	
==>authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5537	5667	
==>authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6718	6822	
==>|<term2>) <p6ws>? \;
        { return { sub_application => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6375	6466	
==>$content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6375	6466	
==>$content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3009	3111	
==>ditor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3009	3111	
==>ditor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3009	3111	
==>ditor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24713	24810	
==>ns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29265	29362	
==>ns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mappi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2316	2409	
==>name = get_str( $_[0], '$<ident>' );
    my $program = Pugs::Emitter::Rule::Perl5::emit('Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18752	18886	
==>ss::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18752	18886	
==>ss::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18752	18886	
==>ss::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        go <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19473	19607	
==>f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15894	16028	
==>f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2238	2371	
==>y( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	233	354	
==>y( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	233	354	
==>y( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3008	3134	
==>bose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3008	3134	
==>bose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3008	3134	
==>bose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9088	9233	
==>( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9088	9233	
==>( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9088	9233	
==>( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unbox <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3207	3320	
==>my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'numeric';
    }
    if($r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22278	22368	
==>tE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionall <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22278	22368	
==>tE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionall <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17609	17722	
==>ax == seen == ok.


There is one final item, the details.

  details           an array ref reporting the result o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5457	5566	
==>ed.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5457	5566	
==>ed.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9419	9512	
==>arrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9419	9512	
==>arrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9419	9512	
==>arrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";") <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16706	16807	
==>tion that expects an int and will emit an int
# add (int -> int -> int) is resolved using val(10) into <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20054	20150	
==>so in a most specific to most general order.
So inner blocks get compiled first, then outer block <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20054	20150	
==>so in a most specific to most general order.
So inner blocks get compiled first, then outer block <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8606	8714	
==>6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8606	8714	
==>6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8606	8714	
==>6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1226	1331	
==>Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1193	1298	
==>Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cw <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1243	1347	
==>ull { }
}

module Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16346	16477	
==>f this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16346	16477	
==>f this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16346	16477	
==>f this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for curre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8956	9136	
==>er_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8956	9136	
==>er_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26418	26518	
==>s, but only if you're sure the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $par <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	205	308	
==>me notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	205	308	
==>me notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3744	3838	
==>.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3744	3838	
==>.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	738	879	
==><Lazy>).add_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5721	5844	
==>]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5539	5659	
==>]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5253	5353	
==>rns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's att <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5253	5353	
==>rns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7450	7550	
==>rns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
test's att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	338	450	
==>$pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	338	450	
==>$pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = s <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3181	3283	
==>ler creates, but which we obviously don't have).

Whether this will all succeed or not is an open quest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1588	1707	
==>{
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1588	1707	
==>{
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1588	1707	
==>{
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21251	21343	
==>e specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21251	21343	
==>e specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	630	745	
==>n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	630	745	
==>n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	630	745	
==>n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2989	3132	
==>ncat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2989	3132	
==>ncat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2305	2399	
==>splay scalars containing control characters and Unicode.
# Trying to avoid setting $_, or relyi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6603	6725	
==>,
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6603	6725	
==>,
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6603	6725	
==>,
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6920	7058	
==>) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6920	7058	
==>) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6920	7058	
==>) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8127	8241	
==>ndef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8127	8241	
==>ndef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8127	8241	
==>ndef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3997	4176	
==>>untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3997	4176	
==>>untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3997	4176	
==>>untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _( <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	43	141	
==>le splitpath>;

our @.known_parsers;
my $parser_details = 'ParserDetails.ini';
# use 
# my constant <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5575	5672	
==>ls{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5575	5672	
==>ls{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2073	2182	
==>"CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2073	2182	
==>"CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2073	2182	
==>"CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23873	23969	
==>is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23873	23969	
==>is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4934	5055	
==>ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4934	5055	
==>ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4298	4396	
==>$self->reduce($_[0]) });
		my ($thunk_val, @params) = $rapp->values;

		my $thunk_type = $thunk_val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4315	4466	
==>::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4315	4466	
==>::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4315	4466	
==>::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5583	5690	
==>nd $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5583	5690	
==>nd $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5583	5690	
==>nd $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7140	7288	
==>}, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7140	7288	
==>}, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1401	1515	
==>transform it into an object
    if( $obj->can('depends') ) {
        $obj->depends( 
            JIB::Dependency->n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11386	11531	
==>>() /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	117	217	
==>new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	117	217	
==>new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1791	1894	
==>O - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1791	1894	
==>O - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1791	1894	
==>O - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	133	242	
==>nt(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	133	242	
==>nt(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	133	242	
==>nt(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3524	3634	
==>if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3664	3774	
==>if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2785	2894	
==>sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8222	8368	
==>nboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8222	8368	
==>nboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8222	8368	
==>nboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxe <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2400	2498	
==>GS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyr <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2400	2498	
==>GS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22726	22812	
==>arset_member(_,C,[class_pos(X)|_])    :- class_member(class_pos(X),C), !.
charset_membe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7413	7538	
==>ords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5889	5993	
==>ords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5889	5993	
==>ords a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	175	296	
==>Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokeniz <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	175	296	
==>Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokeniz <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	175	296	
==>Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel::Parser::Tokeniz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11449	11647	
==>STROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11449	11647	
==>STROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11449	11647	
==>STROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23935	24030	
==>$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23935	24030	
==>$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23935	24030	
==>$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19925	20151	
==>alue::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19925	20151	
==>alue::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19925	20151	
==>alue::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2235	2343	
==>rom_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if ! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2235	2343	
==>rom_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if ! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2235	2343	
==>rom_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if ! <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3471	3591	
==>{
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - ev <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3471	3591	
==>{
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8459	8603	
==>urn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8459	8603	
==>urn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8459	8603	
==>urn Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7846	7955	
==>: 0;
    my @inv = defined($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18145	18242	
==>ts the source code that it should be
looking at.

This section describes the rather complex algori <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18145	18242	
==>ts the source code that it should be
looking at.

This section describes the rather complex algori <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18160	18279	
==>to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVI <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18160	18279	
==>to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1111	1261	
==>method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1111	1261	
==>method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1111	1261	
==>method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4768	4871	
==>er to copy files to it.
  --cdroot=$cdroot
    --cdroot is the directory which will later be the / of th <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4375	4475	
==>'.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4375	4475	
==>'.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10186	10327	
==>\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6527	6668	
==>\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7376	7517	
==>\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "match::str( match: <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	105	203	
==>::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $ <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	105	203	
==>::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6779	6877	
==>compp (pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regco <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1897	1996	
==>ions => $options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8694	8789	
==>Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8752	8847	
==>Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Te <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	31	136	
==>6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.call <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	31	136	
==>6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.call <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3028	3280	
==>d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9406	9546	
==>]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9394	9534	
==>]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4397	4519	
==>esponse from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4397	4519	
==>esponse from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        % <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2663	2771	
==>et[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2663	2771	
==>et[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4519	4616	
==>erl5 => 1 - Use Perl 5 grammar and semantics for Regex.

=head2 match (Str $match_against)

Instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15835	15975	
==>' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15835	15975	
==>' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15835	15975	
==>' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::V <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22817	22920	
==>inally>
}
rule Catch :words {  # see 12.14
      <'catch'> <'('> <Identifier> <')'> <Block>
}
rule Final <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5571	5753	
==>t
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5571	5753	
==>t
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5571	5753	
==>t
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6646	6751	
==>(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6646	6751	
==>(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6646	6751	
==>(function () {
  PIL2JS.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2515	2658	
==>x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2515	2658	
==>x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2515	2658	
==>x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5851	6097	
==>t RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6315	6561	
==>t RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1760	1963	
==>" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1760	1963	
==>" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1760	1963	
==>" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3667	3825	
==>/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3667	3825	
==>/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3667	3825	
==>/trait.t
#

role tieable => {
    methods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' => <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	411	528	
==>bless {}, $class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5068	5211	
==>ding to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I ju <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5068	5211	
==>ding to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9327	9480	
==>"\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9327	9480	
==>"\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9327	9480	
==>"\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->el <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	678	802	
==>ype {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	678	802	
==>ype {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5532	5741	
==>Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation::Example {

    die "Som <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3107	3291	
==>Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6584	6768	
==>Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4964	5101	
==>thod($method_name);
            # otherwise ... add the method in 
            $self->add_method($method_name => $role->get_method($method <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4768	4894	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4961	5087	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7062	7186	
==>if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7062	7186	
==>if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4237	4357	
==>s eq 'str') if !((~$x & $x) eq 0);
    return ($cls eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($cls eq 'num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11305	11401	
==>class Test::Builder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1761	1853	
==>class Test::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1761	1853	
==>class Test::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3643	3763	
==>' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14207	14308	
==>}
rule PostfixExpression :words {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHandSideExpres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1636	1744	
==>ndef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1636	1744	
==>ndef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1636	1744	
==>ndef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL::undef_of( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13946	14103	
==>gnore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13946	14103	
==>gnore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13946	14103	
==>gnore request if index == undef
                #   store/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1452	1566	
==>e VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1452	1566	
==>e VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1452	1566	
==>e VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2505	2655	
==>Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2505	2655	
==>Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2505	2655	
==>Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10730	10825	
==>issing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10730	10825	
==>issing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Ros <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8111	8203	
==>ew();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does('rBar'), '.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	340	457	
==>. 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	340	457	
==>. 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	340	457	
==>. 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is now ($i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13550	13658	
==>nated or not {}-balanced

=item RPe_SWNREC (-6)

Switch condition not recognized

=item RPe_SWBRAN (-7)

Swit <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7801	7894	
==>returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should as <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7801	7894	
==>returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21328	21422	
==>s.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21328	21422	
==>s.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1236	1325	
==>y, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, ex <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1236	1325	
==>y, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6652	6764	
==>= {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6652	6764	
==>= {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6652	6764	
==>= {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (need <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7777	7883	
==>alue::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7777	7883	
==>alue::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7777	7883	
==>alue::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5295	5398	
==>$value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5295	5398	
==>$value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5295	5398	
==>$value;
}));

=pod

Thoughts on ::Package's API:

- LOCATE

FETCH and STORE work on very basic levels, b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2361	2532	
==>elf = shift;
                my $idx = shift;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2311	2458	
==>ifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2311	2458	
==>ifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23535	23707	
==>) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23535	23707	
==>) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23535	23707	
==>) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2563	2683	
==>elf) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2563	2683	
==>elf) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2563	2683	
==>elf) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) {
      retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6923	7121	
==>rried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6923	7121	
==>rried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6923	7121	
==>rried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1326	1451	
==>::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1326	1451	
==>::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1326	1451	
==>::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15710	15822	
==>et_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15710	15822	
==>et_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15710	15822	
==>et_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confes <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14806	14937	
==>disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18283	18414	
==>disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17699	17830	
==>disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5465	5572	
==>@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5465	5572	
==>@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5465	5572	
==>@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1411	1502	
==>_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1411	1502	
==>_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1411	1502	
==>_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute('%:attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18815	18941	
==>{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20173	20299	
==>{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8324	8441	
==>&{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8324	8441	
==>&{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5651	5803	
==>("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7413	7565	
==>("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	633	743	
==>E__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	633	743	
==>E__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	633	743	
==>E__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4631	4754	
==>Pe_NOTERM);
    }
    &Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub object {
  retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1492	1606	
==>ntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1492	1606	
==>ntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1834	2057	
==>ym('&fact'),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						),
					),
				),
			),
		),
		result => 120,
		name => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23162	23283	
==>handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19583	19704	
==>handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2357	2487	
==>od { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2357	2487	
==>od { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2357	2487	
==>od { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $class_nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17589	17739	
==>dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &Rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14010	14160	
==>dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &Rx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31028	31147	
==>ethod label
        symbol->new('_make_dispatcher_iterator'),
    # method body
        method->new(
            $::ENV, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17792	17905	
==>paque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17792	17905	
==>paque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17792	17905	
==>paque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamor <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6837	7024	
==>if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_on <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6837	7024	
==>if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_on <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4652	4764	
==>[5], } }
    | exp '.' BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8668	8816	
==>'$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8668	8816	
==>'$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_descript <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8668	8816	
==>'$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3256	3376	
==>.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3256	3376	
==>.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3256	3376	
==>.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18772	18946	
==>,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18772	18946	
==>,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18772	18946	
==>,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	524	625	
==>::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # packag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	524	625	
==>::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # packag <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5019	5113	
==>blech\@web.de>
Many thanks to: Michael Hartmann <michael.hartmann\@as-netz.de>
USAGE

GetOption <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5874	5976	
==>add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5874	5976	
==>add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7987	8135	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8180	8328	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closu <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7885	7980	
==>/parrot/include -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1075	1165	
==>esult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_descripti <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1075	1165	
==>esult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_descripti <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7324	7437	
==>EQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7324	7437	
==>EQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7704	7805	
==>err,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	637	735	
==>retty prints the dependency declaration from the META.info.
It will turn an entry like this:

depen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23485	23573	
==>mentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23485	23573	
==>mentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1719	1859	
==>ir -type f | grep '$Metaext\$'] ) {
        chomp $meta;
        
        print "Indexing '" . basename($meta) ."'\n";
        
        my $h <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5387	5514	
==>'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'T <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5387	5514	
==>'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	696	805	
==>ws>? \{ <rule> \}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_name'} = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	64	163	
==>f p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
req <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	64	163	
==>f p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
req <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	800	894	
==>d_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	800	894	
==>d_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_n <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22481	22573	
==>!.
charset_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11536	11655	
==>_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $alt; 
    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3697	3800	
==>tion.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname um <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3697	3800	
==>tion.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname um <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2952	3066	
==>sg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2952	3066	
==>sg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27717	27809	
==>bjects inherit from F<MyRx::__object__> first,
then from the F<Regexp::Parser::*> object of t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1192	1292	
==>use map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with i <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1192	1292	
==>use map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2661	2748	
==>nk=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2661	2748	
==>nk=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2661	2748	
==>nk=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$min <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1845	1946	
==>ted;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1903	2004	
==>ted;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3419	3570	
==>::Config->new

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Obj;
        
        my $self = shift;
        $Obj     = $self <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35708	35799	
==>ional operator that takes a single
Relation::Example in its C<$other> argument, where <$othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37740	37831	
==>ional operator that takes a single Relation::Example
in its C<$other> argument, where <$othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3547	3706	
==>ovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no stric <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3547	3706	
==>ovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no stric <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3547	3706	
==>ovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no stric <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1232	1340	
==>add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1232	1340	
==>add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1232	1340	
==>add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3072	3194	
==>= p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3072	3194	
==>= p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3072	3194	
==>= p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15374	15563	
==>ymbol->new('$class:' => 'opaque'), 
                              symbol->new('$repr'   => 'str'), 
                              symbol->new('%params' => 'hash')
                          ) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1310	1409	
==>y $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1368	1467	
==>y $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3223	3324	
==>h/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3223	3324	
==>h/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3223	3324	
==>h/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3585	3713	
==>calar => '$' . $_[0]->() ,} }
            ) ),
        '$.' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5833	5943	
==>{
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args h <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5833	5943	
==>{
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10225	10370	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10225	10370	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10225	10370	
==>> [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2535	2633	
==>s does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2535	2633	
==>s does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2535	2633	
==>s does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $s <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	511	613	
==>ath) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, ver <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	511	613	
==>ath) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, ver <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5848	5946	
==>s::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix: <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1353	1454	
==>s, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1353	1454	
==>s, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22985	23079	
==>ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4089	4268	
==>{ $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4089	4268	
==>{ $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4089	4268	
==>{ $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}- <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3423	3546	
==>$r->[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	450	550	
==>],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is success <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	450	550	
==>],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is success <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	640	738	
==>printf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	640	738	
==>printf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	640	738	
==>printf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2730	2854	
==>egex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2113	2219	
==>ader (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2113	2219	
==>ader (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if no <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	349	477	
==>ler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9767	9895	
==>ler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	426	547	
==>Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	426	547	
==>Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1478	1579	
==>&?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1478	1579	
==>&?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1478	1579	
==>&?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4336	4444	
==>mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4336	4444	
==>mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4336	4444	
==>mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2343	2445	
==>undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2343	2445	
==>undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2343	2445	
==>undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	66	169	
==>taclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# tha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	66	169	
==>taclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40274	40397	
==>s->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40274	40397	
==>s->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40274	40397	
==>s->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33650	33757	
==>ween these
is C<< $self->{data} >>, which is the node's child.

=head2 Creating an Object

Ok, back to our F <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2535	2637	
==>ule_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2535	2637	
==>ule_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	666	774	
==>ub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	666	774	
==>ub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19024	19152	
==>$xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in Pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19024	19152	
==>$xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in Pri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19024	19152	
==>$xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in Pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5510	5632	
==>::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5510	5632	
==>::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5510	5632	
==>::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5869	6020	
==>", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5881	6032	
==>", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented" <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	10	101	
==>l. Santa Claus golf game test program.
# For more detail: http://www.perlmonks.org/?node_id= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8151	8296	
==>list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4511	4656	
==>list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5360	5505	
==>list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8754	8883	
==>{
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( exp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	920	1039	
==>{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( exp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	920	1039	
==>{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( exp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2896	3018	
==>.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2896	3018	
==>.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4420	4542	
==>.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17129	17218	
==>te('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17129	17218	
==>te('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17129	17218	
==>te('%:private_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16485	16709	
==>ft; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16485	16709	
==>ft; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16485	16709	
==>ft; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2690	2783	
==>sprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2690	2783	
==>sprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2690	2783	
==>sprelude_path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1391	1502	
==>b {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1391	1502	
==>b {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1391	1502	
==>b {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1572	1686	
==>x.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1572	1686	
==>x.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1572	1686	
==>x.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	218	333	
==>$srcdir (@ARGV ) {
    
    ### copy all the relevant files to the repo
    for my $archive ( qx[find root-* -type f <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	473	571	
==>nction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	473	571	
==>nction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1218	1316	
==>ant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1218	1316	
==>ant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1218	1316	
==>ant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2375	2497	
==>fix';
        my $template = $rule_templates{$rule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1354	1452	
==>and a Body.



the Pad contains My/State/Temp markers for container

allocation, as well as the com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1296	1391	
==>and a Body.

the Pad contains My/State/Temp markers for container
allocation, as well as the com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	574	676	
==>elete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	574	676	
==>elete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	574	676	
==>elete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8442	8582	
==>stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' } <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8442	8582	
==>stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' } <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1991	2085	
==>$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s}
sub _indent_except_top {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	393	487	
==>urce.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds nothi <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	393	487	
==>urce.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds nothi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18570	18679	
==>$tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19928	20037	
==>$tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7109	7217	
==>andler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0);
    if(sv != NULL && SvTR <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2054	2228	
==>ernatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dirs
$config <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1055	1160	
==>r(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1055	1160	
==>r(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1055	1160	
==>r(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FETCH( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	292	385	
==>e Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	292	385	
==>e Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	292	385	
==>e Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require PIL::Ru <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8190	8310	
==>pendencies
    {   open my $fh, $self->files_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $self- <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2055	2162	
==>ontent_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2055	2162	
==>ontent_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	264	365	
==>:Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	264	365	
==>:Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	264	365	
==>:Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3600	3696	
==>ay.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3600	3696	
==>ay.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3600	3696	
==>ay.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8533	8642	
==>:CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8533	8642	
==>:CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8533	8642	
==>:CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9711	9875	
==>p::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9990	10154	
==>p::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       , <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2089	2192	
==>arams>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<name> <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1669	1763	
==>irectory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by thi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1509	1603	
==>irectory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14231	14333	
==>ss->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14231	14333	
==>ss->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14231	14333	
==>ss->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	723	830	
==>()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_ran <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	723	830	
==>()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_ran <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	723	830	
==>()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separate from_num_ran <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7681	7801	
==>an1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7681	7801	
==>an1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( sta <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6617	6729	
==>ALL */

    
    /* XXX Does regcomp.c zero any of the match fields? */
}

/*
 * regexp_compile
 */

static regco <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1920	2030	
==>constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1931	2041	
==>constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17059	17170	
==>ue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17059	17170	
==>ue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17059	17170	
==>ue - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7291	7441	
==>rn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7291	7441	
==>rn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7291	7441	
==>rn Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3328	3439	
==>p @{ $self->{stack} } while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1264	1370	
==>%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Arr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1264	1370	
==>%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2294	2423	
==>as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2294	2423	
==>as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2294	2423	
==>as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1790	1907	
==>"Expected:\n"; print STDERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oops, you failed.\n";
   }
}

# - <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14837	14934	
==>- is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14895	14992	
==>- is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3244	3359	
==>m += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3244	3359	
==>m += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3244	3359	
==>m += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isn <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13899	14000	
==>span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, be <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13899	14000	
==>span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, be <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	248	333	
==>ref/rules
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/E05.pod
  http://s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1	98	
==>!/usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1	98	
==>!/usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1	98	
==>!/usr/bin/perl

use warnings;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20103	20195	
==>implementation can be changed greatly (it isn't what's important;
the interface/behaviour is) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24655	24747	
==>implementation can be changed greatly (it isn't what's important;
the interface/behaviour is) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23207	23299	
==>implementation can be changed greatly (it isn't what's important;
the interface/behaviour is) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8529	8640	
==>:capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_ca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35317	35412	
==>s of new().

=item C<get_set_names()>

This method returns all Set Names elements in this object <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35317	35412	
==>s of new().

=item C<get_set_names()>

This method returns all Set Names elements in this object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3456	3571	
==>thod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5506	5621	
==>thod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4462	4577	
==>thod' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5537	5637	
==>a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5537	5637	
==>a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5537	5637	
==>a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22504	22598	
==>ee op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22504	22598	
==>ee op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22504	22598	
==>ee op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2156	2269	
==>de) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2156	2269	
==>de) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub i <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	480	680	
==>spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1 <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	480	680	
==>spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3907	4006	
==>ds_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3907	4006	
==>ds_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3907	4006	
==>ds_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14	124	
==>erl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14	124	
==>erl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14	124	
==>erl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	699	827	
==>le parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	699	827	
==>le parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6021	6131	
==>fix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6021	6131	
==>fix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6021	6131	
==>fix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	219	324	
==>nt(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	219	324	
==>nt(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	219	324	
==>nt(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function ( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	770	924	
==>_dir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            sy <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9411	9513	
==>self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9411	9513	
==>self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7487	7626	
==>n   = @_ ? shift : 1;

    for (1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    local $^W = 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8207	8333	
==>b{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7925	8044	
==>b{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	522	634	
==>RGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	522	634	
==>RGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	522	634	
==>RGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3555	3659	
==>piler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.cod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3555	3659	
==>piler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2935	3045	
==>@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2935	3045	
==>@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2935	3045	
==>@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11884	12024	
==>= qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11884	12024	
==>= qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6119	6216	
==>decl => $() ,} }
RULE
*{'sub_defin'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub < <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3494	3602	
==>ss &RxLEN;
  $self->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @st <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36742	36834	
==>Relation::Example>

This multi-method is a generic binary relational operator that is like
C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37242	37334	
==>Relation::Example>

This multi-method is a generic binary relational operator that is like
C< <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14748	14930	
==>h;   # 1 to 12 - NOTE 1-based
    has Int  $.day;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 to 59
    has Int  $.sec;     # 0 to 61 (up to two leap s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5866	5961	
==>ol::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns B <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5866	5961	
==>ol::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns B <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4778	4917	
==>]\n";
            warn "Can't detailize, too big.\n";
        }
        else {
            #Generates the details based on the last test lin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19098	19206	
==>(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15519	15627	
==>(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	956	1082	
==>c_rule->match($str)    for 1..40},
        P6_Token   => sub{ $match = $rpc_token->match($str)   for 1..40},
        P6_Regex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23806	23931	
==>ub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24085	24210	
==>ub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1121	1232	
==>"-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1121	1232	
==>"-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1121	1232	
==>"-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->ev <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3739	3864	
==>,            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3739	3864	
==>,            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	589	714	
==>,            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,' <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2009	2100	
==>fig{cc} $Config{ccflags} $exename.c\n";
    if (system("$Config{cc} $Config{ccflags} $minus <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23059	23149	
==>>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23059	23149	
==>>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7484	7613	
==>_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7472	7601	
==>_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unles <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13265	13400	
==>\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9451	9586	
==>\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10287	10422	
==>\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1050	1163	
==>tr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1050	1163	
==>tr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1050	1163	
==>tr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2956	3088	
==>e sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2956	3088	
==>e sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2956	3088	
==>e sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1475	1608	
==>ay "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1475	1608	
==>ay "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1475	1608	
==>ay "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $count++;
    say "ok $co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14105	14229	
==>end

.sub "parse_dollar"
    .param pmc mob
    .local string target
    .local int pos, lastpos
    .local pmc newfrom, mfro <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	645	738	
==>p://www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L< <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	645	738	
==>p://www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3588	3693	
==>&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3588	3693	
==>&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3588	3693	
==>&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5559	5651	
==>t::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5559	5651	
==>t::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7756	7848	
==>t::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple public
a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1951	2062	
==>back);
  my $r_address;
  my $regexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$np <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6506	6611	
==>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6518	6623	
==>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "com <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3991	4272	
==>it(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3991	4272	
==>it(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6546	6644	
==>new($cls,$name,...):\n$@\n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|O <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6527	6631	
==>ngs ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : c <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6527	6631	
==>ngs ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : c <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	755	869	
==>AULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	755	869	
==>AULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4829	4917	
==>fix this please refer to:

   http://www.haskell.org/ghc/docs/5.04/html/building/winbuild <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1860	1966	
==>ices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1860	1966	
==>ices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1860	1966	
==>ices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a[1..Inf])=(1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2622	2723	
==>|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2622	2723	
==>|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2622	2723	
==>|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4369	4475	
==>@_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4369	4475	
==>@_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4369	4475	
==>@_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	9	135	
==>Pkg_re_tests;
use strict;

our $bl;  # this is questionable.


# verbatim from perl-5.9.2/t/op/regexp.t
our $bang = sprintf "\\ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1237	1331	
==>to other uses as well.

Log::Selective exports a single function, C<note>, which is called with <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1237	1331	
==>to other uses as well.

Log::Selective exports a single function, C<note>, which is called with <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1798	1974	
==>domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1798	1974	
==>domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17940	18049	
==>tab = '$'.$cls.'::{$_[0]}';
		  "  exists $symtab\n     ? \${$symtab} : \n";};
    $code .= "sub p6__lookup {\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12361	12488	
==>s $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12640	12767	
==>s $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9247	9351	
==>=> 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9247	9351	
==>=> 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9247	9351	
==>=> 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx- <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5402	5612	
==>..
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 i <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5402	5612	
==>..
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 i <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	645	769	
==>tr) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns Num is builtin is primitive {
    my $time = time;
    P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15649	15785	
==>efined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15649	15785	
==>efined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15649	15785	
==>efined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4263	4408	
==>'¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4263	4408	
==>'¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => ' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34057	34150	
==>on::Example whose attributes
(provided in C<$heading>) may or may not resemble those of the or <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8903	9015	
==>r development.
  no warnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12798	12906	
==>ent) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12798	12906	
==>ent) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9050	9179	
==>xact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_flag('i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1094	1194	
==>ery line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

cod <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1094	1194	
==>ery line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

cod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10452	10614	
==>| [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3527	3689	
==>| [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25607	25702	
==>s why the C<regex> value is a reference, and thus why I'm using
C<${&Rx}> everywhere, it's becau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15561	15688	
==>f => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15561	15688	
==>f => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15561	15688	
==>f => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8058	8155	
==>mmediately.  This method should be as thorough as 
possible; for example, it should not merely set <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8058	8155	
==>mmediately.  This method should be as thorough as 
possible; for example, it should not merely set <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	755	902	
==>[$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	198	316	
==>ag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	198	316	
==>ag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	266	366	
==>w PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	266	366	
==>w PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	266	366	
==>w PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	598	697	
==>hing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	598	697	
==>hing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	598	697	
==>hing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1471	1628	
==>less => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	reba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1471	1628	
==>less => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	reba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1471	1628	
==>less => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	reba <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9193	9368	
==>hecking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            & <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9193	9368	
==>hecking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            & <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19435	19535	
==>not the same as a table.

The intended interface and use of this class in Perl programs is similar to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23987	24087	
==>not the same as a table.

The intended interface and use of this class in Perl programs is similar to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22503	22603	
==>not the same as a table.

The intended interface and use of this class in Perl programs is similar to <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1423	1566	
==>be())."," }
    $s .= "\n " if @{$o};
    $s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20082	20174	
==>d as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20082	20174	
==>d as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<g <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3561	3663	
==>new>

This is a Factory method used to create a specific class instances which
perform the Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3561	3663	
==>new>

This is a Factory method used to create a specific class instances which
perform the Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5758	5860	
==>new>

This is a Factory method used to create a specific class instances which
perform the Test::Builde <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2291	2449	
==>m->new(
					arity => 3,
					name => '&cast',
					body => \&do_cast,
					type => [ "Type" => "Type" => $to ],
				),
			),
			$node,
			( map { $class->buil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7142	7249	
==>ode {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7154	7261	
==>ode {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9907	10055	
==>e', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10186	10334	
==>e', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8141	8246	
==>witches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$comma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4093	4207	
==>l5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immedi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4942	5056	
==>l5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immedi <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1787	1889	
==>[ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5353	5485	
==>et implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5353	5485	
==>et implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5353	5485	
==>et implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3255	3361	
==>ead.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expressio <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3255	3361	
==>ead.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expressio <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3941	4046	
==>n->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__

#li <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5300	5405	
==>n->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__

#li <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1249	1374	
==>e that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4727	4852	
==>e that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	694	792	
==>ccess('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	694	792	
==>ccess('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	694	792	
==>ccess('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8655	8788	
==>d) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8655	8788	
==>d) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8655	8788	
==>d) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8363	8469	
==>ck>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8363	8469	
==>ck>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2438	2541	
==>def {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2438	2541	
==>def {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2438	2541	
==>def {Scalar->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8448	8590	
==>tring(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8448	8590	
==>tring(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18599	18730	
==>.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),int($a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5747	5883	
==>efix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5747	5883	
==>efix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10923	11019	
==>->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10923	11019	
==>->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10923	11019	
==>->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	825	931	
==>get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail " <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	825	931	
==>get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail " <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3705	3842	
==>b.o';
        my $basename = $pathname;
        $basename =~ s!.*/!!;

        # XXX - work around Cabal bug --
        # we have to locat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5940	6059	
==>r
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5940	6059	
==>r
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1730	1844	
==>cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1730	1844	
==>cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16200	16304	
==>ain->("ref") },
      glob  => sub { $as_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	950	1054	
==>ass ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	950	1054	
==>ass ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	950	1054	
==>ass ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2058	2176	
==>',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, cir <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2058	2176	
==>',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, cir <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5315	5410	
==>);
  my $currentOperatorTable = $self->whitespaceOperatorTable();
  
  (substr $target, $positio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3711	3818	
==>0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3711	3818	
==>0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3711	3818	
==>0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1518	1612	
==>::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<see <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1518	1612	
==>::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<see <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	268	375	
==>ule( q() => q( \d+ { return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'In <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9709	9812	
==>ubble up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_he <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9709	9812	
==>ubble up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6235	6354	
==>(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6235	6354	
==>(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the stand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6235	6354	
==>(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the stand <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1103	1229	
==>r {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }
 multi sub Array::join (@values,   Str $delimiter) r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	418	528	
==>nnot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	418	528	
==>nnot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3341	3454	
==>an (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accen <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3341	3454	
==>an (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accen <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8272	8375	
==>pm r8593.
# not in S29draft, but test cases exist.
multi Array::min(@self; Code $cmp = &infix:«<=>» -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	798	923	
==>9425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	798	923	
==>9425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	798	923	
==>9425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10988	11076	
==>::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10988	11076	
==>::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10988	11076	
==>::Class->add_method('_make_breadth_dispatcher' => ::make_private_method(sub {
    my @sta <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8267	8368	
==>erator::nullary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "can't u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33563	33654	
==>intersection (Relation *@others) returns Relation>

This multi-method is the N-ary version o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38113	38204	
==>intersection (Relation *@others) returns Relation>

This multi-method is the N-ary version o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3961	4064	
==>' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3961	4064	
==>' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3961	4064	
==>' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1493	1621	
==>\$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1493	1621	
==>\$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7812	7923	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bles <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5014	5141	
==>f>;
    }
}

for my $c (qw(

              conv_self conv_array conv_hash conv_reference
              conv_foreach conv_package <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4482	4582	
==>take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4482	4582	
==>take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28011	28174	
==>lf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28011	28174	
==>lf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28011	28174	
==>lf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28335	28438	
==>rx) \
	 STMT_START {if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1803	1904	
==>$match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1803	1904	
==>$match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6303	6488	
==>to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6303	6488	
==>to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6303	6488	
==>to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24799	24910	
==>sy access to the parser
object's most important attributes:

  # access to the regex
    # reference to the rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	806	933	
==>el, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	806	933	
==>el, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	806	933	
==>el, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5759	5857	
==>.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5759	5857	
==>.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5759	5857	
==>.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	155	277	
==>:Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	155	277	
==>:Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	155	277	
==>:Class
# the result of this file is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %para <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9239	9392	
==>n,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10230	10383	
==>n,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22747	22858	
==>ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("listi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1492	1637	
==>ft;
                $self->_extend_to_slot($idx);
                $self->get_value('@:slots')->[$idx] = $container;
            },

            'a <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2294	2418	
==>w the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can mayb <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2294	2418	
==>w the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can mayb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13121	13220	
==>gl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13121	13220	
==>gl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13121	13220	
==>gl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unac <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	413	520	
==>se constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTab <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2000	2195	
==>ssage.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2000	2195	
==>ssage.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8812	8957	
==>,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9005	9150	
==>,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29069	29169	
==>fectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33621	33721	
==>fectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32758	32858	
==>fectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	887	991	
==>ead1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net:: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	887	991	
==>ead1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9951	10061	
==>) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9951	10061	
==>) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9951	10061	
==>) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1035	1289	
==>S{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1035	1289	
==>S{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14467	14575	
==>unction type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arrow;
	
	
	my $p_f = $f->left;
	my $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9571	9694	
==>: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5912	6035	
==>: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6761	6884	
==>: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7116	7283	
==>ms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7309	7476	
==>ms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24548	24642	
==>ribute value.

Every Relation::Example attribute has a name that is distinct from the other
att <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38401	38507	
==>closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42950	43056	
==>closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42600	42706	
==>closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2896	2998	
==>d = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2896	2998	
==>d = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2896	2998	
==>d = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mo <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2675	2772	
==>my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_nam <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2675	2772	
==>my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_nam <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9607	9744	
==>);
        }
        $i++;
        my $v = LET($X::pos){ $f->($fagain) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$c,$no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1184	1285	
==>ce_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	923	1019	
==>ce_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1128	1224	
==>ce_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22068	22164	
==>it
returns the first one it finds.  This also works for the multiple language
or permissions issu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22068	22164	
==>it
returns the first one it finds.  This also works for the multiple language
or permissions issu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15242	15347	
==>_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15242	15347	
==>_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15242	15347	
==>_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2737	2847	
==>return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2737	2847	
==>return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2737	2847	
==>return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1282	1376	
==>if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1282	1376	
==>if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1282	1376	
==>if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	589	731	
==>sif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	677	819	
==>sif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	674	811	
==>sif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_no <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1634	1724	
==>akefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3595	3685	
==>akefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1634	1724	
==>akefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2573	2698	
==>btitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2573	2698	
==>btitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2920	3045	
==>btitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3897	3995	
==>educe its children one by one. First Param will
introduce a new symbol, $x, taking the 10 off the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17008	17125	
==>num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17008	17125	
==>num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17008	17125	
==>num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	830	942	
==>re
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1035	1147	
==>re
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1091	1203	
==>re
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7570	7683	
==>span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7570	7683	
==>span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1 <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1523	1631	
==>= File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^. <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1523	1631	
==>= File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5238	5336	
==>lf->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp::Parser::__obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	863	976	
==>ox(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoder <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	863	976	
==>ox(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoder <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	863	976	
==>ox(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoder <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	230	352	
==>1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	230	352	
==>1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	230	352	
==>1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        re <==
3	/Users/nnunley/pugs/util/config_h.pl	1503	1611	
==>d.  If you want
    Template Haskell support, please compile your GHC with the
    GHCi option.

.
}

close O <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4418	4511	
==>=item B<create( *@args )>

This method actually creates and returns a new Test::Builder instan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4418	4511	
==>=item B<create( *@args )>

This method actually creates and returns a new Test::Builder instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5942	6035	
==>=item B<create( *@args )>

This method actually creates and returns a new Test::Builder instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8485	8654	
==>ethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8485	8654	
==>ethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8485	8654	
==>ethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	348	457	
==>>no_match unless $_[0];
    #print "match pair $_[0]\n";
    return Pugs::Runtime::Match->new( { 
        bool <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33416	33512	
==>pt that the returned Relation contains only tuples that are in
all of the source Relations.  This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37966	38062	
==>pt that the returned Relation contains only tuples that are in
all of the source Relations.  This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23056	23242	
==>f->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23056	23242	
==>f->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23056	23242	
==>f->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $scalar;
                    #my $ret = Scalar->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1032	1125	
==>MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1032	1125	
==>MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1032	1125	
==>MiniMetaModel_w_Roles.pl

$::Role = undef;

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3009	3150	
==>}
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3009	3150	
==>}
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3009	3150	
==>}
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6402	6619	
==>ould use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6402	6619	
==>ould use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6402	6619	
==>ould use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $s <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10707	10857	
==>ge? ";
            ReadMode(3);
            my $y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skip <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2129	2239	
==>n::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2129	2239	
==>n::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4021	4131	
==>y.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4021	4131	
==>y.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6914	7012	
==>efore the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6914	7012	
==>efore the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher> <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1217	1313	
==>sible runtime (pil2js or pilrun), and/or
  motivating implementations in p5/p6/haskell.
  - perha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3805	3923	
==>LASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3805	3923	
==>LASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3805	3923	
==>LASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8737	8849	
==>}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8737	8849	
==>}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8737	8849	
==>}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	422	520	
==>$self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	422	520	
==>$self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	422	520	
==>$self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11450	11625	
==>@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11450	11625	
==>@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11450	11625	
==>@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can properly <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13180	13309	
==>q ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' | <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8754	8859	
==>ent<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8754	8859	
==>ent<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %chan <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6257	6345	
==>"path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh)) <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6257	6345	
==>"path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4699	4801	
==>};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4699	4801	
==>};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4699	4801	
==>};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7500	7652	
==>- $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7500	7652	
==>- $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7500	7652	
==>- $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1173	1278	
==>del::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1173	1278	
==>del::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent No <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37319	37417	
==>ecks whether or not it has already been
loaded, returning true if so and false if not.

=item C<loa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37319	37417	
==>ecks whether or not it has already been
loaded, returning true if so and false if not.

=item C<loa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20627	20721	
==>],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx],[C|Fx],[],[],E0,E0) :- !, char <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1369	1465	
==>t help people running existent versions of perl5.  Perhaps
# because the challenges being faced w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5635	5742	
==>, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5635	5742	
==>, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6225	6332	
==>, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	193	293	
==>rl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	193	293	
==>rl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	193	293	
==>rl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	798	900	
==>y $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	798	900	
==>y $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	878	980	
==>y $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
my @expe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1028	1145	
==>ue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1028	1145	
==>ue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1028	1145	
==>ue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2941	3042	
==>h, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2941	3042	
==>h, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2941	3042	
==>h, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6070	6166	
==>al fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6070	6166	
==>al fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6070	6166	
==>al fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11672	11781	
==>if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11672	11781	
==>if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11672	11781	
==>if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	914	1027	
==>\$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	914	1027	
==>\$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	914	1027	
==>\$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PU <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14366	14513	
==>g=>"head")->push_content(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           type => "text <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2060	2204	
==>ent ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2060	2204	
==>ent ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8916	9034	
==>rev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8916	9034	
==>rev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1255	1353	
==>x) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1255	1353	
==>x) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1255	1353	
==>x) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7310	7441	
==>efined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7310	7441	
==>efined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7310	7441	
==>efined).BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          // <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1162	1262	
==>$link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1162	1262	
==>$link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1162	1262	
==>$link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	681	779	
==>::signature')))
        || confess "signature must be an closure::params or closure::signature type <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20676	20771	
==>u
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20676	20771	
==>u
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36957	37071	
==>arn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36957	37071	
==>arn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36957	37071	
==>arn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->ele <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	473	591	
==>less( \%args, $class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20663	20762	
==>nstead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names ar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20663	20762	
==>nstead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names ar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4858	5017	
==>ll dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternative <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4098	4233	
==>ll dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternative <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3354	3479	
==>me => $_[3], block => $_[5], %{$_[4]} } }
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5779	5906	
==>ule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6628	6755	
==>ule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print " <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	201	297	
==>ay;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$welt.hallo($person);
$welt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4216	4318	
==>MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4216	4318	
==>MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4216	4318	
==>MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4490	4607	
==>ation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7967	8084	
==>ation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2013	2124	
==>socations }
       );
}

# sigh ... how you get used to infrastructure you've built up in Perl5

=head1 NAME

Me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	105	254	
==>] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	105	254	
==>] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4006	4136	
==>>{flags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7359	7493	
==>aptures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7359	7493	
==>aptures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7359	7493	
==>aptures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	214	300	
==>-------------------------------------------------------------------
## This is an exten <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	182	268	
==>-------------------------------------------------------------------
## This is an exten <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	319	425	
==>).pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	319	425	
==>).pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	319	425	
==>).pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4144	4268	
==>p { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4144	4268	
==>p { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4144	4268	
==>p { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22038	22167	
==>rd($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') {
	$mn .= "::META";
    } else {
	my $space = $space_fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8800	8969	
==>number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12702	12839	
==>number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12702	12839	
==>number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', tail => $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13832	13988	
==>"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n#endblock\n";
    
            # register new s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8342	8443	
==>less \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8330	8431	
==>less \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1158	1252	
==>"Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1158	1252	
==>"Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1158	1252	
==>"Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==» <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2205	2310	
==>be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2205	2310	
==>be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2205	2310	
==>be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - multisubs <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	252	350	
==>um_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	252	350	
==>um_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	150	257	
==>e options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	150	257	
==>e options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	150	257	
==>e options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CP <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2347	2627	
==>) {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2347	2627	
==>) {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2019	2162	
==>ebug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    loca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3012	3128	
==>b = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3000	3116	
==>b = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace & <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7602	7717	
==>imiter --> Str )
{
    List::join $delimiter, *@values;
}

# signature from S29draft.pod 8655.  In the List section. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	476	574	
==>p (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	476	574	
==>p (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	476	574	
==>p (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1118	1221	
==>t::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1118	1221	
==>t::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1118	1221	
==>t::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8377	8480	
==>BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	581	678	
==>BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	581	678	
==>BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Buil <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6595	6718	
==>ent $re"
  }
}
{
  # . \C
  package Regexp::Parser::reg_any;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6193	6309	
==>t
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6193	6309	
==>t
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2305	2417	
==>rn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2305	2417	
==>rn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2305	2417	
==>rn $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	553	664	
==>ction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	553	664	
==>ction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	553	664	
==>ction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14171	14274	
==>rt => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate throug <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14171	14274	
==>rt => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate throug <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3754	3841	
==>ed(Z) --> p5_elemental(W), p5_quantified_op(W, Z).
p5_quantified_op(W, Z) --> p56_quanti <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5687	5798	
==>nd && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5687	5798	
==>nd && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11054	11152	
==>entage to not be comparable.<br />
    The percentage of passed tests is calculated using the total <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38274	38395	
==>ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42823	42944	
==>ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42473	42594	
==>ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1656	1782	
==>ad $Metafile";

    my $deps    = $struct->{depends};
    
    print "Translating:\n";
    print Dump( $deps );
    print "\n\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3397	3489	
==>\$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3397	3489	
==>\$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1804	1905	
==>($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1804	1905	
==>($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1804	1905	
==>($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2083	2180	
==>dir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2083	2180	
==>dir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2663	2766	
==>e
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@f <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2663	2766	
==>e
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1120	1222	
==>lf->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n$self- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5786	5881	
==>e', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scop <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5786	5881	
==>e', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scop <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2685	2780	
==>e', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scop <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27978	28085	
==>invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32530	32637	
==>invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31622	31729	
==>invocant.  This method will fail if any keys of C<$attrs>
duplicate attribute names of the invocant Relation <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11514	11647	
==>cation
        @inc = grep !/perl_root/i, @inc;

    } elsif ( $self->{_is_win32} ) {
        # Lose any trailing backslashes in the W <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2587	2691	
==>r::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2587	2691	
==>r::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1663	1765	
==>rn $self;
}

=head2 $files = $pkg->files

Returns an arrayref of files installed by this package

=head <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1533	1631	
==>rface is good enough for many purposes.  
Although the interface is said to be procedural, it is in <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1533	1631	
==>rface is good enough for many purposes.  
Although the interface is said to be procedural, it is in <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20528	20632	
==>aller


# tie tied untie


# -X accept alarm bind binmode chown close closedir connect eof fcntl
# fileno <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31713	31810	
==>om a user config file or a user interface that the
current user is fluent in (and prefers) languag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31713	31810	
==>om a user config file or a user interface that the
current user is fluent in (and prefers) languag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8628	8813	
==>'$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8628	8813	
==>'$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8628	8813	
==>'$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	324	421	
==>e type, which are checked against each other for agreement at BUILD time
for the below classes.

= <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	324	421	
==>e type, which are checked against each other for agreement at BUILD time
for the below classes.

= <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	593	714	
==>urrent position of the match (also holds the
                  string that is being matched against).
    $.match     - St <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	593	714	
==>urrent position of the match (also holds the
                  string that is being matched against).
    $.match     - St <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17024	17132	
==>y twice: once for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6432	6537	
==>%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6432	6537	
==>%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6432	6537	
==>%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5975	6069	
==>ype', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5975	6069	
==>ype', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2874	2968	
==>ype', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	386	502	
==>elf;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	386	502	
==>elf;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	386	502	
==>elf;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3046	3143	
==>te($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3046	3143	
==>te($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3046	3143	
==>te($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10395	10558	
==>efined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10395	10558	
==>efined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10395	10558	
==>efined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4437	4574	
==>next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are as <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4437	4574	
==>next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are as <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4437	4574	
==>next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are as <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	707	817	
==>odes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	707	817	
==>odes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	707	817	
==>odes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15628	15837	
==>)
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15628	15837	
==>)
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15628	15837	
==>)
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22596	22690	
==>$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22596	22690	
==>$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22596	22690	
==>$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31631	31728	
==>yet another set for itself.  When the program is run, it would
determine either from a user config <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31631	31728	
==>yet another set for itself.  When the program is run, it would
determine either from a user config <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2560	2655	
==>x:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2560	2655	
==>x:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2560	2655	
==>x:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5237	5341	
==>t deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5237	5341	
==>t deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5237	5341	
==>t deal with $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4861	5019	
==>dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives/ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4101	4235	
==>dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives/ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5551	5676	
==>t)\
\\n   Int       pre     unshift safe   (rw!Array, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Array)\
\\n   Sc <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6412	6563	
==>1,
        unexpect    => $12,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4029	4165	
==>{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4029	4165	
==>{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34715	34830	
==>ss = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34715	34830	
==>ss = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34715	34830	
==>ss = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9486	9598	
==>= '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $descri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1589	1691	
==>= '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1589	1691	
==>= '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $descri <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3136	3239	
==>aram<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3136	3239	
==>aram<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1733	1855	
==>asic::log($x,$base);
 }
 multi Math::Basic::log ( Num $x = CALLER::<$_>, Num :$base --> Num )
 {
     fail "log of 0 is not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2198	2334	
==>urn $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2198	2334	
==>urn $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2198	2334	
==>urn $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1882	2008	
==>header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5359	5485	
==>header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4289	4415	
==>header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.key <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7203	7340	
==>:/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7203	7340	
==>:/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1599	1708	
==>mbol->new('%:methods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($methods- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9015	9139	
==>6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9015	9139	
==>6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9015	9139	
==>6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1022	1136	
==>t slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1022	1136	
==>t slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1022	1136	
==>t slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13232	13339	
==>ll( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16709	16816	
==>ll( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16071	16178	
==>ll( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper subset of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11812	11928	
==>::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11812	11928	
==>::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11812	11928	
==>::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3766	3864	
==>d_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3766	3864	
==>d_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4356	4454	
==>d_only) {
	    croak "named argument ".$param->name." is required"
		unless $param->is_optional;
	} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33771	33902	
==>VERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33771	33902	
==>VERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33771	33902	
==>VERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18902	19027	
==>to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18902	19027	
==>to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18902	19027	
==>to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12750	12888	
==>s $n->{exp1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _em <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12604	12703	
==>ce is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Re <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12604	12703	
==>ce is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17709	17802	
==>other attribute, C<charmap>,
which is a hash reference holding character values (eg. 65 for 'A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	163	284	
==>emented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	163	284	
==>emented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	163	284	
==>emented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11824	11981	
==>gram = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2862	2978	
==>previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2862	2978	
==>previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25707	25844	
==>ssertion',
      type => 'logical',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13197	13290	
==>ategory, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13197	13290	
==>ategory, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	37	141	
==>e is too much in this file 

### separate into:

- Introduction

- Documentation Index

- Compiler intern <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	30	130	
==>e is too much in this file 
### separate into:
- Introduction
- Documentation Index
- Compiler intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18783	18909	
==>hable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18783	18909	
==>hable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18783	18909	
==>hable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1603	1759	
==>return \@state;
    }
}

sub concat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do {
            my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5400	5506	
==>dded as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5400	5506	
==>dded as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1544	1656	
==>ed";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/ht <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1544	1656	
==>ed";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/ht <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9491	9581	
==>me));

	push(@args,"invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=>1") if $op{'is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6570	6662	
==>uthority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6570	6662	
==>uthority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6570	6662	
==>uthority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8804	8918	
==>y $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSafe - 

=h <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15882	15977	
==>st

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distribut <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15940	16035	
==>st

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distribut <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2406	2520	
==>TALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1926	2019	
==>cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1926	2019	
==>cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5166	5281	
==>lt generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {.. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5166	5281	
==>lt generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {.. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5099	5192	
==>to figure out positional constructors.  At least it's isolated here. :(
sub new_box {get_meta( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16290	16394	
==>0 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16290	16394	
==>0 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16290	16394	
==>0 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1807	1922	
==>")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1807	1922	
==>")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1807	1922	
==>")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15196	15299	
==>(map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB as <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15196	15299	
==>(map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB as <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15196	15299	
==>(map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB as <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1559	1671	
==>finite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1559	1671	
==>finite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5730	5818	
==>ver 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2. <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5730	5818	
==>ver 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6734	6863	
==>ub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $lab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6734	6863	
==>ub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $lab <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4030	4150	
==>ifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4030	4150	
==>ifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n h <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16739	16832	
==>Results

The C<%results> returned from C<analyze()> contain the following
information:

  pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12739	12874	
==>')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12739	12874	
==>')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12739	12874	
==>')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not e <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1893	2063	
==>%events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1893	2063	
==>%events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	66	167	
==>er/;

use strict;
use warnings;

use Blondie::Nodes;

use Test::Deep;
use Test::Exception;

our @EXPOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	753	858	
==>FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	753	858	
==>FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	753	858	
==>FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7886	8003	
==>ss defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7874	7991	
==>ss defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\ <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	631	790	
==>tok eq '+') {
            push @stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1254	1441	
==>scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1254	1441	
==>scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1254	1441	
==>scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1644	1770	
==>rcname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1644	1770	
==>rcname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14496	14600	
==>c->abs2rel() but that does getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35982	36097	
==>ged.  The heading
of the new relation is the union of the invocant and <$other> headings. 
The body of the new relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40532	40646	
==>ged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The body of the new relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40146	40260	
==>ged.  The heading
of the new relation is the union of the invocant and <$other> headings.
The body of the new relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4296	4445	
==>= defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4296	4445	
==>= defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4296	4445	
==>= defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11396	11545	
==>didate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11396	11545	
==>didate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11396	11545	
==>didate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_ty <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25912	26017	
==>s, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't being renamed. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30464	30569	
==>s, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't being renamed. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29439	29544	
==>s, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't being renamed. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11841	11972	
==>@others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15318	15449	
==>@others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14653	14784	
==>@others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2788	2898	
==>should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2788	2898	
==>should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2788	2898	
==>should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5531	5680	
==>n OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5995	6144	
==>n OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	480	580	
==>) { return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span:: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	480	580	
==>) { return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14740	14915	
==>eturn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14740	14915	
==>eturn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14740	14915	
==>eturn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1414	1523	
==>2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1414	1523	
==>2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1414	1523	
==>2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38785	38896	
==>hift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38785	38896	
==>hift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38785	38896	
==>hift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	84	188	
==>nt BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	84	188	
==>nt BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	84	188	
==>nt BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	327	507	
==>s => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	327	507	
==>s => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	327	507	
==>s => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ], <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	256	455	
==>::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	257	456	
==>::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4760	4860	
==>&SIZE_ONLY;
  my $self = shift;
  $self->force_object(@_);
}


sub force_object {
  Carp::croak("clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1823	1932	
==>eate base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1823	1932	
==>eate base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1823	1932	
==>eate base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to Perl6::Param signature ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3001	3142	
==>FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3001	3142	
==>FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3001	3142	
==>FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	57	168	
==>ire '_inc.pl';
    protoconf->import();
}

use File::Basename;
use YAML            qw[LoadFile DumpFile];


@ARG <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9871	9971	
==>$string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9871	9971	
==>$string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2259	2376	
==>recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2259	2376	
==>recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2259	2376	
==>recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6959	7082	
==>nal param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6959	7082	
==>nal param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6959	7082	
==>nal param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self->{tpDefa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1212	1323	
==>ift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	951	1057	
==>ift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1156	1262	
==>ift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	172	299	
==>= '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	172	299	
==>= '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descri <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1429	1544	
==>g/;

    ...

    $self->enter_scope; # opens a new scope

    $self->new_pad("name" => $value); # shadows any previ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13501	13627	
==>IS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13501	13627	
==>IS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16007	16103	
==><'>'> <ShiftExpression>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpression>
    | <Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	764	859	
==>RO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	764	859	
==>RO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	764	859	
==>RO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1851	1955	
==>ull_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1851	1955	
==>ull_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($fu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1851	1955	
==>ull_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	635	742	
==>ew PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" start <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	635	742	
==>ew PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" start <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	635	742	
==>ew PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" start <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	785	892	
==>l6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	785	892	
==>l6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	785	892	
==>l6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	674	792	
==>lass
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	674	792	
==>lass
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	674	792	
==>lass
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1246	1334	
==>JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1246	1334	
==>JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1246	1334	
==>JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(fun <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1794	1925	
==>alue {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Num <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1794	1925	
==>alue {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Num <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11717	11812	
==>$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is_netware || $is_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8975	9095	
==>. $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8975	9095	
==>. $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8975	9095	
==>. $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24179	24317	
==>eop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24458	24596	
==>eop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13829	13938	
==>s => ascii => $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($ <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	324	433	
==>q() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD { <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	324	433	
==>q() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	585	690	
==>int "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing failure diagnostic
# mess <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14691	14805	
==>he user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14691	14805	
==>he user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14152	14260	
==>registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    m <==
3	/Users/nnunley/pugs/util/build_pugs.pl	192	294	
==>efs;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..'; };
use lib 'inc';
use PugsBu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31196	31291	
==>new Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<gr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35746	35841	
==>new Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<gr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3121	3226	
==>API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3121	3226	
==>API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTIO <==
3	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	41	142	
==>r $pkg, Int $arg = 0 is copy) returns Void {
    my $newarg = [~] $arg.split("").grep:{ $_ ~~ rx:Perl5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	517	651	
==>le->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	517	651	
==>le->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22977	23069	
==>(and usually third-party) classes, which at the very least
must determine the storage represe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2503	2637	
==>JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2503	2637	
==>JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2503	2637	
==>JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6119	6248	
==>>{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6119	6248	
==>>{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6119	6248	
==>>{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # wa <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	748	843	
==>$self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	748	843	
==>$self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5985	6122	
==>e.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5985	6122	
==>e.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3249	3386	
==>.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3442	3579	
==>.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6360	6454	
==>"no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($varlist)$init; use strict;") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	753	878	
==>and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	753	878	
==>and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	753	878	
==>and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1409	1515	
==>array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1409	1515	
==>array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1409	1515	
==>array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	252	350	
==>t;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<P <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	252	350	
==>t;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<P <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	482	635	
==>{
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tm <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	482	635	
==>{
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tm <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	491	596	
==>does($role);
 $newclass.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6245	6340	
==>'new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6245	6340	
==>'new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6245	6340	
==>'new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12701	12856	
==>{
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12701	12856	
==>{
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12701	12856	
==>{
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" u <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3402	3535	
==>nt _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avai <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3866	3999	
==>nt _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avai <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8947	9057	
==>"*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8947	9057	
==>"*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2037	2163	
==>: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2177	2303	
==>: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2436	2557	
==>if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4105	4202	
==>e => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4105	4202	
==>e => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3317	3406	
==>$code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3317	3406	
==>$code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7278	7370	
==>});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7278	7370	
==>});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7278	7370	
==>});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17735	17832	
==>iginating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17735	17832	
==>iginating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server he <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	148	247	
==>rom_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Pe <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	148	247	
==>rom_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1939	2046	
==>ulti sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1939	2046	
==>ulti sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1939	2046	
==>ulti sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
} <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	284	406	
==>cr}  ||= "(no description)";
  $args{ensure} ||= sub { 1 };
  $args{using}  ||= sub {};
  $args{help}   ||= "";

  $args{he <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	577	686	
==>):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	577	686	
==>):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4346	4584	
==>shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLAS <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1780	1880	
==>e, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
c <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1780	1880	
==>e, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	78	208	
==>'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	78	208	
==>'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1956	2058	
==>l = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "Th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26915	27070	
==>"eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27194	27349	
==>"eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7564	7666	
==>hr(hex), @hex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "X$1") if ${&R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2572	2680	
==>ts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2572	2680	
==>ts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2572	2680	
==>ts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3369	3474	
==>if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3369	3474	
==>if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3369	3474	
==>if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	352	471	
==>ack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	352	471	
==>ack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	352	471	
==>ack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1749	1883	
==>or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1749	1883	
==>or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1749	1883	
==>or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	145	261	
==>(args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	145	261	
==>(args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	145	261	
==>(args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16844	16958	
==>ordinary natural join,
    # where some source attributes are in common, and each
    # source has attributes not i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20321	20435	
==>ordinary natural join,
    # where some source attributes are in common, and each
    # source has attributes not i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19899	20013	
==>ordinary natural join,
    # where some source attributes are in common, and each
    # source has attributes not i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1124	1247	
==>val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %* <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1124	1247	
==>val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6166	6268	
==>Object ], 
    '... $Bar class_precendence_list');

## make instances of subclasses

my $iBar = $Bar->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12799	12897	
==>6PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12799	12897	
==>6PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12799	12897	
==>6PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2627	2743	
==>mber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2627	2743	
==>mber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2627	2743	
==>mber(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17202	17336	
==>'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_val <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17202	17336	
==>'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_val <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29555	29660	
==>o = $obj->omit(VALUE)

Whether this node is omitted from the parse tree.  Certain objects
do not need to a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6452	6541	
==>ibute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authori <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6452	6541	
==>ibute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authori <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6452	6541	
==>ibute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:authori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1778	1894	
==>lX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1778	1894	
==>lX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1778	1894	
==>lX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10032	10129	
==>L::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10032	10129	
==>L::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10032	10129	
==>L::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	525	630	
==>Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	525	630	
==>Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	525	630	
==>Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2212	2309	
==>el) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2212	2309	
==>el) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2212	2309	
==>el) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13856	13971	
==>rn call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13850	13965	
==>rn call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1545	1634	
==>/\".\$m->from.\"/g;
	$expr =~ s/\$\+\[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12452	12573	
==>[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12452	12573	
==>[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12452	12573	
==>[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	406	513	
==>)
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pai <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	406	513	
==>)
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pai <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	406	513	
==>)
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pai <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2870	2990	
==>d {
    # check the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2870	2990	
==>d {
    # check the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19437	19537	
==>intf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe {
    join($com <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9917	10020	
==>("pugs_internals_m",%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1823	1920	
==>lf.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1823	1920	
==>lf.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16898	17035	
==>foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16898	17035	
==>foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16898	17035	
==>foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = un <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1324	1423	
==>m if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1324	1423	
==>m if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4711	4806	
==>for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->set_x(200);
is($p3d-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8568	8751	
==>BJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8568	8751	
==>BJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6871	6985	
==>another_singleton_test_on_object' => sub { 
   '&Object::another_singleton_test_on_object'
});

is($Object->another <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4192	4310	
==>f(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4192	4310	
==>f(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4192	4310	
==>f(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7317	7458	
==>.BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7317	7458	
==>.BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7317	7458	
==>.BINDTO(
          // Slighly hacky way to determine if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5533	5699	
==>+ $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5533	5699	
==>+ $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5533	5699	
==>+ $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13963	14063	
==>b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13963	14063	
==>b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13963	14063	
==>b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1014	1147	
==>2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1022	1147	
==>2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo ( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3043	3153	
==>n{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{synca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	541	680	
==>mitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	541	680	
==>mitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	541	680	
==>mitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32265	32358	
==>.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl modules <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32265	32358	
==>.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl modules <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15067	15156	
==>RNI), which applications invoke and which
multiple interchangeable "Engine" back-ends (usu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15067	15156	
==>RNI), which applications invoke and which
multiple interchangeable "Engine" back-ends (usu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	496	607	
==>is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	496	607	
==>is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	496	607	
==>is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26699	26797	
==>ctively.  This method will fail if
any members of C<$attrs> do not match attribute names of the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31251	31349	
==>ctively.  This method will fail if
any members of C<$attrs> do not match attribute names of the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30280	30378	
==>ctively.  This method will fail if
any members of C<$attrs> do not match attribute names of the inv <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24921	25045	
==>lication_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25200	25324	
==>lication_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3736	3830	
==>x[abd]]) (\??) <name> [ \( <argument_list> \) | <pattern> | <null> ] [\>\>|\>|\x[bbd]] }
rule a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	321	426	
==>ld_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	321	426	
==>ld_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	321	426	
==>ld_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLeve <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5843	5958	
==>r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5843	5958	
==>r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq " <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	911	1025	
==>die "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 or die "Invalid stack:[@stack]\n";
    return $stac <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	833	950	
==>mes ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * creat <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	833	950	
==>mes ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * creat <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17282	17386	
==>rns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $it <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17282	17386	
==>rns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $it <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12689	12787	
==>elf->available( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1372	1471	
==>ox.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1372	1471	
==>ox.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1372	1471	
==>ox.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME;\n";

    return ($js, @vars, qw< &? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2321	2543	
==>ew( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1461	1627	
==>ew( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1461	1627	
==>ew( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16674	16786	
==>art => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16674	16786	
==>art => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16674	16786	
==>art => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implement <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1162	1259	
==>cular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=he <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1162	1259	
==>cular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1895	1987	
==>Builder and Test::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHORS

Perl6::MetaModel 2.0 c <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8268	8386	
==>f, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8268	8386	
==>f, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2607	2705	
==>o be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $c <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2607	2705	
==>o be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8694	8792	
==>}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDefault ? DOWN($tpDefault)." " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	739	868	
==>mic { '' }

    sub fmap {
        Carp::croak "virtual method fmap called on @_";
    }

    sub str {
        Carp::croak "virtu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8910	9035	
==>ags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8599	8720	
==>ags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1937	2033	
==>t Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1937	2033	
==>t Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1937	2033	
==>t Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12426	12526	
==>"I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12426	12526	
==>"I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12426	12526	
==>"I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_at <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1304	1415	
==>);            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1304	1415	
==>);            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8719	8945	
==>@items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8719	8945	
==>@items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8719	8945	
==>@items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        r <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7475	7595	
==>, $is_multi, $lvalue, @params, $type );
    }
    elsif $tree[0] eq '"PApp"' {   
        my %app = $tree[1];  # keys: "p <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3957	4039	
==>cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://li <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3957	4039	
==>cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12416	12563	
==>{ ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12416	12563	
==>{ ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12416	12563	
==>{ ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell') <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15826	15920	
==>lic would.

Alternately, sometimes a program will raise a condition or error that,
while resemb <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15826	15920	
==>lic would.

Alternately, sometimes a program will raise a condition or error that,
while resemb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	314	538	
==>s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	180	282	
==>he 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	180	282	
==>he 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	308	406	
==>L::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	308	406	
==>L::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	308	406	
==>L::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(unde <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26973	27077	
==>ot provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26973	27077	
==>ot provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3200	3323	
==>ined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3200	3323	
==>ined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3200	3323	
==>ined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $param{cstart};
    $param{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12176	12313	
==>ap{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12176	12313	
==>ap{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12176	12313	
==>ap{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_va <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14152	14256	
==>pan = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14152	14256	
==>pan = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17392	17489	
==>vel functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17392	17489	
==>vel functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17392	17489	
==>vel functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2663	2780	
==>uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$t <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2663	2780	
==>uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$t <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1611	1719	
==>in/bash";
my $inputrc      = "/etc/inputrc";
my $terminfo     = "/etc/terminfo/l/linux";
my $linuxrc      = " <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4821	4924	
==>ntersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4821	4924	
==>ntersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @se <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2847	2954	
==>"GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2847	2954	
==>"GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3669	3816	
==>self) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:methods'}};
        },                             
    },
);
# The 'Object' clas <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	247	354	
==>s represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is ness <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	247	354	
==>s represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is ness <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44804	45047	
==>e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## -------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5606	5734	
==>tch the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5606	5734	
==>tch the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clon <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1477	1570	
==>r C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler mat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1477	1570	
==>r C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler mat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1623	1714	
==>e L<Blondie::Nodes> and some
more objects.

They provide stringification, fmapping and value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2269	2380	
==>Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2269	2380	
==>Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2269	2380	
==>Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9713	9802	
==>rn $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9713	9802	
==>rn $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9713	9802	
==>rn $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2004	2114	
==>class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2004	2114	
==>class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4648	4843	
==>s;
                print "Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1317	1428	
==>ine = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1317	1428	
==>ine = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() <==
3	/Users/nnunley/pugs/util/drift.pl	57	153	
==>c;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17899	17997	
==>ect at a time, and they are
essentially all isolated from each other, even if more than one uses th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17899	17997	
==>ect at a time, and they are
essentially all isolated from each other, even if more than one uses th <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8514	8651	
==>esults{details}};
        
        ## XXX - Begin Pugs addition
        # This addition analyzes the reason for the TODO    
        my %t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10481	10578	
==>to force into being TODO tests
then you can pass them through this function. This is primarily a r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10539	10636	
==>to force into being TODO tests
then you can pass them through this function. This is primarily a r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10977	11087	
==>es]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. Thi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10977	11087	
==>es]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11815	11984	
==>[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11815	11984	
==>[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11815	11984	
==>[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2709	2814	
==>ie $@;

    # fill the place holder with the compiled version of the builtin
    $val->set($self->reduce($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9394	9491	
==>str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9394	9491	
==>str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3105	3200	
==>ate::Gregorian::doy;
method week returns Int { int (./doy / 7) }

method day_of_month returns In <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3639	3732	
==>entation lacks the actual algorithm description. See links or read
the source (there are about <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3639	3732	
==>entation lacks the actual algorithm description. See links or read
the source (there are about <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4766	4863	
==>(@array, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice< <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	295	390	
==>(@array, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5467	5570	
==>{ p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5467	5570	
==>{ p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5467	5570	
==>{ p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4029	4166	
==>s;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4029	4166	
==>s;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4029	4166	
==>s;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	619	725	
==>ocal $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	619	725	
==>ocal $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	619	725	
==>ocal $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new P <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4840	4973	
==>}
        else {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true if it was conside <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8944	9063	
==>(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(982 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8944	9063	
==>(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(982 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12938	13084	
==>Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12932	13078	
==>Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	125	229	
==>Perl5::NodesList;
my $list;
sub get_name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$type,$name <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	195	310	
==>SubRoutine SubBlock SubPrim»;
has SubType $.subType;

# ?? do we need this?
#  has Perl::Pad $.subPad;

has Str $.s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13655	13754	
==>uage feature missing, or core bug that needs to
be sorted out before you can continue.

It is also p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13713	13812	
==>uage feature missing, or core bug that needs to
be sorted out before you can continue.

It is also p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1045	1173	
==>=> \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1045	1173	
==>=> \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1045	1173	
==>=> \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23380	23487	
==>alParameterList> <','> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <SourceElements>
}
r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	70	157	
==>::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	201	288	
==>::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Ru <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13303	13411	
==>eral>
    | <NumericLiteral>
}
rule MemberExpression :words {  # see 11.2
      <PrimaryExpression>
    | <Fu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1787	1893	
==>section( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1787	1893	
==>section( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.star <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5876	6016	
==>if !($X::pos == 0);
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr( <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	641	743	
==>required 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv = $se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	540	636	
==>required 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12689	12805	
==>}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12689	12805	
==>}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12689	12805	
==>}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7367	7521	
==>s,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7367	7521	
==>s,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7367	7521	
==>s,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8171	8331	
==>{
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8171	8331	
==>{
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8171	8331	
==>{
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3311	3469	
==>ed $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3451	3609	
==>ed $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12008	12136	
==>ix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12002	12130	
==>ix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternati <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19428	19533	
==>{
    sprintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe {
    join( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3211	3294	
==>lement_previous => $self._get_intersection( $self.complement_previous, $self.complem <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3211	3294	
==>lement_previous => $self._get_intersection( $self.complement_previous, $self.complem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17571	17772	
==>) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17571	17772	
==>) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17571	17772	
==>) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7412	7601	
==>t();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.cu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7412	7601	
==>t();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.cu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15338	15423	
==>).
re_rewrite_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	241	345	
==>scape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defin <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	241	345	
==>scape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defin <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13712	13837	
==>link>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30974	31067	
==>inal, in which case
this method returns the identity-one Relation or the invocant relation,
re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35524	35617	
==>inal, in which case
this method returns the identity-one Relation or the invocant relation,
re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1843	2037	
==>$a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1843	2037	
==>$a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1843	2037	
==>$a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # emitted as "our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4408	4551	
==>rs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4408	4551	
==>rs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4408	4551	
==>rs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4126	4260	
==>e = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4126	4260	
==>e = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4126	4260	
==>e = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1789	1910	
==>&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1789	1910	
==>&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1789	1910	
==>&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*impo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5990	6109	
==>8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5990	6109	
==>8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5990	6109	
==>8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6446	6581	
==>}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6446	6581	
==>}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6446	6581	
==>}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4951	5057	
==>= eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4951	5057	
==>= eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4951	5057	
==>= eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_method($me <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	499	652	
==>lf<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for = <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	499	652	
==>lf<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20302	20443	
==>0),
					),
					then => ide("r"),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20638	20732	
==>ery bit of the default process described above is overridable by
various methods.

=head1 DISTR <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20638	20732	
==>ery bit of the default process described above is overridable by
various methods.

=head1 DISTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1189	1286	
==>self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1189	1286	
==>self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1189	1286	
==>self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1073	1195	
==>e; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1073	1195	
==>e; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32842	32934	
==>F<Regexp::Parser::>, but that is omitted
here for brevity.  The headings are object I<classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4753	4858	
==>cted) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4753	4858	
==>cted) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4753	4858	
==>cted) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $E <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1304	1464	
==>fo';                          # Extension for meta files
$Metafile       = 'META' . $Metaext;                # file with MD in it
$Site           = $Root . $Conf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25552	25676	
==>Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21650	21801	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_si <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21929	22080	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6	121	
==>s is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     joi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6	121	
==>s is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     joi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6	121	
==>s is a Perl5 file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     joi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3617	3719	
==>n2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3617	3719	
==>n2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17672	17791	
==>lf->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) cl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9736	9847	
==>TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9736	9847	
==>TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16803	16996	
==>method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16803	16996	
==>method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16803	16996	
==>method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10610	10735	
==>@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10610	10735	
==>@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10610	10735	
==>@:superclasses'}})
            # however, we dont actually need to go there
            # if what we are asking for is a priva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6344	6478	
==>\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12104	12202	
==>.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is us <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12104	12202	
==>.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	709	815	
==>ice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	709	815	
==>ice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	709	815	
==>ice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1918	2018	
==>ram signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1918	2018	
==>ram signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1918	2018	
==>ram signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10661	10793	
==>" function gets some arguments and returns a "rule".

=cut

=for later
# experimental!
sub try { 
    my $op = shift;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	453	569	
==>tcircumfix', 
        assoc => 'non',
        name => 'postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5046	5162	
==>se MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	85	187	
==>urned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and doc <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	85	187	
==>urned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and doc <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2489	2587	
==>>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Run <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2489	2587	
==>>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Run <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	847	953	
==>dmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warn <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10556	10654	
==>r $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10556	10654	
==>r $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	704	801	
==>should not backtrack or whatever



Continuations are used for backtracking.



A "ruleop" functio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10572	10669	
==>should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" functio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	676	769	
==>should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1579	1712	
==>Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1579	1712	
==>Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1579	1712	
==>Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18013	18107	
==>p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18013	18107	
==>p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18013	18107	
==>p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2338	2614	
==>d";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2338	2614	
==>d";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2338	2614	
==>d";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2087	2186	
==>'Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2087	2186	
==>'Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2087	2186	
==>'Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::P <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5177	5295	
==>I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    if $I2 < 0 goto term_bx1
    $S2 = substr "]})>" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7612	7706	
==>nd ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementatio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7612	7706	
==>nd ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementatio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8340	8479	
==>\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8340	8479	
==>\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9031	9123	
==>ev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio So <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2457	2597	
==>d_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2457	2597	
==>d_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\ <==
3	/Users/nnunley/pugs/util/package-osx.pl	11921	12031	
==>> 0);
&copy_files($dest, @files);
&make_symlinks($dest, %symlinks) if (keys %symlinks > 0);
&create_remover($de <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8484	8579	
==>sub PIL::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; "\"$n\"";
}
sub PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33231	33322	
==>the N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37781	37872	
==>the N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7230	7320	
==>tantiates into whatever it is combined with (except instantiated variables, which delegate. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1469	1570	
==>sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1469	1570	
==>sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	52	138	
==>/perl5/site_perl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33621	33735	
==>y $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33621	33735	
==>y $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33621	33735	
==>y $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY' <==
3	/Users/nnunley/pugs/util/addauthors.pl	204	318	
==>mitter);
  $comitters{$comitter}++;
}

#foreach (sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  pri <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	263	365	
==>es would be in one file,
   and the defining macros, for each of various class hierarchies,
   in other <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	263	365	
==>es would be in one file,
   and the defining macros, for each of various class hierarchies,
   in other <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1331	1465	
==>h(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     => $config); 
    add <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7291	7411	
==>e; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7291	7411	
==>e; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11582	11691	
==>X - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::sta <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2018	2125	
==>X - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::sta <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2018	2125	
==>X - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2311	2408	
==>r.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2311	2408	
==>r.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2311	2408	
==>r.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1175	1291	
==>ns on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1175	1291	
==>ns on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1175	1291	
==>ns on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36609	36740	
==>n unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36609	36740	
==>n unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36609	36740	
==>n unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1519	1644	
==>Y EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1519	1644	
==>Y EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1519	1644	
==>Y EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2007	2103	
==>t 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2007	2103	
==>t 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1158	1246	
==>>addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1441	1545	
==>parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1441	1545	
==>parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gramma <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20377	20472	
==>ifyargs \$fun->$argl2}\n";
	eval_p5_log_code($code);
	$mfun = eval($code);
	eval_p5_log_error($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8834	8929	
==>imP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8834	8929	
==>imP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8834	8929	
==>imP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2314	2407	
==>tainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2314	2407	
==>tainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2314	2407	
==>tainer::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	282	402	
==>could be fixed with macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2685	2791	
==>brule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2869	2975	
==>brule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3266	3367	
==>ngle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3266	3367	
==>ngle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3266	3367	
==>ngle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	722	869	
==>lass' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	722	869	
==>lass' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	722	869	
==>lass' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structu <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1676	1799	
==>r writing";

    my $inblock = 0;
    my $col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11921	12014	
==>.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11921	12014	
==>.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	555	703	
==>les[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $se <==
3	/Users/nnunley/pugs/util/run-smoke.pl	142	237	
==>n, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YAML Test::TAP::Model Test::TAP <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1630	1974	
==>fix:<->'),
                                    Sym('$x'),
                                    Sym('$y'),
                                ),
                                Sym('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_a <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5752	5875	
==>ne}";
        };

        $mess;
    }
}


=kwid

role Rule {}
class Pugs::Internals::VRule does Rule {}
class Rul does Rule <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3902	4015	
==>rn unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if $1 eq $self->{dispatch};

        $file = "$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11750	11904	
==>lf->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11750	11904	
==>lf->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11750	11904	
==>lf->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2736	2846	
==>array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2736	2846	
==>array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2736	2846	
==>array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2100	2208	
==>nd();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2100	2208	
==>nd();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2100	2208	
==>nd();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run:: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6050	6154	
==>o destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/arrays <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6440	6544	
==>o destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/arrays <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5808	6014	
==>>{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	677	810	
==>NV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	677	810	
==>NV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CO <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15327	15434	
==>target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15327	15434	
==>target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8779	8896	
==>{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8779	8896	
==>{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2877	2977	
==>gnature;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	682	832	
==>op::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	682	832	
==>op::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2930	3069	
==>= _('$.number');
            $ok    .= " - " . _('$.description') if _('$.description');
            return $ok;
        }
    }
});

$::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2262	2386	
==>$out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2262	2386	
==>$out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2342	2466	
==>$out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag eq $received_diag;

    return 1 if $Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1092	1225	
==>DO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1092	1225	
==>DO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1092	1225	
==>DO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10820	10947	
==>(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10820	10947	
==>(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2862	2964	
==>ated Perl list
    Eager       Non-lazily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	974	1080	
==>d - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	974	1080	
==>d - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	974	1080	
==>d - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9874	10043	
==>do;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	446	605	
==>do;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	446	605	
==>do;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31126	31274	
==>f = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31126	31274	
==>f = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31126	31274	
==>f = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1378	1523	
==>uld be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1366	1511	
==>uld be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4394	4507	
==>bclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4394	4507	
==>bclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4394	4507	
==>bclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subcl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3983	4088	
==>hitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3983	4088	
==>hitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3983	4088	
==>hitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10926	11029	
==>ionFlags> <IdentifierPart>
}

# A.2 Number Conversions

rule StringNumericLiteral {  # see 9.3.1
      < <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31804	31897	
==>p>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a generic binary <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36354	36447	
==>p>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a generic binary <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16495	16600	
==>> '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16495	16600	
==>> '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16495	16600	
==>> '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	516	765	
==>}
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	516	765	
==>}
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4829	4965	
==>->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler::Regex->compile( q(
            <Pugs::G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4340	4441	
==>_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4340	4441	
==>_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4340	4441	
==>_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1170	1285	
==>instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1170	1285	
==>instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1170	1285	
==>instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12194	12443	
==>ay' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12194	12443	
==>ay' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12194	12443	
==>ay' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4076	4220	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4076	4220	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4076	4220	
==>++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

metho <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4983	5157	
==>urn
                          # in the Prelude: we want to exit from the
                          # *caller*'s scope.
        }
    }
}

class Carp {
    # Please remember to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36695	36792	
==>ly: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Fam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8611	8741	
==>into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4971	5101	
==>into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5820	5950	
==>into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8896	9064	
==>just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8896	9064	
==>just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8896	9064	
==>just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16256	16350	
==>f) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
corresp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16256	16350	
==>f) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
corresp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15002	15098	
==>ord) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15002	15098	
==>ord) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19445	19529	
==>h_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6972	7070	
==>t implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1327	1423	
==>t implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	426	521	
==>t implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7062	7174	
==>d,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7062	7174	
==>d,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7062	7174	
==>d,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1629	1734	
==>heck($tmpl, \%args) or error(Params::Check->last_error), return;
        
        my $obj = $class->SUPER: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6554	6652	
==>2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directive is <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6554	6652	
==>2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directive is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14418	14616	
==>) } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14418	14616	
==>) } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14418	14616	
==>) } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1081	1176	
==>ormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1081	1176	
==>ormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1081	1176	
==>ormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2249	2370	
==>y $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&form <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2249	2370	
==>y $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&form <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2596	2717	
==>y $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&form <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5532	5630	
==>export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5590	5688	
==>export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2603	2710	
==>urn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6080	6187	
==>urn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5010	5117	
==>urn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size () r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2613	2720	
==>varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2613	2720	
==>varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2613	2720	
==>varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	596	687	
==>::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	596	687	
==>::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	596	687	
==>::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1147	1284	
==>rtList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1147	1284	
==>rtList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1147	1284	
==>rtList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo ou <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26384	26479	
==>tput, any
variable values which are references will be passed by reference, so you
may store ref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26384	26479	
==>tput, any
variable values which are references will be passed by reference, so you
may store ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1765	1879	
==>n't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an appropro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1765	1879	
==>n't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an appropro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1765	1879	
==>n't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an appropro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	280	403	
==>elf = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	280	403	
==>elf = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	280	403	
==>elf = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2348	2444	
==>tring(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2348	2444	
==>tring(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2348	2444	
==>tring(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	471	623	
==>'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	471	623	
==>'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my <==
3	/Users/nnunley/pugs/util/package-osx.pl	6809	6906	
==>l6::Overview::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variable.3pm
        /usr/lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3120	3235	
==>_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3120	3235	
==>_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3120	3235	
==>_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18483	18583	
==>tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25361	25458	
==>ute
such a system following the terms of the GPL for Rosetta and the licenses
of the other compone <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25361	25458	
==>ute
such a system following the terms of the GPL for Rosetta and the licenses
of the other compone <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35312	35416	
==>rence of actual characters

=head2 quant

Family: quant

Types: star (C<*>), plus (C<+>), curly (C<?>, C< <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16274	16367	
==>chanism for
applications and packages that empowers single binaries to support N
locales or us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16274	16367	
==>chanism for
applications and packages that empowers single binaries to support N
locales or us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18887	19103	
==>l->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18887	19103	
==>l->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18887	19103	
==>l->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8762	8877	
==>5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8762	8877	
==>5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8762	8877	
==>5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10094	10191	
==>e argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10094	10191	
==>e argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26093	26183	
==>, listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2591	2709	
==>";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2591	2709	
==>";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2591	2709	
==>";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7842	7976	
==>arn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7842	7976	
==>arn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7842	7976	
==>arn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	808	935	
==>r'));
    
    my $args = list->new($inv, @args);
    
    my $class = $inv->class;
    
    # gather all the classes to look th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9195	9310	
==>ie "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13430	13534	
==>(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,} <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13430	13534	
==>(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3397	3541	
==>ess defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3397	3541	
==>ess defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3397	3541	
==>ess defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2373	2491	
==>));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2373	2491	
==>));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2373	2491	
==>));
  });
})()
EOF
      } elsif($self->{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator out <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1543	1653	
==>warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1543	1653	
==>warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1543	1653	
==>warning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2122	2280	
==>}
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2122	2280	
==>}
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2122	2280	
==>}
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2940	3346	
==>nterface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2940	3346	
==>nterface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Inte <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1422	1635	
==>] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    local $Carp::Car <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5616	5742	
==>cursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multid <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5616	5742	
==>cursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multid <==
3	/Users/nnunley/pugs/util/package-osx.pl	2101	2190	
==>al/lib/perl5/site_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3751	3877	
==>MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3751	3877	
==>MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3751	3877	
==>MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3117	3241	
==>) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3117	3241	
==>) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3117	3241	
==>) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bl <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	831	936	
==>'m here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is pr <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	831	936	
==>'m here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is pr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11535	11630	
==>lLiteral>
    | <'-'> <StrUnsignedDecimalLiteral>
}
rule StrUnsignedDecimalLiteral {  # see 9.3. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9278	9401	
==>ms_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charset_item(class_neg(X)) --> "[:^", charset_iden <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13732	13854	
==>event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13732	13854	
==>event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32608	32709	
==>ioned binary union()
operator, and the order of its arguments is not significant to the result;
the ne <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37158	37259	
==>ioned binary union()
operator, and the order of its arguments is not significant to the result;
the ne <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36466	36567	
==>ioned binary union()
operator, and the order of its arguments is not significant to the result;
the ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13177	13275	
==>l, so we'll brute force launder everything for you
	my $sep;

	eval "require Config; Config->import <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4069	4165	
==>$compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4069	4165	
==>$compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1921	2106	
==>0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1921	2106	
==>0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<sta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18945	19058	
==>ion::Example.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36822	36930	
==>dentity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41371	41479	
==>dentity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40994	41102	
==>dentity-one relation (zero attributes, one tuple),
the result is as if it wasn't there at all.  In any situat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38801	38916	
==>t = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38801	38916	
==>t = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38801	38916	
==>t = $array->clone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1059	1158	
==>FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1059	1158	
==>FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1059	1158	
==>FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10820	10938	
==>constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - so <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10970	11088	
==>constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - so <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1794	1885	
==>ol})->(\[.+?])/\$$1$2/g;
    s/\$(${re_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8942	9063	
==>attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8942	9063	
==>attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8942	9063	
==>attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	840	958	
==>cted;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	840	958	
==>cted;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10800	10905	
==>n", !. %# XXX - not quite?
p6_char_class(class_neg(newline))           --> "\\N", !.

p5_simple_escape_seq <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	190	294	
==>ray Referenz:
say "$test[1]";   # print "$test->[1]";

# Hash Referenz:
say "$test{a}";   # print "$test- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10204	10303	
==>$list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10204	10303	
==>$list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTIO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7680	7800	
==>atch->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7680	7800	
==>atch->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	968	1074	
==>condition = '(?:if|elsif|else|unless|while|unless)';
our $re_reserved = "(?:$re_condition)";
our $re_varnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6654	6768	
==>should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6654	6768	
==>should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6654	6768	
==>should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	24	128	
==>his module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	24	128	
==>his module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	24	128	
==>his module takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1717	1829	
==>e {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1717	1829	
==>e {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1717	1829	
==>e {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5649	5773	
==>et';
        return;
    };
}

# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14282	14371	
==>to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['use charnames ":full";unpack( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1830	2020	
==>e(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2035	2225	
==>e(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2098	2288	
==>e(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	337	464	
==>:Compiler::RegexPerl5;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class-> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	654	763	
==>VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
su <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	654	763	
==>VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4524	4617	
==>trip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4524	4617	
==>trip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4524	4617	
==>trip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21651	21850	
==>rray' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21651	21850	
==>rray' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21651	21850	
==>rray' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8437	8558	
==>d to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8437	8558	
==>d to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8437	8558	
==>d to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14483	14633	
==>$cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14477	14627	
==>$cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1139	1246	
==>tion is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1139	1246	
==>tion is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1139	1246	
==>tion is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20710	20822	
==>ROY))))
     (while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dis <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4679	4778	
==>his HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4679	4778	
==>his HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2520	2619	
==>,
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2520	2619	
==>,
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2520	2619	
==>,
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6585	6693	
==>od('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6585	6693	
==>od('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6585	6693	
==>od('does' => ::make_method(sub{
        my ($self, $role_name) = @_;
        ::opaque_instance_class($self)-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8919	9070	
==>ool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12804	12926	
==>ool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12804	12926	
==>ool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented";
    retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3242	3417	
==>0] ) if @_;
        
        my $sub = $config{$func}->[1];
        return $sub 
            ? $sub->( $obj, $obj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JI <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12418	12509	
==><$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12418	12509	
==><$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1314	1433	
==>t if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1314	1433	
==>t if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1314	1433	
==>t if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "" <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11812	11908	
==>04/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11812	11908	
==>04/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML e <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7603	7697	
==>ray::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
 multi Array::values (@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1101	1218	
==>[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1101	1218	
==>[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1101	1218	
==>[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1026	1118	
==>if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1026	1118	
==>if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1026	1118	
==>if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4836	4961	
==>ut=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4836	4961	
==>ut=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4836	4961	
==>ut=...      Output to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12161	12281	
==>s{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test::Wi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2561	2669	
==>s{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::Wi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2561	2669	
==>s{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::Wi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2840	2986	
==>all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3024	3170	
==>all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4757	4905	
==>fied.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4757	4905	
==>fied.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30475	30570	
==>t of Str $attrs!) returns Relation::Example>

This method is the same as C<project> but that the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	115	207	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	115	207	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	115	207	
==>inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(args[1].FETCH().key);
  })') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	997	1106	
==>elf->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	997	1106	
==>elf->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	997	1106	
==>elf->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6148	6253	
==>pdated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_me <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6148	6253	
==>pdated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_me <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6148	6253	
==>pdated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11607	11806	
==>} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7889	8088	
==>} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8723	8922	
==>} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3087	3214	
==>ndefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3087	3214	
==>ndefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3087	3214	
==>ndefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2429	2527	
==>ed; when you're done, call the closure 
with no arguments to finish the ciphering and clear the cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2429	2527	
==>ed; when you're done, call the closure 
with no arguments to finish the ciphering and clear the cip <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30016	30112	
==>ARNESS_TODOFAIL to display TODO failures

Add a test for verbose.

Change internal list of test r <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	515	617	
==>t_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all those stuff live in Inline::Parrot: <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3989	4070	
==>//en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html> <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3989	4070	
==>//en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16012	16161	
==>( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optiona <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16291	16440	
==>( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optiona <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2249	2371	
==>::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Events::Publisher is extended {
        use <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12033	12127	
==>');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12091	12185	
==>');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2694	2795	
==>) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2694	2795	
==>) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2694	2795	
==>) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10904	11000	
==>Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10904	11000	
==>Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_pe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45402	45498	
==>mbol->new('%:namespace') => attribute->new('%:namespace' => 'hash')));


$::Package->send('add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	21	124	
==>tr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	21	124	
==>tr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	21	124	
==>tr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	279	399	
==>s $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	279	399	
==>s $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	279	399	
==>s $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	620	757	
==>col, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	620	757	
==>col, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2301	2570	
==>t symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2301	2570	
==>t symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34803	34910	
==>il );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34803	34910	
==>il );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34803	34910	
==>il );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	791	905	
==>print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	791	905	
==>print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	791	905	
==>print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP5;
BEGIN {PrimFi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6418	6639	
==>$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6418	6639	
==>$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6418	6639	
==>$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	178	295	
==>ds, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	178	295	
==>ds, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	178	295	
==>ds, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1924	2020	
==>Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1924	2020	
==>Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1924	2020	
==>Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5125	5461	
==>x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6900	6992	
==>xadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7918	8010	
==>xadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23523	23613	
==>gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23523	23613	
==>gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	320	574	
==>ckages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	320	574	
==>ckages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/JuncType.pm	50	183	
==>lation of the JuncType type from
# src/Pugs/AST/Internals.hs to an enum.  This is all well and good..

enum Perl::JuncType «JAny JAll <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14080	14192	
==>f the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_tra <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14080	14192	
==>f the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_tra <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32103	32207	
==>@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3957	4077	
==>self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3957	4077	
==>self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3957	4077	
==>self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1876	1968	
==>$message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSourc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1876	1968	
==>$message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSourc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1876	1968	
==>$message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSourc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	581	706	
==>) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $n <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	581	706	
==>) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $n <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1548	1672	
==>v, $input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \@value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	360	480	
==>self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	360	480	
==>self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	360	480	
==>self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1105	1250	
==>($env);
    bless {
        sig  => $signature,
        body => $body,
        env  => $local_env
    } => $class;
}

# we dont really have a nati <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4066	4185	
==>SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4066	4185	
==>SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9536	9633	
==>ternals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9536	9633	
==>ternals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9536	9633	
==>ternals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use($xx,1)};
MUL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1405	1528	
==>a native type";            
    $self->{$key->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13869	13981	
==>grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13869	13981	
==>grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6318	6416	
==>ne;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6318	6416	
==>ne;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6318	6416	
==>ne;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3226	3323	
==>block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3226	3323	
==>block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3226	3323	
==>block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3374	3488	
==>{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3374	3488	
==>{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3374	3488	
==>{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7453	7554	
==>op`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Imple <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7453	7554	
==>op`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Imple <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	213	320	
==>ubrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	213	320	
==>ubrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / : <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	580	674	
==>o undef to when input is exhausted
  my $split := { (split rx:perl5/($pattern)/, $^str).map:{~$ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2957	3086	
==>{
                build_info smoker config revision timing
        }});
}

sub set_build_info {
    my($self) = @_;
    my $execut <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15473	15566	
==>sing implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15473	15566	
==>sing implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date a <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1750	1890	
==>$output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for gr <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1750	1890	
==>$output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4493	4589	
==>rvar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4493	4589	
==>rvar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4493	4589	
==>rvar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	373	492	
==>n
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	373	492	
==>n
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1574	1662	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)\(<?p6ws>?$< <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1628	1776	
==>= +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	245	352	
==>ode
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and s <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	245	352	
==>ode
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	955	1061	
==>);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to now cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	955	1061	
==>);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to now cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	955	1061	
==>);

# ::Class now actually inherits a number of new attributes from various sources
# and we need to now cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3135	3239	
==>>env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3135	3239	
==>>env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3135	3239	
==>>env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_cla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	943	1066	
==>the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invoca <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	943	1066	
==>the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invoca <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12658	12772	
==>$x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12434	12537	
==>om_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12434	12537	
==>om_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12434	12537	
==>om_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1528	1619	
==>) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1528	1619	
==>) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1528	1619	
==>) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	857	1012	
==>) ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	824	970	
==>) ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5209	5311	
==>ad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir $dir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3427	3521	
==>ook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is f <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3427	3521	
==>ook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4718	4832	
==>self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4718	4832	
==>self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4718	4832	
==>self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2105	2201	
==>liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2105	2201	
==>liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2105	2201	
==>liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22453	22597	
==>erl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22453	22597	
==>erl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22453	22597	
==>erl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9475	9572	
==>e );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9475	9572	
==>e );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1433	1527	
==>ts in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<informa <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1433	1527	
==>ts in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<informa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25621	25718	
==>exception payload).  The key is intended to be read by a machine and
mapped to a user-readable mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25621	25718	
==>exception payload).  The key is intended to be read by a machine and
mapped to a user-readable mes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1962	2053	
==>proto method export_attr_names of List of Relation::AttrName () {...}

proto method export_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4644	4753	
==>re is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4644	4753	
==>re is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4644	4753	
==>re is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9070	9178	
==>,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differenc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12547	12655	
==>,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differenc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11783	11891	
==>,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &differenc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11542	11664	
==>t', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11542	11664	
==>t', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', u <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16506	16594	
==>,B1,Ex,Ey),
  set_modifiers_from(Ey,E0,E1).

rm(group(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5405	5517	
==>e}.p6"
        or "Couldn't open file ${srcfile}.p6 for writing";
    print {$f} $src;
}
else {
    print "$src\n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1505	1604	
==>r $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1563	1662	
==>r $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $ex <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4603	4712	
==>eter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Inf <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4603	4712	
==>eter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Inf <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	93	193	
==>_anchored = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2073	2271	
==>m = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2073	2271	
==>m = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2073	2271	
==>m = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5001	5155	
==>0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5001	5155	
==>0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5001	5155	
==>0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	44	149	
==>use strict;
use warnings;

use UNIVERSAL::require;

use Blondie::Prelude;

sub new {
    my $class = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3456	3546	
==>nicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3640	3730	
==>nicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19190	19295	
==>1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19190	19295	
==>1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19190	19295	
==>1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14932	15021	
==>export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14932	15021	
==>export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Enti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2913	3027	
==>$a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2913	3027	
==>$a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2913	3027	
==>$a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7779	7916	
==>$self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7779	7916	
==>$self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7779	7916	
==>$self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3437	3556	
==>ft.pod.
# Prim.hs line is \\n   Scalar    pre     min     safe   (List)\
multi List::min(Code $cmp = &infix:«<=>», *@a <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3179	3411	
==>($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragr <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3179	3411	
==>($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	641	773	
==>return $self;
    };
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$k <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7048	7151	
==>e->new(
    '$:name' => 'rFoo',
    '%:methods' => { foo => sub { 'rFoo::foo' } }
);
ok($rFoo->does('Rol <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20236	20326	
==>event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20236	20326	
==>event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2023	2154	
==>$a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2023	2154	
==>$a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22738	22835	
==>tion was successful.

=item maxpar

The highest number of parentheses.  It will end up being ident <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3416	3530	
==>eable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::unti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3416	3530	
==>eable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::unti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3416	3530	
==>eable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::unti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10810	10920	
==>= function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attemp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10810	10920	
==>= function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attemp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10810	10920	
==>= function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attemp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4782	4877	
==>ut unlike B<rebless>, it preseves something
of the original name. So if you had an object blesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4782	4877	
==>ut unlike B<rebless>, it preseves something
of the original name. So if you had an object blesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4782	4877	
==>ut unlike B<rebless>, it preseves something
of the original name. So if you had an object blesse <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9213	9322	
==>allest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) { <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9213	9322	
==>allest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1037	1126	
==>ows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2680	2783	
==>nction (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2680	2783	
==>nction (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2680	2783	
==>nction (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2048	2181	
==>ub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2048	2181	
==>ub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2048	2181	
==>ub {...}".
  # There's no other possibility for us to work around this; by the time the
  # source is compiled to PIL1, global subs wi <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2601	2735	
==>ty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2601	2735	
==>ty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1177	1292	
==>5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__E <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	812	930	
==>my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4249	4358	
==>EN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    return $contents;
}

=pod JIB::Uti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	158	261	
==>ist;

package hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14517	14653	
==>um };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attemp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14517	14653	
==>um };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attemp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14517	14653	
==>um };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attemp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4690	4792	
==>y_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4690	4792	
==>y_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4690	4792	
==>y_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3941	4061	
==>ight be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3941	4061	
==>ight be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6218	6318	
==>q/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_cand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	110	213	
==>e

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	110	213	
==>e

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	110	213	
==>e

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only with psyc <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2192	2350	
==><zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single ar <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2192	2350	
==><zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single ar <==
3	/Users/nnunley/pugs/util/package-osx.pl	7417	7514	
==>l6::Spec::Concurrency.3
        /usr/local/man/man3/Perl6::Spec::Concurrency.3pm
        /usr/loca <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3724	3837	
==>fix/workaround
    package Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19835	19931	
==>ick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19835	19931	
==>ick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	604	702	
==>ys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	604	702	
==>ys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	604	702	
==>ys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2977	3088	
==>tring(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2977	3088	
==>tring(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2977	3088	
==>tring(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sq <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5538	5679	
==>$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@ta <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5538	5679	
==>$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9175	9283	
==>t this - failed matche's .end is undefined

=cut



### current implementation is always anchored at ^

### b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8874	8978	
==>t this - failed matche's .end is undefined
=cut

### current implementation is always anchored at ^
### b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4101	4215	
==>self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4101	4215	
==>self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2431	2571	
==>$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




conv_package {
    s/package\s+((?:${re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24699	24817	
==>('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21120	21238	
==>('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5637	5768	
==>, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5637	5768	
==>, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5637	5768	
==>, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1412	1546	
==>>add_rule(
        name => '!',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PAC <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2273	2374	
==>s => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2273	2374	
==>s => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	517	638	
==>brule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	517	638	
==>brule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3135	3262	
==>f ($self->bundles) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            pus <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4740	4858	
==>=> '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4740	4858	
==>=> '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2302	2438	
==>urn $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the lis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2228	2356	
==>urn $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7561	7734	
==>p->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7561	7734	
==>p->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7561	7734	
==>p->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10584	10713	
==>nfinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10584	10713	
==>nfinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10584	10713	
==>nfinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3065	3210	
==>,
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4764	4905	
==>,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3793	3929	
==>,
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30872	31023	
==>ft @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30872	31023	
==>ft @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30872	31023	
==>ft @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11777	11886	
==>to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11777	11886	
==>to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11777	11886	
==>to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26601	26702	
==>ce
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harness will print debugging information about i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13238	13332	
==>and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13238	13332	
==>and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return val <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12952	13063	
==>mit( $n->{exp1} ) . '[' . _emit( $n->{exp2} ) . ']';
    }
    
    return _not_implemented( $n, "postcircumf <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3816	3909	
==>attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appr <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3816	3909	
==>attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2568	2698	
==>uleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2483	2609	
==>uleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0] <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12386	12495	
==>.sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1835	1947	
==>ole {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1835	1947	
==>ole {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1835	1947	
==>ole {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2219	2336	
==>Y";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2219	2336	
==>Y";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2219	2336	
==>Y";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7980	8101	
==>est::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( Test::Builder $Class: $plan? <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1570	1669	
==>er::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1570	1669	
==>er::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5496	5602	
==>ined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'COD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5496	5602	
==>ined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'COD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5496	5602	
==>ined $version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'COD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2784	2884	
==>iscard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2784	2884	
==>iscard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2784	2884	
==>iscard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	325	416	
==>name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	325	416	
==>name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	322	410	
==>name = Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4116	4235	
==>erl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4116	4235	
==>erl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4116	4235	
==>erl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5538	5640	
==>y ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5538	5640	
==>y ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5538	5640	
==>y ($things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12938	13064	
==>ives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12938	13064	
==>ives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12938	13064	
==>ives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implem <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3074	3172	
==>.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3074	3172	
==>.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3154	3252	
==>.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14740	14852	
==>:make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14740	14852	
==>:make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14740	14852	
==>:make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5448	5565	
==>sure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        compl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5448	5565	
==>sure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9047	9160	
==>nt *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9047	9160	
==>nt *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9047	9160	
==>nt *@idxs) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4713	4889	
==>]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4713	4889	
==>]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4713	4889	
==>]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8180	8446	
==>{
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12168	12358	
==>{
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12168	12358	
==>{
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1528	1654	
==>q_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match appli <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1528	1654	
==>q_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match appli <==
3	/Users/nnunley/pugs/misc/S29_round.pl	79	202	
==>d;

    # round .5 up above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13286	13395	
==>xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13286	13395	
==>xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13286	13395	
==>xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19537	19675	
==>s, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19816	19954	
==>s, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6485	6589	
==>f we have a mixed-case package name, assume case has been preserved
        # correctly.  Otherwise, root <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6839	6936	
==>ils->_mode_plus_w( file => '/path/to/file' );

Sets the +w bit for the file.

Returns true on succ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	347	497	
==>) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        el <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	347	497	
==>) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        el <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16233	16350	
==>tring is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Related to C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4354	4450	
==>s($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4354	4450	
==>s($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4354	4450	
==>s($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	0	112	
==>package PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	0	112	
==>package PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	0	112	
==>package PIL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	454	585	
==>rn unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	435	562	
==>rn unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1 <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	63	158	
==>length;

method add($self: Duration $duration) returns Duration {
    $self.new($self.length + $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1179	1290	
==>::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1179	1290	
==>::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1179	1290	
==>::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2492	2641	
==>( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2492	2641	
==>( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2492	2641	
==>( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet de <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	134	233	
==>a::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	134	233	
==>a::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1648	1743	
==>achine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase developm <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34075	34175	
==>fail if C<$other> does not have
an identical header to the invocant relation.  This method has aliase <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38625	38725	
==>fail if C<$other> does not have
an identical header to the invocant relation.  This method has aliase <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38086	38186	
==>fail if C<$other> does not have
an identical header to the invocant relation.  This method has aliase <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2689	2802	
==>[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2689	2802	
==>[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2689	2802	
==>[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6910	7044	
==>ng === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10387	10521	
==>ng === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12327	12448	
==>ple {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32380	32478	
==>fail if
C<$other> does not have an identical header to the invocant relation.  This
method has an a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36930	37028	
==>fail if
C<$other> does not have an identical header to the invocant relation.  This
method has an a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36220	36318	
==>fail if
C<$other> does not have an identical header to the invocant relation.  This
method has an a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	918	1029	
==>est.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	918	1029	
==>est.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	918	1029	
==>est.pm, as we precompile and automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2520	2614	
==>.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2520	2614	
==>.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
meth <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6407	6502	
==>sufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibli <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6407	6502	
==>sufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibli <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37506	37595	
==>attribute->new('%:attributes'      => 'hash')));
$::Class->send('add_attribute', (symbol-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6399	6482	
==>_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6399	6482	
==>_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6399	6482	
==>_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1920	2046	
==>r::__object__ );

  sub new {
    my ($class, $rx, $type, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10746	10851	
==>rator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10746	10851	
==>rator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22193	22303	
==>@xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22193	22303	
==>@xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22193	22303	
==>@xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24486	24589	
==>ser::groupp;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10755	10849	
==>idations, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10755	10849	
==>idations, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21626	21752	
==>bclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21626	21752	
==>bclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21626	21752	
==>bclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = unde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8551	8659	
==>=> $neg, $how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5427	5520	
==>n $S->force_object(anyof_class => $S->force_object(vert => 0)) if $cc;
    return $S->object(v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1283	1394	
==>{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1283	1394	
==>{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1283	1394	
==>{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	487	589	
==>[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	487	589	
==>[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	487	589	
==>[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $cond, <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	241	365	
==>as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    doe <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	241	365	
==>as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    doe <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2742	2840	
==>lf->{extensions} || [];
    unless (@$extensions) {
        $self->load_extensions("$self->{prefix} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12667	12803	
==>f.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3031	3161	
==>f.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3031	3161	
==>f.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5256	5379	
==>t_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    retur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5256	5379	
==>t_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	868	968	
==>Rule::Parser does NOT look like it's mature enough to bear
# our weight, to be a next step. And the c <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1906	2021	
==>tree and add anomalies
    # to each event.
    # Note that I use the test number for reference, which will
    # bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7356	7452	
==>, concatenation.

- "plain" match operators: like 'literal'.



Higher order operators take a lis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7106	7199	
==>, concatenation.
- "plain" match operators: like 'literal'.

Higher order operators take a lis <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31711	31818	
==>original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36261	36368	
==>original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35497	35604	
==>original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14757	14861	
==>lue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14757	14861	
==>lue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14757	14861	
==>lue::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4016	4138	
==>];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4016	4138	
==>];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24099	24195	
==>lass

A Relation::Example object is an unordered set of tuples, each of which is an
unordered set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3565	3732	
==>omatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3565	3732	
==>omatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3565	3732	
==>omatically created)
  --perl5                                  (use perl5, only available in --run=jspm)
  --compile-only                           (outputs the resulti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	617	734	
==>L::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	617	734	
==>L::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	617	734	
==>L::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2058	2149	
==>ame('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2058	2149	
==>ame('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2058	2149	
==>ame('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	95	200	
==>ction

- Documentation Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	86	186	
==>ction
- Documentation Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3645	3751	
==>END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3645	3751	
==>END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3645	3751	
==>END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETC <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7469	7571	
==>cure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7469	7571	
==>cure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2318	2435	
==><+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2318	2435	
==><+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2582	2693	
==>PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_OPTA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8302	8393	
==>}

#======================================================================

use FindBin;
use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8302	8393	
==>}

#======================================================================

use FindBin;
use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8302	8393	
==>}

#======================================================================

use FindBin;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28346	28619	
==>scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                jo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28346	28619	
==>scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                jo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28346	28619	
==>scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                jo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4060	4186	
==>or object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4060	4186	
==>or object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3970	4080	
==>n 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3970	4080	
==>n 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3970	4080	
==>n 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19963	20094	
==>gc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16384	16515	
==>gc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6844	6956	
==>ion {  # see 7.6
      # any character in the Unicode category "Connector punctuation (Pc)"
      <Pc>
}
rule Hex <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	434	536	
==>y lists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tes <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	434	536	
==>y lists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6853	6987	
==>d} eq 'perl' ) {
            return 'Pugs::Runtime::Perl6::perl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_cal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4655	4769	
==>a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4495	4605	
==>a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4365	4464	
==>et('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4365	4464	
==>et('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4365	4464	
==>et('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12902	13059	
==>ERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12902	13059	
==>ERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12902	13059	
==>ERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2796	2901	
==>ess $self->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto_provides without a MAN <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2038	2210	
==>g_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2038	2210	
==>g_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9100	9195	
==>k_regcompp;
}
void regexp_hook_off() { /* aka "abandon regexps", aka "please segfault" */
  PL_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11753	11908	
==>hing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11753	11908	
==>hing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11753	11908	
==>hing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16149	16292	
==>.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19626	19769	
==>.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17676	17771	
==>I SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17676	17771	
==>I SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17676	17771	
==>I SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2098	2190	
==>('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2098	2190	
==>('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2098	2190	
==>('(function (str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3239	3347	
==>ned $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3239	3347	
==>ned $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3239	3347	
==>ned $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	210	349	
==>> {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7663	7780	
==>the dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwis <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	964	1081	
==>the dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4286	4390	
==>rent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4286	4390	
==>rent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4876	4980	
==>rent = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1269	1410	
==>}
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1269	1410	
==>}
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1269	1410	
==>}
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn " <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15057	15163	
==>code  => sub { $as_hash_complain->("code") },
      ref   => sub { $as_hash_complain->("ref") },
      glob <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14841	14934	
==>`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $first_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14841	14934	
==>`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $first_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2150	2250	
==>die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2150	2250	
==>die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2150	2250	
==>die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14475	14569	
==>bute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14475	14569	
==>bute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14475	14569	
==>bute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16863	16952	
==>portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16863	16952	
==>portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18626	18723	
==>fix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18626	18723	
==>fix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18626	18723	
==>fix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1716	1863	
==>pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1716	1863	
==>pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1716	1863	
==>pp = $pp ". $pp->str->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9929	10048	
==>my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9929	10048	
==>my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9929	10048	
==>my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use P <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2387	2481	
==>n $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2387	2481	
==>n $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method star <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7588	7692	
==>es ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signature from S29draft.pod 86 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1178	1273	
==>abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1178	1273	
==>abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1489	1623	
==>der should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angle quotes are always <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3660	3765	
==>-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3844	3949	
==>-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variabl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	642	745	
==>return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	642	745	
==>return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () retur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3008	3094	
==>004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5950	6048	
==>THER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5950	6048	
==>THER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8147	8245	
==>THER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role.

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10582	10726	
==>ams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10582	10726	
==>ams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10582	10726	
==>ams ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5433	5545	
==>1 : 0;
  }
}

void regexp_exechook_insert ()
{
  if(previous_exec_hook != NULL) { croak("can't install twice"); } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	712	814	
==>iler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	712	814	
==>iler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5053	5159	
==>acro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5053	5159	
==>acro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5053	5159	
==>acro(@xxa)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1907	2002	
==>intf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1907	2002	
==>intf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1907	2002	
==>intf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7146	7257	
==>c, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7146	7257	
==>c, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7146	7257	
==>c, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	912	1013	
==>s
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	912	1013	
==>s
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	912	1013	
==>s
# sort of matches with how I plan to bootstrap Roles through Class.
# Which is not yet implemented b <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17649	17746	
==>header_handler,
    test => \&test_handler,
    bailout => \&bailout_handler,
);

$Strap->{callbac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	303	417	
==>ft   ';'
%left   '-' '«+»'
%left   'infix:<times>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11014	11125	
==>de =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11164	11275	
==>de =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32449	32562	
==>nder:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

That means that when an 'open' node <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1183	1287	
==>ctory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1183	1287	
==>ctory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12468	12590	
==>+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12468	12590	
==>+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12468	12590	
==>+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shift @{$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10127	10259	
==>ff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10127	10259	
==>ff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10127	10259	
==>ff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	249	352	
==>ot_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##prin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	210	313	
==>ot_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	210	313	
==>ot_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##prin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	735	857	
==>new() creates instances of classes
sub new ($) {
    my ($table) = @_;
    my $self;
    $self = bless sub {
        my $me <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2038	2151	
==>rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2038	2151	
==>rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1412	1516	
==>t»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1412	1516	
==>t»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1412	1516	
==>t»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3602	3734	
==>[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3590	3722	
==>[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$ru <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7216	7351	
==>_line($file);
    unless( open(FILE, "$line|") ) {
        print "can't run $file. $!\n";
        return;
    }

    my %results = $self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9077	9198	
==>omplement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == - <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9077	9198	
==>omplement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9650	9752	
==>(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1]) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9650	9752	
==>(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1]) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9650	9752	
==>(@info,['lvalue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	890	1005	
==>[ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	890	1005	
==>[ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	890	1005	
==>[ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.subs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30387	30481	
==>y not resemble those of the original. 
The anonymous function in the argument C<$transformer> i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34939	35032	
==>y not resemble those of the original.
The anonymous function in the argument C<$transformer> i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34121	34214	
==>y not resemble those of the original.
The anonymous function in the argument C<$transformer> i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1373	1473	
==>cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1373	1473	
==>cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1373	1473	
==>cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11056	11174	
==>-----------------------------------------

What if Roles could provide their own BUILD submethods? This would 
mean tha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11056	11174	
==>-----------------------------------------

What if Roles could provide their own BUILD submethods? This would 
mean tha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11056	11174	
==>-----------------------------------------

What if Roles could provide their own BUILD submethods? This would 
mean tha <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3277	3420	
==>open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3277	3420	
==>open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($c <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6829	6968	
==>\
\\n   List      pre     Pair::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::spl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	956	1070	
==>e it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 20 <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	956	1070	
==>e it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 20 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3996	4105	
==>d as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3996	4105	
==>d as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12680	12789	
==>l;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $runperl;
}

sub run <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5953	6070	
==>eturn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = se <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5953	6070	
==>eturn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21247	21351	
==>1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21247	21351	
==>1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21247	21351	
==>1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20650	20749	
==>t)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY))))
     (while ($method is_not_nil) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8671	8766	
==>ired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=bac <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8671	8766	
==>ired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11341	11440	
==>ile::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = Fil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11341	11440	
==>ile::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = Fil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11341	11440	
==>ile::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f = Fil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8460	8599	
==>[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1105	1206	
==>, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1105	1206	
==>, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1683	1781	
==>lls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1683	1781	
==>lls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1683	1781	
==>lls coerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9094	9291	
==>t)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9094	9291	
==>t)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9094	9291	
==>t)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        start =>   sub { $i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	297	461	
==>n (@tokens) {
        if ($token eq '(') {
            my $new_arr = [];
            if (@{$stack}) {
                push @{$stack->[-1]} => $new_arr;
            } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	78	165	
==>at don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	78	165	
==>at don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3997	4092	
==>_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3997	4092	
==>_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3997	4092	
==>_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3649	3760	
==>ore should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3649	3760	
==>ore should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3649	3760	
==>ore should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice le <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10165	10293	
==>>new(
        $::ENV, 
        closure::signature->new(
            closure::params->new(
                symbol->new("&dispatche <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3396	3492	
==>$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3454	3550	
==>$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11888	12005	
==>p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11888	12005	
==>p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11888	12005	
==>p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $ <==
3	/Users/nnunley/pugs/util/package-osx.pl	210	316	
==>r/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7527	7623	
==>for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

Th <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7527	7623	
==>for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

Th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2658	2784	
==>@todo,$stage);
    }
    #print STDERR "==",join(" ",@todo),"==\n";
    for my $stage (reverse @todo) {
	#print STDERR "--$stag <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2783	2891	
==>nfig
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $c <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2783	2891	
==>nfig
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	176	285	
==>rapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	176	285	
==>rapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	176	285	
==>rapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on th <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1333	1447	
==>(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require Ext <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1260	1367	
==>(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require Ext <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	325	424	
==>tall and have all the distribution components you need.

= WHY

You should use this module as a star <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9906	10078	
==>Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              numbe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	474	638	
==>Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	474	638	
==>Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            numbe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	736	875	
==>Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module My <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	736	875	
==>Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module My <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14521	14628	
==>s getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $perl = " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9684	9797	
==>son' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9684	9797	
==>son' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5185	5320	
==>d $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAtt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5185	5320	
==>d $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAtt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5185	5320	
==>d $name)
    #         || confess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAtt <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7016	7133	
==>ime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "olin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7016	7133	
==>ime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "olin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3998	4109	
==>ne Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Arra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3998	4109	
==>ne Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Arra <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9899	9998	
==>:arrow->new(
			$a,
			type::operator::arrow->new(
				type::operator::nary->new(list => $a),
				ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18799	18904	
==>S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15220	15325	
==>S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler(' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3928	4047	
==>@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26722	26818	
==>ill fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31274	31370	
==>ill fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9446	9576	
==>t(
         ruleop::constant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1372	1480	
==>$ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run(' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1339	1447	
==>$ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17266	17369	
==>hahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17266	17369	
==>hahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17266	17369	
==>hahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCT <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	874	1196	
==>t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	874	1196	
==>t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1064	1223	
==>self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{sigspace} = d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6795	6899	
==>- 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6795	6899	
==>- 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6795	6899	
==>- 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5733	5902	
==>f ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5733	5902	
==>f ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5733	5902	
==>f ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8859	8979	
==>IRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
U <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3827	3910	
==>ersection( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3827	3910	
==>ersection( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6081	6190	
==>igenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6081	6190	
==>igenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6081	6190	
==>igenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	211	340	
==>o     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_[0]->equal_to($_[1]) == bit->new(0)  ? bit->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2746	2888	
==>l} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2746	2888	
==>l} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modi <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8461	8601	
==>ne based on Cabal version
        if ($has_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2567	2690	
==>es = $self->SUPER::reduce($node);
		warn "reduce(" . (ref($node) ? $node : qprintable($node)) .") = $res (type = " . $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18479	18600	
==>REAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | P <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18479	18600	
==>REAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4481	4652	
==>atch->from ),
                to    => \( $match->to ),
                named => { $label => $match },
                match => [],
            }, 'Pugs::Runtime::Match <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	778	873	
==>synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
developm <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	778	873	
==>synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
developm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3814	3922	
==>n $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3814	3922	
==>n $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3814	3922	
==>n $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5341	5464	
==>ns[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    forea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5341	5464	
==>ns[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    forea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5341	5464	
==>ns[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        shift @tokens;
    }
    forea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10405	10530	
==>}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10405	10530	
==>}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.". <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10405	10530	
==>}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14247	14353	
==>get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14247	14353	
==>get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14247	14353	
==>get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1847	1954	
==>"PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1847	1954	
==>"PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1847	1954	
==>"PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2601	2705	
==>eturn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6078	6182	
==>eturn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5008	5112	
==>eturn $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

method size <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3268	3402	
==>=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r->substrs->data[0].substr;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strb <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4913	5037	
==>q 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $modul <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4772	4896	
==>q 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1472	1568	
==>N.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1472	1568	
==>N.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1472	1568	
==>N.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_module_imp($mod, <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21580	21676	
==>t>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Ident <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32854	32949	
==>, mainly in the
C<translate_message()> method, but it has no other side effects.

A Translator o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32854	32949	
==>, mainly in the
C<translate_message()> method, but it has no other side effects.

A Translator o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6765	6852	
==>lication => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39746	39850	
==>ct(...) creates an object:
      $S->warn(RPe_BADESC, "y", " in character class");
      return $S->force <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28560	28649	
==>n(prog)		((prog)->reganch |= ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((prog)->r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8875	9035	
==>SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8875	9035	
==>SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8875	9035	
==>SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4255	4357	
==>necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4255	4357	
==>necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5779	5881	
==>necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Output object <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1049	1184	
==>unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1049	1184	
==>unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4090	4192	
==>, "x", 'stringify 1' );
}


__END__

Operator precedence parser

--- from S05 -----
Syntactic categorie <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	95	193	
==>:Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5::X1::Prelude;

sub initialize {
    Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12088	12176	
==>$input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12088	12176	
==>$input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities( <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4317	4440	
==>require YAML;
        local $YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $no_index } );
    }
    else { <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	405	502	
==>type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Per <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	405	502	
==>type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6467	6580	
==>:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6467	6580	
==>:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6467	6580	
==>:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13314	13423	
==>ES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13314	13423	
==>ES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13314	13423	
==>ES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3499	3605	
==>l does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3499	3605	
==>l does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3499	3605	
==>l does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3712	3822	
==>) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3712	3822	
==>) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3712	3822	
==>) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7821	8011	
==>oint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

mult <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11298	11488	
==>oint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

mult <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10462	10652	
==>oint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

mult <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4029	4125	
==>Fail
instance, passing on the C<$description> parameter and setting the passed
parameter to a fal <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4029	4125	
==>Fail
instance, passing on the C<$description> parameter and setting the passed
parameter to a fal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6226	6322	
==>Fail
instance, passing on the C<$description> parameter and setting the passed
parameter to a fal <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6132	6247	
==>thod fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $p <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6132	6247	
==>thod fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $p <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1698	1827	
==>"Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $host
user an <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	631	754	
==>s( PL_FILES => {} )
            unless $self->makemaker_args->{'PL_FILES'};

        if ($args{inline}) {
            $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8934	9039	
==>e

You can access the root of the tree with the root() method:

  my $root = $parser->root;

It will be an <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1933	2052	
==>s*\\(${re_varname})/$1 = $2/g;
}

conv_self {
    my $sub_context;
    # Check if it's now in 'sub' context
    if(/\bsu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2668	2766	
==>ELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2668	2766	
==>ELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.membe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16665	16791	
==>n { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16944	17070	
==>n { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3806	3927	
==>ETCH('&status');
            my $status          = $::SELF->$status_sub();
            $status->{"reason"} = _('$.reason') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13258	13354	
==>ry { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13258	13354	
==>ry { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13258	13354	
==>ry { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5432	5530	
==><skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by defa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5432	5530	
==><skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by defa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6956	7054	
==><skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by defa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25088	25193	
==>ng detected is * or +
 * at the start of the r.e., which can involve a lot of backup).  Regmlen is
 * supp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10651	10745	
==>their attributes have reasonable values, and
that attributes or Nodes are not missing.  The def <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10651	10745	
==>their attributes have reasonable values, and
that attributes or Nodes are not missing.  The def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18352	18445	
==>,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18352	18445	
==>,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18352	18445	
==>,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3038	3139	
==>bute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3038	3139	
==>bute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3038	3139	
==>bute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	928	1051	
==>\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	928	1051	
==>\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	796	908	
==>@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_hash <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1523	1632	
==>de, $symbol, $result);
	} else {
		return $result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $node = shi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16901	16999	
==>single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `string <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16901	16999	
==>single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19111	19223	
==>CK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19111	19223	
==>CK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	147	233	
==>Grammar::Rule;
use Pugs::Runtime::Match;
*{'immediate_statement_rule'} = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	767	890	
==>::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	767	890	
==>::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	767	890	
==>::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2676	2779	
==>syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTAB <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2037	2131	
==>n's package name.  (For example, if 
a function in C<Some::Module> called C<note> without provi <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2037	2131	
==>n's package name.  (For example, if 
a function in C<Some::Module> called C<note> without provi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11366	11526	
==>ec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11366	11526	
==>ec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11366	11526	
==>ec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	982	1154	
==>gs
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        my @x = @{$sexpr};
        foreach my $i (reverse(0 .. $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16475	16573	
==>a list of Spans. If one side of the span if Infinite, then the list contains
a single span. Otherwi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16475	16573	
==>a list of Spans. If one side of the span if Infinite, then the list contains
a single span. Otherwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16412	16540	
==>) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pug <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16412	16540	
==>) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pug <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	791	899	
==>rivate attributes, which are actually just accessor methods
as well.

=back

Note that methods are bound into <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1898	2017	
==>"* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4618	4730	
==>eturns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An excepti <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4676	4788	
==>eturns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An excepti <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1392	1525	
==>at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:per <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1392	1525	
==>at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11917	12018	
==>ackage Regexp::Parser::quant;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($cla <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6083	6195	
==>noop);
    } if $re eq '^';
    return $o->mk_eater_for_re('\B') if $re eq '\B';
    return $o->mk_eater_for_re(' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3669	3761	
==>delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more informa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3669	3761	
==>delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more informa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	81	183	
==>stant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	81	183	
==>stant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	81	183	
==>stant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this f <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2150	2255	
==>@path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2150	2255	
==>@path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1397	1502	
==>urn $self->{names}{$node};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Util::b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9381	9538	
==>d' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9381	9538	
==>d' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9381	9538	
==>d' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1487	1585	
==>old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or somes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14543	14656	
==>ded to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14543	14656	
==>ded to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14543	14656	
==>ded to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3665	3771	
==>::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This par <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3665	3771	
==>::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5862	5968	
==>::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$passed = 1>

This par <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2159	2311	
==>n =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::Tr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2159	2311	
==>n =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::Tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5888	5991	
==>nd declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5888	5991	
==>nd declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5888	5991	
==>nd declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n" <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2344	2467	
==>text can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2344	2467	
==>text can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6399	6506	
==>->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6183	6288	
==>->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12566	12682	
==>->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12566	12682	
==>->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12566	12682	
==>->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1535	1651	
==>on perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1535	1651	
==>on perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1535	1651	
==>on perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.pus <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	921	1052	
==>-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	921	1052	
==>-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	530	628	
==>e Regexp::Parser::Handlers;


# this handles 'use base "Regexp::Parser"'
# which wouldn't call 'imp <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6608	6871	
==>new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8989	9096	
==>y, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8989	9096	
==>y, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8989	9096	
==>y, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	661	781	
==>ss "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_IN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	661	781	
==>ss "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_IN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	661	781	
==>ss "Cannot create an opaque instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_IN <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2583	2736	
==>tractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi sub Array::sort(                 @values is rw, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5358	5460	
==>($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5358	5460	
==>($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .conten <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16411	16519	
==>le.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1497	1601	
==>urrently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility fun <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1497	1601	
==>urrently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1479	1589	
==>should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1479	1589	
==>should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1479	1589	
==>should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - ad <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5349	5449	
==>le for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=item er <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5349	5449	
==>le for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=item er <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45190	45276	
==>('new');
$::Package->send('superclasses' => list->new($::Object));

$::Package->send('a <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	587	727	
==>okes/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max bu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13781	13900	
==>te a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13781	13900	
==>te a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a sp <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	644	771	
==>results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $curr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	644	771	
==>results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	582	739	
==>urn str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	582	739	
==>urn str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	582	739	
==>urn str_.substr(a, b);
      },
      function (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28755	28861	
==>t Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HEL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28755	28861	
==>t Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HEL <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2092	2198	
==>@array : *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delete_key($k) ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	69	177	
==>:Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	64	172	
==>:Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	64	172	
==>:Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1491	1602	
==>lose(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1491	1602	
==>lose(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5250	5360	
==>on\s*(\S+)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_version and (    $Conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2986	3099	
==>Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2986	3099	
==>Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2986	3099	
==>Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" u <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	252	359	
==>confusion and keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_path <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3596	3693	
==>p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_eng <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3813	3910	
==>p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_eng <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	749	845	
==>oes not support enciphering individual bits.  Also note that the 
Cipher API operates at the byte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	749	845	
==>oes not support enciphering individual bits.  Also note that the 
Cipher API operates at the byte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6080	6256	
==>lue;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6080	6256	
==>lue;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6080	6256	
==>lue;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17540	17657	
==>l6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17540	17657	
==>l6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17540	17657	
==>l6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2137	2240	
==>ram=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2137	2240	
==>ram=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2137	2240	
==>ram=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9915	10017	
==>trings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9915	10017	
==>trings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub en <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	424	537	
==>keep this here for a consistent interface
sub to_str { shift }

# conversion to other native types
sub to_bit { (s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3955	4051	
==>yntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4139	4235	
==>yntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33227	33326	
==>hed in the order
they appear in this array until a match for that message is found.  Since a
program <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33227	33326	
==>hed in the order
they appear in this array until a match for that message is found.  Since a
program <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	619	717	
==>ng suggest performance is quite plausible.

# Next steps:

# Create a clean backtracking library (b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3732	3829	
==>lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3732	3829	
==>lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3732	3829	
==>lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    my $co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22927	23055	
==>end('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42530	42658	
==>end('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19763	19864	
==>ff.  Fixed.

=back

=head2 0.02 -- July 1, 2004

=over 4

=item Better Abstracting

The object() metho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28589	28700	
==>et of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33141	33252	
==>et of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32269	32380	
==>et of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	475	562	
==>s = undef;

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	475	562	
==>s = undef;

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	475	562	
==>s = undef;

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5256	5366	
==>r %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Someb <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5256	5366	
==>r %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Someb <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22231	22328	
==>$sigil'" if !$space;
	my @parts = split('::',$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4022	4148	
==>->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4022	4148	
==>->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4022	4148	
==>->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9380	9474	
==>t2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9380	9474	
==>t2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7511	7596	
==>------------------------------------------------------------
## END BOOTSTRAPPING ROLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7511	7596	
==>------------------------------------------------------------
## END BOOTSTRAPPING ROLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7511	7596	
==>------------------------------------------------------------
## END BOOTSTRAPPING ROLE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4379	4488	
==>rs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7856	7965	
==>rs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6840	6949	
==>rs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1523	1632	
==>'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1523	1632	
==>'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1523	1632	
==>'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34741	34838	
==>Text::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] ) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34741	34838	
==>Text::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4800	4984	
==>ie "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5022	5206	
==>ie "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3044	3214	
==>($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3044	3214	
==>($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3044	3214	
==>($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $of <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3544	3665	
==>. },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => 'infix',
  );

    my $rule = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1000	1106	
==>^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        ar <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1000	1106	
==>^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1086	1194	
==>0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1086	1194	
==>0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1086	1194	
==>0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3271	3392	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3271	3392	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3271	3392	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24183	24332	
==>ms > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24183	24332	
==>ms > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24183	24332	
==>ms > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13241	13368	
==>s_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13241	13368	
==>s_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        re <==
3	/Users/nnunley/pugs/util/config_h.pl	1553	1670	
==>se compile your GHC with the
    GHCi option.

.
}

close OUT;

sub try_compile {
    my $code = shift;
    my $temp = <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14832	14980	
==>*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pulverize the line down in <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1634	1759	
==>b version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4837	4962	
==>b version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4070	4172	
==>$fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4070	4172	
==>$fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4070	4172	
==>$fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19316	19586	
==>ice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19316	19586	
==>ice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19316	19586	
==>ice' ) ) {
                                # unbind the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tm <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3115	3312	
==>p->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->ne <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1670	1774	
==>s Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Pe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1670	1774	
==>s Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	462	575	
==>IL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	462	575	
==>IL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	462	575	
==>IL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	537	674	
==>anently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	537	674	
==>anently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'T <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2492	2600	
==>------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print STDER <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	139	285	
==>);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ { <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	139	285	
==>);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ { <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1287	1386	
==>e Test::Harness;

  runtests(@test_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do is wr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1566	1709	
==>rn $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    return _mangle_var( $n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31104	31201	
==>catenated without any delimiter.  This means,
for example, that the full module names in a set cou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31104	31201	
==>catenated without any delimiter.  This means,
for example, that the full module names in a set cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	928	1056	
==>arCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	928	1056	
==>arCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	928	1056	
==>arCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	873	1007	
==>e => '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->add_rule(
        nam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17594	17689	
==>e that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17594	17689	
==>e that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1292	1412	
==>d};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1292	1412	
==>d};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1292	1412	
==>d};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed($ins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3290	3397	
==>on {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.k <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6767	6874	
==>on {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.k <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5147	5257	
==>: () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5340	5450	
==>: () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1243	1341	
==>ink $pilfn or die "Couldn't remove \"$pilfn\": $!\n";
    unlink $fn or die "Couldn't remove \"$fn\ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1165	1260	
==>resp = $ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2415	2520	
==>ugs-path: (.+)$/m      and $smoke{runcore}       = pugspath2runcore($1);
  $html =~ /summary="(\d+) test c <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	296	399	
==>s class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJE <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	296	399	
==>s class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1392	1498	
==>lass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1392	1498	
==>lass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1392	1498	
==>lass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8283	8392	
==>hat does this line 
  #$temp1 = length $key + $whitespacePosition;
  goto tok_match_end;

  tok_match_sub:
  $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21987	22084	
==>d.  When
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21987	22084	
==>d.  When
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the fi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14209	14325	
==>o numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14209	14325	
==>o numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22028	22122	
==>6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22028	22122	
==>6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22028	22122	
==>6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10123	10264	
==>y $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10123	10264	
==>y $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10123	10264	
==>y $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2334	2471	
==>IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_inp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2334	2471	
==>IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_inp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12933	13190	
==>i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12933	13190	
==>i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12933	13190	
==>i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ $ <==
3	/Users/nnunley/pugs/util/version_h.pl	407	506	
==>ike $Rev$), because
# that is only updated when the file in which the keyword appears
# is modified. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24493	24586	
==>s not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PS <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24493	24586	
==>s not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6409	6517	
==>{
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6409	6517	
==>{
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6409	6517	
==>{
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3672	3771	
==>od pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3672	3771	
==>od pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3672	3771	
==>od pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6277	6374	
==>tographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6277	6374	
==>tographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	902	1015	
==>ttrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	902	1015	
==>ttrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	902	1015	
==>ttrs{$attr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2136	2309	
==>= $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2136	2309	
==>= $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2136	2309	
==>= $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5674	5780	
==>Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse(" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5674	5780	
==>Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse(" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	603	757	
==>$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	808	962	
==>$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	864	1018	
==>$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        retur <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8792	8896	
==>: modfies $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $rel <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1620	1746	
==>::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # repres <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1620	1746	
==>::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # repres <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5490	5587	
==>Boolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	228	321	
==>erl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
requ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	228	321	
==>erl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
requ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	228	321	
==>erl6::Container::Scalar;
require Perl6::Container::Array;
require Perl6::Container::Hash;
requ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8034	8123	
==>, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1859	1948	
==>, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6625	6766	
==>\s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6682	6823	
==>\s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	653	773	
==>( dir => $dir )
            or error( "Could not create JIB::Installation object from '$dir'" );
        push @inst, $ins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37736	37855	
==>eading of the new relation is the union of
all the headings of the source relations.  The body of the new relation is
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42285	42404	
==>eading of the new relation is the union of
all the headings of the source relations.  The body of the new relation is
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41935	42054	
==>eading of the new relation is the union of
all the headings of the source relations.  The body of the new relation is
th <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	798	910	
==>he basis for a method dispatch scope.  Note that methods
differ from normal Code refs only in that they do not ha <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1865	1972	
==>een traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1865	1972	
==>een traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10329	10474	
==>ub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10329	10474	
==>ub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10329	10474	
==>ub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @params : @{ $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11325	11472	
==>required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11325	11472	
==>required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11325	11472	
==>required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2066	2187	
==>t_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2066	2187	
==>t_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2066	2187	
==>t_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11601	11720	
==>le (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15078	15197	
==>le (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14413	14532	
==>le (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at least one given relati <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1602	1710	
==>Inline->bind(C => $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2306	2399	
==>r::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2306	2399	
==>r::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	3	101	
==>hod key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	3	101	
==>hod key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	3	101	
==>hod key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	292	426	
==>t = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'ATh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	292	426	
==>t = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'ATh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	292	426	
==>t = bless({
    one => bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'ATh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1995	2106	
==>term {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    r <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	209	310	
==>heck that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	209	310	
==>heck that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1589	1734	
==>ests, :$x, $y? ) returns Void is export {
    say "1..$number_of_tests";
}

1 if 4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
( <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	7	111	
==>lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	7	111	
==>lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7860	8102	
==>tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7860	8102	
==>tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7860	8102	
==>tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35727	35835	
==>set, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35727	35835	
==>set, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35727	35835	
==>set, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1190	1288	
==>ut rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1190	1288	
==>ut rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23227	23373	
==>($list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1375	1498	
==>%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) ret <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1375	1498	
==>%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8955	9066	
==>ocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12432	12543	
==>ocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!head <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	896	1000	
==>Array::grep (@values ;      Code *&test  ) returns Lazy
 multi sub Array::grep (@values,   MatchTest $tes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1245	1347	
==>return $last.end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1245	1347	
==>return $last.end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    re <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7055	7168	
==>ndef warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks under taint, but open - <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	695	792	
==>e($self, @_);
}

sub emitter_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my $self = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14285	14413	
==>os = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14279	14407	
==>os = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5064	5172	
==>PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5064	5172	
==>PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1968	2076	
==>PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12158	12249	
==>ke_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12158	12249	
==>ke_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12158	12249	
==>ke_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3879	3968	
==>---------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3879	3968	
==>---------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3879	3968	
==>---------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21652	21762	
==>failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  " <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9531	9630	
==>hr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) ! <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9531	9630	
==>hr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38299	38405	
==>:List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38299	38405	
==>:List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38299	38405	
==>:List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $ite <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	47	137	
==>::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	47	137	
==>::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Comp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	891	990	
==>Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new; # might or might not have some built <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17872	17970	
==>load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Modu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17872	17970	
==>load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Modu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19220	19345	
==>"' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19220	19345	
==>"' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19220	19345	
==>"' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4952	5081	
==>l = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4952	5081	
==>l = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4952	5081	
==>l = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8872	9021	
==>s attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8872	9021	
==>s attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8872	9021	
==>s attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method f <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24526	24636	
==>}

# A.7 Regular Expressions

rule Pattern {  # see 15.10.1
      <Disjunction>
}
rule Disjunction {  # see 15. <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	70	160	
==>@!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	70	160	
==>@!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	979	1087	
==>)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	979	1087	
==>)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	979	1087	
==>)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	497	598	
==>nction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	497	598	
==>nction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	497	598	
==>nction';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1785	1884	
==>->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1785	1884	
==>->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1785	1884	
==>->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	368	482	
==>portList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	368	482	
==>portList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	368	482	
==>portList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19768	19866	
==>REFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19768	19866	
==>REFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8031	8117	
==>.
p5_modifier_spec_pos([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p5_modifier_spec_po <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	673	770	
==>.end_is_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	673	770	
==>.end_is_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_e <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	847	944	
==>@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload();
} el <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12556	12656	
==>t
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3309	3406	
==>iler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3193	3286	
==>iler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2736	2837	
==>$::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2736	2837	
==>$::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2736	2837	
==>$::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6431	6550	
==>}
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6431	6550	
==>}
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6431	6550	
==>}
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    p <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7945	8053	
==>n   List      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression --> Scal <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4350	4456	
==>connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4350	4456	
==>connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple p <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6829	6930	
==>t1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7201	7302	
==>t1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10015	10099	
==>, no?
set_metachar("\\").
set_metachar("]").
set_metachar("-").
p5_charset_item(char( <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7494	7604	
==>pends .= ', plugins -any, haskell-src -any';
    }

    if (grep /^-DPUGS_HAVE_READLINE$/, @_) {
        $depen <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11164	11257	
==>em B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11164	11257	
==>em B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10978	11148	
==>.description,
          };
      }
  
      method report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1464	1618	
==>.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1464	1618	
==>.description,
        };
    }

    method report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35440	35554	
==>nd
  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };

Here, @kids is an array that holds array ref <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16241	16335	
==>elf and
various other external documentation for much of that.

The Rosetta Native Interface is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16241	16335	
==>elf and
various other external documentation for much of that.

The Rosetta Native Interface is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3619	3710	
==>_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3619	3710	
==>_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3619	3710	
==>_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2963	3076	
==>s );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2963	3076	
==>s );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2963	3076	
==>s );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17240	17353	
==>um = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It als <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17240	17353	
==>um = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It als <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17240	17353	
==>um = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It als <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1035	1138	
==>x:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1035	1138	
==>x:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1035	1138	
==>x:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1531	1663	
==>nostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1531	1663	
==>nostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1611	1743	
==>nostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2495	2602	
==>pec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2495	2602	
==>pec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2495	2602	
==>pec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11292	11434	
==>tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11292	11434	
==>tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11292	11434	
==>tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2400	2501	
==>, "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2400	2501	
==>, "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2400	2501	
==>, "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5313	5469	
==>sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5313	5469	
==>sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5313	5469	
==>sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - di <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2181	2465	
==>ven $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2181	2465	
==>ven $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1805	1912	
==>$lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "initrd.img";
my $init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21129	21226	
==>$xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21129	21226	
==>$xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21129	21226	
==>$xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6602	6720	
==>etElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-bur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6602	6720	
==>etElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-bur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6602	6720	
==>etElementById: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-bur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3635	3748	
==>hat aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7112	7225	
==>hat aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6069	6182	
==>hat aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14239	14410	
==>t->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14239	14410	
==>t->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14239	14410	
==>t->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1955	2049	
==>n browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1955	2049	
==>n browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1955	2049	
==>n browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35843	35933	
==>plicit handler when
coercing this object to a string.

=item C<get_set_member_combinations( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35843	35933	
==>plicit handler when
coercing this object to a string.

=item C<get_set_member_combinations( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2103	2207	
==>f;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2103	2207	
==>f;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2103	2207	
==>f;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1606	1712	
==>ring(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1606	1712	
==>ring(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1606	1712	
==>ring(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	529	631	
==>list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	529	631	
==>list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	615	740	
==>y $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	615	740	
==>y $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	615	740	
==>y $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17316	17464	
==>ber of tests which passed 
                      (including todo and skips)

  todo              number of todo tests seen
  bonus             number <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	68	167	
==>e main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	68	167	
==>e main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1114	1271	
==>w(0)); # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is inste <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2869	2971	
==>a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Function <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2869	2971	
==>a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Function <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13468	13592	
==>my $self = shift;
    my $thunk = shift;

    # FIXME - ought to check if the runtime has a hash for this
    # in the future <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12225	12361	
==>if ($v > $S->{maxpar}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 whil <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16577	16674	
==>edText gives your application the maximum amount of control as
to what the user sees; it never out <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16577	16674	
==>edText gives your application the maximum amount of control as
to what the user sees; it never out <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1707	1813	
==>t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1707	1813	
==>t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1707	1813	
==>t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10359	10509	
==>{"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10359	10509	
==>{"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10359	10509	
==>{"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2153	2260	
==>thod codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2153	2260	
==>thod codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2153	2260	
==>thod codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method graphs (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8109	8222	
==>code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8109	8222	
==>code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8109	8222	
==>code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	439	542	
==>calars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a tra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	439	542	
==>calars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a tra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	439	542	
==>calars tieable.
#   ._cell was promoted to public method, in order to keep .bind
#   working after a tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2235	2328	
==>$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2235	2328	
==>$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2235	2328	
==>$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11857	12044	
==>\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8139	8326	
==>\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8973	9160	
==>\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16639	16808	
==>');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16639	16808	
==>');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16639	16808	
==>');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6156	6276	
==>her way, I think it might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6156	6276	
==>her way, I think it might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6156	6276	
==>her way, I think it might be useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ---- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7127	7263	
==>slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7127	7263	
==>slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7127	7263	
==>slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27455	27619	
==>_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27455	27619	
==>_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27455	27619	
==>_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2140	2290	
==>dd_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2140	2290	
==>dd_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2140	2290	
==>dd_singleton_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $m <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1824	1944	
==>y "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take en <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1824	1944	
==>y "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take en <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10265	10372	
==>r)

    # also, the signature for this sub is nowhere near finalized; it should
    # support asynch/exclusi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2782	2923	
==>quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2782	2923	
==>quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2855	2966	
==>m{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2855	2966	
==>m{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2855	2966	
==>m{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28421	28721	
==>', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28421	28721	
==>', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28421	28721	
==>', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_ite <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4860	4958	
==>ter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dav <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4860	4958	
==>ter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dav <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3471	3591	
==>, even if there is another
        match inside the closure
    $/()  
        just the capture - what's returned in { re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	834	948	
==>.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	834	948	
==>.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11692	11795	
==>to the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3906	4007	
==>$state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3906	4007	
==>$state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	211	343	
==>ed":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	211	343	
==>ed":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	211	343	
==>ed":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2407	2537	
==>s($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (! <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2407	2537	
==>s($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (! <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2700	2815	
==>e\n3rd line\n" ],
      [ 'file12', $file12,
        "1st line\n2nd line\n3rd line\n4th line\n5th line\n".
        " <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	293	420	
==>les in the JIB namespace for
details.

=head1 SEE ALSO

L<JIB::Config>, L<JIB::Installation>, L<JIB::Meta>, L<JIB::Package>,
L<J <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1101	1193	
==>y functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1101	1193	
==>y functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22780	22877	
==>t of the Set operators.

Like the Set data type, the Relation::Example data type is immutable.  Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29192	29287	
==>atched what they are
named.

The handle 'atom' is pre-consumptive (because there is no 'ato' han <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5097	5186	
==>_open'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <varsc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	475	591	
==>({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	475	591	
==>({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	475	591	
==>({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3364	3460	
==>);

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3364	3460	
==>);

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3364	3460	
==>);

::Class.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3014	3123	
==>r $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3014	3123	
==>r $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5048	5148	
==>nts,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1013	1122	
==>:ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1013	1122	
==>:ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1013	1122	
==>:ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1828	2015	
==>deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $sta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3420	3517	
==>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3420	3517	
==>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5880	6026	
==>is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5880	6026	
==>is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5880	6026	
==>is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15980	16121	
==>oncat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16259	16400	
==>oncat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop:: <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	187	289	
==>};
$option = "wert" unless defined $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5290	5498	
==>ss {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5290	5498	
==>ss {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5290	5498	
==>ss {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } = <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16059	16194	
==>epath};
            my $regex   = $link->{regex};

            # create a representation that is like the $html->as_text
            $he <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2875	2994	
==>e> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule par <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2875	2994	
==>e> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1516	1616	
==>pace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1516	1616	
==>pace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1516	1616	
==>pace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9246	9364	
==>ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 a <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9304	9422	
==>ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 a <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2454	2552	
==>rns Int { int(($.month+2)/3) }
method month_0 returns Int { $.month - 1 }
method yy returns Int { d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2151	2247	
==>> $to,
		struct_equiv => Blondie::App->new(
			Blondie::TypeSafe::Annotation->new(
				type => [$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4664	4794	
==>@_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4664	4794	
==>@_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4664	4794	
==>@_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6449	6560	
==>perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6449	6560	
==>perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6449	6560	
==>perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16739	16839	
==>ody ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16739	16839	
==>ody ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16739	16839	
==>ody ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2364	2481	
==>:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2364	2481	
==>:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2364	2481	
==>:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as PI <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12239	12357	
==>call for the
  sub hooks in the caller package, and thus get CORE if none are defined.

  The C hooks (except for comp, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18044	18140	
==>using a simple 'equals', and then the
application can "do the right thing".  No parsing or ambigu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18044	18140	
==>using a simple 'equals', and then the
application can "do the right thing".  No parsing or ambigu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23963	24099	
==>do if $__flag eq "redo";
          die "p6_loop_CODE: bug";
       }
      }'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	426	545	
==>? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	426	545	
==>? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7143	7282	
==>re of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        mar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7143	7282	
==>re of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        mar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7143	7282	
==>re of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        mar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35402	35574	
==>ng 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35402	35574	
==>ng 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35402	35574	
==>ng 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5182	5285	
==>lice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5182	5285	
==>lice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5182	5285	
==>lice}->fetch( $i ) );
    #warn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19485	19604	
==>::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20482	20601	
==>::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!bod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1311	1408	
==>r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22304	22401	
==>ly create any objects.  Afterwards, it is an array
reference of (node) objects.

=item stack

Init <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1311	1408	
==>r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11505	11619	
==>lt;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up alias <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11505	11619	
==>lt;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up alias <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23497	23589	
==>nterface of Relation::Example is entirely object-oriented; you use it by
creating objects fro <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	741	845	
==>mp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<dur <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	741	845	
==>mp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<dur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1593	1690	
==>uce {
	my $self = shift;
	my $node = shift;
	return $self->literal_value($node) unless Scalar::Uti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1832	1956	
==>urn list->new(
        # make sure to create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3814	3928	
==>y @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6138	6252	
==>y @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3266	3379	
==>ng = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3266	3379	
==>ng = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3266	3379	
==>ng = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  fun <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6719	6916	
==>@ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6719	6916	
==>@ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28783	28924	
==>not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28783	28924	
==>not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28783	28924	
==>not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                return Str->new( '$.unbo <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2408	2507	
==>turn $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2408	2507	
==>turn $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9246	9360	
==>e');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9246	9360	
==>e');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	61	144	
==>5/site_perl/5.8.7/Module/Install/WriteAll.pm"
package Module::Install::WriteAll;
use <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46183	46332	
==>$name'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:name'));
            }
        )
    )
);

$::Package->sen <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13247	13342	
==>ed (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements tha <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13247	13342	
==>ed (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3336	3452	
==>=> $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3336	3452	
==>=> $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3336	3452	
==>=> $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16942	17064	
==>}
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16942	17064	
==>}
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16942	17064	
==>}
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3079	3250	
==>g(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3079	3250	
==>g(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1627	1732	
==>tart && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1627	1732	
==>tart && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2287	2385	
==>e_class}->run($prog->{name}) is non-fatal";

		cmp_deeply(
			$result,
			$prog->{result},
			"corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	270	450	
==>t is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	270	450	
==>t is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	270	450	
==>t is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2288	2430	
==>r',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1358	1457	
==>thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<cap <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1358	1457	
==>thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<cap <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6951	7054	
==>er<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6951	7054	
==>er<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32299	32399	
==>regardless of
which is the invocant and which is the argument.  This method will fail if
C<$other> do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36849	36949	
==>regardless of
which is the invocant and which is the argument.  This method will fail if
C<$other> do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36139	36239	
==>regardless of
which is the invocant and which is the argument.  This method will fail if
C<$other> do <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3699	3869	
==>(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3699	3869	
==>(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tre <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13551	13639	
==>and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly succeeded</span> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5900	5996	
==>de_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5900	5996	
==>de_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2799	2895	
==>de_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5150	5266	
==>CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5150	5266	
==>CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15278	15375	
==>he following methods are available for Span objects:

- `start()` / `end()`

Return the start or e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15278	15375	
==>he following methods are available for Span objects:

- `start()` / `end()`

Return the start or e <==
3	/Users/nnunley/pugs/util/importgraph.pl	2200	2285	
==>.Lifts');
setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3	131	
==>This is a Perl5 file

# ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3	131	
==>This is a Perl5 file

# ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3	131	
==>This is a Perl5 file

# ChangeLog
#
# 2005-09-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3629	3728	
==>L2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3629	3728	
==>L2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3629	3728	
==>L2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18541	18633	
==>hich get called on regular expression compilation and execution) to
parasitize the regexp str <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2831	2923	
==>hich get called on regular expression compilation and execution) to
parasitize the regexp str <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12607	12723	
==>ndler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12607	12723	
==>ndler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7004	7111	
==>:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7004	7111	
==>:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7004	7111	
==>:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	556	701	
==>..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	556	701	
==>..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14857	14951	
==>=> sub { $as_hash_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_hash_co <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11655	11754	
==>, which gets written onto a
  hopefully otherwise unused section of a regexp struct.  Another
  hope <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7801	7899	
==>$result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handli <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7801	7899	
==>$result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handli <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1553	1683	
==>ds )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2719	2829	
==>);

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	114	223	
==>et.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	114	223	
==>et.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1495	1600	
==>V x, PV y) {
	char * target = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprint <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3963	4066	
==>st way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of exp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3963	4066	
==>st way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4043	4146	
==>st way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of exp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2193	2311	
==>efined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3471	3565	
==>s the HTTP::Request::CGI object).  The following methods are delegated
to the query object:

=o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3471	3565	
==>s the HTTP::Request::CGI object).  The following methods are delegated
to the query object:

=o <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15698	15816	
==>objects_from_whatever called on $_[0]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      nume <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23174	23267	
==>text and they translate it, which could
produce ambiguous results or associations.  Or alterna <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23174	23267	
==>text and they translate it, which could
produce ambiguous results or associations.  Or alterna <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2757	2869	
==>:Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        outpu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2757	2869	
==>:Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        outpu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4281	4393	
==>:Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        outpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1576	1678	
==>lf)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1576	1678	
==>lf)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1576	1678	
==>lf)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) { 
        $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3211	3322	
==>EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3211	3322	
==>EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3211	3322	
==>EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprin <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	810	912	
==>eturns Int {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@val <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	549	644	
==>Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	549	644	
==>Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	593	703	
==>>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	593	703	
==>>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	593	703	
==>>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14182	14291	
==>hod_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14182	14291	
==>hod_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14182	14291	
==>hod_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13326	13432	
==>me};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . ra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13326	13432	
==>me};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . ra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13326	13432	
==>me};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5000	5121	
==>py) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5000	5121	
==>py) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5000	5121	
==>py) {
      push @js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7832	7949	
==>,
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7832	7949	
==>,
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7832	7949	
==>,
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10951	11071	
==>idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10951	11071	
==>idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10951	11071	
==>idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx]. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15951	16066	
==>n {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19428	19543	
==>n {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    ) <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6894	6999	
==>b { -r $bash and -s $bash };

my $pugs_version;
step
  descr  => "Querying Pugs for its version",
  ensure <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11669	11787	
==>e $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11669	11787	
==>e $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_s <==
3	/Users/nnunley/pugs/util/drift.pl	123	220	
==>rIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at all port <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14758	14919	
==>ding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14758	14919	
==>ding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14758	14919	
==>ding/arrays.t.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18314	18413	
==>xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18314	18413	
==>xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18314	18413	
==>xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	334	474	
==>ion () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	334	474	
==>ion () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	334	474	
==>ion () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9101	9248	
==>_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9101	9248	
==>_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9101	9248	
==>_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12996	13092	
==>"return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12996	13092	
==>"return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12996	13092	
==>"return ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35597	35730	
==>op_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35597	35730	
==>op_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35597	35730	
==>op_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14660	14780	
==>o use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14660	14780	
==>o use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14660	14780	
==>o use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str::to_num( $s ) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1248	1348	
==>ams) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1248	1348	
==>ams) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1248	1348	
==>ams) returns Void { 
    my Dispatcher $dispatcher = $self.meta.dispatcher(:descendant);
    for WALK <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3788	3911	
==>nning against
some of the perl5 t/op/ test files.  Use of the perl api has to be
checked for correctness, and the problems t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2131	2229	
==>t be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's func <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2131	2229	
==>t be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's func <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9186	9308	
==>elf->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    pus <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11501	11623	
==>elf->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    pus <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9411	9533	
==>d} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf "system: [%s]: $ <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	86	202	
==>by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapte <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	87	203	
==>by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapte <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	87	203	
==>by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapte <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1665	1825	
==>{
    my $start = shift;

    my @hits = ();

    local *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $fi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10576	10682	
==>emented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10734	10840	
==>emented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7761	8008	
==>e;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7761	8008	
==>e;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3127	3227	
==>uilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FE <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2426	2520	
==>structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, y <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2426	2520	
==>structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2657	2765	
==>and();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2657	2765	
==>and();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2657	2765	
==>and();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2622	2744	
==>=> ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2622	2744	
==>=> ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2622	2744	
==>=> ::make_method(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class- <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8783	8879	
==>vents

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8783	8879	
==>vents

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7959	8054	
==>('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('rBar'), '... FooBar does rBar');

# and our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3697	3817	
==>aram";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3697	3817	
==>aram";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3697	3817	
==>aram";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	476	618	
==>t = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hac <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	476	618	
==>t = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hac <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1125	1239	
==>sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34550	34646	
==>at takes a single Relation
in its C<$other> argument, where the heading of <$other> is a subset o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39100	39196	
==>at takes a single Relation
in its C<$other> argument, where the heading of <$other> is a subset o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10355	10548	
==>st::Builder::Test::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	897	1074	
==>st::Builder::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	897	1074	
==>st::Builder::Test::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role T <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	789	980	
==>t );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $ <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	789	980	
==>t );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3476	3586	
==>ram       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3476	3586	
==>ram       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3476	3586	
==>ram       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4054	4162	
==>ts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4054	4162	
==>ts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4054	4162	
==>ts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bl <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	203	310	
==>, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 e <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	203	310	
==>, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 e <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1535	1663	
==>rite' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and retur <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1535	1663	
==>rite' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and retur <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13112	13219	
==>->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{$index';
  $loc .= "->{_dirs}->{'" . <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11916	12053	
==>= {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$cod <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11916	12053	
==>= {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$cod <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	40	136	
==>d::Perl::Builtins;

use strict;
use warnings;

use Blondie::Prelude;
use Blondie::ADTs;
use Blond <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16625	16740	
==>Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16625	16740	
==>Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14160	14246	
==>yte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14160	14246	
==>yte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14160	14246	
==>yte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n($len <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12118	12216	
==>> environment variable.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2191	2300	
==>].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2191	2300	
==>].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2191	2300	
==>].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scala <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1317	1442	
==>$!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4795	4920	
==>$!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5250	5406	
==>ne = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5250	5406	
==>ne = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5250	5406	
==>ne = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14962	15071	
==>ing.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18439	18548	
==>ing.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17855	17964	
==>ing.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tupl <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	611	763	
==>!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    printf("[%s]", av[i]);
    printf("\n");
    return 0;
}
EOT

open( <==
3	/Users/nnunley/pugs/util/package-osx.pl	9066	9163	
==>ess (-d "${dest}/usr/bin");
    chdir("${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6133	6268	
==>);
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtra <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6133	6268	
==>);
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtra <==
3	/Users/nnunley/pugs/util/testgraph.pl	1060	1155	
==>eader (for broken webservers)
   --cssfile,  -c FILE  location of css. [default: $Config{cssfile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12746	12853	
==>lass);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12746	12853	
==>lass);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12746	12853	
==>lass);
    }
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1374	1477	
==>$thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1374	1477	
==>$thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1374	1477	
==>$thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<@{}>($thing) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2707	2828	
==>t's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2707	2828	
==>t's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2707	2828	
==>t's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5325	5466	
==>ch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5337	5478	
==>ch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_- <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15137	15239	
==>)#/, $extra) : ();
        (my $type, $test->{reason})  = $control ? $control =~ /^\s*(\S+)(?:\s+(.*))? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4240	4343	
==>@vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4240	4343	
==>@vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4240	4343	
==>@vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22018	22108	
==>n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22018	22108	
==>n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22018	22108	
==>n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($x <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2851	2994	
==>print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23477	23566	
==>ese documentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23477	23566	
==>ese documentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L< <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1570	1693	
==>ast type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signat <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1570	1693	
==>ast type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5043	5152	
==>f_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # nsp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	767	876	
==>ivate methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	767	876	
==>ivate methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	767	876	
==>ivate methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24100	24236	
==>'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24379	24515	
==>'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'ter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	520	613	
==>lation::AttrName of Str where { $^n ne $EMPTY_STR };

subtype Relation::LaxAttrScalarSubType o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1698	1804	
==>->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1698	1804	
==>->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1698	1804	
==>->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4784	4885	
==>'Foo->bar' },
    },
);

is($Foo->id, 3, '... $Foo is the fourth id');
is($Foo->class, $Class, '... $F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5888	6072	
==>et_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5888	6072	
==>et_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5888	6072	
==>et_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2111	2233	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2111	2233	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2111	2233	
==>$instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        my $label = s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3844	3950	
==>2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3844	3950	
==>2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5368	5474	
==>2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23156	23252	
==>op with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The comma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23156	23252	
==>op with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The comma <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6524	6610	
==>^\)]*\)\s+((?:is (?:looser|tighter|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	256	390	
==>new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift( <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	252	382	
==>new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$method"} = sub {
            +shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10458	10585	
==>&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the firs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1475	1597	
==>th; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1475	1597	
==>th; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1475	1597	
==>th; i++) {
      array.push(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16920	17028	
==>sub ceiling($n) is primitive is safe {
        Num::round_gen($n, &Num::do_ceil)
    }
    our &ceil ::= &cei <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	0	95	
==>use v6-pugs;

grammar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar fo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	0	95	
==>use v6-pugs;

grammar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3162	3273	
==>\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	674	779	
==>({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	674	779	
==>({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19441	19536	
==>($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19441	19536	
==>($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19441	19536	
==>($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9582	9697	
==>O eq 'MacOS';
my $is_vms      = $^O eq 'VMS';

sub _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$args <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9592	9688	
==>he usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9592	9688	
==>he usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11831	11928	
==>instances of class all conform to the Role interface/API they are 
interchangable with one another <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11831	11928	
==>instances of class all conform to the Role interface/API they are 
interchangable with one another <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11831	11928	
==>instances of class all conform to the Role interface/API they are 
interchangable with one another <==
3	/Users/nnunley/pugs/util/func_refact.pl	1738	1858	
==>}}) {
                next if $set->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13350	13444	
==>P::Headers> object that contains the
removed headers only.

=item $h.clear

This will remove al <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13350	13444	
==>P::Headers> object that contains the
removed headers only.

=item $h.clear

This will remove al <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8358	8465	
==>cced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8358	8465	
==>cced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1683	1780	
==>ie::Unit Blondie::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13104	13218	
==>product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16581	16695	
==>product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15943	16057	
==>product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4818	4929	
==>le {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $sp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4818	4929	
==>le {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $sp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4818	4929	
==>le {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $sp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10538	10727	
==>q Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10538	10727	
==>q Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17164	17308	
==>,
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17164	17308	
==>,
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4052	4139	
==>OTSTRAPPING AREA
## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4052	4139	
==>OTSTRAPPING AREA
## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4052	4139	
==>OTSTRAPPING AREA
## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9170	9357	
==>lear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9170	9357	
==>lear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9170	9357	
==>lear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( $_ );
                            $self->store( $pair->k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1200	1312	
==>EFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1200	1312	
==>EFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1200	1312	
==>EFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3127	3221	
==>L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3127	3221	
==>L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3474	3568	
==>L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	561	662	
==>-----
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	561	662	
==>-----
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	561	662	
==>-----
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the b <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	457	635	
==>$buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	457	635	
==>$buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9343	9465	
==>rs
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curh <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9343	9465	
==>rs
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curh <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4566	4658	
==>eturn bit->new(0) if not (blessed($right) && $right->isa('closure::params'));
    return bit- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7012	7111	
==>'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Ass <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7012	7111	
==>'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Ass <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7012	7111	
==>'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Ass <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5274	5386	
==>}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5274	5386	
==>}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update % <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17090	17193	
==>return $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_= <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3334	3448	
==>fore> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3334	3448	
==>fore> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $en <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2656	2761	
==>value
    my $builtin = $self->env->get($symbol) || die $@;

    # fill the place holder with the compiled <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9386	9493	
==>($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9386	9493	
==>($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9386	9493	
==>($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9480	9595	
==>itable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9480	9595	
==>itable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9480	9595	
==>itable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slur <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	635	732	
==>ed in the class.

This has the effect of making C<Role> objects appear to "flatten" in
the classes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2905	3014	
==>o' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2905	3014	
==>o' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2985	3094	
==>o' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4961	5069	
==>=> ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4961	5069	
==>=> ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4961	5069	
==>=> ::make_method(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	704	836	
==>o>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	704	836	
==>o>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $othe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	704	836	
==>o>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $othe <==
3	/Users/nnunley/pugs/util/func_refact.pl	3016	3132	
==>score($total, $new);
}

sub score {
    my ($total, $new) = @_;
    return 0 if $total == $new;
    ($total - $new) / <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13155	13247	
==>refixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<Last <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13155	13247	
==>refixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<Last <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4728	4843	
==>port_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4728	4843	
==>port_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!me <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30714	30806	
==>de the F<__object__> class,
because F<__object__> doesn't inherit from anywhere.  You want to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1106	1200	
==>[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1106	1200	
==>[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	599	782	
==>ption.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExcept <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	599	782	
==>ption.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExcept <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	599	782	
==>ption.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExcept <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8602	8774	
==>a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8602	8774	
==>a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8602	8774	
==>a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->ne <==
3	/Users/nnunley/pugs/util/version_h.pl	1786	1893	
==>ve closed STDIN (filehandle #0), slot #0 is available for new
  # filehandles again. If we opened a new file <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6767	6865	
==>vents

For each POD element, an event is fired, the first argument to all these events is
the C<$ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6767	6865	
==>vents

For each POD element, an event is fired, the first argument to all these events is
the C<$ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24086	24204	
==>DO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24086	24204	
==>DO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::num <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24086	24204	
==>DO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::num <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1965	2059	
==>uctor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1965	2059	
==>uctor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18533	18622	
==>ORExpressionNoIn>
    | <LogicalORExpressionNoIn> <'?'> <AssignmentExpressionNoIn> <':'> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5064	5203	
==>ge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5064	5203	
==>ge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5064	5203	
==>ge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $p <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1010	1108	
==>design docs apo/exe/syn
    --no_designdocs Do not generate html files for the perl6 design docs (f <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3417	3510	
==>ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno- <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3417	3510	
==>ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12491	12603	
==>ined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12491	12603	
==>ined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12491	12603	
==>ined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	65	184	
==>d (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	65	184	
==>d (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3686	3789	
==>val <<'END';
    # Regexp::Parser bug fix/workaround
    package Regexp::Parser::anyof_class;
    sub vi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1916	2032	
==>t ready for parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self- <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11672	11759	
==>UTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autr <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11672	11759	
==>UTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	277	381	
==>o retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	277	381	
==>o retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6998	7086	
==>{ eval_perl5 => $<literal> } }
RULE
*{'_return'} = Pugs::Compiler::Rule->compile(<<'RULE' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	2	107	
==>The lines like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	2	107	
==>The lines like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	2	107	
==>The lines like
#   die unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11002	11155	
==>nnels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connecte <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11002	11155	
==>nnels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connecte <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5623	5730	
==>for @flags;
}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4576	4681	
==>::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4576	4681	
==>::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4576	4681	
==>::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3227	3338	
==>d this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3227	3338	
==>d this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3227	3338	
==>d this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15361	15489	
==>{
        return _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15603	15697	
==>handle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENV <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15661	15755	
==>handle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1185	1285	
==>$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1185	1285	
==>$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1185	1285	
==>$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9480	9593	
==>ostic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	24	124	
==>ite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	24	124	
==>ite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17773	17948	
==>ly_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21250	21425	
==>ly_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20837	21012	
==>ly_h )
                } )
                for $other!body.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3958	4061	
==>t, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3958	4061	
==>t, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3958	4061	
==>t, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $param{required}, $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5040	5155	
==>nores errors)
            # and touch the index file.
            $index->dir->mkpath, $index->openw->close or error <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18094	18191	
==>each other at a level visible in the Rosetta Native
Interface, if at all.  To account for situatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18094	18191	
==>each other at a level visible in the Rosetta Native
Interface, if at all.  To account for situatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6968	7073	
==>mitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6968	7073	
==>mitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6968	7073	
==>mitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4631	4739	
==>up returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4631	4739	
==>up returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4631	4739	
==>up returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10330	10449	
==>ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10330	10449	
==>ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10330	10449	
==>ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $sub <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14401	14502	
==>er appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14459	14560	
==>er appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22699	22815	
==>ndef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22699	22815	
==>ndef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22699	22815	
==>ndef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	185	280	
==>le is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	185	280	
==>le is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	185	280	
==>le is the (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1041	1137	
==>ot implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$time <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1041	1137	
==>ot implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$time <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1041	1137	
==>ot implemented ***\n";
}

$timeout = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$time <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7993	8106	
==>I<$file>.

=cut

sub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_comma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13704	13803	
==>case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17181	17280	
==>case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@othe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9380	9753	
==>$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    meth <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9380	9753	
==>$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    meth <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2111	2232	
==>erywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Class::Even <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	150	253	
==>die::Emitter - emitter base class - not more than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	175	273	
==>e;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finali <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	175	273	
==>e;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finali <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	758	934	
==>le::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	758	934	
==>le::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11904	11989	
==>Open,Close), p6_oct_chars(R), [Close].
p6_oct_chars(R) --> octdigits_int(C), p6_oct_ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5701	5826	
==>" . $n->{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32476	32596	
==>ub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33131	33251	
==>ub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12132	12328	
==>> 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12132	12328	
==>> 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1225	1354	
==>GE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal',
        other => 'pref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4477	4591	
==>-help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4477	4591	
==>-help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4477	4591	
==>-help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12094	12220	
==>sses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12094	12220	
==>sses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12094	12220	
==>sses;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	644	748	
==>sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	644	748	
==>sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	644	748	
==>sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a co <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	158	279	
==>se();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.im <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	158	279	
==>se();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.im <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4278	4378	
==>).

Then the thunk for + will be reduced, with 1 and 10 in the parameter stack, the
dynamic scope sta <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3136	3229	
==>&Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# uni <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3136	3229	
==>&Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# uni <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4939	5034	
==>eported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BU <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4939	5034	
==>eported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BU <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	195	289	
==>\(my $smokeserv = "http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8130	8328	
==>mp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8130	8328	
==>mp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8130	8328	
==>mp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3593	3718	
==>.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3593	3718	
==>.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5117	5242	
==>.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11338	11435	
==>t submethods are used
because they will not get inherited. This provides more predictable 
behavio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11338	11435	
==>t submethods are used
because they will not get inherited. This provides more predictable 
behavio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11338	11435	
==>t submethods are used
because they will not get inherited. This provides more predictable 
behavio <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7743	7837	
==>rt_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_el <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7743	7837	
==>rt_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2637	2762	
==>It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2637	2762	
==>It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2637	2762	
==>It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undefined         ==> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3384	3516	
==>hat};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3384	3516	
==>hat};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3384	3516	
==>hat};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	450	579	
==>$!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	485	614	
==>$!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	450	579	
==>$!;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1881	1986	
==>lass: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1881	1986	
==>lass: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

me <==
3	/Users/nnunley/pugs/util/package-osx.pl	4129	4226	
==>:A20.3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bibl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2318	2420	
==>d' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2318	2420	
==>d' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2318	2420	
==>d' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5147	5257	
==>et_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2689	2799	
==>et_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3470	3580	
==>et_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<cod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2646	2757	
==>d < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2646	2757	
==>d < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2106	2198	
==>pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2106	2198	
==>pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2106	2198	
==>pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6208	6346	
==>r_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6208	6346	
==>r_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6208	6346	
==>r_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	465	572	
==>ects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	465	572	
==>ects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	465	572	
==>ects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of elemen <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5226	5373	
==>lf unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            while (<FH>) {
                la <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2859	2957	
==>tem count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2859	2957	
==>tem count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18345	18547	
==>fess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18345	18547	
==>fess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18345	18547	
==>fess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	879	974	
==>IL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	879	974	
==>IL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	879	974	
==>IL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()( <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4000	4101	
==>.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given values. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4000	4101	
==>.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given values. <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5285	5417	
==>l *FH;
        if ( open FH, "META.yml" ) {
            while (<FH>) {
                last META_NOT_OURS if /^generated_by: Module:: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2646	2746	
==>_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = << <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2646	2746	
==>_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = << <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	532	626	
==>trlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	532	626	
==>trlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	532	626	
==>trlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limite <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2600	2700	
==>mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_mat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2600	2700	
==>mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_mat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2680	2780	
==>mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_mat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37419	37521	
==>method is the N-ary version of the aforementioned binary join()
operator, and the order of its argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41968	42070	
==>method is the N-ary version of the aforementioned binary join()
operator, and the order of its argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41609	41711	
==>method is the N-ary version of the aforementioned binary join()
operator, and the order of its argument <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	284	378	
==>h_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	284	378	
==>h_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	284	378	
==>h_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15844	16003	
==>= $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15844	16003	
==>= $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15844	16003	
==>= $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18348	18478	
==>ls::sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($conversi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	146	247	
==>t Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	146	247	
==>t Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	34	142	
==>:Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	34	142	
==>:Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	34	142	
==>:Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22318	22435	
==>plice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22318	22435	
==>plice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22318	22435	
==>plice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	750	865	
==>No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	750	865	
==>No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	750	865	
==>No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10996	11140	
==>end =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10996	11140	
==>end =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10996	11140	
==>end =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38260	38371	
==>r the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38260	38371	
==>r the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38260	38371	
==>r the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2528	2623	
==>y $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2528	2623	
==>y $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2528	2623	
==>y $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11300	11436	
==>name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11300	11436	
==>name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11300	11436	
==>name)=@_;
    use Perl6::Value;
    my $cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instan <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28582	28681	
==>erl -Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose=0; runtests @ARGV;' t/*.t
  Us <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	499	595	
==>ethod reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA:: <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	499	595	
==>ethod reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2394	2538	
==>}
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies ! <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2394	2538	
==>}
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies ! <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11733	11850	
==>thods above, for when one wishs to take
advantage of the internal caching of keys that is expected to happen,
but wish <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13343	13450	
==>t 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13343	13450	
==>t 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1005	1103	
==>backend for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Backend::Perl;

=head1 DESCRIPTION

L<B <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10945	11076	
==>to code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10945	11076	
==>to code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_ <==
3	/Users/nnunley/pugs/util/func_refact.pl	165	279	
==>) {
    print <<'END';
  run with -n filename containing nodes data produced by --nodes
of graphfuncs.pl. Will prin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1244	1355	
==>'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLVal <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4394	4503	
==>'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLVal <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4394	4503	
==>'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLVal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13719	13913	
==>st = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13719	13913	
==>st = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13719	13913	
==>st = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33054	33277	
==>{
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33054	33277	
==>{
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33054	33277	
==>{
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "pop list ". $i->start . ".." . $i->end . " now length=$ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4327	4433	
==>tered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4327	4433	
==>tered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4327	4433	
==>tered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(% <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1031	1135	
==>tant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1031	1135	
==>tant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1031	1135	
==>tant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33582	33709	
==>et_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33582	33709	
==>et_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33582	33709	
==>et_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += U <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13208	13382	
==>oin;

###########################################################################

multi method product (Relation::Example $other!) returns Relation::Example {

    die "The r <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	0	98	
==>module Config::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe. <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	0	98	
==>module Config::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20074	20161	
==>icE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traff <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20074	20161	
==>icE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traff <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7998	8084	
==>ec(L) --> p5_modifier_spec_pos(L).
p5_modifier_spec_pos([i|L])  --> "i", p5_modifier_sp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1512	1637	
==>e {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8114	8223	
==>Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8114	8223	
==>Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8114	8223	
==>Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12139	12247	
==>ine ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12139	12247	
==>ine ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5147	5290	
==>r Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5147	5290	
==>r Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5147	5290	
==>r Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	866	979	
==>es:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	866	979	
==>es:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	866	979	
==>es:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6761	6885	
==>1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6761	6885	
==>1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6761	6885	
==>1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	79	215	
==>e Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	79	215	
==>e Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	79	215	
==>e Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6534	6662	
==>to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6534	6662	
==>to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6534	6662	
==>to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:< <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9643	9762	
==>) {
	elem.className = "";  /* hack? */
	expander.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	exp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36060	36155	
==>d in the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to eac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36060	36155	
==>d in the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to eac <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9033	9129	
==>twice"); }
  previous_comp_hook = PL_regcompp;
  PL_regcompp = &hook_regcompp;
}
void regexp_hook <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1338	1460	
==>++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1338	1460	
==>++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1338	1460	
==>++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function pe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4696	4790	
==>nce( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4696	4790	
==>nce( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	76	181	
==>} => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	76	181	
==>} => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	76	181	
==>} => $_[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18965	19074	
==>patchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher mag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18965	19074	
==>patchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher mag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18965	19074	
==>patchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher mag <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2153	2257	
==>>   No words were laid on stream or stone,
>   When Durin woke and walked alone.

-}

------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13661	13759	
==>e this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13661	13759	
==>e this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1449	1578	
==>could autogenerate
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        retu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1456	1561	
==>}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1456	1561	
==>}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19359	19461	
==>t ( Int $status = 0)
{
    Pugs::Internals::exit($status);
}


 multi Control::Basic::nothing ()


 mul <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5769	5854	
==>on

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Per <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5769	5854	
==>on

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	95	199	
==>SION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	95	199	
==>SION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	95	199	
==>SION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

sub new { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11223	11335	
==>ta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11223	11335	
==>ta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11223	11335	
==>ta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4739	4840	
==>e );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_has <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4739	4840	
==>e );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_has <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4291	4386	
==>_op(W, ques(W))    --> "?", !.
p56_quantified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2068	2223	
==>,
        #~ assoc => 'left',
        #~ precedence => 'equal',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6109	6216	
==>le::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5899	6003	
==>le::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6038	6156	
==>y $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6038	6156	
==>y $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6038	6156	
==>y $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2376	2476	
==>ode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2376	2476	
==>ode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1761	1873	
==>* fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1761	1873	
==>* fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1761	1873	
==>* fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5017	5179	
==>lue, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5017	5179	
==>lue, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5017	5179	
==>lue, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26245	26376	
==>x,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type => 'flags',
      on => $on,
      off => $off,
      zerole <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1216	1329	
==>e: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1356	1469	
==>e: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7355	7542	
==>mify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7355	7542	
==>mify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7355	7542	
==>mify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4311	4609	
==>ere";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	976	1091	
==>cale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that unique <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	976	1091	
==>cale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that unique <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14885	14981	
==>lemented, we will need an easy way
to test them. So we will implement the Test::More function is_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14943	15039	
==>lemented, we will need an easy way
to test them. So we will implement the Test::More function is_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1119	1214	
==>:format" if $@;

	#export the funtions
	Pugs::Utils::Dump->export_to_level(1,@_);
}

sub dump_tr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5959	6071	
==>s')    => list->new(),
            attribute->new('%:private_methods') => hash->new(),
            attribute->new <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32115	32212	
==>ll of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36665	36762	
==>ll of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	357	471	
==>_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	357	471	
==>_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	357	471	
==>_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	393	495	
==>(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	393	495	
==>(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	393	495	
==>(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4959	5086	
==>|= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4959	5086	
==>|= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4959	5086	
==>|= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6524	6617	
==>eblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6524	6617	
==>eblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6524	6617	
==>eblessing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28507	28601	
==>coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28507	28601	
==>coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1463	1575	
==>CK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1463	1575	
==>CK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1463	1575	
==>CK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE F <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2415	2555	
==>my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2415	2555	
==>my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the n <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26469	26564	
==>type->stringify, "∀α. ∀β. list α → list β → list (α × β)", "pretty print :t zip") <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6145	6254	
==>{
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9622	9731	
==>{
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21995	22099	
==>ule SwitchStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule Ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1876	1977	
==>oproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1876	1977	
==>oproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1876	1977	
==>oproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10058	10250	
==>r::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2113	2287	
==>r::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2113	2287	
==>r::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10369	10475	
==>urns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10369	10475	
==>urns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i <==
3	/Users/nnunley/pugs/util/package-osx.pl	4419	4522	
==>l6::Bible::E07.3pm
        /usr/local/man/man3/Perl6::Bible::S01.3pm
        /usr/local/man/man3/Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8531	8653	
==>:'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8531	8653	
==>:'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21952	22045	
==>!, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	769	875	
==>efix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	769	875	
==>efix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	769	875	
==>efix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3458	3559	
==>(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3458	3559	
==>(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3458	3559	
==>(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6145	6247	
==>TER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to othe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6145	6247	
==>TER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to othe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6145	6247	
==>TER::?

Either way, I think it might be useful to have this if for nothing other than 
a helper to othe <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16052	16165	
==>b _is_bail_out {
    my($self, $line, $reason) = @_;

    if( $line =~ /^Bail out!\s*(.*)/i ) {
        $$reason = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	369	471	
==>ig button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	369	471	
==>ig button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10278	10369	
==>"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defin <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11013	11104	
==>"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defin <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7792	7882	
==>f C<@indextests> are provided, only elements whose indices match
C<$index ~~ any(@indextest <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2273	2404	
==>d;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14759	14857	
==>e outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14759	14857	
==>e outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	468	594	
==>ts earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The cur <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	468	594	
==>ts earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The cur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7130	7236	
==>o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\s') if $re eq '\s';
    return $o->mk_eater <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10524	10639	
==>erface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10524	10639	
==>erface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10524	10639	
==>erface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------------- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29519	29637	
==>urnir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29519	29637	
==>urnir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	331	441	
==>urnir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	134	248	
==>res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	134	248	
==>res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	134	248	
==>res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2760	2871	
==>e( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2760	2871	
==>e( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2760	2871	
==>e( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1809	1973	
==>verse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else {
            error("Illegal token: $entry\n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9424	9558	
==>5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n/g; s/\n*\z/\n/; }
    my $tof = sub { open(F,">$_[0]") or die; p <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	881	982	
==>odule for
# real use.  It might, imaginably, perhaps, be possible to do this
# Maybe.  And perl5 might <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1221	1414	
==>l_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1221	1414	
==>l_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1221	1414	
==>l_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	170	271	
==>Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	170	271	
==>Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	170	271	
==>Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal o <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	608	716	
==>our $SMOKERFILE = ".smoker.yml";

$| = 1;

$ENV{TEST_ALWAYS_CALLER} = 1;

GetOptions \our %Config, qw(--outpu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5971	6074	
==>normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~norma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5971	6074	
==>normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~norma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	602	705	
==>_;

    return Pugs::Compiler::RegexPerl5->compile( $rule_source, $param )
        if exists $param->{P5 <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1565	1685	
==>is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), : <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1834	1954	
==>is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), : <==
3	/Users/nnunley/pugs/util/package-osx.pl	1266	1375	
==>sr/local/lib/libhistory.a
    );
}
if ($bundle =~ /pugs/) {

    %symlinks = qw(
        /usr/local/bin/pugs . <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4814	4967	
==>ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6576	6729	
==>ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <b <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10421	10572	
==>tput_path: $!";
                         
  my $template = HTML::Template->new(filename => catdir $start_dir, 
                     'util','catalog_tmpl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22252	22352	
==>h attribute is a column, but a Relation is not a table.

The Relation class is pure and deterministic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26804	26904	
==>h attribute is a column, but a Relation is not a table.

The Relation class is pure and deterministic <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2418	2531	
==>ieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accen <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2418	2531	
==>ieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7994	8159	
==>type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7994	8159	
==>type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7994	8159	
==>type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7646	7757	
==>ethod_list ],
    [ 'foo_bar' ],
    '... got the right method list (unresolved)');

# resolve the class and pul <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5504	5602	
==>moved_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0 <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5504	5602	
==>moved_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30400	30498	
==>large, with each set member being an an exclusive alternative for the rest
of the set. There is a s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30400	30498	
==>large, with each set member being an an exclusive alternative for the rest
of the set. There is a s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2348	2437	
==>,nows", "PGE::Exp::Concat");
    $optable->addToken("infix:&", "<infix:", "left,nows", "PG <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20415	20544	
==>ial.


package Time::Local {}
# gmtime 

# localtime 

# time


# study

# defined

# undef

# item 

# want

# caller


# tie tie <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3618	3739	
==>k
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some ex <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3618	3739	
==>k
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some ex <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7586	7704	
==>( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /anot <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	887	1005	
==>( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /anot <==
3	/Users/nnunley/pugs/util/drift.pl	7	104	
==>bin/perl
use IPC::Open2;
use Config;
use File::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1094	1318	
==>y $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1094	1318	
==>y $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	66	167	
==>ator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
say PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3474	3575	
==>hod, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3474	3575	
==>hod, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3474	3575	
==>hod, the method name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2591	2685	
==>ethods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2591	2685	
==>ethods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2591	2685	
==>ethods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7380	7470	
==>h @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1205	1295	
==>h @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12912	13032	
==>f ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6387	6507	
==>f ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9930	10023	
==>hich are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing al <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9930	10023	
==>hich are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5868	5973	
==>sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5868	5973	
==>sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5868	5973	
==>sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10799	10901	
==>thod:

  my $rx = $parser->visual;

This will not return a F<Regexp> object, but the regex; it might be <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22831	22924	
==>ic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22831	22924	
==>ic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7831	8026	
==>lone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $o <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7831	8026	
==>lone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1238	1355	
==>Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1238	1355	
==>Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	606	699	
==>lf->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$self->annotator->annotate($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11442	11581	
==>aving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11442	11581	
==>aving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11442	11581	
==>aving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my % <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1005	1188	
==>unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless - <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1005	1188	
==>unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless - <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	895	995	
==>$_[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warning handler
BEGIN { $SIG{__WARN__} = $SIG{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10309	10494	
==>ro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10309	10494	
==>ro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10309	10494	
==>ro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	287	442	
==>!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	287	442	
==>!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cooki <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	422	523	
==>Class");
 my $type = Type.new(Class.new("SomeClass"));

 $class.apply;

 $type =:= ::SomeClass;   # tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6064	6176	
==>ewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6064	6176	
==>ewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6064	6176	
==>ewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	459	576	
==>ocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	459	576	
==>ocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	459	576	
==>ocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1408	1542	
==>return _mangle_ident( $n->{bareword} )
        if exists $n->{bareword};
        
    return $n->{code} 
        if exists $n->{cod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4867	4997	
==>d die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack . <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4867	4997	
==>d die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack . <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5421	5563	
==>.';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib.
    system($ar, s => $a_file);
}

sub build_exe {
    my $version     = sh <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7607	7745	
==>> 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7607	7745	
==>> 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7917	8064	
==>::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7917	8064	
==>::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7917	8064	
==>::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scala <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2435	2543	
==>ion );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unl <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2435	2543	
==>ion );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2515	2623	
==>ion );

    $Test.diag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2602	2703	
==>ues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2602	2703	
==>ues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2602	2703	
==>ues (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14793	14895	
==>x) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14793	14895	
==>x) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14793	14895	
==>x) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4137	4239	
==>$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4137	4239	
==>$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4137	4239	
==>$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15579	15675	
==>{ p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15579	15675	
==>{ p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15579	15675	
==>{ p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	718	847	
==>= "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mods = $1;
	}
        my $qr = eval{ $f->($mods <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13725	13874	
==>er_Re/xo;

            $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3303	3464	
==>,
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3550	3711	
==>,
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7011	7112	
==>efined $pugs_version },
  using  => sub { $pugs_version = get_version($pugs) };

step
  descr  => "Che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	305	404	
==>isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	305	404	
==>isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	305	404	
==>isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through ::Package an <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3845	4073	
==>$port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3845	4073	
==>$port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_p <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3804	3911	
==>g} = \%Config;
    $self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	89	182	
==>unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	89	182	
==>unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5717	5837	
==>role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5717	5837	
==>role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5717	5837	
==>role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach my $at <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3490	3581	
==>isturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBU <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3490	3581	
==>isturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBU <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1616	1759	
==>&& $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1616	1759	
==>&& $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1446	1554	
==>en(FF, '>'.$fname) or die "error: open '$fname'";
   print FF $data;
   close(FF);
}

sub CheckOne {
   my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3222	3338	
==>ro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3222	3338	
==>ro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3222	3338	
==>ro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = backup_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5368	5493	
==>re ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_U <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1587	1689	
==>GV[0] =~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] = <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5886	5987	
==>re ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_U <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	54	157	
==>s (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

method tree ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	142	235	
==>M::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

metho <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	142	235	
==>M::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12543	12664	
==>lse { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2931	3025	
==>remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP addres <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2931	3025	
==>remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP addres <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3679	3810	
==>uc($method);
            $seen{$method}++;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort keys %seen ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19710	19807	
==>y compile sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAG <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19710	19807	
==>y compile sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAG <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9490	9627	
==>FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9490	9627	
==>FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9490	9627	
==>FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14555	14680	
==>l { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14555	14680	
==>l { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14555	14680	
==>l { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1474	1582	
==>=> ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1474	1582	
==>=> ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1474	1582	
==>=> ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2533	2640	
==>bs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2533	2640	
==>bs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2533	2640	
==>bs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2523	2669	
==>undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2523	2669	
==>undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2523	2669	
==>undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	134	243	
==>f)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	134	243	
==>f)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	134	243	
==>f)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7118	7234	
==>File( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even all <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	419	535	
==>File( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even all <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16532	16631	
==>tyExpressionNoIn :words {  # see 11.9
      <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11906	12035	
==>g ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15383	15512	
==>g ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14718	14847	
==>g ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_product ::= &product;
&cross_product <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10912	11119	
==>ethods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10912	11119	
==>ethods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10912	11119	
==>ethods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23829	23930	
==>r method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28381	28482	
==>r method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27203	27304	
==>r method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3365	3468	
==>of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3365	3468	
==>of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3365	3468	
==>of the original array.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	770	863	
==>any non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a consta <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	770	863	
==>any non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a consta <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	698	819	
==>_even (Num $x) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9324	9422	
==>size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then `size` wi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9324	9422	
==>size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then `size` wi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9198	9321	
==>};
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11513	11636	
==>};
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28092	28191	
==>>

This method returns all Message Variable names and values of this object as
a hash ref.

=item C< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28092	28191	
==>>

This method returns all Message Variable names and values of this object as
a hash ref.

=item C< <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3339	3442	
==>looser/equiv
  is assoc left/right/non/chain/list
  (is parsed)
  (will do)
  
  my $cat = Pugs::Grammar <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16177	16278	
==>defined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2586	2687	
==>defined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15371	15505	
==>ll work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15371	15505	
==>ll work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15371	15505	
==>ll work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	649	755	
==>lf->SUPER::do($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $self->SUPER::_bind_params($arg <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1656	1755	
==>l (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the res <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1656	1755	
==>l (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the res <==
3	/Users/nnunley/pugs/util/fixauthors.pl	456	569	
==>$_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get("http://se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7920	8020	
==>:alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7650	7746	
==>:alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22714	22836	
==>ments, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22993	23115	
==>ments, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::consta <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14916	15037	
==>shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

package Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1875	1997	
==>expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1875	1997	
==>expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1875	1997	
==>expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    ret <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2023	2132	
==>hen undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::L <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2023	2132	
==>hen undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::L <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9076	9285	
==>";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_parameter_binding( $n->{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17641	17736	
==>rtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17641	17736	
==>rtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1038	1153	
==>reach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1038	1153	
==>reach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1038	1153	
==>reach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	55	177	
==>gs;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside strings like:

    $a
    @a
    % <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2320	2439	
==>$density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2320	2439	
==>$density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	587	710	
==>print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	587	710	
==>print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3732	3859	
==>alues to signal error conditions
    # in library code. Do either! Let your caller decide!
    # instead of "die             'fi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1141	1237	
==>s);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1199	1295	
==>s);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5354	5454	
==>Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5354	5454	
==>Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5354	5454	
==>Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	423	524	
==>oo frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	434	535	
==>oo frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11323	11421	
==>eify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11323	11421	
==>eify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2991	3112	
==>not checking manifest here.

    local $SIG{__WARN__} = sub {1};
    require ExtUtils::Manifest;
    local *ExtUtils::Mani <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2560	2675	
==>= $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2560	2675	
==>= $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3009	3117	
==>aram{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3009	3117	
==>aram{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3009	3117	
==>aram{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7990	8121	
==>1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7990	8121	
==>1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7990	8121	
==>1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eva <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11980	12085	
==>rs );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15457	15562	
==>rs );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14792	14897	
==>rs );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7043	7177	
==>pper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7043	7177	
==>pper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7043	7177	
==>pper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3313	3410	
==>649.
# signature doesnt parse. using simplified one.
#multi Array::shift ( --> Scalar ) {
multi Ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16698	16836	
==>n $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18124	18262	
==>n $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24743	24881	
==>n $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{n <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	169	306	
==>ision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $Config{osname},
        pager     = <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	508	603	
==>et {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Nod <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	508	603	
==>et {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Nod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9477	9616	
==>e go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2530	2669	
==>e go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for m <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2262	2368	
==>et_pugs_config;
    $self->makemaker_args(
        INSTALLARCHLIB  => $libs->{archlib},
        INSTALLPRIV <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	139	247	
==>definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	139	247	
==>definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	139	247	
==>definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3630	3726	
==>", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

Th <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3630	3726	
==>", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

Th <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	739	841	
==>pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pu <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	739	841	
==>pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15650	15778	
==>bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15650	15778	
==>bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15650	15778	
==>bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16596	16694	
==>s not set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the op <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16596	16694	
==>s not set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the op <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	401	505	
==>ned ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tre <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	401	505	
==>ned ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4392	4519	
==>[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4585	4712	
==>[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3476	3593	
==>%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3476	3593	
==>%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3476	3593	
==>%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3231	3339	
==>);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3231	3339	
==>);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3231	3339	
==>);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16172	16322	
==>aving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16172	16322	
==>aving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16172	16322	
==>aving it here for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_v <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4893	5025	
==>odifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then thi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4893	5025	
==>odifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then thi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8387	8571	
==>perty_value{$key};
                # XXX - need to wrap $k?
            }
            $A.property_value{$P} = $Result12;
            return;
        }
        # 5
        $A.property_va <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4628	4707	
==>erl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4628	4707	
==>erl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1652	1778	
==>value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1652	1778	
==>value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1652	1778	
==>value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15233	15338	
==>d raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15233	15338	
==>d raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @! <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11260	11364	
==>Internals::hSeek(self, $position, $whence);
    }
}


class Pipe {
    # Easy to use, unidirectional pipe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6723	6840	
==>, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6723	6840	
==>, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17294	17393	
==>aram and returns a function that takes any param
# that function will return a pair with the first p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2924	3023	
==>ix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2924	3023	
==>ix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2924	3023	
==>ix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-» <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1476	1664	
==>" !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1476	1664	
==>" !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13160	13314	
==>er.  Will be run with /x
my $Extra_Header_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38913	39020	
==>- TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38913	39020	
==>- TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38913	39020	
==>- TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1684	1839	
==>e = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9761	9866	
==>ype::operator::nullary->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		my $a = type::variab <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1328	1432	
==>sion '$perl_version' is bad. Must be 5 or 6.";
    my $path = File::Spec->catdir($base, $blib);

    $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	398	512	
==>e (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	398	512	
==>e (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	398	512	
==>e (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	244	341	
==>perfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	244	341	
==>perfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cip <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	222	336	
==>ub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	222	336	
==>ub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'M <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	359	456	
==>) || die "Compile failed";
my $m;
if($bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2666	2769	
==>_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2666	2769	
==>_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2666	2769	
==>_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaro <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2748	2871	
==>en && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 | <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2748	2871	
==>en && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 | <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3251	3366	
==><1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3435	3550	
==><1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3391	3502	
==>ie unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3391	3502	
==>ie unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3391	3502	
==>ie unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpPara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4790	4981	
==>fined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4790	4981	
==>fined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4790	4981	
==>fined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3465	3720	
==>$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the ch <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2019	2124	
==>t find $file from $name" unless -e $file;
    }

    $self->version_from($file)      unless $self->version <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1571	1668	
==>nt) instead?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi  Num::l <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1438	1534	
==>rintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => Config => <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38712	38806	
==>iable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38712	38806	
==>iable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name wi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2520	2657	
==>ive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # S <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2520	2657	
==>ive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # S <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21895	21997	
==>>
}
rule WithStatement :words {  # see 12.10
      <'with'> <'('> <Expression> <')'> <Statement>
}
rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	750	870	
==>it' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	750	870	
==>it' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	750	870	
==>it' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13964	14109	
==>rn $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13964	14109	
==>rn $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13964	14109	
==>rn $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shift @{$self->{shifts}} if @{$self->{shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1101	1192	
==>------------------------------------------------------
## Roles

# Questions on Role methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1101	1192	
==>------------------------------------------------------
## Roles

# Questions on Role methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1101	1192	
==>------------------------------------------------------
## Roles

# Questions on Role methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16990	17090	
==>ernals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16990	17090	
==>ernals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16990	17090	
==>ernals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {...};

# op2
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2312	2408	
==>ted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keystre <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2312	2408	
==>ted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keystre <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2708	2800	
==>start(Z)    --> p5_concatenation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> {true}.

p5 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1876	1976	
==>{
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1876	1976	
==>{
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3743	3843	
==>f the test exited with non-zero, this is its exit status.

=item B<Wstat>

The wait status of the tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5103	5216	
==>elf, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5103	5216	
==>elf, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5103	5216	
==>elf, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectToke <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1948	2059	
==>ription = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1948	2059	
==>ription = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2028	2139	
==>ription = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8796	8927	
==>Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8796	8927	
==>Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8796	8927	
==>Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4507	4599	
==>$var."{".$key."}";
}
sub node::access_hashref_element {
   my $var = emit(get_data($_[0], '$< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	419	561	
==>ined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	334	476	
==>ined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	422	564	
==>ined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7170	7291	
==>> chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7170	7291	
==>> chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5054	5150	
==>$self->{defined_nodes}->includes($node);
}

sub reduce_thunk {
	my $self = shift;
	my $node = shi <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1327	1426	
==>new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TE <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	346	455	
==>= (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harness::Straps - de <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11459	11549	
==>$set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Retu <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11459	11549	
==>$set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3909	4009	
==>_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3909	4009	
==>_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3909	4009	
==>_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3330	3439	
==>t;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = () <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3330	3439	
==>t;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = () <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1645	1780	
==>code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1645	1780	
==>code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1645	1780	
==>code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16199	16339	
==>> set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19676	19816	
==>> set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19209	19349	
==>> set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading )
            } ) === any( $ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9945	10060	
==>red_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9945	10060	
==>red_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9945	10060	
==>red_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6049	6145	
==>me, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6049	6145	
==>me, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6049	6145	
==>me, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3071	3185	
==>$h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "P <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3071	3185	
==>$h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "P <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1686	1783	
==>elf.all_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5252	5363	
==>->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5252	5363	
==>->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5252	5363	
==>->{does};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	413	528	
==>e $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	413	528	
==>e $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	413	528	
==>e $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7785	7885	
==>$_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7785	7885	
==>$_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7785	7885	
==>$_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw< <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1547	1659	
==>str, 1, chars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $t <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6139	6235	
==>ext

All headers are returned split into the respective
lines.

=item Hash Context (if it exists? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6139	6235	
==>ext

All headers are returned split into the respective
lines.

=item Hash Context (if it exists? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17375	17470	
==>-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flav <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17375	17470	
==>-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flav <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17375	17470	
==>-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	148	251	
==>::TestBuilder = undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3220	3382	
==>..}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3220	3382	
==>..}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3220	3382	
==>..}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4761	4864	
==>provide POSIX features absent
   from an MSYS build. If you wish to fix this please refer to:

   http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1323	1426	
==>ositional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1323	1426	
==>ositional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1532	1635	
==>ositional argument after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8300	8414	
==>AILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	950	1049	
==>>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	950	1049	
==>>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2710	2819	
==>eturn cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2710	2819	
==>eturn cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2710	2819	
==>eturn cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3257	3405	
==>= @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3257	3405	
==>= @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3257	3405	
==>= @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2918	3028	
==>local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2918	3028	
==>local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2918	3028	
==>local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26939	27124	
==>',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    j <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	342	444	
==>her::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	342	444	
==>her::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1667	1777	
==>s .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1667	1777	
==>s .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1667	1777	
==>s .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + ar <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	328	486	
==>my @stack;
    for my $tok (split ' ', $expr) {
        if ($tok =~ /^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4823	4951	
==>'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4658	4780	
==>'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5134	5229	
==>tine is passed the current object in the recursion and
the wanted namespace ("MyName" in the cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5134	5229	
==>tine is passed the current object in the recursion and
the wanted namespace ("MyName" in the cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5134	5229	
==>tine is passed the current object in the recursion and
the wanted namespace ("MyName" in the cod <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6036	6130	
==>Type', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6036	6130	
==>Type', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2935	3029	
==>Type', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12745	12898	
==>deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12745	12898	
==>deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12745	12898	
==>deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( U <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	230	336	
==>ive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled from the archive nam <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1471	1566	
==>al programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1471	1566	
==>al programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3184	3410	
==>mbol'),
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e->crea <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2308	2450	
==>s a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2308	2450	
==>s a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4109	4206	
==>ute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4109	4206	
==>ute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4109	4206	
==>ute('$:name'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3724	3862	
==>=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3724	3862	
==>=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3724	3862	
==>=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1184	1309	
==>ly(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1184	1309	
==>ly(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1184	1309	
==>ly(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorL <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2344	2450	
==>$config{'build_dir'}        = $config{'jib_dir'}->subdir('build');
$config{'build_dir'}        = [ Path::Cl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	514	609	
==>ansfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	514	609	
==>ansfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-E <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17021	17122	
==>sionNoIn :words {  # see 11.10
      <EqualityExpressionNoIn>
    | <BitwiseANDExpressionNoIn> <'&'> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19821	19920	
==>tements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed int <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19821	19920	
==>tements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed int <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10059	10166	
==>n @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10059	10166	
==>n @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @sp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1841	1931	
==>\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeCompile->new($type=>$f) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2002	2090	
==>e::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but decipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2002	2090	
==>e::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but decipher <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1046	1146	
==>->type->to_native eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16111	16275	
==>b { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16111	16275	
==>b { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16111	16275	
==>b { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array- <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3023	3124	
==>span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3023	3124	
==>span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	596	713	
==>x:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	596	713	
==>x:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	596	713	
==>x:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10040	10151	
==>has %:attributes;
    # -----------------------------------------------    
      
    # ----------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10040	10151	
==>has %:attributes;
    # -----------------------------------------------    
      
    # ----------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10040	10151	
==>has %:attributes;
    # -----------------------------------------------    
      
    # ----------------------- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	594	716	
==>}
}

mk_constructors();

{
    package Blondie::Node;

    use Digest ();
    use Storable ();
    use overload ();
    use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	248	344	
==>Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	248	344	
==>Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	256	375	
==>ETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does tha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	256	375	
==>ETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does tha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	256	375	
==>ETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2290	2423	
==>esn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2290	2423	
==>esn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2290	2423	
==>esn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1744	1857	
==>val $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1744	1857	
==>val $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	795	904	
==>p { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sort keys %ccset;
}

if ($Conf{allccs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8435	8547	
==>ec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8435	8547	
==>ec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8435	8547	
==>ec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $E <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3199	3309	
==>, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top_obj <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5201	5321	
==>f = shift;
    return $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.ym <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2581	2678	
==>whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2581	2678	
==>whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1388	1487	
==>en to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  fo <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1388	1487	
==>en to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  fo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5177	5267	
==>s>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5177	5267	
==>s>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3056	3177	
==>attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3056	3177	
==>attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $ac <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3056	3177	
==>attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $is_rw = $access && $ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2420	2548	
==>rom_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2420	2548	
==>rom_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2420	2548	
==>rom_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6135	6278	
==>s ran
    good            Number of test files passed
    bad             Number of test files failed
    tests           Number of test files o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1142	1255	
==>opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implement <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	245	357	
==>opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	29	132	
==>ire 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	29	132	
==>ire 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	29	132	
==>ire 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36767	36893	
==>ces
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36767	36893	
==>ces
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36767	36893	
==>ces
    # see also: splice()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use D <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9265	9426	
==>');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9265	9426	
==>');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38207	38311	
==>rs.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42756	42860	
==>rs.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42406	42510	
==>rs.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9117	9271	
==>stantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9117	9271	
==>stantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9117	9271	
==>stantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12050	12145	
==>ue argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12050	12145	
==>ue argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16512	16611	
==>ad1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16512	16611	
==>ad1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16512	16611	
==>ad1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2302	2475	
==>ist::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature from PIL2JS A <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7168	7274	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EX <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7168	7274	
==>$val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4873	5032	
==>s_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4873	5032	
==>s_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4873	5032	
==>s_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1757	1895	
==>) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1757	1895	
==>) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1757	1895	
==>) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2185	2294	
==>unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14297	14430	
==>elf, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14297	14430	
==>elf, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14297	14430	
==>elf, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21882	21976	
==>e Relation role

=head1 VERSION

This document describes Relation::Example version 0.1.0.

It a <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2751	2840	
==>--------------------------------
## inserting children

method insert_children ($self: Int <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2751	2840	
==>--------------------------------
## inserting children

method insert_children ($self: Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21955	22084	
==>ject;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21955	22084	
==>ject;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21955	22084	
==>ject;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5427	5548	
==>l 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5427	5548	
==>l 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5427	5548	
==>l 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (bl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	696	848	
==>0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	696	848	
==>0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4574	4724	
==>> $match },
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub positional {
    # return <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2323	2418	
==>nd line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2323	2418	
==>nd line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21103	21212	
==>gree, and the attribute names of each tuple are all the same as those of
all the other tuples.

For purposes o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25655	25764	
==>gree, and the attribute names of each tuple are all the same as those of
all the other tuples.

For purposes o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24270	24379	
==>gree, and the attribute names of each tuple are all the same as those of
all the other tuples.

For purposes o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6022	6117	
==>::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

Thes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6022	6117	
==>::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

Thes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8219	8314	
==>::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

Thes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20720	20820	
==>) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20720	20820	
==>) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20720	20820	
==>) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5615	5735	
==>ack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5615	5735	
==>ack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1922	2037	
==>odule::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3359	3487	
==>);
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3359	3487	
==>);
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3359	3487	
==>);
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	38	136	
==>P::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	38	136	
==>P::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_he <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	322	429	
==>ere are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	322	429	
==>ere are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishin <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28327	28417	
==>the verbose results of running
its tests.  Setting C<$Test::Harness::verbose> will override <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20625	20719	
==><^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20625	20719	
==><^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20625	20719	
==><^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4247	4350	
==>wn", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4305	4408	
==>wn", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1516	1607	
==>) {
		if ($node->isa("Blondie::Node")){
			my $reduced = $self->SUPER::generic_reduce($node) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10341	10456	
==>rivate methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10341	10456	
==>rivate methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10341	10456	
==>rivate methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5627	5738	
==>r === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5627	5738	
==>r === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5627	5738	
==>r === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37105	37233	
==>( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37105	37233	
==>( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37105	37233	
==>( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10038	10147	
==><reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $hos <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10038	10147	
==><reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $hos <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15549	15651	
==>thod _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19026	19128	
==>thod _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22654	22758	
==>e => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"), <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3358	3457	
==>onfig
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3358	3457	
==>onfig
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3155	3263	
==>ative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all names wi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3155	3263	
==>ative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all names wi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2736	2856	
==>ensity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

me <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2736	2856	
==>ensity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

me <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29340	29436	
==>which rather than printing its output returns raw data
on the state of the tests.  (Partially don <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2690	2794	
==>nline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2690	2794	
==>nline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2690	2794	
==>nline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4707	4820	
==>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5940	6050	
==>)-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5940	6050	
==>)-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	636	778	
==>(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1840	1957	
==>here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1840	1957	
==>here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2515	2612	
==>aded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_onl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2515	2612	
==>aded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_onl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2515	2612	
==>aded",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18692	18841	
==>d 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18692	18841	
==>d 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18692	18841	
==>d 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10134	10295	
==>f.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot skip_all with a pl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2185	2328	
==>f.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a pl <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2185	2328	
==>f.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot skip_all with a pl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2745	2897	
==>hods rely on it
            $obj->dir( $dir );
            $obj->config( $config );
            
            ### if the metadir doesn't exist yet, this i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2557	2663	
==>unless ( -f $self->{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10443	10557	
==>iable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10601	10715	
==>iable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11213	11310	
==>rmed by calling the qr() method of each node in the tree,
which may be different from the visual() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5829	5952	
==>=> sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5829	5952	
==>=> sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5829	5952	
==>=> sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14796	14900	
==>->catfile(File::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable file from the n <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	279	378	
==>f:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!fi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	279	378	
==>f:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1332	1430	
==>me() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1332	1430	
==>me() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1332	1430	
==>me() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4059	4189	
==>sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4059	4189	
==>sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4059	4189	
==>sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1202	1311	
==>s Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1202	1311	
==>s Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1202	1311	
==>s Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1705	1855	
==>$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13058	13146	
==>ge
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13058	13146	
==>ge
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11563	11687	
==>elf, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11563	11687	
==>elf, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11563	11687	
==>elf, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	319	431	
==>cal $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '"" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	319	431	
==>cal $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '"" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	319	431	
==>cal $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '"" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6159	6292	
==>to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5962	6087	
==>to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	344	443	
==>++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14037	14169	
==>- $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14037	14169	
==>- $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14037	14169	
==>- $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6756	6866	
==>param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6756	6866	
==>param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23729	23837	
==>y $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23729	23837	
==>y $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23729	23837	
==>y $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	237	352	
==>ram = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	237	352	
==>ram = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $clas <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7953	8056	
==>1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto (pop @bsrStack <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15141	15245	
==>t  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15141	15245	
==>t  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12522	12614	
==>error is a particular one, use the error_is() method:

  if ($parser->error_is($parser->RPe_B <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5424	5568	
==>hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshnes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5424	5568	
==>hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshnes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33520	33616	
==>reg_any

Types: reg_any (C<.>), sany (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: al <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1027	1149	
==>h($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1.. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1196	1318	
==>h($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1.. <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	95	188	
==>g $name ) { "$gruß, $name!".say; }
}
#=Aufruf
$welt.hallo("Hallo", "Mike");
$welt.hallo("Tach <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5543	5644	
==>zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is ex <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5543	5644	
==>zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is ex <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3136	3234	
==>func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $base) {
    given $base { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40213	40324	
==>ey ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40213	40324	
==>ey ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40213	40324	
==>ey ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9391	9593	
==>es})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9391	9593	
==>es})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9391	9593	
==>es})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12177	12297	
==>tor(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12177	12297	
==>tor(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12177	12297	
==>tor(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	135	245	
==>mitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be remov <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	135	245	
==>mitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be remov <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	135	245	
==>mitives which are written in p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be remov <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	16	136	
==>YAML            qw[LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	243	344	
==>$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	243	344	
==>$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2357	2470	
==>ake unoptimzed` which doesn't create it.
        mkpath(dirname($ppc_yml));
        
        run($^X, qw<util/gen_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20942	21038	
==>ctor or header() method, the same
field name should not occur multiple times.  The result of doin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20942	21038	
==>ctor or header() method, the same
field name should not occur multiple times.  The result of doin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1487	1634	
==>ge-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($message)";
    } => 'Dispatchable';
}

{ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13109	13251	
==>$_[0]} },
      code  => sub { "". $_[0] },
      ref   => sub { "". $_[0] },
      glob  => sub { "". ${$_[0]} },
      lvalue => sub { p6_as_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	834	932	
==>are nominally:
  1- Provide an environment in which p6 rules can be run against strings,
  sufficie <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3446	3544	
==>actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3446	3544	
==>actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5643	5741	
==>actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

= <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12893	13004	
==>},
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This method <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12893	13004	
==>},
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This method <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4416	4791	
==>gex
                          ([xim]*)                              # RE options
                        )?                                      # End of regex block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6606	6719	
==>rrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6606	6719	
==>rrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	284	395	
==>rking :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	284	395	
==>rking :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unle <==
3	/Users/nnunley/pugs/util/version_h.pl	2018	2124	
==>for $version_h got slot #0, like STDIN.
  no warnings "io";
  open OUT, "> $version_h" or die $!;
  print O <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	585	687	
==>ti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	585	687	
==>ti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	585	687	
==>ti sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	847	972	
==>>eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	847	972	
==>>eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	847	972	
==>>eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function (str) {
          return _bar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3256	3389	
==>$self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3256	3389	
==>$self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3256	3389	
==>$self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14955	15049	
==>ed headers can also be accessed through the
following convenience methods.  These methods can b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14955	15049	
==>ed headers can also be accessed through the
following convenience methods.  These methods can b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	412	504	
==>$_[0]{tree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser::Diagnostics;
use Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7535	7691	
==>ETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7535	7691	
==>ETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7535	7691	
==>ETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2363	2458	
==>[ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2363	2458	
==>[ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2363	2458	
==>[ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11346	11437	
==>::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReason does Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1802	1889	
==>::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1802	1889	
==>::Builder::Test::Base {}

role Test::Builder::Test::WithReason does Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	729	851	
==>ts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	729	851	
==>ts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	729	851	
==>ts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Could <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	737	853	
==>ess, $target, $f, $fprime);

        say "{$count++}: $guess" if $verbose;
    }
    return $guess;
}

=head1 NAME

N <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2003	2092	
==>fficial AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/A <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2003	2092	
==>fficial AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5231	5332	
==>($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5231	5332	
==>($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5231	5332	
==>($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2860	2979	
==>lse if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2860	2979	
==>lse if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2860	2979	
==>lse if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs();
      var hash  = new PIL2JS.Hash;
      for(var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17179	17274	
==>touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17179	17274	
==>touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9400	9528	
==>::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9400	9528	
==>::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9400	9528	
==>::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body- <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5755	5837	
==>5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny. <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5755	5837	
==>5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny. <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	61	163	
==>ay "ist 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	309	438	
==>$_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
}

sub makemaker_args {
    my $self = shift;
    my $arg <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5590	5693	
==>x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5590	5693	
==>x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18242	18338	
==>rd.>

=item $h.referer

Used to specify the address (URI) of the document from which the
requeste <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18242	18338	
==>rd.>

=item $h.referer

Used to specify the address (URI) of the document from which the
requeste <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5852	5946	
==>definition($node => "$return_type $symbol (" . join(", ", @params) . ") {" . join("\n\t", "", ( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16128	16230	
==>n be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16128	16230	
==>n be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Span <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27736	27834	
==>ber that is an empty Mapping.

=back

A Relation::Example object has these methods:

=over

=item C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	121	253	
==>TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	121	253	
==>TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	121	253	
==>TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	628	739	
==>l5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	628	739	
==>l5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	628	739	
==>l5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18415	18510	
==>the right input
format for Node.new(), by which you can create an identical Node (with
child Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18415	18510	
==>the right input
format for Node.new(), by which you can create an identical Node (with
child Nod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9749	9842	
==>value from another $iFoo singleton method');   

is($iFoo->test_iFoo_singleton_method(), 
 '$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17029	17146	
==>END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17029	17146	
==>END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17029	17146	
==>END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	984	1096	
==>return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	984	1096	
==>return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	808	915	
==>peratorTable({}); 
  $object;
}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$has <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5203	5335	
==>ODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5203	5335	
==>ODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	60	157	
==>warnings;
use base qw(Pugs::Grammar::BaseCategory);

# TODO - implement the "magic hash" dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1572	1694	
==>def, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1572	1694	
==>def, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1572	1694	
==>def, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1326	1437	
==>er 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1326	1437	
==>er 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1326	1437	
==>er 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9653	9759	
==>from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9653	9759	
==>from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9653	9759	
==>from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9674	9795	
==>EscapeCharacter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4527	4635	
==>odes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4527	4635	
==>odes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28425	28522	
==>te the ending node for this object.
This is used by the walk() method.  Typically, a capturing gro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5793	5886	
==>rce_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5872	5965	
==>rce_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19672	19792	
==>cient to "Forces List Context"?
}


 multi Conversions::Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "F <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5974	6069	
==>rce_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5662	5757	
==>rce_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6255	6468	
==>>{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6255	6468	
==>>{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6255	6468	
==>>{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8980	9125	
==>st::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1128	1257	
==>st::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1128	1257	
==>st::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	736	859	
==>$_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	736	859	
==>$_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1913	2025	
==>$line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.jo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1913	2025	
==>$line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.jo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1993	2105	
==>$line;
}

sub test_test ( Str $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2985	3097	
==>ss  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2985	3097	
==>ss  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2985	3097	
==>ss  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6394	6502	
==>ule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compile <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9046	9148	
==>is method is used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
me <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9046	9148	
==>is method is used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7783	7923	
==>f->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7783	7923	
==>f->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7783	7923	
==>f->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3592	3689	
==>sts: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3592	3689	
==>sts: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3592	3689	
==>sts: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22421	22560	
==>$max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1245	1344	
==>ed only 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1245	1344	
==>ed only 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16809	16904	
==>~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16809	16904	
==>~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16809	16904	
==>~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12842	12960	
==>ub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12842	12960	
==>ub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12842	12960	
==>ub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3642	3772	
==>>();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3642	3772	
==>>();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3642	3772	
==>>();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5	113	
==>r/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5	113	
==>r/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5	113	
==>r/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6106	6218	
==>f (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6106	6218	
==>f (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6106	6218	
==>f (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenC <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16128	16225	
==>ng mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16128	16225	
==>ng mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11294	11475	
==>ch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11294	11475	
==>ch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11294	11475	
==>ch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1741	1854	
==>f eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1741	1854	
==>f eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1741	1854	
==>f eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6386	6508	
==>}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34726	34822	
==>y Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34726	34822	
==>y Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_na <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27949	28044	
==>relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32501	32596	
==>relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31593	31688	
==>relation is
identical to the invocant.  This method will fail if any keys of C<$attrs>
duplicate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	218	328	
==>"recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	218	328	
==>"recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	218	328	
==>"recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18098	18226	
==>,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24717	24845	
==>,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen { <==
3	/Users/nnunley/pugs/util/package-osx.pl	4819	4916	
==>l6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8043	8155	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8236	8348	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	262	377	
==>ler;
    bless { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Run <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38807	38902	
==>ll be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGU <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38807	38902	
==>ll be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19577	19694	
==>~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19577	19694	
==>~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19577	19694	
==>~ /^\&(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	864	966	
==>ncee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i-- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	864	966	
==>ncee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i-- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	864	966	
==>ncee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i-- <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2896	3008	
==>verse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	63	170	
==>ON = '0.01';

use File::Copy;

# change these two lines if it turns out we need the real YAML.pm
use PugsBui <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4014	4112	
==>uxrc=$linuxrc
    --linuxrc is the first script to run after the kernel has started.
  --welcome-p6 <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1734	1845	
==>_attributes }
       );
}

method all_methods($self:) returns Set {
    set(
        set( $self.all_superclasses <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1517	1604	
==>grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1517	1604	
==>grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<t <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15490	15607	
==>ue, $sec, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool::False, $sec, $pico);

        # FIXM <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	24	125	
==>t is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all it's doing is <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	24	125	
==>t is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all it's doing is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	671	793	
==>elf;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=h <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	576	678	
==>e


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checke <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	576	678	
==>e


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	332	445	
==>XXX - PCR is not calling this
*ws = &Pugs::Grammar::BaseCategory::ws;

sub ast {
    my $match = shift;
    $match <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14411	14505	
==>using  => sub { open my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menuls <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15678	15821	
==>ust be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted in <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19911	20054	
==>ust be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted in <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8622	8720	
==>xample.

You can also overload this method if you've built your own strap subclass,
such as a PHP i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6040	6144	
==>x) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6040	6144	
==>x) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6040	6144	
==>x) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2019	2138	
==>def, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2019	2138	
==>def, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2019	2138	
==>def, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29042	29163	
==>old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33594	33715	
==>old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32731	32852	
==>old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1449	1562	
==>kage VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1449	1562	
==>kage VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1449	1562	
==>kage VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4266	4397	
==>pendent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loop <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4266	4397	
==>pendent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loop <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10778	10880	
==>Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$c <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	173	275	
==>ce - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	173	275	
==>ce - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2847	2979	
==>r writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2847	2979	
==>r writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2847	2979	
==>r writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't cl <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19993	20102	
==>omb(
	fun => $app_to_str,
	param => $plus_ten,
);

my $fac = fun(
	param => "x",
	body => let(
		ide => "fac'" <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	163	265	
==>h$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	163	265	
==>h$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3550	3957	
==>None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rig <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3550	3957	
==>None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rig <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4259	4407	
==><perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5108	5256	
==><perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	275	382	
==>or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	275	382	
==>or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	275	382	
==>or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7619	7739	
==>DivPunctuator {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2236	2331	
==>{...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mar <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2236	2331	
==>{...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2707	2856	
==>s eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2707	2856	
==>s eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2707	2856	
==>s eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	161	266	
==>le" function gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an opt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	152	253	
==>le" function gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8635	8751	
==>6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8635	8751	
==>6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "L <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8635	8751	
==>6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "L <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6520	6624	
==>oto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCL <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2972	3062	
==>rep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) returns Se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2972	3062	
==>rep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) returns Se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3180	3312	
==>'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3908	4014	
==>'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3084	3196	
==>dn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for eac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3084	3196	
==>dn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for eac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3084	3196	
==>dn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for eac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3017	3136	
==>class->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3017	3136	
==>class->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3017	3136	
==>class->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass->sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	548	660	
==>osName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	548	660	
==>osName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	548	660	
==>osName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21580	21686	
==>gical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3400	3502	
==>roup of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3400	3502	
==>roup of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[< <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8800	8918	
==>8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(900 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8800	8918	
==>8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(900 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1555	1664	
==>e are dependant on the installation, so they are 
### marked privata.. their public equivalents live in Instal <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2539	2636	
==>able($node) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduce(" . (ref($node) ? $no <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30248	30343	
==>at order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34800	34895	
==>at order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose att <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6043	6150	
==>n "our PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6502	6597	
==>yte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method should oper <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6502	6597	
==>yte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method should oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4532	4653	
==>);

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4532	4653	
==>);

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4532	4653	
==>);

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23737	23863	
==>lass;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp::Parser::ifth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3981	4087	
==>ymbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3981	4087	
==>ymbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19094	19205	
==>lumn.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the fir <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19094	19205	
==>lumn.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the fir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8528	8728	
==>' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12756	12854	
==>k of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- ` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12814	12912	
==>k of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- ` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12302	12401	
==>p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12302	12401	
==>p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12302	12401	
==>p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3246	3363	
==>foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3246	3363	
==>foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3246	3363	
==>foreach (@components) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2573	2667	
==>elf.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2573	2667	
==>elf.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2573	2667	
==>elf.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17922	18106	
==>r class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17922	18106	
==>r class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17922	18106	
==>r class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39242	39360	
==>ms}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39242	39360	
==>ms}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39242	39360	
==>ms}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	645	776	
==>epth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	645	776	
==>epth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	645	776	
==>epth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1751	1889	
==>cient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1751	1889	
==>cient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2568	2688	
==>amer,
                          void* data, U32 flags)
{
  if(!CONTAINS_RECOGNITION_FLAG(r)) {
    return previous_exec_h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	519	625	
==>:CLASS->new('$.testplan' => $plan, '$.output'   => $output)) 
                unless defined __('$:singleto <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	707	805	
==>to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1297	1395	
==>to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38833	38928	
==>C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation libra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43647	43742	
==>C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation libra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43181	43276	
==>C<perl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation libra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	886	985	
==>b postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	886	985	
==>b postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	886	985	
==>b postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2123	2257	
==>turn @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2123	2257	
==>turn @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && ex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9815	9921	
==>rget, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, targ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	98	195	
==>cccessor - all it's doing is making the
# "source" property of the object fallback to "content"
me <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	98	195	
==>cccessor - all it's doing is making the
# "source" property of the object fallback to "content"
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2304	2405	
==>Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2304	2405	
==>Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2304	2405	
==>Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	823	949	
==>) -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	823	949	
==>) -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	823	949	
==>) -> $attr {
            my $attr_obj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5013	5125	
==>();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5013	5125	
==>();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5013	5125	
==>();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7437	7545	
==>= $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7437	7545	
==>= $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7437	7545	
==>= $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	267	388	
==>sg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	267	388	
==>sg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	267	388	
==>sg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	232	338	
==>cheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $sch <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	268	373	
==>cheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($sch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2644	2738	
==>2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is currently the most complete implemen <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	994	1093	
==>t =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	994	1093	
==>t =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26732	26829	
==>F8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best to intuit befo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6627	6748	
==>o 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6627	6748	
==>o 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6627	6748	
==>o 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1462	1629	
==>ethods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1667	1834	
==>ethods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1728	1895	
==>ethods'}{$label};
            goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14406	14601	
==>{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14406	14601	
==>{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14406	14601	
==>{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5398	5501	
==>r of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5398	5501	
==>r of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5398	5501	
==>r of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	745	881	
==>macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	745	881	
==>macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	745	881	
==>macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	933	1048	
==>al => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	933	1048	
==>al => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	933	1048	
==>al => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5940	6084	
==>MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5940	6084	
==>MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5940	6084	
==>MRO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigen <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1194	1295	
==>:= &Num::truncate;

 # XXX - referred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> -- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24218	24336	
==>FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11672	11774	
==>code property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4315	4417	
==>code property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25530	25628	
==>e printed in a message similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Fail <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11402	11498	
==>it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11460	11556	
==>it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4006	4131	
==>tch => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4199	4324	
==>tch => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15064	15158	
==>the type variables in the cloned function to be instantiated to the concrete values as inferred <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4981	5089	
==>if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4981	5089	
==>if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4981	5089	
==>if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	136	251	
==>}
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	136	251	
==>}
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	136	251	
==>}
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<E <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4017	4106	
==>lder::Test::Fail
instance, passing on the C<$description> parameter and setting the passed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4017	4106	
==>lder::Test::Fail
instance, passing on the C<$description> parameter and setting the passed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6214	6303	
==>lder::Test::Fail
instance, passing on the C<$description> parameter and setting the passed <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1123	1231	
==>for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1123	1231	
==>for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9372	9469	
==>: symbol $label) returns nil { 
    %:methods.delete($label);
}

(method remove_method ((opaque $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1065	1211	
==>tyseqs) {
            $cand = $seq->fetch(num->new(0)); # get the head of the list
            my $nothead;            
            foreach my $sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10571	10669	
==>thods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Mak <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10571	10669	
==>thods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35454	35593	
==>n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35454	35593	
==>n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35454	35593	
==>n( -$length );
            ( $len_body, @body ) = $array->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array- <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	850	956	
==>t('=',$_);
        %Session{$variable} = url_decode($value) if ($variable ne '');
    } 
}

sub SessionDest <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3834	3938	
==>m
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4051	4155	
==>m
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] ) <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	559	678	
==>ile) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	526	645	
==>ile) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' f <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1328	1423	
==>namic scopes (not really a reduer).

=head1 SYNOPSIS

    use base qw/Blondie::Reducer::DynamicS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13281	13455	
==>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13281	13455	
==>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13281	13455	
==>params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51708	51987	
==>shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->conca <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51097	51347	
==>shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->conca <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	761	878	
==>}

sub compile {
    my $self = shift;

    $self->runtime(shift);
    $self->env(my $env = shift);

    my $ast = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7167	7294	
==>know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7167	7294	
==>know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7167	7294	
==>know if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6448	6606	
==>>{param} );
            }
            return " print '', $s";
        }
        if ( $n->{method}{bareword} eq 'say' ) {
            my $s = _emit( $n->{s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9044	9146	
==>SO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9044	9146	
==>SO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18600	18694	
==>urns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18600	18694	
==>urns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12302	12448	
==>pile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"as <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8578	8724	
==>pile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"as <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9413	9559	
==>pile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9074	9183	
==>}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junct <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9074	9183	
==>}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junct <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9074	9183	
==>}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junct <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6534	6647	
==>$_ => 1)},
        <i ignorecase s sigspace g global  stringify>;
        %modifiers_supported_p5 = map {;($_ => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7359	7461	
==>.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'p <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7359	7461	
==>.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4169	4272	
==>self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4169	4272	
==>self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4169	4272	
==>self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2046	2147	
==>verse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1032	1133	
==>verse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4561	4705	
==>{ bin => \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfile, $href );
    }

    ### remove this package f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4092	4211	
==>e by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_cla <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3042	3148	
==>e by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_cla <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2448	2575	
==>ex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2448	2575	
==>ex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11314	11435	
==>},
      scalar_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1721	1843	
==>t

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_ini <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5767	5873	
==>::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5767	5873	
==>::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10772	10886	
==>(newline))           --> "\\n", !. %# XXX - not quite?
p6_char_class(class_neg(newline))           --> "\\N", !.

p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4056	4163	
==>[0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4056	4163	
==>[0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5426	5528	
==>warnings 'redefine';
  *{ ref($self) . "::FLAG_$seq" } = $func;
}


sub del_flag {
  my ($self, @flags) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33163	33256	
==>clusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37713	37806	
==>clusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3809	3925	
==>$stage eq 'p6_file') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file {
    my($se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2351	2460	
==>hod($label, %opts);
    }
}

# alternate p6 version
sub *WALKMETH (block &dispatcher, symbol $label, hash %opt <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1169	1269	
==>f $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $str =~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2809	2923	
==>ub build {
    my $self = shift;
    my $conf = $self->config;

    ### XXX move to builddir under pkg_dir/_jib/bui <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	274	367	
==>emove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	274	367	
==>emove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1608	1706	
==>lue) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1608	1706	
==>lue) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3106	3211	
==>$self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3106	3211	
==>$self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7719	7816	
==>od BUILD {
    $.property_attributes{'length'} =
        JSX::PropertyAttributes.new(:DontEnum :Do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10578	10709	
==>cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10578	10709	
==>cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10578	10709	
==>cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10581	10758	
==>" .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6922	7099	
==>" .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7771	7948	
==>" .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit t <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4570	4817	
==>when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4570	4817	
==>when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	632	747	
==>L/;


$| = 1;
my $start = time;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1812	1929	
==>+;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1812	1929	
==>+;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($mod <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36335	36430	
==>is used
internally by translate_message() to produce the list of Template module
names that it w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36335	36430	
==>is used
internally by translate_message() to produce the list of Template module
names that it w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3180	3272	
==>values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3180	3272	
==>values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1640	1759	
==>emote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1640	1759	
==>emote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14543	14625	
==>re_reverse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(Rb0,Rb1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23681	23794	
==>y $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23681	23794	
==>y $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23681	23794	
==>y $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2105	2258	
==>edo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2105	2258	
==>edo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2105	2258	
==>edo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5264	5389	
==>= %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5264	5389	
==>= %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1263	1391	
==>= "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1263	1391	
==>= "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12041	12143	
==>tal.  These will be limited to
  strings, rather than Match objects.

  A set of hooks should be define <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	980	1080	
==>p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C< <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	980	1080	
==>p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C< <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14440	14529	
==>XX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%-------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2065	2213	
==>cher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2065	2213	
==>cher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2065	2213	
==>cher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13485	13657	
==>->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21149	21243	
==>hannels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21149	21243	
==>hannels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1492	1646	
==>/trunk/design/syn/S06.pod
    bit         single native bit
    int         native integer
    str         native string (sequence of integers, no Unicode) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7395	7492	
==>data until they have an entire block, then cipher 
the block and return the new ciphertext (or pla <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7395	7492	
==>data until they have an entire block, then cipher 
the block and return the new ciphertext (or pla <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9565	9665	
==>e_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9565	9665	
==>e_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1284	1379	
==>atch.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does above <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1284	1379	
==>atch.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does above <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15459	15552	
==>es::encode($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15459	15552	
==>es::encode($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3989	4125	
==>shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3989	4125	
==>shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3989	4125	
==>shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: unde <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15077	15189	
==>r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18554	18666	
==>r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17970	18082	
==>r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2821	2967	
==>eturn;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5840	5981	
==>->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD' => $ast <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2713	2852	
==>eturn;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3492	3592	
==>_normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $un <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3492	3592	
==>_normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $un <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	245	336	
==>ssed($node) && (my $meth = $self->can("reduce_" . $node->moniker))) {
		return $self->$meth( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10588	10771	
==>kipped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TODO handler
            #print <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18248	18339	
==>lbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_pr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18248	18339	
==>lbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	609	801	
==>_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	609	801	
==>_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	609	801	
==>_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18288	18400	
==>val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and bas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29099	29194	
==>> have a "predecessor" (that is, a '&&' with a
'&') are post-consumption: they have already matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1065	1163	
==>e these attributes in all the currently live instances
# of Class (which are ::Class, ::Package, :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1065	1163	
==>e these attributes in all the currently live instances
# of Class (which are ::Class, ::Package, :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1065	1163	
==>e these attributes in all the currently live instances
# of Class (which are ::Class, ::Package, :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11644	11749	
==>finedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11644	11749	
==>finedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11644	11749	
==>finedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	67	200	
==>Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	67	200	
==>Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/' <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	810	932	
==>%$clean, 
        FILES => join(" ", grep length, $clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2380	2480	
==>changed when you define new traits of Classes,
Roles, etc - or when you do even scarier things to the <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3656	3753	
==>>{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[1]
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8001	8137	
==>n_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8013	8149	
==>n_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4140	4243	
==>line, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4140	4243	
==>line, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11999	12110	
==>> method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11999	12110	
==>> method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11999	12110	
==>> method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribute && blessed($att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2382	2522	
==>lf->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2382	2522	
==>lf->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2382	2522	
==>lf->env->set(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2144	2251	
==>e. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2144	2251	
==>e. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2144	2251	
==>e. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2692	2798	
==>to the Prelude,
# which is assumed to be the first module in the list.
sub gen_source {
    my($target) = @ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1242	1336	
==>) if $Config{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s->r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2339	2450	
==>ompare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2339	2450	
==>ompare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27429	27529	
==>>add_flag("u" => sub { 0x10 });

This makes 'u' a valid flag for your regex, and creates the method
C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40579	40693	
==>{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40579	40693	
==>{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40579	40693	
==>{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2930	3044	
==>die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2930	3044	
==>die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2930	3044	
==>die $@ if $@;
  return $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1332	1474	
==>ETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1332	1474	
==>ETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1332	1474	
==>ETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAn <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9003	9147	
==>sh::unparse {
    my $n = $_[0]->name;
    my @kv;
    for my $k (@{$_[0]->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11546	11641	
==>attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This st <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11546	11641	
==>attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12246	12350	
==>normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12246	12350	
==>normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12246	12350	
==>normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6546	6663	
==>onstant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6546	6663	
==>onstant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6546	6663	
==>onstant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14199	14291	
==>Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14199	14291	
==>Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14199	14291	
==>Grapheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5591	5740	
==>js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5591	5740	
==>js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5591	5740	
==>js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2054	2204	
==>command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2054	2204	
==>command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2054	2204	
==>command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6054	6182	
==>);
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6054	6182	
==>);
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6054	6182	
==>);
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1788	1942	
==>ue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1788	1942	
==>ue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1788	1942	
==>ue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1086	1196	
==>se Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1086	1196	
==>se Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1086	1196	
==>se Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS::Proxy;

method JS::Ro <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10667	10770	
==>code_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $code = $code_val;
    if($ki <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	116	207	
==>UILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	116	207	
==>UILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) re <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	859	957	
==>ous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	859	957	
==>ous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2347	2444	
==>ated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <noncapturing_gro <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4797	4973	
==>her  safe   (Code)\
\\n   List      pre     map     safe   (Code, List)\
\\n   List      pre     grep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6419	6543	
==>ntext =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpas <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6477	6601	
==>ntext =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpas <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2458	2552	
==>ot convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smoke_upload) {
  if (def <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1853	1977	
==>its, aliasing, etc.)
    Str         Perl string (Unicode semantics)
    Num         Perl number
    Complex     Perl complex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1838	1941	
==>raph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1898	2001	
==>raph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2027	2142	
==>ted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # sou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2027	2142	
==>ted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # sou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2027	2142	
==>ted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the time the
  # sou <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1680	1793	
==>rse?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbit <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1680	1793	
==>rse?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbit <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6533	6646	
==>ILCALL(&$c,$noop);
    } if $re eq '$';
    die "didn't implement $re"
  }
}
{
  # . \C
  package Regexp::Parser:: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12142	12242	
==>lease remember to update t/pugsrun/11-safemode.t if you change the fully
    # qualified name of open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2271	2407	
==>apped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER::// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2271	2407	
==>apped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER::// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2271	2407	
==>apped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER::// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	626	728	
==>wrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	626	728	
==>wrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	626	728	
==>wrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37666	37757	
==>xample $other!) returns Relation::Example>

This method is a generic relational operator tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38255	38346	
==>xample $other!) returns Relation::Example>

This method is a generic relational operator tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38506	38597	
==>xample $other!) returns Relation::Example>

This method is a generic relational operator tha <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8276	8404	
==>LED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11338	11444	
==>) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11338	11444	
==>) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23162	23252	
==>x1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23162	23252	
==>x1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23162	23252	
==>x1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2148	2258	
==>%hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2148	2258	
==>%hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2148	2258	
==>%hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test 'readon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18354	18452	
==>xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18354	18452	
==>xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18354	18452	
==>xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15791	15915	
==>d in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15791	15915	
==>d in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15791	15915	
==>d in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14758	14855	
==>etta" DBMS framework is a powerful but elegant system, which makes
it easy to create and use relat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14758	14855	
==>etta" DBMS framework is a powerful but elegant system, which makes
it easy to create and use relat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33844	33939	
==>gated

=head2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	314	475	
==>xed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	314	475	
==>xed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	314	475	
==>xed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2456	2655	
==>return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5933	6132	
==>return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4863	5062	
==>return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mappi <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1352	1478	
==>in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," ! <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1352	1478	
==>in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," ! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1292	1414	
==>umber'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuilder->FETCH('::T <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	256	347	
==>$self.length - $duration.length);
}

#method infix:<->($self: Duration $duration) returns Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1545	1656	
==>}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1545	1656	
==>}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1545	1656	
==>}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3365	3461	
==>ttributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3365	3461	
==>ttributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3365	3461	
==>ttributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2270	2400	
==>I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$pru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2270	2400	
==>I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$pru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2270	2400	
==>I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$pru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7465	7622	
==>e $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7465	7622	
==>e $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7465	7622	
==>e $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23834	23957	
==><uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <uriCharacter> <uriCharacters>?
}
rule uriCharacter {  # see 15. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5218	5327	
==>$!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5218	5327	
==>$!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6333	6467	
==>m, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6333	6467	
==>m, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_ <==
3	/Users/nnunley/pugs/util/importgraph.pl	2205	2290	
==>s');
setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Compile <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	344	440	
==>ipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen r <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	344	440	
==>ipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen r <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3565	3661	
==>urrently can't do lexical.  It's not clear how to do
it.  Possible tools include get_sv, eval_pv, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3833	3944	
==>XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3833	3944	
==>XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3833	3944	
==>XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defined $f_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3912	4013	
==>Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3912	4013	
==>Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3912	4013	
==>Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	952	1053	
==>scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	952	1053	
==>scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	952	1053	
==>scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29766	29887	
==>ns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very sim <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29766	29887	
==>ns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very sim <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31380	31496	
==>el_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ ... })> is a synonym for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2574	2682	
==>gs
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2574	2682	
==>gs
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2574	2682	
==>gs
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main-> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	242	354	
==>thod dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	242	354	
==>thod dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6683	6797	
==>mp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6683	6797	
==>mp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6683	6797	
==>mp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4223	4344	
==>:run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4223	4344	
==>:run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4223	4344	
==>:run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5056	5163	
==>t_files} };

if($#t_dirs < 0) {    
    for(keys %$files) { handle_t_file( catdir(split /\/+/, $_) ); }
} el <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1499	1592	
==><docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<exa <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1499	1592	
==><docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<exa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4997	5173	
==>}

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4842	5013	
==>}
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5868	5998	
==>nge',
      type => 'anyof_range',
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11635	11747	
==>], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11635	11747	
==>], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11635	11747	
==>], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3682	3866	
==>->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3682	3866	
==>->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3682	3866	
==>->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7631	7740	
==>\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s/\?//;
	    $h{'slurpy'}=1 if s/\*//;
	    $h{'isNam <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3790	3893	
==>ext . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5150	5253	
==>ext . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4718	4858	
==>iting: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4718	4858	
==>iting: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4718	4858	
==>iting: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2185	2309	
==>instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2185	2309	
==>instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2185	2309	
==>instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2243	2361	
==>(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2243	2361	
==>(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2243	2361	
==>(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "St <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2378	2552	
==>cum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ), <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	787	889	
==>%variables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $retu <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	787	889	
==>%variables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1436	1549	
==>r keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1436	1549	
==>r keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1436	1549	
==>r keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	214	312	
==>bjects.
   (Even though this impairs 1?)
Please note efficiency isnt currently on the goal list.

C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4657	4758	
==>in
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This paramet <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4657	4758	
==>in
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6854	6955	
==>in
a string describing why the test is a skip or TODO test.

=item C<?$description = ''>

This paramet <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	150	252	
==>Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DESCRIPTION

This purpose of t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1003	1105	
==>d_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for you <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1003	1105	
==>d_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for you <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26612	26711	
==>ssRangesNoDash {  # see 15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1718	1845	
==>al *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $file eq File::Spec->up <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18796	18892	
==>s) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18796	18892	
==>s) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosett <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10003	10124	
==>spatcher" <block>))))
                 (returns <method>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6451	6564	
==>> 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6451	6564	
==>> 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5215	5372	
==>y($from,$to);
    my $tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3378	3494	
==>|| $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3378	3494	
==>|| $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	167	278	
==>rter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmlj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	167	278	
==>rter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmlj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	167	278	
==>rter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmlj <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1569	1706	
==>m\n";
        $Config{"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hits = ( <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3930	4036	
==>rray ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3930	4036	
==>rray ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	381	486	
==>$args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	381	486	
==>$args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	381	486	
==>$args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_a <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1142	1289	
==>if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1142	1289	
==>if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	809	919	
==>bstr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	809	919	
==>bstr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43386	43483	
==>Relation class.

These other Perl 6 packages also work in the problem domain of managing
data or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3794	3892	
==>r $self;
}));

## ----------------------------------------------------------------------------
## P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3794	3892	
==>r $self;
}));

## ----------------------------------------------------------------------------
## P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3794	3892	
==>r $self;
}));

## ----------------------------------------------------------------------------
## P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1651	1758	
==>b { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1651	1758	
==>b { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1651	1758	
==>b { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemente <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1225	1381	
==>g);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1225	1381	
==>g);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1225	1381	
==>g);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollHeight);
                  retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15136	15252	
==>);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15136	15252	
==>);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15136	15252	
==>);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($_); } @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6122	6247	
==>, '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3289	3414	
==>, '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4138	4263	
==>, '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8733	8849	
==>or a PHP-based strap.

=cut

sub _command {
    my $self = shift;

    return $ENV{HARNESS_PERL}           if defined <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1553	1659	
==>lurp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1553	1659	
==>lurp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	825	922	
==>nterface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do expo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	825	922	
==>nterface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do expo <==
3	/Users/nnunley/pugs/util/package-osx.pl	5685	5782	
==>man3/Perl6::Overview::Control.3
        /usr/local/man/man3/Perl6::Overview::Control.3pm
        / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3385	3520	
==>$matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3385	3520	
==>$matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                i <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1289	1397	
==>t $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->pa <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2413	2516	
==>TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as littl <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2413	2516	
==>TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as littl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20268	20388	
==>sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? ' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16912	17011	
==>.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16912	17011	
==>.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1835	1968	
==>ont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1835	1968	
==>ont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1835	1968	
==>ont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's name properly
$::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4335	4427	
==>Class); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4335	4427	
==>Class); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4335	4427	
==>Class); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3246	3358	
==>"N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3246	3358	
==>"N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3246	3358	
==>"N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12986	13095	
==>..};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12986	13095	
==>..};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12986	13095	
==>..};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3116	3208	
==>c)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3116	3208	
==>c)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3116	3208	
==>c)?|metamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1384	1489	
==>is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1384	1489	
==>is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1384	1489	
==>is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9309	9431	
==>{
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9309	9431	
==>{
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9309	9431	
==>{
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11149	11249	
==>hods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11149	11249	
==>hods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11149	11249	
==>hods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDALL no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7216	7345	
==>ray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7216	7345	
==>ray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7216	7345	
==>ray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BINDTO(
          // Slighly <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	198	369	
==>r,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	198	369	
==>r,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	378	504	
==>^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1058	1205	
==>:Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1058	1205	
==>:Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3941	4107	
==>if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3820	3980	
==>if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	852	961	
==>ef($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	852	961	
==>ef($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	852	961	
==>ef($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    ret <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28813	28910	
==>arness......ok
  All tests successful.
  Files=4, Tests=24, 2 wallclock secs ( 0.61 cusr + 0.41 cs <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2609	2703	
==>presentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... th <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2609	2703	
==>presentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4280	4392	
==>cher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4280	4392	
==>cher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4280	4392	
==>cher = $self->dispatcher(':canonical');
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9475	9579	
==>] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9475	9579	
==>] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5206	5301	
==>{ return { _open => $(), } }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1109	1201	
==>IPTION

This module lets you write B<Module::Compile> extensions that
are compatible with B<F <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1109	1201	
==>IPTION

This module lets you write B<Module::Compile> extensions that
are compatible with B<F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5031	5164	
==>$i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5031	5164	
==>$i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5621	5754	
==>$i++, \$var->[$_]) for 0..$#{$var};
	    }
	    else {
		Data::Bind::_av_store($ref, $i++, $var);
	    }
	}
	return;
    }
    if ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	591	696	
==>me
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	591	696	
==>me
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	591	696	
==>me
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6497	6593	
==>_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6497	6593	
==>_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6497	6593	
==>_SUBLIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	226	348	
==>ction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	226	348	
==>ction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	226	348	
==>ction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	629	732	
==>]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	629	732	
==>]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	629	732	
==>]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	244	349	
==>if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	205	310	
==>if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	205	310	
==>if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2061	2166	
==>); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2061	2166	
==>); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5321	5422	
==>3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5321	5422	
==>3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5321	5422	
==>3a_3a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSI <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	279	432	
==>eturns 9
sub evaluate {
    my ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $expr) {
        if ($tok =~ /^-?\d+$/) {
            push @stack, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	142	252	
==>le {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	868	978	
==>le {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3076	3210	
==>ot defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3076	3210	
==>ot defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3076	3210	
==>ot defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7581	7717	
==>\$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7581	7717	
==>\$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, - <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8555	8653	
==>ning the harness under.
This might be to run a threaded Perl, for example.

You can also overload t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1742	1845	
==>ype->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1742	1845	
==>ype->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1742	1845	
==>ype->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12865	12988	
==>=> 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12865	12988	
==>=> 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11086	11206	
==>/sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11236	11356	
==>/sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3473	3576	
==>get, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	495	617	
==>bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	474	593	
==>bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3304	3423	
==>dx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3309	3410	
==>]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3309	3410	
==>]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9055	9174	
==>s) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9055	9174	
==>s) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9055	9174	
==>s) is rw {
  die "Can't use object of type {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1248	1344	
==>larm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1248	1344	
==>larm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1248	1344	
==>larm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9598	9725	
==>self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9598	9725	
==>self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9598	9725	
==>self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2417	2563	
==>) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::string <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2417	2563	
==>) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::string <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2417	2563	
==>) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::string <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3897	4005	
==>als::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3897	4005	
==>als::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3897	4005	
==>als::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash { <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3260	3365	
==>29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

B <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3260	3365	
==>29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

B <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2911	3004	
==>ummary report:

  t/base..............ok
  t/nonumbers.........ok
  t/ok................ok
  t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11520	11653	
==>});
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11520	11653	
==>});
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $qu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28100	28198	
==>p ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32652	32750	
==>p ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1386	1509	
==>class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1386	1509	
==>class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1386	1509	
==>class->add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1512	1610	
==>TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1512	1610	
==>TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1512	1610	
==>TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - move Num::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7855	8055	
==>od eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7855	8055	
==>od eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7855	8055	
==>od eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3087	3284	
==>ll' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3087	3284	
==>ll' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3087	3284	
==>ll' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4721	4878	
==>[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4721	4878	
==>[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4721	4878	
==>[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) ! <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38338	38445	
==>tute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=bac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42887	42994	
==>tute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=bac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42537	42644	
==>tute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4261	4402	
==>name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4261	4402	
==>name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4261	4402	
==>name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3359	3470	
==>" -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3359	3470	
==>" -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implement <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3359	3470	
==>" -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2852	2982	
==>gs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2852	2982	
==>gs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2852	2982	
==>gs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamode <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3325	3448	
==>int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3325	3448	
==>int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3325	3448	
==>int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15728	15840	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15728	15840	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15728	15840	
==>:make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1852	1954	
==>L::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doubleq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1852	1954	
==>L::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doubleq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1852	1954	
==>L::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doubleq <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12160	12257	
==>cks with ref() since we do not yet have
object support. Once object support is created, we will ad <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12218	12315	
==>cks with ref() since we do not yet have
object support. Once object support is created, we will ad <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6873	7005	
==>ys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	972	1063	
==>ed $Config{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
pus <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	842	1184	
==>L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	842	1184	
==>L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4372	4511	
==>!! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4372	4511	
==>!! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4372	4511	
==>!! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	328	429	
==>e rational soul, really concreate and practical 
# things like Object, Package and Module. It was also <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	328	429	
==>e rational soul, really concreate and practical 
# things like Object, Package and Module. It was also <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	328	429	
==>e rational soul, really concreate and practical 
# things like Object, Package and Module. It was also <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6790	6878	
==>esolve' => ::make_method($_resolve));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6790	6878	
==>esolve' => ::make_method($_resolve));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6790	6878	
==>esolve' => ::make_method($_resolve));

## ----------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	102	203	
==>her scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use wa <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	102	203	
==>her scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1133	1233	
==>3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1133	1233	
==>3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1133	1233	
==>3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsva <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	702	809	
==>:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	702	809	
==>:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	702	809	
==>:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { defined($a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12516	12611	
==>eference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12516	12611	
==>eference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1350	1472	
==>o warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1350	1472	
==>o warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1350	1472	
==>o warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2590	2839	
==>face::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Rosetta::In <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2590	2839	
==>face::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Rosetta::In <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2523	2608	
==>/lib/pl-5.5.27/lib/x86_64-linux
my $prolog = <<'END';
%=============================== <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8549	8649	
==>e::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or di <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11391	11488	
==>_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11391	11488	
==>_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4519	4639	
==>iption>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4519	4639	
==>iption>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6716	6836	
==>iption>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8630	8780	
==>at);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if !(substr($X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAIL <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	846	964	
==>ap { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	747	865	
==>ap { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8461	8558	
==>AY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8449	8546	
==>AY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Ru <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9988	10084	
==>/g;
    if($c0 ne $c1) { pil_diff($c0,$c1) }
}

package PIL::PIL1CPerl5::Util::FilterNodeDefs;
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5993	6113	
==>encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5993	6113	
==>encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5993	6113	
==>encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	792	904	
==>reduce($_[0]) });
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer - generic reducing base class for <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13398	13492	
==>ale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=head <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13398	13492	
==>ale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24160	24320	
==>.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24160	24320	
==>.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24160	24320	
==>.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8379	8482	
==>, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Cla <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8379	8482	
==>, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2499	2597	
==>s {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2499	2597	
==>s {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2499	2597	
==>s {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16865	16972	
==>)
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, but only affects the first char <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6917	7014	
==>hildren($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you are jus <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6917	7014	
==>hildren($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you are jus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11160	11262	
==>($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11160	11262	
==>($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, co <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1249	1344	
==>, and/or
  motivating implementations in p5/p6/haskell.
  - perhaps serve as a reference impleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1322	1429	
==>I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconver <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1322	1429	
==>I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconver <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1322	1429	
==>I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6844	6952	
==>ke_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6844	6952	
==>ke_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6844	6952	
==>ke_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	768	879	
==>}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratchet';
  }
  return bless \\{
    str => \\$s, fro <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12430	12526	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12488	12584	
==>, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18999	19117	
==>e( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18999	19117	
==>e( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18999	19117	
==>e( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9683	9799	
==>"Return type does not match - should return " . $self->returns->name
                    if defined $self->returns && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9683	9799	
==>"Return type does not match - should return " . $self->returns->name
                    if defined $self->returns && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9683	9799	
==>"Return type does not match - should return " . $self->returns->name
                    if defined $self->returns && <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14248	14341	
==>add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14248	14341	
==>add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14248	14341	
==>add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15495	15602	
==>ren;     /* last paren matched */

Other things the world messes with:

  I32 refcnt;

What invariants?  Don <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11758	11858	
==>= \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTM <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11758	11858	
==>= \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTM <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11676	11775	
==>e};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11676	11775	
==>e};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11676	11775	
==>e};
});

::Class.meta.add_method('remove_method' => method () {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8773	8915	
==>already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	937	1067	
==>already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	937	1067	
==>already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	697	828	
==>ng;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4175	4306	
==>ng;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33375	33472	
==>=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	14	120	
==>e HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	14	120	
==>e HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	366	469	
==>H()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	366	469	
==>H()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	366	469	
==>H()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6693	6797	
==>// Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6693	6797	
==>// Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6693	6797	
==>// Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is there a better <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	521	664	
==>ocal_env->next($env);
    bless {
        body => $body,
        env  => $local_env
    } => $class;        
}

# we dont really have a native f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	212	314	
==>/join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	212	314	
==>/join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all chan <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24286	24387	
==>α. α → α", "pretty print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::va <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2421	2519	
==>'y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2421	2519	
==>'y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7266	7379	
==>oor(abs($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    return $Result4;
}

# 9.7
mult <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13056	13155	
==>ck that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13056	13155	
==>ck that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5596	5718	
==>() returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'chil <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5596	5718	
==>() returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12484	12593	
==>}    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12484	12593	
==>}    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12484	12593	
==>}    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1198	1322	
==>ture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1198	1322	
==>ture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8719	8876	
==>i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8719	8876	
==>i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8719	8876	
==>i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11925	12127	
==>ue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11925	12127	
==>ue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11925	12127	
==>ue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	918	1025	
==>g{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10848	10948	
==>ct singleton/class method called by Bar');      
  
is($Bar->singleton_test_on_Foo(), 
   '&Foo::sing <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	848	943	
==>g{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]);
		return $abs if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9920	10079	
==>ar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10199	10358	
==>ar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1600	1702	
==>_max_value  => (int(@commits / 500) + 1) * 500,
) or die $graph->error;

my @data = (
  [ 0..@commits_t <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2367	2475	
==>);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return undef };
   if <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	101	199	
==>essor - all it's doing is making the
# "source" property of the object fallback to "content"
method <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	101	199	
==>essor - all it's doing is making the
# "source" property of the object fallback to "content"
method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2749	2858	
==>->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2749	2858	
==>->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2749	2858	
==>->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1064	1200	
==>s, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1064	1200	
==>s, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    } <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8696	8825	
==>for (@dirs) {
        build_indexes( catdir($path, $_), $index->{_dirs}->{$_});
    }
} 

# Note: modfies $index
sub handle_t_file <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1253	1478	
==>} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $inp <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1253	1478	
==>} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $inp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4603	4703	
==>acro rxmodexternal:<x> { ... } # define your own m:x()/stuff/

    As with any such syntactic shenani <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2711	2814	
==>function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(ju <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2711	2814	
==>function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(ju <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2711	2814	
==>function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3009	3128	
==>- tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at onc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3009	3128	
==>- tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at onc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3009	3128	
==>- tied arrays are copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at onc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	669	778	
==>deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	669	778	
==>deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	669	778	
==>deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' methods
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	542	685	
==>REATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	542	685	
==>REATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	542	685	
==>REATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37480	37576	
==>e of a Perl package in its positional parameter
$module_name (a string) and tries to load it usin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37480	37576	
==>e of a Perl package in its positional parameter
$module_name (a string) and tries to load it usin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12379	12504	
==>> $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12379	12504	
==>> $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	764	860	
==>$F, ">$testdir/$plxname.bat")
    or die "Can't create $testdir/$plxname.bat: $!";
print $F <<' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21468	21589	
==>n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1166	1261	
==>=> sub {...}, closure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1166	1261	
==>=> sub {...}, closure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15860	15971	
==>ttribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = new .Exception
    $S0 = "p6rule parse error: "
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6128	6289	
==>}

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6128	6289	
==>}

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	17	121	
==>use warnings;
use strict;

use CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1183	1325	
==>a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1183	1325	
==>a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1183	1325	
==>a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9390	9606	
==>lts{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $results{todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5063	5158	
==>ig::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5063	5158	
==>ig::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2507	2605	
==>ssing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> obj <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2507	2605	
==>ssing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6565	6682	
==>eta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canon <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6565	6682	
==>eta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canon <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6565	6682	
==>eta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40942	41058	
==>ems {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl ext <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40942	41058	
==>ems {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl ext <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40942	41058	
==>ems {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8567	8676	
==>< backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8567	8676	
==>< backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8567	8676	
==>< backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined) {
          // ($a, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1513	1626	
==>_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1513	1626	
==>_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1513	1626	
==>_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2034	2153	
==>f($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2034	2153	
==>f($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2034	2153	
==>f($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
}

sub unwrap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7189	7282	
==>$var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7189	7282	
==>$var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7189	7282	
==>$var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1490	1602	
==>AKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1490	1602	
==>AKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2944	3054	
==>AKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13301	13411	
==>-d $my_bindir;

    my @bins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4608	4703	
==>Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	693	806	
==>le($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	693	806	
==>le($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	693	806	
==>le($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7083	7179	
==>e, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7083	7179	
==>e, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7083	7179	
==>e, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34308	34405	
==>erator that returns the complement of
C<semijoin> with the same argument.  This method has aliases <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38858	38955	
==>erator that returns the complement of
C<semijoin> with the same argument.  This method has aliases <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38337	38434	
==>erator that returns the complement of
C<semijoin> with the same argument.  This method has aliases <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3338	3457	
==>{} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3338	3457	
==>{} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3338	3457	
==>{} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10408	10516	
==>nt( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10566	10674	
==>nt( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", matc <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	595	695	
==>ration $duration) returns Date {
    #$self.subtract($duration);
#}

#method infix:<+>($self: Duratio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10121	10254	
==>ng $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10121	10254	
==>ng $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10121	10254	
==>ng $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $d <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	824	946	
==>l"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	824	946	
==>l"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10842	10949	
==>ray=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCH <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10842	10949	
==>ray=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCH <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10842	10949	
==>ray=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCH <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1627	1717	
==>-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1627	1717	
==>-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10659	10766	
==>= join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10659	10766	
==>= join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10659	10766	
==>= join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11369	11516	
==>Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11369	11516	
==>Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11369	11516	
==>Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20037	20156	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20316	20435	
==>grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5555	5652	
==>ue');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return value');

## make subclass <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5639	5741	
==>Position);
  $token = $$currentOperatorTable{$key};
  if ( $token )
  {
    push @bsrStack, "bsr_token_ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2588	2686	
==>s if the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just proc <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2588	2686	
==>s if the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just proc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6563	6683	
==>$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6563	6683	
==>$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4065	4153	
==>REA
## ----------------------------------------------------------------------------
## NO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4065	4153	
==>REA
## ----------------------------------------------------------------------------
## NO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4065	4153	
==>REA
## ----------------------------------------------------------------------------
## NO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	201	297	
==>s from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Mark <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	201	297	
==>s from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Mark <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	201	297	
==>s from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with Mark <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8008	8136	
==>= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8008	8136	
==>= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8008	8136	
==>= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35794	35916	
==>ng -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35794	35916	
==>ng -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35794	35916	
==>ng -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list( @t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	868	994	
==>$subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	868	994	
==>$subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	868	994	
==>$subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	303	408	
==>ke lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	303	408	
==>ke lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9817	9919	
==>r(1);  # top- and second-level
  my $iter = $parser->walker(2);  # top- through third-level

The iterat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	173	274	
==>will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	173	274	
==>will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	173	274	
==>will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1823	1919	
==>//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1823	1919	
==>//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1823	1919	
==>//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no str <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5959	6056	
==>e';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
no <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5959	6056	
==>e';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
no <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2858	2955	
==>e';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
no <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9470	9579	
==>$set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, an <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9470	9579	
==>$set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3044	3153	
==>]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3044	3153	
==>]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3044	3153	
==>]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix: <==
3	/Users/nnunley/pugs/util/func_refact.pl	1407	1519	
==>= keys %$set;
    my $debug = $new eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    my $size = scal <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17583	17681	
==>r Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC:: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17583	17681	
==>r Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31352	31448	
==>turning anonymous function in the argument C<$predicate> returns
True when given the tuple/Mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35902	35998	
==>turning anonymous function in the argument C<$predicate> returns
True when given the tuple/Mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35120	35216	
==>turning anonymous function in the argument C<$predicate> returns
True when given the tuple/Mappin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2239	2368	
==>::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2786	2915	
==>::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3333	3462	
==>::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1029	1127	
==>y $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove hea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1029	1127	
==>y $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1109	1207	
==>y $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove hea <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29119	29266	
==>nt( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29398	29545	
==>nt( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	696	834	
==>";
}

sub null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "sub { my \@match; my \$s = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15118	15238	
==>y $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15118	15238	
==>y $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15118	15238	
==>y $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	330	431	
==>on ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	330	431	
==>on ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	330	431	
==>on ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11534	11738	
==>on,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11534	11738	
==>on,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2682	2786	
==>.= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  carp s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1270	1376	
==>Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1270	1376	
==>Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1270	1376	
==>Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(Stri <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3929	4062	
==>"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam"
        d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4297	4397	
==>self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1423	1523	
==>self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6077	6259	
==>&& $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6077	6259	
==>&& $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6077	6259	
==>&& $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $sc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	210	313	
==>ensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	210	313	
==>ensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	210	313	
==>ensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_al <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3113	3222	
==>-- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used ins <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3297	3406	
==>-- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used ins <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11266	11411	
==>src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($src <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2531	2621	
==>m L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation. <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2531	2621	
==>m L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9393	9486	
==>{...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9393	9486	
==>{...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9393	9486	
==>{...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7109	7217	
==>l break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7109	7217	
==>l break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7109	7217	
==>l break, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.ru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15018	15112	
==><Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15018	15112	
==><Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9576	9660	
==>$iFoo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_singleto <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6020	6134	
==>H => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6020	6134	
==>H => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      m <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2302	2404	
==>f the output tree.
my $start_dir = cwd;

# ref to hash of information about links that we mean to inser <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4465	4596	
==>ook at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4465	4596	
==>ook at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        un <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7032	7149	
==>(Str: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule)\
\\n   List      pre     Str::sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	253	351	
==>ion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	253	351	
==>ion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	253	351	
==>ion (args) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6301	6420	
==>= " . ($got - $expected) . "\n";
        }
	unshift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expecte <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32181	32278	
==>on and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36731	36828	
==>on and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4619	4724	
==>o subs might not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is prim <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2811	2914	
==>field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2811	2914	
==>field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12963	13069	
==>o_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12963	13069	
==>o_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12963	13069	
==>o_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29491	29611	
==>L::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29491	29611	
==>L::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29491	29611	
==>L::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	416	505	
==>arn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	416	505	
==>arn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	416	505	
==>arn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4297	4411	
==>$_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4297	4411	
==>$_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4297	4411	
==>$_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_inden <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1494	1606	
==>y->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1494	1606	
==>y->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1494	1606	
==>y->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31545	31642	
==>l.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argument, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36095	36192	
==>l.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argument, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35322	35419	
==>l.  Trivial cases are
where C<$predicate> simply returns True or False regardless of its
argument, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1056	1166	
==>( Params::Check->last_error ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my($acc,$val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	39	133	
==>chet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInli <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	39	133	
==>chet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4939	5082	
==>s to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4939	5082	
==>s to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4939	5082	
==>s to Scalar->store: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4521	4632	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4521	4632	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4521	4632	
==>(defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	537	636	
==>-----------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	537	636	
==>-----------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	537	636	
==>-----------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some ot <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5015	5103	
==>pe_sequence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2205	2292	
==>org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2205	2292	
==>org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	563	657	
==>fess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	563	657	
==>fess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	563	657	
==>fess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaque_instance_attr($::SE <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	146	262	
==>cond', '$true', '$false'), # non short circuiting

    '&control_structure:<if>' => Thunk(
        Seq(
            P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1521	1615	
==>ont-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1521	1615	
==>ont-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	476	582	
==>oot::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	476	582	
==>oot::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	476	582	
==>oot::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %mod <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17177	17326	
==>ributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17177	17326	
==>ributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'n <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16980	17105	
==>n($n, &Num::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8025	8127	
==>turn 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8025	8127	
==>turn 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8025	8127	
==>turn 0;
}));

# TODO ... implement the package interface

$::Role->add_method('FETCH' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	241	342	
==>"continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever matches'



i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	229	326	
==>"continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever matches'

i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	795	914	
==>"' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	795	914	
==>"' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	795	914	
==>"' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6266	6483	
==>>{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6266	6483	
==>>{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6266	6483	
==>>{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1586	1701	
==>_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1586	1701	
==>_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1586	1701	
==>_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchab <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	654	786	
==>orm>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	654	786	
==>orm>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1256	1351	
==>itive {
    3.14159265358979323846264338327950288419716939937510;
}

sub lcfirst (Str $str) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3648	3771	
==>$param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3648	3771	
==>$param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3648	3771	
==>$param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3398	3491	
==>> method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3398	3491	
==>> method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3398	3491	
==>> method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12636	12734	
==>specified names.

The header field names ($field) are not case sensitive and '_'
can be used as a r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12636	12734	
==>specified names.

The header field names ($field) are not case sensitive and '_'
can be used as a r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1400	1502	
==>ort for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1400	1502	
==>ort for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1400	1502	
==>ort for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3490	3596	
==>PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # im <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3490	3596	
==>PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # im <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3490	3596	
==>PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # im <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17117	17248	
==>>nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8340	8463	
==>) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8340	8463	
==>) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1529	1639	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1529	1639	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1529	1639	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	422	609	
==>_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	422	609	
==>_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	422	609	
==>_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5557	5671	
==>open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5557	5671	
==>open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	44	147	
==>5-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	44	147	
==>5-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	44	147	
==>5-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3144	3245	
==>et;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3144	3245	
==>et;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3144	3245	
==>et;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	410	528	
==>origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	410	528	
==>origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	410	528	
==>origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12436	12588	
==>iption";
          return join( ' ', $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - Thi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2814	2954	
==>iption";
        return join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2814	2954	
==>iption";
        return join( ' ', $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - Thi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30603	30698	
==>ch file can be
shared by multiple Messages but the whole module must represent a single
language <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30603	30698	
==>ch file can be
shared by multiple Messages but the whole module must represent a single
language <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	609	697	
==>::Parrot::PMC
our $interpreter;
use overload '0+' => sub {Inline::Parrot::PMC::get_int($I <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8219	8390	
==>_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4579	4750	
==>_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5428	5599	
==>_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27113	27212	
==>hod has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31665	31764	
==>hod has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30721	30820	
==>hod has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Rel <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2456	2547	
==>lways appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax. <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2456	2547	
==>lways appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12270	12396	
==>.";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12270	12396	
==>.";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12270	12396	
==>.";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16932	17070	
==>y ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13353	13491	
==>y ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5942	6036	
==>lti sub infix:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11224	11334	
==>cessary parts of the prelude weren't compiled into the code #print "Compiled AST: " . Dumper->reduce($c);

pack <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5281	5385	
==>$self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5281	5385	
==>$self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9395	9520	
==>ocess_hash( $hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20859	20954	
==>pile installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20859	20954	
==>pile installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefil <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2446	2565	
==>l is an array ref of hash refs.
# FIXME: Document next level. ??
my $link_info;
my $total_links;
my $total_files;
my $sy <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31599	31697	
==>ns True or False regardless of its
argument, in which case the new Relation has either all of the t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36149	36247	
==>ns True or False regardless of its
argument, in which case the new Relation has either all of the t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6749	6854	
==>meout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6749	6854	
==>meout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6749	6854	
==>meout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12968	13100	
==>&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6443	6575	
==>&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5261	5355	
==>> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5261	5355	
==>> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5261	5355	
==>> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4421	4529	
==>o(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4479	4587	
==>o(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$de <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42836	42934	
==>6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are in the current distri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5840	5941	
==>«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5840	5941	
==>«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5840	5941	
==>«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2609	2707	
==>rammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2749	2847	
==>rammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2999	3107	
==>an't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will stringi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2999	3107	
==>an't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will stringi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24652	24779	
==>goodper = sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5621	5723	
==>mber of seconds from now), so we don't provide an easy way to
# access it until we have know how both t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5621	5723	
==>mber of seconds from now), so we don't provide an easy way to
# access it until we have know how both t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1622	1713	
==>function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1622	1713	
==>function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1622	1713	
==>function (str) { return str.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3651	3756	
==>ump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3651	3756	
==>ump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3651	3756	
==>ump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27772	27890	
==>tem C<HARNESS_PERL>

Usually your tests will be run by C<$^X>, the currently-executing Perl.
However, you may want to h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11453	11544	
==>") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11453	11544	
==>") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7221	7346	
==>atible with Test::More::skip().
sub skip {
    my $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14327	14442	
==>ble = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14327	14442	
==>ble = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14327	14442	
==>ble = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1051	1369	
==>|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod new (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29811	29921	
==>g_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29811	29921	
==>g_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4813	4914	
==>sers
    # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1180	1273	
==>ined reference implementation of a Rosetta Engine

=head1 VERSION

This document describes Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1180	1273	
==>ined reference implementation of a Rosetta Engine

=head1 VERSION

This document describes Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4089	4181	
==>tatement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4089	4181	
==>tatement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4089	4181	
==>tatement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_m <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1105	1229	
==>archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $p <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1105	1229	
==>archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2009	2240	
==>:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $b <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2009	2240	
==>:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	89	213	
==>:Nodes;

sub symbols {
    (
		map { stub($_, '$x', '$y') }
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<> <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3088	3252	
==>round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_u <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10490	10601	
==>$string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Beca <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10490	10601	
==>$string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Beca <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1995	2161	
==>my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, allow => DIR_EXISTS, store => \$dir },
        };
    
        chec <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3372	3468	
==>$config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isr <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3372	3468	
==>$config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8094	8213	
==>sing the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8094	8213	
==>sing the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8094	8213	
==>sing the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1208	1333	
==>redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4795	4890	
==>DESCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl libra <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4795	4890	
==>DESCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl libra <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5396	5499	
==>() {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pScope, $pS <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3596	3695	
==>_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_di <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3596	3695	
==>_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_di <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	197	304	
==>unctional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit err <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	197	304	
==>unctional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit err <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6644	6743	
==>ip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specif <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6644	6743	
==>ip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8841	8940	
==>ip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1285	1407	
==>t;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1285	1407	
==>t;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1285	1407	
==>t;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3120	3257	
==>(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3120	3257	
==>(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3120	3257	
==>(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29094	29218	
==>TED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEX <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29094	29218	
==>TED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEX <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	445	553	
==>TED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEX <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4763	4903	
==>::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6525	6665	
==>::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8838	8949	
==>0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2527	2646	
==>w_role_node($role);   
    foreach my $subrole (@{$role->roles}) {
        $output .= _draw_role($subrole);
        #$ou <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15280	15381	
==>e C<$width> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21481	21573	
==>tatement>
    | <'for'> <'('> <'var'> <VariableDeclarationNoIn> <'in'> <Expression> <')'> <St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8605	8708	
==>Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8605	8708	
==>Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8605	8708	
==>Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6733	6853	
==>+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6733	6853	
==>+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6733	6853	
==>+$/)
            || confess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2248	2361	
==>osecond returns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($. <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1446	1557	
==>-/::/g;

    # Only call $self->tests if we haven't been given explicit
    # tests from makemaker_args.

    $a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1100	1196	
==>ler with replacement
data for stubs and other thingies.

It also gives the compiler the default e <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	543	646	
==>urn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<den <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	543	646	
==>urn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<den <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3347	3465	
==>eating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3347	3465	
==>eating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3347	3465	
==>eating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2316	2429	
==>fy %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2316	2429	
==>fy %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2316	2429	
==>fy %hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29838	30014	
==>d
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29838	30014	
==>d
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29838	30014	
==>d
        }
        else {
            $sum += $_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3647	3775	
==>"package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::procla <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3705	3833	
==>"package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::procla <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9897	10003	
==>=item sort

 type KeyExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7449	7680	
==>} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7449	7680	
==>} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8802	8903	
==>StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleStringCha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	180	289	
==>, map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	180	289	
==>, map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	180	289	
==>, map { $_.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Pe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4176	4271	
==>rgs )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4176	4271	
==>rgs )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5700	5795	
==>rgs )>

This method actually returns a Test::Builder singleton, creating it if
necessary.  The o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2836	3007	
==>he authority
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub pa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	435	547	
==>'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	435	547	
==>'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6700	6849	
==>ment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6700	6849	
==>ment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25295	25384	
==>->new(
		type::variable::free->new,
		type::operator::pair->new(
			type::variable::free-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11623	11806	
==>arams = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11623	11806	
==>arams = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11623	11806	
==>arams = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2543	2651	
==>die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2543	2651	
==>die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2543	2651	
==>die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1187	1294	
==>is is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1187	1294	
==>is is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1187	1294	
==>is is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9910	10026	
==>rator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9910	10026	
==>rator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9910	10026	
==>rator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unl <==
3	/Users/nnunley/pugs/util/version_h.pl	1626	1772	
==>\d+)$/;
                }
            }
        }
    }
}
$revision ||= 0;
print "Current version is $revision\n";

if ($revision != $old_revision) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14484	14587	
==>00002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14484	14587	
==>00002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12907	13140	
==>res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12907	13140	
==>res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12907	13140	
==>res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2270	2389	
==>::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2270	2389	
==>::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2270	2389	
==>::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7194	7321	
==>ion () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7194	7321	
==>ion () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7194	7321	
==>ion () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(undefined).BIND <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26148	26246	
==>epend on the Message Key
it is being used with (others are ignored).  Each variable name can be any <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26148	26246	
==>epend on the Message Key
it is being used with (others are ignored).  Each variable name can be any <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5246	5343	
==>passed a reference to the current value, 
this allows r/w access to the value.

=item B<apply (clo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25827	25922	
==>ethod will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30379	30474	
==>ethod will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3361	3469	
==>y || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3361	3469	
==>y || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3361	3469	
==>y || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)", <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5504	5687	
==>od wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8981	9164	
==>od wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14561	14661	
==>plain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers =
    ( undef = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16066	16174	
==>return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "". <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16066	16174	
==>return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "". <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16066	16174	
==>return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20621	20717	
==>fix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20621	20717	
==>fix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20621	20717	
==>fix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	813	920	
==>tion of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	813	920	
==>tion of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	715	822	
==>ion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	715	822	
==>ion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2981	3084	
==>irs didn't match up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1277	1377	
==>Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1277	1377	
==>Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2954	3056	
==>ude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2954	3056	
==>ude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2954	3056	
==>ude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6417	6516	
==>$::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6417	6516	
==>$::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6417	6516	
==>$::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:version'));
$::Module- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3707	3821	
==>hen using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan : <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3707	3821	
==>hen using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5231	5345	
==>hen using our test module the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12285	12447	
==>1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12285	12447	
==>1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12285	12447	
==>1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance .. <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9849	9961	
==>c-pkg; please set it in your GHC_PKG environment variable.\n"
        unless $ghc_pkg;

    return $self->{ghc_pk <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1532	1630	
==>module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPY <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1532	1630	
==>module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6814	6901	
==>($_resolve));

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6814	6901	
==>($_resolve));

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6814	6901	
==>($_resolve));

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5444	5655	
==>key;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5444	5655	
==>key;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5444	5655	
==>key;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4541	4662	
==>ss.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4541	4662	
==>ss.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4541	4662	
==>ss.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    wh <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6222	6432	
==>ist.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6222	6432	
==>ist.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2223	2320	
==>do
a bit of algorithm switching.  When their fast method fails, they fall back
on something more l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26843	27044	
==>(
                            symbol->new('$self:'    => 'opaque'),
                            symbol->new('$subclass' => 'opaque'),           
                          ),
                returns => ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15924	16024	
==>g a message that would be shown to a user, is in fact meant
to be interpreted by the machine itself a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15924	16024	
==>g a message that would be shown to a user, is in fact meant
to be interpreted by the machine itself a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1760	1893	
==>|| 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1760	1893	
==>|| 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1760	1893	
==>|| 'undef') . ")";        
        (defined $class && blessed($class) eq 'Dispatchable')
            || confess "Bad instance (" . ($c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2534	2759	
==>l  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alte <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2840	3051	
==>l  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2840	3051	
==>l  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alte <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6679	6834	
==>}
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what e <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7143	7298	
==>}
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3667	3798	
==>->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18687	18825	
==>called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18687	18825	
==>called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18687	18825	
==>called 
    
    sub isa {
        $Dispatchable::AUTOLOAD = 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5950	6062	
==>perclasses')    => list->new(),
            attribute->new('%:private_methods') => hash->new(),
            attri <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	412	506	
==>), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	412	506	
==>), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8682	8859	
==>r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12159	12336	
==>r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    di <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	700	838	
==>length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	700	838	
==>length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	700	838	
==>length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10221	10368	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10221	10368	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10221	10368	
==>is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        D <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3569	3729	
==>lf->SUPER::new();
    
    
        for my $key ( keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->mk_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18683	18798	
==>self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15104	15219	
==>self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30442	30557	
==>self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13845	13962	
==>_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14124	14241	
==>_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34130	34231	
==>h: C</(?=x)y/>.  We can expand this
to any number of branches: C</a\&b\&c\&d/> in vim would be
C</(?=a <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1978	2095	
==>_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a referenc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3570	3687	
==>_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a referenc <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	161	274	
==>ABLE_TERM => 1;
use constant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTAB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5124	5221	
==>editor routine is passed the current object in the recursion and
the wanted namespace ("MyName" in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5124	5221	
==>editor routine is passed the current object in the recursion and
the wanted namespace ("MyName" in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5124	5221	
==>editor routine is passed the current object in the recursion and
the wanted namespace ("MyName" in <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3029	3163	
==>8 }
rule PS   { \x2029 }


# A.1 Lexical Grammar

rule SourceCharacter {  # see clause 6
      . #dot
}
rule InputElementDiv {  # see c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4028	4124	
==>ammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4212	4308	
==>ammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5661	5770	
==>ic void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(std <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26111	26206	
==>r $attrs!) returns Relation>

This method is a generic relational operator that returns a new Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30663	30758	
==>r $attrs!) returns Relation>

This method is a generic relational operator that returns a new Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5715	5880	
==>ef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5715	5880	
==>ef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5715	5880	
==>ef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2282	2375	
==>ngs.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2282	2375	
==>ngs.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2282	2375	
==>ngs.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6052	6213	
==>, $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6052	6213	
==>, $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ), <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2145	2252	
==>ernel and GRUB from a public server (which can be specified below).
Then, it creates a initrd and copies you <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3302	3398	
==>gs) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns B <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3302	3398	
==>gs) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns B <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6303	6440	
==>NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leadi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6303	6440	
==>NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leadi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1273	1376	
==>igest};
}

sub prelude {
<<C
#include <stdio.h>
#include <gc.h>

typedef int IV;
typedef FILE * GV;
type <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5471	5591	
==>) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5471	5591	
==>) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5471	5591	
==>) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	987	1066	
==>((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	987	1066	
==>((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	496	596	
==>indBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	496	596	
==>indBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	496	596	
==>indBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5215	5327	
==>=> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5215	5327	
==>=> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5215	5327	
==>=> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	18	122	
==>Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	18	122	
==>Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	18	122	
==>Item $left, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	114	232	
==>?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	114	232	
==>?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	114	232	
==>?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2932	3132	
==>boxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2932	3132	
==>boxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2932	3132	
==>boxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1124	1240	
==>,
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1124	1240	
==>,
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1124	1240	
==>,
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5073	5197	
==>c-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    m <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5073	5197	
==>c-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16432	16536	
==>is attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16432	16536	
==>is attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16432	16536	
==>is attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1819	1943	
==>sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1819	1943	
==>sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1819	1943	
==>sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19296	19389	
==>tation

Fixed some poor wording, and documented the problem with using F<SUPER::>
inside F<MyC <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18586	18676	
==>_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18586	18676	
==>_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2471	2579	
==>()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature checks, auto <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2471	2579	
==>()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature checks, auto <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2471	2579	
==>()
# TODO - test the integration with Value and Container types
# TODO - add hooks for signature checks, auto <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7890	7986	
==>eturn Blondie::TypeSafe::Annotation->new(
				type => [ $child->type ],
				struct_equiv => $rthu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	156	252	
==>nce redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	156	252	
==>nce redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runti <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3849	3967	
==>$!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## thro <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3907	4025	
==>$!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## thro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4256	4391	
==>for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4720	4855	
==>for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16180	16284	
==>want three dots between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2830	2961	
==>("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2830	2961	
==>("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2830	2961	
==>("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15478	15594	
==>]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# remo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15478	15594	
==>]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# remo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15478	15594	
==>]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# remo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6715	6818	
==>Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

Thi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6715	6818	
==>Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8912	9015	
==>Str>

This handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10361	10457	
==>s array).  The deferred validations are performed
on demand at some time after the input has been <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10361	10457	
==>s array).  The deferred validations are performed
on demand at some time after the input has been <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3760	3852	
==>::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self->get_p6_fi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6369	6588	
==>an {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.rese <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6369	6588	
==>an {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.rese <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1787	1889	
==>dent();

		warn "flattenning $node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1475	1594	
==>pile;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Repl;
use strict;


for (@inc_dirs) {p6_eval("push( <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4992	5086	
==>lds in the requests
sent and responses received, then you should use the full object-oriented
i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4992	5086	
==>lds in the requests
sent and responses received, then you should use the full object-oriented
i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	235	341	
==>*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	235	341	
==>*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	235	341	
==>*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34862	34960	
==>or object does not permit changes to its attributes;
they must all be set when the object is constr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34862	34960	
==>or object does not permit changes to its attributes;
they must all be set when the object is constr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12549	12649	
==>new ('P6opaque'))))
     (= ($self ($class: send (CREATE ($canidate %params)))))
     ($self send (BU <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17935	18032	
==>l5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via globa <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2294	2391	
==>l5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via globa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	423	528	
==>/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	423	528	
==>/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1631	1736	
==>Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1631	1736	
==>Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1631	1736	
==>Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Numb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	513	640	
==>pt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	529	656	
==>pt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	505	632	
==>pt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2738	2849	
==>ound
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2738	2849	
==>ound
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2738	2849	
==>ound
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "perl5" { <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2084	2198	
==>time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        ret <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2084	2198	
==>time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3979	4081	
==>ent_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3979	4081	
==>ent_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3979	4081	
==>ent_control:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACR <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6662	6796	
==>::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1330	1434	
==>t, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1330	1434	
==>t, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1330	1434	
==>t, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	539	660	
==>) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	539	660	
==>) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1507	1614	
==>e;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1507	1614	
==>e;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1507	1614	
==>e;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	910	999	
==>tta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	910	999	
==>tta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4241	4369	
==>ble to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4241	4369	
==>ble to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4241	4369	
==>ble to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->j <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3424	3551	
==>);
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Som <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6901	7028	
==>);
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Som <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5858	5985	
==>);
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Som <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1886	2056	
==>(" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1886	2056	
==>(" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1886	2056	
==>(" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_instance_attr ($$) : lvalue { 
        my $in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9238	9343	
==>nsion for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9238	9343	
==>nsion for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9238	9343	
==>nsion for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29670	29792	
==>VERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29670	29792	
==>VERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	474	580	
==>VERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21474	21620	
==>NIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21474	21620	
==>NIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21474	21620	
==>NIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1555	1667	
==>ifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1555	1667	
==>ifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1555	1667	
==>ifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	56	174	
==>ub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document = <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	56	174	
==>ub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1199	1314	
==>_PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' => q( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2505	2602	
==>preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2505	2602	
==>preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2505	2602	
==>preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to P <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12060	12184	
==>)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      push @{$link <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3816	3979	
==>ray...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3816	3979	
==>ray...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3816	3979	
==>ray...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # . <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33981	34077	
==>erred ones aren't supported by a program or its libraries.
When translating a message, a match in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33981	34077	
==>erred ones aren't supported by a program or its libraries.
When translating a message, a match in <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	865	958	
==>of the strap  UNIMPLEMENTED
  my $verbose_output = $strap->dump_verbose();
  $strap->dump_verb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2079	2180	
==>tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2079	2180	
==>tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2079	2180	
==>tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1249	1375	
==>ich?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1249	1375	
==>ich?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1249	1375	
==>ich?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in P <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3651	3765	
==>l y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3651	3765	
==>l y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6396	6523	
==>{
        my $state = $_[1] || $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2226	2338	
==>rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2226	2338	
==>rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4563	4670	
==>ubstr $target, $pos, 1;
    $isnegated = matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24927	25022	
==>t of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29479	29574	
==>t of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7532	7634	
==>arams) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7532	7634	
==>arams) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7532	7634	
==>arams) return;\n\n" . $self->params->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3286	3438	
==>@s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3286	3438	
==>@s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	263	392	
==>>compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15403	15598	
==>ue'), 
                              symbol->new('$repr'   => 'str'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaqu <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5649	5751	
==>=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5649	5751	
==>=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9956	10118	
==>s = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9956	10118	
==>s = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9956	10118	
==>s = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .") <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27369	27463	
==>many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31921	32015	
==>many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31004	31098	
==>many additional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4759	4872	
==>iler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4595	4705	
==>iler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32930	33027	
==>y the walking stack before the node
is returned.  Here is the walk() method for all the quantifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1216	1313	
==>se we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1216	1313	
==>se we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1216	1313	
==>se we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2619	2746	
==>tribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2619	2746	
==>tribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2619	2746	
==>tribute";
        return bless \$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7250	7415	
==>t implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7250	7415	
==>t implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7250	7415	
==>t implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20686	20785	
==>o{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20686	20785	
==>o{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20686	20785	
==>o{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/util/package-osx.pl	5760	5869	
==>::Control.3pm
        /usr/local/man/man3/Perl6::Overview::Data.3
        /usr/local/man/man3/Perl6::Overview: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6162	6250	
==>emplate->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn", <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12332	12457	
==>free_vars }
			map { $_->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (th <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9647	9761	
==>ult ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

m <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9647	9761	
==>ult ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7493	7612	
==>, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7493	7612	
==>, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7493	7612	
==>, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5687	5805	
==>dy) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5687	5805	
==>dy) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5687	5805	
==>dy) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	25	125	
==>e provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# Sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	25	125	
==>e provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# Sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	25	125	
==>e provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict;

# Sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3469	3675	
==>Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3469	3675	
==>Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3469	3675	
==>Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $ <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1749	1869	
==>orted(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	605	725	
==>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( g <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	141	250	
==>doesn't work yet.
sub prefix:<?> ($var) returns Bool is builtin is primitive { true $var }

sub chomp (Str $st <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4047	4229	
==>n $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4047	4229	
==>n $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2655	2772	
==>$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$nam <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	957	1134	
==>erl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^= <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	957	1134	
==>erl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^= <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4771	4872	
==>-------------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid. <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12450	12541	
==>L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not be updat <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12450	12541	
==>L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not be updat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6710	6853	
==>() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6710	6853	
==>() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6710	6853	
==>() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1869	2010	
==>w-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1869	2010	
==>w-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8264	8362	
==>ef eq 'ARRAY') {
	$s = '['.join(",",map{recurse($_)}@$x).']';
    } elsif($ref) {
	$s = $x->unparse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	401	498	
==>un_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	401	498	
==>un_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	401	498	
==>un_js_on_jspm
>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9591	9718	
==>gify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9591	9718	
==>gify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9591	9718	
==>gify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str->new( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6605	6716	
==>('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6605	6716	
==>('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6605	6716	
==>('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2504	2611	
==>ts ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

me <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2504	2611	
==>ts ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9196	9308	
==>TO flag yet for link management
    LINKING: {   
        my $alt = $self->remove_registered_alternative( package <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5778	5871	
==>:Rule and Pugs::Grammar::Match



Rule constructors return Rule objects, which are "matcher" t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5577	5668	
==>:Rule and Pugs::Grammar::Match

Rule constructors return Rule objects, which are "matcher" t <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5558	5654	
==>smoke{id};
}

sub unpack_smoke {
  my $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12600	12695	
==>l was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12658	12753	
==>l was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2944	3086	
==>nside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside cl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3128	3270	
==>nside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside cl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2845	2978	
==>[tar -f $my_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' . $Prei <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	262	402	
==>w/
    target
    from
    position
    coroutine
    capture
    hash
    integer
    number
    /
}

sub new {
  my $class = shift;
  my $o <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	212	339	
==>to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	212	339	
==>to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1224	1320	
==>ct_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1224	1320	
==>ct_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8410	8526	
==>m, mpos) = $P0(mob, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3163	3256	
==>bclassing is overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3050	3141	
==>bclassing is overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14791	14897	
==>sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14791	14897	
==>sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14791	14897	
==>sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('requi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6840	6986	
==>- 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!bound <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6840	6986	
==>- 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!bound <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20019	20113	
==>e 12.2
      <'var'> <?ws_required> <VariableDeclarationList> <';'>
}
rule VariableDeclarationL <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10425	10538	
==>Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.ne <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10425	10538	
==>Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.ne <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	777	865	
==>Token("term:\\d", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	79	210	
==>) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	79	210	
==>) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	79	210	
==>) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	318	491	
==>::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	318	491	
==>::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	318	491	
==>::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9354	9454	
==>the set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set co <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9354	9454	
==>the set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9618	9747	
==>= Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9618	9747	
==>= Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9618	9747	
==>= Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3207	3326	
==>)->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3207	3326	
==>)->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3207	3326	
==>)->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exist <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3191	3343	
==>at {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3191	3343	
==>at {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] conc <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4393	4481	
==>',mk_dynamic_alt(\@statements));

my @tokens;
my $tok = def_rule('token',mk_dynamic_alt(\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9195	9321	
==>f $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9195	9321	
==>f $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9195	9321	
==>f $j;

                my($ok,$err)=$self->check_params(@arguments);
                $ok || confess "Signature does not match - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1386	1498	
==>ed $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1591	1703	
==>ed $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1652	1764	
==>ed $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	107	211	
==>1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	107	211	
==>1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	107	211	
==>1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	411	520	
==>unction (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	411	520	
==>unction (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	411	520	
==>unction (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6493	6620	
==>') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6493	6620	
==>') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6493	6620	
==>') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1083	1283	
==>s<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>( <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1083	1283	
==>s<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17218	17311	
==>x = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re),F0,F1,B0,B1,E <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	453	557	
==>>{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	453	557	
==>>{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14969	15110	
==>nqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14969	15110	
==>nqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enque <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2502	2616	
==>SITELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3225	3341	
==>rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3225	3341	
==>rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3225	3341	
==>rw;
			$MM->add_method($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6388	6485	
==>MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6388	6485	
==>MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6388	6485	
==>MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2914	3017	
==>m{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2914	3017	
==>m{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2914	3017	
==>m{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29648	29785	
==>or ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29648	29785	
==>or ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29648	29785	
==>or ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18476	18592	
==>= let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => comb(
			fun => comb (
				fun => ide("p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1140	1242	
==>ite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solve <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1140	1242	
==>ite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solve <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5162	5262	
==>Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(Min,Max), !.
p6_range_bounds( 0 ,Max) --> "...", <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2227	2330	
==>efine a macro gram ($name) { "rule $name :words" },
#     rather than having the clutter of lots of expl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5726	5828	
==>ist, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shi <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5726	5828	
==>ist, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1671	1772	
==>t $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.pro <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1671	1772	
==>t $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12541	12695	
==>( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12541	12695	
==>( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12541	12695	
==>( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2913	3029	
==>equired { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2913	3029	
==>equired { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2913	3029	
==>equired { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1987	2101	
==>> undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1987	2101	
==>> undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1987	2101	
==>> undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	670	778	
==>8-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	670	778	
==>8-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	670	778	
==>8-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14305	14425	
==>$s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14305	14425	
==>$s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14305	14425	
==>$s = Perl6::Value::Num::to_str( $s ) if $s+0 eq $s;
    return $s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4710	4809	
==>d_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4710	4809	
==>d_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4710	4809	
==>d_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $writ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17102	17214	
==>ve fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20579	20691	
==>ve fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20157	20269	
==>ve fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3896	3996	
==>(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restore <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3896	3996	
==>(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restore <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3896	3996	
==>(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restore <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1536	1785	
==>}
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Lo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1536	1785	
==>}
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Lo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4432	4548	
==>alues}{no_index};
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4394	4489	
==>me thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to imple <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4241	4335	
==>me thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to imple <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22457	22567	
==>$mn;
}    

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7505	7634	
==>} 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7505	7634	
==>} 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7505	7634	
==>} 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2478	2596	
==>ay.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    Y       safe   (Array)\
#   ie, bot <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3521	3610	
==>ng-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3521	3610	
==>ng-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4490	4630	
==>age as being authorative for these links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives agai <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4543	4656	
==>hildren
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!childr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4543	4656	
==>hildren
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!childr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3412	3564	
==>}      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3412	3564	
==>}      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3412	3564	
==>}      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20043	20133	
==>p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20043	20133	
==>p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20043	20133	
==>p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1692	1807	
==>y $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; pri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8029	8137	
==>y method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8029	8137	
==>y method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3282	3432	
==>le, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3282	3432	
==>le, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3282	3432	
==>le, but isnt.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7459	7568	
==>rse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7459	7568	
==>rse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7459	7568	
==>rse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	220	338	
==>rm::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-frie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	220	338	
==>rm::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-frie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	220	338	
==>rm::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-frie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	610	710	
==>rams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	610	710	
==>rams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	610	710	
==>rams :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1551	1659	
==>with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1551	1659	
==>with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1551	1659	
==>with shape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6169	6361	
==>n $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6169	6361	
==>n $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6169	6361	
==>n $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	442	547	
==>{
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	442	547	
==>{
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	442	547	
==>{
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	367	468	
==>elf->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	367	468	
==>elf->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	367	468	
==>elf->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4304	4404	
==>erlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4304	4404	
==>erlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4304	4404	
==>erlap {
    my %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overl <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	330	447	
==>lso note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connec <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	330	447	
==>lso note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connec <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28961	29056	
==>ename ( Mapping(Str) of Str $mapping! ) returns Relation::Example>

This method is a generic rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14009	14117	
==>XX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14009	14117	
==>XX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::C <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14009	14117	
==>XX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8596	8712	
==>type => 'clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( Regex <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3270	3378	
==>my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 en <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3270	3378	
==>my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5035	5168	
==>0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5035	5168	
==>0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5035	5168	
==>0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	935	1058	
==>ssed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	935	1058	
==>ssed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	935	1058	
==>ssed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6700	6807	
==>pe';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6700	6807	
==>pe';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3599	3706	
==>pe';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6561	6675	
==>{ my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6561	6675	
==>{ my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6561	6675	
==>{ my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9719	9851	
==>ice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9719	9851	
==>ice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9719	9851	
==>ice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7615	7711	
==>---------------------------------------------------------------

## NOTE:
## we want to prevent t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7615	7711	
==>---------------------------------------------------------------

## NOTE:
## we want to prevent t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7615	7711	
==>---------------------------------------------------------------

## NOTE:
## we want to prevent t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2278	2434	
==>d} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2278	2434	
==>d} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2278	2434	
==>d} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3079	3178	
==>{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3079	3178	
==>{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3079	3178	
==>{$body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13643	13750	
==>t;
	
	$t;
}

# values also pass the set of generics unchanged
val: generic($$) = { generic_in($$) }
# vals a <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5264	5359	
==>1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5264	5359	
==>1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1561	1662	
==>lass('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1561	1662	
==>lass('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1561	1662	
==>lass('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_na <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13370	13476	
==>, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrenc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13370	13476	
==>, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	62	171	
==>jects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	62	171	
==>jects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	62	171	
==>jects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBP <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25993	26093	
==>ding>

Set of Str - This contains zero or more Relation::Example attribute names that
define the head <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4557	4655	
==>ipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May r <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4557	4655	
==>ipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May r <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3712	3814	
==>PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "PGE::P6Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19737	19834	
==>block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a P <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19737	19834	
==>block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11853	11950	
==>$xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11853	11950	
==>$xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11853	11950	
==>$xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5359	5461	
==>pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5359	5461	
==>pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5359	5461	
==>pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	0	105	
==>method JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	0	105	
==>method JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	0	105	
==>method JS::Root::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7582	7704	
==>my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7582	7704	
==>my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7582	7704	
==>my $cls = ref($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13692	13793	
==>_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13692	13793	
==>_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13692	13793	
==>_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	584	688	
==>val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	354	458	
==>val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	354	458	
==>val eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1079	1169	
==>efined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1079	1169	
==>efined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1079	1169	
==>efined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeout) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39376	39561	
==>y $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))->values();                                 
            }
        )
    )
);

## ------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3928	4050	
==>llary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3928	4050	
==>llary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3928	4050	
==>llary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21910	22025	
==>h @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18331	18446	
==>h @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26285	26379	
==>0
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROPT_EVAL_SEEN		0x00400
 #define ROPT_CANY_SEE <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1263	1408	
==>ewtoks;
      }

      $buf = [~] @newtoks;
      undefine $buf
        if !defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7969	8065	
==>n $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7969	8065	
==>n $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.co <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5320	5447	
==>_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5320	5447	
==>_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4726	4827	
==>nal {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	470	617	
==>'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	470	617	
==>'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	470	617	
==>'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1473	1566	
==>c(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1473	1566	
==>c(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1473	1566	
==>c(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	433	537	
==>ly one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	433	537	
==>ly one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	433	537	
==>ly one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2341	2461	
==>) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2341	2461	
==>) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2341	2461	
==>) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4145	4250	
==>$topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4145	4250	
==>$topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %ch <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23176	23261	
==>l6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
use stric <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4292	4441	
==>-> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4292	4441	
==>-> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30528	30642	
==>!~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

The name is 'c)' which has no p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	152	266	
==>r "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	152	266	
==>r "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	152	266	
==>r "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12776	12897	
==>$this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12776	12897	
==>$this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12776	12897	
==>$this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10851	10991	
==>de."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10851	10991	
==>de."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10851	10991	
==>de."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } el <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3453	3557	
==>th) = @_;
  croak "no regex defined" unless &RxLEN;
  $self->parse if $self->{stack};

  $depth = -1 unle <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	38	136	
==>use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use Ext <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	38	136	
==>use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use Ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7032	7137	
==>rement );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7032	7137	
==>rement );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7032	7137	
==>rement );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13255	13397	
==>nted\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22966	23063	
==>f
the Relation; each Set member is a Mapping whose keys and values are
attribute names and values. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27518	27615	
==>f
the Relation; each Set member is a Mapping whose keys and values are
attribute names and values. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7552	7659	
==>ge PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7552	7659	
==>ge PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7552	7659	
==>ge PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6801	6925	
==>ey = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_dec <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6801	6925	
==>ey = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_dec <==
3	/Users/nnunley/pugs/util/combine_tests.pl	503	602	
==>vision is added to each member of the more_events[].
#
# more_revisions[] is added with revision num <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	355	489	
==>n unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	226	352	
==>"1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Exp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	226	352	
==>"1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Exp <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5795	5890	
==>n.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_em <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5795	5890	
==>n.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_em <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10701	10789	
==>led by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object::singleton_test_on_object <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2011	2116	
==>l 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2011	2116	
==>l 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8095	8205	
==>c $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8095	8205	
==>c $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8095	8205	
==>c $type};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1342	1498	
==>str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9543	9699	
==>str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", map { <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	773	875	
==>0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_half_odd (Num $x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1280	1394	
==>: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1280	1394	
==>: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1280	1394	
==>: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4688	4789	
==>y $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4688	4789	
==>y $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4688	4789	
==>y $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	286	390	
==>, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	286	390	
==>, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	286	390	
==>, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17365	17459	
==>s platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17365	17459	
==>s platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17365	17459	
==>s platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 A <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9600	9712	
==>de },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9600	9712	
==>de },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $ch <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15601	15711	
==>"] = cname
    pos = $I0 + 1
    goto end
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar") <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	361	462	
==>{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	361	462	
==>{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2317	2583	
==>l},
                            capture => { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31611	31707	
==>ibraries
could have yet another set for itself.  When the program is run, it would
determine eith <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31611	31707	
==>ibraries
could have yet another set for itself.  When the program is run, it would
determine eith <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10775	10935	
==>r code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7116	7276	
==>r code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7965	8125	
==>r code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11541	11737	
==>ch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($ca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11541	11737	
==>ch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($ca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11541	11737	
==>ch_type( [ @params[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($ca <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10481	10584	
==>4107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13446	13568	
==>extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13446	13568	
==>extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13446	13568	
==>extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34359	34469	
==>ith the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38909	39019	
==>ith the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38388	38498	
==>ith the same argument.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2735	2864	
==>body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2735	2864	
==>body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2735	2864	
==>body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16264	16384	
==>}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method ne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16264	16384	
==>}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method ne <==
3	/Users/nnunley/pugs/util/config_h.pl	122	225	
==>ION

This file seems to determine some configuration.

  util/config_h.pl GHC BASEDIR

  GHC     - Locat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10976	11080	
==>GS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10976	11080	
==>GS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10976	11080	
==>GS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3518	3624	
==>er PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3518	3624	
==>er PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3518	3624	
==>er PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12194	12344	
==>arams }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12194	12344	
==>arams }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12194	12344	
==>arams }[$i];
                    my $candidate = $params[$i];
                    $candidate = $spec->default if $spec->optional && ! defined $candidat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3533	3946	
==>e object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3533	3946	
==>e object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1141	1247	
==>opts->{GHC}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35854	35977	
==>e $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35854	35977	
==>e $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35854	35977	
==>e $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_n( $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2600	2707	
==>));\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2600	2707	
==>));\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2600	2707	
==>));\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10231	10328	
==>.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inse <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10231	10328	
==>.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inse <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	542	636	
==>e();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19311	19404	
==>e.
The field value consist of a challenge that indicates the
authentication scheme and paramet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19311	19404	
==>e.
The field value consist of a challenge that indicates the
authentication scheme and paramet <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2554	2684	
==>ait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2554	2684	
==>ait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9695	9781	
==>_x(_) --> p5_charset_item(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_charse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6059	6167	
==>p) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string set in adva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6059	6167	
==>p) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string set in adva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6059	6167	
==>p) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the string set in adva <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11365	11508	
==>t want to be sucking in from the upstream stdin
	die "test.pl:runperl(): none of prog, progs, progfile, args, "
	    . " switches or stdin speci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	511	613	
==>ne which stack frame points to the code we are filtering.
# This is a method in case it needs to be ove <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	511	613	
==>ne which stack frame points to the code we are filtering.
# This is a method in case it needs to be ove <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1542	1640	
==>st.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Cop <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1542	1640	
==>st.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Cop <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1795	1884	
==>_keyed_int
#get_pmc_keyed_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_keyed_int

sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34088	34185	
==>her> does not have
an identical header to the invocant relation.  This method has aliases
named C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38638	38735	
==>her> does not have
an identical header to the invocant relation.  This method has aliases
named C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38099	38196	
==>her> does not have
an identical header to the invocant relation.  This method has aliases
named C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6851	6964	
==>od(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6851	6964	
==>od(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6851	6964	
==>od(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6707	6840	
==>ode_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'i <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6707	6840	
==>ode_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3606	3739	
==>ode_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6291	6470	
==>trict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9768	9947	
==>trict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The he <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12910	13025	
==>eate_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exists $args{switches} && grep m/ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2447	2568	
==>ns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2447	2568	
==>ns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1688	1805	
==>.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->license_from($file);
} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3359	3525	
==>" .
                  "can not extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spec->ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35799	35891	
==>er> has the same heading as
the invocant Relation::Example, and returns a new Relation::Examp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37831	37923	
==>er> has the same heading as the
invocant Relation::Example, and returns a new Relation::Examp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	381	484	
==>ct (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	381	484	
==>ct (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	381	484	
==>ct (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6560	6671	
==>m';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6560	6671	
==>m';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6560	6671	
==>m';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12475	12593	
==>rgs{args});
    }
    $runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
    $runperl .= " \xB3 Dev:Null" if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9570	9666	
==>nes or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
excepti <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9570	9666	
==>nes or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
excepti <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12593	12718	
==>hift @list;
       }
     }
   }
 }

[Note: This should be the definition of each() now.  The zip function needs
to build tupl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2950	3046	
==>ent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2950	3046	
==>ent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7149	7247	
==>thority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7149	7247	
==>thority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7149	7247	
==>thority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3076	3175	
==>iag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3076	3175	
==>iag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3156	3255	
==>iag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15488	15602	
==>( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15488	15602	
==>( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15488	15602	
==>( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	816	964	
==>fined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	816	964	
==>fined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	816	964	
==>fined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub statement_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10929	11033	
==>s::Internals::openFile($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMod <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2545	2632	
==>ed at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L< <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2545	2632	
==>ed at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	864	961	
==>piled code

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31866	31960	
==>emented.>

This method is a generic relational operator that returns a new Relation::Example
wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32913	33007	
==>emented.>

This method is a generic relational operator that returns a new Relation::Example
wh <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25642	25741	
==>The key is intended to be read by a machine and
mapped to a user-readable message; the key itself is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25642	25741	
==>The key is intended to be read by a machine and
mapped to a user-readable message; the key itself is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1112	1261	
==>>{precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            else {
                die "invalid preceden <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8739	8889	
==>ch->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # add <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8739	8889	
==>ch->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # add <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6339	6437	
==>val)=@_;
	my $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $code = code_for_code_CODE(name=>$name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5579	5694	
==>"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5579	5694	
==>"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5579	5694	
==>"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6081	6191	
==>\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6081	6191	
==>\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6081	6191	
==>\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1047	1159	
==>sage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1047	1159	
==>sage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1047	1159	
==>sage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if no <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2489	2605	
==>ut = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    r <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2489	2605	
==>ut = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13845	13932	
==>2,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit(D), octdigits(T), !.
octdig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	241	351	
==>{
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	241	351	
==>{
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	241	351	
==>{
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2290	2527	
==>=> 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1050	1221	
==>=> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1050	1221	
==>=> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	524	632	
==>ication
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	524	632	
==>ication
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	524	632	
==>ication
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1921	2024	
==>body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1921	2024	
==>body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1921	2024	
==>body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	836	963	
==>tList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	836	963	
==>tList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	836	963	
==>tList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + n <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1349	1446	
==>g

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "par <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1349	1446	
==>g

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1287	1432	
==>_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1287	1432	
==>_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1287	1432	
==>_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11292	11412	
==>sult is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_prod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14769	14889	
==>sult is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_prod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14077	14197	
==>sult is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_prod <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	375	470	
==>sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@sca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37674	37766	
==>other!) returns Relation::Example>

This method is a generic relational operator that takes a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38514	38606	
==>other!) returns Relation::Example>

This method is a generic relational operator that takes a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4329	4432	
==>gil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4329	4432	
==>gil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4329	4432	
==>gil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1586	1710	
==>{
            $vs = "[\n".$o->_indent(join(",\n",map{$_->describe}@$v))."\n]";
        } else {
            $vs = $v->describ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3726	3846	
==>_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3726	3846	
==>_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3726	3846	
==>_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4189	4289	
==>ign_hash_to_scalar {
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1183	1282	
==>ts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, modulo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1183	1282	
==>ts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, modulo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7004	7182	
==>$body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7004	7182	
==>$body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7004	7182	
==>$body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(de <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2651	2787	
==>l  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2651	2787	
==>l  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vo <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	181	277	
==>, {name $person}!".say;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$welt.h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12292	12430	
==>ec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12292	12430	
==>ec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12292	12430	
==>ec->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9396	9533	
==>},
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9396	9533	
==>},
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9396	9533	
==>},
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1647	1760	
==>) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1647	1760	
==>) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1647	1760	
==>) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VS <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6810	6923	
==>+$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14292	14393	
==>e XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14292	14393	
==>e XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14057	14168	
==>$?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17534	17645	
==>$?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relati <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2562	2667	
==>Y       safe   (Array)\
#   ie, both return and argument types differ.
multi infix:«Y» (Array *@arrays - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16544	16683	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16823	16962	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5325	5424	
==>implify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1633	1738	
==>][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1633	1738	
==>][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1633	1738	
==>][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38997	39148	
==>ew(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38997	39148	
==>ew(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38997	39148	
==>ew(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2317	2457	
==>is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a tempor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2317	2457	
==>is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a tempor <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1087	1200	
==>= shift;
        delete $DIGEST_CACHE{overload::StrVal($self)};
    }

    sub compute_digest {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2807	2903	
==>ns the representation of this node in the original text, or at
least a valid representation of it <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2807	2903	
==>ns the representation of this node in the original text, or at
least a valid representation of it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3259	3373	
==>es}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3259	3373	
==>es}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3259	3373	
==>es}) {
            foreach my $attr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3319	3425	
==>lsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3319	3425	
==>lsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3319	3425	
==>lsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3409	3527	
==>min->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = eac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1056	1165	
==>o{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1056	1165	
==>o{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	542	663	
==>inking of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Nu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	542	663	
==>inking of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Nu <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1720	1833	
==>5 to the nearest even number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24813	24908	
==>"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24813	24908	
==>"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2330	2437	
==>Test";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2330	2437	
==>Test";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2330	2437	
==>Test";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	310	439	
==>efined $name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name => $name,
        type => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20288	20382	
==>mpilation
is replaced by a single line containing the hexadecimal digest of the
result in doubl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20288	20382	
==>mpilation
is replaced by a single line containing the hexadecimal digest of the
result in doubl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6050	6151	
==>'... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10307	10408	
==>'... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2098	2205	
==>s for some functions, which all Newton methods do.  All
it does in such cases is die with a complaint.  Real <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17359	17465	
==>(while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20723	20829	
==>(while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	995	1132	
==>return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	995	1132	
==>return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1332	1428	
==>pile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	exit(0);
    }
}

use Perl6::Run: <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	937	1090	
==>b append_last ($x,$string is rw,$pass){
    if $pass > 2 {
        chop $string;
        "$string and " ~  
        pick (
            "$x",
            " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12144	12237	
==>t", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=it <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12144	12237	
==>t", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=it <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3357	3452	
==>d($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3415	3510	
==>d($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8610	8709	
==>rn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8610	8709	
==>rn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8610	8709	
==>rn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5936	6248	
==>odifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if w <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5936	6248	
==>odifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1827	1927	
==>ions: $options - match: $match\n" ;
  my %token = ( name => $name, options => $options, equiv => $equ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16095	16212	
==>::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0 <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	480	577	
==>- see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005 <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	480	577	
==>- see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005 <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	924	1108	
==>urn Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) r <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	924	1108	
==>urn Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1453	1598	
==>ir($_)} 
                                    qw(author name prefix)] ];


### meta dirs/files
### These are dependant on the installation, so they <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12881	12989	
==>ion);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12881	12989	
==>ion);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12881	12989	
==>ion);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7392	7650	
==>=> 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skipped  => 0,
                todo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2089	2187	
==>superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2089	2187	
==>superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10080	10179	
==>IL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10080	10179	
==>IL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10080	10179	
==>IL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2493	2593	
==>$x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2493	2593	
==>$x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2493	2593	
==>$x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o, <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1412	1516	
==>~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $str) returns Str is builtin is primitive {
    uc <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2770	2872	
==>on( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2770	2872	
==>on( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2110	2205	
==>gs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland objects -- those are writt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2030	2124	
==>gs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland objects -- those are writt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8222	8355	
==>e( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8415	8548	
==>e( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3302	3414	
==>tr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SUB SUB BAREW <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30253	30349	
==>der, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34805	34901	
==>der, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8539	8632	
==>singleton/class method');  
  
fails_ok { $Object->singleton_test_on_Foo() } '... Object canno <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2428	2538	
==>3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @d <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2428	2538	
==>3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3091	3196	
==>ailed);
	} elsif($stage eq 'pil_tree') {
	    my $pil_code = $self->as_pil_code;
	    #print STDERR ">>$pi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6893	7016	
==>$listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5397	5520	
==>$listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5358	5471	
==>ell
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    '%:methods' => {
        'reso <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	560	661	
==>referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Boo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	560	661	
==>referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Boo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	560	661	
==>referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3535	3658	
==>undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3535	3658	
==>undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3535	3658	
==>undef;
        @res[-1] := $self[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13511	13608	
==>ore this test can pass (or before an implementation
could be started).  This is most useful when w <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13569	13666	
==>ore this test can pass (or before an implementation
could be started).  This is most useful when w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6733	6839	
==>t == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12893	12985	
==>n programs by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12893	12985	
==>n programs by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6032	6168	
==>h( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6032	6168	
==>h( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6032	6168	
==>h( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2571	2671	
==>subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # pos <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2571	2671	
==>subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # pos <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2918	3018	
==>subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3346	3468	
==>$human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3346	3468	
==>$human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3346	3468	
==>$human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2655	2766	
==>is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implemen <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2655	2766	
==>is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implemen <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3002	3113	
==>is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implemen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11705	11836	
==>M_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11705	11836	
==>M_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	772	881	
==>ast_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add allow handlers
    $obj->mk_accessors <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	746	839	
==>ric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	746	839	
==>ric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2357	2471	
==>tr $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2357	2471	
==>tr $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2357	2471	
==>tr $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1925	2028	
==>tring(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1925	2028	
==>tring(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1925	2028	
==>tring(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "Str <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13494	13617	
==>nd};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13494	13617	
==>nd};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9780	9896	
==>g).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please set it in your GHC_PKG environment <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10992	11128	
==>d)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10992	11128	
==>d)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10992	11128	
==>d)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	636	739	
==>return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	636	739	
==>return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0 <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	169	266	
==>h /tmp/log > /tmp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use Time::Piece;
use <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29580	29672	
==>ributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation::Exampl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7936	8054	
==>eturn ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11932	12047	
==>eturn ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11932	12047	
==>eturn ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5938	6039	
==>ck

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5938	6039	
==>ck

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8135	8236	
==>ck

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::Test::Base role. <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3020	3161	
==>1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1];  # keys: 
        dbg "# keys: ",%pad.keys;
        $ret =  trav <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5241	5349	
==>{
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5241	5349	
==>{
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3898	4002	
==>e::list {
    my $data = emit(@_);
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4437	4528	
==>t_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4437	4528	
==>t_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5710	5812	
==>e: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5710	5812	
==>e: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5710	5812	
==>e: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_type, @para <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1852	2017	
==>emplate: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $tpl_config = $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11990	12097	
==>->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4633	4740	
==>->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6510	6615	
==>ethod_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6510	6615	
==>ethod_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6510	6615	
==>ethod_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1758	1878	
==>thod type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1758	1878	
==>thod type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1758	1878	
==>thod type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1651	1780	
==>her, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1651	1780	
==>her, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1651	1780	
==>her, 'BUILD')) { 
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7677	7782	
==>We successfully got template text for the message key, so
        # interpolate the message vars into it a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7677	7782	
==>We successfully got template text for the message key, so
        # interpolate the message vars into it a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13955	14073	
==>'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13955	14073	
==>'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13955	14073	
==>'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1334	1463	
==>..
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1334	1463	
==>..
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1334	1463	
==>..
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other Value - only Containers

# TODO - implement t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21150	21241	
==>ad2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21150	21241	
==>ad2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1736	1889	
==>->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1736	1889	
==>->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1736	1889	
==>->unboxed;
            $h->store( $pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2402	2676	
==>ols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Examp <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9341	9470	
==>r_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9341	9470	
==>r_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	872	1012	
==>= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $reg <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	872	1012	
==>= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $reg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4337	4455	
==>p { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimized: [", <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1394	1492	
==>':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1394	1492	
==>':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!ms <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4164	4258	
==>parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip ins <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4164	4258	
==>parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6361	6455	
==>parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6259	6356	
==>.  

=cut

## ----------------------------------------------------------------------------
## Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6259	6356	
==>.  

=cut

## ----------------------------------------------------------------------------
## Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6259	6356	
==>.  

=cut

## ----------------------------------------------------------------------------
## Modu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5481	5636	
==>if ( $n->{param}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            retur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16102	16197	
==>cumentation will be focusing mainly on how Rosetta itself works, and will
not spend much time in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16102	16197	
==>cumentation will be focusing mainly on how Rosetta itself works, and will
not spend much time in <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	190	331	
==>sh'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    target
    from
    position
    coroutine
    capture
    hash <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	456	558	
==>s export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	456	558	
==>s export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5694	5804	
==>sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5694	5804	
==>sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5694	5804	
==>sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6555	6647	
==>duce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6555	6647	
==>duce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6555	6647	
==>duce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	359	459	
==>ocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentall <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	359	459	
==>ocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21623	21747	
==>$subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21623	21747	
==>$subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21623	21747	
==>$subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3334	3442	
==>X::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3334	3442	
==>X::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3334	3442	
==>X::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40236	40347	
==>Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40236	40347	
==>Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40236	40347	
==>Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3264	3361	
==>Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test cla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3264	3361	
==>Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5461	5558	
==>Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7336	7434	
==>@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('col <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7336	7434	
==>@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('col <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7336	7434	
==>@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::Class->add_method('col <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3192	3296	
==>efore it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3192	3296	
==>efore it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19237	19331	
==>array) is builtin is primitive { List::pop(@array) };
multi pop ($array) is builtin is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6192	6298	
==>/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6192	6298	
==>/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6192	6298	
==>/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1360	1477	
==>ion, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1360	1477	
==>ion, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1360	1477	
==>ion, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22274	22368	
==>C<?>, which doesn't warrant the warning.

Added "Unrecognized escape" warnings to I<all> escape <==
3	/Users/nnunley/pugs/util/package-osx.pl	8565	8675	
==>/Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($dest, %change_files) = @_;
    for my $orig (keys %c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10424	10520	
==>pressionChars> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!b <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12683	12778	
==>proach, while likely flakier (modulo memory issues),
  might suffice, be easier to create, and b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39041	39191	
==>},
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39041	39191	
==>},
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39041	39191	
==>},
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	106	200	
==>5358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	106	200	
==>5358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	106	200	
==>5358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	368	485	
==>2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	368	485	
==>2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	368	485	
==>2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ P <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4969	5065	
==>x:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config: <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4969	5065	
==>x:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	948	1069	
==>cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files gi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	948	1069	
==>cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files gi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	948	1069	
==>cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files gi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11886	12021	
==>= delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11886	12021	
==>= delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11886	12021	
==>= delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + % <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5213	5346	
==>end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5213	5346	
==>end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18840	18957	
==>val { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed referenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2255	2377	
==>se {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $oute <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2255	2377	
==>se {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $oute <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2255	2377	
==>se {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $oute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7796	7904	
==>>main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine Sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7796	7904	
==>>main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine Sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7796	7904	
==>>main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine Sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1004	1117	
==>s = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessor <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	814	927	
==>s = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessor <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	183	298	
==>ELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() { <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	183	298	
==>ELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5664	5759	
==>self->new_pad($sub->struct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6824	6941	
==>e; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip to the nex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6824	6941	
==>e; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip to the nex <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2589	2698	
==>lf->load($method) or return;

    unshift @_, $obj;
    goto &{$obj->can($method)};
}

sub load {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10276	10444	
==>ted";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10276	10444	
==>ted";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10276	10444	
==>ted";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 un <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22409	22506	
==>ld be installed in.

Generally, when a program package would return a code-key to indicate a
condi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22409	22506	
==>ld be installed in.

Generally, when a program package would return a code-key to indicate a
condi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7378	7474	
==>qw/type::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2240	2350	
==>module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*mo <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2240	2350	
==>module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*mo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1963	2050	
==>ut($$) }

type::operator::binary: parenthesize($$) = { $$->isa("type::operator::pair") | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	849	1004	
==>->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	849	1004	
==>->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	849	1004	
==>->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_array() i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2238	2337	
==>sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2238	2337	
==>sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2238	2337	
==>sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2802	2926	
==>k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2802	2926	
==>k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2802	2926	
==>k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	568	658	
==>MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	568	658	
==>MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1703	1830	
==>d::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1703	1830	
==>d::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1703	1830	
==>d::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37366	37514	
==>0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37366	37514	
==>0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37366	37514	
==>0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2539	2662	
==>t) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2539	2662	
==>t) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2539	2662	
==>t) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript fro <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7581	7694	
==>de $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7581	7694	
==>de $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1937	2045	
==>nt_next =     sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1937	2045	
==>nt_next =     sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unl <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	141	238	
==>nd we probably don't need it all for the
# meta-model, except perhaps to express sub-types, defaul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2292	2391	
==>)', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2292	2391	
==>)', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2507	2614	
==>program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1119	1226	
==>program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14556	14645	
==>nc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(Rb0,Rb1), !.
%# XXX - not qu <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3160	3280	
==>sher::Event::Named $event) {
            # an optimizing lookup for named events stores things in a hash to reduce algori <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10670	10777	
==>ose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10670	10777	
==>ose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11509	11683	
==>self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11509	11683	
==>self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11509	11683	
==>self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9164	9290	
==>,
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9164	9290	
==>,
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9164	9290	
==>,
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  us <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4698	4793	
==>15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4698	4793	
==>15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2842	2931	
==>tion(X), p5_alternatives(union(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6238	6365	
==>ct__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	367	481	
==>LLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_make <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	367	481	
==>LLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	746	870	
==>PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	746	870	
==>PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	746	870	
==>PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5588	5692	
==>ame =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5588	5692	
==>ame =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5588	5692	
==>ame =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3651	3775	
==>ram{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3651	3775	
==>ram{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3651	3775	
==>ram{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22099	22195	
==>ds.  This also works for the multiple language
or permissions issue; simply order the files appro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22099	22195	
==>ds.  This also works for the multiple language
or permissions issue; simply order the files appro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	184	276	
==>otstrapping Roles
## ------------------------------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32825	32919	
==>re prefixed with F<Regexp::Parser::>, but that is omitted
here for brevity.  The headings are o <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1886	1979	
==>~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1886	1979	
==>~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Comp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5068	5183	
==>::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5068	5183	
==>::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19730	19864	
==>_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19730	19864	
==>_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19730	19864	
==>_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6507	6639	
==>$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6507	6639	
==>$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6507	6639	
==>$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieabl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8016	8119	
==>e($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8016	8119	
==>e($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	154	260	
==>uire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	154	260	
==>uire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	154	260	
==>uire Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9170	9310	
==>in::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9170	9310	
==>in::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9170	9310	
==>in::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1542	1657	
==>::Repl;
use strict;


for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18071	18166	
==>d then the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18071	18166	
==>d then the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8202	8300	
==>contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.jo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8202	8300	
==>contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.jo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	165	275	
==>s';
use Scalar::Util 'looks_like_number', 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13379	13477	
==>s a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13379	13477	
==>s a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18497	18676	
==>THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18497	18676	
==>THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18497	18676	
==>THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36965	37104	
==>nitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36965	37104	
==>nitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36965	37104	
==>nitialized value used in numeric context"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	296	401	
==>? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	296	401	
==>? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	296	401	
==>? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? ble <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2639	2875	
==>self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2639	2875	
==>self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7487	7583	
==>". 
p5_condition_test(lookahead(R))      --> p5_elemental(lookahead(R)).
p5_condition_test(lookah <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20333	20449	
==>s' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20333	20449	
==>s' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20333	20449	
==>s' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class: <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2196	2308	
==>to prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->bundles) {
        push @$dir, map "$_->[1]", @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2766	2860	
==>= Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2766	2860	
==>= Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1550	1665	
==>printf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1550	1665	
==>printf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1550	1665	
==>printf "new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "Na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2171	2292	
==>)
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	172	281	
==>)
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	172	281	
==>)
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9639	9756	
==>a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13116	13233	
==>a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12388	12505	
==>a full subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19712	19807	
==>non-programmer to edit.
But the current Perl-based solution will also be kept due to its more
dy <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19712	19807	
==>non-programmer to edit.
But the current Perl-based solution will also be kept due to its more
dy <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2670	2766	
==>ime in the example.  For fprime, the
example goes on step further and Curries approxfprime with t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10036	10129	
==>ts of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10036	10129	
==>ts of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5468	5576	
==>skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skippi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5468	5576	
==>skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skippi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6992	7100	
==>skipped' )>

Records the skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skippi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1708	1820	
==>ef = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1708	1820	
==>ef = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1708	1820	
==>ef = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

su <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2479	2581	
==>l = $self->{cache}{$symbol} = Blondie::Compiler::Placeholder->new(undef);

    # if the symbol is not a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23934	24027	
==>reates and returns a new Relation object, whose Heading and
Body attributes are set respective <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28486	28579	
==>reates and returns a new Relation object, whose Heading and
Body attributes are set respective <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4367	4459	
==>formed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4367	4459	
==>formed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6554	6646	
==>e class instance)

$Object->add_singleton_method('singleton_test_on_object' => sub { 
    '&O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8824	8926	
==>}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8824	8926	
==>}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8824	8926	
==>}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:< <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	196	311	
==>teral (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	196	311	
==>teral (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $po <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	328	440	
==>\&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13863	13984	
==>$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13863	13984	
==>$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13863	13984	
==>$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7034	7143	
==>[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7034	7143	
==>[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7034	7143	
==>[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4951	5067	
==>ntent = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Po <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4951	5067	
==>ntent = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Po <==
3	/Users/nnunley/pugs/util/drift.pl	822	921	
==>Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21405	21500	
==>UB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21405	21500	
==>UB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21405	21500	
==>UB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1096	1213	
==>e FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	523	639	
==>method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	523	639	
==>method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10804	11029	
==>.diagnostic = '???',
      ) {}
  
      method status returns Hash
      {
          return
          {
              passed      => $.passed,
              description => $.description,
          };
      }
  
      method r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1306	1507	
==>.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1306	1507	
==>.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            description => $.description,
        };
    }

    method r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6115	6234	
==>turn @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = se <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6115	6234	
==>turn @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12472	12603	
==>_('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12472	12603	
==>_('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12472	12603	
==>_('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1501	1623	
==>ep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1501	1623	
==>ep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1501	1623	
==>ep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5923	6030	
==>};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5923	6030	
==>};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5923	6030	
==>};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2798	2923	
==>done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2798	2923	
==>done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2798	2923	
==>done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4196	4299	
==>my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4196	4299	
==>my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4196	4299	
==>my @vals = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3668	3762	
==>ch.multidex> to the index where
captures should put themselves.  In the former example, when C< <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3668	3762	
==>ch.multidex> to the index where
captures should put themselves.  In the former example, when C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9003	9129	
==>ce code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9003	9129	
==>ce code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4595	4744	
==>ter( package => $self ) 
                or error("Could not register package"), return;
            
            
            my $postinst = $meta_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	970	1081	
==>tracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	970	1081	
==>tracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	970	1081	
==>tracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2369	2485	
==>sh @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2369	2485	
==>sh @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28766	28857	
==>her> equals the immutable identity of the invocant.

=item C<not_equal (Relation::Example $o <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	1	102	
==>use v6;

# this is a super-class for Arrays, Hashes, Sets and other collections
# like Bags, ordered h <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2254	2354	
==>epth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($sel <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2254	2354	
==>epth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7535	7693	
==>py ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7535	7693	
==>py ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	104	213	
==>Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die 'Need at least one pack <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1718	1823	
==>hod header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1718	1823	
==>hod header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1183	1290	
==>okahead
#     If rules taking arguments had any hope of working soon,
#     I would have said <!lookahead x> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	577	666	
==>my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('grammar' => su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	577	666	
==>my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('grammar' => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1944	2065	
==>scard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1944	2065	
==>scard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1944	2065	
==>scard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5109	5225	
==>n;
    $self->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require Ex <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2869	2960	
==>mit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005 <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2869	2960	
==>mit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28075	28271	
==>ify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28075	28271	
==>ify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28075	28271	
==>ify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                my $str = '';
                if ( @start > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1180	1336	
==>ss "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1180	1336	
==>ss "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1180	1336	
==>ss "No parameters passed, looking for { "  . (join ", " => @param_names) . " }"
                unless @_;
            my %params = @_;
            return _b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1034	1188	
==>SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1034	1188	
==>SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1034	1188	
==>SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	491	633	
==>$ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compile <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	491	633	
==>$ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2413	2659	
==>_('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2413	2659	
==>_('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2413	2659	
==>_('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4176	4284	
==>b command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4176	4284	
==>b command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4176	4284	
==>b command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	293	454	
==>nk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	602	763	
==>nk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infi <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2118	2217	
==>AME

Meta::Class - Entities in the Perl 6 language model (M2)

=head1 SYNOPSIS

 my $role_mc = Meta: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2591	2764	
==>ail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternati <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2895	3056	
==>ail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2895	3056	
==>ail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11339	11495	
==>Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11339	11495	
==>Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38664	38768	
==>e the heading of <$other> is a subset of the
heading of the invocant Relation::Example, and returns a new <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1041	1251	
==>~  
        pick (
            "$x",
            "is $x",
            "$x, period",
            "$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }els <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	500	607	
==>k>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	500	607	
==>k>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3844	3960	
==>%mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3844	3960	
==>%mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3844	3960	
==>%mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4279	4384	
==>ndled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($reque <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4279	4384	
==>ndled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($reque <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2429	2530	
==>les, etc - or when you do even scarier things to the Perl 6 class
system.

Note that the files in this <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	367	485	
==>TZ} = "UTC";

require_compression_modules();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18651	18752	
==>the link that the user followed to the current
     page.  Most browsers pass this information as part <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18651	18752	
==>the link that the user followed to the current
     page.  Most browsers pass this information as part <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1406	1520	
==>_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1406	1520	
==>_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3422	3509	
==>ase') ],
});

$::TestBuilder->FETCH('::Test')->STORE('::WithReason' => role 'TestBuilder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	163	258	
==>ods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	163	258	
==>ods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	163	258	
==>ods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, S <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	723	837	
==>{ [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard func <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	723	837	
==>{ [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard func <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1405	1501	
==>ons of perl5.  Perhaps
# because the challenges being faced were insufficiently documented,
# aud <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4677	4791	
==>6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4677	4791	
==>6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4677	4791	
==>6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	554	659	
==>paceTermTable 
    whitespaceOperatorTable/)
}

sub new {
  my $class = shift;
  my $object = bless {}, $c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27734	27828	
==>ments, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This metho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27734	27828	
==>ments, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14574	14663	
==>ds'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14574	14663	
==>ds'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14574	14663	
==>ds'));
::Class.meta.add_attribute('%:class_methods'    => ::make_attribute('%:class_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7412	7592	
==>n Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7412	7592	
==>n Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7412	7592	
==>n Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6741	6841	
==>.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument to all t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6741	6841	
==>.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument to all t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3554	3659	
==>ext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3554	3659	
==>ext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3554	3659	
==>ext.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  }) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	978	1363	
==>fontcolor = grey60, "
                            :
                            "color = green, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "labe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6966	7160	
==>omain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6966	7160	
==>omain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5384	5497	
==>y $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5384	5497	
==>y $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5384	5497	
==>y $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11546	11695	
==>eft quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and res <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11546	11695	
==>eft quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and res <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3126	3302	
==>$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6603	6779	
==>$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1127	1235	
==>ir' )

C<_chdir> changes directory to a dir.

Returns old cwd on success, false on failure.

=cut

sub _chdir <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1667	1778	
==>_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1667	1778	
==>_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5167	5280	
==>d_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5167	5280	
==>d_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5167	5280	
==>d_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6759	6888	
==>fined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6759	6888	
==>fined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6759	6888	
==>fined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7927	8103	
==>$a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "aut <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7927	8103	
==>$a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "aut <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7927	8103	
==>$a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "aut <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2273	2371	
==>ike this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2273	2371	
==>ike this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38215	38304	
==>t>.

=item C<semidifference (Relation::Example $other!) returns Relation::Example>

This m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13836	13964	
==>f, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13836	13964	
==>f, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13836	13964	
==>f, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_met <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1147	1254	
==>ect; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1147	1254	
==>ect; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1227	1334	
==>ect; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7276	7469	
==>f;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7276	7469	
==>f;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7276	7469	
==>f;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16548	16658	
==>extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16548	16658	
==>extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16548	16658	
==>extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1728	1844	
==>$bit::TRUE) {
            #warn "calling method (" . $label->to_native . ")";
            return $methods->fetch($lab <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13757	13853	
==>sible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13815	13911	
==>sible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15030	15163	
==>'@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15030	15163	
==>'@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15030	15163	
==>'@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	626	756	
==>EST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	626	756	
==>EST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4278	4387	
==>, '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29481	29581	
==>> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34033	34133	
==>> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33197	33297	
==>> are the names of the
invocant's attributes to split/unwrap.  This method will fail if any of the
na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35765	35886	
==>il=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35765	35886	
==>il=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35765	35886	
==>il=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32064	32162	
==>that corresponds to language A, looking for a match to said error
message.  If it finds one, then t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32064	32162	
==>that corresponds to language A, looking for a match to said error
message.  If it finds one, then t <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2371	2468	
==>an stop this program at any time, it'll continue when you run it again.

Note: This program should <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2163	2287	
==>l_in( $currfile ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Confi <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	86	187	
==>(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $h <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	82	183	
==>(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4433	4535	
==>pen2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4433	4535	
==>pen2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $wri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4433	4535	
==>pen2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $wri <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19503	19604	
==>dp[n] is the offset of the last char within the capture.
n=0 is the whole match.  $1 is n=1, etc.
A -1 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7839	7928	
==>y($_[0]{instance}, $_[1], @_[2, 3]) };
multi unify => ('type', 'type::variable::instantiat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3024	3147	
==>re copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3024	3147	
==>re copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3024	3147	
==>re copied in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each el <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9361	9460	
==>.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set contains <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9361	9460	
==>.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set contains <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2964	3047	
==>0\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5328	5419	
==>of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5328	5419	
==>of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Loc <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	868	1014	
==>script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	868	1014	
==>script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1802	1905	
==>s::Compiler::RegexPerl5> wraps Perl 5 Regexes to return a B<Match> object.

* Runtime Classes

=item * L <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	279	372	
==>:DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

= <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	279	372	
==>:DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8089	8274	
==>cal scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12082	12241	
==>cal scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12082	12241	
==>cal scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	32	119	
==>ls
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	32	119	
==>ls
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	32	119	
==>ls
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(func <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4885	5016	
==>6),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4885	5016	
==>6),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2884	2988	
==>%mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2884	2988	
==>%mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2884	2988	
==>%mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3246	3366	
==>d($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3246	3366	
==>d($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3246	3366	
==>d($am => ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    :: <==
3	/Users/nnunley/pugs/util/package-osx.pl	6067	6181	
==>an3/Perl6::Overview::Functions.3pm
        /usr/local/man/man3/Perl6::Overview::Object.3
        /usr/local/man/man <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	894	997	
==>rpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl - an interp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4329	4422	
==>\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0], '$<variable <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1817	1940	
==>{
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      tak <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1817	1940	
==>{
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      tak <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11332	11474	
==>um_tests/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pug <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1755	1851	
==>* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1755	1851	
==>* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3885	3987	
==>ay
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3885	3987	
==>ay
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3885	3987	
==>ay
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Sca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9474	9605	
==>('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9474	9605	
==>('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %h <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6877	6979	
==>);
    return $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $cls\n");
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16038	16134	
==>man user.  In some
situations, a shared program component may raise such a condition, and one
app <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16038	16134	
==>man user.  In some
situations, a shared program component may raise such a condition, and one
app <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6953	7078	
==>s_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6953	7078	
==>s_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6953	7078	
==>s_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14202	14301	
==>pheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14202	14301	
==>pheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14202	14301	
==>pheme')->length(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12817	12917	
==>- see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12817	12917	
==>- see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12817	12917	
==>- see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	12	124	
==>:PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	12	124	
==>:PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	12	124	
==>:PExp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12268	12371	
==>'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule HexDigit {  # see 9.3.1
      <[0..9a..fA..F]> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	94	195	
==>anges to normal Array if all elements are known;
  - pushing a lazy list into a normal array turns the <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	94	195	
==>anges to normal Array if all elements are known;
  - pushing a lazy list into a normal array turns the <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15158	15272	
==>overwrite the current line (by use of
\r and such).  C<$ml> may be empty if Test::Harness doesn't think you're
on T <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15341	15439	
==>em
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the header value i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15341	15439	
==>em
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the header value i <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4779	4892	
==>es;

    die "Pugs ".(($?&255)?"killed by signal $?"
         :"exited with error code ".($?>>8)) if $?;
    print <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1585	1668	
==>------------------------------------------------------------------------
## informat <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1585	1668	
==>------------------------------------------------------------------------
## informat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5473	5581	
==>er, all the return values of the
closure are collected into another list which is then returned from 
this fu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3695	3791	
==>RIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" use <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3695	3791	
==>RIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" use <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6990	7098	
==>ater_for_re('\W') if $re eq '\W';
    die "Regexp compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6378	6515	
==>, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we only allo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6378	6515	
==>, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we only allo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6320	6473	
==>catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6320	6473	
==>catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6320	6473	
==>catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, nu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10403	10511	
==>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:no <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10403	10511	
==>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19771	20048	
==>ms')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40231	40508	
==>ms')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2232	2330	
==>$_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extrac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2144	2240	
==>$_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extrac <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3053	3163	
==>= PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{syncat} = PGE_O <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	777	882	
==>Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	777	882	
==>Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4525	4629	
==>LTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4525	4629	
==>LTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { us <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4525	4629	
==>LTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { us <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	949	1067	
==>.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	949	1067	
==>.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3626	3732	
==>he case, running C<Makefile.PL> and C<make> in
C<Pugs::Compiler::Rule> should fix the problem.

- The perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11327	11425	
==>(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Arra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11327	11425	
==>(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15698	15897	
==>ization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15698	15897	
==>ization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15698	15897	
==>ization - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	836	939	
==>bject = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	836	939	
==>bject = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	836	939	
==>bject = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_submethod(sub { 
    my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2812	2927	
==>r::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2812	2927	
==>r::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4336	4451	
==>r::Output;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2419	2513	
==>jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2419	2513	
==>jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2419	2513	
==>jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1969	2134	
==>= 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1748	1903	
==>= 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1748	1903	
==>= 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3054	3170	
==>ps endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3054	3170	
==>ps endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3054	3170	
==>ps endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5427	5598	
==>define' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5427	5598	
==>define' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5427	5598	
==>define' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell') <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1766	1902	
==>or 1..2000},
});

}

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	803	913	
==>n / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	803	913	
==>n / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2149	2258	
==>ften the same for different tests.
    #
    my $target = $_[-1];
    for my $file (@{ $target->{meat}{test_fi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28774	28882	
==>App/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28774	28882	
==>App/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11973	12068	
==>al_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11973	12068	
==>al_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11973	12068	
==>al_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	64	172	
==>:Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the resul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	64	172	
==>:Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the resul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	64	172	
==>:Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the resul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3040	3181	
==>{$label};
        }
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1828	1929	
==>t version.  Most 
algorithms will have a key, which will be specified in the options; check your 
ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1828	1929	
==>t version.  Most 
algorithms will have a key, which will be specified in the options; check your 
ciph <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	180	279	
==>ess -d $testdir;

open(my $F, ">$testdir/$exename.c")
    or die "Can't create $testdir/$exename. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5294	5456	
==>\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::sp <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	410	504	
==>utine since we don't have Carp::Assert handy.

B<For internal use by Test::Harness ONLY!>

=hea <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8456	8572	
==>IER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <htt <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8456	8572	
==>IER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <htt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6083	6191	
==>>{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6083	6191	
==>>{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6083	6191	
==>>{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3013	3135	
==>on');
            return $ok;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Pass' => class 'TestBuilder::T <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8248	8345	
==>lls will be for 
pedestrian events like object destruction, but let's not make too many 
assumptio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8248	8345	
==>lls will be for 
pedestrian events like object destruction, but let's not make too many 
assumptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	9	109	
==>ct;
use warnings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers {
    m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3476	3572	
==>::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3476	3572	
==>::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4614	4782	
==>und;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5078	5246	
==>und;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26388	26481	
==>iginal (or rather, the corresponding projection of
each tuple), but that any duplicates follow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30940	31033	
==>iginal (or rather, the corresponding projection of
each tuple), but that any duplicates follow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29942	30035	
==>iginal (or rather, the corresponding projection of
each tuple), but that any duplicates follow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12763	12866	
==>from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12763	12866	
==>from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12763	12866	
==>from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@x <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3912	4008	
==>d2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pas <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3912	4008	
==>d2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pas <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4948	5038	
==>,@_) }
sub def_whitespace { def_thing(\@whitespaces,1,@_) }
sub def_statement  { def_thing( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4802	4927	
==>o{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4790	4915	
==>o{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2010	2115	
==>l6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2010	2115	
==>l6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2010	2115	
==>l6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29397	29508	
==>ve been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are the names of the
invoc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33949	34060	
==>ve been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are the names of the
invoc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33113	33224	
==>ve been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are the names of the
invoc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8776	8880	
==>nion( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8776	8880	
==>nion( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2357	2441	
==>my $program = Pugs::Emitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_data( $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3833	3946	
==>xt) eq "CODE";
    }

    @stack = @{ $self->{tree} }, return unless $next;
    $next->walk(\@stack, $d);
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	817	929	
==>hod remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	817	929	
==>hod remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10350	10543	
==>Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13827	14020	
==>Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13108	13301	
==>Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1148	1305	
==>= (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1148	1305	
==>= (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$valu <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4211	4305	
==>96
 }

multi Math::Unspecced::e ( --> Num ) {
    2.7182818284590452353602874713526624977572470 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5262	5364	
==>nnels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of / <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5262	5364	
==>nnels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11433	11522	
==>ls_ok { $iBar->singleton_test_on_object } '... instance calling metaclass singleton method <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12432	12613	
==>s',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $lines->{$.}) {
        $cla <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	298	427	
==>node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_w <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	298	427	
==>node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13801	13898	
==>ubroutine to each header field in turn.  The callback routine
is called with two parameters; the n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13801	13898	
==>ubroutine to each header field in turn.  The callback routine
is called with two parameters; the n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14922	15018	
==>n_numeric => sub { $as_hash_complain->("scalar_non_numeric") },
      array => sub { {@{$_[0]}} } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14324	14458	
==>ng server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any tr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14324	14458	
==>ng server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1899	2024	
==>> 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non =>       
        "exp 'name' exp 'name2' ex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8213	8352	
==>ey} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8213	8352	
==>ey} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2247	2358	
==>or my $op ( @{$self->{levels}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1258	1367	
==>t, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1258	1367	
==>t, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1258	1367	
==>t, VRat, VStr, VUndef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14713	14835	
==>, $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14713	14835	
==>, $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14713	14835	
==>, $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests b <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	31	141	
==>ser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	31	141	
==>ser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3585	3679	
==>mpiler
from bootstrapping. 

If that is the case, running C<Makefile.PL> and C<make> in
C<Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10144	10249	
==>--------------------------------  
    # collects all the roles, and applies them to the
    # invocant, w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10144	10249	
==>--------------------------------  
    # collects all the roles, and applies them to the
    # invocant, w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10144	10249	
==>--------------------------------  
    # collects all the roles, and applies them to the
    # invocant, w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3463	3570	
==>y for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3463	3570	
==>y for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5660	5767	
==>y for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	660	781	
==>$2
    });
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12225	12343	
==>ASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12225	12343	
==>ASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12225	12343	
==>ASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9897	10028	
==>= $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9897	10028	
==>= $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9897	10028	
==>= $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8750	8880	
==>b { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8750	8880	
==>b { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8750	8880	
==>b { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3645	3785	
==>exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = @_;
            (blessed($test) && $test->isa('TestBuilde <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7667	7771	
==>which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7667	7771	
==>which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10275	10404	
==>e method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10275	10404	
==>e method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10275	10404	
==>e method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaque_instance_id($::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17918	18101	
==>k for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17918	18101	
==>k for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17918	18101	
==>k for class method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6675	6775	
==>L2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6675	6775	
==>L2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6675	6775	
==>L2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7942	8052	
==>d_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7942	8052	
==>d_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7942	8052	
==>d_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::add_indent(1, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1613	1720	
==>pen STDOUT, "> $fname.tex" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $col <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12472	12569	
==>:Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are pass <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12472	12569	
==>:Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3334	3457	
==>$cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3334	3457	
==>$cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3334	3457	
==>$cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	983	1110	
==>ture;

use strict;
use warnings;

use base 'closure::signature';

package method::params;

use strict;
use warnings;

use base ' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10153	10248	
==>be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTOR <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10153	10248	
==>be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTOR <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10783	10879	
==>..}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an emp <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10783	10879	
==>..}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an emp <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	533	632	
==>tions may sub-class this module or
provide special behaviour when a property is set.  If we ever nee <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	533	632	
==>tions may sub-class this module or
provide special behaviour when a property is set.  If we ever nee <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	108	200	
==>:Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

# T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20945	21036	
==>eys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20945	21036	
==>eys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2564	2676	
==>ntainer ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $mul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2564	2676	
==>ntainer ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9006	9151	
==>rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9006	9151	
==>rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9006	9151	
==>rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	405	514	
==>on of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	405	514	
==>on of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	405	514	
==>on of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, bu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13406	13505	
==>unctions is a way
to provide a comment that refers to another file or test which must be
made to pas <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13464	13563	
==>unctions is a way
to provide a comment that refers to another file or test which must be
made to pas <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2877	2971	
==>re

When tests fail, analyze the summary report:

  t/base..............ok
  t/nonumbers....... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3159	3266	
==>Context}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3159	3266	
==>Context}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3159	3266	
==>Context}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_man <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3916	4031	
==>/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3916	4031	
==>/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9596	9693	
==>eleteme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$c01[1]);
    system("diff -u --minimal deletem <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1545	1646	
==>g to provide just such
# a usable module.  Any further efforts should likely take place there.

# Some <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18719	18815	
==>ers of Node.new(); you need to supply its $document and optional
$parent_node though; you can pro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18719	18815	
==>ers of Node.new(); you need to supply its $document and optional
$parent_node though; you can pro <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2049	2197	
==>[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	423	523	
==>ut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# represent <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	423	523	
==>ut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# represent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16642	16755	
==>erl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16642	16755	
==>erl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DES <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16642	16755	
==>erl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6687	6805	
==>on(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6687	6805	
==>on(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6687	6805	
==>on(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12723	12847	
==>b { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12723	12847	
==>b { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12723	12847	
==>b { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implement <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8344	8450	
==>fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8344	8450	
==>fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	500	605	
==>code\n";
    print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnP <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	553	690	
==>$Root/;
        print "\t$_\n";
    }
 
    ### show alternatives
    if( my $aref = $alts->{ $struct->{package} }->{bin} ) {
        prin <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	432	550	
==>eturns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$un <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	432	550	
==>eturns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	87	174	
==>------------------------------------------------------------------
## now for some boots <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	87	174	
==>------------------------------------------------------------------
## now for some boots <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	87	174	
==>------------------------------------------------------------------
## now for some boots <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14403	14500	
==>hods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14403	14500	
==>hods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14403	14500	
==>hods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8727	8829	
==>>id, 8, '... $iFoo is the fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '... in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7406	7498	
==>tr $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7406	7498	
==>tr $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5558	5676	
==>@_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5558	5676	
==>@_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5558	5676	
==>@_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23991	24085	
==>nd
Body attributes are set respectively from the optional named parameters
C<$heading> and C<$b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28543	28637	
==>nd
Body attributes are set respectively from the optional named parameters
C<$heading> and C<$b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27374	27468	
==>nd
Body attributes are set respectively from the optional named parameters
C<$heading> and C<$b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3108	3206	
==>t::More tests => 33;
use Data::Dumper;

use_ok( 'Pugs::Compiler::Rule' );

=for pod
  sub rxinfix:< <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1274	1363	
==>etta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1274	1363	
==>etta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1056	1156	
==>r.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it ge <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1056	1156	
==>r.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1136	1236	
==>r.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it ge <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12045	12183	
==>called on undef"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22295	22387	
==>, text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22295	22387	
==>, text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5256	5375	
==>YAML::LoadFile($index);
        my $meta = $pkg->meta->to_struct;
        
        # add the archive path to the package <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2417	2525	
==>inite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2417	2525	
==>inite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12783	12880	
==>ix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12783	12880	
==>ix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12783	12880	
==>ix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })' <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1155	1303	
==>loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last resu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1155	1303	
==>loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last resu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	852	961	
==>} . " " . $opt{name2} . ">",
        '{ return { op => "postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11547	11650	
==>\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11547	11650	
==>\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11547	11650	
==>\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5728	5842	
==>me = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3064	3178	
==>me = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3913	4027	
==>me = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1182	1279	
==>nd ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1182	1279	
==>nd ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1182	1279	
==>nd ::Role). This is
# needed because we lock the keys inside the opaque instance structure (see ch <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10282	10424	
==>= " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$arg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6623	6765	
==>= " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7472	7614	
==>= " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6413	6517	
==>'__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6413	6517	
==>'__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6413	6517	
==>'__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVE <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	654	809	
==>, :day($day),
                             :hour($hour), :minute($minute), :second($second),
                           );
}

# convert from an iso duration <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1526	1639	
==>modules based on
Test::Builder.  You don't need to know about Test::Harness to use
those modules.

Test::Harness r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2474	2658	
==>e;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5951	6135	
==>e;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4881	5065	
==>e;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4243	4352	
==>'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]->family eq 'group') {
    my $vis = join "", map $_-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12200	12296	
==>{ "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12200	12296	
==>{ "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11735	11868	
==>->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11735	11868	
==>->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11735	11868	
==>->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7473	7597	
==>ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7485	7609	
==>ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this <==
3	/Users/nnunley/pugs/util/fixauthors.pl	179	290	
==>4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  map {my $x=$_; $x=~tr/A-Za-z//cd; [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2499	2611	
==>PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2499	2611	
==>PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2499	2611	
==>PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11905	12077	
==>push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_wor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11905	12077	
==>push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4586	4692	
==>'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4586	4692	
==>'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4586	4692	
==>'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12229	12334	
==>::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12229	12334	
==>::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12229	12334	
==>::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code .= "use E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1714	1836	
==>...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1714	1836	
==>...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1714	1836	
==>...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4295	4397	
==>thod complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.compl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4295	4397	
==>thod complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1003	1110	
==>pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1003	1110	
==>pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1003	1110	
==>pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	13	126	
==>rl

use strict;
use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for reference pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1523	1615	
==>ement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1523	1615	
==>ement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4744	4865	
==>infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4744	4865	
==>infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method gr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4744	4865	
==>infix:«<=>»;
  }

  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3281	3441	
==>ng {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dumper <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6380	6474	
==>sh %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6380	6474	
==>sh %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	956	1073	
==>me;
    return $?SELF;

}

# takes the object and "builds" it into a class
method apply {
    ...
}

# hmm, what do we <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21173	21273	
==>ue of C<undef> to header() or any of the convenience
methods, does not delete that field.  It ought t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21173	21273	
==>ue of C<undef> to header() or any of the convenience
methods, does not delete that field.  It ought t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5076	5184	
==>rl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5076	5184	
==>rl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5076	5184	
==>rl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slic <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1629	1728	
==>rl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1629	1728	
==>rl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	434	533	
==>unctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	434	533	
==>unctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	434	533	
==>unctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4957	5114	
==>(PCR "bug")
        }

        $ast->{pos} = $last - length( $match );
        my $t;
        if ( exists $ast->{stmt} ) {

            if ( $ast->{stmt} eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2791	2908	
==>set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2791	2908	
==>set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closur <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1344	1451	
==>r 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	364	471	
==>r 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:d <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8820	8927	
==>r 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:d <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17767	17879	
==>k;
sub strap_callback {
    my($self, $line, $type, $totals) = @_;
    print $line if $Verbose;

    my $meth = $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2217	2312	
==>nt types of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2217	2312	
==>nt types of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	241	331	
==>me::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
PRELUDE

RULE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3880	3995	
==>' if $ref ne 'Dispatchable';
    return $ref->ref();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3157	3263	
==>&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3145	3251	
==>&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1963	2137	
==>r &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1963	2137	
==>r &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1963	2137	
==>r &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $self->{pArgs}->[0]->unwrap- <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2435	2557	
==>y %pad = $tree[1];  # keys: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2271	2374	
==>my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2271	2374	
==>my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12040	12142	
==>r better, I don't expect that to be a
problem.

=head2 Using the Tree

If you want to work with the par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3178	3327	
==>);
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3178	3327	
==>);
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8140	8267	
==>perators much have the same name (e.g. int == int, str == str, int != str)
multi unify => ('type::operator::nullary', 'type::ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17040	17141	
==>ttribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17040	17141	
==>ttribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17040	17141	
==>ttribute('@:subclasses'       => ::make_attribute('@:subclasses'));
$::Class->add_attribute('%:private <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	303	416	
==>= 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	303	416	
==>= 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10	114	
==>.pl - most of Test::More functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $nop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8375	8511	
==>X ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8375	8511	
==>X ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8375	8511	
==>X ?
                    return $::CLASS if $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8176	8283	
==>ant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11653	11760	
==>ant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10835	10942	
==>ant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

mu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11811	11933	
==>tart => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11811	11933	
==>tart => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Sp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6147	6241	
==>s:g/<TheGrammar.StrWhiteSpaceChar>+//;
    $s ~~ s/^([\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2682	2975	
==>xt); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2682	2975	
==>xt); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13584	13683	
==>p("p6_as_array called on $_[0]"); undef };
my %as_array_handlers =
    ( undef => sub { $as_array_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24106	24243	
==>ss;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, $sel <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	206	312	
==>8 section 3

## XXX - Exporting still doesn't work quite right.
# package Parser;

# use lib '../Chap6';
us <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	707	825	
==>bers, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remov <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	707	825	
==>bers, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remov <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6853	6968	
==>f);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3919	4034	
==>eturn $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3919	4034	
==>eturn $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3919	4034	
==>eturn $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1012	1120	
==>o)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1012	1120	
==>o)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1012	1120	
==>o)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	578	688	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	578	688	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	578	688	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      joi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13962	14079	
==>ain->("scalar_non_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	767	879	
==>RAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	767	879	
==>RAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1155	1299	
==>instead of 'literal'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1984	2090	
==>otocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1984	2090	
==>otocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10128	10300	
==>[
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'exp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10128	10300	
==>[
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'exp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2390	2486	
==>invocant => $invocant, positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2355	2477	
==>Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2355	2477	
==>Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	91	201	
==>n in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';
use Pugs::Gramma <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	410	540	
==>le || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.pu <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	410	540	
==>le || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.pu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	795	921	
==>mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	656	780	
==>.. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	656	780	
==>.. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	656	780	
==>.. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2531	2645	
==>:perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1143	1257	
==>:perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1844	1958	
==>:perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' );
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4113	4218	
==>eter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4113	4218	
==>eter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6310	6415	
==>eter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21557	21701	
==>Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21557	21701	
==>Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21557	21701	
==>Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3549	3660	
==>ed $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3549	3660	
==>ed $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3549	3660	
==>ed $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTRO <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9100	9190	
==>print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2925	3015	
==>print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	968	1067	
==>ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	968	1067	
==>ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	968	1067	
==>ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9396	9490	
==>.};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9396	9490	
==>.};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9396	9490	
==>.};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_perl5 ($xx) { p6_from_x(eval("requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	129	231	
==>he
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	129	231	
==>he
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	129	231	
==>he
# exact commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pug <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24582	24711	
==>paren) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'groupp',
      nparen => $n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6154	6248	
==><from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Upda <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6154	6248	
==><from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Upda <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11189	11339	
==>e {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11189	11339	
==>e {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11189	11339	
==>e {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23835	23933	
==>($_ send (add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@supercla <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1999	2087	
==>Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but decip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1999	2087	
==>Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but decip <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4642	4850	
==>'`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4642	4850	
==>'`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3640	3740	
==>ne diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two d <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3640	3740	
==>ne diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two d <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14440	14540	
==>ion
	die "Can't apply non function type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arr <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	555	749	
==>nstance =>
                { methods => { map { $_->name => $_->code }
                               $class->methods->members
                             },

                  # Perl 6 has no c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	190	286	
==>pX/Common/lrep*
# ***************

use strict;
use warnings;
no warnings 'redefine';

use FindBin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6634	6727	
==>e_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6634	6727	
==>e_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6634	6727	
==>e_attr($self => '@:superclasses');
}));

$::Class->add_method('subclasses' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4544	4668	
==>meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4544	4668	
==>meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4544	4668	
==>meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	158	256	
==>= args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	158	256	
==>= args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	158	256	
==>= args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12200	12326	
==>"";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12200	12326	
==>"";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12200	12326	
==>"";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Run::ApiX;\n";
    $code . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9326	9488	
==>t( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $self = shift;';
        # method <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1730	1828	
==>source.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $no <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1730	1828	
==>source.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $no <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	835	931	
==>hdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_u <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5079	5194	
==>s/Mabye //;
    $ftype =~ s/[\[\]]//g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSyms.
package PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2979	3079	
==>$.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2979	3079	
==>$.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	336	446	
==>self->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $Config::C <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6140	6231	
==>cular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6140	6231	
==>cular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17239	17415	
==>this will 
                      contain the reason.

  ok                number of tests which passed 
                      (including todo and skips)

  todo              num <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22740	22839	
==>mple operators are somewhat of
a superset of the Set operators.

Like the Set data type, the Relatio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	357	458	
==>ARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3465	3564	
==>e> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <tr <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3465	3564	
==>e> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <tr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3728	3835	
==>est number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3728	3835	
==>est number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5925	6032	
==>est number. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Bui <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	780	888	
==>r_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	681	789	
==>r_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2862	2963	
==>l4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2862	2963	
==>l4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2862	2963	
==>l4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	808	918	
==>eof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	808	918	
==>eof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	808	918	
==>eof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12035	12138	
==>5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12035	12138	
==>5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12035	12138	
==>5 ($xx0,*@xxa) { # XXX - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@x <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1114	1280	
==>: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $a <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1114	1280	
==>: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16430	16516	
==>this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16430	16516	
==>this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16430	16516	
==>this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::make <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1886	2015	
==>sts($P) {
        my $attr = $O.property_attributes{$P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1579	1683	
==>('abc') for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2->match('abc') for 1..20},
    fast_x10     => sub <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	202	298	
==>time_t
method time_t($self:) returns Int {
    ...
}

method add($self: Duration $duration) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7850	7974	
==>n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7850	7974	
==>n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7850	7974	
==>n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2252	2353	
==>ock_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2252	2353	
==>ock_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2252	2353	
==>ock_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4694	4851	
==>de,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4694	4851	
==>de,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4694	4851	
==>de,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3683	3788	
==>ash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3683	3788	
==>ash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3683	3788	
==>ash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3841	4051	
==>{
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $_[5]),
                nam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14925	15016	
==>enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14925	15016	
==>enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	757	855	
==>------------------------------------------
## Object

# The 'Object' class
$::Object = $::Class->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	757	855	
==>------------------------------------------
## Object

# The 'Object' class
$::Object = $::Class->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	757	855	
==>------------------------------------------
## Object

# The 'Object' class
$::Object = $::Class->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10833	10997	
==>text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if lengt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10833	10997	
==>text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4931	5037	
==>str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) returns nil>

=item B<remove (num) ret <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	476	596	
==>nd Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	476	596	
==>nd Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_star <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1290	1392	
==>print template( "wiki.tmpl", topic => $topic, entry => $entry, entry_html => $entry_html );
}

sub temp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	73	162	
==>t::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	73	162	
==>t::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	73	162	
==>t::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Ro <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7983	8090	
==>ty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7983	8090	
==>ty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0 <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6	101	
==>/bin/perl

# Simple YAML test harness written over Test::Harness::Straps.
# Hacked up from mini_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2821	2920	
==>} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2821	2920	
==>} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35	150	
==>g
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35	150	
==>g
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35	150	
==>g
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6422	6532	
==>ss($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6422	6532	
==>ss($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6422	6532	
==>ss($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_instance_class($self) => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	745	870	
==>ontext.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	745	870	
==>ontext.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	745	870	
==>ontext.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32029	32127	
==>ng at just the set member for
each that corresponds to language A, looking for a match to said erro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32029	32127	
==>ng at just the set member for
each that corresponds to language A, looking for a match to said erro <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	918	1045	
==>1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	918	1045	
==>1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4768	4863	
==>new (@x of ~type) returns list>

=item B<to_native () returns *native*>

=item B<to_bit () retur <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13175	13331	
==>};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1051	1152	
==>::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_clos <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1051	1152	
==>::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_clos <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15648	15752	
==>erl_args->{progfile} = $tmpfile;
    $runperl_args->{stderr} = 1;

    open TEST, ">$tmpfile" or die "Can <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4064	4150	
==>ribes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4064	4150	
==>ribes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36792	36901	
==>f any
source relation is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41341	41450	
==>f any
source relation is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40964	41073	
==>f any
source relation is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4025	4156	
==>@args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4025	4156	
==>@args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4025	4156	
==>@args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6651	6745	
==>l.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6651	6745	
==>l.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6651	6745	
==>l.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1104	1251	
==>of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #lookahead
#     If rules taking arguments had any hope of working soon, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23752	23879	
==>s $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24031	24158	
==>s $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4134	4333	
==>f ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if $a eq 'list';
                $s .= "%$a ";
                fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14836	14940	
==>ng
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	847	947	
==>_p5,'main');
	if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p5\n",number_the_lines($ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3764	3856	
==>for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3764	3856	
==>for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1478	1592	
==>$self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_;
  $self->reg <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	53	149	
==>ct that holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	53	149	
==>ct that holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1561	1717	
==>>FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.output')->write(_('$.te <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	697	796	
==>e used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosys <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	697	796	
==>e used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosys <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29454	29573	
==>.  It happens to be executed when
'atom' matches a '|'.  This means the handler for '|' does not need
to match it; it ha <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	349	453	
==>"$struct->{package} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4916	5007	
==>ermitted around **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_range_gree <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1115	1223	
==>5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1115	1223	
==>5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1115	1223	
==>5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6909	7120	
==>ethod' => 'method')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(sym <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11612	11720	
==>lvalue => sub { p6_as_bool(${$_[0]}) },
      perl5_object => sub { $_[0] ? 1 : undef },
      perl6_object = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	569	674	
==>equest = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  debug "Reading sm <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	55	153	
==>line starting `data VJunc'

has Perl::JuncType $.juncType;

has Set of Val $.juncDup;
has Set of Va <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5167	5255	
==>ied_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5167	5255	
==>ied_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4759	4872	
==>my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4759	4872	
==>my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5349	5462	
==>my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15308	15409	
==>t { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15308	15409	
==>t { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15308	15409	
==>t { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3920	4024	
==>ents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3920	4024	
==>ents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3920	4024	
==>ents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3888	3997	
==>.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3888	3997	
==>.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3888	3997	
==>.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18733	18938	
==>ied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18733	18938	
==>ied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18733	18938	
==>ied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other-> <==
3	/Users/nnunley/pugs/util/testgraph.pl	206	293	
==>r %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::TAP::HTMLMatri <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6900	7011	
==>in.hs), @libs);
    print "*** Building: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3384	3480	
==>w.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configurati <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3384	3480	
==>w.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configurati <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14693	14905	
==>not\ )?               # failure?
                  ok\b
                  (?:\s+(\d+))?         # optional test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_te <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15958	16055	
==>f `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / `interse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15958	16055	
==>f `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / `interse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3381	3484	
==>s_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3381	3484	
==>s_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3381	3484	
==>s_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4125	4316	
==>=>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4125	4316	
==>=>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4125	4316	
==>=>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13902	14003	
==>n representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, befor <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13902	14003	
==>n representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, befor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7243	7342	
==>)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7243	7342	
==>)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7243	7342	
==>)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2565	2675	
==>=~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\".. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2565	2675	
==>=~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\".. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2565	2675	
==>=~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$file\".. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18102	18203	
==>x1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18102	18203	
==>x1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18102	18203	
==>x1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12174	12280	
==>(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12174	12280	
==>(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12174	12280	
==>(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use Error qw(:try);
    try { p6_apply <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	601	730	
==>++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	806	935	
==>++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	862	991	
==>++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(% <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10460	10553	
==>et, and could potentially
never be performed at all.  They validate everything except
well-for <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10460	10553	
==>et, and could potentially
never be performed at all.  They validate everything except
well-for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11191	11342	
==>THOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11191	11342	
==>THOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11191	11342	
==>THOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	136	253	
==>s += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	136	253	
==>s += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	136	253	
==>s += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32022	32130	
==>ifically turned off for this object (for flag assertions
and C<(?:...)>).

=item omit

Whether this object is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3036	3133	
==>r!body === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6513	6610	
==>r!body === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5210	5301	
==>_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5210	5301	
==>_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5210	5301	
==>_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	221	322	
==>pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	221	322	
==>pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	221	322	
==>pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	880	1023	
==>ble';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	880	1023	
==>ble';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	880	1023	
==>ble';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Accessor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2855	2952	
==>::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2855	2952	
==>::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2855	2952	
==>::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1429	1531	
==>rbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1429	1531	
==>rbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1429	1531	
==>rbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1081	1188	
==>method BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today } <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1081	1188	
==>method BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1360	1456	
==>k
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1360	1456	
==>k
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1360	1456	
==>k
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17566	17733	
==>ist' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17566	17733	
==>ist' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17566	17733	
==>ist' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5949	6085	
==>ibute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5949	6085	
==>ibute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5949	6085	
==>ibute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body-> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4972	5125	
==>if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4972	5125	
==>if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7796	7901	
==>"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  stor <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3121	3216	
==>r =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
* <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3121	3216	
==>r =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1352	1495	
==>se {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1352	1495	
==>se {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1352	1495	
==>se {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	902	1128	
==>pl = {
            root => {
                required    => 1,
                store       => \$root
            },
            config => {
                no_override => 1,
                default     => $config
            }, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3927	4028	
==>3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3927	4028	
==>3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Ru <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2743	2859	
==>NGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2743	2859	
==>NGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12963	13093	
==>) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12963	13093	
==>) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12963	13093	
==>) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8374	8499	
==>0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8374	8499	
==>0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8374	8499	
==>0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::op <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18486	18585	
==>run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18486	18585	
==>run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15452	15555	
==>ue ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15452	15555	
==>ue ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15452	15555	
==>ue ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4396	4498	
==>her output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4396	4498	
==>her output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3199	3312	
==>eludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$hum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3199	3312	
==>eludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$hum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3199	3312	
==>eludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$hum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4811	4915	
==>_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4811	4915	
==>_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4811	4915	
==>_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3460	3558	
==>ined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3460	3558	
==>ined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3460	3558	
==>ined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9322	9437	
==>hes;

    local *TEST;
    open(TEST, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close( <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3	94	
==>ule Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate lim <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3	94	
==>ule Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate lim <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3886	4054	
==>t_method' => $e->get('$label')));                    
                      })
                  );    
                $e->set('$current' => $e->get('&dispatcher')->do( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	983	1112	
==>non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	994	1123	
==>non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail, <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6162	6287	
==>.StrWhiteSpaceChar>+//;
    $s ~~ s/^([\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24268	24385	
==>n;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20689	20806	
==>n;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->obje <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13013	13165	
==>a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13013	13165	
==>a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1763	1873	
==>y $self = bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initiali <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	139	236	
==>il');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	139	236	
==>il');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2355	2487	
==>pile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2355	2487	
==>pile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2355	2487	
==>pile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expression dumped as YAML
<ex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5385	5581	
==>LER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8862	9058	
==>LER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1554	1667	
==>ks and format as HTML
    as we go.  Then get the design docs, and format those as HTML, linking to 
    the links <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	471	599	
==>eferencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	471	599	
==>eferencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	471	599	
==>eferencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3379	3503	
==>fg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3379	3503	
==>fg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3379	3503	
==>fg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2713	2827	
==>my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2713	2827	
==>my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2713	2827	
==>my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	414	631	
==>e {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	414	631	
==>e {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	414	631	
==>e {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4791	4907	
==>\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4791	4907	
==>\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4791	4907	
==>\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Co <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10455	10597	
==>n(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:nod <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10455	10597	
==>n(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11240	11403	
==>d(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11240	11403	
==>d(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11240	11403	
==>d(::opaque_instance_class($_[0])) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6375	6486	
==>(<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6070	6191	
==>ool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6070	6191	
==>ool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture { <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	495	607	
==>, BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET;

  if($args{ensure}->()) {
    printf STDERR "skipped (%sg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2508	2616	
==>(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2508	2616	
==>(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2508	2616	
==>(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "M <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3337	3457	
==>/ (2*pi) * 400 }
	(Num)   { $radians / (2*pi) * $base } # XXX - spec ambiguous
	default { fail "invalid trig function bas <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12069	12167	
==>rns the element in the recurrence that is right before the parameter.

- `current( $x )`

Returns t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12069	12167	
==>rns the element in the recurrence that is right before the parameter.

- `current( $x )`

Returns t <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9120	9325	
==>$str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.from;
              {$a}.push($m0) if $at > $prev; $prev = $at;
              $pos <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6376	6471	
==>, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6376	6471	
==>, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%eve <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37466	37568	
==>ed binary join()
operator, and the order of its arguments is not significant to the result;
the new Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42015	42117	
==>ed binary join()
operator, and the order of its arguments is not significant to the result;
the new Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41656	41758	
==>ed binary join()
operator, and the order of its arguments is not significant to the result;
the new Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	233	363	
==>{ 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	233	363	
==>{ 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	233	363	
==>{ 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13017	13124	
==>re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_com <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13017	13124	
==>re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_com <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1320	1413	
==>th other opaque types (not $right)";
    return $left->id->to_native <=> $right->id->to_native <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	923	1036	
==>l-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	923	1036	
==>l-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	923	1036	
==>l-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28160	28271	
==>W_DROP(rx->saved_copy); \
	 } \
	 if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPI <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4524	4620	
==>, methods are
implemented as hash keys to code refs. The only function this module
exports is the <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4524	4620	
==>, methods are
implemented as hash keys to code refs. The only function this module
exports is the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21761	21858	
==>er message in
one of their own resource files.  At some appropriate place, usually in the
main pro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21761	21858	
==>er message in
one of their own resource files.  At some appropriate place, usually in the
main pro <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19073	19166	
==>sic {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11511	11703	
==>lf)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11511	11703	
==>lf)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11511	11703	
==>lf)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13863	13967	
==>= $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13863	13967	
==>= $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9728	9822	
==>got the right return value from another $iFoo singleton method');   

is($iFoo->test_iFoo_singl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3145	3242	
==>options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3145	3242	
==>options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3145	3242	
==>options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	658	754	
==>the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	658	754	
==>the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	658	754	
==>the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3839	3978	
==>$ref = reference->new($val);  
            $closure->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2549	2648	
==>.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can comprom <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2549	2648	
==>.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can comprom <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2633	2748	
==>t 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2621	2736	
==>t 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4056	4209	
==>> {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a named capt <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6725	6827	
==>Stmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($pPos, $pExp, $pNode) {
    (defined($pExp) ? DOWN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2862	2971	
==>ontiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2862	2971	
==>ontiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2862	2971	
==>ontiguous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	22	119	
==>I is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::D <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	22	119	
==>I is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::D <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18139	18248	
==>$proto->can($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3717	3816	
==>e($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($t <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3717	3816	
==>e($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12002	12178	
==>src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8284	8460	
==>src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9118	9294	
==>src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9832	9973	
==>sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9832	9973	
==>sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9832	9973	
==>sub { $class->from_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8791	8971	
==>y ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8791	8971	
==>y ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8791	8971	
==>y ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14971	15105	
==>leop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15250	15384	
==>leop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7834	7945	
==>value//;
	    $h{'isLazy'}=1 if s/\s+is lazy//;
	    $h{'isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30668	30838	
==>ss 'Unsupported dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispat <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2306	2406	
==>her) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    r <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2306	2406	
==>her) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	269	378	
==>note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	269	378	
==>note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	269	378	
==>note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11019	11105	
==>------------------------------------------------------------------------------

What if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11019	11105	
==>------------------------------------------------------------------------------

What if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11019	11105	
==>------------------------------------------------------------------------------

What if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3656	3756	
==>tly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! Wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3656	3756	
==>tly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! Wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3656	3756	
==>tly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! Wh <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2729	2836	
==>le12', $file12,
        "1st line\n2nd line\n3rd line\n4th line\n5th line\n".
        "6th line\n7th line\n8 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6585	6691	
==>()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_c <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6585	6691	
==>()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1181	1292	
==>st tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1181	1292	
==>st tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5508	5608	
==>unified
# a free variable can be instantiated to point to another type object
# at this point it rebl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26275	26370	
==>==========================================

use strict;
use warnings;
BEGIN {
    require Langua <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9446	9536	
==>b_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3271	3361	
==>b_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	214	332	
==>ructure as
the 'ratchet' version.

- It currently passes all it's tests.

- The algorithm is a bit simpler than th <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27894	27987	
==>sg_var( $var_name! )>

This method returns the Message Variable value (a string) associated wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27894	27987	
==>sg_var( $var_name! )>

This method returns the Message Variable value (a string) associated wi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1601	1687	
==>--------------------------------------------------------
## informational methods

meth <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1601	1687	
==>--------------------------------------------------------
## informational methods

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	41	141	
==>amorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	41	141	
==>amorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	41	141	
==>amorph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything def <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	230	480	
==>Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	230	480	
==>Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12788	12907	
==>_pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16069	16175	
==>( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16069	16175	
==>( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16069	16175	
==>( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p <==
3	/Users/nnunley/pugs/util/package-osx.pl	658	764	
==>sr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadline.5.1.dylib
        / <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1409	1502	
==>d optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1409	1502	
==>d optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capt <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5141	5355	
==>ow to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5141	5355	
==>ow to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14133	14247	
==>r.com/Rx/paper/

  Some files of interest in the perl sources:
    ./regexp.h ./regcomp.c ./regexec.c
    ./ext/re/ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7987	8115	
==>ntf(stderr,"...back.\n");*/
    SPAGAIN;
    api = POPi;
    if(api == 13) {
      SV* pat;
      long nparens;
      SV* exec_ca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18854	18951	
==>hod so you
can avoid this misspelling in your programs and still send the right
thing on the wire. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18854	18951	
==>hod so you
can avoid this misspelling in your programs and still send the right
thing on the wire. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	140	241	
==>$grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	140	241	
==>$grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30671	30760	
==>can't use C<< $obj->SUPER::method() >> inside the F<__object__> class,
because F<__object_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	248	355	
==>.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	248	355	
==>.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	248	355	
==>.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7743	7848	
==>ammar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7481	7582	
==>ammar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $c <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21814	21909	
==>e out our longest name string for formatting purposes.
    my $max_namelen = length($failed_str) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25719	25838	
==>s which attributes are being
renamed, with its keys being the old names and its values the new names.
This method will f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30271	30390	
==>s which attributes are being
renamed, with its keys being the old names and its values the new names.
This method will f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29237	29356	
==>s which attributes are being
renamed, with its keys being the old names and its values the new names.
This method will f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3752	3867	
==>? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3752	3867	
==>? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3752	3867	
==>? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self-> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5231	5343	
==>{ok} ) && defined( $details->{actual_ok} ) );

            # We don't want these to be undef because they are oft <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39268	39360	
==>>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39268	39360	
==>>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16319	16466	
==>rn_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not foun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16319	16466	
==>rn_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not foun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16319	16466	
==>rn_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not foun <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1647	1743	
==>headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1647	1743	
==>headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $fi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37824	37970	
==>('has_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	432	528	
==>space"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYN <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	432	528	
==>space"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1312	1404	
==>rray, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1312	1404	
==>rray, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1312	1404	
==>rray, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7908	8068	
==>unction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7908	8068	
==>unction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7908	8068	
==>unction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2161	2265	
==>urn $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2161	2265	
==>urn $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13753	13883	
==>e{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13753	13883	
==>e{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13753	13883	
==>e{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[1]}->d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5024	5254	
==>d_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5024	5254	
==>d_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5024	5254	
==>d_name => ::make_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3617	3829	
==>atches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3505	3710	
==>atches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3239	3403	
==>( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3239	3403	
==>( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3239	3403	
==>( $self, $thing ) = @_;
                die "argument to Hash bind() must be a Hash"
                    unless $thing->cell->{type} eq 'Hash';
                _('$: <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2300	2517	
==>$_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3888	4105	
==>$_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8510	8622	
==>and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7704	7808	
==>my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7704	7808	
==>my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7704	7808	
==>my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	60	184	
==>d perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	60	184	
==>d perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	60	184	
==>d perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3133	3237	
==>f->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3133	3237	
==>f->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3133	3237	
==>f->env->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1823	1933	
==>cript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1823	1933	
==>cript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1823	1933	
==>cript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*? <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2267	2384	
==>oto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2267	2384	
==>oto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13606	13712	
==>ee == 0 or $tree->[-1]->family eq "flags";

    # quantifiers must NOT follow quantifiers
    $rx->error($r <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1134	1341	
==>=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %sel <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1134	1341	
==>=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6571	6671	
==>->compile(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<op>    := (<@Grammar:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7745	7851	
==>ew_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7745	7851	
==>ew_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7745	7851	
==>ew_role;
}


1;

__END__

=pod

=head1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5347	5447	
==>'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5347	5447	
==>'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5347	5447	
==>'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1835	1945	
==>.. [$whitespace_before]\n";
                $m = Pugs::Grammar::Term->angle_quoted( substr($match, 1), { p => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3970	4060	
==>*infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAM <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3970	4060	
==>*infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	765	866	
==>echschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	765	866	
==>echschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	765	866	
==>echschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.ex <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9635	9750	
==>}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9635	9750	
==>}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	428	527	
==>vate methods.

=back

Normally, when you declare a Method on a Class, it is bound to that
Class' C<T <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27066	27165	
==>ould
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31618	31717	
==>ould
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30674	30773	
==>ould
return given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3364	3498	
==>end}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3364	3498	
==>end}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3364	3498	
==>end}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $param{end}     = sub {} unless defined $param{end}; 

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4851	4962	
==>st_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4851	4962	
==>st_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4851	4962	
==>st_process_method($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6494	6591	
==>ttr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6494	6591	
==>ttr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6494	6591	
==>ttr(::opaque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->M <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12823	12967	
==>$line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12823	12967	
==>$line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($ <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	249	359	
==>'t work quite right.
# package Parser;

# use lib '../Chap6';
use Stream;# :all;

# use base Exporter;
# @EXPOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13664	13772	
==>'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13664	13772	
==>'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13664	13772	
==>'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22730	22844	
==>if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22730	22844	
==>if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22730	22844	
==>if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15672	15774	
==>body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19149	19251	
==>body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	185	291	
==>use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, bett <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	185	291	
==>use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, bett <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	185	291	
==>use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, bett <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2031	2228	
==>ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Loc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2031	2228	
==>ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Loc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5793	5900	
==>index_content);
    }
    
    return 1;
}

=head2 @index_files = $repo->index_files(package => $pkg)

Retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8866	9001	
==>{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8862	8997	
==>{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_st <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	74	171	
==>l6 Package Manager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1741	1855	
==>} else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1741	1855	
==>} else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1741	1855	
==>} else {
    # Hack? Fully qualified variables don't need a declaration, but JavaScript
    # needs one.
    my $na <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9529	9723	
==>en "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9529	9723	
==>en "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5427	5578	
==>$start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5427	5578	
==>$start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5427	5578	
==>$start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => su <==
3	/Users/nnunley/pugs/util/package-osx.pl	2988	3106	
==>les = ();
    }

    push @files, qw(
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5. <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3895	3986	
==>return the appropriate date.

Any other string will be passed to `Date::Something::WaveHands <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3895	3986	
==>return the appropriate date.

Any other string will be passed to `Date::Something::WaveHands <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2526	2649	
==>2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2526	2649	
==>2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2526	2649	
==>2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	218	323	
==>is file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	218	323	
==>is file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by an <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	829	926	
==>just accessor methods
as well.

=back

Note that methods are bound into the compiled Class (the Ty <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4825	4936	
==>rName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4825	4936	
==>rName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1731	1842	
==>rName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5949	6064	
==>'t been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5949	6064	
==>'t been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5949	6064	
==>'t been supplied?
    unless($self->{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::d <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2627	2722	
==>ck

=head1 API METHODS

These methods must be implemented by subclasses... though a default
impl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2627	2722	
==>ck

=head1 API METHODS

These methods must be implemented by subclasses... though a default
impl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8558	8690	
==>values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array::jo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2557	2651	
==>ct support, this module is more like the
Perl 5 File::Spec::Functions module than the base File <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2557	2651	
==>ct support, this module is more like the
Perl 5 File::Spec::Functions module than the base File <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	834	1014	
==>/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$cl <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	834	1014	
==>/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13818	13959	
==>> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13818	13959	
==>> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13818	13959	
==>> {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'Mu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2303	2432	
==>d p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2219	2339	
==>d p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	212	361	
==>s;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	212	361	
==>s;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	212	361	
==>s;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3566	3676	
==>$path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3566	3676	
==>$path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s <==
3	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	74	174	
==>urns Void {
    my $newarg = [~] $arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2209	2313	
==>,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say; '

Scrip <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29266	29364	
==>yApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_ST <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29266	29364	
==>yApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_ST <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12655	12781	
==>lk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12655	12781	
==>lk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7804	7914	
==>}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7804	7914	
==>}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7804	7914	
==>}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1066	1166	
==>{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1066	1166	
==>{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1066	1166	
==>{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1444	1553	
==>(yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1444	1553	
==>(yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1444	1553	
==>(yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Mo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8760	8915	
==>+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Coo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8760	8915	
==>+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Coo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15978	16134	
==>el)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15978	16134	
==>el)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15978	16134	
==>el)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to prevent so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4529	4630	
==>turn;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4529	4630	
==>turn;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5119	5220	
==>turn;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3840	3936	
==>, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5742	5838	
==>, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($C <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1365	1490	
==>.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @tokens.shift;
  };
}


## Chapter 8 sect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10960	11069	
==>context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10960	11069	
==>context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18064	18203	
==>ler's $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $name <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	785	912	
==>ree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	785	912	
==>ree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	465	575	
==>) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is curren <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	465	575	
==>) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6022	6111	
==>ringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6022	6111	
==>ringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6022	6111	
==>ringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6254	6363	
==>$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!user <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6254	6363	
==>$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!user <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1565	1672	
==>, 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5847	5973	
==>turn join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5847	5973	
==>turn join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5847	5973	
==>turn join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	935	1078	
==>container_for_var_CODE
       p6_var_CODE
       p6_var
       p6_assign
       p6_setq
       p6_bind
       p6_mangle
       p6_apply
       p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1703	1815	
==>next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1703	1815	
==>next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7918	8086	
==>ode::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4278	4446	
==>ode::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5127	5295	
==>ode::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1485	1574	
==>= $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1485	1574	
==>= $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1485	1574	
==>= $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4505	4618	
==>an}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already initiali <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4505	4618	
==>an}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already initiali <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9898	10008	
==>e) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6_type_or(DOW <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8616	8748	
==>the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it sh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4976	5108	
==>the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it sh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5825	5957	
==>the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3263	3481	
==>e =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3263	3481	
==>e =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3263	3481	
==>e =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	268	371	
==>}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	268	371	
==>}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              : <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2996	3096	
==>stack.

Inherits List.

=item Sym

Resolves a symbol into a value. Could be a global or a dynamic sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1703	1823	
==>ined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then required to be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1703	1823	
==>ined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then required to be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1703	1823	
==>ined, this is to allow
    # for methods which do not have an implementation. These
    # methods are then required to be <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46983	47108	
==>s_equal(str->new('{}'))
                  ->and(block->new($e, sub {
                      $e->set('$return' => $e->get('$self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3744	3860	
==>_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3744	3860	
==>_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6787	6888	
==>)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6787	6888	
==>)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6787	6888	
==>)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6433	6632	
==>turn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6433	6632	
==>turn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	261	410	
==>],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.output'       => $params{'$.output'}       || \ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1715	1827	
==>class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1920	2032	
==>class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1983	2095	
==>class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4657	4780	
==>rom_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4657	4780	
==>rom_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4657	4780	
==>rom_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1588	1718	
==>terms, 'match_variable';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8723	8814	
==>nterface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exis <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8723	8814	
==>nterface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4806	4990	
==>ecksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5028	5212	
==>ecksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	875	972	
==>age. For example:

    p5-foo-1-cpan+kane

=head1 METHODS

=head2 $pkg = JIB::Package->new( file = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5060	5175	
==>singleton_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_class($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4573	4671	
==>duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersect <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4573	4671	
==>duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersect <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5639	5760	
==>},
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5639	5760	
==>},
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $se <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	967	1071	
==>e "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $topic ~~ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10659	10759	
==>' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10659	10759	
==>' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17680	17776	
==>c> on the entire string, then performing a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4306	4409	
==>);
   return $var." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5135	5225	
==>ed-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodifie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5135	5225	
==>ed-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodifie <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30366	30461	
==><$heading>) may or may not resemble those of the original. 
The anonymous function in the argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34918	35012	
==><$heading>) may or may not resemble those of the original.
The anonymous function in the argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34100	34194	
==><$heading>) may or may not resemble those of the original.
The anonymous function in the argume <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3835	3929	
==>t.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any o <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3835	3929	
==>t.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any o <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3560	3682	
==>aller[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war about wh <==
3	/Users/nnunley/pugs/util/package-osx.pl	277	397	
==>/]+)/?$#/$1#;
my $remover = "/usr/local/bin/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parro <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2419	2531	
==>e 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we d <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2419	2531	
==>e 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	364	457	
==>self->emit($type_annotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4791	4915	
==>\"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4791	4915	
==>\"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4791	4915	
==>\"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{output}\": $!\n";

  command_conf("ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3365	3504	
==>$pass = $got eq $expected;
    }

    unless ($pass) {
	unshift(@mess, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12745	12841	
==>et1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12745	12841	
==>et1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13330	13452	
==>> sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4470	4566	
==>ong, but bug-compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4482	4578	
==>ong, but bug-compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1380	1512	
==>TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or H <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1380	1512	
==>TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or H <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1380	1512	
==>TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or H <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13473	13603	
==>n this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13473	13603	
==>n this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        m <==
3	/Users/nnunley/pugs/util/importgraph.pl	261	362	
==>ind;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOpti <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17269	17394	
==>ed $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10281	10384	
==>>new("bool"),
	),
	# list a -> a
	head => do {
		my $a = type::variable::free->new;
		type::operator::ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12433	12633	
==>name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12433	12633	
==>name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12433	12633	
==>name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->n <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6733	6850	
==>=~ /^6.4(?:.0)?$/)) {
        die << ".";
*** Cannot find GHC 6.4.1 or above from path (we have $ghc_version).
*** Ple <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	536	647	
==>n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectiv <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	536	647	
==>n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29110	29236	
==>ue::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29110	29236	
==>ue::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29110	29236	
==>ue::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28285	28380	
==>BOSE>

If true, Test::Harness will output the verbose results of running
its tests.  Setting C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18547	18639	
==>ort_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('no <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18547	18639	
==>ort_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('no <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1086	1195	
==>_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($va <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17908	18002	
==>ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can iden <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17908	18002	
==>ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can iden <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	242	347	
==>nes;
use Time::Piece;
use Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @developers;
my %devs <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3465	3559	
==>rameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this r <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3465	3559	
==>rameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2437	2536	
==>ox(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2437	2536	
==>ox(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2437	2536	
==>ox(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(er <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16538	16669	
==>lf->reduce($builtin);
        }
        $val->set($builtin);
    }

    return $val;
}

sub reduce_val {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31348	31446	
==>tiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31348	31446	
==>tiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27275	27381	
==>GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit changes to its attri <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27275	27381	
==>GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit changes to its attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5381	5565	
==>>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub defau <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5381	5565	
==>>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub defau <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5381	5565	
==>>  $default,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub defau <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	449	544	
==>s[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	449	544	
==>s[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	449	544	
==>s[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14349	14524	
==>,
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14349	14524	
==>,
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14349	14524	
==>,
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13954	14108	
==>label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13954	14108	
==>label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13954	14108	
==>label =~ /^_/) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5557	5720	
==>v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{barewo <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1163	1270	
==>miter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1163	1270	
==>miter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15431	15533	
==>er = $as_hash_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	64	160	
==>c/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	64	160	
==>c/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1616	1725	
==>ead1 Construction

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

Initialize a new strap.

=cut

su <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1483	1575	
==>s/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examp <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1483	1575	
==>s/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7394	7525	
==>1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7394	7525	
==>1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7394	7525	
==>1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7103	7205	
==>_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7103	7205	
==>_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7103	7205	
==>_js {
    return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29915	30008	
==>g old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34467	34560	
==>g old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33631	33724	
==>g old tuple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	441	544	
==>info 
# - module, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	441	544	
==>info 
# - module, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1028	1163	
==>odes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1028	1163	
==>odes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1028	1163	
==>odes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	170	260	
==>bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/459 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	170	260	
==>bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/459 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	170	260	
==>bootstrapping ....

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/459 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1758	1879	
==>e' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1758	1879	
==>e' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1758	1879	
==>e' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	590	696	
==>b infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	590	696	
==>b infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	590	696	
==>b infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1148	1253	
==>ew PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1148	1253	
==>ew PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1148	1253	
==>ew PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6801	6888	
==>::make_method($_resolve));

## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6801	6888	
==>::make_method($_resolve));

## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6801	6888	
==>::make_method($_resolve));

## --------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10507	10599	
==>erator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "contin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10507	10599	
==>erator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "contin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13894	14002	
==>are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most exp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17371	17479	
==>are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most exp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16751	16859	
==>are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2612	2718	
==>\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2612	2718	
==>\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2612	2718	
==>\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = jo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1352	1455	
==>is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Consta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1352	1455	
==>is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Consta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1352	1455	
==>is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Consta <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21950	22054	
==>n is unsafe {
    # XXX - re-enable this when Parse-YAML supports closures correctly!
    return if index <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4434	4525	
==>sert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@mem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4434	4525	
==>sert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@mem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2622	2744	
==>@{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}->{capture},
                abort   => ${$_[3]{match} <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3015	3132	
==>> 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # smal <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3015	3132	
==>> 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # smal <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4236	4344	
==>on, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4236	4344	
==>on, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5760	5868	
==>on, creating it if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3824	3919	
==>g

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5726	5821	
==>g

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4862	4971	
==>"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4862	4971	
==>"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4862	4971	
==>"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1725	1829	
==>refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1930	2034	
==>refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1993	2097	
==>refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2991	3114	
==>])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2991	3114	
==>])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2991	3114	
==>])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	121	213	
==>);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	121	213	
==>);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	121	213	
==>);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3095	3215	
==>res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3095	3215	
==>res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3095	3215	
==>res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12156	12263	
==>aram{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12156	12263	
==>aram{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12156	12263	
==>aram{hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1792	1934	
==>__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1580	1714	
==>__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1580	1714	
==>__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	431	528	
==>IL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummycc']);";
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	431	528	
==>IL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummycc']);";
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	431	528	
==>IL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $undef, 'dummycc']);";
}

1 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6576	6671	
==>get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure2 <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6576	6671	
==>get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2230	2330	
==>UTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2230	2330	
==>UTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2230	2330	
==>UTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar pa <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	218	342	
==>_} = sub { $w } };

#line 31

sub new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$cl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7790	7893	
==>uit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7790	7893	
==>uit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = % <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2943	3042	
==>n $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	974	1073	
==>n $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8203	8300	
==>= "Sub" );
  ($operator) = newfrom($matchObj, $whitespacePosition, $match);
  #What does this line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4837	4941	
==>inal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4837	4941	
==>inal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4837	4941	
==>inal name. So if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::R <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2040	2142	
==>tect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      t <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2040	2142	
==>tect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      t <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	646	741	
==>more generally useful stuff, and need not be
  implemented immediately.  Assume the existence of <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3101	3266	
==>L>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3101	3266	
==>L>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12672	12772	
==>ces have zero tuples; so does result.
        return Relation::Example.new( heading => $!heading, bod <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7121	7232	
==>he globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TY <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7121	7232	
==>he globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TY <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3092	3196	
==>S.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3092	3196	
==>S.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3092	3196	
==>S.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17396	17501	
==>($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17396	17501	
==>($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17396	17501	
==>($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1783	1898	
==>e eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1783	1898	
==>e eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1783	1898	
==>e eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__ex <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2096	2226	
==>| '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2096	2226	
==>| '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2176	2306	
==>| '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14605	14710	
==>le} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14605	14710	
==>le} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14605	14710	
==>le} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END' <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3175	3290	
==>e)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3175	3290	
==>e)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	595	682	
==>X::InternalValue;
class JSX::InternalValue::Completion is JSX::InternalValue;
class JSX: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2230	2411	
==>nstall
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9336	9440	
==>to be generalized, and the anchor should only

###   work when needed (or if there is a switch telling so <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9030	9133	
==>to be generalized, and the anchor should only
###   work when needed (or if there is a switch telling so <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29590	29701	
==>être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29590	29701	
==>être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	398	497	
==>être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	909	1026	
==>ttr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	909	1026	
==>ttr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	909	1026	
==>ttr} = instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6841	6953	
==>qiv} > $$top{eqiv} )
  {
    goto oper_shift if ( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  pu <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	478	589	
==>);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.k <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	478	589	
==>);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	799	900	
==>store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	799	900	
==>store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	799	900	
==>store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12349	12469	
==>rror::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12349	12469	
==>rror::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12349	12469	
==>rror::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	869	974	
==>akeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# Restore w <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11388	11540	
==>iles) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1496	1628	
==>l',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => 'eval',
        assoc => 'left',
        precede <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5945	6054	
==>n $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $c <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1568	1673	
==>} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args->{AUTH <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6567	6663	
==>', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeA <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6567	6663	
==>', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3732	3838	
==>$@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3732	3838	
==>$@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3732	3838	
==>$@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  pr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	397	562	
==>$request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $pr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	397	562	
==>$request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4667	4800	
==>my @a = split "-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	510	617	
==>n = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	510	617	
==>n = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13247	13347	
==>-> digit(D), digits(T), !.
digits([])    --> [].
digit(D) --> [D], { code_type(D, digit) }.

hexdigit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2035	2137	
==>gen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2035	2137	
==>gen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	199	291	
==>tallation;

use base 'Object::Accessor';

=head2 $set = JIB::Installation::Set->new( [dirs => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	749	896	
==>rr instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	749	896	
==>rr instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	749	896	
==>rr instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5030	5174	
==>>{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[2] ] } }
    | exp ';' stmt <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4699	4813	
==>res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4699	4813	
==>res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1918	2018	
==>IL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1918	2018	
==>IL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1918	2018	
==>IL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31265	31382	
==>s like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returning anonymous function in t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35815	35932	
==>s like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returning anonymous function in t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35033	35150	
==>s like Perl's
standard C<grep> operator; that subset is those for which the the
Bool-returning anonymous function in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3647	3750	
==>ined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3647	3750	
==>ined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3647	3750	
==>ined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6020	6133	
==>ed_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6213	6326	
==>ed_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9443	9617	
==>$_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           j <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5933	6038	
==>ng ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : can <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5933	6038	
==>ng ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	898	998	
==>= PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	898	998	
==>= PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	898	998	
==>= PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	79	216	
==>ld disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$co <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	79	216	
==>ld disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$co <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	201	317	
==>east one package';

my @List = LoadFile( $Repoindex );

for my $package (@ARGV ) {
    
    my $tried;
    for my $en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14968	15063	
==>$xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14968	15063	
==>$xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14968	15063	
==>$xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2553	2665	
==>delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2553	2665	
==>delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15155	15261	
==>ter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18632	18738	
==>ter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18048	18154	
==>ter optimization.

    # Now do the actual combination work.
    # Start with identity-one relation and joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4423	4551	
==>age {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4423	4551	
==>age {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4423	4551	
==>age {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6805	6913	
==>_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6805	6913	
==>_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6805	6913	
==>_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3961	4066	
==>method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die " <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3961	4066	
==>method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die " <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3579	3671	
==>qualified Data.Map as Map
import qualified Pugs.Version

config :: Map.Map String String
conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2330	2469	
==>el};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2330	2469	
==>el};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2330	2469	
==>el};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	438	554	
==>zer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	438	554	
==>zer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	438	554	
==>zer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $sou <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1471	1582	
==>ee

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $ <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1471	1582	
==>ee

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5444	5539	
==>e runcore timestamp duration>),
    (map { $smoke{summary}{$_} } qw<total ok failed todo skipped <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1845	1966	
==>ift @file) ) {
	++$col;
	
	if ( $chr =~ /([\'\"])/ ) {
	    my $end = $1;
	    print '\synstr{';
	    while (scalar @file) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1876	1976	
==>t ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1876	1976	
==>t ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	796	906	
==>calar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	796	906	
==>calar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	796	906	
==>calar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack} <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1534	1659	
==>*@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remo <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1534	1659	
==>*@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	95	192	
==>n acccessor - all it's doing is making the
# "source" property of the object fallback to "content" <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	95	192	
==>n acccessor - all it's doing is making the
# "source" property of the object fallback to "content" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8455	8581	
==>arn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8455	8581	
==>arn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8455	8581	
==>arn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
M <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7040	7220	
==>rn $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10517	10697	
==>rn $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17995	18117	
==>result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17995	18117	
==>result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17995	18117	
==>result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5386	5500	
==>=>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5386	5500	
==>=>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5386	5500	
==>=>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40688	40808	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40688	40808	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40688	40808	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12885	13114	
==>new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12885	13114	
==>new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12885	13114	
==>new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7528	7647	
==>"Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7528	7647	
==>"Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7528	7647	
==>"Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	852	977	
==>{
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	852	977	
==>{
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	852	977	
==>{
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	58	175	
==>@ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	58	175	
==>@ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	58	175	
==>@ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1129	1242	
==>l hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1129	1242	
==>l hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1129	1242	
==>l hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2407	2510	
==>ELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2407	2510	
==>ELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2407	2510	
==>ELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    ret <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	696	829	
==>ing";
        }

        update_guess($guess, $target, $f, $fprime);

        say "{$count++}: $guess" if $verbose;
    }
    return $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3631	3749	
==>, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM- <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3631	3749	
==>, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	355	475	
==>mc_is_uptodate\n";
if ( $pmc_is_uptodate ) {
    do $pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # return 1 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15770	15872	
==>lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2167	2269	
==>lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10552	10673	
==>ub { $_[1] '.$_.' $_[2] }' } || die $@} qw(+ - == <=), '<', do {
        grep {
            print "Implement &infix:<$_> i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1189	1294	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1247	1352	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5244	5342	
==>ion?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
op <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5244	5342	
==>ion?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6768	6866	
==>ion?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4895	5081	
==>ame}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4895	5081	
==>ame}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4895	5081	
==>ame}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6984	7153	
==>map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6984	7153	
==>map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6984	7153	
==>map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5848	5963	
==>-\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "messa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5848	5963	
==>-\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "messa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3309	3412	
==>ject(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1159	1262	
==>ject(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_h <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	827	922	
==>variable,$value) = split('=',$_);
        %Session{$variable} = url_decode($value) if ($variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1066	1169	
==>Fun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1066	1169	
==>Fun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1066	1169	
==>Fun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31683	31789	
==>on statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if it failed, reject i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5120	5221	
==>{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5120	5221	
==>{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16823	16913	
==>LTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16823	16913	
==>LTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16823	16913	
==>LTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1320	1427	
==>ite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instant <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1320	1427	
==>ite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instant <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1320	1427	
==>ite = 0;
    #eval { $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instant <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14911	15007	
==>ient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14911	15007	
==>ient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8547	8661	
==>$name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8547	8661	
==>$name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8547	8661	
==>$name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10055	10243	
==>lder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2110	2280	
==>lder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

metho <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2110	2280	
==>lder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

metho <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2355	2452	
==>ved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values wi <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2355	2452	
==>ved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values wi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24600	24693	
==>operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1065	1210	
==>)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concate <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1065	1210	
==>)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concate <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4660	4770	
==><< "."
** Note that Cygwin support for pugs still depends on the .msi
   version of GHC and does not provide PO <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15451	15583	
==>*)"/;

            my $div = HTML::Element->new('div', class=>$tag, name=>$name);
            
            my @kids = $beg->parent->s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	771	864	
==>re_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	771	864	
==>re_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10554	10701	
==>S.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10554	10701	
==>S.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10554	10701	
==>S.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undef <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4075	4205	
==>ist' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4075	4205	
==>ist' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3845	3937	
==>(port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://ww <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3845	3937	
==>(port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://ww <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2835	2974	
==>chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /\n/;
	    }
	    print <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6598	6708	
==>ay.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*rever <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6598	6708	
==>ay.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1672	1783	
==>$_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1672	1783	
==>$_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1672	1783	
==>$_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PIL2JS.die("" + args.len <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	244	387	
==>our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	130	266	
==>our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	130	266	
==>our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' ) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18062	18158	
==>uals', and then the
application can "do the right thing".  No parsing or ambiguity involved.
By c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18062	18158	
==>uals', and then the
application can "do the right thing".  No parsing or ambiguity involved.
By c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	31	125	
==>e::Emitter::Pretty;
use base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::Esca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15175	15300	
==>) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15175	15300	
==>) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15175	15300	
==>) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3128	3283	
==>:= (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3375	3530	
==>:= (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	23	123	
==>n the last statement evaluated in the .pm, in this case
# 42. See thread "What do use and require eva <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4207	4295	
==>n the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4207	4295	
==>n the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

N <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	148	244	
==>0 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	148	244	
==>0 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	148	244	
==>0 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6964	7079	
==>ossible bindings
            # user code has to @array[$off+$i], see t/operators/binding/arrays.t.
            @arra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1434	1546	
==>query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1434	1546	
==>query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2999	3114	
==>tive = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2999	3114	
==>tive = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2999	3114	
==>tive = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5466	5599	
==>es;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5466	5599	
==>es;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5466	5599	
==>es;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1867	1970	
==>assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1867	1970	
==>assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'po <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	701	801	
==>f, @_);
}

sub emitter_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my $self = shift;
	$s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	723	855	
==>y $msg = 'Assert failed';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg);
    }

}

=h <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	4	102	
==>le Perl::Compiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	4	102	
==>le Perl::Compiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11814	11911	
==>}
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LK <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11814	11911	
==>}
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'LK <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15243	15340	
==>got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15301	15398	
==>got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5343	5457	
==>w(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6536	6634	
==>ead1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a ' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6536	6634	
==>ead1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6558	6680	
==>alue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6558	6680	
==>alue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6558	6680	
==>alue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !pe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4912	5011	
==>tes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4912	5011	
==>tes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7109	7208	
==>tes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6627	6725	
==>g "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<fro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6627	6725	
==>g "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<fro <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19104	19198	
==>eval ( Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PARSER>)
{
    Pugs::Internals::ev <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13513	13610	
==>istinct names for the fields present in the
header.  The field names have case as suggested by HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13513	13610	
==>istinct names for the fields present in the
header.  The field names have case as suggested by HTT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2302	2399	
==>s num) returns num>

=item B<subtract (x as num) returns num>

=item B<mulitply (x as num) returns <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3989	4081	
==>ect_term_1:
  my $key = $$currentTermTable->lkey($target, $whitespacePosition);
  my $token = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5903	6026	
==>erops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5903	6026	
==>erops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5903	6026	
==>erops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9894	10013	
==>::ENV)
             (closure::signature new 
                ((params  (closure::params new (symbol new ("&dispatcher" < <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8846	8957	
==>name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword seman <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8846	8957	
==>name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword seman <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14574	14671	
==>instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14574	14671	
==>instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14574	14671	
==>instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	9	126	
==>n.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_descrip <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	9	126	
==>n.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_descrip <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	9	126	
==>n.pm

# ChangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_descrip <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21587	21693	
==>} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18008	18114	
==>} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6754	6846	
==>a('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## --------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6754	6846	
==>a('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## --------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6754	6846	
==>a('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## --------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1169	1269	
==>$xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1169	1269	
==>$xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1169	1269	
==>$xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coerce <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	523	625	
==>|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# mul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	523	625	
==>|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# mul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	523	625	
==>|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# mul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2415	2528	
==>it::FALSE)
        || confess "Attribute (" . $name->to_str->to_native . ") already exists";
    return $self->[2] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1616	1754	
==>ody.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      wind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1616	1754	
==>ody.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      wind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1616	1754	
==>ody.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.write(msg);
      wind <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5528	5697	
==>s => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the lexer
        #q(<) => Pugs::Compiler::Regex->compile( q(
        #    <P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5540	5640	
==>lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_num <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5540	5640	
==>lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_num <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	947	1068	
==>];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	947	1068	
==>];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	947	1068	
==>];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10098	10229	
==>$code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10098	10229	
==>$code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10098	10229	
==>$code,"\n";
	    my $sym = eval $code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4102	4197	
==>stant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4102	4197	
==>stant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4102	4197	
==>stant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2788	2911	
==>roxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2788	2911	
==>roxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2788	2911	
==>roxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS.Box.Proxy(
        function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15104	15245	
==>y on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15104	15245	
==>y on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15104	15245	
==>y on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go there
            # if wh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2405	2530	
==>e most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2405	2530	
==>e most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	16	120	
==>mpiler::Rule;
$Pugs::Compiler::Rule::VERSION = '0.06';

# Documentation in the __END__
use 5.006;
use str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9679	9781	
==>ape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9679	9781	
==>ape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9679	9781	
==>ape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8330	8494	
==>1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8330	8494	
==>1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FOR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8330	8494	
==>1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FOR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	485	601	
==>rting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	485	601	
==>rting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	485	601	
==>rting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4630	4730	
==>s in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4630	4730	
==>s in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12945	13039	
==>F<Regexp::Parser> package, which means
you can access them as though they were methods.  They r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2727	2840	
==>et(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2727	2840	
==>et(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1487	1596	
==>ible

  Strategy:
    Iterate through all tests first.  Collect links and format as HTML
    as we go.  Then g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	250	379	
==>arn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	250	379	
==>arn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	250	379	
==>arn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->requir <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19737	19833	
==>zation_basic

This method is used to get or set an authorization header that use the
"Basic Authe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19737	19833	
==>zation_basic

This method is used to get or set an authorization header that use the
"Basic Authe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2908	3056	
==>m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2908	3056	
==>m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2483	2607	
==>ethod;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2483	2607	
==>ethod;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2483	2607	
==>ethod;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15725	15878	
==>use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15725	15878	
==>use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15725	15878	
==>use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDe <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3671	3807	
==>h,
			    *@values
			    --> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2857	2957	
==>ams()>

Returns the names of all the parameters as a list.  The order in which they were
present in t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2857	2957	
==>ams()>

Returns the names of all the parameters as a list.  The order in which they were
present in t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	3590	3706	
==>>{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3841	3954	
==>>{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3841	3954	
==>>{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef );
        return un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	221	365	
==>e_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    delete $param->{P5};
    delete $param->{Perl5};
    warn "Error in r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5942	6035	
==>any method for speed--although they should be careful to avoid changing the 
actual semantics. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5942	6035	
==>any method for speed--although they should be careful to avoid changing the 
actual semantics. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1891	2036	
==>atus: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nCo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1891	2036	
==>atus: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nCo <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	496	610	
==>+(.*)/;
        $default = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstrac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10092	10210	
==>{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10086	10204	
==>{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$na <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2444	2544	
==>al(1); # a node

=head1 DESCRIPTION

see L<Blondie> for a documentation of the node types

=head1 EXP <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	490	605	
==>l =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{$segil$name$space}";
#	
#    # digits
#    } elsif ($name =~ m/\d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29393	29488	
==>s have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33945	34040	
==>s have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33109	33204	
==>s have been split/unwrapped into other
attributes.  The members of the argument C<$attrs> are th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18269	18364	
==>as a repository file
on disk, it is expected that the Engines will employ appropriate measures
s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18269	18364	
==>as a repository file
on disk, it is expected that the Engines will employ appropriate measures
s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16876	16965	
==>B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(R <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9331	9489	
==>$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits working infix:<~ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1517	1642	
==>eep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the cu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1517	1642	
==>eep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the cu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	568	674	
==>>isa('opaque'))
        || confess "The invocant must be an opaque type";
    $self->SUPER::do($args);
}

s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11799	11889	
==>as Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11799	11889	
==>as Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6698	6816	
==>se?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6698	6816	
==>se?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2576	2704	
==>ation file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    us <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2576	2704	
==>ation file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2705	2829	
==>for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREWORD             attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3536	3647	
==>doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3536	3647	
==>doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3536	3647	
==>doublequote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14793	14905	
==>ator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14793	14905	
==>ator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                ms <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	232	338	
==>ix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5235	5361	
==>$src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2397	2507	
==>t URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this clas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2397	2507	
==>t URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3352	3476	
==>ub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3352	3476	
==>ub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3352	3476	
==>ub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpPar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5874	6032	
==>us { 
    my $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	504	607	
==>y!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	504	607	
==>y!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1297	1410	
==>? 'blib6'
      : die "Perl version '$perl_version' is bad. Must be 5 or 6.";
    my $path = File::Spec->catdir($b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20647	20744	
==>u must use accessor
methods.  Relation does not declare any subroutines or export such.

The usual <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25199	25296	
==>u must use accessor
methods.  Relation does not declare any subroutines or export such.

The usual <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11864	12036	
==>ift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11864	12036	
==>ift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11864	12036	
==>ift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2958	3084	
==>erclass'}) {
                    $eigenclass->superclass(
                        ::opaque_instance_class($attrs{'$:superclass' <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6649	6746	
==>e is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=ba <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6649	6746	
==>e is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	147	265	
==>e Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	147	265	
==>e Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	147	265	
==>e Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1305	1411	
==>$src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1305	1411	
==>$src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1305	1411	
==>$src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8008	8106	
==>rsion, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8008	8106	
==>rsion, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25950	26085	
==>sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1109	1223	
==>ail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1120	1234	
==>ail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	414	548	
==>eferencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	414	548	
==>eferencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	414	548	
==>eferencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1874	2005	
==>g?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5351	5482	
==>g?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4281	4412	
==>g?; the header of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3193	3307	
==>ity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3193	3307	
==>ity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3193	3307	
==>ity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	395	649	
==>y = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	395	649	
==>y = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, th <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5131	5244	
==>L_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefau <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5131	5244	
==>L_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefau <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2035	2148	
==>L_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefau <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5000	5127	
==>_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5000	5127	
==>_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3772	3877	
==>Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'req <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28558	28692	
==>> sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24648	24752	
==>ternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21069	21173	
==>ternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	246	353	
==>$path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' a <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	282	388	
==>$path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36426	36532	
==>: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36426	36532	
==>: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36426	36532	
==>: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    retur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1316	1491	
==>statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1316	1491	
==>statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	203	320	
==>= 0;

#read options
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3456	3557	
==>When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3456	3557	
==>When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3456	3557	
==>When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (not defi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16419	16526	
==>my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"", <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15479	15580	
==>my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"", <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	313	439	
==>$self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1984	2091	
==>rn $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4219	4326	
==>rn $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	786	897	
==>PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	786	897	
==>PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	786	897	
==>PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      unless grep { $_ = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7683	7810	
==>everse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7683	7810	
==>everse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7683	7810	
==>everse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $x <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2996	3096	
==>"Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2996	3096	
==>"Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18655	18746	
==>Pos $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$replace) }
 m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5655	5753	
==>rn;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writabl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5655	5753	
==>rn;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writabl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6245	6343	
==>rn;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($ref, $var, !$self->is_writabl <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7172	7295	
==>e than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7172	7295	
==>e than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	60	159	
==>use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping::Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1873	1968	
==>lurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1873	1968	
==>lurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8063	8230	
==>hod pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8063	8230	
==>hod pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	122	220	
==>nts
# something which does subscriber can recieve them
# two kinds of things that can do subscriber <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4936	5038	
==>ciativity of the original operator and auto-metaed versions
# of user-defined ops are not generated.
fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4936	5038	
==>ciativity of the original operator and auto-metaed versions
# of user-defined ops are not generated.
fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4936	5038	
==>ciativity of the original operator and auto-metaed versions
# of user-defined ops are not generated.
fo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	901	1029	
==>2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14726	14827	
==>ttribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14726	14827	
==>ttribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14726	14827	
==>ttribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6961	7072	
==>lf: )          is rw { $self.header("Content-Encoding") }
method content_language ($self: )          is rw { $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6961	7072	
==>lf: )          is rw { $self.header("Content-Encoding") }
method content_language ($self: )          is rw { $se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4663	4772	
==>rn $list;
}

1;

__END__

=pod

=head1 NAME

list - the core list type

=head1 METHODS

=over 4

=item B<new ( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9068	9185	
==>numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9068	9185	
==>numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3265	3408	
==>->add_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__-> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5553	5650	
==>e web using this
function.  If you need that information you should use the full OO
interface (see <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5553	5650	
==>e web using this
function.  If you need that information you should use the full OO
interface (see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	410	506	
==>ith "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	410	506	
==>ith "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	410	506	
==>ith "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4335	4457	
==>_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4335	4457	
==>_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4335	4457	
==>_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7282	7397	
==>$::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7282	7397	
==>$::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7282	7397	
==>$::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30884	30992	
==>ransformer> returns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35434	35542	
==>ransformer> returns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34625	34733	
==>ransformer> returns either an empty
tuple/Mapping or a tuple that is identical to the original, in which case <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3131	3258	
==>: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        } <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5996	6090	
==>TIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5996	6090	
==>TIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4715	4819	
==>ay "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @l <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4715	4819	
==>ay "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @l <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3555	3652	
==>lf->{name} = shift;
	$self;
}

package type::operator::binary;
use base qw/type::operator/;

use S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2586	2792	
==>AY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2586	2792	
==>AY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7492	7596	
==>ti
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7492	7596	
==>ti
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7492	7596	
==>ti
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autothread_wrapper($wrappedb <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18267	18404	
==>n};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7849	7943	
==>internal structures.

Cipher authors should assume that if this method is being called, the Sec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7849	7943	
==>internal structures.

Cipher authors should assume that if this method is being called, the Sec <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	670	772	
==>me way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	670	772	
==>me way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3342	3437	
==>Eval of -CPerl5 code failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4909	5069	
==>RAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $av <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5373	5533	
==>RAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $av <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4788	4906	
==>lah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURES
}
    else {
        $srcfile = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4151	4267	
==>xtToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4151	4267	
==>xtToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4151	4267	
==>xtToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6072	6192	
==>= @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5580	5700	
==>= @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7633	7729	
==>sub node::variable {
    return $_[0];
}
*node::varscalar = *node::varhash = *node::variable;
sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5151	5245	
==>scription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5151	5245	
==>scription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6675	6769	
==>scription> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $descriptio <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14039	14133	
==>h their entity
representation. A second argument can be given to specify which
characters to co <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14039	14133	
==>h their entity
representation. A second argument can be given to specify which
characters to co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	123	257	
==>Container::Scalar' => {
    does => [ 'IScalar' ],
    instance => {
        attrs => [ '$:value' ],
        methods => {
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4461	4573	
==>removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this opt <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4461	4573	
==>removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7371	7463	
==>s
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7371	7463	
==>s
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7371	7463	
==>s
) is primitive {
  $match.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4160	4243	
==>on ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Value <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4160	4243	
==>on ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Value <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2617	2743	
==>d $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2617	2743	
==>d $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	655	780	
==>RGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	655	780	
==>RGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	655	780	
==>RGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8003	8116	
==>params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8003	8116	
==>params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8003	8116	
==>params;\n")
        : "",
      PIL::add_indent(1, $backup),
      PIL::add_indent(1, $ccsetup),
      PIL::add_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20717	20815	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20717	20815	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20717	20815	
==>_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1014	1134	
==>ption.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1014	1134	
==>ption.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1014	1134	
==>ption.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4922	5026	
==>r 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4922	5026	
==>r 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7119	7223	
==>r 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12797	12910	
==>hod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12797	12910	
==>hod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12797	12910	
==>hod('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from ( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2781	2881	
==>ltin
    $val->set($self->reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	837	930	
==>anges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	837	930	
==>anges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1503	1618	
==>nal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actua <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1503	1618	
==>nal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actua <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1503	1618	
==>nal class 'Perl6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actua <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29589	29702	
==>ributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34141	34254	
==>ributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33305	33418	
==>ributes are not tuple-valued attributes, or if any attribute names
in one unwrapped tuple-valued attribute are the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24	132	
==>d

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24	132	
==>d

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24	132	
==>d

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	943	1034	
==>y}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	943	1034	
==>y}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	943	1034	
==>y}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.Ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	618	861	
==>unction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	618	861	
==>unction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	618	861	
==>unction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	242	342	
==>quire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	242	342	
==>quire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	242	342	
==>quire BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11677	11776	
==>es Role since they
are just instances of Class which does Role too. So this means that all classes
a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11677	11776	
==>es Role since they
are just instances of Class which does Role too. So this means that all classes
a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11677	11776	
==>es Role since they
are just instances of Class which does Role too. So this means that all classes
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1241	1339	
==>infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1241	1339	
==>infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1241	1339	
==>infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9113	9241	
==>i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = '::' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16403	16497	
==>amed parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16403	16497	
==>amed parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	68	173	
==>k on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	68	173	
==>k on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	68	173	
==>k on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9895	10004	
==>inuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	330	435	
==>inuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	330	435	
==>inuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2763	2940	
==>sts (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6240	6417	
==>sts (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5170	5347	
==>sts (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4295	4393	
==>t3D(5, 6, 7);
is($p3d->class, \&Point3D, '... go the right class name for Point3D');
is($p3d->proto <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5625	5716	
==>ta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5625	5716	
==>ta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4877	5012	
==>, then
            # ignore it and go to the next one
            next if $self->has_method($method_name);
            # otherwise ... a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22793	22909	
==>Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19214	19330	
==>Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3792	3923	
==>y => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3792	3923	
==>y => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3792	3923	
==>y => $value);
    $pair.value := $value;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3203	3317	
==>rclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3203	3317	
==>rclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3203	3317	
==>rclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_cl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15555	15673	
==>sses with:

  I32 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& * <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35510	35604	
==>this object as an array
ref.

=item C<as_debug_string()>

This method returns a stringified ver <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35510	35604	
==>this object as an array
ref.

=item C<as_debug_string()>

This method returns a stringified ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3467	3601	
==>hey don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3467	3601	
==>hey don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3467	3601	
==>hey don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1615	1739	
==>um::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1615	1739	
==>um::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1615	1739	
==>um::NaN to Primitives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12944	13038	
==>inite if the recurrence is infinite.
Returns negative infinite if the recurrence is an empty se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12944	13038	
==>inite if the recurrence is infinite.
Returns negative infinite if the recurrence is an empty se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1215	1323	
==>ser  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1215	1323	
==>ser  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1215	1323	
==>ser  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29657	29795	
==>elf->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29657	29795	
==>elf->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29657	29795	
==>elf->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_->sum
        }
        elsif ( ref( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8192	8323	
==>x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # wa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8192	8323	
==>x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # wa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8192	8323	
==>x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5416	5531	
==>dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5416	5531	
==>dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5416	5531	
==>dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41100	41221	
==>NOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41100	41221	
==>NOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41100	41221	
==>NOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6686	6786	
==>{},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6686	6786	
==>{},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6686	6786	
==>{},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is the <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4823	4936	
==>ad = $tree[1];  # keys: "pExp""pNode""pPos"
        dbg "# keys: ",%pad.keys;
        $ret = traverse_ast( %pad<"p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	231	336	
==>t</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web s <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	231	336	
==>t</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8925	9033	
==>rnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min','max' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26099	26194	
==>t (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30651	30746	
==>t (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1178	1324	
==>return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1131	1270	
==>return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => su <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1184	1301	
==>$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num::round_ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1366	1471	
==>at; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1366	1471	
==>at; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1366	1471	
==>at; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	87	199	
==>tion of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	52	160	
==>e PIL::Run::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $c = PIL::R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	85	191	
==>tion of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1095	1213	
==>f (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blesse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1095	1213	
==>f (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blesse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1095	1213	
==>f (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blesse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3973	4094	
==>dn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3973	4094	
==>dn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3973	4094	
==>dn't close \"$cfg{preludepc}\": $!\n";

  command_conf("preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14222	14316	
==>o_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14222	14316	
==>o_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14222	14316	
==>o_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7954	8068	
==>undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7954	8068	
==>undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7954	8068	
==>undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the packa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4037	4178	
==>t"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "u <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4037	4178	
==>t"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "u <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	48	142	
==>licly exported methods
has Code--Perl6 %.methods;

# private use methods
has Code--Perl6 %:meth <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7391	7502	
==>bd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7391	7502	
==>bd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	586	682	
==>ious ways to interpret a test
  my %results = $strap->analyze($name, \@test_output);
  my %result <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9541	9635	
==>does not declare any subroutines or export such.

The usual way that Rosetta::Model indicates a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9541	9635	
==>does not declare any subroutines or export such.

The usual way that Rosetta::Model indicates a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	130	236	
==>_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	130	236	
==>_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19353	19445	
==>em with using F<SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Character classes w <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2976	3095	
==>y @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### X <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3440	3559	
==>y @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### X <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14552	14669	
==>.meta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1512	1620	
==>d.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digi <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1512	1620	
==>d.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digi <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	395	501	
==>output of "svn log" or save "svn log" output in a file and
specify this file as parameter.
Output will go t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3641	3756	
==>rgs;
    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    my $mm = ExtUtils::MakeMak <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11531	11642	
==>CKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13056	13167	
==>CKAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21233	21330	
==>eature is that it provides a
common API for access to those databases, each of which takes a diffe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21233	21330	
==>eature is that it provides a
common API for access to those databases, each of which takes a diffe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2913	3018	
==>$Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2913	3018	
==>$Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2993	3098	
==>$Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4834	4930	
==>_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4834	4930	
==>_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4834	4930	
==>_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2394	2499	
==>($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method inte <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2394	2499	
==>($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method inte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1338	1427	
==>LE
*{'meth_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<clas <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37440	37551	
==>Class->send('add_attribute', (symbol->new('%:attributes')      => attribute->new('%:attributes'      => 'hash')) <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	349	458	
==>e $!;
print OUT "module $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT E <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38561	38668	
==>y @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parser->regex($_) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4916	5007	
==>o->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7584	7675	
==>o->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4868	4961	
==>(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4868	4961	
==>(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4868	4961	
==>(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17607	17705	
==>=> p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17607	17705	
==>=> p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17607	17705	
==>=> p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2199	2308	
==>'$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2199	2308	
==>'$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2199	2308	
==>'$:name' => '*');

# and add our meta-objects to it ...

$::{'*'}->STORE('::Package'    => $::Package);
$::{'* <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7253	7379	
==>\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3857	3983	
==>\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4706	4832	
==>\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24405	24498	
==>.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute it a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24405	24498	
==>.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute it a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23203	23405	
==>opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaq <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	473	605	
==>V_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	473	605	
==>V_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2129	2234	
==>v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2129	2234	
==>v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2129	2234	
==>v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3950	4099	
==>();
            $val = $ref->fetch;            
        }
    }
    return nil->new();
}

sub apply {
    my ($self, $closure) = @_;
    (blessed($clo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3175	3282	
==>my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3163	3270	
==>my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6287	6392	
==>nstance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6287	6392	
==>nstance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6287	6392	
==>nstance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2194	2357	
==>rn (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2194	2357	
==>rn (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $. <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1683	1773	
==>rs::macif(%?CONFIG{'int_width'} == 32,'subset int of int32 where { true }');
Helpers::macif <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24630	24727	
==>fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You should ha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24630	24727	
==>fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You should ha <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5304	5400	
==>led, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5304	5400	
==>led, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6828	6924	
==>led, depending on C<$passed> with an
optional C<$description>, but marks it as a TODO test with a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11695	11826	
==>RG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my metho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11695	11826	
==>RG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	653	775	
==>[1], exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3708	3875	
==>rsion} <=> $a->{version } } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        my $my_bindir = "$Site/$new_alt->{package}/b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24783	24899	
==>->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21204	21320	
==>->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2163	2292	
==>@a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2163	2292	
==>@a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	266	363	
==>keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5273	5363	
==>hod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5273	5363	
==>hod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5273	5363	
==>hod(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('superclasses' => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20125	20255	
==>ime
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching .... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20125	20255	
==>ime
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching .... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20125	20255	
==>ime
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        }        
        # go about our dispatching .... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5933	6075	
==>Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5933	6075	
==>Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5933	6075	
==>Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5108	5247	
==>name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5108	5247	
==>name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5108	5247	
==>name => 'Any',  # XXX - should be Sub or Code or something
                    match => sub { 1 } ) : 
            die 'Sigil required in th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3526	3654	
==>rence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3526	3654	
==>rence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3201	3316	
==>Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' { <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	38	157	
==>Perl 5
# Skalar:
say "$test";      # print "$test";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1812	1912	
==>ndefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1812	1912	
==>ndefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	455	588	
==>}
        #~ }    
    #if ( $_[0]{pair} ) {
        my $category = $_[0]{pair}{key}{single_quoted};
        my $name     = $_[0]{pair <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5084	5177	
==>ce ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5084	5177	
==>ce ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	163	265	
==>SAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	163	265	
==>SAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	163	265	
==>SAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN li <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15933	16070	
==>_\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile: $!";

    my $resul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22259	22347	
==>head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22259	22347	
==>head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16938	17030	
==>ernals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16938	17030	
==>ernals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16938	17030	
==>ernals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	916	1032	
==>EST_CACHE;

    sub digest {
        my $self = shift;
        $DIGEST_CACHE{overload::StrVal($self)} ||= $self->comp <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1633	1727	
==>the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1633	1727	
==>the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2401	2518	
==>);\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3182	3299	
==>);\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2334	2433	
==>> | <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <nonca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8583	8682	
==>2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8583	8682	
==>2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8583	8682	
==>2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an inpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14284	14422	
==>n $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14284	14422	
==>n $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14284	14422	
==>n $j if $j;

                # warn "testing multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23599	23811	
==>to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23599	23811	
==>to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23599	23811	
==>to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6070	6175	
==>ingify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6070	6175	
==>ingify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6070	6175	
==>ingify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27833	27929	
==>ally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32385	32481	
==>ally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31477	31573	
==>ally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	98	207	
==>IVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	98	207	
==>IVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	471	577	
==>tfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	471	577	
==>tfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	471	577	
==>tfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $ca <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1462	1554	
==>refore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> t <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1462	1554	
==>refore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> t <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1958	2058	
==>$x, Num $base) {
    return Pugs::Internals::log($x)   if !defined $base;
    return Pugs::Internals: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3379	3477	
==>The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3437	3535	
==>The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($te <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	609	713	
==>he Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	609	713	
==>he Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4410	4499	
==>oint, '... go the right superclass name for Point3D');
is($p3d->prototype->prototype->clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11068	11224	
==>->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11068	11224	
==>->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11068	11224	
==>->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized me <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	255	369	
==>re DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $inserted = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3268	3369	
==>nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3268	3369	
==>nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9680	9797	
==>t + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9680	9797	
==>t + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self. <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1018	1112	
==>$^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::int_size 2;
Clutter::int_size 4;
Clutter:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7524	7635	
==>function gets as argument a list:



### we don't need a "high" level interface (named args) 

###    because th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7268	7376	
==>function gets as argument a list:

### we don't need a "high" level interface (named args) 
###    because th <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29093	29184	
==>the underlying timing routines, and L<Devel::Cover> for test coverage
analysis.

=head1 TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5254	5352	
==>equire JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5254	5352	
==>equire JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5254	5352	
==>equire JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderMonkey->new();
  $jssm->init();
  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4910	5021	
==>l eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4910	5021	
==>l eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4910	5021	
==>l eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9479	9568	
==>eton method');
   
$iFoo->add_singleton_method('another_test_iFoo_singleton_method' => sub <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	88	173	
==>http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, O <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	88	173	
==>http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, O <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1639	1770	
==>$i++) {
            my $event = $events->[$i];
            if($all_the_same->(@{ $events->[$i] })) {
                undef $events-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	69	158	
==>P::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	69	158	
==>P::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8902	9142	
==>unction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8902	9142	
==>unction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8902	9142	
==>unction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	453	545	
==>h.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	453	545	
==>h.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	453	545	
==>h.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12877	13010	
==>osed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12877	13010	
==>osed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12877	13010	
==>osed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1655	1844	
==>does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1655	1844	
==>does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1655	1844	
==>does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical pad.
  #   my $a <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1816	1982	
==>nd a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1816	1982	
==>nd a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5993	6100	
==>->{extensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{extensions} ||= [];
}

sub find_extensions <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9766	9880	
==>med;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9766	9880	
==>med;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9766	9880	
==>med;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6arg,[['name' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	471	576	
==>ANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	471	576	
==>ANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	471	576	
==>ANCE_COUNT = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8872	9030	
==>$::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8872	9030	
==>$::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8872	9030	
==>$::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unb <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	840	970	
==>e,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift;
    map { @$_ } $self-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20280	20391	
==>e {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2689	2815	
==>od($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2689	2815	
==>od($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2689	2815	
==>od($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1513	1708	
==>lue of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of An <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4990	5185	
==>lue of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of An <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3920	4115	
==>lue of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of An <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4039	4153	
==>ods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4039	4153	
==>ods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4039	4153	
==>ods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5188	5292	
==>imP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5188	5292	
==>imP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5188	5292	
==>imP6
# MULTI SUB id ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1457	1570	
==>age PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1457	1570	
==>age PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1457	1570	
==>age PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	621	712	
==>name.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	621	712	
==>name.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	621	712	
==>name.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7930	8057	
==>([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7930	8057	
==>([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7930	8057	
==>([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1294	1398	
==>num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1294	1398	
==>num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1374	1478	
==>num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnostic );
} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4288	4389	
==>ription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4288	4389	
==>ription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6485	6586	
==>ription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$todo = 0>

Th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9025	9192	
==>l:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9860	10027	
==>l:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1479	1582	
==>ests if we haven't been given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14665	14765	
==>SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14665	14765	
==>SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14665	14765	
==>SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6698	6820	
==>yright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redistribute it and/or modify it u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6698	6820	
==>yright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redistribute it and/or modify it u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6698	6820	
==>yright (c) 2004 Gaal Yahas. All rights reserved.  This program is
free software; you can redistribute it and/or modify it u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9446	9548	
==>lequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9446	9548	
==>lequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9446	9548	
==>lequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19099	19197	
==>mP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19099	19197	
==>mP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19099	19197	
==>mP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/util/claim_drift.pl	1107	1241	
==>nlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $re <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3773	3870	
==>->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5133	5230	
==>->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	729	911	
==>accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&infix:</>' => Thun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10264	10394	
==>ue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10264	10394	
==>ue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10264	10394	
==>ue[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3672	3772	
==>ng
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3672	3772	
==>ng
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4262	4362	
==>ng
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_only) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5746	5865	
==>rs-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5746	5865	
==>rs-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5746	5865	
==>rs-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3615	3756	
==>ethod(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3615	3756	
==>ethod(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3615	3756	
==>ethod(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8409	8515	
==>$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8409	8515	
==>$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8409	8515	
==>$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	409	523	
==>onstant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	409	523	
==>onstant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	409	523	
==>onstant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1556	1664	
==>e v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1556	1664	
==>e v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5979	6121	
==>$self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5979	6121	
==>$self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5979	6121	
==>$self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4706	4813	
==>ing from filter,
    # because we need all the lines including the ones before the `use`
    # statement, so <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4706	4813	
==>ing from filter,
    # because we need all the lines including the ones before the `use`
    # statement, so <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8300	8401	
==>map{recurse($_)}@$x).']';
    } elsif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1817	1964	
==>equal',
    #    other => 'infix:<|>',
    #);

    __PACKAGE__->add_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'lo <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5899	5983	
==>http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COP <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5899	5983	
==>http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	159	258	
==>even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	159	258	
==>even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	159	258	
==>even programs using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "t <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1344	1439	
==>alf_up: symmetrical => $^b },
		{ $^a.round_half_down: symmetrical => $^b },
		{ $^a.round_half_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	784	878	
==>> sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	784	878	
==>> sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10964	11212	
==>=> [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10964	11212	
==>=> [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10964	11212	
==>=> [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11479	11600	
==>l == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11479	11600	
==>l == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33101	33222	
==>$self, $walk_stack, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2086	2201	
==>ssed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2086	2201	
==>ssed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2086	2201	
==>ssed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1145	1253	
==>JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1145	1253	
==>JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1145	1253	
==>JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	668	777	
==>b pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	668	777	
==>b pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	668	777	
==>b pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13510	13626	
==>::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3797	4008	
==><previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6799	6910	
==>us - not document ?

...



- rule()



### internals - move to module documentation



Rules, just like other P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6570	6674	
==>us - not document ?
...

- rule()

### internals - move to module documentation

Rules, just like other P <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11155	11261	
==>umber of
    tests run -- for example, if a backend only ran three tests, which it
    passed, this page wo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9019	9123	
==>turn $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9019	9123	
==>turn $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7439	7561	
==>e) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Bas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7439	7561	
==>e) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Bas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4756	4854	
==>meter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4756	4854	
==>meter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6953	7051	
==>meter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builde <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6763	6901	
==>my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { requir <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12848	12981	
==>my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { requir <==
3	/Users/nnunley/pugs/util/package-osx.pl	10182	10278	
==>installed on the target machine (hence the $file[-1]).
sub create_remover {
    my ($dest, @files <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5479	5598	
==>'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *F <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5973	6090	
==>'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *F <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1289	1392	
==>kage
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4098	4211	
==>f.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4098	4211	
==>f.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4098	4211	
==>f.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12903	12999	
==>a) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12903	12999	
==>a) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12903	12999	
==>a) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1271	1381	
==>ge VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1271	1381	
==>ge VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1271	1381	
==>ge VInt; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4636	4745	
==>->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4495	4604	
==>->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	230	336	
==>r::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Object ();

{
	package Blondie::Backend::C::Emitter::Du <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24900	25025	
==>ub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25179	25304	
==>ub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print " <==
3	/Users/nnunley/pugs/util/testgraph.pl	1144	1266	
==>nfig{cssfile}]

See also:
   util/yaml_harness.pl  - produce the data for this tool
   util/catalog_tests.pl - produce cros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6365	6487	
==>jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6365	6487	
==>jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6365	6487	
==>jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13676	13771	
==>reasonable range of values.

You should consider using a Set::Infinite object if you want to exc <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13676	13771	
==>reasonable range of values.

You should consider using a Set::Infinite object if you want to exc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11390	11485	
==>differently in different packages.

This would permit
  ./perl -we 'use Regexp::Perl6; print "a" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8325	8445	
==>s_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to crea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8325	8445	
==>s_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to crea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8325	8445	
==>s_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to crea <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4717	4840	
==>> '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "sca <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4717	4840	
==>> '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38416	38547	
==>urn $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38416	38547	
==>urn $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38416	38547	
==>urn $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	146	263	
==>mFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	146	263	
==>mFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	146	263	
==>mFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32061	32199	
==>rn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32061	32199	
==>rn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32061	32199	
==>rn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26102	26201	
==>, "pretty print list a -> a");
}
{
	my $a = type::variable::free->new;
	my $b = type::variable::free <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	994	1111	
==>nt "----\n";
	my @res = eval($p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24175	24266	
==>y contrast, Locale::KeyedText does no compile time binding and
will support multiple languag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24175	24266	
==>y contrast, Locale::KeyedText does no compile time binding and
will support multiple languag <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2994	3208	
==>atim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbat <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2994	3208	
==>atim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbat <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15394	15520	
==>on
      "-b" => "boot/grub/stage2_eltorito", # Set El Torito boot image name
      "-no-emul-boot",                     # Boot <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1649	1752	
==>:Node::Unit;
    use base qw/Blondie::Unit Blondie::Node/;

    package Blondie::Node::List;
    use bas <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9912	10006	
==>{load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9912	10006	
==>{load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1437	1556	
==>) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1437	1556	
==>) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1437	1556	
==>) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2470	2577	
==>x:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2470	2577	
==>x:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2470	2577	
==>x:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17554	17663	
==>ir"),
	param => val(10),
);

# a fully constructed pair, with a = int and b = str
my $pair = comb(
	fun => $ha <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2809	2895	
==>.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>p <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2809	2895	
==>.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7346	7459	
==>ne() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7346	7459	
==>ne() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7346	7459	
==>ne() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2782	2906	
==>hat, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2782	2906	
==>hat, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2782	2906	
==>hat, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	281	388	
==>rgs.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	281	388	
==>rgs.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	281	388	
==>rgs.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9456	9576	
==>ng";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9456	9576	
==>ng";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1090	1203	
==>ulti  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num::int ::= &Num::t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4559	4657	
==>erence ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4559	4657	
==>erence ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15295	15454	
==>->{ok}     = $not ? 0 : 1;

        if( defined $type ) {
            $test->{type}   = $type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	570	685	
==>submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	570	685	
==>submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26950	27047	
==>ty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26950	27047	
==>ty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21462	21562	
==>)) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21462	21562	
==>)) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21462	21562	
==>)) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12321	12413	
==>n
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12321	12413	
==>n
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12321	12413	
==>n
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array_postcircu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1815	1926	
==>etch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1815	1926	
==>etch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1815	1926	
==>etch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2253	2368	
==>M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user may be running
        # `make unoptimz <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1427	1523	
==>les are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to u <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1427	1523	
==>les are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7912	8048	
==>oo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7912	8048	
==>oo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7912	8048	
==>oo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	192	309	
==>use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	192	309	
==>use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	192	309	
==>use warnings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25673	25771	
==>by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25673	25771	
==>by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5781	5878	
==>2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5781	5878	
==>2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5781	5878	
==>2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4267	4406	
==>== Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list i <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4267	4406	
==>== Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8405	8540	
==>"ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(88 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8405	8540	
==>"ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(88 <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	171	275	
==>and
# this brute-force, simplistic, and extremely foolish
# script, ignoring deeper context, needs lots o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	129	240	
==>PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	129	240	
==>PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	129	240	
==>PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	261	357	
==>ta::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Geto <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	261	357	
==>ta::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Geto <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	261	357	
==>ta::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Geto <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	484	656	
==>$val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	484	656	
==>$val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5252	5363	
==>tegory>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, fixity => ..., precedence = <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	915	1058	
==>CH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} = <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	915	1058	
==>CH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} = <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	698	810	
==>./:step;
    }
  }

  # Post $event to $session and return the result.
  # The session's event handler won't be e <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1432	1591	
==>d $o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  e <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1587	1680	
==>sition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`m <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1587	1680	
==>sition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2616	2781	
==>IT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2616	2781	
==>IT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2616	2781	
==>IT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16369	16454	
==>,F0,F0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	79	175	
==>xt }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	79	175	
==>xt }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	79	175	
==>xt }

sub JS::Root::say(Str *@text)   is primitive { print *@text, "\n" }
sub JS::Root::print(Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22022	22117	
==>x0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22022	22117	
==>x0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22022	22117	
==>x0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3897	4020	
==>tions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3897	4020	
==>tions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3897	4020	
==>tions

=head1 SYNOPSIS

  use Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9694	9806	
==>e as -Is.
    # MacPerl's putenv is broken, so it will not see PERL5LIB, tainted or not.
    if ( $taint || $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	711	821	
==>on ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expecte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	711	821	
==>on ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expecte <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1596	1746	
==>ment $arg ) {
            $.append_name( $arg );
            $.append_value( $arg );
            $.count++;
        }

        method append_name ( $ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2954	3097	
==>b alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2954	3097	
==>b alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] a <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	224	336	
==>ile {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/] <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	188	300	
==>ile {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	215	365	
==>{ 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	215	365	
==>{ 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14152	14275	
==>n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        #}
        return 'eval ' . _emit( $n->{exp1} ) . "; " . <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19822	20061	
==>pply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40282	40521	
==>pply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2003	2122	
==>e]
    );
}

sub length {
    my $self = shift;
    return num->new(scalar(@{$self}));
}

sub elems {
    my $self = shi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	781	876	
==>opsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
development <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	781	876	
==>opsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
development <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11341	11471	
==>ls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11341	11471	
==>ls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11341	11471	
==>ls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	75	173	
==>til;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	75	173	
==>til;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	75	173	
==>til;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	878	988	
==>als, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	878	988	
==>als, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	878	988	
==>als, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4185	4296	
==>od(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4185	4296	
==>od(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4185	4296	
==>od(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dis <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4674	4864	
==>: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4674	4864	
==>: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3390	3497	
==>:Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3390	3497	
==>:Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3390	3497	
==>:Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3275	3510	
==>atim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($lin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3275	3510	
==>atim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2403	2530	
==>y $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2403	2530	
==>y $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2403	2530	
==>y $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4990	5084	
==>ess->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4990	5084	
==>ess->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4990	5084	
==>ess->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenced i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1029	1149	
==>> $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1029	1149	
==>> $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5106	5221	
==>rn $S->object(prop => $name, 0);
  });

  # nspace (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3728	3851	
==>c_dir);
    print "P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2036	2153	
==>) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2036	2153	
==>) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10353	10482	
==>be built later from.
      We'll copy pugs and the libraries it needs to it.
HELP

  my @files = (
    [$pugs                 => " <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5727	5854	
==>er.file} line {$caller.line}";
        };

        $mess;
    }
}


=kwid

role Rule {}
class Pugs::Internals::VRule does Rule { <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	154	255	
==>$self:) returns Tree {
    # create the tree lazily ...
    $self.:create_tree() unless $:tree.defined <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2549	2661	
==>out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2549	2661	
==>out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2629	2741	
==>out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37799	37930	
==>the source relations.  The body of the new relation is
the result of first pairwise-matching every tuple of each source relation
wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42348	42479	
==>the source relations.  The body of the new relation is
the result of first pairwise-matching every tuple of each source relation
wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41998	42129	
==>the source relations.  The body of the new relation is
the result of first pairwise-matching every tuple of each source relation
wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2071	2249	
==>rom = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2071	2249	
==>rom = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2071	2249	
==>rom = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2485	2582	
==>@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specificati <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2485	2582	
==>@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specificati <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2485	2582	
==>@b[1..20000000]
#        (@a[1..100],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specificati <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7461	7570	
==>.members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_obj <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7461	7570	
==>.members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_obj <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	211	308	
==>l6's CPAN, also known as sixpan.

Please refer the documentation of the other Modules in the JIB n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3564	3676	
==>hat}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3564	3676	
==>hat}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3564	3676	
==>hat}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1062	1183	
==>dd_rule(
        '{' => q( { return { stmt => '{'} } ));
    __PACKAGE__->add_rule(
        '}' => q( { return { stmt => ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18080	18177	
==>references to each other at a level visible in the Rosetta Native
Interface, if at all.  To accoun <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18080	18177	
==>references to each other at a level visible in the Rosetta Native
Interface, if at all.  To accoun <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16497	16639	
==>max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset an <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20923	21065	
==>max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset an <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14684	14782	
==>m of C<keys> is not longer supported. Use the C<.buckets>
property instead.

=back


=head2 Str

Ge <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7154	7398	
==>$subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if de <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7154	7398	
==>$subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1287	1436	
==>n already set!" if _('$.testplan');
            if ($tests) {
                _('$.testplan' => $::TestBuilder->FETCH('::TestPlan')->new( '$.expect' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1095	1213	
==>Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1095	1213	
==>Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1095	1213	
==>Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	907	1047	
==>fer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	907	1047	
==>fer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6873	6991	
==>::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6873	6991	
==>::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6873	6991	
==>::SUBCOROUTINE
        ? $self->corofix($self->body->as_js)
        : $self->body->as_js;
    my $ccsetup     =
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	463	577	
==>t does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	463	577	
==>t does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	463	577	
==>t does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	725	861	
==>ix:<' . $opt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAGE__->add_rule( 
        name => '*',
        assoc => 'left',
    );
    __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9731	9846	
==>2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] + <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9731	9846	
==>2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] + <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14762	14885	
==>ethod () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14762	14885	
==>ethod () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14762	14885	
==>ethod () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FETCH at (" . ($label || ' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5989	6092	
==>e if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only app <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5989	6092	
==>e if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only app <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	494	603	
==>.e. get an event from @:events and call it.
  my method step () {
    return unless @:events;

    my $callbac <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2376	2470	
==>includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns Boo <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2376	2470	
==>includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns Boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	946	1081	
==>reateTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	946	1081	
==>reateTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	946	1081	
==>reateTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36781	36880	
==>handle both '&' and '!'.  '!' will indicate a negative look-ahead.

  package Regexp::AndBranch;
  u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8801	8954	
==>eem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8801	8954	
==>eem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_hea <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	329	434	
==>_up (Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4177	4377	
==>f );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4177	4377	
==>f );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4177	4377	
==>f );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22191	22293	
==>ulative syntax here :)
    unbox($self).id
}

(method id ((opaque $self:)) returns num 
    ($self: id) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4145	4262	
==>s};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4145	4262	
==>s};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4145	4262	
==>s};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3628	3736	
==>w/type::operator/;

use Scalar::Util ();

sub new {
	my $class_that_should_be = shift;
	my $class = __PACKAGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1833	1941	
==>ODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1833	1941	
==>ODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1833	1941	
==>ODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10243	10352	
==>ould probably be faster)

    # also, the signature for this sub is nowhere near finalized; it should
    # su <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	604	696	
==>ipher API> for general information.

=head2 Constructor options

With no options, Cipher::Cae <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	604	696	
==>ipher API> for general information.

=head2 Constructor options

With no options, Cipher::Cae <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	812	930	
==>my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	602	718	
==>my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	602	718	
==>my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see R <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2046	2312	
==>uffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2046	2312	
==>uffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	206	322	
==>efine <ws> to test Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = shift;
    my ( $ast, $tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2259	2373	
==>abel) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2259	2373	
==>abel) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2259	2373	
==>abel) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	405	526	
==>{
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	405	526	
==>{
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	405	526	
==>{
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1276	1369	
==>sName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_star <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1276	1369	
==>sName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_star <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1276	1369	
==>sName posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_star <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11015	11137	
==>pan::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if define <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11015	11137	
==>pan::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if define <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17499	17591	
==>.
rm(ques(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3929	4050	
==>rpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3929	4050	
==>rpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4519	4640	
==>rpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named args
    }

    my $pos_arg = $args- <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	40	159	
==>Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXM <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	40	159	
==>Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXM <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1919	2022	
==>v => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSpl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	593	692	
==>()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurren <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	593	692	
==>()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13659	13832	
==>6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13659	13832	
==>6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13659	13832	
==>6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $li <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20512	20609	
==>>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a li <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20512	20609	
==>>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a li <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3546	3649	
==>:Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The Docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3546	3649	
==>:Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The Docu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9193	9287	
==>eturn $?SELF!_union( $other );
}

multi method union (Relation::Example *@others) returns Relat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	157	289	
==>in the class
    $.y = 0;
}

# use v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => 'ro');
#
# sub clea <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5244	5361	
==>isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self->declare($node);

		my $return_type = $node->type-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4152	4246	
==>ges).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4152	4246	
==>ges).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9649	9756	
==>pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9649	9756	
==>pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6975	7080	
==>mplemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implement <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1330	1433	
==>mplemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implement <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	429	531	
==>mplemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "not implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	40	140	
==>class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	40	140	
==>class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	40	140	
==>class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	113	250	
==>oad {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^-- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33514	33605	
==>method has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38064	38155	
==>method has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Re <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9700	9805	
==>need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.parent() <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9700	9805	
==>need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.parent() <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22413	22511	
==>on::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7665	7784	
==>e dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise no <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	966	1085	
==>e dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise no <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14250	14349	
==>};

my $wrote_menulst = 0;
step
  descr  => "Creating \"$cdroot/boot/grub/menu.lst\"",
  ensure => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6743	6855	
==>::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6743	6855	
==>::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6743	6855	
==>::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7064	7168	
==>f line, in single-line mode)
  $self->add_handler('\Z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_B <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11467	11563	
==>ot
interact with the outside environment at all.

A Document object has 2 main attributes:

=over <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11467	11563	
==>ot
interact with the outside environment at all.

A Document object has 2 main attributes:

=over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1044	1180	
==>) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1044	1180	
==>) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1044	1180	
==>) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5590	5718	
==>}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5590	5718	
==>}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6180	6308	
==>}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17380	17478	
==>s a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file, toge <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17380	17478	
==>s a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file, toge <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6202	6312	
==>ee also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $r <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6202	6312	
==>ee also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3688	3787	
==>... still got the right y for p2');
is($p1->get_x, 15, '... still got the right x for p1');
is($p1-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1063	1187	
==>ttribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1063	1187	
==>ttribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1063	1187	
==>ttribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4872	4985	
==>\"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4872	4985	
==>\"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4872	4985	
==>\"$cfg{output}\": $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1927	2031	
==>ing(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1927	2031	
==>ing(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1927	2031	
==>ing(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6211	6326	
==>er $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'paren <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6211	6326	
==>er $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'paren <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1237	1347	
==>y => 'postfix', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9043	9163	
==>y $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9043	9163	
==>y $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9043	9163	
==>y $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::nat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2029	2130	
==>b p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2029	2130	
==>b p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2029	2130	
==>b p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10853	11010	
==>ETHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10853	11010	
==>ETHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10853	11010	
==>ETHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $m <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9951	10073	
==>d_mnt/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21760	21978	
==>mp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21760	21978	
==>mp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21760	21978	
==>mp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7461	7590	
==>b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7461	7590	
==>b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7461	7590	
==>b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	62	176	
==>e.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	62	176	
==>e.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Gram <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	62	172	
==>e.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9725	9831	
==>/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9725	9831	
==>/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9725	9831	
==>/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39619	39734	
==>-
## now build Object, so we can create something here

$::Object = $::Class->send('new');

$::Object->send('add_met <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2981	3089	
==>].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2981	3089	
==>].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7707	7815	
==>') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7707	7815	
==>') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7707	7815	
==>') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) } <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2918	3015	
==>set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2918	3015	
==>set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	55	164	
==>s::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	48	151	
==>s::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	48	151	
==>s::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9758	9868	
==>f $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9758	9868	
==>f $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9758	9868	
==>f $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push(@names6 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10299	10412	
==>.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10299	10412	
==>.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3301	3406	
==>rence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3301	3406	
==>rence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3301	3406	
==>rence? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12313	12443	
==>";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12313	12443	
==>";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12313	12443	
==>";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14780	14901	
==>pulated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14780	14901	
==>pulated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14780	14901	
==>pulated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16207	16322	
==>ied {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field in <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16207	16322	
==>ied {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field in <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	274	375	
==>ename.c: $!";
print $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2072	2186	
==>d, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2072	2186	
==>d, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2072	2186	
==>d, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32731	32830	
==>ll the tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37281	37380	
==>ll the tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36598	36697	
==>ll the tuples of the source Relations, including
one copy each of any duplicated tuples.

=item C<ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5803	5910	
==>test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5803	5910	
==>test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5803	5910	
==>test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8305	8478	
==>str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4665	4838	
==>str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5514	5687	
==>str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	172	270	
==>IL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	172	270	
==>IL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	172	270	
==>IL2JS.Box.Constant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29359	29474	
==>ss->send('add_method' => (
    # method label
        symbol->new('dispatcher'),
    # method body
        method->n <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	760	868	
==>this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

= <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	760	868	
==>this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

= <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5583	5717	
==>t(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5583	5717	
==>t(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6979	7112	
==>$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6967	7100	
==>$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7710	7863	
==>');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7710	7863	
==>');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'de <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7710	7863	
==>');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1235	1380	
==>$explanation, $tests) = @_;
            confess "Plan already set!" if _('$.testplan');
            if ($tests) {
                _('$.testplan' = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10698	10792	
==>at attributes or Nodes are not missing.  The deferred validations, which
can be arbitrarily com <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10698	10792	
==>at attributes or Nodes are not missing.  The deferred validations, which
can be arbitrarily com <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6699	6797	
==>t
expects to match next, but there is not currently a way of extracting a
complete grammar.  This m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34428	34522	
==>ed parameter
@set_names (an array ref), and Member Names is set from the named parameter
@membe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34428	34522	
==>ed parameter
@set_names (an array ref), and Member Names is set from the named parameter
@membe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6526	6646	
==>e::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my $y = shift;

		warn "co <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9231	9324	
==>et1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9231	9324	
==>et1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8624	8720	
==>fe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $placeho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5819	5942	
==>n Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5819	5942	
==>n Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5819	5942	
==>n Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4957	5143	
==>patcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6719	6905	
==>patcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (ret <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12510	12613	
==>comment);

Checks if the given line is a comment.  If so, it will place it into
C<$comment> (sans #).

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8255	8369	
==>t and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[T <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8255	8369	
==>t and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[T <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	625	735	
==>{ (shift)->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1664	1766	
==>N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1664	1766	
==>N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1664	1766	
==>N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "infix:>=", "N <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2675	2818	
==>}
        }
    }
    return $x_round;
}

our Int multi Num::round_alternate ( Num $x ) {
    my $x_round;
    state $round_up = 1;

    # alter <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2527	2646	
==>aps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    meth <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2527	2646	
==>aps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	439	545	
==>s;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	439	545	
==>s;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2438	2546	
==>event we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2438	2546	
==>event we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23013	23110	
==>urce code to Perl's regex compiler does the
same thing.)

=item nparen

The number of OPENs (captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6894	6996	
==>@_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6894	6996	
==>@_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6894	6996	
==>@_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	306	428	
==>X;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	306	428	
==>X;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	306	428	
==>X;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20030	20124	
==>e header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $pass <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20030	20124	
==>e header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $pass <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4957	5086	
==>r the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item B<Str $.description>

The test' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4957	5086	
==>r the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item B<Str $.description>

The test' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7154	7283	
==>r the test passed.

=item B<Int $.number>

The number of the test in the current test file.

=item B<Str $.description>

The test' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13989	14090	
==>u can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14047	14148	
==>u can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1152	1249	
==>val \"$str\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5129	5305	
==>$value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5129	5305	
==>$value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5129	5305	
==>$value = $value->cell->{v};
                    #warn "value was a $value";
                }
                _('$:cell')->store( $value, @_ );
            },
            'defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6690	6787	
==>is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6690	6787	
==>is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6690	6787	
==>is primitive { $from..($to - 1) }
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5911	6090	
==>adonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5911	6090	
==>adonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5911	6090	
==>adonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'r <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3066	3193	
==>sion\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_version\n" . 
                    ($s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4116	4243	
==>sion\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_version\n"
        . ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8221	8338	
==>hift if @_;
    $self->{neg};
  }

  sub visual {
    my $self = shift;
    sprintf "\\%s{%s}", $self->{neg} ? 'P' : ' <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7659	7810	
==>n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$k will probably <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18829	18925	
==>y
used.

This module will C</WHO> itself after login, so it can give you accurate
C<username> and <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18829	18925	
==>y
used.

This module will C</WHO> itself after login, so it can give you accurate
C<username> and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9796	9969	
==>@param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9796	9969	
==>@param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9796	9969	
==>@param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scal <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2712	2845	
==>xtract the code
        {   ### XXX we should *build* things here too
            print "Unpacking code...\n";
            system( qq[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	578	707	
==>{
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	578	707	
==>{
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7339	7443	
==>use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7339	7443	
==>use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7339	7443	
==>use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7294	7404	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10771	10881	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9908	10018	
==>ading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $ot <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17045	17152	
==>> Str )
 multi Str::uc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after conver <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1954	2058	
==>ent_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1954	2058	
==>ent_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1954	2058	
==>ent_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4431	4531	
==>_type eq "ARRAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying pa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1111	1207	
==>todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $des <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1169	1265	
==>todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $des <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1904	2023	
==>c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1904	2023	
==>c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1904	2023	
==>c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14604	14735	
==>ble MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14604	14735	
==>ble MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14604	14735	
==>ble MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    clas <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10768	10863	
==>ch
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could pote <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10768	10863	
==>ch
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could pote <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6934	7027	
==>thod JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6934	7027	
==>thod JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6934	7027	
==>thod JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')( <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5085	5181	
==>$head or die "error: file '$head' not found.\n";
-f $tail or die "error: file '$tail' not found.\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7648	7756	
==>[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9576	9684	
==>[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7636	7744	
==>[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35071	35205	
==>( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35071	35205	
==>( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35071	35205	
==>( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1282	1382	
==>inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1282	1382	
==>inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1282	1382	
==>inline "new PIL2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16966	17098	
==>st character.


=item uc

 multi Str::uc         (  Str $string              --> Str )
 multi Str::uc         ( Str $string = CALLER: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	325	432	
==>)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	325	432	
==>)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	772	874	
==>idt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	772	874	
==>idt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	772	874	
==>idt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pai <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2175	2311	
==>{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    met <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2175	2311	
==>{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    met <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	392	510	
==>$seconds));
}

multi sub duration( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, In <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7568	7666	
==>lat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a referen <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7568	7666	
==>lat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a referen <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	788	892	
==>fined as subs, which we can get away with since
   this is currently simply a code generator.

=cut

# XX <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	788	892	
==>fined as subs, which we can get away with since
   this is currently simply a code generator.

=cut

# XX <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2201	2304	
==>h %opts) returns method {
    while (my $current = &dispatcher.()) {
        return $current.get_method( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5863	5967	
==>uilder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5863	5967	
==>uilder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7387	7491	
==>uilder::Test $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1664	1779	
==>L-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1664	1779	
==>L-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1664	1779	
==>L-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {un <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	173	272	
==>);
#my $template  = HTML::Template.new(filename => "wiki.html");

my $action    = param('action');
m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	241	340	
==>ree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	241	340	
==>ree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
} <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14304	14442	
==>nd($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{$_} // $_ }, self.split('');
    }
}


su <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	441	540	
==>ad'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: A <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	441	540	
==>ad'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	206	342	
==>ler_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	206	342	
==>ler_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	206	342	
==>ler_args);
use B ();

# XXX: Make sig take storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var = <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	653	772	
==>ar eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	653	772	
==>ar eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5096	5208	
==>self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6265	6362	
==>erclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6265	6362	
==>erclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6265	6362	
==>erclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13982	14105	
==>hannel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13982	14105	
==>hannel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6813	6944	
==>art + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6813	6944	
==>art + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6813	6944	
==>art + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9211	9350	
==>self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $pa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1335	1468	
==>self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1335	1468	
==>self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13752	13867	
==>";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13752	13867	
==>";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13752	13867	
==>";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	257	374	
==>Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	248	363	
==>Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to w <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	22	117	
==>(!@ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	298	392	
==>le(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	298	392	
==>le(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10748	10855	
==>og' and 'progs' cannot be used " . _where()
	    if defined $args{progs};
        $args{progs} = [$args{prog <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2740	2846	
==>entZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defv <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2740	2846	
==>entZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9825	9961	
==>ue') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9825	9961	
==>ue') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9825	9961	
==>ue') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3236	3374	
==>, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1172	1306	
==>dText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1172	1306	
==>dText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3917	4021	
==>do<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC A <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3917	4021	
==>do<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5441	5545	
==>do<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC A <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5015	5177	
==>specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5015	5177	
==>specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9889	9996	
==>::dot {
    return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4747	4890	
==>->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4747	4890	
==>->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4747	4890	
==>->collect_all_roles) {      
        return 1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13790	13890	
==>as_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13790	13890	
==>as_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13790	13890	
==>as_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    $self->get_method($label, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3602	3709	
==>.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3602	3709	
==>.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3602	3709	
==>.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	258	352	
==>ompile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	258	352	
==>ompile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	258	352	
==>ompile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10749	10866	
==>my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10749	10866	
==>my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10749	10866	
==>my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8592	8729	
==>o parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4952	5089	
==>o parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5801	5938	
==>o parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20638	20753	
==>Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17059	17174	
==>Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S-> <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6474	6574	
==>> 'haskell-src' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @libs = "-lHSPugs-$version";
    push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7945	8199	
==>crement; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7945	8199	
==>crement; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7945	8199	
==>crement; 
            }
            else {
                $start++;
            }
            $tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	16	129	
==>acro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	16	129	
==>acro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	16	129	
==>acro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	529	656	
==>ved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy', <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	529	656	
==>ved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy', <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3006	3113	
==>return $program;
}
sub node::block {
    return "\n    {\n" . emit($_[0]) . "\n    }\n";
}
sub node::sub_def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	673	765	
==>ie("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	673	765	
==>ie("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	673	765	
==>ie("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3162	3265	
==>efined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3162	3265	
==>efined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3162	3265	
==>efined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9375	9487	
==>p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9375	9487	
==>p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9375	9487	
==>p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8139	8282	
==>!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -I <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8139	8282	
==>!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -I <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4623	4728	
==>$parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4623	4728	
==>$parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18812	18910	
==>scribes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pendin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1942	2069	
==>s_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1942	2069	
==>s_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1942	2069	
==>s_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrap <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	235	355	
==>w(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2641	2750	
==>'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
* <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2641	2750	
==>'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2135	2247	
==>?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail rec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2135	2247	
==>?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail rec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2135	2247	
==>?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail rec <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4863	4957	
==>ng are the (pseudo) methods for Config::Tiny objects. These
methods can be called with the foll <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4863	4957	
==>ng are the (pseudo) methods for Config::Tiny objects. These
methods can be called with the foll <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3531	3655	
==>urse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3531	3655	
==>urse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3531	3655	
==>urse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2642	2790	
==>keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2642	2790	
==>keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2642	2790	
==>keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(prox <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8930	9053	
==>ete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # I <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8930	9053	
==>ete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # I <==
3	/Users/nnunley/pugs/util/func_refact.pl	2873	2985	
==>d functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15775	15918	
==>ub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15775	15918	
==>ub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15775	15918	
==>ub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	310	425	
==>set from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	310	425	
==>set from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21428	21525	
==>is distinct from the other
attributes, though several attributes may store values of the same clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25980	26077	
==>is distinct from the other
attributes, though several attributes may store values of the same clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24613	24710	
==>is distinct from the other
attributes, though several attributes may store values of the same clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	138	259	
==>e !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	138	259	
==>e !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	138	259	
==>e !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5608	5715	
==>h->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no wa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19859	19952	
==>Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19859	19952	
==>Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17990	18106	
==>sh( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17990	18106	
==>sh( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17990	18106	
==>sh( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21725	21834	
==>$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21725	21834	
==>$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21725	21834	
==>$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4901	5004	
==>s *no* attention
# paid to the associativity of the original operator and auto-metaed versions
# of user <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4901	5004	
==>s *no* attention
# paid to the associativity of the original operator and auto-metaed versions
# of user <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4901	5004	
==>s *no* attention
# paid to the associativity of the original operator and auto-metaed versions
# of user <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6793	6985	
==>);
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        i <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6793	6985	
==>);
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7435	7534	
==>eturn $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7435	7534	
==>eturn $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7435	7534	
==>eturn $counter if @_; $values[$counter++] };
});

::Class.meta.add_method('_make_preorder_dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11417	11563	
==>*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11417	11563	
==>*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	317	413	
==>igenclasses
## to all Classes created. See Method_Dispatch_w_EigenClasses.jpg in this 
## same di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	293	412	
==>6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	293	412	
==>6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	293	412	
==>6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1861	1994	
==>class;
        }

        confess "No method found for '$label'";
    }
}

# The 'Class' class -- placed here so ::create_class can re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7169	7267	
==>type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7181	7279	
==>type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6721	6847	
==>($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6721	6847	
==>($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6721	6847	
==>($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[ <==
3	/Users/nnunley/pugs/util/package-osx.pl	9889	10027	
==>_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copying $from to $dest$from: $_\n";
        }
        else {
            pr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10882	10979	
==>ence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10882	10979	
==>ence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5523	5657	
==>e = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5716	5850	
==>e = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6299	6404	
==>initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6299	6404	
==>initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6299	6404	
==>initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3854	3958	
==>es {
  my ( $regularExpression, $target, $pos, $length) = @_;
  $length = 1 if not defined $length;
  ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1072	1172	
==>hen>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth_call_term'} = Pugs::Compiler::Rule->com <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3872	3966	
==>sym->fmap(sub { Blondie::TypeSafe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub red <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2465	2626	
==>sion dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2465	2626	
==>sion dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2465	2626	
==>sion dumped as YAML
<exp>                   = compile expression and save as HTML
:c <exp>                = ditto
:e <exp>                = compile expression and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2591	2702	
==>ontainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2591	2702	
==>ontainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2591	2702	
==>ontainer = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6140	6232	
==>elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_el <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1744	1835	
==>Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1744	1835	
==>Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3078	3202	
==>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3078	3202	
==>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	90	194	
==>r;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Zone $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4782	4976	
==>ile ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4782	4976	
==>ile ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4782	4976	
==>ile ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7674	7852	
==>from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7674	7852	
==>from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7674	7852	
==>from_x( item => undef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	342	465	
==>[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	342	465	
==>[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	342	465	
==>[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5663	5803	
==>} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5663	5803	
==>} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->matc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5663	5803	
==>} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6847	6951	
==>=> p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6847	6951	
==>=> p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6847	6951	
==>=> p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13161	13352	
==>f ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13161	13352	
==>f ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13161	13352	
==>f ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21012	21252	
==>}
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21012	21252	
==>}
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21012	21252	
==>}
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5360	5474	
==>-Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

met <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5360	5474	
==>-Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

met <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5728	5825	
==>shift;
	$self->{instance} = shift;
	bless $self, "type::variable::instantiated";
}

sub splat {
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1239	1360	
==>d binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1239	1360	
==>d binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1239	1360	
==>d binding of fetched result
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12908	13014	
==>::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12908	13014	
==>::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12908	13014	
==>::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $len <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5639	5740	
==>mple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=ov <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5639	5740	
==>mple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=ov <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7836	7937	
==>mple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1001	1100	
==>alue);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1001	1100	
==>alue);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1001	1100	
==>alue);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9735	9890	
==>f->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9735	9890	
==>f->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9735	9890	
==>f->returns->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23281	23404	
==>lf->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19702	19825	
==>lf->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5665	5758	
==>$rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5665	5758	
==>$rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database co <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4767	4891	
==>::Internals::current_pragma_value($?CLASS) //
                $fatal::DEFAULT_FATALITY {
            die $e;
        } else { <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14486	14589	
==>002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger tha <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14486	14589	
==>002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3549	3662	
==>self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3549	3662	
==>self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3549	3662	
==>self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::ma <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2740	2842	
==>age (reverse @todo) {
	#print STDERR "--$stage--\n";
	if($stage eq 'p5') {
	    my $pil_tree = $self->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2977	3095	
==>/\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2977	3095	
==>/\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2977	3095	
==>/\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7200	7302	
==>concise

# a free variable instantiates into whatever it is combined with (except instantiated variable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9966	10161	
==>iption,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	532	715	
==>iption,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	532	715	
==>iption,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	754	857	
==>re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!" <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1338	1441	
==>re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11850	11997	
==>r with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15327	15474	
==>r with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesia <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14662	14809	
==>r with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesia <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17486	17605	
==>t->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_indexs->{ substr($ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4041	4124	
==>ent_previous => $self._get_union( $self.complement_previous, $set.complement_previou <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4041	4124	
==>ent_previous => $self._get_union( $self.complement_previous, $set.complement_previou <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1933	2149	
==>tart_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx: <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1933	2149	
==>tart_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6364	6444	
==>ol:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &::hlp_stmt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5993	6110	
==>);

    sub <?p6ws> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19492	19592	
==>of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24044	24144	
==>of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	456	573	
==>t;
    exists $self->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $self->{raw} ? $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1279	1391	
==>n every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1279	1391	
==>n every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1279	1391	
==>n every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	787	898	
==>TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	787	898	
==>TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	787	898	
==>TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3646	3742	
==>itions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3646	3742	
==>itions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3646	3742	
==>itions lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3636	3747	
==>lf->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3636	3747	
==>lf->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3636	3747	
==>lf->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5557	5661	
==>ttr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instanti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5557	5661	
==>ttr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instanti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5557	5661	
==>ttr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to instanti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34372	34496	
==>sa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34372	34496	
==>sa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34372	34496	
==>sa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4563	4672	
==>ess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4563	4672	
==>ess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4563	4672	
==>ess "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3356	3480	
==>o_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3356	3480	
==>o_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3356	3480	
==>o_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3251	3353	
==>" ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3251	3353	
==>" ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8671	8771	
==>in

 multi Array::join (@values,   Str $delimiter --> Str )
 multi  List::join (Str $delimiter ; *@va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4637	4742	
==>') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4637	4742	
==>') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4637	4742	
==>') {
        return ::opaque_instance_attr($self => '%:namespace');
    }
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5245	5351	
==>,@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5245	5351	
==>,@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5245	5351	
==>,@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20474	20718	
==>tems );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20474	20718	
==>tems );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20474	20718	
==>tems );
                        $self->cell->{v} = $ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4518	4663	
==>afe   (List)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   List      post    ...     safe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2579	2673	
==>e is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2579	2673	
==>e is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4167	4364	
==>earch.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

subm <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4167	4364	
==>earch.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

subm <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2197	2319	
==>ode) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals::e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16792	16901	
==>b
    if has_name goto p6rule_1
    name = "_pge_rule"
    if has_gram goto p6rule_1
    grammar = "PGE::Rule" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2208	2313	
==>mc = Meta::Class.new("Role");
 my $class_mc = Meta::Class.new("Class");

=head1 DESCRIPTION

Meta::Class o <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	28	128	
==>mit # eingeleitet:

#!\begin{block}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{block}

Zum auskom <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4234	4336	
==>l6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4234	4336	
==>l6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2404	2506	
==>e;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $sy <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	538	649	
==>>isa('type')) && 
         (blessed($value) && $value->isa('type')))
            || confess "Keys must be string <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9879	9974	
==>f common test utility functions, and is
an implementation of the TAP protocol.

This module, lik <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9937	10032	
==>f common test utility functions, and is
an implementation of the TAP protocol.

This module, lik <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16551	16648	
==>de's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16551	16648	
==>de's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9023	9121	
==>ed under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9023	9121	
==>ed under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3441	3632	
==>alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ide <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3307	3487	
==>alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ide <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6816	6958	
==>";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$file is not readable";
        return;
    }

    local $ENV{PERL <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	773	898	
==>{ container_var => $param->{var},
               named_only    => $param->{named_only},
               is_writable   => $param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	755	875	
==>{ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	755	875	
==>{ container_var => $param->{var},
               named_only => $param->{named_only},
               is_writable => $param <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3731	3852	
==>e the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3731	3852	
==>e the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5255	5376	
==>e the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7130	7287	
==>ce not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7130	7287	
==>ce not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7130	7287	
==>ce not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14584	14737	
==>::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14863	15016	
==>::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2554	2677	
==>$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	867	1002	
==>L2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	867	1002	
==>L2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	867	1002	
==>L2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  })')($key, $val <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5995	6112	
==>b ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($match, &cont <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5995	6112	
==>b ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($match, &cont <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6813	6929	
==>SubLValue""pSubName""pSubParams""pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1748	1875	
==>= new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1748	1875	
==>= new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1748	1875	
==>= new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undef <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	94	201	
==>use Pugs::Runtime::Match;
no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18822	18918	
==>ort (such as modification of the compiled re op tree the native
compiler creates, but which we ob <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3112	3208	
==>ort (such as modification of the compiled re op tree the native
compiler creates, but which we ob <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3718	3833	
==>my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var > 1) {
        &$redu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37670	37762	
==>le $other!) returns Relation::Example>

This method is a generic relational operator that tak <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38510	38602	
==>le $other!) returns Relation::Example>

This method is a generic relational operator that tak <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9030	9152	
==>eftsep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .details  { display: none; }
    .expander { c <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6757	6860	
==>TION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s. <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6815	6918	
==>TION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6035	6146	
==>pportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6035	6146	
==>pportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6035	6146	
==>pportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4051	4293	
==>, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4051	4293	
==>, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does <==
3	/Users/nnunley/pugs/util/func_refact.pl	1814	1970	
==>nionising $new: adding $t on account of $f\n" if $Conf{verbose} or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5642	5741	
==>and();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'}, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5642	5741	
==>and();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'}, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5642	5741	
==>and();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'}, <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4984	5091	
==>method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4984	5091	
==>method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.st <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20155	20253	
==>ld labeled "Internal use only" is one of the most widely used. ;)
It get's is own section, elsewher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	210	312	
==>A"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	210	312	
==>A"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or r <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1461	1571	
==>object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    m <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1461	1571	
==>object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	535	631	
==>_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	535	631	
==>_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	535	631	
==>_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIK <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2779	2895	
==>lement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warni <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2779	2895	
==>lement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warni <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2779	2895	
==>lement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9295	9429	
==>---

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accesso <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9295	9429	
==>---

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accesso <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9295	9429	
==>---

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accesso <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4193	4291	
==>diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4193	4291	
==>diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4273	4371	
==>diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares th <==
3	/Users/nnunley/pugs/util/importgraph.pl	251	356	
==>se File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1345	1445	
==>p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1345	1445	
==>p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1345	1445	
==>p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s" <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9313	9436	
==>ession ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expre <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	709	830	
==>ession ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expre <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5820	5918	
==>ed $v) { NaN }
multi sub ToNumber(JSX::Value::Null $v)      { +0 }
multi sub ToNumber(JSX::Value::B <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	587	682	
==>rmalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	587	682	
==>rmalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8595	8707	
==>) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8595	8707	
==>) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8595	8707	
==>) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15500	15618	
==>def }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15500	15618	
==>def }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15500	15618	
==>def }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3480	3592	
==>VMG";

		my $flags = $obj->flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die " <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7623	7713	
==>normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) fo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7623	7713	
==>normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) fo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29170	29274	
==>* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcnt++), re)
 #define ReREFCNT_dec(re) CA <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6684	6784	
==>>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each PO <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6684	6784	
==>>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each PO <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2350	2474	
==>o hash of information about links that we mean to insert.
# Top level index is file, second level is an array ref of hash ref <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2800	2895	
==>fault value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 Failure

When tests fail <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	514	741	
==>ts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{ <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	514	741	
==>ts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24019	24114	
==>nt a -> b");

	$b->instantiate( type::operator::nullary->new("int") );
	is($type->stringify, " <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3494	3609	
==>ircumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or um <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3494	3609	
==>ircumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or um <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19561	19663	
==>=0 is the whole match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 lastpa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3102	3218	
==>$pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to klud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3102	3218	
==>$pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to klud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3102	3218	
==>$pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to klud <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	84	191	
==>as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show al <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	84	191	
==>as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show al <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7190	7291	
==>acter class") if $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $S->object(eol <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1705	1842	
==>ller[2]";
}

# DON'T use this for matches. Use like() instead.
sub ok ($@) {
    my ($pass, $name, @mess) = @_;
    _ok($pass, _where(), $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14020	14135	
==>how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8225	8340	
==>how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7983	8108	
==>_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'AR <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7983	8108	
==>_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'AR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1784	1918	
==>nk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1784	1918	
==>nk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1784	1918	
==>nk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)" <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	3	102	
==>e v6;

class Perldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	3	102	
==>e v6;

class Perldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4615	4776	
==>y $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE_INSTALLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6276	6412	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6276	6412	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6276	6412	
==>bject ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.n <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6366	6480	
==>elf->{instance}->right;
}

sub free_vars {
	my $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4607	4718	
==>_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4800	4911	
==>_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	527	636	
==>*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	527	636	
==>*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	527	636	
==>*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8918	9044	
==>01),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "h <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8918	9044	
==>01),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5317	5482	
==>{
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5317	5482	
==>{
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5317	5482	
==>{
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2485	2622	
==>index      = $Repodir . '/index';              # index file for the repo

### be strict from here on down
{   use strict;

    ### parse p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7353	7463	
==>needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7353	7463	
==>needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7353	7463	
==>needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->st <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3680	3792	
==>apping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7157	7269	
==>apping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6114	6226	
==>apping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!head <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14476	14678	
==>fect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17953	18155	
==>fect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17369	17571	
==>fect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	630	720	
==>H().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	630	720	
==>H().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	630	720	
==>H().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6125	6257	
==>thods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6125	6257	
==>thods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6125	6257	
==>thods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2545	2708	
==>my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2750	2913	
==>my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3822	3985	
==>my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclass) {
                push @cpl => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6245	6366	
==>b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6245	6366	
==>b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6245	6366	
==>b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9277	9424	
==>turns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10083	10230	
==>turns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10998	11145	
==>turns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one given relation in @others does"
                ~ " not <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3902	4033	
==>xpr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_E <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3902	4033	
==>xpr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_E <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	752	883	
==>xpr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2048	2162	
==>("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2048	2162	
==>("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2048	2162	
==>("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	408	521	
==>s }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	59	154	
==>submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<objec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	59	154	
==>submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9912	10023	
==>y $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9912	10023	
==>y $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29070	29175	
==>em $obj->insert()

Inserts this object into the tree.  It returns a value that says whether
or not it ende <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4706	4816	
==>$desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4764	4874	
==>$desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23933	24027	
==>:variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. α → β", "pretty print a -> b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5228	5322	
==>at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5228	5322	
==>at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5228	5322	
==>at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31548	31647	
==>m is deprecated, but is
still allowed, so I delete its handler too.  You can use this class to
ensur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16958	17052	
==>o|father|fort/  => /f(?:o(?:o|rt)|ather)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/ <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1018	1111	
==>(.*?)\s*?=\s*(.*)$/) {
			@config.push({Name => ''}) unless +@config;
			@config[-1]{"Features <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	789	953	
==>) return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	789	953	
==>) return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	789	953	
==>) return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5194	5327	
==>all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5194	5327	
==>all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5194	5327	
==>all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('colle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2140	2242	
==>=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2140	2242	
==>=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2140	2242	
==>=@_";
    die 'read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15531	15647	
==>s}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15531	15647	
==>s}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15531	15647	
==>s}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub: <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	556	671	
==>() err die "Stack underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15041	15135	
==>code_entities_numeric);>

=back

All these routines modify the string passed as the first argum <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15041	15135	
==>code_entities_numeric);>

=back

All these routines modify the string passed as the first argum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2231	2369	
==>%params) = @_;
            _('$.number'     => 0)     unless exists $params{'$.number'};
            _('$.diagnostic' => '???') unless exis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	157	269	
==>ler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	145	251	
==>ler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16314	16424	
==>f - aborted/g;

    # bison says 'parse error' instead of 'syntax error',
    # various yaccs may or may not ca <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5064	5173	
==>connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and no <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5064	5173	
==>connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and no <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	302	409	
==>from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	302	409	
==>from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7409	7511	
==>.";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1273	1390	
==>- finish sum() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1273	1390	
==>- finish sum() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1273	1390	
==>- finish sum() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - fi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	702	842	
==>ex

=back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args = @_;

        my ($root, $p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5451	5579	
==>e) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimens <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5451	5579	
==>e) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimens <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8251	8367	
==>al pmc newfrom
    .local string target
    .local pmc mfrom, mpos
    .local int pos, len
    $P0 = find_global "PGE <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4440	4532	
==>ent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4440	4532	
==>ent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	886	1005	
==>=> sub {
            my $footer = _('$.testplan')->footer( scalar @{_('@:results')} );
            _('$.output')->write( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	187	291	
==>released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, Wo <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	187	291	
==>released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, Wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	648	818	
==>else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	648	818	
==>else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	648	818	
==>else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1768	1912	
==>->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1768	1912	
==>->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1768	1912	
==>->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "% <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	390	509	
==>ing is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $patter <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	390	509	
==>ing is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $patter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1488	1633	
==>od
        my our has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\s> { return { stmt => '$_' } } ));
    }
    for ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12296	12392	
==>ld each heredoc, pod section, comment block and data section, each
# into a single line containin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12296	12392	
==>ld each heredoc, pod section, comment block and data section, each
# into a single line containin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11381	11539	
==>::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uni <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11381	11539	
==>::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uni <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11381	11539	
==>::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7870	7976	
==>e then entire match. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7604	7708	
==>e then entire match. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2076	2199	
==>JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2076	2199	
==>JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2076	2199	
==>JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($ <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	501	625	
==>y $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	402	526	
==>y $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	639	733	
==>cluding the signatures of these
methods

=item *

unbound public attributes, which are actually <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8233	8389	
==>lt',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8233	8389	
==>lt',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'ro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1300	1397	
==>his plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1300	1397	
==>his plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3380	3474	
==>bin/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14780	14933	
==>}
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18257	18410	
==>}
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17673	17826	
==>}
                @r_with_disjoint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1110	1209	
==>---------------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1110	1209	
==>---------------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1110	1209	
==>---------------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5589	5684	
==>nds the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5589	5684	
==>nds the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7786	7881	
==>nds the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	475	583	
==>quired/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .ari <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	475	583	
==>quired/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .ari <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	475	583	
==>quired/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .ari <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2104	2295	
==>le = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5581	5772	
==>le = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4511	4702	
==>le = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!headi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2427	2660	
==>unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2736	2961	
==>unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2736	2961	
==>unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9066	9167	
==>JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9066	9167	
==>JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9066	9167	
==>JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	725	825	
==>ESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	725	825	
==>ESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	725	825	
==>ESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35183	35305	
==>ng
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35183	35305	
==>ng
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35183	35305	
==>ng
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	987	1117	
==>$_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_term:
        NUM 
        { $_[0]->{out}= $_[1] }
    |   type signat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1321	1445	
==>ted,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1321	1445	
==>ted,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1339	1448	
==>ue_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1544	1653	
==>ue_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1605	1714	
==>ue_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16893	17058	
==>nk->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backlink = HTML::Element->new('a' <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3277	3418	
==>a{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Conf <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3277	3418	
==>a{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1707	1850	
==>se {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1707	1850	
==>se {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1707	1850	
==>se {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	643	739	
==>/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	643	739	
==>/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	643	739	
==>/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	882	986	
==>ed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	882	986	
==>ed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	882	986	
==>ed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12896	13010	
==>dings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16373	16487	
==>dings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15735	15849	
==>dings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11216	11359	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11495	11638	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	96	225	
==>syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

# TODO - in order to Grammar.pm to self-compile:
#    unshift @ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4790	4917	
==>->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error mes <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4790	4917	
==>->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error mes <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4790	4917	
==>->{sum}( @_ ) }

sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error mes <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6730	6832	
==>n pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=it <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6730	6832	
==>n pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=it <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	328	501	
==>m('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sym('$cond'),
                    Sym('$left_thunk') <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5089	5189	
==>e already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, ma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5089	5189	
==>e already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1669	1775	
==>_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1669	1775	
==>_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1669	1775	
==>_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8151	8284	
==>ner for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8151	8284	
==>ner for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8151	8284	
==>ner for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  retur <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2089	2236	
==>$self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2089	2236	
==>$self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6061	6173	
==>-package mtl -package template-haskell -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(? <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1676	1879	
==>(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym('&fact'),
											App(
												Sym(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22973	23072	
==>elation; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27525	27624	
==>elation; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Ma <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8436	8558	
==>E::Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc l <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	35	147	
==>::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X') <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	35	147	
==>::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9322	9452	
==>y $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9322	9452	
==>y $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9322	9452	
==>y $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10350	10454	
==>say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also te <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10350	10454	
==>say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also te <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25375	25497	
==>is the first pass?
    sub SIZE_ONLY           { ! $_[0]{tree} }

    # the most recent addition to the tree
    sub LATEST <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18333	18443	
==>lf->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14754	14864	
==>lf->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    retu <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	592	725	
==>guess) - $target) > $epsilon) {

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        updat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31055	31151	
==>ll name of a module
consists of the two parts concatenated without any delimiter.  This means,
fo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31055	31151	
==>ll name of a module
consists of the two parts concatenated without any delimiter.  This means,
fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1562	1706	
==>Method') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1562	1706	
==>Method') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        el <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1562	1706	
==>Method') {
            ::opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7195	7300	
==>ackup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7195	7300	
==>ackup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7195	7300	
==>ackup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_man <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	731	855	
==>$buf {
      my $i = $input.();
      if $i.isa(Array) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18947	19041	
==>files, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18947	19041	
==>files, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4707	4812	
==>adFile('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4566	4671	
==>adFile('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( m <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	347	449	
==>D)));
    CookiesAdd('sid',$SID);
}

sub SessionID() { return $SID; }

sub SessionSet($variable, $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5242	5335	
==>- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5242	5335	
==>- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5242	5335	
==>- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n";
    return unless d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2393	2498	
==>nce_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2393	2498	
==>nce_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2393	2498	
==>nce_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2626	2726	
==>js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2626	2726	
==>js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2626	2726	
==>js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16201	16309	
==>Expression>
}
rule EqualityExpression :words {  # see 11.9
      <RelationalExpression>
    | <EqualityExpres <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	51	140	
==>uire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use inter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	51	140	
==>uire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5077	5224	
==>[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5077	5224	
==>[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5077	5224	
==>[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8232	8454	
==>[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8232	8454	
==>[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8232	8454	
==>[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2911	3089	
==>eturn Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2911	3089	
==>eturn Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2911	3089	
==>eturn Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6952	7060	
==>fault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginCo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6952	7060	
==>fault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginCo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3851	3959	
==>fault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginCo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12496	12608	
==>x) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12496	12608	
==>x) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12496	12608	
==>x) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2506	2664	
==>endence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2711	2869	
==>endence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3783	3941	
==>endence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5057	5170	
==>return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5057	5170	
==>return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5057	5170	
==>return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	191	297	
==>rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	191	297	
==>rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    m <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4056	4154	
==>int STDERR "... " if $Config{verbose};
}

# Strip comments and docs while preserving the line count <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14221	14318	
==>k routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14221	14318	
==>k routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of <==
3	/Users/nnunley/pugs/util/func_refact.pl	697	814	
==>& print "Ignoring: $_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initial set: " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	311	404	
==>e rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	311	404	
==>e rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12027	12146	
==>m the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12027	12146	
==>m the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5388	5511	
==>ew( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5388	5511	
==>ew( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40757	40853	
==>n which case the returned Relation::Example is identical to the
invocant.  Another trivial case i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8110	8222	
==>tr->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8110	8222	
==>tr->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8110	8222	
==>tr->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35730	35859	
==>, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35730	35859	
==>, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35730	35859	
==>, positive length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3449	3575	
==>assoc => 'right',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':= <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8324	8428	
==>anner, this is usually not an issue
# since each time you either add a child
# or create a tree you are d <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8324	8428	
==>anner, this is usually not an issue
# since each time you either add a child
# or create a tree you are d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21932	22039	
==>e = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10277	10406	
==>ntersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13754	13883	
==>ntersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13035	13164	
==>ntersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	65	165	
==>.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    (@p <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	65	165	
==>.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    (@p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15129	15229	
==>, N1 is N + 1, RWx = rewr(N1),
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3737	3846	
==>( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7214	7323	
==>( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6171	6280	
==>( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2356	2474	
==>INDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2356	2474	
==>INDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2356	2474	
==>INDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2019	2147	
==>al'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::Bas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2019	2147	
==>al'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::Bas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2019	2147	
==>al'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::Bas <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	395	506	
==>lace where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	395	506	
==>lace where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	813	918	
==>e project objectives are nominally:
  1- Provide an environment in which p6 rules can be run against strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16436	16553	
==>:to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16436	16553	
==>:to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16436	16553	
==>:to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1665	1820	
==>tem);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1665	1820	
==>tem);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3340	3463	
==>when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3340	3463	
==>when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3340	3463	
==>when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $outpu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1105	1214	
==>ore_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1105	1214	
==>ore_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1105	1214	
==>ore_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11336	11472	
==>lue::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11336	11472	
==>lue::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11336	11472	
==>lue::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1651	1797	
==>bj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1651	1797	
==>bj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1651	1797	
==>bj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12082	12247	
==>ams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12082	12247	
==>ams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12082	12247	
==>ams;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7209	7301	
==>on_test_on_object',
  '... still got the right return value from first Object singleton/class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8204	8296	
==>on_test_on_object',
  '... still got the right return value from first Object singleton/class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10773	10865	
==>on_test_on_object',
  '... still got the right return value from first Object singleton/class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7823	7935	
==>:Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test::Builder           $:singleton;
  has Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13017	13110	
==>tem $h.remove_content_headers

This will remove all the header fields used to describe the con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13017	13110	
==>tem $h.remove_content_headers

This will remove all the header fields used to describe the con <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5090	5216	
==>lue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpP <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5090	5216	
==>lue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpP <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1994	2120	
==>lue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpP <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4518	4654	
==>odifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_st <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4518	4654	
==>odifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_st <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4833	4929	
==>>unify_type($node, $expected);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4047	4168	
==>($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4047	4168	
==>($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4047	4168	
==>($body->{submethods}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8445	8685	
==>( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8445	8685	
==>( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8445	8685	
==>( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19660	19772	
==>stparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

=head2 Other thing <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6138	6240	
==>e preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_ju <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6196	6298	
==>e preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_ju <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1386	1506	
==>ool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'S <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4511	4628	
==>ool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4511	4628	
==>ool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'S <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1967	2070	
==>S} = {} if $perl_version == 6;
    $self->makemaker_args->{MAN3PODS} = {} if $perl_version == 6;
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1588	1680	
==><gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This progr <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1588	1680	
==><gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This progr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2818	2947	
==>attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2818	2947	
==>attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2818	2947	
==>attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12805	12926	
==>%{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12805	12926	
==>%{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12805	12926	
==>%{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35564	35671	
==>each of those array
references is the body of one and-branch.  We will take the last one off
and keep it nor <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	726	821	
==>bstr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	726	821	
==>bstr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	168	281	
==>rams using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.Control <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	168	281	
==>rams using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.Control <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	168	281	
==>rams using function converted by PIL2JS.cps2normal can
  # correctly terminate.
  return "throw new PIL2JS.Control <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3936	4059	
==>reach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3936	4059	
==>reach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3936	4059	
==>reach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7989	8137	
==>{
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7989	8137	
==>{
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7989	8137	
==>{
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17739	17890	
==>ode_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'd <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17739	17890	
==>ode_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'd <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1523	1617	
==>warn "You MUST provide an explicit true/false value to dynamic_config, skipping\n";
		return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	565	663	
==>: new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	565	663	
==>: new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	565	663	
==>: new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	654	747	
==>uctor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	654	747	
==>uctor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
d <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	168	271	
==>e |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	u <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	168	271	
==>e |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	u <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	22	122	
==>as taken from src/Pugs/Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	40	164	
==>rict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	40	164	
==>rict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	40	164	
==>rict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32581	32696	
==>> $e->get('$self:')->send('MRO')->reverse);
            }
        )
    )
);

=pod

method _make_ascendant_dispatche <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	668	767	
==>= $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	668	767	
==>= $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.ne <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5029	5175	
==>e a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5029	5175	
==>e a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # f <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	857	959	
==>%*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	857	959	
==>%*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7039	7138	
==>exp::Parser;
  my $parser = Regexp::Parser->new;

=head2 Setting a Regex

To have the parser work on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20958	21055	
==>_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20958	21055	
==>_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20958	21055	
==>_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9014	9120	
==>x:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(J <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9014	9120	
==>x:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(J <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9014	9120	
==>x:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_new(J <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27165	27306	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27444	27585	
==>'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6936	7072	
==>}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_;
      $self->{neg};
    }
  }

  sub v <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1029	1141	
==>"Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1029	1141	
==>"Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48560	48646	
==>e->new('$:version'   => 'str')));
$::Module->send('add_attribute', (symbol->new('$:auth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	459	563	
==>ed to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	459	563	
==>ed to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	459	563	
==>ed to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14393	14489	
==>m $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
internally <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14393	14489	
==>m $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
internally <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1351	1462	
==>}

sub remove {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Ind <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31156	31249	
==>ample, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31156	31249	
==>ample, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L:: <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25260	25350	
==>{
	my $type = type::operator::arrow->new(
		type::variable::free->new,
		type::operator::pa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22516	22626	
==>STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	73	169	
==>ssert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	73	169	
==>ssert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6980	7106	
==>, 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'po <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6980	7106	
==>, 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'po <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3879	4005	
==>, 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1150	1267	
==>defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1150	1267	
==>defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1150	1267	
==>defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5369	5490	
==>lf->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5369	5490	
==>lf->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5369	5490	
==>lf->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31692	31786	
==>tribute names of the invocant Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str $ma <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11298	11390	
==>(Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11298	11390	
==>(Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20945	21150	
==>ur" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21224	21429	
==>ur" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5470	5569	
==>"if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5470	5569	
==>"if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5470	5569	
==>"if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($self <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4428	4535	
==>esc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4486	4593	
==>esc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends) <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	809	916	
==>*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1575	1695	
==>ith content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy node <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1575	1695	
==>ith content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy node <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11720	11832	
==>>[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1223	1327	
==>ock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1223	1327	
==>ock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1223	1327	
==>ock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Objec <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	94	190	
==>s - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, rele <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	94	190	
==>s - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, rele <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1510	1595	
==>32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128'},'Clutter::num_size 128 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	36	137	
==>05;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	36	137	
==>05;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	36	137	
==>05;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3669	3768	
==>i_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3669	3768	
==>i_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3669	3768	
==>i_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelude <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2347	2599	
==>of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Comm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2347	2599	
==>of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10095	10205	
==>----------------    
      
    # -----------------------------------------------  
    # collects all the role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10095	10205	
==>----------------    
      
    # -----------------------------------------------  
    # collects all the role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10095	10205	
==>----------------    
      
    # -----------------------------------------------  
    # collects all the role <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3360	3452	
==>lass represents a single test within the
Test::Builder framework. The class itself is actuall <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3360	3452	
==>lass represents a single test within the
Test::Builder framework. The class itself is actuall <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5557	5649	
==>lass represents a single test within the
Test::Builder framework. The class itself is actuall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6094	6201	
==>obj. All it needs to do to signal
this is to return the string set in advance with the prune method.

This f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6094	6201	
==>obj. All it needs to do to signal
this is to return the string set in advance with the prune method.

This f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6094	6201	
==>obj. All it needs to do to signal
this is to return the string set in advance with the prune method.

This f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40581	40696	
==>rrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40581	40696	
==>rrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40581	40696	
==>rrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3350	3476	
==>t up the files
                for my $meth (qw[registered_alternatives_file available_file]) {
                    system( qw[ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2790	2914	
==>turn ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2790	2914	
==>turn ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	60	165	
==>sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	60	165	
==>sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	60	165	
==>sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1037	1140	
==>,    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1037	1140	
==>,    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1037	1140	
==>,    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1210	1357	
==>,
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1210	1357	
==>,
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = s <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1623	1752	
==>tches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is export{
    my @args = split ',', $x;
    @args
}

1;
=end <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6864	6974	
==>};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6876	6986	
==>};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2504	2620	
==>$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2504	2620	
==>$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2504	2620	
==>$i+4]);
	    $i += 5;
	}
    } else {
	die "statement_control:for not fully implemented";
    }
}

multi sub eval($co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	743	846	
==>handle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	743	846	
==>handle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $mes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1299	1402	
==>handle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2798	2909	
==>ace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2798	2909	
==>ace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2798	2909	
==>ace($i);
    $class->name($i->nextToken);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13387	13585	
==>nf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13387	13585	
==>nf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13387	13585	
==>nf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	5	121	
==>plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	5	121	
==>plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	5	121	
==>plan ($n) { say "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4555	4721	
==>st },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cs <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4555	4721	
==>st },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19116	19207	
==>) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(Re,F0,F1,B0,B1,E0, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3315	3422	
==>atch/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = sh <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	86	193	
==>atch/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	921	1012	
==>ng|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::Attr <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1658	1759	
==>ag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1658	1759	
==>ag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16089	16177	
==>e <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpra <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16147	16235	
==>e <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6093	6210	
==>ix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6093	6210	
==>ix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1262	1380	
==>_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \$_[0]->{ou <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	685	779	
==>igh> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a")) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	685	779	
==>igh> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a")) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31462	31591	
==>push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31462	31591	
==>push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31462	31591	
==>push list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7196	7314	
==>t;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Me <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	497	615	
==>t;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Me <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26712	26820	
==>it runs the tests.  This is different from C<HARNESS_VERBOSE>, which prints
the output from the test being ru <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9739	9837	
==>urn }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9739	9837	
==>urn }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15091	15195	
==>text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    retur <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15091	15195	
==>text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    retur <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8587	8686	
==>ht be to run a threaded Perl, for example.

You can also overload this method if you've built your o <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7728	7833	
==>verse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($fun <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7728	7833	
==>verse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($fun <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1498	1593	
==>ings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_Boeh <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2784	3025	
==><Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<J <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2325	2438	
==>, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2383	2496	
==>, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3051	3258	
==>readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<en <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3051	3258	
==>readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<en <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14265	14361	
==>ator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		$.fun,
		$.p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	92	223	
==>= 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	92	223	
==>= 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        retur <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9530	9626	
==>'~"$hook$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is pr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7034	7151	
==>2),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7034	7151	
==>2),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8926	9036	
==>ath,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\\#/#g;

  $relat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	940	1072	
==>op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14972	15066	
==>nction is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub wh <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15030	15124	
==>nction is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2760	2884	
==>e) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2760	2884	
==>e) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2760	2884	
==>e) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigge <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4775	4972	
==>odifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print(" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4775	4972	
==>odifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print(" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6796	6932	
==>L::PIL1CPerl5::Util;
sub rebless_with_prefix {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	855	963	
==>nt)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	855	963	
==>nt)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	855	963	
==>nt)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($xx) { coerce:as( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1065	1178	
==>ds => {
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 },
        'testplan' => sub { _('$.testp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16458	16551	
==>Bucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucke <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16458	16551	
==>Bucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1536	1668	
==>K
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1536	1668	
==>K
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1536	1668	
==>K
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1876	1981	
==>p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1876	1981	
==>p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1876	1981	
==>p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9685	9814	
==>tch::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6026	6155	
==>tch::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6875	7004	
==>tch::str($block),"\n";
    
            # XXX don't use source filter: 
            #     instead, do variable substitutions '$()' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	918	1056	
==>ms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	918	1056	
==>ms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @ru <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11821	11918	
==>eed for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29032	29127	
==>wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<unwr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33584	33679	
==>wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<unwr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32721	32816	
==>wrap zero old attributes (they are effectively just an
extension of the relation).

=item C<unwr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37655	37747	
==>Relation::Example $other!) returns Relation::Example>

This method is a generic relational op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38244	38336	
==>Relation::Example $other!) returns Relation::Example>

This method is a generic relational op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38495	38587	
==>Relation::Example $other!) returns Relation::Example>

This method is a generic relational op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17138	17223	
==>vate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17138	17223	
==>vate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17138	17223	
==>vate_methods'  => ::make_attribute('%:private_methods'));
$::Class->add_attribute('%:a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10818	10931	
==>on (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10818	10931	
==>on (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10818	10931	
==>on (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-creatable array value attempted, subscr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4042	4149	
==>_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4259	4366	
==>_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2577	2707	
==>ols),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2577	2707	
==>ols),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2577	2707	
==>ols),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14348	14466	
==>ble} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14348	14466	
==>ble} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14348	14466	
==>ble} = 1;
	$PIL::Run::Root::main::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5533	5633	
==>in_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5533	5633	
==>in_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5533	5633	
==>in_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name e <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4528	4814	
==>);
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            give <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4528	4814	
==>);
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            give <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4497	4621	
==>parameter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            % <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	683	804	
==>ash
       p6_as_perl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6_meta_CODE
       p6_initial <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	567	696	
==>nt STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	621	726	
==>aining: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	621	726	
==>aining: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/f <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6462	6718	
==>>'),
                    Sym->new('$n'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16954	17055	
==>to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16954	17055	
==>to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	406	507	
==>r split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	406	507	
==>r split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	406	507	
==>r split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s* <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4109	4242	
==>a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4121	4254	
==>a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and cap <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	170	290	
==>Tree {
    # create the tree lazily ...
    $self.:create_tree() unless $:tree.defined;
    return $:tree;
}

method show <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9662	9776	
==>g => { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9662	9776	
==>g => { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	290	389	
==>ass isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (throu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	290	389	
==>ass isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (throu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	290	389	
==>ass isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (throu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2150	2338	
==>tr_name_exists of Bool (Relation::AttrName $attr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10693	10779	
==>ng =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10693	10779	
==>ng =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3949	4046	
==>om "not ok" or because they never ran.

=item B<Failed>

Percentage of the total tests which faile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2704	2798	
==>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2704	2798	
==>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9485	9592	
==>($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdigit POS <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10118	10213	
==>lated using iterations, 
which can be slow sometimes.
Set functions might also fail and emit war <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10118	10213	
==>lated using iterations, 
which can be slow sometimes.
Set functions might also fail and emit war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8489	8591	
==>e name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14524	14625	
==>> <UnaryExpression>
    | <'typeof'> <UnaryExpression>
    | <'++'> <UnaryExpression>
    | <'--'> <Un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6025	6125	
==>e name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second o <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	878	982	
==>self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2713	2808	
==>self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17537	17705	
==>dy.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21014	21182	
==>dy.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20601	20769	
==>dy.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2694	2888	
==>->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2694	2888	
==>->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2694	2888	
==>->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4295	4410	
==>k (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4353	4468	
==>k (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Te <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14499	14596	
==>" if !defined $handler;
    $handler->($x);
}

my $as_hash_complain = sub { Carp::carp("p6_as_hash <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2137	2240	
==>status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 1 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2137	2240	
==>status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 1 <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1754	1848	
==>ly the I<PCRE> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-alpha develop <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23791	23897	
==>A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22307	22413	
==>A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4986	5230	
==>0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4986	5230	
==>0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4986	5230	
==>0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	944	1078	
==>< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	944	1078	
==>< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1258	1382	
==>t('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1258	1382	
==>t('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1258	1382	
==>t('current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8777	8879	
==>$p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8777	8879	
==>$p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8777	8879	
==>$p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7861	7977	
==>classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7861	7977	
==>classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7861	7977	
==>classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_cl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37373	37475	
==>on::Example contains only tuples that are in
all of the source Relations.  This method has an alias nam <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1298	1395	
==>put type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textar <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1298	1395	
==>put type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textar <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10506	10593	
==>"\\W", !.

p6_char_class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1657	1791	
==>uct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13546	13638	
==>st
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can prod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13546	13638	
==>st
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can prod <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6568	6680	
==>rson_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6568	6680	
==>rson_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                ' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6490	6582	
==>head2 C<analyze_file>

  my %results = $strap->analyze_file($test_file);

Like C<analyze>, bu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3383	3504	
==>all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6860	6981	
==>all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5817	5938	
==>all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $map <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	955	1077	
==>"ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	955	1077	
==>"ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pug <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	88	180	
==>int { $fh } <<'END';
<html>
<head>
<title>Public HTML</title>
</head>
<script>
function openN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	879	986	
==>:Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	879	986	
==>:Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	879	986	
==>:Object->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %params) = @_;
    foreach my $key (ke <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1570	1675	
==><Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1570	1675	
==><Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<Arr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9817	9902	
==>_charset_range_x(B) --> p5_charset_item(char(B)).
p5_charset_item(char(C)) --> [C], {\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1159	1258	
==>lar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1159	1258	
==>lar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1159	1258	
==>lar auto-deref with a lazy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2004	2113	
==>se are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2004	2113	
==>se are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9577	9678	
==>eSequence>
}
rule CharacterEscapeSequence {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2603	2697	
==>label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2603	2697	
==>label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2603	2697	
==>label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(su <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9986	10113	
==>bstr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto quant_closure <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6525	6627	
==>rated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6537	6639	
==>rated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3285	3374	
==>in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3285	3374	
==>in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3285	3374	
==>in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/lib6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10067	10194	
==>f = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10067	10194	
==>f = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10067	10194	
==>f = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11464	11598	
==>is doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in ord <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11464	11598	
==>is doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in ord <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11464	11598	
==>is doesn't work if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in ord <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5593	5714	
==>3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5593	5714	
==>3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5593	5714	
==>3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5823	5992	
==>sts $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5835	6004	
==>sts $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variab <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3903	4009	
==>fe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4391	4509	
==>[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4391	4509	
==>[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4391	4509	
==>[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_lazy} }
sub str           { $_[0]->{cstringify}( @_ ) }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4932	5024	
==>mespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { edi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4932	5024	
==>mespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { edi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4932	5024	
==>mespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { edi <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4267	4366	
==>split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4267	4366	
==>split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21946	22039	
==>lass() is deprecated" warning.

Quantifiers of the form C<{n}> were being misrepresented as C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1262	1396	
==>) . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1262	1396	
==>) . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1262	1396	
==>) . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4180	4322	
==>\n   List      pre     sort    safe   (Array)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21944	22041	
==>e and in what order they should be consulted.  When
Locale::KeyedText is told to fetch the user me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21944	22041	
==>e and in what order they should be consulted.  When
Locale::KeyedText is told to fetch the user me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2571	2672	
==>t.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2571	2672	
==>t.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2651	2752	
==>t.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_dia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1822	1936	
==>self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1822	1936	
==>self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = spri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1822	1936	
==>self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = spri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5060	5153	
==>r $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5060	5153	
==>r $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7257	7350	
==>r $.description>

The test's description (optional).

=item B<Str $.diagnostic>

The test's di <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27736	27864	
==>new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaque $self:) returns list {
    unless ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8627	8736	
==>b node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8623	8732	
==>b node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8418	8626	
==>& -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$fh> ) {
            chomp;
            msg("Removing file '$_'", 1);
            - <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11876	11973	
==>ous values
for the same field are retained.

As for the header() method, the field name ($field) i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11876	11973	
==>ous values
for the same field are retained.

As for the header() method, the field name ($field) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1557	1681	
==>ss');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1557	1681	
==>ss');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1557	1681	
==>ss');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	838	956	
==>,
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	838	956	
==>,
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	838	956	
==>,
  testpc    => pwd('Test.js'),
  prelude   => try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelud <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39586	39678	
==>ases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35476	35567	
==>ases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40026	40117	
==>ases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	360	496	
==>less $_[0];
    #print "match pair $_[0]\n";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        ta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17474	17576	
==>t.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC libr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17474	17576	
==>t.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC libr <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	935	1049	
==>ount>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	935	1049	
==>ount>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10950	11043	
==>turns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<document_r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10950	11043	
==>turns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<document_r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11177	11263	
==>imple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	705	822	
==>ce_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	705	822	
==>ce_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	705	822	
==>ce_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11930	12053	
==>:get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1] alternation( \\$code )\n";
}
sub node <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15769	15861	
==>lication's developer should see more details than joe public would.

Alternately, sometimes a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15769	15861	
==>lication's developer should see more details than joe public would.

Alternately, sometimes a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	89	190	
==>ead1 NAME

Test::Harness::Iterator - Internal Test::Harness Iterator

=head1 SYNOPSIS

  use Test::Har <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4558	4657	
==>ize` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4558	4657	
==>ize` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8412	8512	
==>eturn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8412	8512	
==>eturn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method in <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2115	2225	
==>x("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2115	2225	
==>x("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6397	6519	
==>> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6397	6519	
==>> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6397	6519	
==>> {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23236	23350	
==>};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23236	23350	
==>};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23236	23350	
==>};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3914	4014	
==>:todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 P <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3914	4014	
==>:todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5438	5538	
==>:todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1826	1928	
==>my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1826	1928	
==>my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->gra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8126	8242	
==>eturn $:singleton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  method crea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4609	4720	
==>nt );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4609	4720	
==>nt );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_n <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	509	632	
==>= shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	410	533	
==>= shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	309	407	
==>subdir(shift() ) };
use constant SUBFILE_OF_META    => sub { shift()->_meta_dir->file(  shift() ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1201	1309	
==>undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1201	1309	
==>undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1201	1309	
==>undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	971	1088	
==>$.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, densi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	971	1088	
==>$.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, densi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14251	14349	
==>ring cname
    newfrom = find_global "PGE::Match", "newfrom"
    $P0 = getattribute mob, "PGE::Matc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	49	145	
==>require 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::Repository;

use Path:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	514	624	
==>ous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	514	624	
==>ous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	514	624	
==>ous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7313	7433	
==>. quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3917	4037	
==>. quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4766	4886	
==>. quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    m <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	910	1028	
==>at's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15830	15930	
==>n used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labele <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20063	20163	
==>n used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labele <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4636	4767	
==>6;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4636	4767	
==>6;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	900	1026	
==>0] }, $pad;
}

sub pads {
    my $self = shift;
    map { @$_ } $self->scopes;
}

sub scopes {
    my $self = shift;
    @{ $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1368	1473	
==>tList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1368	1473	
==>tList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1368	1473	
==>tList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2547	2651	
==>ork on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2547	2651	
==>ork on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2547	2651	
==>ork on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1558	1802	
==>turn 1 if IS_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19339	19470	
==>.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15760	15891	
==>.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2268	2390	
==>x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2268	2390	
==>x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2615	2737	
==>x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3182	3286	
==>__returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3182	3286	
==>__returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3182	3286	
==>__returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5779	5882	
==>e might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5779	5882	
==>e might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5779	5882	
==>e might actually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7130	7334	
==>^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8065	8151	
==>slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variabl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1890	1976	
==>slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2949	3061	
==>ring(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2949	3061	
==>ring(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2949	3061	
==>ring(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1752	1874	
==>match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.n <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1752	1874	
==>match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.n <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11843	11953	
==>my $self = shift;

    local $ENV{PERL5LIB};
    my $perl = $self->_command;
    my @inc =`$perl -le "print joi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2136	2247	
==>ree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2136	2247	
==>ree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8876	8977	
==>list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8876	8977	
==>list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8876	8977	
==>list := &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2260	2370	
==>ame'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2260	2370	
==>ame'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2260	2370	
==>ame'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1378	1501	
==>f ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from_st <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12043	12158	
==>um_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12043	12158	
==>um_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14896	15006	
==>th_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18373	18483	
==>th_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrow <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17789	17899	
==>th_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrow <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2831	2929	
==>nfix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2831	2929	
==>nfix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2831	2929	
==>nfix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2056	2163	
==>b statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_contro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2056	2163	
==>b statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_contro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2056	2163	
==>b statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_contro <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1492	1627	
==>d}) {
            goto &$code unless $cwd eq $pwd; # delegate back to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27206	27333	
==>ars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27206	27333	
==>ars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Mes <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16082	16183	
==>node program[1];     /* Unwarranted chumminess with compiler. */

I don't know.

Internals:

  regnode <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1483	1577	
==>cidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and pun <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1483	1577	
==>cidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and pun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1851	1955	
==>pts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = ea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1851	1955	
==>pts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = ea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1851	1955	
==>pts->{editor} or confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = ea <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	310	422	
==>lti Num::round_half_up (Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24499	24596	
==>nd/or modify it under
the terms of the GNU General Public License (GPL) as published by the Free
S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24499	24596	
==>nd/or modify it under
the terms of the GNU General Public License (GPL) as published by the Free
S <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4299	4420	
==>}, 'inc';
        require YAML;
        local $YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $no_index } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	75	166	
==>ackage Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*pars <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	75	166	
==>ackage Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*pars <==
3	/Users/nnunley/pugs/util/package-osx.pl	7632	7748	
==>/man/man3/Perl6::Spec::Functions.3
        /usr/local/man/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1466	1575	
==>_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Comp <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1466	1575	
==>_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3940	4058	
==>r") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3940	4058	
==>r") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3940	4058	
==>r") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2964	3108	
==>= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2964	3108	
==>= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6390	6493	
==>} if $re eq '\z';
    return sub{
      FAIL() if !($X::pos == (length($X::str)) || substr($X::str,$X::p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10758	10865	
==>`

Includes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10758	10865	
==>`

Includes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15506	15603	
==>pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15506	15603	
==>pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15506	15603	
==>pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1355	1452	
==>t = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1355	1452	
==>t = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1355	1452	
==>t = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16444	16546	
==>hes ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYAL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16444	16546	
==>hes ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYAL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16444	16546	
==>hes ($xx) {...};
MULTI SUB gather ($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYAL <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4250	4347	
==>t if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4250	4347	
==>t if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5774	5871	
==>t if
necessary.  The optional named arguments are:

=over 4

=item C<output>

A Test::Builder::Out <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11042	11203	
==>);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11042	11203	
==>);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11042	11203	
==>);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var r <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2025	2121	
==>s about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2025	2121	
==>s about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30457	30549	
==>to dive into the node's children
when using a walker (see L<Regexp::Parser/"Walking the Tree" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21276	21359	
==>atcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44183	44266	
==>atcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	870	988	
==>const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	879	997	
==>const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4994	5090	
==>p6_Scalar {p6_new('Scalar',@_)}

# XXX - Using field names here is a major abstraction violation. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4187	4315	
==>er to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4187	4315	
==>er to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4187	4315	
==>er to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  T <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22600	22685	
==>_i(E0),
   code_type(C,to_lower(Cx)), code_type(C1,to_lower(C1x)), code_type(C2,to_low <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	88	185	
==>use warnings;

my $filename = (caller)[1];
my $pmc = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
die <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8870	8965	
==>of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_juncti <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8928	9023	
==>of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_juncti <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8996	9113	
==>=> chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8996	9113	
==>=> chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opp <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2641	2730	
==>(${re_scopeop}?\s*${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2772	2865	
==>other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.g <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2772	2865	
==>other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16579	16698	
==>x:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16579	16698	
==>x:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16579	16698	
==>x:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Cod <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1121	1237	
==>b describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = over <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	564	676	
==>args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	564	676	
==>args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	564	676	
==>args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5735	5863	
==>,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10046	10174	
==>,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2378	2479	
==>strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2378	2479	
==>strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2378	2479	
==>strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclasses($sc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23615	23706	
==>ary's interface.

See also the bundled L<Relation::Example>, which provides a minimal in-RAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7515	7669	
==>) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7515	7669	
==>) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7515	7669	
==>) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6307	6406	
==>l things won't work any longer, as all the standard
# operators are overloaded with calls to JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6307	6406	
==>l things won't work any longer, as all the standard
# operators are overloaded with calls to JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6307	6406	
==>l things won't work any longer, as all the standard
# operators are overloaded with calls to JS::inl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2308	2447	
==>ate {
		my $self = shift;
		my $runtime = shift;
		my $prog = shift;
		
		$self->{runtime} = $runtime;

		$self->reduce($prog);
	}

	sub red <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13752	13875	
==>xes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of avail <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13752	13875	
==>xes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of avail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3355	3466	
==>a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4049	4160	
==>a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5257	5368	
==>a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## ------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6708	6850	
==>st"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6708	6850	
==>st"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6708	6850	
==>st"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1202	1344	
==>>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal',
        othe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3063	3166	
==>vent we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3063	3166	
==>vent we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	498	619	
==>= execute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            return reverse(@rv) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22224	22324	
==>its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation cla <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26776	26876	
==>its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation cla <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8254	8383	
==>n $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8254	8383	
==>n $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16990	17104	
==>)|ather)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7936	8034	
==>ESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is when y <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7936	8034	
==>ESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is when y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17230	17338	
==>tes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17230	17338	
==>tes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17230	17338	
==>tes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2014	2144	
==>her found data to the metadata as well
        my $archive = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Meta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	919	1026	
==>t symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	919	1026	
==>t symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40110	40231	
==>key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40110	40231	
==>key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40110	40231	
==>key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10466	10594	
==>xit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2481	2595	
==>xit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2481	2595	
==>xit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2485	2590	
==>and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2485	2590	
==>and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2485	2590	
==>and /^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14077	14179	
==>it('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14077	14179	
==>it('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14077	14179	
==>it('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6100	6198	
==>e yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6100	6198	
==>e yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6100	6198	
==>e yet.
  if @things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("" <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3337	3458	
==>nd_random ( Num $x ) {
    my $x_round;
    state $rand_up = 1;

    # randomly round .5 up or down
    given abs($x) - fl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17259	17379	
==>"_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17259	17379	
==>"_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1159	1287	
==>r?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1159	1287	
==>r?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1159	1287	
==>r?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9851	9955	
==>my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9851	9955	
==>my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9851	9955	
==>my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13156	13251	
==>ITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13156	13251	
==>ITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2256	2516	
==>ch->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1024	1212	
==>ch->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1024	1212	
==>ch->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11125	11283	
==>rting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8188	8337	
==>rting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8188	8337	
==>rting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1856	1996	
==>mples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1856	1996	
==>mples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1856	1996	
==>mples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1423	1546	
==>blech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1423	1546	
==>blech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1423	1546	
==>blech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3843	4012	
==>e #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3843	4012	
==>e #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Vari <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11741	11875	
==>Another
  hopefully unused part of the struct is overwritten with a flag
  value, so a regexp* thus created can be recognized, and rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5073	5222	
==>"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5073	5222	
==>"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5073	5222	
==>"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $va <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	585	707	
==>@.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	585	707	
==>@.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22965	23070	
==>Block>
}

# A.5 Functions and Programs

rule FunctionDeclaration :words {  # see clause 13
      <'functio <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16113	16212	
==>The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16113	16212	
==>The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	103	213	
==>ub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	103	213	
==>ub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	103	213	
==>ub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17663	17870	
==>? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17663	17870	
==>? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17663	17870	
==>? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13872	14005	
==>$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n#endblock\n";
    
            # register new syntax in the gram <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1673	1802	
==>turn;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<ob <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1673	1802	
==>turn;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1126	1235	
==>},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1126	1235	
==>},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1126	1235	
==>},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2319	2404	
==>x_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2319	2404	
==>x_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2319	2404	
==>x_prefix_meta_operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)? <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2089	2188	
==>ers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Fu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2089	2188	
==>ers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1639	1728	
==>_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1639	1728	
==>_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1639	1728	
==>_attribute($meta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5517	5641	
==>ern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5517	5641	
==>ern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5517	5641	
==>ern,flags,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4076	4178	
==>ject for the given values.  The month and day default
to 1 if not given.

The value for day can also be <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4076	4178	
==>ject for the given values.  The month and day default
to 1 if not given.

The value for day can also be <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1260	1360	
==>1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1260	1360	
==>1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1260	1360	
==>1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1197	1306	
==>d - points to another variable or operator

use Language::AttributeGrammar;

# this attribute grammer pretty p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6356	6453	
==>>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6356	6453	
==>>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13388	13512	
==>ast if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13388	13512	
==>ast if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13388	13512	
==>ast if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4860	4986	
==>e given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4860	4986	
==>e given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4860	4986	
==>e given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled file <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1591	1681	
==>ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1591	1681	
==>ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9763	9881	
==>--------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9763	9881	
==>--------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9763	9881	
==>--------------------------------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2519	2623	
==>undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2519	2623	
==>undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2519	2623	
==>undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8783	8907	
==>5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1" <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8783	8907	
==>5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4700	4794	
==>rammar::Category - Engine for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar::Cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36641	36764	
==>x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36641	36764	
==>x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36641	36764	
==>x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 sp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12753	12894	
==>ol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10956	11050	
==>$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11014	11108	
==>$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4921	5047	
==>"circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4921	5047	
==>"circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7374	7473	
==>error(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char_comp <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15765	15890	
==>ternal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19998	20123	
==>ternal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8571	8670	
==>e::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => Blondie::TypeSa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8863	8958	
==>t::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8921	9016	
==>t::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1841	1964	
==>plemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1841	1964	
==>plemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1841	1964	
==>plemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32266	32365	
==>elations, the result is the same regardless of
which is the invocant and which is the argument.  Thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36816	36915	
==>elations, the result is the same regardless of
which is the invocant and which is the argument.  Thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36106	36205	
==>elations, the result is the same regardless of
which is the invocant and which is the argument.  Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1400	1619	
==>pty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(new_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack. <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4644	4853	
==>') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) { <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4644	4853	
==>') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) { <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	371	482	
==>>makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	272	383	
==>>makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6952	7161	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10429	10638	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9548	9757	
==>$r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method ex <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13688	13882	
==>ry {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                sh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13688	13882	
==>ry {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                sh <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2063	2297	
==>y) {
                            #warn "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn "hell <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2532	2633	
==>ll("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2532	2633	
==>ll("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2532	2633	
==>ll("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10436	10564	
==>sh
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10436	10564	
==>sh
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10436	10564	
==>sh
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23491	23642	
==>ss ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23491	23642	
==>ss ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23491	23642	
==>ss ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to return Scalar 
                        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5736	5854	
==>n";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5736	5854	
==>n";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5736	5854	
==>n";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	427	560	
==>compile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3259	3390	
==>?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3259	3390	
==>?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14769	14865	
==>environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14769	14865	
==>environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Documen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12444	12556	
==>e the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12444	12556	
==>e the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12444	12556	
==>e the attribute type ($attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_priva <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	623	739	
==>signature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	623	739	
==>signature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2094	2200	
==>Rule::$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unless defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17964	18105	
==>->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->err <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14385	14526	
==>->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->err <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15470	15565	
==>However, attempting to stuff something into
the string at a higher level that doesn't map to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31519	31726	
==>et_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31519	31726	
==>et_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31519	31726	
==>et_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5249	5378	
==>rs;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5249	5378	
==>rs;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5839	5968	
==>rs;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19281	19384	
==><=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first bloc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19281	19384	
==><=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first bloc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3131	3245	
==>, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Fa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7139	7330	
==>mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7139	7330	
==>mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	493	602	
==>od, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	493	602	
==>od, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	493	602	
==>od, in order to keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1751	1873	
==>ub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1751	1873	
==>ub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1751	1873	
==>ub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $arr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7259	7396	
==>-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7259	7396	
==>-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14741	14850	
==>urn;

    return 1;
}

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1568	1720	
==>->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1568	1720	
==>->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1568	1720	
==>->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2969	3066	
==>2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2969	3066	
==>2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3316	3413	
==>2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	836	954	
==>x:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	836	954	
==>x:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	836	954	
==>x:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18025	18123	
==>rocess, by
parsing up your module's source code into various blocks; so that by the
time a compiler <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18025	18123	
==>rocess, by
parsing up your module's source code into various blocks; so that by the
time a compiler <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	676	781	
==>sed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	676	781	
==>sed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6283	6376	
==>|Rule|Block|Bare|Parametric)\z/) {
	my($name,$argl,$f,$lval)=@_;
	my $body = $f;
	$body = '$f- <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	377	503	
==>mber.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	377	503	
==>mber.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	148	271	
==>cosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1013	1120	
==>led copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1013	1120	
==>led copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1013	1120	
==>led copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10788	10905	
==>INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10788	10905	
==>INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10788	10905	
==>INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3074	3204	
==>able );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3538	3668	
==>able );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1048	1151	
==>$class->no_match;
};

sub substitution {
    my $grammar = shift;
    return $grammar->no_match unless $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5830	5928	
==>rlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5830	5928	
==>rlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %D <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7933	8026	
==>p = 100000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newest_p_stamp and
  $newes <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45490	45631	
==>d('add_method' => (
    # method label
        symbol->new('name'),
    # method body
        method->new(
            $::ENV,
            met <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2612	2709	
==>s Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!children }

## --- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2612	2709	
==>s Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!children }

## --- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6412	6518	
==>local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6412	6518	
==>local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6412	6518	
==>local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = (@PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18182	18392	
==>->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18182	18392	
==>->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18182	18392	
==>->str->unboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2814	2925	
==>blib = File::Spec->catfile($base, 'blib6', 'lib');
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7247	7339	
==>bject(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1072	1164	
==>bject(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17794	17945	
==>| $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17794	17945	
==>| $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17794	17945	
==>| $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$method( @param )-> <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5921	6025	
==>od get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Ar <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5921	6025	
==>od get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	789	897	
==>ntent = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	789	897	
==>ntent = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9202	9313	
==>phering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9202	9313	
==>phering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10618	10720	
==>pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
my $m = "wxyzqwert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14366	14485	
==>);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14366	14485	
==>);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14366	14485	
==>);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5204	5329	
==>->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5204	5329	
==>->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5204	5329	
==>->collectTokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    e <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	751	850	
==>rap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Altering <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13626	13727	
==>return $S->force_object(anyof_class => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->ad <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5395	5491	
==>configuration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5206	5300	
==>configuration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	425	526	
==>);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	425	526	
==>);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	425	526	
==>);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4351	4481	
==>ol is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4409	4539	
==>ol is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	904	1031	
==>t;
    #$v;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	963	1058	
==>scription ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	963	1058	
==>scription ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5416	5588	
==>$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5428	5600	
==>$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19716	19821	
==>tr")),
	),
);

# we can apply a polymorphic function to a string by giving it as a param to a higher order <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8319	8434	
==>Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8319	8434	
==>Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8319	8434	
==>Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21120	21302	
==>aque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44044	44209	
==>aque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:' <==
3	/Users/nnunley/pugs/util/drift.pl	1445	1568	
==>Hack to fix includes (It's stupid!)
    print OUT $_;
}
print OUT @scary_header;
my $module;
while (<IN>) { 
	if (/^module \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4813	4935	
==>(@_);
}


sub force_object {
  Carp::croak("class name passed where object required") unless ref $_[0];
  my $type = splice <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5137	5237	
==>=> 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4959	5056	
==>=> 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	967	1066	
==>n the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	967	1066	
==>n the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1514	1613	
==>n the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8157	8277	
==>{
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8157	8277	
==>{
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20690	20778	
==>mplemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
ev <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20690	20778	
==>mplemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
ev <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52624	52710	
==>s, $::Module, $::Package, $::Object));
$::Object->set_attr(symbol->new('@:MRO') => list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	795	897	
==>----
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	795	897	
==>----
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	795	897	
==>----
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object->add_method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18807	18933	
==>ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20165	20291	
==>ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1352	1442	
==>index_file'}  = [ Path::Class::file('index')  ];
$config{'repo_index_groups'}= [ [map {Path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7809	7916	
==>The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7809	7916	
==>The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7809	7916	
==>The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6264	6488	
==>xt( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6264	6488	
==>xt( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3129	3231	
==>l', 'VRat'  , 'value' ,'unk';
node_a 'Val', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' , <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3736	3857	
==>ts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pSc <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3736	3857	
==>ts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pSc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	586	707	
==>ts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pSc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	323	430	
==>Whitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	323	430	
==>Whitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	323	430	
==>Whitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $sourc <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3556	3668	
==>= $totals{ok});
    $totals{passing} = $passed ? 1 : 0;

    return %totals;
}


sub _analyze_line {
    my($self <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3793	3891	
==>_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4010	4108	
==>_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	651	751	
==>ate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	651	751	
==>ate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	651	751	
==>ate pass by ref (needed for is rw and is ref).

use Prelude::JS::Code;
use Prelude::JS::Continuations <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2806	2949	
==>, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2806	2949	
==>, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2806	2949	
==>, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	479	602	
==>b cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	380	503	
==>b cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3433	3541	
==>is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3433	3541	
==>is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $sp <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10257	10365	
==>be faster)

    # also, the signature for this sub is nowhere near finalized; it should
    # support asynch/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12634	12730	
==>args{verbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15861	15956	
==>o.com/>, and its authors have also written
several books and papers and taught classes on the su <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15861	15956	
==>o.com/>, and its authors have also written
several books and papers and taught classes on the su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	770	917	
==>thod = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	770	917	
==>thod = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	770	917	
==>thod = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must supply a valid method lab <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11362	11463	
==>.


% XXX - connect to above
p5_comment_opt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_commen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1531	1629	
==>sed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1531	1629	
==>sed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1531	1629	
==>sed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	713	872	
==>";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	713	872	
==>";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	713	872	
==>";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16808	16909	
==>($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16808	16909	
==>($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16808	16909	
==>($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	643	738	
==>8-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	643	738	
==>8-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	643	738	
==>8-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10806	10934	
==>e;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10806	10934	
==>e;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10806	10934	
==>e;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

---------------------------- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3197	3398	
==>'), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), return;
                }
        
                ### set up the files
                for my $meth (qw[r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4816	4924	
==>e

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4816	4924	
==>e

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4303	4414	
==>PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4303	4414	
==>PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4303	4414	
==>PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2189	2296	
==>[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2189	2296	
==>[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2189	2296	
==>[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1089	1207	
==>not an element of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #lookahead
#     If rules ta <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1015	1126	
==>unc($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1015	1126	
==>unc($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33653	33781	
==>= 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33653	33781	
==>= 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33653	33781	
==>= 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2828	2942	
==>_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2828	2942	
==>_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2828	2942	
==>_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	18	117	
==>EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	18	117	
==>EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	18	117	
==>EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = q <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6346	6454	
==>')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16831	16928	
==>may be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16831	16928	
==>may be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6358	6461	
==>handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6358	6461	
==>handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8555	8658	
==>handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C< <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2492	2613	
==>dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilM <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1870	2084	
==>ay::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# sig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1856	2043	
==>rName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1856	2043	
==>rName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1856	2043	
==>rName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	543	652	
==>head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	543	652	
==>head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	543	652	
==>head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4052	4158	
==>mand_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4052	4158	
==>mand_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4052	4158	
==>mand_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8518	8620	
==>t implemented.\n";
	return "";
    }
    if($kind eq 'Method') {
	$code_body = p6_catch_return_CODE($co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1307	1398	
==>ation of Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1307	1398	
==>ation of Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35351	35448	
==>()>

This method returns all Set Names elements in this object as an array ref.

=item C<get_membe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35351	35448	
==>()>

This method returns all Set Names elements in this object as an array ref.

=item C<get_membe <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	736	828	
==>sub CookiesAdd($variable, $value) {
    %Cookies{$variable}=$value;
}

sub GetCookie($variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1190	1294	
==>f;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1190	1294	
==>f;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1190	1294	
==>f;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18078	18204	
==>>visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14499	14625	
==>>visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13931	14049	
==>r->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13931	14049	
==>r->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13931	14049	
==>r->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	826	978	
==>>  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	826	978	
==>>  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1055	1174	
==>const/s )  
$_[1]     ? do { \$pos $direction= length \$&; 1 }
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	611	718	
==>08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	611	718	
==>08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	611	718	
==>08-27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27810	27908	
==>s will be run by C<$^X>, the currently-executing Perl.
However, you may want to have it run by a di <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	542	633	
==>remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	542	633	
==>remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2300	2456	
==>get_value('@:slots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shift;
                my $size = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13494	13596	
==>TI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13494	13596	
==>TI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13494	13596	
==>TI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	732	836	
==>ator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	732	836	
==>ator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singl <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5725	5827	
==>sult[-1] !! undef;
    @result;
}


# copied from S29draft.pod r8593.
multi Array::unshift (@array is r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5866	5973	
==>elf._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5866	5973	
==>elf._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12724	12830	
==>($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12724	12830	
==>($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12724	12830	
==>($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1765	1889	
==>o(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1765	1889	
==>o(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1765	1889	
==>o(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	204	312	
==>rom loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	204	312	
==>rom loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	204	312	
==>rom loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3405	3505	
==>:Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3405	3505	
==>:Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1619	1714	
==>leave_scope; # deletes pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash structure <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8006	8137	
==>P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint32($V);
            raise RangeError if $Result12 != ToNum <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1380	1496	
==>ld} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1380	1496	
==>ld} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7052	7216	
==>b {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7052	7216	
==>b {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7052	7216	
==>b {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1542	1664	
==>3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1542	1664	
==>3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pug <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	773	880	
==>tf8;
use strict;
use warnings;

use Set::Object ();
use Data::Dumper ();
use Storable ();

use Devel::STDERR <==
3	/Users/nnunley/pugs/util/package-osx.pl	201	308	
==>under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	392	490	
==>ent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	392	490	
==>ent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	392	490	
==>ent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40738	40830	
==>ht holders of
Locale::KeyedText would appreciate being informed any time you create a
modifie <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40738	40830	
==>ht holders of
Locale::KeyedText would appreciate being informed any time you create a
modifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9875	9969	
==>urn sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9875	9969	
==>urn sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9875	9969	
==>urn sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14472	14623	
==>f->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{po <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14472	14623	
==>f->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{po <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14472	14623	
==>f->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{po <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13611	13696	
==>it(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I,[42,120,D0,D1,D2,D3])}.
hexdigit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13859	13974	
==>.*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don' <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13859	13974	
==>.*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5598	5708	
==>etter way. :(
  }
}
{
  package Regexp::Parser::__object__;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1994	2099	
==>Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$chars <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1994	2099	
==>Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$chars <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14438	14532	
==>ttp://arglist.com/regex/  While the code has diverged,
  at least the library has some document <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2316	2538	
==>ch->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1456	1622	
==>ch->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1456	1622	
==>ch->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11656	11788	
==>$self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2090	2210	
==>$self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2090	2210	
==>$self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3523	3660	
==>, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3523	3660	
==>, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3523	3660	
==>, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11767	11862	
==>( $recurrence )`

Returns true if the closures that define the recurrences are exactly the same. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11767	11862	
==>( $recurrence )`

Returns true if the closures that define the recurrences are exactly the same. <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3744	3848	
==>extasciicircum\{\}/g;
#    $file =~ s/\~/\\textasciitilde\{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12907	13000	
==>depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) retur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12965	13058	
==>depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4411	4513	
==>"@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4411	4513	
==>"@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4411	4513	
==>"@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2335	2441	
==>ata::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2335	2441	
==>ata::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2682	2788	
==>ata::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2223	2384	
==>tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2223	2384	
==>tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

meth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22580	22706	
==>it' && ! defined $args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	886	979	
==>rom:
# - http://mail.python.org/pipermail/python-list/2005-March/270531.html
# and converted t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1328	1420	
==>til::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1328	1420	
==>til::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2482	2583	
==>rmal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2482	2583	
==>rmal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2482	2583	
==>rmal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	298	397	
==>tr $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	298	397	
==>tr $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	298	397	
==>tr $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1372	1523	
==>@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1372	1523	
==>@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2387	2498	
==>ift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

__PACKAGE__;

__END <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2693	2803	
==>l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2693	2803	
==>l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2693	2803	
==>l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21189	21436	
==>calar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21189	21436	
==>calar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21189	21436	
==>calar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11467	11586	
==>ers) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14944	15063	
==>ers) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@ot <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10176	10288	
==>epth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3270	3382	
==>de.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3270	3382	
==>de.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3270	3382	
==>de.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto: If in doubt use brute force!
    my sub expand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	962	1070	
==>tcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	962	1070	
==>tcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	962	1070	
==>tcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38115	38278	
==>r->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38115	38278	
==>r->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38115	38278	
==>r->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20804	20948	
==>_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11181	11297	
==>ue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11181	11297	
==>ue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1461	1569	
==>py parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1461	1569	
==>py parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1461	1569	
==>py parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret should be a boxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10167	10294	
==>om within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from differ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10167	10294	
==>om within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from differ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10167	10294	
==>om within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from differ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	62	150	
==>ies decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	62	150	
==>ies decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11296	11393	
==>pec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11296	11393	
==>pec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11296	11393	
==>pec->catdir($FindBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 li <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2119	2244	
==>ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2119	2244	
==>ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1145	1250	
==>ince even higher order functions get prims instead of thunks when
    # possible

    my $body = $thunk->v <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13671	13770	
==>ince even higher order functions get prims instead of thunks when possible

    my $body = $thunk->v <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8393	8490	
==>ne this with _switches()
to build a command line.

Typically this is C<$^X>, but you can set C<$EN <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3319	3437	
==>ce>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <RegularExpressionLiteral>
}
rule WhiteSpace {  # see 7. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	354	450	
==>e repository

=item pool

Path to the pool directory of the repository. $root/jibs if not specifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1869	1964	
==>{
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1869	1964	
==>{
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1869	1964	
==>{
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	315	424	
==>s if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on fin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	315	424	
==>s if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on fin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1476	1591	
==>|| '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1476	1591	
==>|| '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11222	11319	
==>ome way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11222	11319	
==>ome way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11222	11319	
==>ome way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. I <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11756	11852	
==>.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exactly <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11756	11852	
==>.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exactly <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6150	6264	
==>\s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24911	25004	
==>A  02110-1301, USA.

Linking Rosetta statically or dynamically with other components is making <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24911	25004	
==>A  02110-1301, USA.

Linking Rosetta statically or dynamically with other components is making <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40106	40218	
==>y( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40106	40218	
==>y( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40106	40218	
==>y( $key );
    $this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4021	4133	
==>ed $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4021	4133	
==>ed $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4021	4133	
==>ed $param{sum}; 

    $param{shifts}  = [] unless defined $param{shifts};
    $param{pops}    = [] unless defined <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7769	7905	
==>0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11771	11902	
==>0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11771	11902	
==>0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	375	492	
==>a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	580	697	
==>a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	636	753	
==>a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4739	4952	
==>_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = ba <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4003	4176	
==>_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = ba <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13419	13571	
==>_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6891	7025	
==>is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6891	7025	
==>is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6891	7025	
==>is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9441	9557	
==>aram'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optiona <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9441	9557	
==>aram'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optiona <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9441	9557	
==>aram'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a = '?'.$n6a if $is_optiona <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3449	3558	
==>f $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6926	7035	
==>f $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5883	5992	
==>f $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mapping.values;
    die "Some value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	664	781	
==>or_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	664	781	
==>or_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	664	781	
==>or_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_C <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7205	7304	
==>, digits_int(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	74	171	
==>Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	74	171	
==>Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18586	18695	
==>('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19944	20053	
==>('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13972	14071	
==>tem RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9660	9799	
==>bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \${\$hash->{'bool'}};
.
        $gen_match = "bless \\\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1155	1246	
==>remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1155	1246	
==>remote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5472	5606	
==>keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5694	5828	
==>keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19056	19148	
==>ckage Control::Basic {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_>, Grammar :$la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7879	8016	
==>magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7879	8016	
==>magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7879	8016	
==>magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i++) {
          if(marr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8796	8925	
==>) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8796	8925	
==>) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8796	8925	
==>) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8151	8247	
==>$k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&/ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21820	21913	
==>ropriate place, usually in the
main program, Locale::KeyedText can be given input that says wh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21820	21913	
==>ropriate place, usually in the
main program, Locale::KeyedText can be given input that says wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4832	5033	
==>ush( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4832	5033	
==>ush( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4832	5033	
==>ush( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $key ) ) );
                    $key = $_[0]->nextkey;
                }
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9504	9624	
==>e name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9504	9624	
==>e name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9504	9624	
==>e name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5347	5451	
==>ATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5347	5451	
==>ATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3206	3307	
==>[ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null_term  { \< null \> }

rule assertion <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1439	1625	
==>')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1439	1625	
==>')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1439	1625	
==>')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            }, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3263	3373	
==>R $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $warn = $@ ? "Eval of -CPerl5 code failed: $@\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1321	1430	
==>/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1321	1430	
==>/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7111	7216	
==>?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @terms, su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9460	9552	
==>($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9460	9552	
==>($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2715	2821	
==>thods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2715	2821	
==>thods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2715	2821	
==>thods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13665	13834	
==>ue::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13665	13834	
==>ue::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13665	13834	
==>ue::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	696	802	
==>lf, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1378	1484	
==>lf, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type" <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	2	102	
==>Beispielverknüpfungen
$a != $b;
$a ~~ $b;    # smart-match, mehr dazu gleich
#=Verknüpfungen in Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9227	9377	
==>(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              descrip <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1351	1493	
==>(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1351	1493	
==>(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            descrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2829	2939	
==>$arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2829	2939	
==>$arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2829	2939	
==>$arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpPar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8179	8314	
==>^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8179	8314	
==>^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          w <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6996	7106	
==>( $Test::Harness::Debug ) {
        local $^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5LI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2119	2225	
==>y_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2119	2225	
==>y_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2119	2225	
==>y_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15430	15541	
==>t = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15430	15541	
==>t = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	697	808	
==>as_perl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6_meta_CODE
       p6_initialize_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	221	343	
==>refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	221	343	
==>refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	221	343	
==>refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7393	7505	
==>o_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7393	7505	
==>o_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7393	7505	
==>o_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8384	8489	
==>substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8384	8489	
==>substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8384	8489	
==>substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	667	795	
==>ailure diagnostic
# messages
sub _diag {
    return unless @_;
    my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
               map <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7278	7400	
==>$program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7266	7388	
==>$program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1397	1499	
==>>is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1397	1499	
==>>is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1606	1708	
==>>is_optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8466	8580	
==>trc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2012	2119	
==>f = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $self <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14532	14638	
==>f = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	506	605	
==>s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	506	605	
==>s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	506	605	
==>s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name'; $my_arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5486	5589	
==>); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block furthe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5486	5589	
==>); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block furthe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5486	5589	
==>); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block furthe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26357	26469	
==>has all
of the tuples of the original (or rather, the corresponding projection of
each tuple), but that any dupli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30909	31021	
==>has all
of the tuples of the original (or rather, the corresponding projection of
each tuple), but that any dupli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29911	30023	
==>has all
of the tuples of the original (or rather, the corresponding projection of
each tuple), but that any dupli <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1689	1788	
==>ys represented by a named parameter (pair).  (The value of the 
pair is currently unused, but for fo <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1689	1788	
==>ys represented by a named parameter (pair).  (The value of the 
pair is currently unused, but for fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3090	3232	
==>t",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3090	3232	
==>t",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3090	3232	
==>t",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6579	6670	
==>"\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6579	6670	
==>"\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6579	6670	
==>"\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1005	1145	
==>rs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1005	1145	
==>rs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        } <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	2133	2247	
==>if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_day < $cur_day;
    } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13636	13728	
==>ith this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13636	13728	
==>ith this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13636	13728	
==>ith this attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => metho <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12456	12570	
==>,
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$co <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12456	12570	
==>,
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$co <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	377	478	
==>ned $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18110	18244	
==>ue::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18110	18244	
==>ue::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18110	18244	
==>ue::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::D <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9424	9526	
==>gInt-> bnan binf binf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**100',
		  '-i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1769	1863	
==>.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1769	1863	
==>.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6037	6127	
==>le.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6037	6127	
==>le.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8234	8324	
==>le.

=item B<Test::Builder::Test::Pass>

=item B<Test::Builder::Test::Fail>

These next two <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4116	4389	
==>sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and(
                          block->new($e, sub {
                              my $e = shift;
                              $e->get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5130	5233	
==>tter   => 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4952	5052	
==>tter   => 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2174	2284	
==>{
		my $r = $runtime_class->new;

		my $result;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} "${runt <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3565	3665	
==>rns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3565	3665	
==>rns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3659	3762	
==>finite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is inten <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3659	3762	
==>finite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is inten <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1824	1979	
==>nstance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2029	2184	
==>nstance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2092	2247	
==>nstance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supercl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9580	9721	
==>$v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array::reverse (   @values --> Lazy|Str) {
 multi  List::reverse ( *@values --> Lazy|S <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1639	1763	
==>ter"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union " <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1639	1763	
==>ter"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9722	9846	
==>pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9722	9846	
==>pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9722	9846	
==>pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5372	5493	
==>'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronized'> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	180	282	
==>tring, and it provides the fundamental operations on strings as
combinators.

    $.text     - The stri <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	180	282	
==>tring, and it provides the fundamental operations on strings as
combinators.

    $.text     - The stri <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1616	1758	
==>]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1616	1758	
==>]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10663	10756	
==>al_space))    --> "\\v", !.
p6_char_class(class_neg(vertical_space))    --> "\\H", !.
p6_char_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	718	836	
==>e};
    Dumper($ast);
    $_ = q[rule {
    package Pugs::Runtime::Rule;
    my $grammar = shift;
    ].Pugs::Emitter:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2241	2339	
==>tem($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2219	2317	
==>tem($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1046	1170	
==>k>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1446	1570	
==>k>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1920	2044	
==>k>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : "" <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6522	6636	
==>e a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method rev <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6522	6636	
==>e a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method rev <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	756	860	
==>ry and the tests will run somewhere quite different!
$config{'root'}             = [ $Cwd->subdir('fr') ] <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	374	494	
==>ect->new;

    $self->reduce($program);

	$self->{dups}->members;
}

sub generic_reduce {
    my $self = shift;
    my $n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26293	26390	
==>se attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the origi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30845	30942	
==>se attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the origi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40176	40290	
==>lue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40176	40290	
==>lue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40176	40290	
==>lue;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	923	1037	
==>ub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	923	1037	
==>ub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	923	1037	
==>ub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->is <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4262	4361	
==>rrently only has one function, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	309	406	
==>uments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Cou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	309	406	
==>uments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Cou <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	78	186	
==>n bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a buc <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	78	186	
==>n bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a buc <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2057	2159	
==>> "recursion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7419	7536	
==>als::VRule, Str)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      spre    = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1631	1723	
==>ss Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1631	1723	
==>ss Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1332	1431	
==>urns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1332	1431	
==>urns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23720	23816	
==>module won't simply
send all commands immediately to the server, but creates a queue, which is th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23720	23816	
==>module won't simply
send all commands immediately to the server, but creates a queue, which is th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	24	128	
==>::Var;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3587	3710	
==>om;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3587	3710	
==>om;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3587	3710	
==>om;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	379	516	
==>{
        # if there's no prefix, we want an install.
        $args[0] = 'install';
    }
    else {
        # If this is merely a copy, t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7365	7455	
==>name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1190	1280	
==>name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1150	1300	
==>+ $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $versio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1029	1179	
==>+ $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $versio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10657	10758	
==>l, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both 'prog' and 'pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1431	1538	
==>ring(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1431	1538	
==>ring(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1431	1538	
==>ring(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5878	5983	
==>est )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=hea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5878	5983	
==>est )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7402	7507	
==>est )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22384	22475	
==>cified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>qui <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22384	22475	
==>cified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>qui <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18346	18437	
==>ropriate measures
such as system-managed locks so that resource corruption or application
fa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18346	18437	
==>ropriate measures
such as system-managed locks so that resource corruption or application
fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2510	2613	
==>alue and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value che <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2510	2613	
==>alue and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value che <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2510	2613	
==>alue and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5320	5428	
==>{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5320	5428	
==>{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5320	5428	
==>{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSC <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18289	18402	
==>om
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_1:
    self["cutnum"] = $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1858	1953	
==>ethod universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1858	1953	
==>ethod universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( star <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1166	1293	
==>ifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text hand <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1166	1293	
==>ifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text hand <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2257	2347	
==>m($^X, qw(-w ./util/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml ha <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7638	7784	
==>ure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7638	7784	
==>ure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	37	137	
==>rict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug($);

our $compre <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	136	282	
==>pec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*) <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	136	282	
==>pec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28411	28509	
==>verride this,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9464	9571	
==>st:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autof <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9464	9571	
==>st:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autof <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12397	12500	
==>lues %$env
	);
}

# entering a function creates a new env (the parameter is associated with a new type v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2268	2448	
==>method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2268	2448	
==>method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2268	2448	
==>method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('acc') || ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5128	5242	
==>[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDef <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5128	5242	
==>[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDef <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2032	2146	
==>[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDef <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37585	37761	
==>, (symbol->new('%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod

=cut

$::Class- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1748	1931	
==>vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1748	1931	
==>vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1360	1489	
==>gs.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1360	1489	
==>gs.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1360	1489	
==>gs.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20963	21067	
==>' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20963	21067	
==>' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20963	21067	
==>' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MUL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8954	9165	
==>ol->new('$label' => 'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  - <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18736	18833	
==>ect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18736	18833	
==>ect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and e <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2183	2324	
==>+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->ne <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26736	26832	
==>y members of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31288	31384	
==>y members of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5429	5536	
==>h => $() ,} }
RULE
*{'_print'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (print|say| <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4086	4185	
==>topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4086	4185	
==>topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1597	1713	
==>rse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1597	1713	
==>rse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1597	1713	
==>rse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1443	1548	
==>text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1443	1548	
==>text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1443	1548	
==>text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	362	491	
==>"\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is built <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18216	18312	
==>bjects want to use the same external resources, such as a repository file
on disk, it is expected <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18216	18312	
==>bjects want to use the same external resources, such as a repository file
on disk, it is expected <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	148	257	
==>8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	148	257	
==>8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36330	36425	
==>ook-behind, 1 if look-ahead

Ender: tail

=head2 suspend

Family: assertion

Types: suspend (C<< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5026	5171	
==>> 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4852	4991	
==>> 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6510	6611	
==>t = eval($code);
	Carp::confess("p6_new($cls,$name,...):\n$@\n") if $@;
	return $ret;
    }
    if($cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1268	1463	
==>h( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1268	1463	
==>h( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1268	1463	
==>h( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22794	23003	
==>ar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - te <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22794	23003	
==>ar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - te <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22794	23003	
==>ar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	544	658	
==>hout the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	544	658	
==>hout the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	544	658	
==>hout the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say J <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7380	7492	
==>el::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7380	7492	
==>el::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'inte <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10616	10712	
==>s'=>$code_params,";
    $code_args .= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	307	463	
==>al_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	307	463	
==>al_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	307	463	
==>al_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4498	4584	
==>ind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4498	4584	
==>ind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4498	4584	
==>ind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	301	422	
==>.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/grou <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	301	422	
==>.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/grou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40873	40962	
==>rser->awarn(RPe_ERRMSG, ARGS...)

Unconditionally throws a warning.  Primarily useful when <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1594	1701	
==>afe::Flatten;
	use base qw/Blondie::Reducer/;
	
	use Scalar::Util ();
	
	sub new { bless {}, shift }

	sub r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1711	1808	
==>nsional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed ' <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1711	1808	
==>nsional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10461	10606	
==>-----    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10461	10606	
==>-----    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10461	10606	
==>-----    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	753	872	
==>ALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	753	872	
==>ALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	753	872	
==>ALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4166	4289	
==>.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4166	4289	
==>.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4166	4289	
==>.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5396	5522	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5589	5715	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23407	23509	
==>e $self: list ?@superclasses) returns list {
    if (@superclasses.defined) {
        for @superclasses <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1775	1904	
==>$filename)->get_p6_file;
	    $eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6337	6444	
==>finite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    retur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6337	6444	
==>finite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7084	7249	
==>";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7084	7249	
==>";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "no <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7084	7249	
==>";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11775	11881	
==>6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11775	11881	
==>6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11775	11881	
==>6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7995	8095	
==>{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7995	8095	
==>{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7995	8095	
==>{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3932	4029	
==>Completeness

\G, pos(), etc, are not yet supported.

=back

=head1 AUTHORS

The Pugs Team E<lt>pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3715	3826	
==>, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3715	3826	
==>, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3715	3826	
==>, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17349	17447	
==>t also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17349	17447	
==>t also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17349	17447	
==>t also implements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14310	14413	
==>BRACE (-20)

Missing right brace on \%s{}

=item RPe_BGROUP (-21)

Reference to nonexistent group

=item <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3340	3442	
==>alue for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3340	3442	
==>alue for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::Keye <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3015	3289	
==>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3015	3289	
==>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4105	4204	
==>|| []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4105	4204	
==>|| []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4695	4794	
==>|| []}) {
	if ($param->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	222	323	
==>%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tre <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	222	323	
==>%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tre <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2241	2340	
==>);

Analyzes the output of a single test, assigning it the given C<$name>
for use in the total repor <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1908	2010	
==>urning this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stri <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1908	2010	
==>urning this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stri <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	84	186	
==>-> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newt <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	84	186	
==>-> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23394	23496	
==>t> <','> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <SourceElements>
}
rule Progr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3197	3300	
==>{returns} = 'type' if !(exists $options{returns});
    bless { %options } => $class;
}

sub params  { (s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5127	5223	
==>e base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::operat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4539	4703	
==>}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4539	4703	
==>}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4539	4703	
==>}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $k <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10321	10434	
==>tion( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13798	13911	
==>tion( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13079	13192	
==>tion( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matc <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6474	6573	
==>ng / as-they-come, because
# we want to preserve ordering anyway and it's probably okay to keep a fe <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	65	163	
==>r is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { % <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	65	163	
==>r is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { % <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1467	1582	
==>ub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1467	1582	
==>ub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]} <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18267	18377	
==>oken == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4715	4814	
==>tialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4715	4814	
==>tialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4128	4230	
==>Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4128	4230	
==>Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4128	4230	
==>Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3753	3872	
==>('symbol'))
        || confess "You must store a symbol type in a param list"
            foreach @values;
    $class->S <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22283	22379	
==>subroutines or export such.

The usual way that Rosetta indicates a failure is to throw an except <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22283	22379	
==>subroutines or export such.

The usual way that Rosetta indicates a failure is to throw an except <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6687	6814	
==>boxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6687	6814	
==>boxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6687	6814	
==>boxed' => Perl6::Value::Str::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8180	8297	
==>r instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8180	8297	
==>r instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8180	8297	
==>r instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11993	12081	
==>_more(char(C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6480	6589	
==>arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6480	6589	
==>arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6480	6589	
==>arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unb <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1129	1236	
==>List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. using simplified one.
#multi Array::p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32823	32916	
==>ined external files for reading, mainly in the
C<translate_message()> method, but it has no ot <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32823	32916	
==>ined external files for reading, mainly in the
C<translate_message()> method, but it has no ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2056	2158	
==>? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2056	2158	
==>? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2056	2158	
==>? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1170	1266	
==>te_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1170	1266	
==>te_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	363	520	
==>hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        meth <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	363	520	
==>hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        meth <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	363	520	
==>hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1577	1698	
==>>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1577	1698	
==>>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1577	1698	
==>>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6563	6688	
==>Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6563	6688	
==>Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6563	6688	
==>Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1072	1195	
==>bytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $qu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1072	1195	
==>bytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $qu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	183	300	
==>>new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PIL::Run::Containe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	265	366	
==>urdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	265	366	
==>urdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23127	23217	
==>see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23127	23217	
==>see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23127	23217	
==>see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::localtime ($x <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2933	3080	
==>nt(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2933	3080	
==>nt(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16154	16252	
==>params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16154	16252	
==>params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16154	16252	
==>params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_list' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3526	3641	
==>ss, _where(), $name, @mess);
}

sub isnt ($$@) {
    my ($got, $isnt, $name, @mess) = @_;

    my $pass;
    if( !de <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	700	793	
==>he channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	700	793	
==>he channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1874	1987	
==>= shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(": <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1874	1987	
==>= shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(": <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	298	400	
==>oke' make target that uploads the results of this
#    to a server somewhere.


package Test::Harness:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	359	477	
==>= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	359	477	
==>= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	359	477	
==>= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6192	6322	
==>(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5994	6117	
==>(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the retu <==
3	/Users/nnunley/pugs/util/importgraph.pl	2083	2168	
==>rser_program', 'Pugs.Parser.Program');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$/);
setu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2917	3019	
==>altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2917	3019	
==>altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2917	3019	
==>altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	661	754	
==>time_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	661	754	
==>time_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	661	754	
==>time_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8665	8776	
==>ublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8665	8776	
==>ublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8665	8776	
==>ublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22143	22261	
==>t }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18564	18682	
==>t }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(e <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11715	11829	
==>t = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data::Dumper::Terse = 1; # no need for p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4536	4630	
==>->force_object(anyof_char_comp => "\r", '\R') if $cc;
    return $S->object(exact_comp => "\r", <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3849	3941	
==>t to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.ee <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3849	3941	
==>t to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.ee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14462	14618	
==>ift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14462	14618	
==>ift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14462	14618	
==>ift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	676	808	
==>:Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	676	808	
==>:Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	676	808	
==>:Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8264	8415	
==>f( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8264	8415	
==>f( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8264	8415	
==>f( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8128	8260	
==>k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unkno <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8140	8272	
==>k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unkno <==
3	/Users/nnunley/pugs/util/grokprims.pl	484	594	
==>~ s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or die "Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5785	5894	
==>yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5785	5894	
==>yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6375	6484	
==>yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3164	3254	
==>Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3164	3254	
==>Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3164	3254	
==>Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35950	36088	
==>body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35950	36088	
==>body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35950	36088	
==>body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative len <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3036	3191	
==>er::Regex->compile( q(
        \!      # $!
    |   \??     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for so <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2024	2130	
==>s(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse ar <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2024	2130	
==>s(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2179	2291	
==>named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2167	2279	
==>named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 un <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	795	903	
==>ATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         retu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	795	903	
==>ATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         retu <==
3	/Users/nnunley/pugs/util/package-osx.pl	5147	5235	
==>usr/local/man/man3/Perl6::Bible::S27.3pm
        /usr/local/man/man3/Perl6::Bible::S28.3p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10091	10193	
==>se PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10091	10193	
==>se PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10091	10193	
==>se PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::P <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	389	484	
==>y much in a state of flux.

=cut

class JSX::PseudoValue;
class JSX::InternalValue is JSX::Pseud <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11349	11443	
==>his recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns only th <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11349	11443	
==>his recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns only th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5269	5370	
==>{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5269	5370	
==>{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5269	5370	
==>{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1831	1967	
==>ould like to help out, let me know, and I'll upload more of
the development environment.

Recognition is due
  Salvador Fandino Garcia  f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6428	6532	
==>rer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6428	6532	
==>rer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5005	5144	
==>:CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_wit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5005	5144	
==>:CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_wit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5005	5144	
==>:CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	368	476	
==>e} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	368	476	
==>e} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	368	476	
==>e} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1011	1119	
==>n str->new($left->to_native . $right->to_str->to_native);
}

1;

__END__

=pod

=head1 NAME

str - the core s <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1597	1700	
==>S_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6517	6632	
==>vocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6517	6632	
==>vocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6517	6632	
==>vocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False []
    #   isNa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38441	38567	
==>e {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38441	38567	
==>e {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38441	38567	
==>e {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	925	1062	
==>ring($result); # works for all nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCR <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3707	3804	
==>s class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3707	3804	
==>s class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set:: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6947	7032	
==>\.").
p5_metachar("[").
p5_metachar("^").
p5_metachar("$"). %"
p5_metachar("(").
p5_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1481	1573	
==>endChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1481	1573	
==>endChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1481	1573	
==>endChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2634	2734	
==>=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2634	2734	
==>=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2634	2734	
==>=jspm --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4508	4608	
==>sitional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4508	4608	
==>sitional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5098	5198	
==>sitional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5961	6096	
==>bute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5961	6096	
==>bute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5961	6096	
==>bute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{methods}}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6040	6212	
==>ifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6040	6212	
==>ifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6040	6212	
==>ifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( defined $step ) { <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8199	8302	
==>ious reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8199	8302	
==>ious reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6518	6624	
==>urn $S->object(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13464	13565	
==>o a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13464	13565	
==>o a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1361	1481	
==>).

=head1 SYNOPSIS

    use base qw/Blondie::Reducer::DynamicScoping/;

    ...

    $self->enter_scope; # opens a new s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	84	175	
==>HTTP::Headers $!headers handles «
    header push_header init_header remove_header remove_c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	84	175	
==>HTTP::Headers $!headers handles «
    header push_header init_header remove_header remove_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18320	18515	
==>ub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18320	18515	
==>ub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18320	18515	
==>ub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27844	28000	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28123	28279	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ru <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17158	17255	
==>}
}

(method BUILDALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self: cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17097	17193	
==>e ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17097	17193	
==>e ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17097	17193	
==>e ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8372	8476	
==>elf.span.union( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].comp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8372	8476	
==>elf.span.union( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].comp <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	389	505	
==>ching,
    ### sort by highest version
    ### XXX this should be a policy decision
    my @metas = sort { $b->{versi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11022	11162	
==>t __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8088	8224	
==>t __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8088	8224	
==>t __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6128	6252	
==>t->next;
    }
    $self->create($name, $value);
}

sub get {
    my ($self, $name) = @_;
    (defined $name) 
        || con <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6872	6985	
==>t module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$modul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6872	6985	
==>t module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$modul <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13361	13478	
==>ce's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16838	16955	
==>ce's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16200	16317	
==>ce's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7859	7965	
==>ceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    re <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7859	7965	
==>ceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    re <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4267	4354	
==>8182845904523536028747135266249775724709369995957496696762772407663;
    # http://www.re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4216	4333	
==>d take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4216	4333	
==>d take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4216	4333	
==>d take care not
to call them in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Cl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2986	3097	
==>.............ok
  t/test-harness......ok
  t/waterloo..........dubious
          Test returned status 3 (wstat 7 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	212	320	
==>= @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	285	393	
==>= @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3533	3668	
==>", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see abo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3533	3668	
==>", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see abo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3533	3668	
==>", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see abo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6663	6798	
==>2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6663	6798	
==>2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6663	6798	
==>2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16659	16875	
==>rn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16659	16875	
==>rn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16659	16875	
==>rn $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $clas <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1389	1487	
==>,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1389	1487	
==>,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2764	2861	
==>pe->class, \&Object, '... got the right class name');

is($p->get_x, 5, '... got the right x for p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40509	40633	
==>rn $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40509	40633	
==>rn $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40509	40633	
==>rn $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13386	13485	
==>->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7595	7694	
==>->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	795	965	
==>],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19629	19723	
==>nd C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19629	19723	
==>nd C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9930	10054	
==>ure new 
                ((params  (closure::params new (symbol new ("&dispatcher" <block>))))
                 (returns <met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6612	6718	
==>an);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6612	6718	
==>an);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12619	12740	
==>nboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12619	12740	
==>nboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12619	12740	
==>nboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed') <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5878	6013	
==>"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5878	6013	
==>"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    " <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8992	9101	
==>};
    return $^X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Formats and returns the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2927	3058	
==>s();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2927	3058	
==>s();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2927	3058	
==>s();
      var hash  = new PIL2JS.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flat <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2011	2101	
==>AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2011	2101	
==>AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26025	26115	
==>sts(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10283	10406	
==>els       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.conne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10283	10406	
==>els       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.conne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	530	630	
==>of those objects (or possibly
    # the default values too)
    (blessed($signature) && ($signature-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1593	1689	
==>d1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1593	1689	
==>d1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	180	275	
==>/../pugs -I . -e \'use Grammar; if slurp("'.$jsfile.'") ~~ /^<JavaScript::ECMAScript3::Grammar:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15074	15254	
==>=> 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15074	15254	
==>=> 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15074	15254	
==>=> 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37041	37134	
==>so has these utility methods, which are all used by
translate_message() to handle the trickier <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37041	37134	
==>so has these utility methods, which are all used by
translate_message() to handle the trickier <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26694	26792	
==>respectively.  This method will fail if
any members of C<$attrs> do not match attribute names of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31246	31344	
==>respectively.  This method will fail if
any members of C<$attrs> do not match attribute names of th <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1780	1883	
==>dren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1780	1883	
==>dren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1339	1464	
==>ue_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1339	1464	
==>ue_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1339	1464	
==>ue_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1583	1716	
==>discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1583	1716	
==>discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1583	1716	
==>discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	696	801	
==>(args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	696	801	
==>(args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	696	801	
==>(args) {
    var fetch = args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. T <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9049	9171	
==>on ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expres <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	507	616	
==>on ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, $expres <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	141	239	
==>e vars qw($VERSION);
use Config;
$VERSION = '0.20';

use Test::Harness::Assert;
use Test::Harness:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	959	1100	
==>" .
        "; 1;\n";

    {
      # Perl::Tidy is used if available
      local $@;   # don't care if there are errors here
      local @ARGV <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3485	3581	
==>unctional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, y <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3485	3581	
==>unctional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, y <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1059	1234	
==>$3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $seco <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2398	2508	
==>0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0 <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2398	2508	
==>0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33970	34089	
==>::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33970	34089	
==>::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33970	34089	
==>::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3481	3607	
==>ected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3481	3607	
==>ected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5005	5131	
==>ected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $ex <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4091	4193	
==>n a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4091	4193	
==>n a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	399	495	
==>:JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl::Type $.one;
has Perl::Type $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2296	2427	
==>cro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2296	2427	
==>cro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2296	2427	
==>cro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1858	1964	
==>js.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1858	1964	
==>js.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1858	1964	
==>js.pl with an approproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1121	1237	
==>K_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1121	1237	
==>K_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1121	1237	
==>K_TIMEOUT};
$timeout = 1*60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2111	2284	
==>element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_b <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2111	2284	
==>element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_b <==
3	/Users/nnunley/pugs/util/grokprims.pl	977	1118	
==>ssoc} or
               @{$a->{args}} <=> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11105	11256	
==>';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1579	1714	
==>';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1579	1714	
==>';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1719	2046	
==>t>)
                                    ),
                                ),
                            ),
                        ),                        
                        Tree.new(:node<Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4986	5080	
==>dText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4986	5080	
==>dText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1686	1801	
==>_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1686	1801	
==>_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1922	2037	
==>_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	703	818	
==>\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
	my $p5 = p6_wr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8730	8840	
==>ve(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8730	8840	
==>ve(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3567	3686	
==>se );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_interse <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3567	3686	
==>se );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_interse <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3693	3792	
==>arn\n" if $warn;
	    $self->{'pil_code'} = Perl6::Run::OnPerl5::X1::Result->new($pil_code,$warn,$fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5523	5631	
==>x)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5523	5631	
==>x)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5523	5631	
==>x)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
M <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7879	8011	
==>e' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7879	8011	
==>e' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10498	10702	
==>1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6839	7043	
==>1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7688	7892	
==>1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	758	863	
==>m here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	758	863	
==>m here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	37	133	
==>:29Z andy $

package Test::Harness::Assert;

use strict;
require Exporter;
use vars qw($VERSION @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5245	5336	
==>method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5245	5336	
==>method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5245	5336	
==>method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2478	2623	
==>har* stringarg, char* strend,
                          char* strbeg, I32 minend, SV* screamer,
                          void* data, U32 flags)
{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26813	26905	
==>med parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the correspond <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26813	26905	
==>med parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the correspond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3669	3785	
==>ispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3669	3785	
==>ispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3669	3785	
==>ispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8525	8674	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8718	8867	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&va <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11462	11563	
==>ee 9.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUns <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7301	7422	
==>\n";
        return;
    }

    my %results = $self->analyze_fh($file, \*FILE);
    my $exit = close FILE;
    $results{'w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15484	15596	
==>mc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_out <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15484	15596	
==>mc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_out <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4171	4304	
==>p { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4171	4304	
==>p { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4171	4304	
==>p { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25079	25204	
==>ss {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	691	782	
==>onstant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use constant RPe_BADFLG => --$ENUM, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	724	821	
==>beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	724	821	
==>beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	724	821	
==>beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->reb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2368	2459	
==>del;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2368	2459	
==>del;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2368	2459	
==>del;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/util/package-osx.pl	6098	6223	
==>3pm
        /usr/local/man/man3/Perl6::Overview::Object.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3281	3375	
==>ue1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=ba <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3281	3375	
==>ue1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47077	47206	
==>>set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace')));
                  }))
                  ->or(block->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1341	1450	
==>$grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1341	1450	
==>$grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	165	286	
==>args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	165	286	
==>args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	165	286	
==>args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2978	3078	
==>close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2978	3078	
==>close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2978	3078	
==>close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13320	13424	
==>ms) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13320	13424	
==>ms) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13320	13424	
==>ms) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_at <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3228	3334	
==>ear => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represe <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3228	3334	
==>ear => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1955	2084	
==>,} }", 
    ternary_non =>       
        "exp 'name' exp 'name2' exp \n" .
        "\t{ \$_[0]->{out}= {fixity => 'ternary', o <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4402	4504	
==>two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.d <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4402	4504	
==>two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2784	2911	
==>me::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1840	1931	
==>rovides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1929	2020	
==>rovides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4959	5078	
==>al operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4959	5078	
==>al operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4959	5078	
==>al operator and auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	745	893	
==>ect');
            return "Expected " . _('$:expect') . " but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4266	4363	
==>scription? )>

Compares the receivied and expected lines from the previously run tests,
passing if <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4266	4363	
==>scription? )>

Compares the receivied and expected lines from the previously run tests,
passing if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4346	4443	
==>scription? )>

Compares the receivied and expected lines from the previously run tests,
passing if <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2380	2509	
==>if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont = $ope <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8997	9106	
==>$t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which mi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8997	9106	
==>$t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which mi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4944	5076	
==>lue::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4944	5076	
==>lue::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4944	5076	
==>lue::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	243	350	
==>=> $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	243	350	
==>=> $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	243	350	
==>=> $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1498	1609	
==>{ $_[0]->{out}= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{out}= { <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15836	15934	
==>or `end` values belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of th <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15836	15934	
==>or `end` values belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of th <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2579	2686	
==>>type);
}

sub resolve_type {
	my $self = shift;
	my $type = shift;

	$type = $type->type while Scalar::Util <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2138	2237	
==>'{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2138	2237	
==>'{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5638	5776	
==>e $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5638	5776	
==>e $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub const <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7042	7160	
==>ok(0, _where(), @_);
}

sub curr_test {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# N <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5967	6058	
==>_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5967	6058	
==>_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2866	2957	
==>_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8628	8728	
==>h (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8628	8728	
==>h (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1058	1152	
==>DESCRIPTION

The blondie intermediate language is a language for machines and not for
humans. I <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	151	264	
==>:TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items ma <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	151	264	
==>:TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8313	8442	
==>,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8313	8442	
==>,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8313	8442	
==>,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1626	1751	
==>e); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub compile_to_c {
	my $self = shift;
	
	my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6276	6388	
==>nstant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6264	6376	
==>nstant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22263	22365	
==>chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22263	22365	
==>chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22263	22365	
==>chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $x <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	847	943	
==>d()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	847	943	
==>d()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_ <==
3	/Users/nnunley/pugs/util/func_refact.pl	2366	2503	
==>oring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total cal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1465	1561	
==>und values for them.

It includes the parameters as well as anything declared within

that scope. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1404	1498	
==>und values for them.
It includes the parameters as well as anything declared within
that scope. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5644	5759	
==>public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<statu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5644	5759	
==>public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<statu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7841	7956	
==>public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a single method:

=over 4

=item B<statu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4265	4397	
==>l6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4117	4244	
==>l6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	605	726	
==>size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	605	726	
==>size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	661	757	
==>nature->isa('closure::signature')))
        || confess "signature must be an closure::params or c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1316	1411	
==>0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_contro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1316	1411	
==>0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_contro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1316	1411	
==>0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_contro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2025	2136	
==>e();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2025	2136	
==>e();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2025	2136	
==>e();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5060	5179	
==>xport {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "bro <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5118	5237	
==>xport {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "bro <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	384	503	
==>my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6725	6884	
==>return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6725	6884	
==>return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6725	6884	
==>return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	624	710	
==>----------------------------------------------------------------
## private methods

my <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	624	710	
==>----------------------------------------------------------------
## private methods

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	646	753	
==>nEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	646	753	
==>nEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	646	753	
==>nEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects of t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	351	493	
==>~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	351	493	
==>~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	990	1094	
==><a>'));
    my $b = emit(get_data($_[0], '$<b>'));
	return $a.'.'.$b;
}
sub node::grammar_name {
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11825	11961	
==>runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes un <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6925	7058	
==>_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6925	7058	
==>_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2219	2321	
==>rait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2219	2321	
==>rait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2219	2321	
==>rait_verb:|trait_auxiliary:|scope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5697	5803	
==>>val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leave_scope <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5868	5972	
==>ll $v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v)   { ?$v :: JSX::true :: +0 }
multi sub ToNu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8074	8172	
==>s method should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8074	8172	
==>s method should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8233	8365	
==>e', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8426	8558	
==>e', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1519	1622	
==>--prefix', "$pwd/dist");
        system("../../Setup$Config{_exe}", 'unregister', '--user');

        pr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15102	15196	
==>es of arbitrary depth and of
an arbitrary type. The function signatures will likely look someth <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15160	15254	
==>es of arbitrary depth and of
an arbitrary type. The function signatures will likely look someth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44801	45044	
==>y $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ----------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	528	618	
==>ementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	528	618	
==>ementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6746	6850	
==>tTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6746	6850	
==>tTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6746	6850	
==>tTimeout
  // (needed for &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13966	14075	
==>ub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13966	14075	
==>ub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13966	14075	
==>ub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15646	15741	
==>lues
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15646	15741	
==>lues
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3057	3167	
==>atten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3057	3167	
==>atten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3057	3167	
==>atten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	651	762	
==>ription ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	651	762	
==>ription ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2374	2482	
==>$smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{runcore}       = pugspath2runcore( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11207	11334	
==>his->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11207	11334	
==>his->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11207	11334	
==>his->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset t <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6013	6276	
==>de = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some mo <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6013	6276	
==>de = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some mo <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1479	1581	
==>from($file);
    $self->perl_version_from($file);

    # The remaining probes read from POD sections; i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3536	3651	
==>ss($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('du <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3536	3651	
==>ss($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('du <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3536	3651	
==>ss($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_method('du <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2838	2951	
==>y $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3302	3415	
==>y $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{de <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	481	593	
==>ate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7133	7249	
==>)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7133	7249	
==>)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7133	7249	
==>)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5042	5159	
==>my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5042	5159	
==>my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5042	5159	
==>my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum * <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14763	14867	
==>t' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, \$how <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1876	1979	
==>ch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1876	1979	
==>ch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2522	2645	
==>r $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2522	2645	
==>r $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2522	2645	
==>r $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(fun <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9066	9194	
==>Prim->new(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	371	475	
==>Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	447	551	
==>Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2313	2429	
==>TP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Qu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2313	2429	
==>TP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Qu <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	242	352	
==>-----------------------------------------------

sub IDGenerate {
    my($id)='';
    for (1..32) { $id~=chr(65 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19166	19271	
==>apply 
        ($self: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->se <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1473	1572	
==>escape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1473	1572	
==>escape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5319	5439	
==>cts currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5319	5439	
==>cts currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5319	5439	
==>cts currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	234	338	
==>ss {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	234	338	
==>ss {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	234	338	
==>ss {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15477	15596	
==>ttr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15477	15596	
==>ttr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15477	15596	
==>ttr($class => $method_table_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1322	1424	
==>(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1322	1424	
==>(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1322	1424	
==>(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2343	2490	
==>abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # up <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2269	2407	
==>abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # up <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6777	6886	
==>and {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6777	6886	
==>and {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6777	6886	
==>and {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3907	4090	
==>.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $re <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3907	4090	
==>.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5839	5954	
==>hod_list' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{'%: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5131	5227	
==>l);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5131	5227	
==>l);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5131	5227	
==>l);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6151	6283	
==>uired parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6151	6283	
==>uired parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6151	6283	
==>uired parameter \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1074	1185	
==>ll the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1074	1185	
==>ll the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1074	1185	
==>ll the real _exportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2744	2891	
==>flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2884	3031	
==>flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24997	25122	
==>) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21418	21543	
==>) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3306	3438	
==>my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4155	4287	
==>my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1683	1796	
==>$.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cs <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1683	1796	
==>$.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5802	5908	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (die|\.\.\.) \;
        { return { _simple_state <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2935	3046	
==>,  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2935	3046	
==>,  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2935	3046	
==>,  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3553	3668	
==>ft };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3553	3668	
==>ft };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3553	3668	
==>ft };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $html = <<EOF;
<! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6588	6734	
==>')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6588	6734	
==>')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6588	6734	
==>')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13282	13433	
==>self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13282	13433	
==>self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13282	13433	
==>self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9595	9718	
==>y_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9595	9718	
==>y_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9595	9718	
==>y_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $sl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1966	2080	
==>b () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1966	2080	
==>b () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	855	969	
==>infix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1373	1503	
==>') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1373	1503	
==>') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1373	1503	
==>') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => su <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1017	1117	
==>..

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It i <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1017	1117	
==>..

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14065	14182	
==>t;

    # the body is a code ref
    $self->enter_scope;
    my @params = $self->params;

    my $v = $prim->body->($s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2756	2852	
==>.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2756	2852	
==>.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6663	6758	
==>:opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6663	6758	
==>:opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6663	6758	
==>:opaque_instance_class($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2076	2201	
==>self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2076	2201	
==>self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2076	2201	
==>self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5103	5237	
==>CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5103	5237	
==>CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5103	5237	
==>CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3061	3179	
==>t *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3061	3179	
==>t *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3061	3179	
==>t *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27604	27698	
==>of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32156	32250	
==>of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31248	31342	
==>of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2418	2542	
==>=> ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2418	2542	
==>=> ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2418	2542	
==>=> ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1322	1415	
==>:$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1322	1415	
==>:$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19970	20139	
==>:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40430	40599	
==>:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	47	158	
==>in Strings:
$a = "a" x 3  # "aaa"

#=der xx Operator
# neu in Perl 6 ist der xx Operator
# so wie x Strings wied <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14200	14415	
==>$::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14200	14415	
==>$::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14200	14415	
==>$::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1420	1525	
==>bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1420	1525	
==>bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1420	1525	
==>bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4539	4645	
==>bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19355	19449	
==>at indicates the
authentication scheme and parameters applicable to the requested URI.

=item $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19355	19449	
==>at indicates the
authentication scheme and parameters applicable to the requested URI.

=item $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16803	16924	
==>l::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16803	16924	
==>l::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16803	16924	
==>l::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19818	19914	
==>bilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resources <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19818	19914	
==>bilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resources <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	56	148	
==>nline 'INFO','NOISY','FORCE';
use lib 'lib';
use Inline::Parrot::PMC 'get_int';
use Inline C= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3170	3277	
==>valid header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes perl5

* perl5 will call the C<v6.pm> mod <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	52	139	
==>code_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	52	139	
==>code_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18508	18663	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18787	18942	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::op <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19550	19661	
==>}
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($tot <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28921	29037	
==>the same names as old
attributes that become wrapped, and it supports having new tuple-valued
attributes which wrap z <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33473	33589	
==>the same names as old
attributes that become wrapped, and it supports having new tuple-valued
attributes which wrap z <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32610	32726	
==>the same names as old
attributes that become wrapped, and it supports having new tuple-valued
attributes which wrap z <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6779	6880	
==>ests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=he <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6779	6880	
==>ests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8976	9077	
==>ests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2794	2911	
==>atten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2794	2911	
==>atten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2794	2911	
==>atten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pai <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4326	4417	
==>tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ define <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4326	4417	
==>tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ define <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13890	14025	
==>success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13890	14025	
==>success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12158	12263	
==>ls, and the initial set of generic variables
ROOT: env($$) = { Clone::clone(\%types::prelude) }
ROOT: gene <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2566	2687	
==>n(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2566	2687	
==>n(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2566	2687	
==>n(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14796	14961	
==>nal test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pulveri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17702	17796	
==>formation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17702	17796	
==>formation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5627	5733	
==>ed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5627	5733	
==>ed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5627	5733	
==>ed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1465	1620	
==>t',
        precedence => 'looser',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '|',
        assoc => 'left',
        prec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3078	3228	
==>, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3295	3445	
==>, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3004	3115	
==>Model",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3004	3115	
==>Model",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3004	3115	
==>Model",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4539	4645	
==>om_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4539	4645	
==>om_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4539	4645	
==>om_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2184	2279	
==>rgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2184	2279	
==>rgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2184	2279	
==>rgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3271	3378	
==>',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3271	3378	
==>',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4249	4395	
==>"not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "su <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4249	4395	
==>"not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "su <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2049	2157	
==>andler is I<not> called immediately -- other
events may be pending processing, too.

=head2 C<run()>

Enter t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28915	29046	
==>=> q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESU <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28915	29046	
==>=> q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.],
        'MYAPP_RESU <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	278	397	
==>=> q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.],
    'MYAPP_RESU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8397	8500	
==>UBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8397	8500	
==>UBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8397	8500	
==>UBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5810	5909	
==>I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Interna <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5810	5909	
==>I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Interna <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7334	7433	
==>I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a test.  Interna <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	402	539	
==>tial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permane <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	402	539	
==>tial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permane <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1323	1450	
==>t(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	54	167	
==>ls::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	54	167	
==>ls::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	54	167	
==>ls::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN | <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	385	567	
==>Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_cod <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1325	1466	
==>+/);
        # my @args = split(rx:Perl5/\s+/, $string);
        
        my @args = $string.split;
        exec(@args);
    }
}

class Contro <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12078	12206	
==>) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      push @{$link_info->{$linkfile}}, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11130	11311	
==>lar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11130	11311	
==>lar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11130	11311	
==>lar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2319	2431	
==>t_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_applicat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3100	3212	
==>t_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_applicat <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4149	4272	
==>ds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Out of B <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4149	4272	
==>ds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Out of B <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13558	13667	
==>erExpression> <Arguments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExpression>
    | <'new'> <? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	623	728	
==>multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	623	728	
==>multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	623	728	
==>multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0. <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4415	4509	
==>m for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date o <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4415	4509	
==>m for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1017	1137	
==>usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1017	1137	
==>usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1017	1137	
==>usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13880	13980	
==>{ system "gzip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  descr  => "Creating directory \"$cdr <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	14	113	
==>::DOM::Text is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all i <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	14	113	
==>::DOM::Text is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1700	1798	
==>lasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods($self:) returns Set <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23970	24061	
==>lutions like "gettext" suggests that they
use a compile-time macro-based approach to substit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23970	24061	
==>lutions like "gettext" suggests that they
use a compile-time macro-based approach to substit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13163	13381	
==>ns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1946	2080	
==>t for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1946	2080	
==>t for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6941	7075	
==>$closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6941	7075	
==>$closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5752	5839	
==>nt($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token {    def_token($X::cap->[- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14462	14647	
==>my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14462	14647	
==>my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14462	14647	
==>my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2040	2144	
==>tring(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2040	2144	
==>tring(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2040	2144	
==>tring(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == Stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4483	4640	
==>_a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4483	4640	
==>_a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4483	4640	
==>_a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20675	20779	
==>KMETH (&dispatcher (symbol new DESTROY))))
     (while ($method is_not_nil) 
        ($method do ($self % <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1224	1320	
==>aused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1224	1320	
==>aused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	398	527	
==>if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	398	527	
==>if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	398	527	
==>if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7156	7288	
==>this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7156	7288	
==>this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7156	7288	
==>this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	600	735	
==>r 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	697	832	
==>r 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	555	658	
==>y $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10110	10252	
==>_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_cor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10110	10252	
==>_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_cor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10110	10252	
==>_coro {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_cor <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12254	12382	
==>ROOT: generic_in($$) = {
	my $env = env($$);

	Set::Object->new(
		grep { $_->free_vars }
			map { $_->left }
				grep { $_->is_a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18672	18768	
==>or package, with one or more
text strings to show human users.  This association would normally b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18672	18768	
==>or package, with one or more
text strings to show human users.  This association would normally b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	573	685	
==>({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	573	685	
==>({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	573	685	
==>({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5836	5932	
==>ess/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5836	5932	
==>ess/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Con <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4133	4379	
==>L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4133	4379	
==>L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3394	3486	
==>e here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3394	3486	
==>e here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3394	3486	
==>e here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6402	6510	
==>w('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6402	6510	
==>w('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6402	6510	
==>w('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2877	3008	
==>match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1499	1630	
==>match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    ret <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9177	9276	
==>segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#------------ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2370	2489	
==>ontrol  = $conf->archive_control;

        ### extract the meta info
        ### XXX extract to $Builddir first, THEN co <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	711	805	
==>TIES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	711	805	
==>TIES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6908	7017	
==>on = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'nam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6908	7017	
==>on = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	108	213	
==>y);

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1417	1731	
==>nfix:<+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix:<->'),
                                    Sym('$x'),
                                    Sym('$y' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1309	1430	
==>.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Ar <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1309	1430	
==>.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Ar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8754	8859	
==>n_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine tha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8754	8859	
==>n_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine tha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5568	5669	
==>dule is still very unstable, and the algorithm is not optimized for speed yet.

=head1 METHODS

=head2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8771	8950	
==>) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8771	8950	
==>) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8771	8950	
==>) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables with an " <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11461	11558	
==>s recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Returns only t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11461	11558	
==>s recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Returns only t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13838	13925	
==>s(I, [42,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit(D), octdigits(T), !. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3322	3447	
==>f ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3322	3447	
==>f ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3322	3447	
==>f ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15411	15557	
==>urn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15411	15557	
==>urn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15411	15557	
==>urn if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our disp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1752	1860	
==>h @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1752	1860	
==>h @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1832	1940	
==>h @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_di <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9048	9147	
==>rt or end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9048	9147	
==>rt or end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35978	36139	
==>ength );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remainin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35978	36139	
==>ength );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remainin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35978	36139	
==>ength );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remainin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3991	4112	
==>]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { op1 => 'call' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4005	4108	
==>ort, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROX <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4005	4108	
==>ort, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2677	2778	
==>(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2677	2778	
==>(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2677	2778	
==>(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	937	1031	
==>ugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Ap <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	937	1031	
==>ugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2341	2472	
==>ry.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2341	2472	
==>ry.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2341	2472	
==>ry.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7772	7883	
==>PApp ($pCxt, $pFun, $pInv, $pArgs) {
    my $has_inv = defined($pInv) ? 1 : 0;
    my @inv = defined($pInv) ? (D <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1354	1445	
==>enchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Be <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1354	1445	
==>enchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Be <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7945	8100	
==>lse, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7945	8100	
==>lse, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7945	8100	
==>lse, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1247	1347	
==>.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1247	1347	
==>.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1247	1347	
==>.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8332	8455	
==>qs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8332	8455	
==>qs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8332	8455	
==>qs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2129	2328	
==>0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2129	2328	
==>0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11728	11840	
==>cimalDigits> <ExponentPart>?
    | <DecimalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <Dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5700	5799	
==>create any missing packages 
nessecary, possibly storing a value in the last location.

  # create : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5700	5799	
==>create any missing packages 
nessecary, possibly storing a value in the last location.

  # create : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5700	5799	
==>create any missing packages 
nessecary, possibly storing a value in the last location.

  # create : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	155	256	
==>aN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	155	256	
==>aN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	155	256	
==>aN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2193	2297	
==>splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2193	2297	
==>splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2193	2297	
==>splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	335	445	
==>es_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	335	445	
==>es_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	335	445	
==>es_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4226	4353	
==>rams) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4226	4353	
==>rams) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4226	4353	
==>rams) {
        $method_source .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6084	6213	
==>eturn "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6084	6213	
==>eturn "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	493	588	
==>b File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	493	588	
==>b File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	493	588	
==>b File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parse <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3639	3736	
==>( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3639	3736	
==>( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
desc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3719	3816	
==>( Str $description )>

Marks that the next test should pass.  C<$description> is the optional
desc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3427	3546	
==>($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3427	3546	
==>($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$pat <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6058	6154	
==>->{callback}->($self, $line, $type, $totals) if $self->{callback};

    $self->{'next'} = $result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7900	8037	
==>classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7900	8037	
==>classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7900	8037	
==>classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(Eval <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15792	15890	
==>HT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can red <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15792	15890	
==>HT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can red <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1968	2086	
==>=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1968	2086	
==>=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1968	2086	
==>=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6893	6990	
==>em, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=hea <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6893	6990	
==>em, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=hea <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6559	6660	
==>}
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6559	6660	
==>}
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17826	18007	
==>,
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17826	18007	
==>,
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A N <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1297	1388	
==>riterion $by ; *@values) returns List
 &sort<> := &sort<Criterion>.assuming(by => &infix:<cm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	652	745	
==>s_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	652	745	
==>s_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	652	745	
==>s_compiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	278	528	
==>nt values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2361	2465	
==>closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2361	2465	
==>closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4677	4808	
==>$set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4677	4808	
==>$set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6810	6937	
==>$start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6810	6937	
==>$start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6810	6937	
==>$start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8612	8731	
==>ll_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8612	8731	
==>ll_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23789	23887	
==>aram => $plus_ten
);

# tests for the type pretty printer
{
	my $type = type::operator::arrow->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4635	4742	
==>SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4635	4742	
==>SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4635	4742	
==>SUPER::expand().";\n";
    #"eval(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::alr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	790	898	
==>pproach is neater, but causes buffering problems when
          // mixed with document.write. See tests/buffe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	790	898	
==>pproach is neater, but causes buffering problems when
          // mixed with document.write. See tests/buffe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	790	898	
==>pproach is neater, but causes buffering problems when
          // mixed with document.write. See tests/buffe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7422	7536	
==>$B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7422	7536	
==>$B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7422	7536	
==>$B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12902	13079	
==>{
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' tab <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12902	13079	
==>{
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' tab <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	86	185	
==>e $fprime) {
    $guess += ($target - $f($guess)) / $fprime($guess);
}

sub approxfprime(Code $f, Nu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36004	36106	
==>he new relation is the union of the invocant and <$other> headings. 
The body of the new relation is th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40554	40655	
==>he new relation is the union of the invocant and <$other> headings.
The body of the new relation is th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40168	40269	
==>he new relation is the union of the invocant and <$other> headings.
The body of the new relation is th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7458	7631	
==>_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8292	8465	
==>_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $blo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	704	813	
==>g/ftp/Scheme/#pure-oo

=cut

# new() creates instances of classes
sub new ($) {
    my ($table) = @_;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8591	8704	
==>[])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8591	8704	
==>[])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8591	8704	
==>[])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""ba <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2257	2348	
==>ECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21639	21787	
==>ass->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21639	21787	
==>ass->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21639	21787	
==>ass->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclass} = undef;
                    push @classe <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1275	1367	
==>its_till_day --
# fill if needed
push @devs_till_day, $devs_till_day[-1] while
  @devs_till_d <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5492	5621	
==>=> chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5492	5621	
==>=> chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3955	4088	
==>{
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6898	6995	
==>the beginning, before the 
ciphertext.  This will be prepended to the return value of the first ca <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6898	6995	
==>the beginning, before the 
ciphertext.  This will be prepended to the return value of the first ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	127	300	
==>r);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	127	300	
==>r);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	127	300	
==>r);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14339	14455	
==>>_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14339	14455	
==>>_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14339	14455	
==>>_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6699	6799	
==>HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=ba <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6699	6799	
==>HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1408	1512	
==>litter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1408	1512	
==>litter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1408	1512	
==>litter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8990	9090	
==>alization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8990	9090	
==>alization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4376	4530	
==>},
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4376	4530	
==>},
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4376	4530	
==>},
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1116	1253	
==>~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1116	1253	
==>~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1769	1893	
==>1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1769	1893	
==>1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6859	6944	
==>w(filename => 'util/catalog_tmpl/error.tmpl');
$template->param(unresolved => \@unreso <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1569	1696	
==>gs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1569	1696	
==>gs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1822	1917	
==>y.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1822	1917	
==>y.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	388	483	
==>h.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	388	483	
==>h.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	388	483	
==>h.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13237	13378	
==>efined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13237	13378	
==>efined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13237	13378	
==>efined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1888	2022	
==>s = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1888	2022	
==>s = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1888	2022	
==>s = p6_eval($line);
        print "\n",@res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24224	24361	
==>capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24503	24640	
==>capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2870	2997	
==>r class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2870	2997	
==>r class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2870	2997	
==>r class
    return $?SELF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18773	18881	
==>eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18773	18881	
==>eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18773	18881	
==>eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8403	8499	
==>eviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your own secu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8403	8499	
==>eviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your own secu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9106	9201	
==>an access the number capture groups with the nparen() method:

  my $captgroups = $parser->npare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4274	4419	
==>ass
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4274	4419	
==>ass
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4274	4419	
==>ass
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    insta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	216	318	
==>itle>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a reques <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	216	318	
==>itle>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a reques <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	952	1066	
==>g";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $top <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9099	9195	
==>ailure object always

then there's absolutely no overhead

I'm not sure about this - failed match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8800	8894	
==>ailure object always
then there's absolutely no overhead
I'm not sure about this - failed match <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31563	31664	
==>, but is
still allowed, so I delete its handler too.  You can use this class to
ensure that there is a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1227	1319	
==>PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1227	1319	
==>PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1223	1343	
==>}
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1223	1343	
==>}
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1223	1343	
==>}
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15380	15521	
==>ckage Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15380	15521	
==>ckage Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15380	15521	
==>ckage Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13125	13241	
==>alue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13125	13241	
==>alue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13125	13241	
==>alue;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # ** g <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4883	5020	
==>ey);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4742	4879	
==>ey);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	247	363	
==>tine.
* takes a rexep as the only argument
* not tested much
* read this modules source before using
* examine the pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1952	2044	
==>6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1952	2044	
==>6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1952	2044	
==>6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5574	5704	
==>header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5574	5704	
==>header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $st <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	909	1002	
==>lass JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::ValuePr <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23956	24153	
==>t";
                }
                $min = $_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @result, "FAILED tests @canon\n";
        $canon = join ' ', @c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8352	8452	
==>ce_object(anyof_class => digit => $neg, $how);
  });

  # graph POSIX class
  $self->add_handler('POS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	257	363	
==>:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    return $class->no_match unless <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30845	30950	
==>e; it
must be the same for every module in the same set as the current one.  The
Member Name comes next an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30845	30950	
==>e; it
must be the same for every module in the same set as the current one.  The
Member Name comes next an <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12064	12162	
==>gits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_he <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1136	1236	
==>nt "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1136	1236	
==>nt "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9338	9437	
==>method remove_method (opaque $self: symbol $label) returns nil { 
    %:methods.delete($label);
}

( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8088	8185	
==>odule_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$mod <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8088	8185	
==>odule_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$mod <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	904	1029	
==>f -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script } <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	904	1029	
==>f -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8292	8469	
==>{
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8292	8469	
==>{
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8292	8469	
==>{
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29664	29763	
==>ar in the tree, but are needed when inspecting
the parsing, or walking the tree.

You can also set t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12311	12409	
==>, pod section, comment block and data section, each
# into a single line containing a digest of the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12311	12409	
==>, pod section, comment block and data section, each
# into a single line containing a digest of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4102	4216	
==>my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4102	4216	
==>my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4102	4216	
==>my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2281	2402	
==>y subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2281	2402	
==>y subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2281	2402	
==>y subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16452	16621	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16731	16900	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	431	528	
==>)')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	431	528	
==>)')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	431	528	
==>)')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9834	9930	
==>be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Ret <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9834	9930	
==>be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Ret <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2464	2554	
==>f->license_from($file)  unless $self->license;
    $self->abstract_from($file) unless $self <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14296	14398	
==>ol`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' chara <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14354	14456	
==>ol`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' chara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4257	4389	
==>ve ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4257	4389	
==>ve ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4257	4389	
==>ve ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2390	2485	
==>stance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2390	2485	
==>stance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2390	2485	
==>stance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method(sub { 
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1992	2097	
==>n;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $B <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1992	2097	
==>n;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $B <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	861	963	
==>if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p5\n",number_the_lines($p5),"\n";
	}
	pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15093	15238	
==>up',
      data => \@data,
      on => $on,
      off => $off,
      down => 1,
    }, $class;
  }

  sub on {
    my $self = shift;
    $self->{o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25503	25598	
==>ing! ) returns Relation>

This method is a generic relational operator that returns a new Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30055	30150	
==>ing! ) returns Relation>

This method is a generic relational operator that returns a new Relati <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29586	29694	
==>TER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29586	29694	
==>TER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	394	490	
==>TER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19397	19692	
==>rrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19397	19692	
==>rrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19397	19692	
==>rrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9748	9879	
==>@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9748	9879	
==>@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9748	9879	
==>@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4533	4645	
==>$aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $a[0]->emit if @a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	664	760	
==>r press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	664	760	
==>r press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15189	15290	
==>o be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be a promp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15189	15290	
==>o be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be a promp <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4916	5014	
==>onfig{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/Prelude.pm [opt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1054	1178	
==>patchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1259	1383	
==>patchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1320	1444	
==>patchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5250	5369	
==><[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5250	5369	
==><[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dump <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3880	3985	
==>name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3880	3985	
==>name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3880	3985	
==>name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3702	3845	
==>ing,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3702	3845	
==>ing,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3702	3845	
==>ing,$from,$to-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8789	8889	
==>utine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' tab <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8789	8889	
==>utine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' tab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1166	1280	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1166	1280	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1166	1280	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15600	15761	
==>XX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15600	15761	
==>XX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15600	15761	
==>XX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::Value::List- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2390	2503	
==>runtime} = $runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent;
		my $node = <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3236	3340	
==>$_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3236	3340	
==>$_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.membe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1042	1162	
==>f (@_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (map { "$_," } @_)
	) . "\n" . ("    " x ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9707	9811	
==>,1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9707	9811	
==>,1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9707	9811	
==>,1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writab <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1287	1385	
==>") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1342	1436	
==>") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1342	1436	
==>") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1818	2023	
==>ts lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1818	2023	
==>ts lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1818	2023	
==>ts lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {...}" gets
  #                                    # e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3651	3761	
==>z subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3651	3761	
==>z subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3651	3761	
==>z subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(% <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5140	5249	
==>p =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2682	2791	
==>p =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3463	3572	
==>p =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1568	1689	
==>t(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1568	1689	
==>t(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4728	4836	
==>Class',
    '$:superclass' => $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1489	1590	
==>on for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1489	1590	
==>on for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	9	100	
==>inc/Module/Install/Makefile/Name.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2698	2790	
==>t(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2698	2790	
==>t(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2698	2790	
==>t(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8503	8597	
==>y analysis before using it in any 
sensitive application.>

B<I<The authors and copyright holde <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8503	8597	
==>y analysis before using it in any 
sensitive application.>

B<I<The authors and copyright holde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2528	2657	
==>rbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2528	2657	
==>rbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2528	2657	
==>rbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7769	7901	
==>ent =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and de <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7769	7901	
==>ent =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1748	1870	
==>default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1748	1870	
==>default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1748	1870	
==>default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6517	6625	
==>ource =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6517	6625	
==>ource =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6517	6625	
==>ource =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8280	8413	
==>slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8280	8413	
==>slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8280	8413	
==>slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #warn "SLICE WRITE THROUGH: ".$self->{array} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7636	7744	
==>my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum P <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12701	12816	
==>/span>";
      
    }
#    $body->push_content("\n");
     $output .= "\n";
  }
  $template->param("tests", $output) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6486	6599	
==>$module_name {
        # Determine if requested template module is already loaded.
        # It may have been embe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6486	6599	
==>$module_name {
        # Determine if requested template module is already loaded.
        # It may have been embe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	469	616	
==>ash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_coun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	674	821	
==>ash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_coun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	730	877	
==>ash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_coun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13738	13844	
==>o_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13738	13844	
==>o_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13738	13844	
==>o_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	118	226	
==>e = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	118	226	
==>e = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	118	226	
==>e = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1429	1527	
==>pport anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1429	1527	
==>pport anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1429	1527	
==>pport anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2055	2159	
==>\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2055	2159	
==>\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2055	2159	
==>\n" if not defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	159	257	
==>er';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub constants { @EXPORT };

use constant <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15605	15700	
==>$h.expires

This header gives the date and time after which the entity should be
considered stal <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15605	15700	
==>$h.expires

This header gives the date and time after which the entity should be
considered stal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2965	3081	
==>";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2965	3081	
==>";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2965	3081	
==>";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	854	977	
==>e opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	854	977	
==>e opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	854	977	
==>e opaque structure
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15885	16028	
==>table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15885	16028	
==>table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15885	16028	
==>table = $self->_get_attribute_table(\%params);                    
    return $table->{$label};
}));
                           

$::Class->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2415	2521	
==>ind &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2415	2521	
==>ind &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2415	2521	
==>ind &b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1651	1794	
==>>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = % <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1651	1794	
==>>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = % <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7358	7488	
==>r, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\
\\n   List      pre     split   safe   (Pugs::Intern <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1497	1607	
==>";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4189	4382	
==>ember_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str : <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4189	4382	
==>ember_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str : <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22716	22813	
==>w of any in
this current version, because I've tried to fix those I've already
found. Those who fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	634	764	
==>l5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	634	764	
==>l5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	634	764	
==>l5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        r <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4522	4678	
==>token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<st <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4522	4678	
==>token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<st <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	75	183	
==>int "plan ".@jsfiles."\n";
foreach $jsfile (@jsfiles) {
    print STDERR "# $jsfile\n";
    my $cmd = '../../ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10231	10324	
==>doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10231	10324	
==>doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10231	10324	
==>doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2218	2334	
==>isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2218	2334	
==>isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2218	2334	
==>isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	649	747	
==>cursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	649	747	
==>cursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	649	747	
==>cursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18125	18218	
==>1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18125	18218	
==>1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18125	18218	
==>1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	192	299	
==>::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	192	299	
==>::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	192	299	
==>::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLog
#
# 2005-10-0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	293	394	
==>nd;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	293	394	
==>nd;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	293	394	
==>nd;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14712	14822	
==>}
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14712	14822	
==>}
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30201	30299	
==>in the filename work.

Keeping whittling away at _run_all_tests()

Clean up how the summary is prin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	771	864	
==>etta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	771	864	
==>etta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Ros <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6874	6971	
==>> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6874	6971	
==>> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is f <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	479	571	
==>plicate_nodes($program);

	$self->{seen} = {};

	return $self->reduce($program) unless @nodes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	68	175	
==>rn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::sig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	68	175	
==>rn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::sig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	68	175	
==>rn context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - new methods Code::sig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1406	1540	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1406	1540	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1406	1540	
==>ed($instance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1483	1593	
==>ass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1483	1593	
==>ass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1483	1593	
==>ass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3114	3212	
==>ed C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3114	3212	
==>ed C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will retur <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8214	8311	
==>ute, or a command in
C<$ENV{PATH}> that can be used to execute F<ghc>.

=cut

sub assert_ghc_pkg { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	236	378	
==>pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	236	378	
==>pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	236	378	
==>pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	48	144	
==>primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	48	144	
==>primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	48	144	
==>primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9108	9209	
==>x) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9108	9209	
==>x) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9108	9209	
==>x) { p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MUL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	53	160	
==>erl6::Core::Bit;

package C3;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15988	16081	
==>od creates and returns a new Rosetta::Model::Node object, that
lives in the Document object gi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15988	16081	
==>od creates and returns a new Rosetta::Model::Node object, that
lives in the Document object gi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2521	2634	
==>acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accen <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2521	2634	
==>acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accen <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2395	2499	
==>d <[[Delete]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1317	1435	
==>RTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1317	1435	
==>RTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1317	1435	
==>RTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    return bless {
      pV <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1226	1361	
==>sub _chdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	360	478	
==>[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	392	510	
==>[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->com <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1653	1771	
==>::Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		my $node = shift;
	
		my $h = Devel::STD <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	381	476	
==>$event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<obj <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	381	476	
==>$event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5215	5357	
==>ess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5215	5357	
==>ess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5215	5357	
==>ess "You must provide a name for the attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2335	2437	
==>cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2335	2437	
==>cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2335	2437	
==>cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2492	2597	
==>overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2492	2597	
==>overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2492	2597	
==>overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{ <==
3	/Users/nnunley/pugs/util/version_h.pl	2213	2321	
==>close OUT;

  if ($revision != 0) {
    # rebuild Help.hs to show new revision number
    unlink "$base/dist/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1142	1236	
==>mmon comprehensive test suite to run against all Engines

=head1 VERSION

This document describ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1142	1236	
==>mmon comprehensive test suite to run against all Engines

=head1 VERSION

This document describ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7214	7321	
==>head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying nece <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7214	7321	
==>head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying nece <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7214	7321	
==>head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying nece <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	332	431	
==>rns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	332	431	
==>rns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARA <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	785	883	
==>lbin     => $Config{installbin},
        installsitebin => $Config{installsitebin} || $Config{insta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1381	1499	
==>st :%attrs? = {}) {
    return $?CLASS->bless( attrs =>
        { %attrs.pairs.map:{ ( .key => 
            (.value.doe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15201	15296	
==>This interface is rigorously defined, such that there
should be no ambiguity when trying to invo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15201	15296	
==>This interface is rigorously defined, such that there
should be no ambiguity when trying to invo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4043	4151	
==>fied to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4043	4151	
==>fied to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4043	4151	
==>fied to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_undef_hash_po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	82	247	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	82	247	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	82	247	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21189	21299	
==>MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21189	21299	
==>MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21189	21299	
==>MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6221	6426	
==>od(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6221	6426	
==>od(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6221	6426	
==>od(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14360	14444	
==>ethods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14360	14444	
==>ethods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14360	14444	
==>ethods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribute('%:att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12904	13061	
==>SAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12904	13061	
==>SAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12904	13061	
==>SAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $se <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2287	2430	
==>@list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub spl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2287	2430	
==>@list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub spl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2540	2637	
==>Perl::Interpreter - A perl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    use Bl <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6009	6127	
==>+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encod <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6009	6127	
==>+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encod <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2896	2996	
==>ck
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir,'des <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13531	13651	
==>arams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13531	13651	
==>arams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13531	13651	
==>arams);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with this attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11947	12093	
==>e
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11947	12093	
==>e
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	777	875	
==>perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	777	875	
==>perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	777	875	
==>perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PIL2JS.Pair <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5984	6079	
==>YRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; y <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5984	6079	
==>YRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; y <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5587	5701	
==>eturn $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tm <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5587	5701	
==>eturn $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	679	784	
==>ub to_str { 
    # eventually must deal with Inf and NaN
    return str->new((shift)->to_native() . '');
} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6696	6793	
==>MPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6696	6793	
==>MPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5707	5823	
==>0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5707	5823	
==>0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7357	7452	
==>(handler == NULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previous_comp_hook(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	30	136	
==>t, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	30	136	
==>t, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	30	136	
==>t, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::V <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3830	3952	
==>$m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19602	19697	
==>u
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19602	19697	
==>u
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3897	4014	
==>PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3897	4014	
==>PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	747	864	
==>PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1407	1504	
==>rn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1407	1504	
==>rn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1407	1504	
==>rn "Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infin <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	509	636	
==>::Zone");
    return
        Date::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	606	719	
==>thod footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	606	719	
==>thod footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	604	729	
==>Column => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	604	729	
==>Column => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	604	729	
==>Column => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5548	5744	
==>$ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5548	5744	
==>$ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5548	5744	
==>$ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3573	3693	
==>ass => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3573	3693	
==>ass => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3573	3693	
==>ass => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7296	7395	
==>ive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7296	7395	
==>ive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7296	7395	
==>ive {
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11382	11480	
==>s-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) returns R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14859	14957	
==>s-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) returns R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4171	4263	
==>Class class_precendence_list');

is($Object->id, 2, '... $Object is the second id');
is($Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35957	36127	
==>= $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35957	36127	
==>= $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35957	36127	
==>= $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9227	9370	
==>ru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9227	9370	
==>ru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned b <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9227	9370	
==>ru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned b <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4968	5175	
==>int("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mo <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4968	5175	
==>int("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mo <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	64	151	
==>package Module::Install::Can;
use Module::Install::Base; @ISA = qw(Module::Install::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3797	3915	
==>b { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOP <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3797	3915	
==>b { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOP <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3797	3915	
==>b { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2225	2332	
==>$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2225	2332	
==>$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2225	2332	
==>$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19526	19617	
==>cation Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user age <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19526	19617	
==>cation Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user age <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25231	25376	
==>, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32909	33005	
==>as no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32909	33005	
==>as no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	364	459	
==>eturns Date {
    $self.add(-$duration);
}

method difference($self: Date $other) returns Durati <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9042	9132	
==>l6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2867	2957	
==>l6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1194	1299	
==>sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1194	1299	
==>sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1194	1299	
==>sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14467	14613	
==>s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14467	14613	
==>s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unle <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14467	14613	
==>s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3109	3210	
==>n bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3109	3210	
==>n bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3109	3210	
==>n bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => method () { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6526	6644	
==>shift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6719	6837	
==>shift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8863	8970	
==>~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Array:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2214	2307	
==>ipher API's functional interface is perhaps the easiest one that allows 
for continuous cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2214	2307	
==>ipher API's functional interface is perhaps the easiest one that allows 
for continuous cipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3919	4029	
==>ircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3919	4029	
==>ircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3919	4029	
==>ircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can' <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2065	2167	
==>sion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog (@p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11018	11113	
==>xpected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expecte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11076	11171	
==>xpected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expecte <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	242	363	
==>lta) - $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &approxfpr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2668	2768	
==>t_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2668	2768	
==>t_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14183	14380	
==>return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14183	14380	
==>return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14183	14380	
==>return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6339	6436	
==>ing. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6339	6436	
==>ing. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6339	6436	
==>ing. Using the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18976	19069	
==>pe that corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate ra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22626	22719	
==>pe that corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate ra <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20807	20938	
==>treps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setreps:
    isarray = 0
    reps = pad["reps"]
    $I0 = exists reps[ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	754	864	
==>ub set {
    my($o,$b,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	14	116	
==>e Module::Install;

# For any maintainers:
# The load order for Module::Install is a bit magic.
# It go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4032	4205	
==>or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4032	4205	
==>or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5110	5206	
==>urns num>

=item B<elem () returns num>

=item B<join (?str) returns str>

=item B<each (closure) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2373	2487	
==>{
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2373	2487	
==>{
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2373	2487	
==>{
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8929	9093	
==>tion eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown plan";
      }
  
      $.output.w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1081	1227	
==>tion eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.w <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1081	1227	
==>tion eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown plan";
    }

    $.output.w <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20931	21071	
==>->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43855	43995	
==>->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4958	5067	
==>rn = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4958	5067	
==>rn = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4958	5067	
==>rn = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1758	1866	
==>ave an implementation. These
    # methods are then required to be implemented by the 
    # composing class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1758	1866	
==>ave an implementation. These
    # methods are then required to be implemented by the 
    # composing class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1758	1866	
==>ave an implementation. These
    # methods are then required to be implemented by the 
    # composing class. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6307	6554	
==>) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::WALKMETH"
        (closure n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	827	922	
==>eturn $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	827	922	
==>eturn $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1159	1261	
==>shift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::D <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3535	3636	
==>n = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3535	3636	
==>n = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $sp <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6141	6237	
==>ode_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6141	6237	
==>ode_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24334	24432	
==>ways seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>ra <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24334	24432	
==>ways seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3125	3233	
==>pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3125	3233	
==>pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3125	3233	
==>pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21470	21567	
==>ULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21470	21567	
==>ULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21470	21567	
==>ULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12585	12740	
==>)->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12585	12740	
==>)->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12585	12740	
==>)->{v}
            },
            'undefine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5118	5258	
==>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5118	5258	
==>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5118	5258	
==>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7947	8068	
==><'true'>
    | <'false'>
}
rule NumericLiteral {  # see 7.8.3
      <DecimalLiteral>
    | <HexIntegerLiteral>
}
rule Deci <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11499	11595	
==>n recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence that a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11499	11595	
==>n recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence that a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1900	2104	
==>rack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   = <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1900	2104	
==>rack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4248	4361	
==>set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.di <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4248	4361	
==>set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.di <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2602	2753	
==>size_change;
        while $i >= $final {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9512	9630	
==>]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9500	9618	
==>]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1193	1295	
==>cal $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a bla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1193	1295	
==>cal $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a bla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1193	1295	
==>cal $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a bla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4862	4979	
==>ter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::Y <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4695	4806	
==>ter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::Y <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11567	11676	
==>sure => sub { -r "$initrd_mnt/lib6/$_" or return for @modfiles; 1 },
    using  => sub {
      utime undef, un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	510	637	
==>m 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	510	637	
==>m 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	510	637	
==>m 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	273	526	
==>onstant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Relation: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13179	13301	
==>d()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13179	13301	
==>d()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6233	6361	
==>ame) 
        || confess "You must supply a name to get";    
    my $current = $self;
    while ($current) {
        return $cur <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3082	3187	
==>h, ">", $filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	554	674	
==>.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	554	674	
==>.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10415	10539	
==>if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10415	10539	
==>if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10415	10539	
==>if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); ' <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1884	2044	
==>pth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_ele <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1884	2044	
==>pth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_ele <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	11	111	
==>/p6compiler.pl - fglock
#
# experimental implementation of a p6 compiler
# 

use strict;
use warnings <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	112	222	
==>ent {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	112	222	
==>ent {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was se <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13403	13533	
==>n($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13403	13533	
==>n($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9559	9679	
==>rt;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_si <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9559	9679	
==>rt;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_si <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9559	9679	
==>rt;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_si <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2716	2826	
==>rn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2716	2826	
==>rn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2796	2906	
==>rn 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26522	26640	
==>>{off};
  }

  sub visual {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : "" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1558	1672	
==>!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1558	1672	
==>!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.h <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3561	3718	
==>{ $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20780	20884	
==>safe {
    #Pugs::Internals::use($module);
    Pugs::Internals::require_use_helper(Bool::True,$module);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	269	395	
==>} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subrout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	269	395	
==>} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subrout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	269	395	
==>} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13266	13437	
==>rams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13266	13437	
==>rams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13266	13437	
==>rams{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2727	2820	
==>tation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the represe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2727	2820	
==>tation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the represe <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	720	883	
==>ue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    }) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	720	883	
==>ue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    }) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	585	690	
==>g;

    # External packages used by the Relation::Example::Heading class, that do export symbols:
    # (N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9029	9214	
==>return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9029	9214	
==>return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9029	9214	
==>return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	894	987	
==>File::Spec->catfile($dir, $_[1]);
		return $abs if (-x $abs or $abs = MM->maybe_command($abs)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	892	984	
==>our objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	892	984	
==>our objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	892	984	
==>our objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11209	11323	
==>s,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11209	11323	
==>s,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11209	11323	
==>s,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2162	2294	
==>s "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2162	2294	
==>s "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2162	2294	
==>s "Bad instance (" . ($instance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9576	9685	
==>$self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9576	9685	
==>$self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6155	6275	
==>0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6155	6275	
==>0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6155	6275	
==>0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12253	12360	
==>qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12253	12360	
==>qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12253	12360	
==>qw(:try);
    try { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3019	3150	
==>te;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    metho <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3019	3150	
==>te;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    metho <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2442	2539	
==>n JSX::true if !$O.property_value.exists($P);
    my $attr = $O.property_attributes{$P};
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	766	880	
==>ON",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	766	880	
==>ON",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	766	880	
==>ON",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yield outside a coroutine!")
      u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3195	3355	
==>),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3442	3602	
==>),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1916	2096	
==>new;

    my %cache = ();

    sub new { 
        my $class   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, al <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10042	10151	
==>onnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10042	10151	
==>onnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13524	13663	
==>_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatchi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13524	13663	
==>_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatchi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13524	13663	
==>_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatchi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1366	1482	
==>hans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1366	1482	
==>hans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  % <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	311	418	
==>L::Generator' => \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
sub x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	500	637	
==>s just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	500	637	
==>s just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	500	637	
==>s just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3516	3615	
==>p $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %stan <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3516	3615	
==>p $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %stan <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3154	3251	
==>t (./doy / 7) }

method day_of_month returns Int { $.day }
method day_of_month_0 returns Int { $.d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17161	17255	
==>se
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17161	17255	
==>se
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, tha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10285	10411	
==>l with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2318	2430	
==>l with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2318	2430	
==>l with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3742	3847	
==>IL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3742	3847	
==>IL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3742	3847	
==>IL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11486	11642	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12807	12963	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15237	15393	
==>w(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	129	226	
==>%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	129	226	
==>%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	129	226	
==>%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub as_js { (%{ $_[0] })[1]->as_js }

sub un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1691	1812	
==>abc')         for 1..200},
    P5regex_x100 => sub{ 'abc' =~ /[a|b](b)/o for 1..2000},
});

}

__END__


# experi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4022	4136	
==>me::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4162	4276	
==>me::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1659	1784	
==>6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1659	1784	
==>6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1659	1784	
==>6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12992	13109	
==>| confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12992	13109	
==>| confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12992	13109	
==>| confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10908	11042	
==>rent_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10908	11042	
==>rent_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10908	11042	
==>rent_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18566	18774	
==>& @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18566	18774	
==>& @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18566	18774	
==>& @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7441	7552	
==>S->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7441	7552	
==>S->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7441	7552	
==>S->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8439	8544	
==>able warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # bac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8439	8544	
==>able warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # bac <==
3	/Users/nnunley/pugs/util/package-osx.pl	8338	8435	
==>::Tutorial.3
        /usr/local/man/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2153	2259	
==>rn "rule argument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24187	24278	
==>Locale::KeyedText does no compile time binding and
will support multiple languages or locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24187	24278	
==>Locale::KeyedText does no compile time binding and
will support multiple languages or locale <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20983	21096	
==>0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  setreps_1:
    reps[cname] = self

    padarray = pad["is <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7198	7290	
==>after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_ele <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7198	7290	
==>after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_ele <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	733	840	
==>open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.st <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	733	840	
==>open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.st <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	134	232	
==>se Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.02';

use strict;

# det <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4641	4745	
==>es; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4641	4745	
==>es; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4641	4745	
==>es; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {... <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10418	10512	
==>iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {.. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10418	10512	
==>iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {.. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10949	11125	
==>ntal!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### abor <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8019	8188	
==>ntal!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### abor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8019	8188	
==>ntal!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### abor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3290	3410	
==>ntents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3290	3410	
==>ntents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3290	3410	
==>ntents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	246	343	
==>Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	246	343	
==>Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	246	343	
==>Value::List (separate file)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	125	227	
==>IL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	125	227	
==>IL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	125	227	
==>IL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7586	7697	
==>}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7586	7697	
==>}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7586	7697	
==>}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1430	1548	
==>mplementing class, it can default to True or 
        # False, but once it has a value of False, it can not be changed. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4908	5025	
==>mplementing class, it can default to True or
        # False, but once it has a value of False, it can not be changed. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3838	3955	
==>mplementing class, it can default to True or
        # False, but once it has a value of False, it can not be changed. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9199	9325	
==>ompilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9199	9325	
==>ompilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	207	300	
==>C;
print "Inline::Parrot::PMC\n";
use Exporter 'import';
our @EXPORT=qw(get_int);
use Inline C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	0	102	
==>use strict;

use Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	0	102	
==>use strict;

use Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	0	102	
==>use strict;

use Perl6::MetaModel;

my $class_description = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3601	3702	
==>]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3601	3702	
==>]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTRO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3601	3702	
==>]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTRO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5378	5476	
==>ent-Date header is
# added as a timestamp to a response when it has been received.
method client_da <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5378	5476	
==>ent-Date header is
# added as a timestamp to a response when it has been received.
method client_da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	980	1095	
==>turns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily im <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	980	1095	
==>turns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily im <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	980	1095	
==>turns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily im <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38446	38547	
==>$_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBran <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24801	24898	
==>t of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29353	29450	
==>t of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3728	3872	
==>line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $type = 'test';

        $totals->{seen}++;
        $result{number} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3976	4077	
==>::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3976	4077	
==>::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8546	8654	
==>? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8546	8654	
==>? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8546	8654	
==>? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5565	5695	
==>';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(T <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5565	5695	
==>';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(T <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2462	2592	
==>';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5682	5790	
==>ss => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # alnum (a word chara <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	114	206	
==>--------------------------------------
## Mini Meta-Model with Self-Bootstrapping Roles
## -- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	137	229	
==>---------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6795	6931	
==>tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6795	6931	
==>tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6795	6931	
==>tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38423	38518	
==>iases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGUR <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42972	43067	
==>iases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGUR <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42622	42717	
==>iases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGUR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6164	6329	
==>return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6164	6329	
==>return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6164	6329	
==>return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar" <==
3	/Users/nnunley/pugs/util/drift.pl	103	201	
==>ec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15185	15281	
==>alue is always returned.
If the given header did not exist then C<undef> is returned.

Methods th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15185	15281	
==>alue is always returned.
If the given header did not exist then C<undef> is returned.

Methods th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7495	7621	
==>1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7688	7814	
==>1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closur <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12916	13012	
==>nction is free
fun: generic($$) = {
	my $t_of_param = type($$)->left;
	my $prev_generic = generic <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7647	7852	
==>RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8111	8316	
==>RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32853	33018	
==>p[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32853	33018	
==>p[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32853	33018	
==>p[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2845	2938	
==>l::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2845	2938	
==>l::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2845	2938	
==>l::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27235	27350	
==>capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27514	27629	
==>capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13279	13368	
==>_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13279	13368	
==>_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4231	4316	
==>ttp://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs homepage at L<http://pugscode.o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	770	869	
==>e, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	770	869	
==>e, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	770	869	
==>e, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed) obje <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18498	18597	
==>ad1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18498	18597	
==>ad1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4127	4307	
==>Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4127	4307	
==>Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2914	3019	
==>_upload: 1 
    to your config.yml file if you want the reports to be uploaded
    automatically.
EOF
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10074	10278	
==>number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new(
              description => $description,
              passed      =>            1,
              n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	634	826	
==>number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	634	826	
==>number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new(
            description => $description,
            passed      =>            1,
            n <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6000	6102	
==>ting ^C (<Ctrl>+<C>).
HELP

step
  descr  => "Checking for Linux",
  help   => "This program needs Linu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18003	18099	
==>rce filtering a sane process, by
parsing up your module's source code into various blocks; so tha <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18003	18099	
==>rce filtering a sane process, by
parsing up your module's source code into various blocks; so tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2705	2804	
==>^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2705	2804	
==>^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2705	2804	
==>^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Num <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1349	1462	
==>= shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_available );
}

=head2 $file <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4447	4547	
==>b *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set differenc <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4447	4547	
==>b *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set differenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1974	2076	
==>JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1974	2076	
==>JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1974	2076	
==>JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1735	1860	
==>t
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1940	2065	
==>t
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2003	2128	
==>t
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Class object i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4559	4648	
==>aram;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_option <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4559	4648	
==>aram;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_option <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5149	5238	
==>aram;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_option <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39942	40040	
==>r
version 2.1 of the License, or (at your option) any later version.  You
should have received a co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39942	40040	
==>r
version 2.1 of the License, or (at your option) any later version.  You
should have received a co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3156	3250	
==>Public/UNIDATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5956	6047	
==>tine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubB <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5956	6047	
==>tine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubB <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2855	2946	
==>tine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5373	5494	
==>->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5373	5494	
==>->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5373	5494	
==>->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40524	40658	
==>b pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40524	40658	
==>b pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40524	40658	
==>b pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return shift @{$this->{arr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28617	28718	
==>at are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33169	33270	
==>at are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32297	32398	
==>at are being wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	689	964	
==>{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	689	964	
==>{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	689	964	
==>{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17049	17182	
==>:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20526	20659	
==>:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20104	20237	
==>:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12734	12852	
==>his->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12734	12852	
==>his->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12734	12852	
==>his->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11998	12091	
==>over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11998	12091	
==>over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Doc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	799	901	
==>=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehand <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	799	901	
==>=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehand <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1355	1457	
==>=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the normal output filehand <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	226	367	
==>er hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wai <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	226	367	
==>er hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10301	10420	
==>ding === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4324	4477	
==>$$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        },
        'add_method' => sub ($$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5692	5831	
==>$$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        },        
        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3143	3274	
==>$$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        },
        ' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	825	922	
==>s: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	825	922	
==>s: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	441	553	
==>ame});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	441	553	
==>ame});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	441	553	
==>ame});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC};
var __args = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1334	1451	
==>h; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1334	1451	
==>h; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1334	1451	
==>h; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13312	13607	
==>[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13312	13607	
==>[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13312	13607	
==>[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	81	208	
==>class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	81	208	
==>class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	81	208	
==>class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11322	11456	
==><PS>
    | <USP>
}
rule StrNumericLiteral {  # see 9.3.1
      <StrDecimalLiteral>
    | <HexIntegerLiteral>
}
rule StrDecimalLiteral { <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10781	10886	
==>o use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, t <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10781	10886	
==>o use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, t <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9092	9211	
==>=> $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{name},
    )
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8258	8357	
==>ersection( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11735	11834	
==>ersection( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8413	8542	
==>}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8413	8542	
==>}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8413	8542	
==>}." -- ".$self->{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1626	1764	
==>elow
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1626	1764	
==>elow
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2829	2946	
==>sif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tre <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9836	9947	
==>til::rebless_with_prefix($p,'PIL::PIL1::NodeSet0::');
    return if !defined $p;
    my $c1 = $p->unparse;
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2228	2333	
==>my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2228	2333	
==>my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $ <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2037	2142	
==>d as (--> Num) { defined($.string) ?? Num $.string !! $.count }
        multi method as (--> Str) { $.stri <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9831	9946	
==>f.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9831	9946	
==>f.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $f <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2345	2501	
==>pen =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2345	2501	
==>pen =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18564	18686	
==>E::Exp::Concat" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	439	586	
==>Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => ' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	439	586	
==>Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => ' <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4714	4825	
==>$/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length $lines;

    die "Pugs ".(($?&255)?"killed by signa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	828	963	
==>_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	828	963	
==>_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13257	13348	
==>t cases</span>:<br />
		<span class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class=" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1655	1787	
==>{
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        } <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1655	1787	
==>{
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4544	4641	
==>>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the give <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4544	4641	
==>>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the give <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1208	1302	
==>b/Prelude.pm.yml";
    unlink "blib6/lib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16239	16389	
==>self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16239	16389	
==>self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16239	16389	
==>self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2658	2832	
==>current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2863	3037	
==>current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3935	4109	
==>current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	684	790	
==>mand
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->may <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	213	314	
==>' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	213	314	
==>' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2306	2440	
==>}
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2306	2440	
==>}
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2306	2440	
==>}
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3553	3647	
==>ulti method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur) <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1695	1789	
==>ulti method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	147	255	
==>hat 2.0 is based on
# this way the other mini-meta-model can be experimented
# on without loosing this code a <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1969	2064	
==>r (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=h <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1969	2064	
==>r (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4194	4325	
==>ody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4194	4325	
==>ody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4194	4325	
==>ody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3901	4053	
==>class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3901	4053	
==>class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3901	4053	
==>class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3082	3236	
==>*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2964	3109	
==>*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7931	8039	
==>.\n");*/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr,"...back.\n");*/
    SPAGAIN;
    api = PO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5638	5741	
==>running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the enti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5638	5741	
==>running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the enti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7162	7265	
==>running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the enti <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1072	1196	
==>nt <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rath <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1072	1196	
==>nt <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rath <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	946	1050	
==>ual_to    { $_[0]->_compare($_[1]) <= 0  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5222	5344	
==>name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5421	5536	
==>name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5421	5536	
==>name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	936	1028	
==>Foo->execute($compiled);

    my $same_result = Blondie::Backend::Foo->run($program);

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5078	5168	
==>S.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed") <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5078	5168	
==>S.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3602	3717	
==>pers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3602	3717	
==>pers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3602	3717	
==>pers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	759	884	
==>ows this down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{pro <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10971	11096	
==>r::open;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    my $idx = $o->{'nparen'} -1;
    sub{
      my $c <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1575	1695	
==>lib     => $config); 

    $config->{perl5path} = $^X;
    $config->{pugspath}  =
      File::Spec->catfile($config->{bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12396	12525	
==>}
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12396	12525	
==>}
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12396	12525	
==>}
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2593	2692	
==>ethod values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2593	2692	
==>ethod values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2593	2692	
==>ethod values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline('new PI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27753	27848	
==>pond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27753	27848	
==>pond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Messag <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24615	24708	
==>->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9809	9922	
==>~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9809	9922	
==>~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9809	9922	
==>~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9276	9415	
==>r1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10112	10251	
==>r1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6806	6915	
==>cal_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6806	6915	
==>cal_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6806	6915	
==>cal_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($se <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7376	7480	
==>splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7376	7480	
==>splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12120	12245	
==>'bless' => (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10817	10932	
==>.'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10817	10932	
==>.'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10817	10932	
==>.'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	42	142	
==>t $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	42	142	
==>t $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	42	142	
==>t $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var st <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	26	133	
==>:Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD] <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	24	131	
==>:Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD] <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1423	1514	
==>st::Simple.  Test::Harness is the module that reads the
output from Test::Simple, Test::More <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6777	6940	
==>size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is nec <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5281	5444	
==>size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is nec <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4663	4779	
==>char = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0; }
    elsif ( $initchar eq 'o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8702	8857	
==>"match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12608	12757	
==>"match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12608	12757	
==>"match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35952	36091	
==>dy ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35952	36091	
==>dy ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35952	36091	
==>dy ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, negative length <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4124	4242	
==>def;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4124	4242	
==>def;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4124	4242	
==>def;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	334	437	
==>ts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	334	437	
==>ts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	334	437	
==>ts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1383	1495	
==>encee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1383	1495	
==>encee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1383	1495	
==>encee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      arra <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	403	509	
==>d ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

= <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	403	509	
==>d ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

= <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3412	3514	
==>eric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4527	4640	
==>ss;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4527	4640	
==>ss;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4527	4640	
==>ss;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	561	674	
==>'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	561	674	
==>'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	561	674	
==>'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactored Code.pm from <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11178	11331	
==>ne_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_bod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11178	11331	
==>ne_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_bod <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8613	8723	
==>OPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_nolen(expr_code) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9291	9499	
==>do()); 
            })->do_while(
                block->new($e, sub { 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_not_nil()
                      -> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23178	23298	
==>> sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19599	19719	
==>> sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	609	707	
==>ub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	609	707	
==>ub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	609	707	
==>ub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7571	7697	
==>s;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7571	7697	
==>s;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7571	7697	
==>s;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12833	12955	
==>ibutes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these method <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12833	12955	
==>ibutes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these method <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10441	10531	
==>3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

prin <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	412	574	
==>hive);

        print "Copying '$archive'\n";
    
        ### get the metadata out
        {   ### extract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14379	14476	
==>(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14379	14476	
==>(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1354	1527	
==>sable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Inter <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1354	1527	
==>sable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Inter <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20913	21012	
==>e(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_boundary_not,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	37	150	
==>se strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  regist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	37	150	
==>se strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  regist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	37	150	
==>se strict;

{
  our %macro;
  sub register { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  regist <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2316	2422	
==>ion;

    # External packages used by the Relation::Example class, that do export symbols:
    # (None Yet) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25919	26014	
==>ro or more variable names and values
that are associated with the message, and can be interpolat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25919	26014	
==>ro or more variable names and values
that are associated with the message, and can be interpolat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38789	38912	
==>hat has the
same heading as the invocant and whose body contains all of the tuples that
are in the invocant Relation::Exampl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34715	34830	
==>hat has the
same heading as the invocant and whose body contains all of the tuples that
are in the invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39265	39380	
==>hat has the
same heading as the invocant and whose body contains all of the tuples that
are in the invocant Relation <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10358	10462	
==>STRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10358	10462	
==>STRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	187	304	
==>::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	151	267	
==>::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	239	355	
==>::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	810	900	
==>GNORE_EXITCODE};

my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	852	980	
==>$label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	852	980	
==>$label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	852	980	
==>$label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4447	4560	
==>self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4447	4560	
==>self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4447	4560	
==>self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SUBLIKES = ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11674	11782	
==>$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12032	12140	
==>$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	581	687	
==>roak "annotations are not eatable, flatten first";
	}

	sub type {
		my $self = shift;
		my $type = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24376	24613	
==>'$self:'         => 'opaque'),
                              symbol->new('?@superclasses' => 'list'),                              
                          ),
                returns => 'list'
            ),             
            sub <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1219	1325	
==>$host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1186	1292	
==>$host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3936	4063	
==>ata) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof',
      type => 'anyo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5996	6113	
==>parens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    len = 1;
    if(r->offsets[0] < len) {
      Renew(r->off <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1656	1813	
==>1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1656	1813	
==>1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1656	1813	
==>1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1298	1431	
==>defined $n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
        
    return _mangle_ident( $n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6458	6560	
==>a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boole <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6458	6560	
==>a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boole <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8655	8757	
==>a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boole <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9575	9694	
==>= 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9575	9694	
==>= 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9575	9694	
==>= 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19231	19331	
==>mentExpression>
    | <Expression> <','> <AssignmentExpression>
}
rule ExpressionNoIn :words {  # see <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	232	331	
==>g) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Tes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	232	331	
==>g) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Tes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	232	331	
==>g) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Tes <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5306	5464	
==>_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5306	5464	
==>_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5741	5851	
==>object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3611	3727	
==>ndef;
}

class fatal {
    # pragma to dispense of the holy war about whether to raise
    # exceptions or return fal <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18703	18809	
==>page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18703	18809	
==>page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6655	6769	
==>[]
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6655	6769	
==>[]
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6655	6769	
==>[]
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@P <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3261	3391	
==>t.
    # When module return values are specced, we can make this much
    # less hacky :-)
    for my $file (@{ $Config{precompile} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40798	40892	
==>med any time you create a
modified version of Locale::KeyedText that you are willing to distrib <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40798	40892	
==>med any time you create a
modified version of Locale::KeyedText that you are willing to distrib <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5503	5602	
==>(Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5561	5660	
==>(Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3091	3282	
==>s';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $c <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2076	2170	
==>function in C<Some::Module> called C<note> without providing any tags, it 
would look for a tag <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2076	2170	
==>function in C<Some::Module> called C<note> without providing any tags, it 
would look for a tag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3200	3294	
==>ibutes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3200	3294	
==>ibutes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3200	3294	
==>ibutes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bind1.pl	16	109	
==>erator
"sind gleich".say if $x == $y # Äquivalenz-Test

#=Identitäts-Operator
"sind identisc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2043	2151	
==>TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2043	2151	
==>TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2043	2151	
==>TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3234	3349	
==>uperclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3234	3349	
==>uperclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3234	3349	
==>uperclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4851	4971	
==>k';
            my $description = "# TODO " . _('$.description');
            return join(' ', $ok, _('$.number'), $descr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2745	2861	
==>s => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2745	2861	
==>s => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5472	5578	
==>>new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5472	5578	
==>>new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5472	5578	
==>>new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8808	8919	
==>erence (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12285	12396	
==>erence (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28193	28343	
==>el
        symbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18449	18551	
==>->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14870	14972	
==>->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7450	7554	
==>.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7450	7554	
==>.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_k <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4102	4199	
==>ndie::TypeSafe::Annotation->new(
			type => $sub->type,
			struct_equiv => $rval,
			orig => $val, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3411	3510	
==>hift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3411	3510	
==>hift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3411	3510	
==>hift @args, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11704	11837	
==>r;
        close  ($r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. Uses the sh <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	53	157	
==>:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	53	157	
==>:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3782	3939	
==>ge Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3782	3939	
==>ge Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3782	3939	
==>ge Perl6::Param;

    sub new {
        # TODO - autobox/un-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9749	9917	
==>elf.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1832	1982	
==>elf.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1832	1982	
==>elf.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $passed;
}

method s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4585	4736	
==>$colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4585	4736	
==>$colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4585	4736	
==>$colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $type $name ($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1265	1364	
==>ing containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1265	1364	
==>ing containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1812	1911	
==>ing containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	256	355	
==>alt = JIB::Alternative->new_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1911	2005	
==>E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9317	9411	
==>E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2129	2221	
==>E<lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	576	728	
==>@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	576	728	
==>@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	576	728	
==>@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1199	1290	
==>ew PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1199	1290	
==>ew PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1199	1290	
==>ew PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13198	13313	
==>ie(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13198	13313	
==>ie(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13198	13313	
==>ie(p6_to_s($xx)); };
MULTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3630	3732	
==>lf: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3630	3732	
==>lf: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6030	6136	
==>d_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6030	6136	
==>d_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6030	6136	
==>d_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1076	1178	
==>') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1076	1178	
==>') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1076	1178	
==>') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14077	14212	
==>elf->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14077	14212	
==>elf->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14077	14212	
==>elf->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5737	5909	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5737	5909	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5737	5909	
==>firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	141	249	
==>left this program pretty much
# unchanged from the original p5 Santa golf game of 2001.
# Also for future his <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4	101	
==>v6;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08 <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4	101	
==>v6;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08 <==
3	/Users/nnunley/pugs/util/package-osx.pl	8782	8892	
==>est$dirs") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	173	274	
==>refix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät; ist kein Standard-Operator!
3!  		# 3. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1212	1309	
==>ne at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1212	1309	
==>ne at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1212	1309	
==>ne at the end. So our fake document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5206	5345	
==>d ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5206	5345	
==>d ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5206	5345	
==>d ($xx)    { Perl6::Value::identify($xx) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10442	10561	
==>all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10442	10561	
==>all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10442	10561	
==>all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8921	9026	
==>le list
    ### and check if the package is available/provided by any installed pkg
    sub dependency_sat <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10398	10503	
==>le list
    ### and check if the package is available/provided by any installed pkg
    sub dependency_sat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10598	10714	
==>ped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10598	10714	
==>ped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10598	10714	
==>ped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	479	666	
==>+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head1 NAME <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5723	5820	
==>on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5723	5820	
==>on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP st <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	440	536	
==>next if $func eq $key;
		print "$key -> $func\n" if $Conf{verbose} && $funcs{$key} =~ /\b$func\b/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7141	7235	
==>ef (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7141	7235	
==>ef (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15575	15673	
==>>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define thi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15575	15673	
==>>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define thi <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3387	3479	
==>n::Gregorian;# qw(duration);

#BEGIN {
#our &Date::Gregorian::duration ::= &Duration::Gregori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1329	1470	
==>ntrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1329	1470	
==>ntrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1329	1470	
==>ntrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(argname = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2599	2712	
==>_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2599	2712	
==>_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2599	2712	
==>_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5309	5412	
==>ay is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5309	5412	
==>ay is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $pa <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2140	2234	
==>d to execution of arbitrary code;
each alternate engine may introduce additional security or me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36501	36616	
==>@head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36501	36616	
==>@head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36501	36616	
==>@head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2468	2563	
==>fix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2468	2563	
==>fix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2468	2563	
==>fix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix:« <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4310	4407	
==>--> "?", !.
p56_quantified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15732	15825	
==>hen viewing an error message, the
application's developer should see more details than joe pub <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15732	15825	
==>hen viewing an error message, the
application's developer should see more details than joe pub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11789	11893	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11789	11893	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11789	11893	
==>f Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13215	13325	
==>object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13215	13325	
==>object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13215	13325	
==>object ), 'name' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_na <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12619	12762	
==>l5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8893	9036	
==>l5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9728	9871	
==>l5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34493	34599	
==>hift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34493	34599	
==>hift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34493	34599	
==>hift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defined $offset;
    my $length = shi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6268	6383	
==>ers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase s sigspace g global c continue p pos
        once <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14922	15016	
==>This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14922	15016	
==>This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic inte <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7747	7861	
==>nstant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7747	7861	
==>nstant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1456	1557	
==>sub count_param {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3644	3755	
==>!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_childre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3644	3755	
==>!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_childre <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1962	2090	
==>nd event subclasses to define these
        # if at all.

        # the default Event/Subscriber pair really means that all notif <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13565	13656	
==>$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13565	13656	
==>$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5391	5495	
==>evels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5391	5495	
==>evels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5391	5495	
==>evels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified name, and a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1592	1692	
==>de} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1592	1692	
==>de} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1592	1692	
==>de} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outd <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11255	11343	
==>r::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail does Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1713	1799	
==>r::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1713	1799	
==>r::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Te <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4255	4369	
==>1th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4729	4822	
==>open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4951	5044	
==>open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	91	214	
==>'2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	91	214	
==>'2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	91	214	
==>'2.00';

sub import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7432	7539	
==>y $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7432	7539	
==>y $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7432	7539	
==>y $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1841	1955	
==>one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1841	1955	
==>one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1841	1955	
==>one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4241	4348	
==>hem in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4241	4348	
==>hem in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4241	4348	
==>hem in function form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12967	13117	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12967	13117	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    % <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12967	13117	
==>y ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    % <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	247	347	
==>re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	247	347	
==>re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	247	347	
==>re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4293	4407	
==>erl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doubleq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4293	4407	
==>erl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doubleq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4293	4407	
==>erl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doubleq <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9256	9349	
==>etta::Model is entirely object-oriented; you use it by
creating objects from its member classe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9256	9349	
==>etta::Model is entirely object-oriented; you use it by
creating objects from its member classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5486	5588	
==>_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5486	5588	
==>_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5486	5588	
==>_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17388	17491	
==>(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17388	17491	
==>(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17388	17491	
==>(p6_to_n($xx0) % p6_to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3117	3210	
==>ent_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3117	3210	
==>ent_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3117	3210	
==>ent_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5858	5964	
==>>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5858	5964	
==>>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5858	5964	
==>>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2117	2218	
==>eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2117	2218	
==>eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2117	2218	
==>eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1215	1323	
==>erit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1215	1323	
==>erit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7907	8002	
==>tf(stderr,"calling out...\n");*/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr,"...b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3330	3513	
==>t->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3330	3513	
==>t->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3330	3513	
==>t->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15229	15343	
==>lar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15229	15343	
==>lar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15229	15343	
==>lar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( @_ ) ? $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1263	1366	
==>=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1263	1366	
==>=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1263	1366	
==>=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3131	3233	
==>rity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3131	3233	
==>rity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3131	3233	
==>rity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block fo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	692	812	
==>::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	692	812	
==>::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35350	35454	
==>tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35350	35454	
==>tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35350	35454	
==>tail=pop length -> head=shift offset -> body=remaining 
            ( $len_tail, @tail ) = $array->_pop_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4821	4963	
==>name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4821	4963	
==>name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4821	4963	
==>name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7390	7501	
==>alues.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7390	7501	
==>alues.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7390	7501	
==>alues.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1115	1235	
==>ode $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1115	1235	
==>ode $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1115	1235	
==>ode $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5854	5949	
==>te_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5854	5949	
==>te_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5854	5949	
==>te_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1047	1152	
==>.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1047	1152	
==>.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1047	1152	
==>.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1203	1307	
==>es, and
you want to rebless everything down to your project's base namespace.

Class::Rebless walks scala <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1203	1307	
==>es, and
you want to rebless everything down to your project's base namespace.

Class::Rebless walks scala <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1203	1307	
==>es, and
you want to rebless everything down to your project's base namespace.

Class::Rebless walks scala <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17485	17599	
==>t == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13906	14020	
==>t == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1484	1607	
==>$?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1484	1607	
==>$?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1484	1607	
==>$?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1070	1174	
==>gs[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1070	1174	
==>gs[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1070	1174	
==>gs[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + ref + "\" <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14497	14635	
==>r $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	389	492	
==>rently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.pus <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	389	492	
==>rently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.pus <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13626	13731	
==>Returns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13626	13731	
==>Returns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5247	5446	
==>use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n->{param}{sub}{bareword} =~ /^v5/ ) {
                return "warn 'use v5 - not implement <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2311	2438	
==>able; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepw <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2227	2345	
==>able; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepw <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11544	11685	
==>op name=smokes>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var name=pugs_version></td>
            <td>
              <tmp <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1893	2007	
==>> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1893	2007	
==>> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $. <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	460	606	
==>^-?\d+$/ {
            @stack.push($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @st <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	268	381	
==>rns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	268	381	
==>rns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8766	8888	
==>ndex{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8754	8876	
==>ndex{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20361	20460	
==>all directory entries: while the entry only has one subdirectory and no files, collapse
    for my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9337	9430	
==>cl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3162	3255	
==>cl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7157	7278	
==>$new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7157	7278	
==>$new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2191	2318	
==>n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2191	2318	
==>n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2191	2318	
==>n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6945	7070	
==>s = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6945	7070	
==>s = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6945	7070	
==>s = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( $star <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21425	21519	
==>at is distinct from the other
attributes, though several attributes may store values of the sam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25977	26071	
==>at is distinct from the other
attributes, though several attributes may store values of the sam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24610	24704	
==>at is distinct from the other
attributes, though several attributes may store values of the sam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6225	6418	
==>y $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6225	6418	
==>y $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6225	6418	
==>y $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14994	15107	
==>ch ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14994	15107	
==>ch ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14994	15107	
==>ch ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) {
    my($j6,@b6)=@ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13536	13632	
==>r before an implementation
could be started).  This is most useful when writing modules and you
f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13594	13690	
==>r before an implementation
could be started).  This is most useful when writing modules and you
f <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4174	4262	
==>> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1411	1510	
==>mpty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1411	1510	
==>mpty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3821	3920	
==>ovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3821	3920	
==>ovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3821	3920	
==>ovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2093	2227	
==>ero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2093	2227	
==>ero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2093	2227	
==>ero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Numb <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3285	3428	
==>,                
;

}

#------ match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Ins <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3296	3439	
==>,                
;

}

#------ match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Ins <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16341	16544	
==>atch[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16335	16538	
==>atch[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8075	8189	
==>_comp => "\0", "\\X[0]");
  }

  $self->add_handler('\0' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	333	446	
==>? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	333	446	
==>? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method c <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1001	1151	
==>ti  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7047	7235	
==>TOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7047	7235	
==>TOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7047	7235	
==>TOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                retu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15274	15375	
==>ing).

If you prefer not to import these routines into your namespace, you can
call them as:

  use HT <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15274	15375	
==>ing).

If you prefer not to import these routines into your namespace, you can
call them as:

  use HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1872	2001	
==>$k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1872	2001	
==>$k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1872	2001	
==>$k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10834	10986	
==>' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10834	10986	
==>' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10834	10986	
==>' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2822	2916	
==>ce.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2822	2916	
==>ce.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22734	22833	
==>mplate can optionally use them; but often a template will
choose to show less than all of the availa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22734	22833	
==>mplate can optionally use them; but often a template will
choose to show less than all of the availa <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14211	14310	
==>", "-xvjf", $grub_local, "-C", $cdroot };

my $wrote_menulst = 0;
step
  descr  => "Creating \"$cdro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5828	5957	
==>hisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5828	5957	
==>hisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5828	5957	
==>hisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1233	1325	
==>erything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1233	1325	
==>erything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1233	1325	
==>erything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17778	17878	
==>,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17778	17878	
==>,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17778	17878	
==>,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7416	7520	
==>ad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7416	7520	
==>ad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7416	7520	
==>ad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1919	2055	
==>},
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($prot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1919	2055	
==>},
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($prot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1919	2055	
==>},
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub {
        my($prot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12735	12871	
==>ot_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12735	12871	
==>ot_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34971	35097	
==>offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34971	35097	
==>offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34971	35097	
==>offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8901	9045	
==>op::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9094	9238	
==>op::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20937	21030	
==>ression> <')'> <Statement> <'else'> <Statement>
    | <'if'> <'('> <Expression> <')'> <Stateme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11764	11849	
==>x) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11764	11849	
==>x) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11764	11849	
==>x) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16448	16562	
==>num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16448	16562	
==>num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16448	16562	
==>num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1329	1423	
==>), previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of stat <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1329	1423	
==>), previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of stat <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2944	3069	
==>local $Z::oop{$id}{'op_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if $d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5442	5552	
==>has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5442	5552	
==>has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7501	7614	
==>me = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7501	7614	
==>me = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7501	7614	
==>me = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1083	1209	
==>er; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1915	2036	
==>er; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2055	2176	
==>er; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in evaluation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2728	2840	
==>riginal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2728	2840	
==>riginal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2728	2840	
==>riginal array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7427	7558	
==>if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7427	7558	
==>if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7427	7558	
==>if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10760	10895	
==>.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10760	10895	
==>.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3334	3466	
==>s $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3334	3466	
==>s $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3500	3636	
==>$builddir/$path ] ) and error($?), return;
    }        

    ### XXX make me more robust
    local $CWD = $builddir;
    
    ### XXX in <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30734	30859	
==>EST script that came
with perl distributions for ages. Numerous anonymous contributors
exist.  Andreas Koenig held the torch f <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16309	16414	
==>et_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Couldn't open pi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8706	8840	
==>ethod plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	874	996	
==>ethod plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	874	996	
==>ethod plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $. <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	338	453	
==>infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2212	2316	
==>param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2212	2316	
==>param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9275	9375	
==>ve_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9275	9375	
==>ve_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7281	7389	
==>_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7281	7389	
==>_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7281	7389	
==>_role->add_method($method_name => ::make_private_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2308	2482	
==>::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2308	2482	
==>::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9639	9752	
==>> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, $how);
  });

  $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2215	2320	
==>ted;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2215	2320	
==>ted;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4083	4195	
==>ompile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4083	4195	
==>ompile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4083	4195	
==>ompile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2933	3074	
==>* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3150	3291	
==>* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14550	14644	
==>ap { $_->to_struct } @{ $self->registered_alternatives };
    eval { DumpFile( $self->registere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15301	15435	
==>'' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15301	15435	
==>'' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15301	15435	
==>'' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10669	10780	
==>C',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10669	10780	
==>C',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10669	10780	
==>C',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3544	3694	
==>)
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3544	3694	
==>)
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3544	3694	
==>)
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieable' =>  sub { _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2585	2693	
==>ta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2585	2693	
==>ta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2585	2693	
==>ta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_na <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10587	10707	
==>ile my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_d <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10587	10707	
==>ile my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	75	174	
==>erl6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($class) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7975	8106	
==><values> returns the value of the associated element; C<kv> returns 
a 2 element list in (index, value) order, C<pairs> a C<Pair(ind <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3704	3807	
==>quest (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3704	3807	
==>quest (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36169	36273	
==>t relation with every tuple of the <$other> relation,
then where each member of a tuple pair has attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40718	40822	
==>t relation with every tuple of the <$other> relation,
then where each member of a tuple pair has attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40332	40436	
==>t relation with every tuple of the <$other> relation,
then where each member of a tuple pair has attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2671	2784	
==>ptional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2671	2784	
==>ptional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2671	2784	
==>ptional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3333	3435	
==>NFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3333	3435	
==>NFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3333	3435	
==>NFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9842	9958	
==>$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9842	9958	
==>$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9842	9958	
==>$n6p);
        push(@names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18412	18513	
==>SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18412	18513	
==>SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18412	18513	
==>SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	73	174	
==>hift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	73	174	
==>hift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	73	174	
==>hift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PL <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3935	4152	
==>rn $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3935	4152	
==>rn $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4117	4221	
==>d docs while preserving the line counts
sub strip_comments {
    $_[0] =~ s{^[ \t]*#.*}{}mg;
    $_[0] =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13833	13963	
==>ith label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13833	13963	
==>ith label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13833	13963	
==>ith label($label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ / <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2991	3105	
==>xplanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2991	3105	
==>xplanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4515	4629	
==>xplanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $descripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9437	9573	
==>urn if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9437	9573	
==>urn if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9437	9573	
==>urn if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1436	1559	
==>ray of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1436	1559	
==>ray of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1436	1559	
==>ray of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1781	1892	
==>errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1781	1892	
==>errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1781	1892	
==>errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	460	595	
==>icy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  package_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4097	4205	
==>>{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4314	4422	
==>>{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	563	679	
==>.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rathe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	563	679	
==>.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rathe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1600	1702	
==>compiler for Perl 6

=head1 DESCRIPTION

This module provides an implementation for Perl 6.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13729	13824	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13729	13824	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13729	13824	
==>acceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8054	8178	
==>";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8054	8178	
==>";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8054	8178	
==>";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9216	9308	
==>$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9216	9308	
==>$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	896	1075	
==>et('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	896	1075	
==>et('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	896	1075	
==>et('current_class' => $class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $sel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15855	15970	
==>ODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15855	15970	
==>ODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5773	5880	
==>export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5773	5880	
==>export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17152	17257	
==>rimitive is safe {
        Num::round_gen($n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8717	8878	
==>e attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8717	8878	
==>e attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8717	8878	
==>e attribute
        return $self->has_attribute($label) ?
                    $self->get_attribute($label)
                    :
                    # class attri <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	525	641	
==>thod any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	525	641	
==>thod any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $po <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1888	2004	
==>/;
        my $self = shift;
        return $self->($label, @_);
    }
}

## ---------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4430	4573	
==>e_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4430	4573	
==>e_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4430	4573	
==>e_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	495	639	
==>e_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	700	844	
==>e_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	756	900	
==>e_instance ($%) {
        my ($class, %attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	276	378	
==>ize;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buf <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	276	378	
==>ize;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buf <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	456	553	
==>r
"general" use.  It's more of a pugs bootstrap exercise.

This code is currently completely in fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1441	1541	
==>ssibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1441	1541	
==>ssibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1441	1541	
==>ssibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	930	1035	
==>RC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class My <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	930	1035	
==>RC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class My <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11148	11295	
==>t->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11148	11295	
==>t->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11148	11295	
==>t->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1480	1649	
==>index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".." <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1480	1649	
==>index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12878	12994	
==>0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12878	12994	
==>0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12878	12994	
==>0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRA <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	214	326	
==>ect but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	214	326	
==>ect but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32352	32451	
==>ay reference of arguments to object() that will produce
its ending node:

  # the 'open' node's ende <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22848	23061	
==>em );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22848	23061	
==>em );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22848	23061	
==>em );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->sto <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17821	18000	
==>'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=ba <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17821	18000	
==>'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	580	720	
==>ethods => {
        'header' => sub { '1..' . _('$:expect') },
        'footer' => sub {
            my ($self, $run) = @_;
            retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	20	126	
==>ork quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	20	126	
==>ork quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	20	126	
==>ork quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3463	3594	
==>, they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3463	3594	
==>, they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3463	3594	
==>, they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9815	9999	
==>nstant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8475	8575	
==>ator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6011	6109	
==>ator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29978	30072	
==>just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34530	34624	
==>just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	320	413	
==>reverse_assocs", "Set", { companion => "dest" });
Has($?CLASS, "methods", "Set", { companion = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5693	5798	
==>d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    and return {
      pugs_version  => $1,
      pugs_revision => $2, <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14745	14848	
==>iven a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creat <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14745	14848	
==>iven a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9694	9822	
==>= $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{skip};

        my($estatus, $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	118	217	
==>lass, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	118	217	
==>lass, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	11	103	
==>rl6::Core::Closure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6598	6692	
==>it_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6598	6692	
==>it_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6598	6692	
==>it_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_end_exception(fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8024	8170	
==>r
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8024	8170	
==>r
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8024	8170	
==>r
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1549	1664	
==>1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1549	1664	
==>1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1549	1664	
==>1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	430	528	
==>* Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	430	528	
==>* Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	430	528	
==>* Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5321	5433	
==>sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5321	5433	
==>sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5321	5433	
==>sub p6_unmangle {
    my($mn)=@_;
    my($always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or d <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1185	1361	
==>ay }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth() <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1185	1361	
==>ay }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth() <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20956	21054	
==>sseek syswrite tell telldir truncate umask
# unlink utime warn


# chroot crypt exec getlogin /[get <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	278	374	
==>1, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	278	374	
==>1, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7792	7897	
==>0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7792	7897	
==>0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12132	12229	
==>is function currently on checks with ref() since we do not yet have
object support. Once object su <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12190	12287	
==>is function currently on checks with ref() since we do not yet have
object support. Once object su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5438	5538	
==>jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5438	5538	
==>jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5438	5538	
==>jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3753	3894	
==>some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3753	3894	
==>some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27946	28051	
==>rog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8614	8736	
==>: 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8614	8736	
==>: 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8622	8734	
==>d;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 = pop @termStack;
  goto end_2 unless $temp1;
  $$matchO <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13330	13428	
==>c seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13330	13428	
==>c seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1103	1229	
==>WP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1103	1229	
==>WP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	758	852	
==>Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	758	852	
==>Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	758	852	
==>Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24465	24581	
==>2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24465	24581	
==>2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24465	24581	
==>2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2877	3003	
==>b { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2877	3003	
==>b { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2877	3003	
==>b { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11287	11451	
==>_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11287	11451	
==>_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11287	11451	
==>_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1765	1883	
==>::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # supp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1765	1883	
==>::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # supp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1765	1883	
==>::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # supp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34748	34850	
==>package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37551	37653	
==>package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2843	2955	
==>push \@$grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub no <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2062	2165	
==>dir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2062	2165	
==>dir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns St <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1594	1691	
==>y ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1594	1691	
==>y ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1048	1156	
==>add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1048	1156	
==>add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1048	1156	
==>add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.value.FE <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	901	1025	
==>.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	901	1025	
==>.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16068	16191	
==>6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unimplemented.
      ref   => sub { $as_p6o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1329	1548	
==>tant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1456	1675	
==>tant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 , <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6927	7041	
==>turn;
    }

    local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;
    if ( $Test::Harness::Debug ) {
        local $^W= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7081	7189	
==>es' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7081	7189	
==>es' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7081	7189	
==>es' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# this is done again
::opaque_inst <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3896	3997	
==>s 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3896	3997	
==>s 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5420	5521	
==>s 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3111	3233	
==>(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3111	3233	
==>(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3111	3233	
==>(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2149	2298	
==>= blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class->roles}) {
        $output .= _draw_role($role);
        $output .= "node <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2952	3069	
==>)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2952	3069	
==>)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	687	820	
==>e instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	687	820	
==>e instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	687	820	
==>e instance without a class";
        my $instance = bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	218	351	
==>hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	218	351	
==>hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused! <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	925	1043	
==>%result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) return <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21489	21586	
==>tes may store values of the same class;
every Relation tuple must be distinct from the other tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26041	26138	
==>tes may store values of the same class;
every Relation tuple must be distinct from the other tuple <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4643	4748	
==>key = emit(get_data($_[0], '$<key>'));
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = em <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	355	446	
==>oc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialect <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	355	446	
==>oc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1	120	
==>!/usr/bin/perl -w

=kwid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1	120	
==>!/usr/bin/perl -w

=kwid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1	120	
==>!/usr/bin/perl -w

=kwid

Note that an alternative to writing primitives in p5 is to write them
in p6 and add them to Pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3054	3198	
==>> 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        assoc => 'l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2766	2895	
==>_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2766	2895	
==>_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6086	6193	
==>lasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6086	6193	
==>lasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6086	6193	
==>lasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11049	11193	
==>@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11049	11193	
==>@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11049	11193	
==>@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2995	3200	
==>eturn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2995	3200	
==>eturn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2995	3200	
==>eturn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10203	10304	
==>)>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10203	10304	
==>)>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10225	10380	
==>less sub {
            confess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10225	10380	
==>less sub {
            confess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10225	10380	
==>less sub {
            confess "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	417	528	
==>t Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1206	1317	
==>t Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{ta <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12717	12813	
==>ples of the "across" values.  Also, it maybe probably be
in terms of longest non-infinite.  -law] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2031	2152	
==>ommand_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2031	2152	
==>ommand_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2031	2152	
==>ommand_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6994	7092	
==>)' directive is reached. This does not include 
the text of the header, that will be processed as a <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6994	7092	
==>)' directive is reached. This does not include 
the text of the header, that will be processed as a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5110	5199	
==>---------------------------------------
## now begin creating the metamodel, starting with <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7180	7303	
==>and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1766	1871	
==>(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ($self, $args) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2873	2995	
==>test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2873	2995	
==>test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2873	2995	
==>test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] : <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9371	9501	
==>unless $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	511	626	
==>? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5403	5495	
==>name,$rep,$type,@pairs)=@$_;
        my $o = PIL::PIL1CPerl5::NodesInfo::Object->new($name,$r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5551	5656	
==>onal
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fail <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5551	5656	
==>onal
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7075	7180	
==>onal
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before running them.

Fail <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2804	2904	
==>_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2804	2904	
==>_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_S <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1775	1962	
==>fix:<*>'),
										Sym('$n'),
										App(
											Sym('&fact'),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											),
										), <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6779	6872	
==>Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6779	6872	
==>Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5653	5789	
==>\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $nam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2989	3125	
==>\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3838	3974	
==>\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $nam <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	512	620	
==>PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_nmake};
        $self->mak <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7640	7747	
==>+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7640	7747	
==>+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35131	35237	
==>ad=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35131	35237	
==>ad=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35131	35237	
==>ad=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	623	780	
==>] )                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $archive -C $my_tmp_dir -xz] ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	905	1050	
==>] )                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6689	6797	
==>s>? 
    $<term2> := (<term1>|<term2>) <p6ws>? \;
        { return { sub_application => $() ,} }
RULE
*{'eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2748	2849	
==>spatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2748	2849	
==>spatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2748	2849	
==>spatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10932	11054	
==>}
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10932	11054	
==>}
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10932	11054	
==>}
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2235	2386	
==>pe => new Object(),
    # class definition
        get_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2178	2284	
==>nt parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2318	2424	
==>nt parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19101	19195	
==>migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19101	19195	
==>migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1937	2159	
==>in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            push @bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	368	482	
==>ub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	400	514	
==>ub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	2	123	
==>ckage PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	2	123	
==>ckage PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	2	123	
==>ckage PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27634	27728	
==>e corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32186	32280	
==>e corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31278	31372	
==>e corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymous function tha <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9507	9631	
==>rse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 mu <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1793	1904	
==>e toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|c <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1793	1904	
==>e toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4564	4743	
==>} ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4564	4743	
==>} ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4564	4743	
==>} ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29314	29415	
==>ts values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25796	25896	
==>ts values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30348	30448	
==>ts values the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17547	17677	
==>e doesn't fmap but is an object";
            return "$node";
        }
    } else {
        return defined $node ? String::Escape: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4187	4286	
==>tart or end value of the span.

These methods may return nothing if the span is empty.

- `start_is_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4187	4286	
==>tart or end value of the span.

These methods may return nothing if the span is empty.

- `start_is_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	165	308	
==>= JIB::Dependency->new_from_struct( struct => STRUCT )

=cut

sub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $stru <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12657	12762	
==>urn $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex chara <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6132	6237	
==>urn $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex chara <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4020	4123	
==>ine )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4020	4123	
==>ine )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4100	4203	
==>ine )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item B<t <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1804	1915	
==>elude ($TEMP_PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comments($program <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	290	391	
==>then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	290	391	
==>then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	290	391	
==>then modules
# (which are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3962	4096	
==>y < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3962	4096	
==>y < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3962	4096	
==>y < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34299	34395	
==>tional operator that returns the complement of
C<semijoin> with the same argument.  This method h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38849	38945	
==>tional operator that returns the complement of
C<semijoin> with the same argument.  This method h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38328	38424	
==>tional operator that returns the complement of
C<semijoin> with the same argument.  This method h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	459	560	
==>an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	459	560	
==>an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	459	560	
==>an attribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9148	9316	
==>ference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12625	12793	
==>ference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	750	839	
==>erl6/doc/trunk/';
    my $_PERL6_BIBLE =  'http://tpe.freepan.org/repos/iblech/Perl6-Bible <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5323	5469	
==>" ) {
            while (<FH>) {
                last META_NOT_OURS if /^generated_by: Module::Install\b/;
            }
            return $self i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18397	18504	
==>parsing.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTI <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18397	18504	
==>parsing.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4304	4402	
==>ver 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4304	4402	
==>ver 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5828	5926	
==>ver 4

=item C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8546	8652	
==>_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8546	8652	
==>_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8546	8652	
==>_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4661	4796	
==>m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4661	4796	
==>m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4661	4796	
==>m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	135	257	
==>ng which does subscriber can recieve them
# two kinds of things that can do subscriber:
# - Code
# - Object

# The notifica <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	742	841	
==>else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	742	841	
==>else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	44	154	
==>ur $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAG <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	44	154	
==>ur $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAG <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	44	154	
==>ur $VERSION = '0.24';

use base 'Exporter';
our @EXPORT = qw(bind_op bind_op2);
use base 'DynaLoader';
__PACKAG <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20924	21018	
==>easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20924	21018	
==>easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10169	10263	
==>m_codes(A,L) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3653	3753	
==>ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3653	3753	
==>ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3653	3753	
==>ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	177	324	
==>e $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	177	324	
==>e $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	66	202	
==>);
use File::Spec;
our %Config = %Config::Config;

sub get_config {
    my $config = {
        perl_revision   => '6',
        perl_versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13843	13937	
==>LTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13843	13937	
==>LTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13843	13937	
==>LTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6671	6838	
==>legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under th <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6728	6895	
==>legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under th <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	617	717	
==>dd_edge($key, $func) if($funcs{$key} =~ $func)
	}
}

if ($Conf{leaves}) {
    print "$_\n" for grep { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19506	19601	
==>C<$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, yo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19506	19601	
==>C<$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, yo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4383	4478	
==>rd-gz=$initrd_gz
    mklivecd.pl automatically generates a gzipped initrd suitable for GRUB.
  - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	410	518	
==>me = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	410	518	
==>me = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	410	518	
==>me = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10043	10151	
==>r $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10043	10151	
==>r $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3015	3119	
==>ile (my $try = pop @{ $self->{next} }) {
    if (defined(my $r = $self->$try)) {
      $r->insert($self-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2762	2869	
==>ter

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2762	2869	
==>ter

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Build <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2842	2949	
==>ter

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5693	5940	
==>ub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5693	5940	
==>ub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5693	5940	
==>ub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        ' <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3443	3550	
==>gs_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_smoke($_) } glob "pugs- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8742	8833	
==>("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8742	8833	
==>("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representat <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4632	4783	
==>le';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f, 'file';  -->  our $f = open 'file';

    sub { $self->blah }         --> sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6922	7020	
==>s, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an interface bet <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6686	6781	
==>s, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an interface bet <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40236	40335	
==>module when creating warning and
error messages for your sub-class.

  package Your::SubClass;
  # u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9111	9204	
==>fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Gramma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2936	3029	
==>fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Gramma <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6438	6532	
==>mental(R)         --> p5_simple_escape_sequence(R).
p5_elemental(negSet(X)) --> "[^", !, p5_cha <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25907	26000	
==>of any changes, in
addition to preserving this original copyright notice and other credits.
Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25907	26000	
==>of any changes, in
addition to preserving this original copyright notice and other credits.
Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	774	907	
==>.$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	774	907	
==>.$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	774	907	
==>.$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Do <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4204	4316	
==>n "", $self->raw, map($_->qr, @{ $self->{data} }), "]";
  }

  sub visual {
    my $self = shift;
    join "", $s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	202	301	
==>bmethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    metho <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	202	301	
==>bmethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    metho <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4587	4731	
==>= 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4587	4731	
==>= 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11981	12091	
==>natives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $inst->remove_available( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1431	1536	
==>hift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1431	1536	
==>hift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1431	1536	
==>hift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV}->isa("PIL::PVar") a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5007	5113	
==>rns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5007	5113	
==>rns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6531	6637	
==>rns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17889	17991	
==>**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17889	17991	
==>**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17889	17991	
==>**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10422	10560	
==>OrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10422	10560	
==>OrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10422	10560	
==>OrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8024	8135	
==>atement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5426	5531	
==>atement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation f <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	326	421	
==>x:P5/\b([A-Z]\w+[A-Z]\w+)/;
my $topic     = join("\n", param('topic')) || 'FrontPage';
my $entry <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3892	3999	
==>ull_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7369	7476	
==>ull_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6335	6442	
==>ull_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5243	5415	
==>in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5243	5415	
==>in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5243	5415	
==>in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            requir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3871	3982	
==>e an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3871	3982	
==>e an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3871	3982	
==>e an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	360	462	
==>components you need.

= WHY

You should use this module as a starting point to base
a new module distri <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10000	10096	
==>ress. As new features are
added to Pugs, new test functions will be defined to facilitate the
tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10058	10154	
==>ress. As new features are
added to Pugs, new test functions will be defined to facilitate the
tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1405	1507	
==>value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1405	1507	
==>value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1405	1507	
==>value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Per <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8539	8665	
==>ame '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8539	8665	
==>ame '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9536	9643	
==>ok$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is primitive".
macro r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6550	6658	
==>ype eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6550	6658	
==>ype eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6550	6658	
==>ype eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2325	2449	
==>{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2325	2449	
==>{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2325	2449	
==>{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9645	9804	
==>self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9645	9804	
==>self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9645	9804	
==>self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1098	1193	
==>a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1098	1193	
==>a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1098	1193	
==>a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSC <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	109	208	
==>bstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <sou <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	109	208	
==>bstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <sou <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1324	1416	
==>turns List
 &sort<> := &sort<Criterion>.assuming(by => &infix:<cmp>);

 type KeyExtractor ::= <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5910	6005	
==>y choose, however, to override 
any method for speed--although they should be careful to avoid c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5910	6005	
==>y choose, however, to override 
any method for speed--although they should be careful to avoid c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3697	3810	
==>se then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3697	3810	
==>se then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3697	3810	
==>se then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	579	696	
==>array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	579	696	
==>array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	579	696	
==>array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on object <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7547	7683	
==>et_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We succ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7547	7683	
==>et_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We succ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13427	13524	
==>t terminated

=item RPe_LOGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3636	3762	
==>xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 leve <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3636	3762	
==>xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 leve <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1248	1351	
==>.>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1248	1351	
==>.>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14051	14178	
==>val { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14051	14178	
==>val { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14051	14178	
==>val { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s->unboxed };
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	373	556	
==>p::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	373	556	
==>p::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::consta <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26471	26564	
==>gs[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:query :interactive :load :assert :context :ru <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29700	29801	
==>the same as those of another,
or are the same as the unaffected invocant's attributes.  This method
su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34252	34353	
==>the same as those of another,
or are the same as the unaffected invocant's attributes.  This method
su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33416	33517	
==>the same as those of another,
or are the same as the unaffected invocant's attributes.  This method
su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8681	8774	
==>6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2506	2599	
==>6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { G <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14810	14901	
==>/boot/splashscreen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1043	1160	
==>s>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*Funct <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1043	1160	
==>s>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*Funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10581	10719	
==>l')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10581	10719	
==>l')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10581	10719	
==>l')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @p <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6808	6923	
==>',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'para <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6808	6923	
==>',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'para <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3707	3822	
==>',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20931	21031	
==>to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20931	21031	
==>to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20931	21031	
==>to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9111	9217	
==>{ p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9111	9217	
==>{ p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9111	9217	
==>{ p6_new(Junction => 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4836	4948	
==>.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4836	4948	
==>.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4836	4948	
==>.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9464	9568	
==>> print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWare';
my $is_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5990	6089	
==>reful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be ne <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5990	6089	
==>reful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be ne <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	353	459	
==>$args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self-> <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	384	479	
==>$args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self-> <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1595	1710	
==>ssion.new;
  say $POE::Kernel.post($session, "say_hello", "Ingo");
  # "Hello, Ingo!"

=head1 DESCRIPTION

This is a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16319	16416	
==>o spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16319	16416	
==>o spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6748	6840	
==>(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6748	6840	
==>(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8845	8941	
==>object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METH <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8845	8941	
==>object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METH <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	438	525	
==>doValue;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalValue::Referen <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1415	1586	
==>fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$n'),
						App(
							Sym('&control_structure:<if>'),
							App(
								S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3402	3572	
==>ule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as strin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3542	3712	
==>ule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as strin <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3259	3365	
==>^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!de <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4405	4500	
==>4+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4405	4500	
==>4+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2306	2413	
==>ionality fixed proper to use this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir('build');
$co <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13831	13928	
==>ts.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13889	13986	
==>ts.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) r <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7029	7324	
==>gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7086	7381	
==>gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2634	2742	
==>an be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    # fill the place holde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11343	11486	
==>mify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11343	11486	
==>mify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11343	11486	
==>mify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't work if $cod <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2235	2401	
==>self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%meth <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2235	2401	
==>self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%meth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1377	1492	
==>ulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5748	5877	
==>\n";
    } elsif ($range < 0) {
        # This is also a fail
        unshift @mess, "# range must not be negative\n";
    } elsif <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2896	3003	
==>shift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $d <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2896	3003	
==>shift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6912	7047	
==>name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6912	7047	
==>name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6912	7047	
==>name . '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3233	3373	
==>ift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3952	4067	
==>ift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Objec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2727	2833	
==>keted( '<' . $_[0], '<..>' );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1175	1279	
==><~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1175	1279	
==><~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2867	2971	
==>$global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2867	2971	
==>$global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2867	2971	
==>$global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26487	26683	
==>join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26487	26683	
==>join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26487	26683	
==>join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            per <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4312	4427	
==>cted lines from the previously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4312	4427	
==>cted lines from the previously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4392	4507	
==>cted lines from the previously run tests,
passing if both the diagnostics and output match exactly.  If you pass
C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	746	851	
==>jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	746	851	
==>jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	746	851	
==>jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $se <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3775	3886	
==>n($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #i <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1875	1986	
==>n($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #i <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	304	403	
==>mmits;
my @commits;
my @developers;
my %devs_seen;

print STDERR <<INFO unless @ARGV;
Pipe output of <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	135	247	
==>s $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # loca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	99	210	
==>s $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # loca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	187	298	
==>s $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # loca <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1119	1226	
==>);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# remov <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1119	1226	
==>);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# remov <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4459	4564	
==>Wasn't able to find '$basename', aborting...\n";
        }

        unless( File::Spec->canonpath($candida <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	397	526	
==>ss 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	397	526	
==>ss 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1948	2062	
==>JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1948	2062	
==>JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1948	2062	
==>JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 })')(@self);
}

method map(@self is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	702	813	
==>o'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	702	813	
==>o'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	702	813	
==>o'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11761	11878	
==>us;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  {
      method report retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2191	2296	
==>us;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method report retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2191	2296	
==>us;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{
    method report retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3406	3525	
==>= any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6883	7002	
==>= any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5840	5959	
==>= any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$ma <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6108	6227	
==>t( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6108	6227	
==>t( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	947	1050	
==>ize;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	947	1050	
==>ize;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12903	13033	
==>_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word com <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12903	13033	
==>_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word com <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9304	9404	
==>r not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are tim <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9304	9404	
==>r not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are tim <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21106	21220	
==>tom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17527	17641	
==>tom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6380	6501	
==>angle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6380	6501	
==>angle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6380	6501	
==>angle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\n// End of initialization of global vars and ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12530	12687	
==>walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12530	12687	
==>walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12530	12687	
==>walk the methods
            my $method = ::WALKMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1756	1879	
==>e "Can't write $exename.exe: $!";
    binmode $EOUT;
    print $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2277	2394	
==>*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*EN <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2277	2394	
==>*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10921	11059	
==>' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10921	11059	
==>' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10921	11059	
==>' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7125	7261	
==>s( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7125	7261	
==>s( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7125	7261	
==>s( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39382	39495	
==>rray = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39382	39495	
==>rray = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39382	39495	
==>rray = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERS <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3318	3492	
==>ay

 multi sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::L <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2584	2679	
==>at contain only source representation.

=back

=head1 API METHODS

These methods must be impleme <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2584	2679	
==>at contain only source representation.

=back

=head1 API METHODS

These methods must be impleme <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1211	1320	
==>nating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our ar <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1211	1320	
==>nating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13511	13649	
==>s, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13511	13649	
==>s, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13511	13649	
==>s, going to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	385	491	
==>)) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_chi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6331	6429	
==>k';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6331	6429	
==>k';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'C <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	384	506	
==>e; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($schem <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	418	539	
==>e; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($schem <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	64	156	
==>01;

our $iso8601_duration_re_anchored = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1741	1865	
==>ar ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1741	1865	
==>ar ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1741	1865	
==>ar ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5775	5882	
==>thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5775	5882	
==>thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5775	5882	
==>thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	524	637	
==>de $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	524	637	
==>de $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	524	637	
==>de $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15357	15489	
==>ow try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15357	15489	
==>ow try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15357	15489	
==>ow try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::opaque_instance_attr($class => <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11406	11537	
==>_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_wit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11406	11537	
==>_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_wit <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1810	1908	
==>:Alternative object, if this package is a registered alternative

=cut
    
=head2 $pkg->install( . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1938	2099	
==>Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1938	2099	
==>Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1938	2099	
==>Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->cl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2025	2148	
==>ERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	955	1055	
==>+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	955	1055	
==>+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output = <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11879	11993	
==>RL5LIB};
    my $perl = $self->_command;
    my @inc =`$perl -le "print join qq[\n], \@INC"`;
    chomp @inc;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	392	497	
==>$class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	392	497	
==>$class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34624	34740	
==>ue::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34624	34740	
==>ue::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34624	34740	
==>ue::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	885	1066	
==>generate_attribute($_) }
                             $class->attributes->members,
                             $class->associations->members,
                             # 2-way as <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4578	4708	
==>',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "tim <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4578	4708	
==>',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "tim <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26868	26961	
==>Variables" attribute if the corresponding argument is
provided (it defaults to empty if the ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26868	26961	
==>Variables" attribute if the corresponding argument is
provided (it defaults to empty if the ar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30203	30305	
==>C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operato <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34755	34857	
==>C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operato <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33928	34030	
==>C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
standard C<map> operato <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23590	23687	
==>-doing object
can mutate.  Depending on the implementing class, it can default to True or
False, b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28142	28239	
==>-doing object
can mutate.  Depending on the implementing class, it can default to True or
False, b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26955	27052	
==>-doing object
can mutate.  Depending on the implementing class, it can default to True or
False, b <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	383	509	
==>gcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execute($r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1954	2042	
==>gs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=ite <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2043	2131	
==>gs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2784	2877	
==>::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2784	2877	
==>::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2784	2877	
==>::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5292	5402	
==>ng two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5292	5402	
==>ng two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7489	7599	
==>ng two keys, C<passed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	801	930	
==>name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => ' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3467	3578	
==>}
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => % <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3467	3578	
==>}
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => % <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	579	692	
==>_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '< <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	579	692	
==>_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	313	425	
==>return 1 if $_[1] eq 'Str'  && defined $_[0];
    return 1 if $_[1] eq 'Num'  && defined $_[0];
    return 1 if $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6137	6228	
==>ine some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6137	6228	
==>ine some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6198	6353	
==>02f", Time::Seconds->new($6)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $7,
        ok          => $8,
        failed      => <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3299	3402	
==>}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@i <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3299	3402	
==>}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13233	13341	
==>lue => sub { p6_as_str(${$_[0]}) },
      perl5_object => sub { "". $_[0] },
      perl6_object => sub { $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5863	5956	
==>todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_start <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5921	6014	
==>todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6748	6848	
==>aque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6748	6848	
==>aque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6748	6848	
==>aque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4238	4453	
==>*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibil <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4238	4453	
==>*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibil <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12093	12251	
==>ailedtests{$tfile} = _dubious_return(\%test, \%tot, 
                                                       $estatus, $wstatus);
                $failedtests{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1060	1174	
==>$remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1060	1174	
==>$remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7150	7246	
==>code_for_code_CODE {
    my(%c)=@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw(nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	635	765	
==>ETCH {
    my $self = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18734	18830	
==>alect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18734	18830	
==>alect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	229	364	
==>s => [ '$:expect' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exists $params{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16146	16278	
==>";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { en <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16146	16278	
==>";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4122	4236	
==>efault;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4122	4236	
==>efault;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4122	4236	
==>efault;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8774	8885	
==>((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8774	8885	
==>((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8774	8885	
==>((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\*\/~\-]|\n))/
    ord $1 > 127
      ? sprintf "\\u%04x", ord $1
      : sprintf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11651	11850	
==><\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7933	8132	
==><\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8767	8966	
==><\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\ <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	230	327	
==>apples apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17004	17098	
==>has been applied to the resource.

=item $h.content_length

A decimal number indicating the siz <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17004	17098	
==>has been applied to the resource.

=item $h.content_length

A decimal number indicating the siz <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	459	568	
==>sently ...
  $maketoken := { [ $^tok_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	392	494	
==>rs
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Dat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	392	494	
==>rs
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Dat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9524	9624	
==>orce_object(anyof_class => word => $neg, $how);
  });

  # xdigit POSIX class
  $self->add_handler('P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	253	352	
==>adonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!], <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	253	352	
==>adonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!], <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1756	1878	
==>L2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1756	1878	
==>L2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1756	1878	
==>L2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9736	9835	
==>info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9736	9835	
==>info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9736	9835	
==>info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12161	12277	
==>hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12161	12277	
==>hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12161	12277	
==>hashref} = {} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11550	11675	
==>{$_[0]}) ?
      glob  => sub { ${$_[0]} ? 1 : undef },
      lvalue => sub { p6_as_bool(${$_[0]}) },
      perl5_object => su <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	413	559	
==>ir $Alternatives ] .
            qq[$Repodir] )                                      and die $?;
    system( qq[touch $Available $Altfile $Repoinde <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	636	760	
==>=> sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	733	857	
==>=> sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16836	16930	
==>m $h.content_encoding

The Content-Encoding header field is used as a modifier to the
media typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16836	16930	
==>m $h.content_encoding

The Content-Encoding header field is used as a modifier to the
media typ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4524	4663	
==>ores) {
    foreach my $cat   (keys %{ $runcores{$runcore} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2853	2959	
==>is returns a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we us <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2853	2959	
==>is returns a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1900	2024	
==>, they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1900	2024	
==>, they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1900	2024	
==>, they basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	611	764	
==>->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	611	764	
==>->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	611	764	
==>->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17260	17383	
==>,Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21976	22069	
==>ttribute Relation with zero tuples or
one tuple respectively have a special meaning in relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26528	26621	
==>ttribute Relation with zero tuples or
one tuple respectively have a special meaning in relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7195	7290	
==>eturns Relation::Example {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&sele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4342	4441	
==>rray})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4342	4441	
==>rray})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4342	4441	
==>rray})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6449	6558	
==>"; my $lvalue =   %pad<"pLValue">;
        dbg "# Parameters: "; my @params =   traverse_ast ( %pad<"pParams"> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3328	3415	
==>mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$construc <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3328	3415	
==>mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$construc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	556	670	
==>rint "P5: ",$p6->{perl5}, "\n";
    exit;
}

warn "no code";
__END__

#use Test::More 'no_plan';
print q(#if key:<v <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2853	3010	
==>mp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elem <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2853	3010	
==>mp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_elem <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3241	3346	
==>.
        "8th line\n9th line\n10th line\n11th line\n12th line\n" ],
      [ 'file21', $file21, "12th line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15540	15646	
==>{ $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->key <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15540	15646	
==>{ $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->key <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15540	15646	
==>{ $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2518	2617	
==>ck();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2518	2617	
==>ck();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2518	2617	
==>ck();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16889	17013	
==>s == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    my Relation::Example @r_w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18561	18661	
==>ose' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19919	20019	
==>ose' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7501	7615	
==>s copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7501	7615	
==>s copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7501	7615	
==>s copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7634	7754	
==>idAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_w <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7075	7190	
==>idAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28703	28811	
==>t('and');
    });
  }

There is a specific scheme to how you must name your handlers.  If you
want to install <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11351	11499	
==>pture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11630	11778	
==>pture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24892	25014	
==>.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2678	2793	
==>elf->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2678	2793	
==>elf->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2678	2793	
==>elf->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $sel <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10029	10286	
==>==1 ? 1 : 0);
          }
          }
      }
  }
                                                                                           
  my $infile  = IO::File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7587	7712	
==>_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7575	7700	
==>_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, n <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1677	1788	
==>::Straps->new;

Initialize a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1400	1494	
==>L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1400	1494	
==>L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	760	878	
==>ypeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	760	878	
==>ypeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	760	878	
==>ypeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3225	3364	
==>elf);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3225	3364	
==>elf);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11248	11373	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1545	1651	
==>pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(ru <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1545	1651	
==>pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(ru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1497	1682	
==>tion'},
                '$.passed'      =>                        1,
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            retur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1214	1304	
==>l::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1214	1304	
==>l::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	458	587	
==>ms<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	458	587	
==>ms<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	76	177	
==>ondie::Node::Atomic/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2161	2384	
==>method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2161	2384	
==>method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2161	2384	
==>method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3202	3316	
==>tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method v <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3202	3316	
==>tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method v <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	493	607	
==>ok_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input is exh <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7280	7379	
==>.Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `spli <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7280	7379	
==>.Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1925	2037	
==>ta::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1925	2037	
==>ta::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2161	2273	
==>ta::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8787	8907	
==>:constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8980	9100	
==>:constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/util/version_h.pl	2296	2388	
==>er
    unlink "$base/dist/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	546	667	
==>un_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	546	667	
==>un_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	546	667	
==>un_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3682	3779	
==>1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3682	3779	
==>1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2655	2756	
==>multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2655	2756	
==>multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2655	2756	
==>multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	752	892	
==>m )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::floor (  Num  $x            --> Int )
 { Pugs::Internals::floor($x) }


 multi  Num::ceili <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	156	254	
==>port { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV< <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	156	254	
==>port { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3666	3817	
==>Class ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3666	3817	
==>Class ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3666	3817	
==>Class ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3017	3155	
==>cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $ari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3017	3155	
==>cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $ari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3017	3155	
==>cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("Code");
  my $arity = $cmp.arity;
  $ari <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	596	734	
==>t ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	596	734	
==>t ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir <==
3	/Users/nnunley/pugs/util/version_h.pl	2319	2417	
==>st/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17097	17215	
==>head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17097	17215	
==>head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17097	17215	
==>head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str::to_num( 'NaN' );
 
  # Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	442	538	
==>$str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	442	538	
==>$str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	442	538	
==>$str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struct, " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5351	5485	
==>) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUti <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5869	5979	
==>) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6667	6771	
==>mar::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>|<term2>) <p6ws>? \;
        { return { sub_applicatio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	421	540	
==>$2;
    my $source = "";
    my $deep = 1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $so <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19039	19133	
==>ser text that is
associated with hard-coded program conditions.  In other words, this user
text <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19039	19133	
==>ser text that is
associated with hard-coded program conditions.  In other words, this user
text <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16882	16975	
==>atically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16882	16975	
==>atically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	790	950	
==>JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  ti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	790	950	
==>JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  ti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	790	950	
==>JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  ti <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2625	2799	
==>\:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2872	3046	
==>\:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2844	2951	
==>{syncat} = PGE_OPTABLE_PREFIX;
  }
  elsif ( $syncat eq "postcircumfix" )
  {
    $token{syncat} = PGE_OPTAB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14746	14885	
==>itialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14746	14885	
==>itialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14746	14885	
==>itialize_late {
    { local $SIG{__WARN__} = sub {};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13531	13655	
==>'s heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17008	17132	
==>'s heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16370	16494	
==>'s heading is a proper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_sem <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13763	13880	
==>thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1243	1360	
==>thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4099	4201	
==>od_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4099	4201	
==>od_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4099	4201	
==>od_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::make_s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3903	4247	
==>= "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #L <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3903	4247	
==>= "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #L <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17367	17470	
==>Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] eq $expected : $expected },
		$runperl_args, $name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3993	4140	
==>xt_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3993	4140	
==>xt_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3993	4140	
==>xt_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2505	2646	
==>}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errmsg} = sprintf $err, @args;
  croak $self->{errmsg};
}


sub warn {
  my ($self <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4022	4127	
==>{ $_[0]{left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14213	14308	
==>}

multi method product (Relation::Example *@others) returns Relation::Example {

    if (+@othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13247	13405	
==>eturn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13247	13405	
==>eturn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13247	13405	
==>eturn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	178	307	
==>$self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	178	307	
==>$self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	178	307	
==>$self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16833	16922	
==>gs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16833	16922	
==>gs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16833	16922	
==>gs::Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11901	12114	
==>}
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11901	12114	
==>}
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11901	12114	
==>}
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24322	24430	
==>");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = type::variable <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	328	434	
==>y_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1186	1292	
==>y_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14271	14393	
==>ke_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14271	14393	
==>ke_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14271	14393	
==>ke_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2748	2952	
==>path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($vers <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2748	2952	
==>path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2167	2285	
==>$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2167	2285	
==>$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2167	2285	
==>$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3171	3398	
==>ure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3171	3398	
==>ure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	919	1053	
==>cedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6316	6414	
==>he returned match, 

that makes it return until the start of the rule, which unsets the flag before <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6111	6208	
==>he returned match, 
that makes it return until the start of the rule, which unsets the flag before <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13542	13636	
==>e_type(D, xdigit(_)) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), he <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	307	414	
==>means 'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash contai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	293	394	
==>means 'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash contai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16655	16758	
==>List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16655	16758	
==>List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16655	16758	
==>List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRI <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	160	279	
==>he_vorbei();  }
	when /grrr+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8638	8748	
==>{
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8638	8748	
==>{
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8638	8748	
==>{
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10420	10599	
==>her );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13897	14076	
==>her );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	267	418	
==>n rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshi <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	267	418	
==>n rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshi <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1435	1524	
==>@${re_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_symbol}\s*,\s*) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8317	8444	
==>eq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8317	8444	
==>eq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8317	8444	
==>eq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO' => ::make <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3929	4024	
==>parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3929	4024	
==>parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6126	6221	
==>parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	362	458	
==>the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	362	458	
==>the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8323	8425	
==>method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8323	8425	
==>method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8323	8425	
==>method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8736	8843	
==>a::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8732	8839	
==>a::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $q <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	373	472	
==>ts (*@index ) returns List of Bool;

multi sub keys   (@array ; Any|Junction *@indextests) returns L <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3121	3218	
==>ing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test module <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3121	3218	
==>ing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3201	3298	
==>ing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7162	7271	
==>pe: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7162	7271	
==>pe: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7162	7271	
==>pe: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->t <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1000	1100	
==>_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1000	1100	
==>_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.chi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5811	5927	
==>possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5811	5927	
==>possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5811	5927	
==>possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2473	2601	
==>ol => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2613	2741	
==>ol => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	200	307	
==>Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	200	307	
==>Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	200	307	
==>Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, St <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3267	3374	
==>.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($co <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3267	3374	
==>.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5261	5358	
==>nce to the current value, 
this allows r/w access to the value.

=item B<apply (closure) return li <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	852	975	
==>t>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	852	975	
==>t>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3280	3388	
==>N;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ $self->{stack} } while @{ $self->{stack} };
    delete $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	378	486	
==>ieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to publi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	378	486	
==>ieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to publi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	378	486	
==>ieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promoted to publi <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14256	14373	
==>pe;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1736	1853	
==>pe;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8456	8576	
==>il =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8456	8576	
==>il =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8456	8576	
==>il =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15999	16095	
==>ion modules get compiled into some
altered form the first time they are run. The result is cached <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15999	16095	
==>ion modules get compiled into some
altered form the first time they are run. The result is cached <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7359	7452	
==>generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_thunk = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11654	11756	
==>ER R}';
  my $qr = qr/$rx/;

Perl's regex interprets the '\N' as a needlessly backslashed 'N'.  My
modu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15090	15188	
==>es modify the string passed as the first argument, if
called in a void context.  In scalar and arra <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15090	15188	
==>es modify the string passed as the first argument, if
called in a void context.  In scalar and arra <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	56	158	
==>:Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	56	158	
==>:Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8248	8346	
==>/ if $n;
	    $n};
	return "p6_applym('$fun_name',$argl)" if $fun_name;
	return "p6_applyi($fun,$ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9799	9971	
==>sh if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./cle <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9799	9971	
==>sh if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./cle <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6200	6328	
==>elf, $name) = @_;
    (defined $name) 
        || confess "You must supply a name to get";    
    my $current = $self;
    while <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3982	4085	
==>ailing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3982	4085	
==>ailing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4062	4165	
==>ailing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	990	1107	
==>{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	990	1107	
==>{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	990	1107	
==>{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7298	7464	
==>>perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7298	7464	
==>>perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7298	7464	
==>>perl },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1105	1224	
==>erl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1105	1224	
==>erl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1105	1224	
==>erl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5964	6060	
==>f development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid righ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5964	6060	
==>f development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid righ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1480	1579	
==>utput from Test::Simple, Test::More and other modules based on
Test::Builder.  You don't need to kno <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7434	7527	
==>irective (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7434	7527	
==>irective (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('f <==
3	/Users/nnunley/pugs/util/func_refact.pl	797	902	
==>nt "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doUnion (@{$Conf{initial}});
} else {
        p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13187	13282	
==>`negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This meth <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13187	13282	
==>`negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17592	17685	
==>Compile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17592	17685	
==>Compile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered c <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1301	1389	
==>(\??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_alias>|<numbered_scalar_alias>|<ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4041	4148	
==>o the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

A <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4041	4148	
==>o the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4121	4228	
==>o the list of lines of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	574	666	
==>MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[D <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	574	666	
==>MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[D <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	842	977	
==>my $self = shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6127	6236	
==>, options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented only in Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5917	6023	
==>, options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented only in Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	109	198	
==>new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	109	198	
==>new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	109	198	
==>new PIL2JS.Box.Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14536	14661	
==>here? - see v6.pm ???
            'my $p6 = Pugs::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7215	7333	
==>e($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7215	7333	
==>e($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17330	17416	
==>ake_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17330	17416	
==>ake_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17330	17416	
==>ake_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2452	2552	
==>umber(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo ze <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2452	2552	
==>umber(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo ze <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2452	2552	
==>umber(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo ze <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2076	2188	
==>th);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # tak <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2076	2188	
==>th);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # tak <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4316	4410	
==>2.<[[Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14220	14335	
==>d - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14220	14335	
==>d - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14220	14335	
==>d - $s - $@\n";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	593	740	
==>push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	593	740	
==>push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	593	740	
==>push @slurpy_arrays, $_;
#      } else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6781	6883	
==>ts.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6781	6883	
==>ts.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8978	9080	
==>ts.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	743	851	
==>ain);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# d <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	743	851	
==>ain);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	547	698	
==>value contexxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'array_store' => sub { # eva <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19073	19320	
==>unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     heading =>  $heading, 
                                     source  => $source } <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9528	9614	
==>2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9528	9614	
==>2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$se <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2446	2557	
==>h = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2446	2557	
==>h = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $ba <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2780	2875	
==>cember>;
method month_name returns Str { @months[./month_0] }

our @months_abbr = <Jan Feb Mar A <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6274	6384	
==>a[0].substr = SvREFCNT_inc(callback);

    /* Try to scare off the rest of perl */
    r->minlen = 0;
    r->re <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16285	16390	
==>t($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest") and my $native = $r->p <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1226	1327	
==>/t/*.t"
}

help() if $Config{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13114	13205	
==>lator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
represent <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13114	13205	
==>lator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
represent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17579	17791	
==>unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17579	17791	
==>unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17579	17791	
==>unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13885	14002	
==>spatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13885	14002	
==>spatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13885	14002	
==>spatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22595	22689	
==>ementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27147	27241	
==>ementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25879	25973	
==>ementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Re <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11281	11408	
==>rom),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X:: <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	216	317	
==>at $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	216	317	
==>at $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5424	5533	
==>ub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize to: s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5250	5357	
==>ub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize to: s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20077	20161	
==>r &PIL2JS::Internals::use_perl5_module_noimp := &PIL2JS::Internals::use_perl5_module_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2228	2359	
==>PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2228	2359	
==>PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2228	2359	
==>PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      f <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9111	9205	
==>opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_enti <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9111	9205	
==>opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_enti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29935	30029	
==>ttributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34487	34581	
==>ttributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33651	33745	
==>ttributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27624	27713	
==>m
F<Regexp::Parser::__object__>, the global object base class.  All
user-defined F<MyRx::* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1294	1429	
==>e'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1241	1372	
==>e'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13728	13947	
==>y->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ign <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13728	13947	
==>y->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ign <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13728	13947	
==>y->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ign <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4915	5031	
==>fess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4915	5031	
==>fess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4915	5031	
==>fess "Cannot STORE at (" . ($label || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2293	2391	
==>ntinuous ciphering.

Both of these functions return a closure.  Call the closure with a block of 
d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2293	2391	
==>ntinuous ciphering.

Both of these functions return a closure.  Call the closure with a block of 
d <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	642	736	
==>f seconds (%.3f compilation, %.3f type checking, %.3f emission, %.3f binding, %.3f execution)\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3262	3358	
==>== 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3262	3358	
==>== 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3262	3358	
==>== 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat modi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1525	1651	
==>$req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match ap <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1525	1651	
==>$req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match ap <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2174	2293	
==>system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = $inst->control_dir( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25785	25887	
==>names and its values the new names.
This method will fail if any C<$mapping> keys do not match invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30337	30439	
==>names and its values the new names.
This method will fail if any C<$mapping> keys do not match invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29303	29405	
==>names and its values the new names.
This method will fail if any C<$mapping> keys do not match invocant <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38568	38664	
==>mple, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return " <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38568	38664	
==>mple, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return " <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	919	1025	
==>[\$\@\%]';
our $re_symbol = '\w[\w\d]*';
our $re_condition = '(?:if|elsif|else|unless|while|unless)';
our $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9360	9449	
==>nts, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_ap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3185	3274	
==>nts, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	307	413	
==>)')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	307	413	
==>)')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	307	413	
==>)')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	403	499	
==>esponse-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pra <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	403	499	
==>esponse-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7380	7507	
==>turn '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3984	4111	
==>turn '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4833	4960	
==>turn '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24653	24779	
==>->{flags}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	802	896	
==>rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	802	896	
==>rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1621	1741	
==>rsion, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1621	1741	
==>rsion, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1621	1741	
==>rsion, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $version, $authority, $body) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4362	4503	
==>ALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4362	4503	
==>ALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4362	4503	
==>ALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17958	18057	
==>SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17958	18057	
==>SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17958	18057	
==>SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19401	19500	
==>::exit($status);
}


 multi Control::Basic::nothing ()


 multi Control::Basic::sleep ( Num $for = I <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3802	3891	
==>Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@ra <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3802	3891	
==>Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3829	3932	
==>}
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3829	3932	
==>}
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3829	3932	
==>}
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	75	212	
==>RSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	75	212	
==>RSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	75	212	
==>RSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1483	1610	
==>dChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || docum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1483	1610	
==>dChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || docum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1483	1610	
==>dChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3276	3364	
==>JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3276	3364	
==>JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3276	3364	
==>JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3617	3758	
==>].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if define <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3617	3758	
==>].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if define <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27160	27252	
==>_TAIL		0x8000000

 #define RE_USE_INTUIT		(RE_USE_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REIN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2715	2833	
==>@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2715	2833	
==>@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2715	2833	
==>@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20054	20153	
==>es (usually XML files I think) from the main program binary.  Each user
language is in a separate fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20054	20153	
==>es (usually XML files I think) from the main program binary.  Each user
language is in a separate fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	673	771	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	673	771	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	673	771	
==>ive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH(), cc = <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	405	528	
==>nal, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_dur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7277	7389	
==>TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7277	7389	
==>TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	686	788	
==>g that perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive unders <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	686	788	
==>g that perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive unders <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3181	3281	
==>rts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3181	3281	
==>rts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3181	3281	
==>rts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	378	502	
==>sm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	378	502	
==>sm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	378	502	
==>sm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1059	1153	
==>b PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1059	1153	
==>b PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1059	1153	
==>b PIL2JS::Internals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7410	7513	
==>eral'.



Higher order operators take a list of match operators, and return a new 

match operator.



A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7159	7257	
==>eral'.

Higher order operators take a list of match operators, and return a new 
match operator.

A <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15370	15484	
==>ow);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9567	9681	
==>ow);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2966	3055	
==>ource = slurp($source_file);
my $match  = Pugs::Compiler::Grammar->grammar($source);
print <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19588	19685	
==>ike a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24140	24237	
==>ike a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	30	123	
==>se warnings;

use Test::More tests => 13;

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4839	4943	
==>m B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4839	4943	
==>m B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7036	7140	
==>m B<Test::Builder::Test::Base>

This role contains several public attributes.

=over 4

=item B<Bool $.pa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1556	1652	
==>ers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1556	1652	
==>ers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2364	2473	
==>gs{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{pat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4624	4733	
==>gs{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21786	21888	
==>t, so I figured it was a sign that I'd chosen an awful name
for the field.  There will still be a class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36290	36422	
==>ail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36290	36422	
==>ail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36290	36422	
==>ail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7583	7669	
==>ostcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7583	7669	
==>ostcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7583	7669	
==>ostcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_matc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1746	1945	
==>ta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = LoadFile( $meta_dir .'/' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2164	2291	
==>_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39872	39974	
==>hod is a generic binary relational operator that takes
another Relation::Example as its C<$other> argum <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14048	14150	
==>,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14048	14150	
==>,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2652	2743	
==>hese methods must be implemented by subclasses... though a default
implementation exists, to <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2652	2743	
==>hese methods must be implemented by subclasses... though a default
implementation exists, to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4454	4592	
==>rgs_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4454	4592	
==>rgs_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4454	4592	
==>rgs_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2583	2697	
==>lemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2583	2697	
==>lemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2583	2697	
==>lemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13215	13432	
==>e } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know h <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13215	13432	
==>e } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know h <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13215	13432	
==>e } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know h <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10466	10592	
==>{
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10466	10592	
==>{
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29049	29230	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29328	29509	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1144	1260	
==>or 6)";
    my $base = $self->{_top}{base};
    my $blib = ($perl_version == 5 || $self->is_extension_build)
    ? 'b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7451	7606	
==>eturn $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7451	7606	
==>eturn $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7451	7606	
==>eturn $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3694	3824	
==>) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3694	3824	
==>) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3694	3824	
==>) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	173	298	
==>e value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	173	298	
==>e value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	173	298	
==>e value of the last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1203	1320	
==>));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1203	1320	
==>));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1203	1320	
==>));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9801	9920	
==>xt $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9801	9920	
==>xt $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9801	9920	
==>xt $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1543	1676	
==>" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1543	1676	
==>" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18707	18815	
==>.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<ref <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18707	18815	
==>.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<ref <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6989	7081	
==>ll { <identifier><ws><expr>; }
macro statement_control:<a_call> (Match $m --> Match) is parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8460	8619	
==>_('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8460	8619	
==>_('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8460	8619	
==>_('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	597	733	
==>,
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        4 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	597	733	
==>,
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        4 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9699	9817	
==>ML = "&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></scr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12681	12772	
==>lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12681	12772	
==>lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20530	20628	
==>names with ':' allow you to force a
specific spelling.  For example if you really want a header fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20530	20628	
==>names with ':' allow you to force a
specific spelling.  For example if you really want a header fie <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1609	1693	
==>$return_value) && ($return_value->isa($self->{sig}->returns) || $return_value->isa('n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4901	5017	
==>'t open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4901	5017	
==>'t open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21153	21247	
==>ases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_utf8    substrs->dat <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5532	5669	
==>{$caller.line}";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err last;
            $mess <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3831	3929	
==>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
maintaine <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3831	3929	
==>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
maintaine <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5577	5709	
==>rom, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5577	5709	
==>rom, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5577	5709	
==>rom, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (m <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12	112	
==>erl

# Generate .html from .t and test results 
# Generate cross-referenced html for p6 design docs ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16472	16568	
==>ut a recompile (such as by simply
copying files), often even while the program is executing.

Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16472	16568	
==>ut a recompile (such as by simply
copying files), often even while the program is executing.

Loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	2	101	
==>PPos -- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	2	101	
==>PPos -- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	2	101	
==>PPos -- simply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7183	7281	
==>ethod is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7183	7281	
==>ethod is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byt <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	739	841	
==>msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connect <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	739	841	
==>msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connect <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24838	24936	
==>work a lot.  Regmust permits fast rejection
 * of lines that cannot possibly match.  The regmust te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	257	351	
==>"throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	257	351	
==>"throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	257	351	
==>"throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Contex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22815	22936	
==>ase
    goto setpad
  words:
    mname = ":s"
    goto setpad
  ignorecase:
    mname = ":i"
  setpad:
    $P0 = pad[mname <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6994	7113	
==>rl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14384	14498	
==>@{ $self->available };
    eval { DumpFile( $self->available_file, @avail ) };
    $@ and error( "Could not write a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11898	12042	
==>(?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod term <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11898	12042	
==>(?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14321	14434	
==>my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14321	14434	
==>my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14321	14434	
==>my $table = $self->_get_method_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6502	6620	
==>aque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6502	6620	
==>aque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6502	6620	
==>aque_instance_class($self) => '@:MRO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	920	1018	
==>pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	920	1018	
==>pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	920	1018	
==>pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_files(pwd(qw< libjs >), pw <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2158	2264	
==>n_src_dir; # The root directory for perl6 Design POD 
my @t_dirs;      # Test root directories (if used)
my <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6978	7074	
==>same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_siblin <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6978	7074	
==>same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_siblin <==
3	/Users/nnunley/pugs/util/testgraph.pl	591	677	
==>ith_struct(delete $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	611	748	
==>{
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	611	748	
==>{
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	611	748	
==>{
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4929	5074	
==>unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4941	5086	
==>unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3545	3652	
==>tals{max} == $totals{ok});
    $totals{passing} = $passed ? 1 : 0;

    return %totals;
}


sub _analyze_lin <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	551	670	
==>for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	551	670	
==>for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22998	23187	
==>O - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22998	23187	
==>O - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22998	23187	
==>O - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38542	38652	
==>VERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38542	38652	
==>VERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38542	38652	
==>VERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28921	29062	
==>unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28921	29062	
==>unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28921	29062	
==>unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2161	2296	
==>->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->ne <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9833	9924	
==>egative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersectio <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9833	9924	
==>egative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersectio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13002	13108	
==>n ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13002	13108	
==>n ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13002	13108	
==>n ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::Return(- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9000	9106	
==>LTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9000	9106	
==>LTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9000	9106	
==>LTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1324	1416	
==>rns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1324	1416	
==>rns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20355	20447	
==>ially a linear encoding of a nondeterministic
finite-state machine (aka syntax charts or "rai <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	877	974	
==>, so different 
character encodings may be enciphered in different ways.

=head2 Using the API

Th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	877	974	
==>, so different 
character encodings may be enciphered in different ways.

=head2 Using the API

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2523	2636	
==>hods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2523	2636	
==>hods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2523	2636	
==>hods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nex <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13188	13339	
==>r>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2228	2360	
==>) {
        chomp($@);
        error(qq[Could not delete directory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=po <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15133	15252	
==>all {
    foreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# Couldn't unlink '$file': $!\n" i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17187	17282	
==>s timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compile <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17187	17282	
==>s timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compile <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9592	9718	
==>nnected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9592	9718	
==>nnected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20495	20606	
==>, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4386	4499	
==>{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4386	4499	
==>{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4386	4499	
==>{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1195	1300	
==>l $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1195	1300	
==>l $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1195	1300	
==>l $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13320	13621	
==>arams] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13320	13621	
==>arams] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13320	13621	
==>arams] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	579	763	
==>f PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	579	763	
==>f PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	579	763	
==>f PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6050	6182	
==>ems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6050	6182	
==>ems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6050	6182	
==>ems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16739	16880	
==>ION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16739	16880	
==>ION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16739	16880	
==>ION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1705	1819	
==>phrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1705	1819	
==>phrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1705	1819	
==>phrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, an <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2743	2851	
==>ld ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2743	2851	
==>ld ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11298	11548	
==>l->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11298	11548	
==>l->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11298	11548	
==>l->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	232	415	
==>ue_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	232	415	
==>ue_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	232	415	
==>ue_instance(
        # < a Class object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [], <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10605	10771	
==>"\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6946	7112	
==>"\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7795	7961	
==>"\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10312	10404	
==>${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10312	10404	
==>${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10312	10404	
==>${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4961	5067	
==>b url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplist <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4961	5067	
==>b url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3827	3923	
==>$code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3827	3923	
==>$code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3827	3923	
==>$code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4303	4477	
==>,
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4303	4477	
==>,
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sig <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4303	4477	
==>,
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sig <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23711	23811	
==>.  All of
their class/object attributes are private, so you must use accessor
methods.  Relation::Exa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20589	20684	
==>.  All of
their class/object attributes are private, so you must use accessor
methods.  Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25141	25236	
==>.  All of
their class/object attributes are private, so you must use accessor
methods.  Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10469	10591	
==>::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10469	10591	
==>::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10469	10591	
==>::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5346	5443	
==>st's attributes.

=item B<report returns Str>

This returns a string which follows the TAP protoco <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5346	5443	
==>st's attributes.

=item B<report returns Str>

This returns a string which follows the TAP protoco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7543	7640	
==>st's attributes.

=item B<report returns Str>

This returns a string which follows the TAP protoco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7283	7423	
==>ind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7283	7423	
==>ind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7283	7423	
==>ind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @i <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13400	13525	
==>e following command
      as root:
      # mknod $initrd_mnt/dev/console c 5 1
HELP

  step
    descr  => "Unmounting \"$initr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2256	2352	
==>$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2256	2352	
==>$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2256	2352	
==>$::{'*'}->STORE('::Package'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2369	2471	
==>er_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a success <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2369	2471	
==>er_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a success <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4460	4565	
==>od return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6362	6467	
==>od return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3752	3885	
==>h(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3752	3885	
==>h(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3752	3885	
==>h(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2130	2287	
==>b { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype
        prototype => new Object(),
    # class definition
        ge <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22495	22592	
==>"iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	674	789	
==>remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	674	789	
==>remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5734	5842	
==>rn $S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1972	2066	
==>equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=hea <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1972	2066	
==>equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=hea <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1626	1710	
==>9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9]+)\]/'".$m->['.($1-1) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9102	9206	
==>tLexDepth, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6_undef()" }
NO <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	764	854	
==>fy(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	764	854	
==>fy(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6279	6437	
==>') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6337	6495	
==>') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8687	8796	
==>{
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24945	25042	
==>'s member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29497	29594	
==>'s member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28409	28506	
==>'s member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This meth <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24993	25088	
==>ping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argum <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29545	29640	
==>ping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argum <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28457	28552	
==>ping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argum <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26905	27001	
==>turns Relation>

This method is the same as C<project> but that the returned Relation has
the com <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31457	31553	
==>turns Relation>

This method is the same as C<project> but that the returned Relation has
the com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	626	741	
==>my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	626	741	
==>my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	626	741	
==>my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11039	11189	
==>->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8105	8250	
==>->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8105	8250	
==>->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2712	2815	
==>y { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2712	2815	
==>y { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2712	2815	
==>y { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	213	326	
==>ess;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	213	326	
==>ess;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	213	326	
==>ess;
# To support Inf, -Inf, and NaN
use Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8560	8701	
==>item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8560	8701	
==>item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8560	8701	
==>item};
    my $count = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34041	34159	
==>b is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34041	34159	
==>b is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34041	34159	
==>b is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Val <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2849	2965	
==>n);
        }

        method remove_subscription (Class::Events::Subscription::Named $subscription) {
            %. <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	233	330	
==>hing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	233	330	
==>hing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9035	9161	
==>dy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9031	9157	
==>dy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$qua <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20542	20636	
==>ame, and then invoking methods on those objects.  All of
their class/object attributes are priv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25094	25188	
==>ame, and then invoking methods on those objects.  All of
their class/object attributes are priv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23664	23758	
==>ame, and then invoking methods on those objects.  All of
their class/object attributes are priv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7049	7158	
==>e { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7049	7158	
==>e { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7049	7158	
==>e { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ main: %s, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47465	47606	
==>od' => (
    # method label
        symbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7346	7439	
==>lternation, concatenation.

- "plain" match operators: like 'literal'.



Higher order operato <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7096	7186	
==>lternation, concatenation.
- "plain" match operators: like 'literal'.

Higher order operato <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38421	38514	
==>Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42970	43063	
==>Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42620	42713	
==>Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9406	9538	
==>nless $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### have a situation where no 'scrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16298	16428	
==>et_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16298	16428	
==>et_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16298	16428	
==>et_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6476	6605	
==>imitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6476	6605	
==>imitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6476	6605	
==>imitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8024	8148	
==>@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8024	8148	
==>@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8024	8148	
==>@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7391	7537	
==>i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7391	7537	
==>i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7391	7537	
==>i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i].isConstant && iarr[i].FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9281	9393	
==>)([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9281	9393	
==>)([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9281	9393	
==>)([?*=]?)(CALLER::)+(.+)$/) {
    my $name  = "$1$2$4";
    my $delta = () = $3 =~ /CALLER::/g;
    return sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3087	3219	
==>sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3087	3219	
==>sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3087	3219	
==>sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7353	7481	
==>1),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7353	7481	
==>1),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2130	2237	
==>rn ($qr,$r_address);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointed to by subst <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16041	16152	
==>) },
      hash  => sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unim <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17679	17777	
==>fer to an error condition by an
internal code which is guaranteed to be unique for a situation, and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17679	17777	
==>fer to an error condition by an
internal code which is guaranteed to be unique for a situation, and <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9261	9365	
==>tc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9261	9365	
==>tc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4300	4396	
==>LE')->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{'block'} = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6332	6495	
==>ute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6332	6495	
==>ute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6332	6495	
==>ute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4963	5092	
==>s (-e $index) {
            # create the directory an index file lives in (ignores errors)
            # and touch the index file. <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	751	873	
==>ost) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	718	840	
==>ost) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16868	16991	
==>ew($e->get('$class:')), $e->get('$attrs'));     
            }
        )
    )
);

=pod

method BUILDALL (opaque $self: hash <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22521	22641	
==>ub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23023	23143	
==>ub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17855	17965	
==>xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17855	17965	
==>xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17855	17965	
==>xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6058	6250	
==>nst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6058	6250	
==>nst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49478	49612	
==>t('$self:')->get_attr(symbol->new('$:version'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3047	3145	
==>Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10104	10272	
==>no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6445	6613	
==>no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7294	7462	
==>no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1652	1750	
==>LowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1652	1750	
==>LowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1652	1750	
==>LowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2142	2250	
==>atcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2142	2250	
==>atcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2142	2250	
==>atcher, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	284	396	
==>})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	284	396	
==>})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	284	396	
==>})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12475	12586	
==>e)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12475	12586	
==>e)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12475	12586	
==>e)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_method(sub {         
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4142	4237	
==>There is no instance
constructor, and when calling these methods you should take care not
to cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4142	4237	
==>There is no instance
constructor, and when calling these methods you should take care not
to cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4142	4237	
==>There is no instance
constructor, and when calling these methods you should take care not
to cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17434	17531	
==>ethods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17434	17531	
==>ethods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17434	17531	
==>ethods'));

## Now we make Class conform to the Package interface

$::Class->add_method('FETCH' => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	328	477	
==>file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFS <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	328	477	
==>file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	880	1002	
==>ss "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	880	1002	
==>ss "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	880	1002	
==>ss "You must supply a valid method label";
        (blessed($method))
            || confess "A method must be a blessed Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	390	495	
==>am );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	390	495	
==>am );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4970	5175	
==>mselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4970	5175	
==>mselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_co <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7028	7135	
==>Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign fl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8033	8170	
==>r::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } @{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1542	1648	
==>ll_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1542	1648	
==>ll_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7359	7460	
==>ture from S29draft.pod 8655.  In the List section.
multi Array::grep (@values ;  MatchTest $test   --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3392	3513	
==>{
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3392	3513	
==>{
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3392	3513	
==>{
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11465	11584	
==>thers) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14942	15061	
==>thers) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20868	20960	
==>nd setsockopt shutdown slurp socket socketpair stat symlink
# syscall sysopen sysread sysseek <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	709	811	
==>re_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	709	811	
==>re_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is a <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3024	3117	
==>oy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_year ::= &Date::Gregoria <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5780	5968	
==>f the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5780	5968	
==>f the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5780	5968	
==>f the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	930	1053	
==>= $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	930	1053	
==>= $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	930	1053	
==>= $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	21	115	
==>k. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	21	115	
==>k. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	21	115	
==>k. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1780	1919	
==>RGV[0] : $ARGV[1]);
    }
    else {
        local $/;
        $code = <>;
    }

    if ($compile_only) {
        print __PACKAGE__->pmc_co <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3608	3724	
==>umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut m <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3608	3724	
==>umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1016	1130	
==>oroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1016	1130	
==>oroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1016	1130	
==>oroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets no <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6031	6157	
==>y') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die "unimplem <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1417	1512	
==>L> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<co <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1417	1512	
==>L> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<co <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4061	4162	
==>turns a date object for the given values.  The month and day default
to 1 if not given.

The value for <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4061	4162	
==>turns a date object for the given values.  The month and day default
to 1 if not given.

The value for <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	366	490	
==>r) returns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21959	22053	
==>INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21959	22053	
==>INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30787	30880	
==>t any duplicates following the transformation have been eliminated. 
Trivial cases are where C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35338	35430	
==>t any duplicates following the transformation have been eliminated.
Trivial cases are where C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34529	34621	
==>t any duplicates following the transformation have been eliminated.
Trivial cases are where C <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	453	565	
==>ndextests) returns List of Object
multi sub kv     (@array ; Any|Junction *@indextests) returns List of Object|Ob <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13651	13749	
==>language feature missing, or core bug that needs to
be sorted out before you can continue.

It is a <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13709	13807	
==>language feature missing, or core bug that needs to
be sorted out before you can continue.

It is a <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3366	3482	
==>leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees) <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3366	3482	
==>leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	275	374	
==>ata::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	683	786	
==>->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	683	786	
==>->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	683	786	
==>->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6002	6099	
==>x) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6002	6099	
==>x) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6002	6099	
==>x) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB prefix:<+> ($xx) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16689	16796	
==>=> 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16689	16796	
==>=> 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16689	16796	
==>=> 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2698	2836	
==>d $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2698	2836	
==>d $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2698	2836	
==>d $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	20	123	
==>:Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	20	123	
==>:Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3842	3945	
==>$param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3842	3945	
==>$param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4432	4535	
==>$param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2212	2323	
==>elf);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    })) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2212	2323	
==>elf);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    })) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2212	2323	
==>elf);   
    }  
}));

$::Object->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    })) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13996	14129	
==>ar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13996	14129	
==>ar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13996	14129	
==>ar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12962	13068	
==>elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12962	13068	
==>elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12962	13068	
==>elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implementa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5509	5677	
==>ug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5509	5677	
==>ug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	987	1146	
==>->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18505	18621	
==>oming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14926	15042	
==>oming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2081	2192	
==>re it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2081	2192	
==>re it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2081	2192	
==>re it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	497	627	
==>ift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3869	3970	
==>le: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4086	4187	
==>le: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2392	2540	
==>et(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2392	2540	
==>et(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2392	2540	
==>et(
                'acc' => ($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	41	135	
==>ule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. I <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	41	135	
==>ule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. I <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	129	274	
==>hify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/ <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	129	274	
==>hify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3741	3871	
==>Rule->compile( '" .
            _quotemeta( emit_perl6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	765	878	
==>efg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1443	1546	
==>return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Varia <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1443	1546	
==>return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Varia <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25358	25460	
==>terClass>
    | <'('> <Disjunction> <')'>
    | <'(?:'> <Disjunction> <')'>
    | <'(?='> <Disjunction> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14088	14186	
==>@sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17565	17663	
==>@sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	58	184	
==>%escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	58	184	
==>%escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	147	258	
==>p6ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)* <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1325	1422	
==>ce for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Ele <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1325	1422	
==>ce for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Ele <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36515	36614	
==>ned is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41064	41163	
==>ned is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40678	40777	
==>ned is inconsequential.  A trivial case is where C<@others> is an
empty list, in which case the retu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6644	6741	
==>de_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6644	6741	
==>de_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14136	14224	
==>pe(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charname_to_char(Name,C) :- ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6516	6612	
==>um->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6516	6612	
==>um->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6516	6612	
==>um->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	817	942	
==>@end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	817	942	
==>@end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1539	1635	
==>lls a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1539	1635	
==>lls a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, w <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1813	1905	
==>E, and is possibly very unstable.

=head1 METHODS ON C<$POE::Kernel>

=head2 C<post(POE::Sess <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	580	676	
==>ION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	580	676	
==>ION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7113	7202	
==>\$\.\|\*\+\?\#\\").
p6_metachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8344	8436	
==>lready inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8344	8436	
==>lready inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4258	4398	
==>=> set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7735	7875	
==>=> set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6719	6859	
==>=> set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18105	18256	
==>nt( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18384	18535	
==>nt( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'gr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22040	22135	
==>ading
and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This documen <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	83	190	
==>erknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkettung ist möglich:
$a < $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	219	325	
==>roach to compilation.

=head1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::Nodes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	612	709	
==>ub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	612	709	
==>ub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	612	709	
==>ub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5715	5830	
==>w_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5715	5830	
==>w_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5715	5830	
==>w_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            foreach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4331	4499	
==>',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4331	4499	
==>',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4331	4499	
==>',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25140	25234	
==>ion.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29692	29786	
==>ion.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5561	5658	
==>)  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5561	5658	
==>)  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5561	5658	
==>)  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) { <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4409	4507	
==>> and divines whether they passed
or failed based on their output to STDOUT (details above).  It pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20576	20672	
==>rs have finished, the digest lines will
be expanded again.

Every bit of the default process desc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20576	20672	
==>rs have finished, the digest lines will
be expanded again.

Every bit of the default process desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	385	481	
==>return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	385	481	
==>return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	385	481	
==>return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6685	6841	
==>'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6685	6841	
==>'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6685	6841	
==>'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7153	7250	
==>ity');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7153	7250	
==>ity');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7153	7250	
==>ity');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($:: <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	72	208	
==>e is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) -? | - ) (\ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12669	12761	
==>2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12669	12761	
==>2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

= <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3413	3514	
==>gs is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3413	3514	
==>gs is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17265	17363	
==>infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17265	17363	
==>infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Return <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1068	1196	
==>ib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sit <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1068	1196	
==>ib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sit <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12042	12142	
==>rn;
}    

=head2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

sub remove_availabl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29432	29562	
==>App.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29432	29562	
==>App.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	256	374	
==>App.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5800	5913	
==>,
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 5, '... $Bar is the fifth id');
is($Bar->class, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5172	5308	
==>les => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5172	5308	
==>les => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5172	5308	
==>les => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7405	7541	
==>compp punt.\n");
    return previous_comp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I3 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	772	864	
==>al("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	772	864	
==>al("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24149	24287	
==>0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24149	24287	
==>0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24149	24287	
==>0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3936	4045	
==>pan0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method inters <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3936	4045	
==>pan0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method inters <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7606	7707	
==>n_of_seq;

			my @params = grep { $_->struct_equiv->isa("Blondie::Param") } @children_of_seq;
			
			r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21011	21104	
==>es that use Module::Compile based modules
will automatically be compiled into .pmc files and s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21011	21104	
==>es that use Module::Compile based modules
will automatically be compiled into .pmc files and s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5311	5435	
==>z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5311	5435	
==>z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5311	5435	
==>z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2053	2178	
==>rray[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2053	2178	
==>rray[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2053	2178	
==>rray[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexic <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1567	1704	
==>to
        ref => "Object",   # for now
        set => "Set", iset => "Set",         # also for now
        hash => "Hash", ihash => "Hash <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	80	173	
==>for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factore <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	80	173	
==>for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18755	18903	
==>:isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18755	18903	
==>:isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18755	18903	
==>:isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	49	137	
==>indn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793238462643383279502884197 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	49	137	
==>indn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793238462643383279502884197 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	49	137	
==>indn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653589793238462643383279502884197 <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	434	575	
==>_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($class, <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1912	2010	
==>$_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but have distinct digests

my $env = En <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1783	1880	
==>$equivalence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my %token = ( na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15266	15362	
==>o ambiguity when trying to invoke or implement it, and so an
application written to it should beh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15266	15362	
==>o ambiguity when trying to invoke or implement it, and so an
application written to it should beh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22792	22892	
==>v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22792	22892	
==>v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22792	22892	
==>v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2060	2164	
==>ame, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2060	2164	
==>ame, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2060	2164	
==>ame, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7723	7828	
==>padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7723	7828	
==>padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7723	7828	
==>padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22442	22541	
==>oked on the
same object with the same arguments; they do not interact with the outside
environment a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26994	27093	
==>oked on the
same object with the same arguments; they do not interact with the outside
environment a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25717	25816	
==>oked on the
same object with the same arguments; they do not interact with the outside
environment a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3636	3756	
==>ob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3636	3756	
==>ob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStm <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	486	606	
==>ob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4479	4588	
==>|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4479	4588	
==>|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4479	4588	
==>|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21904	21999	
==>tion in this distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is en <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21904	21999	
==>tion in this distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3879	3988	
==>return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3879	3988	
==>return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3879	3988	
==>return "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2559	2671	
==>thod heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6036	6148	
==>thod heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4966	5078	
==>thod heading () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9156	9258	
==>B all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9156	9258	
==>B all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9156	9258	
==>B all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3503	3609	
==>a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3503	3609	
==>a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3503	3609	
==>a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5730	5825	
==>DEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5730	5825	
==>DEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5730	5825	
==>DEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~l <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	539	672	
==>ackaged found matching '$package'\n" unless $tried;
}                        

### XXX merge with pp_deps.pl            
sub _recurse_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15226	15322	
==>ameters, creates an empty span.

= OBJECT METHODS

The following methods are available for Span o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15226	15322	
==>ameters, creates an empty span.

= OBJECT METHODS

The following methods are available for Span o <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	292	419	
==>.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	292	419	
==>.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4680	4770	
==>o
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4680	4770	
==>o
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4680	4770	
==>o
new namespaces relative to New::Namespace::Root. This overrides whatever
blessing they ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	874	993	
==>s[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	874	993	
==>s[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	874	993	
==>s[1].FETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2774	2873	
==>semantics for perl6-style variable binding,
as well as subroutine call argument passing and binding, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2774	2873	
==>semantics for perl6-style variable binding,
as well as subroutine call argument passing and binding, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3121	3220	
==>semantics for perl6-style variable binding,
as well as subroutine call argument passing and binding, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10810	10959	
==>e_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10810	10959	
==>e_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3284	3422	
==>,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency\n";
        warn <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9573	9683	
==>t ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9573	9683	
==>t ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9945	10048	
==>ment if there's any whitespace in it, or if
    # we're VMS, since VMS requires all parms quoted.  Also, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2886	2987	
==>S::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2886	2987	
==>S::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2886	2987	
==>S::Root::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	776	894	
==>ult = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	776	894	
==>ult = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	776	894	
==>ult = sub {
      my $cxt   = "PIL2JS.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(ar <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5532	5645	
==>{$piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $totals->{details}[$result{nu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22880	22977	
==>elation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27432	27529	
==>elation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relati <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4503	4642	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4895	5034	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$foo], see t/operators/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9928	10063	
==>roxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9928	10063	
==>roxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9928	10063	
==>roxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1355	1477	
==>$pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unless ($ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	723	819	
==>as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	723	819	
==>as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6299	6398	
==>m - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6299	6398	
==>m - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6207	6338	
==>new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->n <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	68	166	
==>esn't work if the above line is uncommented.

# our &prefix:<?> := &true doesn't work yet.
sub pref <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30390	30487	
==>the object.

=item $obj->walk()

"Walks" the object.  This is used to dive into the node's childre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	372	479	
==>%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	372	479	
==>%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	372	479	
==>%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2243	2344	
==>H();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2243	2344	
==>H();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2243	2344	
==>H();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	639	763	
==>ed ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@item <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	639	763	
==>ed ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@item <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18206	18319	
==>>{seen} && 
         $totals->{max}  < $totals->{seen};
};

sub test_handler {
    my($self, $line, $type, $totals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	582	691	
==>>};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	582	691	
==>>};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	582	691	
==>>};
  my $cc;

  # Add a &return() to the last statement of a sub.
  if($PIL::IN_SUBLIKE and $tail->isa("PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7548	7702	
==>efined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7548	7702	
==>efined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7548	7702	
==>efined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10242	10382	
==>$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$test{ml}ok\n";
            } elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3473	3581	
==>niverse;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    retur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3473	3581	
==>niverse;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3728	3824	
==>:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3728	3824	
==>:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3728	3824	
==>:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovivify2)=@_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6977	7158	
==>ram->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6977	7158	
==>ram->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6977	7158	
==>ram->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3127	3235	
==>ated_hash     { \% <name> <element_expr>? }
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> < <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	664	760	
==>to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm h <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	664	760	
==>to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2144	2248	
==>b_call {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21919	22012	
==>stribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21919	22012	
==>stribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	924	1017	
==>Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	924	1017	
==>Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	924	1017	
==>Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1801	1911	
==>el...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1801	1911	
==>el...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5435	5542	
==>pool_rel->file( file($pkg->file)->basename )->stringify();
        
        # append it to the existing cont <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6650	6756	
==>th2runcore {
  local $_ = shift;

  /JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1036	1136	
==>.  The C<:all> 
option will cause the module to shift across all byte values, not just the ones 
corr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1036	1136	
==>.  The C<:all> 
option will cause the module to shift across all byte values, not just the ones 
corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1885	1981	
==>rt anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1885	1981	
==>rt anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1885	1981	
==>rt anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5432	5556	
==>to term_bx2
    if $I1 >= base goto term_bx2
    $I0 *= base
    $If0 += $I1
    inc pos
    goto term_bx1
  term_bx2:
    in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21234	21326	
==>compilers installed
themselves. So you don't need to make the compiler modules be
prerequisit <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21234	21326	
==>compilers installed
themselves. So you don't need to make the compiler modules be
prerequisit <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4688	4818	
==>wise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4688	4818	
==>wise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!ch <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	125	246	
==>iltins/
* They sometimes use Pugs internals to do the job
* Some of this had not been specced yet (need S29 work).

When w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31667	31765	
==>e program is run, it would
determine either from a user config file or a user interface that the
cu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31667	31765	
==>e program is run, it would
determine either from a user config file or a user interface that the
cu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3518	3625	
==>r::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3518	3625	
==>r::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	587	681	
==>a;
print "ok 1 - c code compiled\n";
my $i = new_interpreter();
$Inline::Parrot::PMC::interpret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15006	15110	
==>Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15006	15110	
==>Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15006	15110	
==>Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4749	4856	
==>($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supporte <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4749	4856	
==>($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supporte <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4749	4856	
==>($self->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supporte <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6560	6655	
==>ypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6560	6655	
==>ypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9720	9914	
==>lf;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9720	9914	
==>lf;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9720	9914	
==>lf;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7004	7131	
==>ix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7004	7131	
==>ix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9273	9371	
==>t_items_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charset_item(class_n <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	899	1075	
==>bute($_) }
                             $class->attributes->members,
                             $class->associations->members,
                             # 2-way association <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	495	599	
==>b get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/Pugs <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	495	599	
==>b get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/Pugs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1115	1206	
==>y_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1115	1206	
==>y_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1310	1399	
==>e->addToken("circumfix:[ ]", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1332	1437	
==>self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1332	1437	
==>self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1332	1437	
==>self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1576	1678	
==>:Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1576	1678	
==>:Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4132	4255	
==>join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4132	4255	
==>join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4132	4255	
==>join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $nat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1768	1869	
==>thod ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &byt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1768	1869	
==>thod ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &byt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1768	1869	
==>thod ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &byt <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12476	12575	
==>rns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on success <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12534	12633	
==>rns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on success <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1115	1227	
==>_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1115	1227	
==>_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	381	476	
==>B::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> creates a full path to a directory.

Returns t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	417	520	
==>ay containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	417	520	
==>ay containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	417	520	
==>ay containing only one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6423	6534	
==>sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6423	6534	
==>sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6423	6534	
==>sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2043	2165	
==>[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2043	2165	
==>[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2043	2165	
==>[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1238	1361	
==>{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool => \0 }, 'Pugs::Runtime::Match::Ratchet';
        while ( $state[0] <= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	212	332	
==>ar pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	212	332	
==>ar pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	212	332	
==>ar pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pai <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8159	8347	
==>ush @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8623	8811	
==>ush @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6419	6528	
==>r::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { return { sub_application_term => $() ,} }
RULE
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19642	19740	
==>{ p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19642	19740	
==>{ p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19642	19740	
==>{ p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_from_b(p6_to_s( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5762	5865	
==>alize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5762	5865	
==>alize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17508	17636	
==>>send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40777	40905	
==>>send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1377	1495	
==>ot allowed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencies <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	667	769	
==>3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	667	769	
==>3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	667	769	
==>3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11075	11219	
==>has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11075	11219	
==>has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11075	11219	
==>has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	863	1014	
==>airs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	863	1014	
==>airs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3922	4052	
==>n { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2193	2294	
==>$_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2193	2294	
==>$_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2193	2294	
==>$_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->type->matches("Bool" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14003	14149	
==>if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13997	14143	
==>if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12545	12663	
==>vailable };
    my @avail = grep { $_->package ne $inst_pkg->package } @prev;
    
    ### no change!
    return if @av <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1881	1979	
==>od clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1881	1979	
==>od clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	812	916	
==>S.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	812	916	
==>S.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	812	916	
==>S.Context.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", bod <==
3	/Users/nnunley/pugs/util/grokprims.pl	294	400	
==>list  => 'list infix',
    chain => 'chaining infix',
);

my @ops;

while (<>) {
  last unless /^\\\\n[^"]/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11999	12095	
==>e', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12057	12153	
==>e', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$to <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1387	1476	
==>ad.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.micro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1227	1316	
==>ad.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.micro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	77	205	
==>ire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	77	205	
==>ire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	77	205	
==>ire Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	50	147	
==>p (sub (*@args) {
	# Argumente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeit <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4372	4472	
==>e diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the test de <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4372	4472	
==>e diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the test de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4452	4552	
==>e diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the test de <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4207	4291	
==>"Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Interface::Variable ("V <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4207	4291	
==>"Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Interface::Variable ("V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4317	4447	
==>anks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4317	4447	
==>anks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4317	4447	
==>anks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38142	38294	
==>}
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38142	38294	
==>}
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38142	38294	
==>}
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7615	7713	
==>= &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7615	7713	
==>= &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7615	7713	
==>= &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» (Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8770	8909	
==>].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8770	8909	
==>].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8770	8909	
==>].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := & <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12583	12742	
==>ts $lines->{$.}) {
        $class = $test_class->{$lines->{$.}};
      }
      $output .= "<span class='$class'>$rest</span>";
      
    }
#    $body->push_con <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	286	386	
==>ors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	286	386	
==>ors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5419	5537	
==>w(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5419	5537	
==>w(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $mat <==
3	/Users/nnunley/pugs/util/build_pugs.pl	12	110	
==>erl -w

use strict;
use warnings;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpat <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3548	3678	
==>nd;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3548	3678	
==>nd;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18323	18421	
==>nto the guts of the perl core, to permit the use
of alternate regexp engines.  There being little d <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5503	5636	
==>';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  't <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5503	5636	
==>';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  't <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4571	4679	
==>erators have alphabetic names, so tr/a-z// is true)
        # This will also show numbers for some uneeded ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9840	9959	
==>_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrul <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17036	17132	
==>(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file which <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17036	17132	
==>(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file which <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9740	9835	
==>g methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9740	9835	
==>g methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Header <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4079	4210	
==>f->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4079	4210	
==>f->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4079	4210	
==>f->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5411	5516	
==>ames: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_strin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5411	5516	
==>ames: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4631	4842	
==>v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4631	4842	
==>v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4631	4842	
==>v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair-> <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3339	3438	
==>$Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { split <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12337	12435	
==>>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12337	12435	
==>>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6793	6900	
==>ete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6793	6900	
==>ete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1559	1663	
==>ely there's a more p6ish way of doing this?
  $lexer = tokens($lexer, *@$_)
    for @args;
  return $lexe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2664	2773	
==>v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2652	2761	
==>v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
} <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23363	23466	
==>xp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	68	162	
==>\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header remove_he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	68	162	
==>\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header remove_he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5983	6130	
==>f => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5983	6130	
==>f => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5983	6130	
==>f => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	686	781	
==>join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	686	781	
==>join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	686	781	
==>join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3590	3698	
==>$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3590	3698	
==>$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3590	3698	
==>$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	0	89	
==>sub PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	0	89	
==>sub PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	0	89	
==>sub PIL2JS::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  funct <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3672	3871	
==>nd < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15776	15891	
==>e Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15776	15891	
==>e Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23647	23871	
==>alar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23647	23871	
==>alar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23647	23871	
==>alar = Scalar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	378	507	
==>urpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	378	507	
==>urpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	378	507	
==>urpy and !$seen_a_slurpy_param++;
#      if($_->is_invocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12868	12969	
==>Checks if the given line is a header (1..M) line.  If so, it places how
many tests there will be in C< <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20646	20745	
==>p as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

The <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20646	20745	
==>p as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

The <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	249	394	
==>urn $s;
}

sub _mangle_var {
    my $s = shift;
    #warn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s e <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4300	4407	
==>erl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for m <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4300	4407	
==>erl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3241	3357	
==>lass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3241	3357	
==>lass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3241	3357	
==>lass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($class);
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3970	4135	
==>isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3970	4135	
==>isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3970	4135	
==>isa' =>      sub { ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20401	20522	
==>($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20401	20522	
==>($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20401	20522	
==>($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4683	4835	
==>q 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4683	4835	
==>q 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4683	4835	
==>q 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Typ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10604	10725	
==>) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        w <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10604	10725	
==>) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2704	2799	
==>(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2704	2799	
==>(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2704	2799	
==>(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.ItemAny, ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1500	1657	
==>s) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1500	1657	
==>s) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1500	1657	
==>s) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1082	1188	
==>temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1082	1188	
==>temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1082	1188	
==>temporarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1280	1381	
==>Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1280	1381	
==>Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1280	1381	
==>Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4549	4653	
==>gh ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4549	4653	
==>gh ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4549	4653	
==>gh ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # regular <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11305	11399	
==>lf: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11305	11399	
==>lf: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42918	43072	
==>->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('can'),
    # method bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7398	7509	
==>n::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7398	7509	
==>n::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7398	7509	
==>n::EvalX; # continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@no <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12556	12691	
==>for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition of each() now.  The zip f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1165	1252	
==>ame = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1165	1252	
==>ame = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7580	7692	
==>itable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7580	7692	
==>itable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7580	7692	
==>itable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3236	3388	
==>lementation;
            my @list = LoadFile( $Available );
            
            my @maybe;
            for my $test ( grep { $_->{package} ne $pkg } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16212	16308	
==>>data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20638	20734	
==>>data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19009	19129	
==>> $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19009	19129	
==>> $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19009	19129	
==>> $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2521	2642	
==>ew();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2521	2642	
==>ew();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2521	2642	
==>ew();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($version)     if defined $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4720	4820	
==>..};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4720	4820	
==>..};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4720	4820	
==>..};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding first.
#MULTI SUB Y () {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13192	13359	
==>rn $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13192	13359	
==>rn $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13192	13359	
==>rn $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8492	8596	
==>_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8492	8596	
==>_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8492	8596	
==>_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2707	2804	
==>'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style varia <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2707	2804	
==>'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style varia <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3054	3151	
==>'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style varia <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1619	1748	
==>{
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1619	1748	
==>{
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.de <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7136	7224	
==>metachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\\", digits_int(I1), {I <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17857	17970	
==>(int x str) this should e str
my $snd = comb(
	fun => ide("snd"),
	param => $pair,
);

# the polymorphic fst funct <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1207	1334	
==>urlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")" <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1207	1334	
==>urlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17746	17843	
==>META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= "use Perl6::Run::OnPerl5:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4959	5059	
==>efore you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Reco <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4959	5059	
==>efore you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Reco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6483	6583	
==>efore you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Reco <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12822	12985	
==>" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6530	6630	
==>byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, eithe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6530	6630	
==>byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, eithe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3155	3311	
==>upertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3155	3311	
==>upertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3155	3311	
==>upertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2385	2507	
==>~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_ST <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2385	2507	
==>~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_ST <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15213	15322	
==>newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> S <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15213	15322	
==>newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> S <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	111	209	
==>.

# our &prefix:<?> := &true doesn't work yet.
sub prefix:<?> ($var) returns Bool is builtin is pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7469	7569	
==>get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7469	7569	
==>get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	479	575	
==>more of a pugs bootstrap exercise.

This code is currently completely in flux.  It is simultaneou <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7179	7317	
==>rs_supported_p6.{$k} {
                warning "Modifier :$k is not yet supported by PGE/pugs.";
            }
        }
        elsif ($k. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3508	3620	
==>}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3508	3620	
==>}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3508	3620	
==>}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 ro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	32	153	
==>HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	32	153	
==>HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7111	7227	
==>y;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7111	7227	
==>y;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	143	245	
==>Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3258	3388	
==>->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx)," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3258	3388	
==>->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx)," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3258	3388	
==>->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx)," <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24529	24624	
==>s on those objects.
All of their attributes are private, so you must use accessor methods.
Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24529	24624	
==>s on those objects.
All of their attributes are private, so you must use accessor methods.
Local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9088	9237	
==>rguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9088	9237	
==>rguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9088	9237	
==>rguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8883	8991	
==>rk out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8883	8991	
==>rk out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26723	26817	
==>n F,">deleteme_pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use Language::Prol <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3926	4063	
==>. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5150	5287	
==>. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{a <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1448	1550	
==>th::Basic::exp ( Num $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unsp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23973	24072	
==>t, whose Heading and
Body attributes are set respectively from the optional named parameters
C<$head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28525	28624	
==>t, whose Heading and
Body attributes are set respectively from the optional named parameters
C<$head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27356	27455	
==>t, whose Heading and
Body attributes are set respectively from the optional named parameters
C<$head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4882	5050	
==>> $_[1]{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4153	4272	
==>"/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4153	4272	
==>"/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23415	23531	
==>return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19836	19952	
==>return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2132	2227	
==>nternals::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6079	6215	
==>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6079	6215	
==>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6079	6215	
==>new( '$.unboxed' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5138	5246	
==>$op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2680	2788	
==>$op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3461	3569	
==>$op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1434	1539	
==>equote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, ta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1434	1539	
==>equote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, ta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1434	1539	
==>equote($classname);
    return "$cc(new PIL2JS.Box.Constant(undefined))";
  };
}

# Standard operators, ta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	350	467	
==>p' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support una <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	385	500	
==>p' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support una <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10302	10394	
==>@switches = $self->_cleaned_switches( @switches_from_user );

Returns only defined, non-blank <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2225	2339	
==>ew PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2225	2339	
==>ew PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2225	2339	
==>ew PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1832	1931	
==>equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expression d <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1832	1931	
==>equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expression d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	225	324	
==>.." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	225	324	
==>.." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	225	324	
==>.." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2559	2678	
==>)') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2559	2678	
==>)') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2559	2678	
==>)') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13385	13624	
==>{
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13385	13624	
==>{
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13385	13624	
==>{
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$se <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4387	4513	
==>ge).
AD
        }
    }
    #$self->{_smoker} ||= { name => "anonymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2733	2872	
==>d save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2733	2872	
==>d save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2733	2872	
==>d save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2061	2194	
==>urn { named_capture => $body, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< befor <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1191	1307	
==>s
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1191	1307	
==>s
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15083	15185	
==>e value of a header.  The header value is set if you pass
an argument to the method.  The old header va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15083	15185	
==>e value of a header.  The header value is set if you pass
an argument to the method.  The old header va <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10701	10799	
==>ass(class_neg(vertical_space))    --> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6612	6726	
==>context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6670	6784	
==>context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$o <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27875	27976	
==>ou may want to have it run by a different executable, such as
a threading perl, or a different version <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	540	640	
==>r is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub cont <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	540	640	
==>r is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	462	578	
==>nt, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	462	578	
==>nt, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	462	578	
==>nt, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6862	6973	
==>> '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6862	6973	
==>> '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6862	6973	
==>> '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	332	450	
==>ir = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	332	450	
==>ir = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	332	450	
==>ir = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4365	4477	
==>""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4365	4477	
==>""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4365	4477	
==>""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2088	2181	
==>ni = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2088	2181	
==>ni = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2088	2181	
==>ni = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", jsprelude_path(), $c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	14	265	
==>s
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9694	9810	
==>Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10530	10646	
==>Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1443	1615	
==>4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) ret <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1443	1615	
==>4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) ret <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3863	3982	
==>\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	227	345	
==>ns on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	227	345	
==>ns on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3407	3523	
==>ss ($pass) {
	unshift(@mess, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	660	773	
==>erl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key = <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	660	773	
==>erl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35999	36091	
==>vocant Relation::Example and C<$other>; any duplicated tuples appear only once in
the result. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7501	7617	
==>eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  sub emit {
    my($o)=@_;
    m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1155	1268	
==>my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package ) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	985	1098	
==>my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package ) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5535	5672	
==>ringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Valu <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5535	5672	
==>ringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10960	11084	
==>_emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{ex <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	112	205	
==>E_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '12 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	112	205	
==>E_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '12 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5618	5733	
==>ing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5618	5733	
==>ing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5618	5733	
==>ing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	20	136	
==>use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	20	136	
==>use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	20	136	
==>use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warnings "recursion";
  return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	213	313	
==>namespace = 'Pugs::Grammar::Rule::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1848	1941	
==>n p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1848	1941	
==>n p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	580	716	
==>lsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	580	716	
==>lsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	580	716	
==>lsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	309	397	
==>system("perl naive_bayesian.p5 add grapes grapes");
}
system("perl naive_bayesian.p5 clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13497	13637	
==>{ 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13497	13637	
==>{ 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13497	13637	
==>{ 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6579	6685	
==>, '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $fh   = get_str( $_[0], '$<indirect_object <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2971	3066	
==>ng is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2971	3066	
==>ng is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1881	2024	
==>coded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.el <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1881	2024	
==>coded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.el <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3706	3870	
==>s?
            $Obj->mk_accessors( $acc );
            
            ### set to a sane default value
            $Obj->$acc( $config{$key}->[0] );
        }
        r <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7348	7446	
==>);
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7348	7446	
==>);
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4283	4402	
==>ps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4283	4402	
==>ps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4283	4402	
==>ps://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6113	6207	
==>things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6113	6207	
==>things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6113	6207	
==>things == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5478	5599	
==>q 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5478	5599	
==>q 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6148	6249	
==>\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4788	4883	
==>-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4788	4883	
==>-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g: <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1635	1753	
==>) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1537	1634	
==>) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6624	6736	
==>$y = shift;

		warn "comparing $x and $y";

		if (Scalar::Util::blessed($x) and Scalar::Util::blessed($y)) {
			d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4055	4162	
==>lt Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3912	4017	
==>lt Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	76	169	
==>ter { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	76	169	
==>ter { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	76	169	
==>ter { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1793	1893	
==>odify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1793	1893	
==>odify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1793	1893	
==>odify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1180	1297	
==>::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1180	1297	
==>::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1180	1297	
==>::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6648	6786	
==>."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6648	6786	
==>."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6648	6786	
==>."\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            ret <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17314	17434	
==>st    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $string = CALLER::<$_> --> Str )

Performs a Uni <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11623	11741	
==>t;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found fo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11623	11741	
==>t;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found fo <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11576	11678	
==>tf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encod <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11576	11678	
==>tf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encod <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3255	3373	
==>len = max map { +$_ }, @arrays;
#  map {
#    my $i := $_;
#    map { @arrays[$_][$i] } 0..@arrays.end;
#  }, 0..$maxle <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	491	600	
==>}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.sta <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	491	600	
==>}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8254	8403	
==>TROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8254	8403	
==>TROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8254	8403	
==>TROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1397	1509	
==>{
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1602	1714	
==>{
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1663	1775	
==>{
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13451	13684	
==>OD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13451	13684	
==>OD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13451	13684	
==>OD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3517	3621	
==>n PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3517	3621	
==>n PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3517	3621	
==>n PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1938	2053	
==>uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m: <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1938	2053	
==>uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3258	3356	
==>nd=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r->substrs->data[0].substr;

    PU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11171	11294	
==>::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11171	11294	
==>::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11171	11294	
==>::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10098	10233	
==>lear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10098	10233	
==>lear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19549	19648	
==><] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19549	19648	
==><] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19549	19648	
==><] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11919	12018	
==>==' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is ri <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11919	12018	
==>==' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is ri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48656	48751	
==>> attribute->new('$:authority' => 'str')));

$::Module->send('add_method' => (
    # method labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	304	420	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	304	420	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	304	420	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3917	4045	
==></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3917	4045	
==></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3917	4045	
==></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	680	798	
==>{
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpParser->parse($source);
        #warn Dumper $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23414	23504	
==>r otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23414	23504	
==>r otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2771	2923	
==>r::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          retu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	524	658	
==>r::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	524	658	
==>r::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21801	21896	
==>e difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21801	21896	
==>e difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38828	38937	
==>X - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38828	38937	
==>X - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38828	38937	
==>X - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	13	112	
==>:Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	13	112	
==>:Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	13	112	
==>:Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7745	7863	
==>= &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceede <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7745	7863	
==>= &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceede <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16893	17011	
==>b(
		fun => comb(
			fun => ide("add"),
			param => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	344	492	
==>f, $value) = @_;
    (defined $value            && 
     looks_like_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	951	1050	
==>tions as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	951	1050	
==>tions as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	880	982	
==>oxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	880	982	
==>oxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	880	982	
==>oxed() - returns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10153	10295	
==>t = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10153	10295	
==>t = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10153	10295	
==>t = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro->clone() not implemented";
            $c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3604	3718	
==>{  # see 7.4
      <MultiLineComment>
    | <SingleLineComment>
}
rule MultiLineComment {  # see 7.4
      <'/*'> < <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11031	11132	
==>ods, 
because it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `ge <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11031	11132	
==>ods, 
because it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7210	7320	
==>ub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7210	7320	
==>ub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7210	7320	
==>ub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "pac <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11375	11494	
==>s} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, so
        # toss the ones that involve perl_r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3455	3557	
==>($pil_tree,$warn,$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16281	16380	
==>00, $2 = 1

This means character classes should store a hash of what characters
they represent, as w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8470	8618	
==>eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8470	8618	
==>eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8470	8618	
==>eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1196	1307	
==>PE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1196	1307	
==>PE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1196	1307	
==>PE_PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8712	8843	
==>plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	880	999	
==>plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	880	999	
==>plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17572	17665	
==>ut shipping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	999	1092	
==>_alternation> \| <term>+? }
rule non_alternation { <conjunction> | <non_conjunction> }

rule c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17572	17665	
==>ut shipping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1630	1741	
==>bmethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5107	5218	
==>bmethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4037	4148	
==>bmethod BUILD (Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $bo <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4847	5014	
==>s = sort @tests;
        }
        if ( $Config{dry} ) {
            print join( "\n", @tests, "" );
            exit 0;
        } else {
            print "# ", scalar <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7711	7817	
==>od post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7711	7817	
==>od post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $chi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9926	10031	
==>work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9926	10031	
==>work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16628	16808	
==>$ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16628	16808	
==>$ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16628	16808	
==>$ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $arra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12662	12821	
==>\$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8936	9095	
==>\$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9771	9930	
==>\$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2238	2348	
==>_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2238	2348	
==>_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2238	2348	
==>_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2168	2379	
==>]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2168	2379	
==>]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4493	4607	
==>r,
        # and the numbers are stringwise the same.
        # (all string operators have alphabetic names, so tr/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2890	3016	
==>[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2890	3016	
==>[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2890	3016	
==>[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37883	38015	
==>ay->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37883	38015	
==>ay->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37883	38015	
==>ay->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3664	3766	
==>VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/workaround
    package Regexp::Parser:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	901	997	
==>t /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	831	921	
==>t /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6597	6706	
==>> @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6597	6706	
==>> @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6597	6706	
==>> @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4394	4572	
==>->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set('$_' => $v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	352	460	
==>kage grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	558	666	
==>kage grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3555	3654	
==>tem B<new>

This is a Factory method used to create a specific class instances which
perform the Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3555	3654	
==>tem B<new>

This is a Factory method used to create a specific class instances which
perform the Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5752	5851	
==>tem B<new>

This is a Factory method used to create a specific class instances which
perform the Tes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4302	4554	
==>");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4302	4554	
==>");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	795	897	
==>mpiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop : <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	795	897	
==>mpiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop : <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1110	1199	
==><non_conjunction> \& <non_alternation>+? }
rule non_conjunction { <repetition> | <alias> | <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41250	41340	
==>les.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41250	41340	
==>les.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2996	3111	
==>bose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2996	3111	
==>bose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2996	3111	
==>bose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12149	12240	
==>SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12149	12240	
==>SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12149	12240	
==>SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->add_method('_make_ascendant_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3914	4018	
==>ame   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3914	4018	
==>ame   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3914	4018	
==>ame   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2516	2618	
==>ate methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2516	2618	
==>ate methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2516	2618	
==>ate methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2736	2889	
==>e unlink "$Bindir/$script";
            1 while unlink "$Alternatives/$script";
        }      
        
        ### see if there's any other package that <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9251	9354	
==>uperset, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9251	9354	
==>uperset, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16398	16545	
==>unt = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16398	16545	
==>unt = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16398	16545	
==>unt = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Per <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10784	10894	
==>e reports are automatically deleted, so you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Ti <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1781	1876	
==>s the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, whi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1781	1876	
==>s the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2277	2396	
==>0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2277	2396	
==>0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2277	2396	
==>0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @ar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5746	5861	
==>Regexp::Parser::anchor;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return sub{ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1375	1476	
==>Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1296	1393	
==>Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1529	1626	
==>essed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1529	1626	
==>essed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1529	1626	
==>essed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7961	8137	
==>( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4321	4497	
==>( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5170	5346	
==>( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my ($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1922	2044	
==>sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1922	2044	
==>sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1922	2044	
==>sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrappe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17065	17189	
==>erl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17065	17189	
==>erl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17065	17189	
==>erl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 value
  my $num = Perl6::Value::Str: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14302	14462	
==>p::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14581	14741	
==>p::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::consta <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14328	14425	
==>ribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mob, "PGE::Match\x0$:p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	559	680	
==>:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub spl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	559	680	
==>:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub spl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19421	19520	
==>ixes

Character classes weren't closing properly in the tree.  Fixed.

Standard escapes (C<\a>, C<\e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1123	1256	
==>:Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1123	1256	
==>:Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1123	1256	
==>:Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1985	2119	
==>tch->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2420	2554	
==>tch->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2857	2991	
==>tch->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1446	1577	
==>on (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1446	1577	
==>on (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1446	1577	
==>on (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17165	17256	
==>tribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17165	17256	
==>tribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17165	17256	
==>tribute('%:private_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19277	19381	
==>th C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first b <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19277	19381	
==>th C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first b <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	106	209	
==>gexp.t
our $bang = sprintf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xff) x 2;
o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14987	15084	
==>y.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15045	15142	
==>y.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3245	3358	
==>([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3245	3358	
==>([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3245	3358	
==>([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	226	355	
==>ion () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	226	355	
==>ion () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	226	355	
==>ion () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3127	3231	
==>::params'))
        || confess "Bad params in signature";
    $options{returns} = 'type' if !(exists $opt <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	74	165	
==>ubmethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	74	165	
==>ubmethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23892	23993	
==>rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_com <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23892	23993	
==>rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_com <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23892	23993	
==>rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_com <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15564	15691	
==>); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15564	15691	
==>); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	44	154	
==>lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	371	481	
==>_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	371	481	
==>_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	371	481	
==>_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5252	5367	
==>);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($alway <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5252	5367	
==>);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($alway <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5252	5367	
==>);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($alway <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2381	2487	
==>! $x.round_ceiling
}

our Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.r <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1661	1756	
==>2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as param <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1661	1756	
==>2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1100	1202	
==>lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimiza <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1100	1202	
==>lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimiza <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1100	1202	
==>lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimiza <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	506	602	
==>te ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	506	602	
==>te ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1588	1780	
==>on::Heading)
                        ?? .value.value
                        !! $?CLASS.new( :attrs<.value.value> )
                    )
                )
                !! ( 'Scalar' => .val <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3224	3322	
==>=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3224	3322	
==>=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2517	2647	
==>_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2517	2647	
==>_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2517	2647	
==>_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	890	986	
==>$dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	820	910	
==>$dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	544	665	
==>king of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Nume <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	544	665	
==>king of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Nume <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5011	5099	
==>,Min,Max,Z), !.
p6_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_range_greed <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6227	6399	
==>se {
            $self->{_child_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8721	8855	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8914	9048	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3470	3585	
==>a parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieab <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3470	3585	
==>a parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieab <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3470	3585	
==>a parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieab <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	461	579	
==>accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remov <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	461	579	
==>accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9817	9958	
==>_('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_MET <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9817	9958	
==>_('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_MET <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9817	9958	
==>_('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_MET <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1491	1606	
==>tr $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $c <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1491	1606	
==>tr $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1652	1758	
==>->to_str->to_native};
    nil->new();
}

sub keys { 
    my %native = (shift)->to_native;
    list->new(map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8348	8440	
==>============================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8348	8440	
==>============================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8348	8440	
==>============================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9278	9493	
==>air = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9278	9493	
==>air = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9278	9493	
==>air = $param[0]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2582	2698	
==>ewline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2582	2698	
==>ewline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	86	182	
==>NSTALLATION_DIR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4255	4400	
==>rp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4255	4400	
==>rp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4255	4400	
==>rp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	173	299	
==>This is the ONLY module that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    fore <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27949	28046	
==>β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), "list int → list int <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	8	104	
==>AME

Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	8	104	
==>AME

Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	457	565	
==>d %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	457	565	
==>d %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30894	30993	
==>ack, and returns an object.

Finally, if you want to add a new POSIX character class, its handler
mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5666	5776	
==>unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5666	5776	
==>unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5666	5776	
==>unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1849	1975	
==>arams) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1849	1975	
==>arams) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1849	1975	
==>arams) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	105	199	
==>------------------------------------------------
## now for some bootstrapping ....

## See htt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	105	199	
==>------------------------------------------------
## now for some bootstrapping ....

## See htt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	105	199	
==>------------------------------------------------
## now for some bootstrapping ....

## See htt <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	284	387	
==>eve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_in <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	284	387	
==>eve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	652	749	
==>), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## --------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	652	749	
==>), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## --------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	652	749	
==>), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## --------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8840	9021	
==>for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5200	5381	
==>for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6049	6230	
==>for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	68	167	
==>NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	68	167	
==>NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27800	27893	
==>bject of the same name, and finally
from F<Regexp::Parser::__object__>.  Don't worry -- if you <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	253	371	
==>_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub ur <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	253	371	
==>_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub ur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1174	1291	
==>self->coroutine();
  if ( $self->coroutine() )
  {
    #execute coroutine
    #&$coroutine();
  }
  else
  {
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1157	1301	
==>ributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1157	1301	
==>ributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an o <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1157	1301	
==>ributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	268	377	
==>1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	268	377	
==>1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub c <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	4	137	
==>rfelspiele
sub wurf { 1 + int 6 * rand }
#!\pause
#=Perl 5: sechs mal würfeln
my @a; push @a, wurf() for 1..6;
#!\pause
#=Perl 6: se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14405	14504	
==>_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8608	8707	
==>_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10335	10436	
==>turn $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10335	10436	
==>turn $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1422	1528	
==>s       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1422	1528	
==>s       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1422	1528	
==>s       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35679	35803	
==>if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35679	35803	
==>if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35679	35803	
==>if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8337	8449	
==>output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	547	647	
==>output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	547	647	
==>output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	219	326	
==>ot ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	219	326	
==>ot ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	219	326	
==>ot ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4326	4423	
==>$sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4326	4423	
==>$sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4326	4423	
==>$sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varna <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22754	22852	
==>y use them; but often a template will
choose to show less than all of the available details dependi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22754	22852	
==>y use them; but often a template will
choose to show less than all of the available details dependi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6571	6667	
==>($_) }
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

sub _index_fil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4024	4129	
==>line = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4024	4129	
==>line = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4308	4413	
==>n\t$body;\n}");
	return $symbol . "()";
}

sub define_val {
	my $self = shift;
	my ($node, $symbol, $body, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	711	872	
==>ptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	711	872	
==>ptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	711	872	
==>ptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs= <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2413	2506	
==>eta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2413	2506	
==>eta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3313	3447	
==>nt_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3313	3447	
==>nt_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3313	3447	
==>nt_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1140	1264	
==>fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1140	1264	
==>fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1140	1264	
==>fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13275	13399	
==>' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13275	13399	
==>' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13275	13399	
==>' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1763	1880	
==>ar  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1763	1880	
==>ar  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1276	1392	
==>' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1276	1392	
==>' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18943	19036	
==>ass implements a Relation data type that corresponds to the
"relation" of logic and mathematic <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29629	29738	
==>' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29629	29738	
==>' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	433	530	
==>' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2951	3048	
==>HT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2951	3048	
==>HT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3298	3395	
==>HT

Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14335	14441	
==>$?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift() <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	891	994	
==>tta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	891	994	
==>tta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4220	4342	
==>nfinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | unde <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4220	4342	
==>nfinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | unde <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10624	10721	
==>ill then reset itself, and will start from the beginning the next
time it is called.

=head2 Viewi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	578	712	
==>'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	578	712	
==>'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10410	10524	
==>$iter->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other argument, it will warn th <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9534	9804	
==>{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted str <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11011	11281	
==>{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3791	3930	
==>d(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3791	3930	
==>d(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3791	3930	
==>d(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2522	2621	
==>s the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more importa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2427	2525	
==>s the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more importa <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7134	7231	
==>ry",
  ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @modfiles;
ste <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12900	12994	
==>ams by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12900	12994	
==>ams by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8924	9025	
==>"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8924	9025	
==>"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8924	9025	
==>"$str\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15670	15837	
==>>{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _norm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15670	15837	
==>>{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _norm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15670	15837	
==>>{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _norm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5149	5267	
==>ift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5149	5267	
==>ift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5149	5267	
==>ift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40996	41089	
==>LEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a featu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40996	41089	
==>LEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a featu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2492	2643	
==>y),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2492	2643	
==>y),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2492	2643	
==>y),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4610	4708	
==>new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4610	4708	
==>new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4610	4708	
==>new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[% <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14880	15010	
==>) = newfrom(mob, 0, "PGE::Exp::Scalar")
    dec pos
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9299	9395	
==>n missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$asc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9299	9395	
==>n missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$asc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11129	11233	
==>ug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11129	11233	
==>ug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we c <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9061	9158	
==>switches($file);

Formats and returns the switches necessary to run the test.

=cut

sub _switches <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1289	1390	
==>ion of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1289	1390	
==>ion of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1289	1390	
==>ion of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5794	6021	
==>Params'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5794	6021	
==>Params'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5794	6021	
==>Params'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubN <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17399	17512	
==>ding );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gathe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20876	20989	
==>ding );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gathe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10784	10929	
==>ew(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10784	10929	
==>ew(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10784	10929	
==>ew(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5481	5591	
==>ied name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5481	5591	
==>ied name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5481	5591	
==>ied name, and attempt to 
locate the item. 

The other option is to ask FETCH and STORE to handle this, however <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29819	29924	
==>thesis ')'.  There cannot
be one without a matching left parenthesis '('; if there is an extra ')'
a fatal <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18355	18451	
==>ss was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<refe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18355	18451	
==>ss was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4644	4737	
==>ptional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4644	4737	
==>ptional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5234	5327	
==>ptional is_writable is_slurpy container_var named_only));
use Devel::LexAlias qw(lexalias);

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3957	4072	
==>22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3957	4072	
==>22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3957	4072	
==>22:
    #   On 8/22/05, Larry Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12160	12302	
==>y $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12160	12302	
==>y $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each <==
3	/Users/nnunley/pugs/util/package-osx.pl	8746	8886	
==>=~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1387	1486	
==>BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1387	1486	
==>BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1387	1486	
==>BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2264	2360	
==>hods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2264	2360	
==>hods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2264	2360	
==>hods')->{$label};
}));

$::Role->add_method('has_method' => ::make_method(sub {
    my ($self, $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2227	2326	
==>p AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2227	2326	
==>p AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2227	2326	
==>p AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10382	10513	
==>n't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10382	10513	
==>n't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10382	10513	
==>n't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11169	11292	
==>in::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11169	11292	
==>in::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11169	11292	
==>in::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12025	12139	
==>is;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12025	12139	
==>is;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12025	12139	
==>is;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7243	7387	
==>y qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7243	7387	
==>y qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32724	32822	
==>g stack is that ending
nodes are all omitted from the tree because of the stacked nature of the
tre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16807	16907	
==>ersion=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used as a mo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16807	16907	
==>ersion=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used as a mo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3509	3708	
==>t, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3509	3708	
==>t, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2394	2500	
==>_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2394	2500	
==>_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2394	2500	
==>_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12589	12783	
==>" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12583	12777	
==>" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in le <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4053	4207	
==>em: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $rules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3525	3706	
==>b {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3525	3706	
==>b {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3525	3706	
==>b {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3839	4005	
==>uld *build* things here too
            system( qq[tar -f $my_tmp_dir/$data -C ] . 
                        $conf->compile_dir . q[ -xz] );

            ### preinst ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11877	12018	
==>re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11877	12018	
==>re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15273	15448	
==>->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15273	15448	
==>->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15273	15448	
==>->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	950	1056	
==>ls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	950	1056	
==>ls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	950	1056	
==>ls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5325	5422	
==>undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5325	5422	
==>undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5325	5422	
==>undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7155	7267	
==>led = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	456	568	
==>led = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depen <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1663	1763	
==>lue { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_failed { $_[0]{'has_failed'} }

pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	710	817	
==>= $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	710	817	
==>= $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	710	817	
==>= $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2202	2324	
==>uux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2202	2324	
==>uux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1805	1915	
==>us anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print(" <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1994	2125	
==>utput: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14281	14381	
==>fined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arra <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14281	14381	
==>fined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arra <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4160	4268	
==>elsif  ($arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] -- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24634	24730	
==>illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21055	21151	
==>illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13228	13342	
==>'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $sourc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13228	13342	
==>'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $sourc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18335	18431	
==>rs and ranges from being display if they are included in an embedded
class, set the I<anyof> obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13979	14101	
==>6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13979	14101	
==>6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13979	14101	
==>6v_isa( $s, 'Scalar');
    my $tmp;
    # warn "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unles <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8474	8576	
==>rchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hier <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8474	8576	
==>rchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hier <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36233	36335	
==>nsume);
  }

Here's a sample execution:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14813	14919	
==>e the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4539	4654	
==>e same.
        # (all string operators have alphabetic names, so tr/a-z// is true)
        # This will also show nu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3429	3550	
==>t ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3429	3550	
==>t ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $sta <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	556	653	
==>ent ($self:) returns Tree { 
    return $!parent;
}

## ------------------------------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	556	653	
==>ent ($self:) returns Tree { 
    return $!parent;
}

## ------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1587	1732	
==>opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1587	1732	
==>opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1587	1732	
==>opaque_instance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23636	23737	
==>plementing class, it can default to True or
False, but once it has a value of False, it can not be fur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28188	28289	
==>plementing class, it can default to True or
False, but once it has a value of False, it can not be fur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27001	27102	
==>plementing class, it can default to True or
False, but once it has a value of False, it can not be fur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	624	762	
==>mar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of mod;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9817	9922	
==>() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9817	9922	
==>() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	471	680	
==>:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	471	680	
==>:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	471	680	
==>:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class_methods'    => {},                      
        )
    );
}

# The 'Class' class
$: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3574	3702	
==>rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3574	3702	
==>rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36302	36415	
==>y $parser = Regexp::AndBranch->new;

  # matches the first number found in a string
  # that contains 'foo' somewh <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1112	1237	
==>DIGEST_CACHE{overload::StrVal($self)};
    }

    sub compute_digest {
    my $self = shift;
        my $sha1 = Digest->new("S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	768	863	
==>Plan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a sub <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	768	863	
==>Plan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a sub <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17511	17628	
==>ocal $X::pos = $start;
    local $X::cap = [];
    my $m = MatchX->new();
    local $X::current_match = $m;
    my $ok <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	557	662	
==>( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<d <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	557	662	
==>( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<d <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16559	16687	
==>ive is safe {
        ($n < 0) ?? int( $n - 0.5) !! int($n + 0.5);
    }
    sub round($n) is primitive is safe {
        Num::ro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8255	8359	
==>s is working because the language
    # spec says it is supposed to, or whether is due a fluke or unspecc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8255	8359	
==>s is working because the language
    # spec says it is supposed to, or whether is due a fluke or unspecc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	216	316	
==>->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	216	316	
==>->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	216	316	
==>->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	475	585	
==>005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on constr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	475	585	
==>005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on constr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	475	585	
==>005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on constr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1034	1158	
==>c") );
}

{
my $r = 
    concat( 
        alternation( constant('a'), constant('b') ),
        capture( '0', constant( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13327	13421	
==>t input format for
Document.new(), by which you can create an identical Document (with member
N <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13327	13421	
==>t input format for
Document.new(), by which you can create an identical Document (with member
N <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	517	637	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	517	637	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	517	637	
==>do) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	600	734	
==>a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	600	734	
==>a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	600	734	
==>a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitiv <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13743	13848	
==>oo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will pri <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13743	13848	
==>oo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will pri <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	399	495	
==>.. };

multi sub pi is readonly () returns Num
    { 3.14159_26535_89793_23846_26433_83279_50288_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6013	6106	
==>ined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6013	6106	
==>ined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$ev <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6178	6271	
==>q 'test';
}

=head2 C<analyze_fh>

  my %results = $strap->analyze_fh($name, $test_filehandle) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39156	39279	
==>>is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39156	39279	
==>>is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39156	39279	
==>>is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unshift @{$array->{items}}, @_;
    return $array;
}

sub pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1103	1248	
==>ess $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1103	1248	
==>ess $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1103	1248	
==>ess $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3087	3214	
==>zy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3087	3214	
==>zy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3087	3214	
==>zy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3625	3736	
==>relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7102	7213	
==>relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6059	6170	
==>relation that aren't being renamed."
        if any( $mapping.values )
            === any( $!heading.difference <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4775	4899	
==>";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2170	2279	
==>ath = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $sourc <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2170	2279	
==>ath = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7679	7802	
==>x->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7679	7802	
==>x->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7679	7802	
==>x->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9819	9910	
==>ew C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parameters <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9819	9910	
==>ew C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parameters <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1933	2044	
==>$set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1933	2044	
==>$set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ( <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2960	3063	
==>_ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11689	11830	
==>42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n->{exp2} );
    }

    return <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4491	4643	
==>ter the installation
            ### do this AFTER installing, duh!
            $inst_pkg = $inst->register( package => $self ) 
                or error <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1936	2034	
==>cking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1936	2034	
==>cking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7511	7631	
==>ybrid_kludge = 1;
    }
    if(@$params && !ref($params->[0])) { # an array of strings
	my @p = map{
	    my %h;
	    s/\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4946	5061	
==>.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4946	5061	
==>.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spa <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while4.pl	48	160	
==>y $i = 1;
loop { # dies ist eine echte Schleife, daher...
	say $i; $i++;
	# last if $i==3; # ... würde das gehen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18584	18677	
==>osetta objects between multiple threads, nor have objects in separate
threads try to access th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18584	18677	
==>osetta objects between multiple threads, nor have objects in separate
threads try to access th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5619	5721	
==>($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5619	5721	
==>($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5619	5721	
==>($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $j <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14831	14978	
==>t(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15110	15257	
==>t(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16241	16350	
==>)
.end

.namespace [ "PGE::Rule" ]

.sub "p6rule"
    .param pmc mob
    .local pmc optable
    optable = find <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1247	1380	
==>ance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1247	1380	
==>ance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1247	1380	
==>ance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4198	4297	
==>ostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the rece <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4198	4297	
==>ostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the rece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4278	4377	
==>ostics for the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the rece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3783	3891	
==>>fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3783	3891	
==>>fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3783	3891	
==>>fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5390	5504	
==>));";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5390	5504	
==>));";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5390	5504	
==>));";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefined) { $jsname <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7141	7290	
==>@vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lot <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7141	7290	
==>@vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lot <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2124	2230	
==>a literal out of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6518	6623	
==>s.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6518	6623	
==>s.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6518	6623	
==>s.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2J <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1287	1505	
==>el,
            },
            index => {
                store => \$index
            },
            index_file => {
                store => \$index_file
            },
            packages => {
                defaul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10506	10631	
==>t:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10506	10631	
==>t:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11979	12076	
==>l ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11979	12076	
==>l ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11979	12076	
==>l ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_require_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6586	6699	
==>if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6586	6699	
==>if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6438	6553	
==>b infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6438	6553	
==>b infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6438	6553	
==>b infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9814	9942	
==>status, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ($test{max} and $test{skipped} + $t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18044	18140	
==>multiple DBMS objects will not
have references to each other at a level visible in the Rosetta Na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18044	18140	
==>multiple DBMS objects will not
have references to each other at a level visible in the Rosetta Na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	503	614	
==>ry_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	503	614	
==>ry_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	503	614	
==>ry_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1797	1902	
==>s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodco <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1797	1902	
==>s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodco <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	189	308	
==>his is not a .pl, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test file dates
my $pmc_is_uptodate = (-s $pmc and (-M $ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	727	828	
==>select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	727	828	
==>select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7670	7812	
==>om_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7670	7812	
==>om_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7670	7812	
==>om_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22569	22688	
==>});

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18990	19109	
==>});

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2720	2828	
==>ew PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2720	2828	
==>ew PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2720	2828	
==>ew PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12462	12581	
==>fts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12462	12581	
==>fts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12462	12581	
==>fts, "+", scalar @pops, "\n";
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6304	6386	
==>sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6304	6386	
==>sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6304	6386	
==>sprintf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25190	25292	
==>l>

This method returns a Bool indicating whether the immutable identity of the
argument C<$other> equa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29742	29844	
==>l>

This method returns a Bool indicating whether the immutable identity of the
argument C<$other> equa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28672	28774	
==>l>

This method returns a Bool indicating whether the immutable identity of the
argument C<$other> equa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4833	4938	
==>operator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to the associa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4833	4938	
==>operator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to the associa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4833	4938	
==>operator
# XXX This implementation is, of course, incorrect. There is *no* attention
# paid to the associa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5503	5630	
==>$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5725	5852	
==>$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1334	1426	
==>d2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimited( "/" . $remainder, "/" ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4032	4151	
==>ml .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', ab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4032	4151	
==>ml .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', ab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4032	4151	
==>ml .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ']]>', ab <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13205	13318	
==>ntical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16682	16795	
==>ntical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16044	16157	
==>ntical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6514	6616	
==>sInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6514	6616	
==>sInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6514	6616	
==>sInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::False <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10720	10858	
==>pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10720	10858	
==>pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10720	10858	
==>pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2463	2663	
==>_y => sub {
            my ($self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x = 0; $y = 0;
        },   
        class => sub { \&Point },        
    } <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16236	16351	
==>eturn $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonus <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1278	1373	
==>led: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurren <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1278	1373	
==>led: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurren <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1017	1120	
==>{ $match = $rpc_token->match($str)   for 1..40},
        P6_Regex   => sub{ $match = $rpc_regex->match( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3428	3521	
==>PI is fundamentally object-oriented; the procedural and functional 
interfaces are layers on t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3428	3521	
==>PI is fundamentally object-oriented; the procedural and functional 
interfaces are layers on t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3037	3148	
==>ote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNO <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3037	3148	
==>ote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10048	10142	
==>t functions will be defined to facilitate the
testing of those features. For more information s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10106	10200	
==>t functions will be defined to facilitate the
testing of those features. For more information s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21584	21691	
==>pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6195	6364	
==>,

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6195	6364	
==>,

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6195	6364	
==>,

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3747	3842	
==>Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3747	3842	
==>Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3747	3842	
==>Root::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1971	2123	
==>...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1971	2123	
==>...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1971	2123	
==>...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	211	353	
==>>scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PIL::Run::Container::Hash' => {
    does => [ 'IHash' ],
    instance = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1806	1905	
==>($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1806	1905	
==>($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	350	470	
==>soc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4443	4539	
==>discarded.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
im <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4443	4539	
==>discarded.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
im <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2091	2223	
==>parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Du <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	151	246	
==>_details = 'ParserDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2396	2490	
==>couple of others I don't remember at the moment but should be mentioned...

package BacktrackDe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23764	23862	
==>keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23764	23862	
==>keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23764	23862	
==>keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pa <==
3	/Users/nnunley/pugs/util/drift.pl	336	436	
==>ess -d $dir;
my $out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

op <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3024	3117	
==>pherer closure, which can be called repeatedly to encipher data.
The encipherer closure can be <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3024	3117	
==>pherer closure, which can be called repeatedly to encipher data.
The encipherer closure can be <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5782	5907	
==>s keys and values are this:

    bonus           Number of individual todo tests unexpectedly passed
    max             Numbe <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10493	10600	
==>y used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10493	10600	
==>y used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4357	4501	
==>ncat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4345	4489	
==>ncat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10546	10699	
==>ew PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10546	10699	
==>ew PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10546	10699	
==>ew PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? und <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	832	959	
==>ture>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Varia <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	832	959	
==>ture>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Varia <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7315	7448	
==>$k.chars > 1 && substr($k,-1,1) eq "x"
               && internals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1300	1395	
==>"pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1300	1395	
==>"pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1300	1395	
==>"pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6pr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2409	2514	
==>.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2409	2514	
==>.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1397	1522	
==>:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1397	1522	
==>:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1397	1522	
==>:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1766	1949	
==>entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else {
            error( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	331	486	
==>ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ide <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	331	486	
==>ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ide <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4922	5024	
==>rguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $pas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4922	5024	
==>rguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $pas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6446	6548	
==>rguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $pas <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2280	2387	
==>r($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2497	2604	
==>r($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, " <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20862	20956	
==>B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3764	3857	
==>/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3764	3857	
==>/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3764	3857	
==>/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3752	3851	
==>join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3752	3851	
==>join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3752	3851	
==>join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	133	243	
==>nt
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	133	243	
==>nt
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	133	243	
==>nt
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5196	5377	
==>ord} =~ /^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n->{param}{sub}{barewor <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	288	382	
==>information functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_param <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	288	382	
==>information functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_param <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14558	14695	
==>r @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18035	18172	
==>r @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17451	17588	
==>r @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10751	10888	
==>my $y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skipping") . "...\n";
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	568	658	
==>rsion);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	568	658	
==>rsion);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	378	498	
==>ire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jscl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	378	498	
==>ire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jscl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	378	498	
==>ire;

    my $jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jscl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5789	5882	
==>ns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5789	5882	
==>ns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7313	7406	
==>ns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10003	10125	
==>nt(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10003	10125	
==>nt(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10003	10125	
==>nt(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1903	2003	
==>\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1903	2003	
==>\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1903	2003	
==>\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL1- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	977	1074	
==>bal ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	977	1074	
==>bal ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	977	1074	
==>bal ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2689	2800	
==>$MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::long <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2689	2800	
==>$MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::long <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2689	2800	
==>$MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> recurse " . Carp::long <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7919	8056	
==>ype" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There wa <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7919	8056	
==>ype" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There wa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23058	23149	
==>rage representation of the roles' attributes (eg,
volatile or persistent) and provide access <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	748	846	
==>multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	748	846	
==>multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	748	846	
==>multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7900	8072	
==>$i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7900	8072	
==>$i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7900	8072	
==>$i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $result;
}
sub Perl6::Slice::write_thru {
    # writes back <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6753	6873	
==>y @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6753	6873	
==>y @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6753	6873	
==>y @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7842	7998	
==>self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7842	7998	
==>self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7842	7998	
==>self->fetch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1699	1809	
==>l6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1699	1809	
==>l6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1699	1809	
==>l6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2029	2173	
==>spatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2029	2173	
==>spatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2029	2173	
==>spatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9290	9415	
==>$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9278	9403	
==>$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27925	28020	
==>your module's objects, or the object you create isn't
a modification of a standard object, no wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	817	906	
==>INDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	817	906	
==>INDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	817	906	
==>INDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6193	6306	
==>heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  :: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9670	9783	
==>heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  :: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8744	8857	
==>heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  :: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3570	3669	
==>ify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3570	3669	
==>ify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1573	1671	
==>nt STDERR "done.\n" if $Config{verbose};
}

sub inline {
    print STDERR "Generating inlined sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5617	5726	
==>_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5617	5726	
==>_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6207	6316	
==>_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') {
	Data::Bind::_alias_a_to_b($re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19116	19214	
==>fix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19116	19214	
==>fix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19116	19214	
==>fix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MUL <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9513	9627	
==>intf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local * <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27137	27240	
==>exp::Parser's handlers
    $self->SUPER::init();

    # now add your own...
    $self->add_handler('&' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2454	2564	
==>ub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2454	2564	
==>ub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2454	2564	
==>ub JS::Root::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5469	5561	
==>$dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($n <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5469	5561	
==>$dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($n <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1453	1565	
==>kens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely the <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3101	3201	
==>ion_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3101	3201	
==>ion_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4817	4955	
==>t_method_list) {
            # if we already have the method, then
            # ignore it and go to the next one
            next if $self <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	294	389	
==>Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in the <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	294	389	
==>Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8216	8335	
==>S.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8216	8335	
==>S.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8216	8335	
==>S.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4583	4682	
==>oot::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4583	4682	
==>oot::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4583	4682	
==>oot::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3176	3295	
==>objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3176	3295	
==>objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3176	3295	
==>objects of type {$self.ref}!";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8210	8316	
==>a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8210	8316	
==>a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	28	127	
==>ndie::Nodes;
use base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class::Inspector () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	546	647	
==>LASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	546	647	
==>LASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	546	647	
==>LASS_NO_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	197	304	
==>::Repository->new( root => $REPOSITORY_ROOT )
                or die "No repository created";

$REPO->create <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1198	1283	
==>----------------------------------------------------------

Since you are using Micros <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1038	1123	
==>----------------------------------------------------------

Since you are using Micros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12172	12279	
==>{} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12172	12279	
==>{} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12172	12279	
==>{} unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28482	28579	
==>he implicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28482	28579	
==>he implicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Lo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1814	1948	
==>o not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5291	5425	
==>o not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4221	4355	
==>o not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match th <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9389	9536	
==>OWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9389	9536	
==>OWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	14	132	
==>:Proccesor {
    class Getopt::Processor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	604	707	
==>ft;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	604	707	
==>ft;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	604	707	
==>ft;

    local $PIL::CUR_POS = $self->{pPos};
    ($self->{pNode}{CC} and die) or $self->{pNode}{CC} = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4659	4857	
==>me: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	417	513	
==>ract values from all letters), and an 
unnamed similar cipher where all bytes are changed, not ju <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	417	513	
==>ract values from all letters), and an 
unnamed similar cipher where all bytes are changed, not ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14151	14242	
==>g::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14151	14242	
==>g::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14151	14242	
==>g::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx)); p6_from_n( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9966	10071	
==>fy, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9966	10071	
==>fy, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24535	24617	
==>def(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n_if_undef(N,X,C0,C1).
match_captures_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12372	12508	
==>ts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12372	12508	
==>ts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12372	12508	
==>ts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            retur <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	159	286	
==>start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        st <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	159	286	
==>start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        st <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7683	7789	
==>%results;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1342	1509	
==>y.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1342	1509	
==>y.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1342	1509	
==>y.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.appendChild(document.createTextN <==
3	/Users/nnunley/pugs/util/addauthors.pl	828	970	
==>(@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first ini <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8229	8339	
==>files_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7846	7947	
==>I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7846	7947	
==>I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# th <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7603	7716	
==>isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7603	7716	
==>isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2457	2550	
==>" . $name->to_str->to_native . ") already exists";
    return $self->[2]->store($name, $nil::N <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27937	28042	
==>IED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PE <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	187	282	
==>REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> } <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	187	282	
==>REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	141	249	
==>my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	141	249	
==>my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	141	249	
==>my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22897	23068	
==>h Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22897	23068	
==>h Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22897	23068	
==>h Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10572	10753	
==>$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6913	7094	
==>$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7762	7943	
==>$src \"; " .
                    "\n";
            }
            # print "macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18040	18146	
==>_lookup {\n";
    $code .= $hlp->(shift @classes);
    $code .= '  exists($META->FETCH("{}")->{$_[1]}) ? $M <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15237	15335	
==>es property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15237	15335	
==>es property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4046	4176	
==>able')}; 

                            
1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3104	3198	
==>:Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3104	3198	
==>:Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37872	37987	
==>pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37872	37987	
==>pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37872	37987	
==>pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	215	314	
==>testdir/$exename.c")
    or die "Can't create $testdir/$exename.c: $!";
print $F <<'EOT';
#includ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20443	20536	
==>ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left al <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20443	20536	
==>ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left al <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4840	4965	
==>l
            my $tmp = $$m->{tail};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR "bug <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6858	6975	
==>222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(823 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6858	6975	
==>222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(823 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10206	10319	
==>tersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10206	10319	
==>tersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5313	5412	
==>($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5313	5412	
==>($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5313	5412	
==>($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2001	2110	
==>le->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2001	2110	
==>le->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2001	2110	
==>le->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::Role->name('Role');
$::EigenClass-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4466	4569	
==>LTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4466	4569	
==>LTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4466	4569	
==>LTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	147	258	
==>art = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	147	258	
==>art = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	147	258	
==>art = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4667	4763	
==>l(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4667	4763	
==>l(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4667	4763	
==>l(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	356	466	
==>AIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	356	466	
==>AIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	356	466	
==>AIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5601	5813	
==>>nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5601	5813	
==>>nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5601	5813	
==>>nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3276	3379	
==>e expected output and diagnostic output of tests,
running those tests, and then telling this module to c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3276	3379	
==>e expected output and diagnostic output of tests,
running those tests, and then telling this module to c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3356	3459	
==>e expected output and diagnostic output of tests,
running those tests, and then telling this module to c <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3538	3644	
==>RL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $! <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2095	2195	
==>=> [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2095	2195	
==>=> [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'in <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14297	14407	
==>atement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14297	14407	
==>atement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8666	8788	
==>rms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8859	8981	
==>rms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2086	2187	
==>hr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)), @_;
}


sub error_is {
  my ($self, $enum) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	233	349	
==>reate ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	233	349	
==>reate ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	233	349	
==>reate ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12681	12773	
==>PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12681	12773	
==>PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12681	12773	
==>PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3846	3949	
==>::Pass instance, passing on the C<$description> 
parameter, and setting the passed parameter to a true v <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3846	3949	
==>::Pass instance, passing on the C<$description> 
parameter, and setting the passed parameter to a true v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6043	6146	
==>::Pass instance, passing on the C<$description> 
parameter, and setting the passed parameter to a true v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1682	1821	
==>) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1682	1821	
==>) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1682	1821	
==>) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11907	12049	
==>hod .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11907	12049	
==>hod .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11907	12049	
==>hod .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	460	556	
==>cumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	460	556	
==>cumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	460	556	
==>cumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub inf <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1455	1546	
==>ble therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1455	1546	
==>ble therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7655	7761	
==>athchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7655	7761	
==>athchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	829	935	
==>ub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	829	935	
==>ub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	829	935	
==>ub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3596	3694	
==>E>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3596	3694	
==>E>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	412	508	
==>e repository. $root/jibs if not specified.

=item pool_rel

The path to the pool directory that w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3294	3436	
==>.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3294	3436	
==>.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3294	3436	
==>.
#        $m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3724	3832	
==>my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3724	3832	
==>my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $mod <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15496	15592	
==>the set of generic type variables, so the body has the generic variables created in the binding
l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1247	1346	
==>merically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#} <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1247	1346	
==>merically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17601	17776	
==>irs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21078	21253	
==>irs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20665	20840	
==>irs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	420	535	
==>asy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	420	535	
==>asy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	420	535	
==>asy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1242	1358	
==>l is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test : <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1300	1416	
==>l is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test : <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4227	4328	
==>hould_be}->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7072	7226	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string dec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7072	7226	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string dec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7072	7226	
==>.unboxed' => ++$value ) },
            'decrement' => sub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2806	2900	
==>s_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2806	2900	
==>s_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2806	2900	
==>s_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12297	12408	
==>s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'unini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12297	12408	
==>s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'unini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12297	12408	
==>s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'unini <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	125	237	
==>.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	125	237	
==>.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	125	237	
==>.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9992	10151	
==>um
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2053	2202	
==>um
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2053	2202	
==>um
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	724	856	
==>st' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	724	856	
==>st' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	724	856	
==>st' clean up - removed 'multisub' methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive m <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6421	6521	
==>uments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6421	6521	
==>uments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	948	1039	
==>->dump_verbose_fh($output_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19659	19756	
==>h a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19659	19756	
==>h a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1329	1455	
==>reate_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1329	1455	
==>reate_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1329	1455	
==>reate_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	563	688	
==>rams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	563	688	
==>rams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	563	688	
==>rams) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2085	2194	
==>e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2085	2194	
==>e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2085	2194	
==>e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't ex <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	531	642	
==>e().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Sel <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	531	642	
==>e().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14802	14898	
==>Here are some ideas for extensions (sub-classes) for this module.  Some
of them may be absorbed i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22445	22543	
==>nings when used
in flag and non-capturing group constructs.

=back

=head2 0.01 -- June 29, 2004

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3579	3667	
==>apture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3763	3851	
==>apture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	8	112	
==>ey (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	8	112	
==>ey (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	8	112	
==>ey (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4699	4846	
==>shift;
                my $idx_to = shift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self->get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13160	13280	
==>A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13160	13280	
==>A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	715	810	
==>assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	715	810	
==>assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	715	810	
==>assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19425.
    cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	999	1107	
==>pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	999	1107	
==>pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	999	1107	
==>pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3044	3201	
==>abel}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3044	3201	
==>abel}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36862	37012	
==>ch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_attribute', (symbol->new('@: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1397	1516	
==>, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1973	2092	
==>, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6787	6969	
==>s, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6787	6969	
==>s, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6787	6969	
==>s, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Pe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4968	5232	
==>>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$o <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7691	7843	
==>Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arb <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7691	7843	
==>Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8673	8841	
==>> 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12580	12742	
==>> 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12580	12742	
==>> 1 } );
            #print "match: ",$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1287	1397	
==>ive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1287	1397	
==>ive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1287	1397	
==>ive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub st <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20759	20858	
==>les are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20759	20858	
==>les are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35416	35512	
==>ent, in which case the new Relation::Example has either all of the tuples of
the original, or has <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	44	156	
==>stall {



    ### XXX return j::p::installed


}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28305	28411	
==>e), or it might not exist at all
(for an 'anchor' node).

=item my $e = $obj->ender()

The arguments to obj <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4724	4821	
==>grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3542	3640	
==>fault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3542	3640	
==>fault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3542	3640	
==>fault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34608	34718	
==>gth = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34608	34718	
==>gth = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34608	34718	
==>gth = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2223	2330	
==>o.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2223	2330	
==>o.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2223	2330	
==>o.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anyway.
  # Th <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9238	9386	
==>XX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9238	9386	
==>XX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shi <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1019	1188	
==>tch($event, *@args);
      $result;
    });
    
    # And enter the runloop again.
    ./:step(); #/#--vim
  }
}

class POE::Session {
  method dispatch (Str $event, *@a <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2309	2402	
==>p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2309	2402	
==>p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2129	2419	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5606	5896	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4536	4826	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

meth <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10064	10153	
==>)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',def <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10799	10888	
==>)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20336	20430	
==>x0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20336	20430	
==>x0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20336	20430	
==>x0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4040	4175	
==>i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4040	4175	
==>i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4040	4175	
==>i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6317	6559	
==>tr->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6317	6559	
==>tr->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6317	6559	
==>tr->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	253	364	
==>things to init 
# in the correct order
use Perl6::Core::Bit;

# comparisons

# implement this and get the rest f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1583	1686	
==>stic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1583	1686	
==>stic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4342	4435	
==>o the right class name for Point3D');
is($p3d->prototype->class, \&Point, '... go the right su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6757	6862	
==>$a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6757	6862	
==>$a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6757	6862	
==>$a = 1)    is primitive { $JS::Math.random() * $a }

# The following line also installs &infix:<=>. (hack! <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6098	6247	
==>sing 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6098	6247	
==>sing 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                c <==
3	/Users/nnunley/pugs/util/run-smoke.pl	579	681	
==>0] or die "Need pugs sandbox location";
my $html_location   = $ARGV[1] or die "Need HTML output file lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2975	3072	
==>the right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23448	23539	
==>nal dependencies; Locale::KeyedText has no non-trivial
external dependencies (it is very sim <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23448	23539	
==>nal dependencies; Locale::KeyedText has no non-trivial
external dependencies (it is very sim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6192	6323	
==>e_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6192	6323	
==>e_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6192	6323	
==>e_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_instance_attr(:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2403	2495	
==>ontainer::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2403	2495	
==>ontainer::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2403	2495	
==>ontainer::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descri <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7871	7972	
==>@{[ BUCKET ]}\": $!\n";

  store_fd [$bucket->state] => $fh or
    die "Couldn't serialize bucket to \ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31054	31146	
==>t relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35604	35696	
==>t relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	856	983	
==>}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	856	983	
==>}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1 <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	149	268	
==>nc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported doesn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31564	31764	
==>th >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31564	31764	
==>th >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31564	31764	
==>th >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1994	2105	
==>ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1994	2105	
==>ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22028	22123	
==>ectively have a special meaning in relational algebra which
is analagous to what the identity nu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26580	26675	
==>ectively have a special meaning in relational algebra which
is analagous to what the identity nu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25276	25371	
==>ectively have a special meaning in relational algebra which
is analagous to what the identity nu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1417	1556	
==>le with MD in it
$Site           = $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tmp';                   # t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8776	8880	
==>ert_arg_str( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to inv <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8776	8880	
==>ert_arg_str( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to inv <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49777	49972	
==>params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$authority' => 'str'),
                          ),
                return <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17492	17584	
==>tically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no l <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17492	17584	
==>tically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8846	8968	
==>lan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1002	1116	
==>lan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1002	1116	
==>lan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.te <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5312	5483	
==>@dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tm <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5312	5483	
==>@dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tm <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4283	4377	
==>FILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40920	41036	
==>>{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40920	41036	
==>>{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40920	41036	
==>>{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Conta <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1527	1663	
==>eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alternative( $alt );
    }
    
    retur <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1318	1407	
==>ake' utility
before installation. It's available at:

  http://download.microsoft.com/down <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1158	1247	
==>ake' utility
before installation. It's available at:

  http://download.microsoft.com/down <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4010	4118	
==>pile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4227	4335	
==>pile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "comp <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	314	401	
==>e { +shift->admin->auto_include(@_) };
sub auto_include_deps { +shift->admin->auto_inclu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	396	606	
==>y ($self, $value) = @_;
                $self->set_value('$:value' => $value);                        
            },
            'scalar_const' => sub {
                0;
            },
        }        
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1934	2049	
==>d, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1934	2049	
==>d, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	344	485	
==>brule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	344	485	
==>brule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4203	4311	
==>return $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub no_index {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3198	3304	
==>eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3198	3304	
==>eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3198	3304	
==>eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($e <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4456	4553	
==>ETHODS

The following methods are available for Date objects:

- `year()`

Returns the year for th <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4456	4553	
==>ETHODS

The following methods are available for Date objects:

- `year()`

Returns the year for th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16173	16357	
==>eturn
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16173	16357	
==>eturn
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16173	16357	
==>eturn
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32009	32155	
==>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32009	32155	
==>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32009	32155	
==>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	528	634	
==>efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	528	634	
==>efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	528	634	
==>efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1110	1213	
==>>{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1110	1213	
==>>{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1110	1213	
==>>{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1045	1197	
==>de.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1045	1197	
==>de.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3830	3957	
==>{
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6346	6454	
==>L2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6346	6454	
==>L2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6346	6454	
==>L2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" } })  .
    "\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1597	1723	
==>natives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns an arrayref <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14753	14859	
==>aque
    ((= %attrs (hash new))
     (= &dispatcher ($class: send (dispatcher :descendent)))
     (= $c (WA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1785	1936	
==>0], $state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12724	12849	
==>> -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12724	12849	
==>> -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $s <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	147	241	
==>:Makefile::Version;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30280	30422	
==>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30280	30422	
==>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30280	30422	
==>elems;
        @{$array->{items}} = ();
        return ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2676	2795	
==>ke_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2676	2795	
==>ke_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2676	2795	
==>ke_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) {
		my $v = $v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1947	2069	
==>ted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2382	2504	
==>ted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2819	2941	
==>ted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extracted, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	755	848	
==>ub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	755	848	
==>ub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	755	848	
==>ub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5808	6053	
==>ail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6272	6517	
==>ail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7897	7996	
==>*    fprintf(stderr,"calling out...\n");*/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9916	10159	
==>new('$label' => 'symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_att <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9728	9842	
==>set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2, <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9728	9842	
==>set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2, <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	726	827	
==>_name;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME for this distribution.
Pl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11285	11383	
==>nce.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the given r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11285	11383	
==>nce.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the given r <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	401	499	
==>se this module as a starting point to base
a new module distribution on.

= AUTHORS

Brian Ingerson <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	593	720	
==>label = \"" . $node->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ($node) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	488	587	
==>s;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) returns I <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	488	587	
==>s;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) returns I <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3	101	
==>X/Common/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3	101	
==>X/Common/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14096	14231	
==>{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14096	14231	
==>{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14096	14231	
==>{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11461	11553	
==>k (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11519	11611	
==>k (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	141	248	
==>q(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	141	248	
==>q(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	141	248	
==>q(), grep() - now implemented in p6 Prelude
# * map() uses Code->arity
# * lists have an internal buffer for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1908	2036	
==>rent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1908	2036	
==>rent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1908	2036	
==>rent_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9794	9998	
==>rns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9794	9998	
==>rns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9794	9998	
==>rns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3854	3977	
==>ps}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3854	3977	
==>ps}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3854	3977	
==>ps}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	0	112	
==>package PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	0	112	
==>package PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	0	112	
==>package PIL::PApp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2928	3039	
==>,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2928	3039	
==>,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2928	3039	
==>,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copied in "Ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2069	2192	
==>ns a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2069	2192	
==>ns a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2069	2192	
==>ns a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a h <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3504	3703	
==>te($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$} <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3504	3703	
==>te($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$} <==
3	/Users/nnunley/pugs/util/package-osx.pl	3170	3258	
==>ary/Perl6
        /Library/Perl/5.8.6/darwin-thread-multi-2level/auto/Perl6/Pugs/.packlis <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8580	8712	
==>= "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if !(substr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2415	2514	
==>ng = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2415	2514	
==>ng = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2415	2514	
==>ng = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25380	25475	
==>ollowing the terms of the GPL for Rosetta and the licenses
of the other components concerned, pr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25380	25475	
==>ollowing the terms of the GPL for Rosetta and the licenses
of the other components concerned, pr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11617	11708	
==>comment --> "#", rest_of_line(_).
rest_of_line([10])  --> [10], !.
rest_of_line([C|T]) --> [ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7677	7780	
==>t_ghc_pkg($ghc));
}

sub has_ghc_package {
    my ($self, $package) = @_;
    my $ghc_pkg = $self->asser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1531	1624	
==>es it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 200 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1531	1624	
==>es it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 200 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3084	3184	
==>elf: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empt <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3084	3184	
==>elf: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40569	40666	
==>Errors

There are three methods you can use when a problem arises.  They use
Carp::carp() or Carp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6295	6437	
==>self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6295	6437	
==>self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6295	6437	
==>self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2761	2878	
==>> 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # smal <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2761	2878	
==>> 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # smal <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39760	39862	
==>s an object:
      $S->warn(RPe_BADESC, "y", " in character class");
      return $S->force_object(exac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	486	600	
==>ift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	486	600	
==>ift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	486	600	
==>ift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($sou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14174	14262	
==>:Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14174	14262	
==>:Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14174	14262	
==>:Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native->new( h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2624	2740	
==>(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2624	2740	
==>(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2624	2740	
==>(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	184	282	
==>p unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direct <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	184	282	
==>p unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direct <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1867	1955	
==>ew(int($left->to_native / $right->to_num->to_native()));
}

sub increment { num->new((shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	351	582	
==>ception.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	351	582	
==>ception.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	351	582	
==>ception.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PI <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1575	1709	
==>l
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Root . '/_builddir';             # buildir on cli <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1185	1289	
==>Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_per <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1243	1347	
==>Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5313	5431	
==>::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2855	2973	
==>::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3704	3822	
==>::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1369	1499	
==>UILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1369	1499	
==>UILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1369	1499	
==>UILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8319	8424	
==>).']';
    } elsif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33967	34061	
==>order, if preferred ones aren't supported by a program or its libraries.
When translating a mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33967	34061	
==>order, if preferred ones aren't supported by a program or its libraries.
When translating a mes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8458	8560	
==>`new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a ` <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8458	8560	
==>`new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a ` <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23670	23783	
==>tring. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1742	1837	
==>le($path, "bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File::Spec->catfile($path, " <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28889	28984	
==>tring. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4680	4784	
==>Glob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4680	4784	
==>Glob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4680	4784	
==>Glob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3436	3540	
==>ame.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3436	3540	
==>ame.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3436	3540	
==>ame.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self->{pI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32824	32920	
==>.  However, having them returned while I<walking> the tree is
helpful.

The walk() method is used <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7077	7181	
==>ority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7077	7181	
==>ority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7077	7181	
==>ority') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10158	10293	
==>istify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10158	10293	
==>istify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10158	10293	
==>istify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23675	23776	
==>e or
False, but once it has a value of False, it can not be further changed;
this class defaults it to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28227	28328	
==>e or
False, but once it has a value of False, it can not be further changed;
this class defaults it to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27040	27141	
==>e or
False, but once it has a value of False, it can not be further changed;
this class defaults it to <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20443	20610	
==>(
									fun => ide("sub"),
									param => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4204	4340	
==>>new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4058	4190	
==>>new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30725	30880	
==>}
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator (opaque $self: list @values) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14575	14668	
==>string, $unsafe_chars )

This routine works just like encode_entities, except that the replace <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14575	14668	
==>string, $unsafe_chars )

This routine works just like encode_entities, except that the replace <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1538	1705	
==>$span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - us <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1538	1705	
==>$span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - us <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	530	629	
==>IL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	530	629	
==>IL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1119	1230	
==>cope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1119	1230	
==>cope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1119	1230	
==>cope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	633	772	
==>( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard in that it returns a hashref instead o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23301	23401	
==>hed onto the stack.  When a scope is left, the
top value is popped and discarded.

It is important to <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6911	7010	
==>SPERL5 (Perl 6 on JavaScript with Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScrip <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3897	4068	
==>);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Va <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3897	4068	
==>);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3268	3386	
==>of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation::Example, whe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2464	2565	
==>turn $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $sel <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2464	2565	
==>turn $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $sel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24546	24640	
==>ttribute value.

Every Relation::Example attribute has a name that is distinct from the other
a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18975	19072	
==>rrer, this method removes the fragment from the
given URI if it is present, as mandated by RFC2616 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18975	19072	
==>rrer, this method removes the fragment from the
given URI if it is present, as mandated by RFC2616 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	102	209	
==>f == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	102	209	
==>f == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	102	209	
==>f == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19606	19721	
==>g = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUC <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11075	11181	
==>5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the tim <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11075	11181	
==>5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the tim <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10216	10320	
==>gexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1119	1217	
==>umber(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1119	1217	
==>umber(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1119	1217	
==>umber(b)",
  "infix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1514	1614	
==>params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1514	1614	
==>params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1514	1614	
==>params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descendant');
    whi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8711	8862	
==>,$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12617	12762	
==>,$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12617	12762	
==>,$match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6461	6574	
==>f;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6461	6574	
==>f;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# me <==
3	/Users/nnunley/pugs/util/version_h.pl	2091	2190	
==>> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REV <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	233	342	
==>IL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        s <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	233	342	
==>IL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        s <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	811	918	
==>T;
}

# XXX: with yaml precompilation, this may be bogus.
sub touch {
    # XXX: *ugly* hack! ghc doesn't sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4942	5052	
==>{
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4942	5052	
==>{
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4942	5052	
==>{
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11747	11915	
==>ing .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8029	8197	
==>ing .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8863	9031	
==>ing .
                #"    print 'eval: ', \$a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2926	3044	
==>: $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2926	3044	
==>: $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2926	3044	
==>: $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12543	12653	
==>tify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12543	12653	
==>tify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12543	12653	
==>tify( $key );
    $this->{hashref}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	866	991	
==>cedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dumper;

    # print "P6 loaded from '$filename'\n";
    ope <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	289	400	
==>turns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	289	400	
==>turns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1540	1682	
==>verride => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_error <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15562	15680	
==>ueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15562	15680	
==>ueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $chan <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1883	1983	
==>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3253	3346	
==>r::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3253	3346	
==>r::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does( <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4935	5090	
==>"pNode"> );
    }
    elsif $tree[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7728	7834	
==>($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7728	7834	
==>($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7728	7834	
==>($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2013	2128	
==>d";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15233	15333	
==>to original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15233	15333	
==>to original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4603	4704	
==>ameter is for the skip and TODO tests and should contain
a string describing why the test is a skip or <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4603	4704	
==>ameter is for the skip and TODO tests and should contain
a string describing why the test is a skip or <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6800	6901	
==>ameter is for the skip and TODO tests and should contain
a string describing why the test is a skip or <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9045	9140	
==>code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This docume <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	786	881	
==>variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$variable};
}

CookiesInit() <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9045	9140	
==>code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This docume <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	936	1032	
==>mpiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	936	1032	
==>mpiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3495	3597	
==>ats;
  my @smokes = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ $cats{$category->($_)} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8842	8937	
==>ntire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

Th <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8842	8937	
==>ntire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

Th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2234	2369	
==>r diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3595	3722	
==>r diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	23	128	
==>rnings;
use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	413	548	
==>TCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	413	548	
==>TCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	413	548	
==>TCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1199	1346	
==>mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1199	1346	
==>mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18913	19024	
==>output counter mismatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        print "Confused test output: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24028	24176	
==>f ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24028	24176	
==>f ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24028	24176	
==>f ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->new( '$.unboxed' => ($tm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2133	2253	
==>->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracte <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1827	1945	
==>{
  my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDER <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2050	2164	
==>->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	21	132	
==>ict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	21	132	
==>ict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	21	132	
==>ict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2143	2316	
==>y($repo_set, $inst_set);
    my $tmpl = {
        repository_set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JI <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	363	459	
==>atetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_duratio <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	363	459	
==>atetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_duratio <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	248	347	
==>lly.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C< <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	248	347	
==>lly.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7190	7306	
==>= $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7190	7306	
==>= $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7190	7306	
==>= $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old = p6_ne <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2935	3050	
==>f @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2935	3050	
==>f @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	298	392	
==>ent*
# getting the *subscriptions* for it, and converting them to *notifications* when they mat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18106	18211	
==>een_header}++;

    warn "1..M can only appear at the beginning or end of tests\n"
      if $totals->{seen <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4348	4438	
==>row()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterd <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4348	4438	
==>row()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterd <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6648	6816	
==>group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6841	7009	
==>group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21711	21819	
==>ddressed only by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26263	26371	
==>ddressed only by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24923	25031	
==>ddressed only by their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9802	9977	
==>tutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6143	6318	
==>tutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6992	7167	
==>tutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	997	1101	
==>s(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	997	1101	
==>s(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	997	1101	
==>s(pwd(qw< libjs >), pwd(qw< .. .. js lib >)) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	975	1096	
==>eref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	975	1096	
==>eref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	975	1096	
==>eref = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4038	4139	
==>estBuilder::Test::Skip' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17888	17983	
==>s in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17888	17983	
==>s in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24461	24577	
==>$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24461	24577	
==>$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new(' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24461	24577	
==>$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new(' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7912	8048	
==>ntent Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say " <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7912	8048	
==>ntent Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say " <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	466	583	
==>...
  $maketoken := { [ $^tok_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set to un <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7697	7832	
==>by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	998	1133	
==>by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7172	7264	
==>ule->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7172	7264	
==>ule->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7172	7264	
==>ule->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8298	8425	
==>rerm = $self->control_dir( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4295	4406	
==>rn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4295	4406	
==>rn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	480	579	
==>LER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	480	579	
==>LER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	480	579	
==>LER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outside a subroutine!")
      u <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1455	1552	
==>_reduce($node);
	
	if (defined $symbol) {
		return $self->define($node, $symbol, $result);
	} else <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	744	839	
==>y "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information abou <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	744	839	
==>y "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information abou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15637	15741	
==>{ $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15637	15741	
==>{ $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15637	15741	
==>{ $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readli <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9035	9144	
==>quires. This is necessary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2783	2888	
==>the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchun <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2783	2888	
==>the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1921	2031	
==>= 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1921	2031	
==>= 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1921	2031	
==>= 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3872	3976	
==>y $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3872	3976	
==>y $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9899	10058	
==>:Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	467	620	
==>:Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	467	620	
==>:Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason, <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2311	2442	
==>put tree.
my $start_dir = cwd;

# ref to hash of information about links that we mean to insert.
# Top level index is file, second l <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	24	145	
==>use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9 <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	24	145	
==>use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1988	2133	
==>tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1988	2133	
==>tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1988	2133	
==>tmp = $self->shift;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6580	6679	
==>ns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this vers <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6580	6679	
==>ns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this vers <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	29	136	
==>e::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	29	136	
==>e::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10650	10749	
==>$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both 'prog <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3631	3789	
==>s    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4095	4253	
==>s    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13723	13867	
==>trd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ensure => sub { -r $initrd_gz and -M $initrd_gz <= -M $initrd_img },
    us <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17492	17608	
==>ike
#
# Combination of run_perl() and like().
#

sub fresh_perl_like {
    my($prog, $expected, $runperl_args, $name) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	383	473	
==>\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	383	473	
==>\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_vari <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2221	2359	
==>h @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2768	2906	
==>h @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3315	3453	
==>h @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags <==
3	/Users/nnunley/pugs/util/package-osx.pl	8954	9068	
==>iles{$orig}\n";
    }
}

sub make_symlinks {
    my ($dest, %symlinks) = @_;
    make_dir("${dest}/usr/bin") unless <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14120	14216	
==>://perl.plover.com/Rx/paper/

  Some files of interest in the perl sources:
    ./regexp.h ./regc <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6212	6314	
==>te = qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17388	17486	
==>e US.

=item $h.title

The title of the document.  In libwww-perl this header will be
initialized a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17388	17486	
==>e US.

=item $h.title

The title of the document.  In libwww-perl this header will be
initialized a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2835	2944	
==>ode,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2835	2944	
==>ode,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10538	10651	
==>o be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10538	10651	
==>o be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10538	10651	
==>o be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4227	4358	
==>_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4227	4358	
==>_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4227	4358	
==>_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20999	21090	
==>ned API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20999	21090	
==>ned API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2199	2303	
==>ild);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.pu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2199	2303	
==>ild);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.pu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	128	251	
==>se Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	128	251	
==>se Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17928	18075	
==>method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17928	18075	
==>method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17928	18075	
==>method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($r <==
3	/Users/nnunley/pugs/util/package-osx.pl	10129	10252	
==>The last one passed in is the
# remover that will be installed on the target machine (hence the $file[-1]).
sub create_remov <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10454	10547	
==>phering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10454	10547	
==>phering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9169	9292	
==>GE::Exp::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr target, <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	860	963	
==>$return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	860	963	
==>$return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1964	2065	
==>Source is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1964	2065	
==>Source is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1964	2065	
==>Source is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8631	8740	
==>rom_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8631	8740	
==>rom_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8631	8740	
==>rom_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37886	38004	
==>ching every tuple of each source relation
with every tuple of each other source relation, then where each member of a
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42435	42553	
==>ching every tuple of each source relation
with every tuple of each other source relation, then where each member of a
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42085	42203	
==>ching every tuple of each source relation
with every tuple of each other source relation, then where each member of a
t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18797	19025	
==>]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18797	19025	
==>]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18797	19025	
==>]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3286	3437	
==>ate) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3286	3437	
==>ate) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	169	284	
==>les",
    search_path => [__PACKAGE__],
    require => 1,
);

sub symbols {
    my $class = shift;
    map { $_->sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7725	7838	
==>dname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvoca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7725	7838	
==>dname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvoca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7725	7838	
==>dname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvoca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2948	3067	
==>($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2948	3067	
==>($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2948	3067	
==>($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	17	125	
==>ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	17	125	
==>ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	17	125	
==>ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStm <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14329	14438	
==>bol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1809	1918	
==>bol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $se <==
3	/Users/nnunley/pugs/util/func_refact.pl	607	713	
==>f{nodes}) or
        die "can't load nodes data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignoring <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4823	4965	
==>big.\n";
        }
        else {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true if it was <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3021	3134	
==>$prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ while <$i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1268	1360	
==>UANT => --$ENUM, 'Quantifier follows nothing';
use constant RPe_BRACES => --$ENUM, 'Missing b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7591	7699	
==>}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7591	7699	
==>}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7591	7699	
==>}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13951	14065	
==>IE {
    print STDERR "# @_\n";
    exit 1;
}

# A somewhat safer version of the sometimes wrong $^X.
my $Perl;
sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20412	20508	
==>or testing, development, and study; you should not use it in production.

For production use, the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20412	20508	
==>or testing, development, and study; you should not use it in production.

For production use, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	884	1000	
==>(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	884	1000	
==>(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	884	1000	
==>(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26511	26606	
==>erlcc> before running it.

B<NOTE> This currently only works when sitting in the perl source
dir <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19077	19171	
==>acy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19077	19171	
==>acy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulat <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	852	948	
==>information about the server your CGI is running on. It also 
attempts to provide some useful def <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	852	948	
==>information about the server your CGI is running on. It also 
attempts to provide some useful def <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	813	926	
==>re
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	813	926	
==>re
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2872	2976	
==>lare {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig} ||= do {
		my $struct = $node- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12354	12455	
==>_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12354	12455	
==>_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	32	113	
==>file/Name.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Name.p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	373	480	
==>_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	373	480	
==>_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6319	6426	
==>($subpath) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5999	6125	
==>my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5999	6125	
==>my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5999	6125	
==>my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	855	962	
==>DIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload();
} else {
  process_lis <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10370	10462	
==>$class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>) <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10370	10462	
==>$class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6494	6686	
==>irs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6494	6686	
==>irs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6494	6686	
==>irs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3076	3191	
==>ocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3076	3191	
==>ocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3076	3191	
==>ocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36991	37088	
==>, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of sour <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41540	41637	
==>, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of sour <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41163	41260	
==>, for these their joining
degenerates to a C<intersection>.  In any situation where a pair of sour <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9668	9795	
==>[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9648	9775	
==>[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XX <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9726	9831	
==>r()
an argument:

  my $iter = $parser->walker(0);  # top-level
  my $iter = $parser->walker(1);  # top- a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4543	4677	
==>sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4543	4677	
==>sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4543	4677	
==>sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringify}( @_ ) . ')' }
s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	327	444	
==>IB::Source object from '$dir'";
        
    my $pkg = $src->build 
        or die "Could not build source package fro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29269	29367	
==>p::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRIN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29269	29367	
==>p::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRIN <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1236	1424	
==>.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=he <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1236	1424	
==>.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=he <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24663	24805	
==>printf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)";
        }
        push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1672	1781	
==>"infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1672	1781	
==>"infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1672	1781	
==>"infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "i <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	158	256	
==>de  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$w <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	158	256	
==>de  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$w <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3097	3195	
==>element_expr>? }
rule interpolated_hash     { \% <name> <element_expr>? }
# XXX - kludge
rule eleme <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13165	13287	
==>( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13165	13287	
==>( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8197	8351	
==>ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8197	8351	
==>ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8197	8351	
==>ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5591	5714	
==>" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{name}', \$_[1], \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1118	1226	
==>'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ------ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1118	1226	
==>'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7560	7655	
==>in_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7560	7655	
==>in_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7560	7655	
==>in_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcirc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22378	22494	
==>to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22378	22494	
==>to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22378	22494	
==>to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO:: <==
3	/Users/nnunley/pugs/util/package-osx.pl	8895	9004	
==>$dest$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	893	987	
==>reenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more de <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	893	987	
==>reenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more de <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27618	27715	
==>e methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27618	27715	
==>e methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1240	1363	
==>(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1240	1363	
==>(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2010	2123	
==>poch;
}

method nanosecond returns Int {
    my $sec = $.second;
    my $round_sec = int($sec);
    my $rem = $sec <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11171	11284	
==>ueue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11171	11284	
==>ueue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19317	19418	
==>ROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19317	19418	
==>ROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14351	14449	
==>nction.
C<keys> only returns the key; C<values> the value; C<kv> returns both as
a 2 element list i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25685	25788	
==>| <CharacterClassEscape>
}
rule CharacterEscape {  # see 15.10.1
      <ControlEscape>
    | <'c'> <Cont <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4218	4320	
==>nterpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $te <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4218	4320	
==>nterpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6126	6245	
==>/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6126	6245	
==>/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6126	6245	
==>/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1723	1866	
==>and')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_com <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1616	1714	
==>and')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7419	7507	
==>ub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7419	7507	
==>ub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7419	7507	
==>ub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	136	228	
==>ib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	136	228	
==>ib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	136	228	
==>ib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6287	6405	
==>ure( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6287	6405	
==>ure( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1865	1969	
==>ignature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# XXX Prim.hs has a diff <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1264	1367	
==>, "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1264	1367	
==>, "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1264	1367	
==>, "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2938	3051	
==>nt $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3078	3191	
==>nt $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $r <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	260	386	
==>ed_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	260	386	
==>ed_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14264	14363	
==>ode" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14264	14363	
==>ode" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	624	741	
==>dists

=item index_file

Path to the main index file. default: $root/dists/index

=back

=cut

{
    my $config = JIB: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9882	9995	
==>ex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9882	9995	
==>ex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8454	8694	
==>) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8454	8694	
==>) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8454	8694	
==>) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2856	2983	
==><,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2856	2983	
==><,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2856	2983	
==><,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	200	319	
==>2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	200	319	
==>2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	200	319	
==>2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1236	1352	
==>list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numifica <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1236	1352	
==>list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numifica <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1236	1352	
==>list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numifica <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1308	1417	
==>PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1308	1417	
==>PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1308	1417	
==>PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9927	10035	
==>: $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9927	10035	
==>: $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9927	10035	
==>: $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3122	3242	
==>lems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3122	3242	
==>lems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3122	3242	
==>lems} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4416	4522	
==>alse.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4416	4522	
==>alse.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6613	6719	
==>alse.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on the C<$descripti <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3703	3807	
==>ope.t test file.

=item Memory

One sees both segfaults and memory exhaustion when running against
some o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10038	10138	
==>_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10038	10138	
==>_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2754	2874	
==>my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2754	2874	
==>my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2754	2874	
==>my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	887	990	
==>Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	887	990	
==>Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rose <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16273	16381	
==>onalExpression>
    | <EqualityExpression> <'=='> <RelationalExpression>
    | <EqualityExpression> <'!='> <R <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4317	4409	
==>r `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

S <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4317	4409	
==>r `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

S <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13113	13264	
==>>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9299	9450	
==>>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10135	10286	
==>>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2256	2362	
==>d : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2256	2362	
==>d : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2256	2362	
==>d : undefined;

      // %hash{$key} := $foo should autovivify %hash{$key} if necessary.
      ret.BINDTO = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2390	2482	
==>dditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2390	2482	
==>dditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3067	3183	
==>ckage PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3067	3183	
==>ckage PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3067	3183	
==>ckage PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	840	959	
==>le.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	840	959	
==>le.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	840	959	
==>le.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	113	210	
==>nctional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	113	210	
==>nctional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4215	4330	
==>required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4215	4330	
==>required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4215	4330	
==>required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	530	694	
==>nv closure::signature closure::params
        opaque method attribute C3
        /;
    
    sub new { bless \(my $var) => shift }
    
    sub parse {
        my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5678	5779	
==>tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5678	5779	
==>tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11571	11683	
==>by Perl first.  In fact, if one slipped through:

  my $rx = '\N{LATIN CAPITAL LETTER R}';
  my $qr = qr/$rx/;

P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24509	24614	
==>return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(bran <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20930	21035	
==>return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(bran <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	887	990	
==>:Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Int <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	887	990	
==>:Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11546	11665	
==>v()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11546	11665	
==>v()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11546	11665	
==>v()...
            # It will need $code->clone in order to work...
            warn "List::map->clone() not implemented" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3287	3399	
==>amed_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3287	3399	
==>amed_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3643	3755	
==>amed_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $l <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8260	8372	
==>itrd_gz and
      -M $initrd_gz <= -M $pugs and
      -M $initrd_gz <= -M "$parrot_path/parrot" and
      -M $ini <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20972	21062	
==>es are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20972	21062	
==>es are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<ni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6277	6374	
==>bort() sets a 'rule_finished' flag in the returned match, 

that makes it return until the start o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6072	6168	
==>bort() sets a 'rule_finished' flag in the returned match, 
that makes it return until the start o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7346	7448	
==>ur @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7346	7448	
==>ur @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7346	7448	
==>ur @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1509	1613	
==>ode $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod B <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1509	1613	
==>ode $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod B <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2427	2521	
==>of bytes and throwing the return value away.
Encryptions after this point will be using stronge <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2427	2521	
==>of bytes and throwing the return value away.
Encryptions after this point will be using stronge <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3579	3673	
==>-path=$parrot_path
    mklivecd.pl takes --parrot-path as the root of an Parrot source director <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1675	1802	
==>@metalist;
    for my $meta ( qx[find $Repodir -type f | grep '$Metaext\$'] ) {
        chomp $meta;
        
        print "Ind <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2276	2395	
==>files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2193	2305	
==>files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Pe <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	257	384	
==>.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $expr) {
        i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5220	5321	
==>g instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher objec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5220	5321	
==>g instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher objec <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19414	19517	
==>ide("y"),
);

# this is a higher order function that takes a function and applies it to a string
# thiss <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	849	944	
==>vel, not the character level, so different 
character encodings may be enciphered in different w <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	849	944	
==>vel, not the character level, so different 
character encodings may be enciphered in different w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11588	11694	
==>is wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::status <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2024	2128	
==>is wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2024	2128	
==>is wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16298	16405	
==>e::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16298	16405	
==>e::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16298	16405	
==>e::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3036	3147	
==>mAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3036	3147	
==>mAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3036	3147	
==>mAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6526	6660	
==>ion on
                # the module content; not the DATA section. Because we
                # want to make sure that the program runs <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6526	6660	
==>ion on
                # the module content; not the DATA section. Because we
                # want to make sure that the program runs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1062	1189	
==>]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	792	893	
==>}
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	792	893	
==>}
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	872	973	
==>}
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_out;
m <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3602	3701	
==><count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or r <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3602	3701	
==><count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8088	8235	
==>$Class: $plan?, $output? )
  {
      return $:singleton //= $Class.SUPER::new(
          testplan => $plan, output => $output
      );
  }
  
  meth <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1558	1678	
==>gorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minut <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1827	1947	
==>gorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1348	1476	
==>tc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1348	1476	
==>tc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1348	1476	
==>tc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	904	1033	
==>pported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	904	1033	
==>pported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	904	1033	
==>pported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3247	3390	
==>t_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3247	3390	
==>t_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	925	1038	
==>ght> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    infix_list =>      '<tight> [ <op> <t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8366	8491	
==>t unify $x->{name} with $y->{name} in " . Dumper(@_);
};

# binary operators must have the same symbol, and are also unified r <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1405	1510	
==>d();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1326	1426	
==>d();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8786	9009	
==>ss ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5146	5369	
==>ss ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5995	6218	
==>ss ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	302	433	
==>e

    \(...)
    ^T

=head1 See also

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

*iden <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12667	12801	
==>keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12667	12801	
==>keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    ea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12667	12801	
==>keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    ea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33035	33145	
==>inmod' nodes:

  # star, plus, curly, minmod
  sub walk {
    my ($self, $walk_stack, $depth) = @_;
    unshift <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1728	1815	
==>rl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1728	1815	
==>rl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3350	3470	
==>an{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3350	3470	
==>an{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3350	3470	
==>an{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  pri <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2993	3104	
==>=> sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(par <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2993	3104	
==>=> sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(par <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15279	15377	
==>should be Grf. -law]

Attempting to use a string at a level higher it can support is handled
withou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	226	365	
==>eek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . jo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	112	244	
==>eek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . jo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	112	244	
==>eek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . jo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17052	17185	
==>:constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17331	17464	
==>:constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1155	1251	
==>s {
  if(not $CGI->param("version") or $CGI->param("version") != VERSION) {
    print "Versions d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	368	475	
==>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	368	475	
==>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	368	475	
==>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { Fi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	113	209	
==>WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMa <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	113	209	
==>WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	807	941	
==>!
$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3885	3990	
==>perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3885	3990	
==>perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1816	1910	
==>itive dispatch.

Lit is divided to various intrinsic object types, including

intrinsic Code (w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1745	1837	
==>itive dispatch.
Lit is divided to various intrinsic object types, including
intrinsic Code (w <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17395	17493	
==>an.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current() <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17395	17493	
==>an.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4283	4391	
==>d not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4283	4391	
==>d not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4283	4391	
==>d not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds al <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2509	2607	
==>ITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 Fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2509	2607	
==>ITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4049	4163	
==>lue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4049	4163	
==>lue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4049	4163	
==>lue { $_[0]->{pType}    }
  sub params :lvalue { $_[0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2333	2428	
==>mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2333	2428	
==>mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2333	2428	
==>mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3097	3213	
==>e::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $R <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3643	3759	
==>e::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5583	5730	
==>o, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5583	5730	
==>o, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5583	5730	
==>o, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1259	1375	
==>@_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1259	1375	
==>@_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1259	1375	
==>@_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value::numify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3265	3393	
==>t;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3265	3393	
==>t;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3265	3393	
==>t;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16492	16607	
==>es { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16492	16607	
==>es { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16492	16607	
==>es { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4309	4401	
==>ign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4309	4401	
==>ign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4309	4401	
==>ign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8758	8940	
==>$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool => 1, match => '', <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12663	12825	
==>$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12663	12825	
==>$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool => 1, match => '', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31513	31723	
==>gth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31513	31723	
==>gth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31513	31723	
==>gth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $re <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	375	518	
==>d' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Fail <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	375	518	
==>d' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Fail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1316	1437	
==><before <Pugs::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unle <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6324	6440	
==>nue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6324	6440	
==>nue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($mat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2454	2583	
==>e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Deb <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2454	2583	
==>e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Deb <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9629	9737	
==>$last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.members },
    channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9629	9737	
==>$last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.members },
    channe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2374	2532	
==>print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2685	2838	
==>print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2685	2838	
==>print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3310	3414	
==>ormalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hos <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3310	3414	
==>ormalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hos <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	296	408	
==>$self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	296	408	
==>$self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	296	408	
==>$self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7411	7559	
==>k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7411	7559	
==>k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7411	7559	
==>k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1800	1912	
==>self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub in <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	911	1021	
==>self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub in <==
3	/Users/nnunley/pugs/util/addauthors.pl	290	390	
==>b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $authors = readauthors();
#print Dumpe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4908	5007	
==>OnPerl5::X1::Api;

sub emit {
    my($pil_tree)=@_;
    return (undef,"emit: pil_tree was undefined" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	245	343	
==>GS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	245	343	
==>GS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>( <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2617	2708	
==>n = Class::Events::Subscription::Named.new(:name($name), :subscriber($subscriber), :publishe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4183	4267	
==>ta::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4183	4267	
==>ta::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	343	466	
==>m> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	343	466	
==>m> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	343	466	
==>m> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10450	10608	
==>nd
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10450	10608	
==>nd
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10450	10608	
==>nd
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	967	1070	
==>if $_[0] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	20	116	
==>Log

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	20	116	
==>Log

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1683	1794	
==>}
	}

	if (ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2290	2394	
==>e, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2290	2394	
==>e, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6323	6478	
==>ch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6323	6478	
==>ch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6323	6478	
==>ch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,nu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	748	882	
==>ever
       p6_meta
       p6_meta_CODE
       p6_initialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_fil <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10160	10259	
==>ect, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Ret <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10160	10259	
==>ect, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6789	6884	
==>ath.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (It <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6789	6884	
==>ath.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (It <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6789	6884	
==>ath.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (It <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5237	5369	
==>or keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5237	5369	
==>or keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5827	5959	
==>or keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3892	3994	
==>d_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3892	3994	
==>d_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4482	4584	
==>d_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report e <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1726	1871	
==>hod append_name ( $arg ) {
            $.name ||= $arg.name;
            push @.names, $arg.name;
        }
        
        method append_value ( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2224	2351	
==>TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7657	7758	
==>> sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/inclu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16343	16471	
==>k if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16343	16471	
==>k if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16343	16471	
==>k if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($label) not found for <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1040	1151	
==>Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not impleme <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1040	1151	
==>Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not impleme <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25386	25489	
==>t if it usually matches.]
 *
 * [In fact, we now use regmust in many cases to locate where the search
 * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2453	2556	
==>->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2453	2556	
==>->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2453	2556	
==>->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3301	3408	
==>stant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3301	3408	
==>stant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3301	3408	
==>stant(function (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2075	2216	
==>| return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2075	2216	
==>| return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitive <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2075	2216	
==>| return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7374	7477	
==>($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7374	7477	
==>($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7374	7477	
==>($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1754	1865	
==>8-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1754	1865	
==>8-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1754	1865	
==>8-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13370	13504	
==>self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13370	13504	
==>self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13370	13504	
==>self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1446	1548	
==>package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1446	1548	
==>package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1446	1548	
==>package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15856	16019	
==>ammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16135	16298	
==>ammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" ) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10133	10235	
==>my($pkg,$name)=@_;
    $package_name = $pkg || '__PACKAGE__';
    $method_name = $name || 'emit';
}
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1780	1903	
==>ody.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1780	1903	
==>ody.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1780	1903	
==>ody.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8018	8118	
==>_object(anyof_class => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9066	9158	
==>et.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equal <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9066	9158	
==>et.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1862	1960	
==>lass.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1862	1960	
==>lass.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1862	1960	
==>lass.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1003	1094	
==>elper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1003	1094	
==>elper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1003	1094	
==>elper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nt <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6081	6209	
==>> chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6081	6209	
==>> chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    " <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	13	120	
==>er? Nee nur Kartoffeln!
for 5..7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $potato;
	}
	L <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	553	649	
==>r Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	553	649	
==>r Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1109	1205	
==>r Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3938	4133	
==>:Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3938	4133	
==>:Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3938	4133	
==>:Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	527	625	
==>!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	527	625	
==>!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37588	37716	
==>A = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      fla <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2146	2260	
==>tatements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2146	2260	
==>tatements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @gramma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3161	3259	
==>ces, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters are bound, no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3161	3259	
==>ces, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters are bound, no <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	677	775	
==>t_name = File::Basename::basename($script_file);
        $prompt = "Do you want to install '$script <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8713	8873	
==>match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12619	12773	
==>match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12619	12773	
==>match->(),"\n";
            return $_[3] = $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26126	26219	
==>ANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26126	26219	
==>ANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3193	3300	
==>bless {%$self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9589	9682	
==>ces of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9589	9682	
==>ces of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3119	3228	
==>n => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3119	3228	
==>n => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1247	1346	
==>ull line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11741	11866	
==>_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11741	11866	
==>_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5096	5227	
==>**
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5096	5227	
==>**
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5096	5227	
==>**
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	274	399	
==>at,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	274	399	
==>at,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1998	2101	
==>.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1998	2101	
==>.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1998	2101	
==>.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9541	9647	
==>n
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9541	9647	
==>n
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3090	3196	
==>$self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bles <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3485	3613	
==>line    => @caller[2],
        subname => @caller[3],
        subtype => @caller[4],
        sub     => @caller[5],
    ) !! unde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1166	1269	
==>of symbols and has

a main body closure. 



the Package part of the Module is simply a hash from string <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1114	1214	
==>of symbols and has
a main body closure. 

the Package part of the Module is simply a hash from string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2773	2952	
==>rl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2773	2952	
==>rl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2773	2952	
==>rl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell->{typ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7404	7500	
==>eturn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.comple <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7404	7500	
==>eturn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1250	1392	
==>s) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1250	1392	
==>s) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1250	1392	
==>s) . " }"
                unless @_;
            my %params = @_;
            return _build_class($name, $version, $authority, sub { $body->(%p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3426	3541	
==>xport {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3426	3541	
==>xport {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4950	5065	
==>xport {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1691	1859	
==>" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1691	1859	
==>" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1691	1859	
==>" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4837	4928	
==>_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@ch <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4837	4928	
==>_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@ch <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	319	472	
==>/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allo <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1249	1346	
==>rn $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($it <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1249	1346	
==>rn $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9670	9778	
==>y($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9670	9778	
==>y($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9670	9778	
==>y($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	369	516	
==>quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	369	516	
==>quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2534	2653	
==>$_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	494	606	
==>{ signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    my $self = { source => $rule_ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1224	1331	
==>e( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1224	1331	
==>e( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	498	670	
==>!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	498	670	
==>!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	498	670	
==>!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22080	22202	
==>ad1 SYNOPSIS

    use Relation::Example;

I<This documentation is pending.>

=head1 DESCRIPTION

Relation::Example provides <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1254	1356	
==>h::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1254	1356	
==>h::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4347	4465	
==>::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4347	4465	
==>::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4347	4465	
==>::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MU <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3145	3259	
==>) = @_;

    unless ( $self->{extensions} ) {
        $self->load_extensions(
            "$self->{prefix}/$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1227	1332	
==>enting a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1227	1332	
==>enting a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8381	8514	
==>p"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8381	8514	
==>p"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1127	1257	
==>ository] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16511	16610	
==>and returned as a separate value if in
an array context.  If there is no such header field, then the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16511	16610	
==>and returned as a separate value if in
an array context.  If there is no such header field, then the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4370	4537	
==>) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4370	4537	
==>) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4370	4537	
==>) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	441	536	
==>eadable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	441	536	
==>eadable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1813	1910	
==>rithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to inte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1813	1910	
==>rithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to inte <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1850	1960	
==>aram>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1850	1960	
==>aram>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7945	8044	
==>uldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18679	18777	
==>0,B0,B0,E0,E0).
rm_repeat_max(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1, <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1732	1827	
==>ns = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=h <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1732	1827	
==>ns = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15681	15775	
==>n prefers to
communicate in those languages.  Or, when viewing an error message, the
applicatio <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15681	15775	
==>n prefers to
communicate in those languages.  Or, when viewing an error message, the
applicatio <==
3	/Users/nnunley/pugs/util/run-smoke.pl	96	188	
==>ndBin;
use lib File::Spec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $fa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16592	16705	
==>) if @_ < 1;
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_p6obj_handlers{$reftyp};
    di <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6303	6435	
==>" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6303	6435	
==>" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	58	158	
==>package attribute;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3215	3337	
==>l_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3215	3337	
==>l_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3215	3337	
==>l_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7251	7355	
==>{ bar => sub { 'rBar::bar' } }
);
ok($rBar->does('Role'), '... rBar now does Role');

# create a class to <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	296	391	
==>ion functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	296	391	
==>ion functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9397	9576	
==>lue" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9397	9576	
==>lue" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9397	9576	
==>lue" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5994	6103	
==>t = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Reque <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5994	6103	
==>t = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Reque <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7812	7907	
==>t2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  my $command_li <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20197	20303	
==>he most widely used. ;)
It get's is own section, elsewhere.


  regnode program[1];     /* Unwarranted chum <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	83	173	
==>ldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	83	173	
==>ldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8075	8208	
==>at;
      long nparens;
      SV* exec_callback_sub;
/*      fprintf(stderr,"api 13\n");*/
      if(ret != 4) {
        fprintf(stderr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3769	3889	
==>same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3781	3901	
==>same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16994	17112	
==>(x) x	-  takes any value and returns it
# x stays free, and thus becomes generic (id is polymorphic)
my $id = fun(
	par <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28713	28807	
==>hat aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33265	33359	
==>hat aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	212	335	
==>sions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	212	335	
==>sions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	212	335	
==>sions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19491	19636	
==>$_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15912	16057	
==>$_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13947	14055	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13947	14055	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13947	14055	
==>? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ($xx) { -d p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1919	2033	
==>rict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1919	2033	
==>rict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1919	2033	
==>rict "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub comm <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5065	5161	
==>::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config fi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5065	5161	
==>::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config fi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10191	10280	
==><RegularExpressionBody> <'/'> <RegularExpressionFlags>
}
rule RegularExpressionBody {  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10142	10267	
==>{
      my $n = '^^';
      return $S->$n;
    }

    return $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20051	20136	
==>2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20051	20136	
==>2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonl <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1447	1594	
==>Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1447	1594	
==>Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2856	3033	
==>er ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2856	3033	
==>er ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2856	3033	
==>er ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2004	2158	
==>ft;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2004	2158	
==>ft;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2004	2158	
==>ft;
        last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3378	3466	
==>ta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3378	3466	
==>ta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3378	3466	
==>ta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	47	164	
==>e warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	45	162	
==>e warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2367	2497	
==>config->build_dir ) )
#                 or error( "Could not remove metadir from '$tmpdir" ), return;
# 
#         ### copy these s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1491	1606	
==>nce, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalen <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11278	11382	
==>$.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11278	11382	
==>$.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17272	17366	
==>es'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17272	17366	
==>es'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17272	17366	
==>es'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:methods'));
$::Class <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15228	15324	
==>ng is returned (without changing the input string).

If you prefer not to import these routines i <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15228	15324	
==>ng is returned (without changing the input string).

If you prefer not to import these routines i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1131	1274	
==>d'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1131	1274	
==>d'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1131	1274	
==>d'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8643	8784	
==>{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8643	8784	
==>{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8643	8784	
==>{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3259	3374	
==>e' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3259	3374	
==>e' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3259	3374	
==>e' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7649	7741	
==>t_equiv->isa("Blondie::Param") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotatio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5	103	
==>ge Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5	103	
==>ge Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use S <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2315	2447	
==>odify this file; it is generated automatically by  --
--                  util/gen_prelude.pl                       --
-------------- <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	612	728	
==>{
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig: <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	612	728	
==>{
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37154	37279	
==>});

    # X!Y = match Y unless match X at the same place
    $self->add_handler('!' => sub {
      my ($S) = @_;
      push @ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	471	565	
==>gify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase meth <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	471	565	
==>gify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase meth <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16042	16135	
==>mith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <in <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16100	16193	
==>mith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10405	10533	
==>if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10405	10533	
==>if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10405	10533	
==>if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2253	2368	
==>{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2253	2368	
==>{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2253	2368	
==>{pArgs}->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)" <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7663	7777	
==>$o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Regexp:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2918	3021	
==>y run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2918	3021	
==>y run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9695	9800	
==>r)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9695	9800	
==>r)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9695	9800	
==>r)'
    }
    return $dispatcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_priva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6191	6318	
==>ew;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6191	6318	
==>ew;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6191	6318	
==>ew;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12017	12134	
==>0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12017	12134	
==>0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12017	12134	
==>0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3841	3978	
==>-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3841	3978	
==>-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3841	3978	
==>-box hook
        # NOTE - default is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15806	15915	
==>param int pos
    .param string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	637	731	
==>le to which to write all normal output (test results and
descriptions).

=item B<$.error_output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	637	731	
==>le to which to write all normal output (test results and
descriptions).

=item B<$.error_output <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1193	1287	
==>le to which to write all normal output (test results and
descriptions).

=item B<$.error_output <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2649	2760	
==>f Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6126	6237	
==>f Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5056	5167	
==>f Mapping(Str) of Any {
    return $!body;
}

method size () returns Int {
    return $!body.size();
}

method e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4113	4222	
==>stant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4113	4222	
==>stant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4113	4222	
==>stant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.B <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1199	1296	
==>=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/q <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1199	1296	
==>=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/q <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	248	369	
==>= split ':', $arg;
    die usage() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoinde <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7945	8043	
==>')>

This event is fired when an '=item' directive is reached, the next event fired will be
any tex <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7945	8043	
==>')>

This event is fired when an '=item' directive is reached, the next event fired will be
any tex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37277	37372	
==>egenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41826	41921	
==>egenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41449	41544	
==>egenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3403	3584	
==>:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3403	3584	
==>:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3403	3584	
==>:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:ce <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28051	28147	
==>bute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32603	32699	
==>bute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	370	528	
==>> { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	370	528	
==>> { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	370	528	
==>> { access => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => { <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2093	2206	
==>the mountains green,
>   No stain yet on the Moon was seen,
>   No words were laid on stream or stone,
>   When Du <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16469	16563	
==>thout a recompile (such as by simply
copying files), often even while the program is executing. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16469	16563	
==>thout a recompile (such as by simply
copying files), often even while the program is executing. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24937	25032	
==>:free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ.  <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25378	25473	
==>:free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ.  <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2043	2216	
==>s{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_de <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2043	2216	
==>s{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_de <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24583	24675	
==>ow->new(
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2099	2236	
==>mber',
        '$.diagnostic',
        '$.description',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %param <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3118	3220	
==>y $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is cop <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3118	3220	
==>y $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is cop <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6883	7012	
==>AMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($valu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6883	7012	
==>AMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($valu <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4213	4336	
==>TURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v[0];

    $v{0} --> %v{0};

    $#v   --> @v.last_index;

    $r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3716	3847	
==>arent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3716	3847	
==>arent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	133	237	
==>Expr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	133	237	
==>Expr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	133	237	
==>Expr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2585	2679	
==>L2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2585	2679	
==>L2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2585	2679	
==>L2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1944	2059	
==>(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1944	2059	
==>(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1944	2059	
==>(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1831	1935	
==>~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# differe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1831	1935	
==>~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# differe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1831	1935	
==>~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how to do
# differe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16067	16178	
==>d(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16067	16178	
==>d(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16067	16178	
==>d(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15646	15810	
==>Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15646	15810	
==>Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4986	5091	
==>_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4986	5091	
==>_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1890	1995	
==>_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3656	3782	
==>r },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3656	3782	
==>r },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3656	3782	
==>r },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10506	10651	
==>nd =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10506	10651	
==>nd =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10506	10651	
==>nd =>           sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2061	2259	
==>) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2061	2259	
==>) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2061	2259	
==>) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	500	612	
==>($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# conversion to native value
sub to_native { ${$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7168	7268	
==>ontainer::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$o <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7168	7268	
==>ontainer::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16481	16583	
==>thod('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16481	16583	
==>thod('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16481	16583	
==>thod('find_attribute_spec' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    # go in BUI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2380	2484	
==>opy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - te <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2380	2484	
==>opy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - te <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2380	2484	
==>opy, is ref, is context(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - te <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17454	17546	
==>this "Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17454	17546	
==>this "Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34438	34547	
==>ub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34438	34547	
==>ub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34438	34547	
==>ub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10949	11057	
==>HES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10949	11057	
==>HES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10949	11057	
==>HES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7030	7211	
==>ay' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7030	7211	
==>ay' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7030	7211	
==>ay' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20284	20390	
==>atcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20284	20390	
==>atcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20284	20390	
==>atcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::P <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	793	940	
==>unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't requi <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	793	940	
==>unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't requi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20376	20515	
==>ped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	653	749	
==>t was abandoned as insufficiently tractable.
# By requiring far more effort than was hoped, it be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5724	5830	
==>ges 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5724	5830	
==>ges 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5724	5830	
==>ges 
nessecary, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3080	3183	
==>and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3080	3183	
==>and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3080	3183	
==>and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34591	34696	
==>gth = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34591	34696	
==>gth = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34591	34696	
==>gth = shift; $length = Perl6::Value::numify( $length ); $length = Inf unless defined $length;
    my @list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	526	639	
==>->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	526	639	
==>->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	526	639	
==>->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12728	12820	
==>in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns positive <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12728	12820	
==>in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns positive <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30465	30557	
==>into the node's children
when using a walker (see L<Regexp::Parser/"Walking the Tree">).

=ba <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3900	4026	
==>chable';
    return $ref->ref();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3635	3730	
==>ality
while Perl 6 was still being developed.

This module is primarily for reading human writte <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3635	3730	
==>ality
while Perl 6 was still being developed.

This module is primarily for reading human writte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8970	9084	
==>t of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offs <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8970	9084	
==>t of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offs <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4812	4906	
==>mpl, \%args) or error(Params::Check->last_error), return;

    for my $index ( $self->index_fil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7438	7559	
==>self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $self.head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7438	7559	
==>self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $self.head <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14678	14806	
==>ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14957	15085	
==>ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	747	859	
==>y, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	747	859	
==>y, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	747	859	
==>y, No other types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13563	13713	
==>->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13563	13713	
==>->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13563	13713	
==>->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            retur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13302	13397	
==>s are in exactly the right input format for
Document.new(), by which you can create an identical <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13302	13397	
==>s are in exactly the right input format for
Document.new(), by which you can create an identical <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7395	7581	
==>name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7395	7581	
==>name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7395	7581	
==>name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3843	3951	
==>nwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3843	3951	
==>nwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3843	3951	
==>nwrap { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1720	1892	
==>->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1720	1892	
==>->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1720	1892	
==>->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	826	948	
==>,
        #"$Bin/../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dumper;

    # pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10184	10344	
==>it( $n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        return  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	163	269	
==>::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	163	269	
==>::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6326	6432	
==>{ printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6326	6432	
==>{ printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6326	6432	
==>{ printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGI <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2137	2274	
==>ect>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2137	2274	
==>ect>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3637	3740	
==>defined $pil_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if $warn;
	    $self->{'pil_code'} = Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4549	4657	
==>>{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4332	4435	
==>>{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2300	2395	
==>",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2300	2395	
==>",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2300	2395	
==>",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12100	12191	
==>s-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Pri <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12100	12191	
==>s-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Pri <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8086	8173	
==>c_pos(L), !.
p5_modifier_spec_pos([m|L])  --> "m", p5_modifier_spec_pos(L), !.
p5_modifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4569	4669	
==>>rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4569	4669	
==>>rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4569	4669	
==>>rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesse <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	180	303	
==>( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    p <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	10	106	
==>::Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	10	106	
==>::Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4438	4552	
==>plement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

metho <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4438	4552	
==>plement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	902	1013	
==>self->{p}        = delete $param->{pos};
    $self->{p}        = delete $param->{p}    unless defined $self->{p} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2181	2286	
==>ring(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2181	2286	
==>ring(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2181	2286	
==>ring(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11858	11960	
==>::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun->new()
	(my $class) = ((ou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18567	18659	
==>hould not share
Rosetta objects between multiple threads, nor have objects in separate
thread <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18567	18659	
==>hould not share
Rosetta objects between multiple threads, nor have objects in separate
thread <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1186	1296	
==>t is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4664	4774	
==>t is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18593	18684	
==>x),
  N1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	255	352	
==>ass for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked aga <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	255	352	
==>ass for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked aga <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	499	596	
==>s, $attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($klass->fetch->isa('o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3909	4070	
==>= *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3909	4070	
==>= *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3909	4070	
==>= *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6697	6829	
==>]
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6697	6829	
==>]
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6697	6829	
==>]
    #   isWritable: !perl/@PIL::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6468	6559	
==>ils';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11526	11617	
==>ils';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->ba <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2583	2674	
==>plice.assuming(:offset(-1) :length(1));
## an alternate implementation:
#multi method Array: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4736	4900	
==>ral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4736	4900	
==>ral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1642	1806	
==>ral',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt' <==
3	/Users/nnunley/pugs/util/drift.pl	162	259	
==>IFT/src/DrIFT.hs" or exit;

# XXX - This is not at all portable.

$ENV{DERIVEPATH} = "$Bin/../src" <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	204	313	
==>can do subscriber:
# - Code
# - Object

# The notification process involves:
# creating an *event*
# getting t <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2036	2135	
==>('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

= <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2036	2135	
==>('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1026	1169	
==>t';
};
);
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17698	17802	
==>F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6881	6976	
==>return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6881	6976	
==>return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6881	6976	
==>return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6380	6486	
==>= -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6380	6486	
==>= -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2376	2503	
==>grammar_name>;\n" .
            "use Pugs::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "use Pu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4530	4698	
==>ks from $unlink_this
                }      

                last LINKING unless $link_this;

                my @bins;
                print "Linking scripts/manpages. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7464	7565	
==>l $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7464	7565	
==>l $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2766	2893	
==>e} }, @_ if $type;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    my $self    = shift;
    my $package = ref( $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2561	2661	
==>>{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2701	2801	
==>>{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variabl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35080	35225	
==>SE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$return <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1612	1736	
==>ent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capita <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1612	1736	
==>ent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capita <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2831	2942	
==>d("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2831	2942	
==>d("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2831	2942	
==>d("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10610	10723	
==>arn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10610	10723	
==>arn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10610	10723	
==>arn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5250	5367	
==>plement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5250	5367	
==>plement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1305	1430	
==>TROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1510	1635	
==>TROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1571	1696	
==>TROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1717	1813	
==>return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1717	1813	
==>return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1953	2049	
==>return B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5284	5375	
==>containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<repo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5284	5375	
==>containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<repo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7481	7572	
==>containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<repo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4162	4296	
==>d;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4162	4296	
==>d;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4162	4296	
==>d;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15729	15827	
==>n of the execution of a regex.  Will
be able to produce HTML output that color-codes the elements o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	80	176	
==>elude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	80	176	
==>elude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6455	6751	
==>o package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6919	7215	
==>o package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1824	1956	
==>urn @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { ret <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1824	1956	
==>urn @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5649	5745	
==>ATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, possib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5649	5745	
==>ATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, possib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5649	5745	
==>ATE

CREATE would take a fully qualified name, and create any missing packages 
nessecary, possib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5813	5923	
==>=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5813	5923	
==>=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5813	5923	
==>=@_;
    my($sigil,$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2263	2464	
==>l';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs';                  # re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1676	1802	
==>arams.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keyw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1676	1802	
==>arams.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keyw <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3008	3113	
==>array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3008	3113	
==>array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3008	3113	
==>array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2517	2653	
==>let>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# D <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2517	2653	
==>let>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# D <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6579	6712	
==>first method
    my $_add_method = method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2112	2212	
==>tr) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2112	2212	
==>tr) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2112	2212	
==>tr) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { ret <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	313	416	
==>e, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => unde <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	313	416	
==>e, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => unde <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14129	14239	
==>ision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It wou <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14129	14239	
==>ision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It wou <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	250	342	
==>');
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("main",'package');
    Perl6::Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	326	428	
==>ub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	326	428	
==>ub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	326	428	
==>ub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1837	1936	
==>$cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1837	1936	
==>$cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1837	1936	
==>$cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "refs";
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2784	2898	
==>class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2784	2898	
==>class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2784	2898	
==>class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3962	4098	
==>};
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3962	4098	
==>};
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8503	8588	
==>"m", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-s|L]) --> "s", p5_modifier_spe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1549	1660	
==>e $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submeth <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1549	1660	
==>e $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submeth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34453	34549	
==>an array ref), and Member Names is set from the named parameter
@member_names (an array ref).

So <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34453	34549	
==>an array ref), and Member Names is set from the named parameter
@member_names (an array ref).

So <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12587	12688	
==>*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12587	12688	
==>*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12587	12688	
==>*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14619	14722	
==>> pos goto numeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto sc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11267	11362	
==>ot in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11267	11362	
==>ot in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9314	9419	
==>', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9314	9419	
==>', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9314	9419	
==>', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7971	8085	
==>y $errnum = $parser->errnum;
    # ...
  }

If you want to see if an error is a particular error, see
L</"ERROR HAN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4627	4734	
==>er, $post_process) = @_;

    # Read original module source code instead of taking from filter,
    # becaus <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4627	4734	
==>er, $post_process) = @_;

    # Read original module source code instead of taking from filter,
    # becaus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2856	2955	
==>ame return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2856	2955	
==>ame return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2856	2955	
==>ame return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9384	9525	
==>bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9384	9525	
==>bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9384	9525	
==>bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13515	13655	
==>oing to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13515	13655	
==>oing to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13515	13655	
==>oing to &_normal_dispatch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2374	2510	
==>s}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2921	3057	
==>s}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3468	3604	
==>s}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3852	3950	
==>r below, it may happen that your perl was compiled without PMC support.

  Can't locate object meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19748	19845	
==>e> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE app <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19748	19845	
==>e> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE app <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7016	7157	
==>e perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7016	7157	
==>e perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7016	7157	
==>e perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14549	14663	
==>lurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14549	14663	
==>lurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14549	14663	
==>lurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1077	1204	
==>DO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1077	1204	
==>DO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4406	4622	
==>nt("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PR <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4406	4622	
==>nt("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PR <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	708	798	
==>e pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	708	798	
==>e pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	708	798	
==>e pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language/19 <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	795	890	
==>Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descri <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	795	890	
==>Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descri <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21714	21804	
==>_member(class_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class_member(class_neg(xd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3286	3399	
==>s to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3286	3399	
==>s to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3286	3399	
==>s to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11034	11142	
==>turn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11034	11142	
==>turn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11034	11142	
==>turn $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14214	14304	
==>('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14214	14304	
==>('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14214	14304	
==>('@:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10970	11081	
==>o the initrd",
    help   => "Note: You might want to strip pugs and parrot to save space.",
    ensure => sub { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1114	1209	
==>E

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VER <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1114	1209	
==>E

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VER <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10228	10338	
==>ib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style error messages instead of MPW style <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3069	3162	
==>{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5271	5364	
==>{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16665	16755	
==>ilt-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements character clas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1290	1391	
==>ine_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnost <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1290	1391	
==>ine_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnost <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1370	1471	
==>ine_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    report_test( 'ok', $diagnost <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23859	23951	
==>and doesn't know about language specific details like
encodings or plurality.

My understandi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23859	23951	
==>and doesn't know about language specific details like
encodings or plurality.

My understandi <==
3	/Users/nnunley/pugs/util/package-osx.pl	9258	9406	
==>t m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_dir\n";
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2236	2359	
==>s
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2376	2499	
==>s
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

su <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1571	1715	
==>defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9108	9201	
==>>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9108	9201	
==>>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2537	2640	
==>me;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2537	2640	
==>me;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2537	2640	
==>me;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(su <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17603	17731	
==>(pTHX_ regexp* prog, char* stringarg, char* strend,
                  char* strbeg, I32 minend, SV* screamer,
                  v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26150	26249	
==>end on the Message Key
it is being used with (others are ignored).  Each variable name can be any
de <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26150	26249	
==>end on the Message Key
it is being used with (others are ignored).  Each variable name can be any
de <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16047	16149	
==>$other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relation. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19524	19626	
==>$other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relation. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2659	2760	
==>V{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2659	2760	
==>V{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2659	2760	
==>V{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd( <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6274	6377	
==>($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6274	6377	
==>($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2684	2780	
==>.  There being no
documentation, one ends up reverse engineering perl source.

We basically use t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	829	961	
==>rmal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	829	961	
==>rmal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	829	961	
==>rmal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16682	16779	
==>ything by itself to the user, but
rather returns its results for calling code to output as it sees <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16682	16779	
==>ything by itself to the user, but
rather returns its results for calling code to output as it sees <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	135	228	
==>ib",
    "$Bin/../Pugs-Compiler-Precedence/lib",
;

use Pugs::Compiler::Perl6;
#use Pugs::Util <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	443	623	
==>ndent = 1;

my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # a <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1190	1320	
==>tion
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless -e $path <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1190	1320	
==>tion
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless -e $path <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18024	18119	
==>1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18335	18430	
==>1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33769	33896	
==>NIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33769	33896	
==>NIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33769	33896	
==>NIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $arra <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15388	15507	
==>down(_tag=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML::Element->new('div', cl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10352	10455	
==>lue_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10352	10455	
==>lue_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6267	6365	
==>classes for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6267	6365	
==>classes for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6267	6365	
==>classes for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:supercl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	88	187	
==>ot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shif <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	88	187	
==>ot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shif <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17566	17663	
==>This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is us <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17566	17663	
==>This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is us <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29493	29583	
==>_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1

pp_ctl.c
pp_regcomp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5758	5861	
==>normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5758	5861	
==>normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4057	4197	
==>$i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4057	4197	
==>$i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4057	4197	
==>$i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13579	13787	
==>{
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13579	13787	
==>{
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13579	13787	
==>{
                        $bound_params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

cla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	274	394	
==>$name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

cl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	274	394	
==>$name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2443	2545	
==>[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'C');
  });

  $self->add_handler('\d' => sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1235	1327	
==>fig->_registered_alternatives );
}

=head2 $file = $inst->available_file

=cut

sub available <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5300	5431	
==>];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SEL <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5300	5431	
==>];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SEL <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	421	521	
==>r->compile($prog);
my $t2 = times;
my $annotated = $r->annotate($c);
my $t3 = times;
my $res  = $r->e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8143	8278	
==>@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f->($c) }LET;
        return $v if not FAILED <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23372	23463	
==>rnately they have a compiled C component or otherwise have
non-trivial external dependencies <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23372	23463	
==>rnately they have a compiled C component or otherwise have
non-trivial external dependencies <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2768	2890	
==>head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2768	2890	
==>head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2848	2970	
==>head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	278	397	
==>o?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	278	397	
==>o?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	278	397	
==>o?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4692	4803	
==>/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it breaks o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	50	143	
==>erl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	50	143	
==>erl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	50	143	
==>erl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29434	29555	
==>$_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29434	29555	
==>$_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29434	29555	
==>$_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1510	1607	
==>:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1510	1607	
==>:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1510	1607	
==>:namespace' => {});
    ::opaque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	921	1032	
==>del-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @inp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	921	1032	
==>del-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @inp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	921	1032	
==>del-base=s"   => \$PIL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @inp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4002	4107	
==>am{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4002	4107	
==>am{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4002	4107	
==>am{type}, $param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14369	14488	
==>s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14369	14488	
==>s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14369	14488	
==>s;
}

sub Perl6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2983	3123	
==>urn concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2983	3123	
==>urn concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1054	1164	
==>st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1054	1164	
==>st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1054	1164	
==>st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1397	1502	
==>Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1397	1502	
==>Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1397	1502	
==>Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5106	5215	
==>y output the input PIL as YAML; don't compile anything.

When compiling (--link option not given), there has t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5106	5215	
==>y output the input PIL as YAML; don't compile anything.

When compiling (--link option not given), there has t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5106	5215	
==>y output the input PIL as YAML; don't compile anything.

When compiling (--link option not given), there has t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2112	2243	
==>l $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2112	2243	
==>l $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2112	2243	
==>l $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->ma <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16141	16244	
==>is,
	);


	type($.in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2587	2690	
==>?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2771	2874	
==>?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule( <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	838	1006	
==>-x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME un <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	838	1006	
==>-x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME un <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1997	2086	
==>rn "$node" if Blondie::TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		return quote <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1517	1631	
==>, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1517	1631	
==>, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1517	1631	
==>, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6285	6433	
==>ersion = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6609	6703	
==>ufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@sib <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6609	6703	
==>ufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@sib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8950	9161	
==>n $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argumen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8950	9161	
==>n $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argumen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8950	9161	
==>n $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argumen <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	184	291	
==>g, and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	184	291	
==>g, and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5939	6035	
==>: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi sub ToNumber(JSX::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16265	16427	
==>urn $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16265	16427	
==>urn $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16265	16427	
==>urn $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shift;
    my $count = 0;
    return $array->ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	904	994	
==>s Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pend <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	904	994	
==>s Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pend <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6183	6293	
==>/;
    $s ~~ s/^([\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(J <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1659	1747	
==>s Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1659	1747	
==>s Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35938	36078	
==>$len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35938	36078	
==>$len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35938	36078	
==>$len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative offset, ne <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10157	10286	
==>d();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $da <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10157	10286	
==>d();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $da <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8040	8132	
==>:variable::instantiated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37165	37293	
==>he aforementioned.

=item C<intersection (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic b <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12193	12293	
==>comp and exec (not implemented).  The C hooks call for the
  sub hooks in the caller package, and thu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2195	2316	
==>nfix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15858	15960	
==>fference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19335	19437	
==>fference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8658	8792	
==>{
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8658	8792	
==>{
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8658	8792	
==>{
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	565	749	
==>e_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	565	749	
==>e_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	565	749	
==>e_instance {
        my ($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5884	5999	
==>ind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5884	5999	
==>ind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5884	5999	
==>ind {
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5322	5421	
==>$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5322	5421	
==>$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5322	5421	
==>$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13493	13599	
==>IS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13493	13599	
==>IS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13493	13599	
==>IS

  use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3445	3544	
==>TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3445	3544	
==>TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3445	3544	
==>TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9199	9316	
==>xt/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # dele <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9199	9316	
==>xt/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # dele <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3718	3883	
==>KAGE_INSTALLED
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installed')}; 
use constan <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3565	3662	
==>the Cipher API, you must first create an object of the appropriate 
class, passing the key, a mode <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3565	3662	
==>the Cipher API, you must first create an object of the appropriate 
class, passing the key, a mode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	432	558	
==>ocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	432	558	
==>ocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	432	558	
==>ocant) {
#        push @invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18276	18386	
==>run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18276	18386	
==>run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18276	18386	
==>run of _normal_dispatch
    # so that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7177	7274	
==>this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7177	7274	
==>this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9673	9871	
==>:TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	255	443	
==>:TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	255	443	
==>:TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	422	543	
==>oop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	422	543	
==>oop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	422	543	
==>oop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20268	20447	
==>ms = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20268	20447	
==>ms = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20268	20447	
==>ms = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37414	37554	
==>rray->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37414	37554	
==>rray->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37414	37554	
==>rray->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1659	1878	
==>rl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        m <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1659	1878	
==>rl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41015	41109	
==>d out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

=back <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15233	15356	
==>s Time::Local
        is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18017	18113	
==>ess for the human
user who controls the requesting user agent.  The address should be
machine-usa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18017	18113	
==>ess for the human
user who controls the requesting user agent.  The address should be
machine-usa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17062	17219	
==>ray->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17062	17219	
==>ray->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17062	17219	
==>ray->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUT <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14819	14915	
==>rs in header field
values will be substituted with this line ending sequence.

=back

=head1 CONV <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14819	14915	
==>rs in header field
values will be substituted with this line ending sequence.

=back

=head1 CONV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1304	1442	
==>ect that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lva <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1304	1442	
==>ect that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lva <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1304	1442	
==>ect that contains the 'type'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lva <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11126	11267	
==>) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch: $sr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	314	426	
==>ce" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	314	426	
==>ce" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - E <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3144	3235	
==>ie::TypeSafe::Annotation->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5320	5408	
==>_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_da <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5320	5408	
==>_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	134	230	
==>sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	134	230	
==>sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	134	230	
==>sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29604	29713	
==>.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29604	29713	
==>.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	412	509	
==>.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2210	2328	
==>",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2210	2328	
==>",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2210	2328	
==>",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S" <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5381	5639	
==>ODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($t <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5381	5639	
==>ODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1935	2102	
==>tch->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1935	2102	
==>tch->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	654	811	
==>(@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty seqences
        my @nonem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	501	639	
==>++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	501	639	
==>++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	501	639	
==>++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12022	12130	
==>) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4665	4773	
==>) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8752	8858	
==>', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6281	6383	
==>', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	495	685	
==>$tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            requi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	144	246	
==>($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
} <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	144	246	
==>($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1017	1147	
==>=> 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1017	1147	
==>=> 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1017	1147	
==>=> 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11925	12053	
==>b clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11925	12053	
==>b clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11925	12053	
==>b clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Contain <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4371	4526	
==>e: package xxx; use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{param}{cp <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	988	1104	
==>_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	955	1071	
==>_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (e <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7530	7632	
==>func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7530	7632	
==>func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11010	11133	
==>[ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11010	11133	
==>[ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11010	11133	
==>[ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28033	28128	
==>s>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of St <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32585	32680	
==>s>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of St <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8162	8302	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8355	8495	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4846	4983	
==>r} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4846	4983	
==>r} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($va <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5436	5573	
==>r} or Carp::confess $self->container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($va <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	115	227	
==>Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAM <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	115	227	
==>Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAM <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1453	1552	
==>{ return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1453	1552	
==>{ return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2961	3089	
==>ned $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2961	3089	
==>ned $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2961	3089	
==>ned $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2400	2522	
==>exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2400	2522	
==>exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2400	2522	
==>exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3581	3690	
==>op_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3581	3690	
==>op_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3581	3690	
==>op_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5658	5778	
==>/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5646	5766	
==>/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3906	4003	
==>S.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3906	4003	
==>S.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3906	4003	
==>S.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17561	17660	
==>rl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17561	17660	
==>rl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17561	17660	
==>rl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$x <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20717	20811	
==>.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20717	20811	
==>.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_fie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16524	16639	
==>a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16524	16639	
==>a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16524	16639	
==>a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	396	520	
==>$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSI <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	521	630	
==>$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSI <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4387	4491	
==>pacePosition = $position;
    push @bsrStack, "bsr_token_match_2";
    goto token_match;
    bsr_token_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5831	5933	
==>f->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5831	5933	
==>f->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5831	5933	
==>f->{slice}->elems()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5324	5433	
==>:Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5324	5433	
==>:Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5324	5433	
==>:Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (d <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11326	11463	
==>astpos
    $S0 = substr target, pos, 2
    if $S0 != "::" goto subrule_name_2
    pos += 2
    goto subrule_name_1
  subrule_name_2:
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16153	16246	
==>set from the named parameter $node_type (a
string); the optional named parameter %attributes ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16153	16246	
==>set from the named parameter $node_type (a
string); the optional named parameter %attributes ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1006	1161	
==>efined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1006	1161	
==>efined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    meth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	129	225	
==>ict;
use warnings;

use Carp 'confess';
use Scalar::Util 'looks_like_number', 'blessed';

use bas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15565	15669	
==>date = time;  # set current date

=item $h.expires

This header gives the date and time after which the e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15565	15669	
==>date = time;  # set current date

=item $h.expires

This header gives the date and time after which the e <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2135	2244	
==>i Num::round_away_from_zero (Num $x) {
	return 0 if $x == 0;

	my Int $t = int($x);
	return $x if $x == $t;
	$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12366	12460	
==>faults to empty if the parameter's
corresponding argument is undefined).  The new Document obje <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12366	12460	
==>faults to empty if the parameter's
corresponding argument is undefined).  The new Document obje <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3006	3111	
==>t $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3006	3111	
==>t $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4530	4635	
==>t $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34449	34566	
==>reates!

A method call for a F<Regexp::MyRx::THING> object will look in its own
package first, then in F<Regexp::MyRx: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24427	24520	
==><lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24427	24520	
==><lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	626	724	
==>(int(abs($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_half_even (Num $x) {
	return in <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8070	8216	
==>ment_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_pr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8070	8216	
==>ment_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	597	753	
==>}
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            att <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16411	16511	
==>other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19888	19988	
==>other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!headin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12335	12432	
==>lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12335	12432	
==>lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6165	6347	
==>e ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6165	6347	
==>e ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	73	185	
==>( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	965	1077	
==>TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	965	1077	
==>TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	965	1077	
==>TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7555	7653	
==>ments the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # ins <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7555	7653	
==>ments the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3650	3752	
==>ecomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3650	3752	
==>ecomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3650	3752	
==>ecomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, " <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4470	4586	
==>_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4470	4586	
==>_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	822	914	
==>bit->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) >= 0  ? bit->new(1) : bi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13285	13410	
==>}
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13279	13404	
==>}
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1200	1325	
==>ength;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   my $tot = 0;
   for my $s (@scr) { $tot <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7572	7675	
==>ray::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signature fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7991	8084	
==>>force_object(anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	139	253	
==>ction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	139	253	
==>ction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	139	253	
==>ction (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undef <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	361	615	
==>{};

###########################################################################
###########################################################################

class Relation::Example::Heading-0.1.0 {
    does Relation::Heading;

    # External packages use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5998	6113	
==>t_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6191	6306	
==>t_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'gra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	135	278	
==>v = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	135	278	
==>v = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	135	278	
==>v = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28341	28482	
==>legedly cant from perl. :(

# XXX - Known bugs
() isnt an unsuccessful capture.
(a\1) isnt handled properly
(a(b)?)* aba  doesnt have $2 as an <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12723	12826	
==>e->new()
	);
	\%new;
}

# inherit the set of generic vars to our body
fun: generic_in($.body) = { generi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3184	3287	
==>dule allows you to test test modules that use Test::Builder.  It
does this by you setting the expected o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3184	3287	
==>dule allows you to test test modules that use Test::Builder.  It
does this by you setting the expected o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3264	3367	
==>dule allows you to test test modules that use Test::Builder.  It
does this by you setting the expected o <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11037	11132	
==>: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=it <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11037	11132	
==>: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=it <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22515	22605	
==>return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22515	22605	
==>return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	467	576	
==>t;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	467	576	
==>t;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	467	576	
==>t;
    return PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2318	2541	
==>->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+leng <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1458	1625	
==>->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+leng <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1458	1625	
==>->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+leng <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2588	2686	
==>y the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2588	2686	
==>y the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	460	592	
==>ss [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	460	592	
==>ss [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	460	592	
==>ss [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::P <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1629	1739	
==>arser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method r <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1629	1739	
==>arser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1617	1729	
==>utomatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1617	1729	
==>utomatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20769	20880	
==>confess "bug >$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;d <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1683	1794	
==>hitespace = 0;
  $noWhitespace = 1 if ((index $options, "nows") >= 0);

  #print "name: $name - eq: $equivalence <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2671	2771	
==>niverse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $unive <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2671	2771	
==>niverse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $unive <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6330	6480	
==>{
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6330	6480	
==>{
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6330	6480	
==>{
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            return mkMatch(false, null,null <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3877	3985	
==>rol:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3877	3985	
==>rol:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_con <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3877	3985	
==>rol:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4266	4370	
==>('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4266	4370	
==>('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4266	4370	
==>('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Class. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9958	10086	
==>n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9958	10086	
==>n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9958	10086	
==>n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4930	5031	
==>ad1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the fin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4930	5031	
==>ad1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the fin <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14674	14771	
==>c ramdisk_size=$initrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen.txt
G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2796	2899	
==>:longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2796	2899	
==>:longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2796	2899	
==>:longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possib <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	807	905	
==>ine('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	807	905	
==>ine('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	807	905	
==>ine('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FET <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36180	36288	
==>with every tuple of the <$other> relation,
then where each member of a tuple pair has attribute names in comm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40729	40837	
==>with every tuple of the <$other> relation,
then where each member of a tuple pair has attribute names in comm <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40343	40451	
==>with every tuple of the <$other> relation,
then where each member of a tuple pair has attribute names in comm <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2637	2752	
==>de : qprintable($node)) .") = $res (type = " . $self->display_type($res->type) . ")";
		$res;
	}
	
	sub new {
		my $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1356	1456	
==>er frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything more th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1356	1456	
==>er frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything more th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3545	3753	
==>f = LoadFile( $Altfile );
                
                ### check if we're the 'prefered' package
                my $link_this   = 1;
                my $unlink_this = '';
                {   my $prefix  = <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	563	674	
==>ift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1225	1336	
==>ift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16169	16276	
==>xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16169	16276	
==>xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16169	16276	
==>xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	18	130	
==>hangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	18	130	
==>hangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	18	130	
==>hangeLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27116	27231	
==>ft;
    join "", $self->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11012	11122	
==>code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11162	11272	
==>code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4507	4649	
==>s
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4507	4649	
==>s
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7073	7175	
==>9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5444	5560	
==>hings getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5444	5560	
==>hings getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5444	5560	
==>hings getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8664	8786	
==>terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8857	8979	
==>terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3537	3652	
==>Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14894	15008	
==>e was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fglock@gmail.comE<gt>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14894	15008	
==>e was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fglock@gmail.comE<gt>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14894	15008	
==>e was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fglock@gmail.comE<gt>

=cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5199	5317	
==>_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5199	5317	
==>_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5789	5907	
==>_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $v <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2667	2777	
==>1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2667	2777	
==>1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4191	4301	
==>1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	769	910	
==>hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	769	910	
==>hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	347	440	
==>nverting them to *notifications* when they match
# asking the notifications to dispatch themse <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	919	1048	
==>LFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nm <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	796	901	
==>LFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	346	449	
==>eally concreate and practical 
# things like Object, Package and Module. It was also created
# by God (w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	346	449	
==>eally concreate and practical 
# things like Object, Package and Module. It was also created
# by God (w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	346	449	
==>eally concreate and practical 
# things like Object, Package and Module. It was also created
# by God (w <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13309	13403	
==>)` named parameter for all these  functions.

The `:depends("string")` parameter to most of the <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13367	13461	
==>)` named parameter for all these  functions.

The `:depends("string")` parameter to most of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4219	4331	
==>2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4219	4331	
==>2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4219	4331	
==>2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34526	34629	
==>ify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34526	34629	
==>ify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34526	34629	
==>ify( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::nu <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	169	298	
==>de :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	169	298	
==>de :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3568	3675	
==>F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1153	1271	
==>oo Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Ran <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1153	1271	
==>oo Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Ran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10461	10616	
==>params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10461	10616	
==>params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10461	10616	
==>params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10082	10200	
==>A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print he <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10082	10200	
==>A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1283	1382	
==>g::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1283	1382	
==>g::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1283	1382	
==>g::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3880	4058	
==>)->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3880	4058	
==>)->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3880	4058	
==>)->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5327	5446	
==>ttributes;
    has %:methods;
}

(class (Class)
    ((attribute new (@:MRO))             (list)
     (attribute new (@:s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5966	6071	
==>{
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5966	6071	
==>{
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7012	7112	
==>> $<literal> } }
RULE
*{'_return'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    return <?p <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1423	1517	
==>oming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1423	1517	
==>oming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12822	12940	
==>}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12822	12940	
==>}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12822	12940	
==>}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1381	1484	
==>UP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1381	1484	
==>UP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1381	1484	
==>UP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1020	1128	
==>'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1020	1128	
==>'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1020	1128	
==>'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'R <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3065	3168	
==>$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$construct <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3065	3168	
==>$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$construct <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15480	15573	
==>ovides
a front-end method for the parser.

=item Regexp::QuantAttr

Removes quantifiers as obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5250	5366	
==>ar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            <Pug <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22329	22428	
==>t Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input.  If <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22329	22428	
==>t Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input.  If <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4076	4173	
==>e -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4076	4173	
==>e -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1498	1587	
==>".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$\+\[0\]/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1789	1903	
==>e ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1789	1903	
==>e ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1789	1903	
==>e ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	73	192	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	73	192	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	73	192	
==>w {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12398	12508	
==>$cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12398	12508	
==>$cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12398	12508	
==>$cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8782	8967	
==>fined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8782	8967	
==>fined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8782	8967	
==>fined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4473	4594	
==>{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4473	4594	
==>{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4473	4594	
==>{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15878	15974	
==>- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	779	875	
==>q 'Scalar' and .value.does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tuple'|'Relation <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15936	16032	
==>- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	949	1084	
==>tents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	949	1084	
==>tents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	949	1084	
==>tents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6350	6466	
==>$t[0],$$t[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Operator->new(
        y <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1973	2080	
==>);
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1973	2080	
==>);
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35016	35110	
==>ethod
degenerates into an C<intersection> if the two source headings are
identical.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39566	39660	
==>ethod
degenerates into an C<intersection> if the two source headings are
identical.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39108	39202	
==>ethod
degenerates into an C<intersection> if the two source headings are
identical.  This metho <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3582	3712	
==>pen ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3582	3712	
==>pen ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1611	1733	
==>"%s%s", x, y);
	return target;
}

PV type_convert_IV_PV (IV x) {
	char * target = (char *)GC_MALLOC(sizeof(char) * 100);
	( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	735	837	
==>}
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	735	837	
==>}
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is expo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4988	5090	
==>}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) { <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5046	5148	
==>}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33819	33915	
==>acharacter will mean.  If you've used F<vim>, you might know
about its '\&' regex assertion.  It' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7900	8046	
==>urn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7900	8046	
==>urn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7900	8046	
==>urn $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4092	4217	
==>return $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} con <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7817	7933	
==>dency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1118	1234	
==>dency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	752	903	
==>->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	914	1065	
==>->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4508	4621	
==>etacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x() stuff/
         macro rxmodexternal: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5187	5351	
==>m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5187	5351	
==>m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5187	5351	
==>m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12179	12295	
==>y $self = shift;
    map { @$_ } reverse @{ $self->{scopes} };
}

sub enter_scope {
    my $self = shift;
    push @{ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2304	2396	
==>ler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2304	2396	
==>ler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15747	15959	
==>6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15747	15959	
==>6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15747	15959	
==>6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29151	29279	
==>ys whether
or not it ended up being merged with the previous object in the tree.

=item my $m = $obj->merge()

Merges this node w <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13027	13122	
==>rings are provided as argument they are each decoded
separately and the same number of strings a <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13027	13122	
==>rings are provided as argument they are each decoded
separately and the same number of strings a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	903	1040	
==>alid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	903	1040	
==>alid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	903	1040	
==>alid method label";
        (blessed($method))
            || confess "A method must be a blessed Perl6::Method object";
    
        ::bi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1129	1232	
==>rs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" ",@e <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5244	5344	
==>orrectly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5244	5344	
==>orrectly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2417	2530	
==>(
        CORE::join $delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice(num->ne <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	237	338	
==>list is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	237	338	
==>list is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	478	585	
==>emAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	478	585	
==>emAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	478	585	
==>emAny,
@{[ PIL::add_indent 1, $cc ]}
])
EOF

  register "&statement_control:unless" => sub {
    my ($cc, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9848	9961	
==>ect.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9848	9961	
==>ect.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9848	9961	
==>ect.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        r <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9108	9216	
==>ut_path);
  my $path = dirname($relative_file);
  my $file = basename($relative_file);
  my $links = 0;

  mk <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12562	12666	
==>ndler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12562	12666	
==>ndler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3190	3297	
==>cc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3190	3297	
==>cc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3190	3297	
==>cc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $restores = j <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21262	21357	
==>common API for access to those databases, each of which takes a different
SQL or pseudo-SQL dial <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21262	21357	
==>common API for access to those databases, each of which takes a different
SQL or pseudo-SQL dial <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11833	11979	
==>do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self->registered_alternatives }; 

    $self->registered_alte <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	66	175	
==>key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.ke <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	66	175	
==>key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.ke <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2398	2518	
==>EQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $q <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2398	2518	
==>EQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $q <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1241	1332	
==>SION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1241	1332	
==>SION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1448	1549	
==>ngified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1448	1549	
==>ngified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1448	1549	
==>ngified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports syntax: @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7617	7718	
==>turn List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7617	7718	
==>turn List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7617	7718	
==>turn List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6600	6708	
==>ass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6600	6708	
==>ass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8797	8905	
==>ass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4004	4132	
==>org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4004	4132	
==>org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4004	4132	
==>org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	537	645	
==>it(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	537	645	
==>it(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	537	645	
==>it(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2620	2735	
==>ode,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2620	2735	
==>ode,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug work <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2620	2735	
==>ode,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug work <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8888	9033	
==>branch',
      type => 'branch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $self->raw, ma <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2751	2849	
==>Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only sup <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2751	2849	
==>Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only sup <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2438	2581	
==>ilCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1433	1527	
==>le call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1433	1527	
==>le call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7169	7286	
==>re (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perld <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2371	2481	
==>nnels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the name <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2371	2481	
==>nnels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2326	2457	
==>ss @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2326	2457	
==>ss @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2326	2457	
==>ss @start;
    # if @start and @end intersect, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        re <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	505	629	
==>it('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode e <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	505	629	
==>it('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	85	182	
==>Manager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules that will <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3515	3640	
==>=~ s{(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $pathname = $m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	13	115	
==>Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	13	115	
==>Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15130	15261	
==>_emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub postfix {
    my $n = $_[0];
    # print <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8686	8785	
==>dnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8686	8785	
==>dnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldn <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14052	14154	
==>5-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14052	14154	
==>5-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_span <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13435	13536	
==>n1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as " <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13435	13536	
==>n1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	825	937	
==>ve($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	825	937	
==>ve($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	937	1040	
==>{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9933	10024	
==>);

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9933	10024	
==>);

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9933	10024	
==>);

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1754	1880	
==>>mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $obj->pool((defined $pool
                    ? dir($poo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	661	766	
==>mpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'F <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1942	2047	
==>mpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'F <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17549	17654	
==>h_perl_like {
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	306	407	
==>:w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	306	407	
==>:w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	803	915	
==>the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	803	915	
==>the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	803	915	
==>the cc.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37102	37197	
==>have zero attributes in common, their joining degenerates to a
C<product>.  In any situation whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41651	41746	
==>have zero attributes in common, their joining degenerates to a
C<product>.  In any situation whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41274	41369	
==>have zero attributes in common, their joining degenerates to a
C<product>.  In any situation whe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2397	2542	
==>her => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '<',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6835	6937	
==>' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Nu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6835	6937	
==>' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	112	254	
==>SA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	112	254	
==>SA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	112	254	
==>SA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_p5r
       p6_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14520	14614	
==>bute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14520	14614	
==>bute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14520	14614	
==>bute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10733	10902	
==>Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10733	10902	
==>Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10733	10902	
==>Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        start =>          $ret->{end <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15049	15203	
==>self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15049	15203	
==>self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15049	15203	
==>self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_method($1, for = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10379	10565	
==>$start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10379	10565	
==>$start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10379	10565	
==>$start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $siz <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9126	9262	
==>_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9114	9250	
==>_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1611	1736	
==>f->{levels}[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_" <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3356	3459	
==>tains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3356	3459	
==>tains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2077	2175	
==>e == 10;
    return (Pugs::Internals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	767	868	
==>.>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	767	868	
==>.>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	767	868	
==>.>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6688	6791	
==>ole->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6688	6791	
==>ole->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6688	6791	
==>ole->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	732	854	
==>$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	937	1059	
==>$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	993	1115	
==>$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8642	8777	
==>) == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8642	8777	
==>) == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8642	8777	
==>) == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6691	6787	
==>ts($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_wit <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6691	6787	
==>ts($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_wit <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	868	976	
==>_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $he <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	868	976	
==>_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	674	776	
==>and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	674	776	
==>and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	674	776	
==>and die) or $self->{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8341	8546	
==>lue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8341	8546	
==>lue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8341	8546	
==>lue::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	354	462	
==>RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	354	462	
==>RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	354	462	
==>RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37779	37887	
==>all the headings of the source relations.  The body of the new relation is
the result of first pairwise-match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42328	42436	
==>all the headings of the source relations.  The body of the new relation is
the result of first pairwise-match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41978	42086	
==>all the headings of the source relations.  The body of the new relation is
the result of first pairwise-match <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38086	38329	
==>ol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->g <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23579	23674	
==>ration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to tes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23579	23674	
==>ration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1097	1207	
==>epend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1097	1207	
==>epend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1097	1207	
==>epend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1243	1385	
==>-czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink $Control
    }
    
    print -e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19412	19508	
==>text the user
sees, you only have to update said separate resource files, and not change
your mai <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19412	19508	
==>text the user
sees, you only have to update said separate resource files, and not change
your mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	951	1057	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	951	1057	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	951	1057	
==>less {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield", <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11372	11525	
==>mg;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copy <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1605	1743	
==>h, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1605	1743	
==>h, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	652	786	
==>text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	652	786	
==>text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	101	206	
==>func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1774	1885	
==>w_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # suppor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1774	1885	
==>w_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # suppor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1774	1885	
==>w_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # suppor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11475	11567	
==>ates the Role specifc
code to the class that consumed it.

---------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11475	11567	
==>ates the Role specifc
code to the class that consumed it.

---------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11475	11567	
==>ates the Role specifc
code to the class that consumed it.

---------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6270	6397	
==>sses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6270	6397	
==>sses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6270	6397	
==>sses for $self";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3640	3789	
==>ternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3652	3801	
==>ternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18830	18929	
==>ersion 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIP <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28886	29008	
==>ecs ( 0.61 cusr + 0.41 csys = 1.02 CPU)

=head1 SEE ALSO

The included F<prove> utility for running test scripts from the c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	26	123	
==>ugh beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (ar <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	26	123	
==>ugh beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	374	471	
==>.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	374	471	
==>.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23080	23168	
==>tifier> <'('> <FormalParameterList>? <')'. <'{'> <FunctionBody> <'}'>
}
rule FunctionExpr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39099	39240	
==>t_attributes'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => metho <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1627	1756	
==>ext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linkte <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1627	1756	
==>ext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linkte <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	102	207	
==>------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	102	207	
==>------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!chil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	588	688	
==>gexp::Parser"'
# which wouldn't call 'import'
{
  my ($level, $prev, $pkg);
  while (my ($curr) = cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11681	11809	
==>"argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11681	11809	
==>"argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11681	11809	
==>"argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Array';
                _('$:cell' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12101	12236	
==>ags => $rx->{flags}[-1],
      family => 'quant',
      data => $data,
      min => $min,
      max => $max,
    }, $class;
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3357	3475	
==>se the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      u <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3357	3475	
==>se the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7565	7669	
==>ms->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7565	7669	
==>ms->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7565	7669	
==>ms->autothread_wrapper($wrappedbody)
      : $params . "\n" . $self->params->autothread_wrapper($wrappedb <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1995	2098	
==>ng: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.siz <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1995	2098	
==>ng: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.siz <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7340	7441	
==>t >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_TERNARY );
  goto expect_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1159	1273	
==>we have 
    for my $depends ( @list ) {
        print "\n*** $entry->{package} depends on $depends->{package}...\n <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2904	3009	
==>'}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one> <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2904	3009	
==>'}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2635	2739	
==>al_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Conne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2635	2739	
==>al_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Conne <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	801	902	
==>efile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	801	902	
==>efile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1050	1147	
==>\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1050	1147	
==>\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1050	1147	
==>\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5=>1},'^(\d+)(?:th|st|nd|rd)$','/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1430	1645	
==>:Pass')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        1,
                '$.number'      =>      $params{'$.number'},
            ) if $p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21640	21732	
==>ce".  However, the level of DBI's provided independence
is I<Database Driver Independence>, a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21640	21732	
==>ce".  However, the level of DBI's provided independence
is I<Database Driver Independence>, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5795	5928	
==>pe}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5795	5928	
==>pe}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5795	5928	
==>pe}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1267	1399	
==>t \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1267	1399	
==>t \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$mat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1405	1534	
==>ould not load files list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1851	1948	
==>ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3227	3324	
==>ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27007	27100	
==>nt subset of the original's attributes to what C<project> would
return given the same C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31559	31652	
==>nt subset of the original's attributes to what C<project> would
return given the same C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30615	30708	
==>nt subset of the original's attributes to what C<project> would
return given the same C<$attrs <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5621	5740	
==>nt META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2203	2316	
==>dule_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    re <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2203	2316	
==>dule_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16082	16232	
==>array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16082	16232	
==>array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16082	16232	
==>array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18011	18107	
==>l address for the human
user who controls the requesting user agent.  The address should be
machi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18011	18107	
==>l address for the human
user who controls the requesting user agent.  The address should be
machi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15035	15140	
==>ins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TOD <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18512	18617	
==>ins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TOD <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17928	18033	
==>ins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	856	979	
==>open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	856	979	
==>open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	856	979	
==>open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8101	8323	
==>autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8101	8323	
==>autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8101	8323	
==>autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4556	4658	
==>ass::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4556	4658	
==>ass::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4556	4658	
==>ass::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	752	899	
==>, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output') <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	788	886	
==>* create a store for single elements (Span::Singleton)
    * use binary search instead of linear se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	788	886	
==>* create a store for single elements (Span::Singleton)
    * use binary search instead of linear se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41181	41276	
==>nto the same files as
program code, rather than requiring separate files.

=item Stevan Little ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41181	41276	
==>nto the same files as
program code, rather than requiring separate files.

=item Stevan Little ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8885	9031	
==>$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            wa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8885	9031	
==>$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5569	5667	
==>to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5569	5667	
==>to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5569	5667	
==>to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE would t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11079	11221	
==>turn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11079	11221	
==>turn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11079	11221	
==>turn bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD()
                    if : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3737	3837	
==>e}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3737	3837	
==>e}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4327	4427	
==>e}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required"
		unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14978	15181	
==>sa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14978	15181	
==>sa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14978	15181	
==>sa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5497	5626	
==>capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5322	5446	
==>capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11388	11506	
==>method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11388	11506	
==>method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11388	11506	
==>method_table = $self->_get_method_table(\%params);
    return $method_table->{$label};                
});

::Class.met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6042	6162	
==>lass = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6042	6162	
==>lass = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6042	6162	
==>lass = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6746	6848	
==>PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6746	6848	
==>PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6746	6848	
==>PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8186	8304	
==>anceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8186	8304	
==>anceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8186	8304	
==>anceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7323	7433	
==>kage PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7323	7433	
==>kage PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7323	7433	
==>kage PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6075	6171	
==>x
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6075	6171	
==>x
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6075	6171	
==>x
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	666	796	
==>n is a sexy new P6 construct that can avoid
        # long if/elsif/else chains
        given $tok {
            when '+' { @stack. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12196	12304	
==>ound for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12196	12304	
==>ound for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12196	12304	
==>ound for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, und <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	976	1074	
==>t($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	976	1074	
==>t($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15363	15458	
==>length() method for all objects that determines the
minimum length of a string that would be mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5026	5152	
==>ol,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5219	5345	
==>ol,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6483	6595	
==>ST nodes inherit from this

sub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3528	3655	
==>y $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3528	3655	
==>y $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3528	3655	
==>y $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->add_meth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15210	15309	
==>r.  Sometimes this is an error message of some kind, but it
could also be a prompt or response messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15210	15309	
==>r.  Sometimes this is an error message of some kind, but it
could also be a prompt or response messa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10747	10914	
==>referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10747	10914	
==>referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10747	10914	
==>referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD() },
            'unboxed' => sub { \(_('$.referred')) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1446	1533	
==>sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1446	1533	
==>sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1446	1533	
==>sub circumfix:<@{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39166	39282	
==>e headings are
identical.  This method has an alias named C<matching>.

=item C<product (Relation::Example $other!) r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35074	35170	
==>e headings are
identical.  This method has an alias named C<matching>.

=item C<product (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39624	39720	
==>e headings are
identical.  This method has an alias named C<matching>.

=item C<product (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1560	1716	
==>item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

met <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1560	1716	
==>item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

met <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9876	9966	
==>d
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END'; print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1785	1911	
==>ndef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1785	1911	
==>ndef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1785	1911	
==>ndef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, but failed
#        buu Er, so how do <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	231	339	
==>blessed';

use base 'type';

sub new {
    my ($class, $env, $signature, $body) = @_;
    (blessed($env) && $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1047	1148	
==>rent, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Tex <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1047	1148	
==>rent, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Tex <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1877	2001	
==>if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match.\n";
	    } else {
		print "ok\n";
	    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4641	4751	
==>ess) = @_;

    # Read original module source code instead of taking from filter,
    # because we need all the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4641	4751	
==>ess) = @_;

    # Read original module source code instead of taking from filter,
    # because we need all the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1284	1478	
==>etHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1284	1478	
==>etHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1284	1478	
==>etHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          node.a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	381	502	
==>D {
    my $ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $planned != $ran) {
	    print STDERR
		"# Lo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2991	3097	
==>= $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2991	3097	
==>= $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2249	2369	
==>primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2249	2369	
==>primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2249	2369	
==>primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18356	18452	
==>de heredocs can possibly confuse further parsing.

Next, the source module is divided into a shal <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18356	18452	
==>de heredocs can possibly confuse further parsing.

Next, the source module is divided into a shal <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11154	11267	
==>t $whence = $File::SEEK_START)
            returns Bool is primitive is unsafe is builtin {
        Pugs::Internal <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7866	7966	
==>$event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7866	7966	
==>$event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1180	1280	
==>)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1180	1280	
==>)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1180	1280	
==>)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2037	2147	
==>@_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2037	2147	
==>@_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2037	2147	
==>@_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10218	10420	
==>m );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10218	10420	
==>m );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10218	10420	
==>m );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add supp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9614	9715	
==>ence {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscapeCharacter>
}
rule SingleEscapeCharac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2530	2626	
==>s request.  It also contains extra
information passed on by the HTTP server, useful to the author <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2530	2626	
==>s request.  It also contains extra
information passed on by the HTTP server, useful to the author <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14388	14506	
==>ator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14388	14506	
==>ator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5402	5534	
==>ethod_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5402	5534	
==>ethod_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5402	5534	
==>ethod_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20454	20555	
==>_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20454	20555	
==>_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20454	20555	
==>_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13386	13522	
==>harlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrang <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	853	984	
==>t $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implemen <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	853	984	
==>t $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26181	26304	
==>ass, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags', <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8938	9042	
==>d the bareword semantics, where 'require'
    # will munge the package name into file system paths.
    e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8938	9042	
==>d the bareword semantics, where 'require'
    # will munge the package name into file system paths.
    e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6574	6676	
==>es;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6574	6676	
==>es;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6574	6676	
==>es;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $fr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	152	252	
==>printer and the type object model
# it emits greek letters and unicode symbols, or type literals

# s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18671	18765	
==>bject". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18671	18765	
==>bject". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	249	374	
==>ash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	249	374	
==>ash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	249	374	
==>ash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	63	177	
==>ure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	63	177	
==>ure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	63	177	
==>ure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	994	1100	
==>lech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	994	1100	
==>lech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	994	1100	
==>lech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for hashes: %h <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8867	9008	
==>IBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1826	1927	
==>mmar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1966	2067	
==>mmar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11589	11695	
==>f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11589	11695	
==>f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11589	11695	
==>f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15645	15775	
==>throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15645	15775	
==>throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3135	3260	
==>{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3135	3260	
==>{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11802	11968	
==>\$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8084	8250	
==>\$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8918	9084	
==>\$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    pri <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3951	4061	
==>s     = ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2908	3012	
==>s = ref($self->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3391	3556	
==>e =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3391	3556	
==>e =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3391	3556	
==>e =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1168	1266	
==>ver 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving int <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1168	1266	
==>ver 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5378	5475	
==>d $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5378	5475	
==>d $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5378	5475	
==>d $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PSub; @ISA = qw(EvalX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14717	14839	
==>:Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by St <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14717	14839	
==>:Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by St <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14717	14839	
==>:Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9073	9239	
==>y $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9073	9239	
==>y $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9073	9239	
==>y $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6444	6551	
==>boxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6444	6551	
==>boxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6444	6551	
==>boxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7800	7907	
==>.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7800	7907	
==>.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7800	7907	
==>.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1707	1813	
==>}
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1707	1813	
==>}
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1707	1813	
==>}
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14644	14754	
==>->{max} eq '') {
        $rx->awarn($rx->RPe_NULNUL, $tree->[-1]->visual . $self->raw);
      }

      $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	552	655	
==>epend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TO <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	552	655	
==>epend on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	465	568	
==>ribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	465	568	
==>ribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	465	568	
==>ribute in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess " <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	279	407	
==>e head tail drop upto upfrom show promise
#                 filter transform merge list_to_stream cutsort
#                 itera <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17120	17216	
==>o a larger package that would otherwise use
it.  Hereafter, if any other package or application s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17120	17216	
==>o a larger package that would otherwise use
it.  Hereafter, if any other package or application s <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1741	1873	
==>RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    } <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1741	1873	
==>RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	22	128	
==>ge Blondie;

use strict;
use warnings;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie - Blondie is a du <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6667	6768	
==>hich seem to still be inside a list?

Basically the item body, much like this text is.

- how should I <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6667	6768	
==>hich seem to still be inside a list?

Basically the item body, much like this text is.

- how should I <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14430	14643	
==>nk", rel  => "stylesheet", 
                                           type => "text/css", 
                                           href => "http://dev.perl.org/css/perl.css"
                                   ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1972	2103	
==>::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1894	2021	
==>::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	682	790	
==>ass::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	682	790	
==>ass::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	682	790	
==>ass::Rebless->rebase($beat, 'And');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50387	50518	
==>l->new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3611	3697	
==>re-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3795	3881	
==>re-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35833	35972	
==>gth
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35833	35972	
==>gth
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35833	35972	
==>gth
            # make $#body = $length
            my $tail = $class->from_list( @tail );
            ( $len_body, @body ) = $tail->_shift_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	493	615	
==>UBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	493	615	
==>UBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	493	615	
==>UBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	64	164	
==>erator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
say <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	70	162	
==>processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	70	162	
==>processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5103	5221	
==>hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { run_js($js) } if $js;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5103	5221	
==>hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { run_js($js) } if $js;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5103	5221	
==>hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval { run_js($js) } if $js;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1706	1826	
==>STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1706	1826	
==>STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1706	1826	
==>STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8445	8540	
==>IKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8445	8540	
==>IKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8445	8540	
==>IKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39235	39355	
==>y->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39235	39355	
==>y->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39235	39355	
==>y->{items}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $arr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10052	10164	
==>y with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match fa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1351	1436	
==>Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyCont <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1351	1436	
==>Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyCont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7350	7467	
==>rrently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7350	7467	
==>rrently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7350	7467	
==>rrently captures *containers*,
  # not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4888	5016	
==>ublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4888	5016	
==>ublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4888	5016	
==>ublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6039	6200	
==>tch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6039	6200	
==>tch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6039	6200	
==>tch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	707	845	
==>o
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	707	845	
==>o
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	707	845	
==>o
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4553	4659	
==>w( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4553	4659	
==>w( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4553	4659	
==>w( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25591	25723	
==>f:')->get_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=pod

method subclasses (opaque $sel <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	354	461	
==>secary because the hash 
    # does not seem to get initialized properly
    # and calling members before an <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	354	461	
==>secary because the hash 
    # does not seem to get initialized properly
    # and calling members before an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19581	19819	
==>my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19581	19819	
==>my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19581	19819	
==>my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13953	14068	
==>r_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13953	14068	
==>r_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13953	14068	
==>r_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5929	6053	
==>rd>
            #~ { return { method => $/{'Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() => Pugs::Comp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3096	3185	
==>union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set:: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3096	3185	
==>union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4691	4826	
==>{
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4691	4826	
==>{
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4691	4826	
==>{
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	398	499	
==>{
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	398	499	
==>{
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	398	499	
==>{
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21707	21805	
==>erride simply by using the same key code with a new user message in
one of their own resource files <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21707	21805	
==>erride simply by using the same key code with a new user message in
one of their own resource files <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1909	2064	
==>->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1909	2064	
==>->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1909	2064	
==>->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11734	11848	
==>son;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReaso <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2166	2270	
==>son;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReaso <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2166	2270	
==>son;
        return $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReaso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2940	3053	
==>s: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2940	3053	
==>s: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2940	3053	
==>s: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1510	1628	
==>se ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1510	1628	
==>se ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1510	1628	
==>se ignore it ... but this will do
            if $self->class->find_attribute_spec($key);
    }
}));

## instance metho <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29640	29747	
==>ersement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29640	29747	
==>ersement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	444	539	
==>ersement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4831	4928	
==>e original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4831	4928	
==>e original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4831	4928	
==>e original name. So if you had an object blessed into "MyClass",
it will now be blessed into "New: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1035	1187	
==>nd
       p6_mangle
       p6_apply
       p6_applym
       p6_return_CODE
       p6_catch_return_CODE
       p6_loop_CODE
       p6_last_CODE
       p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4043	4195	
==>{
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4043	4195	
==>{
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4043	4195	
==>{
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1471	1568	
==>$js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1471	1568	
==>$js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1471	1568	
==>$js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4338	4481	
==>tchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sig <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4478	4621	
==>tchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13835	13943	
==>$ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13835	13943	
==>$ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13835	13943	
==>$ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15991	16085	
==>compilation modules get compiled into some
altered form the first time they are run. The result <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15991	16085	
==>compilation modules get compiled into some
altered form the first time they are run. The result <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10893	10985	
==>le_escape_sequence(char(C)) --> "\\n", {[C] = "\n"}, !. %# XXX - not really
p5_simple_escape_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36929	37022	
==>ation where a pair
of source relations have identical headings, for these their joining
degene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41478	41571	
==>ation where a pair
of source relations have identical headings, for these their joining
degene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41101	41194	
==>ation where a pair
of source relations have identical headings, for these their joining
degene <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2123	2233	
==>define $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2123	2233	
==>define $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2123	2233	
==>define $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOL <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14084	14188	
==>pan representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14084	14188	
==>pan representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5410	5560	
==>urn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5410	5560	
==>urn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	662	755	
==>tch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use cons <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7146	7339	
==>ltidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newn <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7146	7339	
==>ltidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newn <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22034	22129	
==>le::Heading
and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11131	11313	
==>ed
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11131	11313	
==>ed
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11131	11313	
==>ed
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param ) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29366	29465	
==>le/Mapping-valued attributes have been split/unwrapped into other
attributes.  The members of the ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33918	34017	
==>le/Mapping-valued attributes have been split/unwrapped into other
attributes.  The members of the ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33082	33181	
==>le/Mapping-valued attributes have been split/unwrapped into other
attributes.  The members of the ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7127	7241	
==>ne = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code i <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7127	7241	
==>ne = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10278	10377	
==>aque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10278	10377	
==>aque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10278	10377	
==>aque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => : <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14617	14714	
==>he count of elements that would have
been iterated.

The lvalue form of C<keys> is not longer supp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	366	479	
==>compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	463	576	
==>compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1883	1983	
==>Val>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1883	1983	
==>Val>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1883	1983	
==>Val>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1542	1648	
==>.uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1542	1648	
==>.uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1542	1648	
==>.uid) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18795	18901	
==>@{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handle <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15216	15322	
==>@{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11476	11606	
==>ork if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to wo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11476	11606	
==>ork if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to wo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11476	11606	
==>ork if $code is a closure
            # it may break grep(), uniq(), kv()...
            # It will need $code->clone in order to wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21480	21627	
==>AL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21480	21627	
==>AL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21480	21627	
==>AL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scalar' );
                    #    next if Perl6: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	7009	7135	
==>d> 
            #    { return $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER::recompile;
}

BEG <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9762	9856	
==>ume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input valid <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9762	9856	
==>ume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input valid <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2574	2684	
==>correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2574	2684	
==>correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1865	1957	
==>G{'num_width'} == 32, 'subset num of num32  where { true }');
Helpers::macif(%?CONFIG{'num_wi <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2313	2422	
==>{ $conf->{$_} = $DEFAULTS{$_} unless defined $conf->{$_}; } for
        keys %DEFAULTS;
}

sub lookup {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3270	3379	
==>$^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested fe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3454	3563	
==>$^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1317	1434	
==>se Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1317	1434	
==>se Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1317	1434	
==>se Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # X <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21543	21637	
==>y wish to
override some of your messages, showing other messages instead which are
more appropr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21543	21637	
==>y wish to
override some of your messages, showing other messages instead which are
more appropr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38916	39024	
==>ODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38916	39024	
==>ODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38916	39024	
==>ODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	2	93	
==>XXX This sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	2	93	
==>XXX This sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@impo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	2	93	
==>XXX This sub uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@impo <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7653	7814	
==>{
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7710	7871	
==>{
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33243	33342	
==>2 bound

Family: anchor

Types: bound (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Famil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27515	27699	
==>p->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27515	27699	
==>p->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27515	27699	
==>p->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	14	122	
==>use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	14	122	
==>use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	14	122	
==>use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24096	24236	
==>my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24096	24236	
==>my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24096	24236	
==>my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5964	6058	
==>rom_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5964	6058	
==>rom_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5964	6058	
==>rom_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	693	808	
==>g="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	693	808	
==>g="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	693	808	
==>g="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1043	1152	
==>lements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1043	1152	
==>lements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1043	1152	
==>lements from a lazy slice
# * Fixed fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,1 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1606	1709	
==>ler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtyp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1606	1709	
==>ler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtyp <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3704	3829	
==>0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0] );
    }	
    elsif $tree[0] eq '"pExpr"' { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2289	2408	
==>oint    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2289	2408	
==>oint    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1233	1340	
==>pc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1233	1340	
==>pc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1233	1340	
==>pc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{out <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7676	7841	
==>~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domai <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7676	7841	
==>~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15664	15757	
==>lain (pending, Jeff Pinyan)

Produces a human-readable explanation of the execution of a regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12851	12967	
==>this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12851	12967	
==>this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12851	12967	
==>this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9118	9219	
==>S

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9118	9219	
==>S

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1271	1392	
==>r cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1271	1392	
==>r cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1271	1392	
==>r cached_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30422	30535	
==>$ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30422	30535	
==>$ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30422	30535	
==>$ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	251	345	
==>$JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	251	345	
==>$JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	251	345	
==>$JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self)  }
method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4104	4216	
==>method::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4104	4216	
==>method::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4104	4216	
==>method::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5522	5665	
==>st if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5522	5665	
==>st if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2374	2470	
==>:Backend::Perl>, which happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	217	305	
==>time::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	217	305	
==>time::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter:: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3156	3262	
==>, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3156	3262	
==>, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	36	133	
==>le;

use Perl6::Core::Type::Equivalence;

package type::comparable;

use strict;
use warnings;

us <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5742	5838	
==>ead> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5742	5838	
==>ead> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4727	4855	
==>est of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_heading);

# Loading test result <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	600	700	
==>tr is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	600	700	
==>tr is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4054	4157	
==>pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4054	4157	
==>pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4054	4157	
==>pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	35	131	
==>sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	35	131	
==>sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	35	131	
==>sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(function (mod, i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16316	16410	
==>to empty if the parameter's
corresponding argument is not provided).  If the optional named par <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16316	16410	
==>to empty if the parameter's
corresponding argument is not provided).  If the optional named par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1344	1463	
==>eq_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1344	1463	
==>eq_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4269	4401	
==>($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4269	4401	
==>($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4269	4401	
==>($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17747	17841	
==>/execute Rosetta D statements and routines
within the virtual machine, input data to it, and ou <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17747	17841	
==>/execute Rosetta D statements and routines
within the virtual machine, input data to it, and ou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20335	20431	
==>y as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24887	24983	
==>y as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	693	844	
==>) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $mo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1947	2065	
==>,
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1947	2065	
==>,
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17208	17303	
==>.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the foll <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17208	17303	
==>.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the foll <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	96	207	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is_object
       p6_is_perl6_object <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4722	4817	
==>4+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4722	4817	
==>4+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:1 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	221	313	
==>t::Harness::Iterator->new(\*TEST);
  my $it = Test::Harness::Iterator->new(\@array);

  my $l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10083	10174	
==>d2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overl <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10083	10174	
==>d2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3365	3476	
==>->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3558	3669	
==>->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16756	16900	
==>defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16756	16900	
==>defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16756	16900	
==>defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1953	2057	
==>ol => $type, '^');
  });

  # sbol (beginning of line in single-line mode)
  $self->add_handler('\A' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5774	5865	
==>$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5774	5865	
==>$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5774	5865	
==>$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	845	948	
==>}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	845	948	
==>}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	845	948	
==>}.length; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7513	7620	
==>cted";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2J <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7571	7678	
==>cted";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2J <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7764	7863	
==>$h{'isInvocant'}=1 if s/\s*:\s*$//;
	    $h{'isLValue'}=1 if s/\s+is lvalue//;
	    $h{'isLazy'}=1 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	48	156	
==>-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	48	156	
==>-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	48	156	
==>-06
# - tied()
#
# 2005-08-25
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2346	2446	
==>ile($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2346	2446	
==>ile($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2346	2446	
==>ile($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2153	2259	
==>s); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2153	2259	
==>s); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2153	2259	
==>s); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarN <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1529	1658	
==>}
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

meth <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1529	1658	
==>}
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

meth <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18138	18248	
==>);

# this makes sure that ':t id(10)' is the same as ':t 10'
my $app_id = let(
	ide => "id",
	is => $id,
	in = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7126	7227	
==>f "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7126	7227	
==>f "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7126	7227	
==>f "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2165	2288	
==>ct[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2165	2288	
==>ct[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17307	17427	
==>= "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1918	2046	
==>ction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1918	2046	
==>ction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1918	2046	
==>ction (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(ke <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7500	7610	
==>error("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VERSION, VERS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5533	5642	
==>hans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5533	5642	
==>hans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!ch <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8146	8252	
==>es($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $sw <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17807	17908	
==>l machine, input data to it, and output data from it.

You can create more than one DBMS object at a t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17807	17908	
==>l machine, input data to it, and output data from it.

You can create more than one DBMS object at a t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20444	20538	
==>nslation.  There are some application where this is not
appropriate.  Prefixing field names wit <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20444	20538	
==>nslation.  There are some application where this is not
appropriate.  Prefixing field names wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21439	21582	
==>defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21439	21582	
==>defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21439	21582	
==>defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	383	486	
==>s} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	383	486	
==>s} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	383	486	
==>s} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::PStmts";
}

sub as_js { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1785	1884	
==>th + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1785	1884	
==>th + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1785	1884	
==>th + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SUBNAME]} + " than expected ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14966	15078	
==>eturn 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14966	15078	
==>eturn 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14966	15078	
==>eturn 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12846	13004	
==>KMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12846	13004	
==>KMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12846	13004	
==>KMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || confess "Me <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	692	905	
==>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	692	905	
==>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2525	2645	
==>y $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Readi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2525	2645	
==>y $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Readi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2525	2645	
==>y $file (@input) {
    my $mode = $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Readi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5949	6050	
==>p level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5949	6050	
==>p level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5949	6050	
==>p level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	501	605	
==>ing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	501	605	
==>ing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	501	605	
==>ing variable).
  if($self->{pScope} =~ /^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pSc <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7558	7655	
==>lgorithm::TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	117	203	
==>se HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	117	203	
==>se HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0 <==
3	/Users/nnunley/pugs/util/version_h.pl	1537	1695	
==>) = grep /(?:file|svn|https?)\b/, @info) {
                    ($revision) = $line =~ / (\d+)$/;
                }
            }
        }
    }
}
$revision || <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	83	183	
==>in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	83	183	
==>in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	62	174	
==>= 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_option <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	62	174	
==>= 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_option <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	325	421	
==>ncer

# the algorithm implemented is Hindley-Milner type inferrencing, as explained in
# this art <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	863	965	
==>turing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	874	976	
==>turing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	411	523	
==>dule)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	411	523	
==>dule)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	411	523	
==>dule)
# the result of this is (Theos)

# < Class is a subclass of Module is a subclass of Package is a subclass o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3327	3443	
==>}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3327	3443	
==>}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3327	3443	
==>}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{start};
    $para <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6123	6230	
==>thod density () returns Object {
#    return $.span.density;
# }

method stringify () returns String {
    r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6123	6230	
==>thod density () returns Object {
#    return $.span.density;
# }

method stringify () returns String {
    r <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1694	1812	
==>ry, but
    you may wish to check for new settings and edit the old
    config file by hand.

.
        open my $tpl, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1906	2020	
==>};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Quer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1906	2020	
==>};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Quer <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7241	7363	
==>_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@]) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3845	3967	
==>_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@]) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4694	4816	
==>_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2815	2910	
==>ore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2815	2910	
==>ore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2815	2910	
==>ore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2632	2732	
==>y $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return joi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2632	2732	
==>y $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return joi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6559	6645	
==>ntal(posSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_match <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1789	1917	
==>ee t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1789	1917	
==>ee t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1789	1917	
==>ee t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5176	5292	
==>ecursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything you like with each obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5176	5292	
==>ecursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything you like with each obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5176	5292	
==>ecursion and
the wanted namespace ("MyName" in the code above).  This lets you to
do anything you like with each obje <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2494	2633	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2687	2826	
==>" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::c <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3813	3921	
==>> 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumper::Dumper "cleaned",$Z::oop{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4566	4749	
==>_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4566	4749	
==>_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () return <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	7	121	
==>bin/perl

package P6RulesInP5::Match;
use base qw/Class::Accessor/;
use overload
    'bool'  => 'as_bool',
    '""' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1641	1738	
==>de $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1641	1738	
==>de $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1641	1738	
==>de $code) is primitive {
sub statement_control:<for>(*@args) is primitive {
  my $code  := pop @ar <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2278	2391	
==>tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2278	2391	
==>tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2195	2292	
==>trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2195	2292	
==>trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	308	413	
==>sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ valu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	308	413	
==>sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ valu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	308	413	
==>sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ valu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	306	411	
==>+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	306	411	
==>+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	305	405	
==>+))->code;
*rule_name = Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	331	473	
==>Hash' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('% <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1632	1739	
==>r::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1772	1879	
==>r::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	791	887	
==>shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesa <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	791	887	
==>shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	205	299	
==>ammar; if slurp("'.$jsfile.'") ~~ /^<JavaScript::ECMAScript3::Grammar::Spec::Program>$/ {say "o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1161	1281	
==>"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autodere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1161	1281	
==>"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autodere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1161	1281	
==>"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.autodere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1410	1511	
==>);
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1410	1511	
==>);
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1410	1511	
==>);
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32345	32515	
==>th - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32345	32515	
==>th - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32345	32515	
==>th - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	12	115	
==>erl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	12	115	
==>erl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	12	115	
==>erl

use warnings;
use strict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10470	10643	
==>lice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $oth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10470	10643	
==>lice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $oth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10470	10643	
==>lice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13098	13276	
==>e( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13098	13276	
==>e( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13098	13276	
==>e( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2473	2570	
==>_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2473	2570	
==>_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2473	2570	
==>_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  d <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	370	476	
==>of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7671	7769	
==>O



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7412	7505	
==>O

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3066	3211	
==>{
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3206	3351	
==>{
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6255	6343	
==>t;

	$self->mangle_sym_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_sym_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5872	5987	
==>slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "ut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5872	5987	
==>slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "ut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5872	5987	
==>slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "ut <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10416	10556	
==>_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6757	6897	
==>_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7606	7746	
==>_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	497	618	
==>lf->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	497	618	
==>lf->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	497	618	
==>lf->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13328	13490	
==>.
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9514	9676	
==>.
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10350	10512	
==>.
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$pe <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1736	1834	
==>.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->ad <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1736	1834	
==>.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->ad <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34191	34285	
==>: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> in Perl.  We will support this with the <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26956	27180	
==>class' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(sy <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	37	126	
==>Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Conf <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	37	126	
==>Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5819	5919	
==>, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5819	5919	
==>, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5819	5919	
==>, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5416	5519	
==>amp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5416	5519	
==>amp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32005	32096	
==>ample but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51741	52027	
==>set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51130	51387	
==>set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4892	5034	
==>mify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4892	5034	
==>mify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4892	5034	
==>mify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38814	38929	
==>lone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimiza <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38814	38929	
==>lone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimiza <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38814	38929	
==>lone;
    # XXX - TODO - optimization - return the internal list object, if there is one
    # XXX - TODO - optimiza <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13561	13660	
==>handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7769	7868	
==>handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1598	1715	
==>if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1598	1715	
==>if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLA <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24210	24326	
==>.3
      <uriAlpha>
    | <DecimalDigit>
    | <uriMark>
}
rule uriEscaped {  # see 15.1.3
      <'%'> <HexDigit> <He <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2436	2547	
==>ne;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($prot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2436	2547	
==>ne;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($prot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2436	2547	
==>ne;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse {
	my($prot <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	53	153	
==>nings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	53	153	
==>nings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8005	8103	
==>anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => "\0", "\\X[0]");
  } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15774	15877	
==>turn Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19251	19354	
==>turn Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!bod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1796	1939	
==>D__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1584	1719	
==>D__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1584	1719	
==>D__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2763	2854	
==>nical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2763	2854	
==>nical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2763	2854	
==>nical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	213	319	
==>Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	213	319	
==>Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	213	319	
==>Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	100	235	
==>rnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBRO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	100	235	
==>rnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBRO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	100	235	
==>rnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBRO <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9288	9546	
==>'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yie <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9288	9546	
==>'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3901	4011	
==>llowing doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3901	4011	
==>llowing doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3901	4011	
==>llowing doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4432	4530	
==>( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes the s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4432	4530	
==>( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5956	6054	
==>( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12804	12909	
==>arly $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12804	12909	
==>arly $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12804	12909	
==>arly $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1592	1698	
==>lue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1592	1698	
==>lue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1592	1698	
==>lue::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2901	3009	
==>ime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2901	3009	
==>ime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20901	21006	
==>p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not quite the right thing
    my($name)=@_;
    my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3378	3470	
==>[$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3378	3470	
==>[$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3378	3470	
==>[$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($jsbody)) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	852	953	
==>es in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	852	953	
==>es in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	852	953	
==>es in %Perl6::[Multi]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8367	8533	
==>b {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8367	8533	
==>b {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8367	8533	
==>b {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                if ( scalar @param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1734	1848	
==>panded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1734	1848	
==>panded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::state <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14542	14647	
==>ro-width
      # assertion can match a null string a lot
      elsif ($tree->[-1]->{zerolen} and $self->{m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26168	26364	
==>@end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26168	26364	
==>@end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26168	26364	
==>@end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3491	3587	
==>rn <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3491	3587	
==>rn <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3491	3587	
==>rn <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38969	39066	
==>ren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the same <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43783	43880	
==>ren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the same <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8261	8371	
==>:stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8261	8371	
==>:stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8261	8371	
==>:stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12577	12719	
==>KMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12577	12719	
==>KMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12577	12719	
==>KMETH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1855	1952	
==>"N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1855	1952	
==>"N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1855	1952	
==>"N", "Number(a)  / Number(b)",
  "infix:«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10634	10777	
==>hod, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10634	10777	
==>hod, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10634	10777	
==>hod, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5587	5685	
==>Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5587	5685	
==>Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	365	459	
==>);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	365	459	
==>);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	365	459	
==>);
}

our(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_c <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13606	13703	
==>n writing modules and you
find there is some language feature missing, or core bug that needs to
b <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13664	13761	
==>n writing modules and you
find there is some language feature missing, or core bug that needs to
b <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1243	1354	
==>t
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is expo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1243	1354	
==>t
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is expo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1323	1434	
==>t
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16339	16451	
==>Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16339	16451	
==>Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16339	16451	
==>Num::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10548	10649	
==>[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10548	10649	
==>[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10548	10649	
==>[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9212	9382	
==>.
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	942	1035	
==>root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	942	1035	
==>root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7142	7303	
==>rted\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7142	7303	
==>rted\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7142	7303	
==>rted\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18767	18860	
==>IN{unlink("deleteme_code.pl") if -e "deleteme_code.pl";}
my $eval_log_file;
sub eval_p5_log_co <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20234	20324	
==>and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20234	20324	
==>and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11426	11619	
==>{
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11426	11619	
==>{
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11426	11619	
==>{
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is needed until we 
            # can pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6452	6538	
==>(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6452	6538	
==>(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6452	6538	
==>(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var doc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3911	4106	
==>right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    me <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3911	4106	
==>right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6978	7089	
==>ible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6978	7089	
==>ible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6978	7089	
==>ible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9694	9808	
==>uire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9694	9808	
==>uire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9694	9808	
==>uire_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6264	6368	
==>d %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(no <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6264	6368	
==>d %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(no <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	187	286	
==>erl 5.9 re test file (re_tests), but it's
real p5 re coverage is much less.  The test passing was si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5043	5167	
==>CLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5043	5167	
==>CLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5043	5167	
==>CLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # == <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2828	2965	
==>as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2828	2965	
==>as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2828	2965	
==>as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('gl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	283	399	
==>ng],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<G <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1141	1257	
==>ng],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	785	911	
==>o_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	785	911	
==>o_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	785	911	
==>o_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1201	1309	
==>{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namesp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1201	1309	
==>{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namesp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1201	1309	
==>{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namesp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	130	237	
==>0288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	130	237	
==>0288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	130	237	
==>0288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20961	21069	
==>rn $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17382	17490	
==>rn $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	340	445	
==>ructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions tha <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	340	445	
==>ructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions tha <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	340	445	
==>ructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functions tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6067	6159	
==>blequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6067	6159	
==>blequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6067	6159	
==>blequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required par <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7626	7752	
==>r"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7626	7752	
==>r"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => c <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	376	479	
==>{
    $self.add(-$duration);
}

method difference($self: Date $other) returns Duration {
    ...
}

#met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3186	3310	
==>on (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3186	3310	
==>on (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3186	3310	
==>on (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind hash s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9043	9166	
==>shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $contex <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9043	9166	
==>shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $contex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	598	740	
==>( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	686	828	
==>( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	683	820	
==>( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3355	3473	
==>al (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3355	3473	
==>al (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3355	3473	
==>al (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5418	5528	
==>-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5418	5528	
==>-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5418	5528	
==>-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8", "@_"; });
  # open F, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2469	2567	
==>thod('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2469	2567	
==>thod('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2469	2567	
==>thod('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6855	6967	
==>: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6855	6967	
==>: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6855	6967	
==>: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17633	17739	
==>ject that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SE <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17633	17739	
==>ject that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1727	1837	
==>{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1727	1837	
==>{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1727	1837	
==>{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2263	2358	
==>)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$nam <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2263	2358	
==>)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3198	3354	
==>ms ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3198	3354	
==>ms ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3198	3354	
==>ms ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6166	6273	
==>( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low level ope <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5955	6059	
==>( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low level ope <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1496	1594	
==>Util::blessed($node)) {
		if ($node->isa("Blondie::Node")){
			my $reduced = $self->SUPER::generic_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32078	32182	
==>ame heading
and whose body contains all of the tuples that are in either or both of the
invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36628	36732	
==>ame heading
and whose body contains all of the tuples that are in either or both of the
invocant Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35909	36013	
==>ame heading
and whose body contains all of the tuples that are in either or both of the
invocant Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4921	5046	
==>e
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4921	5046	
==>e
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4921	5046	
==>e
    # fail "can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1227	1331	
==>file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1227	1331	
==>file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($di <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	329	426	
==>= Set::Object->new;
	$self->{dups} = Set::Object->new;

    $self->reduce($program);

	$self->{dup <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17023	17143	
==>= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21203	21299	
==>y suggested (but not required) that each Perl package which
uses this would come up with keys whi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21203	21299	
==>y suggested (but not required) that each Perl package which
uses this would come up with keys whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	226	343	
==>e.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	226	343	
==>e.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	226	343	
==>e.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2697	2800	
==>title => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2697	2800	
==>title => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3044	3147	
==>title => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7202	7310	
==>ented" }
sub perl5 { die "not implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	419	511	
==>@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	419	511	
==>@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2129	2251	
==>ts => 1;
use Data::Dumper;

{
    my $cat = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7288	7400	
==>osetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _as <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7288	7400	
==>osetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _as <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	192	442	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	192	442	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13993	14122	
==>x in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10166	10295	
==>x in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - thi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11002	11131	
==>x in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11342	11463	
==>ator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11342	11463	
==>ator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11342	11463	
==>ator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2577	2701	
==>lex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2577	2701	
==>lex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10163	10373	
==>s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10163	10373	
==>s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10163	10373	
==>s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5283	5433	
==>x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5283	5433	
==>x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5283	5433	
==>x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $multiline;
    $matcher = sub ($string) {   # X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36863	36985	
==>numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36863	36985	
==>numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36863	36985	
==>numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized value used <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3503	3603	
==>m{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3503	3603	
==>m{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3503	3603	
==>m{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	399	485	
==>iers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	399	485	
==>iers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_he <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	399	485	
==>iers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx_he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2061	2181	
==>thod($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2061	2181	
==>thod($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2061	2181	
==>thod($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3367	3502	
==>sh->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} | <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3367	3502	
==>sh->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} | <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3367	3502	
==>sh->new()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8815	9094	
==>g->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8815	9094	
==>g->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8815	9094	
==>g->type );  
                        $j->things( \@r );  
                        $j->junction_normalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @argument <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2012	2130	
==>gs->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_req <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2892	3010	
==>gs->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_req <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2426	2561	
==>rl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3384	3518	
==>rl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11845	11975	
==>ers or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15322	15452	
==>ers or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14657	14787	
==>ers or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3072	3211	
==>tobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3072	3211	
==>tobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3072	3211	
==>tobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	740	845	
==>ions!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you'r <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	740	845	
==>ions!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you'r <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5406	5503	
==>ol::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subnam <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46783	46985	
==>'
            ),
            sub {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e->get('$label')
                  ->to_str
                  ->is_e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	304	396	
==>\S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	304	396	
==>\S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15184	15278	
==>ies) implement.  This interface is rigorously defined, such that there
should be no ambiguity w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15184	15278	
==>ies) implement.  This interface is rigorously defined, such that there
should be no ambiguity w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4986	5085	
==>array of bytes, 
then clears the object's internal state.  This should be called as the last 
step o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4986	5085	
==>array of bytes, 
then clears the object's internal state.  This should be called as the last 
step o <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15319	15416	
==>rting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the tota <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21453	21557	
==>_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21453	21557	
==>_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21453	21557	
==>_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29120	29235	
==>e MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29120	29235	
==>e MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	463	570	
==>e MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1097	1205	
==>fg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1097	1205	
==>fg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1097	1205	
==>fg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, i.e.
# there's always a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3627	3761	
==>'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '~=',
        assoc => 'right',
        precedence => <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10685	10771	
==>b {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10685	10771	
==>b {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11074	11232	
==>d');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11074	11232	
==>d');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Has <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11074	11232	
==>d');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21841	21940	
==>$xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21841	21940	
==>$xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21841	21940	
==>$xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Inter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2403	2528	
==>xtracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2311	2433	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	48	167	
==>se warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @tokens = ($so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	645	826	
==>";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	645	826	
==>";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	645	826	
==>";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2021	2142	
==>cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2021	2142	
==>cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2021	2142	
==>cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17308	17403	
==>code runs (it is analagous to the Perl interpreter
itself, which provides a virtual machine in w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17308	17403	
==>code runs (it is analagous to the Perl interpreter
itself, which provides a virtual machine in w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7690	7783	
==>rintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7690	7783	
==>rintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7690	7783	
==>rintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	185	319	
==>1) {
	$n = shift;
	if ($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n = $plan{tests};
    }
    pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20750	20849	
==>$S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17171	17270	
==>$S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13638	13773	
==>s, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13638	13773	
==>s, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27105	27221	
==>$self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3454	3593	
==>D' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3454	3593	
==>D' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3454	3593	
==>D' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k eq 'DESTROY') {
		    $MM->add_method( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1246	1378	
==>ecced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) }


 multi  Num::exp (  Num  $exponent             ; Num :$ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29008	29104	
==>y OR'ing
together the flags that are enabled at the time.

=item $obj->insert()

Inserts this obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3192	3337	
==>m}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3439	3584	
==>m}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	875	989	
==>$string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return _emit( $ast, '' );
        #"d <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	657	754	
==>t's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	657	754	
==>t's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Pe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6770	6909	
==>f = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12855	12989	
==>f = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9517	9605	
==>],[0],[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{
  print STDERR " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14666	14764	
==>base connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14666	14764	
==>base connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" D <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	235	332	
==>s apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bayes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8305	8420	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8498	8613	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3152	3282	
==>to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3152	3282	
==>to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!se <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6763	6873	
==>/i and return "pilrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore2human {
  local $_ = s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12823	12921	
==>nfinite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12823	12921	
==>nfinite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1424	1521	
==>eused abstract data types.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::Unit a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32594	32686	
==>urpose is to convert Message objects on demand into user-readable
message strings, using data <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32594	32686	
==>urpose is to convert Message objects on demand into user-readable
message strings, using data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1188	1291	
==>l;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1188	1291	
==>l;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1188	1291	
==>l;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $timeout if $timeout;

# XXX - create a <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5546	5643	
==>be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
obje <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5546	5643	
==>be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2843	2954	
==>espace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2843	2954	
==>espace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2843	2954	
==>espace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its children)
	i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3353	3478	
==>bj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Obj;

    sub ne <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5464	5561	
==>rr_str> method returns the last error message

=back

=head1 AUTHORS

This module is based on Adam <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5464	5561	
==>rr_str> method returns the last error message

=back

=head1 AUTHORS

This module is based on Adam <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	106	223	
==>the Standard Prelude in pugs.

# Sets up either the inlined Perl 6 source Prelude fallback, or a real
# precompiled AS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25995	26097	
==>parser object is the first value in C<@_>.>  I made sure of this in
my code; you should make sure in yo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12333	12488	
==>method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12333	12488	
==>method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12333	12488	
==>method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->d <==
3	/Users/nnunley/pugs/util/package-osx.pl	7746	7843	
==>an3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Spec::Module.3pm
        /usr/local/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5680	5775	
==>oad_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5680	5775	
==>oad_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3889	4017	
==>nternal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3889	4017	
==>nternal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3889	4017	
==>nternal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	39	139	
==>emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	39	139	
==>emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	39	139	
==>emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the * of the JavaScript code la <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16341	16482	
==>__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16341	16482	
==>__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  s <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2930	3038	
==>amed $subscription) {
            %.subscriptions<$subscrption.name>.remove($subscription);
            $subs <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1121	1211	
==>::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1121	1211	
==>::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3001	3202	
==>' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3001	3202	
==>' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3001	3202	
==>' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2303	2449	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2850	2996	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3397	3543	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg { <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3364	3470	
==>des($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3364	3470	
==>des($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26094	26190	
==>ifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1
      <DecimalIntegerLiteral> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2984	3106	
==>sum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2984	3106	
==>sum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1209	1307	
==>est results difficult for anything but a human.  To
make it easier for programs to work with test r <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	861	963	
==>V<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	861	963	
==>V<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	535	626	
==>efined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($orig);
			retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1150	1247	
==>2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1150	1247	
==>2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1150	1247	
==>2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3832	3930	
==>pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3832	3930	
==>pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3832	3930	
==>pil2js.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6166	6274	
==>GE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto end if $tokenCat == PGE_OPTABLE_CLOSE;
    goto oper <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11542	11638	
==>nvert more tests

A good amount of Tree::Simple's test will not be relevant though.

=item Create <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11542	11638	
==>nvert more tests

A good amount of Tree::Simple's test will not be relevant though.

=item Create <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	261	390	
==>r => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	261	390	
==>r => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1168	1296	
==>ame; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1168	1296	
==>ame; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1168	1296	
==>ame; # {identifier} is long, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3042	3170	
==>ody \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3042	3170	
==>ody \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3042	3170	
==>ody \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5804	5911	
==>urn;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STOR <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5804	5911	
==>urn;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STOR <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6394	6501	
==>urn;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STOR <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23850	23966	
==>my $type = type::operator::arrow->new(
		type::variable::free->new,
		my $b = type::variable::free->new,
	);
	is($typ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2219	2309	
==>>determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine_VERSION( <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1325	1414	
==>>determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine_VERSION( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10240	10340	
==>if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10240	10340	
==>if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10240	10340	
==>if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.met <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2062	2214	
==>d
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    pus <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3654	3802	
==>d
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    pus <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1712	1817	
==>my $self = shift;
		my $node = shift;
	
		my $h = Devel::STDERR::Indent::indent();

		warn "flattenning $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5739	6000	
==>'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5739	6000	
==>'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5739	6000	
==>'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} eq 'SubMethod') {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4535	4679	
==>= -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4535	4679	
==>= -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4535	4679	
==>= -1; my $m;
       while 1 {
        my $s = substr($string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24070	24209	
==>$ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24070	24209	
==>$ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24070	24209	
==>$ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17500	17676	
==>)
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9785	9961	
==>)
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17779	17955	
==>)
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4070	4178	
==>cessors }


1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# E <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20186	20290	
==>turn $outpath;
}


# Takes one hash argument which is modified
# try to 'collapse' useless directory entr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28629	28725	
==>ules, but it expects you
to make modules having a specific simple API that will serve their role. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28629	28725	
==>ules, but it expects you
to make modules having a specific simple API that will serve their role. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7176	7293	
==>[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3780	3897	
==>[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4629	4746	
==>[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1160	1272	
==>umber(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1160	1272	
==>umber(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1160	1272	
==>umber(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5049	5162	
==>Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5049	5162	
==>Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5049	5162	
==>Class attribute are just package level variables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26818	26957	
==>val_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27097	27236	
==>val_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28047	28141	
==>eturns 0, the flag is removed from the resulting
object's visual flag set, so C<(?ig-o)> become <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8085	8238	
==>lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12078	12223	
==>lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12078	12223	
==>lexical scope.";
}

sub _preprocess_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10801	10910	
==>omatically deleted, so you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<b <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3587	3688	
==>o (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the i <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3587	3688	
==>o (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the i <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	883	991	
==>urn int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x))) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1081	1202	
==>>bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1081	1202	
==>>bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1081	1202	
==>>bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2371	2497	
==>MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2371	2497	
==>MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2371	2497	
==>MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2376	2486	
==>rune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2376	2486	
==>rune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2376	2486	
==>rune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12166	12305	
==>ip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
  {
      metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2566	2689	
==>ip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    metho <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2566	2689	
==>ip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	18	115	
==>ubstr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	18	115	
==>ubstr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	18	115	
==>ubstr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22064	22161	
==>ple::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This documentation is pending.>

=head <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10154	10246	
==>inimum possible, and is essentially just
concerned with the well-formedness of the input, suc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10154	10246	
==>inimum possible, and is essentially just
concerned with the well-formedness of the input, suc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5791	5924	
==>Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5791	5924	
==>Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filte <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17635	17875	
==>ey === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21112	21352	
==>ey === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20699	20939	
==>ey === any( $common_h )
                } )
                $t1only_m = mapping( $t1.pairs.map:{
                    $_.key === any( $r1only_h )
                } )
                for $other!body.values -> $t2 {
                    $t2commo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	0	105	
==>method JS::Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	0	105	
==>method JS::Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	0	105	
==>method JS::Root::substr(Str $str is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4251	4353	
==>stamble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18602	18698	
==>ber in a set of key-codes,
which are hard-coded into your application or package, with one or mor <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18602	18698	
==>ber in a set of key-codes,
which are hard-coded into your application or package, with one or mor <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	287	406	
==>l;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	287	406	
==>l;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Co <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	237	337	
==>nt have a separate tokenizer.
#   * <SourceCharacter> removals.
#     Several "SourceCharacter but no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14643	14738	
==>ir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14643	14738	
==>ir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14643	14738	
==>ir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2085	2236	
==>== -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2085	2236	
==>== -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2085	2236	
==>== -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13285	13461	
==>f->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13285	13461	
==>f->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13285	13461	
==>f->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	442	540	
==>ne.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	442	540	
==>ne.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash) <==
3	/Users/nnunley/pugs/util/build_pugs.pl	696	788	
==>he PUGS_BUILD_OPTS
environment variable.

Current settings:
.
    print PugsBuild::Config->pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8807	8913	
==>o;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - ab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8807	8913	
==>o;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - ab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8807	8913	
==>o;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3880	3997	
==>hifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3880	3997	
==>hifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3880	3997	
==>hifts}} = @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13870	14012	
==>$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13870	14012	
==>$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13870	14012	
==>$i], see t/operators/binding/arrays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4286	4421	
==>l::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4286	4421	
==>l::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	122	246	
==>ls;
use JIB::Meta;
use JIB::Alternative;

use YAML                    qw[LoadFile DumpFile];
use Params::Check           qw[c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4193	4315	
==>l {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4193	4315	
==>l {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4193	4315	
==>l {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  my $yaml = eval { run_pil2j <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11560	11676	
==>de);
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	721	863	
==>$i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	721	863	
==>$i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	721	863	
==>$i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1934	2061	
==>ength($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2369	2496	
==>ength($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2806	2933	
==>ength($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	347	458	
==>erencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	347	458	
==>erencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	347	458	
==>erencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12038	12172	
==>1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12038	12172	
==>1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12038	12172	
==>1 'List'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1932	2031	
==>$reduced->isa("Blondie::Thunk"); # FIXME - enforce param checking on stubs or prims some how?

    r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3608	3703	
==>gorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bru <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3608	3703	
==>gorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bru <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8258	8362	
==>m_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ER <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8316	8420	
==>m_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ER <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28491	28588	
==>head1 EXAMPLE

Here's how Test::Harness tests itself

  $ cd ~/src/devel/Test-Harness
  $ perl -Mb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2517	2617	
==>ed",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2517	2617	
==>ed",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2517	2617	
==>ed",
  # "-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$r <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11464	11588	
==>chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initrd",
    ensure => sub { -r "$ini <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9866	9960	
==>6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9866	9960	
==>6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19499	19588	
==>_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19499	19588	
==>_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19499	19588	
==>_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21975	22069	
==>nterface of Rosetta is entirely object-oriented; you use it by
creating objects from its member <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21975	22069	
==>nterface of Rosetta is entirely object-oriented; you use it by
creating objects from its member <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4130	4246	
==>) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4130	4246	
==>) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4130	4246	
==>) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26917	27034	
==>400000 /* Can trust a positive answer */
 #define REINT_AUTORITATIVE_ML	0x0800000 
 #define REINT_ONCE_NOML		0x1000000 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31128	31224	
==>limiter.  This means,
for example, that the full module names in a set could be either
[Foo::L::E <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31128	31224	
==>limiter.  This means,
for example, that the full module names in a set could be either
[Foo::L::E <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9381	9482	
==>child_height = $child.height();
            $max_height = $child_height if $max_height < $child_height <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9381	9482	
==>child_height = $child.height();
            $max_height = $child_height if $max_height < $child_height <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	709	805	
==>goto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub make_q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5363	5472	
==>always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5363	5472	
==>always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5363	5472	
==>always_dollar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2312	2531	
==>str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12329	12427	
==>if no previous
value for that field is set.

The header field name ($field) is not case sensitive a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12329	12427	
==>if no previous
value for that field is set.

The header field name ($field) is not case sensitive a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23655	23876	
==>calar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23655	23876	
==>calar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23655	23876	
==>calar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5927	6027	
==>self->{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, &{$new}($pkg, _top <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7388	7567	
==>>clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7388	7567	
==>>clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7388	7567	
==>>clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6014	6124	
==>ub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6014	6124	
==>ub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6014	6124	
==>ub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2482	2591	
==>T} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VER <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8404	8506	
==>h _switches()
to build a command line.

Typically this is C<$^X>, but you can set C<$ENV{HARNESS_COMMAN <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1639	1739	
==>T} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VER <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21841	21936	
==>ly in the
main program, Locale::KeyedText can be given input that says what resource
files it sh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21841	21936	
==>ly in the
main program, Locale::KeyedText can be given input that says what resource
files it sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18447	18625	
==>eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18447	18625	
==>eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18447	18625	
==>eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array stor <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7467	7647	
==>sion good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next R <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7931	8111	
==>sion good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next R <==
3	/Users/nnunley/pugs/util/config_h.pl	484	579	
==>= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_line;

open IN, "< $base/lib/Perl6/Pugs. <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4252	4368	
==>dex[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4252	4368	
==>dex[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	814	915	
==>reate $testdir/$plxname.bat: $!";
print $F <<'EOT';
@rem = @rem = '--*-Perl-*--
@echo off
if "%OS% <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1999	2100	
==>r) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1999	2100	
==>r) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1999	2100	
==>r) { return arr.length - 1 })')(@self);
}

method map(@self is rw: Code $code) { map $code, *@self }
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4289	4412	
==>emp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4289	4412	
==>emp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4289	4412	
==>emp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1668	1782	
==>n)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1668	1782	
==>n)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1668	1782	
==>n)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3534	3648	
==>lues;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't bei <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7011	7125	
==>lues;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't bei <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5968	6082	
==>lues;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't bei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11122	11304	
==>i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11122	11304	
==>i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11122	11304	
==>i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2438	2541	
==>he hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2438	2541	
==>he hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2438	2541	
==>he hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11443	11548	
==>ode =~ /return/;
    return "#return-block#" . $code;
}
sub node::runtime_alternation {
    my $code = mat <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1462	1564	
==>thod set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.dep <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1462	1564	
==>thod set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.dep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7933	8042	
==>ethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7933	8042	
==>ethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7933	8042	
==>ethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15185	15354	
==>as_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15185	15354	
==>as_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15185	15354	
==>as_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8242	8339	
==>= $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Inf <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8242	8339	
==>= $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13388	13488	
==>)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13388	13488	
==>)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13388	13488	
==>)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14592	14686	
==>it will follow
recommended "Good Practice" of ordering the header fields.  Long header
values a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14592	14686	
==>it will follow
recommended "Good Practice" of ordering the header fields.  Long header
values a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6771	6959	
==>n "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6771	6959	
==>n "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6771	6959	
==>n "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.param <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26619	26726	
==>sNoDash {  # see 15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash>
    | <ClassA <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1559	1752	
==>if>'),
							App(
								Sym('&infix:<==>'),
								Sym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									A <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10676	10781	
==>azy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10676	10781	
==>azy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6002	6111	
==>CK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6002	6111	
==>CK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6002	6111	
==>CK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9223	9323	
==>lar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9223	9323	
==>lar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9223	9323	
==>lar - Perl extension for Perl6 "Scalar" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6209	6353	
==>%s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6209	6353	
==>%s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6209	6353	
==>%s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5574	5682	
==>-- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5574	5682	
==>-- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5574	5682	
==>-- @_"."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8260	8422	
==>e> {      
            $pre ~= ":s";
            %mods.delete("s"); # avoid haskell handling it.
            %mods.delete("sigspace");
        }
        if $pre ne <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31095	31188	
==>parts concatenated without any delimiter.  This means,
for example, that the full module names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31095	31188	
==>parts concatenated without any delimiter.  This means,
for example, that the full module names <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13883	13997	
==>= 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13883	13997	
==>= 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13883	13997	
==>= 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot ru <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2932	3025	
==>rer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2932	3025	
==>rer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enciph <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2224	2348	
==>riables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2224	2348	
==>riables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2571	2695	
==>riables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3409	3542	
==>}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10398	10494	
==>tions) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plain <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10398	10494	
==>tions) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plain <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	824	928	
==>te: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widg <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	824	928	
==>te: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2313	2438	
==>e->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2313	2438	
==>e->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2313	2438	
==>e->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = shift;
        (d <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	957	1096	
==>n the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    ha <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	957	1096	
==>n the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    ha <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1687	1780	
==>($.left) = { level($$) + 1 }
type::operator::binary: level($.right) = { level($$) }

type::ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	16	113	
==>e! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	16	113	
==>e! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	16	113	
==>e! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2837	2945	
==>);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2837	2945	
==>);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2837	2945	
==>);
    $self->_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5082	5191	
==>lice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5082	5191	
==>lice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5082	5191	
==>lice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29500	29617	
==>_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29500	29617	
==>_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29500	29617	
==>_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13462	13629	
==>}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dump <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5657	5758	
==>im(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $l <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5715	5816	
==>im(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9651	9783	
==>oxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9651	9783	
==>oxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9651	9783	
==>oxed Array
                warn "Return type does not match - should return " . $self->returns->name
                    if defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9183	9283	
==>TEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9183	9283	
==>TEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6483	6644	
==>results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6483	6644	
==>results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4183	4296	
==>@$mods );
    }
    return $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2626	2742	
==>POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2626	2742	
==>POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2626	2742	
==>POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8308	8526	
==>( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4668	4886	
==>( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5517	5735	
==>( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	202	441	
==>t( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	203	442	
==>t( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25094	25241	
==>ion on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{len} }

  # a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3737	3835	
==>::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3737	3835	
==>::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3737	3835	
==>::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ------------------------ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3697	3827	
==>--> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19481	19600	
==>tion::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20478	20597	
==>tion::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2014	2135	
==>>{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2014	2135	
==>>{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = q <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2014	2135	
==>>{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = q <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4103	4350	
==>} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4103	4350	
==>} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11013	11123	
==>>{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11013	11123	
==>>{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11013	11123	
==>>{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	245	342	
==>ase below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	245	342	
==>ase below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	245	342	
==>ase below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40927	41040	
==>ref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40927	41040	
==>ref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40927	41040	
==>ref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18717	18843	
==>($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18717	18843	
==>($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18717	18843	
==>($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23841	23971	
==>ge Regexp::Parser::ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	79	202	
==>up {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	79	202	
==>up {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	79	202	
==>up {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17346	17547	
==>OLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17346	17547	
==>OLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17346	17547	
==>OLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	2	102	
==>ackage PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	2	102	
==>ackage PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	2	102	
==>ackage PIL::Run::Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1616	1745	
==>r {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub A <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14895	15014	
==>recomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of pare <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19063	19182	
==>recomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of pare <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	47	146	
==>e-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	47	146	
==>e-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	199	292	
==>tzen von Instanz-Variablen
Person $person = new Person;
name $person = "Jens";
$welt.hallo($pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	419	536	
==>It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "rela <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	419	536	
==>It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "rela <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	419	536	
==>It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensuous soul, meaning "rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3554	3672	
==>hod perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3554	3672	
==>hod perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3554	3672	
==>hod perl(Any $self:) { ".perl not yet implemented in PIL2JS" }

# We load the operator definitions lastly because they' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30036	30133	
==>of the object, just itself.  This is used primarily when
inspecting the parsing of the regex.

=it <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20284	20377	
==>autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to th <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20284	20377	
==>autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19496	19585	
==>(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19496	19585	
==>(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19496	19585	
==>(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37633	37746	
==>warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37633	37746	
==>warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37633	37746	
==>warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16355	16451	
==>ssage
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16355	16451	
==>ssage
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2260	2396	
==>ef($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2260	2396	
==>ef($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1382	1483	
==>alar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1382	1483	
==>alar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1382	1483	
==>alar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21786	21891	
==>/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21786	21891	
==>/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21786	21891	
==>/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4022	4118	
==>ility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersectio <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4022	4118	
==>ility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersectio <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2237	2477	
==>%events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        wh <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2237	2477	
==>%events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        wh <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25788	25885	
==>s>

If a single subtest decides that further testing will not make sense,
the script dies with thi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8038	8157	
==>eop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1319	1433	
==>required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7764	7877	
==>eop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22690	22790	
==>ed; this gives the
code a way to be sure compilation was successful.

=item maxpar

The highest numbe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22183	22278	
==>on::Example provides a minimal in-RAM
storage implementation for the L<Relation> library.

I<TOD <==
3	/Users/nnunley/pugs/util/testgraph.pl	401	495	
==>file) or die "Couldn't open $yamlfile for reading: $!";
binmode $yamlfh, ":utf8" or die "binmod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6762	6854	
==>attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6762	6854	
==>attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6762	6854	
==>attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22416	22514	
==>n the same result when invoked on the
same object with the same arguments; they do not interact wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26968	27066	
==>n the same result when invoked on the
same object with the same arguments; they do not interact wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25691	25789	
==>n the same result when invoked on the
same object with the same arguments; they do not interact wit <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3197	3302	
==>ay status and headers
  # This should all be done better so the response doesn't live in
  # memory all at <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3197	3302	
==>ay status and headers
  # This should all be done better so the response doesn't live in
  # memory all at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16966	17059	
==>:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16966	17059	
==>:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16966	17059	
==>:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclass <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19463	19607	
==>ess {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => 'tail',
      raw => ')',
      omit => 1,
      u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3269	3363	
==>...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3269	3363	
==>...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	909	1009	
==>ing leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message ) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	909	1009	
==>ing leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1465	1565	
==>ing leading C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4957	5085	
==>$self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4957	5085	
==>$self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4957	5085	
==>$self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36915	37033	
==>nit {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4886	4991	
==>ll nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cac <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4886	4991	
==>ll nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cac <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10151	10249	
==>rence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infini <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10151	10249	
==>rence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infini <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4427	4524	
==>her they passed
or failed based on their output to STDOUT (details above).  It prints
out each ind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10937	11105	
==>D' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10937	11105	
==>D' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10937	11105	
==>D' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2596	2710	
==>);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2596	2710	
==>);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2943	3057	
==>);
    Data::Bind->arg_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23447	23555	
==>xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23447	23555	
==>xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23447	23555	
==>xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	146	242	
==>"(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	146	242	
==>"(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	146	242	
==>"(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8555	8741	
==>eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8555	8741	
==>eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8555	8741	
==>eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $meth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8699	8793	
==>ckage);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8699	8793	
==>ckage);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1209	1308	
==>eturns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1209	1308	
==>eturns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3002	3127	
==>ld;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "IN <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3002	3127	
==>ld;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "IN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1538	1654	
==>perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1538	1654	
==>perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1538	1654	
==>perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11672	11791	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_el <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11672	11791	
==>F!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_el <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9750	9864	
==>etails";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Pugs Smoke Reports</ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8203	8338	
==>p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8203	8338	
==>p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue( <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1575	1670	
==>a.round_toward_zero },
		{ $^a.round_away_from_zero },

#		{ $^a.round_up: symmetrical => $^b }, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20017	20131	
==>ame)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfun = $fun;
    if <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3930	4010	
==>ttp://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wik <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3930	4010	
==>ttp://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wik <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2408	2654	
==>pe = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2408	2654	
==>pe = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2408	2654	
==>pe = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2042	2235	
==>m,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2042	2235	
==>m,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2042	2235	
==>m,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _in <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6821	6918	
==>() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6821	6918	
==>() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before <==
3	/Users/nnunley/pugs/util/importgraph.pl	2018	2103	
==>/);
setup_rank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5797	5932	
==>}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5797	5932	
==>}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5797	5932	
==>}->match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2864	2985	
==>en;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.ac <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2864	2985	
==>en;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.ac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17321	17428	
==>ected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] eq $expec <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3729	3890	
==>tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*po <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3729	3890	
==>tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4642	4812	
==>2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4642	4812	
==>2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4642	4812	
==>2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17201	17306	
==>fix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17201	17306	
==>fix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17201	17306	
==>fix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10275	10380	
==>@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4119	4218	
==>eturns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $sel <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4119	4218	
==>eturns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7891	8014	
==>g for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7891	8014	
==>g for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7891	8014	
==>g for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { " <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10852	10976	
==>efined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10852	10976	
==>efined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3026	3121	
==>($struct) ? $struct->moniker : "const";
		join("_", $type, ++$self->{counters}{$type});
	}
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9275	9375	
==>long to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9275	9375	
==>long to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20631	20720	
==>no flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glob ioctl link listen <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6070	6166	
==>rently, the headers
are returned as one long string.

=item List Context

All headers are returne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6070	6166	
==>rently, the headers
are returned as one long string.

=item List Context

All headers are returne <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5447	5652	
==>*%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5447	5652	
==>*%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3609	3781	
==>= $op1;
        #goto &$step;
        return &$step;
      }
      print STDERR "cleanup\n" if $debug;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2659	2787	
==>5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2659	2787	
==>5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2659	2787	
==>5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = p <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2384	2493	
==>d;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2384	2493	
==>d;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8682	8789	
==>\G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2100	2205	
==>> $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2100	2205	
==>> $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2100	2205	
==>> $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'*'}->STO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2958	3063	
==>use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf( <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2958	3063	
==>use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5698	5798	
==>AILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the num <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5698	5798	
==>AILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7222	7322	
==>AILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns the num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2953	3075	
==>vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PAp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2953	3075	
==>vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PAp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2953	3075	
==>vl3)=($vl4);";
	# XXX - "strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PAp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1552	1664	
==>Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1552	1664	
==>Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1552	1664	
==>Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15559	15671	
==>nto (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Ba <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15559	15671	
==>nto (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Ba <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14216	14315	
==>= opaque.new(\$class, %attrs);
    return $self;
}

method CREATE (opaque $class: str $repr, hash %p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3535	3707	
==>A_JIB_PACKAGE_BINARY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Binary') }; 
use constant I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6496	6615	
==>der("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6496	6615	
==>der("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2057	2181	
==>ct_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2057	2181	
==>ct_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2137	2261	
==>ct_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	354	455	
==>PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub qu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	354	455	
==>PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub qu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23319	23409	
==>ltiple different Relation-implementing classes are used together, and
each doesn't know the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8850	8972	
==>refix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8850	8972	
==>refix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8850	8972	
==>refix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15634	15730	
==>ent systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bluepri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15634	15730	
==>ent systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bluepri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12268	12407	
==>self = shift;
    $self->{min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($mi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4413	4520	
==>ags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4635	4742	
==>ags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24383	24499	
==>,@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24383	24499	
==>,@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24383	24499	
==>,@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    retu <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1634	1748	
==>.tex" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $col = 0;
#    print '\frametitl <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9670	9782	
==>$max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with he <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9670	9782	
==>$max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with he <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37202	37307	
==>he heading of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41751	41856	
==>he heading of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  T <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41374	41479	
==>he heading of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  T <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8428	8538	
==>g};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc_pkg not cached, and called without path <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25562	25675	
==>py these to your sub-class.  If you're
curious why the C<regex> value is a reference, and thus why I'm using
C<${& <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18570	18665	
==>dText does is associate each member in a set of key-codes,
which are hard-coded into your applic <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18570	18665	
==>dText does is associate each member in a set of key-codes,
which are hard-coded into your applic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8667	8810	
==>URNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8667	8810	
==>URNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8667	8810	
==>URNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36731	36829	
==>in which case the result does too.  Another trivial case is if any
source relation is the identity- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41280	41378	
==>in which case the result does too.  Another trivial case is if any
source relation is the identity- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40903	41001	
==>in which case the result does too.  Another trivial case is if any
source relation is the identity- <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	812	956	
==>P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$! <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	812	956	
==>P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8249	8353	
==>erl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8249	8353	
==>erl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8249	8353	
==>erl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3227	3331	
==>::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3227	3331	
==>::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3227	3331	
==>::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1266	1373	
==>erce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1266	1373	
==>erce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1266	1373	
==>erce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6329	6439	
==>hod store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$it <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6329	6439	
==>hod store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$it <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19393	19497	
==>ram => "x",
	body => ide("y"),
);

# this is a higher order function that takes a function and applies it <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6586	6758	
==>ool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6586	6758	
==>ool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2104	2208	
==>return(int $x);
}

our Int multi Num::round_away_from_zero (Num $x) {
	return 0 if $x == 0;

	my Int $t = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4554	4682	
==>"\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4542	4670	
==>"\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8033	8149	
==>6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8033	8149	
==>6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8033	8149	
==>6::Slice::write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40514	40638	
==>alue;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40514	40638	
==>alue;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40514	40638	
==>alue;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @_;
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7183	7330	
==>s 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7183	7330	
==>s 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7183	7330	
==>s 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unbo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11263	11381	
==>rce is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cros <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14740	14858	
==>rce is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cros <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14048	14166	
==>rce is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cros <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1170	1299	
==>advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    retu <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1170	1299	
==>advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4571	4724	
==>$to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { requi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1560	1667	
==>se }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.com <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1560	1667	
==>se }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5980	6136	
==>> sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5980	6136	
==>> sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5980	6136	
==>> sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	693	970	
==>->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	693	970	
==>->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	693	970	
==>->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn "SORT @res";
                # remove duplicates
                for ( @res ) {
                    $_ = $_->fetch if <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	994	1119	
==>int "." if $Conf{verbose};
        my %cc = ($f => 1);
        print "calculating cc for $f\n";
        $allccs{$f} = [ keys % <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1167	1265	
==>, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 In <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1167	1265	
==>, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2929	3028	
==>n
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2929	3028	
==>n
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2929	3028	
==>n
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1246	1342	
==>e('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1246	1342	
==>e('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1246	1342	
==>e('new PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idxs = args[2].to <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4734	4865	
==>r);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4734	4865	
==>r);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_di <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	219	326	
==>Util 'blessed';

use base 'type';

sub new {
    my ($class, $value) = @_;
    (blessed($value) && $value->i <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1690	1810	
==>hor;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($Ex <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2542	2662	
==>hor;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($Ex <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10300	10398	
==>mDefault) if defined($paramDefault);
    return { isInvocant=>$isInvocant, isOptional=>$isOptional, <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1792	1892	
==>map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $gra <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6565	6662	
==>{ -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kernel_local <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23843	23936	
==>) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	164	355	
==>lf = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $ar <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	229	386	
==>lf = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $ar <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14123	14229	
==>st);

Checks if the $line is a test report (ie. 'ok/not ok').  Reports the
result back in C<%test> which wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23231	23434	
==>= Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23231	23434	
==>= Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23231	23434	
==>= Scalar->new();
                    #$ret->bind( $scalar );
                    #return $ret;
                }

                if ( $method eq 'pop'   || $method eq 'shift' ) {
                    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16592	16760	
==>$array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16592	16760	
==>$array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16592	16760	
==>$array = shift; 
                my $ret = Array->new();
                $ret->push(
                    Perl6::Value::List->from_num_range( 
                        sta <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3644	3776	
==>../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3644	3776	
==>../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $pat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3	107	
==>usr/bin/perl -CDS

# A typed lambda calculus in perl6-ish perl 5
# (makes use of attribute grammars and m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3317	3418	
==>, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3317	3418	
==>, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3317	3418	
==>, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	268	367	
==>ls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	268	367	
==>ls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	268	367	
==>ls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS::inline(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	566	681	
==>ub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	566	681	
==>ub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	566	681	
==>ub {
    my ($cc, $cond, $true, $false) = @_;

    return $if->($cc, $cond, $false, $true);
  };
}

{
  foreach my $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10946	11038	
==>discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10946	11038	
==>discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1722	1814	
==>tem * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

=item * L<Pugs::Compiler:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1958	2107	
==>h->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1737	1877	
==>h->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1737	1877	
==>h->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8067	8235	
==>pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8067	8235	
==>pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5941	6059	
==>es}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10932	11089	
==>$ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10932	11089	
==>$ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10932	11089	
==>$ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinit <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13811	13912	
==>v     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytests - <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12714	12809	
==>rovides the following functions:

=over 4

=item decode_entities( $string, ... )

This routine r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12714	12809	
==>rovides the following functions:

=over 4

=item decode_entities( $string, ... )

This routine r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7368	7469	
==>s kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7368	7469	
==>s kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$cha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22126	22218	
==>character class, instead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier unexpected <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22597	22839	
==>elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22597	22839	
==>elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22597	22839	
==>elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $scalar->st <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	988	1100	
==>}
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.dens <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	988	1100	
==>}
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.dens <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2980	3073	
==>{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$construc <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2980	3073	
==>{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$construc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1302	1399	
==>st_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub stat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1302	1399	
==>st_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub stat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1302	1399	
==>st_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22278	22396	
==>xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22278	22396	
==>xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22278	22396	
==>xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2272	2384	
==>ess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2272	2384	
==>ess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2272	2384	
==>ess "No label to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attri <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5709	5852	
==>ternary:<?? !!>'),
                    Sym->new('$cond'),
                    Sym->new('$left_thunk'),
                    Sym->new('$right_thun <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8739	8842	
==>m_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8797	8900	
==>m_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12791	12903	
==>LOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12791	12903	
==>LOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12791	12903	
==>LOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1920	2072	
==>VarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1920	2072	
==>VarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1920	2072	
==>VarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inli <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20246	20356	
==>lly useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24798	24908	
==>lly useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23359	23469	
==>lly useful, and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12830	12957	
==>butes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12830	12957	
==>butes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12830	12957	
==>butes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	19	125	
==>P::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values - <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	19	125	
==>P::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21228	21326	
==>ed on or off.  Also, if the flag handler returns 0,
that flag is removed from the resulting object' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13551	13685	
==>ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13551	13685	
==>ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13551	13685	
==>ret = $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13424	13548	
==>a}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    # quantifiers must follo <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2119	2207	
==>to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2119	2207	
==>to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6066	6171	
==>:stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6066	6171	
==>:stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6066	6171	
==>:stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	687	936	
==>,
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shel <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	687	936	
==>,
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24476	24595	
==>et = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24476	24595	
==>et = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24476	24595	
==>et = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bool' => $b, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2643	2752	
==>iag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2643	2752	
==>iag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2723	2832	
==>iag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	68	182	
==>0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	68	182	
==>0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	68	182	
==>0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	13	115	
==>air $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	13	115	
==>air $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	13	115	
==>air $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2345	2478	
==>"::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2345	2478	
==>"::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2345	2478	
==>"::$name"} = $code;
}

{
	my $prune;
	sub prune {
		$prune = $_[1] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4536	4642	
==>=>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4536	4642	
==>=>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4536	4642	
==>=>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1165	1275	
==>bnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1165	1275	
==>bnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1165	1275	
==>bnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VI <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33907	34006	
==>ns a new Relation that has the same heading and
whose body contains all of the tuples that are in th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38457	38556	
==>ns a new Relation that has the same heading and
whose body contains all of the tuples that are in th <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4002	4141	
==>4)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4002	4141	
==>4)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12086	12178	
==><span title="<tmpl_var name=total> total"><tmpl_var name=total></span>:</td>
	      <td class <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21456	21572	
==>ats
    pad["isarray"] = padarray
    pad["cutnum"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5261	5375	
==>AML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5080	5186	
==>AML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	196	331	
==>erl6;
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	882	1000	
==>rs {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	882	1000	
==>rs {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	882	1000	
==>rs {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	358	468	
==>ance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	563	673	
==>ance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	619	729	
==>ance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2564	2667	
==>ie @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2564	2667	
==>ie @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2564	2667	
==>ie @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30762	30966	
==>th += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30762	30966	
==>th += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30762	30966	
==>th += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14357	14502	
==>_down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           ty <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26268	26364	
==>it.

While it is by no means required, the copyright holders of Rosetta would
appreciate being in <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26268	26364	
==>it.

While it is by no means required, the copyright holders of Rosetta would
appreciate being in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	21	111	
==>udge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	21	111	
==>udge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	21	111	
==>udge.
sub Package::_create($name) {}
sub Module::_create($name) {}
sub Rule::_create($name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37515	37640	
==>ore {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37515	37640	
==>ore {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37515	37640	
==>ore {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20731	20826	
==>('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20731	20826	
==>('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20731	20826	
==>('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	826	960	
==>se_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	826	960	
==>se_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2146	2252	
==>ctor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3016	3132	
==>ix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3016	3132	
==>ix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3016	3132	
==>ix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2234	2345	
==>tput.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2234	2345	
==>tput.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2314	2425	
==>tput.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_matches  = $expect_diag <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1481	1584	
==>so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

S <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1481	1584	
==>so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6477	6626	
==>null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6477	6626	
==>null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6477	6626	
==>null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2678	2786	
==>ly
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2862	2970	
==>ly
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1	104	
==>package Perl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1	104	
==>package Perl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1	104	
==>package Perl6::Run::JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0. <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12509	12698	
==>ss;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my $ast = shift;

    Compiler->new->compile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21086	21186	
==>l be present in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21086	21186	
==>l be present in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11268	11363	
==>ss BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
beca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11268	11363	
==>ss BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
beca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11268	11363	
==>ss BUILD submethod, but any
Role BUILD submethods. It is important that submethods are used
beca <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9454	9579	
==>filesystem on \"$initrd_img\"",
    ensure => sub { `strings $initrd_img | grep lost+found` },
    using  => sub { system "mkf <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3004	3118	
==>basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contai <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3004	3118	
==>basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	622	750	
==>function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	622	750	
==>function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	622	750	
==>function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3323	3427	
==>enclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3323	3427	
==>enclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3323	3427	
==>enclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8681	8793	
==>nion = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8681	8793	
==>nion = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3660	3867	
==>=> $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3514	3714	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	731	831	
==>where {
    .key.does(Str) and (
        (.key eq 'Scalar' and .value.does(Relation::LaxAttrScalarSub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4452	4567	
==>e numbers if $type isn't a string operator,
        # and the numbers are stringwise the same.
        # (all string <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15332	15441	
==>t  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> St <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15332	15441	
==>t  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3703	3815	
==>$description> is the optional
description of the test.  This is the easiest way to match a passing test.

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3703	3815	
==>$description> is the optional
description of the test.  This is the easiest way to match a passing test.

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3783	3895	
==>$description> is the optional
description of the test.  This is the easiest way to match a passing test.

=item B <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2323	2444	
==>{
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2323	2444	
==>{
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3648	3749	
==>mary report mean:

=over 4

=item B<Failed Test>

The test file which failed.

=item B<Stat>

If the t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25000	25092	
==>Harness by default.

C<$verbose>, C<$switches> and C<$debug> are exported upon request.

=hea <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15189	15329	
==>0 - pos
    cname = substr target, pos, $I1
    mob["cname"] = cname
    pos = $I0
    goto end
  name:
    inc pos
    (mob, $P0, mfrom, mpo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5267	5366	
==>ze>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5267	5366	
==>ze>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4059	4146	
==>PING AREA
## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4059	4146	
==>PING AREA
## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4059	4146	
==>PING AREA
## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7274	7406	
==>rn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3878	4010	
==>rn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4727	4859	
==>rn "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1417	1576	
==>when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        % <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1417	1576	
==>when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        % <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3364	3466	
==>ind";
	warn "defining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim {
	my $self = s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3682	3813	
==>unt for now

rule subrule                { ([\<\<|\<|\x[abd]]) (\??) <name> [ \( <argument_list> \) | <pattern> | <null> ] [\>\>|\>| <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8464	8567	
==>ot a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when ad <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8464	8567	
==>ot a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2364	2456	
==>::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2364	2456	
==>::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2364	2456	
==>::cfg{testpc});
}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	194	311	
==>"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",D <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	158	274	
==>"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	246	362	
==>"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2357	2457	
==>].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2357	2457	
==>].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2357	2457	
==>].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2644	2753	
==>aximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2644	2753	
==>aximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2644	2753	
==>aximum recursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8062	8188	
==>writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8062	8188	
==>writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8062	8188	
==>writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3649	3746	
==>ons lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3649	3746	
==>ons lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3649	3746	
==>ons lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5981	6140	
==>t ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=['',''] unless $match; # defined($t);

        #print "expect NUM \n" if gr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3126	3275	
==>d current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3126	3275	
==>d current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9402	9569	
==>emidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12879	13046	
==>emidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21692	21791	
==>split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21692	21791	
==>split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21692	21791	
==>split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9320	9462	
==>b { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9320	9462	
==>b { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9320	9462	
==>b { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	630	741	
==>(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	630	741	
==>(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	630	741	
==>(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16060	16152	
==>y

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16118	16210	
==>y

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jes <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1380	1502	
==>elf  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => joi <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	718	839	
==>elf = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => joi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20282	20387	
==>me
    .local int cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.ser <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16527	16631	
==>lex regexes with if-then assertions.  I
don't want to think about that.  This module is more of a theoret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	267	366	
==>passes all it's tests.

- The algorithm is a bit simpler than the previous version, but the comple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16517	16614	
==>AME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16517	16614	
==>AME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16517	16614	
==>AME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOPSIS

  use Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	489	587	
==>) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	489	587	
==>) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	489	587	
==>) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1412	1519	
==>y are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1412	1519	
==>y are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1412	1519	
==>y are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5752	5853	
==>n.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5752	5853	
==>n.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7276	7377	
==>n.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<report_test <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	278	372	
==>ified
    content_type content_encoding content_length content_language
    title user_agent se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	278	372	
==>ified
    content_type content_encoding content_length content_language
    title user_agent se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2538	2628	
==>nd create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2538	2628	
==>nd create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2538	2628	
==>nd create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2341	2453	
==>pare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2341	2453	
==>pare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35766	35876	
==>$self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{rx}->object(ifmatch => 1, @$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1688	1791	
==>et, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4590	4722	
==>:Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4590	4722	
==>:Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4590	4722	
==>:Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstke <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4886	4990	
==>ins several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4886	4990	
==>ins several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7083	7187	
==>ins several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4317	4418	
==>y %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4317	4418	
==>y %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4317	4418	
==>y %mods_altered = %mods;
    %mods_altered.delete('ov');
    %mods_altered.delete('overlap');
    my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	546	661	
==>params->{name},
		type => $params->{type},
    );
}

my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6072	6181	
==>t
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as glo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6072	6181	
==>t
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as glo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	478	591	
==>r a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2006	2119	
==>r a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_tex <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	419	528	
==>xit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13698	13837	
==>__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13698	13837	
==>__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3354	3459	
==>m *

Replacing all values which the runtime provides builtins for with the replacement nodes

=item *

Ens <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6310	6419	
==>F, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6310	6419	
==>F, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6310	6419	
==>F, \'$1\'\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2650	2760	
==>postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq "circumfix" )
  {
    $token{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2400	2509	
==>.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIP <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2400	2509	
==>.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIP <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1295	1411	
==>bably a role) for
implementing dynamic scopes (not really a reduer).

=head1 SYNOPSIS

    use base qw/Blondie::Reduc <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1318	1414	
==>VEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1318	1414	
==>VEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2244	2385	
==>" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2244	2385	
==>" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2244	2385	
==>" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15807	15901	
==>etails than joe public would.

Alternately, sometimes a program will raise a condition or error <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15807	15901	
==>etails than joe public would.

Alternately, sometimes a program will raise a condition or error <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29363	29471	
==>STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29363	29471	
==>STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	191	291	
==>STRINGS is readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	142	252	
==>l structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pu <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	142	252	
==>l structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pu <==
3	/Users/nnunley/pugs/util/run-smoke.pl	189	284	
==>iled = 0;
for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	525	634	
==>eaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	525	634	
==>eaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	525	634	
==>eaning "relating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2801	2909	
==>eld;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case en <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2801	2909	
==>eld;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	207	304	
==>ail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	207	304	
==>ail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	207	304	
==>ail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUB <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34136	34229	
==>vocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifferenc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38686	38779	
==>vocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifferenc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38147	38240	
==>vocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidifferenc <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4879	5020	
==>t      pre     grep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     reduce  safe   (Code, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	282	382	
==>ncrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with by <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	282	382	
==>ncrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with by <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9333	9438	
==>pan );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9333	9438	
==>pan );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	333	432	
==>the algorithm implemented is Hindley-Milner type inferrencing, as explained in
# this article: http: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1047	1159	
==>> "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1047	1159	
==>> "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1047	1159	
==>> "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # - <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1235	1339	
==>> 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1202	1306	
==>> 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7614	7752	
==>i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7614	7752	
==>i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7614	7752	
==>i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3988	4105	
==>ion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3988	4105	
==>ion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3988	4105	
==>ion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Object ]);

$::Package->add_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7469	7589	
==>Value}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7469	7589	
==>Value}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7469	7589	
==>Value}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3966	4064	
==>code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3966	4064	
==>code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub si <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3966	4064	
==>code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12070	12195	
==>get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12070	12195	
==>get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12070	12195	
==>get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Private Method ($_[1]) not f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2115	2218	
==>scape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2115	2218	
==>scape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2115	2218	
==>scape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8591	8746	
==>( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3655	3763	
==>$.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3655	3763	
==>$.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8421	8564	
==>t is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8421	8564	
==>t is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8421	8564	
==>t is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8437	8562	
==>ect__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16288	16381	
==>plications and packages that empowers single binaries to support N
locales or user types simul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16288	16381	
==>plications and packages that empowers single binaries to support N
locales or user types simul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7636	7776	
==>($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7636	7776	
==>($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7636	7776	
==>($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4534	4640	
==>cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4534	4640	
==>cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4534	4640	
==>cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	242	338	
==>urn &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg): <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	242	338	
==>urn &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg): <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19875	20022	
==>deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19875	20022	
==>deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19875	20022	
==>deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1	101	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1	101	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1	101	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6451	6595	
==>$self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6451	6595	
==>$self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6451	6595	
==>$self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      sub { _('$:cell')->{id} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9649	9791	
==>ms\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9649	9791	
==>ms\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9649	9791	
==>ms\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15199	15402	
==>for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we j <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15199	15402	
==>for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we j <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15199	15402	
==>for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19289	19407	
==>}    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19289	19407	
==>}    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19289	19407	
==>}    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_;
    (defined $labe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	554	673	
==>ilter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	554	673	
==>ilter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

su <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	708	810	
==>t.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builtin is primitive is uns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5329	5430	
==>nded to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5329	5430	
==>nded to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5329	5430	
==>nded to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14384	14536	
==>. $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$diges <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14384	14536	
==>. $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$diges <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5436	5569	
==>hift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invoca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5436	5569	
==>hift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invoca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5436	5569	
==>hift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) { # an invoca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5423	5555	
==>e';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5423	5555	
==>e';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5423	5555	
==>e';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\:$/) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20197	20300	
==>th;
}


# Takes one hash argument which is modified
# try to 'collapse' useless directory entries
sub co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21082	21177	
==>d into .pmc files and shipped with your
distribtution precompiled. This means that people who in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21082	21177	
==>d into .pmc files and shipped with your
distribtution precompiled. This means that people who in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1110	1283	
==>|
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1250	1423	
==>|
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23310	23441	
==>{
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19731	19862	
==>{
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3303	3432	
==>untime::Match::Ratchet';
        return;
    }
}

sub perl5 {
    my $rx = qr(^($_[0]))s;
    no warnings qw( uninitialized <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18904	19012	
==>A - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18904	19012	
==>A - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12958	13065	
==>defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12958	13065	
==>defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12958	13065	
==>defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must have an invocant, a label and <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2104	2237	
==>^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1743	1840	
==>[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2065	2162	
==>[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19888	19984	
==>rwards.

If you want something similar but that is more mutable, you can accomplish
that manually <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24440	24536	
==>rwards.

If you want something similar but that is more mutable, you can accomplish
that manually <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22992	23088	
==>rwards.

If you want something similar but that is more mutable, you can accomplish
that manually <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	483	674	
==>str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	483	674	
==>str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12726	12835	
==>ERR "# $runperldisplay\n";
    }
    return $runperl;
}

sub runperl {
    die "test.pl:runperl() does not tak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14698	14792	
==>};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14698	14792	
==>};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14698	14792	
==>};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	823	931	
==>urn @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	823	931	
==>urn @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	823	931	
==>urn @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2016	2129	
==>eresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2016	2129	
==>eresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29123	29260	
==>ol->new('@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (opaque $self: symbol $order) returns block { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1737	1844	
==>("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1737	1844	
==>("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21700	21796	
==>@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21700	21796	
==>@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21700	21796	
==>@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4688	4839	
==>d;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $version ? ";\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5932	6042	
==>th($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5932	6042	
==>th($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9977	10079	
==>. These smokes are
    automatically generated and show how much a given backend (normal
    Haskell ru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10250	10381	
==>_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BA <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2287	2402	
==>_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BA <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2287	2402	
==>_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BA <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7085	7217	
==><"pSubLValue">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params, travers <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6552	6653	
==>ably okay to keep a few
# zombies around for a relatively short while.
sub gather_results {
    my($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23215	23308	
==>rings in building your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.or <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3325	3416	
==>CRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3325	3416	
==>CRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5522	5613	
==>CRIPTION

The Test::Builder::Test class represents a single test within the
Test::Builder fr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8221	8362	
==>lation\n"); exit(0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13151	13248	
==>t is broken because something is not implemented yet. So
in order to still allow that to be tested <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13209	13306	
==>t is broken because something is not implemented yet. So
in order to still allow that to be tested <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1130	1235	
==>elongs to a
package that is too close to the main namespace for your tastes, and
you want to rebless every <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1130	1235	
==>elongs to a
package that is too close to the main namespace for your tastes, and
you want to rebless every <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1130	1235	
==>elongs to a
package that is too close to the main namespace for your tastes, and
you want to rebless every <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7132	7241	
==>{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7132	7241	
==>{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7132	7241	
==>{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3587	3703	
==>e, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3587	3703	
==>e, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3587	3703	
==>e, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role tieable => {
    met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2167	2281	
==>ent_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2167	2281	
==>ent_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_ru <==
3	/Users/nnunley/pugs/util/package-osx.pl	5794	5891	
==>an/man3/Perl6::Overview::Data.3
        /usr/local/man/man3/Perl6::Overview::Data.3pm
        /usr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35007	35106	
==>.  This method
degenerates into an C<intersection> if the two source headings are
identical.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39557	39656	
==>.  This method
degenerates into an C<intersection> if the two source headings are
identical.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39099	39198	
==>.  This method
degenerates into an C<intersection> if the two source headings are
identical.  This m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8170	8318	
==>) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4530	4678	
==>) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5379	5527	
==>) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix ) <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1036	1148	
==>ration:\n" . PugsBuild::Config->pretty_print;

    my ($version, $ghc, $ghc_version, $setup, @args) = @{$opts->{G <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1452	1556	
==>turn ( $span, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1452	1556	
==>turn ( $span, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $spa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	605	720	
==>ches;
*debug    = *Debug;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
}

# Som <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1403	1502	
==>ld 
have to be insane to use this for anything more than obscuring text from 
accidental viewing.  ( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1403	1502	
==>ld 
have to be insane to use this for anything more than obscuring text from 
accidental viewing.  ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9547	9707	
==>ts );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not mat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9547	9707	
==>ts );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not mat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9547	9707	
==>ts );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not mat <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4693	4985	
==>s.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    ce <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4693	4985	
==>s.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    ce <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	468	593	
==>| \n <pod> ]
))->code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4234	4353	
==>b clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4234	4353	
==>b clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4234	4353	
==>b clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9568	9677	
==>lve uses it
    # to gather all the roles to be 'resolved'
    # --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9568	9677	
==>lve uses it
    # to gather all the roles to be 'resolved'
    # --------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9568	9677	
==>lve uses it
    # to gather all the roles to be 'resolved'
    # --------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	812	912	
==>l.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	812	912	
==>l.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	812	912	
==>l.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1044	1159	
==>my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1044	1159	
==>my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1044	1159	
==>my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2903	3013	
==>m = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2903	3013	
==>m = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2903	3013	
==>m = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11635	11748	
==>if $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$li <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11635	11748	
==>if $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	650	754	
==>ss {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	650	754	
==>ss {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	650	754	
==>ss {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3515	3617	
==>kahead   { \< (!?) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> \> }
rul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11790	11885	
==>mands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11790	11885	
==>mands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7269	7368	
==>s => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7269	7368	
==>s => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7269	7368	
==>s => '@:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolv <==
3	/Users/nnunley/pugs/util/func_refact.pl	1885	2029	
==>f{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "union: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2491	2588	
==>ed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2491	2588	
==>ed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10132	10258	
==>ode; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10132	10258	
==>ode; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10132	10258	
==>ode; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14049	14146	
==>$dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] fou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14049	14146	
==>$dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] fou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14049	14146	
==>$dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] fou <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1295	1416	
==>cting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@field <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1295	1416	
==>cting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@field <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18515	18609	
==>.12
      <LogicalORExpressionNoIn>
    | <LogicalORExpressionNoIn> <'?'> <AssignmentExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1136	1238	
==>3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1136	1238	
==>3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1136	1238	
==>3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pa <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1733	1843	
==>ew settings and edit the old
    config file by hand.

.
        open my $tpl, $config_template or die "open: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1154	1249	
==>c_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine.
sub impor <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1154	1249	
==>c_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine.
sub impor <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	514	669	
==>' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $cha <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	514	669	
==>' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $cha <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4366	4516	
==>\%v --> $r = %v;
    
    $r->[0]  --> $r[0];
    $r->{0}  --> $r{0};
    $r->(0)  --> $r(0);


    foreach (@a)        -->  for @a
    foreach my $r ( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5114	5235	
==>le to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5114	5235	
==>le to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19306	19397	
==>xed some poor wording, and documented the problem with using F<SUPER::>
inside F<MyClass::__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6962	7072	
==>SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6962	7072	
==>SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6962	7072	
==>SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    war <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1723	1820	
==>w scope is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method ca <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1723	1820	
==>w scope is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5976	6117	
==>tr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5976	6117	
==>tr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5976	6117	
==>tr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	539	663	
==>onstant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	539	663	
==>onstant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	539	663	
==>onstant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	429	621	
==>ize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	429	621	
==>ize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	429	621	
==>ize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junct <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1134	1281	
==>r   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1134	1281	
==>r   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17028	17123	
==>language(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17028	17123	
==>language(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24398	24513	
==>e {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24398	24513	
==>e {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24398	24513	
==>e {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ret = $m;
    };
    return $ret;
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3630	3746	
==>pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3630	3746	
==>pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3630	3746	
==>pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24275	24438	
==>is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24275	24438	
==>is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24275	24438	
==>is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$meth <==
3	/Users/nnunley/pugs/util/grokprims.pl	405	527	
==>chomp;

  my (undef, $ret, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or d <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8813	8931	
==>ceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8813	8931	
==>ceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2380	2476	
==>}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2380	2476	
==>}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2380	2476	
==>}

exit if $precompile_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4723	4848	
==>,
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4723	4848	
==>,
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23213	23321	
==>PT_SKIP 
 ROPT_TAINTED_SEEN 
 ROPT_UTF8 


=head1 Compilation

=head2 flags

=head1 Execution - Input

=head1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2268	2404	
==>h) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2268	2404	
==>h) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2166	2274	
==>e_object(anyof_char => 'A') if $cc;
    return $S->object(bol => 'sbol' => '\A');
  });

  # nbound (not a wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8527	8633	
==>[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8527	8633	
==>[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8527	8633	
==>[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12700	12813	
==>e('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12700	12813	
==>e('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12700	12813	
==>e('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aIn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1908	2026	
==>nfix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1908	2026	
==>nfix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1908	2026	
==>nfix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "S <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6746	6853	
==>l2js";
  /PIL-RUN/i and return "pilrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore2hu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	3	96	
==>package Pugs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCateg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3	93	
==>package Pugs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCateg <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6716	6812	
==>$event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6716	6812	
==>$event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3937	4041	
==>PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3937	4041	
==>PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3937	4041	
==>PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8320	8423	
==>her hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8320	8423	
==>her hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3995	4090	
==>if($ref) {
	return $x->isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)//s;
	return <==
3	/Users/nnunley/pugs/util/config_h.pl	1788	1957	
==>m(
            $ghc, @ghc_args,
            "--make", "-v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3944	4040	
==>r modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3944	4040	
==>r modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1820	1932	
==>class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1820	1932	
==>class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1820	1932	
==>class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5358	5458	
==>e properties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

Th <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5358	5458	
==>e properties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23520	23637	
==>.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23520	23637	
==>.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23520	23637	
==>.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6769	6874	
==>itive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6769	6874	
==>itive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6769	6874	
==>itive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	905	1033	
==>TCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	905	1033	
==>TCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	905	1033	
==>TCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(k <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10352	10498	
==>f8")
                         or die "Can't open output test file $output_path: $!";
                         
  my $template = HTML::Template->new <==
3	/Users/nnunley/pugs/util/testgraph.pl	699	811	
==>$Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*STDO <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16881	16982	
==>DExpression :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpression> <'&'> <Equal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3903	4014	
==>self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3903	4014	
==>self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3903	4014	
==>self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1552	1656	
==>> \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1552	1656	
==>> \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1552	1656	
==>> \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8850	8979	
==>= Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Te <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1006	1127	
==>= Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1006	1127	
==>= Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Te <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4627	4753	
==>n 'file';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f, 'file';  -->  our $f = open 'file';

    sub { $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6305	6412	
==>f if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6305	6412	
==>f if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	72	184	
==>er::Scalar;

sub mk_containers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c->scalar_s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	799	908	
==>INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns S <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	799	908	
==>INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns S <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4282	4387	
==>ol::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4282	4387	
==>ol::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1786	1898	
==>e::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1926	2038	
==>e::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14404	14508	
==>nry Spencer's
  regexp library.  http://arglist.com/regex/  While the code has diverged,
  at least the l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6041	6170	
==>~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6041	6170	
==>~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6041	6170	
==>~ /\]$/) {
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6041	6167	
==>&& $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6041	6167	
==>&& $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15484	15568	
==>t,[]),
  re_rewrite(Re0,Re).

%------------------------------------------------------ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	197	288	
==>_PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	197	288	
==>_PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pk <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14345	14520	
==>nstant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14624	14799	
==>nstant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8474	8573	
==>n_test_on_Foo',
  '... still got the right return value from Foo singleton/class method');  
  
fail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32881	33030	
==>iff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32881	33030	
==>iff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32881	33030	
==>iff = $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8575	8705	
==>{
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The mor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8575	8705	
==>{
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The mor <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15338	15427	
==><ShiftExpression> <'>>'> <AdditiveExpression>
    | <ShiftExpression> <'>>>'> <AdditiveExp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3745	3876	
==>s

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3745	3876	
==>s

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3745	3876	
==>s

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23760	23859	
==>ds->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23760	23859	
==>ds->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23760	23859	
==>ds->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef, <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1453	1588	
==>thod subsume ( Getopt::Argument $arg ) { 
            $.append( $self.accept( $arg ) );
        }
        
        method append ( Getop <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3485	3604	
==>end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3485	3604	
==>end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	749	872	
==>");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	749	872	
==>");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	749	872	
==>");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with docum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2581	2682	
==>E('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2581	2682	
==>E('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2581	2682	
==>E('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 D <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	634	744	
==>./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	634	744	
==>./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	829	917	
==>Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullP <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	829	917	
==>Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	79	188	
==>rn typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	79	188	
==>rn typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	79	188	
==>rn typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5242	5377	
==>$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5242	5377	
==>$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5242	5377	
==>$:cell')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4623	4734	
==>ams::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4623	4734	
==>ams::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4623	4734	
==>ams::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38602	38699	
==>ext and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38602	38699	
==>ext and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11064	11219	
==>nparen'} -1;
    sub{
      my $c = $_[0];
      my $m = MatchX->new();
      my $from = $X::pos;
      my $close = sub {
        my $c0 = $_[0];
        my <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7465	7565	
==>ift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the " <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7465	7565	
==>ift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	855	962	
==>cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	855	962	
==>cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	855	962	
==>cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23354	23485	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19775	19906	
==>if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4642	4748	
==>] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4642	4748	
==>] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4642	4748	
==>] -- input_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7559	7686	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7559	7686	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7559	7686	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => Perl6::Value::Bit:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	548	706	
==>exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3219	3367	
==>$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3219	3367	
==>$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4937	5054	
==>n't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4937	5054	
==>n't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4937	5054	
==>n't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @lis <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2005	2254	
==>Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2005	2254	
==>Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Ro <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2173	2289	
==>me.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't build test executable <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2722	2832	
==>4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<pugs_version osname duration s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	68	174	
==>rimental implementation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Gra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	66	167	
==>rimental implementation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Gra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7577	7678	
==>users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %user <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7577	7678	
==>users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %user <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	498	594	
==>itive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	498	594	
==>itive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	498	594	
==>itive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11872	12011	
==>grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12151	12290	
==>grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::ca <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1485	1587	
==>esult;
use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless {
	value => $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7621	7771	
==>$start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7621	7771	
==>$start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7621	7771	
==>$start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	236	332	
==>2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	236	332	
==>2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	236	332	
==>2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5847	5951	
==>s()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5847	5951	
==>s()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5847	5951	
==>s()->unboxed;
}
sub Perl6::Slice::unbind {
    # creates a new Array - not bound to the original array/sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7215	7377	
==>tems;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7215	7377	
==>tems;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7215	7377	
==>tems;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4761	4863	
==>$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4761	4863	
==>$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4761	4863	
==>$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7841	7962	
==>unction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7841	7962	
==>unction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7841	7962	
==>unction (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	274	378	
==>->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	274	378	
==>->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	274	378	
==>->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	589	727	
==>l_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	589	727	
==>l_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	589	727	
==>l_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39941	40072	
==>b new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39941	40072	
==>b new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39941	40072	
==>b new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14374	14475	
==>h string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

Th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14432	14533	
==>h string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

Th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1172	1292	
==>tring("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        i <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	484	593	
==>es
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archna <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	484	593	
==>es
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archna <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	811	906	
==>:minimal> argument, which, if present, tells
the combinator to succeed as soon as it has matched <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	811	906	
==>:minimal> argument, which, if present, tells
the combinator to succeed as soon as it has matched <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4692	4794	
==>ds Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4692	4794	
==>ds Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5214	5318	
==>SSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5214	5318	
==>SSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5214	5318	
==>SSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript::SpiderM <==
3	/Users/nnunley/pugs/util/package-osx.pl	3911	4008	
==>man3/Perl6::Bible::A04.3pm
        /usr/local/man/man3/Perl6::Bible::A05.3pm
        /usr/local/ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17783	17877	
==>er compilation, because C<perl> has
already been doing the C<.pmc> check on every module load s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17783	17877	
==>er compilation, because C<perl> has
already been doing the C<.pmc> check on every module load s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2548	2664	
==>$pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2548	2664	
==>$pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2548	2664	
==>$pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5383	5509	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5383	5509	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5383	5509	
==>oxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1257	1480	
==>"$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1257	1480	
==>"$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10083	10203	
==>find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->availa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17006	17162	
==>dy.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop havi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20483	20639	
==>dy.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop havi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20061	20217	
==>dy.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have fewer
        # iterations rather than the inner loop havi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17356	17488	
==>") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13777	13909	
==>") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	517	756	
==>t( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	518	757	
==>t( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   rul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16549	16647	
==>f a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation::Example *@ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19603	19688	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19603	19688	
==>yedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6125	6240	
==>tation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6125	6240	
==>tation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6125	6240	
==>tation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12734	12857	
==>boxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12734	12857	
==>boxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12734	12857	
==>boxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	344	448	
==>g the "purely functional" aspects of it in favor of 
a more practical closure based system, similar to wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1428	1545	
==>nt($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1428	1545	
==>nt($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1428	1545	
==>nt($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    retu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4942	5067	
==>),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4942	5067	
==>),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta" <==
3	/Users/nnunley/pugs/util/package-osx.pl	4611	4708	
==>man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/local/ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6960	7069	
==>();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6960	7069	
==>();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6960	7069	
==>();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- list <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8682	8808	
==>oclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .ret <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	856	954	
==>evious($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	856	954	
==>evious($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3418	3547	
==>uild) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3418	3547	
==>uild) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3418	3547	
==>uild) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2583	2713	
==>rn circumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9386	9484	
==>` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, it ma <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9386	9484	
==>` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, it ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8084	8244	
==>res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ), <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3085	3197	
==>t
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3085	3197	
==>t
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1960	2059	
==>expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expec <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2018	2117	
==>expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expec <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19084	19178	
==>ft (@array) is builtin is primitive { List::shift(@array) };
multi shift ($array) is builtin is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5699	5813	
==>ite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5699	5813	
==>ite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5699	5813	
==>ite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1172	1273	
==>th working to finish.  So, we
# bootstrap to something cleaner and simpler.  Even though it will
# lik <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35333	35428	
==>em C<get_set_names()>

This method returns all Set Names elements in this object as an array ref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35333	35428	
==>em C<get_set_names()>

This method returns all Set Names elements in this object as an array ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2868	3018	
==>STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2868	3018	
==>STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2868	3018	
==>STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms} }) .
    ";\n" .
    $self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1720	1818	
==>primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1720	1818	
==>primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1720	1818	
==>primitive { JS::inline('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2786	2898	
==>mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2786	2898	
==>mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2786	2898	
==>mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4755	4860	
==>->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported ye <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4755	4860	
==>->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported ye <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4755	4860	
==>->{slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported ye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6459	6574	
==>:Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6459	6574	
==>:Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6459	6574	
==>:Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2093	2242	
==>Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16762	16859	
==>merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time aro <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16762	16859	
==>merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time aro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2308	2408	
==>fix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2308	2408	
==>fix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2308	2408	
==>fix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = St <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1221	1369	
==>en: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1221	1369	
==>en: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12561	12657	
==>es created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Document $docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12561	12657	
==>es created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Document $docu <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3438	3552	
==>unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cooki <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3438	3552	
==>unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cooki <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2107	2323	
==>= Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5584	5800	
==>= Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4514	4730	
==>= Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4854	4949	
==>mplementation is, of course, incorrect. There is *no* attention
# paid to the associativity of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4854	4949	
==>mplementation is, of course, incorrect. There is *no* attention
# paid to the associativity of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4854	4949	
==>mplementation is, of course, incorrect. There is *no* attention
# paid to the associativity of t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	691	817	
==>t',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden', <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	691	817	
==>t',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6470	6585	
==>+>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6470	6585	
==>+>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6470	6585	
==>+>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14760	14862	
==>lue, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14760	14862	
==>lue, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1291	1404	
==>wer of Perl 6 defaults and
Currying in a real context.

The newton function must receive at least:

    y - target <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9272	9374	
==>ty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9272	9374	
==>ty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3267	3381	
==>or my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3267	3381	
==>or my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3267	3381	
==>or my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1866	1970	
==>t: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1866	1970	
==>t: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1866	1970	
==>t: undef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2738	2843	
==>pc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2738	2843	
==>pc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2738	2843	
==>pc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	118	218	
==>s $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	118	218	
==>s $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1050	1154	
==>ulti sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for strin <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1050	1154	
==>ulti sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for strin <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1585	1684	
==>zip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25215	25363	
==>ub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25494	25642	
==>ub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25114	25224	
==>t the start of the r.e., which can involve a lot of backup).  Regmlen is
 * supplied because the test in pregex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26928	27024	
==>ethod is the same as C<project> but that the returned Relation has
the complement subset of the o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31480	31576	
==>ethod is the same as C<project> but that the returned Relation has
the complement subset of the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	363	486	
==>f = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	363	486	
==>f = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	363	486	
==>f = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current || return)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5976	6081	
==>g);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB pref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5976	6081	
==>g);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB pref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5976	6081	
==>g);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)};
#MULTI SUB pref <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2125	2273	
==>qual',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    preced <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1596	1688	
==>es/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can fin <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1596	1688	
==>es/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can fin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1425	1553	
==>:opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1630	1758	
==>:opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1691	1819	
==>:opaque_instance_attrs($class)->{'%:methods'}{$label};
            goto &$method if $method;

            # try again in the supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14383	14516	
==>patcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14383	14516	
==>patcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14383	14516	
==>patcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	322	491	
==>/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	322	491	
==>/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($st <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1429	1542	
==>($6), :second( $second ),
          :tz($tz) );
}

# convert from a unix time_t
multi sub time_t( Int $time_t ) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5047	5151	
==>ush @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5047	5151	
==>ush @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5047	5151	
==>ush @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11302	11442	
==>eturn "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        unless $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7496	7599	
==>{
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7496	7599	
==>{
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7496	7599	
==>{
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32780	32948	
==>1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32780	32948	
==>1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32780	32948	
==>1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12917	13095	
==>lf->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12917	13095	
==>lf->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12917	13095	
==>lf->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7490	7621	
==>nterface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7490	7621	
==>nterface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22092	22193	
==>printf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22092	22193	
==>printf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22092	22193	
==>printf(p6_to_s($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	839	988	
==>re => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	806	947	
==>re => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34648	34779	
==>C<[.NAME.]>); otherwise, reference to I<alnum>, I<digit>,
I<space>, or I<prop> object

Neg: 1 if negated

=head2 anyof_close

Family <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1276	1371	
==>didn't match.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it do <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1276	1371	
==>didn't match.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it do <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	83	190	
==>n the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Gra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	51	158	
==>n the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	83	190	
==>n the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Gra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2144	2276	
==>$code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2144	2276	
==>$code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2144	2276	
==>$code;
        $editor->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	285	478	
==>e of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	285	478	
==>e of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	285	478	
==>e of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	843	935	
==>::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	843	935	
==>::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	843	935	
==>::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3332	3441	
==>ot match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6809	6918	
==>ot match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some v <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5766	5875	
==>ot match this relation's attributes."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1981	2275	
==>q 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1981	2275	
==>q 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1981	2275	
==>q 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6012	6131	
==>num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6012	6131	
==>num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3857	3955	
==>'*'> <PostAsteriskCommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotFo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23256	23353	
==>nternals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23256	23353	
==>nternals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23256	23353	
==>nternals::hSeek ($xx0,$xx1,$xx2) {...};

# op4
MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6730	6834	
==>age PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6730	6834	
==>age PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6730	6834	
==>age PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	674	784	
==>tring { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	674	784	
==>tring { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	674	784	
==>tring { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	918	1040	
==>o?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	918	1040	
==>o?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	918	1040	
==>o?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15079	15263	
==>nstance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15079	15263	
==>nstance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15079	15263	
==>nstance') 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, f <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	457	574	
==>args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	457	574	
==>args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2654	2771	
==>ray *@arrays --> Lazy) { zip *@arrays }
# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9065	9176	
==>hods
  method channels()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9065	9176	
==>hods
  method channels()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	326	425	
==>ss {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	326	425	
==>ss {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	326	425	
==>ss {
      pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4190	4299	
==>b { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4190	4299	
==>b { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4190	4299	
==>b { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38268	38380	
==>d 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38268	38380	
==>d 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38268	38380	
==>d 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2651	2767	
==>$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2651	2767	
==>$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2651	2767	
==>$name => 'Perl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	341	438	
==>rt + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	341	438	
==>rt + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23152	23246	
==>ude variables, use C<qr//>, or mix single-
and double-quoted strings in building your regex.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1556	1663	
==>2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1556	1663	
==>2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1556	1663	
==>2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	944	1068	
==>_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	944	1068	
==>_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	944	1068	
==>_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2775	2900	
==>erl 6 pattern matching namespace
    List        Perl list
    Lazy        Lazily evaluated Perl list
    Eager       Non-lazi <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	196	295	
==>ining a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub eval <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	252	351	
==>ining a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3007	3098	
==>{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3007	3098	
==>{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3007	3098	
==>{editor}->($obj, $namespace); # re{bless,base} ref
		return $obj if $class->need_prune($res) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10005	10110	
==>me = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36708	36803	
==>nd using the Translator object's Set and Member properties; if none
could be matched, this metho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36708	36803	
==>nd using the Translator object's Set and Member properties; if none
could be matched, this metho <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3890	4028	
==>);
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # ke <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6457	6556	
==>et_member_combinations()} -> $module_name {
        # Determine if requested template module is alre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6457	6556	
==>et_member_combinations()} -> $module_name {
        # Determine if requested template module is alre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5066	5194	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5259	5387	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15314	15429	
==>ada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10092	10280	
==>{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10092	10280	
==>{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4145	4258	
==>am->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4145	4258	
==>am->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4735	4848	
==>am->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	323	450	
==>ub new {
    my (undef, $value) = @_;
    (defined $value            && 
     looks_like_number($value) && 
     ($value == 1 || <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	58	149	
==>mmar.
Here is a place to accumulate one.

Resources:
  http://search.cpan.org/dist/Perl6-Bib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7271	7372	
==>>version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7271	7372	
==>>version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7271	7372	
==>>version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4630	4731	
==>ty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on :: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4630	4731	
==>ty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on :: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4630	4731	
==>ty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on :: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4149	4247	
==>kip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4149	4247	
==>kip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6346	6444	
==>kip = 0>

This parameter defaults to false. If it is true, the factory returns a
Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4018	4144	
==>ot suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4018	4144	
==>ot suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4018	4144	
==>ot suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1203	1310	
==>lue.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1203	1310	
==>lue.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class P <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4719	4814	
==>)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4719	4814	
==>)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6841	6954	
==>$_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6841	6954	
==>$_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5946	6076	
==>s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5946	6076	
==>s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5946	6076	
==>s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0]->name_required; -- not used in PIL-v1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2028	2146	
==>f, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2028	2146	
==>f, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2028	2146	
==>f, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_role = _build_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6121	6239	
==>p1} eq 'method_call' ) {    
        #warn "method_call: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'pri <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1290	1396	
==>ort {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know bett <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1290	1396	
==>ort {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know bett <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4657	4783	
==>"frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oe <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4657	4783	
==>"frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1073	1193	
==>rrors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval {
        require <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3914	4045	
==>!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3914	4045	
==>!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3914	4045	
==>!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8246	8381	
==>ar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8439	8574	
==>ar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1796	1923	
==>rint join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $str = '' <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	550	653	
==>ass.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	550	653	
==>ass.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2817	2921	
==>_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2817	2921	
==>_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2817	2921	
==>_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17797	17923	
==>eop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18076	18202	
==>eop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	133	240	
==>ugs -CPIL2-JSON -e ' say "hello" ' | \
    ../../pugs pil2_json_emit_p6.p6

  #! /usr/bin/pugs
  use v6;
  & <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1120	1242	
==>~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1120	1242	
==>~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19207	19316	
==>imP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19207	19316	
==>imP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19207	19316	
==>imP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) != p6_to_n($xx1)) };
MULTI SUB infix:<==> ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9674	9790	
==>he heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13151	13267	
==>he heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12423	12539	
==>he heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1453	1575	
==>e_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	556	671	
==>.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	556	671	
==>.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	556	671	
==>.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12972	13091	
==>method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12972	13091	
==>method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12972	13091	
==>method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add_method('_get_method_table' => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5537	5640	
==>w (%:private_methods)) (hash)
     (attribute new (%:attributes))      (hash)
     (attribute new (%:met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27613	27713	
==>iginal (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32165	32265	
==>iginal (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31257	31357	
==>iginal (or rather, the corresponding extension of
each tuple).  Each value of C<$attrs> is an anonymo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	640	735	
==>igest = (
    Blondie::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map { native($_) <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10675	10769	
==>th a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10675	10769	
==>th a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7967	8139	
==>null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7967	8139	
==>null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7967	8139	
==>null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	699	821	
==>ddir ] )    and die "$?";

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8864	9006	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8864	9006	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8864	9006	
==>{
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7613	7715	
==>from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7613	7715	
==>from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7613	7715	
==>from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12505	12639	
==>>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12505	12639	
==>>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12505	12639	
==>>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1727	1845	
==>) );
    return "$ident->$meth($list)";
}
sub node::meth_call {
    my $ident = get_str( $_[0], '$<class>' );
    my $m <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1822	1922	
==>onfig->lookup('smoke_concurrent') || 1);
push(@yaml_harness_args,'--exclude','Disabled,^ext\b')
    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31949	32043	
==>::Example
which is the same as the invocant Relation::Example but that some of its attributes
h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	28	123	
==>cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	28	123	
==>cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	28	123	
==>cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.1415926535897932384626433 <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1122	1247	
==>omp_cc(\%cc)} ];
    }
    print ::Y(\%allccs),"\n";
}
#print $g->as_png unless $Conf{no};

if ($Conf{nodes}) {
    print ::Y( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9656	9763	
==>a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9656	9763	
==>a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO pe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2143	2270	
==>iag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2143	2270	
==>iag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2223	2350	
==>iag      = ();

    my $received_out  = $tb_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matc <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3259	3373	
==>=> 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $r <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3259	3373	
==>=> 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5426	5528	
==>would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5426	5528	
==>would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5426	5528	
==>would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	349	604	
==>ackages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	349	604	
==>ackages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	250	353	
==>cant typed to the
Role it is attached to (however, this is a trend and not a rule).

=item *

A method i <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4384	4758	
==>ted}{-delim=>'/'}{-keep}    # Regex
                          ([xim]*)                              # RE options
                        )?                                      # End of regex block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	157	255	
==>unctional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	157	255	
==>unctional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	164	284	
==>undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2900	3108	
==>ll->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2900	3108	
==>ll->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2900	3108	
==>ll->{v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1320	1519	
==>eop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1447	1646	
==>eop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3098	3193	
==>e::Backend::Foo->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

The compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5382	5485	
==>tainer_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var ty <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5382	5485	
==>tainer_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var ty <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5972	6075	
==>tainer_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12749	12936	
==>>{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12749	12936	
==>>{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12749	12936	
==>>{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8639	8736	
==>)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8639	8736	
==>)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8639	8736	
==>)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
sub doublequote( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3975	4115	
==>$pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3975	4115	
==>$pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19064	19197	
==>patcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19064	19197	
==>patcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19064	19197	
==>patcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13811	13912	
==>($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13811	13912	
==>($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13811	13912	
==>($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB pr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2083	2249	
==>", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2083	2249	
==>", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	823	939	
==>ft);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->reduce($ast);
}

sub re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13530	13628	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13530	13628	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13530	13628	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	154	326	
==>K     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	154	326	
==>K     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	154	326	
==>K     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3385	3520	
==>y.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3385	3520	
==>y.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3385	3520	
==>y.
    var array = [].concat(args[1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8270	8437	
==>[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8270	8437	
==>[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8270	8437	
==>[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1068	1186	
==>readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named varia <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1068	1186	
==>readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named varia <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10707	10802	
==>string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2208	2349	
==>?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	205	332	
==>?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	205	332	
==>?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40325	40440	
==>ue ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40325	40440	
==>ue ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40325	40440	
==>ue ) = @_;
    push @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1218	1321	
==>:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Dat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1218	1321	
==>:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Dat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1218	1321	
==>:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS.Box.Constant((new Dat <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4760	4857	
==>1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4760	4857	
==>1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new <==
3	/Users/nnunley/pugs/util/package-osx.pl	266	361	
==>t =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/bin/remove-$1.pl";

my (%symlinks, %change_fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1539	1648	
==>6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1539	1648	
==>6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1539	1648	
==>6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21588	21736	
==>ss = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21588	21736	
==>ss = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21588	21736	
==>ss = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4234	4332	
==>rs for block size and so on; see the cipher module's documentation for 
details.  The C<mode> value <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4234	4332	
==>rs for block size and so on; see the cipher module's documentation for 
details.  The C<mode> value <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	146	235	
==>ule::Install::Base; @ISA = qw(Module::Install::Base);

sub include { +shift->admin->includ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9859	9955	
==>on($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9859	9955	
==>on($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too. <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14547	14649	
==>ates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14547	14649	
==>ates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13092	13207	
==>lt is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16569	16684	
==>lt is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15931	16046	
==>lt is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1319	1476	
==>n Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Depend <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1319	1476	
==>n Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Depend <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8533	8630	
==>r::binary', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1406	1533	
==>and {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1406	1533	
==>and {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1406	1533	
==>and {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4784	4896	
==>{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4784	4896	
==>{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4784	4896	
==>{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	817	928	
==>$::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	817	928	
==>$::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ... <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	817	928	
==>$::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ... <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	631	830	
==>eop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	632	831	
==>eop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	375	483	
==>ws", "PGE::Exp::Anchor");
    $optable->addToken("term:^", "term:", "nows", "PGE::Exp::Anchor");
    $optable <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5444	5552	
==>l:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5444	5552	
==>l:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7641	7749	
==>l:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4759	4864	
==>air such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4759	4864	
==>air such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6283	6388	
==>air such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7817	7937	
==>{ return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7817	7937	
==>{ return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7817	7937	
==>{ return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	27	134	
==>use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	27	134	
==>use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	27	134	
==>use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13592	13771	
==>ist->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13592	13771	
==>ist->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13592	13771	
==>ist->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4033	4140	
==>e autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4033	4140	
==>e autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4033	4140	
==>e autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals::Hacks::init_un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23553	23659	
==>_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23553	23659	
==>_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23553	23659	
==>_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19758	19864	
==>rnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my($fn)=@_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1404	1503	
==>nt
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a tru <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1404	1503	
==>nt
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a tru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1011	1108	
==>H(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1011	1108	
==>H(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1011	1108	
==>H(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2014	2194	
==>m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Pa <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2014	2194	
==>m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Pa <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	268	379	
==>OK = qw(node head tail drop upto upfrom show promise
#                 filter transform merge list_to_stream cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16072	16181	
==>6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16072	16181	
==>6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16072	16181	
==>6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10501	10626	
==>uires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # --- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10501	10626	
==>uires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # --- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10501	10626	
==>uires the following interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # --- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	256	359	
==>parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	256	359	
==>parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	556	650	
==>e.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ versio <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	537	652	
==>such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	537	652	
==>such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2674	2786	
==>zip_file {
    my ($in, $out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $! <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19348	19439	
==>(E0,C0),
  % match_captures(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3690	3845	
==>scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3690	3845	
==>scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3690	3845	
==>scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3239	3340	
==>ee_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3239	3340	
==>ee_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3239	3340	
==>ee_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	500	605	
==>ive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	500	605	
==>ive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	500	605	
==>ive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args.shift(), cc = args. <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2034	2229	
==>x   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14798	14921	
==>ing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14798	14921	
==>ing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14798	14921	
==>ing, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16352	16461	
==>turn keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute when it's declare <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16352	16461	
==>turn keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute when it's declare <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16352	16461	
==>turn keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribute when it's declare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	536	643	
==>L2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	536	643	
==>L2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	536	643	
==>L2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub us <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5544	5677	
==>($r,$name);
  push(@operators,[$r,$op]);
  $r;
}

# so Regexp::Parser doesn't have to struggle with the {?{...})
sub hlp_ws {  def_whi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	681	783	
==>e { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1271	1373	
==>e { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3291	3401	
==>be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) act <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3291	3401	
==>be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) act <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3291	3401	
==>be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) act <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1784	1905	
==>offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1784	1905	
==>offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1784	1905	
==>offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	698	831	
==>turn_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	698	831	
==>turn_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	698	831	
==>turn_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9097	9241	
==>new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9097	9241	
==>new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9097	9241	
==>new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10398	10519	
==>son = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2419	2528	
==>son = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2419	2528	
==>son = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1631	1731	
==>$statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1631	1731	
==>$statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	876	991	
==>= String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	876	991	
==>= String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	876	991	
==>= String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# St <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7113	7228	
==>O
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7113	7228	
==>O
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        pr <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21896	21999	
==>h($failed_str);
    foreach my $script (keys %$failedtests) {
        my $namelen = length $failedtests- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5091	5193	
==>-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5091	5193	
==>-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5091	5193	
==>-dump       Only output the input PIL as YAML; don't compile anything.

When compiling (--link option n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2815	2920	
==>te' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2815	2920	
==>te' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2815	2920	
==>te' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	500	594	
==>ouldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	500	594	
==>ouldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	500	594	
==>ouldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Couldn't setrli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2897	3019	
==>ttp://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepa <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2897	3019	
==>ttp://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1054	1147	
==>d implicit abstraction kludge would be
# unsustainable, and unsuitable for anything but throwa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6797	6920	
==>perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6797	6920	
==>perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6797	6920	
==>perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1737	1867	
==>nth - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1737	1867	
==>nth - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2123	2218	
==>ress = sub { Compress::Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4074	4270	
==>$_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16053	16154	
==>cates the date and time at which the resource was last
modified. I<E.g.>:

  # check if document is mo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16053	16154	
==>cates the date and time at which the resource was last
modified. I<E.g.>:

  # check if document is mo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15239	15338	
==>$self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9437	9536	
==>$self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6836	6941	
==>itive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6836	6941	
==>itive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6836	6941	
==>itive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    va <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	566	665	
==>Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	566	665	
==>Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1657	1778	
==>"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1657	1778	
==>"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1657	1778	
==>"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { " <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23114	23274	
==>on}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Curtest <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1291	1389	
==>ter for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AU <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1291	1389	
==>ter for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AU <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	292	404	
==>uild_requires requires recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20633	20742	
==>r(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17054	17163	
==>r(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	0	99	
==>sub statement_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	0	99	
==>sub statement_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	0	99	
==>sub statement_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1742	1863	
==>but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1742	1863	
==>but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1742	1863	
==>but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12374	12544	
==>METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12374	12544	
==>METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12374	12544	
==>METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5226	5433	
==>the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5226	5433	
==>the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @ <==
3	/Users/nnunley/pugs/util/package-osx.pl	5388	5491	
==>al/man/man3/Perl6::FAQ::Capture.3
        /usr/local/man/man3/Perl6::FAQ::Capture.3pm
        /usr/local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1585	1701	
==>ntation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1585	1701	
==>ntation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1585	1701	
==>ntation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	479	589	
==>indBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	479	589	
==>indBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	479	589	
==>indBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	137	331	
==>T =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	137	331	
==>T =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	137	331	
==>T =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1008	1158	
==>$class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5574	5714	
==>ift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{$p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5397	5532	
==>ift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{$p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32346	32445	
==>an array reference of arguments to object() that will produce
its ending node:

  # the 'open' node' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25862	25954	
==>keys do not match invocant
Relation attribute names, or any C<$mapping> values duplicate each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30414	30506	
==>keys do not match invocant
Relation attribute names, or any C<$mapping> values duplicate each <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5932	6027	
==>e_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5932	6027	
==>e_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
nod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2831	2926	
==>e_s 'SubType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
nod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2199	2321	
==>rl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	196	306	
==>rl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	196	306	
==>rl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	705	811	
==>e slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	705	811	
==>e slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	705	811	
==>e slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lis <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13667	13760	
==>his type os span is used to represent continuous measurements, such as times, temperatures, or <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13667	13760	
==>his type os span is used to represent continuous measurements, such as times, temperatures, or <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4574	4687	
==>indings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4966	5079	
==>indings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5477	5590	
==>indings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9865	9959	
==>e".

Recurrence sets can be combined with union, intersection, difference, and a few
other oper <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9865	9959	
==>e".

Recurrence sets can be combined with union, intersection, difference, and a few
other oper <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	293	378	
==>itialize_package("main",'package');
    Perl6::Run::OnPerl5::X1::Prelude::initialize() <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12139	12233	
==>. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12139	12233	
==>. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1690	1811	
==>rt         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.liv <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1690	1811	
==>rt         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.liv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4047	4149	
==>ass is now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5949	6051	
==>ass is now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5380	5526	
==>it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section works f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5844	5990	
==>it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section works f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	502	595	
==>st scheme code):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is still relative <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2202	2298	
==>Real solvers usually do
a bit of algorithm switching.  When their fast method fails, they fall ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6899	6990	
==>tered_content = $class->pmc_process($real_content);
        $class->$post_process($filtered_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6899	6990	
==>tered_content = $class->pmc_process($real_content);
        $class->$post_process($filtered_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8178	8292	
==>arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8178	8292	
==>arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8178	8292	
==>arr instanceof Array)) {
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6833	6973	
==>CH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6833	6973	
==>CH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6833	6973	
==>CH: @param\n";
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2756	2855	
==>s')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2756	2855	
==>s')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2756	2855	
==>s')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34579	34681	
==>ale::KeyedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34579	34681	
==>ale::KeyedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6939	7040	
==>JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6939	7040	
==>JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6939	7040	
==>JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher })')($rule);
}
for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1250	1379	
==>r;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1250	1379	
==>r;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1250	1379	
==>r;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1515	1624	
==>ain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1515	1624	
==>ain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1515	1624	
==>ain {
    "PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34779	34879	
==>head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34779	34879	
==>head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34779	34879	
==>head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3364	3468	
==>map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3364	3468	
==>map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.add <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3364	3468	
==>map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.add <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4214	4352	
==>e   (Array)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14750	14869	
==>?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14750	14869	
==>?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	844	951	
==>nt_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1050	1157	
==>nt_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10388	10485	
==>, ",map {"\$$_"} @{$info->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatch:\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	114	213	
==>ues in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	114	213	
==>ues in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	114	213	
==>ues in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5012	5122	
==>make sure that the removed child
    # is no longer connected to the parent
    # so we change its parent to RO <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5012	5122	
==>make sure that the removed child
    # is no longer connected to the parent
    # so we change its parent to RO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14980	15076	
==>merely the author's suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers for C<< < >> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7815	7932	
==>},
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7815	7932	
==>},
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7815	7932	
==>},
            'str' => sub { Str->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	681	783	
==>$app->values;

    $self->prepare_scope(@params);

    # profiling actually slows this down by around 3 <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	61	152	
==>s Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_addre <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	61	152	
==>s Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_addre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10404	10525	
==>'' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2425	2534	
==>'' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2425	2534	
==>'' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1763	1891	
==>Value',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4005	4102	
==>gs = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4005	4102	
==>gs = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4005	4102	
==>gs = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12381	12566	
==>brule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12375	12560	
==>brule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4378	4495	
==>y($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4378	4495	
==>y($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4378	4495	
==>y($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5343	5438	
==>'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5343	5438	
==>'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5343	5438	
==>'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4803	4909	
==>2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4803	4909	
==>2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4803	4909	
==>2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4203	4293	
==>e_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4203	4293	
==>e_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4203	4293	
==>e_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3483	3586	
==>C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3483	3586	
==>C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5680	5783	
==>C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2748	2841	
==>elf }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2748	2841	
==>elf }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2748	2841	
==>elf }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1709	1810	
==>w(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1709	1810	
==>w(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.conten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3283	3397	
==>expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3283	3397	
==>expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3283	3397	
==>expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_var;

    my $invocant = defined $self->{'pInv'} ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4730	4894	
==>('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4730	4894	
==>('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4730	4894	
==>('$:cell')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shi <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	8	108	
==>iable context
package Perl::Cxt;

# from src/Pugs/Types.hs

# I can't think of a simple way to expres <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	26	123	
==>use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefi <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	26	123	
==>use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11965	12095	
==>e $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} ! <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11965	12095	
==>e $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} ! <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11965	12095	
==>e $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _('$:cell')->{tieable} ! <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	926	1051	
==>s are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Foo but not x" is expressed as
#     < <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9223	9315	
==>and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9223	9315	
==>and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7986	8131	
==>=> {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7986	8131	
==>=> {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7986	8131	
==>=> {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (mo <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1932	2036	
==>ory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1932	2036	
==>ory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	583	696	
==>%hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($c <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	583	696	
==>%hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($c <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	6	112	
==>erl 5 könnte das etwas so aussehen:
if (wurf() == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 ge <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5718	5818	
==>both these interfaces can be
# addressed.  One possibility is to return a negative value for
# relati <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5718	5818	
==>both these interfaces can be
# addressed.  One possibility is to return a negative value for
# relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10268	10415	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10268	10415	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10268	10415	
==>rs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11803	11955	
==>relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15280	15432	
==>relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14615	14767	
==>relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9116	9235	
==>m:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9116	9235	
==>m:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^b <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	947	1063	
==>r(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22594	22710	
==>>add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19015	19131	
==>>add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1519	1618	
==>"-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1519	1618	
==>"-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1519	1618	
==>"-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3312	3432	
==>t cygwin variable gives us a hint to the
        # cygwin root.  There is probably a better way to find this.
        # ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4915	5024	
==>urn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4915	5024	
==>urn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21580	21675	
==>B unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21580	21675	
==>B unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21580	21675	
==>B unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15618	15731	
==>, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15618	15731	
==>, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15618	15731	
==>, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easier

{
    use Class::Mu <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3840	3943	
==>f->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5200	5302	
==>f->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13760	13881	
==>tr->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13760	13881	
==>tr->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13760	13881	
==>tr->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4493	4636	
==>her->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4493	4636	
==>her->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4493	4636	
==>her->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1772	1889	
==>die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5249	5366	
==>die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4179	4296	
==>die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6925	7075	
==>ll')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6925	7075	
==>ll')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6925	7075	
==>ll')->{v};
                my $key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7739	7905	
==>->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7739	7905	
==>->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7739	7905	
==>->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slice( 0 .. P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1478	1588	
==>hift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1478	1588	
==>hift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1478	1588	
==>hift();
    var cc  = args.pop();

    if(args[0].uid && args[1].uid) {
      cc(new PIL2JS.Box.Constant(args[0 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	661	758	
==>is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TOD <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	661	758	
==>is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TOD <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7964	8053	
==>, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variable::ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	379	478	
==>st context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	379	478	
==>st context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	379	478	
==>st context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5639	5773	
==>B capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the begin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5639	5773	
==>B capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the begin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5639	5773	
==>B capitalize ($xx) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the begin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23294	23396	
==>is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
fu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27846	27948	
==>is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
fu <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	836	978	
==>fix:<+>'),
							Sym('$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user sub as value",
	},
	{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27223	27319	
==>is method is a generic relational operator that returns a new Relation
which has a superset of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31775	31871	
==>is method is a generic relational operator that returns a new Relation
which has a superset of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3718	3817	
==>_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3718	3817	
==>_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3718	3817	
==>_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2515	2632	
==>info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2515	2632	
==>info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2515	2632	
==>info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--ru <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1844	1955	
==>7 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_admin;

    # merge bot <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2554	2652	
==>em conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2554	2652	
==>em conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2622	2721	
==>y qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2622	2721	
==>y qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2622	2721	
==>y qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &in <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19542	19668	
==>($for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	22	132	
==>::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	22	132	
==>::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1115	1256	
==>ication! - returns **CONTAINER**
                my $self = shift;
                my $idx = shift;
                $self->get_value('@:slots' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2584	2689	
==>eturn ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2584	2689	
==>eturn ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3635	3756	
==>nd == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3635	3756	
==>nd == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2084	2183	
==>pyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2084	2183	
==>pyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2084	2183	
==>pyright 2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1256	1372	
==>_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1256	1372	
==>_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1256	1372	
==>_apply() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	943	1074	
==>t.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.chil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	943	1074	
==>t.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.chil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	943	1074	
==>t.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12872	12969	
==>...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::saf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12872	12969	
==>...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::saf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12872	12969	
==>...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::saf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5067	5183	
==>$item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5067	5183	
==>$item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5067	5183	
==>$item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1375	1486	
==>String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1375	1486	
==>String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1375	1486	
==>String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "Stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29037	29137	
==>ge Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29037	29137	
==>ge Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29037	29137	
==>ge Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use con <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8087	8211	
==>.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8087	8211	
==>.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13526	13709	
==>y_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13805	13988	
==>y_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7715	7806	
==>e will unify it's instantiated value instead of itself
multi unify => ('type::variable::inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1256	1351	
==>meout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1256	1351	
==>meout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1256	1351	
==>meout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2048	2190	
==>thods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2253	2395	
==>thods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_cl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22456	22587	
==>+ $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s", $failed_str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10681	10828	
==>::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10960	11107	
==>::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statemen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2309	2433	
==>->id . " -- node_" . $class->id . " [ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEEN{$class} = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5357	5457	
==>tespaceOperatorTable();
  
  (substr $target, $position, $lastPosition) =~ m/[^\s]/;
  $whitespacePos <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	127	225	
==>ss: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	127	225	
==>ss: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	261	372	
==>e relevant files to the repo
    for my $archive ( qx[find root-* -type f | grep '$Ext\$'] ) {
        chomp $ar <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5491	5589	
==>t<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5491	5589	
==>t<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25111	25207	
==>to have zero attributes, though such a Relation::Example can have no
more than a single tuple.  A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6467	6672	
==>}
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6467	6672	
==>}
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6467	6672	
==>}
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13007	13108	
==>witches} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20089	20185	
==>al order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to declar <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20089	20185	
==>al order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to declar <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15510	15638	
==>"TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15510	15638	
==>"TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12919	13014	
==>td><a style="text-decoration: none" href="<tmpl_var name=link>" title="Full smoke report">&raquo <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2809	2975	
==>1;
        while $i <= $final {
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist ye <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15587	15706	
==>self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21758	21877	
==>self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9353	9488	
==>ub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9353	9488	
==>ub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9353	9488	
==>ub { $count--; return if $count < 0; $item },
        cend =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1231	1326	
==>e put to other uses as well.

Log::Selective exports a single function, C<note>, which is called <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1231	1326	
==>e put to other uses as well.

Log::Selective exports a single function, C<note>, which is called <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8264	8370	
==>e";

    return $line;
}


=head2 C<_command>

  my $command = $self->_command();

Returns the command that <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2955	3042	
==>ome::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, whi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2955	3042	
==>ome::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, whi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2652	2788	
==>n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2869	3005	
==>n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14509	14619	
==>ile: $@" ), return;
    
    my @alts = map { $_->to_struct } @{ $self->registered_alternatives };
    eval { D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40352	40469	
==>->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40352	40469	
==>->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40352	40469	
==>->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13451	13551	
==>intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13451	13551	
==>intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24218	24299	
==>[],flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_G),C0).
match_captures(ama <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	207	309	
==>returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	207	309	
==>returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	207	309	
==>returns Class { 
    $?CLASS.bless(undef, %params);
});

::Class.meta.add_method('bless' => method ($ca <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2581	2695	
==>s Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6058	6172	
==>s Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4988	5102	
==>s Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!body;
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1525	1627	
==>();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1525	1627	
==>();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1525	1627	
==>();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumf <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3756	3860	
==>ass->SUPER::new;

	$self->{left} = shift;
	$self->{right} = shift;
	
	# FIXME - this is a hack for L::AG, <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3784	3880	
==>)`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", an <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3784	3880	
==>)`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29477	29574	
==>node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj->omit(VALUE <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32314	32409	
==>ts Template modules to come
from Perl modules, but in the future they may alternately be somethi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32314	32409	
==>ts Template modules to come
from Perl modules, but in the future they may alternately be somethi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4003	4115	
==>t)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4003	4115	
==>t)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12402	12498	
==>R HANDLING

=head2 Determining Error

Use the errmsg() and errnum() methods to get the error info <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1719	1861	
==>command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->mayb <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2638	2755	
==>l the script files
        for my $script ( @{ $href->{$pkg}->{bin} || [] } ) {
            1 while unlink "$Bindir/$s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1612	1709	
==>command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->mayb <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11927	12046	
==>k

Any Criterion may recieve either or both of the traits C<is descending>
and C<is insensitive> to reverse the order of <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	70	167	
==>est::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnosti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	70	167	
==>est::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnosti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24233	24331	
==>ero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28785	28883	
==>ero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member th <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	728	821	
==>--dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude| <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11412	11546	
==>}{op} eq ':=' ) {
        #warn "bind: ", Dumper( $n );
        return " tie " . _emit( $n->{exp1} ) . 
            ", 'Pugs::Runtim <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4338	4462	
==>ix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4338	4462	
==>ix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24786	24885	
==>pretty print (a -> b) -> c");
}
{
	my $type = type::operator::arrow->new(
		type::variable::free->ne <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21066	21156	
==>uch as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21066	21156	
==>uch as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2044	2142	
==>>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
dist <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2044	2142	
==>>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
dist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16104	16213	
==>eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16104	16213	
==>eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16104	16213	
==>eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	640	745	
==>nd the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	640	745	
==>nd the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	640	745	
==>nd the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3767	3892	
==>depc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3767	3892	
==>depc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3767	3892	
==>depc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  print $fh $js                     or die "Couldn't write <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5961	6059	
==>y $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5961	6059	
==>y $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5961	6059	
==>y $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6870	6984	
==>my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6870	6984	
==>my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6870	6984	
==>my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	166	265	
==>ub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	166	265	
==>ub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	166	265	
==>ub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18109	18237	
==>lass;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24728	24856	
==>lass;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $se <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	863	976	
==>_odd (Num $x) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?RO <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2167	2275	
==>$Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2167	2275	
==>$Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	512	611	
==>rectory:
</p>
<ul>
END

my @dir = glob "/home/*/public_html/*";
my @users = keys %{ { map { (split m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8866	8979	
==>{
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8866	8979	
==>{
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8866	8979	
==>{
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,[ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5763	5859	
==>eturns Hash>

This method calls the superclass C<status> method and adds the values of the
test's <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5763	5859	
==>eturns Hash>

This method calls the superclass C<status> method and adds the values of the
test's <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7960	8056	
==>eturns Hash>

This method calls the superclass C<status> method and adds the values of the
test's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40410	40516	
==>nshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40410	40516	
==>nshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40410	40516	
==>nshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3662	3779	
==>ar $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3662	3779	
==>ar $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3662	3779	
==>ar $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var %s = unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4449	4543	
==>SA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4449	4543	
==>SA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4449	4543	
==>SA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pR <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4195	4324	
==>' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4195	4324	
==>' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1045	1174	
==>' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  , <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3362	3489	
==>que_instance_attrs($self)->{'%:methods'}->{$label} ? 1 : 0;
        },        
        'add_method' => sub ($$$) {
            m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6459	6558	
==>_member_combinations()} -> $module_name {
        # Determine if requested template module is alread <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6459	6558	
==>_member_combinations()} -> $module_name {
        # Determine if requested template module is alread <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	223	337	
==>base where { $base > 0 })
    returns Num { ... }

# mmm, curry!
&log10<> := &log<>.assuming:base(10);

multi sub r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1969	2079	
==>hen Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1969	2079	
==>hen Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30477	30575	
==>er> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35028	35126	
==>er> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34210	34308	
==>er> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argumen <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8523	8619	
==>ing it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take respons <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8523	8619	
==>ing it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take respons <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6571	6694	
==>= $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6571	6694	
==>= $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6571	6694	
==>= $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is prim <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7705	7805	
==>match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9633	9733	
==>match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7693	7793	
==>match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	275	427	
==>' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1990	2106	
==>t->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1990	2106	
==>t->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	8110	8207	
==>/man/man3/Perl6::Spec::Rule.3pm
        /usr/local/man/man3/Perl6::Spec::Structure.3pm
        /us <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1693	1794	
==>write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeigh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1693	1794	
==>write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeigh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1693	1794	
==>write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeigh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11503	11609	
==>:EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11503	11609	
==>:EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11503	11609	
==>:EvalX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1640	1768	
==>lashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2636	2732	
==>t the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:ke <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2636	2732	
==>t the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:ke <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	396	523	
==>S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15134	15232	
==>u pass
an argument to the method.  The old header value is always returned.
If the given header did <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15134	15232	
==>u pass
an argument to the method.  The old header value is always returned.
If the given header did <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	109	217	
==>ys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	109	217	
==>ys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	109	217	
==>ys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self- <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3555	3666	
==>thnames}{$pkg};

        eval { require $file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = delet <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	719	826	
==>:Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    } <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	719	826	
==>:Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17486	17603	
==>asses; they have been
combined into one class, I<quantifier>.  You pass it the min and max,
and the object's C<type> i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17696	17876	
==>nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17696	17876	
==>nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'nod <==
3	/Users/nnunley/pugs/util/package-osx.pl	1367	1470	
==>in/pugs ../../bin/pugs
        /usr/local/bin/pugscc ../../bin/pugscc
        /usr/local/bin/p6doc ../.. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	94	198	
==>Ref;
use Perl6::Core::Symbol;
use Perl6::Core::List;

package closure;

use strict;
use warnings;

use Ca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15788	15884	
==>r should see more details than joe public would.

Alternately, sometimes a program will raise a c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15788	15884	
==>r should see more details than joe public would.

Alternately, sometimes a program will raise a c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6600	6726	
==>arn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6600	6726	
==>arn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6600	6726	
==>arn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || $end == Inf;
            re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11525	11633	
==>_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11525	11633	
==>_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11525	11633	
==>_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7926	8035	
==>]]>($P);
    return if $Result1 ~~ JSX::false;
    if $A.property_value.exists($P) {
        if $P eq 'length' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	42	146	
==>pher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($k <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	42	146	
==>pher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1171	1290	
==>.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1171	1290	
==>.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1171	1290	
==>.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21438	21581	
==>{
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21438	21581	
==>{
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21438	21581	
==>{
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Scal <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7545	7648	
==>p => join("", map chr(hex), @hex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brac <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11964	12062	
==>$x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x )` <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11964	12062	
==>$x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x )` <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3327	3450	
==>arget> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3327	3450	
==>arget> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2251	2358	
==>0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2251	2358	
==>0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2251	2358	
==>0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1861	1980	
==>ule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? <named_capture_body>
        
        { my $body = $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	478	570	
==>adds nothing else.

More specialised processing instructions may sub-class this module or
pro <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	478	570	
==>adds nothing else.

More specialised processing instructions may sub-class this module or
pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32479	32686	
==>ngth += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32479	32686	
==>ngth += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32479	32686	
==>ngth += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1228	1351	
==>ed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1228	1351	
==>ed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1228	1351	
==>ed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13969	14086	
==>class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13969	14086	
==>class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13969	14086	
==>class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2031	2163	
==>"\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2031	2163	
==>"\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2111	2243	
==>"\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	751	859	
==>atch" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	751	859	
==>atch" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4146	4294	
==>> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # in <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4146	4294	
==>> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # in <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1148	1242	
==>_till_day = dayify(@commits);
my @devs_till_day    = dayify(@developers);
# @devs_till_day shou <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14012	14110	
==>ce for each value.  The field name passed to the
callback routine has case as suggested by HTTP spe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14012	14110	
==>ce for each value.  The field name passed to the
callback routine has case as suggested by HTTP spe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2774	2978	
==>not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_sp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2774	2978	
==>not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	322	508	
==>> {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('@:slots', []);
        },        
        methods => {
            ' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22889	23033	
==>:
    mname = ":i"
  setpad:
    $P0 = pad[mname]
    pad[mname] = value
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3766	3863	
==>y' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"today <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3766	3863	
==>y' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"today <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6629	6736	
==>b { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6629	6736	
==>b { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6629	6736	
==>b { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Str::to_bit( _('$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1460	1569	
==>al}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1460	1569	
==>al}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1669	1778	
==>al}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7453	7588	
==>untime::Perl6::Scalar::" . _emit( $n->{method}, '  ' ) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _em <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2104	2201	
==>enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional inte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2104	2201	
==>enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3073	3176	
==>f $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3073	3176	
==>f $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3073	3176	
==>f $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $ty <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2693	2786	
==>asses... though a default
implementation exists, too.

=over

=item B<source>

=item B<source( <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2693	2786	
==>asses... though a default
implementation exists, too.

=over

=item B<source>

=item B<source( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2962	3049	
==>ternatives(W, Z).

p6_conjunct(Z) --> p6_concatenation(W), p6_conjunctions(W,Z).

p6_alt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1039	1134	
==>prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1039	1134	
==>prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1039	1134	
==>prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	617	737	
==>ecome all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	617	737	
==>ecome all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	617	737	
==>ecome all screwed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6232	6387	
==>has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6232	6387	
==>has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6232	6387	
==>has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18969	19066	
==>e referrer, this method removes the fragment from the
given URI if it is present, as mandated by R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18969	19066	
==>e referrer, this method removes the fragment from the
given URI if it is present, as mandated by R <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1220	1324	
==>emporarily for the use of $RE{balanced}{-parens=>'{}'};
sub conv_foreach {
    $_ = shift;
    my $foreac <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	974	1066	
==>he Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional an <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	974	1066	
==>he Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2827	2946	
==>shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list"
            foreach @_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	638	746	
==>amed, $positional, $named_slurpy) = ({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = Dat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16636	16721	
==>x,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(Re1,F0,F1,B0,B1,E0,E1).
rm(uni <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2695	2801	
==>ag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2695	2801	
==>ag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2775	2881	
==>ag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builde <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	68	175	
==>s mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	68	175	
==>s mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	68	175	
==>s mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18096	18196	
==>o_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18096	18196	
==>o_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18096	18196	
==>o_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9515	9666	
==>/ $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5856	6007	
==>/ $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6705	6856	
==>/ $id \n";  #, Dumper($list);
            # print "macro: args = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	207	349	
==>self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	207	349	
==>self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	207	349	
==>self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7469	7574	
==>my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autoth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7469	7574	
==>my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autoth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7469	7574	
==>my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . $self->params->autoth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4790	4971	
==>x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $pro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5012	5193	
==>x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $pro <==
3	/Users/nnunley/pugs/util/package-osx.pl	9231	9381	
==>urr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Mad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1945	2045	
==>e levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1945	2045	
==>e levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1945	2045	
==>e levels in browsers.
method bytes  (Str $self:) { JS::inline('(function (str) { return str.length }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5849	6040	
==>$list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5849	6040	
==>$list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5849	6040	
==>$list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2255	2418	
==>n (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2255	2418	
==>n (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2255	2418	
==>n (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5956	6092	
==>attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5956	6092	
==>attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5956	6092	
==>attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5179	5288	
==>cal_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5179	5288	
==>cal_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5179	5288	
==>cal_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12212	12352	
==>you're on your own.  You'll probably
want to make a recursive function that takes an object (or a reference
to an array of them) and does som <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	688	789	
==>catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @AR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	688	789	
==>catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @AR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	688	789	
==>catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @AR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4810	4911	
==>seves something
of the original name. So if you had an object blessed into "MyClass",
it will now be b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4810	4911	
==>seves something
of the original name. So if you had an object blessed into "MyClass",
it will now be b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4810	4911	
==>seves something
of the original name. So if you had an object blessed into "MyClass",
it will now be b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	174	321	
==>n';

sub new {
    my $class = shift;
    bless {
        params => undef,
        param_stack => [],
    }, $class;
}

sub execute {
    my $self = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	134	230	
==>SLATE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	134	230	
==>SLATE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1228	1449	
==>on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### unin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1781	1891	
==>5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Fun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1781	1891	
==>5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Fun <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4154	4258	
==>y }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4154	4258	
==>y }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
}

m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16363	16484	
==>_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{' <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3904	4024	
==>lt{number};

        # sometimes the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if you do <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12622	12732	
==>pile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter->new->redu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8947	9158	
==>turn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8947	9158	
==>turn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8947	9158	
==>turn $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1964	2084	
==>elf)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1964	2084	
==>elf)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1964	2084	
==>elf)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_undef()";
    } else {
        $se <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	430	532	
==>very little knowledge of Perl 6. These five examples
# can be improved in many ways, and have been in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16850	16942	
==>t time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16850	16942	
==>t time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1482	1579	
==>&& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1482	1579	
==>&& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1482	1579	
==>&& ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, und <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	887	1020	
==>$sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	887	1020	
==>$sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	253	341	
==>s
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	253	341	
==>s
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	253	341	
==>s
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	198	321	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	198	321	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	198	321	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12908	13014	
==>$self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27047	27153	
==>$self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual <==
3	/Users/nnunley/pugs/util/importgraph.pl	627	732	
==>\.hs$/;

  my ($module_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn't open $File: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15080	15212	
==>ith_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination wor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18557	18689	
==>ith_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination wor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17973	18105	
==>ith_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do the actual combination wor <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23818	23928	
==>apply 
          ($_ send (add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@sup <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3195	3321	
==>hod, but they /should/
        ### have a meta object at all times
        unless( $self->can('file') ) {
            error("No <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6692	6795	
==>eturn $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6692	6795	
==>eturn $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8351	8465	
==>g "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8351	8465	
==>g "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = n <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9647	9759	
==>e need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broken, so it will not see PER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1669	1773	
==>compiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1669	1773	
==>compiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1669	1773	
==>compiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  warn "* Warning: Couldn't check <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1313	1424	
==>* New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1313	1424	
==>* New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1313	1424	
==>* New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy array are stringi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	706	809	
==>:LaxPairAttrType of Pair where {
    .key.does(Str) and (
        (.key eq 'Scalar' and .value.does(Rela <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	444	539	
==>:Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	444	539	
==>:Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6665	6773	
==>d = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6665	6773	
==>d = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6665	6773	
==>d = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3283	3456	
==>arn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3283	3456	
==>arn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3283	3456	
==>arn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval_p6->($line);
    }
}


__END <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6782	6884	
==>s there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6782	6884	
==>s there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6782	6884	
==>s there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40245	40354	
==>lue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40245	40354	
==>lue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40245	40354	
==>lue::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9164	9266	
==>thod(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9164	9266	
==>thod(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9164	9266	
==>thod(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1264	1357	
==>ks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1264	1357	
==>ks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1264	1357	
==>ks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22708	22852	
==>> $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23210	23354	
==>> $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	640	746	
==>ure::params') || $signature->isa('closure::signature')))
        || confess "signature must be an closure:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	416	540	
==>lsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	416	540	
==>lsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	416	540	
==>lsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6033	6136	
==>child package know it's parent package? How would this look in Perl 6?
Would it be a package level versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6033	6136	
==>child package know it's parent package? How would this look in Perl 6?
Would it be a package level versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6033	6136	
==>child package know it's parent package? How would this look in Perl 6?
Would it be a package level versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1161	1363	
==>arn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1161	1363	
==>arn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1161	1363	
==>arn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2444	2542	
==>'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2444	2542	
==>'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2444	2542	
==>'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	410	537	
==>Node} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	410	537	
==>Node} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	410	537	
==>Node} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2427	2544	
==>*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2427	2544	
==>*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11776	11880	
==>$ret;
	};
}

$Data::Dumper::Terse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3559	3649	
==>etval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3559	3649	
==>etval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3559	3649	
==>etval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	613	722	
==>ues(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	613	722	
==>ues(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	613	722	
==>ues(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31046	31194	
==>y $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $dif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31046	31194	
==>y $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $dif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31046	31194	
==>y $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $dif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12804	12899	
==>JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12804	12899	
==>JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12804	12899	
==>JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3282	3398	
==>@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3282	3398	
==>@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3282	3398	
==>@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	62	175	
==>die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	62	175	
==>die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	62	175	
==>die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7977	8080	
==>ne must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet certain if thi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7977	8080	
==>ne must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet certain if thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11140	11291	
==>rammar::Perl6::ws_star,\n" .
                Runtime::Perl5::RuleOps::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1572	1685	
==>art;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1572	1685	
==>art;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	241	350	
==>iSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Comp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	241	350	
==>iSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Comp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	241	350	
==>iSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	369	479	
==>"*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	369	479	
==>"*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	369	479	
==>"*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, " <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6034	6136	
==>s_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6034	6136	
==>s_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22115	22226	
==>ap{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22115	22226	
==>ap{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22115	22226	
==>ap{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2380	2518	
==>{'$.diagnostic'};
        }
    },
    methods => {
        'number'      => sub { _('$.number') },
        'passed'      => sub { _('$.pas <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5409	5514	
==>_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5409	5514	
==>_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12571	12689	
==>ble $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12571	12689	
==>ble $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12571	12689	
==>ble $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no strict 'vars';
package PIL::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2479	2597	
==>find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2479	2597	
==>find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2479	2597	
==>find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1564	1655	
==>self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1564	1655	
==>self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1564	1655	
==>self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29084	29213	
==>is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29084	29213	
==>is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	435	548	
==>is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6890	7010	
==>$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6890	7010	
==>$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6890	7010	
==>$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1026	1135	
==>est.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1026	1135	
==>est.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1026	1135	
==>est.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2774	2898	
==>= sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1396	1520	
==>= sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9370	9467	
==>tional'};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed'};
	push(@args,"na <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9636	9795	
==>g;

            }
        }

        # Our ghc-pkg is whatever executable we've found (which could be
        # undef, if we didn't find anything).

        $gh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4132	4232	
==>|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4132	4232	
==>|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4132	4232	
==>|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[in <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5418	5537	
==><glob()> doesn't work right.

=cut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DI <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7409	7509	
==>st )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7409	7509	
==>st )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	165	299	
==>Model::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	165	299	
==>Model::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	165	299	
==>Model::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::r <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	242	376	
==>th bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	242	376	
==>th bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13013	13108	
==>re todo in C<< $strap->{todo} >> and if the whole test was skipped
C<< $strap->{skip_all} >> con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10322	10475	
==>self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10322	10475	
==>self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10322	10475	
==>self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	193	309	
==>an(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	193	309	
==>an(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	193	309	
==>an(mod, imports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7334	7466	
==>} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7334	7466	
==>} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	381	470	
==>y::splice<Array>.assuming(:offset(0) :length(1));

 multi sub Array::shift () returns Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5959	6074	
==>local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5959	6074	
==>local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5959	6074	
==>local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9895	10025	
==>is module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '- <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2927	3057	
==>is module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5164	5275	
==>sh @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	2	96	
==>(Larry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	2	96	
==>(Larry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	2	96	
==>(Larry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5114	5219	
==>em);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5114	5219	
==>em);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5114	5219	
==>em);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3013	3133	
==>igenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3013	3133	
==>igenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3013	3133	
==>igenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigenclass-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2896	2992	
==>rict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2896	2992	
==>rict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2896	2992	
==>rict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6759	6858	
==>s "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6759	6858	
==>s "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6759	6858	
==>s "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1949	2052	
==>tatement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1949	2052	
==>tatement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1949	2052	
==>tatement_control:loop ($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3436	3552	
==>SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3436	3552	
==>SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3436	3552	
==>SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses) = @_;
    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2741	2849	
==>Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2741	2849	
==>Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2741	2849	
==>Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl6::Container::Array)
#
# TODO - ($a,undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2202	2307	
==>testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2202	2307	
==>testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2202	2307	
==>testpc}, \$mini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1885	1977	
==>::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1885	1977	
==>::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25311	25401	
==>ariable::free->new,
		type::operator::pair->new(
			type::variable::free->new,
			type::var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	134	241	
==>ss = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	134	241	
==>ss = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	134	241	
==>ss = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3465	3578	
==>b";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3465	3578	
==>b";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3465	3578	
==>b";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4045	4179	
==>$matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{captur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3921	4051	
==>$matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{captur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13453	13554	
==>s_str_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_arr <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1610	1704	
==>gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $ra <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1610	1704	
==>gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $ra <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7695	7797	
==>lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7695	7797	
==>lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14575	14711	
==>self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14575	14711	
==>self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14575	14711	
==>self = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $a <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	798	903	
==>egorian is export {

    $iso8601 ~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to availa <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1292	1390	
==>n '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 't <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1292	1390	
==>n '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 't <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12682	12782	
==>sc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. It t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12740	12840	
==>sc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. It t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19439	19538	
==>eturns Relation::Example {
    return Relation::Example.new(
        heading => $!heading.union( $ot <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4752	4853	
==>ass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4752	4853	
==>ass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6276	6377	
==>ass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_plan>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1831	1938	
==>"CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1831	1938	
==>"CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1831	1938	
==>"CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2727	2826	
==>ame key, the encryption 
can be removed by XORing them together; you might not be able to derive the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2727	2826	
==>ame key, the encryption 
can be removed by XORing them together; you might not be able to derive the <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10428	10524	
==>sionChars> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!befor <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	207	323	
==>elta = 0.1;
    return ($f($x + $delta) - $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	98	191	
==>ategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

metho <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	98	191	
==>ategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25357	25454	
==>the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation::Example can look li <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21479	21575	
==>ser
messages, but another package or program which uses yours may wish to
override some of your m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21479	21575	
==>ser
messages, but another package or program which uses yours may wish to
override some of your m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1040	1173	
==>..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1209	1342	
==>..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #pri <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3368	3459	
==>d: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5::X1::Result->new($pil <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3219	3322	
==>ich is then given to the App
    ),

Inherits Unit.

=item Val

Encapsulates a perl value. Usually eithe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22693	22781	
==>nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22693	22781	
==>nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2929	3044	
==>> $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1622	1718	
==>amples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Pe <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1622	1718	
==>amples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3655	3758	
==>f}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3655	3758	
==>f}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3655	3758	
==>f}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is prim <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26252	26354	
==>ttributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30804	30906	
==>ttributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29797	29899	
==>ttributes; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relatio <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1212	1307	
==>bugging", but can be put to other uses as well.

Log::Selective exports a single function, C<not <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1212	1307	
==>bugging", but can be put to other uses as well.

Log::Selective exports a single function, C<not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	748	892	
==>al,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	748	892	
==>al,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	748	892	
==>al,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8839	8960	
==>t'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8839	8960	
==>t'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8839	8960	
==>t'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9714	9813	
==>ead() returns Array { return }
method _tail() returns Array { return }

# What we implement for them <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9714	9813	
==>ead() returns Array { return }
method _tail() returns Array { return }

# What we implement for them <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10805	10928	
==>ess it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pse <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10805	10928	
==>ess it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3	96	
==>VIL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3	96	
==>VIL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3	96	
==>VIL hacks here! E.g. method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5343	5455	
==>tional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5343	5455	
==>tional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6867	6979	
==>tional C<$description>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1212	1383	
==>textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\]])/) {
#	    print "\\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub p <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2723	2818	
==>I<N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2723	2818	
==>I<N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	261	390	
==>r_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	261	390	
==>r_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	261	390	
==>r_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8788	8921	
==>f $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan.new( expect => $tests );
      }
      elsif $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	952	1073	
==>f $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	952	1073	
==>f $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan.new( expect => $tests );
    }
    elsif $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3164	3304	
==>el == $#{$self->{levels}};
        $s = $s . "    rule $equal { " .
            emit_perl6_rule($self, $level, $default) .
            " }\n" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8254	8373	
==>arameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $sel <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8254	8373	
==>arameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22922	23014	
==>mentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGU <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22922	23014	
==>mentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32246	32357	
==>esult.  With any 2 relations, the result is the same regardless of
which is the invocant and which is the argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36796	36907	
==>esult.  With any 2 relations, the result is the same regardless of
which is the invocant and which is the argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36086	36197	
==>esult.  With any 2 relations, the result is the same regardless of
which is the invocant and which is the argume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	883	1020	
==>\@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	883	1020	
==>\@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	883	1020	
==>\@inc_dirs,
    'pugs=s'    => \$PIL::Run::EvalX::pugs,
    'B=s'       => \$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13461	13629	
==>e' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13461	13629	
==>e' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13461	13629	
==>e' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3369	3490	
==>$end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif define <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3369	3490	
==>$end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10347	10474	
==>ems";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10347	10474	
==>ems";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10347	10474	
==>ems";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3639	3759	
==>$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3639	3759	
==>$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3639	3759	
==>$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14127	14284	
==>my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14127	14284	
==>my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14127	14284	
==>my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3142	3265	
==>:offset(0) :length(1));
## an alternate implementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4223	4316	
==>'... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Class' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6125	6218	
==>'... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Class' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2140	2246	
==>ttribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2140	2246	
==>ttribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2140	2246	
==>ttribute_spec($key);
    }
});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15050	15236	
==>rn
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15050	15236	
==>rn
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15050	15236	
==>rn
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	575	681	
==>d Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * add <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	575	681	
==>d Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * add <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	575	681	
==>d Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * add <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	959	1138	
==>ol -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the repodir
            my $meta_in <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1856	1972	
==>my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $newinput <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2784	2952	
==>rn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2784	2952	
==>rn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2784	2952	
==>rn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2061	2177	
==>program =
    "*{'Pugs::Grammar::Rule::$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is unde <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47193	47299	
==>->or(block->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->ne <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27033	27128	
==> β)", ":t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β) → α", ":t fst");
is(t(ide("sn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2151	2293	
==>n_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2151	2293	
==>n_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2151	2293	
==>n_method($method_name, $method);               
            }
            else {
                $current_class->add_method($method_name, $meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4543	4650	
==>d line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($end <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4543	4650	
==>d line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($end <==
3	/Users/nnunley/pugs/util/package-osx.pl	4457	4554	
==>man/man3/Perl6::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/loca <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22500	22594	
==>d, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22500	22594	
==>d, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	25	136	
==>arnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	25	136	
==>arnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	25	136	
==>arnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26079	26180	
==>package Regexp::Parser::flags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($cl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18541	18639	
==>ary for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18541	18639	
==>ary for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4635	4737	
==>my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4635	4737	
==>my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4635	4737	
==>my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2293	2410	
==>at to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2293	2410	
==>at to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2293	2410	
==>at to do with $x";
    }
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	354	482	
==>atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9772	9900	
==>atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3130	3246	
==>ase, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3130	3246	
==>ase, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3130	3246	
==>ase, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8958	9079	
==>e or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8958	9079	
==>e or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8958	9079	
==>e or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4382	4491	
==>p = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method diffe <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4382	4491	
==>p = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method diffe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8433	8536	
==>de *&test   --> Lazy )
 multi Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5188	5295	
==>get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2730	2837	
==>get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3293	3382	
==>eturn { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19140	19267	
==>urn unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19419	19546	
==>urn unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6462	6572	
==>y:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2193	2274	
==>ircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2193	2274	
==>ircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2193	2274	
==>ircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statement_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4547	4633	
==>ata::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4547	4633	
==>ata::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5137	5223	
==>ata::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1905	2020	
==>{
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1905	2020	
==>{
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1905	2020	
==>{
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5836	5949	
==>st );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5836	5949	
==>st );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12453	12549	
==>ent object's All Nodes
attribute starts out empty, but gains one element for each Node in the Nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12453	12549	
==>ent object's All Nodes
attribute starts out empty, but gains one element for each Node in the Nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6824	6978	
==>n $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6824	6978	
==>n $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6824	6978	
==>n $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5567	5672	
==>"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5567	5672	
==>"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5567	5672	
==>"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2742	2842	
==>ION

This module implements the semantics for perl6-style variable binding,
as well as subroutine cal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2742	2842	
==>ION

This module implements the semantics for perl6-style variable binding,
as well as subroutine cal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3089	3189	
==>ION

This module implements the semantics for perl6-style variable binding,
as well as subroutine cal <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9929	10034	
==>tr $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9929	10034	
==>tr $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8729	8840	
==>er/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	51	161	
==>ecedence module - fglock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http://web <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6259	6365	
==>er/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1371	1474	
==>\$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1371	1474	
==>\$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1371	1474	
==>\$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg{pugs <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10535	10638	
==>lo world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=ite <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10535	10638	
==>lo world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=ite <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6723	6834	
==>lf->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    return $p->Output( classname <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1053	1152	
==>...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1053	1152	
==>...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13362	13465	
==>([\w:]+\s?) (.*) )?     # optional skip with optional reason
REGEX

sub _is_header {
    my($self, $line <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17622	17720	
==>ow It Works

Modern programs or database systems often refer to an error condition by an
internal c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17622	17720	
==>ow It Works

Modern programs or database systems often refer to an error condition by an
internal c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	767	877	
==>does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	767	877	
==>does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	767	877	
==>does't like this, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12327	12424	
==>omment block and data section, each
# into a single line containing a digest of the original conte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12327	12424	
==>omment block and data section, each
# into a single line containing a digest of the original conte <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10336	10512	
==>returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->get("&dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $cod <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1698	1836	
==>s = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1698	1836	
==>s = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8185	8320	
==>asic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when Li <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8185	8320	
==>asic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when Li <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26401	26494	
==>variable.

=item C<HARNESS_COMPILE_TEST>

When true it will make harness attempt to compile th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4595	4713	
==>STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH(' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8083	8192	
==>ot.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (! <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8141	8250	
==>ot.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (! <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19118	19209	
==>utomatically if using the header(),
push_header() or init_header() methods to set the referr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19118	19209	
==>utomatically if using the header(),
push_header() or init_header() methods to set the referr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7170	7304	
==>)",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7170	7304	
==>)",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7170	7304	
==>)",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6021	6128	
==>pen my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6021	6128	
==>pen my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6021	6128	
==>pen my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1998	2110	
==>]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1998	2110	
==>]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): ar <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3896	3995	
==>add our own ls_accessors, so we don't give back the private accessors
sub ls_all_accessors { sort ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2830	2941	
==>native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2830	2941	
==>native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2830	2941	
==>native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an inv <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	641	776	
==>{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	657	792	
==>{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	633	768	
==>{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2608	2745	
==>n =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2608	2745	
==>n =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2608	2745	
==>n =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4083	4254	
==>ss) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4083	4254	
==>ss) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4083	4254	
==>ss) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7610	7763	
==>gnature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7610	7763	
==>gnature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7610	7763	
==>gnature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6252	6432	
==>dy->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6252	6432	
==>dy->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6252	6432	
==>dy->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role->add_method($method_name => ::make_m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12605	12710	
==>do events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pse <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12605	12710	
==>do events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pse <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	17	123	
==>mmar::Expression;

use strict;
use warnings;

#use Pugs::Compiler::Rule;
use Pugs::Grammar::Precedence;
use <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	811	916	
==>Nil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	811	916	
==>Nil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2314	2442	
==>ix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal', <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18586	18688	
==>'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18586	18688	
==>'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	876	977	
==>t ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	876	977	
==>t ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	876	977	
==>t ];

# this is to get the right @:MRO
$::EigenClass->superclasses([ $::Class ]);

# ::Class now actua <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5062	5173	
==>y -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5062	5173	
==>y -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5062	5173	
==>y -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	624	713	
==>SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represen <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	624	713	
==>SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represen <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22019	22127	
==>/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') {
	$mn .= "::MET <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6449	6556	
==>h, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6449	6556	
==>h, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($ba <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7606	7713	
==>annels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7606	7713	
==>annels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1499	1619	
==>createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1499	1619	
==>createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1499	1619	
==>createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7675	7827	
==>ects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(patte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7675	7827	
==>ects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(patte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7675	7827	
==>ects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(patte <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	232	343	
==>rpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $prog = shift;

    my $c = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3239	3330	
==>C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3239	3330	
==>C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1145	1252	
==>dule does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1145	1252	
==>dule does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1145	1252	
==>dule does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list(), added "TO <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11312	11430	
==>mper->reduce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = "reduce_" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2112	2216	
==>nfix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2112	2216	
==>nfix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2112	2216	
==>nfix:eq", "S", "String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	572	673	
==>id;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	572	673	
==>id;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	572	673	
==>id;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primiti <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18444	18541	
==>is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it of <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18444	18541	
==>is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it of <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2601	2738	
==>) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2601	2738	
==>) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2235	2332	
==>kenClone{syncat} = PGE_OPTABLE_CLOSE;
    $self->operatorTable()->{$spacePresent[1]} = %tokenClone <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2171	2284	
==>Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2171	2284	
==>Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2171	2284	
==>Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	723	891	
==>nt {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	723	891	
==>nt {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9507	9698	
==>todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	291	391	
==>s as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been changed to cc_inc_pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2347	2475	
==>ub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2347	2475	
==>ub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2694	2822	
==>ub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4384	4479	
==>Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4384	4479	
==>Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5908	6003	
==>Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8906	9082	
==>ge 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8906	9082	
==>ge 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8906	9082	
==>ge 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4369	4470	
==>plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4369	4470	
==>plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5893	5994	
==>plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14556	14693	
==>for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18033	18170	
==>for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17449	17586	
==>for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.pu <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	578	701	
==>List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k ~~ any(@indextests);
    }
    *@ret; # want It <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3284	3388	
==>elf.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3284	3388	
==>elf.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $un <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	15	116	
==>- Perl 6 Version
use v6;

sub £to€ { $_ * 1.4656 }

# interpolierter Funktions-Aufruf
say "100£ si <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11868	11964	
==>s method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11868	11964	
==>s method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1295	1419	
==>x the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1295	1419	
==>x the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1295	1419	
==>x the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6862	6979	
==>!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6862	6979	
==>!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6862	6979	
==>!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1823	1921	
==>a( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1823	1921	
==>a( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3978	4084	
==>self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3978	4084	
==>self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3978	4084	
==>self)->dispatcher(':ascendant');
    while (my $method = ::WALKMETH($dispatcher, 'DESTROY')) {  
        $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16216	16333	
==>LTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16216	16333	
==>LTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16216	16333	
==>LTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	722	866	
==>op::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	722	866	
==>op::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $ma <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7186	7292	
==>me-shadowing ";
    $ghc_flags .= " -I../../src -i../../src "
      if $self->is_extension_build;
    if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3401	3516	
==>eInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3401	3516	
==>eInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.ch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3401	3516	
==>eInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.ch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3493	3600	
==>} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_na <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3493	3600	
==>} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_na <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	412	506	
==>t $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptogra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	412	506	
==>t $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptogra <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2699	2801	
==>od size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6176	6278	
==>od size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5106	5208	
==>od size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2200	2305	
==>an't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2200	2305	
==>an't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2200	2305	
==>an't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy
# TODO - mult <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16474	16590	
==>sts}){
        die "FAILED--no tests were run for some reason.\n";
    } elsif (!$tot->{max}) {
        my $blurb = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20945	21042	
==>r or header() method, the same
field name should not occur multiple times.  The result of doing so <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20945	21042	
==>r or header() method, the same
field name should not occur multiple times.  The result of doing so <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1877	1973	
==>($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1877	1973	
==>($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4758	4945	
==>>new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4758	4945	
==>>new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4758	4945	
==>>new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $key, 
                        '$.value' => $_[0]->fetch( $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10023	10214	
==>f = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10023	10214	
==>f = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10023	10214	
==>f = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->st <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3362	3475	
==>NV{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unless -e $a_file;

    if (! <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1539	1651	
==>ital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1539	1651	
==>ital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1445	1544	
==>ing(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1445	1544	
==>ing(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1445	1544	
==>ing(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1046	1152	
==>}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for str <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1046	1152	
==>}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for str <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3141	3238	
==>ves(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatenation(X), p6_conjunctions(interse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1593	1694	
==>unction (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1593	1694	
==>unction (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1593	1694	
==>unction (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7565	7671	
==>lurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7565	7671	
==>lurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7565	7671	
==>lurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	565	677	
==>n\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	565	677	
==>n\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	565	677	
==>n\'t work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5353	5481	
==>> chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5353	5481	
==>> chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1592	1687	
==>=over 4

=item B<new (*native*) returns bit>

=item B<to_native () returns *native*>

=item B<to <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2866	2986	
==>uilder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2866	2986	
==>uilder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2946	3066	
==>uilder.new();

  test_out( 'ok 1 - Hello' );
  $Test.ok( 1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10324	10443	
==>$.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( "Bail out <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2353	2460	
==>$.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2353	2460	
==>$.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( "Bail out <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7772	7876	
==>iles = _globdir $Files_In_Dir if defined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $width = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2123	2255	
==>= b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2123	2255	
==>= b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2123	2255	
==>= b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6645	6753	
==>{ 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Val <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6645	6753	
==>{ 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	129	237	
==>RN__};
	$SIG{__WARN__} = sub { $w };
}

### This is the ONLY module that shouldn't have strict on
# use stric <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8619	8728	
==>cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_method'), 
    # method body <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16131	16227	
==>mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you can <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16131	16227	
==>mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you can <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23854	23947	
==>ves, and doesn't know about language specific details like
encodings or plurality.

My underst <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23854	23947	
==>ves, and doesn't know about language specific details like
encodings or plurality.

My underst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17420	17518	
==>Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17420	17518	
==>Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17420	17518	
==>Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19972	20066	
==>that manually using a set of mappings, or a multi-dimensional object Hash,
or various combinati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24524	24618	
==>that manually using a set of mappings, or a multi-dimensional object Hash,
or various combinati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23076	23170	
==>that manually using a set of mappings, or a multi-dimensional object Hash,
or various combinati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1747	1855	
==>"N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1747	1855	
==>"N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1747	1855	
==>"N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4747	4917	
==>e' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4747	4917	
==>e' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4747	4917	
==>e' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', 
                    match => sub { r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5352	5451	
==>Fun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5352	5451	
==>Fun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5352	5451	
==>Fun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5948	6056	
==>name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printW <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5948	6056	
==>name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printW <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5948	6056	
==>name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printW <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1355	1527	
==>o see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1355	1527	
==>o see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nod <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29915	30011	
==>mented)

Straps->analyze_file() not taint clean, don't know if it can be

Fix that damned VMS nit <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4445	4577	
==>sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1743	1873	
==>ost') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-for <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1743	1873	
==>ost') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16478	16583	
==>($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16478	16583	
==>($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16478	16583	
==>($xx) {...};
MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4530	4659	
==>[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4530	4659	
==>[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4530	4659	
==>[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { '(' . $_[0]->{cstringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14569	14667	
==>_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14569	14667	
==>_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14569	14667	
==>_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	827	1181	
==>9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	827	1181	
==>9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28864	29033	
==>$self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28864	29033	
==>$self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28864	29033	
==>$self->elems ) == 1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1269	1397	
==>Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        4 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1269	1397	
==>Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        4 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	317	413	
==>gine is unfortunately entangled with the rest of
# the p5 implementation.  So while limited super <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4906	5007	
==>lf }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4906	5007	
==>lf }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4906	5007	
==>lf }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	337	434	
==>iendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	337	434	
==>iendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	337	434	
==>iendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1270	1386	
==>d-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I remo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1270	1386	
==>d-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I remo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1270	1386	
==>d-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b0rks PIL2JS, so I remo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	570	790	
==>r ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	570	790	
==>r ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	570	790	
==>r ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14528	14623	
==>methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14528	14623	
==>methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14528	14623	
==>methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute('%:class_methods <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1911	2090	
==>(:node<Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tree <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3919	4022	
==>= $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3919	4022	
==>= $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	108	217	
==>);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	108	217	
==>);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	108	217	
==>);
  } elsif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5599	5709	
==>> &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5599	5709	
==>> &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5599	5709	
==>> &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	400	508	
==>kenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	400	508	
==>kenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	400	508	
==>kenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9820	9933	
==>m $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9820	9933	
==>m $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1939	2047	
==>data for this tool
     util/testgraph.pl     - Generates an HTML summary of a YAML test run
     util/run-sm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	400	596	
==>es'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	400	596	
==>es'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	400	596	
==>es'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attributes'       => {},
            '%:methods'          => {},
            '%:class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	492	602	
==>ass ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1216	1325	
==>ass ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8315	8433	
==>$seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8315	8433	
==>$seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8315	8433	
==>$seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
}));

$::Class->add_method('MRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6562	6660	
==>_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6562	6660	
==>_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6562	6660	
==>_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38901	39017	
==>e
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38901	39017	
==>e
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38901	39017	
==>e
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2731	2858	
==>p );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2731	2858	
==>p );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2731	2858	
==>p );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	904	1024	
==>$_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	904	1024	
==>$_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7740	7830	
==>nt(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1565	1655	
==>nt(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24360	24462	
==>f->{data}[0]->visual, $self->{data}[1]->visual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a numbe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17320	17412	
==>,   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17320	17412	
==>,   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	329	431	
==>+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	329	431	
==>+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	329	431	
==>+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8075	8195	
==>o the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUG <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8075	8195	
==>o the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUG <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8075	8195	
==>o the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUG <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1795	1957	
==>hash_storeVal => sub {
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_hash_vivifyEle <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1350	1496	
==>= shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1, <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8190	8300	
==>e =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $switches $file";

    return $line;
}


=head2 C<_ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6265	6413	
==>k->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                Sym->new('&control_structure:<if>'),
                Ap <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	105	197	
==>le 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => ra <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	105	197	
==>le 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => ra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3649	3820	
==>ule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3896	4067	
==>ule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7735	7846	
==>"PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7735	7846	
==>"PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7735	7846	
==>"PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11228	11325	
==>y.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11228	11325	
==>y.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11228	11325	
==>y.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10466	10589	
==>alX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10466	10589	
==>alX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10466	10589	
==>alX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3500	3604	
==>- postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3500	3604	
==>- postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3500	3604	
==>- postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI SUB Array::slice ($a,$i) {
    # implements <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	837	937	
==>tput => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	837	937	
==>tput => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	917	1017	
==>tput => Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builde <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2013	2170	
==>bug_traverse;
        say '  ' x $depth, @s 
    }
    
    if $tree.ref ne 'Array' {
        dbg "  # -- unknown: <$tree>";
        return; 
    }
    if $tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5158	5312	
==>omething
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5158	5312	
==>omething
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5158	5312	
==>omething
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4169	4289	
==>dy   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4169	4289	
==>dy   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4169	4289	
==>dy   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    d <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2332	2525	
==>_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2332	2525	
==>_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16059	16241	
==>,
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1673	1816	
==>X - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1673	1816	
==>X - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1673	1816	
==>X - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6650	6791	
==>\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6650	6791	
==>\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6650	6791	
==>\n";
            return Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2356	2456	
==>}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2356	2456	
==>}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2356	2456	
==>}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18078	18192	
==>ult->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18078	18192	
==>ult->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18078	18192	
==>ult->shift). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5553	5656	
==>FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CRE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5553	5656	
==>FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CRE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5553	5656	
==>FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CRE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16213	16308	
==>Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16213	16308	
==>Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16213	16308	
==>Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15732	15849	
==>SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->po <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15732	15849	
==>SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->po <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15732	15849	
==>SUB readline ($xx) {...};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2323	2456	
==>:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2323	2456	
==>:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2323	2456	
==>:precomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2995	3120	
==>ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3006	3131	
==>ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop:: <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3762	3874	
==>vent {
    # pretty much an abstract baseclass
    # an empty implementation is useful on it's own

    has @.arg <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1573	1691	
==>ave"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1573	1691	
==>ave"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capit <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5041	5145	
==>statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1022	1126	
==>g "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1022	1126	
==>g "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1022	1126	
==>g "uninitialized warning used in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4188	4308	
==>red = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4188	4308	
==>red = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4188	4308	
==>red = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $sl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	225	351	
==>::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22582	22730	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22861	23009	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2380	2485	
==>bs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearch}, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16298	16403	
==>p\d+\s+aborted/of - aborted/g;

    # bison says 'parse error' instead of 'syntax error',
    # various ya <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26378	26473	
==>and output, any
variable values which are references will be passed by reference, so you
may sto <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26378	26473	
==>and output, any
variable values which are references will be passed by reference, so you
may sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3431	3535	
==>bute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3431	3535	
==>bute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3431	3535	
==>bute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15914	16045	
==>@_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15914	16045	
==>@_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15914	16045	
==>@_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6220	6406	
==>_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6220	6406	
==>_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_spa <==
3	/Users/nnunley/pugs/util/build_pugs.pl	373	477	
==>sify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs executable

This script call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3096	3310	
==>nt = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3096	3310	
==>nt = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3096	3310	
==>nt = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3970	4064	
==>se portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also descr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3970	4064	
==>se portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also descr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12606	12753	
==>rl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8880	9027	
==>rl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9715	9862	
==>rl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21348	21446	
==>05 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21348	21446	
==>05 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	956	1051	
==>, "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\S", "term:", "nows", "PGE::Exp <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2551	2702	
==>),
    '&infix:<*>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3159	3286	
==>${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3159	3286	
==>${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1971	2080	
==>def), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1971	2080	
==>def), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1971	2080	
==>def), {undef() => undef}, {pair undef, undef}, etc.

# TODO - test - how does a scalar that contains a hash is <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16771	16869	
==>s it sees fit.  It
also does not make direct use of environment variables, which can aid in
portabi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16771	16869	
==>s it sees fit.  It
also does not make direct use of environment variables, which can aid in
portabi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9475	9592	
==>er->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9475	9592	
==>er->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9475	9592	
==>er->elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46605	46876	
==>'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create(' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17858	17957	
==>t.

You can create more than one DBMS object at a time, and they are
essentially all isolated from e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17858	17957	
==>t.

You can create more than one DBMS object at a time, and they are
essentially all isolated from e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4066	4170	
==>is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4066	4170	
==>is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4066	4170	
==>is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[1].FETCH(), b = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5433	5598	
==>, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5433	5598	
==>, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5433	5598	
==>, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	830	975	
==>n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	830	975	
==>n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	830	975	
==>n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15450	15609	
==>ined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15450	15609	
==>ined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15450	15609	
==>ined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3180	3288	
==>ul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3168	3276	
==>ul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9546	9671	
==>nboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9546	9671	
==>nboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9546	9671	
==>nboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2273	2431	
==>}
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FAL <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2273	2431	
==>}
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FAL <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6577	6675	
==>';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6577	6675	
==>';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25172	25267	
==>>

If all tests are successful some statistics about the performance are
printed.

=item C<FAILE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12958	13061	
==>hod_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12958	13061	
==>hod_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12958	13061	
==>hod_to_class($method, $self);        
    $self->class->add_method($label, $method);
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9122	9245	
==>e implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12975	13094	
==>e implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12975	13094	
==>e implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4094	4194	
==>c {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4094	4194	
==>c {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4094	4194	
==>c {
  die "Internal error: There doesn't exist a return continuation outside a sub!"
    unless $PIL: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2953	3050	
==>ernal $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2953	3050	
==>ernal $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	225	336	
==>ada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    ret <==
3	/Users/nnunley/pugs/util/package-osx.pl	4646	4734	
==>/usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/local/man/man3/Perl6::Bible::S06.3 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10567	10653	
==>\h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6420	6527	
==>::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6420	6527	
==>::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6420	6527	
==>::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !pe <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17809	17987	
==>stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	870	1019	
==>$data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	870	1019	
==>$data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1151	1269	
==>t = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1151	1269	
==>t = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1151	1269	
==>t = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2413	2521	
==>0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2413	2521	
==>0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2413	2521	
==>0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4205	4295	
==>ake_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4205	4295	
==>ake_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4205	4295	
==>ake_attribute('%:namespace'));

$::Package->add_method('name' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6172	6279	
==>split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6172	6279	
==>split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6172	6279	
==>split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2705	2880	
==>$arg) -> expected($param_type)"
                    if $param_type ne '';
        }
        $self->{env}->set($param->to_str->to_native, $arg);
    }
}

package closure::signat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	700	839	
==>l  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	711	850	
==>l  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3298	3408	
==>eys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	692	794	
==>rce code to determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# R <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	692	794	
==>rce code to determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1183	1284	
==>zy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1183	1284	
==>zy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1183	1284	
==>zy List
# TODO - verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3518	3711	
==>$_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10402	10547	
==>{%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10402	10547	
==>{%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1563	1682	
==>le( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event = $events->[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10983	11088	
==>IME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10983	11088	
==>IME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10983	11088	
==>IME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1310	1431	
==>> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }els <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1310	1431	
==>> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }els <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7551	7649	
==>ket = Algorithm::TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4736	4847	
==>{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4736	4847	
==>{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4736	4847	
==>{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15896	16004	
==>return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->next <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10752	10860	
==>return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17128	17221	
==>symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17128	17221	
==>symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17128	17221	
==>symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3642	3770	
==>dule;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $basename =~ s!.*/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4348	4437	
==>ch_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4598	4687	
==>ch_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11446	11554	
==>ec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11446	11554	
==>ec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11446	11554	
==>ec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{'$fn'} = '$f';");
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2810	2934	
==>ically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2810	2934	
==>ically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2810	2934	
==>ically
    sub ::instantiate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11217	11355	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom > <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23368	23496	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19789	19917	
==>m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1614	1730	
==>or(my $i=1; $i<@$events; $i++) {
            my $event = $events->[$i];
            if($all_the_same->(@{ $events->[$ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2495	2589	
==>are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that con <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2495	2589	
==>are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9188	9322	
==>nt "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13038	13169	
==>nt "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13038	13169	
==>nt "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4116	4254	
==>,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $type \$expected";
    } <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2463	2571	
==>elf.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return un <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2463	2571	
==>elf.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3829	3941	
==>elf => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3829	3941	
==>elf => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3829	3941	
==>elf => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	941	1049	
==>l $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	941	1049	
==>l $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	941	1049	
==>l $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "var %s;" declarations ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	957	1126	
==>TORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	957	1126	
==>TORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	957	1126	
==>TORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1184	1277	
==>d out of CONVERSION_SUBS section
# temporarily for the use of $RE{balanced}{-parens=>'{}'};
su <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4390	4480	
==>or English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4390	4480	
==>or English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4555	4711	
==>l->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4555	4711	
==>l->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4555	4711	
==>l->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7305	7404	
==>que_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this corre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7305	7404	
==>que_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this corre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7305	7404	
==>que_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this corre <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7767	7900	
==>$r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11244	11377	
==>$r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10408	10541	
==>$r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1258	1371	
==>->package );
    
    return $self;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# ind <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2317	2428	
==>p[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Funct <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2317	2428	
==>p[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	516	725	
==>'$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	516	725	
==>'$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	516	725	
==>'$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    } <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3662	3821	
==>hift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @re <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3662	3821	
==>hift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40790	40884	
==>n::Example is identical to the
invocant.  Another trivial case is where any any source relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5528	5643	
==>name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5528	5643	
==>name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5528	5643	
==>name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4645	4748	
==>n($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4645	4748	
==>n($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTT <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2804	2936	
==>chr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26080	26175	
==>es.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30632	30727	
==>es.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2916	3017	
==>ess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2916	3017	
==>ess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2916	3017	
==>ess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    p <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7298	7427	
==>t ( %pad<"pSubType"> );
            # types: SubMethod, ...
        dbg "# Name:       "; my $name =     emit_Variable( %pad<"pSub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3357	3453	
==>once or initialization vector should be hashed with the 
key, not merely appended to it; appendin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3357	3453	
==>once or initialization vector should be hashed with the 
key, not merely appended to it; appendin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2702	2831	
==>ms }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method f <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2702	2831	
==>ms }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	152	260	
==>ib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Da <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	152	260	
==>ib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Da <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	152	260	
==>ib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1305	1397	
==>obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1305	1397	
==>obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1305	1397	
==>obj ($::Class, $::Object, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8232	8337	
==>{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8232	8337	
==>{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8232	8337	
==>{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1577	1688	
==>L2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1577	1688	
==>L2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1577	1688	
==>L2JS.Box.Constant(undefined) : array[idx]);
        delete array[idx];
        if(idx == array.length - 1) array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	653	770	
==>w< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	653	770	
==>w< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	653	770	
==>w< .. .. js lib PIL2JS.js >) }

our %cfg = (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22064	22271	
==>return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22064	22271	
==>return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22064	22271	
==>return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array <==
3	/Users/nnunley/pugs/util/addauthors.pl	1076	1225	
==>ch my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6910	7006	
==>tent-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6910	7006	
==>tent-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1867	2093	
==>$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    jo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1867	2093	
==>$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    jo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1867	2093	
==>$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    jo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	708	809	
==>} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	708	809	
==>} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13589	13682	
==>REC (-6)

Switch condition not recognized

=item RPe_SWBRAN (-7)

Switch (?(condition)... cont <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14366	14463	
==>.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14366	14463	
==>.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1725	1831	
==>rint an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1725	1831	
==>rint an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1725	1831	
==>rint an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13067	13237	
==>lone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13067	13237	
==>lone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13067	13237	
==>lone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2344	2472	
==>x = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2656	2780	
==>x = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2656	2780	
==>x = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4493	4592	
==>ilable for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the mon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4493	4592	
==>ilable for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the mon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38126	38291	
==>item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38126	38291	
==>item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38126	38291	
==>item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2486	2583	
==>ill report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2486	2583	
==>ill report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2486	2583	
==>ill report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3351	3462	
==>PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3351	3462	
==>PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3351	3462	
==>PIL2JS.possibly_autothread([$a, $b], [true, true], $cc, function (__cc, a, b) { __cc(new PIL2JS.Box.Constant($js <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8676	8764	
==>ay("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8734	8822	
==>ay("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unex <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12768	12855	
==>td><span title="Details" class="expander" onclick="toggle_visibility('<tmpl_var name=id> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29024	29120	
==>s which wrap zero old attributes (they are effectively just an
extension of the relation).

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33576	33672	
==>s which wrap zero old attributes (they are effectively just an
extension of the relation).

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32713	32809	
==>s which wrap zero old attributes (they are effectively just an
extension of the relation).

=item <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29038	29134	
==>ero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33590	33686	
==>ero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32727	32823	
==>ero old attributes (they are effectively just an
extension of the relation).

=item C<unwrap ( Se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11977	12083	
==>thers );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &produ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15454	15560	
==>thers );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &produ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14789	14895	
==>thers );
}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &produ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5672	5814	
==>...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5672	5814	
==>...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5672	5814	
==>...
            if ($self->has_method($method_name)) {
                # we stub the method for the class to implement
                #$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	888	1025	
==>ys of the match
                     object, telling captures where in the deep structure
                     to store what they've captu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	888	1025	
==>ys of the match
                     object, telling captures where in the deep structure
                     to store what they've captu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24959	25082	
==>ex} }

    # the position in the regex string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17562	17729	
==>, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17562	17729	
==>, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17562	17729	
==>, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items : 
                        $_ 
                    } @p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20807	20909	
==>DE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__looku <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	348	446	
==>lock_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	348	446	
==>lock_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	574	672	
==>s, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	574	672	
==>s, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	574	672	
==>s, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1341	1448	
==>ne ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1341	1448	
==>ne ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1341	1448	
==>ne ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil>(Code $cond, Code $body) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1789	1905	
==>traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, etc.)
    Str         Perl string (Uni <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6077	6168	
==>Event::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SY <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6077	6168	
==>Event::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4756	4858	
==>d_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_proce <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4756	4858	
==>d_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_proce <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4756	4858	
==>d_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_proce <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7276	7402	
==>NTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_S <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7276	7402	
==>NTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13151	13264	
==>mean to
	# run a fresh perl, so we'll brute force launder everything for you
	my $sep;

	eval "require Config; Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3178	3314	
==>rl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3178	3314	
==>rl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3178	3314	
==>rl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9091	9236	
==>hod\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl ext <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9091	9236	
==>hod\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl ext <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9091	9236	
==>hod\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl ext <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2240	2359	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2240	2359	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11167	11363	
==>( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11167	11363	
==>( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11167	11363	
==>( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything e <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1954	2051	
==>is not robust.  (If you need a real implementation
consult a book, like Numerical Recipies.)  In p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	512	609	
==>rgument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) retur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1370	1467	
==>rgument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8159	8269	
==>ding of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11636	11746	
==>ding of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10818	10928	
==>ding of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2402	2557	
==>lf->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2402	2557	
==>lf->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2402	2557	
==>lf->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5981	6112	
==>rent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5981	6112	
==>rent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4483	4574	
==>->prototype->class, \&Object, '... go the right super-superclass name for Point3D');

is($p3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5470	5567	
==>ITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5470	5567	
==>ITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5470	5567	
==>ITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7347	7488	
==>$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7347	7488	
==>$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7347	7488	
==>$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1672	1801	
==>eturn { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{rule}(), } } ]
        | [ <metasyntax> { r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3275	3381	
==>$.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3275	3381	
==>$.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12469	12566	
==>ML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are p <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12469	12566	
==>ML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7032	7135	
==>om channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7032	7135	
==>om channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3548	3637	
==>on(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_concatenation_more(W, Z) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4076	4181	
==>val { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4076	4181	
==>val { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4076	4181	
==>val { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12134	12243	
==>x0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12134	12243	
==>x0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12134	12243	
==>x0,@xxa) {
    p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9738	9839	
==>fo,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9738	9839	
==>fo,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9738	9839	
==>fo,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3070	3206	
==>Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3070	3206	
==>Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3070	3206	
==>Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	208	337	
==>uated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	208	337	
==>uated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	208	337	
==>uated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35338	35445	
==>rce Relations
have attributes in common; it will only accept inputs that would result in
a cross-product whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39888	39995	
==>rce Relations
have attributes in common; it will only accept inputs that would result in
a cross-product whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39448	39555	
==>rce Relations
have attributes in common; it will only accept inputs that would result in
a cross-product whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16729	16840	
==>:Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untaint <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16729	16840	
==>:Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untaint <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16729	16840	
==>:Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untaint <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9307	9470	
==>_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1427	1572	
==>_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1427	1572	
==>_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3548	3634	
==>ributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3548	3634	
==>ributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3548	3634	
==>ributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12048	12165	
==>r
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12048	12165	
==>r
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3361	3453	
==>e failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5::X1::Result->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1137	1235	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2633	2731	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1137	1235	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2868	3005	
==>{
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2868	3005	
==>{
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18985	19086	
==>s won't work if we pass in $plus_ten
my $flatten_polymorphic = fun(
	param => "f",
	body => comb(
		fu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12601	12695	
==>ng features.

This module deals with encoding and decoding of strings with HTML
character entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12601	12695	
==>ng features.

This module deals with encoding and decoding of strings with HTML
character entit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2431	2548	
==>Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not wor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2431	2548	
==>Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not wor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2431	2548	
==>Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not wor <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7284	7415	
==>split   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1349	1480	
==>e(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1349	1480	
==>e(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1349	1480	
==>e(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	987	1111	
==>x_x1   => sub{ $match = $rpc_regex->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12532	12628	
==>t be updated.  The tests that are passing represent the
current working features.

This module de <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12532	12628	
==>t be updated.  The tests that are passing represent the
current working features.

This module de <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2703	2821	
==>($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $se <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1203	1313	
==>self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1203	1313	
==>self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14828	14927	
==>5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14828	14927	
==>5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14828	14927	
==>5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
}
p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11690	11798	
==>XX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11690	11798	
==>XX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11690	11798	
==>XX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_to_b($f->defined())) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3208	3323	
==>:/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't kno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3208	3323	
==>:/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't kno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3208	3323	
==>:/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can't kno <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	310	409	
==>ed.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	310	409	
==>ed.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	310	409	
==>ed.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies w <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3062	3163	
==>d $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry lat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3062	3163	
==>d $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry lat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2457	2578	
==>th($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2457	2578	
==>th($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6229	6336	
==>ode}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${name}::I <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37295	37392	
==>e_name (a string) and checks whether or not it has already been
loaded, returning true if so and f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37295	37392	
==>e_name (a string) and checks whether or not it has already been
loaded, returning true if so and f <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12363	12528	
==>nd $test{max}) {
                    my ($txt, $canon) = _canonfailed($test{max},$test{skipped},
                                                    @{$test{failed}}) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4728	4824	
==>et1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @inter <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4728	4824	
==>et1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @inter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1626	1735	
==>t->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1626	1735	
==>t->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23019	23117	
==>ode to Perl's regex compiler does the
same thing.)

=item nparen

The number of OPENs (capturing gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6634	6758	
==>ove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6634	6758	
==>ove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6634	6758	
==>ove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1211	1332	
==>hey/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	771	892	
==>hey/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2119	2235	
==>{
     %result{$v} = $k;
   }
   %result;
 }

 multi sub Array::reverse (   @values) returns Lazy|Str {
 multi sub  P <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3473	3706	
==>);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpol <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3473	3706	
==>);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpol <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2486	2596	
==>kets on \\%s", 'C');
  });

  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_obje <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11662	11755	
==>turns true if this recurrence intersects (has any element in common) with the given recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11662	11755	
==>turns true if this recurrence intersects (has any element in common) with the given recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11185	11299	
==>entify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11185	11299	
==>entify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11185	11299	
==>entify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10630	10732	
==>RAY";
	_quote_args(\$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3041	3160	
==>x:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3041	3160	
==>x:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3041	3160	
==>x:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprint <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2714	3006	
==>> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $bu <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2714	3006	
==>> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $bu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2081	2185	
==>cePresent = split / /, $nameSplit[$#nameSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	829	975	
==>:Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	829	975	
==>:Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	829	975	
==>:Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1440	1546	
==>no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1440	1546	
==>no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1440	1546	
==>no text node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15454	15587	
==>self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16869	17002	
==>self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21625	21758	
==>self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34528	34638	
==>y( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34528	34638	
==>y( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34528	34638	
==>y( $offset ); $offset = 0   unless defined $offset;
    my $length = shift; $length = Perl6::Value::numify( $le <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6356	6455	
==>lf = shift;
	my $sym = shift;

	require charnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(ord( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10783	10881	
==>. If the $value is undefined or not
given, then that header field will remain unchanged.

The old v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10783	10881	
==>. If the $value is undefined or not
given, then that header field will remain unchanged.

The old v <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	287	395	
==>my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not enough elements to construc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6284	6406	
==>";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6284	6406	
==>";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6284	6406	
==>";
            ::opaque_instance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaq <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6406	6512	
==>h;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6418	6524	
==>h;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1031	1137	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1031	1137	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1031	1137	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3530	3619	
==>tr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3530	3619	
==>tr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3530	3619	
==>tr($self => '%:attributes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5841	5953	
==>ch->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match->{captur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5656	5766	
==>ch->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match->{captur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7867	7986	
==>marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7867	7986	
==>marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7867	7986	
==>marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	293	402	
==>ls);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	293	402	
==>ls);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	293	402	
==>ls);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1779	1896	
==>ck = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1779	1896	
==>ck = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1779	1896	
==>ck = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15551	15671	
==>ur dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15551	15671	
==>ur dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15551	15671	
==>ur dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4856	4974	
==>0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4856	4974	
==>0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4856	4974	
==>0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4074	4255	
==>defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -I <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4074	4255	
==>defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -I <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	527	650	
==>bj not isa "P6RulesInP5::Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	38	152	
==>ata::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1078	1185	
==>t longest). 
# note: the list in @$nodes can be modified at runtime
sub alternation {
    my $nodes = shi <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2737	2843	
==><identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <d <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2737	2843	
==><identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18352	18462	
==>e]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14773	14883	
==>e]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	321	422	
==>ation
#!\pause
#=Aufruf einer einfachen Methode
$welt.hallo;	# Perl 5:  $welt->hello;
hallo $welt;	# w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	951	1077	
==>es for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; ho <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	951	1077	
==>es for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; ho <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19281	19371	
==>NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	281	530	
==>values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::Keyed <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	281	530	
==>values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::Keyed <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	521	610	
==>::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8434	8612	
==>{
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12347	12520	
==>{
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12347	12520	
==>{
        #print "compiling subrule\n";
        #return $h->code;
        return sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1953	2063	
==>alue for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1953	2063	
==>alue for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6126	6233	
==>precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');

## make instance <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3451	3566	
==>et_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.tak <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3451	3566	
==>et_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.tak <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7537	7640	
==>.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7537	7640	
==>.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7537	7640	
==>.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8330	8435	
==>6_applyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21896	21989	
==>ocumentation in this distribution for that comparison.

=head1 INTERFACE

The interface of Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21896	21989	
==>ocumentation in this distribution for that comparison.

=head1 INTERFACE

The interface of Ros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	765	874	
==>_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	765	874	
==>_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	765	874	
==>_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4845	5011	
==>SCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4845	5011	
==>SCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4845	5011	
==>SCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4473	4566	
==>que_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4473	4566	
==>que_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4473	4566	
==>que_instance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1131	1229	
==>use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1131	1229	
==>use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1131	1229	
==>use Test//gm, things will still work but performance will
  # suffer, as Test.pm would be re-parsed <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6640	6740	
==>::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the spe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6640	6740	
==>::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the spe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8837	8937	
==>::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the spe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17678	17773	
==>messages and contains information
about the user agent originating the request.  I<E.g.>:

  $h. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17678	17773	
==>messages and contains information
about the user agent originating the request.  I<E.g.>:

  $h. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1304	1401	
==>y (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1304	1401	
==>y (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1304	1401	
==>y (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	529	642	
==>_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	529	642	
==>_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	529	642	
==>_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14761	14865	
==>nct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, \$h <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2959	3055	
==>nal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2959	3055	
==>nal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5567	5670	
==>MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5567	5670	
==>MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5567	5670	
==>MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24979	25110	
==>?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->erro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21400	21531	
==>?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1711	1820	
==>imitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1711	1820	
==>imitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1711	1820	
==>imitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	768	876	
==>(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	768	876	
==>(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	768	876	
==>(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	952	1073	
==>t the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	952	1073	
==>t the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	952	1073	
==>t the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1529	1697	
==>ELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1529	1697	
==>ELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1529	1697	
==>ELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7398	7484	
==>s correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7398	7484	
==>s correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7398	7484	
==>s correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_all_rol <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	481	580	
==>l $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	481	580	
==>l $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->( <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1526	1624	
==>";
}
if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
    print "# Unpacking $exename.exe\n" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29584	29679	
==>ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29584	29679	
==>ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	392	483	
==>ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3015	3117	
==>$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3015	3117	
==>$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3015	3117	
==>$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	318	418	
==>andleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	318	418	
==>andleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	318	418	
==>andleWhitespace(String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8097	8217	
==>),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8097	8217	
==>),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8097	8217	
==>),
      PIL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49040	49270	
==>rsion' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$version')
                  ->is_not_nil
                  - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22647	22765	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22926	23044	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	340	462	
==>ces using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - ac <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	340	462	
==>ces using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - ac <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5026	5127	
==>=begin _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run is overall s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22938	23111	
==>TORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22938	23111	
==>TORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22938	23111	
==>TORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $sc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4228	4314	
==>Interface::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4228	4314	
==>Interface::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1614	1745	
==>sequence of integers, no Unicode)
    num         native floating point
    ref         native pointer 
    bool        native boole <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2298	2414	
==>, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    lo <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2298	2414	
==>, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    lo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	475	735	
==>y (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=po <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	475	735	
==>y (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12678	12823	
==>sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # The <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12678	12823	
==>sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # The <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12678	12823	
==>sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	695	784	
==>rclasses([ $::Class ]);

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	695	784	
==>rclasses([ $::Class ]);

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	695	784	
==>rclasses([ $::Class ]);

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1918	2028	
==>h @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1918	2028	
==>h @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1918	2028	
==>h @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") { <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7402	7502	
==>type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive let expr a generic recursiv <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33674	33769	
==>ent is a Template module Member Name and usually corresponds to a
language like English or Frenc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33674	33769	
==>ent is a Template module Member Name and usually corresponds to a
language like English or Frenc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2229	2333	
==>t->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'ti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2229	2333	
==>t->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'ti <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6103	6195	
==>".
p5_elemental(bos)   --> "\\A".
p5_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37665	37772	
==>n numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37665	37772	
==>n numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37665	37772	
==>n numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	250	370	
==>lf == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	250	370	
==>lf == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	250	370	
==>lf == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal would be nicer... :)
    my $v = $self- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3321	3429	
==>= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3321	3429	
==>= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3274	3382	
==>e $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3274	3382	
==>e $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3274	3382	
==>e $1;") : ($_) } @args;

  diag "$cfg{pugs} @args";

  $ENV{PERL5LIB} = join $Config{path_sep}, pwd('lib'), ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3063	3266	
==>' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3063	3266	
==>' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3063	3266	
==>' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3047	3142	
==>an be called repeatedly to encipher data.
The encipherer closure can be called with a string, an <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3047	3142	
==>an be called repeatedly to encipher data.
The encipherer closure can be called with a string, an <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6599	6704	
==>ls.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6599	6704	
==>ls.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12811	12931	
==>t_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2946	3055	
==>= /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.rea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2946	3055	
==>= /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5305	5429	
==>'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5305	5429	
==>'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5305	5429	
==>'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13229	13329	
==>exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13229	13329	
==>exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13229	13329	
==>exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1443	1640	
==>= @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1443	1640	
==>= @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1443	1640	
==>= @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7740	7859	
==>b { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7740	7859	
==>b { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7740	7859	
==>b { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.un <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6912	7024	
==>annels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was ki <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6912	7024	
==>annels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was ki <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2854	2957	
==>eys %$config;
    $template =~ s/#all_definitions#/$all_definitions/;

    print $template;
}

sub __tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1059	1167	
==>ETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1059	1167	
==>ETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1059	1167	
==>ETCH and boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .cont <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7143	7237	
==>put.

A default implementation of this method is provided which returns nothing.

=item C<_tail <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7143	7237	
==>put.

A default implementation of this method is provided which returns nothing.

=item C<_tail <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	45	136	
==>re::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symbol;
use Perl6::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10108	10227	
==>---    
      
    # -----------------------------------------------  
    # collects all the roles, and applies them to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10108	10227	
==>---    
      
    # -----------------------------------------------  
    # collects all the roles, and applies them to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10108	10227	
==>---    
      
    # -----------------------------------------------  
    # collects all the roles, and applies them to <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4998	5096	
==>B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4998	5096	
==>B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6522	6620	
==>B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5889	6009	
==>thod next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5889	6009	
==>thod next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2940	3045	
==>1),
    ),

And also place the value 1 on the parameter stack.

Inherits List.

=item Sym

Resolves a symb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1363	1495	
==>er, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUIL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1363	1495	
==>er, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUIL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1363	1495	
==>er, 'BUILD') -> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUIL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1598	1694	
==>between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURITY> for important ca <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1598	1694	
==>between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURITY> for important ca <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	583	685	
==>nfig{sitebin},
        siteprefix=> $Config{siteprefix},

        installscript  => $Config{installscri <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	76	177	
==>T_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(k <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	76	177	
==>T_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(k <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2097	2248	
==>.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3689	3836	
==>.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4625	4712	
==>it_class>|<escape_sequence>|<named_character>|<simple_character> }
rule a_dot  { \. }
ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1766	1878	
==>ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1766	1878	
==>ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1766	1878	
==>ISA = qw(EvalX::BaseClass); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11261	11396	
==>te = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $cand <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11261	11396	
==>te = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $cand <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11261	11396	
==>te = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! defined $cand <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2077	2249	
==>dx)->scalar_store($value);
            },

            'array_fetchSize' => sub { # $int
                my $self = shift;
                my $idx = shift;
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5122	5231	
==>to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5344	5453	
==>to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	929	1064	
==>ircumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6653	6809	
==>{
	next if $created{$pkg};
	$code .= "package $pkg;\n";
    }
    #print $code;
    $code;
}
BEGIN{ eval(gen_code); die $@ if $@; }

package PIL::PIL1CPerl5: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10889	10983	
==>nctions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer return <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10889	10983	
==>nctions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer return <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1015	1171	
==>name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1015	1171	
==>name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	645	769	
==>eturn { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10417	10590	
==>$other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13894	14067	
==>$other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37011	37107	
==>lags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: an ob <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2324	2437	
==>nt "{}\n";
		next;
	    } elsif ($file[0] eq '=') {
		print '}\end{block}' if $inblock;
		$inblock = 1;
		print '\ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3809	3907	
==>.  Finally, call the finish() method to return any leftover data 
and clear the cipher object.

The <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3809	3907	
==>.  Finally, call the finish() method to return any leftover data 
and clear the cipher object.

The <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	195	313	
==>__WARN__}; $SIG{__WARN__} = sub { $w } };

#line 31

sub new {
    my ($class, %args) = @_;

    foreach my $method (qw <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	332	431	
==>);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	332	431	
==>);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5034	5144	
==>xt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5034	5144	
==>xt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5034	5144	
==>xt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6634	6759	
==>tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6634	6759	
==>tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6634	6759	
==>tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	422	549	
==>FALSE)
        || confess "Your arg list must at least include the invocant";
    my $inv = $args->fetch(num->new(0));
    (bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	306	407	
==>tTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_except <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	306	407	
==>tTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_except <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	306	407	
==>tTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_except <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11339	11460	
==>$cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11339	11460	
==>$cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11339	11460	
==>$cls = class1($name => {
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1617	1714	
==>stance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1617	1714	
==>stance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1617	1714	
==>stance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2540	2693	
==>s HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2540	2693	
==>s HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2540	2693	
==>s HTML
:c <exp>                = ditto
:e <exp>                = compile expression and run it
:js <exp>               = compile expression and show it
:l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	368	465	
==>toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	368	465	
==>toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	368	465	
==>toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9835	9956	
==>$i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9835	9956	
==>$i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9835	9956	
==>$i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $IN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2677	2883	
==>nless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32057	32155	
==>lation that has the same heading
and whose body contains all of the tuples that are in either or bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36607	36705	
==>lation that has the same heading
and whose body contains all of the tuples that are in either or bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1508	1605	
==>, run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1508	1605	
==>, run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1508	1605	
==>, run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1514	1649	
==>('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1514	1649	
==>('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %! <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	10	109	
==>/perl

use warnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	166	266	
==>* here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	166	266	
==>* here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	166	266	
==>* here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4501	4602	
==>TI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4501	4602	
==>TI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4501	4602	
==>TI SUB want () {...};
MULTI SUB bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6666	6767	
==>',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOpti <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6666	6767	
==>',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOpti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	597	707	
==>arn "Error in compile: unknown parameter '$_'" 
        for keys %$param;
    #print 'rule source: ', $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	764	869	
==>", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	764	869	
==>", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1111	1222	
==>l>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1111	1222	
==>l>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1111	1222	
==>l>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3390	3598	
==>print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3390	3598	
==>print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25941	26041	
==>e ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBOL	 	0x00004
 #defin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4850	5105	
==>tinst ] )                   and die $?;
            }    

            ### clean up the builddir
            system( qq[rm -rf $src] )                           and die $?;

        }

        ### clean up the temp dir 
        system( qq[rm -rf $my_tmp_di <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31385	31485	
==>.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library coul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31385	31485	
==>.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library coul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1967	2072	
==>rce is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1967	2072	
==>rce is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1967	2072	
==>rce is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 CO <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29582	29679	
==>n the failure summary.

Rework the test summary so long test names are not truncated as badly.
(Pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2465	2558	
==>.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2465	2558	
==>.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5866	6134	
==>etch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5866	6134	
==>etch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5866	6134	
==>etch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	494	608	
==>\s+(.*)/;
        $default = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1167	1265	
==>_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1225	1323	
==>_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2299	2441	
==>ttrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2504	2646	
==>ttrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1967	2100	
==>< $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1967	2100	
==>< $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1967	2100	
==>< $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13971	14102	
==>ass_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13971	14102	
==>ass_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13971	14102	
==>ass_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	921	1023	
==>C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	921	1023	
==>C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1477	1579	
==>C<#>
characters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	145	284	
==>gs like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferences, and method calls

    @baz[3](1,2,3){$xyz}<blurfl>.a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	367	486	
==>ss than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	367	486	
==>ss than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	110	223	
==>gs::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	233	322	
==>------------------------------------------------
## This is an extension of the Mini-MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	201	290	
==>------------------------------------------------
## This is an extension of the Mini-MetaM <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7524	7652	
==>8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "h <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7524	7652	
==>8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "h <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5733	5855	
==>self->{pathnames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('new') };
        unless ( $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14728	14856	
==>ages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14728	14856	
==>ages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14728	14856	
==>ages of the bootstrap, this is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	38	140	
==>e strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	38	140	
==>e strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	38	140	
==>e strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::E <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12259	12354	
==>r-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, th <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12259	12354	
==>r-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35992	36224	
==>mbol->new('%:attributes'))
                  ->store(
                      $e->get('$label'), 
                      $e->get('$attribute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Clas <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22930	23029	
==>ontains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27482	27581	
==>ontains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	666	778	
==>LIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	666	778	
==>LIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	666	778	
==>LIKE and $tail->isa("PIL::PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7849	7966	
==>spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'fal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5356	5455	
==>}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5356	5455	
==>}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5356	5455	
==>}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::expand();
}
package PS <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27427	27522	
==>s constructed.  If you want to
conceptually change an existing Message object, you must create a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27427	27522	
==>s constructed.  If you want to
conceptually change an existing Message object, you must create a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13980	14078	
==>d, then the
routine is called once for each value.  The field name passed to the
callback routine h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13980	14078	
==>d, then the
routine is called once for each value.  The field name passed to the
callback routine h <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2467	2570	
==>op tree.  The struct is used
both to return a compiled regexp, and to provide match results.  This
modul <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4650	4747	
==>ithmetic and list operations ----------------

method grep ($set: Code $select ) {
    return $set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4650	4747	
==>ithmetic and list operations ----------------

method grep ($set: Code $select ) {
    return $set <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3964	4077	
==>next, $depth-$d) : $next;
  }
}


sub visual {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $vis = jo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7977	8072	
==>lement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complemen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7977	8072	
==>lement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complemen <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5541	5642	
==>"); }
  previous_exec_hook = PL_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp stru <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10068	10166	
==>. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10068	10166	
==>. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1704	1826	
==>")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1704	1826	
==>")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1704	1826	
==>")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16280	16450	
==>ass;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16280	16450	
==>ass;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16280	16450	
==>ass;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3321	3441	
==>intf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3321	3441	
==>intf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3321	3441	
==>intf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "") <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49899	50154	
==>$authority' => 'str'),
                          ),
                returns => 'str'
            ),            
            sub {
                my $e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6123	6243	
==>ostfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6123	6243	
==>ostfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	580	704	
==>nLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	580	704	
==>nLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	580	704	
==>nLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11326	11481	
==>ne_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11326	11481	
==>ne_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_r <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2741	2841	
==>elf->admin->preop;
    }

    ExtUtils::MakeMaker::WriteMakefile(%args);

    $self->fix_up_makefile( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5024	5159	
==>_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2566	2701	
==>_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3347	3482	
==>_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op =   get_str( $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3596	3739	
==>tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort k <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3596	3739	
==>tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort k <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	156	253	
==>);

print "$wer hat einen $haustier\n";
print "$wer mag @obst[0] und @obst[1]\n";
print "{$wer}s L <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	73	193	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	73	193	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	73	193	
==>do?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10095	10236	
==>^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6436	6577	
==>^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7285	7426	
==>^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4027	4142	
==>mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4027	4142	
==>mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4027	4142	
==>mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4286	4381	
==>ub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4286	4381	
==>ub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4286	4381	
==>ub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3020	3153	
==>kage Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3020	3153	
==>kage Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3020	3153	
==>kage Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8763	8944	
==>e($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables wit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8763	8944	
==>e($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables wit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8763	8944	
==>e($label) ?
                    $self->get_attribute($label)
                    :
                    # class attributes are really just package 
                    # variables wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7474	7629	
==>Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7474	7629	
==>Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7474	7629	
==>Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14086	14210	
==>);

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14086	14210	
==>);

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14086	14210	
==>);

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	644	766	
==>ns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	644	766	
==>ns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	644	766	
==>ns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	845	963	
==>\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	845	963	
==>\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	845	963	
==>\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	862	966	
==>primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	862	966	
==>primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	862	966	
==>primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	412	516	
==>jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	412	516	
==>jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	412	516	
==>jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7910	8072	
==>) ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7910	8072	
==>) ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7910	8072	
==>) ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11594	11711	
==>n order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11594	11711	
==>n order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11594	11711	
==>n order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33069	33159	
==>thod has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37619	37709	
==>thod has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36963	37053	
==>thod has aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10038	10156	
==>] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10032	10150	
==>] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         i <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	442	552	
==>url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	409	519	
==>url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7028	7122	
==>p5_metachar(")").
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\{\}\[\]\(\)\^\$\.\|\*\+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30003	30144	
==>-";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30003	30144	
==>-";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30003	30144	
==>-";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32120	32274	
==>rit their ender() and walk() methods from the base
object class; most have no ending node, and most don't need to to do
anything to the walking stack.

Whe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21430	21525	
==>ational database engines with minimal effort.

This might seem strange to somebody who has not t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21430	21525	
==>ational database engines with minimal effort.

This might seem strange to somebody who has not t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1747	1857	
==>on (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1747	1857	
==>on (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1747	1857	
==>on (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17381	17481	
==>fic, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17381	17481	
==>fic, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17381	17481	
==>fic, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8352	8466	
==>ut );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.outpu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	562	664	
==>ut );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.outpu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	562	664	
==>ut );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.outpu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4530	4698	
==>=>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4392	4551	
==>=>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $co <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16788	16878	
==>ssionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpressionNoIn>
}
rule Bitwise <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	451	571	
==>b {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0 <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	712	815	
==>s }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	712	815	
==>s }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7887	8020	
==>$S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7780	7908	
==>PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7780	7908	
==>PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7780	7908	
==>PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarray();
        var ar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7655	7784	
==>(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$pre <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4713	4813	
==>:Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return ' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4713	4813	
==>:Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5996	6191	
==>$start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5996	6191	
==>$start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5996	6191	
==>$start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5274	5413	
==>(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5274	5413	
==>(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6585	6697	
==>+ 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6585	6697	
==>+ 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6585	6697	
==>+ 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primiti <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6060	6213	
==>ot break so the smoke reports look
          # good even on 640x480
          $str;
        },
      ],
      duration      => sprintf("%.02f", Time::Seco <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7343	7446	
==>her!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10820	10923	
==>her!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9957	10060	
==>her!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3217	3315	
==>yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3217	3315	
==>yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3217	3315	
==>yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@int <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6495	6682	
==>tch => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6495	6682	
==>tch => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1 <==
3	/Users/nnunley/pugs/util/grokprims.pl	1017	1135	
==>> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2703	2814	
==>n other *nix
      systems, too. For now, I made the script stop if you aren't running under
      Linux, you ma <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1072	1181	
==>start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kw <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1072	1181	
==>start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26175	26372	
==>) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26175	26372	
==>) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26175	26372	
==>) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str =  join( ' ', map { P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10925	11040	
==>_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10925	11040	
==>_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30786	30884	
==>t can't match the ')', because
if the 'c)' handler gets called, it's expected to match!  It pops th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3434	3537	
==>bname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3434	3537	
==>bname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3434	3537	
==>bname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1153	1350	
==>= $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1153	1350	
==>= $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1153	1350	
==>= $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # whi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8614	8809	
==>-> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12091	12286	
==>-> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11300	11495	
==>-> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method differ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15350	15559	
==>) ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18827	19036	
==>) ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18252	18461	
==>) ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22190	22307	
==>the regex.

=item tree

During the first pass, C<tree> is undef, which instructs the object()
method not to actually c <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10303	10408	
==>1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10303	10408	
==>1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1575	1672	
==>() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1575	1672	
==>() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1575	1672	
==>() implementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11754	11851	
==>eans that all classes
and roles can be polymorphic to one another. 

Because instances of class al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11754	11851	
==>eans that all classes
and roles can be polymorphic to one another. 

Because instances of class al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11754	11851	
==>eans that all classes
and roles can be polymorphic to one another. 

Because instances of class al <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12810	12909	
==>ns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element in the <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12810	12909	
==>ns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element in the <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	327	423	
==>$duration) returns Duration {
    #$self.subtract($duration);
#}

#method infix:<+>($self: Durati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16284	16412	
==>le = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever anno <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16284	16412	
==>le = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever anno <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16284	16412	
==>le = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever anno <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2568	2684	
==>my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} el <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21498	21593	
==>nother package or program which uses yours may wish to
override some of your messages, showing o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21498	21593	
==>nother package or program which uses yours may wish to
override some of your messages, showing o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3051	3171	
==>an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3051	3171	
==>an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3051	3171	
==>an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $ob <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4363	4462	
==>{ my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $_[0]{'p6_file'}->value }

sub as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2014	2139	
==>itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2014	2139	
==>itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2014	2139	
==>itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6142	6263	
==>TSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6142	6263	
==>TSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6142	6263	
==>TSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hello from su <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29254	29367	
==>block {
    $order = ':ascendant' 
        if !~$order || $order == ':canonical';
    ...
}

=cut

$::Class->send( <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2992	3093	
==>die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2992	3093	
==>die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@tr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15301	15410	
==>" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15301	15410	
==>" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19553	19658	
==>pture.
n=0 is the whole match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21747	21846	
==>)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21747	21846	
==>)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21747	21846	
==>)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	563	669	
==>by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4041	4147	
==>by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4268	4363	
==>lit = emit(get_data($_[0], '$<value>'));
   return $var." = \\".$lit.";\n";
}
sub node::access_h <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1094	1185	
==>ries of documents, written
in question/answer format, to explain the design and implementati <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1094	1185	
==>ries of documents, written
in question/answer format, to explain the design and implementati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4822	4958	
==>::Regex->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler::Regex->compile( q(
            < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	506	608	
==>Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished mi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	506	608	
==>Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished mi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	506	608	
==>Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, .name
# * Finished mi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19066	19199	
==>='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :wor <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10832	10930	
==>".

The complement set of the universe is an empty set.

`:is_universe` must be set if this recurre <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10832	10930	
==>".

The complement set of the universe is an empty set.

`:is_universe` must be set if this recurre <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	120	226	
==>r;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret h <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	120	226	
==>r;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	500	636	
==>>{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	500	636	
==>>{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	500	636	
==>>{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13723	13862	
==>\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13723	13862	
==>\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9212	9304	
==>t -> int
	add => type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2682	2841	
==>_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$heade <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2682	2841	
==>_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$heade <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7406	7519	
==>OCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	577	687	
==>{
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	577	687	
==>{
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	577	687	
==>{
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9129	9253	
==>$self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9129	9253	
==>$self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9129	9253	
==>$self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->check_params(@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	943	1060	
==>two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	943	1060	
==>two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	943	1060	
==>two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - except for Pair
#
# 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15055	15165	
==>:Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15055	15165	
==>:Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15055	15165	
==>:Value::Num::Inf);
    return 'NaN'  if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1308	1453	
==>->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1308	1453	
==>->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1308	1453	
==>->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	121	214	
==>:Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	121	214	
==>:Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	267	408	
==>Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	267	408	
==>Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	267	408	
==>Hash();

    for(var i = 0; i < pairs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5374	5491	
==>ar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5374	5491	
==>ar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5374	5491	
==>ar,$n) = sigil_and_rest($mn);
    $always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14941	15067	
==>Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to us <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9538	9644	
==>they need to implement.
method zeroize()                {...}
method _cipher(Array $data) returns Array {.. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9538	9644	
==>they need to implement.
method zeroize()                {...}
method _cipher(Array $data) returns Array {.. <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2185	2389	
==>}
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.pri <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2185	2389	
==>}
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4457	4598	
==>defined $name 
                && $name =~ /[[:alnum:]]$/ 
                && defined $$m->{tail}
                && $$m->{tail} =~ /^[_[:alnu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18081	18250	
==>gs});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18081	18250	
==>gs});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18081	18250	
==>gs});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable method it is <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8014	8136	
==>hr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8014	8136	
==>hr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	619	712	
==>nce implementation of all the things the
language must provide, including stuff for what canno <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14651	14756	
==>:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14651	14756	
==>:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14651	14756	
==>:class_methods'));

## Now we make Class conform to the Package interface

::Class.meta.add_method('FETCH' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4812	4902	
==>$EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4812	4902	
==>$EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4812	4902	
==>$EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26987	27143	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27266	27422	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2737	2833	
==>entation. 
Pugs currently has some issues with Perl 5 interoperability.

Parrot Perl 6 is the bes <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5412	5510	
==>rence to a URI object.

You will not be able to examine the response code or response headers
(like <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5412	5510	
==>rence to a URI object.

You will not be able to examine the response code or response headers
(like <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25512	25610	
==>t> 8>
and C<$?> are printed in a message similar to the above.

=item C<Failed 1 test, %.2f%% okay. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14362	14540	
==>thods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14362	14540	
==>thods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14362	14540	
==>thods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7885	8083	
==>get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7885	8083	
==>get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16231	16475	
==>,
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16231	16475	
==>,
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16231	16475	
==>,
                        celems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2851	2979	
==>r;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2851	2979	
==>r;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2851	2979	
==>r;
      $jsname.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3971	4095	
==>op';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3971	4095	
==>op';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	821	945	
==>op';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6326	6450	
==>a"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6326	6450	
==>a"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1673	1779	
==>AML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1673	1779	
==>AML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1673	1779	
==>AML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_chec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14448	14638	
==>discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17925	18115	
==>discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17341	17531	
==>discarded as they have no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.headi <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2383	2489	
==>args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    ble <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4643	4749	
==>args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	691	792	
==>();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.langu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	691	792	
==>();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.langu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	691	792	
==>();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.langu <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1784	1879	
==>or forward compatibility it should always be the 
value C<1>, the default for the C<:name> form. <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1784	1879	
==>or forward compatibility it should always be the 
value C<1>, the default for the C<:name> form. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3433	3556	
==>me')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 & <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3433	3556	
==>me')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 & <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3433	3556	
==>me')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 & <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6448	6559	
==>$current = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ($self, $e <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1128	1226	
==>self.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1128	1226	
==>self.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14898	15010	
==>_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18375	18487	
==>_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17791	17903	
==>_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1241	1348	
==>t;
		my $other = shift;

		(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Bl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32478	32584	
==>elf = shift;
    [ 'close', $self->nparen ];
  }

That means that when an 'open' node is walked into, after <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6272	6450	
==>regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6272	6450	
==>regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6272	6450	
==>regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(string);
          if (!match) {
            r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2630	2757	
==>n it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2630	2757	
==>n it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2630	2757	
==>n it
:js <exp>               = compile expression and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	305	417	
==>a (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	305	417	
==>a (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	305	417	
==>a (rational soul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	101	280	
==>(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	101	280	
==>(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	954	1109	
==>Control -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6680	6785	
==>exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6680	6785	
==>exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6680	6785	
==>exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      v <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	274	402	
==>$bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 i <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	274	402	
==>$bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5888	6018	
==>{
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5888	6018	
==>{
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5888	6018	
==>{
    # creates a new Array - not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	616	716	
==>output>

The filehandle to which to write all normal output (test results and
descriptions).

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	616	716	
==>output>

The filehandle to which to write all normal output (test results and
descriptions).

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1172	1272	
==>output>

The filehandle to which to write all normal output (test results and
descriptions).

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2782	2895	
==>w_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2782	2895	
==>w_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2782	2895	
==>w_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1812	1926	
==>y $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1812	1926	
==>y $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1812	1926	
==>y $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(Eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7535	7706	
==>nt;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7535	7706	
==>nt;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7535	7706	
==>nt;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4034	4139	
==>Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4034	4139	
==>Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17100	17196	
==>ity was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other pack <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17100	17196	
==>ity was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other pack <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	36	137	
==>use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Ins <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	34	135	
==>use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Ins <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	31	132	
==>use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Ins <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6432	6529	
==>@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns S <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6432	6529	
==>@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6222	6316	
==>?:licen[cs]e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bb <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	890	998	
==>ass);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package method::signature;

use stric <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12585	12679	
==>he
current working features.

This module deals with encoding and decoding of strings with HTML <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12585	12679	
==>he
current working features.

This module deals with encoding and decoding of strings with HTML <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14088	14214	
==>4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14088	14214	
==>4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2903	3019	
==>ile = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $sr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2903	3019	
==>ile = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $sr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2903	3019	
==>ile = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $sr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10022	10131	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'AR <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10022	10131	
==>_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'AR <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2038	2133	
==>name.c\n";
    if (system("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0) { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5154	5247	
==>iption> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description? <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5154	5247	
==>iption> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6678	6771	
==>iption> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6276	6544	
==>d[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6740	7008	
==>d[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	678	770	
==>(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use constant RPe_BADFLG <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4653	4756	
==>,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4653	4756	
==>,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal' <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2533	2627	
==>g the behavior otherwise.  The F<prove> utility's C<-v>
flag will set this.

=item C<$Test::Har <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4234	4330	
==>rcularity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4234	4330	
==>rcularity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4234	4330	
==>rcularity issues and other such ugliness 

## introspective methods

$::Role->add_method('does' = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2310	2469	
==>';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix';
        return prefix( $n )
            if <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	308	422	
==>an;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	308	422	
==>an;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1346	1454	
==>port')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1346	1454	
==>port')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	290	436	
==>ame};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: S <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	290	436	
==>ame};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6457	6561	
==>ed{'$name'};
  sub info { \$info } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_root}::Node;\ <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2034	2130	
==>ex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2034	2130	
==>ex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12906	13064	
==>L::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12906	13064	
==>L::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12906	13064	
==>L::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2350	2450	
==>::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2350	2450	
==>::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2350	2450	
==>::{'*'}->STORE('::Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->S <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2214	2319	
==>ns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns B <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2214	2319	
==>ns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns B <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	793	883	
==>, "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\D", "term:", "no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3080	3203	
==>Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3080	3203	
==>Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3080	3203	
==>Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
E <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9766	9889	
==>ed;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wanted stri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11243	11366	
==>ed;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wanted stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5037	5154	
==>make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5037	5154	
==>make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5037	5154	
==>make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	4054	4178	
==>lf->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg];
    }, $path) if -d $path;

    @found;
}

1;

__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4103	4218	
==>"-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4103	4218	
==>"-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4103	4218	
==>"-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { co <==
3	/Users/nnunley/pugs/util/package-osx.pl	10427	10561	
==>r die "Can't open $dest$files[-1]!";

    my @header = qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5789	5902	
==>f $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5777	5890	
==>f $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $na <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3200	3304	
==>to test test modules that use Test::Builder.  It
does this by you setting the expected output and diagnos <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3200	3304	
==>to test test modules that use Test::Builder.  It
does this by you setting the expected output and diagnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3280	3384	
==>to test test modules that use Test::Builder.  It
does this by you setting the expected output and diagnos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4441	4571	
==>ind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use bas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4441	4571	
==>ind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use bas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5031	5161	
==>ind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package Data::Bind::Param;
use bas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1375	1477	
==>hile (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1580	1682	
==>hile (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1641	1743	
==>hile (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$label} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4408	4507	
==>lts to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4408	4507	
==>lts to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6605	6704	
==>lts to false.  If it is true, the factory returns
a Test::Builder::Test::TODO instance, passing on t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3014	3131	
==>fine sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3492	3609	
==>fine sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1806	1929	
==>ie "Can't determine file_sep";

    return $config;
}

sub add_path {
    my ($name, $config) = @_;
    my $path = $Config{$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24790	24887	
==>ion, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24790	24887	
==>ion, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St, <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13062	13167	
==>ing two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( : <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13062	13167	
==>ing two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( : <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4071	4171	
==>ed>

A list of the tests which failed.  Successive failures may be
abbreviated (ie. 15-20 to indicate <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9060	9158	
==>em Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9060	9158	
==>em Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4575	4712	
==>$m->{tail} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12999	13095	
==>turn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Except <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12999	13095	
==>turn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Except <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12999	13095	
==>turn ($argl)";
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Except <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11768	11853	
==>PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11768	11853	
==>PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11768	11853	
==>PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7503	7641	
==>able( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7503	7641	
==>able( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2377	2513	
==>-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2924	3060	
==>-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3471	3607	
==>-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9615	9712	
==>Array $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9615	9712	
==>Array $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3602	3692	
==>_accessors(qw(positional invocant named named_slurpy));
use Carp qw(croak);
use PadWalker q <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1869	2012	
==>e ( $arg ) {
            $.string = $arg.value;
            push @.strings, $arg.value;
        }
    }


    role Getopt::Argument::Coercer::Pe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1359	1470	
==>d {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 mu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	379	490	
==>d {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 mu <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5863	6013	
==>t)\
\\n   List      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   List      pre     zip     safe   (List)\
\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21326	21448	
==>cent = 100*(scalar @{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2623	2732	
==>->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
        $args-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1586	1731	
==>by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1586	1731	
==>by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1586	1731	
==>by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21242	21497	
==>ore( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21242	21497	
==>ore( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21242	21497	
==>ore( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3736	3857	
==>::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3736	3857	
==>::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3736	3857	
==>::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($self => '$:name');
}));

$::Cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34114	34223	
==>tical header to the invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38664	38773	
==>tical header to the invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38125	38234	
==>tical header to the invocant relation.  This method has aliases
named C<minus> and C<except>.

=item C<semidif <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5397	5553	
==>ef( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5619	5775	
==>ef( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1152	1258	
==>ubrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1163	1269	
==>ubrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23081	23177	
==>as, with the other packages like "gettext" it looks like you
are supposed to pass in english text <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23081	23177	
==>as, with the other packages like "gettext" it looks like you
are supposed to pass in english text <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	406	494	
==>optable->addToken("term:^", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12912	13039	
==>able' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must hav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12912	13039	
==>able' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must hav <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12912	13039	
==>able' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY')
            || confess "dispatch must hav <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2568	2844	
==>n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbati <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2568	2844	
==>n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbati <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1966	2099	
==>++."\t"/mge;
    $s;
}

1;
__END__

sub original_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_stri <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	82	181	
==>d really be an acccessor - all it's doing is making the
# "source" property of the object fallback t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	82	181	
==>d really be an acccessor - all it's doing is making the
# "source" property of the object fallback t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14607	14721	
==>i) {
	    my $perl = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl had problems loadin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1840	1932	
==>divided to various intrinsic object types, including

intrinsic Code (which then has Pad/Sig/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1768	1859	
==>divided to various intrinsic object types, including
intrinsic Code (which then has Pad/Sig/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22815	22907	
==>from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22815	22907	
==>from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22815	22907	
==>from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1061	1174	
==>&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1061	1174	
==>&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1061	1174	
==>&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	322	460	
==>g (@ARGV ) {
    
    ### in case there's more than one package matching,
    ### sort by highest version
    ### XXX this should be a poli <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1132	1241	
==>idth = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1132	1241	
==>idth = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8052	8149	
==>"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8052	8149	
==>"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8052	8149	
==>"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default conta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12168	12265	
==>andle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $fr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12168	12265	
==>andle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $fr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12689	12786	
==>, while likely flakier (modulo memory issues),
  might suffice, be easier to create, and be more p <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	599	699	
==>eed to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-C <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	599	699	
==>eed to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	66	155	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	66	155	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9322	9437	
==>n't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9322	9437	
==>n't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9322	9437	
==>n't remove \"$fn\": $!\n";
    $pil;
}

sub p5r_from_p6 {
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10802	10913	
==>capturing
  package Regexp::Parser::group;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    r <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2217	2321	
==>lled before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $pa <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2217	2321	
==>lled before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32435	32584	
==>=> 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33090	33239	
==>=> 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11195	11358	
==>my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11195	11358	
==>my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11195	11358	
==>my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	438	538	
==><»($self, Perl::Param $other) {
    ...
}

# maybe something like  this?
type Perl::Params Array of <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1608	1702	
==>ell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1608	1702	
==>ell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3695	3842	
==>i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3835	3982	
==>i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11315	11418	
==>))
     ($class: send (bless (NIL ?%params)))))

=cut

$::Class->send('add_method' => (
    # method lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4381	4487	
==>);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4381	4487	
==>);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4381	4487	
==>);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19942	20044	
==>e mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24494	24596	
==>e mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23046	23148	
==>e mutable, you can accomplish
that manually using a set of mappings, or a multi-dimensional object Hash <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2334	2443	
==>o = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2334	2443	
==>o = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15354	15472	
==>?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ":";
  }

  sub qr {
    my $self = shift;
    j <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	662	770	
==>lock>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>* <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	662	770	
==>lock>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>* <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5304	5437	
==>>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - & <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5304	5437	
==>>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - & <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7595	7718	
==>os
    pos = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1218	1341	
==>class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Car <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	957	1075	
==>class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Car <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1162	1280	
==>class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Car <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3153	3292	
==>k( 'Pugs::Compiler::Rule' );

=for pod
  sub rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2397	2495	
==>g "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2455	2553	
==>g "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13362	13466	
==>$label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13362	13466	
==>$label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13362	13466	
==>$label, %params) ? 1 : 0;
});


::Class.meta.add_method('get_attribute_list' => method () {
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9091	9191	
==>f($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9091	9191	
==>f($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9091	9191	
==>f($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } elsif($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15448	15547	
==>d_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15448	15547	
==>d_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15448	15547	
==>d_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table->{$ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2237	2350	
==>$href;
    }
    
    DumpFile( $Repoindex, @metalist );
    
    print "\n\n\nIndex written to: '$Repoindex'\n\n" <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2624	2729	
==>il> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sig <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2624	2729	
==>il> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sig <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15387	15488	
==>ply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15445	15546	
==>ply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27187	27276	
==>id_pair), "(int × str)", ":t id(pair(id(10))(id('foo')))");
is(t($app_to_str), "∀α. (s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4810	4964	
==>- copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4810	4964	
==>- copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4810	4964	
==>- copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7325	7545	
==>l',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phra <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7382	7602	
==>l',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phra <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15767	15867	
==>roduced by the binding
# the body of the binding contains the env with the the symbols of our outer s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	629	729	
==>ation is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	629	729	
==>ation is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9029	9144	
==>angle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9029	9144	
==>angle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9029	9144	
==>angle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3105	3197	
==>ext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3105	3197	
==>ext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3105	3197	
==>ext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7395	7602	
==>$maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7859	8066	
==>$maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14632	14733	
==>2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14632	14733	
==>2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18293	18389	
==>\d:4-6]>.  If you want to prevent
characters and ranges from being display if they are included i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1772	1902	
==>ub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1772	1902	
==>ub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($li <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1772	1902	
==>ub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12377	12495	
==>$value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12377	12495	
==>$value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12377	12495	
==>$value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4939	5048	
==>bject(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25247	25333	
==>efined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html> <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25247	25333	
==>efined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5745	5912	
==>we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5745	5912	
==>we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5745	5912	
==>we stub the method for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14019	14193	
==>ods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14019	14193	
==>ods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14019	14193	
==>ods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safely for now
            #if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4770	4899	
==>def;
        foreach my $method_name ($role->get_method_list) {
            # if we already have the method, then
            # ig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13194	13358	
==>hod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13194	13358	
==>hod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13194	13358	
==>hod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10991	11110	
==>lse {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10991	11110	
==>lse {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10991	11110	
==>lse {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6395	6503	
==>", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Ref <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6395	6503	
==>", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Ref <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3248	3340	
==>_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1801	1901	
==>ff construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regexp syntax converter!  A
#cpan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2767	2862	
==>he request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.quer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2767	2862	
==>he request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.quer <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9073	9196	
==>ew(
        equals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	378	477	
==>ew(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params-> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	454	553	
==>ew(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params-> <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8759	8868	
==>E_C__/$unicode_c/;
        s/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIB <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9722	9830	
==>FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9722	9830	
==>FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7139	7248	
==>.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7139	7248	
==>.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7139	7248	
==>.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3941	4030	
==>> '@:roles');
}));

## ------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3941	4030	
==>> '@:roles');
}));

## ------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3941	4030	
==>> '@:roles');
}));

## ------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	227	336	
==>" to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	227	336	
==>" to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	227	336	
==>" to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2966	3095	
==>pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pug <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1512	1625	
==>pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1512	1625	
==>pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12928	13024	
==>ext ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12928	13024	
==>ext ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12928	13024	
==>ext ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21480	21660	
==>aram => comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9171	9292	
==>protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no version <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10648	10769	
==>protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no version <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26777	26900	
==>push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27056	27179	
==>push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rule <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45226	45311	
==>ses' => list->new($::Object));

$::Package->send('add_attribute', (symbol->new('$:name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4800	4934	
==>erator
    #__PACKAGE__->add_rule( 
    #    name => '->',
    #    assoc => 'non',
    #    precedence => 'equal',
    #    other => ' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2995	3122	
==>urns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2995	3122	
==>urns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1219	1315	
==>od('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1219	1315	
==>od('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1219	1315	
==>od('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta.disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38858	38961	
==>rn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38858	38961	
==>rn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38858	38961	
==>rn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n closur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10701	10833	
==>1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10695	10827	
==>1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3503	3639	
==>_('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3503	3639	
==>_('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3503	3639	
==>_('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	804	915	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	804	915	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	804	915	
==>tanceof PIL2JS.Ref)) {
      PIL2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7512	7626	
==>e.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7512	7626	
==>e.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7512	7626	
==>e.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5145	5254	
==>d the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5145	5254	
==>d the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5145	5254	
==>d the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0] eq 'C <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1778	1996	
==>list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, % <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1778	1996	
==>list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, % <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8329	8438	
==>hift;

    # Return immediately if we've cached this.
    return $self->{ghc_pkg} if $self->{ghc_pkg};

    my <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	934	1036	
==>ck by matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	934	1036	
==>ck by matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1865	1962	
==>s.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1865	1962	
==>s.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1865	1962	
==>s.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interfaces)
    ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4031	4140	
==>mbol type in a param list";
    $self->SUPER::store($index, $value);
}

sub unshift : method { 
    my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5996	6100	
==>turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. Al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5996	6100	
==>turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. Al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5996	6100	
==>turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. Al <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4188	4418	
==>uotable))?             # Normal bit of link 
                        (?:
                          \s+                                   # Whitespace before re
                          $RE{delimited}{-delim=>'/'}{-keep}    # Regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12686	12912	
==>hile (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12686	12912	
==>hile (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1 <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2483	2611	
==>F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      tak <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2483	2611	
==>F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      tak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9091	9273	
==>list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9091	9273	
==>list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9091	9273	
==>list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length;
            return $shifted;
        },
        s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	454	555	
==>0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	454	555	
==>0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2337	2553	
==>old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2337	2553	
==>old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14327	14437	
==>rtion" and $tree->[-1]->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self->{min} == 0 and $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1461	1568	
==>d('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1461	1568	
==>d('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1461	1568	
==>d('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_cl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1520	1643	
==>[-1]++;
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

	my $sent = scalar($app->values) - 1; # thunk + para <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2573	2684	
==>ion ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2573	2684	
==>ion ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.star <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	131	251	
==>cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$fun <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	227	315	
==>ires if_modified_since if_unmodified_since last_modified
    content_type content_encodin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	227	315	
==>ires if_modified_since if_unmodified_since last_modified
    content_type content_encodin <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12801	12892	
==>routine replaces HTML entities found in the $string with the
corresponding Unicode character <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12801	12892	
==>routine replaces HTML entities found in the $string with the
corresponding Unicode character <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1909	2034	
==>r' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1909	2034	
==>r' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1328	1432	
==>[0], '$<ident>' );
    return "use $ident;\n";
}
sub node::slurp {
    my $var = emit(get_data($_[0], '$< <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18458	18587	
==>ls::sprintf($conversion,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs::Internals::sprintf($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30355	30482	
==>}
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30355	30482	
==>}
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30355	30482	
==>}
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1678	1804	
==>ams.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1678	1804	
==>ams.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywor <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1999	2105	
==>List.
# \\n   Scalar    pre     delete  safe   (rw!Array: List)\
multi method Array::delete (@array : *@ind <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	478	595	
==>gs[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	478	595	
==>gs[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	478	595	
==>gs[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + id <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	85	195	
==>as bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set cou <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	85	195	
==>as bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set cou <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3790	3890	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 1)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17730	17875	
==>t_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17730	17875	
==>t_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17730	17875	
==>t_METHOD = sub {
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12312	12468	
==>($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12312	12468	
==>($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12312	12468	
==>($res)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29512	29614	
==>'s attributes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34064	34166	
==>'s attributes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33228	33330	
==>'s attributes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23968	24096	
==>ods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23968	24096	
==>ods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23968	24096	
==>ods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1886	2014	
==>er of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5363	5491	
==>er of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) == <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4293	4421	
==>er of a tuple in :$body?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) == <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	436	529	
==>als::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($mod, []);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	436	529	
==>als::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($mod, []);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	436	529	
==>als::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($mod, []);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3136	3259	
==>.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3136	3259	
==>.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3136	3259	
==>.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1318	1431	
==>* 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1318	1431	
==>* 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8717	8814	
==>'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7491	7587	
==>ontain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x) <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7491	7587	
==>ontain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x) <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	575	670	
==>ist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::abs_pat <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13896	13992	
==>t1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13896	13992	
==>t1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3956	4062	
==>e easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3956	4062	
==>e easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4036	4142	
==>e easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2699	2799	
==>path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2699	2799	
==>path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2699	2799	
==>path(), "~$cfg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4483	4592	
==>lf = shift;
	my $node = shift;

	$self->{names}{$node->orig};
}

sub is_duplicate {
	my $self = shift;
	my $no <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2675	2779	
==>code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2675	2779	
==>code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12798	12926	
==>op   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be move <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12798	12926	
==>op   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be move <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12798	12926	
==>op   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be move <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	76	180	
==>inal

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	76	180	
==>inal

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10699	10813	
==>defined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10699	10813	
==>defined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10699	10813	
==>defined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1688	1815	
==>oerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1688	1815	
==>oerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1688	1815	
==>oerce:<as> ?
# TODO - the 'match' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TO <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1029	1126	
==>PTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typical <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1029	1126	
==>PTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typical <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5023	5122	
==>in the current test file.

=item B<Str $.description>

The test's description (optional).

=item B<S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5023	5122	
==>in the current test file.

=item B<Str $.description>

The test's description (optional).

=item B<S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7220	7319	
==>in the current test file.

=item B<Str $.description>

The test's description (optional).

=item B<S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5002	5106	
==>se {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5002	5106	
==>se {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5002	5106	
==>se {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20774	20866	
==>,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20774	20866	
==>,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20774	20866	
==>,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36446	36547	
==>tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36446	36547	
==>tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36446	36547	
==>tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2066	2199	
==>t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2066	2199	
==>t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12168	12332	
==>);
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] c <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3259	3376	
==>%out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3259	3376	
==>%out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9086	9202	
==>quals => $digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{name} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	385	483	
==>quals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	461	559	
==>quals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14535	14675	
==>ame') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database conne <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14535	14675	
==>ame') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database conne <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	314	480	
==>t) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            pare <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	314	480	
==>t) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            pare <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5276	5373	
==>on} = $1 if /pugs_revision: (\d+)\r?$/ } for `@{[$rev_get_cmd]}`;
    $self->{_revision} ||= "unkn <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	437	530	
==>oks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	437	530	
==>oks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2795	2883	
==>}

conv_condition {
    if(/(${re_condition})\s*($RE{balanced}{-parens=>'()'})\s*($RE{bal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2226	2440	
==>lse {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2226	2440	
==>lse {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2226	2440	
==>lse {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'acc' => ($self->env->get('ac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13447	13579	
==>inal_ast;\n" .
                #"    my \$perl5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21052	21143	
==>ase manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Serv <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21052	21143	
==>ase manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Serv <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7702	7803	
==>@pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^|\/ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	288	388	
==>my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: cur <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	288	388	
==>my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: cur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4787	4887	
==>ase join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5037	5137	
==>ase join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11000	11136	
==>} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11000	11136	
==>} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11000	11136	
==>} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14563	14715	
==>rgument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14563	14715	
==>rgument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14563	14715	
==>rgument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	637	740	
==>self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	637	740	
==>self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	637	740	
==>self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa(" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15156	15255	
==>the user, or generate a message to be
shown to the user.  Sometimes this is an error message of some <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15156	15255	
==>the user, or generate a message to be
shown to the user.  Sometimes this is an error message of some <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8660	8770	
==>0$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_obje <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	612	714	
==>\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  ge <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	612	714	
==>\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  ge <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5101	5237	
==>e
              conv_foreach conv_package conv_open conv_condition
          
              )){
    no strict;
if(main->can($c)){
    $sr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7059	7160	
==>ors, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal rule operat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6819	6915	
==>ors, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal rule operat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4794	4914	
==>lue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4794	4914	
==>lue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1700	1820	
==>lue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1656	1763	
==>arn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1656	1763	
==>arn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1656	1763	
==>arn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" }, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3289	3407	
==>]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/right/non/chain/list
  (is parsed)
  (wi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24635	24729	
==>able::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type- <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25607	25701	
==>able::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13314	13429	
==>$xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13314	13429	
==>$xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13314	13429	
==>$xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8341	8465	
==>osition;
  goto tok_match_end;

  tok_match_sub:
  $operator = &$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$t <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2587	2691	
==>";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a time <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2587	2691	
==>";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a time <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3898	3995	
==>led rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4082	4179	
==>led rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5090	5232	
==>riables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must prov <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5090	5232	
==>riables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must prov <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5090	5232	
==>riables now
    # sub ::make_class_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must prov <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16864	16985	
==>n,
    # where some source attributes are in common, and each
    # source has attributes not in the other.

    if ($!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20341	20462	
==>n,
    # where some source attributes are in common, and each
    # source has attributes not in the other.

    if ($!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19919	20040	
==>n,
    # where some source attributes are in common, and each
    # source has attributes not in the other.

    if ($!bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13158	13292	
==>TE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13158	13292	
==>TE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be use <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13158	13292	
==>TE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # we know this wont be use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	55	163	
==>ON @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	55	163	
==>ON @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	55	163	
==>ON @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1352	1453	
==>:str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1352	1453	
==>:str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7175	7279	
==>tion (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7175	7279	
==>tion (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7175	7279	
==>tion (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs PIL2 and MMD to be done without hack <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	499	616	
==>half_down (Num $x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2714	2829	
==>( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2714	2829	
==>( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4229	4369	
==>add_rule( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->ad <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1661	1770	
==>{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1661	1770	
==>{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1228	1436	
==>r                                                    
$Metaext        = '.info';                          # Extension for meta files
$Metafile       = 'META' . $Metaext;                # file with MD in it
$Si <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16745	16901	
==>ta;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21843	21999	
==>ta;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34680	34799	
==>gth;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34680	34799	
==>gth;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34680	34799	
==>gth;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4126	4234	
==>normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makein <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4126	4234	
==>normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makein <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1913	2026	
==>you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1913	2026	
==>you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1913	2026	
==>you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, undef}, etc.

# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	414	535	
==>nt(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	414	535	
==>nt(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	414	535	
==>nt(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "ARRAY";
    return $v->as_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7164	7318	
==>td_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7164	7318	
==>td_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ] <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23054	23191	
==>ed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14219	14322	
==>}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14219	14322	
==>}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14219	14322	
==>}));

$::Class->add_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3438	3569	
==>rclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3438	3569	
==>rclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3438	3569	
==>rclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4249	4391	
==>t == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4249	4391	
==>t == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25168	25300	
==>ngth of the regex string
    sub RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12787	12891	
==>]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12787	12891	
==>]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12787	12891	
==>]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# C <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1942	2052	
==>d1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1942	2052	
==>d1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4518	4624	
==>se {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4518	4624	
==>se {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4518	4624	
==>se {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: p <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1598	1734	
==>ernals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi  Num::log (  Num  $x             ; Num :$base --> Num )
 {
     Math::Bas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6000	6092	
==>method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10257	10349	
==>method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17037	17135	
==>s> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17037	17135	
==>s> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	456	590	
==>ion () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	456	590	
==>ion () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	456	590	
==>ion () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	720	855	
==>angs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	720	855	
==>angs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	720	855	
==>angs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	431	547	
==>"die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	431	547	
==>"die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	431	547	
==>"die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8623	8722	
==>(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8623	8722	
==>(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8623	8722	
==>(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar -> foo\"\"bar
su <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	688	820	
==>$hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1511	1603	
==>e MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COP <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1511	1603	
==>e MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6966	7057	
==>---------------------------------------------

# stub this for the moment ...
$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6966	7057	
==>---------------------------------------------

# stub this for the moment ...
$::Class->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6966	7057	
==>---------------------------------------------

# stub this for the moment ...
$::Class->add_ <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	225	328	
==>"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	225	328	
==>"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16352	16441	
==><EqualityExpression> <'!='> <RelationalExpression>
    | <EqualityExpression> <'==='> <Rel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2781	2938	
==>lf );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{"${who}::AUTOLOAD"} = $self-> <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	956	1091	
==>lf);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3737	3825	
==>e}.


p5_quantified(Z) --> p5_elemental(W), p5_quantified_op(W, Z).
p5_quantified_op(W, Z <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10319	10430	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10598	10709	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_sta <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15134	15235	
==>ariation from UTC in seconds
    has Bool $.is_dst;
}

multi sub localtime(Num $when = time) returns T <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37050	37150	
==>@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@:superclasses')    => <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7639	7744	
==>contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7639	7744	
==>contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	444	545	
==>piler::RegexPerl5->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	750	891	
==>s,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	750	891	
==>s,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	750	891	
==>s,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1541	1658	
==>[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print enc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1541	1658	
==>[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print enc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1541	1658	
==>[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print enc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12052	12162	
==>t(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4695	4805	
==>t(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3885	3980	
==>rs>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotForwardSlashOrAsteriskChar> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3881	3985	
==>, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 mo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3881	3985	
==>, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5405	5509	
==>, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 mo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16250	16345	
==>ash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16250	16345	
==>ash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
co <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4718	4802	
==>::Run::OnPerl5::X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PACKAGE <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	848	970	
==>trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# Fro <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	848	970	
==>trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# Fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6302	6414	
==>= [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6302	6414	
==>= [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6302	6414	
==>= [].concat(args[1].FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	141	276	
==>t {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	141	276	
==>t {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	141	276	
==>t {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  SUBM <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1750	1850	
==>ams;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_opti <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1750	1850	
==>ams;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_opti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	446	545	
==>de->env, $prog);
}

sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtual meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19752	19903	
==>@items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19752	19903	
==>@items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19752	19903	
==>@items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2387	2563	
==>x\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                matc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2698	2868	
==>x\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2698	2868	
==>x\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1483	1577	
==>String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1483	1577	
==>String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1483	1577	
==>String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»" <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	922	1018	
==>ease read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

= <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	922	1018	
==>ease read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3135	3287	
==>L::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3135	3287	
==>L::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3135	3287	
==>L::fail("Method names must be simple strings!");
      # method foo (A|B|C $self:) {...}
      my @classes =
        $self->params->[0]->name =~ /^@/ ? ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1495	1613	
==>s Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1495	1613	
==>s Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2547	2656	
==>nterpreter - A perl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12594	12721	
==>' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12594	12721	
==>' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12594	12721	
==>' => sub { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14111	14211	
==>:

  http://perl.plover.com/Rx/paper/

  Some files of interest in the perl sources:
    ./regexp.h . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12277	12399	
==>lue ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12277	12399	
==>lue ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12277	12399	
==>lue ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23300	23391	
==>rlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rig <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41224	41315	
==>rlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rig <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37250	37341	
==>rlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6613	6725	
==>hain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6613	6725	
==>hain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6613	6725	
==>hain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $params    = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3761	3893	
==>tBuilder->FETCH('::Test')->FETCH('::Base')->FETCH('&status');
            my $status          = $::SELF->$status_sub();
            $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2767	2872	
==>lass $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece o <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2767	2872	
==>lass $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5685	5797	
==>@_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36004	36097	
==>bject's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  All co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36004	36097	
==>bject's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  All co <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1438	1533	
==>or anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often us <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1438	1533	
==>or anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13135	13232	
==>[$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13135	13232	
==>[$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13135	13232	
==>[$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1236	1370	
==>t {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # Wha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1236	1370	
==>t {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # Wha <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	106	202	
==>Name;

# SubType is SubMethod | SubRoutine | SubBlock | SubPrim
enum SubType «SubMethod SubRouti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26427	26535	
==>ojection of
each tuple), but that any duplicates following the projection have been
eliminated.  Trivial case <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30979	31087	
==>ojection of
each tuple), but that any duplicates following the projection have been
eliminated.  Trivial case <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29981	30089	
==>ojection of
each tuple), but that any duplicates following the projection have been
eliminated.  Trivial case <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2815	2921	
==>Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2815	2921	
==>Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2815	2921	
==>Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29243	29370	
==>= @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29243	29370	
==>= @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29243	29370	
==>= @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	34	143	
==>kage PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	34	143	
==>kage PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	34	143	
==>kage PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	897	1025	
==>nore2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run: <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2353	2461	
==>finite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2353	2461	
==>finite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	651	773	
==>\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	651	773	
==>\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $fil <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17054	17154	
==>t_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "${ROOT}::${pkg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	894	1054	
==>be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	894	1054	
==>be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	894	1054	
==>be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5693	5794	
==>_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5693	5794	
==>_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5693	5794	
==>_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub Perl6::Slice::ele <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2952	3075	
==>or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2952	3075	
==>or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	73	178	
==>e JIB::Utils;

use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Data::Dump <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5188	5297	
==>{
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5188	5297	
==>{
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5188	5297	
==>{
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2394	2694	
==>m'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f') <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	791	899	
==>ent = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	791	899	
==>ent = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1384	1494	
==>else {
			return $self->{names}{$node};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14860	14949	
==>xpression> <'*'> <UnaryExpression>
    | <MultiplicativeExpression> <'/'> <UnaryExpression <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14917	15006	
==>xpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2821	2915	
==>{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no stric <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2821	2915	
==>{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no stric <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2821	2915	
==>{__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no stric <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2100	2223	
==>PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2100	2223	
==>PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2100	2223	
==>PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52709	52830	
==>st->new($::Object));

foreach my $meta ($::Class, $::Object, $::Package, $::Module) {
    $meta->add_attr(symbol->new('$:n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	417	523	
==>rammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	417	523	
==>rammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19975	20068	
==>t manually using a set of mappings, or a multi-dimensional object Hash,
or various combination <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24527	24620	
==>t manually using a set of mappings, or a multi-dimensional object Hash,
or various combination <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23079	23172	
==>t manually using a set of mappings, or a multi-dimensional object Hash,
or various combination <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5292	5397	
==>urn undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5292	5397	
==>urn undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5292	5397	
==>urn undef if we haven't been giving @vals to sum.
}

method uniq(@self: Code $cmp = &infix:<===>) { uniq $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5800	5903	
==>this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5800	5903	
==>this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12536	12633	
==>ticular one, use the error_is() method:

  if ($parser->error_is($parser->RPe_BCURLY)) {
    # the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	581	692	
==>y \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimpleme <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	581	692	
==>y \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimpleme <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	581	692	
==>y \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimpleme <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	979	1100	
==>}

sub scopes {
    my $self = shift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1696	1791	
==>= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::N <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1696	1791	
==>= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::N <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27117	27255	
==>ional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27396	27534	
==>ional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3550	3660	
==>-Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    print MAKE <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	988	1102	
==>=> '&infix:<~>',
			body => 'prel_cat',
			type => type("PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => '&inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24896	25003	
==>h @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21317	21424	
==>h @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12874	12996	
==>0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exis <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1958	2053	
==>= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::N <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1958	2053	
==>= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2702	2826	
==>ext.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of som <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2702	2826	
==>ext.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of som <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2702	2826	
==>ext.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of som <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1800	1899	
==>per::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumper($node);
		chomp( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23286	23384	
==>elation is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27838	27936	
==>elation is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9221	9371	
==>t_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1345	1487	
==>t_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1345	1487	
==>t_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            d <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1875	2002	
==>ammar has never yet been run, so there no doubt are some.
#
#  Possible Bugs:
#   * We are not using some of the tokenizer rules <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8601	8704	
==>[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8589	8692	
==>[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	28	153	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	28	153	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	28	153	
==>ings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10872	10970	
==>get_attribute_list;            
}

---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10872	10970	
==>get_attribute_list;            
}

---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10872	10970	
==>get_attribute_list;            
}

---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18468	18555	
==>urusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, user <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18468	18555	
==>urusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, user <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1757	1881	
==>ive_precedences{$opt->{precedence}}->($self, $_, $opt);
            return;
        }
    }
    push @{$self->{levels}}, [ $o <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3134	3235	
==>= JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValueP <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3680	3781	
==>= JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValueP <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14255	14345	
==>type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24594	24684	
==>type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24891	24981	
==>type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29688	29991	
==>('?$order' => 'symbol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $orde <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16998	17092	
==>lization methodology
in an easily accessable manner, such that would not be possible if its
fun <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16998	17092	
==>lization methodology
in an easily accessable manner, such that would not be possible if its
fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3074	3184	
==>ll, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3074	3184	
==>ll, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3074	3184	
==>ll, I wouldn't think you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1047	1145	
==>", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1047	1145	
==>", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1047	1145	
==>", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13601	13696	
==>$month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13601	13696	
==>$month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3059	3171	
==>Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3059	3171	
==>Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3059	3171	
==>Pair") {
    ($self.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3342	3457	
==>{
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3342	3457	
==>{
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3342	3457	
==>{
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13580	13722	
==>for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_perso <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13580	13722	
==>for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_perso <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	774	874	
==>}

    $self->version or die << "END";
Can't determine a VERSION for this distribution.
Please call t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	404	521	
==>TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	404	521	
==>TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	404	521	
==>TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local $_; map { $_->all_types } @{ $_[0] } }

  sub m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5160	5265	
==>@parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5160	5265	
==>@parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5160	5265	
==>@parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join('::',@parts);
    $mn = ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	256	356	
==>cking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	256	356	
==>cking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	256	356	
==>cking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatible <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16121	16310	
==>,
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13659	13757	
==>ike this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_ha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13659	13757	
==>ike this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2242	2338	
==>ct->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2242	2338	
==>ct->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2242	2338	
==>ct->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->ad <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17190	17301	
==>$other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20667	20778	
==>$other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20245	20356	
==>$other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4485	4596	
==>-------------------------------

my $Role;

my $_resolve = sub ($) {
    my ($self) = @_;
    my %roles;
    for <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20872	20966	
==>rogram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20872	20966	
==>rogram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5392	5494	
==>} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5392	5494	
==>} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5982	6084	
==>} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check $var type etc, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	347	461	
==>my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	347	461	
==>my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	347	461	
==>my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        val <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6025	6171	
==>nd B) to group the dists
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- or s <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	86	183	
==>C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method asse <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	86	183	
==>C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method asse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	659	760	
==>) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	659	760	
==>) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	659	760	
==>) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14101	14280	
==>.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14101	14280	
==>.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14101	14280	
==>.return_value' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	33	127	
==>5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	33	127	
==>5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, Ru <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3187	3283	
==>y $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($sel <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3187	3283	
==>y $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($sel <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	303	419	
==>V_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1161	1277	
==>V_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1308	1396	
==>{ meth_call_term => $() } }
RULE
*{'meth_call_statement'} = Pugs::Compiler::Rule->compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5436	5602	
==>> sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5436	5602	
==>> sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5436	5602	
==>> sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2167	2268	
==>>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2167	2268	
==>>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2167	2268	
==>>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::in <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17858	17980	
==>mc pad
    $I0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9374	9464	
==>ulates HTTP-style message headers.
The headers consist of attribute-value pairs also called <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9374	9464	
==>ulates HTTP-style message headers.
The headers consist of attribute-value pairs also called <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3668	3882	
==>ame => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3668	3882	
==>ame => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3668	3882	
==>ame => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9248	9354	
==>ub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9248	9354	
==>ub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $ <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1935	2040	
==>_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Config{ccflags} $exenam <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2197	2305	
==>l6 Design POD 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The root directory of th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14494	14594	
==>etched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.g <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14494	14594	
==>etched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4319	4453	
==>>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4319	4453	
==>>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4319	4453	
==>>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "** <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3587	3722	
==>el} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) = @_;
            keys %{::opaque_instance_attrs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2363	2492	
==>TH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    % <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2363	2492	
==>TH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6089	6219	
==>self->_slurp($file);
    if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	22	117	
==>0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	22	117	
==>0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	526	645	
==>s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	526	645	
==>s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1289	1382	
==>A, qw( Regexp::Parser::__object__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Re <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	499	746	
==>::_;
 }
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ?$length,
                                       *@values
                                ) returns L <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	441	623	
==>h    = @_;
    
    my $meta; my $inst;
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3849	3958	
==>on it's own

    has @.args;
    method new (*@.args) { super }
}

class Class::Events::Event::Named {
    has <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11459	11571	
==>_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3050	3162	
==>_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5481	5575	
==>_start(R), ")".
p5_elemental(standalone(R))       --> "(?>",  !, p5_start(R), ")".
p5_elemental <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23469	23563	
==>tions are immutable rather than mutable, this property and/or
same-named accessor method can be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28021	28115	
==>tions are immutable rather than mutable, this property and/or
same-named accessor method can be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26825	26919	
==>tions are immutable rather than mutable, this property and/or
same-named accessor method can be <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	681	794	
==>_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	681	794	
==>_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	681	794	
==>_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10354	10472	
==>s
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10354	10472	
==>s
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10354	10472	
==>s
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2065	2176	
==>b uninstall {
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( packa <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	252	349	
==>fix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x = <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	252	349	
==>fix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	951	1047	
==>bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	951	1047	
==>bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	951	1047	
==>bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6596	6724	
==>} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->type <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17907	18028	
==>P])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14328	14449	
==>P])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lh <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	167	265	
==>d to be somehow incorporated in the test suit

use File::Compare qw(compare);


my $pugs = "../../p <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1670	1767	
==>esn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1670	1767	
==>esn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7824	7950	
==>struct_equiv => $rthunk,
				orig => $thunk,
			);
		} else {
			return Blondie::TypeSafe::Annotation->new(
				type => [ $chil <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	358	457	
==>ldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $bo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	358	457	
==>ldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	96	208	
==>s;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'closure';

sub new {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32825	32917	
==>m C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic binary rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37375	37467	
==>m C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic binary rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1413	1543	
==>O "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1413	1543	
==>O "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1413	1543	
==>O "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26376	26536	
==>6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26376	26536	
==>6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26376	26536	
==>6::Value::stringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9649	9788	
==>n ::Test::Builder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reaso <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	231	364	
==>n ::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reaso <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	231	364	
==>n ::Test::Builder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reaso <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	700	797	
==>($self, $args) = @_;
    $self->SUPER::_bind_params($args);
    my $inv = $args->fetch(num->new(0) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10512	10604	
==>r has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "continuous" <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10512	10604	
==>r has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "continuous" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	363	525	
==>p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	363	525	
==>p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	363	525	
==>p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root
       p6_main
       p6_ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3309	3455	
==>ssoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7000	7116	
==>n);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7000	7116	
==>n);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11849	11972	
==>f.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11849	11972	
==>f.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11849	11972	
==>f.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "" <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1817	1909	
==>r English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1817	1909	
==>r English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	126	232	
==>unction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	126	232	
==>unction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	126	232	
==>unction (args) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19111	19223	
==>ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20469	20581	
==>ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4742	4830	
==>b p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p6_new('Str',@_)}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9160	9305	
==>*Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9160	9305	
==>*Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9160	9305	
==>*Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13100	13212	
==>oss-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16577	16689	
==>oss-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15939	16051	
==>oss-product.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2549	2651	
==>mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} if 0;
test(sub{sub{undef}}) if $0 =~ / <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	227	328	
==>G = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	227	328	
==>G = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6063	6164	
==>osmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6063	6164	
==>osmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6063	6164	
==>osmetical fix
    chomp(my $ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4077	4181	
==>rameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4077	4181	
==>rameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6274	6378	
==>rameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3017	3155	
==>{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3017	3155	
==>{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _bo <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	40	142	
==>h end up defined in PILn
# (though one may wish to overwrite a limited piln version with a more
# gener <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11704	11832	
==>capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = em <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12062	12190	
==>capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = em <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23064	23167	
==>)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14131	14259	
==>] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14125	14253	
==>] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5440	5544	
==>self->enter_scope;
		while(@children) {
			my $sub = shift @children;
			if ($sub->struct_equiv->isa("Blo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	889	997	
==>array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	889	997	
==>array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	889	997	
==>array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6771	6883	
==>ELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6771	6883	
==>ELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6771	6883	
==>ELF => '@:subclasses');
}));

$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $su <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3131	3254	
==>ction - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3131	3254	
==>ction - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16921	17053	
==>o_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16921	17053	
==>o_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16921	17053	
==>o_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40585	40797	
==>ams')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12975	13090	
==>for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12975	13090	
==>for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	801	928	
==>y(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	801	928	
==>y(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4516	4627	
==>this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4516	4627	
==>this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4516	4627	
==>this
    # is a special case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->is <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4354	4471	
==>ernals::install_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      cu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9864	9971	
==>'PIL::PIL1::NodeSet0::');
    return if !defined $p;
    my $c1 = $p->unparse;
    $c1 =~ s/PIL_Environment/ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30514	30609	
==>mple>

This method is the same as C<project> but that the returned Relation::Example has
the com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	797	964	
==>Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $start;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	797	964	
==>Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $start;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	797	964	
==>Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $start;
} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32213	32309	
==>s member for language B and displays that; and so on.

I<For the present, Locale::KeyedText expec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32213	32309	
==>s member for language B and displays that; and so on.

I<For the present, Locale::KeyedText expec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1743	1920	
==>))."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1743	1920	
==>))."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1743	1920	
==>))."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	870	989	
==>u ask for something which is 
    # not there, then you need to get back
    # a nil value, not just undef
    return ni <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	874	973	
==>tput =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ( <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	874	973	
==>tput =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2974	3088	
==>=~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2974	3088	
==>=~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2974	3088	
==>=~ /\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17004	17160	
==>tcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17004	17160	
==>tcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17004	17160	
==>tcher(':canonical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless ( <==
3	/Users/nnunley/pugs/util/version_h.pl	2322	2426	
==>build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	655	749	
==>ompiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	655	749	
==>ompiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	655	749	
==>ompiletime_macro) {
@{[ PIL::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4188	4287	
==>p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4188	4287	
==>p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4188	4287	
==>p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3508	3613	
==>ion
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3508	3613	
==>ion
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3508	3613	
==>ion
# TODO - splice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15380	15488	
==>I SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15380	15488	
==>I SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15380	15488	
==>I SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pa <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4842	4972	
==>)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_heig <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4842	4972	
==>)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_heig <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4632	4737	
==>, $file21, "0000000021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

# - <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1322	1416	
==>stening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1322	1416	
==>stening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	49	142	
==>ot::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	49	142	
==>ot::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	49	142	
==>ot::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28514	28741	
==>str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28514	28741	
==>str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28514	28741	
==>str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	578	692	
==>ginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	578	692	
==>ginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	578	692	
==>ginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7370	7511	
==>if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7370	7511	
==>if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7370	7511	
==>if iarr[i] is undef, i.e.
          // it\'s needed to make
          //   my ($a, undef, $b) = (3,4,5);
          // work.
          iarr[i]. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10740	10888	
==>xperimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7821	7963	
==>xperimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7821	7963	
==>xperimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{a <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2269	2376	
==>tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2269	2376	
==>tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11197	11303	
==>useful to see that the unnecessary parts of the prelude weren't compiled into the code #print "Compiled AST <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2926	3023	
==>ou combine the key with a nonce or initialization vector, a 
one-time random number.  (It will nee <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2926	3023	
==>ou combine the key with a nonce or initialization vector, a 
one-time random number.  (It will nee <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12985	13096	
==>l_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar::Perl6::sta <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	431	541	
==>, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	332	442	
==>, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_arg <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25344	25486	
==>ymbol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->get('$self:')->send('MRO' <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	457	572	
==>.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	457	572	
==>.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5984	6087	
==>(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16695	16795	
==>elf to the user, but
rather returns its results for calling code to output as it sees fit.  It
also d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16695	16795	
==>elf to the user, but
rather returns its results for calling code to output as it sees fit.  It
also d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2542	2647	
==>Main.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2542	2647	
==>Main.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2542	2647	
==>Main.
  $src =~ s/^(\s*)sub(\s+)(\w+)/$1our sub$2$3/gm;

  my @args = ();
  @args = qw(--run=jspm --perl5) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1245	1364	
==>o-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1245	1364	
==>o-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1245	1364	
==>o-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^use Test//gm; # hack
  # As of r8689, this hack b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7538	7640	
==>_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7538	7640	
==>_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7538	7640	
==>_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	122	225	
==>as Code--Perl6 %:methods;

method new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9236	9332	
==>channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callb <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9236	9332	
==>channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3600	3732	
==>OY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$ba <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3600	3732	
==>OY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$ba <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3600	3732	
==>OY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} elsif($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9947	10111	
==>ould always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9947	10111	
==>ould always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9947	10111	
==>ould always return Scalar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11801	11922	
==>::Test::Skip does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2223	2336	
==>::Test::Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2223	2336	
==>::Test::Skip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1546	1665	
==>PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1546	1665	
==>PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1546	1665	
==>PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6902	7157	
==>>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6902	7157	
==>>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6902	7157	
==>>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5671	5771	
==>a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5671	5771	
==>a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7195	7295	
==>a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8914	9050	
==>anch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $self->raw, map join("", map $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	357	474	
==>ram->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	357	474	
==>ram->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3000	3109	
==>ngth; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3000	3109	
==>ngth; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3000	3109	
==>ngth; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(has <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4355	4457	
==>assing if both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4355	4457	
==>assing if both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4435	4537	
==>assing if both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5510	5604	
==>', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9108	9202	
==>', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4759	4851	
==>rlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4981	5073	
==>rlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23694	23890	
==>scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23694	23890	
==>scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23694	23890	
==>scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8883	9005	
==>chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(982 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8883	9005	
==>chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(982 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32856	32970	
==>er::>, but that is omitted
here for brevity.  The headings are object I<classes>.  The field
"family" represents th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	609	724	
==>urce };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	771	886	
==>urce };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15133	15242	
==>ow) = @_;
    return $S->force_object(anyof_class => upper => $neg, \$how);
  });

  # word POSIX class
  $sel <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6974	7091	
==>_INC2PERL5LIB;
    if ( $Test::Harness::Debug ) {
        local $^W=0; # ignore undef warnings
        print "# PERL5L <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27848	27943	
==>ge Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27848	27943	
==>ge Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Mes <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1632	1731	
==>self->from();
  my $position = $self->position();
  return ("") if $position < 0 or $position <= $fr <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	67	175	
==>cket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # conf <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	67	175	
==>cket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # conf <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29441	29541	
==>ine FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #def <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15478	15575	
==>eader represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15478	15575	
==>eader represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3476	3566	
==>st be properly installed.

An improperly installed C<Pugs::Compiler::Rule> module would pre <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5491	5597	
==>e skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<ski <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5491	5597	
==>e skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<ski <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7015	7121	
==>e skipping of C<$num> tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<ski <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23021	23119	
==>a key which is not meant to be meaningful for a
user.  Whereas, with the other packages like "gette <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23021	23119	
==>a key which is not meant to be meaningful for a
user.  Whereas, with the other packages like "gette <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14559	14651	
==>to_struct } @{ $self->registered_alternatives };
    eval { DumpFile( $self->registered_alter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37849	37983	
==>em] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37849	37983	
==>em] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37849	37983	
==>em] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1838	1951	
==>%seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1838	1951	
==>%seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1838	1951	
==>%seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5727	5845	
==>oxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'incr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5727	5845	
==>oxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'incr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5727	5845	
==>oxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { $::SELF->str },
            'incr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2101	2293	
==>table = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5578	5770	
==>table = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!hea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4508	4700	
==>table = Bool::False;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'heading' => $!hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4100	4223	
==>$i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4100	4223	
==>$i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4100	4223	
==>$i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	788	899	
==>epth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	788	899	
==>epth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	788	899	
==>epth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3168	3265	
==>pan::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3168	3265	
==>pan::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13645	13743	
==>attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13645	13743	
==>attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13645	13743	
==>attribute when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2455	2558	
==>t, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchOb <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13680	13772	
==>pan is used to represent continuous measurements, such as times, temperatures, or price range <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13680	13772	
==>pan is used to represent continuous measurements, such as times, temperatures, or price range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11448	11554	
==>($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11448	11554	
==>($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11448	11554	
==>($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2242	2366	
==>{
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\& <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2242	2366	
==>{
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\& <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2589	2713	
==>{
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	216	322	
==>output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	216	322	
==>output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	216	322	
==>output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite array <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12062	12199	
==>elf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'quant',
      data => $data,
      min => $min,
      max <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2953	3062	
==>rn ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2953	3062	
==>rn ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1292	1431	
==>);
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.app <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1292	1431	
==>);
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.app <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1292	1431	
==>);
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    var func = args.shift();
    return func.app <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29098	29227	
==>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29098	29227	
==>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	449	562	
==>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4674	4818	
==>\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     gather  safe   (Code)\
\\ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4740	4850	
==>n.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4740	4850	
==>n.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6264	6374	
==>n.  If you pass a pair such as C<tests
=Egt 10>, the plan is to run ten tests.  If you pass the string C<no_pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17358	17452	
==>plements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17358	17452	
==>plements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17358	17452	
==>plements platform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17598	17703	
==>tr) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use N <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17598	17703	
==>tr) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use N <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9939	10082	
==>function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9939	10082	
==>function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9939	10082	
==>function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2847	2954	
==>e>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2847	2954	
==>e>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3122	3217	
==>po->add_packages($pkg1, $pkg2, ...)
# 
# Adds a list of JIB::Package instances to the repository <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15304	15450	
==>= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_j <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18781	18927	
==>= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_j <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18206	18352	
==>= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1519	1676	
==>pts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1519	1676	
==>pts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1519	1676	
==>pts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5553	5649	
==>x:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5553	5649	
==>x:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5553	5649	
==>x:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+<<"} (Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9504	9632	
==>);
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9504	9632	
==>);
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9504	9632	
==>);
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5246	5375	
==>$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5246	5375	
==>$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$sel <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5836	5965	
==>$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$sel <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8066	8238	
==>"> );
        $ret = emit_App( $function, @args, $context, $invocant );
    }
    else {
        dbg "# -- unknown node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2559	2657	
==>cate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2559	2657	
==>cate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1811	1940	
==>ssed, $description) = @_;
            $description ||= '';
            $self->report_test(
                $::TestBuilder->FETCH(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30329	30422	
==>ation whose attributes
(provided in C<$heading>) may or may not resemble those of the original <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34881	34974	
==>ation whose attributes
(provided in C<$heading>) may or may not resemble those of the original <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6726	6855	
==>$closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

sub <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6726	6855	
==>$closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

sub <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1042	1150	
==>pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END__ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20669	20763	
==>pick a supported language closest to your
preference.  Presumably the messages in these files a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20669	20763	
==>pick a supported language closest to your
preference.  Presumably the messages in these files a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8466	8573	
==>}
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8466	8573	
==>}
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8466	8573	
==>}
my $src_root = path_from_me();

our $pugs; # Perhaps set by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !de <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9689	9841	
==>hr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9689	9841	
==>hr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	306	411	
==>ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 DESCRIPTION

A simple assert rout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1098	1197	
==>ically useful when your object belongs to a
package that is too close to the main namespace for your <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1098	1197	
==>ically useful when your object belongs to a
package that is too close to the main namespace for your <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1098	1197	
==>ically useful when your object belongs to a
package that is too close to the main namespace for your <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17947	18083	
==>tems;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17947	18083	
==>tems;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17947	18083	
==>tems;
                    $ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	739	880	
==>return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	739	880	
==>return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22543	22642	
==>et->offsets, 2*len+1, U32);


 } regexp;

=head2 Additional notes

Perl_re_dup() in sv.c is a useful <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8615	8724	
==>'$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8615	8724	
==>'$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8615	8724	
==>'$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3797	3928	
==>self) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n";
    my $prec = "P000";
    my %seen;
    for my $level ( reverse 0 .. $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6806	6907	
==>=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6806	6907	
==>=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	782	885	
==>-----------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	782	885	
==>-----------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	782	885	
==>-----------------
## Object

# The 'Object' class
$::Object = $::Class->new();

## submethods

$::Object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4926	5035	
==>e = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$type";

  if ($ref ne __PACKAGE__ and !$lo <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	278	382	
==>NT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	278	382	
==>NT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7689	7790	
==>xt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7689	7790	
==>xt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7689	7790	
==>xt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	2	119	
==>Binding.
package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	2	119	
==>Binding.
package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	2	119	
==>Binding.
package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless key <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14612	14750	
==>len {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14612	14750	
==>len {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14612	14750	
==>len {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	433	584	
==>tr = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_lin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	433	584	
==>tr = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_lin <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	174	268	
==>xp::Cut");
    $optable->addToken("term::::", "term:", "nows", "PGE::Exp::Cut");
    $optable-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7560	7668	
==>ent<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7560	7668	
==>ent<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2466	2574	
==>method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2466	2574	
==>method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2466	2574	
==>method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2991	3129	
==>ses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2991	3129	
==>ses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2991	3129	
==>ses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->superclasses} ]);
        }
        else {
            $eigencla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11792	11953	
==>p( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11792	11953	
==>p( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11792	11953	
==>p( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1455	1577	
==>raw {
    my ($class) = @_;
    my $output;
    if (not exists $SEEN{$class}) {
        $output .= _draw_class_node($class) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7558	7695	
==>) ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7558	7695	
==>) ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	79	178	
==>spaces

=head1 SYNOPSIS

 class Role does NameSpace;

=head1 DESCRIPTION

This type is not used dire <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12241	12360	
==>::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18676	18771	
==>') corresponds exactly to the named
parameters of Node.new(); you need to supply its $document a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18676	18771	
==>') corresponds exactly to the named
parameters of Node.new(); you need to supply its $document a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	264	381	
==>l6::Scalar;

sub isa {
    my $self = $_[0];
    return 1 if $_[1] eq 'Str'  && defined $_[0];
    return 1 if $_[1] e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14187	14283	
==>displayed by your program.  It is analagous to a simplified version of the
"Node" interface defin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14187	14283	
==>displayed by your program.  It is analagous to a simplified version of the
"Node" interface defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	144	274	
==>s = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	144	274	
==>s = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	144	274	
==>s = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5271	5411	
==>, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5271	5411	
==>, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5271	5411	
==>, \@things;
      \} else \{
        # We should fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XX <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16231	16325	
==>er %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16231	16325	
==>er %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10144	10250	
==>:Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10144	10250	
==>:Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10144	10250	
==>:Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use P <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4158	4276	
==>%pad<"tpParam"> ), traverse_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq '"MkParam"' {
        my % <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3343	3438	
==>hers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is funda <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3343	3438	
==>hers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is funda <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1715	1883	
==>ide          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz';                    # part with metadata
$Ext <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	135	243	
==>onstant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	135	243	
==>onstant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::opt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40252	40351	
==>ting warning and
error messages for your sub-class.

  package Your::SubClass;
  # use constant NAME <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5182	5273	
==>4::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5182	5273	
==>4::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17258	17366	
==>... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17258	17366	
==>... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17258	17366	
==>... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTR <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6020	6183	
==>( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6020	6183	
==>( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6054	6166	
==>ntWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6054	6166	
==>ntWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6054	6166	
==>ntWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2680	2797	
==>f->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2680	2797	
==>f->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2680	2797	
==>f->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1686	1794	
==>f(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1686	1794	
==>f(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1686	1794	
==>f(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next unless /\S/;
  $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3599	3704	
==>add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3599	3704	
==>add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3599	3704	
==>add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1499	1603	
==>x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1499	1603	
==>x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1499	1603	
==>x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14598	14706	
==>}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14598	14706	
==>}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14598	14706	
==>}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2194	2298	
==>ave lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2194	2298	
==>ave lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2194	2298	
==>ave lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b sh <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	895	1004	
==>> .mk_notifications)».dispatch;
    }
    
    method notify (*@args) {
        .notify(Class::Events::Event. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9191	9322	
==>os = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr target, pos, 2
    if $S0 == "**" got <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3177	3289	
==>t_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4026	4138	
==>t_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	348	578	
==>lException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	348	578	
==>lException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	348	578	
==>lException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1822	1921	
==>document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1822	1921	
==>document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1822	1921	
==>document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filename <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	780	907	
==>Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	780	907	
==>Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acce <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6097	6192	
==>ll -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3460	3578	
==>ub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3460	3578	
==>ub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3460	3578	
==>ub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attributes')->{$label}) eq 'Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9470	9561	
==>p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9470	9561	
==>p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9470	9561	
==>p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5064	5150	
==>PIL1CPerl5::Util::rebless_with_prefix_and_cleanup($pil_tree,__PACKAGE__.'::');
    #pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6365	6489	
==>($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6353	6477	
==>($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->ne <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3792	3898	
==>hift;
	$self->{right} = shift;
	
	# FIXME - this is a hack for L::AG, since it doesn't know about @ISA
	$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	884	1017	
==>paque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	884	1017	
==>paque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	884	1017	
==>paque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6416	6540	
==>$context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_bad <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6474	6598	
==>$context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_bad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10452	10608	
==>splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10452	10608	
==>splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10452	10608	
==>splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2249	2371	
==>e.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2249	2371	
==>e.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2249	2371	
==>e.arity;
  # die "Can't use 0-ary subroutine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36011	36108	
==>contents of the
array reference as the contents of the look-ahead, and we're done.  Now
we just ne <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5990	6082	
==>be as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, the h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5990	6082	
==>be as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, the h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9871	9973	
==>dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21050	21141	
==>abase manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21050	21141	
==>abase manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24792	24890	
==>n, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24792	24890	
==>n, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16413	16502	
==>alityExpression> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <Relati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14810	14920	
==>::Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable file from the name of
	# the comman <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7334	7427	
==>operators: alternation, concatenation.

- "plain" match operators: like 'literal'.



Higher o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7084	7174	
==>operators: alternation, concatenation.
- "plain" match operators: like 'literal'.

Higher o <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24204	24296	
==>rl5::X1::Api::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw P <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1081	1172	
==>::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1081	1172	
==>::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Comp <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10777	10872	
==>sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10777	10872	
==>sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7856	7960	
==>reduce_args;
  }
  reduce_backtrack:
  $position = $temp1->from();
  goto reduce_end if $arity > 1;
  $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14916	15041	
==>tr        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14916	15041	
==>tr        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14916	15041	
==>tr        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14732	14838	
==>te' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14732	14838	
==>te' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14732	14838	
==>te' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10419	10566	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10419	10566	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10419	10566	
==>def); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7062	7161	
==>insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7062	7161	
==>insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14922	15042	
==>uperclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14922	15042	
==>uperclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14922	15042	
==>uperclasses
        # because we know that is there ...
        @supers = @{::opaque_instance_attr($self => '@:superclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2717	2818	
==>_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2717	2818	
==>_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2717	2818	
==>_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3987	4206	
==>_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x_round;
}

our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1366	1467	
==>upported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1366	1467	
==>upported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined wit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1366	1467	
==>upported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined wit <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2506	2675	
==>ft(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16932	17031	
==>use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16932	17031	
==>use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14671	14841	
==>nonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14671	14841	
==>nonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14671	14841	
==>nonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4125	4225	
==>m->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4125	4225	
==>m->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4715	4815	
==>m->is_slurpy && $param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11645	11786	
==>alt; 
    my @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->package eq <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8892	8997	
==>test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8892	8997	
==>test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3973	4069	
==>:Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3973	4069	
==>:Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3973	4069	
==>:Container::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Pe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12880	12990	
==>ve identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16357	16467	
==>ve identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15719	15829	
==>ve identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36709	36825	
==>tion has zero
tuples, in which case the result does too.  Another trivial case is if any
source relation is the ident <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41258	41374	
==>tion has zero
tuples, in which case the result does too.  Another trivial case is if any
source relation is the ident <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40881	40997	
==>tion has zero
tuples, in which case the result does too.  Another trivial case is if any
source relation is the ident <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36134	36237	
==>matching every
tuple of the invocant relation with every tuple of the <$other> relation,
then where each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40683	40786	
==>matching every
tuple of the invocant relation with every tuple of the <$other> relation,
then where each <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40297	40400	
==>matching every
tuple of the invocant relation with every tuple of the <$other> relation,
then where each <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1367	1486	
==>r this Relation is mutable or not;
        # depending on the implementing class, it can default to True or 
        # F <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4845	4963	
==>r this Relation is mutable or not;
        # depending on the implementing class, it can default to True or
        # F <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	924	1036	
==>successfully!
.
    }
}
else {
    print << ".";
*** Installation failed (exit code $rv).
.
}

exit $rv;

sub is_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15706	15847	
==>run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19939	20080	
==>run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? <==
3	/Users/nnunley/pugs/util/package-osx.pl	2828	2908	
==>pugs/src/pge/run_pge.pir /System/Library/Perl6/darwin-thread-multi-2level/CORE/pu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11951	12181	
==>'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'exp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11951	12181	
==>'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6798	6892	
==>ss now does Role');
ok($Class->has_method('resolve'), '... we now have the resolve method');

o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2346	2439	
==>ng = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2346	2439	
==>ng = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2346	2439	
==>ng = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FET <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7421	7520	
==>ng components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechunks <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7421	7520	
==>ng components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechunks <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2182	2271	
==>fix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->addToken("postfix:::", "postf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1549	1642	
==>new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1549	1642	
==>new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1549	1642	
==>new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8077	8312	
==>sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8077	8312	
==>sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8077	8312	
==>sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1227	1353	
==>my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1227	1353	
==>my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1227	1353	
==>my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15616	15766	
==>n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15616	15766	
==>n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15616	15766	
==>n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3320	3496	
==>set; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3320	3496	
==>set; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3320	3496	
==>set; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19291	19430	
==>(
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39743	39882	
==>(
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature- <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4654	4781	
==>nfig{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sortin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20231	20347	
==>}

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16652	16768	
==>}

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	645	741	
==>21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	645	741	
==>21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	645	741	
==>21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4916	5037	
==><'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <'with <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	508	620	
==>$_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	366	470	
==>tribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	366	470	
==>tribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $v <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5548	5669	
==>ex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        match_n( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5548	5669	
==>ex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        match_n( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8859	8960	
==>input_path    = rel2abs($_);
  my $relative_file = abs2rel($input_path,$start_dir); 

  # Path seperat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	39	138	
==>odule PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primiti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	39	138	
==>odule PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primiti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	39	138	
==>odule PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	186	285	
==>This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	186	285	
==>This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	186	285	
==>This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2464	2700	
==>_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ---- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2772	2995	
==>_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ---- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2772	2995	
==>_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ---- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	542	667	
==>tant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	542	667	
==>tant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	542	667	
==>tant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2216	2331	
==>>object(bol => 'sbol' => '\A');
  });

  # nbound (not a word boundary)
  $self->add_handler('\B' => sub {
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6930	7038	
==>,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6930	7038	
==>,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29092	29214	
==>ue;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29092	29214	
==>ue;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29092	29214	
==>ue;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3757	3857	
==>"], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3757	3857	
==>"], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3757	3857	
==>"], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	26	147	
==>e v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]> <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	26	147	
==>e v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15139	15232	
==>pression>
    | <AdditiveExpression> <'-'> <MultiplicativeExpression>
}
rule ShiftExpression : <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5127	5264	
==>se_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5451	5574	
==>se_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	888	981	
==>->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10612	10712	
==>hat will select a record from the
    # 'person' table, whose 'id' field matches the functions 'perso <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10612	10712	
==>hat will select a record from the
    # 'person' table, whose 'id' field matches the functions 'perso <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4231	4330	
==>ase($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(Get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2955	3061	
==>Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2955	3061	
==>Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3302	3408	
==>Copyright (c) 2006. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6593	6715	
==>: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYParse;
    #print Dumper $out;
    return ( $out, $matc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10812	10909	
==>tes a "universal set".

The complement set of the universe is an empty set.

`:is_universe` must b <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10812	10909	
==>tes a "universal set".

The complement set of the universe is an empty set.

`:is_universe` must b <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3196	3325	
==>ependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #prin <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3660	3789	
==>ependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #prin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2385	2479	
==>urn $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method st <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2385	2479	
==>urn $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10020	10148	
==>);
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10020	10148	
==>);
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10020	10148	
==>);
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6419	6568	
==>t.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the module content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6419	6568	
==>t.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the module content <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5549	5644	
==>eta('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Complex') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1063	1177	
==>else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1063	1177	
==>else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1063	1177	
==>else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2481	2606	
==>} )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2621	2746	
==>} )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	899	1016	
==>{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	560	667	
==>efix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_rom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	560	667	
==>efix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_rom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	560	667	
==>efix.
      // I.e. "use jsan:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_rom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1892	1986	
==>o, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1892	1986	
==>o, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1892	1986	
==>o, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n" <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2497	2757	
==>)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_lin <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2497	2757	
==>)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_lin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1817	1925	
==>JavaScript::ECMAScript3::Grammar.
#
#  Bugs:
#   * This grammar has never yet been run, so there no doubt are <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5057	5160	
==>$name, @mess);
}

# Check that $got is within $range of $expected
# if $range is 0, then check it's exac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7142	7244	
==>$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7142	7244	
==>$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7142	7244	
==>$match:) \{
    JS::inline('(function (match) \{ return match.$attr \})')(\$match);
  \}";
}

# Needs P <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	260	359	
==>TEMP_PRELUDE = "Prelude.pm"; # XXX: move this to config.yml?
END { unlink $TEMP_PRELUDE unless $Conf <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2157	2253	
==>al known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are w <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2157	2253	
==>al known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16733	16856	
==>l, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16733	16856	
==>l, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16733	16856	
==>l, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11233	11355	
==>fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11233	11355	
==>fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11233	11355	
==>fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	637	730	
==>f ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	637	730	
==>f ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	328	444	
==>t;
    $self->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $Config: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5590	5704	
==>_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes}, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5590	5704	
==>_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9379	9484	
==>p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writabl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9379	9484	
==>p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writabl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9379	9484	
==>p->{'tpParam'}{'isNamed'};
        my $is_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writabl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1904	2059	
==>pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1892	2047	
==>pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1380	1477	
==>lasses($super);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasses.size ) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3519	3854	
==>> $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

cl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3519	3854	
==>> $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

cl <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1195	1291	
==>:join (@values,   Str $delimiter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@v <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8191	8291	
==>e.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8191	8291	
==>e.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1792	1902	
==>} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1792	1902	
==>} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1792	1902	
==>} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "SState" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4421	4516	
==>s/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<nam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4268	4362	
==>s/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19388	19684	
==>riginal arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19388	19684	
==>riginal arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19388	19684	
==>riginal arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4778	4878	
==>ed) . " with " . Data::Dumper::Dumper($node);
			$self->unify_type($node, $expected);
		});

		return <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30547	30642	
==>language" (or "user type") for each distinct Message; each file can be
shared by multiple Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30547	30642	
==>language" (or "user type") for each distinct Message; each file can be
shared by multiple Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	7	287	
==>bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11129	11263	
==>hift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11129	11263	
==>hift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11129	11263	
==>hift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11287	11381	
==>item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set> <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11287	11381	
==>item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6932	7070	
==>);
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6932	7070	
==>);
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() ) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6665	6768	
==>:Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .P <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6665	6768	
==>:Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	479	602	
==>name},
		type => $params->{type},
		fixity => $params->{fixity} || "listy",
    );
}

sub type { [ map { Blondie::TypeSafe:: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2251	2363	
==>first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Juncti <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2251	2363	
==>first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Juncti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6717	6837	
==>loop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6717	6837	
==>loop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6717	6837	
==>loop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3986	4124	
==>turn $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3986	4124	
==>turn $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	930	1023	
==>der->duplicate_nodes($program);

=head1 DESCRIPTION

Useful as a first pass in the code emissi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	557	651	
==>= new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	557	651	
==>= new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::D <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43028	43124	
==>LSO

Go to L<Relation> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docum <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5718	5816	
==>s a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<statu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5718	5816	
==>s a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<statu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7915	8013	
==>s a single method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<statu <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12800	12913	
==>finite.  -law]

=back



=head2 Hash

=over 4

=item delete

 multi method Hash::delete ( *@keys --> List )
 multi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13117	13229	
==>nd, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13117	13229	
==>nd, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	109	229	
==>_map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	109	229	
==>_map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	109	229	
==>_map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($o <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	182	285	
==>rt {
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend::$backe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5376	5471	
==>e. 
This is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5376	5471	
==>e. 
This is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3619	3786	
==>ertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3619	3786	
==>ertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3619	3786	
==>ertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Pe <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1891	2001	
==>ternals::log_base($x,$base);
 }

sub Pugs::Internals::log_base(Num $x, Num $base) {
    return Pugs::Internals: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1361	1459	
==>nfix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1361	1459	
==>nfix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5824	5934	
==>[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5812	5922	
==>[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3558	3644	
==>ase 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional invocant named nam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6232	6414	
==>lues.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method unio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9709	9891	
==>lues.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method unio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8783	8965	
==>lues.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method unio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1279	1383	
==>lf->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1279	1383	
==>lf->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1279	1383	
==>lf->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1727	1996	
==>s:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1727	1996	
==>s:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class R <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1172	1269	
==>xport {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1172	1269	
==>xport {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1571	1671	
==>l5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1571	1671	
==>l5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1571	1671	
==>l5},
  "compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5036	5138	
==>Val("moose"),
    ),

will yield "moose".

Inherits List.

=item Param

Shifts a parameter from the par <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4278	4513	
==>'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh. <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4278	4513	
==>'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2717	2852	
==>( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17752	17851	
==>MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17752	17851	
==>MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17752	17851	
==>MULTI SUB infix:<~&> ($xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1125	1340	
==>last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1125	1340	
==>last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1125	1340	
==>last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2443	2594	
==>e the data into the available list
                ### XXX temp file, then mv
                my @list = LoadFile( $Available );
                push @l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4864	4961	
==>spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4864	4961	
==>spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2445	2566	
==>},
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($titl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2445	2566	
==>},
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($titl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2792	2913	
==>},
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($titl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	507	620	
==>o keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	507	620	
==>o keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	507	620	
==>o keep .bind
#   working after a trait is applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3395	3489	
==>lass Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.co <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3395	3489	
==>lass Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10684	10815	
==>add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10684	10815	
==>add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10684	10815	
==>add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5862	5961	
==>($node => "$return_type $symbol (" . join(", ", @params) . ") {" . join("\n\t", "", (map { "$_;" } @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2471	2568	
==>Token("infix:|", "<infix:&", "left,nows", "PGE::Exp::Alt");
    $optable->addToken("infix::=", ">p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11089	11183	
==>}, !. %# XXX - more

p6_simple_escape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !.
p6_simple_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40907	41027	
==>alar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40907	41027	
==>alar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40907	41027	
==>alar @{$this->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Per <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4144	4253	
==>iated (ie. 15-20 to indicate that tests 15, 16, 17, 18, 19 and
20 failed).

=back


=head2 Functions

Test::Ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25842	25937	
==>le object has 2 main attributes (implementation details subject to
change) plus 1 extra attribut <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	747	1000	
==>ile '$file' does not exist]);
                                    return;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37719	37812	
==>od is a generic relational operator that takes a single Relation::Example
in its C<$other> arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38559	38652	
==>od is a generic relational operator that takes a single Relation::Example
in its C<$other> arg <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	628	989	
==>aragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	628	989	
==>aragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($eve <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3357	3465	
==>y $passed = ($totals{max} == 0 && defined $totals{skip_all}) ||
                 ($totals{max} && $totals{see <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10528	10638	
==>dd_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10145	10255	
==>dd_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant = <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	432	527	
==>d1 NAME

Blondie::SmokeBackends - 

=head1 SYNOPSIS

	use Blondie::SmokeBackends;

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2580	2694	
==>es {
    my $self     = shift;
    my $provides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provide <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	740	841	
==>re running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	740	841	
==>re running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7156	7308	
==>:greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7349	7501	
==>:greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2344	2434	
==>ent>' );
    my $program = Pugs::Emitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15755	15873	
==>};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15755	15873	
==>};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15755	15873	
==>};
MULTI SUB getc ($xx) {...};
MULTI SUB ref ($xx) { $xx->ref }; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15308	15444	
==>}
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15308	15444	
==>}
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15308	15444	
==>}
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3908	4006	
==>d setting the passed parameter to a true value. 

If this parameter is false, the factory returns a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3908	4006	
==>d setting the passed parameter to a true value. 

If this parameter is false, the factory returns a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6105	6203	
==>d setting the passed parameter to a true value. 

If this parameter is false, the factory returns a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7583	7699	
==>t($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self->_restore_PERL5LIB();

    return %results;
}


eva <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8979	9085	
==> $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_difference = $set % $s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8979	9085	
==> $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_difference = $set % $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2110	2202	
==>(str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2110	2202	
==>(str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2110	2202	
==>(str) { return str.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function ( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	560	651	
==>dups}->insert($node);
	} else {
		$self->{seen}->insert($node);
		$self->SUPER::generic_redu <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	567	717	
==>h;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Sp <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	567	717	
==>h;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Sp <==
3	/Users/nnunley/pugs/util/func_refact.pl	2538	2637	
==>orable::dclone($ccset), $cand)];  # new contributions
        #print "$cand: totall $cands{$cand}[0] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5519	5618	
==>urns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5577	5676	
==>urns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) ret <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7263	7355	
==>bined with (except instantiated variables, which delegate. see below)
multi unify => ( 'type: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6583	6719	
==>spatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($or <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6583	6719	
==>spatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($or <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6583	6719	
==>spatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical order
        if not(defined($or <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	744	851	
==>_params($args);
    my $inv = $args->fetch(num->new(0));
    $self->{env}->set('$?SELF'    => $inv);
    $se <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	415	517	
==>ses.

=cut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# rep <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	415	517	
==>ses.

=cut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# rep <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4016	4119	
==>r $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4016	4119	
==>r $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4096	4199	
==>r $line )>

Adds a line to the list of lines of expected output for the test you're going
to run.

=item <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16383	16479	
==>.  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16383	16479	
==>.  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19875	19962	
==>cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn)->get_p6_file;
    p6_eval($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39968	40068	
==>se, or (at your option) any later version.  You
should have received a copy of the LGPL as part of th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39968	40068	
==>se, or (at your option) any later version.  You
should have received a copy of the LGPL as part of th <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	738	851	
==>ram = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only    => $param->{name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	720	830	
==>ram = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	720	830	
==>ram = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               named_only => $param->{name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	404	526	
==>counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	609	731	
==>counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	665	787	
==>counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($c <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1879	2005	
==>MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $self->makemaker_args->{MAN1PODS} = {} if $perl_version == 6;
    $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9517	9615	
==>/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 2 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9517	9615	
==>/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	263	372	
==>for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	263	372	
==>for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	263	372	
==>for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass o <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3743	4125	
==>step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                retur <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3743	4125	
==>step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                retur <==
3	/Users/nnunley/pugs/util/run-smoke.pl	81	172	
==>e::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild: <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6150	6287	
==>r my $ghc_dir (@ghc_choices) {
                my $ghc_candidate = qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_vers <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3648	3760	
==>dentZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex clos <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3648	3760	
==>dentZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex clos <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15626	15718	
==>one(Re),F0,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cut is semantic.

rm(con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2403	2511	
==>my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2403	2511	
==>my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2403	2511	
==>my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Dump($pil <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	477	572	
==>lass MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	477	572	
==>lass MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16605	16840	
==>atcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16450	16576	
==>) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12871	12997	
==>) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6958	7058	
==>bling is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6958	7058	
==>bling is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tre <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2775	2939	
==>:<+>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:</>' => Thunk->n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13135	13240	
==>. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13135	13240	
==>. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	289	423	
==>rg/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	289	423	
==>rg/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	289	423	
==>rg/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // I\'m sure that there must be a more efficient way <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	711	810	
==>cription );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pil <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	711	810	
==>cription );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2518	2612	
==>rn \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2518	2612	
==>rn \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	594	722	
==>opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	610	738	
==>opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	586	714	
==>opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1416	1520	
==>~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1416	1520	
==>~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1416	1520	
==>~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS::inline('(functi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10444	10564	
==>) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10444	10564	
==>) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %! <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10343	10454	
==>ook:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $iter->(-depth)) {
      # this is as deep as <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3480	3623	
==>e "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while (<$ifh>) {
            $module ||= $1 if /^(?:packa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4198	4312	
==>tually returns a Test::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4198	4312	
==>tually returns a Test::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5722	5836	
==>tually returns a Test::Builder singleton, creating it if
necessary.  The optional named arguments are:

=over 4

=i <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10264	10382	
==>open input test file $input_path: $!";
  my $outfile = IO::File->new($output_path, ">:utf8")
                         o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23664	23754	
==>return @:superclasses;
}

(method superclasses ((opaque $self) (list ?@superclasses)) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7878	7987	
==>= AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7878	7987	
==>= AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7878	7987	
==>= AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3604	3699	
==>SO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Functio <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3604	3699	
==>SO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3187	3299	
==>start} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3187	3299	
==>start} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3187	3299	
==>start} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8730	8844	
==>$prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8730	8844	
==>$prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19204	19314	
==>_code {
    my($code)=@_;
    eval_p5_log_code($code);    
    my @res = eval_wa($code,wantarray);
    eval_p5_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10679	10802	
==>thod add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10679	10802	
==>thod add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10679	10802	
==>thod add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_attri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13368	13499	
==>t: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9554	9685	
==>t: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10390	10521	
==>t: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14053	14160	
==>] },
      code  => sub { $as_array_complain->("code") },
      ref   => sub { $as_array_complain->("ref") } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7399	7486	
==>{ Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_cal <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1224	1311	
==>{ Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_cal <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	796	923	
==>t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	541	638	
==>ct { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	541	638	
==>ct { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	304	418	
==>pt,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %o <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5428	5523	
==>um%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5428	5523	
==>um%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11108	11205	
==>oles could provide their own BUILD submethods? This would 
mean that BUILD methods would need to b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11108	11205	
==>oles could provide their own BUILD submethods? This would 
mean that BUILD methods would need to b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11108	11205	
==>oles could provide their own BUILD submethods? This would 
mean that BUILD methods would need to b <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1177	1292	
==>sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1177	1292	
==>sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	403	506	
==>y $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	403	506	
==>y $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	403	506	
==>y $jsname = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4269	4365	
==>ule::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4269	4365	
==>ule::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4269	4365	
==>ule::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3897	4068	
==>! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    ne <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4361	4532	
==>! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    ne <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5032	5139	
==>'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue] <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5032	5139	
==>'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1936	2043	
==>'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8247	8340	
==>..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8305	8398	
==>..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4933	5042	
==>mmand_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4933	5042	
==>mmand_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4933	5042	
==>mmand_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if $@;
  prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2858	2977	
==>line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2858	2977	
==>line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2858	2977	
==>line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ / <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11325	11453	
==>g  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1063	1181	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1019	1134	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22351	22448	
==>ic, such that all of its class
and object methods will each return the same result when invoked on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26903	27000	
==>ic, such that all of its class
and object methods will each return the same result when invoked on <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25626	25723	
==>ic, such that all of its class
and object methods will each return the same result when invoked on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5510	5619	
==>_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5510	5619	
==>_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5510	5619	
==>_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval( <==
3	/Users/nnunley/pugs/util/func_refact.pl	1856	1996	
==>\n" if $Conf{verbose} or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	656	772	
==>tch[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget} <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	656	772	
==>tch[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2964	3066	
==>die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2964	3066	
==>die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2964	3066	
==>die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2961	3078	
==>ckage;
    my $builddir = Path::Class::dir( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### co <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1913	2012	
==>le setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1913	2012	
==>le setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7529	7625	
==>from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7529	7625	
==>from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7529	7625	
==>from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	667	793	
==>};
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$name";
    $pre <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6251	6347	
==>me, $test_filehandle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub analy <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3348	3439	
==>le through the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessibl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3348	3439	
==>le through the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessibl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2440	2640	
==>> $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34740	34828	
==>method returns the identity-one Relation::Example or the invocant relation,
respectively. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1191	1302	
==>tor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all opera <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1191	1302	
==>tor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all opera <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1191	1302	
==>tor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - not all opera <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36707	36802	
==>Types: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Family: asser <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3702	3840	
==>en we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3702	3840	
==>en we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3702	3840	
==>en we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so wh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5684	5881	
==>list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18559	18652	
==>nd you should not share
Rosetta objects between multiple threads, nor have objects in separate <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18559	18652	
==>nd you should not share
Rosetta objects between multiple threads, nor have objects in separate <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1630	1743	
==>l {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1630	1743	
==>l {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single captur <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1723	1824	
==>_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10322	10462	
==>ms => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10322	10462	
==>ms => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10322	10462	
==>ms => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scalar @pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	423	525	
==>S' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	423	525	
==>S' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	423	525	
==>S' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3645	3790	
==>e->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3645	3790	
==>e->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3645	3790	
==>e->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14241	14375	
==>= (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14235	14369	
==>= (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4373	4498	
==>n) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        splice( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5317	5471	
==>capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5149	5296	
==>capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10605	10705	
==>d of the tree;
it will then reset itself, and will start from the beginning the next
time it is calle <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	670	765	
==>e>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	670	765	
==>e>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2699	2809	
==>d1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ eta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2699	2809	
==>d1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ eta <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2699	2809	
==>d1_autovivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ eta <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10738	10830	
==>>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_le <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10738	10830	
==>>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	625	733	
==>2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	625	733	
==>2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	625	733	
==>2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	975	1082	
==>tually inherits a number of new attributes from various sources
# and we need to now create these attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	975	1082	
==>tually inherits a number of new attributes from various sources
# and we need to now create these attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	975	1082	
==>tually inherits a number of new attributes from various sources
# and we need to now create these attributes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5726	5829	
==>= &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5726	5829	
==>= &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5726	5829	
==>= &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	272	398	
==>w[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12923	13088	
==>reate_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12923	13088	
==>reate_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9267	9357	
==>--------------------------------------------------------------------
package main;
Regexp:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23883	23977	
==>ULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23883	23977	
==>ULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23883	23977	
==>ULTI SUB rx_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4492	4605	
==>]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubNa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4492	4605	
==>]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubNa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2151	2299	
==>n',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.number'     => 0)     unless exists $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26225	26321	
==>riable name can be any
defined and non-empty string, and each variable value can be anything at
a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26225	26321	
==>riable name can be any
defined and non-empty string, and each variable value can be anything at
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7152	7259	
==>SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->dec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7152	7259	
==>SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->dec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7152	7259	
==>SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3057	3185	
==>ile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3057	3185	
==>ile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3057	3185	
==>ile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Pr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9294	9390	
==>ill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "& <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9294	9390	
==>ill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "& <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24821	24909	
==>my $type = type::operator::arrow->new(
		type::variable::free->new,
		type::operator::arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	709	814	
==>e::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	709	814	
==>e::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	709	814	
==>e::JS::Code;
use Prelude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelud <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5160	5280	
==>returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5382	5502	
==>returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #pri <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	49	144	
==>Script-on-p6 runtime.
It seems likely there will be more than one.

Design goals:
 1 Correctness <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1275	1378	
==>utoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1275	1378	
==>utoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1275	1378	
==>utoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2236	2358	
==>level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2236	2358	
==>level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2236	2358	
==>level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . "::$name"} = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3003	3117	
==>ODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $id <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3003	3117	
==>ODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $id <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3003	3117	
==>ODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $id <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	171	303	
==>=> \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	171	303	
==>=> \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7548	7648	
==>e List section.
multi Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, * <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11382	11513	
==>rray => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { ${ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9593	9686	
==>of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP::Resp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9593	9686	
==>of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP::Resp <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	410	566	
==>ar {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $firs <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	410	566	
==>ar {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $firs <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	503	602	
==>attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($klass->fetch->isa('opaque' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11283	11407	
==>my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11283	11407	
==>my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11283	11407	
==>my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2834	2972	
==>iate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2834	2972	
==>iate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2834	2972	
==>iate_attribute_container ($) {       
        return [] if ${$_[0]} =~ /^@/o;
        return {} if ${$_[0]} =~ /^%/o;        
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21293	21393	
==>apping key is an attribute name and each Mapping value
is the corresponding attribute value.

Every R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25845	25945	
==>apping key is an attribute name and each Mapping value
is the corresponding attribute value.

Every R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24469	24569	
==>apping key is an attribute name and each Mapping value
is the corresponding attribute value.

Every R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22124	22248	
==>s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22124	22248	
==>s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22124	22248	
==>s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1359	1505	
==>ies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        els <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1359	1505	
==>ies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        els <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14276	14397	
==>pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6	114	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6	114	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6	114	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2140	2244	
==>e list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2140	2244	
==>e list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2140	2244	
==>e list went into array element zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2938	3344	
==>:Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::In <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2938	3344	
==>:Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::In <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12036	12139	
==>return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4679	4782	
==>return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26939	27033	
==>em C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harness will check after ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7652	7788	
==>6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7652	7788	
==>6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7652	7788	
==>6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21705	21907	
==>::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21705	21907	
==>::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21705	21907	
==>::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9061	9206	
==>> {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9061	9206	
==>> {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9061	9206	
==>> {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4350	4503	
==>gex->compile( q(
            { 
                return { die => "not implemented" } 
            }
        ) ),
        Inf => Pugs::Compiler::Regex->comp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12549	12663	
==>le_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12549	12663	
==>le_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1143	1251	
==>= catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1143	1251	
==>= catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1755	1858	
==>e($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1755	1858	
==>e($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1755	1858	
==>e($prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17624	17753	
==>.";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code .= "our \$META;\n";
    $code .= "\$META = \ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11246	11352	
==>ndef","\n";
END




__END__

=pod
Objective:

  Permit swapping in an alternate regexp engine,
  using call <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23645	23738	
==>oo short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23645	23738	
==>oo short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8684	8808	
==>UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8684	8808	
==>UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8684	8808	
==>UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not impleme <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9751	9863	
==>ethod shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Pe <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9751	9863	
==>ethod shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15704	15800	
==>os; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
    local $m0->{$name} = [@{$m0->{ <==
3	/Users/nnunley/pugs/util/testgraph.pl	1378	1508	
==>del;
    use base qw/Test::TAP::Model::Visual/;
    sub file_class { "My::File" }
    
    package My::File;
    use base qw/Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7948	8035	
==>($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7948	8035	
==>($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @cha <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	530	650	
==>alue = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# ski <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18311	18406	
==>ment from which the
requested resource address was obtained.

The "Free On-line Dictionary of Co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18311	18406	
==>ment from which the
requested resource address was obtained.

The "Free On-line Dictionary of Co <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7158	7264	
==>e across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7158	7264	
==>e across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29518	29619	
==>item my $o = $obj->omit()

=item my $o = $obj->omit(VALUE)

Whether this node is omitted from the pars <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10206	10305	
==>uant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6914	7008	
==>t '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8916	9010	
==>t '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10415	10597	
==>SS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10415	10597	
==>SS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10415	10597	
==>SS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a sub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	17	113	
==>er::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	17	113	
==>er::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.enc <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16757	16999	
==>get   => $target, 
                                        heading  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a hre <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	912	1005	
==>b {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $uni <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	912	1005	
==>b {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $uni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12019	12172	
==>op} eq '(' &&
         $n->{op2}{op} eq ')' ) {
        return '()'
            unless defined  $n->{exp1};
        return '(' . _emit( $n->{exp1} ) . <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11484	11576	
==>are_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11542	11634	
==>are_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10040	10189	
==>) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10040	10189	
==>) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10040	10189	
==>) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4214	4318	
==>f => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4214	4318	
==>f => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4214	4318	
==>f => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9442	9537	
==>value pairs also called fields, which
may be repeated, and which are printed in a particular ord <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9442	9537	
==>value pairs also called fields, which
may be repeated, and which are printed in a particular ord <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18765	18864	
==>ument and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_no <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18765	18864	
==>ument and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_no <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3790	3884	
==>4
      <MultiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentCha <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	195	404	
==>args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when ' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	195	404	
==>args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7268	7403	
==>prefix:<$id>'} = sub {\n" .
                "    my \$rule = ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11533	11690	
==>{ \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7815	7972	
==>{ \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8649	8806	
==>{ \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $bloc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8715	8841	
==>{ $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8715	8841	
==>{ $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3660	3782	
==>er::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$.' . $_[0]->() , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6630	6754	
==>od(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6630	6754	
==>od(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6630	6754	
==>od(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1490	1598	
==>sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc} = 'left' unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22669	22759	
==>I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22669	22759	
==>I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This doc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30819	30912	
==>ransformation have been eliminated. 
Trivial cases are where C<$transformer> returns either an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35370	35462	
==>ransformation have been eliminated.
Trivial cases are where C<$transformer> returns either an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34561	34653	
==>ransformation have been eliminated.
Trivial cases are where C<$transformer> returns either an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	22	136	
==>t:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	22	136	
==>t:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	22	136	
==>t:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is primitive { print <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21881	22000	
==>b {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(sus <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18302	18421	
==>b {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(sus <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30632	30729	
==>es match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35183	35280	
==>es match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4984	5106	
==>f->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4984	5106	
==>f->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4984	5106	
==>f->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4354	4455	
==>_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4354	4455	
==>_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4944	5045	
==>_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param->bind($current, $ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2214	2326	
==>n, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the us <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	809	897	
==>Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VER <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	809	897	
==>Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6041	6155	
==>ion of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6041	6155	
==>ion of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6041	6155	
==>ion of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2165	2269	
==>iled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2165	2269	
==>iled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2165	2269	
==>iled Test.pm for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3904	4009	
==>Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3904	4009	
==>Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3904	4009	
==>Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@arra <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8759	8852	
==>nfinite` object using an existing Recurrence object.

- `universal_set()`

Creates an object w <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8759	8852	
==>nfinite` object using an existing Recurrence object.

- `universal_set()`

Creates an object w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28178	28270	
==>etting C<HARNESS_PERL_SWITCHES> to C<-W> will
run all tests with all warnings enabled.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5657	5759	
==>( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5657	5759	
==>( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5657	5759	
==>( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7897	8034	
==>} ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exists (a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7897	8034	
==>} ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exists (a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3970	4080	
==>x, taking the 10 off the parameter stack and binding
it to $x. Then the app is reduced. First its children will <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12692	12804	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12692	12804	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12692	12804	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2J <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11033	11208	
==>rt returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1511	1674	
==>rt returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1511	1674	
==>rt returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12314	12432	
==>r('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12314	12432	
==>r('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12314	12432	
==>r('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14071	14192	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14071	14192	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14071	14192	
==>t @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3688	3801	
==>D_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3688	3801	
==>D_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3688	3801	
==>D_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7394	7512	
==>s.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7394	7512	
==>s.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7394	7512	
==>s.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2103	2198	
==>"ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2103	2198	
==>"ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2103	2198	
==>"ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15092	15240	
==>if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15092	15240	
==>if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15092	15240	
==>if $v eq "".&Perl6::Value::Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3479	3580	
==>)");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3479	3580	
==>)");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3479	3580	
==>)");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	59	186	
==>ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	59	186	
==>ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	59	186	
==>ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7011	7123	
==>PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7011	7123	
==>PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7011	7123	
==>PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	320	435	
==>e {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	320	435	
==>e {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	320	435	
==>e {
  my ($class, $str) = @_;

  die "No string to parse given!\n" unless defined $str;

  local $@;

  my $struct = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3766	3881	
==>s Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3631	3742	
==>s Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16175	16273	
==>v($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) }

cond: generi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28705	28833	
==>at ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28705	28833	
==>at ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28705	28833	
==>at ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36597	36727	
==>t;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36597	36727	
==>t;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36597	36727	
==>t;
    return unless $array->elems;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7557	7664	
==>$_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7557	7664	
==>$_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7557	7664	
==>$_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is prim <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	567	682	
==>r.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	567	682	
==>r.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1123	1238	
==>r.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1692	1800	
==>::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1692	1800	
==>::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1692	1800	
==>::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5806	5943	
==>e
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5806	5943	
==>e
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5806	5943	
==>e
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5637	5767	
==>ptional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5637	5767	
==>ptional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5637	5767	
==>ptional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12539	12652	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12539	12652	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12539	12652	
==>l')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->store <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7024	7189	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7024	7189	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7024	7189	
==>Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5373	5475	
==>xa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5373	5475	
==>xa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5373	5475	
==>xa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13613	13717	
==>: p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13613	13717	
==>: p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13613	13717	
==>: p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3670	3796	
==>cription");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3670	3796	
==>cription");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5194	5320	
==>cription");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Test::Module;

  plan('n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13173	13270	
==>ow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13173	13270	
==>ow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	589	684	
==>S::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	589	684	
==>S::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	589	684	
==>S::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16508	16664	
==>ading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19985	20141	
==>ading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19545	19701	
==>ading ),
        body => set( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mappin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9677	9792	
==>)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9677	9792	
==>)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9677	9792	
==>)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6967	7085	
==>refix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6967	7085	
==>refix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6967	7085	
==>refix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37541	37677	
==>t;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37541	37677	
==>t;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37541	37677	
==>t;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6103	6264	
==>age Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbindi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6103	6264	
==>age Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbindi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6103	6264	
==>age Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Perl6::Attribute');     
    }  
    
    # a convenience wrapper for binding/unbindi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	319	421	
==>d version of inc::Module::Install
#     3. The installed version of inc::Module::Install loads
#     4. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17090	17187	
==>en in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17090	17187	
==>en in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Rose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1094	1210	
==>s %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1094	1210	
==>s %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1094	1210	
==>s %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2989	3112	
==>String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2989	3112	
==>String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2989	3112	
==>String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1379	1476	
==>eludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1379	1476	
==>eludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc}, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1379	1476	
==>eludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc}, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1647	1825	
==>/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1647	1825	
==>/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1226	1325	
==>have trouble with a full line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6441	6556	
==>nfix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6441	6556	
==>nfix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6441	6556	
==>nfix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1000	1124	
==>tr);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1000	1124	
==>tr);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1000	1124	
==>tr);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6035	6160	
==>rent->{env}->{$name}->store($value);
            return;
        }
        $current = $current->next;
    }
    $self->create( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	328	439	
==>cation.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3605	3710	
==>@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\n";
}
sub node::_simp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3261	3423	
==>ame =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3261	3423	
==>ame =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3261	3423	
==>ame =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4873	4986	
==>ode::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2415	2528	
==>ode::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3196	3309	
==>ode::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4054	4198	
==>ds => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4054	4198	
==>ds => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4054	4198	
==>ds => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6476	6583	
==>n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6476	6583	
==>n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6476	6583	
==>n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13939	14054	
==>'-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13939	14054	
==>'-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13939	14054	
==>'-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22367	22498	
==>{
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18788	18919	
==>{
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	11	110	
==>::Package::Installable;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1300	1403	
==>onfess "Condition must be a block";
    while ($condition->do()->to_bit == $bit::FALSE) {
        $self- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4316	4409	
==>the "Rosetta" package serves only as the name-sake
representative for this whole file, which c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4316	4409	
==>the "Rosetta" package serves only as the name-sake
representative for this whole file, which c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3394	3491	
==>ist) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3394	3491	
==>ist) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3394	3491	
==>ist) actually means store([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11560	11668	
==>rgs{switches}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) {
	# so we don't try to put lite <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	330	425	
==>ker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir() <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	330	425	
==>ker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28322	28516	
==>fy( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28322	28516	
==>fy( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28322	28516	
==>fy( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	422	524	
==>>init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	422	524	
==>>init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	422	524	
==>>init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1132	1262	
==>rg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1132	1262	
==>rg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1132	1262	
==>rg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6089	6223	
==>of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Lis <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6089	6223	
==>of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Lis <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11785	11881	
==>Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	469	572	
==>t->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	469	572	
==>t->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	469	572	
==>t->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10305	10425	
==>{
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_han <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1860	1977	
==>uleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1871	1988	
==>uleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1518	1624	
==>6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1518	1624	
==>6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1518	1624	
==>6::Slice'
#   supports syntax: @a = (2,3,4,5); @a[1,2] = @a[0,3]
#
# 2005-08-12
# * store(List) actually me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1159	1255	
==>ly
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1159	1255	
==>ly
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcall <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1159	1255	
==>ly
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	893	1004	
==>support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	893	1004	
==>support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	893	1004	
==>support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3532	3643	
==>values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7009	7120	
==>values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5966	6077	
==>values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16988	17137	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17267	17416	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16376	16485	
==>s_version" or
    die "Couldn't open pipe to \"$bin -V:pugs_version\": $!\n";
  my $rev = <$fh>;
  $rev =~ s/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2443	2556	
==>ck won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2443	2556	
==>ck won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2443	2556	
==>ck won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13726	13837	
==>ms->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13726	13837	
==>ms->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13726	13837	
==>ms->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6169	6297	
==>f / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $expected) {
            unshift @mess, "# $got - $expect <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14357	14483	
==>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14357	14483	
==>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2959	3069	
==>/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2959	3069	
==>/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12420	12503	
==>rs(R) --> hexdigits_int(C), p6_hex_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2617	2746	
==>e if $.year < 0; int($.year / 100) }

our @months = <January February March     April   May      June
               July    Augus <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9039	9131	
==>$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9039	9131	
==>$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2902	3019	
==>self->warn($enum, $err, @args);
}


sub next {
  my ($self) = @_;
  croak "no regex defined" unless &RxLEN;

  while ( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11087	11185	
==>ns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'tex <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11087	11185	
==>ns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'tex <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	804	1029	
==>5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	804	1029	
==>5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11750	11853	
==>eturn $status;
      }
  }
  
  class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
  { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2180	2273	
==>eturn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2180	2273	
==>eturn $status;
    }
}

class Test::Builder::Test::Skip does Test::Builder::Test::WithReason
{ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3989	4098	
==>y ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3989	4098	
==>y ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.star <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26107	26199	
==>elation::Example.  Each attribute name is a character
string.

=item C<$!body> - B<Relation:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3933	4060	
==>> "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6846	6944	
==>{...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This wi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6846	6944	
==>{...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This wi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2241	2347	
==>lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    packa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2158	2261	
==>lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15830	15941	
==>ub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15830	15941	
==>ub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15830	15941	
==>ub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12755	12880	
==>b nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12755	12880	
==>b nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12755	12880	
==>b nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9791	9902	
==>o input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9791	9902	
==>o input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9791	9902	
==>o input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  return $text unless $ENV{PIL2JS_INDE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13860	13987	
==>turn unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14139	14266	
==>turn unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
3	/Users/nnunley/pugs/util/func_refact.pl	1897	2041	
==>$new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "union: while addin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35590	35684	
==>ation>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relation $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40140	40234	
==>ation>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relation $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5638	5747	
==>minfo=s"     => \$terminfo,
  help             => \&usage,
) or usage();
check_for_evil_chars($initrd_img, $in <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3160	3256	
==>die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskel <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3160	3256	
==>die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38781	38878	
==>ched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38781	38878	
==>ched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20212	20322	
==>thod
    .param pmc pad
    .local pmc reps, exp
    .local string cname
    .local int cutnum, padarray, isarr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2479	2583	
==>$span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2479	2583	
==>$span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1167	1293	
==>$self = shift;
                my $idx = shift;
                $self->get_value('@:slots')->[$idx]; # type == Container::Scala <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11155	11251	
==>sts as a container
in which Node objects live.  The Document class is pure and deterministic,
suc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11155	11251	
==>sts as a container
in which Node objects live.  The Document class is pure and deterministic,
suc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2855	2969	
==>_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2855	2969	
==>_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2855	2969	
==>_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9589	9692	
==>gather all the roles to be 'resolved'
    # -----------------------------------------------      
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9589	9692	
==>gather all the roles to be 'resolved'
    # -----------------------------------------------      
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9589	9692	
==>gather all the roles to be 'resolved'
    # -----------------------------------------------      
    me <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20649	20753	
==>oIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # see 12. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1033	1119	
==>erl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1033	1119	
==>erl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37103	37205	
==>ce( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37103	37205	
==>ce( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37103	37205	
==>ce( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1988	2140	
==>r(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1988	2140	
==>r(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1988	2140	
==>r(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_val <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8503	8629	
==>=> chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8503	8629	
==>=> chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8867	8957	
==>';

fails_ok { $iFoo->another_singleton_test_on_object } '... instance calling metaclass si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10683	10795	
==>ndler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10288	10400	
==>ndler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3131	3274	
==>gn",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3131	3274	
==>gn",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3131	3274	
==>gn",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1850	1979	
==>= $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1850	1979	
==>= $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1850	1979	
==>= $jsname";
      } elsif($self->{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsn <==
3	/Users/nnunley/pugs/util/fixauthors.pl	462	573	
==>"\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get("http://search <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5859	5949	
==>-------------------------------------
## sibling methods

method get_sibling ($self: Int $i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5859	5949	
==>-------------------------------------
## sibling methods

method get_sibling ($self: Int $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2195	2289	
==>)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2195	2289	
==>)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2195	2289	
==>)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4320	4426	
==>($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ??? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4320	4426	
==>($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ??? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4320	4426	
==>($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ??? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13738	13871	
==>l_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13738	13871	
==>l_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13738	13871	
==>l_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11013	11108	
==>tr $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11071	11166	
==>tr $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4631	4772	
==>vate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4631	4772	
==>vate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4631	4772	
==>vate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_cla <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1561	1713	
==>~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1561	1713	
==>~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    re <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5336	5466	
==>ndex->{_dirs}};
my $index_file = catfile($output_dir,"index.html");
open( my $fh,'>',  $index_file) or die "Failed to open $index_f <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	426	585	
==>one(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.P <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	426	585	
==>one(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10284	10382	
==>argument C<-depth>, it returns the depth to which it will
look:

  while (my ($node, $depth) = $ite <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26893	26988	
==>he corresponding argument is
provided (it defaults to empty if the argument is not provided).

S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26893	26988	
==>he corresponding argument is
provided (it defaults to empty if the argument is not provided).

S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11897	12046	
==>ed ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11897	12046	
==>ed ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11897	12046	
==>ed ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6123	6219	
==>=~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6123	6219	
==>=~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6123	6219	
==>=~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10876	11024	
==>> '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10876	11024	
==>> '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10876	11024	
==>> '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $params = [map{Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8519	8647	
==>S]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8519	8647	
==>S]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25183	25277	
==>e than a single tuple.  A zero-attribute Relation::Example with zero tuples or
one tuple respec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	284	428	
==>[dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	278	422	
==>[dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	203	326	
==>ports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	203	326	
==>ports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	203	326	
==>ports[sym]);
      // XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + im <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24365	24452	
==>DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24365	24452	
==>DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Roset <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	654	784	
==>rations) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f, $fprime);

        say "{$coun <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14664	14766	
==>ueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14664	14766	
==>ueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2122	2290	
==>r, to => $tmpdir ) 
#             or error( "Could not copy sources to '$tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10647	10759	
==>$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10647	10759	
==>$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10647	10759	
==>$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13063	13194	
==>. " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13063	13194	
==>. " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13063	13194	
==>. " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $meth <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	609	713	
==>::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validato <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	609	713	
==>::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validato <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14407	14511	
==>"ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14407	14511	
==>"ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12668	12766	
==>f each() now.  The zip function needs
to build tuples of the "across" values.  Also, it maybe proba <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9069	9188	
==>um      { text-align:   right; }

    .details  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16578	16686	
==>] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12999	13107	
==>] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19677	19777	
==>eton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19677	19777	
==>eton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19677	19777	
==>eton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8987	9088	
==>ill munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8987	9088	
==>ill munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	301	414	
==>.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	301	414	
==>.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	301	414	
==>.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Param <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21516	21609	
==>s to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.top <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21516	21609	
==>s to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.top <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10426	10557	
==>t.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2443	2562	
==>t.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2443	2562	
==>t.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1822	1972	
==>atcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1822	1972	
==>atcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1822	1972	
==>atcher, 'BUILD')) {                      
        $method->($Perl6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7941	8105	
==>ift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7941	8105	
==>ift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Arr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7941	8105	
==>ift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6174	6283	
==>$@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6174	6283	
==>$@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6174	6283	
==>$@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1918	2026	
==>length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1918	2026	
==>length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1918	2026	
==>length })')(@self);
}

method JS::Root::end(@self:) {
  JS::inline('(function (arr) { return arr.length - 1 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2581	2697	
==>l) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2581	2697	
==>l) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2581	2697	
==>l) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exceeded" if $level > $MAX_RECU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6235	6425	
==>s.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9712	9902	
==>s.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8786	8976	
==>s.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	223	334	
==>/ XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	223	334	
==>/ XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	223	334	
==>/ XXX: should be caller space, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2616	2726	
==>sm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2616	2726	
==>sm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2616	2726	
==>sm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STe <==
3	/Users/nnunley/pugs/util/package-osx.pl	11787	11886	
==>$dest) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/.pass");
}

&change_files($dest, %cha <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24645	24743	
==>her version 2 of the
License, or (at your option) any later version.  You should have received a
co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24645	24743	
==>her version 2 of the
License, or (at your option) any later version.  You should have received a
co <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	623	784	
==>ntrol_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shift;
    my $pkg  = shift;       return unless defined $pkg;
    my $dir  = $self->dir   or retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23652	23779	
==>my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20073	20200	
==>my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1552	1660	
==>ce $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1552	1660	
==>ce $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	78	172	
==>roles;

has Hash of Str, Perl::Meta::Property %.properties;
has Hash of Str, Perl::Method %.met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5623	5758	
==>thods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34037	34135	
==>s.
When translating a message, a match in found in the most preferred language
is used.  Each Set N <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34037	34135	
==>s.
When translating a message, a match in found in the most preferred language
is used.  Each Set N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2781	2906	
==>celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2781	2906	
==>celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2781	2906	
==>celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1	99	
==>package Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1	99	
==>package Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::Me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1	99	
==>package Perl6::MetaModel::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8740	8925	
==>thod eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8740	8925	
==>thod eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8740	8925	
==>thod eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7143	7291	
==>vate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7143	7291	
==>vate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7143	7291	
==>vate class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_role->add_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6731	6843	
==>,
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWr <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6731	6843	
==>,
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3630	3742	
==>,
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWr <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1485	1617	
==>)) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1452	1584	
==>)) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	138	224	
==>odel with explicit EigenClasses
## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	149	251	
==>has Code @:events;

  submethod BUILD ($self:) {
    die "There can only be one instance of POE::Kernel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	669	768	
==>alled while parsing source code to determine if the
# module/class in a use/no line is part of the M <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	669	768	
==>alled while parsing source code to determine if the
# module/class in a use/no line is part of the M <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1427	1533	
==>ostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnos <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1427	1533	
==>ostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1507	1613	
==>ostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnos <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34270	34372	
==>This method is a generic relational operator that returns the complement of
C<semijoin> with the same a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38820	38922	
==>This method is a generic relational operator that returns the complement of
C<semijoin> with the same a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38299	38401	
==>This method is a generic relational operator that returns the complement of
C<semijoin> with the same a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	796	922	
==>> \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	796	922	
==>> \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	796	922	
==>> \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$PIL::Ru <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28957	29050	
==>t become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33509	33602	
==>t become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32646	32739	
==>t become wrapped, and it supports having new tuple-valued
attributes which wrap zero old attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	93	222	
==>ub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	93	222	
==>ub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	93	222	
==>ub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26595	26732	
==>subclass)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('add_subclass'),
    # method body
        meth <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1738	1870	
==>^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $el <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1738	1870	
==>^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $el <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1768	1884	
==>"Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1768	1884	
==>"Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dump <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2863	2968	
==>e => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2863	2968	
==>e => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2863	2968	
==>e => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4585	4724	
==>tch.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4585	4724	
==>tch.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13873	13994	
==>2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13873	13994	
==>2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13873	13994	
==>2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1184	1374	
==>ng( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_boo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1184	1374	
==>ng( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_boo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1184	1374	
==>ng( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	229	342	
==>isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	229	342	
==>isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	229	342	
==>isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{pFun}->{pLV} and $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	970	1059	
==>cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	970	1059	
==>cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	970	1059	
==>cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	297	441	
==>dir       $Bindir     $Data       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Postrm
            $Alt <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1582	1685	
==>ur class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method comp <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1582	1685	
==>ur class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method comp <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2292	2420	
==>ccent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dier <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2292	2420	
==>ccent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dier <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32844	32966	
==>symbol->new('_make_ascendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26087	26181	
==>tem C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational opera <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30639	30733	
==>tem C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational opera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	585	699	
==>ods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	585	699	
==>ods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	585	699	
==>ods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2270	2377	
==>-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2270	2377	
==>-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2270	2377	
==>-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6896	7004	
==>e $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6896	7004	
==>e $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_f <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6912	7013	
==>err_noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	127	226	
==>Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use bas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	127	226	
==>Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use bas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	125	220	
==>Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9000	9146	
==>s => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9000	9146	
==>s => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9000	9146	
==>s => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4685	4787	
==>e code instead of taking from filter,
    # because we need all the lines including the ones before the <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4685	4787	
==>e code instead of taking from filter,
    # because we need all the lines including the ones before the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1894	2034	
==>|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1894	2034	
==>|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1894	2034	
==>|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1140	1257	
==>* subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    f <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1140	1257	
==>* subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    f <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7146	7243	
==>lings 
# as I think in general it is a bad idea

## ---------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7146	7243	
==>lings 
# as I think in general it is a bad idea

## ---------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6952	7073	
==>n optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6952	7073	
==>n optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6952	7073	
==>n optional param?
    my @js;

    if($self->{tpDefault}) {
      my $undef = PIL::undef_of $name;
      my $other = $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	74	177	
==>ays 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	74	177	
==>ays 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	74	177	
==>ays 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5856	5974	
==>edefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5856	5974	
==>edefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	572	706	
==>->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	572	706	
==>->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	572	706	
==>->all_types) {
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12386	12510	
==>,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12386	12510	
==>,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does( <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3993	4100	
==>*@args) {
        super *@args;
    }
}

class Class::Events::Notification {
    has Class::Events::Subscrip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33990	34118	
==>alue::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33990	34118	
==>alue::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33990	34118	
==>alue::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1384	1516	
==>pen FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16895	16995	
==>ins a single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16895	16995	
==>ins a single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6538	6690	
==>') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6538	6690	
==>') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6538	6690	
==>') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13495	13623	
==>backwards($f);
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3722	3818	
==>osure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3722	3818	
==>osure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	770	889	
==>s = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	770	889	
==>s = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	770	889	
==>s = $unwrapped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5831	5925	
==>lusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5831	5925	
==>lusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5831	5925	
==>lusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custo <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1735	1829	
==>tructor takes as parameters at least C<rate of information> in
items per second and C<burst siz <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1735	1829	
==>tructor takes as parameters at least C<rate of information> in
items per second and C<burst siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1850	1948	
==>$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1850	1948	
==>$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1850	1948	
==>$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	574	701	
==>++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	574	701	
==>++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	574	701	
==>++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5973	6116	
==>eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5973	6116	
==>eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5973	6116	
==>eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1689	1812	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1689	1812	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1689	1812	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7076	7298	
==>$span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7076	7298	
==>$span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17170	17278	
==>($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17170	17278	
==>($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17170	17278	
==>($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35718	35826	
==>eads.  To
make an object, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3405	3493	
==>buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3405	3493	
==>buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	45	153	
==>, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	45	153	
==>, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	45	153	
==>, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	391	492	
==>e constructors implement deep cloning
# * functions that don't support deep cloning emit warnings on c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	391	492	
==>e constructors implement deep cloning
# * functions that don't support deep cloning emit warnings on c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	391	492	
==>e constructors implement deep cloning
# * functions that don't support deep cloning emit warnings on c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2505	2652	
==>{ $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warni <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2505	2652	
==>{ $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warni <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2505	2652	
==>{ $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warni <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2225	2328	
==>s{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((! <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2203	2306	
==>s{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38977	39117	
==>erl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38977	39117	
==>erl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38977	39117	
==>erl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret- <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2815	2934	
==>',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, di <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2815	2934	
==>',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, di <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7804	7895	
==>sts> are provided, only elements whose indices match
C<$index ~~ any(@indextests)> are itera <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1033	1126	
==>ile;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2888	2981	
==>ile;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9062	9169	
==>is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

meth <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9062	9169	
==>is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

meth <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5459	5560	
==>y $op = Op->new($name,$prec);
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name);
  pus <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9800	9924	
==>lequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    }
}

sub _create_runpe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12749	12841	
==>eturns negative infinite if the recurrence is infinite.
Returns positive infinite if the recu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12749	12841	
==>eturns negative infinite if the recurrence is infinite.
Returns positive infinite if the recu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15652	15762	
==>ng class level.
        #my @ids = <year month day hour min sec picosec wday yday tzname tz is_dst>; # XXX: thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21684	21795	
==>uples may be individually addressed only by their values; neither
may be addressed by any ordinal value.

Note t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26236	26347	
==>uples may be individually addressed only by their values; neither
may be addressed by any ordinal value.

Note t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24896	25007	
==>uples may be individually addressed only by their values; neither
may be addressed by any ordinal value.

Note t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16738	16894	
==>ata *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave somet <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21836	21992	
==>ata *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave somet <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9213	9317	
==>ink management
    LINKING: {   
        my $alt = $self->remove_registered_alternative( package => $inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	256	372	
==>t main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	256	372	
==>t main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	256	372	
==>t main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13851	13958	
==>ror(mob, pos, "Unescaped ']' in charlist")
    goto end
  err_hyphen:
    parse_error(mob, pos, "Unescaped ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9733	9887	
==>"($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9733	9887	
==>"($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9733	9887	
==>"($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            ' <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1468	1631	
==>r.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge";
my $parrot_path  = "../../../parrot-trunk";
my $bash         = "/bin/bash";
my $inputrc <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	295	411	
==>s        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	295	411	
==>s        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6529	6666	
==>> -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6529	6666	
==>> -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2901	3004	
==>&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2901	3004	
==>&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2901	3004	
==>&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\&\:])(.+)/ or die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1726	1882	
==>rn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1726	1882	
==>rn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1726	1882	
==>rn "Junction.int() not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12757	12868	
==>}
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12757	12868	
==>}
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12757	12868	
==>}
    return 0; 
}));

$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1162	1253	
==>IL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1162	1253	
==>IL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1162	1253	
==>IL1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7927	8116	
==>rguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7927	8116	
==>rguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7927	8116	
==>rguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2958	3071	
==>lete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2958	3071	
==>lete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2958	3071	
==>lete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12175	12296	
==>unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12175	12296	
==>unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12175	12296	
==>unless defined $param{hashref};
    bless { %param }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1850	1957	
==>L2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1850	1957	
==>L2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1850	1957	
==>L2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_chec <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3432	3527	
==>does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3432	3527	
==>does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2668	2912	
==>sub { my $e = shift; ' . (join '; ' => reverse @body) . '; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            elsif ($in_block) {
                push @buffer = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10388	10485	
==>ts.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to fo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10446	10543	
==>ts.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5536	5644	
==>eme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5536	5644	
==>eme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5536	5644	
==>eme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript: <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1428	1545	
==>, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_p <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1428	1545	
==>, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_p <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2882	2998	
==>, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7442	7550	
==>f $re eq '\d';
    return $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21167	21264	
==>those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25719	25816	
==>those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	8	111	
==>relude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	8	111	
==>relude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	8	111	
==>relude::JS {}
# XXX pugs can't emit PIL for module Foo {...}, where ... is non-empty.

# JS::Root is the <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2094	2195	
==>, density => $.density );
}

method stringify () returns String {
    return '' unless defined $.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2094	2195	
==>, density => $.density );
}

method stringify () returns String {
    return '' unless defined $.start <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	411	512	
==>value => $class;
}

sub to_native { shift }

# conversion to other native types
sub to_num { num->new( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4243	4340	
==>ock size and so on; see the cipher module's documentation for 
details.  The C<mode> value indicat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4243	4340	
==>ock size and so on; see the cipher module's documentation for 
details.  The C<mode> value indicat <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	678	861	
==>tart_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	678	861	
==>tart_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4267	4374	
==>ame), "\\N{$name}");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	100	230	
==>ss_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	100	230	
==>ss_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	100	230	
==>ss_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2712	2815	
==>return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2712	2815	
==>return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2792	2895	
==>return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	845	953	
==>Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	845	953	
==>Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	925	1033	
==>Test::Builder::Output.new() );

my @expect_out;
my @expect_diag;

# populate the Test::Builder singleton with <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6068	6164	
==>pe', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6068	6164	
==>pe', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2967	3063	
==>pe', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11678	11832	
==>\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11678	11832	
==>\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11678	11832	
==>\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $met <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	56	175	
==>Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    prot <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	61	180	
==>Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    prot <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	61	180	
==>Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    prot <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	515	655	
==>ermTable 
    operatorTable 
    whitespaceTermTable 
    whitespaceOperatorTable/)
}

sub new {
  my $class = shift;
  my $object = bless {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5043	5266	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5043	5266	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5043	5266	
==>thod(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6832	6960	
==>from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6832	6960	
==>from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6832	6960	
==>from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elem <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10077	10213	
==>'^' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      return $S->$n;
    }

    return $S->object( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7698	7800	
==>y_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.pu <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7698	7800	
==>y_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.pu <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2269	2417	
==>)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2269	2417	
==>)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with U <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5765	5893	
==>t * 3 - 1));
    for my $child (1 .. $child_count) {
        my $this_size = $chunk_size * 3;

        # Heuristic: Most of the f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5954	6070	
==>d_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5954	6070	
==>d_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5954	6070	
==>d_method($method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($ro <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1945	2066	
==>(
        set( $self.all_superclasses, $self ).members.map:{ .get_assocations }
       );
}

# sigh ... how you get used t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27153	27267	
==>ndlers
    $self->SUPER::init();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  }

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3780	3882	
==>$a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3780	3882	
==>$a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3780	3882	
==>$a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2607	2712	
==>h\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2607	2712	
==>h\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2687	2792	
==>h\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n"
    ) unless $diag_matches;

    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4409	4505	
==>>superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6311	6407	
==>>superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32079	32174	
==>ake_dispatcher_iterator(@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23673	23773	
==>rue or
False, but once it has a value of False, it can not be further changed;
this class defaults it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28225	28325	
==>rue or
False, but once it has a value of False, it can not be further changed;
this class defaults it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27038	27138	
==>rue or
False, but once it has a value of False, it can not be further changed;
this class defaults it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1263	1356	
==>{p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1263	1356	
==>{p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1263	1356	
==>{p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	701	836	
==>xed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	701	836	
==>xed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	701	836	
==>xed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bool() ) },
            'perl' => s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	878	986	
==>ef eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	878	986	
==>ef eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	878	986	
==>ef eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5596	5703	
==>) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5596	5703	
==>) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5596	5703	
==>) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for @array -> $elem <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4065	4179	
==>SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD";
Smoker info not found. Please create a fil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6813	6925	
==>ected/ if $flip;
    unless ($pass) {
	unshift(@mess, "#      got '$got'\n",
		"# expected /$expected/\n");
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12346	12504	
==>= $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12346	12504	
==>= $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5220	5325	
==>tance method fails';

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 4, '... $iFoo is the fourth i <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	855	950	
==>y ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privli <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	855	950	
==>y ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13268	13371	
==>dy.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13268	13371	
==>dy.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13268	13371	
==>dy.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
     if($__f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6539	6660	
==>PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6539	6660	
==>PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6539	6660	
==>PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7117	7260	
==>nite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7117	7260	
==>nite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7117	7260	
==>nite hash slice not supported\n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implement <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9713	9816	
==>e up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9713	9816	
==>e up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15408	15510	
==>TI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15408	15510	
==>TI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15408	15510	
==>TI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23996	24100	
==>dy attributes are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28548	28652	
==>dy attributes are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27379	27483	
==>dy attributes are set respectively from the optional named parameters
C<$heading> and C<$body>.  If C<$he <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4474	4607	
==>$_ for @smokes;

  foreach my $runcore (keys %runcores) {
    foreach my $cat   (keys %{ $runcores{$runcore} }) {
      $runcores{$run <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1481	1589	
==>my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1481	1589	
==>my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	451	559	
==>DOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	451	559	
==>DOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	451	559	
==>DOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1352	1480	
==>() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1352	1480	
==>() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1352	1480	
==>() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 20 <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1551	1663	
==>next element in the path
        $current_path = @path.shift;
        # now check all the current tree's children <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1551	1663	
==>next element in the path
        $current_path = @path.shift;
        # now check all the current tree's children <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38920	39087	
==>%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5069	5180	
==>cted to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we ma <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5069	5180	
==>cted to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6188	6285	
==>r initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entry <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6188	6285	
==>r initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entry <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6188	6285	
==>r initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entry <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1809	1926	
==>6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "initrd.img";
my $initrd_mnt   = "/m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	494	604	
==>ite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	494	604	
==>ite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6684	6808	
==>d $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6684	6808	
==>d $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6684	6808	
==>d $version) {
        ($version =~ /^\d+\.\d+\.\d+$/)
            || confess "The version ($version) is not in the correct fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9097	9205	
==>my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9097	9205	
==>my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9097	9205	
==>my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	598	697	
==>ethod ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	598	697	
==>ethod ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence se <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7248	7386	
==>et supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && substr($k,-1,1) eq "x"
               && internals_m:per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19331	19433	
==>LOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19331	19433	
==>LOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4099	4220	
==>s, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4099	4220	
==>s, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1140	1257	
==>s and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4618	4735	
==>s and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3530	3647	
==>s and the value corresponding
        # to that is the value for that attribute for that tuple.
        # Note that it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	288	404	
==>== 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	288	404	
==>== 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	288	404	
==>== 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4191	4326	
==>l variable
                (\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4203	4338	
==>l variable
                (\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1504	1694	
==>w_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[-1].push(token)
            end <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2716	2820	
==>ing { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _n <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2716	2820	
==>ing { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5713	5833	
==>$from ) ) {
        my $base = quotemeta dirname( $from );
        
        for my $dir ( File::Find::Rule->directory->in <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34848	34946	
==>hat a Translator object does not permit changes to its attributes;
they must all be set when the ob <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34848	34946	
==>hat a Translator object does not permit changes to its attributes;
they must all be set when the ob <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	878	988	
==>w(0) 
        unless blessed($right) && $right->isa('symbol');
    return bit->new(1) 
        if $left->name-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9556	9695	
==>r) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9556	9695	
==>r) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9556	9695	
==>r) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape special chars <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	124	241	
==>Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	124	241	
==>Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	124	241	
==>Constant(args[1].FETCH().pil2js_arity));
  })')($self);
}

method name(Code $self:) {
  JS::inline('new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2545	2642	
==>ead2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BU <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2545	2642	
==>ead2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BU <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19255	19345	
==>match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captur <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	747	854	
==>o "ok, this looks doable".  So yes, the code is
an utter mess.

The project objectives are nominally:
  1- P <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7001	7107	
==>h($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_vol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7001	7107	
==>h($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_vol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2662	2782	
==>ch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2662	2782	
==>ch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2662	2782	
==>ch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8050	8165	
==>here was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$ne <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8050	8165	
==>here was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$ne <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13060	13159	
==>t be non-trivial, as only some forms of redefinition
  make its magic not stick.

  The implementati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2363	2503	
==>, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2363	2503	
==>, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2363	2503	
==>, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26628	26860	
==>> $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26628	26860	
==>> $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26628	26860	
==>> $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6434	6530	
==>eturns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6434	6530	
==>eturns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8631	8727	
==>eturns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	134	233	
==>DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	134	233	
==>DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	134	233	
==>DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23186	23282	
==>B Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23186	23282	
==>B Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23186	23282	
==>B Pugs::Internals::localtime ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs::Internals::hSeek ($xx0,$xx1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2682	2813	
==>name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2682	2813	
==>name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2682	2813	
==>name, $type, $body) = @$_;

    my $undef  = $type eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8985	9093	
==>copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8985	9093	
==>copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8985	9093	
==>copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of t <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9588	9708	
==>s
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to b <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9588	9708	
==>s
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to b <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	432	520	
==>include "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_inte <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4994	5114	
==>ledtests});

    return $ok;
}

=begin _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1564	1663	
==>urposes.  
Although the interface is said to be procedural, it is invoked via two class 
methods.

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1564	1663	
==>urposes.  
Although the interface is said to be procedural, it is invoked via two class 
methods.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	343	473	
==>}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	343	473	
==>}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	343	473	
==>}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7579	7699	
==>e => '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseudo-code for usage inside a grammar:

    sub new_p <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2646	2749	
==>self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.p <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2646	2749	
==>self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9534	9621	
==>Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9534	9621	
==>Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9534	9621	
==>Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) {help_require_use( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	874	1007	
==>dy->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	874	1007	
==>dy->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	874	1007	
==>dy->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	134	332	
==>y, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	134	332	
==>y, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	134	332	
==>y, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1663	1785	
==>ct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

1;

# Lo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4037	4133	
==>niverse, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4037	4133	
==>niverse, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13563	13769	
==>::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13842	14048	
==>::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31220	31327	
==>nd C<(??{ ... })> assertions:

  package Regexp::NoCode;
  use base 'Regexp::Parser';

  sub init {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7212	7330	
==>lete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7212	7330	
==>lete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %chan <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	556	662	
==>ontent'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1]. <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	556	662	
==>ontent'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1]. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7055	7173	
==>uff on the package
        # obj? otherwise all data we index after must be a toplevel element of
        # the meta fi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	726	836	
==>ig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	726	836	
==>ig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	3	99	
==>e Net::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIV <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	3	99	
==>e Net::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIV <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	909	1021	
==>n of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	909	1021	
==>n of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5125	5261	
==>term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    if $I2 < 0 got <==
3	/Users/nnunley/pugs/util/func_refact.pl	2694	2792	
==>ates
    print_cand($_, $cands{$_}) for
        sort {score(@{$cands{$b}}) <=> score(@{$cands{$a}}) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1085	1174	
==>l_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $desc <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1085	1174	
==>l_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1507	1614	
==>t as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1507	1614	
==>t as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1507	1614	
==>t as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should create a hash <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6022	6213	
==>satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our lis <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6486	6677	
==>satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	720	826	
==>ispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	720	826	
==>ispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	720	826	
==>ispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        for $c.get_attribute_list() -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1664	1767	
==>(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1664	1767	
==>(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1664	1767	
==>(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5927	6044	
==>:= $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5927	6044	
==>:= $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5927	6044	
==>:= $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	368	478	
==>lf->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	269	379	
==>lf->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4695	4806	
==>\"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4695	4806	
==>\"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4695	4806	
==>\"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9685	9825	
==>e @{ $self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($se <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5579	5687	
==>if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5579	5687	
==>if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24636	24734	
==>legal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21057	21155	
==>legal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @ <==
3	/Users/nnunley/pugs/util/addauthors.pl	375	470	
==>();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1203	1312	
==>>{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Car <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1203	1312	
==>>{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Car <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1412	1521	
==>>{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Car <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4127	4245	
==>'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4127	4245	
==>'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	977	1095	
==>'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	982	1096	
==>=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1646	1760	
==>=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    ret <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21592	21687	
==>sigil;
my %sigil_from_space;
BEGIN{
%space_from_sigil = ( '$' => 'scalar', '@' => 'array', '%' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	385	490	
==>through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	385	490	
==>through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	385	490	
==>through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subclass of Module is a su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9555	9676	
==>$start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9555	9676	
==>$start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9555	9676	
==>$start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5145	5254	
==>@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5145	5254	
==>@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5145	5254	
==>@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16582	16683	
==>=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16582	16683	
==>=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16582	16683	
==>=head1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	394	529	
==>urn 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	394	529	
==>urn 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36407	36506	
==>iminating any result tuples that
duplicate others.  The sequence in which any two source relations a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40956	41055	
==>iminating any result tuples that
duplicate others.  The sequence in which any two source relations a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40570	40669	
==>iminating any result tuples that
duplicate others.  The sequence in which any two source relations a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5308	5411	
==>::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5308	5411	
==>::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5308	5411	
==>::SELF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1810	1928	
==>ted from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1810	1928	
==>ted from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1810	1928	
==>ted from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	911	1006	
==>urrently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaro <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	911	1006	
==>urrently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaro <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11145	11245	
==>ec; it exists as a container
in which Node objects live.  The Document class is pure and deterministi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11145	11245	
==>ec; it exists as a container
in which Node objects live.  The Document class is pure and deterministi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3011	3111	
==>_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... got the right y for p1');

cmp_ok($p-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	744	864	
==>q $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7555	7660	
==>_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7555	7660	
==>_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($chi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	558	681	
==>inning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_strin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	558	681	
==>inning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_strin <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1697	1787	
==>erm:", "nows", &parse_enumclass);
    $optable->addToken("term:<-[", "term:", "nows", &pars <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9569	9669	
==>**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NODE VStr ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38376	38470	
==>of $text modified
by interpolating the %msg_vars into it, where each variable value is
substitu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38376	38470	
==>of $text modified
by interpolating the %msg_vars into it, where each variable value is
substitu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4760	4892	
==>if ( $initchar eq 'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( exists $escape{$initchar} )
      {
        if ( not <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1980	2069	
==>Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of uno <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1980	2069	
==>Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of uno <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6210	6320	
==>S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    inc litlen
    goto term_literal_loop
  term_literal_e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31888	31981	
==>ric binary relational operator that takes a single
Relation in its C<$other> argument, where < <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36438	36531	
==>ric binary relational operator that takes a single
Relation in its C<$other> argument, where < <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1580	1686	
==>@params = $self->params;

    # the body is a code ref
    my $v = $prim->body->($self, map { $self->shift_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5452	5557	
==>) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5452	5557	
==>) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4533	4633	
==>bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Ti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4533	4633	
==>bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Ti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4533	4633	
==>bool::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Ti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31459	31568	
==>0, it is behind; otherwise, it is ahead.

=item down

Whether this object creates a deeper scope (like an OPEN <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1358	1458	
==>lf-referential things

sub alternation {
    # alternation is first match (not longest).  though we n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1358	1458	
==>lf-referential things

sub alternation {
    # alternation is first match (not longest).  though we n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	440	572	
==>r { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	440	572	
==>r { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	440	572	
==>r { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5866	5967	
==>her" things.

Rules operate on strings (normally) and return Match objects.



### examples will be in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5663	5761	
==>her" things.
Rules operate on strings (normally) and return Match objects.

### examples will be in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	103	233	
==>description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	103	233	
==>description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	103	233	
==>description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ], <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1656	1766	
==>t "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	205	301	
==>rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	205	301	
==>rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cip <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2428	2522	
==>urns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2428	2522	
==>urns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2174	2271	
==>:make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2174	2271	
==>:make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2174	2271	
==>:make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2575	2676	
==>ag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2575	2676	
==>ag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2655	2756	
==>ag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nreceived: '$received_diag'\n <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4307	4461	
==>ifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            e <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4307	4461	
==>ifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5462	5565	
==>S->force_object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add_handler('\V' = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7479	7632	
==>e;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7479	7632	
==>e;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2620	2748	
==>{
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2620	2748	
==>{
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2620	2748	
==>{
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $cla <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	223	326	
==>returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is expor <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	223	326	
==>returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4636	4765	
==>sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4636	4765	
==>sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4636	4765	
==>sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18202	18294	
==>ction describes the rather complex algorithm that
Module::Compile uses.

First, the source mo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18202	18294	
==>ction describes the rather complex algorithm that
Module::Compile uses.

First, the source mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3450	3572	
==>ng.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3450	3572	
==>ng.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3450	3572	
==>ng.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17227	17332	
==>troy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17227	17332	
==>troy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17227	17332	
==>troy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1006	1116	
==>opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1006	1116	
==>opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1006	1116	
==>opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2121	2296	
==>ain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2121	2296	
==>ain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7848	7957	
==>capture       - capture then entire match. For example:

  

  # returns a Match object that has the 'capture' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7582	7689	
==>capture       - capture then entire match. For example:
  
  # returns a Match object that has the 'capture' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9913	10040	
==>ue from $iFoo singleton method');

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24849	24945	
==>his Relation's body.

=item C<size () returns Int>

This method returns a count of this Relation' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29401	29497	
==>his Relation's body.

=item C<size () returns Int>

This method returns a count of this Relation' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9479	9597	
==>elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9479	9597	
==>elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9479	9597	
==>elems->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4136	4302	
==>ew( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4136	4302	
==>ew( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4136	4302	
==>ew( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9761	9894	
==>, \&{'grammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8531	8654	
==>out path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	473	571	
==>are a Method on a Class, it is bound to that
Class' C<Type> object immediately; however, in the cas <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2092	2188	
==>shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blondie::App- <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1374	1468	
==>ters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-885 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1374	1468	
==>ters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-885 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1186	1290	
==>le::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1186	1290	
==>le::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13582	13731	
==>list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13582	13731	
==>list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13582	13731	
==>list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5122	5213	
==>f C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5122	5213	
==>f C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6646	6737	
==>f C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns Bi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1457	1595	
==>ub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1397	1530	
==>ub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3303	3412	
==>k) {
        $tok = pop(@$X::cap);
        my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35917	36071	
==>ail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative off <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35917	36071	
==>ail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative off <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35917	36071	
==>ail );
            ( $len_body, @body ) = $tail->_shift_n( $length );
            @tail = $tail->items;
        }
        else {
            # negative off <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1350	1445	
==>e
lookup as well as method lookup, as attribute fetching is actually
just a shorthand for callin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22195	22288	
==>, password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22195	22288	
==>, password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2056	2230	
==>natives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dirs
$config{' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11763	11855	
==>s.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=he <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11763	11855	
==>s.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4166	4319	
==>.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4166	4319	
==>.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4166	4319	
==>.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2751	2875	
==>ser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12838	12936	
==>r of fields removed is returned.

Note that if you pass in multiple field names then it is generall <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12838	12936	
==>r of fields removed is returned.

Note that if you pass in multiple field names then it is generall <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13111	13227	
==>.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16588	16704	
==>.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15950	16066	
==>.
        return $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6900	6993	
==>:opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6900	6993	
==>:opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6900	6993	
==>:opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1122	1227	
==>^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1122	1227	
==>^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} | <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1122	1227	
==>^(\d+)(?:th|st|nd|rd)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4110	4234	
==>pt contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4110	4234	
==>pt contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4110	4234	
==>pt contains HTML escape sequenze ']]>', aborting.\n"
          if $contents =~ /\]\]>/;
        $html .= <<EOF;
    <script t <==
3	/Users/nnunley/pugs/util/config_h.pl	832	950	
==>ef PUGS_DATE
#endif
#define PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you have cywin, you're still using ghc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	65	154	
==>this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3841	3949	
==>d get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3841	3949	
==>d get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3841	3949	
==>d get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10235	10349	
==>n @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.pre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10235	10349	
==>n @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4199	4301	
==>For writing your own backslash and assertion rules or macros, you may
    use the following syntactic c <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1560	1764	
==>ment>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<sta <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1560	1764	
==>ment>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	310	452	
==>_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1346	1466	
==>_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13639	13758	
==>anslator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13639	13758	
==>anslator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4192	4301	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4192	4301	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4192	4301	
==>S::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17246	17394	
==>y $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17246	17394	
==>y $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17246	17394	
==>y $tmp = $self->unboxed;
                # warn "AUTOLOAD ",ref($tmp), ' ', $method, " @param == " . $tmp->$method( @param );

                @param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9072	9203	
==>} 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9072	9203	
==>} 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9072	9203	
==>} 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # . <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31366	31464	
==>same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31366	31464	
==>same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	633	736	
==>}
    }
}


# copied from S29draft.pod 8651.
multi  List::reduce (Code $expression ; *@values --> Scalar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1547	1642	
==>ing spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebrea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1547	1642	
==>ing spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebrea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2523	2624	
==>genClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2523	2624	
==>genClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2523	2624	
==>genClass);

# and create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'M <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	0	99	
==>use strict;

use JIB::Config;
use Path::Class ();
use Cwd;
use Config;

use vars qw[$INSTALLATION_DI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2711	2809	
==>t into 'name' and 'value' pairs.  This
method should be called before any other methods, as it init <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2711	2809	
==>t into 'name' and 'value' pairs.  This
method should be called before any other methods, as it init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21695	21894	
==>rl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21695	21894	
==>rl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21695	21894	
==>rl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALA <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14434	14528	
==>pport any analogy of CDATA sections, though).
The Node class is pure and deterministic, such th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14434	14528	
==>pport any analogy of CDATA sections, though).
The Node class is pure and deterministic, such th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34710	34803	
==>tion of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7509	7653	
==>i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7509	7653	
==>i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7509	7653	
==>i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34313	34413	
==>r that returns the complement of
C<semijoin> with the same argument.  This method has aliases named
C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38863	38963	
==>r that returns the complement of
C<semijoin> with the same argument.  This method has aliases named
C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38342	38442	
==>r that returns the complement of
C<semijoin> with the same argument.  This method has aliases named
C <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10640	10756	
==>ogin_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Pro <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10640	10756	
==>ogin_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9912	10019	
==>caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9912	10019	
==>caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9912	10019	
==>caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17218	17315	
==>1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17218	17315	
==>1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17218	17315	
==>1) { p6_from_n(p6_to_n($xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2401	2517	
==>xt(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2401	2517	
==>xt(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2401	2517	
==>xt(Scalar)
# TODO - slurpy Code *$block
# TODO - caller context - want()
# TODO - test the integration with Value and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	451	595	
==>r is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	451	595	
==>r is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	451	595	
==>r is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5059	5170	
==>rray -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5059	5170	
==>rray -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5059	5170	
==>rray -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23311	23411	
==>B substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23311	23411	
==>B substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23311	23411	
==>B substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	60	168	
==>objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	60	168	
==>objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	60	168	
==>objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1304	1414	
==>d_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1304	1414	
==>d_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1304	1414	
==>d_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attribute($attr_na <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	13	129	
==>le File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is exp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	13	129	
==>le File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is exp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27395	27504	
==>ce in $code.  Example:

  $parser->add_flag("u" => sub { 0x10 });

This makes 'u' a valid flag for your regex, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3565	3684	
==>FETCH('::Test')->FETCH('::Base') ],
    attributes => [ '$.reason' ],
    methods => {
        'reason' => sub { _('$.re <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2286	2390	
==>l pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.R <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2286	2390	
==>l pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5808	5941	
==>r_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::fi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5808	5941	
==>r_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::fi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15743	15870	
==>urn (mob)
.end
    
.sub "parse_error"
    .param pmc mob
    .param int pos
    .param string message
    $P0 = getattribute mo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5595	5693	
==>? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infini <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5595	5693	
==>? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infini <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2166	2271	
==>"&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2166	2271	
==>"&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2166	2271	
==>"&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2803	2906	
==>all to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2803	2906	
==>all to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2803	2906	
==>all to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if defi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23363	23494	
==>} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, q <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11212	11343	
==>} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, q <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19784	19915	
==>} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, q <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1811	1929	
==>$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1811	1929	
==>$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7305	7398	
==>rams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code_helper {
    my($name,$pType, $pParams <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1053	1270	
==>>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = ~@_.shift;
                @_.shift e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	946	1053	
==>c($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	946	1053	
==>c($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	946	1053	
==>c($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	407	538	
==>=> undef } 
        qw/
        num bit str symbol nil type  
        list hash reference block 
        closure closure::env closur <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4005	4113	
==>eturns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4005	4113	
==>eturns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4554	4650	
==>cro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4554	4650	
==>cro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4554	4650	
==>cro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7611	7717	
==>r(0, "Missing right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	52	145	
==>PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	52	145	
==>PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	266	365	
==>^--[-\w]*prefix=$/, @ARGV;
my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12955	13101	
==>l {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shi <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	608	713	
==>s: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( da <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	608	713	
==>s: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( da <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	837	937	
==>}

=head1 NAME

Newton - performs one dimensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11341	11450	
==>}

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14818	14927	
==>}

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14126	14235	
==>}

    # Now, the standard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6728	6851	
==>o"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6728	6851	
==>o"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3805	3900	
==>,("pugs_revision", Pugs.Version.revnum)
    ]

getConfig :: String -> String
getConfig key = Map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1336	1454	
==>build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1336	1454	
==>build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1336	1454	
==>build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here .. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2297	2515	
==>t;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2297	2515	
==>t;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (w <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6178	6286	
==>>mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater_for_re('\Z') if $re eq '\Z';
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25945	26045	
==>icate each other,
or duplicate attribute names that aren't being renamed.  This method
supports renam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30497	30597	
==>icate each other,
or duplicate attribute names that aren't being renamed.  This method
supports renam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29472	29572	
==>icate each other,
or duplicate attribute names that aren't being renamed.  This method
supports renam <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14273	14397	
==>?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if any)
  number        test number (if any)

  ty <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4338	4436	
==>xport {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4338	4436	
==>xport {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21965	22060	
==>hey should be consulted.  When
Locale::KeyedText is told to fetch the user message for a certain <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21965	22060	
==>hey should be consulted.  When
Locale::KeyedText is told to fetch the user message for a certain <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3160	3291	
==>->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1}, "list-op" );
}

sub _emit_parameter_binding {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6904	7002	
==>1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6904	7002	
==>1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7980	8092	
==>ix$v"
		    if $v =~ /^(PNil|PNoop|TCxtVoid|VUndef|CxtVoid)$/;
	    }
	}
    } else {die "bug"}
    bless $o,$ref <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10176	10273	
==>ameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10176	10273	
==>ameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28667	28763	
==>es having a specific simple API that will serve their role.

For example, inside the text Templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28667	28763	
==>es having a specific simple API that will serve their role.

For example, inside the text Templat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3512	3609	
==>ncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3512	3609	
==>ncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3512	3609	
==>ncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_subpads.p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	532	627	
==>r::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	532	627	
==>r::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19699	19820	
==>) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19699	19820	
==>) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19699	19820	
==>) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2176	2291	
==>ol:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2176	2291	
==>ol:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14168	14307	
==>ts ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14168	14307	
==>ts ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14168	14307	
==>ts ) { $any++ if $_->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38303	38411	
==>ummarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42852	42960	
==>ummarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42502	42610	
==>ummarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C<divide>

I<TODO.>

=item C<transitive_closure>

I <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	634	731	
==>nging the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	634	731	
==>nging the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	872	989	
==>t Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	872	989	
==>t Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request T <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14025	14123	
==>e 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <AssignmentExpression>
}
rule LeftHa <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3838	3941	
==>elf->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	167	269	
==>e 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'grammar1::';

{
  package grammar1;

  use D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5198	5300	
==>elf->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	428	565	
==>H() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	428	565	
==>H() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	428	565	
==>H() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.refere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1677	1802	
==>{
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1677	1802	
==>{
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1677	1802	
==>{
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23804	23963	
==>rn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23804	23963	
==>rn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23804	23963	
==>rn $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num' ) {
                    return Int->new( '$.unboxed <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23278	23401	
==>$self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19699	19822	
==>$self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = " <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4184	4297	
==>kage Hacks;

  #XXX - surely this is part of the Regexp::Parser api... somewhere?
  sub flag_val_m { 0x1 }
  sub f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	815	928	
==>{
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	815	928	
==>{
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	815	928	
==>{
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	543	671	
==>_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "infix: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15662	15774	
==>enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15662	15774	
==>enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5403	5520	
==>>{archive} =
            $self->pool_rel->file( file($pkg->file)->basename )->stringify();
        
        # append i <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4359	4465	
==>rl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimizati <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4359	4465	
==>rl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimizati <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	661	784	
==>g that is being matched against).
    $.match     - State that is scope-local.  A new match object gets
                  al <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	661	784	
==>g that is being matched against).
    $.match     - State that is scope-local.  A new match object gets
                  al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37588	37704	
==>numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37588	37704	
==>numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37588	37704	
==>numify( $pos );
    my $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	650	859	
==>_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	650	859	
==>_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	650	859	
==>_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7506	7607	
==>xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7506	7607	
==>xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7506	7607	
==>xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1172	1269	
==>_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %* <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1172	1269	
==>_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1437	1538	
==>PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1437	1538	
==>PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1437	1538	
==>PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	403	532	
==>!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	403	532	
==>!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	403	532	
==>!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5258	5384	
==>}              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5258	5384	
==>}              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5258	5384	
==>}              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

my <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6857	6988	
==>ir::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::split   safe   (Str)\
\ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16321	16412	
==>ein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= CO <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16379	16470	
==>ein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= CO <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41156	41246	
==>::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8990	9108	
==>piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $leng <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8990	9108	
==>piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $leng <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14866	14974	
==>0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    dec pos
    $I1 = $I0 - pos
    cname = substr targ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6050	6178	
==>{
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6050	6178	
==>{
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6050	6178	
==>{
        $n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14327	14436	
==>en values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.000 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14327	14436	
==>en values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.000 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26722	26816	
==>de; it uses %Regexp::Parser::loaded to keep
track of which object classes have been loaded alre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5938	6038	
==>\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5938	6038	
==>\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5938	6038	
==>\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3886	4076	
==>dcoded .svn exclusion! we should fix this proper!
        system( qq[tar --exclude $jibdir --exclude .svn -czf $data $path] )
                                                        and error <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	571	681	
==>_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	571	681	
==>_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pm <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5396	5492	
==>Returns boolean value of success or failure;

=item err_str

The C<err_str> method returns the la <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5396	5492	
==>Returns boolean value of success or failure;

=item err_str

The C<err_str> method returns the la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38487	38617	
==>se @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38487	38617	
==>se @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38487	38617	
==>se @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1571	1664	
==>s($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1571	1664	
==>s($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1571	1664	
==>s($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BUILD')) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1715	1826	
==>perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1715	1826	
==>perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1715	1826	
==>perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $ct->eval($code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1254	1349	
==>timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1254	1349	
==>timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1254	1349	
==>timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $mai <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5705	5837	
==>(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$template->param(fil <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5774	5859	
==><http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 i <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5774	5859	
==><http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1767	1882	
==>t, @array[$k] ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3463	3571	
==>that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3463	3571	
==>that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rose <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14928	15042	
==>) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$dest\"",
    ensure => sub { -r $dest a <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3127	3232	
==>e to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(ra <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3127	3232	
==>e to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	497	621	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	497	621	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	497	621	
==>ut: reference to class and a slurpy attr hash
    sub ::create_opaque_instance {
        my ($class, %attrs) = @_;
        bl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20756	20855	
==>elation indicates a failure is to throw an exception;
most often this is due to invalid input.  If a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25308	25407	
==>elation indicates a failure is to throw an exception;
most often this is due to invalid input.  If a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4160	4259	
==>oes
addition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6796	6893	
==>turn "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6796	6893	
==>turn "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n" <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	624	716	
==>("pugs naive_bayesian.p6 add oranges oranges");
    system("pugs naive_bayesian.p6 add grapes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10877	10993	
==>asses) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10877	10993	
==>asses) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10877	10993	
==>asses) {
            my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6638	6773	
==>ame of the test which failed
    estat       Script's exit value
    wstat       Script's wait status
    max         Number of individu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2229	2341	
==>>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2229	2341	
==>>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1557	1674	
==>"new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1557	1674	
==>"new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1557	1674	
==>"new PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11868	12002	
==>t."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15345	15479	
==>t."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14680	14814	
==>t."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @others );
}

&cartesian_pro <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2223	2382	
==>ut.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    ) <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2223	2382	
==>ut.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    ) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5899	6069	
==>safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   List      pre     zip     safe   (List)\
\\n   List      pre     keys    safe   (rw!Hash)\
\\n   L <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13008	13105	
==>t2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13008	13105	
==>t2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3929	4050	
==>mts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3929	4050	
==>mts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	779	900	
==>mts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1538	1639	
==>($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1678	1779	
==>($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5668	5768	
==>help             => \&usage,
) or usage();
check_for_evil_chars($initrd_img, $initrd_gz, $initrd_mnt, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20112	20204	
==>x0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { sm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20112	20204	
==>x0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { sm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20112	20204	
==>x0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { sm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	828	947	
==>, $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	828	947	
==>, $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	828	947	
==>, $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3122	3305	
==>=> \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + $lconst),
                named => {},
                match => [],
            }, 'Pugs::Runt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22647	22736	
==>ace::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Co <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22647	22736	
==>ace::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Co <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1079	1195	
==>m( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[tar -f $Control -C $path/$Pms <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3111	3214	
==>,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) } <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3111	3214	
==>,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4114	4210	
==>($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4114	4210	
==>($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4114	4210	
==>($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4092	4193	
==>me
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4092	4193	
==>me
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4092	4193	
==>me
    #   > of the slurpy
    #   hash.  You give a name to it so that you can refer to <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6142	6330	
==>:kv      safe   (rw!Hash)\
\\n   List      pre     pairs   safe   (rw!Hash)\
\\n   List      pre     keys    safe   (rw!Array)\
\\n   List      pre     values  safe   (rw!Array)\
\\n   List <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8721	8825	
==>)

(I mean, seriously, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8432	8532	
==>)
(I mean, seriously, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24118	24263	
==>ns
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24118	24263	
==>ns
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24118	24263	
==>ns
                    return Bit->new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5863	5986	
==>foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5863	5986	
==>foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5863	5986	
==>foreach my $seq (@nonemptyseqs) {
            shift @{$seq} if $seq->[0] eq $cand;
        }
    }
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2040	2156	
==>ass.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2040	2156	
==>ass.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5872	5986	
==>ed_type);

		return $node if $self->types_eq($de_facto_type, $expected_type);

		warn "types do not eq";

		if ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2211	2349	
==>ing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2211	2349	
==>ing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2211	2349	
==>ing [new_value] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18324	18437	
==>ok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_nam <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1230	1321	
==>::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1230	1321	
==>::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2052	2159	
==>ECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2052	2159	
==>ECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2052	2159	
==>ECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18216	18310	
==>infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18216	18310	
==>infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18216	18310	
==>infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1272	1380	
==>ow
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expec <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1330	1438	
==>ow
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1258	1375	
==>ethods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not supported y <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1258	1375	
==>ethods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not supported y <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1258	1375	
==>ethods

# TODO - finish sum() - not all operations support sum() yet; 
#      - object numification is not supported y <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8091	8205	
==>$p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8091	8205	
==>$p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1412	1510	
==>and the text they said is saved.

If the (optional) role parameter C<public> is set to a true value <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1412	1510	
==>and the text they said is saved.

If the (optional) role parameter C<public> is set to a true value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3963	4093	
==>y $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3963	4093	
==>y $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30438	30533	
==>ect.  This is used to dive into the node's children
when using a walker (see L<Regexp::Parser/"W <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9195	9302	
==>',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Juncti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9195	9302	
==>',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Juncti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9195	9302	
==>',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Juncti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2447	2548	
==>standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2447	2548	
==>standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2447	2548	
==>standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13087	13232	
==>ne number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13087	13232	
==>ne number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13087	13232	
==>ne number, if string doesn't terminate in "\n"
    warn p6_to_s($xx). " at ...\n";
};
MULTI SUB fail_ ($xx) { die(p6_to_s($xx)); };
MULTI SUB exit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3739	3942	
==>>{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3739	3942	
==>>{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3739	3942	
==>>{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $body- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19362	19455	
==>$xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19362	19455	
==>$xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19362	19455	
==>$xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6_to_n($xx1)) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4130	4235	
==>------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4130	4235	
==>------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4130	4235	
==>------------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3381	3467	
==>?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3381	3467	
==>?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+? <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15882	15982	
==>or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15882	15982	
==>or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4291	4384	
==>itespaces;
my $ws = def_rule('ws',mk_dynamic_alt(\@whitespaces));

my @statements;
def_rule('s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7505	7590	
==>------------------------------------------------------------------
## END BOOTSTRAPPIN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7505	7590	
==>------------------------------------------------------------------
## END BOOTSTRAPPIN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7505	7590	
==>------------------------------------------------------------------
## END BOOTSTRAPPIN <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10737	10849	
==>): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $args{progs};
        $args{progs} = [$arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3264	3374	
==>all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3264	3374	
==>all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3264	3374	
==>all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothre <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1130	1230	
==>B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1130	1230	
==>B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1677	1777	
==>B<header returns Str>

Returns a string containing the TAP header for this plan.

=item B<footer retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2775	2886	
==>p();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2775	2886	
==>p();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2775	2886	
==>p();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1561	1671	
==>tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1561	1671	
==>tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1641	1751	
==>tb_test.get_test_number();
    my $line   = "$type $number";
    $line     ~= " - $diagnostic" if defined $diag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2735	2833	
==>ESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well as subro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2735	2833	
==>ESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well as subro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3082	3180	
==>ESCRIPTION

This module implements the semantics for perl6-style variable binding,
as well as subro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13210	13322	
==>l headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16687	16799	
==>l headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a pro <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16049	16161	
==>l headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a pro <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7939	8056	
==>, 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7939	8056	
==>, 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KE <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14842	14945	
==>foreach test
    $tot{bench} = timediff(new Benchmark, $t_start);

    $Strap->_restore_PERL5LIB;

    r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	193	311	
==>s 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $C <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	193	311	
==>s 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4725	4820	
==>he List Type
class JSX::InternalValue::List is Array;

# 8.9 The Completion Type
class JSX::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3567	3683	
==>, "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3567	3683	
==>, "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3567	3683	
==>, "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub declarations immediate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3023	3136	
==>i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3023	3136	
==>i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3023	3136	
==>i = 0; i < block_leave_hooks.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10001	10110	
==>ect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10001	10110	
==>ect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connec <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	358	466	
==>atchObj );
  $matchObj->position($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7623	7738	
==>-any';
    }

    my $unicode_c = '';
    if ($ghc_version =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/UnicodeC <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	35	132	
==>p all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
m <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	35	132	
==>p all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5629	5764	
==>stlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $le <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4129	4264	
==>stlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $le <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3228	3352	
==>>
    | <Token> <DivPunctuator>
}
rule InputElementRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1479	1575	
==>/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1479	1575	
==>/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2394	2504	
==>or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DE <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2394	2504	
==>or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DE <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3506	3628	
==>o)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3506	3628	
==>o)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5030	5152	
==>o)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $description) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2224	2334	
==>unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2224	2334	
==>unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2224	2334	
==>unlink(Str $filename) is primitive {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2905	3038	
==>)/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

my $ne <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4963	5083	
==>chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4963	5083	
==>chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10635	10743	
==>p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10635	10743	
==>p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10635	10743	
==>p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10995	11157	
==>rd, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10995	11157	
==>rd, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40787	40880	
==>being informed any time you create a
modified version of Locale::KeyedText that you are willin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40787	40880	
==>being informed any time you create a
modified version of Locale::KeyedText that you are willin <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3007	3154	
==>am->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4271	4418	
==>am->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11140	11326	
==>ms;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11140	11326	
==>ms;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11140	11326	
==>ms;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21755	21892	
==>}; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22034	22171	
==>}; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11153	11283	
==>t_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11153	11283	
==>t_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11153	11283	
==>t_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1509	1603	
==>s/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> dir <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1509	1603	
==>s/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> dir <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40092	40325	
==>,
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19641	19865	
==>,
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9655	9758	
==>e,
to any depth.  To restrict the depth to which it reaches, pass walker()
an argument:

  my $iter = $p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4583	4740	
==>oken {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4583	4740	
==>oken {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            w <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29796	29894	
==>ults()

Remember exit code

Completely redo the print summary code.

Implement Straps callbacks.  ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1076	1200	
==>g.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1079	1194	
==>g.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23403	23497	
==>do this copy-and-push before you do any flag-parsing,
if you're adding a handle that might pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	221	321	
==>{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	221	321	
==>{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	221	321	
==>{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	460	571	
==>ok
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	460	571	
==>ok
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	460	571	
==>ok
# * Added required/optional parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3116	3227	
==>he subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}): <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3580	3691	
==>he subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}): <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9880	9973	
==>ub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9880	9973	
==>ub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9880	9973	
==>ub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1072	1182	
==>::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1072	1182	
==>::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1072	1182	
==>::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work around this <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18212	18348	
==>ge => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14633	14769	
==>ge => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24180	24316	
==>=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{}, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24180	24316	
==>=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{}, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24180	24316	
==>=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{}, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5059	5210	
==>); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_ne <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5059	5210	
==>); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_ne <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14191	14297	
==>=> sub { system "tar", "-xvjf", $grub_local, "-C", $cdroot };

my $wrote_menulst = 0;
step
  descr  => "Cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2422	2524	
==>hods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2422	2524	
==>hods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2422	2524	
==>hods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5178	5305	
==>k { $Foo->bar } '... metaclass calling instance method fails';

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 4, '... $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8619	8742	
==>dnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.d <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8619	8742	
==>dnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5154	5282	
==>$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6471	6567	
==>ormally STDOUT) as
data is received from the network.  If the request fails, then the
status code <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6471	6567	
==>ormally STDOUT) as
data is received from the network.  If the request fails, then the
status code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3913	4004	
==>opaque_instance_attr($self => '@:roles');
}));

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3913	4004	
==>opaque_instance_attr($self => '@:roles');
}));

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3913	4004	
==>opaque_instance_attr($self => '@:roles');
}));

## ----------------------------------------- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2270	2387	
==>ubroutine
    Method      Perl method
    Submethod   Perl subroutine acting like a method
    Macro       Perl compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	326	442	
==>ver matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	312	420	
==>ver matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4364	4473	
==>lf, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4364	4473	
==>lf, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4364	4473	
==>lf, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	335	452	
==>Str'  && defined $_[0];
    return 1 if $_[1] eq 'Num'  && defined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1867	1959	
==>for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1956	2048	
==>for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Ru <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	92	208	
==>t();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die 'Need at least one <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19011	19107	
==>only meant to be used with user text that is
associated with hard-coded program conditions.  In o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19011	19107	
==>only meant to be used with user text that is
associated with hard-coded program conditions.  In o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13773	13864	
==>Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13773	13864	
==>Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13773	13864	
==>Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10630	10758	
==>ttributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # F <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14107	14235	
==>ttributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # F <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13406	13534	
==>ttributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # F <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6279	6407	
==><END;

package $pkg_this;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19050	19145	
==>phy ("a predicate ranging
over more than one argument"), which is also the basis of the relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22700	22795	
==>phy ("a predicate ranging over more than one
argument"), which is also the basis of the relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2476	2576	
==>cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2476	2576	
==>cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2476	2576	
==>cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2664	2795	
==>.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (I <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2664	2795	
==>.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32181	32277	
==>em on

The flags specifically turned on for this object (for flag assertions
and C<(?:...)>).

=i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27435	27549	
==>ed parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation::Example has zer <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24052	24152	
==>ed parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28604	28704	
==>ed parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14410	14609	
==>'@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible Mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14410	14609	
==>'@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible Mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14410	14609	
==>'@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible Mu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1394	1501	
==>lf, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1394	1501	
==>lf, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2999	3100	
==>$t $p";
    }
}

CONVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1247	1341	
==>ports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous() <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1247	1341	
==>ports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous() <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3951	4077	
==>h;
  return (substr $target, $pos, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $m <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3216	3354	
==>parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unles <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3216	3354	
==>parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unles <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5332	5426	
==>B<apply (closure) return list>

The closure here will be passed the current value itself, which <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15000	15098	
==>suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers for C<< < >> and C<< > >> anchors, w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21641	21737	
==>c =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21641	21737	
==>c =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(chann <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3440	3546	
==>etch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3440	3546	
==>etch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3440	3546	
==>etch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6798	6884	
==>=> ::make_method($_resolve));

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6798	6884	
==>=> ::make_method($_resolve));

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6798	6884	
==>=> ::make_method($_resolve));

## ----------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	246	497	
==>S is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	246	497	
==>S is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	399	490	
==>ain = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe::Annotat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7301	7408	
==>defined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7301	7408	
==>defined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7301	7408	
==>defined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2702	2801	
==>elf: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Ho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2702	2801	
==>elf: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Ho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2702	2801	
==>elf: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5851	6046	
==>>push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5851	6046	
==>>push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5851	6046	
==>>push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                my $key = $_[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7673	7776	
==>array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7673	7776	
==>array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2096	2202	
==>n canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of ou <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2096	2202	
==>n canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18301	18393	
==>:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18301	18393	
==>:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18301	18393	
==>:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19778	19902	
==>);
}

my method _inner_join (Relation::Example $other!) returns Relation::Example {
    # This form takes the form of an ordi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5206	5328	
==>d_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5428	5550	
==>d_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1046	1155	
==>and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1046	1155	
==>and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1046	1155	
==>and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, things will <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	974	1113	
==>hift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	853	992	
==>hift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12118	12215	
==>want to work with the parse tree independently, use the root()
method to get it.  From there, you' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3106	3215	
==>e => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

met <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3106	3215	
==>e => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

met <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7838	7937	
==>e;
}
{
  package Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_close;
}
{
  packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5647	5850	
==>turn $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5647	5850	
==>turn $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5647	5850	
==>turn $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5216	5348	
==>am{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5216	5348	
==>am{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5216	5348	
==>am{start} );
    my $end =   Perl6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4446	4588	
==>,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4446	4588	
==>,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4446	4588	
==>,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = substr($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3843	4062	
==>urse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3843	4062	
==>urse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3843	4062	
==>urse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20093	20326	
==>self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20093	20326	
==>self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20093	20326	
==>self;
                        }
                        #warn "got @items - current = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4593	4697	
==>&& ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4593	4697	
==>&& ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4593	4697	
==>&& ($self->isa('Role') || $self->isa('Class'));
    # regular checking here ...
    return 1 if $self->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	448	565	
==>p,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	448	565	
==>p,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	448	565	
==>p,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11971	12109	
==>{
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11971	12109	
==>{
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11971	12109	
==>{
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_description => {
    is => [ $::Object ],
    class => { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	756	858	
==>icate nodes in a program.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_fin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1214	1462	
==>reating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1214	1462	
==>reating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35627	35824	
==>mbol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => 'attribute'),                                 
                          ),
                returns => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6762	6908	
==>lf->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    my $self = shift;
    if (ref $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13673	13768	
==>actice" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13673	13768	
==>actice" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	475	571	
==>print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	436	532	
==>print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	436	532	
==>print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14275	14441	
==>rays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14275	14441	
==>rays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14275	14441	
==>rays.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11717	11809	
==>:p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11717	11809	
==>:p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11717	11809	
==>:p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17530	17624	
==>($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17530	17624	
==>($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17530	17624	
==>($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4570	4686	
==>app";

		my $i; my $unified_app = $rapp->fmap(sub {
			my $node = shift;
			return $node unless $i++; # skip the thun <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1078	1202	
==>ore the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we hav <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1078	1202	
==>ore the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11429	11557	
==>$spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11429	11557	
==>$spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11429	11557	
==>$spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @param <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	248	374	
==>mpile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter t <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	248	374	
==>mpile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12207	12318	
==>t_implemented( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", D <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3182	3340	
==>date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # app <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3182	3340	
==>date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # app <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13347	13491	
==>="tests_failed"><tmpl_var name=failed> failed</span>,
		<span class="tests_todo"><tmpl_var name=todo> todo</span>,<br />
                <span cl <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1216	1321	
==>contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@chunk <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1521	1623	
==>o";
    #unlink "pugs$Config::Config{_exe}";
    print STDERR "done.\n" if $Config{verbose};
}

sub inl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1152	1248	
==>contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@chunk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6130	6321	
==>= $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6130	6321	
==>= $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6130	6321	
==>= $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1744	1875	
==>d($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp(input => $g);
    $p=$p->Out <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	812	941	
==>dden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Aut <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	812	941	
==>dden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Aut <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3274	3435	
==>$self->{version},
        license      => $self->{license},
    );
    $self->provides(%{ $build->find_dist_packages || {} });
}

sub feature {
    my $self     = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	653	750	
==>should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $para <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	815	912	
==>should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3027	3164	
==>rl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3027	3164	
==>rl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3027	3164	
==>rl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6359	6466	
==>) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printW <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6359	6466	
==>) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printW <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6359	6466	
==>) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printW <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7218	7335	
==>ll_tests {
    my @tests = @_;

    _autoflush(\*STDOUT);
    _autoflush(\*STDERR);

    my(%failedtests);

    # Test <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12732	12827	
==>ing functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12732	12827	
==>ing functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7294	7453	
==>Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7294	7453	
==>Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7294	7453	
==>Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12663	12831	
==>end => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12663	12831	
==>end => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12663	12831	
==>end => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	978	1082	
==>$tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	978	1082	
==>$tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1058	1162	
==>$tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	473	578	
==>ind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	473	578	
==>ind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	473	578	
==>ind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6568	6687	
==>enting
how that script failed.  Its keys are these:

    name        Name of the test which failed
    estat       Scrip <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6767	6872	
==>'\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6767	6872	
==>'\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3768	3889	
==>XX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3768	3889	
==>XX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3768	3889	
==>XX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11913	12059	
==>( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8195	8341	
==>( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9029	9175	
==>( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6227	6467	
==>ircuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package sat <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6691	6931	
==>ircuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package sat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23671	23798	
==>> ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $p <==
3	/Users/nnunley/pugs/util/grokprims.pl	489	615	
==>\(.)/$1/g;

  $args =~ m/\((.*)\)/ or die "Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $as <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	655	787	
==>dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" or die "Cannot open $file: $!";
    while (<IN>) {
        i <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	830	931	
==>ow</a>.  (Useful with Firefox 1.5's Preferences/Tabs/Force/NewTab
setting.)
</p>
<p>
To update this li <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	590	689	
==>ys %{ { map { (split m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1225	1322	
==>} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1225	1322	
==>} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1225	1322	
==>} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys - <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5623	5725	
==>role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a sing <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5623	5725	
==>role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a sing <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7820	7922	
==>role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a sing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1038	1206	
==>hift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16051	16150	
==>tersects( $object )`

These methods return a logical value. 

The argument can be a Span object, a R <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16051	16150	
==>tersects( $object )`

These methods return a logical value. 

The argument can be a Span object, a R <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	354	463	
==>mpile($prog);

    $self->execute($c);
}

sub interpreter {
    my $self = shift;
    my $class = $self->inter <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1422	1530	
==>{$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1422	1530	
==>{$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2430	2526	
==>), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2430	2526	
==>), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2430	2526	
==>), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	35	134	
==>et;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	35	134	
==>et;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warn <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6453	6557	
==>nd a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Do <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6453	6557	
==>nd a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Do <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13878	13977	
==>rs  (%hash ; MatchTest *@keytests --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17849	17979	
==>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($fmt,$start,$f <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4015	4143	
==>e: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Uti <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4015	4143	
==>e: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Uti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1394	1508	
==>ray.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1394	1508	
==>ray.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1394	1508	
==>ray.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++) {
      array.push(new PI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3360	3575	
==>=~ /^\<.*\>$/) {
                push @t => 'q' . $t;
            }      
            
            # classes             
            elsif (exists $__classes__{$t}) {               
                my $message = pop <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1158	1312	
==>v = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key} }, @rv;
        @rv;
    };
}

sub sign {
    my $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13876	13979	
==>SIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8082	8185	
==>SIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20815	20909	
==>,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20815	20909	
==>,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20815	20909	
==>,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21901	22025	
==>traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21901	22025	
==>traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21901	22025	
==>traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	287	476	
==>ine;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	287	476	
==>ine;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15832	15934	
==>ession>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6812	6922	
==>ement\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6812	6922	
==>ement\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6812	6922	
==>ement\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_from_n(p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19411	19531	
==>0
    pad["reps"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	688	788	
==>on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	688	788	
==>on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	688	788	
==>on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa("Ha <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10368	10555	
==>case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13845	14032	
==>case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13126	13313	
==>case of a semijoin.
    return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2131	2218	
==>?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2131	2218	
==>?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2131	2218	
==>?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term:|postcircumfix:|rule_modifier:|t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2912	3032	
==>e to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2912	3032	
==>e to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2912	3032	
==>e to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<E <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5334	5432	
==>th = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ? <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5334	5432	
==>th = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ? <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7430	7522	
==>rthunk->val->struct_equiv;

		if ($child->isa("Blondie::Seq")){
			my @children_of_seq = $chi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38427	38520	
==>s: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURAT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42976	43069	
==>s: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURAT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42626	42719	
==>s: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURAT <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3774	3872	
==>iest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3774	3872	
==>iest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3854	3952	
==>iest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next test <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9945	10055	
==>so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13422	13532	
==>so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!headin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8269	8365	
==>fined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8257	8353	
==>fined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Ru <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2136	2233	
==>roperly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfou <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2136	2233	
==>roperly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfou <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4186	4280	
==>com/~njas/sequences/A000796
 }

multi Math::Unspecced::e ( --> Num ) {
    2.718281828459045235 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2646	2785	
==>ITION_FLAG(r)) {
    return previous_exec_hook(r,stringarg,strend,strbeg,
                              minend,screamer,data,flags);
  }
  e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2490	2629	
==>efix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfix( $n )
            if $n->{fixity} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5001	5098	
==>>_copy( from => $file|$dir, to => $target );

Copies a file or directory to the target, recursivel <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12131	12252	
==>pl_var name=total></span>:</td>
	      <td class="num tests_ok"><span title="<tmpl_var name=ok> ok"><tmpl_var name=ok></sp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4203	4323	
==>method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4203	4323	
==>method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	82	252	
==>passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	82	252	
==>passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Tes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10035	10157	
==>_pkg->prefix, $inst_pkg->name;

            ### find all packages that provide: a <prefix>-<name>
            ### implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2019	2123	
==>)=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2019	2123	
==>)=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2019	2123	
==>)=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2054	2173	
==>&& !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2054	2173	
==>&& !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2054	2173	
==>&& !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12397	12519	
==>}
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12397	12519	
==>}
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12397	12519	
==>}
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
});

::Class.meta.add_method(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6931	7050	
==>xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6931	7050	
==>xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6931	7050	
==>xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	484	583	
==>using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	484	583	
==>using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	484	583	
==>using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute ($att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	866	959	
==>IL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	866	959	
==>IL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	866	959	
==>IL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unw <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8634	8770	
==>].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8634	8770	
==>].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8634	8770	
==>].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i] <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5521	5622	
==>ne by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5521	5622	
==>ne by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7045	7146	
==>ne by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17271	17385	
==>aha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17271	17385	
==>aha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17271	17385	
==>aha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4261	4370	
==>_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value:: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4261	4370	
==>_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value:: <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4741	4870	
==>idates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13532	13646	
==>do events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13532	13646	
==>do events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23659	23796	
==>e for providing any value capture needed, in $body.
    '{ my $__flag;
       try { '.$body.' }
       catch Perl6::Run::OnPerl5::X1::Api: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	719	817	
==>}
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	719	817	
==>}
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	959	1057	
==>l stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	959	1057	
==>l stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3816	3961	
==>$default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _optimize {
    my @rules = reverse sort @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18153	18249	
==>f any) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is sui <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18153	18249	
==>f any) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is sui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	384	492	
==>l() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	384	492	
==>l() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	384	492	
==>l() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5518	5643	
==>( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5518	5643	
==>( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5518	5643	
==>( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2657	2776	
==>ion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2657	2776	
==>ion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2657	2776	
==>ion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	118	235	
==>od {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	118	235	
==>od {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	118	235	
==>od {
    my $class = shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9004	9117	
==>SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9004	9117	
==>SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9004	9117	
==>SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	455	579	
==>ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	422	546	
==>ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	294	403	
==>SID eq '';
    SessionDecode(slurp(catfile($Path, $SID)));
    CookiesAdd('sid',$SID);
}

sub SessionID() { re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7993	8097	
==>'abc123', :capture );



  # returns a Match object that has no capture (but the 'bool' field is still tr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7724	7826	
==>'abc123', :capture );

  # returns a Match object that has no capture (but the 'bool' field is still tr <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11608	11730	
==>return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object represen <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11608	11730	
==>return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object represen <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21810	21928	
==>l(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_and_first = fun(
	param => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14103	14202	
==>confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14103	14202	
==>confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14103	14202	
==>confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->($:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14197	14395	
==>->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14197	14395	
==>->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14197	14395	
==>->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	196	332	
==>Pugs {
    my $self = shift;

    my $install_version = shift;
    die "Install version must be 5 or 6 for WritePugs"
      unless $insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17467	17564	
==>conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17467	17564	
==>conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17467	17564	
==>conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38437	38532	
==>e>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVI <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42986	43081	
==>e>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVI <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42636	42731	
==>e>.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	528	639	
==>\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	788	899	
==>\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1060	1171	
==>\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3294	3414	
==>"is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3294	3414	
==>"is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3294	3414	
==>"is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means s <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2352	2474	
==>tended {
        use Set;
        has %.subscriptions of Set;

        # when you say add_subscription("foo", ...) then "fo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1432	1540	
==>ay %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_pha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1432	1540	
==>ay %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_pha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20848	20940	
==>}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20848	20940	
==>}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20848	20940	
==>}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1562	1670	
==>g_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1562	1670	
==>g_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2425	2572	
==>'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2436	2583	
==>'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	855	955	
==>ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3653	3758	
==>WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14608	14726	
==>d_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14608	14726	
==>d_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14608	14726	
==>d_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1886	1999	
==>, ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1886	1999	
==>, ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1886	1999	
==>, ::make_method($_add_method));
}
# ... now we have all we need to construct our $::Class 

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5684	5809	
==>{ $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5684	5809	
==>{ $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5684	5809	
==>{ $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	747	839	
==>----------------------------------------------------
## Object

# The 'Object' class
$::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	747	839	
==>----------------------------------------------------
## Object

# The 'Object' class
$::Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	747	839	
==>----------------------------------------------------
## Object

# The 'Object' class
$::Objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12750	12904	
==>ed items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12750	12904	
==>ed items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12750	12904	
==>ed items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERS <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20371	20483	
==>s,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[X|Fx],[10|Bx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2266	2376	
==>r my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2266	2376	
==>r my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2266	2376	
==>r my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1961	2096	
==>) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1961	2096	
==>) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2041	2176	
==>) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	324	437	
==>g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	324	437	
==>g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	324	437	
==>g;
    $args5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3431	3549	
==>f $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3431	3549	
==>f $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3431	3549	
==>f $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11963	12077	
==>ss.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11963	12077	
==>ss.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11963	12077	
==>ss.meta.add_method('add_attribute' => method () {
    my ($self, $label, $attribute) = @_;
    (defined $label && d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1723	1830	
==>ms == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 versio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1723	1830	
==>ms == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 versio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1723	1830	
==>ms == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 versio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1518	1647	
==>int $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1518	1647	
==>int $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2278	2390	
==>ion || $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g;
    if ( $self->tests ) {
        $arg <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19795	20052	
==>>keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40255	40512	
==>>keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new <==
3	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	22	125	
==>01;

sub import (Str $pkg, Int $arg = 0 is copy) returns Void {
    my $newarg = [~] $arg.split("").grep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4039	4167	
==>b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4039	4167	
==>b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4039	4167	
==>b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20692	20792	
==>t set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20692	20792	
==>t set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25801	25895	
==>returns list 
    ($self: get_attr (symbol new @:subclasses)))

=cut

$::Class->send('add_metho <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23173	23274	
==>on :words {  # see clause 13
      <'function'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1090	1190	
==>@.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1090	1190	
==>@.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool:: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6603	6701	
==>t>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6603	6701	
==>t>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6527	6646	
==>_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6527	6646	
==>_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6527	6646	
==>_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6685	6780	
==>($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6685	6780	
==>($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6685	6780	
==>($self)->does($role_name);
    })) if $self != $::Class && !$self->isa('Role');
};
$::Role->add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	334	448	
==>String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	334	448	
==>String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	334	448	
==>String::Tokenizer->RETAIN_WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	233	381	
==>[ $_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        p <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12000	12119	
==>>new(@_);
}


# this is the actual inferrence engine
my $i = Language::AttributeGrammar->new(<<'#\'EOG');
#\

# at the r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	320	434	
==>[ $_[2] ] ) },
    looser  => sub { splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4606	4800	
==>es = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4606	4800	
==>es = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@! <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30402	30557	
==>nt_dispatcher');
                }    
                elsif ($order->equal_to(str->new(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3102	3229	
==>f.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3102	3229	
==>f.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3102	3229	
==>f.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of type {$self.ref}!";
  }
}

method kv (Hash| <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4630	4834	
==>coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unl <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4630	4834	
==>coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unl <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7858	7974	
==>ze_version {
    my $dir = shift;
    $dir =~ /.*ghc-(.*)$/i or die "Invalid version: $dir";
    my $ver = $1;
    $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	392	491	
==>x.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	392	491	
==>x.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	392	491	
==>x.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5024	5134	
==>*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5024	5134	
==>*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5024	5134	
==>*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	724	859	
==>urst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be b <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	724	859	
==>urst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be b <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	710	824	
==>]);
    printf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $test <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20379	20484	
==>nce( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17324	17426	
==>nce( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20801	20903	
==>nce( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3074	3209	
==>bject, we'll fetch it from the .jib
    unless( $meta ) {
        
        ### installed packages don't have a 'file' method, but they / <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	21	125	
==>se v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	21	125	
==>se v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10755	10910	
==>on, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10755	10910	
==>on, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	666	773	
==>class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other tha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	666	773	
==>class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other tha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	666	773	
==>class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other tha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1401	1495	
==>arkers for container

allocation, as well as the compile-time-bound values for them.

It includ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1341	1433	
==>arkers for container
allocation, as well as the compile-time-bound values for them.
It includ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2654	2794	
==>::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2654	2794	
==>::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2654	2794	
==>::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4152	4271	
==>. , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4007	4123	
==>. , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15335	15427	
==>MinLength

Implements a min_length() method for all objects that determines the
minimum lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	551	654	
==>$source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	551	654	
==>$source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	551	654	
==>$source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	22	132	
==>JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	22	132	
==>JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	22	132	
==>JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, na <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8631	8754	
==>? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSH <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8273	8371	
==>number of items inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8273	8371	
==>number of items inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2331	2463	
==>nt = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    retur <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2331	2463	
==>nt = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    retur <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4057	4157	
==>B<List of Failed>

A list of the tests which failed.  Successive failures may be
abbreviated (ie. 15- <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	80	183	
==>ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	94	195	
==>e strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasy <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	94	195	
==>e strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8977	9087	
==>nick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8977	9087	
==>nick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11520	11628	
==>More 'no_plan';
use Test::Exception;
use Data::Dumper;
use Language::AttributeGrammar;

{
	# please forgive m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23340	23439	
==>, and it is false if not.  Looking forward to the near
future where "Relation" is a Role rather than <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27892	27991	
==>, and it is false if not.  Looking forward to the near
future where "Relation" is a Role rather than <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34587	34677	
==>C<[^:NAME:]> (or other POSIX notations, like
C<[=NAME=]> and C<[.NAME.]>); otherwise, refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18617	18710	
==>TI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18617	18710	
==>TI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18617	18710	
==>TI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4362	4497	
==>, "]";
  }

  sub raw {
    my $self = shift;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $sel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19285	19381	
==>me time, this information is in separate resource files used by the
program, so that if you wante <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19285	19381	
==>me time, this information is in separate resource files used by the
program, so that if you wante <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5693	5790	
==>DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle we will work wit <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5693	5790	
==>DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle we will work wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9893	10005	
==>p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9893	10005	
==>p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9893	10005	
==>p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4262	4387	
==>ame' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4262	4387	
==>ame' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4262	4387	
==>ame' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8283	8394	
==>%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8283	8394	
==>%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8283	8394	
==>%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6791	6889	
==>h.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6791	6889	
==>h.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6791	6889	
==>h.random() * $a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1569	1694	
==>" : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1569	1694	
==>" : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1569	1694	
==>" : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7608	7708	
==>26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7608	7708	
==>26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7608	7708	
==>26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4270	4408	
==>h(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep  => $rep,
        type = <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15946	16054	
==>esolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2339	2447	
==>esolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2761	2873	
==>[].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2761	2873	
==>[].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2761	2873	
==>[].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2885	2985	
==>me' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2885	2985	
==>me' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2885	2985	
==>me' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']');
        if (@{$self->supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	886	985	
==>t->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	886	985	
==>t->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	886	985	
==>t->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retv <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	460	596	
==>plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./fin <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	460	596	
==>plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./fin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3698	3802	
==>), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3698	3802	
==>), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3698	3802	
==>), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8449	8554	
==>:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $ope <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5987	6088	
==>:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $ope <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10269	10368	
==>orts of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4291	4394	
==>}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.co <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4291	4394	
==>}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.co <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	375	473	
==>oesnt add much clarity, given the cruft
of wrapping a map and join around the macro string.  But pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	130	243	
==>mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	130	243	
==>mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	130	243	
==>mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be call <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3608	3757	
==>) ,} }
            ) ),
        '$.' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { sca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7730	7861	
==>,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7923	8054	
==>,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5014	5127	
==>st;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5014	5127	
==>st;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5014	5127	
==>st;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14397	14594	
==>$_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14397	14594	
==>$_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14397	14594	
==>$_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1865	1967	
==>\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1865	1967	
==>\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1865	1967	
==>\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17146	17245	
==>) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17146	17245	
==>) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17146	17245	
==>) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9276	9420	
==>d )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9276	9420	
==>d )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9276	9420	
==>d )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	630	771	
==>=> 'prefix', op1 => \$_[1], exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1770	1883	
==>{
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1770	1883	
==>{
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3683	3793	
==>ow function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3683	3793	
==>ow function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3683	3793	
==>ow function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	51	168	
==>Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	51	168	
==>Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	51	168	
==>Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4966	5086	
==>ist"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4966	5086	
==>ist"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4966	5086	
==>ist"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14057	14156	
==>$self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8262	8361	
==>$self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29656	29755	
==>in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as the una <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34208	34307	
==>in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as the una <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33372	33471	
==>in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as the una <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3613	3723	
==>e_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3613	3723	
==>e_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3613	3723	
==>e_fh;

  local $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11675	11804	
==>->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->package eq $inst_pkg->packag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4450	4562	
==>um = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4672	4784	
==>um = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16634	16803	
==>ivate');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16634	16803	
==>ivate');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16634	16803	
==>ivate');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'instance');
            if ($is_class_m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9610	9734	
==>exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9610	9734	
==>exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	644	756	
==>ethod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No othe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	644	756	
==>ethod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No othe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	644	756	
==>ethod(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14470	14621	
==>elf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14470	14621	
==>elf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14470	14621	
==>elf->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop @{$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3253	3459	
==>nts<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragr <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3253	3459	
==>nts<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9243	9361	
==>se($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = join(", <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	620	715	
==>anned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) return <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	678	773	
==>anned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1133	1247	
==>$class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	236	349	
==>$class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9942	10049	
==>oo);

eval <<'END'; print $@ if $@;
my $m = "asdf" =~ $qr;
print "match? ",$m ? "yes" : "no","\n";
print ' $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	570	661	
==>fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy:: <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	206	297	
==>@obst[0] und @obst[1]";
say "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}";
say "{$wer}s L <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	570	661	
==>fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy:: <==
3	/Users/nnunley/pugs/util/combine_tests.pl	195	288	
==>int YAML::Dump($combined);
print Dump(combine_tests(map { LoadFile($_) } @ARGV));
#
# Annotate <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	18	107	
==>per simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	36	125	
==>per simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5133	5241	
==>$cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to ins <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5133	5241	
==>$cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to ins <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5133	5241	
==>$cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to ins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14933	15048	
==>b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18410	18525	
==>b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17826	17941	
==>b.heading.size() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sourc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3048	3154	
==>k( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=he <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3048	3154	
==>k( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3128	3234	
==>k( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3599	3831	
==>pe') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3599	3831	
==>pe') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3599	3831	
==>pe') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2822	2973	
==>primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2822	2973	
==>primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2822	2973	
==>primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's wrong";
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1763	1857	
==>2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1763	1857	
==>2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1763	1857	
==>2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL::CUR_SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2799	2917	
==>elf, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2799	2917	
==>elf, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2799	2917	
==>elf, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $self:) { substr $self, 0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6682	6824	
==>w)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6682	6824	
==>w)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6682	6824	
==>w)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Math.random() * $a }

# The following <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11539	11661	
==>];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11539	11661	
==>];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11539	11661	
==>];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1068	1193	
==>f $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$ba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1071	1187	
==>f $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	964	1087	
==>$xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	964	1087	
==>$xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	964	1087	
==>$xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi <==
3	/Users/nnunley/pugs/util/addauthors.pl	1507	1624	
==>bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	259	368	
==>Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasynta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	259	368	
==>Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasynta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3164	3258	
==>=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3164	3258	
==>=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3164	3258	
==>=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2741	2995	
==>ne;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbat <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2741	2995	
==>ne;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	779	900	
==>d " . _('$:expect') . " but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestB <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3939	4049	
==>ig{anonymous}) {
        $self->{_smoker} = eval { LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($ENV <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12069	12162	
==>type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12127	12220	
==>type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2082	2209	
==>ram',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtV <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	614	711	
==>::Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $descriptio <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	614	711	
==>::Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $descriptio <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2538	2704	
==>stant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use consta <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1382	1489	
==>return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1382	1489	
==>return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	754	847	
==>---------------------------------------------
## Object

# The 'Object' class
$::Object = $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	754	847	
==>---------------------------------------------
## Object

# The 'Object' class
$::Object = $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	754	847	
==>---------------------------------------------
## Object

# The 'Object' class
$::Object = $::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3462	3593	
==>put, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3462	3593	
==>put, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3462	3593	
==>put, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script typ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3717	3829	
==>back, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stder <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6123	6220	
==>currence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6123	6220	
==>currence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2555	2670	
==>e($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2555	2670	
==>e($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2555	2670	
==>e($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class->auth <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1225	1326	
==>tor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 secon <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1225	1326	
==>tor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 secon <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13734	13836	
==>rn $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # Fir <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17211	17313	
==>rn $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # Fir <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	18	109	
==>rl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	18	109	
==>rl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRI <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1062	1149	
==>e::Backend::Perl;

=head1 DESCRIPTION

L<Blondie::Backend::Perl::Interpreter> contains t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	809	914	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	809	914	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	809	914	
==>ay "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4739	4838	
==>ounted to --initrd-mnt in order to copy files to it.
  --cdroot=$cdroot
    --cdroot is the director <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	265	360	
==>sts_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	323	418	
==>sts_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test:: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17502	17647	
==>'T');
                $backlink->push_content($t);
                my $syn_ref = $syn_indexs->{ substr($syn,0,1) }{$syn};
                $syn_ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	283	384	
==>e :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	283	384	
==>e :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14661	14783	
==>$a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WAR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14661	14783	
==>$a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WAR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14661	14783	
==>$a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WAR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23966	24059	
==>n object, whose Heading and
Body attributes are set respectively from the optional named param <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28518	28611	
==>n object, whose Heading and
Body attributes are set respectively from the optional named param <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10641	10731	
==>code_args .= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5728	5816	
==>=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny- <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5728	5816	
==>=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny- <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	172	282	
==>rl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported doesn't support arg <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	0	109	
==>use strict;
use YAML            qw[LoadFile];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1373	1495	
==>\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1373	1495	
==>\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3520	3626	
==>ust be either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5089	5183	
==>yobj, calls my_editor() on it.
The editor routine is passed the current object in the recursion <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5089	5183	
==>yobj, calls my_editor() on it.
The editor routine is passed the current object in the recursion <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5089	5183	
==>yobj, calls my_editor() on it.
The editor routine is passed the current object in the recursion <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2364	2480	
==>tart";
    my $ret;

    if $tree[0] eq '"PIL_Environment"' {
        my %pad = $tree[1];  # keys: "pilGlob", "pilMai <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2929	3039	
==>-<SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1501	1603	
==>use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1501	1603	
==>use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1501	1603	
==>use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7755	7864	
==>\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7755	7864	
==>\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7755	7864	
==>\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9506	9602	
==>x).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9506	9602	
==>x).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9506	9602	
==>x).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pugs ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7566	7754	
==>es($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7566	7754	
==>es($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7566	7754	
==>es($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1757	1883	
==>uple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5234	5360	
==>uple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4164	4290	
==>uple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the he <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27022	27123	
==>::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27022	27123	
==>::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5987	6098	
==>tf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5987	6098	
==>tf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5987	6098	
==>tf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2574	2740	
==>1,
                    '$.number'      => $self->get_test_number(),
                    '$.reason'      =>  $reason,
                    '$.description' =>  $descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1843	1964	
==>ss = $class->superclass;
        }

        confess "No method found for '$label'";
    }
}

# The 'Class' class -- placed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9068	9162	
==>=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl6::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5072	5197	
==>nique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5072	5197	
==>nique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5072	5197	
==>nique id of the file we're processing in, to fix var stomping:
  # A.pm: my $a = 3          # ==> my $a_1 = 3;
  # B.pm: use A <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6571	6667	
==>d message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($ur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6571	6667	
==>d message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($ur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11751	11902	
==>eturn Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11751	11902	
==>eturn Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11751	11902	
==>eturn Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3750	3876	
==>elf = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3750	3876	
==>elf = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3750	3876	
==>elf = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone- <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	370	483	
==>r $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	370	483	
==>r $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4127	4262	
==>= { filename => "fatal", resname => "<precompiled>", };

    $fatal::DEFAULT_FATALITY is constant = 1;
    
    sub import {
        Pug <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1093	1208	
==>ders.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1093	1208	
==>ders.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12601	12730	
==>b { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12601	12730	
==>b { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12601	12730	
==>b { Str->new( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3945	4094	
==>ar::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecognized <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7240	7364	
==>eth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7240	7364	
==>eth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Ros <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3827	3964	
==>o}::$name"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	648	751	
==>ructure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	616	712	
==>ructure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8330	8439	
==>ptional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8041	8145	
==>ptional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3357	3453	
==>tatements, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27597	27692	
==>ssage object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27597	27692	
==>ssage object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep co <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6177	6329	
==>};
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5685	5837	
==>};
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\ <==
3	/Users/nnunley/pugs/util/package-osx.pl	7742	7839	
==>an/man3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Spec::Module.3pm
        /usr/lo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19469	19603	
==>S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15890	16024	
==>S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, & <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4124	4237	
==>d_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> \}\> }
rule cod <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4995	5116	
==>dth();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change its parent <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4995	5116	
==>dth();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change its parent <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	253	358	
==>t typed to the
Role it is attached to (however, this is a trend and not a rule).

=item *

A method is bou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9810	9924	
==>l case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9810	9924	
==>l case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9810	9924	
==>l case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3267	3427	
==>ilename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3267	3427	
==>ilename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3267	3427	
==>ilename or do{ warn $!; next; };
            my $code = do { local $/; <IN> }; close IN;
            $eval_p6->($code);
            next;
        }
        $eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1786	1908	
==>fsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1786	1908	
==>fsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1786	1908	
==>fsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1933	2051	
==>eClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1933	2051	
==>eClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1933	2051	
==>eClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUndef") {
        "p6_u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4424	4551	
==>, $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14691	14782	
==>ys C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14691	14782	
==>ys C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5031	5172	
==>{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default gene <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5031	5172	
==>{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default gene <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18221	18342	
==>thods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	10	100	
==>::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	10	100	
==>::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	10	100	
==>::Internals::use_perl5_module_imp(Str $mod, *@imports) {
  JS::inline('(
  function (mod, i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4826	4915	
==>_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4826	4915	
==>_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5264	5436	
==>e, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5264	5436	
==>e, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5264	5436	
==>e, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2305	2437	
==>body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2305	2437	
==>body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2305	2437	
==>body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4411	4508	
==>=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder ins <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4411	4508	
==>=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5935	6032	
==>=back

=item B<create( *@args )>

This method actually creates and returns a new Test::Builder ins <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	453	557	
==>lemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	453	557	
==>lemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14272	14384	
==>pected
      if (
        ($tree->[-1]->family eq "assertion" and $tree->[-1]->type eq "eval") or
        ($tree- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	379	487	
==>e're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	379	487	
==>e're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	379	487	
==>e're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9985	10131	
==>x.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9985	10131	
==>x.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9985	10131	
==>x.Proxy(
        function () {
          var ret = array[idx];
          return ret == undefined ? undefined : ret.FETCH();
        },
        func <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3456	3644	
==>en(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>).add_children(
                    Tree.new(:node<PkgTrait <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10515	10631	
==>aph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10515	10631	
==>aph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1120	1253	
==>l6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lv <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1120	1253	
==>l6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lv <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1120	1253	
==>l6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16839	17005	
==>nted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16839	17005	
==>nted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16839	17005	
==>nted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12891	13068	
==>NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12891	13068	
==>NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23299	23433	
==>$e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $self: list ?@superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3863	4009	
==>$y, $z) = @_;
    {
    # prototype
        prototype => new Point($x, $y),  
    # rest of the class 
        get_z => sub { $z },
        set_z = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27746	27845	
==>h original tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calcul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32298	32397	
==>h original tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calcul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31390	31489	
==>h original tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calcul <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6116	6220	
==>llback};

    $self->{'next'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my %re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15020	15116	
==>ION

=head2 Introduction

Many times during a program's operation, the program (or a package it u <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15020	15116	
==>ION

=head2 Introduction

Many times during a program's operation, the program (or a package it u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12191	12296	
==>not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12191	12296	
==>not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12191	12296	
==>not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18068	18297	
==>y_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21545	21774	
==>y_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21132	21361	
==>y_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6737	6846	
==>sInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWrita <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6737	6846	
==>sInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWrita <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3636	3745	
==>sInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWrita <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14316	14450	
==>s; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't see <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14316	14450	
==>s; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't see <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2537	2649	
==>ubstr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2537	2649	
==>ubstr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2537	2649	
==>ubstr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	54	172	
==>rict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	54	172	
==>rict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	54	172	
==>rict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are com <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30309	30414	
==>:descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_descendant_dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6194	6295	
==>t<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6194	6295	
==>t<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4590	4700	
==>$explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4590	4700	
==>$explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6114	6224	
==>$explanation?, Int $tests? )>

Sets the current test plan or throws an exception if there's already a plan in
p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	86	207	
==>ename;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7654	7740	
==>r::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_elemen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1479	1565	
==>r::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_elemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1595	1703	
==>lass {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1595	1703	
==>lass {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1595	1703	
==>lass {
        my ($instance, $class) = @_;
        (defined $instance && blessed($instance) eq 'Dispatchable <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4715	4841	
==>bstr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4715	4841	
==>bstr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9866	9963	
==>er->walker(2);  # top- through third-level

The iterator returned is a function reference.  When c <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10747	10899	
==>hile ( $rest =~ $link ) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10585	10683	
==>d => $value) pairs, which
means that you can update several fields with a single invocation.

The $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10585	10683	
==>d => $value) pairs, which
means that you can update several fields with a single invocation.

The $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3586	3766	
==>ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($method);
            $seen{$method}++;
        }
    }

    my $who = $self->_caller <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1323	1451	
==>);
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1323	1451	
==>);
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*E <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	350	463	
==>sform merge list_to_stream cutsort
#                 iterate_function cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9741	9852	
==>rtmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9741	9852	
==>rtmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4488	4589	
==>rt extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4488	4589	
==>rt extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5078	5179	
==>rt extra incoming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	979	1085	
==>ray.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	979	1085	
==>ray.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	979	1085	
==>ray.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27399	27501	
==>there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31951	32053	
==>there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31034	31136	
==>there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new att <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7968	8093	
==>ubstr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $S0 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	205	324	
==>ef, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	205	324	
==>ef, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	480	614	
==>he var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $no <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	480	614	
==>he var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $no <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	480	614	
==>he var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9070	9160	
==>ments, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2895	2985	
==>ments, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1071	1172	
==>> $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1071	1172	
==>> $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1151	1252	
==>> $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way of <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1707	1844	
==>d \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1695	1832	
==>d \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5650	5745	
==>the given C<@test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a hash r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13810	13979	
==>kely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and f <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13810	13979	
==>kely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	78	183	
==>use warnings;

use base 'type';

our $NIL = bless \(my $var) => __PACKAGE__;
sub new { $NIL }

# conversio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12056	12153	
==>X - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12056	12153	
==>X - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12056	12153	
==>X - see help_require_use() above
MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,@xxa) {
    p6_fr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1935	2053	
==>!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1935	2053	
==>!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
metho <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4342	4453	
==>tactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \> | <metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4946	5060	
==>:PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4946	5060	
==>:PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4946	5060	
==>:PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3642	3755	
==>e =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3642	3755	
==>e =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3642	3755	
==>e =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go!
    my $inv = $self->{pInv} ? $j <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	874	969	
==>o the normal output filehandle, adding leading C<#>
characters after all newlines if they are no <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	874	969	
==>o the normal output filehandle, adding leading C<#>
characters after all newlines if they are no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1430	1525	
==>o the normal output filehandle, adding leading C<#>
characters after all newlines if they are no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	285	410	
==>ta = JIB::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4256	4357	
==>'line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+| <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4256	4357	
==>'line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4239	4346	
==>:Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4239	4346	
==>:Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4239	4346	
==>:Package->add_method('name' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6340	6501	
==>ess ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3465	3626	
==>ess ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4314	4475	
==>ess ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8223	8327	
==>e: It is yet unknown whether this is working because the language
    # spec says it is supposed to, or w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8223	8327	
==>e: It is yet unknown whether this is working because the language
    # spec says it is supposed to, or w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2517	2622	
==>put = _draw_role_node($role);   
    foreach my $subrole (@{$role->roles}) {
        $output .= _draw_role <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1498	1598	
==>d pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1498	1598	
==>d pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15578	15750	
==>);
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15578	15750	
==>);
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15578	15750	
==>);
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX - TODO - optimization - shift_n, pop_n
                    Perl6::V <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24817	24938	
==>ertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27736	27831	
==>nts, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27736	27831	
==>nts, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24144	24282	
==>$i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24144	24282	
==>$i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24144	24282	
==>$i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       define <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5718	5815	
==>ding on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5718	5815	
==>ding on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16505	16608	
==>ad::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16505	16608	
==>ad::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16505	16608	
==>ad::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unne <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	726	834	
==>output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<wri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	726	834	
==>output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<wri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1282	1390	
==>output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<wri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11736	11891	
==>ops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11736	11891	
==>ops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11736	11891	
==>ops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = shift;
            # print "en <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2206	2314	
==>which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all li <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2206	2314	
==>which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24469	24585	
==>m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24469	24585	
==>m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24469	24585	
==>m);
	$ret = $m;
    };
    return $ret;
}

sub Match_new {
    my($b,$s,$a,$h,$from,$to)=@_;
    Match->new('$.val_bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1772	1980	
==>' => .value )
            )
        ) } }
    );
}

###########################################################################

proto method export_attrs of Relation::LaxAttrList () {...}

proto method export <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14140	14272	
==>ew(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*I <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14140	14272	
==>ew(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*I <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	913	1029	
==>)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1094	1210	
==>)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1273	1389	
==>)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37442	37578	
==>);
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37442	37578	
==>);
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37442	37578	
==>);
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4582	4680	
==>name = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4582	4680	
==>name = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4582	4680	
==>name = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	446	553	
==>"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	446	553	
==>"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	446	553	
==>"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5872	5957	
==>n by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/T <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5872	5957	
==>n by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6713	6814	
==>normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remov <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6713	6814	
==>normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remov <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13415	13502	
==>D0|D]) }.% [42,120]="0x"
hexdigits([D|T]) --> hexdigit(D), hexdigits(T), !.
hexdigits([] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5476	5649	
==>ndefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5476	5649	
==>ndefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5476	5649	
==>ndefine the value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5198	5300	
==>self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5198	5300	
==>self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5198	5300	
==>self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22335	22458	
==>$self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18756	18879	
==>$self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5124	5229	
==>ht->fetch($i)) != bit->new(1);
    }
    return bit->new(1);
}

package closure::env;

use strict;
use war <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3710	3819	
==>odule)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3768	3877	
==>odule)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	491	583	
==>rst';
use Regexp::Common qw/balanced delimited/;
use Pod::Simple::HTML;
use Pod::PlainText;
u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	573	675	
==>thod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $conte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	573	675	
==>thod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $conte <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5345	5465	
==>ch->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5345	5465	
==>ch->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	91	200	
==>heck];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8632	8828	
==>nboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8632	8828	
==>nboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8632	8828	
==>nboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	455	547	
==>->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	455	547	
==>->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	455	547	
==>->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2802	2927	
==>nents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2802	2927	
==>nents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2802	2927	
==>nents, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_a <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	49	145	
==>rder Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevie <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	50	146	
==>rder Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevie <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	50	146	
==>rder Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	152	269	
==>{
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	152	269	
==>{
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	152	269	
==>{
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5260	5410	
==>value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5260	5410	
==>value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5260	5410	
==>value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 )
            }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1629	1762	
==>$flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1573	1703	
==>$flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20507	20613	
==>f);
    }    
}

(method DESTROYALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14	114	
==>ire URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::B <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14	114	
==>ire URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::B <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	941	1048	
==>h our callback on @:events.
    ./:enqueue({
      my $result = $session.dispatch($event, *@args);
      $re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4207	4312	
==>map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4207	4312	
==>map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	162	296	
==>od _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.pus <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	162	296	
==>od _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.pus <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9654	9767	
==>haracter>
    | <NonEscapeCharacter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	954	1050	
==>ulti sub Array::grep (@values,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2024	2119	
==>rialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1948	2039	
==>rialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compile <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1648	1765	
==>wfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1071	1181	
==>), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1071	1181	
==>), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2694	2819	
==>$role->id . " [ dir = back, style = solid, color = orange ];\n";       
    }       
    return $output;
}

open OUTFILE, ">", <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4576	4677	
==>() ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4769	4870	
==>() ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3384	3490	
==>fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3265	3366	
==>fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3600	3696	
==>|head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7681	7859	
==>sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7681	7859	
==>sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7681	7859	
==>sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5377	5484	
==>ead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available
when linking t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5377	5484	
==>ead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available
when linking t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5377	5484	
==>ead linked to
using the HTML tag "<script src=...>". Of course, this feature is not available
when linking t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7683	7785	
==>\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9611	9713	
==>\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7671	7773	
==>\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9541	9672	
==>t;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9541	9672	
==>t;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9541	9672	
==>t;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	693	797	
==>2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	693	797	
==>2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	693	797	
==>2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3733	3847	
==>in_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3733	3847	
==>in_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3733	3847	
==>in_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2727	2813	
==>cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2727	2813	
==>cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2727	2813	
==>cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2739	2833	
==>s, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of th <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2739	2833	
==>s, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of th <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	869	987	
==>ase}++
    }
    %terms
}

sub addtolist ($x){
    " $x,";    
}

sub append_last ($x,$string is rw,$pass){
    if $pas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18517	18771	
==>m";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18517	18771	
==>m";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18517	18771	
==>m";
                    if ( $method eq 'store' && @param == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	144	241	
==>37510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	144	241	
==>37510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	144	241	
==>37510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3810	3933	
==>f = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3810	3933	
==>f = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3810	3933	
==>f = shift;                        
    ::opaque_instance_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	139	270	
==>b new {
    my $class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19245	19342	
==>rogram would be editing them.  At
the same time, this information is in separate resource files us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19245	19342	
==>rogram would be editing them.  At
the same time, this information is in separate resource files us <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4627	4773	
==>, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5279	5425	
==>, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmp <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1388	1488	
==>mp>);

 type KeyExtractor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns In <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	27	140	
==>nth of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.m <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	27	140	
==>nth of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	26	111	
==>londie::Compiler;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13452	13585	
==>{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13452	13585	
==>{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13452	13585	
==>{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2201	2326	
==>" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2201	2326	
==>" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2201	2326	
==>" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8271	8382	
==>rn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8271	8382	
==>rn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8271	8382	
==>rn bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2690	2798	
==>- upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2690	2798	
==>- upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2690	2798	
==>- upgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36067	36177	
==>e offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36067	36177	
==>e offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36067	36177	
==>e offset, negative length
            #  tail=pop length -> head=remaining -> body=shift tail until tail == len <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2507	2617	
==>f);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2507	2617	
==>f);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2507	2617	
==>f);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|A <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34477	34578	
==>r Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34477	34578	
==>r Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my Loc <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	609	707	
==>e until the role is included in the class.

This has the effect of making C<Role> objects appear to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	362	469	
==>1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19898	19994	
==>ges its
resources.  It is the standard practice for Mac OS X programs, including
the operating sy <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19898	19994	
==>ges its
resources.  It is the standard practice for Mac OS X programs, including
the operating sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7700	7854	
==>'$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7700	7854	
==>'$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7700	7854	
==>'$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23927	24024	
==>n($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23927	24024	
==>n($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23927	24024	
==>n($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1090	1187	
==>ub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1090	1187	
==>ub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1090	1187	
==>ub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11095	11194	
==>intf"Run took: %.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7175	7267	
==>mmon API, which permits the intercommunication 

of data about: backtracking, aborting, captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6930	7021	
==>mmon API, which permits the intercommunication 
of data about: backtracking, aborting, captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14677	14769	
==>:rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14677	14769	
==>:rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14677	14769	
==>:rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::ru <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6642	6913	
==>new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App->new(
                                Sym-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7391	7480	
==>ts, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1216	1305	
==>ts, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	479	596	
==>}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	479	596	
==>}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	479	596	
==>}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3652	3753	
==>ption )>

Marks that the next test should pass.  C<$description> is the optional
description of the te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3652	3753	
==>ption )>

Marks that the next test should pass.  C<$description> is the optional
description of the te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3732	3833	
==>ption )>

Marks that the next test should pass.  C<$description> is the optional
description of the te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2040	2150	
==>line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2040	2150	
==>line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34036	34129	
==>mily: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 anyof_range

Family <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7665	7762	
==>itive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@arrays } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7665	7762	
==>itive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@arrays } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7665	7762	
==>itive is rw { zip *@arrays }
sub infix:«¥» (Array *@arrays) is primitive is rw { zip *@arrays } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11616	11776	
==>{
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11616	11776	
==>{
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11616	11776	
==>{
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1836	1964	
==>or (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1836	1964	
==>or (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1836	1964	
==>or (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13255	13354	
==>f->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $self->reduce($thunk) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3366	3458	
==>q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3366	3458	
==>q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1267	1388	
==>ers
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %p <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1267	1388	
==>ers
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3268	3367	
==>a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3268	3367	
==>a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Spa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7812	7906	
==>turn get_data( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    return emit($_[0 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7661	7774	
==>[1] )";
	} else {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11356	11448	
==>_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11356	11448	
==>_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) re <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2901	3036	
==>_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ } # XXX - $/<bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1133	1235	
==>}
method end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1133	1235	
==>}
method end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	679	780	
==>= value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	679	780	
==>= value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	679	780	
==>= value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11795	11910	
==>)) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11795	11910	
==>)) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11795	11910	
==>)) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9063	9185	
==>D();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9063	9185	
==>D();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9063	9185	
==>D();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	577	698	
==>r($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	554	670	
==>r($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return un <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5529	5641	
==>named{$name} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1954	2050	
==>r $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1954	2050	
==>r $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $va <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2501	2589	
==>use Blondie::Emitter::Pretty;

	print Blondie::Emitter::Pretty->new->string($program);

= <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19415	19523	
==>tartp;
  I32 *endp;

Length is nparens+1.
startp[n] is the starting offset in subbeg,
endp[n] is the offset o <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	343	441	
==>_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information a <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	343	441	
==>_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1195	1319	
==>, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1195	1319	
==>, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1195	1319	
==>, {name} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12610	12707	
==>wags per second, or holidays per month.

It is also used when the objects represent "chunks" of da <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12610	12707	
==>wags per second, or holidays per month.

It is also used when the objects represent "chunks" of da <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13307	13394	
==>pl_var name=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed</s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1307	1414	
==>ns - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1307	1414	
==>ns - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any ot <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1307	1414	
==>ns - add, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any ot <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1452	1596	
==>UE;    
        
    push @classes => $supers->to_native;    
        
    foreach my $class (@classes) {
        my $methods = $class->get_attr( <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1422	1523	
==>BJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to cl <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1422	1523	
==>BJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to cl <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5578	5674	
==>.  If you need that information you should use the full OO
interface (see L<LWP::UserAgent>).

=i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5578	5674	
==>.  If you need that information you should use the full OO
interface (see L<LWP::UserAgent>).

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9405	9600	
==>ilder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$d <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2332	2427	
==>Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all exce <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2332	2427	
==>Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all exce <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1976	2127	
==>e) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1976	2127	
==>e) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1976	2127	
==>e) {
        if (!Perl5) throw "Perl5 required.";
        Perl5.perl_use("IO::File");
        return Perl5.perl_eval("(sub { local $/; my $f = IO::File- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18588	18698	
==>nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19946	20056	
==>nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22394	22490	
==>eading")
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1746	1879	
==>b _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1746	1879	
==>b _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1746	1879	
==>b _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $sel <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3257	3354	
==>args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3257	3354	
==>args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1595	1684	
==>to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5037	5140	
==>or %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache35 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5037	5140	
==>or %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache35 <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2355	2448	
==>x.round_away_from_zero
		!! $x.round_ceiling
}

our Int multi Num::round_down (Num $x, int $sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14625	14764	
==>s}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14625	14764	
==>s}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14625	14764	
==>s}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	315	437	
==>bute name ($name)";
    $class->SUPER::new($name, $type);
}

sub instantiate_container {
    my $self = shift;
    return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13442	13641	
==>next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13442	13641	
==>next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13442	13641	
==>next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1642	1750	
==>p) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1642	1750	
==>p) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1642	1750	
==>p) { join $sep, *@self }
sub JS::Root::join(Str $sep, *@things) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4923	5027	
==>pe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4923	5027	
==>pe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4923	5027	
==>pe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3661	3869	
==>ethod_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3661	3869	
==>ethod_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3661	3869	
==>ethod_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	125	254	
==>ate:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	125	254	
==>ate:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	125	254	
==>ate:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	628	738	
==>ere defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descenda <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	628	738	
==>ere defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descenda <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	628	738	
==>ere defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descenda <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1557	1665	
==>$ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1557	1665	
==>$ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1557	1665	
==>$ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2237	2348	
==>die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2237	2348	
==>die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2237	2348	
==>die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10497	10623	
==>perly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10497	10623	
==>perly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10497	10623	
==>perly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	274	380	
==>quest</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	274	380	
==>quest</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</ <==
3	/Users/nnunley/pugs/util/claim_drift.pl	787	895	
==>real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = File::S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3074	3169	
==>on, the following request headers are set on the HTTP::Headers object,
if they are present:

=ov <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3074	3169	
==>on, the following request headers are set on the HTTP::Headers object,
if they are present:

=ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2096	2273	
==>m;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2096	2273	
==>m;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2096	2273	
==>m;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37284	37465	
==>array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FET <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37284	37465	
==>array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FET <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37284	37465	
==>array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1839	1946	
==>{
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1839	1946	
==>{
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1839	1946	
==>{
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13953	14083	
==>kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17430	17560	
==>kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16810	16940	
==>kinds of combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4331	4469	
==>}
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4331	4469	
==>}
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4331	4469	
==>}
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	395	501	
==>) || 'FrontPage';
my $entry      = join("\n", param('entry') || %wiki{$topic});
if ($topic eq "OverView") { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1660	1750	
==>L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1660	1750	
==>L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1537	1663	
==>ny previous "name"

    $self->find_dyn_sym("name"); # returns $value

    $self->leave_scope; # deletes pads since last enter_ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2129	2237	
==>ory from where script was invoked
    $Script      - basename of script from which perl was invoked
    $Real <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2129	2237	
==>ory from where script was invoked
    $Script      - basename of script from which perl was invoked
    $Real <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10441	10554	
==>-------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10441	10554	
==>-------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10441	10554	
==>-------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1505	1600	
==>:inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1505	1600	
==>:inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1505	1600	
==>:inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12002	12183	
==>=> sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12002	12183	
==>=> sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12002	12183	
==>=> sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5103	5246	
==>tr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $mult <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5103	5246	
==>tr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $mult <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5103	5246	
==>tr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19627	19717	
==>>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19627	19717	
==>>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19627	19717	
==>>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	753	880	
==>or => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	753	880	
==>or => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	753	880	
==>or => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_us <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11386	11521	
==>e'>$whole</a>";
        $links++;
        next;
      }
      
      $linkhead = $1 if ($linkhead =~ /^"(.*)"$/);
#     $body->push_cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8744	8837	
==>ist(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2569	2662	
==>ist(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12660	12758	
==>o used when the objects represent "chunks" of data, such as date objects without the time part.

Di <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12660	12758	
==>o used when the objects represent "chunks" of data, such as date objects without the time part.

Di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28718	28810	
==>ject.  These are any of: alnum, anchor,
anyof, anyof_char, anyof_class, anyof_range, assertio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	19	121	
==>text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	19	121	
==>text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	19	121	
==>text:) { say   $text }
method print (Str $text:) { print $text }

sub JS::Root::say(Str *@text)   is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6519	6635	
==>b postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6519	6635	
==>b postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6519	6635	
==>b postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15509	15608	
==>rs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15509	15608	
==>rs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15509	15608	
==>rs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx->key, $xx->val <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1079	1175	
==>r providing the compiler with replacement
data for stubs and other thingies.

It also gives the c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	566	656	
==>version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	566	656	
==>version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gram <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15451	15550	
==>tributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!at <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15451	15550	
==>tributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!at <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27875	27972	
==>e values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32427	32524	
==>e values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31519	31616	
==>e values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical to <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14166	14484	
==>le,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_fil <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10378	10466	
==>\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef"," <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11113	11201	
==>\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef"," <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15629	15730	
==>nd not $ENV{HARNESS_NOTTY} and not $Verbose;

    return($leader, $ml);
}

=item B<_leader_width>

  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	371	469	
==>est_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	371	469	
==>est_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7130	7280	
==>=> 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7130	7280	
==>=> 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_pe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17657	17770	
==>AILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17559	17727	
==>und for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17559	17727	
==>und for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17559	17727	
==>und for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	928	1032	
==>mmar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::F <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3559	3668	
==>unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3559	3668	
==>unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4080	4188	
==>e_on_bad_params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(print_to => *STDOUT);

  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1250	1358	
==>d $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1250	1358	
==>d $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1250	1358	
==>d $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]);

$::Role->add_attribute('@:roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	949	1041	
==>($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	949	1041	
==>($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	949	1041	
==>($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1001	1099	
==>x) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1001	1099	
==>x) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1001	1099	
==>x) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17182	17282	
==>$?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20659	20759	
==>$?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20237	20337	
==>$?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6794	6913	
==>"", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6794	6913	
==>"", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6794	6913	
==>"", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) }) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31382	31475	
==>the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35932	36025	
==>the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35150	35243	
==>the argument C<$predicate> returns
True when given the tuple/Mapping as its sole read-only arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14259	14362	
==>w( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14259	14362	
==>w( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14259	14362	
==>w( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1162	1275	
==>$indent-1)) . ")";
	} else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19629	19727	
==>hes to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19629	19727	
==>hes to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	434	531	
==>nd join around the macro string.  But perhaps there
should be a Helpers::join_map ns, { "...$^n... <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5650	5742	
==>e L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C<he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5650	5742	
==>e L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C<he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6188	6395	
==>ethod_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6188	6395	
==>ethod_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6188	6395	
==>ethod_name => ::make_private_method(
                        $body->{methods}->{$method_name}
                    ));                    
                }
                else {
                    $new_role <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4398	4505	
==>ch->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4410	4517	
==>ch->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4752	4862	
==>"Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4752	4862	
==>"Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4752	4862	
==>"Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{j <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18525	18655	
==>turn Relation::Example.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16736	16830	
==>ne could write a self-contained application in
Rosetta D and compile that into its own executab <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16736	16830	
==>ne could write a self-contained application in
Rosetta D and compile that into its own executab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	672	772	
==>rom MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	672	772	
==>rom MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	672	772	
==>rom MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	609	744	
==>l  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11533	11642	
==>~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11533	11642	
==>~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2921	3020	
==>infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2921	3020	
==>infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2921	3020	
==>infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:« <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1642	1763	
==>urrent tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1642	1763	
==>urrent tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2377	2474	
==>y, who created the HTML-ified ecma-262, without which
#  this grammar would likely not have been w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2526	2749	
==>xed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2526	2749	
==>xed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2526	2749	
==>xed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) un <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17796	17886	
==>ion>
    | <LogicalANDExpression> <'&&'> <BitwiseORExpression>
}
rule LogicalANDExpressionN <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6846	7011	
==>ext unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	73	172	
==>his should really be an acccessor - all it's doing is making the
# "source" property of the object f <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	73	172	
==>his should really be an acccessor - all it's doing is making the
# "source" property of the object f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1569	1685	
==>et );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1569	1685	
==>et );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = P <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31170	31266	
==>alues applied to each tuple.  The new Relation::Example has all
of the tuples of the original (or <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1221	1329	
==>hObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_
  my ( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1402	1493	
==>rl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1402	1493	
==>rl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	197	331	
==>ader> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	197	331	
==>ader> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2209	2319	
==>f->{$stage};
	return 1 if defined $result && $result->has_failed();
    }
    return 0;
}
sub warnings {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3729	3828	
==>al$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3729	3828	
==>al$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3729	3828	
==>al$lvalue_fix[1]) };
};
var coroyieldcc = function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22654	22744	
==>ception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Cl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22654	22744	
==>ception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	764	872	
==>L2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	764	872	
==>L2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	764	872	
==>L2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body}->($self->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13120	13262	
==>y $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20026	20122	
==>anguage data in separate
files (usually XML files I think) from the main program binary.  Each us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20026	20122	
==>anguage data in separate
files (usually XML files I think) from the main program binary.  Each us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11746	11904	
==>less $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11746	11904	
==>less $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11746	11904	
==>less $thing->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9970	10154	
==>ar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9970	10154	
==>ar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9970	10154	
==>ar
                if ( ! Perl6::Value::p6v_isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1149	1261	
==>tive());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8263	8373	
==>tringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8263	8373	
==>tringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8263	8373	
==>tringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify($other)."\n";
    #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14953	15052	
==>TI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14953	15052	
==>TI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14953	15052	
==>TI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7188	7301	
==>h @index_files, file($path.'.index');
        push @index_files, map { $path->file($_) }
                $self->_i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18996	19092	
==>::KeyedText is only meant to be used with user text that is
associated with hard-coded program co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18996	19092	
==>::KeyedText is only meant to be used with user text that is
associated with hard-coded program co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10972	11087	
==>$subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10972	11087	
==>$subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10972	11087	
==>$subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8600	8711	
==>RepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = recurse($v0);
    $s = "\"$v0\"" if <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40235	40328	
==>USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent no <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40235	40328	
==>USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1085	1191	
==>porarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1085	1191	
==>porarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1085	1191	
==>porarily implemented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5919	6014	
==>->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5919	6014	
==>->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5919	6014	
==>->custom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1338	1431	
==>s},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1338	1431	
==>s},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1338	1431	
==>s},
  "p6preludepc=s" => \$PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	667	790	
==>curse_resolve {
    my @deps = @_;    
    
    ### we need at least the deps provided, plus whatever /they/ need
    my @rv <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1115	1230	
==>curse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, plus whatever /they/ need
    my @rv <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	151	258	
==>ear;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs that get dec <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	565	751	
==>ackage'\n" unless $tried;
}                        

### XXX merge with pp_deps.pl            
sub _recurse_resolve {
    my @deps = @_;    
    
    ### we need at least the deps provide <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	754	869	
==>ail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	765	880	
==>ail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1001	1122	
==>, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4479	4600	
==>, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3382	3503	
==>, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Rel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4624	4747	
==>e'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4817	4940	
==>e'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capt <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16370	16478	
==>ot);

    if (_all_ok($tot)) {
        print "All tests successful$bonusmsg.\n";
    } elsif (!$tot->{tests}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12846	12978	
==>r ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12846	12978	
==>r ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12846	12978	
==>r ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4186	4306	
==>->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_des <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4186	4306	
==>->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_des <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4186	4306	
==>->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_des <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5327	5449	
==>niverse,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5327	5449	
==>niverse,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2635	2811	
==>as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_var <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2635	2811	
==>as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_var <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6826	6927	
==>eConnectorPunctuation {  # see 7.6
      # any character in the Unicode category "Connector punctuatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1769	1883	
==>n method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1769	1883	
==>n method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1769	1883	
==>n method.apply(method, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2157	2281	
==>s variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2157	2281	
==>s variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2504	2628	
==>s variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8896	9060	
==>s );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::NullPlan.new();
      }
      else
      {
          fail "Unknown p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1052	1200	
==>s );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1052	1200	
==>s );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::NullPlan.new();
    }
    else
    {
        fail "Unknown p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5629	5747	
==>E = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5629	5747	
==>E = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5629	5747	
==>E = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17183	17273	
==>_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17183	17273	
==>_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17183	17273	
==>_methods'));
$::Class->add_attribute('%:attributes'       => ::make_attribute('%:attributes <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4839	4934	
==>($self,$fname)=@_;
    ($self->{'field_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPer <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	260	348	
==>s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	260	348	
==>s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_va <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1349	1449	
==>weaken self-referential things

sub alternation {
    # alternation is first match (not longest).  th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1349	1449	
==>weaken self-referential things

sub alternation {
    # alternation is first match (not longest).  th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11056	11159	
==>ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11056	11159	
==>ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11056	11159	
==>ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_cont <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10398	10520	
==>kies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10398	10520	
==>kies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	127	227	
==>ne supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	127	227	
==>ne supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	127	227	
==>ne supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1935	2033	
==>$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multim <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1935	2033	
==>$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multim <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1935	2033	
==>$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multim <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3723	3819	
==>ions to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3723	3819	
==>ions to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5147	5242	
==>= ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1657	1792	
==>$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1657	1792	
==>$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    m <==
3	/Users/nnunley/pugs/util/package-osx.pl	6589	6686	
==>artmatch.3
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15687	15819	
==>t)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15687	15819	
==>t)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15687	15819	
==>t)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	925	1043	
==>ess { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	925	1043	
==>ess { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	925	1043	
==>ess { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedPair" } => "P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5590	5698	
==>ib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5590	5698	
==>ib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5590	5698	
==>ib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8075	8191	
==>"no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8075	8191	
==>"no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8075	8191	
==>"no strict;\n".$code;
    #print $code;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34153	34305	
==>et('$return' => bit->new(1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatche <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14558	14655	
==>This module will be the code support for those needs. The
following is a list of future features p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14616	14713	
==>This module will be the code support for those needs. The
following is a list of future features p <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1607	1703	
==><i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengt <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1607	1703	
==><i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5641	5744	
==>ub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5641	5744	
==>ub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5641	5744	
==>ub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	974	1096	
==>refs';
        my $code = eval($program);
        print "Error in statement:\n", $program if $@;
        die "error in imme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1136	1233	
==>s reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import ro <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1136	1233	
==>s reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import ro <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3883	3989	
==>red sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc186 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3883	3989	
==>red sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc186 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1577	1681	
==>[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1577	1681	
==>[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1577	1681	
==>[0,3]
#
# 2005-08-12
# * store(List) actually means store([List])
# * fixed new(), elems(), pop(), shift( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2889	3011	
==>plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2889	3011	
==>plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15020	15120	
==>tiveExpression :words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpression> <'+'> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2681	2776	
==>the given string, seperating it into 'name' and 'value' pairs.  This
method should be called bef <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2681	2776	
==>the given string, seperating it into 'name' and 'value' pairs.  This
method should be called bef <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1313	1408	
==>self->{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10220	10328	
==>args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style error messages instead of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6185	6326	
==>already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6185	6326	
==>already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6185	6326	
==>already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we stub it out ...
                #$self->add_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3396	3532	
==>tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'H <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3396	3532	
==>tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'H <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9234	9351	
==>antifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25340	25437	
==>nteract with the outside environment at all.

A Message object has two main attributes:

=over

=i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25340	25437	
==>nteract with the outside environment at all.

A Message object has two main attributes:

=over

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	385	497	
==>ox.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	385	497	
==>ox.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	385	497	
==>ox.Proxy(
      function () {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16226	16329	
==>:Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16226	16329	
==>:Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16226	16329	
==>:Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9393	9501	
==>w;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9393	9501	
==>w;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9393	9501	
==>w;  # makes the roles mutator/accessor

    # -----------------------------------------------      
    # thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10567	10707	
==>if this is the first branch
    else {
      $self->{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	624	731	
==>cal $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::ge <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	624	731	
==>cal $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4987	5103	
==>)" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4987	5103	
==>)" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4987	5103	
==>)" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8546	8688	
==>e}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8546	8688	
==>e}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8546	8688	
==>e}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1087	1191	
==>od

=head1 NAME

str - the core str type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14061	14160	
==>f->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8266	8365	
==>f->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	141	246	
==>nction (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	141	246	
==>nction (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	141	246	
==>nction (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2917	3093	
==>Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2917	3093	
==>Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2917	3093	
==>Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2093	2237	
==>ds available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2093	2237	
==>ds available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2093	2237	
==>ds available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	290	387	
==>ined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	290	387	
==>ined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	290	387	
==>ined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7787	7898	
==>E

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for yo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7787	7898	
==>E

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for yo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7787	7898	
==>E

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for yo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6772	6867	
==>ole->add_method('resolve' => ::make_method($_resolve));

## ------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6772	6867	
==>ole->add_method('resolve' => ::make_method($_resolve));

## ------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6772	6867	
==>ole->add_method('resolve' => ::make_method($_resolve));

## ------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24617	24711	
==>>

This method returns this Relation's "is mutable" boolean attribute.

=item C<heading () retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29169	29263	
==>>

This method returns this Relation's "is mutable" boolean attribute.

=item C<heading () retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	231	357	
==>"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # print D <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7715	7817	
==>zy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7715	7817	
==>zy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4378	4497	
==>) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4378	4497	
==>) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same go <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4378	4497	
==>) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the same go <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2810	2946	
==>ift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2810	2946	
==>ift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2810	2946	
==>ift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4875	5035	
==>);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4875	5035	
==>);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of t <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6013	6116	
==>l>+<C>).
HELP

step
  descr  => "Checking for Linux",
  help   => "This program needs Linux to run corre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1043	1148	
==>:Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document conta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1043	1148	
==>:Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document conta <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7919	8008	
==>ier_scope(M,group_modify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2979	3110	
==>ry',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	882	986	
==>->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin}->in <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2717	2812	
==>->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin}->in <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2187	2317	
==>on}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ /osname: ([\w\d]+)/      and $smoke{osnam <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1159	1277	
==>ge',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1159	1277	
==>ge',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	986	1101	
==>$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	986	1101	
==>$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	986	1101	
==>$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2282	2375	
==>r::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2371	2464	
==>r::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1888	2001	
==>= _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1888	2001	
==>= _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2124	2237	
==>= _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15351	15455	
==>I SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15351	15455	
==>I SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15351	15455	
==>I SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17429	17563	
==>est scripts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19268	19365	
==>connected>

Returns a true value if the bot's socket to the server is currently connected.

Note t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19268	19365	
==>connected>

Returns a true value if the bot's socket to the server is currently connected.

Note t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4428	4528	
==>}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4428	4528	
==>}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4428	4528	
==>}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	117	366	
==>yedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	117	366	
==>yedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is reado <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8994	9110	
==>d:

  my $root = $parser->root;

It will be an array reference of objects.

=head2 Getting the OPEN Count

You can ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	338	464	
==>';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	543	669	
==>';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	599	725	
==>';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy at <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2700	2877	
==>start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2700	2877	
==>start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11130	11227	
==>%params) returns opaque {
    $class.bless(undef, %params // hash());
}

(method new ((opaque $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9166	9279	
==>od(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9166	9279	
==>od(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9166	9279	
==>od(sub {
    my $self = shift;
    # ...
}));

=pod

------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	800	915	
==>ng_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	800	915	
==>ng_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.po <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2603	2686	
==>y $subscription = Class::Events::Subscription::Named.new(:name($name), :subscriber($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1065	1169	
==>eme-like syntax 
# with Attribute Grammers (stolen from Haskell (I think))

class SExpParser     
    def <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6423	6521	
==>t $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) r <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6423	6521	
==>t $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	230	339	
==>rgs5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	230	339	
==>rgs5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	230	339	
==>rgs5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4038	4195	
==>elf = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { required => 1, store => \$file }
    };

    check( $tmpl, \%hash ) or error <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10844	10951	
==>n AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_nod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10844	10951	
==>n AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_nod <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2287	2409	
==>:Prim->new(
					arity => 3,
					name => '&cast',
					body => \&do_cast,
					type => [ "Type" => "Type" => $to ],
				), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2759	2858	
==>ompiler could work as the

basic interface, and if you'd like to offer more, subclass

it and call i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2657	2754	
==>ompiler could work as the
basic interface, and if you'd like to offer more, subclass
it and call i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13319	13440	
==>] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13319	13440	
==>] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13319	13440	
==>] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_cl <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6334	6431	
==>d2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6334	6431	
==>d2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Ev <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6172	6304	
==>ss the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5975	6099	
==>ss the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6556	6673	
==>tput();
    close $fh;
}

# Generating directory indices
for (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
} <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2208	2328	
==>thod as (--> Array) { @.strings }
        multi method as (--> Named) { $.name => self }
    }

    class Getopt::Argumen <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3773	3869	
==>() method repeatedly 
with your data.  Finally, call the finish() method to return any leftover d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3773	3869	
==>() method repeatedly 
with your data.  Finally, call the finish() method to return any leftover d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15885	15991	
==>, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15885	15991	
==>, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15885	15991	
==>, $args, $is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11848	11969	
==>is} }, @{ $self->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	724	842	
==>ocket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	691	809	
==>ocket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	491	603	
==>tes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at leas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	491	603	
==>tes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at leas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	13	138	
==>PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	13	138	
==>PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	13	138	
==>PNoop;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1902	2014	
==>") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1902	2014	
==>") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1902	2014	
==>") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5314	5435	
==>hould fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5314	5435	
==>hould fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5314	5435	
==>hould fail() here, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7130	7218	
==>attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7130	7218	
==>attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7130	7218	
==>attr($self => '$:authority');
}));

$::Module->add_method('identifier' => ::make_method(s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2781	2890	
==>thDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.mont <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2781	2890	
==>thDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.mont <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1781	1878	
==>=> $named, positional => $positional,
	   invocant => $invocant,
	   named_slurpy => $named_slurpy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13959	14083	
==>ultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13959	14083	
==>ultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13959	14083	
==>ultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6855	6972	
==>ill = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6855	6972	
==>ill = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6855	6972	
==>ill = (new Date).getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigato <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14526	14639	
==>el :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, St <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14526	14639	
==>el :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25781	25971	
==>art;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25781	25971	
==>art;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25781	25971	
==>art;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4557	4650	
==>me] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_named <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4557	4650	
==>me] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_named <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4557	4650	
==>me] != undefined) {
  $jsname = $undef.BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_named <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	87	189	
==>nd reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	87	189	
==>nd reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	87	189	
==>nd reblesses most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1304	1404	
==>=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1304	1404	
==>=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1304	1404	
==>=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3487	3650	
==>{
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3487	3650	
==>{
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	195	291	
==>PTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX => 4;
u <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1722	1866	
==>hildren() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the cur <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1722	1866	
==>hildren() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the cur <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17839	17973	
==>i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($fmt,$st <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	554	658	
==>$inv) && $inv->isa('opaque'))
        || confess "The invocant must be an opaque type";
    $self->SUPER: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	664	760	
==>r_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	722	818	
==>r_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7172	7299	
==>k_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7172	7299	
==>k_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7172	7299	
==>k_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3880	3980	
==>[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; t <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3880	3980	
==>[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1776	1869	
==>TP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
EN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7536	7702	
==>mit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1} ) {
            # %var< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13384	13490	
==>rce =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13384	13490	
==>rce =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37681	37781	
==>ding common tuple values
are aligned and merged.  The heading of the new relation is the union of
all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42230	42330	
==>ding common tuple values
are aligned and merged.  The heading of the new relation is the union of
all <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41880	41980	
==>ding common tuple values
are aligned and merged.  The heading of the new relation is the union of
all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	365	498	
==>essage is copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13301	13417	
==>self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13301	13417	
==>self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13301	13417	
==>self, $label, %params) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
});


::Class.meta.add_method( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5707	5878	
==>if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $siz <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4207	4378	
==>if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $siz <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	839	938	
==>::int_size($n) {
  'subset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~$n~' <= $^n <  2**'~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	102	211	
==>he MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	102	211	
==>he MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	102	211	
==>he MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', method (%params) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8553	8659	
==>nboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8553	8659	
==>nboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8553	8659	
==>nboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	147	258	
==>ir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	147	258	
==>ir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	147	258	
==>ir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS needs the Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	267	429	
==>erl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	267	429	
==>erl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	267	429	
==>erl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3075	3208	
==>abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3075	3208	
==>abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3075	3208	
==>abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21942	22031	
==>als::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21942	22031	
==>als::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21942	22031	
==>als::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9580	9693	
==>{
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9580	9693	
==>{
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9580	9693	
==>{
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->elem <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6139	6239	
==>th perform the Test::Builder::Test::WithReason role
and override some methods to provide additional f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6139	6239	
==>th perform the Test::Builder::Test::WithReason role
and override some methods to provide additional f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8336	8436	
==>th perform the Test::Builder::Test::WithReason role
and override some methods to provide additional f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7253	7379	
==>up_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7253	7379	
==>up_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7253	7379	
==>up_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10778	10905	
==>CT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10778	10905	
==>CT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23545	23713	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23824	23992	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14530	14644	
==>);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8732	8846	
==>);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    retur <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4119	4222	
==>ome_p6
    --welcome-p6 is a Perl 6 program runnable by Pugs which will
    introduce Pugs.
  --splashsc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5412	5510	
==>ub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5412	5510	
==>ub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5412	5510	
==>ub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2536	2643	
==>IN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2536	2643	
==>IN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2536	2643	
==>IN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'js';
$run = "js_on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8985	9140	
==>lue' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8985	9140	
==>lue' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8985	9140	
==>lue' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5330	5427	
==>ocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calcula <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5330	5427	
==>ocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calcula <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9160	9290	
==>hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "has <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13011	13138	
==>hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "has <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13011	13138	
==>hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "has <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	655	779	
==>pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	655	779	
==>pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    re <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	400	503	
==>. VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5053	5162	
==>e::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" inste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5053	5162	
==>e::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" inste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5053	5162	
==>e::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" inste <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9273	9412	
==>mmar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10109	10248	
==>mmar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in ma <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19669	19790	
==>method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P0
    $P1 = self[1]
    $P1 = $P1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16086	16196	
==>,
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unimplemented.
      ref   => sub { $as_p6obj_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4605	4702	
==>elopment version.  The API is still in flux.

The set of implemented features depends on the C<rat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4855	4952	
==>elopment version.  The API is still in flux.

The set of implemented features depends on the C<rat <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6937	7078	
==>n")};
    for %mods.keys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9098	9216	
==>try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9086	9204	
==>try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1084	1199	
==>ew PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1084	1199	
==>ew PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1084	1199	
==>ew PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1959	2060	
==>depc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1959	2060	
==>depc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1959	2060	
==>depc_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6671	6790	
==>mmar_perl5 {
    my $self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( inpu <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2067	2179	
==>e is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        retur <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2067	2179	
==>e is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5816	5912	
==>ter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5816	5912	
==>ter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5816	5912	
==>ter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::R <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1798	1923	
==>file);
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{'values'}{'features'} <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10183	10288	
==>, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10183	10288	
==>, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } ) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4990	5108	
==>PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PB <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4990	5108	
==>PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PB <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1894	2012	
==>PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6134	6223	
==>:inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6134	6223	
==>:inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6134	6223	
==>:inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2798	2896	
==>ace, and if you'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2695	2790	
==>ace, and if you'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Co <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3751	3842	
==>om>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWL <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3751	3842	
==>om>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWL <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5378	5568	
==>e.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8855	9045	
==>e.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7875	8065	
==>e.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8250	8397	
==>as ", _qq($orig->{$key}),
                     " now ", _qq($value), "\n";
        $fail = 1;
      }
    } else {
      print STDOUT "# key ", _qq( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32300	32395	
==>Text expects its Template modules to come
from Perl modules, but in the future they may alternat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32300	32395	
==>Text expects its Template modules to come
from Perl modules, but in the future they may alternat <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	664	769	
==>is export { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       return <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	664	769	
==>is export { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	77	177	
==>ags
  $self->add_flag('m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 });
  $self->add_flag(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4183	4352	
==>thod($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4183	4352	
==>thod($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4183	4352	
==>thod($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3079	3180	
==>methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3079	3180	
==>methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3079	3180	
==>methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL::fail("Method names must be simple strings!" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2467	2568	
==>y longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2467	2568	
==>y longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2467	2568	
==>y longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8257	8464	
==>ubmethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8257	8464	
==>ubmethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8257	8464	
==>ubmethod::FORCE) 
                     &&
                     ${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1007	1104	
==>ault stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..' <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1007	1104	
==>ault stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12632	12814	
==>>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12632	12814	
==>>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12632	12814	
==>>name } = $ary;
                            # $bound_params{ ${$self->params}[$i]->name } = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7194	7287	
==>Object::singleton_test_on_object',
  '... still got the right return value from first Object s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8189	8282	
==>Object::singleton_test_on_object',
  '... still got the right return value from first Object s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10758	10851	
==>Object::singleton_test_on_object',
  '... still got the right return value from first Object s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20765	20905	
==>bstr cname, 0, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setreps:
    isarray = 0
    reps = p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31957	32055	
==>in program would check each
of the 3 Template module sets in turn, looking at just the set member f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31957	32055	
==>in program would check each
of the 3 Template module sets in turn, looking at just the set member f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8922	9034	
==>n violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8922	9034	
==>n violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8922	9034	
==>n violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6067	6255	
==>] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6067	6255	
==>] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6067	6255	
==>] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13886	14054	
==>s defined $skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14533	14636	
==>=> 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14533	14636	
==>=> 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3385	3492	
==>erl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3385	3492	
==>erl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3385	3492	
==>erl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6071	6187	
==>,
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6071	6187	
==>,
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6071	6187	
==>,
		      func => sub { print encode "utf-8", "@_" });

  my $rc = $ct->eval($js);
  warn "JavaScript: $@" if $@;
  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5387	5491	
==>TI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5387	5491	
==>TI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5387	5491	
==>TI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	574	686	
==>ur @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	574	686	
==>ur @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	574	686	
==>ur @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      j <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9569	9711	
==>reason      = '', 
          ?$description = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2624	2745	
==>er {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGT <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2624	2745	
==>er {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGT <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35938	36036	
==>ding common tuple values are aligned and merged.  The heading
of the new relation is the union of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40488	40586	
==>ding common tuple values are aligned and merged.  The heading
of the new relation is the union of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40102	40200	
==>ding common tuple values are aligned and merged.  The heading
of the new relation is the union of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7654	7774	
==>rcumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7654	7774	
==>rcumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7654	7774	
==>rcumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS version of :g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1837	1959	
==>ken eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1837	1959	
==>ken eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1837	1959	
==>ken eq 'method') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whitespace <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6727	6825	
==>ut <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" c <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6785	6883	
==>ut <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1472	1583	
==>would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1472	1583	
==>would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1472	1583	
==>would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	89	177	
==>itive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	89	177	
==>itive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	89	177	
==>itive { 3.14159265358979323846264338327950288419716939937510 }

sub JS::Root::atan (Num $ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3730	3850	
==>6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die " <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4208	4303	
==>case the
object returned represents the last day for the specified month.

- `today()`
- `now()` <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4208	4303	
==>case the
object returned represents the last day for the specified month.

- `today()`
- `now()` <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12727	12874	
==>or in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9001	9148	
==>or in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9836	9983	
==>or in expanded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7596	7715	
==>$n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7596	7715	
==>$n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7596	7715	
==>$n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16242	16395	
==>f)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16242	16395	
==>f)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16242	16395	
==>f)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($label =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	463	596	
==>fix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	463	596	
==>fix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	463	596	
==>fix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4105	4202	
==>nt Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4105	4202	
==>nt Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4105	4202	
==>nt Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6775	6918	
==>xtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6775	6918	
==>xtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6775	6918	
==>xtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL::Noop []
    #   paramName: '@c'
    # Should we (a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16994	17090	
==>stringify()`

Return a string representation of the span.

- `compare( $span )`

Compares the spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16994	17090	
==>stringify()`

Return a string representation of the span.

- `compare( $span )`

Compares the spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32663	32816	
==>L::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32663	32816	
==>L::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32663	32816	
==>L::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14347	14519	
==>ar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14347	14519	
==>ar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14347	14519	
==>ar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1790	1895	
==>, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1790	1895	
==>, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1790	1895	
==>, args)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3132	3242	
==>PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3132	3242	
==>PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3132	3242	
==>PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6445	6585	
==>&continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6445	6585	
==>&continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	236	328	
==>s" });
Has($?CLASS, "associations", "Set", { companion => "class" });
Has($?CLASS, "reverse_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1277	1378	
==>r) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1277	1378	
==>r) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1277	1378	
==>r) is primitive {
  JS::inline('(
    function (splitter, str) {
      return String(str).split(String <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5403	5503	
==>lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5403	5503	
==>lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5403	5503	
==>lexical scopes: $CUR_LEXSCOPE_ID\n";

  $IN_GLOBPIL++;
  my @glob_js = map { $_->as_js || () } @{ $fi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1548	1657	
==>E

bit - the core bit type

=head1 METHODS

=over 4

=item B<new (*native*) returns bit>

=item B<to_native () <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10147	10232	
==>' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef", <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10882	10967	
==>' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef", <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1525	1677	
==>urns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1525	1677	
==>urns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1525	1677	
==>urns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept
        # params which are not included in th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5688	5799	
==>);
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5688	5799	
==>);
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5688	5799	
==>);
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25878	25970	
==>h invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or dupli <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30430	30522	
==>h invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or dupli <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20856	20942	
==>helper(Bool::True,$module);
}
sub Pugs::Internals::Disabled::require ($module=$+_) is b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	89	202	
==>on of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	87	194	
==>on of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method ca <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2392	2484	
==>ph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .yml to testgrap <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3389	3486	
==>' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration fil <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3389	3486	
==>' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration fil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37578	37750	
==>ribute', (symbol->new('%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod

=cut <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	237	342	
==>($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	201	306	
==>($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	716	827	
==>O_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather conta <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	716	827	
==>O_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather conta <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	420	514	
==>er->new;

	my @nodes = grep { blessed($_) } $dup_finder->duplicate_nodes($program);

	$self->{s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10417	10550	
==>t drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10417	10550	
==>t drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10417	10550	
==>t drops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	898	1022	
==>setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	898	1022	
==>setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	898	1022	
==>setup the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9480	9641	
==>------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9480	9641	
==>------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9480	9641	
==>------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses it
    # to gather all the roles to be 'resolved'
    # --------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18976	19121	
==>AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use stric <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18976	19121	
==>AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use stric <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18976	19121	
==>AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use stric <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10456	10574	
==>);
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2473	2579	
==>);
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2473	2579	
==>);
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2823	2953	
==>ift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2823	2953	
==>ift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2823	2953	
==>ift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6 <==
3	/Users/nnunley/pugs/util/package-osx.pl	8847	8950	
==>$dest$change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "Copied $orig to $dest$chang <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3565	3661	
==>over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3565	3661	
==>over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39553	39666	
==>hift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39553	39666	
==>hift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39553	39666	
==>hift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7667	7766	
==>edbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7667	7766	
==>edbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7667	7766	
==>edbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	296	398	
==>d - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Remov <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	296	398	
==>d - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Remov <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	296	398	
==>d - '.say' works!
# * Added 'slurpy' parameter
# * Compatible with Perl 5 scalar/list context
# * Remov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5712	5827	
==>$new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            fore <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5712	5827	
==>$new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            fore <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5712	5827	
==>$new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{attributes}) {
            fore <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	466	612	
==>is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else { <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	466	612	
==>is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	889	1007	
==>REWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1], <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34355	34450	
==>ator object.
The Set Names property of the new object is set from the named parameter
@set_names <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34355	34450	
==>ator object.
The Set Names property of the new object is set from the named parameter
@set_names <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5960	6090	
==>aque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5960	6090	
==>aque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5960	6090	
==>aque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
        
        # the eigenclasse <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2222	2313	
==>ic reduction over " . $node->struct_equiv;

	my $reduced_struct = $self->SUPER::generic_redu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39670	39757	
==>L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free softwar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39670	39757	
==>L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free softwar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17127	17299	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17127	17299	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17127	17299	
==>LOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOL <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3666	3764	
==>h time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterd <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3666	3764	
==>h time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterd <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6056	6175	
==>';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6056	6175	
==>';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7783	7933	
==>ew( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7783	7933	
==>ew( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @argument <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7783	7933	
==>ew( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @argument <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	350	459	
==>ptimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definiti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	329	435	
==>ptimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definiti <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6477	6573	
==>move \"$kernel_local\" if you want mklivecd.pl to refetch the kernel.",
  ensure => sub { -r $ker <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	582	683	
==>(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	582	683	
==>(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	582	683	
==>(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	53	181	
==>n/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	53	181	
==>n/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	53	181	
==>n/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3302	3419	
==>cr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3302	3419	
==>cr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3302	3419	
==>cr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2965	3078	
==>nk.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2965	3078	
==>nk.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2965	3078	
==>nk.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8107	8223	
==>IL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8107	8223	
==>IL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8107	8223	
==>IL::add_indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6742	6852	
==>e} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6754	6864	
==>e} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $m <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3041	3150	
==>ller($kind, $skip, $label);

    # FIXME: why doesn't this work?
    # this is here just because of an icky pu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	968	1068	
==>-> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remove <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	968	1068	
==>-> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remove <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10729	10850	
==>=== any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14206	14327	
==>=== any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13505	13626	
==>=== any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5688	5782	
==>"processes" from actual module documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5491	5581	
==>"processes" from actual module documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	776	882	
==>nostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the nor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	776	882	
==>nostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the nor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1332	1438	
==>nostic output.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8645	8766	
==>stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8645	8766	
==>stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8645	8766	
==>stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3420	3521	
==>_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3420	3521	
==>_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3420	3521	
==>_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9259	9364	
==>xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9259	9364	
==>xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9259	9364	
==>xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULT <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	524	672	
==>int "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	517	665	
==>int "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1297	1429	
==>r die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not load files list: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	205	305	
==>:Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now tha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	205	305	
==>:Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now tha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	205	305	
==>:Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2546	2640	
==>b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2546	2640	
==>b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2546	2640	
==>b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5940	6040	
==>claration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declarat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5940	6040	
==>claration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declarat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5940	6040	
==>claration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declarat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3975	4086	
==>f $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3975	4086	
==>f $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3975	4086	
==>f $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10478	10622	
==>lf = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $switch =~ s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22084	22194	
==>_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possib <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16985	17094	
==>_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possib <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1459	1605	
==>sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1459	1605	
==>sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21316	21412	
==>e) ; C = 11). %\v chr(11)
class_member(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1627	1920	
==>Tree.new(:node<Int>).add_children(
                                        Tree.new(:node<Bit>)
                                    ),
                                ),
                            ),
                        ),                        
                        Tree.new(:node<Boo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	30	133	
==>s Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $s <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	30	133	
==>s Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1755	1861	
==>mber(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1755	1861	
==>mber(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1755	1861	
==>mber(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infix:«/»",    2, "N", "N <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4788	4959	
==>pragma_value($?CLASS) //
                $fatal::DEFAULT_FATALITY {
            die $e;
        } else {
            $! = $e;
            return undef; # this is probably t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4914	5014	
==>s.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4914	5014	
==>s.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7111	7211	
==>s.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1356	1458	
==>is hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOOD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1356	1458	
==>is hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOOD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1356	1458	
==>is hack b0rks PIL2JS, so I removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1351	1460	
==>)};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1351	1460	
==>)};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15372	15458	
==>,RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(Pat <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	810	919	
==>return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the pare <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	810	919	
==>return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the pare <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29805	29902	
==>s; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5173	5273	
==>ptional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5173	5273	
==>ptional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7370	7470	
==>ptional).

=back 

This role contains two methods:

=over 4

=item B<status returns Hash>

This retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3238	3347	
==>enclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3238	3347	
==>enclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3238	3347	
==>enclass);        
        #warn "class: $class => self: $self => class-class: " . ::opaque_instance_class($cla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1051	1144	
==>$.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1051	1144	
==>$.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21385	21480	
==>n to it should easily port
to alternative relational database engines with minimal effort.

This <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21385	21480	
==>n to it should easily port
to alternative relational database engines with minimal effort.

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6690	6771	
==>-------------------------------------------------------------------------

ok($Cla <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2683	2817	
==>art;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    } <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2683	2817	
==>art;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	203	317	
==>lence';

# need to load this here in 
# order for things to init 
# in the correct order
use Perl6::Core::Bit;

# c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4728	4826	
==>sion
of the result object (usually the entire match string).

=head2 0+

When used as a number, the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4728	4826	
==>sion
of the result object (usually the entire match string).

=head2 0+

When used as a number, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3315	3431	
==>"*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3315	3431	
==>"*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3315	3431	
==>"*** Can't link to files when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14668	14825	
==>y = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14668	14825	
==>y = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14668	14825	
==>y = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { my $x = $_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2917	3037	
==>ass->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2917	3037	
==>ass->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenCl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2917	3037	
==>ass->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $::EigenCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3844	3957	
==>ew_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3844	3957	
==>ew_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3844	3957	
==>ew_returncc) {
    __returncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5369	5487	
==>E work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5369	5487	
==>E work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5369	5487	
==>E work on very basic levels, but I think a LOCATE method would 
be helpful as well. It would take a fully qualified nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5771	5880	
==>my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5771	5880	
==>my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5771	5880	
==>my $thisone = $things->[$i++];
    PIL::possibly_ccify $thisone, sub {
      push @$jsthings, shift;
      pos <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8018	8231	
==>abel' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5760	5862	
==>itrd_mnt, $lib6, $parrot_path);

my $welcomed = 0;
step
  descr  => "Welcome",
  ensure => sub { $welco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41079	41197	
==>ray" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41079	41197	
==>ray" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41079	41197	
==>ray" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9990	10146	
==>$num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_nu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2051	2197	
==>$num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_nu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2051	2197	
==>$num
    {
        $self.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	274	393	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	274	393	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	274	393	
==>$todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28952	29047	
==>s that become wrapped, and it supports having new tuple-valued
attributes which wrap zero old at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33504	33599	
==>s that become wrapped, and it supports having new tuple-valued
attributes which wrap zero old at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32641	32736	
==>s that become wrapped, and it supports having new tuple-valued
attributes which wrap zero old at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1859	1965	
==>/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($sel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1859	1965	
==>/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($sel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1859	1965	
==>/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1104	1225	
==>} else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&ba <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1107	1218	
==>} else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&ba <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1645	1742	
==>uggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plu <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1645	1742	
==>uggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3145	3405	
==>if ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => $t;
            }       
            
            # types
            elsif ($t =~ /^\<.*\>$/) {
                push @t => 'q <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3146	3239	
==>s, $set.complement_next, $set.complement_previous ),
        complement_previous => $self._get <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3146	3239	
==>s, $set.complement_next, $set.complement_previous ),
        complement_previous => $self._get <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4288	4484	
==>ir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4288	4484	
==>ir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19908	20012	
==>words {  # see 12.1
      <Statement>
    | <StatementList> <Statement>
}
rule VariableStatement :words { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6202	6344	
==>exp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6202	6344	
==>exp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6202	6344	
==>exp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	438	579	
==>ction (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	438	579	
==>ction (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	438	579	
==>ction (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(proxy);
  })')($FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	451	593	
==>our  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	451	593	
==>our  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	451	593	
==>our  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11809	11908	
==>lue )

Add a new field value for the specified header field.  Previous values
for the same field are <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11809	11908	
==>lue )

Add a new field value for the specified header field.  Previous values
for the same field are <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12805	12901	
==>alues are left available for extensions.  Please
refer to L<perldiag> for the explanations of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	746	847	
==>"&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	746	847	
==>"&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	746	847	
==>"&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PIL::fail("Can't yie <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12240	12360	
==>e_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8516	8636	
==>e_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9351	9471	
==>e_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1824	1968	
==>e_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1824	1968	
==>e_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1824	1968	
==>e_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1105	1232	
==>y) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1105	1232	
==>y) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1105	1232	
==>y) = split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16633	16736	
==>soc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16633	16736	
==>soc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16633	16736	
==>soc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3837	3976	
==>sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prototype
        prototype => new Point($x, $y),  
    # rest of the class 
        get <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5246	5340	
==>d returns a hash reference representing the configuration data

=item write

The C<write> metho <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5246	5340	
==>d returns a hash reference representing the configuration data

=item write

The C<write> metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12914	13018	
==>SS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12914	13018	
==>SS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12914	13018	
==>SS) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_m <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	919	1020	
==>onfig_default    = 'config.yml';
    my $config_template   = 'util/config-template.yml';
    $filename <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1602	1701	
==>- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1602	1701	
==>- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25251	25467	
==>$self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25251	25467	
==>$self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25251	25467	
==>$self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3692	3804	
==>eanup\n" if $debug;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops & <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1036	1140	
==>turns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1036	1140	
==>turns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6306	6524	
==>airs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6306	6524	
==>airs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6306	6524	
==>airs, $p->str->unboxed;
                    $key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6332	6461	
==>rse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMulti">;
        dbg "# LValue:     "; my $lvalue <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9439	9553	
==>niverse => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zer <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9439	9553	
==>niverse => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2738	2843	
==>ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2738	2843	
==>ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2738	2843	
==>ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3300	3429	
==>".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3300	3429	
==>".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3300	3429	
==>".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1078	1170	
==>Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1078	1170	
==>Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1078	1170	
==>Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	567	748	
==>ren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $sou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23658	23752	
==>an be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23658	23752	
==>an be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15034	15125	
==>ed
the Rosetta Native Interface (RNI), which applications invoke and which
multiple intercha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15034	15125	
==>ed
the Rosetta Native Interface (RNI), which applications invoke and which
multiple intercha <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9935	10026	
==>/www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically generated and <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3512	3616	
==>ser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("pat <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3512	3616	
==>ser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("pat <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11956	12060	
==>qq[\n], \@INC"`;
    chomp @inc;
    return @inc;
}


=head2 C<_restore_PERL5LIB>

  $self->_restore_PERL <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10261	10408	
==>'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'cal <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10261	10408	
==>'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	434	549	
==>($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	434	549	
==>($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	434	549	
==>($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2158	2278	
==>~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*E <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2158	2278	
==>~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*E <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2657	2753	
==>a default fprime in the example.  For fprime, the
example goes on step further and Curries approx <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2160	2271	
==>return $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the neare <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5330	5435	
==>t postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5330	5435	
==>t postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1157	1277	
==>.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1157	1277	
==>.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1157	1277	
==>.Box.Constant(ret));
    })')(%$self, @idx);
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1675	1783	
==>Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1880	1988	
==>Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1943	2051	
==>Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4051	4156	
==>'" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4268	4373	
==>'" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1838	1938	
==>man1");
    $self->makemaker_args->{INST_MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $se <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	991	1081	
==>$pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descript <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	991	1081	
==>$pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19877	19975	
==>GES.

After all the code has been parsed into blocks and the blocks have been
marked for various co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19877	19975	
==>GES.

After all the code has been parsed into blocks and the blocks have been
marked for various co <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6420	6526	
==>these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6420	6526	
==>these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1272	1369	
==>mper( $x->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3540	3637	
==>Default} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3540	3637	
==>Default} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3540	3637	
==>Default} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7515	7634	
==>mitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7515	7634	
==>mitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7515	7634	
==>mitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6000	6089	
==>form the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6000	6089	
==>form the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8197	8286	
==>form the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2256	2364	
==>rd Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2256	2364	
==>rd Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2256	2364	
==>rd Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14326	14493	
==>oop);
      }
      if(not FAILED($v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16230	16337	
==>sible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12651	12758	
==>sible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5680	5799	
==>my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3016	3135	
==>my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3865	3984	
==>my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5874	6000	
==>rce) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5874	6000	
==>rce) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5874	6000	
==>rce) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5915	6046	
==>" .
            " print " . '"\n"'
            if $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( $n->{sub}{bar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3254	3357	
==>(not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	360	463	
==>shift        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $ke <==
3	/Users/nnunley/pugs/util/version_h.pl	1260	1379	
==>d) From/, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1551	1647	
==>s Array is export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_a <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1551	1647	
==>s Array is export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	646	854	
==>eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	646	854	
==>eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	646	854	
==>eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4155	4276	
==>p) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4155	4276	
==>p) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4155	4276	
==>p) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10080	10200	
==>-------------------------------    
      
    # -----------------------------------------------  
    # collects all the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10080	10200	
==>-------------------------------    
      
    # -----------------------------------------------  
    # collects all the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10080	10200	
==>-------------------------------    
      
    # -----------------------------------------------  
    # collects all the <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6076	6170	
==>will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6076	6170	
==>will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8374	8503	
==>see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 7.8.3
      <[0..9]>
}
rule Expon <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21450	21547	
==>ines with minimal effort.

This might seem strange to somebody who has not tried to port between
d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21450	21547	
==>ines with minimal effort.

This might seem strange to somebody who has not tried to port between
d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5773	5879	
==>number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5773	5879	
==>number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7297	7403	
==>number()>

Returns the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $tes <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	596	743	
==>d $kludge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	283	426	
==>essage) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	283	426	
==>essage) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50127	50277	
==>il
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2905	3047	
==>eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3122	3264	
==>eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11872	12044	
==>urrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11872	12044	
==>urrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11872	12044	
==>urrent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2409	2621	
==>{
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2719	2924	
==>{
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2719	2924	
==>{
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1062	1166	
==>n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1062	1166	
==>n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1062	1166	
==>n { Perl6::Value::numify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3198	3341	
==>ew value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $config{$func}->[1];
        return $sub 
            ? $sub- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10348	10446	
==>r_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10348	10446	
==>r_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9282	9466	
==>tcher")->do()); 
            })->do_while(
                block->new($e, sub { 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_n <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	50	174	
==>r $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    wh <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	50	174	
==>r $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    wh <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20471	20567	
==>n production.

For production use, there should be a wide variety of third party Engine
modules t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20471	20567	
==>n production.

For production use, there should be a wide variety of third party Engine
modules t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1771	1885	
==>arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1771	1885	
==>arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1771	1885	
==>arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity ||= 1;

  my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1473	1570	
==>match.el - an old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_de <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20128	20216	
==>malized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20128	20216	
==>malized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handl <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2488	2594	
==>ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    root <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2488	2594	
==>ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    root <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2457	2568	
==>pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2457	2568	
==>pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2457	2568	
==>pilc),"\n\n" if $verbose;
        print YAML::Dump($pilc),"\n\n" if $verbose;
        my $p5r = p5r_from_pilc($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6447	6618	
==>OY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6447	6618	
==>OY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6447	6618	
==>OY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6298	6396	
==>inished' flag in the returned match, 

that makes it return until the start of the rule, which unse <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6093	6190	
==>inished' flag in the returned match, 
that makes it return until the start of the rule, which unse <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19952	20050	
==><StatementList> <Statement>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_requir <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	188	284	
==>t even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrie <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	188	284	
==>t even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	465	578	
==>node in a variable outside of this function
      // and refer to it via the closure, then things don\'t work righ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	465	578	
==>node in a variable outside of this function
      // and refer to it via the closure, then things don\'t work righ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	465	578	
==>node in a variable outside of this function
      // and refer to it via the closure, then things don\'t work righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4047	4215	
==>f' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4047	4215	
==>f' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4047	4215	
==>f' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3188	3290	
==>rncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $resto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3188	3290	
==>rncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $resto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3188	3290	
==>rncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $resto <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17717	17817	
==>ing a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This word is banned in Perl 6.  You must spec <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	288	384	
==>PER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	288	384	
==>PER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2072	2211	
==>r {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2072	2211	
==>r {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2072	2211	
==>r {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17602	17696	
==>d
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. The C< <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17602	17696	
==>d
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. The C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	313	436	
==>use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: refere <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	518	641	
==>use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: refere <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	574	697	
==>use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # Input: refere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7559	7717	
==>m different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7559	7717	
==>m different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7559	7717	
==>m different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a method which has an 
    # impl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	640	748	
==>8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	640	748	
==>8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	640	748	
==>8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now contains objects <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4876	4988	
==>>type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->mu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4876	4988	
==>>type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->mu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4876	4988	
==>>type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->mu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8079	8192	
==>rn Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8079	8192	
==>rn Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10227	10336	
==>undef, undef, $initrd_img; mkdir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directory the <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2602	2707	
==>i Math::Basic::srand ( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num::sqrt (  Num  $x <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22790	22881	
==>2 The Rosetta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22790	22881	
==>2 The Rosetta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1447	1553	
==>return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST provide an expli <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1244	1335	
==>eds, it tail-calls the continuation (i.e. returns whatever the
continuation returns) with an <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1244	1335	
==>eds, it tail-calls the continuation (i.e. returns whatever the
continuation returns) with an <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1174	1269	
==>several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of cons <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1174	1269	
==>several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	57	150	
==>ngs;

#use Pugs::Compiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6195	6301	
==>:meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6195	6301	
==>:meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6195	6301	
==>:meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6::Method->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2919	3026	
==>1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right class name');

is($p1->get_x, 15, '... got <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	6	97	
==>1
package Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basen <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	60	172	
==>::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# par <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	60	172	
==>::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7786	7915	
==>l { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11787	11912	
==>l { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11787	11912	
==>l { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16131	16242	
==>p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16131	16242	
==>p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16131	16242	
==>p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1554	1659	
==>rap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1554	1659	
==>rap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1554	1659	
==>rap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	694	866	
==>lass,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque stru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	694	866	
==>lass,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque stru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	694	866	
==>lass,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the inside of the opaque stru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2376	2515	
==>ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2387	2526	
==>ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1942	2062	
==>->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1942	2062	
==>->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1942	2062	
==>->{fixed};
        "pad[$qname] = $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12424	12542	
==>t => chr oct $v, sprintf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6394	6492	
==>hers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(A <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6394	6492	
==>hers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(A <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3625	3765	
==>se {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3625	3765	
==>se {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_e <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6759	6876	
==>package let;
use base qw/node/;

package cond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1322	1427	
==>O_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1322	1427	
==>O_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1322	1427	
==>O_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCE <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10345	10449	
==>ATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10345	10449	
==>ATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1308	1404	
==>d during dispatch (which includes attribute
lookup as well as method lookup, as attribute fetchin <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2216	2392	
==>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# com <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2216	2392	
==>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# com <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2553	2638	
==>x
my $prolog = <<'END';
%============================================================= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1939	2044	
==>S.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1939	2044	
==>S.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1939	2044	
==>S.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5979	6160	
==>{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9456	9637	
==>{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2526	2686	
==>:inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # fal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2526	2686	
==>:inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # fal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2526	2686	
==>:inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # fal <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2408	2517	
==>ined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2408	2517	
==>ined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5843	5946	
==>= $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5843	5946	
==>= $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5843	5946	
==>= $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1107	1226	
==>_node->val;

        $table{$symbol}; # find the symbol
    }

    # and then

    my $reduced = My::ASTWalker->new->red <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7839	7937	
==>hod compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7839	7937	
==>hod compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2150	2402	
==>oxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2150	2402	
==>oxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2150	2402	
==>oxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4474	4574	
==>:Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4474	4574	
==>:Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6671	6771	
==>:Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1806	1908	
==>{ uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1806	1908	
==>{ uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1806	1908	
==>{ uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16815	16920	
==>(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16815	16920	
==>(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16815	16920	
==>(.*)$/ && (blessed($value) && $value->isa('Perl6::Method'))) {
        return $self->add_method($1, $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1203	1301	
==>ss.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1203	1301	
==>ss.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1203	1301	
==>ss.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1058	1175	
==>new((shift) . '') } # get a str like ref
sub to_bit { bit->new(1)            } # we are always true

# comparitor

sub <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5160	5258	
==>file, and returns a boolean value
of success or failure

=item data

The C<data> method returns a h <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5160	5258	
==>file, and returns a boolean value
of success or failure

=item data

The C<data> method returns a h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5843	5948	
==>} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5843	5948	
==>} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5843	5948	
==>} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5671	5778	
==>}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5671	5778	
==>}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5671	5778	
==>}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->unboxed;
}
sub P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12371	12467	
==>s to empty if the parameter's
corresponding argument is undefined).  The new Document object's Al <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12371	12467	
==>s to empty if the parameter's
corresponding argument is undefined).  The new Document object's Al <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	118	206	
==>.pm"
package Module::Install::Makefile::Version;
use Module::Install::Base; @ISA = qw(Mod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6750	6892	
==>ub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6528	6665	
==>ub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $matc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22295	22417	
==>len;
        if ($max_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Columns <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1653	1749	
==>t

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes a <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1653	1749	
==>t

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3594	3775	
==>>ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.ri <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3594	3775	
==>>ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.ri <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6655	6763	
==>use that name for the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e $fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	185	330	
==>he last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	185	330	
==>he last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	185	330	
==>he last expression evaluated":
#   (function () { 42 })()                 # undefined
#   (function () { return eval "42" })()   # 42
# Now PIL::P <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13513	13616	
==>pan:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersect <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13513	13616	
==>pan:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersect <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1135	1237	
==>newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $matchObj->position( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8986	9101	
==>> $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8986	9101	
==>> $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8986	9101	
==>> $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) {...}; # in PrimP6
MULTI SUB any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4495	4602	
==>ommand_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4495	4602	
==>ommand_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4495	4602	
==>ommand_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1767	1926	
==>nt => $_[0]{ident}(),
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule befo <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1279	1376	
==>orts a single function, C<note>, which is called with zero or 
more strings, followed by zero or m <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1279	1376	
==>orts a single function, C<note>, which is called with zero or 
more strings, followed by zero or m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	47	146	
==>Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (als <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	47	146	
==>Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (als <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	47	146	
==>Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (als <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1755	1905	
==>s, false on failure.

=cut

sub _rmdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2314	2408	
==>r = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
)) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2314	2408	
==>r = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
)) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1935	2078	
==>section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1935	2078	
==>section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	683	785	
==>em *

unbound public attributes, which are actually just accessor methods
for variables.

=item *

unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7612	7727	
==>urpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7612	7727	
==>urpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7612	7727	
==>urpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29909	30041	
==>eturn $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29909	30041	
==>eturn $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29909	30041	
==>eturn $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14735	14830	
==>...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14735	14830	
==>...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14735	14830	
==>...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6198	6356	
==>\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6198	6356	
==>\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2204	2322	
==>1 => $_[1], exp1 => $_[2], exp2 => $_[3], exp3 => $_[5] } }
    | IF exp block 'elsif' exp block 'else' block
        { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4503	4610	
==>mp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4503	4610	
==>mp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4503	4610	
==>mp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2110	2213	
==>}
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2110	2213	
==>}
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2110	2213	
==>}
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5344	5439	
==>test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP pro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5344	5439	
==>test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP pro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7541	7636	
==>test's attributes.

=item B<report returns Str>

This returns a string which follows the TAP pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7594	7713	
==>f($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7594	7713	
==>f($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7594	7713	
==>f($n) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10754	10878	
==>ould autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modifi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10754	10878	
==>ould autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modifi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10754	10878	
==>ould autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modifi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1808	1945	
==>ody? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5285	5422	
==>ody? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4215	4352	
==>ody? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6194	6344	
==>"    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6707	6857	
==>"    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3346	3458	
==>my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
        push(@$var,$tok);
        return &$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8864	8960	
==>ernary_error:
  $matchObjPos = -1;
  die "Missing ternary close at offset $whitespacePosition \n" <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	406	501	
==>:= &join.assuming:delimiter(' ');


# copied from S29draft.pod 8651.
multi  List::map (Code $exp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9605	9693	
==>leton_method' 
});

is($iFoo->another_test_iFoo_singleton_method(), 
  '$iFoo::another_te <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5988	6109	
==>ilout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11665	11755	
==>eric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decod <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11665	11755	
==>eric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decod <==
3	/Users/nnunley/pugs/util/config_h.pl	1571	1693	
==>C with the
    GHCi option.

.
}

close OUT;

sub try_compile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    ev <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1735	1822	
==>TP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1735	1822	
==>TP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12812	12915	
==>Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12812	12915	
==>Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12812	12915	
==>Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	886	1010	
==>ze_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#line 109 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	787	911	
==>ze_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#line 109 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7675	7793	
==>t;
    my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    return $self;
  }
}


{
  package Regexp::Par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5006	5144	
==>tch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5006	5144	
==>tch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5006	5144	
==>tch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2624	2846	
==>ttrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2624	2846	
==>ttrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2624	2846	
==>ttrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Cont <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1370	1499	
==>e types ... but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2865	2971	
==>y $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2865	2971	
==>y $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1948	2077	
==>],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1948	2077	
==>],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1948	2077	
==>],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "S <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	185	286	
==>hift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 D <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	185	286	
==>hift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2438	2536	
==>ETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2438	2536	
==>ETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2438	2536	
==>ETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	549	672	
==>>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	549	672	
==>>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	549	672	
==>>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5463	5578	
==>@glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5463	5578	
==>@glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5463	5578	
==>@glob_js = map { $_->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5719	5823	
==>lude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5719	5823	
==>lude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5719	5823	
==>lude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try in Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4058	4194	
==>ORD            
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{out}= <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1009	1116	
==>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# fro <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1009	1116	
==>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# fro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2074	2195	
==>ct_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2074	2195	
==>ct_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2154	2275	
==>ct_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output.ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	143	238	
==>::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	143	238	
==>::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11783	11941	
==>mal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11783	11941	
==>mal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11783	11941	
==>mal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) {           
            my $met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1098	1197	
==>s @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1098	1197	
==>s @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1098	1197	
==>s @input;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8276	8388	
==>e - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7997	8106	
==>e - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1587	1685	
==>experimental compiler for Perl 6

=head1 DESCRIPTION

This module provides an implementation fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	303	405	
==>self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV} }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	303	405	
==>self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV} }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	303	405	
==>self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV} }

1 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25072	25192	
==>ix {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <', <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2299	2396	
==>ction.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< ta <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2299	2396	
==>ction.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8619	8805	
==>nt->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8619	8805	
==>nt->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8619	8805	
==>nt->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1276	1374	
==>ing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1276	1374	
==>ing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1823	1921	
==>ing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5637	5747	
==>r {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $t <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5637	5747	
==>r {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	31	128	
==>e warnings;

use lib '../../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1741	1838	
==>lication) and Lit (literal).



App is divided to Multiple, Single and Primitive dispatch.

Lit is <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3875	3970	
==>CommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotForwardSlashOrAst <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1672	1766	
==>lication) and Lit (literal).

App is divided to Multiple, Single and Primitive dispatch.
Lit is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8952	9070	
==>B prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8952	9070	
==>B prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8952	9070	
==>B prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in PrimP6
# MULTI SUB true ($xx) { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15835	15942	
==>6_Num($_[0]) },
      non_numeric => sub { p6_Str($_[0]) },
      scalar_numeric     => sub { p6_Num(${$_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25985	26080	
==>ther credits.
Rosetta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25985	26080	
==>ther credits.
Rosetta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15528	15639	
==>lems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15528	15639	
==>lems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15528	15639	
==>lems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1182	1294	
==>ubmethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1182	1294	
==>ubmethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1182	1294	
==>ubmethod'  ||
            blessed($method) eq 'Perl6::ClassMethod') {
            ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	612	718	
==>nt PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	612	718	
==>nt PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	612	718	
==>nt PIL::Math::BigInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	28	151	
==>Pad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	28	151	
==>Pad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	28	151	
==>Pad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A SOur should never rea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14704	14814	
==>});

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8905	9015	
==>});

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3660	3774	
==>return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8579	8720	
==>[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12488	12626	
==>[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12488	12626	
==>[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match->( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9155	9420	
==>finitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5515	5780	
==>finitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6364	6629	
==>finitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7343	7474	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7343	7474	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7343	7474	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14817	14962	
==>trs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18294	18439	
==>trs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17710	17855	
==>trs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.headi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	82	207	
==>1';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	82	207	
==>1';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	82	207	
==>1';

use Perl6::MetaModel;

use Perl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $cla <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21980	22094	
==>ists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  reps_1: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5247	5351	
==>$chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've join <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5247	5351	
==>$chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've join <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5792	5898	
==>the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5792	5898	
==>the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7316	7422	
==>the number of the I<next> test to record.

=item B<report_test( Test::Builder::Test $test )>

Records a tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1752	1878	
==>_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{item} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21912	22007	
==>what resource
files it should use and in what order they should be consulted.  When
Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21912	22007	
==>what resource
files it should use and in what order they should be consulted.  When
Locale::Keye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20619	20736	
==>ue, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__EN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20619	20736	
==>ue, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__EN <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20619	20736	
==>ue, $self);
        } 
        ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
    }
}));

1;

__EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	621	738	
==>sEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, withou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	621	738	
==>sEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, withou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	621	738	
==>sEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, withou <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	641	759	
==>, 'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2165	2256	
==>he Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2254	2345	
==>he Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5144	5286	
==>ue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5144	5286	
==>ue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5144	5286	
==>ue ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5811	5920	
==>Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5811	5920	
==>Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5811	5920	
==>Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11912	12010	
==>tained.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11912	12010	
==>tained.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be u <==
3	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	105	201	
==>] $arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::I <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	286	413	
==>n)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the use <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	286	413	
==>n)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1730	1849	
==>)            ];
$config{'_files_list'}      = [ Path::Class::file('files.list')     ];
$config{'_control'}         = [ c <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2047	2217	
==>for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*? <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2047	2217	
==>for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26788	26882	
==>classes have been loaded already.

=item $parser->init()

This method installs all the flags an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9369	9485	
==>node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9357	9473	
==>node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$ <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1423	1529	
==>= GD::Graph::lines->new(500, 350);
$graph->set(
  title        => "Pugs development",
  x_label      => "Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3231	3346	
==>ew_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3231	3346	
==>ew_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3231	3346	
==>ew_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7926	8016	
==>_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newest_p_stamp an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6316	6435	
==>_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6316	6435	
==>_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6316	6435	
==>_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1980	2126	
==>group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1980	2126	
==>group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_ <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4460	4587	
==>fig{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2188	2292	
==>ub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2188	2292	
==>ub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2188	2292	
==>ub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Ro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1469	1590	
==>st->files_list( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16576	16684	
==>SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hid <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21002	21110	
==>SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hid <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32741	32859	
==>_make_dispatcher_iterator(@:MRO);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6177	6287	
==>[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $cha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6165	6275	
==>[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $cha <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2320	2439	
==>el2abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) );

        ### singleton
        return $cache{$dir <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5300	5409	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5989	6111	
==>$_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5977	6099	
==>$_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9455	9609	
==>n "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETU <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9455	9609	
==>n "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETU <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9455	9609	
==>n "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETU <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	557	690	
==>ush @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	557	690	
==>ush @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -In <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5223	5318	
==>-path"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	425	537	
==>b not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	425	537	
==>b not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	425	537	
==>b not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

multi sub infix:<|> (*@x) { any( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2248	2357	
==>{my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2248	2357	
==>{my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2248	2357	
==>{my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3695	3799	
==>_handler('\G' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4783	4891	
==>only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4783	4891	
==>only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4783	4891	
==>only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten ar <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4587	4683	
==>unction this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constr <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4587	4683	
==>unction this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37074	37169	
==>(C<?> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Regexp::Parser <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	173	274	
==>Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	173	274	
==>Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	169	266	
==>Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3522	3720	
==>left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compile <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3522	3720	
==>left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compile <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2172	2275	
==>'END';

#include <regcomp.h>
/* for the struct pointed to by substrs :( */

#define RECOGNITION_FLAG 0xf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11325	11434	
==>b6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11325	11434	
==>b6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11325	11434	
==>b6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) {
	my $f <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1893	2027	
==>is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1893	2027	
==>is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7083	7227	
==>}; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7276	7420	
==>}; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8461	8564	
==>you can use the
parse() method to explicitly build it:

  $parser->parse;

This is not necessary, though <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18508	18600	
==>and regexecp hooks (C functions
which get called on regular expression compilation and execut <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2798	2890	
==>and regexecp hooks (C functions
which get called on regular expression compilation and execut <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34282	34374	
==>ames! )>

This method creates and returns a new Locale::KeyedText::Translator object.
The Set <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34282	34374	
==>ames! )>

This method creates and returns a new Locale::KeyedText::Translator object.
The Set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22416	22557	
==>y $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22416	22557	
==>y $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22416	22557	
==>y $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1946	2077	
==>$i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1946	2077	
==>$i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1946	2077	
==>$i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16125	16213	
==>ngerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16183	16271	
==>ngerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	362	473	
==>_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub ne <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4544	4640	
==>44+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4544	4640	
==>44+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6889	7016	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6889	7016	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6889	7016	
==>unction (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1890	1993	
==>on-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1890	1993	
==>on-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1890	1993	
==>on-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5017	5114	
==>", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5017	5114	
==>", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5017	5114	
==>", { editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14600	14706	
==>lastpos
    if $I0 > pos goto numeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1749	1841	
==>alue>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Mo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1749	1841	
==>alue>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Mo <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12178	12276	
==>2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12178	12276	
==>2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9221	9342	
==>gs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9221	9342	
==>gs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9221	9342	
==>gs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10775	10922	
==>$i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10775	10922	
==>$i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10775	10922	
==>$i - required $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        r <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	167	264	
==>WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.r <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	167	264	
==>WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12792	12924	
==>d')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be mo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12792	12924	
==>d')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be mo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12792	12924	
==>d')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # they are going to be mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5369	5482	
==>ef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5369	5482	
==>ef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5369	5482	
==>ef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	917	1028	
==>ive type
sub to_native { shift }

# conversion to other native types
sub to_num { (shift)->[0]           } # ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1915	2005	
==>esents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2004	2094	
==>esents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2970	3061	
==>ipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, which can be called re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2970	3061	
==>ipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, which can be called re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	340	470	
==>r => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	340	470	
==>r => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	340	470	
==>r => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3283	3386	
==>4

=item *

Resolving compile time resolvable symbols into values

=item *

Replacing all values which t <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17448	17564	
==>eturn (ref $node) . "->new<=$node>" . layout(@gut);
        } else {
            warn "weird - $node doesn't fmap but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	259	388	
==>to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	259	388	
==>to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	259	388	
==>to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    m <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1358	1459	
==>ion: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1358	1459	
==>ion: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8095	8189	
==>a C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is in fact multi-
d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14341	14504	
==>.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17818	17981	
==>.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17234	17397	
==>.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as they have no effect
        }
        else { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5234	5349	
==>s @:MRO;
    has @:subclasses;
    has @:superclasses;
    has %:private_methods;
    has %:attributes;
    has %:me <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1930	2025	
==>uture...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=i <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1930	2025	
==>uture...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24465	24568	
==>$b);
	is($type->stringify, "∀α. α → α", "pretty print a -> b where a = b");
}
{
	my $type = type: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8660	8753	
==>gs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::B <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8660	8753	
==>gs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::B <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7436	7548	
==>bject rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was kill <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7436	7548	
==>bject rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was kill <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7091	7226	
==>p::Parser::space;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\s') if $re eq '\s';
    return $o <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12729	12824	
==>lowing functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12729	12824	
==>lowing functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML en <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11595	11686	
==>returns a Num, C<E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtra <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	83	333	
==>n't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	185	315	
==>uld default to caller namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.n <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	185	315	
==>uld default to caller namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.n <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	863	955	
==>be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, su <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	863	955	
==>be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6809	6918	
==>_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6809	6918	
==>_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6809	6918	
==>_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1287	1400	
==>\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a na <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1287	1400	
==>\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	756	856	
==>$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	756	856	
==>$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	756	856	
==>$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7595	7706	
==>lass->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7595	7706	
==>lass->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	957	1062	
==>y %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5884	6053	
==>$ast ]
        }
        elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13178	13307	
==>$class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13178	13307	
==>$class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1498	1606	
==>, 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{n <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3876	3976	
==>, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wron <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3876	3976	
==>, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wron <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9288	9386	
==>set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9288	9386	
==>set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11686	11782	
==>opefully otherwise unused section of a regexp struct.  Another
  hopefully unused part of the str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2431	2558	
==>$i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2431	2558	
==>$i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2431	2558	
==>$i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8552	8663	
==>UGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8552	8663	
==>UGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8552	8663	
==>UGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5774	5872	
==>st location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5774	5872	
==>st location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5774	5872	
==>st location.

  # create ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1648	1743	
==>ince last enter_scope

=head1 DESCRIPTION

Assumes a hash structure of $self, and uses the 'scop <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	349	463	
==>$number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1207	1321	
==>$number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8153	8299	
==>st, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4513	4659	
==>st, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5362	5508	
==>st, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = ma <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	507	600	
==>::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you nee <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	507	600	
==>::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you nee <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	623	724	
==>so addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And becau <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	623	724	
==>so addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And becau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1337	1452	
==>ment after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1337	1452	
==>ment after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1546	1661	
==>ment after named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$p <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5540	5670	
==>i"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5540	5670	
==>i"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945) <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	86	184	
==>is file
# a method of autogenrating bindings from vtable.h is NEEDED
# please commit - pmurias
pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6104	6209	
==>ly(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10361	10466	
==>ly(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4652	4750	
==>ead2 ""

When used as a string, the match object returns the stringified version
of the result obje <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4652	4750	
==>ead2 ""

When used as a string, the match object returns the stringified version
of the result obje <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7164	7382	
==>star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7357	7575	
==>star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	600	706	
==>/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7611	7828	
==>$k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7611	7828	
==>$k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7611	7828	
==>$k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8887	8989	
==>t);

	$x->{name} eq $y->{name}
		or die "Can't unify $x->{name} with $y->{name} in " . Dumper(@_);

	un <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2373	2466	
==>er.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2373	2466	
==>er.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	228	365	
==>ixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	228	365	
==>ixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	228	365	
==>ixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	470	622	
==>ugs::Grammar::Perl6';
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
    warn "Error in compile: unk <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3003	3157	
==>ature->new(
            params => closure::params->new(
                           symbol->new('&dispatcher' => 'block'),
                           symbol <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15026	15120	
==>head2 Introduction

Many times during a program's operation, the program (or a package it uses) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15026	15120	
==>head2 Introduction

Many times during a program's operation, the program (or a package it uses) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	904	1023	
==>ses with hyperlinks to corresponding tests

  Options:
    --p6design_dir  Directory containing the perl6 design docs ap <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39771	39866	
==>distribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL) a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39771	39866	
==>distribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL) a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16855	16953	
==>ns don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, a Re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16855	16953	
==>ns don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, a Re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33366	33464	
==>he I<front> of the
walking stack, so we add them in the order they are to be encountered
with unshi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8710	8799	
==>ment") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8710	8799	
==>ment") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2507	2635	
==>);
}

sub call {
    my $self   = shift;
    my $method = shift;
    my $obj = $self->load($method) or return;

    unshift @_, $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2738	2850	
==>y));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # En <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2738	2850	
==>y));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # En <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	227	343	
==>dLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	227	343	
==>dLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	227	343	
==>dLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlyn <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	56	158	
==>use Carp qw( carp croak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %loade <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	434	534	
==>uilder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	434	534	
==>uilder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	990	1090	
==>uilder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPTION

This class handles <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12312	12488	
==>tr, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12306	12482	
==>tr, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@m <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12690	12774	
==>(Open,Close),
  p6_named_character_tail(Name,Close), !, uncode_charname_to_char(Name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6585	6679	
==>d1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6585	6679	
==>d1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6585	6679	
==>d1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabor Szabo <szabgab@gmail.com> has contributed many t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3563	3713	
==>e}              ||= do {
        my $name = $values{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_name};

    if ( $v <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3647	3742	
==>Perl 6 was still being developed.

This module is primarily for reading human written files, and <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3647	3742	
==>Perl 6 was still being developed.

This module is primarily for reading human written files, and <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2967	3068	
==>$warn = "Pil to p5 compile failed: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Re <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6649	6742	
==>:Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Li <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6649	6742	
==>:Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	284	403	
==>{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	284	403	
==>{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	284	403	
==>{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2251	2391	
==>$last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2251	2391	
==>$last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2862	2970	
==>.1.0 {

    # External packages used by the Relation::Example class, that do export symbols:
    # (None Yet) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2906	2998	
==>ub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2906	2998	
==>ub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isIn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2906	2998	
==>ub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isIn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12625	12768	
==>' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12625	12768	
==>' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12625	12768	
==>' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6944	7042	
==>olved);
print $error $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13070	13256	
==>e;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13070	13256	
==>e;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13070	13256	
==>e;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4179	4285	
==>on has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## intros <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4179	4285	
==>on has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## intros <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4179	4285	
==>on has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## intros <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7113	7222	
==>return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7113	7222	
==>return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7113	7222	
==>return sprintf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      define <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3883	3984	
==>$self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3883	3984	
==>$self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7475	7566	
==>noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_elemental(lookahead(R)).
p5_cond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14842	14959	
==>t\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14842	14959	
==>t\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    r <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	860	961	
==>ation::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchore <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	960	1068	
==>[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self->get($_)) } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16316	16410	
==>ield indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16316	16410	
==>ield indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2796	2889	
==>}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2796	2889	
==>}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2796	2889	
==>}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} re <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19781	19934	
==>.= (" ($tot->{todo} subtest".($tot->{todo} > 1 ? 's' : '').
                   " TODO)")
            if $tot->{bonus};        

    if ($tot->{skipped}) { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29177	29297	
==>ey!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29177	29297	
==>ey!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9297	9424	
==>warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9297	9424	
==>warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9297	9424	
==>warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1243	1329	
==>IL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1243	1329	
==>IL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1243	1329	
==>IL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline( <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1046	1140	
==>XX I don't understand what round-alternate means.
# But in my understanding, The implemention b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3256	3345	
==>pher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure decipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3256	3345	
==>pher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure decipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9882	10000	
==>::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9882	10000	
==>::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9882	10000	
==>::SELF->_make_dispatcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $cla <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14306	14424	
==>thers == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2051	2193	
==>ds'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2256	2398	
==>ds'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4499	4604	
==>ject->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## make cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1446	1551	
==>y_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1446	1551	
==>y_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1446	1551	
==>y_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1758	1886	
==>rn ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1758	1886	
==>rn ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1758	1886	
==>rn ""
      if $self->name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22144	22240	
==>ngth of the original string representation of the regex.

=item tree

During the first pass, C<tr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13564	13658	
==>anded.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be ex <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13564	13658	
==>anded.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1680	1791	
==>buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1680	1791	
==>buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1680	1791	
==>buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because {undef,undef} i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	674	789	
==>ringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (W <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	674	789	
==>ringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (W <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	674	789	
==>ringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (W <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6260	6436	
==>->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5768	5944	
==>->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1373	1491	
==>_path(sitelib            => $config); 

    add_path(installarchlib     => $config); 
    add_path(installprivlib     = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13728	13827	
==>d_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7935	8034	
==>d_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5160	5289	
==>@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5160	5289	
==>@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5160	5289	
==>@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8255	8351	
==>urn "" if !defined $pilc;
    $pilc->expand();
}

#============================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8255	8351	
==>urn "" if !defined $pilc;
    $pilc->expand();
}

#============================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8255	8351	
==>urn "" if !defined $pilc;
    $pilc->expand();
}

#============================================== <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	316	473	
==>};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	404	561	
==>};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	403	558	
==>}
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20610	20708	
==>y want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
thi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20610	20708	
==>y want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2654	2761	
==>xpr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionR <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2654	2761	
==>xpr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionR <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14962	15079	
==>scalar_non_numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => sub { $as_hash <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18641	18736	
==>ot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will aut <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18641	18736	
==>ot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will aut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1567	1684	
==>S.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1567	1684	
==>S.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1567	1684	
==>S.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4285	4379	
==>escription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$tod <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4285	4379	
==>escription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$tod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6482	6576	
==>escription> and
C<$reason> parameters and a true value for the passed parameter.

=item C<?$tod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	318	432	
==>PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexical <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	318	432	
==>PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexical <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	318	432	
==>PIL::PStmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexical <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14932	15071	
==>::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optiona <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15211	15350	
==>::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optiona <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1634	1731	
==>dex, $end_index) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2923	3029	
==>1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test fai <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2923	3029	
==>1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test fai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3003	3109	
==>1, 'Hello' );
  test_test( 'passing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test fai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1330	1444	
==>ound => '\B');
  });

  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	376	469	
==>=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprising <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	376	469	
==>=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprising <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2968	3073	
==>"Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2968	3073	
==>"Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2968	3073	
==>"Couldn't close \"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3574	3683	
==>toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3574	3683	
==>toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3574	3683	
==>toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5819	5979	
==>method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5819	5979	
==>method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5819	5979	
==>method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($method_name => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1355	1478	
==>ss defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1355	1478	
==>ss defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2459	2552	
==>al> | <interpolated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | <metasyntactic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1359	1479	
==>s "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1359	1479	
==>s "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1359	1479	
==>s "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	370	474	
==>42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	370	474	
==>42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	370	474	
==>42)   # correct
# * The perlification of an array containing only one element is now ($item,)
#   instead <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11295	11405	
==>$array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11295	11405	
==>$array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11295	11405	
==>$array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clon <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2935	3269	
==>AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} # role Relation::Heading

###########################################################################
###########################################################################

rol <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2047	2140	
==>got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2105	2198	
==>got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34932	35028	
==>heading of <$other>
is not a subset of the heading of the invocant Relation.  This method
degener <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39482	39578	
==>heading of <$other>
is not a subset of the heading of the invocant Relation.  This method
degener <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	490	610	
==>ys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	490	610	
==>ys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	490	610	
==>ys %vars} = values %vars;
}

sub get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	730	830	
==>onstruct new classes which are of its type.

=item *

It serves as the basis for a method dispatch sc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	282	376	
==>OH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	282	376	
==>OH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1492	1595	
==>sif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1492	1595	
==>sif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1492	1595	
==>sif !$p5 && !%modifiers_supported_p6{$k} {
        warning "Modifier :$k is not yet supported by PGE/pug <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11194	11298	
==>pe::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator::arrow-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14504	14604	
==>e( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field(' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14504	14604	
==>e( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2095	2214	
==>ty, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2095	2214	
==>ty, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2095	2214	
==>ty, .name
# TODO - escape continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TO <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5213	5326	
==>CIRCUMFIX );
  push @termStack, $operator;

  expect_oper:
  goto end if ( $position >= $lastPosition );
  my $cur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15836	15925	
==>tp://www.thethirdmanifesto.com/>, and its authors have also written
several books and pape <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15836	15925	
==>tp://www.thethirdmanifesto.com/>, and its authors have also written
several books and pape <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3758	3871	
==>s', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3758	3871	
==>s', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	608	721	
==>s', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20174	20356	
==>nt = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20174	20356	
==>nt = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20174	20356	
==>nt = ". $self->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	423	538	
==>Level = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	423	538	
==>Level = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	423	538	
==>Level = "die";

      // JSAN._exportList does the actual exporting.
      // We box all subs so they can be accesse <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	389	490	
==>[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite becau <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1247	1348	
==>[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite becau <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4746	4883	
==>}
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4746	4883	
==>}
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matche <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13253	13364	
==>"->{_files}} , \$data";
  eval $loc;
  warn "*** Unfortunately $path will not be available in the index (eval $l <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6696	6795	
==>dentified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6696	6795	
==>dentified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mir <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9186	9313	
==>5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX ch <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9186	9313	
==>5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX ch <==
3	/Users/nnunley/pugs/util/build_pugs.pl	32	133	
==>use warnings;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use File::Fi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	343	441	
==>ch::newfrom( $matchObj );
  $matchObj->position($matchObj->from());
  return $matchObj;
}

sub fail <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12121	12214	
==>word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $comman <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12121	12214	
==>word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $comman <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6289	6404	
==>>struct_equiv->val->struct_equiv);
}

sub mangle_sym_name {
	my $self = shift;
	my $sym = shift;

	require charnames <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6923	7031	
==>fined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6981	7089	
==>fined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2526	2647	
==>sage( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2526	2647	
==>sage( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7937	8043	
==>end if $arity > 1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9413	9517	
==>'2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9471	9575	
==>'2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7470	7606	
==>me ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7470	7606	
==>me ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7470	7606	
==>me ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3118	3237	
==>x->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3118	3237	
==>x->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3118	3237	
==>x->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        fo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26053	26146	
==>,[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1909	2009	
==>two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_su <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1909	2009	
==>two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_su <==
3	/Users/nnunley/pugs/util/package-osx.pl	9	116	
==>n/perl

use strict;
use warnings;

unless (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|par <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10899	10995	
==>tta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'g <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10899	10995	
==>tta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15977	16078	
==>MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15977	16078	
==>MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15977	16078	
==>MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5903	6046	
==>,
    ),
    '&say' => Thunk->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print') <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9798	9900	
==>s rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub deco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9798	9900	
==>s rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub deco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1568	1711	
==>e => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1568	1711	
==>e => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1568	1711	
==>e => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= <==
3	/Users/nnunley/pugs/util/package-osx.pl	9840	9956	
==>t$dirs") unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copy <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2015	2122	
==>O - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for s <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2015	2122	
==>O - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20680	20792	
==>e0-9\.]+\Z/;    
    +$m;
  }
}



sub Pugs::Internals::Disabled::use ($module=$+_) is builtin is unsafe {
    #P <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2501	2596	
==>doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Prev <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2501	2596	
==>doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Prev <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	675	771	
==>s for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	675	771	
==>s for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	130	229	
==>::Core::Closure;

package block;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'b <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30329	30426	
==>ch Template module ideally comes as part of a set, at least one member
large, with each set member <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30329	30426	
==>ch Template module ideally comes as part of a set, at least one member
large, with each set member <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18137	18260	
==>ut = CALLER::<$_>, Int $limit = inf --> List )
 multi Str::split (      Str $input ;  Str $delimiter          , Int $limit = <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6501	6598	
==>eived from the network.  If the request fails, then the
status code and message are printed on STD <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6501	6598	
==>eived from the network.  If the request fails, then the
status code and message are printed on STD <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6815	6920	
==>>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6815	6920	
==>>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6815	6920	
==>>(*@xs is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1280	1380	
==>base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg): <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1280	1380	
==>base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg): <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5678	5892	
==>body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5678	5892	
==>body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5678	5892	
==>body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2904	3062	
==>" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2904	3062	
==>" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2118	2210	
==>G{'num_width'} == 32, 'subset complex of complex32  where { true }');
Helpers::macif(%?CONFIG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13776	13974	
==>for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13776	13974	
==>for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13776	13974	
==>for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == und <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35584	35685	
==>l>

=head2 open

Family: open

Types: open1, open2 ... openN (C<(>)

Data: array reference of any numb <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5206	5335	
==>proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub ski <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5264	5393	
==>proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub ski <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1741	1849	
==>le->addToken("term:<-[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:<+[", "term:", "now <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8553	8657	
==>=> join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9853	9947	
==>rsection($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9853	9947	
==>rsection($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1266	1371	
==>Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1266	1371	
==>Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1266	1371	
==>Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	302	394	
==>ALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	302	394	
==>ALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	302	394	
==>ALLER::_:) { $JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4529	4629	
==>oin "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4529	4629	
==>oin "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4529	4629	
==>oin "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is primitive {
  $code( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24195	24364	
==>+) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24195	24364	
==>+) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24195	24364	
==>+) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3082	3255	
==>'$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3082	3255	
==>'$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3082	3255	
==>'$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10213	10339	
==>applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10213	10339	
==>applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10213	10339	
==>applies them to the
    # invocant, which usually will be a class, but it
    # can be a role too.
    # ---------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1223	1321	
==>ter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=hea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1223	1321	
==>ter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1770	1868	
==>ter returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=back

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4589	4740	
==>string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4589	4740	
==>string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4589	4740	
==>string,$pos) // last;
        $m = $s ~~ $rx or last;
        last if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6454	6567	
==>nt = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ($self, $env) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	218	322	
==>efile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	218	322	
==>efile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2335	2438	
==>oot::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2335	2438	
==>oot::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2335	2438	
==>oot::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1373	1558	
==>$container -> ()
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->_extend_to_slot($idx);
                $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	878	963	
==>l::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunct <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	878	963	
==>l::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunct <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5964	6056	
==>lize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<obj <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5964	6056	
==>lize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<obj <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2797	3057	
==>lock = 1;
                }
            }            
            elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	477	573	
==>Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
su <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	477	573	
==>Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	96	223	
==>ly it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	96	223	
==>ly it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	96	223	
==>ly it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output " <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12913	13024	
==>n_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { "". ${$_[0]} },
      scalar_non_numeric => su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2384	2489	
==>stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2384	2489	
==>stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	314	415	
==>ries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	314	415	
==>ries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9543	9701	
==>uments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9543	9701	
==>uments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9543	9701	
==>uments );  # @_ = self + raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2971	3097	
==>ure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2971	3097	
==>ure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2971	3097	
==>ure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1843	1957	
==>ift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemake <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	954	1066	
==>ift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemake <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1045	1145	
==>$a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1045	1145	
==>$a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1045	1145	
==>$a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6624	6732	
==>_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6636	6744	
==>_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	957	1058	
==>mpiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	957	1058	
==>mpiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	86	219	
==>01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	86	219	
==>01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	86	219	
==>01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6346	6487	
==>." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6346	6487	
==>." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6346	6487	
==>." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && $_[0]{'pS <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	677	779	
==>:Package

=head1 DESCRIPTION

Base class for:

    JIB::Package::Source
    JIB::Package::Binary
    JI <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15476	15571	
==>$got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15534	15629	
==>$got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2947	3047	
==>eturn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Coul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2947	3047	
==>eturn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Coul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2947	3047	
==>eturn $js;
}

sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Coul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6415	6520	
==>ming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Grammar:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6199	6302	
==>ming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Grammar:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15302	15441	
==>mented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15296	15435	
==>mented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritabl <==
3	/Users/nnunley/pugs/util/package-osx.pl	6959	7047	
==>r/local/man/man3/Perl6::Perl5::Differences.3pm
        /usr/local/man/man3/Perl6::Perl5:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7219	7321	
==>$lvalue,$class) =
	@c{qw(name kind params body lvalue class)};
    # XXX - lvalue is ignored - use prox <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6502	6600	
==>_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6502	6600	
==>_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2438	2570	
==>rity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2438	2570	
==>rity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2438	2570	
==>rity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1766	1885	
==>e ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1766	1885	
==>e ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1766	1885	
==>e ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'add_method' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7022	7186	
==>see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5199	5310	
==>[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2741	2852	
==>[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub no <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2101	2296	
==>args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=ov <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2101	2296	
==>args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=ov <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6957	7061	
==>> "Querying Pugs for its version",
  ensure => sub { defined $pugs_version },
  using  => sub { $pugs_ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	208	324	
==>" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	208	324	
==>" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Du <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1255	1358	
==>arameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1255	1358	
==>arameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $gram <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8827	8925	
==>age Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for development.
  no war <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	753	868	
==>oday() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	753	868	
==>oday() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2322	2420	
==>_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_match <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2322	2420	
==>_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_match <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2402	2500	
==>_matches  = $expect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_match <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1215	1349	
==>q (@nonemptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } $sub_seq- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	5	107	
==>r/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	5	107	
==>r/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1434	1545	
==>E;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1434	1545	
==>E;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1434	1545	
==>E;\n";

    return ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9745	9901	
==>->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9745	9901	
==>->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9745	9901	
==>->name
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2278	2408	
==>rl6_type = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => "rw <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4823	4913	
==>e provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentatio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4963	5053	
==>e provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7695	7891	
==>, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7695	7891	
==>, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7695	7891	
==>, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13068	13188	
==>exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have ove <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16545	16665	
==>exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have ove <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15907	16027	
==>exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sources have ove <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40496	40625	
==>xed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40496	40625	
==>xed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40496	40625	
==>xed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $this ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1605	1704	
==>contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1605	1704	
==>contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1605	1704	
==>contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16650	16760	
==>re any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16650	16760	
==>re any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16650	16760	
==>re any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18690	18884	
==>>is_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: hash %params) returns <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12180	12280	
==>oin (Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15657	15757	
==>oin (Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3194	3287	
==>s ),
        complement_previous => $self._get_intersection( $self.complement_previous, $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3194	3287	
==>s ),
        complement_previous => $self._get_intersection( $self.complement_previous, $self. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7927	8034	
==>ated') => sub { unify($_[1]{instance}, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', ' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5894	6000	
==>rn Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9371	9477	
==>rn Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1432	1556	
==>r Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1432	1556	
==>r Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1432	1556	
==>r Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15634	15754	
==>) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10490	10610	
==>) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	5	105	
==>s is a replacement for the old BEGIN preamble which heads (or
# should head) up every core test prog <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8960	9084	
==>il, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8647	8768	
==>il, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10219	10312	
==>list => type::variable::free->new),
		type::operator::nullary->new("bool"),
	),
	# list a -> a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40272	40374	
==>his->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40272	40374	
==>his->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40272	40374	
==>his->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8910	9016	
==>ghc-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't rely <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1741	1835	
==>lugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUT <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1741	1835	
==>lugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1382	1493	
==>confess "Index must be a native type";            
    $self->{$key->to_str->to_native} = $value;
    nil->new() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1557	1648	
==>q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1557	1648	
==>q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<gram <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36125	36301	
==>bute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13757	13861	
==>, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13757	13861	
==>, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8320	8492	
==>${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8320	8492	
==>${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8320	8492	
==>${$_[0]->[1]}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::F <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4347	4446	
==>tput object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4347	4446	
==>tput object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5871	5970	
==>tput object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@args )>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	197	316	
==>hift;
    my $self = $class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($ar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6620	6730	
==>am file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .temp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6620	6730	
==>am file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .temp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11625	11747	
==>[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11625	11747	
==>[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11625	11747	
==>[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4968	5094	
==>32),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsil <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4968	5094	
==>32),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsil <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2177	2278	
==>- bugs
# Flag handling is currently an utter kludge. not even trying with m and s.
# Match objects are <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12561	12733	
==>ure} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8835	9007	
==>ure} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9670	9842	
==>ure} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2342	2447	
==>ed.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2342	2447	
==>ed.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2342	2447	
==>ed.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4288	4393	
==>"$type $symbol () {\n\t$body;\n}");
	return $symbol . "()";
}

sub define_val {
	my $self = shift;
	my ($n <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4000	4079	
==>-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4000	4079	
==>-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8884	9068	
==>less ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5244	5428	
==>less ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6093	6277	
==>less ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        n <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1391	1484	
==>ckref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/ <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1391	1484	
==>ckref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7232	7331	
==>c -i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15427	15606	
==>$array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15427	15606	
==>$array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15427	15606	
==>$array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - re <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3088	3213	
==>rd($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		whe <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3088	3213	
==>rd($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		whe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12708	12909	
==>n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12702	12903	
==>n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3848	4003	
==>rait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= { o <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2209	2394	
==>list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2209	2394	
==>list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9482	9604	
==>ee

To walk over the created tree, create an iterator with walker()Z<>:

  my $iter = $parser->walker;

This will produce a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24033	24182	
==>eserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'>
    | <':'>
    | <'@'>
    | <'&'>
    | <'='>
    | <'+'>
    | <'$'>
    | <','>
}
rule <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18680	18774	
==>le automatically tries to use slight variations of the nickname in the
login phase (for example <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18680	18774	
==>le automatically tries to use slight variations of the nickname in the
login phase (for example <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12555	12659	
==>ce =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12555	12659	
==>ce =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3904	3996	
==>nonical_base = File::Spec->catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12355	12467	
==>t' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12355	12467	
==>t' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12355	12467	
==>t' =>  sub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10436	10592	
==>lf->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10436	10592	
==>lf->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10436	10592	
==>lf->params } ) ? scalar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2557	2649	
==>ause this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Ar <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2557	2649	
==>ause this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3555	3660	
==>s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3555	3660	
==>s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3555	3660	
==>s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10074	10234	
==>or (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10074	10234	
==>or (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10074	10234	
==>or (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    push @s, $spec->str;
                } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	315	415	
==>self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	315	415	
==>self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	315	415	
==>self->{CC};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3291	3420	
==>ative_precedences{$opt->{precedence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2228	2356	
==>ay',
    #    assoc => 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1341	1454	
==>";
    exit;
  }

  uncompress_smoke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14825	14923	
==>imP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14825	14923	
==>imP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14825	14923	
==>imP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;');
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	72	195	
==>sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	72	195	
==>sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	72	195	
==>sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is be <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30556	30743	
==>$self->send('_make_ascendant_dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27546	27646	
==>lone of the first but for the changes.

=back

A Message object has these methods:

=over

=item C<ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27546	27646	
==>lone of the first but for the changes.

=back

A Message object has these methods:

=over

=item C<ex <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10780	10942	
==>}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10780	10942	
==>}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ " <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1461	1592	
==>, the others get added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4768	4942	
==>t";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4768	4942	
==>t";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () return <==
3	/Users/nnunley/pugs/util/func_refact.pl	2913	3018	
==>$cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", sco <==
3	/Users/nnunley/pugs/util/package-osx.pl	11683	11790	
==>OVER;
    chmod 0755, "$dest$files[-1]";
    print "Made $dest$files[-1]\n";
}

sub chown_all {
    my ($des <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12054	12152	
==>us( $x )`

Returns the element in the recurrence that is right before the parameter.

- `current( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12054	12152	
==>us( $x )`

Returns the element in the recurrence that is right before the parameter.

- `current( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	132	236	
==>Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	132	236	
==>Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	132	236	
==>Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (function () { 42 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8120	8270	
==>d || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8120	8270	
==>d || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8120	8270	
==>d || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18604	18716	
==>f ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19962	20074	
==>f ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	258	348	
==>args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	258	348	
==>args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	258	348	
==>args.pop();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().refer <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2446	2547	
==>ift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13711	13831	
==>ute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13711	13831	
==>ute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13711	13831	
==>ute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26244	26341	
==>inal's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30796	30893	
==>inal's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29789	29886	
==>inal's attributes; that subset is the same as
those attribute names in the argument C<$attrs>.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10070	10179	
==>ain()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10070	10179	
==>ain()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10070	10179	
==>ain()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5875	5981	
==>um, my $entry = {
		orig => $self,
		new => undef,
	};
	
	$entry->{new} = $self->SUPER::splat($accum);
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24883	24977	
==>n St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24883	24977	
==>n St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11266	11382	
==>$code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11266	11382	
==>$code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11266	11382	
==>$code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value:: <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2581	2727	
==>md");
chdir($cwd);
unless (-x "$testdir/$exename.exe") {
    print "# Could not build $exename.exe\n"
     ."1..0 # skipped: can't build test e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12373	12467	
==>their children).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and errnum( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11058	11147	
==>. Dumper->reduce($res->val), "\n";
printf"Run took: %.3f (%.3f compilation, %.3f execution <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4419	4517	
==>varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4419	4517	
==>varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4419	4517	
==>varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	904	1005	
==>PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	904	1005	
==>PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	904	1005	
==>PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4228	4338	
==>lice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4228	4338	
==>lice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4228	4338	
==>lice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3936	4043	
==>s too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3936	4043	
==>s too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3936	4043	
==>s too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12890	12998	
==>kage PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12890	12998	
==>kage PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12890	12998	
==>kage PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	730	881	
==>ure( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	751	902	
==>y $self = shift;
                my $repl = shift;
                @{$self->get_value('@:slots')} = @$repl;
            },

            'array_fetchKeys <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	730	881	
==>ure( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8527	8682	
==>rgs, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4887	5042	
==>rgs, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5736	5891	
==>rgs, match::str( $_ );  # emit($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5882	6008	
==>_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5882	6008	
==>_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5882	6008	
==>_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_sou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10093	10230	
==>s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6434	6571	
==>s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7283	7420	
==>s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2337	2445	
==>equired.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filena <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2337	2445	
==>equired.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filena <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2337	2445	
==>equired.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filena <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2982	3090	
==>e uploaded
    automatically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    return unless defined $ENV{PUG <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23795	23892	
==>is is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28347	28444	
==>is is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Map <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8847	8952	
==>ht/non/chain/list
 # rule=>$rule 
 #  (is parsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compile <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10594	10695	
==>continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10594	10695	
==>continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37512	37605	
==>ional parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_tem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37512	37605	
==>ional parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_tem <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30519	30611	
==>gexp::Parser/"Walking the Tree">).

=back

Objects may override these methods (as objects oft <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2494	2619	
==>def;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2494	2619	
==>def;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2494	2619	
==>def;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34180	34271	
==>med C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38730	38821	
==>med C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2798	2901	
==>fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2798	2901	
==>fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2798	2901	
==>fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Cou <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2154	2288	
==>it depends: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$dep <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3519	3645	
==>it depends: lines and objectified dependencies
                ### for better diagnostics
                die "Dependency '$dep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8935	9024	
==>ce calling metaclass singleton method fails';
fails_ok { $iFoo->singleton_test_on_object } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4406	4509	
==>ctly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

bas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4406	4509	
==>ctly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

bas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4486	4589	
==>ctly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUTHOR

bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39935	40063	
==>e;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39935	40063	
==>e;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39935	40063	
==>e;

sub new {
    my $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $val <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4688	4782	
==>.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4688	4782	
==>.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	853	985	
==>fix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	853	985	
==>fix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	853	985	
==>fix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6031	6133	
==>d declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6031	6133	
==>d declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6031	6133	
==>d declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	370	518	
==>f objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	370	518	
==>f objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	370	518	
==>f objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _('$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	830	927	
==>stance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	830	927	
==>stance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	830	927	
==>stance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO
$::EigenClass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1014	1126	
==>. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1014	1126	
==>. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1014	1126	
==>. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Par <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	278	380	
==>ole which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::I <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	278	380	
==>ole which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1132	1316	
==>'$.description'},
                '$.passed'      =>                        1,
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $para <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4502	4597	
==>decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4502	4597	
==>decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cip <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1552	1691	
==>cument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1552	1691	
==>cument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1552	1691	
==>cument.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	885	1001	
==>ee tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	885	1001	
==>ee tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	885	1001	
==>ee tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          for ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1157	1258	
==>{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1157	1258	
==>{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1157	1258	
==>{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10588	10712	
==>$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10588	10712	
==>$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10588	10712	
==>$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1120	1228	
==>06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1120	1228	
==>06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10012	10127	
==>0000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10012	10127	
==>0000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10012	10127	
==>0000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eva <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2085	2201	
==>::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2866	2982	
==>::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    m <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	154	252	
==>can be modifed to be somehow incorporated in the test suit

use File::Compare qw(compare);


my $pu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	857	960	
==>ar;
  $me->target($target);
  $me->from($from);
  my $position = -1;
  $me->position($position);

  $fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2709	2806	
==>" = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <V <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2709	2806	
==>" = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <V <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20405	20505	
==>eval_p5_log_code($code);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18274	18367	
==>specify the address (URI) of the document from which the
requested resource address was obtain <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18274	18367	
==>specify the address (URI) of the document from which the
requested resource address was obtain <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29017	29110	
==>tributes which wrap zero old attributes (they are effectively just an
extension of the relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33569	33662	
==>tributes which wrap zero old attributes (they are effectively just an
extension of the relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32706	32799	
==>tributes which wrap zero old attributes (they are effectively just an
extension of the relatio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22370	22508	
==>aram pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .return ($P0)
  ws:
    self["subname"] = "ws"
    self["iscapture"] = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1809	1928	
==>s Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1809	1928	
==>s Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    h <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3006	3138	
==>tr = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3006	3138	
==>tr = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1293	1416	
==>$test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9424	9558	
==>= 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9412	9546	
==>= 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 un <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1405	1513	
==>bug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6546	6635	
==>OF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6546	6635	
==>OF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6546	6635	
==>OF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9913	10063	
==>($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9913	10063	
==>($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9913	10063	
==>($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1681	1794	
==>r obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1681	1794	
==>r obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1681	1794	
==>r obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, arg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13548	13660	
==>roper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17025	17137	
==>roper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16387	16499	
==>roper subset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7611	7711	
==>params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7611	7711	
==>params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7611	7711	
==>params . "\n" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7866	7983	
==>{
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7866	7983	
==>{
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7866	7983	
==>{
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF'), $jsname,
        $padname, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1899	2001	
==>ion.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1899	2001	
==>ion.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1899	2001	
==>ion.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_check();

  my $pil  = run_pugs("-CPIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	773	1011	
==>\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	774	1012	
==>\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29358	29463	
==>ust
explicitly add it to the queue (C<< $parser->{next} >>).

The handle '|' is post-consumptive.  It happ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2465	2571	
==>::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2465	2571	
==>::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2465	2571	
==>::system(Str *@command) is primitive {
  JS::inline('(
    function (arguments) {
        if (!Perl5) throw <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1675	1789	
==>tus? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph? <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1675	1789	
==>tus? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10970	11083	
==>less ref $args{progs} eq "ARRAY";
        foreach my $prog (@{$args{progs}}) {
            if ($is_mswin || $is_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2848	2968	
==>_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2848	2968	
==>_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2848	2968	
==>_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub comp <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9551	9821	
==>*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9551	9821	
==>*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10490	10619	
==>rks properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10490	10619	
==>rks properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10490	10619	
==>rks properly
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5156	5267	
==>pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastcloseparen = SvOK(lcp) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11175	11282	
==>the time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.las <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11175	11282	
==>the time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.las <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19615	19777	
==>nk in $source to $target does not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfi <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	81	172	
==>ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	81	172	
==>ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13456	13562	
==>ir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13456	13562	
==>ir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13456	13562	
==>ir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MU <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6437	6667	
==>t.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code( <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6437	6667	
==>t.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6162	6262	
==>e.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6220	6320	
==>e.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13732	13831	
==>There may end up being a gotcha, where one needs
  something to happen or not happen, but the releva <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2126	2250	
==>(defined $index_file
                    ? file($index_file)
                    : $obj->index->file($config->repo_index_file <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2189	2298	
==>r $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whate <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2189	2298	
==>r $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whate <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5950	6064	
==>lower the first chunk by 1/3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21681	21770	
==>d independence
is I<Database Driver Independence>, and not I<Database Language
Independenc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21681	21770	
==>d independence
is I<Database Driver Independence>, and not I<Database Language
Independenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1727	1849	
==>relude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1727	1849	
==>relude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1727	1849	
==>relude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  warn "           Please <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12364	12556	
==>,
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12364	12556	
==>,
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routi <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8968	9177	
==>s )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8968	9177	
==>s )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17936	18021	
==>n,F0,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	533	659	
==>= @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $na <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	533	659	
==>= @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $na <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	533	659	
==>= @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $na <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20398	20502	
==>0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[X|Fx],[10|Bx],[10|Bx],E0,E0) :- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11925	12023	
==>or the header() method, the field name ($field) is not case
sensitive and '_' can be used as a repl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11925	12023	
==>or the header() method, the field name ($field) is not case
sensitive and '_' can be used as a repl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	263	364	
==>e the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	263	364	
==>e the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	263	364	
==>e the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2264	2403	
==>self, $delimiter) = @_;
    (blessed($delimiter) && $delimiter->isa('str'))
        || confess "delimiter must be a string type";    
    re <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2122	2213	
==>efix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(I <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2122	2213	
==>efix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3122	3247	
==>ub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3122	3247	
==>ub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3122	3247	
==>ub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	198	335	
==>er_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	198	335	
==>er_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	198	335	
==>er_scope;
    $env->set(@_) if @_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	479	647	
==>ngs')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	479	647	
==>ngs')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	479	647	
==>ngs')};
                my $type = _('$.type');
                my @res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8327	8430	
==>ndex{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8315	8418	
==>ndex{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1994	2107	
==>'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1994	2107	
==>'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => ' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24126	24226	
==>rom
 * compile to execute that permits the execute phase to run lots faster on
 * simple cases.  They <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6964	7075	
==>B prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6964	7075	
==>B prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6964	7075	
==>B prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5010	5159	
==>ned ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5010	5159	
==>ned ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5010	5159	
==>ned ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19312	19420	
==>a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attribute is a colu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23864	23972	
==>a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attribute is a colu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22380	22488	
==>a
picture of one can look like a table, where each tuple is a row and each
relation/tuple attribute is a colu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1822	1940	
==>ass;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1822	1940	
==>ass;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1822	1940	
==>ass;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_n <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6122	6218	
==>nce}->is_arrow;
}

sub splat { # this simplifies the AG above, and avoids unnecessary duplication <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3651	3797	
==>d;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3651	3797	
==>d;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_op <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10082	10172	
==>L_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl = "$ENV{PER <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	448	575	
==>elete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submeth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	448	575	
==>elete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	365	460	
==>$CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	365	460	
==>$CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	365	460	
==>$CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $self = $CALLER::_:) { $JS::Math.tan(+$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31730	31888	
==>th++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31730	31888	
==>th++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31730	31888	
==>th++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub _pop_n {
    my $array = shift;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17285	17383	
==>le implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17285	17383	
==>le implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17285	17383	
==>le implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements platform-specific <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2750	2848	
==>ensions} || [];
    unless (@$extensions) {
        $self->load_extensions("$self->{prefix}/$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1736	1832	
==>S

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying rol <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1736	1832	
==>S

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying rol <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	64	165	
==>ontrol:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	64	165	
==>ontrol:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5456	5542	
==>\<\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[a <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12587	12702	
==>) { ... }
    method current () { ... }
}

# Support for =$fh
class IO does Iter {
    method shift   () is primitiv <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17605	17700	
==>TP
standard.>

=item $h.user_agent

This header field is used in request messages and contains i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17605	17700	
==>TP
standard.>

=item $h.user_agent

This header field is used in request messages and contains i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1338	1450	
==>link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1338	1450	
==>link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1338	1450	
==>link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9851	9972	
==>ese attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # -------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9851	9972	
==>ese attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # -------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9851	9972	
==>ese attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # -------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2826	2928	
==>aram{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2826	2928	
==>aram{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2826	2928	
==>aram{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contiguou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	445	556	
==>source;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 104 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	445	556	
==>source;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 104 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	445	556	
==>source;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 104 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32679	32775	
==>gnificant to the result;
the new Relation contains all the tuples of the source Relations, includ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37229	37325	
==>gnificant to the result;
the new Relation contains all the tuples of the source Relations, includ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4560	4662	
==>^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4560	4662	
==>^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4560	4662	
==>^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comme <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2182	2279	
==>lf!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_le <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2182	2279	
==>lf!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_le <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2352	2448	
==>ove method always uses a starting guess which is half
the target.  This does not facilitate recov <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	538	633	
==>odel;
use File::Spec;
use Benchmark;
our @ISA = qw(Test::TAP::Model);
our $SMOKERFILE = ".smoker <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23232	23326	
==>results or associations.  Or alternately, the other
packages require your text data to be store <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23232	23326	
==>results or associations.  Or alternately, the other
packages require your text data to be store <==
3	/Users/nnunley/pugs/util/package-osx.pl	7685	7782	
==>/man/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /u <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18703	18798	
==>cts to avoid problems.  While simultaneously
trying to avoid triggering core behavior which we a <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2993	3088	
==>cts to avoid problems.  While simultaneously
trying to avoid triggering core behavior which we a <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1000	1111	
==>>base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_version = shift
      or <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9077	9177	
==>s"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9077	9177	
==>s"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5041	5183	
==>ix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5041	5183	
==>ix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5041	5183	
==>ix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_v <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1403	1503	
==>rns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infini <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1403	1503	
==>rns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infini <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2223	2353	
==>estPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or missing plan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3035	3151	
==>s{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3035	3151	
==>s{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3266	3379	
==>) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3266	3379	
==>) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3266	3379	
==>) {
      my ($mode, $contents) = @$_;
      die "*** Can't link to files when creating a standalone JavaScript fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	195	302	
==>{
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	195	302	
==>{
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	195	302	
==>{
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18949	19063	
==>__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        o <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18949	19063	
==>__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	868	988	
==>utosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	868	988	
==>utosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11167	11260	
==>bless(undef, %params // hash());
}

(method new ((opaque $class:) (hash ?%params)) returns opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	945	1060	
==>mple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Fi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	945	1060	
==>mple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Fi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6115	6227	
==>>
    | <UnicodeCombiningMark>
    | <UnicodeDigit>
    | <UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEsca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1338	1424	
==>ain_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1338	1424	
==>ain_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1338	1424	
==>ain_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	350	470	
==>l =~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1;
  PAREN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14036	14175	
==>rn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " {\n" . _e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4938	5038	
==>ering of any leftover data and returns it as an array of bytes, 
then clears the object's internal st <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4938	5038	
==>ering of any leftover data and returns it as an array of bytes, 
then clears the object's internal st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15118	15254	
==>:Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15118	15254	
==>:Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15118	15254	
==>:Num::NaN;
    $v = 0 + $v;
    return 'Inf'  if $v == Inf;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29034	29130	
==>method is a generic relational operator that returns a new Relation::Example
which is the same as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31882	31978	
==>method is a generic relational operator that returns a new Relation::Example
which is the same as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32929	33025	
==>method is a generic relational operator that returns a new Relation::Example
which is the same as <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11244	11395	
==>> 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'resul <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11244	11395	
==>> 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'resul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	502	612	
==>--------

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_coun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2362	2457	
==>ring(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2362	2457	
==>ring(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2362	2457	
==>ring(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4421	4517	
==>ile, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not supp <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4421	4517	
==>ile, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not supp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3374	3462	
==>s.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3374	3462	
==>s.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3374	3462	
==>s.meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	379	477	
==>options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	340	438	
==>options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	340	438	
==>options\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6818	6949	
==>warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6818	6949	
==>warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6818	6949	
==>warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11746	11898	
==>::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12104	12256	
==>::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15033	15134	
==>n :words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpression> <'+'> <Multiplicati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2422	2544	
==>lf->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2422	2544	
==>lf->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? spr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2422	2544	
==>lf->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? spr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5952	6069	
==>\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5952	6069	
==>\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5952	6069	
==>\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1066	1168	
==>lic => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1066	1168	
==>lic => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8932	9059	
==>n
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8932	9059	
==>n
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8932	9059	
==>n
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	779	901	
==>ict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self = shift;
		my $key = shift;

		exists $self->{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9307	9396	
==>, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3132	3221	
==>, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2539	2661	
==>me};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2539	2661	
==>me};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2539	2661	
==>me};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($na <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4063	4168	
==>_get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $univ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4063	4168	
==>_get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $univ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2994	3113	
==>afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2994	3113	
==>afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2994	3113	
==>afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX::BaseClass); sub ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5961	6314	
==>e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7723	8076	
==>e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	547	644	
==>re { $^n ne $EMPTY_STR };

subtype Relation::LaxAttrScalarSubType of Any where {
    .does(Package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2905	3113	
==>v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2905	3113	
==>v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2905	3113	
==>v} = $h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2331	2455	
==>y $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2331	2455	
==>y $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2331	2455	
==>y $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15486	15603	
==>->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16901	17018	
==>->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21657	21774	
==>->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4507	4604	
==>or example: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4507	4604	
==>or example: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22830	22928	
==>).class
}

(method class ((opaque $self:)) returns opaque 
    ($self: class))

=cut

$::Class->sen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21240	21337	
==>is that it provides a
common API for access to those databases, each of which takes a different
SQ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21240	21337	
==>is that it provides a
common API for access to those databases, each of which takes a different
SQ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13891	14028	
==>zip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  descr  => "Creating directory \"$cdroot\"",
  ensure => sub { -d $cdroot and -r $cdr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12144	12239	
==>N, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12144	12239	
==>N, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1059	1154	
==>e_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

= <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1059	1154	
==>e_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	178	272	
==>s::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;

my %relative_precedences = (
    tighter => <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36111	36209	
==>ving the same Member Name are adjacent
to each other in the output; for example, with Sets of ['MyA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36111	36209	
==>ving the same Member Name are adjacent
to each other in the output; for example, with Sets of ['MyA <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11564	11660	
==>ements in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

R <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11564	11660	
==>ements in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

R <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27608	27701	
==>m => val(5) )), "list int", ":t listify(5)");
is(t($length_and_first), "∀α. list α → (α <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36478	36585	
==>@{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36478	36585	
==>@{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36478	36585	
==>@{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	328	424	
==>rl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	328	424	
==>rl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	328	424	
==>rl6::Code;
require PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5694	5850	
==>ch = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5694	5850	
==>ch = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5694	5850	
==>ch = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1612	1731	
==>het_x1  => sub{$rpcr2->match('abc') for 1..20},
    fast_x10     => sub{$x->('abc')         for 1..200},
    P5regex_x <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3150	3267	
==>nd @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{dep <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3614	3731	
==>nd @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{dep <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1728	1858	
==>gths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    ret <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1728	1858	
==>gths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3098	3232	
==>ect = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4798	4927	
==>ect = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3826	3951	
==>ect = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(sh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3846	3999	
==>{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3030	3137	
==>) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3030	3137	
==>) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	977	1100	
==>ef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	977	1100	
==>ef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	977	1100	
==>ef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2224	2367	
==>e->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metacl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2224	2367	
==>e->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metacl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2224	2367	
==>e->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $authority, $body) = @_;
    
    my $metacl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10074	10209	
==>$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10074	10209	
==>$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10074	10209	
==>$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_descriptio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1595	1738	
==>/ to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1595	1738	
==>/ to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()< <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1581	1697	
==>d?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi  Num::log (  Num  $x             ; N <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9224	9339	
==>ON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9224	9339	
==>ON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34129	34240	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimiz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34129	34240	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimiz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34129	34240	
==>UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimiz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3384	3502	
==>tring } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3384	3502	
==>tring } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3384	3502	
==>tring } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11904	12003	
==>%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11904	12003	
==>%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11904	12003	
==>%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4633	4827	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4633	4827	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4056	4160	
==>>match( "xyzw" );
    is( "$match", "x", 'stringify 1' );
}


__END__

Operator precedence parser

--- fr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5199	5323	
==>omplement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.ge <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5199	5323	
==>omplement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.ge <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15223	15323	
==>tart with identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18700	18800	
==>tart with identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => se <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5610	5709	
==>nce, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Al <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5610	5709	
==>nce, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Al <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3215	3342	
==>ler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPT <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3215	3342	
==>ler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPT <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12932	13018	
==>"). brackets("(",")"). brackets("[","]").
brackets("<",">"). brackets(">","<").
bracket <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16156	16256	
==>TI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16156	16256	
==>TI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16156	16256	
==>TI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	848	956	
==>ight) = @_;
    return bit->new(0) 
        unless blessed($right) && $right->isa('symbol');
    return bit-> <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	679	775	
==>e" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	679	775	
==>e" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25608	25735	
==>) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'log <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1799	1901	
==>m>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1799	1901	
==>m>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5241	5327	
==>ti sub ToPrimitive(JSX::Value::Object $o) {$o.<[[DefaultValue]]>}
multi sub ToPrimitive <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4289	4368	
==>([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*26214 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4289	4368	
==>([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*26214 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5671	5856	
==>,
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5671	5856	
==>,
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5671	5856	
==>,
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15636	15732	
==>. $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15636	15732	
==>. $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15636	15732	
==>. $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	702	801	
==>xt> represents a little slice of content in a Perldoc
DOM tree.

It has one property - content.

The <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	702	801	
==>xt> represents a little slice of content in a Perldoc
DOM tree.

It has one property - content.

The <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9753	9851	
==>= \$hash->{'bool'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$pos <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11537	11626	
==>"Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11537	11626	
==>"Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1479	1609	
==>\$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1467	1597	
==>\$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	102	202	
==>Old docs are after the __END__.

This is a rewrite of the matching engine, aiming to generate the s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3081	3184	
==>ETCH('::Test')->STORE('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    do <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3320	3421	
==>e and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3320	3421	
==>e and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1345	1451	
==>rs_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1345	1451	
==>rs_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1345	1451	
==>rs_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) s <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1886	2008	
==>d match ($notification) {
        # this is really up to your subscription and event subclasses to define these
        # i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	789	879	
==>increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	789	879	
==>increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	789	879	
==>increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1895	1998	
==>__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1895	1998	
==>__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1895	1998	
==>__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH())",  $self->SUPER::as_js;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1878	2000	
==>nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, pr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1878	2000	
==>nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, pr <==
3	/Users/nnunley/pugs/util/package-osx.pl	2504	2593	
==>cal/share/doc/pugs/docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2224	2359	
==>st if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2224	2359	
==>st if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2224	2359	
==>st if $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11522	11708	
==>round
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11522	11708	
==>round
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11522	11708	
==>round
        },
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() mu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	135	281	
==>ame) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) ! <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	135	281	
==>ame) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) ! <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	295	405	
==>ss, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not enough elements to construct a hash ( <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	696	814	
==>ssertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	696	814	
==>ssertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () { <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12357	12468	
==>[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4365	4466	
==>both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4365	4466	
==>both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4445	4546	
==>both the diagnostics and output match exactly.  If you pass
C<$description>, this will use it as the t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8621	8758	
==>) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8814	8951	
==>) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       rule <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9839	9955	
==>do not carry the a line number, so leave them out for now
          if($test->{todo}||0 == 1) {
          $lines->{$l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3613	3726	
==>>nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3613	3726	
==>>nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3613	3726	
==>>nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3937	4046	
==>$type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3937	4046	
==>$type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3937	4046	
==>$type, $name, $default, $required, $slurpy ) = 
           ( $param{type}, $param{name}, $param{default}, $par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20475	20572	
==>cation where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20475	20572	
==>cation where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specifi <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2280	2368	
==>Helpers::macif(%?CONFIG{'num_width'} == 128,'subset complex of complex128 where { true }' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17534	17640	
==>omb(
	fun => ide("pair"),
	param => val(10),
);

# a fully constructed pair, with a = int and b = str
my $p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24924	25017	
==>ed.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple container which <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24924	25017	
==>ed.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple container which <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2351	2585	
==>> 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1483	1653	
==>> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1483	1653	
==>> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3011	3154	
==>pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3011	3154	
==>pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3011	3154	
==>pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$string;
      my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	472	575	
==>called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	472	575	
==>called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5088	5185	
==>on.
# Need to figure out positional constructors.  At least it's isolated here. :(
sub new_box {ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	104	223	
==>= { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	104	223	
==>= { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	104	223	
==>= { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var fetch = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5680	5787	
==>bj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5680	5787	
==>bj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5680	5787	
==>bj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6666	6790	
==>ix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6666	6790	
==>ix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6666	6790	
==>ix:<--> ($a is rw)    is primitive { my $cur = $a; $a = $a - 1; $cur }
sub JS::Root::rand ($a = 1)    is primitive { $JS::Mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1762	1871	
==>erences
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5_rule_decl {
    # XXX <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6304	6405	
==>tart > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6304	6405	
==>tart > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10566	10699	
==>d label
        symbol->new('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1204	1307	
==>/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1204	1307	
==>/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6948	7169	
==>[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6948	7169	
==>[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6948	7169	
==>[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3268	3408	
==>lete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIP <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3268	3408	
==>lete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4583	4720	
==>l} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term->parse( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4273	4408	
==>() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7750	7885	
==>() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6734	6869	
==>() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13600	13721	
==>g, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner jo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17077	17198	
==>g, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner jo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16439	16560	
==>g, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner jo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8934	9118	
==>has_method", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set("$method <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22512	22606	
==>with the outside
environment at all.

A Relation object has 2 main attributes (implementation d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27064	27158	
==>with the outside
environment at all.

A Relation object has 2 main attributes (implementation d <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1406	1547	
==>tart;
        } else {
            my $end = date($/[37..35]);
            $duration = Duration::Gregorian.new
                ( :start($start <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5281	5411	
==>! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5281	5411	
==>! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3941	4091	
==>or my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3941	4091	
==>or my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3941	4091	
==>or my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9612	9772	
==>hift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4251	4385	
==>1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4239	4373	
==>1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4083	4211	
==>ep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!ca <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4083	4211	
==>ep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!ca <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1477	1566	
==>xpr =~ s/\$([0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12721	12855	
==>the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12721	12855	
==>the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12721	12855	
==>the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1835	1941	
==>d by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interface <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1835	1941	
==>d by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interface <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1835	1941	
==>d by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declaration of Roles/Interface <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33984	34102	
==>rl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33984	34102	
==>rl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33984	34102	
==>rl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	592	696	
==>HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	362	466	
==>HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	362	466	
==>HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	141	262	
==>'0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	141	262	
==>'0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	141	262	
==>'0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1188	1285	
==>elf;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1188	1285	
==>elf;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1188	1285	
==>elf;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my Dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17533	17636	
==>x0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17533	17636	
==>x0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17533	17636	
==>x0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3901	4010	
==>hould be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=hea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3901	4010	
==>hould be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5425	5534	
==>hould be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=hea <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8177	8320	
==>own node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[0] as_string: $ret";
    db <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22286	22384	
==>ation is not a table.

The Relation class is pure and deterministic, such that all of its class
and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26838	26936	
==>ation is not a table.

The Relation class is pure and deterministic, such that all of its class
and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9752	9847	
==>);

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9752	9847	
==>);

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9752	9847	
==>);

::Class.meta.add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	208	313	
==>ng changes to user p5 code.  It was explored as a possible
# bootstrap path for perl6.

# The perl5 regexp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3409	3513	
==>rvername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3409	3513	
==>rvername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11743	11844	
==>eric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=h <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11743	11844	
==>eric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=h <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11474	11574	
==>The Perl 5 way"

=item KeyExtractor

A closure with arity of 1, which returns the "key" by which to s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11866	11965	
==>hod_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11866	11965	
==>hod_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11866	11965	
==>hod_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2905	3071	
==>key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2905	3071	
==>key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9274	9430	
==>b{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10265	10421	
==>b{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	951	1049	
==>document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	951	1049	
==>document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4761	4844	
==>al(PIL::PIL1::NodeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNodeD <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	323	439	
==>, 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $sr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	323	439	
==>, 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $sr <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19061	19176	
==>> "f",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("f"),
				param => val( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29203	29312	
==>d dispatcher (opaque $self: symbol $order) returns block {
    $order = ':ascendant' 
        if !~$order || $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1177	1281	
==>ro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/va <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1177	1281	
==>ro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1639	1738	
==>te containers.



the Body is just a structure with three node forms: Var

(variable lookup), App (a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1573	1669	
==>te containers.

the Body is just a structure with three node forms: Var
(variable lookup), App (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6092	6202	
==>e, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6092	6202	
==>e, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6092	6202	
==>e, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Required parameter \\"" + %s + "\\" not passed to sub \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5028	5149	
==>= PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5028	5149	
==>= PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5028	5149	
==>= PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	854	988	
==>return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	854	988	
==>return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	854	988	
==>return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.STORE(n);
        return this;
      }
    ));
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7220	7331	
==>ined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7220	7331	
==>ined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7220	7331	
==>ined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2084	2251	
==>fined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2084	2251	
==>fined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2084	2251	
==>fined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12728	12849	
==>('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12728	12849	
==>('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12728	12849	
==>('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	530	629	
==>ndles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	530	629	
==>ndles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1086	1185	
==>ndles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12475	12589	
==>MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12475	12589	
==>MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12475	12589	
==>MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@x <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14855	14955	
==>target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14855	14955	
==>target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channe <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	265	357	
==>aive_bayesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grapes grapes" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23795	23889	
==>l "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23795	23889	
==>l "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23795	23889	
==>l "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULTI SU <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2071	2200	
==>ault {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub Array::reverse (   @value <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	65	174	
==>c.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump] <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	65	174	
==>c.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1239	1337	
==>ide the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1239	1337	
==>ide the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1239	1337	
==>ide the opaque instance structure (see chaos.pl)
foreach my $meta_obj ($::Class, $::Object, $::Pack <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7744	7888	
==>-> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11221	11365	
==>-> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10385	10529	
==>-> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusio <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15610	15757	
==>_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $sobj->deobjecti <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	922	1035	
==>Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "S <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	922	1035	
==>Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "S <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7222	7346	
==><CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7222	7346	
==><CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get <==
3	/Users/nnunley/pugs/util/config_h.pl	631	745	
==>fig.h" or die $!;

while (<IN>) {
    /version (\S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#ifdef PU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	632	736	
==>r::Rule->compile(<<'RULE')->code();

    rule <p6ws> <ident> <p6ws>? \{ <rule> \}
        { return { rule <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1826	1961	
==>_control'}         = [ control         => SUBDIR_OF_META   ];
$config{'_alternatives'}    = [ alternatives    => SUBDIR_OF_META   ];
$co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27230	27343	
==>VEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message objec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27230	27343	
==>VEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1480	1572	
==>self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1480	1572	
==>self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1480	1572	
==>self = $CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3286	3378	
==>lass::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_acces <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	57	149	
==>lass::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_acces <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	39	179	
==>nings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YAML                    qw[LoadFile];
use Params::Check           q <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1280	1401	
==>0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRI <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1280	1401	
==>0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	944	1061	
==>e contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	944	1061	
==>e contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	944	1061	
==>e contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1578	1672	
==>redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1578	1672	
==>redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1578	1672	
==>redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2492	2616	
==>read([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2492	2616	
==>read([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2492	2616	
==>read([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PI <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	95	185	
==>2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Val <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	95	185	
==>2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	603	713	
==>L_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMake <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9661	9756	
==>n infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successor" <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9661	9756	
==>n infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successor" <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12249	12367	
==>enter_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4946	5047	
==>ad2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4946	5047	
==>ad2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10063	10203	
==>thod = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10063	10203	
==>thod = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10063	10203	
==>thod = __('$AUTOLOAD');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_desc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	586	698	
==>n $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	586	698	
==>n $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	586	698	
==>n $self;  
}));

$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($param <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18939	19107	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19218	19386	
==>ional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10239	10412	
==>n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$arg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6580	6753	
==>n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7429	7602	
==>n" .
                    "    my $args[$_] = " . 
                    "match::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$arg <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1901	2018	
==>S_DIR },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unle <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3442	3539	
==>it; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoanaly <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3442	3539	
==>it; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoanaly <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1092	1238	
==>of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1092	1238	
==>of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
pac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1092	1238	
==>of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	734	838	
==>(shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	734	838	
==>(shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	734	838	
==>(shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23963	24105	
==>tion of //g. */
  #define REXEC_ML        0x20            /* $* was set. */



 regcomp.h:
 * The "internal use only" fields in regexp.h are pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1998	2094	
==>var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1998	2094	
==>var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2526	2622	
==>ue_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2526	2622	
==>ue_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2526	2622	
==>ue_instance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37484	37635	
==>et";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37484	37635	
==>et";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37484	37635	
==>et";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    my $item  = shift;
    # war <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	738	835	
==>tr is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bo <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	738	835	
==>tr is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	217	312	
==>tribute, just scroll down until pod lines start appearing, and
# continue conversion to p6 code. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11433	11570	
==>c->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11433	11570	
==>c->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11433	11570	
==>c->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## return (0,"") unless $spec->match_type( [ @params[$i..$#param <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	519	622	
==>is class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output> <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	519	622	
==>is class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1075	1178	
==>is class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2688	3019	
==>m('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	906	1002	
==>s Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	906	1002	
==>s Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1219	1348	
==>>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1219	1348	
==>>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	604	717	
==>s.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair ass <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	604	717	
==>s.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair ass <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	604	717	
==>s.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair ass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14314	14409	
==>from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14314	14409	
==>from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14314	14409	
==>from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17457	17602	
==>ding.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20934	21079	
==>ding.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20521	20666	
==>ding.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pair <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25289	25383	
==>Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25289	25383	
==>Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	103	256	
==>s keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	103	256	
==>s keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	103	256	
==>s keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid";
  die unless $self->{pCxt}->isa("PIL::TCxt");
  die unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14166	14404	
==>e->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14166	14404	
==>e->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14166	14404	
==>e->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	21	121	
==>r written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gramma <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	21	121	
==>r written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gramma <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12087	12207	
==>5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12087	12207	
==>5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T0 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4303	4406	
==>efore booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz=$initrd_gz
    mkl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2474	2574	
==>$::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2474	2574	
==>$::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2474	2574	
==>$::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	851	971	
==>, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# conversion to other <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25950	26049	
==>k if called with ampersands, and only if
the parser object is the first value in C<@_>.>  I made sur <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4331	4437	
==>t::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new() <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4331	4437	
==>t::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new() <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4716	4815	
==>cale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	484	583	
==>t with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    system("pugs naive_bay <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4716	4815	
==>cale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35352	35458	
==>have attributes in common; it will only accept inputs that would result in
a cross-product when joined.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39902	40008	
==>have attributes in common; it will only accept inputs that would result in
a cross-product when joined.  Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39462	39568	
==>have attributes in common; it will only accept inputs that would result in
a cross-product when joined.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25208	25391	
==>$self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25208	25391	
==>$self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25208	25391	
==>$self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start, $tmp;
                    la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3354	3450	
==>_) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3354	3450	
==>_) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22917	22998	
==>ber(E0,C,T).

%------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3208	3333	
==>repository.
# 
# =cut
# 
# sub add_packages {
#     my $self = shift;
#     my @ret;
# 
#     push @ret, $self->add_package(pa <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1415	1505	
==>15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1255	1345	
==>15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30470	30570	
==>ansformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35021	35121	
==>ansformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34203	34303	
==>ansformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	143	252	
==>arnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	143	252	
==>arnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	143	252	
==>arnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9121	9235	
==>!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9121	9235	
==>!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9121	9235	
==>!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6818	6905	
==>esolve));

## -------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6818	6905	
==>esolve));

## -------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6818	6905	
==>esolve));

## -------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6271	6416	
==>d;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gather_results( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9114	9225	
==>_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9114	9225	
==>_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9336	9458	
==>@rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9529	9651	
==>@rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3064	3163	
==>pe($node);
			warn "type of " . qprintable($node) . " is $type";
			return Blondie::TypeSafe::Annota <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3936	4028	
==>ne.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3936	4028	
==>ne.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3936	4028	
==>ne.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10277	10379	
==>, ... )

Get or set the value of one or more header fields.  The header field
name ($field) is not case <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10277	10379	
==>, ... )

Get or set the value of one or more header fields.  The header field
name ($field) is not case <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7467	7553	
==>_equiv->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1741	1848	
==>e('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1741	1848	
==>e('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1741	1848	
==>e('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = a <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1292	1441	
==>yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensue <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1292	1441	
==>yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensue <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4453	4561	
==>h;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3488	3625	
==>s another
        match inside the closure
    $/()  
        just the capture - what's returned in { return ... }
    $/0
        the fir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15207	15306	
==>user.  Sometimes this is an error message of some kind, but it
could also be a prompt or response me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15207	15306	
==>user.  Sometimes this is an error message of some kind, but it
could also be a prompt or response me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11775	11947	
==>$_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12133	12305	
==>$_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	132	257	
==>ame => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	132	257	
==>ame => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	132	257	
==>ame => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18060	18155	
==>jects will not
have references to each other at a level visible in the Rosetta Native
Interface, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18060	18155	
==>jects will not
have references to each other at a level visible in the Rosetta Native
Interface, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3539	3638	
==>de;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3539	3638	
==>de;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6073	6210	
==>nd, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6073	6210	
==>nd, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6073	6210	
==>nd, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    els <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1736	1866	
==>) eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1736	1866	
==>) eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19559	19666	
==>s caution
  M = [Str|_], %# XXX - need api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7450	7547	
==>s_method (opaque $self: symbol $label) returns bit { 
    %:methods.exists($label);
}

(method has <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17066	17158	
==>decimal number indicating the size in bytes of the message content.

=item $h.content_languag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17066	17158	
==>decimal number indicating the size in bytes of the message content.

=item $h.content_languag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	348	447	
==>etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	348	447	
==>etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	348	447	
==>etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \ <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	279	390	
==>_ =~ $signature) { $fn = $1; $g->add_node($fn); next }
	if($fn) { $funcs{$fn} .= $_ }
}

our %nodes;
for my $key <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	762	852	
==>quire "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2597	2687	
==>quire "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1211	1315	
==>it, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1211	1315	
==>it, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1211	1315	
==>it, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library functions - add, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	276	386	
==>head2 $meta = JIB::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %h <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21296	21382	
==>head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21296	21382	
==>head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9902	10014	
==>{
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading, bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13379	13491	
==>{
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading, bod <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16115	16214	
==>ed chumminess with compiler. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1259	1363	
==>() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1259	1363	
==>() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1259	1363	
==>() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is readonly' <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6045	6150	
==>ary to destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/ar <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6435	6540	
==>ary to destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/ar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8959	9070	
==>t relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12436	12547	
==>t relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1361	1501	
==>d // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1361	1501	
==>d // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1582	1683	
==>ementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use cons <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1582	1683	
==>ementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use cons <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1582	1683	
==>ementation
# TODO - is_contiguous() should test if $step == 1

use strict;
use Perl6::Value;

use cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	640	754	
==>sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	640	754	
==>sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	640	754	
==>sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	870	962	
==>l;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	870	962	
==>l;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	870	962	
==>l;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20279	20429	
==>"\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20558	20708	
==>"\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10295	10471	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10295	10471	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10295	10471	
==>sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2734	2835	
==>testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2734	2835	
==>testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2734	2835	
==>testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4271	4396	
==>[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4271	4396	
==>[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4271	4396	
==>[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $ou <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2414	2538	
==>ecific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.cha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2414	2538	
==>ecific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.cha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4065	4160	
==>>

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	225	325	
==>and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	225	325	
==>and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	225	325	
==>and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $?PUGS_BACKEND = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1441	1552	
==>riting";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "compilati <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	231	328	
==>othing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	231	328	
==>othing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	89	192	
==>OTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	89	192	
==>OTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	89	192	
==>OTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7221	7344	
==>op(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7221	7344	
==>op(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7221	7344	
==>op(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5815	5937	
==>ry in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5815	5937	
==>ry in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5815	5937	
==>ry in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17728	17824	
==>charmap>,
which is a hash reference holding character values (eg. 65 for 'A') and
the number of t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36570	36664	
==>ssage and returns an equivalent human readable text message
string; this assumes that a Templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36570	36664	
==>ssage and returns an equivalent human readable text message
string; this assumes that a Templat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1807	1909	
==>ure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1807	1909	
==>ure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1807	1909	
==>ure

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter to P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2853	2967	
==>sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2853	2967	
==>sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2853	2967	
==>sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        warn "hello <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17269	17371	
==>ahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17269	17371	
==>ahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17269	17371	
==>ahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3522	3626	
==>elf->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3522	3626	
==>elf->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4112	4216	
==>elf->named || {}}) {
	my $param = $self->named->{$param_name};
	if (my $current = delete $named_arg->{$pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3463	3562	
==>ox.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3463	3562	
==>ox.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3463	3562	
==>ox.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retva <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12265	12401	
==>ackage::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12259	12395	
==>ackage::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            ret <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9086	9188	
==>egcompp = &hook_regcompp;
}
void regexp_hook_off() { /* aka "abandon regexps", aka "please segfault" */ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1831	1958	
==>re( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negate <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1842	1969	
==>re( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negate <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	592	699	
==>};
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1352	1447	
==>tamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1352	1447	
==>tamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1352	1447	
==>tamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2686	2796	
==>= $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2686	2796	
==>= $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2686	2796	
==>= $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	165	259	
==>::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	165	259	
==>::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	165	259	
==>::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2174	2327	
==>$index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9676	9776	
==>class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9676	9776	
==>class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18932	19068	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19211	19347	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7110	7243	
==>pe_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7110	7243	
==>pe_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	45	155	
==>use base qw/Class::Accessor/;
use overload
    'bool'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2350	2462	
==>( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2350	2462	
==>( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $de <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35447	35543	
==>ber_names()>

This method returns all Member Names elements in this object as an array
ref.

=ite <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35447	35543	
==>ber_names()>

This method returns all Member Names elements in this object as an array
ref.

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15063	15158	
==>NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15063	15158	
==>NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5254	5371	
==>Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5254	5371	
==>Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5254	5371	
==>Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6380	6477	
==>houtNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6380	6477	
==>houtNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6380	6477	
==>houtNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewli <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	36	156	
==>0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	36	156	
==>0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7566	7685	
==>y %app = $tree[1];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22961	23067	
==>f p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22961	23067	
==>f p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22961	23067	
==>f p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1) <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	915	1016	
==>Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { requir <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	882	983	
==>Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { requir <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24884	24980	
==>n::Example tuples may be individually addressed only by their values; neither
may be addressed by <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	592	709	
==>ndefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	592	709	
==>ndefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	592	709	
==>ndefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash cr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26384	26477	
==>e original (or rather, the corresponding projection of
each tuple), but that any duplicates fo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30936	31029	
==>e original (or rather, the corresponding projection of
each tuple), but that any duplicates fo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29938	30031	
==>e original (or rather, the corresponding projection of
each tuple), but that any duplicates fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	820	930	
==>ue structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1025	1135	
==>ue structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1081	1191	
==>ue structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	78	202	
==>has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    sub <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	78	202	
==>has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    sub <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3273	3382	
==>Tree.new(:node<Grammar>),
            Tree.new(:node<Type>).add_children(
                Tree.new(:node<Packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1937	2036	
==>2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1937	2036	
==>2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1937	2036	
==>2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instan <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2057	2199	
==>nserted.
    # It is better then checking for the names of the tests 
    # since they are often the same for different tests.
    #
    my $ta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	344	441	
==>ACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	344	441	
==>ACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17136	17241	
==>g(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17293	17398	
==>g(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1 <==
3	/Users/nnunley/pugs/util/package-osx.pl	2048	2137	
==>/Library/Perl/5.8.6/Class/Rebless.pm
        /usr/local/lib/perl5/site_perl/Perl6 /Library <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14376	14495	
==>ond, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14376	14495	
==>ond, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	418	517	
==>$self->{class}->send('superclasses')->to_native;
    my @seqs = (
        list->new($self->{class}), <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1101	1199	
==>ese methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1101	1199	
==>ese methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1075	1205	
==>yntax 
# with Attribute Grammers (stolen from Haskell (I think))

class SExpParser     
    def parse (source)
        stack = Arra <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1508	1613	
==>se Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

W <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1508	1613	
==>se Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

W <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24716	24814	
==>ou should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"G <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24716	24814	
==>ou should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"G <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12070	12168	
==>nt(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexideci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1787	1883	
==>/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1787	1883	
==>/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1787	1883	
==>/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|prec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6893	7013	
==>MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->stor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6893	7013	
==>MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->stor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6893	7013	
==>MM2
    p6_set($xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->stor <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	709	879	
==>uffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	709	879	
==>uffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2401	2520	
==>h line
10th line
11th line
12th line









GROK

# -----------------------------------------------------

sub CheckHe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2357	2473	
==>and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $self->license <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	491	598	
==>_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	491	598	
==>_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	491	598	
==>_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  posBeginLine   => 0,
  pos <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26527	26622	
==>vial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31079	31174	
==>vial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in wh <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	653	755	
==>$self = shift;
		my $type = $self->SUPER::type;

		# this method always returns the shallowest possible <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5161	5249	
==>the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4981	5068	
==>the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21997	22108	
==>s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ': <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1745	1844	
==>has_failed'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use Carp;

sub new {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4676	4768	
==>1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4676	4768	
==>1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	546	745	
==>r) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	546	745	
==>r) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	546	745	
==>r) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20355	20563	
==>ch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20355	20563	
==>ch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20355	20563	
==>ch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $self->cell->{v} = $ret;
                        return $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	214	350	
==>Walker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	100	229	
==>Walker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	100	229	
==>Walker qw( peek_my );  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24600	24728	
==>y $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $cl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9489	9612	
==>name },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    las <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9489	9612	
==>name },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    las <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6114	6244	
==>h encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6114	6244	
==>h encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6114	6244	
==>h encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4617	4749	
==>t} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revision} <=> $a->{pugs_revision} | <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6080	6186	
==>Check if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6138	6244	
==>Check if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5399	5507	
==>\}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5399	5507	
==>\}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5399	5507	
==>\}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	941	1060	
==>IL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	941	1060	
==>IL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	941	1060	
==>IL2JS::cfg{metamodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20146	20248	
==>/) {
	my $modifyargs ="";
	my $argl = $param;
	while($argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyar <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	511	607	
==>y
# represent transformations between PIL node types; out-of-band data is not listed.

sub type_c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	511	607	
==>y
# represent transformations between PIL node types; out-of-band data is not listed.

sub type_c <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	974	1098	
==>" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC% <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3688	3777	
==>le recursive calls.

The compiler inherits L<Blondie::Reducer::DynamicScoping> to assist i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2353	2451	
==>(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2353	2451	
==>(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2353	2451	
==>(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2858	2967	
==>V[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2858	2967	
==>V[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Could <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2858	2967	
==>V[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Could <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2743	2832	
==>s->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2743	2832	
==>s->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2743	2832	
==>s->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	507	620	
==>ndalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	507	620	
==>ndalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	507	620	
==>ndalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15965	16066	
==>$self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2358	2459	
==>$self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	320	432	
==>(10);

multi sub rand (; Num ?$x = 1, Num :$seed )
    returns Num { ... }

multi sub sign (; Num ?$x = $CALLER:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3265	3375	
==>TH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3265	3375	
==>TH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11903	12047	
==>ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8185	8329	
==>ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9019	9163	
==>ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22330	22434	
==>('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn if !$is_absol <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17910	18004	
==>A-03542'.  These codes
are "machine readable"; any application receiving such a code can identi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17910	18004	
==>A-03542'.  These codes
are "machine readable"; any application receiving such a code can identi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10648	10793	
==>== " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

pac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10648	10793	
==>== " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

pac <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10648	10793	
==>== " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed functions

pac <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29043	29156	
==>RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29043	29156	
==>RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_tex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	394	495	
==>RESULT' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2016	2130	
==>js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2016	2130	
==>js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2016	2130	
==>js;
} else {
  my @components;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12714	12815	
==>_'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  In sc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12714	12815	
==>_'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  In sc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	322	415	
==>, '(?p{}) is deprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2197	2293	
==>DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:asc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2197	2293	
==>DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:asc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2197	2293	
==>DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:asc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5506	5620	
==>s me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5506	5620	
==>s me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16962	17059	
==>d BUILDALL (opaque $self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:desce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22467	22703	
==>6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22467	22703	
==>6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22467	22703	
==>6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "F <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	921	1023	
==>le Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	921	1023	
==>le Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1256	1351	
==>created, and in perhaps accepting
# patches to remove roadblocks if encountered.  The latter wou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6049	6147	
==>- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6049	6147	
==>- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6049	6147	
==>- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2318	2585	
==>=> $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5795	6062	
==>=> $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4725	4992	
==>=> $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13371	13546	
==>. $inst_pkg->package, 1 );
    for ( qx[find $my_bindir -type f] ) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4854	4944	
==>attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @ch <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4854	4944	
==>attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37947	38074	
==>ding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37947	38074	
==>ding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37947	38074	
==>ding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	246	364	
==>cal $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	209	327	
==>cal $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	297	415	
==>cal $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8980	9099	
==>st->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8980	9099	
==>st->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8980	9099	
==>st->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->fr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8686	8826	
==>mbol->new('get_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25070	25167	
==>g whether the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29622	29719	
==>g whether the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relatio <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4130	4233	
==>an1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Se <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4130	4233	
==>an1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5216	5323	
==>arts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5216	5323	
==>arts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5216	5323	
==>arts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2858	2979	
==>cuting this tree will invoke
'&func':

    App(
        Sym('&func'),
        Val(1),
    ),

And also place the value 1 o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15065	15167	
==>ass
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9264	9366	
==>ass
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4531	4638	
==>[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4531	4638	
==>[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4531	4638	
==>[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1690	1788	
==>&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1690	1788	
==>&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1690	1788	
==>&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{prelude <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1109	1230	
==>thod) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1109	1230	
==>thod) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1109	1230	
==>thod) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method) eq 'Pe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	923	1030	
==>(Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	923	1030	
==>(Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5075	5172	
==>-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: file '$tail' no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2468	2583	
==>rule>' ));
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2974	3071	
==>f available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2974	3071	
==>f available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2272	2382	
==>return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2272	2382	
==>return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2272	2382	
==>return lvalue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28680	28766	
==>Using /home/schwern/src/devel/Test-Harness/blib
  t/base..............ok
  t/nonumbers. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5478	5579	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # bl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5478	5579	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # bl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5478	5579	
==>aseClass); sub expand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22555	22829	
==>elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22555	22829	
==>elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22555	22829	
==>elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $scalar = Scalar->new();
                        $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4210	4328	
==>) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous => <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4210	4328	
==>) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous => <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3563	3665	
==>d infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

# still an o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2123	2288	
==>:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2123	2288	
==>:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2123	2288	
==>:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path to thing
                          (pugs|pil2js <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8562	8675	
==>me::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8550	8663	
==>me::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25694	25788	
==>l, the script dies with one of the
above messages.

=item C<FAILED--Further testing stopped: %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36494	36612	
==>}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36494	36612	
==>}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36494	36612	
==>}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return un <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6959	7163	
==>?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method excl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10436	10640	
==>?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method excl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9555	9759	
==>?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method excl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	391	518	
==>ft;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	391	518	
==>ft;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	391	518	
==>ft;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30638	30878	
==>et_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30638	30878	
==>et_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30638	30878	
==>et_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            else {
                shift @tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21837	21999	
==>$subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21837	21999	
==>$subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21837	21999	
==>$subclass);
                }
            }
        };
        $traversal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	554	658	
==>urce) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	554	658	
==>urce) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	554	658	
==>urce) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3706	3846	
==>ch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box h <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3706	3846	
==>ch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box h <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3706	3846	
==>ch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-box h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1615	1732	
==>);");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && ! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1615	1732	
==>);");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && ! <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1615	1732	
==>);");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1503	1620	
==>x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1503	1620	
==>x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1503	1620	
==>x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26452	26558	
==>ess $match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26731	26837	
==>ess $match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5353	5453	
==>Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" -> ", map { $self->display <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8659	8788	
==>\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8659	8788	
==>\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8659	8788	
==>\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4017	4129	
==>X - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4029	4141	
==>X - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3177	3272	
==>TION

The compiler reduces an AST into an executable program. This process has three
main aspect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7981	8113	
==>b { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7981	8113	
==>b { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7981	8113	
==>b { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1829	1944	
==>sion by zero error";
    return num->new(int($left->to_native / $right->to_num->to_native()));
}

sub increment { nu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15811	15920	
==>ength($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10667	10776	
==>ength($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8543	8710	
==>f ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8543	8710	
==>f ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8543	8710	
==>f ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5863	5968	
==>sed time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method content_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5863	5968	
==>sed time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method content_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2464	2593	
==>,2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @stri <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2464	2593	
==>,2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @stri <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19371	19473	
==>, we save lots of bandwidth by printing only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1938	2042	
==>ommand_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBY <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1938	2042	
==>ommand_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4079	4171	
==>ct ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4079	4171	
==>ct ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4079	4171	
==>ct ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package->a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22972	23069	
==>ation

This module parses I<regexes>, not Perl.  If you send a single-quoted
string as a regex wit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9083	9198	
==>Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9071	9186	
==>Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$boo <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21039	21125	
==>er(Bool::False,$module);
}
sub Pugs::Internals::require_use_helper ($use_,$module) is b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8190	8326	
==>\s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8190	8326	
==>\s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23725	23839	
==>ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for the type pretty p <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10464	10564	
==>the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10464	10564	
==>the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9311	9406	
==>_captures = $parser->captures();

If you want to access a specific capture group, pass its numer <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	272	372	
==>tstrap path for perl6.

# The perl5 regexp engine is unfortunately entangled with the rest of
# the p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8618	8711	
==>he set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specifi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8618	8711	
==>he set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specifi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3032	3132	
==>depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3090	3190	
==>depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21140	21235	
==>s

Flag handlers now receive an additional argument that says whether
they're being turned on or <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4664	4784	
==>h->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4664	4784	
==>h->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match- <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	437	533	
==>os) in this file need to have the
`is primitive` trait.

Please also declare whether the function <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	164	295	
==>return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	164	295	
==>return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match an <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4289	4395	
==>eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10886	11043	
==>>{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7961	8109	
==>>{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7961	8109	
==>>{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6238	6338	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6238	6338	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6238	6338	
==>inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = ar <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6876	7043	
==>y: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6876	7043	
==>y: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17596	17711	
==>$P0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4515	4632	
==>},
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4515	4632	
==>},
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4515	4632	
==>},
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6671	6830	
==>.= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

ou <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6671	6830	
==>.= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

ou <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	977	1092	
==>{ die "Invalid token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die "Invalid stack:[@stack[]]\n";
    r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21686	21854	
==>n => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2226	2370	
==>(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2584	2728	
==>(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2682	2793	
==>q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2682	2793	
==>q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'L <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6104	6217	
==>st;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6104	6217	
==>st;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10330	10420	
==>ault);
    return { isInvocant=>$isInvocant, isOptional=>$isOptional, isNamed=>$isNamed, is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	437	553	
==>].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	437	553	
==>].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	437	553	
==>].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1111	1233	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1316	1438	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1377	1499	
==>TOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $la <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2076	2241	
==>}[0]->to, @_[6,7] );
            $state[0] = $st unless $state[1];
            
            
        } while !   $_[3]->{match}[1] && 
                ! ${$_[3]- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2343	2458	
==>+ $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2343	2458	
==>+ $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9088	9269	
==>$!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12565	12746	
==>$!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method sem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11801	11982	
==>$!body.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method sem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	890	982	
==>viour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	890	982	
==>viour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	890	982	
==>viour objects with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3943	4046	
==>UR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3943	4046	
==>UR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3943	4046	
==>UR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :l <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	275	420	
==>.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	275	420	
==>.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6324	6442	
==>}::${name}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL::PIL1CPerl5::Nodes <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1151	1325	
==>es -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1151	1325	
==>es -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1060	1166	
==>e way into new
namespaces. This is typically useful when your object belongs to a
package that is too close <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1060	1166	
==>e way into new
namespaces. This is typically useful when your object belongs to a
package that is too close <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1060	1166	
==>e way into new
namespaces. This is typically useful when your object belongs to a
package that is too close <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8575	8697	
==>ined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8575	8697	
==>ined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8575	8697	
==>ined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1485	1592	
==>ed->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1485	1592	
==>ed->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1694	1801	
==>ed->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6310	6416	
==>stance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6310	6416	
==>stance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6310	6416	
==>stance_attr(::opaque_instance_class($self) => '@:superclasses') = [ 
                map { ::opaque_instanc <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3503	3607	
==>inking.
-}


module Pugs.Config (
    config,
    getConfig
) where

import qualified Data.Map as Map
imp <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12417	12513	
==>eed a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discrete s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12417	12513	
==>eed a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discrete s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4351	4461	
==>lreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4351	4461	
==>lreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4351	4461	
==>lreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4764	4890	
==>)."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4764	4890	
==>)."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4764	4890	
==>)."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2120	2232	
==>method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2120	2232	
==>method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2120	2232	
==>method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	275	378	
==>arams) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	275	378	
==>arams) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	275	378	
==>arams) = @_;
    return $class->bless(undef, %params);    
}));

$::Class->add_method('bless' => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2063	2162	
==>ot defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2063	2162	
==>ot defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2063	2162	
==>ot defined $pil;
  my $mini = run_pil2js(\$pil);
  my $js   = run_pil2js("--link=js", "METAMODEL", j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8881	8986	
==>:= &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8881	8986	
==>:= &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8881	8986	
==>:= &infix:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4091	4235	
==>\n }";
        }
        return  "{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	96	195	
==>for debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a lis <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	91	186	
==>for debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a lis <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12494	12623	
==>@_,
    }, $class;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my $ast = shift;

    Compiler->new->compi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	193	294	
==>Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	193	294	
==>Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3007	3105	
==>.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3007	3105	
==>.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3007	3105	
==>.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2604	2725	
==>:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2604	2725	
==>:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2604	2725	
==>:**", "N", "Math.pow(Number(a), Number(b))" ],
  );

  for (@subs) {
    my ($name, $type, $body) = @$_;

    my $undef  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	384	509	
==>_exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	384	509	
==>_exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	384	509	
==>_exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      // We box al <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8796	8901	
==>px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38019	38114	
==>e text
string if the module recognizes $msg_key, and the undefined value if not.

=item C<interp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38019	38114	
==>e text
string if the module recognizes $msg_key, and the undefined value if not.

=item C<interp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9357	9534	
==>semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12834	13011	
==>semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12088	12265	
==>semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6313	6436	
==>Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6313	6436	
==>Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6313	6436	
==>Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-contiguous list"
                unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2275	2400	
==>\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    }
};

1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2275	2400	
==>\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    }
};

1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2275	2400	
==>\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s},
        },
    }
};

1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10850	11003	
==>::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11129	11282	
==>::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8005	8116	
==>ame};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _prep <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12000	12106	
==>ame};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _prep <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12000	12106	
==>ame};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _prep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2778	2888	
==>s, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2778	2888	
==>s, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2778	2888	
==>s, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7897	8012	
==>tine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7897	8012	
==>tine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7897	8012	
==>tine SubPrim SubBlock SubPointy SubMethod SubMacro SubCoroutine
  >) {
    no strict "refs";
    *{"PIL::$type\::ISA <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10833	10933	
==>ame
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6158	6276	
==>MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6158	6276	
==>MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6158	6276	
==>MM2.0";
        ("(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13845	13944	
==>rse_error(mob, pos, "Unescaped ']' in charlist")
    goto end
  err_hyphen:
    parse_error(mob, pos <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25535	25632	
==>ents when and as the GPL requires distribution of
source code.  However, for an additional fee, th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25535	25632	
==>ents when and as the GPL requires distribution of
source code.  However, for an additional fee, th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2442	2549	
==>rk?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both set <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2442	2549	
==>rk?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both set <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13767	13887	
==>2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13767	13887	
==>2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $se <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3620	3704	
==>\@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; \@ARG <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1025	1144	
==>prec'} - $increment;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8981	9090	
==>ed by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package requ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10458	10567	
==>ed by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4732	4826	
==>:PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4732	4826	
==>:PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4732	4826	
==>:PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	321	435	
==>=> 'postfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1543	1646	
==>= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1543	1646	
==>= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10862	10975	
==>ey, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10862	10975	
==>ey, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10862	10975	
==>ey, $value ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::id <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3572	3668	
==>is a Factory method used to create a specific class instances which
perform the Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3572	3668	
==>is a Factory method used to create a specific class instances which
perform the Test::Builder::Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5769	5865	
==>is a Factory method used to create a specific class instances which
perform the Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2358	2478	
==>DTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2358	2478	
==>DTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2358	2478	
==>DTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Bo <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1011	1115	
==>%9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	75	169	
==>rnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/Blondie::Backe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	743	912	
==>t;
                $self->set_value('%:slots', $hash);
            },
            hash_fetchElem => sub {
                my $self = shift;
                my $idx = shif <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	619	748	
==>ne Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4097	4226	
==>ne Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1206	1316	
==>,
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1206	1316	
==>,
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1206	1316	
==>,
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38252	38346	
==>onal parameter $text (a string), and a Message Variables hash ref
in its positional parameter % <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38252	38346	
==>onal parameter $text (a string), and a Message Variables hash ref
in its positional parameter % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5943	6035	
==>taclass');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->supe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1834	1947	
==>has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1834	1947	
==>has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1747	1862	
==>ch do not have an implementation. These
    # methods are then required to be implemented by the 
    # composing cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1747	1862	
==>ch do not have an implementation. These
    # methods are then required to be implemented by the 
    # composing cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1747	1862	
==>ch do not have an implementation. These
    # methods are then required to be implemented by the 
    # composing cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19842	19935	
==>)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19842	19935	
==>)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19842	19935	
==>)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24386	24631	
==>}
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24386	24631	
==>}
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24386	24631	
==>}
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11669	11797	
==>uilder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2103	2219	
==>uilder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2103	2219	
==>uilder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10315	10410	
==>mp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ke <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10315	10410	
==>mp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ke <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10315	10410	
==>mp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1468	1563	
==>:Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1468	1563	
==>:Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1468	1563	
==>:Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys -> $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1768	1954	
==>on' => $params{'$.description'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	661	763	
==><density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	661	763	
==><density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2625	2719	
==>hods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2625	2719	
==>hods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8161	8270	
==>ore control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      forea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8161	8270	
==>ore control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      forea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8161	8270	
==>ore control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      forea <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1158	1303	
==>/[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' } <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1158	1303	
==>/[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35128	35223	
==>slator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35128	35223	
==>slator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3121	3224	
==>ain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3121	3224	
==>ain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3121	3224	
==>ain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1860	1958	
==>r the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tag <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1860	1958	
==>r the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7931	8093	
==>$type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7931	8093	
==>$type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7931	8093	
==>$type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $ar <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15431	15549	
==>> undef);

    return $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    $self->enter_scop <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25287	25380	
==>C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25287	25380	
==>C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3823	3922	
==>ttr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3823	3922	
==>ttr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3823	3922	
==>ttr($self => '$:name');
}));

$::Class->add_method('DESTROYALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3907	4015	
==>elf->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3907	4015	
==>elf->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4497	4605	
==>elf->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: report extra incoming named a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4968	5106	
==>lse {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4968	5106	
==>lse {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clon <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	853	969	
==>ndlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta object
    {   my $config  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5679	5810	
==>$n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5679	5810	
==>$n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5679	5810	
==>$n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	539	671	
==>um:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	799	931	
==>um:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1071	1203	
==>um:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12405	12513	
==>postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12405	12513	
==>postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12405	12513	
==>postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6795	6910	
==>{}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6795	6910	
==>{}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6795	6910	
==>{}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2348	2458	
==>();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2348	2458	
==>();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    tr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2348	2458	
==>();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14854	14986	
==>to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14854	14986	
==>to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14854	14986	
==>to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1392	1518	
==>ached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1392	1518	
==>ached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1392	1518	
==>ached_result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2296	2433	
==>nless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2296	2433	
==>nless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12528	12658	
==>ev  = @{ $self->available };
    my @avail = grep { $_->package ne $inst_pkg->package } @prev;
    
    ### no change!
    return i <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1298	1458	
==>day' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1298	1458	
==>day' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2215	2321	
==>with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Reque <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2215	2321	
==>with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Reque <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2554	2657	
==>return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    r <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2554	2657	
==>return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    r <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2430	2526	
==>ar }
method quarter returns Int { int(($.month+2)/3) }
method month_0 returns Int { $.month - 1 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1578	1688	
==>lf->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1578	1688	
==>lf->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1578	1688	
==>lf->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->superclass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	66	188	
==>PORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	66	188	
==>PORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	66	188	
==>PORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	216	321	
==>Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	216	321	
==>Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15918	16012	
==>iculty rating: ****)

Reverses a regex so it matches backwards.  Ex.: C</\s+$/> becomes
C</^\n? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17408	17506	
==>to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17408	17506	
==>to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17408	17506	
==>to_n($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2047	2193	
==>$shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2047	2193	
==>$shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1330	1439	
==>ile {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_avail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	429	566	
==>named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	429	566	
==>named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	429	566	
==>named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0) <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1508	1683	
==>1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} { <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1508	1683	
==>1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1504	1604	
==>p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call_term'} = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8792	8900	
==>Set0::NodeRepArray2::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2280	2382	
==>, name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2280	2382	
==>, name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1513	1645	
==>ng too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_INSTALLATION },
        repository      => { all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20413	20508	
==>on. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that random <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20413	20508	
==>on. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that random <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	632	764	
==>RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGOR <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5086	5214	
==>= $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simpli <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5086	5214	
==>= $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simpli <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	631	746	
==>$obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1115	1230	
==>$obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	1	113	
==>package Pugs::Grammar::Num;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2386	2485	
==>ix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2386	2485	
==>ix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2386	2485	
==>ix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	309	416	
==>L::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	309	416	
==>L::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	309	416	
==>L::MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	549	654	
==>applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	549	654	
==>applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	549	654	
==>applied.
#
# 2005-08-18
# - New methods: .tie($object), .untie, .tieable
# - Method .id() returns the Cell <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7736	7878	
==>CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7736	7878	
==>CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7736	7878	
==>CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3184	3416	
==>list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph') <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3184	3416	
==>list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph') <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1162	1264	
==>ft;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::Dyna <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3169	3276	
==>format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3169	3276	
==>format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3169	3276	
==>format, *@parts) is primitive {
  "&sprintf not yet implemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6495	6595	
==>nce_attrs($_[0])->{'%:methods'}->{'does'}->(@_);
});

# now Class does Role

## --------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1160	1258	
==>::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have param <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1160	1258	
==>::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have param <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	415	530	
==>y $self = shift;

    my $schema = $self->schema;

    for my $class ( $schema->classes ) {

        class($class->n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1235	1330	
==>= (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1235	1330	
==>= (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49375	49506	
==>set_attr(symbol->new('$:version'), $e->get('?$version'));
                  }));
                $e->get('$self:')->get_attr(symbol- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15912	16019	
==>ue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15912	16019	
==>ue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2983	3107	
==>s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2983	3107	
==>s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2983	3107	
==>s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1960	2072	
==>per @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1960	2072	
==>per @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1401	1511	
==>temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX AB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1401	1511	
==>temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX AB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1401	1511	
==>temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX AB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1570	1675	
==>nt(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1570	1675	
==>nt(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1570	1675	
==>nt(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1745	1909	
==>ew PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1745	1909	
==>ew PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1745	1909	
==>ew PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift(),  cc  = args.pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1097	1207	
==>.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1097	1207	
==>.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1097	1207	
==>.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(%$self, @idx);
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9295	9394	
==>w(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9295	9394	
==>w(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9295	9394	
==>w(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($xx) {. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2563	2670	
==>ection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_u <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2563	2670	
==>ection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5618	5730	
==>of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Abor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5618	5730	
==>of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Abor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7142	7254	
==>of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Abor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2691	2812	
==>] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2691	2812	
==>] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2691	2812	
==>] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6116	6216	
==>HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  us <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6116	6216	
==>HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	817	926	
==>text.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	817	926	
==>text.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	817	926	
==>text.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	937	1034	
==>asses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	937	1034	
==>asses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	937	1034	
==>asses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sour <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5446	5569	
==>ME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	891	1003	
==>oke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  de <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5952	6061	
==>ME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4561	4701	
==>] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4549	4689	
==>] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21289	21397	
==>k($mn,$name);
}
sub p6_setq  {
    my($pkg,$n,$v)=@_;
    my $mn = p6_mangle($n,$pkg);
#    print STDERR $mn, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	835	938	
==>AL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	835	938	
==>AL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	328	455	
==>orts[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	328	455	
==>orts[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_modul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	328	455	
==>orts[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_modul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	265	420	
==>&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	265	420	
==>&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_gr <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5735	5823	
==>rc/syck/implicit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/syck/token.o sr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2740	2830	
==>lass->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2740	2830	
==>lass->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2740	2830	
==>lass->dispatcher(':canonical'), $label);    
}));

$::Object->add_method('add_singleton_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1478	1618	
==>y $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1478	1618	
==>y $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1478	1618	
==>y $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3433	3566	
==>ents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3433	3566	
==>ents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3433	3566	
==>ents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5151	5270	
==>L(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    su <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3034	3146	
==>erloo..........dubious
          Test returned status 3 (wstat 768, 0x300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8087	8203	
==>Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8087	8203	
==>Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8087	8203	
==>Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6480	6602	
==>_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6480	6602	
==>_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6480	6602	
==>_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8529	8690	
==>param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8529	8690	
==>param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8529	8690	
==>param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	734	914	
==>f ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>( <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	734	914	
==>f ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32831	32933	
==>r $attrs! ) returns Relation::Example>

I<TODO.  This method has not yet been implemented.>

This metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15187	15315	
==>f $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15187	15315	
==>f $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15187	15315	
==>f $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12649	12749	
==>quantifier with n > m
  }

=head2 Standard Warnings and Errors

Here are the standard warning and err <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25505	25601	
==>ource
code of the other components when and as the GPL requires distribution of
source code.  How <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25505	25601	
==>ource
code of the other components when and as the GPL requires distribution of
source code.  How <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3019	3149	
==>ngify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3019	3149	
==>ngify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3019	3149	
==>ngify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{cel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1119	1449	
==>green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $node->name . "(" . $node->id . ")\" " . 
                    "];\n";  
}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4628	4808	
==>state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4628	4808	
==>state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17643	17730	
==>= E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re), <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7538	7787	
==>$op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that sati <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8002	8251	
==>$op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that sati <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2651	2756	
==>on:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @array.splice(-1,1);
#}

# copied from S29 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	440	550	
==>my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--versi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	440	550	
==>my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--versi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	440	550	
==>my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--versi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33906	34119	
==>'$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1592	1684	
==>amples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1592	1684	
==>amples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8686	8901	
==>LF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8686	8901	
==>LF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8686	8901	
==>LF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15527	15666	
==>urn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_tab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15527	15666	
==>urn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_tab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15527	15666	
==>urn $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$label} &&
                   defined $method_tab <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	547	656	
==>generic_reduce {
    my $self = shift;
    my $node = shift;

	return $node unless Scalar::Util::blessed($node <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	789	885	
==><:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Cae <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	789	885	
==><:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Cae <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2719	2840	
==>o a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2719	2840	
==>o a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2719	2840	
==>o a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	802	904	
==>re, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	802	904	
==>re, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	802	904	
==>re, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9911	10008	
==>dd_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect meth <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9911	10008	
==>dd_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22331	22426	
==>erwards, it is an array
reference of (node) objects.

=item stack

Initially an array reference, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5759	5856	
==>us returns Hash>

This method calls the superclass C<status> method and adds the values of the
tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5759	5856	
==>us returns Hash>

This method calls the superclass C<status> method and adds the values of the
tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7956	8053	
==>us returns Hash>

This method calls the superclass C<status> method and adds the values of the
tes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3970	4076	
==>self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3970	4076	
==>self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.co <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25314	25394	
==>D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6824	6932	
==>nt Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6824	6932	
==>nt Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7488	7632	
==>rBar ],  # << tell the class we want these roles
    '%:methods' => {
        'foo_bar' => sub { 'FooBar::foo_bar' }
    }
);

is_deeply(
    [ $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6917	7043	
==>closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $clos <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6917	7043	
==>closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $clos <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5002	5107	
==>n "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5002	5107	
==>n "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22420	22522	
==>w evoke "Useless ..." warnings when used
in flag and non-capturing group constructs.

=back

=head2 0.0 <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1146	1320	
==>d;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1146	1320	
==>d;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38855	38958	
==>eturn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38855	38958	
==>eturn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n clo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38855	38958	
==>eturn the internal list object, if there is one
    # XXX - TODO - optimization - add shift_n, pop_n clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2548	2655	
==>statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $la <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2548	2655	
==>statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $la <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2548	2655	
==>statement_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $la <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	252	369	
==>& ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	252	369	
==>& ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9509	9600	
==>,3,4,3,3],[0],[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{
  print STD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13990	14090	
==>:DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13990	14090	
==>:DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13990	14090	
==>:DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1940	2037	
==>hrow(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1940	2037	
==>hrow(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1940	2037	
==>hrow(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N" <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10562	10727	
==>clusion;

###########################################################################

multi method intersection (Relation::Example $other!) returns Relation::Example <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8906	9026	
==>s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.spl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8906	9026	
==>s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4167	4270	
==>ide a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4167	4270	
==>ide a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4167	4270	
==>ide a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	119	243	
==>L::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	119	243	
==>L::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	119	243	
==>L::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use warnings;
  use strict;

  sub fixup {
    die u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6188	6328	
==>r( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6188	6328	
==>r( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3065	3214	
==>ntarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !de <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12769	12865	
==><$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (sup <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12769	12865	
==><$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9094	9240	
==>ts) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->che <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9094	9240	
==>ts) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->che <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9094	9240	
==>ts) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j if $j;

                my($ok,$err)=$self->che <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23425	23529	
==>6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23425	23529	
==>6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23425	23529	
==>6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# spl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14569	14698	
==>>unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14569	14698	
==>>unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14569	14698	
==>>unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	891	1000	
==>::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	891	1000	
==>::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	891	1000	
==>::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1243	1349	
==>P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1243	1349	
==>P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1243	1349	
==>P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4702	4801	
==>().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4702	4801	
==>().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4702	4801	
==>().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	317	431	
==>topt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	278	392	
==>topt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	278	392	
==>topt::Long};
	return if $@;

	##print "* reading command line options\n";
	GetOptions(
		"print-program" => \$print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6860	6972	
==>}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1219	1327	
==>}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	321	426	
==>}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3152	3302	
==>"a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3152	3302	
==>"a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3152	3302	
==>"a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	702	805	
==>ic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	702	805	
==>ic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	702	805	
==>ic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($na <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	471	601	
==>rbose        = 0
) returns Num is export {
    my Num $guess  = $target / 2;
    my Int $count  = 1;

    while (abs($f($guess) - $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19144	19240	
==>of the program*, and not the program's users' own data; only
someone already involved in making t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19144	19240	
==>of the program*, and not the program's users' own data; only
someone already involved in making t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11317	11470	
==>\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11596	11749	
==>\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4663	4768	
==>MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4663	4768	
==>MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4663	4768	
==>MULTI SUB times () {p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13417	13635	
==>rn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13417	13635	
==>rn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13417	13635	
==>rn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16001	16105	
==>};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16001	16105	
==>};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16001	16105	
==>};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22991	23093	
==>member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27543	27645	
==>member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26320	26422	
==>member is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4870	4975	
==>, of course, incorrect. There is *no* attention
# paid to the associativity of the original operator and a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4870	4975	
==>, of course, incorrect. There is *no* attention
# paid to the associativity of the original operator and a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4870	4975	
==>, of course, incorrect. There is *no* attention
# paid to the associativity of the original operator and a <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11797	11916	
==>dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad- <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	100	216	
==>.0.1;

use Tree;

has Tree $:type_tree;

method tree ($self:) returns Tree {
    # create the tree lazily ...
    $se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	206	320	
==>dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15201	15302	
==>bute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15201	15302	
==>bute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15201	15302	
==>bute type ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16363	16464	
==>::P6Rule", "$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	594	683	
==>Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modif <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	594	683	
==>Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7795	7913	
==>h

  $next_state    - an optional "continuation"

  $capture       - capture then entire match. For example:

  

  # r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7531	7645	
==>h
  $next_state    - an optional "continuation"
  $capture       - capture then entire match. For example:
  
  # r <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	583	684	
==>$t5 = times;
#&$f;
my $t6 = times;

printf "Total time: %.3f seconds (%.3f compilation, %.3f type chec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	114	217	
==>m to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	114	217	
==>m to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	114	217	
==>m to Prelude.

=cut

package PrimFilter;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8739	8954	
==>irstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8739	8954	
==>irstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8739	8954	
==>irstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7790	7944	
==>warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7790	7944	
==>warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7790	7944	
==>warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12833	12933	
==>t - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12833	12933	
==>t - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12833	12933	
==>t - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1855	1958	
==>name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1855	1958	
==>name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1855	1958	
==>name, $body) = @_;
    # support anon-role here
    if (!defined($body) && ref($full_name) && ref($full_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13800	13924	
==>xt' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13800	13924	
==>xt' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13800	13924	
==>xt' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16264	16355	
==>the
"Attributes" attribute if provided (it defaults to empty if the parameter's
correspondin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16264	16355	
==>the
"Attributes" attribute if provided (it defaults to empty if the parameter's
correspondin <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4259	4368	
==>_round = ceil($x);

    return $x_round;
}

our Int multi Num::round_floor ( Num $x ) {
    my $x_round = floo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12333	12431	
==>]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discrete <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12333	12431	
==>]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discrete <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4861	4994	
==>r($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4861	4994	
==>r($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8221	8326	
==>ext) {
    # $node is a Regexp::Parser::* object
  }

When the regex is finished being parsed, next() retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2603	2709	
==>jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2603	2709	
==>jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2603	2709	
==>jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2895	3007	
==>tr( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19570	19682	
==>$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6::Run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3744	3856	
==>tr( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1610	1734	
==>ment.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1610	1734	
==>ment.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.wr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1610	1734	
==>ment.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down...
      document.wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5814	6031	
==>ed $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5814	6031	
==>ed $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5814	6031	
==>ed $key ) {
                    $ary->push( $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'str' => sub { 
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3434	3557	
==>self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3434	3557	
==>self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3434	3557	
==>self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1460	1558	
==>} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1460	1558	
==>} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1460	1558	
==>} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17927	18049	
==>(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don't inte <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4248	4344	
==>last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `to <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4248	4344	
==>last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5843	5991	
==>od {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar acces <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5843	5991	
==>od {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar acces <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5843	5991	
==>od {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/(\w+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar acces <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3300	3388	
==>aque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3300	3388	
==>aque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3300	3388	
==>aque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta.add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	88	202	
==>ift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	88	202	
==>ift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	88	202	
==>ift;

  die unless keys %$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3191	3307	
==>evel]} ) {
            #print "pos $level at $opt->{precedence} $opt->{other}\n";
            $relative_precedences <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	603	736	
==>, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	619	752	
==>, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	595	728	
==>, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4973	5092	
==>ess \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level varia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4973	5092	
==>ess \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level varia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4973	5092	
==>ess \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level varia <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13098	13189	
==>anslator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as the nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13098	13189	
==>anslator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as the nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	413	526	
==>ficient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	413	526	
==>ficient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	413	526	
==>ficient way to do this,
      // but if I store the node in a variable outside of this function
      // and refer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6598	6687	
==>-----------------------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6621	6710	
==>------------------------------
## BOOTSTRAPPING Roles COMPLETE
## ------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6644	6733	
==>-------
## BOOTSTRAPPING Roles COMPLETE
## ----------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2230	2358	
==>utput.say( $message );
  }
  
  method diag ( Str $message is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	225	341	
==>utput.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	225	341	
==>utput.say( $message );
}

method diag ( Str $message is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4210	4310	
==>";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4210	4310	
==>";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4210	4310	
==>";
};
MACROP5   Package::_create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7308	7475	
==>$maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7772	7939	
==>$maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8052	8140	
==>ding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	947	1055	
==>e',
		remove    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

--------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16428	16518	
==>s computationally complete
(and industrial strength) and has fully integrated database func <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16428	16518	
==>s computationally complete
(and industrial strength) and has fully integrated database func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3622	3722	
==>ecomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3622	3722	
==>ecomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3622	3722	
==>ecomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  d <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3188	3291	
==>eter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | m <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3188	3291	
==>eter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | m <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3261	3361	
==>array.splice(0,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7300	7420	
==>ss method');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '% <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2464	2580	
==>R>, with optional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27007	27113	
==>equire "m02.pl";
require "re05.pl";

sub mkMatch {
    my($len,$a)=@_;
    return MatchX->new()->set_as_fai <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3592	3781	
==>d; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3592	3781	
==>d; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1088	1208	
==>_dir = $Metactrl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy late <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4854	4962	
==>rted yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4854	4962	
==>rted yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4854	4962	
==>rted yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	596	713	
==>r>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submod <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	596	713	
==>r>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submod <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17027	17135	
==>trict;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $met <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2730	2832	
==>ead1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2730	2832	
==>ead1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4254	4356	
==>ead1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5057	5175	
==>to a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compilin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5057	5175	
==>to a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compilin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5057	5175	
==>to a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anything.

When compilin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5446	5556	
==>self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5446	5556	
==>self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	153	257	
==>ulti sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3866	3992	
==>n $S->object(gpos => gpos => '\G');
  });

  # named (named character)
  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14481	14638	
==>ad 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14481	14638	
==>ad 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14481	14638	
==>ad 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1	97	
==>!/usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1	97	
==>!/usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1	97	
==>!/usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usag <==
3	/Users/nnunley/pugs/util/run-smoke.pl	124	218	
==>atdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YAML Test::T <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7235	7372	
==>ve something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7699	7836	
==>ve something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	967	1065	
==>file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1084	1201	
==>only' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - ve <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1084	1201	
==>only' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - ve <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1084	1201	
==>only' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-deref with a lazy List
# TODO - ve <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7994	8122	
==>once
        my($leader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34737	34833	
==>eyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['En <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34737	34833	
==>eyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['En <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9756	9850	
==>an assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9756	9850	
==>an assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14207	14345	
==>h;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14486	14624	
==>h;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::con <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16245	16359	
==>ial unsafe characters.\n"
      if /[ <>;&\\\$'"]/;
  }
}

sub get_version {
  my $bin = shift;

  open my $fh, "-| <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7819	7953	
==>efined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return 0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	110	236	
==>t::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	110	236	
==>t::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	63	182	
==>al) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	63	182	
==>al) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	63	182	
==>al) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # sh <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	806	910	
==>self->{env}->set('$?SELF'    => $inv);
    $self->{env}->set('$?CLASS'   => $inv->class);    
    $self-> <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13214	13315	
==>t;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@para <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	624	725	
==>t;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7798	7916	
==>et->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7798	7916	
==>et->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7798	7916	
==>et->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9584	9674	
==>avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9584	9674	
==>avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9584	9674	
==>avoiding_pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4322	4433	
==>xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4322	4433	
==>xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4322	4433	
==>xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10139	10258	
==>$cond ];
      $rx->{tree} = $ifthen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17460	17551	
==>`next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", th <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17460	17551	
==>`next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", th <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23314	23428	
==>(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx,F1,Bx,B1,Ex,E1), !; F1 = Fx, B1 = Bx, E1 = Ex).

%----------------------- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8026	8124	
==>rns a Match object that has no capture (but the 'bool' field is still true)

  match_word( 'abc123' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7755	7852	
==>rns a Match object that has no capture (but the 'bool' field is still true)
  match_word( 'abc123' <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5887	6029	
==>est
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _normalize_vers <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9973	10078	
==>();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9973	10078	
==>();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	405	542	
==>ray $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @da <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	405	542	
==>ray $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @da <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3029	3132	
==>nfusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo->add_pac <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3643	3798	
==>s should be policy based!
            ($new_alt) = sort { $b->{version} <=> $a->{version } } @maybe;
        }

        ### no alt? bail!
        last LINKI <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3303	3456	
==>.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
} <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3303	3456	
==>.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
} <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24877	24985	
==>@result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is expo <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1242	1338	
==>les which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1242	1338	
==>les which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2032	2128	
==>egex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=ov <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2032	2128	
==>egex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	506	632	
==>eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	506	632	
==>eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	506	632	
==>eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    r <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13715	13851	
==>, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  err_bracket:
    parse_err <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7411	7508	
==>doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7411	7508	
==>doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3580	3694	
==>me};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3580	3694	
==>me};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4170	4284	
==>me};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7757	7856	
==>]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubTyp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7757	7856	
==>]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubTyp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7757	7856	
==>]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubTyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1725	1825	
==>ument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - creat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1725	1825	
==>ument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - creat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1725	1825	
==>ument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - creat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1253	1361	
==>eturns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1253	1361	
==>eturns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1800	1908	
==>eturns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2837	2952	
==>, "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2837	2952	
==>, "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2837	2952	
==>, "..", "pugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1900	1998	
==>$n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1900	1998	
==>$n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1900	1998	
==>$n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16	108	
==>itter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16	108	
==>itter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9185	9276	
==>@_;

    my @existing_switches = $self->_cleaned_switches( $Test::Harness::Switches, $ENV{HA <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11201	11294	
==>ar(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> "\\f", {[C] = "\f"}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	701	814	
==>2
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	701	814	
==>2
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	701	814	
==>2
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed string comparison to Inf portability (Windows x Linux)
# * Separ <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2009	2120	
==>will
    # blow up in our faces when tests are inserted.
    # It is better then checking for the names of the t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10496	10604	
==>nt "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10654	10762	
==>nt "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1442	1551	
==>asses here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1442	1551	
==>asses here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1442	1551	
==>asses here ....
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11393	11489	
==>in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_fu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11451	11547	
==>in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2753	2932	
==>s $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2753	2932	
==>s $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2753	2932	
==>s $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35738	35871	
==>ve length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35738	35871	
==>ve length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35738	35871	
==>ve length
            #  tail=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1308	1396	
==>space
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $deb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1308	1396	
==>space
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $deb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1308	1396	
==>space
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $deb <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2865	2963	
==>an = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2865	2963	
==>an = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	781	873	
==>ndard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-trans <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	781	873	
==>ndard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-trans <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3734	3842	
==>5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - klud <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3734	3842	
==>5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - klud <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3734	3842	
==>5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XXX - klud <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1826	1936	
==>hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1826	1936	
==>hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7075	7167	
==>LValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $pBod <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1836	1960	
==>s Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    ha <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1836	1960	
==>s Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10795	10918	
==>ree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $tree;
      $rx->{tree} = $self->{data}[-1];
    }
  }
}


{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10158	10365	
==>ey, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10158	10365	
==>ey, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10158	10365	
==>ey, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4370	4487	
==>:IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4370	4487	
==>:IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4370	4487	
==>:IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixu <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2294	2397	
==>($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
m <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	765	900	
==>{
            when '+' { @stack.push($y + $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4159	4268	
==>ter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4159	4268	
==>ter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34296	34406	
==>e;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34296	34406	
==>e;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34296	34406	
==>e;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1635	1759	
==>pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 D <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1635	1759	
==>pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 D <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6175	6305	
==>ls>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6175	6305	
==>ls>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}< <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18949	19063	
==>gnmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | < <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1142	1289	
==>everse(0 .. $#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $self->evalu <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	372	502	
==>try }
        $still_running--;
    }
    say 'Thread 2 finished: $a is now < -100'
}
while ($still_running) {
    say $a;
    slee <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12905	13085	
==>s->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2600	2705	
==>ile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2600	2705	
==>ile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	336	455	
==>{ var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	336	455	
==>{ var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	336	455	
==>{ var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5251	5352	
==>:Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5251	5352	
==>:Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5251	5352	
==>:Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class-> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8271	8417	
==>} || "../");
    $template->param(directory => $path);
    $template->param(directories => [ map { { 
                                            t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28036	28131	
==>duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32588	32683	
==>duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4358	4477	
==>{ 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3814	3909	
==>(@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) retu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3814	3909	
==>(@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1043	1148	
==>me => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1043	1148	
==>me => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1043	1148	
==>me => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13123	13238	
==>:Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13123	13238	
==>:Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13123	13238	
==>:Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'name' );  # * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	987	1093	
==>O - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	987	1093	
==>O - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	987	1093	
==>O - (iblech) probably with a warning "uninitialized warning used in numeric contect"
#        (Same for has <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5695	5793	
==>for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class it <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5695	5793	
==>for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8751	8937	
==>crement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8751	8937	
==>crement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8751	8937	
==>crement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5346	5454	
==>perclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5346	5454	
==>perclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5346	5454	
==>perclasses' => ::make_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13026	13122	
==>move_content_headers

This will remove all the header fields used to describe the content of
a me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13026	13122	
==>move_content_headers

This will remove all the header fields used to describe the content of
a me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1526	1620	
==>_params($args);
    my $return_value = $self->{body}->($self->{env});
    (blessed($return_valu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2324	2469	
==>t, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2312	2457	
==>t, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2134	2246	
==>kage Blondie::Val;
    use base 'Blondie::Node::Unit';

    package Blondie::Seq;
    use base 'Blondie::Node::Li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11161	11276	
==>[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match::get( \$_[0], '\$()' ) /sgx;
    #print "C <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1856	1954	
==>re 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1856	1954	
==>re 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4578	4709	
==>en $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4578	4709	
==>en $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30124	30217	
==>pty or equal to
the invocant Relation::Example's header, in which case it returns the identity <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3337	3428	
==>re accessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3337	3428	
==>re accessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20304	20419	
==>EC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16725	16840	
==>EC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} = <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	27	126	
==>t things which end up defined in PILn
# (though one may wish to overwrite a limited piln version wit <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	963	1060	
==>lar expressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<l <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14526	14617	
==>eric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routine works <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14526	14617	
==>eric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routine works <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5824	5953	
==>$code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5824	5953	
==>$code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /retu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11897	12020	
==>_text:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, pos, $I <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21139	21262	
==>, $test->{'next'}..$test->{max};
            $failed = @{$test->{failed}};
            (my $txt, $canon) = _canonfailed($tes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24617	24711	
==>s.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24617	24711	
==>s.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that Local <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3863	4010	
==>,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PSt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3863	4010	
==>,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PSt <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	713	860	
==>,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             'PNoop';
node_h 'PIL_Stmt',             'PSt <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2150	2247	
==>.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $othe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2150	2247	
==>.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $othe <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3918	4015	
==>able = $self->termTable() if ($whitespacePosition <= $position);

  expect_term_1:
  my $key = $$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1059	1154	
==>oerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1059	1154	
==>oerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1059	1154	
==>oerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5715	5820	
==>an}.keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Updat <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5715	5820	
==>an}.keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Updat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40015	40114	
==>d, and a string.  If the warning is called
from a character class, pass " in character class"; other <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	296	445	
==>eta->new( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        fi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18954	19076	
==>$br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !gre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20312	20434	
==>$br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !gre <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27730	27828	
==>, when
given each original tuple/Mapping as its sole read-only argument, returns a
value that is op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32282	32380	
==>, when
given each original tuple/Mapping as its sole read-only argument, returns a
value that is op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31374	31472	
==>, when
given each original tuple/Mapping as its sole read-only argument, returns a
value that is op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18116	18249	
==>ringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18116	18249	
==>ringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18116	18249	
==>ringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $Data::Dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1105	1229	
==>"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1105	1229	
==>"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_laz <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1105	1229	
==>"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4103	4245	
==>sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4103	4245	
==>sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4103	4245	
==>sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7243	7409	
==>return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7243	7409	
==>return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7243	7409	
==>return Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                ret <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8515	8617	
==>k}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8515	8617	
==>k}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($o <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5667	5765	
==>$self, $child_count, $all_tests) = @_;
    my $chunk_size = POSIX::ceil(@$all_tests / ($child_count <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1023	1131	
==>L::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1023	1131	
==>L::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1023	1131	
==>L::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13232	13365	
==>ainer::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub bucket <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13232	13365	
==>ainer::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub bucket <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13232	13365	
==>ainer::Hash;

sub clone { 
    my $tmp = { %{ $_[0] } };
    $tmp;
}

sub elems {
    my @tmp = %{ $_[0] };
    @tmp / 2
}

sub bucket <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4812	4968	
==>/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4824	4980	
==>/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	920	1039	
==>{
    print "$desc: $k => $v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc: empty\n";
  }
}

sub addToken <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	781	895	
==>eight = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and n <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	781	895	
==>eight = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1112	1210	
==>e core str type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	532	641	
==>ated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t6 = times;

printf "Total time: %.3 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	437	545	
==>C], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	431	539	
==>C], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8858	8972	
==>efault) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8858	8972	
==>efault) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8858	8972	
==>efault) {
	    my $code = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12708	12823	
==>pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseud <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12708	12823	
==>pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseud <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14831	14938	
==>t"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($ <==
3	/Users/nnunley/pugs/util/addauthors.pl	158	255	
==>date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comitters{$comitter}++;
}

#foreach (sor <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21482	21576	
==>ead2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21482	21576	
==>ead2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7417	7559	
==>ed.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7417	7559	
==>ed.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7417	7559	
==>ed.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9742	9842	
==>'named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9742	9842	
==>'named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9742	9842	
==>'named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5286	5390	
==>ray}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5286	5390	
==>ray}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5286	5390	
==>ray}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetch( $p <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1665	1828	
==>_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token}( @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23390	23482	
==>.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23390	23482	
==>.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1758	1870	
==>prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1758	1870	
==>prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1758	1870	
==>prompt))) {
  next unless /\S/;
  $term->addhistory($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23014	23118	
==>(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23014	23118	
==>(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23014	23118	
==>(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2692	2796	
==>IL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2692	2796	
==>IL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2692	2796	
==>IL2JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1619	1733	
==>sname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1619	1733	
==>sname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1619	1733	
==>sname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user}),
        PIL <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5680	5772	
==>ead($url)

Get document headers. Depending on the context, C<head> returns
the following valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5680	5772	
==>ead($url)

Get document headers. Depending on the context, C<head> returns
the following valu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10242	10376	
==>hod skip_all
  {
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  meth <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2279	2397	
==>hod skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

meth <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2279	2397	
==>hod skip_all
{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	128	245	
==>$code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pk <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	128	245	
==>$code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pk <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3599	3700	
==>s Map
import qualified Pugs.Version

config :: Map.Map String String
config = Map.fromList
    [#all_d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5218	5352	
==>eading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8695	8829	
==>eading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7715	7849	
==>eading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10389	10547	
==>== undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10389	10547	
==>== undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10389	10547	
==>== undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            array[idx] = new <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4842	4985	
==>e ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4842	4985	
==>e ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2822	2908	
==>>code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term1> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	916	1045	
==>$.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	916	1045	
==>$.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5275	5361	
==>Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(Max), !.
p6_range_bounds_RHS(_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2910	3049	
==>),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2921	3060	
==>),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7698	7818	
==>ght method list (unresolved)');

# resolve the class and pull in all the roles
$FooBar->resolve();

is_deeply(
    [ sort <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30977	31175	
==>ist') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30977	31175	
==>ist') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30977	31175	
==>ist') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2730	2837	
==>+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2730	2837	
==>+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2730	2837	
==>+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:« <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8376	8485	
==>e you either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If h <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8376	8485	
==>e you either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If h <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2463	2569	
==>{
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r8649.
&Array::pop <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	43	149	
==>@*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_pat <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	43	149	
==>@*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_pat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10127	10230	
==>=> sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1042	1159	
==>on (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1042	1159	
==>on (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1042	1159	
==>on (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanceof PIL2JS.Ref)) {
      PIL2JS.die(" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1408	1613	
==>in "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1408	1613	
==>in "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::P <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4017	4161	
==>f you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( $self->{saw_lone_not} && 
            ($self->{lone_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1177	1275	
==>r(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1177	1275	
==>r(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1177	1275	
==>r(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	867	990	
==>xp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	867	990	
==>xp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7763	7891	
==>ned' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7763	7891	
==>ned' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7763	7891	
==>ned' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6376	6481	
==>$got)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17497	17592	
==>and `reset()` methods.

If the span is "continuous", this method emits a warning and returns und <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17497	17592	
==>and `reset()` methods.

If the span is "continuous", this method emits a warning and returns und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12816	13047	
==>type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12816	13047	
==>type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12816	13047	
==>type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1668	1775	
==>el stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# stor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1668	1775	
==>el stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# stor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1904	2011	
==>el stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
}

# stor <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1222	1340	
==>Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnos <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1222	1340	
==>Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1302	1420	
==>Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnos <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4612	4726	
==>totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} ) {
            wa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24472	24569	
==>deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29024	29121	
==>deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1169	1311	
==>unk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./g <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1169	1311	
==>unk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./g <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	642	765	
==>ty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	960	1064	
==>eturn 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	960	1064	
==>eturn 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	960	1064	
==>eturn 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3484	3585	
==>ude "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .local pmc optable
    $P0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3547	3662	
==>elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3547	3662	
==>elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3547	3662	
==>elsif($k eq 'DESTROY') {
		    $MM->add_method('DESTROY' => ::make_method(sub{
			shift;
			$v->();
		    }));
		} e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25583	25693	
==>cter but not ...
}
rule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | <CharacterEscape>
    | <Charac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3386	3492	
==>lock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fg <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3267	3368	
==>lock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fg <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	255	409	
==>is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	255	409	
==>is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4078	4184	
==>l { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4078	4184	
==>l { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4078	4184	
==>l { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pil;
}

sub command <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7724	7871	
==>{
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7736	7883	
==>{
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        } <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1252	1394	
==>ee.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<Scalar>).add_childre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5786	5886	
==>2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5786	5886	
==>2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5786	5886	
==>2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	603	701	
==>$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	603	701	
==>$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	603	701	
==>$::Class->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6672	6789	
==>X
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6672	6789	
==>X
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6672	6789	
==>X
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->increment );
    return $tmp;
 }else{ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6727	6898	
==>t, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listl <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5231	5402	
==>t, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11266	11419	
==>ache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11266	11419	
==>ache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11266	11419	
==>ache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems to prevent some GC issues,.. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8376	8490	
==>ch::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8364	8478	
==>ch::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4052	4173	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4245	4366	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1397	1516	
==>me

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 if shift <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17490	17585	
==>nt()`, and `reset()` methods.

If the span is "continuous", this method emits a warning and retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17490	17585	
==>nt()`, and `reset()` methods.

If the span is "continuous", this method emits a warning and retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20678	20781	
==>x1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20678	20781	
==>x1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20678	20781	
==>x1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4713	4814	
==>ueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.Met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4713	4814	
==>ueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.Met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4713	4814	
==>ueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to/Perl6.Met <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	807	927	
==>ker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

# For mm args that take multiple space-seperated args <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18076	18175	
==>nt.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <ki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18076	18175	
==>nt.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <ki <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14832	14928	
==>c("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can alwa <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14832	14928	
==>c("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can alwa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21298	21386	
==><'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? <';'> <Expression <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2317	2413	
==>urns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns St <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2317	2413	
==>urns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns St <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1290	1399	
==>eturns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1290	1399	
==>eturns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3289	3379	
==>nt(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3289	3379	
==>nt(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3289	3379	
==>nt(function (args) { PIL2JS.die(args[1]) })')($arg);
}

sub JS::Root::nothing() is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5693	5813	
==>/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5693	5813	
==>/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5693	5813	
==>/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3852	3943	
==>------------------------------------
## Package

## See http://article.gmane.org/gmane.comp. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3852	3943	
==>------------------------------------
## Package

## See http://article.gmane.org/gmane.comp. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3852	3943	
==>------------------------------------
## Package

## See http://article.gmane.org/gmane.comp. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10742	10868	
==>] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10742	10868	
==>] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10742	10868	
==>] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9448	9559	
==>--------------------------------------      
    # this collects a unique list of roles 
    # gather recursivel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9448	9559	
==>--------------------------------------      
    # this collects a unique list of roles 
    # gather recursivel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9448	9559	
==>--------------------------------------      
    # this collects a unique list of roles 
    # gather recursivel <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6171	6357	
==>ent {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6171	6357	
==>ent {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9852	10015	
==>er,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	426	579	
==>er,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	426	579	
==>er,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2255	2372	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2255	2372	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2255	2372	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	341	443	
==>lf, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	341	443	
==>lf, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	341	443	
==>lf, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16259	16477	
==>lems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16259	16477	
==>lems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16259	16477	
==>lems => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $arra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12825	12948	
==>oes not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $result;

    my $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1291	1389	
==>5/p6/haskell.
  - perhaps serve as a reference implementation for a while.  By
  sacrificing ease o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2960	3063	
==>alar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2960	3063	
==>alar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2960	3063	
==>alar::Util::blessed $obj) {
		my $res = $opts->{editor}->($obj, $namespace); # re{bless,base} ref
		retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	435	553	
==>ty => 'circumfix', 
        assoc => 'non',
        name => 'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	74	170	
==>() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	74	170	
==>() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	426	558	
==>},
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	426	558	
==>},
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	426	558	
==>},
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4844	4955	
==>es and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4844	4955	
==>es and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	835	941	
==>te( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	835	941	
==>te( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1391	1497	
==>te( Str $message )>

Writes a message to the normal output filehandle, adding leading C<#>
characters after <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12990	13116	
==>'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12990	13116	
==>'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12990	13116	
==>'ARRAY')
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with t <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5954	6048	
==>ig/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
T <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5954	6048	
==>ig/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	128	250	
==>nt(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	128	250	
==>nt(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	128	250	
==>nt(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var has <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	58	163	
==>rt.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	58	163	
==>rt.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	58	163	
==>rt.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1056	1164	
==>",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1056	1164	
==>",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1056	1164	
==>",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4341	4460	
==>ethod(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4341	4460	
==>ethod(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4341	4460	
==>ethod(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviously if we are a rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4914	5021	
==>g;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4914	5021	
==>g;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4914	5021	
==>g;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.F <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10653	10802	
==>var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $D <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6994	7143	
==>var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7843	7992	
==>var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11824	12080	
==>)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11824	12080	
==>)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11824	12080	
==>)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7719	7837	
==>es for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7719	7837	
==>es for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7719	7837	
==>es for $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3246	3375	
==>:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3246	3375	
==>:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3246	3375	
==>:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3222	3408	
==>rtype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3222	3408	
==>rtype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3222	3408	
==>rtype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1025	1133	
==>v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1025	1133	
==>v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1025	1133	
==>v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1502	1598	
==>or: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1502	1598	
==>or: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1502	1598	
==>or: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{prelude} and <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5122	5269	
==>ct 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlis <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5122	5269	
==>ct 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	457	569	
==>item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	457	569	
==>item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	457	569	
==>item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1, <==
3	/Users/nnunley/pugs/util/importgraph.pl	318	417	
==>";
my $overlap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "overlap=s" => \$overl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17479	17574	
==>, see the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17479	17574	
==>, see the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
pr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1396	1528	
==>str($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to ab <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1396	1528	
==>str($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to ab <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25452	25553	
==>∀α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x c");
}
{
	my $type = type::operator::a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	228	335	
==>s SubType $.subType;

# ?? do we need this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc;

has Array of Pe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3928	4029	
==>pan;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrenc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3928	4029	
==>pan;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrenc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12596	12709	
==>WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't ex <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12596	12709	
==>WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't ex <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7636	7782	
==>osure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $sel <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7636	7782	
==>osure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $sel <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2812	2912	
==>{
		my $self = shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13321	13412	
==>g, \%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $str <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13321	13412	
==>g, \%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	130	274	
==>[ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	130	274	
==>[ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	130	274	
==>[ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5181	5327	
==>ndidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5645	5791	
==>ndidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32669	32767	
==>ck.

The purpose of adding an ending node to the walking stack is that ending
nodes are all omitted <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	336	459	
==>');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	371	494	
==>');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	336	459	
==>');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9419	9531	
==>s_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9419	9531	
==>s_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9419	9531	
==>s_optional = $p->{'tpParam'}{'isOptional'};
        my $is_writable = $p->{'tpParam'}{'isWritable'};
        $n6a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1611	1737	
==>sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1611	1737	
==>sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1611	1737	
==>sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this is to allow
    # for me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3620	3737	
==>urpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3620	3737	
==>urpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3620	3737	
==>urpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3699	3845	
==>..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3839	3985	
==>..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7543	7657	
==>' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_flags;

    return ($ghc, $ghc_version, $ghc_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	725	831	
==>}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub DESTROY {}

package Module::Insta <==
3	/Users/nnunley/pugs/util/combine_tests.pl	218	316	
==>d);
print Dump(combine_tests(map { LoadFile($_) } @ARGV));
#
# Annotates the last test tree with th <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2630	2748	
==>t = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2630	2748	
==>t = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2630	2748	
==>t = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8332	8517	
==>}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8332	8517	
==>}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8332	8517	
==>}->[0] 
                     != 
                     $::CLASS->[0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX - <==
3	/Users/nnunley/pugs/util/testgraph.pl	1533	1664	
==>/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8860	8984	
==>:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8860	8984	
==>:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1358	1442	
==>= "$^X -I/tmp/JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9028	9175	
==>x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9028	9175	
==>x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24759	24852	
==>ade a few C-macro-style functions for easy access to the parser
object's most important attrib <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6801	6905	
==>ond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5639	5731	
==>terface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5639	5731	
==>terface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15259	15353	
==>s returned.

Methods that deal with dates/times always convert their value to system
time (seco <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15259	15353	
==>s returned.

Methods that deal with dates/times always convert their value to system
time (seco <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	544	654	
==>[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{
		$orginal = $1;
		$sub = $2;
		if ($sub =~ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1746	1835	
==>+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1746	1835	
==>+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3131	3264	
==>L::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3131	3264	
==>L::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3131	3264	
==>L::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	585	725	
==>$self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	585	725	
==>$self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	585	725	
==>$self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) {
            return $value;
        }
    }
}

sub DE <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	337	439	
==>ncomplete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy list <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	337	439	
==>ncomplete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1803	1906	
==>EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1803	1906	
==>EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1803	1906	
==>EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebuff) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2288	2407	
==>(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoder <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2288	2407	
==>(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoder <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2288	2407	
==>(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoder <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3215	3346	
==>f = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3215	3346	
==>f = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3215	3346	
==>f = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should be writ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14917	15028	
==>"Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14917	15028	
==>"Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14917	15028	
==>"Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4928	5024	
==>the associativity of the original operator and auto-metaed versions
# of user-defined ops are not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4928	5024	
==>the associativity of the original operator and auto-metaed versions
# of user-defined ops are not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4928	5024	
==>the associativity of the original operator and auto-metaed versions
# of user-defined ops are not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	300	426	
==>nction_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	300	426	
==>nction_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	300	426	
==>nction_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2245	2366	
==>n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2245	2366	
==>n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2245	2366	
==>n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17483	17580	
==>0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17483	17580	
==>0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17483	17580	
==>0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3251	3348	
==>0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3251	3348	
==>0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3251	3348	
==>0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is_v <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2967	3088	
==>e"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circu <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2967	3088	
==>e"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11806	11904	
==>o one another. 

Because instances of class all conform to the Role interface/API they are 
interch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11806	11904	
==>o one another. 

Because instances of class all conform to the Role interface/API they are 
interch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11806	11904	
==>o one another. 

Because instances of class all conform to the Role interface/API they are 
interch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	485	586	
==>elper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	485	586	
==>elper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	485	586	
==>elper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7798	7900	
==>es = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7798	7900	
==>es = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7798	7900	
==>es = get_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8880	9051	
==>utes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8880	9051	
==>utes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8880	9051	
==>utes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next method for them 
                    : <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	149	249	
==>r is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(% <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	149	249	
==>r is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10761	10873	
==>turn;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10761	10873	
==>turn;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10761	10873	
==>turn;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	565	668	
==>-
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	565	668	
==>-
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	565	668	
==>-
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2772	3070	
==>tals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30378	30476	
==>children of the object.

=item $obj->walk()

"Walks" the object.  This is used to dive into the nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30982	31078	
==>he following attributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser objec <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11679	11798	
==>:send("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11679	11798	
==>:send("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6100	6192	
==>elf->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  package Regexp::Parser::anyof_c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3418	3506	
==>self.intersection( $span.complement );
}

method compare ($self: Set::Infinite::Functiona <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3418	3506	
==>self.intersection( $span.complement );
}

method compare ($self: Set::Infinite::Functiona <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10887	11031	
==>> sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10887	11031	
==>> sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10887	11031	
==>> sub { \(_('$.referred')) },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4942	5097	
==>hift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = se <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4942	5097	
==>hift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	829	954	
==>d->new("GV"),
		},
		{
			arity => 3,
			name => '&printf',
			body => 'prel_printf',
			type => type("GV -> PV -> PV -> IV"), <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2132	2237	
==>ires, $self->requires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} | <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22619	22716	
==>ct to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27171	27268	
==>ct to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14189	14311	
==>statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alterna <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14468	14590	
==>statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alterna <==
3	/Users/nnunley/pugs/util/grokprims.pl	428	533	
==>et, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or die "Ba <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24814	24911	
==>Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29366	29463	
==>Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1922	2031	
==>... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1922	2031	
==>... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1922	2031	
==>... now we have all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17494	17602	
==>rface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17494	17602	
==>rface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17494	17602	
==>rface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label & <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	617	745	
==>None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4095	4223	
==>None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set membe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1863	1965	
==>t($safe);
}

sub provides {
	my $self = shift;
	my $node = shift;
    Blondie::Backend::C::Builtins->fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1788	1964	
==>Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1788	1964	
==>Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.de <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12240	12372	
==>ailedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                if (@{$test{failed}} and $test{m <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	482	604	
==>c_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	383	505	
==>c_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17981	18080	
==>($self, $line, $type, $totals) = @_;

    warn "Test header seen more than once!\n" if $self->{_seen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2581	2690	
==>}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2581	2690	
==>}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2581	2690	
==>}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
met <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	64	166	
==>gs;
use Pugs::Compiler::Rule;
use base qw(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, $ke <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	163	259	
==>_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_L <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	163	259	
==>_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_L <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1132	1228	
==>and not for
humans. It has no syntax, only an abstract syntax tree, and some very simple
operatio <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2673	2764	
==>omewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<g <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2673	2764	
==>omewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1612	1720	
==>h($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1612	1720	
==>h($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1612	1720	
==>h($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10974	11220	
==>cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10974	11220	
==>cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10974	11220	
==>cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10404	10531	
==>"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10404	10531	
==>"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10404	10531	
==>"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_param <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1903	2083	
==>';                           # archive extension
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3375	3461	
==>\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3375	3461	
==>\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2227	2329	
==>ray|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2227	2329	
==>ray|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2227	2329	
==>ray|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.po <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10004	10100	
==>. As new features are
added to Pugs, new test functions will be defined to facilitate the
testing <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10062	10158	
==>. As new features are
added to Pugs, new test functions will be defined to facilitate the
testing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8459	8575	
==>n $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8459	8575	
==>n $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8459	8575	
==>n $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($name,$pil_params,$body,$want <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10023	10161	
==>t },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10023	10161	
==>t },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10023	10161	
==>t },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start = shift <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	370	530	
==>pr) {
        if ($tok =~ /^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack un <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	806	926	
==>> "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	806	926	
==>> "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10215	10313	
==>a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.ins <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10215	10313	
==>a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.ins <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	612	729	
==>GLOB' ) {
        bless $self, 'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	803	903	
==>e for single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	803	903	
==>e for single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5079	5188	
==>{
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5079	5188	
==>{
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5079	5188	
==>{
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6195	6294	
==>al_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6195	6294	
==>al_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6195	6294	
==>al_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17191	17295	
==>e(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and is().
#

sub fresh_per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3266	3358	
==>rce,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_program,
		p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3483	3575	
==>rce,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_program,
		p <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	912	1060	
==>nit;
    sub new {
        my $class = shift;
        my $value = shift;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	89	210	
==>nit;

	sub new {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32596	32703	
==>n walk()ed, it will insert the matching 'close' node into the
walking stack.

The purpose of adding an endin <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12889	12983	
==>e last element in the recurrence.

Returns positive infinite if the recurrence is infinite.
Ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12889	12983	
==>e last element in the recurrence.

Returns positive infinite if the recurrence is infinite.
Ret <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	719	811	
==>ple: $date is now "2005-02-06 17:52:06"
  my $time = Time::Piece->strptime($date, "%Y-%m-%d % <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3825	3914	
==>>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3825	3914	
==>>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35571	35687	
==>tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35571	35687	
==>tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35571	35687	
==>tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $len <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12384	12490	
==>:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12384	12490	
==>:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2219	2322	
==>aps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 one <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2138	2238	
==>aps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13061	13198	
==>elf->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13061	13198	
==>elf->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13061	13198	
==>elf->clone;
                    $self->store( Perl6::Value::List->from_x( item => undef, count => Inf ) );
                    return $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1791	1896	
==>_native != 0)
        || confess "Division by zero error";
    return num->new(int($left->to_native / $rig <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3030	3134	
==>efined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( % <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3030	3134	
==>efined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6766	6921	
==>> sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6766	6921	
==>> sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6766	6921	
==>> sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1243	1374	
==>@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ s/([ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	623	740	
==>ument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	623	740	
==>ument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1796	1927	
==>ue {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Numbe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1796	1927	
==>ue {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Numbe <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4387	4484	
==>SingleLineCommentChars>?
}
rule SingleLineCommentChar {  # see 7.4
      <!before <LineTerminator> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	545	637	
==>ange
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

200 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	545	637	
==>ange
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

200 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18704	18802	
==>>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS products) beca <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18704	18802	
==>>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS products) beca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	763	877	
==>\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	763	877	
==>\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	763	877	
==>\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

p <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	286	389	
==>: Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1319	1409	
==>etta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en vers <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1319	1409	
==>etta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en vers <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2640	2757	
==>ub tail { list->new(@{$_[0]}[1 .. $#{$_[0]}]) }

sub shift   : method { CORE::shift(@{(shift)}) }
sub pop     : method <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2695	2780	
==>the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compile <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2695	2780	
==>the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9701	9800	
==>$::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9701	9800	
==>$::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9701	9800	
==>$::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_make_ascendant_disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4178	4344	
==>et_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4178	4344	
==>et_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4178	4344	
==>et_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1165	1289	
==>Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1165	1289	
==>Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1165	1289	
==>Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12864	12962	
==>.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12864	12962	
==>.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8708	8826	
==>ev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8708	8826	
==>ev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $clas <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	82	188	
==>ile::Copy;

# change these two lines if it turns out we need the real YAML.pm
use PugsBuild::MiniYAML ();
o <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	957	1047	
==>.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($self: Tree $ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	957	1047	
==>.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($self: Tree $ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	303	423	
==>x_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	303	423	
==>x_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	303	423	
==>x_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	649	757	
==>h->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	855	963	
==>h->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1197	1309	
==>bdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) { <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	538	647	
==>bdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1106	1214	
==>e it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->coroutin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16463	16582	
==>t++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16463	16582	
==>t++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16463	16582	
==>t++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3693	3850	
==>lar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3693	3850	
==>lar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3693	3850	
==>lar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8397	8504	
==>ild
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If however you are crea <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8397	8504	
==>ild
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If however you are crea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11932	12031	
==>_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11932	12031	
==>_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11932	12031	
==>_table->{$label};   
});

::Class.meta.add_method('add_attribute' => method () {
    my ($self, $lab <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4070	4398	
==>eq_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4070	4398	
==>eq_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        } <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	843	933	
==>);
fixup_concurrency();
$Test::Harness::Verbose  = 1;
$Config{"output-file"} ||= "tests.yml <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12548	12661	
==>:croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12548	12661	
==>:croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12548	12661	
==>:croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@;
}

no stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3999	4131	
==>if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3999	4131	
==>if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3999	4131	
==>if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9623	9749	
==>ber(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9623	9749	
==>ber(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9623	9749	
==>ber(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        ori <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2202	2371	
==>t;
                my $idx = shift;
                delete $self->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1721	1822	
==>atch is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1721	1822	
==>atch is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{mat <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11782	11878	
==>ings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a littl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11840	11936	
==>ings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a littl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1135	1244	
==>fix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1135	1244	
==>fix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1135	1244	
==>fix:«<=»",   2, "N", "Number(a) <= Number(b)",
  "infix:«>=»",   2, "N", "Number(a) >= Number(b)",
  "infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13551	13649	
==>m_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13551	13649	
==>m_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13551	13649	
==>m_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6535	6694	
==>ed by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6535	6694	
==>ed by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6535	6694	
==>ed by bind()
            'id' =>      sub { _('$:cell')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trai <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4675	4772	
==>ct;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8152	8249	
==>ct;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1950	2099	
==>ivifyElem($idx)->scalar_store($value);
            },
            hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2736	2857	
==>h

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all chars implemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2920	3041	
==>h

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all chars implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9435	9565	
==>);
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9435	9565	
==>);
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9435	9565	
==>);
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9219	9327	
==>pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9219	9327	
==>pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9219	9327	
==>pugs $extra_args $dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13884	14003	
==>tr $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13884	14003	
==>tr $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3591	3691	
==>cs) {
    print "P6 design documents   : Won't generate cross-referenced P6 design documents\n";
} el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5835	5929	
==>on filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5835	5929	
==>on filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5835	5929	
==>on filter.)

=item B<prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6134	6236	
==>dy), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6134	6236	
==>dy), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6134	6236	
==>dy), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7682	7777	
==>eturn sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7682	7777	
==>eturn sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7682	7777	
==>eturn sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1046	1141	
==>t into the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1046	1141	
==>t into the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10063	10265	
==>st.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      f <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2118	2298	
==>st.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2118	2298	
==>st.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    f <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6082	6188	
==>eck if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6140	6246	
==>eck if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39765	39889	
==>of the aforementioned.

=item C<join (Relation::Example $other!) returns Relation::Example>

This multi-method is a generic b <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15758	15866	
==>elation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19235	19343	
==>elation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6568	6665	
==>B atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6568	6665	
==>B atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6568	6665	
==>B atan (*@xxa) { p6_from_n( atan(map{p6_to_n($_)}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16252	16357	
==>( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16252	16357	
==>( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16252	16357	
==>( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3911	4044	
==>= sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4104	4237	
==>= sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail <==
3	/Users/nnunley/pugs/util/testgraph.pl	1029	1145	
==>s, -e      inline css in HTML header (for broken webservers)
   --cssfile,  -c FILE  location of css. [default: $Conf <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9569	9714	
==>start .. $end;
      } else {
         @lines = ($start);
      }
      next unless $start;
      for my $line (@lines) {
          if (exists $li <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1713	1806	
==>$burst_size)

The constructor takes as parameters at least C<rate of information> in
items per <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1713	1806	
==>$burst_size)

The constructor takes as parameters at least C<rate of information> in
items per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7276	7397	
==>rst Object singleton/class method');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:supercl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5911	6016	
==>>_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    F <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5911	6016	
==>>_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5685	5851	
==>turn [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5685	5851	
==>turn [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5685	5851	
==>turn [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9977	10101	
==>ispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9977	10101	
==>ispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9977	10101	
==>ispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3319	3435	
==>tance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3319	3435	
==>tance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3319	3435	
==>tance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10184	10292	
==>href containing:

    bool  - an "assertion" (true/false)
    from  - string pointer for start of this mat <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	717	820	
==>s used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub requ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	717	820	
==>s used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub requ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6606	6727	
==>END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6606	6727	
==>END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	722	826	
==>ture must be an closure::params or closure::signature type";
    (ref($body) eq 'CODE')
        || confes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	709	801	
==>y}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	709	801	
==>y}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	709	801	
==>y}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2896	3015	
==>f($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2896	3015	
==>f($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2896	3015	
==>f($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5079	5187	
==>::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5079	5187	
==>::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5079	5187	
==>::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29750	29843	
==>he unaffected invocant's attributes.  This method
supports having the new attributes having th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34302	34395	
==>he unaffected invocant's attributes.  This method
supports having the new attributes having th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33466	33559	
==>he unaffected invocant's attributes.  This method
supports having the new attributes having th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1175	1273	
==>E >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1175	1273	
==>E >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1175	1273	
==>E >= PIL::SUBBLOCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	436	618	
==>lue('@:slots', []);
        },        
        methods => {
            'array_fetch' => sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5251	5387	
==>,
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(9 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5251	5387	
==>,
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(9 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3715	3845	
==>$/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a has <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3727	3857	
==>$/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a has <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2216	2337	
==>ndex->file($config->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7133	7253	
==>ain;\n}";
	push @{ $self->{defs} }, "int main () { b_main(); return 0; }";

	join("\n\n", Blondie::Backend::C::Builtins-> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7349	7444	
==>tive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7349	7444	
==>tive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	310	413	
==>eout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	310	413	
==>eout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	310	413	
==>eout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3182	3327	
==>ivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3182	3327	
==>ivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3182	3327	
==>ivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array-> <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13884	13991	
==>ub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1364	1471	
==>ub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	282	385	
==>mper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs::Grammar::Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19889	19978	
==>m_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19889	19978	
==>m_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19889	19978	
==>m_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7294	7475	
==>->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7294	7475	
==>->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7294	7475	
==>->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2749	2927	
==>nless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2749	2927	
==>nless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2749	2927	
==>nless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( ' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21857	21962	
==>fun => $fac,
	param => val(5),
);

my $length_and_first = fun(
	param => "xs",
	body => comb(
		fun => com <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	319	418	
==>> $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	319	418	
==>> $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	162	280	
==>etaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	162	280	
==>etaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	162	280	
==>etaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = \&clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7819	7915	
==>$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7807	7903	
==>$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8752	8940	
==>d be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5112	5300	
==>d be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5961	6149	
==>d be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless e <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14776	14956	
==>+))?         # optional test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pu <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1842	1935	
==>ike C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ( <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1842	1935	
==>ike C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1265	1371	
==>"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1265	1371	
==>"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1265	1371	
==>"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5645	5764	
==>binator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])), <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5645	5764	
==>binator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])), <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27110	27215	
==>_failed() if !defined $a;
    my($strA,$npos,$A)=@$a;
    my $str = join("",map{chr($_)} @$strA);
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	389	503	
==>pugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 U <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	389	503	
==>pugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 U <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	389	503	
==>pugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 U <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	328	428	
==>name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	328	428	
==>name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	328	428	
==>name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	174	320	
==>? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	174	320	
==>? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	174	320	
==>? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	235	345	
==>rule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	235	345	
==>rule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subr <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13977	14085	
==>synpod = catfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21525	21620	
==>ray, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21525	21620	
==>ray, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21525	21620	
==>ray, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5269	5415	
==>parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5269	5415	
==>parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11605	11735	
==>ct(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5205	5314	
==>shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5205	5314	
==>shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5205	5314	
==>shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11253	11502	
==>=> [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11253	11502	
==>=> [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # X <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11253	11502	
==>=> [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # X <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5236	5417	
==>turn { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5070	5245	
==>turn { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
} <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24109	24241	
==>| <'@'>
    | <'&'>
    | <'='>
    | <'+'>
    | <'$'>
    | <','>
}
rule uriUnescaped {  # see 15.1.3
      <uriAlpha>
    | <Decim <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1391	1672	
==>or (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string = <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1391	1672	
==>or (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	150	264	
==>) {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9575	9698	
==>gs = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5916	6039	
==>gs = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6765	6888	
==>gs = @args\n";
            # print "macro: rule = \n$rule_code\n";
            # print "macro: block = \n", match::str($bloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1098	1218	
==>st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1098	1218	
==>st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1098	1218	
==>st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30415	30529	
==>n "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30415	30529	
==>n "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30415	30529	
==>n "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && U <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1656	1762	
==>in Installation.pm
$config{'_meta_dir'}        = [ Path::Class::dir('_jib')            ];
$config{'_files_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15834	15934	
==>pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15834	15934	
==>pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4871	5028	
==>ass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4871	5028	
==>ass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4871	5028	
==>ass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_nam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22996	23113	
==>r is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27548	27665	
==>r is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26325	26442	
==>r is a Mapping whose keys and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5203	5429	
==>, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5203	5429	
==>, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	961	1086	
==>"Could not chdir to $builddir: $!";
    }

    ### build an archive file
    my $archive = $path . $Ext;
    {   system( qq[ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1513	1623	
==>ash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1513	1623	
==>ash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1513	1623	
==>ash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14684	14847	
==>s->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14684	14847	
==>s->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14684	14847	
==>s->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->c <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	582	680	
==>ss \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args{'str'};
    return $o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7612	7705	
==>statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Gr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1437	1530	
==>statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	661	765	
==>@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	661	765	
==>@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	661	765	
==>@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	968	1074	
==>eferred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	968	1074	
==>eferred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	968	1074	
==>eferred - returns the referred object
#   - removed method .value() - except for Pair
#
# 2005-08-16
# * 'S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4012	4150	
==>)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4012	4150	
==>)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5523	5636	
==>details->{$piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $totals->{details}[$ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21532	21693	
==>path) {
      }
      else {
        if 1 {
          Pugs::Internals::compile_file_to_yml($path);
        }
      }
      return opRequire();
    }
    die "Can' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2916	3012	
==>1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2916	3012	
==>1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1831	1941	
==>T_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1831	1941	
==>T_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5455	5568	
==>m' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5455	5568	
==>m' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5455	5568	
==>m' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5058	5178	
==>:WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5058	5178	
==>:WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5058	5178	
==>:WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	86	257	
==>ed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	86	257	
==>ed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TO <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	586	694	
==>nfig{precompile};
usage();
exit 1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $Confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4675	4797	
==>}
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4675	4797	
==>}
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4675	4797	
==>}
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[0]->{sum}( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9771	9894	
==>which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9771	9894	
==>which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9771	9894	
==>which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6129	6249	
==>( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6129	6249	
==>( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2295	2404	
==>et_method($label, %opts)
            if $current.has_method($label, %opts);
    }
}

# alternate p6 version
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9711	9904	
==>eturn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9711	9904	
==>eturn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9711	9904	
==>eturn $self;
                    }
                    warn "Don't know how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self- <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10521	10625	
==>w;
		my $l = type::operator::nary->new(list => $a);
		type::operator::arrow->new( $l, $l );
	},
	# a -> b <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	242	358	
==>wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.want <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	242	358	
==>wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.want <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	360	463	
==>d';

# create our basic variables/functions for 
# the metamodel that the runtime needs to 
# have avail <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4702	4826	
==>rn;

    for my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    }
    
    ret <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	97	194	
==>es are used in nameless (array-based) nodes
where I don't yet know an authoritative name.


30 Aug <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	97	194	
==>es are used in nameless (array-based) nodes
where I don't yet know an authoritative name.


30 Aug <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1093	1194	
==>is is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* hav <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1093	1194	
==>is is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* hav <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1860	1948	
==>ie::Emitter::Pretty->new->string($reduced)
			if $received != $sent and $reduced->isa("Bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7236	7336	
==>oin '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7236	7336	
==>oin '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7236	7336	
==>oin '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	954	1052	
==>tstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	954	1052	
==>tstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	954	1052	
==>tstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	775	895	
==>n.defined) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8687	8779	
==>ividual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Sc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8687	8779	
==>ividual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Sc <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2479	2607	
==>arlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varle <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2479	2607	
==>arlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varle <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52439	52523	
==>$::Module));

$::Module->set_attr(symbol->new('@:subclasses') => list->new($::Class)) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1241	1350	
==>chObj->from() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2189	2283	
==>etta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command cla <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2189	2283	
==>etta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command cla <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6330	6471	
==>0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '' <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6388	6529	
==>0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11382	11498	
==>:Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11382	11498	
==>:Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11382	11498	
==>:Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2947	3195	
==>NGLE", angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                }
            }
            
            # XXX temporary hack - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18866	19006	
==>hen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20224	20364	
==>hen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $if <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13037	13136	
==>ds (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13037	13136	
==>ds (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1260	1388	
==>ly() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1260	1388	
==>ly() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1260	1388	
==>ly() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }

    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4088	4189	
==>ch my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4088	4189	
==>ch my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4088	4189	
==>ch my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1807	1943	
==>val_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5231	5340	
==>is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %* <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5231	5340	
==>is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19613	19707	
==>$value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19613	19707	
==>$value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19613	19707	
==>$value->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	858	959	
==>turn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	858	959	
==>turn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	519	619	
==>pes
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually mu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2616	2736	
==>( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
} <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2616	2736	
==>( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
} <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2762	2854	
==>ctober November December>;
method month_name returns Str { @months[./month_0] }

our @months_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1265	1400	
==>ent_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1265	1400	
==>ent_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1265	1400	
==>ent_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attr <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2902	3116	
==>Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1601	1736	
==>names > 1;
        return $S->force_object(anyof_char => $S->nchar($n), "\\c[$n]");
      }

      return $S->object(exact => join("", $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1223	1323	
==>e 64;');

#XXX- rename $n or $^n.  having the two of them "n" is confusing.
macro Clutter::num_size($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2895	2998	
==>eadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2895	2998	
==>eadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2895	2998	
==>eadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = functi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8796	8914	
==>chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8796	8914	
==>chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr <==
3	/Users/nnunley/pugs/util/drift.pl	269	371	
==>n) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Instan <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9950	10112	
==>ta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11427	11589	
==>ta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25545	25638	
==>ion::Example is not a table.

The Relation::Example class is pure and deterministic, such that <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6292	6467	
==>>run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gather_results();
}

# the wait here is sequential rather than non <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1235	1372	
==>=> -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $tex <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1235	1372	
==>=> -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $tex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1595	1756	
==>$obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1595	1756	
==>$obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1595	1756	
==>$obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4686	4785	
==>K is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd return <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4686	4785	
==>K is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd return <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2176	2296	
==>eturn 0 if $x == 0;

	my Int $t = int($x);
	return $x if $x == $t;
	$x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::rou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11326	11491	
==>Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7608	7773	
==>Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8442	8607	
==>Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \$match;\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1093	1192	
==>s typically useful when your object belongs to a
package that is too close to the main namespace for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1093	1192	
==>s typically useful when your object belongs to a
package that is too close to the main namespace for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1093	1192	
==>s typically useful when your object belongs to a
package that is too close to the main namespace for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6287	6458	
==>it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6287	6458	
==>it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6287	6458	
==>it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $se <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2213	2358	
==>=> Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2571	2716	
==>=> Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6500	6612	
==>turn concat( [ $node, $state ] );
    }
}

# interface to the internal rule functions
# - creates a 'capture <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4954	5069	
==>d1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4954	5069	
==>d1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale:: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2611	2722	
==>y is probably --initrd-mnt.

Note: I only tested this program on Linux, but it should work on other *nix
      s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	13	116	
==>is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	13	116	
==>is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	13	116	
==>is an unfinished sketch of :perl5 regex support.

sub JS::Root::rxbare_(Str $re) is primitive {
    my % <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1416	1542	
==>g.split;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24600	24693	
==>e accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24600	24693	
==>e accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3938	4030	
==>.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3938	4030	
==>.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3938	4030	
==>.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Package = $::C <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5692	5787	
==>et document headers. Depending on the context, C<head> returns
the following values:

=over 4

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5692	5787	
==>et document headers. Depending on the context, C<head> returns
the following values:

=over 4

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3687	3875	
==>cking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3573	3755	
==>cking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29535	29641	
==>or '|' does not need
to match it; it has already been consumed.

If you created a handle for '&&' without a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19094	19207	
==>olen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20452	20565	
==>olen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3595	3706	
==>er => '+' },
    fixity => 'infix',
  );

    my $rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op (<s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1603	1711	
==>reate a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1603	1711	
==>reate a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1603	1711	
==>reate a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	420	532	
==>> sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	420	532	
==>> sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1560	1685	
==>);
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1560	1685	
==>);
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1560	1685	
==>);
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->supercl <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	41	155	
==>re { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	41	155	
==>re { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5910	6028	
==>\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5910	6028	
==>\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5910	6028	
==>\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	229	386	
==>{
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	229	386	
==>{
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	229	386	
==>{
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5745	5836	
==>JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5745	5836	
==>JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5745	5836	
==>JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2336	2435	
==>xpect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2336	2435	
==>xpect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2416	2515	
==>xpect_diag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $descripti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37468	37566	
==>ing whether this is a positive
assertion.  Here's the new class for the object:

  package Regexp:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12569	12666	
==>r( $field, ... )

This function removes the header fields with the specified names.

The header fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12569	12666	
==>r( $field, ... )

This function removes the header fields with the specified names.

The header fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2795	2894	
==>tyle variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2795	2894	
==>tyle variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3142	3241	
==>tyle variable binding,
as well as subroutine call argument passing and binding, in Perl 5.

=head1 A <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8154	8268	
==>der} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tfile), "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3643	3754	
==>*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3836	3947	
==>*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6525	6631	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6525	6631	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6525	6631	
==>sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2285	2380	
==>a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2285	2380	
==>a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2285	2380	
==>a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1143	1252	
==>oved from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actua <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1143	1252	
==>oved from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actua <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1143	1252	
==>oved from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in as_js3, the actua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14105	14199	
==>lems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('G <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14105	14199	
==>lems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('G <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14105	14199	
==>lems };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('G <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	317	516	
==>op::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	318	517	
==>op::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4472	4585	
==>yaml {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6273	6402	
==>ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are overloaded with calls to JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6273	6402	
==>ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are overloaded with calls to JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6273	6402	
==>ret;
}

# From here on, most normal things won't work any longer, as all the standard
# operators are overloaded with calls to JS: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7768	7867	
==>uilder-0.2.1;
  
  use Test::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	13	104	
==>uilder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPl <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	13	104	
==>uilder-0.2.1;

use Test::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPl <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9626	9750	
==>ht + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in ord <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9626	9750	
==>ht + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in ord <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2043	2165	
==>g->uninstall

=cut

sub uninstall {
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10137	10256	
==>ize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10137	10256	
==>ize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10137	10256	
==>ize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9723	9923	
==>on,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Ski <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	303	491	
==>on,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Ski <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	303	491	
==>on,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Ski <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37884	37978	
==>atching every tuple of each source relation
with every tuple of each other source relation, the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42433	42527	
==>atching every tuple of each source relation
with every tuple of each other source relation, the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42083	42177	
==>atching every tuple of each source relation
with every tuple of each other source relation, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1523	1632	
==>el_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1523	1632	
==>el_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1523	1632	
==>el_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1067	1166	
==>name]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1067	1166	
==>name]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1067	1166	
==>name]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6766	6897	
==>step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6766	6897	
==>step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6766	6897	
==>step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -&Inf <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6090	6211	
==>sh( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: s <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6090	6211	
==>sh( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29709	29809	
==>as those of another,
or are the same as the unaffected invocant's attributes.  This method
supports h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34261	34361	
==>as those of another,
or are the same as the unaffected invocant's attributes.  This method
supports h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33425	33525	
==>as those of another,
or are the same as the unaffected invocant's attributes.  This method
supports h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2585	2723	
==>self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2585	2723	
==>self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2585	2723	
==>self->class->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11038	11175	
==>ta );
    my $idx = $o->{'nparen'} -1;
    sub{
      my $c = $_[0];
      my $m = MatchX->new();
      my $from = $X::pos;
      my $clos <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2645	2744	
==>thod vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2645	2744	
==>thod vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15483	15594	
==>elf->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->ra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16898	17009	
==>elf->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->ra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21654	21765	
==>elf->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->ra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9526	9795	
==>ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a w <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11003	11272	
==>ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a w <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18439	18570	
==>tr ~= Pugs::Internals::sprintf($conversion,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3463	3597	
==>tr);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3463	3597	
==>tr);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3463	3597	
==>tr);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1663	1784	
==>nction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1663	1784	
==>nction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1663	1784	
==>nction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not implemented" },
            'str' => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	974	1093	
==>_PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( { ret <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	652	754	
==>nstructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	652	754	
==>nstructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8109	8340	
==>fy - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8109	8340	
==>fy - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8109	8340	
==>fy - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2990	3103	
==>e\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2990	3103	
==>e\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2990	3103	
==>e\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [ <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	654	760	
==>=~ $func)
	}
}

if ($Conf{leaves}) {
    print "$_\n" for grep { not defined $nodes{$_} } keys %funcs;
}

i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1155	1257	
==>des/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignore <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1155	1257	
==>des/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignore <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4617	4751	
==>ure->do());      
        }
    }    
    return $list;
}

1;

__END__

=pod

=head1 NAME

list - the core list type

=head1 METHODS

= <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15200	15296	
==>e listed in their Document's Root Nodes property; in a
manner of speaking, the Document itself is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15200	15296	
==>e listed in their Document's Root Nodes property; in a
manner of speaking, the Document itself is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16665	16773	
==>range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This mod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16665	16773	
==>range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This mod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16665	16773	
==>range( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1470	1592	
==>riate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1470	1592	
==>riate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1470	1592	
==>riate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13554	13656	
==>(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13554	13656	
==>(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13554	13656	
==>(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10884	10988	
==>e 7.8.5
      <null>
    | <RegularExpressionFlags> <IdentifierPart>
}

# A.2 Number Conversions

rule St <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	849	942	
==>til::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	849	942	
==>til::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4973	5089	
==>ecompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4973	5089	
==>ecompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4973	5089	
==>ecompiled files into one standalone JavaScript
                    file ("js") or into a HTML file ("html").

  --yam <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	433	547	
==>die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	168	282	
==>die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29407	29520	
==>{next} >>).

The handle '|' is post-consumptive.  It happens to be executed when
'atom' matches a '|'.  This means <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9218	9320	
==>S::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9218	9320	
==>S::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9218	9320	
==>S::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    my $na <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1122	1233	
==>output_dir    Output Directory to put the html files (Default: ./t_index)
    --test_dirs     Directories contai <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7999	8099	
==>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7999	8099	
==>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody qu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15498	15610	
==>_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visua <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16913	17025	
==>_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visua <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21669	21781	
==>_->qr, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22366	22479	
==>xa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22366	22479	
==>xa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22366	22479	
==>xa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13079	13258	
==>es = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13079	13258	
==>es = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13079	13258	
==>es = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13703	13802	
==>el::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13703	13802	
==>el::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a per <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27148	27241	
==>. (α × β) → β", ":t snd");
is(t($id_pair), "(int × str)", ":t id(pair(id(10))(id('foo') <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5591	5686	
==>s the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5591	5686	
==>s the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7788	7883	
==>s the Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3396	3503	
==>pugs_version osname runcore>),
      $_[0]->{pugs_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	470	567	
==>f C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	470	567	
==>f C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6283	6381	
==>trypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6283	6381	
==>trypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6283	6381	
==>trypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  }

  sub as_j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11504	11669	
==>eturn $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11504	11669	
==>eturn $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11504	11669	
==>eturn $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	70	159	
==>Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	70	159	
==>Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	70	159	
==>Root::pi () is primitive { 3.14159265358979323846264338327950288419716939937510 }

sub JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7281	7458	
==>d $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7281	7458	
==>d $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7281	7458	
==>d $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22605	22729	
==>r('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19026	19150	
==>r('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1995	2116	
==>ng on stubs or prims some how?

    return $reduced;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2844	2954	
==>rn Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2844	2954	
==>rn Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3038	3136	
==>x for p1');
is($p1->get_y, 16, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... g <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5821	5931	
==>ay is rw ; *@values --> Int ) {
    Array::splice(@array, 0, 0, @values);
    @array.elems;
}

# name from docs <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1955	2050	
==>nfix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (S <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1955	2050	
==>nfix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1189	1325	
==>.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???', <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1189	1325	
==>.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???', <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	347	515	
==>w(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            sta <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	347	515	
==>w(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            sta <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	53	147	
==>e Perl6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Core::Ref;

use Perl6::MM::Attribute;

pa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9227	9325	
==>al value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `si <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9227	9325	
==>al value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `si <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18110	18208	
==>ssion> <'||'> <LogicalANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      <Lo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10354	10493	
==>match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10348	10487	
==>match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $po <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6442	6558	
==>] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $arr <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6442	6558	
==>] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $arr <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6367	6482	
==>exit 0;
        }
    }
    $self->gather_results();
}

# the wait here is sequential rather than nonblocking / as-t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5869	5978	
==>Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5869	5978	
==>Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5869	5978	
==>Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5202	5310	
==>ant to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5202	5310	
==>ant to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5202	5310	
==>ant to use JSSM
  # aren't forced to install it.
  require JavaScript::SpiderMonkey;
  my $jssm = JavaScript: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4424	4529	
==>me = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4424	4529	
==>me = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4424	4529	
==>me = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ jo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8131	8244	
==>ub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, $how);
  });

  # dig <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	558	650	
==>$name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	558	650	
==>$name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4572	4687	
==>ng scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be :: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4572	4687	
==>ng scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be :: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4572	4687	
==>ng scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2827	2928	
==>2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2827	2928	
==>2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2827	2928	
==>2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thing.pairs( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1818	1976	
==>aque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2023	2181	
==>aque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2086	2244	
==>aque_instance(
        # < a Class object is an instance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:supe <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4287	4409	
==>y $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.st <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4287	4409	
==>y $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2371	2484	
==>begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ cha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2283	2391	
==>begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11200	11373	
==>isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11200	11373	
==>isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11200	11373	
==>isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everything else is not <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	733	835	
==>un the program
    
    my $result = Blondie::Backend::Perl->new->run($prog);

    use Blondie::Emitter <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19442	19538	
==>ave to update said separate resource files, and not change
your main program.

I<Note that an upd <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19442	19538	
==>ave to update said separate resource files, and not change
your main program.

I<Note that an upd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1697	1802	
==>it;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1697	1802	
==>it;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1697	1802	
==>it;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3579	3709	
==>ists &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($method);
            $seen{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	520	638	
==>error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Ins <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3376	3479	
==>$x & $$x) eq 0);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|RE <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6568	6664	
==>esenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6568	6664	
==>esenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8765	8861	
==>esenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2923	3036	
==>tiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2923	3036	
==>tiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2923	3036	
==>tiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $par <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15359	15461	
==>rns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15417	15519	
==>rns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23204	23303	
==>ags

An array reference of flag values.  When a scope is entered, the top
value is copied and pushed <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	536	634	
==>escr}, RESET;

  if($args{ensure}->()) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7437	7559	
==>ize) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::B <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7437	7559	
==>ize) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::B <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22123	22214	
==><This documentation is pending.>

=head1 DESCRIPTION

Relation::Example provides a minimal i <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5556	5667	
==>end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5556	5667	
==>end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12159	12260	
==>{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8120	8321	
==>xed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8120	8321	
==>xed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8120	8321	
==>xed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	542	649	
==>JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	542	649	
==>JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	542	649	
==>JS}->eval($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5814	5918	
==>, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5814	5918	
==>, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5814	5918	
==>, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Array @b is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2044	2195	
==>{
    attributes => [
        '$.passed',
        '$.number',
        '$.diagnostic',
        '$.description',
    ],
    submethods => { 
        'BUIL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1056	1149	
==>nctional and object-oriented interfaces both follow the same basic steps, 
albeit with differe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1056	1149	
==>nctional and object-oriented interfaces both follow the same basic steps, 
albeit with differe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5750	5845	
==>run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<rep <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5750	5845	
==>run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<rep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7274	7369	
==>run.

=item B<get_test_number()>

Returns the number of the I<next> test to record.

=item B<rep <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10259	10388	
==>n_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    ret <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10259	10388	
==>n_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    ret <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	630	742	
==>duce($replacement);
		}
	}

    return $self->SUPER::reduce($node);
}

sub new {
    my $class = shift;
    bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39244	39405	
==>}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39244	39405	
==>}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39244	39405	
==>}}, @_;
    return $array;
}

sub push {
    my $array = shift;
    push @{$array->{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12386	12489	
==>nals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12386	12489	
==>nals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12386	12489	
==>nals::Hacks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15691	15866	
==>(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15691	15866	
==>(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15691	15866	
==>(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5369	5461	
==>ad1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.

= <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5369	5461	
==>ad1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9028	9182	
==>m 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9028	9182	
==>m 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9028	9182	
==>m 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2930	3043	
==>};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2930	3043	
==>};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2930	3043	
==>};
    $param{cstringify}     = \&_default_stringify 
        unless defined $param{cstringify}; 

    $param{is_l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	286	431	
==>irs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	280	425	
==>irs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1295	1430	
==>ol == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_;
    print S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	340	431	
==>equire PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

requ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	340	431	
==>equire PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

requ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	340	431	
==>equire PIL::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1002	1154	
==>.= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1002	1154	
==>.= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1002	1154	
==>.= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref($n)) {
            u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1908	2072	
==>y?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5385	5549	
==>y?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4315	4479	
==>y?"
                ~ " does not match the header of this relation."
            if !(all( $tuple.keys ) === $heading);
    }

    $!heading    = $heading;
    $!bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11879	11982	
==>_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11879	11982	
==>_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11879	11982	
==>_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7008	7128	
==>::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7008	7128	
==>::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7008	7128	
==>::TCxt;
  
  sub cxt  { $_[0] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf " <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	395	503	
==>ass.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	395	503	
==>ass.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4150	4257	
==>ERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !defined $x;
    return ($cls eq 'str') if !((~$x <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9271	9383	
==>rs
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9271	9383	
==>rs
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2654	2761	
==>>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14453	14643	
==>Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14453	14643	
==>Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14453	14643	
==>Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11173	11393	
==>l->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11173	11393	
==>l->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11173	11393	
==>l->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9732	9851	
==>ther!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13209	13328	
==>ther!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12481	12600	
==>ther!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to do different.
    i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7062	7165	
==>pan0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a differe <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7062	7165	
==>pan0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a differe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13971	14072	
==>$S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $self->add_handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1315	1435	
==>t sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1315	1435	
==>t sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1315	1435	
==>t sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push 

# TODO - Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	471	593	
==>pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	471	593	
==>pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	471	593	
==>pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16727	16840	
==>->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1178	1287	
==>[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1178	1287	
==>[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4874	4995	
==>essly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4874	4995	
==>essly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4874	4995	
==>essly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	270	377	
==>S.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	270	377	
==>S.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	270	377	
==>S.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26955	27111	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27234	27390	
==>nal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	439	572	
==>d install it -- mark we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged found matching '$package'\ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	409	506	
==>use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE T <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	409	506	
==>use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9947	10083	
==>lass;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9947	10083	
==>lass;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9947	10083	
==>lass;
        return _normal_dispatch(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_disp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6493	6597	
==>type->isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = inden <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33738	33835	
==>a
language like English or French.  The order of these items corresponds to
an individual user's ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33738	33835	
==>a
language like English or French.  The order of these items corresponds to
an individual user's ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3648	3752	
==>ic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3648	3752	
==>ic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3700	3802	
==>call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17962	18066	
==>er_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test header seen more than once!\n" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1561	1663	
==>no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1561	1663	
==>no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1561	1663	
==>no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1691	1789	
==>rst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1691	1789	
==>rst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1691	1789	
==>rst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	310	428	
==>y_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	310	428	
==>y_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	310	428	
==>y_param;

    for(@$self) {
      $_->is_first_slurpy++ if $_->is_slurpy and !$seen_a_slurpy_param++;
#      if($_->is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1505	1620	
==>ray or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add call <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1505	1620	
==>ray or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add call <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1505	1620	
==>ray or Hash

# TODO - XXX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add call <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22180	22283	
==>p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22180	22283	
==>p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22180	22283	
==>p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1444	1539	
==>il  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1444	1539	
==>il  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1444	1539	
==>il  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $inpu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15252	15346	
==>(?!\w)/>. (So
that's the object's qr() method for you right there!)

=item Regexp::MinLength

I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14334	14475	
==>Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14334	14475	
==>Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14334	14475	
==>Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use o <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	5098	5229	
==>ence
              conv_foreach conv_package conv_open conv_condition
          
              )){
    no strict;
if(main->can($c)){ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21172	21266	
==>keys internally.

It is strongly suggested (but not required) that each Perl package which
uses <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21172	21266	
==>keys internally.

It is strongly suggested (but not required) that each Perl package which
uses <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15624	15783	
==>div);
            $div->push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $sobj->deobjectify_text;

        tie my % <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3229	3344	
==>) {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3229	3344	
==>) {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PI <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7951	8075	
==>value
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13262	13356	
==>rep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy the <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13262	13356	
==>rep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy the <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3378	3495	
==>',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, cir <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3378	3495	
==>',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, cir <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7122	7230	
==>=> 1, allow => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->las <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9983	10154	
==>e} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4674	4771	
==>($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4674	4771	
==>($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4674	4771	
==>($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7473	7595	
==>type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7473	7595	
==>type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7473	7595	
==>type eq 'Macro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10507	10690	
==>y $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10507	10690	
==>y $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10507	10690	
==>y $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4234	4366	
==>eturn get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # imp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5083	5215	
==>eturn get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	77	180	
==>List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	77	180	
==>List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	77	180	
==>List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() - now implemented in p6 Prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9780	9950	
==>ow how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9780	9950	
==>ow how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9780	9950	
==>ow how to store @param into a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9362	9455	
==>tity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is exp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9362	9455	
==>tity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11119	11229	
==>l5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11119	11229	
==>l5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11119	11229	
==>l5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3507	3615	
==>[" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3507	3615	
==>[" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub comm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3507	3615	
==>[" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub comm <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3430	3565	
==>ons;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) {
            n <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9244	9343	
==>_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9244	9343	
==>_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1187	1287	
==>f._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1187	1287	
==>f._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30633	30730	
==>h has no predecessor 'c', so that means it is
pre-consumptive, which is why it must match the righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1819	1933	
==>) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1819	1933	
==>) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1819	1933	
==>) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2911	3055	
==>self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2911	3055	
==>self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2911	3055	
==>self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5788	5892	
==>ctually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5788	5892	
==>ctually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5788	5892	
==>ctually use an inclusion filter, not
an inclusion filter.)

=item B<prune>

    Class::Rebless->prune("__ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48767	48908	
==>l->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => me <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7205	7309	
==>l $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7263	7367	
==>l $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER:: <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1335	1430	
==>my main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
ev <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1335	1430	
==>my main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6346	6451	
==>e } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6346	6451	
==>e } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6346	6451	
==>e } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2548	2660	
==>:Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2548	2660	
==>:Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36038	36144	
==>ence as the contents of the look-ahead, and we're done.  Now
we just need to return the regex representatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29027	29124	
==>ons

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29027	29124	
==>ons

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29027	29124	
==>ons

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	935	1089	
==>sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	935	1089	
==>sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	935	1089	
==>sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8331	8463	
==>n split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8331	8463	
==>n split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19158	19302	
==>e.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	662	781	
==>. $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	70	181	
==>s a place to accumulate one.

Resources:
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/S05.pod
  htt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8475	8610	
==>3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 7.8.3
      <DecimalDigit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9621	9753	
==>ic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9621	9753	
==>ic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2309	2436	
==>apable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can ste <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2225	2343	
==>apable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can ste <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1913	2018	
==>ed $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_index->to_native]
    );
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1408	1495	
==>add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1408	1495	
==>add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1408	1495	
==>add_attribute('%:methods'    => ::make_attribute('%:methods'));
$::Role->add_attribute(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2163	2268	
==>XX - inconsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2303	2408	
==>XX - inconsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $f <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	642	737	
==>ian.p6 add oranges oranges");
    system("pugs naive_bayesian.p6 add grapes grapes");
}
system(" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13832	13951	
==>t;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13832	13951	
==>t;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1327	1420	
==>which includes attribute
lookup as well as method lookup, as attribute fetching is actually
ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34456	34567	
==>y $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34456	34567	
==>y $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34456	34567	
==>y $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset ); $offset = 0   unless defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20303	20419	
==>l, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20303	20419	
==>l, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20303	20419	
==>l, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method compos <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1380	1477	
==>value";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional prog <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1380	1477	
==>value";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional prog <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1954	2107	
==>'',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2159	2312	
==>'',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2222	2375	
==>'',
            '$:superclass'  => undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here . <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6835	6982	
==>r the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU les <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6892	7039	
==>r the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU les <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1841	1945	
==>parse if $self->{stack};
  return $self->{nparen};
}


sub captures {
  my ($self, $n) = @_;
  $self->par <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1116	1224	
==>w this is a non
    # issue since even higher order functions get prims instead of thunks when
    # possible <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13648	13744	
==>w this is a non issue since even higher order functions get prims instead of thunks when possible <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23221	23317	
==>s of all other necessary
operators (over said accessors), which can be employed when objects of
m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5837	5946	
==>refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1397	1492	
==>mp markers for container

allocation, as well as the compile-time-bound values for them.

It inc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1337	1430	
==>mp markers for container
allocation, as well as the compile-time-bound values for them.
It inc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7410	7560	
==>ocal $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for (1..$n) {
        print STDOUT "not ok $tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6135	6252	
==>\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6135	6252	
==>\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_sour <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6135	6252	
==>\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11395	11574	
==>] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11395	11574	
==>] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11395	11574	
==>] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11601	11725	
==>'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11601	11725	
==>'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11601	11725	
==>'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f)) { # XXX - see PApp in EvalX.
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13271	13387	
==>hr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # alpha POSIX class
  $self-> <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1645	1734	
==>s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pug <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3606	3695	
==>s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pug <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1645	1734	
==>s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10967	11076	
==>}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into somethin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10967	11076	
==>}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into somethin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8332	8440	
==>unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8332	8440	
==>unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8332	8440	
==>unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4759	4860	
==>ource .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4759	4860	
==>ource .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4759	4860	
==>ource .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_process <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6742	6841	
==>& !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6742	6841	
==>& !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6742	6841	
==>& !$self->isa('Role');
};
$::Role->add_method('resolve' => ::make_method($_resolve));

## ---------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3302	3449	
==>.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3302	3449	
==>.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3302	3449	
==>.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9163	9268	
==>. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9221	9326	
==>. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5942	6047	
==>_type);

		warn "types do not eq";

		if ($self->is_placeholder($de_facto_type)) {
			warn "filling " . $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7288	7417	
==>x,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7288	7417	
==>x,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3906	4017	
==>copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    w <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3906	4017	
==>copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7566	7667	
==>t for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7566	7667	
==>t for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7566	7667	
==>t for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primiti <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	805	921	
==>$s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's $" thes <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	344	445	
==>urn a value, arrange for
it to be the last evaluated expression.

All functions (but not macros) in th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3655	3746	
==>span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3655	3746	
==>span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.re <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12818	12912	
==>alue with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12876	12970	
==>alue with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depend <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2120	2320	
==>'for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2120	2320	
==>'for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1012	1120	
==>_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1012	1120	
==>_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1738	1851	
==>rgs;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1738	1851	
==>rgs;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1738	1851	
==>rgs;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8250	8403	
==>@x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8250	8403	
==>@x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8250	8403	
==>@x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->unboxed;
    }
    else {
        $a = p6 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13364	13494	
==>ge = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    char <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8754	8845	
==>lock>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8754	8845	
==>lock>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published b <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19506	19626	
==>ring
# thiss tests that the inferrence of higher order functions is correct
my $app_to_str = fun(
	param => "x",
	body => <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	328	435	
==>r $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp> <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	328	435	
==>r $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	102	220	
==>b import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	102	220	
==>b import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	102	220	
==>b import {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict ' <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29543	29643	
==>e.

Figure a way to report test names in the failure summary.

Rework the test summary so long test n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	123	221	
==>rray-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macro <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	123	221	
==>rray-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3998	4129	
==>ixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3998	4129	
==>ixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1273	1370	
==>of them "n" is confusing.
macro Clutter::num_size($n) {
  'subset num'~$n~'     of ValueType where <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9040	9147	
==>aths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9040	9147	
==>aths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	251	341	
==>map';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_Interp i,cha <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2929	3030	
==>tr $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2929	3030	
==>tr $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25222	25320	
==>gexec() needs it and pregcomp() is computing
 * it anyway.
 * [regmust is now supplied always.  The <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10362	10475	
==>sitional submatches
    named - named submatches
    capture - return'ed things
    
    state - a "continuati <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3490	3590	
==>d expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (b <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3490	3590	
==>d expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5637	5746	
==>aScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5637	5746	
==>aScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5637	5746	
==>aScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5216	5328	
==>um = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5216	5328	
==>um = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5216	5328	
==>um = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17888	17983	
==>g
used by the originating server program handling the request.

=item $h.from

This header shoul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17888	17983	
==>g
used by the originating server program handling the request.

=item $h.from

This header shoul <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6899	7009	
==>org/ghc/.
.
    }

    my $ghc_flags = "-H0 ";
    $ghc_flags .= " -i. -isrc -isrc/pcre -I. -Isrc -Isrc/pcre -s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6057	6163	
==>capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to po <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5864	5966	
==>capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to po <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28660	28765	
==>l if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33212	33317	
==>l if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32340	32445	
==>l if any C<$mapping> keys duplicate attribute names that aren't being
wrapped, or any C<$mapping> value se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	677	800	
==>t if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	677	800	
==>t if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	677	800	
==>t if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => sh <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28070	28168	
==>ribe,"\n";
print $r->('xxx')->describe,"\n";
print $rx->('abc')->('abc')->describe,"\n";
print $rx- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1527	1644	
==>rnal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailabl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1527	1644	
==>rnal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailabl <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5048	5313	
==>'$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                Val->new(1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	838	942	
==>tatement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$pro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1044	1148	
==>tatement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	237	332	
==>vaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	237	332	
==>vaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	237	332	
==>vaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print " <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4734	4859	
==>pugs_revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2199	2315	
==>ey is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2199	2315	
==>ey is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2625	2750	
==>f->family;
  }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\W' : '\w';
  }
}


{
  # \s \S
  package Regexp::Par <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1812	1928	
==>>set(1,$str,\@args,{},$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_opera <==
3	/Users/nnunley/pugs/util/combine_tests.pl	426	527	
==>events to each event for which
# there are variations among the tests.
# A revision is added to each m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13901	14000	
==>(Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13959	14058	
==>(Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15871	15984	
==>> $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10727	10840	
==>> $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2073	2179	
==>IL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2073	2179	
==>IL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fals <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2073	2179	
==>IL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fals <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	249	358	
==>mper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	249	358	
==>mper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1952	2048	
==>turns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1952	2048	
==>turns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1952	2048	
==>turns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TODO - <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2051	2183	
==>bj->root->subdir($config->repo_index)
        ));
        $obj->index_file((defined $index_file
                    ? file($index_fil <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1285	1391	
==>s export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1285	1391	
==>s export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1516	1649	
==>g));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1516	1649	
==>g));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1516	1649	
==>g));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6271	6388	
==>,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6271	6388	
==>,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6271	6388	
==>,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15792	15934	
==>rray->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15792	15934	
==>rray->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15792	15934	
==>rray->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{$s <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	102	217	
==>RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*P <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	102	217	
==>RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*P <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29	123	
==>use warnings;

use Perl6::Runtime;

use Perl6::Core::Nil;
use Perl6::Core::Str;
use Perl6::Core <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17531	17697	
==>r $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21008	21174	
==>r $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20595	20761	
==>r $!body.values -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6621	6718	
==>ata, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, an <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6621	6718	
==>ata, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1681	1775	
==>M, 'POSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	128	273	
==>_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	128	273	
==>_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3837	3976	
==>\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "ca <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	740	871	
==>failed';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg);
    }

}

=head1 AUTHOR

Mic <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1992	2097	
==>$opts->{SETUP}});

    my $pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $pp <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16585	16689	
==>aw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3970	4111	
==>ive paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3970	4111	
==>ive paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $pa <==
3	/Users/nnunley/pugs/util/package-osx.pl	10029	10144	
==>nt "Copied $from to $dest$from\n";
        }
    }
}


# @files are all files that will be removed. The last one pas <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3581	3692	
==>core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3581	3692	
==>core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	685	790	
==>tr->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	685	790	
==>tr->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	685	790	
==>tr->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8132	8287	
==>s => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8132	8287	
==>s => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8132	8287	
==>s => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5868	6073	
==>nge(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5868	6073	
==>nge(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5868	6073	
==>nge(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start => <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6482	6580	
==>lse, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is inte <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6482	6580	
==>lse, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is inte <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	875	998	
==>($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3360	3471	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3553	3664	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	58	156	
==>se strict;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/B <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20868	20965	
==>ve all others for production use.

Most of the other (near term) third party Engines will likely j <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20868	20965	
==>ve all others for production use.

Most of the other (near term) third party Engines will likely j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9870	10005	
==>cher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9870	10005	
==>cher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9870	10005	
==>cher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Class;
        return _normal_dispatch(@_);
    }

    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1509	1648	
==>$method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1714	1853	
==>$method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1775	1914	
==>$method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	174	284	
==>]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 3 <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	174	284	
==>]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 3 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19190	19294	
==>urther testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_reason}\n" : ".\n");
};


s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11995	12106	
==>p{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11995	12106	
==>p{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11995	12106	
==>p{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1870	1973	
==>ndef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1870	1973	
==>ndef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1870	1973	
==>ndef; can be set to 'Hash' or 'Array')
#    id

$Perl6::Cell::_id = rand;
sub Perl6::Cell::new { bless { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5964	6186	
==>n $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5964	6186	
==>n $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5964	6186	
==>n $ary;
            },
            'str' => sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9822	10021	
==>ch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9822	10021	
==>ch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9822	10021	
==>ch( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	865	969	
==>by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of ev <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	865	969	
==>by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of ev <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	698	799	
==>riptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	698	799	
==>riptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1254	1355	
==>riptions).

=item B<$.error_output>

The filehandle to which to write all diagnostic output.

=back

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2155	2253	
==>read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2155	2253	
==>read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2155	2253	
==>read only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2429	2559	
==>_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2429	2559	
==>_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	743	858	
==>'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3687	3818	
==>Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3687	3818	
==>Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3687	3818	
==>Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6582	6702	
==>SS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6582	6702	
==>SS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6582	6702	
==>SS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $method_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5010	5140	
==>m2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2552	2682	
==>m2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3333	3463	
==>m2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 )\n";
}
sub node::_push {
    my $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	299	543	
==>{
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	299	543	
==>{
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	299	543	
==>{
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19768	19866	
==>@whatever) {
    die "Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL2JS::Inter <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2631	2724	
==>(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc() <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2631	2724	
==>(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3108	3228	
==>ash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3108	3228	
==>ash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3108	3228	
==>ash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1021	1122	
==>.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1021	1122	
==>.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1021	1122	
==>.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24252	24381	
==>d $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24252	24381	
==>d $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24252	24381	
==>d $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9275	9435	
==>ding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9108	9205	
==>ject always

then there's absolutely no overhead

I'm not sure about this - failed matche's .end i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8809	8904	
==>ject always
then there's absolutely no overhead
I'm not sure about this - failed matche's .end i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5724	5853	
==>gs);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5724	5853	
==>gs);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5724	5853	
==>gs);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return jo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3486	3616	
==>ef = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3486	3616	
==>ef = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7932	8153	
==>kg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    }
=cut
    
    ### unin <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3515	3647	
==>$cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3515	3647	
==>$cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	729	828	
==>'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	729	828	
==>'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	729	828	
==>'Block' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10400	10496	
==>e_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into be <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10458	10554	
==>e_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into be <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33418	33515	
==>the order they are to be encountered
with unshift().  The two code references are used to go deepe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3328	3442	
==>->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3328	3442	
==>->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3328	3442	
==>->{isFirstSlurpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->nam <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24512	24608	
==>it under
the terms of the GNU General Public License (GPL) as published by the Free
Software Foun <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24512	24608	
==>it under
the terms of the GNU General Public License (GPL) as published by the Free
Software Foun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7187	7284	
==>('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7187	7284	
==>('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7187	7284	
==>('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5389	5574	
==>ult,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5389	5574	
==>ult,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5389	5574	
==>ult,    
            required => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18565	18671	
==>given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that the use <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18565	18671	
==>given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that the use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3997	4149	
==>ETHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3997	4149	
==>ETHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3997	4149	
==>ETHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5548	5720	
==>bug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5548	5720	
==>bug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40300	40402	
==>ss.

  package Your::SubClass;
  # use constant NAME => VALUE, FMTSTRING
  use constant err_FOOBAR => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7261	7406	
==>ge::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexic <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7261	7406	
==>ge::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43273	43382	
==>ibrary.

Relation is Copyright (c) 2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Relation> for d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3784	3904	
==>, $body) = @_;

	# all thunks with protos were already defined as functions
	
	my $type = $self->resolve_type($node); # u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39712	39805	
==>nformation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it unde <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39712	39805	
==>nformation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5384	5485	
==>MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5384	5485	
==>MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5384	5485	
==>MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6176	6290	
==>parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6176	6290	
==>parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circum <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	800	920	
==>sage) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.spli <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	800	920	
==>sage) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3683	3890	
==>rivate_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3683	3890	
==>rivate_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3683	3890	
==>rivate_method(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	417	523	
==>09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	417	523	
==>09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	417	523	
==>09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3074	3175	
==>) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3074	3175	
==>) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3074	3175	
==>) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, e <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3881	3996	
==>\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])% <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3881	3996	
==>\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])% <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	246	361	
==>d1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my $p <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3083	3210	
==>scription);
        }
        
        method get_subscriptions (Class::Publisher::Event::Named $event) {
            # an optim <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18989	19092	
==>,$length,undef,$replace) }


# unpack

# vec # XXX - obsolete?


package Control::Basic {}

 multi Contr <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10425	10518	
==>dent2">$ make smoke
$ ./util/smokeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    shoul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6712	6852	
==>tr::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6712	6852	
==>tr::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6712	6852	
==>tr::to_bit( _('$.unboxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	36	158	
==>n verbreitet (aber fehleranfällig!):
my $option = $para{'x'} || "wert";

#!\pause
# Etwas besser, aber jedoch unübersicht <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	747	842	
==>ort(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::Tru <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	747	842	
==>ort(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::Tru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9257	9412	
==>a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9257	9412	
==>a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9257	9412	
==>a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2309	2441	
==>nternals::eval_yaml($code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and re <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	414	510	
==>pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	414	510	
==>pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9847	9981	
==>'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9847	9981	
==>'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9847	9981	
==>'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1235	1373	
==>%$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1440	1578	
==>%$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for m <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5187	5304	
==>y $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsif $tree[0] eq '"PB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	160	265	
==>ule::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep trac <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	160	265	
==>ule::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep trac <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1034	1137	
==>tive . $right->to_str->to_native);
}

1;

__END__

=pod

=head1 NAME

str - the core str type

=head1 ME <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	367	809	
==>37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	367	809	
==>37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8983	9073	
==>s,"default=>sub{$default}") if defined $default;

	my $slurpy = ref($op{'paramContext'}) =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1403	1505	
==>.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1403	1505	
==>.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1403	1505	
==>.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6062	6187	
==>'Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die "unimplemented";
    }
    if($cls eq ' <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1038	1139	
==>}
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1038	1139	
==>}
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1501	1613	
==>ould
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9153	9246	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interfa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9153	9246	
==>ending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interfa <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4864	5158	
==>f'),
                            App->new(
                                Sym->new('&f'),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6329	6459	
==>$p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'C <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	102	208	
==>ub symbols {
    stub('&ternary:<?? !!>', '$cond', '$true', '$false'), # non short circuiting

    '&contro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4411	4504	
==>nt(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4411	4504	
==>nt(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4411	4504	
==>nt(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$subname}) { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2737	2849	
==>s fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2795	2907	
==>s fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20282	20373	
==>trary n?  how arbitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $string --> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3152	3267	
==>ure aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3336	3451	
==>ure aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3922	4022	
==>gth = 1 if not defined $length;
  return (substr $target, $pos, $length) =~ $regularExpression;
}


s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3391	3501	
==>ithin the
Test::Builder framework. The class itself is actually a factory for
classes which C<does> the Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3391	3501	
==>ithin the
Test::Builder framework. The class itself is actually a factory for
classes which C<does> the Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5588	5698	
==>ithin the
Test::Builder framework. The class itself is actually a factory for
classes which C<does> the Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7737	7896	
==>$a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7737	7896	
==>$a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7737	7896	
==>$a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    return $a->slic <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7931	8026	
==>element ('item')>

This event is fired when an '=item' directive is reached, the next event fire <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7931	8026	
==>element ('item')>

This event is fired when an '=item' directive is reached, the next event fire <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10166	10353	
==>::Pass.new(
              description => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	720	895	
==>::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	720	895	
==>::Pass.new(
            description => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	54	167	
==>MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the De <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	54	167	
==>MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the De <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	54	167	
==>MetaModel::Pneuma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the De <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	300	403	
==>OUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	300	403	
==>OUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	300	403	
==>OUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7721	7861	
==>lved)');

# resolve the class and pull in all the roles
$FooBar->resolve();

is_deeply(
    [ sort $FooBar->get_method_list ],
    [ 'bar', ' <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	344	434	
==>See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provide <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	344	434	
==>See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provide <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5815	5920	
==>dWord>> <IdentifierName>
}
rule IdentifierName {  # see 7.6
      <IdentifierStart>
    | <IdentifierName> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32647	32740	
==>ser-readable
message strings, using data from external Template modules as a template.
The Tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32647	32740	
==>ser-readable
message strings, using data from external Template modules as a template.
The Tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4889	4995	
==>lass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4889	4995	
==>lass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4889	4995	
==>lass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4544	4650	
==>gil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4544	4650	
==>gil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4544	4650	
==>gil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting crufty

# Hey, there is n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2380	2490	
==>qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2380	2490	
==>qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2380	2490	
==>qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3066	3193	
==>rn 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3066	3193	
==>rn 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	900	990	
==>ing.)
</p>
<p>
To update this listing, run <tt>perl gen.pl</tt> in <tt>pugs/docs/feather/~< <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1956	2070	
==>= '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1956	2070	
==>= '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2036	2150	
==>= '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @e <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8252	8379	
==>urn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8252	8379	
==>urn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42878	42968	
==>uires these Perl 6 classes that are in the current distribution:
L<Relation-(0.1.0)|Relatio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2792	2900	
==>delete $args->{SIGN};
    }

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args->{PRER <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	583	754	
==>'&infix:<*>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13740	13841	
==>ELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17217	17318	
==>ELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	38	148	
==>nd ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	38	148	
==>nd ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	38	148	
==>nd ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSIT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7981	8144	
==>:SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7981	8144	
==>:SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7981	8144	
==>:SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16881	17021	
==>ed a pass 
                    (or skipped), false if its a failure

  exit              the exit code of the test run, if from a file
  wait <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26862	26990	
==>flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4934	5048	
==>"can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4934	5048	
==>"can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4934	5048	
==>"can't instantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1136	1241	
==>ETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1136	1241	
==>ETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1136	1241	
==>ETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we\'re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	614	724	
==>27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	614	724	
==>27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	614	724	
==>27
# * new methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7251	7371	
==>L::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7251	7371	
==>L::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7251	7371	
==>L::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = val == undefi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2259	2360	
==>],
				struct_equiv => Blondie::Val->new(
					Blondie::TypeSafe::Annotation->new(
						type => [$fro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22633	22730	
==>plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27185	27282	
==>plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5874	6017	
==>ol => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5874	6017	
==>ol => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26325	26421	
==>-sh based shells will need to
C<export COLUMNS> for this module to use that variable.

=item C<HA <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	246	344	
==>e type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are che <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	246	344	
==>e type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are che <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7377	7488	
==>ef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7377	7488	
==>ef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7377	7488	
==>ef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3625	3739	
==>_method_list' => sub ($) {
            my ($self) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:meth <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10712	10816	
==>e::free->new;
		
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::op <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3627	3717	
==>hook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = call_sv(perl_callb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4061	4195	
==>$param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4061	4195	
==>$param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4061	4195	
==>$param{slurpy} );
        $default = sub {} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = de <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13360	13490	
==>e();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13360	13490	
==>e();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	654	760	
==>k: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	654	760	
==>k: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	654	760	
==>k: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values() <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1616	1727	
==>->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5226	5329	
==>L = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5045	5144	
==>L = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	487	579	
==>tespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	487	579	
==>tespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4827	4965	
==>loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previou <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4827	4965	
==>loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2454	2544	
==>ter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=item * L<Pugs::Emitter::Rule::Per <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2355	2457	
==>ived_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2355	2457	
==>ived_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2435	2537	
==>ived_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5404	5519	
==>= $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5404	5519	
==>= $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1700	1785	
==>->['.($1-1).']->to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from,map{\$_->from}\@\$m). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2551	2669	
==>e {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2551	2669	
==>e {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2551	2669	
==>e {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1108	1233	
==>stance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1108	1233	
==>stance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1108	1233	
==>stance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3010	3107	
==>~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3010	3107	
==>~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3010	3107	
==>~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'access' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	772	881	
==>ll e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	772	881	
==>ll e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g glob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	772	881	
==>ll e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g glob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6501	6587	
==>n'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6501	6587	
==>n'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6501	6587	
==>n'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$::M <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9641	9817	
==>latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# infor <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9641	9817	
==>latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# infor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31040	31134	
==>ndler(@handle_names)

This uninstalls the given handles.  You send the names (like '|' or
'atom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6052	6180	
==>O();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6052	6180	
==>O();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6052	6180	
==>O();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17132	17270	
==>leop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17411	17549	
==>leop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41089	41181	
==>a fatal error.

=back

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Objects>.

=head <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1792	1939	
==>ember of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5269	5416	
==>ember of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4199	4346	
==>ember of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4049	4155	
==>ugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4049	4155	
==>ugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4049	4155	
==>ugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11455	11593	
==>path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11455	11593	
==>path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21981	22077	
==>ength $failedtests->{$script}->{name};
        $max_namelen = $namelen if $namelen > $max_namelen <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6236	6338	
==>g "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<fr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6236	6338	
==>g "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	452	563	
==>].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	452	563	
==>].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[id <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	452	563	
==>].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[id <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3287	3380	
==>WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3287	3380	
==>WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3287	3380	
==>WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::Class.meta. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8234	8325	
==>ub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2059	2150	
==>ub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	326	433	
==>rorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	326	433	
==>rorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	326	433	
==>rorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "di <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	794	910	
==>fined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	794	910	
==>fined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	794	910	
==>fined. This will later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36124	36247	
==>-> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36124	36247	
==>-> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36124	36247	
==>-> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8323	8456	
==>_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8323	8456	
==>_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8323	8456	
==>_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11714	11809	
==>= $header.header('Accept');  # get values as a single string

=item $h.push_header( $field, $val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11714	11809	
==>= $header.header('Accept');  # get values as a single string

=item $h.push_header( $field, $val <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1052	1192	
==>ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1052	1192	
==>ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1174	1298	
==>=> 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '~ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2994	3093	
==>design')) :
          (catdir('..', 'Perl6-Bible', 'lib', 'Perl6', 'Bible'),catdir('..', 'perl6_doc' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7744	7842	
==>turns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher obj <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7744	7842	
==>turns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher obj <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	620	745	
==>ub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert failed <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	898	995	
==>next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, univer <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	898	995	
==>next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, univer <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5435	5544	
==>emental(group(R))            --> "(?:",  !, p5_start(R), ")".
p5_elemental(standalone(R))       --> "(?>",  !, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9954	10048	
==>r operations.

This class also provides methods for iterating through the set, and for querying <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9954	10048	
==>r operations.

This class also provides methods for iterating through the set, and for querying <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13112	13226	
==>kage Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13112	13226	
==>kage Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13112	13226	
==>kage Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = ::dispatch( ::meta( $object ), 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5324	5421	
==>old_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # C <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5324	5421	
==>old_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10409	10506	
==>d
on demand at some time after the input has been set, and could potentially
never be performed at <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10409	10506	
==>d
on demand at some time after the input has been set, and could potentially
never be performed at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2267	2361	
==>constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2267	2361	
==>constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2267	2361	
==>constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1978	2169	
==>) eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1978	2169	
==>) eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1978	2169	
==>) eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11958	12045	
==>::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11958	12045	
==>::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11958	12045	
==>::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@x <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	155	274	
==>GS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source->ne <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2652	2759	
==>y-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ) <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2652	2759	
==>y-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5714	5824	
==>e'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5714	5824	
==>e'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1768	1889	
==>isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1768	1889	
==>isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1768	1889	
==>isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9680	9806	
==>.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9680	9806	
==>.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8552	8655	
==>r(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8552	8655	
==>r(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8552	8655	
==>r(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefined <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4562	4677	
==>= 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stder <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	215	305	
==>head1 ACCESSORS

=head1 METHODS

=head2 $alt = JIB::Alternative->new_from_struct( struct => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18770	18872	
==>t.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18770	18872	
==>t.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17446	17546	
==>twiseORExpression :words {  # see 11.10
      <BitwiseXORExpression>
    | <BitwiseORExpression> <'|' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3937	4034	
==>$self->invocant->bind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12364	12460	
==>presents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
Thi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12364	12460	
==>presents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10274	10371	
==>a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10274	10371	
==>a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10274	10371	
==>a) { PIL::Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4727	4834	
==>fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4727	4834	
==>fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4727	4834	
==>fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34754	34862	
==>, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34754	34862	
==>, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34754	34862	
==>, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: $offse <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15908	16004	
==>ion about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tan <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15966	16062	
==>ion about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2013	2144	
==>> 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2448	2579	
==>> 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

su <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14939	15050	
==>lf->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

package Compiler;
use base qw <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	510	636	
==>rray_fetch' => sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self->get_value('@:slo <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1459	1569	
==>directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $f <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1459	1569	
==>directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14681	14777	
==>lues are not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14681	14777	
==>lues are not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1903	2014	
==>eys->length }

sub exists {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1162	1250	
==>::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1382	1470	
==>::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9141	9254	
==>raw, map join("", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7483	7575	
==>rl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1711	1803	
==>rl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5190	5325	
==>ted>
            { return { double_quoted => $/{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Comp <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	136	235	
==>re returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	136	235	
==>re returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1030	1146	
==>rn the id
sub to_str { str->new((shift) . '') } # get a str like ref
sub to_bit { bit->new(1)            } # we are a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	714	810	
==><body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple runni <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	714	810	
==><body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple runni <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19496	19584	
==>ameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19496	19584	
==>ameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16654	16761	
==>X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	376	471	
==>_junction;

# for running the test suite multiple times in the same process
$Test::testing_start <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	434	529	
==>_junction;

# for running the test suite multiple times in the same process
$Test::testing_start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19479	19578	
==>no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> a <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19479	19578	
==>no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1062	1156	
==>ut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1645	1761	
==>ict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1645	1761	
==>ict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1645	1761	
==>ict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' & <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1080	1203	
==>fined $0 ) {
        $duration = duration($/[1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9.. <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	472	596	
==>returns Str is builtin is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $str <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2019	2128	
==>ress = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  ret <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1005	1114	
==>ress = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5187	5293	
==>ion.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8664	8770	
==>ion.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5704	5801	
==>category object.

options:

=item * name => $category_name - the name of this category 
(a namespa <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6579	6680	
==>OUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to s <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6579	6680	
==>OUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4308	4406	
==>".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4308	4406	
==>".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4308	4406	
==>".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1574	1696	
==>";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1574	1696	
==>";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1574	1696	
==>";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6958	7146	
==>e;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.mul <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6958	7146	
==>e;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.mul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8681	8811	
==>@:results + 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15661	15799	
==>od_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15661	15799	
==>od_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15661	15799	
==>od_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3483	3629	
==>pc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3483	3629	
==>pc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3483	3629	
==>pc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (u <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	840	944	
==>versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register { <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	840	944	
==>versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4805	4907	
==>e_object(@_);
}


sub force_object {
  Carp::croak("class name passed where object required") unless re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5302	5410	
==>vaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print enco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5302	5410	
==>vaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print enco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5302	5410	
==>vaScript::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print enco <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	233	358	
==>version => '0',

        osname    => $Config{osname},
        pager     => $Config{pager},
        prefix    => $Config{prefi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5147	5244	
==>owing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5147	5244	
==>owing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1737	1831	
==>r = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1737	1831	
==>r = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1737	1831	
==>r = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2615	2732	
==>";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestPlan because of the <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	380	487	
==>";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	380	487	
==>";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestPlan because of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5403	5504	
==>@self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5403	5504	
==>@self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5403	5504	
==>@self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1304	1408	
==>tring {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1304	1408	
==>tring {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18207	18293	
==>B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1088	1188	
==>y $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1088	1188	
==>y $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1088	1188	
==>y $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5212	5341	
==>im(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5270	5399	
==>im(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	842	951	
==>vent $event) {
        (.get_subscriptions($event) ==> .mk_notifications)».dispatch;
    }
    
    method no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8512	8625	
==>return "$_[1] capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub n <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1512	1607	
==><Please> contact the author
if you'd like a feature added or something change or just have
comme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13492	13595	
==>s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13492	13595	
==>s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16856	16973	
==>('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16856	16973	
==>('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16856	16973	
==>('Perl6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3656	3751	
==>al_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3656	3751	
==>al_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3656	3751	
==>al_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10354	10451	
==>cified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have som <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10412	10509	
==>cified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have som <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4087	4184	
==>_;

	$self->define_named_block($node, $symbol, $body, $self->resolve_type($node));
}

sub define_n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6453	6549	
==>'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkTy <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6453	6549	
==>'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkTy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1349	1441	
==>in::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1349	1441	
==>in::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1349	1441	
==>in::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join(" ",map{"- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	156	276	
==>ub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	156	276	
==>ub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19244	19350	
==>g_code($code);    
    my @res = eval_wa($code,wantarray);
    eval_p5_log_error($code,$@) if $@;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	881	998	
==>e. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	881	998	
==>e. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	881	998	
==>e. See tests/buffer.html.
          //node.appendChild(document.createTextNode(msg));
          //return;
          fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	951	1059	
==>ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	951	1059	
==>ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	951	1059	
==>ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4429	4549	
==>t""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pad<"isI <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18444	18538	
==>se engineering perl source.

We basically use the perl regcompp and regexecp hooks (C functions <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2734	2828	
==>se engineering perl source.

We basically use the perl regcompp and regexecp hooks (C functions <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10328	10437	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10607	10716	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9892	10003	
==>{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  $self <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9281	9390	
==>s_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_su <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9281	9390	
==>s_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_su <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1279	1414	
==>lookahead x>.
#   * "[no LineTerminator here]" is expressed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-inter <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	593	692	
==>this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	593	692	
==>this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14264	14393	
==>hift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17741	17870	
==>hift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17157	17286	
==>hift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.si <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2109	2234	
==>_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	114	229	
==>_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	114	229	
==>_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39921	40025	
==>takes
another Relation::Example as its C<$other> argument and combines it with the
invocant relation into <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21531	21627	
==>ery Relation tuple must be distinct from the other tuples.  All Relation
attributes may be indivi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26083	26179	
==>ery Relation tuple must be distinct from the other tuples.  All Relation
attributes may be indivi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1885	2003	
==>alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1885	2003	
==>alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1885	2003	
==>alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslur <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29673	29799	
==>TED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29673	29799	
==>TED>".],
    );

    module MyApp::L::Fre {
        sub get_text_by_key (Str $msg_key!) returns Str {
            return %TEXT_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	477	587	
==>TED>".],
);

module MyApp::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5331	5558	
==>w 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7093	7320	
==>w 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	132	231	
==>6::Core::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6812	6967	
==>$s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25840	25934	
==>=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more varia <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25840	25934	
==>=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more varia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29886	30027	
==>_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29886	30027	
==>_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29886	30027	
==>_
        }
    }
    return $sum;
}

sub items {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37195	37385	
==>, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37195	37385	
==>, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37195	37385	
==>, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        } <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12635	12740	
==>env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => type::variable::free->new()
	);
	\%ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1405	1494	
==>::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1405	1494	
==>::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1749	1875	
==>ze the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1749	1875	
==>ze the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1749	1875	
==>ze the method type ($method)";
        }
    };

    # and use it to add itself to the $::Class
    $_add_method->($::Class, 'a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	880	1008	
==>ETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	880	1008	
==>ETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	880	1008	
==>ETCH(), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	193	302	
==>e (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	193	302	
==>e (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	193	302	
==>e (demiurge)

$::Class->add_method('new' => ::make_method(sub {
    my ($class, %params) = @_;
    return $cla <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4340	4477	
==>start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4340	4477	
==>start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $st <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11242	11349	
==>and line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8581	8706	
==>sub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8581	8706	
==>sub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6374	6475	
==>->error(0, "\\x[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char => c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1578	1678	
==>,   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1578	1678	
==>,   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1578	1678	
==>,   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8819	8917	
==>val <<REQUIRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	438	530	
==>HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	438	530	
==>HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	621	721	
==>NT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less use <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	621	721	
==>NT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less use <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9468	9558	
==>waits working infix:<~~> .
    #'Rul.new(:f(sub($_s_){$_s_ ~~ '~"$hook$adverbs$qo$pat$qc})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2494	2603	
==>::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2494	2603	
==>::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2494	2603	
==>::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	558	668	
==>"<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	558	668	
==>"<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	558	668	
==>"<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	545	705	
==>\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	538	698	
==>\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \ <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	522	679	
==>$class->name =>
              { instance =>
                { methods => { map { $_->name => $_->code }
                               $class->methods->member <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5892	6052	
==>tch.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5892	6052	
==>tch.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5892	6052	
==>tch.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11351	11466	
==>type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLAG_i ? "exactf" : "exact";
  }

  sub data {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1080	1221	
==>g_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1080	1221	
==>g_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_te <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13456	13581	
==>thunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - ought to check if the runtime has a hash for this
    # in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1518	1672	
==>ry = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1518	1672	
==>ry = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1518	1672	
==>ry = Array->new;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3381	3497	
==>@res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3381	3497	
==>@res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3381	3497	
==>@res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8832	8938	
==>adding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { ma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19515	19603	
==>xy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authorizati <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19515	19603	
==>xy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authorizati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	393	501	
==>RD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	393	501	
==>RD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	393	501	
==>RD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7199	7320	
==>[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7199	7320	
==>[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7199	7320	
==>[0]->main),
      defined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3650	3753	
==>e Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$pas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3650	3753	
==>e Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$pas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5847	5950	
==>e Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C<$pas <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19604	19700	
==>xists
over N dimensions rather than one.  The Relation operators are somewhat of
a superset of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24156	24252	
==>xists
over N dimensions rather than one.  The Relation operators are somewhat of
a superset of th <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5792	5882	
==>[-1]) }
sub hlp_token {    def_token($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20113	20210	
==>stribution to allow the core to be completely testable on its own.  It is
coded intentionally in a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20113	20210	
==>stribution to allow the core to be completely testable on its own.  It is
coded intentionally in a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18607	18706	
==>1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18607	18706	
==>1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18607	18706	
==>1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5440	5542	
==>ugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5250	5350	
==>ugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4691	4787	
==>PER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4691	4787	
==>PER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4691	4787	
==>PER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2967	3079	
==><data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<dat <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2967	3079	
==><data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3537	3641	
==>>{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3537	3641	
==>>{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3537	3641	
==>>{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3224	3334	
==>lemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3224	3334	
==>lemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3224	3334	
==>lemented in PIL2JS";
}

# From src/perl6/Prelude.pm:7632
method trans (Str $self: Pair *@intable) {
    # Motto <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4023	4203	
==>.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4023	4203	
==>.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	723	829	
==>iltin is primitive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = tim <==
3	/Users/nnunley/pugs/t/packages/Test.pm	69	168	
==>{ $?PACKAGE }

sub test_export is export { "party island" }

sub get_our_pkg {
    Our::Package::pkg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3237	3327	
==>er.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3123	3210	
==>er.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6779	6902	
==>e::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6779	6902	
==>e::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1044	1149	
==>x:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1044	1149	
==>x:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1044	1149	
==>x:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub prefix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7211	7311	
==>method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7211	7311	
==>method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7211	7311	
==>method(sub {
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3610	3718	
==>,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3610	3718	
==>,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3610	3718	
==>,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6262	6398	
==>mes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek ba <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6262	6398	
==>mes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek ba <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15321	15424	
==>from, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14223	14312	
==>classes'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14223	14312	
==>classes'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14223	14312	
==>classes'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subclas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4332	4421	
==>aseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4332	4421	
==>aseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4332	4421	
==>aseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4904	5002	
==>..};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4904	5002	
==>..};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4904	5002	
==>..};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	230	344	
==>ent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	230	344	
==>ent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	230	344	
==>ent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}->() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1515	1608	
==>eneric_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1515	1608	
==>eneric_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1515	1608	
==>eneric_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::gen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4066	4169	
==>me; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4066	4169	
==>me; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4066	4169	
==>me; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1761	1875	
==>ollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1761	1875	
==>ollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1761	1875	
==>ollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.join("" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14132	14229	
==>xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14132	14229	
==>xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14132	14229	
==>xx) { require String::Multibyte; my $len = String::Multibyte->new('Grapheme')->length(p6_to_s($xx) <==
3	/Users/nnunley/pugs/util/claim_drift.pl	1054	1198	
==>erbose};
    do { 1 == unlink  $orig        or die "unlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           i <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	285	378	
==>e L<Pod::Writer> that an
upcoming closing node is to be represented in a certain non-normative <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	285	378	
==>e L<Pod::Writer> that an
upcoming closing node is to be represented in a certain non-normative <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32976	33077	
==>d.  Here is the walk() method for all the quantifier and
'minmod' nodes:

  # star, plus, curly, minmo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9739	9835	
==>built to facilitate the Pugs test suite. It has the
distinction of being the very first module wr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9797	9893	
==>built to facilitate the Pugs test suite. It has the
distinction of being the very first module wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	39	141	
==>it, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	39	141	
==>it, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	39	141	
==>it, Pair, Ref, List
#
# - functions for implementation of unboxed Perl6 Values in Perl5
# Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4847	4971	
==>and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4847	4971	
==>and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4847	4971	
==>and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7657	7793	
==>n Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7657	7793	
==>n Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7657	7793	
==>n Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14359	14463	
==>h();
    my &dispatcher = $class.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatcher);
    while ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11236	11344	
==>, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11236	11344	
==>, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4673	4771	
==>ribing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contai <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4673	4771	
==>ribing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6870	6968	
==>ribing why the test is a skip or TODO test.

=item C<?$description = ''>

This parameter and contai <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2541	2661	
==>+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shif <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2541	2661	
==>+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shif <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2151	2253	
==>ub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduction over " . $node->str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10351	10521	
==>rred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10351	10521	
==>rred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10351	10521	
==>rred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5504	5608	
==>xed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5504	5608	
==>xed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5504	5608	
==>xed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5636	5723	
==>ion_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE AL <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5636	5723	
==>ion_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE AL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7981	8105	
==>es{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7981	8105	
==>es{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #prin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7981	8105	
==>es{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $code = "no strict;\n".$code;
    #prin <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7951	8066	
==>Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader($tfile, $width);
        local <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1078	1180	
==>$!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1078	1180	
==>$!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) return <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35013	35111	
==>ng Translator object, you must create a new
object that is a clone of the first but for the changes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35013	35111	
==>ng Translator object, you must create a new
object that is a clone of the first but for the changes <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	35	133	
==>estPrograms;
use base qw/Exporter/;

use strict;
use warnings;

use Blondie::Nodes;

use Test::Deep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5367	5468	
==>on>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?PO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5367	5468	
==>on>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?PO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5367	5468	
==>on>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?PO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	138	285	
==>copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @curr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	138	285	
==>copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5315	5423	
==>+ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5315	5423	
==>+ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5315	5423	
==>+ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_ <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	56	181	
==>rl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	57	182	
==>rl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	57	182	
==>rl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4115	4250	
==>nless $rules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    }
    if ( $i != $j ) {
        #print "opti <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1568	1683	
==>OD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2230	2345	
==>OD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	212	319	
==>n a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * clea <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	212	319	
==>n a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * clea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1017	1128	
==>pe'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native + $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1836	1930	
==>arameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

T <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1836	1930	
==>arameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5616	5716	
==>::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrid <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5616	5716	
==>::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7813	7913	
==>::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrid <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	650	756	
==>er;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	650	756	
==>er;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2056	2162	
==>"The submitted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+ <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1234	1337	
==>to find out the program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34203	34297	
==>r and upper bounds, both I<anyof_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1170	1264	
==>to find out the program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	461	573	
==>prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	461	573	
==>prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	461	573	
==>prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12187	12336	
==>BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12187	12336	
==>BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12187	12336	
==>BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7151	7250	
==>i method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10628	10727	
==>i method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	890	994	
==>uld be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	890	994	
==>uld be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	890	994	
==>uld be *eval_perl5
      return JS::inline('(function (str) {
          return _bare_js_function__eval_pe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16490	16584	
==>ch as by simply
copying files), often even while the program is executing.

Locale::KeyedText g <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16490	16584	
==>ch as by simply
copying files), often even while the program is executing.

Locale::KeyedText g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	402	527	
==>al => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	402	527	
==>al => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	402	527	
==>al => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	463	567	
==>reviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	463	567	
==>reviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	486	609	
==>/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	486	609	
==>/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12209	12301	
==>s->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12209	12301	
==>s->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12209	12301	
==>s->add_method('_make_ascendant_dispatcher' => ::make_private_method(sub {
    my @MRO = $::SE <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7352	7450	
==>e is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7352	7450	
==>e is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	845	939	
==>e level, not the character level, so different 
character encodings may be enciphered in differ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	845	939	
==>e level, not the character level, so different 
character encodings may be enciphered in differ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5825	5914	
==>ken($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X::cap->[-2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5705	5804	
==>js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5705	5804	
==>js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5705	5804	
==>js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o te <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23070	23284	
==>"prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23349	23563	
==>"prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2136	2228	
==>})')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2136	2228	
==>})')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2136	2228	
==>})')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.length } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7387	7498	
==>::Grammar::Precedence;

  # example definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::P <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	176	283	
==>/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	176	283	
==>/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1044	1136	
==>2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1044	1136	
==>2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1044	1136	
==>2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self is rw <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1573	1733	
==>y  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1573	1733	
==>y  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4136	4243	
==>n't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4136	4243	
==>n't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4136	4243	
==>n't use "[object Object]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4394	4494	
==>unction (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callerv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4394	4494	
==>unction (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callerv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4394	4494	
==>unction (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc(PIL2JS.resolve_callerv <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7125	7272	
==>y $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix($_,$prefix) }
    } elsif($s =~ /HASH/) {
        for (values %$o) { re <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2915	3012	
==>make sure you combine the key with a nonce or initialization vector, a 
one-time random number.  ( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2915	3012	
==>make sure you combine the key with a nonce or initialization vector, a 
one-time random number.  ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2368	2462	
==>urns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2368	2462	
==>urns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	864	976	
==>outine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	864	976	
==>outine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	864	976	
==>outine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => P <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4086	4199	
==>s'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'V <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4086	4199	
==>s'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'V <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	936	1049	
==>s'  ,'Pos',
  'pExp'  ,'Exp',
  'pNode' ,'PIL_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'V <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3030	3135	
==>led!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3030	3135	
==>led!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3110	3215	
==>led!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'failing test with d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3215	3314	
==>nt-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3215	3314	
==>nt-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The param <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27138	27232	
==>α. ∀β. (α × β) → β", ":t snd");
is(t($id_pair), "(int × str)", ":t id(pair(id(10))( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3199	3295	
==>ub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3199	3295	
==>ub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10469	10628	
==>].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10469	10628	
==>].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10469	10628	
==>].FETCH() == undefined
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          retu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	292	396	
==>m CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we could actually <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3381	3476	
==>>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=bac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3381	3476	
==>>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12162	12273	
==>ses,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12162	12273	
==>ses,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12162	12273	
==>ses,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3461	3600	
==>n;
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) and error($?), return;
    }        

    ### XXX make me more robust
    local $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	806	899	
==>dir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	806	899	
==>dir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12373	12471	
==>ng

Methods for identifying what sort of line you're looking at.

=head2 C<_is_comment>

  my $is_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24709	24827	
==>' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_hand <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21130	21248	
==>' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_hand <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28270	28363	
==>e "FLAG_" prefix.

=item $parser->add_handler($seq, $code)

This method creates a method of th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2292	2443	
==>_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2292	2443	
==>_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14301	14432	
==>or 'not ok'.
  name          name of the test (if any)
  number        test number (if any)

  type          'todo' or 'skip' (if an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1597	1723	
==>st++;

    return $pass;
}

sub _where {
    my @caller = caller($Level);
    return "at $caller[1] line $caller[2]";
}

# DON' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8105	8214	
==>rl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8105	8214	
==>rl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16232	16338	
==>)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16232	16338	
==>)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16232	16338	
==>)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30789	30887	
==>an't match the ')', because
if the 'c)' handler gets called, it's expected to match!  It pops the
f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21121	21216	
==>t for users, and your program would use
associated keys internally.

It is strongly suggested (b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21121	21216	
==>t for users, and your program would use
associated keys internally.

It is strongly suggested (b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15482	15618	
==>ed $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15482	15618	
==>ed $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1034	1145	
==>dToken {
  my ($self, $name, $relativePrecedence, $options, $match) = @_;
  #print "name: $name - rp: $relativeP <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1428	1533	
==>d waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$mon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1428	1533	
==>d waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$mon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8754	8885	
==>$::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8754	8885	
==>$::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8754	8885	
==>$::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [], <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7207	7307	
==>returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part o <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7207	7307	
==>returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1764	1887	
==>.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1764	1887	
==>.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1764	1887	
==>.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.F <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3289	3393	
==>my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3289	3393	
==>my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	528	628	
==>Role is a composable unit of behaviour; which includes;

=over

=item *

unbound public and private m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10913	11006	
==>d2 The Rosetta::Model::Document Class

A Document object is a simple container which stores da <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10913	11006	
==>d2 The Rosetta::Model::Document Class

A Document object is a simple container which stores da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13683	13851	
==>acther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13683	13851	
==>acther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13683	13851	
==>acther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16979	17078	
==>'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16979	17078	
==>'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16979	17078	
==>'     => ::make_attribute('@:superclasses'));
$::Class->add_attribute('@:subclasses'       => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2691	2791	
==>def unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2691	2791	
==>def unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2691	2791	
==>def unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1671	1784	
==>ue;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1671	1784	
==>ue;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1671	1784	
==>ue;

use constant Inf => Perl6::Value::Num::Inf;
our $VERSION = '0.01';

sub _default_stringify {
    my $self = ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2694	2800	
==>d logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2694	2800	
==>d logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	250	369	
==>IL::Run::Container::Array' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUIL <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1697	1807	
==>if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1697	1807	
==>if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object> <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	52	159	
==>age() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5945	6054	
==>rray/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5945	6054	
==>rray/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5945	6054	
==>rray/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4682	4813	
==>nt { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4536	4663	
==>nt { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1944	2047	
==>et, $from, 1) =~ /[:space:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7691	7880	
==>ndef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7691	7880	
==>ndef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7691	7880	
==>ndef, count => $diff ) );
            }
            $pos = $pos + $end - $start + 1;
            # warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	151	271	
==>er;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	151	271	
==>er;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	151	271	
==>er;
sub gen {
    my($what,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2494	2594	
==>tegration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2494	2594	
==>tegration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2494	2594	
==>tegration with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3043	3137	
==>ibute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3043	3137	
==>ibute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3043	3137	
==>ibute($label));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14713	14826	
==>b pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    retur <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14713	14826	
==>b pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    retur <==
3	/Users/nnunley/pugs/util/func_refact.pl	256	350	
==>graphfuncs.pl. Will print initial set sizes for all functions
by default, or use -initial <fnam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	670	773	
==>e (my ($curr) = caller $level++) {
    $pkg = $curr, last if $prev and $prev eq "base" and $curr ne "bas <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12019	12113	
==>on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12077	12171	
==>on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2231	2334	
==>a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2231	2334	
==>a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2231	2334	
==>a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5003	5135	
==>ibute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5003	5135	
==>ibute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5003	5135	
==>ibute';
    }    
    
    # DEPRECATED
    # Class attribute are just package level variables now
    # sub ::make_class_attribute ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	358	511	
==>ss   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	842	995	
==>ss   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	260	409	
==>ss = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2250	2351	
==>$ perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: hello_world. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12799	12895	
==>s (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12857	12953	
==>s (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$t <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1462	1591	
==>>{$_} = 1 for @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $ccset- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2688	2788	
==>) ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
} <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2688	2788	
==>) ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
} <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26850	26941	
==>ine RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can trust a pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3935	4055	
==>that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    lo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3935	4055	
==>that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26527	26789	
==>($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26527	26789	
==>($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26527	26789	
==>($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5246	5440	
==>, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5246	5440	
==>, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5246	5440	
==>, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->fi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5745	5869	
==>ous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5745	5869	
==>ous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	456	665	
==>RAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	544	753	
==>RAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	541	745	
==>RAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5917	6031	
==>+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5917	6031	
==>+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5917	6031	
==>+)\./$1\-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17450	17579	
==>> $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20927	21056	
==>> $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20514	20643	
==>> $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values -> $t1 {
                $t1commo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17196	17303	
==>b p6_initialize_package {
    my($pkg,$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $k <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10682	10775	
==>g_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10682	10775	
==>g_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23696	23798	
==>it has a value of False, it can not be further changed;
this class defaults it to False.

=back

This i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28248	28350	
==>it has a value of False, it can not be further changed;
this class defaults it to False.

=back

This i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27061	27163	
==>it has a value of False, it can not be further changed;
this class defaults it to False.

=back

This i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20313	20413	
==>LTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20313	20413	
==>LTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20313	20413	
==>LTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MAC <==
3	/Users/nnunley/pugs/util/package-osx.pl	9446	9572	
==>) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        print `rm -rf $dir/.svn`;
        print "Remo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1435	1570	
==>name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Tex <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1435	1570	
==>name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Tex <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4478	4594	
==>my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $base = $self->{_top}{base};
    "$base/blib/script/$pug <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1381	1470	
==>download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1221	1310	
==>download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	416	512	
==>gram" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	377	473	
==>gram" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	377	473	
==>gram" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	118	233	
==>p 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3399	3532	
==>$offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3399	3532	
==>$offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3399	3532	
==>$offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1255	1382	
==>} @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1255	1382	
==>} @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1255	1382	
==>} @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10367	10487	
==>match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10367	10487	
==>match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	999	1104	
==>ts;
@developers = reverse @developers;

# Collect commits in days
# E.g. $commits_till_day[42] = 1500 (150 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6250	6409	
==>patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6250	6409	
==>patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6250	6409	
==>patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.exec(strin <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6166	6302	
==>ned) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2a <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6166	6302	
==>ned) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12804	12903	
==><ElementList> <','> <Elision>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12993	13112	
==>LTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12993	13112	
==>LTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12993	13112	
==>LTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6429	6530	
==>ything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6429	6530	
==>ything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6429	6530	
==>ything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

Reblessi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	178	284	
==>)(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	178	284	
==>)(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	178	284	
==>)(args[1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3508	3614	
==>self->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $se <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4595	4693	
==>cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4595	4693	
==>cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3732	3862	
==>$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3720	3850	
==>$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\ <==
3	/Users/nnunley/pugs/util/grokprims.pl	2180	2282	
==>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{name}</tt></td>";
  print "<t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11494	11590	
==>fc
code to the class that consumed it.

--------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11494	11590	
==>fc
code to the class that consumed it.

--------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11494	11590	
==>fc
code to the class that consumed it.

--------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7197	7379	
==>y( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7197	7379	
==>y( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7197	7379	
==>y( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	621	733	
==>substr $str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns Num is builtin is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5495	5614	
==>k
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5495	5614	
==>k
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5495	5614	
==>k
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1283	1376	
==>lass::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to disco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1283	1376	
==>lass::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to disco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1283	1376	
==>lass::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to disco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16036	16138	
==>'has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16036	16138	
==>'has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16036	16138	
==>'has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5320	5474	
==>ture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5152	5299	
==>ture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30683	30780	
==>< $obj->SUPER::method() >> inside the F<__object__> class,
because F<__object__> doesn't inherit f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19895	20031	
==>it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19895	20031	
==>it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19895	20031	
==>it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	396	517	
==>th;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	396	517	
==>th;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	396	517	
==>th;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $op {$y}.charCodeAt(i)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1315	1419	
==>new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1315	1419	
==>new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1315	1419	
==>new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2598	2724	
==>for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5 <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2598	2724	
==>for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	903	1004	
==>sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	903	1004	
==>sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	903	1004	
==>sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3061	3168	
==>sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3061	3168	
==>sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3061	3168	
==>sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3511	3654	
==>ch(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3511	3654	
==>ch(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3511	3654	
==>ch(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1850	1942	
==>S::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1850	1942	
==>S::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1850	1942	
==>S::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20365	20465	
==>tify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20365	20465	
==>tify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20365	20465	
==>tify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2026	2142	
==>mented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:per <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2026	2142	
==>mented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:per <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1977	2064	
==>e p6 pil_code pil_tree p5)],
	$datatype => Perl6::Run::OnPerl5::X1::Result->new($data,"" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12367	12497	
==>"sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12367	12497	
==>"sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12367	12497	
==>"sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3268	3380	
==>o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3268	3380	
==>o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6763	6858	
==>',
   '... got the right return value from Object singleton/class method');

$Object->add_single <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15183	15317	
==>eturn '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15183	15317	
==>eturn '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15183	15317	
==>eturn '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7750	7861	
==>%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7750	7861	
==>%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7750	7861	
==>%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14577	14714	
==>lf = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14577	14714	
==>lf = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14577	14714	
==>lf = shift;
            return pop @{$self->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4435	4544	
==>ram->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4435	4544	
==>ram->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5025	5134	
==>ram->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    return;
}

package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	438	536	
==>BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	438	536	
==>BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	438	536	
==>BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: $!\n";
    setrlim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	599	712	
==>ule ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	599	712	
==>ule ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	599	712	
==>ule ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1121	1234	
==>xtracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1121	1234	
==>xtracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1121	1234	
==>xtracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked up.
    # Finally, in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14038	14193	
==>{},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14038	14193	
==>{},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14038	14193	
==>{},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1688	1804	
==>-- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1893	2009	
==>-- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1956	2072	
==>-- placed here so ::create_class can refer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    retur <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2077	2210	
==>eta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8349	8442	
==>y inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8349	8442	
==>y inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1143	1249	
==>w_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1143	1249	
==>w_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1352	1458	
==>w_named = 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11744	11850	
==>\"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11744	11850	
==>\"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $l <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2732	2823	
==>\:\w\S+ }

rule commit_something { <commit_rule> | <commit_alternation> | <commit_atom> }
ru <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27897	27994	
==>s a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32449	32546	
==>s a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31541	31638	
==>s a trivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3222	3360	
==>tance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	763	881	
==>can read manifest/metafile
        system( qq[mkdir -p $builddir/$path] )          and die "$?";
        system( qq[ cp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3941	4054	
==>tance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1067	1189	
==>y OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1067	1189	
==>y OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1067	1189	
==>y OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $sel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8104	8230	
==>n" unless $delete_ok;
    }
=cut
    
    ### uninstall the files
    ### XXX check dependencies
    {   open my $fh, $self->fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7465	7588	
==>er  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7214	7332	
==>er  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub rul <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1110	1206	
==>ges whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"print-bas <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1110	1206	
==>ges whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"print-bas <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	793	912	
==>ec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser\((.*?)\ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15427	15526	
==>hing if the span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15427	15526	
==>hing if the span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	474	586	
==>ram ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<du <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	474	586	
==>ram ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<du <==
3	/Users/nnunley/pugs/util/drift.pl	1486	1593	
==>rint OUT $_;
}
print OUT @scary_header;
my $module;
while (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17773	17871	
==>nts and routines
within the virtual machine, input data to it, and output data from it.

You can cr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17773	17871	
==>nts and routines
within the virtual machine, input data to it, and output data from it.

You can cr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12631	12718	
==>ed_character(char(C)) --> "\\", ("c","C"), [Open], brackets(Open,Close),
  p6_named_char <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	710	825	
==><BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides in <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	710	825	
==><BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides in <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6084	6178	
==>y $pkg_node = "${pkg_root}::Node";
	$pkg_type = "" if $pkg_type eq $pkg_this;
	$used{$pkg_type} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	776	888	
==>}

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	776	888	
==>}

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	776	888	
==>}

  my $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_$ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2240	2348	
==>direct_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&cast',
					body = <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2127	2239	
==>", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2127	2239	
==>", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6854	7000	
==>|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6911	7057	
==>|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39624	39757	
==>}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39624	39757	
==>}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39624	39757	
==>}

sub shift {
    my $array = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14028	14155	
==>rson.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14028	14155	
==>rson.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10801	10910	
==>rl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10801	10910	
==>rl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10801	10910	
==>rl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $value ) = @_;
    $key = $key->fetch if Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1864	2008	
==>confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1864	2008	
==>confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1864	2008	
==>confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaq <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	670	811	
==>, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m: <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	670	811	
==>, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1382	1473	
==>ur @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5::X1::Root";

=pod
https://svn. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	116	222	
==>unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	116	222	
==>unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	116	222	
==>unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3353	3488	
==>_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3353	3488	
==>_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3353	3488	
==>_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2637	2725	
==>$js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2637	2725	
==>$js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2637	2725	
==>$js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3658	3781	
==>caped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3851	3974	
==>caped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	190	284	
==>ue::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	190	284	
==>ue::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	190	284	
==>ue::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file)

# ChangeLo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6358	6467	
==>cc) {
        $S->error(0, "\\x[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15382	15491	
==>[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15382	15491	
==>[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15382	15491	
==>[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ <==
3	/Users/nnunley/pugs/t/packages/Test.pm	140	247	
==>r_pkg {
    Our::Package::pkg();
}

our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see_p <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	30	145	
==>update_guess(Num $guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($target - $f($guess)) / $fprime( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16250	16337	
==>l@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan. <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16308	16395	
==>l@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7017	7154	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7210	7347	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6572	6679	
==>thoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6572	6679	
==>thoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6572	6679	
==>thoutNewline,
  body:  {},
  getElementById: function (id) {}
};

var window    = {
  scrollTo:   function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4502	4621	
==>l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4502	4621	
==>l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4502	4621	
==>l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ a <==
3	/Users/nnunley/pugs/util/grokprims.pl	238	348	
==>ive infix',
    non   =>   'non-associative infix',
    list  => 'list infix',
    chain => 'chaining infix',
) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15094	15194	
==>gram (or a package it uses)
will need to display a message to the user, or generate a message to be
s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15094	15194	
==>gram (or a package it uses)
will need to display a message to the user, or generate a message to be
s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2564	2659	
==>ing portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2564	2659	
==>ing portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7736	7831	
==>return the numerical value
of the message.  If you use new() the F<Regexp::Parser> object will
s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15072	15185	
==>es, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18549	18662	
==>es, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17965	18078	
==>es, @r_with_shared_attrs,
        @r_with_disjoint_attrs);

    # TODO: more or better optimization.

    # Now do <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4970	5085	
==>ch->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4970	5085	
==>ch->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	228	333	
==>r::import { }

## XXX - is exported doesn't support args atm

## Chapter 8 section 1.3

sub tokens(Code *$ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9546	9706	
==>=> $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	908	1005	
==>ss Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	908	1005	
==>ss Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	192	282	
==>w<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	192	282	
==>w<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	192	282	
==>w<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compile_perl6_to_htmljs_wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	152	253	
==>um::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	152	253	
==>um::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	152	253	
==>um::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num::NaN() };

require Perl6::Container::Scalar;
r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	198	304	
==>use *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	198	304	
==>use *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	198	304	
==>use *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6156	6254	
==>more complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
pa <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6156	6254	
==>more complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17568	17672	
==>lue::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17568	17672	
==>lue::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17568	17672	
==>lue::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB infix:<+&> ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2333	2452	
==>do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to reco <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2333	2452	
==>do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to reco <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17949	18033	
==>,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17492	17591	
==>terface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17492	17591	
==>terface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17492	17591	
==>terface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defin <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7078	7187	
==>t/build/src -hidir dist/build/src "
      unless $self->is_extension_build;
    $ghc_flags .= " -fno-warn-name <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	181	278	
==>ispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @.supers;

multi method is <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3559	3655	
==>2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r=%lu callback SV*=%lu\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14327	14521	
==>rn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14327	14521	
==>rn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14327	14521	
==>rn $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11758	11934	
==>s failures.
            else {
                my $details = $results{details};
                foreach my $overrun ($test{max}+1..@$details) {
                    next unless r <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3394	3524	
==>]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +- <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3394	3524	
==>]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39702	39824	
==>t_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39702	39824	
==>t_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39702	39824	
==>t_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    $ret = $ret->shi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1465	1659	
==>o True or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4943	5136	
==>o True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3873	4066	
==>o True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9724	9863	
==>lc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9724	9863	
==>lc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9724	9863	
==>lc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1191	1299	
==>JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1191	1299	
==>JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1191	1299	
==>JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::time() is primitive {
  JS::inline "new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	967	1092	
==>$jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	967	1092	
==>$jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	967	1092	
==>$jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16849	16952	
==>IsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsRead <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16849	16952	
==>IsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsRead <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16849	16952	
==>IsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pugs::Internals::hIsRead <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	115	362	
==>KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	115	362	
==>KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this fi <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state2.pl	7	109	
==>2.pl - Perl 6: Anwendung von state
sub singleton {
	state $var = new MeineKlasse;
	# $var wird nur einm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	914	1024	
==>JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... sho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	914	1024	
==>JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... sho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	914	1024	
==>JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... sho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3942	4062	
==>(@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3942	4062	
==>(@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($content <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3942	4062	
==>(@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($content <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	315	413	
==>tions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	315	413	
==>tions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	315	413	
==>tions will be provided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in o <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10411	10562	
==>length $test{skip_all}) {
                print "skipped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17140	17262	
==>\1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13561	13683	
==>\1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6840	6966	
==>art to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6840	6966	
==>art to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6840	6966	
==>art to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1563	1669	
==>$@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1563	1669	
==>$@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1563	1669	
==>$@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	421	548	
==>ys and filehandles.

=head2 new()

Create an iterator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($p <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7078	7183	
==>ty($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7078	7183	
==>ty($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	877	976	
==>t =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($si <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	877	976	
==>t =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($si <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2027	2191	
==>dd_rule( 
        name => 'ne',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '== <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7510	7654	
==>apture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7510	7654	
==>apture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1887	2020	
==>y;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $vis) = @_;
    my $self = bless {
      rx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7289	7384	
==>kinds of ruleop operators:



- higher order operators: alternation, concatenation.

- "plain" m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7041	7133	
==>kinds of ruleop operators:

- higher order operators: alternation, concatenation.
- "plain" m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8326	8489	
==>tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12256	12400	
==>tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12256	12400	
==>tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling subrule\n";
        #retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	127	228	
==>cript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	127	228	
==>cript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	127	228	
==>cript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20520	20620	
==>infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20520	20620	
==>infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20520	20620	
==>infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   in <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2064	2184	
==>fix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= Cwd:: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8151	8250	
==>n zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8151	8250	
==>n zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21705	21804	
==>ally addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26257	26356	
==>ally addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24917	25016	
==>ally addressed only by their values; neither
may be addressed by any ordinal value.

Note that it is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	590	761	
==>0;
  my @match;
  for ( 1 .. $#+ ) {
      push @match, bless \\{
        str => \\$s, from => \\(0+$-[$_]), to => \\(0+$+[$_]),
        bool => \\1, match => [], name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12508	12657	
==>->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{int <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12639	12733	
==>ncoding and decoding of strings with HTML
character entities.  The module provides the followin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12639	12733	
==>ncoding and decoding of strings with HTML
character entities.  The module provides the followin <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16977	17110	
==>ate the backlink <a href...>
                my $backlink = HTML::Element->new('a', 
                         href  => (abs2rel($sourc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8057	8176	
==>pture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8250	8369	
==>pture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5290	5414	
==>pace => 1)) if $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add_handler('\s' => sub {
    my ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2681	2801	
==>of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or d <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3145	3265	
==>of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14458	14610	
==>n shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14458	14610	
==>n shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14458	14610	
==>n shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2307	2404	
==>n str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2307	2404	
==>n str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2307	2404	
==>n str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1656	1758	
==>=> $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1656	1758	
==>=> $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1656	1758	
==>=> $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7663	7789	
==>---------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which would make
## things lik <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7663	7789	
==>---------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which would make
## things lik <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7663	7789	
==>---------------

## NOTE:
## we want to prevent the default version 
## of this from taking over which would make
## things lik <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2027	2130	
==>e file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2027	2130	
==>e file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6975	7109	
==>]) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $cod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6963	7097	
==>]) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $cod <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27920	28026	
==>fine RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(pr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3968	4062	
==>union( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3968	4062	
==>union( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self. <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6963	7076	
==>= cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6963	7076	
==>= cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpa <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8668	8777	
==>>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1993	2089	
==>d binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1993	2089	
==>d binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1993	2089	
==>d binding with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10241	10370	
==>= 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10241	10370	
==>= 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1066	1162	
==>m;

	use base qw/Blondie::TypeSafe::Type/;
	sub type { $_[0] }

	package Blondie::TypeSafe::Type: <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	247	346	
==>}
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_fil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	247	346	
==>}
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_fil <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1945	2035	
==>ls C<$session>'s C<$event> event handler, passing C<@args> as arguments.
Note that possibly <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7125	7235	
==>lobals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7125	7235	
==>lobals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE> <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3649	3747	
==>mes}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5078	5262	
==>apture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5090	5274	
==>apture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2	102	
==>dule Getopt::Proccesor {
    class Getopt::Processor {
        has $argument_class = ::Getopt::Argume <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	366	479	
==>y %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	366	479	
==>y %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	366	479	
==>y %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18105	18258	
==>e '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        given $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1524	1624	
==>_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1524	1624	
==>_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1524	1624	
==>_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{preludepc} <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5711	5923	
==>e {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %ev <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5711	5923	
==>e {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %ev <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	536	650	
==>way,
#     so no great loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3067	3164	
==>rning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $othe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3067	3164	
==>rning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3351	3464	
==>lly in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3351	3464	
==>lly in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3351	3464	
==>lly in perl5/PIL2JS/lib6/)
  --metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludep <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2025	2150	
==>f(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2025	2150	
==>f(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2025	2150	
==>f(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	444	556	
==>fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	444	556	
==>fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	444	556	
==>fixup,
  } => "PIL::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2210	2315	
==>r backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2210	2315	
==>r backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_containe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2210	2315	
==>r backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_containe <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3153	3268	
==>t =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7463	7558	
==>xt = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7463	7558	
==>xt = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5012	5139	
==>aScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5012	5139	
==>aScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5012	5139	
==>aScript
                    file ("js") or into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7702	7808	
==>boxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7702	7808	
==>boxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7702	7808	
==>boxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3874	3999	
==>{
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3874	3999	
==>{
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3874	3999	
==>{
      warn "Internal error: Missing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22209	22313	
==>e :)
    unbox($self).id
}

(method id ((opaque $self:)) returns num 
    ($self: id))

=cut

$::Class->s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10388	10489	
==>f items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is comm <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10388	10489	
==>f items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is comm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10710	10848	
==>)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10710	10848	
==>)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10710	10848	
==>)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1853	1953	
==>s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1853	1953	
==>s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1853	1953	
==>s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	578	671	
==>rclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	578	671	
==>rclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	578	671	
==>rclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2333	2412	
==>operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2333	2412	
==>operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2333	2412	
==>operator:|prefix_postfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1653	1813	
==>urn;
#         }                
#         JIB::Utils->_mkdir( dir => $builddir )
#             or error( "Could not create clean '$builddir'" ), return;
#     } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11796	11895	
==>( $field, $value )

Add a new field value for the specified header field.  Previous values
for the s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11796	11895	
==>( $field, $value )

Add a new field value for the specified header field.  Previous values
for the s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9148	9256	
==>h(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18673	18775	
==>ies. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18673	18775	
==>ies. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PA <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5884	6022	
==>latest
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _normali <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10928	11061	
==>t;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10928	11061	
==>t;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.sp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27707	27809	
==>anonymous function that, when
given each original tuple/Mapping as its sole read-only argument, returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32259	32361	
==>anonymous function that, when
given each original tuple/Mapping as its sole read-only argument, returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31351	31453	
==>anonymous function that, when
given each original tuple/Mapping as its sole read-only argument, returns <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10490	10664	
==>)/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6831	7005	
==>)/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7680	7854	
==>)/\\\\\$1/g;\n" .
                    #"    print \"bound: \\$args[$_] $args[$_] \$src \"; " .
                    "\n";
            }
            # print "macro: var binding: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3392	3501	
==>ell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3392	3501	
==>ell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3392	3501	
==>ell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1066	1169	
==>put => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1066	1169	
==>put => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1146	1249	
==>put => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in the way <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1832	1944	
==>t Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw? <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1009	1119	
==>t Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw? <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1482	1592	
==>t Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw? <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32825	32944	
==>thod label
        symbol->new('_make_ascendant_dispatcher'),
    # method body
        method->new(
            $::ENV, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22488	22580	
==>has succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Cl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22488	22580	
==>has succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4404	4576	
==>fess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4404	4576	
==>fess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4404	4576	
==>fess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        return $dispatcher->();        
    }
 
    ## Attribute Primitives
    # this is kind of a hack cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	600	708	
==>an <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	600	708	
==>an <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	600	708	
==>an <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportLis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7214	7319	
==>S.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7214	7319	
==>S.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7214	7319	
==>S.runloop(function () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2404	2499	
==>tr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2404	2499	
==>tr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2404	2499	
==>tr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_method_stub' => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17317	17408	
==>n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17317	17408	
==>n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17317	17408	
==>n($xx0) / p6_to_n($xx1)) };
MULTI SUB infix:<%> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) % p6_t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7839	7950	
==>tart = new Benchmark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1274	1380	
==>h($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.de <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1274	1380	
==>h($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.de <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8966	9174	
==>ems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TOD <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8966	9174	
==>ems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TOD <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2626	2779	
==>summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15421	15603	
==>ure( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15700	15882	
==>ure( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24311	24410	
==>rint a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2363	2481	
==>t?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2363	2481	
==>t?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15656	15797	
==>$method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15656	15797	
==>$method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15656	15797	
==>$method_table->{$label} &&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9913	10007	
==>Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9913	10007	
==>Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11274	11396	
==>ey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11274	11396	
==>ey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11274	11396	
==>ey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unless defined <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3728	3824	
==>about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3728	3824	
==>about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3195	3327	
==>sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3195	3327	
==>sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3195	3327	
==>sub fixed_name  { $_[0]->{fixedName} }
  sub jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16605	16704	
==>difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argument <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16605	16704	
==>difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argument <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33663	33755	
==>orementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a gene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38213	38305	
==>orementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a gene <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	983	1112	
==>-> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    } <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	983	1112	
==>-> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3489	3612	
==>eturn;
    }
    die "there is no precedence like ", $opt->{other};
}


sub add_to_list {
    my ( $op, $x, $y ) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5410	5522	
==>e->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5410	5522	
==>e->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5410	5522	
==>e->name($name)           if defined $name;
    $new_role->version($version)     if defined $version;
    $new_rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1111	1225	
==>elf->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1111	1225	
==>elf->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1111	1225	
==>elf->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2139	2267	
==>alue(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2139	2267	
==>alue(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2139	2267	
==>alue(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefine <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24386	24526	
==>f
      else { ... }            # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

You'll probab <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20321	20419	
==>least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely obj <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24873	24971	
==>least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely obj <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1767	1888	
==>_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LI <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	878	997	
==>_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30398	30496	
==>ct.

=item $obj->walk()

"Walks" the object.  This is used to dive into the node's children
when us <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6327	6437	
==>ethod store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6327	6437	
==>ethod store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$ <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	602	731	
==>y $max;
    for @x->$try{
        $max =    $max > $try ?? $max !! $try; 
    }
    $max.int
}    

sub whisper_about (Int $sizeof <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23458	23605	
==>param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23458	23605	
==>param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23458	23605	
==>param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think only fetch() need to retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21235	21347	
==>ap ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21235	21347	
==>ap ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21235	21347	
==>ap ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB does ($xx0, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17274	17370	
==>cation and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, whic <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17274	17370	
==>cation and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2622	2791	
==>ype [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2622	2791	
==>ype [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2622	2791	
==>ype [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10289	10402	
==>}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        return u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10289	10402	
==>}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        return u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1195	1304	
==>nv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1195	1304	
==>nv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1195	1304	
==>nv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self->{pArgs} } ],
  } => "PIL::PApp";
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2471	2600	
==>metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2471	2600	
==>metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2471	2600	
==>metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1565	1699	
==>scape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try u <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1565	1699	
==>scape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	653	763	
==>BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2139	2279	
==>nd - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2139	2279	
==>nd - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2486	2626	
==>nd - Bind and alias variables

=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1082	1200	
==>}

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1082	1200	
==>}

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1082	1200	
==>}

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5903	6012	
==>t)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5903	6012	
==>t)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5903	6012	
==>t)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3804	3942	
==>our caller decide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file not found"
    #  say this: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	952	1045	
==>iption( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	952	1045	
==>iption( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13214	13327	
==>adings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16691	16804	
==>adings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16053	16166	
==>adings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source's heading is a proper s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30408	30513	
==>s method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation::Exa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26818	26918	
==>s method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31370	31470	
==>s method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12512	12614	
==>d };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12512	12614	
==>d };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12512	12614	
==>d };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) {p6_next_macro()};
MAC <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4834	4937	
==>e string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4834	4937	
==>e string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6358	6461	
==>e string C<no_plan>,
there is no set number of tests to run.

Those are the only valid arguments.

You m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	408	516	
==>}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	408	516	
==>}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	408	516	
==>}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4946	5050	
==>ed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4946	5050	
==>ed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7143	7247	
==>ed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test file.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3385	3483	
==>f->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3385	3483	
==>f->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3385	3483	
==>f->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2671	2796	
==>proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2671	2796	
==>proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2671	2796	
==>proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5494	5594	
==>xpand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5494	5594	
==>xpand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further pro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5494	5594	
==>xpand {
    use PIL::Run::ApiX;
    local $EvalX::PStmt::protection_unacceptable; # block further pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6230	6321	
==>{...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6230	6321	
==>{...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6230	6321	
==>{...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5751	5861	
==>require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $dat <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5751	5861	
==>require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $dat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9344	9445	
==>NODE VNum ($value) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	767	863	
==>AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	767	863	
==>AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	767	863	
==>AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (blessed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3484	3611	
==>b {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3484	3611	
==>b {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3484	3611	
==>b {
    my ($self, $name) = @_;
    if ($name) {
        ::opaque_instance_attr($self->class => '$:name') = 'EigenClass[' . $nam <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	89	254	
==>perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2535	2646	
==>s{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2535	2646	
==>s{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4502	4610	
==>... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4348	4452	
==>... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = <==
3	/Users/nnunley/pugs/util/run-smoke.pl	515	614	
==>e/sandbox/dir /some/www/file.html
#
my $pugs_sandbox    = $ARGV[0] or die "Need pugs sandbox locatio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4014	4163	
==>mpile( q(
                <?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1480	1596	
==>} ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1491	1607	
==>} ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4025	4128	
==>port() );
        }
    }
};

require "lib/TestBuilder/TestPlan.pm";
require "lib/TestBuilder/Output.pm" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11905	11995	
==>::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11905	11995	
==>::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11905	11995	
==>::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#M <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	971	1080	
==>er is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4449	4558	
==>er is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mappin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4179	4268	
==>", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	77	194	
==>xe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	77	194	
==>xe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	464	568	
==>pec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	464	568	
==>pec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	464	568	
==>pec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2170	2291	
==>arams} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    push @{ $self->{param_stack} }, $ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	281	387	
==>SION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pug <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	281	387	
==>SION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pug <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9049	9158	
==>dd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9049	9158	
==>dd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9411	9514	
==>ce>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscapeSequence>
    | <'0'> <!before <DecimalDi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7459	7618	
==>tems );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff element <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7459	7618	
==>tems );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff element <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7459	7618	
==>tems );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff element <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3683	3791	
==>C", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES respo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3683	3791	
==>C", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES respo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16307	16398	
==>ond: generic_in($.then) = { generic($.if) }
cond: generic_in($.else) = { generic($.then) }
c <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1206	1424	
==>der', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx: <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1206	1424	
==>der', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7676	7778	
==>m") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotation->new(
				type => [ ( map { $_->acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	682	803	
==>i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	682	803	
==>i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	682	803	
==>i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23360	23452	
==>n F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41284	41376	
==>n F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37310	37402	
==>n F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redistri <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6680	6786	
==>b emit {
	my $self = shift;
	my $prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::D <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	202	301	
==>b equal_to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_[0]->equa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	60	164	
==>Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	60	164	
==>Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	60	164	
==>Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1166	1264	
==>k and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1166	1264	
==>k and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1166	1264	
==>k and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14845	14966	
==>stance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14845	14966	
==>stance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14845	14966	
==>stance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10097	10189	
==>metric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This wil <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10097	10189	
==>metric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This wil <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14831	14938	
==>:descendent)))
     (= $c (WALKCLASS (&dispatcher)))
     (while ($c is_not_nil)
        ((($c send (get_att <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1176	1273	
==>t = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1176	1273	
==>t = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV< <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7807	7926	
==>1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7807	7926	
==>1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	223	324	
==>option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "w <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	947	1061	
==>king"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	947	1061	
==>king"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	810	920	
==>node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3380	3488	
==>\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyo <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8684	8783	
==>t will recurse down the tree and fix the
# depth fields appropriately.
# This method is called autom <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8684	8783	
==>t will recurse down the tree and fix the
# depth fields appropriately.
# This method is called autom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3862	3977	
==>@supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_disc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3862	3977	
==>@supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_disc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3862	3977	
==>@supers;
}

sub _parse_method {
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_disc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13379	13480	
==>_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13379	13480	
==>_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13379	13480	
==>_to_s($xx)); };
MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s( <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2973	3089	
==>ly be the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12585	12682	
==>rue if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infin <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12585	12682	
==>rue if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13227	13338	
==>ame' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** ge <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13227	13338	
==>ame' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** ge <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13227	13338	
==>ame' );  # ** get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** ge <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	45	155	
==>se v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2348	2445	
==>infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operator <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2348	2445	
==>infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operator <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7447	7550	
==>ub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7447	7550	
==>ub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7447	7550	
==>ub main { "lvalue" } }
{ package PIL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ pack <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8250	8378	
==>746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "as <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8250	8378	
==>746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "as <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12319	12412	
==>nt(C), !.
p6_hex_spec(R)       --> [Open], brackets(Open,Close), p6_hex_chars(R), [Close].
p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7820	7941	
==>eturn iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7820	7941	
==>eturn iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7820	7941	
==>eturn iarr },
      function (n) {
        var marray = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2864	2965	
==>d binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2864	2965	
==>d binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3211	3312	
==>d binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4322	4429	
==>ngleLineCommentChars {  # see 7.4
      <SingleLineCommentChar> <SingleLineCommentChars>?
}
rule SingleLineC <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2599	2688	
==>iler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2599	2688	
==>iler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14868	14964	
==>@r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18345	18441	
==>@r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17761	17857	
==>@r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5541	5652	
==>gs = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5541	5652	
==>gs = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5541	5652	
==>gs = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsn <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6094	6189	
==>SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6094	6189	
==>SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	622	715	
==>ckslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2651	2759	
==>code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2639	2747	
==>code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12376	12488	
==>)
.end 


.sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .loca <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7225	7316	
==>e instantiates into whatever it is combined with (except instantiated variables, which deleg <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	727	872	
==>tiplication",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Sym('$x'),
							V <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1299	1393	
==>sion
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1299	1393	
==>sion
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19067	19169	
==>ts own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must b <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19067	19169	
==>ts own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1738	1836	
==>'\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1106	1222	
==>$method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1106	1222	
==>$method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1106	1222	
==>$method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            blessed($method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13038	13150	
==>a; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13038	13150	
==>a; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13038	13150	
==>a; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to_s( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	898	1024	
==>stBuilder::NullPlan' => {
    is => [ $::Object ],    
    methods => {
        'header' => sub { '' },
        'footer' => sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	575	695	
==>nt Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	575	695	
==>nt Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27683	27796	
==>alue of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as its sole read-only argu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32235	32348	
==>alue of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as its sole read-only argu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31327	31440	
==>alue of C<$attrs> is an anonymous function that, when
given each original tuple/Mapping as its sole read-only argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8700	8859	
==>,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8700	8859	
==>,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  }) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8700	8859	
==>,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	106	209	
==>less {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	106	209	
==>less {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	106	209	
==>less {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7448	7552	
==>ind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7448	7552	
==>ind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7448	7552	
==>ind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) return;\n\n" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2149	2241	
==>}
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2149	2241	
==>}
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2149	2241	
==>}
method codes  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2170	2300	
==>opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2170	2300	
==>opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2170	2300	
==>opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2375	2499	
==>Class.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2375	2499	
==>Class.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @inpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2375	2499	
==>Class.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @inpu <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1919	2041	
==>_array array iarray)),
      );

sub generate_attribute {
    my $self = shift;
    my $attr = shift;

    # $attr may be a <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	650	767	
==>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trai <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	650	767	
==>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trai <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	281	427	
==>?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	281	427	
==>?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter, <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1177	1307	
==>d class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () un <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1177	1307	
==>d class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () un <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	174	272	
==>peration - allow blending of p6 and js objects.
   (Even though this impairs 1?)
Please note effici <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3810	3918	
==>fess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3810	3918	
==>fess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3810	3918	
==>fess "You must provide a method label for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5226	5337	
==>= 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5226	5337	
==>= 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5226	5337	
==>= 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $self->{pilGlob} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2596	2750	
==>);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2596	2750	
==>);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2596	2750	
==>);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0; i < k <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38183	38297	
==>ples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42732	42846	
==>ples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42382	42496	
==>ples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=ite <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1527	1621	
==>=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. Th <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1527	1621	
==>=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. Th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5163	5257	
==>ere. :(
sub new_box {get_meta($_[0])->new('$.unboxed'=>$_[1])}
sub p6_new {
    my $cls = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	37	130	
==>s.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	37	130	
==>s.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	37	130	
==>s.
# The real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	909	1045	
==>binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remain <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	909	1045	
==>binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remain <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	909	1045	
==>binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remain <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10931	11075	
==>al, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10931	11075	
==>al, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12285	12382	
==>n::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2358	2468	
==>my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2358	2468	
==>my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2358	2468	
==>my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	692	802	
==>rn "calling send for $label";
    
    $label = str->new($label) 
        unless (blessed($label) && $label->is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8126	8221	
==>example, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8126	8221	
==>example, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5333	5443	
==>Glob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5333	5443	
==>Glob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5333	5443	
==>Glob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $CUR_LEXSCOPE_ID\n";

  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2362	2481	
==>fined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2362	2481	
==>fined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2362	2481	
==>fined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	311	416	
==>].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	311	416	
==>].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	311	416	
==>].FETCH().pil2js_name));
  })')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4197	4304	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4197	4304	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4197	4304	
==>line('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1595	1732	
==>h(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1595	1732	
==>h(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47214	47337	
==>ub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace'))->fetch($e->get('$lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5313	5429	
==>onstructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5313	5429	
==>onstructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5313	5429	
==>onstructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	625	738	
==>methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	625	738	
==>methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	625	738	
==>methods start() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2466	2595	
==>y hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2466	2595	
==>y hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2466	2595	
==>y hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XX <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17729	17840	
==>lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYR <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17729	17840	
==>lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYR <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1476	1578	
==>diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1476	1578	
==>diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1556	1658	
==>diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10819	10922	
==>arser->visual;

This will not return a F<Regexp> object, but the regex; it might be
slightly different f <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1113	1210	
==>t
against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1113	1210	
==>t
against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	52	159	
==>code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle co <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	52	159	
==>code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14713	14815	
==>) (str $repr) (hash %params)) returns opaque
    ((= %attrs (hash new))
     (= &dispatcher ($class: se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14336	14476	
==>b, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14336	14476	
==>b, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14336	14476	
==>b, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1200	1304	
==>ain
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub autoload {
    my $self <==
3	/Users/nnunley/pugs/util/importgraph.pl	277	379	
==>z;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOptions(
  "layout=s" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10632	10729	
==>date several fields with a single invocation.

The $value argument may be a plain string or a refe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10632	10729	
==>date several fields with a single invocation.

The $value argument may be a plain string or a refe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1117	1216	
==>PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1117	1216	
==>PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1117	1216	
==>PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18908	19078	
==>xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18908	19078	
==>xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18908	19078	
==>xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	45	143	
==>e Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	45	143	
==>e Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	45	143	
==>e Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10349	10492	
==>iler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10349	10492	
==>iler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8902	9002	
==>derr,"hook_regcompp done.\n");
    return r;
  }
}

void regexp_hook_on() {
  if(previous_comp_hook ! <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22072	22181	
==>PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16973	17081	
==>PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1597	1691	
==>self->makemaker_args->{INST_SCRIPT} =
      File::Spec->catfile($path, "script");
    $self->ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5446	5550	
==>:File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5446	5550	
==>:File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5446	5550	
==>:File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh });
    Class::Rebless- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19459	19568	
==>mple {
    return Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13336	13433	
==>∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> whi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13336	13433	
==>∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> whi <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	454	548	
==>s( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	454	548	
==>s( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7092	7199	
==>atch->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7092	7199	
==>atch->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17100	17195	
==>g(_Re),F0,F0,B0,B0,E0,E0).
rm(star_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3717	3816	
==>y $class = __PACKAGE__;
	my $self = $class->SUPER::new;

	$self->{left} = shift;
	$self->{right} = s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	634	732	
==>LD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	634	732	
==>LD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2996	3121	
==>$self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2996	3121	
==>$self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2996	3121	
==>$self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	91	199	
==>ma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accord <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	91	199	
==>ma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accord <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	91	199	
==>ma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# Accord <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1627	1735	
==>my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@AR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1627	1735	
==>my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@AR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1627	1735	
==>my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if ($repl || (!@eval && !@AR <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2038	2195	
==>.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2255	2412	
==>.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $p <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7321	7431	
==>S_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/perl5 -Isrc/perl5 ";
        $ghc_flags .= " -isrc/perl5 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	381	482	
==>{description}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl/$struct->{package}/$Filesli <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1615	1708	
==>erator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-di <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1615	1708	
==>erator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11003	11137	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11003	11137	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11003	11137	
==>|| confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19322	19442	
==>POS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15743	15863	
==>POS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2579	2679	
==>.
 Why LET but not TEMP?  LET is non-trivial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub l <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2348	2464	
==>Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2348	2464	
==>Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    ret <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	382	482	
==>serv-client.pl v" . VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7024	7169	
==>ce isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before stori <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7024	7169	
==>ce isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before stori <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7024	7169	
==>ce isa $slice";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before stori <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3233	3337	
==>NIC! %d %s", &RxPOS, &RxCUR) if &RxPOS != &RxLEN;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ $self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10760	10856	
==>or a multi-valued field. If the $value is undefined or not
given, then that header field will rem <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10760	10856	
==>or a multi-valued field. If the $value is undefined or not
given, then that header field will rem <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1743	1857	
==>$.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_univers <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1743	1857	
==>$.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_univers <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	94	193	
==>ails = 'ParserDetails.ini';
# use 
# my constant $:parser_details = 'ParserDetails.ini';
# as soon a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10895	11011	
==>q 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10895	11011	
==>q 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10895	11011	
==>q 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PUGS_RUNTIME})
       && 1) {
	warn "A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2373	2595	
==>tr   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1497	1661	
==>tr   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1497	1661	
==>tr   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ / <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4064	4175	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4257	4368	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16355	16448	
==>: generic_in($.else) = { generic($.then) }
cond: generic($$) = { generic($.else) }

cond: type <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8458	8596	
==>rrent_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8458	8596	
==>rrent_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8458	8596	
==>rrent_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6474	6590	
==>program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6474	6590	
==>program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19751	19862	
==>= pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $self->{npa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1747	1868	
==>->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1747	1868	
==>->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1747	1868	
==>->{fixed}),
      );

      if($self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6233	6335	
==>for when you don't want to mess
with members belonging to 3rd party classes that your object might be
h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6233	6335	
==>for when you don't want to mess
with members belonging to 3rd party classes that your object might be
h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6233	6335	
==>for when you don't want to mess
with members belonging to 3rd party classes that your object might be
h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12362	12481	
==>e .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exist <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12362	12481	
==>e .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exist <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12362	12481	
==>e .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7729	7847	
==>/ &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7729	7847	
==>/ &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7729	7847	
==>/ &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2948	3065	
==>_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2948	3065	
==>_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2948	3065	
==>_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6270	6399	
==>=> 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6270	6399	
==>=> 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3194	3299	
==>ype eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3194	3299	
==>ype eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3194	3299	
==>ype eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7399	7584	
==>}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7399	7584	
==>}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7399	7584	
==>}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_class_method(
                        $body->{class_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16818	17030	
==>>unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == & <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16818	17030	
==>>unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == & <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16818	17030	
==>>unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3048	3161	
==>ve an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3048	3161	
==>ve an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3048	3161	
==>ve an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      d <==
3	/Users/nnunley/pugs/util/package-osx.pl	9187	9320	
==>sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $cu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	983	1091	
==>ed_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_differenc <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	983	1091	
==>ed_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_differenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1736	1838	
==>avaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1736	1838	
==>avaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1736	1838	
==>avaScript...\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = ne <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	999	1097	
==>or printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I< <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	999	1097	
==>or printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7073	7239	
==>a' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7073	7239	
==>a' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7073	7239	
==>a' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')->fetch;
                return 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	637	758	
==>ntation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	637	758	
==>ntation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	637	758	
==>ntation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean up - removed 'multisub' m <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	725	835	
==>rns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtim <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	725	835	
==>rns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtim <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10749	10846	
==>ad2 C<_INC2PERL5LIB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the current value of C <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6876	6974	
==>h, I should
ignore the opening one. However, this means I should defer events until I get to the
en <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6876	6974	
==>h, I should
ignore the opening one. However, this means I should defer events until I get to the
en <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22779	22894	
==>->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19200	19315	
==>->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3197	3314	
==>=> method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3197	3314	
==>=> method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3197	3314	
==>=> method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instance_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2357	2504	
==>])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2669	2811	
==>])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2669	2811	
==>])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14127	14259	
==>OL
        #    return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        #}
        return 'eval ' . _emit( $n->{ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1581	1664	
==>----------------------------------------------------------------------------
## info <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1581	1664	
==>----------------------------------------------------------------------------
## info <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5865	5996	
==>ITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5865	5996	
==>ITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub call <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5865	5996	
==>ITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub call <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1167	1297	
==>qual',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'lef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4625	4751	
==>$new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4467	4587	
==>$new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3920	4024	
==>s design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3920	4024	
==>s design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3920	4024	
==>s design and it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. H <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12304	12398	
==>ray autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12304	12398	
==>ray autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12304	12398	
==>ray autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13245	13361	
==>the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13245	13361	
==>the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13245	13361	
==>the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	524	621	
==>ant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	524	621	
==>ant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	513	617	
==>0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	513	617	
==>0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26582	26685	
==>or the type inferrencer
is(t($id), "∀α. α → α", ":t id");
is(t($app_id), "int", ":t id(3)");
is(t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14610	14717	
==>my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1069	1167	
==>t;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1069	1167	
==>t;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1648	1750	
==>x.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1648	1750	
==>x.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1648	1750	
==>x.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3601	3703	
==>s is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3601	3703	
==>s is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3681	3783	
==>s is what you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2658	2776	
==>" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2658	2776	
==>" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($star <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3348	3434	
==>.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3348	3434	
==>.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3217	3314	
==>PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempoten <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3217	3314	
==>PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempoten <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3217	3314	
==>PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempoten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	845	994	
==>->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	845	994	
==>->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	845	994	
==>->SUPER::fixup;
  }

  sub magical_vars {
    my $self = shift;

    my ($js, @vars) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_man <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13178	13272	
==>> falls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 den <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13178	13272	
==>> falls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 den <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6162	6268	
==>e_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6162	6268	
==>e_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6162	6268	
==>e_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1562	1669	
==>ut[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1562	1669	
==>ut[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1562	1669	
==>ut[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	155	281	
==>ed $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	155	281	
==>ed $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39692	39808	
==>$S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates an object:
      $S->warn(RPe_BADESC, "y", " in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6822	6914	
==>ve));

## ----------------------------------------------------------------------------
## BOO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6822	6914	
==>ve));

## ----------------------------------------------------------------------------
## BOO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6822	6914	
==>ve));

## ----------------------------------------------------------------------------
## BOO <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1252	1362	
==>() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5851	5951	
==>which are "matcher" things.

Rules operate on strings (normally) and return Match objects.



### exa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5648	5745	
==>which are "matcher" things.
Rules operate on strings (normally) and return Match objects.

### exa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	562	684	
==>w
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	562	684	
==>w
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	562	684	
==>w
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3605	3709	
==>xp::Subrule"
    $P1 = subclass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3299	3398	
==>Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3299	3398	
==>Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5496	5595	
==>Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class represents a single test within th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2205	2362	
==>h}[1] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match}[1 <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	949	1044	
==>aults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<serve <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	949	1044	
==>aults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<serve <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14848	14960	
==>vels at once. Which level you
interact with typically depends on what your current lexical context has
declared t <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10040	10138	
==>) unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10040	10138	
==>) unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	178	299	
==>ig;
use strict;

use vars qw(
    $VERSION 
    @ISA @EXPORT @EXPORT_OK 
    $Verbose $Switches $Debug
    $verbose $switc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15677	15771	
==>ode.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15677	15771	
==>ode.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2565	2672	
==>spatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2565	2672	
==>spatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2565	2672	
==>spatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3144	3299	
==>f->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3144	3299	
==>f->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3144	3299	
==>f->class->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32754	32847	
==>urce Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37304	37397	
==>urce Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36621	36714	
==>urce Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3911	4021	
==>p://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3911	4021	
==>p://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3911	4021	
==>p://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for
## disucssion on how Packages work

$::Packa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	253	405	
==>-s:.)*)+)(.*)$/sx;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    } <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	586	695	
==>arser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.cha <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	586	695	
==>arser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.cha <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10660	10770	
==>ype;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2894	2988	
==>natives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternatives(W, Z).

p6_conju <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7465	7551	
==>ct_equiv->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Bl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	122	233	
==>se Term::ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Use perl version of <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28736	28834	
==>ple, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is read <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28736	28834	
==>ple, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is read <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12997	13132	
==>)
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12997	13132	
==>)
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12997	13132	
==>)
            || confess "dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9793	9917	
==>--    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9793	9917	
==>--    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9793	9917	
==>--    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6548	6662	
==>.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'}, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6548	6662	
==>.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'}, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6548	6662	
==>.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'}, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10953	11095	
==>ort, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_di <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10953	11095	
==>ort, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_di <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7914	8011	
==>self->_command_line();

Returns the full command line that will be run to test I<$file>.

=cut

su <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	774	871	
==>[Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	774	871	
==>[Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1379	1474	
==>ple running existent versions of perl5.  Perhaps
# because the challenges being faced were insuf <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7291	7394	
==>q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11399	11530	
==>_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11399	11530	
==>_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2324	2561	
==>0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5159	5269	
==>( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5159	5269	
==>( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1752	1851	
==>!= 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1752	1851	
==>!= 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1752	1851	
==>!= 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8202	8304	
==>ng all the elements to 0.  In reality, most calls will be for 
pedestrian events like object destructio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8202	8304	
==>ng all the elements to 0.  In reality, most calls will be for 
pedestrian events like object destructio <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26633	26727	
==>EBUG>

If true, Test::Harness will print debugging information about itself as
it runs the test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14024	14162	
==>n "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14024	14162	
==>n "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14024	14162	
==>n "stringify - $s\n";
    eval { $tmp = $s->str(max=>3) };
    $s = $tmp unless $@;
    # warn "   str - $s - $@\n";
    eval { $tmp = $s-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26450	26632	
==>' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26450	26632	
==>' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26450	26632	
==>' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17926	18112	
==>ass method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17926	18112	
==>ass method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17926	18112	
==>ass method
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7510	7646	
==>des,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7510	7646	
==>des,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7510	7646	
==>des,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1;
        pu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8389	8495	
==>span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8389	8495	
==>span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4171	4338	
==>um::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4171	4338	
==>um::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4171	4338	
==>um::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18339	18466	
==>::Internals::sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprin <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1026	1152	
==>red.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.mult <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1026	1152	
==>red.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.mult <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2228	2329	
==>age.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2228	2329	
==>age.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	240	336	
==>an.

Please refer the documentation of the other Modules in the JIB namespace for
details.

=head <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9181	9326	
==>write this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @li <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9181	9326	
==>write this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @li <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4268	4361	
==>ER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_that_should_be}->is_arrow <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1972	2080	
==>g_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1972	2080	
==>g_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = n <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4861	4964	
==>the / of the CD.
  --iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abbreviate <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12884	12981	
==>al things. 
For example, when iterating through the span range, the unit is added to the current v <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12884	12981	
==>al things. 
For example, when iterating through the span range, the unit is added to the current v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3139	3263	
==>->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3139	3263	
==>->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4122	4236	
==>ction (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4122	4236	
==>ction (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4122	4236	
==>ction (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(new PIL2JS.Box.Constant(St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38942	39072	
==>hift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38942	39072	
==>hift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38942	39072	
==>hift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13667	13865	
==>::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # gi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13667	13865	
==>::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # gi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13667	13865	
==>::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # gi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3314	3422	
==>e(@{$self}));
}

## list iterators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	168	267	
==>ersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($tw <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	168	267	
==>ersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($tw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	385	490	
==>ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	385	490	
==>ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	385	490	
==>ref $self->{pFun}->{pLV}->{pVarName}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hac <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2924	3044	
==>k()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2924	3044	
==>k()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($matc <==
3	/Users/nnunley/pugs/misc/S29_round.pl	915	1028	
==>n above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5401	5496	
==>92+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5401	5496	
==>92+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1856	1965	
==>> 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1856	1965	
==>> 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1856	1965	
==>> 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth'})) {
      m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	253	359	
==>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	253	359	
==>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	253	359	
==>{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15281	15378	
==>cument itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15281	15378	
==>cument itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9983	10109	
==>h(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9983	10109	
==>h(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9983	10109	
==>h(@_);
    }

    # this will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	345	460	
==>ent $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_inve <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1203	1318	
==>ent $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_inve <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2249	2357	
==>ped_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&cast',
					body => \&do_ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2232	2365	
==>mp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inte <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2232	2365	
==>mp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inte <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2232	2365	
==>mp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4649	4751	
==>put_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4649	4751	
==>put_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4649	4751	
==>put_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1068	1167	
==>es to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  I <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1068	1167	
==>es to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2596	2718	
==>s{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2596	2718	
==>s{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2596	2718	
==>s{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSB <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3325	3466	
==>( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4174	4315	
==>( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unles <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14420	14516	
==>regexp library.  http://arglist.com/regex/  While the code has diverged,
  at least the library h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11611	11737	
==>.
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11611	11737	
==>.
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11611	11737	
==>.
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pop <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	53	153	
==>has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr( <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	53	153	
==>has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12624	12785	
==>fine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12624	12785	
==>fine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12624	12785	
==>fine' => sub { (shift)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6582	6673	
==>", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6582	6673	
==>", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6582	6673	
==>", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11111	11210	
==>moke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11111	11210	
==>moke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11111	11210	
==>moke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7683	7819	
==>ding);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&dis <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11160	11296	
==>ding);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&dis <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	639	741	
==>unk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    # prof <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	885	1013	
==>), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	885	1013	
==>), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	885	1013	
==>), keys = args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16541	16653	
==>';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16541	16653	
==>';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16541	16653	
==>';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29427	29546	
==>é MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29427	29546	
==>é MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	251	358	
==>é MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1210	1368	
==>param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
su <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1210	1368	
==>param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
su <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2301	2397	
==>e subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

I <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2301	2397	
==>e subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

I <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5658	5797	
==>to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_e <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6122	6261	
==>to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_e <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10940	11042	
==>my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "Re <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	948	1057	
==>cal_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	915	1024	
==>cal_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	605	709	
==>v.p6, mid.p6, wc.p6 for correctness,
# simply run this program in the same directory containing
# those f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1568	1705	
==>require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1568	1705	
==>require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTT <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6693	6793	
==>*
 * regexp_compile
 */

static regcomp_t previous_comp_hook = NULL;

regexp* hook_regcompp (pTHX_ ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5204	5333	
==>rimitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5204	5333	
==>rimitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5204	5333	
==>rimitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4931	5036	
==>();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4931	5036	
==>();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4931	5036	
==>();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5413	5548	
==>e => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5606	5741	
==>e => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capt <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	658	777	
==>*>'),
			Val(2),
			Val(3),
		),
		result => 6,
		name => "simple multiplication",
	},
	{
		ast => App(
			Val(
				Thun <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	15	131	
==>Format::ISO8601;

# RULES GURUS APPLY HERE
our $iso8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20304	20400	
==>is something that end users could do,
although program package installers usually do it.  An os-l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20304	20400	
==>is something that end users could do,
although program package installers usually do it.  An os-l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	481	572	
==>def;

## ----------------------------------------------------------------------------
## Eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	481	572	
==>def;

## ----------------------------------------------------------------------------
## Eig <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	481	572	
==>def;

## ----------------------------------------------------------------------------
## Eig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13588	13751	
==>e::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13588	13751	
==>e::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13588	13751	
==>e::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @lists;
            return $sum;
        },
        clone => su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	71	171	
==>::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use File:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	76	175	
==>::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	74	173	
==>::Package';

use JIB::Constants;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	85	198	
==>d, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	85	198	
==>d, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.gl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	85	198	
==>d, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.gl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5333	5456	
==>p ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5333	5456	
==>p ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5333	5456	
==>p ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1165	1268	
==>rn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1165	1268	
==>rn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8597	8709	
==>ugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8597	8709	
==>ugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8597	8709	
==>ugs" if !defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8642	8802	
==>t;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8642	8802	
==>t;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8642	8802	
==>t;
    $class->new(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4553	4686	
==>',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iques <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4553	4686	
==>',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iques <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2470	2567	
==>%mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $igno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2470	2567	
==>%mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $igno <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2470	2567	
==>%mods{'ov'} || %mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $igno <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	652	767	
==>rgs);
if ($rv == 0) {
    if ($prompt_register) {
        print << ".";
*** Installed!  If you would like to make Pu <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	96	203	
==>self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so wh <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	96	203	
==>self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14197	14375	
==>0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $te <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14197	14375	
==>0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1916	2009	
==>ve()));
}

sub increment { num->new((shift)->to_native + 1) }
sub decrement { num->new((shift) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3807	3930	
==>subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3807	3930	
==>subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3807	3930	
==>subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      requi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1106	1225	
==>st in @$nodes can be modified at runtime
sub alternation {
    my $nodes = shift;
    return sub {
        my @state <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4553	4648	
==>1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])% <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4553	4648	
==>1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7847	7996	
==>>push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->typ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7847	7996	
==>>push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->typ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7847	7996	
==>>push( @arg );
        return $ary;
    }
    if ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5143	5293	
==>> $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5143	5293	
==>> $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5143	5293	
==>> $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @ro <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3416	3508	
==>The Cipher API is fundamentally object-oriented; the procedural and functional 
interfaces ar <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3416	3508	
==>The Cipher API is fundamentally object-oriented; the procedural and functional 
interfaces ar <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5641	5821	
==>itle => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$tem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6683	6828	
==>2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6683	6828	
==>2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5070	5217	
==>Nil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5070	5217	
==>Nil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5070	5217	
==>Nil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    m <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1627	1783	
==>ch Newton's method
              uses to update its guess at each iteration)
    verbose - a boolean which will turn on per iteration printing
    
If you om <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	733	827	
==>ile = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	733	827	
==>ile = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8227	8327	
==>_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#====================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8227	8327	
==>_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#====================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8227	8327	
==>_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#====================== <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2155	2319	
==>b { # $int
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                scalar @{$self->get_value('@:slots') <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1643	1752	
==>tmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33541	33630	
==><intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38091	38180	
==><intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-metho <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2427	2544	
==>pattern
    Block       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1429	1524	
==>ptography are there.  See those modules for details.

The C<new> constructor takes only one opti <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1429	1524	
==>ptography are there.  See those modules for details.

The C<new> constructor takes only one opti <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28328	28428	
==>imit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsuccessful capture.
(a\1) is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25075	25171	
==>ther the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29627	29723	
==>ther the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $o <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13356	13470	
==>hash.delete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1>{@keys}         %hash<k <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	302	398	
==>>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	302	398	
==>>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5573	5678	
==>_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5573	5678	
==>_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5573	5678	
==>_[0]{default}() }
    sub required { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4210	4323	
==>n(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4210	4323	
==>n(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4210	4323	
==>n(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2316	2426	
==>ubroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2316	2426	
==>ubroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2663	2773	
==>ubroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23450	23590	
==>{
    if (@superclasses.defined) {
        for @superclasses -> $super {
            $super.add_subclass($self);
        }
        @:supercla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4438	4549	
==>put {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4438	4549	
==>put {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4157	4280	
==>urn bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4157	4280	
==>urn bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4157	4280	
==>urn bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5255	5380	
==>eturn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->co <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5255	5380	
==>eturn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->co <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5845	5970	
==>eturn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16644	16744	
==>rst time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> li <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16644	16744	
==>rst time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13409	13544	
==>ispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13409	13544	
==>ispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13409	13544	
==>ispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7198	7318	
==>le @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7198	7318	
==>le @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7198	7318	
==>le @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6993	7117	
==>from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6993	7117	
==>from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6993	7117	
==>from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{end};
    my $c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13810	13914	
==>e solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13810	13914	
==>e solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1134	1296	
==>->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1134	1296	
==>->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1134	1296	
==>->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11086	11243	
==>? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1560	1701	
==>? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1560	1701	
==>? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7092	7218	
==>VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7092	7218	
==>VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . jo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7092	7218	
==>VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKUP;
    my $backup      = "var " . jo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1350	1470	
==>rname;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1350	1470	
==>rname;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5096	5189	
==>ckage type::operator::arrow;
use base qw/type::operator::binary/;

sub symbol { "→" }
sub is <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3858	3967	
==>ope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3858	3967	
==>ope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	708	817	
==>ope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmts';

node_s 'PIL_Stmt',             ' <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9078	9199	
==>ENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT start
        undef $kind, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12062	12153	
==>urns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12062	12153	
==>urns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4218	4325	
==>with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add_method('do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4218	4325	
==>with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add_method('do <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4218	4325	
==>with 
## meta-circularity issues and other such ugliness 

## introspective methods

$::Role->add_method('do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4916	5031	
==>tput");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4916	5031	
==>tput");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4916	5031	
==>tput");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $@ and return if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	171	271	
==>e::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	171	271	
==>e::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	171	271	
==>e::Int
# Perl6::Value::Str
# Perl6::Value::Bit - bool::* taint::*
# Perl6::Value::List (separate file <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2071	2167	
==>eturn Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2071	2167	
==>eturn Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2071	2167	
==>eturn Perl5.perl_eval("(sub { local $/; my $f = IO::File->new(\'<\'.$_[0]) or die $!; return <$f> <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	43	130	
==>e Date::Format::ISO8601;

our $iso8601_duration_re_anchored = rx:perl5/^$iso8601_duratio <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8214	8300	
==>vent<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8214	8300	
==>vent<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4252	4369	
==>lemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4252	4369	
==>lemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4252	4369	
==>lemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $::Object ],
    class => {
        a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17472	17589	
==>rm to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17472	17589	
==>rm to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17472	17589	
==>rm to the Package interface

$::Class->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1114	1199	
==>le Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContex <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1114	1199	
==>le Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContex <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4891	5009	
==>un.

Those are the only valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4891	5009	
==>un.

Those are the only valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6415	6533	
==>un.

Those are the only valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	436	533	
==>ef;
$::Module     = undef;
$::EigenClass = undef;

## -------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	436	533	
==>ef;
$::Module     = undef;
$::EigenClass = undef;

## -------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	436	533	
==>ef;
$::Module     = undef;
$::EigenClass = undef;

## -------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5330	5455	
==>e, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5330	5455	
==>e, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5330	5455	
==>e, but as &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	904	1004	
==>hing/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skippi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	904	1004	
==>hing/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skippi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	904	1004	
==>hing/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but skippi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18746	18864	
==>_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_rang <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18746	18864	
==>_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_rang <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18746	18864	
==>_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_rang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3636	3766	
==>ostcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3636	3766	
==>ostcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    el <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3636	3766	
==>ostcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1828	1932	
==>1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1828	1932	
==>1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1828	1932	
==>1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	556	653	
==>>{file} does not exist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9094	9205	
==>( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9094	9205	
==>( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	248	365	
==>ut "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	248	365	
==>ut "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	248	365	
==>ut "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	154	267	
==>::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	154	267	
==>::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	154	267	
==>::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4863	4985	
==>= ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4863	4985	
==>= ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4863	4985	
==>= ref($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8824	8957	
==>@maybe;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the pack <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5988	6100	
==>w {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5988	6100	
==>w {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	31	132	
==>l6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options available through the env <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	68	159	
==>r for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	68	159	
==>r for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4352	4447	
==>altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4352	4447	
==>altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4352	4447	
==>altered.delete('ov');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2703	2812	
==>VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!" <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2703	2812	
==>VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!" <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1570	1661	
==>match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (thi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1570	1661	
==>match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (thi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12640	12727	
==>ter(char(C)) --> "\\", ("c","C"), [Open], brackets(Open,Close),
  p6_named_character_tai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20620	20720	
==>r/Handlers.pm>.  That file might end up being where
documentation on writing handlers goes.

The docu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	238	378	
==>od param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	238	378	
==>od param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @va <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10940	11042	
==>ion, linuxrc, and welcome.p6 to the initrd",
    help   => "Note: You might want to strip pugs and parr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4501	4621	
==>sif ($closure->isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push($closure-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9945	10047	
==>cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9945	10047	
==>cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9978	10080	
==>^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9978	10080	
==>^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9978	10080	
==>^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1036	1160	
==>elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1036	1160	
==>elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1036	1160	
==>elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5746	5892	
==>=> [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                } <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5746	5892	
==>=> [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6514	6617	
==>s isn't quite as fancy as Test::More::like().

sub like   ($$@) { like_yn (0,@_) }; # 0 for -
sub unlike <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1766	1875	
==>e>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1766	1875	
==>e>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1194	1298	
==>6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1194	1298	
==>6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1194	1298	
==>6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1544	1647	
==>ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1544	1647	
==>ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1544	1647	
==>ref $self->{pFun}->{pLV}->{pVarName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	179	285	
==>n $class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	179	285	
==>n $class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1856	2052	
==>sh('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1856	2052	
==>sh('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5300	5401	
==>hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6023	6150	
==>ulate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6023	6150	
==>ulate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6023	6150	
==>ulate it ..
        $self->MRO();
        
        # the eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	856	955	
==>",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	856	955	
==>",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	856	955	
==>",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}- <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2630	2760	
==>Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2630	2760	
==>Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.s <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	436	564	
==>equire ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search - <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	436	564	
==>equire ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1415	1523	
==>die "can't open $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3070	3175	
==>= join('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3070	3175	
==>= join('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4639	4740	
==>TODO' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1558	1684	
==>er :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1558	1684	
==>er :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1558	1684	
==>er :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5541	5646	
==>::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5541	5646	
==>::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5541	5646	
==>::Rebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3134	3291	
==>n $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3134	3291	
==>n $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3134	3291	
==>n $@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; n <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	215	327	
==>Need at least one package';

my %indexed = map { $_->{package} => $_ } LoadFile( $Repoindex ); 

for my $pkg (@AR <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32989	33089	
==>tem C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32989	33089	
==>tem C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12262	12405	
==>t );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8538	8681	
==>t );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9373	9516	
==>t );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	849	959	
==>= ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	849	959	
==>= ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	849	959	
==>= ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23358	23469	
==>p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(subs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23358	23469	
==>p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(subs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23358	23469	
==>p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3322	3446	
==>now at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3322	3446	
==>now at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3322	3446	
==>now at compile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1204	1325	
==>ut();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1204	1325	
==>ut();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1284	1405	
==>ut();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1104	1207	
==>ssname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1104	1207	
==>ssname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1104	1207	
==>ssname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4770	4921	
==>le( $Available, @uninstalled );
    
    ### unisntall metadata
    system(qq[rm -rf $meta])                                    and die $?;

    print " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1884	2019	
==>> $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1884	2019	
==>> $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38252	38363	
==>op @kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch';

    for (@kids) {
      $_ = $self->{rx}->object <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3810	3904	
==>erl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module whic <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3810	3904	
==>erl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module whic <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9307	9445	
==>windows
            # land, and it has an executable extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ m{^(?:/cyg <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9621	9737	
==>className == "details") {
	elem.className = "";  /* hack? */
	expander.innerHTML = "&laquo;";
      } else {
	elem.cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13181	13302	
==>)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13181	13302	
==>)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13181	13302	
==>)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5567	5686	
==>, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5567	5686	
==>, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5567	5686	
==>, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10073	10201	
==>()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10073	10201	
==>()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10073	10201	
==>()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5r($p5r);
}
sub p6_eval_file {
    my($fn)=@_;
    open IN, $fn <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4976	5090	
==>thod expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4976	5090	
==>thod expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6806	6917	
==>char([C])}.
%# XXX - needs overhaul
p5_metachar("\\").
p5_metachar("\|").
p5_metachar("?").
p5_metachar("*").
p5 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	609	712	
==>nvocant must be an opaque type";
    $self->SUPER::do($args);
}

sub _bind_params {
    my ($self, $args <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4715	4814	
==>1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

Th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4855	4954	
==>1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13624	13768	
==>y->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13624	13768	
==>y->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13624	13768	
==>y->isa( 'Num' ) ||
        $key->isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unbox <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1332	1438	
==>ove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # part of spec.  eew.

    ($pil_code <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30336	30434	
==>late module ideally comes as part of a set, at least one member
large, with each set member being a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30336	30434	
==>late module ideally comes as part of a set, at least one member
large, with each set member being a <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10002	10131	
==>0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl5 open, it isn't very dwimmy.

    ### XXX: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5154	5268	
==>se the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5154	5268	
==>se the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1062	1271	
==>'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1062	1271	
==>'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7094	7212	
==>' => { foo => sub { 'rFoo::foo' } }
);
ok($rFoo->does('Role'), '... rFoo now does Role');

my $rBar = $Role->new(
    ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1062	1165	
==>ub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is lik <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1062	1165	
==>ub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is lik <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1062	1165	
==>ub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is lik <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2122	2220	
==>_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2122	2220	
==>_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedTex <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5032	5170	
==>defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Chec <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5032	5170	
==>defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Chec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5560	5675	
==>ories first if it's a dir -> dir
    ### move. Which means a bit more work, as file::copy doesn't do it for
    ## u <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10383	10484	
==>ber of items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10383	10484	
==>ber of items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7912	8034	
==>"prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7912	8034	
==>"prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1987	2097	
==>le;
        die "all_from: cannot find $file from $name" unless -e $file;
    }

    $self->version_from($file) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3904	4013	
==>self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3904	4013	
==>self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3904	4013	
==>self{$_} };
  } elsif $self.isa("Pair") {
    ($self,);
  } elsif $self.isa("Array") {
    $self.keys.map:{; $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6089	6194	
==>tialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6089	6194	
==>tialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6089	6194	
==>tialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubNa <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9848	10058	
==>ix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6050	6148	
==>rune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6050	6148	
==>rune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6050	6148	
==>rune
(skip) subtrees in the recursion of $myobj. All it needs to do to signal
this is to return the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8615	8719	
==>r $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
} <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8615	8719	
==>r $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18021	18197	
==>all the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # cons <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18021	18197	
==>all the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # cons <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18021	18197	
==>all the method
                return $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # cons <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	499	645	
==>q 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	499	645	
==>q 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9928	10046	
==>e dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  $inst_pkg->prefix <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	896	1008	
==>n the list if we have no more no-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16542	16637	
==>parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead st <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16542	16637	
==>parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead st <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	227	328	
==>on;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "wert" <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2355	2443	
==>urn ($self.size < $other.size && $other.includes($self.members));
}
method superset($self <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2355	2443	
==>urn ($self.size < $other.size && $other.includes($self.members));
}
method superset($self <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24345	24485	
==>e::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = type::variable::free->new,
	);
	$a->instantiate($b);
	is($type->strin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18954	19049	
==>this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18954	19049	
==>this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28133	28234	
==>> the following
methods:

=over 4

=item my $d = $obj->data()

The object's data.  This might be an ar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19877	19974	
==>l return two
values; the user name and the password.  In scalar context it will
return I<"uname:pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19877	19974	
==>l return two
values; the user name and the password.  In scalar context it will
return I<"uname:pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9025	9162	
==>them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9025	9162	
==>them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9025	9162	
==>them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8328	8451	
==>ontiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create spa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8328	8451	
==>ontiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create spa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8328	8451	
==>ontiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create spa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1075	1198	
==>_PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1117	1240	
==>_PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	72	174	
==>e JIB::Config;
use JIB::Source;

use Path::Class ();
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls -1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23710	23823	
==>($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23710	23823	
==>($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23710	23823	
==>($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI S <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8869	9001	
==>,'$_m0_',
         '$_a_','$_s_','$_at_','$_prev_');
        my $code = "Rul.new(:f(sub($str)\{
           my $re = $hook$adverbs$qo$ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2757	2850	
==>tem B<source>

=item B<source($new_source)>

Returns the representation of this node in the or <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2757	2850	
==>tem B<source>

=item B<source($new_source)>

Returns the representation of this node in the or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2495	2620	
==>d([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2495	2620	
==>d([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2495	2620	
==>d([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1395	1518	
==>pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4520	4640	
==>pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4520	4640	
==>pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2654	2775	
==>lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2654	2775	
==>lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2654	2775	
==>lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lan <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2404	2523	
==>nblock;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @fil <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8636	8724	
==>also describes the same-number versions of Rosetta::Model::Document
("Document") and Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8636	8724	
==>also describes the same-number versions of Rosetta::Model::Document
("Document") and Rose <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2051	2158	
==>>( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2051	2158	
==>>( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \& <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1736	1829	
==>ding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1736	1829	
==>ding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=h <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28911	29026	
==>YE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.], <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28911	29026	
==>YE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to quit.], <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	274	381	
==>YE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to quit.], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2818	2924	
==>f).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2818	2924	
==>f).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

us <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2818	2924	
==>f).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confess';

us <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3891	4011	
==>elf;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32704	32799	
==>the new Relation contains all the tuples of the source Relations, including
one copy each of any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37254	37349	
==>the new Relation contains all the tuples of the source Relations, including
one copy each of any <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3841	3987	
==>ecurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3841	3987	
==>ecurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3841	3987	
==>ecurse->($elem);
            }
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $val (values %$slot) {        # ... and a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16549	16659	
==>y ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16549	16659	
==>y ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16549	16659	
==>y ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	969	1080	
==>already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	969	1080	
==>already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3720	3808	
==>ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile(<<'RULE')->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18886	19020	
==>oto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18886	19020	
==>oto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18886	19020	
==>oto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispa <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14332	14440	
==>lues would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.0000000 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14332	14440	
==>lues would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.0000000 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2191	2284	
==>my %results = $strap->analyze($name, \@test_output);

Analyzes the output of a single test, as <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14318	14421	
==>And of course man perlapi, etc.

  The perl regexp engine was long ago derived from Henry Spencer's
  re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	381	484	
==>imitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	381	484	
==>imitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	381	484	
==>imitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2037	2134	
==>me = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2037	2134	
==>me = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2037	2134	
==>me = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:pr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5470	5585	
==>ts);
}
NODE PPad ($pScope, $pSyms, $pStmts) {
    my(@vars);
    for (@$pSyms) {
	my($var)=@$_;
        push(@vars,$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1156	1264	
==>{
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2321	2429	
==>{
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_ob <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6796	6892	
==>pan1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6796	6892	
==>pan1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	213	317	
==>core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	213	317	
==>core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	213	317	
==>core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (which are ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13742	13878	
==>\$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9926	10062	
==>\$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10762	10898	
==>\$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3557	3714	
==>");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then usin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3557	3714	
==>");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then usin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5081	5238	
==>");
     }
     else {
        $Test.ok($got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then usin <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1638	1736	
==>atch.match> to fill (this introduces a new scope).
If no $num or $name is given, a new scope is int <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1638	1736	
==>atch.match> to fill (this introduces a new scope).
If no $num or $name is given, a new scope is int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1234	1336	
==>if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::glob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1234	1336	
==>if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::glob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1234	1336	
==>if $timeout;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::glob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4153	4325	
==>> &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4153	4325	
==>> &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4153	4325	
==>> &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23582	23750	
==>nly fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23582	23750	
==>nly fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23582	23750	
==>nly fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        return $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19201	19327	
==>A;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never happen.  Please contact the author im <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	204	309	
==>gex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <co <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	204	309	
==>gex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1752	1876	
==>if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; abortin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1752	1876	
==>if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; abortin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1752	1876	
==>if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; abortin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4593	4692	
==>6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4593	4692	
==>6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4593	4692	
==>6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	682	803	
==>ew_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie::Reducer::DynamicSco <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19090	19180	
==>removal does I<not> happen automatically if using the header(),
push_header() or init_heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19090	19180	
==>removal does I<not> happen automatically if using the header(),
push_header() or init_heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1182	1284	
==>Module::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    retur <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1182	1284	
==>Module::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4043	4205	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4043	4205	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26096	26191	
==>g of this Relation::Example.  Each attribute name is a character
string.

=item C<$!body> - B<Re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8835	8928	
==>rl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Gr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2660	2753	
==>rl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4532	4634	
==>;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4532	4634	
==>;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4532	4634	
==>;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) is pri <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13403	13496	
==>ment (with member
Nodes) to the one you first invoked export_as_hash() on.

Specifically, expo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13403	13496	
==>ment (with member
Nodes) to the one you first invoked export_as_hash() on.

Specifically, expo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24586	24670	
==>ndef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2380	2495	
==>ss;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2380	2495	
==>ss;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2380	2495	
==>ss;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	190	291	
==>to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# wit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	190	291	
==>to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# wit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	190	291	
==>to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAsLoaded -CPIL ...normal options here...
# wit <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20119	20212	
==>:string_as_number(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2371	2462	
==>res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Infinite <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2371	2462	
==>res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Infinite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3680	3827	
==>s defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3680	3827	
==>s defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3680	3827	
==>s defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7246	7378	
==>m not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7246	7378	
==>m not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7246	7378	
==>m not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{class_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5702	5822	
==>",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5702	5822	
==>",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5702	5822	
==>",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14827	14950	
==>rs = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14827	14950	
==>rs = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14827	14950	
==>rs = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	158	260	
==>:STD];
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head1 METHODS

=head2 $alt = <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5134	5233	
==>ad> method reads a config file, and returns a boolean value
of success or failure

=item data

The C <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5134	5233	
==>ad> method reads a config file, and returns a boolean value
of success or failure

=item data

The C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3709	3840	
==>eys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3709	3840	
==>eys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3709	3840	
==>eys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2190	2296	
==>iner = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2190	2296	
==>iner = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2190	2296	
==>iner = $jsname;
  var backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	449	555	
==>SAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without the JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	449	555	
==>SAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without the JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	449	555	
==>SAN._exportList does the actual exporting.
      // We box all subs so they can be accessed without the JS: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	111	355	
==>le::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	111	355	
==>le::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3279	3406	
==>s;
}

sub params  { (shift)->{params}  }
sub returns { (shift)->{returns} }

sub equal_to {
    my ($left, $right) = @_;
    ($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	783	894	
==>ethods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	783	894	
==>ethods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	783	894	
==>ethods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17029	17124	
==>ly accessable manner, such that would not be possible if its
functionality was subsumed into a l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17029	17124	
==>ly accessable manner, such that would not be possible if its
functionality was subsumed into a l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1438	1553	
==>y_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;& <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1438	1553	
==>y_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;& <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17418	17524	
==>] eq $expected : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_like
#
# Combination of run_perl() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	20	133	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	20	133	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	20	133	
==>use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

su <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	540	650	
==>variable};
}

sub SessionClear() {
    %Session=();
}

sub SessionCode(@variables) {
    my(@coded);
    for(@v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2784	2893	
==>ase $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2784	2893	
==>ase $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	805	909	
==>azy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and spar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	805	909	
==>azy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and spar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	805	909	
==>azy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and spar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7164	7272	
==>nless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3768	3876	
==>nless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4617	4725	
==>nless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8035	8140	
==>pty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8035	8140	
==>pty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $sp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24131	24236	
==>l('-text' => 'last'))";
}
sub p6_next_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopCont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37907	38023	
==>'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37907	38023	
==>'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37907	38023	
==>'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1292	1399	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1292	1399	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1292	1399	
==>method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aPair,
      " <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1440	1553	
==>!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This module provides a Perl inte <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	5	97	
==>---------------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  Thi <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	5	97	
==>---------------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  Thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11364	11513	
==>spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11364	11513	
==>spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11364	11513	
==>spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15644	15784	
==>sub {
                my $e = shift;
                $e->create('$attrs' => hash->new());
                $e->create('&dispatcher' => $e->get <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6542	6662	
==>erator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6542	6662	
==>erator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	590	688	
==>dent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	590	688	
==>dent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	590	688	
==>dent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{[ PIL::add_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6134	6262	
==>y @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6134	6262	
==>y @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6134	6262	
==>y @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6221	6350	
==>y $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "No <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6221	6350	
==>y $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "No <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6221	6350	
==>y $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "No <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6344	6451	
==>ns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6344	6451	
==>ns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8541	8648	
==>ns Str>

This handles the specific details of TAP output for TODO tests.

=item B<status returns Hash>

This <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1231	1334	
==>\n";
    unlink $pilfn or die "Couldn't remove \"$pilfn\": $!\n";
    unlink $fn or die "Couldn't remove <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1183	1279	
==>so that later `use` or `require` statements 
will find modules which are not located on Pugs's de <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1183	1279	
==>so that later `use` or `require` statements 
will find modules which are not located on Pugs's de <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11849	12036	
==>t;
                $e->get('?%params')
                  ->is_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('?%params' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16400	16495	
==>l named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16400	16495	
==>l named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4410	4613	
==>ol ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                named => { $label => $match },
                match => [] <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	631	744	
==>meit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

= <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	631	744	
==>meit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	124	223	
==>age and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	124	223	
==>age and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	124	223	
==>age and ::Module
# (also the ::EigenClass too)

# From Answers.com:
# According to the Gnostics, the <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1614	1740	
==>al $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1581	1707	
==>al $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13093	13235	
==>$b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _prep <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13093	13235	
==>$b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _prep <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1398	1485	
==>type::variable::instantiated: layout($$) = { $.instance }
type::operator::nullary: layou <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12044	12136	
==>ies($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-m <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12044	12136	
==>ies($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2386	2478	
==>lue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2386	2478	
==>lue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2386	2478	
==>lue;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8194	8276	
==>UGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8194	8276	
==>UGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8194	8276	
==>UGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1697	1817	
==>default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; ca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1697	1817	
==>default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; ca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1697	1817	
==>default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (default: undef; ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1743	1859	
==>age?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1743	1859	
==>age?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1743	1859	
==>age?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22643	22743	
==>er the tree has been created, this key is deleted; this gives the
code a way to be sure compilation w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2797	2894	
==>s, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all the p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2797	2894	
==>s, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1030	1156	
==>input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1030	1156	
==>input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1030	1156	
==>input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple files at once!" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16989	17169	
==>oxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16989	17169	
==>oxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16989	17169	
==>oxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4070	4170	
==>riskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSlashOrAste <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1719	1815	
==>able lookup), App (application) and Lit (literal).



App is divided to Multiple, Single and Prim <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1650	1744	
==>able lookup), App (application) and Lit (literal).

App is divided to Multiple, Single and Prim <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1570	1665	
==>nt-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1570	1665	
==>nt-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	878	1008	
==>ub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	878	1008	
==>ub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	878	1008	
==>ub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub ::opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	944	1044	
==>nd automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	944	1044	
==>nd automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	944	1044	
==>nd automatically load it.
  # Pugs doesn't know that we've a precompiled copy of Test.pm lying around <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2199	2350	
==>ile;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
	        print "{}\n";
		next;
	    } e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1917	2007	
==>ents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2006	2096	
==>ents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7404	7517	
==>e -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7404	7517	
==>e -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7404	7517	
==>e -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2167	2270	
==>});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2167	2270	
==>});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2167	2270	
==>});

::Class.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5327	5452	
==>ently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pAr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5327	5452	
==>ently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pAr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5327	5452	
==>ently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pAr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1270	1377	
==>ts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1270	1377	
==>ts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1270	1377	
==>ts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_B <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6253	6403	
==>e_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6253	6403	
==>e_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16925	17041	
==>"# STATUS: $status\n";
    }

    # Use the first line of the program as a name if none was given
    unless( $name ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2508	2608	
==>ludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2508	2608	
==>ludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2508	2608	
==>ludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1262	1363	
==>pendencies.  Please wait...\n\n";

    # XXX - instead of --user, use our own package-conf storage pos <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	944	1039	
==>erldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes ar <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	944	1039	
==>erldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	276	392	
==>le::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2645	2737	
==>m C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and 'value' p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2645	2737	
==>m C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and 'value' p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3323	3419	
==>s,
running those tests, and then telling this module to compare the received
output to the expect <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3323	3419	
==>s,
running those tests, and then telling this module to compare the received
output to the expect <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3403	3499	
==>s,
running those tests, and then telling this module to compare the received
output to the expect <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	462	564	
==>the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	462	564	
==>the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = gram <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2297	2422	
==>? JIB::Package::Source->Object::Accessor::new           :
            $args->{installation}   
                ? JIB::Package: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14697	14794	
==>ded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\n". <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14697	14794	
==>ded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\n". <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2827	2928	
==>th line\n8th line\n9th line\n10th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14988	15080	
==>umeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All the <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14988	15080	
==>umeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4111	4265	
==>1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4111	4265	
==>1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $mat <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4168	4269	
==>ble by Pugs which will
    introduce Pugs.
  --splashscreen=$splashscreen
    The file referenced by - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	42	143	
==>he output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	42	143	
==>he output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	42	143	
==>he output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVal, not PVal) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21569	21713	
==>sa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21569	21713	
==>sa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21569	21713	
==>sa( $_, 'Scalar' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2285	2396	
==>tion (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2285	2396	
==>tion (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2285	2396	
==>tion (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	215	311	
==>ert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesa <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	215	311	
==>ert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28229	28322	
==>body () returns Set of Mapping(Str) of Any>

This method returns this Relation::Example's body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10089	10226	
==>ms;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10089	10226	
==>ms;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10089	10226	
==>ms;
                #warn "Missing $diff elements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	467	586	
==>cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	467	586	
==>cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	467	586	
==>cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provide lazy access to sublists
# * ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9648	9810	
==>f->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9648	9810	
==>f->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9648	9810	
==>f->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param into a H <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1578	1702	
==>my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1373	1495	
==>my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is always required, e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5598	5700	
==>cto_type = $node->type;
		
		warn "attempting to unify " . $node->struct_equiv . " whose type is " . $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2310	2577	
==>ody'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5787	6054	
==>ody'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4717	4984	
==>ody'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4829	4929	
==>$max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4829	4929	
==>$max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4829	4929	
==>$max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5650	5795	
==>]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5650	5795	
==>]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4343	4439	
==>ts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4343	4439	
==>ts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4343	4439	
==>ts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toN <==
3	/Users/nnunley/pugs/util/func_refact.pl	542	651	
==>re computed.
END
    exit 0;
}
 
our $nodes = YAML::LoadFile($Conf{nodes}) or
        die "can't load nodes da <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	622	717	
==>graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	622	717	
==>graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	986	1084	
==>m B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	986	1084	
==>m B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1542	1640	
==>m B<diag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	747	871	
==>esHeader();
    if ($location.defined) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	365	472	
==>things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	365	472	
==>things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1265	1365	
==>t
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1265	1365	
==>t
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1265	1365	
==>t
# * Fixed stringification of unboxed values
# * New parameter 'max' in perl() and str() methods - c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4199	4373	
==>(use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4199	4373	
==>(use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $mat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19396	19487	
==>thod _product (Relation::Example $other!) returns Relation::Example {
    return Relation::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2959	3088	
==>S.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2959	3088	
==>S.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2959	3088	
==>S.Hash;
      for(var i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2245	2339	
==>pile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2245	2339	
==>pile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2245	2339	
==>pile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compil <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	405	548	
==>> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            } <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	405	548	
==>> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            } <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3761	3853	
==>b}; $1/;
    $makefile =~ s!("-MExtUtils::Command::MM")!"-I../../inc" "-I../inc" "-Iinc" $1!g <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15478	15573	
==>ot, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15536	15631	
==>ot, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16954	17041	
==>attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16954	17041	
==>attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16954	17041	
==>attribute('@:superclasses'     => ::make_attribute('@:superclasses'));
$::Class->add_att <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13555	13720	
==>grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13834	13999	
==>grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8776	8880	
==>px; border-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2014	2157	
==>ull',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2014	2157	
==>ull',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16960	17066	
==>$v);
    unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for inline code, once for the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4449	4582	
==>e::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4449	4582	
==>e::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4449	4582	
==>e::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	382	480	
==>context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	382	480	
==>context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	382	480	
==>context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added required <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40482	40599	
==>, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40482	40599	
==>, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40482	40599	
==>, $value->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2032	2152	
==>incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub state <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2032	2152	
==>incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub state <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2032	2152	
==>incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$code();
    }
}
multi sub state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9099	9225	
==>t #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @ke <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12952	13074	
==>t #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @ke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12952	13074	
==>t #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %hash ]}\n";
    my @ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	157	259	
==>(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	157	259	
==>(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	157	259	
==>(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[0] }

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11342	11522	
==>_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11342	11522	
==>_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11342	11522	
==>_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9720	9809	
==>patcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9720	9809	
==>patcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9720	9809	
==>patcher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4223	4363	
==>t name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4223	4363	
==>t name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4223	4363	
==>t name is not visible to binding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1886	1986	
==>e specified in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1886	1986	
==>e specified in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11566	11659	
==>body(L), !.
p5_comment_body([])    --> {true}.

p6_comment --> "#", rest_of_line(_).
rest_of_l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2363	2527	
==>]->bool,
                str   => \$_[0],
                from  => \$_[3]{match}[0]->from,
                to    => \$_[3]{match}[1]->to,
                named = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3249	3393	
==>1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3496	3640	
==>1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16315	16454	
==>return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16315	16454	
==>return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16315	16454	
==>return_value;
        # check if this is a private method
        if ($label =~ /^_/) {           
            confess "Private Method ($lab <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	818	924	
==>::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import {
	# get the for <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	857	955	
==>simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	857	955	
==>simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10401	10499	
==>the life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_' a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10401	10499	
==>the life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_' a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7501	7600	
==>@ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7501	7600	
==>@ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7501	7600	
==>@ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1938	2037	
==>)
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimetho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1938	2037	
==>)
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimetho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1938	2037	
==>)
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimetho <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11940	12058	
==>rnatives }; 

    $self->registered_alternatives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2571	2679	
==>s_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2571	2679	
==>s_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40931	41045	
==>};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40931	41045	
==>};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40931	41045	
==>};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Arr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32230	32333	
==>ly once in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36780	36883	
==>ly once in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36070	36173	
==>ly once in
the result.  With any 2 relations, the result is the same regardless of
which is the invocant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8885	8980	
==>refix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8885	8980	
==>refix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8885	8980	
==>refix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	418	523	
==>S)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->fin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	418	523	
==>S)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->fin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	418	523	
==>S)
        || confess 'You cannot change an attribute in $::CLASS using this function';
    ($::CLASS->fin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4238	4342	
==>(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4238	4342	
==>(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4238	4342	
==>(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3ahash_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6355	6464	
==>);

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := (<ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	68	169	
==>ngs;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" funct <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	64	160	
==>ngs;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" funct <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2589	2722	
==>0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m: <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2589	2722	
==>0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2528	2625	
==>ow(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2528	2625	
==>ow(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2528	2625	
==>ow(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18433	18539	
==>c;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_hand <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14854	14960	
==>c;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_hand <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26558	26663	
==>tr (symbol new @:subclasses)) push ($subclass)))

=cut

$::Class->send('add_method' => (
    # method labe <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	834	929	
==>ode );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	834	929	
==>ode );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6411	6522	
==>xed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6411	6522	
==>xed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6411	6522	
==>xed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	896	1003	
==>The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	896	1003	
==>The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	896	1003	
==>The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34696	34794	
==>entical to the original, in which case
this method returns the identity-one Relation::Example or th <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13157	13254	
==>set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13157	13254	
==>set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35145	35250	
==>hich is used when two of the same node are matched in succession.  We
also inherit visual()Z and walk()Z<> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7243	7338	
==>panying text has been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=be <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7243	7338	
==>panying text has been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=be <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7630	7736	
==>? == 0;

    $self->_restore_PERL5LIB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTATU <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	602	708	
==>[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	602	708	
==>[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2542	2749	
==>ist = LoadFile( $Available );
                push @list, $info;                
                DumpFile( $Available, @list );
            }
        }
    
        ### extract the code
        {   ### XXX we <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2840	2949	
==>return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2840	2949	
==>return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17808	17915	
==>PGE::Exp" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = defined self["value"]
    if $I0 goto end <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	986	1087	
==>ktrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	986	1087	
==>ktrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the captu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1755	1865	
==>stallation->new;

=cut

### XXX do some smart caching here -- but can't just make it a singleton
### due to sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5141	5246	
==>ttrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8618	8723	
==>ttrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.key <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	385	496	
==>PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	385	496	
==>PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	385	496	
==>PIL2JS.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Conte <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1830	1974	
==>q 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    whi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1830	1974	
==>q 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    whi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7214	7334	
==>r/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for design documents
    for (@syn) {
        m/^(\D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6500	6614	
==>aram
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::Fal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6500	6614	
==>aram
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::Fal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6500	6614	
==>aram
    #   isInvocant: !perl/@PIL::False []
    #   isLValue: !perl/@PIL::True []
    #   isLazy: !perl/@PIL::Fal <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9007	9125	
==>),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mappin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9007	9125	
==>),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mappin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5601	5704	
==>$() ,} }
RULE
*{'_my'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (my|our|local) < <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8378	8485	
==>}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8378	8485	
==>}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $matc <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1478	1581	
==>hapter 8 section 1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11088	11210	
==>$skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11088	11210	
==>$skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1220	1333	
==>=> $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1220	1333	
==>=> $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1220	1333	
==>=> $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	593	735	
==>supers ), # the MRO of all the superclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	829	927	
==>face::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do export sy <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	829	927	
==>face::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do export sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31263	31472	
==>isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31263	31472	
==>isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31263	31472	
==>isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9745	9872	
==>e)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9745	9872	
==>e)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9745	9872	
==>e)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1021	1138	
==>{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1226	1343	
==>{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1287	1404	
==>{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLO <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	58	154	
==>ct;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms qw <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1689	1783	
==>X class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs insi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	63	154	
==>6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	505	643	
==>v->new();
    $local_env->next($env);
    bless {
        body => $body,
        env  => $local_env
    } => $class;        
}

# we dont r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4198	4295	
==>on to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is signific <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4382	4479	
==>on to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is signific <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1194	1295	
==>>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1194	1295	
==>>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1194	1295	
==>>=»",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25352	25482	
==>elf = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25911	26041	
==>elf = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	10	109	
==>ekt
my $code = sub {say "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3799	3974	
==>\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3799	3974	
==>\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2573	2672	
==>}

# some of the common list operations

sub head { @{$_[0]}[0] }
sub tail { list->new(@{$_[0]}[1 .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	874	978	
==>ference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	874	978	
==>ference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	874	978	
==>ference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10175	10290	
==>keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10175	10290	
==>keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10175	10290	
==>keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12229	12352	
==>return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be don <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12229	12352	
==>return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be don <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12229	12352	
==>return this;
      };

      cc(proxy);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be don <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6407	6623	
==>use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6407	6623	
==>use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6407	6623	
==>use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	3	107	
==>kage JIB::Repository::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Mes <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18518	18618	
==>et::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 M <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18518	18618	
==>et::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 M <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11177	11273	
==>oining multiple
values in this way will not change the semantic of a header field, but
in practic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11177	11273	
==>oining multiple
values in this way will not change the semantic of a header field, but
in practic <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16508	16605	
==>he span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16508	16605	
==>he span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9428	9614	
==>ent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9428	9614	
==>ent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9428	9614	
==>ent_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1069	1168	
==>ests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1069	1168	
==>ests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1616	1715	
==>ests expected to run.

=back

=head1 METHODS

=over 4

=item B<header returns Str>

Returns a string <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3372	3479	
==>'(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3372	3479	
==>'(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3372	3479	
==>'(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    return Perl5.perl_eval(str);
  })')($code <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3453	3548	
==>y a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3453	3548	
==>y a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5650	5745	
==>y a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 METHODS

=over <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3035	3149	
==>$_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3513	3627	
==>$_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36259	36361	
==>le execution:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  # matches the first n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33591	33719	
==>, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33591	33719	
==>, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33591	33719	
==>, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6093	6216	
==>ng: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6093	6216	
==>ng: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6093	6216	
==>ng: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       o <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3984	4108	
==>PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  , <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3984	4108	
==>PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  , <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	834	958	
==>PIL_Stmt',             'PStmt', 
  'pExpr' ,'PIL_Expr';
node_h 'PIL_Stmt',             'PPos', 
  'pPos'  ,'Pos',
  'pExp'  , <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1878	1988	
==>ny nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3372	3462	
==>erver::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HTTP::Server:: <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3372	3462	
==>erver::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HTTP::Server:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3194	3328	
==>ple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
= <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3194	3328	
==>ple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4794	4922	
==>s that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4794	4922	
==>s that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4794	4922	
==>s that presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	887	991	
==><PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	887	991	
==><PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	887	991	
==><PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13373	13506	
==>ag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13373	13506	
==>ag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13373	13506	
==>ag) {
        last if $__flag eq "last";
        next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3338	3428	
==>instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3338	3428	
==>instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3338	3428	
==>instance_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5542	5650	
==>al.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::Spide <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5542	5650	
==>al.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::Spide <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5542	5650	
==>al.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::Spide <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3452	3611	
==>s -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Sy <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7917	8014	
==>od is being called, the Secret 
Police are breaking down the door and Our Heroes need any sensitiv <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7917	8014	
==>od is being called, the Secret 
Police are breaking down the door and Our Heroes need any sensitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	811	936	
==>ash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Doe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	811	936	
==>ash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Doe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	811	936	
==>ash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1124	1229	
==>syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1124	1229	
==>syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1124	1229	
==>syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied() <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10146	10239	
==>rn "$_[1] \\&{'$namespace$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1] ruleop::n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10253	10384	
==>ss "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10253	10384	
==>ss "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10253	10384	
==>ss "Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14937	15090	
==>stant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15216	15369	
==>stant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1165	1301	
==>= eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files_list( $meta->package );
            open my $fh, $file or die <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	238	359	
==>sity );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
me <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	238	359	
==>sity );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
me <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11801	11895	
==>_spec(X), !.
p6_oct_spec(char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	220	355	
==>}, $_[1], 0, [ $_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2114	2212	
==>postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2114	2212	
==>postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3124	3236	
==>s_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3124	3236	
==>s_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3124	3236	
==>s_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $_[0]->{fixedName} }
  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11286	11410	
==>dxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11286	11410	
==>dxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11286	11410	
==>dxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6165	6277	
==>ttr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6165	6277	
==>ttr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6165	6277	
==>ttr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1373	1478	
==>a("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1373	1478	
==>a("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1373	1478	
==>a("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20763	20918	
==>$elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20763	20918	
==>$elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20763	20918	
==>$elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	61	160	
==>el::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	61	160	
==>el::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	61	160	
==>el::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	411	529	
==>Could not build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @P <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1439	1550	
==>ndent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($node->isa("Blondie::Node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4975	5086	
==>m;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5197	5308	
==>m;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22136	22238	
==>} else {
	my $space = $space_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15689	15832	
==>.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information u <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19922	20065	
==>.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1537	1658	
==>$decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1537	1658	
==>$decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1537	1658	
==>$decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8002	8192	
==>key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8002	8192	
==>key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8002	8192	
==>key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3174	3286	
==>ecl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3367	3479	
==>ecl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	712	807	
==>er::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file con <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	712	807	
==>er::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file con <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	877	1035	
==>),
    ),

    '&infix:</>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_structure:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3554	3703	
==>[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3554	3703	
==>[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3554	3703	
==>[0]{supertype}{match}( $_[1] ) : 
                    ! $_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{m <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	508	632	
==>ned $x or die "Stack underflow\n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($to <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14605	14720	
==><SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14605	14720	
==><SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	946	1049	
==>::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	946	1049	
==>::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	946	1049	
==>::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and we ne <==
3	/Users/nnunley/pugs/util/package-osx.pl	2421	2511	
==>les /usr/local/share/doc/pugs/examples
        /Users/dromano/dev/pugs/docs /usr/local/shar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11829	11997	
==>$method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

rol <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11829	11997	
==>$method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

rol <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11829	11997	
==>$method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6651	6771	
==>rred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6651	6771	
==>rred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6651	6771	
==>rred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6712	6889	
==>{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test::More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'P <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1706	1807	
==>$string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) retur <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1706	1807	
==>$string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) retur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	7017	7124	
==>g',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'In <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	7017	7124	
==>g',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'In <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3916	4023	
==>g',
  'posBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16080	16175	
==>result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always check <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16080	16175	
==>result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always check <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31211	31308	
==>ich has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35761	35858	
==>ich has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; tha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34979	35076	
==>ich has a subset of the original's tuples, and it works like Perl's
standard C<grep> operator; tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5552	5648	
==>_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitali <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5552	5648	
==>_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitali <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5552	5648	
==>_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitali <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	769	896	
==>> 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	769	896	
==>> 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 = <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1503	1608	
==>ionally supply:

    epsilon - tolerance (how accurate the answer must be)
    fprime  - an exact first de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1394	1517	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1394	1517	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1394	1517	
==>q 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	47	138	
==>pe <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::U <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	47	138	
==>pe <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::U <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2632	2713	
==>ts::Subscription::Named.new(:name($name), :subscriber($subscriber), :publisher($?S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23091	23191	
==>p2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23091	23191	
==>p2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23091	23191	
==>p2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34238	34332	
==>ion $other!) returns Relation>

This method is a generic relational operator that returns the c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38788	38882	
==>ion $other!) returns Relation>

This method is a generic relational operator that returns the c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1405	1496	
==>SA, __PACKAGE__;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9996	10091	
==>progress. As new features are
added to Pugs, new test functions will be defined to facilitate th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10054	10149	
==>progress. As new features are
added to Pugs, new test functions will be defined to facilitate th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7275	7363	
==>($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code_hel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9782	9923	
==>ET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9782	9923	
==>ET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/util/func_refact.pl	852	982	
==>";
	doUnion (@{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " . unio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4401	4511	
==>-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4401	4511	
==>-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14773	14872	
==>non_numeric => sub { $as_hash_complain->("non_numeric") },
      scalar_numeric     => sub { $as_has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	792	916	
==>[ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	792	916	
==>[ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	792	916	
==>[ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4916	5031	
==>:';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4916	5031	
==>:';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4916	5031	
==>:';
    my $space = $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	523	637	
==>get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	523	637	
==>get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_cur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	523	637	
==>get {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13765	13864	
==>0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13765	13864	
==>0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13765	13864	
==>0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34793	34917	
==>Regexp::Parser::branch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7682	7841	
==>> $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junction <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7682	7841	
==>> $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junction <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7682	7841	
==>> $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junction <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	758	847	
==>> '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	758	847	
==>> '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	758	847	
==>> '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4425	4552	
==>e( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4413	4540	
==>e( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	505	609	
==>( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Rul <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5394	5510	
==>his returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5394	5510	
==>his returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7591	7707	
==>his returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3998	4108	
==>nsation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3998	4108	
==>nsation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3998	4108	
==>nsation for mm methods being mere p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2969	3081	
==>($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2969	3081	
==>($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20350	20441	
==>ssentially a linear encoding of a nondeterministic
finite-state machine (aka syntax charts o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9900	10053	
==>@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9900	10053	
==>@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9900	10053	
==>@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	764	919	
==>of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	764	919	
==>of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	764	919	
==>of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3138	3247	
==>e $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3138	3247	
==>e $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3138	3247	
==>e $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ($typ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1304	1444	
==>l_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1304	1444	
==>l_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule ma <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23519	23620	
==>Run::OnPerl5::X1::Api::Exception::Return with { @{$_[0]{"-value"}} })'
}
sub p6_loop_CODE {
    my($bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1802	1916	
==>rl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1802	1916	
==>rl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1802	1916	
==>rl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	199	305	
==>NV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  local $_;

  $args{descr}  ||= "(no descript <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18410	18505	
==>ctly the right input
format for Node.new(), by which you can create an identical Node (with
chil <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18410	18505	
==>ctly the right input
format for Node.new(), by which you can create an identical Node (with
chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9841	9951	
==>= @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9841	9951	
==>= @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9841	9951	
==>= @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14616	14752	
==>elf->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14616	14752	
==>elf->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14616	14752	
==>elf->{pops}} if @{$self->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3820	3923	
==>e wait status of the test.

=item B<Total>

Total number of tests expected to run.

=item B<Fail>

Numbe <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15640	15732	
==>haracters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15640	15732	
==>haracters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	819	998	
==>arch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unl <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	819	998	
==>arch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unl <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4897	4987	
==>\] | (\+|-) <subrule> }

rule escape_sequence { <simple_escape_sequence> | <octal_escape_se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11024	11145	
==>method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11024	11145	
==>method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11024	11145	
==>method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self, $label, %params) = @_;
    $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8804	8908	
==>info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8804	8908	
==>info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8804	8908	
==>info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	585	690	
==>{ str->new((shift)->{name}) }

# conversion to other native types
sub to_bit { bit->new(1)           }
sub <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8991	9089	
==>:Infinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These methods <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8991	9089	
==>:Infinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These methods <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2299	2420	
==>nt $chr;
		}
	        print "{}\n";
		next;
	    } elsif ($file[0] eq '=') {
		print '}\end{block}' if $inblock;
		$inbloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2837	2943	
==>$self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2837	2943	
==>$self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2837	2943	
==>$self);
  } elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	214	311	
==>../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	214	311	
==>../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	214	311	
==>../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8575	8718	
==>r $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12484	12624	
==>r $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12484	12624	
==>r $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #print "match: ",$match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7987	8130	
==>:SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7987	8130	
==>:SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7987	8130	
==>:SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14659	14829	
==>name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14659	14829	
==>name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14659	14829	
==>name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AU <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	690	805	
==>$x);
 }
 multi Math::Basic::abs ( Num $x = CALLER::<$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::flo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1235	1333	
==>Module is simply a hash from strings

(symbol names) to objects (containers)



the Code part consi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1180	1275	
==>Module is simply a hash from strings
(symbol names) to objects (containers)

the Code part consi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20825	20920	
==>evious non-Unix Mac OS) handles
lots of other program resources as data files as well, making th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20825	20920	
==>evious non-Unix Mac OS) handles
lots of other program resources as data files as well, making th <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4016	4120	
==>unexpected invocant'
	    if defined $args->{invocant};
    }

    for my $param_name (keys %{$self->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6301	6396	
==>printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6301	6396	
==>printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6301	6396	
==>printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewline = fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5930	6027	
==>yobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5930	6027	
==>yobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5930	6027	
==>yobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesser ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3990	4098	
==>ort extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->posit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3990	4098	
==>ort extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->posit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4580	4688	
==>ort extra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->posit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9874	9982	
==>1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	309	414	
==>1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	309	414	
==>1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50920	51058	
==>$e->get('$self:')
                  ->get_attr(symbol->new('$:version'))
                  ->to_bit()
                  ->and(block->new($e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2554	2658	
==>No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=po <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2554	2658	
==>No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5224	5356	
==>(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5224	5356	
==>(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5224	5356	
==>(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2562	2664	
==>$dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2562	2664	
==>$dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2562	2664	
==>$dispatcher = $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3250	3346	
==>less $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3250	3346	
==>less $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3250	3346	
==>less $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7972	8114	
==>= 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7972	8114	
==>= 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7972	8114	
==>= 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	566	680	
==>6000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	566	680	
==>6000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	566	680	
==>6000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3930	4027	
==>nd it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3930	4027	
==>nd it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3930	4027	
==>nd it's too early to implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	149	252	
==>printf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	149	252	
==>printf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	149	252	
==>printf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Constant(undefined)";
}

sub unwrap { $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16491	16587	
==>MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16491	16587	
==>MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16491	16587	
==>MULTI SUB Thread::yield ($xx) {...};
MULTI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12907	13022	
==>lt is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16384	16499	
==>lt is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15746	15861	
==>lt is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === none( $ot <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40033	40254	
==>ymbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19582	19794	
==>ymbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  - <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1464	1561	
==>ternal_hash_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  <construct>  }
rule array_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	706	827	
==>st')->FETCH('::TODO')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5318	5429	
==>);
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5318	5429	
==>);
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4730	4879	
==>) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4730	4879	
==>) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4730	4879	
==>) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name => 'Hash', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10837	10949	
==>ethod ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10837	10949	
==>ethod ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10837	10949	
==>ethod ...
        foreach my $class (@classes) {
            my $method_table = $class->[2]->{$method_table_name} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1294	1394	
==>few other objects are implemented as one of three ADTs.

=over 4

=item Unit

A unit is an encapsulat <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11725	11821	
==>mmon) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that def <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11725	11821	
==>mmon) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that def <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11450	11576	
==>sub data {
    my $self = shift;
    join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2810	2914	
==>ckages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2810	2914	
==>ckages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attri <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1230	1325	
==>taining the capability if created, and in perhaps accepting
# patches to remove roadblocks if en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11854	11976	
==>$self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11854	11976	
==>$self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11854	11976	
==>$self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11657	11787	
==><run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11657	11787	
==><run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1440	1564	
==>name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	173	274	
==>too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	173	274	
==>too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	173	274	
==>too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) with calls to & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4616	4738	
==>piler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4458	4575	
==>piler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20739	20849	
==>" if $name =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mang <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4454	4559	
==>ve children
	my $self = shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23963	24056	
==>tion object, whose Heading and
Body attributes are set respectively from the optional named pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28515	28608	
==>tion object, whose Heading and
Body attributes are set respectively from the optional named pa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	317	470	
==>o_str { str->new('') }

sub is_nil     { bit->new(1) }
sub is_not_nil { bit->new(0) }

1;

__END__

=pod

=head1 NAME 

nil - the base native nil type

=h <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	660	756	
==>his node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> prope <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	660	756	
==>his node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> prope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5623	5769	
==>else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5623	5769	
==>else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5623	5769	
==>else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10895	11049	
==>n range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $res <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10895	11049	
==>n range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4297	4404	
==>l.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4297	4404	
==>l.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4297	4404	
==>l.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed obj <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13974	14071	
==>-valued, then the
routine is called once for each value.  The field name passed to the
callback ro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13974	14071	
==>-valued, then the
routine is called once for each value.  The field name passed to the
callback ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12688	12797	
==>0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12688	12797	
==>0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12688	12797	
==>0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15763	15913	
==>eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5408	5528	
==>length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$cls emit() unimplemen <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	185	290	
==>base 'type::equivalence';

# need to load this here in 
# order for things to init 
# in the correct order <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4141	4262	
==>($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4141	4262	
==>($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4141	4262	
==>($n =~ /^([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24193	24323	
==>i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24193	24323	
==>i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i], <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24193	24323	
==>i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $ci : "",
			       [],{},@-[$i], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	362	475	
==>pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	362	475	
==>pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	362	475	
==>pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're compiling a SLet, STem <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	490	595	
==>omments;
use Filter::Simple;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2436	2529	
==>l   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2436	2529	
==>l   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	920	1064	
==>a config and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file => F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7588	7693	
==>level interface (named args) 

###    because the actual rule object will be full OO



:(Str $match_again <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7330	7432	
==>level interface (named args) 
###    because the actual rule object will be full OO

:(Str $match_again <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16167	16282	
==>= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Rule" ]

.sub " <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1082	1181	
==>_smoke();
  clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param("v <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18682	18776	
==>ke what the core expects to avoid problems.  While simultaneously
trying to avoid triggering co <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2972	3066	
==>ke what the core expects to avoid problems.  While simultaneously
trying to avoid triggering co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1101	1237	
==>e_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1306	1442	
==>e_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28992	29087	
==>aving new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33544	33639	
==>aving new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32681	32776	
==>aving new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1849	1974	
==>on
### due to stacked installations
{   my $config  = JIB::Config->new;

    my %cache = ();

    sub new { 
        my $class <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3850	3948	
==>he
latter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3850	3948	
==>he
latter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5852	5953	
==>e
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5852	5953	
==>e
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8049	8150	
==>e
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5086	5210	
==>ters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5086	5210	
==>ters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->colle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5086	5210	
==>ters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->colle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7730	7929	
==>ported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7730	7929	
==>ported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7730	7929	
==>ported";
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7601	7708	
==>sing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7601	7708	
==>sing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $di <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7601	7708	
==>sing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $di <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	374	478	
==>ody>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.rem <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	374	478	
==>ody>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.rem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1532	1627	
==>return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1532	1627	
==>return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1532	1627	
==>return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(functi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	331	471	
==>ics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	331	471	
==>ics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48410	48497	
==>ass->send('new');
$::Module->send('superclasses' => list->new($::Package));


$::Module- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7606	7752	
==>signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::V <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7606	7752	
==>signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::V <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10954	11086	
==>os = mfrom 
    lastpos = length target
    $S0 = substr target, pos, 2
    if $S0 == "<?" goto nocapture
    if $S0 == "<!" goto neg <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1558	1661	
==>method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1558	1661	
==>method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16334	16463	
==>g}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16334	16463	
==>g}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	104	207	
==>5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	104	207	
==>5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	104	207	
==>5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9115	9259	
==>alar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9115	9259	
==>alar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9115	9259	
==>alar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8879	8996	
==>de = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8879	8996	
==>de = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8879	8996	
==>de = $default->expand(); # XXX - abstraction violation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	721	845	
==>ep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::RuleCompiler->compile($source);
    #print '*{\''. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1619	1726	
==>umber(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1619	1726	
==>umber(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1619	1726	
==>umber(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4336	4466	
==>match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4348	4478	
==>match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52953	53073	
==>rsion'   => 'str'));        
    $meta->add_attr(symbol->new('$:authority' => 'str'));            
}

# add their names i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	606	854	
==>( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	606	854	
==>( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	606	854	
==>( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    else {
                        push @res, $_
                    }
                }
                #warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8305	8416	
==>[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8305	8416	
==>[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8305	8416	
==>[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTH <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13618	13738	
==>a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $? <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17095	17215	
==>a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $? <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16457	16577	
==>a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8386	8500	
==>t';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8374	8488	
==>t';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$r <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3492	3591	
==>Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs' ,'Type',
  'rh <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2377	2478	
==>/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

sub write_config_module {
    my $config = get_c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	672	790	
==>>SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	688	806	
==>>SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	664	782	
==>>SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3001	3105	
==>);
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3001	3105	
==>);
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3081	3185	
==>);
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35396	35515	
==>emaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35396	35515	
==>emaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35396	35515	
==>emaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7206	7303	
==>eaders::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7206	7303	
==>eaders::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4618	4726	
==>e]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4618	4726	
==>e]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4618	4726	
==>e]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = sh <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5183	5291	
==>mode.t if you change the fully
    # qualified name of longmess.
    multi sub longmess (; $e = '') returns S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8445	8549	
==>ions:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5983	6083	
==>ions:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3424	3533	
==>t]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() shou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3424	3533	
==>t]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() shou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3424	3533	
==>t]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() shou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	509	605	
==>al $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(bl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	509	605	
==>al $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(bl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	509	605	
==>al $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5741	5842	
==>lice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5741	5842	
==>lice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5741	5842	
==>lice}->is_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}-> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10935	11038	
==>".
		 "=> ::make_${k}(do{my \$__f".
		 "= $code_val; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$co <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4642	4721	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*6 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4642	4721	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*6 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	7	283	
==>bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[G <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	344	465	
==>using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accep <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	344	465	
==>using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accep <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	733	831	
==>lti method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.s <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	733	831	
==>lti method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4164	4266	
==>s->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4164	4266	
==>s->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4164	4266	
==>s->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_name} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15547	15663	
==>ut our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15547	15663	
==>ut our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15547	15663	
==>ut our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimeth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6589	6715	
==>$_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6589	6715	
==>$_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6589	6715	
==>$_[0]->str },

            # TODO - XXX - remove this after implementing hash slice
            'postcircumfix:{}' => sub { (sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8576	8697	
==>rev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $off <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8576	8697	
==>rev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $off <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2648	2744	
==>)<?p6ws>?\=<?p6ws>?slurp<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { slurp => $() } } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	160	265	
==>Class too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	160	265	
==>Class too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	160	265	
==>Class too)

# From Answers.com:
# According to the Gnostics, the Demiurge was able to endow man 
# only wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1745	1916	
==>not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1745	1916	
==>not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1745	1916	
==>not implemented" },
            'str' =>  sub { 
                my $sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5249	5350	
==>6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5249	5350	
==>6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5249	5350	
==>6::Value::numify( $param{end} );
    my $step =  Perl6::Value::numify( $param{step} || 1 );
    $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8953	9056	
==>outine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8953	9056	
==>outine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8953	9056	
==>outine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) {
  my $str = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1810	1950	
==>t = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1810	1950	
==>t = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1810	1950	
==>t = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.ex <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14304	14405	
==>s is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character ap <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14362	14463	
==>s is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character ap <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20811	20907	
==>LKMETH (&dispatcher (symbol new DESTROY)))))))

=cut

$::Class->send('add_method' => (
    # meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1955	2048	
==>c(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1955	2048	
==>c(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1955	2048	
==>c(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14312	14446	
==>! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{$_} // $_ }, self.split('');
    }
}


sub Pu <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	680	796	
==>fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	579	681	
==>fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4781	4878	
==>st description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This rol <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4781	4878	
==>st description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6978	7075	
==>st description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This rol <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2282	2395	
==>y '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{package} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3639	3748	
==>y '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	178	285	
==>tr = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use Benchmark;
require ' <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	800	901	
==>nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $vo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	800	901	
==>nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $vo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7492	7589	
==>Test *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextests --> Int|Lis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23324	23438	
==>RIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; yo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41248	41362	
==>RIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; yo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37274	37388	
==>RIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; yo <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5114	5209	
==>%!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5114	5209	
==>%!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys) <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	912	1006	
==>-file"} ||= "tests.yml";
$Config{"recurse"} = 1 if not defined $Config{"recurse"};
# Needed for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1721	1817	
==>XX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1721	1817	
==>XX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1721	1817	
==>XX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5030	5188	
==>$matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37229	37324	
==>akes the name of a Perl package in its positional parameter
$module_name (a string) and checks w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37229	37324	
==>akes the name of a Perl package in its positional parameter
$module_name (a string) and checks w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16014	16120	
==>eturn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16014	16120	
==>eturn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16014	16120	
==>eturn -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2141	2309	
==>method attr_name_exists of Bool (Relation::AttrName $attr_name) {...}

###########################################################################

method size of Int () <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27401	27498	
==>l be set when the object is constructed.  If you want to
conceptually change an existing Message o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27401	27498	
==>l be set when the object is constructed.  If you want to
conceptually change an existing Message o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	200	326	
==>ings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	200	326	
==>ings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	200	326	
==>ings;
  use strict;

  sub fixup {
    die unless keys %{ $_[0] } == 3;
    die unless $_[0]->{pPos}->isa("PIL::MkPos");
    di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1284	1373	
==>create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1284	1373	
==>create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1284	1373	
==>create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1145	1254	
==>x.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1145	1254	
==>x.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1145	1254	
==>x.Constant(new PIL2JS.NamedPair(%s, %s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25877	26012	
==>>
}
rule ControlEscape {  # see 15.10.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # see 15.10. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3573	3696	
==>t if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            n <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3573	3696	
==>t if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	680	815	
==>_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	680	815	
==>_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	680	815	
==>_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa { <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3018	3128	
==>atdir('..', 'Perl6-Bible', 'lib', 'Perl6', 'Bible'),catdir('..', 'perl6_doc', 'design' ))) {
        $syn_src_d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15511	15613	
==>e at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expire <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15511	15613	
==>e at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expire <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	484	588	
==>( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	484	588	
==>( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	484	588	
==>( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLASS_NO_INSTANCE,
	  method => _map_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7884	8046	
==>ing);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7884	8046	
==>ing);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7884	8046	
==>ing);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6325	6474	
==>_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6325	6474	
==>_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6325	6474	
==>_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribut <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17955	18054	
==>m each other, even if more than one uses the
same Engine class to implement it; that is, multiple DB <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17955	18054	
==>m each other, even if more than one uses the
same Engine class to implement it; that is, multiple DB <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13658	13773	
==>oin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

mult <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17135	17250	
==>oin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

mult <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16497	16612	
==>oin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

mult <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	913	1007	
==>s export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_RO <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	913	1007	
==>s export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_RO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2933	3038	
==>relude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2933	3038	
==>relude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2933	3038	
==>relude   => "the Prelude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaS <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1765	1869	
==>erl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1765	1869	
==>erl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1455	1607	
==>gc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\c[A;B] in character class") if @names > <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18226	18324	
==>t to use the same external resources, such as a repository file
on disk, it is expected that the En <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18226	18324	
==>t to use the same external resources, such as a repository file
on disk, it is expected that the En <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	367	474	
==>l::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	367	474	
==>l::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	367	474	
==>l::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	271	420	
==>>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $name, $space) = @_;
#    
#
#    $space = "" if $space =~ /\n/;
#    print "[$segil] <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3284	3384	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The ob <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3342	3442	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2366	2457	
==>Model;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2366	2457	
==>Model;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2366	2457	
==>Model;
use Perl6::Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan <==
3	/Users/nnunley/pugs/util/package-osx.pl	3098	3204	
==>istory.5.1.dylib
        /Library/Frameworks/GMP.Framework
        /Library/Perl6
        /Library/Perl/5.8 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9366	9456	
==>s encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs als <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9366	9456	
==>s encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs als <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14400	14490	
==>methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14400	14490	
==>methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14400	14490	
==>methods'));
::Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4446	4555	
==>_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4446	4555	
==>_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4446	4555	
==>_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20510	20614	
==>ew()> on the
appropriate class name, and then invoking methods on those objects.  All of
their class/obje <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25062	25166	
==>ew()> on the
appropriate class name, and then invoking methods on those objects.  All of
their class/obje <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23632	23736	
==>ew()> on the
appropriate class name, and then invoking methods on those objects.  All of
their class/obje <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13804	13909	
==>> "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13804	13909	
==>> "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4348	4451	
==>L::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4348	4451	
==>L::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4348	4451	
==>L::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{pCxt}->as_js);

    if($sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2521	2613	
==>,@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2521	2613	
==>,@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2521	2613	
==>,@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1527	1674	
==>:SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1527	1674	
==>:SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1527	1674	
==>:SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ($o->val_string)."<".($o?"1":"0").",\"$o\",[" <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3774	3941	
==>1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3774	3941	
==>1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	261	358	
==>Class { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addMethod(Method. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3340	3454	
==>1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3340	3454	
==>1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3340	3454	
==>1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19378	19474	
==>anted to upgrade or localize what text the user
sees, you only have to update said separate resou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19378	19474	
==>anted to upgrade or localize what text the user
sees, you only have to update said separate resou <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	311	430	
==>$_->isa('type'))
        || confess "You must store a native type in a list"
            foreach @values;
    bless \@va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15722	15822	
==>t blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15722	15822	
==>t blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site fo <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1407	1550	
==>$char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escap <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1407	1550	
==>$char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1614	1727	
==>=> $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^.{$po <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8408	8524	
==>$initrd_gz <= -M $bash and
      -M $initrd_gz <= -M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3193	3336	
==>:p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3193	3336	
==>:p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3193	3336	
==>:p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7649	7769	
==>erl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7649	7769	
==>erl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7649	7769	
==>erl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12526	12630	
==>an't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12526	12630	
==>an't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12526	12630	
==>an't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10790	10920	
==>hod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

-------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10790	10920	
==>hod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

-------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10790	10920	
==>hod add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribute_list;            
}

-------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	585	712	
==>{
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	585	712	
==>{
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	585	712	
==>{
      return 1 == 0 if not $_->matches($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5948	6062	
==>re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\n");
      my $c = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3263	3360	
==>m 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3263	3360	
==>m 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5296	5419	
==>ed operator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "O <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26377	26472	
==>s of the original (or rather, the corresponding projection of
each tuple), but that any duplicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30929	31024	
==>s of the original (or rather, the corresponding projection of
each tuple), but that any duplicat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29931	30026	
==>s of the original (or rather, the corresponding projection of
each tuple), but that any duplicat <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9514	9631	
==>mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9514	9631	
==>mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	655	779	
==>:SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	655	779	
==>:SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	655	779	
==>:SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9422	9563	
==>rguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9422	9563	
==>rguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9422	9563	
==>rguments); 
                # warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16078	16189	
==>( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16078	16189	
==>( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16078	16189	
==>( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12821	12950	
==>sh};
}

sub run {
    my $self = shift;
    $self->execute($self->compile(@_))->val;
}

package Interpreter;
use base qw/Reducer D <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13493	13599	
==>sult is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13493	13599	
==>sult is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6329	6529	
==>$ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend = <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6329	6529	
==>$ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	622	718	
==>C<.ref> method, which is available on any type, boxed or unboxed.

These objects are what you get <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2080	2215	
==>);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2080	2215	
==>);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing w <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9732	9837	
==>class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14456	14591	
==>ess stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14456	14591	
==>ess stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14456	14591	
==>ess stuff directly here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3110	3274	
==>->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4810	4969	
==>->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3838	3988	
==>->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3046	3179	
==>abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3046	3179	
==>abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3046	3179	
==>abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : - <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6112	6259	
==>tring'),
                Val->new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	54	176	
==>ings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no stri <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	54	176	
==>ings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no stri <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1039	1139	
==>R>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been s <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1039	1139	
==>R>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10835	10927	
==>ess("class undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method($ <==
3	/Users/nnunley/pugs/util/config_h.pl	1347	1461	
==>{
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n";
    warn << '.';

*** T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31700	31798	
==>ine either from a user config file or a user interface that the
current user is fluent in (and pref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31700	31798	
==>ine either from a user config file or a user interface that the
current user is fluent in (and pref <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1958	2050	
==>ew PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1958	2050	
==>ew PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1958	2050	
==>ew PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a instanceof PIL2JS.Re <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6585	6687	
==>ctories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6585	6687	
==>ctories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1416	1518	
==>b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2527	2675	
==>($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2732	2880	
==>($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3804	3952	
==>($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->superclas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3160	3318	
==>xt;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3160	3318	
==>xt;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3160	3318	
==>xt;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; };
            my $cod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19957	20079	
==>)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16378	16500	
==>)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &R <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1414	1568	
==>{
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0x00000 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1414	1568	
==>{
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0x00000 <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18788	18876	
==>en $length  ; $replace)
{ Pugs::Internals::substr($s,undef,$start,$length,undef,$replace) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23517	23625	
==>ent.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23517	23625	
==>ent.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23517	23625	
==>ent.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2646	2760	
==>2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2646	2760	
==>2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2646	2760	
==>2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7325	7461	
==>e = ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_sta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5699	5821	
==>g (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub pr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5757	5879	
==>g (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub pr <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2705	2824	
==>',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # smal <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2705	2824	
==>',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # smal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	373	484	
==>that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	373	484	
==>that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	373	484	
==>that thing have?
our $IN_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12403	12529	
==>ed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12403	12529	
==>ed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12403	12529	
==>ed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	8	116	
==>PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	8	116	
==>PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	8	116	
==>PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4392	4579	
==>thods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4392	4579	
==>thods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4392	4579	
==>thods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6129	6255	
==>le($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6129	6255	
==>le($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6129	6255	
==>le($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3815	3943	
==>y"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # A <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3815	3943	
==>y"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6568	6669	
==>l $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6580	6681	
==>l $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8891	9055	
==>eturn sub{ { 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12790	12912	
==>eturn sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12790	12912	
==>eturn sub{ { bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20015	20123	
==>UB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20015	20123	
==>UB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20015	20123	
==>UB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2319	2456	
==>lf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2866	3003	
==>lf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3413	3550	
==>lf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5626	5747	
==>ust provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5626	5747	
==>ust provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ / <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5626	5747	
==>ust provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3464	3565	
==>.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3464	3565	
==>.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3464	3565	
==>.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26478	26571	
==>actical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26478	26571	
==>actical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4618	4737	
==>/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4618	4737	
==>/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumpe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11019	11124	
==>y $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val), "\n";
printf"Run took: %.3f (%.3f comp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	954	1076	
==>::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub reduce_sym {
        my $self = shift;
        my $sym_node = shi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	137	233	
==>TE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	137	233	
==>TE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header fiel <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2955	3046	
==>b cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) return <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3013	3104	
==>b cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) return <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	917	1057	
==>return;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5533	5643	
==>ate')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5533	5643	
==>ate')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13803	13939	
==>s_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13803	13939	
==>s_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13803	13939	
==>s_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [], 
        methods => {},
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	412	519	
==>elf = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	412	519	
==>elf = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	412	519	
==>elf = $?CLASS.CREATE(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	651	790	
==>|| return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _dept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	651	790	
==>|| return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _dept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	651	790	
==>|| return)->{$name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _dept <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16477	16574	
==>tance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16477	16574	
==>tance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16477	16574	
==>tance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('STORE' => me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2952	3048	
==>tname of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if ava <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2952	3048	
==>tname of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if ava <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6561	6679	
==>ype);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6561	6679	
==>ype);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	380	474	
==>eta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scalar_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6505	6620	
==>this

sub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	319	419	
==>::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	319	419	
==>::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5293	5385	
==>an.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEME <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5293	5385	
==>an.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEME <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25757	25838	
==>_x(amat(_,flgs(_,_,_,x,_,_,_,_,_,_))).

%----------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8091	8230	
==>"Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8091	8230	
==>"Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8091	8230	
==>"Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	262	369	
==>>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    return $class->no_match unless $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7412	7507	
==>complement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_ne <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7412	7507	
==>complement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2090	2199	
==>: "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2090	2199	
==>: "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2090	2199	
==>: "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	553	651	
==>ict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	553	651	
==>ict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	553	651	
==>ict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1268	1372	
==>tmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1268	1372	
==>tmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1268	1372	
==>tmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	510	609	
==>y, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	510	609	
==>y, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	510	609	
==>y, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf.. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5959	6075	
==>lnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1623	1721	
==>eption {

    # External packages used by the Rosetta::Interface::Exception class, that do export s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1623	1721	
==>eption {

    # External packages used by the Rosetta::Interface::Exception class, that do export s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2422	2573	
==>al { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2422	2573	
==>al { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2422	2573	
==>al { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11022	11149	
==>tart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11022	11149	
==>tart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11022	11149	
==>tart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11024	11200	
==>AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11024	11200	
==>AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11024	11200	
==>AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4498	4606	
==>al( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4344	4448	
==>al( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34018	34112	
==>ad2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1189	1291	
==>uctor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1189	1291	
==>uctor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1189	1291	
==>uctor
#
# 2005-08-10
# * Removed method concat_list(), added "TODO" methods

# TODO - finish sum() - no <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12679	12770	
==>E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12679	12770	
==>E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2273	2378	
==>.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2273	2378	
==>.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2273	2378	
==>.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4244	4356	
==>dy);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4244	4356	
==>dy);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4244	4356	
==>dy);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9748	9939	
==>ame
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9748	9939	
==>ame
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9748	9939	
==>ame
                    if defined $self->returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	286	393	
==>key/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	286	393	
==>key/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	286	393	
==>key/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6::Cont <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17744	17855	
==>ession :words {  # see 11.11
      <BitwiseORExpression>
    | <LogicalANDExpression> <'&&'> <BitwiseORExpressio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8516	8634	
==>O = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8516	8634	
==>O = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8516	8634	
==>O = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i] <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3015	3118	
==>p $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3015	3118	
==>p $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3217	3316	
==>rint "pos $level at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5746	5960	
==>k
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_en <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6210	6424	
==>k
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_en <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11552	11653	
==>mp and exec.
  The hooks are not package-specific.

Design:

  The comp hook sub should return a subre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4538	4645	
==>ree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13917	14021	
==>rl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$ho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4321	4423	
==>ree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9911	9998	
==>lues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9911	9998	
==>lues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9911	9998	
==>lues[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_pri <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	666	782	
==>are() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	666	782	
==>are() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	781	878	
==>NSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	781	878	
==>NSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	634	732	
==>ementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	634	732	
==>ementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	634	732	
==>ementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' clean <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5820	5928	
==>self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshif <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5820	5928	
==>self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshif <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	119	222	
==>s qw($VERSION @EXPORT @ISA);

$VERSION = '0.02';

@ISA = qw(Exporter);
@EXPORT = qw(assert);


=head1 NA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3994	4130	
==>h_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3994	4130	
==>h_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3994	4130	
==>h_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Erro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16398	16521	
==>class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16398	16521	
==>class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModul <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14665	14761	
==>t=/linuxrc ramdisk_size=$initrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashsc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17498	17596	
==>xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17498	17596	
==>xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17498	17596	
==>xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $x <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	984	1090	
==>l/config-template.yml';
    $filename           ||= $ENV{PUGS_BUILD_CONFIG} || $config_default;
    my $str <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35909	36000	
==>_set_member_combinations()>

This method returns an array ref having all combinations of thi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35909	36000	
==>_set_member_combinations()>

This method returns an array ref having all combinations of thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19896	20049	
==>arn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19896	20049	
==>arn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19896	20049	
==>arn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $other );
                            return $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3448	3546	
==>"-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3448	3546	
==>"-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3448	3546	
==>"-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), "$cfg{pugs}", @args
    or die <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2392	2512	
==>attrs,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$Class = ::c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2303	2408	
==>returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2303	2408	
==>returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2200	2319	
==>[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2200	2319	
==>[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32389	32567	
==>lice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32389	32567	
==>lice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            els <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32389	32567	
==>lice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                last if $ret_length >= $length;
            }
            els <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5510	5653	
==>op) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self->{prefix};
    }

    foreach my $rv ( $self-> <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12160	12278	
==>}

sub pads {
    my $self = shift;
    map { @$_ } reverse @{ $self->{scopes} };
}

sub enter_scope {
    my $self = s <==
3	/Users/nnunley/pugs/util/testgraph.pl	1119	1224	
==>ion of css. [default: $Config{cssfile}]

See also:
   util/yaml_harness.pl  - produce the data for this to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12165	12274	
==>s "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12165	12274	
==>s "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12165	12274	
==>s "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6561	6665	
==>ocal $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6561	6665	
==>ocal $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6561	6665	
==>ocal $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9244	9390	
==>$shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9244	9390	
==>$shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9244	9390	
==>$shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6697	6819	
==>n() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6697	6819	
==>n() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6697	6819	
==>n() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7923	8133	
==>macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4283	4493	
==>macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5132	5342	
==>macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are AST
            #     $block is plain text
            
            my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	402	512	
==>] ] ) },
    equal   => sub {   push( @{$_[0]->{levels}[$_[1]]}, $_[2] ) },
);

# parsed: - the rule replaces t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	978	1057	
==>x:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?! <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	978	1057	
==>x:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?! <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	658	760	
==>apture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	658	760	
==>apture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->fr <==
3	/Users/nnunley/pugs/util/config_h.pl	92	189	
==>dir);

=pod

=head1 DOCUMENTATION

This file seems to determine some configuration.

  util/config <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1284	1412	
==>LER::<$_> --> Int) { Num::int($x) }


 multi  Num::exp (  Num  $exponent             ; Num :$base --> Num )
 {
     Math::Basic:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23182	23278	
==>tually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27734	27830	
==>tually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13670	13861	
==>n );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13670	13861	
==>n );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6347	6438	
==>des and the objects
that represent them.  See L<Regexp::Parser::Handlers> for information
ab <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10403	10523	
==>() {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10403	10523	
==>() {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    meth <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6401	6500	
==>OPTABLE_POSTFIX );
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $to <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6414	6505	
==>an::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6414	6505	
==>an::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7525	7683	
==>( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7525	7683	
==>( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	281	407	
==>ile {
    my ($class, $source) = @_;

    my $file = (caller(4))[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1049	1165	
==>paque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1049	1165	
==>paque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1049	1165	
==>paque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (defined $instance && bless <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5026	5146	
==>self = shift;
    my $ghc = $self->can_run($ENV{GHC} || ( 'ghc' . $Config{_exe} ) );

    # This local subroutine returns <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	443	539	
==>$class = $self->interpreter_class;
    $class->require or die $UNIVERSAL::require::ERROR;
    $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2070	2160	
==>-----------------------------------------------
## some metamodel tools

=pod

sub *WALKMET <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4836	5017	
==>=> [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
} <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4836	5017	
==>=> [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
} <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14338	14454	
==>ELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4343	4432	
==>sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4343	4432	
==>sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4343	4432	
==>sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	502	601	
==>----------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!pare <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	502	601	
==>----------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!pare <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5456	5554	
==>e;
		while(@children) {
			my $sub = shift @children;
			if ($sub->struct_equiv->isa("Blondie::Para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6203	6314	
==>= 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6203	6314	
==>= 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6203	6314	
==>= 'Macro' if $flavor =~ /macro/i;
    my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15934	16054	
==>.. entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15934	16054	
==>.. entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15934	16054	
==>.. entering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_ins <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5715	5934	
==>y:<?? !!>'),
                    Sym->new('$cond'),
                    Sym->new('$left_thunk'),
                    Sym->new('$right_thunk'),
                ),  
            ),
        ),
    ),
    '&say' => Thunk->ne <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	320	415	
==>s, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early version of Pugs (6.0.1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22701	22793	
==>>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 Th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22701	22793	
==>>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 Th <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	805	901	
==>`$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	805	901	
==>`$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1683	1788	
==>my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{la <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1683	1788	
==>my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{la <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5062	5179	
==>pen_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5062	5179	
==>pen_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	86	187	
==>st $name.";
Perl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1795	1900	
==>odeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype ! <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	740	839	
==>ule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	740	839	
==>ule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->co <==
3	/Users/nnunley/pugs/util/combine_tests.pl	860	996	
==>ns, $revision;
        for my $file (@{ $data->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21346	21445	
==>':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get(' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44253	44352	
==>':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get(' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	675	792	
==>packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

ru <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	675	792	
==>packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

ru <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4268	4382	
==>ceil($x);

    return $x_round;
}

our Int multi Num::round_floor ( Num $x ) {
    my $x_round = floor($x);

    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	669	762	
==>urn $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	669	762	
==>urn $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	669	762	
==>urn $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subnodes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7267	7365	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7267	7365	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7267	7365	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29379	29498	
==>nly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29379	29498	
==>nly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	207	314	
==>nly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5318	5450	
==>while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2056	2153	
==>SCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2056	2153	
==>SCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4386	4496	
==>x}{$type} }, @_ if $type;
    return $self->{values}{no_index};
}

sub read {
    my $self = shift;
    $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2800	2898	
==>iag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $exp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2858	2956	
==>iag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $exp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4548	4655	
==>an0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4548	4655	
==>an0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3193	3282	
==>printf(stderr," start=%lu\n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5245	5384	
==>match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5245	5384	
==>match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7546	7660	
==>BLE_CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1:
  my $arity = $$temp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	307	456	
==>set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	307	456	
==>set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	307	456	
==>set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1691	1814	
==>l6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1691	1814	
==>l6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1691	1814	
==>l6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2521	2618	
==>educing " . qprintable($node) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduce(" . <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	686	776	
==>Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	686	776	
==>Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6587	6691	
==>ave been embedded in a core program file and hence
        # should never be loaded by translate_message( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6587	6691	
==>ave been embedded in a core program file and hence
        # should never be loaded by translate_message( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	308	445	
==>gth; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	308	445	
==>gth; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	308	445	
==>gth; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        / <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	759	868	
==>tem;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	759	868	
==>tem;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35267	35361	
==>::Example has all of the same attributes as the original.  Trivial cases are
where C<$predicate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1814	1918	
==>ired to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declara <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1814	1918	
==>ired to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declara <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1814	1918	
==>ired to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Declara <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1338	1439	
==>or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or m <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1338	1439	
==>or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23303	23402	
==>MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23303	23402	
==>MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23303	23402	
==>MULTI SUB substr ($xx0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5713	5983	
==>\$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	51	152	
==>print(('-' x 80), "\n");
print "Testing perl5 naive bayesian script with $test_file\n";
print(('-' x 8 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38729	38822	
==>ant Relation::Example, and returns a new Relation::Example that has the
same heading as the in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23757	23889	
==>lf;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;

  sub new {
    my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16236	16328	
==>ext provides a simple but effective mechanism for
applications and packages that empowers sin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16236	16328	
==>ext provides a simple but effective mechanism for
applications and packages that empowers sin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22983	23085	
==>s is that
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22983	23085	
==>s is that
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2415	2562	
==>:capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2426	2573	
==>:capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::c <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1412	1564	
==>the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1412	1564	
==>the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	211	338	
==>s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	553	675	
==>p () {
    return unless @:events;

    my $callback = shift @:events;
    return $callback();
  }

  method run () {
    w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3448	3550	
==>ler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3448	3550	
==>ler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16580	16686	
==>turn $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16580	16686	
==>turn $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7545	7794	
==>r" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8009	8258	
==>r" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	397	495	
==>( dir => '/some/dir' )

C<_mkdir> creates a full path to a directory.

Returns true on success, fal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15817	15929	
==>}; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15817	15929	
==>}; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15817	15929	
==>}; 
MULTI SUB pop ($xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1659	1775	
==>or PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1659	1775	
==>or PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1659	1775	
==>or PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Because <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	69	205	
==>:Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	69	205	
==>:Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2489	2595	
==>Syms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2489	2595	
==>Syms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2489	2595	
==>Syms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	544	646	
==>warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	544	646	
==>warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	544	646	
==>warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6265	6419	
==>f_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $con <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6323	6477	
==>f_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $con <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5428	5528	
==>i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9349	9479	
==>. "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9349	9479	
==>. "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9349	9479	
==>. "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$self-> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10952	11108	
==>ng  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    }, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10952	11108	
==>ng  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    }, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3630	3780	
==>[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3630	3780	
==>[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{captu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19102	19228	
==><'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # see 11.14
      <Assi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11666	11790	
==>boxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11666	11790	
==>boxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11666	11790	
==>boxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => defined $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10754	10861	
==>Process $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10754	10861	
==>Process $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $qu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8195	8296	
==>fined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8253	8354	
==>fined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Tes <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1189	1284	
==>c.
  Working with a p5 accessible runtime (pil2js or pilrun), and/or
  motivating implementation <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14558	14719	
==>w_lone_not} >> and the line in C<< $strap->{lone_not_line} >>.

=cut

my $Report_Re = <<'REGEX';
                 ^
                  (not\ )?               # fai <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10914	11068	
==>"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10914	11068	
==>"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21512	21690	
==>%seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21512	21690	
==>%seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21512	21690	
==>%seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->subclasses}) {
                unless (exists $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3121	3220	
==>open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	20	112	
==>mpiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	20	112	
==>mpiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7779	7880	
==>ead1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7779	7880	
==>ead1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7779	7880	
==>ead1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20319	20430	
==>ad[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easie <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20319	20430	
==>ad[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easie <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20319	20430	
==>ad[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition easie <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	197	351	
==>ase);

sub WriteAll {
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5049	5160	
==>'' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recording C<$description> <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5049	5160	
==>'' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recording C<$description> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6573	6684	
==>'' )>

Records that a test has passed or failed, depending on the value of C<$passed>,
recording C<$description> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8867	9006	
==>]],
      family => 'branch',
      type => 'branch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12642	12745	
==>::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12642	12745	
==>::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1364	1482	
==>guments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1364	1482	
==>guments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1364	1482	
==>guments[i]);
    }

    var func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, fun <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8251	8392	
==>fix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4611	4752	
==>fix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5460	5601	
==>fix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( $id );
            $block  = match::st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	542	642	
==>}
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	542	642	
==>}
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	542	642	
==>}
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1894	2015	
==>ethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1894	2015	
==>ethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1894	2015	
==>ethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	281	400	
==>got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	487	606	
==>got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use v <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3837	3933	
==>cosech';
trig_func 'cotanh';
trig_func 'asech';
trig_func 'acosech';
trig_func 'acotanh';


 mult <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5025	5166	
==>($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5025	5166	
==>($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5025	5166	
==>($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	509	620	
==>ctical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	509	620	
==>ctical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	509	620	
==>ctical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1925	2051	
==>$js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1925	2051	
==>$js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1925	2051	
==>$js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	671	789	
==>$_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	671	789	
==>$_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	671	789	
==>$_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	68	170	
==>or self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <- <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	68	170	
==>or self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4322	4420	
==>th 1 and 10 in the parameter stack, the
dynamic scope stack will be popped, then the Seq will finis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3676	3793	
==>e =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3676	3793	
==>e =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3676	3793	
==>e =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4928	5042	
==>UG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4928	5042	
==>UG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4928	5042	
==>UG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	358	464	
==>s5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	358	464	
==>s5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	358	464	
==>s5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7576	7696	
==>@ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7576	7696	
==>@ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7576	7696	
==>@ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	123	235	
==>parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.count <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	123	235	
==>parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.count <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9881	10048	
==>ST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6222	6389	
==>ST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7071	7238	
==>ST 
            #     - it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10155	10298	
==>},

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10155	10298	
==>},

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10155	10298	
==>},

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3425	3551	
==>.= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3425	3551	
==>.= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3425	3551	
==>.= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	360	469	
==>WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	360	469	
==>WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	360	469	
==>WHITESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokeni <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1490	1636	
==>.value.does(Pair)
                ?? ( .value.key =>
                    (.value.value.does(Relation::Heading)
                        ?? .value.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2006	2133	
==>H();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2006	2133	
==>H();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2006	2133	
==>H();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$self);
  } e <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2620	2752	
==>_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove al <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2620	2752	
==>_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove al <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	754	870	
==>l", topic => '', entry => '', entry_html => '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl", to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9915	10005	
==>[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9915	10005	
==>[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9915	10005	
==>[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7367	7679	
==>new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postfix:<!>' => Thu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10514	10627	
==>fe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10514	10627	
==>fe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3311	3428	
==>Tree.new(:node<Type>).add_children(
                Tree.new(:node<Package>).add_children(
                    Tree.ne <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2856	2967	
==>ady used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2856	2967	
==>ady used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	175	291	
==>y ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	175	291	
==>y ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	175	291	
==>y ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30000	30113	
==>x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30000	30113	
==>x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30000	30113	
==>x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
} <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13240	13359	
==>f\a\e\0", $I0, 1
  addchar:
    inc pos
    if isrange goto addrange
    charlist .= $S0
    goto scan
  addrange:
    i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5813	5910	
==>only method that truly must be implemented is the 
one that actually enciphers the data.  They may <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5813	5910	
==>only method that truly must be implemented is the 
one that actually enciphers the data.  They may <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15765	15932	
==>y %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15765	15932	
==>y %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15765	15932	
==>y %seen = ();
    return $array->map( 
        bless sub {
            my $str = $_[0];
            $str = '**UnDeF**' unless defined $str;
            return if $seen{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5540	5643	
==>a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5540	5643	
==>a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5540	5643	
==>a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3962	4160	
==>{
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3962	4160	
==>{
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3962	4160	
==>{
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6 <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3086	3208	
==>rintlatex $chr, $col;
	}
    }
    print "}\n\\end{block}\n" if $inblock;
#    print "}";
    close STDOUT;
}

#    my ($fn <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1821	1913	
==>".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1821	1913	
==>".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	202	299	
==>readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1060	1157	
==>readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_M <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1460	1560	
==>depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1518	1618	
==>depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4356	4537	
==>{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4224	4399	
==>{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21703	21903	
==>ue::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21703	21903	
==>ue::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21703	21903	
==>ue::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17529	17632	
==>har* exp, char* xend, PMOP* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ regexp* prog, char* str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16674	16776	
==>, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16674	16776	
==>, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2821	2996	
==>n $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!headi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6298	6473	
==>n $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!headi <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3685	3812	
==>) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $type = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	514	643	
==>);
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	514	643	
==>);
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	514	643	
==>);
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1230	1348	
==>n=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1230	1348	
==>n=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1230	1348	
==>n=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16345	16473	
==>aN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16345	16473	
==>aN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16345	16473	
==>aN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1681	1803	
==>join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1681	1803	
==>join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1681	1803	
==>join(Str $sep, *@things) is primitive {
  JS::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4825	4997	
==>pe'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4825	4997	
==>pe'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4825	4997	
==>pe'
                my $self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6466	6566	
==>_combinations()} -> $module_name {
        # Determine if requested template module is already loaded <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6466	6566	
==>_combinations()} -> $module_name {
        # Determine if requested template module is already loaded <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12975	13096	
==>);
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16452	16573	
==>);
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15814	15935	
==>);
    }

    if (all( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32311	32484	
==>{
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length + <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32311	32484	
==>{
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length + <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32311	32484	
==>{
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length + <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7233	7375	
==>ture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?subst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7233	7375	
==>ture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?subst <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7946	8039	
==>ation varies with function.
C<values> returns the value of the associated element; C<kv> retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4150	4248	
==>name to it so that you can refer to it
    #   > inside, but that name is not visible to b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4150	4248	
==>name to it so that you can refer to it
    #   > inside, but that name is not visible to b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4150	4248	
==>name to it so that you can refer to it
    #   > inside, but that name is not visible to b <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3813	3904	
==>ry returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3813	3904	
==>ry returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6010	6101	
==>ry returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
parameter, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3006	3214	
==>0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3006	3214	
==>0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3006	3214	
==>0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $coun <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16126	16222	
==>d one
application may handle it internally, while another one displays it to the
user instead.

L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16126	16222	
==>d one
application may handle it internally, while another one displays it to the
user instead.

L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14010	14110	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14010	14110	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14010	14110	
==>s($xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems } <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9512	9614	
==>**100',
		  '-inf' => '-100**100**100',
		  'NaN' => '100**100**100/100**100**100');
    my $v = $unpac <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2914	3011	
==>re are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=it <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2914	3011	
==>re are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8440	8547	
==>o_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8440	8547	
==>o_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8440	8547	
==>o_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5453	5555	
==>It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5453	5555	
==>It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5453	5555	
==>It would take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2344	2447	
==>ore_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2344	2447	
==>ore_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2344	2447	
==>ore_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10313	10443	
==>hods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10313	10443	
==>hods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10313	10443	
==>hods';
        # check the private methods
        $method_table_name = '%:private_methods' if $_[1] =~ /^_/o;

        # gather al <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	431	531	
==>AMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	431	531	
==>AMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19636	19729	
==>hod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19636	19729	
==>hod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassM <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19636	19729	
==>hod'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Perl6::ClassM <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1649	1743	
==>hell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1489	1583	
==>hell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4629	4722	
==>dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22318	22418	
==>objects.  Afterwards, it is an array
reference of (node) objects.

=item stack

Initially an array re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14115	14211	
==>nd the headers
will be visited in the recommended "Good Practice" order.

Any return values of th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14115	14211	
==>nd the headers
will be visited in the recommended "Good Practice" order.

Any return values of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15439	15547	
==>ub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15439	15547	
==>ub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15439	15547	
==>ub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1859	1956	
==>ll have a key, which will be specified in the options; check your 
cipher's documentation for deta <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1859	1956	
==>ll have a key, which will be specified in the options; check your 
cipher's documentation for deta <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	524	619	
==>as to reverse engineer an implicit abstraction
# "barrier" for the engine, from the entire perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12107	12252	
==>(my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12107	12252	
==>(my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12107	12252	
==>(my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13366	13501	
==>lass, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13366	13501	
==>lass, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13366	13501	
==>lass, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2289	2561	
==>$!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5766	6038	
==>$!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4696	4968	
==>$!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutable;
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2719	2810	
==>n ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2719	2810	
==>n ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2719	2810	
==>n ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object->add_metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	555	692	
==>_uptodate) {
            local $@; do $pmc; die $@ if $@; exit 0;
        }
    }

    require Pugs::Compiler::Perl6;

    my $p6 = Pugs:: <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	233	364	
==>}

my $thr2 = async {
    say "Thread 2 started";
    atomically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -10 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1697	1788	
==>return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1697	1788	
==>return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1002	1108	
==>ne, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1002	1108	
==>ne, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	79	175	
==>ere.

* These are perl6 implementations of /builtins/
* They sometimes use Pugs internals to do t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11563	11664	
==>--------------------------------------------------

With this Role meta-model , any Class instances, t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11563	11664	
==>--------------------------------------------------

With this Role meta-model , any Class instances, t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11563	11664	
==>--------------------------------------------------

With this Role meta-model , any Class instances, t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1155	1285	
==>}' => q( { return { stmt => '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__ <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	82	189	
==>s Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should d <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	82	189	
==>s Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18948	19042	
==>modelling anything in the real world accurately, and it
can support a complete SQL emulation la <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18948	19042	
==>modelling anything in the real world accurately, and it
can support a complete SQL emulation la <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10234	10344	
==>ue/false)
    from  - string pointer for start of this match
    to    - string pointer for next match (end+1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8407	8498	
==>:Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2232	2323	
==>:Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1192	1294	
==>\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1192	1294	
==>\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1192	1294	
==>\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13845	13950	
==>de is
  off in perl runtime guts where it can't plausibly be reached to
  change.

  There may be no place <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1187	1275	
==>->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1407	1495	
==>->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10354	10459	
==>"<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10354	10459	
==>"<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6127	6264	
==>e "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_child_num} = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11379	11486	
==>r, the qr() method is used to produce
the Perl regex implementation of the new node.

=head2 Named Character <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30591	30762	
==>0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30591	30762	
==>0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30591	30762	
==>0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ret, \@i;
                $ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1359	1471	
==>[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1564	1676	
==>[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1625	1737	
==>[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:methods'}{$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21052	21147	
==>ram can be distributed with one or more
resource files containing text for users, and your progr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21052	21147	
==>ram can be distributed with one or more
resource files containing text for users, and your progr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12176	12286	
==>:Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12176	12286	
==>:Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12176	12286	
==>:Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7053	7158	
==>s) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7053	7158	
==>s) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7053	7158	
==>s) *here* -- lists
    // don\'t create new containers. Assigning to an array will take care of
    // thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23022	23120	
==>and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27574	27672	
==>and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26351	26449	
==>and values are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set membe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4212	4314	
==>^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4212	4314	
==>^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Sp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28166	28259	
==>This method returns this Relation::Example's heading.

=item C<body () returns Set of Mapping( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6052	6164	
==>tr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6052	6164	
==>tr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6052	6164	
==>tr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10909	11036	
==>part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10909	11036	
==>part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compi <==
3	/Users/nnunley/pugs/util/package-osx.pl	132	240	
==>] target_base_dir
        Run after make install'ing pugs and parrot under /usr/local

    exit;
}

my ($bund <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2975	3089	
==>sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2975	3089	
==>sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4499	4613	
==>sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($pa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4300	4400	
==>wards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4300	4400	
==>wards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2267	2403	
==>ring of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ ' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2267	2403	
==>ring of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8126	8323	
==>> $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8126	8323	
==>> $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8126	8323	
==>> $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9786	9919	
==>c;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9786	9919	
==>c;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9786	9919	
==>c;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4139	4240	
==> give a name to it so that you can refer to it
    #   > inside, but that name is not visi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4139	4240	
==> give a name to it so that you can refer to it
    #   > inside, but that name is not visi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4139	4240	
==> give a name to it so that you can refer to it
    #   > inside, but that name is not visi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19865	20015	
==>O)")
            if $tot->{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} test"
                     . ($tot->{ski <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16044	16135	
==>onalExpressionNoIn> <'<='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'>='> <ShiftE <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1928	2019	
==>nt, *@args)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as arguments.
No <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	606	721	
==>urn map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	376	491	
==>urn map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	376	491	
==>urn map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3944	4081	
==>>get_value('@:slots')}, mk_containers(@$values);
            },

            'array_unshift' => sub { # @values -> ()
                my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10788	10885	
==>oes not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10846	10943	
==>oes not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11848	11996	
==>on
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2270	2404	
==>on
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2270	2404	
==>on
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3424	3556	
==>{
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3424	3556	
==>{
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3424	3556	
==>{
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->());
			    }));
			}
		    }
		} elsif($k e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7779	7885	
==>f we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7779	7885	
==>f we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7779	7885	
==>f we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SELF') {
      push @js, sp <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7177	7300	
==>n $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7177	7300	
==>n $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23249	23341	
==>rators (over said accessors), which can be employed when objects of
multiple different Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20398	20494	
==>ify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20398	20494	
==>ify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20398	20494	
==>ify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	41	186	
==>use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	30	120	
==>ols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	30	120	
==>ols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1579	1671	
==>lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1579	1671	
==>lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1579	1671	
==>lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11916	12021	
==>::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11916	12021	
==>::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11916	12021	
==>::eval_haskell ($xx) {...};
MULTI SUB Pugs::Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1936	2029	
==>pedia article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resourc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1936	2029	
==>pedia article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	685	840	
==>,"-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	685	840	
==>,"-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	685	840	
==>,"-V");
                        exit;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2777	2898	
==>_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2777	2898	
==>_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2777	2898	
==>_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my % <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8644	8750	
==>overload this method if you've built your own strap subclass,
such as a PHP interpreter for a PHP-based str <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11355	11457	
==>of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11355	11457	
==>of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2803	2933	
==>- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error messag <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2803	2933	
==>- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error messag <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3131	3227	
==>GS_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub check_pr <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	948	1044	
==>oc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are dif <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	948	1044	
==>oc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are dif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14851	14979	
==>nt Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14851	14979	
==>nt Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14851	14979	
==>nt Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11381	11524	
==>) {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11381	11524	
==>) {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	590	693	
==>ll"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ ve <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14660	14781	
==>le language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14660	14781	
==>le language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        pr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5869	5963	
==>ected_type);

		return $node if $self->types_eq($de_facto_type, $expected_type);

		warn "types <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	753	855	
==>is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The ho <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	753	855	
==>is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The ho <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1456	1555	
==>iter(' ');

 multi sub Array::map (@values,   Code $expression) returns Lazy 
 multi sub  Perl6::Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	732	841	
==>CH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	732	841	
==>CH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	732	841	
==>CH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3719	3833	
==>:Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3719	3833	
==>:Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3719	3833	
==>:Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34358	34453	
==>ttributes match
those of C<$heading>.  The new Relation::Example has all of the tuples of the
or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6915	7026	
==>from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6915	7026	
==>from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6915	7026	
==>from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20732	20910	
==>am;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO ST <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20732	20910	
==>am;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO ST <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20732	20910	
==>am;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO ST <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3089	3197	
==>esn't this work?
    # this is here just because of an icky pugsbug.
    #my %idx = <package file line subnam <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16920	17018	
==>etta D (as
either named modules or anonymous routines) and write the rest of the
application in the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16920	17018	
==>etta D (as
either named modules or anonymous routines) and write the rest of the
application in the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1394	1548	
==>() ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1339	1484	
==>() ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        mat <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7160	7269	
==>mal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17185	17298	
==>$traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17185	17298	
==>$traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17185	17298	
==>$traversal->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1504	1620	
==>keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.inc <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1504	1620	
==>keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3223	3352	
==>,
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3223	3352	
==>,
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3223	3352	
==>,
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	772	914	
==>> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	741	878	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	180	277	
==>rate p5 code, it's really 
pretty bad actually, and the s-expr got quite messy
as well. Although t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2037	2153	
==>$class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2037	2153	
==>$class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18266	18361	
==>-65:]> will render as C<[\w\d:4-6]>.  If you want to prevent
characters and ranges from being di <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20606	20757	
==>un => ide("mul"),
								param => ide("r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb(
			fun => comb(
				fu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15517	15630	
==>Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @que <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15517	15630	
==>Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @que <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9035	9144	
==>7),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9035	9144	
==>7),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4987	5080	
==>ebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4987	5080	
==>ebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4987	5080	
==>ebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object referenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9141	9294	
==>isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9141	9294	
==>isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9141	9294	
==>isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28376	28699	
==>) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28376	28699	
==>) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28376	28699	
==>) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensu <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1413	1513	
==>o 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexpo <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1413	1513	
==>o 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexpo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4717	4840	
==>->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex->compile( q <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5576	5689	
==>ns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5576	5689	
==>ns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1420	1528	
==>main program here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	243	343	
==>s done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	243	343	
==>s done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13284	13460	
==>->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13284	13460	
==>->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13284	13460	
==>->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slic <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11107	11206	
==>g->package ) ) and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata remov <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1022	1109	
==>y '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base { <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1022	1109	
==>y '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5745	5899	
==>lf;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5745	5899	
==>lf;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5745	5899	
==>lf;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2264	2407	
==>r            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2589	2697	
==>ta) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2589	2697	
==>ta) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2516	2634	
==>dex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2516	2634	
==>dex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2516	2634	
==>dex(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16842	17014	
==>=> 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16842	17014	
==>=> 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16842	17014	
==>=> 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5781	5905	
==>s support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5781	5905	
==>s support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5781	5905	
==>s support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13751	13877	
==>che{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13751	13877	
==>che{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13751	13877	
==>che{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	955	1095	
==>amodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	955	1095	
==>amodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	955	1095	
==>amodel_base},
  "help"               => sub { usage() },
) or usage();
my @input = @ARGV;

usage "No input files given!"                  unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1279	1373	
==>me posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1279	1373	
==>me posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1279	1373	
==>me posBeginLine posBeginColumn posEndLine posEndColumn>};
    return "$file line $line_start-$l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8152	8385	
==>e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->exists($e->get('$label'));                                                  
            }
        )
    )
);

=po <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32332	32429	
==>s to come
from Perl modules, but in the future they may alternately be something
else, such as XML <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32332	32429	
==>s to come
from Perl modules, but in the future they may alternately be something
else, such as XML <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4408	4569	
==>ift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1064	1164	
==>{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1064	1164	
==>{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1064	1164	
==>{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	340	449	
==>ues[$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&join := &join.assuming:delimiter(' ');


# copied <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20243	20335	
==>...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be ex <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20243	20335	
==>...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5343	5455	
==>nit();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5343	5455	
==>nit();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5343	5455	
==>nit();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->function_set <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1385	1501	
==>lse{
      "$string $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2780	2896	
==>eturn @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2985	3101	
==>eturn @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5213	5386	
==>substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5213	5386	
==>substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5213	5386	
==>substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $flags   = "";
    $flags ~= "i" if $ignore;
    $flags ~= "m" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3128	3240	
==>erl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3128	3240	
==>erl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3128	3240	
==>erl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13739	13851	
==>ug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JO <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13739	13851	
==>ug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	182	305	
==>lder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    att <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3776	3872	
==>r "internal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CO <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3776	3872	
==>r "internal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1938	2049	
==>ng->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1938	2049	
==>ng->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1938	2049	
==>ng->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defined!"
      if $unwrapped->{C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	730	823	
==>---------------------------------------------------------------------
## Object

# The 'Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	730	823	
==>---------------------------------------------------------------------
## Object

# The 'Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	730	823	
==>---------------------------------------------------------------------
## Object

# The 'Object <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2424	2542	
==>s or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecir <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2424	2542	
==>s or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecir <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2151	2361	
==>deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $se <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11842	11961	
==>l = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $sym <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	251	365	
==>l = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36491	36607	
==>ems}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36491	36607	
==>ems}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36491	36607	
==>ems}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2704	2821	
==>ze () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6181	6298	
==>ze () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5111	5228	
==>ze () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	842	999	
==>$::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	842	999	
==>$::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_arra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	842	999	
==>$::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $::SELF->val_arra <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10057	10164	
==>urn @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10057	10164	
==>urn @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2946	3139	
==>l->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2946	3139	
==>l->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2946	3139	
==>l->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        }, <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	843	970	
==>-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	843	970	
==>-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $pa <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1440	1563	
==>abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4482	4572	
==>nce_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4482	4572	
==>nce_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4482	4572	
==>nce_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => : <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5730	5837	
==>+;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## ------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5730	5837	
==>+;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## ------------------ <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	478	584	
==>UTHORS

Brian Ingerson <ingy@cpan.org>

= COPYRIGHT

Copyright (c) 2005. Brian Ingerson. All rights reserve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1182	1283	
==>ance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	921	1017	
==>ance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1126	1222	
==>ance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1720	1854	
==>entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1720	1854	
==>entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1720	1854	
==>entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23702	23910	
==>store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23702	23910	
==>store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23702	23910	
==>store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method eq 'int' || $method eq 'num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10618	10737	
==>name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10618	10737	
==>name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10618	10737	
==>name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1785	1901	
==>>{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1785	1901	
==>>{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1785	1901	
==>>{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self- <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14167	14285	
==>from_file($synpod, $synhtml);
        
        # and parse it into a tree
        my $sobj = HTML::TreeBuilder->new_fro <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3642	3736	
==>.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptograp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3642	3736	
==>.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptograp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1810	1938	
==>gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1810	1938	
==>gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2046	2174	
==>gv
sub sub_signature {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17779	17929	
==>od eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17779	17929	
==>od eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17779	17929	
==>od eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @result = $tmp->$me <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3591	3694	
==>vironment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3591	3694	
==>vironment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	441	544	
==>vironment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1545	1660	
==>) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1545	1660	
==>) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1545	1660	
==>) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne»",   2, "S", "String(a) != Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7564	7661	
==>a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7564	7661	
==>a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7564	7661	
==>a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	614	708	
==>- there are more.  Useful short-term. Eventually not needed,
# once macro rxmodinternal:<x> etc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15511	15602	
==>d language of communication, or their
privileges regarding access to information details, or <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15511	15602	
==>d language of communication, or their
privileges regarding access to information details, or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7224	7349	
==>$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7224	7349	
==>$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7224	7349	
==>$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23384	23491	
==>));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23384	23491	
==>));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23384	23491	
==>));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($s,$v1,$v2)); # XXX <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4898	4995	
==>public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4898	4995	
==>public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7095	7192	
==>public attributes.

=over 4

=item B<Bool $.passed>

Whether the test passed.

=item B<Int $.numbe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9140	9252	
==>=> 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14839	14934	
==>alues will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

Th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14839	14934	
==>alues will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	647	748	
==>thod('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	647	748	
==>thod('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_ <==
3	/Users/nnunley/pugs/util/grokprims.pl	2137	2226	
==>"<td><tt>$example</tt></td>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op->{ret}</td <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	139	252	
==>ode::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Da <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	103	215	
==>ode::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Da <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	191	303	
==>ode::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	691	818	
==>:PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	691	818	
==>:PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	691	818	
==>:PNil")) {
    $head = $head->unwrap;  # (That's also a cosmetical fix.)
    my $default = sub {
      my $cxt   = "PIL2JS.Conte <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1310	1413	
==>revious( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::Tr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1310	1413	
==>revious( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::Tr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1058	1158	
==>arser was
# working and robust, it would make sense to continue for a while on
# Regexp::Parser.  But <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5911	6017	
==>mplemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5899	6005	
==>mplemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10332	10429	
==>fy($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.n <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10332	10429	
==>fy($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.n <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2147	2233	
==>w.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg.html
Without their work, I a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6018	6173	
==>ust be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6018	6173	
==>ust be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6018	6173	
==>ust be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2725	2830	
==>ti-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2725	2830	
==>ti-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2725	2830	
==>ti-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	951	1117	
==>($x,$string is rw,$pass){
    if $pass > 2 {
        chop $string;
        "$string and " ~  
        pick (
            "$x",
            "is $x",
            "$x, pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7590	7724	
==>op::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7334	7463	
==>op::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5748	5876	
==>emeta dirname( $from );
        
        for my $dir ( File::Find::Rule->directory->in( $from ) ) {
            ### strip the lea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9629	9725	
==>eturns Array {...}
# Many, but not all, ciphers will need to override these
method _head() return <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9629	9725	
==>eturns Array {...}
# Many, but not all, ciphers will need to override these
method _head() return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13736	13837	
==>r('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => asci <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7943	8044	
==>r('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => asci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	210	323	
==>("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	210	323	
==>("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	210	323	
==>("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10688	10803	
==>^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10846	10961	
==>^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5873	5988	
==>ristic: Most of the first tests (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/3.
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4652	4748	
==>he set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4902	4998	
==>he set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4695	4804	
==>bbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4695	4804	
==>bbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4695	4804	
==>bbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --metamodel-base=/path/to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11258	11404	
==>/sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11390	11536	
==>/sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1041	1153	
==>ations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1041	1153	
==>ations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1041	1153	
==>ations are emitted.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15160	15305	
==>> @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15160	15305	
==>> @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15160	15305	
==>> @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private method
            if $met <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4591	4697	
==>rsects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- co <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4591	4697	
==>rsects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1651	1770	
==>chet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1791	1910	
==>chet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pug <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	465	617	
==>tes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	465	617	
==>tes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10218	10327	
==>by
    # it, since that would probably be faster)

    # also, the signature for this sub is nowhere near fina <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22969	23072	
==>ined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22969	23072	
==>ined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22969	23072	
==>ined($xx2);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
} <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	655	823	
==>nput -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:p <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	655	823	
==>nput -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:p <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5507	5615	
==>>new(filename => 'util/catalog_tmpl/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / 3)+1;
$template->param(d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6077	6184	
==>g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6077	6184	
==>g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6077	6184	
==>g;
    
    # array access
    $method_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17356	17550	
==>pts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17356	17550	
==>pts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17356	17550	
==>pts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3885	3975	
==>L2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3885	3975	
==>L2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3885	3975	
==>L2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5714	5845	
==>hod_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5714	5845	
==>hod_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => unde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5714	5845	
==>hod_name)) {
                # we stub the method for the class to implement
                #$self->add_method($method_name => unde <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	624	748	
==>LoadFile( $file ) } or error( $@ ), return; 

    return $class->new_from_struct( struct => $struct );        
}

=head2 $met <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35964	36057	
==>ay ref having all combinations of this object's
Set Names and Member Names elements, concatena <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35964	36057	
==>ay ref having all combinations of this object's
Set Names and Member Names elements, concatena <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12671	12768	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12729	12826	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23210	23297	
==>function'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12382	12535	
==>se {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12382	12535	
==>se {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12382	12535	
==>se {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # walk t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2855	2958	
==>tdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2855	2958	
==>tdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1160	1256	
==>ugs::Utils::Dump->export_to_level(1,@_);
}

sub dump_tree {
	my ($tree,$name) = @_;
	return $dump <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5519	5738	
==>$key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5519	5738	
==>$key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5519	5738	
==>$key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1913	2149	
==>if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1913	2149	
==>if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1913	2149	
==>if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->new( '$.unboxed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1940	2071	
==>if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1940	2071	
==>if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1940	2071	
==>if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5090	5203	
==>s($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5090	5203	
==>s($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5090	5203	
==>s($self)->dispatcher(':canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_in <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13205	13308	
==>pp = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scop <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	615	718	
==>pp = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scop <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	506	612	
==>at0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	506	612	
==>at0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	506	612	
==>at0, Str $qo, Str $qc) is primitive {

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	457	594	
==>bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	457	594	
==>bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.s <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9623	9734	
==>RL5LIB is ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4726	4849	
==>b {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4578	4698	
==>b {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        retur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5984	6101	
==>_root}::$name";
	my $pkg_type = "${pkg_root}::$type";
	my $pkg_rep  = "${pkg_root}::NodeRep$rep";
	my $pkg_node = "${p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38565	38702	
==>' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38565	38702	
==>' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38565	38702	
==>' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    ret <==
3	/Users/nnunley/pugs/util/grokprims.pl	1499	1598	
==>haining) infix/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0";
  } elsif (/left-associative/ and <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	268	361	
==>E

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	268	361	
==>E

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5856	5956	
==>prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5856	5956	
==>prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5856	5956	
==>prune>

    Class::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20760	20900	
==>=> ide("fac'"),
				param => ide("x"),
			),
			param => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3778	3876	
==>.members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## mu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3778	3876	
==>.members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## mu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6731	6834	
==>Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6731	6834	
==>Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10224	10319	
==>2JS/">Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http://svn.openfoundry.org/pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1281	1399	
==>nstance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1281	1399	
==>nstance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1281	1399	
==>nstance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18397	18504	
==>) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18397	18504	
==>) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18397	18504	
==>) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12397	12511	
==>?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12397	12511	
==>?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9105	9255	
==>defined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9105	9255	
==>defined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9105	9255	
==>defined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Perl extension for Perl6 "S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1251	1351	
==>e>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1251	1351	
==>e>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1251	1351	
==>e>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run_done ?? $cond <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1039	1180	
==>!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' ! <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1039	1180	
==>!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' ! <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6880	6986	
==>shift if ( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @bsrStack, "bsr_reduce_1";
  g <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2554	2689	
==>ion (Num $x) {
	...
}

# Other math functions.
our bool multi Num::is_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16848	16940	
==>ext time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyMod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16848	16940	
==>ext time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyMod <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4995	5094	
==>em B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or faile <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4995	5094	
==>em B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or faile <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6519	6618	
==>em B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or faile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5601	5757	
==>$1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5601	5757	
==>$1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5601	5757	
==>$1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8285	8392	
==>w(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8285	8392	
==>w(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8285	8392	
==>w(foo bar)) {
          $::CLASS->add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6358	6463	
==>ust ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6142	6246	
==>ust ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4078	4166	
==>body) = @_;

	$self->define_named_block($node, $symbol, $body, $self->resolve_type($node) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3422	3536	
==>nstance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3422	3536	
==>nstance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3422	3536	
==>nstance_id($::SELF) });

::Class.meta.add_method('superclasses' => method () {        
    my ($self, $superclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12517	12637	
==>>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12517	12637	
==>>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12517	12637	
==>>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( '$.unboxed' => _('$.unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33270	33466	
==>gth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33270	33466	
==>gth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33270	33466	
==>gth=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	820	914	
==>eturns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	820	914	
==>eturns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21774	21866	
==>(_)).
class_member(class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14028	14136	
==>the sometimes wrong $^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20339	20450	
==>onListNoIn> <','> <VariableDeclarationNoIn>
}
rule VariableDeclaration :words {  # see 12.2
      <Identifier> < <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4322	4412	
==>($Object->name, 'Object', '... $Object got the right method return value');
is($Object->sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6224	6314	
==>($Object->name, 'Object', '... $Object got the right method return value');
is($Object->sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5553	5653	
==>JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5553	5653	
==>JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5553	5653	
==>JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4367	4507	
==>::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4367	4507	
==>::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4367	4507	
==>::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! "$c\$__a <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7931	8045	
==>de {
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## --------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7931	8045	
==>de {
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## --------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16733	16849	
==>:IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "bl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16733	16849	
==>:IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "bl <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4218	4325	
==>Num::round_ceiling ( Num $x ) {
    my $x_round = ceil($x);

    return $x_round;
}

our Int multi Num::roun <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	717	822	
==>mans, Florian Ragwitz.

This library is free software; you may redistribute and/or modify it under the
sam <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7979	8076	
==>b { yield $^node }, $traversal_order);
    };
}

## ---------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7979	8076	
==>b { yield $^node }, $traversal_order);
    };
}

## ---------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3424	3531	
==>f $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $u <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3424	3531	
==>f $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3977	4085	
==>}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3977	4085	
==>}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3977	4085	
==>}
my $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6931	7035	
==>ccordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $rea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6931	7035	
==>ccordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6008	6118	
==>SSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6008	6118	
==>SSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6008	6118	
==>SSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	868	993	
==>0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1074	1199	
==>0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7115	7237	
==>$request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cooki <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7115	7237	
==>$request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cooki <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4820	4916	
==>] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4820	4916	
==>] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4820	4916	
==>] reduce metaoperator
# XXX This implementation is, of course, incorrect. There is *no* attention <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	417	517	
==>Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	417	517	
==>Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	417	517	
==>Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or die "Couldn't setrlimit: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8766	8887	
==>$param,
		);
	}

	sub can_reduce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8169	8263	
==>$event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8169	8263	
==>$event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2	123	
==>generated file - do not edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::gree <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2	122	
==>generated file - do not edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::gree <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8478	8593	
==>uilder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4339	4478	
==>> '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4339	4478	
==>> '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4339	4478	
==>> '@:subclasses');
});

::Class.meta.add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1254	1425	
==>eading-0.1.0 {

###########################################################################

submethod new (Relation::LaxAttrList :%attrs? = {}) {
    return $?CLASS->bless <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36962	37087	
==>nit();

    # X&Y = match Y if match X at the same place
    $self->add_handler('&' => sub {
      my ($S) = @_;
      push @{ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4081	4193	
==>w {
    my($cls,$name,$rep,$type,$pairs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$pairs; $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4499	4609	
==>_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12280	12382	
==>es
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single line <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12280	12382	
==>es
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1392	1517	
==>>add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1392	1517	
==>>add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1392	1517	
==>>add_attribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20525	20772	
==>$ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20525	20772	
==>$ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20525	20772	
==>$ret;
                        return $self;
                    }

                    if ( $method eq 'store' ) {
                        #warn "STORING @param";
                        my $pos = shift @param;
                        my $elem = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5601	5699	
==>ess defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5601	5699	
==>ess defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5601	5699	
==>ess defined $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infini <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19480	19590	
==>($p6,$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $pkg = "$ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7784	7881	
==>path(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Po <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7784	7881	
==>path(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1168	1273	
==>Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1168	1273	
==>Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1168	1273	
==>Questions on Role methods sent to p6l 
# - see recent thread: 'Concerning Roles and $?ROLE'

$::Role = $:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1706	1811	
==>se: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1706	1811	
==>se: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	86	188	
==>sion" );
mkdir($Path) unless -e $Path;

sub SessionInit() {
    my %Session=();
    $SID=GetCookie('sid <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	142	251	
==>pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuati <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	137	239	
==>pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuati <==
3	/Users/nnunley/pugs/util/package-osx.pl	4826	4923	
==>le::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::B <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	473	598	
==>rlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	473	598	
==>rlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1613	1738	
==>return;

    return $self->control_dir( $pkg )
                ->file( $self->config->_files_list );
}

=head1 METHODS

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5925	6025	
==>he Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `ro <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5925	6025	
==>he Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `ro <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	45	150	
==>ts) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	45	150	
==>ts) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4613	4714	
==>ield_is_array {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub fie <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2343	2441	
==>.has_method($label, %opts);
    }
}

# alternate p6 version
sub *WALKMETH (block &dispatcher, symbo <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6227	6324	
==>l pretty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=hea <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6227	6324	
==>l pretty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7559	7677	
==>,
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7559	7677	
==>,
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'na <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17264	17364	
==>twiseANDExpression>
}
rule BitwiseXORExpressionNoIn :words {  # see 11.10
      <BitwiseANDExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1052	1171	
==>in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1052	1171	
==>in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1052	1171	
==>in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3751	3935	
==>ugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	148	252	
==>r::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	148	252	
==>r::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8552	8670	
==>,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8552	8670	
==>,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8552	8670	
==>,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50458	50586	
==>nd('add_method' => (
    # method label
        symbol->new('identifier'),
    # method body
        method->new(
            $:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	610	716	
==>r $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, St <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	610	716	
==>r $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	26	125	
==>ngs;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	26	125	
==>ngs;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	26	125	
==>ngs;
use strict;

use FindBin;
use File::Spec;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6621	6739	
==>) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6621	6739	
==>) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10979	11131	
==>p = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8047	8194	
==>p = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8047	8194	
==>p = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	571	668	
==>pe { [ map { Blondie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13160	13277	
==>bute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13160	13277	
==>bute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13160	13277	
==>bute_table(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12361	12469	
==>nt qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_quote_args(\$runper <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3039	3140	
==>can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bver <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3039	3140	
==>can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13777	13868	
==>ption::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13777	13868	
==>ption::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13777	13868	
==>ption::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4468	4567	
==>);
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4468	4567	
==>);
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4468	4567	
==>);
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - change ma <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4506	4635	
==>?), return;

    return JIB::Package->new( 
                file => File::Spec->rel2abs( $archive ),
                meta => $self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23607	23702	
==>L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23607	23702	
==>L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9075	9183	
==>mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9075	9183	
==>mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9075	9183	
==>mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slurpy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1089	1200	
==>]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1089	1200	
==>]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21713	21806	
==>Parser> class,
which installs all the handlers for standard Perl 5 regexes.  This
documentatio <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	72	170	
==>56 } # geht leider nicht!
sub PoundToEuro { @_[0] * 1.4656 }

# interpolierter Funktions-Aufruf
pri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22150	22243	
==>n>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC oper <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22150	22243	
==>n>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC oper <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15816	15952	
==>ist;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ide <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15810	15946	
==>ist;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ide <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6450	6549	
==>params=>$argl,
				      body=>$body,lvalue=>$lval);
	my $ret = eval($code);
	Carp::confess("p6_new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1638	1737	
==>ject->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1638	1737	
==>ject->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1638	1737	
==>ject->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	889	1016	
==>);
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	889	1016	
==>);
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	889	1016	
==>);
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appr <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4785	4909	
==>f $tree[0] eq '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""pPos"
        dbg "# keys: ",%pad.keys;
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1469	1564	
==>.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for many pu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1469	1564	
==>.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for many pu <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1169	1272	
==>$.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use Date <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1169	1272	
==>$.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use Date <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	458	568	
==>on);

    $self->set_makefile_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18321	18413	
==>which the
requested resource address was obtained.

The "Free On-line Dictionary of Computing <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18321	18413	
==>which the
requested resource address was obtained.

The "Free On-line Dictionary of Computing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29220	29337	
==>am = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29220	29337	
==>am = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29220	29337	
==>am = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1524	1669	
==>.
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1524	1669	
==>.
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13548	13659	
==>TH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin or !((stat$_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4849	5000	
==>self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4849	5000	
==>self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4849	5000	
==>self = shift; 
                my $value = shift;
                #carp "Too many arguments to Scalar->store: @_" if @_;
                if ( Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41062	41169	
==>ion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

... <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41062	41169	
==>ion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

... <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41062	41169	
==>ion for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESCRIPTION

... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20105	20201	
==>er blocks get compiled first, then outer blocks.

A compiler may choose to declare that its resul <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28371	28467	
==>etting C<$Test::Harness::verbose> will override this,
or you can use the C<-v> switch in the F<pr <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20105	20201	
==>er blocks get compiled first, then outer blocks.

A compiler may choose to declare that its resul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4801	4912	
==>Dumper::Dumper($node);
			$self->unify_type($node, $expected);
		});

		return Blondie::TypeSafe::Annotation->ne <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3974	4056	
==>~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3974	4056	
==>~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	373	508	
==>de      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	373	508	
==>de      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	373	508	
==>de      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3298	3410	
==>:
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3298	3410	
==>:
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3298	3410	
==>:
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1944	2074	
==>n union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # sa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1944	2074	
==>n union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # sa <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19432	19546	
==>avereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7197	7293	
==>ar:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7197	7293	
==>ar:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7197	7293	
==>ar:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    u <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6819	6915	
==>GEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ke <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6819	6915	
==>GEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ke <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2283	2380	
==>ob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2283	2380	
==>ob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/ <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	530	642	
==>maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input is exhausted
  my $split := { (split rx:p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19231	19324	
==>ad2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19231	19324	
==>ad2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	859	989	
==>t.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	859	989	
==>t.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37626	37753	
==>ub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8103	8207	
==>----
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reas <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8103	8207	
==>----
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reas <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	458	577	
==>ommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15260	15369	
==>oin all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18737	18846	
==>oin all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	106	221	
==>$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	106	221	
==>$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	106	221	
==>$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	620	728	
==>o_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	620	728	
==>o_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	620	728	
==>o_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classd <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7297	7409	
==>odel::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7297	7409	
==>odel::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26943	27037	
==>"str", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → (α × β) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36490	36590	
==>ource relations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41039	41139	
==>ource relations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40653	40753	
==>ource relations are
combined is inconsequential.  A trivial case is where C<@others> is an
empty list <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	637	741	
==>tchObj );
  if ( (substr $target, $from, 1) =~ /[:upper:]/ )
  {
    $matchObj->position( $matchObj->from <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	278	377	
==>onstructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, over <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	278	377	
==>onstructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, over <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12979	13091	
==>= "]" goto endclass
    if $S0 == "-" goto err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto add <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2240	2347	
==>100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_red <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2240	2347	
==>100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_red <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	222	331	
==>ry fully qualified subroutine.
* takes a rexep as the only argument
* not tested much
* read this modules sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13358	13549	
==>m_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13358	13549	
==>m_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13358	13549	
==>m_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5942	6082	
==>ke_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5942	6082	
==>ke_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5942	6082	
==>ke_attribute($attribute_name));
            }
        }     
        if ($body->{methods}) {
            foreach my $method_name (keys %{$bod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	97	202	
==>6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#r <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	97	202	
==>6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2459	2556	
==>O.property_value.exists($P);
    my $attr = $O.property_attributes{$P};
    return JSX::false if $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	135	261	
==>g plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method foo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	135	261	
==>g plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method foo <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1302	1401	
==>288419716939937510;
}

sub lcfirst (Str $str) returns Str is builtin is primitive {
    lc(substr $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1901	2018	
==>uff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1901	2018	
==>uff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1901	2018	
==>uff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHOR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6690	6819	
==>{data}) {
      $self->{data}->type;
    }
    else {
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10590	10686	
==>revious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurre <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10590	10686	
==>revious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1998	2112	
==>y $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1998	2112	
==>y $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1998	2112	
==>y $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3713	3853	
==>%$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3713	3853	
==>%$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_desc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3713	3853	
==>%$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_desc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3508	3628	
==>nt
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacu <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3508	3628	
==>nt
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23879	23996	
==>self: set_attr ((symbol new @:superclasses) (?@superclasses)))
          ($self: set_attr ((symbol new @:MRO) (list ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	429	518	
==>:Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	429	518	
==>:Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	429	518	
==>:Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::use_perl5_module_imp($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	578	678	
==>ke this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	578	678	
==>ke this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9578	9753	
==>Sym->new('&infix:</>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14031	14140	
==>"JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14031	14140	
==>"JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2173	2283	
==>s an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2173	2283	
==>s an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2173	2283	
==>s an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalu <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	822	925	
==>ide, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

= <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	822	925	
==>ide, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2915	3011	
==>y $p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right class name');

is($p1->get_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	384	567	
==>late,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	384	567	
==>late,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    } <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5475	5576	
==>ll-defined location for latter runs of pugs to pick up and load quickly.

Additional options:
    --ve <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7746	7841	
==>element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_elemen <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7746	7841	
==>element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_elemen <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21621	21709	
==>[2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check_offs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9383	9554	
==>semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12860	13031	
==>semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12114	12285	
==>semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3493	3595	
==>f->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3493	3595	
==>f->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3493	3595	
==>f->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17106	17246	
==>ewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20583	20723	
==>ewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20161	20301	
==>ewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($other, $?SELF);
    }

    Set $common_h = $! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	726	838	
==>@subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	726	838	
==>@subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	726	838	
==>@subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2077	2207	
==>b p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2077	2207	
==>b p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2077	2207	
==>b p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	720	829	
==>ncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	720	829	
==>ncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	720	829	
==>ncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") {
    PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5088	5290	
==>ethods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5088	5290	
==>ethods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5088	5290	
==>ethods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $new_class;
}


su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21254	21355	
==>resented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25806	25907	
==>resented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24430	24531	
==>resented by a Perl
Mapping where each Mapping key is an attribute name and each Mapping value
is the c <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3844	3963	
==>n}++;
        $result{number} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' and the 'ok' are <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6957	7054	
==>' versions. 



The rule() constructor provides an interface between the 

low-level functional op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6720	6814	
==>' versions. 

The rule() constructor provides an interface between the 
low-level functional op <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15201	15351	
==>>right or $end->right->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $name = join '', 
              map {$_->attr(' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31374	31474	
==>k directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31374	31474	
==>k directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3967	4073	
==>& $value->isa('symbol'))
        || confess "You must store a symbol type in a param list";
    $self->SUPE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6058	6171	
==>efine a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6058	6171	
==>efine a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	296	394	
==>rkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	296	394	
==>rkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	296	394	
==>rkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1204	1311	
==>:EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1204	1311	
==>:EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1204	1311	
==>:EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1407	1519	
==>r any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1407	1519	
==>r any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1407	1519	
==>r any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2172	2309	
==>$_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2172	2309	
==>$_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2172	2309	
==>$_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attribute ($) {
        my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2269	2374	
==>es:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2269	2374	
==>es:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2269	2374	
==>es:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Perl6::MetaModel;
us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1033	1142	
==>r => $class },
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3563	3659	
==>nfinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Inf <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3563	3659	
==>nfinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2656	2755	
==>ber(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2656	2755	
==>ber(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2656	2755	
==>ber(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Number(a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3998	4159	
==>ready?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4462	4623	
==>ready?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49581	49722	
==>_method' => (
    # method label
        symbol->new('authority'),
    # method body
        method->new(
            $::ENV,
            meth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6095	6196	
==>aught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the sub <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6095	6196	
==>aught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6396	6493	
==>nction (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6396	6493	
==>nction (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_print <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6396	6493	
==>nction (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_print <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5823	5937	
==>operator;          
  }

  expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12541	12636	
==>ted.  The tests that are passing represent the
current working features.

This module deals with <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12541	12636	
==>ted.  The tests that are passing represent the
current working features.

This module deals with <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15833	15928	
==>ld.

Alternately, sometimes a program will raise a condition or error that,
while resembling a m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15833	15928	
==>ld.

Alternately, sometimes a program will raise a condition or error that,
while resembling a m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4460	4549	
==>oken',mk_dynamic_alt(\@tokens));
# tokens should be longest-match-first, but that's simple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	471	572	
==>EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	471	572	
==>EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	471	572	
==>EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16816	16928	
==>undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16816	16928	
==>undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16816	16928	
==>undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute( <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2570	2667	
==>ved.

This program is Free Software, and may be used, distributed and modified under 
the same ter <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2570	2667	
==>ved.

This program is Free Software, and may be used, distributed and modified under 
the same ter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1137	1234	
==>return "package $ident;\n";
}
sub node::require_bareword {
    my $ident = get_str( $_[0], '$<iden <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4035	4143	
==>} else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4035	4143	
==>} else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4035	4143	
==>} else {
    die ".pairs does not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array| <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18016	18212	
==>_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21493	21689	
==>_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21080	21276	
==>_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1503	1618	
==>: \$grammar', \"\\n\";\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    rule_wrapper( \$_[0], (\n" . <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2059	2157	
==>IPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Ta <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2059	2157	
==>IPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Ta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35730	35822	
==>is a generic binary relational operator that takes
another Relation as its C<$other> argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40280	40372	
==>is a generic binary relational operator that takes
another Relation as its C<$other> argument <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2205	2310	
==>ined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param< <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2205	2310	
==>ined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2625	2743	
==>ain'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2625	2743	
==>ain'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2625	2743	
==>ain'));

1;

__END__

=pod

=head1 NAME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4317	4436	
==>);
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4317	4436	
==>);
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4317	4436	
==>);
    while (my $next = $dispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10171	10332	
==>erl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10171	10332	
==>erl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10171	10332	
==>erl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28996	29092	
==>g new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
extens <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33548	33644	
==>g new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
extens <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32685	32781	
==>g new tuple-valued
attributes which wrap zero old attributes (they are effectively just an
extens <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11057	11151	
==>$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11115	11209	
==>$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4025	4197	
==>' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4025	4197	
==>' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4025	4197	
==>' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$ <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	310	419	
==>.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wa <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	310	419	
==>.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14192	14359	
==>$is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14192	14359	
==>$is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14192	14359	
==>$is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12680	12787	
==>- see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12680	12787	
==>- see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12680	12787	
==>- see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6760	6887	
==>alue', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6760	6887	
==>alue', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1284	1400	
==>m() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1284	1400	
==>m() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1284	1400	
==>m() - not all operations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish suppo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1495	1601	
==>!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL', <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1495	1601	
==>!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL', <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8465	8566	
==>ray::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (MatchTest $test ;   *@values -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	124	229	
==>$self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	124	229	
==>$self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	124	229	
==>$self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4355	4466	
==>me   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4355	4466	
==>me   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4355	4466	
==>me   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1;
    my $undef    = PIL::undef_of $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4202	4319	
==>efined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4202	4319	
==>efined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4202	4319	
==>efined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4311	4423	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4369	4481	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	803	919	
==>>fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	803	919	
==>>fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	803	919	
==>>fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub as_js {
    my $s <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5324	5460	
==>a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdir '..';
        chdir '..';
        rmdir $d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22034	22143	
==>e_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16936	17044	
==>e_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30088	30181	
==>value contains the user-readable message text associated with the
Message; this user string ma <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30088	30181	
==>value contains the user-readable message text associated with the
Message; this user string ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17319	17433	
==>- Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17319	17433	
==>- Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17319	17433	
==>- Num, Int, Str, Bit, Pair.

It also implements platform-specific, low-level functions for "unboxed" Values.

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15170	15303	
==>and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC erro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15170	15303	
==>and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC erro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15170	15303	
==>and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC erro <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4545	4706	
==>ns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4545	4706	
==>ns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10908	11004	
==>.
		 "->add_method($namestr".
		 "=> ::make_${k}(do{my \$__f".
		 "= $code_val; sub{\$__f->(\@_)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1396	1509	
==>d_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1396	1509	
==>d_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1396	1509	
==>d_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && !%modi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	192	290	
==>ll based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	192	290	
==>ll based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	192	290	
==>ll based Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2076	2179	
==>d, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is cop <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2076	2179	
==>d, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is cop <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2152	2306	
==>fore install
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before unins <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	460	611	
==>usebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	460	611	
==>usebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6226	6316	
==>xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6226	6316	
==>xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6226	6316	
==>xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs::Internals::ceiling <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25771	25868	
==>being the old names and its values the new names.
This method will fail if any C<$mapping> keys do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30323	30420	
==>being the old names and its values the new names.
This method will fail if any C<$mapping> keys do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29289	29386	
==>being the old names and its values the new names.
This method will fail if any C<$mapping> keys do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5995	6114	
==>llchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5995	6114	
==>llchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5995	6114	
==>llchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF, PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1034	1141	
==>m = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{'$name'} = \n$program;\n";
}
sub node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2291	2384	
==>is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2380	2473	
==>is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> co <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1477	1620	
==>{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$_};
                $ccset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	534	647	
==>or help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	534	647	
==>or help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	534	647	
==>or help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4161	4264	
==>n outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4161	4264	
==>n outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4161	4264	
==>n outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUB <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	690	798	
==>.int
}    

sub whisper_about (Int $sizeof_crowd, Array @x?) returns Hash is
export{
    my %terms;
    for 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1143	1233	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1363	1453	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:= <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3630	3733	
==>'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3630	3733	
==>'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	480	583	
==>'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts';

node_s 'PIL_Stmts',            'PNil';
node_h 'PIL_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9686	9784	
==>();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9686	9784	
==>();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9686	9784	
==>();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
});

::Class.meta.add_method('_mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6986	7110	
==>ss->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6986	7110	
==>ss->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6986	7110	
==>ss->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    while (1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2545	2658	
==>nt $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2545	2658	
==>nt $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2545	2658	
==>nt $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5940	6058	
==>($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5940	6058	
==>($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^( <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	285	380	
==>war?
multi sub duration( Int|Real ?$seconds ) returns Duration::Gregorian is export {
    durati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	429	543	
==>NV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is zero],
);

mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1287	1401	
==>NV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is zero],
);

mo <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3271	3362	
==>_term  { \< null \> }

rule assertion  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9288	9389	
==>ntent-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-styl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9288	9389	
==>ntent-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-styl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2318	2513	
==>bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2318	2513	
==>bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2318	2513	
==>bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6319	6424	
==>\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6319	6424	
==>\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6319	6424	
==>\)\-\>\{/g;  
    # hash followed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3467	3620	
==>v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3467	3620	
==>v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($reques <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2695	2824	
==>kg}->{bin} || [] } ) {
            1 while unlink "$Bindir/$script";
            1 while unlink "$Alternatives/$script";
        } <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1349	1468	
==>nt
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1349	1468	
==>nt
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1233	1333	
==>}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6558	6698	
==>,
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6558	6698	
==>,
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6558	6698	
==>,
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -&Inf || <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	87	187	
==>e::Num;

package bit;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed', 'lo <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	105	199	
==>::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method litera <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	105	199	
==>::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method litera <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1110	1260	
==>nt_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1315	1465	
==>nt_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6458	6570	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6651	6763	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1082	1203	
==>a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1082	1203	
==>a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1082	1203	
==>a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	271	439	
==>'$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	271	439	
==>'$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	271	439	
==>'$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20992	21084	
==>ly defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Post <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20992	21084	
==>ly defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Post <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24554	24651	
==>named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29106	29203	
==>named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27982	28079	
==>named parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relatio <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1889	1981	
==>"class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1889	1981	
==>"class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14550	14680	
==>avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14550	14680	
==>avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14550	14680	
==>avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2794	2957	
==>,\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub al <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2794	2957	
==>,\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39198	39292	
==>method has an alias named C<matching>.

=item C<product (Relation::Example $other!) returns Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11767	11959	
==>'$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11767	11959	
==>'$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11767	11959	
==>'$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

ro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25199	25355	
==>tion'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25478	25634	
==>tion'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14754	14870	
==>nce => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14754	14870	
==>nce => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14754	14870	
==>nce => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Original code and tests by Stevan Little E<lt>stevan@iintera <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39207	39292	
==>L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=h <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39207	39292	
==>L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29593	29720	
==>sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29593	29720	
==>sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29593	29720	
==>sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1494	1617	
==>turn Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1494	1617	
==>turn Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1494	1617	
==>turn Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < argumen <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3680	3777	
==>iption. See links or read
the source (there are about 10 lines of sparse perl in several subs, tru <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3680	3777	
==>iption. See links or read
the source (there are about 10 lines of sparse perl in several subs, tru <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27857	27954	
==>urns Hash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
elements, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7763	7881	
==>_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7763	7881	
==>_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4651	4747	
==>X::global_object.<[[Put]]>(GetPropertyName($V),$W);
    return;
}

# 8.8 The List Type
class JSX: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6351	6501	
==>ndef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6351	6501	
==>ndef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6351	6501	
==>ndef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->get_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3004	3142	
==>b package_version     { $_[0] =~ $re; $3 }
        sub package_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the metadata objec <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3253	3353	
==>nd> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means that th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3253	3353	
==>nd> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means that th <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2753	2878	
==>t_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3217	3342	
==>t_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the pa <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	739	835	
==>ession and return the result.
  # The session's event handler won't be executed until @:events[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16128	16229	
==>d( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16128	16229	
==>d( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16128	16229	
==>d( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1118	1249	
==>' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1118	1249	
==>' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1118	1249	
==>' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " => @param_name <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14892	14987	
==>portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14892	14987	
==>portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4154	4290	
==>undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4154	4290	
==>undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4154	4290	
==>undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = ma <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	576	714	
==>root )                         and die $?;
    
    ### XXX missing repodirs/files
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16271	16398	
==>=> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12692	12819	
==>=> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &R <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3818	3914	
==>bd]] }
rule argument_list { [ <-[\\\(\)]> | \\ . | \( <argument_list> \) ]* }
rule capturing_grou <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1293	1386	
==>ext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.ty <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1293	1386	
==>ext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21494	21643	
==>asses;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21494	21643	
==>asses;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21494	21643	
==>asses;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29621	29729	
==>P_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub g <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29621	29729	
==>P_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        sub g <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	425	521	
==>P_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    sub g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	261	380	
==>ly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	261	380	
==>ly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	261	380	
==>ly with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see psyche.pl for more i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1590	1679	
==>2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1590	1679	
==>2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1590	1679	
==>2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8328	8502	
==>st_pkg->package )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and di <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	137	248	
==>han = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!see <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	137	248	
==>han = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!see <==
3	/Users/nnunley/pugs/util/importgraph.pl	2623	2751	
==>k ? (rank => $rank) : ()),
    );
  $nodes++;

  while(my ($k, $edge) = each %{$module->[0]}) {
    next unless exists $modules{$ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1450	1540	
==>d

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1450	1540	
==>d

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$mat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17278	17379	
==>ading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20755	20856	
==>ading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20333	20434	
==>ading );
    Set $r1only_h = $!heading.difference( $other!heading );
    Set $r2only_h = $other!headin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	730	838	
==>ude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	730	838	
==>ude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	730	838	
==>ude::JS::Continuations;
use Prelude::JS::ControlFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	973	1105	
==>";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	973	1105	
==>";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $ <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	928	1022	
==>use the B<libpcre> library for
regular expressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRI <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15213	15310	
==>ay attention to
to select our language.  so I suspect the default should be Grf. -law]

Attempting <==
3	/Users/nnunley/pugs/util/testgraph.pl	1665	1776	
==>link =~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$link);
    }

    package My::Subtest;
    use base <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2124	2234	
==>L::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Er <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2124	2234	
==>L::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Er <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3977	4086	
==>tc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3977	4086	
==>tc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3977	4086	
==>tc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS:: <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3326	3433	
==>value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a u <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3326	3433	
==>value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a u <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11935	12019	
==>Close].
p6_oct_chars(R) --> octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7390	7500	
==>6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7390	7500	
==>6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7390	7500	
==>6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement );
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9302	9410	
==>ialized for subrules

### - needs to be generalized, and the anchor should only

###   work when needed (or i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8997	9103	
==>ialized for subrules
### - needs to be generalized, and the anchor should only
###   work when needed (or i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	86	181	
==>ilder.pm";

$::TestBuilder->STORE('::Test' => class 'TestBuilder::Test' => {
    is => [ $::Obje <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30519	30622	
==>ping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35070	35173	
==>ping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34252	34355	
==>ping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1262	1377	
==>g is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1262	1377	
==>g is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1262	1377	
==>g is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= "va <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2570	2690	
==>ad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$ta <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2570	2690	
==>ad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$ta <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14227	14334	
==>e => sub { p6_as_array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3765	3908	
==>get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_tim <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3765	3908	
==>get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_tim <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1348	1449	
==>?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describe())."," }
    $s .= "\n " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2991	3106	
==>";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2991	3106	
==>";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2991	3106	
==>";
  $ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9384	9582	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9384	9582	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9384	9582	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
    };
});

::Class. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3659	3784	
==>nt;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3659	3784	
==>nt;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3659	3784	
==>nt;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1043	1149	
==>int 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1043	1149	
==>int 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21733	22205	
==>_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=encod <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14006	14114	
==>anguages that has a matching template available.
        print $translator.translate_message(
            Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14006	14114	
==>anguages that has a matching template available.
        print $translator.translate_message(
            Loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15350	15476	
==>nt        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15350	15476	
==>nt        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15350	15476	
==>nt        { int( $_[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5361	5474	
==>collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5361	5474	
==>collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5361	5474	
==>collect_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1707	1813	
==>ethod = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1707	1813	
==>ethod = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1707	1813	
==>ethod = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
}

1
EOC

    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3067	3191	
==>defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3067	3191	
==>defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3067	3191	
==>defined $param{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	300	418	
==>airs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	300	418	
==>airs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	300	418	
==>airs.length; i++) {
      var pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceo <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1386	1492	
==>($super);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasses.size ) {
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3480	3589	
==>udepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3480	3589	
==>udepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3480	3589	
==>udepc.js      (automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2342	2448	
==>ges used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2890	2996	
==>ges used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3761	3862	
==>n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2872	3041	
==>C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e $preinst && -s _ ) {
                sy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1245	1338	
==>DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1245	1338	
==>DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8181	8286	
==>elation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11658	11763	
==>elation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10840	10945	
==>elation."
        if !($other!heading === $!heading);

    return $?SELF!_intersection( $other );
}

multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	331	442	
==>ap { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	331	442	
==>ap { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	331	442	
==>ap { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	526	649	
==>rn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	526	649	
==>rn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	526	649	
==>rn $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "ne <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7784	7912	
==>(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7784	7912	
==>(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    " <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	517	643	
==>adline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	517	643	
==>adline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3414	3551	
==>ub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKAGE_BIN <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11588	11689	
==>ure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan litt <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11588	11689	
==>ure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan litt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7489	7593	
==>mitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7489	7593	
==>mitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7489	7593	
==>mitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2322	2429	
==>r: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2322	2429	
==>r: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2322	2429	
==>r: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{PIL2JS_INDENT} = "true";
  my $js  = run_p <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6078	6205	
==>ngs
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @arr <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6468	6595	
==>ngs
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @arr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2056	2179	
==>(printable($node->struct_equiv));
	} else { die "don't know to make a literal out of $t" }
}

sub generic_reduce {
	my $self <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2083	2233	
==>r prefix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after insta <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11261	11403	
==>ecure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11261	11403	
==>ecure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	554	643	
==>(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
} <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	554	643	
==>(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
} <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	208	318	
==>ll::Base);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @modules = glob( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6799	6899	
==>n "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6799	6899	
==>n "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1248	1370	
==>" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1248	1370	
==>" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1248	1370	
==>" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $defau <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	419	522	
==>> $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	419	522	
==>> $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2147	2275	
==>::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2147	2275	
==>::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2147	2275	
==>::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	72	184	
==>ph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	72	184	
==>ph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	72	184	
==>ph;

# This is pneuma, this creates ::Object, ::Package and ::Module
# (also the ::EigenClass too)

# From Answer <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3132	3257	
==>and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3132	3257	
==>and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	616	737	
==>ta {
    my $self = shift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{down}) { <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15051	15197	
==>g->tag('div');
              $beg->attr('class', 'empty_head '.$tag);

              next;
            }

            $end = $end->right until (!$e <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1287	1384	
==>earch path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
doe <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1287	1384	
==>earch path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3893	3996	
==>O - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3893	3996	
==>O - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3893	3996	
==>O - test multi-dimensional array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1357	1456	
==>nless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1357	1456	
==>nless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1357	1456	
==>nless($link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[ <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3674	3784	
==>otify(Class::Events::Event::Named.new($name));
        }
    }
}

class Class::Events::Event {
    # pretty muc <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1720	1815	
==>} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Comman <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1720	1815	
==>} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Comman <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3256	3381	
==>xCUR) if &RxPOS != &RxLEN;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ $self->{stack} } while @{ $self->{stack} };
    d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4151	4258	
==>[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4368	4475	
==>[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6669	6767	
==>.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6669	6767	
==>.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6669	6767	
==>.catch_end_exception(function() {
    PIL2JS.runloop(function () {
      var PIL2JS = AlsoPIL2JS_Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9942	10058	
==>mbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9942	10058	
==>mbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9942	10058	
==>mbered_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3316	3438	
==>);
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3316	3438	
==>);
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3316	3438	
==>);
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4047	4167	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4240	4360	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] <==
3	/Users/nnunley/pugs/util/config_h.pl	419	518	
==>ase) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1744	1851	
==>multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1744	1851	
==>multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1744	1851	
==>multi sub uniq ($array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29631	29758	
==>y $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29631	29758	
==>y $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29631	29758	
==>y $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) {
            $sum += $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1282	1396	
==>self, $block) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "OR takes a block";    
    if <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4725	4821	
==>turns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qua <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4725	4821	
==>turns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qua <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	52	185	
==>s tan asin acos atan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9899	10007	
==>$pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(ra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9899	10007	
==>$pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(ra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9899	10007	
==>$pkg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(ra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3389	3525	
==>= ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3389	3525	
==>= ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29889	29984	
==>representation of any children of the object.

=item my $r = $obj->raw()

The raw representation <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2084	2189	
==>' : 'undef';
};

# keys are the codes \n etc map to, values are 2 char strings such as \n
my %backslash_es <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8768	8869	
==>f.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8768	8869	
==>f.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4681	4793	
==>aque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4681	4793	
==>aque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4681	4793	
==>aque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class a <==
3	/Users/nnunley/pugs/util/package-osx.pl	6821	6918	
==>::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variable.3pm
        /usr/local/man/man3 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3591	3685	
==>authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3591	3685	
==>authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7272	7458	
==>= Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7272	7458	
==>= Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7272	7458	
==>= Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $s <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4034	4130	
==>clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4034	4130	
==>clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	491	589	
==>put;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRI <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	491	589	
==>put;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1047	1145	
==>put;

=head1 DESCRIPTION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10779	10946	
==>de

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7120	7287	
==>de

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7969	8136	
==>de

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	882	978	
==>:Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	882	978	
==>:Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	882	978	
==>:Cont->new(argname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cx <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2319	2413	
==>: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.memb <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2319	2413	
==>: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.memb <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21749	21842	
==>e = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3932	4042	
==>fined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3932	4042	
==>fined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3932	4042	
==>fined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods being mere p5 methods. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	325	519	
==>,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	325	519	
==>,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	325	519	
==>,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:superclasses'     => [],
            '%:private_methods'  => {},
            '%:attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1776	1882	
==>else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1776	1882	
==>else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1776	1882	
==>else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6427	6537	
==>S0 = substr target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto end

  term_ws <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	883	1006	
==>imize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#line <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	784	907	
==>imize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#line <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4940	5052	
==>$failedtests), 
           q{ok status jives with $failedtests});

    return $ok;
}

=begin _private

=item B<_a <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1502	1645	
==>h($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $s <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1502	1645	
==>h($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16527	16656	
==>amily => 'open',
      nparen => $nparen,
      data => \@data,
      raw => '(',
      down => 1,
    }, $class;
    $self->{rx}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	755	879	
==>est\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	755	879	
==>est\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	755	879	
==>est\n"
      for 1..$tests;
    exit;
  }

  local $/;
  open my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2725	2858	
==>rl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2725	2858	
==>rl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2725	2858	
==>rl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16239	16334	
==>e spans overlap, then the list contains a single
span. Otherwise, it contains two spans. Spans o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16239	16334	
==>e spans overlap, then the list contains a single
span. Otherwise, it contains two spans. Spans o <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12479	12570	
==>rly do (non-leaking) memory management, via reverse
  engineering (almost completely undocum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	91	234	
==>.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	91	234	
==>.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	91	234	
==>.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8536	8633	
==>.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8536	8633	
==>.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8536	8633	
==>.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_from <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	917	1016	
==>Plan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBU <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	917	1016	
==>Plan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1464	1563	
==>Plan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBU <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	344	454	
==>ubs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <sub <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	344	454	
==>ubs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <sub <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6490	6593	
==>e string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some ba <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6490	6593	
==>e string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some ba <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19600	19703	
==>turn (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6366	6455	
==>dule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6366	6455	
==>dule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6366	6455	
==>dule = $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2702	2825	
==>class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2702	2825	
==>class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2702	2825	
==>class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        unless defined $p <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2189	2289	
==>sts $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2167	2267	
==>sts $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8247	8364	
==>alize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @uni <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8247	8364	
==>alize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @uni <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7576	7680	
==>table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7576	7680	
==>table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15355	15459	
==>b p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_hash_handlers{$refty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2363	2474	
==>t, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2363	2474	
==>t, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2363	2474	
==>t, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	765	880	
==>+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	765	880	
==>+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	765	880	
==>+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

pack <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15979	16100	
==>essage
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute mob, "PGE::Matc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7756	7863	
==>killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", - <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7756	7863	
==>killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", - <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6876	6998	
==>f: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("C <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6876	6998	
==>f: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("C <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	662	766	
==>::abs_path($FindBin::Bin)]}
*** Please report this issue to <perl6-compiler\@perl.org>.
.
        require <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5762	5861	
==>, 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5762	5861	
==>, 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2661	2760	
==>, 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5767	5892	
==>trs($self)->{'%:methods'}->{$label};
        },        
        'get_method_list' => sub ($$) {
            my ($self, $label) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2451	2572	
==>l"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, cir <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2451	2572	
==>l"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, cir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6983	7082	
==>rity' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6983	7082	
==>rity' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6983	7082	
==>rity' => ::make_method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4579	4702	
==>tion    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some he <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4579	4702	
==>tion    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8605	8717	
==>!defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8605	8717	
==>!defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "requir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8605	8717	
==>!defined $pugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "requir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3298	3420	
==>se->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3298	3420	
==>se->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3298	3420	
==>se->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3655	3771	
==>ookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3655	3771	
==>ookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3655	3771	
==>ookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $self = shift;

    return sprintf "var % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3062	3166	
==>unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3062	3166	
==>unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3062	3166	
==>unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/) {
    print $OUT "Usa <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1304	1430	
==>egex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curl <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1304	1430	
==>egex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25125	25259	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25404	25538	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4693	4792	
==>= shift;

	$self->reduce($val->struct_equiv->val);
}

sub add_definition {
	my $self = shift;
	my $n <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4424	4538	
==>00001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000003\n" ],
      [ 'file <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3573	3676	
==>todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $mod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3631	3734	
==>todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $mod <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6614	6713	
==>develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basically <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6614	6713	
==>develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basically <==
3	/Users/nnunley/pugs/util/fixauthors.pl	596	689	
==>y $tree=HTML::TreeBuilder->new_from_content($html);
  my $realname = $tree->look_down(class=>" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2372	2497	
==>$pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print Y <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2372	2497	
==>$pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print Y <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2372	2497	
==>$pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print Y <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2055	2158	
==>list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2707	2799	
==>h a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2707	2799	
==>h a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21946	22034	
==>:openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21946	22034	
==>:openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21946	22034	
==>:openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p6_to_n( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13213	13359	
==>ax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9399	9545	
==>ax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10235	10381	
==>ax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$final_ast->{tail};\n" .
                #"    print \" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3192	3289	
==>ows you to test test modules that use Test::Builder.  It
does this by you setting the expected out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3192	3289	
==>ows you to test test modules that use Test::Builder.  It
does this by you setting the expected out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3272	3369	
==>ows you to test test modules that use Test::Builder.  It
does this by you setting the expected out <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1451	1553	
==>'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLV <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4575	4674	
==>'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4575	4674	
==>'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	778	890	
==>17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	778	890	
==>17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	778	890	
==>17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - re <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8100	8256	
==>$x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8100	8256	
==>$x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1223	1333	
==>me => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entryp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1223	1333	
==>me => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entryp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1223	1333	
==>me => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entryp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	306	405	
==>Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	306	405	
==>Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	306	405	
==>Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28318	28513	
==>numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28318	28513	
==>numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28318	28513	
==>numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $ <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1654	1760	
==>Ingo");
  # "Hello, Ingo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is only an ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	551	650	
==>ock>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rul <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2051	2148	
==>t ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it h <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2051	2148	
==>t ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3138	3246	
==>d here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3138	3246	
==>d here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3138	3246	
==>d here ... to be continued 

::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22860	22990	
==>ir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "=";
  }
}


{
  # (?!) (?<!)
  packa <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13502	13592	
==>ot the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13502	13592	
==>ot the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17574	17666	
==>setta::Interface::DBMS object represents a single active Rosetta virtual
machine; it has a sp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17574	17666	
==>setta::Interface::DBMS object represents a single active Rosetta virtual
machine; it has a sp <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	799	929	
==>, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    mult <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	799	929	
==>, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    mult <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	767	867	
==>:CodeCompile->new(p6=>$p6)->compile;
	my $p5 = p6_wrap_code_with_package($cc->as_p5,'main');
	if($ver <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	151	254	
==>estBuilder = undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_attrib <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1155	1249	
==>nsive test suite to run against all Engines

=head1 VERSION

This document describes Rosetta::V <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1155	1249	
==>nsive test suite to run against all Engines

=head1 VERSION

This document describes Rosetta::V <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12493	12594	
==>ns opaque
    ((($canidate to_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36121	36217	
==>ame Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36121	36217	
==>ame Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4676	4789	
==>1;

__END__

=pod

=head1 NAME

list - the core list type

=head1 METHODS

=over 4

=item B<new (@x of ~type) retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35613	35706	
==>od is the N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40163	40256	
==>od is the N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relati <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1744	1853	
==>>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule external_arra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6611	6714	
==>s (Pugs::Grammar::Match) contain:



### Match actually contain getters for $() and such

### getters ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6389	6489	
==>s (Pugs::Grammar::Match) contain:

### Match actually contain getters for $() and such
### getters ne <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6463	6585	
==>y.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # S <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6463	6585	
==>y.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # S <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3225	3407	
==>g.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3225	3407	
==>g.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1873	1966	
==>y ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1873	1966	
==>y ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1873	1966	
==>y ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1018	1127	
==>tcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1018	1127	
==>tcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1018	1127	
==>tcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_attribute($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6607	6710	
==>, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6607	6710	
==>, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6607	6710	
==>, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from. <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	450	585	
==>ep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<cou <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	450	585	
==>ep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<cou <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	11	112	
==>perl

package Blondie::Backend::Perl;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

use B <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4851	4957	
==>etch($i)->name->to_native . ' => ' . $left->fetch($i)->type->to_native;
        # warn "with " . $right->fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1366	1560	
==>t_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1366	1560	
==>t_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1366	1560	
==>t_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3365	3470	
==>his module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3365	3470	
==>his module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3445	3550	
==>his module to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=it <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3848	3954	
==>... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3848	3954	
==>... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5372	5478	
==>... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	786	958	
==>ext
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:per <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	786	958	
==>ext
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30357	30453	
==>epresentation of any children of the object.

=item $obj->walk()

"Walks" the object.  This is us <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7740	7843	
==>span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7740	7843	
==>span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27567	27653	
==>Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Parser::__object__ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4610	4726	
==>z// is true)
        # This will also show numbers for some uneeded cases, but will
        # definately be helpful f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23975	24062	
==>ugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23975	24062	
==>ugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36632	36723	
==>ons, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation::Example <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1841	1947	
==>elf: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1841	1947	
==>elf: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2074	2179	
==>b stringify {
	my $dag = shift;

	my @free;

	my $tree = $dag->splat(\@free); # Attribute grammars can't e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20740	20839	
==>essages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20740	20839	
==>essages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2800	2900	
==>ldren

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of o <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2800	2900	
==>ldren

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18192	18280	
==>, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),F <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23264	23400	
==>. '$Curtest->{canon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    return($fmt_to <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3936	4035	
==>e}.

p6_quantified(Z) --> p6_elemental(W), p6_quantified_op(W, Z).
p6_quantified_op(W, Z) --> p56_qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21055	21146	
==>ll automatically be compiled into .pmc files and shipped with your
distribtution precompiled <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21055	21146	
==>ll automatically be compiled into .pmc files and shipped with your
distribtution precompiled <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4317	4418	
==>C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4317	4418	
==>C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5841	5942	
==>C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

= <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	828	925	
==>e::Runtime

    my $compiled = Blondie::Backend::Foo->compile($program);
    my $result = Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4620	4701	
==>d ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)* <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4620	4701	
==>d ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15894	15993	
==>$is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15894	15993	
==>$is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15894	15993	
==>$is_class_method) = @_; 
        warn "... entering _normal_dispatch with label($label)" if $DISPATC <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1735	1834	
==>r $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1793	1892	
==>r $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14716	14814	
==>rted. Use the C<.buckets>
property instead.

=back


=head2 Str

General notes about strings:

A St <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6879	6992	
==>{ die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1236	1346	
==>{ die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	338	445	
==>{ die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
su <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4395	4493	
==>t match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4395	4493	
==>t match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4475	4573	
==>t match exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=h <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	413	510	
==>eful similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	413	510	
==>eful similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24822	24914	
==>be individually addressed only by their names, and all
Relation::Example tuples may be indivi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15837	16020	
==>m );

        $res = Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    => @tm[3],
            min     => <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3328	3436	
==>age(package => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_package(package => $pkg)

=cu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	705	812	
==>:MakeMaker::prompt;
    }
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1547	1665	
==>tion = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1547	1665	
==>tion = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1547	1665	
==>tion = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native class
#
# cell keys:  
#    v  (value)   (defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	161	278	
==>ixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	161	278	
==>ixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	161	278	
==>ixup {
  die unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pS <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7087	7201	
==>ding'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25990	26084	
==>ge, and can be interpolated into the
human-readable version.  Each variable name is a machine-r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25990	26084	
==>ge, and can be interpolated into the
human-readable version.  Each variable name is a machine-r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	743	849	
==>urn $o;
}
sub set {
    my($o,$b,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_strin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37302	37401	
==>(a string) and checks whether or not it has already been
loaded, returning true if so and false if n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37302	37401	
==>(a string) and checks whether or not it has already been
loaded, returning true if so and false if n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4149	4259	
==>array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4149	4259	
==>array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4149	4259	
==>array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>» <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5347	5452	
==>th > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5347	5452	
==>th > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5347	5452	
==>th > 0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4233	4359	
==>unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4233	4359	
==>unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4233	4359	
==>unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mods_altered. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7035	7171	
==>ce";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7035	7171	
==>ce";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7035	7171	
==>ce";
            $ary->splice( $start, 0, $slice );
            # warn "splice done";
            # items should be cloned before storing <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6939	7056	
==>erse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6334	6436	
==>nt<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6334	6436	
==>nt<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!use <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5514	5608	
==>ontent-Type') when you are accessing the web using this
function.  If you need that information <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5514	5608	
==>ontent-Type') when you are accessing the web using this
function.  If you need that information <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	458	555	
==>_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	458	555	
==>_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	458	555	
==>_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%modi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13256	13374	
==>xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13256	13374	
==>xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13256	13374	
==>xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22486	22725	
==>lar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22486	22725	
==>lar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22486	22725	
==>lar' ) ) {
                        #warn "FETCHED CELL IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12430	12597	
==>s $n->{exp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] bette <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3895	3996	
==>($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ircnam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3895	3996	
==>($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ircnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12834	12936	
==>a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12834	12936	
==>a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12834	12936	
==>a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7136	7245	
==>n2};

  oper_shift:
  push @tokenStack, $token;
  push @operatorStack, $operator;
  $position = $operator->to( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2838	2932	
==>lue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compile <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2838	2932	
==>lue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5577	5679	
==>ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5577	5679	
==>ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5577	5679	
==>ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10204	10335	
==>', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'ne <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10204	10335	
==>', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'ne <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	120	220	
==>ON

Methods are bindings of Code objects to a particular Type.

=over

=item *

A method's Code prope <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9024	9119	
==>etta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SY <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9024	9119	
==>etta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1072	1179	
==>unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1072	1179	
==>unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1072	1179	
==>unwrap->isa("PIL::PVar")) {
      my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1223	1363	
==>catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1223	1363	
==>catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1223	1363	
==>catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19909	20043	
==>this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors duri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19909	20043	
==>this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors duri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19909	20043	
==>this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors duri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	789	903	
==>like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psy <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	789	903	
==>like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psy <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	789	903	
==>like a Duck, it must them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psy <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1141	1303	
==>h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1141	1303	
==>h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5157	5260	
==>git>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_seque <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1397	1510	
==>ib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1397	1510	
==>ib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	317	422	
==>43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	317	422	
==>43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	317	422	
==>43, 47) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3096	3185	
==>paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3096	3185	
==>paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3096	3185	
==>paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlur <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8522	8630	
==>AME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8522	8630	
==>AME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # a <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3430	3556	
==>g;
#    # segils
##    $file =~ s/([\$])/\\$1/gm;
#    # latex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4482	4583	
==>return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4482	4583	
==>return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6573	6699	
==>s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6573	6699	
==>s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6573	6699	
==>s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next_METHOD\(\)/g;            
    
    return $meth <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24181	24292	
==>push @result, "FAILED test $last\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max tes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24770	24865	
==>he Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24770	24865	
==>he Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7021	7140	
==>is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7021	7140	
==>is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7021	7140	
==>is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30030	30162	
==>ems}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30030	30162	
==>ems}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30030	30162	
==>ems}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7126	7469	
==>ic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'art <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7183	7526	
==>ic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'art <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	989	1090	
==>ap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	989	1090	
==>ap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	989	1090	
==>ap>;
    %rx_helper_cache{'re_x'}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9629	9735	
==>.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method diff <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9629	9735	
==>.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method diff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12826	12914	
==>:Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12826	12914	
==>:Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12826	12914	
==>:Exception::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	717	811	
==><$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHOD <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	717	811	
==><$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1273	1367	
==><$.error_output>

The filehandle to which to write all diagnostic output.

=back

=head1 METHOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1904	2022	
==>GE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait => '$_' } } ));
    }
    __PACKAGE__->recompi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6073	6184	
==>rator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6073	6184	
==>rator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1590	1701	
==>ec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1590	1701	
==>ec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1590	1701	
==>ec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub { 
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33604	33733	
==>sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33604	33733	
==>sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33604	33733	
==>sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	264	375	
==>efined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	264	375	
==>efined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	264	375	
==>efined
#   (function () { return eval "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statem <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	122	299	
==>XPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Available
            $Builddir <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4610	4729	
==>th? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4610	4729	
==>th? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1292	1402	
==>elf->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1292	1402	
==>elf->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1292	1402	
==>elf->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_class->add_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1399	1506	
==>or(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1399	1506	
==>or(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.lengt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1399	1506	
==>or(var i = 0; i < idxs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.lengt <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7280	7376	
==>infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7280	7376	
==>infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Se <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9398	9549	
==>b{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10389	10540	
==>b{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6638	6743	
==>m + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6638	6743	
==>m + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6638	6743	
==>m + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub infix:<^..^> (Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4946	5041	
==>ry dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4946	5041	
==>ry dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4946	5041	
==>ry dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9669	9788	
==>debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9669	9788	
==>debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8865	8979	
==>$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8865	8979	
==>$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11491	11599	
==>port

Perl's regex engine doesn't see \N{NAME} escapes -- they get interpolated
by Perl first.  In fact, if o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24956	25052	
==>ly or dynamically with other components is making a
combined work based on Rosetta.  Thus, the te <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24956	25052	
==>ly or dynamically with other components is making a
combined work based on Rosetta.  Thus, the te <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16052	16145	
==>C</^\s+/>.  The difficulty
rating is so high because of cases like C</(\d+)(\w+)/> which, when <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15151	15252	
==>e to the user, or generate a message to be
shown to the user.  Sometimes this is an error message of s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15151	15252	
==>e to the user, or generate a message to be
shown to the user.  Sometimes this is an error message of s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	897	1000	
==>the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	897	1000	
==>the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	897	1000	
==>the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred ob <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1573	1683	
==>ndie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blondie::Node::Unit;
    use base qw/Blondi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4967	5061	
==>, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4967	5061	
==>, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5114	5236	
==>n '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5114	5236	
==>n '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5114	5236	
==>n '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14545	14671	
==>d to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14545	14671	
==>d to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14545	14671	
==>d to avoid meta-circularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9764	9875	
==>};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    retur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	131	243	
==>lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long q <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5645	5737	
==>e (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5645	5737	
==>e (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12594	12716	
==>rror(RPe_ESLASH);
  });

  # start of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16684	16782	
==>hing by itself to the user, but
rather returns its results for calling code to output as it sees fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16684	16782	
==>hing by itself to the user, but
rather returns its results for calling code to output as it sees fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5635	5765	
==>vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5635	5765	
==>vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5635	5765	
==>vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        und <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3891	4099	
==>IB_PACKAGE_INSTALLABLE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local va <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16064	16154	
==>teve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16122	16212	
==>teve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6968	7141	
==>@param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6968	7141	
==>@param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6968	7141	
==>@param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infinite hash slice not suppo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4386	4492	
==>t);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 S <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4386	4492	
==>t);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 S <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2628	2727	
==>egexp
struct as a new api into the guts of the perl core.  There being no
documentation, one ends up <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2384	2495	
==>l = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2384	2495	
==>l = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2384	2495	
==>l = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @s <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	122	258	
==>et_config {
    my $config = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11194	11290	
==>r $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These fu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11252	11348	
==>r $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13899	14021	
==>) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13899	14021	
==>) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13899	14021	
==>) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7705	7861	
==>OLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7705	7861	
==>OLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7705	7861	
==>OLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq ' <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	178	260	
==>ttp://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Req <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	145	227	
==>ttp://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Req <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	191	273	
==>ttp://www.nntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::Req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1102	1194	
==>1 DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatible w <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1102	1194	
==>1 DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatible w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6833	6948	
==>mpile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang \< perl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19223	19320	
==>volved in making the program would be editing them.  At
the same time, this information is in sepa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19223	19320	
==>volved in making the program would be editing them.  At
the same time, this information is in sepa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1471	1617	
==>emAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1471	1617	
==>emAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1471	1617	
==>emAny]
        ).FETCH();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1125	1238	
==>'num'))
        || confess "Index must be a num type";
    (blessed($value) && $value->isa('type'))
        || con <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2194	2291	
==>tem wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defau <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2194	2291	
==>tem wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defau <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1350	1461	
==>eturns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1350	1461	
==>eturns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	996	1107	
==>cc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	996	1107	
==>cc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	996	1107	
==>cc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6501	6683	
==>ying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6501	6683	
==>ying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6501	6683	
==>ying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3878	3989	
==>(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9901	10007	
==>.CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10249	10355	
==>.CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10811	10922	
==>pe::operator::pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4530	4625	
==>his is normally the entire match string, but may be arbitrary
objects returned from the rule usi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4530	4625	
==>his is normally the entire match string, but may be arbitrary
objects returned from the rule usi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14562	14697	
==>ircularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, howe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14562	14697	
==>ircularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, howe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14562	14697	
==>ircularity issues

        # gather all the classes to look through
        my @classes = ($self);
        # we take the MRO first, howe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	435	548	
==>in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	435	548	
==>in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); met <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	959	1070	
==>eta or $meta = $self->extract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13112	13213	
==>t =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protecti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13112	13213	
==>t =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protecti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13112	13213	
==>t =>q{$argl},-value => [$argl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protecti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40646	40761	
==>@{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40646	40761	
==>@{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40646	40761	
==>@{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30762	30871	
==>n of each tuple), but
that any duplicates following the transformation have been eliminated. 
Trivial cases ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35313	35421	
==>n of each tuple), but
that any duplicates following the transformation have been eliminated.
Trivial cases ar <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34504	34612	
==>n of each tuple), but
that any duplicates following the transformation have been eliminated.
Trivial cases ar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28494	28589	
==>handler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28494	28589	
==>handler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::Keye <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1144	1238	
==>idate_params {
  if(not $CGI->param("version") or $CGI->param("version") != VERSION) {
    prin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1211	1307	
==>rivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and ev <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1211	1307	
==>rivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and ev <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1859	1972	
==>s:
#   * This grammar has never yet been run, so there no doubt are some.
#
#  Possible Bugs:
#   * We are not usi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8123	8222	
==>29draft.pod 8651.  In the List section.
multi Array::reverse (   @values --> Lazy|Str) {
    List::r <==
3	/Users/nnunley/pugs/util/package-osx.pl	6150	6247	
==>ect.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/local/man/man3/Perl6::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14762	14865	
==>nals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14762	14865	
==>nals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14762	14865	
==>nals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16475	16591	
==>} ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16475	16591	
==>} ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16475	16591	
==>} ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	762	881	
==>eof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	762	881	
==>eof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	762	881	
==>eof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var name   = ex <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2459	2614	
==>ry storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2459	2614	
==>ry storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353) <==
3	/Users/nnunley/pugs/util/func_refact.pl	1932	2059	
==>1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "union: while adding $new, entered wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1537	1647	
==>nv->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1537	1647	
==>nv->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1537	1647	
==>nv->get('current_class');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	153	261	
==>rnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::Bi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	153	261	
==>rnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::Bi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	153	261	
==>rnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::Bi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5993	6117	
==>>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4493	4617	
==>>= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39558	39669	
==>if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39558	39669	
==>if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39558	39669	
==>if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = shift;
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4624	4725	
==>.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4624	4725	
==>.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4624	4725	
==>.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	982	1096	
==>) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	982	1096	
==>) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	982	1096	
==>) returns Ref {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.po <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	453	576	
==>he values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	453	576	
==>he values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1558	1668	
==>ing {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $from = $self->from();
  my $position = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2701	2821	
==>_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2701	2821	
==>_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2701	2821	
==>_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3125	3258	
==>s} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3125	3258	
==>s} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3125	3258	
==>s} ) {
        $param{celems} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $pa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3114	3225	
==>X - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method doe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3114	3225	
==>X - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method doe <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18247	18355	
==>otals->{seen};
};

sub test_handler {
    my($self, $line, $type, $totals) = @_;

    my $curr = $totals->{se <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	680	781	
==>te slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   curren <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	680	781	
==>te slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   curren <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	794	919	
==>tring, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for thi <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	794	919	
==>tring, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11231	11335	
==>So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11231	11335	
==>So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11231	11335	
==>So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethods. It is important t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	4990	5131	
==>LER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	4990	5131	
==>LER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	4990	5131	
==>LER::CLASS = $::CLASS;
            # get all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12946	13039	
==>Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are pro <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12946	13039	
==>Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are pro <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9727	9822	
==>et is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can exte <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9727	9822	
==>et is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can exte <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1049	1199	
==>t|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2417	2517	
==>*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2417	2517	
==>*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "retu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1975	2127	
==>lex number
    Ref         Perl reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehand <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12369	12478	
==>sif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12369	12478	
==>sif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1655	1798	
==>=> $S->nchar($n), "\\c[$n]");
      }

      return $S->object(exact => join("", $S->nchar(@names)), "\\c[$n]");
    }

    $S->error(0, "Missin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	49	147	
==>1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	49	147	
==>1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1534	1634	
==>($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1534	1634	
==>($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1534	1634	
==>($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6451	6562	
==>rrent = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ($self, $env) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1887	2008	
==>6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1887	2008	
==>6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1887	2008	
==>6::Submethod::FORCE, $self, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1846	1944	
==>>set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1846	1944	
==>>set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1846	1944	
==>>set_error_handler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMes <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3810	3924	
==>ing',
  'paramContext' ,'Cxt',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'po <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27530	27616	
==>H_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2158	2283	
==>sage is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $mes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	159	272	
==>sage is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	159	272	
==>sage is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $mes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5663	5789	
==>h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5663	5789	
==>h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundar <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5904	6022	
==>r
    mob = newfrom(mob, 0, "PGE::Exp::Literal")
    litstart = pos
    litlen = 0
  term_literal_loop:
    if pos >= l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3750	3878	
==>tch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3750	3878	
==>tch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3750	3878	
==>tch(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_al <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4498	4625	
==>r {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self->er <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2749	2846	
==>om the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolea <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2749	2846	
==>om the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2449	2559	
==>.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2449	2559	
==>.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2449	2559	
==>.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	718	836	
==>_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	718	836	
==>_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	718	836	
==>_[0]->{pSubBody}    }
  sub multi  :lvalue { $_[0]->{pSubIsMulti} }

  sub fixup {
    die if ref $_[0]->name;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4213	4340	
==>ef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4213	4340	
==>ef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4213	4340	
==>ef
      );

    my @arg = (@jsparams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	932	1060	
==>e);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0 <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	932	1060	
==>e);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4622	4734	
==>$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4622	4734	
==>$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4622	4734	
==>$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4618	4728	
==>comp => "\r", '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_obje <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2980	3105	
==>chunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2980	3105	
==>chunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $ba <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1811	1900	
==>QRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".spli <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1811	1900	
==>QRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".spli <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34075	34180	
==>ed in Perl with a
look-ahead around the left-hand branch: C</(?=x)y/>.  We can expand this
to any number o <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2032	2124	
==>Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2032	2124	
==>Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2797	2920	
==>exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2797	2920	
==>exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12315	12421	
==>e = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the ini <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1243	1341	
==>ut;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1243	1341	
==>ut;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1243	1341	
==>ut;
alarm $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_de <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10592	10705	
==>rrow->new( $l, $l );
	},
	# a -> b -> (a x b)
	pair => do {
		my $a = type::variable::free->new;
		my $b = type::v <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	3	101	
==>ad1 NAME

Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	3	101	
==>ad1 NAME

Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3766	3874	
==>== 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3766	3874	
==>== 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3766	3874	
==>== 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - test splice an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15968	16120	
==>label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15968	16120	
==>label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15968	16120	
==>label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11887	12068	
==>uperclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11887	12068	
==>uperclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11887	12068	
==>uperclasses;
                }             
                return $current_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3343	3445	
==>e for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedTe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3343	3445	
==>e for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedTe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23422	23503	
==>------------------------------------------------------

replace_at_n(0,Replace,[], <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3198	3479	
==>x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	325	452	
==>ody>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - mo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	325	452	
==>ody>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1735	1841	
==>erl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1735	1841	
==>erl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1735	1841	
==>erl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	163	259	
==>ods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checkin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	163	259	
==>ods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checkin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	163	259	
==>ods Code::signature_str and Perl6::Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checkin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	215	341	
==>er::Dumper( @_ ) );
}

package Pugs::Runtime::Perl6::Scalar;

sub isa {
    my $self = $_[0];
    return 1 if $_[1] eq 'Str'  & <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2880	2992	
==>: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3020	3132	
==>: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9587	9711	
==>tringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9587	9711	
==>tringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9587	9711	
==>tringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl );
                Str- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3400	3518	
==>xts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $gl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4350	4455	
==>> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4350	4455	
==>> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1419	1515	
==>nsane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in part <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1419	1515	
==>nsane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in part <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2557	2652	
==>opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2557	2652	
==>opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2557	2652	
==>opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2093	2217	
==>else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing wit <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2093	2217	
==>else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing wit <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	37	141	
==>en Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	129	226	
==>atal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
} <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	129	226	
==>atal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	914	1029	
==>= instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	914	1029	
==>= instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	914	1029	
==>= instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12872	13027	
==>ed;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12872	13027	
==>ed;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12872	13027	
==>ed;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4422	4545	
==>e_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4422	4545	
==>e_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4422	4545	
==>e_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special case t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4416	4526	
==>xup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4416	4526	
==>xup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4416	4526	
==>xup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map { $_->fixup } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1400	1518	
==>});
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1400	1518	
==>});
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1400	1518	
==>});
        };
    }
    # support anon-classes here ....
    if (!defined($body) && ref($full_name) && ref($full_name) <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	416	517	
==>0)
# and with very little knowledge of Perl 6. These five examples
# can be improved in many ways, and <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1520	1614	
==>or links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory ther <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1520	1614	
==>or links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory ther <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3377	3491	
==>y $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->create('$current' => $e->get('&dispat <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	450	551	
==><= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infi <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	450	551	
==><= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27587	27684	
==>ll
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32139	32236	
==>ll
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each val <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31231	31328	
==>ll
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Each val <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	224	393	
==>riables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    ha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	224	393	
==>riables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    ha <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7646	7769	
==>ding'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1269	1451	
==>ument.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1269	1451	
==>ument.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1269	1451	
==>ument.body.offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1096	1286	
==>instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Gl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1096	1286	
==>instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Gl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1096	1286	
==>instance_add_new_attribute {
        $_[0]->[2]->{$_[1]} = $_[2];            
    }
    
    sub ::opaque_instance_change_class {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Gl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2361	2478	
==>lem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2361	2478	
==>lem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2361	2478	
==>lem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any longer, as <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1276	1398	
==>refs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1276	1398	
==>refs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	205	315	
==>=~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	205	315	
==>=~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	205	315	
==>=~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3399	3510	
==>params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3399	3510	
==>params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3399	3510	
==>params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14599	14718	
==>generic_vars = generic($.fun);

	# if the function is generic we'll be instantiating it's type variables in the function <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3710	3810	
==>t_child is really the same as
# insert_children, you are just inserting
# and array of one tree
our & <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3710	3810	
==>t_child is really the same as
# insert_children, you are just inserting
# and array of one tree
our & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1123	1242	
==>} elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1123	1242	
==>} elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1123	1242	
==>} elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5120	5283	
==>H('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status->{"passed <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3111	3209	
==>named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3111	3209	
==>named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1685	1796	
==>est_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1685	1796	
==>est_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1765	1876	
==>est_out( $line );
}

sub test_out ( Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9705	9803	
==>y',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9705	9803	
==>y',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9705	9803	
==>y',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1377	1487	
==>ash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1377	1487	
==>ash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1377	1487	
==>ash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10627	10740	
==>:Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10627	10740	
==>:Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10627	10740	
==>:Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4358	4455	
==>yobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4358	4455	
==>yobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4358	4455	
==>yobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reblesses them into
N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	110	221	
==>(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	110	221	
==>(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	110	221	
==>(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11755	11911	
==>n Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11755	11911	
==>n Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11755	11911	
==>n Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method . <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	156	261	
==>le($FindBin::Bin, @_) }
my $src_root = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	455	550	
==>on) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	455	550	
==>on) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15363	15458	
==><AdditiveExpression>
    | <ShiftExpression> <'>>>'> <AdditiveExpression>
}
rule RelationalExpre <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7688	7808	
==>pan0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7688	7808	
==>pan0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9714	9819	
==>erl's putenv is broken, so it will not see PERL5LIB, tainted or not.
    if ( $taint || $self->{_is_macos} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3213	3333	
==>defined $got || !defined $expected ) {
        # undef only matches undef
        $pass = !defined $got && !defined $expe <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5849	5937	
==>-----------------------------------------------
## sibling methods

method get_sibling ($ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5849	5937	
==>-----------------------------------------------
## sibling methods

method get_sibling ($ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1660	1755	
==>($path, "script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec->catfile($path, "bin <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3386	3477	
==>d3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the procedura <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3386	3477	
==>d3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the procedura <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26824	26978	
==>rl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27103	27257	
==>rl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6621	6757	
==>rn $self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->type;
    }
    else {
      join "", <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31242	31341	
==>l's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which the t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35792	35891	
==>l's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which the t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35010	35109	
==>l's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which the t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5006	5117	
==>$Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$scri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4222	4329	
==>$Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$scri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3086	3252	
==>my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3086	3252	
==>my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3086	3252	
==>my $offset = 0;
      my @a;
      while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $off <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5596	5702	
==>from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5596	5702	
==>from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5596	5702	
==>from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB capitalize ($xx) {
    my $string = $xx->unboxed;
    # from t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1111	1211	
==>rname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We'v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1111	1211	
==>rname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We'v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1111	1211	
==>rname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We'v <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1127	1261	
==>y $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12156	12261	
==>sert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'ME <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12156	12261	
==>sert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'ME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4940	5066	
==>the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4940	5066	
==>the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4940	5066	
==>the attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute ar <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2575	2696	
==>,
        PERLPREFIX      => $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8346	8454	
==>:greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8057	8160	
==>:greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3505	3613	
==>der::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a speci <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3505	3613	
==>der::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a speci <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5702	5810	
==>der::Test::Base role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a speci <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5001	5107	
==>er::Rule->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_open'} = P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2228	2328	
==>|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2239	2339	
==>|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4413	4576	
==>R $src ]. $inst->dir )     and die $?;     
            
            ### register the installation
            ### do this AFTER installing, duh!
            $inst_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4480	4602	
==>ous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.int <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4480	4602	
==>ous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39863	39978	
==>lue::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39863	39978	
==>lue::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39863	39978	
==>lue::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	980	1090	
==>s sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	980	1090	
==>s sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2409	2564	
==>boxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2409	2564	
==>boxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2409	2564	
==>boxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6505	6679	
==>end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6505	6679	
==>end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6505	6679	
==>end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	278	380	
==>Stmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	278	380	
==>Stmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	278	380	
==>Stmt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12010	12113	
==>$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12010	12113	
==>$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@cla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12010	12113	
==>$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10001	10175	
==>>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass.new <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	565	729	
==>>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	565	729	
==>>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass.new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1615	1730	
==>licate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        ret <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1144	1246	
==>d for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be nu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1144	1246	
==>d for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be nu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7419	7537	
==>);
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7477	7595	
==>);
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5511	5605	
==>t diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5511	5605	
==>t diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7708	7802	
==>t diagnoistic

=back

=item B<Test::Builder::Test::WithReason>

This role extends the Test::Bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2238	2378	
==>. ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2238	2378	
==>. ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2238	2378	
==>. ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClas <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6828	6945	
==>gs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $pugs_version;
step <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3856	3971	
==>$decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3856	3971	
==>$decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	350	482	
==>'$dir'";
        
    my $pkg = $src->build 
        or die "Could not build source package from '$dir'";
        
    push @PKGS, $p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	214	302	
==>Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	214	302	
==>Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitte <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5539	5648	
==>B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple publi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5539	5648	
==>B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple publi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7736	7845	
==>B<Test::Builder::Test::WithReason>

This role extends the Test::Builder::Test::Base role to add a simple publi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19151	19247	
==>storing.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19151	19247	
==>storing.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21364	21457	
==>(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1528	1636	
==>$thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1528	1636	
==>$thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1528	1636	
==>$thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub cir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9579	9678	
==>a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $cla <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9579	9678	
==>a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $cla <==
3	/Users/nnunley/pugs/util/config_h.pl	1107	1200	
==>readline = try_compile(<< '.');
import System.Console.Readline
main :: IO ()
main = readline " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5318	5419	
==>ort {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5318	5419	
==>ort {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12116	12310	
==>_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12116	12310	
==>_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24528	24708	
==>d - $skipped;
        my $skipmsg = " (less $skipped skipped test$ender: $good okay, ";
        if ($max) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2893	2995	
==>hat
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2893	2995	
==>hat
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4817	4958	
==>d $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4817	4958	
==>d $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24045	24139	
==>nal named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28597	28691	
==>nal named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27428	27522	
==>nal named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, th <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11800	11919	
==>_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->na <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	209	323	
==>_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	994	1101	
==>dard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	994	1101	
==>dard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	994	1101	
==>dard operators
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11476	11590	
==>>new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11476	11590	
==>>new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11476	11590	
==>>new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1237	1357	
==>ntations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1237	1357	
==>ntations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1237	1357	
==>ntations
# TODO - .ref() should be inherited from Object
# TODO - .meta should give access to .name, etc
# TODO - 'is rea <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1740	1834	
==>turn substr $target, $from, $position;  
}

#get_string_keyed_int
#get_pmc_keyed_int
#set_pmc_k <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5677	5769	
==><lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementatio <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5677	5769	
==><lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14649	14766	
==>ttempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14649	14766	
==>ttempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14649	14766	
==>ttempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $s = Perl6::Value::Str:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13755	13848	
==>w PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13755	13848	
==>w PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13755	13848	
==>w PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $Eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6484	6668	
==>(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6484	6668	
==>(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6484	6668	
==>(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementing hash sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3869	3984	
==>rncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3869	3984	
==>rncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3869	3984	
==>rncc = new_returncc;
    cc(new PIL2JS.Box.Constant(undefined));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop() <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4021	4126	
==>newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4021	4126	
==>newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($n <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	550	648	
==>:DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
d <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	550	648	
==>:DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	351	482	
==>$self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	351	482	
==>$self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	351	482	
==>$self = {
        JS => $jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_h <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6537	6661	
==>my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6594	6718	
==>my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21204	21309	
==>:use($module)
      !! Pugs::Internals::require($module);
  }
  my sub find() {
    my $file = join(%?CONF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2650	2761	
==>this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module imp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2650	2761	
==>this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module imp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2997	3108	
==>this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module imp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7400	7534	
==>for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the item <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	701	835	
==>for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the item <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2464	2573	
==>hash>)<?p6ws>?\;
        { return { assign_hash_to_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2859	2980	
==>.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.sock <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2859	2980	
==>.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.sock <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	297	402	
==>ass) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYNOPSIS

 my $clas <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	461	576	
==>is needs to
# be an Array is shape() or another object or something like that.
type SlurpLimit is ( Int, Perl::Exp ) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2093	2188	
==>equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2093	2188	
==>equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6479	6589	
==>( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6479	6589	
==>( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6479	6589	
==>( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12936	13081	
==>::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12930	13075	
==>::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9474	9588	
==>!\n";

    my $taint = ( $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1025	1150	
==>uld work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1025	1150	
==>uld work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1025	1150	
==>uld work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PIL2JS.Box(pair.va <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9992	10131	
==>param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9992	10131	
==>param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1727	1814	
==>_term => $() } }
RULE
*{'sub_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14191	14352	
==>s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            els <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14191	14352	
==>s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            els <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2228	2330	
==>:Events::Subscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13037	13142	
==>hod);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13037	13142	
==>hod);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13037	13142	
==>hod);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6002	6102	
==>ubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6002	6102	
==>ubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2901	3001	
==>ubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19678	19773	
==>cords, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19678	19773	
==>cords, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1905	2037	
==>,
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1905	2037	
==>,
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1905	2037	
==>,
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	826	920	
==>class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	826	920	
==>class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_subm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	826	920	
==>class
$::Object = $::Class->new();

## submethods

$::Object->add_method('BUILD' => ::make_subm <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11029	11182	
==>utine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_ar <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11029	11182	
==>utine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_ar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1355	1460	
==>ypedef FILE * GV;
typedef char * PV;

int prel_printf (GV f, const PV format, const PV c) {
	return fprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3051	3193	
==>{
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3051	3193	
==>{
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3051	3193	
==>{
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $param{name} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2812	2937	
==>0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2812	2937	
==>0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2812	2937	
==>0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpP <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2279	2401	
==>ward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2279	2401	
==>ward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27488	27585	
==>g> is undefined or an empty Set, the
Relation::Example has zero attributes.  If C<$body> is undefi <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10372	10492	
==>ive/other stuff. For lots of discussion but no final
    # spec, see the thread rooted at <20050502192508.GF24107@sike.fo <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9181	9288	
==>nce = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9181	9288	
==>nce = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2166	2264	
==>) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2166	2264	
==>) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13630	13766	
==>y ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13630	13766	
==>y ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4	101	
==>sr/bin/perl
use strict;
use warnings;
use locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8502	8602	
==>empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8502	8602	
==>empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1087	1199	
==>for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1087	1199	
==>for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1087	1199	
==>for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2560	2660	
==>ar %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2560	2660	
==>ar %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2560	2660	
==>ar %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	584	710	
==>turn '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	584	710	
==>turn '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Buil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2619	2723	
==>[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1231	1335	
==>[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1932	2036	
==>[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	730	825	
==>ethod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	730	825	
==>ethod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	730	825	
==>ethod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5745	5841	
==>e "Child Not Found : cannot find object ($child_to_remove) in self";
}

## ---------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5745	5841	
==>e "Child Not Found : cannot find object ($child_to_remove) in self";
}

## ---------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11066	11214	
==>eturn (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11066	11214	
==>eturn (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11066	11214	
==>eturn (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7289	7395	
==>tart != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7289	7395	
==>tart != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2477	2572	
==>ext.

=head1 SYNOPSIS

	use Blondie::Emitter::Pretty;

	print Blondie::Emitter::Pretty->new->str <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19543	19680	
==>iteral;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::altern <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19822	19959	
==>iteral;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::altern <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	690	786	
==>ACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::IO - IO related builtins

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	472	565	
==>, and adds nothing else.

More specialised processing instructions may sub-class this module o <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	472	565	
==>, and adds nothing else.

More specialised processing instructions may sub-class this module o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4536	4726	
==>', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4536	4726	
==>', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2151	2256	
==>ub error_is {
  my ($self, $enum) = @_;
  return $self->{errnum} && $self->{errnum} == $enum;
}


sub errm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1213	1322	
==>a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1213	1322	
==>a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1213	1322	
==>a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6 <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	498	602	
==>t;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perld <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	498	602	
==>t;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perld <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4618	4883	
==>"</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4618	4883	
==>"</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&" <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3160	3282	
==>s_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	617	718	
==>able
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	617	718	
==>able
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	617	718	
==>able
# - Method .id() returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11713	11852	
==>ts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11713	11852	
==>ts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11713	11852	
==>ts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28463	28556	
==>h attributes are being combined/wrapped, with
its keys being the new tuple-valued attribute na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33015	33108	
==>h attributes are being combined/wrapped, with
its keys being the new tuple-valued attribute na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32143	32236	
==>h attributes are being combined/wrapped, with
its keys being the new tuple-valued attribute na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	918	1031	
==>ir = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	918	1031	
==>ir = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	918	1031	
==>ir = bless { pVal => bless {
      key   => $key,
      value => $self->{pArgs}->[1]->fixup,
    } => "PIL::NamedP <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1121	1298	
==>key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1121	1298	
==>key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3619	3741	
==>}

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'digit' }

  sub v <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	360	506	
==>{
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return ( <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	360	506	
==>{
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return ( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27335	27428	
==>o_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac), "int → int", ":t fac");
is(t($length) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1409	1512	
==>$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1409	1512	
==>$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1409	1512	
==>$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	765	879	
==>lue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	765	879	
==>lue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	765	879	
==>lue !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6253	6393	
==>ethod',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6253	6393	
==>ethod',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6253	6393	
==>ethod',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4097	4202	
==>the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4097	4202	
==>the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6294	6399	
==>the passed
parameter to a false value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11058	11221	
==>p = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11058	11221	
==>p = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11058	11221	
==>p = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7454	7553	
==>thod (opaque $self: symbol $label) returns bit { 
    %:methods.exists($label);
}

(method has_metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1384	1478	
==>{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1524	1618	
==>{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4683	4811	
==>$Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7406	7534	
==>$Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1226	1338	
==>reduce {
	my $self = shift;
	my $node = shift;

	if (exists $self->{seen}{$node}){
		if ($self->{current_node} eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3789	3905	
==>amed argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3789	3905	
==>amed argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4379	4495	
==>amed argument ".$param->name." is required"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16548	16651	
==>ta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16548	16651	
==>ta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16548	16651	
==>ta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11005	11135	
==>array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11005	11135	
==>array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11005	11135	
==>array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1586	1678	
==>oved internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1586	1678	
==>oved internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1121	1220	
==>>{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1121	1220	
==>>{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1121	1220	
==>>{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	840	1101	
==>urn 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4415	4510	
==>+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9A <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4415	4510	
==>+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12637	12790	
==>boxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12637	12790	
==>boxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12637	12790	
==>boxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unbox <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6324	6526	
==>$x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cen <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6324	6526	
==>$x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cen <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12235	12351	
==>es} };
}

sub enter_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8230	8335	
==>ead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8230	8335	
==>ead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1271	1402	
==>{
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1271	1402	
==>{
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'va <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8751	8851	
==>e fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metacla <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4343	4489	
==>) {
    my $x_round = floor($x);

    return $x_round;
}

our Int multi Num::round_toward_zero ( Num $x ) {
    my $x_round;

    # round floor abo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12989	13084	
==>negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string represent <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12989	13084	
==>negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string represent <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7636	7756	
==>$prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7636	7756	
==>$prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q! <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4143	4244	
==>rStack, "bsr_token_match_1";
    goto token_match;
    bsr_token_match_1:
    goto found_term if $oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12265	12384	
==>s, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12265	12384	
==>s, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12265	12384	
==>s, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2608	2709	
==>e_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2608	2709	
==>e_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2608	2709	
==>e_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unk <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6271	6367	
==>b_defin => $() ,} }
RULE
*{'term2'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<ter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	689	782	
==>r::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::for <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	689	782	
==>r::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::for <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18198	18344	
==>er'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41463	41609	
==>er'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(l <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	838	937	
==>amicity.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Silly; # prompts

    Blondie::Backend::P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30015	30107	
==>r $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternativ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34567	34659	
==>r $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternativ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1473	1570	
==>s .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1473	1570	
==>s .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1473	1570	
==>s .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36306	36443	
==>body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @bod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36306	36443	
==>body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @bod <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36306	36443	
==>body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2773	2892	
==>s %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2773	2892	
==>s %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2773	2892	
==>s %$val) {
		my $v = $val->{$k};
		if($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9828	9957	
==>ure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9828	9957	
==>ure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9828	9957	
==>ure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # for the methods described below. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4915	5035	
==>}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4915	5035	
==>}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23417	23508	
==>' internals.  Implementing classes can
optionally override these operators with versions tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	489	608	
==>all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	489	608	
==>all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	489	608	
==>all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 0 if <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32604	32696	
==>to convert Message objects on demand into user-readable
message strings, using data from exte <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32604	32696	
==>to convert Message objects on demand into user-readable
message strings, using data from exte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2059	2203	
==>dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2059	2203	
==>dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2059	2203	
==>dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	128	247	
==>all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	128	247	
==>all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	128	247	
==>all_types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	795	900	
==>$PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	795	900	
==>$PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	795	900	
==>$PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$P <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4543	4689	
==>=> sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4543	4689	
==>=> sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $c <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	67	175	
==>e.


# verbatim from perl-5.9.2/t/op/regexp.t
our $bang = sprintf "\\%03o", ord "!"; # \41 would not be porta <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2246	2377	
==>s
    Sub         Perl subroutine
    Method      Perl method
    Submethod   Perl subroutine acting like a method
    Macro       P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22214	22316	
==>e each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26766	26868	
==>e each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9019	9134	
==>sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9019	9134	
==>sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9019	9134	
==>sub name_mangle($) {
  my $str = shift;

  # ::JS::Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11673	11805	
==>ion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11673	11805	
==>ion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11673	11805	
==>ion (other) {
        var arr = other.FETCH();

        if(!(arr instanceof Array)) {
          PIL2JS.die("Can\'t bind array slice t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21807	21916	
==>plit - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21807	21916	
==>plit - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21807	21916	
==>plit - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11565	11701	
==>ources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at lea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15042	15178	
==>ources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at lea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14377	14513	
==>ources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "The heading of at lea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34720	34933	
==>hift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$dispatcher')->do());
                }) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	636	772	
==>-> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	636	772	
==>-> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2776	2996	
==>,
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2787	3007	
==>,
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ru <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22879	22985	
==>'> <Identifier> <')'> <Block>
}
rule Finally :words {  # see 12.14
      <'finally'> <Block>
}

# A.5 Funct <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9143	9266	
==>$Config{osname} eq 'cygwin') {

            warn "*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # If the <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6340	6448	
==>ite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6340	6448	
==>ite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12462	12573	
==>is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12462	12573	
==>is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12462	12573	
==>is primitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $arra <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	997	1125	
==>ult;
 }

 multi sub reverse (; *@values) returns List|Str {
   given want {
     when List {
       gather {
         1 while tak <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1024	1133	
==>s

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superse <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1024	1133	
==>s

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4876	4970	
==>Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4876	4970	
==>Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4876	4970	
==>Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9343	9568	
==>store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9343	9568	
==>store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9343	9568	
==>store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->cl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12067	12172	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12067	12172	
==>{ 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	540	642	
==>_of_string, and the rule wrapper.

- It needs a 'direction' flag, in order to implement <after>.

- <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24129	24231	
==>t", "pretty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::ope <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35818	35913	
==>ument and combines it with the
invocant relation into a new Relation, such that all common attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40368	40463	
==>ument and combines it with the
invocant relation into a new Relation, such that all common attri <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13010	13131	
==>> "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step
    descr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2757	2845	
==>tionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2757	2845	
==>tionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRu <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	735	846	
==>no = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$li <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1093	1248	
==>P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1093	1248	
==>P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9710	9815	
==>sure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr tar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7174	7268	
==>in
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7174	7268	
==>in
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7174	7268	
==>in
::opaque_instance_add_new_attribute($::Class => '@:roles');  
::opaque_instance_attr($::Clas <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7366	7510	
==>k    = -d $file ? 0100 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        error("Fail <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13050	13145	
==>s member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
whi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13050	13145	
==>s member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
whi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1709	1847	
==>ay(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok");
END { Test::test_ends() }
1;
=kwid
=cut <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3640	3755	
==>',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 char <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3640	3755	
==>',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 char <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8332	8538	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8332	8538	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8332	8538	
==>erclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1638	1753	
==>e YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1638	1753	
==>e YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1638	1753	
==>e YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1296	1399	
==>empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1296	1399	
==>empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1296	1399	
==>empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11819	11911	
==>dras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All ri <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11819	11911	
==>dras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All ri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25395	25492	
==>ethod returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29947	30044	
==>ethod returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28886	28983	
==>ethod returns the complement of C<equal> with the same argument.

=item C<rename ( Mapping(Str) of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1816	1921	
==>r $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1816	1921	
==>r $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1816	1921	
==>r $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to change. Dunno how t <==
3	/Users/nnunley/pugs/util/config_h.pl	1530	1645	
==>e Haskell support, please compile your GHC with the
    GHCi option.

.
}

close OUT;

sub try_compile {
    my $cod <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17164	17258	
==>it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, that i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17164	17258	
==>it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, that i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9472	9580	
==>t... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9472	9580	
==>t... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) } <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1663	1774	
==>el: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out ne $exp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38137	38232	
==>te_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38137	38232	
==>te_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text s <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	51	150	
==>er Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	52	151	
==>er Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	52	151	
==>er Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3719	3834	
==>n::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3719	3834	
==>n::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3719	3834	
==>n::EvalX::run_p5r("package ".p6_root.";".$f); # XXX - kludge
    }
    if(defined $fv && ref($fv) =~ /Macro/) { # XX <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9941	10037	
==>nd a few
other operations.

This class also provides methods for iterating through the set, and f <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9941	10037	
==>nd a few
other operations.

This class also provides methods for iterating through the set, and f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8121	8236	
==>ion (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8121	8236	
==>ion (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8121	8236	
==>ion (other) {
      var arr = other.FETCH();

      if(!(arr instanceof Array)) {
        PIL2JS.die("Can\'t bind li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6786	6888	
==>ere a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + milli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6786	6888	
==>ere a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + milli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6786	6888	
==>ere a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + milli <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8910	9006	
==>in<Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expression --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18210	18303	
==>scribes the rather complex algorithm that
Module::Compile uses.

First, the source module is p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18210	18303	
==>scribes the rather complex algorithm that
Module::Compile uses.

First, the source module is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	899	1014	
==>&& $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	899	1014	
==>&& $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	899	1014	
==>&& $o->isa($cls);
    return 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless def <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	806	908	
==>s the objective.

# Interest was expressed in developing this into a cpan module for
# real use.  It mi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	64	158	
==>ertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	64	158	
==>ertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3614	3721	
==>1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3614	3721	
==>1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3614	3721	
==>1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14947	15065	
==>() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18424	18542	
==>() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17840	17958	
==>() <=> $^a.heading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3272	3385	
==>name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3272	3385	
==>name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3272	3385	
==>name =~ /^@/ ? (":Array") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_str <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	556	652	
==>s->require || die $UNIVERSAL::require::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5865	5956	
==>-------------------------------
## sibling methods

method get_sibling ($self: Int $index) r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5865	5956	
==>-------------------------------
## sibling methods

method get_sibling ($self: Int $index) r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14681	14839	
==>$res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14681	14839	
==>$res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14681	14839	
==>$res->push( $array->zip( @array_list ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9933	10081	
==>'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9933	10081	
==>'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9933	10081	
==>'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12120	12230	
==>=> \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12120	12230	
==>=> \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12120	12230	
==>=> \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1554	1645	
==>d_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1554	1645	
==>d_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1554	1645	
==>d_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instance_add_new_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2296	2375	
==>x_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2296	2375	
==>x_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2296	2375	
==>x_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|inf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7071	7177	
==>$_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3675	3781	
==>$_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4524	4630	
==>$_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7879	7984	
==>/;
	    $h{'isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramN <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15256	15355	
==>.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

R <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15256	15355	
==>.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5648	5797	
==>params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5648	5797	
==>params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5648	5797	
==>params => $token;
        }        
    }
    warn "method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16645	16859	
==>e(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new(refe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2665	2764	
==>.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2665	2764	
==>.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1891	2014	
==>1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1891	2014	
==>1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4118	4226	
==>($token)
  {
    push @bsrStack, "bsr_token_match_1";
    goto token_match;
    bsr_token_match_1:
    goto f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8642	8792	
==>ings
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5002	5152	
==>ings
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5851	6001	
==>ings
            # XXX - more things to look into:
            #     if there is a return-block, then it should be used instead
            unless ( @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1327	1436	
==>em);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1327	1436	
==>em);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1327	1436	
==>em);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25998	26120	
==>h @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp::Parser::flags;
  push @ISA <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5936	6033	
==>ile::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5936	6033	
==>ile::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1290	1421	
==>lf => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1290	1421	
==>lf => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1290	1421	
==>lf => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11091	11197	
==>s almost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $so <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11091	11197	
==>s almost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $so <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11037	11163	
==>d parrot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	752	839	
==>urn %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	752	839	
==>urn %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28876	28986	
==>od supports having the new attributes having the same names as old
attributes that become wrapped, and it suppo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33428	33538	
==>od supports having the new attributes having the same names as old
attributes that become wrapped, and it suppo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32565	32675	
==>od supports having the new attributes having the same names as old
attributes that become wrapped, and it suppo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	567	679	
==>[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	567	679	
==>[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6439	6533	
==>n $_[1] eq 'Role' if $_[0] == $Class;
    ::opaque_instance_attrs($_[0])->{'%:methods'}->{'does <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	979	1085	
==>>makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shif <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1870	1976	
==>>makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shif <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	79	176	
==>if the above line is uncommented.

# our &prefix:<?> := &true doesn't work yet.
sub prefix:<?> ($v <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1805	1934	
==>@p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## X <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	337	438	
==>tant SUBFILE_OF_META    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	179	285	
==>ternal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-work <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	179	285	
==>ternal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-work <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12994	13095	
==>le to get a plausibly scoped alternative working.

  Using $/ might be non-trivial, as only some forms <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1015	1170	
==>+
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1015	1170	
==>+
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1015	1170	
==>+
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7118	7251	
==>] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7118	7251	
==>] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualifi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	57	166	
==>b",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20764	20871	
==>NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17185	17292	
==>NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	629	728	
==>this here for a consistent interface
sub to_bit { shift }

# conversion to other native types
sub to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	313	451	
==>> bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	313	451	
==>> bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	313	451	
==>> bless({
      hey => 'ho',
    }, 'AOne'),
    two => bless({
      list => [
        bless({ three => 3 }, 'AThree'),
        bless({ fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1269	1388	
==>msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1269	1388	
==>msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1269	1388	
==>msg"~$st; 13 };
    say "ok $count - $msg"~$st if $r != 13;
}

sub lives_ok ($c, $msg="", $todo?) {
    my $st = ref($to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8665	8777	
==>.";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8665	8777	
==>.";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %use <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5377	5476	
==>qw/type::variable/;

# a free variable is a placeholder
# when going into an AST these are generated <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3425	3531	
==>ame in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3425	3531	
==>ame in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3425	3531	
==>ame in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($name) { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5594	5692	
==>he Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason> <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5594	5692	
==>he Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7791	7889	
==>he Test::Builder::Test::Base role to add a simple public
attribute.

=over 4

=item B<Str $.reason> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10232	10344	
==>[ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10232	10344	
==>[ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7128	7254	
==>ay will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7128	7254	
==>ay will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7128	7254	
==>ay will take care of
    // this.

    var mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1096	1218	
==>ediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1301	1423	
==>ediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        retur <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2256	2356	
==>tfix:::", "postfix:*", "left", &fail);
    $optable->addToken("infix:", "<postfix:*", "right,nows", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2598	2695	
==>$^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2598	2695	
==>$^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2598	2695	
==>$^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Nu <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6696	6798	
==>a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside text <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6696	6798	
==>a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside text <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6409	6517	
==>- !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6409	6517	
==>- !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6409	6517	
==>- !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11781	11884	
==>>fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11781	11884	
==>>fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11781	11884	
==>>fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2340	2533	
==>q 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0") <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2340	2533	
==>q 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5234	5434	
==>->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5234	5434	
==>->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5234	5434	
==>->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	237	356	
==>ngs as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	237	356	
==>ngs as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5644	5796	
==>d();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubPar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5644	5796	
==>d();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubPar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5644	5796	
==>d();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubPar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9255	9361	
==>s always anchored at ^

### because it was specialized for subrules

### - needs to be generalized, and the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8951	9055	
==>s always anchored at ^
### because it was specialized for subrules
### - needs to be generalized, and the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3667	3765	
==>ay, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3667	3765	
==>ay, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3667	3765	
==>ay, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	574	676	
==>es to an opaque object 
# (very primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23901	23996	
==>implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the maj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23901	23996	
==>implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the maj <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2009	2160	
==>ference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehandle
    Code        Base class for <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2453	2564	
==>ndicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2453	2564	
==>ndicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1280	1475	
==>offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          nod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1280	1475	
==>offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          nod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1280	1475	
==>offsetHeight
                                  || document.body.scrollHeight);
                  return;
              }
          }

          // If there was no text node, add one.
          nod <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2196	2292	
==>o a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Ric <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2196	2292	
==>o a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Ric <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1296	1401	
==>{
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1296	1401	
==>{
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1296	1401	
==>{
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10688	10825	
==>---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10688	10825	
==>---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10688	10825	
==>---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11036	11123	
==>-------------------------------------------------------------

What if Roles could provi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11036	11123	
==>-------------------------------------------------------------

What if Roles could provi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11036	11123	
==>-------------------------------------------------------------

What if Roles could provi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11536	11631	
==>-----------------------------------------------------------------------------

With this Role me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11536	11631	
==>-----------------------------------------------------------------------------

With this Role me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11536	11631	
==>-----------------------------------------------------------------------------

With this Role me <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15844	15971	
==>est test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        my $suf    = /\. <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	286	404	
==>e $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, St <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	286	404	
==>e $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, St <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2388	2803	
==>ct:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # Exter <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2388	2803	
==>ct:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # Exter <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5239	5424	
==>(
                    Param('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ),

The above is the implementation of the identity fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1407	1503	
==>ew_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1407	1503	
==>ew_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1407	1503	
==>ew_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18063	18242	
==>hod->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18063	18242	
==>hod->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18063	18242	
==>hod->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the next
    # applicable meth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12220	12348	
==>( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7005	7120	
==>X need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7005	7120	
==>X need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } e <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	926	1027	
==>o_install = _recurse_resolve( list_dependencies( $found, 1 ) );

    print "Installing:\n";
    for my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16865	16960	
==>of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empt <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16865	16960	
==>of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7521	7639	
==>-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = $Result3 % $n2 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2670	2761	
==>ler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/group <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2670	2761	
==>ler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/group <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8971	9095	
==>- 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # a <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8971	9095	
==>- 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1466	1593	
==>loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            pu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1466	1593	
==>loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            pu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22264	22350	
==>r(11)

case_insensitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type(Cb,to_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2909	3016	
==>for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Compiler;

    my $c = Blondie::Compiler->new;
    $c->c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3705	3804	
==>Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3705	3804	
==>Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4620	4713	
==>.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4620	4713	
==>.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4620	4713	
==>.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_methods[%s]([\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5537	5654	
==>OBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5537	5654	
==>OBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5537	5654	
==>OBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6847	6960	
==>[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6847	6960	
==>[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6847	6960	
==>[^\*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3427	3519	
==>= "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-miss <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3427	3519	
==>= "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-miss <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	372	469	
==>rks with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher AP <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	372	469	
==>rks with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher AP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2406	2523	
==>>jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2406	2523	
==>>jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2406	2523	
==>>jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3172	3283	
==>efined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3172	3283	
==>efined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3172	3283	
==>efined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	450	559	
==>pe => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	444	553	
==>pe => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11822	11941	
==>"Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11822	11941	
==>"Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = spl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11822	11941	
==>"Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = spl <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	689	783	
==>result) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	689	783	
==>result) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11008	11124	
==>erator::pair->new( $a, $b ),
			$a,
		);
	},
	# (a x b) -> b
	snd => do {
		my $a = type::variable::free->new;
		my $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6658	6765	
==>h);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) & <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6658	6765	
==>h);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	922	1021	
==>ffect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	922	1021	
==>ffect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	922	1021	
==>ffect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1197	1305	
==>le(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1197	1305	
==>le(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16418	16607	
==>_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3380	3475	
==>hod sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3380	3475	
==>hod sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> ( <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2098	2222	
==>s are sent everywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class C <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10406	10510	
==>s (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $u <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10406	10510	
==>s (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2797	2890	
==>ect->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2797	2890	
==>ect->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2797	2890	
==>ect->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1201	1319	
==>arn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1201	1319	
==>arn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1201	1319	
==>arn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    for (var i = 0; i < a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2440	2586	
==>v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2440	2586	
==>v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2440	2586	
==>v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47042	47148	
==>$e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace') <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47209	47315	
==>$e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2100	2204	
==>ndef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2100	2204	
==>ndef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2100	2204	
==>ndef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Ro <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1908	2033	
==>$m) {
		print "not ok \# Unexpected successful match.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		pri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31473	31569	
==>argument. The new
Relation has all of the same attributes as the original.  Trivial cases are
whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36023	36119	
==>argument. The new
Relation has all of the same attributes as the original.  Trivial cases are
whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2486	2621	
==>atchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2486	2621	
==>atchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2486	2621	
==>atchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_;
        (def <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2516	2653	
==>: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nrecei <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2516	2653	
==>: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nrecei <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2596	2733	
==>: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diagnostics mismatch\n" ~
        "expected: '$expect_diag'\nrecei <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29113	29214	
==>is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3326	3425	
==>gh.)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not mer <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3326	3425	
==>gh.)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not mer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12728	12872	
==>a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12728	12872	
==>a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12728	12872	
==>a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tie <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16710	16809	
==>be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a lis <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16710	16809	
==>be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a lis <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14325	14420	
==>e iteration varies with function.
C<keys> only returns the key; C<values> the value; C<kv> retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3036	3188	
==>',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__->add_rule(
    #        name => $_,
    #        a <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3107	3206	
==>sure can be called with a string, and should be called at the 
end of enciphering with zero argument <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3107	3206	
==>sure can be called with a string, and should be called at the 
end of enciphering with zero argument <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11453	11570	
==>Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14930	15047	
==>Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2089	2206	
==>mpile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2870	2987	
==>mpile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $te <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1070	1185	
==>n "annotation: $node";
	warn "reducing " . $node->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1435	1544	
==>Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports synt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1435	1544	
==>Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports synt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1435	1544	
==>Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   supports synt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1732	1823	
==>emented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1732	1823	
==>emented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1732	1823	
==>emented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10259	10359	
==>turns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10259	10359	
==>turns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `span <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4109	4204	
==>t};
		return { use_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule->compile(<<'RUL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1487	1630	
==>QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1487	1630	
==>QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7177	7289	
==>)}.

p5_matchref(I) --> "\\", digits_int(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_bod <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2540	2646	
==>e glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( ! <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2540	2646	
==>e glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( ! <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	536	635	
==>y a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl::Cxt i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9770	9880	
==>";

0;
__END__
=cut
$foo = sub{
    print STDERR "hi\n";
    return reverse(1,undef,undef,1,3,2,3);
};
=pod
=cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4613	4715	
==>le, $line_number, $post_process) = @_;

    # Read original module source code instead of taking from f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4613	4715	
==>le, $line_number, $post_process) = @_;

    # Read original module source code instead of taking from f <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	396	496	
==>$bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
  $m = match($r,$str);
}
pri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4943	5041	
==>=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final positio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4943	5041	
==>=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final positio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2768	2893	
==>ame'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1390	1515	
==>ame'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43473	43570	
==>g
data or data definitions or connections to databases: L<Set>, L<Rosetta>.

=head1 BUGS AND LIMIT <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15627	15746	
==>\G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10483	10602	
==>\G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6932	7051	
==>ocal $Level = 2;
    _ok($pass, _where(), $name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _ok(0, _whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1730	1838	
==>ix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1730	1838	
==>ix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1730	1838	
==>ix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a)  * Number(b)",
  "infi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38126	38224	
==>emaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42675	42773	
==>emaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42325	42423	
==>emaining said tuple
pairs, then eliminating any result tuples that duplicate others.

=item C<compo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1482	1586	
==>xt {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represen <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1482	1586	
==>xt {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27402	27504	
==>_

=head1 NAME

Regexp::Parser::Objects - objects for Perl 5 regexes

=head1 DESCRIPTION

This module c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7646	7765	
==>3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS vers <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7646	7765	
==>3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS vers <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7646	7765	
==>3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an old JS vers <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	554	703	
==>.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($na <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	554	703	
==>.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($na <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	51	161	
==>6::Run::OnPerl5::X1::Pugs;
use strict;
use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11007	11131	
==>lf->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11007	11131	
==>lf->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11007	11131	
==>lf->params } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	441	543	
==>s that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	441	543	
==>s that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	441	543	
==>s that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35036	35169	
==>en_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35036	35169	
==>en_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35036	35169	
==>en_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body=shift length -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	591	748	
==>'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	591	748	
==>'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	591	748	
==>'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval=s'  => \@eva <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9042	9168	
==>',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9038	9164	
==>',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1363	1456	
==>expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # work around two uninteresting tests.
	$expr =~ s/ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2202	2304	
==>ne
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12th line
GROK

m <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	510	603	
==>s is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	510	603	
==>s is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	685	817	
==>| \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	685	817	
==>| \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2891	3009	
==>$lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        my $bool = $const eq subst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6552	6664	
==>"BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6552	6664	
==>"BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6552	6664	
==>"BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'pSubName'},2) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4629	4748	
==>ray', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4629	4748	
==>ray', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4629	4748	
==>ray', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Array' || ref($_[0]) eq 'Dispatchable' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2579	2677	
==>ORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2579	2677	
==>ORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2579	2677	
==>ORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=head1 NAME

genesis

=he <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5638	5763	
==>ew operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5638	5763	
==>ew operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6928	7021	
==>failed> should be empty if everything passed.

B<NOTE> Currently this function is still noisy. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2669	2766	
==>TIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2669	2766	
==>TIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2669	2766	
==>TIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11584	11707	
==>ests as failures.
            if ($test{'next'} <= $test{max}) {
                push @{$test{failed}}, $test{'next'}..$test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8504	8634	
==>ass = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8504	8634	
==>ass = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8504	8634	
==>ass = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $param{count};
    $count = 0 
        unless define <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15788	15890	
==>ppend the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15846	15948	
==>ppend the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Tes <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9329	9643	
==>s -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        e <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9329	9643	
==>s -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        e <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1211	1311	
==>ter::int_size 64;');

#XXX- rename $n or $^n.  having the two of them "n" is confusing.
macro Clutter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12012	12182	
==>@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8294	8464	
==>@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9128	9298	
==>@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" . <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4987	5156	
==>_shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @ta <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4987	5156	
==>_shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	921	1031	
==>* Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	921	1031	
==>* Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	921	1031	
==>* Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/sto <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2777	2890	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::ge <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2970	3083	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::ge <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2296	2390	
==>und_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_away_from_zero
		!! $x.round <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2548	2657	
==>re => $extracted,
    } );
}

sub angle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15644	15738	
==>native French or Chinese speaker often prefers to
communicate in those languages.  Or, when vie <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15644	15738	
==>native French or Chinese speaker often prefers to
communicate in those languages.  Or, when vie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7334	7462	
==>ay print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7086	7211	
==>ay print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2674	2785	
==>ew_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2674	2785	
==>ew_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2674	2785	
==>ew_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as_h) {
        return new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	19	119	
==>e strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	19	119	
==>e strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	19	119	
==>e strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so ::create_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	566	713	
==>nstance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	566	713	
==>nstance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	566	713	
==>nstance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5206	5318	
==>ading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8683	8795	
==>ading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7703	7815	
==>ading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            mapping( $_. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10662	10794	
==>---------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10662	10794	
==>---------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10662	10794	
==>---------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2684	2830	
==>ity) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2684	2830	
==>ity) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2684	2830	
==>ity) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4078	4187	
==><IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1::Res <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3075	3168	
==>est := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3133	3226	
==>est := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2380	2528	
==>iler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2380	2528	
==>iler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5493	5604	
==>d or !defined $range) {
        # This is a fail, but doesn't need extra diagnostics
    } elsif ($got !~ tr/0-9 <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1691	1791	
==>ti encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@strin <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1691	1791	
==>ti encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@strin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4799	4979	
==>) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8276	8456	
==>) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7278	7458	
==>) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Rela <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17735	17838	
==>ss $P0, grammar 
  end:
    .return (sub, code, exp)
.end

.namespace [ "PGE::Exp" ]

.sub "p6analyze" : <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5688	5787	
==>ess it until we have know how both these interfaces can be
# addressed.  One possibility is to retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5688	5787	
==>ess it until we have know how both these interfaces can be
# addressed.  One possibility is to retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37479	37598	
==>ns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37479	37598	
==>ns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37479	37598	
==>ns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $po <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20052	20175	
==>= fun(
	param => "x",
	body => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				bod <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1893	1991	
==>ion, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extracti <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1893	1991	
==>ion, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extracti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14509	14624	
==>LTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14509	14624	
==>LTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14509	14624	
==>LTI SUB readdir ($xx) {...};
MULTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1366	1470	
==>pe to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1366	1470	
==>pe to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1366	1470	
==>pe to discover how to walk blessed objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	reb <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15467	15569	
==>als::localtime(Bool::True, $sec, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	787	879	
==>calization of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en ver <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	787	879	
==>calization of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7654	7790	
==>}
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7654	7790	
==>}
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	761	862	
==>r::Rule->compile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5812	5942	
==>root) {
            # Looks like we've found a GHC directory.  Find the latest
            # ghc inside that.  Sort versions from h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3857	3973	
==>the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexica <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3869	3985	
==>the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexica <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6791	6949	
==>PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6791	6949	
==>PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6791	6949	
==>PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub_from_pil_macro("<just a block>",
                                        $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1675	1771	
==>_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1675	1771	
==>_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1675	1771	
==>_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eva <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	182	309	
==>ffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	182	309	
==>ffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($eve <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	320	431	
==>tructors {
    foreach my $class (@{ Class::Inspector->subclasses("Blondie::Node") }) {
        next unless $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13536	13691	
==>atch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13536	13691	
==>atch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13536	13691	
==>atch" if $DISPATCH_TRACE;            
             goto &_normal_dispatch;
        }
    }

    # this will handle all dispatching 
    # for the root $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8894	9067	
==>t("$current")
                  ->send("has_method", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3636	3746	
==>};
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3636	3746	
==>};
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	11	114	
==>ump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	11	114	
==>ump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11015	11122	
==>ns) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11015	11122	
==>ns) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18688	18792	
==>et the
C<strict> attribute to 2; the class above would render as C<[\w:]>.

=back

=head2 0.021 -- July 3 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3701	3797	
==>C<$description> is the optional
description of the test.  This is the easiest way to match a pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3701	3797	
==>C<$description> is the optional
description of the test.  This is the easiest way to match a pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3781	3877	
==>C<$description> is the optional
description of the test.  This is the easiest way to match a pass <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8846	9017	
==>t;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation::Example $other!) returns Relation::Exam <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	375	486	
==>emaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	276	387	
==>emaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2769	2892	
==>::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2769	2892	
==>::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2769	2892	
==>::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{i <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3050	3164	
==>e default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clon <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3050	3164	
==>e default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clon <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	911	1009	
==>self->mk_accessors( qw[files alternative installation] );
    
    while( my($acc,$val) = each %$ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2366	2517	
==>to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2366	2517	
==>to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2366	2517	
==>to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22563	22658	
==>ject has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27115	27210	
==>ject has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25847	25942	
==>ject has 2 main attributes (implementation details subject to
change) plus 1 extra attribute:

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9723	9811	
==>cher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9723	9811	
==>cher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9723	9811	
==>cher;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4730	4846	
==>tch => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4923	5039	
==>tch => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1895	1991	
==>(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1895	1991	
==>(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1895	1991	
==>(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	312	432	
==>\&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	312	432	
==>\&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	140	243	
==>} # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
sub fu <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2071	2165	
==>his gives the impression of lexically scoped marks (but it may also
limit the engine semantical <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2071	2165	
==>his gives the impression of lexically scoped marks (but it may also
limit the engine semantical <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	183	333	
==>ould be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	183	333	
==>ould be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	183	333	
==>ould be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28534	28774	
==>start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28534	28774	
==>start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28534	28774	
==>start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	826	947	
==>Any";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.gene <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	826	947	
==>Any";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.gene <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	826	947	
==>Any";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body => sub {
        "PIL2JS.gene <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24584	24722	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24863	25001	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	743	848	
==>he 'root' entry and the tests will run somewhere quite different!
$config{'root'}             = [ $Cwd->su <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1552	1686	
==>criptions;
            #}
        }
    }
}

role Class::Events::Subscriber {
    use Set;
    has Set $.subscriptions handles :note_su <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6850	6947	
==>e and find no closing match, I should
ignore the opening one. However, this means I should defer e <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6850	6947	
==>e and find no closing match, I should
ignore the opening one. However, this means I should defer e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3376	3472	
==>to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3376	3472	
==>to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3456	3552	
==>to compare the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	230	345	
==>_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	230	345	
==>_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_sc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	230	345	
==>_;
    return $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_sc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	119	249	
==>urns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	119	249	
==>urns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17480	17623	
==>rray' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17480	17623	
==>rray' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17480	17623	
==>rray' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2480	2594	
==>y => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justif <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2480	2594	
==>y => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justif <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2827	2941	
==>y => 1 },
     { var => '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justif <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1107	1233	
==>Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1107	1233	
==>Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11599	11716	
==>er to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11599	11716	
==>er to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11599	11716	
==>er to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38904	39000	
==>n::Example and that match any tuples of C<$other> along
their common attributes.  This method wil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1577	1666	
==>udreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1577	1666	
==>udreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8509	8627	
==>g_val_i) {
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6359	6467	
==>e {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6359	6467	
==>e {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	342	476	
==>e_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	342	476	
==>e_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	342	476	
==>e_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

sub set {
    my ($self, %vars) = @_;
    @{($self->_current | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19770	19933	
==>nboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19770	19933	
==>nboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19770	19933	
==>nboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8435	8534	
==>L::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8435	8534	
==>L::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8435	8534	
==>L::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9478	9566	
==>x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9478	9566	
==>x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9478	9566	
==>x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {... <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3469	3586	
==>';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code gene <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3686	3803	
==>';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code gene <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5713	5842	
==>et => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return un <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5713	5842	
==>et => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return un <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4121	4219	
==>$self = shift;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $self->{class <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17094	17230	
==>) },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17094	17230	
==>) },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$ni <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9803	9924	
==>ub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch insid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37438	37569	
==>ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37438	37569	
==>ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37438	37569	
==>ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $array = shift;
    my $pos =   shift; $po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6256	6372	
==>ind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instant <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6256	6372	
==>ind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instant <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6256	6372	
==>ind() loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instant <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36504	36743	
==>'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2559	2650	
==>eDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2559	2650	
==>eDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1638	1770	
==>->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1638	1770	
==>->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1638	1770	
==>->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $::{'*'}-> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4313	4405	
==>tem C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan obje <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4313	4405	
==>tem C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5837	5929	
==>tem C<output>

A Test::Builder::Output object.

=item C<plan>

A Test::Builder::TestPlan obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	745	869	
==>{
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	745	869	
==>{
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	745	869	
==>{
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17038	17150	
==>me ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > l <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	342	445	
==>.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DE <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	342	445	
==>.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	166	280	
==>:Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	166	280	
==>:Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	166	280	
==>:Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6::MetaModel: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1560	1685	
==>return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1560	1685	
==>return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    m <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	745	847	
==>d golfer)

use strict;

# XXX: should make this tmp file unique (using $$ say).
my $intmp  = 'insanta.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34838	34940	
==>->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34838	34940	
==>->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34838	34940	
==>->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20447	20546	
==>t of all the languages your programs do or
might have, and lets you arrange the list in order of pre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20447	20546	
==>t of all the languages your programs do or
might have, and lets you arrange the list in order of pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4640	4741	
==>::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4640	4741	
==>::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4640	4741	
==>::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reent <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14048	14156	
==>No closing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .loc <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10857	10949	
==>B<The following informational functions are fetched on-demand>

=over 4

=item B<path_info re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10857	10949	
==>B<The following informational functions are fetched on-demand>

=over 4

=item B<path_info re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10791	10920	
==>te_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10791	10920	
==>te_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10791	10920	
==>te_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9521	9714	
==>, 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9521	9714	
==>, 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9521	9714	
==>, 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        retur <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18699	18828	
==>substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, StrPos $start,   StrLen $length  ; $replace)
{ Pugs::Internals <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3203	3328	
==>on;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Tar <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3203	3328	
==>on;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Tar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10183	10303	
==>ym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10183	10303	
==>ym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10183	10303	
==>ym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1705	1800	
==>= $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1705	1800	
==>= $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1705	1800	
==>= $CALLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3391	3512	
==>al);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paran <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3391	3512	
==>al);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paran <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3391	3512	
==>al);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paran <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2466	2593	
==>piler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "use base 'Pugs::Grammar::Base';\n" .
            "u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6641	6749	
==>in:



### Match actually contain getters for $() and such

### getters need to know what you want (str, bool <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6419	6524	
==>in:

### Match actually contain getters for $() and such
### getters need to know what you want (str, bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1837	1943	
==>blequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1837	1943	
==>blequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1837	1943	
==>blequote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	60	175	
==>up { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	60	175	
==>up { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	60	175	
==>up { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fix <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	217	316	
==>icode symbols, or type literals

# second part is the object model for a lambda calculus, and a type <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21339	21437	
==>(perhaps the key name can start with the package name?).  An advantage of
this is that, for example <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21339	21437	
==>(perhaps the key name can start with the package name?).  An advantage of
this is that, for example <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34978	35105	
==>length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34978	35105	
==>length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length > <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34978	35105	
==>length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7444	7574	
==>[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7444	7574	
==>[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7444	7574	
==>[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call private method from different clas <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1904	2015	
==>oin('/', 'lib', split(/-/, $name)) . '.pm';
        $file =~ s{.*/}{} unless -e $file;
        die "all_from: ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6179	6289	
==>\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6167	6277	
==>\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11197	11295	
==>es in this way will not change the semantic of a header field, but
in practice there are cases like <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11197	11295	
==>es in this way will not change the semantic of a header field, but
in practice there are cases like <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2904	3008	
==>ined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2904	3008	
==>ined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2904	3008	
==>ined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify 
        unless defined $p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3483	3618	
==>t_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1841	1976	
==>t_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2621	2756	
==>t_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4639	4754	
==>est plan or throws an exception if there's already a plan in
place.  You have two options for the plan.  If you pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4639	4754	
==>est plan or throws an exception if there's already a plan in
place.  You have two options for the plan.  If you pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6163	6278	
==>est plan or throws an exception if there's already a plan in
place.  You have two options for the plan.  If you pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	583	702	
==>ifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once byt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	583	702	
==>ifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once byt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	583	702	
==>ifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once byt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26409	26627	
==>) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26409	26627	
==>) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26409	26627	
==>) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1002	1112	
==>.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1002	1112	
==>.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1002	1112	
==>.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1378	1474	
==>" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1378	1474	
==>" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7712	7807	
==>nd $parser->errnum will return the numerical value
of the message.  If you use new() the F<Regex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1751	1838	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1751	1838	
==>ttp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5339	5439	
==>ed as a private LWP extension.  The Client-Date header is
# added as a timestamp to a response when i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5339	5439	
==>ed as a private LWP extension.  The Client-Date header is
# added as a timestamp to a response when i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21381	21481	
==>at_utf8       substrs->data[1].utf8_substr
 #define float_min_offset substrs->data[1].min_offset
 #de <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3600	3696	
==>E ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Func <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3600	3696	
==>E ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Func <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40584	40680	
==>re three methods you can use when a problem arises.  They use
Carp::carp() or Carp::croak().  The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4789	4904	
==>y}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4789	4904	
==>y}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4789	4904	
==>y}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Perl6::Value::numify( $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40488	40615	
==>ue->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40488	40615	
==>ue->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40488	40615	
==>ue->unboxed;
    return $value;
}
sub pop {
    my ( $this ) = @_;
    return pop @{$this->{arrayref}};
}
sub shift {
    my ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	23	131	
==>$print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet... <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	23	131	
==>$print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet... <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	807	904	
==>r BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8212	8367	
==>->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8212	8367	
==>->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8212	8367	
==>->unboxed;
                        my @items = @{$arg->things};
                        #warn "ITEMS @items = @{[ map { Perl6::Value::stringify($_) } @items <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17873	18032	
==>mmon_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21350	21509	
==>mmon_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20937	21096	
==>mmon_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8125	8255	
==>oxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8125	8255	
==>oxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8125	8255	
==>oxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5112	5248	
==>rn,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5112	5248	
==>rn,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5112	5248	
==>rn,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multil <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1327	1438	
==>p` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1327	1438	
==>p` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8545	8675	
==>"into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12454	12582	
==>"into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12454	12582	
==>"into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	330	436	
==>etopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	330	436	
==>etopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	330	436	
==>etopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    import <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4944	5076	
==>attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4944	5076	
==>attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4944	5076	
==>attribute";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14024	14125	
==>eanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14024	14125	
==>eanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14024	14125	
==>eanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8477	8640	
==>d} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8477	8640	
==>d} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8477	8640	
==>d} : _('$:cell')->{v};
                if ( scalar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33914	34014	
==>r ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33914	34014	
==>r ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33914	34014	
==>r ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	900	1024	
==>2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	900	1024	
==>2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	900	1024	
==>2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10743	10846	
==>($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10743	10846	
==>($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=H <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10743	10846	
==>($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=H <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4782	4903	
==>t 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those ar <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4782	4903	
==>t 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6306	6427	
==>t 10>, the plan is to run ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6401	6501	
==>n (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6401	6501	
==>n (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6401	6501	
==>n (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutN <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11203	11309	
==>rg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11203	11309	
==>rg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11557	11773	
==>ms[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11557	11773	
==>ms[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11557	11773	
==>ms[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3335	3456	
==>iles when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3335	3456	
==>iles when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3335	3456	
==>iles when creating a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34082	34203	
==>r ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34082	34203	
==>r ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34082	34203	
==>r ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

s <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1606	1703	
==>s should likely take place there.

# Some raw development notes appear after __END__.

package Reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6961	7054	
==>lass->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$li <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6961	7054	
==>lass->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3015	3121	
==>index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3015	3121	
==>index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3015	3121	
==>index into @a.each.elems parts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	282	387	
==>val {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	243	348	
==>val {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	243	348	
==>val {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command line options\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	451	553	
==>n|$] |
  \N* [ $ | \n <pod> ]
))->code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compile <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8736	8834	
==>e (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8736	8834	
==>e (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name! <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	776	886	
==>ation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4254	4364	
==>ation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Mapp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18151	18242	
==>,Fx,F1,Bx,B1,Ex,E1).

rm(repeat_ng(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37619	37705	
==>forementioned.

=item C<difference (Relation::Example $other!) returns Relation::Exampl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5801	6046	
==>set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7563	7808	
==>set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3863	3971	
==>';
trig_func 'asech';
trig_func 'acosech';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; N <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1754	1869	
==>dow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1754	1869	
==>dow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1754	1869	
==>dow.scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.j <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4481	4600	
==>Perl6::statements> ]* ) <?p6ws>? 
    \}
        { return { block => $<list> ,} }
RULE
*{'macro_decl'} = Pugs::Compiler: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11763	11877	
==>rg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11763	11877	
==>rg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3328	3478	
==>Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3328	3478	
==>Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3328	3478	
==>Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2764	2884	
==>Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2764	2884	
==>Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4288	4408	
==>Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new(
        output => Test::Buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10721	10876	
==>lar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10721	10876	
==>lar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10721	10876	
==>lar @params ) {
                        #warn "CHECK: $i - required $num_required - given @params";
                        return (0,"err1") if $num_requir <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9693	9809	
==>1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is exp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9693	9809	
==>1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is exp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10668	10815	
==>$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7009	7156	
==>$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7858	8005	
==>$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander code

            local $Data::Dumper:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3350	3470	
==>\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7118	7237	
==>t_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7118	7237	
==>t_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	888	988	
==>= capture( 'cap', constant('a') );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11298	11482	
==>st = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7580	7764	
==>st = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8414	8598	
==>st = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unless \ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9563	9707	
==>ecure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($versi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9563	9707	
==>ecure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8420	8558	
==>ethod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8420	8558	
==>ethod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8420	8558	
==>ethod eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3007	3145	
==>';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3007	3145	
==>';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3007	3145	
==>';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6012	6155	
==>hod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6012	6155	
==>hod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9253	9396	
==>:Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $descripti <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1375	1512	
==>:Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1375	1512	
==>:Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $descripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1725	1854	
==>ped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1725	1854	
==>ped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1725	1854	
==>ped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4372	4489	
==>_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4384	4501	
==>_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compati <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	679	785	
==>) =~ /[:upper:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lowe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8060	8197	
==>? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub neg {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1017	1104	
==>}

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::B <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1017	1104	
==>}

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18196	18368	
==>ed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::opti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18475	18647	
==>ed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::opti <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8560	8663	
==>::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't unify <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2212	2319	
==>store($name, $value);
}

sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbo <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1890	1988	
==>ention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extra <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1890	1988	
==>ention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5137	5258	
==>{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5137	5258	
==>{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  requir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5137	5258	
==>{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced to install it.
  requir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19663	19757	
==>plain-text format that will be much easier for a non-programmer to edit.
But the current Perl-b <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	195	289	
==>n}!".say;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$welt.hallo($person <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19663	19757	
==>plain-text format that will be much easier for a non-programmer to edit.
But the current Perl-b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7904	7993	
==>malize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7904	7993	
==>malize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $ev <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3580	3666	
==>6_concatenation_more(W, Z), !.
p6_concatenation_more(W, Z) --> p6_quantified(X), p6_con <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7614	7759	
==>depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	915	1060	
==>depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	406	517	
==>this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	406	517	
==>this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5556	5645	
==>se Pugs::Grammar::Infix;
use Pugs::Grammar::Prefix;
use Pugs::Grammar::Postfix;
use Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	368	478	
==>to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	368	478	
==>to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	368	478	
==>to parse given!\n" unless defined $str;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Pe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	762	861	
==>ulti sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define mult <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	762	861	
==>ulti sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define mult <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1618	1710	
==>scape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unknown <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13916	14013	
==>and a single
value (a string).  If a header field is multi-valued, then the
routine is called once <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13916	14013	
==>and a single
value (a string).  If a header field is multi-valued, then the
routine is called once <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4321	4433	
==>mous"
on the command line to withold your identity (and this message).
AD
        }
    }
    #$self->{_smoker} | <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4346	4447	
==>= @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1472	1573	
==>= @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14241	14333	
==>::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14241	14333	
==>::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14241	14333	
==>::Hash::Native->new( hashref => \%ENV );
	$PIL::Run::Root::main::hash_ENV->{'instance_data'}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	586	691	
==>}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	586	691	
==>}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	586	691	
==>}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(qw< .. .. js lib PIL2JS.js >) }

our %cf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1156	1253	
==>upply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1156	1253	
==>upply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1156	1253	
==>upply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subca <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11985	12103	
==>nInteractiveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Potenia <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10904	11018	
==>heck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readlin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10904	11018	
==>heck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	517	610	
==>:Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	517	610	
==>:Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	517	610	
==>:Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14440	14558	
==>ason        why is it todo or skip? (if any)

It will also catch lone 'not' lines, note it saw them in
C<< $strap->{saw <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2677	2786	
==>d $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2735	2844	
==>d $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9601	9714	
==>n taint mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	868	973	
==>() if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.density, density => $.d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	868	973	
==>() if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.density, density => $.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3089	3201	
==>~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3089	3201	
==>~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3089	3201	
==>~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method('can' => me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16172	16288	
==>d
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16172	16288	
==>d
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7923	8095	
==>fy( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7923	8095	
==>fy( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7923	8095	
==>fy( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #w <==
3	/Users/nnunley/pugs/util/claim_drift.pl	576	679	
==>rectory found. Make sure you are in the top level of a pugs
    working directory, and that you have a c <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2376	2467	
==>is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2376	2467	
==>is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1618	1723	
==>= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1618	1723	
==>= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1618	1723	
==>= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12410	12532	
==>es) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12410	12532	
==>es) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12410	12532	
==>es) {
        my $symtab = '$'.$cls.'::{$_[0]}';
        $code .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	597	720	
==>$@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21225	21321	
==>minant feature is that it provides a
common API for access to those databases, each of which take <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21225	21321	
==>minant feature is that it provides a
common API for access to those databases, each of which take <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	982	1095	
==>tes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least on <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	982	1095	
==>tes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least on <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1199	1302	
==>as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Per <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1966	2090	
==>) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comment <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8618	8716	
==>ts

=over 4

=item I<start_modifier>

This event is fired when a modifier is encountered.

=item I< <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8618	8716	
==>ts

=over 4

=item I<start_modifier>

This event is fired when a modifier is encountered.

=item I< <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1342	1471	
==>eturn $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1342	1471	
==>eturn $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25647	25751	
==>->new,
		),
		type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) →  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1145	1262	
==>ind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1145	1262	
==>ind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1145	1262	
==>ind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	512	619	
==>=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => \@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	512	619	
==>=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => \@ <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	131	224	
==>cripts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17901	17996	
==>x1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17901	17996	
==>x1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17901	17996	
==>x1) { p6_from_n(p6_to_n($xx0) ** p6_to_n($xx1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3484	3619	
==>e => 'looser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        precede <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7667	7794	
==>eading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11144	11271	
==>eading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	378	516	
==>e filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	378	516	
==>e filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6583	6681	
==>t it runs the given C<$test_file> and parses its
results.  It will also use that name for the total <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2105	2215	
==>ile::Path! This module should be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir}) } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2228	2322	
==>s the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <spac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2317	2411	
==>s the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <spac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14426	14515	
==>_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14426	14515	
==>_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14426	14515	
==>_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6_to_s($xx0))};
MULTI SUB <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16127	16236	
==>>new(undef);
    
    # if the symbol is not a predefined global it's an error. If it exists, it can be reduce <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2540	2645	
==>>new(undef);

    # if the symbol is not a predefined global it's an error. If it exists, it can be reduce <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4769	4886	
==>.. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4769	4886	
==>.. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10395	10478	
==>nal, isNamed=>$isNamed, isLValue=>$isLValue, isWritable=>$isWritable, isLazy=>$isLaz <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	851	964	
==>e parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return _emit( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	640	744	
==>e parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	640	744	
==>e parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15236	15378	
==>=~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15236	15378	
==>=~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15236	15378	
==>=~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { int( $_[0] ) }

p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1204	1316	
==>afe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$self <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	402	506	
==>) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *i <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	402	506	
==>) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1198	1334	
==>childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1198	1334	
==>childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1198	1334	
==>childNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || docum <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1833	1935	
==>om called with no args without setting name() first";
        $file = join('/', 'lib', split(/-/, $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38991	39142	
==>ist->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38991	39142	
==>ist->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38991	39142	
==>ist->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3699	3827	
==>ass        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3699	3827	
==>ass        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3699	3827	
==>ass        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name') = $name;
    }
    ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	711	848	
==>LNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	711	848	
==>LNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2818	2939	
==>T   { \x000B }
rule FF   { \x000C }
rule SP   { \x0020 }
rule NBSP { \x00A0 }
rule USP  { <<Zs>-<TAB>-<VT>-<FF>-<SP>-<NBSP <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	241	342	
==>* cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	241	342	
==>* cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	577	688	
==>r($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	577	688	
==>r($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1952	2058	
==>vely
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1952	2058	
==>vely
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($. <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4741	4900	
==>l to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4741	4900	
==>l to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $star <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9359	9495	
==>⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # oth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9359	9495	
==>⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # oth <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5503	5624	
==>class'>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	347	458	
==>rgs) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	347	458	
==>rgs) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	347	458	
==>rgs) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsa <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7064	7159	
==>, that will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_ele <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7064	7159	
==>, that will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_ele <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11865	11976	
==>s{stdin} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3956	4059	
==>r class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3956	4059	
==>r class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30940	31130	
==>ERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30940	31130	
==>ERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30940	31130	
==>ERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9088	9205	
==>gwin work-around.  Ugh!


        if (not $ghc_exe and $Config{osname} eq 'cygwin') {

            warn "*** ghc-pkg n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3622	3723	
==>urn $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.clos <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3622	3723	
==>urn $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.clos <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7941	8039	
==>Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7941	8039	
==>Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the ciph <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3264	3359	
==>h line\n10th line\n11th line\n12th line\n" ],
      [ 'file21', $file21, "12th line\n\n\n\n\n\n\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19567	19666	
==>n a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4541	4640	
==>'s simple too, and the
# difference won't matter for the spike target.

sub def_thing {
  my($aref,$ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19567	19666	
==>n a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27018	27132	
==>ule.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16849	16946	
==>he spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span objec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16849	16946	
==>he spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span objec <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14510	14609	
==>tched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14510	14609	
==>tched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11388	11515	
==>t ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11388	11515	
==>t ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11388	11515	
==>t ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1431	1569	
==>TDERR "processing $fname...\n";
    my $file = slurp($fname);
    # remove the description line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14144	14246	
==>ero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17621	17723	
==>ero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22631	22762	
==>flags}[-1],
      family => 'assertion',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => 1,
      ze <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2959	3054	
==>f the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2959	3054	
==>f the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11471	11576	
==>name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11471	11576	
==>name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11471	11576	
==>name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22191	22290	
==>look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26743	26842	
==>look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25448	25547	
==>look like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2089	2251	
==>_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2089	2251	
==>_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2089	2251	
==>_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack curr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3194	3327	
==>each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3194	3327	
==>each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3194	3327	
==>each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20604	20713	
==>META->new()" if $name =~ /\$|\&/;
    return "\$${ROOT}::Array::META->new()" if $name =~ /\@/;
    return "\$$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	350	457	
==>ar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	350	457	
==>ar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2614	2715	
==>erl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2614	2715	
==>erl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2614	2715	
==>erl5.perl_eval("sub {system(@_)}");
        return system.apply(system, arguments);
    }
  )')(@comma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5691	5797	
==>sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5691	5797	
==>sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5691	5797	
==>sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things->[$i+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1582	1681	
==>() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1582	1681	
==>() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1582	1681	
==>() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_co <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11400	11494	
==>_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11400	11494	
==>_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	81	188	
==>r::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	81	188	
==>r::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	81	188	
==>r::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005-08-31
# * New methods: tied(), keys(), value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2376	2496	
==>"infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2376	2496	
==>"infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2376	2496	
==>"infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = S <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3124	3278	
==>p([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ joi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3124	3278	
==>p([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ joi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4976	5073	
==>$self->{param}->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	$self->{par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6630	6738	
==>atch) contain:



### Match actually contain getters for $() and such

### getters need to know what you want <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6408	6513	
==>atch) contain:

### Match actually contain getters for $() and such
### getters need to know what you want <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	34	136	
==>t;

use Package::Constants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

use vars qw[@EXP <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21561	21659	
==>on> <')'> <Statement>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><no_LineTermi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	879	976	
==>ed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	879	976	
==>ed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2204	2349	
==>ool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    r <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2204	2349	
==>ool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    r <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2074	2185	
==>od Array::delete (@array : *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._del <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22832	22954	
==>$1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19253	19375	
==>$1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16612	16700	
==>ualityExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <' <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1344	1463	
==>ign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11145	11257	
==>ke
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11145	11257	
==>ke
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	958	1065	
==>ew(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $left->type->to_native eq <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26693	26789	
==>object.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26693	26789	
==>object.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13605	13704	
==>) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13605	13704	
==>) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13605	13704	
==>) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7647	7754	
==>>new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7647	7754	
==>>new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7647	7754	
==>>new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11026	11180	
==>body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11026	11180	
==>body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11026	11180	
==>body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1635	1774	
==>$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1992	2108	
==>dle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $args{inline <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1992	2108	
==>dle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $args{inline <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1012	1134	
==>erbose};
        my %cc = ($f => 1);
        print "calculating cc for $f\n";
        $allccs{$f} = [ keys %{comp_cc(\%cc)} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3964	4060	
==>r L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3964	4060	
==>r L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1751	1860	
==>5-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1751	1860	
==>5-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1751	1860	
==>5-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub sli <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15544	15682	
==>' image
      "-boot-load-size" => 4,              # Set numbers of load sectors
      "-boot-info-table",                  # Patch boot im <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23263	23356	
==>modified by this module,
aside from appending the correct newline characters.

=head1 PSEUDO E <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23263	23356	
==>modified by this module,
aside from appending the correct newline characters.

=head1 PSEUDO E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1808	1918	
==>se they are too frequent and they are too slow using the basic 

# rule parser



sub code {

    return unless <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1735	1841	
==>se they are too frequent and they are too slow using the basic 
# rule parser

sub code {
    return unless <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22025	22124	
==>fetch the user message for a certain code, it
returns the first one it finds.  This also works for t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22025	22124	
==>fetch the user message for a certain code, it
returns the first one it finds.  This also works for t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35654	35747	
==>:Example>

This multi-method is a generic binary relational operator that takes a single
Relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6990	7145	
==>ied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6990	7145	
==>ied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6990	7145	
==>ied} },

             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36629	36725	
==>is identical to the
invocant.  Another trivial case is where any any source relation has zero
tup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41178	41274	
==>is identical to the
invocant.  Another trivial case is where any any source relation has zero
tup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40801	40897	
==>is identical to the
invocant.  Another trivial case is where any any source relation has zero
tup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2847	3045	
==>lass->name) . 
                                ']'
                );
                if (defined $attrs{'$:superclass'}) {
                    $eigenclass->superclass(
                        ::opaq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26892	26987	
==>r $attrs!) returns Relation>

This method is the same as C<project> but that the returned Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31444	31539	
==>r $attrs!) returns Relation>

This method is the same as C<project> but that the returned Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1656	1780	
==>1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1656	1780	
==>1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1656	1780	
==>1,1) eq "x") # XXX - excess parens required
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3208	3375	
==>> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/right/no <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13215	13311	
==>ence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13215	13311	
==>ence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15261	15414	
==>l' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15255	15408	
==>l' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10385	10484	
==>l))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2509	2624	
==>:inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2509	2624	
==>:inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2509	2624	
==>:inline('(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7386	7491	
==>_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7386	7491	
==>_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7386	7491	
==>_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx)  { 
    $xx->store( $xx->fetch->decrement ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8391	8503	
==>_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8379	8491	
==>_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	549	658	
==>ists $self->{raw} ? $self->{raw} : $self->visual(@_);
  }

  sub data {
    my $self = shift;
    return $self <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3339	3515	
==>::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::sort(; SortCriteri <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1480	1572	
==>ther by giving 
them to the unexported C<Log::Selective::select> function or by including the <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1480	1572	
==>ther by giving 
them to the unexported C<Log::Selective::select> function or by including the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4940	5039	
==>rn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4940	5039	
==>rn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4940	5039	
==>rn "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12080	12180	
==>ot::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12080	12180	
==>ot::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12080	12180	
==>ot::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4813	4910	
==>`day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4813	4910	
==>`day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30379	30478	
==>ay or may not resemble those of the original. 
The anonymous function in the argument C<$transformer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34931	35029	
==>ay or may not resemble those of the original.
The anonymous function in the argument C<$transformer <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34113	34211	
==>ay or may not resemble those of the original.
The anonymous function in the argument C<$transformer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10439	10549	
==>---------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10439	10549	
==>---------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10439	10549	
==>---------------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be impleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8069	8170	
==>constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given vari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8069	8170	
==>constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given vari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8069	8170	
==>constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2138	2232	
==>-link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2138	2232	
==>-link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2138	2232	
==>-link=js", "METAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11612	11707	
==>text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $ac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11612	11707	
==>text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $ac <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17897	18027	
==>ecifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($fmt,$start,$fi - $start);

        # FIXME -- when next; work <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37284	37380	
==>eter
$module_name (a string) and checks whether or not it has already been
loaded, returning true <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37284	37380	
==>eter
$module_name (a string) and checks whether or not it has already been
loaded, returning true <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8285	8376	
==>_pos(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_modifier_sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7890	8018	
==>e, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'prop',
      type => $ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	337	442	
==>ositional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	337	442	
==>ositional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18113	18213	
==>able, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no lo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18113	18213	
==>able, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no lo <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15278	15378	
==>comb is the return value from the function
	# since this return value is a type variable that is pres <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3105	3227	
==>$m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3105	3227	
==>$m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3105	3227	
==>$m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18105	18237	
==>::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18105	18237	
==>::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18105	18237	
==>::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Data::Dumper; $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5658	5785	
==>+;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


# copied from S29draft.po <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	71	190	
==>ading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	71	190	
==>ading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1399	1523	
==>tribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1399	1523	
==>tribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1399	1523	
==>tribute($attr_name => ::make_attribute($attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6913	7012	
==>l 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an inter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6677	6773	
==>l 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	767	891	
==>e !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	767	891	
==>e !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	767	891	
==>e !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	172	267	
==>tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	172	267	
==>tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3842	3954	
==>t_error), return;

    if (-e $self->pool->file(file($pkg->file)->basename) && !$force) {
        error($pkg->pac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3261	3507	
==>{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3133	3370	
==>{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2087	2229	
==>ments
	} elsif ( $chr =~ /#/ ) {
	    # special comment? (embedded latex)
	    if ($file[0] eq '!') {
		shift @file;
	        while (scalar @fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1006	1128	
==>s_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1006	1128	
==>s_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1006	1128	
==>s_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named args are immediately extracted <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1835	1938	
==>needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS):: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1835	1938	
==>needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS):: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1835	1938	
==>needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS):: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6879	7021	
==>ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6879	7021	
==>ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6879	7021	
==>ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8480	8667	
==>e it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8480	8667	
==>e it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8480	8667	
==>e it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1458	1809	
==>al(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix:<->'),
                                    Sym('$x'),
                                    Sym('$y'),
                                ),
                                Sym('$y' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9078	9189	
==>set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9078	9189	
==>set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13999	14099	
==>this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14057	14157	
==>this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1692	1789	
==>l_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods($self:) re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4056	4166	
==>";
    $self->SUPER::store($index, $value);
}

sub unshift : method { 
    my $self = shift;
    (blessed($_) & <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	433	524	
==>int("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UT <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	433	524	
==>int("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	818	930	
==>b code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	818	930	
==>b code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratc <==
3	/Users/nnunley/pugs/util/package-osx.pl	345	449	
==>links, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = qw(
        /usr/local/bin/parrot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6412	6636	
==>new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6412	6636	
==>new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6412	6636	
==>new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4361	4465	
==>::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4361	4465	
==>::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4361	4465	
==>::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17944	18043	
==>x1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17944	18043	
==>x1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17944	18043	
==>x1)) };
MULTI SUB infix:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB inf <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18961	19058	
==>thing in the real world accurately, and it
can support a complete SQL emulation layer on top of it <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18961	19058	
==>thing in the real world accurately, and it
can support a complete SQL emulation layer on top of it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3192	3338	
==>@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3192	3338	
==>@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3192	3338	
==>@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writable, but isnt.
#        $m.to   += $offset; # XXX - should <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12724	12931	
==>[ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12724	12931	
==>[ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12724	12931	
==>[ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13170	13324	
==>'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8042	8157	
==>c_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (define <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8042	8157	
==>c_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22828	22920	
==>$v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22828	22920	
==>$v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22828	22920	
==>$v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16032	16133	
==>hod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16032	16133	
==>hod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16032	16133	
==>hod('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3834	3930	
==>e (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4018	4114	
==>e (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4607	4721	
==>_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8084	8198	
==>_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7077	7191	
==>_.key === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs! <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2866	2967	
==>y string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2866	2967	
==>y string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8958	9058	
==>);
    return $S->force_object(anyof_char => "\0", "\\0[0]") if $cc;
    return $S->object(exact => " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1428	1524	
==>"String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1428	1524	
==>"String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1428	1524	
==>"String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12031	12124	
==>che

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12031	12124	
==>che

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12031	12124	
==>che

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

=cut <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14657	14770	
==>sary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14657	14770	
==>sary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14657	14770	
==>sary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operators/binding/arrays.t <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1036	1142	
==>lf: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1036	1142	
==>lf: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $chi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1094	1207	
==>\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1094	1207	
==>\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28478	28574	
==>ty.

=back

=head1 EXAMPLE

Here's how Test::Harness tests itself

  $ cd ~/src/devel/Test-Harnes <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8745	8852	
==>> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStr <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	332	437	
==>b  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	332	437	
==>b  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2094	2195	
==>os} = ( $^O eq 'MacOS' );
}

=head1 Analysis

=head2 $strap->analyze( $name, \@output_lines )

  my %r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2774	2888	
==>->{fixity} = 'prefix' unless defined $opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++;
    #my $fixity = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2222	2334	
==>se named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2362	2474	
==>se named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	222	337	
==>.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	222	337	
==>.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	222	337	
==>.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Roo <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	581	684	
==>%Cookies.keys) {
        $header ~= "Set-Cookie: " ~ $_ ~ "=" ~ %Cookies{$_} ~ "; expires=Sat, 01-Jan-30 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8173	8270	
==>channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8173	8270	
==>channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12801	13034	
==>elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12801	13034	
==>elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12801	13034	
==>elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8840	8964	
==>r thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[0] }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8840	8964	
==>r thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[0] }
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8840	8964	
==>r thunkreturncc = args.pop();
%s;
})
EOF

    chomp $ret;  # Cosmetical fix
    return $ret;
  }

  sub unwrap { $_[0] }
}

1 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16072	16193	
==>E
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16072	16193	
==>E
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7129	7234	
==>if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7129	7234	
==>if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7129	7234	
==>if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(function () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10985	11107	
==>key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10985	11107	
==>key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10985	11107	
==>key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32195	32317	
==>>new('_make_descendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	859	966	
==>,
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	744	835	
==>,
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4654	4779	
==>'" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4654	4779	
==>'" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3447	3545	
==>, 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
nod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30416	30519	
==>renthesis handler
is:

  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17356	17455	
==>("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17356	17455	
==>("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16853	16988	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17132	17267	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	532	657	
==>pt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	548	673	
==>pt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	524	649	
==>pt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4976	5068	
==>cale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4976	5068	
==>cale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4247	4336	
==>rg/perl6/doc/synopsis.html>.

The Pugs homepage at L<http://pugscode.org/>.

The Parrot ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7324	7462	
==>& 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7324	7462	
==>& 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7324	7462	
==>& 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6424	6555	
==>TParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6424	6555	
==>TParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6424	6555	
==>TParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkParam
    #   isInvocant: !perl/@PIL::False []
    #   is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2286	2384	
==>unction (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2286	2384	
==>unction (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2286	2384	
==>unction (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	777	892	
==>each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	777	892	
==>each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	777	892	
==>each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase w words g global>;
    %m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14567	14730	
==>,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14846	15009	
==>,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21616	21752	
==>cutnum"] = cutnum
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Subrule" ]

.sub "p6analyze" :method
    .param pmc pad
    .lo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	522	643	
==>re::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = shift;

	warn Carp::longmess unless $node- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	583	680	
==>xternal packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Y <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	583	680	
==>xternal packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13792	13908	
==>IVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13792	13908	
==>IVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13792	13908	
==>IVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11297	11414	
==>is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_produc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14774	14891	
==>is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_produc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14082	14199	
==>is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_produc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	662	767	
==>ain index file. default: $root/dists/index

=back

=cut

{
    my $config = JIB::Config->new;

    sub new <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2862	2959	
==>, or at
least a valid representation of it that "honours the spirit of the
dialect", if the origin <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2862	2959	
==>, or at
least a valid representation of it that "honours the spirit of the
dialect", if the origin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10676	10847	
==>scription;
  
      submethod BUILD (
          $.description,
          $.passed,
          ?$.number     =     0,
          ?$.diagnostic = '???',
      ) {}
  
      met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17345	17446	
==>US" for English the
way it is written in the US.

=item $h.title

The title of the document.  In libww <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17345	17446	
==>US" for English the
way it is written in the US.

=item $h.title

The title of the document.  In libww <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4106	4304	
==>if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 wh <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4106	4304	
==>if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3346	3465	
==>equiv
  is assoc left/right/non/chain/list
  (is parsed)
  (will do)
  
  my $cat = Pugs::Grammar::Category->new( 
    n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1904	1997	
==>the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1904	1997	
==>the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1904	1997	
==>the 'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14734	14859	
==>AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14734	14859	
==>AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14734	14859	
==>AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13591	13716	
==>ource;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA- <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13591	13716	
==>ource;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2756	2898	
==>ch->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2756	2898	
==>ch->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3624	3759	
==><$id>'} = sub\n" . emit($block) . "    ;\n" .
        "    require Runtime::Perl5::RuleInit;\n".
        # "    }\n" .
        "    push <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8316	8430	
==>POPs;
      PUTBACK;
      regexp_setup(r,pat,nparens,exec_callback_sub);
    } else if(api == 14) {
      SV* expr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11284	11378	
==>e cases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11284	11378	
==>e cases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	517	771	
==>turn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	517	771	
==>turn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rose <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2958	3173	
==>meta_dir -tz |] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15819	15936	
==>f->{line};
        }

        return $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bail_out = $strap->_is_bail_out($l <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1271	1381	
==>login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1238	1348	
==>login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15989	16100	
==>eading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19466	19577	
==>eading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18972	19083	
==>eading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11062	11236	
==>rint caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8127	8292	
==>rint caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8127	8292	
==>rint caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8738	8875	
==>Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test::Builder::TestPlan. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	906	1031	
==>Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	906	1031	
==>Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test::Builder::TestPlan. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1294	1400	
==>s
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34948	35045	
==>er>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39498	39595	
==>er>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1223	1320	
==>ethod concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1223	1320	
==>ethod concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1223	1320	
==>ethod concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support sum( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4959	5091	
==>lse {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4959	5091	
==>lse {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4959	5091	
==>lse {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{class_metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5989	6100	
==>fix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5989	6100	
==>fix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17824	17919	
==>l qw/signature/;;
    return  signature($thunk);
    Digest::SHA1::sha1_hex($class->reduce($thun <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	185	281	
==>OM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc:: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	185	281	
==>OM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	147	234	
==>se Pugs::Grammar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4972	5109	
==>nd auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4972	5109	
==>nd auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4972	5109	
==>nd auto-metaed versions
# of user-defined ops are not generated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22560	22682	
==>- 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18981	19103	
==>- 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25338	25433	
==>:operator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2418	2540	
==>Could not remove metadir from '$tmpdir" ), return;
# 
#         ### copy these sources to a build dir
#         JIB::Utils- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1871	1972	
==>t = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1871	1972	
==>t = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1340	1509	
==>elf<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TR <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1340	1509	
==>elf<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TR <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7651	7775	
==>code for usage inside a grammar:

    sub new_proto( $match ) {
        return ${$match<category>}.add_op( 
            n <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9065	9182	
==>en_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        su <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9065	9182	
==>en_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1403	1505	
==>->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1403	1505	
==>->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1403	1505	
==>->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1074	1188	
==>my @a=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #us <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2550	2657	
==>arator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2550	2657	
==>arator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ r <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	51	181	
==>:Base; @ISA = qw(Module::Install::Base);
use strict;
use Config;
use File::Spec;
use File::Basename;
use IPC::Open3 'open3';
use Ca <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	241	340	
==>e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note th <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	241	340	
==>e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22177	22279	
==>ap{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22177	22279	
==>ap{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22177	22279	
==>ap{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3487	3632	
==>l' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3487	3632	
==>l' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3487	3632	
==>l' =>     sub { _('$:cell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12356	12477	
==>h @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12356	12477	
==>h @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12356	12477	
==>h @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23403	23527	
==>c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{fl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19824	19948	
==>c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{fl <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27168	27258	
==>x8000000

 #define RE_USE_INTUIT		(RE_USE_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REINT_AUTO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1631	1744	
==>ludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1631	1744	
==>ludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1631	1744	
==>ludepc}) {
  #  die "* Error: Your precompiled Prelude is outdated.\n";
  #} elsif(not -e $cfg{prelude}) {
  #  wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17272	17369	
==>ON

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements pla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17272	17369	
==>ON

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements pla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17272	17369	
==>ON

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implements pla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4022	4123	
==>e}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4022	4123	
==>e}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4022	4123	
==>e}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless defined $def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5554	5654	
==>) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5554	5654	
==>) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5554	5654	
==>) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_cc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3495	3748	
==>s of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Va <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3495	3748	
==>s of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Va <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2861	2975	
==>f->config;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37349	37442	
==>eady been
loaded, returning true if so and false if not.

=item C<load_template_module( $modul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37349	37442	
==>eady been
loaded, returning true if so and false if not.

=item C<load_template_module( $modul <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	514	606	
==>kwards compatibility for exportable variable names.
*verbose  = *Verbose;
*switches = *Switch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15443	15617	
==>atural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18920	19094	
==>atural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	112	223	
==>%$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pSco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	112	223	
==>%$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pSco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	112	223	
==>%$self == 3;
  # A SOur should never reach use (SOurs are compiled into __init_ subs).
  die if     $self->{pSco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1521	1645	
==>~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = spli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1521	1645	
==>~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = spli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1521	1645	
==>~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = spli <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14002	14128	
==>grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10175	10301	
==>grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11011	11137	
==>grammar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is v <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1312	1420	
==>r(KeyExtractor, Comparator);

# signature from S29draft.pod 8651.
 multi Array::sort(                 @values <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5769	5876	
==>iverse,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5769	5876	
==>iverse,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	403	490	
==>val, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	403	490	
==>val, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	403	490	
==>val, $repl,$warn,$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::Eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8308	8428	
==>->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8308	8428	
==>->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8308	8428	
==>->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    loc <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5442	5552	
==>}]}'\n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4824	4927	
==>rsect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4824	4927	
==>rsect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2978	3131	
==>$_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2978	3131	
==>$_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2978	3131	
==>$_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16686	16804	
==>round_gen($n, &Num::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our &trunc : <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4845	4961	
==>s export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# met <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4845	4961	
==>s export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# met <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19695	19824	
==>ment>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <ThrowStatement>
    | <TryStatement>
}
rule B <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8175	8282	
==>eturns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toenc <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8175	8282	
==>eturns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24321	24502	
==>t->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24321	24502	
==>t->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24321	24502	
==>t->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32689	32856	
==>Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32689	32856	
==>Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32689	32856	
==>Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2496	2590	
==>{ use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2496	2590	
==>{ use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15369	15469	
==>, 1970) and they also expect this kind of
value when the header value is set.

=over 4

=item $h.date <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15369	15469	
==>, 1970) and they also expect this kind of
value when the header value is set.

=over 4

=item $h.date <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2631	2728	
==>$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2631	2728	
==>$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2631	2728	
==>$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	186	284	
==>s::Grammar::Str;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-y <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	563	657	
==>ard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	563	657	
==>ard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	863	980	
==>fg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule    => sub{ $match = $rpc_rule->match($str)    fo <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3827	3922	
==>ing
with more power, move up to Config::Simple, Config::General or one of the
many other Config: <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3827	3922	
==>ing
with more power, move up to Config::Simple, Config::General or one of the
many other Config: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33486	33612	
==>th++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33486	33612	
==>th++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33486	33612	
==>th++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2248	2345	
==>Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_cor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2248	2345	
==>Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_cor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2248	2345	
==>Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$qc);
}

sub JS::Root::rx_cor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4111	4201	
==>e> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4111	4201	
==>e> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4111	4201	
==>e> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	455	569	
==>@invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	455	569	
==>@invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	455	569	
==>@invocant, $_;
#
#      # (Perl 5)--  # doesn't allow ?: as push argument
#      } elsif($_->is_slurpy and $_->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3411	3521	
==>>type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3411	3521	
==>>type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3411	3521	
==>>type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7133	7303	
==>elems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7133	7303	
==>elems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7133	7303	
==>elems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5559	5669	
==>ent =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to ski <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5559	5669	
==>ent =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to ski <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27578	27672	
==>f you don't want harness to
output more frequent progress messages using carriage returns.  Som <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3075	3179	
==>x.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3075	3179	
==>x.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3075	3179	
==>x.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7617	7763	
==>ends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe to de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	918	1064	
==>ends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe to de <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2530	2616	
==>-5.5.27/lib/x86_64-linux
my $prolog = <<'END';
%======================================= <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13085	13184	
==>hey live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13143	13242	
==>hey live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2054	2193	
==>s $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2114	2253	
==>s $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1028	1136	
==>eop::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate longes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	987	1093	
==>eop::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longes <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	615	717	
==>2/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getst <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	615	717	
==>2/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getst <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12928	13012	
==>","}"). brackets("(",")"). brackets("[","]").
brackets("<",">"). brackets(">","<").
b <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4061	4164	
==>of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4061	4164	
==>of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4141	4244	
==>of expected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to th <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3519	3629	
==>e role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3519	3629	
==>e role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5716	5826	
==>e role.

=head1 METHODS

=over 4

=item B<new>

This is a Factory method used to create a specific class instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1107	1244	
==>ir_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1107	1244	
==>ir_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1107	1244	
==>ir_objects (
  Pair $pair, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11584	11706	
==>{_is_win32} ) {
        # Lose any trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2158	2252	
==>ook for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2158	2252	
==>ook for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10998	11111	
==>no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10998	11111	
==>no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10998	11111	
==>no " . $params->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1187	1293	
==>t
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1187	1293	
==>t
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1267	1373	
==>t
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7424	7554	
==>l5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4028	4158	
==>l5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4877	5007	
==>l5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2334	2438	
==>ames)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2426	2527	
==>ub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as p <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2426	2527	
==>ub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3407	3532	
==>sult.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3407	3532	
==>sult.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $pat <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/JuncType.pm	1	99	
==>package Perl::JuncType;

# this is a simple translation of the JuncType type from
# src/Pugs/AST/In <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5067	5177	
==>nected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5067	5177	
==>nected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21367	21460	
==>xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21367	21460	
==>xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21367	21460	
==>xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1097	1251	
==>:L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        memb <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1097	1251	
==>:L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        memb <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	908	1084	
==>ens.push( ($sep, $tok, $i).grep:{ $_ ne "" } );
        $buf = "";
        last;
      }

      $buf ~= $i
        if defined $i;

      my @newtoks = $split.($buf);
      while <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1168	1265	
==>s 
search path so that later `use` or `require` statements 
will find modules which are not locate <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1168	1265	
==>s 
search path so that later `use` or `require` statements 
will find modules which are not locate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1513	1655	
==>ments.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1513	1655	
==>ments.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1513	1655	
==>ments.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4501	4601	
==>ming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__P <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4501	4601	
==>ming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__P <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5091	5191	
==>ming positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__P <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8601	8742	
==>alues -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array::join (@values,   Str $delimiter --> Str )
 multi  List <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3405	3503	
==>bless {}, $class;
}

package type::operator::nullary;
use base qw/type::operator/;

sub new {
	my $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	41	136	
==>ReturnType $.returns;
  multi sub trait_verb:<returns>($container; ReturnType $arg) {
    $conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7263	7358	
==>refix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7263	7358	
==>refix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7263	7358	
==>refix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2JS's => currently c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	441	537	
==>);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	441	537	
==>);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	441	537	
==>);
our(%rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	880	1014	
==>xup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, ap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	880	1014	
==>xup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, ap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	880	1014	
==>xup,
    );
  }

  sub as_js {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, ap <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24354	24462	
==>t' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my($x)=@_;
    return 'undef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2010	2107	
==>This object-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1934	2027	
==>This object-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22442	22571	
==>xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22442	22571	
==>xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22442	22571	
==>xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	555	658	
==>-----------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	555	658	
==>-----------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	555	658	
==>-----------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4233	4384	
==>$sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4233	4384	
==>$sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4233	4384	
==>$sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'co <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4971	5111	
==>s}->insert($node);
}

sub node_is_defined {
	my $self = shift;
	my $node = shift;
	$self->{defined_nodes}->includes($node);
}

sub reduce_thu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8648	8744	
==>s_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8706	8802	
==>s_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3085	3190	
==>lf ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3085	3190	
==>lf ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3085	3190	
==>lf ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continued 

::Class.meta.add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40216	40342	
==>) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40216	40342	
==>) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40216	40342	
==>) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8824	8981	
==>$item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8824	8981	
==>$item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8824	8981	
==>$item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3330	3436	
==>l' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	147	241	
==>ring and a position
within that string, and it provides the fundamental operations on strings a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	147	241	
==>ring and a position
within that string, and it provides the fundamental operations on strings a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	225	328	
==>s soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	225	328	
==>s soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	225	328	
==>s soul) — the pneuma (rational soul) 
# having been added by God.

# Naming Rationale:
# pneuma is the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9514	9637	
==>t_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9514	9637	
==>t_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9514	9637	
==>t_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	952	1076	
==>f(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	952	1076	
==>f(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	952	1076	
==>f(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STO <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	664	768	
==>nsity>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - no <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	664	768	
==>nsity>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - no <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1891	2008	
==>,  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capita <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1891	2008	
==>,  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capita <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	100	213	
==>nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	100	213	
==>nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warni <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	100	213	
==>nodes.
package PIL::PStmts;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 2;

  no warni <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19329	19445	
==>see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpressionNoIn>
}

# A.4 Statement <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1255	1358	
==>e.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22824	22917	
==>dex($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22824	22917	
==>dex($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22824	22917	
==>dex($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4933	5036	
==>butes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defin <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4933	5036	
==>butes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8833	8925	
==>nce calling metaclass method fails';

fails_ok { $iFoo->another_singleton_test_on_object } '. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15170	15276	
==>ists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15170	15276	
==>ists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15170	15276	
==>ists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} <==
3	/Users/nnunley/pugs/misc/S29_round.pl	3816	4039	
==>own_symmetric($x);
                }
                $rand_up = 0;
            }
            else {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                els <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	433	555	
==>t;
    $match .= '';
    # print "Grammar::Expression::AST '$match' \n";
    my $p;
    my $last = length( $match );
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1612	1717	
==>ro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1612	1717	
==>ro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{captur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2597	2687	
==>ti());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2597	2687	
==>ti());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2597	2687	
==>ti());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9250	9363	
==>ti-liner (avoid quotes) ]
#   progfile => perl script
#   stdin    => string to feed the stdin
#   stderr   => red <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10304	10412	
==>ethod previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10304	10412	
==>ethod previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10517	10633	
==>ing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10517	10633	
==>ing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10517	10633	
==>ing interface
    # to be implemented, so it makes abstract 
    # methods which must be implemented
    # ---------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9924	10088	
==>ames5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9924	10088	
==>ames5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9924	10088	
==>ames5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7447	7556	
==>infix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3047	3149	
==>bers);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3047	3149	
==>bers);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9130	9219	
==>tements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2955	3044	
==>tements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1502	1611	
==>.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1502	1611	
==>.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	290	404	
==>se PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	290	404	
==>se PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	290	404	
==>se PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8744	8850	
==>@members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set opera <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8744	8850	
==>@members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set opera <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4067	4172	
==>(RPe_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1399	1503	
==>fps HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Config{_exe}", 'configur <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6288	6383	
==>_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6288	6383	
==>_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2135	2241	
==>}

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Class::Events::Subsc <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1596	1688	
==>e <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1596	1688	
==>e <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reser <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5436	5674	
==>nd ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7198	7436	
==>nd ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11178	11303	
==>efix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1:: <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1079	1279	
==>vents<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_eleme <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1079	1279	
==>vents<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_eleme <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4207	4305	
==>r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3810	3933	
==>f($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3810	3933	
==>f($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3810	3933	
==>f($fv) =~ /Macro/) { # XXX - kludge
        my $macro_expansion = $fv->do(@args);
        $macro_expansion;
    } elsif(defi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2001	2196	
==>:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    w <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2001	2196	
==>:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    w <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16712	16805	
==>ionalExpressionNoIn>
    | <EqualityExpressionNoIn> <'==='> <RelationalExpressionNoIn>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23678	23787	
==>r
False, but once it has a value of False, it can not be further changed;
this class defaults it to False.

=b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28230	28339	
==>r
False, but once it has a value of False, it can not be further changed;
this class defaults it to False.

=b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27043	27152	
==>r
False, but once it has a value of False, it can not be further changed;
this class defaults it to False.

=b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4980	5095	
==>arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4980	5095	
==>arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4980	5095	
==>arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1332	1435	
==>nstant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1332	1435	
==>nstant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1332	1435	
==>nstant!
{
  package PIL::VInt;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10343	10483	
==>(3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10343	10483	
==>(3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10343	10483	
==>(3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1854	1986	
==>.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1854	1986	
==>.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1854	1986	
==>.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check,
    (bless $tree => "PIL") <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4456	4548	
==>ext::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIP <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4456	4548	
==>ext::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4486	4589	
==>r <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4486	4589	
==>r <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4486	4589	
==>r <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27233	27338	
==>h($len,$_)}@$A];
    my $from = $len-$npos;
    my $to = $from + length($str);
    MatchX->new()->set(1,$s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2867	2966	
==>ptographer worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initia <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2867	2966	
==>ptographer worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2211	2321	
==>xpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anywa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2211	2321	
==>xpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anywa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2211	2321	
==>xpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively harmless, as &b should
  # be our() anywa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	542	645	
==>the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	542	645	
==>the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	542	645	
==>the use of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15744	15877	
==>if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18613	18703	
==>ash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18613	18703	
==>ash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11479	11593	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11758	11872	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1874	1967	
==>nc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA     = __PACKAGE__;

sub au <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1157	1283	
==>int "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $pro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1362	1488	
==>int "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $pro <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4814	4923	
==>r', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4814	4923	
==>r', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1720	1829	
==>r', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4840	4944	
==>cted = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4840	4944	
==>cted = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4840	4944	
==>cted = 1;
	local $EvalX::PStmt::protection_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24648	24818	
==>)
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24927	25097	
==>)
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $m <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3937	4039	
==>mple, the <Pos1> and <End> keys working, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22847	22946	
==>er
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27399	27498	
==>er
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3145	3264	
==>an.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3145	3264	
==>an.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $sp <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24114	24253	
==>@canon\n";
        $canon = join ' ', @canon;
    } else {
        push @result, "FAILED test $last\n";
        $canon = $last;
    }

    p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4634	4732	
==>the given data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4634	4732	
==>the given data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2091	2204	
==>100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2091	2204	
==>100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2091	2204	
==>100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1].delete doesn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	239	334	
==>kTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	239	334	
==>kTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	239	334	
==>kTestPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*IN <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17376	17472	
==>vides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17376	17472	
==>vides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9183	9328	
==>ite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @list <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9183	9328	
==>ite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3150	3297	
==>'%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3878	3999	
==>'%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4103	4202	
==>welcome-p6=$welcome_p6
    --welcome-p6 is a Perl 6 program runnable by Pugs which will
    introduc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39837	39945	
==>SAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39837	39945	
==>SAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39837	39945	
==>SAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	218	316	
==>ess sub-types, default values,
# etc.
enum ExpType «Noop App Syn Cxt Pos Pad Sym Stmts Prim Val Va <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2296	2390	
==>$Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Fi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2296	2390	
==>$Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	354	503	
==>o native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	354	503	
==>o native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	354	503	
==>o native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5312	5526	
==>y;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5312	5526	
==>y;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5312	5526	
==>y;
                }
                return $ary;
            },
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3133	3243	
==>eftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3133	3243	
==>eftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3133	3243	
==>eftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$recurse->($$obj);
	} elsif ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23355	23448	
==>Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41279	41372	
==>Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37305	37398	
==>Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can redi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5188	5408	
==>ction interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5188	5408	
==>ction interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                re <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2680	2784	
==>l treatment to the Prelude,
# which is assumed to be the first module in the list.
sub gen_source {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8149	8267	
==>s definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8149	8267	
==>s definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8149	8267	
==>s definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	467	579	
==>= Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	467	579	
==>= Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	467	579	
==>= Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20094	20207	
==>sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20094	20207	
==>sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20094	20207	
==>sure it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9914	10037	
==>3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9914	10037	
==>3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9914	10037	
==>3 - elems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_siz <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1922	2037	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2357	2472	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2794	2909	
==>1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2031	2134	
==>anted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    su <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2031	2134	
==>anted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	419	594	
==>$status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	419	594	
==>$status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23411	23522	
==>sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" got <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3104	3456	
==>ingify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

= <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3104	3456	
==>ingify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

= <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	631	740	
==>by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Parts of the grammar, intended for a to <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4471	4561	
==><decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4471	4561	
==><decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	124	236	
==>l6::Core::Nil;

package reference;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

u <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2606	2716	
==>token{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32033	32131	
==>wn error, see L</"ERROR HANDLING">.

=back

=head2 Walking an Object

Most objects inherit their en <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7949	8157	
==>'$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = sh <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4741	4891	
==>hen rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4741	4891	
==>hen rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2590	2696	
==>l (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2590	2696	
==>l (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &ciph <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22880	22977	
==>LINE

 ROPT_ANCH 
 ROPT_ANCH_BOL 
 ROPT_ANCH_GPOS 
 ROPT_ANCH_MBOL 
 ROPT_ANCH_SBOL 
 ROPT_ANCH_SI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1638	1756	
==>b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1638	1756	
==>b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1638	1756	
==>b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Number(a) <= Number(b)" ],
    [ "inf <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9951	10065	
==>TP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9951	10065	
==>TP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4851	4947	
==>s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3611	3714	
==>a_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3611	3714	
==>a_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3611	3714	
==>a_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	663	772	
==>~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	663	772	
==>~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	663	772	
==>~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2100	2234	
==>g here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2305	2439	
==>g here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3674	3839	
==>'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3674	3839	
==>'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appea <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3674	3839	
==>'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14003	14147	
==>/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14003	14147	
==>/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14003	14147	
==>/fetch from array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38281	38377	
==>g), and a Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38281	38377	
==>g), and a Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8284	8404	
==>ch.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8284	8404	
==>ch.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	629	726	
==>unctions exported to the global `*` namespace, please use
the `is builtin` trait.

=cut


class Pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3202	3332	
==>eturn \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exis <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3202	3332	
==>eturn \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exis <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11492	11590	
==>item KeyExtractor

A closure with arity of 1, which returns the "key" by which to sort. If
the clos <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	290	398	
==>);

sub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
}

sub makemaker_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5420	5526	
==>:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5420	5526	
==>:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	940	1070	
==>ment.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	940	1070	
==>ment.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	940	1070	
==>ment.createTextNode(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	93	224	
==>tegory);

=for pod

Parses the text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, derefere <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19866	19998	
==>atementList>? <'}'>
}
rule StatementList :words {  # see 12.1
      <Statement>
    | <StatementList> <Statement>
}
rule VariableStat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2052	2163	
==>"    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2040	2151	
==>"    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4220	4312	
==>> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> "+?", !.
p56_quantified_op(W, ques(W))    --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	836	946	
==>anguage/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	836	946	
==>anguage/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	836	946	
==>anguage/22379
      if(!hash.exists(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2660	2767	
==>seudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2660	2767	
==>seudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1387	1494	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:digit:]/ )
  {
    $matchObj->position( $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11336	11470	
==>3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11336	11470	
==>3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11336	11470	
==>3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        function (n) {
          var arr = new PIL2J <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3976	4099	
==>] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam"
        dbg "# keys: ",%pad.keys;
        $ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	762	874	
==>$tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	773	885	
==>$tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3138	3258	
==>e::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3138	3258	
==>e::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3138	3258	
==>e::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13240	13349	
==>Name :words {  # see 11.1.5
      <Identifier>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpre <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10529	10621	
==>previous()`, `current()`, and `reset()` methods.

If the set is "continuous", this method emi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10529	10621	
==>previous()`, `current()`, and `reset()` methods.

If the set is "continuous", this method emi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4773	4914	
==>pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4773	4914	
==>pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4773	4914	
==>pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1140	1239	
==>EXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to mak <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1140	1239	
==>EXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to mak <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1140	1239	
==>EXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2333	2431	
==>umber(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divisio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2333	2431	
==>umber(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divisio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2333	2431	
==>umber(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Divisio <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9225	9340	
==>ule', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List') <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9283	9398	
==>ule', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List') <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2699	2811	
==>t "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ / <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1791	1888	
==>=~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1791	1888	
==>=~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5116	5252	
==>&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5116	5252	
==>&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5116	5252	
==>&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	230	333	
==>ray',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)= <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3146	3246	
==>hould be called at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3146	3246	
==>hould be called at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1113	1228	
==>et
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # T <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1113	1228	
==>et
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # T <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2170	2277	
==>( package => $self );
}

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8501	8628	
==>IL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8501	8628	
==>IL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8501	8628	
==>IL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3051	3204	
==>\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $sou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3268	3421	
==>\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $sou <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	140	272	
==>t() {
    my %Session=();
    $SID=GetCookie('sid'); $SID ~~ s:perl5:g/[^A-Z]//;
    if !(-e catfile($Path, $SID)) { $SID=''; }
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5837	5945	
==>ame} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declarat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5837	5945	
==>ame} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declarat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5837	5945	
==>ame} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declarat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	261	355	
==>".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	261	355	
==>".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	261	355	
==>".value only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2J <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22016	22125	
==>t touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16918	17026	
==>t touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23211	23315	
==>n);
package Perl6::Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13493	13620	
==>1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedTe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13493	13620	
==>1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedTe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6943	7037	
==>w+ }
token literal_int { \d+ }

rule simple_call { <identifier><ws><expr>; }
macro statement_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12438	12540	
==>(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12438	12540	
==>(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12438	12540	
==>(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($xx) { $xx->defined };
MACROP5   last (*@xx) {p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14383	14501	
==>6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14383	14501	
==>6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14383	14501	
==>6::Value::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1745	1893	
==>eturn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1745	1893	
==>eturn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3310	3414	
==>p {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3310	3414	
==>p {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3310	3414	
==>p {
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4803	4897	
==>LTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4803	4897	
==>LTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4803	4897	
==>LTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14448	14540	
==>Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14448	14540	
==>Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14448	14540	
==>Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1489	1599	
==>ODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1489	1599	
==>ODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1489	1599	
==>ODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37828	37926	
==>).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $mod <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37828	37926	
==>).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3420	3524	
==>ass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3420	3524	
==>ass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3420	3524	
==>ass name in sync
$::Class->add_method('name' => ::make_method(sub {
    my ($self, $name) = @_;
    if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11398	11518	
==>$s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11398	11518	
==>$s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11398	11518	
==>$s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each %$this;
    return unless defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3444	3552	
==>andles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3444	3552	
==>andles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3444	3552	
==>andles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defined s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3748	3848	
==>C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::P <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3748	3848	
==>C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5945	6045	
==>C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder::Test::P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9511	9605	
==>essor methods.
Rosetta::Model does not declare any subroutines or export such.

The usual way t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9511	9605	
==>essor methods.
Rosetta::Model does not declare any subroutines or export such.

The usual way t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	519	610	
==>ed';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many branches <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40940	41047	
==>items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40940	41047	
==>items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40940	41047	
==>items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4007	4154	
==>gex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8720	8836	
==>xt_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_cal <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8720	8836	
==>xt_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_cal <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7186	7316	
==>return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /... <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7186	7316	
==>return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /... <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16901	17002	
==>ng = CALLER::<$_> --> Str )

Like C<lc>, but only affects the first character.


=item uc

 multi Str: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	693	807	
==>my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	693	807	
==>my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	711	825	
==>my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var},
               name <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7881	7978	
==>hors should assume that if this method is being called, the Secret 
Police are breaking down the d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7881	7978	
==>hors should assume that if this method is being called, the Secret 
Police are breaking down the d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	250	394	
==>attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	250	394	
==>attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	250	394	
==>attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects
        methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1456	1555	
==>on perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1456	1555	
==>on perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1456	1555	
==>on perl_get_method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	961	1079	
==>+ name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	961	1079	
==>+ name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	961	1079	
==>+ name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21240	21337	
==>a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25792	25889	
==>a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24416	24513	
==>a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name and each Mapp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4585	4688	
==>->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4585	4688	
==>->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4585	4688	
==>->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6370	6508	
==>rom = map { my $target = $_; $target =~ s/^$base//;
                      $_ => File::Spec->catfile( $to, $target ) 
                } File <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1792	1908	
==>XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => - <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1792	1908	
==>XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	348	453	
==>ntext.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	348	453	
==>ntext.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	348	453	
==>ntext.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1030	1139	
==>p::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate longest m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	504	612	
==>ments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n|$] <pod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	989	1096	
==>p::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5564	5727	
==>invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5564	5727	
==>invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5564	5727	
==>invocant
            push @params => $1;
        }
        else {
            push @params => $token;
        }        
    }
    warn "method type: $method_type => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10329	10462	
==>, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10329	10462	
==>, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10329	10462	
==>, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary->splice( $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4571	4673	
==>iles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available opti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4571	4673	
==>iles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available opti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4571	4673	
==>iles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [options] -- input_files

Available opti <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9143	9248	
==>mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9143	9248	
==>mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	372	468	
==>m pool

Path to the pool directory of the repository. $root/jibs if not specified.

=item pool_re <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1313	1409	
==>@devs_till_day, $devs_till_day[-1] while
  @devs_till_day < @commits_till_day;

# Create the grap <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1310	1504	
==>e {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            retu <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1310	1504	
==>e {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            retu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4760	4863	
==>perator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5567	5661	
==>ess_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_ag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5567	5661	
==>ess_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_ag <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	666	774	
==>=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5::X1::CodeCom <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3164	3265	
==>:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3164	3265	
==>:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2524	2618	
==>[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringificat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2524	2618	
==>[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringificat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2524	2618	
==>[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringificat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5409	5498	
==>n_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5409	5498	
==>n_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5409	5498	
==>n_3a_3a_3fPOSITION = new PIL2JS.Box('<unknown>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	940	1056	
==>e the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	940	1056	
==>e the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	940	1056	
==>e the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3678	3797	
==>i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3678	3797	
==>i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3678	3797	
==>i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2625	2743	
==>@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2625	2743	
==>@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2972	3090	
==>@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5801	5903	
==>ARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5801	5903	
==>ARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5801	5903	
==>ARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	648	759	
==>attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	648	759	
==>attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	648	759	
==>attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1120	1238	
==>X c/p'd this from JIB::Package -- subclass/inherit!
my $Package_re = qr/^(\w+)     - # prefix
                    ([\w- <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	462	554	
==>> property, and adds nothing else.

More specialised processing instructions may sub-class th <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	462	554	
==>> property, and adds nothing else.

More specialised processing instructions may sub-class th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10254	10379	
==>adings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13731	13856	
==>adings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13012	13137	
==>adings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, the standard case of a se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2923	3120	
==>$z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @res <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2572	2671	
==>= Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2572	2671	
==>= Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1349	1460	
==>d load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1349	1460	
==>d load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21645	21744	
==>'><no_LineTerminator_here><Identifier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      <'bre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2881	2981	
==>nings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2881	2981	
==>nings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2881	2981	
==>nings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invocant { $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2073	2207	
==>=> 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        assoc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31884	31976	
==>generic binary relational operator that takes a single
Relation in its C<$other> argument, wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36434	36526	
==>generic binary relational operator that takes a single
Relation in its C<$other> argument, wh <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1596	1689	
==>DOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nm <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1436	1529	
==>DOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nm <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1157	1260	
==>s/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored p <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1157	1260	
==>s/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15085	15209	
==>xa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15085	15209	
==>xa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15085	15209	
==>xa) {
    my($j6,@b6)=@xxa;
    my $j = p6_to_s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8986	9082	
==>vious_comp_hook != NULL) { croak("Cant install twice"); }
  previous_comp_hook = PL_regcompp;
  P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3838	3933	
==>tr $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an except <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4022	4117	
==>tr $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an except <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8488	8616	
==>:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3960	4052	
==>.. $Class got the right method return value');
is($Class->superclass, $Object, '... $Class is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5862	5954	
==>.. $Class got the right method return value');
is($Class->superclass, $Object, '... $Class is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	32	150	
==>s;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	32	150	
==>s;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	32	150	
==>s;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5689	5791	
==>en;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5689	5791	
==>en;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $. <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4225	4335	
==>ation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @to <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4225	4335	
==>ation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @to <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3923	4028	
==>s JSX::InternalValue::Reference {
    has $.base_object;
    has $.property_name;
    method GetBase ($O:) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6455	6568	
==>es
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6455	6568	
==>es
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $sp <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	492	591	
==>lass, it is bound to that
Class' C<Type> object immediately; however, in the case of a Role, it
is n <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7282	7376	
==>start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<en <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7282	7376	
==>start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	93	203	
==>]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	93	203	
==>]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	93	203	
==>]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	980	1152	
==>old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STOR <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	980	1152	
==>old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STOR <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30915	31010	
==>mple
which has a superset of the original's attributes; the new Relation::Example has as
many ad <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4735	4861	
==>shift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self->get_value('@:slots <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	266	370	
==>se Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were include <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	277	381	
==>se Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were include <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1838	1940	
==>6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1838	1940	
==>6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1838	1940	
==>6_new('Bit',$b ? 1 : 0)}
sub p6_from_n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29615	29731	
==>f = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29615	29731	
==>f = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29615	29731	
==>f = shift;
    my $sum = 0;
    for ( @{$self->{items}} ) {
        if ( UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5812	5910	
==>@a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5812	5910	
==>@a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5812	5910	
==>@a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Array @a is copy, Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3945	4066	
==>YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3945	4066	
==>YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3945	4066	
==>YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10166	10298	
==>(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrappe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10166	10298	
==>(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrappe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10166	10298	
==>(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrappe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10189	10306	
==>}

    return $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	472	570	
==>authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi sub <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	472	570	
==>authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi sub <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17165	17262	
==>JD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything w <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22265	22362	
==>JD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19116	19211	
==>he nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19116	19211	
==>he nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35435	35547	
==>product when joined.  This method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39985	40097	
==>product when joined.  This method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39545	39657	
==>product when joined.  This method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18028	18266	
==>t_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18028	18266	
==>t_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18028	18266	
==>t_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoace stash
                        ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7212	7371	
==>->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7212	7371	
==>->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7212	7371	
==>->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17052	17147	
==>uch that would not be possible if its
functionality was subsumed into a larger package that woul <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17052	17147	
==>uch that would not be possible if its
functionality was subsumed into a larger package that woul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2999	3142	
==>t
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3183	3326	
==>t
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4571	4681	
==>s_precendence_list');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12066	12159	
==>ed_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on che <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12124	12217	
==>ed_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on che <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2108	2220	
==>);
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2108	2220	
==>);
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2108	2220	
==>);
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inlin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9115	9243	
==>er() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1249	1365	
==>er() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1249	1365	
==>er() );
}

method ok returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13051	13262	
==>lue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13051	13262	
==>lue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13051	13262	
==>lue;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2605	2703	
==>pile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2605	2703	
==>pile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2605	2703	
==>pile_only;
$run ||= 'js';
$run = "js_on_$run" if $run ne 'js';
my $go = main->can("run_$run") or di <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3590	3707	
==>ll u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, die <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3590	3707	
==>ll u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, die <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14414	14504	
==>Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14414	14504	
==>Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14414	14504	
==>Class.meta.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2470	2572	
==>IL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2470	2572	
==>IL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2470	2572	
==>IL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	279	396	
==>::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	485	602	
==>::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6043	6204	
==>0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6043	6204	
==>0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2088	2188	
==>ession on\n" } and
    return $compress = sub { Compress::Bzip2::memBzip(shift) };
  eval { require C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12405	12500	
==>ANDLING

=head2 Determining Error

Use the errmsg() and errnum() methods to get the error inform <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10217	10309	
==>l-formedness of the input, such as that mandatory
constructor arguments are provided and that <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10217	10309	
==>l-formedness of the input, such as that mandatory
constructor arguments are provided and that <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27038	27148	
==>xp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19246	19349	
==>ing with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PR <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19246	19349	
==>ing with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19254	19354	
==>ssentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23806	23906	
==>ssentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22322	22422	
==>ssentially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, whe <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2800	2898	
==>a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashi <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2800	2898	
==>a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	780	886	
==>er::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	780	886	
==>er::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4685	4800	
==>mp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4685	4800	
==>mp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $sp <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	452	555	
==>method BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method b <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	452	555	
==>method BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method b <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24133	24236	
==>"pretty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	112	211	
==>ract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	112	211	
==>ract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2815	2919	
==>s used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2815	2919	
==>s used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23634	23736	
==>ements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement> <FunctionDecla <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25636	25737	
==>d tests, %.2f%% okay. %s>

If not all tests were successful, the script dies with one of the
above mes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17636	17731	
==>ta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepar <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17636	17731	
==>ta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	673	838	
==>w err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	673	838	
==>w err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	673	838	
==>w err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	944	1038	
==>e Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	944	1038	
==>e Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	944	1038	
==>e Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Context;
use Prelude::JS::Math;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4065	4198	
==>pl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:super <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1021	1118	
==>, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
agai <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1021	1118	
==>, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
agai <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29399	29519	
==>PP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29399	29519	
==>PP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	223	331	
==>PP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9237	9356	
==>dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9237	9356	
==>dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9237	9356	
==>dir -CPIL1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8459	8587	
==>ays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8459	8587	
==>ays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8459	8587	
==>ays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    my %param = @_;
    my $item =  $param{item};
    my $count = $para <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16153	16246	
==>e it internally, while another one displays it to the
user instead.

Locale::KeyedText provide <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16153	16246	
==>e it internally, while another one displays it to the
user instead.

Locale::KeyedText provide <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9803	9974	
==>f %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9803	9974	
==>f %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2706	2808	
==>O - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2706	2808	
==>O - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2706	2808	
==>O - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	175	288	
==>$name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	175	288	
==>$name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	175	288	
==>$name eq "&return") {
    PIL::fail("Can't return outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTIN <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1222	1353	
==>PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLV <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4372	4501	
==>PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4372	4501	
==>PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLV <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1297	1418	
==>subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->ma <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	635	755	
==>subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1656	1765	
==>\( <rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{rule}() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4338	4434	
==>*@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4338	4434	
==>*@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4338	4434	
==>*@parts) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	868	1000	
==>ture
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	868	1000	
==>ture
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	868	1000	
==>ture
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    s <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	514	631	
==>->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
    my ($self, $cmd) = @_;
    # XXX: w <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2922	3036	
==>eta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3386	3500	
==>eta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3616	3714	
==>->get_x, 100, '... still got the right x for p2');
is($p2->get_y, 200, '... still got the right y f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27295	27390	
==>hich has a superset of the original's attributes; the new Relation has as
many additional attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31847	31942	
==>hich has a superset of the original's attributes; the new Relation has as
many additional attrib <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19556	19707	
==>ou get at the moment
                push @bad_heading, "link in $source to $target does not have a heading\n";
              }
            
          } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1403	1521	
==>" " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1403	1521	
==>" " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2170	2268	
==>erce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|stat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2170	2268	
==>erce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|stat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2170	2268	
==>erce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2389	2516	
==>s
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2389	2516	
==>s
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1.. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2389	2516	
==>s
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[1..20000000]
#        (@a[1.. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	26	129	
==>e::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	26	129	
==>e::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Du <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	153	557	
==>724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::E <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	153	557	
==>724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::E <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1423	1568	
==>y of Str @strings;

        method subsume ( Getopt::Argument $arg ) { 
            $.append( $self.accept( $arg ) );
        }
        
        m <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2051	2187	
==>ir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if ex <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2029	2165	
==>ir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if ex <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1617	1729	
==>rn @matches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is export{
    my @args = split ',', $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3127	3219	
==>ptions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3127	3219	
==>ptions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3127	3219	
==>ptions

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs=/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10239	10384	
==>warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10239	10384	
==>warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10239	10384	
==>warn "from_coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	899	1013	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	899	1013	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	899	1013	
==>,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	266	361	
==>ue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	266	361	
==>ue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	266	361	
==>ue only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	52	162	
==>ne will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	52	162	
==>ne will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	52	162	
==>ne will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3656	3763	
==>ername, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ use <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3656	3763	
==>ername, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	561	662	
==>struct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the dependenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	290	415	
==>t;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	290	415	
==>t;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	290	415	
==>t;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$self->{_stack}};
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11104	11346	
==>---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11104	11346	
==>---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11104	11346	
==>---- new @_ ---- ";
                            my $cell = Perl6::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	331	433	
==>e is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * Laz <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	331	433	
==>e is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * Laz <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1103	1192	
==>NESS_PERL}  = "./pugs $optional_args";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12690	12834	
==>y $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12690	12834	
==>y $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12690	12834	
==>y $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @x, $ret->pop for 1 .. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16538	16683	
==>gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20015	20160	
==>gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19575	19720	
==>gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.p <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1156	1252	
==>errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	336	429	
==>-level modular addition ciphers, including 
rot13, the Caesar cipher (add or subtract values f <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	336	429	
==>-level modular addition ciphers, including 
rot13, the Caesar cipher (add or subtract values f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12537	12640	
==>f->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6012	6115	
==>f->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9256	9356	
==>------------------------------------------

This is a rough sketch of that role(Role) might look like <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9256	9356	
==>------------------------------------------

This is a rough sketch of that role(Role) might look like <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9256	9356	
==>------------------------------------------

This is a rough sketch of that role(Role) might look like <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16638	16852	
==>do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1005	1109	
==>rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1005	1109	
==>rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
) <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1576	1672	
==>in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tag <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1576	1672	
==>in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tag <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30018	30111	
==>heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternative fo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34570	34663	
==>heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternative fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3187	3306	
==>rent_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3187	3306	
==>rent_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3187	3306	
==>rent_class->superclasses}) {
            $current_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8073	8188	
==>nterface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8073	8188	
==>nterface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8073	8188	
==>nterface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1501	1593	
==>::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1501	1593	
==>::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1501	1593	
==>::Internals::generic_deref($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36169	36280	
==>return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample execution:

  use R <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21334	21422	
==>N", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21334	21422	
==>N", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event { <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1700	1822	
==>ize a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $self->_init;

    return $s <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	122	272	
==>ent {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-wh <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	122	272	
==>ent {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-wh <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13752	13851	
==>in->("numeric") },
      non_numeric => sub { $as_array_complain->("non_numeric") },
      scalar_nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13146	13339	
==>ef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13146	13339	
==>ef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13146	13339	
==>ef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )->delete( 
                    Perl6::Va <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3927	4018	
==>ec->catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_base/ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3208	3391	
==>ite] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my_bindir <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1944	2075	
==>) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef" <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1944	2075	
==>) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5590	5688	
==>_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5590	5688	
==>_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_op <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6274	6386	
==>$pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6274	6386	
==>$pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3235	3343	
==>ow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free vars inside a thingy

package type:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9247	9392	
==>ifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $it <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9247	9392	
==>ifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $it <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9247	9392	
==>ifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3184	3289	
==>l2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3184	3289	
==>l2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3184	3289	
==>l2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2330	2525	
==>F.export_attr_names();
}

###########################################################################

method all_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $at <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21196	21288	
==><gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21196	21288	
==><gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4301	4433	
==>ift(@_);
}

sub push : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add sy <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4848	4945	
==><to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1068	1165	
==><to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6867	7007	
==>ndler('$' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'meol' :
      &Rf & $S->FLAG_s ? 'seol' :
      'eol';
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14020	14126	
==>has a matching template available.
        print $translator.translate_message(
            Locale::KeyedTe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14020	14126	
==>has a matching template available.
        print $translator.translate_message(
            Locale::KeyedTe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2739	2860	
==>ay.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2739	2860	
==>ay.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2739	2860	
==>ay.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } el <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4824	4924	
==>heading);

# Loading test results from yml file
my $tests = LoadFile("tests.yml");

# Reading and pro <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	191	288	
==>IS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L< <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	191	288	
==>IS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L< <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19792	19897	
==>,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C), <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6007	6100	
==>return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10264	10357	
==>return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8622	8749	
==>nt && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8622	8749	
==>nt && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8622	8749	
==>nt && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing)
        } els <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12099	12245	
==>turn 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12093	12239	
==>turn 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in <==
3	/Users/nnunley/pugs/util/package-osx.pl	2594	2697	
==>LICENSE
        /usr/local/usr/bin/p6doc /usr/local/bin/p6doc
        /usr/local/usr/bin/pugs /usr/local <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1099	1216	
==>opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1099	1216	
==>opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1099	1216	
==>opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3029	3142	
==>air(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3029	3142	
==>air(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3029	3142	
==>air(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9545	9673	
==>(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9545	9673	
==>(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9545	9673	
==>(length($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1048	1167	
==>output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitea <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1048	1167	
==>output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitea <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	837	941	
==>.bat: $!";
print $F <<'EOT';
@rem = @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto Win <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	353	461	
==>pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	353	461	
==>pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	353	461	
==>pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8149	8345	
==>mp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8149	8345	
==>mp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8149	8345	
==>mp );   # unboxed
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7377	7475	
==>_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7377	7475	
==>_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7377	7475	
==>_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1664	1775	
==>prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1664	1775	
==>prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1664	1775	
==>prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->readline($prompt))) {
  next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17548	17642	
==>p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17548	17642	
==>p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17548	17642	
==>p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => p6_to_n($xx1) ) ) 
};
MULTI SUB i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37410	37511	
==>is multi-method is the N-ary version of the aforementioned binary join()
operator, and the order of it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41959	42060	
==>is multi-method is the N-ary version of the aforementioned binary join()
operator, and the order of it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41600	41701	
==>is multi-method is the N-ary version of the aforementioned binary join()
operator, and the order of it <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14498	14595	
==>ork in progress. As Pugs grows, so will it's
testing needs. This module will be the code support f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14556	14653	
==>ork in progress. As Pugs grows, so will it's
testing needs. This module will be the code support f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1729	1841	
==>ent.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scroll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1729	1841	
==>ent.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scroll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1729	1841	
==>ent.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.body.scroll <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7784	7886	
==>NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7784	7886	
==>NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7784	7886	
==>NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3933	4052	
==>d_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3933	4052	
==>d_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3933	4052	
==>d_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($me <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	302	416	
==>make {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Config;
    retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	253	353	
==>make {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Config;
	retu <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20509	20608	
==>pcode plus a "next" pointer,
possibly plus an operand.

We don't care.


=head2 Internals:

  regnod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1012	1132	
==>{ shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1217	1337	
==>{ shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1278	1398	
==>{ shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto & <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5461	5586	
==>ed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5461	5586	
==>ed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5461	5586	
==>ed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, from, to, s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3614	3765	
==>defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3614	3765	
==>defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1810	1944	
==>sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10956	11075	
==>s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10956	11075	
==>s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10956	11075	
==>s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, $value ];
    return $value;
}
sub fetch {
    my ( $this, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6748	6912	
==>t;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6748	6912	
==>t;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6748	6912	
==>t;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $sta <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18591	18722	
==>ersion,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	340	456	
==>t

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submetho <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	340	456	
==>t

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submetho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8743	8932	
==>d eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8743	8932	
==>d eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8743	8932	
==>d eq 'decrement' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1216	1315	
==>moved method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1216	1315	
==>moved method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1216	1315	
==>moved method concat_list(), added "TODO" methods

# TODO - finish sum() - not all operations support <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11587	11701	
==>ection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11587	11701	
==>ection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27338	27425	
==>REINT_ONCE_NOML|REINT_ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	195	300	
==>uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringificati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	195	300	
==>uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringificati <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	195	300	
==>uses Code->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringificati <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	853	1016	
==>ry {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$clas <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	853	1016	
==>ry {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$clas <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1846	1956	
==>= 1;
		my $str = Data::Dumper::Dumper($node);
		chomp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10429	10582	
==>tatement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10708	10861	
==>tatement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10457	10596	
==>switches {
    my $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $sw <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	207	445	
==>." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	208	446	
==>." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3470	3622	
==>0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$.output')->write("Bail out!  $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5985	6108	
==>ue, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5973	6096	
==>ue, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_pe <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	69	172	
==>f S29.  I think most of these
# actually belong on "Map"

 multi sub grep (Any|Junction $test ; *@values <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5936	6041	
==>riginal array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5936	6041	
==>riginal array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5936	6041	
==>riginal array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($self->{arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1879	2026	
==>= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1879	2026	
==>= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1879	2026	
==>= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	530	639	
==>bstr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_implemented {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12800	12896	
==>ich can be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
F <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12800	12896	
==>ich can be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1211	1313	
==>S_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1211	1313	
==>S_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1211	1313	
==>S_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/) {
    return bless {
      pVarName => '%PIL2JS::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11478	11639	
==>"got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11478	11639	
==>"got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11478	11639	
==>"got an undef class here ... ($self)" 
        return unless defined $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7364	7513	
==>rams,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7364	7513	
==>rams,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7364	7513	
==>rams,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name,$argl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8966	9083	
==>e tree with the root() method:

  my $root = $parser->root;

It will be an array reference of objects.

=head2 Getting <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6386	6477	
==>ction of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formattin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6386	6477	
==>ction of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formattin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	678	800	
==>$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	678	800	
==>$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	678	800	
==>$tests\n";
    print "ok $_ -  # skip PIL2JS exhausts too much swap on this test\n"
      for 1..$tests;
    exit;
  }

  l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	92	189	
==>*************
# This version of lrep only compiles Grammar sections
# The full version is on misc/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	760	856	
==>program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	966	1062	
==>program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4020	4195	
==>5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to clean <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4020	4195	
==>5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to clean <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	50	147	
==>RSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!// <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	50	147	
==>RSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	723	815	
==>----------------------------------------------------------------------------
## Object

# The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	723	815	
==>----------------------------------------------------------------------------
## Object

# The <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	723	815	
==>----------------------------------------------------------------------------
## Object

# The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17650	17835	
==>er::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'rever <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17650	17835	
==>er::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'rever <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17650	17835	
==>er::Array' ) ? $_->items : 
                        $_ 
                    } @param;
                
                if ( $method eq 'clone' || $method eq 'splice' || $method eq 'rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2649	2773	
==>alue::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2649	2773	
==>alue::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2649	2773	
==>alue::stringify( $_ ) } @end );
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9678	9800	
==>)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9678	9800	
==>)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9678	9800	
==>)};
sub help_require_use { # XXX - getting crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2651	2737	
==>l2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2651	2737	
==>l2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2651	2737	
==>l2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg{test <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3837	4066	
==>nd++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3837	4066	
==>nd++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14064	14168	
==>steps:

  Get per-package hooks working.

Notes:

  http://perl.plover.com/Rx/paper/

  Some files of int <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8532	8652	
==>O;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8532	8652	
==>O;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8532	8652	
==>O;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() == undefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1657	1764	
==>rl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1657	1764	
==>rl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1657	1764	
==>rl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4184	4281	
==>expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

C <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4184	4281	
==>expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4264	4361	
==>expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description? )>

C <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8151	8284	
==>tinue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8151	8284	
==>tinue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14743	14932	
==>rn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14743	14932	
==>rn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14743	14932	
==>rn $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = shift;
                die "Argument to map <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14025	14150	
==>f;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14025	14150	
==>f;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14025	14150	
==>f;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	392	486	
==>L2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	392	486	
==>L2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	392	486	
==>L2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toN <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25938	26032	
==>es duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30490	30584	
==>es duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29465	29559	
==>es duplicate each other,
or duplicate attribute names that aren't being renamed.  This method
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	678	790	
==>ll_constant {
    my $const = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4235	4329	
==>rray reference, the match object returns positional
captures as match objects.

=head2 %{}

Whe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4235	4329	
==>rray reference, the match object returns positional
captures as match objects.

=head2 %{}

Whe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8443	8548	
==>$_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] ruleop::capture( 'capturing <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6282	6379	
==>xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6282	6379	
==>xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5111	5229	
==>d', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Par <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5111	5229	
==>d', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Par <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2015	2133	
==>d', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Par <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4838	4954	
==>tion_type { # XXX - should be enum
   has $.normal;
   has $.break;
   has $.continue;
   has $.return;
   has $.thro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3341	3450	
==>name} { \n$s}\n";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\'!g; $s }

sub emit_grammar_perl5 {
    # ite <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1742	1842	
==>a::Dumper::Pad = "    " x ($indent -1);
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3413	3535	
==>ype->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3413	3535	
==>ype->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3413	3535	
==>ype->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2991	3205	
==>erbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<ver <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2991	3205	
==>erbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<ver <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	293	383	
==>rm:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\\B", "term:", "nows", "PGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1836	1969	
==>r\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1836	1969	
==>r\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1836	1969	
==>r\" body!" if $arity == 0;
  $arity ||= 1;

  my $idx = 0;
  while $idx < +@array {
    my @args = ();
    my $i; loop ($i = 0; $i < $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12607	12727	
==>()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12607	12727	
==>()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12607	12727	
==>()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1516	1645	
==>print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1516	1645	
==>print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4311	4416	
==>>add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4311	4416	
==>>add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4311	4416	
==>>add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	624	726	
==>:Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACRO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	624	726	
==>:Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACRO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	624	726	
==>:Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1984	2091	
==>$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1984	2091	
==>$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1984	2091	
==>$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3167	3297	
==>::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3167	3297	
==>::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3167	3297	
==>::Class.meta.add_method('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1324	1481	
==>led',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1324	1481	
==>led',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency' <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15001	15103	
==>self->{params} };
}

package Compiler;
use base qw/Reducer Map DynamicScopes/;

sub compile {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1028	1145	
==>ssdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1028	1145	
==>ssdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1028	1145	
==>ssdef[name]);
        }
        // Finally, call the real _exportList.
        old_exportList.call(JSAN, classdef, exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18028	18128	
==>rn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18028	18128	
==>rn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18028	18128	
==>rn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($resu <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1981	2081	
==>ler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1981	2081	
==>ler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8737	8837	
==>A\"/;
    "bless([$s] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepArray2::unparse {
    my $n = $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7170	7259	
==>eneral it is a bad idea

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7170	7259	
==>eneral it is a bad idea

## -------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2898	3020	
==>"Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2898	3020	
==>"Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2898	3020	
==>"Couldn't write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	945	1086	
==>er($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	945	1086	
==>er($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	945	1086	
==>er($attr_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my OpaqueInstance $se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10386	10498	
==>ined $test{skip_all} and length $test{skip_all}) {
                print "skipped\n        all skipped: $test{ski <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9074	9170	
==>.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9074	9170	
==>.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20272	20382	
==>string cname
    .local int cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = sel <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	361	467	
==>h that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	361	467	
==>h that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERT <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14562	14662	
==>_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numeric
    $I0 = find_not_cclass <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13151	13244	
==>yedText" package serves only as the name-sake
representative for this whole file, which can be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13151	13244	
==>yedText" package serves only as the name-sake
representative for this whole file, which can be <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2498	2596	
==>s all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2498	2596	
==>s all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34806	34916	
==>);
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34806	34916	
==>);
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34806	34916	
==>);
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'insert: ', $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5025	5186	
==>alar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5025	5186	
==>alar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5025	5186	
==>alar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $value = $value->cell->{v};
                    #warn "val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10004	10164	
==>mes6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10004	10164	
==>mes6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10004	10164	
==>mes6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5821	5934	
==>map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5821	5934	
==>map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5821	5934	
==>map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1	101	
==>!/usr/bin/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1	101	
==>!/usr/bin/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1	101	
==>!/usr/bin/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4932	5033	
==>, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4932	5033	
==>, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4932	5033	
==>, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4130	4231	
==>if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4130	4231	
==>if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4130	4231	
==>if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS::run_pil2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7335	7508	
==>Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7335	7508	
==>Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7335	7508	
==>Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4554	4699	
==>$token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_m <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4554	4699	
==>$token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_m <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	402	532	
==>r) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is builtin is primitive {
    if chars($str) == 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2530	2649	
==>nstance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2530	2649	
==>nstance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2530	2649	
==>nstance_id($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3720	3809	
==>onal//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http:/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3720	3809	
==>onal//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http:/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3720	3809	
==>onal//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http:/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9427	9542	
==>a, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9427	9542	
==>a, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9427	9542	
==>a, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexical variables?
  } els <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	966	1063	
==>ad1 DESCRIPTION

Useful as a first pass in the code emission process, in order to compile all
reus <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6311	6405	
==>("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handl <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6311	6405	
==>("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1418	1606	
==>r {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to charact <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1418	1606	
==>r {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to charact <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4799	4930	
==>_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1407	1515	
==>rams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1407	1515	
==>rams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1407	1515	
==>rams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $self->{pFun}->{pLV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7680	7826	
==>@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7680	7826	
==>@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7680	7826	
==>@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array' ) ? $_->items : $_ } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16410	16538	
==>ce) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16410	16538	
==>ce) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32090	32194	
==>her_iterator(@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3556	3647	
==>ocument describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3556	3647	
==>ocument describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1480	1575	
==>, "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1480	1575	
==>, "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1480	1575	
==>, "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1031	1158	
==>pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1031	1158	
==>pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_po <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1237	1339	
==>e with a full line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	643	745	
==>@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	643	745	
==>@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	643	745	
==>@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24605	24744	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24884	25023	
==>{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11780	11964	
==>> defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role La <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11780	11964	
==>> defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role La <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11780	11964	
==>> defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role La <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7428	7551	
==>warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7428	7551	
==>warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $s <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1817	1913	
==>tered difference is provided
as a curried default.

All of the optional parameters should be supp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3944	4105	
==>my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3944	4105	
==>my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3944	4105	
==>my $val (values %$slot) {        # ... and a hash.
                $recurse->($val);
            }
        }
	}
	return $obj;
}


=pod

=head2 Methods

Class::Reb <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12410	12542	
==>ommand);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self.shift() }
    
    me <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12704	12798	
==>turns the start element in the recurrence.

Returns negative infinite if the recurrence is infi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12704	12798	
==>turns the start element in the recurrence.

Returns negative infinite if the recurrence is infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2131	2223	
==>ngth })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2131	2223	
==>ngth })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2131	2223	
==>ngth })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5703	5852	
==>{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5703	5852	
==>{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5703	5852	
==>{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38187	38330	
==>$pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38187	38330	
==>$pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38187	38330	
==>$pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	445	545	
==>L::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	445	545	
==>L::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	445	545	
==>L::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2210	2312	
==>n p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capab <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2129	2228	
==>n p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capab <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	403	498	
==>companion => "class" });
Has($?CLASS, "superclasses", "Set", { companion => "subclasses" });
Has <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	23	125	
==>:Install::Deprecated;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5452	5562	
==>wn>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5452	5562	
==>wn>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5452	5562	
==>wn>'); pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(und <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2373	2484	
==>els, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2373	2484	
==>els, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names w <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6108	6210	
==>mar.StringNumericLiteral>$/;
    $s ~~ s:g/<TheGrammar.StrWhiteSpaceChar>+//;
    $s ~~ s/^([\+|\-]?)0+ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4926	5031	
==>@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4926	5031	
==>@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2293	2397	
==>>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method < <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1755	1855	
==>method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1755	1855	
==>method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13763	13854	
==>un::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PSt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13763	13854	
==>un::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PSt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13763	13854	
==>un::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2422	2538	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2422	2538	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2422	2538	
==>my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    cla <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11651	11785	
==>s::runInteractiveCommand($command);
        close $err;
        close  ($r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # B <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	198	294	
==>>compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	198	294	
==>>compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	71	166	
==>Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	71	166	
==>Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	71	166	
==>Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7820	7931	
==>rn $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7557	7661	
==>rn $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	493	596	
==>annotations are not fmappable, flatten first";
	}

	sub values {
		my $self = shift;
		croak "annotation <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	0	98	
==>use v6;

class FA::DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$nod <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	0	98	
==>use v6;

class FA::DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6314	6442	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6314	6442	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        D <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6314	6442	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        D <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	228	360	
==>ELF;
}

method addMethod(Method--Perl6 $meth) {
    ...
}

method apply() {
    ...
}


=head1 NAME

Role - Entities in a program's m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15284	15391	
==>ueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15284	15391	
==>ueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1939	2041	
==>= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1939	2041	
==>= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1939	2041	
==>= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38262	38362	
==>.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42811	42911	
==>.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42461	42561	
==>.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=item C< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3368	3469	
==>(<<'RULE')->code();

    $<op> := (push|unshift) <p6ws> <variable> <p6ws>? \, <p6ws>?
    $<code> := ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2106	2201	
==>-----------
## some metamodel tools

=pod

sub *WALKMETH (block &dispatcher, symbol $label, hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20375	20467	
==>in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec1 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20375	20467	
==>in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24197	24302	
==>my $self = shift;
    join "", $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub vis <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	639	738	
==>l an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	639	738	
==>l an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	239	354	
==>before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_firs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	239	354	
==>before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_firs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	239	354	
==>before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_firs <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3519	3617	
==>n top of the object-oriented backend.

To use the Cipher API, you must first create an object of th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3519	3617	
==>n top of the object-oriented backend.

To use the Cipher API, you must first create an object of th <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	130	229	
==>> "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4887	5020	
==>ite_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4887	5020	
==>ite_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4887	5020	
==>ite_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n";

  $|++;
  while(defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8902	9058	
==>{ 
            bool => 1, match => '', 
            #tail => $_[0] 
        } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12801	12915	
==>{ bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12801	12915	
==>{ bool => 1, match => '', tail => $_[0] } };
    }
    # subrule
    warn "uncompiled subrule: $h - not implemented <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	350	477	
==>__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	350	477	
==>__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	350	477	
==>__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribute in $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18481	18600	
==>t->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do_while(
                    block->new($e, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40016	40111	
==>should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40016	40111	
==>should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the fi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3625	3736	
==>undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq 0);
	return 'int' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12865	12961	
==>t -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12865	12961	
==>t -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	276	364	
==>r::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Ob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	276	364	
==>r::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Ob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	276	364	
==>r::Array;
require Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8314	8400	
==>==============================================================

use FindBin;
use File:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8314	8400	
==>==============================================================

use FindBin;
use File:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8314	8400	
==>==============================================================

use FindBin;
use File:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2702	2946	
==>Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2702	2946	
==>Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2646	2748	
==>utput .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, style = solid, color = oran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8831	8968	
==>> 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8831	8968	
==>> 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8831	8968	
==>> 127
      ? sprintf "\\u%04x", ord $1
      : sprintf "\\x%02x", ord $1;
  /eg;
  return "\"$str\"";
}

# Mangles a subroutine or variab <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1127	1268	
==>r eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '} <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1127	1268	
==>r eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '} <==
3	/Users/nnunley/pugs/util/package-osx.pl	11879	11969	
==>st, %change_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make_symlinks( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1261	1359	
==>}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1261	1359	
==>}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13906	14001	
==>(?%.*s...) not recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatche <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	680	804	
==>e {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	680	804	
==>e {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PI <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18709	18802	
==>Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max(Re,N1,Fx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1220	1322	
==>kup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1220	1322	
==>kup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1220	1322	
==>kup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1522	1652	
==>al 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $_[2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	479	572	
==>able whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DE <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	479	572	
==>able whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9593	9688	
==>pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub hel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9593	9688	
==>pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub hel <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9593	9688	
==>pugs ($xx) {help_require_use($xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub hel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7680	7783	
==>::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::B <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7680	7783	
==>::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::B <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7680	7783	
==>::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23155	23250	
==>ry tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Boo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27707	27802	
==>ry tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	780	906	
==>pped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	780	906	
==>pped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	780	906	
==>pped->{pLit}{pVal})->isa("PIL::VStr")
    ) {
      $key = $lhs->[0];
    } else {
      $key = $self->{pArgs}[0]->fixup;
    } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18947	19062	
==>1 struct regexp

  typedef struct regexp {

=head2 The regular expression:

  I32 prelen;             /* length of p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7092	7198	
==>die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7104	7210	
==>die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1099	1191	
==>_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %enti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1099	1191	
==>_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %enti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30084	30193	
==>short-hand or alternative for the functionality provided
by the 5 generic relational operators [C<extend>, C<p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34636	34745	
==>short-hand or alternative for the functionality provided
by the 5 generic relational operators [C<extend>, C<p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33809	33918	
==>short-hand or alternative for the functionality provided
by the 5 generic relational operators [C<extend>, C<p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14135	14265	
==>age.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14135	14265	
==>age.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	996	1113	
==>LE, "<", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $sr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8698	8821	
==>( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instant <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8698	8821	
==>( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instant <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8698	8821	
==>( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11018	11137	
==>[map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11018	11137	
==>[map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11018	11137	
==>[map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($subdef);  die "bug $@" if $@;
        $SubO <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2730	2840	
==>class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2730	2840	
==>class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	541	643	
==>return value is
### a subroutine that build the return value based on the objects /current/
### value.. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37076	37163	
==>t')));
$::Class->send('add_attribute', (symbol->new('@:superclasses')    => attribute->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2020	2114	
==>:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2020	2114	
==>:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2020	2114	
==>:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4639	4739	
==>fered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This over <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4639	4739	
==>fered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This over <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4639	4739	
==>fered to by $myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This over <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29166	29285	
==>(Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29166	29285	
==>(Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And in <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9451	9562	
==>on toggle_visibility (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4078	4227	
==>};
        $dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22773	22864	
==>t>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22773	22864	
==>t>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1042	1145	
==>Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" export <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1042	1145	
==>Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" export <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36080	36182	
==>y of the new relation is the result of first pairwise-matching every
tuple of the invocant relation wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40629	40731	
==>y of the new relation is the result of first pairwise-matching every
tuple of the invocant relation wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40243	40345	
==>y of the new relation is the result of first pairwise-matching every
tuple of the invocant relation wit <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	275	373	
==>$self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	275	373	
==>$self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1163	1259	
==>vel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	349	444	
==>L::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	349	444	
==>L::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	349	444	
==>L::Run::Type::Object;
require PIL::Run::Type::Macro;
require PIL::Run::Match;

require PIL::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14217	14310	
==>:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14217	14310	
==>:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14217	14310	
==>:superclasses'));
::Class.meta.add_attribute('@:subclasses'       => ::make_attribute('@:subcl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30390	30511	
==>ake_descendant_dispatcher');
                }    
                elsif ($order->equal_to(str->new(':ascendant')) == $bit <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	965	1065	
==>nted = [$wanted] unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wanted !! [$wanted];

  retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15618	15753	
==>are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15618	15753	
==>are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15618	15753	
==>are just examples

sub _MySub::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3042	3172	
==>ree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3042	3172	
==>ree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12980	13072	
==><'{'> <'}'>
    | <'{'> <PropertyNameAndValueList> <'}'>
}
rule PropertyNameAndValueList :wor <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6773	6893	
==>plit('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"} <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6773	6893	
==>plit('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	450	549	
==>';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not recognized';
use constant RPe_SWBRAN => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7470	7595	
==>le {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24562	24653	
==>attributes are private, so you must use accessor methods.
Locale::KeyedText does not declare <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24562	24653	
==>attributes are private, so you must use accessor methods.
Locale::KeyedText does not declare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1708	1800	
==>s_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1708	1800	
==>s_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1708	1800	
==>s_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $PIL2JS::cfg{preludepc}) {
  war <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8066	8176	
==>but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7795	7900	
==>but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4398	4509	
==>z
    mklivecd.pl automatically generates a gzipped initrd suitable for GRUB.
  --initrd-img=$initrd_img
    --i <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5634	5720	
==>egion_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5634	5720	
==>egion_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2728	2829	
==>it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2728	2829	
==>it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2728	2829	
==>it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).shift
# T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17034	17177	
==>(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17313	17456	
==>(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10607	10735	
==>'<', do {
        grep {
            print "Implement &infix:<$_> in perl instead of the mini language? ";
            ReadMode(3 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11666	11791	
==>::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2100	2213	
==>::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2100	2213	
==>::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1834	1934	
==>r::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add la <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1834	1934	
==>r::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add la <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	568	660	
==>rnalValue::List       is JSX::InternalValue;
class JSX::InternalValue::Completion is JSX::Int <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	471	652	
==>ne();
    int j=0;
    av[0] = s;
    if (s[0]=='"') {
    for(;s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#end <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	936	1058	
==>(None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	936	1058	
==>(None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7361	7514	
==>SS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7361	7514	
==>SS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7361	7514	
==>SS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    }, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26228	26378	
==>hift;
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

method add_subc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16569	16669	
==>If there is no such header field, then the empty
string is returned.  This makes it safe to do the fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16569	16669	
==>If there is no such header field, then the empty
string is returned.  This makes it safe to do the fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1058	1179	
==>rray_fetchElem' => sub { # $idx -> $container # autovivification! - returns **CONTAINER**
                my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20915	21029	
==>om >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17336	17450	
==>om >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16218	16354	
==>' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16218	16354	
==>' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16218	16354	
==>' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5138	5253	
==>s in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5360	5475	
==>s in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13967	14161	
==>) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this sa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13967	14161	
==>) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this sa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13967	14161	
==>) {
            $method_table_name = '%:private_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this sa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6640	6773	
==>ssage
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6640	6773	
==>ssage
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14973	15091	
==>rget, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0
    g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13651	13760	
==>l('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13651	13760	
==>l('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13651	13760	
==>l('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16264	16368	
==>r $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Boo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16264	16368	
==>r $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Boo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1808	1907	
==>elf->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub literal_value {
	my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7481	7588	
==>IL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7481	7588	
==>IL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7481	7588	
==>IL::TCxtItem;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6054	6440	
==>nt")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$me <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7816	8202	
==>nt")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$me <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3180	3278	
==>ludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null_term  { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2615	2744	
==>ompilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2832	2961	
==>ompilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4651	4744	
==>$myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4651	4744	
==>$myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4651	4744	
==>$myobj and reblesses them into
new namespaces relative to New::Namespace::Root. This overrides <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16052	16153	
==>=> ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16052	16153	
==>=> ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16052	16153	
==>=> ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, % <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4539	4683	
==>wed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4539	4683	
==>wed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.re <==
3	/Users/nnunley/pugs/util/importgraph.pl	830	944	
==>name = $1;
      $exports = defined $2;
    } elsif (/^import \s+ (qualified \s+)? ([\w.]+) (\s* \()?/x) {
      $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2113	2215	
==>X! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2113	2215	
==>X! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2113	2215	
==>X! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Cod <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	972	1163	
==>, # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&print',
            body => sub {
                my $self = shift;
                my $fh = shift->val <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7676	7811	
==>rsion =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/UnicodeC.c';
    }

    my $perl5_c = '';
    if (grep /^-DPUGS_HAVE_PERL5$/, @_) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3543	3631	
==>enation(Z)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_concatenation_more <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3544	3645	
==>a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3544	3645	
==>a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3544	3645	
==>a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1626	1727	
==>has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtyp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1626	1727	
==>has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtyp <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	398	486	
==>-inline --pugs|p=s --precompile|i=s@ --verbose|v --touch --output|o=s --keep|k);

touch() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5512	5620	
==>->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5512	5620	
==>->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5512	5620	
==>->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// D <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8643	8773	
==>op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8643	8773	
==>op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool = <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2791	3063	
==>\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2791	3063	
==>\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5832	5921	
==>:cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X::cap->[-2],"<ws> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2385	2484	
==>tant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2385	2484	
==>tant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2385	2484	
==>tant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5355	5465	
==>ad it.
END_DIE

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31173	31266	
==>ull module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEn <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31173	31266	
==>ull module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEn <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5620	5776	
==>alternatives };
        
        ### check if we're the 'prefered' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17578	17674	
==>and returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy()` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17578	17674	
==>and returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy()` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3685	3804	
==>AheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3685	3804	
==>AheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3685	3804	
==>AheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3222	3381	
==>uantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3233	3392	
==>uantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from mat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2121	2267	
==>aram'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20810	20907	
==>ord_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(cha <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12969	13064	
==>ool :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the code <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13027	13122	
==>ool :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the code <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	772	937	
==>rams{'$.description'},
                '$.passed'      =>      $params{'$.passed'},
                '$.reason'      =>      $params{'$.reason'},
                '$.nu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5786	5912	
==>ew(
            attribute->new('@:MRO')             => list->new(),
            attribute->new('@:subclasses')      => list->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5809	5912	
==>_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $self->add_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	57	186	
==>body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	57	186	
==>body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	57	186	
==>body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	361	467	
==>gn};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	392	487	
==>gn};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	58	152	
==>llo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt"->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	231	367	
==>ol'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	231	367	
==>ol'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    m <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	937	1039	
==>$Config{"recurse"} = 1 if not defined $Config{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	784	878	
==>use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	784	878	
==>use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	784	878	
==>use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Pr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2006	2225	
==>keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method expo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5483	5702	
==>keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method expo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4413	4632	
==>keys ) === $heading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method expo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1255	1357	
==>y compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1255	1357	
==>y compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15964	16086	
==>} or next;
      push @so, "/" . (split " ")[0];
    }

  return @so;
}

# This is a kludge. But for now, as a simple scrip <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7396	7505	
==>pen;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7396	7505	
==>pen;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1177	1274	
==>$ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1177	1274	
==>$ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1177	1274	
==>$ret = $cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1216	1311	
==>ethod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1216	1311	
==>ethod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1216	1311	
==>ethod('BUILDALL' => method (%params) returns Void { 
    my Dispatcher $dispatcher = $self.meta. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4645	4810	
==>ost    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     gather  safe   (C <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	443	571	
==>||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $sear <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	443	571	
==>||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $sear <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	96	201	
==>CKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16776	16872	
==>sees fit.  It
also does not make direct use of environment variables, which can aid in
portabilit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16776	16872	
==>sees fit.  It
also does not make direct use of environment variables, which can aid in
portabilit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7544	7650	
==>pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7544	7650	
==>pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7544	7650	
==>pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3792	3914	
==>i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3792	3914	
==>i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3792	3914	
==>i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15752	15852	
==>1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+(match_captures_get(I,E0,_)) ; match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	341	442	
==>s a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	341	442	
==>s a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	341	442	
==>s a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3237	3411	
==>}
                $class = $eigenclass;                
            }
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20953	21044	
==>te that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20953	21044	
==>te that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashr <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1446	1558	
==>die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1446	1558	
==>die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2900	3011	
==>die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14936	15037	
==>y $code = 'sub{my $__c__ = $_[0]; '.$embedded_code.'; @_=$noop; goto &$__c__}';
    eval($code) || die <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19792	19886	
==>le C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itsel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19792	19886	
==>le C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itsel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6592	6723	
==>isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6592	6723	
==>isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6592	6723	
==>isLazy: !perl/@PIL::False []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl <==
3	/Users/nnunley/pugs/util/package-osx.pl	8017	8114	
==>6::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Spec::Package.3pm
        /usr/local/man/ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	625	726	
==>gs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

= <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	625	726	
==>gs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

= <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14074	14170	
==>gain
    ### XXX pretty method?
    $self->registered_alternatives([ @{$self->registered_alternat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20047	20141	
==>rom_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20047	20141	
==>rom_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20047	20141	
==>rom_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1913	2028	
==>KEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    i <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1913	2028	
==>KEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	440	542	
==>class;
}

# native conversion
sub to_native { @{(shift)} }

# conversion to other types
sub to_str { (s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1614	1741	
==>st equiv
            system( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -tz |] .
                    qq[xargs -I % echo $Site/% >> <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	514	611	
==>s.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	514	611	
==>s.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10974	11111	
==>ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10974	11111	
==>ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10974	11111	
==>ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8230	8335	
==>->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8230	8335	
==>->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8230	8335	
==>->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::V <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7042	7190	
==>e File::stat;
    
    my $file;
    my $tmpl = {
        file    => { required => 1, allow => IS_FILE, store => \$file },
    };
    
    check( $tm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12696	12796	
==>se sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12696	12796	
==>se sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fie <==
3	/Users/nnunley/pugs/util/importgraph.pl	1648	1754	
==>od =~ /$regexp/;
    $modules{$mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_c <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9921	10015	
==>ams}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LO <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9921	10015	
==>ams}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2975	3134	
==>ta
            unless ( -d $obj->meta_dir ) {
                
                ### set up the dirs
                for my $subdir ($obj->meta_dir, $obj->alterna <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4672	4828	
==>ir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4672	4828	
==>ir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	11	111	
==>perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	11	111	
==>perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	11	111	
==>perl

use strict;
use warnings;
use Perl6::MetaModel::Chaos;

# The 'Class' class -- placed here so : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	190	296	
==>_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	190	296	
==>_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	190	296	
==>_ subs).
  die if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9219	9354	
==>ort_test(
          Test::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1343	1472	
==>ort_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1343	1472	
==>ort_test(
        Test::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1384	1491	
==>[ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1013	1116	
==>we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen tr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1013	1116	
==>we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen tr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13492	13589	
==>Returns the list of distinct names for the fields present in the
header.  The field names have cas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13492	13589	
==>Returns the list of distinct names for the fields present in the
header.  The field names have cas <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	908	1009	
==>Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	908	1009	
==>Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11100	11191	
==>my @filtered_inc = $self->_filtered_INC;

Shortens C<@INC> by removing redundant and unneces <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1516	1606	
==>ed C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> environme <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1516	1606	
==>ed C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> environme <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3420	3528	
==>ng ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6897	7005	
==>ng ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mappi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5854	5962	
==>ng ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mapping.values ) != +$mappi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4401	4497	
==>amic_alt(\@statements));

my @tokens;
my $tok = def_rule('token',mk_dynamic_alt(\@tokens));
# tok <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10072	10166	
==>ned to facilitate the
testing of those features. For more information see the FUTURE PLANS
sect <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10130	10224	
==>ned to facilitate the
testing of those features. For more information see the FUTURE PLANS
sect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4228	4337	
==>cript type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4228	4337	
==>cript type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4228	4337	
==>cript type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14676	14768	
==>w we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14676	14768	
==>w we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14676	14768	
==>w we make Class conform to the Package interface

::Class.meta.add_method('FETCH' => method ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	190	296	
==>.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	190	296	
==>.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	190	296	
==>.perl } @elems;
# * Don't output "..." to create ranges, but "..", so .perl will return valid
#   Perl 6 co <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	108	237	
==>1;

# an example of a Tangram schema structure
our $schema =
    { fields =>
      { ref =>
        { schema => { class => "T2::Sc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14352	14448	
==>') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14352	14448	
==>') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2067	2170	
==>ersion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2067	2170	
==>ersion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2067	2170	
==>ersion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6955	7118	
==>$key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6955	7118	
==>$key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infini <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6955	7118	
==>$key = shift @param;
                if ( Perl6::Value::p6v_isa( $key, 'Array' ) ) {
                    #warn "Hash slice $key\n";
                    warn "Infini <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	326	432	
==>od JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	326	432	
==>od JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	326	432	
==>od JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var array = ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1988	2076	
==>ge');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1988	2076	
==>ge');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1988	2076	
==>ge');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Object');
$::R <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1895	1999	
==>d();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1895	1999	
==>d();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	281	370	
==>rm:\\b", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\\B", "term:", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	42	151	
==>::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	42	151	
==>::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	42	151	
==>::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  packa <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	932	1045	
==>t<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	932	1045	
==>t<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1145	1247	
==>is is not yet 
    # populated with anything, so ....
    my $supers = $class->get_attr(symbol->new('@: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4421	4592	
==>,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4421	4592	
==>,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6871	6990	
==>.getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6871	6990	
==>.getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6871	6990	
==>.getTime() + millis;
    while((new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11087	11253	
==>i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11087	11253	
==>i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11087	11253	
==>i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16587	16689	
==>1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16587	16689	
==>1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16587	16689	
==>1 SYNOPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	476	596	
==>}
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	476	596	
==>}
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	476	596	
==>}
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pugs::Internals::named_pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4773	4881	
==>ne('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4773	4881	
==>ne('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4773	4881	
==>ne('($jsbody)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9311	9442	
==>5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9311	9442	
==>5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9311	9442	
==>5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2623	2739	
==>6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2623	2739	
==>6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2623	2739	
==>6_bind {my($o,$v)=@_; $o->bind($v);}
sub p6_var_macro {
    my($name,$defined1_autovivify2)=@_;
    $name =~ s/\[ \]/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2953	3071	
==>$class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2953	3071	
==>$class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2953	3071	
==>$class);
    }
    warn "the class  is named " . $class->name if $DEBUG;  
    return $class;  
}

sub _close_current_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1812	1957	
==>> $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2992	3106	
==>m}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2992	3106	
==>m}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2992	3106	
==>m}{isInvocant} }
  sub name        { $_[0]->{tpParam}{paramName} }
  sub type        { $_[0]->{tpParam}{paramContex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3299	3409	
==>descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3299	3409	
==>descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3299	3409	
==>descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1700	1821	
==>tr) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5177	5298	
==>tr) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4107	4228	
==>tr) of Any :$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2014	2124	
==>()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2014	2124	
==>()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2014	2124	
==>()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($test,$code) {
    while(!$test()) {
	$cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1215	1325	
==>p.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1215	1325	
==>p.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1215	1325	
==>p.
    # Finally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and def <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2331	2448	
==>:True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2331	2448	
==>:True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6669	6801	
==>turn Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6669	6801	
==>turn Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6669	6801	
==>turn Inf if $start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10812	10935	
==>ex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10812	10935	
==>ex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16818	16940	
==>form takes the form of an ordinary natural join,
    # where some source attributes are in common, and each
    # source ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20295	20417	
==>form takes the form of an ordinary natural join,
    # where some source attributes are in common, and each
    # source ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19873	19995	
==>form takes the form of an ordinary natural join,
    # where some source attributes are in common, and each
    # source ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8550	8666	
==>( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8550	8666	
==>( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8550	8666	
==>( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.a')/_ <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	424	527	
==>copy_all("$_/blib6/", 'blib6/pugs/perl6') for <perl5/*>;
    copy_all("$_/blibjs/", 'blib6/pugs/js') for <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9526	9690	
==>e a Windows executable called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is w <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4107	4213	
==>niversal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4107	4213	
==>niversal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10895	11030	
==>.             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10889	11024	
==>.             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11150	11247	
==>que {
    $class.bless(undef, %params // hash());
}

(method new ((opaque $class:) (hash ?%params) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2942	3073	
==>f $opt->{fixity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels}} ) {
        if ( grep { 
                defined $opt-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1668	1765	
==>t Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @up <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1668	1765	
==>t Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @up <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	755	847	
==>stant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3108	3190	
==>plement_next, $self.complement_previous, $set.complement_next, $set.complement_prev <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3108	3190	
==>plement_next, $self.complement_previous, $set.complement_next, $set.complement_prev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17412	17517	
==>e_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17412	17517	
==>e_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17412	17517	
==>e_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

$::Class->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1124	1227	
==>xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1124	1227	
==>xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1124	1227	
==>xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18321	18429	
==>..};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18321	18429	
==>..};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18321	18429	
==>..};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MULTI SUB infix:<~^> ($xx0,$xx1) {...};
MULTI SUB infix:[=>] ($x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8679	8826	
==>", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
    $fail = 1;
  }
  !$fail;
}

sub require_ok ($) {
    my ($require) = @_;
    eval <<RE <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8627	8718	
==>4.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document") an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8627	8718	
==>4.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document") an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10448	10566	
==>------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10448	10566	
==>------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10448	10566	
==>------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so it makes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16469	16564	
==>aque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('ST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16469	16564	
==>aque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('ST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16469	16564	
==>aque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add_method('ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3934	4052	
==>YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3934	4052	
==>YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3934	4052	
==>YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3033	3145	
==>) );

    # merge both kinds of requires into prereq_pm
    my $subdirs = ($args->{DIR} ||= []);
    if ($self->b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39469	39566	
==>er and upper side of the range, objects must be created during
the first pass.  To accomplish this <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1082	1204	
==>t;
    unshift @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PA <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3042	3138	
==>] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3042	3138	
==>] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1019	1136	
==>ccent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1019	1136	
==>ccent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	997	1136	
==>rotocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	997	1136	
==>rotocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8127	8244	
==>'\0' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $o = substr($1, 1, -1 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1376	1543	
==>$?;
            system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $archive <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3155	3302	
==>l5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3155	3302	
==>l5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6845	6969	
==>o $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6845	6969	
==>o $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6845	6969	
==>o $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems->unboxe <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2504	2588	
==>er-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl. <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2504	2588	
==>er-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1869	1971	
==>", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1869	1971	
==>", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1869	1971	
==>", "Number(a) != Number(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S" <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	657	787	
==>pendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $n <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	657	787	
==>pendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8250	8390	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8250	8390	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8250	8390	
==>ef') . ")";
    if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3042	3154	
==>rts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3042	3154	
==>rts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3042	3154	
==>rts
    if ( p6_to_n( $a->elems ) == &Perl6::Value::Num::Inf ) {
        $idx->push( Perl6::Value::List->from_num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	415	534	
==>l $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	415	534	
==>l $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	415	534	
==>l $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Rebless->custom($struc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1391	1519	
==>@rv, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    return @rv;
}    

__END__





    ### XXX can be custom f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15868	15967	
==>am will raise a condition or error that,
while resembling a message that would be shown to a user, i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15868	15967	
==>am will raise a condition or error that,
while resembling a message that would be shown to a user, i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2124	2229	
==>urn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2124	2229	
==>urn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5895	6058	
==>.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5895	6058	
==>.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5895	6058	
==>.length; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	621	815	
==>ver $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	621	815	
==>ver $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40536	40637	
==>c.

=head2 Throwing Warnings and Errors

There are three methods you can use when a problem arises.  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10277	10386	
==>s, but it
    # can be a role too.
    # -----------------------------------------------    
    method resolv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10277	10386	
==>s, but it
    # can be a role too.
    # -----------------------------------------------    
    method resolv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10277	10386	
==>s, but it
    # can be a role too.
    # -----------------------------------------------    
    method resolv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6287	6403	
==>IVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6287	6403	
==>IVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-con <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6287	6403	
==>IVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice using a non-con <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30668	30769	
==>. What we know for
sure is, that it was inspired by Larry Wall's TEST script that came
with perl distr <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3443	3538	
==>Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3443	3538	
==>Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	493	668	
==>[ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7118	7261	
==>_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7118	7261	
==>_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1438	1537	
==>.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1438	1537	
==>.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1438	1537	
==>.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4582	4747	
==>tmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4582	4747	
==>tmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4582	4747	
==>tmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $htm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35220	35372	
==>return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('add_att <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2319	2434	
==>return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2319	2434	
==>return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35782	35876	
==>nother Relation as its C<$other> argument and combines it with the
invocant relation into a new <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40332	40426	
==>nother Relation as its C<$other> argument and combines it with the
invocant relation into a new <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3897	4000	
==>bject.

The methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3897	4000	
==>bject.

The methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3288	3383	
==>Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $me <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3288	3383	
==>Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2727	2839	
==>self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2727	2839	
==>self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2727	2839	
==>self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9640	9747	
==>hat will insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9640	9747	
==>hat will insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	519	641	
==>OPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normat <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	519	641	
==>OPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normat <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	225	334	
==>urn the evaluated integer result.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2291	2393	
==>on (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2291	2393	
==>on (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2291	2393	
==>on (str) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38256	38356	
==>I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42805	42905	
==>I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42455	42555	
==>I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TODO.>

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10636	10787	
==>d, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed function <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10636	10787	
==>d, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed function <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10636	10787	
==>d, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- unboxed function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	339	442	
==>ndlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	339	442	
==>ndlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	339	442	
==>ndlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8454	8558	
==>)/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8454	8558	
==>)/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8454	8558	
==>)/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11047	11144	
==>d using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11047	11144	
==>d using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11047	11144	
==>d using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,Fi <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	426	525	
==>fix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	426	525	
==>fix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21290	21389	
==>>get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44197	44296	
==>>get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1703	1798	
==>ar method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1703	1798	
==>ar method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1703	1798	
==>ar method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.apply(method, args)
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14666	14814	
==>any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14666	14814	
==>any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14666	14814	
==>any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map { m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15946	16075	
==>6rule parse error: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = get <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1340	1441	
==>JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1340	1441	
==>JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1340	1441	
==>JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2442	2546	
==>or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2442	2546	
==>or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2442	2546	
==>or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $decl = $self->multi
      ? sprin <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	801	909	
==>hat this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	801	909	
==>hat this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6036	6227	
==>'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6036	6227	
==>'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6036	6227	
==>'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20588	20701	
==>n src/perl6/Prelude.pm, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    + <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4854	4951	
==>st utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4912	5009	
==>st utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2738	2871	
==>y) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2738	2871	
==>y) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2738	2871	
==>y) eq 'CODE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1357	1474	
==>ngs "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1357	1474	
==>ngs "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1357	1474	
==>ngs "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1845	1985	
==>F, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1845	1985	
==>F, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1845	1985	
==>F, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into the insta <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7345	7441	
==>pending data.  Block 
ciphers should buffer input data until they have an entire block, then ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7345	7441	
==>pending data.  Block 
ciphers should buffer input data until they have an entire block, then ciph <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11244	11330	
==>est::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1702	1786	
==>est::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1702	1786	
==>est::Builder::Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2319	2432	
==>%hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2319	2432	
==>%hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2319	2432	
==>%hash{$key} if necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_p <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1975	2083	
==>\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap. 

>   The world wa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14980	15075	
==>cessed through the
following convenience methods.  These methods can both be used to read
and to <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14980	15075	
==>cessed through the
following convenience methods.  These methods can both be used to read
and to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	207	316	
==>unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	207	316	
==>unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	207	316	
==>unless $self->{pCxt}->isa("PIL::TCxt");
  die unless ref($self->{pArgs}) eq "ARRAY";

  my $subname;
  if($sel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12504	12614	
==>eral>
    | <ObjectLiteral>
    | <'('> <Expression> <')'>
}
rule ArrayLiteral :words {  # see 11.1.4
      <'[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1226	1324	
==>_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1226	1324	
==>_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2987	3085	
==>tart = stringarg-strbeg;

    fprintf(stderr,"regexp_exechook_hook\n");
    fprintf(stderr," strbeg <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	28	123	
==>ream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Arra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	28	123	
==>ream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1389	1486	
==>ar func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1389	1486	
==>ar func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1389	1486	
==>ar func = args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) { <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1652	1766	
==><name>\>  \:\=  <construct>  }
rule numbered_scalar_alias  {  \$<number>    \:\=  <construct>  }
rule number  { \d+ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2233	2324	
==>org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2233	2324	
==>org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2209	2339	
==>)";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2209	2339	
==>)";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2209	2339	
==>)";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{attrs}->{$label};
    } <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	507	601	
==>o Perl 6:
#      http://perlmonks.org/index.pl?node_id=442402
#
# ----------------------------- <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2161	2244	
==>le>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/ib <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2161	2244	
==>le>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/ib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2475	2608	
==>class};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2475	2608	
==>class};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2475	2608	
==>class};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1291	1422	
==>.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1291	1422	
==>.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1291	1422	
==>.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3191	3335	
==>ibute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3191	3335	
==>ibute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3191	3335	
==>ibute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a convenience wrapper for binding/unbinding $?PA <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3250	3354	
==>tro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi } <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3250	3354	
==>tro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9733	9853	
==>d>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to define these <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9733	9853	
==>d>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to define these <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9733	9853	
==>d>" }  

    # -----------------------------------------------    
    # NOTE:
    # I am not sure I need to define these <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4681	4802	
==>Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4681	4802	
==>Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4681	4802	
==>Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't write to \"$cfg{outpu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5752	5847	
==>d Not Found : cannot find object ($child_to_remove) in self";
}

## ---------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5752	5847	
==>d Not Found : cannot find object ($child_to_remove) in self";
}

## ---------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2343	2477	
==>_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2343	2477	
==>_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2343	2477	
==>_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2571	2676	
==>eturn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2571	2676	
==>eturn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2571	2676	
==>eturn $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31275	31481	
==>rl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31275	31481	
==>rl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31275	31481	
==>rl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10004	10116	
==>his will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10004	10116	
==>his will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10004	10116	
==>his will handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17642	17756	
==>ir = comb(
	fun => $half_pair,
	param => val(v => "foo", t => type::operator::nullary->new("str")),
);

# the polym <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11047	11196	
==>n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8113	8257	
==>n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8113	8257	
==>n";
        #print caller;
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3713	3906	
==>//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3713	3906	
==>//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6114	6217	
==>(still) incomplete.  It
may be a little jumbled or hard to understand.  If you find a problem,
please le <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6006	6142	
==>List)\
\\n   List      pre     keys    safe   (rw!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12591	12692	
==>t_nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12591	12692	
==>t_nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Mod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6157	6323	
==>defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6157	6323	
==>defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            e <==
3	/Users/nnunley/pugs/util/package-osx.pl	442	548	
==>n/parrot-config
        /usr/local/bin/pbc_merge
        /usr/local/bin/disassemble
        /usr/local/bin/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4579	4687	
==>alue::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4579	4687	
==>alue::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4579	4687	
==>alue::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::N <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	57	171	
==>ND__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	57	171	
==>ND__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7262	7392	
==>sh(\*STDOUT);
    _autoflush(\*STDERR);

    my(%failedtests);

    # Test-wide totals.
    my(%tot) = (
                bonus    = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	296	392	
==>iter> that an
upcoming closing node is to be represented in a certain non-normative
way in the so <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	296	392	
==>iter> that an
upcoming closing node is to be represented in a certain non-normative
way in the so <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3132	3281	
==>ent_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time & <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3132	3281	
==>ent_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time & <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3331	3435	
==>s[$_][$i] } 0..@arrays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29dr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6019	6179	
==>l6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = (' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6019	6179	
==>l6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = (' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6019	6179	
==>l6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = (' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30268	30362	
==>ks like Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34820	34914	
==>ks like Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6248	6334	
==>,'\s*rule\s+(\w+)\s+{([^}]*)}(?{ &::hlp_rule;})');
my $x4 = def_stmt_prim('bs_stmt_decl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	560	653	
==>ckage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	560	653	
==>ckage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	560	653	
==>ckage EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid_recursi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22273	22484	
==>fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22273	22484	
==>fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Sc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22273	22484	
==>fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35627	35772	
==>en_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35627	35772	
==>en_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35627	35772	
==>en_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop l <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5959	6065	
==>an::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use S <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5959	6065	
==>an::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	575	679	
==>::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14869	14972	
==>/initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    des <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9664	9760	
==>an object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9664	9760	
==>an object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3153	3262	
==>y $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3153	3262	
==>y $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3153	3262	
==>y $is_rw = $access && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3830	3953	
==>e;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3830	3953	
==>e;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3830	3953	
==>e;
    $pair;
  }

  if $self.isa("Hash") {
    $self.keys.map:{; $_ =:> $self{$_} };
  } elsif $self.isa("Pair") {
    ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1190	1316	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1190	1316	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1190	1316	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaqu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5247	5347	
==>ractional error.
# Here $range must be numeric, >= 0
# Non numeric ranges might be a useful future ex <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1769	1864	
==><map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»... <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1769	1864	
==><map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4639	4751	
==>>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4639	4751	
==>>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4639	4751	
==>>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8766	8901	
==>ody);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$pa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2111	2235	
==>gument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2111	2235	
==>gument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13545	13658	
==>e => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2590	2701	
==>separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2590	2701	
==>separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4632	4813	
==>e
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4632	4813	
==>e
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if def <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1092	1197	
==>h with custom
    # Module::Install extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::In <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	129	241	
==>p;

my %relative_precedences = (
    tighter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0, [ $_[2] ] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1525	1623	
==>ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1525	1623	
==>ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1242	1402	
==>$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return F <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1242	1402	
==>$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9864	10022	
==>ointy_block} ) {
            return  " " . $n->{op1}{stmt} . 
                    ' my ' . _emit( $n->{exp2}{signature} ) . '' . 
                    ' (' . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	749	875	
==>}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	749	875	
==>}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	749	875	
==>}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0]) }

  sub matches {
    my ($self, $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4124	4275	
==>urn int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf }, <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4124	4275	
==>urn int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf }, <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8614	8743	
==>g:          10px;
    }

    th       { text-align: left; }
    .indent0 { padding-top:  30px; border-bottom: 2px solid #313052; } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9610	9719	
==>to be 'resolved'
    # -----------------------------------------------      
    method collect_all_roles () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9610	9719	
==>to be 'resolved'
    # -----------------------------------------------      
    method collect_all_roles () { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9610	9719	
==>to be 'resolved'
    # -----------------------------------------------      
    method collect_all_roles () { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5938	6046	
==>ethod_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5938	6046	
==>ethod_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5938	6046	
==>ethod_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instan <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3612	3707	
==>ten to provide functionality
while Perl 6 was still being developed.

This module is primarily f <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3612	3707	
==>ten to provide functionality
while Perl 6 was still being developed.

This module is primarily f <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1094	1188	
==>eturn num->new($left->to_native + $right->to_num->to_native());
}

sub subtract {
    my ($left <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6822	6926	
==>ets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::H <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6822	6926	
==>ets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::H <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9019	9123	
==>ets the C<skip> key to true in the hash.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3618	3737	
==>%opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3618	3737	
==>%opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3618	3737	
==>%opts) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2430	2565	
==>vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2430	2565	
==>vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2958	3061	
==>"∀${_}." } @forall),
		   $pretty->apply($tree)->layout,
	   );
	} || die "$@\n" . Data::Dumper::Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	737	985	
==>xecute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $ms <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	737	985	
==>xecute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $ms <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	409	526	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	409	526	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	409	526	
==>t }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3340	3437	
==>tests, and then telling this module to compare the received
output to the expected output.

=head1 <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3340	3437	
==>tests, and then telling this module to compare the received
output to the expected output.

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3420	3517	
==>tests, and then telling this module to compare the received
output to the expected output.

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2715	2895	
==>urn Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2715	2895	
==>urn Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2715	2895	
==>urn Bit->new( '$.unboxed' => 0 ) unless $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    f <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9388	9554	
==>>new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val->new(''),
            ),
            App->new(
                Sym->new('&say'),
                App->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19175	19284	
==>zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20533	20642	
==>zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4785	4894	
==>unlike B<rebless>, it preseves something
of the original name. So if you had an object blessed into "MyClass", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4785	4894	
==>unlike B<rebless>, it preseves something
of the original name. So if you had an object blessed into "MyClass", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4785	4894	
==>unlike B<rebless>, it preseves something
of the original name. So if you had an object blessed into "MyClass", <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	519	623	
==>all loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Insta <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6980	7077	
==>me as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling : <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6980	7077	
==>me as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1457	1580	
==>and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1457	1580	
==>and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1457	1580	
==>and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1895	1990	
==>«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1895	1990	
==>«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1895	1990	
==>«/»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Numb <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26237	26335	
==>ault to C<COLUMNS>. If this is not set, it will
default to 80. Note that users of Bourne-sh based s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	818	909	
==>xample::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	818	909	
==>xample::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6528	6629	
==>ssing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6528	6629	
==>ssing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6528	6629	
==>ssing a tied object may produce unexpected results.

=head1 AUTHOR

Gaal Yahas <gaal@forum2.org>

Gabo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9937	10058	
==>} + $test{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$test{max} skipped: $test{skip_rea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5556	5654	
==>le.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object has unde <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5556	5654	
==>le.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object has unde <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23304	23395	
==>mSomewhere(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx,F1,Bx,B1,Ex,E1), !; F1 = Fx, B1 = Bx, E1 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	721	816	
==>ten(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infin <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	721	816	
==>ten(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10013	10140	
==>ody => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13490	13617	
==>ody => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12771	12898	
==>ody => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result is first sourc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	442	576	
==>less +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnos <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	442	576	
==>less +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnos <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10418	10522	
==>elds'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$chk\n";
    my $keys = join(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9684	9800	
==>ue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9684	9800	
==>ue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9684	9800	
==>ue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27411	27511	
==>irs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31963	32063	
==>irs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31046	31146	
==>irs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names of the new attributes, a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2048	2171	
==>) }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      re <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2048	2171	
==>) }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1004	1098	
==>'re currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1004	1098	
==>'re currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1004	1098	
==>'re currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2451	2552	
==>dalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2451	2552	
==>dalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2451	2552	
==>dalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MMarkTestPMAsLoaded",
  # "-e", 'BEGIN { %*INC{"Test. <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9513	9614	
==>pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('th <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9571	9672	
==>pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('th <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6450	6573	
==>File::Spec->catfile( $to, $target ) 
                } File::Find::Rule->file->in( $from );
    } else {
        %from = ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3443	3560	
==>mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $ma <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3443	3560	
==>mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11656	11782	
==>new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11656	11782	
==>new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11656	11782	
==>new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2999	3095	
==>d: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5,$warn,$failed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2459	2558	
==>t}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2459	2558	
==>t}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2459	2558	
==>t}->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Inva <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	677	765	
==>Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() beca <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	677	765	
==>Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() beca <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9051	9158	
==>, 'type') => sub {
	die "trying to unify incompatible types:\n" . Dumper(@_);
};


# these are the type sign <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1886	1986	
==>rstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1886	1986	
==>rstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5948	6074	
==>r->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new opera <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5948	6074	
==>r->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new opera <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2756	2873	
==>$file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2756	2873	
==>$file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2756	2873	
==>$file) . "\n"];
    } else {
      push @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	521	654	
==>compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	521	654	
==>compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_sta <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	446	555	
==>n" if $debug_warnings;
	my($pat,$str,$ok,$thing,$value,@rest)=split(/\t/,$line);
	$value = "" if !defined($val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5798	5894	
==>D_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End decl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5798	5894	
==>D_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End decl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5798	5894	
==>D_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End decl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9454	9554	
==>e_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9454	9554	
==>e_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9454	9554	
==>e_perl5 ($xx) { p6_from_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	954	1076	
==>sions of modules.
    # This is not enforced yet, but will be some time in the next few
    # releases once we can make sur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19261	19379	
==>lly a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23813	23931	
==>lly a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22329	22447	
==>lly a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where each tuple is a row an <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10311	10430	
==>atch::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6652	6771	
==>atch::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7501	7620	
==>atch::str( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17966	18170	
==>ass->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17966	18170	
==>ass->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17966	18170	
==>ass->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  g <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5837	5942	
==>'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubTyp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5837	5942	
==>'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubTyp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2736	2841	
==>'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubTyp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4401	4501	
==>h exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUT <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4401	4501	
==>h exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4481	4581	
==>h exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2684	2779	
==>varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2684	2779	
==>varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2684	2779	
==>varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1787	1885	
==>die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1787	1885	
==>die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1787	1885	
==>die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7802	7902	
==>h( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7802	7902	
==>h( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	468	564	
==>b compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtual method 'provides' calle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4712	4827	
==>fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4712	4827	
==>fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4712	4827	
==>fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $write_fh $js or die "C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10121	10269	
==>{sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10121	10269	
==>{sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10121	10269	
==>{sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14420	14590	
==>e;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14420	14590	
==>e;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14420	14590	
==>e;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5947	6069	
==>}
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5959	6081	
==>}
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9239	9357	
==>ecurse($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5962	6071	
==>g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5962	6071	
==>g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5962	6071	
==>g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	927	1040	
==>s) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	927	1040	
==>s) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	927	1040	
==>s) = $self->SUPER::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::do <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2898	3005	
==>q "postcircumfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13132	13236	
==>ine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13132	13236	
==>ine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1407	1595	
==>', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1407	1595	
==>', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1722	1858	
==>le_name = "r$_";
        $rule_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1150	1250	
==>1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1150	1250	
==>1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1150	1250	
==>1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New method tied()
# * Fixed binding of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12753	12861	
==>$xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12753	12861	
==>$xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12753	12861	
==>$xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8321	8456	
==>', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8321	8456	
==>', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3548	3649	
==>ist' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3548	3649	
==>ist' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3548	3649	
==>ist' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/sto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5493	5612	
==>ute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5493	5612	
==>ute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5493	5612	
==>ute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15604	15762	
==>ethod_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15604	15762	
==>ethod_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15604	15762	
==>ethod_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label};             
        }
        confe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1673	1780	
==>}
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.app <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1673	1780	
==>}
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.app <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1673	1780	
==>}
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method.app <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9521	9644	
==>].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9521	9644	
==>].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9521	9644	
==>].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3619	3781	
==>R})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3619	3781	
==>R})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3619	3781	
==>R})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem ( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6999	7156	
==>}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8781	8881	
==>mpile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8781	8881	
==>mpile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'per <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50391	50521	
==>ew('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('ide <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14412	14509	
==>s:

  $escaped = encode_entities($input, '<>&"');

This routine is exported by default.

=item enc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14412	14509	
==>s:

  $escaped = encode_entities($input, '<>&"');

This routine is exported by default.

=item enc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2071	2194	
==>> 'ternary', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], exp3 => \$_[5],} }",
        
    # XXX
    #i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	814	907	
==>n -
Localization of Rosetta::Validator for English

=head1 VERSION

This document describes Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	814	907	
==>n -
Localization of Rosetta::Validator for English

=head1 VERSION

This document describes Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	158	279	
==>b matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	158	279	
==>b matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	158	279	
==>b matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14590	14751	
==>->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14590	14751	
==>->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14590	14751	
==>->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11251	11389	
==>y $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11251	11389	
==>y $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11251	11389	
==>y $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && ! define <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2390	2610	
==>m = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2390	2610	
==>m = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5882	6021	
==>dirs from the target so we don't get a silly
            ### deep dir structure
            my $target = $dir;
            $target =~ s/^$ba <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2952	3059	
==>assing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodb <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2952	3059	
==>assing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodb <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3032	3139	
==>assing_test );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodb <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24916	25039	
==>b_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25195	25318	
==>b_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1458	1581	
==>an = (
        %$clean, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realclean_files {
    m <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7159	7253	
==>This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7159	7253	
==>This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	265	397	
==>&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	265	397	
==>&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8428	8561	
==>>{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8428	8561	
==>>{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8428	8561	
==>>{slice}."\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3078	3253	
==>l (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6555	6730	
==>l (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(S <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7346	7465	
==>igit;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\d') if $re eq '\d';
    retur <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14429	14520	
==>encode_entities($input, '<>&"');

This routine is exported by default.

=item encode_entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14429	14520	
==>encode_entities($input, '<>&"');

This routine is exported by default.

=item encode_entitie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5219	5345	
==>Until(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5219	5345	
==>Until(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5219	5345	
==>Until(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1650	1762	
==>ap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.ye <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1650	1762	
==>ap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.ye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3932	4048	
==>ut that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3932	4048	
==>ut that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14113	14214	
==>ls to these functions, as long as
C<%hash> doesn't change. 

If C<@keytests> are provided, only elemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2410	2499	
==>r::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2410	2499	
==>r::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2410	2499	
==>r::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_descriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2016	2126	
==>> '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2016	2126	
==>> '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2016	2126	
==>> '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1437	1535	
==>=> ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1437	1535	
==>=> ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1437	1535	
==>=> ::make_attribute('%:methods'));
$::Role->add_attribute('%:attributes' => ::make_attribute('%:att <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4581	4721	
==>_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4569	4709	
==>_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < le <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30200	30287	
==>turns the identity-one
Relation::Example or the invocant Relation::Example respectively. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6968	7113	
==>f->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_;
      $self->{neg};
    }
  }

  sub visual {
    my $self = shift;
    if (ref <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	219	322	
==>s file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	219	322	
==>s file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9619	9793	
==>}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9898	10072	
==>}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	382	501	
==>S   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harness::Straps - detailed analysis of test results

=head1 SYNOPS <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12562	12677	
==>fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying db <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12562	12677	
==>fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying db <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7556	7667	
==>:varglobal {
   my $a = $_[0];
   $a =~ s/^(.)\*(.+)$/$1$2/;
   return $a;
}
sub node::variable {
    return $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17089	17227	
==>e = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17089	17227	
==>e = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6368	6467	
==>name} cmp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2212	2376	
==>e . ")";      
    # loop through the param keys
    for my $i (0 .. $params->elems->to_native) {
        my $value; 
        my $param      = $params->fetch(num->ne <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32294	32389	
==>:KeyedText expects its Template modules to come
from Perl modules, but in the future they may al <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32294	32389	
==>:KeyedText expects its Template modules to come
from Perl modules, but in the future they may al <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4058	4176	
==>" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4058	4176	
==>" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4058	4176	
==>" ?? '""' !! 0;
  my $jsbody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3702	3817	
==>';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3702	3817	
==>';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3702	3817	
==>';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2133	2220	
==>e
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http:// <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2133	2220	
==>e
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http:// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3838	3959	
==>.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the reference will be written to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3838	3959	
==>.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the reference will be written to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3838	3959	
==>.pl. If there's a reference in @args, it will be substituted by
# "-" and the contents of the reference will be written to <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6663	6818	
==>lL]/, @_;
    push @libs, grep /\.(?:a|o(?:bj)?|\Q$Config{so}\E)$/, @_;
    push @libs, grep /^-auto/, @_;
    push @libs, grep /^-prof/, @_;

    @_ = (@pk <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	927	1041	
==>ta::Class {

    $.name = $name;
    return $?SELF;

}

# takes the object and "builds" it into a class
method appl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	754	890	
==>de . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	747	883	
==>de . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$mat <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3732	3820	
==>y $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
    $self->fix_up_makefile($mm->{FIRST <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2835	2933	
==>eters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in whic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2835	2933	
==>eters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in whic <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5677	5827	
==>ch.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clon <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5677	5827	
==>ch.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clon <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27699	27803	
==>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag handler gets the parser object and a boolean as ar <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	359	485	
==>d DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	359	485	
==>d DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	817	944	
==>s: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	810	937	
==>s: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$matc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	889	987	
==>($program);
    my $result = Blondie::Backend::Foo->execute($compiled);

    my $same_result = Blon <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5820	5989	
==>exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5832	6001	
==>exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match var <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2453	2593	
==>)
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	737	842	
==>out a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLAR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	737	842	
==>out a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLAR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	737	842	
==>out a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %UNDECLAR <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	8	110	
==>in/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	8	110	
==>in/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1693	1788	
==>s to
continue cleaning and adding p6, tuck it into the pugs distribution
somewhere with test fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	106	208	
==>erl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	106	208	
==>erl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	106	208	
==>erl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3442	3547	
==>ehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3442	3547	
==>ehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3442	3547	
==>ehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on defi <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	383	503	
==>time($m);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::SmokeBackends - 

=head1 SYNOPSIS

	use Blondie::Smoke <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2928	3035	
==>the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expe <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2928	3035	
==>the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expe <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3178	3270	
==>mplement_previous ),
        complement_previous => $self._get_intersection( $self.complement <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3178	3270	
==>mplement_previous ),
        complement_previous => $self._get_intersection( $self.complement <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20219	20326	
==>$bonusmsg .= ' skipped';
    }
    elsif ($tot->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3931	4043	
==>x/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3931	4043	
==>x/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10085	10186	
==>Lit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10085	10186	
==>Lit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10085	10186	
==>Lit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1717	1908	
==>,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1717	1908	
==>,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1454	1572	
==>sh  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  su <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1454	1572	
==>sh  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  su <==
3	/Users/nnunley/pugs/util/addauthors.pl	1128	1269	
==>$re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHORS file\n";
  }

  $author->{co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8569	8683	
==>ch::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8557	8671	
==>ch::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4049	4145	
==>s->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4049	4145	
==>s->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4639	4735	
==>s->{positional};
    for my $param (@{$self->positional || []}) {
	if ($param->is_slurpy && $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1893	2045	
==>MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1893	2045	
==>MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1893	2045	
==>MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            f <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2498	2609	
==>t open log (in $testdir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18863	18961	
==>u
can avoid this misspelling in your programs and still send the right
thing on the wire.

When set <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18863	18961	
==>u
can avoid this misspelling in your programs and still send the right
thing on the wire.

When set <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7733	7845	
==>turn "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7733	7845	
==>turn "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15715	15815	
==>(condition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34677	34902	
==>b {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$dispatch <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5917	6031	
==>Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrenc <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5917	6031	
==>Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8381	8494	
==>e" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iint <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8381	8494	
==>e" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iint <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8381	8494	
==>e" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iint <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11379	11545	
==>ersect ::= &intersection;

###########################################################################

method difference (Relation::Example $other!) returns Relation: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20042	20175	
==>ar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20321	20454	
==>ar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5655	5760	
==>_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5655	5760	
==>_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5655	5760	
==>_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5632	5738	
==>.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5632	5738	
==>.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5632	5738	
==>.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js    METAMODEL  libj <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	376	481	
==>ntent};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorabl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	376	481	
==>ntent};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorabl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25621	25703	
==>).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_))).
flag_m(amat(_,flgs(_,m,_,_,_,_,_,_,_, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3431	3553	
==>ntents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3431	3553	
==>ntents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3431	3553	
==>ntents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2759	2850	
==>d PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2759	2850	
==>d PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2759	2850	
==>d PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18116	18213	
==>compiler is called it only gets the source code that it should be
looking at.

This section descri <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18116	18213	
==>compiler is called it only gets the source code that it should be
looking at.

This section descri <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21128	21264	
==>ltin is unsafe {
  my sub opRequire() { 
    $use_
      ?? Pugs::Internals::use($module)
      !! Pugs::Internals::require($module);
  } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10221	10322	
==>ars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10221	10322	
==>ars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4749	4850	
==>->force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  $self->add_handler('\S <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8775	8873	
==>users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8775	8873	
==>users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	969	1068	
==>}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	969	1068	
==>}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	969	1068	
==>}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2341	2457	
==>il_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2341	2457	
==>il_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2341	2457	
==>il_from_p6($p6);
        print $pil,"\n" if $verbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2168	2247	
==>coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2168	2247	
==>coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2168	2247	
==>coerce:|self:|term:|postcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	412	552	
==>stanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	412	552	
==>stanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	412	552	
==>stanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var value = pairs[i]
          ? pairs[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6009	6144	
==>}
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, nul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6009	6144	
==>}
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, nul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6009	6144	
==>}
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, nul <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4381	4491	
==>! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7858	7968	
==>! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6842	6952	
==>! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relat <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5519	5617	
==>head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcom <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5519	5617	
==>head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1520	1626	
==>model_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "preco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1520	1626	
==>model_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "preco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1520	1626	
==>model_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "preco <==
3	/Users/nnunley/pugs/util/version_h.pl	280	396	
==>PUGS_SVN_REVISION (\d+)/ or next;
    $old_revision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8971	9093	
==>m  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8971	9093	
==>m  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8971	9093	
==>m  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($lis <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16909	17068	
==>subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2168	2272	
==>>( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2168	2272	
==>>( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35940	36041	
==>ng common tuple values are aligned and merged.  The heading
of the new relation is the union of the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40490	40591	
==>ng common tuple values are aligned and merged.  The heading
of the new relation is the union of the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40104	40205	
==>ng common tuple values are aligned and merged.  The heading
of the new relation is the union of the in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	912	1019	
==>e.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	912	1019	
==>e.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	912	1019	
==>e.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2332	2433	
==>);
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referenc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2332	2433	
==>);
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referenc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2332	2433	
==>);
    var thing = args[1].FETCH();
    if(thing.referencee && thing.autoderef) thing = thing.referenc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22692	22788	
==>l possibly useful details, so
that each Template can optionally use them; but often a template wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22692	22788	
==>l possibly useful details, so
that each Template can optionally use them; but often a template wi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9741	9874	
==>source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6082	6215	
==>source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6931	7064	
==>source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1921	2085	
==>a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1921	2085	
==>a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1921	2085	
==>a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15409	15535	
==>d char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15403	15529	
==>d char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9953	10069	
==>s($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9953	10069	
==>s($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9953	10069	
==>s($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8894	9032	
==>2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8894	9032	
==>2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6816	6905	
==>atch($Perl_prog,<<'END'); print Dumper $m; print $m->describe;
token whitespace:<basic_whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4571	4695	
==>pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4571	4695	
==>pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4571	4695	
==>pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$read_fh>;
}

sub run_js {
  my $js = shift;
  diag $cfg{js};

  my $pid = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1668	1785	
==>,
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1668	1785	
==>,
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1668	1785	
==>,
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2752	2858	
==>/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$fi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2752	2858	
==>/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2640	2752	
==>nfess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2640	2752	
==>nfess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2640	2752	
==>nfess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19978	20085	
==>anually using a set of mappings, or a multi-dimensional object Hash,
or various combinations of other data t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24530	24637	
==>anually using a set of mappings, or a multi-dimensional object Hash,
or various combinations of other data t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23082	23189	
==>anually using a set of mappings, or a multi-dimensional object Hash,
or various combinations of other data t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11613	11733	
==>R::status();
          my $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.rea <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2049	2165	
==>R::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.rea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2049	2165	
==>R::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3153	3276	
==>} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3153	3276	
==>} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3153	3276	
==>} =
            ( defined $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4666	4772	
==>ble options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4666	4772	
==>ble options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4666	4772	
==>ble options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17359	17554	
==>)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17359	17554	
==>)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17359	17554	
==>)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3844	3946	
==>bel for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3844	3946	
==>bel for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3844	3946	
==>bel for WALKMETH";
        warn "::WALKMETH called for ($label) ... for " . $opts{for} if $DISPATCH_TRA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2978	3098	
==>ar i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2978	3098	
==>ar i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2978	3098	
==>ar i = 0; i < pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3630	3746	
==>later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3630	3746	
==>later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3630	3746	
==>later.
# Why don't eval the sub declarations immediately?
#   Because then we can't use them anymore. E.g.:
#     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1186	1292	
==>_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	925	1026	
==>_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1130	1231	
==>_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lvalue { shift->{attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3186	3288	
==>turncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3186	3288	
==>turncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3186	3288	
==>turncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @vars_to_restore) = @_;

  my $res <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1670	1861	
==>ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { named_capture => {
                ident => $_[0]{ident}(),
                rule  => $_[0]{rule}(),
            }, } 
        }
    } <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7456	7630	
==>efined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7456	7630	
==>efined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.c <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1320	1419	
==>$item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method inve <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1320	1419	
==>$item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method inve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3720	3816	
==>$bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3720	3816	
==>$bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4310	4406	
==>$bound{$param_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1376	1474	
==>amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1376	1474	
==>amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1376	1474	
==>amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6229	6338	
==>unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37817	37916	
==>y (a string).  Assuming that a Perl module by the given module name
is already loaded, it tries to i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37817	37916	
==>y (a string).  Assuming that a Perl module by the given module name
is already loaded, it tries to i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4456	4570	
==>_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4456	4570	
==>_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4456	4570	
==>_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17294	17430	
==>cale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data typ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17294	17430	
==>cale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data typ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22656	22754	
==>wer(C1x)), code_type(C2,to_lower(C2x)),
   C1x =< Cx, Cx =< C2x, !.
charset_member(_,C,[class_pos(X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5556	5663	
==>in_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5556	5663	
==>in_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5556	5663	
==>in_js = $fixed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	105	256	
==>ces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tri <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	105	256	
==>ces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3240	3367	
==>dd_packages {
#     my $self = shift;
#     my @ret;
# 
#     push @ret, $self->add_package(package => $_) for @_;
# 
#     retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24362	24459	
==>t they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a com <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24362	24459	
==>t they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1938	2038	
==>l_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1938	2038	
==>l_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1938	2038	
==>l_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef, undef, undef, $full_na <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1746	1903	
==>| 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1746	1903	
==>| 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5186	5289	
==>push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Regexp::Parser::anyo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4995	5114	
==>: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!da <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4995	5114	
==>: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!da <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13219	13316	
==>, [D0|D]) }.
digits([D|T]) --> digit(D), digits(T), !.
digits([])    --> [].
digit(D) --> [D], { c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16520	16638	
==>s $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16520	16638	
==>s $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16520	16638	
==>s $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($label, for => 'private <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1315	1416	
==>function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1315	1416	
==>function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1315	1416	
==>function (splitter, str) {
      return String(str).split(String(splitter));
    }
  )')(~$splitter, ~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3977	4110	
==>ss);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        loc <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5059	5151	
==>de.pm --pugs ./pugs.exe [options]

Creates a Prelude.hs fallback or a Prelude.pm.yml file (wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3419	3519	
==>([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3419	3519	
==>([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3419	3519	
==>([List]), Perl6 version
# TODO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5989	6116	
==>s $current->{env}->{$name}) {
            $current->{env}->{$name}->store($value);
            return;
        }
        $curren <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2446	2546	
==>.}


# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4177	4299	
==>->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4177	4299	
==>->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4767	4889	
==>->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37902	37993	
==>, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37902	37993	
==>, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12529	12634	
==>t be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12529	12634	
==>t be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12529	12634	
==>t be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6840	6959	
==>OSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6840	6959	
==>OSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6840	6959	
==>OSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_']         = _24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9661	9761	
==>alue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9661	9761	
==>alue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9661	9761	
==>alue',1])   if $is_lvalue;
	push(@info,['lazy',1])     if $is_lazy;
	push(@info,['named',1])    if $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9103	9246	
==>$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9103	9246	
==>$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9103	9246	
==>$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11836	11923	
==>als::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11836	11923	
==>als::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_h <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11836	11923	
==>als::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_h <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	767	881	
==>$current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_t <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	767	881	
==>$current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4572	4675	
==>self = shift;
	my $node = shift;

	$self->{dups}->includes($node->orig);
}

sub reduce_val {
	my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1982	2087	
==>('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1982	2087	
==>('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1982	2087	
==>('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(' <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	295	420	
==>se)
            returns Num { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base) returns Num
    { ... };

multi sub pi is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	264	357	
==>since last_modified
    content_type content_encoding content_length content_language
    titl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	264	357	
==>since last_modified
    content_type content_encoding content_length content_language
    titl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29406	29528	
==>O' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nomb <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29406	29528	
==>O' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nomb <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	230	340	
==>O' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nomb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17830	17937	
==>ace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17830	17937	
==>ace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17830	17937	
==>ace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12668	12775	
==>op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12668	12775	
==>op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12668	12775	
==>op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1833	1925	
==>my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1833	1925	
==>my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1833	1925	
==>my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/) {
    no strict "r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6244	6357	
==>print "token: $$t[0] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	350	454	
==>iable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	350	454	
==>iable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13655	13756	
==>xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13655	13756	
==>xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13655	13756	
==>xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5408	5522	
==>k a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5408	5522	
==>k a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5408	5522	
==>k a LOCATE method would 
be helpful as well. It would take a fully qualified name, and attempt to 
locate the item. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4849	4955	
==>supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4849	4955	
==>supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4849	4955	
==>supported yet" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2354	2464	
==>psrc, $self->config->build_dir ) )
#                 or error( "Could not remove metadir from '$tmpdir" ), retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3613	3699	
==>-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :fla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3797	3883	
==>-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1028	1127	
==>_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1028	1127	
==>_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1028	1127	
==>_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11249	11394	
==>od section, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11249	11394	
==>od section, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20215	20316	
==>ber(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0,E0,E0) :- <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17572	17712	
==>$syn_ref = $syn_indexs->{ substr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($reg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2350	2509	
==>@res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2350	2509	
==>@res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2350	2509	
==>@res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1241	1361	
==>dr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1241	1361	
==>dr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	35	146	
==>$a ~~ $b;    # smart-match, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6550	6659	
==>the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10027	10136	
==>the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9119	9228	
==>the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

mu <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6568	6664	
==>method _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6568	6664	
==>method _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	847	952	
==>_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	847	952	
==>_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @. <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	526	646	
==>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => "simple concatenation",
	},
	{
		ast => App(
			Sy <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17202	17301	
==>+1 length of the array.
Other than that, we can do anything we want with it.
This is perhaps the mos <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22302	22401	
==>+1 length of the array.
Other than that, we can do anything we want with it.
This is perhaps the mos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1760	1873	
==>ech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1760	1873	
==>ech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1760	1873	
==>ech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coerce 
#        the Code into a Hash, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19911	20003	
==>parsed into blocks and the blocks have been
marked for various compilers, Module::Compile dis <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19911	20003	
==>parsed into blocks and the blocks have been
marked for various compilers, Module::Compile dis <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30760	30852	
==>ion of each tuple), but
that any duplicates following the transformation have been eliminated <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35311	35403	
==>ion of each tuple), but
that any duplicates following the transformation have been eliminated <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34502	34594	
==>ion of each tuple), but
that any duplicates following the transformation have been eliminated <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4015	4135	
==>my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4015	4135	
==>my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_sta <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3589	3691	
==>getclass "PGE::Exp::Subrule"
    $P1 = subclass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5753	5856	
==>,
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5753	5856	
==>,
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5753	5856	
==>,
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13540	13637	
==>_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exceptio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13540	13637	
==>_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exceptio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13540	13637	
==>_last_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exceptio <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30075	30188	
==>ant') # C3 is the canonical order
                    if $order == $nil::NIL || $order->equal_to(str->new(':canoni <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2092	2186	
==>me::Module> called C<note> without providing any tags, it 
would look for a tag named C<Module> <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2092	2186	
==>me::Module> called C<note> without providing any tags, it 
would look for a tag named C<Module> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5301	5400	
==>expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5301	5400	
==>expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5301	5400	
==>expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1636	1752	
==>navailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insuffici <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1636	1752	
==>navailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insuffici <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4265	4377	
==>s, 1;
  if (( index "<>[](){}:*?+|&^\$.", $initchar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7790	7928	
==>$tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7790	7928	
==>$tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7790	7928	
==>$tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25727	25827	
==>e key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-emp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25727	25827	
==>e key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-emp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11469	11560	
==>--> "(?#", !, p5_comment_body(L), ")".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1521	1630	
==>»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1521	1630	
==>»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1521	1630	
==>»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2, "S", "String(a) == String(b)",
  "infix:«ne» <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5752	5875	
==>span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5752	5875	
==>span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	220	329	
==>shift;
	$name => Thunk(
		Seq(
			(map { Param($_) } @params),
			Stub($name),
		)
	)
}

sub mk_constructors { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9927	10091	
==>lf: Int $num = 1, Str $reason = 'skipped' )
  {
      for 1 .. $num
      {
          $self.report_test(
              Test::Builder::Test.new(
                  ski <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1992	2144	
==>lf: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                ski <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1992	2144	
==>lf: Int $num = 1, Str $reason = 'skipped' )
{
    for 1 .. $num
    {
        $self.report_test(
            Test::Builder::Test.new(
                ski <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5026	5130	
==>nd(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5026	5130	
==>nd(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5026	5130	
==>nd(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 40,\"\\n\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	137	238	
==>e(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <Es <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	137	238	
==>e(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <Es <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26232	26332	
==>tor::arrow->new(
		type::operator::nary->new(list => $a),
		type::operator::arrow->new(
            t <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5106	5229	
==>ll be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @he <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5106	5229	
==>ll be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @he <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1783	1942	
==>eturn $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1783	1942	
==>eturn $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3235	3343	
==>= PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStac <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1945	2058	
==>i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1945	2058	
==>i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12382	12495	
==>nboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12382	12495	
==>nboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12382	12495	
==>nboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) } <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	420	523	
==>sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	420	523	
==>sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	367	465	
==>2,4... doesnt add much clarity, given the cruft
of wrapping a map and join around the macro string. <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7736	7846	
==>US(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3172	3267	
==>list of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3172	3267	
==>list of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1713	1939	
==>FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  q <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1216	1314	
==>l security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1216	1314	
==>l security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2285	2522	
==>ool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1045	1218	
==>ool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1045	1218	
==>ool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3450	3551	
==>fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3450	3551	
==>fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3450	3551	
==>fail("When calling a method, the method name must be a simple string!")
      if $self->{pInv} and (no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14183	14313	
==>T' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14183	14313	
==>T' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8432	8552	
==>[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8432	8552	
==>[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8432	8552	
==>[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(un <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3965	4069	
==>elf->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamble <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2918	3020	
==>elf->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self->preamble <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1136	1235	
==>TDERR "Triggering rebuild... " if $Config{verbose};
    unlink "blib6/lib/Prelude.pm.yml";
    unlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8616	8725	
==>ugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;"). <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8616	8725	
==>ugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;"). <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8616	8725	
==>ugs;

sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;"). <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36466	36561	
==>uence in which any two source relations are
combined is inconsequential.  A trivial case is wher <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41015	41110	
==>uence in which any two source relations are
combined is inconsequential.  A trivial case is wher <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40629	40724	
==>uence in which any two source relations are
combined is inconsequential.  A trivial case is wher <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2626	2724	
==>prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2626	2724	
==>prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2626	2724	
==>prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6281	6387	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6281	6387	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6281	6387	
==>f ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy slice <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8857	8997	
==>.indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11783	11877	
==>ric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11783	11877	
==>ric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5836	6001	
==>hifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5836	6001	
==>hifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5836	6001	
==>hifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2476	2589	
==>l];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2476	2589	
==>l];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2476	2589	
==>l];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1580	1711	
==>eturn
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1580	1711	
==>eturn
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1580	1711	
==>eturn
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5078	5173	
==>The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (op <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5078	5173	
==>The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7275	7370	
==>The test's description (optional).

=item B<Str $.diagnostic>

The test's diagnostic message (op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4177	4296	
==>'$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4177	4296	
==>'$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4177	4296	
==>'$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4868	4991	
==>($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4868	4991	
==>($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4868	4991	
==>($ret);

    # TODO - add tests for this error message
    # fail "can't instantiate an infinite list"
    #     if $ret->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3888	3989	
==>S::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3888	3989	
==>S::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3888	3989	
==>S::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2323	2471	
==>.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2323	2471	
==>.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2323	2471	
==>.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3546	3655	
==>n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3546	3655	
==>n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $htm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3546	3655	
==>n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"></script>" };

    my $htm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2514	2669	
==>t:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2514	2669	
==>t:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	246	349	
==>mc/;
# test file dates
my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $filename));
# print "up to dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10318	10427	
==>inter for next match (end+1)
    match - positional submatches
    named - named submatches
    capture - r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11914	12064	
==>\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11914	12064	
==>\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	455	557	
==>etailed analysis of test results

=head1 SYNOPSIS

  use Test::Harness::Straps;

  my $strap = Test::Ha <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1711	1852	
==>e.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1711	1852	
==>e.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	599	696	
==>("name") && exists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10745	10855	
==>ng );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14222	14332	
==>ng );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13521	13631	
==>ng );

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	813	959	
==>ndefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub state <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	813	959	
==>ndefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub state <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	813	959	
==>ndefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

sub state <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6382	6499	
==>s {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6382	6499	
==>s {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6382	6499	
==>s {
    my $self = shift;
    local $_;

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @PIL::IN_SU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4706	4807	
==>TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=ba <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4706	4807	
==>TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6903	7004	
==>TODO test.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2881	2988	
==>round.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2881	2988	
==>round.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2881	2988	
==>round.
    $name = "&".$name if $name =~ /^__export_/; # XXX - pugsbug? workaround.
    $name =~ /([\$\@\%\& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3336	3464	
==>ent_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3336	3464	
==>ent_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3336	3464	
==>ent_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2006	2148	
==>->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2199	2341	
==>->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1797	1892	
==>ss);
    $optable->addToken("term:<+[", "term:", "nows", &parse_enumclass);
    $optable->addTok <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33556	33653	
==>m C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33556	33653	
==>m C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elem <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17248	17343	
==>y Changes

There are now abstract classes I<anchor> and I<assertion>. You can't call
their new() <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2256	2388	
==>s, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6742	6878	
==>ell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6742	6878	
==>ell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6742	6878	
==>ell')->{tieable} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1619	1727	
==>fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1619	1727	
==>fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1619	1727	
==>fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Un <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3345	3435	
==>nite::Functional $span ) returns Set::Infinite::Functional {
    return $self.intersection( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3345	3435	
==>nite::Functional $span ) returns Set::Infinite::Functional {
    return $self.intersection( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4295	4430	
==>ure, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4164	4295	
==>ure, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12311	12430	
==>xDigit>
}
rule HexDigit {  # see 9.3.1
      <[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33597	33690	
==>eturns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<diffe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38147	38240	
==>eturns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<diffe <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3724	3836	
==>.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loadi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3782	3894	
==>.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loadi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5427	5531	
==>y @exps;

		$self->enter_scope;
		while(@children) {
			my $sub = shift @children;
			if ($sub->struct_eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7156	7258	
==>');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7156	7258	
==>');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7156	7258	
==>');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join '-' => ($::SELF->na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	559	682	
==>$const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# imple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	559	682	
==>$const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1171	1267	
==>the main namespace for your tastes, and
you want to rebless everything down to your project's bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1171	1267	
==>the main namespace for your tastes, and
you want to rebless everything down to your project's bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1171	1267	
==>the main namespace for your tastes, and
you want to rebless everything down to your project's bas <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10148	10255	
==>F
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8914	9015	
==>s_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8972	9073	
==>s_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24488	24586	
==>s Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29040	29138	
==>s Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=ite <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1860	1956	
==>a p5->p6 regexp syntax converter!  A
#cpan module even. Write methods which return the p6 version <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7347	7446	
==>accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7347	7446	
==>accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	327	440	
==>join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	327	440	
==>join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	327	440	
==>join "|", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4679	4797	
==>,"regexp_hook_exec failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pop <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20176	20268	
==>s a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20176	20268	
==>s a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will se <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13338	13442	
==>lable in the index (eval $loc failed: $@)" if $@;
  $total_links += $links;
  $total_files++;
  $outfile- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5814	5912	
==>ICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5814	5912	
==>ICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5814	5912	
==>ICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4293	4421	
==>{
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4293	4421	
==>{
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4293	4421	
==>{
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad dispatch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20864	21019	
==>x->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40441	40534	
==>pyright notice and other
credits. Locale::KeyedText is distributed in the hope that it will be <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40441	40534	
==>pyright notice and other
credits. Locale::KeyedText is distributed in the hope that it will be <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7008	7131	
==>{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7008	7131	
==>{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7008	7131	
==>{}]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub pr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4478	4582	
==>returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4478	4582	
==>returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6002	6106	
==>returns a new Test::Builder instance.  It
takes the same optional named arguments as C<new>.

=item B<pla <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	928	1069	
==>\\textbackslash{}";
	    return;
	} elsif ($chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18384	18481	
==>ave found that when it comes to getting the most accurate program text
for users, we still get the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18384	18481	
==>ave found that when it comes to getting the most accurate program text
for users, we still get the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1315	1419	
==>, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1315	1419	
==>, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1315	1419	
==>, subtract, sqrt, ...
#   are implemented using multisubs
# - 'Ref' do not auto-deref List or any other V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	548	652	
==>uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	548	652	
==>uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	548	652	
==>uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5789	5966	
==>t
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5789	5966	
==>t
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5789	5966	
==>t
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts ... add method
                $self->add_method($met <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3597	3726	
==>$got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3597	3726	
==>$got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5121	5250	
==>$got eq $expected, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3043	3160	
==>" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3043	3160	
==>" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3043	3160	
==>" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each element of @a w <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12281	12378	
==>&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12281	12378	
==>&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	386	483	
==>ype
has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl::Type $.one;
has P <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	458	549	
==>urce> property, and adds nothing else.

More specialised processing instructions may sub-cla <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	458	549	
==>urce> property, and adds nothing else.

More specialised processing instructions may sub-cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7859	7965	
==>$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7859	7965	
==>$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7859	7965	
==>$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8099	8215	
==>ype};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8099	8215	
==>ype};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8099	8215	
==>ype};
  }
}

# Returns the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = unde <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13770	13891	
==>val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduc <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1250	1371	
==>val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2215	2314	
==>ch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( '"' . $_[0], '" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1029	1122	
==>$head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1029	1122	
==>$head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1029	1122	
==>$head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) {
      my $name = $head- <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2461	2618	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2461	2618	
==>ement => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                } <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17726	17825	
==>y->new("str")),
);

# the polymorphic snd function takes any pair and returns it's second thingy
# ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1411	1524	
==>ox.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1411	1524	
==>ox.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1411	1524	
==>ox.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13821	13935	
==>live.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autoping second <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13821	13935	
==>live.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autoping second <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	154	262	
==>Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file {
    my ($self, %args) = @_;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1162	1261	
==>\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2128	2233	
==>$dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it' <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2128	2233	
==>$dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3759	3863	
==>length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3759	3863	
==>length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3759	3863	
==>length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterators, ...
# TODO - tes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12340	12440	
==>ous
value for that field is set.

The header field name ($field) is not case sensitive and '_'
can be <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12340	12440	
==>ous
value for that field is set.

The header field name ($field) is not case sensitive and '_'
can be <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9760	9857	
==>)` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9760	9857	
==>)` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16307	16491	
==>\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16301	16485	
==>\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            } <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1310	1452	
==>::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int $count = 0;
        has Array of Str @strings;

        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6545	6651	
==>LF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6545	6651	
==>LF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6545	6651	
==>LF/g;
    $method_source =~ s/\$\?CLASS/\$\:\:CLASS/g;   
    
    $method_source =~ s/next METHOD/\:\:next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	436	530	
==>se FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	436	530	
==>se FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	436	530	
==>se FindBin;
use File::Spec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	570	681	
==>ess({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	570	681	
==>ess({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Cl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	570	681	
==>ess({ __VALUE__ => 7}, 'ASeven'),
      eight => bless({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11174	11277	
==>ce) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11174	11277	
==>ce) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13636	13721	
==>exdigit(D3), {number_chars(I,[42,120,D0,D1,D2,D3])}.
hexdigits2_int(I) -->
  hexdigit( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2386	2495	
==>::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2386	2495	
==>::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2386	2495	
==>::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2173	2309	
==>q ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2173	2309	
==>q ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2173	2309	
==>q ("is"|"si");
      warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10688	10843	
==>return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10688	10843	
==>return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10688	10843	
==>return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1753	1889	
==>nktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1753	1889	
==>nktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2355	2475	
==>1 NAME

Blondie::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a node

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13585	13685	
==>xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13585	13685	
==>xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13585	13685	
==>xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2715	2838	
==>d $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2715	2838	
==>d $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2715	2838	
==>d $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2620	2719	
==>ssed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.e <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2620	2719	
==>ssed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.e <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	604	703	
==>ect model object called the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes" });

# t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16611	16733	
==>cript" : "scripts";
        die "FAILED--$tot->{tests} test $blurb could be run, ".
            "alas--no output ever seen\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22729	22816	
==>2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22729	22816	
==>2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2349	2492	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2542	2685	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	25	284	
==>use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	25	284	
==>use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	208	321	
==>tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	208	321	
==>tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	208	321	
==>tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	605	720	
==>rs ) {
        my $inst = JIB::Installation->new( dir => $dir )
            or error( "Could not create JIB::Install <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3606	3719	
==>turn ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3606	3719	
==>turn ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	296	435	
==>}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	296	435	
==>}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	296	435	
==>}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13725	13825	
==>xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13725	13825	
==>xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13725	13825	
==>xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1243	1348	
==>Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1243	1348	
==>Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1243	1348	
==>Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2543	2647	
==>ormalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2543	2647	
==>ormalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2890	2994	
==>ormalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formalize([ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2884	3008	
==>SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $met <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2884	3008	
==>SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $met <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8715	8823	
==>wer => $neg, $how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2593	2751	
==>ass->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2593	2751	
==>ass->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2593	2751	
==>ass->class->class != $::EigenClass         &&
        $self->class               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7203	7312	
==>fess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7203	7312	
==>fess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7203	7312	
==>fess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1955	2087	
==>$fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1933	2065	
==>$fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7760	7865	
==>_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7760	7865	
==>_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7760	7865	
==>_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7935	8037	
==>o reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7935	8037	
==>o reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15310	15407	
==>g to use a string at a level higher it can support is handled
without warning. The highest support <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30272	30370	
==>ted at run-time before the text
is shown to the user.

Each Template module ideally comes as part o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30272	30370	
==>ted at run-time before the text
is shown to the user.

Each Template module ideally comes as part o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2857	3002	
==>turn unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2746	2886	
==>turn unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32019	32116	
==>o throw your own error, see L</"ERROR HANDLING">.

=back

=head2 Walking an Object

Most objects i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2041	2189	
==>($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2041	2189	
==>($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15275	15423	
==>$end->pindex;

            my $name = join '', 
              map {$_->attr('text')} 
                $beg->look_down(_tag=>'~text');

            $n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26963	27061	
==>_DIR>

When set to the name of a directory, harness will check after each
test whether new files ap <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16350	16442	
==>lechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16408	16500	
==>lechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1280	1400	
==>for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1280	1400	
==>for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1280	1400	
==>for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12893	13006	
==>e::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12893	13006	
==>e::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12893	13006	
==>e::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5603	5701	
==>y $ghc_version = shift;
    #my @o = qw( src/pcre/pcre.o src/syck/bytecode.o src/syck/emitter.o src <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2361	2455	
==>size && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $oth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2361	2455	
==>size && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3204	3313	
==>ALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3204	3313	
==>ALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3204	3313	
==>ALAR') {
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2899	3033	
==>tance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2899	3033	
==>tance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2899	3033	
==>tance_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1734	1870	
==>$_";
        $rule_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17520	17611	
==>ine the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17520	17611	
==>ine the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2282	2398	
==>p('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2282	2398	
==>p('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2629	2745	
==>p('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37456	37552	
==>orementioned binary join()
operator, and the order of its arguments is not significant to the res <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42005	42101	
==>orementioned binary join()
operator, and the order of its arguments is not significant to the res <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41646	41742	
==>orementioned binary join()
operator, and the order of its arguments is not significant to the res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	516	636	
==>de => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	516	636	
==>de => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	516	636	
==>de => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7047	7155	
==>o_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7047	7155	
==>o_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7047	7155	
==>o_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5708	5813	
==>&infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5708	5813	
==>&infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5708	5813	
==>&infix:{"»+«"} := &infix:{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3310	3402	
==>gns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the paramet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3310	3402	
==>gns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the paramet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10376	10483	
==>X - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10376	10483	
==>X - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10376	10483	
==>X - don't use splice on slices, because it drops bindings
            $ary->splice( $start, $slice_size, @it <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6673	6786	
==>);
    return $Result4;
}

# 9.5
multi sub ToInt32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Resul <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4048	4159	
==>ONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1 <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4048	4159	
==>ONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10894	11084	
==>ms;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10894	11084	
==>ms;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10894	11084	
==>ms;
                        return 1;
                    }
                    # return 1 if $i > scalar $#{ $self->params } && $i > scalar $#params;
                    return (0,"err2") if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11889	12018	
==>ure => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$name', \n" . $program . "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16059	16156	
==>me they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> fil <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16059	16156	
==>me they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6854	6964	
==>($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6854	6964	
==>($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6854	6964	
==>($self => '$:version') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23168	23263	
==>other automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23168	23263	
==>other automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2959	3065	
==>2eedc532\n");exit(0);}
    start = stringarg-strbeg;

    fprintf(stderr,"regexp_exechook_hook\n");
    fpr <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	458	558	
==>ame", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	458	558	
==>ame", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11840	11926	
==>:eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_hask <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11840	11926	
==>:eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_hask <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11840	11926	
==>:eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_hask <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5405	5517	
==>etcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ sour <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5405	5517	
==>etcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ sour <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5405	5517	
==>etcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ sour <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1948	2057	
==>next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }


 multi sub Perl6::Hash::reverse (%hash) return <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1020	1122	
==>matchObj;
}

sub alpha {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesI <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4494	4591	
==>on of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only functi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4494	4591	
==>on of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only functi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13012	13175	
==>symbol->new('$canidate' => 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                returns => 'opaque <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3266	3417	
==>$response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $ag <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3266	3417	
==>$response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $ag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7942	8098	
==>verse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7942	8098	
==>verse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7942	8098	
==>verse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3460	3579	
==>$s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3460	3579	
==>$s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29453	29559	
==>e.  Returns true if
the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4313	4600	
==>0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                }      

                last LINK <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2483	2710	
==>defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbat <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2483	2710	
==>defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1459	1577	
==>ted_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1470	1588	
==>ted_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        rul <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3681	3779	
==>my $class_that_should_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPER::new;

	$self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6384	6492	
==>n" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6384	6492	
==>n" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6384	6492	
==>n" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visited by Class::Reb <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15870	15994	
==>ntax highlighting).

=item Regexp::Reverse (difficulty rating: ****)

Reverses a regex so it matches backwards.  Ex.: C</\s+$ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	250	351	
==>y $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{ <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	250	351	
==>y $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4665	4753	
==>val(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4665	4753	
==>val(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protec <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4665	4753	
==>val(<<'E$n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15160	15269	
==>( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15160	15269	
==>( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15160	15269	
==>( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9535	9635	
==>'?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9535	9635	
==>'?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9535	9635	
==>'?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is_i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4168	4264	
==>meter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4168	4264	
==>meter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6365	6461	
==>meter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14987	15083	
==>ort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18464	18560	
==>ort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17880	17976	
==>ort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9478	9678	
==>1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9478	9678	
==>1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+) <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	216	301	
==>erl6.language/20985
  docs/quickref/rules
  http://search.cpan.org/dist/Perl6-Bible/li <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2206	2316	
==>pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->bundles) {
        push @$dir, map "$_->[1]", @{$self->b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8898	8991	
==>le(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2723	2816	
==>le(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16064	16220	
==>hift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16064	16220	
==>hift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16064	16220	
==>hift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12816	12918	
==>nperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runp <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2058	2161	
==>ore a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2058	2161	
==>ore a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	76	179	
==>var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12199	12293	
==>s out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12199	12293	
==>s out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&e <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4009	4144	
==>"iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4009	4144	
==>"iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => ' <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3744	3838	
==>tanh';
trig_func 'asinh';
trig_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_func 'co <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	1	84	
==>line 1 "inc/Module/Install/Include.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9476	9564	
==>m_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9476	9564	
==>m_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9476	9564	
==>m_x(eval("require ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3653	3755	
==>p::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::Parser bug fix/workaround
    package Regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1322	1426	
==>errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1322	1426	
==>errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1322	1426	
==>errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($mod, @imports);
}

sub PIL2JS::Interna <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6375	6474	
==>b is_placeholder {
		my $self = shift;
		my $type = $self->simplify_type(shift);

		Scalar::Util::bl <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15419	15510	
==>s::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15419	15510	
==>s::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_ <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	676	862	
==>mbers
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we represent them all as attributes
                  at <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2734	2840	
==>($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2734	2840	
==>($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36903	37027	
==>r';

  sub init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10710	10809	
==>[$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsaf <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10710	10809	
==>[$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsaf <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1760	1910	
==>func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1760	1910	
==>func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8047	8162	
==>urn p6_macrop5($1)->(@args);
    }
    if($has_inv) {
	my $fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4187	4294	
==>ce argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4187	4294	
==>ce argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4187	4294	
==>ce argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38242	38338	
==>tem C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42791	42887	
==>tem C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42441	42537	
==>tem C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2832	3008	
==>= any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SEL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6309	6485	
==>= any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SEL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1101	1193	
==>use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1101	1193	
==>use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6043	6145	
==>})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6043	6145	
==>})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6043	6145	
==>})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $se <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3136	3229	
==>intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.inc <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3136	3229	
==>intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.inc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1068	1161	
==>t->registered_alternatives_file

=cut

sub registered_alternatives_file {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7210	7336	
==>PE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7210	7336	
==>PE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8595	8689	
==>nings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkretu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8595	8689	
==>nings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkretu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8595	8689	
==>nings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkretu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12591	12685	
==>rent working features.

This module deals with encoding and decoding of strings with HTML
chara <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12591	12685	
==>rent working features.

This module deals with encoding and decoding of strings with HTML
chara <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	560	705	
==>nstance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatcha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	765	910	
==>nstance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatcha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	821	966	
==>nstance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatcha <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2533	2668	
==>ocale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2533	2668	
==>ocale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3184	3282	
==>pod

=head1 NAME

Blondie::Prelude::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie: <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1480	1571	
==>t.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a director <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1320	1411	
==>t.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a director <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8383	8573	
==>die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8847	9037	
==>die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6017	6139	
==>at range as absolute
        $pass = ($got <= $range) && ($got >= - $range);
    } else {
        my $diff = $got - $expect <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4415	4540	
==>ed $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4415	4540	
==>ed $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4415	4540	
==>ed $role_name;
    # obviously if we are a role, we do Role, 
    # and the same goes for Class too, this
    # is a special c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5335	5453	
==>or @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5335	5453	
==>or @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21681	21790	
==>ailed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str = "List o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16720	16835	
==>tribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16720	16835	
==>tribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16720	16835	
==>tribute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1077	1242	
==>x:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1077	1242	
==>x:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7638	7744	
==>arams[0] $thunk $params[1] )";
	} else {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	102	223	
==>g;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least on <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	111	232	
==>g;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6962	7100	
==>| $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6962	7100	
==>| $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6962	7100	
==>| $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $para <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6417	6508	
==>:Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::F <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6417	6508	
==>:Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::F <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2656	2760	
==>=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2656	2760	
==>=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4180	4284	
==>=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1324	1416	
==>bject, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1324	1416	
==>bject, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1324	1416	
==>bject, $::Package, $::Module, $::Role, $::EigenClass) {
    ::opaque_instance_add_new_attribu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19473	19591	
==>ments, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19752	19870	
==>ments, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $ru <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9504	9593	
==>@args,"invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=>1") if $op{'isLValue'};
	p <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1744	1849	
==>_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1744	1849	
==>_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1783	1928	
==>AV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1783	1928	
==>AV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &H <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15277	15402	
==>umper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ) {
        return _emit( $n->{exp1} ) . $n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2964	3098	
==>pture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "\n    {\n" . emit($_[0]) . "\n    }\n";
}
su <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1273	1377	
==>Time::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Wit <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1273	1377	
==>Time::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Wit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2911	3026	
==>ne &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # De <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2911	3026	
==>ne &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # De <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1206	1302	
==>y(@developers);
# @devs_till_day should have the same length as @commits_till_day --
# fill if ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6312	6404	
==>"PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6312	6404	
==>"PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6312	6404	
==>"PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	418	522	
==>> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing Syste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	418	522	
==>> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing Syste <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	418	522	
==>> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing Syste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	839	957	
==>s all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	839	957	
==>s all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	839	957	
==>s all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6133	6264	
==>=~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6133	6264	
==>=~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6133	6264	
==>=~ /^_/) {
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{methods} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31173	31321	
==>i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31173	31321	
==>i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31173	31321	
==>i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1580	1680	
==>ommand_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
comman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1580	1680	
==>ommand_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
comman <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1580	1680	
==>ommand_conf(preludepc      => $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
comman <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2904	3017	
==>$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2904	3017	
==>$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2904	3017	
==>$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5740	5915	
==>tr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5740	5915	
==>tr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5740	5915	
==>tr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of the at <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5401	5537	
==>elems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstrin <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5401	5537	
==>elems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstrin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5289	5397	
==>ecified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5289	5397	
==>ecified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5289	5397	
==>ecified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead linked to
using t <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1115	1270	
==>k.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_pack <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1115	1270	
==>k.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_pack <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19625	19730	
==>t ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversions::Ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	21	121	
==>JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	21	121	
==>JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	21	121	
==>JS;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Ex <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10751	10890	
==>entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10751	10890	
==>entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6478	6561	
==>_infix_decl','\s*multi\s+(infix:<(.+?)>)\s+\([^\)]*\)\s+((?:is (?:looser|tighter|equ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30468	30562	
==>transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35019	35113	
==>transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34201	34295	
==>transformer> is invoked for each
original tuple/Mapping in turn, which it gets as its sole read <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11598	11715	
==>---------------

With this Role meta-model , any Class instances, themselves does Role since they
are just instances o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11598	11715	
==>---------------

With this Role meta-model , any Class instances, themselves does Role since they
are just instances o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11598	11715	
==>---------------

With this Role meta-model , any Class instances, themselves does Role since they
are just instances o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6946	7131	
==>\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( exists $n->{self}{code} ) {
            # &code.goto;
            r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8654	8781	
==>$universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8654	8781	
==>$universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3669	3807	
==>nd = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $ope <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3669	3807	
==>nd = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $ope <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	682	799	
==>our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4110	4257	
==>, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4110	4257	
==>, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implement <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4110	4257	
==>, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3039	3160	
==>ss->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3039	3160	
==>ss->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3039	3160	
==>ss->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4383	4548	
==>instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4383	4548	
==>instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4383	4548	
==>instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3946	4076	
==>y $target = File::Spec->canonpath(
            File::Spec->catfile(qw< dist build src >, $pathname)
        );
        my $wanted = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4031	4157	
==>art;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4031	4157	
==>art;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1328	1430	
==>{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<tex <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1328	1430	
==>{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<tex <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2453	2551	
==>o even scarier things to the Perl 6 class
system.

Note that the files in this distribution at C<li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	81	194	
==>_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function convert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	81	194	
==>_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function convert <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	81	194	
==>_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function convert <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13842	13962	
==>::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13842	13962	
==>::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13842	13962	
==>::Value::obj_id . $key->id
    }
    return $s;
}

sub Perl6::Value::stringify {
    my $s = shift;
    $s = $s->fetch if <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	443	561	
==>lf = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	332	434	
==>(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $m <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	332	434	
==>(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31929	32027	
==>it shown to the user, the main program would check each
of the 3 Template module sets in turn, look <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31929	32027	
==>it shown to the user, the main program would check each
of the 3 Template module sets in turn, look <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5868	6009	
==>'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5868	6009	
==>'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5868	6009	
==>'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4444	4562	
==>get.

Returns true on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3562	3648	
==>---------------------------------------------------------------

# Utility to test that <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5464	5550	
==>---------------------------------------------------------------

# Utility to test that <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	338	435	
==>) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	338	435	
==>) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	338	435	
==>) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first param is directly
# inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	172	313	
==>ess {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	172	313	
==>ess {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	172	313	
==>ess {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{tokenizer}->setDelimiter("{}();,\n\t");
    $self->{tokenizer <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	5	111	
==>ire Perl6::Run::OnPerl5::X1::PilUtil;
require Perl6::Run::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24391	24483	
==>t L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can re <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24391	24483	
==>t L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	302	427	
==>e(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n" <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	946	1044	
==>returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volum <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	946	1044	
==>returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1805	1904	
==>cture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1805	1904	
==>cture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1805	1904	
==>cture

# TODO - create base "types" and reuse - see Perl6::Param

# TODO - name_required() parameter <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14170	14268	
==>n @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17647	17745	
==>n @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9479	9660	
==>,
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9479	9660	
==>,
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9479	9660	
==>,
            'perl' => sub { 
                my $self = shift;
                my $key =   Perl6::Value::stringify( $self->key->perl );
                my $value = Perl6::Value::st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	551	653	
==>ed in an Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	551	653	
==>ed in an Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	551	653	
==>ed in an Object with
# the property .FETCH() holding the original value. This is necessary to
# emulate <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4496	4596	
==>r(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4496	4596	
==>r(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4496	4596	
==>r(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2281	2397	
==>ced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2192	2305	
==>ced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3838	3948	
==>->{seen}++;
        $result{number} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7976	8077	
==>at will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7976	8077	
==>at will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31592	31692	
==>delete its handler too.  You can use this class to
ensure that there is are no code-execution stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	800	903	
==>iler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<bl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	800	903	
==>iler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<bl <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26214	26305	
==>ground_list(C1,'undef',O).

END
#=========================================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3760	3929	
==>ell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3760	3929	
==>ell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3760	3929	
==>ell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	251	355	
==>$qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	251	355	
==>$qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	251	355	
==>$qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8481	8609	
==>er."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8481	8609	
==>er."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8481	8609	
==>er."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12701	12832	
==>UTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12701	12832	
==>UTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12701	12832	
==>UTOLOAD anywhere in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10315	10460	
==>y manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10315	10460	
==>y manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10315	10460	
==>y manner) ($a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	788	916	
==>_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	788	916	
==>_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	788	916	
==>_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24361	24487	
==>failed/$max)), "% okay";
    } else {
        push @result, "?% okay";
    }
    my $ender = 's' x ($skipped > 1);
    if ($ski <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	14113	14211	
==>tevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You mi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14113	14211	
==>tevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You mi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1368	1509	
==>er_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1368	1509	
==>er_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $c <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3682	3803	
==>file. The script appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16726	16834	
==>I SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16726	16834	
==>I SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16726	16834	
==>I SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	641	754	
==>e_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	641	754	
==>e_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	641	754	
==>e_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No ot <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4796	4960	
==>ty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.pu <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4796	4960	
==>ty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3575	3707	
==>at is the value for that attribute for that tuple.
        # Note that it is valid for a Relation::Example to have zero tuples.
    h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1312	1434	
==>signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1312	1434	
==>signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16534	16655	
==>pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15588	15701	
==>pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X: <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4797	4902	
==>droot=$cdroot
    --cdroot is the directory which will later be the / of the CD.
  --iso=$iso
    The fina <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4945	5062	
==>antiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4945	5062	
==>antiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4945	5062	
==>antiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	897	1013	
==>=> 'prel_printf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19794	19893	
==>de in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19794	19893	
==>de in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	560	655	
==>.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scienti <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	560	655	
==>.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scienti <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3166	3268	
==>TION

This test module allows you to test test modules that use Test::Builder.  It
does this by you set <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3166	3268	
==>TION

This test module allows you to test test modules that use Test::Builder.  It
does this by you set <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3246	3348	
==>TION

This test module allows you to test test modules that use Test::Builder.  It
does this by you set <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2997	3098	
==>b';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\site\lib';
    $Config{siteli <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2042	2135	
==>ackage name.  (For example, if 
a function in C<Some::Module> called C<note> without providing <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2042	2135	
==>ackage name.  (For example, if 
a function in C<Some::Module> called C<note> without providing <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6337	6456	
==>r(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194), <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6337	6456	
==>r(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	325	431	
==>use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	325	431	
==>use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	325	431	
==>use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8906	9034	
==>{}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8906	9034	
==>{}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8906	9034	
==>{}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1451	1568	
==>0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2781	2895	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2974	3088	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5457	5581	
==>(anyof_class => $S->force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  # nalnum (not a word charac <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	890	1008	
==>!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	890	1008	
==>!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3627	3781	
==>$deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4091	4245	
==>$deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	626	733	
==>imple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	626	733	
==>imple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	626	733	
==>imple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6761	6916	
==>'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7225	7380	
==>'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _p <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21221	21311	
==>-    charset_member(E0,C,Set).

class_member(class_pos(space_perl),C) :- !,   (char_type(C, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38073	38234	
==>rn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38073	38234	
==>rn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38073	38234	
==>rn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $arra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	613	741	
==>+\S+) $ # authority
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for:

    JIB::Package:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16666	16766	
==>s loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16666	16766	
==>s loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3714	3845	
==>->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3714	3845	
==>->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3714	3845	
==>->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in P <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	739	1151	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	739	1151	
==>ject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	487	624	
==>values, 0, 2)) {
        ((blessed($key)   && $key->isa('type')) && 
         (blessed($value) && $value->isa('type')))
            || con <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1659	1773	
==>ore::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.par <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1659	1773	
==>ore::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.par <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4905	4988	
==>ding/winbuild.html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12486	12639	
==>, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2862	3003	
==>, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2862	3003	
==>, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2736	2849	
==>nstant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2736	2849	
==>nstant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2736	2849	
==>nstant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS::Root::warn(*@msg) is primitive {
  my $arg = @msg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38178	38276	
==>lt tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ung <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42727	42825	
==>lt tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ung <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42377	42475	
==>lt tuples that duplicate others.

=item C<compose>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ung <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1793	1901	
==>rgs)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1793	1901	
==>rgs)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1793	1901	
==>rgs)
}

1
EOC

    $ct->eval($code) or die;

    $ct->set_error_handler(sub {
	my ($message, $lineno, $linebu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3715	3858	
==>{
   gather {
     while $shortest ?? all (@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   } <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12482	12624	
==>{
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   } <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3032	3157	
==>{
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list {
		take shift @list;
	    }
	}
    } <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4965	5180	
==>token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    el <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4965	5180	
==>token);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    el <==
3	/Users/nnunley/pugs/util/grokprims.pl	2328	2439	
==>th='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td></tr></table> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9316	9422	
==>n {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12793	12899	
==>n {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2021	2209	
==>rray' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2021	2209	
==>rray' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2021	2209	
==>rray' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1661	1770	
==>ly,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1661	1770	
==>ly,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1661	1770	
==>ly,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{preludepc} and -s $P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	836	965	
==>fined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	836	965	
==>fined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	836	965	
==>fined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || c <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8105	8209	
==>--
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reason <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8105	8209	
==>--
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reason <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8402	8505	
==>thod (opaque $self: symbol $label) returns method { 
    %:methods{$label};
}


(method get_method ((opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2563	2680	
==>gs);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2563	2680	
==>gs);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2563	2680	
==>gs);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil <==
3	/Users/nnunley/pugs/util/testgraph.pl	854	956	
==>: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > output_file.htm <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12787	12881	
==>smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12845	12939	
==>smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $d <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4586	4683	
==>tent = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror(" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4586	4683	
==>tent = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror(" <==
3	/Users/nnunley/pugs/util/grokprims.pl	2361	2469	
==>g (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td></tr></table>";
  print "<td>)</td>";
#  pr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1407	1508	
==>s instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop suppo <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1407	1508	
==>s instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11567	11686	
==>It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11567	11686	
==>It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11567	11686	
==>It will need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6564	6683	
==>turn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6564	6683	
==>turn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6564	6683	
==>turn m;
        }
      )')(~$pattern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7404	7509	
==>dy = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7404	7509	
==>dy = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7404	7509	
==>dy = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$param <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	623	742	
==>n @_";
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime - Base class for execution system (compiler + inter <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14375	14471	
==>is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14375	14471	
==>is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	90	211	
==>Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Ne <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	95	216	
==>Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Ne <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	705	801	
==>ng library (basically a set of simple
# macros) to make writing this kind of application easy(er) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6049	6175	
==>nd () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6049	6175	
==>nd () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this i <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3334	3444	
==>equires} || [] }, ];
    }

    warn "No license specified, setting license = 'unknown'\n"
      unless $values <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3064	3177	
==>" . emit($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' );
    my $block <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9053	9164	
==>- repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9041	9152	
==>- repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $tr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52234	52326	
==>--------------------------------------------------------------------------
## finishing up th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3024	3138	
==>ttributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3024	3138	
==>ttributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3024	3138	
==>ttributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_class->add_att <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5236	5359	
==>)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	199	308	
==>be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool:: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	199	308	
==>be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6064	6180	
==>mented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif($sn eq 'temp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22373	22468	
==>ories in your path that packages could be installed in.

Generally, when a program package would <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22373	22468	
==>ories in your path that packages could be installed in.

Generally, when a program package would <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8315	8416	
==>osed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8315	8416	
==>osed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25988	26083	
==>uting the individual tests.  This allows
the tests to determine if they are being executed throu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2687	2807	
==>,(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2687	2807	
==>,(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2687	2807	
==>,(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/summe1.pl	4	115	
==>mme1.pl - Unicode wird in Perl 5
use utf8;
sub Σ {
	my $i = 0;
	$i += $_ for @_;
	return $i;
}
print Σ(1..10), <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	614	697	
==>--------------------------------------------------------------------------
## privat <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	614	697	
==>--------------------------------------------------------------------------
## privat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27242	27358	
==>ME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not perm <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27242	27358	
==>ME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not perm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15902	16061	
==>r;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15902	16061	
==>r;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15902	16061	
==>r;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9926	10145	
==>new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return : <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	494	699	
==>new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return : <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	494	699	
==>new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4993	5130	
==>@a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4993	5130	
==>@a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4993	5130	
==>@a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3057	3151	
==><$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List contex <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3057	3151	
==><$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List contex <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5210	5297	
==>_RHS(Min,Max), !.
p6_range_bounds( 0 ,Max) --> "...", digits_int(Max).
p6_range_bounds_R <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5108	5205	
==>an} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.k <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5108	5205	
==>an} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6545	6682	
==>nboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6545	6682	
==>nboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6545	6682	
==>nboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6119	6221	
==>ackage level version of OUTER::?

Either way, I think it might be useful to have this if for nothing ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6119	6221	
==>ackage level version of OUTER::?

Either way, I think it might be useful to have this if for nothing ot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6119	6221	
==>ackage level version of OUTER::?

Either way, I think it might be useful to have this if for nothing ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2644	2766	
==>ding JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2644	2766	
==>ding JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2644	2766	
==>ding JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5830	5928	
==>/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5830	5928	
==>/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5830	5928	
==>/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8724	8855	
==>explanation?, Int $tests? )
  {
      fail "Plan already set!" if $.testplan;
  
      if $tests
      {
          $.testplan = Test <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	892	1011	
==>explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	892	1011	
==>explanation?, Int $tests? )
{
    fail "Plan already set!" if $.testplan;

    if $tests
    {
        $.testplan = Test <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4481	4579	
==>t> \) ]? \> }
rule symbolic_indirect_rule { \<(!?)\:\:\( <code> \)\> }

rule character  { <a_dot>|< <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18160	18257	
==>= 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18160	18257	
==>= 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14645	14752	
==>ere is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operator <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14645	14752	
==>ere is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operator <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14645	14752	
==>ere is necessary to destroy all possible bindings
            # user code has to @a[$off+$i], see t/operator <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6767	6920	
==>) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7231	7384	
==>) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1481	1637	
==>b {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1481	1637	
==>b {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1481	1637	
==>b {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => su <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2512	2640	
==>keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain:    "; my $main =   tra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5737	5837	
==>rom_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5737	5837	
==>rom_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %cha <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	807	922	
==>A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	807	922	
==>A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2312	2449	
==>it_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2300	2437	
==>it_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4451	4585	
==>qq[rm -rf $builddir] )                      and error($?), return;

    return JIB::Package->new( 
                file => File::Spec-> <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3944	4072	
==>"fail            'file not found';"
    
    # make 'use fatal' not try to load a module. XXX: add a real inc class to
    # inte <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	109	204	
==>n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Arra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	109	204	
==>n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Arra <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3329	3499	
==>sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::so <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27530	27628	
==>ide values applied to each tuple.  The new Relation has all
of the tuples of the original (or rathe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32082	32180	
==>ide values applied to each tuple.  The new Relation has all
of the tuples of the original (or rathe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3095	3226	
==>p { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng. <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3095	3226	
==>p { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3567	3698	
==>s as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@values
			    -- <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18727	18831	
==>($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl") if -e "deleteme_code.pl";}
my $eval <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3445	3545	
==>mplement );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3445	3545	
==>mplement );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2841	2967	
==>ne;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2841	2967	
==>ne;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2841	2967	
==>ne;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4985	5107	
==>{

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8462	8584	
==>{

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5559	5707	
==>ingify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5559	5707	
==>ingify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	103	234	
==>ndie::Prelude;

sub new {
    my $class = shift;

    bless {

    }, $class;
}

sub compiler {
    my $self = shift;

    my $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10421	10557	
==>ops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10421	10557	
==>ops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10421	10557	
==>ops bindings
            $ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	661	765	
==>ol is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	661	765	
==>ol is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	661	765	
==>ol is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var thing = args[1].FETCH() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	975	1080	
==>[$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	975	1080	
==>[$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	975	1080	
==>[$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4682	4783	
==>urce code instead of taking from filter,
    # because we need all the lines including the ones before <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4682	4783	
==>urce code instead of taking from filter,
    # because we need all the lines including the ones before <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	73	170	
==>e = shift;
my $tail = slurp($filename);

print <<PRELUDE;
package Grammar::Perl6;
use base 'Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2309	2452	
==>thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2309	2452	
==>thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2309	2452	
==>thing->as_js;
  }
}

sub lookup_var {
  my $name = shift;

  my $outer_level = $name =~ s/OUTER:://g;

  my @scopes = @CUR_LEXSCOPES[0 .. $#CUR_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5280	5413	
==>} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.substitution>
            { re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6206	6316	
==>str($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7204	7314	
==>str($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5086	5187	
==>$name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || d <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3718	3815	
==>there are about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschm <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3718	3815	
==>there are about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	570	679	
==>er.

- It needs a 'direction' flag, in order to implement <after>.

- Captures need an internal 'counter', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	184	307	
==>2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	184	307	
==>2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	184	307	
==>2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3483	3581	
==>r::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3483	3581	
==>r::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3525	3621	
==>t_dirs,$output_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design docu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12572	12686	
==>href}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12572	12686	
==>href}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12572	12686	
==>href}{$s}
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10772	10878	
==>u can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this ins <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10772	10878	
==>u can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this ins <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7810	7913	
==>output_path ) };
    die "Failed to create directory $output_path" if $@;
    open (my $fh,'>', $index_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9896	10022	
==>JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PAp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9896	10022	
==>JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PAp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9896	10022	
==>JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PAp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13260	13414	
==>self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13260	13414	
==>self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13260	13414	
==>self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            $ret->elems ? Inf : <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6566	6660	
==>presenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also ov <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6566	6660	
==>presenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also ov <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8763	8857	
==>presenting if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also ov <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3524	3771	
==>&infix:<+>'),
                            Val->new(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new(
                                    Sym->new('&infix:<->' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8056	8153	
==>et" operations on 
Span objects, that return lists of spans.

In this example, @span may contain z <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8056	8153	
==>et" operations on 
Span objects, that return lists of spans.

In this example, @span may contain z <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	253	362	
==>fachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "wert";

#!\pause
# er kann auch sehr ei <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2505	2605	
==>ote that the files in this distribution at C<lib/Class.pm> will
probably eventually be auto-generated <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4910	5004	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4910	5004	
==>ad1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6223	6409	
==>an];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6223	6409	
==>an];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18187	18275	
==>e,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1904	2036	
==>n editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1904	2036	
==>n editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1904	2036	
==>n editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $code = sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1023	1125	
==>w();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1023	1125	
==>w();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1103	1205	
==>w();
my $tb_test   = Test::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove h <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5768	5870	
==>ate';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5768	5870	
==>ate';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
n <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2667	2769	
==>ate';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1455	1553	
==>e defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1455	1553	
==>e defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1455	1553	
==>e defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4152	4254	
==>ntinuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4152	4254	
==>ntinuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE > <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4152	4254	
==>ntinuation outside a sub!"
    unless $PIL::IN_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3471	3583	
==>thod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3471	3583	
==>thod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3471	3583	
==>thod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5531	5628	
==>main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5531	5628	
==>main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5531	5628	
==>main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2242	2360	
==>and.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2242	2360	
==>and.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        n <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1000	1109	
==>+ 1);
  }
  return $matchObj;
}

sub alpha {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $positio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1279	1376	
==>PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1279	1376	
==>PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1279	1376	
==>PIL2JS::cfg{pugs},
  "pil2js=s"      => \$PIL2JS::cfg{pil2js},
  "p6preludepc=s" => \$PIL2JS::cfg{ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2513	2617	
==>s);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2571	2675	
==>s);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3563	3696	
==>ure - what's returned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/( <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1109	1208	
==>C`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `re <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1109	1208	
==>C`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	354	462	
==>y built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	354	462	
==>y built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	380	480	
==>er;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_di <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	337	471	
==>' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne ' <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	337	471	
==>' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne ' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10469	10577	
==>_class(class_neg(word))          --> "\\W", !.

p6_char_class(class_pos(horizontal_space))  --> "\\h", !.
p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	353	485	
==>Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	353	485	
==>Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	353	485	
==>Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13326	13443	
==>= %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13326	13443	
==>= %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13326	13443	
==>= %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container::Hash - Per <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2052	2174	
==>returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	893	1015	
==>returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8170	8302	
==>-- unknown node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[0] as_str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	255	356	
==>_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:D <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	255	356	
==>_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1945	2140	
==>new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1945	2140	
==>new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1945	2140	
==>new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; XXX
                # warn "pp = $pp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10987	11123	
==>h_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10987	11123	
==>h_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10987	11123	
==>h_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Metho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21421	21517	
==>e that is distinct from the other
attributes, though several attributes may store values of the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25973	26069	
==>e that is distinct from the other
attributes, though several attributes may store values of the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24606	24702	
==>e that is distinct from the other
attributes, though several attributes may store values of the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	698	881	
==>)

    # Attributes of every Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3570	3666	
==>::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3570	3666	
==>::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite:: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2402	2495	
==>-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> execute <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2402	2495	
==>-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> execute <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	532	667	
==>alar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as_num
       p6_as_str
       p6_as_array <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10206	10307	
==>ns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10206	10307	
==>ns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14060	14172	
==>ything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername an <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14060	14172	
==>ything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5654	5765	
==>ct(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7401	7498	
==>y \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $k <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7401	7498	
==>y \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10686	10795	
==>c =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10686	10795	
==>c =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10686	10795	
==>c =  p6_to_a($inc6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11204	11298	
==>, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11204	11298	
==>, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1304	1395	
==>erl 6 version of 
Test::Builder::TestPlan.

This file contains both the TestBuilder::TestPla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8539	8648	
==>UBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8539	8648	
==>UBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8539	8648	
==>UBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	342	446	
==>this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	342	446	
==>this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	342	446	
==>this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6069	6182	
==>th = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base e <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6069	6182	
==>th = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2716	2815	
==>); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2716	2815	
==>); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3063	3162	
==>); #named

=head1 DESCRIPTION

This module implements the semantics for perl6-style variable binding <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5626	5754	
==>e{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5626	5754	
==>e{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5626	5754	
==>e{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6060	6158	
==>ent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6060	6158	
==>ent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6060	6158	
==>ent package? How would this look in Perl 6?
Would it be a package level version of OUTER::?

Either <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3346	3468	
==>d_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3346	3468	
==>d_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3346	3468	
==>d_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10084	10190	
==>cr  => "Creating directories " . join(", ", map { "$_" } @dirs),
    ensure => sub { -d $_ or return for @d <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23601	23694	
==>odule L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine cla <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23601	23694	
==>odule L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4768	4866	
==>h/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4768	4866	
==>h/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4768	4866	
==>h/to/pugs
  --metamodel-base=/path/to/Perl6.MetaModel/lib/

  --output=...      Output to the given <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2302	2432	
==>\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2302	2432	
==>\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2302	2432	
==>\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	872	981	
==>": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	872	981	
==>": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	872	981	
==>": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatically load it.
  # Pugs doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1765	1859	
==>@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1765	1859	
==>@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1765	1859	
==>@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_from_b {my($b)=@_; p6_new('Bit',$b ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1943	2065	
==>tracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extrac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2378	2500	
==>tracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extrac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2815	2937	
==>tracted) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $extrac <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	648	738	
==>----------------------------------------
## private methods

my method set_height ($self: T <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	648	738	
==>----------------------------------------
## private methods

my method set_height ($self: T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	590	772	
==>ntrolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	590	772	
==>ntrolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	590	772	
==>ntrolException.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.Con <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	679	802	
==>=> join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	580	703	
==>=> join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	298	415	
==>val "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	298	415	
==>val "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	298	415	
==>val "42" })()   # 42
# Now PIL::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIK <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2096	2243	
==>eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2( <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2096	2243	
==>eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15149	15261	
==>else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15149	15261	
==>else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15149	15261	
==>else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	168	269	
==>0;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	168	269	
==>0;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	168	269	
==>0;

=pod

=head1 NAME

Class::Rebless - Rebase namespaces, hierarchically

=head1 SYNOPSIS

  use Clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6487	6604	
==>$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per R <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6487	6604	
==>$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per R <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1206	1311	
==>our PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	772	889	
==>$1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	772	889	
==>$1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	772	889	
==>$1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package PrimP <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6473	6602	
==>pture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6666	6795	
==>pture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1331	1435	
==>ompiler::Regex->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory::ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9454	9563	
==>--------------------------------      
    # this collects a unique list of roles 
    # gather recursively, & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9454	9563	
==>--------------------------------      
    # this collects a unique list of roles 
    # gather recursively, & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9454	9563	
==>--------------------------------      
    # this collects a unique list of roles 
    # gather recursively, & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	278	391	
==>t = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_versio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	278	391	
==>t = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_versio <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	278	391	
==>t = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use Getopt::Long qw(:config no_auto_versio <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	684	826	
==>t;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mods = $1;
	}
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10138	10236	
==>'$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10138	10236	
==>'$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_templat <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11954	12063	
==>Part {  # see 9.3.1
      <ExponentIndicator> <SignedInteger>
}
rule ExponentIndicator {  # see 9.3.1
      <' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	297	396	
==>\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:al <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	297	396	
==>\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:al <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31071	31212	
==>atcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10392	10494	
==>erms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optiona <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10671	10773	
==>erms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optiona <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7473	7584	
==>sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7473	7584	
==>sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7473	7584	
==>sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @var <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1508	1622	
==>!%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1508	1622	
==>!%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5108	5233	
==>', assoc => 'list', list => [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'li <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3017	3115	
==>ll()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending applicatio <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3017	3115	
==>ll()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending applicatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2604	2715	
==>ulti sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2604	2715	
==>ulti sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2604	2715	
==>ulti sub eval($code,:$langpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1408	1535	
==>$self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1408	1535	
==>$self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1408	1535	
==>$self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4538	4698	
==>ty == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4538	4698	
==>ty == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4538	4698	
==>ty == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primi <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	366	480	
==>); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_type = 'text/html', 
    +$charse <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1931	2031	
==>STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1931	2031	
==>STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11394	11600	
==>turn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11394	11600	
==>turn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11394	11600	
==>turn $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # @a := @b 
            'bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	810	940	
==>lass' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	810	940	
==>lass' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	810	940	
==>lass' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13539	13685	
==>to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13539	13685	
==>to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13539	13685	
==>to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Ar <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7868	7968	
==>et::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7868	7968	
==>et::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	593	685	
==>$node = shift;

	return $node unless Scalar::Util::blessed($node);

	$node->isa("Blondie::Nod <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5674	5769	
==>num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/2621 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5674	5769	
==>num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/2621 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5120	5245	
==>esult if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5120	5245	
==>esult if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.span <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	154	245	
==>ktions-Aufruf
print "100£ sind @{[PoundToEuro(100)]}€\n";
# gibt '100£ sind 146.56€' a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	513	619	
==>:CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	513	619	
==>:CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	513	619	
==>:CLASS->find_attribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5660	5762	
==>provide an easy way to
# access it until we have know how both these interfaces can be
# addressed.  On <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5660	5762	
==>provide an easy way to
# access it until we have know how both these interfaces can be
# addressed.  On <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3995	4095	
==>neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($self->{n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1005	1161	
==>str(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1005	1161	
==>str(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1005	1161	
==>str(0, a) +
          repl +
          str_.substr(a + b)
        ));
      }
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1458	1589	
==>= Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1458	1589	
==>= Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1458	1589	
==>= Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	448	552	
==>nt Dump $match->();
    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ) <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	689	790	
==>hat perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understa <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	689	790	
==>hat perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	215	313	
==>dreyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	206	303	
==>dreyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1624	1720	
==>el($$) }

ROOT: level($$) = { 0 }
type::operator::binary: level($.left) = { level($$) + 1 }
type: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1828	1981	
==>stname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A per <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1828	1981	
==>stname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2886	2998	
==>pl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbos <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2886	2998	
==>pl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbos <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2886	2998	
==>pl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\Z/) { $verbos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2479	2607	
==>,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2385	2507	
==>,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	575	671	
==>UNIVERSAL::require::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13577	13670	
==>llow_unterminated is TRUE then we also unterminated named
entities will also be expanded.  The <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13577	13670	
==>llow_unterminated is TRUE then we also unterminated named
entities will also be expanded.  The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3657	3766	
==>odule_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3657	3766	
==>odule_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3657	3766	
==>odule_to_mini_js "-I", PIL2JS::pwd("lib6"), "-MPrelude::JS" };
  die $@ if $@;

  open my $fh, ">", $cfg{prelu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5623	5747	
==>laration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5623	5747	
==>laration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5623	5747	
==>laration of vars:\n" .
    join("\n", map {
      sprintf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1424	1542	
==>nstant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1424	1542	
==>nstant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1424	1542	
==>nstant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30243	30339	
==>ables, which will be substituted at run-time before the text
is shown to the user.

Each Template <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30243	30339	
==>ables, which will be substituted at run-time before the text
is shown to the user.

Each Template <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5242	5338	
==>ption?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5242	5338	
==>ption?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6766	6862	
==>ption?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1567	1686	
==>e($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1567	1686	
==>e($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1567	1686	
==>e($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	473	585	
==>lf->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $self->{raw} ? $self->{raw} : $s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	151	254	
==>use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	216	319	
==>use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4376	4492	
==>add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4376	4492	
==>add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4376	4492	
==>add_method('add_subclass' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15332	15437	
==>unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the first argument
# f <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1664	1755	
==>grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1664	1755	
==>grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	94	259	
==>N {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        requi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	616	741	
==>ct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1100	1225	
==>ct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7547	7654	
==>$index    = shift;
    
    return unless exists $index->{_dirs} or exists $index->{_files};
    collapse_is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7409	7501	
==>$domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7409	7501	
==>$domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19138	19243	
==>{...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19138	19243	
==>{...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19138	19243	
==>{...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34423	34515	
==>s> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38973	39065	
==>s> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2483	2607	
==>}
	}
    }
}

do {
    # $use_native_ui = 1;
    test(sub{my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    ex <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3116	3214	
==>be called with a string, and should be called at the 
end of enciphering with zero arguments.

=ite <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3116	3214	
==>be called with a string, and should be called at the 
end of enciphering with zero arguments.

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9427	9550	
==>},
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9427	9550	
==>},
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9338	9427	
==>ckage main;
Regexp::StructHook::import();

1;
#__END__
Regexp::StructHook::regexp_hook_on( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	829	942	
==>es; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	829	942	
==>es; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	829	942	
==>es; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - should be *eval_perl5
      return JS::inline('(function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5681	5861	
==>>unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5681	5861	
==>>unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5681	5861	
==>>unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by w <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	465	562	
==>you declare a Method on a Class, it is bound to that
Class' C<Type> object immediately; however, i <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11200	11292	
==>rset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11200	11292	
==>rset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9032	9143	
==>cher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical ord <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9032	9143	
==>cher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical ord <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9032	9143	
==>cher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical ord <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	248	364	
==>thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	248	364	
==>thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	248	364	
==>thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11685	11793	
==>efine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1510	1609	
==>rue }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1510	1609	
==>rue }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10601	10707	
==>e}::${name}::${method_name} {";

    my $rep = $info->rep_type;
    if($vars eq "") {}
    elsif($rep eq 's <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2218	2318	
==>= $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2218	2318	
==>= $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5691	5793	
==>2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5691	5793	
==>2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5691	5793	
==>2js.pl --link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	12	116	
==>erl

package Blondie::Reducer::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50296	50452	
==>t('?$authority'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2133	2286	
==>n perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2133	2286	
==>n perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2133	2286	
==>n perl5 code\n";
    print " <p6code>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21275	21367	
==>exp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3041	3150	
==>arn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3041	3150	
==>arn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3041	3150	
==>arn(args[1]);
    cc(new PIL2JS.Box.Constant(undefined));
  })')($arg);
  ?1;
}
sub JS::Root::die(*@msg)  is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41022	41129	
==>E

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41022	41129	
==>E

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41022	41129	
==>E

Perl6::Container::Array - Perl extension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7855	7971	
==>mark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so each <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1647	1738	
==>thods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new cla <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1647	1738	
==>thods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4332	4501	
==>e::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4332	4501	
==>e::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4332	4501	
==>e::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3584	3680	
==>in.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3584	3680	
==>in.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3584	3680	
==>in.pop(); PIL2JS_subpads.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	776	892	
==>[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	776	892	
==>[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	776	892	
==>[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::NamedPair;
  our @ISA = qw<PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5855	5956	
==>body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5855	5956	
==>body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5855	5956	
==>body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::make_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	254	367	
==>$value) = @_;
    $value = '' unless defined $value; # default to empty string
    bless \$value => $class;
}

# c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	823	940	
==>($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	823	940	
==>($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	823	940	
==>($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 1 if lc($ref) <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1433	1553	
==>of ValueType where { $^n ~~ Num and ...XXXfill in... };'
}
Clutter::num_size 32;
Clutter::num_size 64;
Helpers::macif(%?C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	205	306	
==>erwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	205	306	
==>erwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	205	306	
==>erwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then modules
# (w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	969	1059	
==>tributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	969	1059	
==>tributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1185	1332	
==>&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1, <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1185	1332	
==>&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1, <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	34	132	
==>le; after all, it defines no properties.

# return floating point seconds relative to 1st Jan 2000, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10911	11045	
==>t_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10911	11045	
==>t_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10911	11045	
==>t_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8481	8598	
==>oto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce;
    bs <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	385	494	
==>n ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	385	494	
==>n ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23658	23882	
==>ar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23658	23882	
==>ar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23658	23882	
==>ar->new();
                        $scalar->store( $elem );
                        return $scalar;
                    }
                    return $elem;
                }

                if ( $method eq 'elems' || $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2919	3042	
==>: ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_lea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2919	3042	
==>: ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_lea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2919	3042	
==>: ")" }
var __returncc = args.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_lea <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1371	1491	
==>my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym->{$pw <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4024	4106	
==>t>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4024	4106	
==>t>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5732	5860	
==>lone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multide <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5732	5860	
==>lone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multide <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2090	2190	
==>icate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30068	30182	
==>s is used primarily when
inspecting the parsing of the regex.

=item my $t = $obj->type()

The specific type of thi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14870	14966	
==>uctures are implemented, we will need an easy way
to test them. So we will implement the Test::Mo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14928	15024	
==>uctures are implemented, we will need an easy way
to test them. So we will implement the Test::Mo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1377	1500	
==>ch as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) { <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1377	1500	
==>ch as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	952	1075	
==>} else {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2409	2529	
==>able.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.table{$_} // $_ }, *$data;
} <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2409	2529	
==>able.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.table{$_} // $_ }, *$data;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1332	1438	
==>our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1332	1438	
==>our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1332	1438	
==>our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentrancy.
our $PROCESSING_HAS_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1884	1984	
==>$self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1884	1984	
==>$self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1884	1984	
==>$self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12921	13101	
==>tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12921	13101	
==>tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12921	13101	
==>tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7952	8074	
==>$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11948	12067	
==>$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11948	12067	
==>$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5031	5134	
==>m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5031	5134	
==>m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $se <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10573	10725	
==>h                 => "$initrd_mnt/bin/bash"],
    [$inputrc              => "$initrd_mnt/etc/inputrc"],
    [$terminfo             => "$initrd_mnt/etc/te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19965	20061	
==>ion.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19965	20061	
==>ion.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11830	11915	
==>Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11830	11915	
==>Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11830	11915	
==>Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18758	18885	
==>otals->{skip_reason} ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3921	4043	
==>= (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypoth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3933	4055	
==>= (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypoth <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14561	14737	
==>sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWIT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18038	18214	
==>sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWIT <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17454	17630	
==>sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWIT <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	171	277	
==>gnu/doc/html/bison_[6,8].html

# notes:
#  'assoc' is one of:  nonassoc / right / left

my $g = <<'EOT <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2442	2527	
==>l6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<g <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2442	2527	
==>l6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<g <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2253	2365	
==>eturn $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2253	2365	
==>eturn $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	465	642	
==>{ $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12014	12107	
==>w( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document object.  I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12014	12107	
==>w( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document object.  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	141	245	
==>an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexic <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	141	245	
==>an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexic <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1723	1852	
==>hase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Str <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1723	1852	
==>hase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12604	12718	
==>derr} &&  $is_macos;
    if ($args{verbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9909	10119	
==>lder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	477	677	
==>lder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	477	677	
==>lder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37854	37955	
==>the result of first pairwise-matching every tuple of each source relation
with every tuple of each oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42403	42504	
==>the result of first pairwise-matching every tuple of each source relation
with every tuple of each oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42053	42154	
==>the result of first pairwise-matching every tuple of each source relation
with every tuple of each oth <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1993	2091	
==>> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Sh <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1993	2091	
==>> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34398	34491	
==>C<\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upper, word, xdigit; others a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	601	856	
==>s to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	601	856	
==>s to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External <==
3	/Users/nnunley/pugs/util/importgraph.pl	2075	2158	
==>rank('parser_program', 'Pugs.Parser.Program');
setup_rank('prim', qr/^Pugs\.Prim\.\w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8860	8999	
==>gth);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8860	8999	
==>gth);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9041	9172	
==>> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9041	9172	
==>> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate r <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	157	242	
==>Perl6/Bible/S05.pod
  http://www.nntp.perl.org/group/perl.perl6.language/20985
  docs/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	281	432	
==>d: @{[ %opt ]} \n";

    Pugs::Grammar::Operator::add_rule( $self, %opt,
        fixity => 'infix', 
    );
    Pugs::Grammar::Operator::add_rule( $self <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3628	3730	
==>self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3628	3730	
==>self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1060	1390	
==>olor = green, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $node->name . "(" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39743	39840	
==>is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser Gener <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39743	39840	
==>is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser Gener <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5246	5344	
==>us returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5246	5344	
==>us returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7443	7541	
==>us returns Hash>

This returns a hash containing two keys, C<passed> and C<description>, from the
t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3512	3615	
==>r of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3512	3615	
==>r of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3592	3695	
==>r of tests to run.  Someday there will be a C<no_plan> version
of this too.  For now, this is what you h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18055	18153	
==>e requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18055	18153	
==>e requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12327	12440	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12606	12719	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21165	21273	
==>my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  package Regexp::Parser::assertion;
  push @ISA, qw( Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7623	7729	
==>nternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7623	7729	
==>nternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7623	7729	
==>nternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5504	5653	
==>s above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5968	6117	
==>s above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12710	12819	
==>il );
    return 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3051	3158	
==>ash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3051	3158	
==>ash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3051	3158	
==>ash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32149	32260	
==>t ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32149	32260	
==>t ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32149	32260	
==>t ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24942	25036	
==>tructor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a qu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24942	25036	
==>tructor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3447	3549	
==>DO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3447	3549	
==>DO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3447	3549	
==>DO - fix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'Lis <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8018	8129	
==>tion") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8018	8129	
==>tion") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self! <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18696	18785	
==>s::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, StrPos $start,   St <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7489	7615	
==>er( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7501	7627	
==>er( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3572	3666	
==>$self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3572	3666	
==>$self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3572	3666	
==>$self->class->add_method($label, $method);
    }
}));

$::Object->add_method('dump' => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9116	9230	
==>array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9116	9230	
==>array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9116	9230	
==>array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx only *once*:
  #   my @a  = ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11990	12164	
==>val:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8272	8446	
==>val:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9106	9280	
==>val:\n\", \$src if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13608	13734	
==>mplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17085	17211	
==>mplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16447	16573	
==>mplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    retur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3716	3826	
==>il';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3716	3826	
==>il';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stm <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	566	676	
==>il';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stm <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13140	13234	
==>>
    | <PropertyNameAndValueList> <','> <PropertyName> <':'> <AssignmentExpression>
}
rule Pro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17899	17992	
==>he originating server program handling the request.

=item $h.from

This header should contain <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17899	17992	
==>he originating server program handling the request.

=item $h.from

This header should contain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2469	2566	
==>r(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2469	2566	
==>r(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2469	2566	
==>r(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Nu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15248	15354	
==>{
package Y;
our %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5491	5636	
==>);
        
        # append it to the existing content of the index
        push @$index_content, $meta;
        
        ### XXX do delayed writ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	664	788	
==>= $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	664	788	
==>= $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($se <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5760	5860	
==>f $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5760	5860	
==>f $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1522	1618	
==>e errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1492	1642	
==>goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method fou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1697	1847	
==>goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method fou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1758	1908	
==>goto &$method if $method;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method fou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1114	1218	
==>-----------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see rece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1114	1218	
==>-----------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see rece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1114	1218	
==>-----------------------------------------
## Roles

# Questions on Role methods sent to p6l 
# - see rece <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8525	8639	
==>Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8525	8639	
==>Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8525	8639	
==>Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Val <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8990	9093	
==>_ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpreter.
# Arguments :
#   switc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10294	10389	
==>_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary f <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10294	10389	
==>_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6519	6606	
==>dd_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6519	6606	
==>dd_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6519	6606	
==>dd_attribute('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4242	4343	
==>def unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4242	4343	
==>def unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4242	4343	
==>def unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	272	383	
==>l_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	272	383	
==>l_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	272	383	
==>l_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2639	2752	
==>",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2639	2752	
==>",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2639	2752	
==>",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number(a)  ^ Number(b)",
  "infix:«+<»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10143	10339	
==>$tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10143	10339	
==>$tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10143	10339	
==>$tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2021	2159	
==>age} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split dep <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3394	3524	
==>age} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split dep <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30066	30177	
==>t want atom to handle ')', so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1555	1679	
==>lass');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1555	1679	
==>lass');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1555	1679	
==>lass');
            $self->_discard_whitespace($i);
            my $superclass = $i->nextToken;
            $current_class->s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1352	1473	
==>ame;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1352	1473	
==>ame;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	57	169	
==>in the __END__
use 5.006;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = (
    t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20659	20752	
==>t process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20659	20752	
==>t process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Mod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18462	18617	
==>stant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18741	18896	
==>stant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'g <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20714	20806	
==>methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20714	20806	
==>methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1882	1979	
==>ge, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $line <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1882	1979	
==>ge, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $line <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1882	1979	
==>ge, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $line <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16164	16304	
==>_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains potential unsafe characters.\n"
      if /[ <>;&\\\$'"]/;
  }
}

s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	261	364	
==>ADED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = () <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	261	364	
==>ADED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = () <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6942	7129	
==>Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6942	7129	
==>Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3482	3610	
==>pture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3470	3598	
==>pture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2139	2251	
==>efficient,
#     and has captures for easy use of the resulting matches.
#   * Perhaps define a macro gram ($name <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12212	12305	
==>&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=hea <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12212	12305	
==>&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5318	5520	
==>.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8795	8997	
==>.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7815	8017	
==>.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4647	4753	
==>s");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4647	4753	
==>s");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4647	4753	
==>s");
  die unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9260	9374	
==>XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisf <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10737	10851	
==>XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	550	652	
==>xists $params{'$.reason'};
            $params{'$.description'} = '' unless exists $params{'$.descripti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32606	32703	
==>th the name of one of these attributes, it is
I<imperative> you use the method to access the attri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35555	35648	
==>uct (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afore <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40105	40198	
==>uct (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4592	4694	
==>>as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4592	4694	
==>>as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4592	4694	
==>>as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $self->{pSu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	127	228	
==>ormation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	127	228	
==>ormation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	127	228	
==>ormation.

use warnings;
use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7765	7886	
==>ar proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicala <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7765	7886	
==>ar proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicala <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7765	7886	
==>ar proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4297	4398	
==>hods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4297	4398	
==>hods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4297	4398	
==>hods

$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	538	656	
==>node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	573	691	
==>node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	538	656	
==>node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7874	7973	
==>of_class;
}
{
  package Regexp::Parser::anyof_close;
}
{
  package Regexp::Parser::prop;
}
{
  packa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21194	21289	
==>s strongly suggested (but not required) that each Perl package which
uses this would come up wit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21194	21289	
==>s strongly suggested (but not required) that each Perl package which
uses this would come up wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6993	7104	
==>){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6993	7104	
==>){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6993	7104	
==>){# XXX
    $xx->store( $xx->fetch->increment );
    return $xx;
 }else{
    warn "faking increment\n";
    p6_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1902	2001	
==>ch->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$match}->{tail};
__END <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6803	6972	
==>'$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'inc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6803	6972	
==>'$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'inc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6803	6972	
==>'$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13575	13668	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13575	13668	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13575	13668	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'last <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3901	4006	
==>e "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3901	4006	
==>e "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3901	4006	
==>e "Can't use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17582	17775	
==>. " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17582	17775	
==>. " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17582	17775	
==>. " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub {
                    my $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13718	13808	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13718	13808	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13718	13808	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7276	7370	
==>hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7276	7370	
==>hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7276	7370	
==>hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match, Int *@idx <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1159	1284	
==>~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1159	1284	
==>~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4416	4520	
==>file or directory to the target.

Returns true on success, false on failure.

=cut

sub _move {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2718	2829	
==>Box(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2718	2829	
==>Box(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2718	2829	
==>Box(function (as_b, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1888	2008	
==>if ($Config{cc} eq 'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Con <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5123	5235	
==>t support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason" <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5181	5293	
==>t support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3402	3507	
==>slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3402	3507	
==>slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3402	3507	
==>slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postci <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14002	14102	
==>s
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14060	14160	
==>s
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	414	507	
==>}) not terminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	735	847	
==>wd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	735	847	
==>wd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	735	847	
==>wd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22105	22217	
==>py;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offs <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17006	17117	
==>py;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offs <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4739	4836	
==>d1 METHODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<to_native () returns *native <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3401	3493	
==>ted interface

The Cipher API is fundamentally object-oriented; the procedural and functional <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3401	3493	
==>ted interface

The Cipher API is fundamentally object-oriented; the procedural and functional <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3111	3215	
==>push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3111	3215	
==>push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3111	3215	
==>push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprintf not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13861	13952	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 're <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13861	13952	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 're <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13861	13952	
==>otection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 're <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17556	17687	
==>g              --> Str )
 multi Str::capitalize ( Str $string = CALLER::<$_> --> Str )

Has the effect of first doing an C<lc> on th <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	935	1038	
==>- call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# T <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	935	1038	
==>- call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10938	11062	
==>+ orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10938	11062	
==>+ orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10938	11062	
==>+ orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6644	6750	
==>ndow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTime <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6644	6750	
==>ndow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTime <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6644	6750	
==>ndow    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTime <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2941	3064	
==>= Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2941	3064	
==>= Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2969	3069	
==>if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2969	3069	
==>if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2969	3069	
==>if (@{$self->superclasses}) {
            $eigenclass->superclasses([ map { $_->class } @{$self->supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14137	14344	
==>S->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14137	14344	
==>S->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14137	14344	
==>S->[0] found" unless defined $method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3256	3366	
==>se then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3256	3366	
==>se then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3256	3366	
==>se then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	155	309	
==>ep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	155	309	
==>ep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3465	3568	
==>,$warn,$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3144	3242	
==>t context,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3144	3242	
==>t context,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6825	6935	
==>= $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6825	6935	
==>= $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6825	6935	
==>= $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


meth <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2493	2591	
==>s point will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2493	2591	
==>s point will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3854	3956	
==>se JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3854	3956	
==>se JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3854	3956	
==>se JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2067	2217	
==>rint $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2067	2217	
==>rint $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2067	2217	
==>rint $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [ne <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3236	3353	
==>self->{name},
        dist_version => $self->{version},
        license      => $self->{license},
    );
    $self->pr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10090	10187	
==>l6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10090	10187	
==>l6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2880	2980	
==>ear, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2880	2980	
==>ear, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	451	548	
==>e = shift;
	die "generic reductions don't make sense while interpreting ($node)";
}

sub reduce_va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7935	8083	
==>' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7935	8083	
==>' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7935	8083	
==>' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_de <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8860	8987	
==>70),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "sp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8860	8987	
==>70),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1750	1855	
==>es)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30985	31083	
==>T

Copyright 2002-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13301	13389	
==>ode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place replac <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13301	13389	
==>ode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place replac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9506	9619	
==>y $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('di <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9506	9619	
==>y $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('di <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	499	601	
==>tialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	499	601	
==>tialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rose <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3380	3496	
==>reventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3380	3496	
==>reventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$ba <==
3	/Users/nnunley/pugs/util/package-osx.pl	4010	4107	
==>/man3/Perl6::Bible::A06.3pm
        /usr/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6318	6467	
==>lf->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6318	6467	
==>lf->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6318	6467	
==>lf->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	892	1011	
==>tr) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4370	4489	
==>tr) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17359	17456	
==>(F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2638	2747	
==>(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2638	2747	
==>(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2638	2747	
==>(sub { 
    my ($self, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6566	6776	
==>@args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PRE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6566	6776	
==>@args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PRE <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6566	6776	
==>@args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PRE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11069	11219	
==>x].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11069	11219	
==>x].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11069	11219	
==>x].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      f <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5305	5490	
==>@tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            w <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5305	5490	
==>@tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3352	3462	
==>uple of this Relation::Example, where the tuple
        # is represented as a Mapping; each key of that Mapping <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4011	4117	
==>die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4011	4117	
==>die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4011	4117	
==>die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17242	17359	
==>stroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17242	17359	
==>stroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17242	17359	
==>stroy then ALL .... muhahahahaha
        $_->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBA <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	998	1239	
==>{Relation::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15556	15668	
==>e into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15556	15668	
==>e into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11137	11282	
==>OrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11137	11282	
==>OrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11137	11282	
==>OrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11562	11673	
==>r = Bool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs::Internals::runInteractiveComman <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8011	8108	
==>on, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.ke <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8011	8108	
==>on, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.ke <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	185	291	
==>calar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array::spl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24024	24115	
==>e-time macro-based approach to substitute the user's preferred
language into the program cod <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24024	24115	
==>e-time macro-based approach to substitute the user's preferred
language into the program cod <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4398	4496	
==>atch exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4398	4496	
==>atch exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4478	4576	
==>atch exactly.  If you pass
C<$description>, this will use it as the test description.

=back

=head <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4065	4232	
==>age    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= package_version( $t <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1982	2102	
==>ot       = "cdroot";
my $iso          = "cd.iso";

sub usage { print <<USAGE; exit }
Usage: $0 [options]

$0 creates a ve <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8187	8305	
==>G ($non_nest_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1	112	
==>package PIL::Run::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1	112	
==>package PIL::Run::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1	112	
==>package PIL::Run::ApiX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@IS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	470	580	
==>the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	470	580	
==>the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	470	580	
==>the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix.
      // I.e. " <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1043	1144	
==>[],{});
    return $o;
}
sub set_str {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8894	8987	
==>riable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Gramma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2719	2812	
==>riable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Gramma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31675	31778	
==>has either all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36225	36328	
==>has either all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35461	35564	
==>has either all of the tuples of
the original, or has zero tuples, respectively.  This method has aliases <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	261	364	
==>Perl::Cxt $paramContext;
has Any $paramDefault;

# deriving (Show, Eq, Ord)
method Show {
    ...
}

met <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15320	15420	
==>n objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15320	15420	
==>n objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7410	7528	
==>continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    whi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7410	7528	
==>continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    whi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7410	7528	
==>continued.
use strict;

sub get_classes {
    my($node)=@_;
    my @nodes; my %classes;
    push(@nodes,$node);
    whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15455	15630	
==>$::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15455	15630	
==>$::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15455	15630	
==>$::Class);            
            $label = 'DESTROYALL';
        }        
        # go about our dispatching ....      
        return ::dispatcher(shift, $label, \@_);
    } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3438	3531	
==>self is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=hea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3438	3531	
==>self is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5635	5728	
==>self is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16811	16921	
==>turn undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16811	16921	
==>turn undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16811	16921	
==>turn undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make_att <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1083	1180	
==>Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1083	1180	
==>Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	4	101	
==>sr/bin/perl

package Blondie::Prelude;

use strict;
use warnings;

use Blondie::ADTs;

use Memoize <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2300	2438	
==>ute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Ins <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2300	2438	
==>ute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Ins <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2300	2438	
==>ute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21180	21274	
==>all your
module distribtution do not need to have the compilers installed
themselves. So you do <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21180	21274	
==>all your
module distribtution do not need to have the compilers installed
themselves. So you do <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3055	3164	
==>ber.remove_subscription($subscription);
        }
        
        method get_subscriptions (Class::Publisher: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14981	15085	
==>lf = shift;
    @{ $self->{params} };
}

package Compiler;
use base qw/Reducer Map DynamicScopes/;

sub c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	303	407	
==>, $class;
}

sub string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::D <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	368	483	
==>meter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicat <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	368	483	
==>meter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	148	251	
==>ssed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use warnings;

BEGIN {
    __P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4032	4151	
==>p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4032	4151	
==>p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4032	4151	
==>p5 methods.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11624	11737	
==>GS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11624	11737	
==>GS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11624	11737	
==>GS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1307	1414	
==>mn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1307	1414	
==>mn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1307	1414	
==>mn posEndLine posEndColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2334	2454	
==>, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2334	2454	
==>, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2334	2454	
==>, $body) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3322	3439	
==>: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3322	3439	
==>: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3322	3439	
==>: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) throw "Perl5 required.";
    r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	500	639	
==>ll( $entry );
    }
    
    warn "No packaged found matching '$package'\n" unless $tried;
}                        

### XXX merge with pp_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3677	3808	
==>{
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        ta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3870	4001	
==>{
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13786	13897	
==>opControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13786	13897	
==>opControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13786	13897	
==>opControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacceptable = 1;
    "(thro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4321	4412	
==>qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4321	4412	
==>qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4321	4412	
==>qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1294	1397	
==>LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1294	1397	
==>LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1294	1397	
==>LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
our $MAGIC_NOLF = "#PIL2JS // IGNORE NEXT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5499	5639	
==>es) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5499	5639	
==>es) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5499	5639	
==>es) {
        foreach my $method_name ($role->get_method_list) {
            # if we have a conflict, but it is not, or has 
            # no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2477	2587	
==>Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2477	2587	
==>Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2477	2587	
==>Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6479	6580	
==>he C<passed> key to true, and adds a
C<really_passed> key which contains the boolean representing if t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6479	6580	
==>he C<passed> key to true, and adds a
C<really_passed> key which contains the boolean representing if t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8676	8777	
==>he C<passed> key to true, and adds a
C<really_passed> key which contains the boolean representing if t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4930	5102	
==>t,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4930	5102	
==>t,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40431	40541	
==>is, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40431	40541	
==>is, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40431	40541	
==>is, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3178	3293	
==>nt "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #prin <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3642	3757	
==>nt "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #prin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16133	16244	
==>de") }, # XXX - unimplemented.
      ref   => sub { $as_p6obj_complain->("ref") },
      glob  => sub { $as_p6ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1638	1771	
==>ng undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Bec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1638	1771	
==>ng undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Bec <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1638	1771	
==>ng undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message?
#        iblech buu: Bec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3253	3374	
==>$cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3253	3374	
==>$cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3253	3374	
==>$cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8522	8618	
==>et by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8522	8618	
==>et by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8522	8618	
==>et by a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13194	13324	
==>_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13194	13324	
==>_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1774	1883	
==>get params for underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8292	8382	
==>ammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2117	2207	
==>ammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	757	942	
==>t.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	757	942	
==>t.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	757	942	
==>t.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10565	10677	
==>_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nick <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10565	10677	
==>_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nick <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21432	21530	
==>dded (specifically, making sure C<(?(N)T|F)> works right).
In doing so, found that the "too many br <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3672	3763	
==>TYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3672	3763	
==>TYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3672	3763	
==>TYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	637	732	
==>memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	637	732	
==>memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	637	732	
==>memory resources.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2706	2817	
==>{
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2706	2817	
==>{
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17446	17542	
==>ALKMETH (&dispatcher (symbol new BUILD)))))))

=cut

$::Class->send('add_method' => (
    # metho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13033	13171	
==>g )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16510	16648	
==>g )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15872	16010	
==>g )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6175	6291	
==>"(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6175	6291	
==>"(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6175	6291	
==>"(sub{ (::dispatch(::meta(".p6_var_macro(":$class", 2)."),"
         ." 'add_method',"
         ." ('$name' => Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1802	1909	
==>S.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1802	1909	
==>S.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(err <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1802	1909	
==>S.Box } catch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(err <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13832	13943	
==>ss
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13832	13943	
==>ss
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13832	13943	
==>ss
            $dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	298	404	
==>XX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	298	404	
==>XX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $sub <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1032	1127	
==>thod mk_notifications (*@subscriptions of Class::Events::Subscription) {
        map { Class::Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12619	12738	
==>1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12619	12738	
==>1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12619	12738	
==>1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2349	2472	
==>ix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any long <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2349	2472	
==>ix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any long <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2349	2472	
==>ix this problem:
  #   my $a; b(); sub b { $a++ }  # dies (can't find &b)
  # With PIL2 the hack won't be necessary any long <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4878	4982	
==>v, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4878	4982	
==>v, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4878	4982	
==>v, PIL::doublequote($sub), $cxt, $arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1502	1592	
==>form>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from htt <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1502	1592	
==>form>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from htt <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	80	194	
==>s IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
< <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	80	194	
==>s IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
< <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	51	149	
==>/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Module::Install::Include;
use Module: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7776	7881	
==>$self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7776	7881	
==>$self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7776	7881	
==>$self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Al <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5624	5749	
==>ega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5624	5749	
==>ega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18467	18563	
==>5_code($code);
}
sub p6_wrap_code_with_package {
    my($code,$pkg)=@_;
    "package ${ROOT}::$pk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1405	1574	
==>F->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1405	1574	
==>F->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1405	1574	
==>F->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1408	1510	
==>unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1408	1510	
==>unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1408	1510	
==>unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 version too
# TODO - map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	438	553	
==>at's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	438	553	
==>at's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	438	553	
==>at's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2074	2195	
==>eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2074	2195	
==>eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2074	2195	
==>eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{me <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1433	1556	
==>rl}";
    return @tokens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - S <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3968	4049	
==>oded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3968	4049	
==>oded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15206	15408	
==>'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15206	15408	
==>'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15206	15408	
==>'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5445	5609	
==>d, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5445	5609	
==>d, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5445	5609	
==>d, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12230	12351	
==>::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8506	8627	
==>::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9341	9462	
==>::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2152	2265	
==>TAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2152	2265	
==>TAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2152	2265	
==>TAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3485	3599	
==>er.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3485	3599	
==>er.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2316	2424	
==>}
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2316	2424	
==>}
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2316	2424	
==>}
    return p6_undef() if !defined $x;
    return p6_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x) <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9867	9989	
==>elf:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.w <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9867	9989	
==>elf:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.w <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3483	3605	
==>tree[0] eq '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_R <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12084	12189	
==>andler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $lin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12084	12189	
==>andler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $lin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	43	139	
==>e JavaScript-on-p6 runtime.
It seems likely there will be more than one.

Design goals:
 1 Correc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1591	1691	
==>})')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1591	1691	
==>})')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1591	1691	
==>})')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::join(Str $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	987	1083	
==>($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	987	1083	
==>($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	987	1083	
==>($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_to_n { Perl6::Value::numi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	514	612	
==>hat this is nothingmuch's first article that he read from cover
# to cover with no hand holding, an <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1477	1569	
==>CR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1477	1569	
==>CR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2724	2837	
==>vides;
}

sub auto_provides {
    my $self = shift;
    return $self unless $self->is_admin;

    unless (-e 'MANI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23234	23329	
==>sults or associations.  Or alternately, the other
packages require your text data to be stored i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23234	23329	
==>sults or associations.  Or alternately, the other
packages require your text data to be stored i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2860	2967	
==>er(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2860	2967	
==>er(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2860	2967	
==>er(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7826	7976	
==>ethod eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7826	7976	
==>ethod eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7826	7976	
==>ethod eq 'increment' || $method eq 'decrement' ) {
                        _('$:cell')->store( $tmp->$method( @param ) );
                        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2652	2761	
==>ecursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2652	2761	
==>ecursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2652	2761	
==>ecursion level exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13315	13418	
==>aining only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13315	13418	
==>aining only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3381	3494	
==>-metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3381	3494	
==>-metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3381	3494	
==>-metamodel-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10914	11016	
==>Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10914	11016	
==>Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10914	11016	
==>Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s} = [ $key, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35409	35510	
==>t would result in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39959	40060	
==>t would result in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39519	39620	
==>t would result in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4807	4938	
==>sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4807	4938	
==>sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4807	4938	
==>sub flatten       { 
    my $ret = shift;
    my $class = ref($ret);

    # TODO - add tests for this error message
    # fail "can' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1170	1316	
==>eral'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20690	20786	
==>uage closest to your
preference.  Presumably the messages in these files are looked up by the
pro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20690	20786	
==>uage closest to your
preference.  Presumably the messages in these files are looked up by the
pro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11699	11830	
==>RY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11699	11830	
==>RY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10042	10160	
==>in(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = (' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4007	4144	
==>/^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4007	4144	
==>/^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1595	1698	
==>($rx) or return if defined $rx;
  croak "no regex defined" unless &RxLEN;
  1 while $self->next;
  retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	486	643	
==>?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	486	643	
==>?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rul <==
3	/Users/nnunley/pugs/util/package-osx.pl	5983	6083	
==>pm
        /usr/local/man/man3/Perl6::Overview::Functions.3
        /usr/local/man/man3/Perl6::Overvi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1716	1830	
==>ES => join(' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = re <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2176	2271	
==>and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identi <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2176	2271	
==>and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4210	4306	
==>(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4210	4306	
==>(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4210	4306	
==>(new PIL2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29148	29272	
==>=> Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29148	29272	
==>=> Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29148	29272	
==>=> Perl6::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	194	299	
==>S;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	194	299	
==>S;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	194	299	
==>S;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14942	15055	
==>hift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14942	15055	
==>hift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14942	15055	
==>hift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	284	385	
==>itrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	284	385	
==>itrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2359	2450	
==>pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	512	628	
==>{
	my $self = shift;
	#$self->annotator_class->require || die $UNIVERSAL::require::ERROR;
	$self->annotator_class->ne <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4549	4647	
==>n.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unle <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4549	4647	
==>n.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unle <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3576	3705	
==>n t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..lengt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3716	3845	
==>n t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14148	14260	
==>name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $se <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11046	11163	
==>oto nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name
  negated:
    mob[" <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9844	9958	
==>}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width + <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9844	9958	
==>}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width + <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15533	15758	
==>h')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->create('$attrs' => hash->new());
                $e->creat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	444	584	
==>2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	444	584	
==>2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7557	7660	
==>blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$block <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7557	7660	
==>blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$block <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30210	30308	
==>lename work.

Keeping whittling away at _run_all_tests()

Clean up how the summary is printed.  Get <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36719	36814	
==>e Translator object's Set and Member properties; if none
could be matched, this method returns u <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36719	36814	
==>e Translator object's Set and Member properties; if none
could be matched, this method returns u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11290	11478	
==>\$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7572	7760	
==>\$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8406	8594	
==>\$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$rule->( \@_ );\n" .
                "    return unle <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	461	581	
==>s_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18511	18620	
==>ample {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.union( $other!b <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	481	589	
==>s_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1479	1596	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1479	1596	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1479	1596	
==>ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = shift;

    return sprintf "new PIL2JS.Box.Constant(%s)", {
      " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	803	924	
==>Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	983	1097	
==>er_append {
    my $self = shift;
    my $name = shift;
    my $args = $self->makemaker_args;
    $args->{name} = d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	822	936	
==>Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
} <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	814	929	
==>g/repos/iblech/Perl6-Bible/';
    print <<__HELP__;
$0 - Build html test catalog and synopses with hyperlinks to cor <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	941	1034	
==>* more or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list me <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	941	1034	
==>* more or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12193	12302	
==>code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12193	12302	
==>code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12193	12302	
==>code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use PIL::Ru <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29091	29222	
==>$e->get('$self:')->get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (opaque <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1487	1599	
==>lags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_;
  $self->regex($rx) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6398	6497	
==>character class") if @hex > 1;
        return $S->force_object(anyof_char => chr(hex $h), "\\x[$h]") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8316	8503	
==>ems = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8316	8503	
==>ems = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8316	8503	
==>ems = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13882	13981	
==>urns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skip <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13940	14039	
==>urns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skip <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3427	3548	
==>nsions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'} <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9538	9651	
==>, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9538	9651	
==>, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14493	14579	
==>y::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14493	14579	
==>y::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14493	14579	
==>y::Native->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15372	15480	
==>::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    su <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15372	15480	
==>::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6190	6282	
==>SubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6190	6282	
==>SubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6190	6282	
==>SubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::init)/ && $name !~ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8677	8779	
==>index($P){ !($P ~~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUint32 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16255	16344	
==>renDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

I <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16313	16402	
==>renDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

I <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1825	1965	
==>} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1825	1965	
==>} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1045	1166	
==>ckage Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1250	1371	
==>ckage Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1311	1432	
==>ckage Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4193	4301	
==>args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4193	4301	
==>args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4193	4301	
==>args);
  }

  $ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3966	4084	
==>ort of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3966	4084	
==>ort of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5490	5608	
==>ort of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1102	1203	
==>xes in both Package

and Code -- because it is both a namespace of symbols and has

a main body closur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1051	1150	
==>xes in both Package
and Code -- because it is both a namespace of symbols and has
a main body closur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7587	7708	
==>uleop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7331	7448	
==>uleop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6010	6194	
==>le + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6010	6194	
==>le + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6010	6194	
==>le + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3011	3139	
==>$name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3011	3139	
==>$name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3011	3139	
==>$name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3391	3505	
==>";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - post <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3391	3505	
==>";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - post <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3391	3505	
==>";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - post <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1395	1491	
==>tallation and portability, we may have
  bought fairly simple code with tolerable performance.

H <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5456	5539	
==>m < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5456	5539	
==>m < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23662	23807	
==>:block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23941	24086	
==>:block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12295	12401	
==>_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for identifying w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	164	266	
==>[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	164	266	
==>[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	164	266	
==>[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6312	6410	
==>utes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6312	6410	
==>utes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2511	2607	
==>ule> | <code_assertion>
  | <metasyntactic_var> | <symbolic_indirect_rule>
  | <character>
}

# X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4656	4767	
==>( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4656	4767	
==>( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4656	4767	
==>( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unbox <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13282	13413	
==>ta([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4615	4735	
==>tor )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4837	4957	
==>tor )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30484	30581	
==>invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35035	35132	
==>invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34217	34314	
==>invoked for each
original tuple/Mapping in turn, which it gets as its sole read-only
argument, and <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	626	763	
==>.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	626	763	
==>.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	928	1037	
==>aracters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	928	1037	
==>aracters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1484	1593	
==>aracters after all newlines if they are not present.

=item B<diag( Str $message )>

Writes a message to the d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	336	435	
==>= "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	336	435	
==>= "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	336	435	
==>= "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19587	19681	
==>n SQL terms, you create or alter tables by adding or
updating their "information schema" record <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19587	19681	
==>n SQL terms, you create or alter tables by adding or
updating their "information schema" record <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13564	13665	
==>dler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7772	7873	
==>dler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => a <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24360	24443	
==>t([],G)).
match_captures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL,C1).
match_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1072	1168	
==>ernals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1072	1168	
==>ernals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1072	1168	
==>ernals::Hacks::postcircumfix_for_pair_objects (
  Pair $pair, Any $key
) is primitive is rw {
  i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	934	1088	
==>tar -f $my_tmp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9168	9282	
==>ate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9168	9282	
==>ate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6968	7066	
==>{ DOWN($pLit); }
NODE PThunk ($pThunk) {
    "(do{ ".DOWN($pThunk)."})";
}
NODE PCode ($pType, $pPa <==
3	/Users/nnunley/pugs/util/addauthors.pl	1556	1676	
==>/^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $autho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38155	38298	
==>e {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38155	38298	
==>e {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38155	38298	
==>e {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4469	4568	
==>e()

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will b <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4469	4568	
==>e()

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will b <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6392	6478	
==>\s+parsed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &::hlp_stmt;})');
my $x5 = def_stmt_prim('bs_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16832	17002	
==>ts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16832	17002	
==>ts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16832	17002	
==>ts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $dispatcher = $class->disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	829	985	
==>rl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	829	985	
==>rl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	829	985	
==>rl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@_;
                return $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5973	6083	
==>s.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5973	6083	
==>s.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5973	6083	
==>s.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9795	9910	
==>_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    node::non_capturing_subrule( ' <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1931	2026	
==>> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠ <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1931	2026	
==>> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12228	12347	
==>)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12228	12347	
==>)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12228	12347	
==>)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1941	2053	
==>r $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1941	2053	
==>r $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2021	2133	
==>r $description = '' ) returns Bit is export 
{
    my $expect_out    = @expect_out.join(  "\n" ) || '';
    my $e <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2281	2564	
==>ldren(
                                Tree.new(:node<Sub>).add_children(
                                    Tree.new(:node<Method>),
                                    Tree.new(:node<Submethod>),
                                ),
                                Tree.new(:node<Mac <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9177	9322	
==>- rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9177	9322	
==>- rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5831	5952	
==>return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5831	5952	
==>return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5831	5952	
==>return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7713	7850	
==>:code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7906	8043	
==>:code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7775	7894	
==>$cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7775	7894	
==>$cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2164	2270	
==>gument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5185	5350	
==>SS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5185	5350	
==>SS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5185	5350	
==>SS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	926	1023	
==>t "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	926	1023	
==>t "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	926	1023	
==>t "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlException.$nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4803	4916	
==>y.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4803	4916	
==>y.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4803	4916	
==>y.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ': <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2890	2990	
==>varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2890	2990	
==>varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2890	2990	
==>varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);";
	# XXX - "strict 'refs' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	691	798	
==>coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	691	798	
==>coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1323	1418	
==>(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1323	1418	
==>(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5874	5969	
==>:Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_ed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5874	5969	
==>:Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_ed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5874	5969	
==>:Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \&pruning_ed <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16579	16668	
==>E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3273	3390	
==>tion( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alnum {
  my ( $matchObj ) = @_
  my ($matchObj, $target, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1363	1459	
==>t module, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1363	1459	
==>t module, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	172	280	
==>gs[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	172	280	
==>gs[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	172	280	
==>gs[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == undefined ? new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	675	775	
==>"*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	675	775	
==>"*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17682	17781	
==>ed code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty af <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17682	17781	
==>ed code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty af <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14516	14653	
==>person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Cl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14516	14653	
==>person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Cl <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3068	3169	
==>r\site\lib';
    $Config{sitelib} = 'C:\usr\site\lib';
    require Data::Dumper;
    print Data::Dumpe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9150	9396	
==>le definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5510	5756	
==>le definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6359	6605	
==>le definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1107	1222	
==>e) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) retu <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1107	1222	
==>e) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) retu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	376	478	
==>hObj->position($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21215	21421	
==>then => val("n"),
                    else => comb(
                        fun => comb(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2678	2767	
==>ou can also read the list via Google Groups at
L<http://groups-beta.google.com/group/perl. <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2678	2767	
==>ou can also read the list via Google Groups at
L<http://groups-beta.google.com/group/perl. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6403	6536	
==>0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6403	6536	
==>0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2450	2550	
==>>new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2450	2550	
==>>new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2450	2550	
==>>new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18917	19089	
==>tr ~= '%';
            }
            default {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $str;
}

multi shift (@a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2046	2167	
==>self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2046	2167	
==>self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2046	2167	
==>self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_ <==
3	/Users/nnunley/pugs/util/testgraph.pl	486	585	
==>ie "binmode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	377	472	
==>tch}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recom <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1104	1196	
==>tch}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recom <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	698	801	
==>, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($no <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	698	801	
==>, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($no <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22519	22617	
==>)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   code_ty <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6412	6609	
==>App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	11	139	
==>block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	11	139	
==>block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	484	610	
==>tive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	484	610	
==>tive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	484	610	
==>tive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20665	20757	
==>ess described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module:: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20665	20757	
==>ess described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1810	1916	
==>required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Decla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1810	1916	
==>required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Decla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1810	1916	
==>required to be implemented by the 
    # composing class.
    # (see A12/Class Composition with Roles/Decla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5494	5598	
==>) } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5494	5598	
==>) } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5494	5598	
==>) } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMain}->as_js;

  m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4830	4940	
==>s);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Tes <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4888	4998	
==>s);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Tes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28817	28928	
==>XT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28817	28928	
==>XT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	188	291	
==>XT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!] <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3943	4046	
==>xt::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3943	4046	
==>xt::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedT <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4246	4347	
==>10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 and 10 in the paramet <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3742	3856	
==>mp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = map { $_->{ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	421	516	
==>t.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	421	516	
==>t.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic ciphe <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17216	17327	
==>ad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	708	820	
==>urn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	708	820	
==>urn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	708	820	
==>urn(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsif($name eq "&yield") <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5123	5253	
==>lt if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5123	5253	
==>lt if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22537	22636	
==>2004

=over 4

=item First Release

Documentation not complete, etc.

=back

=head1 CAVEATS

=over 4 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3856	3984	
==>defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3856	3984	
==>defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2207	2324	
==>ie::Seq;
    use base 'Blondie::Node::List';

    package Blondie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5874	6033	
==>mper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5886	6045	
==>mper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13432	13540	
==>($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13432	13540	
==>($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13432	13540	
==>($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8744	8897	
==>Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8744	8897	
==>Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16511	16633	
==>>new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($.then), type($.else),
		$.then, $.else
	);

	$t;
}


#'EO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	107	208	
==>warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	107	208	
==>warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	107	208	
==>warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9852	9982	
==>y $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9852	9982	
==>y $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9852	9982	
==>y $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @items = $slic <==
3	/Users/nnunley/pugs/util/package-osx.pl	10921	11099	
==>t "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ /\(?:readline|history\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not rem <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	537	630	
==>nks.org/index.pl?node_id=442402
#
# --------------------------------------------------
# Autho <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	758	850	
==>.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It i <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	758	850	
==>.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2358	2499	
==>}
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2358	2499	
==>}
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2358	2499	
==>}
    if ( @_ > 2 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13043	13147	
==>nternally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $in <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13043	13147	
==>nternally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	902	1015	
==>2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	902	1015	
==>2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	902	1015	
==>2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	408	503	
==>ined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	408	503	
==>ined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	408	503	
==>ined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_return($retcc).FETCH()([$cxt, $u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4995	5115	
==>e
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly withi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4995	5115	
==>e
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly withi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4995	5115	
==>e
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly withi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7901	8011	
==>(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7901	8011	
==>(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7901	8011	
==>(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	394	515	
==>positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	394	515	
==>positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	394	515	
==>positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

sub bind_op2 { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8078	8263	
==>t( $n->{sub}{bareword} ) .
            '(' .
            join ( ";\n", 
                map { _emit( $_ ) } @{$n->{param}} 
            ) .
            ')';
    }

    return _no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36498	36589	
==>akes a (machine-readable) Message object as its positional
parameter $message and returns an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36498	36589	
==>akes a (machine-readable) Message object as its positional
parameter $message and returns an <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1942	2038	
==>ided with any tags, it will intuit one by extracting the 
last component of the calling function' <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1942	2038	
==>ided with any tags, it will intuit one by extracting the 
last component of the calling function' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15975	16080	
==>Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15975	16080	
==>Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15975	16080	
==>Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::V <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3695	3821	
==>tmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3695	3821	
==>tmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PI <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	545	671	
==>tmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6799	6921	
==>], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6799	6921	
==>], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6799	6921	
==>], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11686	11803	
==>? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13098	13200	
==>nt)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here() <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13098	13200	
==>nt)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36415	36513	
==>length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36415	36513	
==>length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36415	36513	
==>length head: @head body: @body tail: @tail list: @list\n";
    @{$array->{items}} = ( @head, @list, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9715	9836	
==>array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9715	9836	
==>array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9715	9836	
==>array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) PIL2JS.die("No indices <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1923	2023	
==>s Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup. 



This object-se <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17438	17537	
==>, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* regcompp (pTHX_ char* exp, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1850	1947	
==>s Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup. 

This object-se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2663	2913	
==>elation::Example

###########################################################################
###########################################################################
=x

class Relation::Example-0.1.0 {

    # External packages used by the Relation <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4803	4901	
==>ION

This module is meant for people who want a simplified view of the
libwww-perl library.  It sho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4803	4901	
==>ION

This module is meant for people who want a simplified view of the
libwww-perl library.  It sho <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6487	6603	
==>_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $self = shift;
	my $node = $self->generic_reduce(shift);

	my $seq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32108	32206	
==>tains all of the tuples that are in either or both of the
invocant Relation and C<$other>; any dupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36658	36756	
==>tains all of the tuples that are in either or both of the
invocant Relation and C<$other>; any dupl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5850	5962	
==>sh @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5850	5962	
==>sh @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5850	5962	
==>sh @$jsthings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39276	39370	
==>etta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

D <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39276	39370	
==>etta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

D <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2388	2515	
==>$n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_siz <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2388	2515	
==>$n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_siz <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25208	25305	
==>turns a Bool indicating whether the immutable identity of the
argument C<$other> equals the immuta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29760	29857	
==>turns a Bool indicating whether the immutable identity of the
argument C<$other> equals the immuta <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28690	28787	
==>turns a Bool indicating whether the immutable identity of the
argument C<$other> equals the immuta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10398	10511	
==>plemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10398	10511	
==>plemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10398	10511	
==>plemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requires the f <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10285	10378	
==>data) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: S <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10285	10378	
==>data) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4079	4171	
==>ainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4079	4171	
==>ainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4079	4171	
==>ainer::Scalar;

use constant Inf => Perl6::Value::Num::Inf;

my $class_description = '-0.0.1- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4666	4780	
==>utput} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4666	4780	
==>utput} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4666	4780	
==>utput} or die "Couldn't open \"$cfg{output}\" for writing: $!\n";
  print $fh $html                or die "Couldn't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9424	9540	
==>t match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::E <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10230	10346	
==>t match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::E <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11145	11261	
==>t match the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2302	2445	
==>Str")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2302	2445	
==>Str")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2302	2445	
==>Str")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1944	2037	
==>tion for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1944	2037	
==>tion for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19831	19921	
==>6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19831	19921	
==>6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19831	19921	
==>6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2277	2387	
==>l = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2277	2387	
==>l = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2277	2387	
==>l = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;

  local $ENV{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3272	3382	
==>Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3272	3382	
==>Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3272	3382	
==>Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1982	2088	
==>l  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1982	2088	
==>l  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1982	2088	
==>l  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  my $min <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	853	962	
==>ss {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	853	962	
==>ss {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	853	962	
==>ss {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38868	38974	
==>ICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43682	43788	
==>ICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43216	43322	
==>ICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5878	6062	
==>$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fixity}_$op->{assoc}"};
                    unles <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	651	770	
==>$const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	651	770	
==>$const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1504	1615	
==>PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_onl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1504	1615	
==>PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_onl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1504	1615	
==>PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13279	13441	
==>$self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13279	13441	
==>$self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13279	13441	
==>$self->slice( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3310	3411	
==>utput of tests,
running those tests, and then telling this module to compare the received
output to th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3310	3411	
==>utput of tests,
running those tests, and then telling this module to compare the received
output to th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3390	3491	
==>utput of tests,
running those tests, and then telling this module to compare the received
output to th <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	130	281	
==>f, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "so <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19204	19300	
==>ming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19204	19300	
==>ming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17706	17842	
==>f ($regex) {
                    # we're skipping forward till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	39	128	
==>grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	39	128	
==>grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15490	15596	
==>urn 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15490	15596	
==>urn 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15490	15596	
==>urn 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1845	2002	
==>es = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1845	2002	
==>es = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayl <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19517	19649	
==>e top?
                # this is what you get at the moment
                push @bad_heading, "link in $source to $target does not h <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14459	14562	
==>{ $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::l <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1939	2042	
==>{ $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27837	27932	
==>xport_as_hash () returns Hash>

This method returns a deep copy of this Relation::Example as a H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	899	997	
==>SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	899	997	
==>SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23164	23260	
==>s, use C<qr//>, or mix single-
and double-quoted strings in building your regex.

=back

=head1 A <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2383	2488	
==>ile = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $self->license_from($file)  u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1917	2013	
==>od push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method in <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1917	2013	
==>od push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	522	669	
==>~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	522	669	
==>~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*( <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1976	2070	
==>hin wrapper around Test::Harness.

=head2 Taint mode

Test::Harness will honor the C<-T> or C<- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	15	117	
==>This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	15	117	
==>This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	15	117	
==>This module provides ->as_js methods for the objects returned by PIL::Parser.

use warnings;
use strict <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5585	5689	
==>', '... $iFoo got the right method return value');

## make subclasses

my $Bar = $Class->new(
    '$:nam <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15485	15579	
==>ntation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15485	15579	
==>ntation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8242	8360	
==>=> $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1768	1904	
==>xy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1768	1904	
==>xy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1768	1904	
==>xy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        } <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17629	17803	
==>, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ an <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20880	21008	
==>'add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43804	43932	
==>'add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11895	12023	
==>$_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11895	12023	
==>$_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11895	12023	
==>$_[1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	519	624	
==>ingification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	519	624	
==>ingification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	519	624	
==>ingification
#
# 2005-09-01
# * Added support for unboxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12663	12776	
==>)) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12663	12776	
==>)) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12663	12776	
==>)) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13381	13509	
==>t;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13381	13509	
==>t;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13381	13509	
==>t;
            $ret->elems ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	261	364	
==>s) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	261	364	
==>s) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	261	364	
==>s) {
    args.pop()(new PIL2JS.Box.Constant(args[1].FETCH().pil2js_name));
  })')($self);
}

# XXX waiti <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20855	20965	
==>))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method b <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15931	16024	
==>col can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15989	16082	
==>col can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12081	12176	
==>esc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() si <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12139	12234	
==>esc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6378	6546	
==>r' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6378	6546	
==>r' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6378	6546	
==>r' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind() <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	542	732	
==>reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip commen <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	542	732	
==>reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip commen <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5971	6108	
==>chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5971	6108	
==>chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2910	3004	
==>> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternatives(W, Z).

p6_conjunct(Z) --> p6_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6629	6742	
==>) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6629	6742	
==>) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6629	6742	
==>) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implementation of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1680	1781	
==>ion (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1680	1781	
==>ion (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.di <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1680	1781	
==>ion (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS.di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	732	833	
==>ass in a use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	732	833	
==>ass in a use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23938	24029	
==>My understanding of alternate solutions like "gettext" suggests that they
use a compile-time <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23938	24029	
==>My understanding of alternate solutions like "gettext" suggests that they
use a compile-time <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11265	11354	
==>l
	'==' => type::operator::arrow->new(
		type::operator::nullary->new("int"),
		type::oper <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11279	11403	
==>one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14756	14880	
==>one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14064	14188	
==>one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5713	5836	
==>+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5713	5836	
==>+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5713	5836	
==>+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub globify_mangled {
    my($mn)=@_;
    my($sigil,$bare <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2583	2692	
==>ainer ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2583	2692	
==>ainer ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1506	1602	
==>- map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1506	1602	
==>- map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1506	1602	
==>- map(), grep() could accept the optional 'celems' parameter - for kv() implementation
# TODO - i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2066	2199	
==>rchive = $meta;
        $archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1262	1359	
==>{
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File:: <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1262	1359	
==>{
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	127	231	
==>> $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	127	231	
==>> $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	127	231	
==>> $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10131	10238	
==>Pad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10131	10238	
==>Pad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10131	10238	
==>Pad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10231	10346	
==>attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10231	10346	
==>attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10231	10346	
==>attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13649	13745	
==>-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13649	13745	
==>-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13649	13745	
==>-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8519	8626	
==>hod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.write( $footer ) if $foot <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4796	4900	
==>tta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Crea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4796	4900	
==>tta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Crea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1173	1290	
==>tance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1173	1290	
==>tance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1173	1290	
==>tance) eq 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2756	2882	
==>ength; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2756	2882	
==>ength; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2756	2882	
==>ength; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8	105	
==>PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8	105	
==>PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8	105	
==>PIL::Run::EvalX;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13003	13114	
==>Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13003	13114	
==>Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cach <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13003	13114	
==>Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cach <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4277	4375	
==>_b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4277	4375	
==>_b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4277	4375	
==>_b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4834	4947	
==>t write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4834	4947	
==>t write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4834	4947	
==>t write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pipe to \"$cfg{js}\": $!\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13809	13922	
==>s ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13809	13922	
==>s ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13809	13922	
==>s ) = map { $_->clone } ( $ret, @lists );
            warn "zip->clone has pending shifts/pops" if @{$self->{pops} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3589	3723	
==>_('$.output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	814	925	
==>e opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1019	1130	
==>e opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1075	1186	
==>e opaque structure
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1316	1427	
==>.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1316	1427	
==>.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1316	1427	
==>.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9075	9193	
==>ub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12931	13043	
==>ub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12931	13043	
==>ub {};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11123	11255	
==>od ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11123	11255	
==>od ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11123	11255	
==>od ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12421	12530	
==>eft [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12421	12530	
==>eft [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12421	12530	
==>eft [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n";
            return shift @{$self->{shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13361	13499	
==>e ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13361	13499	
==>e ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13361	13499	
==>e ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "N <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2231	2344	
==>);
}

sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess " <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	879	982	
==>is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expecte <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	937	1040	
==>is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expecte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2995	3115	
==>(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2995	3115	
==>(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2995	3115	
==>(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5308	5479	
==>$op->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3431	3568	
==>, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3431	3568	
==>, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21194	21286	
==>>data[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	879	969	
==>English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	879	969	
==>English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15979	16082	
==>);
	\%new;
}
let: env($.is) = { new_env($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9318	9409	
==>e

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9318	9409	
==>e

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3599	3703	
==>ubroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5029	5120	
==>final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5029	5120	
==>final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	159	264	
==>rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	150	251	
==>rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14347	14458	
==>thod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14347	14458	
==>thod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14347	14458	
==>thod_table(\%params);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2040	2159	
==>= %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2040	2159	
==>= %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|cir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2040	2159	
==>= %s",
      PIL::name_mangle($self->name),
      PIL::doublequote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|cir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2071	2181	
==>}
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicaln <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2071	2181	
==>}
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicaln <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2071	2181	
==>}
    $code(*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicaln <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3432	3616	
==>st if grep {
                        $_ eq $wanted
                    } @{ $test->{provides} || [] };
            }
        
            ### find the alternative with the highest versi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6023	6135	
==>refix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6023	6135	
==>refix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10214	10332	
==>)) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10214	10332	
==>)) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10214	10332	
==>)) {    
        return 1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10321	10432	
==>key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10321	10432	
==>key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10321	10432	
==>key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5('${tmp}::$key',\@a) }";
	    print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1328	1428	
==>to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1328	1428	
==>to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1328	1428	
==>to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scalar->value)
# TODO - store(Ha <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9514	9623	
==>ators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test member <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9514	9623	
==>ators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test member <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14074	14181	
==>erl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl' aliased properly
	return $Perl i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1418	1537	
==>ng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module My <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	592	677	
==>|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	592	677	
==>|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8418	8519	
==>rmalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8418	8519	
==>rmalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17745	17883	
==>{
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17745	17883	
==>{
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17745	17883	
==>{
                    my $method = ::WALKMETH($dispatcher, $label, %opts); 
                    confess "No next-method for '$label' found" <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4034	4130	
==>type () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBin <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4034	4130	
==>type () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37244	37340	
==>l subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41793	41889	
==>l subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41416	41512	
==>l subset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	407	515	
==>d
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run('n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21273	21369	
==>would come up with keys which are unique across all Perl packages
(perhaps the key name can start <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21273	21369	
==>would come up with keys which are unique across all Perl packages
(perhaps the key name can start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20257	20349	
==>xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20257	20349	
==>xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20257	20349	
==>xx1) { p6_from_b(!p6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Per <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	395	491	
==>se();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilf <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	395	491	
==>se();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilf <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	409	505	
==>Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cut

$VERSION = "2.46" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12952	13196	
==>sa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12952	13196	
==>sa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12952	13196	
==>sa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25484	25701	
==>RO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=pod

method s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33808	33903	
==>ds to
an individual user's (or user role's) preferences such that each says what
language they p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33808	33903	
==>ds to
an individual user's (or user role's) preferences such that each says what
language they p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6413	6511	
==>ts.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and add <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6413	6511	
==>ts.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8610	8708	
==>ts.

=item B<status returns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and add <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	41	145	
==>::Node;

has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "sourc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	41	145	
==>::Node;

has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "sourc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4412	4516	
==>rray::delete (@array ; *@indices --> List )
 { ... } # XXX


 multi method Array::exists (@array ; Int *@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1078	1181	
==>:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1078	1181	
==>:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1078	1181	
==>:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX shouldn't n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21615	21720	
==>ift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($split <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21615	21720	
==>ift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($split <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21615	21720	
==>ift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($split <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7910	8009	
==>is method is being called, the Secret 
Police are breaking down the door and Our Heroes need any sen <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7910	8009	
==>is method is being called, the Secret 
Police are breaking down the door and Our Heroes need any sen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5054	5137	
==>rn ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5054	5137	
==>rn ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5054	5137	
==>rn ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
})) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11556	11682	
==>eturn { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11835	11961	
==>eturn { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11020	11118	
==>L-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11020	11118	
==>L-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11020	11118	
==>L-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	435	561	
==>function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	435	561	
==>function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	435	561	
==>function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, n ]);
        return this;
      }
    );

    cc(pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4596	4718	
==>BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4596	4718	
==>BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4596	4718	
==>BINDTO(nameds[$pairname]);
  args = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3248	3360	
==>-- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3248	3360	
==>-- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3248	3360	
==>-- Because then all
      # operations yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.pos <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8933	9058	
==>$code = "Rul.new(:f(sub($str)\{
           my $re = $hook$adverbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = - <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	709	805	
==>ript or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined f <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	709	805	
==>ript or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2833	2950	
==>lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2833	2950	
==>lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2833	2950	
==>lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10435	10588	
==>gnature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented( $n, "statement" );
}

sub infi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5814	5928	
==>p
  descr  => "Welcome",
  ensure => sub { $welcomed },
  using  => sub { $welcomed++ },
  pause  => 1,
  help   => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	163	252	
==>::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;

my %relative_precedence <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38409	38576	
==>'));                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7544	7700	
==>efined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7544	7700	
==>efined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7544	7700	
==>efined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15896	16078	
==>o subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15890	16072	
==>o subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@matc <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11404	11505	
==>("int"),
			type::operator::nullary->new("bool"),
		),
	),
);


package main;

use strict;
use warning <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18821	18962	
==>b can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18821	18962	
==>b can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18821	18962	
==>b can {
        $Dispatchable::AUTOLOAD = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $D <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20667	20776	
==>e 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # see 12.3
      <';'>
}
rule Ex <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	29	125	
==>od

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew when <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	29	125	
==>od

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew when <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	800	916	
==>pet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	759	870	
==>pet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2276	2407	
==>{   
        ### load in the alternatives collection
        my $href = LoadFile( $Altfile );

        ### this package didn't provi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	504	603	
==>);
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

su <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	504	603	
==>);
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13004	13091	
==>s the same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedTe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13004	13091	
==>s the same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedTe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6713	6843	
==>r is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # repl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6713	6843	
==>r is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # repl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	169	268	
==>per::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use strict;

sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2434	2552	
==>stant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2434	2552	
==>stant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2434	2552	
==>stant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4302	4404	
==>os_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4302	4404	
==>os_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4892	4994	
==>os_arg;
	unless ($current) {
	    last if $param->is_optional;
	    croak "positional argument ".$param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1755	1853	
==>udepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1755	1853	
==>udepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1755	1853	
==>udepc} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2692	2800	
==>TIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2692	2800	
==>TIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2692	2800	
==>TIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @args, "-e", $src;
} else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17003	17106	
==>{ to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17003	17106	
==>{ to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17003	17106	
==>{ to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23692	23804	
==>ined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23692	23804	
==>ined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23692	23804	
==>ined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11056	11157	
==>on-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->cat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11056	11157	
==>on-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->cat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11056	11157	
==>on-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->cat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20964	21232	
==>$elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20964	21232	
==>$elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20964	21232	
==>$elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1829	1961	
==>::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $tmpl, \%hash ) 
                        or error( Params::Check->last_error ), <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	862	967	
==>nal packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # A <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	862	967	
==>nal packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # A <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21506	21601	
==>ackage or program which uses yours may wish to
override some of your messages, showing other mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21506	21601	
==>ackage or program which uses yours may wish to
override some of your messages, showing other mes <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	220	331	
==>able';

sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $value; # default to empty string <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6524	6615	
==>class foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11582	11673	
==>class foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'B <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19022	19125	
==>n:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19022	19125	
==>n:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8341	8444	
==>$pkg, force => $force);
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inden <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3295	3436	
==>e);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($in <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3295	3436	
==>e);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19792	19901	
==>rror($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $self->{nparen} = $tree->[-1]->nparen
      if $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	258	370	
==>nter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	258	370	
==>nter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	258	370	
==>nter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shif <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1077	1191	
==>XX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4003	4114	
==>is Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # L <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4003	4114	
==>is Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # L <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3003	3103	
==>lue.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sendin <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3003	3103	
==>lue.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sendin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1252	1340	
==>n("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	298	401	
==>e && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	298	401	
==>e && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	298	401	
==>e && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      f <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	922	1063	
==>dcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	922	1063	
==>dcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_ <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	138	239	
==>::TestPrograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $back <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	258	366	
==>(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	258	366	
==>(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	258	366	
==>(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2721	2830	
==>de";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2721	2830	
==>de";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2721	2830	
==>de";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6420	6526	
==>w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6420	6526	
==>w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6420	6526	
==>w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19935	20029	
==>UB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19935	20029	
==>UB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19935	20029	
==>UB infix:<le> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33869	33982	
==>b is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33869	33982	
==>b is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33869	33982	
==>b is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24508	24624	
==>good = $max - $failed - $skipped;
        my $skipmsg = " (less $skipped skipped test$ender: $good okay, ";
        i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19804	19900	
==>e
dynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19804	19900	
==>e
dynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1588	1710	
==>m  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2258	2378	
==>ueue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 A <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2258	2378	
==>ueue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	232	349	
==>my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	232	349	
==>my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \& <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	232	349	
==>my $pkg = caller;
    *{"${pkg}::class"} = \&class;
    *{"${pkg}::role"}  = \&role;   
    
    *{"${pkg}::__"}  = \& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	202	306	
==>ie if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	202	306	
==>ie if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	202	306	
==>ie if     $self->{pScope} eq "SOur";
  die unless ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3282	3370	
==>rn ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3282	3370	
==>rn ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3282	3370	
==>rn ::WALKMETH(::opaque_instance_class($self)->dispatcher(':canonical'), $label);
});

::C <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2055	2174	
==>my $sec = $.second;
    my $round_sec = int($sec);
    my $rem = $sec - $round_sec;
    my $nano = $rem * 1e9;
    retur <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1820	1913	
==>e own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=h <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1820	1913	
==>e own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7124	7238	
==>b {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "Z", " in character class") if $cc;
    return $S->force_object <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2831	2929	
==>e::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2831	2929	
==>e::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9916	10021	
==>il 
    # for the methods described below.
    # -----------------------------------------------
    # has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9916	10021	
==>il 
    # for the methods described below.
    # -----------------------------------------------
    # has <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9916	10021	
==>il 
    # for the methods described below.
    # -----------------------------------------------
    # has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3046	3228	
==>('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3046	3228	
==>('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3046	3228	
==>('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class->name) . 
                        ']');                   
        $eigencla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2722	2823	
==>infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2722	2823	
==>infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2722	2823	
==>infix:«+<»",   2, "N", "Number(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8034	8143	
==>ass => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4605	4700	
==>www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4605	4700	
==>www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	995	1099	
==>but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	995	1099	
==>but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	995	1099	
==>but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	307	443	
==>ls}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1541	1643	
==>ng Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1748	1850	
==>ng Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelu <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9156	9261	
==>(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, ' <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9214	9319	
==>(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2463	2615	
==>join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        jo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2463	2615	
==>join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        jo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2463	2615	
==>join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        jo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	688	794	
==>TDERR "\b\n";
      printf STDERR "  %s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } spli <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	930	1025	
==>chet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	930	1025	
==>chet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37155	37256	
==>ates to a
C<product>.  In any situation where the heading of one source relation is a
full subset of a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41704	41805	
==>ates to a
C<product>.  In any situation where the heading of one source relation is a
full subset of a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41327	41428	
==>ates to a
C<product>.  In any situation where the heading of one source relation is a
full subset of a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2145	2248	
==>e::Val;
    use base 'Blondie::Node::Unit';

    package Blondie::Seq;
    use base 'Blondie::Node::List <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7489	7591	
==>om_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown excep <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7489	7591	
==>om_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown excep <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9788	9929	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10067	10208	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20356	20471	
==>E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17828	18011	
==>ody.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21305	21488	
==>ody.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20892	21075	
==>ody.values -> $t2 {
                    $t2common_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2528	2633	
==>problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2433	2535	
==>problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7142	7262	
==>]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7142	7262	
==>]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7142	7262	
==>]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub p <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1634	1781	
==>ORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @di <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1601	1748	
==>ORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @di <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6462	6591	
==>s
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6462	6591	
==>s
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6462	6591	
==>s
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2411	2513	
==>code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2411	2513	
==>code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13740	13836	
==>ld names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in tu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13740	13836	
==>ld names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in tu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	201	297	
==>5-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	201	297	
==>5-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	201	297	
==>5-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	545	691	
==>t(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	545	691	
==>t(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	545	691	
==>t(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	428	536	
==>tr.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	428	536	
==>tr.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	428	536	
==>tr.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1523	1628	
==>k::cmpthese(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => sub{$r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16083	16187	
==>ch the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16083	16187	
==>ch the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	64	197	
==>0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	64	197	
==>0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	64	197	
==>0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7427	7534	
==>::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7427	7534	
==>::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7427	7534	
==>::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12976	13144	
==>\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12970	13138	
==>\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$ <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	996	1111	
==>o8601' to available ISO-8601 duration formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3609	3813	
==>while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3609	3813	
==>while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14853	14967	
==>b pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14853	14967	
==>b pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq <==
3	/Users/nnunley/pugs/util/package-osx.pl	6673	6767	
==>local/man/man3/Perl6::Overview::Subroutine.3
        /usr/local/man/man3/Perl6::Overview::Subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1173	1289	
==>alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1173	1289	
==>alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1173	1289	
==>alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5584	5693	
==>ace = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5584	5693	
==>ace = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5584	5693	
==>ace = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3786	3894	
==>line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5453	5557	
==>my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5453	5557	
==>my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17327	17529	
==>':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17327	17529	
==>':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17327	17529	
==>':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1006	1117	
==>c_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1006	1117	
==>c_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1006	1117	
==>c_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4554	4652	
==>bject.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

Th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4804	4902	
==>bject.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

Th <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6881	6977	
==>ken whitespace:<basic_whitespace> { \s+ }

rule identifier { \w+ }
token literal_int { \d+ }

rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19427	19551	
==>match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19706	19830	
==>match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
* <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1473	1664	
==>r 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4951	5141	
==>r
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3881	4071	
==>r
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submethod BUILD (Set of Str :$heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8190	8294	
==>.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8190	8294	
==>.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8190	8294	
==>.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo bar) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14763	14887	
==>yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14763	14887	
==>yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14763	14887	
==>yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12349	12464	
==>_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12349	12464	
==>_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12349	12464	
==>_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11123	11235	
==>[^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23525	23613	
==>tta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23525	23613	
==>tta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Roset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8184	8288	
==>oo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8184	8288	
==>oo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8184	8288	
==>oo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(fo <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	334	456	
==>ub { 1 };
  $args{using}  ||= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3337	3462	
==>f;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3337	3462	
==>f;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3337	3462	
==>f;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4223	4327	
==>IL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4223	4327	
==>IL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4223	4327	
==>IL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aH <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	276	371	
==>XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::Fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	276	371	
==>XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::Fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	276	371	
==>XXX correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::Fa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1190	1307	
==>ark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Ig <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1190	1307	
==>ark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Ig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19855	19973	
==>UB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19855	19973	
==>UB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19855	19973	
==>UB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI SUB infix:<le> ($xx0,$xx1) { p6_from_b(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6633	6761	
==>ined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6633	6761	
==>ined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6633	6761	
==>ined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4694	4840	
==>r last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4694	4840	
==>r last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4694	4840	
==>r last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5585	5689	
==>ub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5585	5689	
==>ub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2971	3096	
==>bute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2971	3096	
==>bute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2971	3096	
==>bute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method('get_attribu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8678	8776	
==>ind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDefault ? DOWN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16867	16964	
==>ent-Encoding header field is used as a modifier to the
media type.  When present, its value indica <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16867	16964	
==>ent-Encoding header field is used as a modifier to the
media type.  When present, its value indica <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1193	1302	
==>: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1193	1302	
==>: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library fun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1193	1302	
==>: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All library fun <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10144	10249	
==>ay $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

me <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10144	10249	
==>ay $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

me <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25313	25413	
==>ys.  The tests that use regmust have a
 * heuristic that disables the test if it usually matches.]
 * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1778	1903	
==>ther your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1778	1903	
==>ther your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1778	1903	
==>ther your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2769	2871	
==>lds[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2769	2871	
==>lds[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	415	502	
==>his article: http://research.microsoft.com/Users/luca/Papers/BasicTypechecking.pdf

# pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2187	2319	
==>S::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2187	2319	
==>S::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2187	2319	
==>S::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7285	7425	
==>GTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unp <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7285	7425	
==>GTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unp <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4265	4357	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2128	2248	
==>$_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($ext <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2045	2159	
==>$_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($ext <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1028	1149	
==>h {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	914	1003	
==>ent describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	914	1003	
==>ent describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This docu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16490	16593	
==>lues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOP <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16490	16593	
==>lues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOP <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16490	16593	
==>lues { 
    @_
}


=head1 NAME

Perl6::Value::List - Perl extension for Perl6 "List" class

=head1 SYNOP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2998	3105	
==>6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2998	3105	
==>6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2998	3105	
==>6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7655	7777	
==>le_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'prima <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7655	7777	
==>le_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'prima <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	977	1088	
==>ALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	977	1088	
==>ALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	977	1088	
==>ALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# FixedVarname]), i.e. NormalVar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	490	592	
==>'t make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26159	26255	
==>CULAR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26159	26255	
==>CULAR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5078	5273	
==>->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5078	5273	
==>->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5078	5273	
==>->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34280	34378	
==>d is a generic relational operator that returns the complement of
C<semijoin> with the same argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38830	38928	
==>d is a generic relational operator that returns the complement of
C<semijoin> with the same argumen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38309	38407	
==>d is a generic relational operator that returns the complement of
C<semijoin> with the same argumen <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7534	7630	
==>`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing the lazy a <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7534	7630	
==>`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing the lazy a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9056	9222	
==>nt;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9056	9222	
==>nt;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9056	9222	
==>nt;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $length <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21846	21995	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22125	22274	
==>rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4372	4469	
==>rg>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is fre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11336	11459	
==>set to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11336	11459	
==>set to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21835	21932	
==>awful name
for the field.  There will still be a class() method in F<__object__>,
but it will thro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5372	5562	
==>_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8849	9039	
==>_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7869	8059	
==>_.value.( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Re <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13934	14029	
==>t::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flav <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13934	14029	
==>t::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35392	35512	
==>dy=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35392	35512	
==>dy=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35392	35512	
==>dy=remaining 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4548	4737	
==>ames );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_ha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4548	4737	
==>ames );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2058	2163	
==>t = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ide <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9183	9312	
==>[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9171	9300	
==>[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_mat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	619	737	
==>ust deal with Inf and NaN
    no warnings 'numeric';
    return num->new((shift)->to_native() + 0);
}

# implement comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2414	2514	
==>str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method ri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2414	2514	
==>str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method ri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2414	2514	
==>str, substr, pos) {
    return str.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method ri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3892	4011	
==>{
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3892	4011	
==>{
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3892	4011	
==>{
    my ($self, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1939	2075	
==>tr unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= jo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30360	30458	
==>s as part of a set, at least one member
large, with each set member being an an exclusive alternati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30360	30458	
==>s as part of a set, at least one member
large, with each set member being an an exclusive alternati <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12332	12452	
==>GE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4745	4839	
==>s::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an imp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4885	4979	
==>s::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2772	2881	
==>hing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2772	2881	
==>hing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2772	2881	
==>hing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4940	5034	
==>st::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4998	5092	
==>st::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2807	2901	
==>->warn(RPe_BADESC, "C", " in character class") if $cc;
    return $S->force_object(anyof_char = <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	89	198	
==>d 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * do <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	89	198	
==>d 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * do <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4488	4611	
==>e', aborting...\n";
        }

        unless( File::Spec->canonpath($candidates[0]) eq $target ) {
            mkpath(($tar <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6472	6560	
==>$self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6472	6560	
==>$self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6372	6525	
==>y $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3497	3650	
==>y $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4346	4499	
==>y $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16913	17038	
==>on, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20390	20515	
==>on, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another op <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19968	20093	
==>on, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size()) {
        # Another op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11793	11897	
==>rl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11793	11897	
==>rl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11793	11897	
==>rl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7801	7901	
==>icalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7801	7901	
==>icalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7801	7901	
==>icalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1822	1935	
==>ush @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1822	1935	
==>ush @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1902	2015	
==>ush @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15101	15253	
==>y subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 * <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19276	19428	
==>y subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3952	4074	
==>ump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3952	4074	
==>ump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3952	4074	
==>ump($self);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14635	14730	
==>ake_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14635	14730	
==>ake_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14635	14730	
==>ake_attribute('%:class_methods'));

## Now we make Class conform to the Package interface

::Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2633	2741	
==>) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2633	2741	
==>) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2633	2741	
==>) || confess "No label to fetch";
        unlock_keys(%{$instance->{attrs}}); 
        $instance->{attrs}->{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2700	2805	
==>r die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2700	2805	
==>r die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2700	2805	
==>r die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	93	218	
==>rt {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'M <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	93	218	
==>rt {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'M <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9798	9907	
==>OWN($_)}@$value).")" } # XXX
NODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($typename) {
    p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1003	1164	
==>ew(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Local <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1003	1164	
==>ew(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Local <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2722	2837	
==>names) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $attr_name )) {
            return <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1717	1860	
==>a( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<obj <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1717	1860	
==>a( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<obj <==
3	/Users/nnunley/pugs/util/importgraph.pl	2228	2314	
==>, qr/^Pugs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Compile.Haskell', 'Pugs.Compile <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4535	4642	
==>e,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# ----- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4535	4642	
==>e,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# ----- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1951	2054	
==>$self->t($node);

	if ($t eq "IV") {
		return $node->struct_equiv;
	} elsif ($t eq "PV") {
		return quot <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	555	676	
==>~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	555	676	
==>~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25765	25859	
==>rint a x b -> c");
}
{
	my $type = type::operator::nary->new(list => type::variable::free->new) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8802	8910	
==>LTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8802	8910	
==>LTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8802	8910	
==>LTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($xx) {...};
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2781	2935	
==>eturn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2781	2935	
==>eturn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2781	2935	
==>eturn Bit->new( '$.unboxed' => 1 );
                }
                if ( $type eq 'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12142	12260	
==>ned in CORE which just call back to the
  original comp and exec (not implemented).  The C hooks call for the
  sub hoo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4171	4270	
==>r the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4171	4270	
==>r the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4937	5050	
==>f($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4937	5050	
==>f($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4937	5050	
==>f($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1250	1368	
==>ringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1250	1368	
==>ringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1250	1368	
==>ringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Value: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	197	295	
==>*

A method's Code property usually has a single invocant typed to the
Role it is attached to (howe <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5208	5301	
==>failure

=item data

The C<data> method returns a hash reference representing the configuratio <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5208	5301	
==>failure

=item data

The C<data> method returns a hash reference representing the configuratio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8996	9132	
==>. $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $it <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8996	9132	
==>. $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $it <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8996	9132	
==>. $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $it <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	974	1136	
==>x:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interp <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	974	1136	
==>x:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26231	26332	
==>d
  }

If the match fails, the C<pos()> value won't be reset (due to the C</c>
modifier).  Remember to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	550	658	
==>s[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	550	658	
==>s[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	550	658	
==>s[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3263	3384	
==>",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3263	3384	
==>",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3263	3384	
==>",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	366	471	
==>e other hand, we could actually make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1243	1339	
==>er uses as well.

Log::Selective exports a single function, C<note>, which is called with zero or <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1243	1339	
==>er uses as well.

Log::Selective exports a single function, C<note>, which is called with zero or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2392	2506	
==>tive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2392	2506	
==>tive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2392	2506	
==>tive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} || %mods{'overlap'};
  my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7383	7483	
==>F--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xY <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7383	7483	
==>F--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xY <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16016	16115	
==>nv($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types::unify(
		new_env($$)->{ $.ide } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3248	3342	
==>ied";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3248	3342	
==>ied";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3248	3342	
==>ied";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[1]) })')($arg);
} <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2987	3210	
==>rion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4850	5020	
==>ure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                lo <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4850	5020	
==>ure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                lo <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2970	3085	
==>bably be the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "ope <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34065	34165	
==>e, a match in found in the most preferred language
is used.  Each Set Name can be any defined and non <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34065	34165	
==>e, a match in found in the most preferred language
is used.  Each Set Name can be any defined and non <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5831	5974	
==>\@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5831	5974	
==>\@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    ret <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11843	11958	
==>";
      }
      $link->{sourcepath}=$output_path;
      $output .= $text;
      my $syn_path = catfile($output_dir, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	555	812	
==>.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

clas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	555	812	
==>.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

clas <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2032	2136	
==>se base 'Blondie::Node::Unit';

    package Blondie::App;
    use base 'Blondie::Node::List';

    packag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	611	709	
==>t(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	611	709	
==>t(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4228	4315	
==>NG Class/Object COMPLETE
## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3374	3521	
==>()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3374	3521	
==>()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3374	3521	
==>()',
                     ':' => "p6_declare_class('$barename')",
                     );
    my $vivifier = $vivifiers{$sigil} || die "bug";
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4775	4936	
==>a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4775	4936	
==>a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4775	4936	
==>a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10172	10290	
==>RL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Us <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2793	2892	
==>ing children

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bou <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2793	2892	
==>ing children

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bou <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8841	8969	
==>= Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8841	8969	
==>= Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15420	15517	
==>first argument
# for success, or returns the definition of success (e.g. the
# expected scalar) if <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	622	739	
==>bug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	224	327	
==>s export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	224	327	
==>s export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	109	263	
==>kip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	109	263	
==>kip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	731	855	
==>unless +@:diagnostics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @:diagnostics   = ();
        return $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1556	1663	
==>}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1556	1663	
==>}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
fo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1556	1663	
==>}; die $@ if $@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
fo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34176	34319	
==>w(1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher', symbol->ne <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6080	6166	
==>$event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6080	6166	
==>$event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)} <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	845	994	
==>$iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	84	185	
==>y Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal array <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	84	185	
==>y Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal array <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3957	4050	
==>}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_strin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3957	4050	
==>}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_strin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1088	1195	
==>);
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	236	350	
==>OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	236	350	
==>OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6524	6618	
==>'}->{'does'}->(@_);
});

# now Class does Role

## -------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6204	6312	
==>ate a local variable '$out' inside the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$self\)=/;

    #pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1392	1487	
==>_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1392	1487	
==>_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1392	1487	
==>_instance_add_new_attribute($meta_obj => '$:name'      => '');
    ::opaque_instance_add_new_att <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	483	605	
==>f the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	483	605	
==>f the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    me <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28166	28257	
==>$no_such_sym) } "all identifiers need to be resolvable";
dies_ok { t($app_plus_ten_to_str) } <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6302	6410	
==>ds from the given filehandle.

=cut

sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it = Test::Har <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3459	3560	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 ) <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3459	3560	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 ) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10727	10861	
==>ine_$.'></a>";
    while ( $rest =~ $link ) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1505	1607	
==>ject that has a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1505	1607	
==>ject that has a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10820	10961	
==>'.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10820	10961	
==>'.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10820	10961	
==>'.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	928	1048	
==>1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	937	1057	
==>1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$con <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	176	274	
==>omehow incorporated in the test suit

use File::Compare qw(compare);


my $pugs = "../../pugs";

fo <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	92	197	
==>überflüssig
}
class Welt {
	method hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=ben <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7747	7846	
==>hunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7747	7846	
==>hunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18950	19129	
==>} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18950	19129	
==>} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18950	19129	
==>} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully su <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11096	11222	
==>r $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11096	11222	
==>r $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9787	9901	
==>to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9787	9901	
==>to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9787	9901	
==>to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dis <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	996	1254	
==><< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	996	1254	
==><< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1455	1553	
==>fprintf(f, format, c);
}

PV prel_cat (PV x, PV y) {
	char * target = (char *)GC_MALLOC(sizeof(char <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2265	2392	
==>ype' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'type' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	999	1095	
==>ring> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	999	1095	
==>ring> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19812	19910	
==>val_p5_code($p5);
}
sub p6_eval_file {
    my($fn)=@_;
    my $cc = Perl6::Run::OnPerl5::X1::CodeCo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13033	13130	
==>pty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13033	13130	
==>pty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5597	5700	
==>%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5597	5700	
==>%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5597	5700	
==>%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_r <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9865	9987	
==>$self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9865	9987	
==>$self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5008	5114	
==>e->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_open'} = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	575	703	
==>ew_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	575	703	
==>ew_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	575	703	
==>ew_sub_from_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12834	12932	
==>umber of fields removed is returned.

Note that if you pass in multiple field names then it is gene <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12834	12932	
==>umber of fields removed is returned.

Note that if you pass in multiple field names then it is gene <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11949	12056	
==>y($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11949	12056	
==>y($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2289	2379	
==>Michael Schilli of JavaScript::SpiderMonkey, whose
successful work got me thinking about tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	459	555	
==>er}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	459	555	
==>er}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	459	555	
==>er}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	668	787	
==>elf->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	684	803	
==>elf->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	660	779	
==>elf->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1186	1300	
==>func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1186	1300	
==>func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1186	1300	
==>func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new Array();
    fo <==
3	/Users/nnunley/pugs/util/func_refact.pl	1168	1279	
==>calar(keys %ccset) . "\n";

        print "\nFinding candidates.\n\n";

        candidates(\%ccset);
	#while (my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1307	1417	
==>L2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1307	1417	
==>L2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1307	1417	
==>L2JS::EXPORTS_DUMMY_VARIABLE',
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";

  } else {
    retur <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2268	2402	
==>){
#          print "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2775	2888	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2968	3081	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3894	3995	
==>lus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3894	3995	
==>lus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5418	5519	
==>lus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39810	39905	
==>e terms of the GNU Lesser General Public License (LGPL) as
published by the Free Software Founda <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39810	39905	
==>e terms of the GNU Lesser General Public License (LGPL) as
published by the Free Software Founda <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9675	9787	
==>perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10511	10623	
==>perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8197	8308	
==>end


.sub "parse_closure"
    .param pmc mob
    .local pmc newfrom
    .local string target
    .local pmc mfr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	223	318	
==>mane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	223	318	
==>mane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	223	318	
==>mane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Package is <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3318	3418	
==>my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] ma <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3318	3418	
==>my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2798	2897	
==>right class name');

is($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the ri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	622	718	
==>plement <after>.

- Captures need an internal 'counter', see the ratchet version for an impleme <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15004	15090	
==>us(R))),R1,RW0,RW1) :-
  re_rewrite(cap(plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),captur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	226	342	
==>_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	226	342	
==>_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	226	342	
==>_indent(1, "$_[1]\n") : "",
    PIL::add_indent(
      1,
      ref $_[0]->{body} eq "CODE"
        ? $_[0]->{body}-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2952	3076	
==>mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # sm <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2952	3076	
==>mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # sm <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	816	926	
==>)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $self->prompt($prompt, ($default || 'n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9831	9936	
==>nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9831	9936	
==>nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2177	2281	
==>vnull;

my $output ;# = svn("up") or die "Could not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22420	22533	
==>le ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTION

This lib <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16358	16459	
==>w_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16358	16459	
==>w_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2989	3102	
==>per($cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '<item>',
    } );
}



__END__

us <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18219	18316	
==>cts want to use the same external resources, such as a repository file
on disk, it is expected tha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18219	18316	
==>cts want to use the same external resources, such as a repository file
on disk, it is expected tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2851	2978	
==>sif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2851	2978	
==>sif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2851	2978	
==>sif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1003	1115	
==>ss defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $in <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7791	7886	
==>n '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=bac <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7791	7886	
==>n '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3005	3135	
==>ass->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3005	3135	
==>ass->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3005	3135	
==>ass->name if $DEBUG;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5017	5128	
==>@js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5017	5128	
==>@js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5017	5128	
==>@js, "args = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::unde <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	846	957	
==>, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code *&test  ) returns Lazy
 multi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16506	16604	
==>=> 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16506	16604	
==>=> 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6833	6925	
==>");
			if (!$x->isa("Blondie::TypeSafe::Type::Placeholder")) {
				return $self->types_eq($x- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17924	18024	
==>on

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is v <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3850	3943	
==>ference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3850	3943	
==>ference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	194	294	
==>the rule as it is executed, but the linked
list is done in code (i.e. with closures).  It has the fol <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	194	294	
==>the rule as it is executed, but the linked
list is done in code (i.e. with closures).  It has the fol <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20802	20900	
==>r . "/" . $subsubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_pare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37137	37261	
==>->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37137	37261	
==>->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37137	37261	
==>->{items}};
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	808	919	
==>c.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	808	919	
==>c.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	808	919	
==>c.
      # Think "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	735	828	
==>decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	735	828	
==>decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	735	828	
==>decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13650	13770	
==>d $extra ) {
            my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $self->{todo} = { map { <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3761	3864	
==>and($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unle <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3761	3864	
==>and($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1050	1198	
==>($message eq 'prototype' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	139	240	
==>ge symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	317	416	
==>= $node->digest;

    $digest => Blondie::Backend::C::Prim->new(
		equals => $digest,
		body => $par <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7490	7586	
==>plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7490	7586	
==>plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	473	590	
==>ction; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "differen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	473	590	
==>ction; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "differen <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	729	832	
==>ment comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native cmp $rig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	549	652	
==>ame and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	549	652	
==>ame and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	549	652	
==>ame and $subname eq "&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3398	3485	
==>trs($Class)->{'$:superclass'} = $Object;

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4092	4179	
==>trs($Class)->{'$:superclass'} = $Object;

## ------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5300	5387	
==>trs($Class)->{'$:superclass'} = $Object;

## ------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2530	2631	
==>ecurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$leve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2530	2631	
==>ecurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$leve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2530	2631	
==>ecurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$leve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2997	3198	
==>oxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2997	3198	
==>oxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2997	3198	
==>oxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11710	11833	
==>echeck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    rea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11710	11833	
==>echeck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    rea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37660	37836	
==>) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      branch => 1,
      neg => !$pos,
    }, $c <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8097	8210	
==>r $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8097	8210	
==>r $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33525	33714	
==>::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$class' => 'opaque'),                
                          ), <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18255	18350	
==>h.referer

Used to specify the address (URI) of the document from which the
requested resource a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18255	18350	
==>h.referer

Used to specify the address (URI) of the document from which the
requested resource a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2759	2859	
==>%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restore <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2759	2859	
==>%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restore <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2759	2859	
==>%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $name, $restore <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	221	322	
==>{
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	221	322	
==>{
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	221	322	
==>{
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{C <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6372	6491	
==>ame, $fh) = @_;

    my $it = Test::Harness::Iterator->new($fh);
    return $self->_analyze_iterator($name, $it);
}

=he <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1365	1465	
==>ose, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1365	1465	
==>ose, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12082	12198	
==>erver if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $sel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12082	12198	
==>erver if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $sel <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2204	2363	
==>bg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~@ret;
    }

    $depth++;
    dbg "# $tree[0] s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11837	11994	
==>ule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6617	6758	
==>'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6617	6758	
==>'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6617	6758	
==>'Str';
    return Ref->new('$.referred' => @arg) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5242	5347	
==>::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5242	5347	
==>::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5242	5347	
==>::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11023	11149	
==>ach my $todo_type (keys %todos) {
                my $num_tests = $todos{$todo_type};
                if ($todo_type eq '__') { <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6194	6306	
==>elf.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.star <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6194	6306	
==>elf.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.star <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2931	3134	
==>[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5577	5682	
==>n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return :: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5577	5682	
==>n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return :: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1896	1994	
==>de {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1820	1916	
==>de {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_ <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1894	2003	
==>($v, $newinput) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $newinput) = $_->($input))
      return( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14165	14261	
==>u can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14223	14319	
==>u can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (S <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9237	9395	
==>\@failed,
                    bonus       => $results{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{sk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3746	3853	
==>ur target system runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3611	3716	
==>ur target system runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11518	11644	
==>$s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11518	11644	
==>$s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11518	11644	
==>$s;
    $this->{$s}[0];
}
sub exists {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7546	7702	
==>ined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7546	7702	
==>ined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7546	7702	
==>ined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11011	11114	
==>s->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11011	11114	
==>s->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11011	11114	
==>s->{for} . " method table";
    }
});

::Class.meta.add_method('has_method' => method () {
    my ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	579	703	
==>ll = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	579	703	
==>ll = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	579	703	
==>ll = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.leng <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	386	518	
==>al[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	386	518	
==>al[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $n <==
3	/Users/nnunley/pugs/util/fixauthors.pl	159	276	
==>>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  map {my $x=$_; $x=~tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5074	5270	
==>body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5074	5270	
==>body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5074	5270	
==>body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }        
    }
    
    $new_class->resolve; # if $body->{does};
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4487	4610	
==>return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4487	4610	
==>return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4487	4610	
==>return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17577	17745	
==>for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17577	17745	
==>for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17577	17745	
==>for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next_METHOD = sub { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4616	4711	
==>sing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operator, my $stringTemp, my $tempPo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2936	3037	
==>pParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2936	3037	
==>pParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2936	3037	
==>pParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]->{t <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	650	767	
==>.

This has the effect of making C<Role> objects appear to "flatten" in
the classes which they are included; unlike th <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4956	5055	
==>et_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4956	5055	
==>et_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1922	2038	
==>t "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1922	2038	
==>t "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1922	2038	
==>t "refs";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12985	13075	
==>.

It also describes the same-number versions of Locale::KeyedText::Message
("Message") and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12985	13075	
==>.

It also describes the same-number versions of Locale::KeyedText::Message
("Message") and <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5416	5540	
==>parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5416	5540	
==>parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'sta <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10849	10970	
==>),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		ty <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3691	3806	
==>es )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7168	7283	
==>es )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6125	6240	
==>es )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13525	13638	
==>le pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pse <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13525	13638	
==>le pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pse <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7164	7263	
==>pen -| is unportable.
    my $line = $self->_command_line($file);
    unless( open(FILE, "$line|") ) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2765	2877	
==>at} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" )
  {
    $token{syncat} = PGE_OPTABLE_PREFIX;
  } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24687	24785	
==>option) any later version.  You should have received a
copy of the GPL as part of the Rosetta distr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24687	24785	
==>option) any later version.  You should have received a
copy of the GPL as part of the Rosetta distr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	893	1032	
==>e  if $message eq 'message-map';        
        
        # alias prototype to some common names for super
        return $table->{prototype <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4637	4763	
==>Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4637	4763	
==>Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.de <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1565	1684	
==>n;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1565	1684	
==>n;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8456	8573	
==>Digit {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3
      <'e'>
    | <'E'>
}
rule SignedInteg <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	406	508	
==>riables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $ma <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	406	508	
==>riables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	801	947	
==>t_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	801	947	
==>t_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	801	947	
==>t_class;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	123	245	
==>^>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1152	1256	
==>h a namespace of symbols and has

a main body closure. 



the Package part of the Module is simply a has <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1100	1201	
==>h a namespace of symbols and has
a main body closure. 

the Package part of the Module is simply a has <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4964	5152	
==>" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6726	6914	
==>" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <met <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18749	18862	
==>[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20107	20220	
==>[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12719	12823	
==>eturn Relation::Example.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5530	5629	
==>usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5530	5629	
==>usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5530	5629	
==>usage:
  \$ cd perl5/PIL2JS
  \$ ./pil2js.pl -o Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20186	20398	
==>f->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20186	20398	
==>f->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20186	20398	
==>f->cell->{v};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11869	11960	
==>eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11869	11960	
==>eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11869	11960	
==>eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pugs::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	230	338	
==>D}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	230	338	
==>D}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	230	338	
==>D}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1487	1592	
==>quired, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      requir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1694	1799	
==>quired, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      requir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	890	1022	
==>warnings 'void';\n" .   # t/07-try.t, t/07-ref.t
        $perl5 . "\n" .
        "; 1;\n";

    {
      # Perl::Tidy is used if avail <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5710	5821	
==>n {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open { <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5710	5821	
==>n {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17210	17318	
==>?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20687	20795	
==>?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.di <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20265	20373	
==>?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $!heading.di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7530	7637	
==>n { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7530	7637	
==>n { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7530	7637	
==>n { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27002	27095	
==>plement subset of the original's attributes to what C<project> would
return given the same C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31554	31647	
==>plement subset of the original's attributes to what C<project> would
return given the same C<$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30610	30703	
==>plement subset of the original's attributes to what C<project> would
return given the same C<$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16478	16589	
==>error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger VMS messages that won't be ex <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3373	3472	
==>T_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4509	4608	
==>T_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1391	1516	
==>cumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1391	1516	
==>cumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1391	1516	
==>cumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	738	855	
==>5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	738	855	
==>5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	738	855	
==>5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eva <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	604	737	
==>\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8981	9076	
==>ts, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other abo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8981	9076	
==>ts, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other abo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5516	5684	
==>elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5516	5684	
==>elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) f <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5516	5684	
==>elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8231	8332	
==>event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<obj <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8231	8332	
==>event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<obj <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	14	278	
==>s
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	14	278	
==>s
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27436	27531	
==>jects - objects for Perl 5 regexes

=head1 DESCRIPTION

This module contains the object definiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11648	11769	
==>[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11648	11769	
==>[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11648	11769	
==>[0], $_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9758	9913	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10037	10192	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	443	569	
==>";
    my $deep = 1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1001	1112	
==>:WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1001	1112	
==>:WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1001	1112	
==>:WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19	133	
==>file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19	133	
==>file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19	133	
==>file

# ChangeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4730	4834	
==>ck
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir ret <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4730	4834	
==>ck
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3528	3642	
==>", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3528	3642	
==>", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3528	3642	
==>", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6347	6546	
==>f defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6347	6546	
==>f defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	504	619	
==>$install_version eq '6';

    $self->WriteAll(@_);

    $self->pugs_fix_makefile;
}

sub set_makefile_macros {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3610	3751	
==>cted, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file thems <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3610	3751	
==>cted, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file thems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5134	5275	
==>cted, $description)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file thems <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13977	14097	
==>alize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13977	14097	
==>alize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13977	14097	
==>alize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('main');

    if(0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4652	4760	
==>_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4652	4760	
==>_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4652	4760	
==>_files

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6689	6784	
==>p6`;
my $m = match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->de <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	530	617	
==>= Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	530	617	
==>= Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2706	2806	
==>lding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2706	2806	
==>lding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4230	4330	
==>lding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1921	2019	
==>ass.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1921	2019	
==>ass.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11722	11861	
==>::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %res <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11722	11861	
==>::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %res <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	402	504	
==>)
# spike has succeeded.  The most of the re_tests are passing.  While
# the spike "coded to the tests" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6632	6735	
==>sult = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6632	6735	
==>sult = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29212	29306	
==>) ((void)(re && re->refcnt++), re)
 #define ReREFCNT_dec(re) CALLREGFREE(aTHX_ re)

 #define FB <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3638	3789	
==>$i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3638	3789	
==>$i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2155	2258	
==>omE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:ex <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15256	15379	
==>s primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XX <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4735	4837	
==>ext version of the data given.
The data may be either a string or an array of bytes; the array of bytes <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4735	4837	
==>ext version of the data given.
The data may be either a string or an array of bytes; the array of bytes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6515	6618	
==>s the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6527	6630	
==>s the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3193	3296	
==>ude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3193	3296	
==>ude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3193	3296	
==>ude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg{$what} = $new if $new;

  my <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2396	2506	
==>ildren -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------------ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2396	2506	
==>ildren -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------------ <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1416	1557	
==>s
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Arra <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2195	2291	
==>ix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2195	2291	
==>ix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11331	11476	
==>ed;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11331	11476	
==>ed;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11331	11476	
==>ed;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10767	10874	
==>}

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10767	10874	
==>}

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3847	3956	
==>p { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3847	3956	
==>p { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3847	3956	
==>p { $_[0] }
}

{
  package PIL::PCode;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21479	21579	
==>delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21479	21579	
==>delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21479	21579	
==>delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15075	15174	
==>ence to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set are consi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15075	15174	
==>ence to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set are consi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20010	20109	
==>s {  # see 12.2
      <'var'> <?ws_required> <VariableDeclarationList> <';'>
}
rule VariableDeclarat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9600	9724	
==>) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9600	9724	
==>) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9600	9724	
==>) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.leng <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2014	2172	
==>d = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
            }
        }
    }
    return $x_rou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6819	6925	
==>!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6819	6925	
==>!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	474	580	
==>ILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	474	580	
==>ILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	474	580	
==>ILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (%params) { 
    # thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17776	17915	
==>ethod eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17776	17915	
==>ethod eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17776	17915	
==>ethod eq 'clone' || $method eq 'splice' || $method eq 'reverse' ) {
                    my $ret = Array->new();
                    my @resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14688	14784	
==>($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCom <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14688	14784	
==>($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCom <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14688	14784	
==>($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCom <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2984	3106	
==>) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2984	3106	
==>) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2984	3106	
==>) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	882	998	
==>method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newre <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	882	998	
==>method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newre <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11513	11617	
==>:

  Perl subs get called for regexp comp and exec.
  The hooks are not package-specific.

Design:

  The <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2440	2566	
==>b multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $conta <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2440	2566	
==>b multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $conta <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4992	5099	
==>$mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(STDOUT);$|=1;  # auto-flush
-f $head or die "e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17525	17638	
==>G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13946	14059	
==>G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8869	9000	
==>eate the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8869	9000	
==>eate the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	675	769	
==>_dollar);
    $optable->addToken("term:.", "term:", "nows", "PGE::Exp::CCShortcut");
    $optab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2760	2914	
==>ity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2760	2914	
==>ity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2760	2914	
==>ity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_req <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	93	215	
==>per;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	98	220	
==>per;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4336	4432	
==>omepage at L<http://www.parrotcode.org>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann G <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7010	7121	
==>t(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from another Object sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7997	8108	
==>t(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from another Object sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10566	10677	
==>t(), 
   '&Object::another_singleton_test_on_object',
   '... got the right return value from another Object sin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12372	12477	
==>::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12372	12477	
==>::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12372	12477	
==>::Run::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3871	3966	
==>-----------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.languag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3871	3966	
==>-----------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.languag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3871	3966	
==>-----------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.languag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12834	12969	
==>s');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12834	12969	
==>s');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12834	12969	
==>s');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5515	5623	
==>);
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5515	5623	
==>);
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5515	5623	
==>);
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1729	1820	
==>mplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1729	1820	
==>mplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1729	1820	
==>mplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) }
sub p6_fro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4293	4407	
==>'3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4293	4407	
==>'3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks o <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2195	2308	
==>, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3500	3601	
==>);

$p->clear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y fo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23144	23238	
==>e supposed to pass in english text and they translate it, which could
produce ambiguous results <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23144	23238	
==>e supposed to pass in english text and they translate it, which could
produce ambiguous results <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6171	6274	
==>r::Rule->compile(<<'RULE')->code();

    sub <?p6ws>? <ident> <?p6ws>? <block>
        { return { sub_de <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36947	37037	
==>$user_text_string = $translator.translate_message( $message );

=back

The Translator class <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36947	37037	
==>$user_text_string = $translator.translate_message( $message );

=back

The Translator class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25321	25530	
==>( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25321	25530	
==>( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25321	25530	
==>( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples ) {
                    no wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	214	349	
==>'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	214	349	
==>'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1675	1795	
==>ty_value.exists($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11532	11658	
==>$capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11811	11937	
==>$capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20266	20376	
==>itive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    wa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2852	2977	
==>atus::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = . <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2852	2977	
==>atus::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = . <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14384	14496	
==>l;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1864	1976	
==>l;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8968	9062	
==>ok_on() {
  if(previous_comp_hook != NULL) { croak("Cant install twice"); }
  previous_comp_hoo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19368	19539	
==>AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19368	19539	
==>AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19368	19539	
==>AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	79	190	
==>{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	79	190	
==>{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	79	190	
==>{ $_[0] } == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10325	10480	
==>f, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10325	10480	
==>f, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10325	10480	
==>f, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	458	573	
==>ns it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the sense <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	458	573	
==>ns it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the sense <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	458	573	
==>ns it is part of the core model)
#
# psyche is the sensuous soul, meaning "relating to, or derived 
# from the sense <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2459	2567	
==>hod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2459	2567	
==>hod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2459	2567	
==>hod(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return $self->class->is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8621	8754	
==>ule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4981	5114	
==>ule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5830	5963	
==>ule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, then it should b <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	463	575	
==>otated = $r->annotate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21302	21397	
==>rts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21302	21397	
==>rts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2675	2796	
==>pace
    Class       Perl 6 standard class namespace
    Object      Perl 6 object
    Grammar     Perl 6 pattern matching <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2027	2120	
==>lass Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2027	2120	
==>lass Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21808	21920	
==>$seen = %*INC{$module};
  if $seen {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3821	3921	
==>th match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer gr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3821	3921	
==>th match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29328	29453	
==>tems }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29328	29453	
==>tems }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29328	29453	
==>tems }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self-> <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	287	375	
==>e File::Path ();

@inc::Module::Install::ISA = 'Module::Install';
*inc::Module::Install:: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	200	286	
==>s @!children;

## --------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	200	286	
==>s @!children;

## --------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30676	30845	
==>pported dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_it <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7148	7262	
==>und in \\x...")
    goto end
  err_close:
    parse_error(mob, pos, "Missing close bracket for \\x...")
    goto en <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14278	14382	
==>>new_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=>"head")->push_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1081	1184	
==>essors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $Package_r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2016	2111	
==>bject-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1940	2031	
==>bject-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10045	10148	
==>ess $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10045	10148	
==>ess $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2713	2827	
==>{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2713	2827	
==>{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2713	2827	
==>{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5232	5356	
==>n = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5232	5356	
==>n = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{captu <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	65	168	
==>d hallo ( String $gruß, String $name ) { "$gruß, $name!".say; }
}
#=Aufruf
$welt.hallo("Hallo", "Mike" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12412	12518	
==>cumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12412	12518	
==>cumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12412	12518	
==>cumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if defined $array {
    die "\"$ar <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2632	2764	
==>($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading co <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2632	2764	
==>($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading co <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6298	6425	
==>alternative
        $self->remove_registered_alternative( package => $unlink_this )
            if $unlink_this;

        ### li <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15332	15429	
==>r namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15332	15429	
==>r namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10737	10881	
==>n);
      };
      goto &$fmin;
    };        
  }
}
{
  # ( non-capturing
  package Regexp::Parser::group;
  sub emit {
    my($o)=@_;
    my $f <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	700	803	
==>ft;
    my $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk/';
    my $_PERL6_BIBLE =  'http://tpe. <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1477	1586	
==>turns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1477	1586	
==>turns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1143	1247	
==>_inline_c($c_code);
}

my $i;
sub generate_inline_c {
	my $self = shift;
	my $c_code = shift;

	my %table <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3376	3504	
==>lf);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3376	3504	
==>lf);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3376	3504	
==>lf);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	687	803	
==>g it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.micros <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2029	2143	
==>un
     util/run-smome.pl     - automate the smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	586	688	
==>g it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.micros <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24998	25110	
==>Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29550	29662	
==>Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28462	28574	
==>Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7293	7398	
==>$self->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural functions see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11216	11344	
==>moized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11216	11344	
==>moized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11216	11344	
==>moized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8977	9094	
==>4),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8977	9094	
==>4),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4980	5140	
==>= self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    el <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4980	5140	
==>= self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    el <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4851	4963	
==>= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = \$_[0]; \@_=".$code <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21257	21354	
==>es a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21257	21354	
==>es a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3030	3183	
==>f ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3030	3183	
==>f ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3030	3183	
==>f ($line =~ /\A:5\s+(.+)/) {
            print eval("package ".&p6_main()."; ".$1),"\n";
            warn $@ if $@;
            next;
        }
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1766	1863	
==>method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1766	1863	
==>method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1766	1863	
==>method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3533	3653	
==>,  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3533	3653	
==>,  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9167	9268	
==>a "please segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#---- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3670	3798	
==>($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3670	3798	
==>($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unbo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3670	3798	
==>($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i->unbo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4391	4499	
==>0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4391	4499	
==>0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	338	442	
==>[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	338	442	
==>[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return ble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	338	442	
==>[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return ble <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1943	2072	
==>, $arg.value;
        }
    }


    role Getopt::Argument::Coercer::Perl {
        multi method as (--> Num) { defined($.string) ? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	372	462	
==>P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	372	462	
==>P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

ru <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2429	2565	
==>.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2429	2565	
==>.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27891	27989	
==>you don't define
a base class for your module's objects, or the object you create isn't
a modificat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18987	19093	
==>UBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18987	19093	
==>UBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first co <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	933	1034	
==>s[0] should be first commit, not last
@commits    = reverse @commits;
@developers = reverse @developer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19633	19725	
==>x0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19633	19725	
==>x0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19633	19725	
==>x0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) };
MULTI SUB infix:<ne> ($xx0,$xx1) { p6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	943	1079	
==>' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'ti <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1331	1463	
==>else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a direc <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1331	1463	
==>else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a direc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7015	7137	
==>do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7015	7137	
==>do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5614	5723	
==>name' to a native type";
    $self->{env}->{$name} = reference->new($value);      
}

sub set {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12843	12980	
==>r => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *% <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12843	12980	
==>r => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *% <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	528	635	
==>b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7603	7731	
==>m_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7603	7731	
==>m_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7603	7731	
==>m_range( start => $start, end => $end, celems => $count ) 
        },
        sum => sub {
            warn "string sum not suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1294	1394	
==>i sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1294	1394	
==>i sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1294	1394	
==>i sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser T <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4377	4503	
==>from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4377	4503	
==>from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7117	7219	
==>e_error(mob, pos, "No digits found in \\x...")
    goto end
  err_close:
    parse_error(mob, pos, "Mis <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13021	13107	
==>"/","/"). brackets("!","!"). brackets("=","=").
brackets("?","?"). brackets("#","#").
b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2682	2795	
==>self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_white <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2682	2795	
==>self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_white <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2682	2795	
==>self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discard_white <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3028	3160	
==>,

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2912	3036	
==>,
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2313	2425	
==>self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4697	4800	
==>($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4837	4940	
==>($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 D <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25272	25368	
==>= type::operator::arrow->new(
		type::variable::free->new,
		type::operator::pair->new(
			type:: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13958	14060	
==>son a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14016	14118	
==>son a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

S <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	787	888	
==>'m here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	787	888	
==>'m here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3259	3382	
==>9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('valueOf');
        if $Result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3474	3618	
==>cally
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3474	3618	
==>cally
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3474	3618	
==>cally
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH ($$;%) {
        my ($dispatcher, $label, % <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5592	5715	
==>et_data($_[0],'$<then>'));
    return "$op ($condition) $then\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13236	13333	
==>rn $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6711	6808	
==>rn $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16704	16812	
==>ity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16704	16812	
==>ity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16704	16812	
==>ity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO::tell ($xx) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11127	11289	
==>ing match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8190	8343	
==>ing match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8190	8343	
==>ing match: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12467	12596	
==>imitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12467	12596	
==>imitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12467	12596	
==>imitive is rw {
  if defined $array {
    die "\"$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7170	7271	
==>_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value fro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8165	8266	
==>_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value fro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10734	10835	
==>_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still got the right return value fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6646	6741	
==>@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reser <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6646	6741	
==>@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reser <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6646	6741	
==>@gmail.com> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4427	4560	
==>ss;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4427	4560	
==>ss;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4427	4560	
==>ss;
} 
sub Perl6::Slice::clone { 
    my $self = shift;
    return $self->unbind;
    #my $a = Array->new;
    #$a->push( $self->items <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19223	19347	
==>=> sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19223	19347	
==>=> sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19223	19347	
==>=> sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{att <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11527	11629	
==>thod_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11527	11629	
==>thod_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11527	11629	
==>thod_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%para <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2060	2156	
==>er valid.
This gives the impression of lexically scoped marks (but it may also
limit the engine s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2060	2156	
==>er valid.
This gives the impression of lexically scoped marks (but it may also
limit the engine s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4778	4893	
==>XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `S <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4778	4893	
==>XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `S <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26027	26125	
==>0x00004
 #define ROPT_ANCH_GPOS	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x000 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14101	14236	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14380	14515	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop:: <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7446	7567	
==>s.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"|"rd <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10360	10457	
==>($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10360	10457	
==>($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8067	8163	
==>st::reduce *&expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5137	5264	
==>l { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5338	5461	
==>l { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5338	5461	
==>l { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28478	28574	
==>e being combined/wrapped, with
its keys being the new tuple-valued attribute names and each of it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33030	33126	
==>e being combined/wrapped, with
its keys being the new tuple-valued attribute names and each of it <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32158	32254	
==>e being combined/wrapped, with
its keys being the new tuple-valued attribute names and each of it <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7262	7381	
==>/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3866	3985	
==>/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4715	4834	
==>/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	335	519	
==>ingle_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0]{pair} ) {
        my $category <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3932	4048	
==>s defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4072	4188	
==>s defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3581	3709	
==>6-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3721	3849	
==>6-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1371	1496	
==>5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1371	1496	
==>5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1371	1496	
==>5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11240	11345	
==>t_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11240	11345	
==>t_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11240	11345	
==>t_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4165	4260	
==>nstructor, and when calling these methods you should take care not
to call them in function form <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4165	4260	
==>nstructor, and when calling these methods you should take care not
to call them in function form <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4165	4260	
==>nstructor, and when calling these methods you should take care not
to call them in function form <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2420	2846	
==>et)

    # Attributes of every Relation::Example object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example

###########################################################################
###########################################################################
=x

class Rela <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14854	14943	
==>ativeExpression> <'*'> <UnaryExpression>
    | <MultiplicativeExpression> <'/'> <UnaryExpr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14911	15000	
==>ativeExpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9455	9577	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10261	10383	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11176	11298	
==>cant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5183	5321	
==>ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir $dir;
        chdir $dir;
        system($ar, x => <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8206	8316	
==>X check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8206	8316	
==>X check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16787	16905	
==>)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13208	13326	
==>)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	311	415	
==>.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	311	415	
==>.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	311	415	
==>.Box.Proxy(
      function () {
        return PIL2JS.cps2normal(fetch, [ PIL2JS.Context.ItemAny ]).FETCH <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1876	1976	
==>e{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1876	1976	
==>e{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3247	3368	
==>(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3247	3368	
==>(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3247	3368	
==>(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1208	1306	
==>26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1208	1306	
==>26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1208	1306	
==>26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PI <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	865	991	
==>regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	865	991	
==>regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16402	16497	
==>: generic($$) = { generic($.else) }

cond: type($$) = {
	types::unify(
		type($.if), type::opera <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17976	18071	
==>eiving such a code can identify
it easily in its conditional logic, using a simple 'equals', and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17976	18071	
==>eiving such a code can identify
it easily in its conditional logic, using a simple 'equals', and <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6622	6719	
==>uments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

metho <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6622	6719	
==>uments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9449	9605	
==>t < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9449	9605	
==>t < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9449	9605	
==>t < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19436	19529	
==>_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19436	19529	
==>_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19436	19529	
==>_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6066	6160	
==>tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6066	6160	
==>tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1102	1346	
==>= @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buf <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1102	1346	
==>= @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2484	2595	
==>al(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2484	2595	
==>al(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2484	2595	
==>al(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2054	2168	
==>lar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2054	2168	
==>lar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2054	2168	
==>lar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3497	3596	
==>$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3497	3596	
==>$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environm <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4914	5018	
==>ir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4914	5018	
==>ir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14817	14912	
==>cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an ea <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14875	14970	
==>cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an ea <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21412	21505	
==>| <'for'> <'('> <LeftHandSideExpression> <'in'> <Expression> <')'> <Statement>
    | <'for'> < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1182	1287	
==>== $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1182	1287	
==>== $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1182	1287	
==>== $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9111	9286	
==>( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9111	9286	
==>( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9111	9286	
==>( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $pa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5185	5274	
==>e(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5185	5274	
==>e(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan} <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6030	6194	
==>rn;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $arra <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6030	6194	
==>rn;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $arra <==
3	/Users/nnunley/pugs/util/package-osx.pl	4110	4207	
==>/man3/Perl6::Bible::A20.3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13480	13713	
==>r;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13480	13713	
==>r;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13480	13713	
==>r;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2725	2820	
==>tance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2725	2820	
==>tance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2725	2820	
==>tance_attr($::SELF => '%:methods')};
}));

## attributes

$::Role->add_method('add_attribute' => <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22549	22650	
==>charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   code_type(C,to_lower(Cx)), code_type(C1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1189	1288	
==>s = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1189	1288	
==>s = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1189	1288	
==>s = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13694	13839	
==>it' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13694	13839	
==>it' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13694	13839	
==>it' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Per <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16200	16299	
==>error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || d <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2609	2708	
==>error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || d <==
3	/Users/nnunley/pugs/util/testgraph.pl	666	764	
==>Dump($data));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2423	2532	
==>title', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2423	2532	
==>title', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2770	2879	
==>title', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify', named_only => 1 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	946	1039	
==>($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	946	1039	
==>($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	946	1039	
==>($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit') }
multi sub p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4272	4421	
==>t!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.ba <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4272	4421	
==>t!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.ba <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1141	1260	
==>meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   print "Writing meta d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3610	3721	
==>$offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3610	3721	
==>$offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3610	3721	
==>$offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = substr($string,$from,$to-$from+ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1187	1324	
==>/gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statement <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1187	1324	
==>/gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statement <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9278	9396	
==>Build::Config->lookup($1)/e;
        
        die "don't know where this option belongs: $_" unless $kind;
        push <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	898	1002	
==>t
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	898	1002	
==>t
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $on <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1296	1389	
==>L2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1296	1389	
==>L2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1296	1389	
==>L2JS.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15332	15438	
==>) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15332	15438	
==>) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15332	15438	
==>) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[0]->{cend}( @_ )   : undef }  
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1950	2055	
==>);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback) <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1950	2055	
==>);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14631	14765	
==>},
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14631	14765	
==>},
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14631	14765	
==>},
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	945	1058	
==>et {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self-> <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	277	375	
==>nctions

# information functions

sub clear_params returns Void is export { %PARAMS = () }
sub rese <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	277	375	
==>nctions

# information functions

sub clear_params returns Void is export { %PARAMS = () }
sub rese <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13939	14057	
==>, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13939	14057	
==>, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13939	14057	
==>, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class at <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6277	6449	
==>where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9754	9926	
==>where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relati <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3500	3622	
==>_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2343	2466	
==>+; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2343	2466	
==>+; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2343	2466	
==>+; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprint <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15588	15684	
==>s 'min' and 'max' attributes of
other objects themselves.

=item Regexp::Explain (pending, Jeff P <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16897	16991	
==>, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certai <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16897	16991	
==>, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certai <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1061	1169	
==>import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5130	5285	
==>body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5130	5285	
==>body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5130	5285	
==>body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self = shift;

    my $vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22959	23091	
==>od label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42562	42694	
==>od label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	50	297	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Cons <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	50	297	
==>by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Cons <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4793	4894	
==>pletion Type
class JSX::InternalValue::Completion_type { # XXX - should be enum
   has $.normal;
   ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12433	12544	
==>tr' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12433	12544	
==>tr' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12433	12544	
==>tr' =>  sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8643	8985	
==>>new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $st <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	243	347	
==>the user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load(' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	194	292	
==>the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load(' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4210	4331	
==>header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space mu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4210	4331	
==>header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7524	7698	
==>);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7524	7698	
==>);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7524	7698	
==>);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4212	4315	
==>elf => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4212	4315	
==>elf => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4212	4315	
==>elf => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2904	3002	
==>runing (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2904	3002	
==>runing (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2904	3002	
==>runing (skipping recursion
	# over its children)
	if (Scalar::Util::blessed $obj) {
		my $res = $op <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1642	1766	
==>n {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4845	4969	
==>n {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package( <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6186	6281	
==>ray::as_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_objec <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	762	851	
==>TS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export { <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	762	851	
==>TS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1155	1332	
==>{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1155	1332	
==>{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!para <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6690	6803	
==>my $self = shift;
	my $prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6748	6853	
==>L2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6748	6853	
==>L2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6748	6853	
==>L2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8474	8614	
==>$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8474	8614	
==>$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8474	8614	
==>$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->stor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15571	15672	
==>g, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl_args->{progfile} = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	467	577	
==>taModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	467	577	
==>taModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	467	577	
==>taModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added support for unboxed P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4315	4444	
==>ation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4315	4444	
==>ation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4315	4444	
==>ation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2224	2430	
==>port_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutab <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5701	5907	
==>port_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutab <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4631	4837	
==>port_as_hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7372	7475	
==>ub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7372	7475	
==>ub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7372	7475	
==>ub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ pack <==
3	/Users/nnunley/pugs/util/package-osx.pl	9637	9773	
==>{
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my $from (@files) {
        my $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24188	24284	
==>undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28740	28836	
==>undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	734	856	
==>Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, die <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	734	856	
==>Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, die <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7032	7147	
==>local $^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	939	1043	
==>ses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	939	1043	
==>ses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	939	1043	
==>ses([ $::Class ]);

# ::Class now actually inherits a number of new attributes from various sources
# and <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1266	1357	
==>ad1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSION <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1266	1357	
==>ad1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8960	9091	
==>ength ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8960	9091	
==>ength ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8960	9091	
==>ength ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	998	1123	
==>},
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Dat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	998	1123	
==>},
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Dat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	998	1123	
==>},
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16837	16931	
==>Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16837	16931	
==>Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16837	16931	
==>Internals::hIsOpen ($xx) {...};
MULTI SUB Pugs::Internals::hIsClosed ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	804	939	
==>);
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	804	939	
==>);
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4661	4764	
==>s' class
$EigenClass = ::create_class(
    '$:name'       => 'EigenClass',
    '$:superclass' => $Class, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4437	4728	
==>ur other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11536	11636	
==>(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3127	3227	
==>(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	534	662	
==>_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	534	662	
==>_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	534	662	
==>_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5094	5256	
==>"?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6856	7018	
==>"?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2917	3060	
==>m, $err, @args);
}


sub next {
  my ($self) = @_;
  croak "no regex defined" unless &RxLEN;

  while (my $try = pop @{ $self->{next} }) {
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4900	4998	
==>, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4900	4998	
==>, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4900	4998	
==>, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5114	5250	
==>,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multilin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5114	5250	
==>,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multilin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5114	5250	
==>,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multilin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5105	5204	
==>Parser::{$type . '::'};
    my $user_base = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	732	839	
==>alar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - create <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	732	839	
==>alar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - create <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	732	839	
==>alar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - create <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8526	8630	
==>y a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8526	8630	
==>y a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8526	8630	
==>y a client.
$pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
$pugs = "pugs" if !defined $pugs;

sub pil_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1047	1167	
==>hod_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1047	1167	
==>hod_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1047	1167	
==>hod_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	135	245	
==>) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $right } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	135	245	
==>) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $right } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	135	245	
==>) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $right } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3521	3662	
==>d if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3521	3662	
==>d if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	238	354	
==>oosing this code as a reference point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys';

    # Every i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31628	31791	
==>shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31628	31791	
==>shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31628	31791	
==>shift @tmp;
            }
            next;
        }
        push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10535	10619	
==>lar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10535	10619	
==>lar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10535	10619	
==>lar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:supercla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	852	956	
==>n't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	852	956	
==>n't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	852	956	
==>n't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we precompile and automatica <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9834	9947	
==>llowing
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4403	4506	
==>put can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.p <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4403	4506	
==>put can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12682	12824	
==>::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed"}        = 1;
          $status{"really_passed" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3046	3182	
==>::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed" <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3046	3182	
==>::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12042	12200	
==>ams) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12042	12200	
==>ams) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12042	12200	
==>ams) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4807	4925	
==>er  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4642	4756	
==>er  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compi <==
3	/Users/nnunley/pugs/util/combine_tests.pl	22	123	
==>trict;
use warnings;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump LoadFile/ ];
#my @data = map { YA <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	715	833	
==>require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	682	800	
==>require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13103	13286	
==>ey, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13103	13286	
==>ey, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13103	13286	
==>ey, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${$self->params <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	39	152	
==>unt = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	39	152	
==>unt = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	39	152	
==>unt = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2820	2937	
==>method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2820	2937	
==>method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22071	22311	
==>$self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22071	22311	
==>$self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22071	22311	
==>$self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9428	9542	
==>rcname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $servername },
    conn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9428	9542	
==>rcname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $servername },
    conn <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	341	452	
==>+[A-Z]\w+)/;
my $topic     = join("\n", param('topic')) || 'FrontPage';
my $entry      = join("\n", param('entry <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8406	8615	
==>d($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8406	8615	
==>d($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8406	8615	
==>d($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7891	7996	
==>V) {
    my $Result1 = $A.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $A.property_value <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	675	772	
==>backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	675	772	
==>backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1614	1727	
==>'';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-] <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1614	1727	
==>'';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-] <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	191	291	
==>without
# requiring changes to user p5 code.  It was explored as a possible
# bootstrap path for perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4441	4539	
==>/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."}";
}
sub node::ac <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8678	8772	
==>using existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` objec <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8678	8772	
==>using existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38094	38266	
==>";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38094	38266	
==>";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38094	38266	
==>";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36870	36964	
==>ation::Example contains only tuples that are in
exactly one of the source Relations.  This meth <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8962	9055	
==>from
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; inste <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8962	9055	
==>from
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; inste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4029	4145	
==>preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4029	4145	
==>preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4029	4145	
==>preludepc");
}

sub command_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3640	3773	
==>ell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3640	3773	
==>ell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3640	3773	
==>ell')->{v}->clear },

            'tieable' =>  sub { _('$:cell')->{tieable} != 0 },
            'tie' =>      sub { shift; _('$:cell' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6430	6523	
==>AGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6430	6523	
==>AGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6430	6523	
==>AGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) PIL2JS_printWithoutNewline = printWithoutN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1978	2082	
==>nebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1978	2082	
==>nebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1978	2082	
==>nebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3780	3900	
==>fined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3780	3900	
==>fined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3780	3900	
==>fined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name;

    return "" if $_->is_in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3785	3900	
==>emit_perl6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{nam <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6487	6583	
==>pher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This meth <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6487	6583	
==>pher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3313	3443	
==>+= $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3313	3443	
==>+= $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3313	3443	
==>+= $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off) <==
3	/Users/nnunley/pugs/util/addauthors.pl	892	1040	
==>r = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	124	222	
==>ed.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filenam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	124	222	
==>ed.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filenam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4797	4982	
==>r die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5019	5204	
==>r die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8197	8326	
==>st_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octal digit '%s' ign <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	383	523	
==>ter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	383	523	
==>ter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . j <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7967	8099	
==>lags}[-1],
      family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6203	6336	
==>,
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6203	6336	
==>,
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => ch <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6010	6113	
==>ts: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3178	3313	
==>ute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3178	3313	
==>ute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3178	3313	
==>ute($attribute_name));
            }
        }
        if ($body->{class_attributes}) {
            foreach my $attr_name (@{$body->{cla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	826	925	
==>rl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	826	925	
==>rl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	735	835	
==>thout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %U <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	735	835	
==>thout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %U <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	735	835	
==>thout a decl., is legal, but JS does't like this, so we have to
# declare all undeclared vars.
our %U <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1280	1381	
==>multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1280	1381	
==>multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3683	3777	
==>his module is primarily for reading human written files, and anything we
write shouldn't need t <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3683	3777	
==>his module is primarily for reading human written files, and anything we
write shouldn't need t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1453	1554	
==>en(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1453	1554	
==>en(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1453	1554	
==>en(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4754	4859	
==>equote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4754	4859	
==>equote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4754	4859	
==>equote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11518	11674	
==>,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds an 'before' or 'after' sub call, which <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35477	35573	
==>rns all Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35477	35573	
==>rns all Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3559	3664	
==>fg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3559	3664	
==>fg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3559	3664	
==>fg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6092	6197	
==>lization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6092	6197	
==>lization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6092	6197	
==>lization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSubName} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	578	697	
==>Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	578	697	
==>Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	578	697	
==>Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thr <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4085	4202	
==>/../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Ref <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4085	4202	
==>/../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5513	5672	
==>]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5513	5672	
==>]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5513	5672	
==>]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2711	2874	
==>super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2916	3079	
==>super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(sh <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4298	4394	
==>->value }
sub as_pil_code { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r-> <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22420	22517	
==>o allocate large data
which Perl_re_dup() will copy for us.

    New(0, ret->offsets, 2*len+1, U32 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3571	3662	
==>yptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SE <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3571	3662	
==>yptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13476	13691	
==>tcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13476	13691	
==>tcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13476	13691	
==>tcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5941	6040	
==>']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5941	6040	
==>']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5941	6040	
==>']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2378	2539	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2571	2732	
==>:p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1226	1316	
==>f->symbolic_representation($node);
	}

	my $symbol = $self->declare($node) if $self->is_dup <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	489	596	
==>( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () returns <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	489	596	
==>( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () returns <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11288	11404	
==>($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10923	11018	
==>Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10981	11076	
==>Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $ex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23635	23741	
==>anon\n.param pmc match\n", $S1
    $S1 .= "\n.end\n"
    self["value"] = $S1
  end:
    .return (self)
.end <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1900	1998	
==>ected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1958	2056	
==>ected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10484	10637	
==>my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($wan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10484	10637	
==>my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($wan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10484	10637	
==>my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($wan <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1003	1261	
==>,
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1003	1261	
==>,
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6058	6444	
==>) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7820	8206	
==>) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	331	443	
==>es) % 2 == 0)
        || confess "not enough elements to construct a hash (must be an even number)";
    my %valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4552	4650	
==>LIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4552	4650	
==>LIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4552	4650	
==>LIKES = (@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6701	6847	
==>rsed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6701	6847	
==>rsed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6701	6847	
==>rsed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1182	1297	
==>onfig_template, $filename) or
            die "copy: $!";
        print <<".";
*** Default build config file created <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2459	2567	
==>T>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2459	2567	
==>T>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4689	4810	
==>tance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4689	4810	
==>tance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4689	4810	
==>tance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4083	4197	
==>ody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4083	4197	
==>ody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4083	4197	
==>ody = "function ({$arity == 1 ?? "a" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3594	3730	
==>output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27229	27325	
==>hod is a generic relational operator that returns a new Relation
which has a superset of the orig <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31781	31877	
==>hod is a generic relational operator that returns a new Relation
which has a superset of the orig <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	129	240	
==>:Installation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check] <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	134	244	
==>:Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check] <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	132	242	
==>:Installation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2131	2248	
==>_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2131	2248	
==>_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2131	2248	
==>_for_at;
    my @bools = map {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4789	4896	
==>";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4789	4896	
==>";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4789	4896	
==>";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_unacceptable = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9441	9577	
==>0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9429	9565	
==>0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1337	1442	
==>e base qw/Blondie::Map/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::ADTs - Reused abstract data <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1383	1502	
==>is mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but once i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4861	4979	
==>is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3791	3909	
==>is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once i <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	443	554	
==>out the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	443	554	
==>out the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17902	18043	
==>e_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17902	18043	
==>e_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10445	10604	
==>karound
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10445	10604	
==>karound
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10445	10604	
==>karound
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8473	8577	
==>Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8473	8577	
==>Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1095	1195	
==>lf;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg->meta

The JIB: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1522	1638	
==>s);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1522	1638	
==>s);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1522	1638	
==>s);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $_->as_js2 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20834	20934	
==>o invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25386	25486	
==>o invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23974	24074	
==>o invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9337	9454	
==>!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9337	9454	
==>!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16588	16699	
==>ere...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
b <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16588	16699	
==>ere...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8927	9036	
==>tr\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8927	9036	
==>tr\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8927	9036	
==>tr\"";
}

# Mangles a subroutine or variable name.
# XXX: Hacky, will need a rewrite later.
sub name_mangle($) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11057	11165	
==>me::Perl5::RuleOps::constant( '$prefix:<$id>' ),\n" .
                "        \\&Grammar::Perl6::ws_star,\n" <==
3	/Users/nnunley/pugs/util/package-osx.pl	5893	5981	
==>local/man/man3/Perl6::Overview::File.3
        /usr/local/man/man3/Perl6::Overview::File. <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25480	25560	
==>B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5620	5720	
==><<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5620	5720	
==><<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5620	5720	
==><<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9010	9155	
==>} ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9010	9155	
==>} ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9010	9155	
==>} ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16228	16386	
==>here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16228	16386	
==>here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16228	16386	
==>here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # check if this is a private method
        if ($l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40690	40784	
==>.

While it is by no means required, the copyright holders of
Locale::KeyedText would appreciat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40690	40784	
==>.

While it is by no means required, the copyright holders of
Locale::KeyedText would appreciat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1043	1143	
==>t a Module object

that defines ::Main.  A Module object mixes in both Package

and Code -- because i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	993	1091	
==>t a Module object
that defines ::Main.  A Module object mixes in both Package
and Code -- because i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1614	1704	
==>::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1614	1704	
==>::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1614	1704	
==>::opaque_instance_add_new_attribute($meta_obj => '$:authority' => '');
    ::opaque_instanc <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	548	667	
==>, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetchin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	515	634	
==>, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetchin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7579	7685	
==>is
initial pass.

=head3 Fatal Errors

B<If there is a compilation-stopping error>, $parser->errmsg will re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16781	16912	
==>se      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16781	16912	
==>se      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16781	16912	
==>se      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	260	367	
==>rrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	243	346	
==>rrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6485	6585	
==>((($self: get_attr (symbol new (%:methods))) store ($label $method))))

=cut

{
    # add the first m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7821	7929	
==>bject Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEV <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7821	7929	
==>bject Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEV <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7821	7929	
==>bject Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEV <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1284	1422	
==>ed $code;
    # print "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1295	1433	
==>ed $code;
    # print "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14221	14338	
==>joint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17698	17815	
==>joint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17114	17231	
==>joint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tupl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	637	752	
==>})->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[ru <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33080	33177	
==>e elements where
each element is a Template module Set Name.  When we have to translate a
message, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33080	33177	
==>e elements where
each element is a Template module Set Name.  When we have to translate a
message, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	194	301	
==>AN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	194	301	
==>AN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	194	301	
==>AN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2324	2463	
==>$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

meth <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2324	2463	
==>$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

meth <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6984	7092	
==>ays \\n   Scalar    left    .[]     safe   (Array, Int)\.
sub prefix:<[.[]]> (*$head is copy, *@rest is copy) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3757	3878	
==>hift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3757	3878	
==>hift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3757	3878	
==>hift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4054	4253	
==>) },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4054	4253	
==>) },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4054	4253	
==>) },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2089	2184	
==>pture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2089	2184	
==>pture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'} <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16661	16902	
==>_re);
                
                unless ($h) {
                    push @unresolved, { target   => $target, 
                                        heading  => $heading,
                                        relative => $link->{relfi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8253	8368	
==>e "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8265	8380	
==>e "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7427	7599	
==>= Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7427	7599	
==>= Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7427	7599	
==>= Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3701	3817	
==>place this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3701	3817	
==>place this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	830	943	
==>. $opt{name} . ">",
        '{ return { op => "ternary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5291	5408	
==>b _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5291	5408	
==>b _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5291	5408	
==>b _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_role = $::Role->new();    

    $new_ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15413	15516	
==>B key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15413	15516	
==>B key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15413	15516	
==>B key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39825	39921	
==>ft if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39825	39921	
==>ft if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39825	39921	
==>ft if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Container: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5696	5850	
==>ell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5696	5850	
==>ell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->unde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5696	5850	
==>ell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9267	9361	
==>-------------------------------

This is a rough sketch of that role(Role) might look like. 

r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9267	9361	
==>-------------------------------

This is a rough sketch of that role(Role) might look like. 

r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9267	9361	
==>-------------------------------

This is a rough sketch of that role(Role) might look like. 

r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3627	3721	
==>nc 'cotan';
trig_func 'asec';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_fu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22572	22662	
==>::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception C <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22572	22662	
==>::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception C <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4976	5084	
==>@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tai <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4976	5084	
==>@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tai <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5542	5643	
==>g an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before runnin <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5542	5643	
==>g an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before runnin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7066	7167	
==>g an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests before runnin <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1608	1726	
==>rn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for stati <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1608	1726	
==>rn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for stati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38574	38711	
==>everse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38574	38711	
==>everse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38574	38711	
==>everse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2831	2927	
==>he request URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2831	2927	
==>he request URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C< <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2745	2839	
==>with the compiled version of the builtin
    $val->set($self->reduce($builtin));
}

__PACKAGE__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3751	3851	
==>epth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3751	3851	
==>epth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3751	3851	
==>epth = shift if @_;
    Data::Dumper::Dumper $self;
}));

## ---------------------------------------- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	190	297	
==>ants->list( __PACKAGE__ );

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { ref $_[-1] eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1735	1841	
==>0,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop conne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1735	1841	
==>0,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop conne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24709	24820	
==>ch next.

=back

=head2 Devices and Standards

I made a few C-macro-style functions for easy access to the parse <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1168	1272	
==>a::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no par <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1168	1272	
==>a::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1556	1667	
==>s {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1556	1667	
==>s {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1556	1667	
==>s {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6431	6609	
==>],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6431	6609	
==>],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6431	6609	
==>],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2379	2474	
==>g.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2379	2474	
==>g.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2379	2474	
==>g.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	444	556	
==>/ but if I store the node in a variable outside of this function
      // and refer to it via the closure, then t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	444	556	
==>/ but if I store the node in a variable outside of this function
      // and refer to it via the closure, then t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	444	556	
==>/ but if I store the node in a variable outside of this function
      // and refer to it via the closure, then t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7103	7261	
==>end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7103	7261	
==>end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7103	7261	
==>end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4816	4940	
==>Model/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4816	4940	
==>Model/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4816	4940	
==>Model/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the result to go to STD <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1851	1954	
==>s[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1851	1954	
==>s[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1851	1954	
==>s[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      c <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1079	1206	
==>heck_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4751	4854	
==>dex[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string, <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4751	4854	
==>dex[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22197	22291	
==>tributes are private, so you must use accessor methods.  Rosetta
does not declare any subroutin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22197	22291	
==>tributes are private, so you must use accessor methods.  Rosetta
does not declare any subroutin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2178	2277	
==>s.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2178	2277	
==>s.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2178	2277	
==>s.meta.add_method('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3007	3123	
==>ndef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3007	3123	
==>ndef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3007	3123	
==>ndef
      if $self->{pInv};

    # We have an invocant *and* the invocant is in the JS:: namespace? ==> It's
    # a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2733	2865	
==>ture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unle <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2628	2754	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4468	4577	
==>ommand_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4468	4577	
==>ommand_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4468	4577	
==>ommand_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile {
  my $html = eval { compile_perl6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1108	1217	
==>ntil>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1108	1217	
==>ntil>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1108	1217	
==>ntil>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; !($ret = $cond()); 1) { $body() }
  $ret;
} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15089	15191	
==>e of a header.  The header value is set if you pass
an argument to the method.  The old header value is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15089	15191	
==>e of a header.  The header value is set if you pass
an argument to the method.  The old header value is <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6137	6236	
==>ingMark>
    | <UnicodeDigit>
    | <UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEscapeSequenc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20633	20723	
==>he new (under development) enterprise-strength and Perl implemented
database server named L <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20633	20723	
==>he new (under development) enterprise-strength and Perl implemented
database server named L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4329	4443	
==>p", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4329	4443	
==>p", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4329	4443	
==>p", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2890	3017	
==>, this is a 'clean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d $obj->meta_dir ) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4548	4643	
==>:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4548	4643	
==>:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	705	831	
==>0 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	705	831	
==>0 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	183	298	
==>onkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	183	298	
==>onkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	183	298	
==>onkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->f <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1752	1848	
==>fix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[ <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1752	1848	
==>fix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	483	579	
==>");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	483	579	
==>");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	483	579	
==>");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	570	688	
==>work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	570	688	
==>work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	570	688	
==>work right
      // --the order of output can become all screwed up (see
      // buffer.html).  I have no idea why thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	685	792	
==>O - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	685	792	
==>O - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	685	792	
==>O - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - delete hash slice

# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1488	1589	
==>CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1488	1589	
==>CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1488	1589	
==>CALLER::_:) { JS::inline('(function (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18277	18370	
==>cify the address (URI) of the document from which the
requested resource address was obtained. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18277	18370	
==>cify the address (URI) of the document from which the
requested resource address was obtained. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6035	6140	
==>claration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6035	6140	
==>claration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6035	6140	
==>claration of classes.\n";

  my $init_js =
    "// Initialization of global vars and exportation of subs:\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5222	5330	
==>1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5222	5330	
==>1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5222	5330	
==>1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unm <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	178	298	
==>ethod write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	178	298	
==>ethod write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15758	15864	
==>-$pos));
    local $m0->{$name} = [@{$m0->{$name}||[]}];
    push(@{$m0->{$name}},$m1); #see below
    $X:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3111	3243	
==>sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3111	3243	
==>sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3111	3243	
==>sub run_pugs {
  my @args = @_;
  local $_;

  # -CPIL1 doesn't load the Prelude, though, so we have to kludge around this.
  @args = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	283	404	
==>allback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	283	404	
==>allback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12256	12367	
==>ash %params) returns opaque {
    $canidate //= 'P6opaque';
    my $self = $class.CREATE(repr => $canidate, %par <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1936	2065	
==>("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1914	2043	
==>("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	102	200	
==>ity and performance reality check.
# Hopefully it will develop into a p6 rules engine, and then a p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4295	4471	
==>'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4295	4471	
==>'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4295	4471	
==>'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1733	1844	
==>('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1733	1844	
==>('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1733	1844	
==>('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8942	9039	
==>cumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8942	9039	
==>cumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8942	9039	
==>cumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = @xs; \@copy }
method postcircumfix:<[]>(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5079	5194	
==>_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5079	5194	
==>_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5079	5194	
==>_parameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @to <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4682	4777	
==>/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4682	4777	
==>/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25290	25446	
==>'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25569	25725	
==>'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   rule <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1977	2109	
==>e'}       = [ available       => SUBFILE_OF_META  ];
$config{'_registered_alternatives'} 
                            = [ 'registered <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4338	4479	
==>',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4338	4479	
==>',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14999	15132	
==>> sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => sub { $as_hash_complain->("code") },
      ref   => sub { $as_hash_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3062	3209	
==>} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3202	3349	
==>} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$ru <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17089	17173	
==><BitwiseANDExpressionNoIn> <'&'> <EqualityExpressionNoIn>
}
rule BitwiseXORExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4356	4498	
==>a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4356	4498	
==>a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4356	4498	
==>a = $CALLER::_' !! '$__a, $__b';
  my $c     = $type eq "S" ?? "~"                 !! "+";
  my $args_ = $arity == 1  ?? "$c\$__a"           !! <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9704	9823	
==>t2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with a <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9704	9823	
==>t2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4903	5018	
==>_file, $self->index_files(package => $pkg) ) {
        unless (-e $index) {
            # create the directory an in <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	317	424	
==>leanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	317	424	
==>leanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4389	4495	
==>n eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextc <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1204	1317	
==>lf: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    r <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	643	756	
==>.[1];
}


sub is_promise($a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1204	1317	
==>lf: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	472	570	
==>ting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	472	570	
==>ting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	472	570	
==>ting JavaScript code.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18409	18519	
==>,E0,Ex),
  Left is Max - Min,
  rm_repeat_max_ng(Re,Left,Fx,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4311	4426	
==>erl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4311	4426	
==>erl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4311	4426	
==>erl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3397	3504	
==>));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3397	3504	
==>));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3397	3504	
==>));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7832	7954	
==>sInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7832	7954	
==>sInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7832	7954	
==>sInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_mangle('$?SELF' <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5954	6110	
==>(
            Param->new('$string'),
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	582	695	
==>self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	744	857	
==>self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2751	2865	
==>uilder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2751	2865	
==>uilder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2831	2945	
==>uilder::Tester

=head1 SYNOPSIS

  use Test::Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20301	20403	
==>the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24853	24955	
==>the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23414	23516	
==>the Perl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8685	8802	
==>ghc-6.5 => ghc-pkg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18404	18513	
==>.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BARE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18404	18513	
==>.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BARE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4857	4963	
==>my $rxinfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5348	5465	
==>ring out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5348	5465	
==>ring out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5348	5465	
==>ring out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13736	13839	
==>et package prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'], <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13736	13839	
==>et package prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'], <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14436	14554	
==>ined $Files_In_Dir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_dir_files != @dir_fi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2166	2265	
==>_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2224	2323	
==>_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30393	30508	
==>@tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30393	30508	
==>@tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30393	30508	
==>@tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14810	14944	
==>oint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18287	18421	
==>oint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.si <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17703	17837	
==>oint_attrs.push( $r1 );
            }
        }
    }
    @r_with_shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.si <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2851	2949	
==>$q.params()>

Returns the names of all the parameters as a list.  The order in which they were
pres <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2851	2949	
==>$q.params()>

Returns the names of all the parameters as a list.  The order in which they were
pres <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	95	216	
==>{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	95	216	
==>{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	95	216	
==>{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new P <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1459	1569	
==>name) or die "error: open '$fname'";
   print FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12918	13019	
==>,etal, or even into the return value.  In that event, it may not
  be possible to get a plausibly scop <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5815	5913	
==>);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML S <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5815	5913	
==>);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2300	2400	
==>- multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is conte <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2300	2400	
==>- multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is conte <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2300	2400	
==>- multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is conte <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4272	4373	
==>ion');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4272	4373	
==>ion');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4045	4169	
==>$current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4045	4169	
==>$current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4045	4169	
==>$current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5012	5117	
==>~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5012	5117	
==>~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5012	5117	
==>~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23594	23709	
==>@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23594	23709	
==>@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23594	23709	
==>@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2180	2283	
==>ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2180	2283	
==>ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2180	2283	
==>ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	915	1007	
==>ime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	915	1007	
==>ime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1155	1276	
==>r !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1155	1276	
==>r !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1155	1276	
==>r !! +$b);
}

method split(Str $self: Str $splitter) { split $splitter, $self }
sub JS::Root::split(Str $splitter, Str $st <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1411	1513	
==>ta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1411	1513	
==>ta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	874	969	
==>londie::Backend::Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new; # might or migh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9002	9179	
==>$key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9002	9179	
==>$key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1385	1484	
==>::slurp {
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3770	3920	
==>e {
        $pass = $got ne $isnt;
    }

    unless( $pass ) {
        unshift(@mess, "# it should not be "._q($got)."\n",
                       "# b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6104	6211	
==>ll_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6092	6199	
==>ll_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	350	464	
==>t: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	350	464	
==>t: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	350	464	
==>t: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Spec;
use lib File::Spec->catdir($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10780	10994	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10780	10994	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10780	10994	
==>perclasses})
                        if $current_class->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7175	7272	
==>rict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7175	7272	
==>rict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7175	7272	
==>rict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	165	317	
==>ur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %s <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	165	317	
==>ur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5574	5665	
==>per_1:
  $key = $$currentOperatorTable->lkey($target, $whitespacePosition);
  $token = $$cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	608	707	
==>ute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	608	707	
==>ute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	608	707	
==>ute for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	9	110	
==>::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	9	110	
==>::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	9	110	
==>::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    args.pop()(ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6891	7037	
==>= emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 'say';
    return $s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11214	11308	
==>on) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11214	11308	
==>on) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13019	13142	
==>ot found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13019	13142	
==>ot found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13019	13142	
==>ot found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	86	185	
==>Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	81	176	
==>Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33442	33540	
==>ion contains only tuples that are in
all of the source Relations.  This method has an alias named C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37992	38090	
==>ion contains only tuples that are in
all of the source Relations.  This method has an alias named C <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6359	6479	
==>{
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if yo <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6359	6479	
==>{
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if yo <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4431	4544	
==>} ||= { name => "anonymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1133	1285	
==>self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = shift;
                my $idx = s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9090	9180	
==>::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2915	3005	
==>::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6868	7003	
==>tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6868	7003	
==>tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6868	7003	
==>tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                my $key = shift @param;
                if ( Perl6:: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5959	6071	
==>lar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')-> <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9269	9371	
==>empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9269	9371	
==>empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $s <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	349	474	
==>0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	349	474	
==>0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3732	3840	
==>>val;

		warn "linking the symbol " . $sym->val . " to $type";

		Blondie::TypeSafe::Annotation->new(
			type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1397	1502	
==>f the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New inter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1397	1502	
==>f the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New inter <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1397	1502	
==>f the lazy array are stringified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New inter <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3703	3812	
==>d;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Conf <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3703	3812	
==>d;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Conf <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	743	846	
==>d;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Conf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	487	597	
==>match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9345	9434	
==>C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of att <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9345	9434	
==>C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12838	12951	
==>od(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12838	12951	
==>od(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12838	12951	
==>od(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2029	2138	
==>($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritan <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2029	2138	
==>($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritan <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7816	7916	
==>r> object will
still be returned, but if you use regex() then it will return false.

  if (! $parser- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11679	11794	
==>identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11679	11794	
==>identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11679	11794	
==>identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	131	273	
==>a-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	131	273	
==>a-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	131	273	
==>a-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    my $pkg = caller;
    *{"${pkg}::class"} = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4333	4546	
==>losure')) {
            $list->push(
                $closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15433	15614	
==>, \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15712	15893	
==>, \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10587	10694	
==>iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( ' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10587	10694	
==>iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( ' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20512	20600	
==>dir_index->{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}| <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2795	2920	
==>bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tai <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1417	1542	
==>bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	907	1010	
==>e::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	907	1010	
==>e::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Conte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	907	1010	
==>e::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prelude::JS::Conte <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1565	1670	
==><nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natur <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1565	1670	
==><nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natur <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25261	25354	
==>C<FAILED tests %s\n\tFailed %d/%d tests, %.2f%% okay.>

For any single script that has failing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7687	7804	
==>ys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = ge <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7687	7804	
==>ys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = ge <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7687	7804	
==>ys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = ge <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26748	26842	
==>set from the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a has <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26748	26842	
==>set from the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a has <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8204	8377	
==>tch
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# expe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8204	8377	
==>tch
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# expe <==
3	/Users/nnunley/pugs/misc/S29_round.pl	461	595	
==>abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	795	936	
==>t-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	795	936	
==>t-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2345	2464	
==>ckage Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2259	2371	
==>ckage Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11291	11388	
==>nt from the visual() method; specifically, in the case
of a sub-class that adds a handler, the qr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12045	12192	
==>et->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12045	12192	
==>et->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12045	12192	
==>et->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( $res, 'Ar <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24843	24959	
==>ult, "\n";
    my $txt = join "", @result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 EX <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17093	17188	
==>ctionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any ot <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17093	17188	
==>ctionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11837	11965	
==>tion of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11837	11965	
==>tion of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11837	11965	
==>tion of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14187	14357	
==>->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14187	14357	
==>->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14187	14357	
==>->elems }
            push @{$self->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2575	2703	
==>lue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2575	2703	
==>lue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2575	2703	
==>lue(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	917	1017	
==>nstant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	917	1017	
==>nstant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	917	1017	
==>nstant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	458	618	
==>=~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match, \$1 } : 0 )";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13117	13235	
==>xPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6592	6710	
==>xPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8456	8561	
==>_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8456	8561	
==>_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8456	8561	
==>_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17010	17104	
==>hodology
in an easily accessable manner, such that would not be possible if its
functionality w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17010	17104	
==>hodology
in an easily accessable manner, such that would not be possible if its
functionality w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1087	1227	
==>{
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:hos <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1087	1227	
==>{
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:hos <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	460	572	
==>e TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with the taintedne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3085	3215	
==>xt.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3085	3215	
==>xt.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3085	3215	
==>xt.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($li <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1359	1573	
==>ex
            },
            index_file => {
                store => \$index_file
            },
            packages => {
                default     => [ ],
                no_override => 1,
                stor <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3383	3496	
==>es
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3383	3496	
==>es
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9313	9403	
==>::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9508	9598	
==>::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9703	9793	
==>::arrow->new(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	313	418	
==>end and not a rule).

=item *

A method is bound to a compiled class (a L<Type>), which is used for
dispat <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1529	1661	
==>alScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = file_nam <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1529	1661	
==>alScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = file_nam <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1752	1852	
==>teration printing
    
If you omit the fprime, a second order centered difference is provided
as a cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1214	1307	
==>ause we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1214	1307	
==>ause we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1214	1307	
==>ause we lock the keys inside the opaque instance structure (see chaos.pl)
foreach my $meta_obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5016	5138	
==>if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5016	5138	
==>if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5016	5138	
==>if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1 <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	266	384	
==>n uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * se <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	266	384	
==>n uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * se <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	43	142	
==>e Foo {...}", so it returns the Foo
# module object, see thread "What do use and require evaluate to <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1678	1833	
==>inktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1678	1833	
==>inktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2651	2754	
==>node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	u <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	822	927	
==>te "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'mai <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	822	927	
==>te "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'mai <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	243	340	
==>erage is much less.  The test passing was simply to
permit refactoring with confidence.

It uses L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1181	1294	
==>al(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1181	1294	
==>al(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1390	1503	
==>al(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else {
	    unless ($db_param-> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27697	27797	
==><$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation::Example obje <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37029	37127	
==>to a C<intersection>.  In any situation where a pair of source
relations have zero attributes in co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41578	41676	
==>to a C<intersection>.  In any situation where a pair of source
relations have zero attributes in co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41201	41299	
==>to a C<intersection>.  In any situation where a pair of source
relations have zero attributes in co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25320	25418	
==>tical; they do not
interact with the outside environment at all.

A Message object has two main att <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25320	25418	
==>tical; they do not
interact with the outside environment at all.

A Message object has two main att <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11789	11887	
==>$Data::Dumper::Terse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21518	21662	
==>) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::compile_file_to_yml($path);
        }
      }
      return o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4968	5066	
==>stom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4968	5066	
==>stom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4968	5066	
==>stom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1147	1255	
==>$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is e <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1147	1255	
==>$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14295	14462	
==>ft } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14295	14462	
==>ft } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14295	14462	
==>ft } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            return shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7567	7682	
==>tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7567	7682	
==>tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7567	7682	
==>tpParam}{isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23616	23720	
==>t>
    | <SourceElements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1829	1931	
==>}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is exp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1829	1931	
==>}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3753	3875	
==>().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3753	3875	
==>().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3753	3875	
==>().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  package PI <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2335	2530	
==>gin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2335	2530	
==>gin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1469	1603	
==>ons in 'expected' order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - ang <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2525	2642	
==>name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2525	2642	
==>name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $stat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32101	32202	
==>ng for a match to said error
message.  If it finds one, then that is displayed; if not, it then checks <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32101	32202	
==>ng for a match to said error
message.  If it finds one, then that is displayed; if not, it then checks <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3302	3401	
==>lit /,/ } @{ $Config{exclude} };
    $Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_inclu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	12	135	
==>'$Bin';
use lib
    "$Bin/../lib",
    # "$Bin/../../../../lib",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21349	21461	
==>dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21349	21461	
==>dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21349	21461	
==>dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && def <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12346	12444	
==>ION

This class represents a "span".

Depending on your data, you may need a "discrete" or a "conti <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12346	12444	
==>ION

This class represents a "span".

Depending on your data, you may need a "discrete" or a "conti <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5825	5927	
==>. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = norma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5825	5927	
==>. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = norma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2131	2251	
==>2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extrac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2048	2162	
==>2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extrac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14663	14837	
==>'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14663	14837	
==>'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14663	14837	
==>'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7963	8073	
==>>) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7963	8073	
==>>) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7963	8073	
==>>) {
    no strict "refs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7759	7943	
==>tart =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7759	7943	
==>tart =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7759	7943	
==>tart =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1335	1439	
==>spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1335	1439	
==>spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2994	3097	
==>:opaque_instance_attrs($self)->{'%:methods'}->{$label};
        }
    },
);
# The 'Object' class
my $Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11112	11229	
==>nite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11112	11229	
==>nite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11112	11229	
==>nite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4484	4581	
==>O instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4484	4581	
==>O instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6681	6778	
==>O instance, passing on the C<$description>, 
C<$reason>, and C<$passed> parameters. 

=item C<?$re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	123	220	
==>se strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::compara <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	164	261	
==>se strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::compara <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39514	39608	
==>be created during
the first pass.  To accomplish this, use force_object(), which creates
an obj <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15346	15464	
==>aram {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3407	3507	
==>ompiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3407	3507	
==>ompiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6535	6625	
==>sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6535	6625	
==>sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6535	6625	
==>sprintf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3404	3534	
==>eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3404	3534	
==>eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3404	3534	
==>eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3862	3945	
==>----------------------------------------------------------------------------
## remo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3862	3945	
==>----------------------------------------------------------------------------
## remo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13769	13870	
==>t *@keytests --> Int|List )
 multi Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Ha <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2776	2870	
==>t method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2776	2870	
==>t method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5421	5552	
==>nce';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5421	5552	
==>nce';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5421	5552	
==>nce';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token =~ /^(.*)\: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9788	9892	
==>l
  my $iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->walker(2);  # top- thro <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18836	18932	
==>alias for this method so you
can avoid this misspelling in your programs and still send the right <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18836	18932	
==>alias for this method so you
can avoid this misspelling in your programs and still send the right <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1107	1244	
==>l5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1107	1244	
==>l5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1107	1244	
==>l5);

    use Data::Dumper;
    $ct->bind_function(
		   name => 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

fu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9921	10083	
==>n the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6262	6424	
==>n the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7111	7273	
==>n the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3328	3421	
==>PTION

The Test::Builder::Test class represents a single test within the
Test::Builder framewo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3328	3421	
==>PTION

The Test::Builder::Test class represents a single test within the
Test::Builder framewo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5525	5618	
==>PTION

The Test::Builder::Test class represents a single test within the
Test::Builder framewo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2068	2183	
==>$link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2068	2183	
==>$link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2068	2183	
==>$link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44938	45094	
==>NIL;                                          
            }
        )
    )
);

## ------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3477	3573	
==>hin quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1 <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3477	3573	
==>hin quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4443	4551	
==>ead_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4443	4551	
==>ead_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4443	4551	
==>ead_fh), my($write_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6908	7025	
==>main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6908	7025	
==>main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6908	7025	
==>main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9226	9321	
==>NTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating ob <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9226	9321	
==>NTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13831	13926	
==>m_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13831	13926	
==>m_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13831	13926	
==>m_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($xx)) };
MULTI SUB prefix:<-f> ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2736	2895	
==>ubstr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2736	2895	
==>ubstr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2736	2895	
==>ubstr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    substr $self, 0, -1;
  } else {
    ~$self;
  }
}

method chop(Str $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12746	12985	
==>] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12746	12985	
==>] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12746	12985	
==>] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4396	4510	
==>NK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4396	4510	
==>NK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4396	4510	
==>NK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pilMain}->fixup,
    pilGlob => [ map <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	447	557	
==>4, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTi <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	447	557	
==>4, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6298	6427	
==>es  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20010	20102	
==>-contained and pure-Perl reference
implementation of an Engine and is included in the "Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20010	20102	
==>-contained and pure-Perl reference
implementation of an Engine and is included in the "Rosett <==
3	/Users/nnunley/pugs/util/package-osx.pl	1528	1621	
==>ocal/lib/perl5/site_perl/jspugs.pl /Library/Perl/5.8.6/jspugs.pl
        /usr/local/lib/perl5/ <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2424	2521	
==>any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Roy <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2424	2521	
==>any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Roy <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2690	2854	
==>elsif ($backslash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7461	7575	
==>f (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7461	7575	
==>f (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6396	6508	
==>-> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6396	6508	
==>-> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_e <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4446	4545	
==>ncore}}{$category->($_)} }, $_ for @smokes;

  foreach my $runcore (keys %runcores) {
    foreach my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4561	4700	
==>content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4561	4700	
==>content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_head <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	571	689	
==>arse_ini_file($fh);

	return $class;
}

method do_warn(Class $class: @args) { warn(@args); }

method _parse_ini_file(Cl <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	236	344	
==>g still doesn't work quite right.
# package Parser;

# use lib '../Chap6';
use Stream;# :all;

# use base Exp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3002	3106	
==>ural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =hea <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7381	7484	
==>ural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# =hea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3541	3682	
==>(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            retu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1506	1601	
==>13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE AL <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1506	1601	
==>13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE AL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10979	11126	
==>ram) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-derefe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10979	11126	
==>ram) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-derefe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10979	11126	
==>ram) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-derefe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	47	155	
==>escription = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instanc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	47	155	
==>escription = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instanc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	47	155	
==>escription = '-0.0.1-cpan:PUGS';

class1 'Match'.$class_description => {
    is => [ $::Object ],
    instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2775	2885	
==>in_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2775	2885	
==>in_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2775	2885	
==>in_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6441	6558	
==>{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot determine author info from $file\n <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2445	2546	
==>ote: This program should be run as unpreviliged user, it will ask you to enter
      commands requirin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11570	11683	
==>alX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11570	11683	
==>alX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11570	11683	
==>alX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17416	17513	
==>ed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17416	17513	
==>ed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17416	17513	
==>ed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	700	808	
==>bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	700	808	
==>bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	700	808	
==>bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree>;
    %modifi <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	536	646	
==>all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to whic <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	536	646	
==>all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1092	1202	
==>all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<$.output>

The filehandle to whic <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	712	804	
==>lts to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also take <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	712	804	
==>lts to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also take <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35369	35466	
==>n common; it will only accept inputs that would result in
a cross-product when joined.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39919	40016	
==>n common; it will only accept inputs that would result in
a cross-product when joined.  This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39479	39576	
==>n common; it will only accept inputs that would result in
a cross-product when joined.  This metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9602	9756	
==>on?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              todo        => 1,
              number      => $self.get_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1695	1839	
==>on?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1695	1839	
==>on?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            todo        => 1,
            number      => $self.get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	196	311	
==>e {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	196	311	
==>e {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	196	311	
==>e {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2787	2877	
==>me.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2787	2877	
==>me.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24517	24598	
==>captures_set_if_undef(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n_if_undef(N,X,C0,C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2910	3025	
==>hift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2910	3025	
==>hift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2910	3025	
==>hift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ / <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6346	6448	
==>a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6346	6448	
==>a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3566	3663	
==>r;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Regexp::Parser:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6658	6782	
==>),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "l <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6658	6782	
==>),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "l <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	84	204	
==>asename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or di <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	478	593	
==>3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	478	593	
==>3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	478	593	
==>3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_.sub <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	216	322	
==>{
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@cont <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	216	322	
==>{
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1537	1642	
==>run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1537	1642	
==>run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1537	1642	
==>run_done++) { $body() }
}

# XXX: Handle redo() correctly!
#sub statement_control:<for>(@array is rw, Code <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16044	16140	
==>, that
lives in the Document object given in the named parameter $document, and
whose Node Type a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16044	16140	
==>, that
lives in the Document object given in the named parameter $document, and
whose Node Type a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16928	17080	
==>y $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( ra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16928	17080	
==>y $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( ra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16928	17080	
==>y $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( ra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2539	2659	
==>o' ];
$config{'meta_file'}        = [ META => sub { $_[1] . $_[0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4440	4536	
==>:Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4690	4786	
==>:Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4313	4485	
==>tches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4313	4485	
==>tches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless def <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2809	2930	
==>: $ops->[-1]->op_cmp($op);
        if($cmp <= 0) {
          print STDERR "op shift\n" if $debug;
          push(@$ops,$op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3231	3354	
==>air|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3231	3354	
==>air|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3231	3354	
==>air|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17284	17384	
==>akes any param and returns a function that takes any param
# that function will return a pair with th <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	128	225	
==>OD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODI <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	128	225	
==>OD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4700	4806	
==>_('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4700	4806	
==>_('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4700	4806	
==>_('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2997	3098	
==>ye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2997	3098	
==>ye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3077	3178	
==>ye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8080	8210	
==>p = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8080	8210	
==>p = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8080	8210	
==>p = reverse( $tmp );
        Str->new( '$.unboxed' => $tmp ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5596	5746	
==>l')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5596	5746	
==>l')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5596	5746	
==>l')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39697	39805	
==>send('new');

$::Object->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	996	1092	
==>igh? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p, <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	996	1092	
==>igh? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12702	12843	
==>d('add_method' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8977	9085	
==>e'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_di <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8977	9085	
==>e'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4875	5030	
==>CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4875	5030	
==>CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4875	5030	
==>CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_ <==
3	/Users/nnunley/pugs/util/config_h.pl	193	317	
==>pl GHC BASEDIR

  GHC     - Location and flags of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base direc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17923	18017	
==>ogram handling the request.

=item $h.from

This header should contain an Internet e-mail addre <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17923	18017	
==>ogram handling the request.

=item $h.from

This header should contain an Internet e-mail addre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4109	4220	
==>->{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9874	9973	
==>::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Per <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9874	9973	
==>::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11579	11799	
==>XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11579	11799	
==>XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11579	11799	
==>XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23246	23342	
==>ociations.  Or alternately, the other
packages require your text data to be stored in a format ot <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23246	23342	
==>ociations.  Or alternately, the other
packages require your text data to be stored in a format ot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4167	4255	
==>age at L<http://dev.perl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.perl.org/perl6/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1523	1662	
==>IL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1523	1662	
==>IL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1523	1662	
==>IL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1862	1998	
==>me => ':',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - collision <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7939	8047	
==>elf, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7939	8047	
==>elf, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9323	9457	
==>atch--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9311	9445	
==>atch--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5925	6040	
==>-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5925	6040	
==>-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5925	6040	
==>-\>/g;
    $method_source =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28589	28726	
==>rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28868	29005	
==>rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capt <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14237	14335	
==>s {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHandSideExpression><no_LineTerminator_her <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5643	5751	
==>@{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5643	5751	
==>@{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5643	5751	
==>@{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7114	7230	
==>ak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7114	7230	
==>ak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7114	7230	
==>ak, of course, if $other does call/cc magic.
      push @js,
        "if($jsname == undefined) PIL2JS.runloop(functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20571	20671	
==>_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20571	20671	
==>_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20571	20671	
==>_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4866	4967	
==>>to_native . ' => ' . $left->fetch($i)->type->to_native;
        # warn "with " . $right->fetch($i)->n <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2305	2405	
==>l> will cause all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

No <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2305	2405	
==>l> will cause all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

No <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	383	510	
==>( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", subs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1172	1299	
==>( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", subs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14239	14354	
==>elation::Example *@others) returns Relation::Example {

    if (+@others == 0) {
        return $?SELF;
    }

    m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9499	9592	
==>esult ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9499	9592	
==>esult ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1142	1267	
==>)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1142	1267	
==>)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1142	1267	
==>)$','/','/');
  }

  my $pat = $pat0;
  my %mods = %mods0;
  my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};

  my s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2729	2846	
==>ype eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2729	2846	
==>ype eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2729	2846	
==>ype eq "S" ? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7896	8015	
==>f !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7896	8015	
==>f !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "packa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7896	8015	
==>f !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= "packa <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3035	3133	
==>\u2009\u200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See h <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4655	4751	
==>return data which is part of the 
ciphertext, but is not necessarily the ciphertext version of th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4655	4751	
==>return data which is part of the 
ciphertext, but is not necessarily the ciphertext version of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1195	1291	
==>ml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1195	1291	
==>ml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1195	1291	
==>ml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3156	3250	
==>($node, $symbol, $body) = @_;

	return if $self->node_is_defined($node);

	return $self->define <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7164	7257	
==>module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7164	7257	
==>module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47096	47215	
==>e->get('$self:')->get_attr(symbol->new('%:namespace')));
                  }))
                  ->or(block->new($e, sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20276	20374	
==>6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20276	20374	
==>6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20276	20374	
==>6_to_b(smart_match($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	616	811	
==>= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	616	811	
==>= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8233	8411	
==>ix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5369	5512	
==>ne => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5369	5512	
==>ne => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5369	5512	
==>ne => sub { 
            $class->from_num_range( start => $start, end => $end, step => $step ) 
        },
        sum => sub {
            $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2821	2926	
==>e = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2821	2926	
==>e = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2821	2926	
==>e = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $name = "&".$name if $name =~ /^__e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6484	6599	
==>he block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



M <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6267	6377	
==>he block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	709	825	
==>ttr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	709	825	
==>ttr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	709	825	
==>ttr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE($attr => shift) if @_;
    $::CLASS- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2911	3029	
==>lf->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2911	3029	
==>lf->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2911	3029	
==>lf->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigenclass = $: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	129	225	
==>ngs;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	129	225	
==>ngs;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	345	470	
==>->SUPER::new($name, $type);
}

sub instantiate_container {
    my $self = shift;
    return $self->{type}->new();
}

1;

__END <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	317	485	
==>spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$ <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	317	485	
==>spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	477	612	
==>PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	477	612	
==>PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	477	612	
==>PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	105	218	
==>rototype-Model

This is a very basic prototype based object system, it was inspired by
a purely functional prototy <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	34	134	
==>----------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	34	134	
==>----------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7069	7175	
==>5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Parrot)";
  $_ eq "normal" and return "Normal runcore (Per <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	146	260	
==>b rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolera <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	146	260	
==>b rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolera <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	522	621	
==>= '../lib';

# Don't interfere with the taintedness of %ENV, this could perturbate tests
$ENV{PER <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12445	12589	
==>ntf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22495	22590	
==>cate a
condition, often it will also provide some variable values to be
interpolated into the us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22495	22590	
==>cate a
condition, often it will also provide some variable values to be
interpolated into the us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10376	10534	
==>AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10376	10534	
==>AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10376	10534	
==>AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tmp = _('$:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19089	19200	
==>st column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19089	19200	
==>st column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in th <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26119	26221	
==>ist a -> a");
}
{
	my $a = type::variable::free->new;
	my $b = type::variable::free->new;
	my $type = t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13087	13192	
==>{
	# We will assume that if you're running under -T, you really mean to
	# run a fresh perl, so we'll brut <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5276	5417	
==>object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: [ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5276	5417	
==>object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: [ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13895	13988	
==>> octdigit(D), octdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"0123 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1346	1463	
==>ance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1551	1668	
==>ance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1612	1729	
==>ance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:met <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	213	326	
==>specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!succ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	213	326	
==>specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!succ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	637	736	
==>lows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVE <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	637	736	
==>lows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21302	21397	
==>y is an attribute name and each Mapping value
is the corresponding attribute value.

Every Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25854	25949	
==>y is an attribute name and each Mapping value
is the corresponding attribute value.

Every Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24478	24573	
==>y is an attribute name and each Mapping value
is the corresponding attribute value.

Every Relat <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1771	1944	
==>place
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw
                              ; Sor <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4395	4491	
==>iting back to the config file, any comments are discarded.

=head1 METHODS

Since the current ver <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4395	4491	
==>iting back to the config file, any comments are discarded.

=head1 METHODS

Since the current ver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21854	21944	
==>..};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21854	21944	
==>..};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21854	21944	
==>..};
MULTI SUB Pugs::Internals::hSetBinaryMode ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13026	13137	
==>label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13026	13137	
==>label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13026	13137	
==>label, $method);
}));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14794	14888	
==>reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are impleme <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14852	14946	
==>reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are impleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	719	820	
==>); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	719	820	
==>); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	719	820	
==>); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new methods .fetch, .store, .unboxed
#
# 20 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1351	1476	
==>iable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1351	1476	
==>iable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_vari <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12716	12829	
==>preter->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16100	16204	
==>arams) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16100	16204	
==>arams) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16100	16204	
==>arams) = @_;
    return $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6730	6830	
==>{        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6730	6830	
==>{        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6730	6830	
==>{        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_subc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38861	38962	
==>head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 200 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43675	43776	
==>head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 200 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43209	43310	
==>head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright (c) 200 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1487	1645	
==>ecurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1487	1645	
==>ecurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9959	10117	
==>$.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusern <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9959	10117	
==>$.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusern <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1028	1143	
==>> [ <op> <tight> ]+',
    ternary =>         '<tight> <op> <parse> <op2> <equal>',
);

sub new {
    my ($class, $op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2223	2343	
==>_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2223	2343	
==>_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2223	2343	
==>_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23940	24032	
==>$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23940	24032	
==>$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23940	24032	
==>$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };

sub attempt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1551	1663	
==>mify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_ob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1551	1663	
==>mify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_ob <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1551	1663	
==>mify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_ob <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	998	1109	
==>ead1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METH <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	998	1109	
==>ead1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1545	1656	
==>ead1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.expect>

The number of tests expected to run.

=back

=head1 METH <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	951	1059	
==>- 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	951	1059	
==>- 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	951	1059	
==>- 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETCH()));
    }
    cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25211	25352	
==>=> $e->get('?@superclasses')); 
                          # clear the MRO now
                          $e->get('$self:')->set_attr(symbol->ne <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4964	5071	
==>_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31704	31800	
==>ount of this object (for quantifiers).

=item min

The minimum repetition count of this object (f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2503	2618	
==>ined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2643	2758	
==>ined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	692	784	
==>6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5587	5694	
==>";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5587	5694	
==>";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5587	5694	
==>";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13421	13553	
==>r @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13421	13553	
==>r @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13421	13553	
==>r @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2378	2534	
==>t "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2689	2840	
==>t "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2689	2840	
==>t "rx: $rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6351	6589	
==>key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6351	6589	
==>key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6351	6589	
==>key = $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1186	1287	
==>$a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1186	1287	
==>$a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1186	1287	
==>$a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5013	5189	
==>h') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    mat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5013	5189	
==>h') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    mat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5013	5189	
==>h') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any',  # XXX - should be Sub or Code or something
                    mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4349	4490	
==>ile ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4349	4490	
==>ile ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4349	4490	
==>ile ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5118	5214	
==>ical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5118	5214	
==>ical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5118	5214	
==>ical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instance_id($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1731	1853	
==>v}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1731	1853	
==>v}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1731	1853	
==>v}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	551	686	
==>r ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Installation->new( dir => $dir )
            or err <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11627	11725	
==>:Node - This stores a collection of Node objects,
which are all of the Nodes that live in this Docu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11627	11725	
==>:Node - This stores a collection of Node objects,
which are all of the Nodes that live in this Docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	317	416	
==>lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12758	12855	
==>e return value is the values of the fields removed.  In scalar
context the number of fields remove <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12758	12855	
==>e return value is the values of the fields removed.  In scalar
context the number of fields remove <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2330	2459	
==>i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ s/\$se <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10310	10419	
==>previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10310	10419	
==>previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3074	3192	
==>TR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3074	3192	
==>TR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6392	6491	
==>I SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6392	6491	
==>I SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6392	6491	
==>I SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7727	7831	
==>--> Int|List )

Iterates the elements of C<@array>, in order. 

If C<@indextests> are provided, only elem <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18019	18112	
==>,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18330	18423	
==>,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10325	10449	
==>tart, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10325	10449	
==>tart, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10325	10449	
==>tart, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it drops bindings
            $ary <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	209	324	
==>= '0.02';
use strict;
use File::Basename ();

sub prompt_script {
    my ($self, $script_file) = @_;
    my ($prompt <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1839	1946	
==>self: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # y <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1839	1946	
==>self: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # y <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7911	8062	
==>}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4271	4422	
==>}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5120	5271	
==>}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $list are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31319	31513	
==>ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31319	31513	
==>ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31319	31513	
==>ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now leng <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1106	1212	
==>f one of this Relation's attributes and the value corresponding
        # to that is the value for that att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4584	4690	
==>f one of this Relation's attributes and the value corresponding
        # to that is the value for that att <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2023	2126	
==>>env_override($conf);
    $class->defaults($conf);
    return $conf;
}

sub env_override {
    my($class <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8396	8515	
==>edy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8104	8219	
==>edy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9294	9409	
==>pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    mi <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	759	851	
==>c::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	759	851	
==>c::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1883	2008	
==>o strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1883	2008	
==>o strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        " <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4776	4879	
==>--------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	472	573	
==>_str { shift }

# conversion to other native types
sub to_bit { (shift)->to_native() ? bit->new(1) : b <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1686	1780	
==>:Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of jun <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1686	1780	
==>:Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of jun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1243	1365	
==>instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1243	1365	
==>instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1243	1365	
==>instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5309	5420	
==>ame}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5309	5420	
==>ame}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5309	5420	
==>ame}}++ } @{ $self->{pilGlob} }];
  #}

  my $fixed_tree = $self->fixup;
  #warn "# Number of lexical scopes: $C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11176	11329	
==>eturn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11176	11329	
==>eturn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11176	11329	
==>eturn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7622	7832	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7622	7832	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7622	7832	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method e <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1873	1990	
==>);
	}
}

sub literal_value {
	my $self = shift;
	my $node = shift;
	
	my $t = $self->t($node);

	if ($t eq "IV") {
		r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12913	13022	
==>method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12913	13022	
==>method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1334	1444	
==>rn @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1334	1444	
==>rn @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3828	3943	
==>urr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3828	3943	
==>urr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1928	2030	
==>uperclasses')) { # roles don't have subclasses
        foreach my $superclass (@{$class->superclasses}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	704	805	
==>_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	704	805	
==>_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	704	805	
==>_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1753	1875	
==>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }els <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1753	1875	
==>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }els <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	240	335	
==>eturns Object;
multi method delete (*@index ) returns List of Object;
multi method exists ($inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2663	2783	
==>rl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2663	2783	
==>rl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2663	2783	
==>rl6::StubAttribute';
    }     
    
    # this just initializes the instance attribute container type, in
    # perl 6 t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1791	1967	
==>cking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delay <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1791	1967	
==>cking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delay <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1622	1737	
==>an is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1622	1737	
==>an is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9525	9672	
==>ined $end && $end > 0) {
         @lines = $start .. $end;
      } else {
         @lines = ($start);
      }
      next unless $start;
      for my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22553	22646	
==>elation object has 2 main attributes (implementation details subject to
change) plus 1 extra a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27105	27198	
==>elation object has 2 main attributes (implementation details subject to
change) plus 1 extra a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2228	2363	
==>f $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2228	2363	
==>f $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2228	2363	
==>f $tmp == -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3588	3690	
==>D") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3588	3690	
==>D") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3588	3690	
==>D") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2JS::pwd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5388	5499	
==>ss. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5388	5499	
==>ss. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5388	5499	
==>ss. 3rd
party objetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	713	825	
==>$file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	713	825	
==>$file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7364	7493	
==>rr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7364	7493	
==>rr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4513	4708	
==>Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4513	4708	
==>Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	865	966	
==>ule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->match($str) for 1..4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	52	160	
==>::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	52	160	
==>::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	52	160	
==>::MetaModel::Gnosis;

use constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2568	2665	
==>e {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2568	2665	
==>e {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2568	2665	
==>e {$self.ref}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	351	469	
==>dd_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	351	469	
==>dd_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	351	469	
==>dd_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2016	2165	
==>last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2016	2165	
==>last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2016	2165	
==>last if $tmp == Inf;
        push @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $ <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1969	2074	
==>YNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<Fi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1969	2074	
==>YNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<Fi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7590	7679	
==>};
multi unify => ('type::operator', 'type::variable::free') => sub { $_[1]->instantiate($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24591	24761	
==>> $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24591	24761	
==>> $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24591	24761	
==>> $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.to' = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1946	2045	
==>r $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2004	2103	
==>r $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1921	2016	
==>", &parse_closure);
    $optable->addToken("postfix:*", "<term:", "left", $parse_quant);
    $op <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6136	6232	
==>cessfully. However, more complex POD 
documents may not do as well. Error reporting is still pret <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6136	6232	
==>cessfully. However, more complex POD 
documents may not do as well. Error reporting is still pret <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3179	3304	
==>%out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($ta <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3179	3304	
==>%out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($ta <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7606	7709	
==>"") eq "infix") {
		return "( $params[0] $thunk $params[1] )";
	} else {
		return "$thunk( " . join(", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7903	8028	
==>ub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7903	8028	
==>ub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7903	8028	
==>ub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_name eq 'Role';
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20404	20525	
==>@_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16825	16946	
==>@_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4255	4352	
==>{
    2.71828182845904523536028747135266249775724709369995957496696762772407663;
    # http://www. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1278	1370	
==>e.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1278	1370	
==>e.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1278	1370	
==>e.

Class::Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26912	27008	
==>> does
this automatically, but if you are sub-classing it, you'll probably want
to call it in you <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34015	34110	
==>rogram or its libraries.
When translating a message, a match in found in the most preferred lang <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34015	34110	
==>rogram or its libraries.
When translating a message, a match in found in the most preferred lang <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14225	14355	
==>erson_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            } <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14225	14355	
==>erson_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3292	3391	
==>:$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3350	3449	
==>:$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4682	4780	
==>{p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4682	4780	
==>{p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4682	4780	
==>{p6_from_l(times)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangli <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6926	7038	
==>) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf(stde <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18288	18383	
==>dress (URI) of the document from which the
requested resource address was obtained.

The "Free O <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18288	18383	
==>dress (URI) of the document from which the
requested resource address was obtained.

The "Free O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	777	945	
==>unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	777	945	
==>unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	777	945	
==>unboxed' => $::SELF->val_bool() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32617	32719	
==>ary union()
operator, and the order of its arguments is not significant to the result;
the new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37167	37269	
==>ary union()
operator, and the order of its arguments is not significant to the result;
the new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36475	36577	
==>ary union()
operator, and the order of its arguments is not significant to the result;
the new Relation <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	875	997	
==>cessors( qw[meta config dir] );

    ### get a config and the meta object
    {   my $config  = JIB::Config->new;
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2390	2582	
==>ile ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2390	2582	
==>ile ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2359	2520	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2552	2713	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	331	441	
==>e';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	331	441	
==>e';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $gram <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	128	229	
==>something which does subscriber can recieve them
# two kinds of things that can do subscriber:
# - Cod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8688	8823	
==>n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9523	9658	
==>n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	237	333	
==>BEGIN {
    __PACKAGE__->mk_accessors(qw/runtime cache env/)
}

{
    package Blondie::Compiler:: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8405	8555	
==>te;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	133	229	
==>laintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	133	229	
==>laintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2026	2129	
==>s/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2026	2129	
==>s/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2026	2129	
==>s/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1038	1158	
==>:doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1038	1158	
==>:doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1038	1158	
==>:doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11184	11309	
==>scription;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1654	1765	
==>scription;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1654	1765	
==>scription;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	738	917	
==>that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n";
            if ( $m->{bool} ) {
                $match = $m->{tail};
                $ <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	527	620	
==>net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.ad <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	527	620	
==>net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2013	2126	
==>e_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2013	2126	
==>e_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2013	2126	
==>e_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3543	3713	
==>el(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_out <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3543	3713	
==>el(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_out <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28556	28695	
==>urn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28835	28974	
==>urn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	546	657	
==>::Handlers;


# this handles 'use base "Regexp::Parser"'
# which wouldn't call 'import'
{
  my ($level, $prev, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	63	172	
==>sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	63	172	
==>sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	63	172	
==>sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub JS::Root::rx <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6799	6925	
==>a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6799	6925	
==>a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1068	1221	
==>de.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1068	1221	
==>de.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1068	1221	
==>de.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll down.
                  node.childNodes[i].appendData <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4829	4939	
==>($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $spa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4829	4939	
==>($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $spa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4829	4939	
==>($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10208	10385	
==>ore( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10208	10385	
==>ore( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10208	10385	
==>ore( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3003	3159	
==>f->report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11695	11816	
==>st of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11695	11816	
==>st of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31187	31378	
==>_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31187	31378	
==>_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31187	31378	
==>_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20659	20754	
==>ose so to pick a supported language closest to your
preference.  Presumably the messages in thes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20659	20754	
==>ose so to pick a supported language closest to your
preference.  Presumably the messages in thes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4279	4373	
==>::Rule->compile(<<'RULE')->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{'bloc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6879	6999	
==>slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6879	6999	
==>slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6879	6999	
==>slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2893	3034	
==>uring closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3077	3218	
==>uring closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2431	2535	
==>n it again.

Note: This program should be run as unpreviliged user, it will ask you to enter
      comman <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9100	9213	
==>atives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for li <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2135	2248	
==>atives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4849	4948	
==>o if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::My <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4849	4948	
==>o if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::My <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4849	4948	
==>o if you had an object blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::My <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9169	9275	
==>h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remov <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9169	9275	
==>h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remov <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1143	1242	
==>g)
#	::free - an unbound type variable
#	::instantiated - points to another variable or operator

us <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	784	884	
==>utput.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the norma <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	784	884	
==>utput.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the norma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1340	1440	
==>utput.

=back

=head1 METHODS

=over 4

=item B<write( Str $message )>

Writes a message to the norma <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5014	5119	
==>(split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5014	5119	
==>(split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!chan <==
3	/Users/nnunley/pugs/util/func_refact.pl	3063	3174	
==>tal, $new) = @_;
    return 0 if $total == $new;
    ($total - $new) / $total;
}

#sub clone { Load(Dump($_[0])) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4938	5038	
==>rn "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4938	5038	
==>rn "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5793	5882	
==>to_remove) in self";
}

## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5793	5882	
==>to_remove) in self";
}

## --------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	100	237	
==>ition
#    Appendix A.
#
#  Changes to specification grammar.
#   * RegularExpressionLiteral has been added to Literal.
#     Since we don <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12759	12853	
==>screte spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The un <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12759	12853	
==>screte spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The un <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27582	27678	
==>has all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32134	32230	
==>has all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Ea <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31226	31322	
==>has all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  Ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3358	3472	
==>= $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3358	3472	
==>= $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3358	3472	
==>= $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	927	1021	
==>NV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub scri <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	927	1021	
==>NV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub scri <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3017	3110	
==>s, %options) = @_;
    (exists $options{params} && blessed($options{params}) && $options{param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3486	3615	
==>Y slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3486	3615	
==>Y slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3486	3615	
==>Y slots!
        # Be paranoid, then, and recurse only on defined slots.

        my $slot;

        if (defined ($slot = *$obj{SC <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25250	25343	
==>ry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@we <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25250	25343	
==>ry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@we <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2078	2191	
==>);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2078	2191	
==>);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9597	9692	
==>t"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2444	2550	
==>ODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2444	2550	
==>ODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hoo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2444	2550	
==>ODO - caller context - want()
# TODO - test the integration with Value and Container types
# TODO - add hoo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10211	10381	
==>, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10211	10381	
==>, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - do <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10211	10381	
==>, count => $diff )
                    if $diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - do <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1433	1535	
==>/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	412	520	
==>e, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	412	520	
==>e, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	412	520	
==>e, we use JS' lexicals) or
  #   b) we're compiling a SLet, STemp (which all use an existing variable).
  if( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11545	11652	
==>} or defined $args{switches}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) {
	# so we don't <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29522	29628	
==>FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1

pp_ctl.c
pp_regcomp
pp_substcont
Perl_rxres_save
Perl_rxres_rest <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24824	25051	
==>erclasses')
                            ->apply(
                              block->new($e, sub {
                                  my $e = shift;
                                  $e->get('$_')->send('add_subclass' => $e->get <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12562	12658	
==>`is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12562	12658	
==>`is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7222	7325	
==>h);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7222	7325	
==>h);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7222	7325	
==>h);
  \}";
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	636	732	
==>exPerl5->compile( $rule_source, $param )
        if exists $param->{P5} || exists $param->{Perl5} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	622	713	
==>->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Writ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	622	713	
==>->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Writ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6607	6709	
==>e as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basic <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6607	6709	
==>e as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basic <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	712	828	
==>@_;
        my $sexpr = Perl6::Util::SExpParser->parse($source);
        #warn Dumper $sexpr;
        return $self->e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2026	2119	
==>ertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (T <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2026	2119	
==>ertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (T <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	443	558	
==>sses,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   th <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	443	558	
==>sses,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   th <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14923	15014	
==>ion> <'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpression>
}
rule <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	195	299	
==>nting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This cl <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	195	299	
==>nting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This cl <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2372	2469	
==>es a starting guess which is half
the target.  This does not facilitate recovering all the roots o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4204	4408	
==>path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4204	4408	
==>path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	16	108	
==>Core::Num;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6308	6416	
==>cision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6308	6416	
==>cision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ ' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2356	2450	
==>@{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => $_[1][0], named => $_[1] <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1743	1878	
==>alBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

B <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1743	1878	
==>alBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

B <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18126	18225	
==>ct is used
variously to return the compiled regexp, to give input to a search,
and to get back match <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4012	4144	
==>h'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4012	4144	
==>h'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4012	4144	
==>h'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	980	1085	
==>oesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we'v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	980	1085	
==>oesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we'v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	980	1085	
==>oesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thus we'v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9882	10006	
==>$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9882	10006	
==>$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9882	10006	
==>$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @names <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7551	7686	
==>0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7608	7743	
==>0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20374	20467	
==>ding of a nondeterministic
finite-state machine (aka syntax charts or "railroad normal form" i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5140	5272	
==>$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5140	5272	
==>$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5140	5272	
==>$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	196	313	
==>unc( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

su <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	196	313	
==>unc( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	42	159	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	42	159	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	42	159	
==>ct;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	999	1163	
==>m => sub {
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $con <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17930	18026	
==>entially all isolated from each other, even if more than one uses the
same Engine class to implem <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17930	18026	
==>entially all isolated from each other, even if more than one uses the
same Engine class to implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12530	12638	
==>'$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12530	12638	
==>'$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12530	12638	
==>'$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4798	4924	
==>ub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4798	4924	
==>ub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4798	4924	
==>ub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1869	1992	
==>_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S->object(bol => $type, '^');
  });

  # sbol (begi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	196	304	
==>lker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	196	304	
==>lker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6595	6710	
==>me;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6595	6710	
==>me;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6595	6710	
==>me;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push(pad)";
    my $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2847	2946	
==>} elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new contai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2847	2946	
==>} elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new contai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2847	2946	
==>} elsif $self.isa("Hash") {
    # $self.keys.map:{ $self{$_} } can't work, as map returns new contai <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2142	2254	
==>f->requires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5063	5160	
==>led as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5063	5160	
==>led as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11858	11962	
==>e objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11858	11962	
==>e objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8113	8207	
==>lue)>.

C<@array> is considered single dimensional. If it is in fact multi-
dimensional, the va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	629	739	
==>ll on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and exec <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	629	739	
==>ll on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and exec <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8218	8315	
==>) +1;
    $template->param(parent => $index->{_parent} || "../");
    $template->param(directory = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7883	7994	
==>' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7883	7994	
==>' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7883	7994	
==>' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35220	35315	
==>inherit visual()Z and walk()Z<>.

However, we need to define our own qr() method, because we don <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36647	36741	
==>mes that a Template corresponding to the Message could be
found using the Translator object's S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36647	36741	
==>mes that a Template corresponding to the Message could be
found using the Translator object's S <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2724	3023	
==>'; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8795	8934	
==>es ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: i <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8795	8934	
==>es ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	58	201	
==>arnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	58	201	
==>arnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	58	201	
==>arnings;

our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3193	3304	
==>airs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3193	3304	
==>airs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3193	3304	
==>airs!");
    }
  })')($thing);
}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'per <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6340	6445	
==>f.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6340	6445	
==>f.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1514	1622	
==>rn { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';
    
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1514	1618	
==>rn { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3004	3202	
==>ll;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3004	3202	
==>ll;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3004	3202	
==>ll;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17001	17135	
==>${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13422	13556	
==>${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (. <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	617	731	
==>rv);
        });
    };
}

1;

__END__

=head1 NAME 

re::override::PCRE - Perl-compatible regular expressions

=he <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3881	3983	
==>RS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3881	3983	
==>RS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13733	13828	
==>it(D1), {number_chars(I,[42,120,D0,D1])}.

octdigits_int(I) --> octdigit(D0), octdigits(D), { nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16385	16537	
==>t;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16385	16537	
==>t;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16385	16537	
==>t;
    my $count = 0;
    return $array->map( 
        sub {
            $count++
        } ); 
}

sub values { 
    @_
}


=head1 NAME

Perl6::Value::Li <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25981	26077	
==>bute names that aren't being renamed.  This method
supports renaming attributes to each others' n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30533	30629	
==>bute names that aren't being renamed.  This method
supports renaming attributes to each others' n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29508	29604	
==>bute names that aren't being renamed.  This method
supports renaming attributes to each others' n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4766	4882	
==>d") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4766	4882	
==>d") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27832	27947	
==>rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx(' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1277	1406	
==>t Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Lo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1277	1406	
==>t Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Lo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14297	14382	
==>ndSideExpression><no_LineTerminator_here><'++'>
    | <LeftHandSideExpression><no_Line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3579	3683	
==>:StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3579	3683	
==>:StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3579	3683	
==>:StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaqu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6337	6441	
==>cto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->simplify <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3715	3806	
==>ecurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( rec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3715	3806	
==>ecurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	459	569	
==>+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	459	569	
==>+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	459	569	
==>+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10257	10385	
==>{
      fail "Cannot skip_all with a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2292	2406	
==>{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOU <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2292	2406	
==>{
    fail "Cannot skip_all with a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	335	446	
==>Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	335	446	
==>Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	335	446	
==>Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(repr => $canid <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15466	15566	
==>ative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!attributes> - B<At <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15466	15566	
==>ative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!attributes> - B<At <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22035	22134	
==>as C<{n,}>.
It's been corrected.  (Mike Lambert)

C<\b> was being turned into "b" inside a character <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3190	3317	
==>:Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3190	3317	
==>:Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s. <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4869	4977	
==>ct_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, newfrom( $matchObj, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4133	4321	
==>b { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4133	4321	
==>b { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Conta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4133	4321	
==>b { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4287	4436	
==>ents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4287	4436	
==>ents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4287	4436	
==>ents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5084	5177	
==>$js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5084	5177	
==>$js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5084	5177	
==>$js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6023	6133	
==>n my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6023	6133	
==>n my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6023	6133	
==>n my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	901	1004	
==>unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	901	1004	
==>unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	901	1004	
==>unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referred object <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23835	23947	
==>od:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28387	28499	
==>od:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27209	27321	
==>od:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1034	1142	
==>ct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_from_struct {
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4492	4596	
==>F, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4492	4596	
==>F, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4492	4596	
==>F, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsname = $undef.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1374	1483	
==>versed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1374	1483	
==>versed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	329	434	
==>ck if we can load some module
### Upgrade this to not have to load the module if possible
sub can_use {
	m <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12921	13208	
==>{$test{failed}})/$test{max},
                                             estat   => '',
                                             wstat   => '',
                                           };
                } else {
                    print "Don't know which tests failed: got $test{ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9293	9390	
==>span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9293	9390	
==>span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23998	24090	
==>sts that they
use a compile-time macro-based approach to substitute the user's preferred
lang <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23998	24090	
==>sts that they
use a compile-time macro-based approach to substitute the user's preferred
lang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7353	7497	
==>a( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7353	7497	
==>a( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7353	7497	
==>a( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	542	656	
==>{

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	542	656	
==>{

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w wo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	542	656	
==>{

  if !%modifiers_known.keys {
    %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3285	3386	
==>s yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3285	3386	
==>s yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3285	3386	
==>s yield NaN, which doesn't match Perl's semantics.

      return "PIL2JS.possibly_autothread([$a, $b], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5843	5962	
==>gil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5843	5962	
==>gil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5843	5962	
==>gil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $f)=@_;
    my $n = $na <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7198	7302	
==>pen OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3993	4095	
==>u can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a f <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3993	4095	
==>u can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28582	28683	
==>s
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33134	33235	
==>s
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32262	32363	
==>s
the set of old attribute names that are being wrapped.  This method will
fail if any C<$mapping> key <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18206	18311	
==>l, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18206	18311	
==>l, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6184	6287	
==>::anyof_class;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2015	2109	
==><≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

= <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2015	2109	
==><≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	15	122	
==>Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	15	122	
==>Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	15	122	
==>Rebless;

require 5.005;
use strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5496	5601	
==>POSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5496	5601	
==>POSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5496	5601	
==>POSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24956	25052	
==>t::Message Class

A Message object is a simple container which stores data to be used or
displaye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24956	25052	
==>t::Message Class

A Message object is a simple container which stores data to be used or
displaye <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9901	9996	
==>d-level

The iterator returned is a function reference.  When called in scalar
context, it retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3719	3897	
==>f (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3719	3897	
==>f (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3719	3897	
==>f (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5717	5819	
==>.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5717	5819	
==>.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5717	5819	
==>.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2294	2383	
==>ue_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2294	2383	
==>ue_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2294	2383	
==>ue_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(sub { ::opa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3929	4056	
==>neg, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof',
      type = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6762	6868	
==>] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6762	6868	
==>] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	532	636	
==>t via the closure, then things don\'t work right
      // --the order of output can become all screwed up <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	532	636	
==>t via the closure, then things don\'t work right
      // --the order of output can become all screwed up <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	532	636	
==>t via the closure, then things don\'t work right
      // --the order of output can become all screwed up <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4229	4356	
==>.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7706	7833	
==>.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6690	6817	
==>.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF;
    }

    die <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17318	17427	
==>$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4049	4147	
==>ngs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Toke <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4233	4331	
==>ngs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Toke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1066	1181	
==>match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1066	1181	
==>match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1066	1181	
==>match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1928	2044	
==>s";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1928	2044	
==>s";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1928	2044	
==>s";
    $cmd =~ s/\./_/g;
    &{"command_$cmd"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8172	8298	
==>ble type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8172	8298	
==>ble type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8172	8298	
==>ble type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2384	2476	
==>Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2384	2476	
==>Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2384	2476	
==>Value;
use Perl6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 ' <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8527	8649	
==>without path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	359	471	
==>rning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	359	471	
==>rning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7177	7295	
==>_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7177	7295	
==>_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7177	7295	
==>_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14154	14286	
==>mp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14154	14286	
==>mp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14154	14286	
==>mp = $s->unboxed };
    $s = $tmp unless $@;
    # warn "   unboxed - $s - $@\n";
    return 'undef' unless defined $s;
    no warnin <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23014	23162	
==>ax},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15671	15797	
==>b::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15671	15797	
==>b::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15671	15797	
==>b::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    return $array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	404	520	
==>uming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	404	520	
==>uming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	404	520	
==>uming(Code $self: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10731	10848	
==>_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10731	10848	
==>_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6028	6142	
==>) => hash->new(),
            attribute->new('%:attributes')      => hash->new(),
            attribute->new('%:met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1526	1630	
==>d accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1526	1630	
==>d accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1526	1630	
==>d accept the optional 'celems' parameter - for kv() implementation
# TODO - is_contiguous() should test i <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3075	3175	
==>x}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END

    my $obj <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2307	2412	
==>rns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method start <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2307	2412	
==>rns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method start <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	196	295	
==>ased Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	196	295	
==>ased Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	196	295	
==>ased Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	769	882	
==>Y';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	769	882	
==>Y';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return j <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	902	993	
==>oes(Relation::Heading|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Map <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2349	2458	
==>if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2349	2458	
==>if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	867	974	
==>o works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	867	974	
==>o works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	867	974	
==>o works?

package PrimP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	136	236	
==>gs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::G <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	136	236	
==>gs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::G <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	134	230	
==>gs::Compiler::Rule syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8658	8755	
==>)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8658	8755	
==>)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8658	8755	
==>)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8431	8536	
==>tegory.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=it <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	733	837	
==>2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 => \$_[2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5971	6070	
==>tegory.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=it <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2051	2189	
==>less $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2111	2249	
==>less $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1944	2056	
==>, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    bit->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3195	3347	
==>elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3195	3347	
==>elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3195	3347	
==>elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1674	1775	
==>dles :note_subscription<insert> :remove_subscription<remove> .= new;
}

class Class::Events::Subscript <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20971	21061	
==>ap
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database manage <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20971	21061	
==>ap
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database manage <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6262	6360	
==>::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This han <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6262	6360	
==>::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This han <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8459	8557	
==>::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B<report returns Str>

This han <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13295	13415	
==>ople and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13295	13415	
==>ople and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interfac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36415	36524	
==>uspend (C<< (?> >>)

Data: array reference of any number of objects

Ender: tail

=head2 ifthen

Family: asser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1674	1814	
==>->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1674	1814	
==>->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1674	1814	
==>->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->isa("PIL::PVar")   and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3176	3286	
==>ed $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3176	3286	
==>ed $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3176	3286	
==>ed $param{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7415	7526	
==>m") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7415	7526	
==>m") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26859	26964	
==>::Sugar
	    functors => [qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z)];
#use Language::Prolog::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15066	15267	
==>array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15066	15267	
==>array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15066	15267	
==>array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array->keys;
                my $values = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4460	4565	
==>]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4460	4565	
==>]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4460	4565	
==>]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3870	4003	
==>fault is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3870	4003	
==>fault is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3870	4003	
==>fault is a closure
        my ($class, %param ) = @_;
        my ( $type, $name, $default, $required, $slurpy ) = 
           ( $param <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22391	22505	
==>t methods will each return the same result when invoked on the
same object with the same arguments; they do not int <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26943	27057	
==>t methods will each return the same result when invoked on the
same object with the same arguments; they do not int <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25666	25780	
==>t methods will each return the same result when invoked on the
same object with the same arguments; they do not int <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30956	31050	
==>what distinguishes each module from others in
its set. For maximum flexibility in their use, th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30956	31050	
==>what distinguishes each module from others in
its set. For maximum flexibility in their use, th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4617	4708	
==>->isa('closure::params'));
    return bit->new(0) if $left->length->not_equal_to($right->len <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	7026	7126	
==>sBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	7026	7126	
==>sBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3925	4025	
==>sBeginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	918	1082	
==>$class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_clo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	918	1082	
==>$class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_clo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	918	1082	
==>$class);            
        }
        elsif ($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8622	8733	
==>sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8622	8733	
==>sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8622	8733	
==>sub pil_from_p6 {
    my($p6)=@_;
    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avo <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5179	5309	
==>ries => $runcores{$_},
    }} sort keys %runcores
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return spri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10909	11006	
==>t of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10909	11006	
==>t of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-va <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6038	6137	
==>ing " . $self->display_type($expected_type) . " for placeholder of " . Blondie::Emitter::Pretty->new <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2389	2487	
==>rm1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3170	3268	
==>rm1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<ter <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2937	3041	
==>OPSIS

    use Blondie::Compiler;

    my $c = Blondie::Compiler->new;
    $c->compile($runtime, $env, $p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2701	2789	
==>}

## ----------------------------------------------------------------------------
## ins <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2701	2789	
==>}

## ----------------------------------------------------------------------------
## ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	665	800	
==>name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	665	800	
==>name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	665	800	
==>name}) {
            return $value;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3892	4078	
==>(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq pack <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1906	2003	
==>de (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1833	1929	
==>de (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3388	3537	
==>name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3388	3537	
==>name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3388	3537	
==>name =~ /^@/ ? [] : $attr_name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21907	22027	
==>sal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21907	22027	
==>sal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21907	22027	
==>sal->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9434	9766	
==>nt")
                      ->is_not_nil()
                      ->and(
                          block->new($e, sub { 
                              my $e = shift; 
                              $e->get("$method")->is_nil(); 
                          })
                      ); 
                })
            ); 
            $e->g <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12593	12694	
==>nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12593	12694	
==>nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8165	8311	
==>ray.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8165	8311	
==>ray.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8165	8311	
==>ray.push(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1988	2089	
==>PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1988	2089	
==>PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1988	2089	
==>PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11729	11843	
==>ile}  = $relative_file;
      if ($regex) {
        $reopts||='';
        $link->{regex} = eval "qr/$regex/$reopts" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1356	1455	
==>s state.

=back 4

The procedural interface does the same thing within a single call, hiding the 
fu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1356	1455	
==>s state.

=back 4

The procedural interface does the same thing within a single call, hiding the 
fu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	406	500	
==>$doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Typ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	406	500	
==>$doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Typ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9012	9101	
==>erators: L<http://dev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT

Copyr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	11	123	
==>package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	11	123	
==>package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	11	123	
==>package PIL::PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	876	979	
==>le::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	876	979	
==>le::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21362	21474	
==>$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17783	17895	
==>$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $sel <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3298	3403	
==>ate (syn/S12.pod). Setting --no-designdocs.\n");
        $no_designdocs = 1;
    }
}

$output_dir ||= 't_i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5082	5189	
==>} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5082	5189	
==>} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28296	28392	
==>library(time)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() is <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10309	10397	
==>ned($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]": <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11044	11132	
==>ned($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]": <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	485	606	
==>Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	485	606	
==>Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4872	4974	
==>lf: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4872	4974	
==>lf: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4872	4974	
==>lf: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2541	2648	
==>create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2541	2648	
==>create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2541	2648	
==>create our Main package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=p <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	579	674	
==>t - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRI <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	579	674	
==>t - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRI <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	295	456	
==>(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	604	765	
==>(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6460	6590	
==>data} = $type;
    }
    else {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1927	2037	
==>line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1927	2037	
==>line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1927	2037	
==>line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3704	3843	
==>atch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3704	3843	
==>atch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3704	3843	
==>atch}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un-bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32343	32507	
==>ngth - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32343	32507	
==>ngth - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32343	32507	
==>ngth - $ret_length;
                my @i = splice( @{$tmp[0]}, -$diff, $diff );
                push @ret, \@i;
                $ret_length += @i;
                l <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3387	3493	
==>2 $bool = $repo->add_package(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3089	3187	
==>::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, y <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2980	3074	
==>::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1175	1277	
==>main namespace for your tastes, and
you want to rebless everything down to your project's base namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1175	1277	
==>main namespace for your tastes, and
you want to rebless everything down to your project's base namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1175	1277	
==>main namespace for your tastes, and
you want to rebless everything down to your project's base namespac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	55	175	
==>s;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cut

# TODO - <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1172	1284	
==>$.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1172	1284	
==>$.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9025	9173	
==>DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9025	9173	
==>DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9025	9173	
==>DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1076	1202	
==>has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1076	1202	
==>has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_ <==
3	/Users/nnunley/pugs/util/func_refact.pl	3104	3213	
==>= $new;
    ($total - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1272	1370	
==>ember($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1272	1370	
==>ember($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20857	20954	
==>e);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27497	27670	
==>ue::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27497	27670	
==>ue::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27497	27670	
==>ue::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19089	19184	
==>ions can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers fo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19089	19184	
==>ions can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers fo <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1695	1795	
==>ncode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1695	1795	
==>ncode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6577	6678	
==>r->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6577	6678	
==>r->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6577	6678	
==>r->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->new('$.referred' => @arg) if $type eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	348	454	
==>) and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Mi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	348	454	
==>) and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Mi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	348	454	
==>) and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Mi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7701	7836	
==>another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1002	1137	
==>another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $de <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	72	187	
==>{
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\" <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1047	1138	
==>item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type return <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1047	1138	
==>item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21521	21616	
==>n Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21521	21616	
==>n Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21521	21616	
==>n Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshif <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1652	1755	
==>,

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1652	1755	
==>,

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6152	6256	
==>ue_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6152	6256	
==>ue_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6152	6256	
==>ue_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24473	24585	
==>ned $x;
    my $s = eval {p6_as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined {
    my($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	194	302	
==>Walker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	194	302	
==>Walker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29282	29380	
==>d inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29282	29380	
==>d inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonl <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	738	854	
==>BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf STDERR "  %s»%s ", BOLD . <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10940	11036	
==>ad1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10940	11036	
==>ad1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1571	1682	
==>6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1571	1682	
==>6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Per <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1571	1682	
==>6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return "p6_new('Num',Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	623	764	
==>' )->code;

BEGIN {
    __PACKAGE__->add_rule( '$' => '
                <Pugs::Grammar::Var.ident>
                { return { scalar => " <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1666	1779	
==>es;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.st <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1666	1779	
==>es;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.st <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31192	31312	
==>tuple.  The new Relation::Example has all
of the tuples of the original (or rather, the corresponding extension of
each t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12796	12888	
==>This routine replaces HTML entities found in the $string with the
corresponding Unicode chara <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12796	12888	
==>This routine replaces HTML entities found in the $string with the
corresponding Unicode chara <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5396	5589	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5396	5589	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5396	5589	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1361	1459	
==>ess %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1361	1459	
==>ess %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1361	1459	
==>ess %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt  = args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8761	8865	
==>B prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8761	8865	
==>B prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8761	8865	
==>B prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1320	1429	
==>le ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1320	1429	
==>le ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1320	1429	
==>le ]);

$::Role->add_attribute('@:roles'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:metho <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16183	16284	
==>d global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->ge <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2592	2693	
==>d global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->ge <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35337	35452	
==>es are
where C<$predicate> simply returns True or False regardless of its
argument, in which case the new Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31560	31673	
==>es are
where C<$predicate> simply returns True or False regardless of its
argument, in which case the new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36110	36223	
==>es are
where C<$predicate> simply returns True or False regardless of its
argument, in which case the new Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	754	872	
==>turn $S->$c($cc) if $S->can($c);
      --&RxPOS;

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14921	15018	
==>to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14921	15018	
==>to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5078	5258	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5078	5258	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5078	5258	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetc <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1939	2053	
==>= $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class->env_override($conf);
    $clas <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8215	8316	
==>ler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curn <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8215	8316	
==>ler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curn <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5186	5324	
==>\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any       pre     List::sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1226	1325	
==>lan;

=head1 DESCRIPTION

B<NOTE:>
This is a Perl6-MetaModel 2.0 port of the Perl 6 version of 
Test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11196	11337	
==>arams' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11196	11337	
==>arams' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11196	11337	
==>arams' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2373	2494	
==>(other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2373	2494	
==>(other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2373	2494	
==>(other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2965	3067	
==>llo from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenCla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2965	3067	
==>llo from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenCla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2965	3067	
==>llo from not yet eigened : " . $self;
        my $eigenclass = $::EigenClass->new('$:name' => 'EigenCla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	805	914	
==>are all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	805	914	
==>are all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	805	914	
==>are all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3107	3235	
==>ass->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4807	4930	
==>ass->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3835	3954	
==>ass->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift <==
3	/Users/nnunley/pugs/misc/S29_round.pl	642	758	
==>en ($_ <= .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x_round <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2250	2343	
==><commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see abov <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2250	2343	
==><commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see abov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6665	6788	
==>ly be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6665	6788	
==>ly be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6665	6788	
==>ly be die, not warn.
        warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1231	1340	
==>gle backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
        $body . ") <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	616	711	
==>gle backslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . ") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20711	20822	
==>alue;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20711	20822	
==>alue;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20711	20822	
==>alue;
    }
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4281	4384	
==>all_pragma_value($?CLASS, 1);
    }

    sub unimport {
        Pugs::Internals::install_pragma_value($? <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4462	4558	
==>s a code reference, the match object returns the I<result>
object; this is normally the entire ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4462	4558	
==>s a code reference, the match object returns the I<result>
object; this is normally the entire ma <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13356	13452	
==>ew(), by which you can create an identical Document (with member
Nodes) to the one you first invo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13356	13452	
==>ew(), by which you can create an identical Document (with member
Nodes) to the one you first invo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	441	535	
==>thod create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	441	535	
==>thod create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	520	621	
==>argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash conta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	520	621	
==>argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5072	5183	
==>/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5072	5183	
==>/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5072	5183	
==>/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4689	4786	
==>'%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4689	4786	
==>'%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4689	4786	
==>'%:namespace');
    }
    ::opaque_instance_attr($self => '%:namespace')->{$label};
}));

$::Packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	436	541	
==>one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	436	541	
==>one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	436	541	
==>one element is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36663	36759	
==>ther trivial case is where any any source relation has zero
tuples, in which case the result does <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41212	41308	
==>ther trivial case is where any any source relation has zero
tuples, in which case the result does <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40835	40931	
==>ther trivial case is where any any source relation has zero
tuples, in which case the result does <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	374	473	
==>$self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	374	473	
==>$self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2990	3086	
==>s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9656	9764	
==>runperl, $args) = @_;

    foreach (@$args) {
	# In VMS protect with doublequotes because otherwise
	# DCL wi <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2197	2291	
==>module names are typically 
capitalized, most "autotags" will be too.

When activated, the spec <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2197	2291	
==>module names are typically 
capitalized, most "autotags" will be too.

When activated, the spec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22145	22343	
==>leop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22424	22622	
==>leop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1107	1214	
==>> $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1107	1214	
==>> $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1107	1214	
==>> $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4055	4191	
==>for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4055	4191	
==>for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4055	4191	
==>for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1097	1193	
==>ix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1097	1193	
==>ix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1097	1193	
==>ix:<\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4861	4958	
==>od grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4861	4958	
==>od grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4861	4958	
==>od grep(@self: Code $code) { grep $code, *@self }
sub JS::Root::grep(Code $code, *@array) is primi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4750	4871	
==>d <= that fail
        if ($got eq $expected and $type !~ tr/a-z//) {
            unshift @mess, "# $got - $expected = " . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21931	22025	
==>or that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; yo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21931	22025	
==>or that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; yo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5199	5356	
==>5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5199	5356	
==>5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2696	2899	
==>= 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2696	2899	
==>= 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9248	9391	
==>lder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $desc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1370	1507	
==>lder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1370	1507	
==>lder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $desc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46161	46279	
==>('$:name'), $e->get('?$name'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:name' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3970	4071	
==>ub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3970	4071	
==>ub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8665	8805	
==>/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8665	8805	
==>/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8665	8805	
==>/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	695	852	
==>en) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	695	852	
==>en) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	695	852	
==>en) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $self->_close_current_class;            
            my $class = $self-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	845	954	
==>scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	812	921	
==>scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2384	2523	
==>ng type";    
    return str->new(
        CORE::join $delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice( <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	197	296	
==>document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this vers <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	197	296	
==>document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5578	5673	
==>Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5578	5673	
==>Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5578	5673	
==>Prelude.js lib6/Prelude/JS.pm
  \$ ./pil2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js te <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34774	34871	
==>tains all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39324	39421	
==>tains all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36307	36400	
==>hod has an alias named C<plus>.

=item C<union (Relation::Example *@others) returns Relation:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	245	360	
==>';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_num <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6106	6203	
==>one long string.

=item List Context

All headers are returned split into the respective
lines.

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6106	6203	
==>one long string.

=item List Context

All headers are returned split into the respective
lines.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1593	1681	
==>::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1593	1681	
==>::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1593	1681	
==>::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) is primitive is rw { PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3426	3539	
==>I SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3426	3539	
==>I SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3426	3539	
==>I SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9215	9331	
==>->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9215	9331	
==>->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9215	9331	
==>->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5272	5393	
==>t( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8749	8870	
==>t( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7769	7890	
==>t( $!body.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1309	1448	
==>gated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1320	1459	
==>gated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9859	9943	
==>ar(B)).
p5_charset_item(char(C)) --> [C], {\+(set_metachar([C]))}.
p5_charset_item(ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24027	24158	
==>ttempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24027	24158	
==>ttempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24027	24158	
==>ttempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1470	1585	
==>{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1470	1585	
==>{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1470	1585	
==>{pugs});
command_conf(metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9165	9291	
==>4
      <!before <LineTerminator>> <-[\"\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule SingleStringChar <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	927	1039	
==>bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESC <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	927	1039	
==>bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESC <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28162	28257	
==>bject as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version of t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28162	28257	
==>bject as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	334	440	
==>ded by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	334	440	
==>ded by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	334	440	
==>ded by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound sca <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17198	17307	
==>= ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20675	20784	
==>= ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20253	20362	
==>= ($other, $?SELF);
    }

    Set $common_h = $!heading.intersection( $other!heading );
    Set $r1only_h = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4994	5093	
==>ber>

The number of the test in the current test file.

=item B<Str $.description>

The test's descr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4994	5093	
==>ber>

The number of the test in the current test file.

=item B<Str $.description>

The test's descr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7191	7290	
==>ber>

The number of the test in the current test file.

=item B<Str $.description>

The test's descr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4176	4300	
==>arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4176	4300	
==>arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4176	4300	
==>arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($body);
  \}";

  # XXX! minor hack. See the end of Prelude: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1496	1612	
==>members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1496	1612	
==>members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10375	10584	
==>ail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      h <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	917	1106	
==>ail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	917	1106	
==>ail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Builder::Test::Base
{
    h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8586	8700	
==>i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8586	8700	
==>i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8586	8700	
==>i ( @idx ) {
        #warn "write loop... ". Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5008	5197	
==>ndef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5020	5209	
==>ndef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2460	2553	
==>efully) perlish text.

=head1 SYNOPSIS

	use Blondie::Emitter::Pretty;

	print Blondie::Emitte <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2722	2828	
==>t of ($node)::$from to $to";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Builti <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2636	2737	
==>r.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2636	2737	
==>r.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2485	2591	
==>expected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diag <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2485	2591	
==>expected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2565	2671	
==>expected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        "diag <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	502	657	
==>failure.

=cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1981	2071	
==>> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2070	2160	
==>> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8260	8474	
==>y
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8724	8938	
==>y
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4340	4445	
==>ubscription, $.event.args);
    }

    method dispatch (Class::Events::Subscriber $subscriber) {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3965	4064	
==>js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3965	4064	
==>js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3965	4064	
==>js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pugs=" . $cfg{pugs}, "--metamod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8836	8978	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8836	8978	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8836	8978	
==>[ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	930	1057	
==>);
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5682	5793	
==>many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Uti <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5682	5793	
==>many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Uti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14824	14937	
==>l6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14824	14937	
==>l6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14824	14937	
==>l6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4991	5105	
==>", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4991	5105	
==>", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4991	5105	
==>", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsbin_hac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11012	11137	
==>arams } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11012	11137	
==>arams } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11012	11137	
==>arams } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2865	2979	
==>1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2865	2979	
==>1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $r <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	278	383	
==>VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	278	383	
==>VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31179	31271	
==>dule names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31179	31271	
==>dule names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3349	3442	
==>tr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3349	3442	
==>tr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3349	3442	
==>tr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' = <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2023	2137	
==>et1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2023	2137	
==>et1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15355	15465	
==>rd => $neg, \$how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9781	9892	
==>tial things

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "co <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1326	1426	
==>nds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1326	1426	
==>nds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4219	4359	
==>value { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4219	4359	
==>value { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4219	4359	
==>value { $_[0]->{pIsMulti} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3571	3675	
==>or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3571	3675	
==>or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3571	3675	
==>or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2854	2964	
==>Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2854	2964	
==>Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = s <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1301	1417	
==>self = shift;
    my $caller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cw <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15812	15907	
==>s than joe public would.

Alternately, sometimes a program will raise a condition or error that, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15812	15907	
==>s than joe public would.

Alternately, sometimes a program will raise a condition or error that, <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	164	263	
==>unately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	164	263	
==>unately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7588	7690	
==>hod authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authentic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7588	7690	
==>hod authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authentic <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13731	13876	
==>my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9915	10060	
==>my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10751	10896	
==>my \$ast = \$code->( \$match ); \n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2705	2832	
==>} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2705	2832	
==>} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2705	2832	
==>} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !def <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	692	817	
==>eturn unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	685	810	
==>eturn unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10054	10166	
==>thod>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*::WALKCLASS", 
    closure->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12430	12578	
==>D() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12430	12578	
==>D() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12430	12578	
==>D() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _('$:cell')->{tied} ? _('$:cell')->{tied} : _('$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13651	13750	
==>> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13651	13750	
==>> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13651	13750	
==>> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1805	1909	
==>* Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1805	1909	
==>* Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1805	1909	
==>* Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1921	2021	
==>(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1921	2021	
==>(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1921	2021	
==>(b) == 0 ? eval(\"throw(new Error(\\\"Division by zero\\\"))\") : Number(a)  / Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8160	8279	
==>::new(
          testplan => $plan, output => $output
      );
  }
  
  method create ( Test::Builder $Class: $plan?, $o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	377	486	
==>::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	377	486	
==>::new(
        testplan => $plan, output => $output
    );
}

method create ( Test::Builder $Class: $plan?, $o <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3164	3276	
==>ft;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10020	10120	
==>) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SY <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10020	10120	
==>) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SY <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12664	12771	
==>>force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6139	6246	
==>>force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	534	627	
==>ted/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	828	961	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	972	1105	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5113	5226	
==>.};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5113	5226	
==>.};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::V <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5113	5226	
==>.};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1371	1469	
==>", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1371	1469	
==>", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1371	1469	
==>", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6581	6692	
==>ME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6581	6692	
==>ME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6581	6692	
==>ME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpads.push( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20232	20353	
==>C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [10],[10],B0,B0,E <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	607	715	
==>nt($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <b <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	607	715	
==>nt($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5815	5959	
==>} }
        #) ),
        #~ q(.) => Pugs::Compiler::Regex->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3312	3429	
==>,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specific to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3312	3429	
==>,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specific to <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	404	541	
==>er ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi sub map (Code $expression ; *@values) returns L <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3993	4089	
==>whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the sa <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3993	4089	
==>whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14931	15029	
==>n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14931	15029	
==>n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14931	15029	
==>n(system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17459	17590	
==>patcher (symbol new BUILD)))))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11415	11506	
==>amples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11415	11506	
==>amples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22258	22356	
==>ibute is a column, but a Relation is not a table.

The Relation class is pure and deterministic, su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26810	26908	
==>ibute is a column, but a Relation is not a table.

The Relation class is pure and deterministic, su <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3448	3540	
==>operatorTable()->{""};

  ($matchObj, my $target, my $matchObjFrom, my $matchObjPos) = Parser <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6274	6431	
==>un~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TOD <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6332	6489	
==>un~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TOD <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2129	2231	
==>l {
    return !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2129	2231	
==>l {
    return !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2570	2662	
==>e> utility's C<-v>
flag will set this.

=item C<$Test::Harness::switches>

The package variab <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8160	8292	
==>:TypeSafe::Annotation->new(
			type => ($rseq->values)[-1]->type,
			struct_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_par <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4879	4986	
==>_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

met <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4879	4986	
==>_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11136	11270	
==>ength == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11136	11270	
==>ength == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11136	11270	
==>ength == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2413	2539	
==>e '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2321	2444	
==>e '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4599	4693	
==>atcher) returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) return <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1823	1923	
==>ell.

#XXX - a possible task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Write me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15134	15258	
==>ute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15134	15258	
==>ute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15134	15258	
==>ute;
    }
    else {
        confess "I do not recognize the attribute type ($attribute)";
    }    
}));

$::Class->add_met <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19338	19453	
==>pad)
    self[0] = exp0

    $I1 = pad["subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = sel <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1248	1359	
==>ans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/t <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1248	1359	
==>ans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	83	175	
==>trict;
use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin::Bin, @_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1178	1295	
==>=> undef);

	$self->count_param;

    return $param;
}

sub enter_scope {
	my $self = shift;

	push @{ $self->{param_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	739	836	
==>ts = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	739	836	
==>ts = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1152	1266	
==>itive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1152	1266	
==>itive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1152	1266	
==>itive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3910	4084	
==>cription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3910	4084	
==>cription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3910	4084	
==>cription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14641	14755	
==>l5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14641	14755	
==>l5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14641	14755	
==>l5::array_INC->tie( $a );
    }
    
    END { p6_apply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9419	9522	
==>ar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9419	9522	
==>ar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexica <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9419	9522	
==>ar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Lexica <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47450	47578	
==>>send('add_method' => (
    # method label
        symbol->new('STORE'),
    # method body
        method->new(
            $::EN <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15951	16046	
==>the subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15951	16046	
==>the subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1381	1481	
==>erencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1381	1481	
==>erencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1381	1481	
==>erencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = 0; i < add.length; i++ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	504	622	
==>default
    install_dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($fil <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11443	11534	
==>m>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11443	11534	
==>m>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23767	23866	
==>s) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23767	23866	
==>s) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23767	23866	
==>s) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11262	11385	
==>}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11262	11385	
==>}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11262	11385	
==>}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return unl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8045	8173	
==>:i";
            %mods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignorecase");
#           warning "PGE <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15945	16041	
==>or example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15945	16041	
==>or example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4182	4271	
==>-------------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ---------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4205	4294	
==>--------
## BOOTSTRAPPING Class/Object COMPLETE
## --------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2188	2319	
==>tance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2188	2319	
==>tance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2188	2319	
==>tance || 'undef') . ")";
        my $label = shift;
        (defined $label) || confess "No label to fetch";
        $instance->{att <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13860	13978	
==>:ifthen;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper::Dumper $o;

    my $f_test = $o->d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17251	17350	
==>ne or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17251	17350	
==>ne or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8177	8395	
==>crement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8177	8395	
==>crement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8177	8395	
==>crement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1511	1596	
==>ever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1511	1596	
==>ever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3901	4000	
==>f @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3901	4000	
==>f @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3901	4000	
==>f @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	137	245	
==>stant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	137	245	
==>stant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optio <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	753	852	
==>:Emitter" }

sub emitter {
	my $self = shift;
	$self->emitter_class->require || die $UNIVERSAL::requ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7727	7851	
==>o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyof_char;
}
{
  package Regexp::Parser::anyof_range;
}
{
  packa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21284	21384	
==>=> $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->cr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44191	44291	
==>=> $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->cr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	791	911	
==>hift) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2434	2531	
==>hild($child);
    }
    $self;
}

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2434	2531	
==>hild($child);
    }
    $self;
}

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13581	13680	
==>> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13581	13680	
==>> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13581	13680	
==>> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	708	815	
==>e[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 S <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	708	815	
==>e[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12790	12897	
==>perl {
    die "test.pl:runperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3507	3628	
==>rite_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3507	3628	
==>rite_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3507	3628	
==>rite_fh), "$cfg{pugs}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1543	1697	
==>=> $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.out <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36688	36788	
==>e any any source relation has zero
tuples, in which case the result does too.  Another trivial case i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41237	41337	
==>e any any source relation has zero
tuples, in which case the result does too.  Another trivial case i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40860	40960	
==>e any any source relation has zero
tuples, in which case the result does too.  Another trivial case i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2839	2954	
==>s      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2839	2954	
==>s      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2839	2954	
==>s      => "pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23929	24039	
==>RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20350	20460	
==>RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1379	1508	
==>Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1379	1508	
==>Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1379	1508	
==>Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submeth <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	297	411	
==>ead1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postf <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	297	411	
==>ead1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3550	3695	
==>d slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3550	3695	
==>d slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3550	3695	
==>d slots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16945	17096	
==>, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      els <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13366	13517	
==>, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      els <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11669	11768	
==>no warnings 'redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":ut <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	963	1062	
==>Tail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <Ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	963	1062	
==>Tail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	98	203	
==>ION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	98	203	
==>ION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	98	203	
==>ION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2176	2276	
==>ake_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2176	2276	
==>ake_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2176	2276	
==>ake_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$lab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16261	16524	
==>ms => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16261	16524	
==>ms => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16261	16524	
==>ms => sub { $array->elems->unboxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5546	5640	
==>lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5546	5640	
==>lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6136	6230	
==>lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3291	3420	
==>rint "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@d <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3755	3884	
==>rint "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@d <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6113	6227	
==>atements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLValue <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8604	8721	
==>_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8797	8914	
==>_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	607	722	
==>$dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shift;
    my $pkg  = shift;       re <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1589	1700	
==>$set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp un <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1589	1700	
==>$set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp un <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9912	10007	
==>ted <a
    href="http://www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automati <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18603	18694	
==>ecessarily the names you specified in the constructor. For example,
this module automaticall <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18603	18694	
==>ecessarily the names you specified in the constructor. For example,
this module automaticall <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2801	2904	
==>ng}{end} - $self->{_timing}{start};
    DumpFile($Config{"output-file"}, {
            meat => $self->st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	15	117	
==>ule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Da <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	15	117	
==>ule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1284	1418	
==>=> "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1284	1418	
==>=> "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1284	1418	
==>=> "PIL::PApp";
}

sub as_js {
  my $self = shift;
  local $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10021	10146	
==>)))
                 (returns <method>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*::WALKCLA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	503	608	
==>$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xml <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	503	608	
==>$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xml <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1640	1786	
==>t were expecting a simple '<'
            
                # after whitespace means '<' (default)
                # without whitespace means '<str> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4697	4800	
==>open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4697	4800	
==>open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4697	4800	
==>open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5154	5267	
==>te(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5154	5267	
==>te(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14424	14520	
==>H (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passed through

=item RPe_B <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2012	2107	
==>nt of the calling function's package name.  (For example, if 
a function in C<Some::Module> call <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2012	2107	
==>nt of the calling function's package name.  (For example, if 
a function in C<Some::Module> call <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23878	23988	
==>ee 15.1.3
      <uriCharacter> <uriCharacters>?
}
rule uriCharacter {  # see 15.1.3
      <uriReserved>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8093	8195	
==>body quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8093	8195	
==>body quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3149	3282	
==>$self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3149	3282	
==>$self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3149	3282	
==>$self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6447	6567	
==>..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6447	6567	
==>..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6447	6567	
==>..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3453	3553	
==>ix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3453	3553	
==>ix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3453	3553	
==>ix "defined $i" to "elems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' o <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7788	7916	
==>9),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7788	7916	
==>9),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5531	5659	
==>stem, without GHC
        # in our path.   Let's hunt around for it.

        my $slash = ( $Config{osname} eq "cygwin" ) ? '/' : <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	702	799	
==>rl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines def <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	702	799	
==>rl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines def <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4191	4285	
==>OKERFILE
either in this directory or under your home. You can use the
skeleton in util/smoker-e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3322	3499	
==>"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3322	3499	
==>"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3322	3499	
==>"
                    unless $thing->cell->{type} eq 'Hash';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3376	3473	
==>osetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do exp <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3376	3473	
==>osetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do exp <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	698	791	
==>s :add_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at the cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12827	13088	
==>eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12827	13088	
==>eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12827	13088	
==>eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11702	11808	
==>method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11702	11808	
==>method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11702	11808	
==>method('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4091	4192	
==>>($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4091	4192	
==>>($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4091	4192	
==>>($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47035	47141	
==>k->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:name <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47202	47308	
==>k->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19338	19440	
==>egexp::Parser::tail;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5591	5702	
==>1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5591	5702	
==>1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5591	5702	
==>1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2209	2323	
==>ork

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2209	2323	
==>ork

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2209	2323	
==>ork

# TODO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12711	12844	
==>shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12711	12844	
==>shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12711	12844	
==>shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23906	24003	
==>t,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23906	24003	
==>t,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23906	24003	
==>t,$qo,$qc) { rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6240	6383	
==>q 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6753	6896	
==>q 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	580	709	
==>le( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	596	725	
==>le( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	572	701	
==>le( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	349	466	
==>($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(% <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	349	466	
==>($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(% <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	349	466	
==>($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(% <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	720	842	
==>aram->{Perl5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	552	658	
==>b hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	552	658	
==>b hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2154	2255	
==>ive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2154	2255	
==>ive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2154	2255	
==>ive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13802	13902	
==>$S->force_object(anyof_class => ascii => $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_hand <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1192	1281	
==>PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNT <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1403	1492	
==>PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNT <==
3	/Users/nnunley/pugs/util/importgraph.pl	2795	2926	
==>ge->[1] ? 'green' : $edge->[0] ? "blue" : "black";
    $g->add_edge($name, $k, color => $color);
    $edges++;
  }
}
print "$nodes n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16145	16239	
==>bute is set from the named parameter $node_type (a
string); the optional named parameter %attri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16145	16239	
==>bute is set from the named parameter $node_type (a
string); the optional named parameter %attri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3034	3192	
==>{   my $wanted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2790	2887	
==>A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2790	2887	
==>A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2790	2887	
==>A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19196	19309	
==>-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15617	15730	
==>-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	317	444	
==>M $filename));
# print "up to date: $pmc_is_uptodate\n";
if ( $pmc_is_uptodate ) {
    do $pmc 
        unless $filename =~ /\.p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	117	217	
==>t<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	117	217	
==>t<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	668	782	
==>f(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	668	782	
==>f(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrappe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	668	782	
==>f(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrappe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13890	13998	
==>ons are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17367	17475	
==>ons are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16747	16855	
==>ons are
    # combined, so to try and make the least expensive kinds of combining
    # occur first, and most <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6871	6980	
==>ists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not impleme <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1228	1335	
==>ists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not impleme <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	330	434	
==>ists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not impleme <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	441	542	
==>h a [ default_value => return value ] pair
### the default_value is the value of initalization, the re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	177	274	
==>'_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRAN <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	177	274	
==>'_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRAN <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	192	303	
==>returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	192	303	
==>returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

metho <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7113	7212	
==>d if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  push @operatorStack, $opera <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6804	6922	
==>$a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6804	6922	
==>$a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6804	6922	
==>$a }

# The following line also installs &infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	658	792	
==>_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	658	792	
==>_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	658	792	
==>_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12889	13003	
==>Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12889	13003	
==>Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12889	13003	
==>Value::identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	586	684	
==>ng a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with the C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	586	684	
==>ng a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with the C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23051	23145	
==>e 13
      <'function'> <Identifier> <'('> <FormalParameterList>? <')'. <'{'> <FunctionBody> <' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22632	22722	
==>Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22632	22722	
==>Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18806	18888	
==>,Bx,B1,Ex,E1).
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2605	2697	
==>File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2605	2697	
==>File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7275	7464	
==>eady?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the v <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7739	7928	
==>eady?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	842	983	
==>~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1;

__END__

=pod

=head1 NAME

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4662	4783	
==>rgs(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4662	4783	
==>rgs(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4662	4783	
==>rgs(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-o <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3659	3760	
==>of the holy war about whether to raise
    # exceptions or return false values to signal error conditi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3605	3703	
==>l put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
capt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3605	3703	
==>l put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
capt <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1533	1628	
==>:List are defined

=head1 DESCRIPTION

These ADTs are the implementation classes of all the L<Bl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	753	842	
==>mper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	753	842	
==>mper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4971	5120	
==>_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4971	5120	
==>_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4971	5120	
==>_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::Type->new( 
                    name => 'Any' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18480	18600	
==>5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18480	18600	
==>5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18480	18600	
==>5 magic sugar down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21918	22030	
==>ut it will throw a "use of class() is deprecated" warning.

Quantifiers of the form C<{n}> were being misrepresen <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	64	158	
==>--------------------------------------------
## attributes

has $.node is rw;

has $.depth;
has <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	64	158	
==>--------------------------------------------
## attributes

has $.node is rw;

has $.depth;
has <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	189	288	
==>mport();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a->{package} cmp $b->{package <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1953	2042	
==>geses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1953	2042	
==>geses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2923	3022	
==>use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    packag <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2923	3022	
==>use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    packag <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2923	3022	
==>use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

{
    packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7258	7361	
==>>ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7258	7361	
==>>ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7258	7361	
==>>ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLAS <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26979	27093	
==>{  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEscape>
}



gramma <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18409	18506	
==>mes to getting the most accurate program text
for users, we still get the best results by having a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18409	18506	
==>mes to getting the most accurate program text
for users, we still get the best results by having a <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	85	176	
==>oc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Pe <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	85	176	
==>oc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Pe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16669	16790	
==>ntries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($buck <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16669	16790	
==>ntries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($buck <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19244	19332	
==>0,NPos),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3051	3162	
==>abel));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3051	3162	
==>abel));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3051	3162	
==>abel));
}));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14257	14357	
==>_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14257	14357	
==>_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14257	14357	
==>_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8989	9106	
==>ault=>sub{$default}") if defined $default;

	my $slurpy = ref($op{'paramContext'}) =~ /Slurpy/ #XXX
	    || $op{'slurp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8247	8354	
==>rl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8247	8354	
==>rl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XX <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1274	1373	
==>YNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRIPTION

B<STOP!> If all you wan <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13497	13589	
==>ntity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_untermin <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13497	13589	
==>ntity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_untermin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1447	1551	
==>y) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1447	1551	
==>y) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1447	1551	
==>y) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13328	13439	
==>ubset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16805	16916	
==>ubset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16167	16278	
==>ubset of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8315	8442	
==>w( testplan => $plan, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	525	640	
==>w( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	525	640	
==>w( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8016	8194	
==>match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8016	8194	
==>match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8016	8194	
==>match.index;
    #      var g_array = [];
    #      var g_to;
    #      while (match) {
    #        var m = unpack_match(match);
    #        g_array.push(m);
    #        g_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29073	29184	
==>ict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29073	29184	
==>ict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29073	29184	
==>ict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Num::Inf;

sub new { <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5195	5357	
==>( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstar <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5195	5357	
==>( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26593	26698	
==>elf->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16383	16473	
==>ogramming language named "Rosetta D", which is computationally complete
(and industrial str <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16383	16473	
==>ogramming language named "Rosetta D", which is computationally complete
(and industrial str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7922	8041	
==>ti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7922	8041	
==>ti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7922	8041	
==>ti
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\n")
        : "",
      PIL::ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	732	838	
==>+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	732	838	
==>+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTE <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	732	838	
==>+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTE <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2933	3072	
==>e; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub package_version     { $_[0] =~ $re; $3 }
        sub package_author <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1332	1423	
==>:[ ]", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken("circumfix:( )", "term:", <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2176	2267	
==>ch alternate engine may introduce additional security or memory problems.

Tainting informat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31487	31667	
==>".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31487	31667	
==>".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31487	31667	
==>".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3332	3488	
==>ype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{super <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3332	3488	
==>ype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{super <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3332	3488	
==>ype => $supertype,  
        } => $class;
    }
    
    sub name    { $_[0]{name} }
    sub match   { 
        return 0 
            if  defined $_[0]{super <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1945	2045	
==>O - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1945	2045	
==>O - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1945	2045	
==>O - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/multimethods
# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	652	783	
==>rgs, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	652	783	
==>rgs, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	652	783	
==>rgs, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5301	5406	
==>arse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5301	5406	
==>arse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5301	5406	
==>arse these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv} <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6383	6479	
==>ified by a URL. The document is printed
to the selected default filehandle for output (normally S <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6383	6479	
==>ified by a URL. The document is printed
to the selected default filehandle for output (normally S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	728	865	
==>o
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	728	865	
==>o
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	728	865	
==>o
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3796	3973	
==>y ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4260	4437	
==>y ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2643	2739	
==>eturn Bool::true;
}

method any_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5590	5696	
==>my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5590	5696	
==>my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	480	588	
==>ing to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	480	588	
==>ing to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $ru <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	468	560	
==>something in their <tt>~/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob "/home/*/p <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3561	3658	
==>.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was s <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3561	3658	
==>.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1247	1337	
==>die::Reducer::DynamicScoping - a base class (probably a role) for
implementing dynamic scop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8475	8594	
==>return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8475	8594	
==>return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8475	8594	
==>return {
    '$' => 'new PIL2JS.Box(undefined)',
    '&' => 'new PIL2JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3658	3749	
==>d1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Ed <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3658	3749	
==>d1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Ed <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1712	1802	
==>']->to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from,map{\$_->from}\@\$m).\"/g;
	$expr =~ s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30864	30960	
==>cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35414	35510	
==>cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identica <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34605	34701	
==>cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identica <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4203	4331	
==>s;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4203	4331	
==>s;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35773	35872	
==>closeN (C<)> when in C<(...>)

Omitted

=head2 tail

Family: close

Types: tail (C<)> when not in C< <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2000	2145	
==>me> ]? }\n";
        }
    }
    return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5094	5210	
==>ute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8571	8687	
==>ute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5292	5413	
==>ss \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5292	5413	
==>ss \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5292	5413	
==>ss \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the instance attribute container type, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9239	9360	
==>t'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9239	9360	
==>t'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9239	9360	
==>t'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	154	253	
==>gram prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	154	253	
==>gram prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dum <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7676	7772	
==>m S29draft.pod 8655.  In the List section.
multi Array::map (@values ;  Code $expression --> Lazy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6100	6185	
==>rs>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normali <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6100	6185	
==>rs>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normali <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4088	4185	
==>OAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4088	4185	
==>OAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24743	24839	
==>eganch permit very fast decisions on suitable starting points
 * for a match, cutting down the wo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1362	1457	
==>header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_ca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1362	1457	
==>header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_ca <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27447	27538	
==>e RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30188	30286	
==>>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
stan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34740	34838	
==>>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
stan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33913	34011	
==>>, C<project>, C<rename>,
C<wrap>, C<unwrap>], applied in that order, and it works like Perl's
stan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22821	22928	
==>a type, the Relation::Example data type is immutable.  The value of
a Relation::Example object is determined <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6485	6579	
==>).add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6485	6579	
==>).add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3526	3641	
==>pping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7003	7118	
==>pping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that are <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5960	6075	
==>pping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that are <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3923	4032	
==>me = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION || '' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11124	11221	
==>lar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11124	11221	
==>lar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3216	3372	
==>ers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3216	3372	
==>ers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3216	3372	
==>ers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->ne <==
3	/Users/nnunley/pugs/util/grokprims.pl	2308	2416	
==>table border='1' width='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  pr <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1060	1157	
==>30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1060	1157	
==>30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	720	872	
==>source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Runtime::Perl6;\n" . 
        "use strict;\n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7248	7353	
==>s($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_d <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7248	7353	
==>s($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13878	13997	
==>ethod($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13878	13997	
==>ethod($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13878	13997	
==>ethod($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10082	10230	
==>D');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10082	10230	
==>D');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10082	10230	
==>D');
                die "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3950	4091	
==>->package . " already exists in this repository");
        return;
    }

    my $inst = JIB::Package->new( 
                    meta        = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3287	3379	
==>m($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3287	3379	
==>m($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5062	5172	
==>)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5062	5172	
==>)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5062	5172	
==>)};
MULTI SUB yield () {...};
MULTI SUB take () {...};
# nothing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10709	10822	
==>> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10709	10822	
==>> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14779	14883	
==>y @params = @_;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params} = \@params;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	756	864	
==>ues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	756	864	
==>ues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	756	864	
==>ues(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-2 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	637	777	
==>PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	637	777	
==>PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8234	8350	
==>rray})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8234	8350	
==>rray})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8234	8350	
==>rray})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #warn "               FROM: ".Perl6::Value::stringify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16125	16215	
==>self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16125	16215	
==>self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16125	16215	
==>self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attribute_li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2062	2162	
==>_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2062	2162	
==>_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2062	2162	
==>_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuations ?
# TODO - modify constant p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1210	1313	
==>, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1210	1313	
==>, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1210	1313	
==>, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posE <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2273	2378	
==>>{param_stack} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4138	4249	
==>}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4138	4249	
==>}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unle <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4138	4249	
==>}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unle <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2649	2741	
==>ad2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=over <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2649	2741	
==>ad2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4451	4559	
==>ec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4451	4559	
==>ec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4451	4559	
==>ec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);

# XXX - c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11037	11154	
==>object(branch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $self->add_handler('(' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4058	4151	
==>uperclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4058	4151	
==>uperclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4058	4151	
==>uperclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:na <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3794	3906	
==>t in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = & <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3884	3975	
==>ile::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3884	3975	
==>ile::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2366	2468	
==>xport(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2366	2468	
==>xport(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $co <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7148	7241	
==>em I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's acco <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7148	7241	
==>em I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's acco <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3788	3887	
==>d found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5690	5789	
==>d found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->c <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10878	10971	
==>stance, the information about how many members
were actually new is discarded.

=head2 C<$set. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10878	10971	
==>stance, the information about how many members
were actually new is discarded.

=head2 C<$set. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1255	1358	
==>t.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1255	1358	
==>t.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1335	1438	
==>t.plan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1455	1558	
==>- slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret shoul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1455	1558	
==>- slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret shoul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1455	1558	
==>- slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->do() - @ret shoul <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	69	161	
==>Meta::Method;

use Meta::Util;

Has($?CLASS, "name", "Str");
Has($?CLASS, "abstract", "Bool") <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8596	8685	
==>@statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2421	2510	
==>@statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->ma <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3713	3820	
==>ny( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7190	7297	
==>ny( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6147	6254	
==>ny( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2471	2577	
==>);
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2471	2577	
==>);
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6385	6491	
==>ecase letter (Lt)",
      # "Modifier letter (Lm)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2321	2446	
==>r_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2321	2446	
==>r_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22016	22121	
==>words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseBlock :words {  # se <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2731	2832	
==>end Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2731	2832	
==>end Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	752	895	
==>X::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $fl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	752	895	
==>X::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $fl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	752	895	
==>X::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $fl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4049	4194	
==>?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # W <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4049	4194	
==>?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # W <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1801	1888	
==>talog_tests.pl --test_dirs=t/builtins,t/macros --output_dir=t_test --no_designdocs

   S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	110	239	
==>@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	110	239	
==>@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	110	239	
==>@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pilc
       run_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1768	1901	
==>} } ]
        | [ <metasyntax> { return { rule => $_[0]{metasyntax}(), } } ]
    }
    
    rule named_capture {
        \$ \< <ident> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23912	24008	
==>a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of ext <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23912	24008	
==>a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10564	10663	
==>kes abstract 
    # methods which must be implemented
    # ---------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10564	10663	
==>kes abstract 
    # methods which must be implemented
    # ---------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10564	10663	
==>kes abstract 
    # methods which must be implemented
    # ---------------------------------------- <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17057	17247	
==>a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link)), id=>0+$link, 
                         title => $link->{whol <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	404	512	
==>start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method siz <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	404	512	
==>start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method siz <==
3	/Users/nnunley/pugs/util/package-osx.pl	6389	6504	
==>usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/local/man/man3/Perl6::Overview::Rule.3
        /usr/loca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	561	669	
==>ll ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	561	669	
==>ll ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3249	3346	
==>Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget) <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3249	3346	
==>Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	776	874	
==>ler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../Pugs-Compiler-Precedence/l <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4960	5054	
==>"skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5018	5112	
==>"skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3623	3774	
==>ocal $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3623	3774	
==>ocal $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3623	3774	
==>ocal $/;
  my $res = <$read_fh>;
  return undef if not defined $res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pu <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16168	16271	
==>not a predefined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2577	2680	
==>not a predefined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4250	4351	
==>opy::copy( $pkg->file, $self->pool )     or error($!), return;
    $self->add_package_to_index( packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	311	449	
==>res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	311	449	
==>res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	311	449	
==>res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	653	753	
==>.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	653	753	
==>.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	653	753	
==>.\n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3121	3281	
==>while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3121	3281	
==>while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3121	3281	
==>while 1 {
        my $m = $s ~~ $rx;
        last if !$m;
        push(@a,$m);

        my $off = $m.to +1;
#        $m.from += $offset; # XXX - should be writab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8783	8885	
==>e Class method
fails_ok { $iFoo->name } '... instance calling metaclass method fails';

fails_ok { $iFo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	869	964	
==>er level, so different 
character encodings may be enciphered in different ways.

=head2 Using t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	869	964	
==>er level, so different 
character encodings may be enciphered in different ways.

=head2 Using t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1382	1517	
==>hod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1382	1517	
==>hod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1382	1517	
==>hod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	133	246	
==>V};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	133	246	
==>V};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	133	246	
==>V};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6891	7053	
==>urn Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6891	7053	
==>urn Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6891	7053	
==>urn Str->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4744	4838	
==>s whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the origin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4744	4838	
==>s whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the origin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4744	4838	
==>s whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the origin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	98	219	
==>todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	98	219	
==>todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "no <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	98	219	
==>todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "no <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29918	30015	
==>ta-stuffed hash
and an accessor method to read values from it by key.  Each template hash
key corr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29918	30015	
==>ta-stuffed hash
and an accessor method to read values from it by key.  Each template hash
key corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16158	16255	
==>s. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

=hea <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16158	16255	
==>s. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

=hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	297	394	
==>mc and (-M $pmc <= -M $filename));
# print "up to date: $pmc_is_uptodate\n";
if ( $pmc_is_uptodate <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5562	5834	
==>val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path=" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5562	5834	
==>val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path=" <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1939	2058	
==>P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototyp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	807	904	
==>POSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	807	904	
==>POSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	807	904	
==>POSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6996	7135	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7189	7328	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2370	2469	
==>f their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always apprecia <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2370	2469	
==>f their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always apprecia <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1847	1938	
==>d JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1847	1938	
==>d JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1847	1938	
==>d JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9988	10181	
==>= '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bindin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6329	6522	
==>= '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bindin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7178	7371	
==>= '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"bindin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32251	32347	
==>hat; and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from P <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32251	32347	
==>hat; and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from P <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24715	24810	
==>_modifiers(Ex,M,E1).
set_modifiers(E0,[],E0).
set_flag(E0,i,E1)  :- set_flag_i(E0,i,E1), !.
set_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13898	14016	
==>1) {
      my $d = pop @{ $tree->[-1]->{data} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2201	2304	
==>fo     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2201	2304	
==>fo     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6168	6275	
==>_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6168	6275	
==>_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6168	6275	
==>_role->add_method($method_name => ::make_private_method(
                        $body->{methods}->{$method_ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	25	121	
==>Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common mediu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	25	121	
==>Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common mediu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5898	6010	
==>g hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method rev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5898	6010	
==>g hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method rev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5898	6010	
==>g hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end;
  }, 0..$maxlen-1;
}

method rev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11976	12182	
==>>{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11976	12182	
==>>{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11976	12182	
==>>{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my @res;
                if ( Perl6::Value::p6v_isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4689	4802	
==>m::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4689	4802	
==>m::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4689	4802	
==>m::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3906	4022	
==>f, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAhead <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3906	4022	
==>f, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAhead <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3906	4022	
==>f, $i) = @_;
    my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAhead <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12941	13066	
==>s:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12941	13066	
==>s:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12941	13066	
==>s:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ---------- Implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	213	334	
==>elf = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal wou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	213	334	
==>elf = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal wou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	213	334	
==>elf = shift;
    die unless keys %$self == 1;
    die unless exists $self->{pVal};
    local $_;
    # my $v := $.pVal wou <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2687	2846	
==>ng !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2687	2846	
==>ng !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27604	27701	
==>TCH_TAINTED_set(prog, t) ((t) \
					? RX_MATCH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6094	6225	
==>' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6094	6225	
==>' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6094	6225	
==>' => --$value ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4538	4636	
==>ional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4538	4636	
==>ional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6062	6160	
==>ional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the current <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13024	13124	
==>ns both take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO- <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13082	13182	
==>ns both take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	42	138	
==>e::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict;
use w <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23699	23822	
==>CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28914	29010	
==>CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3929	4030	
==>d));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3929	4030	
==>d));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3929	4030	
==>d));
  };
  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returnc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5267	5370	
==>IL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5267	5370	
==>IL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5267	5370	
==>IL::Run::Root::'.$mn if $is_absolute_name;
    $mn;
}
sub p6_unmangle {
    my($mn)=@_;
    my($always_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11960	12060	
==>Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11960	12060	
==>Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11960	12060	
==>Internals::eval_yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18518	18643	
==>tom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14939	15064	
==>tom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2464	2607	
==>K';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2464	2607	
==>K';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2464	2607	
==>K';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instanc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16792	16910	
==>item lcfirst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $string = CALLE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3813	3919	
==>t requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3813	3919	
==>t requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3857	3960	
==>s => $S->force_object(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handle <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1666	1762	
==>t::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1666	1762	
==>t::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10794	10894	
==>k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_me <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2435	2528	
==>hod commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the match object <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2435	2528	
==>hod commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the match object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2746	2848	
==>bstr(${&Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	234	334	
==>as so richtig?
 =end COMMENT
#!}\end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11269	11356	
==>==' => type::operator::arrow->new(
		type::operator::nullary->new("int"),
		type::operat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10222	10340	
==>$body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Excep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10222	10340	
==>$body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Excep <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10222	10340	
==>$body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Excep <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12455	12555	
==>lacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12455	12555	
==>lacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	779	874	
==>okies{$variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$variable};
}

Cookie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	524	628	
==>------------------------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	524	628	
==>------------------------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	524	628	
==>------------------------------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2827	2937	
==>= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2827	2937	
==>= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2388	2489	
==>d".say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs> module is a front-end to the ex <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3244	3367	
==>file' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\b(test_harness\(\$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9118	9212	
==>l($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9118	9212	
==>l($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	975	1102	
==>js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	975	1102	
==>js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	975	1102	
==>js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17505	17608	
==>lass->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17505	17608	
==>lass->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17505	17608	
==>lass->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (defined $label && $lab <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	534	641	
==>( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `ne <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	534	641	
==>( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19267	19363	
==>of
uniformity.

=item Documentation

Fixed some poor wording, and documented the problem with usi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2116	2221	
==>ckage PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2116	2221	
==>ckage PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2116	2221	
==>ckage PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run::EvalX::bb_tre <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3263	3463	
==>it :$inplace
                             ) returns Array

 multi sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) retur <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4821	4918	
==>quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.or <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4821	4918	
==>quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11179	11331	
==>rn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11179	11331	
==>rn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11179	11331	
==>rn ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class($_[0])) 
                       != 
                       ::opaqu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2275	2371	
==>⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2275	2371	
==>⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	938	1047	
==>ect ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	938	1047	
==>ect ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2264	2375	
==>S::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2264	2375	
==>S::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2264	2375	
==>S::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2170	2414	
==>me, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2170	2414	
==>me, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2170	2414	
==>me, $method);               
            }
            else {
                $current_class->add_method($method_name, $method);
            }
        }                             
        else {
            $self->env->set(
                'ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5348	5467	
==>&& $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5348	5467	
==>&& $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5348	5467	
==>&& $pos >= 0;
    $self->{array}->fetch( $pos, @_ );
}
sub Perl6::Slice::store {
    my $self = shift;
    my $i = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34381	34500	
==>Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34381	34500	
==>Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34381	34500	
==>Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11769	11884	
==>pe;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32636	32728	
==>mand into user-readable
message strings, using data from external Template modules as a templ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32636	32728	
==>mand into user-readable
message strings, using data from external Template modules as a templ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15902	15999	
==>`size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15902	15999	
==>`size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2890	2990	
==>eludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2890	2990	
==>eludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2890	2990	
==>eludepc => "the precompiled Prelude",
    prelude   => "the Prelude sourcecode",
    metamodel_base = <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6965	7073	
==>span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6965	7073	
==>span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :d <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	857	960	
==>my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    retur <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	857	960	
==>my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	921	1010	
==>ndie::Backend::Foo->execute($compiled);

    my $same_result = Blondie::Backend::Foo->run( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	162	262	
==>n p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

Se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	162	262	
==>n p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

Se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	162	262	
==>n p6.
Most will eventually be implemented in perl6/Prelude.pm, and can
then be removed from here.

Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	486	616	
==>L2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	486	616	
==>L2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	486	616	
==>L2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	399	506	
==>x.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	399	506	
==>x.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	399	506	
==>x.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4574	4669	
==>IKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4574	4669	
==>IKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4574	4669	
==>IKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	976	1062	
==>tent-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	976	1062	
==>tent-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type E <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	187	273	
==>le::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @args = grep !/^--[-\w] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8684	8897	
==>ap { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8684	8897	
==>ap { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8684	8897	
==>ap { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->type( $arg->type );  
                        $j->things( \@r );  
                        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5210	5308	
==>arn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5210	5308	
==>arn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5210	5308	
==>arn "SLICE FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3285	3392	
==>pe, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3285	3392	
==>pe, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26533	26631	
==>m C<$!is_mutable> - B<Relation::Example Is Mutable>

Bool - This attribute is True if the Relation: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4342	4438	
==>r::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@arg <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4342	4438	
==>r::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5866	5962	
==>r::Output object.

=item C<plan>

A Test::Builder::TestPlan object.

=back

=item B<create( *@arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2231	2330	
==>js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2231	2330	
==>js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2231	2330	
==>js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7285	7460	
==>mp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7285	7460	
==>mp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7285	7460	
==>mp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3959	4224	
==>e {
                #warn "compiling args for $t";
                my $args = '';
                foreach my $arg (@t) {
                    if (!$args) {
                        #warn "our first arg $arg";
                        $args .= $arg
                    } <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	730	827	
==>d1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, b <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	730	827	
==>d1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	452	551	
==>e compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	452	551	
==>e compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	452	551	
==>e compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SLet|STem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2798	2902	
==>thod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2798	2902	
==>thod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2798	2902	
==>thod('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    ::opaque_instanc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4848	5038	
==>}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5070	5260	
==>}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3524	3934	
==>::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3524	3934	
==>::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	645	738	
==>the things the
language must provide, including stuff for what cannot have a reference
impleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6801	6906	
==>$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6801	6906	
==>$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    pus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6801	6906	
==>$::Class->add_method('add_subclass' => ::make_method(sub {      
    my ($self, $subclass) = @_;  
    pus <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2380	2496	
==>RY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2380	2496	
==>RY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	265	372	
==>y $f = shift;
		my $res = (ref $self)->new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18230	18322	
==>omplex algorithm that
Module::Compile uses.

First, the source module is preprocessed to hide <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18230	18322	
==>omplex algorithm that
Module::Compile uses.

First, the source module is preprocessed to hide <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8266	8359	
==>defined $pilc;
    $pilc->expand();
}

#====================================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8266	8359	
==>defined $pilc;
    $pilc->expand();
}

#====================================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8266	8359	
==>defined $pilc;
    $pilc->expand();
}

#====================================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4910	5036	
==>t() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4910	5036	
==>t() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4910	5036	
==>t() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @js, "args = PIL2JS. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	254	382	
==>ssage::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Du <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	10	115	
==>se Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::I <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	10	115	
==>se Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16198	16308	
==>lts =~ s/\n+$//;
    $results =~ s/at\s+misctmp\d+\s+line/at - line/g;
    $results =~ s/of\s+misctmp\d+\s+abor <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8029	8127	
==>when you need do perform "set" operations on 
Span objects, that return lists of spans.

In this ex <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8029	8127	
==>when you need do perform "set" operations on 
Span objects, that return lists of spans.

In this ex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	365	478	
==>t ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1893	2006	
==>t ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	614	735	
==>e match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-loc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	614	735	
==>e match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8419	8578	
==>t;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8419	8578	
==>t;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 t <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	568	661	
==>}, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} =~ $func <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8503	8637	
==>Array::max(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List::max $cmp, *@self;
}


# XXX - TODO
# postcircumfix:<[ ]>  circumfi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1859	1972	
==>lf );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1999	2112	
==>lf );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11557	11648	
==>ml, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @acce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11557	11648	
==>ml, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @acce <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	238	389	
==>ge';

my %indexed = map { $_->{package} => $_ } LoadFile( $Repoindex ); 

for my $pkg (@ARGV ) {
    
    ### in case there's more than one package matc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1581	1694	
==>mize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1581	1694	
==>mize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41473	41565	
==>in>.  This
method has an alias named C<natural_join>.

=item C<join (Relation::Example *@othe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1833	1936	
==>$self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1833	1936	
==>$self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1881	1984	
==>= 32, 'subset num of num32  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subset num of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26125	26262	
==>$self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26125	26262	
==>$self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26125	26262	
==>$self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @star <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	441	577	
==>v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $su <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	441	577	
==>v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $su <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20092	20188	
==>s(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_pos(X),C), !.
rm(class_neg(X),[C|F1],F1,B0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1655	1821	
==>PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1655	1821	
==>PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1655	1821	
==>PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	844	951	
==>e( $rule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	844	951	
==>e( $rule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to o <==
3	/Users/nnunley/pugs/util/package-osx.pl	6924	7021	
==>6::Perl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Differences.3pm
        /usr/loc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22832	22930	
==>me is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27384	27482	
==>me is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2798	2884	
==>Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?open<? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37182	37281	
==>ny situation where the heading of one source relation is a
full subset of another, the result degene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41731	41830	
==>ny situation where the heading of one source relation is a
full subset of another, the result degene <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41354	41453	
==>ny situation where the heading of one source relation is a
full subset of another, the result degene <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2665	2773	
==>oncat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2665	2773	
==>oncat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2665	2773	
==>oncat here so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9950	10163	
==>y on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6291	6504	
==>y on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7140	7353	
==>y on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	110	226	
==>::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $fal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	110	226	
==>::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $fal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	110	226	
==>::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $fal <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37172	37273	
==>ct>.  In any situation where the heading of one source relation is a
full subset of another, the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41721	41822	
==>ct>.  In any situation where the heading of one source relation is a
full subset of another, the resul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41344	41445	
==>ct>.  In any situation where the heading of one source relation is a
full subset of another, the resul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3753	3883	
==>e( '" .
            _quotemeta( emit_perl6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"pa <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2717	2833	
==>ms ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @t <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2717	2833	
==>ms ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1823	1938	
==>@!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1823	1938	
==>@!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!pro <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1206	1301	
==>simplified one.
#multi Array::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1172	1291	
==>PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1172	1291	
==>PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1172	1291	
==>PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	385	502	
==>->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	385	502	
==>->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	385	502	
==>->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    return;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1637	1747	
==>l_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe()).", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1637	1747	
==>l_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe()).", <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1637	1747	
==>l_string)."<".($o?"1":"0").",\"$o\",[";
                for (@{$o}) { $s .= "\n".$o->_indent($_->describe()).", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4181	4290	
==>eference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Tem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4181	4290	
==>eference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Tem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4181	4290	
==>eference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Tem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	561	684	
==>E,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	561	684	
==>E,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	561	684	
==>E,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1004	1108	
==>sage )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if the <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1004	1108	
==>sage )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1560	1664	
==>sage )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every line if the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12703	12804	
==>op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12703	12804	
==>op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12703	12804	
==>op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4118	4241	
==>" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4118	4241	
==>" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4118	4241	
==>" !! "a, b"}) \{
    if(a == undefined) a = $undef;
    {$arity == 2 ?? "if(b == undefined) b = $undef;" !! ""}
    return($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23562	23676	
==>(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19983	20097	
==>(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1310	1437	
==>= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) { <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1310	1437	
==>= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	782	877	
==>:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	782	877	
==>:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	782	877	
==>:
      // http://www.nntp.perl.org/group/perl.perl6.language/22379
      if(!hash.exists(pair.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7148	7305	
==>unt = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7148	7305	
==>unt = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7148	7305	
==>unt = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15519	15627	
==>_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15519	15627	
==>_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15519	15627	
==>_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6382	6477	
==>EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6382	6477	
==>EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6382	6477	
==>EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3374	3476	
==>efined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3374	3476	
==>efined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3374	3476	
==>efined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2644	2755	
==>unction (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2644	2755	
==>unction (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2644	2755	
==>unction (str, substr, pos) {
      return str.lastIndexOf(substr, pos);
    })')(~$self, ~$substr, +$pos);
  }
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14130	14259	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14409	14538	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4864	4962	
==>blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18443	18546	
==>ir->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18443	18546	
==>ir->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18443	18546	
==>ir->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4152	4276	
==>= (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for iso <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6472	6568	
==>matting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6472	6568	
==>matting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36005	36152	
==>= $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36005	36152	
==>= $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36005	36152	
==>= $tail->items;
        }
        else {
            # negative offset, negative length
            #  tail=pop length -> head=remaining -> body=shi <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3531	3653	
==>n{\n";
        my $program;
        while (<$ifh>) {
            $module ||= $1 if /^(?:package|module|class) \s+ ([^-;]+)/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	537	635	
==>returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	595	693	
==>returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3096	3193	
==>to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that y <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3096	3193	
==>to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that y <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7281	7407	
==>_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7281	7407	
==>_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20802	20891	
==>rnals::use($module);
    Pugs::Internals::require_use_helper(Bool::True,$module);
}
sub Pu <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1122	1298	
==>] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@ <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1122	1298	
==>] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2908	3024	
==>write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2908	3024	
==>write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2908	3024	
==>write to \"$file\": $!\n";
  close $fh               or die "Couldn't close \"$file\": $!\n";
}

sub usage { print ST <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	474	570	
==>ns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD } <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	474	570	
==>ns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1191	1303	
==>s clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1191	1303	
==>s clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1191	1303	
==>s clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	598	733	
==>irs ) {
        my $inst = JIB::Repository->new( dir => $dir )
            or error( "Could not create JIB::Repository object from '$dir <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3646	3746	
==>och)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'to <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3646	3746	
==>och)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9808	9927	
==>TE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9808	9927	
==>TE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9808	9927	
==>TE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementation detail 
    # fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2934	3140	
==>xed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2934	3140	
==>xed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2934	3140	
==>xed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18502	18603	
==>infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18502	18603	
==>infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18502	18603	
==>infix:<=>  ($xx0,$xx1) {...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13109	13206	
==>r of strings are returned.

If called in void context the arguments are decoded in-place.

This ro <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13109	13206	
==>r of strings are returned.

If called in void context the arguments are decoded in-place.

This ro <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4440	4536	
==>ed
or failed based on their output to STDOUT (details above).  It prints
out each individual test <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8345	8452	
==>gexp_setup(r,pat,nparens,exec_callback_sub);
    } else if(api == 14) {
      SV* expr_code;
      SV* expr_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8364	8480	
==>hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8364	8480	
==>hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8364	8480	
==>hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1347	1451	
==>f);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub ci <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1347	1451	
==>f);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub ci <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1347	1451	
==>f);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	865	1057	
==>essed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	865	1057	
==>essed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	865	1057	
==>essed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	928	1045	
==>ssary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	928	1045	
==>ssary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	928	1045	
==>ssary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        has <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	448	551	
==>S = ('all' => \@EXPORT_OK);

sub Stream::import { }

sub node($h,$t) { return [$h, $t] }

sub head($s) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17471	17569	
==>h compiler
at the right time with the right data.

=item *

Ability to ship precompiled modules wit <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17471	17569	
==>h compiler
at the right time with the right data.

=item *

Ability to ship precompiled modules wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5307	5416	
==>ipt::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "ut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5307	5416	
==>ipt::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "ut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5307	5416	
==>ipt::SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "ut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34143	34261	
==>( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34143	34261	
==>( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34143	34261	
==>( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1345	1481	
==>igspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1333	1469	
==>igspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7858	7977	
==>=> $thunk,
			);
		} else {
			return Blondie::TypeSafe::Annotation->new(
				type => [ $child->type ],
				struct_equiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1760	1881	
==>ingify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1760	1881	
==>ingify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1760	1881	
==>ingify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16290	16589	
==>boxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16290	16589	
==>boxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16290	16589	
==>boxed },
                        is_lazy => 1,
                    )
                );
                return $ret;
            },
            'values' => sub  { 
                my $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1745	1848	
==>nt.  There's a "return" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possible ta <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6152	6251	
==>, 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'u <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6152	6251	
==>, 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'u <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3493	3609	
==>tals{max} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing} = $passed ? 1 : 0 <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2417	2514	
==>atal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2475	2572	
==>atal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2777	2916	
==>}
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2777	2916	
==>}
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2813	2936	
==>ist        Perl list
    Lazy        Lazily evaluated Perl list
    Eager       Non-lazily evaluated Perl list
=cut

sub p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1025	1177	
==>{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$self->{levels <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12595	12711	
==>debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    hand <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12595	12711	
==>debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    hand <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2738	2842	
==>ody.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6215	6319	
==>ody.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!bod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5145	5249	
==>ody.size();
}

method exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1939	2041	
==>ring(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1939	2041	
==>ring(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= Str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1939	2041	
==>ring(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1342	1439	
==>is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1342	1439	
==>is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1342	1439	
==>is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3613	3724	
==>amed_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $boun <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3613	3724	
==>amed_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $boun <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4203	4314	
==>amed_arg->{$param_name}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13680	13803	
==>e root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ". <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13680	13803	
==>e root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ". <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13680	13803	
==>e root $::Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn ". <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3031	3171	
==>s Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation::Example's attributes.
        # Not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3206	3313	
==>b );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3194	3301	
==>b );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9094	9204	
==>ype {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx onl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9094	9204	
==>ype {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx onl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9094	9204	
==>ype {@self.ref} as an array!"
    unless @self.isa("Array");

  # *Important*: We have to calculate the idx onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3283	3404	
==>opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3283	3404	
==>opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3283	3404	
==>opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, $self);
        $eigenclass->add <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2518	2623	
==>sic Perl block
    Parametric  Basic Perl block with placeholder parameters
    Package     Perl 5 compati <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4418	4507	
==><encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<deciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4418	4507	
==><encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<deciph <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3339	3441	
==>iterators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4966	5062	
==>ntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Conf <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4966	5062	
==>ntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Conf <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1597	1714	
==>rns Lazy {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1389	1500	
==>n --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1389	1500	
==>n --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2703	2799	
==>label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2703	2799	
==>label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2703	2799	
==>label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $label);    
}));

$::Object <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1511	1680	
==>+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$valu <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1511	1680	
==>+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$valu <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	54	183	
==>ent in @a
123 ~~ @a       # ?@a[123]
123 ~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # all <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21743	21842	
==>either
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tup <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26295	26394	
==>either
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tup <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28634	28731	
==>an C<anyof_close> node.

=item my $c = $obj->family()

The general family of this object.  These a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8893	9000	
==>^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8893	9000	
==>^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8893	9000	
==>^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7558	7661	
==>MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7558	7661	
==>MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7558	7661	
==>MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6372	6508	
==>) = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6372	6508	
==>) = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6372	6508	
==>) = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque_instance_attr(::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3501	3648	
==>s}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3501	3648	
==>s}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3501	3648	
==>s}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_class->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11416	11524	
==>(@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11416	11524	
==>(@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11416	11524	
==>(@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_eval("%INC{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3621	3724	
==>ft(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3621	3724	
==>ft(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::Eva <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3621	3724	
==>ft(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::Eva <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14201	14319	
==>ind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14201	14319	
==>ind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	540	658	
==>/^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	540	658	
==>/^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	540	658	
==>/^(SLet|STemp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_va <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10738	10839	
==>HODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from the <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10738	10839	
==>HODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from the <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5291	5387	
==>= PIL::PIL1CPerl5::NodesList::get_name_rep_type_pairs_list();
    my $code = "";
    for (@$list) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35368	35462	
==>ly returns True or False regardless of its
argument, in which case the new Relation::Example ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2910	3055	
==>can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2910	3055	
==>can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2910	3055	
==>can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34887	35005	
==>n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34887	35005	
==>n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34887	35005	
==>n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n";
    if ( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20069	20195	
==>"x",
	body => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				body => cond(
					if = <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11719	11810	
==>comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11719	11810	
==>comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9854	10003	
==>$key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9854	10003	
==>$key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9854	10003	
==>$key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if ( ! Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	140	284	
==>t ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	140	284	
==>t ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	140	284	
==>t ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1653	1753	
==>ta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1653	1753	
==>ta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1653	1753	
==>ta_obj => '$:authority' => '');
    ::opaque_instance_add_new_attribute($meta_obj => '@:roles'     => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2969	3191	
==>{
                    $eigenclass->superclass(
                        ::opaque_instance_class($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eig <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15445	15537	
==>iance of needs between its different
users, such as their preferred language of communication <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15445	15537	
==>iance of needs between its different
users, such as their preferred language of communication <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9413	9522	
==>s mutator/accessor

    # -----------------------------------------------      
    # this collects a unique l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9413	9522	
==>s mutator/accessor

    # -----------------------------------------------      
    # this collects a unique l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9413	9522	
==>s mutator/accessor

    # -----------------------------------------------      
    # this collects a unique l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1078	1207	
==>>_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1078	1207	
==>>_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1078	1207	
==>>_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29454	29567	
==>{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29454	29567	
==>{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29454	29567	
==>{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2499	2608	
==>Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2499	2608	
==>Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2499	2608	
==>Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:canonical <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1037	1207	
==>al( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1037	1207	
==>al( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	316	427	
==>__PACKAGE__->bootstrap($VERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $re = compile($_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14977	15086	
==>est\n};
}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14977	15086	
==>est\n};
}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($clas <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	243	342	
==>ray is rw ; *@values) returns Int {
   Array::splice(@array, @array.elems, 0, @values);
   @array.el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24293	24417	
==>i : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24293	24417	
==>i : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24293	24417	
==>i : "",
			       [],{},@-[$i],@+[$i]));
	    }
	    $m = Match_new(1,"$&",[@cap],{},@-[0],@+[0]);
	} else {
	    $m = Match_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	295	399	
==>ace.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	295	399	
==>ace.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HT <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7084	7184	
==>t, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7142	7242	
==>t, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1441	1553	
==>:IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1441	1553	
==>:IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1441	1553	
==>:IN_SUBLIKE;

  # Emit appropriate foo = new PIL2JS.Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7935	8060	
==>,
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "pro <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7935	8060	
==>,
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "pro <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	648	739	
==>$", "term:", "nows", &parse_dollar);
    $optable->addToken("term:.", "term:", "nows", "PGE: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	92	191	
==>VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	92	191	
==>VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	92	191	
==>VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::SpiderMonkey;

s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1578	1679	
==>($o,$o1)=@_;
    $o->{'nprec'} <=> $o1->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10521	10619	
==>"greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informati <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10521	10619	
==>"greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	324	440	
==>) = Pugs::Grammar::Expression::ast( $src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        ma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3011	3111	
==>urn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3011	3111	
==>urn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	653	780	
==>ue);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpose <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	653	780	
==>ue);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpose <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	653	780	
==>ue);
  };
}

{
  foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purpose <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17406	17587	
==>AD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17406	17587	
==>AD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17406	17587	
==>AD' => $label);
                }
            }            
            
            (defined $method)
                || confess "Method ($label) not found for " . $opts{for} . " ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	416	518	
==>deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	416	518	
==>deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	416	518	
==>deep cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	945	1047	
==>:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	945	1047	
==>:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	945	1047	
==>:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1341	1432	
==>:Parser::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA, __PACKAGE__;
  push @Reg <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22744	22832	
==>picE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22744	22832	
==>picE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28813	28918	
==>ute names, or duplicate any other value set members.  This
method supports having the new attributes havin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33365	33470	
==>ute names, or duplicate any other value set members.  This
method supports having the new attributes havin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32502	32607	
==>ute names, or duplicate any other value set members.  This
method supports having the new attributes havin <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13050	13151	
==>ng $/ might be non-trivial, as only some forms of redefinition
  make its magic not stick.

  The impl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6917	7018	
==>_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Docume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6917	7018	
==>_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Docume <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9714	9808	
==>re",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4140	4245	
==>le (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4140	4245	
==>le (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4140	4245	
==>le (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Package::_create ($x <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35075	35220	
==>::FALSE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$r <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2376	2507	
==>t => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $b <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2376	2507	
==>t => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5771	5873	
==>_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::Fals <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5771	5873	
==>_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::Fals <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	282	381	
==>ath, $name;
my $data = uc("__${name}__");

open OUT, "> $out" or die $!;
print OUT "module $fullname <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3054	3199	
==>.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3054	3199	
==>.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3054	3199	
==>.FETCH()([
        PIL2JS.Context.ItemAny,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2099	2240	
==>ilable from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2099	2240	
==>ilable from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2099	2240	
==>ilable from the prompt:
:h                      = show this help message
:q                      = quit
:conf thing [new_value] = set the path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13682	13810	
==>lse {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13682	13810	
==>lse {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13682	13810	
==>lse {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1564	1683	
==>a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' cal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1564	1683	
==>a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' cal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1564	1683	
==>a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive types

# TODO - does 'returns' cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20754	20864	
==>5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20754	20864	
==>5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20754	20864	
==>5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	246	349	
==>t "lossy".
#
# has $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/ite <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4451	4547	
==>d.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
implemente <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4451	4547	
==>d.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
implemente <==
3	/Users/nnunley/pugs/util/package-osx.pl	3132	3229	
==>Frameworks/GMP.Framework
        /Library/Perl6
        /Library/Perl/5.8.6/darwin-thread-multi-2l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6029	6184	
==>s}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6029	6184	
==>s}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6029	6184	
==>s}) {
            foreach my $method_name (keys %{$body->{methods}}) {
                if ($method_name =~ /^_/) {
                    $new_role->add_method <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	612	719	
==>ake')
    );

    print "The required 'nmake' executable not found, fetching it...\n";

    require File::Ba <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	517	615	
==>ake')
	);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12378	12561	
==>->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12378	12561	
==>->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12378	12561	
==>->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1175	1278	
==>put > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1175	1278	
==>put > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1175	1278	
==>put > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2428	2543	
==>>{sitearch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib},
        SITE <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16664	16771	
==>Ts that need to be typed

# this is a function that expects an int and will emit an int
# add (int -> int -> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11457	11569	
==>_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11457	11569	
==>_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11457	11569	
==>_table->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1618	1722	
==>! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1618	1722	
==>! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4554	4651	
==>ep_type  { $_[0]{'rep'} } # string array1 array2 hash
sub field_is_array {
    my($self,$fname)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15659	15765	
==>UB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15659	15765	
==>UB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15659	15765	
==>UB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6074	6185	
==>-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6074	6185	
==>-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6074	6185	
==>-v1
        $s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18046	18223	
==>'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18325	18502	
==>'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         rule <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16590	16683	
==>ressionNoIn>
    | <EqualityExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23432	23548	
==>her than a Class, and some
implementations are immutable rather than mutable, this property and/or
same-named accesso <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27984	28100	
==>her than a Class, and some
implementations are immutable rather than mutable, this property and/or
same-named accesso <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26788	26904	
==>her than a Class, and some
implementations are immutable rather than mutable, this property and/or
same-named accesso <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6556	6669	
==>vocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10033	10146	
==>vocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9125	9238	
==>vocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3315	3458	
==>params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3315	3458	
==>params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3315	3458	
==>params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6838	6962	
==>start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6838	6962	
==>start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6838	6962	
==>start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice->elems- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1423	1629	
==>lar->new;
                    $self->hash_storeElem($idx, $c);
                }
                $c;
            },
            hash_fetchVal => sub {
                my $self = shift;
                my $id <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5048	5166	
==>s;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5048	5166	
==>s;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5048	5166	
==>s;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method sum(@self:) { sum *@self } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13473	13570	
==>or test which must be
made to pass before this test can pass (or before an implementation
could be <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13531	13628	
==>or test which must be
made to pass before this test can pass (or before an implementation
could be <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30610	30704	
==>ften do).

=head3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4338	4437	
==>st if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4338	4437	
==>st if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4928	5027	
==>st if $param->is_optional;
	    croak "positional argument ".$param->name." is required";
	}
	$param <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6069	6187	
==>self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very ineff <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6069	6187	
==>self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very ineff <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3824	3941	
==>e(): '$values{name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $du <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23701	23808	
==>s a value of False, it can not be further changed;
this class defaults it to False.

=back

This is the main <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28253	28360	
==>s a value of False, it can not be further changed;
this class defaults it to False.

=back

This is the main <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27066	27173	
==>s a value of False, it can not be further changed;
this class defaults it to False.

=back

This is the main <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	765	920	
==>"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	765	920	
==>"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	765	920	
==>"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL2JS::cfg{pugs},
  "metamo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	207	308	
==>)($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	207	308	
==>)($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	207	308	
==>)($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3840	3950	
==>hy don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3840	3950	
==>hy don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Roo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3840	3950	
==>hy don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currently:
#     sub JS::Roo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10676	10786	
==>okies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10676	10786	
==>okies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7537	7646	
==>the children of the seq child of the thunk
			my $last = pop @children_of_seq;

			my @params = grep { $_->str <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	741	838	
==>he API does not support enciphering individual bits.  Also note that the 
Cipher API operates at t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	741	838	
==>he API does not support enciphering individual bits.  Also note that the 
Cipher API operates at t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	494	585	
==>ass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	494	585	
==>ass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	494	585	
==>ass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8714	8832	
==>_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8714	8832	
==>_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8714	8832	
==>_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1716	1816	
==>lf->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1716	1816	
==>lf->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1716	1816	
==>lf->{pVarName}->as_js;
  } else {
    # Hack? Fully qualified variables don't need a declaration, but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6986	7081	
==>-------------------------

# stub this for the moment ...
$::Class->add_method('collect_all_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6986	7081	
==>-------------------------

# stub this for the moment ...
$::Class->add_method('collect_all_role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6986	7081	
==>-------------------------

# stub this for the moment ...
$::Class->add_method('collect_all_role <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8465	8599	
==>lass;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8465	8599	
==>lass;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8465	8599	
==>lass;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8018	8142	
==>yref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12013	12131	
==>yref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12013	12131	
==>yref/hashref
    }
    die "Couldn't find '$name' in surrounding lexical scope.";
}

sub _preprocess_hash {
    my $h = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2890	3014	
==>ct to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2890	3014	
==>ct to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23266	23358	
==>rtant;
the interface/behaviour is), this Relation::Example data type is proposed to be
genera <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	229	328	
==>th.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	229	328	
==>th.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	229	328	
==>th.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin( <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1621	1741	
==>t';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    package Seq <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8635	8733	
==>$_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, alt <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8635	8733	
==>$_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, alt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1897	2026	
==>uires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1897	2026	
==>uires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1897	2026	
==>uires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code;           # yay for recursive closures!
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10581	10693	
==>Relation {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14058	14170	
==>Relation {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9948	10048	
==>$part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9948	10048	
==>$part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3208	3320	
==>pe::Std->new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11847	11977	
==>s or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15324	15454	
==>s or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14659	14789	
==>s or with the invocant."
                if any( $r2!heading ) === any( $r1.heading );
        }
    }

    return $?SELF.join( @ot <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28158	28273	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28437	28552	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10396	10556	
==>e_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10396	10556	
==>e_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10396	10556	
==>e_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7829	7941	
==>}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7829	7941	
==>}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7829	7941	
==>}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	883	977	
==>e::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	883	977	
==>e::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	883	977	
==>e::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17876	18066	
==>' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17876	18066	
==>' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17876	18066	
==>' found" unless defined $method;
                    return $method->($self, @{$args});                   
                };
                # call the method
                return $method- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4074	4169	
==>ues ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4074	4169	
==>ues ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5795	5941	
==>hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5795	5941	
==>hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5795	5941	
==>hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2592	2746	
==>ef($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2592	2746	
==>ef($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2592	2746	
==>ef($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $ce <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13005	13104	
==>ool`

These functions both take blocks of code, run the code, and test whether they live or die.

== <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13063	13162	
==>ool`

These functions both take blocks of code, run the code, and test whether they live or die.

== <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	670	788	
==>UTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4523	4631	
==>titute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4523	4631	
==>titute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  retur <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2775	2921	
==>{
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2775	2921	
==>{
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3164	3275	
==>ie "couldn't run user smoke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1445	1553	
==>xt node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1445	1553	
==>xt node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, docu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1445	1553	
==>xt node, add one.
          node.appendChild(document.createTextNode(msg));
          window.scrollTo(0, docu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2672	2772	
==>_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2672	2772	
==>_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2672	2772	
==>_list' => ::make_method(sub {
    keys %{::opaque_instance_attr($::SELF => '%:methods')};
}));

## at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	67	169	
==>euma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	67	169	
==>euma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	67	169	
==>euma;

# This is psyche, this creates ::Role

# From Answers.com:
# According to the Gnostics, the Demi <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7991	8087	
==>ode)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&expressi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3582	3684	
==>T FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3582	3684	
==>T FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3582	3684	
==>T FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { precomp_module_to_mini_js "-I", PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3527	3645	
==>untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3527	3645	
==>untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3527	3645	
==>untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implemen <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17263	17356	
==>terse way of saying that it subscribes to the
localization methodology that is described here, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17263	17356	
==>terse way of saying that it subscribes to the
localization methodology that is described here, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2666	2770	
==>for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2666	2770	
==>for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2666	2770	
==>for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6347	6498	
==>=> undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6347	6498	
==>=> undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6347	6498	
==>=> undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($attr_name => $role->g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7800	7970	
==>= $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7800	7970	
==>= $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7800	7970	
==>= $pos";
        }
        else {
            # non-lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1863	1964	
==>($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1863	1964	
==>($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1863	1964	
==>($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we have all we need to construct ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16214	16314	
==>list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_tabl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16214	16314	
==>list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_tabl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16214	16314	
==>list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_tabl <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	159	277	
==>die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	159	277	
==>die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11692	11790	
==>ts>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalDigits> <ExponentPar <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5316	5493	
==>n):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5316	5493	
==>n):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2495	2595	
==>cher.() // return).get_method($label, %opts) || redo }       
}



(closure *WALKMETH ((block &dispat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14054	14152	
==>atcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14054	14152	
==>atcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14054	14152	
==>atcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6221	6333	
==>push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any lon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6221	6333	
==>push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any lon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6221	6333	
==>push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work any lon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14435	14559	
==>etch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14435	14559	
==>etch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14435	14559	
==>etch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $ <==
3	/Users/nnunley/pugs/util/config_h.pl	1490	1593	
==>kends disabled.  If you want
    Template Haskell support, please compile your GHC with the
    GHCi opt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14074	14176	
==>r('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8279	8381	
==>r('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	967	1082	
==>DO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	967	1082	
==>DO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	967	1082	
==>DO "~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5190	5325	
==>m: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5190	5325	
==>m: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5190	5325	
==>m: use A; my $a = 4;  # ==> my $a_1 = 4; XXX!

  #{
  #  my %seen;
  #  $self->{pilGlob} = [grep { not $seen{$_->{pSubName}}++ } @{ $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3454	3553	
==>_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3454	3553	
==>_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3454	3553	
==>_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22909	23065	
==>eop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23188	23344	
==>eop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::consta <==
3	/Users/nnunley/pugs/util/version_h.pl	1827	1929	
==>is available for new
  # filehandles again. If we opened a new file ($version_h) without turning
  # "i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9237	9342	
==>od union (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5650	5751	
==>}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our sta <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5650	5751	
==>}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our sta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25534	25631	
==>bject
represents (or gives the name of a condition being reported, if it is used
as an exception p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25534	25631	
==>bject
represents (or gives the name of a condition being reported, if it is used
as an exception p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13574	13761	
==>e {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::AR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13574	13761	
==>e {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::AR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13574	13761	
==>e {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispatch_cache{${$::AR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14662	14752	
==>te $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14662	14752	
==>te $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14662	14752	
==>te $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2148	2257	
==>, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2148	2257	
==>, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2148	2257	
==>, 'DESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method(' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	775	929	
==>ot           = $Cwd . '/fakeroot';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metact <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11992	12090	
==>n the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in the <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11992	12090	
==>n the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8395	8514	
==>], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8395	8514	
==>], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8395	8514	
==>], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[\$&@%]/;
  return {
    '$' => 'new PIL2JS.Box(unde <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1281	1388	
==>t') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1281	1388	
==>t') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1281	1388	
==>t') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19025	19155	
==>eop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19304	19434	
==>eop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $matc <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3178	3293	
==>\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5755	5871	
==>kup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION', <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5755	5871	
==>kup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION', <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5755	5871	
==>kup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION', <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	234	333	
==>to other native types
sub to_num { num->new(0)  }
sub to_bit { bit->new(0)  }
sub to_str { str->new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18475	18570	
==>te an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Speci <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18475	18570	
==>te an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Speci <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1431	1569	
==>[ [map {Path::Class::dir($_)} 
                                    qw(author name prefix)] ];


### meta dirs/files
### These are dependant <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3442	3545	
==>::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3442	3545	
==>::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2702	2943	
==>e ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { op => <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7608	7715	
==>nels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7608	7715	
==>nels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	254	371	
==>ODO - term:<...>  - yada-yada-yada

our %hash;

sub recompile {
    my $class = shift;
    %hash = (
        %Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40489	40587	
==>ext is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40489	40587	
==>ext is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10981	11075	
==>e_val; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__,$namestr,$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39694	39787	
==>n.net/> for more
information.

Locale::KeyedText is free software; you can redistribute it and <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39694	39787	
==>n.net/> for more
information.

Locale::KeyedText is free software; you can redistribute it and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8497	8679	
==>ody.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5964	6143	
==>ody.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9441	9620	
==>ody.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3116	3223	
==>n. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3116	3223	
==>n. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1034	1139	
==>mpiler
sub can_cc {
	my $self   = shift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3369	3479	
==>gle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3369	3479	
==>gle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3369	3479	
==>gle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ") <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21642	21744	
==>(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos(xdigit)    ,C <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	692	781	
==>enamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-st <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	692	781	
==>enamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3697	3830	
==>DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3697	3830	
==>DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3697	3830	
==>DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10522	10686	
==>bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".joi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10522	10686	
==>bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".joi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10522	10686	
==>bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1192	1287	
==>-yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1192	1287	
==>-yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1192	1287	
==>-yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --li <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	411	530	
==>afe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	411	530	
==>afe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1117	1207	
==>njunction> \& <non_alternation>+? }
rule non_conjunction { <repetition> | <alias> | <simple <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1595	1712	
==>oop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1595	1712	
==>oop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	178	292	
==>s;
}

sub compiler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->require or die $UNI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22514	22609	
==>ften it will also provide some variable values to be
interpolated into the user strings; Locale: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22514	22609	
==>ften it will also provide some variable values to be
interpolated into the user strings; Locale: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14079	14188	
==>::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14079	14188	
==>::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14079	14188	
==>::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2259	2393	
==>ss $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1875	1995	
==>es
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1875	1995	
==>es
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3044	3191	
==>@nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3044	3191	
==>@nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	216	332	
==>sr/bin/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_traverse = 0;

# t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22169	22418	
==>FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22169	22418	
==>FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22169	22418	
==>FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6244	6356	
==>." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6244	6356	
==>." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6244	6356	
==>." 'add_method',"
         ." ('$name' => Perl6::Method->create_instance_method('$class' =>"
         ." sub \{ " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8449	8596	
==>} eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33759	33855	
==>sh or French.  The order of these items corresponds to
an individual user's (or user role's) pref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33759	33855	
==>sh or French.  The order of these items corresponds to
an individual user's (or user role's) pref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7247	7424	
==>rn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7247	7424	
==>rn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7247	7424	
==>rn Inf if $end->unboxed == Inf;
                return $start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	600	808	
==>lsif ($token eq ')') {
            pop @{$stack};
        }
        else {
            if (@{$stack}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29299	29392	
==>which is the same as the invocant Relation but that some of its
tuple/Mapping-valued attribute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33851	33944	
==>which is the same as the invocant Relation but that some of its
tuple/Mapping-valued attribute <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11646	11779	
==>$thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11646	11779	
==>$thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11646	11779	
==>$thing ) = @_;
                die "argument to Array bind() must be a Array"
                    unless $thing->cell->{type} eq 'Arra <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2656	2768	
==>t_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'$na <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1268	1379	
==>t_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1969	2078	
==>t_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2775	2875	
==>rns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2775	2875	
==>rns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set:: <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3129	3225	
==>ls::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $base) {
    give <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	841	945	
==>::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1046	1150	
==>::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1102	1206	
==>::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	653	764	
==>->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	653	764	
==>->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	653	764	
==>->unwrap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2412	2512	
==>:Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2412	2512	
==>:Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2412	2512	
==>:Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6573	6693	
==>ls>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6573	6693	
==>ls>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6717	6883	
==>ft)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6717	6883	
==>ft)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6717	6883	
==>ft)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #warn "FETCH: @param\n";
                my $tmp = _('$:cell' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10030	10188	
==>cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10030	10188	
==>cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8718	8828	
==>b') {
	$code_body = p6_catch_return_CODE($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5159	5263	
==>es$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5159	5263	
==>es$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5159	5263	
==>es$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5642	5783	
==>hen not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6106	6247	
==>hen not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_de <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7511	7599	
==>t_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim") and ($orig_thunk->fixi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3596	3705	
==>{
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) ret <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3596	3705	
==>{
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) ret <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3230	3337	
==>if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'numeric';
    }
    if($ref eq 'SCALAR') { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13288	13410	
==>he second source's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16765	16887	
==>he second source's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16127	16249	
==>he second source's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2627	2740	
==>next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2627	2740	
==>next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2627	2740	
==>next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6907	7019	
==>Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6907	7019	
==>Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6907	7019	
==>Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{tpDefault}) {
      my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1834	1971	
==>s}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclass <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4015	4112	
==>spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- univers <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4015	4112	
==>spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- univers <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13166	13281	
==>able(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13166	13281	
==>able(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13166	13281	
==>able(\%params);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => me <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2099	2272	
==>vents<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2099	2272	
==>vents<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = p <==
3	/Users/nnunley/pugs/util/version_h.pl	724	821	
==>release -- do nothing!
}
elsif (-r $svn_entries) {
    print "Writing version from $svn_entries to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5312	5418	
==>SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5312	5418	
==>SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5312	5418	
==>SpiderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7079	7175	
==>attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7079	7175	
==>attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7079	7175	
==>attr {
  Pugs::Internals::eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11224	11343	
==>s for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # Hered <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11224	11343	
==>s for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # Hered <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9479	9612	
==>" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             \&{'grammar1: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	48	135	
==>------------------------------------------------------------
## attributes

has $.node i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	48	135	
==>------------------------------------------------------------
## attributes

has $.node i <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10934	11028	
==>ally new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. R <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10934	11028	
==>ally new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. R <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5132	5227	
==>d>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5132	5227	
==>d>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6656	6751	
==>d>,
recording C<$description> as an optional explanation.

=item B<todo returns Bit ( Bit $passe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4184	4332	
==>('&f'),
            Param->new('$accum'),
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	624	724	
==>> \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	624	724	
==>> \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14787	14939	
==>.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14787	14939	
==>.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14787	14939	
==>.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ? <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1752	1889	
==>e($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { retur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1752	1889	
==>e($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27656	27752	
==>tion::Example has zero attributes, then
C<$body> may be an Set with a single member that is an em <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	26	128	
==>_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	26	128	
==>_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	26	128	
==>_proxy (
  Code :$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10981	11117	
==>end},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite}, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10981	11117	
==>end},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite}, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10981	11117	
==>end},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite}, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13242	13336	
==>C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13242	13336	
==>C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5647	5740	
==>unify " . $node->struct_equiv . " whose type is " . $self->display_type($de_facto_type) . " wi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4551	4665	
==>~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    JSX::global_objec <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9484	9592	
==>try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.con <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9484	9592	
==>try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.con <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4215	4449	
==>rmal bit of link 
                        (?:
                          \s+                                   # Whitespace before re
                          $RE{delimited}{-delim=>'/'}{-keep}    # Regex
                          ([xi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1760	1899	
==>e,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1701	1837	
==>e,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1434	1551	
==>cl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSub <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4558	4672	
==>cl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSub <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4558	4672	
==>cl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSub <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6828	6982	
==>e
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    m <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6828	6982	
==>e
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25724	25827	
==>f:) returns list {
    @:subclasses;
}

(method subclasses ((opaque $self:)) returns list 
    ($self: g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	302	419	
==>my @a=<>;
    my $src = join('', @a);
    my $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print D <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1399	1504	
==>name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are enl <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1399	1504	
==>name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are enl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39017	39164	
==>rt => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39017	39164	
==>rt => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39017	39164	
==>rt => sub { $ret->shift },
            cend =>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4108	4222	
==>p;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4108	4222	
==>p;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4108	4222	
==>p;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be given to &PIL2JS: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3815	3918	
==>e fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3815	3918	
==>e fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	886	983	
==>ew( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	886	983	
==>ew( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	621	733	
==>al $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	621	733	
==>al $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	621	733	
==>al $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	462	569	
==>::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	462	569	
==>::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	462	569	
==>::PStmts";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5826	5950	
==>e' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/tra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5826	5950	
==>e' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/tra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5826	5950	
==>e' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3703	3811	
==>fset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3703	3811	
==>fset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3703	3811	
==>fset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1901	2006	
==>nceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referenc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1901	2006	
==>nceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referenc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1901	2006	
==>nceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referenc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7319	7489	
==>le );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### che <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	620	790	
==>le );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### che <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31728	31834	
==>de;
  my $p = Regexp::NoCode->new;

  # if it failed, reject it how you choose
  if (! $p->regex($regex)) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4245	4342	
==>ence, the match object returns positional
captures as match objects.

=head2 %{}

When used as a h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4245	4342	
==>ence, the match object returns positional
captures as match objects.

=head2 %{}

When used as a h <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3179	3270	
==>y $ar = $Config{full_ar};
    my $a_file = File::Spec->rel2abs("dist/build/libHSPugs-$versio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5582	5681	
==>rsion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5582	5681	
==>rsion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5582	5681	
==>rsion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($thin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	917	1046	
==>tring) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern mat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	917	1046	
==>tring) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern mat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1614	1723	
==>or my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F, <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4457	4575	
==>" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unless @ARGV;
    push( @test <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5326	5428	
==>ly the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5326	5428	
==>ly the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13367	13498	
==>s localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13367	13498	
==>s localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13367	13498	
==>s localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5245	5345	
==>ith $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5245	5345	
==>ith $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5245	5345	
==>ith $obj.$methref(...) (but as Pugs can't even
      # parse these constructs currently, it doesn't m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21344	21444	
==>he
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21344	21444	
==>he
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21344	21444	
==>he
# dispatcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (define <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1885	1993	
==>ode =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::T <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1885	1993	
==>ode =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::T <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1839	1939	
==>$expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unli <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1897	1997	
==>$expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unli <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	390	485	
==>IS

 my $class = Class.new("SomeClass");
 my $type = Type.new(Class.new("SomeClass"));

 $class. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	596	750	
==>pile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	596	750	
==>pile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24774	25018	
==>$e, sub {
                          $e->get('?@superclasses')
                            ->apply(
                              block->new($e, sub {
                                  my $e = shift;
                                  $e->get('$_' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	703	804	
==>s file).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, wh <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	703	804	
==>s file).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	747	895	
==>verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	747	895	
==>verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	747	895	
==>verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "yaml-dump"          => \$yaml_dump,
  "pugs=s"             => \$PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3886	3999	
==>=> $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3898	4011	
==>=> $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	798	908	
==>system( qq[mkdir -p $builddir/$path] )          and die "$?";
        system( qq[ cp -R $srcdir/* $builddir/$pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5805	5913	
==>e, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5805	5913	
==>e, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5805	5913	
==>e, @params);
}

sub _post_process_method {
    my ($self, $method_source) = @_;
    
    $method_source =~ s/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14215	14308	
==>th(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14215	14308	
==>th(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14215	14308	
==>th(p6_to_s($xx)); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17449	17556	
==>$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17449	17556	
==>$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17449	17556	
==>$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1183	1368	
==>_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /sm <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	466	651	
==>_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /sm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1962	2061	
==>he
#regexp.  We can then pour the re_test suite through it, yielding a
#more complete version of t/r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1791	1904	
==>); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1791	1904	
==>); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1791	1904	
==>); sub expand {
    my $s = $_[0][0];
    $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
packag <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27608	27805	
==>aque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

= <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4218	4321	
==>{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we currently think a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4218	4321	
==>{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we currently think a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5037	5145	
==>[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5037	5145	
==>[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1941	2049	
==>[PIL_LValue]',
  'pRHS'  ,'PIL_Expr';
node_h 'PIL_LValue',           'PBind', 
  'pLHS'  ,'[PIL_LValue]',
  ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4272	4388	
==>s) {
        # It seems Irix long doubles can have 2147483648 and 2147483648
        # that stringify to the same thi <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	148	249	
==>{ f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi * <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	148	249	
==>{ f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24323	24526	
==>>new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24323	24526	
==>>new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24323	24526	
==>>new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                return $tmp->$method( @param );
            },
            
            str => sub {
                #warn <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12710	12811	
==>nd '_'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  I <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12710	12811	
==>nd '_'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  I <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19937	20035	
==>thing of a bad type to a str
my $app_plus_ten_to_str = comb(
	fun => $app_to_str,
	param => $plus_t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15652	15782	
==>ing later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.co <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15652	15782	
==>ing later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	474	586	
==>) {
	    print STDERR
		"# Looks like you planned $planned tests but ran $ran.\n";
	} elsif ($noplan) {
	    prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	299	438	
==>role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	299	438	
==>role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	299	438	
==>role"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2028	2158	
==>type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2028	2158	
==>type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2028	2158	
==>type, $method) = $self->_parse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	241	343	
==>ree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_all('src', 'blib6/ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6511	6622	
==>ds a
C<really_passed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6511	6622	
==>ds a
C<really_passed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8708	8819	
==>ds a
C<really_passed> key which contains the boolean representing if the test truly
did pass.

=back

=item B<Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	696	806	
==>@slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	696	806	
==>@slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	696	806	
==>@slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fix <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	391	482	
==>, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	391	482	
==>, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	391	482	
==>, %modifiers_supported_p6, %modifiers_supported_p5);
our(%rx_helper_cache);
sub JS::Root::rx <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2321	2432	
==>$value; 
        my $param      = $params->fetch(num->new($i));
        my $param_type = $param->type->to_native <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18418	18520	
==>$bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18418	18520	
==>$bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9144	9248	
==>e" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9144	9248	
==>e" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4997	5112	
==>attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8474	8589	
==>attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7485	7600	
==>attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3235	3340	
==>in_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WH <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3235	3340	
==>in_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WH <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7281	7386	
==>th_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefix <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36033	36131	
==>of the invocant and <$other> headings. 
The body of the new relation is the result of first pairwis <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40583	40680	
==>of the invocant and <$other> headings.
The body of the new relation is the result of first pairwis <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40197	40294	
==>of the invocant and <$other> headings.
The body of the new relation is the result of first pairwis <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4639	4765	
==>);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0; }
    elsif ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25047	25142	
==>eturns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29599	29694	
==>eturns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28511	28606	
==>eturns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4832	4967	
==>{
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4832	4967	
==>{
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7464	7562	
==>n initial pass over the regex to make sure it
is well-formed -- any warnings or errors will be dete <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1392	1497	
==>self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1392	1497	
==>self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	91	184	
==>eCategory);
use Pugs::Runtime::Match;

use Pugs::Grammar::Var;
use Pugs::Grammar::Num;
use Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	236	369	
==>rn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	236	369	
==>rn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	236	369	
==>rn 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $_; join "|", map { "(" . $_->as_string . ")" } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10178	10277	
==>Stmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10178	10277	
==>Stmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10178	10277	
==>Stmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4547	4646	
==>{ p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4547	4646	
==>{ p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4547	4646	
==>{ p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRes; p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4313	4422	
==>ture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4506	4615	
==>ture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(. <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13077	13177	
==>ed
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a header.  Will be run w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1759	1861	
==>, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of cour <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1759	1861	
==>, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of cour <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1759	1861	
==>, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of cour <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12675	12844	
==>[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12669	12838	
==>[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	605	729	
==>lf->{values}{$key} = shift;
        return $self;
    };
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1562	1672	
==>multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1562	1672	
==>multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1562	1672	
==>multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9670	9810	
==>$self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9670	9810	
==>$self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9670	9810	
==>$self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.k <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19634	19729	
==>part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref des <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19634	19729	
==>part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref des <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16002	16095	
==>mes
C</^\n?\s+/>, which perhaps gets optimized to C</^\s+/>.  The difficulty
rating is so high <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18176	18278	
==>, to give input to a search,
and to get back match results.

Our objective here is to see if it is poss <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24080	24177	
==>d C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28632	28729	
==>d C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C< <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21949	22062	
==>*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $ <==
3	/Users/nnunley/pugs/util/package-osx.pl	1085	1191	
==>info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /us <==
3	/Users/nnunley/pugs/util/package-osx.pl	3395	3501	
==>info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /us <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2517	2637	
==>{
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we ret <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2517	2637	
==>{
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we ret <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	80	210	
==>uf_weg();  }
	when 'hungrig'   { werfe('steak'); }
	when .füttert     { schleiche_vorbei();  }
	when /grrr+/      { ohren_zuhalten <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2205	2302	
==>teral {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2118	2213	
==>teral {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2916	3033	
==>);
    no warnings qw( uninitialized );
    return sub {
        my $bool = $const eq substr( $_[0], $_[5], $lconst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8432	8532	
==>prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8432	8532	
==>prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20520	20674	
==>param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => ide("r"),
							),
							param = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	956	1081	
==>quired',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required', <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	956	1081	
==>quired',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1831	1952	
==>ror = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1831	1952	
==>ror = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1831	1952	
==>ror = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	718	826	
==>SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	718	826	
==>SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	718	826	
==>SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# B <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3231	3483	
==>ew(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3231	3483	
==>ew(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2070	2168	
==>tion::LaxPairAttrType
    (Relation::AttrName $attr_name) {...}

proto method attr_name_exists of B <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20169	20260	
==>, -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20169	20260	
==>, -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1481	1568	
==>NV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3638	3747	
==>>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3638	3747	
==>>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3638	3747	
==>>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	927	1024	
==>th::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	927	1024	
==>th::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	927	1024	
==>th::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21087	21201	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17508	17622	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17413	17508	
==>boxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17413	17508	
==>boxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17413	17508	
==>boxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	138	243	
==>t commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	138	243	
==>t commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	138	243	
==>t commandline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTest <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3114	3235	
==>do?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $de <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3114	3235	
==>do?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4638	4759	
==>do?) is export {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4076	4233	
==>js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4076	4233	
==>js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4076	4233	
==>js(
        (grep { /^ret\d+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15849	15941	
==>hirdmanifesto.com/>, and its authors have also written
several books and papers and taught cl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15849	15941	
==>hirdmanifesto.com/>, and its authors have also written
several books and papers and taught cl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3296	3389	
==>= @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Delete <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3296	3389	
==>= @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Delete <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3930	4034	
==>l6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3930	4034	
==>l6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3930	4034	
==>l6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9615	9705	
==>lly created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, inte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9615	9705	
==>lly created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	771	874	
==>005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	771	874	
==>005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	771	874	
==>005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	331	450	
==>f ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	367	483	
==>f ($scheme eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12650	12748	
==>e the definition of each() now.  The zip function needs
to build tuples of the "across" values.  Al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6352	6457	
==>tch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6352	6457	
==>tch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6352	6457	
==>tch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8540	8652	
==>rr,"api 14 violation\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3184	3282	
==>rgs);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3184	3282	
==>rgs);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19192	19290	
==>n data; only
someone already involved in making the program would be editing them.  At
the same tim <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19192	19290	
==>n data; only
someone already involved in making the program would be editing them.  At
the same tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1257	1446	
==>:identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1257	1446	
==>:identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1257	1446	
==>:identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things')} = @r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15852	15964	
==>};
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15852	15964	
==>};
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15852	15964	
==>};
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1769	1882	
==>ementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1769	1882	
==>ementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1769	1882	
==>ementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A12/ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1150	1423	
==>/H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'par <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1150	1423	
==>/H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'par <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3322	3431	
==>my $srcfile;
my $DEBUG;


if(!@ARGV || $ARGV[0] eq '-h'){ 
    print( <<'HELP') and exit;

<< USAGE >>

 % p52 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1043	1144	
==>]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1043	1144	
==>]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1043	1144	
==>]).toNative()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4067	4184	
==>) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4067	4184	
==>) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4067	4184	
==>) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2989	3100	
==>}
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2029 }


# A.1 Lexical Grammar

rule SourceCharacter { <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3127	3222	
==>}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $ot <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3127	3222	
==>}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $ot <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3668	3785	
==>f, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \% <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4917	5026	
==>t's children one by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val(10), <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2696	2790	
==>ariable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2696	2790	
==>ariable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4955	5087	
==>f->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4955	5087	
==>f->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4955	5087	
==>f->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	661	846	
==>UNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the insid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	661	846	
==>UNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the insid <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	661	846	
==>UNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the insid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2765	2865	
==>o
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2765	2865	
==>o
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2765	2865	
==>o
# TODO - implement infinite list parameter - (1..Inf).shift
# TODO - box-up .arity and .name return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10285	10459	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10285	10459	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10285	10459	
==>OLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TODO - add support for tied hash
                # TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10420	10535	
==>.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Builder::Test $test )
  { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2437	2542	
==>.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2437	2542	
==>.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Builder::Test $test )
{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5949	6057	
==>e =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5949	6057	
==>e =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5949	6057	
==>e =~ s/\~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1104	1241	
==>ler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            wh <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1104	1241	
==>ler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29284	29384	
==>the previous one, if they are of the same type. If
it is called I<after> $obj has been added to the t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9247	9443	
==>list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        i <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9247	9443	
==>list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7081	7219	
==>.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5582	5720	
==>.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4670	4758	
==>ool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8223	8399	
==>::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4073	4216	
==>',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4073	4216	
==>',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	462	628	
==>y node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	377	543	
==>y node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	465	631	
==>y node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2202	2300	
==>:Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2202	2300	
==>:Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2202	2300	
==>:Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2857	2976	
==>rule commit_alternation { \:\: }
rule commit_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ } # XXX - $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2538	2649	
==>f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2538	2649	
==>f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method head <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5544	5668	
==>urn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5556	5680	
==>urn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43003	43101	
==>e reported.

=head1 SEE ALSO

Go to L<Relation> for the majority of references.

=head1 BUGS AND LI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1443	1545	
==>zy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optiona <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1443	1545	
==>zy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optiona <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1443	1545	
==>zy() could be defined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optiona <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11140	11264	
==>s => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11140	11264	
==>s => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11140	11264	
==>s => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8273	8380	
==>$) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8273	8380	
==>$) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8273	8380	
==>$) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3524	3634	
==>mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7001	7111	
==>mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5958	6068	
==>mapping.values;
    die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4841	5023	
==>!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

meth <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4841	5023	
==>!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	103	212	
==>ndBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	103	212	
==>ndBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	103	212	
==>ndBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1924	2111	
==>ame};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1924	2111	
==>ame};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1924	2111	
==>ame};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline"                        and
      $s <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	392	489	
==>t::Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cut

$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12154	12247	
==>/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12154	12247	
==>/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3524	3625	
==>[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3524	3625	
==>[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3524	3625	
==>[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6742	6850	
==>n $o->mk_eater_for_re('.') if $re eq '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37749	37844	
==>me (a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37749	37844	
==>me (a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2810	2926	
==>nless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contigu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2810	2926	
==>nless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contigu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2810	2926	
==>nless defined $param{cis_infinite};
    $param{cis_contiguous} = sub { 0 } 
        unless defined $param{cis_contigu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	875	972	
==>e Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	875	972	
==>e Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	875	972	
==>e Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3647	3767	
==>rammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3840	3960	
==>rammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	18	130	
==>iler.pl - fglock
#
# experimental implementation of a p6 compiler
# 

use strict;
use warnings;
no warnings 'rede <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21274	21369	
==>o do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21274	21369	
==>o do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2876	2971	
==>n Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2876	2971	
==>n Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3223	3318	
==>n Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	490	592	
==>ile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TEST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	490	592	
==>ile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TEST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	490	592	
==>ile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TEST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1908	2000	
==>n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1908	2000	
==>n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1908	2000	
==>n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5018	5119	
==>it $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the value <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5018	5119	
==>it $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6542	6643	
==>it $passed, Str $description = '' )>

Records that a test has passed or failed, depending on the value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	318	431	
==>oul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	318	431	
==>oul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	318	431	
==>oul) 
# having been added by God.

## (see psyche.pl for more information)

$::Object     = undef;
$::Package    = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30495	30638	
==>endant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatcher');
                }   
                els <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3478	3593	
==>il($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>( <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3478	3593	
==>il($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17300	17411	
==>ALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17300	17411	
==>ALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17300	17411	
==>ALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17242	17333	
==>xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17242	17333	
==>xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17242	17333	
==>xx0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7169	7357	
==>ow if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7169	7357	
==>ow if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7169	7357	
==>ow if we are being called from within
        # our own class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS-> <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3471	3581	
==>king;
>   clad in mail, never clinking.
-}


module Pugs.Config (
    config,
    getConfig
) where

import qua <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4814	4914	
==>ytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.fi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4814	4914	
==>ytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1478	1583	
==>Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1478	1583	
==>Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1478	1583	
==>Number(idxs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1722	1816	
==>lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1722	1816	
==>lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1722	1816	
==>lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_:) { uc(substr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20024	20128	
==>mensional object Hash,
or various combinations of other data types.

While the implementation can be chan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24576	24680	
==>mensional object Hash,
or various combinations of other data types.

While the implementation can be chan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23128	23232	
==>mensional object Hash,
or various combinations of other data types.

While the implementation can be chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11023	11139	
==>e ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11023	11139	
==>e ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11023	11139	
==>e ];
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1198	1325	
==>",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1198	1325	
==>",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1198	1325	
==>",   2, "N", "Number(a) >= Number(b)",
  "infix:«==»",   2, "N", "Number(a) == Number(b)",
  "infix:«!=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7840	7963	
==>lems;
        dbg "# Function:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context = <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3179	3294	
==>n user smoke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    i <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	176	264	
==>$setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @args = grep ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4223	4348	
==>]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4223	4348	
==>]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4223	4348	
==>]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mods;
    %mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	613	740	
==>e_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	613	740	
==>e_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	613	740	
==>e_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	312	434	
==>MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	312	434	
==>MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	312	434	
==>MkPos");
    die if     $_[0]->{pExp};

    $_[0]->{pNode} = bless {} => "PIL::PNoop" if $_[0]->{pNode} eq "PNoop";

    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13395	13503	
==>MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13395	13503	
==>MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13395	13503	
==>MULTI SUB rmdir ($xx) { rmdir(p6_to_s($xx)); };
MULTI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2354	2482	
==>return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2342	2470	
==>return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumpe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13458	13556	
==>(-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (?{...}) not terminated o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9853	9983	
==>"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    }
}

sub _create_runperl { # Create the string to qx in runperl().
    my %args = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39214	39299	
==>ta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BU <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39214	39299	
==>ta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3142	3346	
==>'$.number' => $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            con <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	970	1087	
==>dic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Eg <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	970	1087	
==>dic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Eg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3057	3173	
==>s primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $forma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3057	3173	
==>s primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $forma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3057	3173	
==>s primitive {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $forma <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5346	5459	
==>( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5346	5459	
==>( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8238	8351	
==>uild = !(
      -r $initrd_gz and
      -M $initrd_gz <= -M $pugs and
      -M $initrd_gz <= -M "$parrot_path/parr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28882	29052	
==>1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28882	29052	
==>1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28882	29052	
==>1;
                return Str->new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Contai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7727	7868	
==>eturn ${$match<category>}.add_op( 
            name => $match<name>, 
            fixity => ..., 
            precedence => ...,
        ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1746	1874	
==>.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1746	1874	
==>.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19828	19982	
==>sa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19828	19982	
==>sa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19828	19982	
==>sa( $self->tied, 'Perl6::Slice' ) ) {
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3095	3252	
==>y $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12866	12989	
==>c;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6341	6464	
==>c;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5572	5692	
==>mpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpd <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5572	5692	
==>mpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8633	8746	
==>rl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8633	8746	
==>rl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8633	8746	
==>rl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6374	6503	
==>efore {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6374	6503	
==>efore {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3350	3472	
==>angle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3350	3472	
==>angle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3350	3472	
==>angle($_), name_mangle($_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8118	8241	
==>Parsing

To intercept each node as it is parsed, use the next() method:

  while (my $node = $parser->next) {
    # $node is <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	117	234	
==>s Str  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	117	234	
==>s Str  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1600	1693	
==>arName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1600	1693	
==>arName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1600	1693	
==>arName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	9	111	
==>n/perl

use strict;
use warnings;

use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	491	584	
==>s Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::Jo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	491	584	
==>s Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::Jo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10409	10524	
==>ture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10688	10803	
==>ture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19013	19109	
==>ly meant to be used with user text that is
associated with hard-coded program conditions.  In oth <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19013	19109	
==>ly meant to be used with user text that is
associated with hard-coded program conditions.  In oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1200	1321	
==>me} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1200	1321	
==>me} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1200	1321	
==>me} is short
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7158	7258	
==>';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7158	7258	
==>';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7158	7258	
==>';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
}
package PIL::Environment; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3867	4017	
==>version = package_version(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8252	8349	
==>e sub
array.

In Scalar context, they all return the count of elements that would have
been iterat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	133	230	
==>turn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	133	230	
==>turn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_inde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	133	230	
==>turn sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1430	1573	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1430	1573	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1430	1573	
==>chable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7923	8099	
==>usion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "The heading of the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11400	11576	
==>usion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "The heading of the <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	133	258	
==>);      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($a, 'foo'); # $a.circumfix:«{ }»('foo');
#=postcircumfix
postci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1015	1123	
==>ler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1015	1123	
==>ler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4592	4685	
==>n $self.intersection( $set.complement );
}

# --------- arithmetic and list operations ------- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4592	4685	
==>n $self.intersection( $set.complement );
}

# --------- arithmetic and list operations ------- <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	148	237	
==>Config;
use File::Spec;

my $setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10014	10166	
==>if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10014	10166	
==>if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10014	10166	
==>if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elements";
                push @item <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5989	6125	
==>]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6830	6945	
==>ith_prefix {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::Bi <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	322	416	
==>Internal method which pushes a given $callback to @:events.
  my method enqueue (Code $callback <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9687	9794	
==>ial chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9687	9794	
==>ial chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9687	9794	
==>ial chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	190	388	
==>rint "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8056	8143	
==>->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1881	1968	
==>->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7041	7207	
==>/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7041	7207	
==>/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7041	7207	
==>/14_AUTOLOAD.t  
            'isa' =>     sub {
                my($self,$cls)=@_;
                return 1 if $cls eq 'Scalar';
                my $tmp = _('$:cell')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15570	15672	
==>kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15570	15672	
==>kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15570	15672	
==>kv ($xx) { p6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3798	3945	
==>t value
            $Obj->$acc( $config{$key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we don't give back th <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	69	186	
==>leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	69	186	
==>leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11285	11408	
==>ple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14762	14885	
==>ple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14070	14193	
==>ple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    return $?SELF!_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16127	16257	
==>suflen if $suflen > $maxsuflen;
    }
    # + 3 : we want three dots between the test name and the "ok"
    return $maxlen + 3 - $m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8322	8412	
==>push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2147	2237	
==>push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5457	5558	
==>t_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5457	5558	
==>t_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5457	5558	
==>t_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1774	1873	
==>lf->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1774	1873	
==>lf->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1774	1873	
==>lf->{pInv}->{pLV}->isa("PIL::PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3697	3831	
==>.BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3697	3831	
==>.BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3697	3831	
==>.BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9899	10005	
==>patcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9899	10005	
==>patcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9899	10005	
==>patcher_iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10254	10355	
==>_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return wi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10254	10355	
==>_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return wi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10254	10355	
==>_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n} catch PIL::Run::ApiX::Exception::Return wi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2995	3098	
==>hod set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2995	3098	
==>hod set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10202	10309	
==>ey =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10202	10309	
==>ey =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10202	10309	
==>ey =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL::Run::Internals::call_perl5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22326	22442	
==>prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18747	18863	
==>prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2656	2777	
==>n_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2656	2777	
==>n_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2656	2777	
==>n_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res),"\n";
    };
    p6_repl_print_help();
    while (1) {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	701	819	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	701	819	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	701	819	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $cou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21570	21664	
==>m the other tuples.  All Relation
attributes may be individually addressed only by their names, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26122	26216	
==>m the other tuples.  All Relation
attributes may be individually addressed only by their names, <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2417	2514	
==>'x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class shoul <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2417	2514	
==>'x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class shoul <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19103	19193	
==>I<not> happen automatically if using the header(),
push_header() or init_header() methods t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19103	19193	
==>I<not> happen automatically if using the header(),
push_header() or init_header() methods t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5889	6003	
==>... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5889	6003	
==>... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5889	6003	
==>... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	408	513	
==>nd Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	408	513	
==>nd Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	408	513	
==>nd Module. It was also created
# by God (which means it is part of the core model)
#
# psyche is the sensu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11284	11431	
==>return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11284	11431	
==>return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11284	11431	
==>return $tmp->$method( @param );
                }
                # everything else is not auto-dereferenced
                return Bit->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9023	9203	
==>.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9023	9203	
==>.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3704	3858	
==>ELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3704	3858	
==>ELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3704	3858	
==>ELF => '%:attributes')};
}));

## subroles

$::Role->add_method('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2003	2122	
==>ETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2003	2122	
==>ETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2003	2122	
==>ETCH();
      var cc   = args.pop();
      var keys = hash.keys();
      cc(new PIL2JS.Box.Constant(keys));
    })')(%$s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3536	3677	
==>s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4385	4526	
==>s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4800	4920	
==>th/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4800	4920	
==>th/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4800	4920	
==>th/to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23323	23429	
==>x0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23323	23429	
==>x0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23323	23429	
==>x0,$xx1,*@xxa) {
    my($s,$v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	805	948	
==>}
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($ke <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	805	948	
==>}
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($ke <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	253	350	
==>use Time::Piece;
use Time::Seconds;

# All dates should be displayed as UTC (Time::Piece honours $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21736	21853	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18157	18274	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $se <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16701	16800	
==>l->new($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $i <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	151	282	
==>eln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pause\visible<5>{
my @a = {wurf()} xx 6; # Lösung: anonyme Subr <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7945	8072	
==>);
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actua <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8003	8130	
==>);
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actua <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11891	11990	
==>trings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&os <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11891	11990	
==>trings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&os <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12809	12927	
==>_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12809	12927	
==>_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12809	12927	
==>_3aInternals_3a_3aHacks_3a_3aarray_postcircumfix_for_undefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10564	10741	
==>text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10564	10741	
==>text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5009	5134	
==>i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($right->fetch($ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4945	5062	
==>he height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4945	5062	
==>he height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1579	1671	
==>HOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1579	1671	
==>HOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1175	1306	
==>b generate_inline_c {
	my $self = shift;
	my $c_code = shift;

	my %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6062	6147	
==>annels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6062	6147	
==>annels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	198	302	
==>ugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	198	302	
==>ugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	193	294	
==>ugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5633	5753	
==>s}[$result{number} - 1] = $details;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self->_is_header( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2531	2621	
==>b node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",* <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2531	2621	
==>b node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	1	139	
==>package Perl6::MetaModel::Parser::Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	1	139	
==>package Perl6::MetaModel::Parser::Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	1	139	
==>package Perl6::MetaModel::Parser::Tokenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6741	6858	
==>str, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6516	6624	
==>str, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9528	9627	
==>e.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9528	9627	
==>e.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13751	13846	
==>ion (?(%.2s

=item RPe_SEQINC (-9)

Sequence (? incomplete

=item RPe_UQUANT (-10)

Useless (%s% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	298	400	
==>prefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	298	400	
==>prefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	298	400	
==>prefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3882	4000	
==>me,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_roo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3882	4000	
==>me,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_roo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3882	4000	
==>me,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_roo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	667	765	
==>ACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Silly - a subclass of the perl backe <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2324	2421	
==>$x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns al <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2324	2421	
==>$x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns al <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4380	4485	
==>' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7632	7736	
==>e versions passed and does a '<=>' on them, returning the result.

=cut

sub _vcmp {
    my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4229	4331	
==>' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6267	6536	
==>be, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### so <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6731	7000	
==>be, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24845	24938	
==>ed only by their names, and all
Relation::Example tuples may be individually addressed only by <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29901	29996	
==>supports having old tuple-valued attributes which
have zero attributes (they just vanish).

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34453	34548	
==>supports having old tuple-valued attributes which
have zero attributes (they just vanish).

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33617	33712	
==>supports having old tuple-valued attributes which
have zero attributes (they just vanish).

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2276	2372	
==>at allows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2276	2372	
==>at allows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15302	15481	
==>urn $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15302	15481	
==>urn $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15302	15481	
==>urn $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2913	3034	
==>m_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2913	3034	
==>m_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2913	3034	
==>m_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1631	1752	
==>tives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1631	1752	
==>tives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1631	1752	
==>tives

use strict;

sub Perl6::Value::p6v_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9011	9230	
==>,
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->fetch($e- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11302	11395	
==>Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode vers <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11302	11395	
==>Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode vers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7299	7398	
==>L::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7299	7398	
==>L::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7299	7398	
==>L::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL::Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16101	16208	
==>$v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16101	16208	
==>$v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16101	16208	
==>$v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6813	6940	
==>ture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7006	7133	
==>ture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11323	11478	
==>utine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11323	11478	
==>utine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interfac <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2231	2331	
==>/^Blondie::(\w+)$/ and Blondie::Nodes->can($1)){
		return $1;
	} else {
		return $class . "->new";
	} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1817	1947	
==>{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1817	1947	
==>{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1817	1947	
==>{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6474	6600	
==>te($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6474	6600	
==>te($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6474	6600	
==>te($attr_name => $role->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10462	10634	
==>tart, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10462	10634	
==>tart, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10462	10634	
==>tart, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slicing
            my $t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6969	7069	
==>eturn value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6969	7069	
==>eturn value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6553	6647	
==>from(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2242	2377	
==>stics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3603	3730	
==>stics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3726	3823	
==>ugs::Compiler::Rule->compile( '" .
            _quotemeta( emit_perl6_rule($self, $level, $default <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2720	2835	
==>on step further and Curries approxfprime with the user supplied
f.  Such things are possible in Perl 5, but simply s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8619	8722	
==>all out of whack.
# This is where this method comes into play
# it will recurse down the tree and fix th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8619	8722	
==>all out of whack.
# This is where this method comes into play
# it will recurse down the tree and fix th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	257	506	
==>ly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	257	506	
==>ly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1447	1541	
==>le";
        system("../../Setup$Config{_exe}", 'configure', '--user', '--prefix', "$pwd/dist") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2413	2522	
==>{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2413	2522	
==>{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2413	2522	
==>{pScope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4480	4569	
==>tance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4480	4569	
==>tance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4480	4569	
==>tance_attr($self => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' = <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	858	990	
==>l;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a no <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	858	990	
==>l;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a no <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	452	561	
==>0,NULL);
}
Parrot_Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $m <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	377	477	
==>lf.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %at <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	377	477	
==>lf.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %at <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3692	3792	
==>_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!("-M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	154	266	
==>unt++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	154	266	
==>unt++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	154	266	
==>unt++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2492	2587	
==>ect of this class represents a client's request.  It also contains extra
information passed on b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2492	2587	
==>ect of this class represents a client's request.  It also contains extra
information passed on b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1084	1181	
==>_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1084	1181	
==>_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1084	1181	
==>_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, which is like Perl 6's &say, <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	775	878	
==>:Internals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5891	5988	
==>This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir retur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5891	5988	
==>This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2568	2704	
==>f &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2568	2704	
==>f &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2568	2704	
==>f &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14108	14205	
==>s };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Graphem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14108	14205	
==>s };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Graphem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14108	14205	
==>s };
MULTI SUB graphs ($xx) { require String::Multibyte; my $len = String::Multibyte->new('Graphem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	935	1067	
==>function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	935	1067	
==>function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	935	1067	
==>function (str) {
          return _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	365	473	
==>")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	365	473	
==>")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	365	473	
==>")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_string;

  sub all_types { local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	901	996	
==>w< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	901	996	
==>w< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	901	996	
==>w< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_file <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14961	15057	
==>failedtests);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $width);

Gener <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40795	40890	
==>formed any time you create a
modified version of Locale::KeyedText that you are willing to distr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40795	40890	
==>formed any time you create a
modified version of Locale::KeyedText that you are willing to distr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3000	3095	
==>l($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3000	3095	
==>l($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3000	3095	
==>l($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4109	4223	
==>tPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4109	4223	
==>tPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5633	5747	
==>tPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually returns a Test::Bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1232	1350	
==>uu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1232	1350	
==>uu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1232	1350	
==>uu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3245	3346	
==>var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3245	3346	
==>var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3245	3346	
==>var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX::bb_tree_is <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5909	6008	
==>t of all index_files that a given package belongs to.

=cut

sub index_files { #TODO: When using two <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8540	8637	
==>* name2 => $operator_name - the name of the second operator in
an operator pair, such as circumfi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6074	6170	
==>* name2 => $operator_name - the name of the second operator in
an operator pair, such as circumfi <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4064	4174	
==>g "# keys: ",%pad.keys;
        $ret = emit_parameter_with_default(
            traverse_ast( %pad<"tpParam"> ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12050	12142	
==>ates and returns a new Rosetta::Model::Document object.  If
the optional named parameter @roo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12050	12142	
==>ates and returns a new Rosetta::Model::Document object.  If
the optional named parameter @roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10699	10877	
==>verse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10699	10877	
==>verse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10699	10877	
==>verse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reverse 
        },
        sum =>            $ret->{sum},
        sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3707	3812	
==>IS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3707	3812	
==>IS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $matc <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5852	5947	
==>'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5852	5947	
==>'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2751	2846	
==>'Scope', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3747	3840	
==>$fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3747	3840	
==>$fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3747	3840	
==>$fh, ">", $cfg{preludepc} or die "Couldn't open \"$cfg{preludepc}\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4557	4668	
==>$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4557	4668	
==>$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4557	4668	
==>$.unboxed' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8333	8456	
==>uous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8333	8456	
==>uous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8333	8456	
==>uous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	823	940	
==>ox.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	823	940	
==>ox.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.ST <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	823	940	
==>ox.Proxy(
      function ()  { return new PIL2JS.Pair(key, new_val_container) },
      function (n) {
        value.ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	774	881	
==>$::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	774	881	
==>$::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	774	881	
==>$::CLASS->STORE($attr => shift) if @_;
    $::CLASS->FETCH($attr);  
}

sub class {
    my ($full_name, $bod <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27799	27895	
==>y your tests will be run by C<$^X>, the currently-executing Perl.
However, you may want to have i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	120	216	
==>:Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementations).
# To con <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8042	8160	
==>{
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8100	8218	
==>{
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17223	17336	
==>ywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17223	17336	
==>ywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonica <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17223	17336	
==>ywhere in the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonica <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29384	29480	
==>he queue (C<< $parser->{next} >>).

The handle '|' is post-consumptive.  It happens to be execute <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	792	886	
==>005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy lis <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	792	886	
==>005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy lis <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2218	2318	
==>not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2218	2318	
==>not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @val <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1518	1609	
==>rget = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3330	3564	
==>nk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Va <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2859	2957	
==>ext, or at
least a valid representation of it that "honours the spirit of the
dialect", if the orig <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2859	2957	
==>ext, or at
least a valid representation of it that "honours the spirit of the
dialect", if the orig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1359	1469	
==>-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1359	1469	
==>-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1359	1469	
==>-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

command_conf(pugs           => $cfg <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11948	12116	
==>[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $failedtests{$tfile} = _du <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16501	16600	
==>opped off and returned as a separate value if in
an array context.  If there is no such header field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16501	16600	
==>opped off and returned as a separate value if in
an array context.  If there is no such header field <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1236	1349	
==>rint "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    ex <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	279	385	
==>{
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	279	385	
==>{
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5735	5841	
==>{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5735	5841	
==>{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5735	5841	
==>{">>+<<"};

sub infix:{">>~<<"} (Array @a, Array @b) {
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~« <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2163	2263	
==>ethod' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2163	2263	
==>ethod' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2163	2263	
==>ethod' => ::make_method(sub {
    my ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6747	6901	
==>'}->() }
            |
                ### Test::More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37510	37607	
==>its arguments is not significant to the result;
the new Relation is the result of combining all of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42059	42156	
==>its arguments is not significant to the result;
the new Relation is the result of combining all of <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2249	2388	
==>its, $currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	417	530	
==>set .from and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	417	530	
==>set .from and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25106	25253	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25385	25532	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13182	13320	
==>ch tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { canon <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2277	2370	
==>rammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2366	2459	
==>rammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1198	1315	
==>cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1198	1315	
==>cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1198	1315	
==>cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8929	9031	
==>rameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.ne <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8929	9031	
==>rameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14112	14292	
==>ue' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14112	14292	
==>ue' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14112	14292	
==>ue' ],
        methods => {
            do => sub {
                my ($self, @args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7542	7734	
==>lue::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7542	7734	
==>lue::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7542	7734	
==>lue::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	97	216	
==>, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	97	216	
==>, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	97	216	
==>, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1089	1227	
==>es_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1089	1227	
==>es_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1089	1227	
==>es_of($n));
            }
        } elsif(ref($n)) {
            unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2080	2183	
==>$_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2080	2183	
==>$_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2427	2530	
==>$_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5913	6020	
==>returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5913	6020	
==>returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8110	8217	
==>returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2864	2986	
==>ame.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2864	2986	
==>ame.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2864	2986	
==>ame.STORE(new PIL2JS.Box.Constant(backup_value));
  });
})()
EOF
      } else {
        die;
      }
    } @{ $self->{pSyms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15318	15440	
==>ULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15318	15440	
==>ULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15318	15440	
==>ULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MU <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5742	5919	
==>s »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5742	5919	
==>s »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	30	130	
==>lisher redone for all the Perl 6 OOP goodness

# something which does publisher can send events
# som <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	418	524	
==>).value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	418	524	
==>).value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	418	524	
==>).value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS::inline( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12047	12172	
==>Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12047	12172	
==>Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12047	12172	
==>Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9096	9209	
==>($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9084	9197	
==>($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23365	23463	
==>ed and discarded.

It is important to do this copy-and-push before you do any flag-parsing,
if you' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1679	1784	
==>il->new();
}

sub keys { 
    my %native = (shift)->to_native;
    list->new(map { str->new($_) } keys %na <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4948	5046	
==>ny leftover data and returns it as an array of bytes, 
then clears the object's internal state.  Th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4948	5046	
==>ny leftover data and returns it as an array of bytes, 
then clears the object's internal state.  Th <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3648	3748	
==>the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3648	3748	
==>the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5845	5945	
==>the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=item C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3403	3542	
==>my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3403	3542	
==>my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3403	3542	
==>my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	599	701	
==>nshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	599	701	
==>nshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	599	701	
==>nshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13924	14041	
==>n::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13924	14041	
==>n::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13924	14041	
==>n::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2532	2642	
==>});
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2532	2642	
==>});
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formal <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2879	2989	
==>});
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  formal <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8518	8621	
==>('type::operator::binary', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{sym <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24867	24962	
==>Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24867	24962	
==>Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or d <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3132	3238	
==>t representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3132	3238	
==>t representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	90	187	
==>_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	54	151	
==>_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	142	239	
==>_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2075	2185	
==>sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2075	2185	
==>sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2075	2185	
==>sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	retur <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	482	593	
==>rn map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	482	593	
==>rn map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26346	26456	
==>)
    )
);

=pod

method add_subclass (opaque $self: opaque $subclass) returns nil {
    @:subclasses.push($sub <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8108	8345	
==>";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # res <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8572	8809	
==>";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # res <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23548	23658	
==>ue"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1280	1378	
==>Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1280	1378	
==>Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1280	1378	
==>Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1840	1937	
==>/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1840	1937	
==>/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1840	1937	
==>/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3642	3745	
==>rform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=ite <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3642	3745	
==>rform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5839	5942	
==>rform the Test::Builder::Test::Base role.

=over 4

=item C<$number>   

This is the test number. 

=ite <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9935	10043	
==>$o->noop;
    my($min,$max)= (@{$o->data}{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $m <==
3	/Users/nnunley/pugs/util/run-smoke.pl	352	448	
==>quired modules installed.
Please install it from the CPAN and try again.

A bundle is available t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2015	2123	
==>rray', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2015	2123	
==>rray', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2015	2123	
==>rray', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12907	13007	
==>..M) line.  If so, it places how
many tests there will be in C<< $strap->{max} >>, a list of which te <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9484	9573	
==>f C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.prope <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9484	9573	
==>f C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.prope <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	110	356	
==>ale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	110	356	
==>ale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4958	5049	
==>}
class JSX::InternalValue::Completion {
   submethod BUILD { $.type = JSX::InternalValue::C <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2030	2147	
==>nite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2030	2147	
==>nite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32885	33040	
==>= $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32885	33040	
==>= $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32885	33040	
==>= $length - $ret_length;
                my $i = $li->pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16193	16303	
==>x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16193	16303	
==>x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16193	16303	
==>x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_f <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	576	676	
==>special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify a <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	576	676	
==>special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	950	1080	
==>}::hash"}{$key} = Pugs::Compiler::Regex->compile( 
        $rule, 
        { grammar => $class },
    );
}

sub capture {
    # pri <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7676	7782	
==>_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Som <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7676	7782	
==>_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Som <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3780	3904	
==>...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the follow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3780	3904	
==>...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the follow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3780	3904	
==>...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the follow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1108	1236	
==>= split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1108	1236	
==>= split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1108	1236	
==>= split '-' => $full_name;       
        return sub {
            confess "No parameters passed, looking for { "  . (join ", " = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9003	9147	
==>cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9003	9147	
==>cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1035	1185	
==>s) returns List|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       rev <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7809	7904	
==>self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7809	7904	
==>self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2398	2491	
==>ate_keystream> with a number of bytes and throwing the return value away.
Encryptions after th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2398	2491	
==>ate_keystream> with a number of bytes and throwing the return value away.
Encryptions after th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5323	5444	
==>currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5323	5444	
==>currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5323	5444	
==>currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9745	9896	
==>> $self.get_test_number(),
              reason      =>  $reason,
              description =>  $description,
          )
      );
  
      return $pass <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1828	1967	
==>> $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1828	1967	
==>> $self.get_test_number(),
            reason      =>  $reason,
            description =>  $description,
        )
    );

    return $pass <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5063	5178	
==>ipt\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5063	5178	
==>ipt\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2044	2142	
==>ss_perl_type($node) eq "IV";
		return quote(printable($node)),
	}
}

sub can_reduce { 1 }

sub cons <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	711	860	
==>ar::Var.ident>
                { return { scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => '
                <Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24372	24467	
==>on object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28924	29019	
==>on object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18412	18512	
==>'.$where.'\n") '.";\n";
    $code .= "}\n";

    eval_p5_code($code);
}
sub p6_wrap_code_with_package <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8144	8239	
==>>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8144	8239	
==>>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	234	345	
==>use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlynes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	234	345	
==>use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlynes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	234	345	
==>use Getopt::Long;
use Encode;  # needed by pil2js.pl, better die now than later
             # (user-friendlynes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5768	5872	
==>ed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5768	5872	
==>ed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5768	5872	
==>ed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()->unboxed;
}
sub Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13890	13989	
==>l`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13948	14047	
==>l`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1185	1276	
==>he default environment to work with (from
L<Blondie::Prelude>), and provides an easy interfa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18548	18667	
==>ckage represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18548	18667	
==>ckage represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18548	18667	
==>ckage represents the "magic"
    # of the class layer. Using this 
    # we can get a class invocant which 
    # is how <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3959	4074	
==>m{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3959	4074	
==>m{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3959	4074	
==>m{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1885	1999	
==>ubmethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILTh <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1885	1999	
==>ubmethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILTh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31068	31166	
==>ninstalls the given handles.  You send the names (like '|' or
'atom').  Here is a very simple compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6280	6424	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6280	6424	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6280	6424	
==>t ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	325	545	
==>);
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self->set_value('$:value' => $value);                        
            },
            'scalar_const' => su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11779	11873	
==>numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11779	11873	
==>numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6066	6187	
==>n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3235	3354	
==>n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4084	4203	
==>n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1840	1967	
==>$class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1840	1967	
==>$class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2076	2203	
==>$class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2048	2143	
==>:Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2048	2143	
==>:Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2048	2143	
==>:Object->name('Object');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	427	573	
==>d; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	411	550	
==>d; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => su <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16704	16830	
==>::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	110	247	
==>s @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	110	247	
==>s @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1089	1187	
==>ethod($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1089	1187	
==>ethod($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Gramm <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	638	737	
==>$object = bless {}, $class;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operato <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1840	1961	
==>le ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2057	2178	
==>le ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$pr <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15100	15208	
==>> $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M $iso <= -M $initr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4682	4835	
==>remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4682	4835	
==>remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!st <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2994	3138	
==>col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    print "}\n\\end{bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14471	14686	
==>isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14471	14686	
==>isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14471	14686	
==>isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	260	378	
==>ss::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	260	378	
==>ss::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	260	378	
==>ss::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2368	2489	
==>nce_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2368	2489	
==>nce_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2368	2489	
==>nce_add_new_attribute ($$;$) {
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2873	2980	
==>}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2873	2980	
==>}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2873	2980	
==>}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7491	7589	
==>alize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normal <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7491	7589	
==>alize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normal <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1788	1899	
==>x = CALLER::<$_>, Num :$base --> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2426	2522	
==>ng(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2426	2522	
==>ng(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2426	2522	
==>ng(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b), $ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1036	1264	
==>$is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %e <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1036	1264	
==>$is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %e <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1627	1724	
==>"*** Building the '$module' dependency.  Please wait...\n\n";

        system("../../Setup$Config{ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14198	14291	
==>ick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WH <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14198	14291	
==>ick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6984	7167	
==>w( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6984	7167	
==>w( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6984	7167	
==>w( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	756	873	
==>f (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	756	873	
==>f (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	756	873	
==>f (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) {
          var nam <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5379	5495	
==>returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test desc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5379	5495	
==>returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test desc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7576	7692	
==>returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test desc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4438	4544	
==>gs )>

This method actually creates and returns a new Test::Builder instance.  It
takes the same optional n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4438	4544	
==>gs )>

This method actually creates and returns a new Test::Builder instance.  It
takes the same optional n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5962	6068	
==>gs )>

This method actually creates and returns a new Test::Builder instance.  It
takes the same optional n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5674	5800	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5674	5800	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5674	5800	
==>) ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _('$.unboxed') ) ) },
            'per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1080	1175	
==>ain_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1080	1175	
==>ain_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1080	1175	
==>ain_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11580	11701	
==>reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7718	7821	
==>d" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7718	7821	
==>d" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7718	7821	
==>d" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24401	24667	
==>ue'),
                              symbol->new('?@superclasses' => 'list'),                              
                          ),
                returns => 'list'
            ),             
            sub {
                my $e = shift;
                $e-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	166	299	
==>zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	166	299	
==>zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(1 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	237	349	
==>tr $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	237	349	
==>tr $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	38	126	
==>l6::Core::Type::Equivalence;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core: <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	365	487	
==>ted = 0;
BEGIN { our $regcompp = undef };

sub import {
    my $class = shift;
    my $flavor = shift;
    $flavor =~ s/\W/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	199	296	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	199	296	
==>d by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5782	5879	
==>method calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reaso <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5782	5879	
==>method calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reaso <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7979	8076	
==>method calls the superclass C<status> method and adds the values of the
test's C<skip> and C<reaso <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2516	2633	
==>im

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _triv <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2516	2633	
==>im

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _triv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3109	3217	
==>p.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3109	3217	
==>p.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3109	3217	
==>p.isa("Code");
  my $arity = $cmp.arity;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as com <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2496	2613	
==>und => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9118	9222	
==>hen 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9118	9222	
==>hen 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11157	11290	
==>tfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11157	11290	
==>tfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11157	11290	
==>tfile($FindBin::Bin,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         Fi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6627	6723	
==>when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' dir <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6627	6723	
==>when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' dir <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23496	23581	
==>lace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) :- !.
replace_at_n( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3856	3973	
==>ption = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3856	3973	
==>ption = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3856	3973	
==>ption = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3141	3232	
==>erl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3141	3232	
==>erl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3488	3579	
==>erl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4433	4550	
==>if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7910	8027	
==>if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $! <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8903	9005	
==>file = abs2rel($input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $ <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	754	860	
==>thoug this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fi <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	754	860	
==>thoug this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fi <==
3	/Users/nnunley/pugs/util/drift.pl	960	1056	
==>unless @program;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary_header <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	937	1054	
==>p { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	937	1054	
==>p { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	937	1054	
==>p { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17259	17363	
==>ad1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17259	17363	
==>ad1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17259	17363	
==>ad1 DESCRIPTION

This module implements the "Value" classes - Num, Int, Str, Bit, Pair.

It also implemen <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1390	1506	
==>stic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1390	1506	
==>stic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1470	1586	
==>stic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $diagnostic );
}

sub report_tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1570	1670	
==>[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S->nchar($n) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26726	26822	
==>fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31278	31374	
==>fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This met <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	890	1028	
==>ight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    infix_list =>      '<tight> <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1172	1275	
==>nd;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTim <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1172	1275	
==>nd;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6696	6822	
==>pe eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6696	6822	
==>pe eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6696	6822	
==>pe eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7373	7521	
==>ry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	674	822	
==>ry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29600	29695	
==>rs' names.

=item C<project (Set of Str $attrs!) returns Relation::Example>

This method is a ge <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9094	9184	
==>rl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @stat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2919	3009	
==>rl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @stat <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5663	5763	
==>gexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17403	17493	
==>anner.
Module::Compile controls the compilation process, calling each compiler
at the right <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17403	17493	
==>anner.
Module::Compile controls the compilation process, calling each compiler
at the right <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2928	3110	
==>} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2928	3110	
==>} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2928	3110	
==>} if ${$_[0]} =~ /^%/o;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # these are just packages
        # so that I can 'tag' the
        # types of th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20458	20566	
==>NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler(' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16879	16987	
==>NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler(' <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	393	489	
==>parser_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13284	13384	
==>ass = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13284	13384	
==>ass = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13284	13384	
==>ass = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8911	9155	
==>ormalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8911	9155	
==>ormalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8911	9155	
==>ormalize;
                        return $j;
                    }
                }
                return;
            },
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6400	6498	
==>new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6400	6498	
==>new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6400	6498	
==>new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	868	967	
==>hat Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	868	967	
==>hat Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	868	967	
==>hat Demiurge endows man with the psyche, this
# sort of matches with how I plan to bootstrap Roles t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9068	9217	
==>next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5428	5577	
==>next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6277	6426	
==>next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1112	1206	
==>S::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1112	1206	
==>S::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1112	1206	
==>S::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1445	1577	
==>ry { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catd <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1445	1577	
==>ry { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catd <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16059	16160	
==>to be supported.

  regnode program[1];     /* Unwarranted chumminess with compiler. */

I don't know. <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1302	1453	
==>order function",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					), <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32643	32735	
==>to user-readable
message strings, using data from external Template modules as a template.
Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32643	32735	
==>to user-readable
message strings, using data from external Template modules as a template.
Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16029	16143	
==>Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16029	16143	
==>Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16029	16143	
==>Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1604	1744	
==>l);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1604	1744	
==>l);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1604	1744	
==>l);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8135	8326	
==>ub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	80	183	
==>`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	80	183	
==>`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7323	7430	
==>ND__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7323	7430	
==>ND__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7323	7430	
==>ND__

=pod

=head1 NAME

pneuma

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	843	1018	
==>rs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Acc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	843	1018	
==>rs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Acc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	843	1018	
==>rs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{attrs}});              
        return $instance;
    }

    # Acc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8133	8242	
==>der($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8133	8242	
==>der($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	814	1063	
==>eturn;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $file && -r _;
                                    local $Carp <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3221	3308	
==>d does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3221	3308	
==>d does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5327	5455	
==>d_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "Operator add: @{[ %opt ]} \n";

    d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	432	560	
==>(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	432	560	
==>(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	432	560	
==>(repr => $canidate, %params);
    $self.BUILDALL(%params);
    return $self;  
});

::Class.meta.add_method('CREATE' => method (% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1311	1409	
==>gs) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1311	1409	
==>gs) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1311	1409	
==>gs) {
    p6_new(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25250	25346	
==>ble identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<no <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29802	29898	
==>ble identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<no <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28732	28828	
==>ble identity of the
argument C<$other> equals the immutable identity of the invocant.

=item C<no <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23541	23634	
==>tE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23541	23634	
==>tE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5035	5194	
==>ckage, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5035	5194	
==>ckage, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wra <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5035	5194	
==>ckage, we 
    # need to wrap it so that $?PACKAGE is bound
    # correctly within it
    if ($label =~ /^\&/ && ref($value) eq 'CODE') {
        $value = ::wra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1560	1723	
==>j, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1560	1723	
==>j, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1560	1723	
==>j, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12117	12227	
==>ef => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12117	12227	
==>ef => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12117	12227	
==>ef => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %param }, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21277	21384	
==>ing where each Mapping key is an attribute name and each Mapping value
is the corresponding attribute value. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25829	25936	
==>ing where each Mapping key is an attribute name and each Mapping value
is the corresponding attribute value. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24453	24560	
==>ing where each Mapping key is an attribute name and each Mapping value
is the corresponding attribute value. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6451	6585	
==>tigation.

                # For now this means that we only allow compilation on
                # the module content; not the DATA se <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6451	6585	
==>tigation.

                # For now this means that we only allow compilation on
                # the module content; not the DATA se <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18048	18153	
==>$pair (int x str) this should be int
my $fst = comb(
	fun => ide("fst"),
	param => $pair,
);

# this makes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1237	1338	
==>@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1237	1338	
==>@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1237	1338	
==>@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%self.re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1102	1209	
==>nput;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1102	1209	
==>nput;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1102	1209	
==>nput;
usage "Cannot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3633	3740	
==>on't generate cross-referenced P6 design documents\n";
} else {    
    read_designdocs($syn_src_dir);
    p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19590	19688	
==>e a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24142	24240	
==>e a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a su <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16632	16734	
==>ns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16632	16734	
==>ns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recur <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9930	10026	
==>erator::arrow->new(
				type::operator::nary->new(list => $a),
				type::operator::nary->new(list <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2181	2297	
==>f>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2181	2297	
==>f>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\* <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9621	9708	
==>--> p5_charset_item(char(A)), "-", p5_charset_range_x(B).
p5_charset_range_x(_) --> p5_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12303	12428	
==>n::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12303	12428	
==>n::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12303	12428	
==>n::ApiX;\n";
    $code .= "use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	749	852	
==>ers = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns I <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	749	852	
==>ers = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns I <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16817	16936	
==>:lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C< <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10095	10210	
==>es not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10095	10210	
==>es not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20130	20227	
==>rst, then outer blocks.

A compiler may choose to declare that its result not be recompiled by
som <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20130	20227	
==>rst, then outer blocks.

A compiler may choose to declare that its result not be recompiled by
som <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36674	36763	
==>ated tuples.

=item C<exclusion (Relation::Example $other!) returns Relation::Example>

Th <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9239	9376	
==>vious =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complemen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9239	9376	
==>vious =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complemen <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21381	21478	
==>- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) :- !,    char_type(C,c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1787	1899	
==>l {
    my $ident = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26249	26347	
==>you a warranty for it.

While it is by no means required, the copyright holders of Rosetta would
ap <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26249	26347	
==>you a warranty for it.

While it is by no means required, the copyright holders of Rosetta would
ap <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6720	6824	
==>n => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6720	6824	
==>n => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6114	6215	
==>e a package level version of OUTER::?

Either way, I think it might be useful to have this if for noth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6114	6215	
==>e a package level version of OUTER::?

Either way, I think it might be useful to have this if for noth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6114	6215	
==>e a package level version of OUTER::?

Either way, I think it might be useful to have this if for noth <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6796	6898	
==>head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add at t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6796	6898	
==>head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add at t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7213	7313	
==>tor;
  $position = $operator->to();
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_PREFIX );
  goto <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3366	3462	
==>nitialization vector should be hashed with the 
key, not merely appended to it; appending can cre <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3366	3462	
==>nitialization vector should be hashed with the 
key, not merely appended to it; appending can cre <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	543	703	
==>r,$pos,$cap);
        return $kludge_retval if defined $kludge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	333	434	
==>c_regex = Pugs::Compiler::Regex->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	174	369	
==>o_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	174	369	
==>o_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	174	369	
==>o_b
       p6_to_n
       p6_to_s
       p6_to_a
       p6_to_l
       p6_to_x
       p6_to_perl
       p6_from_b
       p6_from_n
       p6_from_s
       p6_from_a
       p6_from_l
       p6_from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10701	10847	
==>mp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10701	10847	
==>mp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10701	10847	
==>mp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

class1 'Array'.$class_description => {
    is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6593	6709	
==>->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6593	6709	
==>->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($ve <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6593	6709	
==>->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($ve <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1973	2073	
==>ame} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of quer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1973	2073	
==>ame} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of quer <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	378	473	
==>pe JuncType
has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl::Type $. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7524	7637	
==>+w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VERSION, VERSION );

Normalizes the vers <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3873	3967	
==>row", and "yesterday" return the appropriate date.

Any other string will be passed to `Date::S <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3873	3967	
==>row", and "yesterday" return the appropriate date.

Any other string will be passed to `Date::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6499	6585	
==>ion'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6499	6585	
==>ion'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6499	6585	
==>ion'));
$::Module->add_attribute('$:authority' => ::make_attribute('$:authority'));

$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2188	2289	
==>(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2188	2289	
==>(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2188	2289	
==>(b))",
  "infix:«+|»",   2, "N", "Number(a)  | Number(b)",
  "infix:«+&»",   2, "N", "Number(a)  & <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	535	656	
==>ls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x->$try{
        $max =    $max > $try <==
3	/Users/nnunley/pugs/util/package-osx.pl	1088	1194	
==>o/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/l <==
3	/Users/nnunley/pugs/util/package-osx.pl	3398	3504	
==>o/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/l <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16785	16894	
==>{
    my($pkg)=@_;
    "\$${ROOT}::${pkg}::META";
}
sub p6_meta {
    my $m = get_meta($_[0]);
    die("p6_met <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	758	857	
==>ver_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides inform <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	758	857	
==>ver_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides inform <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4087	4177	
==>range(W, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25777	25880	
==>the old names and its values the new names.
This method will fail if any C<$mapping> keys do not match i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30329	30432	
==>the old names and its values the new names.
This method will fail if any C<$mapping> keys do not match i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29295	29398	
==>the old names and its values the new names.
This method will fail if any C<$mapping> keys do not match i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2399	2515	
==>ule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2399	2515	
==>ule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2724	2822	
==>est it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2724	2822	
==>est it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2724	2822	
==>est it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - (1..Inf).sh <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7005	7093	
==>y($name,$kind,$pams,$lval,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind, par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	361	478	
==>>{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	361	478	
==>>{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::c <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	404	536	
==>ems
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    proce <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	404	536	
==>ems
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    proce <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1717	1828	
==>{
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self->{tree};
}


sub nparen {
  my ($self) = @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3502	3720	
==>());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$current')
                  ->send('has_method' => $e->get('$label'))
                  -> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2366	2502	
==>ying to avoid setting $_, or relying on local $_ to work.
sub display {
    my @result;
    foreach my $x (@_) {
        if (defined $x a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1503	1600	
==>parameters as well as anything declared within

that scope.



the Sig contains a simply structure <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1441	1535	
==>parameters as well as anything declared within
that scope.

the Sig contains a simply structure <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38409	38518	
==>.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation::Example $other <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34380	34473	
==>.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38930	39023	
==>.  This method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1911	2031	
==>> };
        my $tpl_config = $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class->env_over <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10231	10324	
==>paramContext, $paramDefault) {
    my $default; $default = DOWN($paramDefault) if defined($par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	999	1114	
==>&& $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1226	1341	
==>&& $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1453	1568	
==>&& $right->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left- <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	197	297	
==>::Template.new(filename => "wiki.html");

my $action    = param('action');
my %wiki      = evalfile(" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17860	17954	
==>abases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readable" <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17860	17954	
==>abases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readable" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9644	9743	
==>', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9702	9801	
==>', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2532	2664	
==>\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2532	2664	
==>\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2532	2664	
==>\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_inden <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	105	255	
==>scription => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	105	255	
==>scription => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	105	255	
==>scription => {
    is => [ $::Object ],
    instance => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4596	4716	
==>turn $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4608	4728	
==>turn $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible w <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	252	348	
==>rset of round_half_up and
# round_half_down

}

our Int multi Num::round_half_up (Num $x, int $sy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4171	4290	
==>t you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4171	4290	
==>t you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4171	4290	
==>t you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fixed in https://svn <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2386	2495	
==>ote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = su <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2386	2495	
==>ote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = su <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	977	1098	
==>dir to store control MD
$Available      = $Meta . '/available';             # available packages MD
$Altfile        = $Met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14584	14690	
==>l");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick : <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14584	14690	
==>l");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1874	1996	
==>rrent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1874	1996	
==>rrent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1874	1996	
==>rrent_class = $self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1596	1692	
==>SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 06 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1596	1692	
==>SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 06 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3901	4019	
==>macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3901	4019	
==>macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3901	4019	
==>macro_expansion;
    } elsif(defined $f_name && defined $invocant) {
        # XXX - horrid compensation for mm methods <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15647	15783	
==>::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15647	15783	
==>::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15647	15783	
==>::arity { 1 };
sub _MySub::do    { (shift)->(@_) };

sub uniq { 
    # TODO - use p6 hash
    my $array = shift;
    my %seen = ();
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25816	25973	
==>lf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25816	25973	
==>lf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25816	25973	
==>lf->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15022	15201	
==>nstant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15301	15480	
==>nstant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    pu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2775	2879	
==>s,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Find design do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15884	15978	
==>s module provides a system for writing modules that I<compile> other
Perl modules.

Modules tha <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15884	15978	
==>s module provides a system for writing modules that I<compile> other
Perl modules.

Modules tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	23	119	
==>ists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	23	119	
==>ists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	23	119	
==>ists (Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14006	14135	
==>mar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rou <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10179	10308	
==>mar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11015	11144	
==>mar category
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rou <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	2	99	
==>module Foo {...} returns the Foo module object,
# see thread "What do use and require evaluate to? <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5153	5241	
==>hod if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5153	5241	
==>hod if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
meth <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8824	8951	
==>.@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1348	1464	
==>.@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ') <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	368	484	
==>.@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34364	34487	
==>ERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34364	34487	
==>ERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34364	34487	
==>ERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1553	1679	
==>d() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1553	1679	
==>d() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1553	1679	
==>d() {
    var args = new Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6063	6152	
==>:doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6063	6152	
==>:doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6063	6152	
==>:doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2JS.die("Requi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15905	16012	
==>ar_numeric     => sub { p6_Num(${$_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      arra <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1188	1281	
==>de Perl regular expressions

=head1 VERSION

This document describes version 0.03 of re::overr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5538	5653	
==>pen <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5538	5653	
==>pen <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6331	6438	
==>$de_facto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9249	9396	
==>ted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9249	9396	
==>ted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9249	9396	
==>ted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9333	9464	
==>->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "enterin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9333	9464	
==>->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "enterin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9333	9464	
==>->signature_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "enterin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/RawJS.pm	0	124	
==>package PIL::RawJS;

use warnings;
use strict;

sub new { bless \do { my $a = $_[1] } => $_[0] }

sub as_js { ${ $_[0] } }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/RawJS.pm	0	124	
==>package PIL::RawJS;

use warnings;
use strict;

sub new { bless \do { my $a = $_[1] } => $_[0] }

sub as_js { ${ $_[0] } }

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/RawJS.pm	0	124	
==>package PIL::RawJS;

use warnings;
use strict;

sub new { bless \do { my $a = $_[1] } => $_[0] }

sub as_js { ${ $_[0] } }

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4249	4353	
==>unction form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4249	4353	
==>unction form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4249	4353	
==>unction form by mistake; that would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebles <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20680	20804	
==>ush @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20959	21083	
==>ush @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26107	26219	
==>s;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8629	8734	
==>I SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8629	8734	
==>I SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8629	8734	
==>I SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19324	19462	
==>r original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

Length is nparens+1.
startp <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2809	2898	
==>$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $modul <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2809	2898	
==>$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9457	9577	
==>-----------------------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9457	9577	
==>-----------------------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9457	9577	
==>-----------------------------      
    # this collects a unique list of roles 
    # gather recursively, &resolve uses i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3869	4011	
==>= $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BEG <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37867	37963	
==>e've added a C<neg> attribute, and removed both C<type> and C<raw>.  We
will replace them with me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	834	929	
==>0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	834	929	
==>0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	834	929	
==>0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3989	4106	
==>ll <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3989	4106	
==>ll <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3989	4106	
==>ll <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3679	3804	
==>return ::opaque_instance_class(shift)->superclass;
        },                       
        'class_precendence_list' => sub ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7735	7846	
==>ackage, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@u <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1036	1147	
==>ackage, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4671	4781	
==>if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Eg <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4671	4781	
==>if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Eg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6195	6305	
==>if there's already a plan in
place.  You have two options for the plan.  If you pass a pair such as C<tests
=Eg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7730	7873	
==>my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7730	7873	
==>my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7730	7873	
==>my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || $method eq 'decrement' ) <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5126	5223	
==>The C<read> method reads a config file, and returns a boolean value
of success or failure

=item d <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5126	5223	
==>The C<read> method reads a config file, and returns a boolean value
of success or failure

=item d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1499	1610	
==>port_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1499	1610	
==>port_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1579	1690	
==>port_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_number();
    my $line   = "$type <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	325	429	
==>to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	325	429	
==>to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	325	429	
==>to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thing.referencee.FETCH( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	502	665	
==>n";
    my $p;
    my $last = length( $match );
    my $lex = sub {
        my $m;
        my $whitespace_before = 0;

        for ( 1 ) {
            $m = Pugs::Gr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24298	24400	
==>{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20719	20821	
==>{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	384	487	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	384	487	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	384	487	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11190	11342	
==>his to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11190	11342	
==>his to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11190	11342	
==>his to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5557	5663	
==>in('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5557	5663	
==>in('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5557	5663	
==>in('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3578	3699	
==>> '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3578	3699	
==>> '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3578	3699	
==>> '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $self->cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	675	775	
==>ner = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	675	775	
==>ner = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	675	775	
==>ner = value.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30514	30611	
==>e/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35065	35162	
==>e/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34247	34344	
==>e/Mapping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Ma <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18982	19117	
==>gnmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <' <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	191	293	
==>sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	191	293	
==>sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10345	10518	
==>R::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10345	10518	
==>R::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10345	10518	
==>R::CLASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9102	9219	
==>ETHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9102	9219	
==>ETHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9102	9219	
==>ETHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
}));

=pod

- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	123	226	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	123	226	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	123	226	
==>Box.Constant(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9582	9689	
==>ue::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9582	9689	
==>ue::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9582	9689	
==>ue::stringify( $self->key->perl );
                my $value = Perl6::Value::stringify( $self->value->perl ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2765	2873	
==>= sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2765	2873	
==>= sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2765	2873	
==>= sub { $_[0]->{celems}() == Inf } 
        unless defined $param{cis_infinite};
    $param{cis_contiguous} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3533	3659	
==>ed by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3533	3659	
==>ed by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3533	3659	
==>ed by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1690	1808	
==>lor = red ];\n";
    }
    
    if ($class->can('subclasses')) { # roles don't have subclasses
        foreach my $subc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6120	6231	
==>icate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9597	9708	
==>icate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1191	1312	
==>, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1191	1312	
==>, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLeve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1191	1312	
==>, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally {
      // Undo our hack.
      JSAN.errorLeve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6175	6270	
==>te ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6175	6270	
==>te ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6175	6270	
==>te ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2579	2682	
==>rc/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2579	2682	
==>rc/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1816	1920	
==>» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1816	1920	
==>» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	124	227	
==>ON = '0.61';
	@ISA     = qw{Module::Install::Base};
}

# determine if the user needs nmake, and download <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	994	1089	
==>ray)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n). <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	994	1089	
==>ray)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n). <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7003	7108	
==>t "Took: " . (time - $start) . " sec(s)\n";

# read @syn and $syn_indexs
sub read_designdocs {
    my $ddo <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11085	11178	
==>parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11085	11178	
==>parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8993	9126	
==>de]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8993	9126	
==>de]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8993	9126	
==>de]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37706	37829	
==>d $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37706	37829	
==>d $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37706	37829	
==>d $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') ) {
        my $class = ref($array);
        $item = $class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4520	4627	
==>infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4520	4627	
==>infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4520	4627	
==>infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<=>», *@array) <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7890	7994	
==>--exclude=E1,[E2,...]   Exclude files
    --anonymous, -a         Do not include ~/.smoker.yml data in re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9391	9488	
==>rg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SEL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9391	9488	
==>rg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15050	15144	
==>ASS (&dispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class->send('add_method' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16994	17087	
==>localization methodology
in an easily accessable manner, such that would not be possible if it <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16994	17087	
==>localization methodology
in an easily accessable manner, such that would not be possible if it <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13303	13398	
==>fference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13303	13398	
==>fference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12367	12459	
==>span>,</td>
	      <td class="num tests_todo"><span title="<tmpl_var name=todo> todo"><tmpl_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21371	21463	
==>>does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21371	21463	
==>>does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21371	21463	
==>>does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15080	15225	
==>h of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19255	19400	
==>h of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3242	3382	
==>ndle;
            push @$subdirs, $dir if -d $dir;
            delete $prereq->{$file};
        }
    }

    if ( my $perl_version = $self->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8432	8541	
==>::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8432	8541	
==>::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8432	8541	
==>::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4617	4718	
==>_is_array {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub field_i <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	887	984	
==>rent 
character encodings may be enciphered in different ways.

=head2 Using the API

The Cipher A <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	887	984	
==>rent 
character encodings may be enciphered in different ways.

=head2 Using the API

The Cipher A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2522	2668	
==>){
                    $self->array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($siz <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1523	1654	
==>p::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1534	1665	
==>p::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5212	5311	
==>Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, dep <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5212	5311	
==>Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, dep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6736	6835	
==>Bit ( Bit $passed, Str $description?, Str $reason? )>

Records that a test has passed or failed, dep <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	310	421	
==>r") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	310	421	
==>r") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	310	421	
==>r") {
    $self.key eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3125	3283	
==>ort {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3125	3283	
==>ort {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4649	4807	
==>ort {
     if $todo {
        $Test.todo($passed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	64	178	
==>str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	64	178	
==>str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	64	178	
==>str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11289	11414	
==><CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNumericLiteral {  # see 9.3.1
      <StrDecimalLiteral>
    | <Hex <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	214	322	
==>port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is e <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	214	322	
==>port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1536	1640	
==>Table()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{$relati <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13081	13197	
==>\" goto addchar
  backslash:
    inc pos
    $S0 = substr target, pos, 1
    $I0 = index "nrtfae0", $S0
    if $I0 == <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12267	12366	
==>alue )

Set the specified header to the given value, but only if no previous
value for that field is <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12267	12366	
==>alue )

Set the specified header to the given value, but only if no previous
value for that field is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5063	5231	
==>]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5063	5231	
==>]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	850	968	
==>};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	904	1007	
==>Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLI <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	904	1007	
==>Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1451	1554	
==>Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7627	7764	
==>=> 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7627	7764	
==>=> 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5927	6114	
==>> $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5927	6114	
==>> $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5927	6114	
==>> $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	871	995	
==>e strict;
use warnings;
#use Smart::Comments; #for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use Pad <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	74	193	
==>e strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use Pad <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	74	193	
==>e strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm
use Data::Dumper;
use Pad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1464	1566	
==>le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1464	1566	
==>le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1464	1566	
==>le»",   2, "S", "String(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2348	2489	
==>Method
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2348	2489	
==>Method
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2348	2489	
==>Method
          Perl6.MetaClass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12538	12675	
==>md->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12532	12669	
==>md->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	434	570	
==>E'})) {
            my ($p,$v)=split('=',$_);
            CookiesAdd($p,$v);
        }
    }
}

sub CookiesHeader() {
    my $header = '' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12343	12445	
==>g( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12343	12445	
==>g( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedTex <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1144	1255	
==>d.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1144	1255	
==>d.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4683	4798	
==>$tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4683	4798	
==>$tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32013	32102	
==>descendant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	584	686	
==>uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	584	686	
==>uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	584	686	
==>uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 20 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11103	11206	
==>ex

You can use the qr() method to get back a F<Regexp> object:

  my $real_rx = $parser->qr;

The regex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9350	9440	
==>h @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3175	3265	
==>h @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4456	4607	
==>, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and red <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1873	1992	
==>e)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1873	1992	
==>e)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11685	11783	
==>since they
are just instances of Class which does Role too. So this means that all classes
and role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11685	11783	
==>since they
are just instances of Class which does Role too. So this means that all classes
and role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11685	11783	
==>since they
are just instances of Class which does Role too. So this means that all classes
and role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	709	798	
==>Class ]);

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	709	798	
==>Class ]);

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	709	798	
==>Class ]);

## ---------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4595	4699	
==>, '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4410	4512	
==>, '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var." <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13947	14046	
==>EN (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7181	7308	
==>array = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7181	7308	
==>array = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7181	7308	
==>array = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = new PIL2JS.Box(un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5234	5369	
==>ame =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5246	5381	
==>ame =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless re <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9133	9260	
==>bleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\"\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	699	885	
==>code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	699	885	
==>code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	699	885	
==>code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($str) { # XXX - <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	581	704	
==>ing ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escap <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	581	704	
==>ing ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	59	158	
==>e::Perl5;
our %nodes;

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1902	2055	
==>>{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1902	2055	
==>>{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1902	2055	
==>>{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subn <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2191	2293	
==>e Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2913	3011	
==>t.  The order in which they were
present in the query string is preserved.

=item C<$q.param()>

Th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2913	3011	
==>t.  The order in which they were
present in the query string is preserved.

=item C<$q.param()>

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	483	609	
==>ibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	483	609	
==>ibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	483	609	
==>ibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12638	12752	
==>, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

sub pro <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15740	15852	
==>al;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2137	2249	
==>al;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    re <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	861	966	
==>, (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	861	966	
==>, (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1513	1609	
==>e SPEC grammar SHOULD NOT BE CHANGED to accommodate the characteristics
#  of particular regex en <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13310	13456	
==>nal todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional skip with optional reason
REGEX

sub _is_header {
    my($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	156	255	
==>am prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	156	255	
==>am prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	6	150	
==>gnment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	6	150	
==>gnment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	6	150	
==>gnment.
package PIL::PAssign;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unles <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1552	1662	
==>.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1552	1662	
==>.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15812	15913	
==>er' => (symbol->new(':descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17825	17918	
==>{...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17825	17918	
==>{...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17825	17918	
==>{...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9863	9973	
==>names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9863	9973	
==>names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9863	9973	
==>names6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1325	1475	
==>$quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1325	1475	
==>$quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	4	97	
==>sr/bin/perl

package Blondie::Backend::Perl;
use base qw/Blondie::Runtime/;

use strict;
use w <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10986	11081	
==>m B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10986	11081	
==>m B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5617	5719	
==>l2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5617	5719	
==>l2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5617	5719	
==>l2js.pl -o test.js test.pl
  \$ ./pil2js.pl -o test.js test.pil
  \$ ./pil2js.pl --link=js   -o full.js <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10045	10138	
==>iven backend (normal
    Haskell runcore, <a
    href="http://svn.openfoundry.org/pugs/perl5/P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26074	26220	
==>) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26074	26220	
==>) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26074	26220	
==>) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16688	16800	
==>( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16688	16800	
==>( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub b <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16688	16800	
==>( ord($c) - 1 );
}

package Perl6::Value::Bit;

# built-in, unboxed 'bit' enums
sub bool::false      { '' }
sub b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10205	10335	
==>ot.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10205	10335	
==>ot.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10205	10335	
==>ot.
        return bless sub {
            confess "Cannot call private method from different class"
                unless defined <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13555	13667	
==>ubset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SEL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17032	17144	
==>ubset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SEL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16394	16506	
==>ubset of the
        # second source's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SEL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1972	2102	
==>ity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1972	2102	
==>ity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1972	2102	
==>ity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  unde <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17354	17471	
==>nalyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = "\n.namespace [ \""
    $P0 .= <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5803	5898	
==>ntext

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP statu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5803	5898	
==>ntext

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP statu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5221	5313	
==>FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5221	5313	
==>FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5221	5313	
==>FETCH: at ($i) $pos -- @_ -- ".Perl6::Value::stringify($self->{array}->fetch( $pos, @_ ))."\n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18029	18258	
==>mon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21506	21735	
==>mon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21093	21322	
==>mon_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	236	340	
==>sg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	236	340	
==>sg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	236	340	
==>sg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7263	7390	
==>ined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7263	7390	
==>ined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2194	2301	
==>Y>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2194	2301	
==>Y>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14420	14509	
==>(Cmd,[C,10]), !, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)), <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4764	4864	
==>d contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4764	4864	
==>d contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6961	7061	
==>d contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::B <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11103	11226	
==>re = 1
    inc pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17626	17729	
==>rnal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.l <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17626	17729	
==>rnal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15037	15168	
==>rclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15037	15168	
==>rclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15037	15168	
==>rclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2225	2390	
==>.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    re <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2225	2390	
==>.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2315	2484	
==>hash_existsElem => sub {
                my $self = shift;
                my $idx = shift;
                exists $self->hash_fetch->{$idx};
            },
            h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20234	20372	
==>t our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20234	20372	
==>t our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20234	20372	
==>t our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Clas <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7537	7623	
==>l6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1362	1448	
==>l6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1168	1334	
==>it!
my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5259	5357	
==>etch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5259	5357	
==>etch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	413	517	
==>ETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	413	517	
==>ETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	413	517	
==>ETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitive is rw {
  JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28275	28435	
==>) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28275	28435	
==>) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28275	28435	
==>) {
                    if ( Perl6::Value::numify( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ', ', @start, @end <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	38	144	
==>outines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	38	144	
==>outines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	38	144	
==>outines, blocks, thunks.
# Back on days 1 and 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2327	2432	
==>}

method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2327	2432	
==>}

method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1632	1763	
==>s = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1632	1763	
==>s = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1632	1763	
==>s = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->superclasses}, 
                $:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3931	4064	
==>ists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _em <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12451	12547	
==>st to the parameter.
If both previous and next elements are at the same distance, returns the pre <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12451	12547	
==>st to the parameter.
If both previous and next elements are at the same distance, returns the pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3634	3849	
==>oin(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3634	3849	
==>oin(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3634	3849	
==>oin(", ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

= <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1345	1475	
==>rn $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { r <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1345	1475	
==>rn $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7937	8088	
==>t->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = rever <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7937	8088	
==>t->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = rever <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7937	8088	
==>t->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8082	8232	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8082	8232	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8082	8232	
==>description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs => [ '$.a', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10772	10871	
==>ll broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10772	10871	
==>ll broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10772	10871	
==>ll broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@incdirs,$dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2992	3106	
==>pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2992	3106	
==>pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2992	3106	
==>pairs.length; i++)
        hash.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13530	13641	
==>y string:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24951	25047	
==>edText::Message Class

A Message object is a simple container which stores data to be used or
dis <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24951	25047	
==>edText::Message Class

A Message object is a simple container which stores data to be used or
dis <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	100	230	
==>t program to prepare it for running.
# Now instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib';
# }
#
# t/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5860	5951	
==>nterface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identit <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5860	5951	
==>nterface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6322	6439	
==>e   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6322	6439	
==>e   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpD <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6322	6439	
==>e   = $self->name;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpD <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40135	40240	
==>string.

=head1 ERROR HANDLING

=head2 Creating Custom Messages

It is probably easiest to follow my modul <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16741	16840	
==>s for calling code to output as it sees fit.  It
also does not make direct use of environment variab <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16741	16840	
==>s for calling code to output as it sees fit.  It
also does not make direct use of environment variab <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36468	36561	
==>e( $message! )>

This method takes a (machine-readable) Message object as its positional
param <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36468	36561	
==>e( $message! )>

This method takes a (machine-readable) Message object as its positional
param <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	39	127	
==>nd::C::Emitter;
use base qw/Blondie::Emitter Blondie::Reducer::DynamicScoping/;

use stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4677	4789	
==>::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4677	4789	
==>::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4677	4789	
==>::opaque_instance_class($self)->isa($class_name) 
        # however, we need to not do this 
        # for $::Cla <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20396	20490	
==>Relation is entirely object-oriented; you use it by
creating objects from its member classes, u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24948	25042	
==>Relation is entirely object-oriented; you use it by
creating objects from its member classes, u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6788	6904	
==>KUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6788	6904	
==>KUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6788	6904	
==>KUP) = $self->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4107	4243	
==>} @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4107	4243	
==>} @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4107	4243	
==>} @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@js <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	588	690	
==>sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	588	690	
==>sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
mu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	588	690	
==>sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - string versions
mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6789	6892	
==>pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6789	6892	
==>pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6789	6892	
==>pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION'] = _24main_3a_3a_3fPOSITION;
      pad['\$_' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7207	7306	
==>ibute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7207	7306	
==>ibute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7207	7306	
==>ibute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaqu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2514	2674	
==>:alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2525	2685	
==>:alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3429	3542	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11258	11383	
==>1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11258	11383	
==>1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11258	11383	
==>1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this;
    return u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8365	8475	
==>"Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8365	8475	
==>"Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8365	8475	
==>"Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Litt <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3084	3189	
==>k ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3084	3189	
==>k ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4608	4713	
==>k ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $description, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3555	3673	
==>trs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11345	11437	
==>et_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B< <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11345	11437	
==>et_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22809	22916	
==>re :)
    unbox($self).class
}

(method class ((opaque $self:)) returns opaque 
    ($self: class))

=cut

$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1273	1365	
==>ILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1273	1365	
==>ILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	678	791	
==>ail(),

           and it should not backtrack or whatever



Continuations are used for backtracking.



A "ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10546	10659	
==>ail(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	651	759	
==>ail(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ruleo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5374	5562	
==>},
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5374	5562	
==>},
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5374	5562	
==>},
            'keys' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $ke <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	844	967	
==>o have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4322	4445	
==>o have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3216	3339	
==>o have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3061	3211	
==>%config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new value if pr <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	15	120	
==>Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_eleme <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	15	120	
==>Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_eleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3006	3148	
==>cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3006	3148	
==>cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3006	3148	
==>cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3911	4012	
==>etting the passed parameter to a true value. 

If this parameter is false, the factory returns a Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3911	4012	
==>etting the passed parameter to a true value. 

If this parameter is false, the factory returns a Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6108	6209	
==>etting the passed parameter to a true value. 

If this parameter is false, the factory returns a Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5991	6074	
==>LICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5991	6074	
==>LICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5991	6074	
==>LICE UNBIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringif <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4499	4594	
==>returns the I<result>
object; this is normally the entire match string, but may be arbitrary
obj <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4499	4594	
==>returns the I<result>
object; this is normally the entire match string, but may be arbitrary
obj <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	393	551	
==>=~ /^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack underflow\n";
        m <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1790	1913	
==>f<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1790	1913	
==>f<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28899	29005	
==>new attributes having the same names as old
attributes that become wrapped, and it supports having new tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33451	33557	
==>new attributes having the same names as old
attributes that become wrapped, and it supports having new tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32588	32694	
==>new attributes having the same names as old
attributes that become wrapped, and it supports having new tupl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13950	14069	
==>class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13950	14069	
==>class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13950	14069	
==>class1 'MultiSub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {
        at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	356	462	
==>erlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	356	462	
==>erlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	356	462	
==>erlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement() works
# * Migrated t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2703	2831	
==>class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2703	2831	
==>class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2703	2831	
==>class eq 'Bit' && ! ref( $tmp );
        warn "can't coerce $x to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1435	1553	
==>gs) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1435	1553	
==>gs) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1435	1553	
==>gs) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2166	2272	
==>ment zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interfa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2166	2272	
==>ment zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interfa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2166	2272	
==>ment zero)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interfa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4866	4964	
==>n is, of course, incorrect. There is *no* attention
# paid to the associativity of the original ope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4866	4964	
==>n is, of course, incorrect. There is *no* attention
# paid to the associativity of the original ope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4866	4964	
==>n is, of course, incorrect. There is *no* attention
# paid to the associativity of the original ope <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8232	8362	
==>cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8232	8362	
==>cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => ch <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	545	651	
==>);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($filename);
}

sub pretty_print { <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1618	1722	
==>le::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1618	1722	
==>le::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3099	3294	
==>); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3099	3294	
==>); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3099	3294	
==>); # XXX - MM2.0 gc workaround
        },
        methods => { 

            # %a := %b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14698	14811	
==>pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @params = @_;
    push @{ $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13360	13465	
==>/__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3, <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13360	13465	
==>/__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11630	11779	
==>) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15107	15256	
==>) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in co <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14442	14591	
==>) {
        for @sources -> $r2 {
            die "The heading of at least one given relation in @others has"
                    ~ " attributes in co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	415	511	
==>head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	415	511	
==>head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	971	1067	
==>head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DESCRIPT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	632	736	
==>Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	632	736	
==>Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	632	736	
==>Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1925	2031	
==>nature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1925	2031	
==>nature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/mult <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1925	2031	
==>nature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's methods/mult <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2092	2196	
==>@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2092	2196	
==>@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6695	6813	
==>1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_dat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6695	6813	
==>1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_dat <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19546	19672	
==>r);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - suffic <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4936	5041	
==>es?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4936	5041	
==>es?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9001	9117	
==>ubrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alte <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12859	12970	
==>ubrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12859	12970	
==>ubrule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alte <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3683	3808	
==>:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3683	3808	
==>:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12318	12468	
==>or in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8594	8744	
==>or in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9429	9579	
==>or in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2107	2209	
==>tified_construct> }
rule quantified_construct  {  <construct_but_not_alias> <quantifier>  }

rule simpl <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14758	14855	
==>e expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14816	14913	
==>e expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	411	519	
==>it.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	411	519	
==>it.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	411	519	
==>it.
    $args6 = join(",",map{"'$_'"} split(/\s*,\s*/,$args6));
    my $my_args = $args =~ /\A\s*\Z/ ? "" : " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	155	260	
==>b JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	155	260	
==>b JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied fro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	155	260	
==>b JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16018	16152	
==>rep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16018	16152	
==>rep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16018	16152	
==>rep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $code->($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12326	12519	
==>$flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12320	12513	
==>$flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14756	14878	
==>CALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1097	1197	
==>$attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1097	1197	
==>$attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1097	1197	
==>$attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_container($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22373	22533	
==>p->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22373	22533	
==>p->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22373	22533	
==>p->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        #warn "FETCHE <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19894	20116	
==>y $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40354	40576	
==>y $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->g <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	402	505	
==>foo does Foo;
 my $role = Role.new("Foo");
 my $newclass = Class.new($class);
 $newclass.does($role);
 $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3641	3761	
==>Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3641	3761	
==>Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20691	20793	
==>egexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14722	14817	
==>ose();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14722	14817	
==>ose();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8141	8272	
==>}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! define <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8129	8260	
==>}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! define <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1502	1627	
==>:Dependency->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13183	13295	
==>elf = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	593	705	
==>elf = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11846	11976	
==>b6/$_";
        }
      }
    };

  step
    descr  => "Copying Parrot include files to the initrd",
    ensure => sub { -r "$initr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1577	1684	
==>ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1577	1684	
==>ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-co <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2671	2797	
==>ex {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$type} }, @_ if $type;
    return $s <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1614	1730	
==>f $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistic <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1614	1730	
==>f $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1404	1506	
==>xpand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1404	1506	
==>xpand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1404	1506	
==>xpand {
    "p6_new('Num','$_[0][0]')";
}
package VNum; @ISA = qw(EvalX::BaseClass); sub expand {
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1056	1172	
==>ks :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1056	1172	
==>ks :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1056	1172	
==>ks :)
    my OpaqueInstance $self = create_opaque_instance(\$class, %attrs);              
    # and now return it .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	142	250	
==>l).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	142	250	
==>l).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	142	250	
==>l).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8451	8589	
==>shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8451	8589	
==>shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8451	8589	
==>shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4629	4797	
==>ethod_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4629	4797	
==>ethod_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4629	4797	
==>ethod_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $met <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2646	2758	
==>section( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.den <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2646	2758	
==>section( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.den <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34064	34157	
==>of_char (C<X>)

Data: actual character

=head2 anyof_range

Family: anyof_range

Types: anyof_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2696	2819	
==>fined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2696	2819	
==>fined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2696	2819	
==>fined ==> It's a call to a Perl 6 func.
    # undefined         ==> We don't know at compile-time.

    # Call to JS::foo? = <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4825	4925	
==>ter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= C <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4825	4925	
==>ter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= C <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	314	437	
==>& error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Met <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1539	1662	
==>& error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52806	52899	
==>add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new('%:namespace' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5403	5510	
==>bjetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5403	5510	
==>bjetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5403	5510	
==>bjetcs, for example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	376	479	
==>eric_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	376	479	
==>eric_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CAL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	376	479	
==>eric_return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	905	1027	
==>se_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5', <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	905	1027	
==>se_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5', <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	905	1027	
==>se_class($ct, @_) },
		    perl_can => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2289	2390	
==>oxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2289	2390	
==>oxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2289	2390	
==>oxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11879	12006	
==>pper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11873	12000	
==>pper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $pre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4723	4869	
==>evious versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        fo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4735	4881	
==>evious versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1451	1581	
==>|| confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1451	1581	
==>|| confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1451	1581	
==>|| confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5267	5397	
==>ile($index);
        my $meta = $pkg->meta->to_struct;
        
        # add the archive path to the package's meta info
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9438	9566	
==>ype eq $self->type;
    push @{ $prev->{data} }, @{ $self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($sel <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2622	2737	
==>s_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12028	12196	
==>y ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12028	12196	
==>y ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12028	12196	
==>y ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->para <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1847	1959	
==>oo slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$remainder) = Te <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1774	1881	
==>oo slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$remainder) = Te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2274	2422	
==>gex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    }
};
';
    return $program <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3070	3183	
==>ine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3548	3661	
==>ine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8453	8595	
==>ift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF va <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8453	8595	
==>ift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF va <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8453	8595	
==>ift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1783	1908	
==>l5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1976	2101	
==>l5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	67	170	
==>t 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5747	5841	
==>e Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5747	5841	
==>e Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

Thi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11908	12050	
==>)
=cut

=for later
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before} <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14229	14331	
==>s, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for exampl <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14229	14331	
==>s, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for exampl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11636	11744	
==>LATIN CAPITAL LETTER R}';
  my $qr = qr/$rx/;

Perl's regex interprets the '\N' as a needlessly backslashed ' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1630	1734	
==>ld all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1630	1734	
==>ld all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7230	7330	
==>turn join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7230	7330	
==>turn join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7230	7330	
==>turn join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49625	49764	
==>bol->new('authority'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3074	3192	
==>.z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3074	3192	
==>.z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28476	28615	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28755	28894	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	566	688	
==>_;

    my $self = {};
    if( ref $thing eq 'GLOB' ) {
        bless $self, 'Test::Harness::Iterator::FH';
        $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5545	5642	
==>c(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5545	5642	
==>c(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5545	5642	
==>c(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6_to_s($xx)) ) };
MULTI SUB ca <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4577	4673	
==>&Array::splice<Array>.assuming(offset(-1) :length(1));

 multi Array::pop ( --> Scalar ) {
   pop <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	799	893	
==>DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	825	919	
==>DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1928	2031	
==>nceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1928	2031	
==>nceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1928	2031	
==>nceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Constant(a.referencee == b.referencee));
    } else if(!(a i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11786	11893	
==>can be polymorphic to one another. 

Because instances of class all conform to the Role interface/API they a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11786	11893	
==>can be polymorphic to one another. 

Because instances of class all conform to the Role interface/API they a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11786	11893	
==>can be polymorphic to one another. 

Because instances of class all conform to the Role interface/API they a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1174	1275	
==>the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1174	1275	
==>the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1254	1355	
==>the first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	634	743	
==>O - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	634	743	
==>O - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4074	4169	
==>TA, die_on_bad_params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(print_to = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3889	3991	
==>alled for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3889	3991	
==>alled for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3889	3991	
==>alled for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2252	2359	
==>k is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2252	2359	
==>k is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2252	2359	
==>k is semantically relatively harmless, as &b should
  # be our() anyway.
  # This hack does not fix this pro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1126	1259	
==>ram - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1126	1259	
==>ram - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1126	1259	
==>ram - PIL gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18525	18699	
==>BUILD'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_ni <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8955	9067	
==>elf.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8955	9067	
==>elf.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28448	28541	
==>ping> says which attributes are being combined/wrapped, with
its keys being the new tuple-valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33000	33093	
==>ping> says which attributes are being combined/wrapped, with
its keys being the new tuple-valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32128	32221	
==>ping> says which attributes are being combined/wrapped, with
its keys being the new tuple-valu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12119	12242	
==>n->{exp1};
        return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _not_implemented( $n, "circumfix" );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7853	7963	
==>re       - capture then entire match. For example:

  

  # returns a Match object that has the 'capture' field <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7587	7695	
==>re       - capture then entire match. For example:
  
  # returns a Match object that has the 'capture' field <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3559	3654	
==>ould prevent the Perl 6 compiler
from bootstrapping. 

If that is the case, running C<Makefile.P <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9196	9278	
==>p5_charset_items_opt([Item1|MoreItems]) --> p5_charset_item(Item1), p5_charset_item <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1595	1714	
==>ernatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns an <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5240	5396	
==>gth >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tai <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5240	5396	
==>gth >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tai <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3223	3332	
==>ken{syncat} = PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2239	2417	
==>) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2239	2417	
==>) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2239	2417	
==>) 
            },
            'bit' =>  sub { 
                #warn "Junction.bit() not implemented";
                my @ary = @{_('$.things')};
                my $type = _('$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5610	5707	
==>ny_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5610	5707	
==>ny_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5610	5707	
==>ny_step($things, 0, $sub);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1927	2027	
==>eractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder::Output-0.2.1;
  
  has <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	329	425	
==>erldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwo <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	329	425	
==>erldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8311	8396	
==>=================================================================

use FindBin;
use Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8311	8396	
==>=================================================================

use FindBin;
use Fi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8311	8396	
==>=================================================================

use FindBin;
use Fi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18146	18257	
==>META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1612	1714	
==>procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some:: <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1612	1714	
==>procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1280	1396	
==>print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">" <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	939	1048	
==>ugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	939	1048	
==>ugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TO <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	452	568	
==>g =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run som <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	568	678	
==>g =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run som <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	321	422	
==>ring {my($o)=@_;$$o->{'val_string'}}
sub as_array  {my($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1898	2001	
==>nebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1898	2001	
==>nebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1898	2001	
==>nebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33348	33541	
==>}
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33348	33541	
==>}
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33348	33541	
==>}
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7114	7243	
==>erms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7307	7436	
==>erms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3680	3793	
==>ref) {
	return 'str' if !((~$x & $x) eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($re <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	202	301	
==>warnings;
use strict;

use GD::Graph::lines;
use Time::Piece;
use Time::Seconds;

local $_;
my $num_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36406	36500	
==>te module
names that it will search.

=item C<translate_message( $message! )>

This method take <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36406	36500	
==>te module
names that it will search.

=item C<translate_message( $message! )>

This method take <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24846	24967	
==>sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21267	21388	
==>sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28582	28674	
==>le::KeyedText doesn't define any "Template" modules, but it expects you
to make modules havin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28582	28674	
==>le::KeyedText doesn't define any "Template" modules, but it expects you
to make modules havin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14153	14300	
==>"ref") },
      glob  => sub { $as_array_complain->("glob") },
      lvalue => sub { p6_as_array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6311	6439	
==>w!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junct <==
3	/Users/nnunley/pugs/misc/IDE-support/server.pl	43	146	
==>}

my $m = $src ~~ rx/oo/;
say "(mapcar 'delete-overlay (overlays-in (point-min) (point-max)))";
say "(o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	567	700	
==>y $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	567	700	
==>y $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	567	700	
==>y $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3199	3334	
==>$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    sub $id\n" . emit($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4980	5072	
==>::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4980	5072	
==>::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12829	12939	
==>thods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitiv <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12829	12939	
==>thods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitiv <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12829	12939	
==>thods are implemented in List.pm but are not exposed here,
            # they are going to be moved to Primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1026	1140	
==>my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1026	1140	
==>my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1026	1140	
==>my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile multiple fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8534	8713	
==>$a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8534	8713	
==>$a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8534	8713	
==>$a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6377	6493	
==>},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6377	6493	
==>},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6377	6493	
==>},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2944	3057	
==>. p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2944	3057	
==>. p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2944	3057	
==>. p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29536	29654	
==>e inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIG <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29536	29654	
==>e inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIG <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	348	458	
==>e inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIG <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2243	2344	
==>TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2243	2344	
==>TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4740	4837	
==>set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @inter <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4740	4837	
==>set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @inter <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15110	15201	
==>sion> <'+'> <MultiplicativeExpression>
    | <AdditiveExpression> <'-'> <MultiplicativeExpre <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1954	2042	
==>dino Garcia  for Language::Prolog::Yaswi,
    http://search.cpan.org/~salva/Language-Prol <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15889	15975	
==>=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? ) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15889	15975	
==>=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23503	23601	
==>gs, because you do not
want to accidentally affect the previous scope's flag values.  

Here is exa <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1153	1245	
==>ath = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{lo <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1153	1245	
==>ath = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{lo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12247	12343	
==>optional
hierarchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attrib <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12247	12343	
==>optional
hierarchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	665	767	
==>[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	665	767	
==>[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	665	767	
==>[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19885	19981	
==>fterwards.

If you want something similar but that is more mutable, you can accomplish
that manua <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24437	24533	
==>fterwards.

If you want something similar but that is more mutable, you can accomplish
that manua <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22989	23085	
==>fterwards.

If you want something similar but that is more mutable, you can accomplish
that manua <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	291	405	
==>if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	291	405	
==>if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5225	5328	
==>t->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir $dir;

Returns all th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12936	13037	
==>) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12936	13037	
==>) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12936	13037	
==>) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xx <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5244	5360	
==>= emit_Assign( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4389	4485	
==>+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4389	4485	
==>+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2260	2393	
==>->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2260	2393	
==>->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2260	2393	
==>->[0]->unwrap->{pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1708	1809	
==>o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1708	1809	
==>o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1708	1809	
==>o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)=@_; eval {p6_to_s($o->perl)} || p6_to_s($o) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18392	18492	
==>,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18392	18492	
==>,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18392	18492	
==>,$xx1) {...};
MULTI SUB infix:[=>] ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
M <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7717	7838	
==>orkaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7717	7838	
==>orkaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8194	8314	
==>encies
    {   open my $fh, $self->files_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $self->con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15183	15355	
==>cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( ex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15177	15349	
==>cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10959	11064	
==>'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10959	11064	
==>'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10959	11064	
==>'\$.body' => $subdef)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1624	1793	
==>pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1624	1793	
==>pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1624	1793	
==>pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          and
      $self->{pInv}->{pLV}->i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12685	12828	
==>tta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12685	12828	
==>tta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5351	5499	
==>le( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5573	5721	
==>le( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3233	3376	
==>{
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        wa <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4739	4872	
==>.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_contin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4739	4872	
==>.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_contin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26435	26521	
==>= ($Language::Prolog::Yaswi::Low::args[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:qu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2132	2240	
==>}

sub constructor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1618	1710	
==>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::G <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1618	1710	
==>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::G <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17194	17340	
==>_all          if the whole test was skipped, this will 
                      contain the reason.

  ok                number of tests which passed <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10120	10255	
==>f (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } els <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10120	10255	
==>f (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } els <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1544	1699	
==>sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            m <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1544	1699	
==>sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9316	9424	
==>(@kv,"$k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7946	8065	
==>$child->type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	242	328	
==>:P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	242	328	
==>:P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)} <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	296	393	
==>r_keys = qw<
    name module_name version abstract author license
    distribution_type perl_versi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1467	1554	
==>:num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1467	1554	
==>:num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26356	26524	
==>=> $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	803	908	
==>k)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use N <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	803	908	
==>k)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14942	15042	
==>x));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14942	15042	
==>x));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14942	15042	
==>x));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11898	12050	
==>1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11898	12050	
==>1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       | <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11898	12050	
==>1] =~ /^_/) {           
            my $method =  $::CLASS->get_method($_[1], for => 'private')          # for instance methods
                       | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4458	4554	
==>::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4458	4554	
==>::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4458	4554	
==>::Namespace. This completely overrides whatever blessing they had
before.

=item B<rebase>

    C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5023	5185	
==>tch->from ),
                to    => \( $match->to ),
                named => {},
                match => [ $match ],
            }, 'Pugs::Runtime::Match:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15691	15788	
==>ersa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPY <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15691	15788	
==>ersa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPY <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8533	8667	
==>ode assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8533	8667	
==>ode assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23271	23371	
==>ion

=head2 flags

=head1 Execution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SEE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2853	2965	
==>lf, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2853	2965	
==>lf, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2853	2965	
==>lf, $label, $attribute) = @_;
    ::opaque_instance_attr($self => '%:attributes')->{$label} = (
        defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4538	4639	
==>0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4538	4639	
==>0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4538	4639	
==>0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9425	9544	
==>rgs.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9425	9544	
==>rgs.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9425	9544	
==>rgs.shift();
    var cc    = args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var o <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1896	2022	
==>m;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
}
sub _indent {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6532	6628	
==>de_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xR <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6532	6628	
==>de_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xR <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1334	1430	
==>:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!member <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1334	1430	
==>:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!member <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	74	187	
==>et;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $do <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	74	187	
==>et;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1384	1493	
==>:extract_delimited( "/" . $remainder, "/" );
    $extracted2 = substr( $extracted2, 1, -1 ) if length($extract <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1004	1107	
==>(hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' usin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1004	1107	
==>(hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' usin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1004	1107	
==>(hash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' usin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8296	8460	
==>ort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8296	8460	
==>ort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17986	18091	
==>em split

 multi Str::split (  Str $delimiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1859	2024	
==>" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1859	2024	
==>" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1859	2024	
==>" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq 'one';             
                Str->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4571	4693	
==>->{'%:methods'}->{$label} = $method;
        },               
    },
);

# The 'EigenClass' class
$EigenClass = ::create_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	115	214	
==>s;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	115	214	
==>s;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	393	497	
==>ject, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psy <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	393	497	
==>ject, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psy <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	393	497	
==>ject, Package and Module. It was also created
# by God (which means it is part of the core model)
#
# psy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19429	19523	
==>) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19429	19523	
==>) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19429	19523	
==>) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($x <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	719	833	
==>tional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cm <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	719	833	
==>tional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cm <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	551	691	
==>my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq '+') {
            push @stack, $y + $x;
        } els <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4112	4244	
==>is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4124	4256	
==>is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and captu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	924	1020	
==>s.  This is "early" method binding.

=head1 NOTES

Perhaps this class should be called MethodBind <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5253	5348	
==>ns a hash reference representing the configuration data

=item write

The C<write> method the fi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5253	5348	
==>ns a hash reference representing the configuration data

=item write

The C<write> method the fi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	443	647	
==>_arr;
            }
            else {
                push @{$subexp} => $new_arr;
            }
            push @{$stack} => $new_arr;
        }
        elsif ($token eq ')') {
            pop @{$stack} <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	48	146	
==>PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	48	146	
==>PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10488	10639	
==>_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10488	10639	
==>_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10488	10639	
==>_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14165	14270	
==>rname and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No tra <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14165	14270	
==>rname and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No tra <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19476	19599	
==>sic::sleep ( Num $for = Inf --> Num )
{
    Pugs::Internals::sleep($for);
}


# die 

# fail


# bless 

# chr

# ord


 mul <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19674	19768	
==>format that will be much easier for a non-programmer to edit.
But the current Perl-based soluti <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19674	19768	
==>format that will be much easier for a non-programmer to edit.
But the current Perl-based soluti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	610	753	
==>ASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	698	841	
==>ASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	695	833	
==>ASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2542	2664	
==>tch}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capt <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4955	5066	
==>^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4955	5066	
==>^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	413	523	
==>};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build- <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	433	534	
==>};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5166	5266	
==>"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "par <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	48	152	
==>--
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ---------- <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	48	152	
==>--
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ---------- <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2139	2271	
==>extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2139	2271	
==>extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23571	23685	
==>mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23571	23685	
==>mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23571	23685	
==>mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	134	231	
==>hing definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	134	231	
==>hing definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	134	231	
==>hing definitive.

=cut


::Class.meta.add_method('new', method (%params) returns Class { 
    $?CL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	175	292	
==>ey = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	175	292	
==>ey = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4624	4711	
==>ef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
su <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	448	704	
==>ram('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Bac <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1414	1548	
==>path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1414	1548	
==>path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12363	12472	
==>ub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12363	12472	
==>ub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12363	12472	
==>ub { Int->new( '$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1406	1534	
==>@_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1982	2110	
==>@_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4659	4784	
==>,
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7382	7507	
==>,
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { ' <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3150	3310	
==>od from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3150	3310	
==>od from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1041	1147	
==>print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1041	1147	
==>print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4595	4699	
==>This parameter is for the skip and TODO tests and should contain
a string describing why the test is a sk <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4595	4699	
==>This parameter is for the skip and TODO tests and should contain
a string describing why the test is a sk <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6792	6896	
==>This parameter is for the skip and TODO tests and should contain
a string describing why the test is a sk <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	851	956	
==>ks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = N <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	851	956	
==>ks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29852	29950	
==>without a matching left parenthesis '('; if there is an extra ')'
a fatal error is thrown.  However <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4416	4561	
==>'$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4416	4561	
==>'$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4416	4561	
==>'$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unb <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4775	4884	
==>already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4634	4743	
==>already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16777	16865	
==>0,E1).

rm(intersection(Re1,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6531	6616	
==>('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6531	6616	
==>('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6531	6616	
==>('$:authority' => ::make_attribute('$:authority'));

$::Module->add_method('version' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7310	7424	
==>um => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7310	7424	
==>um => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7310	7424	
==>um => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULT <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8333	8432	
==>et::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.strin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8333	8432	
==>et::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	14	114	
==>ternals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	14	114	
==>ternals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	14	114	
==>ternals::generic_deref($thing) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4041	4155	
==>s.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4041	4155	
==>s.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4041	4155	
==>s.
        my $fn = $f_name; $fn =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1238	1355	
==>sif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $now_na <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6397	6506	
==>de_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6397	6506	
==>de_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15844	15989	
==>] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15844	15989	
==>] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15844	15989	
==>] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	540	661	
==>OS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creati <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	540	661	
==>OS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creati <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	927	1044	
==>7 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gon <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	927	1044	
==>7 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gon <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8134	8227	
==>considered single dimensional. If it is in fact multi-
dimensional, the values returned will b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11206	11413	
==>ps::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	13	141	
==>ock_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	13	141	
==>ock_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return blo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13512	13616	
==>ntainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13512	13616	
==>ntainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13512	13616	
==>ntainer::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5214	5318	
==>$::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) })) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5214	5318	
==>$::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) })) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5214	5318	
==>$::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) })) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8431	8570	
==>CE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8431	8570	
==>CE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8431	8570	
==>CE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hack to rebind the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10522	10663	
==>sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10522	10663	
==>sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10522	10663	
==>sub {},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1091	1198	
==>s {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1091	1198	
==>s {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1091	1198	
==>s {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	500	614	
==>my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	500	614	
==>my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	338	444	
==>ap { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	338	444	
==>ap { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	338	444	
==>ap { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::TypeAnd;

  use overload '""' => \&as_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2036	2311	
==>xed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2036	2311	
==>xed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Jun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2036	2311	
==>xed' => 
                    "(" . 
                    join(" $sep ", 
                        map { $_->str->unboxed } @{_('$.things')}
                    ) . 
                    ")"
                ) 
            },
            'bit' =>  sub { 
                #warn "Jun <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4051	4142	
==>duced. First its children will be reduced -
Sym('&infix:<+>') will resolve '&infix:<+>' into <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26011	26099	
==>L), listify_lists(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11882	12022	
==>me'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12161	12301	
==>me'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6w <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1900	1992	
==>>to_num->to_native()));
}

sub increment { num->new((shift)->to_native + 1) }
sub decrement { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3063	3202	
==>:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2945	3076	
==>:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16513	16617	
==>sion>
}
rule EqualityExpressionNoIn :words {  # see 11.9
      <RelationalExpressionNoIn>
    | <Equality <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34778	34875	
==>s all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39328	39425	
==>s all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	421	573	
==>, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	421	573	
==>, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	421	573	
==>, 'AThree'),
        bless({ four  => 4 }, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8791	8928	
==>values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # T <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8791	8928	
==>values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # T <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	231	331	
==>::Graph::lines;
use Time::Piece;
use Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @deve <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	845	983	
==>' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3577	3674	
==>dule '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3577	3674	
==>dule '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19012	19235	
==>other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19012	19235	
==>other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19012	19235	
==>other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays are not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3349	3446	
==>d then telling this module to compare the received
output to the expected output.

=head1 EXPORTED <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3349	3446	
==>d then telling this module to compare the received
output to the expected output.

=head1 EXPORTED <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3429	3526	
==>d then telling this module to compare the received
output to the expected output.

=head1 EXPORTED <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10272	10378	
==>-I::lib';
	    # Use UNIX style error messages instead of MPW style.
	    $runperl .= ' -MMac::err=unix' if <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	206	300	
==>returns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	206	300	
==>returns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!f <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1730	1833	
==>ned in Pugs.Prim.hs
    # (maybe :lang<YAML> doesn't quite belong here?)
    multi sub eval (Str $code = <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1114	1204	
==>rver_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1114	1204	
==>rver_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	247	360	
==>needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	247	360	
==>needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	247	360	
==>needs the Class::Rebless module from CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19050	19139	
==>fic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19050	19139	
==>fic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6051	6156	
==>_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5858	5959	
==>_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1702	1803	
==>negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1760	1861	
==>negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16797	16978	
==>d =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16797	16978	
==>d =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16797	16978	
==>d =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2376	2496	
==>@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2376	2496	
==>@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2376	2496	
==>@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12823	12952	
==>_" && -x "$_" or return for map { "$initrd_mnt/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8151	8250	
==>y set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8151	8250	
==>y set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3771	3883	
==>g the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3771	3883	
==>g the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3771	3883	
==>g the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1268	1397	
==>s_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      / <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1268	1397	
==>s_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      / <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1980	2082	
==>b decrement { num->new((shift)->to_native - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1089	1255	
==>et_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1089	1255	
==>et_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1089	1255	
==>et_as_failed => sub {
                $::SELF->val_bool( 0 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::S <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8890	9073	
==>ef($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5250	5433	
==>ef($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6099	6282	
==>ef($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{named_capture} } ) {
                        next u <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	794	907	
==>d.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	794	907	
==>d.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5920	6025	
==>/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-pack <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3366	3474	
==>lf: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    m <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3366	3474	
==>lf: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8379	8487	
==>ver

=item grep

 multi Array::grep (@values ;      Code *&test   --> Lazy )
 multi Array::grep (@values,   M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2501	2614	
==>=> '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2501	2614	
==>=> '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2848	2961	
==>=> '$justify', named_only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1705	1814	
==>(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1705	1814	
==>(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1705	1814	
==>(a)  + Number(b)",
  "infix:«-»",    2, "N", "Number(a)  - Number(b)",
  "infix:«*»",    2, "N", "Number(a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9469	9614	
==>';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3597	3741	
==>... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3609	3753	
==>... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4279	4401	
==>elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4279	4401	
==>elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4279	4401	
==>elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	37	191	
==>kenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	37	191	
==>kenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeni <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	37	191	
==>kenizer;

use strict;
use warnings;

our $VERSION = '0.01';

use String::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokeni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13501	13731	
==>PATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13501	13731	
==>PATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13501	13731	
==>PATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10600	10706	
==>e're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10600	10706	
==>e're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31818	31910	
==>nion (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36368	36460	
==>nion (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4605	4694	
==>e unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4605	4694	
==>e unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4605	4694	
==>e unless $self->{pilMain}->isa("PIL::PStmts");
  die unless ref($self->{pilGlob}) eq "ARRA <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23394	23488	
==><gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>priv <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23394	23488	
==><gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>priv <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1915	2023	
==>ist'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exist <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1915	2023	
==>ist'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17231	17339	
==>n the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17231	17339	
==>n the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17231	17339	
==>n the chain, then we can use it ...
                if ($method = ::WALKMETH($class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15751	15913	
==>ge Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15751	15913	
==>ge Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15751	15913	
==>ge Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13192	13317	
==>10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13192	13317	
==>10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_s <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1599	1698	
==>ar regex engines.  Its structure follows the spec.  If for
#  instance, your engine cannot handle le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1422	1524	
==>il>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1422	1524	
==>il>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1422	1524	
==>il>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  until($first_run_done ?? $cond( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	99	208	
==>nts;
use JIB::Config;
use JIB::Installation;


use File::Spec;
use File::Basename          qw[basename];
use P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	104	212	
==>nts;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	102	210	
==>nts;
use JIB::Config;
use JIB::Installation;

use File::Spec;
use File::Basename          qw[basename];
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	762	879	
==>$dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	762	879	
==>$dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	762	879	
==>$dispatcher) -> Class $c {
        for $c.get_attribute_list() -> $attr {
            my $attr_obj = $c.get_attribute( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	844	961	
==>{ shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	844	961	
==>{ shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	844	961	
==>{ shift; eval($_[0]) },
		    perl_use => sub { shift; perl_use_class($ct, @_) },
		    perl_can => sub { shift; my $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3509	3641	
==>ell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3509	3641	
==>ell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3509	3641	
==>ell') },  # cell() is used by bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34160	34265	
==>nge (C<X-Y>)

Data: array reference of lower and upper bounds, both I<anyof_char>

=head2 anyof_class

Fam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19632	19725	
==>C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19632	19725	
==>C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10380	10531	
==>ub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10380	10531	
==>ub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10380	10531	
==>ub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5551	5684	
==>e( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5744	5877	
==>e( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17567	17685	
==>$tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \&header_handler,
    test => \&test_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1810	1917	
==>um
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1870	1977	
==>um
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$po <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1687	1812	
==>eturn;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($root <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1758	1870	
==>try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    forea <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1758	1870	
==>try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    forea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5711	5866	
==>t__ );

  sub new {
    my ($class, $rx, $lhs, $rhs) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4943	5055	
==>odule_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4943	5055	
==>odule_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3483	3695	
==>";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3483	3695	
==>";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3483	3695	
==>";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unboxed } @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	32	136	
==>{
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	32	136	
==>{
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	32	136	
==>{
  Pugs::Internals::eval "
    sub JS::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5767	5901	
==>( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5584	5714	
==>( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3925	4014	
==>quire_bareword => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11275	11368	
==>est::Builder::Test::Base {}
  class Test::Builder::Test::Fail does Test::Builder::Test::Base { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1733	1824	
==>est::Builder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test::Base { <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1733	1824	
==>est::Builder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Test::Base { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1190	1295	
==>OCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1190	1295	
==>OCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1190	1295	
==>OCK;
    $js .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	595	697	
==>:Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	595	697	
==>:Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	595	697	
==>:Module ];
::opaque_instance_attr($::Module => '@:subclasses')   = [ $::Class, $::Role  ];

# NOTE:
# t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19298	19393	
==>ive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definitio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19298	19393	
==>ive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definitio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	794	904	
==>brule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	805	915	
==>brule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5548	5657	
==>lessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5548	5657	
==>lessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5548	5657	
==>lessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide an attribute to inst <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5037	5138	
==>state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5037	5138	
==>state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1583	1680	
==>es.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1583	1680	
==>es.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15455	15586	
==>hould be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$dir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15449	15580	
==>hould be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$dir <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3342	3443	
==>day_0 returns Int { $.day - 1 }

#use Duration::Gregorian;# qw(duration);

#BEGIN {
#our &Date::Gregor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	589	775	
==>($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	589	775	
==>($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	589	775	
==>($class, %attrs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27261	27362	
==>of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation::Example object, whos <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5274	5368	
==>epresenting the configuration data

=item write

The C<write> method the file for the propertie <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5274	5368	
==>epresenting the configuration data

=item write

The C<write> method the file for the propertie <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5941	6080	
==>> chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5941	6080	
==>> chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18866	18961	
==>f,$replace) }
 multi substr(Str $s, StrLen $offset ; StrLen $length,   $replace)
{ Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	518	652	
==>h argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	518	652	
==>h argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	518	652	
==>h argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } else {
#          push @ar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	72	199	
==>ynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift(@a);
      my $kludge <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5803	5904	
==>is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    retur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5803	5904	
==>is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4606	4715	
==>ss defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4606	4715	
==>ss defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1401	1558	
==>elf == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=pod

=head1 NAME

bit - th <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	137	243	
==>ORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really ha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	137	243	
==>ORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13372	13506	
==>alized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13372	13506	
==>alized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13372	13506	
==>alized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHE <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	98	255	
==>ue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        2 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	98	255	
==>ue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        2 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4796	4897	
==>};

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    for my $index ( $self-> <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	158	298	
==>c;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple doc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4405	4540	
==>type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4405	4540	
==>type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1689	1816	
==>,
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1689	1816	
==>,
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5184	5279	
==>quiv;
	my $child = $thunk->val->struct_equiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1390	1499	
==>pported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1390	1499	
==>pported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1390	1499	
==>pported_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21092	21197	
==>re_use_helper ($use_,$module) is builtin is unsafe {
  my sub opRequire() { 
    $use_
      ?? Pugs::Inte <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	38	137	
==>Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { } <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	38	137	
==>Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7293	7388	
==>s of ruleop operators:



- higher order operators: alternation, concatenation.

- "plain" match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7045	7137	
==>s of ruleop operators:

- higher order operators: alternation, concatenation.
- "plain" match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5801	5955	
==>f $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5801	5955	
==>f $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5801	5955	
==>f $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                st <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5116	5210	
==>alue of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5116	5210	
==>alue of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6640	6734	
==>alue of C<$passed>,
recording C<$description> as an optional explanation.

=item B<todo returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	170	271	
==>:rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	170	271	
==>:rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	170	271	
==>:rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22016	22106	
==>o_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22016	22106	
==>o_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22016	22106	
==>o_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s( <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8263	8371	
==>/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13943	14043	
==>g).  If a header field is multi-valued, then the
routine is called once for each value.  The field na <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13943	14043	
==>g).  If a header field is multi-valued, then the
routine is called once for each value.  The field na <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2072	2201	
==>t, blessed in the right class
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Package:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7458	7572	
==>b ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourth i <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5102	5211	
==>ce  {
    \\ 0
      [ <octaldigit><octaldigit><octaldigit>
      | <bracket_open> [<octaldigit> | ; ]+ <brack <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1103	1216	
==>);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1103	1216	
==>);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1103	1216	
==>);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $splitter) { split $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	407	544	
==>rsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $l <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	407	544	
==>rsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13936	14049	
==>(mob, pos, "Unescaped '-' in charlist (use '..' or '\-')")
    goto end
  err_close:
    parse_error(mob, pos, "No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3889	3995	
==>') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3889	3995	
==>') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3889	3995	
==>') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## -------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4804	4988	
==>Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5026	5210	
==>Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13476	13591	
==>=== any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16953	17068	
==>=== any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16315	16430	
==>=== any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1087	1240	
==>block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7284	7370	
==>Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1109	1195	
==>Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3125	3236	
==>the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3125	3236	
==>the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3125	3236	
==>the case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef retu <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	239	339	
==>9-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	239	339	
==>9-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	283	381	
==>::Pad $.subPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Bin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9619	9719	
==>. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `u <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9619	9719	
==>. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16983	17082	
==>elf: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:descendant);
    for WALKMET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3740	3871	
==>hift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3740	3871	
==>hift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3740	3871	
==>hift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $name = $self->name <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1002	1104	
==>],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1002	1104	
==>],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expec <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	400	498	
==>led with non-default settings, and so is not intended for
"general" use.  It's more of a pugs boots <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39818	39919	
==>et->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39818	39919	
==>et->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39818	39919	
==>et->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

package Perl6::Containe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4749	4847	
==>is parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4749	4847	
==>is parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6946	7044	
==>is parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	726	837	
==>g . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	726	837	
==>g . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	726	837	
==>g . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  use overload '""' => \&as_string;

  sub all_types { ($_[0 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4195	4347	
==>,
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "pl <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4195	4347	
==>,
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "pl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12389	12485	
==>identifying what sort of line you're looking at.

=head2 C<_is_comment>

  my $is_comment = $stra <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6020	6113	
==>t, depending on when C<want> gets implemented. Currently, the headers
are returned as one long <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6020	6113	
==>t, depending on when C<want> gets implemented. Currently, the headers
are returned as one long <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2105	2208	
==>1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2105	2208	
==>1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4415	4531	
==>s required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4415	4531	
==>s required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    retur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5005	5121	
==>s required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report extra incoming positional args

    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24091	24228	
==>_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24370	24507	
==>_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::captu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5577	5677	
==>X there has to be a better way. :(
  }
}
{
  package Regexp::Parser::__object__;
  @Regexp::Parser::_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5842	5939	
==>s is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is current <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5842	5939	
==>s is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is current <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2891	3044	
==>mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shift <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	684	784	
==>low (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	684	784	
==>low (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3961	4065	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator obj <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3961	4065	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator obj <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14382	14486	
==>lst" and $wrote_menulst },
  using  => sub { open my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh << <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6992	7100	
==>H();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6992	7100	
==>H();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6992	7100	
==>H();

    // We don\'t create new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9061	9185	
==>_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9254	9378	
==>_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1941	2051	
==>:Class " . $class->id->to_native;             
}

$::ENV = Perl6::Runtime::get_top_level_env();

## ----------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4717	4826	
==>lter,
    # because we need all the lines including the ones before the `use`
    # statement, so we can parse <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4717	4826	
==>lter,
    # because we need all the lines including the ones before the `use`
    # statement, so we can parse <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5735	5835	
==><from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5735	5835	
==><from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4945	5051	
==>ethod = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4945	5051	
==>ethod = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4945	5051	
==>ethod = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2083	2192	
==>PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2083	2192	
==>PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2083	2192	
==>PIL2JS.Box.Constant(keys));
    })')(%$self);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5827	5935	
==>hift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.ite <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5827	5935	
==>hift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.ite <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	909	1023	
==>ift;
    $self->{body}->($self->{env});
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16107	16218	
==>r!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19584	19695	
==>r!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5001	5158	
==>>new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4828	4978	
==>>new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # us <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3896	3995	
==>mm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3896	3995	
==>mm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6667	6818	
==>,'
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6667	6818	
==>,'
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6667	6818	
==>,'
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	77	189	
==>lt {
	method hallo ( String $name ) { "Hallo, $name!".say; }
	method hallo ( Person $person ) {
		"Hallo, {name $ <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	758	868	
==>enchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benc <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	758	868	
==>enchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5251	5347	
==>you to
do anything you like with each object, but is (at least nominally)
intended to allow filte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5251	5347	
==>you to
do anything you like with each object, but is (at least nominally)
intended to allow filte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5251	5347	
==>you to
do anything you like with each object, but is (at least nominally)
intended to allow filte <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	950	1066	
==>8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esca <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	950	1066	
==>8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4893	5029	
==>date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4893	5029	
==>date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22702	22800	
==>es the
code a way to be sure compilation was successful.

=item maxpar

The highest number of paren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3180	3306	
==>Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3180	3306	
==>Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3180	3306	
==>Perl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        #warn "fetching @_ from ".ref($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	755	862	
==>" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	755	862	
==>" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	755	862	
==>" : $_->as_js } @{ $_[0]->[0] };
  }
}

# This class does not have a Haskell equivalent.
{
  package PIL::Na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6519	6631	
==>stance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6519	6631	
==>stance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6519	6631	
==>stance_attr($self => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2395	2494	
==>ined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2395	2494	
==>ined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2395	2494	
==>ined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FET <==
3	/Users/nnunley/pugs/util/addauthors.pl	396	492	
==>thors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4714	4807	
==>h.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.fr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4964	5057	
==>h.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.fr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13821	13954	
==>'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'En <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13821	13954	
==>'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'En <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25621	25740	
==>y $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'logical' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21417	21509	
==>ternative relational database engines with minimal effort.

This might seem strange to somebo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21417	21509	
==>ternative relational database engines with minimal effort.

This might seem strange to somebo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7287	7379	
==>parsed as the argument to the constructor.

=item $parser->regex($regex)

Clears the parser's <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	771	1094	
==>"<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	771	1094	
==>"<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	464	554	
==>($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outsid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	464	554	
==>($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outsid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	464	554	
==>($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CONTINUATION outsid <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1737	1887	
==>SG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, user <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1737	1887	
==>SG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, user <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1197	1293	
==>1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1197	1293	
==>1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5363	5466	
==>Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5363	5466	
==>Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	225	320	
==>ule_terms, 'dot';

package Pugs::Compiler::Grammar;

use Pugs::Compiler::Rule;
use Pugs::Compile <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12477	12570	
==>an>,</td>
	      <td class="num tests_skipped"><span title="<tmpl_var name=skipped> skipped">< <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23889	23981	
==>e specific details like
encodings or plurality.

My understanding of alternate solutions like <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23889	23981	
==>e specific details like
encodings or plurality.

My understanding of alternate solutions like <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19048	19144	
==>t, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19048	19144	
==>t, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6919	7014	
==>atcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6919	7014	
==>atcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6919	7014	
==>atcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12814	12920	
==>onks.org/index.pl?node_id=531465

  It may not be possible to get Match objects (only strings) into
  $1,et <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1204	1309	
==>et($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a ti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1204	1309	
==>et($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3883	3989	
==>e;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3883	3989	
==>e;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3883	3989	
==>e;

  sub prefix { "" }
  sub name   { "<anonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4438	4555	
==>all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7915	8032	
==>all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5116	5302	
==>);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5116	5302	
==>);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5116	5302	
==>);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5490	5613	
==>_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5490	5613	
==>_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5490	5613	
==>_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($xx) { p6_from_s( ucfirst(p6 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12574	12697	
==>5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{int} 
               || exists $n->{exp2}{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1515	1614	
==>s well as anything declared within

that scope.



the Sig contains a simply structure of the signat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1453	1549	
==>s well as anything declared within
that scope.

the Sig contains a simply structure of the signat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12501	12651	
==>mit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27869	27962	
==>ts object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable value <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27869	27962	
==>ts object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable value <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4689	4786	
==>eft, $self->right;
}

package type::operator::nary;
use base qw/type::operator/;

sub new {
	my $c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16179	16273	
==>gnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20605	20699	
==>gnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5336	5494	
==>de {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
} <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5336	5494	
==>de {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10380	10502	
==>ree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7410	7562	
==>$var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7410	7562	
==>$var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	102	200	
==>TE:
This is a very basic first attempt at a primitive 
s-expr compiler to generate p5 code, it's re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	165	278	
==>X! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	165	278	
==>X! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	165	278	
==>X! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15589	15723	
==>iled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15589	15723	
==>iled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30938	31040	
==>C<< <andy at petdance.com> >>.

=head1 COPYRIGHT

Copyright 2002-2005
by Michael G Schwern C<< <schwern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10540	10643	
==>{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10540	10643	
==>{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10540	10643	
==>{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5517	5627	
==>' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5517	5627	
==>' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5517	5627	
==>' => &infix«$op» );
#    our &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	526	651	
==>' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	542	667	
==>' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	518	643	
==>' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31592	31690	
==>m which uses both libraries
could have yet another set for itself.  When the program is run, it wou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31592	31690	
==>m which uses both libraries
could have yet another set for itself.  When the program is run, it wou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37435	37539	
==>ary version of the aforementioned binary join()
operator, and the order of its arguments is not significa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41984	42088	
==>ary version of the aforementioned binary join()
operator, and the order of its arguments is not significa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41625	41729	
==>ary version of the aforementioned binary join()
operator, and the order of its arguments is not significa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6275	6362	
==>--------------------------------------------------------------------------
## Module

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6275	6362	
==>--------------------------------------------------------------------------
## Module

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6275	6362	
==>--------------------------------------------------------------------------
## Module

$: <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1780	1870	
==>t of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de> <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1780	1870	
==>t of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6366	6585	
==>_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6366	6585	
==>_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.r <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1611	1764	
==>it  of uint1 where { true };
subset byte of uint8 where { true };

Helpers::macif(%?CONFIG{'int_width'} == 32,'subset int of int32 where { true }');
Helpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2609	2734	
==>e::Match::Ratchet; # overload doesn't work without this ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$< <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	21	130	
==>mbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	21	130	
==>mbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18933	19108	
==>ther->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18933	19108	
==>ther->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18933	19108	
==>ther->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "Infinite slices and tied arrays <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3784	3951	
==>--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3784	3951	
==>--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	171	289	
==>SA = qw(Exporter);
@EXPORT = qw(assert);


=head1 NAME

Test::Harness::Assert - simple assert

=head1 SYNOPSIS

  ### F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1148	1253	
==>$n->{fixity}\n" if exists $n->{fixity};
    
    # 'undef' example: parameter list, in a sub call withou <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1674	1771	
==>rch = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Pe <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1674	1771	
==>rch = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Pe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2423	2536	
==>londie::Nodes;

    Val(1); # a node

=head1 DESCRIPTION

see L<Blondie> for a documentation of the node types

=h <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1017	1126	
==>e LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	984	1093	
==>e LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8192	8290	
==>ensional, the values returned will be array references to the sub
array.

In Scalar context, they a <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4724	4825	
==>he year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quart <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4724	4825	
==>he year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quart <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24371	24465	
==>urposes of the Relation::Example class' API, a tuple is represented by a Perl
Mapping where eac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1525	1614	
==>ef($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1525	1614	
==>ef($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1525	1614	
==>ef($thing) }
sub circumfix:<%{}>($thing) is primitive is rw { PIL2JS::Internals::generic_d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2755	2882	
==>hod { CORE::pop(@{(shift)})   }

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1192	1298	
==>_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expres <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1192	1298	
==>_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expres <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1696	1833	
==>red
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1696	1833	
==>red
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1696	1833	
==>red
           && ($k ~~ %rx_helper_cache{'re_x'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5486	5661	
==>e value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5486	5661	
==>e value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5486	5661	
==>e value 
                # _('$.value' => undef) },
                my $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5497	5617	
==>6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5497	5617	
==>6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5497	5617	
==>6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	499	595	
==>tests", and thus is far from being a
# complete p5 compatible regex engine, that establishes feas <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11369	11461	
==>dex) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $f <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11369	11461	
==>dex) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2657	2757	
==>ful similarities into a role
  # cannot inherit from TestPlan because of the lack of $:expect
  class <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	869	967	
==>s::Internals::exec($prog, Bool::False, @args);
    }
    multi sub exec(@args) returns Bool is buil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4778	4888	
==>header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4778	4888	
==>header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3360	3457	
==>equal_to {
    my ($left, $right) = @_;
    ($left->params->equal_to($right->params) == bit->new(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3913	4018	
==>n't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3913	4018	
==>n't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3913	4018	
==>n't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval;
for @subs -> $name, $arity, $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	598	717	
==>ed);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	598	717	
==>ed);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	598	717	
==>ed);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40958	41060	
==>this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl exten <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40958	41060	
==>this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl exten <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40958	41060	
==>this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl exten <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29054	29155	
==>er::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29054	29155	
==>er::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29054	29155	
==>er::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6912	7007	
==>})')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6912	7007	
==>})')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6912	7007	
==>})')($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11910	12052	
==>n "not ok $.number #skip $.reason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SU <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2324	2456	
==>n "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SU <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2324	2456	
==>n "not ok $.number #skip $.reason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7590	7678	
==>umfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7590	7678	
==>umfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7590	7678	
==>umfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1402	1503	
==>ist or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1402	1503	
==>ist or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - con <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1402	1503	
==>ist or any other Value - only Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13871	13966	
==>nacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13871	13966	
==>nacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13871	13966	
==>nacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3525	3628	
==>ce() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3525	3628	
==>ce() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3525	3628	
==>ce() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	665	776	
==>turn } or a fail(),

           and it should not backtrack or whatever



Continuations are used for backtracki <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10533	10644	
==>turn } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtracki <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	638	746	
==>turn } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtracki <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	316	413	
==>pneuma is the rational soul, really concreate and practical 
# things like Object, Package and Mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	316	413	
==>pneuma is the rational soul, really concreate and practical 
# things like Object, Package and Mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	316	413	
==>pneuma is the rational soul, really concreate and practical 
# things like Object, Package and Mod <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2541	2631	
==>9draft.pod r8649.
&Array::pop := &Array::splice.assuming(:offset(-1) :length(1));
## an alt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1547	1679	
==>he superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1752	1884	
==>he superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9162	9273	
==>on = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9162	9273	
==>on = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2193	2309	
==>'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    * <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2193	2309	
==>'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    * <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2311	2427	
==>'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    * <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2311	2427	
==>'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    * <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4263	4375	
==>} == 0 ? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6192	6289	
==>nd override some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6192	6289	
==>nd override some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8389	8486	
==>nd override some methods to provide additional features.

=item B<Test::Builder::Test::TODO>

This <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	718	908	
==>"=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	718	908	
==>"=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffe <==
3	/Users/nnunley/pugs/util/importgraph.pl	1811	1898	
==>, @_) }

setup_cluster('Pugs.Rule', qr/^Pugs\.Rule\b/);
setup_cluster('Pugs.AST', qr/^Pu <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6601	6702	
==>es here as I develop this.

- how should I handle blocks of text which seem to still be inside a list? <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6601	6702	
==>es here as I develop this.

- how should I handle blocks of text which seem to still be inside a list? <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19640	19736	
==>es, such as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
B <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19640	19736	
==>es, such as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
B <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40719	40812	
==>format string for sprintf().

=over 4

=item $parser->warn(RPe_ERRMSG, ARGS...)

Throws a warn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2978	3086	
==>t( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2978	3086	
==>t( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38047	38159	
==>type {
    my $self = shift;
    $self->{neg} ? 'not' : 'and';
  }

And finally, the small change to the qr() met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1833	1925	
==>e parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICEN <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1833	1925	
==>e parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICEN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16160	16261	
==>UB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16160	16261	
==>UB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16160	16261	
==>UB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7241	7339	
==>-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7241	7339	
==>-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7241	7339	
==>-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1273	1380	
==>hod parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1273	1380	
==>hod parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	128	223	
==>950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	128	223	
==>950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	128	223	
==>950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  defined($x) ?? $J <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25666	25768	
==>attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30218	30320	
==>attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its key <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29184	29286	
==>attributes
are renamed.  The argument C<$mapping> says which attributes are being
renamed, with its key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18989	19106	
==>>from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18989	19106	
==>>from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18989	19106	
==>>from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) {...}; # in PrimP6
#MUL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	457	680	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	457	680	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         rul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7143	7239	
==>pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19085	19179	
==>ications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation laye <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19085	19179	
==>ications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation laye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5762	5915	
==>d for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5762	5915	
==>d for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts .. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5762	5915	
==>d for the class to implement
                #$self->add_method($method_name => undef);
            }
            else {
                # no conflicts .. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	903	996	
==>elude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	903	996	
==>elude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	903	996	
==>elude::JS::Pair;
use Prelude::JS::Ref;
use Prelude::JS::Hash;
use Prelude::JS::Array;
use Prel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8360	8455	
==>================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8360	8455	
==>================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8360	8455	
==>================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBin: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4572	4674	
==>perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4572	4674	
==>perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4572	4674	
==>perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{output} or <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	359	478	
==>ields"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	343	455	
==>ields"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5286	5381	
==>mpile(<<'RULE')->code();
 
    $<op> := (print|say|warn|die) <p6ws> <indirect_object> <p6ws> <li <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1569	1688	
==>xport {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :sec <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1838	1957	
==>xport {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :sec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11710	11800	
==>:EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11710	11800	
==>:EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11710	11800	
==>:EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7627	7753	
==>uator {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <Numer <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3088	3212	
==></BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3088	3212	
==></BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38837	38930	
==>rl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43651	43744	
==>rl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43185	43278	
==>rl@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2665	2779	
==>ure => ${$_[3]{match}[1]}->{capture},
                abort   => ${$_[3]{match}[1]}->{abort},
        }, 'Pugs::R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	420	519	
==>he source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	420	519	
==>he source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	64	169	
==>:Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	64	169	
==>:Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	64	169	
==>:Chaos;

# The 'Class' class -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::cre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7536	7671	
==>st) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7536	7671	
==>st) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $p <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3950	4044	
==>pos(), etc, are not yet supported.

=back

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7089	7182	
==>L::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7089	7182	
==>L::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7089	7182	
==>L::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lvalue, @PIL::VARS_TO_BACKU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15369	15496	
==>[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15369	15496	
==>[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'In <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15369	15496	
==>[0] ) }

package Perl6::Value::Int;

sub to_str        { 
    no warnings 'uninitialized';
    my $v = 0 + $_[0];
    return 'In <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3274	3370	
==>d1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class repres <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3274	3370	
==>d1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class repres <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5471	5567	
==>d1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESCRIPTION

The Test::Builder::Test class repres <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14877	14971	
==>them may be absorbed into the core functionality of F<Regexp::Parser>
in the future.  Module na <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8671	8763	
==>ipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<D <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8671	8763	
==>ipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1449	1556	
==>urn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1449	1556	
==>urn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1449	1556	
==>urn ($js, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2368	2500	
==>onfig->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=head2 $b <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14840	14971	
==>},

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14840	14971	
==>},

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1006	1131	
==>trolException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1006	1131	
==>trolException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1006	1131	
==>trolException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total h <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2397	2520	
==>b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - si <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2397	2520	
==>b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4483	4671	
==>d} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4483	4671	
==>d} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4483	4671	
==>d} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22561	22653	
==>object has 2 main attributes (implementation details subject to
change) plus 1 extra attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27113	27205	
==>object has 2 main attributes (implementation details subject to
change) plus 1 extra attribut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	618	706	
==>Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-None-Match <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	618	706	
==>Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-None-Match <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1035	1142	
==>f to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1035	1142	
==>f to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6791	6976	
==>_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6791	6976	
==>_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6791	6976	
==>_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_',
                    '$.params' => [ Perl6::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36630	36755	
==>s;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36630	36755	
==>s;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36630	36755	
==>s;
    my $x = $array->pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2447	2582	
==>HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2447	2582	
==>HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2447	2582	
==>HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new();    
    
    $new_class->name($name)           if define <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4897	5067	
==>out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18349	18440	
==>riate measures
such as system-managed locks so that resource corruption or application
failu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18349	18440	
==>riate measures
such as system-managed locks so that resource corruption or application
failu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7343	7461	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8695	8813	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19363	19481	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2807	2957	
==>.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2700	2842	
==>.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10831	10978	
==>');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10831	10978	
==>');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10831	10978	
==>');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1694	1797	
==>n $func;
}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	warn "compiled: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25318	25414	
==>hy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25318	25414	
==>hy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for R <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2904	3006	
==>r.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't fin <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2904	3006	
==>r.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't fin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23586	23677	
==>ally extend the
Relation library's interface.

See also the bundled L<Relation::Example>, wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4798	4906	
==>as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4798	4906	
==>as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4798	4906	
==>as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a slurpy parameter? Flatten args so we can .s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7350	7503	
==>arams' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7350	7503	
==>arams' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7350	7503	
==>arams' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36848	36945	
==>dered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36848	36945	
==>dered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11562	11664	
==>this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

= <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11562	11664	
==>this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

= <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10549	10669	
==>ject);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10549	10669	
==>ject);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2097	2205	
==>ensity => $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2097	2205	
==>ensity => $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23181	23269	
==>un::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
use strict;
sub p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2497	2617	
==>ew_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2497	2617	
==>ew_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2497	2617	
==>ew_class = $metaclass->new();    
    
    $new_class->name($name)           if defined $name;
    $new_class->version($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1302	1409	
==>ations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1302	1409	
==>ations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1302	1409	
==>ations support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for un <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	878	994	
==>ensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { retu <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1852	1943	
==>erldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informa <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1852	1943	
==>erldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	884	1012	
==>rtList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	884	1012	
==>rtList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	884	1012	
==>rtList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	772	907	
==>use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	765	900	
==>use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3065	3160	
==>tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$n <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3065	3160	
==>tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8176	8309	
==>type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8176	8309	
==>type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8176	8309	
==>type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8040	8286	
==>$tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8040	8286	
==>$tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8040	8286	
==>$tmp; 
        },
        cend =>    sub { 
            my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3298	3401	
==>e (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3298	3401	
==>e (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3298	3401	
==>e (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1130	1240	
==>multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1130	1240	
==>multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1130	1240	
==>multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6770	6879	
==>r &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6770	6879	
==>r &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6770	6879	
==>r &sleep). Is there a better way?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7204	7295	
==>ttribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7204	7295	
==>ttribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7204	7295	
==>ttribute($::Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7595	7701	
==>n "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7595	7701	
==>n "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7595	7701	
==>n "Missing $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9988	10133	
==>boxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9988	10133	
==>boxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9988	10133	
==>boxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff elem <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5156	5261	
==>tion> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5156	5261	
==>tion> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6680	6785	
==>tion> as an optional explanation.

=item B<todo returns Bit ( Bit $passed, Str $description?, Str $reason? <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4245	4374	
==>ata( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5094	5223	
==>ata( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28340	28448	
==>d creates a method of the parser named $seq, and set it to
the code reference in $code.  Example:

  # contin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2417	2530	
==>ope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2417	2530	
==>ope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2417	2530	
==>ope} eq "SLet") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9981	10190	
==>required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11458	11667	
==>required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4695	4792	
==>got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->set_x(2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	227	317	
==>correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	227	317	
==>correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	227	317	
==>correctly terminate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13053	13265	
==>e;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13053	13265	
==>e;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13053	13265	
==>e;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_pa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3193	3300	
==>eturn @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3193	3300	
==>eturn @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	478	601	
==>>{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @ma <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3115	3209	
==>urns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3115	3209	
==>urns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7498	7613	
==>mp2 = $$temp1{syncat};
  if ( $temp2 == PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @oper <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10426	10524	
==>users who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10426	10524	
==>users who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6575	6682	
==>ity'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6575	6682	
==>ity'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6575	6682	
==>ity'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defin <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	289	490	
==>y $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= " <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	289	490	
==>y $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= " <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	277	374	
==>require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = compile($re) || die "Compil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3780	3889	
==>Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(Va <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3780	3889	
==>Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(Va <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	630	739	
==>Stmt',
  'pStmts' ,'PIL_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(Va <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3273	3992	
==>elation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7277	7413	
==>server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("Fr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7277	7413	
==>server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("Fr <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5221	5331	
==>ualified name of longmess.
    multi sub longmess (; $e = '') returns Str is primitive is safe {
        my($me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	727	856	
==>([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	727	856	
==>([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	727	856	
==>([
              PIL2JS.Context.ItemAny,
              new PIL2JS.Box.Constant(undefined),
              function () { "dummycc" } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14889	15002	
==>(while ($c is_not_nil)
        ((($c send (get_attributes)) apply 
            ((= %attrs store (($_ name) ($_ ins <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	9	103	
==>ldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of sp <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	9	103	
==>ldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3651	3746	
==>:global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3651	3746	
==>:global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3651	3746	
==>:global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$do <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29218	29356	
==>quietly (ie. no printing) for automated
validation of tests.  This will probably take the form of a version
of runtests() which rather than <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8066	8185	
==>ult12 = ToUint32($V);
            raise RangeError if $Result12 != ToNumber($V);
            my $length = +($A.property_ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1773	1877	
==>int "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my $chr = shift @file) ) {
	++$col;
	
	if ( $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4290	4394	
==>b is_arrow {
	my $self = shift;
	$self->{class_that_should_be}->is_arrow;
}

sub splat { # recursive spla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2416	2542	
==>s::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14083	14178	
==>ase as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14083	14178	
==>ase as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3405	3494	
==>d () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3405	3494	
==>d () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3405	3494	
==>d () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses' => method <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	55	157	
==>, so it returns the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9549	9650	
==>lation $other!) returns Relation {

    die "The heading of the relation in $other is not a full subse <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13026	13127	
==>lation $other!) returns Relation {

    die "The heading of the relation in $other is not a full subse <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5856	5961	
==>poch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5856	5961	
==>poch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9719	9804	
==>m(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_charset_item(class_neg(_)), { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1859	1970	
==>t
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1919	2030	
==>t
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2424	2554	
==>INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Mess <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2424	2554	
==>INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Mess <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	460	573	
==>{
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    operatorTable 
    whitespaceTermTable 
    w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1484	1604	
==>amodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1484	1604	
==>amodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1484	1604	
==>amodel-base=s" => \$PIL2JS::cfg{metamodel_base},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5425	5587	
==>quired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5425	5587	
==>quired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5425	5587	
==>quired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24278	24386	
==>->qr, ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, $self->{data}[0]->visual, $self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24335	24428	
==>erface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24335	24428	
==>erface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11405	11515	
==>or my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11405	11515	
==>or my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11405	11515	
==>or my $dir (@incdirs) {
	my $f = File::Spec->catfile($dir,$fn);
        next if !-e $f;
	PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4234	4354	
==>type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= << <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4234	4354	
==>type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= << <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4234	4354	
==>type="text/javascript">//<![CDATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= << <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2026	2141	
==>",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2026	2141	
==>",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2026	2141	
==>",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1601	1718	
==>oot_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1601	1718	
==>oot_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4544	4725	
==>1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4544	4725	
==>1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4544	4725	
==>1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $arity == 1  ?? ""                  !! "is primitive";
  $eval ~= "
    $ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2824	2944	
==>something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2824	2944	
==>something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2824	2944	
==>something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we need to n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	665	792	
==>matic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$// <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5929	6028	
==>ormalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5929	6028	
==>ormalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	32	125	
==>h|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	32	125	
==>h|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	32	125	
==>h|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15168	15276	
==>ueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15168	15276	
==>ueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	166	274	
==>lue;    # not is copy
has Bool $isWritable;  # is rw
has Bool $isLazy;
has Str $paramName;
has Perl::Cxt $par <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9632	9729	
==>ent can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9632	9729	
==>ent can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $obj <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7287	7377	
==>ntiated variables, which delegate. see below)
multi unify => ( 'type::variable::free', any( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2955	3054	
==>.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2955	3054	
==>.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2955	3054	
==>.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	307	459	
==>{
            my ($self, %params) = @_;
            _('$.output'       => $params{'$.output'}       || \*STDOUT);
            _('$.error_output' => $para <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3568	3672	
==>_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorith <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3568	3672	
==>_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorith <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7928	8074	
==>return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7928	8074	
==>return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7928	8074	
==>return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24273	24383	
==>edo_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11346	11466	
==>ng calls to p5 subs,
  which can be defined differently in different packages.

This would permit
  ./perl -we 'use Regex <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	70	180	
==>::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Po <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	70	180	
==>::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Po <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12655	12788	
==>ocument .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12655	12788	
==>ocument .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5023	5136	
==>_quoted => $/{'Pugs::Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::Compiler::Regex->co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18873	19012	
==>n';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        got <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18873	19012	
==>n';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        got <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18873	19012	
==>n';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        got <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15995	16091	
==>preted by the machine itself and not any human user.  In some
situations, a shared program compon <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15995	16091	
==>preted by the machine itself and not any human user.  In some
situations, a shared program compon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2075	2173	
==>e) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2075	2173	
==>e) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2075	2173	
==>e) { map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	715	827	
==>nction (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	715	827	
==>nction (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	715	827	
==>nction (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	282	410	
==>!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	282	410	
==>!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	282	410	
==>!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.Proxy(
      function () { return thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8472	8597	
==>M: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8472	8597	
==>M: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8472	8597	
==>M: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9232	9362	
==>y =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9232	9362	
==>y =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9232	9362	
==>y =   Perl6::Value::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2826	2928	
==>n't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2826	2928	
==>n't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2826	2928	
==>n't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't write to \"$file\": $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15342	15476	
==>$_->attr('text')} 
                $beg->look_down(_tag=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16175	16273	
==>ks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You ca <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16175	16273	
==>ks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You ca <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5584	5699	
==><'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'protected'>
    | <'v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7755	7856	
==>nd of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7755	7856	
==>nd of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	703	815	
==>n::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	703	815	
==>n::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	703	815	
==>n::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9951	10119	
==>";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Miss <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9951	10119	
==>";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Miss <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9951	10119	
==>";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Miss <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4711	4833	
==>:Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex->com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	924	1022	
==>ompiler::Rule->compile(<<'RULE')->code();\n";
    print $source;
    print "RULE\n";
}
print <<'PUS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1076	1178	
==>ORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1076	1178	
==>ORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1076	1178	
==>ORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3476	3596	
==>d",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# Fir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3476	3596	
==>d",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# Fir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3476	3596	
==>d",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
);

# Fir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	691	799	
==>See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http:// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	691	799	
==>See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http:// <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	691	799	
==>See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // http:// <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12710	12851	
==>ethod' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::si <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1116	1231	
==>re Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passiv <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1083	1198	
==>re Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passiv <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2163	2266	
==>ift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n" } and
    $compress = sub { Compr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22326	22423	
==>that Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22326	22423	
==>that Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3443	3575	
==>}
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3443	3575	
==>}
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3443	3575	
==>}
    else {
#        warn "hello from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	460	562	
==>e::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	460	562	
==>e::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cand <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	460	562	
==>e::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cand <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6150	6271	
==>an) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6150	6271	
==>an) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	493	608	
==>f this function
      // and refer to it via the closure, then things don\'t work right
      // --the order of outp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	493	608	
==>f this function
      // and refer to it via the closure, then things don\'t work right
      // --the order of outp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	493	608	
==>f this function
      // and refer to it via the closure, then things don\'t work right
      // --the order of outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2364	2470	
==>s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2364	2470	
==>s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2364	2470	
==>s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	429	605	
==>ess => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	429	605	
==>ess => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	429	605	
==>ess => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36018	36125	
==>n is the union of the invocant and <$other> headings. 
The body of the new relation is the result of first p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40568	40674	
==>n is the union of the invocant and <$other> headings.
The body of the new relation is the result of first p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40182	40288	
==>n is the union of the invocant and <$other> headings.
The body of the new relation is the result of first p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3181	3299	
==>1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3181	3299	
==>1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3181	3299	
==>1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11070	11176	
==>mal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11070	11176	
==>mal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11070	11176	
==>mal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1735	1855	
==>?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_unive <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1735	1855	
==>?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_unive <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4910	5032	
==>hod_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4910	5032	
==>hod_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4910	5032	
==>hod_source if $DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	676	809	
==>kage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	676	809	
==>kage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	676	809	
==>kage_init
       p6_return_macro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12394	12493	
==>cks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12394	12493	
==>cks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12394	12493	
==>cks::array_postcircumfix_for_undefs (
  $array is rw, Int *@idxs,
) is primitive is rw {
  if define <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	617	722	
==>containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	617	722	
==>containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1834	1948	
==>nd they are too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$rema <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1761	1870	
==>nd they are too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$rema <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1432	1543	
==>Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decreme <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1432	1543	
==>Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decreme <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1432	1543	
==>Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decreme <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6516	6616	
==>events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I dev <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6516	6616	
==>events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I dev <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37309	37393	
==>list')));
$::Class->send('add_attribute', (symbol->new('%:private_methods') => attrib <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12243	12366	
==>ar}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4613	4730	
==>e} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4396	4508	
==>e} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2214	2501	
==>E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2214	2501	
==>E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36885	36980	
==>nality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.tr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36885	36980	
==>nality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.tr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33592	33721	
==>pe, and C<sub{ +1 }> is used to come up out of it.  In between these
is C<< $self->{data} >>, which is the node's child.

=head2 C <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16885	16984	
==>, it contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar va <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16885	16984	
==>, it contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1867	1967	
==>>{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1867	1967	
==>>{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_V <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1867	1967	
==>>{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2794	2902	
==>h @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2794	2902	
==>h @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2794	2902	
==>h @components, [link => $file];
    }
  }

  push @components, [inline => <<EOF];
// Trigger running of all E <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15516	15612	
==>" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15516	15612	
==>" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7824	7938	
==>Param}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7824	7938	
==>Param}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7824	7938	
==>Param}{isInvocant} and $name ne '$?SELF') {
      push @js, sprintf "var %s = %s; pad[%s] = %s;",
        PIL::name <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17664	17769	
==>tring::Escape::qprintable($node) : "undef";
    }
}


package Digest;

sub compute {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10916	11011	
==>on_test_on_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value fr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8438	8531	
==>on_test_on_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5699	5801	
==>-link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5699	5801	
==>-link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5699	5801	
==>-link=js   -o full.js    METAMODEL  libjs/PIL2JS.js  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7034	7157	
==>wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7034	7157	
==>wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11361	11508	
==>y $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	941	1042	
==>::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_k <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	941	1042	
==>::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_k <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23870	23967	
==>l> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23870	23967	
==>l> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Roset <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1156	1284	
==>e is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1156	1284	
==>e is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1156	1284	
==>e is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcir <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6410	6538	
==>s $current->{env}->{$name};  
        $current = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub nex <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34795	34891	
==>es that
are in the invocant Relation and that match any tuples of C<$other> along
their common at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39345	39441	
==>es that
are in the invocant Relation and that match any tuples of C<$other> along
their common at <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	860	967	
==>pendir(DIR, $src) or warn "opendir failed for $src: $!", return;
    my @nodes = readdir(DIR);
    foreach m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5058	5156	
==>e called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finis <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5058	5156	
==>e called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18091	18224	
==>" ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Da <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18091	18224	
==>" ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Da <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18091	18224	
==>" ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxed;
                    #use Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17319	17497	
==>patcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17319	17497	
==>patcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17319	17497	
==>patcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12265	12439	
==>he{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12265	12439	
==>he{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12265	12439	
==>he{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        else {   
             
            # get the dispatcher ins <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1162	1300	
==>r 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	434	542	
==>ompile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	466	574	
==>ompile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12425	12526	
==>nt.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($clas <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12425	12526	
==>nt.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2191	2332	
==>name, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2191	2332	
==>name, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2191	2332	
==>name, body => sub {
        $sub->($argname);
      });
    } else {
      $unwrapped->{CC} = $sub;
    }
    return $thing->as_js;
  }
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12710	12814	
==>id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12710	12814	
==>id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12710	12814	
==>id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class->add_method('add_singleton <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14083	14194	
==>he connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traff <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14083	14194	
==>he connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2557	2654	
==>package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2557	2654	
==>package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2557	2654	
==>package 

$::{'*'}->STORE('::Main' => $::Package->new('$:name' => 'Main'));

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1897	2016	
==>{ () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1897	2016	
==>{ () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1897	2016	
==>{ () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($init,$test,$incr,$code) {
    while($test()) <==
3	/Users/nnunley/pugs/util/grokprims.pl	2211	2318	
==>d>$op->{ret}</td>";
  print "<td><tt>$op->{name}</tt></td>";
  print "<td>(</td>";
  print "<td><table borde <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12676	12772	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and run <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12734	12830	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2803	2912	
==>y->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2803	2912	
==>y->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2803	2912	
==>y->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1784	1891	
==>sert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reas <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1784	1891	
==>sert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reas <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8584	8696	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8777	8889	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtim <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12466	12564	
==>$attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12466	12564	
==>$attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12466	12564	
==>$attribute)";
    }    
});

::Class.meta.add_method('_get_attribute_table' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29644	29952	
==>),
                              symbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16693	16801	
==>nt_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16693	16801	
==>nt_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19264	19387	
==>mespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19264	19387	
==>mespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19264	19387	
==>mespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method(sub {
    my ($self, $label, $value) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17089	17254	
==>METH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17089	17254	
==>METH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17089	17254	
==>METH($dispatcher, $label, %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4188	4285	
==>ing position to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4372	4469	
==>ing position to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace i <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2129	2244	
==>L $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expressio <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2129	2244	
==>L $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expressio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1208	1310	
==>[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things wit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1208	1310	
==>[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things wit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1208	1310	
==>[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the things wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3316	3440	
==>10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3316	3440	
==>10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3316	3440	
==>10)",
  "int",          1, "N", "a == Infinity || a == -Infinity || a != a ? a : parseInt(String(a))",
  "chr",          1, " <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8770	8864	
==>ject using an existing Recurrence object.

- `universal_set()`

Creates an object with a contin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8770	8864	
==>ject using an existing Recurrence object.

- `universal_set()`

Creates an object with a contin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3771	3913	
==>my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3771	3913	
==>my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3771	3913	
==>my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9317	9506	
==>pends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7051	7153	
==>ostfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->ad <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7051	7153	
==>ostfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5251	5428	
==>arameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5251	5428	
==>arameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $requir <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5251	5428	
==>arameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $requir <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1226	1447	
==>_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_elem <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1226	1447	
==>_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_elem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	345	464	
==>[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pmc = $file.' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10739	10883	
==>d;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10739	10883	
==>d;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10739	10883	
==>d;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    method has_attribute;
    method get_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6271	6358	
==>L2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6271	6358	
==>L2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returnc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6271	6358	
==>L2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returnc <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1035	1142	
==>ft;
    my $args = $self->makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2724	2825	
==>ar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2724	2825	
==>ar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10314	10441	
==>return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10314	10441	
==>return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10314	10441	
==>return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8189	8281	
==>, str == str, int != str)
multi unify => ('type::operator::nullary', 'type::operator::nullary <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	338	440	
==>TE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remo <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	338	440	
==>TE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remo <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11982	12078	
==>ts C<is descending>
and C<is insensitive> to reverse the order of sort, or the adjust the
case se <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18703	18834	
==>rintf(lc($conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= uc Pugs::Internals::sprintf( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2597	2702	
==>r(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2597	2702	
==>r(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2597	2702	
==>r(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	37	138	
==>rict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	37	138	
==>rict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	37	138	
==>rict;

use FindBin;
use File::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib" <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34002	34095	
==>nyof_close>

=head2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual cha <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1725	1815	
==>t = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Function <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1725	1815	
==>t = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Function <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6073	6185	
==>thod');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($Class)->{'@:roles'} = [ $Role ];
$_resolve->($C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1439	1547	
==>arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1439	1547	
==>arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23482	23577	
==>utable rather than mutable, this property and/or
same-named accessor method can be used to see i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28034	28129	
==>utable rather than mutable, this property and/or
same-named accessor method can be used to see i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26838	26933	
==>utable rather than mutable, this property and/or
same-named accessor method can be used to see i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2618	2744	
==>$match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2618	2744	
==>$match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless de <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	30	129	
==>ie::Runtime::Nada;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

sub provides { }

__PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	300	409	
==>Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	300	409	
==>Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	300	409	
==>Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	568	673	
==>) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	568	673	
==>) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	568	673	
==>) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circumfix:<[]> ($a) { \($a) }

# TODO - s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2848	2971	
==>::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $bo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2848	2971	
==>::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6454	6570	
==>_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6454	6570	
==>_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6454	6570	
==>_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_source = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9868	10006	
==>");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9868	10006	
==>");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9868	10006	
==>");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = function (idx) {
      var ret = new PIL2JS.Box.Proxy(
        funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7145	7240	
==>$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7145	7240	
==>$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7145	7240	
==>$:authority');
}));

$::Module->add_method('identifier' => ::make_method(sub {
    return join ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8820	8954	
==>urn @maybe;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8392	8579	
==>classes;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8392	8579	
==>classes;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8392	8579	
==>classes;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_disp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2482	2607	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2482	2607	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2482	2607	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";       
        my ($label, $value) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5420	5520	
==>rc=...>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5420	5520	
==>rc=...>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5420	5520	
==>rc=...>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Rec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11823	11964	
==>::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $.reason";
      }
  
      me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2245	2372	
==>::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2245	2372	
==>::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $.reason";
    }

    me <==
3	/Users/nnunley/pugs/util/package-osx.pl	9218	9356	
==>@_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_di <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22129	22243	
==>LL, SV which is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset a <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17030	17143	
==>LL, SV which is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset a <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2552	2675	
==>$out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2552	2675	
==>$out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3161	3262	
==>d params in signature";
    $options{returns} = 'type' if !(exists $options{returns});
    bless { %op <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3102	3202	
==>85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA/PropList.txt for above



$P6Rul <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1642	1736	
==>---------------
## informational methods

method is_root returns Bool { $!parent.defined ?? 0 ! <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1642	1736	
==>---------------
## informational methods

method is_root returns Bool { $!parent.defined ?? 0 ! <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3604	3717	
==>return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3604	3717	
==>return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2483	2607	
==>/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2794	2903	
==>d = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2794	2903	
==>d = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45969	46138	
==>$e->get('?$name')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:') <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15370	15463	
==>use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15370	15463	
==>use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12777	12882	
==>fined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12777	12882	
==>fined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12777	12882	
==>fined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21480	21625	
==>Y'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44387	44532	
==>Y'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$sel <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8167	8277	
==>mpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_parent} || ". <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	963	1088	
==>s
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	963	1088	
==>s
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	963	1088	
==>s
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	381	503	
==>rect
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	381	503	
==>rect
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	381	503	
==>rect
# * The perlification of an array containing only one element is now ($item,)
#   instead of ($item) (($item) is not a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12377	12562	
==>o subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12371	12556	
==>o subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1659	1761	
==>return \@values, $input;
  };
}

## Chapter 8 section 3.2

sub alternate(Array *@p) is exported(:all) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	335	429	
==>CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	335	429	
==>CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	259	354	
==>hrow new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	259	354	
==>hrow new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	259	354	
==>hrow new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	271	384	
==>MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	271	384	
==>MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	271	384	
==>MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24122	24258	
==>($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24122	24258	
==>($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24122	24258	
==>($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11986	12181	
==>}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15463	15658	
==>}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14798	14993	
==>}

&cartesian_product ::= &product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	777	873	
==>lFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	777	873	
==>lFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	777	873	
==>lFlow;
use Prelude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6246	6417	
==>$attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no confli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6246	6417	
==>$attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no confli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6246	6417	
==>$attr_name)) {
                # we stub it out ...
                #$self->add_attribute($attr_name => undef);
            }
            else {
                # no confli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2371	2502	
==>, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2371	2502	
==>, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2371	2502	
==>, don't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7317	7413	
==>_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7317	7413	
==>_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7317	7413	
==>_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore this correctly
$::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8416	8555	
==>f $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8416	8555	
==>f $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8416	8555	
==>f $method eq 'ref';
                    return Str->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	574	682	
==>nclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	574	682	
==>nclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	574	682	
==>nclass

$::EigenClass = $::Class->new();
# do this (and some other stuff later), in the bootstrap  
# $::Eige <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	339	464	
==>rammar::Operator',
        header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'poin <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5820	5932	
==>-------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5820	5932	
==>-------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	976	1097	
==>readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	976	1097	
==>readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	976	1097	
==>readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35400	35519	
==>ning 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35400	35519	
==>ning 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35400	35519	
==>ning 
            ( $len_tail, @tail ) = $array->_pop_n( -$length );
            ( $len_body, @body ) = $array->_shift_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1369	1502	
==>[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1369	1502	
==>[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	365	464	
==>r two of work.
It is very much in a state of flux.

=cut

class JSX::PseudoValue;
class JSX::Interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7804	7934	
==>ore( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7804	7934	
==>ore( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7804	7934	
==>ore( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	726	838	
==>_) } @{$val};
	} else {
		return $val;
	}
}

# dump data as p5
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1218	1324	
==>lue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1218	1324	
==>lue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	318	431	
==>, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	318	431	
==>, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	318	431	
==>, %params);    
}));

$::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36145	36260	
==>ery
tuple of the invocant relation with every tuple of the <$other> relation,
then where each member of a tuple pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40694	40809	
==>ery
tuple of the invocant relation with every tuple of the <$other> relation,
then where each member of a tuple pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40308	40423	
==>ery
tuple of the invocant relation with every tuple of the <$other> relation,
then where each member of a tuple pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21476	21572	
==>UB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21476	21572	
==>UB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21476	21572	
==>UB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB exists ($xx0,$xx1) {...};
M <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1993	2239	
==>ss Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1993	2239	
==>ss Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20470	20584	
==>t
    self["iscapture"] = 1
    self["isscope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unsco <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7365	7485	
==>\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3969	4089	
==>\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4818	4938	
==>\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	920	1019	
==>ight->isa('symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name->to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	436	539	
==>ctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	436	539	
==>ctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	436	539	
==>ctions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1341	1452	
==>_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1546	1657	
==>_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1607	1718	
==>_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	799	889	
==>local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	638	728	
==>local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	638	728	
==>local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12316	12472	
==>s)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12316	12472	
==>s)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12316	12472	
==>s)
                }
                push @{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2957	3098	
==>ad the config        
        require Config;
        $perl_version = $Config::Config{version};
        
    } else {
        my $cmd  = $perl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12809	12947	
==>',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has thes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12809	12947	
==>',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has thes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9531	9633	
==>a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9531	9633	
==>a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9531	9633	
==>a = '?'.$n6a if $is_optional;
        $n6a = '*'.$n6a if $is_slurpy;
	push(@info,['invocant',1]) if $is <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8634	8752	
==>_normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8634	8752	
==>_normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11462	11611	
==>e->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11462	11611	
==>e->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11462	11611	
==>e->{$label};                
});

::Class.meta.add_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36936	37029	
==>here a pair
of source relations have identical headings, for these their joining
degenerates t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41485	41578	
==>here a pair
of source relations have identical headings, for these their joining
degenerates t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41108	41201	
==>here a pair
of source relations have identical headings, for these their joining
degenerates t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12434	12538	
==>nnection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12434	12538	
==>nnection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13879	13970	
==>y_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_array_complain->("sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14437	14537	
==>hod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14437	14537	
==>hod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14437	14537	
==>hod('remove_method' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    confess "You mus <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1018	1135	
==>t->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1223	1340	
==>t->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1284	1401	
==>t->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16560	16682	
==>rivate');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16560	16682	
==>rivate');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16560	16682	
==>rivate');
            my $method = $::CLASS->get_method($label, for => 'private');
            return $method->($self, @{$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	738	835	
==>ins objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	738	835	
==>ins objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	738	835	
==>ins objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'B <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37757	37853	
==>ring), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37757	37853	
==>ring), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4820	4916	
==>, 3, '... $Foo is the fourth id');
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Foo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5821	5920	
==>d end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5821	5920	
==>d end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3551	3641	
==>utes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3551	3641	
==>utes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3551	3641	
==>utes')->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	181	280	
==>), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	181	280	
==>), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	181	280	
==>), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator ( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	55	142	
==>lready been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Conf <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	55	142	
==>lready been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2284	2410	
==>ches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2284	2410	
==>ches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2284	2410	
==>ches("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsna <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4799	4928	
==>g on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced cl <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4799	4928	
==>g on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced cl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8864	8988	
==>y @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8864	8988	
==>y @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14159	14269	
==>red_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    my $self = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4812	4937	
==>aron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4812	4937	
==>aron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	741	857	
==>t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

print "C code:\n$res\n";

#print "Compiled: " . $pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	3	102	
==>kage Pugs::Runtime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	3	102	
==>kage Pugs::Runtime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4454	4540	
==>--------------------------------------------------------------

my $Role;

my $_resolve <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4058	4277	
==>e $?;
              
        $meta = eval { LoadFile( File::Spec->catfile( 
                                    $my_tmp_dir,
                                    $conf->meta_file )
                ) };
        $@ and erro <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11576	11670	
==>all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node obj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11576	11670	
==>all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node obj <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	21031	21133	
==>rypt exec getlogin /[get|set][pw|gr].*/ kill setpgrp setpriority
# system times


# fork lock wait wait <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7549	7644	
==>fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired whe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7549	7644	
==>fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired whe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3911	4029	
==>{ while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemente <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3899	4017	
==>{ while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemente <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1753	1856	
==>bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File::Spec->catfile($path, "man1");
    $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1124	1213	
==>dule lets you write B<Module::Compile> extensions that
are compatible with B<Filter::Simpl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1124	1213	
==>dule lets you write B<Module::Compile> extensions that
are compatible with B<Filter::Simpl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11193	11324	
==>$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11193	11324	
==>$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11193	11324	
==>$.params' => $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2201	2453	
==>ode>).add_children(
                            Tree.new(:node<Routine>).add_children(
                                Tree.new(:node<Sub>).add_children(
                                    Tree.new(:node<Method>),
                                    Tr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17145	17238	
==>ontent_language

The natural language(s) of the intended audience for the message
content.  Th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17145	17238	
==>ontent_language

The natural language(s) of the intended audience for the message
content.  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1740	1846	
==>args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1740	1846	
==>args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1740	1846	
==>args.length != 0)
  PIL2JS.die("" + args.length + " more parameters passed to sub " + @{[PIL::doublequote $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11820	11969	
==>cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11820	11969	
==>cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11820	11969	
==>cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rename $:c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8758	8942	
==>' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8758	8942	
==>' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8758	8942	
==>' ) {
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18746	18873	
==>= 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18746	18873	
==>= 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18746	18873	
==>= 'class::isa';
        goto &Dispatchable::AUTOLOAD;        
    }

    sub can {
        $Dispatchable::AUTOLOAD = 'class::can <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12673	12842	
==>$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12667	12836	
==>$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	836	937	
==>2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autodere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	836	937	
==>2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autodere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	836	937	
==>2JS.die("\"" + thing + "\" is not a reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autodere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2324	2456	
==>ge PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2324	2456	
==>ge PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2324	2456	
==>ge PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	676	790	
==>\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	676	790	
==>\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	722	830	
==>ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	722	830	
==>ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	722	830	
==>ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7977	8121	
==>6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7977	8121	
==>6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7977	8121	
==>6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str->new( '$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13614	13709	
==>PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13614	13709	
==>PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13614	13709	
==>PIL::Run::ApiX::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14444	14569	
==>erl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14444	14569	
==>erl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14444	14569	
==>erl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $s->num };
    $s = $tmp unless $@;
    eval { $tmp = $s-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16893	16987	
==>of their application in Rosetta D (as
either named modules or anonymous routines) and write the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16893	16987	
==>of their application in Rosetta D (as
either named modules or anonymous routines) and write the <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4231	4346	
==>urn $S->object(exact => $S->nchar($name), "\\N{$name}");
  });

  # nprop (not a unicode property)
  $self->add_hand <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9108	9203	
==>he opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_en <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9108	9203	
==>he opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_en <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11569	11688	
==>r input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11569	11688	
==>r input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	908	1006	
==>s_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	908	1006	
==>s_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	908	1006	
==>s_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37170	37298	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37170	37298	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37170	37298	
==>t if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $r <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1804	1909	
==>tils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1804	1909	
==>tils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6207	6309	
==>?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Objec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4965	5066	
==>() returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4965	5066	
==>() returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2172	2330	
==>$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2172	2330	
==>$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2172	2330	
==>$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27379	27486	
==>ional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31931	32038	
==>ional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31014	31121	
==>ional attributes as there are pairs in the argument C<$attrs>,
where the keys of C<$attrs> provide the names <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8208	8318	
==>rep /^-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	586	683	
==>}
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	586	683	
==>}
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9411	9518	
==>_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9411	9518	
==>_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9411	9518	
==>_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package name. XXX! Le <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12528	12759	
==>);
                    print "$test{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2262	2398	
==>($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2262	2398	
==>($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $mat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25663	25763	
==>o be read by a machine and
mapped to a user-readable message; the key itself is not meant to be
meani <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25663	25763	
==>o be read by a machine and
mapped to a user-readable message; the key itself is not meant to be
meani <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11803	11901	
==>. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5417	5532	
==>($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5417	5532	
==>($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5417	5532	
==>($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1643	1735	
==><lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it and/or mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1643	1735	
==><lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it and/or mod <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14206	14325	
==>_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1686	1805	
==>_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11324	11443	
==>rce reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11324	11443	
==>rce reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11324	11443	
==>rce reset the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5717	5843	
==>e->new(
        reference->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => lis <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	180	286	
==>wo);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	180	286	
==>wo);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33263	33464	
==>now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33263	33464	
==>now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33263	33464	
==>now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	567	680	
==>e> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packag <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	567	680	
==>e> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packag <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	652	752	
==>76

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1225	1332	
==>h));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1225	1332	
==>h));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1225	1332	
==>h));
  })')(@pairs);
}

method postcircumfix:<{}>(%self: *@keys) is rw {
  die "Can't use object of type {%s <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13958	14069	
==>$syn =~ /^A/i ) { $synpod = catfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16270	16492	
==>$e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_')->instantiate_container
                                  );
                          } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	463	572	
==>ing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	521	630	
==>ing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6209	6327	
==>lse {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6209	6327	
==>lse {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6209	6327	
==>lse {
      push @ret, $op(@a[$i], @b[$i]);
    }
  }
  return @ret;
}

# From here on, most normal things won't work a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28807	28920	
==>my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[G <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28807	28920	
==>my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' => q[G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	612	727	
==>for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	612	727	
==>for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	612	727	
==>for $::SELF";
    ::opaque_instance_attr($::SELF => $attr) = shift if @_;
    ::opaque_instance_attr($::SELF => $att <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10376	10485	
==>>add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quan <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10005	10114	
==>>add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quan <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5130	5234	
==>afe::Type::Placeholder")){
			my $new = $type->type;
			return $type if ref $new and $new == $type;
			$t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	793	904	
==>-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	793	904	
==>-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	793	904	
==>-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy splicing and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9830	9934	
==>hod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9830	9934	
==>hod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9830	9934	
==>hod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4692	4795	
==>%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4692	4795	
==>%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4692	4795	
==>%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3808	3928	
==>$level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _optimize <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	131	228	
==>cable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	131	228	
==>cable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13454	13561	
==>}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

Tr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2370	2464	
==>ns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2370	2464	
==>ns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_o <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7546	7649	
==>ries);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7546	7649	
==>ries);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18558	18666	
==>rd.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18558	18666	
==>rd.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that th <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	121	228	
==>ly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#=" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	968	1106	
==>oup {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule clo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	968	1106	
==>oup {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule clo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1705	1832	
==>for 1..200},
    P5regex_x100 => sub{ 'abc' =~ /[a|b](b)/o for 1..2000},
});

}

__END__


# experimental!
sub abort { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5535	5635	
==>, giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests befor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5535	5635	
==>, giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests befor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7059	7159	
==>, giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

Skips all of the tests befor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4653	4762	
==>))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4653	4762	
==>))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4653	4762	
==>))" if $native;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33322	33520	
==>h >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33322	33520	
==>h >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33322	33520	
==>h >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1722	1842	
==>n B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1722	1842	
==>n B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1958	2078	
==>n B::svref_2object($sub)->GV->object_2svref;
}

# store sig in the sig slot of the cv's gv
sub sub_signature {
    my $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12952	13086	
==>RACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6427	6561	
==>RACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1728	1826	
==>lass->can('subclasses')) { # roles don't have subclasses
        foreach my $subclass (@{$class->su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7717	7849	
==>'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7717	7849	
==>'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7717	7849	
==>'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1797	1900	
==>left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1797	1900	
==>left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2051	2163	
==>undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2051	2163	
==>undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2051	2163	
==>undef()";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8527	8655	
==>$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8527	8655	
==>$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26843	26935	
==>/
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can trust <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2987	3145	
==>d} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2987	3145	
==>d} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2987	3145	
==>d} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	647	774	
==>bclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	647	774	
==>bclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	647	774	
==>bclasses')   = [ $::Class, $::Role  ];

# NOTE:
# this is to avoid recursion
::opaque_instance_attr($::Class  => '@:MRO') = [ $: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	530	628	
==>L_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	530	628	
==>L_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10316	10526	
==>art ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10316	10526	
==>art ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10316	10526	
==>art ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # print "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub { <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2580	2686	
==>{
    system("$^X $smoke_upload_script $html_location") == 0
        or die "Couln't run smoke upload scrip <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	176	270	
==>hod dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	176	270	
==>hod dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3540	3642	
==>Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3540	3642	
==>Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # T <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4611	4756	
==>5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4611	4756	
==>5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3586	3695	
==>osition = $matchObjPos;
  my $lastPosition = length $target;
  my @bsrStack = [];
  #XXX
  my $operator;
  exp <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22047	22164	
==>("xs"),
			),
		),
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
);

my $one_elem_list = fun(
	p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1966	2071	
==>ed, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2024	2129	
==>ed, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1296	1403	
==>s_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_opt <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1296	1403	
==>s_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_opt <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1505	1612	
==>s_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db_param->is_opt <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1758	1857	
==>ty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

m <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1758	1857	
==>ty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8051	8207	
==>$associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8051	8207	
==>$associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	8051	8207	
==>$associated_with;
            local $::PACKAGE = $associated_with;
            # and call the method ...
            $method->(@_);
        } => blessed($met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1339	1451	
==>erl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1339	1451	
==>erl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1339	1451	
==>erl() and str() methods - controls how many elements
#   of the lazy array are stringified.
# * Array is stringif <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4090	4189	
==>c) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4090	4189	
==>c) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	958	1062	
==>R::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# Fixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	958	1062	
==>R::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# Fixe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	958	1062	
==>R::.
our @ALL_LEXICALS;
# IDs of all scopes we're currently in (Array of Hash of [NormalVarname =>
# Fixe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4581	4703	
==>f we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4581	4703	
==>f we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4581	4703	
==>f we are an 
    # instance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7955	8127	
==>eturn $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7955	8127	
==>eturn $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34101	34194	
==>r

=head2 anyof_range

Family: anyof_range

Types: anyof_range (C<X-Y>)

Data: array reference <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	58	164	
==>.
# Usage: svn log | util/svnlog2graph.pl > /tmp/graph.png   --or
#        svn log > /tmp/log; util/svnlog2 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33960	34054	
==>re,
in order, if preferred ones aren't supported by a program or its libraries.
When translatin <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33960	34054	
==>re,
in order, if preferred ones aren't supported by a program or its libraries.
When translatin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14337	14519	
==>method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14337	14519	
==>method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14337	14519	
==>method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4964	5078	
==>.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to th <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4964	5078	
==>.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to th <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7694	7786	
==>t_path = catfile($output_dir, $path);
    my $index_file =  catfile($output_path,"index.html" <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1310	1409	
==>g with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1310	1409	
==>g with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2762	2853	
==>for running the test
script(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5122	5240	
==>op => $name, 0);
  });

  # nspace (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1768	1876	
==>rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1768	1876	
==>rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	669	773	
==>ss' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	669	773	
==>ss' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	669	773	
==>ss' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	119	232	
==>($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being se <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	119	232	
==>($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being se <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21009	21124	
==>sarray"] = 1
    isarray = 1
  setreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray |= padar <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19150	19244	
==>ble.  Likewise, emulation layers for any other programming language can
be supported, such as T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19150	19244	
==>ble.  Likewise, emulation layers for any other programming language can
be supported, such as T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4694	4800	
==>.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4694	4800	
==>.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4694	4800	
==>.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23351	23445	
==>eff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41275	41369	
==>eff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37301	37395	
==>eff Pinyan F<japhy@perlmonk.org>. All rights reserved.
This program is free software; you can r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2938	3074	
==>label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2938	3074	
==>label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2938	3074	
==>label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4288	4385	
==>kreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4288	4385	
==>kreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4288	4385	
==>kreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_SUBLIKE >= P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2091	2191	
==>e');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2091	2191	
==>e');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Packag <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2091	2191	
==>e');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	496	587	
==>s of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	496	587	
==>s of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	496	587	
==>s of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:superclasses') <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1539	1640	
==>:Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "afte <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1539	1640	
==>:Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "afte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7601	7714	
==>pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $bloc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7601	7714	
==>pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $bloc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	176	285	
==>) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rul <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	303	399	
==>t represents the 
node type, which are checked against each other for agreement at BUILD time
for <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	303	399	
==>t represents the 
node type, which are checked against each other for agreement at BUILD time
for <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	124	218	
==>ntextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in Perl 6 nur n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10226	10333	
==>alue attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10226	10333	
==>alue attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, unde <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10226	10333	
==>alue attempted, subscript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, unde <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4731	4853	
==>on was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4789	4911	
==>on was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. te <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	722	821	
==>max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7978	8138	
==>ers
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and cal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7978	8138	
==>ers
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and cal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7978	8138	
==>ers
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated_with;
            # and cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14012	14121	
==>$xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14012	14121	
==>$xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14012	14121	
==>$xx) ? $xx : p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2269	2378	
==>2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2269	2378	
==>2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2269	2378	
==>2, "N", "Number(a)  & Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2069	2172	
==>sion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2069	2172	
==>sion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $aut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2069	2172	
==>sion, $authority) = split '-' => $full_name;       
    my $new_role = _build_role($name, $version, $aut <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15470	15612	
==>e
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-load-size" => 4,              # Set numbers of l <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6523	6624	
==>end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop thi <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6523	6624	
==>end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop thi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11711	11863	
==>ven relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15188	15340	
==>ven relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the inv <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14523	14675	
==>ven relation in @others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the inv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	244	365	
==>ore = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	244	365	
==>ore = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	244	365	
==>ore = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.c <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7381	7498	
==>STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7381	7498	
==>STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6396	6499	
==>[ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5911	6028	
==>f $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5911	6028	
==>f $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5911	6028	
==>f $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print encode "utf-8", "@_\n" });
  $ct->bi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2524	2650	
==>s = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cooki <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2524	2650	
==>s = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cooki <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1964	2113	
==>ase);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1964	2113	
==>ase);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4947	5055	
==>o::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $self->{'field_type'}{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	196	338	
==>ine <ws> to test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'singl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10431	10546	
==>spec, see the thread rooted at <20050502192508.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $fil <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1635	1746	
==>f->from();
  my $position = $self->position();
  return ("") if $position < 0 or $position <= $from;
  return su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2075	2222	
==>w(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2075	2222	
==>w(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2075	2222	
==>w(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	703	852	
==>ad ();
    use Carp ();

    sub atomic { '' }

    sub fmap {
        Carp::croak "virtual method fmap called on @_";
    }

    sub str {
        Ca <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1207	1303	
==>f arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> a <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1207	1303	
==>f arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	181	285	
==>mpiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() ret <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	181	285	
==>mpiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() ret <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3274	3374	
==>0,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6724	6833	
==>s handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<sk <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6724	6833	
==>s handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<sk <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8921	9030	
==>s handles the specific details of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<sk <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6190	6299	
==>(){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    inc litlen
    goto term_literal_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	44	140	
==>has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) ret <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	44	140	
==>has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23567	23746	
==>XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23567	23746	
==>XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23567	23746	
==>XXX - I think only fetch() need to return Scalar 
                        my $scalar = Scalar->new();
                        $scalar->store( $elem );
                        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	680	768	
==>fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	680	768	
==>fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	680	768	
==>fn: unimplemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14237	14407	
==>ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14237	14407	
==>ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14237	14407	
==>ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1429	1543	
==>onstant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1429	1543	
==>onstant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1429	1543	
==>onstant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0].uid && args[1].u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	737	863	
==>=> 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'M <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	737	863	
==>=> 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'M <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17661	17774	
==>D($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m},$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1774	1934	
==>"\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1774	1934	
==>"\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1774	1934	
==>"\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	108	212	
==>s {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	108	212	
==>s {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	108	212	
==>s {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using function converted by PIL2JS.cps2n <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3689	3927	
==>ne ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_eleme <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3689	3927	
==>ne ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_eleme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41052	41168	
==>->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

=back

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4804	4913	
==>($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4804	4913	
==>($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4804	4913	
==>($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}

method grep(@self: Code $code) { grep $code, *@self }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	910	1015	
==>$a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	910	1015	
==>$a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	910	1015	
==>$a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of all scopes we're currentl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17839	18026	
==>method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17839	18026	
==>method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17839	18026	
==>method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class->has_method($1) ?
                        $self->class->g <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20872	20987	
==>s->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1991	2088	
==>ynamic lookup. 



This object-serialization format is shared across all runtimes.



=head1 Direc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1917	2010	
==>ynamic lookup. 

This object-serialization format is shared across all runtimes.

=head1 Direc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2016	2128	
==>ance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2016	2128	
==>ance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2016	2128	
==>ance_attr ($$) : lvalue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32122	32246	
==>@tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32122	32246	
==>@tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32122	32246	
==>@tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIV <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18423	18549	
==>)
  cutatom:
    $P0 = self[0]
    $P0 = $P0.reduce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4865	4964	
==>s

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4923	5022	
==>s

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4295	4400	
==>(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stac <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4295	4400	
==>(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stac <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2454	2554	
==>("foo", ...) then "foo" is the name of the subscription
        method add_subscription (String $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2179	2280	
==>od->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2179	2280	
==>od->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2179	2280	
==>od->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	681	781	
==>L::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	681	781	
==>L::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	681	781	
==>L::add_indent 1, $self->{body}->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18791	19018	
==>@a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18791	19018	
==>@a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18791	19018	
==>@a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3396	3490	
==>\{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3396	3490	
==>\{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1924	2017	
==>------------------------------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6922	7078	
==>" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6922	7078	
==>" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6922	7078	
==>" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6	115	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6	115	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# F <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6	115	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creates ::Role

# F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5650	5748	
==>ray @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5650	5748	
==>ray @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5650	5748	
==>ray @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} := &infix:{">>+<<"};

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16342	16455	
==>::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16342	16455	
==>::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16342	16455	
==>::NaN;

    no warnings 'numeric';
    return 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	939	1040	
==>rn @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	939	1040	
==>rn @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16828	16928	
==>ers is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16828	16928	
==>ers is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<g <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16828	16928	
==>ers is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<g <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1161	1284	
==>XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $pa <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1161	1284	
==>XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4649	4764	
==>ed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4649	4764	
==>ed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4649	4764	
==>ed PIL::Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20508	20619	
==>}~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs d <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2930	3023	
==>herer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2930	3023	
==>herer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enci <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	17	119	
==>an::Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	17	119	
==>an::Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	55	153	
==>PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	55	153	
==>PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	55	153	
==>PIL::Parser and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
us <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12835	12952	
==>er = $strap->_is_header($line);

Checks if the given line is a header (1..M) line.  If so, it places how
many tests th <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	231	316	
==>---------------------------------------------------------------
## constructors

subme <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	231	316	
==>---------------------------------------------------------------
## constructors

subme <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4469	4602	
==>cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            u <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4469	4602	
==>cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            u <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	35	133	
==>Perl6;

# publicly exported methods
has Code--Perl6 %.methods;

# private use methods
has Code--Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9157	9257	
==>gs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9157	9257	
==>gs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9157	9257	
==>gs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl5 $fn" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14611	14707	
==>mmended "Good Practice" of ordering the header fields.  Long header
values are not folded.

The o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14611	14707	
==>mmended "Good Practice" of ordering the header fields.  Long header
values are not folded.

The o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3376	3464	
==>meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3376	3464	
==>meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3376	3464	
==>meta.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5891	5998	
==>declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5891	5998	
==>declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5891	5998	
==>declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1 <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	340	442	
==>_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	340	442	
==>_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5377	5558	
==>')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5377	5558	
==>')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5377	5558	
==>')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef) },
                my $s <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4656	4773	
==>s += print OUT while <$rh>;
    #my $program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7731	7840	
==>}
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

metho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7731	7840	
==>}
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12699	12798	
==>sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the field <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12699	12798	
==>sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the field <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1899	1997	
==>'Disabled,^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} and ($ENV{PUG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12728	12863	
==>in, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12728	12863	
==>in, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->disp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12728	12863	
==>in, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->disp <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13394	13493	
==>ost of the functions is a way
to provide a comment that refers to another file or test which must be <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13452	13551	
==>ost of the functions is a way
to provide a comment that refers to another file or test which must be <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	274	381	
==>::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./g <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	274	381	
==>::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./g <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18555	18662	
==>ace [ "PGE::Exp::Concat" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp0, exp1
    exp0 = <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	376	499	
==>e Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_facto <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	376	499	
==>e Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_facto <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12916	13020	
==>) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12916	13020	
==>) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12916	13020	
==>) already eigened : $self";
    ::bind_method_to_class($method, $self);        
    $self->class->add_met <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11636	11751	
==>method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11636	11751	
==>method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	703	805	
==>script     => $Config{installsitescript} || $Config{installscript},
        installbin     => $Config{i <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2952	3052	
==>$ <[\/\.\d]>+ } # XXX - $/<bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo ==> <'$foo'>  Sca <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1293	1391	
==>path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not y <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1293	1391	
==>path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not y <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52513	52607	
==>($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO') => l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2601	2709	
==>map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2601	2709	
==>map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2601	2709	
==>map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expand();
    my $decl = "my($varlist);";
    if ($_[0]{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21461	21583	
==>n $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

R <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7635	7730	
==>pher::Block> class takes care of much of this.)

A default implementation of this method is prov <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7635	7730	
==>pher::Block> class takes care of much of this.)

A default implementation of this method is prov <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	189	302	
==>Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	189	302	
==>Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	189	302	
==>Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11555	11687	
==>f: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1995	2121	
==>f: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1995	2121	
==>f: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7784	7912	
==>!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7784	7912	
==>!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22063	22180	
==>relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26615	26732	
==>relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25311	25428	
==>relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Rel <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7041	7159	
==>.

=cut

# Turns on autoflush for the handle passed
sub _autoflush {
    my $flushy_fh = shift;
    my $old_fh = select <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1066	1169	
==>t_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args) <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1066	1169	
==>t_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6201	6377	
==>number
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pug <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1977	2079	
==>umfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1977	2079	
==>umfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$st <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33645	33898	
==>ew('$class' => 'opaque'),                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;               
                $e->create('$return' => bit->new(0));
                $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3097	3202	
==>pan.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3097	3202	
==>pan.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2750	2879	
==>keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2750	2879	
==>keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2750	2879	
==>keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var proxy = new PIL2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15220	15376	
==>turn;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15214	15370	
==>turn;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9581	9670	
==>sLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op{'isName <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39990	40125	
==>\@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39990	40125	
==>\@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39990	40125	
==>\@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3991	4093	
==>st.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test y <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3991	4093	
==>st.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4071	4173	
==>st.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the test y <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9880	9995	
==>E MkType ($typename) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3855	3946	
==>(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3855	3946	
==>(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7945	8068	
==>lasses_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7945	8068	
==>lasses_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7945	8068	
==>lasses_needed) {
        $have_classes{$_} = 1;
        $code .= "package $_; \@ISA = qw(EvalX::BaseClass);\n";
    }
    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2622	2716	
==>StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2622	2716	
==>StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2622	2716	
==>StubMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1364	1470	
==>nted it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1364	1470	
==>nted it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1364	1470	
==>nted it in PIL2JS). 
#        But: By default, hash can autoconvert their keys to Strs, so {undef()=>undef} <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3998	4106	
==>($SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15137	15241	
==>1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into origin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15137	15241	
==>1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into origin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8769	8875	
==>t ? DOWN($tpDefault)." " : "";
    #$type." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "sh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28626	28722	
==>ing wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33178	33274	
==>ing wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32306	32402	
==>ing wrapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4226	4431	
==>.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = spli <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4226	4431	
==>.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = spli <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	18	127	
==>or
$x = $y; # wie bei Perl 5

#=Bindung (dynamisch)
my $x = 'Just Another';
# $x wird nun zur Laufzeit an $y g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	782	890	
==>tch;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1..4 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10542	10636	
==>`current()`, and `reset()` methods.

If the set is "continuous", this method emits a warning an <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10542	10636	
==>`current()`, and `reset()` methods.

If the set is "continuous", this method emits a warning an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2402	2551	
==>();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2402	2551	
==>();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2402	2551	
==>();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    push @res, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	557	658	
==>ontent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = " <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	557	658	
==>ontent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33933	34025	
==>_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

Ender: I<anyof_close>

=head2 anyo <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1754	1892	
==>ls::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_command($file);
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29705	29804	
==>or it to ever be executed.  As such,
it would be pre-consumptive.

There is an interesting case of t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1635	1731	
==>ls::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file);
			} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19167	19263	
==>t the program's users' own data; only
someone already involved in making the program would be edi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19167	19263	
==>t the program's users' own data; only
someone already involved in making the program would be edi <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	355	546	
==>nrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    i <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	355	546	
==>nrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16660	16767	
==>rns Relation::Example {

    # First do some optimizing of the order that source relations are
    # combine <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35242	35338	
==>rgument. The new
Relation::Example has all of the same attributes as the original.  Trivial cases <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3414	3510	
==>$closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4096	4192	
==>$closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument t <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	437	576	
==>, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Duration::Gr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	642	757	
==>ss->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other acce <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1126	1241	
==>ss->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other acce <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	686	790	
==>}

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	686	790	
==>}

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $op <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1687	1790	
==>g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	450	553	
==>ft;
	my $symbol = shift;

	foreach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	842	936	
==>g elements of a constantly-transforming 
state table with each byte of plaintext or ciphertext. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	842	936	
==>g elements of a constantly-transforming 
state table with each byte of plaintext or ciphertext. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8552	8655	
==>ldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<user <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8552	8655	
==>ldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<user <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2466	2559	
==>A_JIB_CONFIG => sub { UNIVERSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11077	11196	
==>return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11077	11196	
==>return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11077	11196	
==>return bless sub {
            if (!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) {
                return ::next_METHOD() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9507	9622	
==>r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9507	9622	
==>r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9507	9622	
==>r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2324	2429	
==>::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2324	2429	
==>::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2324	2429	
==>::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	729	858	
==>'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	729	858	
==>'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	729	858	
==>'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3974	4085	
==>_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3974	4085	
==>_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub param <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3974	4085	
==>_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub param <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1912	2028	
==>h++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compres <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3038	3129	
==>f: Set $other) returns Set {
    $self.difference($other).union($other.difference($self));
} <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3038	3129	
==>f: Set $other) returns Set {
    $self.difference($other).union($other.difference($self));
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9749	9861	
==>,1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9749	9861	
==>,1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9749	9861	
==>,1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@names6param,$n6p);
        push( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1181	1285	
==>$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2055	2159	
==>$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	566	663	
==>$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15561	15690	
==>hing ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15561	15690	
==>hing ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15561	15690	
==>hing ....      
        return ::dispatcher(shift, $label, \@_);
    }
}

## add on to Class::Multimethods::Pure 
## to make metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4052	4153	
==>_a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4052	4153	
==>_a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4052	4153	
==>_a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var a = args[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1073	1202	
==>Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in eva <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1905	2029	
==>Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in eva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2045	2169	
==>Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} = eval 
        $self->{perl5};
    die "Error in eva <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2102	2285	
==>", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        el <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2102	2285	
==>", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        el <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6887	6986	
==>adFile($file) or die "can't parse chunk ($file)";
        push @{ $self->{meat}{test_files} }, @{$ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13515	13672	
==>e fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13515	13672	
==>e fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13515	13672	
==>e fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20830	20929	
==>ue to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25382	25481	
==>ue to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23970	24069	
==>ue to invalid input.  If an invoked routine simply
returns, you can assume that it has succeeded.

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4285	4404	
==>ush @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10503	10621	
==>( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push $.results, $test;
      $. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4154	4271	
==>ush @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1926	2018	
==>Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1926	2018	
==>Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1926	2018	
==>Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3414	3541	
==>wd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3414	3541	
==>wd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3414	3541	
==>wd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $descr $path [" .
    (-d $cfg{$what} || (-f $cf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26393	26490	
==>s, use the digit variables, but only if you're sure the
match succeeded.

=head2 Parser Methods

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31002	31093	
==>hod returns the identity-one Relation or the invocant relation,
respectively.

=item C<restr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35552	35643	
==>hod returns the identity-one Relation or the invocant relation,
respectively.

=item C<restr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	725	856	
==>acro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	725	856	
==>acro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	725	856	
==>acro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3614	3758	
==>. ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3614	3758	
==>. ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3614	3758	
==>. ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6436	6542	
==>:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6436	6542	
==>:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6436	6542	
==>:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9857	10010	
==>nt( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10136	10289	
==>nt( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13199	13305	
==>e launder everything for you
	my $sep;

	eval "require Config; Config->import";
	if ($@) {
	    warn "test. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7505	7686	
==>family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12801	12909	
==>) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12801	12909	
==>) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() { <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4757	4880	
==>ig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4757	4880	
==>ig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => ch <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5298	5398	
==>en URL
and return it.  It returns C<undef> if it fails.  The $url argument can
be either a simple str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5298	5398	
==>en URL
and return it.  It returns C<undef> if it fails.  The $url argument can
be either a simple str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	51	174	
==>ce attributes
has $.y;        # default "is readonly" 
method clear () {
    $.x = 0;  # accessible within the class
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21392	21484	
==>g <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21392	21484	
==>g <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 200 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14040	14137	
==>WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14040	14137	
==>WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14040	14137	
==>WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4796	4888	
==>ad1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4936	5028	
==>ad1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8381	8503	
==>lize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8381	8503	
==>lize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8381	8503	
==>lize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class" <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1943	2042	
==>-----------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	697	790	
==>Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> tre <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	697	790	
==>Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> tre <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4866	4976	
==>}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4866	4976	
==>}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6468	6585	
==>m'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6468	6585	
==>m'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6468	6585	
==>m'
	    && $_[0]{'pSubName'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4025	4126	
==>ently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4025	4126	
==>ently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4025	4126	
==>ently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method($ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6289	6385	
==>hitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6289	6385	
==>hitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %ev <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22321	22462	
==>d_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::si <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42110	42251	
==>d_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17924	18056	
==>_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      nparen => $nparen,
      r <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1685	1787	
==>d =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.inters <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1685	1787	
==>d =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.inters <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22139	22234	
==>nguage
or permissions issue; simply order the files appropriately in the search
list.  The analo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22139	22234	
==>nguage
or permissions issue; simply order the files appropriately in the search
list.  The analo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4329	4494	
==>alue::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4329	4494	
==>alue::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4329	4494	
==>alue::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8978	9086	
==>,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8978	9086	
==>,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8978	9086	
==>,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2994	3146	
==>se {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2994	3146	
==>se {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25094	25217	
==>> $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerole <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13791	13894	
==>g to happen or not happen, but the relevant line of code is
  off in perl runtime guts where it can't pl <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12950	13043	
==>n-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provide <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12950	13043	
==>n-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provide <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4591	4732	
==>tch;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4591	4732	
==>tch;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2766	2859	
==>y $full_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6', 'li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1174	1301	
==>n
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1174	1301	
==>n
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1174	1301	
==>n
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4942	5038	
==>porary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4942	5038	
==>porary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4942	5038	
==>porary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	541	682	
==>'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4515	4647	
==>iddot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => ' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4515	4647	
==>iddot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13070	13209	
==>arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13070	13209	
==>arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13070	13209	
==>arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	780	893	
==>tion 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14797	14893	
==>elegant system, which makes
it easy to create and use relational databases in a very reliable,
po <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14797	14893	
==>elegant system, which makes
it easy to create and use relational databases in a very reliable,
po <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7150	7331	
==>umper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10809	10986	
==>umper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7999	8176	
==>umper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1817	1958	
==>ot match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5294	5435	
==>ot match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4224	4365	
==>ot match the members"
                ~ " of arg :$heading?; the header of a tuple in :$body?"
                ~ " does not match the header o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	637	738	
==>azy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	637	738	
==>azy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	637	738	
==>azy (non-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11823	11954	
==>ol} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut

=for later
sub wrap {
    my $debu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19932	20027	
==>dard practice for Mac OS X programs, including
the operating system itself, to have the user lan <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19932	20027	
==>dard practice for Mac OS X programs, including
the operating system itself, to have the user lan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2295	2414	
==>name) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2295	2414	
==>name) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2295	2414	
==>name) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { unlink($_[0]) or die $! })") <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6249	6358	
==>$h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7247	7356	
==>$h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11079	11178	
==>s of subclasses

my $iBar = $Bar->new;
is($iBar->id, 12, '... $iBar is the sixth id');
is($iBar->cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11453	11567	
==>> $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11453	11567	
==>> $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33044	33134	
==>ource Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37594	37684	
==>ource Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36938	37028	
==>ource Relations.  This method has aliases named
C<disjoint_union>, C<d_union>, and C<symmet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3557	3649	
==>->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3557	3649	
==>->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3557	3649	
==>->{$label}) eq 'Perl6::StubAttribute';
}));

$::Role->add_method('get_attribute_list' => ::ma <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8630	8747	
==>imalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit>
    | <'0X'> < <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4111	4206	
==>.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4111	4206	
==>.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6731	6884	
==>ess $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6731	6884	
==>ess $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6731	6884	
==>ess $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $start to $end";
            my $slice = $ary->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1539	1638	
==>hod) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1539	1638	
==>hod) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1539	1638	
==>hod) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:private_methods')-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2508	2601	
==>}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subset($s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2508	2601	
==>}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subset($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5167	5300	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5167	5300	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5167	5300	
==>f' => sub { $::CLASS }, 
        },
    }
};

class1 'Int'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2772	2875	
==>[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2772	2875	
==>[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18851	18975	
==>>from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18851	18975	
==>>from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18851	18975	
==>>from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14343	14481	
==>n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14337	14475	
==>n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13575	13729	
==>self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13575	13729	
==>self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13575	13729	
==>self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1673	1784	
==>+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1733	1844	
==>+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $ch <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8466	8560	
==>X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl than what you're running t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5568	5678	
==>ed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5568	5678	
==>ed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5568	5678	
==>ed_tree->{pilMain}->as_js;

  my $decl_js =
    "// Declaration of vars:\n" .
    join("\n", map {
      sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15685	15811	
==>sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15685	15811	
==>sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15685	15811	
==>sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2840	2943	
==>namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2840	2943	
==>namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2840	2943	
==>namespace, $opts, $level);
	};

	# rebless this node, possibly pruning (skipping recursion
	# over its c <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2310	2452	
==>n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	621	722	
==>also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And bec <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	621	722	
==>also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And bec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5012	5109	
==>my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5012	5109	
==>my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5012	5109	
==>my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16535	16677	
==>t( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20012	20154	
==>t( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19572	19714	
==>t( gather {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1056	1198	
==>) {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1056	1198	
==>) {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1056	1198	
==>) {
            $self->_close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5073	5171	
==>new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and re <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5073	5171	
==>new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	291	388	
==>e(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19616	19709	
==>lue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19616	19709	
==>lue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19616	19709	
==>lue->isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3080	3180	
==>one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3080	3180	
==>one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19339	19438	
==>s used by the
program, so that if you wanted to upgrade or localize what text the user
sees, you onl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19339	19438	
==>s used by the
program, so that if you wanted to upgrade or localize what text the user
sees, you onl <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28749	28842	
==>.ok
  t/nonumbers.........ok
  t/ok................ok
  t/test-harness......ok
  All tests suc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14759	14865	
==>$self = shift;
    my @params = @_;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	17	117	
==>e-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	17	117	
==>e-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13979	14073	
==>= MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

= <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13979	14073	
==>= MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5493	5615	
==>Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5493	5615	
==>Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5493	5615	
==>Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4592	4694	
==>::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4592	4694	
==>::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4592	4694	
==>::{'bar'}
# XXX - this is getting crufty

# Hey, there is no reason why ::code_say couldnt be ::say_cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	280	418	
==>rom CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	280	418	
==>rom CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	280	418	
==>rom CPAN.

MSG
    exit 1;
  }
}
use PIL2JS;
use Getopt::Long;

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1630	1766	
==>>elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->stor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1630	1766	
==>>elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->stor <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1630	1766	
==>>elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h->stor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3098	3216	
==>Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3098	3216	
==>Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3098	3216	
==>Constant(hash));
    } else {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13358	13494	
==>thod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13358	13494	
==>thod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13358	13494	
==>thod it is localized
    # in each run of _normal_dispatch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16309	16507	
==>" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16303	16501	
==>" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2666	2840	
==>, $c;
                } elsif ($backslash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29497	29613	
==>( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29497	29613	
==>( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29497	29613	
==>( $_, 'Perl6::Value::List' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	12	119	
==>ss Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %s <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	12	119	
==>ss Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %s <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11382	11476	
==>operator::nullary->new("int"),
			type::operator::nullary->new("bool"),
		),
	),
);


package m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7376	7475	
==>pp);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_thunk = ($app->struct_equiv->v <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24407	24501	
==>ton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not mod <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24407	24501	
==>ton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	918	1023	
==>nf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	918	1023	
==>nf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	918	1023	
==>nf };

multi sub prefix:<~> ($xx) { coerce:as($xx,'Str') }
multi sub prefix:<?> ($xx) { coerce:as($xx,'Bit <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16100	16252	
==>ch\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.nam <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3222	3318	
==>ded since the parameters are bound, not copied.
method add_content (Str $content) {
    $!content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3222	3318	
==>ded since the parameters are bound, not copied.
method add_content (Str $content) {
    $!content <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5208	5332	
==>_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_univers <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5208	5332	
==>_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_univers <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7044	7157	
==>"PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Parrot)";
  $_ eq "normal" and return "N <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	574	674	
==>empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&codere <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	574	674	
==>empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&codere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2814	2916	
==>..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2814	2916	
==>..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2814	2916	
==>..Inf).shift
# TODO - box-up .arity and .name return values

use strict;
use warnings;

use Carp 'confe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	549	645	
==>terface
sub to_num { shift }

# conversion to other native types
sub to_bit { (shift)->to_native( <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	918	1012	
==>ode>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	918	1012	
==>ode>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9984	10106	
==>ces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9984	10106	
==>ces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9984	10106	
==>ces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
us <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1272	1393	
==>tter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3380	3477	
==>>{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3380	3477	
==>>{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32392	32560	
==>:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_di <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33047	33215	
==>:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15388	15493	
==>must be a subref that tests the first argument
# for success, or returns the definition of success (e.g. t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1363	1470	
==>$link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1363	1470	
==>$link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1363	1470	
==>$link) {
  warn "*** Reading input from \"$input[0]\"...\n" if $verbose;

  my $pil  = $input[0] =~ /\.(?:pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3333	3450	
==>ile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3333	3450	
==>ile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3333	3450	
==>ile-time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::f <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3104	3218	
==>:False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3104	3218	
==>:False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2261	2366	
==>ns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.secon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2124	2228	
==>lf);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2124	2228	
==>lf);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2124	2228	
==>lf);
  } elsif $self.isa("Pair") {
    ($self.key,);
  } elsif $self.isa("Array") {
    JS::inline('new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7303	7474	
==>start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7303	7474	
==>start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? I <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7303	7474	
==>start->unboxed le $end->unboxed ? Inf : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? I <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1660	1764	
==>nlined source Prelude... " if $Config{verbose};

    gen_source($TEMP_PRELUDE);
    open IN, $TEMP_PRELUD <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3108	3242	
==>b
    unless( $meta ) {
        
        ### installed packages don't have a 'file' method, but they /should/
        ### have a meta o <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2036	2160	
==>gify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2036	2160	
==>gify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	633	755	
==>bless \(my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpPar <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21268	21356	
==>1", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21268	21356	
==>1", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2701	2824	
==>= [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ] <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1256	1371	
==>xport {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1256	1371	
==>xport {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	50	169	
==>se JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	50	169	
==>se JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	50	169	
==>se JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1239	1345	
==>refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1239	1345	
==>refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1239	1345	
==>refactored from Perl6::Value::List

# Notes:
# - All library functions - add, subtract, sqrt, ...
#   are i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8527	8634	
==>_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8527	8634	
==>_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8527	8634	
==>_pil_macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10987	11125	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10987	11125	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10987	11125	
==>E')
            || confess "Bad method body (" . ($method || 'undef') . ")";     
        return bless sub {
            if (!$_[0] || $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5653	5785	
==>::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub gl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5653	5785	
==>::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub gl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5653	5785	
==>::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/eg;
    $n =~ s/\cA/_/g;
    $n = $sigil.$n;
    $n;
}
sub gl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2365	2465	
==>);
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2365	2465	
==>);
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2365	2465	
==>);
    if(thing.referencee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instan <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1793	1890	
==>ext string, returning the ciphertext version.  Most 
algorithms will have a key, which will be spe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1793	1890	
==>ext string, returning the ciphertext version.  Most 
algorithms will have a key, which will be spe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3471	3572	
==>of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  u <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3471	3572	
==>of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4603	4698	
==>er) returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns opa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	429	539	
==>te_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	429	539	
==>te_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18752	18855	
==>ckage> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18752	18855	
==>ckage> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1227	1323	
==>e a dispatch table; this is a collection of functions and
methods that are queried during dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7270	7359	
==>cher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7270	7359	
==>cher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7270	7359	
==>cher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11314	11406	
==>t::Builder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithR <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1770	1858	
==>t::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithR <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1770	1858	
==>t::Builder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	4	118	
==>warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	4	118	
==>warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	4	118	
==>warnings;
use strict;

{
  package PIL::TypeOr;

  use overload '""' => \&as_string;

  sub all_types { local $_; m <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2489	2718	
==>d($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2489	2718	
==>d($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16989	17085	
==>my Relation::Example @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1568	1658	
==>lass($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1568	1658	
==>lass($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1568	1658	
==>lass($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, 'BU <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4107	4272	
==>$entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4571	4736	
==>$entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14159	14286	
==>fier on (?{ ... }) is pointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3122	3217	
==>ugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3122	3217	
==>ugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3122	3217	
==>ugs_options

Available options are:
  --js=/path/to/js/interpreter
  --run=js|jssm|jspm
  --pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33683	33785	
==>d2 space

Family: space

Types: space (C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 digit

Family: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1149	1248	
==>= $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESC <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1149	1248	
==>= $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1935	2062	
==>ture_body>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          retur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29322	29413	
==>e invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/unw <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33874	33965	
==>e invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/unw <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16066	16170	
==>pe($$) = {
	types::unify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12805	12901	
==>an be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For ex <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12805	12901	
==>an be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1449	1558	
==>@{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1449	1558	
==>@{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1658	1767	
==>@{$positional}, $db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3020	3118	
==>L2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3020	3118	
==>L2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3020	3118	
==>L2JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7714	7815	
==>tVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7714	7815	
==>tVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7714	7815	
==>tVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possibl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48121	48319	
==>:namespace'))
                  ->store(
                      $e->get('$label'),
                      $e->get('$value')
                  );
            }
        )
    )
);

## ------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7737	7844	
==>.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./ad <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7737	7844	
==>.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7431	7602	
==>f;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7431	7602	
==>f;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->fro <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7431	7602	
==>f;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13206	13355	
==>ough
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13206	13355	
==>ough
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13206	13355	
==>ough
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3277	3379	
==>d(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3277	3379	
==>d(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3277	3379	
==>d(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11105	11242	
==>turn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11105	11242	
==>turn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11105	11242	
==>turn ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs. <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1713	1932	
==>tart_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1713	1932	
==>tart_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffe <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	101	213	
==>ublisher can send events
# something which does subscriber can recieve them
# two kinds of things that can do sub <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11957	12066	
==>t {  # see 9.3.1
      <ExponentIndicator> <SignedInteger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35995	36087	
==>of this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35995	36087	
==>of this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7328	7439	
==>yof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	356	461	
==>r =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	356	461	
==>r =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The C <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	391	490	
==>uated expression.

All functions (but not macros) in this file need to have the
`is primitive` trait <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	59	155	
==>gs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	59	155	
==>gs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2388	2518	
==>neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2935	3065	
==>neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3482	3612	
==>neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12302	12430	
==>erl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12302	12430	
==>erl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12302	12430	
==>erl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17637	17808	
==>)
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17916	18087	
==>)
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1995	2081	
==>afe::Annotator;
	use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1861	1966	
==>turn ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1861	1966	
==>turn ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1861	1966	
==>turn ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf "new PIL2JS.Box(%s.FETCH() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	500	600	
==>l6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "outp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	500	600	
==>l6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "outp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	500	600	
==>l6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1137	1247	
==>$self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1137	1247	
==>$self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1137	1247	
==>$self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2196	2327	
==>a::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine ca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2196	2327	
==>a::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine ca <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2543	2674	
==>a::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine ca <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	533	632	
==>WP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	533	632	
==>WP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1947	2060	
==>ge $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1947	2060	
==>ge $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1947	2060	
==>ge $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4075	4178	
==>~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4075	4178	
==>~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4075	4178	
==>~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : ' <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1579	1725	
==>nless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YAML::Dump(@_) }
sub ::Y <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4135	4234	
==>ean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4135	4234	
==>ean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7623	7716	
==>" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7623	7716	
==>" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7623	7716	
==>" . $self->params->autothread_wrapper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8133	8330	
==>= 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8133	8330	
==>= 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	788	923	
==>rn Dumper $sexpr;
        return $self->evaluate($sexpr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($self, $sexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	105	230	
==>ts) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	105	230	
==>ts) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	105	230	
==>ts) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5312	5413	
==>LF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5312	5413	
==>LF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5312	5413	
==>LF) }));

$::Class->add_method('superclasses' => ::make_method(sub {        
    my ($self, $superclas <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14947	15054	
==>now we unify the type of the parameter with the type to the left of the arrow in the function's type,
	# thi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20307	20402	
==>tead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20307	20402	
==>tead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3356	3447	
==>ression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3356	3447	
==>ression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	934	1035	
==>etch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue subst <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	934	1035	
==>etch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue subst <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	934	1035	
==>etch'
# TODO - separate 'whole_array_fetch' and 'array_element_fetch' (hash too)
# TODO - lvalue subst <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	158	303	
==>my $class = shift;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4893	4988	
==>e Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4893	4988	
==>e Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3334	3433	
==>1, "12th line\n\n\n\n\n\n\n\n\n\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1345	1436	
==>C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1345	1436	
==>C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9239	9382	
==>turn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9239	9382	
==>turn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9239	9382	
==>turn $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8341	8454	
==>ut => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Outp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	551	652	
==>ut => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	551	652	
==>ut => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1142	1265	
==>ndef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fgl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1142	1265	
==>ndef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fgl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1142	1265	
==>ndef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For which?
#        fgl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3726	3842	
==>, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3726	3842	
==>, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3726	3842	
==>, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test splice list == (), (1), (1,2), Iterat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	690	809	
==>ift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	690	809	
==>ift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	690	809	
==>ift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANCE,
        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	629	735	
==>del
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	629	735	
==>del
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	629	735	
==>del
#
# 2005-08-21
# * Refactored Code.pm from MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2295	2394	
==>$js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2295	2394	
==>$js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2295	2394	
==>$js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1999	2103	
==>ing with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1999	2103	
==>ing with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1999	2103	
==>ing with MetaModel's methods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15923	16024	
==>get { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue "OP <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15923	16024	
==>get { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue "OP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3963	4087	
==>) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3963	4087	
==>) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3963	4087	
==>) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9882	9987	
==>ptional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gram <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	317	419	
==>ptional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	317	419	
==>ptional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a gram <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36389	36486	
==>ple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which any tw <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40938	41035	
==>ple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which any tw <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40552	40649	
==>ple pairs, then eliminating any result tuples that
duplicate others.  The sequence in which any tw <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26814	26919	
==>>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but n <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6511	6610	
==>tem B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6511	6610	
==>tem B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4412	4508	
==>f => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4412	4508	
==>f => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4412	4508	
==>f => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8159	8329	
==>n bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8159	8329	
==>n bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8159	8329	
==>n bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $Perl6::Submethod::FORCE) 
                     &&
                     ${$_[0]->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1495	1606	
==>y {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1495	1606	
==>y {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1495	1606	
==>y {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2039	2233	
==>from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2039	2233	
==>from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2039	2233	
==>from,$o->to);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3244	3370	
==>/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3244	3370	
==>/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3244	3370	
==>/path/to/pil2js.pl              (usually in perl5/PIL2JS/)
  --p6prelude=/path/to/lib6/Prelude/JS.pm  (usually in perl5/PIL2JS/ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3189	3321	
==>elf->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delete $prereq->{ <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	137	229	
==>HTML</title>
</head>
<script>
function openNewWindows() {
    var links = document.getElement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	546	637	
==>stance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	546	637	
==>stance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	546	637	
==>stance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11997	12124	
==>( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \% <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11997	12124	
==>( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \% <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11997	12124	
==>( $this ) = @_;
    0 + %$this;
}

package Perl6::Container::Hash::Native;

sub new {
    my $class = shift;
    # hashref => \% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11881	11978	
==>ce/API they are 
interchangable with one another, classes and Roles are unified. THis is like
Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11881	11978	
==>ce/API they are 
interchangable with one another, classes and Roles are unified. THis is like
Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11881	11978	
==>ce/API they are 
interchangable with one another, classes and Roles are unified. THis is like
Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3305	3420	
==>ody->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3305	3420	
==>ody->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3305	3420	
==>ody->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10634	10752	
==>tiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10634	10752	
==>tiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10634	10752	
==>tiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	717	813	
==>by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::I <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	717	813	
==>by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2196	2293	
==>$filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2196	2293	
==>$filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2196	2293	
==>$filename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12365	12531	
==>{ ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12365	12531	
==>{ ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12365	12531	
==>{ ::next_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 
            'unboxed' =>  sub { 
                _ <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	143	241	
==>?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/group/perl.perl6.language/2 <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	132	228	
==>?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/2 <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	99	195	
==>?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/group/perl.perl6.language/2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	449	544	
==>e're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	449	544	
==>e're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	449	544	
==>e're compiling a SLet, STemp (which all use an existing variable).
  if($self->{pScope} =~ /^(SL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	432	530	
==>_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	393	491	
==>_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	393	491	
==>_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pre <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14101	14208	
==>code") },
      ref   => sub { $as_array_complain->("ref") },
      glob  => sub { $as_array_complain->("glo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20066	20163	
==>ents.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20066	20163	
==>ents.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $u <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1702	1836	
==>till_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developer <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1183	1291	
==>all
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1150	1258	
==>all
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10415	10523	
==>e( sub{ $name(\@_) } )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	843	938	
==>p() has additional parameters?
# TODO - document unsupported operations: join, reduce, sort - ca <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	843	938	
==>p() has additional parameters?
# TODO - document unsupported operations: join, reduce, sort - ca <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	452	547	
==>ile;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.en <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	452	547	
==>ile;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.en <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5687	5800	
==>t = "$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "*** ghc not found in path.  Looking in $ghc_root\n";

        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6024	6122	
==>ime, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_clos <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5831	5927	
==>ime, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	130	244	
==>_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	130	244	
==>_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	130	244	
==>_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7830	7981	
==>and_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7830	7981	
==>and_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7830	7981	
==>and_junctions' => sub {
                my ($self, @arguments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5264	5360	
==>This returns a hash containing two keys, C<passed> and C<description>, from the
test's attributes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5264	5360	
==>This returns a hash containing two keys, C<passed> and C<description>, from the
test's attributes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7461	7557	
==>This returns a hash containing two keys, C<passed> and C<description>, from the
test's attributes <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1292	1429	
==>main ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1292	1429	
==>main ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        m <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5641	5751	
==>$.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5641	5751	
==>$.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $. <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1413	1503	
==>:instantiated: layout($$) = { $.instance }
type::operator::nullary: layout($$) = { $.name } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6922	7040	
==>args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6922	7040	
==>args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6922	7040	
==>args.shift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1527	1633	
==>1;

__END__

=head1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler for Perl 6

=head1 DESC <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22359	22451	
==>(optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22359	22451	
==>(optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21503	21614	
==>ength $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser::Handlers - handl <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7271	7371	
==>---
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7271	7371	
==>---
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6694	6856	
==>warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6694	6856	
==>warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6694	6856	
==>warn "JavaScript RegExp syntax error in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	511	666	
==>.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	511	666	
==>.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11021	11142	
==>s, 2
    if $S0 == "<?" goto nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3991	4101	
==>e($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3991	4101	
==>e($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3991	4101	
==>e($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i <==
3	/Users/nnunley/pugs/util/run-smoke.pl	665	766	
==>ML output file location";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Con <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3908	4004	
==>ackages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3908	4004	
==>ackages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	518	631	
==>r::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $var_ref, $class;
}
su <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4003	4093	
==>Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::member <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4003	4093	
==>Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::member <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1705	1807	
==>sion of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at th <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1705	1807	
==>sion of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4934	5094	
==>aque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## ---------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20159	20247	
==>dler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...}) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20159	20247	
==>dler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...}) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	677	774	
==>ION

A C<Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has o <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	677	774	
==>ION

A C<Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has o <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7893	7987	
==>erated.

What is returned at each element of the iteration varies with function.
C<values> retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4468	4597	
==>== 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4468	4597	
==>== 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ari <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4468	4597	
==>== 1  ?? "$c\$__a"           !! "$c\$__a, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $ari <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13751	13863	
==>= $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13751	13863	
==>= $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13751	13863	
==>= $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8493	8599	
==>x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8493	8599	
==>x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8493	8599	
==>x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@x <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2674	2765	
==>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/group/per <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2674	2765	
==>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/group/per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	552	643	
==>-$ENUM, 'Switch (?(condition)... contains too many branches';
use constant RPe_SWUNKN => --$ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	668	790	
==>se {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    if ($chr =~ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	690	784	
==>ead1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DES <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	690	784	
==>ead1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DES <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15892	16000	
==>folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;)
Zero seems sa <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4389	4496	
==>an0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4389	4496	
==>an0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8235	8358	
==>T];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] . <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8235	8358	
==>T];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] . <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	650	740	
==>is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is J <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	112	213	
==>:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  ( <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	112	213	
==>:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39089	39184	
==>n::Example.  This method
degenerates into an C<intersection> if the two source headings are
iden <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13426	13551	
==>_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if israng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4134	4246	
==>--------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity iss <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4134	4246	
==>--------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity iss <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4134	4246	
==>--------------
## NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity iss <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13975	14087	
==>register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifb <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10148	10260	
==>register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifb <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10984	11096	
==>register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($expr, &ifb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12250	12375	
==>{
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12250	12375	
==>{
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12250	12375	
==>{
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $v;
    $v = $value->unboxed if ref( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	284	405	
==>return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	284	405	
==>return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	284	405	
==>return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class->require;

    my $jsclass = $cla <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	961	1101	
==>e deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	961	1101	
==>e deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.c <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2135	2228	
==>sis

=head2 $strap->analyze( $name, \@output_lines )

  my %results = $strap->analyze($name, \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2844	2957	
==>e_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2844	2957	
==>e_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2844	2957	
==>e_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::EigenClass ){
#        w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3224	3344	
==>}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3224	3344	
==>}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3224	3344	
==>}

sub JS::Root::eval(Str $code?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handl <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1293	1420	
==>ompute($self);
    }

    package Env;
    use base 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$_[1]} = $ <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	380	485	
==>le DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.ne <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	380	485	
==>le DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4200	4302	
==>y ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4200	4302	
==>y ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4200	4302	
==>y ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatche <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17386	17479	
==>efits to developers and users alike.

For some practical examples of Locale::KeyedText in use, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17386	17479	
==>efits to developers and users alike.

For some practical examples of Locale::KeyedText in use, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2037	2160	
==>'\'' . $n->{single_quoted} . '\'' 
        if exists $n->{single_quoted};
            
    return 'qw(' . $n->{angle_quot <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5561	5655	
==>freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./curr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5561	5655	
==>freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./curr <==
3	/Users/nnunley/pugs/util/func_refact.pl	2460	2605	
==>and}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand)];  # new contributions
        #print <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	296	417	
==>ields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $se <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	296	417	
==>ields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6050	6179	
==>ch my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6050	6179	
==>ch my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6050	6179	
==>ch my $attr_name ($role->get_attribute_list) {
            # same as for methods, if we have the attribute
            # and it is <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3797	3906	
==>odule;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3855	3964	
==>odule;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12579	12684	
==>];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12579	12684	
==>];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12579	12684	
==>];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array_postcircumfix_method () is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1121	1219	
==>ts syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1121	1219	
==>ts syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1121	1219	
==>ts syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs optimization)
# * New met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9346	9442	
==>ce( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12823	12919	
==>ce( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12077	12173	
==>ce( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidif <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4045	4147	
==>assing on the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4045	4147	
==>assing on the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6242	6344	
==>assing on the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7352	7470	
==>A = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7352	7470	
==>A = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7352	7470	
==>A = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12643	12764	
==>);
    if ($min == 0 and $max eq '') { '*' }
    elsif ($min == 1 and $max eq '') { '+' }
    elsif ($min == 0 and $max == <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	628	730	
==>ta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	628	730	
==>ta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23230	23325	
==>o the server. The command is not modified by this module,
aside from appending the correct newli <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23230	23325	
==>o the server. The command is not modified by this module,
aside from appending the correct newli <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4173	4267	
==>nPerl5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{'p5'}->value }
sub a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12171	12282	
==>:Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12171	12282	
==>:Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12171	12282	
==>:Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : "::$pkg").";\n";
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	583	691	
==>zer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNext <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	583	691	
==>zer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNext <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	583	691	
==>zer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNext <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	993	1113	
==>ef           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this becau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	993	1113	
==>ef           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this becau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	993	1113	
==>ef           = new PIL2JS.Box(ref);

    // Finally we fix boxed.FETCH and boxed.STORE.
    // We had to delay this becau <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12333	12447	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12612	12726	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2768	2904	
==>_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2768	2904	
==>_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12742	12868	
==>= 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1154	1414	
==>cit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1154	1414	
==>cit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	379	498	
==>JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	379	498	
==>JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	379	498	
==>JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does the actual exporting.
      / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	337	439	
==>ey\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	337	439	
==>ey\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	337	439	
==>ey\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2005-09-27
# * Str.decrement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3572	3683	
==>on too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3572	3683	
==>on too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3572	3683	
==>on too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19259	19360	
==>ially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23811	23912	
==>ially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22327	22428	
==>ially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where eac <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10782	11028	
==>@by
                              ;               *@values
                             --> List )

 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9883	9976	
==>main phases, which
are referred to as "immediate" and "deferred".  The immediate validations
a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9883	9976	
==>main phases, which
are referred to as "immediate" and "deferred".  The immediate validations
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7260	7401	
==>ef->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7260	7401	
==>ef->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7260	7401	
==>ef->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2435	2545	
==>(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2435	2545	
==>(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2435	2545	
==>(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $mini = compile_ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1678	1802	
==>te(0), :second(0),
                        :tz(tz "UTC") ) + $time_t;
}

# convert from a perl float
multi sub epoch( Real $e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2427	2536	
==>*{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\~\>' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2427	2536	
==>*{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\~\>' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14859	14951	
==>evan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14859	14951	
==>evan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_C <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14859	14951	
==>evan@iinteractive.comE<gt>

The code was refactored into it's own Class from MetaModel t/80_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21091	21192	
==>0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21091	21192	
==>0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21091	21192	
==>0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9349	9476	
==>ook like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # -------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9349	9476	
==>ook like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # -------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9349	9476	
==>ook like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # -------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	752	857	
==>"recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	752	857	
==>"recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	752	857	
==>"recursion";
    return sprintf
      "_24main_3a_3a_3fPOSITION.BINDTO(new PIL2JS.Box.Constant(%s));\n%s", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1686	1802	
==>0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1686	1802	
==>0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1686	1802	
==>0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2919	3196	
==>*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2919	3196	
==>*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14405	14554	
==>' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ? <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1231	1339	
==>e are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_dept <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1231	1339	
==>e are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_dept <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2235	2328	
==>tic_token> | <commit_something>
  | <match_var>
  | <psuedo_scalar_literal>
  | <interpolated_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31053	31152	
==>_names)

This uninstalls the given handles.  You send the names (like '|' or
'atom').  Here is a ver <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3650	3746	
==>cks the actual algorithm description. See links or read
the source (there are about 10 lines of s <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3650	3746	
==>cks the actual algorithm description. See links or read
the source (there are about 10 lines of s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	546	659	
==>pe')) && 
         (blessed($value) && $value->isa('type')))
            || confess "Keys must be strings, and val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1895	1994	
==>nce => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1895	1994	
==>nce => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1287	1407	
==>e->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1287	1407	
==>e->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1287	1407	
==>e->{id};
    }
    sub ::opaque_instance_class ($) { 
        my $instance = shift;
        (defined $instance && blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45648	45810	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1641	1759	
==>ram<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1641	1759	
==>ram<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1201	1300	
==>s .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1201	1300	
==>s .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1201	1300	
==>s .= "_26main_3a_3a_3fSUB = $jsvar; pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4920	5045	
==>' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $ve <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4779	4904	
==>' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $ve <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	225	333	
==>f = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3280	3385	
==>hould never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3280	3385	
==>hould never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14335	14436	
==>n varies with function.
C<keys> only returns the key; C<values> the value; C<kv> returns both as
a 2 e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6013	6197	
==>+ 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6013	6197	
==>+ 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6013	6197	
==>+ 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub {
            my $r = $start;
            if ( de <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	331	460	
==>VENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = o <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	331	460	
==>VENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = o <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	100	195	
==>gs;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_TERM => 1;
use constant PGE_OP <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	445	579	
==>s +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostic <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	445	579	
==>s +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostic <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6942	7068	
==>d" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1298	1421	
==>d" };
sub get_op    { die "not implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar  { die "n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	400	519	
==>d" };
sub get_op { die "not implemented" };
sub inherit_category { die "not implemented" };
sub inherit_grammar { die "n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	631	728	
==>lehandle to which to write all normal output (test results and
descriptions).

=item B<$.error_out <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	631	728	
==>lehandle to which to write all normal output (test results and
descriptions).

=item B<$.error_out <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1187	1284	
==>lehandle to which to write all normal output (test results and
descriptions).

=item B<$.error_out <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2047	2155	
==>s a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2047	2155	
==>s a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2047	2155	
==>s a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'undefine $x'
# TODO - test %hash := <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5044	5189	
==>(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5044	5189	
==>(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5044	5189	
==>(?i)' { # XXX - kludge - use regex
         $pattern = substr($pattern,4);
         $ignore = 1;
       }
       if substr($pattern,0,4) eq '(?m)' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7679	7810	
==>0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7679	7810	
==>0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1340	1461	
==>ame (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or die "open: $filename: $!";
    { local $/; $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5654	5820	
==>was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5654	5820	
==>was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5654	5820	
==>was bound to %h ???
                _('$:cell')->{type} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2571	2684	
==>rn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access positio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2571	2684	
==>rn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access positio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2571	2684	
==>rn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you are trying to access positio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13126	13300	
==>>from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13126	13300	
==>>from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13126	13300	
==>>from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @list )- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7466	7582	
==>e( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7466	7582	
==>e( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7466	7582	
==>e( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4100	4227	
==>cky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4100	4227	
==>cky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4100	4227	
==>cky
      push @args: undef;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	727	830	
==>t now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($bea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	727	830	
==>t now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($bea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	727	830	
==>t now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($bea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9991	10099	
==>p = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9991	10099	
==>p = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9991	10099	
==>p = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $c <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3884	3976	
==>yesterday" return the appropriate date.

Any other string will be passed to `Date::Something: <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3884	3976	
==>yesterday" return the appropriate date.

Any other string will be passed to `Date::Something: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23370	23510	
==>hod eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23370	23510	
==>hod eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23370	23510	
==>hod eq 'pop'   || $method eq 'shift' ) {
                    my $elem = $tmp->$method( @param );
                    unless ( Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7588	7721	
==>xception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7588	7721	
==>xception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the mes <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5661	5769	
==>odeSet0;
sub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2951	3077	
==>alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2962	3088	
==>alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ru <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3274	3399	
==>atch, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3274	3399	
==>atch, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1134	1247	
==>s  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1134	1247	
==>s  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1134	1247	
==>s  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX",
      user  => $_->[0],
    }} @{ $self- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3136	3304	
==>__->add_rule(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17456	17588	
==>> $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13877	14009	
==>> $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6169	6287	
==>.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6169	6287	
==>.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continu <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9636	9729	
==>rns);
  return reverse(@$ret);
});
my(@a)=split($qr,$str);
print STDERR "(",join(", ",map{defi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22523	22689	
==>symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:') <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42312	42477	
==>symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:') <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8880	8974	
==>cygwin with a Win32-flavoured ghc-pkg.
        # https://rt.cpan.org/Ticket/Display.html?id=163 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2063	2206	
==>-> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@val <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17371	17472	
==>er!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20848	20949	
==>er!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $oth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	248	362	
==>e types
sub to_num { num->new(0)  }
sub to_bit { bit->new(0)  }
sub to_str { str->new('') }

sub is_nil     { bit-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1614	1719	
==>[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1818	1923	
==>[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1216	1320	
==>ecent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Modul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1216	1320	
==>ecent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Modul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1216	1320	
==>ecent thread: 'Concerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8996	9128	
==>);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8996	9128	
==>);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8996	9128	
==>);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	675	769	
==>L::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	675	769	
==>L::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	675	769	
==>L::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28912	29058	
==>>new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28912	29058	
==>>new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::A <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28912	29058	
==>>new( '$.unboxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15622	15733	
==>SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15622	15733	
==>SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15622	15733	
==>SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	337	459	
==>_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	337	459	
==>_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	337	459	
==>_of {
    my($n)=@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        v <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34949	35044	
==>ct is constructed.  If you want to
conceptually change an existing Translator object, you must c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34949	35044	
==>ct is constructed.  If you want to
conceptually change an existing Translator object, you must c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19520	19624	
==>fe {
    join($comma, map -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Hash $obj; $fmt, $comma) is bu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17271	17365	
==>y of saying that it subscribes to the
localization methodology that is described here, and henc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17271	17365	
==>y of saying that it subscribes to the
localization methodology that is described here, and henc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5483	5586	
==>irst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5483	5586	
==>irst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5483	5586	
==>irst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx)) )  };
MULTI SUB ucfirst ($ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5072	5173	
==>t};
  $position = $operator->to();
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_PREFIX );
  goto op <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6155	6253	
==>VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6155	6253	
==>VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	908	1032	
==>&main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	908	1032	
==>&main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	908	1032	
==>&main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1819	1925	
==>e = $self->annotate($compiled);

	$self->emit($safe);
}

sub provides {
	my $self = shift;
	my $node = shif <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8350	8453	
==>ct is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8350	8453	
==>ct is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9016	9128	
==>n "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate imple <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12873	12981	
==>n "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate imple <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12873	12981	
==>n "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate imple <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2347	2461	
==>eturn ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2347	2461	
==>eturn ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2489	2619	
==>passed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description' => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	809	935	
==>do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	809	935	
==>do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $gr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6233	6338	
==>hift;
	my $node = shift;

	$self->mangle_sym_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3991	4070	
==>[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9A <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3991	4070	
==>[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4604	4708	
==>nboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4604	4708	
==>nboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4604	4708	
==>nboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unbo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3577	3673	
==>node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3577	3673	
==>node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_S <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4905	5004	
==>ds) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4963	5062	
==>ds) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1897	2024	
==>($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1897	2024	
==>($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2133	2260	
==>($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2942	3058	
==>ed}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2942	3058	
==>ed}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2942	3058	
==>ed}->fetch if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3673	3876	
==>cat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3920	4123	
==>cat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1458	1591	
==>str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	433	545	
==>g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	433	545	
==>g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	433	545	
==>g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1509	1631	
==>od (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1509	1631	
==>od (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1509	1631	
==>od (%params) returns Void {
    for %params.keys -> $key {
        # XXX -
        # The default BUILD method should accept <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38571	38716	
==>ttribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5671	5781	
==>r.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5671	5781	
==>r.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	926	1051	
==>charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	926	1051	
==>charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	926	1051	
==>charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, "N", "N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5114	5260	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5114	5260	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5114	5260	
==>$_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2285	2408	
==>g and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . ': <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2285	2408	
==>g and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . ': <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2412	2536	
==>specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2412	2536	
==>specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3341	3456	
==>rpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3341	3456	
==>rpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3341	3456	
==>rpy} }

  sub fixup {
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22360	22493	
==>=> sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18781	18914	
==>=> sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4815	4983	
==>all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8292	8460	
==>all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7294	7462	
==>all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11132	11240	
==>od to get back a F<Regexp> object:

  my $real_rx = $parser->qr;

The regex is formed by calling the qr() met <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15779	15872	
==>erface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15779	15872	
==>erface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	127	251	
==>t
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	127	251	
==>t
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	555	679	
==>TTPDIR => "/iblech/stuff/pugs-smokes/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6324	6422	
==>=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6324	6422	
==>=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8521	8619	
==>=item B<report returns Str>

This handles the specific details of TAP output for TODO tests.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6921	7041	
==>) < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { docume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6921	7041	
==>) < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { docume <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6921	7041	
==>) < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = function (msg) { docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2408	2530	
==>ey))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2408	2530	
==>ey))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2408	2530	
==>ey))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefine <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3464	3571	
==>.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3464	3571	
==>.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6086	6200	
==>$s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6086	6200	
==>$s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6086	6200	
==>$s .= $_[0]->name;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        retur <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4382	4480	
==>..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4382	4480	
==>..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22050	22147	
==>item regex

A reference to the original string representation of the regex.

=item len

The length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4879	4998	
==>l6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4879	4998	
==>l6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4879	4998	
==>l6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36538	36651	
==>ass->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36538	36651	
==>ass->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36538	36651	
==>ass->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elems;
    my $x = $array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	394	507	
==>$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	394	507	
==>$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	394	507	
==>$::Object     = undef;
$::Package    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37528	37625	
==>ot significant to the result;
the new Relation is the result of combining all of the source Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42077	42174	
==>ot significant to the result;
the new Relation is the result of combining all of the source Relati <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4267	4415	
==>ode  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => "n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4727	4930	
==>atch");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Coo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4727	4930	
==>atch");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Coo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9634	9806	
==>turn $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation::Example $other!) returns Relat <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2107	2238	
==>aramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2107	2238	
==>aramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10110	10213	
==>b{ $name(\@_) } )\n";
}
sub node::non_capturing_subrule {
    my $name = $_[0];
    $name = '$grammar->' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	236	338	
==>e 'Object::Accessor';

=head1 METHODS

=head2 $meta = JIB::Meta->new( file => /path/to/meta.info )

=cu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4486	4582	
==>match object returns the I<result>
object; this is normally the entire match string, but may be a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4486	4582	
==>match object returns the I<result>
object; this is normally the entire match string, but may be a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6453	6591	
==>::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 == NaN;
    return $Result1 if $Re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3465	3584	
==>join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3465	3584	
==>join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2502	2599	
==>n with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2502	2599	
==>n with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2502	2599	
==>n with Value and Container types
# TODO - add hooks for signature checks, autoboxing/un-boxing, re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9347	9451	
==>lta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9347	9451	
==>lta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequot <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9347	9451	
==>lta = () = $3 =~ /CALLER::/g;
    return sprintf "PIL2JS.resolve_callervar($delta, %s)",
      doublequot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7367	7515	
==>y $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	668	816	
==>y $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23829	23922	
==>T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1247	1349	
==>n)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1247	1349	
==>n)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1794	1896	
==>n)>

Returns a string containing the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Bu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7772	7890	
==>( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7510	7621	
==>( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::o <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	39	136	
==>nd::Prim;
use base qw/Blondie::Map Blondie::Node::Atomic/;

use strict;
use warnings;



__PACKAGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2812	2908	
==>>> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2812	2908	
==>>> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2812	2908	
==>>> Number(b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11108	11302	
==>>params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11108	11302	
==>>params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11108	11302	
==>>params } && $i <= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11531	11664	
==>n "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11525	11658	
==>n "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13282	13417	
==>+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional skip with optional re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1522	1609	
==>ar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1522	1609	
==>ar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	985	1101	
==>, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	985	1101	
==>, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	985	1101	
==>, i.e. my %a = (a => 1); %a<a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.Rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2664	2790	
==>name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2664	2790	
==>name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2664	2790	
==>name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7979	8129	
==>ethods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7979	8129	
==>ethods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7979	8129	
==>ethods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23060	23274	
==>constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23339	23553	
==>constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29887	29980	
==>apped, and it supports having old tuple-valued attributes which
have zero attributes (they jus <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34439	34532	
==>apped, and it supports having old tuple-valued attributes which
have zero attributes (they jus <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33603	33696	
==>apped, and it supports having old tuple-valued attributes which
have zero attributes (they jus <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30535	30642	
==>ich it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35086	35193	
==>ich it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34268	34375	
==>ich it gets as its sole read-only
argument, and it must return a new tuple/Mapping whose attributes match
th <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6540	6640	
==>ernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $kerne <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7876	7972	
==>r authors should assume that if this method is being called, the Secret 
Police are breaking down <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7876	7972	
==>r authors should assume that if this method is being called, the Secret 
Police are breaking down <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35223	35322	
==>generic binary relational operator that is identical
to C<join> except that this method will fail if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39773	39872	
==>generic binary relational operator that is identical
to C<join> except that this method will fail if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39333	39432	
==>generic binary relational operator that is identical
to C<join> except that this method will fail if <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7877	8008	
==>ame' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'per <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7877	8008	
==>ame' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'per <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	603	696	
==>tory. default: $root/dists

=item index_file

Path to the main index file. default: $root/dist <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1605	1725	
==>eturns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TO <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1605	1725	
==>eturns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2420	2531	
==>:isa(shift(), 'JIB::Meta') }; 
use constant ISA_JIB_CONFIG => sub { UNIVERSAL::isa(shift(), 'JIB::Config') };

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1790	1922	
==>{
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1790	1922	
==>{
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1790	1922	
==>{
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($line);
        print " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1317	1451	
==>FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1317	1451	
==>FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1317	1451	
==>FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < idxs.length; i++) {
        var idx <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23242	23383	
==>n => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide("nil"),
			else => comb(
				fun => comb(
					fun => ide("cons"),
					para <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6234	6337	
==>x = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7232	7335	
==>x = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3746	4128	
==>p
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return i <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3746	4128	
==>p
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20242	20353	
==>ocal pmc reps, exp
    .local string cname
    .local int cutnum, padarray, isarray, subpats

    cutnum = pad[" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29520	29654	
==>st' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29520	29654	
==>st' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29520	29654	
==>st' ) ? $_->clone : $_
        } @{$self->{items}};
    return $self;
}

sub sum { 
    my $self = shift;
    my $sum = 0;
    for ( @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13381	13486	
==>source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $sourc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13381	13486	
==>source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $sourc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4626	4711	
==>ange_bounds(Min,Max) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5225	5361	
==>ole->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5225	5361	
==>ole->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5225	5361	
==>ole->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('collect_all_roles' => ::make_method($_c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1754	1870	
==>d,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1754	1870	
==>d,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLA <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	20	133	
==>.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	20	133	
==>.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3310	3407	
==>y the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3310	3407	
==>y the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	940	1042	
==>my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    ret <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	940	1042	
==>my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	998	1117	
==>MD
$Available      = $Meta . '/available';             # available packages MD
$Altfile        = $Meta . '/registered-al <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	139	249	
==>_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	865	975	
==>_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Co <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3044	3135	
==>not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5246	5337	
==>not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	967	1094	
==>n _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	967	1094	
==>n _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	967	1094	
==>n _bare_js_function__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16921	17039	
==>queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Rem <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16921	17039	
==>queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Rem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1883	1977	
==>)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1883	1977	
==>)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1883	1977	
==>)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$s") <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1822	1936	
==>mar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1822	1936	
==>mar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1471	1613	
==>totype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($message)";
    } => <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1186	1277	
==>il::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1186	1277	
==>il::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1517	1628	
==>) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1517	1628	
==>) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1517	1628	
==>) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5497	5602	
==>\%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Grammar::Pre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7786	7887	
==>alize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7786	7887	
==>alize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7371	7500	
==>ined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7371	7500	
==>ined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7371	7500	
==>ined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      push @js, "$jsna <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1263	1393	
==>=> { allow => ISA_JIB_META },
        config          => { allow => ISA_JIB_CONFIG },
        package         => { allow => $Packag <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	547	657	
==>spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	547	657	
==>spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2531	2641	
==>b _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2531	2641	
==>b _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToke <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2531	2641	
==>b _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	994	1124	
==>lessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	994	1124	
==>lessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	994	1124	
==>lessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	290	401	
==>compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	290	401	
==>compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	290	401	
==>compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = JSAN._exportList;
    t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24863	24967	
==>$match;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25142	25246	
==>$match;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6248	6346	
==>n "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6248	6346	
==>n "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6248	6346	
==>n "hello from superclasses for $self";
            ::opaque_instance_attr(::opaque_instance_class($ <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	84	207	
==>ew { bless {}, shift }

sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	46	134	
==>Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	46	134	
==>Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->comp <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2869	2988	
==>',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2869	2988	
==>',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6162	6269	
==>JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6162	6269	
==>JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6162	6269	
==>JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6119	6244	
==>for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6119	6244	
==>for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6119	6244	
==>for methods, if we have the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4935	5043	
==>Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test f <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4935	5043	
==>Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7132	7240	
==>Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the current test f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14073	14213	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14352	14492	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1653	1750	
==><?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { sub_call_term => $() } }
RULE
*{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2357	2461	
==>map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2357	2461	
==>map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2357	2461	
==>map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1178	1279	
==>broutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <bod <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1178	1279	
==>broutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <bod <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12210	12319	
==>meric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12210	12319	
==>meric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7657	7796	
==>xists $n->{self}{op1} ) {
            # %var<item>.++;
            #warn "method: ", Dumper( $n );
            return " " . _emit( $n->{m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9298	9409	
==>e;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11613	11724	
==>e;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1813	1919	
==>ch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1813	1919	
==>ch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1813	1919	
==>ch(err) {
  var error = new Error("PIL2JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2498	2607	
==>okens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket cont <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2498	2607	
==>okens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6711	6827	
==>}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6711	6827	
==>}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6711	6827	
==>}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	462	582	
==>ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	462	582	
==>ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	462	582	
==>ISA = qw< PIL::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7293	7411	
==>name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7293	7411	
==>name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7293	7411	
==>name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$n <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4180	4298	
==>e code_rule              { \<(!?)\{ <code> \}\> }
rule code_assertion         { \<(!?)\( <code> \)\> }
rule code { [ <- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33498	33592	
==>ch Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Names> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33498	33592	
==>ch Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Names> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	144	249	
==>tainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	144	249	
==>tainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	144	249	
==>tainer/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data:: <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	107	258	
==>ReadKey;

{
    package Map;
    sub new {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([ <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	271	388	
==>s Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_ti <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	271	388	
==>s Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_ti <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2854	2972	
==>grave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2854	2972	
==>grave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6561	6671	
==>=   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $fh   = get_str( $_[0], '$<i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5850	5993	
==>receded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5850	5993	
==>receded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5850	5993	
==>receded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\u\L$1/g;
    p6_from_s($string);
};
MULTI SUB u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4763	4861	
==>_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4763	4861	
==>_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $Eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4763	4861	
==>_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $Eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6072	6176	
==>I SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6072	6176	
==>I SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6072	6176	
==>I SUB prefix:<+> ($xx) {...}; # in PrimP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	149	291	
==>cture
our $schema =
    { fields =>
      { ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6692	6825	
==>x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $directi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6692	6825	
==>x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $directi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13331	13466	
==>et of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16808	16943	
==>et of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16170	16305	
==>et of the
        # first source's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!h <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4137	4248	
==>p yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7633	7737	
==>program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7621	7725	
==>program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	999	1118	
==>est  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest $test ;   *@values) returns Lazy {
   gather {
     for @va <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14672	14765	
==>t
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entit <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14672	14765	
==>t
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entit <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21212	21307	
==>('> <ExpressionNoIn>? <';'> <Expression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> <' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39326	39462	
==>>{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39326	39462	
==>>{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39326	39462	
==>>{items}}, @_;
    return $array;
}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7963	8113	
==>"      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7963	8113	
==>"      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7963	8113	
==>"      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = reverse( $tmp );
        Str-> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7031	7132	
==>uce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto end if $key ne $$top{t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11465	11557	
==>tr $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns B <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11523	11615	
==>tr $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3392	3499	
==>nv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3392	3499	
==>nv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3392	3499	
==>nv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12949	13062	
==>sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12949	13062	
==>sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12949	13062	
==>sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{h <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1120	1248	
==>me) {
        require File::Copy;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $!";
        p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1807	1924	
==>shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	918	1033	
==>shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13876	13991	
==>S/i ) { $synpod = catfile($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	763	855	
==>eConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Ty <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	763	855	
==>eConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4967	5066	
==>defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4967	5066	
==>defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4967	5066	
==>defined(my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5957	6064	
==>~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5957	6064	
==>~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SEL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5957	6064	
==>~/\./g;    
    
    # scalar access
    $method_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SEL <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1327	1423	
==>rrently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. M <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1327	1423	
==>rrently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	0	106	
==>package Perl6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# Change <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	0	106	
==>package Perl6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# Change <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	0	106	
==>package Perl6::Value::List;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl5

# Change <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28699	28802	
==>ribute names that aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33251	33354	
==>ribute names that aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32379	32482	
==>ribute names that aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1097	1214	
==>: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1097	1214	
==>: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1097	1214	
==>: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6659	6788	
==>s}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6659	6788	
==>s}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6659	6788	
==>s}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5540	5668	
==>,
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5540	5668	
==>,
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5540	5668	
==>,
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1031	1139	
==>hat,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1031	1139	
==>hat,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1031	1139	
==>hat,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27340	27448	
==>ata} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objec <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2657	2763	
==>kes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependenc <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3121	3227	
==>kes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	73	191	
==>eys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	73	191	
==>eys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	73	191	
==>eys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XXX hacks?
  if($name eq "&return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1163	1271	
==>subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1163	1271	
==>subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1163	1271	
==>subnodes,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
packag <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3345	3463	
==>th() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3345	3463	
==>th() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!child <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	162	257	
==>equire 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'Pugs::Grammar::Rule::';

{
  pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12938	13120	
==>ce' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12938	13120	
==>ce' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12938	13120	
==>ce' ) ) {
                    # delete from slice
                    my $ret = Array->new();
                    $ret = $self->clone;
                    $self->store( Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2566	2685	
==>lf, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2566	2685	
==>lf, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2566	2685	
==>lf, $i) = @_;
    while ($i->lookAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4739	4841	
==>methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4598	4700	
==>methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10915	11073	
==>,
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10915	11073	
==>,
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10915	11073	
==>,
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2312	2446	
==>if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2312	2446	
==>if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2312	2446	
==>if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i+ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	728	830	
==>g_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	728	830	
==>g_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "c <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14465	14559	
==>order, C<pairs> a C<Pair(key, value)>.

Note that C<kv %hash> returns the same as C<zip(keys %h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	560	725	
==>t
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'array_store' => sub { # evaluated in lvalue context as <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5151	5286	
==>"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scal <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5151	5286	
==>"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	743	835	
==>--------------------------------------------------------
## Object

# The 'Object' class
$::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	743	835	
==>--------------------------------------------------------
## Object

# The 'Object' class
$::O <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	743	835	
==>--------------------------------------------------------
## Object

# The 'Object' class
$::O <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4747	4892	
==>$last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4747	4892	
==>$last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	581	684	
==>[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	581	684	
==>[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	581	684	
==>[0]->{pSubType}    }
  sub params :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLV <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	909	1024	
==>tch was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	909	1024	
==>tch was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the blo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2444	2538	
==>'$<Pugs::Grammar::Rule::rule>' ));
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3488	3624	
==>a( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:< <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1846	1982	
==>a( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2626	2762	
==>a( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:< <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10730	10863	
==>new_alt;
    
        ### link the files
        return unless $self->link_files( package => $new_alt );
    }

    ### remove this pa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22642	22731	
==>nterface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22642	22731	
==>nterface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interfac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1410	1527	
==>e('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1410	1527	
==>e('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1410	1527	
==>e('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if(args[0]. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28899	29018	
==>'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28899	29018	
==>'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inverted, or press ENTER to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	262	373	
==>'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inverted, or press ENTER to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1347	1434	
==>_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1347	1434	
==>_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1347	1434	
==>_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24main_3a_3a_3fSUBNAME <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	841	982	
==>.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	841	982	
==>.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	841	982	
==>.length; i++) {
          var name   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2965	3104	
==>p_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if $debug;
          my $var = [@{$Z::oo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3803	3912	
==>", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$mo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3861	3970	
==>", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	50	151	
==>- implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	50	151	
==>- implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	50	151	
==>- implementation of Perl6 'List' class in Perl5

# ChangeLog
#
# 2005-09-05
# * removed uniq(), grep() <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6356	6462	
==>b _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6356	6462	
==>b _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28084	28183	
==>l nodes inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4

=item my $d = $o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4655	4799	
==>ic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4655	4799	
==>ic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16790	16939	
==>ect) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16790	16939	
==>ect) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16790	16939	
==>ect) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	977	1083	
==>* Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	977	1083	
==>* Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	977	1083	
==>* Simplified fetch()
#
# 2005-08-27
# * Fixed fetch/store single elements from a lazy slice
# * Fixed fetch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22261	22359	
==>instructs the object()
method not to actually create any objects.  Afterwards, it is an array
refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16680	16786	
==>..};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16680	16786	
==>..};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16680	16786	
==>..};
#MULTI SUB Code::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4914	5019	
==>say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4914	5019	
==>say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACR <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4914	5019	
==>say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACR <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7487	7601	
==>"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ ch <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7487	7601	
==>"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ ch <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3068	3174	
==>_->isa('type'))
        || confess "you can only add types to a list got($_) => " . (CORE::join ", " => @_) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5393	5517	
==>y %opt = @_;
    # print "Operator add: @{[ %opt ]} \n";

    delete $opt{rule};
    $operator->add_op( \%opt );
    
    #pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18785	18885	
==>Lines beginning with a C<package statement and continuing
        until the next C<package> or C<DATA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18785	18885	
==>Lines beginning with a C<package statement and continuing
        until the next C<package> or C<DATA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13849	13985	
==>)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13849	13985	
==>)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13849	13985	
==>)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) {
            $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	375	549	
==>ccess => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	375	549	
==>ccess => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	375	549	
==>ccess => 'rw' } ],
            [ '$.from' =>     { access => 'rw' } ],
            [ '$.to' =>       { access => 'rw' } ],
        ],
        methods => {
            'num' => <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	146	251	
==>tor
[+] 1, 2, 3	# (1,2,3).prefix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät; ist kein Standa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11818	11914	
==>23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entitie <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11818	11914	
==>23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entitie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	660	766	
==>::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	660	766	
==>::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	660	766	
==>::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2498	2616	
==>}
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2498	2616	
==>}
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2498	2616	
==>}
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAheadToken =~ /\s+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2529	2644	
==>ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2529	2644	
==>ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2529	2644	
==>ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3170	3296	
==>sed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $de <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3170	3296	
==>sed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4694	4820	
==>sed, $description, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13869	13973	
==>zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13869	13973	
==>zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13869	13973	
==>zip->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            return $l->zip <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7685	7844	
==>) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7697	7856	
==>) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4469	4588	
==>match;
    bsr_token_match_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4453	4642	
==>cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4453	4642	
==>cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4453	4642	
==>cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14983	15136	
==>turn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14983	15136	
==>turn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14983	15136	
==>turn pop @{$self->{shifts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	232	337	
==>ternal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	232	337	
==>ternal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	232	337	
==>ternal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2138	2241	
==>{
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ". <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2138	2241	
==>{
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ". <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2138	2241	
==>{
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25309	25495	
==>e::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25309	25495	
==>e::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25309	25495	
==>e::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	30	138	
==>tr is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	30	138	
==>tr is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	30	138	
==>tr is rw: Int $a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    va <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1713	1818	
==>native = (shift)->to_native;
    list->new(map { str->new($_) } keys %native) 
}

sub values { 
    my %na <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	140	237	
==>UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field na <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	140	237	
==>UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4655	4778	
==>Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7378	7501	
==>Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5580	5686	
==>y and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5580	5686	
==>y and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5580	5686	
==>y and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.*)\n$/s)[0];
if($jsname == undefined) {
  var obj = PI <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20653	20771	
==>ned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus;
    print "\t\t(VMS status is $es <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13588	13687	
==>he named parameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13588	13687	
==>he named parameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4471	4573	
==>description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chroma <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4471	4573	
==>description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chroma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4551	4653	
==>description.

=back

=head1 AUTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chroma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10105	10233	
==>class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10105	10233	
==>class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10105	10233	
==>class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2150	2254	
==>> '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2150	2254	
==>> '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16698	16827	
==>TION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16698	16827	
==>TION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16698	16827	
==>TION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $::Class && defined $::Object) {
        my @classes;
        my <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2223	2352	
==>t:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18779	18881	
==>GES - Lines beginning with a C<package statement and continuing
        until the next C<package> or C< <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18779	18881	
==>GES - Lines beginning with a C<package statement and continuing
        until the next C<package> or C< <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6945	7075	
==>st ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	349	457	
==>lf = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	250	358	
==>lf = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1049	1188	
==>ake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

------------ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13714	13827	
==>tml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod" );
        unless <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	61	161	
==>perl 5
# (makes use of attribute grammars and multimethods)

# first part is a type pretty printer an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21626	21802	
==>6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21626	21802	
==>6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21626	21802	
==>6::Value::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18666	18803	
==>n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18666	18803	
==>n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18666	18803	
==>n($xx0) <=> p6_to_n($xx1)) };
MULTI SUB infix:<..> ($xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31146	31296	
==>ength;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31146	31296	
==>ength;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31146	31296	
==>ength;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) { <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11325	11457	
==>f;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11325	11457	
==>f;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $ <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1150	1254	
==>ing rebuild... " if $Config{verbose};
    unlink "blib6/lib/Prelude.pm.yml";
    unlink "blib6/lib/Prelud <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13333	13465	
==>goto scan
  addrange:
    isrange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto sc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	938	1039	
==>y matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<op <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	938	1039	
==>y matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	404	513	
==>ss, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CRE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	404	513	
==>ss, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CRE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	404	513	
==>ss, $canidate, %params) = @_;
    $canidate ||= 'P6opaque'; # opaque is our default
    my $self = $class->CRE <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26955	27068	
==>ape>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <Characte <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13638	13743	
==>items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13638	13743	
==>items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10363	10463	
==>ch/exclusive/other stuff. For lots of discussion but no final
    # spec, see the thread rooted at <2 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	831	927	
==><p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, wh <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	831	927	
==><p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6253	6354	
==>)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16055	16145	
==>Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.or <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16113	16203	
==>Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5979	6081	
==>Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5979	6081	
==>Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5979	6081	
==>Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How would <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30441	30535	
==>unction in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, whi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34992	35086	
==>unction in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, whi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34174	34268	
==>unction in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	34	129	
==>Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	34	129	
==>Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	34	129	
==>Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7253	7369	
==>LF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7253	7369	
==>LF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7253	7369	
==>LF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__END__

=pod

=head1 NAME

pneuma

=head1 DESCRIP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1234	1342	
==>param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1234	1342	
==>param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1443	1551	
==>param->name} = $db_param;
	}
	else {
	    unless ($db_param->is_slurpy) {
		Carp::carp "positional argument a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2049	2186	
==>unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2109	2246	
==>unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_clas <==
3	/Users/nnunley/pugs/util/testgraph.pl	1640	1754	
==>f->SUPER::link;
        $link =~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$link);
    }

    package My: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14817	14908	
==>entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by defaul <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14817	14908	
==>entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by defaul <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	18222	18468	
==>];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(. <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2239	2345	
==>in     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Se <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2239	2345	
==>in     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6108	6230	
==>ry = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6108	6230	
==>ry = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6108	6230	
==>ry = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = Array->new;
    my $pos = 0;
    for my $i ( @id <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1515	1629	
==>p($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1515	1629	
==>p($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1515	1629	
==>p($x1) }

multi sub prefix:<-> ($x) { 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	754	853	
==>ing comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	754	853	
==>ing comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	754	853	
==>ing comparison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17251	17345	
==>_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17251	17345	
==>_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17251	17345	
==>_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($xx1)) };
M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22475	22574	
==>n-capturing group constructs.

=back

=head2 0.01 -- June 29, 2004

=over 4

=item First Release

Do <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10079	10172	
==>facilitate the
testing of those features. For more information see the FUTURE PLANS
section of <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10137	10230	
==>facilitate the
testing of those features. For more information see the FUTURE PLANS
section of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12132	12364	
==>y @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12132	12364	
==>y @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12132	12364	
==>y @res;
                if ( Perl6::Value::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16172	16266	
==>ile another one displays it to the
user instead.

Locale::KeyedText provides a simple but effec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16172	16266	
==>ile another one displays it to the
user instead.

Locale::KeyedText provides a simple but effec <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1285	1378	
==>methods that are queried during dispatch (which includes attribute
lookup as well as method lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17540	17688	
==>hod ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17540	17688	
==>hod ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17540	17688	
==>hod ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefi <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	304	416	
==>ME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<! <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	304	416	
==>ME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<! <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2991	3076	
==>01\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000"
    ,"n" = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1480	1668	
==>ather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1480	1668	
==>ather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently re <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13757	13887	
==>oke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table>
</body>
</html <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1100	1203	
==>Scope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1100	1203	
==>Scope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1100	1203	
==>Scope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1873	1981	
==>ne ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is expo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1873	1981	
==>ne ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is expo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1953	2061	
==>ne ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bit is expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7124	7225	
==>ntf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7124	7225	
==>ntf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7124	7225	
==>ntf "new PIL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16486	16584	
==>rl6_objects_from_whatever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2564	2661	
==>rn a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorpo <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2564	2661	
==>rn a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorpo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	934	1039	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Mod <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	934	1039	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1402	1524	
==>bjects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1402	1524	
==>bjects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1402	1524	
==>bjects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8731	8834	
==>, seriously, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it shoul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8441	8541	
==>, seriously, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it shoul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4320	4419	
==>ode { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	423	574	
==>s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	423	574	
==>s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3017	3132	
==>id;
  my $filename            = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38643	38766	
==>t' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38643	38766	
==>t' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38643	38766	
==>t' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @rev );
}

sub to_list { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22531	22626	
==>vironment at all.

A Relation object has 2 main attributes (implementation details subject to
ch <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27083	27178	
==>vironment at all.

A Relation object has 2 main attributes (implementation details subject to
ch <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	284	379	
==>reduce_" . $node->moniker))) {
		return $self->$meth($node);
	} else {
		return $self->generic_r <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23209	23329	
==>dy => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide("nil"),
			else => com <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1560	1654	
==>including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1560	1654	
==>including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3107	3204	
==>t}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3107	3204	
==>t}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3107	3204	
==>t}->[0] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21001	21110	
==>look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom > <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17422	17531	
==>look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom > <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18173	18280	
==>t.
    my Relation::Example $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11780	11910	
==>normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11780	11910	
==>normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11780	11910	
==>normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($_[1] =~ /^_/) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10103	10239	
==>CH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10103	10239	
==>CH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10103	10239	
==>CH();
        },
        function (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32991	33087	
==>contains only tuples that are in
exactly one of the source Relations.  This method has aliases na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37541	37637	
==>contains only tuples that are in
exactly one of the source Relations.  This method has aliases na <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36885	36981	
==>contains only tuples that are in
exactly one of the source Relations.  This method has aliases na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2845	2973	
==>b constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5770	5894	
==>b constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5770	5894	
==>b constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub { <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15771	15870	
==>st.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test mo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15829	15928	
==>st.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1863	1998	
==>fined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1863	1998	
==>fined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1863	1998	
==>fined ? undefined : ret.FETCH();
        },
        function (n) {
          if(!hash.exists(key)) {
            hash.add_pair(new PIL2J <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	12	114	
==>::AST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	12	114	
==>::AST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19912	20054	
==>s is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19912	20054	
==>s is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19912	20054	
==>s is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors during global d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1135	1236	
==>$_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1135	1236	
==>$_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1135	1236	
==>$_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_start, $column_start, $line_end, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2060	2188	
==>diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2060	2188	
==>diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2140	2268	
==>diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_ou <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	541	643	
==>, RESET;

  if($args{ensure}->()) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20124	20222	
==>to allow the core to be completely testable on its own.  It is
coded intentionally in a simple fash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20124	20222	
==>to allow the core to be completely testable on its own.  It is
coded intentionally in a simple fash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10711	10840	
==>method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10711	10840	
==>method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10711	10840	
==>method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attribute;
    me <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6649	6779	
==>},
        <perl5 Perl5 P5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5780	5892	
==>list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

meth <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5780	5892	
==>list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

meth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	130	233	
==>r;

package symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use bas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6436	6540	
==>urns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key whic <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6436	6540	
==>urns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8633	8737	
==>urns Hash>

This adds a C<TODO> key, sets the C<passed> key to true, and adds a
C<really_passed> key whic <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	97	198	
==>warnings;

sub provides { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3830	3928	
==>re complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3830	3928	
==>re complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( sp <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1589	1700	
==>my $bash         = "/bin/bash";
my $inputrc      = "/etc/inputrc";
my $terminfo     = "/etc/terminfo/l/linux";
m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7774	7882	
==>into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7774	7882	
==>into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cp <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6850	6996	
==>erms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public lic <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6907	7053	
==>erms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public lic <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7536	7647	
==>pos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMERIC, target, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15265	15367	
==>'re
on TTY.

The C<$width> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	17	119	
==>tter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	17	119	
==>tter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1648	1756	
==>r $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1853	1961	
==>r $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::cr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13790	13886	
==>pression> <Arguments>
    | <CallExpression> <'['> <Expression> <']'>
    | <CallExpression> <'.' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6420	6645	
==>unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this aft <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6420	6645	
==>unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this aft <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6420	6645	
==>unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this aft <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8899	9024	
==>O-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8899	9024	
==>O-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	821	922	
==>ft)} }

# conversion to other types
sub to_str { str->new('' . (shift)->to_native) }
sub to_num { (shi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5088	5179	
==>terface provided by the C<LWP::UserAgent> module.

The following functions are provided (and <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5088	5179	
==>terface provided by the C<LWP::UserAgent> module.

The following functions are provided (and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1448	1584	
==>));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1448	1584	
==>));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1448	1584	
==>));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self->_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7852	7993	
==>sing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7852	7993	
==>sing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7852	7993	
==>sing ".p6_to_s($ret)." -- $ret\n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1515	1657	
==>i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1515	1657	
==>i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3005	3138	
==>',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4606	4701	
==>$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4606	4701	
==>$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4606	4701	
==>$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "%s.perl_me <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5873	6166	
==>d start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default { <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5873	6166	
==>d start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3262	3384	
==>{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3262	3384	
==>{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3262	3384	
==>{cstart}  = sub {} unless defined $param{cstart};
    $param{cend}    = sub {} unless defined $param{cend}; 
    
    $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	271	388	
==>ind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	271	388	
==>ind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	271	388	
==>ind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9737	9869	
==>use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variabl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6078	6210	
==>use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variabl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6927	7059	
==>use source filter: 
            #     instead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10516	10616	
==>name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10516	10616	
==>name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10516	10616	
==>name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/, <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9843	9964	
==>'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9837	9958	
==>'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_ma <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3475	3572	
==>pod
.include "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .local pmc op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3829	3931	
==>ode = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3829	3931	
==>ode = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3829	3931	
==>ode = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	734	888	
==>ub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "sub { my \@match; my \$s = shift; $_[0]; return \$s, \\\@match; }";
}

{
my $r = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3539	3637	
==>}

=kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SY <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3539	3637	
==>}

=kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17533	17680	
==>ss "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17533	17680	
==>ss "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17533	17680	
==>ss "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6931	7030	
==>'$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6931	7030	
==>'$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6931	7030	
==>'$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	360	465	
==>local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	360	465	
==>local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	360	465	
==>local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{name});
    my @jsargs = m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12777	12891	
==>->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12777	12891	
==>->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12777	12891	
==>->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5512	5784	
==>])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5512	5784	
==>])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11904	12003	
==>pying Parrot include files to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6155	6265	
==>instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6155	6265	
==>instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6155	6265	
==>instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11929	12056	
==>ear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11929	12056	
==>ear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11929	12056	
==>ear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

package Perl6::Container: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2464	2558	
==>_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2464	2558	
==>_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2464	2558	
==>_class($self)->find_attribute_spec($key);
    }
    if (::opaque_instance_id($self) > BOOTSTRAP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20561	20666	
==>$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:</ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20561	20666	
==>$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:</ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20561	20666	
==>$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:</ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4037	4136	
==>r 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4037	4136	
==>r 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5561	5660	
==>r 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testplan>

=back

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1379	1484	
==>' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1379	1484	
==>' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $ <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	547	644	
==>ference($other);
#}

#method infix:<->($self: Duration $duration) returns Date {
    #$self.subtra <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	431	568	
==>__BORLANDC__
    char *s = GetCommandLine();
    int j=0;
    av[0] = s;
    if (s[0]=='"') {
    for(;s[++j]!='"';)
      ;
    av <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	253	355	
==>eeds nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	204	300	
==>eeds nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run' <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3284	3402	
==>bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per m <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3284	3402	
==>bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2758	2897	
==>f->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2758	2897	
==>f->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2758	2897	
==>f->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5585	5714	
==>ave a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5585	5714	
==>ave a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5585	5714	
==>ave a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11035	11136	
==>@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11035	11136	
==>@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11035	11136	
==>@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	unshift(@in <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6493	6595	
==>tring (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basi <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6493	6595	
==>tring (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9010	9107	
==>ype) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	401	498	
==>, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	401	498	
==>, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	401	498	
==>, @imports);

}

sub PIL2JS::Internals::use_perl5_module_noimp(Str $mod) {
  PIL2JS::Internals::us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38579	38739	
==>e( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38579	38739	
==>e( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38579	38739	
==>e( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_lis <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6058	6160	
==>pe::variable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # this s <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2166	2260	
==>a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2166	2260	
==>a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	739	857	
==>ce});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	944	1062	
==>ce});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1000	1118	
==>ce});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4061	4164	
==>e, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4061	4164	
==>e, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4061	4164	
==>e, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil('{');
    $i->nextToken; # now <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24983	25082	
==>xists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29535	29634	
==>xists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28447	28546	
==>xists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whether the <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	330	430	
==>??  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	330	430	
==>??  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HT <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9525	9645	
==>nge, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # other <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9525	9645	
==>nge, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # other <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16031	16126	
==>ps gets optimized to C</^\s+/>.  The difficulty
rating is so high because of cases like C</(\d+) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17844	17956	
==>} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17844	17956	
==>} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17844	17956	
==>} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	174	298	
==>unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	174	298	
==>unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	174	298	
==>unless keys %{ $_[0] } == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10510	10652	
==>r,
          );
      }
  }
  
  role Test::Builder::Test::Base
  {
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnost <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1046	1170	
==>r,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnost <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1046	1170	
==>r,
        );
    }
}

role Test::Builder::Test::Base
{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnost <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4088	4223	
==>h_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4088	4223	
==>h_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2281	2413	
==>}
    return 0;
}
sub warnings {
    my($self)=@_;
    my $ret="";
    for my $stage ($self->_stages) {
	my $result = $self->{$stage} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12698	12811	
==>f $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6173	6286	
==>f $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1674	1893	
==>p 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    infix_non =>         
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1016	1138	
==>p 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1838	1960	
==>p 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6313	6403	
==>------------------------------------
## Module

$::Module = $::Class->new();

$::Module->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6313	6403	
==>------------------------------------
## Module

$::Module = $::Class->new();

$::Module->su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6313	6403	
==>------------------------------------
## Module

$::Module = $::Class->new();

$::Module->su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10555	10649	
==>ent_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The compl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10555	10649	
==>ent_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8115	8246	
==>indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8115	8246	
==>indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8115	8246	
==>indent(1, $jsbody);
  }

  sub unwrap { $_[0] }
}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless key <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	148	246	
==>finite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	148	246	
==>finite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	54	169	
==>k ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	54	169	
==>k ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	54	169	
==>k ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5053	5158	
==>r into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anythin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5053	5158	
==>r into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anythin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5053	5158	
==>r into a HTML file ("html").

  --yaml-dump       Only output the input PIL as YAML; don't compile anythin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	580	696	
==>modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	580	696	
==>modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	580	696	
==>modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        on <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	842	956	
==>);
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	842	956	
==>);
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	842	956	
==>);
    if(array.referencee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	567	676	
==>ox_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	567	676	
==>ox_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	741	838	
==>lude::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::IO;

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6329	6424	
==>UNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function curr <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6329	6424	
==>UNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function curr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2654	2796	
==>',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14526	14643	
==>eface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14526	14643	
==>eface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1839	1940	
==>S
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1839	1940	
==>S
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1839	1940	
==>S
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11210	11347	
==>,
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    join "", @{ $self->{vis} };
  }

  s <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10595	10691	
==>NCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) re <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10595	10691	
==>NCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3203	3363	
==>e = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3203	3363	
==>e = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3053	3148	
==>em C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3053	3148	
==>em C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List con <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2413	2505	
==>f->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol} <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16020	16111	
==>f->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$symbol} <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11958	12066	
==>y), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11958	12066	
==>y), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( star <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	353	460	
==>{
		return $self->generic_reduce($node);
	}
}

sub can_reduce {
	my $self = shift;
	my $node = shift;;

	ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7451	7571	
==>elf->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7451	7571	
==>elf->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpPar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7451	7571	
==>elf->{tpParam}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpPar <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16975	17076	
==>t(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for inline code, once for the final Mat <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6859	6956	
==>sert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertS <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6859	6956	
==>sert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14916	15058	
==>if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        } <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14916	15058	
==>if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19768	19888	
==>things the world messes with:


  I32 refcnt;

What invariants?  Don'T know.


  I32 minlen;             /* mininum possi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8629	8729	
==>. Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8629	8729	
==>. Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8629	8729	
==>. Perl6::Value::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11399	11614	
==>}, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'nam <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11399	11614	
==>}, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7371	7532	
==>lass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7371	7532	
==>lass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7371	7532	
==>lass_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::make_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2821	2937	
==>gleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2821	2937	
==>gleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::Eige <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2821	2937	
==>gleton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
    if ($self->class->class != $::Eige <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1497	1630	
==>ndef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1497	1630	
==>ndef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1497	1630	
==>ndef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4084	4203	
==>the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property i <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4084	4203	
==>the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2386	2485	
==>rl>, which happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk of but haven't y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16727	16941	
==>ange( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16727	16941	
==>ange( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16727	16941	
==>ange( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12639	12729	
==>ead2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12639	12729	
==>ead2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1415	1619	
==>, map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1415	1619	
==>, map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	697	807	
==>ammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16463	16554	
==>ustrial strength) and has fully integrated database functionality;
this language, which sati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16463	16554	
==>ustrial strength) and has fully integrated database functionality;
this language, which sati <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7911	8012	
==>leton;
  has Test::Builder::Output   $.output handles 'diag';
  has Test::Builder::TestPlan $.testplan <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	143	240	
==>leton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	143	240	
==>leton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1250	1336	
==>Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1250	1336	
==>Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1250	1336	
==>Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2686	2792	
==>>env->get($symbol) || die $@;

    # fill the place holder with the compiled version of the builtin
    $va <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3075	3174	
==>th, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a tim <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3075	3174	
==>th, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a tim <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	719	859	
==>map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( scalar @metas > 1 ) {
        warn "More than one result found, using high <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	69	173	
==>S::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	69	173	
==>S::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	69	173	
==>S::Root::$type (*\@vals) \{
      JS::inline('new PIL2JS.Box.Constant(function (args) \{
        args.pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2144	2285	
==>LASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2144	2285	
==>LASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2144	2285	
==>LASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this is kind of a hack currently ..
    
    sub ::make_attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2170	2272	
==>t',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2170	2272	
==>t',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	55	157	
==>d in PILn
# (though one may wish to overwrite a limited piln version with a more
# general p6 one after <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13764	13940	
==>n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9948	10124	
==>n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10784	10960	
==>n" .
                #"    print \"tail: \", \$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1569	1724	
==>.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1569	1724	
==>.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1569	1724	
==>.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32191	32294	
==>other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36741	36844	
==>other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36031	36134	
==>other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the result is the s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9401	9502	
==>JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9401	9502	
==>JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9401	9502	
==>JS.resolve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20837	21100	
==>v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20837	21100	
==>v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20837	21100	
==>v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13192	13335	
==>ethod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13192	13335	
==>ethod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the ne <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13192	13335	
==>ethod->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2892	2999	
==>t::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2892	2999	
==>t::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2892	2999	
==>t::sort(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7607	7761	
==>>signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7607	7761	
==>>signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7607	7761	
==>>signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'def <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14790	14879	
==>"r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14790	14879	
==>"r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10574	10688	
==>ct 
    # methods which must be implemented
    # -----------------------------------------------

    method add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10574	10688	
==>ct 
    # methods which must be implemented
    # -----------------------------------------------

    method add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10574	10688	
==>ct 
    # methods which must be implemented
    # -----------------------------------------------

    method add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	446	553	
==>t don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	446	553	
==>t don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	446	553	
==>t don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new methods shift_n() pop_n() - provi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6281	6382	
==>onging to 3rd party classes that your object might be
holding. Using the noio example above, the "retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6281	6382	
==>onging to 3rd party classes that your object might be
holding. Using the noio example above, the "retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6281	6382	
==>onging to 3rd party classes that your object might be
holding. Using the noio example above, the "retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2136	2230	
==>infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2136	2230	
==>infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2136	2230	
==>infix:«**»",   2, "N", "Math.pow(Number(a), Number(b))",
  "infix:«+|»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9332	9479	
==>t_results->{events}} ) {
      next unless defined $test->{pos};
 
      my ($start, $end);
      ($start, $end) = $test->{pos} =~ /line (\d+)(?:.*l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4425	4521	
==>mpiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4272	4367	
==>mpiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8239	8345	
==>($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8239	8345	
==>($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======================================== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8239	8345	
==>($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7972	8145	
==>ion->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7972	8145	
==>ion->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7972	8145	
==>ion->new;
        $j->type( $type );    # unboxed str
        my @val;
        for my $arg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $ar <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9030	9148	
==>ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  for <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9088	9206	
==>ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38416	38523	
==>map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	535	637	
==>>{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	535	637	
==>>{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	535	637	
==>>{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7598	7707	
==>ush @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7598	7707	
==>ush @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7598	7707	
==>ush @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::doublequote $name;
    p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2781	2892	
==>curse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2781	2892	
==>curse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2781	2892	
==>curse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5491	5620	
==>Type' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDep <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5491	5620	
==>Type' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDep <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	618	733	
==>>makemaker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inli <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10855	10965	
==>O

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10855	10965	
==>O

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3633	3763	
==>$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3621	3751	
==>$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $q <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	564	661	
==>ubroutine that build the return value based on the objects /current/
### value.. this allows subdi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1139	1250	
==>=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For whic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1139	1250	
==>=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For whic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1139	1250	
==>=>undef) a valid Pair?
#        fglock PIL-Run currently prints {('undef', undef)}
#        buu fglock: For whic <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1281	1382	
==>ap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1281	1382	
==>ap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5173	5263	
==>e->struct_equiv;
	my $child = $thunk->val->struct_equiv;

	if ($child->isa("Blondie::Seq")) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	246	385	
==>ke storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	246	385	
==>ke storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	246	385	
==>ke storage directly
sub bind_op {
    my %vars = @_;

    my $sig = Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7518	7639	
==>less defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7518	7639	
==>less defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7518	7639	
==>less defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( start => $start, end => $end <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2533	2646	
==>l {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2533	2646	
==>l {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1944	2082	
==>x = shift;
                my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2377	2510	
==>ass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2377	2510	
==>ass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2377	2510	
==>ass.Dispatcher Perl6.MetaClass
          Perl6.Class Perl6.Instance
          Perl6.Object
        >
      : ($_)
  } @input;

  my $j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35583	35719	
==>) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35583	35719	
==>) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35583	35719	
==>) = $array->_pop_n( -$offset );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5209	5340	
==>ariable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5431	5562	
==>ariable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        b <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26533	26628	
==>it.

B<NOTE> This currently only works when sitting in the perl source
directory!

=item C<HARNE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2923	3085	
==>)\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2923	3085	
==>)\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    ret <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	97	198	
==>ist nun der selbe Container wie $y

#=Bindungsoperator (statisch)
$x ::= $y; # $x ist nun die selbe Va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	539	632	
==>.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event han <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	539	632	
==>.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event han <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6097	6224	
==>ions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        ret <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3774	3900	
==>ions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4176	4325	
==>$e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!" <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4176	4325	
==>$e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	784	887	
==>rn $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simp <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	784	887	
==>rn $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5452	5553	
==>w_box('Int',@_) if $cls eq 'Int';
    return new_box('Num',@_) if $cls eq 'Num';
    return get_meta(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8220	8352	
==>s => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8220	8352	
==>s => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8220	8352	
==>s => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9243	9373	
==>on (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one give <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10049	10179	
==>on (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one give <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10964	11094	
==>on (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "The heading of at least one give <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4326	4434	
==>e};
  };

  my @smokes  = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runco <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11088	11183	
==>e (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- ` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11146	11241	
==>e (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- ` <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8927	9057	
==>eys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared libraries (*.so) pugs
      requires. This is necessa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	66	155	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	66	155	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	298	421	
==>function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	298	421	
==>function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	298	421	
==>function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6768	6860	
==>$Class->does('Role'), '... Class now does Role');
ok($Class->has_method('resolve'), '... we n <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1506	1631	
==>e need to keep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1506	1631	
==>e need to keep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8086	8183	
==>ee 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <Decimal <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	640	761	
==>^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	640	761	
==>^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5058	5209	
==>== !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5058	5209	
==>== !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5058	5209	
==>== !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op]» (*\@things) is primiti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	407	533	
==>s;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	407	533	
==>s;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	407	533	
==>s;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11938	12083	
==>eason";
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER::status();
          my $st <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2352	2485	
==>eason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $st <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2352	2485	
==>eason";
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER::status();
        my $st <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2739	2854	
==>ssertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &c <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2739	2854	
==>ssertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3190	3299	
==>!defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'nume <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17142	17253	
==>_line > length $name;
    }

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combinatio <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	346	446	
==>RG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	346	446	
==>RG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25079	25175	
==>ssage class is pure and deterministic,
such that all of its class and object methods will each re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25079	25175	
==>ssage class is pure and deterministic,
such that all of its class and object methods will each re <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	42	136	
==>123.prefix:<->()
="file"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein prefix Lis <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14622	14733	
==>ed, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen fo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14622	14733	
==>ed, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen fo <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	840	939	
==>/';
    print <<__HELP__;
$0 - Build html test catalog and synopses with hyperlinks to corresponding <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5365	5509	
==>-> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tm <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5365	5509	
==>-> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tm <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4545	4688	
==>en $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($tok <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4545	4688	
==>en $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($tok <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13923	14018	
==>ar_non_numeric => sub { $as_array_complain->("scalar_non_numeric") },
      array => sub { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38839	38937	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43653	43751	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43187	43285	
==>@DarrenDuncan.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Rela <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1178	1305	
==>n'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1383	1510	
==>n'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DEST <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1444	1571	
==>n'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOLOAD)[-1];
        return if $label eq 'DEST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5799	5956	
==>>match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5799	5956	
==>>match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5799	5956	
==>>match( $_[1] ) : 
        $_[0]{type}->match( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5699	5953	
==>6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5699	5953	
==>6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5699	5953	
==>6_new_sub_from_pil_macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2074	2204	
==>y => 'reg_any',
      type => $type,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Pars <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4497	4600	
==>ex[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4497	4600	
==>ex[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1380	1478	
==>2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1380	1478	
==>2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1380	1478	
==>2JS // IGNORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{prelu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20238	20329	
==>thorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20238	20329	
==>thorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	284	397	
==>:Grammar::Precedence->new( 
        grammar => 'Pugs::Grammar::Operator',
        header  => q!
block:
        '-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34403	34493	
==>ses named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38953	39043	
==>ses named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1989	2135	
==>);
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1989	2135	
==>);
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5452	5552	
==>l $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4212	4391	
==>} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4212	4391	
==>} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4212	4391	
==>} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'bu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3653	3786	
==>|| !defined $isnt ) {
        # undef only matches undef
        $pass = defined $got || defined $isnt;
    }
    else {
        $pass <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3496	3618	
==>ase/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3496	3618	
==>ase/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26452	26555	
==>but that any duplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31004	31107	
==>but that any duplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30006	30109	
==>but that any duplicates following the projection have been
eliminated.  Trivial cases are where C<$attrs <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7031	7139	
==>" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7043	7151	
==>" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23608	23725	
==>flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'suspend',
      data => \@data,
      down => 1 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8582	8672	
==>ocument describes Rosetta::Model version 0.724.0.

It also describes the same-number versio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8582	8672	
==>ocument describes Rosetta::Model version 0.724.0.

It also describes the same-number versio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19123	19298	
==>ully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19123	19298	
==>ully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19123	19298	
==>ully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other- <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3049	3151	
==>rs);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3049	3151	
==>rs);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($se <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	500	618	
==>>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	500	618	
==>>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	674	771	
==>nter', see the ratchet version for an implementation
and tests.

- Quantified matches could use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16609	16769	
==>method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16609	16769	
==>method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16609	16769	
==>method($label, for => 'private');
            return $method->($self, @{$args});  
        }
        else {   
            
            my %opts = (for => 'insta <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1926	2041	
==>ile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inli <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1926	2041	
==>ile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inli <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2533	2629	
==>@_;

    my $it = Test::Harness::Iterator->new($test_output);
    return $self->_analyze_iterator <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	637	759	
==>FILES => {} )
            unless $self->makemaker_args->{'PL_FILES'};

        if ($args{inline}) {
            $self->Inli <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8426	8533	
==>ts, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Loo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8484	8591	
==>ts, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Loo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8588	8788	
==>start => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    metho <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8588	8788	
==>start => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    metho <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	161	258	
==>obj = JIB::Dependency->new_from_struct( struct => STRUCT )

=cut

sub new_from_struct {
    my $cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2224	2343	
==>ce, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2224	2343	
==>ce, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2224	2343	
==>ce, $opts, $level);
        #goto &recurse; # I wonder why this doesn't work?
    };
	no strict 'refs';
	*{__PACKAGE__ . <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	303	405	
==>xport {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($wo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	303	405	
==>xport {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	734	847	
==>nvocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	734	847	
==>nvocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	734	847	
==>nvocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1194	1295	
==>ile, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1194	1295	
==>ile, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1194	1295	
==>ile, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3766	3895	
==>d('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3766	3895	
==>d('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3766	3895	
==>d('roles' => ::make_method(sub {
    my $self = shift;                        
    ::opaque_instance_attr($self => '@:roles') = sh <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24910	25005	
==>ow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	225	315	
==>e  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	258	348	
==>e  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18128	18222	
==>ULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18128	18222	
==>ULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18128	18222	
==>ULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14819	14928	
==>my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14819	14928	
==>my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the supercla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14819	14928	
==>my @supers = @{::opaque_instance_attr($self => '@:MRO')};
        # if nothing is in MRO, we take the supercla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15087	15265	
==>) 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15087	15265	
==>) 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15087	15265	
==>) 
                    :
                    # check for class method
                    $self->has_method($1, for => 'class') ?
                        $self->get_method($1, for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3790	3884	
==>me,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3790	3884	
==>me,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3790	3884	
==>me,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2747	2854	
==>module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2747	2854	
==>module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4271	4378	
==>module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Builder $Test .= new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	511	640	
==>RRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	511	640	
==>RRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	511	640	
==>RRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2400	2501	
==>le_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2400	2501	
==>le_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2400	2501	
==>le_only;

my $js = jsbin_hack(compile_perl6_to_standalone_js(
  # "-I" . PIL2JS::pwd("lib6"),
  # "-MM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4881	5011	
==>ethods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4881	5011	
==>ethods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4881	5011	
==>ethods

my $_collect_all_roles = sub {
    my ($self, $seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7848	7972	
==>->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7848	7972	
==>->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7848	7972	
==>->new( '$.unboxed' => Perl6::Value::Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14716	14822	
==>ir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Inte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14716	14822	
==>ir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Inte <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14716	14822	
==>ir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runInteractiveCommand ($xx) {...};
MULTI SUB Pugs::Inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14172	14417	
==>( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14172	14417	
==>( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14172	14417	
==>( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1555	1666	
==>rp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1555	1666	
==>rp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1555	1666	
==>rp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3161	3270	
==>ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3149	3258	
==>ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1649	1764	
==>/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $code = (length <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13858	13962	
==>)
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This wil <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13858	13962	
==>)
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This wil <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8471	8563	
==>lated for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8471	8563	
==>lated for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8386	8477	
==>)     --> {true}.
p5_modifier_spec_neg([-i|L]) --> "i", p5_modifier_spec_neg(L), !.
p5_modif <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4758	4934	
==>n empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4758	4934	
==>n empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end ( <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	121	230	
==>ngs;

use Blondie::TestPrograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1007	1131	
==>to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1007	1131	
==>to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	95	218	
==>oint seconds relative to 1st Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# return a unix time_t
method tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	622	735	
==>ss({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	622	735	
==>ss({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	622	735	
==>ss({ __VALUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4264	4391	
==>ATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4264	4391	
==>ATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4264	4391	
==>ATA[
@{[$indent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19357	19510	
==>$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref' <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	441	538	
==>ys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n") <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	441	538	
==>ys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n") <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1808	1896	
==>NOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz". <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1808	1896	
==>NOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz". <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14377	14472	
==>ain::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14377	14472	
==>ain::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14377	14472	
==>ain::hash_ENV->tie( $h );
	
	$PIL::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3755	3942	
==>tches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3640	3821	
==>tches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1718	1828	
==>urn $S->object(exact => "\t", '\t');
  });

  # bol, mbol, sbol
  $self->add_handler('^' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2241	2407	
==>_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2488	2654	
==>_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { retur <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12475	12582	
==>{ p6_as_num(${$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	807	927	
==>_rule( 
        "postcircumfix:<" . $opt{name} . " " . $opt{name2} . ">",
        '{ return { op => "postcircumfix:<' . $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8429	8538	
==>in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is ch <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8429	8538	
==>in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is ch <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	423	523	
==>"<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	423	523	
==>"<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3094	3210	
==>@a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3094	3210	
==>@a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprint <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3094	3210	
==>@a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) is primitive {
  "&sprint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7804	7903	
==>et_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7804	7903	
==>et_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@clas <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7804	7903	
==>et_classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@clas <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12654	12796	
==>:Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr ta <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	827	921	
==>February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Pl <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	827	921	
==>February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Pl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	960	1078	
==>o'}    = $to;
    return $o;
}
sub set_as_failed {
    my($o)=@_;
    $o->set(0,"",[],{});
    return $o;
}
sub set_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15004	15114	
==>f code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $dige <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15004	15114	
==>f code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $dige <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10857	10994	
==>pping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $r <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5287	5382	
==>Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5287	5382	
==>Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40625	40749	
==>@_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40625	40749	
==>@_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40625	40749	
==>@_;
    return shift @{$this->{arrayref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2149	2401	
==>error(
                                            "Could not open file '$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use constant ISA_JIB_META   = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25188	25282	
==>n to link Rosetta with other free software
components, as defined by the Free Software Foundati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25188	25282	
==>n to link Rosetta with other free software
components, as defined by the Free Software Foundati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4638	4759	
==>(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4638	4759	
==>(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4638	4759	
==>(' . $_[0]->{cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	475	585	
==>$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	475	585	
==>$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	475	585	
==>$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5413	5525	
==>, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5413	5525	
==>, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5413	5525	
==>, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9747	9892	
==>> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9747	9892	
==>> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	4043	4150	
==>a real inc class to
    # interface %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8024	8128	
==>e)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %user <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8024	8128	
==>e)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %user <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25021	25112	
==>C<$verbose>, C<$switches> and C<$debug> are exported upon request.

=head1 DIAGNOSTICS

=ove <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23473	23566	
==>s are immutable rather than mutable, this property and/or
same-named accessor method can be us <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28025	28118	
==>s are immutable rather than mutable, this property and/or
same-named accessor method can be us <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26829	26922	
==>s are immutable rather than mutable, this property and/or
same-named accessor method can be us <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20894	21034	
==>> (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::sign <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43818	43958	
==>> (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::sign <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6556	6643	
==>er|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	252	352	
==>efined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	252	352	
==>efined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	252	352	
==>efined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	839	932	
==>::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	839	932	
==>::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	839	932	
==>::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS::Keyed;
use Prelude::JS::Pair;
use Prelude:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4087	4217	
==>stance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4087	4217	
==>stance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4087	4217	
==>stance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	555	652	
==>or @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	555	652	
==>or @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	555	652	
==>or @cands;
  return $cands[0];
}

sub jsprelude_path { try_files pwd(qw< libjs PIL2JS.js >), pwd(q <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8765	8874	
==>pectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8823	8932	
==>pectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_te <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	24	121	
==>Install::Win32;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VER <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7311	7413	
==>m_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )` <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7311	7413	
==>m_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )` <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20028	20122	
==>This means that force_object()
should be used to create stand-alone objects.

Each object now h <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	32	130	
==>position
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Co <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	32	130	
==>position
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2407	2522	
==>>{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2407	2522	
==>>{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2407	2522	
==>>{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = $metaclass->new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3019	3162	
==>' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3019	3162	
==>' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34373	34465	
==>ha, ascii, cntrl, digit (C<\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4416	4603	
==>w( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4416	4603	
==>w( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4416	4603	
==>w( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	505	605	
==>the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you migh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	505	605	
==>the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you migh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	505	605	
==>the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you migh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3685	3857	
==>h $1),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2644	2740	
==>ase it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fracti <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2644	2740	
==>ase it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fracti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3218	3331	
==>od kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3218	3331	
==>od kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3218	3331	
==>od kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $_, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16662	16786	
==>n all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16662	16786	
==>n all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8560	8673	
==>)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequote <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8560	8673	
==>)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequote <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8560	8673	
==>)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequote <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1136	1257	
==>ssdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1136	1257	
==>ssdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1136	1257	
==>ssdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	253	368	
==>C} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	253	368	
==>C} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	253	368	
==>C} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2176	2276	
==>);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2176	2276	
==>);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:« <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16830	17038	
==>eading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backlink = HT <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19678	19774	
==>xy, may do so by including these headers.

=item $h.authorization_basic

This method is used to g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19678	19774	
==>xy, may do so by including these headers.

=item $h.authorization_basic

This method is used to g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	43	145	
==>$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	43	145	
==>$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	43	145	
==>$FETCH = { die "No FETCH routine supplied" },
  Code :$STORE = { die "No STORE routine supplied" },
) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1760	1871	
==>elf, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1760	1871	
==>elf, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1760	1871	
==>elf, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

method keys (Hash <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16589	16822	
==>> qr/^h\d$/,
                                          name  => $heading_re);
                
                unless ($h) {
                    push @unresolved, { target   => $target, 
                                        heading <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20729	20827	
==>such.

The usual way that Relation indicates a failure is to throw an exception;
most often this is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25281	25379	
==>such.

The usual way that Relation indicates a failure is to throw an exception;
most often this is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40213	40315	
==>y easiest to follow my module when creating warning and
error messages for your sub-class.

  package Y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2045	2147	
==>(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2045	2147	
==>(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2045	2147	
==>(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infix:eq", "S", "String(a) == String( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3433	3569	
==>y'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3626	3762	
==>y'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4615	4718	
==>d');
is($p3d->get_y, 6, '... got the right y for p3d');
is($p3d->get_z, 7, '... got the right z for p3d' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	683	797	
==>k ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	683	797	
==>k ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	683	797	
==>k ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12965	13089	
==>->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12965	13089	
==>->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2461	2579	
==>: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1079	1183	
==>ding C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 A <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1079	1183	
==>ding C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1635	1739	
==>ding C<#> to
every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6729	6846	
==>n () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6729	6846	
==>n () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6729	6846	
==>n () {
      var PIL2JS = AlsoPIL2JS_SpeedupHack;
      var pad = {}; PIL2JS_subpads.push(pad);
      pad['\$?POSITION <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3077	3183	
==>t;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3077	3183	
==>t;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 v <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10378	10477	
==>ace_perl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(cl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4389	4536	
==>( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4389	4536	
==>( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9804	9990	
==>nto a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9804	9990	
==>nto a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9804	9990	
==>nto a Hash";
                }
                my $key = shift @param;
                my $s = $self->fetch( $key );
                # fetch should always return Scalar
                if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2532	2624	
==>bel) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::Stu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2532	2624	
==>bel) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::Stu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2532	2624	
==>bel) = @_;
    blessed(::opaque_instance_attr($self => '%:methods')->{$label}) eq 'Perl6::Stu <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2452	2558	
==>t, including
newlines.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Ha <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1649	1784	
==>pt = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1649	1784	
==>pt = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1638	1758	
==>mainder,
        capture => [ $extracted, $extracted2 ],
    } );
};

sub single_quoted {
    my $grammar = shift;
    re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2206	2404	
==>ntent unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2206	2404	
==>ntent unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3019	3122	
==>les,
it is completely independent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The source file header mus <==
3	/Users/nnunley/pugs/util/package-osx.pl	1285	1403	
==>tory.a
    );
}
if ($bundle =~ /pugs/) {

    %symlinks = qw(
        /usr/local/bin/pugs ../../bin/pugs
        /usr/l <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18845	18939	
==>dule will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> in <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18845	18939	
==>dule will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3925	4022	
==>nonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3925	4022	
==>nonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3925	4022	
==>nonymous@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	930	1038	
==>ly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	930	1038	
==>ly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1477	1585	
==>ly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19412	19529	
==>is a column, but it is not the same as a table.

The intended interface and use of this class in Perl programs is simi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23964	24081	
==>is a column, but it is not the same as a table.

The intended interface and use of this class in Perl programs is simi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22480	22597	
==>is a column, but it is not the same as a table.

The intended interface and use of this class in Perl programs is simi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2418	2522	
==>\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2418	2522	
==>\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	912	1003	
==>henticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	912	1003	
==>henticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4715	4825	
==>odo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4773	4883	
==>odo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15098	15259	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15377	15538	
==>r1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::a <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2691	2803	
==>nt>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7.2 White Space

rule TAB  { \ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36080	36292	
==>bel'), 
                      $e->get('$attribute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('ge <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9403	9526	
==>per::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9391	9514	
==>per::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5482	5582	
==>->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5482	5582	
==>->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5482	5582	
==>->as_js || () } @{ $fixed_tree->{"pilGlob"} };
  $IN_GLOBPIL = 0;
  my $main_js = $fixed_tree->{pilMa <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	773	887	
==>ns Bool is builtin is primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Internals::exec( <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4656	4774	
==>arget
            copy($candidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $! <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	50	158	
==>rl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	50	158	
==>rl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	134	241	
==>Name});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	134	241	
==>Name});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	134	241	
==>Name});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8465	8611	
==>r->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8465	8611	
==>r->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8465	8611	
==>r->new( '$.unboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	474	594	
==>d of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	474	594	
==>d of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	474	594	
==>d of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fixes: @a[1,2].delete; @a.uniq; (-Inf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9966	10085	
==>ch;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9960	10079	
==>ch;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18585	18679	
==>tirely> redundant (that is, I<every>
character in that embedded class is already found in the c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2722	2896	
==>turn;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $tr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2722	2896	
==>turn;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	508	629	
==>op();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	508	629	
==>op();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })') <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	508	629	
==>op();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : array.length + idx] != undefined
      ));
    })') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4350	4465	
==>sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4350	4465	
==>sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4350	4465	
==>sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive {
  # Hack, see comment at &sort.
  unless $cmp. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16235	16384	
==>ft;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16235	16384	
==>ft;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16235	16384	
==>ft;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $count++, $_[0] )
        } ); 
}

sub keys { 
    my $array = shif <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3454	3586	
==>rn &$step;
      }
      my $op1 = $operators->($noop);
      if($op1) {
        print STDERR "new op\n" if $debug;
        local $Z: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16636	16728	
==>nguage> documentation file that comes
with this "Rosetta" distribution.

While it is possible <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16636	16728	
==>nguage> documentation file that comes
with this "Rosetta" distribution.

While it is possible <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33722	33867	
==>a( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33722	33867	
==>a( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33722	33867	
==>a( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19460	19773	
==>bind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19460	19773	
==>bind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19460	19773	
==>bind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11831	11973	
==>> sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11831	11973	
==>> sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11831	11973	
==>> sub {
            my $self = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$sel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1693	1842	
==>) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	107	202	
==>ee: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	107	202	
==>ee: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3245	3425	
==>L(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3245	3425	
==>L(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23034	23132	
==>t
must determine the storage representation of the roles' attributes (eg,
volatile or persistent) a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2647	2766	
==>, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2647	2766	
==>, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2647	2766	
==>, and you are trying to access position $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1745	1849	
==>->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1745	1849	
==>->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1745	1849	
==>->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	168	266	
==>eta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	168	266	
==>eta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	168	266	
==>eta.add_method('new', method (%params) returns Class { 
    $?CLASS.bless(undef, %params);
});

::C <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25334	25433	
==>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the lice <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25334	25433	
==>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the lice <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1565	1728	
==>=> sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return undef unless <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6951	7056	
==>ts until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6951	7056	
==>ts until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9676	9922	
==>>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13807	13924	
==>ting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13807	13924	
==>ting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	268	409	
==>Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	268	409	
==>Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	268	409	
==>Str $y {
  "
    (function () \{
      var res    = \"\";
      var minlen = {$x}.length < {$y}.length ? {$x}.length : {$y}.length;
      for( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	128	227	
==>d and
# applied) to permit alternate regexp engines to be used without
# requiring changes to user p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16887	16981	
==>nents of their application in Rosetta D (as
either named modules or anonymous routines) and wri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16887	16981	
==>nents of their application in Rosetta D (as
either named modules or anonymous routines) and wri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10427	10540	
==>h @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });


  ### '+'

  $self->add_handler('+ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	66	166	
==>) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------------------------ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	66	166	
==>) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7379	7484	
==>s_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7379	7484	
==>s_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7379	7484	
==>s_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $jsbody = $se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3452	3571	
==>o the current match, even if there is another
        match inside the closure
    $/()  
        just the capture - wha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3463	3582	
==>o the current match, even if there is another
        match inside the closure
    $/()  
        just the capture - wha <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	25	127	
==>ings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug($);

o <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4751	4896	
==>t_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_ex <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4751	4896	
==>t_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_ex <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5387	5589	
==>th } = { bin => \@bins, auto => 1 };
                    
                ### dump out alternatives again
                DumpFile( $Altfile, $href );

                my $postinst = $meta_dir . '/'. $Po <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11739	11868	
==>o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14587	14716	
==>o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12876	13001	
==>' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This met <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12876	13001	
==>' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This met <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2042	2151	
==>ok \# Match failed.\n";
	    } else {
		print STDERR "  eval $expr\n" if $debug_warnings;
		my $res = eval($ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18335	18506	
==>$r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation::Example $other!) returns Relation <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3048	3150	
==>ommon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3048	3150	
==>ommon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	233	379	
==>:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	233	379	
==>:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted valu <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1148	1248	
==>D__

=head1 NAME 

re::override - Override Perl regular expressions

=head1 VERSION

This document de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11836	11994	
==>\$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8118	8276	
==>\$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8952	9110	
==>\$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5767	5867	
==>f_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5767	5867	
==>f_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5767	5867	
==>f_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1534	1700	
==>on( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1534	1700	
==>on( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	301	413	
==>.p6>) {
    (my $f = $p6) =~ s/.p6$//;
    my ($dir, $file) = split /\//, $f;
    next if not -e "$dir/$file.expe <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1404	1517	
==>ib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1404	1517	
==>ib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4556	4713	
==>\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4556	4713	
==>\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4556	4713	
==>\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || ref($_[0]) eq 'Arr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1430	1601	
==>$n->{bareword} )
        if exists $n->{bareword};
        
    return $n->{code} 
        if exists $n->{code};
        
    return $n->{int} 
        if exists $n- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17083	17177	
==>dicating the size in bytes of the message content.

=item $h.content_language

The natural lang <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17083	17177	
==>dicating the size in bytes of the message content.

=item $h.content_language

The natural lang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31056	31247	
==>p[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31056	31247	
==>p[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31056	31247	
==>p[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10398	10493	
==>\$$_"} @{$info->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15987	16081	
==>UTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Steva <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16045	16139	
==>UTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Steva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1603	1713	
==>p {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1603	1713	
==>p {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1603	1713	
==>p {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3174	3292	
==>@msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3174	3292	
==>@msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3174	3292	
==>@msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10500	10614	
==>urn;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10500	10614	
==>urn;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10500	10614	
==>urn;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2557	2689	
==>$self->{errmsg} = sprintf $err, @args;
  croak $self->{errmsg};
}


sub warn {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; ma <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	697	804	
==>}
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	697	804	
==>}
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1188	1311	
==>od excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # W <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1188	1311	
==>od excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # W <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12954	13049	
==>he recurrence is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stri <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12954	13049	
==>he recurrence is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stri <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2196	2290	
==>DERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtim <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9193	9284	
==>nnel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9193	9284	
==>nnel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	313	415	
==>ts, it is only
# expected to serve as a tool to somewhat speed up
# the rewrite of existing p5 programs <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25792	25885	
==>osetta that you modify and distribute must carry prominent
notices stating that you changed th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25792	25885	
==>osetta that you modify and distribute must carry prominent
notices stating that you changed th <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15520	15623	
==>h the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15520	15623	
==>h the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This he <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	973	1061	
==>xp::CCShortcut");
    $optable->addToken("term:\\S", "term:", "nows", "PGE::Exp::CCShortc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3330	3475	
==>----------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 7 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33536	33631	
==>-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33536	33631	
==>-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17326	17442	
==>xp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = " <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2393	2502	
==>s($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<O <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2393	2502	
==>s($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<O <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7610	7845	
==>!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8074	8309	
==>!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4952	5063	
==>true if it was considered to be a passed test.  C<%test> is the results
            #of the test you're summariz <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	655	772	
==>o {
            my($key, $val) = ($1, $2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	148	244	
==>\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeCh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	148	244	
==>\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeCh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5475	5596	
==>w( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5475	5596	
==>w( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5475	5596	
==>w( '$.unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1716	1820	
==>le_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rema <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2151	2255	
==>le_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rema <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2585	2689	
==>le_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rema <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12949	13089	
==>ength?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12949	13089	
==>ength?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12949	13089	
==>ength?, *@list) is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10708	10814	
==>hat hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] rul <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	526	628	
==>KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # package L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	526	628	
==>KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # package L <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	725	825	
==>can construct new classes which are of its type.

=item *

It serves as the basis for a method dispat <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18781	18877	
==>a Perl file that defines and returns an anonymous hash
definition.  While it is obvious that peop <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18781	18877	
==>a Perl file that defines and returns an anonymous hash
definition.  While it is obvious that peop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1059	1162	
==>ame;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1059	1162	
==>ame;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1059	1162	
==>ame;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1689	1788	
==>e time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet acc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1689	1788	
==>e time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet acc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5855	5995	
==>[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] ab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5855	5995	
==>[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7328	7445	
==>O_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7328	7445	
==>O_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7328	7445	
==>O_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5197	5310	
==>my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5197	5310	
==>my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11871	11970	
==>- Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11871	11970	
==>- Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11658	11756	
==>to put literal newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3900	4024	
==>cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3900	4024	
==>cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3900	4024	
==>cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{preludepc}\": $!\n";

  command_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2200	2317	
==>g $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2200	2317	
==>g $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2200	2317	
==>g $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo,$ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17648	17759	
==>sents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17648	17759	
==>sents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurren <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2186	2281	
==>de <regcomp.h>
/* for the struct pointed to by substrs :( */

#define RECOGNITION_FLAG 0xfdfcd84 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5138	5258	
==>_parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5602	5722	
==>_parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15983	16077	
==>) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0,E1).

rm( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3940	4048	
==>IPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3940	4048	
==>IPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5464	5572	
==>IPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3172	3290	
==>rn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yiel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3172	3290	
==>rn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yiel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3172	3290	
==>rn 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yiel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	77	184	
==>t;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	77	184	
==>t;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	77	184	
==>t;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	945	1045	
==>ing more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	945	1045	
==>ing more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	899	1073	
==>= rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	899	1073	
==>= rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	899	1073	
==>= rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3956	4063	
==>}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val->fmap(sub { $self->reduce($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	285	404	
==>S => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	285	404	
==>S => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	285	404	
==>S => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1008	1117	
==>->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1235	1344	
==>->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1462	1571	
==>->isa('type'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	990	1080	
==>se Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	990	1080	
==>se Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	990	1080	
==>se Prelude::JS::Context;
use Prelude::JS::Math;
use Prelude::JS::JSAN;
use Prelude::JS::Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	231	331	
==>bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	231	331	
==>bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	231	331	
==>bless {
    pLHS => $self->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	165	284	
==>arnings;
    open FH, "< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    close F <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25791	25886	
==>ge Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Has <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25791	25886	
==>ge Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35018	35154	
==>0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35018	35154	
==>0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35018	35154	
==>0 ) {
        ( $len_head, @head ) = $array->_shift_n( $offset );
        if ( $length >= 0 ) {
            #  head=shift offset -> body= <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9356	9474	
==>target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PG <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20915	21009	
==>rgument list to the constructor or header() method, the same
field name should not occur multip <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20915	21009	
==>rgument list to the constructor or header() method, the same
field name should not occur multip <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10063	10154	
==>example, to set PERL_RUNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	71	159	
==>ile, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	71	159	
==>ile, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	742	833	
==>port {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "requir <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	742	833	
==>port {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "requir <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2710	2860	
==>d,strbeg,
                              minend,screamer,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 ret;
    I <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37695	37787	
==>ion::Example>

This method is a generic relational operator that takes a single Relation::Exa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38535	38627	
==>ion::Example>

This method is a generic relational operator that takes a single Relation::Exa <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7132	7260	
==>_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3409	3504	
==>}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Eve <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3409	3504	
==>}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Eve <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10755	10857	
==>r_class(class_pos(newline))           --> "\\n", !. %# XXX - not quite?
p6_char_class(class_neg(newline <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3066	3163	
==>edly to encipher data.
The encipherer closure can be called with a string, and should be called at <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3066	3163	
==>edly to encipher data.
The encipherer closure can be called with a string, and should be called at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2783	2911	
==>prefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2783	2911	
==>prefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2783	2911	
==>prefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = @_;

      my %param = (a => <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1941	2041	
==>tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1941	2041	
==>tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3051	3187	
==>n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    print "}\n\\end{block}\n" if $inblock;
#    print "}";
    close ST <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22240	22330	
==>operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22240	22330	
==>operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1163	1342	
==>ay|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1163	1342	
==>ay|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        re <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	440	533	
==>TreeBuilder;
use HTML::Entities;
use List::Util 'first';
use Regexp::Common qw/balanced delimi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2601	2700	
==>rd" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2601	2700	
==>rd" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2601	2700	
==>rd" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", "Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2799	2904	
==>ternals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "L <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2799	2904	
==>ternals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "L <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2799	2904	
==>ternals::eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5790	5895	
==>link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5790	5895	
==>link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5790	5895	
==>link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	395	583	
==>(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        gi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	395	583	
==>(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        gi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2349	2468	
==>/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $self->li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	0	108	
==>package PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	0	108	
==>package PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	0	108	
==>package PIL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49418	49568	
==>'?$version'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:version'));
            }
        )
    )
);

$::Modul <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1180	1271	
==>gainst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1180	1271	
==>gainst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6031	6215	
==>r 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6031	6215	
==>r 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6031	6215	
==>r 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1073	1167	
==>ut = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1073	1167	
==>ut = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1073	1167	
==>ut = defined $timeout ? $timeout : $ENV{PUGS_HACK_TIMEOUT};
$timeout = 1*60 if !defined($timeou <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5953	6067	
==>tarted = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $cont <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6011	6125	
==>tarted = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $cont <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26348	26442	
==>IN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($Lang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20598	20713	
==>1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20598	20713	
==>1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20598	20713	
==>1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1545	1639	
==>UpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1545	1639	
==>UpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1545	1639	
==>UpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14324	14455	
==>$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14318	14449	
==>$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31845	31979	
==>}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31845	31979	
==>}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31845	31979	
==>}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}};
    if ( $length == Inf ) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1577	1682	
==>V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $O.property_value <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	985	1087	
==>le" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddie <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	985	1087	
==>le" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddie <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23896	23992	
==>H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replac <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10614	10709	
==>ther contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10672	10767	
==>ther contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	548	670	
==>* several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	548	670	
==>* several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	548	670	
==>* several fixes: @a[1,2].delete; @a.uniq; (-Inf..Inf); (-Inf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10446	10604	
==>$ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10446	10604	
==>$ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10446	10604	
==>$ary->splice( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1930	2047	
==>nstant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1930	2047	
==>nstant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1930	2047	
==>nstant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    r <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	212	313	
==>6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print "nach a kommt $hash <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19456	19552	
==>said separate resource files, and not change
your main program.

I<Note that an update is planned <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19456	19552	
==>said separate resource files, and not change
your main program.

I<Note that an update is planned <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2094	2291	
==>ize = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2094	2291	
==>ize = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3409	3529	
==>l do)
  
  my $cat = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    blo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	518	624	
==>:extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	518	624	
==>:extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16681	16778	
==>te.  If the optional named parameter
@child_nodes (an array ref) is set, then each element in it i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16681	16778	
==>te.  If the optional named parameter
@child_nodes (an array ref) is set, then each element in it i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5061	5158	
==>l yield "moose".

Inherits List.

=item Param

Shifts a parameter from the parameter stack and bin <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7201	7329	
==>2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7201	7329	
==>2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	156	260	
==>uilder::Output;

class Test::Builder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    meth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4090	4343	
==>_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedTex <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4090	4343	
==>_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedTex <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13230	13318	
==>"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests_ok"><tmpl_var name= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8384	8570	
==>s->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_bre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8384	8570	
==>s->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_bre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8384	8570	
==>s->superclasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_bre <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3087	3216	
==>n //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    f <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3087	3216	
==>n //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2074	2189	
==>y strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2074	2189	
==>y strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('f <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3109	3213	
==>e "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14831	14941	
==>heck_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14831	14941	
==>heck_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14831	14941	
==>heck_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    p6_from_n(system(@x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4199	4321	
==>ne('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4199	4321	
==>ne('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4199	4321	
==>ne('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3608	3720	
==>> $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3608	3720	
==>> $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3608	3720	
==>> $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "g <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10198	10318	
==>")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4380	4472	
==>r :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4380	4472	
==>r :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2262	2366	
==>n "$ident($list);\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $progra <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12597	12695	
==>per minute, 
wags per second, or holidays per month.

It is also used when the objects represent "c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12597	12695	
==>per minute, 
wags per second, or holidays per month.

It is also used when the objects represent "c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3456	3560	
==>S

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3456	3560	
==>S

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3536	3640	
==>S

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C<no_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	288	397	
==>nks
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	288	397	
==>nks
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jss <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	288	397	
==>nks
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jss <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1630	1770	
==>t;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1630	1770	
==>t;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1630	1770	
==>t;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    return ""
      i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4255	4369	
==>ILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4255	4369	
==>ILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6279	6376	
==>KAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19144	19260	
==>un => ide("f"),
				param => val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	555	663	
==>t returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    stat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	555	663	
==>t returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22161	22274	
==>x) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22161	22274	
==>x) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22161	22274	
==>x) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4006	4112	
==>JIB::Package->new( meta => $_, installation => $obj) }
                map { JIB::Meta->new_from_struct( st <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3072	3174	
==>esenting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3072	3174	
==>esenting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::In <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	741	841	
==>t in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a specia <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	741	841	
==>t in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a specia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22019	22233	
==>$tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22019	22233	
==>$tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22019	22233	
==>$tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) { <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5920	6019	
==>rsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5920	6019	
==>rsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic p <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	85	176	
==>tall/Base.pm"
package Module::Install::Base;

# Suspend handler for "redefined" warnings
BEG <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5096	5214	
==>lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4222	4337	
==>), return;

    my $fh = OPEN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    return $conte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4919	5033	
==>lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33107	33195	
==>n>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37657	37745	
==>n>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	275	388	
==>Model::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	275	388	
==>Model::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	275	388	
==>Model::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	53	194	
==>) \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	53	194	
==>) \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	53	194	
==>) \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode($f("{$x}.charCodeAt(i)"));
      \ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	370	470	
==>t = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	370	470	
==>t = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1949	2039	
==><$session>'s C<$event> event handler, passing C<@args> as arguments.
Note that possibly, th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2173	2276	
==>ff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.ne <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2173	2276	
==>ff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8057	8222	
==>"Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8057	8222	
==>"Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8057	8222	
==>"Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28360	28453	
==>s tests.  Setting C<$Test::Harness::verbose> will override this,
or you can use the C<-v> swit <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	721	813	
==>Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy a <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	721	813	
==>Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4869	4961	
==>ct blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4869	4961	
==>ct blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4869	4961	
==>ct blessed into "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=ite <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1173	1276	
==>al_parrot\n$code\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.1415926 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6011	6109	
==>r

### Rule::compile or Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5803	5899	
==>r
### Rule::compile or Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rul <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2461	2589	
==>est path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2461	2589	
==>est path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::de <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4196	4305	
==>12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th line\n" ],
   );
   for my $r (@tt) { CheckOne( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15585	15684	
==>the new value would put the span 
in an invalid state, such as `start` bigger than `end` (the span i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15585	15684	
==>the new value would put the span 
in an invalid state, such as `start` bigger than `end` (the span i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7488	7644	
==>work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7488	7644	
==>work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7488	7644	
==>work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1591	1695	
==>/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32998	33097	
==>et_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32998	33097	
==>et_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1313	1426	
==>ar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAY <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1301	1406	
==>ar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15939	16059	
==>tering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15939	16059	
==>tering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15939	16059	
==>tering _normal_dispatch with label($label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5372	5478	
==>p = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5372	5478	
==>p = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5372	5478	
==>p = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is pri <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1040	1153	
==>- not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.sta <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1040	1153	
==>- not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.sta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8088	8197	
==>fined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defin <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8146	8255	
==>fined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4626	4734	
==>"\r", '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	510	606	
==>defined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	510	606	
==>defined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	510	606	
==>defined ? new PIL2JS.Box.Constant(undefined) : ret);
  })')(@self);
}

method JS::Root::unshift($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13399	13539	
==>if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13399	13539	
==>if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13399	13539	
==>if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal_dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3969	4117	
==>mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3969	4117	
==>mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3969	4117	
==>mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript conta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7761	7870	
==>message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7761	7870	
==>message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15738	15834	
==>allowed.

If a function takes a C<Str> and returns a C<Str>, the returned C<Str>
will support the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3120	3213	
==>ub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3120	3213	
==>ub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3120	3213	
==>ub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_name  { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4229	4338	
==>asses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4229	4338	
==>asses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4229	4338	
==>asses');
});

::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9245	9364	
==>L1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9245	9364	
==>L1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9245	9364	
==>L1-Perl5 $fn";
    my $pil = `$cmd`; #die if $!;
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";
    $pil;
}

sub <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25348	25441	
==>failing subtests statistics like the
above are printed.

=item C<Test returned status %d (wsta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13032	13147	
==>_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13032	13147	
==>_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13032	13147	
==>_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    warn p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10325	10433	
==>Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10325	10433	
==>Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10325	10433	
==>Run::ApiX::Exception::Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'S <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	829	935	
==>"class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $por <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	829	935	
==>"class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $por <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	496	606	
==>a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with obje <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	496	606	
==>a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with obje <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47657	47854	
==>s->new(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new(' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35517	35707	
==>s->new(
                              symbol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new(' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6722	6906	
==>s->new(
                              symbol->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol->new(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14043	14186	
==>ift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14043	14186	
==>ift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14043	14186	
==>ift;
            return shift @{$self->{shifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6487	6595	
==>nboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6487	6595	
==>nboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6487	6595	
==>nboxed') ) ) },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1780	1894	
==>name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1780	1894	
==>name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1780	1894	
==>name eq "&*END";
    #warn "Skipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18047	18142	
==>trols the requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18047	18142	
==>trols the requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5193	5312	
==>$type if ref $new and $new == $type;
			$type = $new;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $typ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11184	11289	
==>the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traff <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11184	11289	
==>the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traff <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11126	11223	
==>r
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not cha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11126	11223	
==>r
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not cha <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	209	294	
==>1::Api::p6_initialize_package("",'package');
    Perl6::Run::OnPerl5::X1::Api::p6_init <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	659	759	
==>y useful stuff, and need not be
  implemented immediately.  Assume the existence of what would
  be u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1979	2078	
==>ocal $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1979	2078	
==>ocal $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5317	5426	
==>->object(exact_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12250	12380	
==>ndisplay\n";
	    }
	    `$stdin`;
	    $runperl .= q{ < teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{st <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2263	2359	
==>ically, the first few bytes of data aren't encrypted well.  If your 
application allows, skip ove <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2263	2359	
==>ically, the first few bytes of data aren't encrypted well.  If your 
application allows, skip ove <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33076	33174	
==>s aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37626	37724	
==>s aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36970	37068	
==>s aliases named
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Rel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2169	2299	
==>l, \%hash ) or error( Params::Check->last_error ), return;
    
        ### make the path absolute
        ### XXX path::class does <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2231	2351	
==>returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2231	2351	
==>returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17244	17335	
==>0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17244	17335	
==>0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17244	17335	
==>0) * p6_to_n($xx1)) };
MULTI SUB infix:</> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) / p6_to_n($ <==
3	/Users/nnunley/pugs/util/package-osx.pl	486	601	
==>erge
        /usr/local/bin/disassemble
        /usr/local/bin/parrot
        /usr/local/bin/pbc_info
        /usr/l <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2500	2588	
==>-----------------------------------------------
## getting children

method get_child ($s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2500	2588	
==>-----------------------------------------------
## getting children

method get_child ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4138	4229	
==>hile (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4138	4229	
==>hile (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pack <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4138	4229	
==>hile (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17967	18070	
==>:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17967	18070	
==>:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17967	18070	
==>:<+>  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6777	6881	
==>\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6777	6881	
==>\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7487	7584	
==>MatchTest *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextests --> In <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10603	10715	
==>value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10761	10873	
==>value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32222	32364	
==>atcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32877	33019	
==>atcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29430	29571	
==>atcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6273	6390	
==>argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6273	6390	
==>argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6273	6390	
==>argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    ret <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10017	10169	
==>rion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array::sort(                 @va <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9587	9696	
==>_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table, w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9587	9696	
==>_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table, w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9207	9328	
==>cedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9207	9328	
==>cedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20591	20705	
==>>{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # \1 (backrefs)
  package Regexp::Parser:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3165	3280	
==>e::Build;
    my $build = Module::Build->new(
        dist_name    => $self->{name},
        dist_version => $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9912	10010	
==>and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As ne <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9970	10068	
==>and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As ne <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10024	10119	
==>e
added to Pugs, new test functions will be defined to facilitate the
testing of those features. <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10082	10177	
==>e
added to Pugs, new test functions will be defined to facilitate the
testing of those features. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18904	19032	
==>:AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18904	19032	
==>:AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18904	19032	
==>:AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUT <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2154	2305	
==>/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $Repoindex, @metalist );
    
    pri <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34364	34460	
==>ct.
The Set Names property of the new object is set from the named parameter
@set_names (an array <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34364	34460	
==>ct.
The Set Names property of the new object is set from the named parameter
@set_names (an array <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1167	1260	
==>("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_re <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1167	1260	
==>("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1492	1624	
==>H();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1492	1624	
==>H();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1492	1624	
==>H();
        already_calced = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15144	15286	
==>ved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

for $n (eg $1 => n=1), 1<= <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17158	17266	
==>1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1, <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17315	17423	
==>1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8386	8525	
==>"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::immediate_statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3076	3177	
==>_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3076	3177	
==>_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3076	3177	
==>_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6023	6152	
==>me'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet update <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6023	6152	
==>me'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet update <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6023	6152	
==>me'};
        my $class = $name;
        $name =~ s/.*:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet update <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21707	21822	
==>ile ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19512	19607	
==>= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19512	19607	
==>= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19512	19607	
==>= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_to_n($xx1)) } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12391	12482	
==>rameter's
corresponding argument is undefined).  The new Document object's All Nodes
attribu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12391	12482	
==>rameter's
corresponding argument is undefined).  The new Document object's All Nodes
attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14752	14864	
==>his is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14752	14864	
==>his is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14752	14864	
==>his is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3099	3217	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3099	3217	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3099	3217	
==>eClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL::Run::EvalX::bb_tree_is_var = 0;
    local $P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	936	1062	
==>les alternative installation] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8594	8714	
==>els{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8594	8714	
==>els{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3028	3199	
==>et') };
use constant ISA_JIB_INSTALLATION_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installati <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1019	1118	
==>}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($work <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1019	1118	
==>}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($work <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17086	17182	
==>I SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17086	17182	
==>I SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17086	17182	
==>I SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7247	7340	
==>$self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7247	7340	
==>$self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7510	7687	
==>nless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7510	7687	
==>nless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7510	7687	
==>nless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9406	9508	
==>solve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9406	9508	
==>solve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9406	9508	
==>solve_callervar($delta, %s)",
      doublequote($name);
  # No qualification? Use "main" as package nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2707	2826	
==>ivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2707	2826	
==>ivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "& <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2707	2826	
==>ivify2)=@_;
    $name =~ s/\[ \]/\[\]/; # XXX - pugsbug workaround.
    # see EvalX.pm re __export_ etal.
    $name = "& <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8727	8903	
==>turn-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HAS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5087	5263	
==>turn-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HAS <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5936	6112	
==>turn-block, then it should be used instead
            unless ( @args ) {
                my %h;
                for ( @$rule ) {
                    next unless ref($_) eq 'HAS <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2600	2693	
==>rovides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2600	2693	
==>rovides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given str <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27262	27348	
==>ATIVE	(REINT_AUTORITATIVE_NOML|REINT_AUTORITATIVE_ML)
 #define REINT_ONCE		(REINT_ONCE_ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3413	3519	
==>eq $self->{prefix} } @INC;

    foreach my $rv ($self->find_extensions($path)) {
        my ($file, $pkg) = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4455	4559	
==>$tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4455	4559	
==>$tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9880	10003	
==>',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9880	10003	
==>',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @na <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9880	10003	
==>',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) {
        my $sig = @na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17490	17600	
==>)

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1054	1150	
==>mple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra dir <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1054	1150	
==>mple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra dir <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5514	5619	
==>d;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5514	5619	
==>d;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!child <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8857	8947	
==>thod fails';

fails_ok { $iFoo->another_singleton_test_on_object } '... instance calling me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14073	14183	
==>ss.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14073	14183	
==>ss.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14073	14183	
==>ss.meta.add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
::Class.meta.add_attribute('@:supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	780	907	
==>ngth; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	780	907	
==>ngth; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	780	907	
==>ngth; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode({$x}.charC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10981	11083	
==>NTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10981	11083	
==>NTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10981	11083	
==>NTIME})
       && 1) {
	warn "Adding PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5831	5929	
==>adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5831	5929	
==>adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8028	8126	
==>adds the values of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1489	1604	
==>import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1489	1604	
==>import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	262	375	
==>---------------------------

my %Cookies;

sub CookiesInit() {
    %Cookies=();
    if (%*ENV{'HTTP_COOKIE'} ne '' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	469	580	
==>s bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_c <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	469	580	
==>s bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14480	14577	
==>d escape %s%s passed through

=item RPe_BADPOS (-24)

POSIX class [:%s:] unknown

=item RPe_OUTPOS <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	144	262	
==>_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9499	9610	
==>/\n*\z/\n/; }
    my $tof = sub { open(F,">$_[0]") or die; print F $_[1];close F;};
    $tof->("deleteme_pil0",$ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30785	30877	
==>ng(Str) of Code $attrs!) returns Relation::Example>

This method is a generic relational oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17836	17943	
==>>{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17836	17943	
==>>{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17836	17943	
==>>{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4237	4363	
==>nd capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4249	4375	
==>nd capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $nam <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1435	1532	
==>rrot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call a Mat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28017	28147	
==>blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->describe,"\n";
print $r->('xxx')->describe,"\n";
print $rx->('abc')->('abc')->desc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12108	12213	
==>)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4751	4856	
==>)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9777	9891	
==>rget, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_no <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15981	16077	
==>nstead of
the document itself.

=item $h.last_modified

This header indicates the date and time a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15981	16077	
==>nstead of
the document itself.

=item $h.last_modified

This header indicates the date and time a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7999	8099	
==>th("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FET <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7999	8099	
==>th("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FET <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6647	6746	
==>@libs, grep /^-[lL]/, @_;
    push @libs, grep /\.(?:a|o(?:bj)?|\Q$Config{so}\E)$/, @_;
    push @li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14293	14379	
==>:Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14293	14379	
==>:Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14293	14379	
==>:Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22027	22133	
==>owing keys:

=over 4

=item regex

A reference to the original string representation of the regex.

=item l <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1416	1508	
==>PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1416	1508	
==>PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	116	207	
==>ir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	116	207	
==>ir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	116	207	
==>ir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Pa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2447	2553	
==>get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servernam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2447	2553	
==>get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servernam <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	949	1044	
==>plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	949	1044	
==>plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1496	1591	
==>plan('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1792	1906	
==>t need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1792	1906	
==>t need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1792	1906	
==>t need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($name =~ /::/ and $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15943	16049	
==>->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${& <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10799	10905	
==>->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2723	2871	
==>stance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2723	2871	
==>stance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2723	2871	
==>stance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5470	5690	
==>ry = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5470	5690	
==>ry = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5470	5690	
==>ry = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35644	35783	
==>= $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35644	35783	
==>= $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35644	35783	
==>= $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1928	2028	
==>n-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1928	2028	
==>n-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1928	2028	
==>n-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23693	23784	
==>minimal in-RAM
storage implementation for the Relation library.

I<TODO: REWRITE THE FOLLOWI <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	67	158	
==>require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	67	158	
==>require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2343	2460	
==>d->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2343	2460	
==>d->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2690	2807	
==>d->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4710	4886	
==>_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4710	4886	
==>_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4710	4886	
==>_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( Pair->new( 
                        '$.key' =>   $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1134	1247	
==>gs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1134	1247	
==>gs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1134	1247	
==>gs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	34	129	
==>..
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	34	129	
==>..
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	34	129	
==>..
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7849	8006	
==>etch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7849	8006	
==>etch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7849	8006	
==>etch( 1 ) );
                    return $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key ) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3971	4077	
==>X wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3971	4077	
==>X wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2225	2326	
==>on->new(
				type => [$from => $to],
				struct_equiv => Blondie::Val->new(
					Blondie::TypeSafe::An <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3971	4070	
==>',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Obje <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24425	24518	
==>tE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::I <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24425	24518	
==>tE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::I <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8616	8734	
==>Constant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8616	8734	
==>Constant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8616	8734	
==>Constant && iarr[i].FETCH() == undefined) {
          // ($a, **undef**, $b) := (1,2,3);
          // (i.e., do nothing <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35052	35149	
==>tion> if the two source headings are
identical.  This method has an alias named C<matching>.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39602	39699	
==>tion> if the two source headings are
identical.  This method has an alias named C<matching>.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39144	39241	
==>tion> if the two source headings are
identical.  This method has an alias named C<matching>.

=ite <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10714	10804	
==>query_string returns Str>

=item B<request_method returns Str>

=item B<content_type return <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10714	10804	
==>query_string returns Str>

=item B<request_method returns Str>

=item B<content_type return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1309	1414	
==>nk and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1309	1414	
==>nk and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1309	1414	
==>nk and not($link eq "js" or $link eq "html");

unless($link) {
  warn "*** Reading input from \"$input[0]\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13117	13293	
==>ue::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13117	13293	
==>ue::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13117	13293	
==>ue::List->from_x( item => undef, count => Inf ) );
                    return $ret;
                }

                #warn "DELETE LIST @list";
                $self->slice( @ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	730	848	
==>g eq 'ARRAY' ) {
        bless $self, 'Test::Harness::Iterator::ARRAY';
        $self->{idx}   = 0;
        $self->{arr <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	473	584	
==>times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %h <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	473	584	
==>times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4126	4250	
==>f;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4126	4250	
==>f;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4126	4250	
==>f;
      @args[-1] := @array.shift;
    }
    $ret = $code($ret, *@args);
  }

  $ret;
}

method min(@self: Code $cmp = &infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3347	3513	
==>able, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3347	3513	
==>able, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3347	3513	
==>able, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	309	405	
==>encoding content_length content_language
    title user_agent server from referer
    www_authent <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	309	405	
==>encoding content_length content_language
    title user_agent server from referer
    www_authent <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5312	5437	
==>to be undef because they are often
            # checked and don't want the checker to have to deal with
            # uniniti <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4823	4945	
==>"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4811	4933	
==>"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6685	6831	
==>t} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6469	6606	
==>t} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15999	16146	
==>MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15999	16146	
==>MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15999	16146	
==>MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            return $_[0] if $co <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	700	868	
==>t;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                e <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	700	868	
==>t;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4390	4493	
==>ion) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3396	3507	
==>f->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3396	3507	
==>f->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3396	3507	
==>f->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4967	5074	
==>tant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4967	5074	
==>tant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4967	5074	
==>tant($sub(\n$arg\n)))" if $native;
      return "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15159	15291	
==>thod label
        symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2416	2522	
==>) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &Rx <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2667	2773	
==>) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &Rx <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2207	2307	
==>d -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2185	2285	
==>d -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{re <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7023	7370	
==>->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1976	2083	
==>l { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1976	2083	
==>l { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1306	1409	
==>e->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler::Rule->compile( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1396	1494	
==>$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1396	1494	
==>$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	38	136	
==>trol;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# TODO - implement the " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1715	1828	
==>y did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1715	1828	
==>y did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1715	1828	
==>y did it print an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	228	334	
==>t = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    r <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	228	334	
==>t = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25597	25694	
==>, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s>

If not all tests were successful <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36253	36401	
==>m_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36253	36401	
==>m_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36253	36401	
==>m_list( @tail );
            ( $len_tail, @tail ) = $body->_pop_n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	888	991	
==>mP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	888	991	
==>mP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	888	991	
==>mP5;
BEGIN {PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13015	13127	
==>::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13015	13127	
==>::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13015	13127	
==>::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21802	21896	
==>tr::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryM <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21802	21896	
==>tr::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryM <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21802	21896	
==>tr::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Internals::hSetBinaryM <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21502	21597	
==>er package or program which uses yours may wish to
override some of your messages, showing other <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21502	21597	
==>er package or program which uses yours may wish to
override some of your messages, showing other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	98	201	
==>nboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	98	201	
==>nboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	98	201	
==>nboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Value::Str
# Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1592	1747	
==>ss $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1592	1747	
==>ss $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1592	1747	
==>ss $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = @_;
            bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	354	476	
==>/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promote <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	354	476	
==>/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promote <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	354	476	
==>/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   bound scalars tieable.
#   ._cell was promote <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2699	2862	
==>}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2699	2862	
==>}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3556	3650	
==>Config
) where

import qualified Data.Map as Map
import qualified Pugs.Version

config :: Map.M <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1923	2018	
==>infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤ <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1923	2018	
==>infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25538	25635	
==>t
represents (or gives the name of a condition being reported, if it is used
as an exception paylo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25538	25635	
==>t
represents (or gives the name of a condition being reported, if it is used
as an exception paylo <==
3	/Users/nnunley/pugs/util/package-osx.pl	2916	3045	
==>run_pge.pir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/local/l <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11506	11630	
==>$.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    } <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11506	11630	
==>$.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14880	14989	
==>ed_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18357	18466	
==>ed_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17773	17882	
==>ed_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # sort <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	421	532	
==>onfig{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	prin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9579	9673	
==>erset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9579	9673	
==>erset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	630	735	
==>ap {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	630	735	
==>ap {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	630	735	
==>ap {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8508	8631	
==>i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8508	8631	
==>i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8508	8631	
==>i].BINDTO = arr[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	318	432	
==>,
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	318	432	
==>,
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	318	432	
==>,
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1015	1154	
==>\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1026	1165	
==>\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23655	23765	
==>x:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' affects the rest of this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	89	189	
==>ess keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	89	189	
==>ess keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	89	189	
==>ess keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixup } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27827	27925	
==>optionally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32379	32477	
==>optionally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31471	31569	
==>optionally a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15523	15633	
==>->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just example <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15523	15633	
==>->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just example <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15523	15633	
==>->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just example <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3411	3541	
==>?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3399	3529	
==>?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$qua <==
3	/Users/nnunley/pugs/util/importgraph.pl	2159	2248	
==>+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^Pugs\.Embed\.\w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4854	4998	
==>e{$initchar} )
      {
        if ( not $isnegated and (length $initchar < 2))
        {
          goto term_literal;
        }
        $matchObj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10975	11090	
==>er {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10969	11084	
==>er {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2880	3049	
==>reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self->report_test(
                    $::TestBuil <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22914	23011	
==>s

One of the main distinctions of this approach over similar packages is that
text is always look <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22914	23011	
==>s

One of the main distinctions of this approach over similar packages is that
text is always look <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14580	14681	
==>bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14580	14681	
==>bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does n <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7393	7493	
==>le::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive let expr a generic <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8188	8363	
==>" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5400	5502	
==>tures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5400	5502	
==>tures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4601	4711	
==>1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4794	4904	
==>1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2629	2733	
==>e run - it must be the
first child of an App for that to happen.

Inherits Unit.

=item App

An App makes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	863	981	
==>) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	872	990	
==>) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9483	9594	
==>verse

 multi Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %resu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8004	8109	
==>ype\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8004	8109	
==>ype\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8004	8109	
==>ype\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11900	12044	
==>-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod termin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11900	12044	
==>-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod termin <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	762	859	
==>ake Pugs a system-wide GHC package
    for use with other Haskell programs, type '$Config{make} re <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1057	1150	
==>mpiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.val <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1057	1150	
==>mpiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	341	468	
==>_"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	341	468	
==>_"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	341	468	
==>_"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot change an attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8636	8851	
==>m[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8636	8851	
==>m[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8636	8851	
==>m[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firstkey;
                        while ( defined $key ) {
                            my $tmp = $param[0]->fetch( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3981	4082	
==>pos, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $matchO <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2766	2860	
==>ers, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.memb <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2766	2860	
==>ers, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.memb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18262	18354	
==><+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18262	18354	
==><+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18262	18354	
==><+^> ($xx0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$x <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6388	6620	
==>: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yiel <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6388	6620	
==>: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yiel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11822	11934	
==>$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    my $code = match::str( match::get( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6420	6541	
==>things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6420	6541	
==>things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6420	6541	
==>things);
  }
}

sub infix:<..>(Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1853	2049	
==>.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1853	2049	
==>.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5278	5372	
==>t a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but ma <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5278	5372	
==>t a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6802	6896	
==>t a test has passed or failed, depending on C<$passed> with an
optional C<$description>, but ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	959	1067	
==>$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	959	1067	
==>$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	959	1067	
==>$ignore,
    );

if ( $ENV{PUGS_SAFEMODE} ) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2175	2273	
==>ta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2175	2273	
==>ta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11707	11820	
==>d('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11707	11820	
==>d('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11707	11820	
==>d('remove_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	864	966	
==>29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	864	966	
==>29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	864	966	
==>29
# * Full support for lazy splicing and sparse array
# * Added support for store() past the end of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	260	367	
==>, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	260	367	
==>, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	260	367	
==>, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_param;

    for(@$self) {
      $_->is_first_slurpy++ if <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2228	2351	
==>ns > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $token <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2228	2351	
==>ns > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $token <==
3	/Users/nnunley/pugs/util/package-osx.pl	2181	2271	
==>erl5/site_perl/PIL /Library/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2JS /L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10462	10641	
==>,
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10462	10641	
==>,
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10462	10641	
==>,
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOAD.t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	462	565	
==>objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	462	565	
==>objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	462	565	
==>objects
#
# 2005-08-14
# * added functions clone(), elems(), buckets()


# TODO - warn for odd number of <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	749	861	
==>1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    u <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	749	861	
==>1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    u <==
3	/Users/nnunley/pugs/util/grokprims.pl	214	322	
==>right => 'right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list infix',
    ch <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14704	14808	
==>the case of m'pattern'.
  Which might come in hand when doing p6 regex.



Notes on struct regex:

  type <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21192	21290	
==>= @{$test->{failed}};
            (my $txt, $canon) = _canonfailed($test->{max},$test->{skipped},@{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17162	17258	
==>The natural language(s) of the intended audience for the message
content.  The value is one or mo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17162	17258	
==>The natural language(s) of the intended audience for the message
content.  The value is one or mo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11238	11369	
==>0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14715	14846	
==>0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14023	14154	
==>0) {
        # Second source is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard ca <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1386	1509	
==>mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but once it has a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4864	4986	
==>mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once it has a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3794	3916	
==>mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but once it has a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	704	795	
==>value pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	704	795	
==>value pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	704	795	
==>value pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6.language <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7465	7573	
==>ty($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7465	7573	
==>ty($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	176	281	
==>ble.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @tests = `cat re_test <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1346	1520	
==>Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$_[1]} = $_[2] }

    package AST;
    use base 'Unit';

    package Sym;
    use base 'Unit';

    package Pa <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1081	1179	
==>cted by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designe <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1081	1179	
==>cted by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2831	2955	
==>> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2831	2955	
==>> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7119	7237	
==>lushy_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	420	531	
==>: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	420	531	
==>: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	420	531	
==>: *$args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5375	5477	
==>) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5375	5477	
==>) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5375	5477	
==>) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4671	4784	
==>that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4511	4620	
==>that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compil <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26431	26528	
==>f you're sure the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $parser->objec <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19204	19298	
==>autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true valu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19204	19298	
==>autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	262	395	
==>ew();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	262	395	
==>ew();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	262	395	
==>ew();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15404	15571	
==>hift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15404	15571	
==>hift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15404	15571	
==>hift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10153	10288	
==>es.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cook <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10153	10288	
==>es.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cook <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3896	4013	
==>or ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3896	4013	
==>or ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            war <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3896	4013	
==>or ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) {
            war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18190	18398	
==>nboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18190	18398	
==>nboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18190	18398	
==>nboxed;
                    #use Data::Dumper; $Data::Dumper::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	841	947	
==>ss');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	841	947	
==>ss');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	841	947	
==>ss');

  # All (blessed) objects in $beat now belong to package
  # Beatless.

=head1 DESCRIPTION

Class::R <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2600	2702	
==>$self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2600	2702	
==>$self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3379	3485	
==>}

=head2 $bool = $repo->add_package(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18469	18563	
==>n create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18469	18563	
==>n create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1451	1552	
==>:ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA, __PACKAGE__;

  sub new {
    my ($class, $rx, $t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16215	16302	
==>h@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudio <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16273	16360	
==>h@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	307	439	
==>warn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24317	24416	
==>ingle member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28869	28968	
==>ingle member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	279	397	
==>()}

our %hash;

sub pair {
    my $class = shift;
    return $class->no_match unless $_[0];
    #print "match pair $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6232	6334	
==>debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6232	6334	
==>debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $even <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2919	3054	
==>is error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2919	3054	
==>is error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1539	1667	
==>e $class.subscriptions;
            #}
        }
    }
}

role Class::Events::Subscriber {
    use Set;
    has Set $.subscriptio <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16736	16858	
==>al pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if has_g <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1520	1608	
==><information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1520	1608	
==><information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	685	791	
==>singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * cr <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	685	791	
==>singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * cr <==
3	/Users/nnunley/pugs/util/grokprims.pl	752	840	
==>assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UTF-8" ?><html><b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14104	14202	
==>l::Node Class

A Node object is a simple container which stores data to be used or
displayed by you <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14104	14202	
==>l::Node Class

A Node object is a simple container which stores data to be used or
displayed by you <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8702	8833	
==>> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8702	8833	
==>> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8702	8833	
==>> sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2182	2291	
==>r
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2182	2291	
==>r
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2182	2291	
==>r
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - return lvalue; Proxy <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2560	2688	
==>psrc, to => $builddir )
#             or error( "Could not copy sources to '$builddir'" ), return;
#     }
# 
#     my $cwd = JIB <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19149	19273	
==>rens;            /* number of parentheses */

=head2 The match result:

  I32 sublen;             /* Length of string pointed <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35645	35745	
==>ast one off
and keep it normal, but the others we will make to be look-aheads.  To
make an object, we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	744	851	
==>eave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	744	851	
==>eave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	744	851	
==>eave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33057	33156	
==>ered list of one or more elements where
each element is a Template module Set Name.  When we have to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33057	33156	
==>ered list of one or more elements where
each element is a Template module Set Name.  When we have to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9730	9830	
==>push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9730	9830	
==>push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9730	9830	
==>push(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@n <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3669	3768	
==>H.  The first thing
needed is a scope.t test file.

=item Memory

One sees both segfaults and memory <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8601	8696	
==>en items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Retu <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8601	8696	
==>en items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Retu <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6322	6463	
==>\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     any     saf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6112	6221	
==>= $operator->emit_yapp;
    #print $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local variab <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1735	1828	
==>s}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iin <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1735	1828	
==>s}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3812	3913	
==>asses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3812	3913	
==>asses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3812	3913	
==>asses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2683	2812	
==>f $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2683	2812	
==>f $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2683	2812	
==>f $class_name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5412	5505	
==>e "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5412	5505	
==>e "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5412	5505	
==>e "utf-8", "@_\n"; });
  $jssm->function_set("printWithoutNewline", sub { print encode "utf-8" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1081	1173	
==>l5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1081	1173	
==>l5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1081	1173	
==>l5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use Prelude::JS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21165	21271	
==>ive an additional argument that says whether
they're being turned on or off.  Also, if the flag handler ret <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp3.pl	1	101	
==>=interp3.pl - Interpolation in Perl 6
sub hallo {
	"Hallo, @_[0]!" # $_ würde aber auch gehen!
}

sa <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11247	11342	
==>elude weren't compiled into the code #print "Compiled AST: " . Dumper->reduce($c);

package Redu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7069	7185	
==>@rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7069	7185	
==>@rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7069	7185	
==>@rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2624	2764	
==>retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2624	2764	
==>retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2624	2764	
==>retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    my $arity = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2016	2111	
==>nfix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2016	2111	
==>nfix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2016	2111	
==>nfix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7774	7874	
==>sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7774	7874	
==>sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7774	7874	
==>sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3954	4043	
==>:opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3954	4043	
==>:opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3954	4043	
==>:opaque_instance_class($self)->dispatcher(':ascendant');
    while (my $method = ::WALKMET <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2367	2499	
==>e_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2367	2499	
==>e_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	74	186	
==>n/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	74	186	
==>n/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	74	186	
==>n/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaMo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	624	731	
==>_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	394	501	
==>_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	394	501	
==>_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4080	4201	
==>aque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4080	4201	
==>aque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4080	4201	
==>aque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1125	1245	
==>attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1125	1245	
==>attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1125	1245	
==>attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9114	9293	
==>body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12591	12770	
==>body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	244	344	
==>.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4782	4899	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4975	5092	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8460	8565	
==>.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8460	8565	
==>.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8460	8565	
==>.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4056	4136	
==>[\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:1 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4056	4136	
==>[\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:1 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16272	16378	
==>" ]

.sub "p6rule"
    .param pmc mob
    .local pmc optable
    optable = find_global "PGE::P6Rule", "$opt <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15823	15919	
==>as. All rights reserved.

This library is free software; you can redistribute it and/or
modify it <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15823	15919	
==>as. All rights reserved.

This library is free software; you can redistribute it and/or
modify it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	381	487	
==>return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	381	487	
==>return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	381	487	
==>return(subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6150	6245	
==>on (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6150	6245	
==>on (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6150	6245	
==>on (str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline(' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	531	678	
==>eck->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Repository->new( dir => $dir )
            or err <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2074	2178	
==>art, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unles <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2074	2178	
==>art, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	673	791	
==>} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:< <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3111	3220	
==>'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'No <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3111	3220	
==>'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11626	11818	
==>ms = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11626	11818	
==>ms = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11626	11818	
==>ms = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10849	10955	
==>_attribute;
    method get_attribute_list;            
}

------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10849	10955	
==>_attribute;
    method get_attribute_list;            
}

------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10849	10955	
==>_attribute;
    method get_attribute_list;            
}

------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6980	7137	
==>$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            ne <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6980	7137	
==>$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            ne <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1620	1735	
==>ues) - 1; # thunk + params

    $self->enter_scope;

    my $reduced = $self->generic_reduce($app);

    my $receive <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2729	2821	
==>p>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2729	2821	
==>p>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2729	2821	
==>p>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::Hack::sort(% <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24921	25040	
==>f = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub new {
    my ($class <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21245	21338	
==>ing the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21245	21338	
==>ing the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1258	1373	
==>cking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1258	1373	
==>cking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1258	1373	
==>cking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    my $js;
    $js .= <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1874	1986	
==>me() first";
        $file = join('/', 'lib', split(/-/, $name)) . '.pm';
        $file =~ s{.*/}{} unless -e $fi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4505	4633	
==>e match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$mat <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4505	4633	
==>e match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$mat <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1068	1180	
==>shift;
    my $perl_version = shift
      or die "Must pass Perl version (5 or 6)";
    my $base = $self->{_top}{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2129	2226	
==>ao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the sa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2129	2226	
==>ao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the sa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2129	2226	
==>ao.orgE<gt>.

This program is free software; you can redistribute it and/or modify
it under the sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32142	32253	
==>arn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32142	32253	
==>arn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32142	32253	
==>arn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6536	6653	
==>RO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6536	6653	
==>RO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6536	6653	
==>RO') = [];
            ::opaque_instance_class($self)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9078	9203	
==>{};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12934	13053	
==>{};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12934	13053	
==>{};
}

# see commit #9783 for an alternate implementation
sub hash {
    my %hash = %{shift()};
    #print "HASH: @{[ %h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	495	596	
==>rgs =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	495	596	
==>rgs =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	495	596	
==>rgs =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$name' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5434	5542	
==>map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24270	24363	
==>or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24270	24363	
==>or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1328	1448	
==>g } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1328	1448	
==>g } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2816	2925	
==>de) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unk <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2816	2925	
==>de) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unk <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2816	2925	
==>de) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Language \"$lang\" unk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	89	195	
==>ass -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	89	195	
==>ass -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	89	195	
==>ass -- placed here so ::create_class can refer to it
$::Class = undef;

sub ::create_class (%) {
    my (%a <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5101	5221	
==>exe} ) );

    # This local subroutine returns the version of ghc passed to it.

    my $test_ghc_ver = sub { 
        (` <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17050	17151	
==>.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a S <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17050	17151	
==>.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14702	14810	
==>Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14702	14810	
==>Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14702	14810	
==>Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (define <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2193	2287	
==>e || $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $se <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1299	1392	
==>e || $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23385	23473	
==>B1 = Bx, E1 = Ex).

%-------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39003	39098	
==>fail if the heading of <$other>
is not a subset of the heading of the invocant Relation::Example <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7894	8038	
==>f ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7894	8038	
==>f ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7894	8038	
==>f ($type eq 'Junction') {
        my $type = shift @arg;
        my $j = Junction->new;
        $j->type( $type );    # unboxed str
        my @v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1473	1581	
==>rst_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1473	1581	
==>rst_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1473	1581	
==>rst_run_done = 0;

  until($first_run_done ?? $cond() !! $first_run_done++) { $body() }
}

# XXX: Handle redo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4598	4751	
==>INKING unless $link_this;

                my @bins;
                print "Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3837	3963	
==>ere a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the ou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3849	3975	
==>ere a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the ou <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18434	18572	
==>ters must not be treated as rules but as constants.  The
default is no longer ' ' since that would be interpreted as a constant.

# sprintf <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9858	9990	
==>= _pp_depends( $$entry );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7598	7707	
==>{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7598	7707	
==>{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4086	4197	
==>shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4086	4197	
==>shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4086	4197	
==>shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%param, $class;
}

sub DESTROY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9548	9683	
==>ngth($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9548	9683	
==>ngth($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9548	9683	
==>ngth($str) and $str !~ /::/) {
    $str = 
      substr($str, 0, 1) .
      "main::" .
      substr($str, 1);
  }

  # Finally, escape s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1109	1234	
==>_accessors( qw[repository] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $sel <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10940	11032	
==>"universal set".
Otherwise the program will emit warnings during the execution of some method <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10940	11032	
==>"universal set".
Otherwise the program will emit warnings during the execution of some method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	767	870	
==>>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	767	870	
==>>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	767	870	
==>>   ($a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34833	34932	
==>nd that match any tuples of C<$other> along
their common attributes.  This method will fail if the h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39383	39482	
==>nd that match any tuples of C<$other> along
their common attributes.  This method will fail if the h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38916	39015	
==>nd that match any tuples of C<$other> along
their common attributes.  This method will fail if the h <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7662	7816	
==>ostfix:<!>' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                App->new(
                    Sym->new('&c <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	793	905	
==>spatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2628	2729	
==>spatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34102	34202	
==>have
an identical header to the invocant relation.  This method has aliases
named C<minus> and C<exce <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38652	38752	
==>have
an identical header to the invocant relation.  This method has aliases
named C<minus> and C<exce <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38113	38213	
==>have
an identical header to the invocant relation.  This method has aliases
named C<minus> and C<exce <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2325	2428	
==>(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2303	2406	
==>(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdi <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6791	6886	
==>GHC 6.4.1 or above from path (we have $ghc_version).
*** Please install a newer version from htt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	506	667	
==>arCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	506	667	
==>arCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	506	667	
==>arCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res = \"\";

      fo <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	491	601	
==>mp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	491	601	
==>mp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	51	151	
==>s, Sets and other collections
# like Bags, ordered hashes and so on.

role Map--Perl6 [ Role ?Key = : <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15939	16043	
==>_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0]}) } <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	655	748	
==>skell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|h <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	655	748	
==>skell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10923	11056	
==>> '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10923	11056	
==>> '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10923	11056	
==>> '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

::Class <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6414	6510	
==>fo = \$PIL::PIL1CPerl5::NodesInfo::node_named{'$name'};
  sub info { \$info } }
sub name { '$name <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6233	6328	
==>ndler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6233	6328	
==>ndler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3269	3371	
==>| submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3269	3371	
==>| submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	13	144	
==>6::Core::Type;

package type;

use strict;
use warnings;

## Define the basic interface for all types

# conversion to native
sub to <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7975	8098	
==>s"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7975	8098	
==>s"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4130	4266	
==>L_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4130	4266	
==>L_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LV <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	980	1116	
==>L_Stmt';

node_h 'PIL_Expr',             'PRawName', 
  'pRawName' ,'VarName';
node_h 'PIL_Expr',             'PExp', 
  'pLV'   ,'PIL_LV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37044	37164	
==>eturn if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37044	37164	
==>eturn if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37044	37164	
==>eturn if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3427	3525	
==>ly appended to it; appending can create precisely the sort of weak 
keying that can be exploited by <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3427	3525	
==>ly appended to it; appending can create precisely the sort of weak 
keying that can be exploited by <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2161	2283	
==>mpile $exename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't build test exec <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3604	3714	
==>( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3604	3714	
==>( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1439	1562	
==>ule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1439	1562	
==>ule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} } <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	9	101	
==>ration::Gregorian is Duration;

use Date::Format::ISO8601;

our $iso8601_duration_re_anchored <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18266	18393	
==>if it is possible to use the regexp
struct as a new api into the guts of the perl core, to permit the use
of alternate regexp en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15143	15248	
==>$text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original cont <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15143	15248	
==>$text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2286	2422	
==>to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2286	2422	
==>to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2286	2422	
==>to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$;$) {
        my $instance = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5700	5801	
==>method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5700	5801	
==>method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5700	5801	
==>method type: $method_type => params: [" . (join ", " => @params) . ']' if $DEBUG;
    return ($method_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11270	11395	
==>identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14747	14872	
==>identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14055	14180	
==>identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross-join.
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	139	251	
==>shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	139	251	
==>shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	war <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	139	251	
==>shift;

    require Devel::Symdump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5246	5393	
==>ll')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5246	5393	
==>ll')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5246	5393	
==>ll')->store( $value, @_ );
            },
            'defined' => sub {
                Bit->new( '$.unboxed' => defined _('$:cell')->fetch ? 1 : 0 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9141	9310	
==>:= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12618	12787	
==>:= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10030	10135	
==>}
NODE TypeAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5063	5175	
==>"utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5063	5175	
==>"utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5063	5175	
==>"utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2730	2887	
==>( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2640	2792	
==>( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2629	2729	
==>ed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2629	2729	
==>ed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1468	1567	
==>e strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1468	1567	
==>e strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1468	1567	
==>e strict;

use Perl6::MetaModel;
use Perl6::Value;
use Carp;

my $class_description = '-0.0.1-cpan:F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11093	11183	
==>t-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11093	11183	
==>t-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6') <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11093	11183	
==>t-perl5 and make smoke-perl5.";
	unshift(@incdirs,File::Spec->catfile($FindBin::Bin,'lib6') <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4400	4571	
==>$match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                named => { $label <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1134	1228	
==>orresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1134	1228	
==>orresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	419	526	
==>o getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	419	526	
==>o getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28917	29012	
==>onsume an ampersand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
are <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6898	7150	
==>lock>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(1000000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6898	7150	
==>lock>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(1000000 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6898	7150	
==>lock>",
                                        $_[0]{'pParams'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(1000000 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2115	2240	
==>nt <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2115	2240	
==>nt <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1197	1339	
==>-cz .] )   and die $?;
        system( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29191	29311	
==>tr {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template fil <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29191	29311	
==>tr {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template fil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3581	3677	
==>_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3581	3677	
==>_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	431	527	
==>_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL_Stmts <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5717	5827	
==>_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5717	5827	
==>_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5717	5827	
==>_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	798	946	
==>sage =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26917	27019	
==>t is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my Loca <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26917	27019	
==>t is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my Loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2042	2187	
==>ift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2042	2187	
==>ift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2042	2187	
==>ift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7569	7665	
==>tem ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB rever <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7569	7665	
==>tem ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB rever <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7569	7665	
==>tem ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB rever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1340	1443	
==>tr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1340	1443	
==>tr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1340	1443	
==>tr_name = $i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3394	3482	
==>e_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4088	4176	
==>e_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5296	5384	
==>e_attrs($Class)->{'$:superclass'} = $Object;

## ---------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1276	1377	
==>self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1276	1377	
==>self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1276	1377	
==>self: *@keys) is rw {
  die "Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8888	8985	
==>ix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8888	8985	
==>ix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8888	8985	
==>ix:<~^> ($xx) {...};
MULTI SUB prefix:<?^> ($xx) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23638	23762	
==>fun => ide("tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2394	2506	
==>code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_erro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2394	2506	
==>code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_erro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2171	2290	
==>], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2171	2290	
==>], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	655	750	
==>e on any type, boxed or unboxed.

These objects are what you get from C<::SomeClass> references. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8484	8628	
==>h was stopped by a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8200	8341	
==>h was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4356	4481	
==>& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4356	4481	
==>& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4356	4481	
==>& ref($dispatcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";        
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7961	8070	
==>nless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7961	8070	
==>nless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7961	8070	
==>nless $class_name;
    return 1 if $class_name eq 'Role';
    return 0;
}));

# TODO ... implement the package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11818	11932	
==>ess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11818	11932	
==>ess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11818	11932	
==>ess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16826	16923	
==>eters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16826	16923	
==>eters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16826	16923	
==>eters is an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5795	5909	
==>>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5795	5909	
==>>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5795	5909	
==>>{attributes}) {
            foreach my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5499	5630	
==>on)) {
                $details->{$piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $totals->{deta <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1560	1667	
==>URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    St <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1560	1667	
==>URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21909	22029	
==>l->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21909	22029	
==>l->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21909	22029	
==>l->($::Object);
        push @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DE <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10282	10379	
==>uments are provided and that they are of the correct
container type (eg, hash vs array).  The defe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10282	10379	
==>uments are provided and that they are of the correct
container type (eg, hash vs array).  The defe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32787	32881	
==>s well.

=head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, but that is omitted <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23422	23545	
==>$S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19843	19966	
==>$S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4505	4615	
==>ntext;

		warn "Unifying paramter types with thunk prototype in $app";

		my $i; my $unified_app = $rapp->fmap( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3875	3983	
==>> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3875	3983	
==>> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3875	3983	
==>> then?
#   Because the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $e <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	55	151	
==>returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	55	151	
==>returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19442	19537	
==>es weren't closing properly in the tree.  Fixed.

Standard escapes (C<\a>, C<\e>, etc.) were bei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8642	8741	
==>y_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8642	8741	
==>y_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8642	8741	
==>y_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::add_inden <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9531	9629	
==>de a Perl module into blocks. This code divides a module based on
# lines that use/no a Module::Com <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9531	9629	
==>de a Perl module into blocks. This code divides a module based on
# lines that use/no a Module::Com <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	267	355	
==>ift->admin->include_deps(@_) };
sub auto_include { +shift->admin->auto_include(@_) };
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10408	10538	
==>rred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10408	10538	
==>rred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10408	10538	
==>rred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AUTOLOA <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1410	1560	
==>ath manipulation tools.. this is too much work :(
#     
#     ### clean out the builddir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10314	10412	
==>or more header fields.  The header field
name ($field) is not case sensitive.  To make the life eas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10314	10412	
==>or more header fields.  The header field
name ($field) is not case sensitive.  To make the life eas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3886	4020	
==>)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $ty <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	484	609	
==>e match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position o <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	484	609	
==>e match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3507	3647	
==>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1865	2005	
==>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2645	2785	
==>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1649	1775	
==>e  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven' <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1649	1775	
==>e  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1586	1691	
==>->new();
}

sub slice {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($start_index) && $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1594	1690	
==>f->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1594	1690	
==>f->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1594	1690	
==>f->{pVarName}) {
    ($self->{pVarName}{CC} and die) or $self->{pVarName}{CC} = $self->{CC} if $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16547	16649	
==>bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  retur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16547	16649	
==>bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  retur <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3546	3762	
==>GE_BINARY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Binary') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	107	224	
==>ser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> bec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	105	215	
==>ser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> bec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6065	6194	
==>0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6065	6194	
==>0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6065	6194	
==>0..(@a.end, @b.end).max -> $i {
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	200	316	
==>balScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	200	316	
==>balScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	200	316	
==>balScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    v <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1768	1881	
==>line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is e <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1768	1881	
==>line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1848	1961	
==>line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13542	13717	
==>this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13542	13717	
==>this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13542	13717	
==>this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $l <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4427	4567	
==>sh @bins, $script;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ $pkg } = { bin = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	394	500	
==>{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1121	1224	
==>{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	337	440	
==>pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	337	440	
==>pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	337	440	
==>pVarName => PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1758	1976	
==>ush @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @bo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5355	5501	
==>tart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.ci <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5355	5501	
==>tart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1021	1115	
==>}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1021	1115	
==>}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1021	1115	
==>}   = rx_core_({perl5=>1},'^(\d+)x$','/','/');
    %rx_helper_cache{'re_nth'} = rx_core_({perl5 <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	912	1035	
==>'s $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2.2

## X <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	173	296	
==>qw(Module::Install::Base);
$VERSION = '0.02';
use strict;
use File::Basename ();

sub prompt_script {
    my ($self, $script <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15392	15490	
==>ts that determines the
minimum length of a string that would be matched by the regex; provides
a fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15713	15952	
==>_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15713	15952	
==>_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15713	15952	
==>_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.valu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5351	5451	
==>attributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5351	5451	
==>attributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7548	7648	
==>attributes.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14612	14711	
==>...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14612	14711	
==>...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB I <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14612	14711	
==>...};
MULTI SUB IO::Dir::closedir ($xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB I <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6177	6275	
==>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users acc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6177	6275	
==>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users acc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27356	27450	
==>GNORE_EXITCODE>

Makes harness ignore the exit status of child processes when defined.

=item C <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25277	25389	
==>10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjuncti <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14465	14564	
==>E PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This mo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14523	14622	
==>E PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3608	3705	
==>.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3608	3705	
==>.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3608	3705	
==>.pop();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3689	3781	
==>educe(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3689	3781	
==>educe(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3689	3781	
==>educe(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10242	10378	
==>autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10242	10378	
==>autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29585	29691	
==>een consumed.

If you created a handle for '&&' without a predecessor, you would have
to add it explicity t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19593	19822	
==>ray->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19593	19822	
==>ray->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19593	19822	
==>ray->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2754	2862	
==>rray = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2754	2862	
==>rray = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2754	2862	
==>rray = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Constant(array));
    } else <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12497	12643	
==>FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $c = $_[0];
        FAIL() if not &_is_found <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3959	4063	
==>eck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILB <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3959	4063	
==>eck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15481	15656	
==>0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15481	15656	
==>0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15481	15656	
==>0;
                my $popped = $array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2820	2915	
==>elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2820	2915	
==>elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2820	2915	
==>elsif (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7896	8015	
==>ted.

What is returned at each element of the iteration varies with function.
C<values> returns the value of the associa <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	46	140	
==>clude_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_funct <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	46	140	
==>clude_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1288	1402	
==>:Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1288	1402	
==>:Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1288	1402	
==>:Rebless walks scalar, array, and hash references. It uses
Scalar::Util::reftype to discover how to walk blessed ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	991	1099	
==>ass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	991	1099	
==>ass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	991	1099	
==>ass.
    # In as_js0, appropriate "var %s;" declarations are emitted.
    # Then, in as_js1, possible named a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1098	1208	
==>emented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1098	1208	
==>emented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1098	1208	
==>emented here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	873	966	
==>cted as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as anoth <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	873	966	
==>cted as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as anoth <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	241	356	
==>ull;

        method bind ( Code &fun, Array of Str @args ) {
            $fun.assuming( *self.parse_arguments( @arg <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	680	1090	
==>ributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=en <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	680	1090	
==>ributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=en <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4353	4448	
==>lenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is exp <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4353	4448	
==>lenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is exp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13848	13957	
==>optimizing of the order that source relations are
    # combined, so to try and make the least expensive kinds <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17325	17434	
==>optimizing of the order that source relations are
    # combined, so to try and make the least expensive kinds <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16705	16814	
==>optimizing of the order that source relations are
    # combined, so to try and make the least expensive kinds <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4391	4496	
==>js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4391	4496	
==>js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4391	4496	
==>js}, @args);
  diag "@cmd";

  my $pid = open2 my($read_fh), my($write_fh), @cmd
    or die "Couldn't open <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2015	2128	
==>mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2015	2128	
==>mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2015	2128	
==>mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7045	7158	
==>self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7045	7158	
==>self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3634	3787	
==>) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3774	3927	
==>) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5280	5415	
==>my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5292	5427	
==>my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4905	5039	
==>k) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one probably <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4905	5039	
==>k) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one probably <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19366	19641	
==>d the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19366	19641	
==>d the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19366	19641	
==>d the slice from the original arrays
                                $other = $other->tied->unbind;
                            }
                        }
                        else {
                            my $tmp = Array->new();
                            $tmp->pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1636	1745	
==>ew PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1636	1745	
==>ew PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1636	1745	
==>ew PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub infix:<===>($a, $b) is primitive { JS::inline('ne <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5258	5380	
==>utes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            documen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5258	5380	
==>utes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            documen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	498	596	
==>--------------------------------------------------------------------
## Eigenclass

$::EigenClass = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	498	596	
==>--------------------------------------------------------------------
## Eigenclass

$::EigenClass = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	498	596	
==>--------------------------------------------------------------------
## Eigenclass

$::EigenClass = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16878	16988	
==>attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16878	16988	
==>attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16878	16988	
==>attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2722	2847	
==>ding Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2939	3064	
==>ding Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $file <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1563	1656	
==>w.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline->bind(C => $c_code); # marble losing routine
		\ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	632	738	
==>x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# F <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	632	738	
==>x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# F <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5216	5321	
==>l_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$ <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3402	3496	
==>DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration files
with as <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3402	3496	
==>DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration files
with as <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2458	2556	
==>ry { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2458	2556	
==>ry { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2458	2556	
==>ry { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Context.ItemAny]) } catch(err) {
      // Set $! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2595	2692	
==>XX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2595	2692	
==>XX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2595	2692	
==>XX XXX ("luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5985	6084	
==>{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5985	6084	
==>{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5985	6084	
==>{tpParam}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5177	5290	
==>d_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5177	5290	
==>d_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    m <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13146	13262	
==>t3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> test case <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15355	15448	
==>ould behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporates a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15355	15448	
==>ould behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporates a <==
3	/Users/nnunley/pugs/util/drift.pl	1001	1108	
==>eader
@program[0..2] = @program[2,0,1];
my @scary_header = split /^/m, << "SCARY";




{- 
-- WARNING WARNIN <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5671	5766	
==>$.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5671	5766	
==>$.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.spa <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8784	8890	
==>return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  return ( $matchObj );

  ternary_error:
  $matchObjPo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11934	12030	
==>ader() method, the field name ($field) is not case
sensitive and '_' can be used as a replacement <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11934	12030	
==>ader() method, the field name ($field) is not case
sensitive and '_' can be used as a replacement <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3937	4047	
==>butes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3937	4047	
==>butes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model:: <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	930	1020	
==>listing, run <tt>perl gen.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for the automati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	810	917	
==>OPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	810	917	
==>OPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	810	917	
==>OPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREF <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1602	1706	
==>tatement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1602	1706	
==>tatement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1602	1706	
==>tatement_control:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19074	19168	
==>ng>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic fr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19074	19168	
==>ng>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic fr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7020	7114	
==>reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $self->{defs} }, "$type b_main <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25912	26049	
==>thod label
        symbol->new('subclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23077	23175	
==>S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19498	19596	
==>S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4811	4949	
==>_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4811	4949	
==>_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4811	4949	
==>_HAS_STARTED = 1;
  local $CUR_LEXSCOPE_ID        = 1;
  local $CORO_ID                = 1;
  local $LEXSCOPE_PREFIX        = "";
  local % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	453	559	
==>w ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	453	559	
==>w ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	453	559	
==>w ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * several fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1360	1474	
==>:$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1360	1474	
==>:$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1360	1474	
==>:$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    return "$cc(new P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2560	2680	
==>} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_rege <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2753	2873	
==>} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_rege <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2866	2961	
==>return $S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	847	996	
==>so8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3247	3374	
==>p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3247	3374	
==>p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3247	3374	
==>p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    }
    #warn "INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2594	2735	
==>tedly succeeded"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40170	40265	
==>tion, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40170	40265	
==>tion, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4805	4904	
==>t preseves something
of the original name. So if you had an object blessed into "MyClass",
it will n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4805	4904	
==>t preseves something
of the original name. So if you had an object blessed into "MyClass",
it will n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4805	4904	
==>t preseves something
of the original name. So if you had an object blessed into "MyClass",
it will n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7444	7548	
==>B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7444	7548	
==>B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7444	7548	
==>B => $A }, reverse @args;
}

sub prefix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @ <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2452	2562	
==>ng all the roots of a
function (not that Newton's method is ever really good at that).

=head2 The Defaults

No <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3984	4077	
==>:?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3984	4077	
==>:?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3637	3765	
==>5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3637	3765	
==>5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3637	3765	
==>5, only available in --run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9949	10055	
==>erence.  When called in scalar
context, it returns the next node:

  while (my $node = $iter->()) {
    # $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	534	625	
==>the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	534	625	
==>the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1160	1309	
==>_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1160	1309	
==>_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1160	1309	
==>_scope;
        }
        elsif ($token eq 'has') {
            my $current_class = $self->env->get('current_class');
            $self->_discard_whit <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11135	11224	
==><header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11135	11224	
==><header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36520	36612	
==>le) Message object as its positional
parameter $message and returns an equivalent human reada <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36520	36612	
==>le) Message object as its positional
parameter $message and returns an equivalent human reada <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3796	3903	
==>we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3796	3903	
==>we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3796	3903	
==>we'd name the
# parameters $a and $b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1872	1963	
==>tta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1872	1963	
==>tta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=hea <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7270	7407	
==>method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7270	7407	
==>method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	409	531	
==>d_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name => 'circumfix:<' . $opt{name} . ' ' . $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2999	3134	
==>n:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2999	3134	
==>n:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2999	3134	
==>n:FGLOCK';

{
    package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5751	5931	
==>x;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5751	5931	
==>x;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5751	5931	
==>x;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7284	7395	
==>nd {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7284	7395	
==>nd {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7284	7395	
==>nd {
    use PIL::Run::ApiX;
    "package ".&p6_main().";\n".$_[0]->SUPER::expand().";\n";    
}


package PIL:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2469	2705	
==>bmethod>),
                                ),
                                Tree.new(:node<Macro>)
                            ),
                            Tree.new(:node<Block>).add_children(
                                Tree.new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	402	509	
==>rt of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*heade <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	402	509	
==>rt of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*heade <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2580	2673	
==>rn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3535	3628	
==>rn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1488	1604	
==>ly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1488	1604	
==>ly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1488	1604	
==>ly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6660	6829	
==>nted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6660	6829	
==>nted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6660	6829	
==>nted: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicin <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5933	6029	
==>ystem $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packages <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2761	2855	
==>rn $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3334	3428	
==>rn $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10975	11095	
==>eld $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10975	11095	
==>eld $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1794	1888	
==>er classes';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10180	10286	
==>mt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10180	10286	
==>mt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10180	10286	
==>mt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::T <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2259	2372	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2259	2372	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2259	2372	
==>line('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    i <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13344	13453	
==>uce($thunk);

    #warn "applying @params to " . Dumper->reduce($thunk) . " yielded $v";

    $v;
}

sub reduc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4639	4738	
==>l in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4889	4988	
==>l in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3470	3601	
==>lass) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3470	3601	
==>lass) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3470	3601	
==>lass) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push @su <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9617	9714	
==>ray $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _he <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9617	9714	
==>ray $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1542	1666	
==>q 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1542	1666	
==>q 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1542	1666	
==>q 'inf' ) {
        return "p6_new('Num',Perl6::Value::numify('Inf'))";
    }
    if ( $_[0][0] eq 'NaN' ) {
        return " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3691	3898	
==>ethod(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3691	3898	
==>ethod(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3691	3898	
==>ethod(
                        $body->{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7084	7225	
==>my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7084	7225	
==>my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7084	7225	
==>my $end =   $param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	699	803	
==>PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	699	803	
==>PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	699	803	
==>PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lhs = $unwrapped->{pLit}{pVal})->isa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	98	207	
==>dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	98	207	
==>dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4052	4143	
==>g::pi ( --> Num )
 {
     3.1415926535897932384626433832795028841971693993751058209749445923 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	259	373	
==>ool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	259	373	
==>ool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19835	19941	
==>eturns Relation::Example {
    # This form takes the form of an ordinary natural join,
    # where some sou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4255	4421	
==>pace_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4255	4421	
==>pace_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4255	4421	
==>pace_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1877	2005	
==>};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1877	2005	
==>};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1877	2005	
==>};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$name}++;
    }

    my $jsvar = P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20139	20232	
==>s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20139	20232	
==>s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20139	20232	
==>s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULT <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	338	469	
==>e, $prog)
	);
}

{
	package Blondie::TypeSafe::Annotation;
	use base qw/Blondie::Node::Map/;

	use Carp qw/croak/;

	sub fmap {
		my <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	8	109	
==>Inline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	8	109	
==>Inline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3637	3742	
==>O - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3637	3742	
==>O - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3637	3742	
==>O - fetch/store should not destroy binding
# TODO - test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5969	6064	
==>($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5969	6064	
==>($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5969	6064	
==>($string);
};
MULTI SUB undef ($xx) {p6_undef};
#MULTI SUB undefine ($xx) {p6_set($xx,p6_undef)} <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2657	2780	
==>= rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that ar <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2657	2780	
==>= rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that ar <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	333	425	
==>file((splitpath(%*INC<XML/SAX.pm>))[1], 'SAX');
	$file //= $parser_details;

	my $fh = open(c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6172	6284	
==>with the prune method.

This feature is useful, like custom, for when you don't want to mess
with members belongi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6172	6284	
==>with the prune method.

This feature is useful, like custom, for when you don't want to mess
with members belongi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6172	6284	
==>with the prune method.

This feature is useful, like custom, for when you don't want to mess
with members belongi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2483	2604	
==>ub { UNIVERSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVE <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3769	3862	
==>se with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4 <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3769	3862	
==>se with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3842	3932	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3842	3932	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3842	3932	
==>IL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	972	1098	
==>e Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# note: alternation is first match (not longest). 
# note: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1749	1848	
==>+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1749	1848	
==>+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3391	3496	
==>Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3391	3496	
==>Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %h <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8166	8263	
==>sa
  goto tok_match_sub if ( $match == "Sub" );
  ($operator) = newfrom($matchObj, $whitespacePosi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5580	5683	
==>debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->dest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5580	5683	
==>debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->dest <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5580	5683	
==>debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->dest <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5958	6065	
==>if($sn eq 'my') {
	$decl = "my($varlist)$init;";
    }
    elsif($sn eq 'our') {
	warn "our PPad not impleme <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9097	9189	
==>Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9097	9189	
==>Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5614	5732	
==>tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5614	5732	
==>tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2511	2629	
==>tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14772	14880	
==>$1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14772	14880	
==>$1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $cl <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4321	4418	
==>dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6341	6453	
==>obj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6341	6453	
==>obj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6341	6453	
==>obj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1125	1255	
==>e($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1125	1255	
==>e($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1125	1255	
==>e($attr);
            $attrs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6046	6144	
==>ote that most of the time, it will not be necessary to write these 
methods yourself; in particular <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6046	6144	
==>ote that most of the time, it will not be necessary to write these 
methods yourself; in particular <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20190	20284	
==>$xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(sm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20190	20284	
==>$xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(sm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20190	20284	
==>$xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6_to_b(sm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	326	446	
==>ODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	326	446	
==>ODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	326	446	
==>ODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	545	635	
==>?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	545	635	
==>?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9466	9554	
==>m $iFoo singleton method');
   
$iFoo->add_singleton_method('another_test_iFoo_singleton_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4852	4978	
==>ut to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4852	4978	
==>ut to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4852	4978	
==>ut to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32377	32545	
==>bol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33032	33200	
==>bol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1766	1886	
==>o exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1766	1886	
==>o exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1766	1886	
==>o exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10191	10298	
==>::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10191	10298	
==>::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10191	10298	
==>::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS;
use PIL::Cont;
use PIL::Types;
use PI <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	54	156	
==>a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18791	18887	
==>e that defines and returns an anonymous hash
definition.  While it is obvious that people who wou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18791	18887	
==>e that defines and returns an anonymous hash
definition.  While it is obvious that people who wou <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2435	2559	
==>od to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    met <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2435	2559	
==>od to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    met <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1422	1543	
==>-----

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    ha <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1422	1543	
==>-----

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24580	24688	
==>ut if
you do, remember to follow this model correctly.

=item next

An array reference of what handles (or "r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	832	930	
==>nly methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe = <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	832	930	
==>nly methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2528	2625	
==>t as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser> <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2528	2625	
==>t as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5606	5699	
==>accepts_type) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4549	4644	
==>a::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_op <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4549	4644	
==>a::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_op <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5139	5234	
==>a::Bind::Param;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_op <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11569	11664	
==>em C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of No <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11569	11664	
==>em C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of No <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14761	14865	
==>equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14761	14865	
==>equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_k <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23269	23355	
==>Global(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	25	124	
==>:Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	25	124	
==>:Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block( <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3170	3286	
==>a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  s <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3170	3286	
==>a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  s <==
3	/Users/nnunley/pugs/util/testgraph.pl	1335	1447	
==>ss

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_class { " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3475	3644	
==>f @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3475	3644	
==>f @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4378	4489	
==>ositional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4378	4489	
==>ositional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4968	5079	
==>ositional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # XXX: report <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2578	2763	
==>,
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2589	2774	
==>,
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::con <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1555	1703	
==>ding $_ based on $f\n" unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YA <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3514	3641	
==>e => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3514	3641	
==>e => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @ <==
3	/Users/nnunley/pugs/util/claim_drift.pl	165	263	
==>to point symlinks to the current one if you want to regenerate
# files. We should probably make thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1363	1485	
==>, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1363	1485	
==>, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1363	1485	
==>, $authority, sub { $body->(%params) });
        };
    }
    # support anon-classes here ....
    if (!defined($body) && r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	483	575	
==>ad1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	483	575	
==>ad1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compile <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10669	10770	
==>ariable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			$a,
			ty <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7753	7873	
==>hr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(87 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7753	7873	
==>hr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(87 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8659	8820	
==>w(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8659	8820	
==>w(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8659	8820	
==>w(
        clone => sub { 
            $class->from_x( item => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11644	11748	
==>one() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11644	11748	
==>one() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11644	11748	
==>one() not implemented";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7880	8047	
==>&exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11357	11524	
==>&exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $oth <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2013	2173	
==>nce
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehandle
    Code        Base class for all executab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	51	189	
==>gs;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	51	189	
==>gs;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	51	189	
==>gs;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4818	4931	
==>}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attr <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4818	4931	
==>}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attr <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2789	2894	
==>nt to submit the report to the public smokeserver:

        $^X $smoke_upload_script $html_location

    O <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36510	36600	
==>ine-readable) Message object as its positional
parameter $message and returns an equivalent <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36510	36600	
==>ine-readable) Message object as its positional
parameter $message and returns an equivalent <==
3	/Users/nnunley/pugs/misc/S29_round.pl	145	265	
==>oor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19751	19847	
==>tion data type is immutable.  The value of
a Relation object is determined when it is constructed <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24303	24399	
==>tion data type is immutable.  The value of
a Relation object is determined when it is constructed <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	198	306	
==>as_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_boo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14350	14446	
==>me') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any ana <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14350	14446	
==>me') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any ana <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31463	31559	
==>::Foo".

A library could be distributed with a Template module set that is specific
to it, anothe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31463	31559	
==>::Foo".

A library could be distributed with a Template module set that is specific
to it, anothe <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1632	1726	
==>urn_value->isa($self->{sig}->returns) || $return_value->isa('nil')))
        || confess "bad re <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15644	15768	
==>$node;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9672	9773	
==>my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9672	9773	
==>my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3398	3713	
==>expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3398	3713	
==>expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_/ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4702	4829	
==>b(
                'Addition must be implemented as a runtime primitive.' .
                'No, Blondie will not have church in <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	189	285	
==>PSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	189	285	
==>PSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19811	19922	
==>self[1] = $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp::Quant" ]

.sub "p6analyze" :method
    . <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	217	317	
==>RL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub cle <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	217	317	
==>RL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub cle <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3177	3282	
==>ect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3177	3282	
==>ect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	512	641	
==>:Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	512	641	
==>:Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	512	641	
==>:Rebless->custom($struct, "PIL", { editor => sub {
    my ($obj, $namespace) = @_;
    # We don't want PIL::Math::BigInt.
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38835	38939	
==>O - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38835	38939	
==>O - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38835	38939	
==>O - optimization - return the internal list object, if there is one
    # XXX - TODO - optimization - add <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7341	7462	
==>ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7341	7462	
==>ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7341	7462	
==>ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => [ $::Object ],
    class => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12040	12210	
==>!= 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d) }xgc;
          if ($v > 9 and $v > $S->{maxpar}) {
            &RxPOS -= length $v;
            $v = "";
          } <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1060	1172	
==><sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placehol <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1060	1172	
==><sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placehol <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17641	17753	
==>t represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17641	17753	
==>t represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19581	19699	
==>$S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &R <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16002	16120	
==>$S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &R <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14716	14806	
==>rse(eos,bos).
re_reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont c <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7883	8027	
==>tion = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6726	6865	
==>t_pkg );

=cut

sub unregister {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1993	2121	
==>oreach my $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1172	1317	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1172	1317	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1172	1317	
==>ir' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not ok $count - $msg"~$st; 13 };
    say "ok $count - $msg"~$st if <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6047	6156	
==>nce $message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # cur <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6047	6156	
==>nce $message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # cur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1023	1143	
==>match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1192	1312	
==>match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3497	3601	
==>hile (my ($method, $glob) = each %{ref($obj) . '::'}) {
            next unless exists &{ref($obj).'::'.$ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4279	4404	
==>d = $tree[1];  # keys: "isInvocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isWritable""p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3276	3368	
==>1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of encipherin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3276	3368	
==>1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of encipherin <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	17296	17414	
==>);
                # $backlink->push_content(abs2rel($source, $output_dir));
                $h->push_content($backlink <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19275	19374	
==>ed>

Returns a true value if the bot's socket to the server is currently connected.

Note that you m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19275	19374	
==>ed>

Returns a true value if the bot's socket to the server is currently connected.

Note that you m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3916	4019	
==>nal array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Car <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3916	4019	
==>nal array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Car <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3916	4019	
==>nal array

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Car <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3610	3748	
==>xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3610	3748	
==>xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1094	1182	
==>PTION

L<Blondie::Backend::Perl::Interpreter> contains the tree reduction code.

L<Blondi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2387	2484	
==>}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2387	2484	
==>}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14576	14667	
==>elf->registered_alternatives };
    eval { DumpFile( $self->registered_alternatives_file, @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2652	2760	
==>f, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc}  = 'non'    unless defined $opt->{asso <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1253	1347	
==>---

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installati <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1093	1187	
==>---

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2455	2554	
==>('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Mai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2455	2554	
==>('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Mai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2455	2554	
==>('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Mai <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3771	3941	
==>gs::Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4463	4568	
==>return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6365	6470	
==>return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object cl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3264	3354	
==>ipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3264	3354	
==>ipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1208	1371	
==>token.(@newtoks.shift, $label) )
                if +@newtoks;
      }

      $buf = [~] @newtoks;
      undefine $buf
        if !defined $i;

      @tokens.=grep: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2703	2814	
==>") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $fiel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2703	2814	
==>") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $fiel <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9770	9877	
==>ass = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = split(/::/,$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20314	20407	
==>=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canoni <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20314	20407	
==>=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canoni <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2427	2543	
==>->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = shift;
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36933	37030	
==>:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The Translato <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36933	37030	
==>:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The Translato <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1415	1630	
==>ing( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1415	1630	
==>ing( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1415	1630	
==>ing( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            describe => sub {
                my($o)=@_;
                my $s = ( <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2344	2447	
==>/^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2344	2447	
==>/^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1144	1265	
==>xportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1144	1265	
==>xportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1144	1265	
==>xportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } finally <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	871	997	
==>sername = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	871	997	
==>sername = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30239	30333	
==>e or the invocant Relation::Example respectively.  This method will fail if
any members of C<$a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2359	2464	
==>=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter that reduces a program into a string of
(hopefull <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12782	12878	
==>et2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12782	12878	
==>et2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12863	12978	
==>ndefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12863	12978	
==>ndefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12863	12978	
==>ndefs
    );
  })')();
}

# Code from Prelude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29003	29099	
==>ted by OR'ing
together the flags that are enabled at the time.

=item $obj->insert()

Inserts thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	493	605	
==>y $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	493	605	
==>y $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	493	605	
==>y $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%params);
    return $self;  
}));

$:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	270	378	
==>>fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	270	378	
==>>fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	270	378	
==>>fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warn <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17239	17343	
==>my $parser = Regexp::Parser->new($re);
  my $n = eval{ $parser->root };
  die "$@" if !defined $n;
  #pri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9093	9272	
==>y.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12570	12749	
==>y.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11806	11985	
==>y.difference( $other!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidi <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7668	7792	
==>lease wait a bit and try again, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	940	1058	
==>ef( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	940	1058	
==>ef( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{u <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1254	1360	
==>_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1254	1360	
==>_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	265	363	
==>p();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	265	363	
==>p();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	265	363	
==>p();
    if(str.FETCH().referencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3664	3807	
==>$name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $name = $values{name};
        $name =~ s/::/-/g;
        d <==
3	/Users/nnunley/pugs/util/addauthors.pl	1534	1655	
==>(<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16855	16950	
==>ild Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaul <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16855	16950	
==>ild Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38424	38551	
==>ay;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38424	38551	
==>ay;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38424	38551	
==>ay;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::is <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	127	556	
==>Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            4 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	127	556	
==>Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            4 <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	976	1108	
==>::= &Num::ceiling;


 multi  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1823	1951	
==>.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1823	1951	
==>.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1823	1951	
==>.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set everyone's n <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6871	6984	
==>:pos"
    $P0 = pos
    .return (mob)

  err_noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19596	19681	
==>ale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIB <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19596	19681	
==>ale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIB <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2606	2825	
==>ULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_messa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2606	2825	
==>ULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_messa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2592	2740	
==>_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
        } }

    | 'for' exp block
        { $_[0]->{out <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14934	15041	
==>pre-compilation regular expression */
  U32 nparens;            /* number of parentheses */

The match resul <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3267	3367	
==>is not good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or ini <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3267	3367	
==>is not good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or ini <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	598	700	
==>lding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	598	700	
==>lding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	598	700	
==>lding the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11114	11248	
==>ess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11114	11248	
==>ess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11114	11248	
==>ess "Method ($_[1]) not found in \$::Class";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5526	5660	
==>(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5526	5660	
==>(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    = <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1624	1730	
==>@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$comp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	573	699	
==>gnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	573	699	
==>gnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	54	146	
==>in{block}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{block}

Zum auskommentieren mehrerer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3324	3429	
==>s to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3324	3429	
==>s to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3324	3429	
==>s to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([List]), P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2289	2405	
==>fix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2289	2405	
==>fix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13226	13360	
==>ll not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13226	13360	
==>ll not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13226	13360	
==>ll not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got th <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6549	6677	
==>nst_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6742	6870	
==>nst_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11278	11390	
==>t;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11278	11390	
==>t;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11278	11390	
==>t;
    my $ret = $array->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2012	2114	
==>ix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2012	2114	
==>ix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2012	2114	
==>ix:le", "S", "String(a) <= String(b)" ],
    [ "infix:ge", "S", "String(a) >= String(b)" ],
    [ "infi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20264	20381	
==>pse' useless directory entries
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # For all directory entries <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2339	2436	
==>ctioning modules in 
Pugs, this port does it's best to work with those limitations and 
still prod <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2339	2436	
==>ctioning modules in 
Pugs, this port does it's best to work with those limitations and 
still prod <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15178	15278	
==>t line (by use of
\r and such).  C<$ml> may be empty if Test::Harness doesn't think you're
on TTY.

T <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36556	36652	
==>s where C<@others> is an
empty list, in which case the returned Relation is identical to the
invo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41105	41201	
==>s where C<@others> is an
empty list, in which case the returned Relation is identical to the
invo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1809	1905	
==>($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1809	1905	
==>($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1809	1905	
==>($_);
  s/\s*$//;

  if(my ($cmd, $arg) = /^:([hq]|pil(?:\.yaml)?|conf|precomp|js|[ecl])\s*(.*)$/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6359	6479	
==>om_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6359	6479	
==>om_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6359	6479	
==>om_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14367	14529	
==>' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14367	14529	
==>' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14367	14529	
==>' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3821	3930	
==>IL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmt <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3821	3930	
==>IL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmt <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	671	780	
==>IL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]',
  'pStmts' ,'PIL_Stmt <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6589	6683	
==>truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6589	6683	
==>truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8786	8880	
==>truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5577	5689	
==>\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5577	5689	
==>\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5577	5689	
==>\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34639	34760	
==>ngth ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34639	34760	
==>ngth ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34639	34760	
==>ngth ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @body, @tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5732	5859	
==>ar, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5732	5859	
==>ar, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6322	6449	
==>ar, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1806	1910	
==>0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1806	1910	
==>0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1806	1910	
==>0]->[0][0]/$_[0]->[0][1])" }
}

{
  package PIL::VStr;
  our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27971	28126	
==>r @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27971	28126	
==>r @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27971	28126	
==>r @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	901	994	
==>ts with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	901	994	
==>ts with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	901	994	
==>ts with 'array_fetch' and 'hash_fetch'
# TODO - separate 'whole_array_fetch' and 'array_elemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5058	5202	
==>->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5058	5202	
==>->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5058	5202	
==>->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3987	4092	
==>Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3987	4092	
==>Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3987	4092	
==>Wall <larry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6736	6852	
==>)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6736	6852	
==>)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6736	6852	
==>)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1953	2067	
==>_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1953	2067	
==>_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1953	2067	
==>_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7134	7235	
==>IL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7134	7235	
==>IL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7134	7235	
==>IL2JS.Context({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2223	2355	
==>urn;
    
        ### make the path absolute
        ### XXX path::class doesn't seem to have a rel2abs
        $dir = Path::Class::d <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6052	6160	
==>message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # current <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6052	6160	
==>message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # current <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8716	8822	
==>};
    return if not_an_array_index($P);
    my $uint = ToUint32($P);
    return if $uint < $A.property_val <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3354	3459	
==>_non_numeric' if !((~$$x & $$x) eq 0);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1414	1509	
==>rl5.  Perhaps
# because the challenges being faced were insufficiently documented,
# audreyt for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11272	11390	
==>UILD submethod, but any
Role BUILD submethods. It is important that submethods are used
because they will not get inher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11272	11390	
==>UILD submethod, but any
Role BUILD submethods. It is important that submethods are used
because they will not get inher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11272	11390	
==>UILD submethod, but any
Role BUILD submethods. It is important that submethods are used
because they will not get inher <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1852	1966	
==>,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1852	1966	
==>,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1852	1966	
==>,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1033	1148	
==>ir" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1033	1148	
==>ir" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1033	1148	
==>ir" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	831	938	
==>roblems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	831	938	
==>roblems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	831	938	
==>roblems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6322	6431	
==>ot;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $typ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6322	6431	
==>ot;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $typ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6322	6431	
==>ot;
    $$mn = $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $typ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10005	10147	
==>et();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircna <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10005	10147	
==>et();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircna <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	253	376	
==>onstant SUBDIR_OF_META     => sub { shift()->_meta_dir->subdir(shift() ) };
use constant SUBFILE_OF_META    => sub { shift() <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4479	4620	
==>,
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4479	4620	
==>,
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1068	1195	
==>ly
       p6_applym
       p6_return_CODE
       p6_catch_return_CODE
       p6_loop_CODE
       p6_last_CODE
       p6_next_COD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1771	1915	
==>pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1771	1915	
==>pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1771	1915	
==>pp->key, $pp->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3462	3593	
==>els}}, [ $opt ];
        return;
    }
    die "there is no precedence like ", $opt->{other};
}


sub add_to_list {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	233	321	
==>f_modified_since if_unmodified_since last_modified
    content_type content_encoding cont <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	233	321	
==>f_modified_since if_unmodified_since last_modified
    content_type content_encoding cont <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1033	1159	
==>ror in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1238	1364	
==>ror in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	133	251	
==>ports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	133	251	
==>ports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	133	251	
==>ports) {
    try {
      if(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2768	2863	
==>rint ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2768	2863	
==>rint ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2768	2863	
==>rint ">>>> recurse " . Carp::longmess;
		$opts->{code}->($class, $who, $namespace, $opts, $level <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	168	296	
==>ntrol:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	168	296	
==>ntrol:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	168	296	
==>ntrol:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	12018	12111	
==>ad1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	12018	12111	
==>ad1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	12018	12111	
==>ad1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9719	9837	
==>g crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9719	9837	
==>g crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9719	9837	
==>g crufty...
    my($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25216	25307	
==>Bool indicating whether the immutable identity of the
argument C<$other> equals the immutabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29768	29859	
==>Bool indicating whether the immutable identity of the
argument C<$other> equals the immutabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28698	28789	
==>Bool indicating whether the immutable identity of the
argument C<$other> equals the immutabl <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13422	13521	
==>code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13422	13521	
==>code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14734	14845	
==>ic';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14734	14845	
==>ic';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14734	14845	
==>ic';
    $s = Perl6::Value::Str::to_num( $s ) if $s+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4745	4881	
==>html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4745	4881	
==>html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{out <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4745	4881	
==>html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't close \"$cfg{out <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6563	6664	
==>N;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($Result1) * floor(abs($ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11059	11157	
==>>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '20 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11059	11157	
==>>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '20 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30105	30207	
==>attrs> is either empty or equal to
the invocant Relation::Example's header, in which case it returns th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21418	21516	
==>TH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44325	44423	
==>TH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10467	10657	
==>ot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my metho <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10467	10657	
==>ot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my metho <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8937	9069	
==>= 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8937	9069	
==>= 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	17	111	
==>use strict;
use warnings;

use Perl6::MetaModel;

require "lib/TestBuilder.pm";

$::TestBuilder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8573	8741	
==>hole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8573	8741	
==>hole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8573	8741	
==>hole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self->clear;
                        my $key = $param[0]->firs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	636	743	
==>@_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delet <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	798	905	
==>@_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delet <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10547	10637	
==>>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine, $posEndC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	19	107	
==>//theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	19	107	
==>//theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	19	107	
==>//theory.cs.iitm.ernet.in/~arvindn/pi/> :)
sub JS::Root::pi () is primitive { 3.141592653 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4502	4609	
==>vious versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4514	4621	
==>vious versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9237	9335	
==>e (@values ; Code *&expression --> Scalar )
 multi  List::reduce (Code $expression ; *@values --> S <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8394	8533	
==>8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8394	8533	
==>8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	324	425	
==>};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	324	425	
==>};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	324	425	
==>};

  no warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4788	4908	
==>IL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4788	4908	
==>IL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1694	1814	
==>IL_LValue',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	251	352	
==>->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	251	352	
==>->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	251	352	
==>->{pLHS}->[0]->fixup,
    pRHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4489	4590	
==>eds to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{'PA <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4489	4590	
==>eds to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{'PA <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4918	5019	
==>ive;
        # warn "with " . $right->fetch($i)->name->to_native . ' => ' . $right->fetch($i)->type->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3904	4028	
==>ts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3904	4028	
==>ts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3904	4028	
==>ts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8746	8850	
==>mes6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8746	8850	
==>mes6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(def <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8746	8850	
==>mes6param,@names5);
    for my $p (@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12877	12975	
==>"There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12877	12975	
==>"There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12877	12975	
==>"There is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26312	26451	
==>type => 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub on {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	224	338	
==>s from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_z <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	224	338	
==>s from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_z <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2343	2438	
==>ew function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the firs <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2343	2438	
==>ew function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the firs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1613	1718	
==>my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1613	1718	
==>my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1613	1718	
==>my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}),
        PIL::doublequote($_->{user <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2493	2611	
==>RSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2851	2967	
==>opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3056	3172	
==>opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2602	2706	
==>"*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2602	2706	
==>"*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2602	2706	
==>"*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2478	2600	
==>$in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2478	2600	
==>$in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2478	2600	
==>$in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAh <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2209	2346	
==>end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2209	2346	
==>end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	254	363	
==>}


sub match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self->add_handler('atom' => s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2920	3029	
==>ple class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15797	15930	
==>$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15797	15930	
==>$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15797	15930	
==>$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9597	9746	
==>{
         @lines = ($start);
      }
      next unless $start;
      for my $line (@lines) {
          if (exists $lines->{$line}) {
              $l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9938	10050	
==>uples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13415	13527	
==>uples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1014	1155	
==>i_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1014	1155	
==>i_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1131	1233	
==>ght->to_num->to_native());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($right) && $righ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	620	718	
==>_

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie::Prelude::Cont <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13936	14028	
==>=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13936	14028	
==>=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11762	11876	
==>_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4405	4519	
==>_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9213	9315	
==>]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9213	9315	
==>]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9213	9315	
==>]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+)$/) {
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1728	1869	
==>*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1716	1857	
==>*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%name <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29569	29669	
==>any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34121	34221	
==>any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33285	33385	
==>any of the
named attributes are not tuple-valued attributes, or if any attribute names
in one unwrapp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3979	4110	
==>ontents of a file

=cut

sub _get_file_contents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11482	11588	
==>_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11482	11588	
==>_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28524	28768	
==>n( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28524	28768	
==>n( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # co <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28524	28768	
==>n( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9311	9455	
==>:Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9311	9455	
==>:Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9311	9455	
==>:Value::stringify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->ne <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30563	30659	
==>est-harness >> at C<< rt.cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Koenig, we do <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14562	14660	
==>light-gray
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20195	20284	
==>em $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Aut <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20195	20284	
==>em $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Aut <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	354	476	
==>method DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a functio <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	354	476	
==>method DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a functio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7264	7425	
==>>
    | <'*'>
    | <'%'>
    | <'++'>
    | <'--'>
    | <'<<'>
    | <'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&& <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2573	2689	
==>ef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2573	2689	
==>ef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22933	23080	
==>rn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22933	23080	
==>rn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22933	23080	
==>rn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7006	7102	
==>generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7018	7114	
==>generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11159	11357	
==>$tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everyt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11159	11357	
==>$tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everyt <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11159	11357	
==>$tmp && ( 
                        $tmp->isa( 'Array' ) || $tmp->isa( 'Hash' )
                    ) ) {
                    return $tmp->$method( @param );
                }
                # everyt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	72	177	
==>O
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	72	177	
==>O
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	72	177	
==>O
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Junction'.$cl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3011	3112	
==>multi Math::Trig::'~$func~' ( Num $x = CALLER::<$_>, :$base --> Num )
 {
     Pugs::Internals::arc_uni <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8107	8204	
==>s Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8107	8204	
==>s Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5332	5445	
==>d to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5332	5445	
==>d to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5332	5445	
==>d to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example:

    my $fh      = IO: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4505	4617	
==>n.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

U <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4505	4617	
==>n.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

U <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4505	4617	
==>n.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

U <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12638	12738	
==>reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $reftyp" if !defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1560	1722	
==>];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1506	1663	
==>];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alter <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	107	209	
==>es|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = GraphViz- <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22175	22289	
==>",
	body => comb(
		fun => comb(
			fun => ide("cons"),
			param => ide("x"),
		),
		param => ide("nil"),
	),
);

m <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6837	6935	
==>nd of the line and find no closing match, I should
ignore the opening one. However, this means I sh <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6837	6935	
==>nd of the line and find no closing match, I should
ignore the opening one. However, this means I sh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3864	3982	
==>ue $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3876	3994	
==>ue $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27128	27224	
==>defaults it to False.

=back

This is the main Relation::Example constructor method:

=over

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	265	388	
==>:new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($fi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	265	388	
==>:new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($fi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2564	2647	
==>g = <<'END';
%====================================================================== <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11248	11362	
==>=> $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11248	11362	
==>=> $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11248	11362	
==>=> $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = class1($name => { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5537	5647	
==>.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5537	5647	
==>.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channel <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1675	1784	
==>e $@ if $@;

	return $func;
}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11473	11580	
==>me->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11473	11580	
==>me->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11473	11580	
==>me->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,">\n";
    return p6 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2054	2251	
==>begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2054	2251	
==>begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14309	14404	
==>ch element of the iteration varies with function.
C<keys> only returns the key; C<values> the va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6157	6266	
==>arn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6157	6266	
==>arn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6157	6266	
==>arn "JavaScript: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inse <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1922	2037	
==>$k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1922	2037	
==>$k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1922	2037	
==>$k ~~ %rx_helper_cache{'re_nth'})) {
      my $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'nth'} = $n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40611	40841	
==>)
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('B <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16011	16182	
==>min     => @tm[4],
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9] <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3772	3872	
==>tChars {  # see 7.4
      <MultiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteri <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2661	2790	
==>thod to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2661	2790	
==>thod to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5147	5251	
==>=cut

sub _all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{skipped} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9822	9937	
==>\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'}\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4713	4808	
==>stringified version
of the result object (usually the entire match string).

=head2 0+

When use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4713	4808	
==>stringified version
of the result object (usually the entire match string).

=head2 0+

When use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3603	3704	
==>>pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3603	3704	
==>>pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3603	3704	
==>>pop }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7656	7758	
==>pper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7656	7758	
==>pper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7656	7758	
==>pper($wrappedbody);

    return sprintf "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1151	1257	
==>e!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1151	1257	
==>e!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1151	1257	
==>e!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13022	13186	
==>"dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13022	13186	
==>"dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13022	13186	
==>"dispatch must have an invocant, a label and an arguments array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20258	20365	
==>and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24810	24917	
==>and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23371	23478	
==>and very basic, and worthy of inclusion in the Perl 6
core, at least as worthy as a Set data type is.

=head <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5280	5395	
==>h() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5280	5395	
==>h() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4977	5166	
==>key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4977	5166	
==>key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4977	5166	
==>key = $_[0]->nextkey;
                }
                return $ary;
            },
            'kv' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4158	4289	
==>re},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4030	4158	
==>re},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	14	101	
==>ynopsis
 BEGIN {require "Filtered-Comments.pm";import Filtered::Comments 'regex matching <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1579	1695	
==>x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1579	1695	
==>x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1579	1695	
==>x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10643	10753	
==>----------------------------

    method add_method;
    method get_method;
    method has_method;
    method g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10643	10753	
==>----------------------------

    method add_method;
    method get_method;
    method has_method;
    method g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10643	10753	
==>----------------------------

    method add_method;
    method get_method;
    method has_method;
    method g <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4805	4933	
==>he stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close m <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4805	4933	
==>he stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close m <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13006	13118	
==>$S0 == "-" goto err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto addchar
  backslash:
    inc p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15301	15415	
==>rl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_flavor($x) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1427	1523	
==>ey said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1427	1523	
==>ey said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17041	17145	
==>eta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "${ROO <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11361	11455	
==>m>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item  <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11361	11455	
==>m>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5615	5730	
==>s grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5615	5730	
==>s grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5615	5730	
==>s grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5294	5510	
==>4 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expir <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5294	5510	
==>4 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expir <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3506	3606	
==>rint &Test::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compiler::Rule->compiled(
sub {
    
}
});
* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9174	9293	
==>()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash k <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13025	13141	
==>()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash k <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13025	13141	
==>()};
    #print "HASH: @{[ %hash ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash k <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8893	9017	
==>ng-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1e <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24933	25026	
==>d2 The Locale::KeyedText::Message Class

A Message object is a simple container which stores d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24933	25026	
==>d2 The Locale::KeyedText::Message Class

A Message object is a simple container which stores d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3609	3787	
==>RE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_conte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3609	3787	
==>RE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_conte <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2577	2684	
==>ct_rule>
  | <character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in :z() <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3049	3158	
==>id {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create refer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3049	3158	
==>id {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create refer <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5760	5886	
==>hs) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2670	2791	
==>efined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2670	2791	
==>efined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7622	7738	
==>rt map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7622	7738	
==>rt map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7622	7738	
==>rt map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6219	6310	
==>d by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6219	6310	
==>d by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6219	6310	
==>d by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14585	14691	
==>ta'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14585	14691	
==>ta'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14585	14691	
==>ta'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC->tie( $a );
    }
    
    END { p6_a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5495	5601	
==>e = $self->operatorTable() if ( $whitespacePosition <= $position );

  expect_oper_1:
  $key = $$currentOpe <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9806	9903	
==>being the very first module written for Pugs.

It provides a simple set of common test utility fun <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9864	9961	
==>being the very first module written for Pugs.

It provides a simple set of common test utility fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16201	16308	
==>et_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16201	16308	
==>et_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16201	16308	
==>et_attribute_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribut <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2140	2261	
==>lti sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2140	2261	
==>lti sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2140	2261	
==>lti sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17024	17167	
==>}xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13445	13588	
==>}xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13321	13415	
==>ion

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Sequenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1079	1175	
==>fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1079	1175	
==>fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1079	1175	
==>fetch/store of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	683	933	
==>it.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::S <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	683	933	
==>it.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	346	449	
==>p,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	346	449	
==>p,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	346	449	
==>p,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1444	1577	
==>DAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1444	1577	
==>DAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7435	7548	
==>ced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7435	7548	
==>ced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2410	2525	
==>] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2410	2525	
==>] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2410	2525	
==>] if defined $_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3811	3911	
==>the 10 into the parameter stack and reduce the
Thunk.

Inside the Thunk the Seq will reduce its child <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24778	24874	
==>ta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24778	24874	
==>ta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11050	11170	
==>ub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11050	11170	
==>ub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11050	11170	
==>ub fetch {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12471	12581	
==>e .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12471	12581	
==>e .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12471	12581	
==>e .= "exists $symtab ? \${$symtab} : ";
    }
    $code .= '$_[1] ? 0 : Carp::croak("Undefined variable $_[0]") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	955	1050	
==>rs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	955	1050	
==>rs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	955	1050	
==>rs
# extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	561	665	
==>ew_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	561	665	
==>ew_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	561	665	
==>ew_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3232	3521	
==>'$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	666	810	
==>ey[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	666	810	
==>ey[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12288	12411	
==>"    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8564	8687	
==>"    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9399	9522	
==>"    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9620	9757	
==>ethod label
        symbol->new('remove_method'), 
    # method body
        method->new(
            $::ENV,
            method::signatur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26897	26995	
==>trs!) returns Relation>

This method is the same as C<project> but that the returned Relation has
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31449	31547	
==>trs!) returns Relation>

This method is the same as C<project> but that the returned Relation has
t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3363	3529	
==>JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use consta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24452	24550	
==>is method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29004	29102	
==>is method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27729	27825	
==>2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This me <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27729	27825	
==>2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	596	710	
==>($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	596	710	
==>($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	596	710	
==>($source);
    my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3308	3413	
==>ult {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3308	3413	
==>ult {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5269	5369	
==>e $range must be numeric, >= 0
# Non numeric ranges might be a useful future extension. (eg %)
sub wi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12489	12588	
==>ese functions will eval a code snippet, and then pass the result to is or ok
on success, or report t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12547	12646	
==>ese functions will eval a code snippet, and then pass the result to is or ok
on success, or report t <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8944	9068	
==>ous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8944	9068	
==>ous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_n <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16394	16499	
==>die "Couldn't open pipe to \"$bin -V:pugs_version\": $!\n";
  my $rev = <$fh>;
  $rev =~ s/^.*?: //g;

  r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10205	10305	
==>elow.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10205	10305	
==>elow.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21800	21893	
==>oding utf8

=head1 NAME

Relation::Example -
Simple in-memory implementation of the Relation r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	870	960	
==>mple for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en v <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	870	960	
==>mple for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2688	2804	
==>bose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @componen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2688	2804	
==>bose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @componen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2688	2804	
==>bose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @componen <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4311	4419	
==>base =~ s{(['\\])}{\\$1}g;

    eval "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32181	32281	
==>if not, it then checks
each set's member for language B and displays that; and so on.

I<For the pres <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32181	32281	
==>if not, it then checks
each set's member for language B and displays that; and so on.

I<For the pres <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32145	32241	
==>ither or both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36695	36791	
==>ither or both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
t <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	834	938	
==>bles?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %va <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	834	938	
==>bles?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2710	2828	
==>ller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2710	2828	
==>ller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2710	2828	
==>ller\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3951	4054	
==>slator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3951	4054	
==>slator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	768	882	
==>gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	768	882	
==>gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	768	882	
==>gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1477	1579	
==>infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i > <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1477	1579	
==>infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i > <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1477	1579	
==>infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i > <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14277	14369	
==>y @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14277	14369	
==>y @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14277	14369	
==>y @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2472	2601	
==>erl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2472	2601	
==>erl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2472	2601	
==>erl6::Value::p6v_isa( $_[0]{v}, 'Hash'  )
           # ))  {
        my $cell = shift;
        # warn "storing @_ to ".ref($cell-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30875	30968	
==>here C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35425	35518	
==>here C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34616	34709	
==>here C<$transformer> returns either an empty
tuple/Mapping or a tuple that is identical to the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14525	14672	
==>sertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14519	14666	
==>sertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2660	2771	
==>_iterator {
    my($self, $name, $it) = @_;

    $self->_reset_file_state;
    $self->{file} = $name;
    my %to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14999	15101	
==>Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14999	15101	
==>Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14999	15101	
==>Value::Num::Inf;
    return '-Inf' if $v eq "".(-&Perl6::Value::Num::Inf);
    return 'NaN'  if $v eq " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8218	8342	
==>MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8218	8342	
==>MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13478	13599	
==>= any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16955	17076	
==>= any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16317	16438	
==>= any( $other!heading )) {
        # The first source's heading is a proper subset of the
        # second source's headin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7705	7808	
==><NullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpressi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26806	26899	
==>onal named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the corr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26806	26899	
==>onal named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the corr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11903	12019	
==>changable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11903	12019	
==>changable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11903	12019	
==>changable with one another, classes and Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4044	4225	
==>cher')->do());
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_no <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6762	6851	
==>vent<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6762	6851	
==>vent<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7324	7446	
==>($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3928	4050	
==>($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4777	4899	
==>($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node::eval_perl5 {
    my $res = eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1267	1385	
==>{
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1267	1385	
==>{
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1267	1385	
==>{
      // Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2190	2321	
==>ined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2190	2321	
==>ined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2190	2321	
==>ined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9272	9382	
==>--------------------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9272	9382	
==>--------------------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9272	9382	
==>--------------------------

This is a rough sketch of that role(Role) might look like. 

role Role {
    has @: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16253	16340	
==>arrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16311	16398	
==>arrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8461	8562	
==>_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8461	8562	
==>_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8461	8562	
==>_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9657	9796	
==>) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9657	9796	
==>) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9657	9796	
==>) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2655	2761	
==>run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2655	2761	
==>run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2655	2761	
==>run ne 'js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6756	6855	
==>fess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6756	6855	
==>fess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6756	6855	
==>fess "The version ($version) is not in the correct format '0.0.0'";
        ::opaque_instance_attr($ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1311	1416	
==>r::num_size($n) {
  'subset num'~$n~'     of ValueType where { $^n ~~ Num and ...XXXfill in... };
   subse <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14266	14367	
==>C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >> <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14266	14367	
==>C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4537	4650	
==>e

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub pac <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20590	20685	
==>ver time.  One plan which I favor is that
the new (under development) enterprise-strength and Pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20590	20685	
==>ver time.  One plan which I favor is that
the new (under development) enterprise-strength and Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20374	20467	
==>) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20374	20467	
==>) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20374	20467	
==>) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20787	20967	
==>s );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20787	20967	
==>s );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20787	20967	
==>s );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $ele <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37710	37808	
==>aligned and merged.  The heading of the new relation is the union of
all the headings of the source <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42259	42357	
==>aligned and merged.  The heading of the new relation is the union of
all the headings of the source <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41909	42007	
==>aligned and merged.  The heading of the new relation is the union of
all the headings of the source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10920	11174	
==>> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10920	11174	
==>> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10920	11174	
==>> {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- new @_ ---- ";
                            my $cell = Perl6::Cell- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4067	4182	
==>ected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4067	4182	
==>ected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4147	4262	
==>ected output for the test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1571	1687	
==>s "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1571	1687	
==>s "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1571	1687	
==>s "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20269	20361	
==>t the "Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20269	20361	
==>t the "Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	254	365	
==>age/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	254	365	
==>age/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	254	365	
==>age/4599 for 
## more info on the Class isa Module isa Package isa Object thing.

# ... this makes ::Class a sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4333	4437	
==>lass::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4333	4437	
==>lass::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4333	4437	
==>lass::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to by $myobj and reb <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3450	3554	
==>:Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node obj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3450	3554	
==>:Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node obj <==
3	/Users/nnunley/pugs/util/build_pugs.pl	264	363	
==>'; };
use lib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1352	1459	
==>rn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1352	1459	
==>rn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1352	1459	
==>rn String(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a ha <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	307	398	
==>Caesar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	307	398	
==>Caesar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	881	1019	
==>hich p6 rules can be run against strings,
  sufficient to permit recommencing writing a grammar for perl6.
  This will likely be pure p5/pr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	0	98	
==>use Cipher::Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	0	98	
==>use Cipher::Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12041	12150	
==>!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVI <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12041	12150	
==>!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8129	8230	
==>ssert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8129	8230	
==>ssert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3030	3162	
==>, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3030	3162	
==>, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3030	3162	
==>, "N", "-a",
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2445	2548	
==>such.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - Ap <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2445	2548	
==>such.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - Ap <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2445	2548	
==>such.
    my @vars = map{$_->[0]} @{$_[0]{'pSyms'}};
    my @varsm = map{p6_mangle($_)} @vars;# XXX - Ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1353	1466	
==>x:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1353	1466	
==>x:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1353	1466	
==>x:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2711	2808	
==>fg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2711	2808	
==>fg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2711	2808	
==>fg{preludepc}", "~$cfg{testpc}", \$mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1073	1192	
==>Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1278	1397	
==>Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1339	1458	
==>Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1515	1636	
==>y @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1515	1636	
==>y @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1515	1636	
==>y @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i] = $ary->fetch($i)->fetch;
    }
    \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3526	3634	
==>s}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3526	3634	
==>s}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3526	3634	
==>s}", @args
    or die "Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12580	12740	
==>TH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12580	12740	
==>TH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12580	12740	
==>TH($dispatcher, $_[1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6709	6813	
==>y",
  help   => "Compile Pugs if you haven't done so already (looked at $pugs).",
  ensure => sub { -r $p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	288	376	
==>SCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, includin <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	288	376	
==>SCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, includin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5518	5627	
==>($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5518	5627	
==>($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6108	6217	
==>($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2658	2823	
==>class != $EigenClass) {
                my $eigenclass = $EigenClass->new(
                    '$:name' => 'EigenClass[' . 
                                    ($attr <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1182	1301	
==>: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1182	1301	
==>: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8725	8841	
==>n) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($bl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8725	8841	
==>n) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($bl <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3753	3850	
==>th line\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st lin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26825	26940	
==>tem $parser->init()

This method installs all the flags and handlers.  F<Regexp::Parser> does
this automatically, bu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20330	20425	
==>rrectly
and reliably, it also performs quite slowly; you should only use Example
for testing, de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20330	20425	
==>rrectly
and reliably, it also performs quite slowly; you should only use Example
for testing, de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3702	3803	
==>.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3702	3803	
==>.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3702	3803	
==>.
use Prelude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd nam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3904	4028	
==>aptures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3916	4040	
==>aptures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5159	5258	
==>R Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5::X1::Api; use utf8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1887	2009	
==>umber(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1887	2009	
==>umber(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1887	2009	
==>umber(b)" ],
    [ "infix:lt", "S", "String(a)  < String(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3960	4059	
==>lumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::Node <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1599	1691	
==>UM, 'Unrecognized escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25664	25754	
==>).
flag_m(amat(_,flgs(_,m,_,_,_,_,_,_,_,_))).
flag_s(amat(_,flgs(_,_,s,_,_,_,_,_,_,_))).
fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7152	7313	
==>= sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7152	7313	
==>= sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7152	7313	
==>= sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                return Inf if $end->unboxed == Inf;
                return $start->unbo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3330	3466	
==>($self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} ) {
        push @{$self->{levels}} <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	353	488	
==>$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	353	488	
==>$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3345	3460	
==>>fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3345	3460	
==>>fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3345	3460	
==>>fetch( @_ );
    }
    $_[0]{v}
}
sub Perl6::Cell::tie {
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9734	9833	
==>(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9734	9833	
==>(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9734	9833	
==>(@info,['named',1])    if $is_named;
	push(@info,['writable',1]) if $is_writable;
        push(@name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2267	2377	
==>nterface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2267	2377	
==>nterface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2267	2377	
==>nterface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15569	15693	
==>:Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15569	15693	
==>:Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15569	15693	
==>:Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_nu <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2691	2784	
==>classes... though a default
implementation exists, too.

=over

=item B<source>

=item B<sourc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2691	2784	
==>classes... though a default
implementation exists, too.

=over

=item B<source>

=item B<sourc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19489	19585	
==>here Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19489	19585	
==>here Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1272	1376	
==>nf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1272	1376	
==>nf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4263	4403	
==>[0] --> @v[0];

    $v{0} --> %v{0};

    $#v   --> @v.last_index;

    $r = \@v --> $r = @v;
    $r = \%v --> $r = %v;
    
    $r->[0]  --> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13016	13101	
==>umber versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Transl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13016	13101	
==>umber versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Transl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5768	5890	
==>tives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5768	5890	
==>tives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5768	5890	
==>tives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN_SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14796	14902	
==>};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14796	14902	
==>};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14796	14902	
==>};
      require PIL::Run::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	582	705	
==>still relatively "functional" in flavor, however, it is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	145	243	
==>nings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	145	243	
==>nings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11874	11984	
==>e = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11874	11984	
==>e = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11874	11984	
==>e = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4605	4705	
==>};
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4605	4705	
==>};
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4605	4705	
==>};
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4202	4304	
==>thin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4202	4304	
==>thin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4202	4304	
==>thin it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods

$: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16327	16467	
==>rs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20753	20893	
==>rs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 <==
3	/Users/nnunley/pugs/util/drift.pl	215	315	
==>l portable.

$ENV{DERIVEPATH} = "$Bin/../src";

my ($in) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12708	12817	
==>the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12708	12817	
==>the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{has <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12708	12817	
==>the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4893	4998	
==>mpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4893	4998	
==>mpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4893	4998	
==>mpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9835	9948	
==>lues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9835	9948	
==>lues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9835	9948	
==>lues) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->ad <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2482	2619	
==>'t yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the thun <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	307	409	
==>t {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	307	409	
==>t {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	817	935	
==>clared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	817	935	
==>clared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	817	935	
==>clared vars.
our %UNDECLARED_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40738	40870	
==>numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40738	40870	
==>numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40738	40870	
==>numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = @_;
    @{$this->{arrayref}} = ();
}
sub e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10856	10999	
==>}]
    }
    if (defined $args{progs}) {
	die "test.pl:runperl(): 'progs' must be an ARRAYREF " . _where()
	    unless ref $args{progs} eq "ARRA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15855	15960	
==>->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('min <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10711	10816	
==>->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('min <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	79	168	
==>--------------------------------------------------------------------------
## now for some <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	79	168	
==>--------------------------------------------------------------------------
## now for some <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	79	168	
==>--------------------------------------------------------------------------
## now for some <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	536	669	
==>ame2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	552	685	
==>ame2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	528	661	
==>ame2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $sel <==
3	/Users/nnunley/pugs/util/addauthors.pl	86	219	
==>omitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	831	931	
==>ompiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	831	931	
==>ompiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13526	13741	
==>spatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13526	13741	
==>spatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13526	13741	
==>spatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_di <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2397	2497	
==>ed);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2397	2497	
==>ed);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2397	2497	
==>ed);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	949	1056	
==>pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	949	1056	
==>pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	949	1056	
==>pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use strict;

  use overload '""' => \&as_stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2868	2981	
==>ous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2868	2981	
==>ous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2868	2981	
==>ous} = sub { 0 } 
        unless defined $param{cis_contiguous};
    $param{cstringify}     = \&_default_stringify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6643	6780	
==>- use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6643	6780	
==>- use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            't <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6643	6780	
==>- use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieable' => sub { _('$:cell')->{tieable} = 1 },

            't <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9971	10171	
==>n,
              passed      =>            1,
              reason      =>      $reason,
              number      =>      $number,
          ) if $skip;
  
          return ::Test::Builder::Test::Pass <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	537	725	
==>n,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	537	725	
==>n,
            passed      =>            1,
            reason      =>      $reason,
            number      =>      $number,
        ) if $skip;

        return ::Test::Builder::Test::Pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	567	675	
==>args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	567	675	
==>args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	567	675	
==>args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	695	791	
==>sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	695	791	
==>sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	695	791	
==>sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.inc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5612	5724	
==>igil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5612	5724	
==>igil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5612	5724	
==>igil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/::*::/;
    $n =~ s/__/\cA/g;
    $n =~ s/_(\d+)x/chr($1)/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5098	5194	
==>timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5098	5194	
==>timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5098	5194	
==>timeout\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1941	2055	
==>, PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1941	2055	
==>, PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1941	2055	
==>, PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    return sp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30432	30531	
==>med C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation::Example>

This method <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20343	20435	
==>lthough program package installers usually do it.  An os-level preference
/ control-panel dis <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20343	20435	
==>lthough program package installers usually do it.  An os-level preference
/ control-panel dis <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9151	9284	
==>/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9151	9284	
==>/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	658	769	
==>rap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	658	769	
==>rap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	658	769	
==>rap;
    if(
      $unwrapped->isa("PIL::PLit") and
      $unwrapped->{pLit}->isa("PIL::PVal") and
      (my $lh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12299	12421	
==>S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${&Rx} =~ m{ \G ([0-7]) }xgc;
        return $S->object(ex <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3734	3827	
==>ion( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_rec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3734	3827	
==>ion( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_rec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1139	1246	
==>ts elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1139	1246	
==>ts elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HA <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5993	6087	
==>s { $_[0] }

package type::variable::instantiated;
use base qw/type::variable/;

sub is_arrow { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5418	5520	
==>s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5418	5520	
==>s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5418	5520	
==>s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12245	12359	
==>d to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12245	12359	
==>d to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('H <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4181	4306	
==>) sometimes resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pass) {
        # It seems Irix long d <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1203	1300	
==>= Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1170	1267	
==>= Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2523	2652	
==>$k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2523	2652	
==>$k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2523	2652	
==>$k (keys %$val) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7984	8079	
==>previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_previ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7984	8079	
==>previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_previ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3494	3629	
==>SP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <MultiL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1720	1821	
==>' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1720	1821	
==>' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1720	1821	
==>' argument to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15487	15686	
==>leop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15766	15965	
==>leop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \& <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14354	14453	
==>ion.
C<keys> only returns the key; C<values> the value; C<kv> returns both as
a 2 element list in (k <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15361	15495	
==>y_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::opt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15640	15774	
==>y_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::opt <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25395	25490	
==>printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exit statu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	170	287	
==>ump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	170	287	
==>ump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	170	287	
==>ump;
    my $obj = Devel::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6879	6976	
==>ie::Backend::C::Emitter::DuplicateFinder->new;
	$self->{dups} = Set::Object->new( $dup_finder->dup <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1364	1456	
==>}

method member($self: $item) returns Object {
    return %!members{$self._stringify($item)} <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1364	1456	
==>}

method member($self: $item) returns Object {
    return %!members{$self._stringify($item)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2702	2843	
==>:name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2702	2843	
==>:name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2702	2843	
==>:name_mangle($self->name),
        PIL::name_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6482	6609	
==>e {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6482	6609	
==>e {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6482	6609	
==>e {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, N <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	836	959	
==>=> $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	815	932	
==>=> $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	815	932	
==>=> $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14179	14285	
==>() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14179	14285	
==>() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52400	52488	
==>ol->new('@:superclasses') => list->new($::Module));

$::Module->set_attr(symbol->new('@:s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	504	628	
==>llow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	504	628	
==>llow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	504	628	
==>llow ?: as push argument
#      } elsif($_->is_slurpy and $_->name =~ /^@/) {
#          push @slurpy_arrays, $_;
#      } el <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2775	2882	
==>hat are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2775	2882	
==>hat are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7043	7141	
==>).
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\").
p6_metach <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4356	4461	
==>) = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4356	4461	
==>) = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4356	4461	
==>) = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}));

$::Package->add_method('FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1054	1164	
==>eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1054	1164	
==>eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1054	1164	
==>eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9032	9225	
==>urn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9032	9225	
==>urn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9032	9225	
==>urn $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	640	758	
==>d => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	640	758	
==>d => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	640	758	
==>d => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	912	1158	
==>etta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensiv <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	912	1158	
==>etta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensiv <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2949	3069	
==>make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  package_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2236	2397	
==>one
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2236	2397	
==>one
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	43	143	
==>rimental implementation of a p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine';

requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11320	11462	
==>pec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11320	11462	
==>pec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11320	11462	
==>pec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec-> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2998	3142	
==>isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2998	3142	
==>isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25285	25422	
==>ure( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25564	25701	
==>ure( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 , <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11850	11943	
==>_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_oct_chars(R), [Close].
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1980	2067	
==>e('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1980	2067	
==>e('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1980	2067	
==>e('Package');
$::Module->name('Module');
$::Class->name('Class');
$::Object->name('Objec <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11758	11920	
==>ires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11758	11920	
==>ires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2834	2963	
==>ft;
                push @{$self->get_value('@:slots')}, mk_containers((undef) x ($size));
            },

            '_extend_to <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2791	2894	
==>urn $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    retu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2791	2894	
==>urn $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2298	2441	
==>" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2286	2429	
==>" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1580	1714	
==>' $_[2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	528	636	
==>parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	528	636	
==>parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	528	636	
==>parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4942	5058	
==>nstantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4942	5058	
==>nstantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4942	5058	
==>nstantiate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7848	7956	
==>wSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/*    fprintf(stderr,"calling out...\n");*/
    ret = call_sv <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2170	2268	
==>message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2170	2268	
==>message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4246	4345	
==>unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4246	4345	
==>unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4246	4345	
==>unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $next = $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4517	4624	
==>$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4517	4624	
==>$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4517	4624	
==>$_},$_} keys(%space_from_sigil);

# XXX - change mangling scheme - ${'foo'}::{'bar'}
# XXX - this is getting <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2845	2990	
==>hars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3029	3174	
==>hars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1169	1263	
==>s::Dump->export_to_level(1,@_);
}

sub dump_tree {
	my ($tree,$name) = @_;
	return $dumper->[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18736	18944	
==>?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18736	18944	
==>?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18736	18944	
==>?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell-> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5678	5788	
==>code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = "";
    my(%cr <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	353	461	
==>as Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	353	461	
==>as Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    h <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9378	9495	
==>$S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35119	35214	
==>k

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method returns <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35119	35214	
==>k

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3348	3466	
==>ft if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3348	3466	
==>ft if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3348	3466	
==>ft if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22978	23086	
==>);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22978	23086	
==>);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22978	23086	
==>);
    (defined $v2
     ? p6_from_n(rindex($v0,$v1,$v2))
     : p6_from_n(rindex($v0,$v1)));
};
# splice - s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3086	3194	
==>>{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3086	3194	
==>>{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3086	3194	
==>>{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($attribute_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2470	2580	
==>JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2470	2580	
==>JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2470	2580	
==>JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1265	1385	
==>est Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebD <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1265	1385	
==>est Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebD <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1778	1872	
==>er_args->{INST_MAN1DIR} =
      File::Spec->catfile($path, "man1");
    $self->makemaker_args-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1667	1802	
==>lt: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1667	1802	
==>lt: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (def <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1667	1802	
==>lt: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	160	258	
==>e "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	160	258	
==>e "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	160	258	
==>e "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16925	17055	
==>t        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16925	17055	
==>t        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16925	17055	
==>t        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__

=head1 NAME

Perl6:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9413	9503	
==>tements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3238	3328	
==>tements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11828	11913	
==>::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11828	11913	
==>::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11828	11913	
==>::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	689	902	
==>nt>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<e <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	689	902	
==>nt>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<e <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12589	12709	
==>ch", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2445	2551	
==>0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2445	2551	
==>0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    bless <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2445	2551	
==>0;
}));

$::Role->add_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	394	488	
==>::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	394	488	
==>::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	394	488	
==>::inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	396	490	
==>inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	396	490	
==>inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	396	490	
==>inline's first param is directly
# inlined (with no escaping) into the resulting JavaScript cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24578	24732	
==>$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24578	24732	
==>$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24578	24732	
==>$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9260	9367	
==>r" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9260	9367	
==>r" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9260	9367	
==>r" class

=head1 SYNOPSIS

  use Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14377	14477	
==>tring with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14435	14535	
==>tring with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11000	11094	
==>{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtered_INC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1567	1682	
==>', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1567	1682	
==>', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1567	1682	
==>', undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10572	10678	
==>implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10730	10836	
==>implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	511	615	
==>ub provides {
    die "virtual method 'provides' called on @_";
}

sub run {
	die "virtual method 'run' c <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	209	300	
==>kg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	362	453	
==>kg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	550	680	
==>emp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	550	680	
==>emp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	550	680	
==>emp)$/) {
    return bless {
      pScope => $self->{pScope},
      pSyms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8285	8462	
==>.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8285	8462	
==>.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8285	8462	
==>.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_method($1) 
                    :
                    # if all <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	26	132	
==>ngs;
use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
use Fil <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7381	7478	
==>type::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive let <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	496	593	
==>i method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	496	593	
==>i method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	291	422	
==>$Builddir       $Bindir     $Data       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Post <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	401	512	
==>d since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Erro <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	401	512	
==>d since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Erro <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	208	339	
==>copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $mes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	208	339	
==>copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $mes <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	374	470	
==>d class (a L<Type>), which is used for
dispatching private methods.

=back

Normally, when you de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	597	712	
==>] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	597	712	
==>] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	597	712	
==>] != undefined
      ));
    })')(@$self, $idx);
  } else {
    die ".exists does not work on objects of type {$self <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	749	869	
==>name,$prec)=@_;
    $name = "$name";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $incremen <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8891	8993	
==>ackage and an optional available list
    ### and check if the package is available/provided by any ins <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10368	10470	
==>ackage and an optional available list
    ### and check if the package is available/provided by any ins <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	397	507	
==>'/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	397	507	
==>'/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	492	588	
==>ore difficult.
# One basically has to reverse engineer an implicit abstraction
# "barrier" for th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	653	778	
==>f = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Run <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8879	8988	
==>o work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8879	8988	
==>o work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!us <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	632	788	
==>sses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty seq <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12912	13019	
==>f->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27051	27158	
==>f->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14644	14784	
==>asses = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14644	14784	
==>asses = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14644	14784	
==>asses = ($self);
        # we take the MRO first, however at some early
        # stages of the bootstrap, this is not yet 
        # populat <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9295	9414	
==>set = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9295	9414	
==>set = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2699	2811	
==>global, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2199	2312	
==>'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2199	2312	
==>'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2199	2312	
==>'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	456	550	
==>an(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	456	550	
==>an(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	456	550	
==>an(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	609	707	
==>ify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Dat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	609	707	
==>ify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Dat <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15487	15588	
==>e thread the set of generic type variables, so the body has the generic variables created in the bindi <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	475	568	
==>%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	475	568	
==>%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy" <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1426	1540	
==>->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.htm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1048	1152	
==>package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1048	1152	
==>package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::C <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6138	6271	
==>al->new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18429	18523	
==>cation
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18429	18523	
==>cation
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	665	767	
==>..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	665	767	
==>..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	665	767	
==>..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New methods: keys(), values(), pairs <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3584	3688	
==>_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $arg <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2625	2728	
==>_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3401	3537	
==>ffset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3401	3537	
==>ffset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3401	3537	
==>ffset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [] <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	51	182	
==>use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoader;
        XS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6060	6162	
==>got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10317	10419	
==>got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4816	5011	
==>(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4666	4855	
==>(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3292	3419	
==>t/metafile
        system( qq[mkdir -p $builddir] )                and error($?), return;   
        system( qq[mkdir -p $buildd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	177	449	
==>ar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /
        ^
        (
            (?:
                # pod start
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10568	10718	
==>n ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY";
	_quote_args(\$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14096	14192	
==>lse = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_else = $o->data->[1]->data->[1][0]->emit i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7570	7686	
==>r @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7570	7686	
==>r @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7570	7686	
==>r @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2885	3038	
==>op(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2885	3038	
==>op(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2885	3038	
==>op(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret = "";
  $ret ~= $a for 1..$count;
  $ret;
}

sub in <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1592	1704	
==>t2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1592	1704	
==>t2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17043	17164	
==>ercent_ok;

        my($fmt_top, $fmt) = _create_fmts($failedtests);

        # Now write to formats
        for my $scrip <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7314	7418	
==>ist( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@li <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7314	7418	
==>ist( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@li <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1533	1629	
==>var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1533	1629	
==>var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1533	1629	
==>var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5807	5913	
==>d ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5807	5913	
==>d ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5807	5913	
==>d ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create :: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29455	29585	
==>OODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ EN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29455	29585	
==>OODBYE' => q[Salut!],
        'MYAPP_PROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ EN <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	275	393	
==>OODBYE' => q[Salut!],
    'MYAPP_PROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ EN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23704	23819	
==>6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23704	23819	
==>6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23704	23819	
==>6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	185	292	
==>1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	185	292	
==>1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	185	292	
==>1].FETCH().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3251	3370	
==>q 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3251	3370	
==>q 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3251	3370	
==>q 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($type eq 'HASH') {
		for my $val (values %$obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11682	11803	
==>ntify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11682	11803	
==>ntify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11682	11803	
==>ntify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch if Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1603	1720	
==>n";
		return $self;
	}
	$self->{'values'}{'dynamic_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5407	5504	
==>lean value of success or failure;

=item err_str

The C<err_str> method returns the last error mes <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5407	5504	
==>lean value of success or failure;

=item err_str

The C<err_str> method returns the last error mes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3259	3399	
==>KAGE__->add_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3904	4017	
==>hat has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3765	3875	
==>hat has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1766	1893	
==>}
    |   signature_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7153	7254	
==>ie "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7165	7266	
==>ie "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0] <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	23	140	
==>Path;
use File::Copy;
use Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($testdir);
d <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1348	1447	
==>: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = u <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1348	1447	
==>: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = u <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1243	1370	
==>on_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Perl version '$perl_version' is bad. Must be 5 or 6 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5955	6072	
==>urn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5955	6072	
==>urn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	760	860	
==>([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	760	860	
==>([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	760	860	
==>([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, __cc]);
}
EOF
  } else {
    return $self->{body <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15340	15446	
==>ll $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the first argument
# for succes <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1031	1129	
==>~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1031	1129	
==>~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1507	1630	
==>otocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1507	1630	
==>otocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5481	5611	
==>unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5481	5611	
==>unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5481	5611	
==>unboxed' => Perl6::Value::Int::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10131	10250	
==>ction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10131	10250	
==>ction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10131	10250	
==>ction (n) {
          if(idx < 0)
            PIL2JS.die("Modification of non-creatable array value attempted, subscript <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5790	5891	
==>'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlob <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5790	5891	
==>'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlob <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2689	2790	
==>'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', 'SLet';
node_s 'Scope', 'STemp';
node_s 'Scope', 'SGlob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2010	2123	
==>name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2010	2123	
==>name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2010	2123	
==>name_mangle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3916	4020	
==>s/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3916	4020	
==>s/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $reques <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11323	11419	
==>e(char(C)) --> "\\e", {[C] = [0x1B]}, !.


% XXX - connect to above
p5_comment_opt --> p5_comment <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18606	18740	
==>ng this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18606	18740	
==>ng this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18606	18740	
==>ng this 
    # we can get a class invocant which 
    # is how class methods get called 
    
    sub isa {
        $Dispatchable::AUTO <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4504	4607	
==>,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string, <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4504	4607	
==>,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string, <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5260	5436	
==>$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) sen <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7022	7198	
==>$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) sen <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11727	11824	
==>two methods above, for when one wishs to take
advantage of the internal caching of keys that is ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1410	1506	
==>trancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1410	1506	
==>trancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1410	1506	
==>trancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($t <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2023	2135	
==>| $x == $t ??
		$t !! $t - 1
}

our Int multi Num::round_toward_zero (Num $x) {
	return(int $x);
}

our Int multi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	261	361	
==>e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they f <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	261	361	
==>e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10173	10282	
==>pkg || '__PACKAGE__';
    $method_name = $name || 'emit';
}
sub gen {
    my($name,$vars,$body)=@_;

    my $i <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1060	1160	
==>t algorithm is a flexible way of imposing a rate limit
against a stream of items. It is also very eas <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1060	1160	
==>t algorithm is a flexible way of imposing a rate limit
against a stream of items. It is also very eas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3335	3449	
==>HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3335	3449	
==>HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3335	3449	
==>HASH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles <==
3	/Users/nnunley/pugs/util/importgraph.pl	2662	2820	
==>des++;

  while(my ($k, $edge) = each %{$module->[0]}) {
    next unless exists $modules{$k}; # only pugs modules
    my $color = $edge->[1] ? 'green' : $edge- <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14887	14980	
==>ot> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14887	14980	
==>ot> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_ent <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1807	1900	
==>)')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1807	1900	
==>)')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1807	1900	
==>)')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (a <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1604	1702	
==>s:
# Currently at 92% pass. 3sec run on my machine.

# Sidebar: State of Regexp::Parser's Perl6::Ru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15686	15783	
==>apers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the language interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15686	15783	
==>apers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the language interfac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2879	2974	
==>ool::false;
}

method no_names_exist of Bool (Relation::AttrName *@attr_names) {
    return !$?S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36592	36685	
==>quivalent human readable text message
string; this assumes that a Template corresponding to th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36592	36685	
==>quivalent human readable text message
string; this assumes that a Template corresponding to th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6412	6517	
==>ssuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Gramma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6196	6299	
==>ssuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5155	5255	
==>method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5155	5255	
==>method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5155	5255	
==>method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_method('cla <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2714	2897	
==>ike dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	829	955	
==>med_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	829	955	
==>med_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9647	9853	
==>es}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta obj <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11124	11330	
==>es}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta obj <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	662	759	
==>ks due to confusion between Perl and C";
	shift()->cc_lib_links(@_);
}

sub optimize_flags {
	warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6229	6359	
==>'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6229	6359	
==>'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6229	6359	
==>'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1776	1931	
==>"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1717	1868	
==>"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5674	5790	
==>c;
    return $S->object(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10645	10751	
==>> do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10883	10989	
==>> do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11075	11181	
==>> do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1252	1387	
==>[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1252	1387	
==>[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1252	1387	
==>[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain global 
    # ch <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1421	1558	
==>(
        name => '!',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2114	2216	
==>ort for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (f <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2114	2216	
==>ort for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (f <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	846	967	
==>dir now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C $my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3259	3362	
==>handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3259	3362	
==>handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5387	5490	
==>nt "$rev_get_cmd returns revision '@{[$self->{_revision}]}'\n";
}

sub run {
    my $self = shift;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5459	5582	
==>all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5459	5582	
==>all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5459	5582	
==>all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_method_list) {
            # if we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1046	1155	
==>e need to now create these attributes in all the currently live instances
# of Class (which are ::Class, ::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1046	1155	
==>e need to now create these attributes in all the currently live instances
# of Class (which are ::Class, ::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1046	1155	
==>e need to now create these attributes in all the currently live instances
# of Class (which are ::Class, ::Pac <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15742	15879	
==>ganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19975	20112	
==>ganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1117	1210	
==>emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1117	1210	
==>emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} ) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	508	634	
==>it, of course.

=cut

sub new {
    my($proto, $thing) = @_;

    my $self = {};
    if( ref $thing eq 'GLOB' ) {
        bless <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8729	8840	
==>\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9564	9675	
==>\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8236	8365	
==>ist literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8236	8365	
==>ist literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8236	8365	
==>ist literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        backup <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2138	2235	
==>eturn !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2138	2235	
==>eturn !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5384	5517	
==>f $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (patte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5384	5517	
==>f $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (patte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5384	5517	
==>f $multiline;
    $matcher = sub ($string) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (patte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9692	9816	
==>ype does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9692	9816	
==>ype does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9692	9816	
==>ype does not match - should return " . $self->returns->name
                    if defined $self->returns && ! $self->returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2175	2281	
==>subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2175	2281	
==>subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2175	2281	
==>subs will already have lost their lexpad
  # info.
  # The s/sub/our sub/ hack is semantically relatively h <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3256	3386	
==>en ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3256	3386	
==>en ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4344	4490	
==>ispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4344	4490	
==>ispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4344	4490	
==>ispatcher->()) {    
        #warn 'Hello there ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1077	1192	
==>)) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_contai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1077	1192	
==>)) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_contai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1077	1192	
==>)) {
            my $attr_obj = $c->get_attribute($attr);
            $attrs{$attr} = ::instantiate_attribute_contai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1439	1542	
==>_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1439	1542	
==>_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1439	1542	
==>_lvalue

# TODO - slurpy parameter spec should generate a boxed Array or Hash

# TODO - XXX - in Code->d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6852	6946	
==>nline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6852	6946	
==>nline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6852	6946	
==>nline('(function (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1092	1206	
==>eys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1092	1206	
==>eys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1092	1206	
==>eys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkPos";
  }

  sub as_string {
    my ($file, $line_st <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1551	1714	
==>ew(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1551	1714	
==>ew(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    e <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11968	12085	
==>gs::Internals::runInteractiveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirecti <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11004	11113	
==>}})));");
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__,$namestr,$code_val));";
    }
    $code;
}

my % <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	884	978	
==>y-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	884	978	
==>y-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Conten <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1263	1378	
==>x //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1263	1378	
==>x //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26915	27011	
==>x0400000 /* Can trust a positive answer */
 #define REINT_AUTORITATIVE_ML	0x0800000 
 #define REI <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	666	796	
==>$char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	666	796	
==>$char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	277	376	
==>se FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
require 'em <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	934	1064	
==>TP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named bi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	934	1064	
==>TP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6247	6400	
==>ed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6247	6400	
==>ed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6247	6400	
==>ed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = regexp.e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30047	30168	
==>m_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30047	30168	
==>m_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30047	30168	
==>m_list {
    my $class = shift;
    $class->new( items => [@_] );
}

sub _shift_n { 
    my $array = shift;
    my $length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17864	18029	
==>my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17864	18029	
==>my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17864	18029	
==>my $ret = Array->new();
                    my @result = $tmp->$method( @param )->items;
                    $ret->unboxed->push( @result );
                    #warn <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1710	1840	
==>compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Pars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1710	1840	
==>compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Pars <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14160	14269	
==>string target
    .local int pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .local string cname
    newf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9674	9812	
==>ice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9674	9812	
==>ice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->spl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9674	9812	
==>ice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_ary_elems;
            my $slice = $other->spl <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4188	4292	
==>$category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? "release" : "reposito <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1337	1437	
==>r)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1337	1437	
==>r)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	862	982	
==>if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { s <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4156	4273	
==>nt;

    method dispatch {
        dispatch($?SELF, $.subscription.subscriber);
    }
    
    method dispatch (Code & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	875	990	
==>if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1160	1314	
==>utes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1160	1314	
==>utes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1160	1314	
==>utes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that co <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7972	8079	
==>pan0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7972	8079	
==>pan0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3387	3478	
==>thod('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3387	3478	
==>thod('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3387	3478	
==>thod('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11127	11242	
==>e::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11127	11242	
==>e::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11127	11242	
==>e::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1703	1870	
==>ortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Arra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8010	8117	
==>for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8010	8117	
==>for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5425	5559	
==>{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5425	5559	
==>{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5425	5559	
==>{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2639	2797	
==>al {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $si <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10008	10109	
==>l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in P <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10008	10109	
==>l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1079	1234	
==>} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown paramete <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1219	1374	
==>} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown paramete <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11715	11806	
==>st_of_line(T).
rest_of_line([]).


p6_octidecimal_escape_sequence(X) --> "\\0", p6_oct_spec( <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3815	3929	
==>ig;
    $self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my($self) = @_;
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	128	268	
==>:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	128	268	
==>:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	128	268	
==>:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6 <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17593	17703	
==>ssionNoIn :words {  # see 11.10
      <BitwiseXORExpressionNoIn>
    | <BitwiseORExpressionNoIn> <'|'> <Bitwise <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4465	4559	
==>n version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4465	4559	
==>n version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26897	27044	
==>',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "" <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3551	3654	
==>, *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3919	4022	
==>, *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33633	33725	
==>is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38183	38275	
==>is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36476	36575	
==>hich any two source relations are
combined is inconsequential.  A trivial case is where C<@others> i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41025	41124	
==>hich any two source relations are
combined is inconsequential.  A trivial case is where C<@others> i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40639	40738	
==>hich any two source relations are
combined is inconsequential.  A trivial case is where C<@others> i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24514	24611	
==>f 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29066	29163	
==>f 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27942	28039	
==>f 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () returns <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2950	3052	
==>$other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6427	6529	
==>$other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5366	5468	
==>$other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SELF <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43667	43861	
==>al')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6147	6250	
==>he string set in advance with the prune method.

This feature is useful, like custom, for when you don't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6147	6250	
==>he string set in advance with the prune method.

This feature is useful, like custom, for when you don't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6147	6250	
==>he string set in advance with the prune method.

This feature is useful, like custom, for when you don't <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2328	2450	
==>ll a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2328	2450	
==>ll a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10933	11069	
==>};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print cal <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8005	8134	
==>};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print cal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8005	8134	
==>};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10374	10477	
==>method resolve () { "<implemented>" }

    # -----------------------------------------------    
    # N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10374	10477	
==>method resolve () { "<implemented>" }

    # -----------------------------------------------    
    # N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10374	10477	
==>method resolve () { "<implemented>" }

    # -----------------------------------------------    
    # N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2634	2746	
==>=> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2634	2746	
==>=> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2634	2746	
==>=> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a Perl 6 func.
    # undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	963	1097	
==>($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	963	1097	
==>($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	963	1097	
==>($token eq '{') {
            $self->env->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_clas <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9903	9998	
==>_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unl <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9903	9998	
==>_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unl <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1926	2024	
==>if ( (substr $target, $from, 1) =~ /[:space:]/ )
  {
    $matchObj->position( $matchObj->from() + 1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23190	23286	
==>istinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27742	27838	
==>istinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2	112	
==>Parameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2	112	
==>Parameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2	112	
==>Parameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subb <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	624	745	
==>ree )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16212	16299	
==>much@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16270	16357	
==>much@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1440	1580	
==>of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1440	1580	
==>of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1440	1580	
==>of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	865	983	
==>special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	865	983	
==>special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9308	9420	
==>r::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9308	9420	
==>r::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9308	9420	
==>r::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@g <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	194	341	
==>\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s*
        # time - optional, defaults to 0:00
        ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	704	806	
==>$last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	704	806	
==>$last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1023	1131	
==>) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1023	1131	
==>) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1023	1131	
==>) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6319	6464	
==>thod('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'Sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6319	6464	
==>thod('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'Sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6319	6464	
==>thod('$class' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'Sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3152	3259	
==>$arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3152	3259	
==>$arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3152	3259	
==>$arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unless $arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1574	1682	
==>que_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1574	1682	
==>que_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1574	1682	
==>que_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && blessed($insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3731	3831	
==>am_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3731	3831	
==>am_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4321	4421	
==>am_name}++;
	}
	elsif ($param->named_only) {
	    croak "named argument ".$param->name." is required" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5139	5243	
==>d sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5139	5243	
==>d sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5139	5243	
==>d sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4701	4829	
==>as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4701	4829	
==>as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4701	4829	
==>as_js2 {
    my $self = shift;
    my $name = $self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1390	1519	
==>le = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

= <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1390	1519	
==>le = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

= <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1505	1634	
==>wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or somesuch.

# Test status:
# Currently at 92% pass. 3se <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16862	16981	
==>6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not cor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16862	16981	
==>6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not cor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16862	16981	
==>6::Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not cor <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11393	11524	
==>KT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $? <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11393	11524	
==>KT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5114	5244	
==>oc => 'list', list => [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9094	9368	
==>SH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5454	5728	
==>SH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6303	6577	
==>SH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2100	2185	
==>equote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2100	2185	
==>equote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2100	2185	
==>equote(($self->name =~ /^&.*::(?:prefix:|postfix:|infix:|circumfix:|coerce:|self:|term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1579	1744	
==>ER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1579	1744	
==>ER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1579	1744	
==>ER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11807	11963	
==>ll', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rena <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11807	11963	
==>ll', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rena <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11807	11963	
==>ll', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XXX - just rena <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4901	5008	
==>== $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4901	5008	
==>== $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4901	5008	
==>== $::Class;
    return 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9929	10072	
==>ems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9929	10072	
==>ems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9929	10072	
==>ems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1890	1990	
==>s>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1115	1212	
==>, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, : <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1173	1270	
==>, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, : <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7616	7742	
==>nt' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7616	7742	
==>nt' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $spa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10313	10431	
==>t{max}) {
                print "$test{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4986	5099	
==>s "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4986	5099	
==>s "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4986	5099	
==>s "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT "$pil\n";
}

sub command_e {
  my $js = eval { jsb <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5617	5801	
==>rectories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => loc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1473	1593	
==>me );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1473	1593	
==>me );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5163	5275	
==>);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan}<u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5163	5275	
==>);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan}<u <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2205	2313	
==>n POD 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The root directory of the output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12901	13015	
==>ify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12901	13015	
==>ify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12901	13015	
==>ify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3140	3294	
==>ect',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opa <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	35	180	
==>se strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3868	3996	
==>ect',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	618	752	
==>slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	618	752	
==>slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	618	752	
==>slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output = "-";
my $yaml_dump;

GetOptions(
  "verbose"            => \$verbos <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	634	771	
==>\{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	634	771	
==>\{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	634	771	
==>\{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	301	407	
==>e(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        I <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	301	407	
==>e(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        I <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8455	8546	
==>e same symbol, and are also unified recursively
multi unify => ('type::operator::binary', 't <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22374	22514	
==>n if $is_absolute_name;
    $mn = $pkg."::".$mn if !$is_absolute_name && $pkg;
    $mn;
}    

sub p6_apply {
    my($f,@args)=@_;
    #print <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25923	26015	
==>in
addition to preserving this original copyright notice and other credits.
Rosetta is distri <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25923	26015	
==>in
addition to preserving this original copyright notice and other credits.
Rosetta is distri <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6987	7172	
==>_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        } <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6987	7172	
==>_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        } <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5916	6032	
==>ot implemented\n"; # use MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($varlist)$init;";
    }
    elsif($sn eq 'ou <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7498	7600	
==>ues;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::join (@values ;  Str $de <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	555	668	
==>=> sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	652	765	
==>=> sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1509	1617	
==>t exists $SEEN{$class}) {
        $output .= _draw_class_node($class);
        $output .= "node_" . $class->c <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2267	2389	
==>'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2267	2389	
==>'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9872	10025	
==>, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9872	10025	
==>, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9872	10025	
==>, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() },
            'AUTOLOAD' => sub {
                my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4107	4212	
==>ox.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4107	4212	
==>ox.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4107	4212	
==>ox.Constant(function (args) {
    var a = args[1].FETCH(), b = args[2].FETCH(), cc = args.pop();
    cc(ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	126	238	
==>use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	126	238	
==>use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	126	238	
==>use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3172	3267	
==>conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3172	3267	
==>conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3172	3267	
==>conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $cfg <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21300	21395	
==>key is an attribute name and each Mapping value
is the corresponding attribute value.

Every Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25852	25947	
==>key is an attribute name and each Mapping value
is the corresponding attribute value.

Every Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24476	24571	
==>key is an attribute name and each Mapping value
is the corresponding attribute value.

Every Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4806	4908	
==>ce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4806	4908	
==>ce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4806	4908	
==>ce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $me <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	105	202	
==>Objektes (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.new <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8978	9072	
==>ments, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8978	9072	
==>ments, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2588	2734	
==>ue
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2588	2734	
==>ue
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2588	2734	
==>ue
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12142	12272	
==>);
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Builder: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2544	2660	
==>);
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2544	2660	
==>);
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Builder: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1860	1959	
==>e,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15974	16071	
==>s that use these compilation modules get compiled into some
altered form the first time they are r <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15974	16071	
==>s that use these compilation modules get compiled into some
altered form the first time they are r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3211	3369	
==>ivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3211	3369	
==>ivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3211	3369	
==>ivifiers = ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1446	1550	
==>lass->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1446	1550	
==>lass->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1446	1550	
==>lass->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = :: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37910	38007	
==>h source relation
with every tuple of each other source relation, then where each member of a
tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42459	42556	
==>h source relation
with every tuple of each other source relation, then where each member of a
tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42109	42206	
==>h source relation
with every tuple of each other source relation, then where each member of a
tupl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6866	6989	
==>move 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6866	6989	
==>move 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	913	1019	
==>{
			$type = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie::M <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15470	15569	
==>object )` / `set_end( $object )`

Change the start or end value of the span.

These methods may rais <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15470	15569	
==>object )` / `set_end( $object )`

Change the start or end value of the span.

These methods may rais <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2269	2369	
==>nstant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2269	2369	
==>nstant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2269	2369	
==>nstant' warnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8002	8102	
==>eduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8002	8102	
==>eduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5649	5747	
==>w('$.real'=>$_[0],'$.imag'=>$_[1]) if $cls eq 'Complex';
    return new_box('Str',@_) if $cls eq 'S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2585	2744	
==>},        
        'description' => sub { _('$.description') },        
        'status' => sub {
            return {
                passed      => _('$.passe <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2629	2760	
==>ute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leadin <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2629	2760	
==>ute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leadin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3658	3750	
==>= <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3658	3750	
==>= <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3658	3750	
==>= <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	627	726	
==>stead of "print STDERR" when outputing failure diagnostic
# messages
sub _diag {
    return unless @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6050	6149	
==>(assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5841	5938	
==>(assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17387	17485	
==>ow-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17387	17485	
==>ow-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17387	17485	
==>ow-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E< <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4225	4350	
==>',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4225	4350	
==>',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1075	1200	
==>',             'PExp', 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3357	3503	
==>d = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4206	4352	
==>d = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1545	1636	
==>in(" ", $.name, layout($.param)) }
type::operator::nary: level($.param) = { level($$) }

ROO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3180	3432	
==>} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3180	3432	
==>} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by th <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11401	11533	
==>efore/tied with/after the
second in the final ordering of the List. aka "The Perl 5 way"

=item KeyExtractor

A closure with arity of <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1644	1756	
==>(Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5121	5233	
==>(Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4051	4163	
==>(Set of Str :$heading? = set(),
        Set of Mapping(Str) of Any :$body? = set()) {

    for $body.values -> $t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3645	3769	
==>r(Params::Check->last_error), return;

    return $version if $version =~ /^\.?\d/;
    return '0.0';
}

=pod

=head2 JIB::Ut <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12399	12494	
==>res.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we h <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12399	12494	
==>res.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	293	397	
==>od JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	293	397	
==>od JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	293	397	
==>od JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26463	26562	
==>you
may store references to other objects in them if you wish.

=back

This is the main Message cons <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26463	26562	
==>you
may store references to other objects in them if you wish.

=back

This is the main Message cons <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15219	15327	
==>>/ >> is equivalent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr() method for you right there!)

=item R <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	578	678	
==>y simply a source code generator.
   Which also addresses the problem that macros are currently
   qu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	578	678	
==>y simply a source code generator.
   Which also addresses the problem that macros are currently
   qu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	15	102	
==>::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	146	233	
==>::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5033	5156	
==>//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5033	5156	
==>//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5033	5156	
==>//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1194	1287	
==>inder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extract <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1194	1287	
==>inder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extract <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2879	2982	
==>elf = shift;
    my $top_class = ref($self->_top) || '';
    my $top_version = $self->_top->VERSION || ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24719	24819	
==>dText indicates a failure is to throw an
exception; most often this is due to invalid input.  If an i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24719	24819	
==>dText indicates a failure is to throw an
exception; most often this is due to invalid input.  If an i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	873	1001	
==>me   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	873	1001	
==>me   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	873	1001	
==>me   = exportList[i];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	24	146	
==>ict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	24	146	
==>ict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	24	146	
==>ict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1119	1257	
==>x:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = " <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1119	1257	
==>x:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = " <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3733	3893	
==>-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3733	3893	
==>-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6111	6200	
==>n { sub_decl => $() ,} }
RULE
*{'sub_defin'} = Pugs::Compiler::Rule->compile(<<'RULE')->co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1695	1835	
==>terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1695	1835	
==>terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4551	4652	
==>sed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4551	4652	
==>sed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6748	6849	
==>sed> parameters. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should c <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2693	2816	
==>ogram
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) | <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2693	2816	
==>ogram
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) | <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4913	5013	
==>rns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $co <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4971	5071	
==>rns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4011	4117	
==>ction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4011	4117	
==>ction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal erro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4011	4117	
==>ction () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal erro <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13484	13591	
==>t, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_ho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13484	13591	
==>t, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_ho <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2706	2889	
==>ry
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_tex <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2706	2889	
==>ry
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_tex <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3531	3628	
==>ke($_) } glob "pugs-smoke-*.html";
  push @{ $cats{$category->($_)} }, $_ for @smokes;

  $cats{$_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1929	2080	
==>ermutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1929	2080	
==>ermutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %chann <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17088	17220	
==>($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n) is primitive is safe {
        Num::round_gen($n, &Num::do_floor)
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2590	2721	
==>}

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2590	2721	
==>}

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2590	2721	
==>}

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defined ==> It's a call to a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	651	759	
==>rsion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subno <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	651	759	
==>rsion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subno <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	651	759	
==>rsion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL::Run::EvalX::subno <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3493	3596	
==>f +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute nam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6970	7073	
==>f +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute nam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5927	6030	
==>f +all( $mapping.values ) != +$mapping.values;
    die "Some values of $mapping! duplicate attribute nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4541	4641	
==>ue () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4541	4641	
==>ue () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4541	4641	
==>ue () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time::HiRe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16244	16351	
==>m_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16244	16351	
==>m_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16244	16351	
==>m_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MUL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9875	10021	
==>,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10154	10300	
==>,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13662	13761	
==>engine and the perl compiler have an overly friendly
  relationship.  There may end up being a gotch <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1060	1172	
==>od remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!membe <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1060	1172	
==>od remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1362	1467	
==>d($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1362	1467	
==>d($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1362	1467	
==>d($method) eq 'Perl6::ClassMethod') {
        #    ::opaque_instance_attr($self => '%:class_methods')->{$l <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5359	5486	
==>ption>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Record <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5359	5486	
==>ption>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Record <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6883	7010	
==>ption>, but marks it as a TODO test with an optional
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Record <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	396	505	
==>N_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	396	505	
==>N_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	396	505	
==>N_SUBLIKE = undef;
our @IN_SUBLIKES;

# What's the name of the sub we're currently in?
our $CUR_SUBNAME;

# Ou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1265	1381	
==>_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1265	1381	
==>_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18468	18570	
==>le ConditionalExpressionNoIn :words {  # see 11.12
      <LogicalORExpressionNoIn>
    | <LogicalORExpr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3537	3685	
==>ason) = @_;
            $reason ||= '';
            _('$.output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_test <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7888	8038	
==>the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8352	8502	
==>the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16	121	
==>=pod
2005 September 7

This file is a development snapshot of the prolog regex engine I
started over the w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5422	5529	
==>t::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5422	5529	
==>t::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5422	5529	
==>t::uniq(Code $cmp is copy = &infix:<cmp>, *@array) is primitive {
  # Hack
  unless $cmp.isa("Code") {
    u <==
3	/Users/nnunley/pugs/util/importgraph.pl	246	348	
==>gs;
use File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @i <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1514	1608	
==>DME> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> director <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1514	1608	
==>DME> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> director <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24029	24186	
==>empt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24029	24186	
==>empt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24029	24186	
==>empt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1296	1432	
==>ut it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1296	1432	
==>ut it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1296	1432	
==>ut it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3271	3423	
==>") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3271	3423	
==>") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3271	3423	
==>") {
    my @res;
    for $self.keys {
        push @res, $_, undef;
        @res[-1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	766	894	
==>macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	766	894	
==>macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	766	894	
==>macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchab <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4477	4585	
==>JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4477	4585	
==>JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4477	4585	
==>JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24371	24474	
==>ap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24371	24474	
==>ap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24371	24474	
==>ap],{},@-[0],@+[0]);
	} else {
	    $m = Match_new()->set_as_failed();
	}
	p6_set(p6_var('$/',2),$m);
	$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4258	4367	
==>d_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4258	4367	
==>d_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4258	4367	
==>d_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
});

::Cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5244	5356	
==>x) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5244	5356	
==>x) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5244	5356	
==>x) };
# MULTI SUB clone ($xx) { $xx->clone };
MULTI SUB chop ($xx)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1931	2031	
==>aseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUnd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1931	2031	
==>aseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUnd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1931	2031	
==>aseClass); sub expand {
    my($self)=@_;
    if (defined $self->{'pVal'} && $self->{'pVal'} eq "VUnd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	220	324	
==>oles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	220	324	
==>oles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	220	324	
==>oles (traits) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3156	3286	
==>ned {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3156	3286	
==>ned {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1174	1289	
==>, @_ );
}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31008	31181	
==>[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31008	31181	
==>[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31008	31181	
==>[0]->elems > 0 ) {
                # my $i = $tmp[0]->shift;
                my $li = $tmp[0];
                my $diff = $length - $ret_length;
                my $i = $li-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25307	25429	
==>?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	123	224	
==>.'.pm'};
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAG <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5655	5787	
==>$n->{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22541	22781	
==>IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22541	22781	
==>IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22541	22781	
==>IS A SCALAR: $elem";
                        $scalar = $elem;
                    }
                    else
                    {
                        #warn "FETCHED CELL IS NOT YET A SCALAR: $elem [ @param ]";
                        $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12954	13088	
==>CE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6429	6563	
==>CE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19452	19553	
==>s+1.
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18604	18697	
==>$xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18604	18697	
==>$xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18604	18697	
==>$xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) };
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	22	138	
==>eLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	22	138	
==>eLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	22	138	
==>eLog
#
# 2005-09-27
# * created this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1235	1338	
==>_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1235	1338	
==>_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5448	5636	
==>step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5448	5636	
==>step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5448	5636	
==>step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = shift;
            my $length = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17773	17938	
==>',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17773	17938	
==>',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22649	22748	
==>gs...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this current version, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5855	5970	
==>\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5855	5970	
==>\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4191	4355	
==>bel, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4191	4355	
==>bel, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher & <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4191	4355	
==>bel, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (defined $dispatcher & <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1197	1308	
==>e = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1197	1308	
==>e = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28100	28209	
==>$self: get_attr (symbol new @:MRO)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1356	1460	
==>ut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_pre <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1356	1460	
==>ut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_pre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29366	29486	
==>INGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29366	29486	
==>INGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[Salut!],
        'M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	194	302	
==>INGS is readonly = (
    'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
    'MYAPP_GOODBYE' => q[Salut!],
    'M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23745	23848	
==>m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23745	23848	
==>m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23745	23848	
==>m = join("",$mods->keys) if defined $mods;
    eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_co <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1590	1716	
==>ol',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4685	4810	
==>ol',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4685	4810	
==>ol',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2984	3085	
==>\"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2984	3085	
==>\"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2984	3085	
==>\"$file\": $!\n";
}

sub usage { print STDERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and ru <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1378	1491	
==>' => $::TestBuilder->FETCH('::TestPlan')->new( '$.expect' => $tests ));
            }
            elsif ($explanat <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2992	3104	
==>)
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2992	3104	
==>)
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2936	3057	
==>rm,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2947	3068	
==>rm,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifi <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14625	14713	
==>nel   /boot/vmlinuz root=/dev/ram rw init=/linuxrc ramdisk_size=$initrd_size quiet
initrd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	486	591	
==>:EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	486	591	
==>:EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	486	591	
==>:EvalX::pugs);
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; exit; },
    ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12069	12235	
==>my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12069	12235	
==>my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12069	12235	
==>my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->params }[$i];
                    my $candi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25038	25135	
==>.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special exception, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25038	25135	
==>.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special exception, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15063	15162	
==>ores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15063	15162	
==>ores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19149	19243	
==>t::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19149	19243	
==>t::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5396	5569	
==>l  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->from ),
                named => <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	704	811	
==>ase::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub DESTROY {}

p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6148	6251	
==>g for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' ' <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6206	6309	
==>g for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6631	6766	
==>me (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6631	6766	
==>me (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6631	6766	
==>me (keys %{$body->{submethods}}) {
                $new_role->add_method($method_name => ::make_submethod(
                    $body->{s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	118	365	
==>edText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	118	365	
==>edText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40777	40877	
==>urned Relation::Example is identical to the
invocant.  Another trivial case is where any any source r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5864	5965	
==>kip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5864	5965	
==>kip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8061	8162	
==>kip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16374	16464	
==>-level
programming language named "Rosetta D", which is computationally complete
(and indus <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16374	16464	
==>-level
programming language named "Rosetta D", which is computationally complete
(and indus <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13453	13574	
==>ove-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # C <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13453	13574	
==>ove-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2547	2657	
==>@res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2547	2657	
==>@res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2547	2657	
==>@res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method doesn't <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5345	5497	
==>n
            # checked and don't want the checker to have to deal with
            # uninitialized vars.
            foreach my $piece (qw(name type rea <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9161	9274	
==>een_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any < <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9161	9274	
==>een_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7694	7786	
==>f "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7694	7786	
==>f "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7694	7786	
==>f "PIL2JS.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arit <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24259	24378	
==>riMark>
}
rule uriEscaped {  # see 15.1.3
      <'%'> <HexDigit> <HexDigit>
}
rule uriAlpha {  # see 15.1.3
      <[a..z <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1162	1257	
==>erently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put any <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1162	1257	
==>erently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put any <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3565	3699	
==>lf[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3565	3699	
==>lf[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3565	3699	
==>lf[$_];
    }
    @res;
  } else {
    die ".kv does not work on objects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3925	4030	
==>e Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3925	4030	
==>e Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3925	4030	
==>e Perl6::Value::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. G <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1546	1648	
==>gs[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1546	1648	
==>gs[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1546	1648	
==>gs[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1002	1155	
==>v->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1002	1155	
==>v->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1002	1155	
==>v->enter_scope;
        }
        elsif ($token eq '}') {
            $self->_close_current_class unless $in_method;            
            $self->env->l <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	937	1038	
==>han_or_equal_to    { $_[0]->_compare($_[1]) <= 0  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8581	8678	
==>urns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8581	8678	
==>urns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.me <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8012	8102	
==>_) };
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1837	1927	
==>_) };
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @stateme <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6805	6919	
==>ool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6805	6919	
==>ool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3704	3818	
==>ool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  ' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4713	4809	
==>st.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4713	4809	
==>st.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6910	7006	
==>st.

=item C<?$description = ''>

This parameter and contains the test description.

=back

=back <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1237	1377	
==>ath(archlib            => $config); 
    add_path(privlib            => $config); 
    add_path(sitearch           => $config); 
    add_path <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	388	489	
==>~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	388	489	
==>~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9979	10092	
==>ation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13456	13569	
==>ation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second sou <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	320	440	
==>t  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6603	6713	
==>p }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6603	6713	
==>p }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20574	20669	
==>ind binmode chown close closedir connect eof fcntl
# fileno flock getc getpeername
# /[get|set][ <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	371	498	
==>e $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module was autom <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15872	15972	
==>"closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and ` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15872	15972	
==>"closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and ` <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	722	860	
==>ode ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	722	860	
==>ode ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1908	2031	
==>es'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->fe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8118	8233	
==>@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8106	8221	
==>@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5027	5174	
==>\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: Code)\
\\n   List      pre     grep    safe   (Arra <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31187	31284	
==>eturns a new Relation
which has a subset of the original's tuples, and it works like Perl's
standa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35737	35834	
==>eturns a new Relation
which has a subset of the original's tuples, and it works like Perl's
standa <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2061	2174	
==>omplement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2061	2174	
==>omplement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5220	5336	
==>turn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5220	5336	
==>turn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12687	12832	
==>CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12687	12832	
==>CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12687	12832	
==>CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These method <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	862	966	
==>$out;
}

sub make_name {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node} ||= '$node_' . ++$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	284	382	
==>:Attribute;
use Perl6::MM::C3;

use Carp 'confess';
use Scalar::Util 'blessed';

# create our basic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6234	6331	
==>s of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($iBar->cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4157	4267	
==>>defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".joi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4157	4267	
==>>defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".joi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4157	4267	
==>>defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".joi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11940	12047	
==>nd Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11940	12047	
==>nd Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11940	12047	
==>nd Roles are unified. THis is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7715	7814	
==>default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7715	7814	
==>default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7715	7814	
==>default version 
## of this from taking over which would make
## things like: FooRole.isa(FooRole) t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3919	4015	
==>_instance_attr($self => '@:roles');
}));

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3919	4015	
==>_instance_attr($self => '@:roles');
}));

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3919	4015	
==>_instance_attr($self => '@:roles');
}));

## ---------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3168	3264	
==>e: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3168	3264	
==>e: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3168	3264	
==>e: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    return;
  }

  $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3865	3960	
==>::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator cla <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3865	3960	
==>::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator cla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6591	6692	
==>uly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6591	6692	
==>uly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8788	8889	
==>uly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3778	3882	
==>{
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3778	3882	
==>{
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3778	3882	
==>{
    my($name,$defined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7141	7256	
==>ontext({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7141	7256	
==>ontext({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doubl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7141	7256	
==>ontext({ main: %s, type: %s })",
      PIL::doublequote($_[0]->main),
      defined $_[0]->type
        ? PIL::doubl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12409	12525	
==>_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12409	12525	
==>_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12409	12525	
==>_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_insta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12530	12629	
==>nd then pass the result to is or ok
on success, or report that the eval was not successful on failur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12588	12687	
==>nd then pass the result to is or ok
on success, or report that the eval was not successful on failur <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15572	15670	
==>bjects, and makes 'min' and 'max' attributes of
other objects themselves.

=item Regexp::Explain (p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12591	12748	
==>] better written as $a[1]"
        if (   (  exists $n->{exp2}{int} 
               || exists $n->{exp2}{scalar} 
               ) 
               && exis <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26259	26357	
==>es; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30811	30909	
==>es; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	328	435	
==>eturns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(rep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	328	435	
==>eturns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(rep <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	328	435	
==>eturns Class {
    $canidate //= 'P6opaque'; # opaque is our default
    my Class $self = $?CLASS.CREATE(rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	35	144	
==>$right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	35	144	
==>$right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	35	144	
==>$right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa(Str) {
    $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9382	9522	
==>| {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
} <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9382	9522	
==>| {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
} <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5279	5400	
==>'short'>
    | <'boolean'>
    | <'export'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13076	13180	
==>sult =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13076	13180	
==>sult =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9357	9452	
==>to access a specific capture group, pass its numerical
value:

  my $capture_2 = $parser->captur <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1650	1794	
==>ub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .va <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1650	1794	
==>ub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .va <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	225	321	
==>::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	225	321	
==>::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	225	321	
==>::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Ma <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3068	3236	
==>e_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix>-<name>
            ### impl <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	360	483	
==>,  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTIT <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	360	483	
==>,  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTIT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11152	11293	
==>lass";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11152	11293	
==>lass";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11152	11293	
==>lass";          
    }

    # we use this to store the 
    # memoized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19020	19126	
==>= [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20378	20484	
==>= [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34379	34476	
==>ite the supporting class for the F<Regexp::AndBranch::and> object it
creates!

A method call for a <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5878	6012	
==>ssed
    max             Number of individual tests ran
    ok              Number of individual tests passed
    sub_skipped     Numbe <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13830	13954	
==>($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1310	1434	
==>($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $se <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16428	16538	
==>($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param string grammar      :optio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14885	14981	
==>g sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used headers can also be acce <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14885	14981	
==>g sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used headers can also be acce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7433	7546	
==>ER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7433	7546	
==>ER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7433	7546	
==>ER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for EigenClass methods
                || confess "Cannot call privat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3375	3488	
==>)->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3375	3488	
==>)->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3375	3488	
==>)->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5898	6008	
==>tion of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLAS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5898	6008	
==>tion of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLAS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5898	6008	
==>tion of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLAS <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1775	1880	
==>reen = "splashscreen.txt";
my $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	800	898	
==>nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	800	898	
==>nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	214	313	
==>onstant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	214	313	
==>onstant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	214	313	
==>onstant(function (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1928	2023	
==>ll::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1928	2023	
==>ll::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1928	2023	
==>ll::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5109	5228	
==>i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5109	5228	
==>i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5109	5228	
==>i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')') <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1594	1695	
==>e 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <I <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1594	1695	
==>e 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6740	6928	
==>t;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6740	6928	
==>t;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6740	6928	
==>t;
                        #warn "PREBOUND @args, @_";
                        return $self->do( @args, @_ );
                    },
                    '$.name' => $self->name . '_Curried_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3222	3400	
==>) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3222	3400	
==>) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3222	3400	
==>) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9901	10051	
==>('$$' => sub {
    my ($S) = @_;

    if ($S->match_scalar) {
    }

    return $S->object(eol => eol => '$$');
  });


  ### '@'


  ### '%'


  ### ' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	554	651	
==>eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	554	651	
==>eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3337	3459	
==>time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3337	3459	
==>time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3337	3459	
==>time.
    $native = undef
      if not defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41310	41397	
==>005.03.21, provided feedback towards improving this module's
documentation, particularly <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41310	41397	
==>005.03.21, provided feedback towards improving this module's
documentation, particularly <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	68	203	
==>RT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	68	203	
==>RT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	68	203	
==>RT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_isa
       p6_to_b
       p6_to_n
       p6_t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1992	2101	
==>z(tz "UTC") ) + $epoch;
}

method nanosecond returns Int {
    my $sec = $.second;
    my $round_sec = int($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38766	38880	
==>{
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38766	38880	
==>{
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list ob <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38766	38880	
==>{
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return the internal list ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17045	17157	
==>ME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17045	17157	
==>ME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17045	17157	
==>ME

Perl6::Value - Perl6 boxed and unboxed Values

=head1 SYNOPSIS

  use Perl6::Value;
  
  # unboxed Perl5 valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5308	5418	
==>x)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5308	5418	
==>x)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5308	5418	
==>x)  {...};
MULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1043	1169	
==>$err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    u <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7649	7755	
==>ift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7649	7755	
==>ift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	791	973	
==>ent, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	791	973	
==>ent, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) { <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23934	24046	
==>riCharacter {  # see 15.1.3
      <uriReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserved {  # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3028	3230	
==>\+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3275	3477	
==>\+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6274	6360	
==>*)}(?{ &::hlp_rule;})');
my $x4 = def_stmt_prim('bs_stmt_decl','\s*macro\s+statement_co <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4815	4957	
==>ze, too big.\n";
        }
        else {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8325	8439	
==>urn unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8518	8632	
==>urn unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       , <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	728	824	
==>decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used to 
s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	728	824	
==>decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used to 
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2357	2488	
==>{
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2604	2735	
==>{
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1113	1221	
==>);
}

1;

__END__

=pod

=head1 NAME

symbol - the core symbol type

=head1 METHODS

=over 4

=item B<new (*n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10749	10847	
==>erminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> <SourceCharacter>
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5187	5309	
==>@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5187	5309	
==>@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5187	5309	
==>@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6158	6265	
==>et in advance with the prune method.

This feature is useful, like custom, for when you don't want to mess
w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6158	6265	
==>et in advance with the prune method.

This feature is useful, like custom, for when you don't want to mess
w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6158	6265	
==>et in advance with the prune method.

This feature is useful, like custom, for when you don't want to mess
w <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17545	17709	
==>s -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21022	21186	
==>s -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = map <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20609	20773	
==>s -> $t1 {
                $t1common_m = mapping( $t1.pairs.map:{
                    $_.key === any( $common_h )
                } )
                $t1only_m = map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4919	5062	
==>E_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4919	5062	
==>E_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4919	5062	
==>E_PREFIX        = "";
  local %UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11290	11429	
==>i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11290	11429	
==>i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11290	11429	
==>i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS.Box.Proxy(
        function ()  { return ret },
        fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2023	2128	
==>emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the ti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2023	2128	
==>emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the ti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2023	2128	
==>emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work around this; by the ti <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17499	17643	
==>$str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $len) if $len <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2459	2587	
==>ct[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2459	2587	
==>ct[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3293	3408	
==>{

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6770	6885	
==>{

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5727	5842	
==>{

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.keys ) === a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3010	3108	
==>(@array, @array.elems, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Array:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4531	4626	
==>($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4531	4626	
==>($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2304	2396	
==>comp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $preco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2304	2396	
==>comp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $preco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2304	2396	
==>comp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $preco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1335	1425	
==>obal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1335	1425	
==>obal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1335	1425	
==>obal_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21809	21923	
==>ject(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18230	18344	
==>ject(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	959	1070	
==>{
    my $self = shift;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	921	1043	
==>is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	921	1043	
==>is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	921	1043	
==>is necessary to make the contents of hashes
        // readwrite, i.e. my %a = (a => 1); %a<a> = ... should work.
        h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2525	2631	
==>le($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2525	2631	
==>le($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2525	2631	
==>le($_)} @vars;# XXX - ApiX abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $bo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2758	2937	
==>d exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6235	6414	
==>d exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5165	5344	
==>d exists (Mapping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equa <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	432	526	
==>s@ --verbose|v --touch --output|o=s --keep|k);

touch() if $Config{touch};

setup_output();

in <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3542	3670	
==>.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <MultiLineComment>
    | <SingleLineComment>
}
r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32491	32581	
==>dText::Translator Class

While a Translator object stores some attributes for configuration <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32491	32581	
==>dText::Translator Class

While a Translator object stores some attributes for configuration <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4288	4534	
==>lock->new($e, sub {
                              my $e = shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1141	1251	
==>r @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1141	1251	
==>r @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3760	3913	
==>rom, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_alte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3760	3913	
==>rom, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_alte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3760	3913	
==>rom, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_alte <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16089	16183	
==>he Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16089	16183	
==>he Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spen <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	460	554	
==>);

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compression() if $compression_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15559	15683	
==>elf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15559	15683	
==>elf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15559	15683	
==>elf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1626	1765	
==>ns store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1626	1765	
==>ns store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1626	1765	
==>ns store([List])
# * fixed new(), elems(), pop(), shift(), fetch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fix <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11026	11174	
==>od report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.description <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1504	1644	
==>od report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1504	1644	
==>od report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.description <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8316	8458	
==>urn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8316	8458	
==>urn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8316	8458	
==>urn Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if $method eq 'ref';
                    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5568	5673	
==>{ $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5568	5673	
==>{ $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5568	5673	
==>{ $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed' <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4742	4835	
==>> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <character_set>+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6240	6350	
==>n you don't want to mess
with members belonging to 3rd party classes that your object might be
holding. Using t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6240	6350	
==>n you don't want to mess
with members belonging to 3rd party classes that your object might be
holding. Using t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6240	6350	
==>n you don't want to mess
with members belonging to 3rd party classes that your object might be
holding. Using t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12882	12982	
==>e is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12882	12982	
==>e is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12882	12982	
==>e is no " . $params->{for} . " attribute table";
    }
});

::Class.meta.add_method('get_attribute' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11218	11350	
==>ized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11218	11350	
==>ized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11218	11350	
==>ized method lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4016	4137	
==>les[$i] =~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $rules[$i] =~ /^$ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5296	5391	
==>s a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIO <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5296	5391	
==>s a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4585	4698	
==>" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4585	4698	
==>" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4585	4698	
==>" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_attr($self => '%:namespa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16560	16678	
==>d('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16560	16678	
==>d('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16560	16678	
==>d('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10559	10657	
==>must be an ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY";
	_quote_args(\$runperl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13655	13756	
==>when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13655	13756	
==>when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13655	13756	
==>when it's declared"
::Class.meta.add_method('find_attribute_spec' => method () {
    my ($self, $label <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19621	19714	
==>isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19621	19714	
==>isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19621	19714	
==>isa('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3689	3807	
==>test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3689	3807	
==>test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3689	3807	
==>test splice offset == 0, 1, 2, -1, -2, -Inf, Inf
# TODO - test splice length == 0, 1, 2, Inf, negative
# TODO - test sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	46	161	
==>use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = calle <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	46	161	
==>use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = calle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1529	1634	
==>e},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1529	1634	
==>e},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1529	1634	
==>e},
  "perl5"         => \$PIL2JS::cfg{perl5},
  "compile-only"     => \my $compile_only,
  "precompile-on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3846	3946	
==>_

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Juncti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3846	3946	
==>_

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Juncti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3846	3946	
==>_

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 SYNOPSIS

  use Perl6::Value::Juncti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	472	577	
==>in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	472	577	
==>in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	472	577	
==>in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "Attribute <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1795	1898	
==>ns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $ex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1853	1956	
==>ns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $ex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11928	12025	
==>the header() method, the field name ($field) is not case
sensitive and '_' can be used as a replac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11928	12025	
==>the header() method, the field name ($field) is not case
sensitive and '_' can be used as a replac <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3087	3182	
==>day_of_year ::= &Date::Gregorian::doy;
method week returns Int { int (./doy / 7) }

method day_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7552	7709	
==>ed
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7552	7709	
==>ed
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) wh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7552	7709	
==>ed
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) wh <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29350	29467	
==>my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29350	29467	
==>my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOODBYE' => q[ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2402	2810	
==>e Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External pac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2402	2810	
==>e Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1312	1425	
==>2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1312	1425	
==>2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1312	1425	
==>2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  "infix:«gt»",   2, "S" <==
3	/Users/nnunley/pugs/util/config_h.pl	1626	1765	
==>ompile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        print TMP $code;
        cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	474	578	
==>y, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	474	578	
==>y, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	474	578	
==>y, $value is rw) is primitive is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2535	2686	
==>if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2535	2686	
==>if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2535	2686	
==>if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	808	909	
==>= @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	808	909	
==>= @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6988	7184	
==>2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $othe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10465	10661	
==>2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3354	3466	
==>1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3354	3466	
==>1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3354	3466	
==>1] := $self{$_};
    }
    @res;
  } elsif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12435	12552	
==>lf->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max eq '') { 'plus' }
    else { 'cur <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3990	4091	
==>or
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the giv <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3990	4091	
==>or
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the giv <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2242	2387	
==>:
            $args->{file}           
                ? JIB::Package::Source->Object::Accessor::new           :
            $args->{installation} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	338	432	
==>sh
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	338	432	
==>sh
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1017	1125	
==>H()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1017	1125	
==>H()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1017	1125	
==>H()));
    }
    cc(new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1401	1505	
==>')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1401	1505	
==>')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1401	1505	
==>')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
method uc(Str $self = $CALLER::_:) { JS:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	258	395	
==>ing'),
			App(
				Sym('&printf'),
				Sym('$handle'),
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4383	4491	
==>no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4383	4491	
==>no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15760	15855	
==>nd the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdman <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15760	15855	
==>nd the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdman <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18775	18890	
==>\G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15196	15311	
==>\G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self- <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	983	1094	
==>emaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1874	1985	
==>emaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16577	16688	
==>e p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16577	16688	
==>e p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1140	1244	
==>a
package that is too close to the main namespace for your tastes, and
you want to rebless everything dow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1140	1244	
==>a
package that is too close to the main namespace for your tastes, and
you want to rebless everything dow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1140	1244	
==>a
package that is too close to the main namespace for your tastes, and
you want to rebless everything dow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5665	5775	
==>ined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5665	5775	
==>ined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5665	5775	
==>ined) {
  var obj = PIL2JS.get_and_remove_all_namedpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5019	5155	
==>r if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTA <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5019	5155	
==>r if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTA <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10747	10879	
==>andler
            #print("        $test{todo}/$test{max} TODO test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2824	2931	
==>lf: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2824	2931	
==>lf: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2824	2931	
==>lf: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pairs }
sub JS::Root::sort(Code $cmp is copy = &infix:<cmp> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13882	14004	
==>d($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13882	14004	
==>d($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13882	14004	
==>d($label, %params) ? 1 : 0;                    
}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	877	974	
==>he normal output filehandle, adding leading C<#>
characters after all newlines if they are not pre <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	877	974	
==>he normal output filehandle, adding leading C<#>
characters after all newlines if they are not pre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1433	1530	
==>he normal output filehandle, adding leading C<#>
characters after all newlines if they are not pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7005	7112	
==>_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7005	7112	
==>_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	905	1005	
==>$num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = reverse @commits;
@de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4453	4582	
==>:undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4453	4582	
==>:undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4453	4582	
==>:undef_of $name;
    return substr <<EOF, 0, -1;  # cosmetical issue: strip the /\n$/.
if(nameds[$pairname] != undefined) {
  $jsn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12815	12945	
==>elf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12815	12945	
==>elf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12815	12945	
==>elf => '%:attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
});

::Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5274	5375	
==>y($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5274	5375	
==>y($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5274	5375	
==>y($self->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3474	3572	
==>lems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 versio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3474	3572	
==>lems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 versio <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3474	3572	
==>lems == 0" in push/pop, Perl6 version
# TODO - splice() should accept a 'List' object, Perl6 versio <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3752	3864	
==>me = $values{name};
        $name =~ s/::/-/g;
        die "Error in name(): '$values{name}' should be '$name'!\n <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8501	8602	
==>creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# d <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8501	8602	
==>creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# d <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1156	1271	
==>nd => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   I <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1156	1271	
==>nd => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6985	7101	
==>:
      'eol';
    return $S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mode)
  $self-> <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1332	1425	
==>erlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1332	1425	
==>erlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31314	31412	
==>set is those for which the the
Bool-returning anonymous function in the argument C<$predicate> retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35864	35962	
==>set is those for which the the
Bool-returning anonymous function in the argument C<$predicate> retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35082	35180	
==>set is those for which the the
Bool-returning anonymous function in the argument C<$predicate> retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1125	1227	
==>ly output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1125	1227	
==>ly output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1125	1227	
==>ly output function is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. S <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10169	10283	
==>1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10169	10283	
==>1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1063	1169	
==>imitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1063	1169	
==>imitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1063	1169	
==>imitive { infix:<||>($a, $b()) }
sub infix:<and>  ($a, Code $b) is primitive { infix:<&&>($a, $b()) }
# XXX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	666	788	
==>ttr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	666	788	
==>ttr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	666	788	
==>ttr) = shift if @_;
    ::opaque_instance_attr($::SELF => $attr);    
}

sub __ {
    my $attr = shift;
    $::CLASS->STORE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4496	4656	
==>=> 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workarou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4496	4656	
==>=> 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workarou <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4496	4656	
==>=> 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workarou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5736	5870	
==>};

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my $new_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5554	5684	
==>};
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my $new_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	776	886	
==>implify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref $type e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5457	5560	
==>ould take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5457	5560	
==>ould take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5457	5560	
==>ould take a fully qualified name, and attempt to 
locate the item. 

The other option is to ask FETCH an <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6891	6997	
==>nicode category "Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F]> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4827	4958	
==>,
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4827	4958	
==>,
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4827	4958	
==>,
      "p" . $self->prefix . "Type"    => $self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24505	24607	
==>ash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29057	29159	
==>ash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27933	28035	
==>ash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mutable () ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4451	4557	
==>"*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4451	4557	
==>"*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4451	4557	
==>"*** $_[0]\n    Try \"$0 --help\" for usage information.\n";
  } else {
    print STDERR <<USAGE; exit }}
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1022	1152	
==>ame })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1022	1152	
==>ame })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1022	1152	
==>ame })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23724	23819	
==>tation for the Relation library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7079	7171	
==>processed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('heade <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7079	7171	
==>processed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('heade <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18769	18886	
==>!~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15190	15307	
==>!~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15109	15222	
==>:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I1 = $I0 - pos
    cname = substr target, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3548	3678	
==>ubtype => @caller[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war abou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15380	15475	
==>identifies what kind of Node this is, and by extension
what kinds of attributes or relative Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15380	15475	
==>identifies what kind of Node this is, and by extension
what kinds of attributes or relative Node <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4873	4971	
==>is role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test pass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4873	4971	
==>is role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test pass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7070	7168	
==>is role contains several public attributes.

=over 4

=item B<Bool $.passed>

Whether the test pass <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2893	3022	
==>e => 'looser',
        other => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n" <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1271	1380	
==>h($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1271	1380	
==>h($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22339	22462	
==>f->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18760	18883	
==>f->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1 <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	244	360	
==>infix:<+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2286	2384	
==>the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<h <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2286	2384	
==>the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7889	7999	
==>:make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7889	7999	
==>:make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7889	7999	
==>:make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $cla <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	836	955	
==>e in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	836	955	
==>e in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13208	13312	
==>sub { -c "$initrd_mnt/dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_im <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3426	3522	
==>ut where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Com <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3304	3397	
==>ut where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Com <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21337	21434	
==>opyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21337	21434	
==>opyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistri <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2679	2838	
==>.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$he <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2679	2838	
==>.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$he <==
3	/Users/nnunley/pugs/util/testgraph.pl	1830	1957	
==>{
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Spec- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4552	4663	
==>x

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Pa <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1183	1291	
==>less -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolut <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1183	1291	
==>less -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3313	3424	
==>ue_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3313	3424	
==>ue_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3313	3424	
==>ue_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($build) { <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16386	16476	
==>1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4098	4270	
==>S }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4098	4270	
==>S }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4098	4270	
==>S }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	41	137	
==>f a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	41	137	
==>f a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10086	10249	
==>,@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10086	10249	
==>,@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10086	10249	
==>,@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47337	47505	
==>bel')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	155	285	
==>uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	155	285	
==>uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1437	1529	
==>est::Harness is the module that reads the
output from Test::Simple, Test::More and other modu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23550	23638	
==>ta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23550	23638	
==>ta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	592	685	
==>)')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	592	685	
==>)')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	592	685	
==>)')($thing);
}

sub PIL2JS::Internals::autoderef(Ref $ref) returns Bool is primitive {
  JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10359	10504	
==>e) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10359	10504	
==>e) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2667	2767	
==>::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number') {
    if $hint eq 'String <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7301	7446	
==>SS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7301	7446	
==>SS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7301	7446	
==>SS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39360	39480	
==>}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39360	39480	
==>}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39360	39480	
==>}

sub pop {
    my $array = shift;
    my ( $length, $ret ) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16148	16319	
==>e->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16148	16319	
==>e->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16148	16319	
==>e->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    return $array->map( 
        sub {
            return ( $c <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1970	2119	
==>'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1	97	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1	97	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1	97	
==>!/usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPE <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37768	37870	
==>e union of
all the headings of the source relations.  The body of the new relation is
the result of fir <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42317	42419	
==>e union of
all the headings of the source relations.  The body of the new relation is
the result of fir <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41967	42069	
==>e union of
all the headings of the source relations.  The body of the new relation is
the result of fir <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2406	2555	
==>nfix',
    } );
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => 'left',
        precedence => 'tighter',
        ot <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4985	5088	
==>ake index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 enc <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4985	5088	
==>ake index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 enc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22812	22955	
==>(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23091	23234	
==>(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alte <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	291	448	
==>1] eq 'CODE' };

use constant IS_FILE        => sub { return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5189	5321	
==>$message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5189	5321	
==>$message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9550	9680	
==>alue = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9550	9680	
==>alue = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9550	9680	
==>alue = [];
    for(var i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = N <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3879	4042	
==>e
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4343	4506	
==>e
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1723	1840	
==>b can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $AUTO <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2131	2256	
==>onf) = @_;
    my %env = map { split /=/ } (split /:/, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %en <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5826	5945	
==>rator;          
  }

  expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2330	2429	
==>q 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	907	1026	
==>s {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	907	1026	
==>s {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	907	1026	
==>s {
    my $self = shift;
    local $_;

    # The parameter extracting thing is 3-pass.
    # In as_js0, appropriate "v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2440	2555	
==>S[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2440	2555	
==>S[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2440	2555	
==>S[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$name};
  }

  # It' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12711	12796	
==>A=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Except <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12711	12796	
==>A=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Except <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12711	12796	
==>A=qw(Error);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Except <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3837	3956	
==>yright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3837	3956	
==>yright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21714	21802	
==>', ':' => 'type');
%sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2926	3029	
==>) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	957	1060	
==>) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11670	11769	
==>al newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4898	4993	
==>e is *no* attention
# paid to the associativity of the original operator and auto-metaed version <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4898	4993	
==>e is *no* attention
# paid to the associativity of the original operator and auto-metaed version <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4898	4993	
==>e is *no* attention
# paid to the associativity of the original operator and auto-metaed version <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1606	1717	
==>te a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1606	1717	
==>te a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1606	1717	
==>te a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3741	3866	
==>m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3741	3866	
==>m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3741	3866	
==>m\n";
			$MM->add_method($m => ::make_method($v->{$m}));
		    }
		}
	    }
	}
    }
    $MM;
}



my $class_description = '-0 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4164	4260	
==>uctor generally include some sort of key, and sometimes also 
parameters for block size and so on <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4164	4260	
==>uctor generally include some sort of key, and sometimes also 
parameters for block size and so on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14680	14813	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Ori <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14680	14813	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Ori <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14680	14813	
==>scription => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 AUTHOR

Ori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8147	8312	
==>->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8147	8312	
==>->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8147	8312	
==>->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1963	2070	
==>_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1963	2070	
==>_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1963	2070	
==>_check();

  my $pil  = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6153	6251	
==>(str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6153	6251	
==>(str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6153	6251	
==>(str) { return str.split("").reverse().join("") })')(@things[0]);
  } else {
    JS::inline('new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3738	3857	
==>$self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3738	3857	
==>$self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unle <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3738	3857	
==>$self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname, 1) : $jsobj;

    # For debugging
    unle <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10015	10202	
==>y ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal tok <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2327	2474	
==>y ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal tok <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1073	1172	
==>w
namespaces. This is typically useful when your object belongs to a
package that is too close to th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1073	1172	
==>w
namespaces. This is typically useful when your object belongs to a
package that is too close to th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1073	1172	
==>w
namespaces. This is typically useful when your object belongs to a
package that is too close to th <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20525	20631	
==>p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont work. :( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14304	14399	
==>}
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14304	14399	
==>}
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10757	10862	
==>6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10757	10862	
==>6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@inc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10757	10862	
==>6_to_a() is still broken, so \@INC wasn't used." # XXX
	    if $dir =~ /Container::Array=HASH/;
	push(@inc <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2776	2962	
==>y $final = $size + $size_change -1;
        while $i <= $final {
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   do <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1592	1691	
==>TRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Giv <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1592	1691	
==>TRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Giv <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2028	2226	
==>rent_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this bl <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2028	2226	
==>rent_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this bl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9015	9157	
==>ock->new($e, sub { 
                          my $e = shift; 
                          $e->set("$method", $e->get("$current")->send("get_metho <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	404	505	
==>e unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	404	505	
==>e unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10410	10537	
==>[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10410	10537	
==>[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10410	10537	
==>[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classes => ((scalar <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1212	1319	
==>te $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub autoload {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1006	1126	
==>re the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4484	4604	
==>re the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3387	3507	
==>re the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11796	11881	
==>e(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11796	11881	
==>e(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11796	11881	
==>e(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10718	10856	
==>]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10718	10856	
==>]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10718	10856	
==>]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8343	8549	
==>e::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8343	8549	
==>e::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8343	8549	
==>e::stringify($_) } @items ]}";
                        my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $elemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5469	5565	
==>&infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5469	5565	
==>&infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5469	5565	
==>&infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">>$op<< <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7424	7542	
==>npack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7424	7542	
==>npack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1109	1226	
==>temRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorle <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17530	17658	
==>ibutes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17530	17658	
==>ibutes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2264	2358	
==>s.new("Class");

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1826	1940	
==>() } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

mul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1826	1940	
==>() } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

mul <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1826	1940	
==>() } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6523	6692	
==>};
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6523	6692	
==>};
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6523	6692	
==>};
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1)."\n";
            return Inf if $start == -& <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5285	5432	
==>{ 
            $<category>.add_op( name => $<name>, fixity => ..., precedence => ... );
            return ... ;
        }
    }

    rule statement <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1171	1267	
==>ote that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Inte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1171	1267	
==>ote that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Inte <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6301	6402	
==>e_1:
  my $top = $tokenStack[-1];
  $topcat = $$top{syncat};
  goto oper_reduce if ( $topcat == PGE_OP <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9994	10090	
==>methods for iterating through the set, and for querying 
set properties.

Note that all set funct <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9994	10090	
==>methods for iterating through the set, and for querying 
set properties.

Note that all set funct <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	391	513	
==>t;
    $self->visual(@_);
  }

  sub visual {
    my $self = shift;
    exists $self->{vis} ? $self->{vis} : '';
  }

  sub <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13227	13320	
==>C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

Th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13227	13320	
==>C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

Th <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3448	3560	
==>ction( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        retu <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3448	3560	
==>ction( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16768	16863	
==>de::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16768	16863	
==>de::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16768	16863	
==>de::pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4864	4966	
==>wd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4864	4966	
==>wd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4864	4966	
==>wd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev hack.
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7350	7485	
==>jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7350	7485	
==>jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7350	7485	
==>jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLValue}) {
      p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6430	6523	
==>Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2htm <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6430	6523	
==>Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2htm <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3784	3907	
==>e;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3784	3907	
==>e;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5308	5431	
==>e;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should b <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18917	19013	
==>om SQL, it
is fully capable of modelling anything in the real world accurately, and it
can suppor <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18917	19013	
==>om SQL, it
is fully capable of modelling anything in the real world accurately, and it
can suppor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	119	209	
==>ero-length expression';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4501	4594	
==>ever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4501	4594	
==>ever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4501	4594	
==>ever blessing they had
before.

=item B<rebase>

    Class::Rebless->rebase($myobj, "New::Name <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4396	4531	
==>are acutally numerically
        # different. Display the numbers if $type isn't a string operator,
        # and the numbers are string <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3999	4104	
==>e fatal' not try to load a module. XXX: add a real inc class to
    # interface %*INC, instead of this hac <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	636	737	
==>"The required 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	535	630	
==>"The required 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1201	1329	
==>r_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1201	1329	
==>r_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1201	1329	
==>r_obj);
        }
    }
    # this is our P6opaque data structure
    # it's nothing special, but it works :)
    my $self = ::cr <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1648	1792	
==>X;
}

sub all_in {
    my $start = shift;

    my @hits = ();

    local *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readd <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1786	1908	
==>%self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_st <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1786	1908	
==>%self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_st <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6926	7011	
==>r("+").
p5_metachar("\.").
p5_metachar("[").
p5_metachar("^").
p5_metachar("$"). %"
p5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	251	354	
==>t checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatib <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	251	354	
==>t checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatib <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	251	354	
==>t checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' parameter
# * Compatib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4103	4238	
==>+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4103	4238	
==>+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4103	4238	
==>+$/ } @jsparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3172	3283	
==>o/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3172	3283	
==>o/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3172	3283	
==>o/js/interpreter
  --run=js|jssm|jspm
  --pugs=/path/to/pugs
  --pil2js=/path/to/pil2js.pl              (usually <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4276	4377	
==>at would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4276	4377	
==>at would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4276	4377	
==>at would not do at all.

=over 4

=item B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespac <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2750	2879	
==>$ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out or die "open: $out: $!";
    binmode $ofh;
    my $gz = Compre <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10215	10307	
==>ell-formedness of the input, such as that mandatory
constructor arguments are provided and th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10215	10307	
==>ell-formedness of the input, such as that mandatory
constructor arguments are provided and th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	158	268	
==>atement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	158	268	
==>atement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	158	268	
==>atement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false) = @_;

    return <<EOF };
(
  PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2236	2333	
==>e {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2236	2333	
==>e {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2236	2333	
==>e {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0], code = args[1], <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1819	1918	
==>|| document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1819	1918	
==>|| document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1819	1918	
==>|| document.body.scrollHeight);
    }
  )')(@text.join(""));
  ?1;
}

sub JS::Root::slurp(Str $filen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4454	4550	
==>t>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/rege <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4704	4800	
==>t>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/rege <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16830	16917	
==>-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5041	5182	
==>sts $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5041	5182	
==>sts $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5041	5182	
==>sts $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $rol <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6944	7041	
==>ent_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_language <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6944	7041	
==>ent_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_language <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5870	5955	
==>)".
p5_elemental(condition(Rk,R1,R2)) --> "(?", p5_condition_body(Rk,R1,R2), !.
p5_ele <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7637	7745	
==>lements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert e <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7637	7745	
==>lements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5311	5414	
==>de::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2853	2956	
==>de::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3702	3805	
==>de::_simple_statement {
    my $op = get_str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11117	11218	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11117	11218	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11117	11218	
==>erl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    $this->{$s}[1] <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5009	5173	
==>n the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.pa <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5009	5173	
==>n the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.pa <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1364	1460	
==>ll you want to do is write a test script, consider
using Test::Simple.  Test::Harness is the modu <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4713	4830	
==>s_revision} <=> $a->{pugs_revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timesta <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31500	31596	
==>ed with a Template module set that is specific
to it, another library likewise, and a program whi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31500	31596	
==>ed with a Template module set that is specific
to it, another library likewise, and a program whi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	25	120	
==>our - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	25	120	
==>our - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	404	520	
==>ze { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	404	520	
==>ze { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	404	520	
==>ze { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3425	3573	
==>s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3425	3573	
==>s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $fr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3425	3573	
==>s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18525	18616	
==>{...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18525	18616	
==>{...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18525	18616	
==>{...};
MULTI SUB infix:<cmp> ($xx0,$xx1) { p6_from_n(p6_to_s($xx0) cmp p6_to_s($xx1)) };
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7632	7753	
==>3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7632	7753	
==>3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7632	7753	
==>3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')();
}

# $0 etc. are aliases for $/[0] etc.

    # Here is an <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14088	14236	
==>return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14082	14230	
==>return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$b <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25447	25549	
==>fy, "∀α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x c");
}
{
	my $type = type::operato <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7896	8010	
==>upHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7896	8010	
==>upHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7896	8010	
==>upHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only_check_for_params;\ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4380	4474	
==>st::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4380	4474	
==>st::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5904	5998	
==>st::Builder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3034	3151	
==>in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3034	3151	
==>in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each elemen <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3034	3151	
==>in "Eager" mode?
#        (PerlJam) - well, I wouldn't think you'd have to copy them all at once.
#        Each elemen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1825	1984	
==>,
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1825	1984	
==>,
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	488	588	
==>al parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	488	588	
==>al parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	488	588	
==>al parameters
# * Param 'type' is a closure, allowing the use of 'subtype'
# * New methods: .arity, . <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	763	918	
==>meta dir
$Root           = $Cwd . '/fakeroot';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metad <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	269	372	
==>ld be in one file,
   and the defining macros, for each of various class hierarchies,
   in others.  But <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	269	372	
==>ld be in one file,
   and the defining macros, for each of various class hierarchies,
   in others.  But <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13917	14070	
==>{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13917	14070	
==>{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13917	14070	
==>{pops}} || @{$self->{shifts}};
            return $l->zip( @ls );
        },
        cstart => sub {
            my $self = shift;
            return shif <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8124	8217	
==>array> is considered single dimensional. If it is in fact multi-
dimensional, the values retur <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20557	20654	
==>When you
open a program, it will search for language files specific to the program
in the order yo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20557	20654	
==>When you
open a program, it will search for language files specific to the program
in the order yo <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	353	570	
==>_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	353	570	
==>_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6413	6523	
==>$self = shift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inherit from this

sub new {
	my <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	349	473	
==>O_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	349	473	
==>O_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	727	879	
==>m +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	727	879	
==>m +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	687	816	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);
      --&RxPOS;

      $S->war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36705	36828	
==>etch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36705	36828	
==>etch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36705	36828	
==>etch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift;
    my $po <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf3.pl	1	112	
==>=Perl 5:
my $anz = 0;

for(1..3) {
    $anz++ if wurf() == 6;
}
print "okay!\n" if $anz == 1;
#=Perl 6:
if one({ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4448	4554	
==>e right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6350	6456	
==>e right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10455	10610	
==>alar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10455	10610	
==>alar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10455	10610	
==>alar @params : @{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1416	1517	
==>odel::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1416	1517	
==>odel::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	265	391	
==>elimeter
        T? \s*
        # time - optional, defaults to 0:00
        (\d\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	290	391	
==>should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <= <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	290	391	
==>should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <= <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14033	14131	
==>Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14091	14189	
==>Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2851	2956	
==>_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2851	2956	
==>_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2851	2956	
==>_discard_whitespace($i);
    if ($i->lookAheadToken eq 'is') {
        $self->_parse_superclasses($i, $cla <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	943	1068	
==>entication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Leng <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	943	1068	
==>entication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Leng <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33852	33956	
==>used F<vim>, you might know
about its '\&' regex assertion.  It's an "AND", much like '|' is an
"OR".  Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6014	6123	
==>S) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6014	6123	
==>S) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6014	6123	
==>S) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of global vars and expo <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1333	1428	
==>$^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_down: symmetrical => $^b },
		{ $^a. <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2471	2554	
==>----------------------------------------------------------------------------
## gett <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2471	2554	
==>----------------------------------------------------------------------------
## gett <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	337	440	
==>($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	337	440	
==>($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	337	440	
==>($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_mangle($self->{n <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	945	1041	
==>= '\w[\w\d]*';
our $re_condition = '(?:if|elsif|else|unless|while|unless)';
our $re_reserved = "( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5064	5168	
==>def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = comp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40087	40183	
==>t
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40087	40183	
==>t
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1119	1228	
==>tch($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1119	1228	
==>tch($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - do <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1119	1228	
==>tch($a,$b);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - do <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6090	6204	
==>e:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5897	6005	
==>e:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx( <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8954	9057	
==>seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\\#/#g;

  $relative_file =~ s/t$/html <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12637	12777	
==>y $status               = $self.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = 1;
          $status{"passed" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3001	3137	
==>y $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed" <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3001	3137	
==>y $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = 1;
        $status{"passed" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1199	1305	
==>ed};
	    $invocant = $db_param;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$nam <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	522	622	
==>g = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, say <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	522	622	
==>g = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, say <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5944	6071	
==>PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5944	6071	
==>PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5944	6071	
==>PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23195	23290	
==>$bot.raw("...")>

Sends a command to the server. The command is not modified by this module,
asi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23195	23290	
==>$bot.raw("...")>

Sends a command to the server. The command is not modified by this module,
asi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7426	7512	
==>>values;

	my $orig_thunk = ($app->struct_equiv->values)[0]->struct_equiv->val->struct_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3159	3264	
==>set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3159	3264	
==>set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4405	4529	
==>_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@:slots')})->scalar_fetc <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	65	157	
==>r is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  r <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	65	157	
==>r is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1910	2009	
==>rn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3676	3773	
==>ultiLineComment {  # see 7.4
      <'/*'> <MultiLineCommentChars>? <'*/'>
}
rule MultiLineCommentC <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1833	1930	
==>rn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	37	140	
==>or;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	37	140	
==>or;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	37	140	
==>or;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6842	6948	
==>make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6842	6948	
==>make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6842	6948	
==>make_method(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2385	2517	
==>{ 
            my ($self, $passed, $description, $reason) = @_;
            $self->report_test(
                $::TestBuilder->FETCH <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1182	1277	
==>ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMO <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1182	1277	
==>ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	14	128	
==>Exp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	14	128	
==>Exp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	14	128	
==>Exp;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16886	16999	
==>urce attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20363	20476	
==>urce attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19941	20054	
==>urce attributes are in common, and each
    # source has attributes not in the other.

    if ($!body.size() > $ot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	510	641	
==>ned));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	510	641	
==>ned));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	510	641	
==>ned));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception(funct <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1130	1249	
==>,
    );

    if (!$rv) {
        die << '.';

------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10740	10835	
==>function currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10798	10893	
==>function currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `o <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4661	4790	
==>hould be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5125	5254	
==>hould be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	215	341	
==>ues -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) returns List {
   my $st <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11655	11767	
==>ackrefs)
  package Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5904	6010	
==>ing methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die " <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5904	6010	
==>ing methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die " <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3019	3143	
==>ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	871	967	
==>t to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyF <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	871	967	
==>t to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6064	6191	
==>my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6064	6191	
==>my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6064	6191	
==>my $init_js =
    "// Initialization of global vars and exportation of subs:\n" .
    join("\n", map {
      my $name = $_->{pSu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2749	2859	
==>umber(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2749	2859	
==>umber(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2749	2859	
==>umber(a) << Number(b)",
  "infix:«+>»",   2, "N", "Number(a) >> Number(b)",
  "infix:«<=>»",  2, "N", "Numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1517	1619	
==>tamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1517	1619	
==>tamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1517	1619	
==>tamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf(preludepc      => $cfg{prelu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	801	895	
==>cal $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	640	734	
==>cal $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	640	734	
==>cal $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	405	511	
==>class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	405	511	
==>class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	405	511	
==>class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7569	7717	
==>new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which real <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7569	7717	
==>new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which real <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7569	7717	
==>new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which real <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1573	1705	
==>_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefine <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1573	1705	
==>_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefine <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1573	1705	
==>_method('add_method' => ::make_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefine <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9665	9789	
==>> Lazy|Str) {
 multi  List::reverse ( *@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 wh <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2700	2815	
==>=> 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2700	2815	
==>=> 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1959	2059	
==>rect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1959	2059	
==>rect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11891	11988	
==>with the normal perl engine can continue working.

  Upon exec, the subref should return match inf <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21526	21618	
==>e the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21526	21618	
==>e the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3112	3251	
==>} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1}, "list-op" );
} <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6864	6958	
==>closing match, I should
ignore the opening one. However, this means I should defer events until <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6864	6958	
==>closing match, I should
ignore the opening one. However, this means I should defer events until <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1620	1728	
==>tcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1620	1728	
==>tcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1620	1728	
==>tcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1636	1745	
==>eing undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1636	1745	
==>eing undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1636	1745	
==>eing undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephrase. Why did it print an error message <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31708	31802	
==>he original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<gr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36258	36352	
==>he original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<gr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35494	35588	
==>he original, or has zero tuples, respectively.  This method has aliases
named C<where> and C<gr <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2436	2557	
==>ch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib},
        SITELIBEXP      => <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1172	1287	
==>COLUMNS} || 80;
$Columns--;             # Some shells have trouble with a full line of text.

=head1 SYNOPSIS

  use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3581	3717	
==>e robust
    local $CWD = $builddir;
    
    ### XXX invoke build code here

    ### build an archive file
    my $archive = $path . $co <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2382	2477	
==>upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is free softwa <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2382	2477	
==>upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is free softwa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5184	5291	
==>.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5184	5291	
==>.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5184	5291	
==>.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	176	269	
==>ur tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_b <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	234	327	
==>ur tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3687	3877	
==>oxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3687	3877	
==>oxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3687	3877	
==>oxed } @{_('$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Ju <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8521	8645	
==>ode ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster bac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8225	8342	
==>ode ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster bac <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	507	616	
==>w!Array)\
multi Array::keys   (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.kv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2276	2396	
==>$s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2276	2396	
==>$s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2276	2396	
==>$s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3109	3215	
==>e_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3109	3215	
==>e_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3109	3215	
==>e_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')->{$labe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14047	14150	
==>X class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8252	8355	
==>X class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1335	1432	
==>CES => --$ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRACE => --$ENUM, 'Missing right brac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1598	1759	
==>apper( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34169	34265	
==>pty string.

=back

This is the main Translator constructor method:

=over

=item C<new( :@set_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34169	34265	
==>pty string.

=back

This is the main Translator constructor method:

=over

=item C<new( :@set_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	333	460	
==>todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	333	460	
==>todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	333	460	
==>todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11324	11424	
==>p name=runcores>
      <tr><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmp <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	10	107	
==>t::Glob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	10	107	
==>t::Glob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5063	5217	
==>$ast->{stmt} ) {

            if ( $ast->{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            els <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10195	10324	
==>tine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10195	10324	
==>tine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2503	2650	
==>turn 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2503	2650	
==>turn 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2503	2650	
==>turn 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @start ) .
        ' ... ' . 
        join( ', ', 
        map { Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2944	3061	
==>log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2944	3061	
==>log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4468	4585	
==>log_file')
        )
    );

  sub plan (Str $explanation?, Int $tests?) is export {
     $Test.testplan($explanation, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6412	6627	
==>odulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6412	6627	
==>odulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6412	6627	
==>odulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2034	2142	
==>om $name" unless -e $file;
    }

    $self->version_from($file)      unless $self->version;
    $self->perl_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2165	2272	
==>queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2165	2272	
==>queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4679	4792	
==>s:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4519	4628	
==>s:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24264	24366	
==>t, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf("%.2f",100*(1-$failed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2200	2346	
==>n {
    # prototype
        prototype => new Object(),
    # class definition
        get_x => sub { $x },
        get_y => sub { $y },  
        s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12177	12276	
==>mand(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12177	12276	
==>mand(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8117	8225	
==>an implementation for Perl 6 operator precedence.  

=head1 METHODS

=head2 new ()

Class method.  Retu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5433	5535	
==>hesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5433	5535	
==>hesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7274	7387	
==>e->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7274	7387	
==>e->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7274	7387	
==>e->as_string)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5600	5700	
==>) returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5600	5700	
==>) returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	603	695	
==>hift;

	warn Carp::longmess unless $node->can("digest");
    Blondie::Backend::Perl::Builtins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1375	1576	
==>d, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1375	1576	
==>d, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1375	1576	
==>d, 1 )
                    } @res;
                @{_('$.things')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	592	679	
==>urn $!parent;
}

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	592	679	
==>urn $!parent;
}

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1192	1306	
==>_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1192	1306	
==>_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1272	1386	
==>_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
}

sub line_num is export <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1685	1809	
==>pile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class sho <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1685	1809	
==>pile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class sho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24353	24454	
==>her tuples.

For purposes of the Relation::Example class' API, a tuple is represented by a Perl
Mappin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2852	2959	
==>]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2840	2947	
==>]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35164	35261	
==>ver

=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35164	35261	
==>ver

=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	648	744	
==>rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }))->code;
*grammar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	983	1085	
==>Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	983	1085	
==>Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8901	9031	
==>s => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8901	9031	
==>s => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8901	9031	
==>s => {}
    },
    instance => {
        attrs => [ '$.key', '$.value' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10648	10767	
==>-----------------------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10648	10767	
==>-----------------------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10648	10767	
==>-----------------------

    method add_method;
    method get_method;
    method has_method;
    method get_method_list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	731	861	
==>lock' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	731	861	
==>lock' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	731	861	
==>lock' are now Perl6 classes

# Notes:
# Subroutine global names are not created by the Code object.
# - code.t stores names in %Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5028	5171	
==>et all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5028	5171	
==>et all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5028	5171	
==>et all the others
            local $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	636	739	
==>xample::Heading class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Exa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15315	15412	
==>h Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15315	15412	
==>h Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6782	6918	
==>{
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $ba <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6782	6918	
==>{
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $ba <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26099	26197	
==>or by any other means.

=item C<HARNESS_COLUMNS>

This value will be used for the width of the term <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7194	7360	
==>= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unles <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7658	7824	
==>= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unles <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2271	2379	
==>'_jib') ];
### XXX need cp -R functionality fixed proper to use this ;(
#$config{'build_dir'}        = $confi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2258	2568	
==>'$y'),
                    Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	578	703	
==>r($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	675	800	
==>r($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6228	6327	
==>tom, for when you don't want to mess
with members belonging to 3rd party classes that your object mi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6228	6327	
==>tom, for when you don't want to mess
with members belonging to 3rd party classes that your object mi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6228	6327	
==>tom, for when you don't want to mess
with members belonging to 3rd party classes that your object mi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	398	507	
==>{
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	398	507	
==>{
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5588	5677	
==>s::Grammar::Prefix;
use Pugs::Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15872	16036	
==>'**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15872	16036	
==>'**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15872	16036	
==>'**UnDeF**' unless defined $str;
            return if $seen{$str};
            $seen{$str}++;
            $_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6463	6558	
==>intWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6463	6558	
==>intWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6463	6558	
==>intWithoutNewline) PIL2JS_printWithoutNewline = printWithoutNewline;
var document = {
  write: P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1172	1354	
==>sed'      =>                        1,
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $para <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2076	2207	
==>}
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2076	2207	
==>}
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8128	8232	
==>$self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8128	8232	
==>$self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8128	8232	
==>$self = shift; 
    my $other = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8611	8707	
==>w PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8611	8707	
==>w PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8611	8707	
==>w PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input string, e.g. foo""bar - <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2963	3095	
==>' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13244	13338	
==>gated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13244	13338	
==>gated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6586	6775	
==>eset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.cu <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6586	6775	
==>eset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.cu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3149	3277	
==>les) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2803	2906	
==>>", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2803	2906	
==>>", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2803	2906	
==>>", $file or die "Couldn't open \"$file\" for writing: $!\n";
  print $fh $contents     or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3481	3582	
==>aram{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3481	3582	
==>aram{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3481	3582	
==>aram{end}; 

    $param{shift_n} = sub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3577	3706	
==>,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3577	3706	
==>,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3577	3706	
==>,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  } <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	378	505	
==>f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7523	7678	
==>sh $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7523	7678	
==>sh $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7523	7678	
==>sh $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	202	302	
==>pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'C <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	202	302	
==>pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	83	185	
==>mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	83	185	
==>mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	83	185	
==>mod, *@imports) {
  JS::inline('(function (mod, imports) {
    try {
      if(!JSAN || !JSAN._exportLis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1553	1685	
==>erclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1758	1890	
==>erclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' clas <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2581	2667	
==>ler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2589	2711	
==>$p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2589	2711	
==>$p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2589	2711	
==>$p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22894	23066	
==>with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22894	23066	
==>with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22894	23066	
==>with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	360	489	
==>w,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	360	489	
==>w,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	360	489	
==>w,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	330	435	
==>rovided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	330	435	
==>rovided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	330	435	
==>rovided by traits. See t/trait.t.
#   Methods .tieable, .tie, .untie were kept, in order to keep 
#   boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1720	1819	
==>age PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1720	1819	
==>age PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1720	1819	
==>age PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0][0]/$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	519	634	
==>{'$.reason'}      = '' unless exists $params{'$.reason'};
            $params{'$.description'} = '' unless exists $p <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2963	3068	
==>as Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2963	3068	
==>as Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7097	7245	
==>param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7097	7245	
==>param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7097	7245	
==>param{end};
    my $count = $param{celems};
    $count = sub { 
            no warnings 'numeric';
            if ( ref($end) ) {
                ret <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	56	157	
==>ustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	52	153	
==>ustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	52	153	
==>ustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6541	6637	
==>e', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Typ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6541	6637	
==>e', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Typ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	220	345	
==>ict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10782	10886	
==>ciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10782	10886	
==>ciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2678	2775	
==>vil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2678	2775	
==>vil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Interna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2678	2775	
==>vil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2JS::Interna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3195	3314	
==>.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3195	3314	
==>.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3195	3314	
==>.
      # "Why not simply make +undef return undef?" -- Because then all
      # operations yield NaN, which doesn't mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3590	3685	
==>Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3590	3685	
==>Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3590	3685	
==>Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destroy binding
# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4233	4387	
==>s!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4233	4387	
==>s!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4233	4387	
==>s!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLINK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4991	5090	
==>number>

The number of the test in the current test file.

=item B<Str $.description>

The test's de <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4991	5090	
==>number>

The number of the test in the current test file.

=item B<Str $.description>

The test's de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7188	7287	
==>number>

The number of the test in the current test file.

=item B<Str $.description>

The test's de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4684	4802	
==>$self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4684	4802	
==>$self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4684	4802	
==>$self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("PIL::PSub")
        ? (pSubName => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	308	417	
==>up,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	308	417	
==>up,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	308	417	
==>up,
  } => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possib <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1570	1670	
==>eed to know about Test::Harness to use
those modules.

Test::Harness runs tests and expects output fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1461	1556	
==>" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1601	1696	
==>" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{captu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6477	6659	
==>=> {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6477	6659	
==>=> {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6477	6659	
==>=> {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15418	15532	
==>]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15418	15532	
==>]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	16	115	
==>way in the hopefully not too distant future.
# So this is all throw-away code.
use strict;
package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	513	664	
==>infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	513	664	
==>infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	513	664	
==>infix:<^^>   ($a, $b) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	144	256	
==>fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	144	256	
==>fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	144	256	
==>fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1711	1818	
==>}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1711	1818	
==>}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21939	22039	
==>)     ,C) :- !, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_memb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	409	517	
==>t param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	409	517	
==>t param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	409	517	
==>t param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	736	843	
==>?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	736	843	
==>?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	736	843	
==>?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONL <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1214	1317	
==>turn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1214	1317	
==>turn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    i <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2240	2361	
==>nd;

    # round .5 to the nearest odd number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sig <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4355	4450	
==>names.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is expor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4355	4450	
==>names.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is expor <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22272	22389	
==>s num 
    ($self: id))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('id'),
    # me <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2358	2454	
==>ver a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2358	2454	
==>ver a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the re <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13766	13873	
==>to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13766	13873	
==>to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19210	19306	
==>),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_mod <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	955	1098	
==>n {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub val <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	955	1098	
==>n {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13138	13243	
==>rgl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13138	13243	
==>rgl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13138	13243	
==>rgl]))";
}
sub p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11900	12022	
==>nit {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11900	12022	
==>nit {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.': <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11900	12022	
==>nit {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.': <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11315	11421	
==>n::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11315	11421	
==>n::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11315	11421	
==>n::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	461	602	
==>> 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_quoted => $1 }, value => { single_q <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9370	9460	
==>capsulates HTTP-style message headers.
The headers consist of attribute-value pairs also ca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9370	9460	
==>capsulates HTTP-style message headers.
The headers consist of attribute-value pairs also ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1831	1946	
==>Name>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1831	1946	
==>Name>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = P <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25809	25909	
==>xEscapeSequence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule ControlEscape {  # see 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1348	1448	
==>ame_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1348	1448	
==>ame_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1348	1448	
==>ame_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classna <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2819	2936	
==>e of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2819	2936	
==>e of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2819	2936	
==>e of something,.. so we pass
    # it back up to our class
    return $?SELF.isa($class_name) 
        # however, we n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5651	5763	
==>pile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() , <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	381	492	
==>_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	282	393	
==>_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	248	337	
==>ini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	248	337	
==>ini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	248	337	
==>ini_js
  compile_perl6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_min <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15968	16093	
==>d -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile: $!";

    my $results = runperl(%$runperl_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7030	7126	
==>nd array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7030	7126	
==>nd array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	626	734	
==>n 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	626	734	
==>n 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, ex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	626	734	
==>n 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, ex <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20021	20135	
==>array"] = 1
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["isarray"] = padarray
    .ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13386	13480	
==>ctly to "Locale::KeyedText" in
your code; instead refer to other above-named packages in this f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13386	13480	
==>ctly to "Locale::KeyedText" in
your code; instead refer to other above-named packages in this f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4731	4861	
==>t Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4731	4861	
==>t Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1134	1230	
==>ary by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This pr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2281	2419	
==>hile (my($k,$v) = each %$deps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19676	19804	
==>lit //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16097	16225	
==>lit //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_of <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	389	497	
==>nfig->root, $config->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27288	27383	
==>ation
which has a superset of the original's attributes; the new Relation has as
many additional <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31840	31935	
==>ation
which has a superset of the original's attributes; the new Relation has as
many additional <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4258	4408	
==>t;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4799	4949	
==>t;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->b <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8915	9011	
==>op = %$p;
	my @args;

	my $default = $op{'paramDefault'};
	push(@args,"default=>sub{$default}") i <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	54	145	
==>------------------------------------------------------
## attributes

has $.node is rw;

has <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	54	145	
==>------------------------------------------------------
## attributes

has $.node is rw;

has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3401	3514	
==>{
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3401	3514	
==>{
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3401	3514	
==>{
    die 'untieable cell' if ! $_[0]{tieable};
    # TODO - use extra parameters
    $_[0]{tied} = $_[1];
}
sub P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2810	2931	
==>($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2810	2931	
==>($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2810	2931	
==>($k eq 'attrs') {
		    #print STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17157	17293	
==>b_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17157	17293	
==>b_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	307	406	
==>oaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	307	406	
==>oaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	307	406	
==>oaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	166	286	
==>s {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	166	286	
==>s {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	166	286	
==>s {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17680	17799	
==>es a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17680	17799	
==>es a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20950	21052	
==>1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20950	21052	
==>1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20950	21052	
==>1.') : $_v1 }' };
MACROP5 infix:<or> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$x <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5439	5550	
==>r error(Params::Check->last_error), return;

    ### build a from => to mapping
    ### note we have to create t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1640	1737	
==>a two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaint <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1640	1737	
==>a two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaint <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14046	14195	
==>instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14046	14195	
==>instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14046	14195	
==>instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ($self, @args <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22594	22732	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22873	23011	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_st <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4639	4727	
==>ef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3708	3821	
==>uleInit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	786	889	
==>mar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse Pugs <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18171	18272	
==>onNoIn :words {  # see 11.11
      <LogicalANDExpressionNoIn>
    | <LogicalORExpressionNoIn> <'||'> < <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6714	6829	
==>items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method t <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6714	6829	
==>items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7388	7539	
==>^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<< <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1458	1571	
==>n co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all tests first.  Collect links and format as H <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2175	2283	
==>->perl_version;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6163	6320	
==>turn m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6163	6320	
==>turn m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6163	6320	
==>turn m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pattern,flags);
          } c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6177	6308	
==>ss1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6177	6308	
==>ss1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6177	6308	
==>ss1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6065	6217	
==>emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "method_call: ", Dumper( $n );
        if ( $n->{met <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13365	13487	
==>rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13365	13487	
==>rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4316	4452	
==>]) });
		my ($thunk_val, @params) = $rapp->values;

		my $thunk_type = $thunk_val->type;
		my @context = ref $thunk_type eq "ARRAY" ? @$t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	233	339	
==>rammar::Rule::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_te <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22583	22679	
==>le ThrowStatement :words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'> <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9139	9251	
==>2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, su <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9139	9251	
==>2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, su <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1678	1776	
==>ew scope).
If no $num or $name is given, a new scope is introduced but the resulting object
is disc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1678	1776	
==>ew scope).
If no $num or $name is given, a new scope is introduced but the resulting object
is disc <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	667	799	
==>), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	667	799	
==>), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49215	49388	
==>ion')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbo <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3995	4101	
==>st, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3995	4101	
==>st, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HT <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3189	3289	
==>$options{returns} = 'type' if !(exists $options{returns});
    bless { %options } => $class;
}

sub p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	778	874	
==>_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Arr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	778	874	
==>_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16454	16562	
==>$m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15512	15614	
==>$m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	512	626	
==>y ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	512	626	
==>y ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argumen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21890	21997	
==>) method in F<__object__>,
but it will throw a "use of class() is deprecated" warning.

Quantifiers of the f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19112	19289	
==>e not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19112	19289	
==>e not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19112	19289	
==>e not yet fully supported";
                        # }

                        if ( Perl6::Value::p6v_isa( $other, 'Array' ) ) {
                            if ( UNIVERSAL::isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14656	14753	
==>};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14656	14753	
==>};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14656	14753	
==>};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6335	6438	
==>= $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6335	6438	
==>= $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'B <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6335	6438	
==>= $subobj;
}
sub p6_new {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9061	9173	
==>=>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n", <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9057	9169	
==>=>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2766	2891	
==>to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2766	2891	
==>to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2766	2891	
==>to $class ($@)";
        $tmp = p6_from_s("");
    }
    return $tmp;
};

MULTI SUB infix:<,>  (*@a) {
    # warn "COMMA: @a\n <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	1021	1138	
==>.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_pat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3676	3777	
==>0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3676	3777	
==>0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $spa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38227	38331	
==>>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42776	42880	
==>>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42426	42530	
==>>

I<TODO.>

=item C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C< <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	502	630	
==>> $Config{scriptdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{site <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8784	8904	
==>op::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8977	9097	
==>op::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13450	13547	
==>$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backs <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13450	13547	
==>$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backs <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1402	1492	
==>turn $dir->file( $self->config->_available );
}

=head2 $file = $inst->files_list( $pkg_nam <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3649	3760	
==>ng renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7126	7237	
==>ng renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6083	6194	
==>ng renamed."
        if any( $mapping.values )
            === any( $!heading.difference( all( $mapping.keys ) ) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1527	1630	
==>n $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Rul <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2728	2842	
==>?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2728	2842	
==>?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21885	21992	
==>xample sub-classes, F<Regexp::NoCode>, and
F<Regexp::AndBranch>.

=head2 Parser Internals

The parser object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2841	2935	
==>:Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2841	2935	
==>:Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2841	2935	
==>:Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5395	5496	
==>c ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5395	5496	
==>c ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5395	5496	
==>c ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1442	1580	
==>r_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1442	1580	
==>r_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1442	1580	
==>r_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class');
            $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	328	423	
==>y eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	328	423	
==>y eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	328	423	
==>y eq $idx;
  } elsif $self.isa("Array") {
    JS::inline('new PIL2JS.Box.Constant(function (args <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2774	2868	
==>rict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2774	2868	
==>rict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
u <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10896	11004	
==>Parrot, Bash, inputrc, the terminfo description, linuxrc, and welcome.p6 to the initrd",
    help   => "Note: <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	114	210	
==>ed anew whenever you enter a new rule or parenthesized
group.  This is approximately the Match ob <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	114	210	
==>ed anew whenever you enter a new rule or parenthesized
group.  This is approximately the Match ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2332	2448	
==>f necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2332	2448	
==>f necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2332	2448	
==>f necessary.
      ret.BINDTO = function (other) {
        if(!hash.exists(key))
          hash.add_pair(new PIL2JS.P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1055	1176	
==>CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1055	1176	
==>CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${sc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1055	1176	
==>CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{pScope},
    pSyms  => [ map {{
      fixed => "$_->[0]_${sc <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2086	2217	
==>ed}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	894	994	
==>ility with modules that
# do not inherit from Module::Compile but still want to do this sort
# of thi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	894	994	
==>ility with modules that
# do not inherit from Module::Compile but still want to do this sort
# of thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4910	5007	
==>tention
# paid to the associativity of the original operator and auto-metaed versions
# of user-de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4910	5007	
==>tention
# paid to the associativity of the original operator and auto-metaed versions
# of user-de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4910	5007	
==>tention
# paid to the associativity of the original operator and auto-metaed versions
# of user-de <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2066	2183	
==>tiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2066	2183	
==>tiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1122	1232	
==>str)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($str) for 1..40},
        P5_regex <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1672	1767	
==>ctory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this mo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1512	1607	
==>ctory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this mo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26267	26365	
==>()> value won't be reset (due to the C</c>
modifier).  Remember to use I<scalar> context.  If you n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31575	31672	
==>ise, and a program which uses both libraries
could have yet another set for itself.  When the prog <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31575	31672	
==>ise, and a program which uses both libraries
could have yet another set for itself.  When the prog <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1066	1175	
==>{
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1066	1175	
==>{
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child <==
3	/Users/nnunley/pugs/util/importgraph.pl	1925	2011	
==>('IMC', qr/^IMC\b/);
setup_cluster('RRegex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14031	14151	
==>ass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14031	14151	
==>ass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14031	14151	
==>ass
    p6_package_init('');
    p6_package_init('main');

    if(0){
	require Perl6::Container::Hash;
	require Perl6::Co <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2083	2192	
==>ze == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2083	2192	
==>ze == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1227	1338	
==>ut}= { named_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18136	18231	
==>scendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, scal <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18136	18231	
==>scendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, scal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1345	1456	
==>er named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$posit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1345	1456	
==>er named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$posit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1554	1665	
==>er named ones" if $now_named;
	    }
	    $db_param->is_optional(1)
		if $param->{optional};

	    push @{$posit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14210	14327	
==>@r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17687	17804	
==>@r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17103	17220	
==>@r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_wit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	556	663	
==>STANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	556	663	
==>STANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	556	663	
==>STANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5275	5378	
==>iles may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5275	5378	
==>iles may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5275	5378	
==>iles may be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4723	4855	
==>$next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4723	4855	
==>$next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4723	4855	
==>$next;
        }
    }
    $method_source .= "\n}";
    warn "pre: " . $method_source if $DEBUG;
    $method_source = $self->_post_pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11528	11638	
==>n'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".joi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11528	11638	
==>n'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".joi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11528	11638	
==>n'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".joi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	818	940	
==>$obj->mk_accessors( qw[repositories] );
    
    $obj->repositories( \@inst );
    
    return $obj;
}

1;

# Local variabl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	174	267	
==>se Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	174	267	
==>se Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5058	5199	
==>ours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interf <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5058	5199	
==>ours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7722	7835	
==>\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9650	9763	
==>\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7710	7823	
==>\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{ <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1296	1412	
==>ed.
    You can edit some settings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	500	599	
==>------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	500	599	
==>------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17564	17730	
==>or " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17564	17730	
==>or " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17564	17730	
==>or " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no warnings 'redefine';        
                local *::next <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12075	12237	
==>&Rx} =~ m{ \G (\d) }xgc;
          if ($v > 9 and $v > $S->{maxpar}) {
            &RxPOS -= length $v;
            $v = "";
          }
          elsif ($v > $S-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14194	14290	
==>eturn values of the callback routine are ignored.  The loop can
be broken by raising an exception <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14194	14290	
==>eturn values of the callback routine are ignored.  The loop can
be broken by raising an exception <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35714	35813	
==>e>

=head2 close

Family: close

Types: close1, close2 ... closeN (C<)> when in C<(...>)

Omitted

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32698	32794	
==>sult;
the new Relation contains all the tuples of the source Relations, including
one copy each o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37248	37344	
==>sult;
the new Relation contains all the tuples of the source Relations, including
one copy each o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11788	11897	
==>{ $prev->{data} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$tree;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14129	14225	
==>ation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17606	17702	
==>ation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9613	9719	
==>_img };

  step
    descr  => "Mounting \"$initrd_img\"",
    ensure => sub { `mount` =~ /\Q$initrd_img/ }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2522	2617	
==>tainer types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checkin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2522	2617	
==>tainer types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checkin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2522	2617	
==>tainer types
# TODO - add hooks for signature checks, autoboxing/un-boxing, return value checkin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1531	1635	
==>ast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1531	1635	
==>ast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shif <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3347	3442	
==>and then telling this module to compare the received
output to the expected output.

=head1 EXPO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3347	3442	
==>and then telling this module to compare the received
output to the expected output.

=head1 EXPO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3427	3522	
==>and then telling this module to compare the received
output to the expected output.

=head1 EXPO <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	738	844	
==>ined $pkg;
    my $dir  = $self->dir   or return;

    return $dir->subdir( $self->config->_control )->subd <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15433	15528	
==>nt for a variance of needs between its different
users, such as their preferred language of comm <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15433	15528	
==>nt for a variance of needs between its different
users, such as their preferred language of comm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1815	1953	
==>]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1815	1953	
==>]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #pri <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17552	17651	
==>$tot->{files}, $tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \&hea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13420	13539	
==>ELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16897	17016	
==>ELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16259	16378	
==>ELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) {
        # The first source's headin <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12769	12913	
==>to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($res <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12769	12913	
==>to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($res <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	271	370	
==>P 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	271	370	
==>P 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3703	3912	
==>thods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3703	3912	
==>thods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3703	3912	
==>thods => {
        'tieable' => sub { 
            _('$:cell')->{tieable} = 1; 
            1;
        }, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1003	1100	
==>plemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1003	1100	
==>plemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ---------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1003	1100	
==>plemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ---------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8797	8890	
==>(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2622	2715	
==>(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14569	14673	
==>("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14569	14673	
==>("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	326	427	
==>0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable - a comparable typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2984	3185	
==>->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2984	3185	
==>->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2984	3185	
==>->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	814	926	
==>en my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	814	926	
==>en my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	814	926	
==>en my $fh, "<", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8744	8854	
==>1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8744	8854	
==>1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8744	8854	
==>1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	42	146	
==>ternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package Prim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	42	146	
==>ternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package Prim <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	42	146	
==>ternative to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package Prim <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	494	615	
==>are()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	494	615	
==>are()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27780	27874	
==>tion::Example object has these methods:

=over

=item C<export_as_hash () returns Hash>

This m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5055	5171	
==>e subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5055	5171	
==>e subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        p <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1306	1409	
==>a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($ho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1306	1409	
==>a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($ho <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	47	128	
==>al/lib/perl5/site_perl/5.8.7/Module/Install/Win32.pm"
package Module::Install::Win <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3076	3187	
==>lf.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3076	3187	
==>lf.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3076	3187	
==>lf.value,);
  } elsif $self.isa("Array") {
    @$self;
  } else {
    die ".values does not work on objects of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12755	12851	
==>a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12755	12851	
==>a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12755	12851	
==>a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_postcirc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7431	7523	
==>(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1256	1348	
==>(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3455	3544	
==>_concatenation_more(conc(W,X), Z), !.
p5_concatenation_more(W, W) --> {true}.

p6_concaten <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	678	809	
==>r 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while( <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	678	809	
==>r 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3184	3277	
==>->set_x(100);
is($p->get_x, 100, '... got the right x for p2');
cmp_ok($p->id, '==', $old_p_id <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6139	6294	
==>r, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6139	6294	
==>r, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6139	6294	
==>r, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patterns.
            regexp = new RegExp(pat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27804	27903	
==>eturns a
value that is optionally a calculation using original attribute values as
inputs.  As a tri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32356	32455	
==>eturns a
value that is optionally a calculation using original attribute values as
inputs.  As a tri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31448	31547	
==>eturns a
value that is optionally a calculation using original attribute values as
inputs.  As a tri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1922	2074	
==>rName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1922	2074	
==>rName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1922	2074	
==>rName};
    }

    # XXX HACK! Support for &JS::inline.
    if(
      defined $subname                                 and
      $subname eq "&JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	293	399	
==>>{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	293	399	
==>>{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	293	399	
==>>{CC} if $self->{CC};

  no warnings "recursion";
  return $self->{pLV}->as_js;
}

sub unwrap { $_[0]->{pLV <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3077	3247	
==>) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3077	3247	
==>) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7710	7818	
==>/ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	}
    } elsif($s =~ /HASH/) <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1632	1715	
==>$makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3593	3676	
==>$makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1632	1715	
==>$makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2204	2367	
==>after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2451	2614	
==>after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13386	13518	
==>ute'",Dumper $n
            if @{$n->{attribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1592	1715	
==>me);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1592	1715	
==>me);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1592	1715	
==>me);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	443	558	
==>r = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $di <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8388	8481	
==>'line_interpolation')>

This event is begun when any block of characters is interpolated for m <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8388	8481	
==>'line_interpolation')>

This event is begun when any block of characters is interpolated for m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	289	487	
==>=> {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12951	13046	
==>2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12951	13046	
==>2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5882	6036	
==>mp     => [
        $5,
        do { 
          my $str = localtime($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2035	2132	
==>itten in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when use <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2035	2132	
==>itten in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	732	841	
==>hod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	732	841	
==>hod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	732	841	
==>hod delete (Hash|Array $self: *@idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2621	2756	
==>n]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2621	2756	
==>n]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1294	1396	
==>_count_stack} }, 0;
	
	$self->SUPER::enter_scope;	
}

sub leave_scope {
	my $self = shift;

	$self->SUP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12874	13099	
==>ry = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12874	13099	
==>ry = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12874	13099	
==>ry = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12720	12925	
==>} = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12720	12925	
==>} = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12720	12925	
==>} = [ @params[$i..$#params] ];
                        }
                        elsif ( $spec->type->name eq 'Hash' ) {
                            my $ary = Hash->new;
                            for ( @p <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2407	2500	
==>bout meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are wh <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2407	2500	
==>bout meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are wh <==
3	/Users/nnunley/pugs/util/package-osx.pl	6052	6140	
==>usr/local/man/man3/Perl6::Overview::Functions.3pm
        /usr/local/man/man3/Perl6::Over <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20343	20447	
==>) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20343	20447	
==>) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20343	20447	
==>) { Perl6::Value::identify($xx0) eq Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'd <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1506	1652	
==>n TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1506	1652	
==>n TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7305	7428	
==>Str)\
\\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19056	19155	
==>h_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restori <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19056	19155	
==>h_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restori <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7682	7836	
==>if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            wa <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7682	7836	
==>if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            wa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27210	27357	
==>ush($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) returns list {
    ...
}

=cut

$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7559	7719	
==>nf );
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7559	7719	
==>nf );
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8503	8602	
==>:CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8503	8602	
==>:CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8503	8602	
==>:CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>";
    no warnings "r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	381	491	
==>ented character sets.  <-[...]>  They are all tagged with
#     #SourceCharacter but not ...
#     But <SourceC <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5065	5165	
==>IME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $enco <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5065	5165	
==>IME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $enco <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	762	861	
==>perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	762	861	
==>perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	762	861	
==>perl.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3713	3825	
==>guage.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $new_pars <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3581	3689	
==>guage.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $new_pars <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3316	3410	
==>> p5_quantified(W), p5_concatenation_more(W, Z), !.
p5_concatenation(noop) --> {true}.
p5_conca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11373	11543	
==>t auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11373	11543	
==>t auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11373	11543	
==>t auto-dereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2448	2543	
==>r->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2448	2543	
==>r->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_d <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2448	2543	
==>r->new()}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4654	4769	
==>{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4794	4909	
==>{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12649	12771	
==>)};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(ra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12649	12771	
==>)};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(ra <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12649	12771	
==>)};
# return - see op0
# yield - see op0
# take - see op0
# MULTI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16065	16162	
==>y are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16065	16162	
==>y are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16874	17006	
==>) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16874	17006	
==>) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16874	17006	
==>) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    elsif ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4301	4402	
==>omplement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4301	4402	
==>omplement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4366	4478	
==>s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4366	4478	
==>s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2249	2355	
==>odes

Nodes are parts of the Blondie Abstract Syntax Tree, and can be executed by a
runtime. An example run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	262	367	
==>CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	262	367	
==>CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	262	367	
==>CC} and die) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $sel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14693	14790	
==>reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerfu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14693	14790	
==>reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerfu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1859	1964	
==>= $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1859	1964	
==>= $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1859	1964	
==>= $self->{pVarName};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1834	1968	
==>Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1834	1968	
==>Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1834	1968	
==>Dispatchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7890	8008	
==>turn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7890	8008	
==>turn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7890	8008	
==>turn if !@classes_needed;
    my $code;
    foreach (@classes_needed) {
        $have_classes{$_} = 1;
        $code .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20186	20276	
==>~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20186	20276	
==>~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20186	20276	
==>~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI SUB infix:<!~> ($xx0,$xx1) { p6_from_b(!p6 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2933	3053	
==>eate('WALKMETH' => closure->new(
        $::ENV,
        closure::signature->new(
            params => closure::params-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3489	3582	
==>eractive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta:: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3489	3582	
==>eractive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2535	2661	
==>Pair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2535	2661	
==>Pair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2535	2661	
==>Pair(
        thing.key.toNative(),
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8387	8497	
==>ser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9406	9496	
==>sh @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Gramma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3231	3321	
==>sh @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Gramma <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3136	3317	
==>ives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), return;
                } <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16019	16111	
==>trijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive. <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16077	16169	
==>trijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	803	930	
==>=> 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	803	930	
==>=> 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9281	9402	
==>ame' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	858	968	
==>ghest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_resolve( list_dependen <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11068	11165	
==>B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', : <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11068	11165	
==>B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1012	1131	
==>itive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1012	1131	
==>itive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1012	1131	
==>itive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1797	1906	
==>se Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1797	1906	
==>se Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1797	1906	
==>se Perl6::MetaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.* <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20122	20231	
==>outpath, $output_dir);
    $outpath    =~ s/\.t$/\.html/;
    return $outpath;
}


# Takes one hash argument w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5726	5823	
==>eems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5726	5823	
==>eems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4888	5016	
==>: $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4888	5016	
==>: $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4888	5016	
==>: $!\n";

  command_conf("output");
}

sub command_js {
  my $pil = eval { compile_perl6_to_mini_js "-e", $_[0] };
  print $OUT $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3257	3355	
==>rity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3257	3355	
==>rity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3257	3355	
==>rity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    // [].concat(...): Defeat m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4493	4594	
==>LF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4493	4594	
==>LF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1005	1128	
==>ct:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %! <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1005	1128	
==>ct:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %! <==
3	/Users/nnunley/pugs/util/build_pugs.pl	106	201	
==>mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs;
use C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16635	16732	
==>patcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16635	16732	
==>patcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16635	16732	
==>patcher to ignore any futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13166	13327	
==>] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13166	13327	
==>] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13166	13327	
==>] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23132	23230	
==>lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23132	23230	
==>lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10212	10333	
==>ling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10212	10333	
==>ling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3194	3310	
==>l variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional paramete <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3378	3494	
==>l variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional paramete <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	2143	2301	
==>y != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_day < $cur_day;
    } else {
      $till_day[-1]++;
    }
  }

  return @till_ <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3634	3767	
==>[0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = traverse <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1432	1528	
==>val sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17843	17955	
==>nfess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17843	17955	
==>nfess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17843	17955	
==>nfess "No next-method for '$label' found" unless defined $method;
                    return $method->($self, @{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12355	12530	
==>]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12355	12530	
==>]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12355	12530	
==>]});  
        }
        else {   
             
            # get the dispatcher instance ....
            my $dispatcher = $class->dispatcher(':canonical');  
            # w <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	4	104	
==>e 1
package Module::Install::Win32;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @IS <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6160	6255	
==>nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6160	6255	
==>nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %cha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5885	5989	
==>terpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5873	5977	
==>terpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3134	3236	
==>$_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7946	8092	
==>!$p5 {
        my $pre = "";
        if %mods<i> || %mods<ignorecase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid hask <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2342	2442	
==>rn a closure.  Call the closure with a block of 
data to have it enciphered or deciphered; when you'r <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2342	2442	
==>rn a closure.  Call the closure with a block of 
data to have it enciphered or deciphered; when you'r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3340	3459	
==>($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The to <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3340	3459	
==>($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34354	34449	
==>(C<\w>, C<\W>), alpha, ascii, cntrl, digit (C<\d>, C<\D>), graph, lower,
print, punct, space (C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1461	1589	
==>ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1461	1589	
==>ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1461	1589	
==>ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	470	571	
==>t file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	470	571	
==>t file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32567	32662	
==>walked into, after it has
been walk()ed, it will insert the matching 'close' node into the
walki <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6041	6150	
==>ckage know it's parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6041	6150	
==>ckage know it's parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6041	6150	
==>ckage know it's parent package? How would this look in Perl 6?
Would it be a package level version of OUTER::? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1609	1762	
==>pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1609	1762	
==>pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1609	1762	
==>pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa("PIL::PExp")          an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2339	2457	
==>dy) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2339	2457	
==>dy) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2339	2457	
==>dy) = @_;
    
    my $metaclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32970	33066	
==>he general category into which that object falls.

This is very sparse.  Future versions will hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4187	4290	
==>::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4187	4290	
==>::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4187	4290	
==>::opaque_instance_attr($self => '@:superclasses');
});

::Class.meta.add_method('subclasses' => method ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8846	9024	
==>@$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{na <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5206	5384	
==>@$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6055	6233	
==>@$rule ) {
                    next unless ref($_) eq 'HASH';
                    next unless exists $_->{named_capture};
                    
                    for ( @{ $_->{na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1956	2062	
==>struct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1956	2062	
==>struct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1956	2062	
==>struct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Li <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1613	1708	
==>ule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1613	1708	
==>ule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20563	20734	
==>aram => comb(
							fun => comb(
								fun => ide("mul"),
								param => ide("r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1623	1769	
==>e ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1623	1769	
==>e ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2382	2488	
==>s = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_aut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2382	2488	
==>s = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_aut <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2382	2488	
==>s = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly_aut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3094	3206	
==>:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3094	3206	
==>:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3094	3206	
==>:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15974	16126	
==>$label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15974	16126	
==>$label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15974	16126	
==>$label)" if $DISPATCH_TRACE;                    
        my $class = ::opaque_instance_class($self);
        
        # XXX - 
        # this seems to pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	497	653	
==>\$2; push \@match, \$1 } : 0 )";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_[0]', 
            match => do{ my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5732	5866	
==>=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5550	5680	
==>=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	394	507	
==>ntext.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	394	507	
==>ntext.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	394	507	
==>ntext.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.ItemAny, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1469	1569	
==>elude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1676	1776	
==>elude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cac <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12322	12498	
==>ar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12316	12492	
==>ar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3602	3688	
==>, Z), !.
p6_concatenation_more(W, Z) --> p6_quantified(X), p6_concatenation_more(conc(W <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	762	875	
==>b SessionDecode($data) {
    for(split('&',$data)) {
        my($variable,$value) = split('=',$_);
        %Sessio <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10987	11084	
==>ool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- ` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11045	11142	
==>ool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- ` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7568	7724	
==>e');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7568	7724	
==>e');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7568	7724	
==>e');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' => <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	627	717	
==>ts = $strap->analyze($name, \@test_output);
  my %results = $strap->analyze_fh($name, $test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1933	2091	
==>$h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1933	2091	
==>$h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1933	2091	
==>$h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3863	3972	
==>e without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3863	3972	
==>e without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3863	3972	
==>e without hacks
sub PIL2JS::Internals::Hacks::hash_postcircumfix_for_undefs (
  $hash is rw, *@keys
) is primi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4620	4785	
==>)<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4620	4785	
==>)<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11274	11368	
==>~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11274	11368	
==>~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6920	7039	
==>y (@copy) {
        my $path = dir($key)->subdir($pkg->meta->$key);
        
        # maybe use another mechanism to ca <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5954	6051	
==>y stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5954	6051	
==>y stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7894	8003	
==>_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7894	8003	
==>_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7894	8003	
==>_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    return 1 if $class_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1353	1458	
==>angle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1353	1458	
==>angle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1353	1458	
==>angle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote($classname);
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4026	4178	
==>role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4026	4178	
==>role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4026	4178	
==>role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	415	527	
==>ning:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    match - the "match" t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	395	503	
==>ning:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" t <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	474	579	
==>erform one step -- i.e. get an event from @:events and call it.
  my method step () {
    return unless @: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	664	775	
==>tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	664	775	
==>tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10523	10607	
==>r_class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(horizonta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13768	13893	
==>xed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13768	13893	
==>xed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13768	13893	
==>xed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) ) {
        $s = $Perl6::Value::obj_id . $key->id
    }
    return $s;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1587	1688	
==>E  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1587	1688	
==>E  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1587	1688	
==>E  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7831	7966	
==>up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_che <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7831	7966	
==>up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_che <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7831	7966	
==>up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_che <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1621	1732	
==>. $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1621	1732	
==>. $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3221	3317	
==>,start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callbac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4039	4148	
==>" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4039	4148	
==>" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4039	4148	
==>" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13441	13589	
==>},
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13441	13589	
==>},
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13441	13589	
==>},
            'slice' =>    sub {
                # Returns an array whose fetch/store are bound to this array
                my ( $self, @list ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6053	6155	
==>. $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10310	10412	
==>. $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7222	7322	
==>{
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7222	7322	
==>{
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7222	7322	
==>{
    return join '-' => ($::SELF->name, $::SELF->version, ($::SELF->authority || ()));
}));

1;

__E <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	480	584	
==>nly once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submatch() 
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	480	584	
==>nly once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submatch() 
sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	587	681	
==>ndie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	219	340	
==>{
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	219	340	
==>{
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10197	10316	
==>ng:

    bool  - an "assertion" (true/false)
    from  - string pointer for start of this match
    to    - string p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3	101	
==>usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3	101	
==>usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3	101	
==>usr/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Pneuma;

# This is psyche, this creat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12635	12738	
==>ode); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12635	12738	
==>ode); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12635	12738	
==>ode); die if $@;
}

no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Ru <==
3	/Users/nnunley/pugs/util/claim_drift.pl	518	621	
==>if (! -d "..${FS}DrIFT") {
    warn <<".";
*** No DrIFT directory found. Make sure you are in the top le <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2662	2759	
==>n $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subs <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2662	2759	
==>n $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subs <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18555	18662	
==>ndard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link tha <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18555	18662	
==>ndard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link tha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2619	2724	
==>force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  $self->add_handler('\D' => s <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21594	21718	
==>ternals::compile_file_to_yml($path);
        }
      }
      return opRequire();
    }
    die "Can't find " ~ $file ~ ' in @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34819	34917	
==>r_names => ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34819	34917	
==>r_names => ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7127	7286	
==>ub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7127	7286	
==>ub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7127	7286	
==>ub { 
                my $value = _('$.unboxed');
                # perl5 doesn't support string decrement
                $::SELF->ref->new( '$.unboxed' => Per <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17498	17620	
==>=> 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17498	17620	
==>=> 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	303	425	
==>str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	303	425	
==>str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	303	425	
==>str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        var <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1868	1971	
==>n $self->[2]->fetch($name);
}

sub set_attr {
    my ($self, $name, $value) = @_;
    (blessed($name) && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14173	14351	
==>w
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14173	14351	
==>w
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14173	14351	
==>w
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_na <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3620	3752	
==>e_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $nam <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13658	13752	
==>tisfied within a 
reasonable range of values.

You should consider using a Set::Infinite object <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13658	13752	
==>tisfied within a 
reasonable range of values.

You should consider using a Set::Infinite object <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2271	2381	
==>for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2271	2381	
==>for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	708	845	
==>i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	708	845	
==>i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	708	845	
==>i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4921	5037	
==>=> $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4921	5037	
==>=> $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4921	5037	
==>=> $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->params->fixup(
        $self->p <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3163	3263	
==>structor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Nod <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3163	3263	
==>structor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21653	21892	
==>ay' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21653	21892	
==>ay' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21653	21892	
==>ay' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCA <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	967	1068	
==>L::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	967	1068	
==>L::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	284	373	
==>gs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use base 'Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1551	1668	
==>{ 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1551	1668	
==>{ 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1551	1668	
==>{ 0 - $x }
multi sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1349	1455	
==>')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1349	1455	
==>')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VN <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1349	1455	
==>')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
package VN <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3390	3518	
==>ExpressionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule Li <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	71	182	
==>time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	71	182	
==>time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6365	6503	
==>lternately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6365	6503	
==>lternately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain w <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	336	447	
==>package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2607	2741	
==>te = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2607	2741	
==>te = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39147	39278	
==>_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class specific code
    }
    else {
      # elsewher <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	156	278	
==>t++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	156	278	
==>t++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	156	278	
==>t++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	47	158	
==>se strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Mo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	42	153	
==>se strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Mo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	42	153	
==>se strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6319	6455	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6319	6455	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6319	6455	
==>,
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2704	2804	
==>uilding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2704	2804	
==>uilding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4228	4328	
==>uilding test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12833	12944	
==>xists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12833	12944	
==>xists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12833	12944	
==>xists {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    exists $this->{hashref}{$s} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3365	3479	
==>LICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3365	3479	
==>LICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3365	3479	
==>LICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3891	3995	
==>led for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3891	3995	
==>led for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3891	3995	
==>led for ($label) ... for " . $opts{for} if $DISPATCH_TRACE;
        while (my $current = $dispatcher->()) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1825	1934	
==>~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1825	1934	
==>~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1825	1934	
==>~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inline('(function (arr) { return arr.length })')(@self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16751	16854	
==>1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty list.

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16751	16854	
==>1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty list.

=hea <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16751	16854	
==>1 DESCRIPTION

This module implements a "List" object.

new() without parameters is an empty list.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1414	1514	
==>TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1414	1514	
==>TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1414	1514	
==>TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Perl6::MetaModel;
use Perl6::Val <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	13037	13161	
==>d shift () is primitive { =open(self) }

    method trans (Pair *@intable) is primitive is safe {
        # Motto: If in doub <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4472	4577	
==>:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4472	4577	
==>:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3867	4053	
==>d > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3867	4053	
==>d > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	624	753	
==>aker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18339	18439	
==>rivmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18339	18439	
==>rivmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4102	4202	
==>]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSlashOrAsteriskChar {  # see 7.4
      <-[/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2932	3035	
==>»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2932	3035	
==>»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2932	3035	
==>»",  2, "S", "String(a) < String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	54	160	
==>this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	54	160	
==>this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	54	160	
==>this file
#

# TODO
# 

use strict;

use Perl6::Value;

my $class_description = '-0.0.1-cpan:FGLOCK';

clas <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4056	4238	
==>$start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { re <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4056	4238	
==>$start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { re <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28059	28153	
==>C<HARNESS_PERL_SWITCHES>

Its value will be prepended to the switches used to invoke perl on
ea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	365	516	
==>RAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	365	516	
==>RAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	365	516	
==>RAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things')};
                my $type = _(' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5528	5711	
==>f Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9005	9188	
==>f Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Rel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3699	3796	
==>ode();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile(< <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19146	19249	
==>e, $type, $totals) = @_;

    die "FAILED--Further testing stopped" .
      ($self->{bailout_reason} ? " <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9006	9105	
==>ted and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::M <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9006	9105	
==>ted and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5872	5959	
==>s::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5872	5959	
==>s::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \& <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5872	5959	
==>s::Rebless->prune("__PRUNE__");
	Class::Rebless->custom($myobj, "MyName", { editor => \& <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10557	10649	
==>ness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10557	10649	
==>ness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3407	3500	
==>dle time zones or leap
seconds.

All methods take named parameters unless otherwise specified. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3407	3500	
==>dle time zones or leap
seconds.

All methods take named parameters unless otherwise specified. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13611	13708	
==>hatever annotation went with this attribute when it's declared"
::Class.meta.add_method('find_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13611	13708	
==>hatever annotation went with this attribute when it's declared"
::Class.meta.add_method('find_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13611	13708	
==>hatever annotation went with this attribute when it's declared"
::Class.meta.add_method('find_attr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2349	2495	
==>> '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2349	2495	
==>> '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1131	1240	
==>ves_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5953	6079	
==>ibute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5953	6079	
==>ibute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5953	6079	
==>ibute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DE <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	960	1058	
==>ment->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	960	1058	
==>ment->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6794	6895	
==><_head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6794	6895	
==><_head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14987	15108	
==>hich_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9197	9350	
==>s_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fm <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10188	10341	
==>s_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fm <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9860	9966	
==>re
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	303	456	
==>"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot chang <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	303	456	
==>"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot chang <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	303	456	
==>"}  = \&role;   
    
    *{"${pkg}::__"}  = \&__;        
}

sub _ {
    my $attr = shift;
    ($::SELF != $::CLASS)
        || confess 'You cannot chang <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12377	12494	
==>::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12377	12494	
==>::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12377	12494	
==>::ApiX;
  sub bit {my $e=shift; $e ? p6_from_b(1) : p6_from_b(0); }
}
MULTI SUB lazy ($xx) {...};
MULTI SUB defined ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3218	3318	
==>parator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3218	3318	
==>parator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3218	3318	
==>parator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2JS.Box.Constant(function (ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1341	1463	
==>d in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1341	1463	
==>d in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1341	1463	
==>d in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	753	865	
==>O "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	753	865	
==>O "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	753	865	
==>O "~$todo.value !! "";
    $count++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	530	631	
==>ct >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	530	631	
==>ct >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	530	631	
==>ct >
::opaque_instance_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11960	12070	
==>elf->registered_alternatives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $in <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	291	387	
==>::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::d <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	291	387	
==>::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::d <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3294	3392	
==>VType' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11213	11307	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should wo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11271	11365	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should wo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2777	2865	
==>rt(noop) --> {true}.

p5_alternatives(W, Z) --> "|", p5_concatenation(X), p5_alternatives <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34018	34146	
==>ite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34018	34146	
==>ite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34018	34146	
==>ite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3206	3322	
==>s, $base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5261	5360	
==>ch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5261	5360	
==>ch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7989	8149	
==>tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7989	8149	
==>tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7989	8149	
==>tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4111	4245	
==>sparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4111	4245	
==>sparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4111	4245	
==>sparams)
          ? join " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jspa <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3530	3656	
==>= Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        di <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3530	3656	
==>= Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16978	17125	
==>$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13399	13546	
==>$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	88	188	
==>ke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a way <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	88	188	
==>ke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a way <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	88	188	
==>ke.pl, as this script highly depends on the
# exact commandline options given.)
# Searching for a way <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4272	4369	
==>, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4272	4369	
==>, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4272	4369	
==>, ~$__b);
}

sub Pugs::Internals::symbolic_deref (Str $sigil, Str *@parts) is rw {
  JS::inline('n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7674	7783	
==>roxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7674	7783	
==>roxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7674	7783	
==>roxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) = (3, 4);
    var proxy = new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3041	3171	
==>,
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3041	3171	
==>,
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3041	3171	
==>,
  "abs",          1, "N", "Math.abs(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5445	5557	
==>LTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5445	5557	
==>LTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5445	5557	
==>LTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_from_s( uc(p6_to_s($xx <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	192	442	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en- <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	192	442	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8653	8748	
==>d by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8653	8748	
==>d by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Ciph <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5734	5825	
==>ean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4489	4590	
==>return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemente <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4489	4590	
==>return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemente <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10019	10115	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text', <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10019	10115	
==>LF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text', <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31733	31833	
==>tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36283	36383	
==>tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35519	35617	
==>tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11387	11584	
==>enced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11387	11584	
==>enced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11387	11584	
==>enced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $me <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11302	11397	
==>uld work with most reg-exps, but given that they are still a
somewhat experimental feature in Pu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11360	11455	
==>uld work with most reg-exps, but given that they are still a
somewhat experimental feature in Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1679	1770	
==>mpiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1679	1770	
==>mpiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13276	13377	
==>me() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13276	13377	
==>me() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4119	4218	
==>e'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4119	4218	
==>e'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4119	4218	
==>e'      => ::make_attribute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7521	7768	
==>maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find ever <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7985	8232	
==>maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find ever <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20284	20389	
==>now abstracted -- each node it comes across
will have its walk() method called.  And the ending node for s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15529	15622	
==>ause these functions will be mutually recursive, they will easily be
able handle arbitrarily c <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15587	15680	
==>ause these functions will be mutually recursive, they will easily be
able handle arbitrarily c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	407	544	
==>y $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	407	544	
==>y $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10370	10496	
==>om.
      We'll copy pugs and the libraries it needs to it.
HELP

  my @files = (
    [$pugs                 => "$initrd_mnt/bi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18628	18718	
==>ey list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
paramet <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18628	18718	
==>ey list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
paramet <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1530	1656	
==>path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1530	1656	
==>path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17464	17548	
==>,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0 <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1662	1763	
==>le =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1555	1644	
==>le =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12802	12962	
==>[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12802	12962	
==>[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12802	12962	
==>[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1603	1719	
==>r $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1603	1719	
==>r $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1249	1414	
==>ue data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1249	1414	
==>ue data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it . <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1249	1414	
==>ue data structure
    # it's nothing special, but it works :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1697	1807	
==>fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1697	1807	
==>fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1697	1807	
==>fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08-10
# * P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9004	9124	
==>ule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12862	12977	
==>ule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12862	12977	
==>ule
    warn "uncompiled subrule: $h - not implemented";
    return sub {};
}

# see commit #9783 for an alternate i <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	917	1121	
==>s ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add sy <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	917	1121	
==>s ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add sy <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2679	2780	
==>__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie::Backend::C;

= <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	230	327	
==>DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming closing n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	230	327	
==>DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming closing n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31876	31970	
==>od is a generic binary relational operator that takes a single
Relation in its C<$other> argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36426	36520	
==>od is a generic binary relational operator that takes a single
Relation in its C<$other> argume <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1845	1971	
==>atch: $match\n" ;
  my %token = ( name => $name, options => $options, equiv => $equivalence, match => $match, arity => 1 );
  m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3493	3598	
==>$self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3493	3598	
==>$self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31294	31393	
==>> operator; that subset is those for which the the
Bool-returning anonymous function in the argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35844	35943	
==>> operator; that subset is those for which the the
Bool-returning anonymous function in the argument <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35062	35161	
==>> operator; that subset is those for which the the
Bool-returning anonymous function in the argument <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	386	492	
==>unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	386	492	
==>unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4872	4973	
==>tive . ' => ' . $left->fetch($i)->type->to_native;
        # warn "with " . $right->fetch($i)->name->t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	726	867	
==>int "ws: $grammar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_ru <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1597	1697	
==>0

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1597	1697	
==>0

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	191	291	
==>tdir;

open(my $F, ">$testdir/$exename.c")
    or die "Can't create $testdir/$exename.c: $!";
pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5382	5481	
==>mc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5382	5481	
==>mc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13048	13260	
==>>value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13048	13260	
==>>value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13048	13260	
==>>value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bou <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13689	13852	
==>$script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq[ln -fs $alt $bin ] )                 and die $?;
        push @bin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1550	1674	
==>arse {
  my ($self, $rx) = @_;
  $self->regex($rx) or return if defined $rx;
  croak "no regex defined" unless &RxLEN;
  1 wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12987	13096	
==>thod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12987	13096	
==>thod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12987	13096	
==>thod () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16875	16987	
==>< 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_gen($n, &N <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	51	162	
==>l :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	51	162	
==>l :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $on <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1040	1134	
==>N

The runtime object is responsible for providing the compiler with replacement
data for stubs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19665	19768	
==>f->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19665	19768	
==>f->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19665	19768	
==>f->add_singleton_method($1, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2480	2624	
==>.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2480	2624	
==>.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2480	2624	
==>.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4192	4306	
==>gument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4192	4306	
==>gument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4192	4306	
==>gument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = File::Temp::tempfile(UNLI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4500	4626	
==>e}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4500	4626	
==>e}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4500	4626	
==>e}) {
      local $macro->{CC} = $cc;
      return $macro->as_js(@arg);
    } elsif($inv) {
      return "$cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	124	228	
==>] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	124	228	
==>] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	124	228	
==>] => $_[1]) }
}

{
  register "&statement_control:if" => my $if = sub {
    my ($cc, $cond, $true, $false <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4103	4230	
==>> "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2022	2122	
==>thods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2022	2122	
==>thods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2022	2122	
==>thods/multimethods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3738	3841	
==>. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3738	3841	
==>. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5935	6038	
==>. 

=item C<$passed = 1>

This parameter defaults to true, and so the factory returns a 
Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	379	490	
==>{
        die "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6934	7035	
==>($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_cont <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6934	7035	
==>($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_cont <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	983	1090	
==>e {
	my $self = shift;
	my $node = shift;

	my $h = Devel::STDERR::Indent::indent;
	warn "annotation: $node" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	47	140	
==>se warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	45	135	
==>se warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5646	5754	
==>SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5646	5754	
==>SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5646	5754	
==>SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4532	4655	
==>::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::C <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4532	4655	
==>::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::C <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1934	2054	
==>0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroot";
my $iso          = "cd.iso";

sub usage { print <<US <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6337	6457	
==>me;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6337	6457	
==>me;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6337	6457	
==>me;
    my $jsname = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL <==
3	/Users/nnunley/pugs/util/func_refact.pl	776	878	
==>itial}) {
        print "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doUnion (@{$Conf{initia <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6050	6146	
==>}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6050	6146	
==>}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Ev <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1729	1873	
==>m' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq ' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1729	1873	
==>m' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq ' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13820	13926	
==>end
  err_bracket:
    parse_error(mob, pos, "Unescaped ']' in charlist")
    goto end
  err_hyphen:
    pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6955	7097	
==>imental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6723	6859	
==>imental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2985	3117	
==>t"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_s <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2985	3117	
==>t"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	314	414	
==>ssoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a Slur <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	861	990	
==>)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	861	990	
==>)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7260	7410	
==>p {
    my $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    lo <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	596	692	
==>ns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH } <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	596	692	
==>ns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31279	31585	
==>f:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4284	4389	
==>->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4501	4606	
==>->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	357	547	
==>line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	357	547	
==>line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6171	6305	
==>or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6171	6305	
==>or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10547	10657	
==>r::nary->new(list => $a);
		type::operator::arrow->new( $l, $l );
	},
	# a -> b -> (a x b)
	pair => do {
		my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	622	754	
==>egex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	719	851	
==>egex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15271	15378	
==>=> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, \$how);
  }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9914	10033	
==>l "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9914	10033	
==>l "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9914	10033	
==>l "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	297	396	
==>window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	297	396	
==>window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	297	396	
==>window.setTimeout(function () {
      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5094	5207	
==>>jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5094	5207	
==>>jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5094	5207	
==>>jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opposed to * <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11730	11826	
==>_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06: <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11730	11826	
==>_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5162	5277	
==>$self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5162	5277	
==>$self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5752	5867	
==>$self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_})
	   for keys %$vars;
	return;
    }
    die "n <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1097	1245	
==>$n] }, {%$event, revision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_th <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12719	12813	
==>erset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12719	12813	
==>erset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30789	30980	
==>ast if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30789	30980	
==>ast if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30789	30980	
==>ast if $ret_length >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1154	1276	
==>nd now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1154	1276	
==>nd now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1154	1276	
==>nd now return it ...
    return $self;
});

::Class.meta.add_method('BUILDALL' => method (%params) returns Void { 
    my D <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16469	16613	
==>min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20895	21039	
==>min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2220	2349	
==>a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2220	2349	
==>a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1294	1402	
==>ex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub { <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	545	646	
==>e);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	545	646	
==>e);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40752	40845	
==>er 4

=item $parser->warn(RPe_ERRMSG, ARGS...)

Throws a warning I<only> during the first pass <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	515	693	
==>ush @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	603	781	
==>ush @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	600	773	
==>ush @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9378	9490	
==>{
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9378	9490	
==>{
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9378	9490	
==>{
    my($p6)=@_;
    my $pil = pil_from_p6($p6);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2283	2414	
==>ssage is copy )
  {
      $message ~~ s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_output.say( $me <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	272	395	
==>ssage is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	272	395	
==>ssage is copy )
{
    $message ~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	450	567	
==>apture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1176	1290	
==>apture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9293	9393	
==>"closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9293	9393	
==>"closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14248	14336	
==>_char(Name,C), !.
uncode_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_a <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16498	16613	
==>kip_all todo)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9397	9515	
==>l later mount.";

  step
    descr  => "Creating an ext2 filesystem on \"$initrd_img\"",
    ensure => sub { `strings $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14500	14604	
==>CTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `ne <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14500	14604	
==>CTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4024	4137	
==>@args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4024	4137	
==>@args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4024	4137	
==>@args, "--pugs=" . $cfg{pugs}, "--metamodel-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7721	7836	
==>pan1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7721	7836	
==>pan1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10981	11159	
==>m) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10981	11159	
==>m) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10981	11159	
==>m) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1648	1793	
==>for 1..20},
    fast_x10     => sub{$x->('abc')         for 1..200},
    P5regex_x100 => sub{ 'abc' =~ /[a|b](b)/o for 1..2000},
});

}

__ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	919	1021	
==>:getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	886	988	
==>:getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1989	2088	
==>p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1989	2088	
==>p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1155	1254	
==>OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1155	1254	
==>OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1155	1254	
==>OO;
use Prelude::JS::Proxy;

method JS::Root::undefine($a is rw:) {
  $a = undef;
}

sub JS::Root::t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13781	13902	
==>2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13775	13896	
==>2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $pre <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1186	1298	
==>s ( @list ) {
        print "\n*** $entry->{package} depends on $depends->{package}...\n";
    
        system(qq <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8855	8968	
==>$self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8855	8968	
==>$self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9216	9330	
==>ther::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3 <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9274	9388	
==>ther::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6872	6981	
==>on') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6872	6981	
==>on') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('auth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6872	6981	
==>on') = $version;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('auth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2202	2322	
==>apture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2190	2310	
==>apture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1811	1914	
==>strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_file| <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2083	2199	
==>epends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3452	3564	
==>epends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1629	1729	
==>tion

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

Initialize a new strap.

=cut

sub ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36117	36242	
==>length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36117	36242	
==>length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36117	36242	
==>length -> head=remaining -> body=shift tail until tail == length
            # make $#tail = -$length
            my $body = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1267	1365	
==>imeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1267	1365	
==>imeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1267	1365	
==>imeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17051	17150	
==>mple @r_with_shared_attrs;
    my Relation::Example @r_with_disjoint_attrs;
    while (my $r1 = @sou <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2764	2862	
==>this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 an <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2764	2862	
==>this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 an <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1192	1285	
==>>has_symbol($node)){
		return $self->symbolic_representation($node);
	}

	my $symbol = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3011	3129	
==>CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3011	3129	
==>CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3011	3129	
==>CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2656	2854	
==>ts')} = ($size - 1);
                }
            },

            'array_extendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $size = shift;
                p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4849	4951	
==>$set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4849	4951	
==>$set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2564	2688	
==>n success and false on failure.

=cut

sub _perl_version {
    my $self = shift;
    my %hash = @_;

    my $perl;
    my $tm <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	714	817	
==>rt_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_clo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	714	817	
==>rt_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12149	12247	
==>p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12149	12247	
==>p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use E <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12149	12247	
==>p6_from_x(p6_to_s($xx0)->(map{p6_to_s($_)}@$xxa)); #XXX p6_to_x
}; 
MULTI SUB try ($xx) {
    use E <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	472	653	
==>ybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	387	568	
==>ybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	475	656	
==>ybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5888	6036	
==>y $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5888	6036	
==>y $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5888	6036	
==>y $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  local $/;
  return decode "utf-8", <$fh>;
}

sub unslurp {
  open my $fh, "> $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19235	19337	
==>am => val(v => "foo", t => type::operator::nullary->new("str")),
		),
	),
);

# if we don't know what s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19051	19148	
==>op of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
tro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19051	19148	
==>op of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
tro <==
3	/Users/nnunley/pugs/util/func_refact.pl	2921	3025	
==>data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", score($tot <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5976	6069	
==>(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5976	6069	
==>(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3398	3502	
==>in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3398	3502	
==>in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16967	17065	
==>on> <'&'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <Equalit <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	882	1045	
==>s.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plug <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	882	1045	
==>s.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plug <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	194	306	
==>turns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	194	306	
==>turns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1817	1912	
==>my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeComp <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13426	13533	
==>es++;
  $outfile->print($template->output);
}

sub infest_syns {
    my $index = shift;

    my $p = Pod::Pl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	256	364	
==>ons;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	217	325	
==>ons;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	217	325	
==>ons;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2931	3049	
==>ends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = Loa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3395	3513	
==>ends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = Loa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1182	1286	
==>];

### repository dirs/files
$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'rep <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19220	19319	
==>e = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=hea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19220	19319	
==>e = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=hea <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	633	728	
==>ically three days old,
and only now is changing from an experimental "let's see if something
lik <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3360	3529	
==>t.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3360	3529	
==>t.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3360	3529	
==>t.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2944	3061	
==>_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2944	3061	
==>_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2944	3061	
==>_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attrib <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18497	18602	
==>t is no longer ' ' since that would be interpreted as a constant.

# sprintf # XXX - see Prelude.pm  And p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	516	615	
==>rgs->fetch(num->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocant <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1864	2008	
==>p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1864	2008	
==>p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1864	2008	
==>p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	906	1019	
==>pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	906	1019	
==>pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	906	1019	
==>pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL::MkPos;

  use warnings;
  use stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8522	8685	
==>calar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8522	8685	
==>calar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8522	8685	
==>calar @param == 1 ) {
                    # store whole hash
                    if ( Perl6::Value::p6v_isa( $param[0], 'Hash' ) ) {
                        $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5787	5930	
==>nt(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5787	5930	
==>nt(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5787	5930	
==>nt(obj["hash"]);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2457	2548	
==>-----------------------------------------

preludeStr :: String
.
    print OUT qq<preludeSt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6877	6970	
==>) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6877	6970	
==>) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6877	6970	
==>) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul $rule:) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	261	384	
==>())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	261	384	
==>())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	261	384	
==>())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &i <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	649	817	
==>or =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	649	817	
==>or =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4218	4325	
==>$pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($curren <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4218	4325	
==>$pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($curren <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4808	4915	
==>$pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	unless ($curren <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	134	228	
==>%char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that hav <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	134	228	
==>%char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that hav <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1612	1706	
==>_args->{INST_SCRIPT} =
      File::Spec->catfile($path, "script");
    $self->makemaker_args->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3701	3840	
==>]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3701	3840	
==>]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3701	3840	
==>]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{
    package Perl6::Param;

    sub new {
        # TODO - autobox/un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5427	5522	
==>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Recom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5427	5522	
==>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Recom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5427	5522	
==>". Of course, this feature is not available
when linking to a standalone JavaScript file.

Recom <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3606	3762	
==>depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND cont <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4070	4226	
==>depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND cont <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2244	2350	
==>:List';

    package Blondie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1226	1356	
==>nally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1226	1356	
==>nally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1226	1356	
==>nally, in as_js3, the actual checking is done.
    # In as_js_bind, the vars are then bound, and defaults are filled in, etc.
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4409	4533	
==><*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... }    # define a new metacharacter
         macr <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4856	4948	
==>following are the (pseudo) methods for Config::Tiny objects. These
methods can be called with <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4856	4948	
==>following are the (pseudo) methods for Config::Tiny objects. These
methods can be called with <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21726	21865	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22005	22144	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleo <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9190	9304	
==>n "*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # If the file exists, and it looks like it's i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2005	2108	
==>ncee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2005	2108	
==>ncee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2005	2108	
==>ncee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	13	126	
==>PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	13	126	
==>PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	13	126	
==>PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	971	1089	
==>~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	971	1089	
==>~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	971	1089	
==>~$todo.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23359	23489	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11208	11338	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19780	19910	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11400	11511	
==>::WithReason does Test::Builder::Test::Base
  {
      has Str $.reason;
  
      submethod BUILD ( $.reason ) {} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1852	1955	
==>::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason ) {} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1852	1955	
==>::WithReason does Test::Builder::Test::Base
{
    has Str $.reason;

    submethod BUILD ( $.reason ) {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1748	1851	
==>\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1748	1851	
==>\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1748	1851	
==>\n" if $verbose;
  my $load_check = <<EOF;
try { PIL2JS.Box } catch(err) {
  var error = new Error("PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9096	9207	
==>next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9096	9207	
==>next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9096	9207	
==>next_METHOD();
    }
}));


$::Role->add_method('STORE' => ::make_method(sub {
    my $self = shift;
    # ...
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1205	1308	
==>what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1205	1308	
==>what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1205	1308	
==>what we want (remember,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calce <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27950	28042	
==>ariable value (a string) associated with
the variable name specified in the positional parame <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27950	28042	
==>ariable value (a string) associated with
the variable name specified in the positional parame <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	585	691	
==>ages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	585	691	
==>ages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of e <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6269	6393	
==>/^6.4(?:.0)?$/;
    }
    else {
        push @pkgs, -package => 'unix';
    }
    push @pkgs, -package => 'readline' if grep <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2214	2310	
==>t> are virtual classes within the strategy.  They're
done like this until pugs gets support for v <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2214	2310	
==>t> are virtual classes within the strategy.  They're
done like this until pugs gets support for v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3982	4077	
==>isucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3982	4077	
==>isucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Obj <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3982	4077	
==>isucssion on how Packages work

$::Package = $::Class->new();

$::Package->superclasses([ $::Obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	3152	3292	
==>ibute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	3152	3292	
==>ibute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	3152	3292	
==>ibute;

        package Perl6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute');    
    }  
    
    # a con <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19806	19904	
==>bject is determined when it is constructed, and the object can
not be changed afterwards.

If you w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24358	24456	
==>bject is determined when it is constructed, and the object can
not be changed afterwards.

If you w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22910	23008	
==>bject is determined when it is constructed, and the object can
not be changed afterwards.

If you w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16962	17075	
==>a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    cle <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16962	17075	
==>a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    cle <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9211	9309	
==>n( $other );
}

multi method union (Relation::Example *@others) returns Relation::Example {

    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9829	9990	
==>mber      =>      $number,
          ) if $todo;
  
          return ::Test::Builder::Test::Skip.new(
              description => $description,
              pas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	403	554	
==>mber      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            pas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	403	554	
==>mber      =>      $number,
        ) if $todo;

        return ::Test::Builder::Test::Skip.new(
            description => $description,
            pas <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4819	4933	
==>ks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4819	4933	
==>ks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $even <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8325	8447	
==>thod($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8325	8447	
==>thod($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8325	8447	
==>thod($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13923	14025	
==>turn $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13923	14025	
==>turn $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11252	11340	
==>_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_sequence(char(C)) --> "\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4636	4776	
==>class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4636	4776	
==>class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4636	4776	
==>class method or the private instance 
                    # method, maybe there should be, but I am not sure
                    $new_class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15175	15304	
==>f;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15175	15304	
==>f;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15175	15304	
==>f;
    return '-Inf' if $v == -&Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit        { $_[0] == 0 ? '' : <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	184	338	
==>));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	184	338	
==>));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	184	338	
==>));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\";
      var min <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3397	3552	
==>_value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $int -> $bool;
                my $self = shift;
                my $id <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1372	1463	
==>ssert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_v <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1372	1463	
==>ssert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12847	12993	
==>ted in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12847	12993	
==>ted in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12847	12993	
==>ted in List.pm but are not exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17587	17737	
==>\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14008	14158	
==>\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = & <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	732	840	
==>label = str->new($label) 
        unless (blessed($label) && $label->isa('str'));
    
    my $args = list->n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7304	7416	
==>ode',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7304	7416	
==>ode',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	870	962	
==>doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	870	962	
==>doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	870	962	
==>doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11634	11813	
==>"    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7916	8095	
==>"    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8750	8929	
==>"    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'eval: ', \$a, '  ', \$src; \n" . <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2187	2440	
==>rName $attr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	444	551	
==>et.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directorie <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	444	551	
==>et.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directorie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	413	532	
==>turn $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	413	532	
==>turn $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	413	532	
==>turn $self;
}

sub tokenizer { (shift)->{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3658	3767	
==>Compiler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6238	6329	
==>nalyze_fh($name, $test_filehandle);

Like C<analyze>, but it reads from the given filehandle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11349	11494	
==>1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11349	11494	
==>1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11349	11494	
==>1]};
        # XXX - 
        # this seems to prevent some GC issues,.. 
        # so I am leaving it here for now
        #warn "got an undef cla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5898	5998	
==>st.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

cod <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5898	5998	
==>st.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

cod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	361	461	
==>=> sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ default_value = <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	60	154	
==>h-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	60	154	
==>h-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8413	8522	
==>he package name in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8413	8522	
==>he package name in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: <==
3	/Users/nnunley/pugs/util/run-smoke.pl	478	577	
==>okeKit.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/file.html
#
my $pugs_sandbox    = $ARGV <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16215	16331	
==>me and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4026	4122	
==>config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for exa <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4026	4122	
==>config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for exa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7019	7206	
==>r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10496	10683	
==>r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5132	5260	
==>e(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5333	5457	
==>e(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5333	5457	
==>e(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4527	4696	
==>il =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4389	4549	
==>il =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9365	9459	
==>ook::import();

1;
#__END__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9375	9743	
==>@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9375	9743	
==>@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5939	6101	
==>} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=['',''] unless $match; # defined($t) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1680	1792	
==>elf->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1680	1792	
==>elf->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1680	1792	
==>elf->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8556	8718	
==>t($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4916	5078	
==>t($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5765	5927	
==>t($_);
            }
            # no parameters? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3831	3940	
==>b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3831	3940	
==>b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3831	3940	
==>b, $a would get the 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	274	401	
==>-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some construct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	274	401	
==>-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some construct <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	274	401	
==>-01
# * fixed stringification
#
# 2005-08-31
# * str() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some construct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14608	14742	
==>MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14608	14742	
==>MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14608	14742	
==>MultiSub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7501	7586	
==>----------------------------------------------------------------------
## END BOOTSTRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7501	7586	
==>----------------------------------------------------------------------
## END BOOTSTRA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7501	7586	
==>----------------------------------------------------------------------
## END BOOTSTRA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3882	3992	
==>urn "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3882	3992	
==>urn "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3882	3992	
==>urn "" if $_->is_invocant or $_->is_slurpy;
    # New change as of 2005-08-22:
    #   On 8/22/05, Larry Wall < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10041	10153	
==>ackage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10041	10153	
==>ackage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10041	10153	
==>ackage $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $code; die "bug $@" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1510	1622	
==>can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1510	1622	
==>can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.le <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1510	1622	
==>can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for (var i = 0; i < arguments.le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5427	5608	
==>ired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5427	5608	
==>ired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5427	5608	
==>ired,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{default}() }
    sub required { <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1670	1766	
==>< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1670	1766	
==>< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33955	34051	
==>The vim regex C</x\&y/> means "match I<y> if I<x> can be matched
at the same location".  Therefor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7349	7453	
==>dence

=head1 SYNOPSIS

  use Pugs::Grammar::Precedence;

  # example definition for "sub rxinfix:< <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18523	18615	
==>oks (C functions
which get called on regular expression compilation and execution) to
parasit <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2813	2905	
==>oks (C functions
which get called on regular expression compilation and execution) to
parasit <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	907	1005	
==>ncode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) returns Str is exp <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	907	1005	
==>ncode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) returns Str is exp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24563	24655	
==>Every Relation::Example attribute has a name that is distinct from the other
attributes, thou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4370	4477	
==>');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4370	4477	
==>');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4370	4477	
==>');
    %mods_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2542	2638	
==>", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2542	2638	
==>", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2542	2638	
==>", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^» <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16574	16704	
==>ti Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALLER::<$_> --> Str )

Returns the <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5083	5181	
==>tructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a bo <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5083	5181	
==>tructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a bo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	55	161	
==>$_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::Rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	242	348	
==>$_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::Rul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	429	535	
==>$_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8194	8313	
==>nd {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8194	8313	
==>nd {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======== <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8194	8313	
==>nd {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#======== <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10884	11107	
==>shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24897	24989	
==>the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24897	24989	
==>the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	531	646	
==>axes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<st <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	531	646	
==>axes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4302	4467	
==>w( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4302	4467	
==>w( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4302	4467	
==>w( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	153	251	
==>* New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	153	251	
==>* New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	153	251	
==>* New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3505	3616	
==>,
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3505	3616	
==>,
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3505	3616	
==>,
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1086	1232	
==>idx -> $container # autovivification! - returns **CONTAINER**
                my $self = shift;
                my $idx = shift;
                $s <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7072	7173	
==>ling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in gener <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7072	7173	
==>ling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in gener <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2288	2429	
==>ss, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2835	2976	
==>ss, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3382	3523	
==>ss, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14752	14862	
==>ift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14752	14862	
==>ift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	293	395	
==>X: move this to config.yml?
END { unlink $TEMP_PRELUDE unless $Config{keep} };

GetOptions \%Config, qw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4168	4291	
==>\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4168	4291	
==>\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4168	4291	
==>\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	73	167	
==>gister { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	73	167	
==>gister { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	73	167	
==>gister { $macro{$_[0]} = PIL::P5Macro::JS->new($_[0] => $_[1]) }
}

{
  register "&statement_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2985	3219	
==>? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3232	3466	
==>? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3997	4123	
==>s => $rx->{flags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8500	8636	
==>( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8500	8636	
==>( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8500	8636	
==>( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	595	839	
==>:Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Locali <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	595	839	
==>:Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Locali <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	795	913	
==>'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	795	913	
==>'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	795	913	
==>'Dispatchable';
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instance_id { 
        $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3163	3330	
==>name => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKA <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	303	442	
==>OGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	303	442	
==>OGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3455	3554	
==>:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Templa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3455	3554	
==>:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Templa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3190	3299	
==>('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3190	3299	
==>('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3190	3299	
==>('can' => method () { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2304	2406	
==>ltisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2304	2406	
==>ltisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2304	2406	
==>ltisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Sca <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9695	9799	
==>le=>1") if $op{'isWritable'};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3616	3714	
==>k

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3833	3931	
==>k

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11274	11380	
==>rnative( package => $inst_pkg )

=cut

sub remove_registered_alternative {
    my $self = shift;
    my %ha <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4476	4569	
==>.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4476	4569	
==>.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7144	7270	
==>{
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3748	3874	
==>{
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4597	4723	
==>{
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ s/([\'])/\\$1/g;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2008	2111	
==>e));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2008	2111	
==>e));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2008	2111	
==>e));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16571	16754	
==>alues -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20048	20231	
==>alues -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19608	19791	
==>alues -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	853	951	
==>n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	853	951	
==>n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	853	951	
==>n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	358	461	
==>TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	170	269	
==>TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4659	4755	
==>l_object.<[[Put]]>(GetPropertyName($V),$W);
    return;
}

# 8.8 The List Type
class JSX::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3795	3924	
==>'no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>) <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3795	3924	
==>'no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5319	5448	
==>'no_plan');
  # or
  plan :tests<20>;

  ok(2 == 2, '... 2 is equal to 2');
  is(2 + 2, 5, '... 2 plus 2 should be 5', :todo<bug>) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4028	4135	
==>() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4028	4135	
==>() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4028	4135	
==>() eq '(') {
        ($method_type, @params) = $self->_parse_parameters($i);
    }
    $i->skipTokensUntil(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5935	6071	
==>rgl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5935	6071	
==>rgl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5935	6071	
==>rgl, $f)=@_;
    my $n = $name;
    if ($n =~ /\>$/) {
        $n =~ s/:\<(.+?)\>$/:$1/;
    } elsif ($n =~ /\]$/) {
        $n =~ s/:\[( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4409	4505	
==>RHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4409	4505	
==>RHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4409	4505	
==>RHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1592	1737	
==>ubname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1592	1737	
==>ubname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1592	1737	
==>ubname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self->{pInv}->isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11649	11775	
==>n Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11649	11775	
==>n Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11649	11775	
==>n Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9711	9823	
==>return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9691	9803	
==>return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1214	1316	
==>tems) === any($!members));
    return $answer;
}

method member($self: $item) returns Object {
    retu <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1214	1316	
==>tems) === any($!members));
    return $answer;
}

method member($self: $item) returns Object {
    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12306	12408	
==>r a reference
to an array of them) and does something to them (and their children).

=head1 ERROR HANDL <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1168	1275	
==>* includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objec <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1168	1275	
==>* includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objec <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	75	172	
==>die::Compiler/;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Compiler - 

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28396	28544	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28675	28823	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6487	6582	
==>S_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6487	6582	
==>S_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6487	6582	
==>S_printWithoutNewline = printWithoutNewline;
var document = {
  write: PIL2JS_printWithoutNewlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	978	1093	
==>e>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	978	1093	
==>e>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	978	1093	
==>e>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4270	4367	
==>NE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4270	4367	
==>NE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4270	4367	
==>NE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1487	1587	
==>xs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1487	1587	
==>xs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1487	1587	
==>xs[i]) : array.length + Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11751	11875	
==>rgs,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11751	11875	
==>rgs,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11751	11875	
==>rgs,1));
    }
    if(!p6_to_b($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@ar <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4033	4136	
==>msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4033	4136	
==>msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4778	4879	
==>pe'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($self,$fname)=@_;
    ($self->{'field_ty <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	135	254	
==>llation;


use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	140	258	
==>llation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	138	256	
==>llation;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[check];
use Log::Mes <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	264	379	
==>r;
    bless { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runti <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3200	3294	
==>re it shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3200	3294	
==>re it shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1399	1520	
==>d objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1399	1520	
==>d objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1399	1520	
==>d objects of any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20333	20506	
==>$_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20333	20506	
==>$_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20333	20506	
==>$_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @items );
                        $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2614	2781	
==>&circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_var <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2614	2781	
==>&circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_var <==
3	/Users/nnunley/pugs/util/testgraph.pl	951	1056	
==>le.html

Generates an HTML summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTM <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	745	864	
==>exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignoreca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	745	864	
==>exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignoreca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	745	864	
==>exhaustive
        rw keepall e each any parsetree>;
    %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignoreca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11998	12175	
==>ersion);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11998	12175	
==>ersion);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class method <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28782	28876	
==>ok................ok
  t/test-harness......ok
  All tests successful.
  Files=4, Tests=24, 2 wa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5199	5331	
==>ine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interfac <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5199	5331	
==>ine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interfac <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4156	4261	
==>\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1351	1453	
==>e>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile su <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1351	1453	
==>e>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile su <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3635	3731	
==>pass( Str $description )>

Marks that the next test should pass.  C<$description> is the optional <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3635	3731	
==>pass( Str $description )>

Marks that the next test should pass.  C<$description> is the optional <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3715	3811	
==>pass( Str $description )>

Marks that the next test should pass.  C<$description> is the optional <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5506	5613	
==>nal ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5506	5613	
==>nal ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6096	6203	
==>nal ref
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	749	850	
==>(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	749	850	
==>(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	749	850	
==>(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4173	4280	
==>y $postamble = "# Postamble by $top_class $top_version\n"
        . ($self->postamble || '');

    local *MA <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9961	10053	
==>ad2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C<$set1> whi <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9961	10053	
==>ad2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C<$set1> whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9824	9973	
==>$slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9824	9973	
==>$slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9824	9973	
==>$slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice isa $slice";
            my @item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19928	20156	
==>e::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19928	20156	
==>e::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "g <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19928	20156	
==>e::stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2191	2270	
==>tcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2191	2270	
==>tcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2191	2270	
==>tcircumfix:|rule_modifier:|trait_verb:|trait_auxiliary:|scope_declarator:|statem <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6509	6618	
==>me' }
END
    }
$code .= "package ${pkg_root}::Node;\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3694	3801	
==>a::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3694	3801	
==>a::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	683	788	
==>oo).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	683	788	
==>oo).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	683	788	
==>oo).
      JSAN._exportList = function (classdef, exportList) {
        if (typeof(exportList) != "object" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37064	37158	
==>tion where a pair of source
relations have zero attributes in common, their joining degenerates <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41613	41707	
==>tion where a pair of source
relations have zero attributes in common, their joining degenerates <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41236	41330	
==>tion where a pair of source
relations have zero attributes in common, their joining degenerates <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3428	3546	
==>ort {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3428	3546	
==>ort {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4952	5070	
==>ort {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $d <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2188	2290	
==>ndef],var=>[],op_ahead=>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6223	6321	
==>ted only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-like syntax <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6010	6106	
==>ted only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-like syntax <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14151	14316	
==>ore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14151	14316	
==>ore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14151	14316	
==>ore this safely for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4834	4952	
==>@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4834	4952	
==>@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4834	4952	
==>@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9929	10043	
==>:Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9929	10043	
==>:Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9929	10043	
==>:Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22228	22327	
==>e op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22228	22327	
==>e op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22228	22327	
==>e op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	472	572	
==>UPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	472	572	
==>UPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6830	6979	
==>@v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6830	6979	
==>@v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $sel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	66	172	
==>ime.
It seems likely there will be more than one.

Design goals:
 1 Correctness - mirror the spec.
 2 Inter <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11781	11876	
==>es them properly.  The nchar() method takes
a named character's name, and returns the actual cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1628	1720	
==>y Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribut <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1628	1720	
==>y Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribut <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	981	1082	
==>XXX - weaken self-referential things



sub ruleop::alternation {

    # alternation is first match (n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	942	1040	
==>XXX - weaken self-referential things

sub ruleop::alternation {
    # alternation is first match (n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4925	5017	
==>fix_up_makefile: Couldn't open $makefile_name: $!";
    print MAKEFILE  "$preamble$makefile$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	491	592	
==>= $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	491	592	
==>= $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	491	592	
==>= $args =~ /\A\s*\Z/ ? "" : "my($args5)=\@_; ";
    "def '$what','$name', [$args6], sub {my \$_fn ='$n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12952	13100	
==>{
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12952	13100	
==>{
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4944	5063	
==>tom',
    # XXX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12803	12913	
==>ow should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12803	12913	
==>ow should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my m <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1805	1921	
==>turns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @str <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1805	1921	
==>turns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28852	28960	
==>ple $other!) returns Bool>

This method returns the complement of C<equal> with the same argument.

=item C<r <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	766	860	
==>g/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under ac <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	766	860	
==>g/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4948	5076	
==>[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4948	5076	
==>[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4948	5076	
==>[0]) eq 'Hash' || ref($_[0]) eq 'Dispatchable' && $_[0]->isa('Hash') } ) : 
            $name =~ /^\&/ ?
                Perl6::T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1207	1382	
==>f any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1207	1382	
==>f any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8502	8629	
==>lf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'clump',
      type => 'clump',
      vis => $vis <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5801	5905	
==>alar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5801	5905	
==>alar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2896	2994	
==>ewstr;

    if(stringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);}
    start = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1574	1690	
==>rs
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1574	1690	
==>rs
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1574	1690	
==>rs
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1708	1809	
==>ive rules, you should
#  create a new grammar, inherit from this one, and redefine just those
#  rules <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4664	4793	
==>ive;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4664	4793	
==>ive;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4664	4793	
==>ive;
      #return sprintf "%s.perl_methods[%s]([\n%s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if def <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35062	35163	
==>t that is a clone of the first but for the changes.

=back

A Translator object has these methods:

=o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35062	35163	
==>t that is a clone of the first but for the changes.

=back

A Translator object has these methods:

=o <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1097	1195	
==>urn \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $Package_re = qr/^(\w <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3137	3237	
==>ta::Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fgl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20307	20402	
==>ed by a single line containing the hexadecimal digest of the
result in double quotes followed by <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20307	20402	
==>ed by a single line containing the hexadecimal digest of the
result in double quotes followed by <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2320	2461	
==>nation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2331	2472	
==>nation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                rul <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11049	11145	
==>sequence(char(C)) --> "\\t", {[C] = "\t"}, !. %# XXX - more

p6_simple_escape_sequence(char(C)) - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15495	15594	
==>xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15495	15594	
==>xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15495	15594	
==>xx) { $xx->pairs };
MULTI SUB List::kv ($xx) { $xx->kv }; 
MULTI SUB Pair::kv ($xx) { p6_from_a($xx- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3034	3135	
==>F; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3034	3135	
==>F; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3034	3135	
==>F; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

A <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19027	19159	
==>est $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, $line, $type, $tot <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2273	2371	
==>ved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.d <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2273	2371	
==>ved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4495	4590	
==>ect returns the I<result>
object; this is normally the entire match string, but may be arbitrary <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4495	4590	
==>ect returns the I<result>
object; this is normally the entire match string, but may be arbitrary <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1828	1993	
==>then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1828	1993	
==>then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23285	23378	
==>e,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logged <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23285	23378	
==>e,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logged <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1608	1711	
==>tiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1608	1711	
==>tiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1608	1711	
==>tiguous() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8477	8619	
==>nboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8477	8619	
==>nboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8477	8619	
==>nboxed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3081	3183	
==>body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3081	3183	
==>body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3081	3183	
==>body->{attributes}}) {
                $new_class->add_attribute($attribute_name => ::make_attribute($a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17148	17243	
==>d otherwise use
it.  Hereafter, if any other package or application says that it uses
Locale::Ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17148	17243	
==>d otherwise use
it.  Hereafter, if any other package or application says that it uses
Locale::Ke <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25570	25663	
==>e::operator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		typ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1738	1865	
==>ve boolean
    Bit         Perl single bit (allows traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	557	644	
==>ast seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	557	644	
==>ast seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18730	18840	
==>ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20088	20198	
==>ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	550	659	
==>of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	550	659	
==>of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	550	659	
==>of 'subtype'
# * New methods: .arity, .name
# * Finished migration to Object model
#
# 2005-08-21
# * Refactor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35802	35926	
==>op @kids;
    for (@kids) {
      $_ = $self->{rx}->object(ifmatch => 1, @$_);
    }

The 'ifmatch' object is a positive look <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9825	9916	
==>functions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9825	9916	
==>functions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17515	17612	
==>run_perl() and like().
#

sub fresh_perl_like {
    my($prog, $expected, $runperl_args, $name) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24942	25035	
==>setta statically or dynamically with other components is making a
combined work based on Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24942	25035	
==>setta statically or dynamically with other components is making a
combined work based on Roset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13051	13226	
==>lse {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13051	13226	
==>lse {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13051	13226	
==>lse {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$self->{p <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	95	203	
==>E::Kernel {
  # FIFO containing the events to call.
  has Code @:events;

  submethod BUILD ($self:) {
    di <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10824	10915	
==>tent_length returns Str>

=back

B<The following informational functions are fetched on-dema <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10824	10915	
==>tent_length returns Str>

=back

B<The following informational functions are fetched on-dema <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7319	7434	
==>b call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7071	7184	
==>b call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1433	1546	
==>mc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "com <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7407	7514	
==>::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expect <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7465	7572	
==>::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expect <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1388	1490	
==>ld/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2500	2604	
==>ubs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2500	2604	
==>ubs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2500	2604	
==>ubs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27645	27826	
==>list'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaq <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	913	1052	
==>t ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	926	1056	
==>t ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34629	34751	
==>umify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34629	34751	
==>umify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @bo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34629	34751	
==>umify( $length ); $length = Inf unless defined $length;
    my @list = @_;
    my $class = ref($array);
    my ( @head, @bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	3137	3297	
==>@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	3137	3297	
==>@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	3137	3297	
==>@ if $@;
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
            open IN, $filename or do{ warn $!; next; } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	390	484	
==>PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	390	484	
==>PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	390	484	
==>PIL2JS.Box.Constant(function (args) {
      var array = args[1].FETCH(), idx = Number(args[2].t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17553	17673	
==>v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17553	17673	
==>v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17553	17673	
==>v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_->items <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	674	788	
==>MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	674	788	
==>MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	674	788	
==>MkPos";

# Are we in pilGlob?
our $IN_GLOBPIL;

# $A::B++, without a decl., is legal, but JS does't like this, so w <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1629	1739	
==>eta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->l <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3550	3641	
==>shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flag <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3550	3641	
==>shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4291	4403	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4484	4596	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((? <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4096	4196	
==>=> 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(print_to => *STDOUT);

  my $category <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	683	798	
==>ix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	683	798	
==>ix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	683	798	
==>ix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infix:<//>   ($a, Code $b) is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1800	1917	
==>lude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1800	1917	
==>lude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1800	1917	
==>lude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate --p6prelude option.\n";
  }
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10867	10965	
==>thod get_attribute_list;            
}

----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10867	10965	
==>thod get_attribute_list;            
}

----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10867	10965	
==>thod get_attribute_list;            
}

----------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1639	1753	
==>ues'}{'dynamic_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1128	1237	
==>et_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	991	1095	
==>et_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    r <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1900	2000	
==>s => $options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4136	4234	
==>les and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4320	4418	
==>les and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2783	2885	
==>$rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2783	2885	
==>$rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


metho <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13498	13591	
==>ssion> <'.'> <Identifier>
    | <'new'> <?ws_required> <MemberExpression> <Arguments>
}
rule N <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15027	15122	
==>is as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15085	15180	
==>is as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16921	17011	
==>0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6993	7099	
==>canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6993	7099	
==>canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14061	14223	
==>t_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10234	10396	
==>t_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11070	11232	
==>t_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $category = $prefix;
            $category = 'statements' if $prefix e <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3394	3501	
==>_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^\^ }
rule assert_eol  { \$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6156	6258	
==>rrently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die wh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6156	6258	
==>rrently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16454	16582	
==>bel) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16454	16582	
==>bel) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16454	16582	
==>bel) not found for current class ($::CLASS)"
                unless $::CLASS->has_method($label, for => 'private');
            m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1392	1514	
==>Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1392	1514	
==>Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans( <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1600	1698	
==>e($node);
			return $self->constructor($reduced) . $self->layout($reduced->str);
		}
	}

	if (ref $ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1021	1138	
==>N>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2006	2111	
==>s => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 ) <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2006	2111	
==>s => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5275	5461	
==>)';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5275	5461	
==>)';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5275	5461	
==>)';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy =>   $sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8372	8485	
==>ift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8372	8485	
==>ift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8372	8485	
==>ift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	315	408	
==>$JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	315	408	
==>$JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
meth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	315	408	
==>$JS::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
meth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35150	35249	
==>ting one
alternation, holding any number of objects

Branched

=head2 exact

Family: exact

Types: e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	12	110	
==>erl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	12	110	
==>erl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	12	110	
==>erl

use strict;
use warnings;
use Perl6::MetaModel::Psyche;

## ---------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7667	7833	
==>ss $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7667	7833	
==>ss $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookie <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	341	485	
==>$self, %opt,
        fixity => 'infix', 
    );
    Pugs::Grammar::Operator::add_rule( $self, %opt,
        fixity => 'infix', 
        name => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13727	13868	
==>bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13727	13868	
==>bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13727	13868	
==>bound_params;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23219	23326	
==>on can be changed greatly (it isn't what's important;
the interface/behaviour is), this Relation::Example da <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20115	20210	
==>on can be changed greatly (it isn't what's important;
the interface/behaviour is), this Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24667	24762	
==>on can be changed greatly (it isn't what's important;
the interface/behaviour is), this Relation <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2284	2382	
==>s 
for continuous ciphering.

Both of these functions return a closure.  Call the closure with a bl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2284	2382	
==>s 
for continuous ciphering.

Both of these functions return a closure.  Call the closure with a bl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3925	4019	
==>we don't give back the private accessors
sub ls_all_accessors { sort keys %config }
sub ls_acce <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	688	788	
==>new((shift)->to_native() + 0);
}

# implement comparitor method

sub _compare {
    my ($left, $right <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11037	11132	
==>your program.  It is analagous to a simplified version of the
"Document" interface defined in th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11037	11132	
==>your program.  It is analagous to a simplified version of the
"Document" interface defined in th <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3223	3332	
==>fied path as well.

    if ($Config{osname} eq q{cygwin}) {

        # The world's ugliest cygwin variable giv <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3089	3196	
==>unks);

    # $base now contains the directories the resulting relative path
    # must ascend out of before <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3089	3196	
==>unks);

    # $base now contains the directories the resulting relative path
    # must ascend out of before <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10499	10654	
==>t; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10499	10654	
==>t; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10499	10654	
==>t; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4253	4401	
==>ttrs($self)->{'$:superclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16525	16617	
==>en even while the program is executing.

Locale::KeyedText gives your application the maximum <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16525	16617	
==>en even while the program is executing.

Locale::KeyedText gives your application the maximum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4174	4336	
==>t->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4174	4336	
==>t->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4174	4336	
==>t->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLASS ($) {
        my ($dispatcher) = @_;
        (de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	805	968	
==>@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	805	968	
==>@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	805	968	
==>@subnodes) {
        my $n = shift(@subnodes);
        if(blessed($n)) {
            my $flag = rand;
            my $ret = $n->expand($flag);
            if($ret n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1930	2059	
==>gs = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1930	2059	
==>gs = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1930	2059	
==>gs = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2159	2274	
==>lf;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16762	16868	
==>eader value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Conten <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16762	16868	
==>eader value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Conten <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8388	8547	
==>h::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4748	4907	
==>h::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5597	5756	
==>h::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match::str( $_ ) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11854	11954	
==>will have to wait
a little while. Until then, you can just write your own functions like this:

  cmp <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11912	12012	
==>will have to wait
a little while. Until then, you can just write your own functions like this:

  cmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14785	14890	
==>+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant Na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14785	14890	
==>+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant Na <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14785	14890	
==>+0 ne $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant Na <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1376	1514	
==>g;
        has Int $count = 0;
        has Array of Str @strings;

        method subsume ( Getopt::Argument $arg ) { 
            $.append <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36706	36801	
==>ound using the Translator object's Set and Member properties; if none
could be matched, this met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36706	36801	
==>ound using the Translator object's Set and Member properties; if none
could be matched, this met <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4521	4645	
==>attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }), <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7998	8122	
==>attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }), <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6991	7115	
==>attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key === any( $attrs ) } )
        }), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2742	2854	
==>n $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2742	2854	
==>n $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2742	2854	
==>n $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::Cell::fetch t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9954	10094	
==>rgs = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9954	10094	
==>rgs = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9954	10094	
==>rgs = "";
    if (@names5) {
        my $sig = @names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11330	11435	
==>]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11330	11435	
==>]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26336	26429	
==>PT_EVAL_SEEN		0x00400
 #define ROPT_CANY_SEEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CANY_SEEN <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	195	312	
==>} == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	195	312	
==>} == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	195	312	
==>} == 2;

  no warnings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	23	125	
==>loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	23	125	
==>loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	23	125	
==>loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, c <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1631	1729	
==>ay "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = s <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2527	2625	
==>d at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optional param <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1631	1729	
==>ay "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6128	6228	
==>this is to return the string set in advance with the prune method.

This feature is useful, like cust <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6128	6228	
==>this is to return the string set in advance with the prune method.

This feature is useful, like cust <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6128	6228	
==>this is to return the string set in advance with the prune method.

This feature is useful, like cust <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3633	3749	
==>ects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3633	3749	
==>ects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3633	3749	
==>ects of type {$self.ref}!";
  }
}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2037	2161	
==>e },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2037	2161	
==>e },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	421	518	
==>)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12816	12929	
==>s(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12816	12929	
==>s(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20666	20766	
==>::META->new()" if $name =~ /\@/;
    return "\$${ROOT}::Hash::META->new()" if $name =~ /\%/;
    Carp <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5626	5737	
==>'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5626	5737	
==>'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2523	2634	
==>'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3443	3549	
==>RTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3443	3549	
==>RTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3523	3629	
==>RTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	415	541	
==>b{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2651	2777	
==>ue on success, otherwise something false.

=cut

sub create {
    my $self = shift;
    my $conf = $self->config;

    $self->r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	415	541	
==>b{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11535	11635	
==>until objects are done for this, but maybe I will
figure out a good way to do this without. Either wa <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11535	11635	
==>until objects are done for this, but maybe I will
figure out a good way to do this without. Either wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	551	655	
==>e_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	551	655	
==>e_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	551	655	
==>e_attr($::Class  => '@:superclasses') = [ $::Module ];
::opaque_instance_attr($::Module => '@:subclasses' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1625	1740	
==>th; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1625	1740	
==>th; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1625	1740	
==>th; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11710	11818	
==>nces of Class which does Role too. So this means that all classes
and roles can be polymorphic to one another <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11710	11818	
==>nces of Class which does Role too. So this means that all classes
and roles can be polymorphic to one another <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11710	11818	
==>nces of Class which does Role too. So this means that all classes
and roles can be polymorphic to one another <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2997	3142	
==>le: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7815	7915	
==>%users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7815	7915	
==>%users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $even <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	65	193	
==>ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoader;
        XSLoader::loa <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	438	540	
==>is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    r <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	438	540	
==>is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4603	4708	
==>tance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4603	4708	
==>tance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4603	4708	
==>tance of something,.. so we pass
    # it back up to our class
    return ::opaque_instance_class($self)-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7883	8017	
==>:Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7883	8017	
==>:Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7883	8017	
==>:Bit::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2727	2834	
==>to be the first module in the list.
sub gen_source {
    my($target) = @_;
    open my $ofh, ">", $target or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20194	20290	
==>ts result not be recompiled by
some other containing parser. In this case the result of the compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20194	20290	
==>ts result not be recompiled by
some other containing parser. In this case the result of the compi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31818	31915	
==>ple>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational ope <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32865	32962	
==>ple>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational ope <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1234	1326	
==>nal recurrence set.

These methods are disabled: complement(), difference($set)

  ---------- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1234	1326	
==>nal recurrence set.

These methods are disabled: complement(), difference($set)

  ---------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14739	14878	
==>lass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14739	14878	
==>lass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14739	14878	
==>lass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13187	13332	
==>rn $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13187	13332	
==>rn $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13187	13332	
==>rn $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13009	13122	
==>xa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't termina <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13009	13122	
==>xa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't termina <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13009	13122	
==>xa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't termina <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6364	6613	
==>ep ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6364	6613	
==>ep ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6364	6613	
==>ep ) {
                # XXX - this should use modulus, etc.
                $end -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $en <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	190	304	
==>ILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        | <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	190	304	
==>ILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        | <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	781	880	
==>ate.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.s <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	781	880	
==>ate.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.s <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	331	435	
==>rrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods ar <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	331	435	
==>rrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6424	6542	
==>als::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6424	6542	
==>als::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6424	6542	
==>als::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	932	1062	
==>append an argument to the current list.
sub makemaker_append {
    my $self = shift;
    my $name = shift;
    my $args = $self->ma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4802	4918	
==>n ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4802	4918	
==>n ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8641	8736	
==>elf!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8641	8736	
==>elf!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5508	5626	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5508	5626	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5508	5626	
==>mp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2367	2471	
==>:Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2367	2471	
==>:Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2367	2471	
==>:Class'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16148	16249	
==>eversed, I<can> match differently.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey001" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1835	1932	
==>by Stevan Little and others.

This program is free software; you can redistribute it and/or modify <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1835	1932	
==>by Stevan Little and others.

This program is free software; you can redistribute it and/or modify <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3939	4052	
==>unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3939	4052	
==>unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3939	4052	
==>unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4245	4395	
==>class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4245	4395	
==>class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4245	4395	
==>class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::NaN );
            },
        }
    },
    instance => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2960	3046	
==>$jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2960	3046	
==>$jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2960	3046	
==>$jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAny, $1]). <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3104	3202	
==>ion`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3104	3202	
==>ion`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23881	23977	
==>that Relation::Example indicates a failure is to throw an exception;
most often this is due to in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10753	10919	
==>params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10753	10919	
==>params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10753	10919	
==>params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]');
        $SubOrCode."->new(".("'\$.name' => '$name',".
                     "'\$.param <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9863	9973	
==>to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	299	406	
==>to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	299	406	
==>to match 
1 - an optional "continuation"
2 - a partially built match tree
3 - a leaf pointer in the match tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2045	2173	
==>d->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2045	2173	
==>d->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2045	2173	
==>d->{CC};
    if(ref $sub eq "CODE") {
      my $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13387	13526	
==>s_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13387	13526	
==>s_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13387	13526	
==>s_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_no <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2045	2172	
==>urce:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - incon <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2185	2312	
==>urce:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - incon <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2951	3087	
==>0;
  $smoke{timestamp}       = time;
  $smoke{id}              = $id;
  my $filename            = pack_smoke(%smoke);

  open my $fh, ">" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	356	463	
==>is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    met <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	356	463	
==>is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    met <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5106	5209	
==>$r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || die;
  my $aref = \@sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10887	11018	
==>f non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10887	11018	
==>f non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10887	11018	
==>f non-creatable array value attempted, subscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	689	779	
==>lemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	689	779	
==>lemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	689	779	
==>lemented");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11788	11901	
==>fined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11788	11901	
==>fined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_ini <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11788	11901	
==>fined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_ini <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2369	2470	
==>_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2369	2470	
==>_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_define <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2369	2470	
==>_from_n($x) if (~$x & $x) eq 0;
    return p6_from_s($x);
}
sub p6_undef {Scalar->new()}
sub p6_define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5116	5229	
==>);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5116	5229	
==>);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5116	5229	
==>);
  }
  @res;
}

method sum(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8731	8864	
==>:NIL); 
            $e->create("$current", $e->get("&dispatcher")->do()); 
            block->new($e, sub { 
                my $e = s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10701	10810	
==>tions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10701	10810	
==>tions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15531	15794	
==>1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15810	16073	
==>1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ru <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	716	842	
==>$method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13343	13437	
==>or
Document.new(), by which you can create an identical Document (with member
Nodes) to the one <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13343	13437	
==>or
Document.new(), by which you can create an identical Document (with member
Nodes) to the one <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1889	2049	
==>il =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1889	2049	
==>il =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alte <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10651	10741	
==>n $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%optio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10651	10741	
==>n $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%optio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8481	8624	
==>ed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8481	8624	
==>ed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8481	8624	
==>ed' => '\\undef' ) if $method eq 'perl';
                    if ( $method eq 'increment' ) {
                        _('$:cell')->store( Int->ne <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1192	1284	
==>idContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1192	1284	
==>idContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	516	637	
==>::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	516	637	
==>::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	516	637	
==>::Class.meta.add_method('CREATE' => method (%params) { 
    # this just gathers all the 
    # attributes that were define <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	248	399	
==>@_;
}

role 'IHash' => {};

class 'PIL::Run::Container::Hash' => {
    does => [ 'IHash' ],
    instance => {
        attrs => [ '%:slots' ],
        BU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3660	3769	
==>...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3660	3769	
==>...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7514	7637	
==>LValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CODE($name,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { D <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6165	6262	
==>ned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mappi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6165	6262	
==>ned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mappi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1066	1177	
==>::Package::Installed
on a META_OBJ.

XXX needs verification
XXX needs binary package recognition

=cut

{   my $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21442	21539	
==>base engines with minimal effort.

This might seem strange to somebody who has not tried to port b <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21442	21539	
==>base engines with minimal effort.

This might seem strange to somebody who has not tried to port b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3078	3212	
==>(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3078	3212	
==>(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3078	3212	
==>(a)",
  "sqrt",         1, "N", "Math.sqrt(a)",
  "sign",         1, "N", "a > 0 ? +1 : a == 0 ? 0 : -1",
  "exp",          1, "N", "Ma <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2033	2211	
==>-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( % <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2033	2211	
==>-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2077	2177	
==>=> $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2077	2177	
==>=> $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2424	2524	
==>=> $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35234	35331	
==>ary relational operator that is identical
to C<join> except that this method will fail if any of i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39784	39881	
==>ary relational operator that is identical
to C<join> except that this method will fail if any of i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39344	39441	
==>ary relational operator that is identical
to C<join> except that this method will fail if any of i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16312	16442	
==>able(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16312	16442	
==>able(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16312	16442	
==>able(\%params);                  
    return keys %{$table};
}));

# "spec" here means "whatever annotation went with this attribut <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4502	4601	
==>der instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4502	4601	
==>der instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6026	6125	
==>der instance.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1270	1526	
==>h @t => $self->evaluate($t);
                next;
            }         
            
            # deal with strings   
            if ($t eq '"') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	821	917	
==>e C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
someth <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	821	917	
==>e C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
someth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5855	5978	
==>n "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5855	5978	
==>n "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5855	5978	
==>n "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value hasn't been supplied?
    unless($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12294	12500	
==>->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12294	12500	
==>->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12294	12500	
==>->default if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3833	3930	
==>k, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3833	3930	
==>k, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currentl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3833	3930	
==>k, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse currentl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1645	1757	
==>} }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1645	1757	
==>} }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1645	1757	
==>} }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi sub uniq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	445	551	
==>nt is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	445	551	
==>nt is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	445	551	
==>nt is now ($item,)
#   instead of ($item) (($item) is not an array, but ($item,) is).
#
# 2005-09-12
# * se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7663	7804	
==>ist->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7663	7804	
==>ist->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7663	7804	
==>ist->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_, 'Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5138	5257	
==>$class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5138	5257	
==>$class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5138	5257	
==>$class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9815	9924	
==>nction gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially bui <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	253	358	
==>nction gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially bui <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	253	358	
==>nction gets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially bui <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1220	1336	
==>my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($sel <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1220	1336	
==>my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($sel <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26396	26489	
==>r::nary->new(list => type::operator::pair->new( $a, $b )),
		),
	);
	is($type->stringify, "∀ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3672	3821	
==>atcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You mu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3672	3821	
==>atcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You mu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3672	3821	
==>atcher) eq 'CODE')
            || confess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You mu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4785	4882	
==>escription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role co <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4785	4882	
==>escription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6982	7079	
==>escription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7001	7119	
==>thod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7001	7119	
==>thod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7001	7119	
==>thod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	479	602	
==>ixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	479	602	
==>ixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	479	602	
==>ixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1873	1972	
==>Name};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1873	1972	
==>Name};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1873	1972	
==>Name};
    if($name =~ /::/ and $name !~ /\b(CALLER|OUTER|\*?JS)::/) {
      $PIL::UNDECLARED_VARS{$ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1697	1905	
==>ifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1697	1905	
==>ifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	898	1008	
==>tive) }
sub to_num { (shift)->keys->length             }
sub to_bit { (shift)->keys->length->to_bit     }

# me <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10477	10601	
==>n" or undef
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatev <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3674	3787	
==>ew Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you hav <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3542	3651	
==>ew Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1422	1521	
==>g{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1422	1521	
==>g{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1422	1521	
==>g{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::cfg{metamo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3893	3998	
==>nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3893	3998	
==>nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3893	3998	
==>nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nth_key <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1230	1478	
==>om <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1230	1478	
==>om <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	548	707	
==>r;
    my $tmpl = {
        dir     => { required => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3414	3561	
==>name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3414	3561	
==>name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3414	3561	
==>name =~ /^%/ ? {} : undef));
            }
        }        
        if ($body->{methods}) {
            foreach my $method_name (keys %{$body->{met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	139	247	
==>) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	139	247	
==>) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	139	247	
==>) {
      var hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26803	26898	
==>0000 /* Best to intuit before matching */
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6488	6594	
==>_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6488	6594	
==>_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6488	6594	
==>_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqrt(p6_to_n($xx)) ) };
MULTI SUB atan (*@xxa) { p6_from_n( <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	718	857	
==>f $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $d <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	718	857	
==>f $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $d <==
3	/Users/nnunley/pugs/util/package-osx.pl	8283	8380	
==>rl6::Spec::Syntax.3pm
        /usr/local/man/man3/Perl6::Tutorial.3
        /usr/local/man/man3/Pe <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4202	4297	
==>3))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4202	4297	
==>3))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	572	670	
==>oxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	572	670	
==>oxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	572	670	
==>oxed Pair.key, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1634	1730	
==>$self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1634	1730	
==>$self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1158	1259	
==>h is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1158	1259	
==>h is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1158	1259	
==>h is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake document.write output <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9208	9323	
==>dule_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9208	9323	
==>dule_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5891	5997	
==>es to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes p <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5891	5997	
==>es to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8088	8194	
==>es to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7160	7285	
==>spatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7160	7285	
==>spatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7160	7285	
==>spatcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11661	11784	
==>'$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11661	11784	
==>'$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => def <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11661	11784	
==>'$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => def <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9361	9542	
==>join( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12838	13019	
==>join( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12092	12273	
==>join( $other ) );
}

&semiminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijo <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1048	1144	
==>cate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1048	1144	
==>cate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8462	8574	
==>output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	660	760	
==>output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	660	760	
==>output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1924	2024	
==>at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1924	2024	
==>at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1924	2024	
==>at line: $lineno\nMessage is: $message\nSource is: $linebuff\n";
    });
}

=cut

=head1 AUTHORS

Chi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1275	1385	
==>d ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1275	1385	
==>d ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	973	1150	
==>\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*?) <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	973	1150	
==>\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*?) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	384	514	
==>refix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2677	2788	
==>al
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2677	2788	
==>al
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3024	3135	
==>al
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics for p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7951	8063	
==>arser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

If you want to see if an error is a particular er <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36339	36432	
==>sed
internally by translate_message() to produce the list of Template module
names that it wil <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36339	36432	
==>sed
internally by translate_message() to produce the list of Template module
names that it wil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6729	6857	
==>::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6729	6857	
==>::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6729	6857	
==>::False []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: ! <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1106	1206	
==>plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1106	1206	
==>plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1186	1286	
==>plan' );

# remove header from output object; it gets in the way of the first test
$tb_output.output( <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3793	3894	
==>lf->{_config} = \%Config;
    $self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

sub get <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3282	3382	
==>elf: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3282	3382	
==>elf: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    ret <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1311	1429	
==>{
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	331	449	
==>{
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8787	8905	
==>{
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13352	13460	
==>y the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13352	13460	
==>y the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5012	5150	
==>$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$runcore} }
    ];
  }

  $tmpl->param(runcores => [
    map {{
      na <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5981	6088	
==>ULE')->code();

    sub <?p6ws> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3668	3762	
==>> in
C<Pugs::Compiler::Rule> should fix the problem.

- The perl5 executable must have PMC supp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19813	19915	
==>.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F1,B <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12255	12355	
==>$line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12255	12355	
==>$line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3 <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	749	859	
==>d($variable, $value) {
    %Cookies{$variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$varia <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7198	7303	
==>d?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CA <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7256	7361	
==>d?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CA <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2265	2369	
==>= $self->version || $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g;
    if ( $self->t <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5176	5275	
==>self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $self->{_revisi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2600	2698	
==>ocate letters for type variables
	# it's ok to destroy the objects since they're copies
	foreach my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14699	14803	
==>.pl had problems loading File::Spec: $@";
		$Perl = "./$perl";
	    } else {
		$Perl = File::Spec->catfil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6927	7028	
==>process($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filter <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6927	7028	
==>process($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filter <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9330	9447	
==>y $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subse <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9330	9447	
==>y $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subse <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9059	9152	
==>e 7.8.4
      <SingleStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharacter { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11483	11573	
==>ser_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11483	11573	
==>ser_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	815	919	
==>ontext.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	815	919	
==>ontext.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	815	919	
==>ontext.ItemAny";
      my $retcc = PIL::cur_retcc;
      $cc = PIL::Cont->new(argname => "retval", body = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7683	7791	
==>13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1, <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7683	7791	
==>13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13574	13673	
==>{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's declared" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13574	13673	
==>{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's declared" <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13574	13673	
==>{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's declared" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1715	1809	
==>four also includes several attributes which might be interesting to 
people interested in the a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1715	1809	
==>four also includes several attributes which might be interesting to 
people interested in the a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3467	3566	
==>eadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3467	3566	
==>eadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3467	3566	
==>eadOnly(", ")");

  return <<EOF;
var __returncc = args.pop();
var subreturncc = function (retval) { <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15244	15339	
==>without changing the input string).

If you prefer not to import these routines into your namesp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15244	15339	
==>without changing the input string).

If you prefer not to import these routines into your namesp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3265	3383	
==>ect ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3265	3383	
==>ect ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3265	3383	
==>ect ]);
        }
        $::{'*'}->STORE($current_class->name => $current_class);
        $self->env->set('current_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1967	2110	
==>oo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work arou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1967	2110	
==>oo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work arou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1967	2110	
==>oo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us to work arou <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19203	19302	
==>hing in the world can
be modelled.

A relation is essentially a set of mappings, or a set of logical <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4926	5023	
==>mpletes ciphering of any leftover data and returns it as an array of bytes, 
then clears the objec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4926	5023	
==>mpletes ciphering of any leftover data and returns it as an array of bytes, 
then clears the objec <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6326	6431	
==>ode, $de_facto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4230	4333	
==>No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4288	4391	
==>No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1226	1338	
==>r,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1226	1338	
==>r,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1226	1338	
==>r,
    // we\'re implementing *lazy*).
    var cached_result;
    var already_calced = false;

    boxed.FETCH  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3061	3172	
==>++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3061	3172	
==>++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3061	3172	
==>++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13300	13499	
==>->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13300	13499	
==>->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13300	13499	
==>->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub {
                # Return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1389	1496	
==>NORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1389	1496	
==>NORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1389	1496	
==>NORE NEXT LINEFEED#";

sub preludepc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	770	879	
==>, kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	770	879	
==>, kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	770	879	
==>, kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full supp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13391	13530	
==>spatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13391	13530	
==>spatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13391	13530	
==>spatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             warn "Not a ::Class, going to &_normal <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12526	12662	
==>5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12526	12662	
==>5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10958	11062	
==>rsection (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die " <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11691	11810	
==>c;
    }

    my %seen;
    $seen{$_}++ foreach $self->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19859	19958	
==>ray context it will return two
values; the user name and the password.  In scalar context it will
re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19859	19958	
==>ray context it will return two
values; the user name and the password.  In scalar context it will
re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17247	17376	
==>_",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.sh <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17247	17376	
==>_",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18392	18503	
==>, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_name;
    my $name = "$obj_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1587	1685	
==>_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1587	1685	
==>_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1587	1685	
==>_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method(sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1968	2075	
==>ess $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1968	2075	
==>ess $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1968	2075	
==>ess $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @components;
  # unshift @input, ($link eq <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10841	10969	
==>ompiling" : "skipping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $pro <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	715	832	
==>tems);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	715	832	
==>tems);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27751	27846	
==>espond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27751	27846	
==>espond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18271	18368	
==>0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18271	18368	
==>0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18271	18368	
==>0,$xx1) {...};
MULTI SUB infix:<~|> ($xx0,$xx1) {...};
MULTI SUB infix:<?|> ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8319	8423	
==>add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8319	8423	
==>add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8319	8423	
==>add_method($name => ::make_class_method(sub { "Hello from $name" }, $::CLASS));
      }
  };

=head1 DESC <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10690	10791	
==>ined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10690	10791	
==>ined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10690	10791	
==>ined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] if necessary. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36464	36559	
==>equence in which any two source relations are
combined is inconsequential.  A trivial case is wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41013	41108	
==>equence in which any two source relations are
combined is inconsequential.  A trivial case is wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40627	40722	
==>equence in which any two source relations are
combined is inconsequential.  A trivial case is wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2519	2610	
==>0],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2519	2610	
==>0],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2519	2610	
==>0],@b[1..50])=(@a[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37654	37768	
==>alue used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37654	37768	
==>alue used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37654	37768	
==>alue used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6::Value::List') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18883	19009	
==>unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18883	19009	
==>unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18883	19009	
==>unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5859	5958	
==>s C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLAS <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5859	5958	
==>s C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLAS <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8056	8155	
==>s C<skip> and C<reason> attributes to the hash before returning it.

=back

=back

=head1 OTHER CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	231	378	
==>tance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	231	378	
==>tance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	231	378	
==>tance => {
        attrs => [ '$.type', '$.things' ],
                # type - unboxed str
                # things - ptr to native ARRAY of objects <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19506	19641	
==>on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15927	16062	
==>on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6974	7103	
==>1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6974	7103	
==>1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6974	7103	
==>1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $end =   $param{e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17489	17612	
==>e_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_le <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17489	17612	
==>e_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_le <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16737	16826	
==>| <EqualityExpressionNoIn> <'==='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoI <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	623	756	
==>self = shift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER::init <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6479	6573	
==>arent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6479	6573	
==>arent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	81	187	
==>die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	81	187	
==>die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	81	187	
==>die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PLit";
}

sub a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5440	5566	
==>@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5440	5566	
==>@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5440	5566	
==>@/) {
      push @js,
        "if($jsname == undefined) { $jsname = new PIL2JS.Box.Constant(args); args = [] }";
    } elsif($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14394	14564	
==>my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14394	14564	
==>my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14394	14564	
==>my ( $array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Arg <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28567	28660	
==>e Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
to make <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28567	28660	
==>e Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
to make <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1765	1999	
==>]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        e <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1765	1999	
==>]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        e <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3066	3168	
==>|| $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3066	3168	
==>|| $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3146	3248	
==>|| $Test.diag( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	400	507	
==>tart of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	400	507	
==>tart of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*hea <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3744	3849	
==>($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVAL <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	207	318	
==>y));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	207	318	
==>y));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6957	7062	
==>' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6957	7062	
==>' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3856	3961	
==>' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'Int',
  'posBeginColu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17029	17152	
==>-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are other possib <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1609	1703	
==>Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception class <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1609	1703	
==>Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2376	2512	
==>,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2376	2512	
==>,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2723	2859	
==>,
     { var => '$title' },
     { var => '$subtitle', optional => 1 },
     { var => '$case', named_only => 1 },
     { var => '$justify <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	337	446	
==>D
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	337	446	
==>D
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1126	1219	
==>to day 42)
my @commits_till_day = dayify(@commits);
my @devs_till_day    = dayify(@developers) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4267	4360	
==>UTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4267	4360	
==>UTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4267	4360	
==>UTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1408	1518	
==>ine('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1408	1518	
==>ine('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1408	1518	
==>ine('new PIL2JS.Box.Constant(
  function (args) {
    var cxt = args.shift();
    var cc  = args.pop();

    if <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17504	17601	
==>set()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- `s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17504	17601	
==>set()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- `s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7872	8022	
==>exp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7872	8022	
==>exp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7872	8022	
==>exp.exec(string);
    #      if (!match) {
    #        return mkMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12424	12581	
==>$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, und <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12418	12575	
==>$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, und <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1641	1776	
==>?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1641	1776	
==>?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	271	381	
==>ule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	271	381	
==>ule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source fi <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2564	2662	
==>.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$testdir/$exename.exe") {
    print "# Could not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6129	6251	
==>", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6129	6251	
==>", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6129	6251	
==>", $_[1] or die "Couldn't write to \"$_[0]\": $!\n";
  close $fh                       or die "Couldn't close \"$_[0]\": $! <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1798	1906	
==>bers);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly re <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1798	1906	
==>bers);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8789	8898	
==>odeSet0::NodeRepArray2::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13442	13542	
==>bject is intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13442	13542	
==>bject is intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	794	956	
==>ox.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	794	956	
==>ox.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	794	956	
==>ox.Constant(undefined),
              function () { "dummycc" }
            ]);
          });
        });
      });
    }, secs * 1000);
  })')($secs);

  time - $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3261	3404	
==>if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3261	3404	
==>if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3261	3404	
==>if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3167	3392	
==>$secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3167	3392	
==>$secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	990	1123	
==>nged to <[0..9]>
#   * "Foo but not x" is expressed as
#     <!before x> <Foo>
#   * "lookahead is not an element of { x }" is express <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	80	180	
==>erl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	80	180	
==>erl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate th <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	2198	2357	
==>rse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21441	21557	
==>2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17862	17978	
==>2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	274	452	
==>'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sym <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12830	12954	
==>${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRAC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6305	6429	
==>${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRAC <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21562	21675	
==>>;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17983	18096	
==>>;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8452	8542	
==>ammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2277	2367	
==>ammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @st <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1010	1154	
==>rent] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # conti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1010	1154	
==>rent] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # conti <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6342	6462	
==>x,
      flags => $rx->{flags}[-1],
      family => 'anyof_class',
    }, $class;

    if (ref $type) {
      $self->{dat <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	210	312	
==>tes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macro <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	210	312	
==>tes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macro <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1450	1546	
==>ink "dist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Conf <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1107	1262	
==>.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method f <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1107	1262	
==>.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2531	2658	
==>{
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2531	2658	
==>{
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2531	2658	
==>{
        my $cell = shift;
        # warn "storing @_ to ".ref($cell->{v});
        # warn "Cell is not yet defined, and you ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	856	965	
==>{
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	856	965	
==>{
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	856	965	
==>{
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2376	2503	
==>unknown.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15439	15538	
==>span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of th <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15439	15538	
==>span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13508	13636	
==>lue::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13508	13636	
==>lue::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13508	13636	
==>lue::obj_id unless defined $key;
    my $s = $key;
    if ( ref($key) && (
        $key->isa( 'Int' ) ||
        $key->isa( 'Num' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11381	11554	
==>ereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11381	11554	
==>ereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11381	11554	
==>ereferenced
                return Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16603	16702	
==>- unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16603	16702	
==>- unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16603	16702	
==>- unneeded?
MULTI SUB Code::assoc ($xx) {...};
#MULTI SUB Code::name ($xx) {...};
#MULTI SUB Code::a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8349	8506	
==>' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expressio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8349	8506	
==>' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expressio <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	654	760	
==>l, $named_slurpy) = ({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = Data::Bind::Param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4366	4493	
==>dy>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4366	4493	
==>dy>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4366	4493	
==>dy>
</html>
EOF
    unslurp $output, $html;
  }
}

sub usage {
  if($_[0]) {
    die "*** $_[0]\n    Try \"$0 --help\" for usage <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	572	668	
==>:testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	630	726	
==>:testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	758	936	
==>'" ,} }' );
    $self->SUPER::add_rule( 
        "circumfix:<" . $opt{name} . " " . $opt{name} . ">",
        '{ return { op => "circumfix:<' . $opt{name} . ' ' . $opt{name2} . '> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13684	13780	
==>_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demons <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13684	13780	
==>_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demons <==
3	/Users/nnunley/pugs/util/package-osx.pl	8655	8776	
==>for my $orig (keys %change_files) {
        my $dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_di <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5804	5900	
==>act, the only method that truly must be implemented is the 
one that actually enciphers the data. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5804	5900	
==>act, the only method that truly must be implemented is the 
one that actually enciphers the data. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3220	3375	
==>= ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3220	3375	
==>= ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3220	3375	
==>= ('$' => 'Scalar->new()',
                     '&' => 'Scalar->new()',
                     '@' => 'Array->new()',
                     '%' => 'Hash->new() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	219	318	
==>tch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	219	318	
==>tch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	219	318	
==>tch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Pro <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	999	1259	
==>ns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	999	1259	
==>ns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4218	4333	
==>build
    ? '../..'
    : $self->{_top}{base};

    # Escape ' and \ in $base pathname 
    $base =~ s{(['\\])}{\\$1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14436	14606	
==>s}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14436	14606	
==>s}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14436	14606	
==>s}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	849	967	
==>ackage PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	849	967	
==>ackage PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	849	967	
==>ackage PIL::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5789	5884	
==>UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5789	5884	
==>UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5789	5884	
==>UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21474	21636	
==>ct) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21474	21636	
==>ct) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21474	21636	
==>ct) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3507	3609	
==>ame_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3507	3609	
==>ame_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3507	3609	
==>ame_mangle($_),
        PIL::doublequote($methname),
        PIL::name_mangle($self->name) for @classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14771	14930	
==>.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14771	14930	
==>.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  wa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14771	14930	
==>.
            @a.delete($off+$i);
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14728	14831	
==>ribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14728	14831	
==>ribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14728	14831	
==>ribute' => ::make_method(sub {
    my ($self, $label, $attribute) = @_;
    (defined $label && defined $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21261	21355	
==>d key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21261	21355	
==>d key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33478	33586	
==>o code references are used to go deeper and
shallower in scope; C<sub { -1 }> is used to go down into a deepe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2496	2591	
==>of this class represents a client's request.  It also contains extra
information passed on by th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2496	2591	
==>of this class represents a client's request.  It also contains extra
information passed on by th <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3096	3239	
==>O"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=hea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3096	3239	
==>O"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=hea <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1250	1350	
==>$x.round_half_odd;
	}
}

our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	858	970	
==>L::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	858	970	
==>L::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	858	970	
==>L::NamedPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6540	6633	
==>tf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6540	6633	
==>tf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6540	6633	
==>tf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.catch_al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12554	12728	
==>s}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12554	12728	
==>s}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12554	12728	
==>s}};
            return shift @{$self->{pops}}   if @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1080	1196	
==>ror ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my($acc,$val) = each %$args ) {
        $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24527	24642	
==>~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20948	21063	
==>~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3108	3230	
==>rg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3108	3230	
==>rg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3108	3230	
==>rg);
  ?1;
}
sub JS::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5093	5331	
==>ves/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being autho <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4305	4507	
==>ves/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being autho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	55	168	
==>ub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	55	168	
==>ub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	55	168	
==>ub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3664	3794	
==>p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3664	3794	
==>p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3664	3794	
==>p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch( $i-> <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9123	9248	
==>> "Creating an empty \"$initrd_img\"",
    ensure => sub { -r $initrd_img and -s $initrd_img == 1024 * $initrd_size },
    usi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2053	2176	
==>od content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.Lis <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2053	2176	
==>od content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	818	939	
==>ub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	818	939	
==>ub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	818	939	
==>ub all_types { ($_[0]) }

  sub matches {
    my ($self, $want) = ($_[0]->[0], $_[1]);

    $self eq $want;
  }

  sub as_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4243	4352	
==>te.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4243	4352	
==>te.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37480	37580	
==>this is a positive
assertion.  Here's the new class for the object:

  package Regexp::AndBranch::and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11247	11348	
==>le::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11247	11348	
==>le::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11247	11348	
==>le::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File::Spe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	132	234	
==>r $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	132	234	
==>r $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	132	234	
==>r $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22719	22829	
==>to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22719	22829	
==>to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22719	22829	
==>to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2479	2597	
==>air) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2479	2597	
==>air) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2479	2597	
==>air) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing.value
      ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8968	9111	
==>ue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8968	9111	
==>ue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8968	9111	
==>ue' ],  # [ '$.value' => { access => 'rw' } ] ],
        DESTROY => sub {},
        methods => {
            'num' => sub { Num->new( '$.unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4091	4198	
==>my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4091	4198	
==>my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4091	4198	
==>my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28923	29091	
==>boxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28923	29091	
==>boxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28923	29091	
==>boxed' => '(' . $str . ')' );                
            },
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Val <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10601	10729	
==>"The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14078	14206	
==>"The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13377	13505	
==>"The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) = <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1152	1341	
==>essors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a real typ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20193	20290	
==>intentionally in a simple fashion so that it is easy to maintain and
and easy for developers to st <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20193	20290	
==>intentionally in a simple fashion so that it is easy to maintain and
and easy for developers to st <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23624	23722	
==>tor> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23624	23722	
==>tor> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L< <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	384	478	
==>ation.  So while limited superficial success proved
# straightforward, a more robust solution w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4101	4229	
==>0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4101	4229	
==>0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4101	4229	
==>0]->{pParams}  }
  sub lvalue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3273	3401	
==>= $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = u <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3273	3401	
==>= $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9714	9816	
==>thod',
  '... got the right return value from another $iFoo singleton method');   

is($iFoo->test_iFoo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30517	30613	
==>apping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35068	35164	
==>apping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34250	34346	
==>apping in turn, which it gets as its sole read-only
argument, and it must return a new tuple/Mapp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1007	1193	
==>e $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4201	4315	
==>->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4201	4315	
==>->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1756	1888	
==>ders.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.r <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1756	1888	
==>ders.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.r <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12368	12465	
==>ents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This cla <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12368	12465	
==>ents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6580	6691	
==>'dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6580	6691	
==>'dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6580	6691	
==>'dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 is the canonical orde <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	644	747	
==>$|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	611	714	
==>$|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2715	2846	
==>uilddir ) 
#         or error( "Could not chdir to '$builddir'" ), return;

### XXX perl-ify
sub build {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4794	4897	
==>r, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rol <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4794	4897	
==>r, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4594	4713	
==>urn $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4594	4713	
==>urn $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4594	4713	
==>urn $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ".Perl6::Value::stringify($self->{arr <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6793	6926	
==>= "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$file is not readable";
        re <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3808	3896	
==>r &Tree::insert_child ::= &Tree::insert_children;

## ----------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3808	3896	
==>r &Tree::insert_child ::= &Tree::insert_children;

## ----------------------------------- <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7268	7385	
==>my $t = timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    ".timestr($t)."\n";
}

s <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	650	749	
==>ms }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞() <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	650	749	
==>ms }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞() <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2900	3005	
==>%mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_alte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2900	3005	
==>%mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_alte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2900	3005	
==>%mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(%mods_alte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6619	6726	
==>s primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6619	6726	
==>s primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6619	6726	
==>s primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive { $from..($to - 1) }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4169	4332	
==>:Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4169	4332	
==>:Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4169	4332	
==>:Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22956	23134	
==>alar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22956	23134	
==>alar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22956	23134	
==>alar";
                        # XXX - TODO - test with multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15572	15673	
==>time;  # set current date

=item $h.expires

This header gives the date and time after which the entit <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15572	15673	
==>time;  # set current date

=item $h.expires

This header gives the date and time after which the entit <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14044	14134	
==>nmentExpression>
    | <ArgumentList> <','> <AssignmentExpression>
}
rule LeftHandSideExpre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	979	1099	
==>ned $rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @_;
  %$self = (
    regex => \"$rx",
    len => length $rx, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13193	13289	
==>get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13193	13289	
==>get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	710	820	
==>tch;
};

sub cpan_bareword {
    my $class = shift;
    return $class->no_match unless $_[0];
    return Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10371	10468	
==>y top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10429	10526	
==>y top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23603	23755	
==>y $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23603	23755	
==>y $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23603	23755	
==>y $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1269	1374	
==>gs

(symbol names) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1214	1314	
==>gs
(symbol names) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pa <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9584	9681	
==>lary->new("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nullary->new("int <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	424	542	
==>args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	424	542	
==>args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	424	542	
==>args) {
#   return sub (*$new_args) {
#     $self(*$args, *$new_args);
#   };
# }
method assuming(Code $self: *@args) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2867	2981	
==>~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2867	2981	
==>~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2867	2981	
==>~ /^[\&\$\@\+\%\:]\*?JS::/
      if defined $subname;

    # We have an invocant? ==> We can't say for sure at comp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24348	24444	
==>apping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28900	28996	
==>apping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4689	4815	
==>e role for does()
        $roles{::opaque_instance_attrs($role)->{'$:name'}} = undef;
        foreach my $method_name ($role->g <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8456	8558	
==>ewnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick} <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8456	8558	
==>ewnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick} <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4837	4963	
==>"scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4837	4963	
==>"scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5166	5267	
==>');

fails_ok { $Foo->bar } '... metaclass calling instance method fails';

## make instances

my $iFo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36809	36909	
==>tion is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41358	41458	
==>tion is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40981	41081	
==>tion is the identity-one relation (zero attributes, one tuple),
the result is as if it wasn't there a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12603	12702	
==>me sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Docume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12603	12702	
==>me sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5599	5715	
==>tion.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5599	5715	
==>tion.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5599	5715	
==>tion.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_sub_from_pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23642	23757	
==>efined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23642	23757	
==>efined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23642	23757	
==>efined $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	341	440	
==>::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	341	440	
==>::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	341	440	
==>::Class->add_method('bless' => ::make_method(sub {
    my ($class, $canidate, %params) = @_;
    $ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4154	4265	
==>return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4154	4265	
==>return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4154	4265	
==>return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	27	116	
==>ternals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	27	116	
==>ternals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	27	116	
==>ternals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS::inline('(f <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3172	3267	
==>ze;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3172	3267	
==>ze;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:< <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	277	370	
==>t
maybe not.  Either way, the current approach seems plausible, no?

Clutter::int_sizes 1,2,4. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4325	4491	
==>6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4325	4491	
==>6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4325	4491	
==>6::Value::Num::NaN );
            },
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	699	800	
==>neric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	699	800	
==>neric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	699	800	
==>neric_return(subreturncc)"),
      origName => "&?CALLER_CONTINUATION",
    } => "PIL::PVar";
  } elsi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6700	6819	
==>?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args he <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6700	6819	
==>?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args he <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17778	17892	
==>e);
}

sub can_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	526	614	
==>eta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pk <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	526	614	
==>eta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pk <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38731	38855	
==>>from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38731	38855	
==>>from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38731	38855	
==>>from_list( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28216	28341	
==>able";
dies_ok { t($app_plus_ten_to_str) } "can't do a higher order app with uneq types";

# a helper that returns the stringi <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	693	817	
==>rch_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we ha <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	693	817	
==>rch_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	947	1085	
==>nce->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	947	1085	
==>nce->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	947	1085	
==>nce->{attrs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_inst <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6077	6202	
==>1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6077	6202	
==>1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $na <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11626	11742	
==>g backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $sel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2015	2178	
==>ir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        syste <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3545	3703	
==>ir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        syste <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1873	2003	
==>y
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12784	12871	
==>:ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::Api <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12784	12871	
==>:ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::Api <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12784	12871	
==>:ApiX::Exception);
package PIL::Run::ApiX::Exception::LoopControl;
@ISA=qw(PIL::Run::Api <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14221	14391	
==>->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14221	14391	
==>->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14221	14391	
==>->{shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3030	3132	
==>pace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3030	3132	
==>pace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3030	3132	
==>pace); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17661	17815	
==>op::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17940	18094	
==>op::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	151	265	
==>s);
}

sub approxfprime(Code $f, Num $x) {
    my Num $delta = 0.1;
    return ($f($x + $delta) - $f($x - $delta))/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9181	9311	
==>description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              number      => $self.get_test_numb <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1309	1431	
==>description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_numb <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1309	1431	
==>description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            number      => $self.get_test_numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4376	4479	
==>"positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4376	4479	
==>"positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # X <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4966	5069	
==>"positional argument ".$param->name." is required";
	}
	$param->bind($current, $lv, $pad);
    }
    # X <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4553	4678	
==>f->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ". <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4553	4678	
==>f->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ". <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4553	4678	
==>f->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Slice::items {
    my $self = shift;
    #warn "SLICE ITEMS: ". <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10517	10648	
==>2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>). <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10517	10648	
==>2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>). <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20153	20249	
==>lti prefix:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6241	6359	
==>my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6241	6359	
==>my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6241	6359	
==>my $subobj = p6_new($cls,$name,$argl,$f);
    no strict;
    package PIL::Run::Root;
    $$mn = $subobj;
}
sub p6_new { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2948	3103	
==>fig = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'acc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2948	3103	
==>fig = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'acc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2948	3103	
==>fig = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_attribute($a));
			my $access = $a_config->{'acc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24182	24323	
==>lasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25948	26089	
==>lasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	877	978	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->positio <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10609	10813	
==>ime.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10609	10813	
==>ime.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2985	3097	
==>base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2985	3097	
==>base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2985	3097	
==>base => "Perl6.MetaModel",
    output    => "the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs| <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5087	5203	
==>SA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $inst <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25745	25844	
==>t meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=item <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25745	25844	
==>t meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20142	20235	
==>xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20142	20235	
==>xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20142	20235	
==>xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) { smart_match($xx0,$xx1) };
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11534	11669	
==>'$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11534	11669	
==>'$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11534	11669	
==>'$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".join(" ",@incdirs).")";
}
MULTI SU <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8255	8378	
==>$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            params = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20663	20755	
==>ocess described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20663	20755	
==>ocess described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14458	14628	
==>onstant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14737	14907	
==>onstant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1467	1602	
==>{prototype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($message) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2127	2261	
==>dir },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
        ### make the path abs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22234	22331	
==>ion -
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0.1.0.

It al <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4696	4791	
==>+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F]) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4696	4791	
==>+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F]) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3325	3454	
==>.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3325	3454	
==>.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.e <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	561	663	
==>e} does not exist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[Cwd:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6479	6586	
==>n of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6479	6586	
==>n of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6479	6586	
==>n of global vars and exportation of subs.\n";

  return sprintf <<EOF, $decl_js, add_indent(3, join "\n", @g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	174	289	
==>hat,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	174	289	
==>hat,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	174	289	
==>hat,$name,$args)=@_;
    $what =~ tr/A-Z/a-z/;
    my $args5 = $args;
    my $args6 = $args;
    $args5 =~ s/(?<!\*) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2035	2160	
==>alue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2035	2160	
==>alue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2035	2160	
==>alue { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatchable')
            || confe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	814	950	
==>} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'tighter',
        ot <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	832	933	
==>'<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	832	933	
==>'<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6575	6673	
==>ng';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6575	6673	
==>ng';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12907	13028	
==>key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12907	13028	
==>key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12907	13028	
==>key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $k <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24556	24661	
==>$S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation bran <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20977	21082	
==>$S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation bran <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	16	116	
==>b-Trait
sub storage is rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	39	132	
==>sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	39	132	
==>sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	39	132	
==>sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9901	10011	
==>kg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9901	10011	
==>kg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9901	10011	
==>kg = $1;
	eval "require $pkg;";
	die "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(1 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3629	3725	
==>UGS

Documentation lacks the actual algorithm description. See links or read
the source (there ar <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3629	3725	
==>UGS

Documentation lacks the actual algorithm description. See links or read
the source (there ar <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22696	22791	
==>ortant constraint on what fields can contain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regco <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	816	937	
==>x  # (go cperl-mode ;))

our $iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_du <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12803	12896	
==>utine replaces HTML entities found in the $string with the
corresponding Unicode character.  U <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12803	12896	
==>utine replaces HTML entities found in the $string with the
corresponding Unicode character.  U <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3113	3206	
==>] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3113	3206	
==>] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3113	3206	
==>] }
  sub is_slurpy   { $_[0]->{tpParam}{paramContext}->isa("PIL::CxtSlurpy") }
  sub fixed_na <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4121	4246	
==>lems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4121	4246	
==>lems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	550	646	
==>n flux.  It is simultaneously being
overhauled, cleaned up, and p6 added.  It's basically three d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9285	9402	
==>{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9285	9402	
==>{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9285	9402	
==>{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpParam'}{'isNamed' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2498	2598	
==>r(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errmsg} = sprintf $err, @args;
  c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	114	214	
==>::Symbol;
use Perl6::Core::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
us <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29619	29726	
==>APP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        su <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29619	29726	
==>APP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L::Fre {
        su <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	423	518	
==>APP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L::Fre {
    su <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4372	4490	
==>$set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    } <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4372	4490	
==>$set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    } <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	849	940	
==>NV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { return $Stra <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3161	3270	
==>ND

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_exte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18214	18307	
==>bes the rather complex algorithm that
Module::Compile uses.

First, the source module is prepr <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18214	18307	
==>bes the rather complex algorithm that
Module::Compile uses.

First, the source module is prepr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5026	5134	
==>$_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind varia <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5248	5356	
==>$_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind varia <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	149	243	
==>$.minute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_anchored = rx:perl5/^$iso86 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21329	21416	
==>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21329	21416	
==>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5626	5736	
==>>= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5626	5736	
==>>= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5626	5736	
==>>= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1683	1803	
==>lf->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2535	2655	
==>lf->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( e <==
3	/Users/nnunley/pugs/util/package-osx.pl	6207	6304	
==>.3pm
        /usr/local/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Perl6::Ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	855	958	
==>t ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	855	958	
==>t ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	855	958	
==>t ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8173	8315	
==>{ _emit( $_ ) } @{$n->{param}} 
            ) .
            ')';
    }

    return _not_implemented( $n, "syntax" );
}

sub statement { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5049	5162	
==>_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5049	5162	
==>_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37071	37183	
==>ems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37071	37183	
==>ems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37071	37183	
==>ems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items}};
    $ret = $ret->shift if UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	892	999	
==>>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefine <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	892	999	
==>>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefine <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7665	7773	
==>_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7665	7773	
==>_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7665	7773	
==>_of($n));
    }
    keys(%classes);
}

my %have_classes = map {($_,1)} qw();
sub define_classes_for {
    my( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6703	6824	
==>Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6703	6824	
==>Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6703	6824	
==>Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @ar <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11449	11582	
==>$dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initrd",
    ensure => sub { -r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10821	10935	
==>s elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10821	10935	
==>s elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18720	18825	
==>{
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl") if -e "deleteme_code.pl";}
my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6316	6415	
==>syntax, contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assum <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6101	6199	
==>syntax, contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assum <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2423	2533	
==>ams {
    my $self = shift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Bac <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	54	156	
==>(see line starting "data Param")

has Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	643	745	
==>which to write all normal output (test results and
descriptions).

=item B<$.error_output>

The filehan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	643	745	
==>which to write all normal output (test results and
descriptions).

=item B<$.error_output>

The filehan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1199	1301	
==>which to write all normal output (test results and
descriptions).

=item B<$.error_output>

The filehan <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19177	19270	
==>erver was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.con <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19177	19270	
==>erver was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.con <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17329	17424	
==>logy that is described here, and hence provides these
benefits to developers and users alike.

F <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17329	17424	
==>logy that is described here, and hence provides these
benefits to developers and users alike.

F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2847	2958	
==>ugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2847	2958	
==>ugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2847	2958	
==>ugs"), @ARGV[1..$#ARGV];
}

sub get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or d <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1180	1283	
==>$self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1180	1283	
==>$self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	913	1027	
==>$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	913	1027	
==>$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25372	25470	
==>mbers 0 and 1 mean to normal algebra.

A picture of a Relation::Example can look like a table, wher <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	149	255	
==>" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	149	255	
==>" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copie <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	149	255	
==>" }
sub JS::Root::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copie <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1436	1594	
==>(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1436	1594	
==>(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1771	1917	
==>es->[0]->( $_[0], $state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10623	10772	
==>, ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10623	10772	
==>, ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10623	10772	
==>, ' ', $method, " @param == " . $tmp->$method( @param );
                return $tmp->$method( @param );
            },
        },
    }
};

# ----- u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37917	38005	
==>nvoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37917	38005	
==>nvoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	615	743	
==>class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	615	743	
==>class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	615	743	
==>class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macro
       p6_loop_macro
       p6_last <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2109	2229	
==>}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2109	2229	
==>}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11156	11279	
==>d) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11156	11279	
==>d) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	3067	3184	
==>e {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	3067	3184	
==>e {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	3067	3184	
==>e {
  my Int $count := pop @a;
  my @ret;
  push @ret, @a for 1..$count;
  @ret;
}

sub sprintf (Str $format, *@parts) <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	466	577	
==>> "nested addition",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1827	1924	
==>ht 2006 by Stevan Little and others.

This program is free software; you can redistribute it and/o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1827	1924	
==>ht 2006 by Stevan Little and others.

This program is free software; you can redistribute it and/o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9661	9840	
==>on;

###########################################################################

multi method exclusion (Relation::Example $other!) returns Relation::Example {

    die "The headi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1829	1935	
==>{
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1829	1935	
==>{
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2094	2208	
==>';
};

# keys are the codes \n etc map to, values are 2 char strings such as \n
my %backslash_escape;
foreach my $x <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1388	1502	
==>) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    # replace th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29622	29715	
==>oject (Set of Str $attrs!) returns Relation::Example>

This method is a generic relational ope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13624	13825	
==>list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # gi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13624	13825	
==>list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # gi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13624	13825	
==>list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->push( $_ ) for @list;
                }

                # gi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3467	3580	
==>b ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5517	5630	
==>b ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4473	4586	
==>b ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6370	6476	
==>specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6370	6476	
==>specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8567	8673	
==>specific details of TAP output for TODO tests.

=item B<status returns Hash>

This adds a C<TODO> key, sets <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27047	27142	
==>o what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<selec <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31599	31694	
==>o what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<selec <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30655	30750	
==>o what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<selec <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	52	144	
==>ailable through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBAL <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	110	202	
==>ailable through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBAL <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25259	25387	
==>cat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25538	25666	
==>cat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	29	133	
==>Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	29	133	
==>Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	29	133	
==>Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function (pre, cond, bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33633	33768	
==>hift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33633	33768	
==>hift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33633	33768	
==>hift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  U <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11628	11726	
==>lain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11628	11726	
==>lain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.hea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23065	23163	
==>x with a variable in it, that '$' will be interpreted as
an anchor. If you want to include variable <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6262	6372	
==>elf.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6262	6372	
==>elf.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25664	25761	
==>is the earliest possible start of the match.
 * For instance, /[a-z].foo/ has a regmust of 'foo' a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22365	22485	
==>all of its class
and object methods will each return the same result when invoked on the
same object with the same argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26917	27037	
==>all of its class
and object methods will each return the same result when invoked on the
same object with the same argume <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25640	25760	
==>all of its class
and object methods will each return the same result when invoked on the
same object with the same argume <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	658	807	
==>print {_('$.output')} $message, "\n";
        },
        'diag' => sub {
            my ($self, $message) = @_;            
            $message =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14186	14316	
==>) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14186	14316	
==>) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7343	7446	
==>clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7343	7446	
==>clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7343	7446	
==>clone() - needs MM2
    #p6_set($xx,p6_from_n(p6_to_n($xx)-1)); 
    #$old
};
MULTI SUB prefix:<--> ($xx <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1011	1194	
==>ations->members,
                             # 2-way associations won't work without
                             # MM support (or proxy accessors)
                             # $sel <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1717	1814	
==>.value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1717	1814	
==>.value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13122	13232	
==>eturn $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16599	16709	
==>eturn $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15961	16071	
==>eturn $?SELF!_product( $other );
    }

    # Both sources have overlapping non-identical headings.

    if (al <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	953	1062	
==>set uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18215	18312	
==>, such as
'error opening file', programs would have a harder time figuring out the
best way to dea <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18215	18312	
==>, such as
'error opening file', programs would have a harder time figuring out the
best way to dea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	245	349	
==>re BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	245	349	
==>re BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	245	349	
==>re BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 43, 47) or die "Couldn't setrlimi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14598	14777	
==>tar(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14877	15056	
==>tar(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24662	24748	
==>odifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modifiers(Ex,M,E1).
set_modifiers <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51591	51789	
==>authority'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11471	11573	
==>n="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <tr> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36677	36772	
==>head2 groupp

Family: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?( <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8160	8263	
==>n.
multi Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from PIL2J <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4583	4679	
==>is an experimental development version.  The API is still in flux.

The set of implemented featur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4833	4929	
==>is an experimental development version.  The API is still in flux.

The set of implemented featur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6276	6369	
==>coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6276	6369	
==>coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6276	6369	
==>coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_entrypoints[%d](__returncc);
EOF
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6700	6809	
==>classes' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6700	6809	
==>classes' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6700	6809	
==>classes' => ::make_method(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1218	1314	
==>B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=bac <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1218	1314	
==>B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=bac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1765	1861	
==>B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=bac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9849	10030	
==>ath}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9849	10030	
==>ath}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1622	1726	
==>s a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6528	6652	
==>ch.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6528	6652	
==>ch.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6528	6652	
==>ch.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set(".p6_var_macro($_[0]{'p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2153	2257	
==>th()->to_native . ") expected(" . $params->length->to_native . ")";      
    # loop through the param ke <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	522	617	
==>ad1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a lit <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	522	617	
==>ad1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a lit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11094	11224	
==>od () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11094	11224	
==>od () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11094	11224	
==>od () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	48	154	
==>ence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	48	154	
==>ence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1126	1230	
==>st be a str type";
    return $self->{$key->to_str->to_native};
}

sub store {
    my ($self, $key, $valu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6921	7060	
==>ctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	746	866	
==>-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFER <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	746	866	
==>-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFER <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7518	7662	
==>tant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7518	7662	
==>tant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7518	7662	
==>tant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : iarr[i]
        );
      }

      return marray;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14259	14359	
==>ist' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14259	14359	
==>ist' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14259	14359	
==>ist' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2827	2949	
==>KAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2827	2949	
==>KAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2827	2949	
==>KAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = "no strict 'refs'; my($varlist);local($vl2) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26970	27199	
==>que'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(symbol->new('@:subcla <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1281	1383	
==>ule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1281	1383	
==>ule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	312	413	
==>are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	312	413	
==>are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	312	413	
==>are called at compile-time) won't work.

# &JS::inline("...") is a pseudo sub: &JS::inline's first par <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	239	325	
==>-------------------------------------------------------
## constructors

submethod BUIL <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	239	325	
==>-------------------------------------------------------
## constructors

submethod BUIL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2281	2383	
==>ion::Example-0.1.0 {
    does Relation;

    # External packages used by the Relation::Example class, t <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2500	2593	
==>here it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2500	2593	
==>here it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15696	15896	
==>1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15975	16175	
==>1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         ) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26408	26512	
==>Y_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILETIME */

 #defi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2036	2171	
==>ute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_me <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2036	2171	
==>ute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_me <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1910	2021	
==>= sub { return };
}

sub add_smoke {
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "pu <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1126	1263	
==>e pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@value <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	172	270	
==>ile;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) { <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	172	270	
==>ile;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	145	268	
==>:Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	145	268	
==>:Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<h <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3283	3381	
==>$totals{skip_all} = $self->{skip_all} if defined $self->{skip_all};

    my $passed = ($totals{max} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3443	3634	
==>num:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3309	3489	
==>num:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1139	1262	
==>ess length;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4197	4300	
==>es within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4197	4300	
==>es within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4197	4300	
==>es within it to deal with 
## meta-circularity issues and other such ugliness 

## introspective methods <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	439	546	
==>ift;
		my $node = shift;

		my $struct = $node->struct_equiv;
		my $orig = $node->orig;

		if (defined($orig <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2065	2166	
==>> '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2065	2166	
==>> '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15643	15770	
==>sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15643	15770	
==>sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15643	15770	
==>sub to_bit        { $_[0] == 0 ? '' : 1 }
sub to_num        { 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4431	4522	
==>tokens;
my $tok = def_rule('token',mk_dynamic_alt(\@tokens));
# tokens should be longest-mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6101	6226	
==>me;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6101	6226	
==>me;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6101	6226	
==>me;
        $s .= ' = ' . Perl6::Value::stringify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3882	3984	
==>ail.  C<$description> is the optional
description of the test.  This is the easiest way to match a fail <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3882	3984	
==>ail.  C<$description> is the optional
description of the test.  This is the easiest way to match a fail <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3962	4064	
==>ail.  C<$description> is the optional
description of the test.  This is the easiest way to match a fail <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3703	3857	
==>rt > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3703	3857	
==>rt > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31924	32016	
==>nd throw an
error (specifically, B<RPe_NOTREC>, "Sequence (?xx not recognized").  If
you want <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	17	130	
==>package Blondie::Prelude::Math;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    (
		map { stub( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9471	9562	
==>eturns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9471	9562	
==>eturns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1170	1267	
==>->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1170	1267	
==>->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1379	1476	
==>->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db_param;
	}
	else <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12424	12604	
==>c->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12424	12604	
==>c->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12424	12604	
==>c->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->push( @params[$i..$#params] );
                            $bound_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2693	2808	
==>pgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2693	2808	
==>pgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2693	2808	
==>pgrade them to real methods
#
# TODO - optimize Eager array to O(1)
#      - currently disabled with "if 0 &&" (Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	888	1027	
==>~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	853	985	
==>~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	228	335	
==>'blessed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env->isa(' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7515	7626	
==>ruleop() function gets as argument a list:



### we don't need a "high" level interface (named args) 

###    b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7259	7367	
==>ruleop() function gets as argument a list:

### we don't need a "high" level interface (named args) 
###    b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2354	2587	
==>,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1486	1655	
==>,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1486	1655	
==>,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	384	494	
==>atch failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	366	471	
==>atch failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14016	14128	
==>turn undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14016	14128	
==>turn undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14016	14128	
==>turn undef;
});

# now add the $::Class attributes

::Class.meta.add_attribute('@:MRO'              => ::make_att <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3939	4087	
==>levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5163	5311	
==>levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2340	2479	
==>iagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $description, $reason) = @_;
            $self->report_test( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17696	17787	
==>hods which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17696	17787	
==>hods which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routine <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4598	4703	
==>onfig{pugs}, -C => 'Parse-YAML', $TEMP_PRELUDE);
    $lines += print OUT while <$rh>;
    #my $program = d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4669	4771	
==>$self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4669	4771	
==>$self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4669	4771	
==>$self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROC <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8495	8616	
==>uleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - need <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8199	8313	
==>uleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - need <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	27964	28060	
==>erent version.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C< <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3254	3399	
==>t($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is ze <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3254	3399	
==>t($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is ze <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1092	1183	
==>doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1092	1183	
==>doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1092	1183	
==>doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box.Constant(new PIL2JS.NamedPair(%s, %s) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1294	1393	
==>w_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1294	1393	
==>w_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1294	1393	
==>w_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	672	814	
==>maker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $self->Inline->write;
        } else {
            $self->Make <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	512	608	
==>ub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is exp <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	512	608	
==>ub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	732	833	
==>keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	732	833	
==>keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	732	833	
==>keys" started by Ingo
      // Blechschmidt on p6l:
      // http://www.nntp.perl.org/group/perl.perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18542	18670	
==>ct ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a reference" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	923	1023	
==>(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	923	1023	
==>(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	923	1023	
==>(thing.autoderef));
  })')($ref);
}

method tied(Ref $self:) returns Ref {
  JS::inline('new PIL2JS.B <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	357	482	
==>( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $path    = $struct->{package} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40367	40477	
==>$value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40367	40477	
==>$value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40367	40477	
==>$value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24576	24727	
==>('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24576	24727	
==>('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24576	24727	
==>('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2478	2587	
==>}
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2478	2587	
==>}
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37159	37247	
==>exp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15049	15145	
==>sive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary ty <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15107	15203	
==>sive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary ty <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3629	3836	
==>'$current')
                  ->send('has_method' => $e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11998	12109	
==>the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11998	12109	
==>the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21858	21950	
==>ory implementation of the Relation role

=head1 VERSION

This document describes Relation::Ex <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19373	19461	
==>a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curus <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19373	19461	
==>a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curus <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1520	1618	
==>xs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1520	1618	
==>xs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1520	1618	
==>xs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[idx]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12989	13102	
==>od () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12989	13102	
==>od () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12989	13102	
==>od () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArguments : you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	979	1158	
==>header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END__

=pod

=head1 NAM <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	814	924	
==>rn if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (u <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	814	924	
==>rn if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	514	644	
==>r >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	514	644	
==>r >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6793	6901	
==>"\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "Illegal hexa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2480	2581	
==>te the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $conte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2480	2581	
==>te the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $conte <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	268	393	
==>t ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self. <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	268	393	
==>t ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4564	4779	
==>y_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4564	4779	
==>y_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4564	4779	
==>y_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13123	13234	
==>r $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $eve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13123	13234	
==>r $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $eve <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27938	28040	
==>((opaque $self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: s <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5504	5605	
==>ssage

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

J <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5504	5605	
==>ssage

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

J <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10359	10456	
==>_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1976	2080	
==>method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1976	2080	
==>method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1976	2080	
==>method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6207	6310	
==>e is useful, like custom, for when you don't want to mess
with members belonging to 3rd party classes th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6207	6310	
==>e is useful, like custom, for when you don't want to mess
with members belonging to 3rd party classes th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6207	6310	
==>e is useful, like custom, for when you don't want to mess
with members belonging to 3rd party classes th <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2133	2245	
==>et;
    for @indicies -> $k {
	push(@ret, @array._delete_key($k) );
    }
    *@ret;
}
# signature from S29draft. <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	287	390	
==>o, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs - <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	287	390	
==>o, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs - <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13742	13880	
==>"$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	679	800	
==>, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	679	800	
==>, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8933	9061	
==>if ( $attr->[0]{bareword} eq 'is' &&
                 $attr->[1]{bareword} eq 'export' ) {
                $export = "push \@EX <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	814	919	
==>i submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $stri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	814	919	
==>i submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1916	2090	
==>$o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1916	2090	
==>$o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1916	2090	
==>$o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $from = "" if !defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	334	438	
==>Stmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	334	438	
==>Stmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	334	438	
==>Stmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmt <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1885	1994	
==>rnal state of a strap to make it ready for parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3312	3420	
==>field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3312	3420	
==>field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1562	1679	
==>PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1562	1679	
==>PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1562	1679	
==>PIL2JS.Box.Constant(%s)", {
      "inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$s <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15279	15381	
==>turns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub i <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15337	15439	
==>turns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	506	605	
==>ammar { die "not implemented" };

sub add_op {
    # name=>'*', precedence=>'>', other=>'+', rule=>$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	199	309	
==>r qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	199	309	
==>r qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1516	1611	
==>and other modules based on
Test::Builder.  You don't need to know about Test::Harness to use
tho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5613	5748	
==>ons
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5625	5760	
==>ons
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24152	24281	
==>>new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24152	24281	
==>>new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24152	24281	
==>>new( '$.unboxed' => ($tmp->elems > Perl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17721	17836	
==>reate new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, d <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17721	17836	
==>reate new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37513	37607	
==>te->new('%:attributes'      => 'hash')));
$::Class->send('add_attribute', (symbol->new('%:metho <==
3	/Users/nnunley/pugs/util/config_h.pl	1184	1289	
==>main = readline "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Mo <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7152	7254	
==>ativize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7152	7254	
==>ativize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1827	1955	
==>ef $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Sup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1827	1955	
==>ef $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Sup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1827	1955	
==>ef $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{pVarName};
    }

    # XXX HACK! Sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24217	24421	
==>]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24217	24421	
==>]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24217	24421	
==>]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$method( @param ) )
                }
                
                r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9850	10041	
==>_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9850	10041	
==>_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9850	10041	
==>_single( @list ) },
        start =>   sub { $list[0]  },
        end =>     sub { $list[-1] },
        cstart =>  sub { shift  @list },
        cend =>    sub { pop    @list },
        celems <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5223	5360	
==>,
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(92 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5223	5360	
==>,
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(92 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3461	3570	
==>unless $class eq "PVMG";

		my $flags = $obj->flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10401	10518	
==>{tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10401	10518	
==>{tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $nam <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10401	10518	
==>{tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6474	6581	
==>' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6474	6581	
==>' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6474	6581	
==>' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6588	6712	
==>match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        post <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6588	6712	
==>match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        post <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	378	495	
==>m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable outside of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	378	495	
==>m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable outside of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	378	495	
==>m sure that there must be a more efficient way to do this,
      // but if I store the node in a variable outside of t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3813	4019	
==>urn;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	339	454	
==>my $jib ( values %PKGS ) {
    $REPO->add_file( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Loca <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21592	21686	
==>ntinueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier>? <' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7512	7639	
==>XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7524	7651	
==>XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9610	9698	
==>_method' 
});

is($iFoo->another_test_iFoo_singleton_method(), 
  '$iFoo::another_test_iF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3405	3510	
==>Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3405	3510	
==>Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3405	3510	
==>Role->add_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	535	639	
==>lating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but exte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	535	639	
==>lating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but exte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	535	639	
==>lating to, or derived 
# from the senses". Think of Roles like you might think of Duck
# typing, but exte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12945	13051	
==>lass.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12945	13051	
==>lass.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12945	13051	
==>lass.meta.add_method('get_attribute' => method () {
    my ($self, $label, %params) = @_;
    (defined $lab <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	52	169	
==>t_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	52	169	
==>t_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_o <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	391	479	
==>ing, as explained in
# this article: http://research.microsoft.com/Users/luca/Papers/Basi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	270	382	
==>}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = lengt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	270	382	
==>}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = lengt <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2175	2279	
==>n2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{syncat} = PGE_OPTABLE_CLOSE;
    $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2019	2132	
==>"STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2019	2132	
==>"STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2019	2132	
==>"STemp") {
        PIL::fail("Can't use temp variable declarator outside a sub-scope!")
          unless $PIL::IN_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	490	591	
==>dded functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	490	591	
==>dded functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	490	591	
==>dded functions clone(), elems(), buckets()


# TODO - warn for odd number of elements, on construction <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3134	3252	
==>ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3134	3252	
==>ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9743	9834	
==>$s')" }
NODE VList ($value) { "p6_List(".join(",",map{DOWN($_)}@$value).")" } # XXX
NODE VTy <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2414	2528	
==>ssed, $description, $reason) = @_;
            $self->report_test(
                $::TestBuilder->FETCH('::Test')- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	504	600	
==>nate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
tim <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	504	600	
==>nate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
tim <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	162	283	
==>'bool' => 'as_bool',
    '""'   => 'as_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16751	16866	
==>reate new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (opt <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16751	16866	
==>reate new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16143	16236	
==>::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16143	16236	
==>::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16143	16236	
==>::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    return -&Perl6::Value::Num::Inf i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10926	11015	
==>------------------------------------------------------------
Random Thoughts on Role state <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10926	11015	
==>------------------------------------------------------------
Random Thoughts on Role state <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10926	11015	
==>------------------------------------------------------------
Random Thoughts on Role state <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6666	6761	
==>ributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6666	6761	
==>ributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6666	6761	
==>ributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This program i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	48	156	
==>ive to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	48	156	
==>ive to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	48	156	
==>ive to writing primitives in p5 is to write them
in p6 and add them to Prelude.

=cut

package PrimFilter;
su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18024	18218	
==>t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21501	21695	
==>t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21088	21282	
==>t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4207	4307	
==>$ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4207	4307	
==>$ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4207	4307	
==>$ret;
}

method min(@self: Code $cmp = &infix:«<=>») { min $cmp, *@self }
method max(@self: Code $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9833	9948	
==>ly $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9833	9948	
==>ly $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9833	9948	
==>ly $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0], @{$_[2]}) if $_[0] == $::Cla <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25678	25776	
==>machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25678	25776	
==>machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a us <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25195	25287	
==>gle tuple.  A zero-attribute Relation::Example with zero tuples or
one tuple respectively hav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31289	31500	
==>st') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31289	31500	
==>st') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31289	31500	
==>st') ) {
                    $ret_length += $i->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3368	3493	
==>ub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1726	1851	
==>ub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2506	2631	
==>ub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id>' );
    my $block = get_data( $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	626	740	
==>REATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	626	740	
==>REATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	626	740	
==>REATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37645	37753	
==>ialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37645	37753	
==>ialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37645	37753	
==>ialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Perl6 <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19499	19632	
==>ld just link to the top?
                # this is what you get at the moment
                push @bad_heading, "link in $source to $ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4453	4556	
==>2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@strin <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4453	4556	
==>2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10795	10979	
==>}
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes] <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10795	10979	
==>}
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8128	8269	
==>lt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7849	7982	
==>lt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6878	6995	
==>butes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation::Example.new(
        heading => $attrs <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25898	25993	
==>attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30450	30545	
==>attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17685	17786	
==>ix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17685	17786	
==>ix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17685	17786	
==>ix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB infix:<~&> ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4697	4877	
==>headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4697	4877	
==>headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            retu <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	328	461	
==>n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1787	1886	
==>::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    sub <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1787	1886	
==>::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1844	1975	
==>',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1855	1986	
==>',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10222	10343	
==>n bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10222	10343	
==>n bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CALL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10222	10343	
==>n bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CALL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	530	645	
==>bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	530	645	
==>bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	530	645	
==>bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Util qw(blessed);
sub expand {
    my($self,$avoid <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1900	2013	
==>it('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 { <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1900	2013	
==>it('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 { <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4935	5020	
==>equence { <simple_escape_sequence> | <octal_escape_sequence> | <hexidecimal_escape_seq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30331	30457	
==>urn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30331	30457	
==>urn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30331	30457	
==>urn ( $len, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret $ret_length == ".scalar(@ret)." leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3297	3413	
==>y));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3297	3413	
==>y));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3653	3769	
==>y));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10016	10184	
==>lf.report_test(
              Test::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2073	2233	
==>lf.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2073	2233	
==>lf.report_test(
            Test::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4622	4728	
==>ing crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4622	4728	
==>ing crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4622	4728	
==>ing crufty

# Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	213	321	
==>ings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	213	321	
==>ings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	213	321	
==>ings "recursion";
  return bless {
    pStmt  =>
      ($_[0]->{pStmt}  eq "PNoop" ? bless {} => "PIL::PNoop" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	718	813	
==>c", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	718	813	
==>c", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	718	813	
==>c", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ]}, _ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26495	26597	
==>ction have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31047	31149	
==>ction have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30049	30151	
==>ction have been
eliminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2011	2117	
==>m: cannot find $file from $name" unless -e $file;
    }

    $self->version_from($file)      unless $self-> <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7038	7135	
==>imple does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7038	7135	
==>imple does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1517	1636	
==>0 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Un <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1517	1636	
==>0 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2434	2567	
==>@start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2434	2567	
==>@start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2434	2567	
==>@start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9094	9217	
==>compatible types:\n" . Dumper(@_);
};


# these are the type signatures of some builtins
our %prelude = (
	# int -> int -> i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6574	6680	
==>_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6574	6680	
==>_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1421	1542	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1421	1542	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1421	1542	
==>q 'Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        ${$instance->{cl <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	367	468	
==>r for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haske <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	367	468	
==>r for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haske <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	50	165	
==>File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	55	170	
==>File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	55	170	
==>File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6514	6627	
==>ypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my $y = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3782	3877	
==>obal match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class meth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3966	4061	
==>obal match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2912	3064	
==>|= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self->report_test(
                    $::TestBuilder->FETCH('::T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1484	1596	
==>src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: synt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1484	1596	
==>src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: synt <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6072	6168	
==>($self, $line, $type, $totals) if $self->{callback};

    $self->{'next'} = $result{number} + 1 i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2175	2291	
==>)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2175	2291	
==>)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2175	2291	
==>)

# TODO - @a[1].delete doesn't work

# TODO - tied arrays should use the standard Perl 5 interface
#        test pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10446	10557	
==>--------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10446	10557	
==>--------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10446	10557	
==>--------------------    
    # NOTE:
    # &resolve requires the following interface
    # to be implemented, so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4260	4369	
==>clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4260	4369	
==>clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4260	4369	
==>clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]->{cis_infinite}( @_ ) }
s <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1546	1656	
==>if $file =~ s/^#\s*(.*)\n//;
    my @file = split //, $file;

    open STDOUT, "> $fname.tex" or die "can not o <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1279	1374	
==>efault
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1279	1374	
==>efault
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2081	2188	
==>000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2081	2188	
==>000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2081	2188	
==>000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7442	7542	
==>rs\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7442	7542	
==>rs\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7442	7542	
==>rs\n$bind;\n\n$body";

    my $jsbody = $self->multi
      ? "$params\nif(only_check_for_params) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5449	5568	
==>{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5449	5568	
==>{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5449	5568	
==>{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	454	571	
==>t}= { 'pointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{out}= { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20742	20833	
==>nnels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20742	20833	
==>nnels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38315	38409	
==>ef
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolating <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38315	38409	
==>ef
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolating <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7460	7556	
==>ed by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7460	7556	
==>ed by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired wh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7162	7296	
==>rFoo now does Role');

my $rBar = $Role->new(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { 'rBar::bar' } }
);
ok($rBar->do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3889	3993	
==>te('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3889	3993	
==>te('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3889	3993	
==>te('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    my $nt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5859	5972	
==>ings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5859	5972	
==>ings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5859	5972	
==>ings, shift;
      possibly_ccify_many_step($things, $i, $sub, $jsthings);
    };
  } else {
    $sub->(@$jsthings <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1572	1678	
==>y $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1572	1678	
==>y $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::D <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1572	1678	
==>y $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::D <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3134	3257	
==>d.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15320	15419	
==>nes into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15320	15419	
==>nes into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3123	3251	
==>able';
}
sub ref_flavor {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'n <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2541	2629	
==>$data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2541	2629	
==>$data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields) <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	269	369	
==>aring, and
# continue conversion to p6 code.

class Char is Str;
class LanguageChar is Char;
class Gr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	4014	4109	
==>compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode in <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4014	4109	
==>compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	632	759	
==>ed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	632	759	
==>ed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	632	759	
==>ed up (see
      // buffer.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11330	11456	
==>set the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11330	11456	
==>set the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11330	11456	
==>set the iterator
    my $s = each %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1867	1969	
==>/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1867	1969	
==>/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1867	1969	
==>/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3675	3804	
==>eturn 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3663	3792	
==>eturn 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1171	1271	
==>ated with anything, so ....
    my $supers = $class->get_attr(symbol->new('@:MRO'));
    # if nothing <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1435	1556	
==>kefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'} <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1435	1556	
==>kefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'} <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2889	3009	
==>kefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8299	8398	
==>ruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not be <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8299	8398	
==>ruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not be <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9447	9537	
==>(X)) --> "[:",  charset_identifier(X), ":]", !.
p5_charset_item(R) --> p56_char_class(R).
p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11569	11665	
==>s in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Return <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11569	11665	
==>s in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2892	2986	
==>ion is currently at a comparable state as v6.pm.

Although running C<v6-pugs> requires the inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	432	553	
==>:isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	432	553	
==>:isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no stri <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	432	553	
==>:isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no stri <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10008	10125	
==>ng, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13485	13602	
==>ng, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12766	12883	
==>ng, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source is identity-one tuple; result <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5197	5299	
==>given), there has to be only one input file.
In linking mode, multiple input files may be specified. If <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5197	5299	
==>given), there has to be only one input file.
In linking mode, multiple input files may be specified. If <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5197	5299	
==>given), there has to be only one input file.
In linking mode, multiple input files may be specified. If <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1004	1155	
==>>associations->members,
                             # 2-way associations won't work without
                             # MM support (or proxy accesso <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2116	2216	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::Keye <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2116	2216	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::Keye <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7219	7338	
==>d dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7219	7338	
==>d dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7219	7338	
==>d dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_method('_make_dispatcher_iterator' => : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13160	13309	
==>nded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$fina <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9346	9495	
==>nded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$fina <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10182	10331	
==>nded );\n" .
                "    die \"compile: syntax error in macro at '\" . \$final_ast->{tail} . \"'\\n\"\n" .
                "        if \$fina <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22096	22198	
==>($sigil eq ':') {
	$mn .= "::META";
    } else {
	my $space = $space_from_sigil{$sigil};
	Carp::confess <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1349	1450	
==>ch::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1349	1450	
==>ch::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23493	23607	
==>- doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23493	23607	
==>- doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23493	23607	
==>- doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8804	9013	
==>re( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8804	9013	
==>re( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8804	9013	
==>re( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8397	8555	
==>0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8397	8555	
==>0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8397	8555	
==>0]); 
            # if it is a FORCE ....
            shift(@_) if $_[0] eq $Perl6::Submethod::FORCE;
            # XXX -
            # this is currently a hac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1341	1444	
==>pr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1341	1444	
==>pr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	387	489	
==>ion($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	186	323	
==>want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	186	323	
==>want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	186	323	
==>want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($want);
    }
    return 1 == 0;
  }

  sub as_string { local $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8206	8314	
==>=> cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1622	1727	
==>his should all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:pe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1622	1727	
==>his should all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12994	13208	
==>->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12994	13208	
==>->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12994	13208	
==>->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1092	1199	
==>type'))
        || confess "Key must be a str type";
    return $self->{$key->to_str->to_native};
}

sub sto <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6040	6145	
==>= ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = spl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6040	6145	
==>= ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = spl <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	50	168	
==>multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_ele <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	50	168	
==>multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_ele <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	784	879	
==>bound private attributes, which are actually just accessor methods
as well.

=back

Note that me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2822	2923	
==>b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2822	2923	
==>b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2822	2923	
==>b)",
  "infix:«<=>»",  2, "N", "Number(a) < Number(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	804	956	
==>ol() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	804	956	
==>ol() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	804	956	
==>ol() ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
            'fetch' => sub {
                my($o,$idx)=@ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24338	24432	
==>ace of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from its m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24338	24432	
==>ace of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from its m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	98	192	
==>chmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21078	21194	
==>sh @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # lo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17499	17615	
==>sh @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # lo <==
3	/Users/nnunley/pugs/util/package-osx.pl	4136	4248	
==>m
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bible::E03.3pm
        /us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5210	5315	
==>"_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5210	5315	
==>"_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5210	5315	
==>"_".$parts[-1];
    $mn = join('::',@parts);
    $mn = 'PIL::Run::Root::'.$mn if $is_absolute_name;
    $m <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	144	271	
==>instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib';
# }
#
# t/TEST will use -MTestInit.  You may "use T <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3734	3831	
==>us, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3734	3831	
==>us, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22434	22546	
==>plice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22434	22546	
==>plice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22434	22546	
==>plice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2906	3009	
==>$method))

=cut

$::ENV->create('WALKMETH' => closure->new(
        $::ENV,
        closure::signature-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14023	14118	
==>s in $string with their entity
representation. A second argument can be given to specify which
c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14023	14118	
==>s in $string with their entity
representation. A second argument can be given to specify which
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	723	825	
==>{ $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	723	825	
==>{ $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	723	825	
==>{ $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	206	346	
==>o test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1431	1540	
==>amp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1431	1540	
==>amp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11016	11169	
==>s } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11016	11169	
==>s } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11016	11169	
==>s } && $i > scalar $#params;
                    return (0,"err2") if $i > scalar $#{ $self->params } && $i <= scalar $#params;
                    # warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8201	8329	
==>{
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8201	8329	
==>{
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8201	8329	
==>{
        PIL2JS.die("Can\'t bind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19520	19633	
==>if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	0	97	
==>module Test-0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8072	8172	
==>stant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8072	8172	
==>stant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8072	8172	
==>stant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a given variab <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4388	4482	
==>)`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following metho <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4388	4482	
==>)`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	952	1058	
==>);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	952	1058	
==>);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	952	1058	
==>);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()->unboxed ? 1 : 0}
sub p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5095	5195	
==>{ jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5095	5195	
==>{ jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5095	5195	
==>{ jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if $@;
  eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3222	3324	
==>igenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3222	3324	
==>igenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3222	3324	
==>igenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25020	25124	
==>eturns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29572	29676	
==>eturns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28484	28588	
==>eturns Bool>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a membe <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1942	2083	
==>") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unles <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1920	2061	
==>") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unles <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5177	5281	
==>t) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11105	11255	
==>die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11105	11255	
==>die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11105	11255	
==>die "bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2768	2865	
==>);
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whites <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2768	2865	
==>);
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whites <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2768	2865	
==>);
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whites <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	692	809	
==>ast next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	692	809	
==>ast next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	692	809	
==>ast next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc. <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	209	337	
==>up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burs <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	209	337	
==>up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	583	678	
==>im && $prim->can("name") && exists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9143	9240	
==>k)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9143	9240	
==>k)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $chann <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1001	1093	
==>:Foo->run($program);

=head1 DESCRIPTION

The runtime object is responsible for providing the <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1027	1145	
==>n(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1027	1145	
==>n(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1691	1785	
==>sisons are used, an alternate engine is invoked.

Currently, only the I<PCRE> flavor is support <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6137	6254	
==>> BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hell <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6137	6254	
==>> BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hell <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6137	6254	
==>> BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "hell <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13399	13504	
==>!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13399	13504	
==>!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$ <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	277	374	
==>elt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufruf einer einfachen Methode
$welt. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5699	5816	
==>un_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5699	5816	
==>un_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScrip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5699	5816	
==>un_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSPM;
  my $rt = JavaScrip <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3493	3634	
==>[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1851	1992	
==>[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2631	2772	
==>[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15569	15699	
==>attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15569	15699	
==>attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15569	15699	
==>attributes');
    }     
    else {
        confess "There is no " . $params->{for} . " attribute table";
    }
}));

$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2827	2931	
==>et_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = new Point <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35069	35170	
==>is a clone of the first but for the changes.

=back

A Translator object has these methods:

=over

=i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35069	35170	
==>is a clone of the first but for the changes.

=back

A Translator object has these methods:

=over

=i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2276	2389	
==>re, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx: <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2276	2389	
==>re, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5038	5135	
==>urns nil>

=item B<slice (num, num) returns list>

=item B<length () returns num>

=item B<elem () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3737	3858	
==>dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3737	3858	
==>dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3737	3858	
==>dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provide a method label for WALKMET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	900	1004	
==>kage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	900	1004	
==>kage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	900	1004	
==>kage
  # Beatless.

=head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	705	833	
==>ameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	705	833	
==>ameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4129	4230	
==>cks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4129	4230	
==>cks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4129	4230	
==>cks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2158	2257	
==>L2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2158	2257	
==>L2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2158	2257	
==>L2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2168	2290	
==>e>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2168	2290	
==>e>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2168	2290	
==>e>      run perl6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub p6_repl {
    my $verbose = 0;
    my $eval_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	951	1046	
==>an('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	951	1046	
==>an('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1498	1593	
==>an('no_plan')>
in the Perl 5 Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Int $.ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7965	8090	
==>'diag';
  has Test::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( Test::Builder $Cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	970	1081	
==>'\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2570	2681	
==>'\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2519	2647	
==>emAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2519	2647	
==>emAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2519	2647	
==>emAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5414	5583	
==>ired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5414	5583	
==>ired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5414	5583	
==>ired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0]{defaul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8936	9060	
==>',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $self->raw, map join("", map $_->qr, @$_) <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	790	895	
==>fix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($ <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	790	895	
==>fix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	489	619	
==>S.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	489	619	
==>S.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	489	619	
==>S.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.cat <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	630	760	
==>q 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .z <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	630	760	
==>q 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .z <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13742	13859	
==>$1;

	$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pipe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4278	4373	
==>turn "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4278	4373	
==>turn "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4278	4373	
==>turn "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallreturncc" if $PIL::IN_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1762	1965	
==>KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRA <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	426	537	
==>e each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Roo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	426	537	
==>e each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Roo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13720	13820	
==>ection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13720	13820	
==>ection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13720	13820	
==>ection_unacceptable = 1;
    "(throw PIL::Run::ApiX::Exception::LoopControl('-text' => 'next'))";
}
s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12139	12269	
==>us();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2541	2657	
==>us();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2541	2657	
==>us();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Build <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22310	22487	
==>$self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22310	22487	
==>$self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22310	22487	
==>$self;
                    }
                    my $elem = $tmp->$method( @param );
                    my $scalar;
                    if ( Perl6::Value::p6v_isa( $elem, 'Scala <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4114	4215	
==>"compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4331	4432	
==>"compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_mat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13181	13274	
==>alls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denot <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13181	13274	
==>alls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1471	1586	
==>); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1471	1586	
==>); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1471	1586	
==>); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="") {
    $co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	480	603	
==>perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @matc <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	379	479	
==>arams returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	379	479	
==>arams returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3312	3414	
==>s (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6479	6581	
==>re(), $name, @mess);
}

# Note: this isn't quite as fancy as Test::More::like().

sub like   ($$@) { li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3496	3598	
==>s (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/< <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1432	1547	
==>Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4556	4668	
==>Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4556	4668	
==>Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  ' <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2317	2511	
==>f ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2317	2511	
==>f ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12915	13048	
==>= $i;
      my $v = $f->($at_pos);
      return 1 if not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Pars <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	752	854	
==>s
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has addi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	752	854	
==>s
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has addi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	462	557	
==>ersion to other native types
sub to_num { num->new((shift)->fetch + 0)  }
sub to_str { str->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6911	7036	
==>n_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6911	7036	
==>n_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6911	7036	
==>n_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  sub cxt  { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9034	9177	
==>{
          fail "Unknown plan";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1176	1305	
==>{
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, St <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1176	1305	
==>{
        fail "Unknown plan";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, St <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4229	4538	
==>( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24933	25056	
==>n| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21354	21477	
==>n| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->c <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2115	2227	
==>f: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2115	2227	
==>f: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10165	10269	
==>r target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, targ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	429	537	
==>n",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	429	537	
==>n",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	429	537	
==>n",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUATION") {
    PIL::fail("There's no &?CALLER_CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8758	8923	
==>LASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8758	8923	
==>LASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8758	8923	
==>LASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    inst <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13253	13392	
==>=== any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's heading, so simplify to a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16730	16869	
==>=== any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's heading, so simplify to a s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16092	16231	
==>=== any( $!heading )) {
        # The second source's heading is a proper subset of the
        # first source's heading, so simplify to a s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6854	6965	
==>s_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6854	6965	
==>s_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6854	6965	
==>s_infinite =>   sub { return $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8241	8381	
==>,
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8241	8381	
==>,
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8241	8381	
==>,
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'in <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2785	2900	
==>}

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can on <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4028	4126	
==>pher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4028	4126	
==>pher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2527	2626	
==>-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2527	2626	
==>-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2527	2626	
==>-e", 'BEGIN { %*INC{"Test.pm"}++ }',
  @pugs_args
));
print($js), exit if $compile_only;
$run ||= 'j <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12900	13014	
==>s; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16377	16491	
==>s; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === n <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15739	15853	
==>s; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    if (all( $!heading ) === n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3967	4064	
==>-------------------------------------------------------------------------
## BEGIN BOOTSTRAPPING A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3967	4064	
==>-------------------------------------------------------------------------
## BEGIN BOOTSTRAPPING A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3967	4064	
==>-------------------------------------------------------------------------
## BEGIN BOOTSTRAPPING A <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	50	205	
==>eise Addition
@a>>--;              # alle Elemente decrementieren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # und als @x speichern <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1635	1736	
==>he hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1635	1736	
==>he hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1325	1445	
==>$sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1325	1445	
==>$sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15360	15465	
==>sh ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15360	15465	
==>sh ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15360	15465	
==>sh ($xx) {...};
MULTI SUB close ($xx) {...};
MULTI SUB key ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	699	830	
==>);
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	796	927	
==>);
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23439	23553	
==>turns list {
    if (@superclasses.defined) {
        for @superclasses -> $super {
            $super.add_subclass <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9594	9691	
==>ds return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurrence obje <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9594	9691	
==>ds return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurrence obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36624	36719	
==>I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp

Types: groupp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3923	4043	
==>cription of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3923	4043	
==>cription of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4003	4123	
==>cription of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4970	5075	
==>turns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4970	5075	
==>turns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	226	340	
==>tion (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	226	340	
==>tion (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	226	340	
==>tion (args) {
    var secs = args[1].toNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6491	6628	
==>ame'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6491	6628	
==>ame'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6491	6628	
==>ame'} =~ /^__export_/) {
	# XXX - blech.  but a PIL issue.
	("BEGIN{"
	 .$body
	 ."}\n");
    } else {
        ("BEGIN{"
         ."p6_set <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3689	3800	
==>my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3689	3800	
==>my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10377	10493	
==>1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos
  end:
    mob[ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	519	628	
==>}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignat <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	519	628	
==>}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31690	31824	
==>push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31690	31824	
==>push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31690	31824	
==>push @ret, shift @tmp;
        $ret_length++;
    };
    @{$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18844	18973	
==>::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18844	18973	
==>::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18844	18973	
==>::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	405	517	
==>r;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	405	517	
==>r;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Reble <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	405	517	
==>r;

  local $@;

  my $struct = eval $str;
  die "Couldn't parse -CPIL1-Perl5 output: $@\n" if $@;
  Class::Reble <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11961	12070	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $min, $max, $data) = @_;
    my $self = ble <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19419	19515	
==>tead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19419	19515	
==>tead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4985	5091	
==>ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_sin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4985	5091	
==>ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_sin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4985	5091	
==>ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_sin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1297	1438	
==>version
                    (\w+\+\S+) $ # authority
                /smx;

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11209	11421	
==>:emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7491	7703	
==>:emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8325	8537	
==>:emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2824	2930	
==>n_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2824	2930	
==>n_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2824	2930	
==>n_pugs("-CPIL1-Perl5", @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	944	1143	
==>eop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	945	1144	
==>eop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23678	23824	
==>'suspend',
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11655	11754	
==>stances, themselves does Role since they
are just instances of Class which does Role too. So this me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11655	11754	
==>stances, themselves does Role since they
are just instances of Class which does Role too. So this me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11655	11754	
==>stances, themselves does Role since they
are just instances of Class which does Role too. So this me <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1590	1708	
==>02 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Versi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1590	1708	
==>02 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Versi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1956	2067	
==>l
     util/testgraph.pl     - Generates an HTML summary of a YAML test run
     util/run-smome.pl     - automat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2040	2175	
==>shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2040	2175	
==>shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2040	2175	
==>shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	608	721	
==>=~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	608	721	
==>=~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	608	721	
==>=~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip PIL2JS <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3699	3810	
==>dy;");

	return $symbol;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	# all thun <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	11	107	
==>pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	11	107	
==>pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1763	2016	
==>s of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::E <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1763	2016	
==>s of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::E <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5510	5674	
==>$s .= 
                            "    |  exp '$op->{name}' exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3552	3658	
==>\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3552	3658	
==>\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3085	3186	
==>tmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3085	3186	
==>tmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17530	17673	
==>nfess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17530	17673	
==>nfess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17530	17673	
==>nfess "Method ($label) not found for " . $opts{for} . " ($self)";   
            # store the dispatcher state
            {
                no w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8300	8475	
==>tch::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                nex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4660	4835	
==>tch::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                nex <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5509	5684	
==>tch::str( $prefix );
            $id     = match::str( $id );
            $block  = match::str( $block );
            my @args;
            for ( @$list ) {
                nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5999	6104	
==>_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5999	6104	
==>_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5999	6104	
==>_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initialization of g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2165	2271	
==>x.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2165	2271	
==>x.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2165	2271	
==>x.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4291	4425	
==>( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4431	4565	
==>( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15577	15674	
==>l is an
error (for example, attempting to store Kanji in a Byte uplifted to an LChar).

Attempting <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	173	274	
==>./Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	173	274	
==>./Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::In <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	173	274	
==>./Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::In <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15410	15508	
==>his is, and by extension
what kinds of attributes or relative Nodes it can have, as well as where
a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42983	43081	
==>COMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Relation> for the majority of references. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15410	15508	
==>his is, and by extension
what kinds of attributes or relative Nodes it can have, as well as where
a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3601	3698	
==>name = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3601	3698	
==>name = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3601	3698	
==>name = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1278	1391	
==>r %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1278	1391	
==>r %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1278	1391	
==>r %s = PIL2JS.new_empty_class(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	431	540	
==>> [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	425	534	
==>> [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20970	21085	
==>ject(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17391	17506	
==>ject(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5038	5137	
==>rm:
  my $tokenCat = $$token{syncat};
  $position = $operator->to();
  goto oper_shift if ( $tokenCa <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2153	2265	
==>=> 'â',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2153	2265	
==>=> 'â',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11889	11974	
==>pen], brackets(Open,Close), p6_oct_chars(R), [Close].
p6_oct_chars(R) --> octdigits_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2753	2855	
==>xec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2753	2855	
==>xec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2753	2855	
==>xec pwd("runjs.pl"), @args, "-e", $src;
} else {
  warn "# @ARGV\n";
  exec pwd("..", "..", "pugs"), @A <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18379	18485	
==>->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	586	706	
==>_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	586	706	
==>_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	586	706	
==>_pil_macro
       p6_declare_class
       p6_create_instance
       p6_apply
       p6_package_init
       p6_return_macr <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	730	835	
==>e or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($smoke =~ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	820	909	
==>he Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	820	909	
==>he Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10491	10601	
==>report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push $.resu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2334	2434	
==>elf: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    meth <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2334	2434	
==>elf: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9503	9625	
==>urn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9503	9625	
==>urn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9503	9625	
==>urn $current_class;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1836	1935	
==>=~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseCl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1836	1935	
==>=~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseCl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1836	1935	
==>=~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseCl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2374	2492	
==>$::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2374	2492	
==>$::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2374	2492	
==>$::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3899	4019	
==>by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unsh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3899	4019	
==>by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unsh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3899	4019	
==>by
# "-" and the contents of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unsh <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	730	833	
==>ecv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	730	833	
==>ecv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	606	698	
==>her API> for general information.

=head2 Constructor options

With no options, Cipher::Caesa <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	606	698	
==>her API> for general information.

=head2 Constructor options

With no options, Cipher::Caesa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	590	724	
==>'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	795	929	
==>'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	851	985	
==>'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4981	5104	
==>ha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4981	5104	
==>ha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => ch <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20058	20143	
==>tE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly acces <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20058	20143	
==>tE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly acces <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16464	16644	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16743	16923	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21109	21225	
==>se_,$module) is builtin is unsafe {
  my sub opRequire() { 
    $use_
      ?? Pugs::Internals::use($module)
      !! <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1154	1290	
==>requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1154	1290	
==>requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	330	448	
==>pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	330	448	
==>pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	330	448	
==>pair = pairs[i].FETCH();

      // my %hash = ("a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5652	5776	
==>0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5652	5776	
==>0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5652	5776	
==>0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7946	8081	
==>only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the pa <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7946	8081	
==>only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3319	3419	
==>::Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH(': <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	932	1041	
==>ed;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/ <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	932	1041	
==>ed;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7468	7565	
==>TIONS]
    --output-file=FILE, -o  Store results in FILE [default: $Config{"output-file"}]
    --d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12633	12763	
==>tkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12633	12763	
==>tkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12633	12763	
==>tkey {
    my ( $this ) = @_;
    keys %{$this->{hashref}};  # force reset the iterator
    each %{$this->{hashref}};
}
sub nextkey <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2466	2564	
==>_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2466	2564	
==>_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2466	2564	
==>_method('is_method_stub' => ::make_method(sub {
    my ($self, $label) = @_;
    blessed(::opaque_i <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1210	1332	
==>me}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath( <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1210	1332	
==>me}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	714	879	
==>d"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13743	13844	
==>, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13743	13844	
==>, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => - <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5386	5519	
==>ix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abst <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5904	6016	
==>ix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abst <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4660	4753	
==>new(0) if $left->length->not_equal_to($right->length) == bit->new(1);
    foreach my $i (map { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	899	1026	
==>$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	899	1026	
==>$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	899	1026	
==>$x}.charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10582	10708	
==>'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10582	10708	
==>'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10582	10708	
==>'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we dont actually need to go there
            # if what w <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3727	3838	
==>odule the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3727	3838	
==>odule the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5251	5362	
==>odule the test file themselves ...

  use My::Test::Module;

  plan('no_plan');
  # or
  plan :tests<20>;

  ok( <==
3	/Users/nnunley/pugs/util/func_refact.pl	1096	1217	
==>, $_) for keys %ccset;
        print "doUnion: initial set size is " . scalar(keys %ccset) . "\n";

        print "\nFindi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2070	2174	
==>pec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/t <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2070	2174	
==>pec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29427	29536	
==>}, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29427	29536	
==>}, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29427	29536	
==>}, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1782	1920	
==>p->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1782	1920	
==>p->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1782	1920	
==>p->value );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17986	18214	
==>?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17986	18214	
==>?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17986	18214	
==>?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the n <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1437	1596	
==>>{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each % <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8579	8685	
==>/\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8579	8685	
==>/\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2539	2664	
==>uto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2539	2664	
==>uto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3537	3680	
==>y bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3537	3680	
==>y bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3537	3680	
==>y bind()
            'id' =>       sub { _('$:cell')->{id} },  

            'undefine' => sub { _('$:cell')->{v}->clear },

            'tieabl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	58	153	
==>rl5;
use base qw(Pugs::Compiler::Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
our <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	278	371	
==>RG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <AR <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	278	371	
==>RG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <AR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	891	997	
==>ithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	891	997	
==>ithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	891	997	
==>ithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, counting (but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16845	16978	
==>y $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $see <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16845	16978	
==>y $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $see <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16845	16978	
==>y $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $see <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3713	3853	
==>uct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Could not <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	631	727	
==>ective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::s <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	631	727	
==>ective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14323	14465	
==>sting multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14323	14465	
==>sting multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14323	14465	
==>sting multisub, ".( scalar @{ _('@.subs') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	852	964	
==>de $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	852	964	
==>de $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	852	964	
==>de $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub inf <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7993	8110	
==>fined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8051	8168	
==>fined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	47	148	
==>Rule::VERSION = '0.06';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4225	4519	
==>ot_nil
                      ->and(
                          block->new($e, sub {
                              my $e = shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5121	5261	
==>se },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5121	5261	
==>se },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12871	12999	
==>ot exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12871	12999	
==>ot exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contig <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12871	12999	
==>ot exposed here,
            # they are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contig <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2673	2791	
==>re so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2673	2791	
==>re so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2673	2791	
==>re so we don\'t set .flatten_me of caller\'s
      // original array.
      var array = [].concat(thing);

      array. <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2639	2764	
==>id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.val <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2639	2764	
==>id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9696	9811	
==>.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9696	9811	
==>.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9696	9811	
==>.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3097	3198	
==>::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3097	3198	
==>::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elem <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3097	3198	
==>::Inf ) {
        $idx->push( Perl6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7677	7771	
==>m => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), captu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9605	9699	
==>m => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), captu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7665	7759	
==>m => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), captu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36289	36389	
==>ce of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: tail

=head2 suspend

Fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3042	3148	
==>bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3042	3148	
==>bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3042	3148	
==>bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3142	3240	
==>d to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the param <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3142	3240	
==>d to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1127	1235	
==>un}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1127	1235	
==>un}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", bod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1127	1235	
==>un}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", bod <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	477	636	
==>lues %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        map { "$_ => $_[0]{$_}" } keys %{ $_[0] };
    }

    package Node <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	488	637	
==>lume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	488	637	
==>lume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3357	3483	
==>t});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3357	3483	
==>t});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3357	3483	
==>t});
  my $path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4924	5061	
==>a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4924	5061	
==>a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4924	5061	
==>a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1953	2073	
==>r) = Text::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1875	1992	
==>r) = Text::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22925	23015	
==>,T).

%----------------------------------------------------------------------

rmSomewhere( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5888	5999	
==>SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callcha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5888	5999	
==>SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callcha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5888	5999	
==>SUBLIKE == PIL::SUBPRIM ? () : '$!',
      !$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callcha <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	657	756	
==>utput( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	657	756	
==>utput( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22541	22636	
==>ovides a partial implementation, in the form of several
roles, for a Relation data type that cor <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11616	11711	
==>/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accept <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11616	11711	
==>/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accept <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	354	543	
==>us_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	354	543	
==>us_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5677	5798	
==>f (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5677	5798	
==>f (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5677	5798	
==>f (ref($body) eq 'HASH') {
        $new_role->roles($body->{does}) if exists $body->{does};        
        if ($body->{at <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1342	1441	
==>s($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@items) ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1342	1441	
==>s($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@items) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8993	9128	
==>..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8993	9128	
==>..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8993	9128	
==>..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item => <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3561	3654	
==>a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3561	3654	
==>a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

= <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13638	13908	
==>tat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before any test output arrived\n";
                $t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5137	5263	
==>$num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5137	5263	
==>$num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8929	9039	
==>my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8616	8724	
==>my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14785	14892	
==>, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, \$how);
  });

  # space POSIX <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19814	19910	
==>capabilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resou <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19814	19910	
==>capabilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resou <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2091	2202	
==>($file)      unless $self->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	156	376	
==>ernation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	157	377	
==>ernation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9682	9815	
==>mber(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9682	9815	
==>mber(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9682	9815	
==>mber(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.length == 0) P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2541	2646	
==>pile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2541	2646	
==>pile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2541	2646	
==>pile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12393	12514	
==>'is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12393	12514	
==>'is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12393	12514	
==>'is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	193	305	
==>PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	193	305	
==>PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	193	305	
==>PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5070	5174	
==>mand_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5070	5174	
==>mand_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5070	5174	
==>mand_e {
  my $js = eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6773	6898	
==>ch(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6773	6898	
==>ch(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6773	6898	
==>ch(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14907	15040	
==>( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} eq '++' ||
         $n-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1019	1129	
==>module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of us <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1019	1129	
==>module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4656	4767	
==>:Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4656	4767	
==>:Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4656	4767	
==>:Params and the fixed
    # $self->{pSubBody}.
    my %params_and_body = 
    return bless {
      $self->isa("P <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12115	12227	
==>on_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[0]} },
      scalar_non_numeric => sub { 0 <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1089	1197	
==>ty => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1089	1197	
==>ty => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	791	952	
==>) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	791	952	
==>) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	791	952	
==>) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $post);
}

su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1650	1760	
==>aybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file);
			}
		}
	}
}

1;

__END__

#line <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28609	28705	
==>e any "Template" modules, but it expects you
to make modules having a specific simple API that wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28609	28705	
==>e any "Template" modules, but it expects you
to make modules having a specific simple API that wi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22353	22456	
==>, such that all of its class
and object methods will each return the same result when invoked on the
sam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26905	27008	
==>, such that all of its class
and object methods will each return the same result when invoked on the
sam <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25628	25731	
==>, such that all of its class
and object methods will each return the same result when invoked on the
sam <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4370	4469	
==>~njas/sequences/A001113
}

 multi method Array::delete (@array ; *@indices --> List )
 { ... } # XXX <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9677	9769	
==>HTTP::Response> classes, internal to the
library.

The following methods are available:

=ove <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9677	9769	
==>HTTP::Response> classes, internal to the
library.

The following methods are available:

=ove <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8371	8477	
==>ethod BUILD
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	575	675	
==>ethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	575	675	
==>ethod BUILD
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::B <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4554	4695	
==>-> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        e <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4554	4695	
==>-> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1293	1409	
==>fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1293	1409	
==>fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1293	1409	
==>fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4081	4178	
==>1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4081	4178	
==>1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1526	1685	
==>ditor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{edit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1526	1685	
==>ditor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{edit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1526	1685	
==>ditor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{edit <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5032	5140	
==>self
    ) unless $self->{extensions};

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11390	11482	
==>item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

= <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11390	11482	
==>item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	377	486	
==>ammar::BaseCategory::ws;

sub ast {
    my $match = shift;
    $match .= '';
    # print "Grammar::Expression: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	62	159	
==>rough the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	120	217	
==>rough the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11781	11977	
==>h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11781	11977	
==>h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5519	5624	
==>op> := (print|say|warn|die) <p6ws> <list> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my'} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10014	10215	
==>isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10014	10215	
==>isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10014	10215	
==>isa( $tmp, 'Scalar' ) ) {
                    #warn "creating scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1285	1392	
==>rn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1285	1392	
==>rn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_suppo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1285	1392	
==>rn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_suppo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40012	40133	
==>}, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40012	40133	
==>}, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40012	40133	
==>}, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s = Perl6::Value::numify( $key );
    $this->{array <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6096	6201	
==>child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6096	6201	
==>child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13508	13602	
==>e_NOTBAL (-5)

Sequence (?{...}) not terminated or not {}-balanced

=item RPe_SWNREC (-6)

Swit <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4271	4369	
==>efinition($node, "$type $symbol () {\n\t$body;\n}");
	return $symbol . "()";
}

sub define_val {
	m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28768	28861	
==>members do not match invocant
Relation attribute names, or duplicate any other value set membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33320	33413	
==>members do not match invocant
Relation attribute names, or duplicate any other value set membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4928	5060	
==>( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4928	5060	
==>( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4928	5060	
==>( 0 .. Perl6::Value::numify( $self->elems ) - 1 ) {
        push @a, $self->fetch( $_ );
    }
    # warn "    items: @a\n";
    retu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2198	2358	
==>es
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3563	3711	
==>es
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5688	5794	
==>pen;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5688	5794	
==>pen;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29071	29165	
==>or that returns a new Relation::Example
which is the same as the invocant Relation::Example but <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31919	32013	
==>or that returns a new Relation::Example
which is the same as the invocant Relation::Example but <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32966	33060	
==>or that returns a new Relation::Example
which is the same as the invocant Relation::Example but <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9709	9826	
==>uo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</he <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6804	6919	
==>[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unle <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6816	6931	
==>[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4684	4813	
==>}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4684	4813	
==>}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4684	4813	
==>}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HA <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2212	2313	
==>=> $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_uni <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2212	2313	
==>=> $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_uni <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9178	9357	
==>ve to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9178	9357	
==>ve to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9178	9357	
==>ve to calculate the idx only *once*:
  #   my @a  = (1,2,3,4);
  #   my $z := @a[-1];
  #   say $z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5842	5968	
==>{
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5842	5968	
==>{
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5842	5968	
==>{
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@ar <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	843	976	
==>e);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rul <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	843	976	
==>e);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rul <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10640	10740	
==>eturn reverse(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
print <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6428	6570	
==>nts and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6428	6570	
==>nts and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	302	409	
==>,
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('&infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18407	18561	
==>h'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18407	18561	
==>h'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'stor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18407	18561	
==>h'   || $method eq 'unshift' || $method eq 'store' ) {
                    #warn "STORING THINGS $method @param";
                    if ( $method eq 'stor <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	418	528	
==>re are fundamental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../l <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15303	15399	
==>tp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19461	19557	
==>tp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1182	1280	
==>t: ./t_index)
    --test_dirs     Directories containing the tests (Default: take tests from ./test <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1750	1846	
==>s parameters at least C<rate of information> in
items per second and C<burst size> in items.

=cu <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1750	1846	
==>s parameters at least C<rate of information> in
items per second and C<burst size> in items.

=cu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	579	777	
==>shift;
                $self->get_value('%:slots');
            },
            hash_store => sub {
                my $self = shift;
                my $hash = shift;
                $self->set_value <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6377	6476	
==>the rule, which unsets the flag before returning.

- this can also be used to do fail() and assert() <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6171	6269	
==>the rule, which unsets the flag before returning.
- this can also be used to do fail() and assert() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	71	190	
==>IVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = De <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	71	190	
==>IVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = De <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	71	190	
==>IVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    require Devel::Symdump;
    my $obj = De <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9062	9191	
==>an";
      }
  
      $.output.write( $.testplan.header() );
  }
  
  method ok returns Bit ( $self: Bit $passed, Str $description <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1202	1319	
==>an";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1202	1319	
==>an";
    }

    $.output.write( $.testplan.header() );
}

method ok returns Bit ( $self: Bit $passed, Str $description <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8923	9076	
==>return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8923	9076	
==>return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8923	9076	
==>return Str->new( '$.unboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26407	26499	
==>the corresponding projection of
each tuple), but that any duplicates following the projection <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30959	31051	
==>the corresponding projection of
each tuple), but that any duplicates following the projection <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29961	30053	
==>the corresponding projection of
each tuple), but that any duplicates following the projection <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8857	8965	
==>miter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Ar <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3745	3841	
==>returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3745	3841	
==>returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20862	21096	
==>ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21141	21375	
==>ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11100	11195	
==>thod new (opaque $class: hash %params) returns opaque {
    $class.bless(undef, %params // hash( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	398	488	
==>piler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	398	488	
==>piler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12752	12961	
==>(
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $cl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12752	12961	
==>(
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $cl <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10192	10325	
==>$meta->{provides} || ();
    }      
}


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# E <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4822	4931	
==>pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pIn <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4822	4931	
==>pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pIn <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1728	1837	
==>pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pIn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1050	1163	
==>e for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10732	10829	
==>nce to an array
of strings for a multi-valued field. If the $value is undefined or not
given, then <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10732	10829	
==>nce to an array
of strings for a multi-valued field. If the $value is undefined or not
given, then <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18203	18361	
==>args[$ai];
            $ai++;
        }

        given $specifier {
            when any(<c d u o x b i>) {
                $str ~= Pugs::Internals::sprintf($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6025	6133	
==>->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6025	6133	
==>->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6025	6133	
==>->bind_function( name => 'printWithoutNewline',
		      func => sub { print encode "utf-8", "@_" });

  my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16402	16525	
==>s, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16402	16525	
==>s, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm <==
3	/Users/nnunley/pugs/util/package-osx.pl	6753	6850	
==>Overview::Subroutine.3pm
        /usr/local/man/man3/Perl6::Overview::Variable.3
        /usr/loca <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1949	2090	
==>P::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1949	2090	
==>P::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3619	3730	
==>turn 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq 0);
	return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34859	34981	
==>ffset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34859	34981	
==>ffset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34859	34981	
==>ffset, $length, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset leng <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24772	24868	
==>.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation's body. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29324	29420	
==>.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation's body. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15603	15704	
==>x->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15603	15704	
==>x->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB pre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15603	15704	
==>x->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->values };
MULTI SUB pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3146	3256	
==>.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3146	3256	
==>.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3146	3256	
==>.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub coro_cc {
  my ($coro_id, $lvalue, @v <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10585	10684	
==>e)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package Fo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18670	18764	
==>_nodes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18670	18764	
==>_nodes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2689	2801	
==>$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2689	2801	
==>$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2689	2801	
==>$instance->{attrs}}); 
        $instance->{attrs}->{$label} = $value;       
        lock_keys(%{$instance->{attr <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10500	10636	
==>filename => catdir $start_dir, 
                     'util','catalog_tmpl','code.tmpl');  
  $template->param("file" => $file);
  my $out <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7109	7212	
==>od content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7109	7212	
==>od content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($sel <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1262	1361	
==>ng the two of them "n" is confusing.
macro Clutter::num_size($n) {
  'subset num'~$n~'     of ValueT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	26	118	
==>::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	26	118	
==>::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Comp <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15758	15860	
==>symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $no <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2155	2257	
==>symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $no <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13854	13969	
==>_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  descr  => "Creating direc <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18538	18632	
==>t officially is not and you should not share
Rosetta objects between multiple threads, nor have <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18538	18632	
==>t officially is not and you should not share
Rosetta objects between multiple threads, nor have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7081	7219	
==>ft;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7081	7219	
==>ft;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7081	7219	
==>ft;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	942	1044	
==>ngleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	942	1044	
==>ngleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1022	1124	
==>ngleton with a controlled object
my $tb_output = Test::Builder::Tester::Output.new();
my $tb_test   = T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6537	6644	
==>>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6537	6644	
==>>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9	108	
==>ugs::Runtime::Rule;

=for About

Original file: pX/Common/iterator_engine.pl - fglock

Old doc <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	801	890	
==>ile contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullP <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	801	890	
==>ile contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullP <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14400	14588	
==>onstant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14679	14867	
==>onstant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3374	3490	
==>};
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croak "no regex defined" u <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1243	1347	
==>sif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28095	28192	
==>C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not ye <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32647	32744	
==>C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not ye <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3358	3464	
==>ule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscop <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3358	3464	
==>ule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscop <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1798	1926	
==>te($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1798	1926	
==>te($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1798	1926	
==>te($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3966	4126	
==>ready exists in this repository");
        return;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta,
                    f <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27396	27493	
==>st all be set when the object is constructed.  If you want to
conceptually change an existing Mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27396	27493	
==>st all be set when the object is constructed.  If you want to
conceptually change an existing Mess <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	672	765	
==>put (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to writ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	672	765	
==>put (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to writ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1228	1321	
==>put (test results and
descriptions).

=item B<$.error_output>

The filehandle to which to writ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4062	4164	
==>ix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4062	4164	
==>ix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4062	4164	
==>ix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return continuation ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14697	14806	
==>p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14697	14806	
==>p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14697	14806	
==>p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = sub {};
      re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9300	9432	
==>n "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9300	9432	
==>n "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9300	9432	
==>n "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16020	16119	
==>ass->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16020	16119	
==>ass->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16020	16119	
==>ass->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9609	9732	
==>ts, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9609	9732	
==>ts, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9609	9732	
==>ts, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $ma <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	114	206	
==>OM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	114	206	
==>OM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5252	5367	
==>se utf8; use Error qw(:try); $p5";
}

NODE PIL_Environment ($pilGlob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	723	822	
==>module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class sup <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	723	822	
==>module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class sup <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4391	4480	
==>6_bool {$_[0]?1:undef}
sub p6_bit {$_[0]?1:0}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0]} <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	731	847	
==>die "Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'">]+)/) {
            dump_file(di <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	938	1052	
==>expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLAS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	938	1052	
==>expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLAS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19673	19853	
==>::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19952	20132	
==>::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27925	28029	
==>"----\n";

my $r = rx(' +|([0-9]+|\\+|-)');
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5358	5534	
==>urn $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5358	5534	
==>urn $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1756	1878	
==>to &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        return if $label =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4834	4987	
==>ype->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4834	4987	
==>ype->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4834	4987	
==>ype->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($_[0]) eq 'Dispatc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	742	847	
==>= substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	742	847	
==>= substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9261	9360	
==>quence>
}
rule SingleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\'\\]> #Sour <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3909	4008	
==>"do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3909	4008	
==>"do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3909	4008	
==>"do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   statement_control:<unless> ($xx0,$xx <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3676	3824	
==>s[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3676	3824	
==>s[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14025	14130	
==>p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14025	14130	
==>p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14025	14130	
==>p6_from_b(0) };
MULTI SUB end ($xx) { $xx->end };
MULTI SUB elems ($xx) { $xx->elems };
MULTI SUB graphs ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3623	3733	
==>_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3623	3733	
==>_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3623	3733	
==>_[0]\"></script>" };

    my $html = <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
  "h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12516	12627	
==>$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12516	12627	
==>$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12516	12627	
==>$array\" can't be autovivified to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Ha <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1715	1843	
==>], "Val" }

    package Seq;
    use base 'Node';

    package Prim;
    use base qw/Map/;

    package Stub;
    use base qw/Uni <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11569	11679	
==>bug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11569	11679	
==>bug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./: <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1366	1519	
==>.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1366	1519	
==>.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	61	151	
==>ngs;
#use Pugs::Compiler::Rule;
use Pugs::Compiler::Regex;
use base qw(Pugs::Grammar::Base) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2358	2650	
==>(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            Ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1420	1538	
==>nt(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1420	1538	
==>nt(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1420	1538	
==>nt(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1725	1834	
==>::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1725	1834	
==>::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1725	1834	
==>::inline('(
    function (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4369	4480	
==>:stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4369	4480	
==>:stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4369	4480	
==>:stringify($param{slice})."\n";
    bless { %param }, $class;
} 
sub Perl6::Slice::clone { 
    my $self = shift <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	434	549	
==>head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12803	12898	
==>~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12861	12956	
==>~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4436	4549	
==>{ 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_l <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4436	4549	
==>{ 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38954	39079	
==>n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38954	39079	
==>n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->po <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38954	39079	
==>n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift },
            cend =>   sub { $ret->po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8935	9041	
==>) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8935	9041	
==>) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8935	9041	
==>) {...};
MULTI SUB prefix:<\\> ($xx) { p6_new(Ref => $xx) };
# MULTI SUB postfix:<...> ($xx) {...}; # in Pr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5796	6028	
==>yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        ret <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5796	6028	
==>yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17335	17430	
==>eir new() method directly, you can only call it through an object that
inherits from that class. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8800	8900	
==>my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8800	8900	
==>my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8800	8900	
==>my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2210	2304	
==>abel) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2210	2304	
==>abel) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2210	2304	
==>abel) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_meth <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5447	5556	
==>eturn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5447	5556	
==>eturn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	158	263	
==>n;
use Pugs::Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $rul = '[a|b](b)c';
my $rpc_rule  = P <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24043	24136	
==>ional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28595	28688	
==>ional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27426	27519	
==>ional named parameters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2242	2353	
==>> sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2242	2353	
==>> sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2242	2353	
==>> sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_except_top => sub {my($o,$s)=@_; $s =~ s/^( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21788	22019	
==>ROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44695	44926	
==>ROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4915	5026	
==>ler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4915	5026	
==>ler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $ <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	133	252	
==>my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	133	252	
==>my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1393	1490	
==>d1 DESCRIPTION

This module provides an implementation for Perl 6 regexes that use the "Perl5" s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	259	361	
==>_->mk_accessors(qw/runtime cache env/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	703	799	
==>VariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	703	799	
==>VariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1211	1331	
==>} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1211	1331	
==>} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2558	2661	
==>:Grammar::Base';\n" .
            "use Pugs::Runtime::Match::Ratchet; # overload doesn't work without th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1764	1964	
==>leop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2348	2444	
==>q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2348	2444	
==>q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3119	3251	
==>= "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    rule $equal { " .
            emit_per <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1180	1294	
==>y, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.densit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1180	1294	
==>y, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.densit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1001	1102	
==>) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1001	1102	
==>) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1001	1102	
==>) {
    warn "*** [TODO] PUGS_SAFEMODE not implemented ***\n";
}

$timeout = defined $timeout ? $timeo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3886	3991	
==>->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: repor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3886	3991	
==>->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: repor <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4476	4581	
==>->named_slurpy) {
	$self->named_slurpy->slurpy_bind($named_arg, $lv, $pad);
    }
    else {
	# XXX: repor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3616	3720	
==>unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3616	3720	
==>unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3616	3720	
==>unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6012	6154	
==>operties (A and B) to group the dists
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equa <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	957	1054	
==>Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, li <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	957	1054	
==>Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35785	35912	
==>d=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35785	35912	
==>d=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35785	35912	
==>d=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class->from_list <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1485	1582	
==>ring(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1485	1582	
==>ring(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1485	1582	
==>ring(a) <= String(b)",
  "infix:«ge»",   2, "S", "String(a) >= String(b)",
  "infix:«eq»",   2 <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5012	5228	
==>event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5012	5228	
==>event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2168	2301	
==>ss
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2373	2506	
==>ss
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2498	2631	
==>ss
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27836	27969	
==>y a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32388	32521	
==>y a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31480	31613	
==>y a calculation using original attribute values as
inputs.  As a trivial case, if C<$attrs> is empty, the output relation is
identical <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	212	324	
==>Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * N <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	212	324	
==>Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * N <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	212	324	
==>Fixed elems(), buckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5844	5995	
==>( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5844	5995	
==>( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5844	5995	
==>( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13318	13457	
==>tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9504	9643	
==>tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10340	10479	
==>tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1421	1531	
==>.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1421	1531	
==>.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1421	1531	
==>.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5755	5998	
==>$s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_tem <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4523	4631	
==>member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    r <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4523	4631	
==>member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40392	40496	
==>rn $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40392	40496	
==>rn $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40392	40496	
==>rn $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unbox <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10012	10110	
==>ing through the set, and for querying 
set properties.

Note that all set functions may end up bein <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10012	10110	
==>ing through the set, and for querying 
set properties.

Note that all set functions may end up bein <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3770	3861	
==>1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3770	3861	
==>1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3770	3861	
==>1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS< <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8170	8315	
==>ush(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8170	8315	
==>ush(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8170	8315	
==>ush(m);
    #        g_to = regexp.lastIndex - 1;
    #        match = regexp.exec(string);
    #      }
    #      var g_str = string.substring(g <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2522	2679	
==>type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2522	2679	
==>type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9014	9128	
==>0]") if $cc;
    return $S->object(exact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_flag('i' =>  sub { 0x0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7889	8058	
==>to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7889	8058	
==>to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7889	8058	
==>to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
} <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	263	363	
==>in Perl 5
my Welt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufruf einer einfachen Met <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3550	3640	
==>This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3550	3640	
==>This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentatio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6649	6751	
==>This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detai <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6649	6751	
==>This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8846	8948	
==>This also overrides two methods.

=over 4

=item B<report returns Str>

This handles the specific detai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22482	22593	
==>ee op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22482	22593	
==>ee op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22482	22593	
==>ee op1
# IO::print - see op1
MULTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3611	3771	
==>_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3611	3771	
==>_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3611	3771	
==>_[0]{supertype}{match}( \$_[1] )
                );
        ref($_[1]) ? 
            $_[0]{match}( $_[1] ) : 
            $_[0]{match}( \$_[1] )
    }     
}

{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9874	9989	
==>t = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9874	9989	
==>t = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30332	30426	
==>POS-->) and returns false, to
pretend it didn't actually match.  The real closing parenthesis h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4316	4427	
==>s("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4316	4427	
==>s("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4316	4427	
==>s("--yaml-dump", \$pil) };
  print $OUT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	821	954	
==>lass,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	821	954	
==>lass,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	821	954	
==>lass,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});  
        lock_keys(%{$instance->{at <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19466	19562	
==>rly in the tree.  Fixed.

Standard escapes (C<\a>, C<\e>, etc.) were being returned as I<exact>
n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7218	7330	
==>oin ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7218	7330	
==>oin ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7218	7330	
==>oin ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_B <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	569	703	
==>$target = $matchObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( n <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2251	2346	
==>erl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2251	2346	
==>erl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	281	375	
==>ESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	281	375	
==>ESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15293	15399	
==>,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unkno <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2544	2638	
==>dax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed and <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2544	2638	
==>dax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3914	4072	
==>$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3914	4072	
==>$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3914	4072	
==>$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9142	9248	
==>rgs = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9142	9248	
==>rgs = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9142	9248	
==>rgs = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14419	14594	
==>) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14419	14594	
==>) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14419	14594	
==>) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Arra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6027	6127	
==>ng, it doesnt parse.
multi method Array::as_seq (@array:) returns List {
    *@array
}
# name from do <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1421	1510	
==>->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1421	1510	
==>->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3742	3838	
==>.0';
}

=pod

=head2 JIB::Utils->_whoami

Returns the name of the subroutine you're currently in. <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15625	15717	
==>ping from all characters to the corresponding entities
(and vice versa, respectively).

=head <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15625	15717	
==>ping from all characters to the corresponding entities
(and vice versa, respectively).

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2047	2199	
==>sh @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2047	2199	
==>sh @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2047	2199	
==>sh @start, $tmp;
        last if $tmp == -&Inf;
    }
    $tmp = Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	333	497	
==>rom_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	333	497	
==>rom_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	333	497	
==>rom_a
       p6_from_l
       p6_from_x
       p6_undef
       p6_defined
       p6_die
       p6_set
       p6_bind
       p6_var_macro
       p6_var
       p6_root <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	982	1108	
==>tion__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	982	1108	
==>tion__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	982	1108	
==>tion__eval_perl5(str);
        })')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4709	4802	
==>switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4959	5052	
==>switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	278	369	
==>ubdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'repo' );

syst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1182	1299	
==>s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1182	1299	
==>s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1182	1299	
==>s))",
      $key,
      $_[0]->{value}->as_js;
  }
}

# Basic datatypes (VInt, VRat, VStr, VUndef). Important: Box the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	183	311	
==>is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	183	311	
==>is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method p <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	13	107	
==>.pm 250 2003-09-11 15:57:29Z andy $

package Test::Harness::Assert;

use strict;
require Export <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1579	1692	
==>compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1579	1692	
==>compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1579	1692	
==>compile-only"     => \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&us <==
3	/Users/nnunley/pugs/util/config_h.pl	1335	1445	
==>f ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n";
    war <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4390	4488	
==>aptures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4390	4488	
==>aptures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	228	329	
==>uckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	228	329	
==>uckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	228	329	
==>uckets() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Pe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14407	14534	
==>w_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14407	14534	
==>w_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1242	1361	
==>.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    ret <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12117	12232	
==>!= ">" goto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = iscapture
    if isca <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5481	5574	
==>code or response headers
(like 'Content-Type') when you are accessing the web using this
funct <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5481	5574	
==>code or response headers
(like 'Content-Type') when you are accessing the web using this
funct <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9965	10111	
==>ant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10244	10390	
==>ant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15276	15396	
==>hift;
    $self->{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16979	17069	
==>B Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16979	17069	
==>B Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16979	17069	
==>B Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($xx) {. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3018	3147	
==>(:node<Junction>),
                        Tree.new(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>), <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5028	5129	
==>internal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5028	5129	
==>internal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	943	1062	
==>unshift @rv, _recurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $ent <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3458	3567	
==>0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3458	3567	
==>0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2746	2852	
==>mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2746	2852	
==>mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2746	2852	
==>mini);

  return $js;
}

sub precomp_module_to_mini_js {
  my $pil = eval { run_pugs("-CPIL1-Perl5", @_, "- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1043	1142	
==>$.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1043	1142	
==>$.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1590	1689	
==>$.expect>

The number of tests expected to run.

=back

=head1 METHODS

=over 4

=item B<header retu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1503	1611	
==>to created '$builddir/$archive' from '$srcdir'\n"
        ;

    chdir $Cwd or die "Could not chdir back to ' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	760	862	
==>st_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	818	920	
==>st_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	496	594	
==>syche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	496	594	
==>syche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	496	594	
==>syche is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13508	13659	
==>ay whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13508	13659	
==>ay whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13508	13659	
==>ay whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19663	19757	
==>ck
effectively acts as a C<no> statement for any compile sections in
that block. C<use> stateme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12872	12966	
==>g> for the explanations of the messages.

These are all constants in the F<Regexp::Parser> pack <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19663	19757	
==>ck
effectively acts as a C<no> statement for any compile sections in
that block. C<use> stateme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1286	1381	
==>PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1286	1381	
==>PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1286	1381	
==>PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9422	9523	
==>ript">//<![CDATA[[
    function toggle_visibility (id) {
      var elem     = document.getElementById( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6772	6871	
==>ML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6772	6871	
==>ML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1220	1328	
==>itter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (spli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1220	1328	
==>itter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (spli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1220	1328	
==>itter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1232	1324	
==>oncerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1232	1324	
==>oncerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1232	1324	
==>oncerning Roles and $?ROLE'

$::Role = $::Class->new();

$::Role->superclasses([ $::Module ]) <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3555	3657	
==>pan1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns b <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3555	3657	
==>pan1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6341	6494	
==>he DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this me <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6341	6494	
==>he DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this me <==
3	/Users/nnunley/pugs/util/package-osx.pl	5357	5454	
==>Perl6::Doc.3pm
        /usr/local/man/man3/Perl6::FAQ::Capture.3
        /usr/local/man/man3/Perl6 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2756	2881	
==>ependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parse <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3220	3345	
==>ependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	466	589	
==>%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Sc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	466	589	
==>%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Sc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	466	589	
==>%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Sc <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	779	908	
==>me'";
        $prompt .= " ($abstract)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $self->prompt($promp <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10820	10941	
==>x
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10820	10941	
==>x
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	640	761	
==>?) \s* $/x && do {
            my($key, $val) = ($1, $2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4494	4602	
==>with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4506	4614	
==>with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12653	12823	
==>( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12653	12823	
==>( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12653	12823	
==>( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_;
                #warn " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13253	13382	
==>h{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13253	13382	
==>h{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3518	3664	
==>es
    -e            # Convert one-liner
    -s            # List supported features
    -d            # Dump debugging information
    p5_source.p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18337	18428	
==>mploy appropriate measures
such as system-managed locks so that resource corruption or appli <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18337	18428	
==>mploy appropriate measures
such as system-managed locks so that resource corruption or appli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4729	4866	
==>";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4729	4866	
==>";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4729	4866	
==>";
  print $fh $html                or die "Couldn't write to \"$cfg{output}\": $!\n";
  close $fh                      or die "Couldn't c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9289	9442	
==>)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9289	9442	
==>)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36647	36745	
==>e
invocant.  Another trivial case is where any any source relation has zero
tuples, in which case t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41196	41294	
==>e
invocant.  Another trivial case is where any any source relation has zero
tuples, in which case t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40819	40917	
==>e
invocant.  Another trivial case is where any any source relation has zero
tuples, in which case t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20929	21022	
==>rm) third party Engines will likely just map
Rosetta's rigorously defined API onto a pre-exist <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20929	21022	
==>rm) third party Engines will likely just map
Rosetta's rigorously defined API onto a pre-exist <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20091	20182	
==>ernals::use_perl5_module_noimp := &PIL2JS::Internals::use_perl5_module_imp;


# In src/perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1774	1894	
==>e "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5251	5371	
==>e "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4181	4301	
==>e "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$heading?; the header of a t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10713	10881	
==>$servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $cur <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10713	10881	
==>$servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $cur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6141	6326	
==>'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6141	6326	
==>'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6141	6326	
==>'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scal <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4100	4275	
==>meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or return;              

    File::Copy::copy( $pkg->file, $se <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12962	13052	
==>eyedText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12962	13052	
==>eyedText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10182	10304	
==>ead = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10182	10304	
==>ead = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3878	4000	
==>y $self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_versio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10048	10170	
==>my $cond = shift @{ $ifthen->{data} };
      $ifthen->{data} = [ [ @{ $ifthen->{data} } ], $cond ];
      $rx->{tree} = $if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	76	176	
==>des;

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	41	140	
==>des;
sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	retu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10884	11005	
==>f.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10884	11005	
==>f.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3150	3306	
==>("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3150	3306	
==>("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7040	7156	
==>or( Params::Check->last_error ), return;

=pod
    
    my @list        = LoadFile( $Available ); 
    my @uninstalle <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4366	4467	
==>ve( from => $file|$dir, to => $target );

Moves a file or directory to the target.

Returns true on su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21530	21621	
==>e bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21530	21621	
==>e bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	778	894	
==>pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	778	894	
==>pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	778	894	
==>pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support for lazy sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	312	412	
==>.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	312	412	
==>.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	312	412	
==>.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5025	5132	
==>gs = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5025	5132	
==>gs = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5025	5132	
==>gs = PIL2JS.make_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1827	1939	
==>>name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1827	1939	
==>>name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1827	1939	
==>>name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $def  = sprintf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7872	7993	
==>y = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7872	7993	
==>y = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7872	7993	
==>y = mk_magicalarray();
        var arr    = new PIL2JS.Box([]).STORE(n).FETCH();

        for(var i = 0; i < arr.length; i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8889	8997	
==>x:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8889	8997	
==>x:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8889	8997	
==>x:<,>;
our &pair := &infix:<,>;  # XXX wrong

sub circumfix:<[]>(*@xs is rw) is primitive { my @copy; @copy = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	292	419	
==>jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	292	419	
==>jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	292	419	
==>jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS => $jssm
    };
    bless $self,$class;
    $sel <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28068	28165	
==>_PERL_SWITCHES>

Its value will be prepended to the switches used to invoke perl on
each test.  Fo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3574	3691	
==>eturn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4423	4540	
==>eturn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1935	2049	
==>print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eval { requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3029	3153	
==>::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3029	3153	
==>::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3029	3153	
==>::EigenClass->new('$:name' => 'EigenClass[' . 
                            ($self->can('name') ? $self->name : $self->class-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	572	672	
==>$depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	572	672	
==>$depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	572	672	
==>$depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name}) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4193	4286	
==>e_list');

is($Object->id, 2, '... $Object is the second id');
is($Object->class, $Class, '... <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1590	1681	
==>ker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1590	1681	
==>ker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2326	2459	
==>ecomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2326	2459	
==>ecomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2326	2459	
==>ecomp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32615	32712	
==>inary union()
operator, and the order of its arguments is not significant to the result;
the new R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37165	37262	
==>inary union()
operator, and the order of its arguments is not significant to the result;
the new R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36473	36570	
==>inary union()
operator, and the order of its arguments is not significant to the result;
the new R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4540	4636	
==><<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4540	4636	
==><<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4540	4636	
==><<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to JavaScript.

Usage: pil2js.pl [op <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21490	21586	
==>s, but another package or program which uses yours may wish to
override some of your messages, sh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21490	21586	
==>s, but another package or program which uses yours may wish to
override some of your messages, sh <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2356	2456	
==>as been implemented at all, at all.
# A couple of others I don't remember at the moment but should be <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17705	17803	
==>mation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17705	17803	
==>mation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2881	2982	
==>lf->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	912	1013	
==>lf->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	838	948	
==>L-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remov <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	838	948	
==>L-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remov <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	838	948	
==>L-Run - %a = { a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remov <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5178	5279	
==>nd.\n";
-f $rev  or die "error: file '$rev' not found.\n";
-f $mid  or die "error: file '$mid' not fou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1284	1391	
==>tr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1284	1391	
==>tr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1284	1391	
==>tr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($method) eq 'Perl6::ClassMet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8586	8689	
==>.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8586	8689	
==>.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8586	8689	
==>.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)',
  }->{$sigil};
}

# Doublequotes an input strin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4506	4603	
==>positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PAC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4506	4603	
==>positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PAC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5096	5193	
==>positional args

    return;
}

package Data::Bind::Param;
use base 'Class::Accessor::Fast';
__PAC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22380	22522	
==>_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22380	22522	
==>_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22380	22522	
==>_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splice( @xxa );
};
# sort - see op1
# IO::say - see op1
# IO::print - see op1
MULTI SUB BU <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25829	25941	
==>her testing will not make sense,
the script dies with this message.

=back

=head1 ENVIRONMENT

=over 4

=item C< <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21694	21785	
==>e
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To further <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21694	21785	
==>e
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To further <==
3	/Users/nnunley/pugs/util/package-osx.pl	7143	7253	
==>/Perl6::Pugs.3
        /usr/local/man/man3/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Spec.3
        /u <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	7	106	
==>Duration;

has Date $.start;
has Date $.end;

has Num $.length;

method add($self: Duration $duratio <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12654	12747	
==>code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function take <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12712	12805	
==>code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function take <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	572	703	
==>::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	588	719	
==>::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	564	695	
==>::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2395	2494	
==>thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2395	2494	
==>thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2395	2494	
==>thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc( <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2025	2240	
==>vent_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2025	2240	
==>vent_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1580	1674	
==>Ts are the implementation classes of all the L<Blondie::Nodes> and some
more objects.

They pro <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2132	2238	
==>ays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $of <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2132	2238	
==>ays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $of <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25279	25397	
==>::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25558	25676	
==>::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::ter <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9832	9946	
==>") if $is_vms && !/^\"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    }
}

sub _create_runperl { # Create the stri <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5657	5792	
==>check if we're the 'prefered' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	280	388	
==>method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	280	388	
==>method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cip <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8992	9145	
==>CHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $pr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8992	9145	
==>CHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3190	3311	
==>",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3190	3311	
==>",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3190	3311	
==>",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math. <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1798	1915	
==>ndextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	975	1090	
==>ndextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1448	1563	
==>ndextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14298	14442	
==>e() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17775	17919	
==>e() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17191	17335	
==>e() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples ca <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9930	10060	
==>als_m",%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4235	4346	
==>eturn($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4235	4346	
==>eturn($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4235	4346	
==>eturn($body);
  \}";

  # XXX! minor hack. See the end of Prelude::JS for explanation.
  my $args  = $arity == 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2294	2373	
==>fix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2294	2373	
==>fix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2294	2373	
==>fix_meta_operator:|postfix_prefix_meta_operator:|prefix_postfix_meta_operator:|i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4502	4641	
==>mpile( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compile( q(
            { return { nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2925	3037	
==>. $opt->{assoc} if $opt->{fixity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels}} ) {
        if ( gre <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3811	3911	
==>n the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of th <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3811	3911	
==>n the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of th <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1000	1259	
==>b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=he <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1000	1259	
==>b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=he <==
3	/Users/nnunley/pugs/util/grokprims.pl	1917	2049	
==>";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\$$a0$name";
  } elsif (/special/ and $arity == 1) {
    $example = "$name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4243	4376	
==>} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4243	4376	
==>} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4243	4376	
==>} }

  sub fixup {
    my $self = shift;

    die if     ref $self->type;
    die unless ref($self->params) eq "ARRAY";

    bless $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	113	215	
==>s (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	113	215	
==>s (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	113	215	
==>s (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6144	6351	
==>$key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6144	6351	
==>$key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6144	6351	
==>$key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value );
                    push @pairs, $p->str->unboxed;
                    $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1004	1139	
==>r i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1004	1139	
==>r i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1004	1139	
==>r i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3112	3218	
==>ype = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3112	3218	
==>ype = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3112	3218	
==>ype = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($type eq 'SCALAR') {
		$rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3809	3930	
==>ch;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3809	3930	
==>ch;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3809	3930	
==>ch;
    };
  } elsif $nth {
    my %mods_altered = %mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1554	1655	
==>ey.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1554	1655	
==>ey.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	311	416	
==>ctice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	311	416	
==>ctice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Header <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	646	791	
==>d die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13453	13586	
==>st;\n" .
                #"    my \$perl5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    print \"p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	928	1061	
==>d die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8461	8628	
==>[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub befo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8461	8628	
==>[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub befo <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	787	899	
==>, "code", "Str");

# corresponding reverse attributes
#has Meta::Assoc @.rev_assocs;   # of assocs

method new($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2672	2772	
==>E} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2672	2772	
==>E} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2672	2772	
==>E} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17090	17190	
==>B rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17090	17190	
==>B rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17090	17190	
==>B rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MU <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	792	969	
==>tor;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	792	969	
==>tor;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1979	2114	
==>perl_version == 6;
    $self->makemaker_args->{MAN3PODS} = {} if $perl_version == 6;
    $self->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASE <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	313	430	
==>sert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	313	430	
==>sert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set i <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	879	984	
==>|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, ($k,@array[$k]) ) if $k ~~ any(@indextests) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11992	12099	
==>ut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11992	12099	
==>ut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11992	12099	
==>ut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@ii <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	28	126	
==>-----------------------------------------
# This script converts p5 source to p6. Currently,
# only <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28470	28562	
==>butes are being combined/wrapped, with
its keys being the new tuple-valued attribute names an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33022	33114	
==>butes are being combined/wrapped, with
its keys being the new tuple-valued attribute names an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32150	32242	
==>butes are being combined/wrapped, with
its keys being the new tuple-valued attribute names an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9452	9572	
==>warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9452	9572	
==>warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9452	9572	
==>warn "entering sub ".$self->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12367	12536	
==>{
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $pat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12367	12536	
==>{
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $pat <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	397	502	
==>aram $other) {
    ...
}

method &infix:«<»($self, Perl::Param $other) {
    ...
}

# maybe something li <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	514	644	
==>NOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (a <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	514	644	
==>NOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	310	409	
==>}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Root::one <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	310	409	
==>}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Root::one <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	310	409	
==>}

our &infix:<|> = &JS::Root::any;
our &infix:<&> = &JS::Root::all;
our &infix:<^> = &JS::Root::one <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13450	13571	
==>d} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13450	13571	
==>d} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	485	626	
==>put.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pug <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	485	626	
==>put.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pug <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3653	3739	
==>ied(X), p6_concatenation_more(conc(W,X), Z), !.
p6_concatenation_more(W, W) --> {true}. <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3234	3351	
==>e_re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } @{ $Config{exclude} };
    $Config{exclu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1692	1788	
==>s_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1692	1788	
==>s_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2289	2410	
==>$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2577	2670	
==>eturn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3532	3625	
==>eturn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2257	2372	
==>e {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2257	2372	
==>e {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2257	2372	
==>e {
  JS::inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2461	2567	
==>->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2461	2567	
==>->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2461	2567	
==>->{pVal}->[0];
    } elsif(defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1500	1593	
==>ethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1500	1593	
==>ethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_node <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	671	779	
==>$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$hos <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	638	746	
==>$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$hos <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3570	3676	
==>ckgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3570	3676	
==>ckgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	14	110	
==>den weiterhin mit # eingeleitet:

#!\begin{block}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2569	2687	
==>ng () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6046	6164	
==>ng () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!bo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4976	5094	
==>ng () returns Set of Str {
    return $!heading;
}

method body () returns Set of Mapping(Str) of Any {
    return $!bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2949	3066	
==>==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2949	3066	
==>==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2949	3066	
==>==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1971	2068	
==>up (lex only) or a dynamic lookup. 



This object-serialization format is shared across all runti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1897	1992	
==>up (lex only) or a dynamic lookup. 

This object-serialization format is shared across all runti <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3507	3601	
==>but F<t/waterloo.t>.  It failed 10 of 20 tests and
exited with non-zero status indicating somet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3848	3956	
==>he 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3848	3956	
==>he 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3848	3956	
==>he 1, not the pair (a => 1). As this is
# partly a bug/oddity in Perl 6's design and it's too early to implem <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	881	1041	
==>>{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	851	942	
==>r for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.1 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	851	942	
==>r for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.1 <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6860	6966	
==>g for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $pugs_version;
step
  descr  => "Queryin <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16332	16429	
==>he media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16332	16429	
==>he media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9483	9616	
==>s->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9483	9616	
==>s->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, star <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9483	9616	
==>s->unboxed."\n";
            my $max_ary_elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, star <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	33	161	
==>se warnings;
use Cwd;
use Config();
use File::Spec;
our %Config = %Config::Config;

sub get_config {
    my $config = {
        p <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10442	10541	
==>hich is already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10442	10541	
==>hich is already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3548	3649	
==>S.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3548	3649	
==>S.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3548	3649	
==>S.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Constant(arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5019	5139	
==>s $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5019	5139	
==>s $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5019	5139	
==>s $code.arity == 1;

  my @res;
  for @array -> $item is rw {
    push @res, $item if $code($item);
  }
  @res;
}

method <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4712	4837	
==>ble with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4724	4849	
==>ble with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4743	4845	
==>'>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4743	4845	
==>'>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6940	7042	
==>'>

This parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Tes <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11630	11778	
==>turn;

    my $alt; 
    my @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	974	1100	
==>my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	974	1100	
==>my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7342	7514	
==>w( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7342	7514	
==>w( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7342	7514	
==>w( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Valu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2371	2474	
==>_equiv => $reduced_struct);
}

sub can_reduce {
	my $self = shift;
	my $node = shift;
	Scalar::Util::ble <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4557	4659	
==>bject.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for th <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4557	4659	
==>bject.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11188	11333	
==>=>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11188	11333	
==>=>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11188	11333	
==>=>     $ret->{cstringify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6781	6909	
==>ndef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6781	6909	
==>ndef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6781	6909	
==>ndef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) { return new PIL2JS.Rul(matcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	167	267	
==>ap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	167	267	
==>ap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	167	267	
==>ap;

use Devel::Caller qw(caller_cv caller_args);
use B ();

# XXX: Make sig take storage directly
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1985	2084	
==>MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1985	2084	
==>MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1985	2084	
==>MM = \$::Class->new('\$:name' => '$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2131	2271	
==>ive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $Re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20922	21016	
==>are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<g <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20922	21016	
==>are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<g <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4437	4544	
==>ame eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4449	4556	
==>ame eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture} <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1176	1315	
==>\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $esc <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1176	1315	
==>\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $esc <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24926	25014	
==>lag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_flag_s(E0,s,E1), !.
set_flag(E0,-s,E1) :- se <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7436	7547	
==>ndent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7448	7559	
==>ndent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6866	6960	
==>on (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6866	6960	
==>on (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6866	6960	
==>on (matcher) { return new PIL2JS.Rul(matcher) })')($matcher);
}


method JS::Root::matcher (Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3486	3604	
==>hod name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3486	3604	
==>hod name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3486	3604	
==>hod name must be a simple string!")
      if $self->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2585	2687	
==>stage (reverse $self->_stages) {
	last if defined $self->{$stage};
	push(@todo,$stage);
    }
    #prin <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32633	32730	
==>ator, and the order of its arguments is not significant to the result;
the new Relation contains a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37183	37280	
==>ator, and the order of its arguments is not significant to the result;
the new Relation contains a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1000	1109	
==>ompile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRI <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1000	1109	
==>ompile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	761	855	
==>ix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incremen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	761	855	
==>ix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incremen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	761	855	
==>ix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi sub infix:<^..^>  ($x0,$x1) { ($x0.incremen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11958	12078	
==>rent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11958	12078	
==>rent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11958	12078	
==>rent_class;
            }
            return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => :: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7931	8029	
==>lled, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7931	8029	
==>lled, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8319	8448	
==>:ENV, 
        closure::signature->new(
            params => closure::params->new(
                        symbol->new("&dispatch <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7051	7154	
==>y ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relati <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7051	7154	
==>y ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relati <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3626	3774	
==>on)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3626	3774	
==>on)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5150	5298	
==>on)
            || $Test.diag("FAILED : $description");        
     }
  }

  # then using our test module the test file themselves ...

  use My::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1916	2081	
==>> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1916	2081	
==>> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1916	2081	
==>> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	378	478	
==>lone'
# * some constructors implement deep cloning
# * functions that don't support deep cloning emit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	378	478	
==>lone'
# * some constructors implement deep cloning
# * functions that don't support deep cloning emit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	378	478	
==>lone'
# * some constructors implement deep cloning
# * functions that don't support deep cloning emit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3354	3466	
==>($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # imple <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3354	3466	
==>($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # imple <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3354	3466	
==>($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB Array::fetch ($a,$i) {
#    # imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3215	3321	
==>kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3215	3321	
==>kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3215	3321	
==>kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "use $1;") : ($_) } @args;

  diag "$cfg{pugs} @arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	44	169	
==>lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	44	169	
==>lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	44	169	
==>lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1268	1441	
==>ata] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink $Control
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14541	14654	
==>ow;
	
	
	my $p_f = $f->left;
	my $ret = $f->right;
	
	my $generic_vars = generic($.fun);

	# if the function is ge <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10490	10670	
==>erl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10490	10670	
==>erl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12197	12297	
==>$from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12197	12297	
==>$from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1898	2007	
==>" . $label->to_native . ") not found in \$::Class " . $class->id->to_native;             
}

$::ENV = Perl6::R <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14618	14736	
==>ls <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14618	14736	
==>ls <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the o <==
3	/Users/nnunley/pugs/util/drift.pl	312	426	
==>*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5601	5732	
==>$matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5601	5732	
==>$matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8301	8418	
==>s = $Strap->analyze_file($tfile) or
          do { warn $Strap->{error}, "\n";  next };

        # state of the curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4646	4756	
==>= @_;

    # Read original module source code instead of taking from filter,
    # because we need all the line <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4646	4756	
==>= @_;

    # Read original module source code instead of taking from filter,
    # because we need all the line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21934	22071	
==>ush @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21934	22071	
==>ush @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21934	22071	
==>ush @classes => $::Object;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DE <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10902	11006	
==>->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, & <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11331	11435	
==>->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, & <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8609	8709	
==>ods{'overlap'};
    my $ex = %mods{'ex'} || %mods{'exhaustive'};
    my $adverbs = join("",map {":"~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11815	12078	
==>spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11815	12078	
==>spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11815	12078	
==>spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34899	35004	
==>s.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocant Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39449	39554	
==>s.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocant Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38982	39087	
==>s.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocant Relati <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	883	1008	
==>ort {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored
        or die "can't match '$iso8601' to ava <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10192	10284	
==>st
concerned with the well-formedness of the input, such as that mandatory
constructor argume <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10192	10284	
==>st
concerned with the well-formedness of the input, such as that mandatory
constructor argume <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10714	10808	
==>RUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

C <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10714	10808	
==>RUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

C <==
3	/Users/nnunley/pugs/inc/Module/Install/Include.pm	80	166	
==>dule/Install/Include.pm"
package Module::Install::Include;
use Module::Install::Base; @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	832	971	
==>$message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1;

__END__

=pod

=h <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2332	2441	
==>urce =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $m <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2332	2441	
==>urce =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1860	1966	
==>iag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1860	1966	
==>iag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1940	2046	
==>iag ( Str $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) retu <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8307	8408	
==>etric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8307	8408	
==>etric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	795	903	
==>f eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	795	903	
==>f eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	795	903	
==>f eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34324	34429	
==>andler for the '&' metacharacter, but now we need to
write the supporting class for the F<Regexp::AndBranc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17663	17760	
==>) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17663	17760	
==>) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17663	17760	
==>) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] ($xx0,$xx1) {...};
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8449	8560	
==>::Output   $.output = Test::Builder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	647	746	
==>::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	647	746	
==>::Output   $.output = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11459	11586	
==>ef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { ${$_[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14440	14550	
==>um $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $firs <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14440	14550	
==>um $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $firs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14750	14886	
==>(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14750	14886	
==>(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14750	14886	
==>(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9295	9459	
==>} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7565	7668	
==>data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLA <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7565	7668	
==>data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6325	6425	
==>Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2607	2721	
==>lf->{errmsg};
}


sub warn {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HER <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17197	17292	
==>e; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
in which <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17197	17292	
==>e; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
in which <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6368	6477	
==>bove, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6368	6477	
==>bove, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6368	6477	
==>bove, the "return" can be changed to
"return '__PRUNE__'". Anything the IO object refers to will not be
visite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10349	10482	
==>turn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10349	10482	
==>turn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10349	10482	
==>turn with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4380	4509	
==>:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4380	4509	
==>:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #pri <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	797	910	
==>res = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22689	22793	
==>_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22689	22793	
==>_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22689	22793	
==>_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index($v0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1729	1892	
==>a_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1729	1892	
==>a_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1729	1892	
==>a_obj => '@:roles'     => []) 
        # we already added this to ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5554	5767	
==>push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5554	5767	
==>push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5554	5767	
==>push( $key );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13358	13469	
==>ource's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16835	16946	
==>ource's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16197	16308	
==>ource's heading, so simplify to a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!head <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1013	1110	
==>es ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC` <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1013	1110	
==>es ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1765	1873	
==>P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1765	1873	
==>P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1765	1873	
==>P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::Param

# T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2559	2698	
==>lid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2559	2698	
==>lid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2559	2698	
==>lid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a native JavaScript func.
    # false but defin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1596	1705	
==>(symbol->new('%:methods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($metho <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17239	17337	
==>at, we can do anything we want with it.
This is perhaps the most flexible place to allocate large d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22339	22437	
==>at, we can do anything we want with it.
This is perhaps the most flexible place to allocate large d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6797	6902	
==>lue from Object singleton/class method');

$Object->add_singleton_method('another_singleton_test_on_object <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	747	845	
==>>get_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	640	730	
==>>get_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	340	456	
==>')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	340	456	
==>')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	340	456	
==>')($self);
}

# XXX waiting for luqui's tuple type:
# method assuming(Code $self: *$args) {
#   return sub (*$new_arg <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1532	1641	
==>:superclasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attributes($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2705	2802	
==>atement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2705	2802	
==>atement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	813	930	
==>ng(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	813	930	
==>ng(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	813	930	
==>ng(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14050	14184	
==>sertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14044	14178	
==>sertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10898	10995	
==>my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10898	10995	
==>my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10898	10995	
==>my $method_table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12299	12465	
==>ch( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12293	12459	
==>ch( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	327	469	
==>b new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, sto <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	811	953	
==>b new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, sto <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	229	367	
==>b new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, sto <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3979	4151	
==>(0 + $_[5]),
                to    => \(0 + $_[5]),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9289	9418	
==>>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9482	9611	
==>>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	242	327	
==>/quickref/rules
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/E05.pod
  ht <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7245	7340	
==>:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may co <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7245	7340	
==>:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1975	2085	
==>ODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1975	2085	
==>ODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1975	2085	
==>ODE/) {
        return _build_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5203	5325	
==>c2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        i <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5203	5325	
==>c2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9784	9909	
==>-----------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementatio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9784	9909	
==>-----------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementatio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9784	9909	
==>-----------    
    # NOTE:
    # I am not sure I need to define these attrs in 
    # the Role it can remain an implementatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	746	860	
==>ke a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other poi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	746	860	
==>ke a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other poi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	746	860	
==>ke a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# The other poi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6252	6373	
==>rn $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6252	6373	
==>rn $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	260	363	
==>py qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'bli <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19396	19492	
==>r localize what text the user
sees, you only have to update said separate resource files, and not <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19396	19492	
==>r localize what text the user
sees, you only have to update said separate resource files, and not <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5630	5726	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4038	4211	
==>{ ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4038	4211	
==>{ ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4038	4211	
==>{ ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->new( '$.unboxed' =>
                                _('$:cell')->{tied <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1142	1279	
==>code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1971	2103	
==>code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2111	2243	
==>code} = eval 
        $self->{perl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6197	6307	
==>"") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6197	6307	
==>"") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6197	6307	
==>"") })')(@things[0]);
  } else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].c <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1815	1920	
==>y;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::to <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1815	1920	
==>y;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::to <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14103	14200	
==>g many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [

=it <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2466	2593	
==>ath first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2466	2593	
==>ath first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16034	16145	
==>ame $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16034	16145	
==>ame $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33505	33623	
==>$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33505	33623	
==>$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33505	33623	
==>$array->{items}} = @tmp;
    # warn "ret @ret ; array @tmp ";
    return ( $ret_length, @ret );
}

sub elems {
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32687	32852	
==>::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32687	32852	
==>::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32687	32852	
==>::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	368	505	
==>is to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	357	484	
==>is to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1, <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19580	19686	
==>t
my $app_to_str = fun(
	param => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => ty <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3605	3743	
==>Z0-9_]+)(\s?)/&syn($1,$2,$3)/gme;
#    # comments
#    $file =~ s/#(.*)$/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	15	117	
==>ST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	15	117	
==>ST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6240	6333	
==>JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6240	6333	
==>JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6240	6333	
==>JS.coro_entrypoints[%d]) {
  PIL2JS.coro_entrypoints[%d] = initial_entrypoint;
}

PIL2JS.coro_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10254	10402	
==>diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10254	10402	
==>diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10254	10402	
==>diff > 0;
            }
            #warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on sli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	378	484	
==>ne->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	378	484	
==>ne->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	378	484	
==>ne->new("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome t <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4024	4166	
==>@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	701	827	
==>ess \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dump <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	694	820	
==>ess \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dump <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	585	732	
==>on
                    (\w+\+\S+) $ # authority
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for:

    JIB:: <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	212	336	
==>') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	212	336	
==>') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2665	2762	
==>elow 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not sure... I think Pugs::Compi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2567	2660	
==>elow 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not sure... I think Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6141	6245	
==>self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblin <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6141	6245	
==>self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblin <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5504	5640	
==>, s => $a_file);
}

sub build_exe {
    my $version     = shift;
    my $ghc         = shift;
    my $ghc_version = shift;
    #my @o = q <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	333	433	
==>BYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NA <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	333	433	
==>BYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37689	37790	
==>mon tuple values
are aligned and merged.  The heading of the new relation is the union of
all the head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42238	42339	
==>mon tuple values
are aligned and merged.  The heading of the new relation is the union of
all the head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41888	41989	
==>mon tuple values
are aligned and merged.  The heading of the new relation is the union of
all the head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	239	362	
==>able, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	239	362	
==>able, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	239	362	
==>able, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8298	8385	
==>();
}

#======================================================================

use Find <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8298	8385	
==>();
}

#======================================================================

use Find <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8298	8385	
==>();
}

#======================================================================

use Find <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	164	283	
==>orbei();  }
	when /grrr+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_dazw <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1248	1349	
==>(Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) & <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1248	1349	
==>(Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	802	912	
==>@{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	802	912	
==>@{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	802	912	
==>@{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = @_;
    $depth ||= 0;
    $self->{_stack}->[$de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	664	763	
==>otstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	664	763	
==>otstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	664	763	
==>otstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ----------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3233	3323	
==>=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3233	3323	
==>=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1238	1429	
==>$id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1238	1429	
==>$id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1238	1429	
==>$id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4690	4796	
==>"is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4690	4796	
==>"is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4690	4796	
==>"is primitive";
  $eval ~= "
    $type $name ($args$colon) $trait \{
      JS::inline('($jsbody)').($args_) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8637	8752	
==>]); 
    print $fh $template->output();
    close $fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2857	2962	
==>nt {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "de <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2857	2962	
==>nt {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "de <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2356	2469	
==>cast,
					type => [ "Type" => "Type" => $to ],
				),
			),
			$node,
			( map { $class->build_indirect_typed_val <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1198	1292	
==>> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1198	1292	
==>> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3980	4101	
==>or hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3980	4101	
==>or hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3980	4101	
==>or hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12471	12613	
==>, $ok, $.number, $description );
      }
  
      method status returns Hash ( $self: ) 
      {
          # XXX - This wants to be $self.SUPER <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2847	2979	
==>, $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2847	2979	
==>, $ok, $.number, $description );
    }

    method status returns Hash ( $self: ) 
    {
        # XXX - This wants to be $self.SUPER <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3141	3250	
==>Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	778	878	
==>osefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibilit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	778	878	
==>osefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibilit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	778	878	
==>osefully *don't* include the cc.
      # Think "next; $other_code" -- $other_code has *no* possibilit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7676	7795	
==>rammar:

    sub new_proto( $match ) {
        return ${$match<category>}.add_op( 
            name => $match<name>, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19193	19285	
==>and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Return <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19193	19285	
==>and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38933	39041	
==>n - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38933	39041	
==>n - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38933	39041	
==>n - add shift_n, pop_n closures
    return Perl6::Value::List->new(
            cstart => sub { $ret->shift } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3170	3274	
==>/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
us <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35083	35181	
==>the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<expor <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35083	35181	
==>the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<expor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2564	2715	
==>my $c (unpack("U*", $x)) {
                if ($c > 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escape{$ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19355	19450	
==>tExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpressionNoIn>
}

# A.4 Statements

ru <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	572	666	
==>ter:: is a package for macros declared and used locally.
Helpers:: is for more generally useful <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2296	2441	
==>bel} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2296	2441	
==>bel} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3859	3956	
==>tions )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule syn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4043	4140	
==>tions )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule syn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2881	3150	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2881	3150	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Ros <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2155	2294	
==>);

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->bundles) {
        push @$dir, map <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1146	1335	
==>xy accessors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38629	38744	
==>l6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38629	38744	
==>l6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38629	38744	
==>l6::Value::List' ) ? $_->reverse : 
            $_
        } @rev;
    return Perl6::Container::Array->from_list( @r <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39457	39604	
==>es'))->values();                                 
            }
        )
    )
);

## ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18378	18477	
==>.

I have found that when it comes to getting the most accurate program text
for users, we still get <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18378	18477	
==>.

I have found that when it comes to getting the most accurate program text
for users, we still get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2118	2239	
==>c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2118	2239	
==>c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2118	2239	
==>c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16386	16497	
==>n 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16386	16497	
==>n 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16386	16497	
==>n 0 + $v;
}
sub to_int        { Perl6::Value::Num::to_int( to_num( $_[0] ) ) }

sub decrement {
    return '' if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	159	260	
==>he matching engine, aiming to generate the same data structure as
the 'ratchet' version.

- It curr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1608	1699	
==>zy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1608	1699	
==>zy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2504	2603	
==>mber(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2504	2603	
==>mber(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2504	2603	
==>mber(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3965	4072	
==>nt ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3965	4072	
==>nt ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	116	207	
==>l6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Perl6::Core::List;
use Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6219	6322	
==>ring {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_emp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6219	6322	
==>ring {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_emp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24060	24148	
==>_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	406	531	
==>n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	406	531	
==>n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	406	531	
==>n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else {
        ();
    }
}

local $PIL::Run::EvalX::bb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20593	20693	
==>'.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20593	20693	
==>'.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20593	20693	
==>'.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5   infix:<//> ($xx0,$xx1) { 'do{my $_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11511	11636	
==>p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11511	11636	
==>p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".j <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11511	11636	
==>p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't see $name in \@INC (".j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4534	4668	
==>d => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4534	4668	
==>d => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4534	4668	
==>d => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2153	2289	
==>E(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2153	2289	
==>E(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$ke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2153	2289	
==>E(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key).uid : undefined;

      // %hash{$ke <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21922	22018	
==>rce
files it should use and in what order they should be consulted.  When
Locale::KeyedText is to <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21922	22018	
==>rce
files it should use and in what order they should be consulted.  When
Locale::KeyedText is to <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5210	5305	
==>e type::operator::pair;
use base qw/type::operator::binary/;

sub symbol { "×" }


package type <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2055	2151	
==>mpress::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1181	1269	
==>e compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1181	1269	
==>e compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7604	7743	
==>g $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7604	7743	
==>g $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7604	7743	
==>g $diff elements";
                $result->push( Perl6::Value::List->from_x( item => undef, count => $diff ) );
            }
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45501	45645	
==>od' => (
    # method label
        symbol->new('name'),
    # method body
        method->new(
            $::ENV,
            method::signature <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12122	12208	
==>er->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12122	12208	
==>er->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7805	7943	
==>$idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11806	11939	
==>$idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11806	11939	
==>$idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29589	29689	
==>s node is omitted from the parse tree.  Certain objects
do not need to appear in the tree, but are ne <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16658	16754	
==>file that comes
with this "Rosetta" distribution.

While it is possible that one could write a se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16658	16754	
==>file that comes
with this "Rosetta" distribution.

While it is possible that one could write a se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9726	9821	
==>r;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9726	9821	
==>r;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9726	9821	
==>r;  
}));

$::Class->add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14613	14750	
==>Sub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14613	14750	
==>Sub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14613	14750	
==>Sub';
            },
        },
    },
};

class1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	81	197	
==>local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	81	197	
==>local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	81	197	
==>local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{pCxt} eq "TCxtVoid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1026	1142	
==>NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1026	1142	
==>NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1026	1142	
==>NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pF <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13382	13495	
==>ject    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13382	13495	
==>ject    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1698	1802	
==>e::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Bl <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1701	1890	
==>$all_the_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, w <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	389	489	
==>ce
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference ope <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	389	489	
==>ce
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference ope <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1787	1890	
==>s) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1845	1948	
==>s) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	142	235	
==>::Compiler::Token;
use Pugs::Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $rul = '[a <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2707	2863	
==>new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new('$x'),
                Sym->new('$x'),
                S <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6003	6126	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i], se <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6393	6516	
==>{
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i], se <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6378	6488	
==>rub_uri => $grub_local };

step
  descr  => "Fetching kernel from \"$kernel_uri\"",
  help   => "Remove \"$kern <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6389	6485	
==>s)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6389	6485	
==>s)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	352	455	
==>uts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') } <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	352	455	
==>uts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') } <==
3	/Users/nnunley/pugs/util/version_h.pl	553	654	
==>r questions when it has a STDIN and there is
# no repository.  Since we don't need a STDIN anyway, get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20434	20534	
==>xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20434	20534	
==>xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20434	20534	
==>xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14743	14845	
==>omplain->("numeric") },
      non_numeric => sub { $as_hash_complain->("non_numeric") },
      scalar_n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8443	8544	
==>and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8443	8544	
==>and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($even <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10590	10714	
==>{

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14067	14191	
==>{

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13366	13490	
==>{

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( $ot <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12316	12453	
==>$v, "\\$v") }
        }

        $v .= $1 while ${&Rx} =~ m{ \G ([0-7]) }xgc;
        return $S->object(exact => chr oct $v, sprintf("\\%0 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5137	5267	
==>!= Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5137	5267	
==>!= Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	197	298	
==>:Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	197	298	
==>:Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	197	298	
==>:Param::str
#
# 2005-08-22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11535	11652	
==>ELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @source <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15012	15129	
==>ELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @source <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1751	1867	
==>ess ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args without sett <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1269	1388	
==>ype";            
    $self->[$index->to_native] = $value;
    return nil->new();
}

sub remove {
    my ($self, $index) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	196	307	
==>{ '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is expor <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	196	307	
==>{ '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is expor <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1885	2070	
==>mpl, \%hash ) 
                        or error( Params::Check->last_error ), return;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor obje <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1953	2078	
==>->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1953	2078	
==>->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11010	11151	
==>d_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11010	11151	
==>d_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11010	11151	
==>d_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::C <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9480	9589	
==>t this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9480	9589	
==>t this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	396	504	
==>";
    bless \$value => $class;
}

sub to_native { shift }

# conversion to other native types
sub to_num { n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12914	13036	
==>_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exists $args{switches} && grep m/^-T$/, @{$a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5871	5986	
==>__hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5871	5986	
==>__hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5871	5986	
==>__hyper (Code $op, Array @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3407	3569	
==>');
            _('$.output')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17614	17708	
==>er modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17614	17708	
==>er modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has th <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2312	2427	
==>ng more likely to work.

Further, the above method always uses a starting guess which is half
the target.  This does <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2403	2508	
==>$1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o" <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2403	2508	
==>$1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30445	30539	
==>ion in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34996	35090	
==>ion in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34178	34272	
==>ion in the argument C<$transformer> is invoked for each
original tuple/Mapping in turn, which i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11887	12002	
==>$runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the test itself i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	196	292	
==>used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONST <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	196	292	
==>used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONST <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2247	2361	
==>ead1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2247	2361	
==>ead1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request met <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2153	2251	
==>rl6 equivalent for:

    $path

field name: $name
osname: $config->{osname}

Please notify the main <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10857	10948	
==>ld potentially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Clas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10857	10948	
==>ld potentially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Clas <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14273	14373	
==>ugh a continuous span, because the "separation" 
between values would be very close to zero:

    $it <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14273	14373	
==>ugh a continuous span, because the "separation" 
between values would be very close to zero:

    $it <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	141	235	
==>ntable/;
use Scalar::Util qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
use Blondie::Typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2487	2604	
==>utothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2487	2604	
==>utothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2487	2604	
==>utothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_retcc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5686	5793	
==>y();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5686	5793	
==>y();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5686	5793	
==>y();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS::JSP <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2300	2392	
==>se Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2389	2481	
==>se Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4121	4212	
==>ailed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$faile <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	995	1094	
==>$inv->id->to_native . " => class: " . $inv->class->id->to_native;
    # we take the MRO first, howev <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24570	24663	
==>es are private, so you must use accessor methods.
Locale::KeyedText does not declare any subro <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24570	24663	
==>es are private, so you must use accessor methods.
Locale::KeyedText does not declare any subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1452	1551	
==>dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1452	1551	
==>dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1452	1551	
==>dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run::ApiX; # for p6_to_s() p6_mai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9834	9953	
==>::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9828	9947	
==>::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$matc <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17704	17819	
==>set(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1906	2032	
==>{ $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_typ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1906	2032	
==>{ $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	773	883	
==>a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	773	883	
==>a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	773	883	
==>a, Code $b) is primitive { defined($a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a ! <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3044	3199	
==>m', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3055	3210	
==>m', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10859	10954	
==>f !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method($namestr".
		 "=> ::make_${k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	647	773	
==>}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	647	773	
==>}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	647	773	
==>}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	270	379	
==>y not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	270	379	
==>y not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	270	379	
==>y not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    var old_exportList = J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9475	9615	
==>elf->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9475	9615	
==>elf->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9475	9615	
==>elf->name;   
                my ($ret) = $self->body->( $self, @arguments );  # @_ = self + raw arguments
                # warn "RETURN $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2982	3134	
==>]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2982	3134	
==>]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2982	3134	
==>]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2066	2170	
==>e::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2066	2170	
==>e::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/pa <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17667	17762	
==>pair,
	param => val(v => "foo", t => type::operator::nullary->new("str")),
);

# the polymorphic <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15005	15124	
==>t '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0
    goto end
  numeric:
    (mob, $P0, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9206	9316	
==>d the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_lea <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9206	9316	
==>d the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_lea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1705	1822	
==>primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1705	1822	
==>primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1705	1822	
==>primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10541	10666	
==>t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10541	10666	
==>t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10541	10666	
==>t  
            'isa' => sub { 
                return 1 if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16684	16807	
==>::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16963	17086	
==>::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{cap <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	878	972	
==>--------------------



our $re_sigil = '[\$\@\%]';
our $re_symbol = '\w[\w\d]*';
our $re_condi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15885	16009	
==>hift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15885	16009	
==>hift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15885	16009	
==>hift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5832	5930	
==>IL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5832	5930	
==>IL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5832	5930	
==>IL2JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2306	2413	
==>bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2306	2413	
==>bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2653	2760	
==>bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5182	5348	
==>_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some m <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5182	5348	
==>_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2223	2330	
==>e_scope {
    my $self = shift;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params} = [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6451	6563	
==>nce_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6451	6563	
==>nce_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6451	6563	
==>nce_attr\(\$\:\:SELF, \'$1\'\)\}/g;            
    
    $method_source =~ s/\$\?SELF/\$\:\:SELF/g;
    $method_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8018	8149	
==>as                         @:results;
  
  method new ( Test::Builder $Class: $plan?, $output? )
  {
      return $:singleton //= $C <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6038	6131	
==>e->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", opt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5829	5921	
==>e->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", opt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5738	5837	
==>* name => $category_name - the name of this category 
(a namespace or a Grammar name).

=item * oper <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	945	1038	
==>rypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	945	1038	
==>rypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1581	1682	
==>ribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1581	1682	
==>ribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1581	1682	
==>ribute_spec($key);
    }
}));

## instance methods

$::Object->add_method('BUILDALL' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	230	332	
==>ts) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be prov <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	230	332	
==>ts) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be prov <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	230	332	
==>ts) - tieable, readonly
# - Removed methods: .set_tieable(), .access()
#   These functions will be prov <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1465	1579	
==>else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) retur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1465	1579	
==>else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1439	1560	
==>attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1439	1560	
==>attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1439	1560	
==>attr_name));
        }  
        elsif ($token eq 'is') {
            my $current_class = $self->env->get('current_class') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	828	946	
==>just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	828	946	
==>just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	828	946	
==>just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	405	529	
==>, $File::Find::name =~ /\.pm\z/i }, 'lib');

    if (@modules == 1) {
        eval {
            $self->version(ExtUtils::MM_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	21	115	
==>her::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	21	115	
==>her::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17366	17461	
==>s->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17366	17461	
==>s->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17366	17461	
==>s->add_attribute('%:class_methods'    => ::make_attribute('%:class_methods'));

## Now we make C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1759	1856	
==>c} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1759	1856	
==>c} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist y <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1759	1856	
==>c} and -s $PIL2JS::cfg{preludepc}) {
  warn << '.';
*** Precompiled Prelude for JS doesn't exist y <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6961	7173	
==>ELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10438	10650	
==>ELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9557	9769	
==>ELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Rel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	437	628	
==>hift;
            $self->set_value('%:slots', {});
        },
        methods => {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots') <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7123	7223	
==>$kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7123	7223	
==>$kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2036	2147	
==>omponents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2036	2147	
==>omponents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2036	2147	
==>omponents;
  # unshift @input, ($link eq "html" ? "~" : "") . guess_jsprelude_path();

  @input = map {
    /^(~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6603	6723	
==>flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6603	6723	
==>flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6603	6723	
==>flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript RegExp syntax <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12182	12293	
==>imalDigits>
}
rule HexIntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIn <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1493	1595	
==>:Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert lo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1493	1595	
==>:Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert lo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5463	5575	
==>N($pStmts);
}
NODE PPad ($pScope, $pSyms, $pStmts) {
    my(@vars);
    for (@$pSyms) {
	my($var)=@$_;
        pu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	281	400	
==>} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:P <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	281	400	
==>} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15	134	
==>package Regexp::Parser::__object__;  

  sub class {
    my $self = shift;
    Carp::carp("class() deprecated; use famil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9905	10056	
==>it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6246	6397	
==>it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7095	7246	
==>it all depends on the is-parsed rule (TimToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1023	1118	
==>essing objects that it finds along the way into new
namespaces. This is typically useful when yo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1023	1118	
==>essing objects that it finds along the way into new
namespaces. This is typically useful when yo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1023	1118	
==>essing objects that it finds along the way into new
namespaces. This is typically useful when yo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9800	9935	
==>titutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6141	6276	
==>titutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6990	7125	
==>titutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all depends on the is-parsed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	921	1017	
==>head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	921	1017	
==>head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	921	1017	
==>head1 DESCRIPTION

Class::Rebless takes a Perl data structure and recurses through its
hierarchy, <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11335	11447	
==>INC unless @inc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	70	163	
==>n Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub ) <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	70	163	
==>n Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub ) <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2452	2565	
==>EARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22771	22867	
==>ften a template will
choose to show less than all of the available details depending on the
inten <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22771	22867	
==>ften a template will
choose to show less than all of the available details depending on the
inten <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5229	5347	
==>ush @termStack, $operator;

  expect_oper:
  goto end if ( $position >= $lastPosition );
  my $currentOperatorTable = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	883	984	
==>ule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	883	984	
==>ule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5479	5572	
==>method not_equal (Relation::Example $other!) returns Bool {
    return !$?SELF.equal( $other ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5749	5850	
==>s_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5749	5850	
==>s_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5749	5850	
==>s_infinite()->unboxed;
}
sub Perl6::Slice::elems {
    my $self = shift; 
    $self->{slice}->elems()- <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4969	5087	
==>cn".$code2.";goto \&\$f0}\n";
    #print $code;
    eval($code) || die "$@";
  }   
  sub mk_ignore_this_node {
    my( <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	894	997	
==>($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array) <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	894	997	
==>($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4150	4275	
==>n $self;
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), "]";
  }

  sub visua <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20500	20599	
==>, and lets you arrange the list in order of preference.  When you
open a program, it will search for <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20500	20599	
==>, and lets you arrange the list in order of preference.  When you
open a program, it will search for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9296	9411	
==>Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9296	9411	
==>Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9296	9411	
==>Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_params = $::SELF->bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38739	38862	
==>st( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38739	38862	
==>st( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38739	38862	
==>st( @rev );
}

sub to_list {
    my $array = shift;
    my $ret = $array->clone;
    # XXX - TODO - optimization - return th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12304	12470	
==>hod report returns Str
      {
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2688	2846	
==>hod report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ' <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2688	2846	
==>hod report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24734	24859	
==>0.1
      <null>
    | <Alternative> <Term>
}
rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifi <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	602	703	
==>roperty is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then pl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	602	703	
==>roperty is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then pl <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	467	588	
==>fig{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebin   => $Config{s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	173	284	
==>:Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	246	357	
==>:Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($p <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4517	4697	
==>sa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push($closure->do());      
        }
    }    
    return $list;
}

1;

__END__

=pod

=he <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5088	5219	
==>@body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( In <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5088	5219	
==>@body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33995	34124	
==>:List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33995	34124	
==>:List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33995	34124	
==>:List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5871	5966	
==>t actually enciphers the data.  They may choose, however, to override 
any method for speed--alt <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5871	5966	
==>t actually enciphers the data.  They may choose, however, to override 
any method for speed--alt <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7097	7206	
==>r_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    goto end
  err_close:
    parse_error(m <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13689	13786	
==>that needs to
be sorted out before you can continue.

It is also possible to use the `force_todo() <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13747	13844	
==>that needs to
be sorted out before you can continue.

It is also possible to use the `force_todo() <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6880	6989	
==>er in the Unicode category "Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	305	412	
==>:Rule::Perl5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $sou <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1174	1285	
==>ne () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) / <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1174	1285	
==>ne () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) / <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	358	455	
==>dups} = Set::Object->new;

    $self->reduce($program);

	$self->{dups}->members;
}

sub generic_r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1789	1888	
==>ost
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        forea <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10018	10115	
==>res are
added to Pugs, new test functions will be defined to facilitate the
testing of those featu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10076	10173	
==>res are
added to Pugs, new test functions will be defined to facilitate the
testing of those featu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10511	10668	
==>m = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join("," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10511	10668	
==>m = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join("," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10511	10668	
==>m = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join("," <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17219	17325	
==>('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17219	17325	
==>('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17219	17325	
==>('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37234	37364	
==>('!' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've add <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3541	3669	
==>name, @mess);
}

sub isnt ($$@) {
    my ($got, $isnt, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $isnt <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24647	24731	
==>N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modifiers(Ex,M,E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	583	694	
==>ey, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	583	694	
==>ey, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	583	694	
==>ey, Pair.value
#
# 2005-08-18
# * clean-up Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed en <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1486	1614	
==>$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1474	1602	
==>$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16222	16326	
==>ualityExpression :words {  # see 11.9
      <RelationalExpression>
    | <EqualityExpression> <'=='> <Rel <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2634	2737	
==>ments.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2634	2737	
==>ments.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7225	7377	
==>class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7225	7377	
==>class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7225	7377	
==>class or not.
        return bless sub {
            (defined $::CALLER::CLASS                    && 
             $::CALLER::CLASS->[0] == $::CLASS->[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18880	18976	
==>misspelling in your programs and still send the right
thing on the wire.

When setting the referr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18880	18976	
==>misspelling in your programs and still send the right
thing on the wire.

When setting the referr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1271	1384	
==>e();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1262	1368	
==>e();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counte <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	102	200	
==>rch_prim_within( $count ) {
	my @numbers := $prim...$prim+$count :by(2);
	let $prim;
	
	for @number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2966	3126	
==>};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2966	3126	
==>};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2966	3126	
==>};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12047	12145	
==>es = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12047	12145	
==>es = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12047	12145	
==>es = reverse map{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	384	499	
==>ns\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	345	460	
==>ns\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	345	460	
==>ns\n";
	GetOptions(
		"print-program" => \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2548	2680	
==>// Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2548	2680	
==>// Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : er <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2548	2680	
==>// Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : er <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10561	10648	
==>--> "\\h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1399	1500	
==>args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1399	1500	
==>args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1399	1500	
==>args.shift();
    return func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5550	5674	
==>print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5550	5674	
==>print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5550	5674	
==>print F $js; close F; # XXX - debugging output
  my $rc = $jssm->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $j <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25968	26070	
==>plicate attribute names that aren't being renamed.  This method
supports renaming attributes to each ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30520	30622	
==>plicate attribute names that aren't being renamed.  This method
supports renaming attributes to each ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29495	29597	
==>plicate attribute names that aren't being renamed.  This method
supports renaming attributes to each ot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1991	2138	
==>x
                    ? dir($index)
                    : $obj->root->subdir($config->repo_index)
        ));
        $obj->index_file((defined $ind <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6658	6765	
==>multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10135	10242	
==>multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9298	9471	
==>ev = $at;
              $pos += {$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul await <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	882	1008	
==>) { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "no <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	895	1016	
==>) { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	267	394	
==>e {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	267	394	
==>e {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	267	394	
==>e {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17932	18118	
==>thod
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17932	18118	
==>thod
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17932	18118	
==>thod
                    $self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7235	7340	
==>est];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7235	7340	
==>est];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7235	7340	
==>est];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is primitive {
  # XXX copying necessary because PIL2J <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	722	819	
==>)->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	722	819	
==>)->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2118	2222	
==>pe continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - exa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2118	2222	
==>pe continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - exa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2118	2222	
==>pe continuations ?
# TODO - modify constant parameter is an error
# TODO - splat can't be rw
# TODO - exa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1965	2075	
==>r $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>ste <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1965	2075	
==>r $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>ste <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1965	2075	
==>r $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>ste <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8821	8948	
==>ol;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8809	8936	
==>ol;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3792	3911	
==>>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3792	3911	
==>>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 S <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3792	3911	
==>>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctions

=head1 S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4679	4788	
==>turn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4679	4788	
==>turn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        retur <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4679	4788	
==>turn 1 if $self->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	635	751	
==>lf, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	635	751	
==>lf, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	635	751	
==>lf, $idx);
  } else {
    die ".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Arr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20831	20928	
==>->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20831	20928	
==>->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list t <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3562	3680	
==>= Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3562	3680	
==>= Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3102	3256	
==>nation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3102	3256	
==>nation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rul <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	925	1046	
==>t the include file was changed,
    #      so we need to mark as stale some obj files to trigger a rebuild.
    #      The <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16567	16684	
==>E' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16567	16684	
==>E' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16567	16684	
==>E' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || confess "Cannot STORE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4065	4180	
==>s}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4065	4180	
==>s}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4065	4180	
==>s}) {
            foreach my $method_name (keys %{$body->{submethods}}) {
                $new_class->add_method($me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5526	5647	
==>,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5526	5647	
==>,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5526	5647	
==>,string) {

          var mkMatch = function (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2444	2547	
==>))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2444	2547	
==>))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2444	2547	
==>))') : Number(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2663	2789	
==>= $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2663	2789	
==>= $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1079	1198	
==>y that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1079	1198	
==>y that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for mes <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	863	972	
==>_assocs;   # of assocs

method new($class: Str $name) returns Meta::Class {

    $.name = $name;
    return $? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24494	24613	
==>upp;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    my $self = bles <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22977	23069	
==>)>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22977	23069	
==>)>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	177	282	
==>s as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" ha <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	168	269	
==>s as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" ha <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2662	2761	
==>ects since they're copies
	foreach my $entry (@free) {
		my $assigned = $map{$entry->{orig}};
		unle <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	298	406	
==>ck_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Config <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	249	346	
==>ck_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Config <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4127	4232	
==>lue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4127	4232	
==>lue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4127	4232	
==>lue :lvalue { $_[0]->{pLValue}  }
  sub body   :lvalue { $_[0]->{pBody}    }
  sub multi  :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4017	4149	
==>lems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4017	4149	
==>lems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29523	29640	
==>r nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renve <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29523	29640	
==>r nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renve <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	335	444	
==>r nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renve <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12823	12971	
==>::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11502	11648	
==>::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15253	15399	
==>::ENV,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4440	4556	
==>ative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4440	4556	
==>ative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4440	4556	
==>ative(), cc = args.pop();
    cc(PIL2JS.resolve_callervar(1, varname));
  })')($sigil ~ join "::", @parts);
}

sub Pu <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	275	401	
==>$Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	275	401	
==>$Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3915	4029	
==>le =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if $1 eq $self->{dispatch};

        $file = "$self->{path}/$1.pm" <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	542	643	
==>name);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	542	643	
==>name);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	545	651	
==>self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	545	651	
==>self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	545	651	
==>self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->tokenizer->iterator;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2454	2579	
==>cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2454	2579	
==>cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2454	2579	
==>cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        meth <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16688	16801	
==>tr )

Returns the input string after converting each character to it's lowercase
form, if uppercase.


=item lcfir <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	648	735	
==>Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Arra <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	648	735	
==>Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Arra <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3718	3856	
==>nf->archive_ext;
    {   my $data    = $conf->archive_data;
        my $control = $conf->archive_control;
        my $jibdir  = $conf->jib_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9160	9269	
==>set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operat <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9160	9269	
==>set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5221	5362	
==>}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1653	1908	
==>!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5650	5744	
==>et_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set_names  <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5650	5744	
==>et_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set_names  <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4345	4535	
==>:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4345	4535	
==>:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4345	4535	
==>:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6165	6298	
==>r \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6165	6298	
==>r \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6165	6298	
==>r \\"" + %s + "\\" not passed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	650	780	
==>a);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	650	780	
==>a);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	43	144	
==>code, since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an A <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	43	144	
==>code, since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an A <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2331	2429	
==>subtract (x as num) returns num>

=item B<mulitply (x as num) returns num>

=item B<divide (x as nu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1802	1895	
==>read "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>ib <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1802	1895	
==>read "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>ib <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1767	1860	
==>> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-alpha development snapsho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11793	11879	
==>file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11793	11879	
==>file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11793	11879	
==>file(p6_to_s($xx))};
MULTI SUB Pugs::Internals::eval_perl5 ($xx) {p6_from_x(eval(p6_to_ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5562	5712	
==>ify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => c <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5562	5712	
==>ify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1861	1962	
==>ler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1861	1962	
==>ler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1861	1962	
==>ler(sub {
	my ($message, $lineno, $linebuff) = @_;
	die "Error at line: $lineno\nMessage is: $message\ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21967	22077	
==>ssion> <')'> <Statement>
}
rule SwitchStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10300	10397	
==>d and that they are of the correct
container type (eg, hash vs array).  The deferred validations a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10300	10397	
==>d and that they are of the correct
container type (eg, hash vs array).  The deferred validations a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1200	1303	
==>verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1200	1303	
==>verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - . <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1200	1303	
==>verify .ref() and .undefine() implementations
# TODO - .ref() should be inherited from Object
# TODO - . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8453	8543	
==>@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8453	8543	
==>@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8453	8543	
==>@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5545	5641	
==>ur &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5545	5641	
==>ur &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5545	5641	
==>ur &infix:\{\">>$op<<\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#  ";
}

sub infix:{">>+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	124	225	
==>vaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	124	225	
==>vaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	124	225	
==>vaScript code later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13097	13202	
==>rmal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13097	13202	
==>rmal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13097	13202	
==>rmal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12924	13182	
==>@params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12924	13182	
==>@params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12924	13182	
==>@params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $key, $value ) 
                            }
                            $bound_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1597	1719	
==>inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1597	1719	
==>inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  pack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1597	1719	
==>inf"  => "Infinity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15465	15572	
==>( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15465	15572	
==>( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15465	15572	
==>( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4880	5005	
==>on_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4880	5005	
==>on_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4880	5005	
==>on_unacceptable = 0;
	my $dn = $_[0]->SUPER::expand();
	if($EvalX::PStmt::protection_unacceptable) {
	    $dn.";\n";
	} else { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8645	8760	
==>r_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6635	6736	
==>F!_union( $other );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10112	10213	
==>F!_union( $other );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5207	5304	
==>e, $_); }
}

# reading synopses
infest_syns($link_info) unless $no_designdocs;

# Generating index <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	901	1029	
==>=> "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	901	1029	
==>=> "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	901	1029	
==>=> "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3506	3673	
==>:Source') }; 
use constant ISA_JIB_PACKAGE_BINARY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5793	5891	
==>egative value for
# relative seconds and a positive value for epoch based time values.
#sub retry_a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5793	5891	
==>egative value for
# relative seconds and a positive value for epoch based time values.
#sub retry_a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7573	7666	
==>(symbol $label)) returns bit
    ((($self: get_attr (symbol new (%:methods))) exists ($label)) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28542	28645	
==>ed attribute names and each of its values
the set of old attribute names that are being wrapped.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33094	33197	
==>ed attribute names and each of its values
the set of old attribute names that are being wrapped.  This m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32222	32325	
==>ed attribute names and each of its values
the set of old attribute names that are being wrapped.  This m <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2111	2221	
==>sage_err ? 1 : 0);
}

# Input parameters
my $syn_src_dir; # The root directory for perl6 Design POD 
my @t_dirs <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1534	1731	
==>ate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_elemen <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1534	1731	
==>ate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_elemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2241	2359	
==>um;
}


sub errmsg {
  my ($self) = @_;
  return $self->{errmsg};
}


sub errnum {
  my ($self) = @_;
  return $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2961	3070	
==>st );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2961	3070	
==>st );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3041	3150	
==>st );

  test_out( 'not ok 2 - Goodbye' );
  test_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $T <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16936	17057	
==>q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16936	17057	
==>q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12793	12915	
==>o_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12793	12915	
==>o_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12793	12915	
==>o_n($xx) : 1)) };
# say - see op0
# print - see op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1099	1217	
==>n= length \$&; 1 }
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1391	1481	
==>y $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1391	1481	
==>y $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5991	6090	
==>am}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5991	6090	
==>am}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5991	6090	
==>am}{isOptional}) {
      return sprintf <<EOF, $self->jsname, map { PIL::doublequote($_) } $self->na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14230	14327	
==>); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14230	14327	
==>); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14230	14327	
==>); p6_from_n($len) };
MULTI SUB codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	155	304	
==>ce => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	155	304	
==>ce => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	155	304	
==>ce => {
        attrs => [ 
            [ '$.val_bool' => { access => 'rw' } ],
            [ '$.val_string' => { access => 'rw' } ],
            [ '$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5723	5824	
==>ingle method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> metho <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5723	5824	
==>ingle method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7920	8021	
==>ingle method:

=over 4

=item B<status returns Hash>

This method calls the superclass C<status> metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10459	10633	
==>ub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10459	10633	
==>ub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10459	10633	
==>ub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_params(@_); '
                  .$my_args
                  .$body_wrapped
                  .'}');
    if( <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4650	4754	
==>s' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVa <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4650	4754	
==>s' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30097	30196	
==>ecting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this object.  See <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1637	1743	
==>od found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1842	1948	
==>od found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Cla <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11182	11275	
==>ns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11182	11275	
==>ns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24830	24943	
==>r('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21251	21364	
==>r('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4415	4529	
==>' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4415	4529	
==>' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4415	4529	
==>' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	863	979	
==>unt - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	863	979	
==>unt - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	863	979	
==>unt - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1104	1243	
==>sebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1104	1243	
==>sebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38325	38446	
==>@kids) {
      $_ = $self->{rx}->object($type => 1, @$_);
    }

    return join "",
      map($_->qr, @kids),
      map($ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	34	117	
==>--------------------------------------------------------------------------
## attrib <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	34	117	
==>--------------------------------------------------------------------------
## attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19623	19719	
==>a('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19623	19719	
==>a('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19623	19719	
==>a('Perl6::Method'))) {
        return $self->add_singleton_method($1, $value) if $value->isa('Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8658	8802	
==>('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8658	8802	
==>('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8658	8802	
==>('$.a')/_('$.b') ) ) },
            'perl' => sub { $::SELF->str },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1318	1420	
==>OVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->desc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33249	33348	
==>appear in this array until a match for that message is found.  Since a
program or library may wish t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33249	33348	
==>appear in this array until a match for that message is found.  Since a
program or library may wish t <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3578	3678	
==>d /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3578	3678	
==>d /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1872	1966	
==>hen, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair construc <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1872	1966	
==>hen, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair construc <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9324	9480	
==>os += {$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits working <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7359	7456	
==>$!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10836	10933	
==>$!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	701	801	
==>tem ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs defines this as List::kv.  An <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2418	2515	
==>s all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the l <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2418	2515	
==>s all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5647	5785	
==>or globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            preced <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5647	5785	
==>or globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            preced <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2376	2468	
==>lets us assign letters to them

	my @letters = split //, "αβγδεζηθικλμνξοπρ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2046	2174	
==>}

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2046	2174	
==>}

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2046	2174	
==>}

  sub autothread_wrapper {
    my ($self, $body) = @_;
    local $_;

    my $need_for_at;
    my @bools = map {
      !$_->is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	206	309	
==>y($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	206	309	
==>y($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	206	309	
==>y($class)=@_;
    my $jssm = JavaScript::SpiderMonkey->new();
    $jssm->init();
    $jssm->function_set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1662	1777	
==>s[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1662	1777	
==>s[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1662	1777	
==>s[i]);
    }
    var obj = args[0];
    var method = perl_get_method(obj, args.splice(1,1)[0] );

    return method. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4055	4166	
==>the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This par <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4055	4166	
==>the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6252	6363	
==>the C<$description> parameter and setting the passed
parameter to a false value. 

=item C<?$skip = 0>

This par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7333	7525	
==>hod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7333	7525	
==>hod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7333	7525	
==>hod(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5784	5882	
==>IL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5784	5882	
==>IL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5784	5882	
==>IL2JS::JSPM;
  my $rt = JavaScript::Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1134	1283	
==>L gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1134	1283	
==>L gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1134	1283	
==>L gives these extra attributes:
#        is_invocant - ???
#        is_writable 
#        is_lazy   - ???
#        is_lvalue - ???
#
#        Note: pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1537	1660	
==>e->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1537	1660	
==>e->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1537	1660	
==>e->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2578	2684	
==>ef}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2578	2684	
==>ef}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2578	2684	
==>ef}!";
  }
}

method values (Hash|Pair|Array|Junction $self:) {
  if $self.isa("Junction") {
    JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	41	160	
==>ict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	41	160	
==>ict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	41	160	
==>ict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_[0]->{pVarName});
  local $_;

  # XX <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	780	890	
==>if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	975	1129	
==>ut= [ $_[1], $_[2] ] }
        |   exp '^' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '(' exp ')'         { $out= $_[2] }
;

list_left: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2603	2700	
==>le->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if def <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2743	2840	
==>le->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if def <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2042	2215	
==>ly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2042	2215	
==>ly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2042	2215	
==>ly(key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = h <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3303	3447	
==>\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3303	3447	
==>\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	900	1009	
==>ast}{tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	299	407	
==>rowser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $d <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	299	407	
==>rowser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $d <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4091	4222	
==>e are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4091	4222	
==>e are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	972	1083	
==>e_command($abs));
	}

	return;
}

# can we locate a (the) C compiler
sub can_cc {
	my $self   = shift;
	my @chun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1401	1505	
==>js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1401	1505	
==>js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1401	1505	
==>js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2665	2785	
==>->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2665	2785	
==>->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2665	2785	
==>->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        local $::CLASS = $new_cl <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6584	6682	
==>qiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PGE_O <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6065	6160	
==>e time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Bloc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6065	6160	
==>e time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Bloc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10921	11067	
==>h;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7995	8132	
==>h;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7995	8132	
==>h;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACKAGE__ . "->abort\n";
        #print c <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16032	16161	
==>my $source  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a representation that is like t <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	504	598	
==>E Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http:/ <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	504	598	
==>E Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http:/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	341	445	
==>};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::T <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	341	445	
==>};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6063	6154	
==>resolve method');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($Class)->{'@:role <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3989	4095	
==>tr $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %* <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3989	4095	
==>tr $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %* <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1651	1752	
==>onfig_template'.  I will merge them in memory, but
    you may wish to check for new settings and edit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8698	8814	
==>1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8698	8814	
==>1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8698	8814	
==>1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	314	424	
==>} => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	314	424	
==>} => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	314	424	
==>} => "PIL::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3226	3327	
==>class->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3226	3327	
==>class->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3226	3327	
==>class->superclasses([ $self->class ]);        
        ::opaque_instance_change_class($self, $eigencla <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2069	2180	
==>install {
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( package = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2048	2158	
==>:Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2048	2158	
==>:Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12336	12453	
==>ror qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12336	12453	
==>ror qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12336	12453	
==>ror qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.'::{$_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19639	19850	
==>push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19639	19850	
==>push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19639	19850	
==>push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL::isa( $self->tied, 'Perl6 <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	528	640	
==>collect_arguments ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $normalizer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19339	19441	
==>POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19339	19441	
==>POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	724	848	
==>like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	724	848	
==>like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	724	848	
==>like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duck, it must them implement
#   the Duck Role.
#
# T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12409	12519	
==>$arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12409	12519	
==>$arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::K <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16554	16661	
==>!$tot->{max}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot->{tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	521	659	
==>JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	521	659	
==>JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	521	659	
==>JS.Context.ItemAny, str ]
        ).toNative());

        return str_.substr(a, b);
      },
      function (n) {
        var str_ = String <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3809	3921	
==>urn $S->force_object(anyof_char => 'G') if $cc;
    return $S->object(gpos => gpos => '\G');
  });

  # named (na <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27757	27855	
==>dler gets the parser object and a boolean as arguments.
The boolean is true if the flag is going to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	569	673	
==>h: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	569	673	
==>h: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2105	2246	
==>cies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for better diagnostics <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3474	3607	
==>cies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for better diagnostics <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3640	3755	
==>b }
#rule element_boundary { \< , \> } # punt for now

rule subrule                { ([\<\<|\<|\x[abd]]) (\??) <name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	906	1011	
==>sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	906	1011	
==>sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	906	1011	
==>sparse array
# * Added support for store() past the end of the array
# * Simplified fetch()
#
# 2005-08-27 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1954	2086	
==>egal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependenci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3494	3631	
==>(automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3494	3631	
==>(automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3494	3631	
==>(automatically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7843	7939	
==>store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7843	7939	
==>store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11829	11925	
==>egexp* thus created can be recognized, and regexp*s
  created with the normal perl engine can con <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1361	1500	
==>pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpa <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1361	1500	
==>pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpa <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2052	2144	
==>28,'subset num of num128 where { true }');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subs <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9682	9794	
==>y_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@string <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9682	9794	
==>y_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@string <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4694	4786	
==>_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1048	1202	
==>g Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1048	1202	
==>g Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1048	1202	
==>g Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1878	2003	
==>elf->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1878	2003	
==>elf->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1878	2003	
==>elf->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2218	2328	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3312	3422	
==>push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30228	30331	
==>rap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34780	34883	
==>rap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33953	34056	
==>rap>], applied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1723	1836	
==>apped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1723	1836	
==>apped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1723	1836	
==>apped->isa("PIL::PCode")  or
      $unwrapped->isa("PIL::PThunk") or
      0
    )
  ) {
    if(ref $sub eq "CODE" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13202	13311	
==>mt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13202	13311	
==>mt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13202	13311	
==>mt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31345	31437	
==>Bool-returning anonymous function in the argument C<$predicate> returns
True when given the t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35895	35987	
==>Bool-returning anonymous function in the argument C<$predicate> returns
True when given the t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35113	35205	
==>Bool-returning anonymous function in the argument C<$predicate> returns
True when given the t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1778	1886	
==>$self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1778	1886	
==>$self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pSc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1778	1886	
==>$self->{pScope} eq "SMy") {
        "$decl$jsname = $undef; pad[$qname] = $jsname";
      } elsif($self->{pSc <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12460	12584	
==>mnt/$_" or return for @pge; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pge) {
        if(-d " <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12826	12920	
==>r `:density($size)`.

The unit specifier is used for several things. 
For example, when iterati <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12826	12920	
==>r `:density($size)`.

The unit specifier is used for several things. 
For example, when iterati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13509	13613	
==>:Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13509	13613	
==>:Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13509	13613	
==>:Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5633	5735	
==>b);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5633	5735	
==>b);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5633	5735	
==>b);
}

sub possibly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3920	4022	
==>ase{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3920	4022	
==>ase{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_str <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21696	21813	
==>iled Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2298	2404	
==>TCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_fil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2515	2621	
==>TCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_fil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2313	2429	
==>nfix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2313	2429	
==>nfix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3483	3673	
==>$_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16042	16139	
==>form the first time they are run. The result is cached into
C<.pmc> files.

Perl has native suppor <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16042	16139	
==>form the first time they are run. The result is cached into
C<.pmc> files.

Perl has native suppor <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3108	3200	
==>rend=%lu\n",strbeg,stringarg,strend);
    fprintf(stderr," flags=%lu\n",flags);
    fprintf(s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12119	12205	
==>eader->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "ima <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12119	12205	
==>eader->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "ima <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5293	5434	
==>\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5515	5656	
==>\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9674	9808	
==>for (reverse @{ $self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6350	6487	
==>],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6350	6487	
==>],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6350	6487	
==>],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	579	688	
==>"Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	579	688	
==>"Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	579	688	
==>"Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  }
}

sub pwd { File::Spec->c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3746	3999	
==>plate module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3746	3999	
==>plate module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5696	5816	
==>ix;
use Pugs::Grammar::Ternary;

sub recompile {
    my $class = shift;

    # tokenizer
    %hash = (
        %Pugs::Gra <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8354	8459	
==>=> $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) { <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8354	8459	
==>=> $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) { <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1094	1197	
==>ings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core method instance ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1220	1316	
==>start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1220	1316	
==>start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1220	1316	
==>start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeginLine posBeginColumn posEndL <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4859	4971	
==>eturn '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdi <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4859	4971	
==>eturn '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdi <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	813	923	
==>urn $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3412	3525	
==>dd_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3412	3525	
==>dd_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3412	3525	
==>dd_method('is_attribute_stub' => ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3252	3372	
==>=> ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3252	3372	
==>=> ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3252	3372	
==>=> ::make_method(sub {
			    my $self = shift;
			    ::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3197	3332	
==><$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3197	3332	
==><$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	567	697	
==>$b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	567	697	
==>$b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	567	697	
==>$b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub i <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3863	4020	
==>$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "can not open '$fname.tex' for writing";
#    p <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	988	1083	
==>ocessed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexibl <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	988	1083	
==>ocessed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexibl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3366	3473	
==>s."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6843	6950	
==>s."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5800	5907	
==>s."
        if !(all( $mapping.keys ) === any( $!heading ));
    die "Some values of $mapping! duplicate eac <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6143	6248	
==>int $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local variable '$out' inside the parser <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4572	4670	
==>EATS

This is an experimental development version.  The API is still in flux.

The set of implement <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4822	4920	
==>EATS

This is an experimental development version.  The API is still in flux.

The set of implement <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6138	6230	
==>5_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2217	2324	
==>_dirs;      # Test root directories (if used)
my $output_dir;  # The root directory of the output tree.
my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4095	4192	
==>ERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
succee <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4095	4192	
==>ERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
succee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37609	37734	
==>y $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37609	37734	
==>y $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37609	37734	
==>y $item  = shift;
    # warn "uninitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	313	422	
==>ges if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on f <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	313	422	
==>ges if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8358	8463	
==>minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8358	8463	
==>minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8358	8463	
==>minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil doesn't match /[\$&@%]/!\n" unless $sigil =~ /[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3097	3190	
==>me terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3097	3190	
==>me terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3444	3537	
==>me terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Da <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	557	662	
==>h  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	557	662	
==>h  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{captur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5605	5731	
==>) {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5605	5731	
==>) {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5605	5731	
==>) {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_role->roles($bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	80	207	
==>();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\:: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	80	207	
==>();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\:: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7434	7556	
==>hr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7434	7556	
==>hr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21189	21287	
==>nt that says whether
they're being turned on or off.  Also, if the flag handler returns 0,
that fla <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2100	2213	
==>s_o $exename.c >log 2>&1") != 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where is <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3322	3419	
==>/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglock ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3205	3299	
==>/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglock ) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6766	6881	
==>tional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6766	6881	
==>tional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3665	3780	
==>tional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy'       ,' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13551	13716	
==>\&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13830	13995	
==>\&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6361	6475	
==>anonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($b <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6361	6475	
==>anonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6384	6488	
==>rm - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the bl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6168	6271	
==>rm - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the bl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1481	1582	
==>CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced::e) ** $exponent) instead? <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20701	20799	
==>e any subroutines or export such.

The usual way that Relation indicates a failure is to throw an e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25253	25351	
==>e any subroutines or export such.

The usual way that Relation indicates a failure is to throw an e <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1063	1189	
==>"calculating cc for $f\n";
        $allccs{$f} = [ keys %{comp_cc(\%cc)} ];
    }
    print ::Y(\%allccs),"\n";
}
#print $g->as <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2293	2403	
==>OOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), " <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2293	2403	
==>OOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	665	785	
==>".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	665	785	
==>".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	665	785	
==>".exists does not work on objects of type {$self.ref}!";
  }
}

method delete (Hash|Array $self: *@idx) {
  if $self.isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39528	39634	
==>st' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39528	39634	
==>st' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39528	39634	
==>st' );
    $ret = $ret->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15042	15185	
==>ses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # ho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15042	15185	
==>ses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # ho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15042	15185	
==>ses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @classes => @supers
            # ho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5102	5209	
==>out\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
lo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5102	5209	
==>out\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
lo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5102	5209	
==>out\\n\";warn '#' x 40,\"\\n\",'Fyi: ',\$\@ if \$\@; \@_res$n = \@_res$n;};\n".$dn.";\nE$n\n";
	}
    }
}
lo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2075	2220	
==>E>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::comp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2292	2437	
==>E>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::comp <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26240	26336	
==>SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROP <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12490	12640	
==>tch,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12484	12634	
==>tch,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30963	31058	
==>ibutes; the new Relation::Example has as
many additional attributes as there are pairs in the ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1088	1196	
==>xportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1088	1196	
==>xportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1088	1196	
==>xportList.
        old_exportList.call(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3039	3169	
==>_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $! <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3039	3169	
==>_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $! <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19930	20025	
==>) :- !.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [Ci|F1],F1,B0,[C|B0],E0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6738	6841	
==>e; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6738	6841	
==>e; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6738	6841	
==>e; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5843	5984	
==>t)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5843	5984	
==>t)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5843	5984	
==>t)->undefine },

            # There is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40051	40312	
==>s' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19600	19852	
==>s' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16676	16786	
==>ample {

    # First do some optimizing of the order that source relations are
    # combined, so to try and ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14762	14935	
==>pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14762	14935	
==>pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14762	14935	
==>pops}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2228	2358	
==>um $x = 1 --> Num )
 {
     Pugs::Internals::rand($x);
 }


 multi  Num::sign (  Num  $x             --> Int )
 {
     Math::Basic: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2352	2447	
==>skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2352	2447	
==>skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2669	2777	
==>y $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2669	2777	
==>y $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2669	2777	
==>y $decl = "my($varlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4657	4755	
==>&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $? <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8134	8232	
==>&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $? <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5794	6017	
==>ub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6258	6481	
==>ub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	752	873	
==>s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	752	873	
==>s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	752	873	
==>s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8465	8575	
==>) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8465	8575	
==>) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8465	8575	
==>) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.a')/_('$.b') ) ) }, <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	16439	16595	
==>RR "Trying to get heading >$heading<\n";

                my $h = $sobj->look_down( _tag  => 'div', 
                                          class => qr/^h <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	153	262	
==>d getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	153	262	
==>d getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6382	6482	
==>utNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6382	6482	
==>utNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6382	6482	
==>utNewline = function (str) {
    print(str + "$MAGIC_NOLF");
  };
}
if(!PIL2JS_printWithoutNewline) P <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10901	11013	
==>e_sequence(char(C)) --> "\\n", {[C] = "\n"}, !. %# XXX - not really
p5_simple_escape_sequence(char(C)) --> "\\r", <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15402	15495	
==>d = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::En <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15402	15495	
==>d = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::En <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10154	10259	
==>se PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10154	10259	
==>se PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10154	10259	
==>se PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL::PVar;
use PIL::Subs;
use PIL::RawJS <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6941	7041	
==>s will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6941	7041	
==>s will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	668	760	
==>$object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4801	4936	
==>role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4801	4936	
==>role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4801	4936	
==>role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = sub {
    my ($self, $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3057	3159	
==>close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3057	3159	
==>close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3057	3159	
==>close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class' <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7797	7892	
==>er' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=back' dir <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7797	7892	
==>er' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=back' dir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1483	1590	
==>x.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1483	1590	
==>x.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1483	1590	
==>x.Constant(undefined))";
  };
}

# Standard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20325	20423	
==>t as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24877	24975	
==>t as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	666	763	
==>sub to_bit { shift }

# conversion to other native types
sub to_str { (shift)->to_native ? str->ne <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9465	9561	
==>module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9465	9561	
==>module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1516	1677	
==>Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already abso <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1516	1677	
==>Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already abso <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3374	3489	
==>_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3374	3489	
==>_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3374	3489	
==>_);
  } @vars_to_restore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  ret <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4703	4832	
==>avy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4703	4832	
==>avy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40918	41029	
==>s->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40918	41029	
==>s->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40918	41029	
==>s->{arrayref}};
}
sub items {
    my ( $this ) = @_;
    @{$this->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5121	5236	
==>::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = g <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2663	2778	
==>::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3444	3559	
==>::_push {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = g <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6739	6842	
==>$self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argum <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6739	6842	
==>$self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3295	3413	
==>g) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3295	3413	
==>g) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) thro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3295	3413	
==>g) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS::inline('(
  function (str) {
    if (!Perl5) thro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17081	17289	
==>nd( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17081	17289	
==>nd( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17081	17289	
==>nd( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20085	20210	
==>elf[0] = exp
    pad["isarray"] = padarray
    .return (self)
.end
    
.namespace [ "PGE::Exp::Group" ] 

.sub "p6analyze" :m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33132	33221	
==>metric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37682	37771	
==>metric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33585	33685	
==>r Names>

Array of Str - This stores an ordered list one or more elements where each
element is a Tem <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33585	33685	
==>r Names>

Array of Str - This stores an ordered list one or more elements where each
element is a Tem <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8125	8237	
==>b;
/*      fprintf(stderr,"api 13\n");*/
      if(ret != 4) {
        fprintf(stderr,"api 13 violation\n"); exit( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	936	1043	
==>ns:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	936	1043	
==>ns:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3280	3380	
==>hc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config-> <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3280	3380	
==>hc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config-> <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4724	4812	
==>_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2765	2862	
==>ew();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2765	2862	
==>ew();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2765	2862	
==>ew();
    $self->_discard_whitespace($i);
    $class->name($i->nextToken);
    $self->_discard_whi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5352	5515	
==>xed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5352	5515	
==>xed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5352	5515	
==>xed' => defined _('$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30563	30726	
==>) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30563	30726	
==>) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30563	30726	
==>) {
            if ( @{$tmp[0]} ) {
                my $diff = $length - $ret_length;
                my @i = splice( @{$tmp[0]}, 0, $diff );
                push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10315	10421	
==>the depth to which it will
look:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $iter->(-dep <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5821	5922	
==>e file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5821	5922	
==>e file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2615	2727	
==>($version)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2615	2727	
==>($version)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2615	2727	
==>($version)     if defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1727	1848	
==>fer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1932	2053	
==>fer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1995	2116	
==>fer to it
my $Class;

sub ::create_class (%) {
    my (%attrs) = @_;
    return ::create_opaque_instance(
        # < a Cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29370	29490	
==>- TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29370	29490	
==>- TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29370	29490	
==>- TODO - clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6978	7110	
==>ams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6978	7110	
==>ams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6978	7110	
==>ams = map{Perl6::Param->new('name' => $_)} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $s <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1398	1492	
==>port `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
s <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1398	1492	
==>port `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20345	20451	
==>],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(b <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	55	157	
==>ce $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

Dat <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	55	157	
==>ce $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

Dat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9229	9346	
==>: $quantifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22154	22246	
==>e = $space_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if !$sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11001	11176	
==>} }, &Rf;
    return $S->object(open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '['


  ### ']'


  ### '<'


  ### '>'


  ### '.'

  $self->add_handl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8419	8518	
==>is/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $even <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8419	8518	
==>is/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $even <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12861	12985	
==>pe' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12861	12985	
==>pe' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_h <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	161	265	
==>nt::Normalizer::Null;
        has $coercer_role = ::Getopt::Argument::Coercer::Null;

        method bind <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5205	5306	
==>->{bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	937	1061	
==>atch->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	937	1061	
==>atch->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGram <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6115	6210	
==>_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6115	6210	
==>_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6115	6210	
==>_source =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4092	4205	
==>est::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4092	4205	
==>est::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5616	5729	
==>est::Builder::TestPlan $.testplan>

=back

=head1 METHODS

=over 4

=item B<new( *@args )>

This method actually r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9446	9556	
==>s('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.del <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9446	9556	
==>s('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.del <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	83	192	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	83	192	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	83	192	
==>{
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), key = args[2], c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1342	1458	
==>_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1342	1458	
==>_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5837	5968	
==>ange must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6738	6857	
==>hr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6738	6857	
==>hr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3149	3311	
==>ass->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3149	3311	
==>ass->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3149	3311	
==>ass->name) . 
                        ']');                   
        $eigenclass->superclasses([ $self->class ]);        
        ::opaque_instance_change_class( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12687	12788	
==>1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12687	12788	
==>1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12687	12788	
==>1 if ::opaque_instance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
}));

$::Class- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9171	9277	
==>header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9171	9277	
==>header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12211	12316	
==>Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body.siz <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15688	15793	
==>Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body.siz <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18085	18183	
==>h gets attached to the op tree.  The struct is used
variously to return the compiled regexp, to giv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	356	471	
==>emAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	356	471	
==>emAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	356	471	
==>emAny";
  my $undef = "new PIL2JS.Box.Constant(undefined)";
  my $retcc = PIL::cur_retcc;

  return "PIL2JS.generic_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	980	1081	
==><rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $sour <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9689	9787	
==>se> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9689	9787	
==>se> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = HT <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5442	5580	
==>}
            return $self if -s FH;
        }
    }

    print "Writing META.yml\n";

    local *META;
    open META, "> META.yml" or warn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	747	842	
==>s::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	747	842	
==>s::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12831	12939	
==>sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12831	12939	
==>sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12831	12939	
==>sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchable' &&
         defined $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12832	12940	
==>e_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12832	12940	
==>e_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12832	12940	
==>e_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10114	10255	
==>o {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10114	10255	
==>o {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10114	10255	
==>o {
    my $class = shift;
    my $start = shift;
    my $size =  &Inf;
    $class->new(
        clone => sub { 
            warn "from_coro-> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4212	4322	
==>h_1:
    goto found_term if $operator;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $ter <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8670	8765	
==>E::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $loca <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8670	8765	
==>E::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $loca <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4933	5038	
==>nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($par <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4933	5038	
==>nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11609	11723	
==>...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11609	11723	
==>...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11609	11723	
==>...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending shifts/pops" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10174	10302	
==>in
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10174	10302	
==>in
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10174	10302	
==>in
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from different clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1307	1413	
==>L2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1307	1413	
==>L2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1307	1413	
==>L2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Int <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	792	890	
==>is
an utter mess.

The project objectives are nominally:
  1- Provide an environment in which p6 ru <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7669	7765	
==>method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method pr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7669	7765	
==>method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1918	2332	
==>Yet)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relation;

    # Exter <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5096	5268	
==>];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Tran <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5096	5268	
==>];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Tran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4415	4521	
==>> '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4415	4521	
==>> '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4415	4521	
==>> '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    ( <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	366	469	
==>un");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::SmokeBackends - 

=h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10380	10482	
==>lear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10380	10482	
==>lear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21437	21542	
==>$xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21437	21542	
==>$xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21437	21542	
==>$xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30139	30231	
==>d
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34691	34783	
==>d
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33864	33956	
==>d
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C<unwrap> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7455	7586	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7443	7574	
==>1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20803	20898	
==>eader_field_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20803	20898	
==>eader_field_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	152	267	
==>use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	152	267	
==>use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	152	267	
==>use strict;
use lib "lib";

# Minor hack
INIT {
  if($ENV{PIL2JS_RESOURCE_GUARD}) {
    require BSD::Resource;
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1409	1513	
==>w PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1409	1513	
==>w PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1409	1513	
==>w PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL::VNum;
  our @ISA = qw<PIL::PVal>;

  sub as_js { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9711	9847	
==>->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9711	9847	
==>->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9711	9847	
==>->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17216	17315	
==>rl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17216	17315	
==>rl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17216	17315	
==>rl6 "Num" object
  my $num = Num->NaN;

=head1 DESCRIPTION

This module implements the "Value" class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	904	1009	
==>_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	904	1009	
==>_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($par <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	161	246	
==>6/Bible/S05.pod
  http://www.nntp.perl.org/group/perl.perl6.language/20985
  docs/quic <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11498	11620	
==>ain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11498	11620	
==>ain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $pa <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1766	1854	
==>gs;
push(@yaml_harness_args,'--concurrent', PugsBuild::Config->lookup('smoke_concurrent') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4207	4325	
==>e -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4207	4325	
==>e -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4207	4325	
==>e -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35163	35291	
==>ngth -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35163	35291	
==>ngth -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35163	35291	
==>ngth -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $len_tail, @tail ) = $array- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	155	559	
==>4.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Exa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	155	559	
==>4.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Exa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6504	6613	
==>adding a class method (as a signleton method on the class instance)

$Object->add_singleton_method('singleton_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28383	28489	
==>ender()

The arguments to object() to create the ending node for this object.
This is used by the walk() me <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3773	3866	
==>eed to have documentation/comments. If you need something
with more power, move up to Config:: <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3773	3866	
==>eed to have documentation/comments. If you need something
with more power, move up to Config:: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13000	13096	
==>finite if the recurrence is an empty set.

- `stringify()`

Return a string representation of the <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13000	13096	
==>finite if the recurrence is an empty set.

- `stringify()`

Return a string representation of the <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10195	10285	
==>ularExpressionBody> <'/'> <RegularExpressionFlags>
}
rule RegularExpressionBody {  # see 7. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1282	1410	
==>unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_pa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1282	1410	
==>unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_pa <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	424	540	
==>ame][$space]\n";
#    # var
#    if (length $segil != 0) {
#	$segil =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28337	28436	
==>at some of its attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32889	32988	
==>at some of its attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32017	32116	
==>at some of its attributes
have been combined/wrapped into tuple/Mapping-valued attributes.  The
argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8438	8551	
==>ef( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8438	8551	
==>ef( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8438	8551	
==>ef( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4503	4611	
==>rname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4503	4611	
==>rname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4503	4611	
==>rname));
  })')($sigil ~ join "::", @parts);
}

sub Pugs::Internals::but_block ($obj is rw, Code $code) is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4067	4191	
==>-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4067	4191	
==>-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4067	4191	
==>-base=" . $cfg{metamodel_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference ar <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1429	1585	
==>defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1429	1585	
==>defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1755	1864	
==>Obj->from() + 1);
  }
  return $matchObj;
}

sub space {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $fr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2441	2634	
==>rns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5918	6111	
==>rns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4848	5041	
==>rns Bool {
    return $!is_mutable;
}

###########################################################################

method heading () returns Set of Str {
    return $!heading;
}

method body () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2106	2218	
==>ror_output = $*ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	111	215	
==>ror_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# } <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	111	215	
==>ror_output = $*ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5136	5236	
==>ne is passed the current object in the recursion and
the wanted namespace ("MyName" in the code above <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5136	5236	
==>ne is passed the current object in the recursion and
the wanted namespace ("MyName" in the code above <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5136	5236	
==>ne is passed the current object in the recursion and
the wanted namespace ("MyName" in the code above <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2418	2563	
==>s Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expec <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1265	1396	
==>_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_term <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1265	1396	
==>_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2617	2738	
==>g_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCR <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2617	2738	
==>g_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCR <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2964	3085	
==>g_bind(\@_);
  }

  formalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCR <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5500	5611	
==>turn $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method fre <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5500	5611	
==>turn $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method fre <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3797	3888	
==>if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $ref <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9643	9781	
==>ll subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13120	13258	
==>ll subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12392	12530	
==>ll subset"
            ~ " of the heading of the invocant relation."
        if !(all( $other!heading ) === any( $!heading ));

    # First <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4290	4412	
==>$) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4290	4412	
==>$) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4290	4412	
==>$) {
        my ($dispatcher) = @_;
        (defined $dispatcher && ref($dispatcher) eq 'CODE')
            || confess "Bad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4870	4980	
==>$self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4870	4980	
==>$self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4870	4980	
==>$self->type,
      "p" . $self->prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1427	1522	
==>join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1427	1522	
==>join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1427	1522	
==>join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use PIL::Run: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2903	2998	
==>he request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2903	2998	
==>he request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16188	16291	
==>::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16188	16291	
==>::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16188	16291	
==>::Num::Inf;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3444	3570	
==>rintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3444	3570	
==>rintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3444	3570	
==>rintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($methname),
        PIL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5716	5914	
==>al";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5716	5914	
==>al";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3706	3829	
==>}

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  package Regexp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	560	673	
==>args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	560	673	
==>args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	560	673	
==>args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7207	7394	
==>@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7207	7394	
==>@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7207	7394	
==>@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20934	21027	
==>grade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or program <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20934	21027	
==>grade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or program <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1272	1397	
==>',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue'  ,'Bool',
  'pIsMulti' ,'Bool',
  'pBo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14485	14597	
==>:KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14485	14597	
==>:KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4805	4987	
==>names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4805	4987	
==>names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12929	13057	
==>elf->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub data {
    my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17975	18175	
==>method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17975	18175	
==>method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17975	18175	
==>method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1274	1374	
==>Undef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1274	1374	
==>Undef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1274	1374	
==>Undef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17328	17414	
==>:make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17328	17414	
==>:make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17328	17414	
==>:make_attribute('%:methods'));
$::Class->add_attribute('%:class_methods'    => ::make_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	238	344	
==>o return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	238	344	
==>o return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	238	344	
==>o return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3923	4031	
==>my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3923	4031	
==>my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3923	4031	
==>my ($method_type, @params) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() e <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15402	15501	
==>, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15460	15559	
==>, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9866	9958	
==>3);
};
=pod
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17412	17516	
==>($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17412	17516	
==>($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17412	17516	
==>($xx1)) };
MULTI SUB infix:<x> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2888	3016	
==>@a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2888	3016	
==>@a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2888	3016	
==>@a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	915	1071	
==>rn;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	879	1027	
==>rn;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3231	3339	
==>);
        last if $self->{saw_bailout};
    }

    $totals{skip_all} = $self->{skip_all} if defined $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1059	1164	
==>ew( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1059	1164	
==>ew( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1139	1244	
==>ew( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output object; it gets in th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11187	11323	
==>tify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11187	11323	
==>tify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11187	11323	
==>tify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2256	2375	
==>10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2256	2375	
==>10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2603	2722	
==>10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_signature
    (\&formalize <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12845	12944	
==>nce is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12845	12944	
==>nce is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infi <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1909	2006	
==>^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} and ($ENV{PUGS_RUNTIME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34027	34150	
==>}
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34027	34150	
==>}
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34027	34150	
==>}
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'P <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1219	1458	
==>hen 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buff <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1219	1458	
==>hen 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buff <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7277	7397	
==>Table for design documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1} <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8881	9004	
==>t ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # sy <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8881	9004	
==>t ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # sy <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	349	444	
==>:Run::OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8755	8921	
==>= $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { 
            bool <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12660	12806	
==>= $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12660	12806	
==>= $$match;
        };
    }
    # fail is number != 1 
    if ( $h =~ /^(\d+)$/ ) {
        return sub{} unless $1 == 1;
        return sub{ { bool <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5685	5790	
==>.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method ca <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5685	5790	
==>.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method ca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7882	7987	
==>.reason>

=back

It also overrides a single method:

=over 4

=item B<status returns Hash>

This method ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9240	9344	
==>nction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9240	9344	
==>nction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9240	9344	
==>nction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14008	14164	
==>rivate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14008	14164	
==>rivate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14008	14164	
==>rivate_methods';
        }
        else {
            # NOTE:
            # we never have class methods in $::Class so
            # we can ignore this safel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2930	3336	
==>Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2930	3336	
==>Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Ros <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2561	2682	
==>, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1923	2016	
==>6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1923	2016	
==>6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1923	2016	
==>6::Cell::_id = rand;
sub Perl6::Cell::new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38301	38521	
==>self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->exists($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16689	16797	
==>ontent_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEX <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16689	16797	
==>ontent_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEX <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1538	1697	
==>>{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    return _ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1508	1648	
==>$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1508	1648	
==>$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	746	883	
==>eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	746	883	
==>eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	746	883	
==>eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17370	17466	
==>only call it through an object that
inherits from that class.

There are no longer I<star>, I<plu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19471	19566	
==>esource files, and not change
your main program.

I<Note that an update is planned for Locale::K <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19471	19566	
==>esource files, and not change
your main program.

I<Note that an update is planned for Locale::K <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30905	31007	
==>ither an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35455	35557	
==>ither an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34646	34748	
==>ither an empty
tuple/Mapping or a tuple that is identical to the original, in which case
this method re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9747	9856	
==>w("int"),
			type::operator::nullary->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		my $a = ty <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5796	5893	
==>tive value for
# relative seconds and a positive value for epoch based time values.
#sub retry_aft <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5796	5893	
==>tive value for
# relative seconds and a positive value for epoch based time values.
#sub retry_aft <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3698	3853	
==>.
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($ele <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3698	3853	
==>.
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($ele <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3698	3853	
==>.
        }
        if (defined ($slot = *$obj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($ele <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	66	153	
==>decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity enco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	66	153	
==>decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity enco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11129	11236	
==>lass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matchin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11129	11236	
==>lass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matchin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10603	10744	
==>].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10603	10744	
==>].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10603	10744	
==>].STORE(n);
          return n;
        }
      );

      ret.uid = array[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] : <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3012	3153	
==>build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out old stuf <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9821	9917	
==>argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `compl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9821	9917	
==>argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `compl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9784	9910	
==>'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_ME <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9784	9910	
==>'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_ME <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9784	9910	
==>'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_ME <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1926	2024	
==>x.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1926	2024	
==>x.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1926	2024	
==>x.Constant(%s)", PIL::doublequote $_[0]->[0] }
}

{
  package PIL::VBool;
  our @ISA = qw<PIL::PVal <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1581	1713	
==>s we go.  Then get the design docs, and format those as HTML, linking to 
    the links, and inserting a names where needed.

   Exam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1350	1438	
==>se Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1350	1438	
==>se Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18640	18735	
==>attempting to make it look sufficiently
like what the core expects to avoid problems.  While sim <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2930	3025	
==>attempting to make it look sufficiently
like what the core expects to avoid problems.  While sim <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	844	935	
==>my $compiled = Blondie::Backend::Foo->compile($program);
    my $result = Blondie::Backend:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38184	38278	
==>es a defined (but possibly empty) Template text string in
its positional parameter $text (a str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38184	38278	
==>es a defined (but possibly empty) Template text string in
its positional parameter $text (a str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	336	442	
==>ameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	336	442	
==>ameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'defa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	336	442	
==>ameter
# * Compatible with Perl 5 scalar/list context
# * Removed classes Params, Signature
# * Added 'defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5320	5428	
==>ULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5320	5428	
==>ULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5320	5428	
==>ULTI SUB chomp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14981	15079	
==>ULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14981	15079	
==>ULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14981	15079	
==>ULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23172	23266	
==>must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27724	27818	
==>must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1808	1933	
==>etaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1808	1933	
==>etaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1808	1933	
==>etaModel;

sub class1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $c <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23316	23417	
==>1
    exp1 = exp1.p6analyze(pad)
    .return (exp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12859	12955	
==>yedText -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12859	12955	
==>yedText -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9655	9795	
==>ue::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9655	9795	
==>ue::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9655	9795	
==>ue::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	396	499	
==>>.assuming(:offset(0) :length(1));

 multi sub Array::shift () returns Scalar {
   Array::shift @CALLER: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2543	2640	
==>stream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2543	2640	
==>stream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	496	621	
==>HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	496	621	
==>HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9353	9453	
==>$S->force_object(anyof_class => upper => $neg, $how);
  });

  # word POSIX class
  $self->add_handle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3980	4088	
==>ME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3980	4088	
==>ME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3980	4088	
==>ME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  sub params : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25830	25990	
==>);
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25830	25990	
==>);
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25830	25990	
==>);
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14364	14545	
==>ods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14364	14545	
==>ods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14364	14545	
==>ods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to avoid the method call, this
        # is needed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3707	3810	
==>tus' => sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH('::Base')->FETCH( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9903	9998	
==>_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($st <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9903	9998	
==>_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2510	2644	
==>subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2510	2644	
==>subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2510	2644	
==>subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a c <==
3	/Users/nnunley/pugs/util/importgraph.pl	330	435	
==>ap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "overlap=s" => \$overlap,
  "ignore=s" = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37644	37733	
==>ifference (Relation::Example $other!) returns Relation::Example>

This method is a generic <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38233	38322	
==>ifference (Relation::Example $other!) returns Relation::Example>

This method is a generic <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2410	2610	
==>ALLER::<$_> --> Int ) {
   if !defined($x) { return undef };
   if $x < 0       { return -1    };
   if $x > 0       { return  1    };
   if $x == 0      { return  0    };
   undef;
 }


 multi Math::B <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16750	16848	
==>ling code to output as it sees fit.  It
also does not make direct use of environment variables, whi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16750	16848	
==>ling code to output as it sees fit.  It
also does not make direct use of environment variables, whi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2824	3007	
==>end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2824	3007	
==>end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31108	31207	
==>he names (like '|' or
'atom').  Here is a very simple complete sub-class that does not allow
the C<( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3451	3557	
==>CTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3451	3557	
==>CTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3531	3637	
==>CTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to run.  Someday there will be a C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19425	19536	
==>e scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19425	19536	
==>e scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17064	17223	
==>y->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17064	17223	
==>y->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17064	17223	
==>y->fetch( int( rand( $n ) ) );
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1247	1375	
==>'Pugs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$grammar = shift;\n" .
        #"    warn 'rule argum <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1427	1525	
==>verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1427	1525	
==>verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1427	1525	
==>verbose;

  my $pil  = $input[0] =~ /\.(?:pl|p6|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	607	720	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	607	720	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	607	720	
==>ount - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo?) {
    my $st = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9354	9454	
==>erl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9354	9454	
==>erl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9354	9454	
==>erl };
MULTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1610	1723	
==>}

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1815	1928	
==>}

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23218	23307	
==>'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule Form <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	878	992	
==>efined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	878	992	
==>efined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	878	992	
==>efined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3728	3909	
==>>{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3728	3909	
==>>{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3728	3909	
==>>{methods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19691	19803	
==>, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19691	19803	
==>, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19691	19803	
==>, $value) if $value->isa('Perl6::ClassMethod');
        return $self->add_method($1, $value);
    }  
    # XXX - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4132	4247	
==>capture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4004	4117	
==>capture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2630	2779	
==>ree.new(:node<Block>).add_children(
                                Tree.new(:node<Bare>).add_children(
                                    Tree.new(: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10873	10969	
==>o, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10931	11027	
==>o, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$d <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1557	1676	
==>ars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6921	7021	
==>this means I should defer events until I get to the
end of the line. I could probably do that, but it <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6921	7021	
==>this means I should defer events until I get to the
end of the line. I could probably do that, but it <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25141	25271	
==>amily => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub vi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15305	15405	
==>_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Ha <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15363	15463	
==>_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2520	2620	
==>();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2520	2620	
==>();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2520	2620	
==>();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4673	4776	
==>y couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4673	4776	
==>y couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4673	4776	
==>y couldnt be ::say_code,
# avoiding the need to split on ::.  Though if we switch to
# ${'foo'}::{'bar'} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12494	12613	
==>ct),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12494	12613	
==>ct),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5885	5988	
==>s $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bsr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8173	8516	
==>$k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstra <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8173	8516	
==>$k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstra <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9446	9639	
==>/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9446	9639	
==>/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ( <==
3	/Users/nnunley/pugs/util/package-osx.pl	11509	11618	
==>|\s{5}$)//; $_ } split /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	404	531	
==>n (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	404	531	
==>n (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	404	531	
==>n (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13101	13222	
==>his ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13101	13222	
==>his ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13101	13222	
==>his ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Pe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13596	13710	
==>ading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17073	17187	
==>ading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16435	16549	
==>ading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8983	9111	
==>bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .deta <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	910	1036	
==>}   = $h;
    $$o->{'from'}  = $from;
    $$o->{'to'}    = $to;
    return $o;
}
sub set_as_failed {
    my($o)=@_;
    $o->set <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12551	12650	
==>lt to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Cod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12609	12708	
==>lt to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Cod <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	223	319	
==>lso known as sixpan.

Please refer the documentation of the other Modules in the JIB namespace fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8918	9077	
==>h = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8918	9077	
==>h = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8918	9077	
==>h = shift;
            # warn "shift_n( $length ) from  ". $list->start . "..". $list->end;
            $length = $count if $length > $count;
            my $sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9469	9572	
==>qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9469	9572	
==>qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9469	9572	
==>qualification? Use "main" as package name. XXX! Lexical variables?
  } elsif(length($str) and $str !~ /: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	43	138	
==>he real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Obje <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	43	138	
==>he real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Obje <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	43	138	
==>he real one will use the metamodel.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13291	13499	
==>ault
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canid <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5350	5455	
==>'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub f <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5350	5455	
==>'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub f <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14247	14347	
==>n.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14305	14405	
==>n.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7749	7850	
==>" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7749	7850	
==>" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7749	7850	
==>" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt->main }
}

# Possible subroutine types:
{ package PIL:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2767	2931	
==>c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprintf "\\%03o", $c if $z =~ /[[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	411	543	
==>subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thin <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	411	543	
==>subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3146	3244	
==>om/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PAC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3146	3244	
==>om/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PAC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3493	3591	
==>om/perl/misc/Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PAC <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3710	3821	
==>he compiler inherits L<Blondie::Reducer::DynamicScoping> to assist in the
verification of paramter symbol resolu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	175	274	
==>pos field
# FIXOTHERS (smoke): skipped tests have pos point to the test library

use warnings;
use s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	287	386	
==>?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	287	386	
==>?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	287	386	
==>?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitiv <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8488	8647	
==>lose;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record sep <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8488	8647	
==>lose;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record sep <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16988	17122	
==>he test run, if from a file
  wait              the wait code of the test run, if from a file

  max               total tests which sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22614	22710	
==>MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22614	22710	
==>MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22614	22710	
==>MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),undef);
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18325	18422	
==>But for displaying to users, easy messages are
better.

I have found that when it comes to getting <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18325	18422	
==>But for displaying to users, easy messages are
better.

I have found that when it comes to getting <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	864	976	
==>g;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self->init;
  $self->regex($rx) if de <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11256	11348	
==>ocation) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11256	11348	
==>ocation) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2931	3036	
==>open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2931	3036	
==>open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2931	3036	
==>open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6155	6254	
==>x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6155	6254	
==>x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6155	6254	
==>x 3); ($ret, $PIL::CORO_ID++);
var initial_entrypoint = function () {
%s
};

if(!PIL2JS.coro_entrypo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16355	16499	
==>tr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20781	20925	
==>tr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4133	4240	
==>4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10799	10902	
==>ions);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10799	10902	
==>ions);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33889	33981	
==>yof (C<[>)

Data: array reference of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	624	748	
==>{ op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	640	764	
==>{ op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	616	740	
==>{ op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{ <==
3	/Users/nnunley/pugs/util/package-osx.pl	4709	4806	
==>n/man3/Perl6::Bible::S06.3pm
        /usr/local/man/man3/Perl6::Bible::S09.3pm
        /usr/local/ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2316	2447	
==>.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2316	2447	
==>.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1707	1832	
==>ORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1707	1832	
==>ORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1707	1832	
==>ORCE, $self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($se <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15715	15867	
==>> $iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "l <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	109	232	
==>9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.ke <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	109	232	
==>9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.ke <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2202	2329	
==>ase class for all nameable executable objects
    Sub         Perl subroutine
    Method      Perl method
    Submethod   Perl s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31542	31641	
==>p' form is deprecated, but is
still allowed, so I delete its handler too.  You can use this class to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10853	10995	
==>ortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7929	8062	
==>ortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7929	8062	
==>ortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16077	16204	
==>6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16077	16204	
==>6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16077	16204	
==>6::Value::Num::NaN   if $v eq 'NaN';
    # native
    return Perl6::Value::Num::Inf   if $v eq "".&Perl6::Value::Num::Inf;
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2166	2283	
==>x:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2166	2283	
==>x:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2166	2283	
==>x:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2129	2224	
==>->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2129	2224	
==>->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2129	2224	
==>->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6238	6332	
==>er to other functions.  

=cut

## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6238	6332	
==>er to other functions.  

=cut

## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6238	6332	
==>er to other functions.  

=cut

## ------------------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25316	25500	
==>ngify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25316	25500	
==>ngify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25316	25500	
==>ngify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 } 0 .. $samples <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4003	4105	
==>r.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4003	4105	
==>r.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5527	5629	
==>r.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11451	11559	
==>ame,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11451	11559	
==>ame,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11451	11559	
==>ame,@args)=@_;
    $name->new(@args);
}

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	680	787	
==>b { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	680	787	
==>b { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	680	787	
==>b { Str->new( '$.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1724	1827	
==>g{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1724	1827	
==>g{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1724	1827	
==>g{prelude}) {
  #  warn "* Warning: Couldn't check whether your compiled Prelude is outdated.\n";
  #  w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2695	2799	
==>JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2695	2799	
==>JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2695	2799	
==>JS.Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	935	1067	
==>ct->new,
		names => {},
	}, $class;
}

sub reduce {
	my $self = shift;
	my $node = shift;

	my $h = Devel::STDERR::Indent::indent;
	w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2529	2648	
==>s a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2529	2648	
==>s a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3837	3947	
==><head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3837	3947	
==><head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3837	3947	
==><head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__pil2js_tty"></pre>

EOF

    foreach (@comp <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5462	5561	
==>description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5462	5561	
==>description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7659	7758	
==>description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test:: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4285	4416	
==>vtest)*/
    if(newstr) {
/*      Safefree(r->subbeg);*/ /* fails split.t with newstr==1*/
      r->sublen = strend-strbeg;
      r- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13878	13981	
==>X class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8084	8187	
==>X class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	350	480	
==>ist
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	14	129	
==>e YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use l <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	14	129	
==>e YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use l <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2557	2657	
==>ns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2557	2657	
==>ns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9165	9256	
==>oo->bar, 'Foo->bar', '... $iFoo got the right method return value');

$iFoo->add_singleton_m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28898	29107	
==>( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29177	29386	
==>( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4518	4618	
==>t
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )> <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4518	4618	
==>t
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6042	6142	
==>t
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	897	1048	
==>(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	862	1005	
==>(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6707	6815	
==>test_on_object(), 
   '&Object::singleton_test_on_object',
   '... got the right return value from Object sin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	839	970	
==>)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	839	970	
==>)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14014	14116	
==>c the regexp struct to create one?

Possible next steps:

  Get per-package hooks working.

Notes:

  h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	913	1012	
==>{
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	913	1012	
==>{
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	913	1012	
==>{
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3910	4086	
==>5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3910	4086	
==>5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19300	19438	
==>Please contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6909	7020	
==>xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6909	7020	
==>xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6909	7020	
==>xx,p6_from_n(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	881	991	
==>, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	881	991	
==>, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	881	991	
==>, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER::.
our @ALL_LEXICALS;
# IDs of a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7473	7560	
==>erl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1298	1385	
==>erl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12537	12650	
==>ell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12537	12650	
==>ell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->sto <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12537	12650	
==>ell')->{tied} ? _('$:cell')->{tied} : _('$:cell')->{v}
            },
            'undefine' => sub { (shift)->sto <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	454	564	
==>INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purpo <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	454	564	
==>INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purpo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3481	3577	
==>,X), Z), !.
p5_concatenation_more(W, W) --> {true}.

p6_concatenation(Z)    --> p6_quantified(W), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33876	33993	
==>finite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33876	33993	
==>finite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33876	33993	
==>finite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2541	2672	
==>s{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2541	2672	
==>s{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2541	2672	
==>s{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exists('nth');
  my $multiline;

  my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6492	6611	
==>!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6492	6611	
==>!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	475	586	
==>::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	475	586	
==>::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	475	586	
==>::PCode >;

  sub prefix { "Sub" }
  sub name   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3489	3638	
==>d in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we're the 'prefered' p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2526	2623	
==>rtions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2526	2623	
==>rtions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4906	5017	
==>type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4906	5017	
==>type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5496	5607	
==>type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5989	6084	
==>ing is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5989	6084	
==>ing is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5989	6084	
==>ing is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursi <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	104	274	
==>ase 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Availa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26780	26874	
==>g_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "Message Variabl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26780	26874	
==>g_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "Message Variabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1434	1534	
==>_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1434	1534	
==>_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::In <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1434	1534	
==>_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::In <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2188	2360	
==>ection} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2188	2360	
==>ection} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26161	26266	
==>ne ROPT_NOSCAN		0x00040	/* Check-string always at start. */
 #define ROPT_GPOS_SEEN		0x00080
 #define ROPT <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1027	1131	
==>hat, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule ba <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1027	1131	
==>hat, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	268	382	
==>6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	268	382	
==>6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	268	382	
==>6,
  SUBMACRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2771	2881	
==>nd.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2771	2881	
==>nd.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2771	2881	
==>nd.
    # see EvalX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workar <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8476	8608	
==>n = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = rep <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2600	2707	
==>empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2600	2707	
==>empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7186	7358	
==>y @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7186	7358	
==>y @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7186	7358	
==>y @items = $slice->unboxed->items;
            @items = map {
                        # warn "unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5642	5756	
==>ing them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5642	5756	
==>ing them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7166	7280	
==>ing them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3379	3496	
==>hift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3379	3496	
==>hift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3379	3496	
==>hift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2865	3004	
==>'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2865	3004	
==>'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2865	3004	
==>'any' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6406	6574	
==>ell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6406	6574	
==>ell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6406	6574	
==>ell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is used by bind()
            'id' =>      su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3984	4094	
==>lags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4201	4311	
==>lags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $matc <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7550	7741	
==>, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnam <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7550	7741	
==>, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	0	110	
==>package PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	0	110	
==>package PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	0	110	
==>package PIL::Cont;

use warnings;
use strict;

sub new { bless { @_[1..$#_] } => $_[0] }

sub as_js {
  no warn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6714	6863	
==>h;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6497	6637	
==>h;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	432	551	
==>self = { source => $rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16142	16275	
==>n turn, and returns the last character
chopped.


=item chomp

 multi Str::chomp (  Str  $string is rw                 --> Int )
 mult <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2272	2378	
==>", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2489	2595	
==>", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10312	10512	
==>ge } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find the alter <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13263	13359	
==>sts to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The ` <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13321	13417	
==>sts to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The ` <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	77	322	
==>hat don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	77	322	
==>hat don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	100	230	
==>hift }

sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unles <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9551	9652	
==>s test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9609	9710	
==>s test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4506	4622	
==>\"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4506	4622	
==>\"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4506	4622	
==>\"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $ret = <$ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9225	9318	
==>d C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9225	9318	
==>d C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14665	14787	
==>$method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14665	14787	
==>$method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14665	14787	
==>$method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make_method(sub {
    my ($self, $label, $attri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5633	5735	
==>possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nesseca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5633	5735	
==>possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nesseca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5633	5735	
==>possibly.

- CREATE

CREATE would take a fully qualified name, and create any missing packages 
nesseca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14085	14199	
==>->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14085	14199	
==>->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14085	14199	
==>->[1]}); 
        confess "No next-method for $::ARGS->[0] found" unless defined $method;
        return $method->( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5432	5538	
==>$xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5432	5538	
==>$xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5432	5538	
==>$xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcfirst(p6_to_s($xx)) ) };
MULTI SUB uc ($xx)      { p6_fro <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	52	149	
==>ION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	52	149	
==>ION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23764	23848	
==>0,Replace,[],[Replace]) :- !.
replace_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3881	3976	
==>-------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3881	3976	
==>-------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3881	3976	
==>-------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.perl6.language/4956 for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2633	2763	
==>defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2633	2763	
==>defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2633	2763	
==>defined $version;
    $new_class->authority($authority) if defined $authority;     
    
    if (ref($body) eq 'CODE') {
        lo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	339	458	
==>sage::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $ <==
3	/Users/nnunley/pugs/util/grokprims.pl	1062	1180	
==>ple;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{args}[1];
  my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16887	16980	
==>y speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to docume <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16887	16980	
==>y speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to docume <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2808	2953	
==>->config( $config );
            
            ### if the metadir doesn't exist yet, this is a 'clean' dir,
            ### and we need to set it u <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5657	5751	
==>t>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Pe <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5657	5751	
==>t>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4357	4459	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4357	4459	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4357	4459	
==>JS::inline('new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1244	1361	
==>or which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've imple <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1244	1361	
==>or which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've imple <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1244	1361	
==>or which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've imple <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8798	8906	
==>s> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8798	8906	
==>s> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14809	14960	
==>ap { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14809	14960	
==>ap { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14809	14960	
==>ap { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	808	922	
==>t them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	808	922	
==>t them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	808	922	
==>t them implement
#   the Duck Role.
#
# The other point is that Demiurge endows man with the psyche, this
# sort of <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11133	11244	
==>ecv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # au <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11133	11244	
==>ecv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # au <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1659	1752	
==>Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase development.  The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12536	12687	
==>>push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12536	12687	
==>>push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12536	12687	
==>>push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18370	18466	
==>n possibly confuse further parsing.

Next, the source module is divided into a shallow tree of bl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18370	18466	
==>n possibly confuse further parsing.

Next, the source module is divided into a shallow tree of bl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	465	605	
==>r>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	465	605	
==>r>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23963	24098	
==>_attr ((symbol new @:MRO) (list new)))          
          ($self: send (MRO))))
     ($self: get_attr (symbol new @:superclasses)))

=c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2760	2883	
==>,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3007	3130	
==>,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5424	5528	
==>perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5424	5528	
==>perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5424	5528	
==>perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {
        my ($att <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17744	17882	
==>te {
    my $class = shift;
    my $thunk = shift;

    use Data::Structure::Util qw/signature/;;
    return  signature($thunk);
    Digest <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	29	130	
==>e Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# Blec <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	73	174	
==>e Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ingo Blec <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13219	13332	
==>hings
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13219	13332	
==>hings
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5163	5273	
==>creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclasses;
    has @ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21978	22071	
==>so describes the same-number versions of Relation::Example::Heading
and Relation::Example::Tup <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1100	1192	
==>f documents, written
in question/answer format, to explain the design and implementation of P <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1100	1192	
==>f documents, written
in question/answer format, to explain the design and implementation of P <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23555	23703	
==>ANY           REG_SEEN_CANY /* src bckwrd cmpt */


  #define REXEC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECK <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3929	4072	
==>e += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3929	4072	
==>e += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cac <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2617	2775	
==>arse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # the package name
                     ([\d.]+) <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	336	434	
==>ve all the distribution components you need.

= WHY

You should use this module as a starting point <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2689	2784	
==>e is plausible

p5_start(Z)    --> p5_concatenation(W), p5_alternatives(W, Z), !.
p5_start(noop) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7243	7362	
==>ex_files, map { $path->file($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    return @index_file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3420	3513	
==>:crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3420	3513	
==>:crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7352	7462	
==>f ($cc) {
        $S->error(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->force_object(anyo <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	434	537	
==>> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	434	537	
==>> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15709	15843	
==>$_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15709	15843	
==>$_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15709	15843	
==>$_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38042	38197	
==>'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38042	38197	
==>'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38042	38197	
==>'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $i <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	921	1139	
==>n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # M <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	921	1139	
==>n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # M <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23782	23895	
==>r Character Classes

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	158	268	
==>ethod bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>B <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	158	268	
==>ethod bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>B <==
3	/Users/nnunley/pugs/util/package-osx.pl	6598	6695	
==>3
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3/Perl6::O <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1559	1688	
==>to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        go <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15715	15835	
==>end:
    mpos = pos
    .return (mob)
.end
    
.sub "parse_error"
    .param pmc mob
    .param int pos
    .param strin <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9709	9803	
==>_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_com <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3946	4106	
==>} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( key <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5170	5330	
==>} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( key <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6583	6696	
==>e, root through the file to locate the case-preserved
        # version of the package name.
        if ( $subpath <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2778	2897	
==>r array-of-rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1622	1741	
==>length $1,
    } )
        if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2962	3081	
==>r array-of-rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	85	205	
==>e base 'Exporter';
use strict;
use warnings;
use charnames ();

our %loaded;
our @EXPORT = qw( Rx RxPOS RxCUR RxLEN Rf SI <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1888	1981	
==>ns can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1888	1981	
==>ns can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3392	3487	
==>:Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: Set:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3392	3487	
==>:Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: Set:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9564	9775	
==>f->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9564	9775	
==>f->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9564	9775	
==>f->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	34	132	
==>st cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servica <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	34	132	
==>st cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servica <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2362	2500	
==>$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2350	2488	
==>$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3893	4008	
==>$status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Test' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8194	8376	
==>d - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8194	8376	
==>d - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8194	8376	
==>d - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unboxed array of objects
        $j->junction_n <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11116	11258	
==>c pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  subrule_name:
    $I0 = pos
  sub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3593	3688	
==>thentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Ciphe <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3593	3688	
==>thentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Ciphe <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8633	8726	
==>is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8633	8726	
==>is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1439	1639	
==>], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state[1];
            last if $_[3] || ${$_[3]}->{abort};
        }
        return unless $_[3];
        return \@state;
    }
}

sub conc <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	125	256	
==>-> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	125	256	
==>-> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8165	8286	
==>iled. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8165	8286	
==>iled. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8165	8286	
==>iled. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $p <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4629	4730	
==>`day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4629	4730	
==>`day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1013	1120	
==>n(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1013	1120	
==>n(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPOR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1013	1120	
==>n(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPOR <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	717	832	
==>prompt;
    }
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_args} ||= {});
    %$a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21843	21957	
==>spend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18264	18378	
==>spend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12621	12708	
==>als::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12621	12708	
==>als::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12621	12708	
==>als::Hacks::init_undef_array_postcircumfix_method () is primitive {
  JS::inline('(funct <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2259	2397	
==>e;

    if ( my $perl6_type = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            ac <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1496	1590	
==>o
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<e <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1496	1590	
==>o
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17814	17967	
==>st', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18093	18246	
==>st', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::consta <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4865	5010	
==>eiling($x);
    }
    elsif $x > 0 {
        $x_round = round_floor($x);
    }
    else {
        $x_round = 0;
    }

    return $x_round;
}

our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4742	4852	
==>f => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4742	4852	
==>f => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4742	4852	
==>f => '%:namespace')->{$label};
}));

$::Package->add_method('STORE' => ::make_method(sub {
    my ($self, $labe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1007	1130	
==>:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %!ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1007	1130	
==>:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %!ms <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17710	17804	
==>operator::nullary->new("str")),
);

# the polymorphic snd function takes any pair and returns i <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1961	2094	
==>r_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} | <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2021	2154	
==>r_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} | <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5137	5270	
==>g other .a with us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1018	1120	
==>d method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1018	1120	
==>d method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1018	1120	
==>d method .value() - except for Pair
#
# 2005-08-16
# * 'Scalar' temporarily implemented here 
# * added <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6185	6289	
==>useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ----------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6185	6289	
==>useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ----------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6185	6289	
==>useful to have this if for nothing other than 
a helper to other functions.  

=cut

## ----------------- <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4187	4329	
==>st      pre     sort    safe   (Array)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8551	8689	
==>implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8551	8689	
==>implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6286	6404	
==>TI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6286	6404	
==>TI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6286	6404	
==>TI SUB Pugs::Internals::ceiling ($xx) {...};
MULTI SUB cos ($xx)  { p6_from_n( cos(p6_to_n($xx)) ) };
MULTI SUB sin ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	194	309	
==>e()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	194	309	
==>e()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FET <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	194	309	
==>e()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str.FET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5200	5373	
==>{ 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5200	5373	
==>{ 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5200	5373	
==>{ 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $type,   
            de <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37448	37547	
==>f the aforementioned binary join()
operator, and the order of its arguments is not significant to th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41997	42096	
==>f the aforementioned binary join()
operator, and the order of its arguments is not significant to th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41638	41737	
==>f the aforementioned binary join()
operator, and the order of its arguments is not significant to th <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1367	1510	
==>>;
        };
        $@ and error( "Could not load files list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = gre <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23216	23313	
==>ds a command to the server. The command is not modified by this module,
aside from appending the c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23216	23313	
==>ds a command to the server. The command is not modified by this module,
aside from appending the c <==
3	/Users/nnunley/pugs/t/builtins/system/dump_args.pl	16	141	
==>ce @ARGV, 0, 2;
$" = chr($");

open STDOUT, ">$out"
  or die "Couldn't create '$out' : $!";
binmode STDOUT;
print "@ARGV <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	169	275	
==>o 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fgloc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	162	265	
==>o 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fgloc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	62	174	
==>n::Container::Scalar;

sub mk_containers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13722	13840	
==>> method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13722	13840	
==>> method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13722	13840	
==>> method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatcher = $self->dispatcher(':de <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9579	9699	
==>/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NODE VStr ($value) { my $s = $value; $s = <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4139	4247	
==>, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception throw <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4197	4305	
==>, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception throw <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2114	2212	
==>lf->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remaining p <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	164	260	
==>wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wante <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	164	260	
==>wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wante <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	343	470	
==>e => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do th <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	343	470	
==>e => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do th <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2008	2110	
==>.

=head2 Taint mode

Test::Harness will honor the C<-T> or C<-t> in the #! line on your
test files.  S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27451	27610	
==>h( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27451	27610	
==>h( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27451	27610	
==>h( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6794	6903	
==>e2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$top{eqiv} )
  {
    goto oper_shift if ( (index $$top{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	377	480	
==>e same.

TODO

- The structure generated by concat() still looks like a tree, instead of a 'plain' M <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	42	135	
==>t::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstra <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	42	135	
==>t::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstra <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9803	10014	
==>ams->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('$label' => 'symbol')                
                          ),
                returns => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7897	8094	
==>ams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'b <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8844	9041	
==>ams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4307	4442	
==>NK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4307	4442	
==>NK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4307	4442	
==>NK => 1);
      print $fh $$_;
      $_ = $fn;
    }
  }
  my @cmd = ($^X, $cfg{pil2js}, @args);
  diag "@cmd";

  my $pid = open2 my($r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4134	4231	
==>, $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4134	4231	
==>, $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) i <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2499	2592	
==>e> | <code_rule> | <code_assertion>
  | <metasyntactic_var> | <symbolic_indirect_rule>
  | <ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2977	3095	
==>"strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2977	3095	
==>"strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2977	3095	
==>"strict 'refs';" afterward?
    }
    my $code = "\ndo{$decl;\n$body \n}";
    $code;
}
package PApp; @ISA = qw(EvalX:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5338	5469	
==>s &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5338	5469	
==>s &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5338	5469	
==>s &fail isn't yet implemented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3144	3347	
==>t++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3144	3347	
==>t++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3144	3347	
==>t++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4310	4427	
==>.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4310	4427	
==>.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4310	4427	
==>.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name, 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	293	390	
==>ta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	293	390	
==>ta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3985	4081	
==>nk keys %delete;
}

sub process_list {
  my $tmpl = HTML::Template->new(filehandle => *DATA, die_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1367	1467	
==>L2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1367	1467	
==>L2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1367	1467	
==>L2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5666	5789	
==>hift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $midd <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5666	5789	
==>hift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $midd <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5666	5789	
==>hift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $midd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4109	4290	
==>tr($match,0,10),"'\n"
                if $match;
            
        } # /for
            
        my $ast = $m->();

        {
            # XXX temporary hack - check if an alphan <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1156	1299	
==>rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1156	1299	
==>rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  ha <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4759	4872	
==>>blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURES <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	696	803	
==>{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

s <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	696	803	
==>{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

s <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2281	2404	
==>_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml harness: $!";
system($^X, qw(-w ./util/testgraph.pl --inlin <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7888	7985	
==>$set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7888	7985	
==>$set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	520	672	
==>} : 0 )";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_[0]', 
            match => do{ my \@match; $_[1]; \\ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1664	1793	
==>Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XX <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1664	1793	
==>Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XX <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3571	3680	
==>ast if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3571	3680	
==>ast if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1836	1927	
==>bol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname}) <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2573	2724	
==>Var    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2573	2724	
==>Var    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2979	3074	
==>bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo ==> <'$foo'>  Scary.
rule interpolated_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5735	5850	
==>ference->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->new( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15629	15725	
==>nagement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15629	15725	
==>nagement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22272	22368	
==>eclare any subroutines or export such.

The usual way that Rosetta indicates a failure is to thro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22272	22368	
==>eclare any subroutines or export such.

The usual way that Rosetta indicates a failure is to thro <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	822	931	
==>position();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($from);
  my $position = -1;
  $me- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23746	23842	
==>r not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23746	23842	
==>r not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
tha <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2261	2357	
==>NITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->of <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3487	3570	
==>-isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_cor <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3487	3570	
==>-isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_cor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2685	2799	
==>verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2685	2799	
==>verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2685	2799	
==>verbose;
      push @components, [inline => "// File: $file\n" . slurp($file) . "\n"];
    } else {
      push @com <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29543	29658	
==>ser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29543	29658	
==>ser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	355	462	
==>ser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	93	218	
==>ERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	93	218	
==>ERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	93	218	
==>ERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32394	32493	
==>er> does not have an identical header to the invocant relation.  This
method has an alias named C<pl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36944	37043	
==>er> does not have an identical header to the invocant relation.  This
method has an alias named C<pl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36234	36333	
==>er> does not have an identical header to the invocant relation.  This
method has an alias named C<pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3638	3747	
==>add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3638	3747	
==>add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3638	3747	
==>add_method('dump' => ::make_method(sub { 
    my $self = shift;
    require Data::Dumper;
    $Data::Dumper::M <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	257	363	
==>lti method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# A <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	257	363	
==>lti method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# A <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7892	7993	
==>bless_with_prefix_and_cleanup($v,$prefix);
	    } elsif(defined $v) {
		$$o{$_} = "$prefix$v"
		    if <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12811	12905	
==>either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For exampl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12811	12905	
==>either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For exampl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7329	7423	
==>IsMulti, $pSubBody);
}
sub code_helper {
    my($name,$pType, $pParams, $pLValue, $pIsMulti, $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19501	19595	
==>o_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19501	19595	
==>o_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19501	19595	
==>o_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) < p6_t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33994	34090	
==>en't supported by a program or its libraries.
When translating a message, a match in found in the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33994	34090	
==>en't supported by a program or its libraries.
When translating a message, a match in found in the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2121	2217	
==>S::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling.. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2121	2217	
==>S::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling.. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2121	2217	
==>S::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; precompiling.. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9546	9667	
==>od todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1639	1754	
==>od todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1639	1754	
==>od todo returns Bit ( $self: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::B <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	978	1098	
==>tinue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{en <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	431	525	
==>gs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an im <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	431	525	
==>gs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an im <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4710	4870	
==>0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should di <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4710	4870	
==>0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should di <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2456	2547	
==>}{$symbol};

    my $val = $self->{cache}{$symbol} = Blondie::Compiler::Placeholder->new(und <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7307	7416	
==>--> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define these all in t <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6601	6698	
==>ent>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6601	6698	
==>ent>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19248	19346	
==>r($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19248	19346	
==>r($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19248	19346	
==>r($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STORE' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8089	8213	
==>ew(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8089	8213	
==>ew(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $va <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2546	2644	
==>{
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open (${r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2430	2530	
==>:Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2430	2530	
==>:Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2430	2530	
==>:Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2106	2219	
==>t" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2106	2219	
==>t" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2106	2219	
==>t" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9307	9441	
==>st_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9295	9429	
==>st_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	550	673	
==>) && 
         (blessed($value) && $value->isa('type')))
            || confess "Keys must be strings, and values must be na <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7385	7496	
==>not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7385	7496	
==>not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7385	7496	
==>not values.
  reduce -> $a, $b {; my $B = $b; my $A = $a; $B => $A }, reverse @args;
}

sub prefix:«[=]» (*@va <==
3	/Users/nnunley/pugs/util/func_refact.pl	1731	1849	
==>es->{$f}}) {
                next if $set->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2087	2186	
==>est, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2145	2244	
==>est, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1869	2022	
==>tc.)
    Str         Perl string (Unicode semantics)
    Num         Perl number
    Complex     Perl complex number
    Ref         Perl reference
    Bo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	156	258	
==>et know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	156	258	
==>et know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition c <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15556	15648	
==>e mutually recursive, they will easily be
able handle arbitrarily complex data structures aut <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15614	15706	
==>e mutually recursive, they will easily be
able handle arbitrarily complex data structures aut <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	324	438	
==>tr() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	324	438	
==>tr() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	324	438	
==>tr() is non-destructive
#
# 2005-08-30
# * new hook 'clone'
# * some constructors implement deep cloning
# * functi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8549	8650	
==>Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation->new(
			typ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24036	24129	
==>-based approach to substitute the user's preferred
language into the program code itself, so i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24036	24129	
==>-based approach to substitute the user's preferred
language into the program code itself, so i <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3069	3247	
==>}
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@resul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3046	3144	
==>ovide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $eve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3046	3144	
==>ovide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $eve <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1433	1529	
==>raphy are there.  See those modules for details.

The C<new> constructor takes only one option, C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1433	1529	
==>raphy are there.  See those modules for details.

The C<new> constructor takes only one option, C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8669	8791	
==>, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8862	8984	
==>, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1280	1422	
==>f=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can aut <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1280	1422	
==>f=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can aut <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1280	1422	
==>f=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can aut <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3899	4022	
==>::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4092	4215	
==>::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3490	3597	
==>ex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1086	1202	
==>l6::Perl5::emit( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10911	11025	
==>runperl(): 'progs' must be an ARRAYREF " . _where()
	    unless ref $args{progs} eq "ARRAY";
        foreach my $pr <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	284	388	
==>l_to { $_[0]->equal_to($_[1]) == bit->new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16854	17057	
==>eturn $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16854	17057	
==>eturn $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16854	17057	
==>eturn $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3834	3946	
==>rgument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3834	3946	
==>rgument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3834	3946	
==>rgument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unary or nullary block for &re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4840	4960	
==>for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... got the right cleared x for p3d');
is($p3d->get_y, 0, '... got <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1309	1414	
==>$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1309	1414	
==>$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1309	1414	
==>$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$x1) { <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	55	156	
==>:Long;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
use File::Basename  qw<basename <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21466	21559	
==>few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21466	21559	
==>few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1906	2021	
==>ams{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role 'TestBu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20199	20287	
==>h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Author <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20199	20287	
==>h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Author <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13900	14030	
==>nical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13900	14030	
==>nical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13900	14030	
==>nical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	374	495	
==>$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	374	495	
==>$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	374	495	
==>$x}.length : {$y}.length;
      for(var i = 0; i < minlen; i++) \{
        res += String.fromCharCode({$x}.charCodeAt(i) $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2369	2489	
==>pected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2369	2489	
==>pected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VA <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2111	2209	
==>egexp::Parser Objects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag handling is current <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18529	18648	
==>LAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18529	18648	
==>LAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1053	1169	
==>, 0, 1),
	       name          => substr($param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optiona <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1027	1150	
==>hild]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an ex <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1027	1150	
==>hild]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2077	2176	
==>ror(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2077	2176	
==>ror(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2077	2176	
==>ror(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4405	4510	
==>'inc/BUNDLES';
    $args{base}     ||= $base_path;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21216	21312	
==>but not required) that each Perl package which
uses this would come up with keys which are unique <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21216	21312	
==>but not required) that each Perl package which
uses this would come up with keys which are unique <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22795	22897	
==>$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22795	22897	
==>$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22795	22897	
==>$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2081	2337	
==>} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relation;

    # External p <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3721	3829	
==>ut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3721	3829	
==>ut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6348	6482	
==>elf) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6348	6482	
==>elf) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6348	6482	
==>elf) => '@:superclasses') = [ 
                map { ::opaque_instance_class($_) } @{$superclasses}
            ];
            ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11993	12173	
==>d_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11993	12173	
==>d_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11993	12173	
==>d_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2728	2830	
==>=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2728	2830	
==>=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4252	4354	
==>=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Te <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4801	4897	
==>$node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_ass <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4801	4897	
==>$node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_ass <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2589	2805	
==>d_alternatives config 
                                   dir] 
                            );
            
            ### set these 2 first, the other methods rely on it
            $obj->dir( $dir );
            $o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12830	13001	
==>le
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12824	12995	
==>le
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3395	3518	
==>h
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3612	3735	
==>h
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub h <==
3	/Users/nnunley/pugs/util/package-osx.pl	8925	9027	
==>opied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($dest, %symlinks) = @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3602	3699	
==>REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3602	3699	
==>REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_k <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3108	3270	
==>bj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14415	14511	
==>des (it does not support any analogy of CDATA sections, though).
The Node class is pure and deter <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14415	14511	
==>des (it does not support any analogy of CDATA sections, though).
The Node class is pure and deter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12733	12877	
==>e other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12733	12877	
==>e other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12733	12877	
==>e other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26304	26404	
==>=============

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Langu <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1992	2091	
==>::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1992	2091	
==>::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2467	2570	
==>_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2467	2570	
==>_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2206	2335	
==>n::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2206	2335	
==>n::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @IS <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2206	2335	
==>n::EvalX::bb_tree_is_var = 1;
    my $s = $_[0]{'pVarName'};
    "\n# $s\n".
    p6_var_macro($s,2)
    ."\n";
}
package PPad; @IS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9174	9282	
==>Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9170	9278	
==>Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22121	22362	
==>thod eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22121	22362	
==>thod eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22121	22362	
==>thod eq 'fetch' ) {
                    # warn "FETCHING THINGS @param";
                    if ( @param == 0 ) {
                        # whole Array fetch
                        return $self;
                    }
                    my $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	389	559	
==>~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	389	559	
==>~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7638	7764	
==>C, target, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  nam <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1323	1444	
==>";
    (blessed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18003	18093	
==>e,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18314	18404	
==>e,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13657	13781	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15182	15306	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12649	12761	
==>) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new( heading => $!h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15680	15890	
==>&&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15680	15890	
==>&&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $arg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15680	15890	
==>&&
                   $method_table->{$label};             
        }
        confess "Method ($label) not found in \$::Class";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $arg <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3872	3975	
==>f $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::ha <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3872	3975	
==>f $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::ha <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7297	7384	
==>,R2) --> p5_condition_test(Rk), p5_concatenation(R1), p5_condition_alternative(R2).
p5_c <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19388	19486	
==>elation/tuple attribute is a column, but it is not the same as a table.

The intended interface and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23940	24038	
==>elation/tuple attribute is a column, but it is not the same as a table.

The intended interface and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22456	22554	
==>elation/tuple attribute is a column, but it is not the same as a table.

The intended interface and <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	124	264	
==>rs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	124	264	
==>rs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8506	8617	
==>}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.write( $footer ) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16547	16657	
==>substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16547	16657	
==>substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=h <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2282	2384	
==>head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system.

These objects are chang <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3629	3724	
==>he operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Oper <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3629	3724	
==>he operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Oper <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3629	3724	
==>he operator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Oper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7697	7813	
==>name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7697	7813	
==>name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7697	7813	
==>name;
    push @js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8652	8836	
==>on( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12129	12313	
==>on( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2506	2617	
==>by actually running a command.

Returns the perl version on success and false on failure.

=cut

sub _perl_versi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9590	9683	
==>s_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9590	9683	
==>s_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9590	9683	
==>s_slurpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4490	4615	
==>q $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of some <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4490	4615	
==>q $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of some <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4490	4615	
==>q $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of some <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	903	1020	
==>ey} || $self->SUPER::can($key);
	}

	sub get {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9581	9678	
==>rt such.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most oft <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9581	9678	
==>rt such.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most oft <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18191	18304	
==>::Example $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.j <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17302	17395	
==>to the
localization methodology that is described here, and hence provides these
benefits to d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17302	17395	
==>to the
localization methodology that is described here, and hence provides these
benefits to d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1140	1262	
==>f, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } fina <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1140	1262	
==>f, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } fina <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1140	1262	
==>f, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      throw err;
    } fina <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1305	1409	
==>$x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1305	1409	
==>$x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1305	1409	
==>$x0,$x1) { $x0.Array::zip($x1) }
multi sub infix:<Y> # is assoc<list>    XXX Pugs parser TODO 
    ($x0,$ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22212	22308	
==>: '$n' with sigil '$sigil'" if !$space;
	my @parts = split('::',$mn);
	$parts[-1] = $space."_".$p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15745	15839	
==>n error message, the
application's developer should see more details than joe public would.

Al <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15745	15839	
==>n error message, the
application's developer should see more details than joe public would.

Al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6138	6276	
==>fined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6138	6276	
==>fined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6138	6276	
==>fined $key ) {
                    $value = $_[0]->fetch( $key );
                    my $p = Pair->new( '$.key'=>$key, '$.value'=>$value ) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1536	1660	
==>cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1536	1660	
==>cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12342	12459	
==>ED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove this packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2012	2123	
==>def}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2012	2123	
==>def}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2012	2123	
==>def}, etc.

# TODO - test - how does a scalar that contains a hash is accessed?
# TODO - test $x := %hash - 'und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1395	1491	
==>relude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1395	1491	
==>relude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1395	1491	
==>relude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3676	3766	
==>her>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, pub <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3676	3766	
==>her>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, pub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8881	9029	
==>rson' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8881	9029	
==>rson' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           se <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16653	16757	
==>would be plausible places to hide data.
Perl_re_dup just copies them.

  struct reg_data *data;  /* Addit <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	44	147	
==>e are a couple of things going on here.

* These are perl6 implementations of /builtins/
* They sometime <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14748	14833	
==>le, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14748	14833	
==>le, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3168	3270	
==>returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method di <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3168	3270	
==>returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method di <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	292	398	
==>ubPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Binding @.subBinding <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8517	8616	
==>ally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-en <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8517	8616	
==>ally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-en <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	272	414	
==>::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dir <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1212	1436	
==>able ].
                                           q[or does not exist]);
                                    return;
                            };    
use constant IS_DIR         => sub { return 1 if -d $_[-1] };

use const <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16295	16388	
==>ons and packages that empowers single binaries to support N
locales or user types simultaneous <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16295	16388	
==>ons and packages that empowers single binaries to support N
locales or user types simultaneous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2684	2792	
==>eters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2684	2792	
==>eters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2684	2792	
==>eters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1742	1851	
==>unction (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1742	1851	
==>unction (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1742	1851	
==>unction (arr, sep) {
      return arr.join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7305	7420	
==>ned";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7305	7420	
==>ned";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7305	7420	
==>ned";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PIL::TCxtLValue; o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9070	9173	
==>Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9070	9173	
==>Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9070	9173	
==>Root:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1141	1241	
==>s module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1141	1241	
==>s module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list() <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1141	1241	
==>s module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method concat_list() <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1174	1281	
==>udes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, * <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1174	1281	
==>udes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, * <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26242	26338	
==>- This contains zero or more member tuples of
the Relation::Example; each Set member is a Mapping <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2111	2228	
==>" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2099	2216	
==>" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2584	2716	
==>ew PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2584	2716	
==>ew PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2584	2716	
==>ew PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10490	10677	
==>d
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10490	10677	
==>d
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10490	10677	
==>d
            )
          ) {
            array[idx] = new PIL2JS.Box(undefined);
          }
          array[idx].STORE(n);
          return n;
        }
      );

      ret.uid = array[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4867	4984	
==>d($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4867	4984	
==>d($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4867	4984	
==>d($method_source);
    warn "post: " . $method_source if $DEBUG;    
    my $method = eval $method_source;
    die "me <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4103	4209	
==>$cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if ! <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14122	14225	
==>ed, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14122	14225	
==>ed, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1692	1826	
==>{ <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

r <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1692	1826	
==>{ <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2445	2569	
==>cted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2352	2473	
==>cted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27867	27966	
==>__>.  Don't worry -- if you don't define
a base class for your module's objects, or the object you c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9332	9483	
==>passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnosti <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1450	1585	
==>passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnosti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1450	1585	
==>passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnosti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13948	14077	
==>)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13948	14077	
==>)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13948	14077	
==>)
            if $next->has_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	965	1104	
==>confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	965	1104	
==>confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	965	1104	
==>confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3590	3710	
==>is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($mo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3648	3768	
==>is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6960	7178	
==>'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6960	7178	
==>'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6960	7178	
==>'},
                                        $body,
                                        'macro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5025	5128	
==>@PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5025	5128	
==>@PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stom <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5025	5128	
==>@PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stom <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38048	38223	
==>r' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38048	38223	
==>r' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38048	38223	
==>r' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4299	4435	
==>>{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4439	4575	
==>>{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5147	5263	
==>elf->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  pa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6463	6758	
==>e satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6927	7222	
==>e satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2936	3060	
==>[2]) }
}

sub CheckTail {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7725	7863	
==>f ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7725	7863	
==>f ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7725	7863	
==>f ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8284	8434	
==>f ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit e <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8284	8434	
==>f ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3985	4091	
==>ntrol:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3985	4091	
==>ntrol:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3985	4091	
==>ntrol:<unless> ($xx0,$xx1,$xx2) {
    "do{ if (!p6_to_b($xx0)) { $xx1 } else { $xx2 } }";
};
MACROP5   stat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8860	8983	
==>ilder::TestPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1016	1131	
==>ilder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1016	1131	
==>ilder::TestPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	787	960	
==>nt> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	787	960	
==>nt> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statem <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6723	6829	
==>IL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "pilrun";
  /PIR/i     and return "pir";
  return "no <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15982	16080	
==>times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These me <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15982	16080	
==>times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These me <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10684	10772	
==>v", !.
p6_char_class(class_neg(vertical_space))    --> "\\H", !.
p6_char_class(class_pos( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16905	17031	
==>s\n";
        _diag "# STATUS: $status\n";
    }

    # Use the first line of the program as a name if none was given
    unles <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1567	1684	
==>Utils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1478	1577	
==>Utils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	697	821	
==>ue;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	697	821	
==>ue;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	697	821	
==>ue;
        }
    }
}

sub DESTROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5342	5486	
==>s;
      my $x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18240	18336	
==>dard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
reques <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18240	18336	
==>dard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
reques <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9370	9479	
==>stderr to stdout
#   args     => [ command-line arguments to the perl program ]
#   verbose  => print the comm <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4937	5030	
==>$Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the righ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7605	7698	
==>$Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2560	2682	
==>js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2560	2682	
==>js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2560	2682	
==>js(@_);
  die "Error: Couldn't compile to PIL!\n" if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	955	1041	
==>printf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	955	1041	
==>printf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	955	1041	
==>printf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12880	13102	
==>ash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12880	13102	
==>ash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $k <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12880	13102	
==>ash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->store( $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	423	540	
==>EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	423	540	
==>EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	423	540	
==>EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4480	4612	
==>ass_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4480	4612	
==>ass_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4480	4612	
==>ass_name eq $next->name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance of s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4089	4209	
==>el_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be give <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4089	4209	
==>el_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be give <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4089	4209	
==>el_base};

  my $tmp;
  for(@args) {
    if(ref $_ and defined $tmp) {
      die "Only one reference argument may be give <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	982	1091	
==>}

sub GolfScore {
   my $script = shift;
   open(FF, $script) or die "error: open '$script'";
   my $golf = 0 <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2873	2975	
==>t::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ? <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2873	2975	
==>t::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1767	1879	
==>plementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1767	1879	
==>plementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1767	1879	
==>plementation. These
    # methods are then required to be implemented by the 
    # composing class.
    # (see A <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	271	375	
==>/ &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	271	375	
==>/ &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	271	375	
==>/ &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4418	4540	
==>e { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4418	4540	
==>e { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4418	4540	
==>e { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { compile($_[0]) }

sub compile <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23099	23203	
==>must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27651	27755	
==>must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=ite <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26428	26532	
==>must match a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7355	7507	
==>' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7355	7507	
==>' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7355	7507	
==>' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macro') {
        my($name <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5881	5991	
==>[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) { <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5881	5991	
==>[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	475	581	
==>},
);

# parsed: - the rule replaces the right side
# note: S06 - 'chain' can't be mixed with other types i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3373	3493	
==>ot defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3373	3493	
==>ot defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3373	3493	
==>ot defined $subname or $subname =~ /^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2407	2511	
==>24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2407	2511	
==>24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2407	2511	
==>24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2normal(code.FETCH(), [PIL2JS.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4214	4338	
==>if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4214	4338	
==>if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4214	4338	
==>if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys];
    };
  } elsif $overlap {
    my %mods_altered = %mod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11164	11336	
==>n" .
                Runtime::Perl5::RuleOps::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	87	184	
==>cific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An obje <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	87	184	
==>cific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An obje <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17382	17533	
==>nd skips)

  todo              number of todo tests seen
  bonus             number of todo tests which 
                      unexpectedly passed

  sk <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	35	140	
==>0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	35	140	
==>0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10127	10224	
==>L::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10127	10224	
==>L::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10127	10224	
==>L::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6018	6124	
==>tine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'V <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6018	6124	
==>tine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'V <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2917	3023	
==>tine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'V <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8570	8680	
==>NV{GHC_PKG};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19534	19628	
==>ables rather than user-defined
relation variables.  In SQL terms, you create or alter tables by <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19534	19628	
==>ables rather than user-defined
relation variables.  In SQL terms, you create or alter tables by <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1039	1145	
==>:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$ <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1039	1145	
==>:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4030	4195	
==>?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4030	4195	
==>?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4030	4195	
==>?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( '$.unboxed' => &Perl6::Value::Num::Inf );
            }, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6370	6470	
==>art of the rule, which unsets the flag before returning.

- this can also be used to do fail() and as <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6164	6263	
==>art of the rule, which unsets the flag before returning.
- this can also be used to do fail() and as <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	357	466	
==>}  ||= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  print <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24090	24187	
==>guage into the program code itself, so it then becomes a version of that
language.  By contrast, L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24090	24187	
==>guage into the program code itself, so it then becomes a version of that
language.  By contrast, L <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2661	2765	
==>{$_[0]}[1 .. $#{$_[0]}]) }

sub shift   : method { CORE::shift(@{(shift)}) }
sub pop     : method { CORE: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21242	21340	
==>t delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21242	21340	
==>t delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9613	9726	
==>ailed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9613	9726	
==>ailed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9613	9726	
==>ailed. $@" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12709	12833	
==>ion () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12709	12833	
==>ion () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12709	12833	
==>ion () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1867	2012	
==>a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1867	2012	
==>a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1867	2012	
==>a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {undef() => undef}, {pair undef, und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3331	3432	
==>"INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3331	3432	
==>"INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3331	3432	
==>"INFIX COMMA: ",p6_to_s($a)," -- SLICE: ", p6_to_s($idx),"\n";
    $a->slice( $idx );
};
# MULTI SUB A <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1722	1946	
==>sif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1259	1348	
==>cludes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._strin <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1259	1348	
==>cludes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._strin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5368	5477	
==>m B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  no <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5368	5477	
==>m B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7565	7674	
==>m B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test description
  no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38034	38190	
==>scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38034	38190	
==>scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38034	38190	
==>scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $array->splice( $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2226	2314	
==>::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2226	2314	
==>::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2226	2314	
==>::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_method('has_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1151	1263	
==>rs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1151	1263	
==>rs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1151	1263	
==>rs{$attr} = ::instantiate_attribute_container($attr_obj);
        }
    }
    # this is our P6opaque data structu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1360	1465	
==>g(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1360	1465	
==>g(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1360	1465	
==>g(str).split(String(splitter));
    }
  )')(~$splitter, ~$str);
}

# XXX! $self = $CALLER::_ is a hack!!
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7365	7472	
==>->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7365	7472	
==>->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7365	7472	
==>->params->as_js_bind;
    my $wrappedbody = "$new_pad;\n$callchain$magical_vars\n$bind;\n\n$body";

    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5031	5149	
==>ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5031	5149	
==>ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5031	5149	
==>ret->elems ) { push @list, $ret->shift }
    $class->from_single( @list ); 
}

sub from_num_range {
    my $class = shi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	620	742	
==>k
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	620	742	
==>k
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	620	742	
==>k
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1524	1651	
==>nd_to_slot($idx);
                $self->get_value('@:slots')->[$idx] = $container;
            },

            'array_fetchVal' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	387	488	
==>turns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is expor <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	387	488	
==>turns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11989	12087	
==>s = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11989	12087	
==>s = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11989	12087	
==>s = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_='PIL::Run::Root::'.$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16493	16612	
==>ASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16493	16612	
==>ASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16493	16612	
==>ASS)"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8036	8226	
==>6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8036	8226	
==>6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8036	8226	
==>6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7055	7158	
==>dd_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7055	7158	
==>dd_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7055	7158	
==>dd_method('collect_all_roles' => ::make_method(sub { $::Role }));

# manually add the ::Role
# NOTE:
# t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2410	2513	
==>";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2410	2513	
==>";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2410	2513	
==>";
  my $js  = run_pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10518	10637	
==>me = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10518	10637	
==>me = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incd <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10518	10637	
==>me = $name.".pm" if $name !~ /\.pm/; # help out use();
    my $fn = File::Spec->catfile(split(/::/,$name));
    my @incd <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	165	305	
==>t;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        ret <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	165	305	
==>t;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        ret <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1306	1408	
==>efaults and
Currying in a real context.

The newton function must receive at least:

    y - target val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2669	2788	
==>s {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2669	2788	
==>s {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2669	2788	
==>s {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_discar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7859	7986	
==>:immediate_statement_rule {
    return emit($_[0]);
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) ) <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	86	176	
==>!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

metho <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	86	176	
==>!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

metho <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	970	1081	
==>($chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textasci <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	557	661	
==>ts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	557	661	
==>ts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4415	4522	
==>ed to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever blessing they had <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4415	4522	
==>ed to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever blessing they had <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4415	4522	
==>ed to by $myobj and reblesses them into
New::Namespace. This completely overrides whatever blessing they had <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8177	8302	
==>{ 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8177	8302	
==>{ 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8177	8302	
==>{ 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2517	2612	
==>(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2517	2612	
==>(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2517	2612	
==>(b), $mapStr2Fill("^", "a", "b")",
  "prefix:«~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "Stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3797	3917	
==>ined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3797	3917	
==>ined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3797	3917	
==>ined1_autovivify2)=@_;
    my $code = ("package ".p6_main()."; "
		.&p6_var_macro($name,$defined1_autovivify2));
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36651	36757	
==>vocant.  Another trivial case is where any any source relation has zero
tuples, in which case the result do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41200	41306	
==>vocant.  Another trivial case is where any any source relation has zero
tuples, in which case the result do <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40823	40929	
==>vocant.  Another trivial case is where any any source relation has zero
tuples, in which case the result do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2158	2277	
==>p {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2158	2277	
==>p {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2158	2277	
==>p {
      !$_->is_slurpy and
      $_->type->matches("Any")      ||
      $_->type->matches("Junction") ||
      $_->typ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13121	13232	
==>Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13121	13232	
==>Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $e <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18417	18516	
==>tle documentation, we
reverse engineering perl source.

We basically use the perl regcompp and regex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2962	3109	
==>d.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2962	3109	
==>d.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2962	3109	
==>d.
    $name =~ /([\$\@\%\&\:])(.+)/ or die "bug $name";
    my $sigil = $1;
    my $barename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9959	10102	
==>grep that out
        my $new_alt;
        {   my $wanted = join '-',  $inst_pkg->prefix, $inst_pkg->name;

            ### find all packages th <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	457	595	
==>$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Duration::Gregorian is export { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1180	1317	
==>gs ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

1;

# Local variables <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3439	3583	
==>$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3439	3583	
==>$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3439	3583	
==>$off);
      }
      my $match;
      if !@a {
        $match = $new_Match(?0, undef, undef, "", [], ());
      } else {
        my $from = @a[0] <==
3	/Users/nnunley/pugs/util/func_refact.pl	1624	1770	
==>$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for my $t (@{$nodes->{$f}}) {
                next if $se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19738	19832	
==>ate' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19738	19832	
==>ate' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the Rose <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12703	12798	
==>he module provides the following functions:

=over 4

=item decode_entities( $string, ... )

Thi <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12703	12798	
==>he module provides the following functions:

=over 4

=item decode_entities( $string, ... )

Thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12611	12747	
==>PER::status();
          my $status               = $self.Test::Builder::Test::WithReason::status();
          $status{"TODO"}          = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2977	3109	
==>PER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2977	3109	
==>PER::status();
        my $status               = $self.Test::Builder::Test::WithReason::status();
        $status{"TODO"}          = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5122	5265	
==>ores => [
    map {{
      name       => $_,
      categories => $runcores{$_},
    }} sort keys %runcores
  ]);
  print $tmpl->output;
}

sub p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2913	3026	
==>en && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_e <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2913	3026	
==>en && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	511	605	
==>w((shift)->fetch + 0)  }
sub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)->fet <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1909	1999	
==>> represents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1998	2088	
==>> represents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4501	4615	
==>e to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4501	4615	
==>e to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4501	4615	
==>e to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  my $r <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	564	690	
==>$dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	564	690	
==>$dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4964	5053	
==>ing from test-file-name to test-record
$files->{$_->{file}} = $_ for @{ $tests->{meat}->{t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4708	4840	
==>o { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub vari <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4696	4828	
==>o { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub vari <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14859	14952	
==>Document>

Rosetta::Model::Document - This stores a reference to the Document that
this Node a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14859	14952	
==>Document>

Rosetta::Model::Document - This stores a reference to the Document that
this Node a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	974	1079	
==>Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	974	1079	
==>Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	974	1079	
==>Pugs doesn't know that we've a precompiled copy of Test.pm lying around and
  # that we'll link it in; thu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3179	3276	
==>not find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3179	3276	
==>not find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3943	4070	
==>::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $te <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2177	2304	
==>::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2958	3085	
==>::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	719	853	
==>it;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	719	853	
==>it;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	719	853	
==>it;},
    'e|eval=s'  => \@eval,
    'repl'      => \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2954	3065	
==>thod empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2954	3065	
==>thod empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	194	289	
==>Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable';

my $OBJECT_ID = num-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1932	2059	
==>to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1932	2059	
==>to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1932	2059	
==>to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7517	7695	
==>ef($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7517	7695	
==>ef($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7517	7695	
==>ef($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	656	762	
==>er.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	656	762	
==>er.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	656	762	
==>er.html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3546	3668	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3739	3861	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10237	10347	
==>::negate( \\&{'$namespace$_[0]'} )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15922	16016	
==>TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15980	16074	
==>TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8227	8337	
==>ns a category object.

options:

=item * grammar => $category_name - the name of this category 
(a namespa <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	96	204	
==>.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	96	204	
==>.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	18	120	
==>:Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	18	120	
==>:Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	18	120	
==>:Main;

require Error;
require Perl6::Value;
require Perl6::Junction;

#require Math::BigInt;
sub Math: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37391	37531	
==>}
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37391	37531	
==>}
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37391	37531	
==>}
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns $ret";
    return $ret;
}

sub store {
    my $arr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5553	5819	
==>returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9030	9296	
==>returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1781	1968	
==>s{'$.description'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBui <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1220	1334	
==>ce:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Re <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1357	1454	
==>ring runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first- <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1357	1454	
==>ring runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10582	10699	
==>o 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $sa <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10582	10699	
==>o 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $sa <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13061	13177	
==>="details" id="details_<tmpl_var name=id>">
            <td colspan="11" class="indent3">
              <tmpl_loop na <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5338	5508	
==>_version and (    $Config{osname} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we' <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1016	1156	
==>~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $rege <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1016	1156	
==>~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $rege <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6002	6102	
==>hod_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6002	6102	
==>hod_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6002	6102	
==>hod_source =~ s/(\$[.:]\w+)/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)/g;
    
    # array access <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1291	1396	
==>->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1291	1396	
==>->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1291	1396	
==>->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6935	7027	
==>self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6935	7027	
==>self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6935	7027	
==>self => '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4205	4308	
==>s($Object->id, 2, '... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1214	1315	
==>uld be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1214	1315	
==>uld be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1214	1315	
==>uld be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every invocation.
  #   $src =~ s/^ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7077	7242	
==>(my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have somet <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7541	7706	
==>(my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have somet <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3401	3500	
==>pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -st <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3401	3500	
==>pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1072	1170	
==>h));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1072	1170	
==>h));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1072	1170	
==>h));
  })')($self, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2248	2343	
==>d_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2248	2343	
==>d_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2248	2343	
==>d_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3985	4094	
==>tespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parame <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3985	4094	
==>tespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parame <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3985	4094	
==>tespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($method_type, @params) = $self->_parse_parame <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6175	6375	
==>inks to minimize storage
                  #      requirements
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            sto <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27813	27918	
==>value that is optionally a calculation using original attribute values as
inputs.  As a trivial case, if C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32365	32470	
==>value that is optionally a calculation using original attribute values as
inputs.  As a trivial case, if C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31457	31562	
==>value that is optionally a calculation using original attribute values as
inputs.  As a trivial case, if C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1302	1400	
==>nymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard aga <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1302	1400	
==>nymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard aga <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1302	1400	
==>nymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard aga <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2945	3045	
==><", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2945	3045	
==><", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2945	3045	
==><", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\s*(\d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9736	9850	
==>y($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9736	9850	
==>y($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9736	9850	
==>y($xx,$use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9429	9560	
==>t--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9429	9560	
==>t--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9429	9560	
==>t--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @l <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	800	915	
==>x works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Code $value = { $^v.[1] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9533	9619	
==>set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9533	9619	
==>set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11038	11155	
==>elems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11038	11155	
==>elems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11038	11155	
==>elems =>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6677	6777	
==>art` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fg <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6677	6777	
==>art` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fg <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25407	25502	
==>two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25407	25502	
==>two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1008	1097	
==>le|unless)';
our $re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$re_symbo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8537	8629	
==>he Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8537	8629	
==>he Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13764	13965	
==>>push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if ind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13764	13965	
==>>push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if ind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13764	13965	
==>>push( $_ ) for @list;
                }

                # given $list = (4,5,6)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if ind <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18360	18487	
==>$conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($conversion,"$arg" <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9602	9720	
==>

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 1 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9602	9720	
==>

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 1 <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	912	1012	
==>rl interface to use the B<libpcre> library for
regular expressions.

=head1 AUTHORS

Audrey Tang

=he <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	9	107	
==>class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	9	107	
==>class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8767	8869	
==>ix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8767	8869	
==>ix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8767	8869	
==>ix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {.. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	612	778	
==>SA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION , <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9334	9451	
==>r @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9334	9451	
==>r @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1393	1504	
==>rted_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1393	1504	
==>rted_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1393	1504	
==>rted_p5{$k} {
        warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
      } elsif !$p5 && ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16762	16944	
==>> 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16762	16944	
==>> 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16762	16944	
==>> 'instance');
            if ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatch <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2237	2350	
==>ory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        retu <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2237	2350	
==>ory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        retu <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1406	1502	
==>ir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File::Spec->catfile($path, "lib" <==
3	/Users/nnunley/pugs/util/package-osx.pl	10837	10943	
==>o / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	6	101	
==>ommon/p6rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-rege <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	6	99	
==>ommon/p6rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-rege <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	716	813	
==>($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi meth <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	716	813	
==>($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi meth <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	409	594	
==>Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$stri <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8471	8572	
==>].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bo <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8471	8572	
==>].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1814	1959	
==>ental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1599	1738	
==>ental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1599	1738	
==>ental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7379	7551	
==>' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7379	7551	
==>' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7379	7551	
==>' ) ? $_->clone : $_
                    } @items;
            $result->push( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1423	1542	
==>function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1423	1542	
==>function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1423	1542	
==>function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	974	1083	
==>E_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	974	1083	
==>E_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	974	1083	
==>E_PREFIX");
    } @{ $self->{pSyms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1930	2035	
==>ule, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1930	2035	
==>ule, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($modul <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1077	1173	
==>kludge would be
# unsustainable, and unsuitable for anything but throwaway code.
# However, the p <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11637	11759	
==>Pugs::Internals::runInteractiveCommand($command);
        close $err;
        close  ($r ?? $in !! $out);
        ($r ?? $o <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8722	8825	
==>set.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8722	8825	
==>set.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4423	4535	
==>- PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4423	4535	
==>- PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4423	4535	
==>- PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16921	17020	
==>LTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16921	17020	
==>LTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16921	17020	
==>LTI SUB Pugs::Internals::hIsReadable ($xx) {...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9361	9462	
==>,",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10847	10945	
==>ent set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "unive <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10847	10945	
==>ent set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "unive <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	972	1094	
==>elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! "." <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	972	1094	
==>elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! "." <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	589	690	
==>imes you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=he <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	589	690	
==>imes you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=he <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5587	5719	
==>,
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5587	5719	
==>,
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2945	3060	
==>nt? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2945	3060	
==>nt? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2945	3060	
==>nt? ==> We can't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1007	1125	
==>( $self->{ast}() )};

    eval {
        $self->{perl5} = Pugs::Emitter::Perl6::Perl5::emit( 
            $self->{g <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	662	763	
==>"1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	662	763	
==>"1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1134	1239	
==>om output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1134	1239	
==>om output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1214	1319	
==>om output object; it gets in the way of the first test
$tb_output.output();

sub plan ( Int $tests ) is ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2895	3052	
==>can only add types to a list"
            foreach @_;
    CORE::unshift(@{$self} => @_); 
    nil->new();
}

sub push : method { 
    my $self = shift;
    (b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5656	5756	
==>ined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is imple <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5656	5756	
==>ined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	291	394	
==>oop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	291	394	
==>oop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	291	394	
==>oop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2573	2673	
==>IL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2573	2673	
==>IL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2573	2673	
==>IL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1356	1483	
==>ss, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1356	1483	
==>ss, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1356	1483	
==>ss, %attrs);     
               
    # and now return it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6811	6906	
==>)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking the I< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6811	6906	
==>)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking the I< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12053	12186	
==>PER::status();
          my $status      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          r <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2457	2584	
==>PER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2457	2584	
==>PER::status();
        my $status      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4934	5080	
==>s ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4946	5092	
==>s ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capt <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1707	1824	
==>as  {  \$<number>    \:\=  <construct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <con <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5167	5385	
==>> -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>" <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5167	5385	
==>> -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>" <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	15	118	
==>lt
class Person {
	method name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Hal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1401	1504	
==>optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1401	1504	
==>optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1610	1713	
==>optional(1)
		if $param->{optional};

	    push @{$positional}, $db_param;
	    $named->{$db_param->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3998	4097	
==>ameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3998	4097	
==>ameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3998	4097	
==>ameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1710	1803	
==>LLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1710	1803	
==>LLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1710	1803	
==>LLER::_:) { lc(substr $self, 0, 1) ~ substr($self, 1) }
method ucfirst(Str $self = $CALLER::_: <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	965	1074	
==>\N* }

rule alternation     { <non_alternation> \| <term>+? }
rule non_alternation { <conjunction> | <non_conj <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	125	230	
==>as $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	125	230	
==>as $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11208	11335	
==>gify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11208	11335	
==>gify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11208	11335	
==>gify},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2245	2357	
==>- test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2245	2357	
==>- test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2245	2357	
==>- test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Scalar package

use strict;

use Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	806	922	
==>b p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	806	922	
==>b p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	806	922	
==>b p6_isa {
    my($o,$cls)=@_;
    my $ref = ref($o);
    return 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    re <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2515	2638	
==>}
    
    #
    # Add revisions which were added, not the target though
    #
    pop @revisions;
    $target->{more_revisi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2025	2134	
==>n undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::Lis <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2025	2134	
==>n undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1623	1728	
==>c});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1623	1728	
==>c});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1623	1728	
==>c});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10816	10936	
==>thod run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("run <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10816	10936	
==>thod run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("run <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	283	376	
==>other Modules in the JIB namespace for
details.

=head1 SEE ALSO

L<JIB::Config>, L<JIB::Insta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4620	4743	
==>brule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4813	4936	
==>brule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4143	4264	
==>3078164062;
     # http://www.research.att.com/~njas/sequences/A000796
 }

multi Math::Unspecced::e ( --> Num ) {
    2.71 <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11197	11295	
==>en items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11197	11295	
==>en items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1412	1531	
==>any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1412	1531	
==>any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1412	1531	
==>any type.

=cut

# MODULE INITIALIZATION

my %subs = (
	rebless => sub {
        my($opts) = @_;
        $opts->{editor} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	362	479	
==>and practical 
# things like Object, Package and Module. It was also created
# by God (which means it is part of the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	362	479	
==>and practical 
# things like Object, Package and Module. It was also created
# by God (which means it is part of the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	362	479	
==>and practical 
# things like Object, Package and Module. It was also created
# by God (which means it is part of the c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19641	19767	
==>S++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16062	16188	
==>S++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S-> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5529	5628	
==>able can be instantiated to point to another type object
# at this point it reblesses itself

sub ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1336	1456	
==>ode;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1336	1456	
==>ode;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2406	2514	
==>.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2406	2514	
==>.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2406	2514	
==>.+)$/)[0] or $self->name);
      # "or $self->name" needed for the /^__export/ and /^__init/ subs.

    my $d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	144	273	
==>'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	144	273	
==>'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub c <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2759	2872	
==>'}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    my $self    = shift;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40063	40323	
==>)
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19612	19863	
==>)
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13152	13255	
==>-width chunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2881	2982	
==>l 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-lia <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2881	2982	
==>l 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-lia <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3228	3329	
==>l 5.

=head1 AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-lia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9760	9890	
==>e other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9760	9890	
==>e other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9760	9890	
==>e other of which 
    # is to deal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7535	7635	
==>JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7535	7635	
==>JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7535	7635	
==>JS.addmethod(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1687	1788	
==>Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1687	1788	
==>Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1687	1788	
==>Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')";
}
package VStr; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1786	1901	
==>err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @ex <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1786	1901	
==>err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @ex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1866	1981	
==>err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2855	2963	
==>{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2843	2951	
==>{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4	106	
==>sr/bin/perl

use strict;
use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel her <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2182	2277	
==>pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2182	2277	
==>pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2182	2277	
==>pArgs}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pL <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3043	3251	
==>e = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3043	3251	
==>e = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %ev <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11865	11959	
==>them with something other than C<E<lt>=E<gt>> or
C<cmp>.

=back

Any Criterion may recieve eith <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2681	2788	
==>Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2681	2788	
==>Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4205	4312	
==>Builder - Backend for building test libraries

=head1 SYNOPSIS

  module My::Test::Module;

  use Test::Buil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5039	5136	
==>est file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnosti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5039	5136	
==>est file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnosti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7236	7333	
==>est file.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnosti <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	424	528	
==>e Set is represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	424	528	
==>e Set is represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1930	2022	
==>pers::macif(%?CONFIG{'num_width'} == 64, 'subset num of num64  where { true }');
Helpers::mac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2542	2657	
==>self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2542	2657	
==>self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2542	2657	
==>self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self->clas <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	954	1093	
==>@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	954	1093	
==>@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Roset <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15126	15231	
==>::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	871	1006	
==>idimensional arrays of the match
                     object, telling captures where in the deep structure
                     to store <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	871	1006	
==>idimensional arrays of the match
                     object, telling captures where in the deep structure
                     to store <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	338	595	
==>s used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	338	595	
==>s used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version a <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	767	860	
==>losure_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previou <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	767	860	
==>losure_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previou <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5552	5662	
==>ze $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5552	5662	
==>ze $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $ev <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7558	7650	
==>:Backend::C::Prim") and ($orig_thunk->fixity || "") eq "infix") {
		return "( $params[0] $thu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5251	5373	
==>= $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    els <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5251	5373	
==>= $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    els <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14390	14497	
==>($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$reftyp};
    die "bug $refty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7702	7814	
==>S.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7702	7814	
==>S.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7702	7814	
==>S.Box.constant_func(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10849	10959	
==>EE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10849	10959	
==>EE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	55	159	
==>Module::Install::Base;
use Config ();
### This adds a 5.005 Perl version dependency.
### This is a bug an <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9768	9927	
==>le( $script ); 
        }      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### make sure w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20147	20270	
==>= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16568	16691	
==>= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on. <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26047	26145	
==>tyEscape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape { <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	898	989	
==>s fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	898	989	
==>s fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28384	28593	
==>' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                # if it is empty ... 
                $e->get('$self:')
                  ->ge <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26690	26816	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26969	27095	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	110	212	
==>kage PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_type_pairs_list { $list }

sub hlp {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17931	18027	
==>s
are "machine readable"; any application receiving such a code can identify
it easily in its con <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17931	18027	
==>s
are "machine readable"; any application receiving such a code can identify
it easily in its con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8593	8685	
==>arnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8593	8685	
==>arnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8593	8685	
==>arnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunk <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35950	36051	
==>tuple values are aligned and merged.  The heading
of the new relation is the union of the invocant and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40500	40601	
==>tuple values are aligned and merged.  The heading
of the new relation is the union of the invocant and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40114	40215	
==>tuple values are aligned and merged.  The heading
of the new relation is the union of the invocant and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12655	12745	
==>no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12655	12745	
==>no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12655	12745	
==>no strict 'vars';
package PIL::Run::ApiX::Exception;
@ISA=qw(Error);
package PIL::Run::ApiX <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5827	5973	
==>calar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   Li <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1880	2003	
==>t @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1880	2003	
==>t @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	780	879	
==>his, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexical <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	780	879	
==>his, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexical <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	780	879	
==>his, so we have to
# declare all undeclared vars.
our %UNDECLARED_VARS;

# We predeclare all lexical <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14255	14345	
==>ribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14255	14345	
==>ribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14255	14345	
==>ribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribut <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7397	7498	
==>ion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10874	10975	
==>ion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14426	14523	
==>th as
a 2 element list in (key, value) order, C<pairs> a C<Pair(key, value)>.

Note that C<kv %has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5412	5526	
==>or example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5412	5526	
==>or example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5412	5526	
==>or example:

    my $fh      = IO::File->new("data") or die "open:$!";
    my $frobber = Frotz->new({ source => $fh <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8322	8421	
==>make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a securi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8322	8421	
==>make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a securi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21710	21914	
==>_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21710	21914	
==>_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21710	21914	
==>_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6530	6644	
==><= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6530	6644	
==><= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6530	6644	
==><= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6654	6868	
==>am runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_conte <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6654	6868	
==>am runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_conte <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8015	8145	
==>er, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2243	2363	
==>x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2243	2363	
==>x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    retu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2243	2363	
==>x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    return p6_undef() if !defined $x;
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23699	23801	
==>has a value of False, it can not be further changed;
this class defaults it to False.

=back

This is t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28251	28353	
==>has a value of False, it can not be further changed;
this class defaults it to False.

=back

This is t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27064	27166	
==>has a value of False, it can not be further changed;
this class defaults it to False.

=back

This is t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8837	9040	
==>aram[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8837	9040	
==>aram[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8837	9040	
==>aram[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->nextkey;
                        }
                        return $self <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9824	9931	
==>f: have to reach down into quant.
  package Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20269	20362	
==>handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receive <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20269	20362	
==>handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receive <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	240	341	
==>rs inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written like met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	231	331	
==>rs inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written like met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1594	1686	
==>lementation classes of all the L<Blondie::Nodes> and some
more objects.

They provide stringi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2532	2663	
==>e;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2532	2663	
==>e;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2532	2663	
==>e;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8424	8517	
==>RIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8424	8517	
==>RIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8424	8517	
==>RIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt>stevan@iinteractive.comE<lt>

=cut <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	147	258	
==>ture = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = GraphViz->new();

while (<>) {
	if($_ =~ $signature) { $fn <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	445	543	
==>t::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	445	543	
==>t::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7591	7748	
==>ed)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7591	7748	
==>ed)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7591	7748	
==>ed)
            : iarr[i]
        );
      }

      return marray;
    };

    // Proxy needed for ($a, $b) = (3, 4) which really is
    // &infix:<,>($a, $b) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1719	1813	
==>r;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRS <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1719	1813	
==>r;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRS <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1	88	
==>!/usr/bin/perl

package Blondie::Backend::C::Emitter;
use base qw/Blondie::Emitter Blond <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	485	600	
==>y $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER::provides($digest);
    ($prim && $prim->can(" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2317	2423	
==>alues, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2317	2423	
==>alues, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () { <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17735	17875	
==>:pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  return MatchX->new()->set_as_failed;
}
sub match_re {
  m <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2387	2486	
==>h.

=head1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPY <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2387	2486	
==>h.

=head1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPY <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11298	11404	
==>le BUILD submethods. It is important that submethods are used
because they will not get inherited. This pro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11298	11404	
==>le BUILD submethods. It is important that submethods are used
because they will not get inherited. This pro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11298	11404	
==>le BUILD submethods. It is important that submethods are used
because they will not get inherited. This pro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1791	1957	
==>.
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1779	1945	
==>.
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1051	1153	
==>t tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1051	1153	
==>t tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - tes <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1051	1153	
==>t tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13072	13207	
==>s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13072	13207	
==>s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13072	13207	
==>s};
}
sub clear {
    my ( $this ) = @_;
    %{$this->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1603	1745	
==>else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1603	1745	
==>else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1477	1586	
==>ead1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $path <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1477	1586	
==>ead1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $path <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2291	2417	
==>' <hello>.say; '

Script or module:

    # file: hello_world.pl
    use v6-pugs;
    "hello, world".say;

    $ perl hello_worl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9980	10075	
==>performed at the moment the user tries to set the input, and input that
fails immediate evaluati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9980	10075	
==>performed at the moment the user tries to set the input, and input that
fails immediate evaluati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6378	6483	
==>ot)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where(), <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25779	25872	
==>versions of Rosetta that you modify and distribute must carry prominent
notices stating that y <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25779	25872	
==>versions of Rosetta that you modify and distribute must carry prominent
notices stating that y <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6019	6129	
==>malize_version($b) cmp _normalize_version($a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9960	10089	
==>o err_closure
    $S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6379	6492	
==>eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6391	6504	
==>eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3613	3714	
==>);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3613	3714	
==>);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3613	3714	
==>);
    cc(new PIL2JS.Box.Constant(array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1641	1783	
==>icode)
    num         native floating point
    ref         native pointer 
    bool        native boolean
    Bit         Perl single bit (al <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18820	18917	
==>r> exists as an alias for this method so you
can avoid this misspelling in your programs and still <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18820	18917	
==>r> exists as an alias for this method so you
can avoid this misspelling in your programs and still <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5304	5423	
==>e these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5304	5423	
==>e these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5304	5423	
==>e these constructs currently, it doesn't matter much (yet))
      $self->{pInv}
        ? $self->{pInv}
        : $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13008	13221	
==>>items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13008	13221	
==>>items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13008	13221	
==>>items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @res;
            }
            return pop @{$self->{pops}}   if @{$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1286	1389	
==>b_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1286	1389	
==>b_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1495	1598	
==>b_param->is_slurpy) {
		Carp::carp "positional argument after named ones" if $now_named;
	    }
	    $db <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	808	922	
==>$a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	808	922	
==>$a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	808	922	
==>$a) ?? $a !! $b() }
sub infix:<||>   ($a, Code $b) is primitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36167	36260	
==>the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36167	36260	
==>the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resu <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17644	17779	
==>nal item, the details.

  details           an array ref reporting the result of 
                    each test looks like this:

    $r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18679	18773	
==>corresponds exactly to the named
parameters of Node.new(); you need to supply its $document and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18679	18773	
==>corresponds exactly to the named
parameters of Node.new(); you need to supply its $document and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5007	5125	
==>ce_class(shift)->superclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($self, $label, $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7995	8099	
==>bc123', :capture );



  # returns a Match object that has no capture (but the 'bool' field is still true <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7726	7828	
==>bc123', :capture );

  # returns a Match object that has no capture (but the 'bool' field is still true <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6535	6669	
==>> $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2runcore {
  local <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17345	17439	
==>cribed here, and hence provides these
benefits to developers and users alike.

For some practic <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17345	17439	
==>cribed here, and hence provides these
benefits to developers and users alike.

For some practic <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	608	720	
==>l5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # s <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10156	10252	
==>slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10156	10252	
==>slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1354	1458	
==>ion is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1354	1458	
==>ion is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1354	1458	
==>ion is not supported yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be de <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5684	5807	
==>ds);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5742	5865	
==>ds);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4861	5014	
==>s->new(symbol->new('&dispatcher' => 'block')),
            returns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4944	5040	
==>ethod add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipa <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4944	5040	
==>ethod add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5426	5553	
==>xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'x <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5426	5553	
==>xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'x <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	589	731	
==>,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	589	731	
==>,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3645	3809	
==>x( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3645	3809	
==>x( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	253	346	
==>rl6::MM::Method;
use Perl6::MM::Attribute;
use Perl6::MM::C3;

use Carp 'confess';
use Scalar: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9319	9449	
==>_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <script type="text/javascript">//<![CDATA[[
    funct <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2327	2421	
==>piler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2327	2421	
==>piler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1868	1979	
==>confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1868	1979	
==>confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1868	1979	
==>confess "custom reblesser requires an editor";
    },
);

while (my($name, $editor) = each %subs) {
    my $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3745	3879	
==>ice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3745	3879	
==>ice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3745	3879	
==>ice( $i )
    }
    else {
        $a->fetch( $i->unboxed )
    }
};

# Things which dont appear in Prim.hs
MACROP5   statement_control <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2041	2158	
==>se (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	882	999	
==>se (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2688	2795	
==>ine\n2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "1st line\n2nd line\n3rd line\n4th line\n5t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1992	2100	
==>version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TO <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1992	2100	
==>version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18057	18217	
==>n $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18057	18217	
==>n $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18057	18217	
==>n $method->($self, @{$args});     
            }
        }        
    }

    ## next METHOD;
    # this mimics the 'next METHOD' 
    # construct to go to the n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3717	3821	
==>n "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3717	3821	
==>n "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3717	3821	
==>n "got the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3721	3828	
==>ot the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3721	3828	
==>ot the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3721	3828	
==>ot the list of supers :: [" . (join "], [" => @supers) . "]" if $DEBUG;
    $class->superclasses([ map { $:: <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3353	3537	
==>{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3353	3537	
==>{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1172	1261	
==>.

L<Blondie::Backend::Perl::Builtins> contains the builtin operations and values
that rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6223	6324	
==>my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6223	6324	
==>my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6223	6324	
==>my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11865	11972	
==>e actual character:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R");

This means you must have the F<cha <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4643	4737	
==>ubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Litera <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4643	4737	
==>ubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Litera <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	493	603	
==>ve'> | <':ex'> }
rule flag_overlap     { <':overlap'> | <':ov'> }
rule flag_words       { <':sigspace'> | <':s' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	971	1078	
==>ul.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	971	1078	
==>ul.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3665	3765	
==>}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3665	3765	
==>}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3665	3765	
==>}

method pairs (Hash|Pair|Array $self:) {
  my sub infix:«=:>» ($key, $value is rw) is primitive i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17687	17803	
==>ush @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  pack <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	112	219	
==>attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## -- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	112	219	
==>attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## -- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6700	6797	
==>copy internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_he <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6700	6797	
==>copy internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_he <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	978	1103	
==>$field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	978	1103	
==>$field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $fie <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36938	37040	
==>re a pair
of source relations have identical headings, for these their joining
degenerates to a C<inter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41487	41589	
==>re a pair
of source relations have identical headings, for these their joining
degenerates to a C<inter <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41110	41212	
==>re a pair
of source relations have identical headings, for these their joining
degenerates to a C<inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	127	257	
==>helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	127	257	
==>helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	127	257	
==>helper_(%h, $re, "/", "/");
}
sub JS::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1338	1447	
==>modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1338	1447	
==>modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1338	1447	
==>modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "Modifier :$k is not (yet <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4635	4736	
==>2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec failed - paren info broken\n"); exit(0) <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	979	1071	
==>m B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident retur <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	979	1071	
==>m B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident retur <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11569	11717	
==>> method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('?%params' => 'ha <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1161	1266	
==>width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1161	1266	
==>width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1931	2021	
==>head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http:// <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1931	2021	
==>head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http:// <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2587	2714	
==>) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    meth <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2587	2714	
==>) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4387	4527	
==>here ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4387	4527	
==>here ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4387	4527	
==>here ... looking for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	933	1038	
==>:SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	933	1038	
==>:SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot <==
3	/Users/nnunley/pugs/util/drift.pl	967	1062	
==>@program;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary_header = spl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1164	1287	
==>in $name $prec";
        $nprec = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10973	11080	
==>ranslate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11123	11230	
==>ranslate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7699	7793	
==>> \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9627	9721	
==>> \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7687	7781	
==>> \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	464	567	
==>omeClass"));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3408	3517	
==>/^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3408	3517	
==>/^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3408	3517	
==>/^\$/;

    # Sanitize $subname.
    PIL::fail("When calling a method, the method name must be a simple string <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24648	24786	
==>p6_is_perl6_object($x);
    return 1;
}

sub p6_declare_package {
    my($pkg,$kind)=@_;
    p6_initialize_package($pkg,$kind);
}

1;
__END <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2544	2647	
==>rs));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2544	2647	
==>rs));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($se <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	36	142	
==>da calculus in perl6-ish perl 5
# (makes use of attribute grammars and multimethods)

# first part is a typ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	110	203	
==>OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # S <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	110	203	
==>OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # S <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4050	4243	
==>( $conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	913	1020	
==>y list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" A <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	913	1020	
==>y list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2489	2595	
==>/^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_mu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2489	2595	
==>/^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_mu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2489	2595	
==>/^__init/ subs.

    my $decl = $self->multi
      ? sprintf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2122	2221	
==>ectly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2122	2221	
==>ectly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2122	2221	
==>ectly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS::Root::try(Code $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3553	3739	
==>lots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3553	3739	
==>lots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = * <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3553	3739	
==>lots.

        my $slot;

        if (defined ($slot = *$obj{SCALAR})) {
            $recurse->($$slot);                  # a glob has a scalar...
        }
        if (defined ($slot = * <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	714	822	
==>multiple cookies)
    print CookiesHeader();
    if ($location.defined) {
        $header ~= "Location: " ~ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1220	1318	
==>r->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signatu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1220	1318	
==>r->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signatu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36707	36805	
==>lation has zero
tuples, in which case the result does too.  Another trivial case is if any
source r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41256	41354	
==>lation has zero
tuples, in which case the result does too.  Another trivial case is if any
source r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40879	40977	
==>lation has zero
tuples, in which case the result does too.  Another trivial case is if any
source r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1877	2025	
==>pected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1877	2025	
==>pected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1877	2025	
==>pected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    local $_;

    return join "\n", map { $_->as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4097	4201	
==>---------------------------------------------------
## NOTE:
## code in this section has special cases wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4097	4201	
==>---------------------------------------------------
## NOTE:
## code in this section has special cases wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4097	4201	
==>---------------------------------------------------
## NOTE:
## code in this section has special cases wi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16664	16774	
==>AME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  m <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16664	16774	
==>AME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  m <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2654	2757	
==>e "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix saved as ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5565	5704	
==>abel = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5388	5522	
==>abel = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9301	9414	
==>e($pname));
	}
	my $aname = $pname;
	$aname = '?'.$aname if $op{'isOptional'};
	$aname = '*'.$aname if $slurpy;
	$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	424	534	
==>fault => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	418	528	
==>fault => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params:: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2039	2138	
==>val { require Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	278	377	
==>X correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	278	377	
==>X correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	278	377	
==>X correct?
method JS::Root::true($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5257	5381	
==>ss') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5257	5381	
==>ss') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5257	5381	
==>ss') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class') <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3936	4072	
==>->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5160	5296	
==>->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7147	7329	
==>n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7147	7329	
==>n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7147	7329	
==>n" 
                        if Perl6::Value::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    fo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7585	7719	
==>n exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7585	7719	
==>n exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3525	3629	
==>" x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3525	3629	
==>" x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3525	3629	
==>" x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"text/javascript\" src=\"$_[0]\"> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	361	464	
==>>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	361	464	
==>>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	361	464	
==>>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pStmts})->fixup,
  } => "PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	582	676	
==>::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	582	676	
==>::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	582	676	
==>::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_compiletime_macro) {
@{ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1183	1286	
==>Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1183	1286	
==>Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $i <==
3	/Users/nnunley/pugs/util/package-osx.pl	1898	1987	
==>/pugs-smokejs.pl
        /usr/local/lib/perl5/site_perl/runjs.pl /Library/Perl/5.8.6/runjs <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	582	683	
==>l behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opa <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	582	683	
==>l behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12823	12907	
==>[Close], !.
p6_named_character_tail([C,T],Close) --> [C], p6_named_character_tail(T,C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3037	3145	
==>n $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3037	3145	
==>n $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3037	3145	
==>n $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get(' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4236	4451	
==>\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possib <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4236	4451	
==>\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possib <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1908	2017	
==>sa('list'))
        || confess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args->lengt <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6738	6835	
==>le. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a docume <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6738	6835	
==>le. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a docume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2518	2729	
==>it->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2518	2729	
==>it->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2518	2729	
==>it->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	842	1001	
==>er'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for % <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	842	1001	
==>er'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for % <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5448	5560	
==>isplay_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $node = shift;
		my <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10035	10152	
==>r(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10035	10152	
==>r(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self. <==
3	/Users/nnunley/pugs/util/drift.pl	1370	1475	
==>$out" or die $!;
while (<IN>) {
    /OPTION/ or last;
	s{\Q../}{../../}; # Hack to fix includes (It's stup <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20720	20820	
==>e.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20720	20820	
==>e.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and th <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6412	6512	
==>descr  => "Fetching kernel from \"$kernel_uri\"",
  help   => "Remove \"$kernel_local\" if you want m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16168	16308	
==>ng => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19645	19785	
==>ng => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19178	19318	
==>ng => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_.key === any( $other!heading <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16239	16344	
==>ets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20665	20770	
==>ets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struc <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	458	554	
==>/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harness;
use Test::TAP::Model;
use File::S <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2792	2917	
==>t1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2792	2917	
==>t1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

= <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4139	4255	
==>sub get_pugs_config {
    my $self = shift;
    my $base = $self->is_extension_build
    ? '../..'
    : $self->{_top <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2219	2331	
==>value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2219	2331	
==>value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2219	2331	
==>value     = $jsname.FETCH();
  block_leave_hooks.push(function () {
    $jsname = backup_container;
    $jsname.S <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	370	824	
==>l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            6 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	370	824	
==>l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10415	10531	
==>->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other argument, it will warn that it i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2331	2433	
==>ters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2331	2433	
==>ters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code * <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2331	2433	
==>ters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Code * <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4652	4842	
==>of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_heading);

# Loadin <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8362	8469	
==>.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8362	8469	
==>.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3769	3864	
==>= function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3769	3864	
==>= function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3769	3864	
==>= function (retval, cc) {
  PIL2JS.coro_entrypoints[$coro_id] = function (new_returncc) {
    __ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1729	1841	
==>urn 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1729	1841	
==>urn 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1729	1841	
==>urn 1 if $ref eq 'Dispatchable' && $o->isa($cls);
    return 0;
}

use Perl6::MetaModel;

sub class1 {
    my ($n <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15098	15193	
==>r $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15098	15193	
==>r $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10367	10464	
==>led encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10367	10464	
==>led encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	555	668	
==>ion (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	555	668	
==>ion (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	555	668	
==>ion (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1412	1523	
==>{ die "Did not understand '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$nam <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14596	14698	
==>`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14596	14698	
==>`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3926	4035	
==>x_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3926	4035	
==>x_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3926	4035	
==>x_for_undefs (
  $hash is rw, *@keys
) is primitive is rw {
  if defined $hash {
    die "\"$hash\" can't be a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9586	9695	
==>y has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9586	9695	
==>y has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9586	9695	
==>y has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3710	3829	
==>ess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3710	3829	
==>ess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3710	3829	
==>ess "Bad dispatcher (" . ($dispatcher || 'undef') . ")";
        (defined $label)
            || confess "You must provi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5029	5137	
==>d = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 v <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5029	5137	
==>d = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4055	4167	
==>d_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4055	4167	
==>d_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4055	4167	
==>d_pil {
  my $pil = eval { compile_perl6_to_pil "-e", $_[0] };
  print $OUT $@ and return if $@;
  print $OUT $pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4459	4568	
==>te_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't clos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4459	4568	
==>te_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't clos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4459	4568	
==>te_fh), @cmd
    or die "Couldn't open pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't clos <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11764	11876	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12043	12155	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5352	5475	
==>0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5352	5475	
==>0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5352	5475	
==>0) $jsname = $undef.BINDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($j <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10094	10219	
==>sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10373	10498	
==>sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	155	273	
==>le_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _mangle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11038	11133	
==>e/Filter some source code into something else. This is almost
# always overridden in a subclass. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11038	11133	
==>e/Filter some source code into something else. This is almost
# always overridden in a subclass. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10877	11015	
==>bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10871	11009	
==>bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $ <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2624	2752	
==>_round = sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_alternate ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7883	8031	
==>n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7883	8031	
==>n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7883	8031	
==>n";
        # return $ret->reverse;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	76	192	
==>ine('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	76	192	
==>ine('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	76	192	
==>ine('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in imports) {
      var f = Perl5.perl_c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3131	3471	
==>}
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3131	3471	
==>}
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21457	21553	
==>ew();
    $$mn->ASSIGN($v);
}
sub p6_assign {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25041	25161	
==>, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion', <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25596	25716	
==>, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion', <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2627	2730	
==>b _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: S <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2627	2730	
==>b _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: S <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1501	1601	
==>->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self->{env});
    (b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5785	5875	
==>ys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5785	5875	
==>ys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5785	5875	
==>ys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2957	3068	
==>->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2957	3068	
==>->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2957	3068	
==>->elems );
    my $idx = Array->new();
    # TODO - split index into @a.each.elems parts
    if ( p6_to_n( $a->e <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1442	1548	
==>nt "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncompress_smoke {
  $CGI->param <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1676	1772	
==>live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1676	1772	
==>live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2831	2944	
==>rity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2831	2944	
==>rity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2831	2944	
==>rity;
  }
}

{
  package PIL::MkTParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15879	15987	
==>$xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15879	15987	
==>$xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15879	15987	
==>$xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3609	3744	
==>name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3609	3744	
==>name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3609	3744	
==>name . ']'
            if $self->class->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3515	3616	
==>$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Envi <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3515	3616	
==>$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Envi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	350	470	
==>el;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	350	470	
==>el;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	350	470	
==>el;
    var old_exportList = JSAN._exportList;
    try {
      JSAN.errorLevel = "die";

      // JSAN._exportList does t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	786	901	
==>rsect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	786	901	
==>rsect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	642	756	
==>rgs) { warn(@args); }

method _parse_ini_file(Class $class: IO $fh) {
	my @config;

	my $lineno = 0;
	for =$fh -> $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	757	859	
==>"unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::gr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	845	947	
==>"unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::gr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5401	5570	
==>e already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5865	6034	
==>e already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1145	1246	
==>fperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5684	5811	
==>from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5684	5811	
==>from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5684	5811	
==>from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $middle = $end if $middle > <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1563	1660	
==>dler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1563	1660	
==>dler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2504	2650	
==>->array_fetchSize)){
                    $self->array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value(' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28687	28823	
==>1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28966	29102	
==>1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5501	5599	
==>::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ? <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12596	12689	
==>working features.

This module deals with encoding and decoding of strings with HTML
character <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12596	12689	
==>working features.

This module deals with encoding and decoding of strings with HTML
character <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2092	2217	
==>ght class
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Package::Installable->Obj <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16820	16912	
==>wn executable, in practice one would
normally just write some components of their application <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16820	16912	
==>wn executable, in practice one would
normally just write some components of their application <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1638	1800	
==>cheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1638	1800	
==>cheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	627	775	
==>refix =>          '<op> <equal>', 
    circumfix =>       '<op> <parse> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4940	5046	
==>my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4940	5046	
==>my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4940	5046	
==>my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type, ::make <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1573	1727	
==>ngs')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1573	1727	
==>ngs')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1573	1727	
==>ngs')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2647	2778	
==>fier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2647	2778	
==>fier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3802	3922	
==>{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    cho <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9372	9476	
==>pan1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9372	9476	
==>pan1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3624	3725	
==>S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15725	15825	
==>lueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15725	15825	
==>lueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for T <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3546	3668	
==>th = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $self->{tree} };
  my $next;

  return sub {
    return $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3447	3540	
==>kay. 10/44 subtests failed, 77.27% okay.

Everything passed but F<t/waterloo.t>.  It failed 10 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13962	14086	
==>combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17439	17563	
==>combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16819	16943	
==>combining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6070	6195	
==>_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6070	6195	
==>_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	125	223	
==>Space;

=head1 DESCRIPTION

This type is not used directly; however, it adds the "name" property
wh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5013	5114	
==>lf->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1596	1697	
==>lf->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8860	8950	
==>d fails';

fails_ok { $iFoo->another_singleton_test_on_object } '... instance calling metac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7508	7634	
==>nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7508	7634	
==>nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7508	7634	
==>nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) or next;
        $classes{$cls} = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	8	105	
==>in/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this scr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	8	105	
==>in/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this scr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	8	105	
==>in/perl
# Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this scr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10902	11067	
==>d},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10902	11067	
==>d},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10902	11067	
==>d},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        celems =>         $ret->{celems <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	691	806	
==>$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1541	1647	
==>urn the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1541	1647	
==>urn the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5136	5287	
==>roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5136	5287	
==>roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5136	5287	
==>roles => $role;
            push @roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34849	34957	
==>y tuples of C<$other> along
their common attributes.  This method will fail if the heading of <$other>
is not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39399	39507	
==>y tuples of C<$other> along
their common attributes.  This method will fail if the heading of <$other>
is not <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38932	39040	
==>y tuples of C<$other> along
their common attributes.  This method will fail if the heading of <$other>
is not <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	635	845	
==>n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	635	845	
==>n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1423	1520	
==>arrot.t - parrot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15754	15921	
==>rm(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15754	15921	
==>rm(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new c <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	718	918	
==>h $a, parse( <<>>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4755	4857	
==>ata given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly f <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4755	4857	
==>ata given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	660	779	
==>js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	660	779	
==>js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	660	779	
==>js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2690	2787	
==>t);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2690	2787	
==>t);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2690	2787	
==>t);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2945	3048	
==>";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2945	3048	
==>";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2945	3048	
==>";
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc = args.pop();
    PIL2JS.warn(args <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7089	7402	
==>$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %se <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7089	7402	
==>$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6909	7075	
==>nboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6909	7075	
==>nboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6909	7075	
==>nboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref->new( '$.unb <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	333	462	
==>NTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = ope <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	333	462	
==>NTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = ope <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	240	368	
==>= Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # print Dumper ${$_[ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	241	362	
==>y );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
metho <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	241	362	
==>y );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2385	2506	
==>[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2385	2506	
==>[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2385	2506	
==>[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i+2],@a[$i+3],@a[$i+ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11400	11499	
==>eturns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<C <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11400	11499	
==>eturns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<C <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12273	12367	
==>t(C), !.
p6_hex_spec(char(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [Open], bracke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14569	14706	
==>(exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14569	14706	
==>(exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14569	14706	
==>(exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1]}->[2]->{'$:name'} || 'AnonClass')
                        : <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2956	3130	
==>kage_name        { $_[0] =~ $re; $2 }
        sub package_version     { $_[0] =~ $re; $3 }
        sub package_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the me <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11092	11186	
==>tr $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unl <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11150	11244	
==>tr $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2236	2334	
==>utput);

Analyzes the output of a single test, assigning it the given C<$name>
for use in the total <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9913	10010	
==>_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect method <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9913	10010	
==>_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11663	11787	
==>.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11663	11787	
==>.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11663	11787	
==>.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->new( '$.unboxed' => define <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24578	24685	
==>en_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20999	21106	
==>en_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self <==
3	/Users/nnunley/pugs/util/package-osx.pl	6361	6458	
==>Overview::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/local/man/ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	358	488	
==>to somewhat speed up
# the rewrite of existing p5 programs instead of doing
# full conversions. :-/
#
# c.f. Mini HowTo: How to por <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1389	1508	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1389	1508	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4659	4787	
==>fy}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4659	4787	
==>fy}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4659	4787	
==>fy}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum           { $_[ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11732	11892	
==>rs has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15209	15369	
==>rs has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14544	14704	
==>rs has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocant."
                if an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8096	8323	
==>my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8096	8323	
==>my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8096	8323	
==>my $tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6570	6684	
==>::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6570	6684	
==>::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6570	6684	
==>::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchain;
    my $new_pad   = "var pad = {}; PIL2JS_subpa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1564	1681	
==>>{dir}'] );
        return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( dir => '/some/dir' );

Removes <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11765	11914	
==>>{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx];
      my $s = "$m";
      my $pat = $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12168	12274	
==>([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12168	12274	
==>([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5257	5384	
==>urn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contai <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5257	5384	
==>urn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contai <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5847	5974	
==>urn;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contai <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2543	2663	
==>eed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2543	2663	
==>eed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10187	10319	
==>r @dirs; 1 },
    using  => sub { utime undef, undef, $initrd_img; mkdir $_ for @dirs },
    help   => <<HELP;
      We need a tempor <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2899	3011	
==>eq );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2899	3011	
==>eq );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3106	3201	
==>est_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3106	3201	
==>est_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3186	3281	
==>est_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	606	739	
==>nf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	606	739	
==>nf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	606	739	
==>nf..0) 
#
# 2005-09-08
# * finite sub-slices work: ($x,@a[1..3])=(1,2,3,4)
#
# 2005-09-05
# * delete slice
#
# 2005-08-31
# * New meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8153	8250	
==>ther = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8153	8250	
==>ther = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8153	8250	
==>ther = shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2721	2867	
==>[];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2721	2867	
==>[];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2721	2867	
==>[];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = <c d>.
      var prox <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1765	1935	
==>$child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1765	1935	
==>$child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @re <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17485	17599	
==>$P0 .= "\" ]\n\n"
    code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2942	3038	
==>dy = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2942	3038	
==>dy = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2942	3038	
==>dy = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($conv.FETCH(), [PIL2JS.Context.ItemAn <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	242	490	
==>RINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	242	490	
==>RINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	185	299	
==>rns Bool is builtin is primitive { true $var }

sub chomp (Str $str) returns Str is builtin is primitive {
    # XX <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	860	968	
==>ty($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @a <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	860	968	
==>ty($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4776	4859	
==>odeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNodeDefs::import(__P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11113	11241	
==>lf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11113	11241	
==>lf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11113	11241	
==>lf, $label, %params) = @_;
    $self->get_method($label, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27591	27696	
==>f the tuples of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32143	32248	
==>f the tuples of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31235	31340	
==>f the tuples of the original (or rather, the corresponding extension of
each tuple).  Each value of C<$att <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1137	1261	
==>de:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        warn "Error in statement:\n", $p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9930	10042	
==>s rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() u <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9930	10042	
==>s rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	464	573	
==>VarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	464	573	
==>VarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	464	573	
==>VarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname eq "&Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1409	1514	
==>n it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1409	1514	
==>n it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1409	1514	
==>n it ...
    return $self;
}));

$::Class->add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	396	508	
==>ner::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	396	508	
==>ner::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	396	508	
==>ner::Hash::Object"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21718	21974	
==>, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21718	21974	
==>, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21718	21974	
==>, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar->new();
                    #    $_->store( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	580	685	
==>construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	580	685	
==>construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	580	685	
==>construction
# TODO - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2878	2995	
==>t::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explan <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2878	2995	
==>t::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4402	4519	
==>t::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub plan (Str $explan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	560	671	
==>unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	560	671	
==>unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	560	671	
==>unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	747	850	
==>t|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11997	12093	
==>== $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11997	12093	
==>== $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2880	2970	
==>rigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2880	2970	
==>rigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2880	2970	
==>rigger running of all END blocks.
PIL2JS.catch_all_exceptions(function () {
  PIL2JS.catch_ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3302	3412	
==>y $i := $_;
#    map { @arrays[$_][$i] } 0..@arrays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.p <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6346	6443	
==>$url)

Get and print a document identified by a URL. The document is printed
to the selected defau <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6346	6443	
==>$url)

Get and print a document identified by a URL. The document is printed
to the selected defau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7214	7323	
==>rt string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7214	7323	
==>rt string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7214	7323	
==>rt string decrement
                $::SELF->ref->new( '$.unboxed' => Perl6::Value::Str::decrement( $value ) ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34399	34531	
==>') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34399	34531	
==>') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34399	34531	
==>') && $_->is_lazy;
    }
    $ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1760	1888	
==>exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1760	1888	
==>exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1760	1888	
==>exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7121	7245	
==>(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7121	7245	
==>(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7121	7245	
==>(p6_to_n($xx)+1)) 
 }
};
MULTI SUB postfix:<--> ($xx) { 
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34133	34242	
==>ERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34133	34242	
==>ERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizat <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34133	34242	
==>ERSAL::isa( $_, 'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimizat <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1686	1803	
==>>new;

Initialize a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $self->_i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11225	11328	
==>class:) (hash ?%params)) returns opaque
    (((?%params is_nil) and (= ?%params (hash new)))
     ($clas <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13133	13229	
==>tion($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing al <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13133	13229	
==>tion($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14778	14868	
==>tiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14778	14868	
==>tiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14778	14868	
==>tiveCommand ($xx) {...};
MULTI SUB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	759	888	
==>my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	759	888	
==>my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	759	888	
==>my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11251	11369	
==>->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11251	11369	
==>->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11251	11369	
==>->{$s}[1];
}
sub firstkey {
    my ( $this ) = @_;
    keys %$this;  # force reset the iterator
    my $s = each %$this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5577	5714	
==>otz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5577	5714	
==>otz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5577	5714	
==>otz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9789	9942	
==>>returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9789	9942	
==>>returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9789	9942	
==>>returns && ! $self->returns->match( $ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->par <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2582	2720	
==>.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2582	2720	
==>.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2072	2181	
==>e smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input parameters
my $syn_src_dir; # The root di <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2727	2843	
==>-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2727	2843	
==>-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2727	2843	
==>-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals::eval($code) }
    elsif $lang eq "pe <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5994	6181	
==>de($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5994	6181	
==>de($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	320	419	
==>urn $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub can_reduce {
	my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7763	7898	
==>ad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11765	11895	
==>ad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11765	11895	
==>ad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3197	3316	
==>tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3197	3316	
==>tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5608	5708	
==>xechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 npa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15162	15263	
==>_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_un <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15162	15263	
==>_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_un <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26397	26494	
==>: opaque $subclass) returns nil {
    @:subclasses.push($subclass);
}

(method add_subclass ((opaq <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5027	5167	
==>eturn $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8504	8644	
==>eturn $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7515	7655	
==>eturn $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8532	8643	
==>macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8532	8643	
==>macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8532	8643	
==>macro {
    my($name,$pil_params,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1907	2012	
==>ge. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1907	2012	
==>ge. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1907	2012	
==>ge. Dunno how to do
# different Unicode levels in browsers.
method bytes  (Str $self:) { JS::inline('(func <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2466	2706	
==>0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- hi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2774	3001	
==>0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- hi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2774	3001	
==>0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- hi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4318	4466	
==>s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitd <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4318	4466	
==>s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1643	1776	
==>,
        other => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        assoc => 'left',
        precedence => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	25	137	
==>ct;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	25	137	
==>ct;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	25	137	
==>ct;
use warnings;
use Perl6::MetaModel::Metamorph;

# This is pneuma, this creates ::Object, ::Package and ::Modu <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5773	5863	
==>find object ($child_to_remove) in self";
}

## -------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5773	5863	
==>find object ($child_to_remove) in self";
}

## -------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5990	6091	
==>nt encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5990	6091	
==>nt encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5990	6091	
==>nt encode "utf-8", "@_\n" });
  $ct->bind_function( name => 'printWithoutNewline',
		      func => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4078	4173	
==>MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4078	4173	
==>MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4078	4173	
==>MACROP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3195	3391	
==>is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3195	3391	
==>is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } <==
3	/Users/nnunley/pugs/util/combine_tests.pl	901	1017	
==>data->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1998	2140	
==>($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1998	2140	
==>($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17416	17518	
==>);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* regcomp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11208	11313	
==>return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
  class Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1674	1769	
==>return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1674	1769	
==>return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::Test::Base {}
class Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1900	2028	
==>get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1900	2028	
==>get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1900	2028	
==>get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($t <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3384	3548	
==>.elems ?? Control::Caller.new(
        package => @caller[0],
        file    => @caller[1],
        line    => @caller[2],
        subname => @caller[3],
        su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2445	2562	
==>1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($cla <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2445	2562	
==>1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($cla <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10042	10141	
==>NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = P <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10042	10141	
==>NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5533	5632	
==>r Perl 6 Rule categories.  

The module is still very unstable, and the algorithm is not optimized f <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3642	3741	
==>rror(Params::Check->last_error), return;

    return $version if $version =~ /^\.?\d/;
    return '0 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34351	34446	
==>anslator object.
The Set Names property of the new object is set from the named parameter
@set_n <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34351	34446	
==>anslator object.
The Set Names property of the new object is set from the named parameter
@set_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16270	16382	
==>Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16270	16382	
==>Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16270	16382	
==>Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'numeric';
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3169	3288	
==>ss && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3169	3288	
==>ss && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3169	3288	
==>ss && $access eq 'rw';
			# XXX - everything treated as rw;
			$MM->add_method($am => ::make_method(sub {
			    my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4355	4469	
==>urncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4355	4469	
==>urncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4355	4469	
==>urncc" if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5955	6104	
==>n/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5955	6104	
==>n/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19672	19768	
==>theses weren't being parsed properly.  Fixed.  (Mike
Lambert)

Flags weren't being turned off.  F <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5629	5744	
==>hild {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    di <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5629	5744	
==>hild {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16575	16684	
==>ss ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12996	13105	
==>ss ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }x <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9023	9150	
==>'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->em <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9977	10102	
==>'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data-> <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2912	3014	
==>>-<TAB>-<VT>-<FF>-<SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rul <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	416	534	
==>next unless $class =~ /^Blondie::(\w+)$/;
        next if __PACKAGE__->can($1);

        no strict 'refs';
        push <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10944	11064	
==>le")
    pos = mfrom 
    lastpos = length target
    $S0 = substr target, pos, 2
    if $S0 == "<?" goto nocapture
    i <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1527	1634	
==>M_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1443	1536	
==>M_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1084	1201	
==>iglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

r <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1084	1201	
==>iglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

r <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	992	1102	
==>turn $ret;
}

## Chapter 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	804	959	
==>lass;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	804	959	
==>lass;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	804	959	
==>lass;            
            my $class = $self->_parse_class($i);
            $self->env->set('current_class' => $class);            
        }
        els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5307	5425	
==>lue::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5307	5425	
==>lue::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5307	5425	
==>lue::numify( $param{step} || 1 );
    $class->new(
        clone => sub { 
            $class->from_num_range( start => <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8775	8873	
==>2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I< <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8775	8873	
==>2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I< <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30501	30598	
==>a walker (see L<Regexp::Parser/"Walking the Tree">).

=back

Objects may override these methods (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8163	8288	
==>}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8163	8288	
==>}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8163	8288	
==>}

{
  package PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5646	5775	
==>(my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5646	5775	
==>(my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21213	21303	
==>efine anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  substrs->data <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1084	1178	
==>alVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1084	1178	
==>alVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1084	1178	
==>alVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10082	10322	
==>";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10082	10322	
==>";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10082	10322	
==>";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5197	5313	
==>primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5197	5313	
==>primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5197	5313	
==>primitive {
  my $sum = 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7887	8020	
==>::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7887	8020	
==>::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7887	8020	
==>::to_str( _('$.unboxed') ) ) },
            'bit' => sub { $::SELF },
            'perl' => sub { $::SELF->str },
            'ref' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10143	10263	
==>ug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10143	10263	
==>ug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10143	10263	
==>ug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	8993	9104	
==>eading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12470	12581	
==>eading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7296	7402	
==>lf->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural functions seem mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11257	11359	
==>:Test::Pass does Test::Builder::Test::Base {}
  class Test::Builder::Test::Fail does Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1715	1815	
==>:Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1715	1815	
==>:Test::Pass does Test::Builder::Test::Base {}
class Test::Builder::Test::Fail does Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21523	21857	
==>}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation::Example -
Simple in-mem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	938	1040	
==>are_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	938	1040	
==>are_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6078	6231	
==>$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6078	6231	
==>$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6078	6231	
==>$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls = 'Sub';
    $cls = 'Macro' if $flavor =~ /macr <==
3	/Users/nnunley/pugs/util/testgraph.pl	1546	1701	
==>btest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t$/.html/;
        File:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2456	2554	
==>es with p6 ones _without_ changings its name.



of course that has the problem of supplying Perl.p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2363	2459	
==>es with p6 ones _without_ changings its name.

of course that has the problem of supplying Perl.p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8512	8628	
==>ame can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8512	8628	
==>ame can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4173	4291	
==>pan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4173	4291	
==>pan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4173	4291	
==>pan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %param = @_;  
    #w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3647	3747	
==>array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3647	3747	
==>array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3647	3747	
==>array));
  })')(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	720	823	
==>tation
and tests.

- Quantified matches could use less stack space.

- Simplify arg list - the func <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7991	8089	
==>ns.

The problem this class solves is when you need do perform "set" operations on 
Span objects, t <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7991	8089	
==>ns.

The problem this class solves is when you need do perform "set" operations on 
Span objects, t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	671	769	
==>content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	671	769	
==>content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8346	8435	
==>_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg([-i|L]) --> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3139	3250	
==>ut)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3139	3250	
==>ut)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3139	3250	
==>ut)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_base|output [new_value]\n";
    re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27048	27145	
==>n succed once only. */
 #define REINT_ONCE_ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	978	1064	
==>nt-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Exp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	978	1064	
==>nt-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6604	6701	
==>rom, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6604	6701	
==>rom, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6604	6701	
==>rom, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is primitive <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8874	8998	
==>{ 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $arra <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8874	8998	
==>{ 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $arra <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22999	23099	
==>rams

rule FunctionDeclaration :words {  # see clause 13
      <'function'> <Identifier> <'('> <Forma <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4964	5214	
==>:<@_>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24710	24806	
==>ale::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24710	24806	
==>ale::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	592	691	
==>TES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results an <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	592	691	
==>TES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results an <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1148	1247	
==>TES

=over 4

=item B<$.output>

The filehandle to which to write all normal output (test results an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2226	2351	
==>ables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_si <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2226	2351	
==>ables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_si <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2573	2698	
==>ables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->sub_si <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20575	20669	
==>E<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly access <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20575	20669	
==>E<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly access <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	312	398	
==>ble/E05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/A05.pod

=cut

gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6110	6254	
==>skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # hand <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6110	6254	
==>skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # hand <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1594	1692	
==>ticular regex engines.  Its structure follows the spec.  If for
#  instance, your engine cannot han <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4373	4485	
==>f $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7850	7962	
==>f $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6834	6946	
==>f $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27569	27735	
==>params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                C3-> <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3705	3802	
==>and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with you <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3705	3802	
==>and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with you <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6139	6246	
==>l-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6139	6246	
==>l-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4022	4123	
==>TTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testpla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4022	4123	
==>TTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testpla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5546	5647	
==>TTRIBUTES

=over 4

=item B<Test::Builder::Output $.output>

=item B<Test::Builder::TestPlan $.testpla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17016	17166	
==>nical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17016	17166	
==>nical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17016	17166	
==>nical');  
            # walk the methods
            my $method = ::WALKMETH($dispatcher, $label, %opts);
                 
            unless (define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1070	1175	
==>n, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1070	1175	
==>n, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1070	1175	
==>n, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js2, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9954	10062	
==>$INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9954	10062	
==>$INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9954	10062	
==>$INDENT);

  $text =~ s/^/$spaces/gm;
  return $text;
}

use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3533	3649	
==>| (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3533	3649	
==>| (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3533	3649	
==>| (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_precomp {
  my $js = eval { pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15417	15523	
==>y ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15417	15523	
==>y ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15417	15523	
==>y ($xx) { $xx->key };
MULTI SUB value ($xx) { $xx->value };
MULTI SUB pairs ($xx) { $xx->pairs };
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15257	15392	
==>TROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the ti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15257	15392	
==>TROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the ti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15257	15392	
==>TROY/) {
            # this is to avoid GC errors during global destruction
            # I am not 100% sure it will work 100% of the ti <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2233	2339	
==>ts::Subscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Events::Pub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25345	25442	
==>copy and distribute
such a system following the terms of the GPL for Rosetta and the licenses
of t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25345	25442	
==>copy and distribute
such a system following the terms of the GPL for Rosetta and the licenses
of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3561	3666	
==>1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub decla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3561	3666	
==>1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub decla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3561	3666	
==>1, "S", "parseInt(a, 16)",
);

# First, we generate the code to eval later.
# Why don't eval the sub decla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10385	10515	
==>[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10385	10515	
==>[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10385	10515	
==>[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5080	5198	
==>sname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5080	5198	
==>sname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5080	5198	
==>sname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-everything slurpy param (*@foo, as opp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3320	3430	
==>am{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3320	3430	
==>am{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3320	3430	
==>am{cend}    = sub {} unless defined $param{cend}; 
    
    $param{start}   = sub {} unless defined $param{star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3943	4055	
==>arams) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3943	4055	
==>arams) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3943	4055	
==>arams) = ('', ());
    $self->_discard_whitespace($i);    
    if ($i->lookAheadToken() eq '(') {
        ($metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21913	22055	
==>::NoCode>, and
F<Regexp::AndBranch>.

=head2 Parser Internals

The parser object is a hash reference with the following keys:

=over 4

=item r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1815	1928	
==>s::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1815	1928	
==>s::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            re <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	430	546	
==>e don't do it from repository metadata
    my $path = basename($archive);
    $path    =~ s/$Ext$//;

    ### check i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4897	4993	
==>` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4897	4993	
==>` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5029	5151	
==>r die $!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $tex <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8542	8638	
==>you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::nu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8600	8696	
==>you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2911	3119	
==>h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2911	3119	
==>h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2911	3119	
==>h;
                            $cell->{type} = 'Hash';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc w <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4819	5031	
==>od {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[B <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4819	5031	
==>od {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[B <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1261	1392	
==>> [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				nam <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33988	34083	
==>nes aren't supported by a program or its libraries.
When translating a message, a match in found <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33988	34083	
==>nes aren't supported by a program or its libraries.
When translating a message, a match in found <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34791	34907	
==>ody, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'inse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34791	34907	
==>ody, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'inse <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34791	34907	
==>ody, $len_tail );
    # print "items: ", $array->items, " splice: $offset, $length, ", @list, "\n";
    # print 'inse <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1221	1314	
==>005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), e <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1221	1314	
==>005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1066	1169	
==>d boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .contai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1066	1169	
==>d boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .contai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1066	1169	
==>d boxed.STORE.
    // We had to delay this because PIL2JS.Ref calls .FETCH() (to init its
    // .contai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11480	11591	
==>G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3071	3182	
==>G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    re <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7179	7280	
==>t" and -s "$parrot_path/parrot" };

my @modfiles;
step
  descr  => "Searching for module files",
  ens <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5117	5236	
==>= shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5117	5236	
==>= shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5117	5236	
==>= shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to use JSSM
  # aren't forced t <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12798	12894	
==>set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12798	12894	
==>set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2269	2359	
==>----------------------------------
-- Do not modify this file; it is generated automaticall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2267	2393	
==>.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2267	2393	
==>.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2267	2393	
==>.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          Perl6.MetaClass.Dispatcher Pe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26391	26484	
==>nal (or rather, the corresponding projection of
each tuple), but that any duplicates following <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30943	31036	
==>nal (or rather, the corresponding projection of
each tuple), but that any duplicates following <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29945	30038	
==>nal (or rather, the corresponding projection of
each tuple), but that any duplicates following <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4441	4554	
==>th);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) - <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4441	4554	
==>th);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) - <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13356	13469	
==>r },
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_str_handlers{$r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	388	491	
==>subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	388	491	
==>subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	388	491	
==>subreturncc)"),
      origName => "&return",
    } => "PIL::PVar";
  } elsif($name eq "&?CALLER_CONTINUA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12986	13108	
==>:
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $cla <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12986	13108	
==>:
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $cla <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4028	4127	
==>) { $.base_object }
    method GetPropertyName ($O:) { $.property_name }
}
# 8.7.1
method GetValue ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6331	6469	
==>' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6331	6469	
==>' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6331	6469	
==>' =>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4147	4265	
==>->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4147	4265	
==>->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$pa <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4737	4855	
==>->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16790	16978	
==>f ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16790	16978	
==>f ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16790	16978	
==>f ($is_class_method) {
                %opts = (for => 'class');
                $class = $self;
            }
             
            # get the dispatcher instance ....
            my $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3436	3557	
==>= args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3436	3557	
==>= args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3436	3557	
==>= args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9813	9925	
==>^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3]. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9813	9925	
==>^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3]. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9813	9925	
==>^/$cnt++."\t"/mge;
    $s;
}
sub run_p5r {
    my($p5r)=@_;
    my @res = eval($p5r);
    warn "".(caller(0))[3]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10187	10308	
==>ispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10187	10308	
==>ispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10187	10308	
==>ispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5928	6031	
==>=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5928	6031	
==>=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5928	6031	
==>=
    "// Declaration of classes (PIL1 hack):\n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4503	4608	
==>:push(@_);
}

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) if not (blessed($right) & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10406	10584	
==>rint "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10406	10584	
==>rint "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10406	10584	
==>rint "coro\n";
            $size = 0 unless defined $r;
            return $r;
        },
        cend =>           sub {},
        celems =>         sub { $size },
        cis_in <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	346	472	
==>subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represent <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	346	472	
==>subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represent <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10160	10252	
==>'$namespace$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1] ruleop::negate( \\&{'$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	679	823	
==>od.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	679	823	
==>od.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26128	26268	
==>egexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2276	2396	
==>pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2276	2396	
==>pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2276	2396	
==>pLit}->{pVal}->isa("PIL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29049	29149	
==>ntainer::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29049	29149	
==>ntainer::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29049	29149	
==>ntainer::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16331	16434	
==>arser::open;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen, @ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1064	1156	
==>he F<docs/> directory are a series of documents, written
in question/answer format, to explai <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1064	1156	
==>he F<docs/> directory are a series of documents, written
in question/answer format, to explai <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	703	826	
==>>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18106	18203	
==>t a level visible in the Rosetta Native
Interface, if at all.  To account for situations where mul <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18106	18203	
==>t a level visible in the Rosetta Native
Interface, if at all.  To account for situations where mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3	101	
==>usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3	101	
==>usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3	101	
==>usr/bin/perl
# This is the frontend for the modules PIL::Parser and PIL::Nodes.
# See sub &usage at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1609	1723	
==>O - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1609	1723	
==>O - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1609	1723	
==>O - add caller() data

# TODO - junctive types

# TODO - does 'returns' calls coerce:<as> ?
# TODO - the 'match' ar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36699	36799	
==>ource relation has zero
tuples, in which case the result does too.  Another trivial case is if any
so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41248	41348	
==>ource relation has zero
tuples, in which case the result does too.  Another trivial case is if any
so <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40871	40971	
==>ource relation has zero
tuples, in which case the result does too.  Another trivial case is if any
so <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9164	9279	
==>_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9164	9279	
==>_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encip <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6054	6181	
==>ttribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6054	6181	
==>ttribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	6054	6181	
==>ttribute'); 

        # DEPRECATED
        # package Perl6::ClassAttribute;        
        # @Perl6::ClassAttribute::ISA = ('Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	631	761	
==>() \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	631	761	
==>() \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	631	761	
==>() \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3864	3967	
==>.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3864	3967	
==>.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3864	3967	
==>.&p6_var_macro($name,$defined1_autovivify2));
    my $v = eval $code;
    Carp::confess "p6_var: $@\n$co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28848	28946	
==>alue set members.  This
method supports having the new attributes having the same names as old
attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33400	33498	
==>alue set members.  This
method supports having the new attributes having the same names as old
attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32537	32635	
==>alue set members.  This
method supports having the new attributes having the same names as old
attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9258	9393	
==>nts);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9258	9393	
==>nts);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9258	9393	
==>nts);
                $ok || confess "Signature does not match - (" . $self->signature_str . "): $err";
                # my %bound_para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7636	7749	
==>unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7636	7749	
==>unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7636	7749	
==>unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1718	1862	
==>, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1718	1862	
==>, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1718	1862	
==>, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        my($opts) = @_;
        $opts->{editor <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	202	310	
==>in;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NA <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	202	310	
==>in;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NA <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3077	3202	
==>str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elemen <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3077	3202	
==>str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elemen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2510	2597	
==>h_to_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::Compiler::Rule->compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10795	10923	
==>ethods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10795	10923	
==>ethods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10795	10923	
==>ethods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = $class- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	850	952	
==>ptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two object <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	850	952	
==>ptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two object <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	850	952	
==>ptive method names:
#   - .unboxed() - returns the unboxed value
#     Pair->unboxed returns two object <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	506	649	
==>ext( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.prev <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	506	649	
==>ext( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.prev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2614	2717	
==>ar backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2614	2717	
==>ar backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2614	2717	
==>ar backup_value     = $jsname.FETCH();
  block_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	309	414	
==>e($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	309	414	
==>e($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	309	414	
==>e($a:) { ?$a }

sub Bool::True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28827	28926	
==>duplicate any other value set members.  This
method supports having the new attributes having the sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33379	33478	
==>duplicate any other value set members.  This
method supports having the new attributes having the sa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32516	32615	
==>duplicate any other value set members.  This
method supports having the new attributes having the sa <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7451	7564	
==>'\d';
    return $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Reg <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5394	5491	
==>s and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5394	5491	
==>s and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nic <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2195	2350	
==>[3]->{match}[1] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bless \{
                bool  => \$_ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2151	2281	
==>$key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2151	2281	
==>$key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7906	8024	
==>e $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11903	12019	
==>e $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11903	12019	
==>e $pad->{$name}\n";
        return ${ $pad->{$name} } if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4207	4345	
==>$_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4207	4345	
==>$_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4207	4345	
==>$_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0]->{celems}( @_ ) }
sub is_infinite   { $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2217	2371	
==>0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2146	2295	
==>0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24210	24336	
==>ast\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	293	402	
==>date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Per <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	293	402	
==>date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Per <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7661	7766	
==>eference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 ele <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7661	7766	
==>eference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 ele <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	67	162	
==>die::Emitter/;

use strict;
use warnings;

use String::Escape qw/quote printable/;
use Scalar::U <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	501	648	
==>( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	501	648	
==>( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fix <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1760	1891	
==>Could not create clean '$builddir'" ), return;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir( CLEAN <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9372	9462	
==>psulates HTTP-style message headers.
The headers consist of attribute-value pairs also call <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9372	9462	
==>psulates HTTP-style message headers.
The headers consist of attribute-value pairs also call <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28895	29124	
==>'),
                                $e->get('$self:')->send('_merge')
                            );                          
                      })
                  );
                return $e->get('$self:')->get_attr(symbol <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1503	1609	
==>urns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ----------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1503	1609	
==>urns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ----------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18841	19079	
==>[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18841	19079	
==>[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "In <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18841	19079	
==>[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxed ) {
                        #    die "In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1625	1742	
==>);
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1625	1742	
==>);
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1625	1742	
==>);
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6679	6782	
==>(x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6679	6782	
==>(x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6679	6782	
==>(x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep). Is <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16664	16781	
==>s safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7810	7903	
==>oid {...}>

Clears the cipher object's internal structures.

Cipher authors should assume that <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7810	7903	
==>oid {...}>

Clears the cipher object's internal structures.

Cipher authors should assume that <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11190	11334	
==>xtchar;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7126	7220	
==>return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) retu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7184	7278	
==>return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2020	2228	
==>ading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5497	5705	
==>ading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4427	4635	
==>ading);
    }

    $!heading    = $heading;
    $!body       = $body;
    $!is_mutable = Bool::False;

    return;
}

###########################################################################

method export_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2997	3113	
==>ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2997	3113	
==>ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  pus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2997	3113	
==>ret ~= $a for 1..$count;
  $ret;
}

sub infix:<xx>   (*@a) is primitive {
  my Int $count := pop @a;
  my @ret;
  pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20778	20965	
==>etch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20778	20965	
==>etch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20778	20965	
==>etch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn "CELL TO STORE IS A SCALAR: $elem";
                            $e <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4929	5089	
==>\n", @tests, "" );
            exit 0;
        } else {
            print "# ", scalar @tests, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14707	14813	
==>rite alternatives file: $@" ), return;

    return 1;
}

# Local variables:
# c-indentation-style: bsd
# c- <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28100	28194	
==>olymorphic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_sym) } "all identifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17124	17218	
==>SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17124	17218	
==>SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17124	17218	
==>SUB symlink ($xx0,$xx1) {...};
MULTI SUB link ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1533	1694	
==>= sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1533	1694	
==>= sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1533	1694	
==>= sub {
            my ($obj, $class) = @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6403	6541	
==>de = code_for_code_CODE(name=>$name,kind=>$cls,params=>$argl,
				      body=>$body,lvalue=>$lval);
	my $ret = eval($code);
	Carp::confess( <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5177	5299	
==>m:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsif $tree[0] eq <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7622	7727	
==>ng right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16380	16481	
==>error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) erro <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19486	19581	
==>and not change
your main program.

I<Note that an update is planned for Locale::KeyedText that w <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19486	19581	
==>and not change
your main program.

I<Note that an update is planned for Locale::KeyedText that w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1079	1197	
==>d',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too La <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1079	1197	
==>d',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too La <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1911	2023	
==>}    = [ alternatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBFILE_OF_MET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1330	1443	
==>turn _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1330	1443	
==>turn _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1330	1443	
==>turn _build_class($name, $version, $authority, sub { $body->(%params) });
        };
    }
    # support anon-clas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18553	18655	
==>y eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19911	20013	
==>y eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	191	293	
==>::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	191	293	
==>::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	191	293	
==>::PExp";
}

sub as_js {
  my $self = shift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self-> <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7572	7814	
==>obj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7572	7814	
==>obj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39438	39591	
==>ol->new('%:attributes'))->values();                                 
            }
        )
    )
);

## ------------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4246	4371	
==>, 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4246	4371	
==>, 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1096	1221	
==>, 
  'pLV'   ,'PIL_LValue';
node_h 'PIL_Expr',             'PLit', 
  'pLit'  ,'PIL_Literal';
node_h 'PIL_Expr',             ' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	17	196	
==>er::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	17	196	
==>er::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $descripti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13313	13446	
==>st->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9499	9632	
==>st->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10335	10468	
==>st->{tail};\n" .
                #"    print \"final ast: \\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6905	7021	
==>_24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6905	7021	
==>_24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6905	7021	
==>_24main_3a_3a_;

%s
    });
  });
});
PIL2JS_subpads.pop();
EOF
}

# Possible contexts:
{
  package PIL::TCxt;
  
  s <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2997	3169	
==>n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12039	12152	
==>terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12039	12152	
==>terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1214	1352	
==>e $?;
        system( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3229	3348	
==>$.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

P <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3229	3348	
==>$.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

P <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17803	17951	
==>ny(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conver <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19477	19582	
==>Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20474	20579	
==>Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	228	337	
==>catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	228	337	
==>catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	228	337	
==>catch(err) {
      PIL2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19983	20082	
==>x0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19983	20082	
==>x0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19983	20082	
==>x0) le p6_to_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1) <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17063	17187	
==>mitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n) is primitive is safe {
        Num::roun <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15410	15523	
==>targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15410	15523	
==>targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	28	115	
==>":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	28	115	
==>":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2845	2963	
==>, @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2845	2963	
==>, @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2845	2963	
==>, @_, "-e", "''") };
  die $@ if $@;
  my $js  = eval { run_pil2js("-v", \$pil) };
  die $@ if $@;
  return $js;
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3943	4067	
==>$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4083	4207	
==>$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	5	109	
==>ge JIB;

$VERSION = '0.01';

1;

__END__
=pod

=head1 NAME

JIB - Perl6 Package Manager

=head1 DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5441	5548	
==>ocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5441	5548	
==>ocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7638	7745	
==>ocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2123	2228	
==>ify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2123	2228	
==>ify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2123	2228	
==>ify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $argname, body => sub {
        $sub->($ar <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5466	5567	
==>ription
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithRe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5466	5567	
==>ription
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithRe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7663	7764	
==>ription
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Test::Builder::Test::WithRe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11225	11390	
==>thod lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11225	11390	
==>thod lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11225	11390	
==>thod lookup :)
    my %_normal_dispatch_cache;
    sub _normal_dispatch {                    
        my $class = ${$_[0]->[1]};
        # XXX - 
        # this seems <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13784	13933	
==>"\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14063	14212	
==>"\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  m <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	577	688	
==>ubdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1239	1350	
==>ubdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	859	957	
==>xed with document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	859	957	
==>xed with document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	859	957	
==>xed with document.write. See tests/buffer.html.
          //node.appendChild(document.createTextNod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5452	5568	
==>tting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5452	5568	
==>tting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5452	5568	
==>tting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = functio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19319	19471	
==>author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1203	1330	
==>num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

o <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1203	1330	
==>num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	203	327	
==>();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	203	327	
==>();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	203	327	
==>();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pairs.length; i++) {
      va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15913	16027	
==>(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10769	10883	
==>(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35850	35950	
==>il (C<)> when not in C<(...>)

Omitted

=head2 ref

Family: ref

Types: ref1, ref2 .. refN (C<\1>, C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1237	1342	
==>pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1237	1342	
==>pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1237	1342	
==>pad['&?SUB'] = _26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24169	24294	
==>ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    pus <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20590	20715	
==>ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    pus <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1060	1150	
==>lt>autrijus@autrijus.orgE<gt>.

The F<libpcre> code bundled with this library by I<Philip H <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3460	3558	
==>parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3460	3558	
==>parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you c <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3306	3403	
==>.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::shift ( --> Scalar ) {
m <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3835	3981	
==>(@ARGV) or die "Enter a one-liner";
    }
    elsif($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6799	6901	
==>( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6799	6901	
==>( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6347	6446	
==>ng the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6347	6446	
==>ng the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO obje <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6347	6446	
==>ng the noio example above, the "return" can be changed to
"return '__PRUNE__'". Anything the IO obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13269	13372	
==>ribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13269	13372	
==>ribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13269	13372	
==>ribute' => method () {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($label, %pa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25170	25282	
==>$other!) returns Bool>

This method returns a Bool indicating whether the immutable identity of the
argument C<$o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29722	29834	
==>$other!) returns Bool>

This method returns a Bool indicating whether the immutable identity of the
argument C<$o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8123	8238	
==>he undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8123	8238	
==>he undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8123	8238	
==>he undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	276	382	
==>s::MakeMaker ();

sub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
} <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6718	6814	
==>`end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6718	6814	
==>`end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4729	4840	
==>lias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contain <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4729	4840	
==>lias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contain <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5319	5430	
==>lias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->contain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2169	2280	
==>$authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2169	2280	
==>$authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2169	2280	
==>$authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    return $new_role;    
}

s <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3984	4094	
==>val { LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	37	133	
==>ng of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	37	133	
==>ng of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14224	14402	
==>shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14224	14402	
==>shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14224	14402	
==>shifts}}, ( $ret->shift, 
                        map { my $x = $_->shift } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return shift @{$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	312	413	
==>c) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	312	413	
==>c) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	312	413	
==>c) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers_known, %modifiers_supported_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3867	3970	
==>t test should fail.  C<$description> is the optional
description of the test.  This is the easiest way t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3867	3970	
==>t test should fail.  C<$description> is the optional
description of the test.  This is the easiest way t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3947	4050	
==>t test should fail.  C<$description> is the optional
description of the test.  This is the easiest way t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16592	16695	
==>OPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16592	16695	
==>OPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16592	16695	
==>OPSIS

  use Perl6::Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5284	5383	
==>be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5284	5383	
==>be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead lin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5284	5383	
==>be specified. If a filename is
prefixed with a tilde ("~"), the file is not inlined, but instead lin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13350	13456	
==>y), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is inters <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13350	13456	
==>y), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is inters <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2840	2941	
==>{names}{$node->orig};
}

sub declare {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3623	3710	
==>)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3807	3894	
==>)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[] <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2472	2566	
==><< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2472	2566	
==><< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4114	4220	
==>est::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4172	4278	
==>est::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3434	3591	
==>pl        # Convert from p5 code to p6 code

    -c            # Show conversion rules
    -e            # Convert one-liner
    -s            # List supporte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1446	1561	
==>luation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1203	1318	
==>luation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1018	1171	
==>?
            
            # print "tail $match \n"; 
            
            # XXX @expect should use symbolic names; better use TABLE instead of 'liter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3898	4020	
==>tering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3898	4020	
==>tering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14469	14671	
==>e no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17946	18148	
==>e no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17362	17564	
==>e no effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2370	2487	
==>t (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2370	2487	
==>t (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2370	2487	
==>t (1,\undef,2) works
# TODO - PIL-Run - grep() using 'Code'

# TODO - finish lazy slices
#        @a[1..100000000]=@b[ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24890	24991	
==>,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_flag_s(E0,s,E1), !.
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3994	4112	
==>arry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3994	4112	
==>arry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3994	4112	
==>arry@wall.org> wrote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the s <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1112	1206	
==>>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1112	1206	
==>>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3671	3829	
==>h; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovificati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3671	3829	
==>h; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovificati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3671	3829	
==>h; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovificati <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	647	802	
==>new {
        my $class = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shift;
        my $f = shi <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	111	203	
==>ally free, use it as you want
# -----------------------------------------------
#  !!WARNING! <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	111	203	
==>ally free, use it as you want
# -----------------------------------------------
#  !!WARNING! <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30049	30167	
==>ailures

Add a test for verbose.

Change internal list of test results to a hash.

Fix stats display when there's an ov <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	40	148	
==>-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration con <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	40	148	
==>-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration con <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23770	23886	
==>my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24049	24165	
==>my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6115	6211	
==>e";
	$pkg_type = "" if $pkg_type eq $pkg_this;
	$used{$pkg_type}=1 if $pkg_type;
	$used{$pkg_rep} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10803	10958	
==>$discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10803	10958	
==>$discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1215	1340	
==>} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementControl->parse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12771	12892	
==>h the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12771	12892	
==>h the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12771	12892	
==>h the special case of the
    # early $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	632	735	
==>($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$va <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	402	505	
==>($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	402	505	
==>($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$va <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2445	2579	
==>$event->{more_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the target <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9055	9156	
==>$span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9055	9156	
==>$span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15208	15336	
==>pe ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15208	15336	
==>pe ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15208	15336	
==>pe ($attribute)";
    }    
}));

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18125	18220	
==>n the Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
object <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18125	18220	
==>n the Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
object <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18914	19008	
==>et ; StrLen $length,   $replace)
{ Pugs::Internals::substr($s,$offset,undef,$length,undef,$repl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29926	30026	
==>-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34478	34578	
==>-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33642	33742	
==>-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $heading!, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1862	1995	
==>returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ----- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1862	1995	
==>returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ----- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3659	3763	
==>shift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4360	4464	
==>eter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4360	4464	
==>eter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6557	6661	
==>eter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1614	1720	
==>me, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1614	1720	
==>me, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1614	1720	
==>me, $version, $authority) = split '-' => $full_name;       
    my $new_class = _build_class($name, $versio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2796	2905	
==>Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2796	2905	
==>Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2876	2985	
==>Builder;
  use Test::Builder::Tester;

  plan 2;

  my $Test = Test::Builder.new();

  test_out( 'ok 1 - Hello <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3951	4051	
==>implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3951	4051	
==>implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3951	4051	
==>implement
# typechecking etc. I renamed the parameters to $__a and $__b. HAAACK!
sub infix:<~>(Str $_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2971	3086	
==>sult3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4981	5095	
==>expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: ) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4981	5095	
==>expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: ) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7199	7311	
==>les, file($path.'.index');
        push @index_files, map { $path->file($_) }
                $self->_index_files <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	512	610	
==>$pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	512	610	
==>$pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7165	7278	
==>PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7165	7278	
==>PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7165	7278	
==>PIL::VARS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_man <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4822	4922	
==>ing
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed into <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4822	4922	
==>ing
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed into <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4822	4922	
==>ing
of the original name. So if you had an object blessed into "MyClass",
it will now be blessed into <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2350	2471	
==>an we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2350	2471	
==>an we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12325	12450	
==>lse {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $args{args}) {
	_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16156	16243	
==>Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Dunca <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16214	16301	
==>Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Dunca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16471	16667	
==>y $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16471	16667	
==>y $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16471	16667	
==>y $array = shift; 
                return $array->clone;
            },
            'keys' => sub  { 
                my $array = shift; 
                my $ret = Array->new();
                $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23280	23376	
==>> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmon <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41204	41300	
==>> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmon <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37230	37326	
==>> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmon <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1700	1819	
==>"Hash",     #  └── "" ──┘
        array => "Array", iarray => "Array", #  └── "" ──┘
      );

o <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4455	4570	
==>=> &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($sel <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4455	4570	
==>=> &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1939	2156	
==>lement>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1939	2156	
==>lement>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16853	16983	
==>rsal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16853	16983	
==>rsal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16853	16983	
==>rsal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]->subclasses}) {
                unless (exists $seen{$su <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28033	28129	
==>$self: set_attr ((symbol new @:MRO) ($self: send (_merge)))) 
    ($self: get_attr (symbol new @: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19912	20006	
==>and the password.  In scalar context it will
return I<"uname:password"> as a single string valu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19912	20006	
==>and the password.  In scalar context it will
return I<"uname:password"> as a single string valu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1867	1972	
==>tr $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bi <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1867	1972	
==>tr $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1947	2052	
==>tr $line ) is export
{
    push @expect_diag, $line;
}

sub test_test ( Str $description = '' ) returns Bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11210	11380	
==>self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11210	11380	
==>self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11210	11380	
==>self->params }[$i];
                    my $candidate = $params[$i];
                    $num_required++ if $spec->required;
                    next if $spec->optional && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2438	2536	
==>PES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2438	2536	
==>PES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2438	2536	
==>PES[0 .. $#CUR_LEXSCOPES - $outer_level];
  for(reverse @scopes) {
    return $_->{$name} if $_->{$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1135	1230	
==>ion for details.  (In particular, 
note that the serious insecurities plaguing WEP were caused b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1135	1230	
==>ion for details.  (In particular, 
note that the serious insecurities plaguing WEP were caused b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7049	7150	
==>nal operators, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16838	16938	
==>_ok = 100*$tot->{ok}/$tot->{max};
        my $subpct = sprintf " %d/%d subtests failed, %.2f%% okay." <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6809	6905	
==>nal operators, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3649	3740	
==>sure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $se <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3649	3740	
==>sure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $se <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11999	12084	
==>char(C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11246	11374	
==>ny => '.');
  });


  ### '|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });


  re <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10117	10206	
==>$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defin <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10852	10941	
==>$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defin <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	323	423	
==>mpiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	323	423	
==>mpiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7689	7841	
==>ethod = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7689	7841	
==>ethod = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7689	7841	
==>ethod = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increm <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1360	1478	
==>ry;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1327	1445	
==>ry;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1722	1817	
==>ze)

The constructor takes as parameters at least C<rate of information> in
items per second and <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1722	1817	
==>ze)

The constructor takes as parameters at least C<rate of information> in
items per second and <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5054	5142	
==>peat_ng(W,Min,Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2715	2844	
==>}
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2715	2844	
==>}
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2715	2844	
==>}
  }

  sub arity {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8479	8582	
==>BTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8479	8582	
==>BTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8479	8582	
==>BTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNAME : '']}>" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	224	333	
==>ve an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	224	333	
==>ve an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is no <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	224	333	
==>ve an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-31
# * str() is no <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1781	1901	
==>h::Class::file('files.list')     ];
$config{'_control'}         = [ control         => SUBDIR_OF_META   ];
$config{'_alte <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2903	3012	
==>.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    retur <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2903	3012	
==>.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2303	2411	
==>" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2303	2411	
==>" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2303	2411	
==>" ],
    [ "infix:*",  "N", "Number(a)  * Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	962	1065	
==>|| confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	962	1065	
==>|| confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	962	1065	
==>|| confess "A method must be a blessed Perl6::Method object";
    
        ::bind_method_to_class($metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4834	4955	
==>optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4668	4784	
==>optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	330	432	
==>r but not ..." have been expressed as
#     complemented character sets.  <-[...]>  They are all tagged <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9743	9869	
==>use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9743	9869	
==>use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9743	9869	
==>use)=@_;
    use FindBin;
    use File::Spec;
    my $name = p6_to_s($xx);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3327	3433	
==>unning those tests, and then telling this module to compare the received
output to the expected output.

=h <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3327	3433	
==>unning those tests, and then telling this module to compare the received
output to the expected output.

=h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3407	3513	
==>unning those tests, and then telling this module to compare the received
output to the expected output.

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9263	9403	
==>s>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax er <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	360	469	
==>y="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns St <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	360	469	
==>y="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns St <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	587	684	
==>);
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	587	684	
==>);
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::D <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32207	32307	
==>lly turned on for this object (for flag assertions
and C<(?:...)>).

=item raw

The raw representatio <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2356	2466	
==>ite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2356	2466	
==>ite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8840	8932	
==>'> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule Doubl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	753	891	
==>n eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	753	891	
==>n eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->en <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	753	891	
==>n eq 'class') {
            $self->_close_current_class;            
            my $class = $self->_parse_class($i);
            $self->en <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2194	2315	
==>warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2194	2315	
==>warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2194	2315	
==>warning $msg;
    }
  }

  if !$p5 { 
    die "Perl 6 Rules are not supported." if !$perl5;
  }

  rx_core_(%mods,$pat,$qo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14937	15063	
==>ust be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14937	15063	
==>ust be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14937	15063	
==>ust be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5439	5544	
==>pful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5439	5544	
==>pful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5439	5544	
==>pful as well. It would take a fully qualified name, and attempt to 
locate the item. 

The other option is <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19499	19617	
==>in is primitive is safe {
    join($comma, map -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Hash $obj; $fmt, $comma <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11462	11564	
==>unc) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A goo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11462	11564	
==>unc) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A goo <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	200	350	
==>ass;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    sub get {
        $_[0]{$_[1]}
    }

    sub fm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13146	13239	
==>d names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> an <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13146	13239	
==>d names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1875	1977	
==>"));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1875	1977	
==>"));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1875	1977	
==>"));
  ?1;
}

sub JS::Root::slurp(Str $filename) is primitive {
  JS::inline('(
    function (filename) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	384	492	
==>$self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	384	492	
==>$self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	384	492	
==>$self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4194	4315	
==>:Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' ' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4048	4166	
==>:Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4373	4494	
==>> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4373	4494	
==>> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1145	1241	
==>e::TypeSafe::Type::Placeholder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	13	111	
==>ply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	13	111	
==>ply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	13	111	
==>ply ignore the position and ->as_js the real contents.
# The position is stored in $CUR_POS -- that <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1056	1163	
==>SAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1056	1163	
==>SAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1056	1163	
==>SAN;
use Prelude::JS::Perl5;
use Prelude::JS::Rules;
use Prelude::JS::Smartmatch;
use Prelude::JS::OO;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	169	337	
==>pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	169	337	
==>pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	169	337	
==>pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17629	17734	
==>= (
    header => \&header_handler,
    test => \&test_handler,
    bailout => \&bailout_handler,
);

$Str <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5602	5701	
==>et._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_com <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5602	5701	
==>et._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5664	5787	
==>"shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $mi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5664	5787	
==>"shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $mi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5664	5787	
==>"shift_n( $length ) from  ". $list->start . "..". $list->end;
            my $middle = $start + $length - 1;
            $mi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10456	10613	
==>ce( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10456	10613	
==>ce( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10456	10613	
==>ce( $start, $slice_size, @items );
            $pos = $pos + $slice_size;
            #warn "pos = $pos";
        }
        else {
            # non-lazy slic <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2538	2636	
==>t.  It also contains extra
information passed on by the HTTP server, useful to the authors of CGI s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2538	2636	
==>t.  It also contains extra
information passed on by the HTTP server, useful to the authors of CGI s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5048	5145	
==>ames here is a major abstraction violation.
# Need to figure out positional constructors.  At leas <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8142	8286	
==>bitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf | <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8142	8286	
==>bitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7807	7926	
==>classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7807	7926	
==>classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7807	7926	
==>classes($pilc);
    my @classes_needed = grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	47	165	
==>S for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact commandline options given. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	47	165	
==>S for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact commandline options given. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	47	165	
==>S for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact commandline options given. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6425	6649	
==>ed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6425	6649	
==>ed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6425	6649	
==>ed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19262	19359	
==>ry or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
ven <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19262	19359	
==>ry or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
ven <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10881	10977	
==>ode = ("(p6_meta('$class')".
		 "->add_method($namestr".
		 "=> ::make_${k}(do{my \$__f".
		 "= $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3779	3889	
==>r::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16195	16303	
==>ame,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1560	1661	
==>ldren.

C<App> is a type of value - it applies its first child to the rest of its
children.

=item Map <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9108	9199	
==>$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9108	9199	
==>$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18332	18423	
==>ern@pobox.com> >>, currently maintained by
Andy Lester C<< <andy@petdance.com> >>.

=head1 S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3719	3837	
==>ly { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  package Regexp::Parser <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2587	2703	
==>e)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_succes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2587	2703	
==>e)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_succes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1211	1401	
==>::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1211	1401	
==>::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1211	1401	
==>::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            },
            init => sub {
                $::SELF->val_bool( 1 );
                $:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2697	2807	
==>.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2697	2807	
==>.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2697	2807	
==>.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pugs::Internals:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	133	249	
==>le::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	133	249	
==>le::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS nee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	133	249	
==>le::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { require Class::Rebless };
  if($@) {
    warn <<MSG;
*** PIL2JS nee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4138	4257	
==>ram{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4138	4257	
==>ram{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4138	4257	
==>ram{pops};

    return bless \%param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2128	2221	
==>.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2128	2221	
==>.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2128	2221	
==>.length })')(~$self) }
method codes  (Str $self:) { JS::inline('(function (str) { return str.l <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	20389	20525	
==>s' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12869	12964	
==>`end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurren <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12869	12964	
==>`end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurren <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	910	1016	
==>cee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	910	1016	
==>cee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	910	1016	
==>cee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.unshift(new PIL2JS.Box(add[i].FETC <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	828	920	
==>:en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document des <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	828	920	
==>:en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document des <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	770	864	
==>|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4363	4456	
==>t the right method return value');
is($Object->superclass, undef, '... $Object got the right m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6265	6358	
==>t the right method return value');
is($Object->superclass, undef, '... $Object got the right m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5133	5263	
==>= @_;
            ::opaque_instance_class($self)->add_method($label, $method);
        },          
    },
);

# < Class is a subcl <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2195	2317	
==>$code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50690	50859	
==>lf:' => 'opaque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->create('$identifier' => $e->get(' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18050	18159	
==>ot of it uses a
regexp struct, which gets attached to the op tree.  The struct is used
variously to return the <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	415	505	
==>$pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	415	505	
==>$pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9814	9939	
==>x);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9814	9939	
==>x);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9814	9939	
==>x);
    if ($name =~ /^v6\b/) {
	return;
    }
    if ($name =~ /^perl5:(.+)/) {
	my $pkg = $1;
	eval "require $pkg;";
	die "r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3121	3217	
==>etamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3121	3217	
==>etamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3121	3217	
==>etamodel_base|output)$/) {
    print $OUT "Usage: :conf pugs|pil2js|prelude|preludepc|metamodel_b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2129	2254	
==>e = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2269	2394	
==>e = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $gra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	238	346	
==>ss {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	238	346	
==>ss {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	238	346	
==>ss {
        tokenizer => Perl6::MetaModel::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4251	4407	
==>'$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4251	4407	
==>'$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4251	4407	
==>'$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	805	946	
==>xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	805	946	
==>xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11810	11936	
==>kip does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          return "not ok $.number #skip $. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2232	2350	
==>kip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2232	2350	
==>kip does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        return "not ok $.number #skip $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	373	504	
==>& ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; pus <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8550	8658	
==>leop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, le <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8250	8355	
==>leop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, le <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19409	19508	
==>status);
}


 multi Control::Basic::nothing ()


 multi Control::Basic::sleep ( Num $for = Inf --> N <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19913	20009	
==>thing similar but that is more mutable, you can accomplish
that manually using a set of mappings, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24465	24561	
==>thing similar but that is more mutable, you can accomplish
that manually using a set of mappings, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23017	23113	
==>thing similar but that is more mutable, you can accomplish
that manually using a set of mappings, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6608	6734	
==>et_data( $_[0], '$<list>' );
    my $fh   = get_str( $_[0], '$<indirect_object>' );
    my $cmd  = "    print";
    $cmd =    " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1668	1759	
==>Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1668	1759	
==>Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compile <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4325	4473	
==>{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4325	4473	
==>{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dir <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6787	6896	
==>.",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	155	253	
==>x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infi <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	155	253	
==>x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37023	37136	
==>defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37023	37136	
==>defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37023	37136	
==>defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11604	11721	
==>etch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11604	11721	
==>etch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11604	11721	
==>etch if Perl6::Value::p6v_isa( $key, 'Scalar' );
    my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5866	6019	
==>reedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2315	2443	
==>path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2315	2443	
==>path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16911	17014	
==>mmon, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size() <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20388	20491	
==>mmon, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size() <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19966	20069	
==>mmon, and each
    # source has attributes not in the other.

    if ($!body.size() > $other!body.size() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1541	1663	
==>class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1541	1663	
==>class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1541	1663	
==>class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instanc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15502	15631	
==>r, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16917	17046	
==>r, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21673	21802	
==>r, @{ $self->{data} }), ")";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1868	1975	
==>def; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2085	2192	
==>def; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15836	15938	
==>on>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpre <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6388	6511	
==>=> chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(820 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6388	6511	
==>=> chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(820 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12073	12156	
==>tests_total"><span title="<tmpl_var name=total> total"><tmpl_var name=total></span>: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	691	790	
==>) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	691	790	
==>) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	655	756	
==>n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	655	756	
==>n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	655	756	
==>n";
  }
}

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	481	621	
==>charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	481	621	
==>charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	481	621	
==>charCodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    ( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6278	6392	
==>, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a laz <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6278	6392	
==>, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a laz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	378	480	
==>d work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	378	480	
==>d work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	378	480	
==>d work, but doesn't (pugs dies with "can't open file").

use FindBin;
use File::Spec;
sub pwd { File::S <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	667	795	
==>nd($second),
                             :tz($tz) );
}

# convert from an iso date
multi sub date( Str $iso8601 ) returns Date:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5796	5892	
==>per(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5796	5892	
==>per(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5796	5892	
==>per(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, Arr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11844	11961	
==>(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11844	11961	
==>(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	816	932	
==>struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- sub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3187	3437	
==>ss Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3187	3437	
==>ss Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Ros <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4315	4440	
==>i Num::round_floor ( Num $x ) {
    my $x_round = floor($x);

    return $x_round;
}

our Int multi Num::round_toward_zero ( N <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17505	17604	
==>t loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17505	17604	
==>t loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9095	9239	
==>->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9095	9239	
==>->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9095	9239	
==>->new( '$.unboxed' => 0 ) },
            'int' => sub { Int->new( '$.unboxed' => 0 ) },
            'str' => sub {
                my $key =   Pe <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3626	3748	
==>rue if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && de <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3626	3748	
==>rue if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && de <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7502	7610	
==>returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7502	7610	
==>returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	111	213	
==>{} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	111	213	
==>{} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	111	213	
==>{} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1027	1165	
==>separator '---'" unless $doc;
            $doc->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry, nesting not suppor <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12704	12804	
==>tive and '_'
can be used as a replacement for '-'.

The return value is the values of the fields remo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12704	12804	
==>tive and '_'
can be used as a replacement for '-'.

The return value is the values of the fields remo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5231	5351	
==>nput file.
In linking mode, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5231	5351	
==>nput file.
In linking mode, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5231	5351	
==>nput file.
In linking mode, multiple input files may be specified. If a filename is
prefixed with a tilde ("~"), the file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25301	25477	
==>l6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25301	25477	
==>l6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25301	25477	
==>l6::Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7989	8146	
==>list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7989	8146	
==>list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7989	8146	
==>list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junctio <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2211	2335	
==>s ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2735	2849	
==>NT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2735	2849	
==>NT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	372	485	
==>l :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!memb <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	372	485	
==>l :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!memb <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3270	3383	
==>~$x & $x) eq 0);
	return 'numeric';
    }
    if($ref eq 'SCALAR') {
	return 'scalar_non_numeric' if !((~$$x & $$x <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26395	26496	
==>(or rather, the corresponding projection of
each tuple), but that any duplicates following the project <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30947	31048	
==>(or rather, the corresponding projection of
each tuple), but that any duplicates following the project <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29949	30050	
==>(or rather, the corresponding projection of
each tuple), but that any duplicates following the project <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40247	40372	
==>e::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40247	40372	
==>e::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40247	40372	
==>e::numify( $key );
    $this->{arrayref}[$s]
}
sub push {
    my ( $this, $value ) = @_;
    push @{$this->{arrayref}}, $value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	173	322	
==>rCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	173	322	
==>rCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	173	322	
==>rCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (function () \{
      var res    = \"\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3148	3270	
==>ersal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  . <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3148	3270	
==>ersal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  . <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1635	1728	
==>.$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9]+)\]/'".$m->['.($1-1).']->to."'/ge;
	$e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22822	22914	
==>index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22822	22914	
==>index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22822	22914	
==>index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1798	1931	
==>0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1798	1931	
==>0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1798	1931	
==>0
    )
  ) {
    if(ref $sub eq "CODE") {
      return $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2766	2883	
==>elf->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both kinds of requires into prereq_pm
    my $prere <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6053	6159	
==>IS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUT <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6053	6159	
==>IS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3223	3352	
==>y @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3223	3352	
==>y @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3223	3352	
==>y @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15582	15682	
==>6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15582	15682	
==>6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15582	15682	
==>6_from_a($xx->key, $xx->value) };
MULTI SUB keys ($xx) { $xx->keys };
MULTI SUB values ($xx) { $xx->v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5534	5655	
==>y($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5534	5655	
==>y($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5534	5655	
==>y($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $bod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2627	2757	
==>ject(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2111	2214	
==>gs;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $s <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1220	1320	
==>gs;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1047	1194	
==>y $rx = $self->{rx};
    my $merged = 0;
    return if $self->omit;
    push @$tree, $self;
    $self->merge;
  }

  sub merge {
    my ($self) = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29758	29878	
==>!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29758	29878	
==>!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5282	5402	
==>eate 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5282	5402	
==>eate 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10403	10519	
==>bmatches
    capture - return'ed things
    
    state - a "continuation" or undef
    abort - the match was stop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10705	10831	
==>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10705	10831	
==>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10705	10831	
==>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args.')]' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	123	239	
==>ight.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	123	239	
==>ight.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	123	239	
==>ight.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { not $left ~~ $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9982	10106	
==>ub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9982	10106	
==>ub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9982	10106	
==>ub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2019	2132	
==>$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2019	2132	
==>$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2019	2132	
==>$barename');\n";
    $code .= "sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2000	2104	
==>me2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2000	2104	
==>me2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8149	8252	
==>r you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8149	8252	
==>r you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Obje <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8149	8252	
==>r you, but more control)
  class 'Foo-0.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	676	777	
==>MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subrout <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	676	777	
==>MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subrout <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	676	777	
==>MetaModel t/80_Code.t
# * 'Code', 'Sub', 'MultiSub', 'Block' are now Perl6 classes

# Notes:
# Subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15238	15344	
==>);

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15238	15344	
==>);

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15238	15344	
==>);

$::Class->add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	44	165	
==>rph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	44	165	
==>rph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	44	165	
==>rph.pl into Perl 6. It is mostly 
an experiment in using the MOP, and not meant to be anything definitive.

=cut


::Class <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4253	4386	
==>rt    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19761	19857	
==>nts.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D ho <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19761	19857	
==>nts.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D ho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30372	30471	
==>ing>) may or may not resemble those of the original. 
The anonymous function in the argument C<$tran <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34924	35022	
==>ing>) may or may not resemble those of the original.
The anonymous function in the argument C<$tran <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34106	34204	
==>ing>) may or may not resemble those of the original.
The anonymous function in the argument C<$tran <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10414	10505	
==>$self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $se <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10414	10505	
==>$self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $se <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1290	1413	
==>of Pair) )
multi Array::pairs  (@array ; MatchTest *@indextests )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, Pai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15044	15155	
==>d {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15044	15155	
==>d {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34721	34855	
==>ef($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34721	34855	
==>ef($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34721	34855	
==>ef($array);
    my ( @head, @body, @tail );
    my ( $len_head, $len_body, $len_tail );
    # print "items: ", $array->items, " splice: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	939	1030	
==>gine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	939	1030	
==>gine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5516	5639	
==>um( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5516	5639	
==>um( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5516	5639	
==>um( _('$.unboxed') ) ) },
            'int' =>  sub { $::SELF },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19432	19531	
==>is not the same as a table.

The intended interface and use of this class in Perl programs is simila <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23984	24083	
==>is not the same as a table.

The intended interface and use of this class in Perl programs is simila <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22500	22599	
==>is not the same as a table.

The intended interface and use of this class in Perl programs is simila <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3913	4036	
==>ty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3913	4036	
==>ty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3913	4036	
==>ty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $html .= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9344	9456	
==>ght look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # ------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9344	9456	
==>ght look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # ------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9344	9456	
==>ght look like. 

role Role {
    has @:roles is rw;  # makes the roles mutator/accessor

    # ------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7339	7548	
==>f : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7339	7548	
==>f : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7339	7548	
==>f : 0 
            }
            else
            {
                return Inf if $end == Inf;
                return $start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1404	1543	
==>*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1404	1543	
==>*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1404	1543	
==>*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	382	500	
==>y handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	382	500	
==>y handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	480	591	
==>$0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{check_nmake <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7329	7437	
==>ole');

# create a class to put the roles in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar',
    '$:s <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	499	599	
==>$0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_nmake <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39400	39498	
==>e checking (C<[a-z]>) requires knowledge of the characters
on the lower and upper side of the range <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	621	716	
==>submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epo <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	621	716	
==>submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6077	6184	
==>he eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6077	6184	
==>he eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6077	6184	
==>he eigenclasses now
        if (::opaque_instance_id($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14090	14451	
==>d      => '??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_D <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4212	4314	
==>line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`]) <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4212	4314	
==>line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`]) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32721	32816	
==>contains all the tuples of the source Relations, including
one copy each of any duplicated tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37271	37366	
==>contains all the tuples of the source Relations, including
one copy each of any duplicated tuple <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36588	36683	
==>contains all the tuples of the source Relations, including
one copy each of any duplicated tuple <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1849	1951	
==>.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1849	1951	
==>.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1849	1951	
==>.chars > 2) && (substr($k,-2,2) eq ("th"|"st"|"nd"|"rd"))
           && ($k ~~ %rx_helper_cache{'re_nth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21541	21655	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17962	18076	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9722	9840	
==>_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9702	9820	
==>_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6249	6355	
==>eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive($v,'Numb <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12731	12858	
==>snegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	298	396	
==>(blessed($value) && $value->isa('type'))
        || confess "You must provide a value to reference" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	733	831	
==>(blessed($value) && $value->isa('type'))
        || confess "You must provide a value to reference" <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6599	6698	
==>ven C<$test_file> and parses its
results.  It will also use that name for the total report.

=cut

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1357	1469	
==>es'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1357	1469	
==>es'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods')) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1357	1469	
==>es'      => ::make_attribute('@:roles'));
$::Role->add_attribute('%:methods'    => ::make_attribute('%:methods')) <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9106	9268	
==>y $s = substr($str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.from;
              {$a}. <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6968	7066	
==>eally the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::inser <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6968	7066	
==>eally the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::inser <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	262	394	
==>e::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	260	392	
==>e::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shi <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	546	652	
==>Config{inline};
precomp(), exit 0 if $Config{precompile};
usage();
exit 1;

sub setup_output {
    if ($Con <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18303	18418	
==>GE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_1:
    self["cutnum"] = $I0
    .return ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3988	4079	
==>b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3988	4079	
==>b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7766	7878	
==>=> Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7766	7878	
==>=> Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7766	7878	
==>=> Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' => Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7887	8046	
==>n $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7887	8046	
==>n $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7887	8046	
==>n $a->slice( 0 .. Perl6::Value::numify( $a->elems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1082	1191	
==>mify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1082	1191	
==>mify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1082	1191	
==>mify( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	237	325	
==>dified_since if_unmodified_since last_modified
    content_type content_encoding content_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	237	325	
==>dified_since if_unmodified_since last_modified
    content_type content_encoding content_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	219	316	
==>s.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	219	316	
==>s.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:a <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20042	20142	
==>ash,
or various combinations of other data types.

While the implementation can be changed greatly (i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24594	24694	
==>ash,
or various combinations of other data types.

While the implementation can be changed greatly (i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23146	23246	
==>ash,
or various combinations of other data types.

While the implementation can be changed greatly (i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	956	1088	
==>rs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	956	1088	
==>rs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	956	1088	
==>rs}});              
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::opaque_instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2660	2761	
==>line;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2660	2761	
==>line;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2660	2761	
==>line;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_s, as_a, as <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	995	1087	
==>::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	995	1087	
==>::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1075	1167	
==>::Builder::Tester::Output.new();
my $tb_test   = Test::Builder.new( output => $tb_output );
$ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1832	1951	
==>";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(in <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1832	1951	
==>";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(in <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4904	5052	
==>i;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5063	5152	
==>$self->{param}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator:: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1163	1281	
==>onding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4641	4759	
==>onding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3553	3671	
==>onding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12256	12427	
==>es Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          my $ok          = $.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2644	2805	
==>es Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2644	2805	
==>es Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my $ok          = $.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	727	850	
==>\"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	727	850	
==>\"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	727	850	
==>\"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.leng <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	569	695	
==>);
  });

  ### BACKSLASHED THINGS

  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8895	8997	
==>ge and an optional available list
    ### and check if the package is available/provided by any install <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10372	10474	
==>ge and an optional available list
    ### and check if the package is available/provided by any install <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2924	3024	
==>confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, %opti <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5360	5503	
==>list -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unle <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5360	5503	
==>list -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unle <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	144	239	
==>ch unübersichtlich:
my $option = $para{'x'};
$option = "wert" unless defined $option;

#!\pause <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	333	422	
==>clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filt <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	333	422	
==>clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1164	1259	
==>1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1164	1259	
==>1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1164	1259	
==>1. Work around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	207	306	
==>ap`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair con <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	207	306	
==>ap`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair con <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	1965	2062	
==>)[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	398	505	
==>line's first param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	398	505	
==>line's first param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	398	505	
==>line's first param is directly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12376	12471	
==>ess to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML: <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12376	12471	
==>ess to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14872	14963	
==>sh_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_hash_complain->("sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3679	3804	
==>diately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3679	3804	
==>diately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3679	3804	
==>diately?
#   Because then we can't use them anymore. E.g.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3692	3787	
==>ciphering"), and any 
other options to the constructor.  Then you call the cipher() method repea <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3692	3787	
==>ciphering"), and any 
other options to the constructor.  Then you call the cipher() method repea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1498	1605	
==>ame effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should crea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1498	1605	
==>ame effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should crea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1498	1605	
==>ame effect as {""=>undef}. But if a hash is declared with shape(Any), {undef()=>undef} 
#        should crea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1571	1658	
==>imitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1571	1658	
==>imitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1571	1658	
==>imitive is rw { PIL2JS::Internals::generic_deref($thing) }
sub circumfix:<&{}>($thing) i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9000	9109	
==>rted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  us <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9058	9167	
==>rted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1128	1241	
==>) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	867	975	
==>) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1072	1180	
==>) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub : <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1179	1273	
==>s.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1179	1273	
==>s.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16421	16513	
==>ent with this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16421	16513	
==>ent with this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16421	16513	
==>ent with this attribute when it's declared"
$::Class->add_method('find_attribute_spec' => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7249	7359	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7249	7359	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7249	7359	
==>and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_match_objects (
  Match $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5713	5816	
==>to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5713	5816	
==>to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5713	5816	
==>to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implement &try <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13215	13325	
==>n_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13215	13325	
==>n_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13215	13325	
==>n_unacceptable = 1;
    'my $__flag;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1336	1451	
==>ue ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1336	1451	
==>ue ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5244	5355	
==>w;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $type = $self->simplify_type(@_);
		Scalar::Uti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7292	7413	
==>'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3896	4017	
==>'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4745	4866	
==>'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ s/(["\$%@])/\\$1/g;
    #return '"' . $_[0] . '"';
}
sub node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22106	22222	
==>($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22106	22222	
==>($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22106	22222	
==>($xx0), map{p6_to_s($_)} @xxa));
};
MULTI SUB exec (*@xx) {
    @xx = map{p6_to_s($_)} @xx;
    exec @xx;
};
# system <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8679	8788	
==>Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.g <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19121	19230	
==>Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.g <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2651	2757	
==>rint STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id}{'ops'}}]; local $Z::oop{$id}{'ops'} = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4882	5007	
==>application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2424	2549	
==>application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3205	3330	
==>application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_str( $_[0], '$<op>' );
    my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3510	3623	
==>.
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3510	3623	
==>.
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3510	3623	
==>.
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub command_prec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4403	4511	
==>capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous vers <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4415	4523	
==>capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous vers <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10325	10427	
==>to which it will
look:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $iter->(-depth)) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	410	521	
==>ect"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	410	521	
==>ect"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	410	521	
==>ect"
#   implements a hash in which the keys can be objects
#
# 2005-08-14
# * added functions clone(), elems(), <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1391	1508	
==>t;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @result <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12202	12301	
==>andle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12202	12301	
==>andle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2772	2876	
==>know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2772	2876	
==>know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17070	17186	
==>t is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SEL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20547	20663	
==>t is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SEL <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20125	20241	
==>t is faster for outer loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SEL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4231	4334	
==>dmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4231	4334	
==>dmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4231	4334	
==>dmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19068	19175	
==>.^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19068	19175	
==>.^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19068	19175	
==>.^> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5285	5462	
==>>{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( @{$assoc{$_}} ) {
                    if ( $op-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1123	1220	
==>g of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1123	1220	
==>g of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5769	5962	
==>val { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6233	6426	
==>val { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entr <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14902	14996	
==>depends on what your current lexical context has
declared the "working unicode level to be". De <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	386	487	
==>ive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	386	487	
==>ive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	386	487	
==>ive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9363	9457	
==>LTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9363	9457	
==>LTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9363	9457	
==>LTI SUB require_haskell ($xx) {...};
MULTI SUB require_parrot ($xx) {...};
MULTI SUB require_pe <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	750	868	
==>pen \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($smoke =~ /^<!DOCTYPE html/) {
    debug " <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4875	4990	
==>where object required") unless ref $_[0];
  my $type = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4752	4851	
==>parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Bui <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4752	4851	
==>parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6949	7048	
==>parameter and contains the test description.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Bui <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5171	5289	
==>lf;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14351	14459	
==>ib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $sec <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14351	14459	
==>ib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $sec <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	249	351	
==>);
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	249	351	
==>);
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1306	1407	
==>nvironment for Perl 6

=head1 SYNOPSIS

  class MySession is POE::Session {
    method dispatch (Str $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3815	3948	
==>he right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prototype
        prototype => new Point($x, $y),  
    # re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1237	1355	
==>ed_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3252	3363	
==>ode?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3252	3363	
==>ode?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3252	3363	
==>ode?, Str :$lang = 'Perl6') {
  if (lc($lang) eq 'perl5') {
    # TODO: do try here and handle $!
    return JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9896	9996	
==>nter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9896	9996	
==>nter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9896	9996	
==>nter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20746	20838	
==>s.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20746	20838	
==>s.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1383	1488	
==>removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1383	1488	
==>removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1383	1488	
==>removed the hack (temporarily?).
  # --iblech

  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4424	4614	
==>=> {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4424	4614	
==>=> {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4424	4614	
==>=> {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell->new } } ] ],
        DESTROY => sub {
            # _('$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6915	7009	
==>)($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6915	7009	
==>)($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6915	7009	
==>)($matcher);
}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	270	369	
==>ods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	270	369	
==>ods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	270	369	
==>ods: .set_tieable(), .access()
#   These functions will be provided by traits. See t/trait.t.
#   Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	765	894	
==>dd_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	765	894	
==>dd_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	765	894	
==>dd_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label)
            || confess "You must su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3986	4102	
==>atch;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4126	4242	
==>atch;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1804	1926	
==>om  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1804	1926	
==>om  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1804	1926	
==>om  => sub {
        my($opts) = @_;
        $opts->{editor} or confess "custom reblesser requires an editor";
    },
);

w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5161	5290	
==>"
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5161	5290	
==>"
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5161	5290	
==>"
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1787	1881	
==>d.

=head1 CAVEATS

This is an experimental, pre-alpha development snapshot.  There are current <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20980	21071	
==>a's rigorously defined API onto a pre-existing (pseudo) relational
database manager (such as <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20980	21071	
==>a's rigorously defined API onto a pre-existing (pseudo) relational
database manager (such as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8795	8973	
==>{
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->next <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8795	8973	
==>{
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->next <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8795	8973	
==>{
                            my $tmp = $param[0]->fetch( $key )->fetch;
                            $self->store( $key, $tmp );
                            $key = $param[0]->next <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6884	7026	
==>s
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7348	7490	
==>s
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12769	12863	
==>nite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12769	12863	
==>nite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17178	17272	
==>'s uppercase
form, if lowercase. This is not a Unicode "titlecase" operation, but a
full "upper <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19225	19387	
==>er, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19225	19387	
==>er, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the o <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19225	19387	
==>er, 'Array' ) ) {
                            if ( UNIVERSAL::isa( $other->tied, 'Perl6::Slice' ) ) {
                                # unbind the slice from the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1340	1434	
==>000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1340	1434	
==>000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1340	1434	
==>000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6328	6479	
==>tribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6328	6479	
==>tribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6328	6479	
==>tribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attribute($at <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13444	13544	
==>n.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13444	13544	
==>n.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2394	2490	
==>::Pretty - An emitter that reduces a program into a string of
(hopefully) perlish text.

=head1 S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	803	905	
==>List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	803	905	
==>List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	803	905	
==>List (lazy, non-lazy, infinite)
# * More descriptive method names:
#   - .unboxed() - returns the unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1809	1924	
==>work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1809	1924	
==>work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1809	1924	
==>work on objects of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33802	33961	
==>:List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33802	33961	
==>:List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if U <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33802	33961	
==>:List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if U <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1947	2049	
==>ed to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1947	2049	
==>ed to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1947	2049	
==>ed to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUTHO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4554	4641	
==>Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4554	4641	
==>Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4554	4641	
==>Class::Rebless->rebase($myobj, "New::Namespace::Root");

Finds all blessed objects refer <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1001	1190	
==>MS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1001	1190	
==>MS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1833	1944	
==>);
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1833	1944	
==>);
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1833	1944	
==>);
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15892	15994	
==>te => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $usernam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15892	15994	
==>te => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $usernam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11316	11414	
==>od; specifically, in the case
of a sub-class that adds a handler, the qr() method is used to produc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15941	16051	
==>g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15941	16051	
==>g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15941	16051	
==>g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2837	2957	
==>int STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2837	2957	
==>int STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2837	2957	
==>int STDERR "$barename  @$v\n";
		    foreach my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a-> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6230	6337	
==>oto term_literal_end
    inc pos
    inc litlen
    goto term_literal_loop
  term_literal_end:
    if litlen <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2258	2357	
==>all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Ried <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2258	2357	
==>all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Ried <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2192	2286	
==>(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2192	2286	
==>(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2192	2286	
==>(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8681	8805	
==>put string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8681	8805	
==>put string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8681	8805	
==>put string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^a-zA-Z0-9_,.=:; ()\[\]{}+\ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2632	2836	
==>number(),
                    '$.reason'      =>  $reason,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },        
        'ski <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4503	4616	
==>lue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4503	4616	
==>lue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33978	34096	
==>_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33978	34096	
==>_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33978	34096	
==>_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9853	9981	
==>he a line number, so leave them out for now
          if($test->{todo}||0 == 1) {
          $lines->{$line} = 2;
          } else <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4858	4969	
==>_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4858	4969	
==>_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	863	1023	
==>se {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @curr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	863	1023	
==>se {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @curr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7543	7643	
==>In the List section.
multi Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimit <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2578	2679	
==>ot return all (or any) of the data you 
passed in, and that the finishing step may return data.

An ex <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2578	2679	
==>ot return all (or any) of the data you 
passed in, and that the finishing step may return data.

An ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11125	11308	
==>= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_requi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11125	11308	
==>= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_requi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11125	11308	
==>= scalar $#params;
                    # warn $i;
                    my $spec = ${ $self->params }[$i];
                    my $candidate = $params[$i];
                    $num_requi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	842	948	
==>ubdir( $pkg );
}


=head2 $dir = $inst->alternatives_dir

=cut

sub alternatives_dir {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2146	2248	
==>ub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2146	2248	
==>ub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2593	2695	
==>ing, return value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2593	2695	
==>ing, return value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2593	2695	
==>ing, return value checking and autoboxing/un-boxing
# TODO - add support for optional parameters ?$x, p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	481	599	
==>);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$nod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	516	634	
==>);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$nod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	481	599	
==>);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn)$/;
        my $src_path = "$src/$nod <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3402	3534	
==>r way to find this.
        # (registry lookup?)

        my $cygroot = $ENV{'!C:'};

        $cygroot =~ s{\\bin$}{};

        $full <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	812	912	
==>spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	812	912	
==>spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5113	5207	
==>canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5113	5207	
==>canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5113	5207	
==>canonical'), $label);
}));

$::Class->add_method('id'    => ::make_method(sub { ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	826	936	
==>ucture
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1031	1141	
==>ucture
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1087	1197	
==>ucture
    sub ::opaque_instance_id    ($) : lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4928	5039	
==>= 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4928	5039	
==>= 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5518	5629	
==>= 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::Bind::_av_store($ref, $i++, \$v <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4863	4987	
==>lone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4863	4987	
==>lone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_en <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3329	3439	
==>y @operatorStack = [];
  my @tokenStack = [];
  my $termEmpty = $self->termTable()->{""};
  my $operatorEmpty = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2574	2700	
==>@bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2574	2700	
==>@bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2574	2700	
==>@bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      retu <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4065	4164	
==>R "... " if $Config{verbose};
}

# Strip comments and docs while preserving the line counts
sub stri <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10728	10826	
==>class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $p <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10728	10826	
==>class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3290	3406	
==>ed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $descrip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3290	3406	
==>ed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $descrip <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4814	4930	
==>ed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  sub is ($got, $expected, $descrip <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20670	20772	
==>t implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17091	17193	
==>t implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20022	20117	
==>o set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20022	20117	
==>o set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	14785	14914	
==>_files = @new_dir_files;
            }
        }
    } # foreach test
    $tot{bench} = timediff(new Benchmark, $t_start);

    $S <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	836	931	
==>module provides information about the server your CGI is running on. It also 
attempts to provid <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	836	931	
==>module provides information about the server your CGI is running on. It also 
attempts to provid <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8687	8790	
==>wn strap subclass,
such as a PHP interpreter for a PHP-based strap.

=cut

sub _command {
    my $self = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34468	34563	
==>and Member Names is set from the named parameter
@member_names (an array ref).

Some example usa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34468	34563	
==>and Member Names is set from the named parameter
@member_names (an array ref).

Some example usa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1459	1573	
==>EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of it <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1459	1573	
==>EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10831	10929	
==>e from first Object singleton/class method called by Bar');      
  
is($Bar->singleton_test_on_Foo <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4574	4721	
==>st)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   List      post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14330	14438	
==>values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14330	14438	
==>values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5255	5353	
==>E >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5255	5353	
==>E >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5255	5353	
==>E >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1474	1575	
==>|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1474	1575	
==>|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1474	1575	
==>|pm|p6m|t)$/i
    ? decode "utf-8", run_pugs("-CPIL1-Perl5", $input[0])
    : slurp $input[0];
  my $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2638	2747	
==>ormalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2638	2747	
==>ormalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2985	3094	
==>ormalize([\'this is title'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

T <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	83	216	
==>s rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            g <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	83	216	
==>s rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3707	3899	
==>')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3707	3899	
==>')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3707	3899	
==>')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junction - Perl6 junctio <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	490	680	
==>mpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installation => { 
            requi <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1137	1237	
==>idget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1137	1237	
==>idget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9096	9202	
==>ull_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9092	9198	
==>ull_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11697	11863	
==>dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11697	11863	
==>dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11697	11863	
==>dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7713	7819	
==>js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7713	7819	
==>js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7713	7819	
==>js, "pad[$padname] = $jsname;";

    # Always bind $?SELF to us, if we're the invocant param.
    if($self- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16402	16499	
==>.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is f <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16460	16557	
==>.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2231	2336	
==>ode); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2231	2336	
==>ode); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2231	2336	
==>ode); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3824	3946	
==>obj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3824	3946	
==>obj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3824	3946	
==>obj;

    # For debugging
    unless($self->{CC}) {
      warn "Internal error: Missing CC!\n";
      require YAML; warn YA <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6331	6441	
==>d store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6331	6441	
==>d store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	380	482	
==>led";
my $m;
if($bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
  $m = match($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2091	2225	
==>ode) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2091	2225	
==>ode) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2091	2225	
==>ode) {
    while(!$test()) {
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4524	4694	
==>1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4524	4694	
==>1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4524	4694	
==>1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => sub { ref($_[0]) eq 'ARRAY' || <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3563	3673	
==>UB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3563	3673	
==>UB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3563	3673	
==>UB Array::slice ($a,$i) {
    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3526	3670	
==>ex, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shif <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3990	4134	
==>ex, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shif <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3165	3260	
==>IDATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package P6RulesIn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13909	14009	
==>:ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13909	14009	
==>:ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13909	14009	
==>:ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XX <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3980	4087	
==>alse, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3980	4087	
==>alse, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6177	6284	
==>alse, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1169	1268	
==>ut performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1169	1268	
==>ut performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1169	1268	
==>ut performance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16531	16632	
==>TI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::as <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16531	16632	
==>TI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::as <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16531	16632	
==>TI SUB DESTROYALL ($xx) {...};
# MULTI SUB prefix:<,> (*@a) {@a}; # ??? - unneeded?
MULTI SUB Code::as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6334	6477	
==>>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6334	6477	
==>>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6334	6477	
==>>"
         ." sub \{ "
         .$body
         ."})))) })->()"
         .";\n"); # XXX why?
    } elsif($_[0]{'pSubType'} eq 'SubPrim'
	    && <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16934	17127	
==>ay = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16934	17127	
==>ay = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16934	17127	
==>ay = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( int( rand( $n ) ) );
            },
            'AUTOL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4954	5102	
==>ore: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4954	5102	
==>ore: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4954	5102	
==>ore: @_" if @_;
                if ( Perl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7692	7848	
==>od = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7692	7848	
==>od = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7692	7848	
==>od = __('$AUTOLOAD');
                my $tmp = _('$:cell')->fetch;

                if ( defined $tmp ) {
                    if ( $method eq 'increment' || <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	995	1126	
==>ced yet, but will be some time in the next few
    # releases once we can make sure it won't clash with custom
    # Module::Install <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3595	3713	
==>ore";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    retu <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3595	3713	
==>ore";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7191	7350	
==>:numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7191	7350	
==>:numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7191	7350	
==>:numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12099	12223	
==>shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12099	12223	
==>shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12099	12223	
==>shift;
    # hashref => \%ENV;
    my %param = @_;
    $param{hashref} = {} unless defined $param{hashref};
    bless { %para <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3149	3299	
==>0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3149	3299	
==>0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5557	5663	
==>st> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my'} = Pugs::Compiler::Rule->compile(<<'RULE' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	993	1107	
==>ew PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	993	1107	
==>ew PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	993	1107	
==>ew PIL2JS.ControlException.$name })()";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classna <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16204	16308	
==>($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16204	16308	
==>($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16204	16308	
==>($xx)) };
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3293	3405	
==>ay") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3293	3405	
==>ay") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3293	3405	
==>ay") :
        $self->params->[0]->name =~ /^%/ ? (":Hash")  :
        map { ":" . $_->as_string } $self->params- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7314	7415	
==>he constructor.

=item $parser->regex($regex)

Clears the parser's memory and sets $regex as the regex <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19204	19300	
==>referrer.

=item $h.www_authenticate

This header must be included as part of a C<401 Unauthorize <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19204	19300	
==>referrer.

=item $h.www_authenticate

This header must be included as part of a C<401 Unauthorize <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8595	8771	
==>->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8595	8771	
==>->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8595	8771	
==>->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2001	2113	
==>t implemented";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $l <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32359	32455	
==>, but in the future they may alternately be something
else, such as XML or tab-delimited plain te <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32359	32455	
==>, but in the future they may alternately be something
else, such as XML or tab-delimited plain te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2194	2288	
==>d('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2194	2288	
==>d('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2194	2288	
==>d('DESTROYALL' => method returns Void { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	758	864	
==>onfig{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	758	864	
==>onfig{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	758	864	
==>onfig{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludepc => pwd('Prelude.js'),
  testpc    => pwd('Test. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1376	1472	
==>he procedural interface does the same thing within a single call, hiding the 
full complexity.

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1376	1472	
==>he procedural interface does the same thing within a single call, hiding the 
full complexity.

= <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3146	3246	
==>' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  I <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3146	3246	
==>' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  I <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3226	3326	
==>' );

=head1 DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19837	19932	
==>($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19837	19932	
==>($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19837	19932	
==>($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) lt p6_to_s($xx1)) };
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25700	25799	
==>a user-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key ca <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25700	25799	
==>a user-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	240	348	
==>er;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	240	348	
==>er;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	369	502	
==>*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26412	26508	
==>ich are references will be passed by reference, so you
may store references to other objects in t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26412	26508	
==>ich are references will be passed by reference, so you
may store references to other objects in t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1958	2107	
==>m($idx)->scalar_store($value);
            },
            hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $self->has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6495	6629	
==>e->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6495	6629	
==>e->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6495	6629	
==>e->get_attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1570	1688	
==>Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # ca <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1570	1688	
==>Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # ca <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	912	1020	
==>r $event, *@args) {
    # Push our callback on @:events.
    ./:enqueue({
      my $result = $session.dispatc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4280	4392	
==>s Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4280	4392	
==>s Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.spa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	958	1057	
==>"\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2096	2206	
==>. guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2096	2206	
==>. guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2096	2206	
==>. guess_jsprelude_path();

  @input = map {
    /^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7137	7229	
==>the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7137	7229	
==>the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7137	7229	
==>the ::Role
# NOTE:
# this is done again
::opaque_instance_add_new_attribute($::Class => '@:ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1584	1689	
==>fg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1584	1689	
==>fg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1584	1689	
==>fg{prelude} and -M $cfg{prelude} <= -M $cfg{preludepc}) {
  #  die "* Error: Your precompiled Prelude is o <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6071	6266	
==>File::Spec->catdir($to, $target) ) ) {
                error( "Could not create subdir to copy to" );
                return;
            }                
        }        
        
        ### s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19864	19958	
==>s.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref des <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19864	19958	
==>s.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref des <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12559	12674	
==>( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12559	12674	
==>( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8713	8840	
==>alue::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice usi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8713	8840	
==>alue::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice usi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8713	8840	
==>alue::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "Not implemented: instantiate lazy slice usi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4010	4142	
==>rote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You gi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4010	4142	
==>rote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You gi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4010	4142	
==>rote:
    #   > I think the simplest thing is to say that you can't bind to the name
    #   > of the slurpy
    #   hash.  You gi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	743	851	
==>args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	743	851	
==>args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	743	851	
==>args.pop();

    // Firstly, we create a boxed undefined. This will later become our proxy.
    var boxed = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17551	17668	
==>p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17551	17668	
==>p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17551	17668	
==>p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container::Array' ) ? $_-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32403	32500	
==>not have an identical header to the invocant relation.  This
method has an alias named C<plus>.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36953	37050	
==>not have an identical header to the invocant relation.  This
method has an alias named C<plus>.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36243	36340	
==>not have an identical header to the invocant relation.  This
method has an alias named C<plus>.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19709	19814	
==>($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19709	19814	
==>($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19709	19814	
==>($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ne p6_to_s($xx1)) };
MULTI SUB infix:<eq> ($xx0,$xx1) { p6_from_b(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6799	6912	
==>f->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6799	6912	
==>f->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6799	6912	
==>f->magical_vars;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5802	5923	
==>elete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' inste <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5802	5923	
==>elete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' inste <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5802	5923	
==>elete
            'delete' => sub { (shift)->undefine },

            # There is no 'set_access' - use 'is Readonly' inste <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17309	17415	
==>class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17309	17415	
==>class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17309	17415	
==>class->dispatcher(':canonical'), 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $la <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36167	36263	
==>ant relation with every tuple of the <$other> relation,
then where each member of a tuple pair ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40716	40812	
==>ant relation with every tuple of the <$other> relation,
then where each member of a tuple pair ha <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40330	40426	
==>ant relation with every tuple of the <$other> relation,
then where each member of a tuple pair ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	528	639	
==>sion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	528	639	
==>sion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	528	639	
==>sion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last statement o <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	891	982	
==>PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	891	982	
==>PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9622	9722	
==>el indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9622	9722	
==>el indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3690	3778	
==>-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3690	3778	
==>-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3690	3778	
==>-//W3C//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4801	4899	
==>>, it preseves something
of the original name. So if you had an object blessed into "MyClass",
it w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4801	4899	
==>>, it preseves something
of the original name. So if you had an object blessed into "MyClass",
it w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4801	4899	
==>>, it preseves something
of the original name. So if you had an object blessed into "MyClass",
it w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4696	4842	
==>ub positional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $node = shift;
    sub {
        my $match;
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21616	21707	
==>ide
"Database Independence".  However, the level of DBI's provided independence
is I<Databas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21616	21707	
==>ide
"Database Independence".  However, the level of DBI's provided independence
is I<Databas <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2504	2628	
==>t;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return @{ $sel <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9405	9508	
==>turn $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9405	9508	
==>turn $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1471	1579	
==>ram;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1471	1579	
==>ram;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1680	1788	
==>ram;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9826	10025	
==>$ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9826	10025	
==>$ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9826	10025	
==>$ret );
                return $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	631	737	
==>LUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	631	737	
==>LUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now conta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	631	737	
==>LUE__ => 8}, 'AnEight'),
    },
  }, 'AOne');

  Class::Rebless->rebase($beat, 'And');

  # $beat now conta <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	434	569	
==>egin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as so <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	434	569	
==>egin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as so <==
3	/Users/nnunley/pugs/util/package-osx.pl	1548	1637	
==>perl/jspugs.pl /Library/Perl/5.8.6/jspugs.pl
        /usr/local/lib/perl5/site_perl/PIL.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1879	2012	
==>eturn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1879	2012	
==>eturn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1879	2012	
==>eturn $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11264	11359	
==>2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $it <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11264	11359	
==>2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $it <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30259	30358	
==>tests()

Clean up how the summary is printed.  Get rid of those damned formats.

=head1 BUGS

HARNES <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1120	1210	
==>ing utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1120	1210	
==>ing utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4836	4940	
==>xinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35458	35555	
==>>

This method returns all Member Names elements in this object as an array
ref.

=item C<as_debug <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35458	35555	
==>>

This method returns all Member Names elements in this object as an array
ref.

=item C<as_debug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	271	378	
==>e)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	271	378	
==>e)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($ke <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	271	378	
==>e)

# ChangeLog
#
# 2005-10-03
# * Fixed Pair stringification ("$key\t$value") and .perlification
#   ("($ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3795	3895	
==>l xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3795	3895	
==>l xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3795	3895	
==>l xmlns="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <p <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	16891	17043	
==>= sprintf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8340	8461	
==>cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8340	8461	
==>cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3395	3504	
==>nless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3395	3504	
==>nless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3395	3504	
==>nless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2587	2711	
==>debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    retu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2587	2711	
==>debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	405	515	
==>fig->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	972	1092	
==>gh Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## -------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	972	1092	
==>gh Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## -------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	972	1092	
==>gh Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## -------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3150	3274	
==>not open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Vali <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3150	3274	
==>not open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Vali <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19552	19658	
==>er order functions is correct
my $app_to_str = fun(
	param => "x",
	body => comb(
		fun => ide("x"),
		para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	36	134	
==>tive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	36	134	
==>tive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	36	134	
==>tive { \hash(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(func <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2499	2613	
==>')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2499	2613	
==>')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2499	2613	
==>')(@$self);
  } else {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4774	4884	
==>=     shift;
                map { $_->scalar_fetch } splice(@{$self->get_value('@:slots')}, $idx_from, $idx_to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15015	15106	
==>terface (API), called
the Rosetta Native Interface (RNI), which applications invoke and whic <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15015	15106	
==>terface (API), called
the Rosetta Native Interface (RNI), which applications invoke and whic <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38358	38457	
==>em C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DI <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42907	43006	
==>em C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DI <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42557	42656	
==>em C<divide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4021	4118	
==>erclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_prece <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5923	6020	
==>erclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_prece <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1870	1974	
==>$array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1870	1974	
==>$array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1870	1974	
==>$array.map( { if %seen{$_} { () } else { %seen{$_} = 1; $_ } } )
}

multi sub statement_control:loop ($in <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24820	24917	
==>f Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method retur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29372	29469	
==>f Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method retur <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4382	4475	
==>hod dispatch (Class::Events::Subscriber $subscriber) {
        $subscriber.update($.subscripti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39419	39525	
==>) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39419	39525	
==>) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39419	39525	
==>) = $array->_pop_n( 1 );
    # warn "POP $length -- ". $ret->elems if UNIVERSAL::isa( $ret, 'Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15516	15624	
==>{ $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are jus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15516	15624	
==>{ $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are jus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15516	15624	
==>{ $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are jus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30805	30983	
==>th >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30805	30983	
==>th >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30805	30983	
==>th >= $length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12365	12488	
==>xed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12365	12488	
==>xed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12365	12488	
==>xed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1876	1972	
==>odes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1876	1972	
==>odes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1876	1972	
==>odes, &graphs will have to change. Dunno how to do
# different Unicode levels in browsers.
method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39867	39987	
==>:List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39867	39987	
==>:List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39867	39987	
==>:List' );
    return $ret;
}

package Perl6::Container::Array::Native;

sub new {
    my $class = shift;
    # arrayref = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2531	2632	
==>ass_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2531	2632	
==>ass_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2531	2632	
==>ass_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5964	6128	
==>method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5964	6128	
==>method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5964	6128	
==>method_name => $role->get_method($method_name));
            }
        }
        foreach my $attr_name ($role->get_attribute_list) {
            # same as for method <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36373	36466	
==>emaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The sequ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40922	41015	
==>emaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The sequ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40536	40629	
==>emaining said tuple pairs, then eliminating any result tuples that
duplicate others.  The sequ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35649	35748	
==>>)

Data: array reference of any number of objects

Ender: I<close>

=head2 close

Family: close

Ty <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8623	8720	
==>pace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method load <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8623	8720	
==>pace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method load <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5681	5809	
==>"if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5681	5809	
==>"if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5681	5809	
==>"if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6558	6660	
==>tribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6558	6660	
==>tribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6558	6660	
==>tribute('$:authority'));

$::Module->add_method('version' => ::make_method(sub {
    my ($self, $versio <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14596	14695	
==>de, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14596	14695	
==>de, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2146	2258	
==>r $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' pa <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2146	2258	
==>r $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11322	11427	
==>'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11322	11427	
==>'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11322	11427	
==>'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir (@incdirs) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2613	2781	
==>ent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2818	2986	
==>ent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3890	4058	
==>ent = $self;
            while (my $super = $current->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1771	1934	
==>FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1771	1934	
==>FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1771	1934	
==>FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $current_class = $self->env->get('current_class');
            $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6677	6787	
==>\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($pPos, $pE <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19688	19782	
==>,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login phase ( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19688	19782	
==>,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login phase ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2067	2164	
==>ct');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2067	2164	
==>ct');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2067	2164	
==>ct');
$::Role->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package <==
3	/Users/nnunley/pugs/util/version_h.pl	214	324	
==>1;
open IN, "< $version_h" and do {
  while (<IN>) {
    /#define PUGS_SVN_REVISION (\d+)/ or next;
    $old_re <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	68	162	
==>on(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtrack <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	68	162	
==>on(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtrack <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4160	4252	
==>his parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Sk <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4160	4252	
==>his parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Sk <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6357	6449	
==>his parameter defaults to false. If it is true, the factory returns a
Test::Builder::Test::Sk <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3926	4033	
==>eaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3926	4033	
==>eaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43346	43438	
==>CE AND COPYRIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14144	14349	
==>y $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14144	14349	
==>y $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14144	14349	
==>y $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            }, <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14334	14445	
==>_[0]->as_perl5_array },
     );
sub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handle <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10070	10167	
==>aluation will not be set at all.  The scope of immediate
validation is kept to the minimum possibl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10070	10167	
==>aluation will not be set at all.  The scope of immediate
validation is kept to the minimum possibl <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18179	18288	
==>or my $cls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $where = "root namespace" if $whe <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5700	5806	
==>IG{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this do <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5700	5806	
==>IG{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	566	681	
==>{
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	566	681	
==>{
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	566	681	
==>{
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1689	1789	
==>mal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offset <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1689	1789	
==>mal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offset <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1689	1789	
==>mal write and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	954	1060	
==>turn($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $hea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	954	1060	
==>turn($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $hea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	954	1060	
==>turn($retcc).FETCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $hea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27245	27346	
==>.);  # see below
  }

=item $parser->add_flag($flag, $code)

This method creates a method of the parse <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33410	33507	
==>e Template module for the program or first library should
appear first in the array.  Each Set Nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33410	33507	
==>e Template module for the program or first library should
appear first in the array.  Each Set Nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4928	5026	
==>bove, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4928	5026	
==>bove, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4928	5026	
==>bove, as a temporary dev hack.
MULTI SUB print (*@xxa) {print(map{p6_to_s($_)} @xxa);};
MACROP5   r <==
3	/Users/nnunley/pugs/util/importgraph.pl	445	549	
==>e,
) or die "invalid command line";

my $g = GraphViz->new(
  layout => $layout,
  directed => 1,
  rankd <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20212	20311	
==>simple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, wh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20212	20311	
==>simple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8773	8890	
==>_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8773	8890	
==>_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8773	8890	
==>_func(0, function (args) {
  var cxt           = args.shift();
  var thunkreturncc = args.pop();
%s;
})
EOF

    chomp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20452	20562	
==>eading );

    return Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4918	5022	
==>ar eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4918	5022	
==>ar eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33272	33482	
==>h=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33272	33482	
==>h=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33272	33482	
==>h=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7032	7157	
==>rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7032	7157	
==>rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7032	7157	
==>rest is copy) is primitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1492	1601	
==>PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1492	1601	
==>PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1492	1601	
==>PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . " <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2538	2650	
==>yncat eq "infix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "p <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	205	313	
==>rl naive_bayesian.p5 add apples apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    syste <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1895	1994	
==>r &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => time <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1895	1994	
==>r &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => time <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	341	452	
==>>compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
my $rpc_regexP5 = Pugs::Compiler::Re <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5674	5773	
==><=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5674	5773	
==><=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	255	361	
==>s6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	255	361	
==>s6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	255	361	
==>s6 = $args;
    $args5 =~ s/(?<!\*)\@/\$/g; $args5 =~ s/(?<!\*)\%/\$/g;
    $args5 =~ s/\*\@/\@/g; $args5 = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4827	4952	
==>-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4827	4952	
==>-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4827	4952	
==>-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13446	13582	
==>alar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13446	13582	
==>alar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13446	13582	
==>alar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2647	2749	
==>F.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @Pr <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2647	2749	
==>F.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @Pr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6193	6310	
==>= $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        retu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14745	14853	
==>ll be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Messag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14745	14853	
==>ll be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Messag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8226	8341	
==>x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8226	8341	
==>x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8226	8341	
==>x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26146	26350	
==>calar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26146	26350	
==>calar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26146	26350	
==>calar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::stringify($_) } @start, @end );
                    }
                    else {
                        $str <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	972	1082	
==>ub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1177	1287	
==>ub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'conf <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1238	1348	
==>ub ::opaque_instance_attrs ($) : lvalue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'conf <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45083	45183	
==>---------------
## now build Package & Module, so we can create something here

$::Package = $::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20969	21062	
==>_support;

Any of your distrbution's modules that use Module::Compile based modules
will autom <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20969	21062	
==>_support;

Any of your distrbution's modules that use Module::Compile based modules
will autom <==
3	/Users/nnunley/pugs/misc/S29_round.pl	4090	4264	
==>etric($x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x_round;
}

our Int multi Num::round_ceiling ( Num $x ) {
    my $x_round <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25043	25140	
==>r
displayed by your program.  The Message class is pure and deterministic,
such that all of its cl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25043	25140	
==>r
displayed by your program.  The Message class is pure and deterministic,
such that all of its cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	22	133	
==>del::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	22	133	
==>del::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	22	133	
==>del::Parser;

use strict;
use warnings;

our $VERSION = '0.01';

use Perl6::MetaModel;

use Perl6::MetaModel::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2405	2503	
==>TORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2405	2503	
==>TORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2405	2503	
==>TORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $::Role);
$::{'*'}->STORE('::E <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17102	17208	
==>LD') -> $method {
        $method.($self, %params);
    }
}

(method BUILDALL ((opaque $self:) (hash %param <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20675	20774	
==>oo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned w <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20675	20774	
==>oo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned w <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3575	3760	
==>quired    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default     => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24459	24557	
==>umber
  package Regexp::Parser::groupp;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11540	11646	
==>TDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11540	11646	
==>TDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for defin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11540	11646	
==>TDERR "\n<$f,",@args,">\n";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2804	2938	
==>t::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2804	2938	
==>t::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2804	2938	
==>t::warn(*@msg) is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Warning: something's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2945	3084	
==>= (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2945	3084	
==>= (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2945	3084	
==>= (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attribute($label));
}));

$::Role->add_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1630	1750	
==>$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1630	1750	
==>$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1630	1750	
==>$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $_ } else { () } } )
}

multi s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3159	3260	
==>Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acces <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3159	3260	
==>Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acces <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3506	3607	
==>Artistic.html>

=cut

package Data::Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_acces <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11530	11669	
==>d_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11530	11669	
==>d_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys % <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11530	11669	
==>d_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%params);                  
    return keys % <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2090	2184	
==>Some::Module> called C<note> without providing any tags, it 
would look for a tag named C<Modul <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2090	2184	
==>Some::Module> called C<note> without providing any tags, it 
would look for a tag named C<Modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2842	2960	
==>$a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2842	2960	
==>$a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2842	2960	
==>$a,undef,$b) = @a - fixed, add test
#      - (@a[1..10],$a,undef,$b) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2849	2947	
==>e, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2849	2947	
==>e, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2849	2947	
==>e, $restores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18890	19044	
==>p::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19169	19323	
==>p::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code' <==
3	/Users/nnunley/pugs/util/testgraph.pl	842	945	
==>die "binmode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > outp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4651	4771	
==>cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4651	4771	
==>cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4651	4771	
==>cstringify}( @_ ) . ')' }
sub shift_n       { $_[0]->{shift_n}( @_ ) }
sub pop_n         { $_[0]->{pop_n}( @_ ) }
sub sum <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	15	111	
==>::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	15	107	
==>::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2830	2916	
==>p5_concatenation(X), p5_alternatives(union(W,X), Z), !.
p5_alternatives(W, W) --> {true <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1726	1825	
==>5's POE to Perl 6. It is only an experiment, it's not
API compatible to the original POE, and is pos <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13705	13799	
==>continuous measurements, such as times, temperatures, or price ranges.

Create a span of real n <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13705	13799	
==>continuous measurements, such as times, temperatures, or price ranges.

Create a span of real n <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10130	10255	
==>untime->new( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? !!>',
        body => su <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3868	3988	
==>visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8038	8147	
==>n error is a particular error, see
L</"ERROR HANDLING">.

=head2 Inspecting the Parsing

To intercept each nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	508	617	
==>les {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	508	617	
==>les {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_file <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	508	617	
==>les {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return $cands[0];
}

sub jsprelude_path { try_file <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1857	1976	
==>@values) returns Scalar {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expressi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9021	9125	
==>rn $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @un <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9021	9125	
==>rn $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2130	2239	
==>e the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2130	2239	
==>e the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2130	2239	
==>e the
  # source is compiled to PIL1, global subs will already have lost their lexpad
  # info.
  # The s/sub/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9869	9972	
==>:new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9869	9972	
==>:new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4295	4404	
==>elude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4295	4404	
==>elude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4295	4404	
==>elude::JS for explanation.
  my $args  = $arity == 1  ?? '$__a = $CALLER::_' !! '$__a, $__b';
  my $c     = $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10441	10558	
==>$sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # he <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10441	10558	
==>$sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # he <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10441	10558	
==>$sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.pm/; # he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6793	6882	
==>lve' => ::make_method($_resolve));

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6793	6882	
==>lve' => ::make_method($_resolve));

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6793	6882	
==>lve' => ::make_method($_resolve));

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	562	688	
==>), undef, undef, @$match);
            return reverse(@rv);
        });
    };
}

1;

__END__

=head1 NAME 

re::override::PCRE <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	364	478	
==>a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1222	1336	
==>a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	542	655	
==>my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no stric <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	542	655	
==>my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no stric <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	22	118	
==>ar::Ternary;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10765	10927	
==>ro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7106	7268	
==>ro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7955	8117	
==>ro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8111	8227	
==>de;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8111	8227	
==>de;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8111	8227	
==>de;
    eval($code); die "Eval of class definitions failed. $@" if $@;
}


sub expand {
    my($pilc)=@_;
    define_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6970	7075	
==>$S->force_object(anyof_char => "\0", "\\x[0]") if $cc;
    return $S->object(exact => "\0", "\\x[0]");
  } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13804	13937	
==>names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13804	13937	
==>names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11404	11550	
==>one => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv().. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11404	11550	
==>one => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv().. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11404	11550	
==>one => sub { 
            my $self = shift;
            # this doesn't work if $code is a closure
            # it may break grep(), uniq(), kv().. <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	245	350	
==>%args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	209	314	
==>%args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27521	27610	
==>ct definitions for F<Regexp::Parser>.

=head2 Inheritance

All F<Regexp::Parser::*> object <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29125	29222	
==>nwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33677	33774	
==>nwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1995	2097	
==>= b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1995	2097	
==>= b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1995	2097	
==>= b.referencee));
    } else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(ne <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5037	5175	
==>h'>
    | <'default'>
    | <'if'>
    | <'throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'ty <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6769	6905	
==>rn $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simpli <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6769	6905	
==>rn $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simpli <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1676	1770	
==>::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1676	1770	
==>::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7698	7793	
==>[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7698	7793	
==>[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7698	7793	
==>[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cx <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2828	2981	
==>rt($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2828	2981	
==>rt($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5058	5201	
==>->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5058	5201	
==>->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5058	5201	
==>->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body
      ),
    } => ref $self;
  }

  sub magical_vars {
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8177	8345	
==>> {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8177	8345	
==>> {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8177	8345	
==>> {},
    },
    instance => {
        attrs => [ '$.a', '$.b' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1845	1939	
==>>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3221	3315	
==>>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17980	18210	
==>d($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17980	18210	
==>d($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17980	18210	
==>d($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2440	2555	
==>CH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2440	2555	
==>CH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.k <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2440	2555	
==>CH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17503	17608	
==>) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17503	17608	
==>) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17503	17608	
==>) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value::List->from_x( item => $xx0, count => <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1067	1229	
==>'),
							Val(2),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1972	2129	
==>ram<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %pa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1972	2129	
==>ram<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24036	24151	
==>at_n_if_undef(N1,Replace,T,T1).
ground_list([],_,[]).
ground_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12574	12675	
==>ROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12574	12675	
==>ROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12574	12675	
==>ROP5   next (*@xx) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1323	1423	
==>hile($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1323	1423	
==>hile($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1323	1423	
==>hile($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_control:<postuntil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10653	10760	
==>$args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10653	10760	
==>$args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10653	10760	
==>$args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	663	767	
==>e Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User St <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	631	728	
==>e Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5001	5103	
==>k returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depend <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5001	5103	
==>k returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depend <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6525	6627	
==>k returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has passed or failed, depend <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14719	14849	
==>$self->raw);
      }

      $self->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-capturing
  package R <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7239	7349	
==>users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users acc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7239	7349	
==>users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6075	6181	
==>y($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6075	6181	
==>y($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6075	6181	
==>y($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $result = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1451	1560	
==>>add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1451	1560	
==>>add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1451	1560	
==>>add_method('BUILDALL' => ::make_method(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1905	2058	
==>rcumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->item <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1905	2058	
==>rcumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->item <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1905	2058	
==>rcumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->item <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1136	1242	
==>= @{$opts->{GHC}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    pri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	855	958	
==>TP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %hea <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	855	958	
==>TP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %hea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	482	581	
==>my ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($klass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9704	9818	
==>n::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9704	9818	
==>n::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9704	9818	
==>n::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2955	3120	
==>re
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ wo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3139	3304	
==>re
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	593	727	
==>rs all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	593	727	
==>rs all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	593	727	
==>rs all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatche <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4832	4968	
==>$cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4832	4968	
==>$cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3592	3712	
==>h;
  my @stack = @{ $self->{tree} };
  my $next;

  return sub {
    return $depth if @_ and $_[0] eq -depth;
    carp "u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2343	2454	
==>iag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2343	2454	
==>iag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2423	2534	
==>iag eq $received_diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.di <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3039	3136	
==>ody === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6516	6613	
==>ody === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16872	17002	
==>))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16872	17002	
==>))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16872	17002	
==>))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct ...     
    els <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3981	4108	
==>in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3981	4108	
==>in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5926	6034	
==>Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5984	6092	
==>Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12942	13039	
==>ny tests there will be in C<< $strap->{max} >>, a list of which tests
are todo in C<< $strap->{tod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	849	976	
==>&& $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	849	976	
==>&& $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	849	976	
==>&& $label)
            || confess "You must supply a valid method label";
        (blessed($method))
            || confess "A m <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1358	1473	
==>orable::canonical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreeze($self) ) <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7377	7478	
==>local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9054	9155	
==>local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	523	687	
==>e dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	523	687	
==>e dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5262	5402	
==>Scalar::Util 'blessed';

use base 'type';

sub new {
    my $class = shift;
    bless {
        env  => {},
        next => undef
    } => $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2957	3075	
==>an't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2957	3075	
==>an't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2957	3075	
==>an't say for sure at compile-time.
    $native = undef
      if $self->{pInv};

    # We have an invocant *and* the inv <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3354	3450	
==>Test class represents a single test within the
Test::Builder framework. The class itself is actua <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3354	3450	
==>Test class represents a single test within the
Test::Builder framework. The class itself is actua <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5551	5647	
==>Test class represents a single test within the
Test::Builder framework. The class itself is actua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15983	16110	
==>);
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15983	16110	
==>);
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15983	16110	
==>);
                           

$::Class->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3477	3598	
==>lse {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3477	3598	
==>lse {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3477	3598	
==>lse {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\n", shift };
    my $link   = sub { "<script type=\"t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2716	2847	
==>et = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2716	2847	
==>et = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2716	2847	
==>et = [];
      for(var i = 0; i < keys.length; i++) {
        ret.push(proxy_for(keys[i]));
      }

      // Needed for %a<a b> = < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1435	1608	
==>ings')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1435	1608	
==>ings')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1435	1608	
==>ings')} = @res;
            },
            'values' => sub { 
                my $ary = Array->new;
                $ary->push( @{_('$.things')} );
                return $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	505	650	
==>S}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	505	650	
==>S}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	505	650	
==>S}, sub {
      my $src = shift;
      sprintf "%s(%s.BINDTO(%s))",
      $self->{CC}->as_js,
      $dest,
      $src;
    };
  };
}

sub unwrap { <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3202	3315	
==>_analyze_line($line, \%totals);
        last if $self->{saw_bailout};
    }

    $totals{skip_all} = $self->{skip_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12985	13083	
==>hash()>

This method returns a deep copy of all of this Document's member Nodes as a
tree of primit <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12985	13083	
==>hash()>

This method returns a deep copy of all of this Document's member Nodes as a
tree of primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5974	6091	
==>n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5974	6091	
==>n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5974	6091	
==>n" .
    join("\n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1516	1623	
==>e;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1516	1623	
==>e;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1516	1623	
==>e;
use Carp;

my $class_description = '-0.0.1-cpan:FGLOCK';

# Cell
#
# Cell is implemented as a native clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2889	2986	
==>Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all ::fglock thing <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2783	2878	
==>Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all ::fglock thing <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	505	621	
==>turn if $node->atomic;

	return 1;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

	return $node <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1210	1305	
==>rrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> als <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1210	1305	
==>rrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> als <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1411	1514	
==>Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1411	1514	
==>Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1411	1514	
==>Trying to instantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5766	5874	
==>_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_nex <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5766	5874	
==>_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_nex <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2616	2709	
==>efix) is
exported. This is very convenient for constructing trees and helps readability.

=cut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3184	3342	
==>te;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # appar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3184	3342	
==>te;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # appar <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	259	403	
==>w it away every go
{   system( qq[rm -rf $Root] )                                  and die $?;
    system( qq[mkdir -p $Meta $Site $Tmpdir $Bindi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19480	19595	
==>clause 12
      <Block>
    | <VariableStatement>
    | <EmptyStatement>
    | <ExpressionStatement>
    | <IfStatem <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18346	18442	
==>rce address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
wo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18346	18442	
==>rce address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
wo <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	925	1049	
==>te' { 
        say "Updating";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33480	33576	
==>), eos (C<\z>)

=head2 reg_any

Family: reg_any

Types: reg_any (C<.>), sany (C<.> with C</s> on) <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	877	971	
==>cted), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) r <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	877	971	
==>cted), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7998	8105	
==>from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7998	8105	
==>from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11891	12032	
==>ete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11891	12032	
==>ete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11891	12032	
==>ete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$this = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %$this;
}

p <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2167	2274	
==>'/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2167	2274	
==>'/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::S <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	497	592	
==>as($?CLASS, "subclasses", "Set", { companion => "superclasses" });

# every Meta::Class is a par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6653	6792	
==>$match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6653	6792	
==>$match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3241	3374	
==>tion");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3241	3374	
==>tion");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4765	4898	
==>tion");
     }
     else {
        $Test.ok($passed, $description)
            || $Test.diag("FAILED : $description");
     }
  }

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3266	3381	
==>&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3266	3381	
==>&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3266	3381	
==>&\*?JS::/;

    # The sub is a reference? ==> We can't know at compile-time.
    $native = undef
      if not define <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11966	12081	
==>f $debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11966	12081	
==>f $debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5391	5505	
==>e => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    ### build a from = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5368	5495	
==>eturn $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3718	3829	
==>import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error whe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3776	3887	
==>import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error whe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13975	14083	
==>tialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13975	14083	
==>tialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13975	14083	
==>tialize {
    # Boot runtime.  # XXX - needs a cleanup pass
    p6_package_init('');
    p6_package_init('mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8107	8347	
==>end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8107	8347	
==>end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8107	8347	
==>end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_contiguous => sub { 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3880	4025	
==>OCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3880	4025	
==>OCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3880	4025	
==>OCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {
            # TODO - <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7523	7646	
==>tringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7523	7646	
==>tringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3592	3695	
==>e';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3592	3695	
==>e';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3592	3695	
==>e';
}));

$::Role->add_method('get_attribute_list' => ::make_method(sub {
    keys %{::opaque_instance_a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6328	6435	
==>e->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7859	7955	
==>r-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7592	7685	
==>r-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7585	7720	
==>1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $rx->{tree} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	527	635	
==>s shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	527	635	
==>s shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	527	635	
==>s shift_n() pop_n() - provide lazy access to sublists
# * new hook DESTROY
#
# 2005-08-27
# * new methods sta <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3987	4106	
==>ame ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3987	4106	
==>ame ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3631	3741	
==>cant named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3013	3173	
==>e::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3013	3173	
==>e::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9016	9116	
==>er->root;

It will be an array reference of objects.

=head2 Getting the OPEN Count

You can access t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10709	10819	
==>y( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do dif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14186	14296	
==>y( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do dif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13485	13595	
==>y( $other!heading ) === any( $!heading );

    # First look for trivial cases that are more efficient to do dif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15624	15779	
==>d_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Fo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15624	15779	
==>d_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Fo <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5131	5227	
==>elude.pm.yml file (written to stdout),
to be loaded by Run.hs.

When pugs is built, a fallback Pr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	25	141	
==>nstall::WriteAll;

use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.61';

use strict;

sub <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	82	176	
==>od generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	82	176	
==>od generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _ciph <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1136	1234	
==>str () returns str>

=item B<fetch () returns ~type>

=item B<store (~type) returns nil>

=back

=c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1875	1970	
==>&::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpd <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1875	1970	
==>&::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpd <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2476	2627	
==>name}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the target though
    #
    pop @revisions;
    $target->{ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2598	2692	
==>Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work a <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2598	2692	
==>Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	146	271	
==>FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	146	271	
==>FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	146	271	
==>FETCH(), cc = args.pop();
    if(!(thing instanceof PIL2JS.Ref)) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5968	6067	
==>r 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5968	6067	
==>r 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8165	8264	
==>r 4

These first two classes perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Tes <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6200	6304	
==>ngify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return unde <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6200	6304	
==>ngify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return unde <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	169	270	
==>enutzen:

#!\begin{block}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\end{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1310	1422	
==>ace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1310	1422	
==>ace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1310	1422	
==>ace
use vars qw($main::global_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_arg <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8536	8636	
==>1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8536	8636	
==>1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12949	13152	
==>v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12949	13152	
==>v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12949	13152	
==>v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}}, @r <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1670	1761	
==>piler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

clas <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1670	1761	
==>piler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

clas <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7749	7855	
==>m {
	my $self = shift;
	my $prim = shift;

	$prim->struct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1113	1217	
==>l($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
} <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1113	1217	
==>l($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1316	1418	
==>'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1316	1418	
==>'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	8468	8611	
==>s;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	8468	8611	
==>s;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	8468	8611	
==>s;
            }
            return undef;
        }
    };    
});

::Class.meta.add_method('_make_breadth_dispatcher' => ::make_private_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21958	22093	
==>t;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21958	22093	
==>t;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21958	22093	
==>t;
        foreach my $class (reverse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14599	14740	
==>ll the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14599	14740	
==>ll the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14599	14740	
==>ll the classes to look through
        my @classes = ($self);
        # we take the MRO first, however at some early
        # stages of the b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4012	4143	
==>link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4012	4143	
==>link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4012	4143	
==>link") {
        $html .= "    " . $link->($contents) . "\n";
      } else {
        die "JavaScript contains HTML escape sequenze ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8383	8482	
==>2 Building the Tree

If you don't care to intercept the building of the tree, you can use the
parse( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1542	1640	
==>mmediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1542	1640	
==>mmediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1063	1173	
==>} => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1063	1173	
==>} => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1063	1173	
==>} => "PIL::PVar";

  # XXX evil hack -- %FooPackage::EXPORTS gets not declared (my, our) in
  # -CPIL1. Work ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4353	4491	
==>UT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4353	4491	
==>UT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4353	4491	
==>UT $@ and return if $@;
  print $OUT $yaml;
}

sub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7378	7479	
==>ass);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7378	7479	
==>ass);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7378	7479	
==>ass);

# restore this correctly
$::Class->add_method('collect_all_roles' => ::make_method($_collect_al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10993	11134	
==>e{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10993	11134	
==>e{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10993	11134	
==>e{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2060	2181	
==>FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2060	2181	
==>FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2060	2181	
==>FIXED
#   @a[10,100,1000,10000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7218	7326	
==>efined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7218	7326	
==>efined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7218	7326	
==>efined $_[0]->type
        ? PIL::doublequote($_[0]->type->as_string)
        : "undefined";
  }
}

{ package <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4122	4210	
==>als::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4122	4210	
==>als::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4122	4210	
==>als::Hacks::init_undef_hash_postcircumfix_method () is primitive {
  JS::inline('(functio <==
3	/Users/nnunley/pugs/util/addauthors.pl	1111	1263	
==>->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHORS file\n";
  }

  $autho <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19320	19417	
==>arate resource files used by the
program, so that if you wanted to upgrade or localize what text t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19320	19417	
==>arate resource files used by the
program, so that if you wanted to upgrade or localize what text t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9983	10130	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9983	10130	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9983	10130	
==>TOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                die "unsupported pair method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10650	10805	
==>tch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10650	10805	
==>tch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10650	10805	
==>tch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Slice -----

cla <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21350	21480	
==>";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.ym <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23546	23642	
==>ssor method can be used to see if a Relation-doing object
can mutate.  Depending on the implement <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28098	28194	
==>ssor method can be used to see if a Relation-doing object
can mutate.  Depending on the implement <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6031	6151	
==>r_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d \s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17088	17183	
==>ing the size in bytes of the message content.

=item $h.content_language

The natural language(s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17088	17183	
==>ing the size in bytes of the message content.

=item $h.content_language

The natural language(s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2416	2541	
==>' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $ex <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2324	2446	
==>' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $ex <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	447	559	
==>ourceCharacter but not ...
#     But <SourceCharacter> isnt called for all characters anyway,
#     so no great l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	166	285	
==>ss,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args);
}

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	166	285	
==>ss,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args);
}

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	166	285	
==>ss,$f)=@_;
    bless {raw_sub => $f}, $class;
}

sub do {
    my($o,@args)=@_;
    $o->{'raw_sub'}(@args);
}

1;
__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20197	20434	
==>};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20197	20434	
==>};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20197	20434	
==>};

                        # unbind cells
                        @items = map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	226	321	
==>here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implemen <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	226	321	
==>here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implemen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20566	20677	
==>ethods on those objects.  All of
their class/object attributes are private, so you must use accessor
methods.  R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25118	25229	
==>ethods on those objects.  All of
their class/object attributes are private, so you must use accessor
methods.  R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23688	23799	
==>ethods on those objects.  All of
their class/object attributes are private, so you must use accessor
methods.  R <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1392	1504	
==>$!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1392	1504	
==>$!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %! <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	266	378	
==>($_) } @params),
			Stub($name),
		)
	)
}

sub mk_constructors {
    foreach my $class (@{ Class::Inspector->subc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	294	394	
==>isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	294	394	
==>isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	294	394	
==>isa Module isa Package isa Object thing.

# ... this makes ::Class a subclass of ::Object (through :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	472	560	
==>lass = undef;

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	472	560	
==>lass = undef;

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	472	560	
==>lass = undef;

## ----------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	475	581	
==>(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	475	581	
==>(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	475	581	
==>(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box.Constant(
        array[idx >= 0 ? idx : arr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15125	15225	
==>l need to display a message to the user, or generate a message to be
shown to the user.  Sometimes th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15125	15225	
==>l need to display a message to the user, or generate a message to be
shown to the user.  Sometimes th <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3865	3963	
==>fe   (List)\
multi List::max(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see commen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4242	4350	
==>als];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4242	4350	
==>als];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4242	4350	
==>als];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $self;
  } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1501	1600	
==>constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - mo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1501	1600	
==>constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - mo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1501	1600	
==>constant
# TODO - move .increment, .decrement to Primitives (this will break some tests)
# TODO - mo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4615	4715	
==>r the skip and TODO tests and should contain
a string describing why the test is a skip or TODO test. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4615	4715	
==>r the skip and TODO tests and should contain
a string describing why the test is a skip or TODO test. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6812	6912	
==>r the skip and TODO tests and should contain
a string describing why the test is a skip or TODO test. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1828	1946	
==>1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1828	1946	
==>1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1828	1946	
==>1 {
    my ($name, $params) = @_;
    my $barename = $name; $barename =~ s/-0.*//;
    my $code="";
    $code .= "packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13090	13273	
==>ry->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13090	13273	
==>ry->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13090	13273	
==>ry->store( $key, $value ) 
                            }
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $bound_params{ ${ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2468	2569	
==>ined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2468	2569	
==>ined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2468	2569	
==>ined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9931	10043	
==>leton method');

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $F <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13214	13315	
==>%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6689	6790	
==>%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7646	7748	
==>$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9574	9676	
==>$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7634	7736	
==>$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1579	1732	
==>sif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1579	1732	
==>sif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1579	1732	
==>sif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5142	5288	
==>se_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### inst <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5606	5752	
==>se_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### inst <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14600	14713	
==>exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl had problem <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10721	10819	
==>Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10721	10819	
==>Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2138	2236	
==>ls::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( Num $x = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7098	7216	
==>nt . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7098	7216	
==>nt . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1147	1254	
==>ess $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( "/" . $_[0], "/" );
    $extr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	637	760	
==>port(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	637	760	
==>port(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	637	760	
==>port(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => su <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1940	2040	
==>als::log_base(Num $x, Num $base) {
    return Pugs::Internals::log($x)   if !defined $base;
    retur <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4023	4115	
==>),
        complement_previous => $self._get_union( $self.complement_previous, $set.complemen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4023	4115	
==>),
        complement_previous => $self._get_union( $self.complement_previous, $set.complemen <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1411	1518	
==>ooks like: {@tokens.perl}";
    return @tokens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lexer (Cod <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2460	2554	
==>turns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2460	2554	
==>turns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) ret <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2996	3104	
==>ame.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --versi <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2996	3104	
==>ame.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --versi <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16997	17079	
==>s_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(ques_ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1049	1154	
==>ed in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1049	1154	
==>ed in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1049	1154	
==>ed in numeric contect"
#        (Same for hashes: %h{undef} =:= %h{""})
# TODO - is (undef=>undef) a valid <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2165	2260	
==>rs.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2165	2260	
==>rs.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8524	8642	
==>List::grep (MatchTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $tes <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	42	155	
==>List::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	for @values -> $x {
	    take $x if $x ~~ $tes <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53080	53168	
==>lass->send('name'   => str->new('Class'));
$::Object->send('name'  => str->new('Object')) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4037	4175	
==>$string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4037	4175	
==>$string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4037	4175	
==>$string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object]" as a generic r <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6323	6538	
==>else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6323	6538	
==>else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13697	13806	
==>ef"); [] },
      numeric     => sub { $as_array_complain->("numeric") },
      non_numeric => sub { $as_array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1853	1969	
==>t;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1853	1969	
==>t;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2089	2205	
==>t;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3232	3336	
==>::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3232	3336	
==>::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3232	3336	
==>::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run::EvalX:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19596	19826	
==>->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19596	19826	
==>->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19596	19826	
==>->new();
                            $tmp->push( $other );
                            $other = $tmp;
                        }

                        my @items = $other->unboxed->items;  
                        if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7660	7796	
==>::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7660	7796	
==>::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7660	7796	
==>::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa( $_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15959	16087	
==>rror: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute mo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18583	18686	
==>ge}'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18583	18686	
==>ge}'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4436	4541	
==>"PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4436	4541	
==>"PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4436	4541	
==>"PIL::" . $self->type;  # minor hack

    local $PIL::IN_SUBLIKE  = $self->type->as_constant;
    local @P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	998	1096	
==>et implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	998	1096	
==>et implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	998	1096	
==>et implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Role = undef;

## ------------------ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20773	20867	
==>ill
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend abo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20773	20867	
==>ill
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend abo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5801	5946	
==>);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5801	5946	
==>);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5801	5946	
==>);
}
EOF
    } else {
      die;
    }

    return join "\n", @js;
  }

  sub as_js3 {
    my $self = shift;

    # We're required, but a value ha <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1692	1830	
==>me);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!k <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1692	1830	
==>me);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11413	11588	
==>rn Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11413	11588	
==>rn Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11413	11588	
==>rn Bit->new( '$.unboxed' => 1 ) 
                    if $method eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14971	15147	
==>::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14971	15147	
==>::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14971	15147	
==>::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $res;
            },
            'kv <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5447	5607	
==>fine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5447	5607	
==>fine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () return <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	320	449	
==>y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        !$y;
    } q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	884	992	
==>> try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	884	992	
==>> try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	884	992	
==>> try_files(pwd(qw< lib6 Prelude JS.pm >), pwd(qw< .. .. perl6 lib Prelude JS.pm>)),
  metamodel_base => try_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7606	7709	
==>«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7606	7709	
==>«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7606	7709	
==>«[,]» := &list;

sub infix:«Y» (Array *@arrays) is primitive is rw { zip *@arrays }
sub infix:«¥» <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12907	13007	
==>...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12907	13007	
==>...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12907	13007	
==>...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34479	34723	
==>e->get('$next')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16559	16651	
==>s TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> document <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16559	16651	
==>s TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> document <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2966	3129	
==>my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2966	3129	
==>my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           j <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18145	18301	
==>al);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14566	14722	
==>al);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7480	7610	
==>r(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join("", map chr(hex), @hex), "\\X[$h]");
    }

    $S->erro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4339	4466	
==>:<w> { ... }    # define your own \w and \W
         rule rxassertion:<*> { ... }    # define your own <*stuff>
         macro r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2018	2131	
==>proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 | <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2018	2131	
==>proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2522	2638	
==>only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  fo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2522	2638	
==>only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  fo <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2869	2985	
==>only => 1 });
  sub formalize {
    my ($title, $subtitle, $case, $justify);
    Data::Bind->arg_bind(\@_);
  }

  fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3660	3781	
==>run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3660	3781	
==>run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3660	3781	
==>run=jspm)
  --compile-only                           (outputs the resulting JS to STDOUT)
  --precompile-only
  --help
EOF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2565	2673	
==>l.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2565	2673	
==>l.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2565	2673	
==>l.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_POS\n" }

sub generic_cc {
  my ($name, $lvalue, <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5675	5826	
==>en - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4175	4326	
==>en - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1029	1169	
==>rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { clos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1029	1169	
==>rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { clos <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	580	680	
==>fig->_meta_dir);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1663	1763	
==>c", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1721	1821	
==>c", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10766	10867	
==>----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10766	10867	
==>----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10766	10867	
==>----- unboxed functions

package Perl6::Container::Hash::Object;

sub store {
    my ( $this, $key, $v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	94	234	
==>::Dependency;

use YAML                    qw[LoadFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use ba <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5256	5365	
==>ed ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a private LWP extensi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5256	5365	
==>ed ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a private LWP extensi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6451	6586	
==>Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6451	6586	
==>Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6451	6586	
==>Num $from, Num $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub inf <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2203	2326	
==>"# Where is your C compiler?\n"
         ."1..0 # skipped: can't build test executable\n";
    exit(0);
    }
    unless <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8318	8415	
==>ed != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_p <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8376	8473	
==>ed != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_p <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4936	5036	
==>turn;
   has $.throw;
}
class JSX::InternalValue::Completion {
   submethod BUILD { $.type = JSX::Int <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	462	558	
==>dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	462	558	
==>dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2881	3034	
==>tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2786	2935	
==>tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7182	7298	
==>my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7182	7298	
==>my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7182	7298	
==>my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( $xx->fetch->decrement );
    return $tmp;
    #my $old <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9217	9354	
==>lemented: $quantifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
su <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6140	6261	
==>tr;
        },
      ],
      duration      => sprintf("%.02f", Time::Seconds->new($6)->minutes) . "&nbsp;min",
      summ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7852	7954	
==>e true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7852	7954	
==>e true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7852	7954	
==>e true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5407	5527	
==>onal
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5407	5527	
==>onal
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6931	7051	
==>onal
C<$reason>.

=item B<skip( Int $num = 1, Str $reason = 'skipped' )>

Records the skipping of C<$num> tests (one by d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10288	10433	
==>ith a plan" if $.testplan;
  
      $.output.write( "1..0" );
      exit 0;
  }
  
  method BAILOUT ( Str $reason = '' )
  {
      $.output.write( <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2321	2450	
==>ith a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2321	2450	
==>ith a plan" if $.testplan;

    $.output.write( "1..0" );
    exit 0;
}

method BAILOUT ( Str $reason = '' )
{
    $.output.write( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	272	376	
==>}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	272	376	
==>}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20184	20302	
==>up" ] 

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, exp
    .local string cname
    .local int cut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5930	6047	
==>y-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5930	6047	
==>y-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5521	5636	
==>my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5521	5636	
==>my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5521	5636	
==>my ($attr) = @_;
        (blessed($attr) && $attr->isa('Perl6::Attribute'))
            || confess "You must provide <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	619	717	
==>role Class::Events::Publisher {
    use Set;
    has Set $.subscriptions handles :add_subscription< <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1314	1407	
==>ation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.b <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1314	1407	
==>ation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5878	6032	
==>t '', " . _emit( $n->{param} ) . ";\n" .
            " print " . '"\n"'
            if $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3659	3774	
==>osure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex closure { yada clo <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3659	3774	
==>osure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex closure { yada clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7080	7218	
==>ice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7080	7218	
==>ice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7080	7218	
==>ice );
            # warn "splice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	192	314	
==>el::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	192	314	
==>el::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_clas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	192	314	
==>el::Symdump->new($class);

    for ($obj->functions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_clas <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8958	9129	
==>NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8958	9129	
==>NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14370	14487	
==>xpanded:\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10971	11066	
==>program will emit warnings during the execution of some methods, 
because it will try to iterate <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10971	11066	
==>program will emit warnings during the execution of some methods, 
because it will try to iterate <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24379	24461	
==>tures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL,C1).
match_captures_set(N,X,am <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	49	144	
==>l::Base; @ISA = qw(Module::Install::Base);
use strict;
use Config;
use File::Spec;
use File::Bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1916	2016	
==>Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1916	2016	
==>Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1916	2016	
==>Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	549	802	
==>S{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	549	802	
==>S{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	10	108	
==>ckage Module::Install;

# For any maintainers:
# The load order for Module::Install is a bit magic. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4299	4438	
==>@_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4299	4438	
==>@_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4299	4438	
==>@_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') { <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10992	11104	
==>s may or may not be run, causing durations and the ok
    percentage to not be comparable.<br />
    The percenta <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10216	10317	
==>6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10216	10317	
==>6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5105	5245	
==>XX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5105	5245	
==>XX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $m <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	419	533	
==>Thread 2 finished: $a is now < -100'
}
while ($still_running) {
    say $a;
    sleep 1;
    atomically { $a++; }
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15830	15957	
==>y @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15824	15951	
==>y @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1749	1842	
==>tr $target, $from, $position;  
}

#get_string_keyed_int
#get_pmc_keyed_int
#set_pmc_keyed_int <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49631	49772	
==>ew('authority'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5406	5495	
==>ip($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

su <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5464	5553	
==>ip($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7576	7686	
==>isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::dou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7576	7686	
==>isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::dou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7576	7686	
==>isWritable}) {
      push @js, "$jsname = new PIL2JS.Box.ReadOnly($jsname);";
    }

    my $padname = PIL::dou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	775	882	
==>f; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow du <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	775	882	
==>f; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow du <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	775	882	
==>f; new methods .fetch, .store, .unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow du <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3467	3591	
==>o($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3467	3591	
==>o($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4991	5115	
==>o($got eq $expected, $description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Tes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21392	21490	
==>?).  An advantage of
this is that, for example, your package could come with a set of user
messages <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21392	21490	
==>?).  An advantage of
this is that, for example, your package could come with a set of user
messages <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3240	3339	
==>oesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3240	3339	
==>oesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2232	2448	
==>hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5709	5925	
==>hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4639	4855	
==>hash () returns Hash {
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8355	8505	
==>->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8355	8505	
==>->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8355	8505	
==>->perl->unboxed;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a ) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10099	10213	
==>ot yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10099	10213	
==>ot yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	250	360	
==>ARRAY';
      my $c_down = $c;
      my($str,$pos,$cap); my $v;
      { local($X::str,$X::pos,$X::cap)=($X::str <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33488	33583	
==>array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Memb <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33488	33583	
==>array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Memb <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	160	262	
==>(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	160	262	
==>(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	160	262	
==>(!JSAN || !JSAN._exportList || !JSAN.globalScope) { throw 1 }
    } catch(err) {
      PIL2JS.die("JSAN <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3663	3771	
==>ou have a new Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Perl <==
3	/Users/nnunley/pugs/util/package-osx.pl	3291	3397	
==>.pm
        /Library/Perl/5.8.6/Inline/Pugs.pm
        /usr/local/info/readline.info
        /usr/local/inf <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3531	3636	
==>ou have a new Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6613	6728	
==>alse []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6613	6728	
==>alse []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6613	6728	
==>alse []
    #   isNamed: !perl/@PIL::True []
    #   isOptional: !perl/@PIL::False []
    #   isWritable: !perl/@PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7772	7889	
==>y = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7772	7889	
==>y = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7772	7889	
==>y = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_magicalarra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28768	28904	
==>orrectly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28768	28904	
==>orrectly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28768	28904	
==>orrectly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->elems ) == 1;
                retu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31726	31823	
==>s zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36276	36373	
==>s zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35512	35609	
==>s zero tuples, respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union ( <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21940	22056	
==>ay"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["i <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2337	2433	
==>ns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2337	2433	
==>ns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9474	9588	
==>array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9474	9588	
==>array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9474	9588	
==>array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for(var i = 0; i < idxs. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17120	17300	
==>);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17120	17300	
==>);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17120	17300	
==>);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can use it ...
                if ($method = ::WA <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8004	8113	
==>ick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8004	8113	
==>ick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4582	4689	
==>=> \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5067	5174	
==>=> \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	569	693	
==>{ 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	569	693	
==>{ 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	569	693	
==>{ 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10610	10792	
==>slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10610	10792	
==>slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10610	10792	
==>slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# ------ end Perl6::Sli <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6754	6886	
==>s( -e $file ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{erro <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1781	1877	
==>t for forward compatibility it should always be the 
value C<1>, the default for the C<:name> for <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1781	1877	
==>t for forward compatibility it should always be the 
value C<1>, the default for the C<:name> for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1861	1988	
==>y $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1861	1988	
==>y $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2097	2224	
==>y $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	650	749	
==>w PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	650	749	
==>w PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	650	749	
==>w PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undef <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3112	3250	
==>use 6
      . #dot
}
rule InputElementDiv {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token> <DivPun <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1364	1491	
==>iles {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        F <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	702	828	
==>iles {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        F <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24762	24860	
==>'s heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29314	29412	
==>'s heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28208	28306	
==>'s heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27964	28124	
==>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27964	28124	
==>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @en <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27964	28124	
==>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4263	4413	
==>me =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4263	4413	
==>me =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4263	4413	
==>me =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $slurpy : $slurp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1769	1905	
==>xist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1769	1905	
==>xist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1769	1905	
==>xist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $key) = $params{$key}
            # NOTE:
            # th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1645	1754	
==>y $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1645	1754	
==>y $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1645	1754	
==>y $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prel <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24012	24150	
==>iEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'>
    | <':'>
    | <'@'>
    | <'&'>
    | <'='>
    | <'+' <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1201	1304	
==>d'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input typ <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1201	1304	
==>d'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input typ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4201	4300	
==>scalar {
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<val <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1875	1973	
==>e features are still missing but will be added in the future...

=head1 CALLBACKS

We have two call <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1875	1973	
==>e features are still missing but will be added in the future...

=head1 CALLBACKS

We have two call <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3186	3298	
==>SIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3186	3298	
==>SIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15622	15721	
==>ric_in($$) }
let: generic_in($.in) = { generic($.is) }
let: generic($$) = { generic($.in) }

# the e <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9632	9755	
==>);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9632	9755	
==>);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6667	6790	
==>S0 = substr target, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 got <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8653	8757	
==>y $rhs = $pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6295	6396	
==>$iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11141	11242	
==>$iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class me <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1039	1133	
==>erfaces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
alb <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1039	1133	
==>erfaces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
alb <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1438	1553	
==>eturn 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fas <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1438	1553	
==>eturn 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fas <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33745	33838	
==>back to our F<Regexp::AndBranch> example.  Let me explain what the
'&' metacharacter will mean <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3798	3903	
==>o be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3798	3903	
==>o be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21248	21346	
==>t).

class_member(class_pos(space_perl),C) :- !,   (char_type(C,space) ; C = 11). %\v chr(11)
class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	88	185	
==>pec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	88	185	
==>pec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { req <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	88	185	
==>pec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
BEGIN {
  eval { req <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9208	9314	
==>undefined

=cut



### current implementation is always anchored at ^

### because it was specialized for s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8907	9009	
==>undefined
=cut

### current implementation is always anchored at ^
### because it was specialized for s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	659	782	
==>ckage} }->{bin} ) {
        print "\t*** Primary alternative for:\n";
        for my $alt (@$aref) {
            print "\t\t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5036	5128	
==>osition of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5036	5128	
==>osition of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1863	1971	
==>our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1863	1971	
==>our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1863	1971	
==>our @ISA = qw<PIL::PVal>;

  sub as_js { sprintf "new PIL2JS.Box.Constant(%s)", PIL::doublequote $_[0]->[0] } <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1432	1553	
==>lshit - i ought to read the details
            #for $class ($self.meta.superclasses){
            #    take $class.subscr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4471	4568	
==>@set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4471	4568	
==>@set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5064	5205	
==>}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5064	5205	
==>}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5064	5205	
==>}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2268	2361	
==>) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2268	2361	
==>) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2268	2361	
==>) { JS::inline('(function (str) { return str.length })')(~$self) }

method index(Str $self: St <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3883	3986	
==>ub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3883	3986	
==>ub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2085	2184	
==>Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2085	2184	
==>Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2085	2184	
==>Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«**»",   2, "N", "Math.pow(Number(a), Num <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	612	769	
==>H' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	700	857	
==>H' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	697	849	
==>H' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4716	4836	
==>s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4716	4836	
==>s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4716	4836	
==>s,\n%s\n])",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16806	16990	
==>rray->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16806	16990	
==>rray->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16806	16990	
==>rray->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->elems->unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	28	123	
==>(Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	28	123	
==>(Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	28	123	
==>(Hash|Pair|Array $self: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	341	488	
==>) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loo <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	341	488	
==>) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4987	5093	
==>t->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_singl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4987	5093	
==>t->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_singl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4987	5093	
==>t->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $class->from_singl <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6970	7073	
==>he
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling wit <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6970	7073	
==>he
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling wit <==
3	/Users/nnunley/pugs/util/package-osx.pl	2472	2561	
==>rs/dromano/dev/pugs/docs /usr/local/share/doc/pugs/docs
        /Users/dromano/dev/pugs/LI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1668	1866	
==>sh {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () ret <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1668	1866	
==>sh {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4549	4664	
==>postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4549	4664	
==>postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match <==
3	/Users/nnunley/pugs/util/func_refact.pl	2338	2447	
==>ists $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23046	23149	
==>0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .param pmc pad <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4403	4498	
==>*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\d <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4403	4498	
==>*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\d <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18938	19044	
==>ce [ "PGE::Exp::Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .loca <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36347	36440	
==>rnally by translate_message() to produce the list of Template module
names that it will search <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36347	36440	
==>rnally by translate_message() to produce the list of Template module
names that it will search <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5885	5990	
==>b { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5885	5990	
==>b { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5885	5990	
==>b { ... }); 
  
  # create ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4672	4805	
==>should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4672	4805	
==>should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4672	4805	
==>should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at > $prev; $pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	849	985	
==>[1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '-' exp %prec NEG   { $out= [ $_[1] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4483	4580	
==>compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4495	4592	
==>compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	803	933	
==>pported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	803	933	
==>pported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	803	933	
==>pported";    
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my $d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	511	613	
==>TION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	511	613	
==>TION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1067	1169	
==>TION

This class handles all the output for Test::Builder.

=head1 PUBLIC ATTRIBUTES

=over 4

=item B< <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	860	974	
==>hing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	860	974	
==>hing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7044	7155	
==>ification of the various types depends on their data...
# this is why this code is so big.

# in a language with <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35433	35522	
==>s-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_produc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39983	40072	
==>s-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_produc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39543	39632	
==>s-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_produc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36751	36847	
==>mber properties; if none
could be matched, this method returns undef.  This method could be
consi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36751	36847	
==>mber properties; if none
could be matched, this method returns undef.  This method could be
consi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5115	5240	
==>rn $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5115	5240	
==>rn $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10570	10772	
==>}
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10570	10772	
==>}
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10570	10772	
==>}
        else {
            # non-lazy slicing
            my $tmp = $other->fetch( $pos )->fetch;
            $ary->store( $i, $tmp );
            $pos++;            
        }
    }
    return;
}

# - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30429	30545	
==>ngth == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30429	30545	
==>ngth == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30429	30545	
==>ngth == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UNIVERSAL::isa( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11319	11409	
==>ilder::Test::Fail does Test::Builder::Test::Base {}
  
  role Test::Builder::Test::WithReas <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1775	1861	
==>ilder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1775	1861	
==>ilder::Test::Fail does Test::Builder::Test::Base {}

role Test::Builder::Test::WithReas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1030	1167	
==>";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1030	1167	
==>";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1030	1167	
==>";
    };
  }
}

{
  register "&Class::_create" => sub {
    my ($cc, $classname) = @_;

    # Total hack.
    $classname =~ s/^.*?new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6153	6304	
==>)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6153	6304	
==>)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29802	29899	
==>f the right parenthesis ')'.  There cannot
be one without a matching left parenthesis '('; if ther <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36849	36978	
==>Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36849	36978	
==>Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36849	36978	
==>Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn "-- array -- ". Dumper( $array );
    #warn "uninitialized val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5251	5421	
==>->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5251	5421	
==>->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7739	7898	
==>ch<category>}.add_op( 
            name => $match<name>, 
            fixity => ..., 
            precedence => ...,
        );
    }

    rule prototype <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17254	17353	
==>or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for E <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17254	17353	
==>or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1106	1212	
==>my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1106	1212	
==>my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1106	1212	
==>my $name = $head->{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	815	904	
==>b infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	815	904	
==>b infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	815	904	
==>b infix:<^..^>  ($x0,$x1) { ($x0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26734	26838	
==>sh> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3453	3548	
==>::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redi <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3453	3548	
==>::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	297	406	
==>e now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $promp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	297	406	
==>e now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $promp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	297	406	
==>e now than later
             # (user-friendlyness etc.)

my $term = Term::ReadLine->new("jspugs");

my $promp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3760	3877	
==>ile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Could not load registered alts fi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6674	6773	
==>tch fields? */
}

/*
 * regexp_compile
 */

static regcomp_t previous_comp_hook = NULL;

regexp* hoo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	61	160	
==>pX/Common/iterator_engine.pl - fglock

Old docs are after the __END__.

This is a rewrite of the <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5115	5208	
==>WP::UserAgent> module.

The following functions are provided (and exported) by this module:

= <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5115	5208	
==>WP::UserAgent> module.

The following functions are provided (and exported) by this module:

= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6281	6460	
==>e ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9758	9937	
==>e ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6899	6999	
==>e->has_method('does'), '... we now have the does() method');
ok($Role->does('Role'), '... Role now do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3127	3249	
==>::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3127	3249	
==>::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3127	3249	
==>::Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Die <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3313	3416	
==>(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_handl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1163	1266	
==>(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_handl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3888	3986	
==>ecause the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3888	3986	
==>ecause the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3888	3986	
==>ecause the following doesn't parse currently:
#     sub JS::Root::infix:<~> ($a, $b) {...}
my $eval <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4997	5133	
==>bj->{value} = $initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_lite <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	94	197	
==>e v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of cod <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	94	197	
==>e v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1161	1266	
==>n}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1161	1266	
==>n}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1161	1266	
==>n}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => [ map { $_->fixup } @{ $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3645	3791	
==>X
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            subst <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3785	3931	
==>X
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            subst <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10781	10900	
==>put from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:li <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10781	10900	
==>put from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:li <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8077	8170	
==>F<ghc_pkg> installed.  This caches its result,
any further calls to ghc_pkg This method expect <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1325	1434	
==>e;
    return nil->new();
}

sub remove {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('nu <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5644	5749	
==>pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use P <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5644	5749	
==>pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use P <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4601	4719	
==>es{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revis <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25028	25126	
==>on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25028	25126	
==>on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	572	668	
==>IL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	572	668	
==>IL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), valu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	572	668	
==>IL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Constant(pair), valu <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12069	12194	
==>.(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      push @{$link_info->{$l <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2496	2601	
==>e files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootpropert <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2496	2601	
==>e files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootpropert <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6812	6922	
==>n 1;
    
}

=head2 JIB::Utils->_mode_plus_w( file => '/path/to/file' );

Sets the +w bit for the file.

Return <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3026	3120	
==>n alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3026	3120	
==>n alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6602	6712	
==>hod('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6602	6712	
==>hod('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($versi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6602	6712	
==>hod('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $version) {
        ($versi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10054	10218	
==>= $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6395	6559	
==>= $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7244	7408	
==>= $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" . Dumper( match::get( \$_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9991	10186	
==>';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6332	6527	
==>';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7181	7376	
==>';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	243	337	
==>tPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	243	337	
==>tPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	243	337	
==>tPMAsLoaded -CPIL ...normal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<T <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10358	10463	
==>x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10358	10463	
==>x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26518	26605	
==>(:query :interactive :load :assert :context :run);
#$Language::Prolog::Yaswi::swi_conver <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	572	736	
==>.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	572	736	
==>.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	572	736	
==>.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'e|eval= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34250	34348	
==>Perl.  We will support this with the '&'
metacharacter.

We have added a handler for the '&' metach <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	833	944	
==>l($level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2238	2342	
==>urns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start }
me <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2238	2342	
==>urns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start }
me <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9385	9515	
==>us => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9385	9515	
==>us => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2555	2667	
==>nt_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2555	2667	
==>nt_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2555	2667	
==>nt_control:for not fully implemented";
    }
}

multi sub eval($code,:$langpair = undef) {
    my $lang = "Perl6" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14015	14155	
==>ory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10188	10328	
==>ory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11024	11164	
==>ory
    
            # example: macro statement_control:<if> ($expr, &ifblock) {...}
            # XXX - this is very rough
            my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1374	1487	
==>"*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $boo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5307	5402	
==>he cipher object to clear its internal state as completely as possible. 
This is automatically d <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5307	5402	
==>he cipher object to clear its internal state as completely as possible. 
This is automatically d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29124	29223	
==>iteration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	96	195	
==>r rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	96	195	
==>r rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1834	1985	
==>, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1834	1985	
==>, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3773	3877	
==>de, $symbol, $body) = @_;

	# all thunks with protos were already defined as functions
	
	my $type = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14399	14491	
==>bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14399	14491	
==>bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14399	14491	
==>bytes ($xx) { use bytes; p6_from_n(length(p6_to_s($xx))) };
MULTI SUB unlink ($xx) {unlink(p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1306	1418	
==>ns support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1306	1418	
==>ns support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1306	1418	
==>ns support sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12441	12554	
==>sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12441	12554	
==>sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12441	12554	
==>sub { Str->new( '$.unboxed' => _('$.unboxed')->str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	925	1041	
==>PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warnings;

use base 'closure::signat <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8583	8675	
==>tor.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8583	8675	
==>tor.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9478	9616	
==>s =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9478	9616	
==>s =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9478	9616	
==>s =>  sub { $count },
    );
}

sub from_single {
    my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Pe <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3470	3567	
==>SH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37334	37424	
==>med C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41883	41973	
==>med C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11112	11254	
==>t;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11112	11254	
==>t;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11112	11254	
==>t;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4184	4297	
==>ve {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4184	4297	
==>ve {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4184	4297	
==>ve {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aItem,
      "postcircumfix:{}",
      _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19186	19340	
==>{ $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19186	19340	
==>{ $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19186	19340	
==>{ $_[0]->{id} },       
        '""' => sub {
            "#<" . (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2528	2651	
==>ft;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2528	2651	
==>ft;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2528	2651	
==>ft;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualified name of a method d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16264	16368	
==>:Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16264	16368	
==>:Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16264	16368	
==>:Num::Inf);
    return Perl6::Value::Num::NaN   if $v eq "".&Perl6::Value::Num::NaN;

    no warnings 'nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22682	22790	
==>),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22682	22790	
==>),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22682	22790	
==>),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(index( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8255	8367	
==>eturn _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6352	6454	
==>le functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6352	6454	
==>le functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29708	29806	
==>it to ever be executed.  As such,
it would be pre-consumptive.

There is an interesting case of the <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16164	16261	
==>s, and will
not spend much time in providing rationales; you can read TTM itself and
various other <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16164	16261	
==>s, and will
not spend much time in providing rationales; you can read TTM itself and
various other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2216	2346	
==>imple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2216	2346	
==>imple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2563	2693	
==>imple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutine calls
  Data::Bind->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1965	2080	
==>())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1965	2080	
==>())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1965	2080	
==>())",  $self->SUPER::as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2503	2624	
==>{
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2503	2624	
==>{
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2503	2624	
==>{
    return $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3408	3545	
==>link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3408	3545	
==>link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3408	3545	
==>link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    my $indent = sub { join "\n", map { " " x 6 . $_ } split "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14262	14362	
==>codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14262	14362	
==>codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14262	14362	
==>codes ($xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8006	8154	
==>> sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8006	8154	
==>> sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8006	8154	
==>> sub { "Hello from foo" },
          bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1721	1856	
==>Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1721	1856	
==>Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1801	1936	
==>Str $line ) is export
{
    push @expect_out, $line;
}

sub test_err ( Str $line ) is export 
{
    push @expect_diag, $line;
}

sub tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1187	1284	
==>ge "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1187	1284	
==>ge "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1187	1284	
==>ge "--yaml-dump doesn't work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11087	11207	
==>nite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstrin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11087	11207	
==>nite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstrin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11087	11207	
==>nite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstrin <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4392	4496	
==>isWritable""paramContext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22555	22644	
==>osetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Inte <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22555	22644	
==>osetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Inte <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2158	2315	
==>nstall
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Pos <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10375	10485	
==>rrent ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10375	10485	
==>rrent ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7341	7449	
==>le is damaged and say so; an undefined
        # ret val means module doesn't define key, skip to next module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7341	7449	
==>le is damaged and say so; an undefined
        # ret val means module doesn't define key, skip to next module <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2680	2797	
==>urn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6157	6274	
==>urn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5087	5204	
==>urn $!body;
}

method size () returns Int {
    return $!body.size();
}

method exists (Mapping(Str) of Any $tuple!) r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5782	5895	
==>er
    %hash = (
        %Pugs::Grammar::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3056	3147	
==>urns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash:: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3056	3147	
==>urns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3715	3856	
==>-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3715	3856	
==>-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3715	3856	
==>-$from+1);
        $match = $new_Match(?1, $from, $to, $str, @a, ());
      }
      $/ := $match;
    };
  } elsif $nth {
    my %mods_altered <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	54	161	
==>upport.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	54	161	
==>upport.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	54	161	
==>upport.

sub JS::Root::rxbare_(Str $re) is primitive {
    my %h;
    rx_helper_(%h, $re, "/", "/");
}
sub J <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	245	390	
==>g in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	245	390	
==>g in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     = <==
3	/Users/nnunley/pugs/util/testgraph.pl	95	188	
==>/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7172	7283	
==>copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7172	7283	
==>copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7172	7283	
==>copy) is primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@arg <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2877	2997	
==>$RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1561	1678	
==>parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5 <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1561	1678	
==>parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10100	10278	
==>,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  method skip_all
  {
      fail "Cannot s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2153	2311	
==>,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot s <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2153	2311	
==>,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

method skip_all
{
    fail "Cannot s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6525	6729	
==>ng' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6525	6729	
==>ng' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6525	6729	
==>ng' => sub {
                my ( $self, @args ) = @_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9005	9105	
==>, $y->{param}, @_);
};

multi unify => ('type', 'type') => sub {
	die "trying to unify incompatible t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3417	3516	
==>, not merely appended to it; appending can create precisely the sort of weak 
keying that can be exp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3417	3516	
==>, not merely appended to it; appending can create precisely the sort of weak 
keying that can be exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1173	1289	
==>erformance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1173	1289	
==>erformance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every inv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1173	1289	
==>erformance will
  # suffer, as Test.pm would be re-parsed, re-compiled-to-PIL1 and
  # re-compiled-to-JS on every inv <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17438	17573	
==>ts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files}, $tot->{ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3132	3237	
==>OPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3132	3237	
==>OPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This cla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2591	2695	
==>on_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2591	2695	
==>on_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2231	2331	
==>.

=back

=head2 Nodes

Nodes are parts of the Blondie Abstract Syntax Tree, and can be executed by a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1272	1400	
==>n\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1272	1400	
==>n\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1140	1234	
==>other thingies.

It also gives the compiler the default environment to work with (from
L<Blondi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22912	23020	
==>),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22912	23020	
==>),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22912	23020	
==>),p6_to_s($xx1),undef);
    $v2 = p6_to_n($xx2) if p6_defined($xx2);
    (defined $v2
     ? p6_from_n(rindex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	80	194	
==>s.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	80	194	
==>s.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	80	194	
==>s.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Minor hack
IN <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	257	355	
==>eate $testdir/$exename.c: $!";
print $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#includ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10285	10382	
==>nts are provided and that they are of the correct
container type (eg, hash vs array).  The deferre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10285	10382	
==>nts are provided and that they are of the correct
container type (eg, hash vs array).  The deferre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12226	12361	
==>line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12226	12361	
==>line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6960	7083	
==>code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6948	7071	
==>code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4716	4817	
==>d_is_optional {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub f <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2797	2921	
==>rt;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2797	2921	
==>rt;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if d <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26438	26540	
==>bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #defi <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	543	660	
==>irectories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    retu <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	543	660	
==>irectories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	680	790	
==>ch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	694	782	
==>ted");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	694	782	
==>ted");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/g <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	694	782	
==>ted");}/g;
    s/(MULTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2952	3051	
==>elude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2952	3051	
==>elude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2952	3051	
==>elude sourcecode",
    metamodel_base => "Perl6.MetaModel",
    output    => "the JavaScript output" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40981	41078	
==>s->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40981	41078	
==>s->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40981	41078	
==>s->{arrayref}};
}

1;
__END__

=head1 NAME

Perl6::Container::Array - Perl extension for Perl6 "Ar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10502	10625	
==>);


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6478	6594	
==>ram, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6478	6594	
==>ram, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1545	1659	
==>rning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1545	1659	
==>rning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1545	1659	
==>rning "Modifier :$k is not yet supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3345	3466	
==>:Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3345	3466	
==>:Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3345	3466	
==>:Hash")  :
        map { ":" . $_->as_string } $self->params->[0]->type->all_types;
      $js .= sprintf
        "PIL2JS.a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	238	341	
==>'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	238	341	
==>'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1851	1945	
==>self->makemaker_args->{INST_MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $self->mak <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1150	1263	
==>ead_script {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2398	2503	
==>m2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3179	3284	
==>m2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10371	10524	
==>__('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10371	10524	
==>__('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tm <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10371	10524	
==>__('$AUTOLOAD');
                # TODO - add support for tied hash
                # TODO - check if scalar := hash works properly
                my $tm <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	260	364	
==>mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INS <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	260	364	
==>mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INS <==
3	/Users/nnunley/pugs/util/package-osx.pl	4900	4997	
==>/local/man/man3/Perl6::Bible::S12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1041	1163	
==>y \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1041	1163	
==>y \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a' <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	34	137	
==>schen Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [* <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7947	8239	
==>->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33876	33975	
==>now
about its '\&' regex assertion.  It's an "AND", much like '|' is an
"OR".  The vim regex C</x\&y <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6229	6320	
==>template->param("syn", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{S} }) ] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3644	3779	
==>quest_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3644	3779	
==>quest_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_ <==
3	/Users/nnunley/pugs/util/package-osx.pl	3326	3434	
==>ine/Pugs.pm
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2980	3171	
==>c, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2980	3171	
==>c, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11433	11562	
==>ay("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, w <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11433	11562	
==>ay("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1656	1768	
==>assed'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Fail')->new(
                '$.descriptio <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	190	294	
==>presenting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

Th <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	190	294	
==>presenting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

Th <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5995	6089	
==>is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) is primitive is safe is builtin {$r.f. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4894	5009	
==>f ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::B <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4894	5009	
==>f ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::B <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5484	5599	
==>f ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRAY') {
		Data::B <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1344	1450	
==>f int IV;
typedef FILE * GV;
typedef char * PV;

int prel_printf (GV f, const PV format, const PV c) {
	ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1306	1438	
==>s :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1306	1438	
==>s :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1306	1438	
==>s :)
    my $self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
})) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1227	1339	
==>!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1227	1339	
==>!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1227	1339	
==>!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	311	434	
==>finite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	311	434	
==>finite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	311	434	
==>finite arrays:
#     (1, 2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4359	4540	
==>pture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matche <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4227	4402	
==>pture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matche <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20717	20809	
==>b Pugs::Internals::Disabled::use ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3841	3951	
==>ators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is impl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3841	3951	
==>ators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is impl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3841	3951	
==>ators, ...
# TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is impl <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	19	127	
==>engine, written in p5.  It the very beginnings of a
# proof of concept.  A feasibility and performance realit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27086	27187	
==>T_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXI <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27086	27187	
==>T_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXI <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22652	22823	
==>ift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method class (opaque $self:) returns opaque {
    # speculative syntax here :)
    unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	689	834	
==>le"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter:: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	689	834	
==>le"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1796	1987	
==>ar_fetch;
            },
     
            'array_storeVal' => sub { # $idx -> $value -> ()
                my $self = shift;
                my $idx = shift;
                my $value = shift <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25287	25379	
==>> equals the immutable identity of the invocant.

=item C<not_equal (Relation $other!) return <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29839	29931	
==>> equals the immutable identity of the invocant.

=item C<not_equal (Relation $other!) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1134	1256	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1134	1256	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1134	1256	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "not o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3081	3188	
==>e_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3081	3188	
==>e_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3081	3188	
==>e_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10702	10829	
==>thod get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10702	10829	
==>thod get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10702	10829	
==>thod get_method;
    method has_method;
    method get_method_list;        
    
    method add_attribute;
    method get_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1361	1485	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1361	1485	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $cou <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1361	1485	
==>odo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $cou <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11988	12086	
==>nt in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11988	12086	
==>nt in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1155	1250	
==>ammar::Compiler->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7241	7331	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7241	7331	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7241	7331	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2235	2367	
==>== -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inters <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2235	2367	
==>== -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inters <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2235	2367	
==>== -&Inf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end inters <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14976	15062	
==>e_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14976	15062	
==>e_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12760	12875	
==>s = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1016	1109	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1016	1109	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1016	1109	
==>ds PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcircumfix_for_pair_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6750	6878	
==>, 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6750	6878	
==>, 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5549	5652	
==>refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handle <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	136	245	
==>me});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	136	245	
==>me});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	136	245	
==>me});
  local $_;

  # XXX hacks?
  if($name eq "&return") {
    PIL::fail("Can't return outside a subroutine! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7300	7404	
==>{
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7300	7404	
==>{
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7300	7404	
==>{
  # XXX copying necessary because PIL2JS's => currently captures *containers*,
  # not values.
  reduce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15369	15497	
==>will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15369	15497	
==>will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15369	15497	
==>will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	317	412	
==>stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	317	412	
==>stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	317	412	
==>stringification ("$key\t$value") and .perlification
#   ("($key.perl() => $value.perl())")
#
# 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2788	2893	
==>(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2788	2893	
==>(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2788	2893	
==>(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash") {
    # $self.keys.ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1537	1674	
==>.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Defa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1537	1674	
==>.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Defa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1537	1674	
==>.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Defa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8544	8641	
==>JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)', <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8544	8641	
==>JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)', <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8544	8641	
==>JS.Box(undefined)',
    '@' => 'new PIL2JS.Box([])',
    '%' => 'new PIL2JS.Box(new PIL2JS.Hash)', <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1644	1844	
==>rt_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

met <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1644	1844	
==>rt_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

met <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4374	4491	
==>_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $_[0]{'p6_file'}->value }

sub as_pil_tree_yaml {
    my $pil_t <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8811	8929	
==>"rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "ra <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8811	8929	
==>"rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13891	13993	
==>($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13891	13993	
==>($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13891	13993	
==>($xx)) };
MULTI SUB prefix:<-f> ($xx) { -f p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-d> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37269	37431	
==>{
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37269	37431	
==>{
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37269	37431	
==>{
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7749	7896	
==>tting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7761	7908	
==>tting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18719	18860	
==>xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18719	18860	
==>xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18719	18860	
==>xx0,$xx1) { 
    my $n = p6_to_n( $xx0 );
    if ( $n eq $xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7118	7228	
==>ead;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7118	7228	
==>ead;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[sh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7118	7228	
==>ead;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is copy) is primitive {
  while @rest {
    $head = $head[sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2421	2538	
==>IL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2421	2538	
==>IL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2421	2538	
==>IL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } else {
    die ".keys do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11341	11475	
==>numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11341	11475	
==>numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't w <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11341	11475	
==>numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { 
            my $self = shift;
            # this doesn't w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9644	9767	
==>y_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9644	9767	
==>y_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9644	9767	
==>y_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $max_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11639	11748	
==>l , any Class instances, themselves does Role since they
are just instances of Class which does Role too. So t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11639	11748	
==>l , any Class instances, themselves does Role since they
are just instances of Class which does Role too. So t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11639	11748	
==>l , any Class instances, themselves does Role since they
are just instances of Class which does Role too. So t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	479	575	
==>in (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	479	575	
==>in (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	479	575	
==>in (Num $self = $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1103	1211	
==>ed here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1103	1211	
==>ed here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1103	1211	
==>ed here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3238	3339	
==>b jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3238	3339	
==>b jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3238	3339	
==>b jsname      { PIL::name_mangle $_[0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2528	2679	
==>ined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2528	2679	
==>ined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2528	2679	
==>ined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4158	4257	
==>e::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5007	5106	
==>e::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], ' <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13972	14069	
==>est *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent order, but the or <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2804	2924	
==>1;

    # alternate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18931	19027	
==>ht
thing on the wire.

When setting the referrer, this method removes the fragment from the
given <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18931	19027	
==>ht
thing on the wire.

When setting the referrer, this method removes the fragment from the
given <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10094	10282	
==>}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10094	10282	
==>}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16497	16616	
==>"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16497	16616	
==>"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16497	16616	
==>"
                unless $::CLASS->has_method($label, for => 'private');
            my $method = $::CLASS->get_method($ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	275	374	
==>$class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	275	374	
==>$class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1577	1719	
==>.\n";
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -tz |] .
                    qq[xarg <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	17	114	
==>an::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	17	114	
==>an::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3393	3499	
==>bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normali <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3393	3499	
==>bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normali <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18601	18691	
==>_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18601	18691	
==>_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18601	18691	
==>_s($xx1)) };
MULTI SUB infix:[<=>] ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) <=> p6_to_n($xx1)) <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1067	1174	
==>r_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1958	2065	
==>r_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32539	32639	
==>oes is zero-width (like an anchor).

=back

If there is a method with the name of one of these attrib <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33903	34002	
==>sertion.  It's an "AND", much like '|' is an
"OR".  The vim regex C</x\&y/> means "match I<y> if I<x <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3616	3711	
==>to provide functionality
while Perl 6 was still being developed.

This module is primarily for r <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3616	3711	
==>to provide functionality
while Perl 6 was still being developed.

This module is primarily for r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8689	8802	
==>e' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8689	8802	
==>e' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8689	8802	
==>e' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MUL <==
3	/Users/nnunley/pugs/misc/S29_round.pl	267	372	
==>$x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_up_asymmetric ( Num $x <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19609	19704	
==>to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19609	19704	
==>to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2108	2230	
==>ew { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2108	2230	
==>ew { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2108	2230	
==>ew { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4887	5001	
==>en args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4887	5001	
==>en args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4887	5001	
==>en args so we can .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4985	5086	
==>on of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Tea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4985	5086	
==>on of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Tea <==
3	/Users/nnunley/pugs/util/package-osx.pl	3054	3151	
==>adline.5.1.dylib
        /usr/local/lib/libhistory.5.1.dylib
        /Library/Frameworks/GMP.Frame <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9207	9314	
==>ant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9207	9314	
==>ant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9207	9314	
==>ant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15139	15264	
==>= 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15139	15264	
==>= 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15139	15264	
==>= 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	942	1040	
==>\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($siteli <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	942	1040	
==>\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($siteli <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12845	12940	
==>haracter_tail([C,T],Close) --> [C], p6_named_character_tail(T,Close).


brackets("{","}"). brack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32674	32819	
==>p[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32674	32819	
==>p[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32674	32819	
==>p[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8724	8876	
==>,
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8724	8876	
==>,
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8724	8876	
==>,
            'ref' =>  sub { $::CLASS }, 
        },
    }
};

class1 'Pair'.$class_description => {
    is => [ $::Object ],
    class => {
        att <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4282	4397	
==>h->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4282	4397	
==>h->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'A <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16127	16227	
==>ops each item in turn, and returns the last character
chopped.


=item chomp

 multi Str::chomp (  St <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2636	2750	
==>ay) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2636	2750	
==>ay) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2636	2750	
==>ay) {
      // We\'ve to [].concat here so we don\'t set .flatten_me of caller\'s
      // original array.
      va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10610	10743	
==>= Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10610	10743	
==>= Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10610	10743	
==>= Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1998	2125	
==>_compile($code);
        die $@ if $@;
        exit 0;
    }
}

1;

__END__

=head1 NAME 

v6-pugs - an experimental Perl 6 impl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1081	1198	
==>g is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the valu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4559	4676	
==>g is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the valu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37052	37146	
==>In any situation where a pair of source
relations have zero attributes in common, their joining <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41601	41695	
==>In any situation where a pair of source
relations have zero attributes in common, their joining <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41224	41318	
==>In any situation where a pair of source
relations have zero attributes in common, their joining <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8569	8683	
==>BNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8569	8683	
==>BNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8569	8683	
==>BNAME : '']}>";
    no warnings "recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14385	14488	
==>X class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8588	8691	
==>X class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/util/combine_tests.pl	13	114	
==>rl

use strict;
use warnings;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump LoadFile/ ];
#my @data = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16797	16920	
==>ub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16797	16920	
==>ub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16797	16920	
==>ub bool::true       { 1 }
sub taint::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3309	3410	
==>our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$serv <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3309	3410	
==>our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$serv <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3803	3910	
==>$bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3803	3910	
==>$bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3803	3910	
==>$bar ~ $baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following do <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7628	7738	
==>--------------------------------------------------

## NOTE:
## we want to prevent the default version 
## of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7628	7738	
==>--------------------------------------------------

## NOTE:
## we want to prevent the default version 
## of t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7628	7738	
==>--------------------------------------------------

## NOTE:
## we want to prevent the default version 
## of t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38648	38746	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8876	8972	
==>ring>

This event processes raw strings.

=item I<newline>

This event handles newlines in the te <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8876	8972	
==>ring>

This event processes raw strings.

=item I<newline>

This event handles newlines in the te <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4331	4489	
==>r->[2]) }
}

sub CheckWc {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "0000000001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36472	36564	
==>message! )>

This method takes a (machine-readable) Message object as its positional
paramete <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36472	36564	
==>message! )>

This method takes a (machine-readable) Message object as its positional
paramete <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	601	699	
==>r 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	601	699	
==>r 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1157	1255	
==>r 4

=item B<$.output>

The filehandle to which to write all normal output (test results and
descri <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16939	17076	
==>, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13360	13497	
==>, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1 <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	490	625	
==>ltin is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $str, -1, 1;
        $str = subst <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	350	441	
==>Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by di <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	350	441	
==>Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11710	11898	
==>p) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11710	11898	
==>p) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11710	11898	
==>p) ) 
                }
                return Bit->new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2297	2398	
==>r) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2297	2398	
==>r) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2297	2398	
==>r) { return str.length })')(~$self) }

method index(Str $self: Str $substr, Int $pos = 0) {
  JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7467	7598	
==>_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7467	7598	
==>_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7467	7598	
==>_;
    my @nodes; my %classes;
    push(@nodes,$node);
    while (@nodes) {
        my $n = shift(@nodes);
        my $cls = ref($n) <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1311	1408	
==>es a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

metho <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1311	1408	
==>es a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	812	925	
==>new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	812	925	
==>new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	812	925	
==>new PIL2JS.Box.Constant(function (args) {
      var hash = args[1].FETCH(), keys = args[2].FETCH(), cc = args.pop( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	518	615	
==>ere's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	518	615	
==>ere's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	518	615	
==>ere's no &?CALLER_CONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	125	221	
==>ead1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYN <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	125	221	
==>ead1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYN <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1476	1568	
==>e.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1476	1568	
==>e.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1476	1568	
==>e.appendChild(document.createTextNode(msg));
          window.scrollTo(0, document.body.offse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5676	5797	
==>intf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5676	5797	
==>intf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5676	5797	
==>intf "if(!%s) var %s = %s;",
        name_mangle($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARE <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14187	14317	
==>emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $v = $f_t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	377	479	
==>t::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  clas <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	377	479	
==>t::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  clas <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5530	5649	
==>Param->new('$cond'),
            Param->new('$left_thunk'),
            Param->new('$right_thunk'),
            App->new <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	12	110	
==>file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	12	110	
==>file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	409	514	
==>s;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	409	514	
==>s;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	409	514	
==>s;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4540	4642	
==>2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4540	4642	
==>2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $spa <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	221	320	
==>Modularize this.
# 2. Get to work concurrently with 'make test'
# 3. 'make smoke' make target that u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	666	787	
==>\$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11194	11291	
==>s live.  The Document class is pure and deterministic,
such that all of its class and object metho <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11194	11291	
==>s live.  The Document class is pure and deterministic,
such that all of its class and object metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1883	2017	
==>is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1883	2017	
==>is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1883	2017	
==>is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->shift;
        la <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4024	4127	
==>ect(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1331	1434	
==>ect(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_ha <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3400	3536	
==>$span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3400	3536	
==>$span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7307	7426	
==>od');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:metho <==
3	/Users/nnunley/pugs/util/version_h.pl	3	104	
==>usr/bin/perl -w
use strict;
use warnings;
use Cwd;

my $version_h = shift || Cwd::cwd() . "/src/Pugs/p <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	26	119	
==>iler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cu <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	26	119	
==>iler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	357	478	
==>'( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.* <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4456	4549	
==>procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4456	4549	
==>procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13780	13904	
==>ents
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13780	13904	
==>ents
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14100	14194	
==>thod?
    $self->registered_alternatives([ @{$self->registered_alternatives}, $alt ]);

    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21100	21196	
==>...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21100	21196	
==>...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21100	21196	
==>...};
MULTI SUB infix:<err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SU <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2227	2329	
==>har_comp => $S->nchar($n), "\\C[$n]");
      }

      return $S->object(exact_comp => join("", $S->ncha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5040	5180	
==>arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5040	5180	
==>arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5040	5180	
==>arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13312	13432	
==>f ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13312	13432	
==>f ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             g <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13312	13432	
==>f ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             g <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1506	1630	
==>nt <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rath <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1506	1630	
==>nt <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rath <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1813	1916	
==>oin(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		p <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	747	890	
==>UPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1;
    }
}

sub base_path {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8688	8795	
==>recedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6219	6322	
==>recedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumf <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20794	20914	
==>= '"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setreps:
    isarray = 0
    reps = pad["reps" <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3768	3863	
==>ipher() method repeatedly 
with your data.  Finally, call the finish() method to return any left <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3768	3863	
==>ipher() method repeatedly 
with your data.  Finally, call the finish() method to return any left <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9606	9765	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9885	10044	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3398	3486	
==>CH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE('::WithReaso <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	58	145	
==>ady been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	58	145	
==>ady been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10437	10549	
==>e::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10595	10707	
==>e::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33344	33442	
==>: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</s> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5257	5369	
==>es};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5257	5369	
==>es};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5257	5369	
==>es};
    return $new_class;
}


sub _build_role {
    my ($name, $version, $authority, $body) = @_;

    my $new_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2970	3074	
==>r ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a.. <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2970	3074	
==>r ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	686	787	
==>hods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	686	787	
==>hods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	686	787	
==>hods: .access('ro'); .access('rw'); .bind( $scalar )
# - reimplemented Scalar - auto-deref; new method <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2928	3086	
==>k
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                and <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20275	20366	
==>"Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The head <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20275	20366	
==>"Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The head <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4906	5032	
==>want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4906	5032	
==>want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4906	5032	
==>want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($patter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2522	2655	
==>&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2522	2655	
==>&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2522	2655	
==>&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $native;
    # true              ==> It's a call to a na <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	182	293	
==>mport();
}

@ARGV or die 'Need at least one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1675	1772	
==>eenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax whic <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1675	1772	
==>eenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax whic <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3228	3362	
==>ub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3228	3362	
==>ub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6024	6147	
==>se {
		$self->reduce($thunk->val);
	}
}

sub reduce_sym {
	my $self = shift;
	my $node = shift;

	$self->find_immediate_dyn_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	98	200	
==>s most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	98	200	
==>s most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	98	200	
==>s most
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	901	1024	
==>up the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	901	1024	
==>up the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	901	1024	
==>up the reference.
    var ref       = new PIL2JS.Ref(boxed);
    ref.autoderef = true;
    ref           = new PIL2JS.Box(re <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1677	1779	
==>nction (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1677	1779	
==>nction (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1677	1779	
==>nction (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6209	6307	
==>sh followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6209	6307	
==>sh followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6209	6307	
==>sh followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14250	14390	
==>1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17727	17867	
==>1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17143	17283	
==>1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_tuples.push( $r1 );
        }
        elsif ($r1!heading <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5899	6036	
==>join(", ", @params) . ") {" . join("\n\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self- <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1524	1618	
==>inks to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory there're <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1524	1618	
==>inks to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory there're <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10862	11037	
==>um},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10862	11037	
==>um},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10862	11037	
==>um},
        start =>          $ret->{end},
        end =>            $ret->{start},
        cstart =>         $ret->{cend},
        cend =>           $ret->{cstart},
        c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13649	13779	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15174	15304	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12641	12759	
==>e() == 0) {
        # Both sources have zero tuples; so does result.
        return Relation::Example.new( heading => $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12932	13025	
==>positive infinite if the recurrence is infinite.
Returns negative infinite if the recurrence i <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12932	13025	
==>positive infinite if the recurrence is infinite.
Returns negative infinite if the recurrence i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8354	8447	
==>nd_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Clos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3604	3739	
==>lasses;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3604	3739	
==>lasses;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3604	3739	
==>lasses;
    }

    # Special magic for &*END_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	355	445	
==>etopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	355	445	
==>etopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($de <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	355	445	
==>etopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs);my($de <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3775	3868	
==>h L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=ite <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3775	3868	
==>h L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=ite <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14097	14194	
==>ng GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  using  => s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	73	165	
==>e block cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	73	165	
==>e block cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4679	4804	
==>$candidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39792	39888	
==>modify
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Fre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39792	39888	
==>modify
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Fre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4057	4141	
==>APPING AREA
## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4057	4141	
==>APPING AREA
## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4057	4141	
==>APPING AREA
## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	593	688	
==>c::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	593	688	
==>c::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: t <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8420	8530	
==>ues ;      Code *&test   --> Lazy )
 multi Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::g <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6796	6899	
==>rn ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closu <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6796	6899	
==>rn ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4669	4796	
==>uleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4523	4646	
==>uleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1758	1851	
==>print "name: $name - eq: $equivalence - rp: $relativePrecedence - options: $options - match: $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16015	16128	
==>uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16015	16128	
==>uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16015	16128	
==>uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p6_from_n( ord <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1422	1681	
==>,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	478	588	
==>$capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	478	588	
==>$capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12203	12340	
==>r current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12203	12340	
==>r current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12203	12340	
==>r current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method-> <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2105	2205	
==>rl5

=head1 NAME

Meta::Class - Entities in the Perl 6 language model (M2)

=head1 SYNOPSIS

 my $rol <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23996	24088	
==>gests that they
use a compile-time macro-based approach to substitute the user's preferred
la <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23996	24088	
==>gests that they
use a compile-time macro-based approach to substitute the user's preferred
la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	587	694	
==>an:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	587	694	
==>an:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	587	694	
==>an:Number.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	276	375	
==>ns here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# sho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	276	375	
==>ns here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# sho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	276	375	
==>ns here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# sho <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	67	168	
==>e::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Inst <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	62	163	
==>e::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Inst <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	62	163	
==>e::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5529	5638	
==>writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5529	5638	
==>writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $v <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6119	6228	
==>writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $v <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1719	1849	
==>on phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule:: <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1719	1849	
==>on phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	743	843	
==>gram
    
    my $result = Blondie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4494	4584	
==>lf => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4494	4584	
==>lf => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_privat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4494	4584	
==>lf => '@:subclasses')} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_privat <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1902	2013	
==>$args->{SIGN} unless $self->is_admin;

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2272	2367	
==>s($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.si <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2272	2367	
==>s($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9032	9194	
==>},
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9032	9194	
==>},
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9032	9194	
==>},
            do => sub {
                my ($self, @arguments) = @_;

                my $j = $self->expand_junctions( @arguments );
                return $j i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18069	18190	
==>from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18069	18190	
==>from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18069	18190	
==>from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20950	21052	
==>.
rm(word_boundary_not,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> c <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1055	1149	
==>rectory, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1055	1149	
==>rectory, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $dir <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1354	1473	
==>},
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    my $cwd = Cw <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1143	1229	
==>16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2199	2295	
==>lename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2199	2295	
==>lename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2199	2295	
==>lename)
}

sub JS::Root::unlink(Str $filename) is primitive {
  JS::inline('(
    function (filen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13817	13926	
==>elation {

    # First do some optimizing of the order that source relations are
    # combined, so to try and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17294	17403	
==>elation {

    # First do some optimizing of the order that source relations are
    # combined, so to try and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14602	14702	
==>$method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14602	14702	
==>$method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14602	14702	
==>$method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
}));

$::C <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2642	2740	
==>rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interface f <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2642	2740	
==>rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interface f <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	488	624	
==>chema->classes ) {

        class($class->name =>
              { instance =>
                { methods => { map { $_->name => $_->code } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2136	2247	
==>" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2136	2247	
==>" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	313	434	
==>( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pugs::Grammar::Perl6->parse( $src );
    #use YA <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2430	2530	
==>ll produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Si <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2430	2530	
==>ll produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Si <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2599	2771	
==>$2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2903	3063	
==>$2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2903	3063	
==>$2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2677	2880	
==>path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2677	2880	
==>path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2281	2383	
==>[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1837	1931	
==>::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1837	1931	
==>::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1837	1931	
==>::Class
    $_add_method->($::Class, 'add_method', ::make_method($_add_method));
}
# ... now we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10412	10572	
==>CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10412	10572	
==>CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10412	10572	
==>CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13854	13948	
==>oo bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_ <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13854	13948	
==>oo bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26684	26775	
==>> <NonemptyClassRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4964	5077	
==>); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4964	5077	
==>); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	524	627	
==>uckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	524	627	
==>uckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	524	627	
==>uckets()


# TODO - warn for odd number of elements, on construction
# TODO - keys(), values(), pairs(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10644	10752	
==>_('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10644	10752	
==>_('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10644	10752	
==>_('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	949	1065	
==>main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Fin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	949	1065	
==>main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Fin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	949	1065	
==>main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Fin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7446	7569	
==>my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7446	7569	
==>my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7446	7569	
==>my $s = lc( $::CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8373	8483	
==>rom $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8373	8483	
==>rom $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8373	8483	
==>rom $name" }, $::CLASS));
      }
  };

=head1 DESCRIPTION

=head1 SEE ALSO

=head1 AUTHOR

Stevan Little E<gt> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3235	3335	
==>d rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6712	6812	
==>d rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31813	31906	
==>m C<union (Relation $other!) returns Relation>

This multi-method is a generic binary relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36363	36456	
==>m C<union (Relation $other!) returns Relation>

This multi-method is a generic binary relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	980	1110	
==>SAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	980	1110	
==>SAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	980	1110	
==>SAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, call the real _exportList.
        old_ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3908	4003	
==>B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eithe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3908	4003	
==>B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eithe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30782	30875	
==>t
that any duplicates following the transformation have been eliminated. 
Trivial cases are wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35333	35425	
==>t
that any duplicates following the transformation have been eliminated.
Trivial cases are wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34524	34616	
==>t
that any duplicates following the transformation have been eliminated.
Trivial cases are wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17501	17652	
==>->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17501	17652	
==>->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17501	17652	
==>->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_, 'Perl6::Container: <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1453	1564	
==>) returns Array is export{
    my @matches;
    for %x.kv->$key,$value{
        if $value eq $x { push @matches, <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3595	3695	
==>); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See link <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3595	3695	
==>); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See link <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13612	13798	
==>params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13612	13798	
==>params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13612	13798	
==>params{ ${$self->params}[$i]->name } = $candidate;
                    }
                }
                return %bound_params;        
            },
        },
    }
};

class1 'Sub'.$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34749	34850	
==>anslator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34749	34850	
==>anslator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2479	2596	
==>dilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egra <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2479	2596	
==>dilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10246	10364	
==>cript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10246	10364	
==>cript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10246	10364	
==>cript " + orig_value[idx]);

          // Support (in a slightly hacky manner) ($a, undef, $b) = (3,4,5).
          if( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16357	16452	
==>cales or user types simultaneously, and that allows any end users to add
support for new languag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16357	16452	
==>cales or user types simultaneously, and that allows any end users to add
support for new languag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2338	2432	
==>tters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=back

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3459	3579	
==>arCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3459	3579	
==>arCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3459	3579	
==>arCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22598	22687	
==>entation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22598	22687	
==>entation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8361	8568	
==>d($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8361	8568	
==>d($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8361	8568	
==>d($1) ? 
                    $self->get_method($1) 
                    :
                    # if all else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1460	1588	
==>//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1460	1588	
==>//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	226	329	
==>reach my $backend (@_) {
		my $m = "Blondie::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1303	1423	
==>_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1303	1423	
==>_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1303	1423	
==>_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached_result = PIL2JS.cps2normal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10592	10729	
==>$self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10592	10729	
==>$self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10592	10729	
==>$self->params } . " -- @params";
                while(1) {
                    if ( $i >= scalar @{ $self->params } && $i >= scalar @para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1810	1936	
==>art;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1810	1936	
==>art;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1810	1936	
==>art;
    my @end;
    my $samples = 3;
    $samples = 1000 unless $self->is_infinite;
    my $tmp = -&Inf;
    for ( 1 .. $samp <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3636	4025	
==>>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3636	4025	
==>>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_ <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	350	444	
==>E/pugs');
    copy_all("$_/blib/", 'blib6/pugs/perl5') for <perl5/*>;
    copy_all("$_/blib6/", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5221	5320	
==>vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5221	5320	
==>vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5221	5320	
==>vars;
    $vars .= $PIL::IN_SUBLIKE >= PIL::SUBROUTINE && !$self->isa("PIL::PSub")
      ? "_24main_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9966	10086	
==>od () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9966	10086	
==>od () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9966	10086	
==>od () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2751	2888	
==>le($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2751	2888	
==>le($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2751	2888	
==>le($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : "var ",
        PIL::nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	130	223	
==>se 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	130	223	
==>se 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	130	223	
==>se 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_args);
use B ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	712	815	
==>nd');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	712	815	
==>nd');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	712	815	
==>nd');

  # $beat now contains objects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4067	4164	
==>es([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4067	4164	
==>es([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4067	4164	
==>es([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	891	998	
==>for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	891	998	
==>for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	891	998	
==>for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descendant');
    while (my $c = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11862	11960	
==>$method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11862	11960	
==>$method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11862	11960	
==>$method_table = $self->_get_method_table(\%params);
    delete $method_table->{$label};   
});

::C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3138	3272	
==>ld;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3138	3272	
==>ld;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	102	204	
==>adds a 5.005 Perl version dependency.
### This is a bug and will be fixed.
use File::Spec ();
use ExtUt <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8437	8540	
==>with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8437	8540	
==>with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1201	1337	
==>nt   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Int <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1201	1337	
==>nt   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Int <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	936	1071	
==>eturn $FALSE;
    }
    else {
        return $TRUE;
    }    
}

sub and : method {
    my ($self, $block) = @_;
    (blessed($block) & <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	556	651	
==>e standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Cons <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	556	651	
==>e standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Cons <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9154	9281	
==>( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.new(
              numb <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1282	1401	
==>( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            numb <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1282	1401	
==>( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.new(
            numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	102	209	
==>st
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	102	209	
==>st
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	102	209	
==>st
# objects (we want PIL::PVal, not PVal).

use warnings;
use strict;

# To s/VNum/PIL::VNum/g
use Class::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12604	12758	
==>f @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12604	12758	
==>f @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12604	12758	
==>f @{$self->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12671	12794	
==>LCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::pos = $X <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14456	14560	
==>ap { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1936	2040	
==>ap { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	381	492	
==>ch = Pugs::Grammar::Perl6->parse( $src );
    #use YAML;
    #print Dump $match->();
    print Dumper $match- <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6728	6830	
==>can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

= <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6728	6830	
==>can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

= <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3076	3173	
==>on of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) return <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3076	3173	
==>on of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2663	2778	
==>do("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2663	2778	
==>do("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9828	9965	
==>) ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9828	9965	
==>) ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9828	9965	
==>) ) },
            'ref' => sub { $::CLASS }, 
            'isa' => sub { ::next_METHOD() },
            'does' => sub { ::next_METHOD() } <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2543	2657	
==>as PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2543	2657	
==>as PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10973	11106	
==>ay[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10973	11106	
==>ay[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10973	11106	
==>ay[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      retu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10760	10866	
==>y \$self=\$_[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self=\$_[0];my($var <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7492	7590	
==>ectories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7492	7590	
==>ectories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4565	4674	
==>s "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4565	4674	
==>s "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4565	4674	
==>s "Cannot FETCH at (" . ($label || 'undef') . ")";
    if ($label eq '{}') {
        return ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27490	27589	
==>Message object, you must create a new
object that is a clone of the first but for the changes.

=bac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27490	27589	
==>Message object, you must create a new
object that is a clone of the first but for the changes.

=bac <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6940	7034	
==>s("p6_new: unknown class $cls\n");
}

sub p6_code_mk_CODE {
    my($name,$kind,$pams,$lval,$bod <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	808	917	
==>) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { ret <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	808	917	
==>) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5099	5216	
==>0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5099	5216	
==>0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5099	5216	
==>0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$pa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3018	3124	
==>ode();

    $<variable>:=(<term1>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	787	909	
==>::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            w <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	787	909	
==>::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            w <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1439	1541	
==>_even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.round_half_random },

		{ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3266	3348	
==>ement_previous, $self.complement_next, $set.complement_previous, $set.complement_ne <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3266	3348	
==>ement_previous, $self.complement_next, $set.complement_previous, $set.complement_ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11272	11450	
==>) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11272	11450	
==>) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11272	11450	
==>) 
                       != 
                       ::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6238	6395	
==>t malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = reg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6238	6395	
==>t malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = reg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6238	6395	
==>t malformed patterns.
            regexp = new RegExp(pattern,flags);
          } catch (e) {
            return null;
          }
          var  match  = reg <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2628	2753	
==>ts.

Returns a true value on success, otherwise something false.

=cut

sub create {
    my $self = shift;
    my $conf = $sel <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2406	2497	
==>Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+)) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2406	2497	
==>Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+)) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2815	2913	
==>o derive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2815	2913	
==>o derive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5877	5980	
==>ion $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosett <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5877	5980	
==>ion $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosett <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4444	4578	
==>n problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:pe <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4444	4578	
==>n problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	18	117	
==>rnings;
#use Inline 'INFO','NOISY','FORCE';
# please help fill in this file
# a method of autogenrat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36460	36582	
==>st: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36460	36582	
==>st: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36460	36582	
==>st: @list\n";
    @{$array->{items}} = ( @head, @list, @tail );
    return $class->from_list( @body );
}

sub end  {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1670	1892	
==>]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0. <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1670	1892	
==>]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3095	3220	
==>& $options{params}->isa('closure::params'))
        || confess "Bad params in signature";
    $options{returns} = 'type' if !( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11660	11781	
==>e', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11660	11781	
==>e', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2573	2679	
==>direct_rule>
  | <character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	550	644	
==>h @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($fun <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	694	786	
==>[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->fro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	694	786	
==>[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	330	430	
==>ing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	330	430	
==>ing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	330	430	
==>ing.

# ... this makes ::Class a subclass of ::Object (through ::Package and ::Module)
# the result o <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2970	3082	
==>onal ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2970	3082	
==>onal ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2957	3072	
==>ata = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2957	3072	
==>ata = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $ <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5458	5566	
==>run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests = $se <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2860	2965	
==>rties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cf <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2860	2965	
==>rties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cf <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9687	9818	
==>er>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22081	22191	
==>_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Pos <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16982	17091	
==>_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	727	827	
==>TROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	727	827	
==>TROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	727	827	
==>TROY { (shift)->leave_scope }    

## private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14474	14581	
==>obj, Code $code) is primitive is safe {
    $code($obj);
    $obj;
}

# (Unspecced) facade class supplying l <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5819	5919	
==>ve seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_he <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5819	5919	
==>ve seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_he <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2726	2882	
==>s) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $attr_name )) {
            return Bool::true;
        }
    }
    return Bool: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26194	26324	
==>, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type => 'flag <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8487	8584	
==>thod to explicitly build it:

  $parser->parse;

This is not necessary, though, because the follow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1225	1324	
==>- dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1225	1324	
==>- dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1225	1324	
==>- dont add more here?
MULTI SUB pi () {p6_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10306	10416	
==>ubrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] negate( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	6	101	
==>et::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMS <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	6	101	
==>et::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMS <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3183	3303	
==>rammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3376	3496	
==>rammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        m <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1206	1310	
==>und_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num::round_random (Num <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36385	36484	
==>d

Family: assertion

Types: suspend (C<< (?> >>)

Data: array reference of any number of objects

E <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2894	3003	
==>o))))
     ($method))

=cut

$::ENV->create('WALKMETH' => closure->new(
        $::ENV,
        closure::signa <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	513	611	
==>\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015? <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	513	611	
==>\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015? <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11231	11381	
==>est        = $10;
      
      $linkfile = $1 if ($linkfile =~ /^"(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $output .= "$text <a href='$lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10286	10386	
==>tance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10286	10386	
==>tance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10286	10386	
==>tance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_method_table' => ::make_pri <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3968	4066	
==>ing zero or more `Span` objects.

The array of spans must be ordered, and the spans must not inters <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3968	4066	
==>ing zero or more `Span` objects.

The array of spans must be ordered, and the spans must not inters <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27031	27139	
==>l's attributes to what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31583	31691	
==>l's attributes to what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30639	30747	
==>l's attributes to what C<project> would
return given the same C<$attrs>.  This method has an alias named
C<se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12827	12976	
==>V,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11506	11653	
==>V,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15257	15404	
==>V,
            method::signature->new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6702	6849	
==>R '', " . _emit( $n->{param} ) . ', "\n"';
            }
            return " print '', $s" . ', "\n"';
        }
        if ( $n->{method}{bare <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14902	15021	
==>*/
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parentheses <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19070	19189	
==>*/
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parentheses <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29997	30108	
==>- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29997	30108	
==>- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29997	30108	
==>- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = shift;
    $class->new( items => [@_] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4155	4281	
==>ject]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4155	4281	
==>ject]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4155	4281	
==>ject]" as a generic reference!
      @a = map {$_[0]}, @$m if @{@a[0]};
      unshift(@a,undef); # 1-based.
      @a[$nth_keys] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3392	3534	
==>ndef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # rem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3392	3534	
==>ndef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # rem <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3392	3534	
==>ndef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # rem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5568	5687	
==>ix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5568	5687	
==>ix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5568	5687	
==>ix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementation
  my @res;
  for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1312	1439	
==>bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1312	1439	
==>bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1312	1439	
==>bound, and defaults are filled in, etc.
    my $js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9206	9339	
==>h ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        con <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13056	13185	
==>h ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13056	13185	
==>h ]}\n";
    my @keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        con <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11200	11288	
==>$version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11200	11288	
==>$version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2086	2197	
==>0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2086	2197	
==>0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2433	2544	
==>0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias variables

=head1 SYNOPSIS

  use Data: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2380	2482	
==>.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2nor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2380	2482	
==>.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2nor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2380	2482	
==>.Constant(undefined);
    _24main_3a_3a_21 = new PIL2JS.Box(undefined);

    try { ret = PIL2JS.cps2nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12404	12523	
==>:make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12404	12523	
==>:make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12404	12523	
==>:make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6211	6356	
==>}      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6211	6356	
==>}      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6211	6356	
==>}      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    ins <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1145	1243	
==>t) := $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1145	1243	
==>t) := $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5992	6105	
==>MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5992	6105	
==>MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5992	6105	
==>MRO' => method () { 
    my $self = shift;
    unless (@{::opaque_instance_attr($self => '@:MRO')}) {
        ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14128	14215	
==>tribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14128	14215	
==>tribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14128	14215	
==>tribute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1784	1895	
==>ors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1784	1895	
==>ors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1784	1895	
==>ors
#
# 2005-08-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	721	825	
==>args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	721	825	
==>args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	721	825	
==>args[1].FETCH(), cc = args.pop();

    // Firstly, we create a boxed undefined. This will later become ou <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3292	3389	
==><value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 O <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3292	3389	
==><value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 O <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2382	2474	
==>FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regexp* r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7190	7301	
==>)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	14	117	
==>ompiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    h <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	14	117	
==>ompiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2367	2476	
==>xpand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2367	2476	
==>xpand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2367	2476	
==>xpand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{$_->[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15195	15327	
==>ems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15195	15327	
==>ems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15195	15327	
==>ems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub shift { $_[0]->{celems}( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	869	981	
==>ll_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	869	981	
==>ll_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($bod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	869	981	
==>ll_name, $body) = @_;
    # support generic classes here ...
    if (defined($body) && defined($_[2]) && ref($bod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1385	1486	
==>LS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1385	1486	
==>LS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1385	1486	
==>LS;

# Guard against reentrancy.
our $PROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	8699	8817	
==>n( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.ele <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8699	8817	
==>n( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.ele <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8151	8255	
==>ninstall the files
    ### XXX check dependencies
    {   open my $fh, $self->files_list( $inst_pkg->pack <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9140	9251	
==>k returns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1268	1373	
==>k returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1268	1373	
==>k returns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10002	10162	
==>names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10002	10162	
==>names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listif <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10002	10162	
==>names6param > 1 ? '@' : '$';
        $my_args = ('my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7188	7346	
==>ue::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7188	7346	
==>ue::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7188	7346	
==>ue::numify( $key->is_infinite );
                    #warn "not implemented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1189	1287	
==>y ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1189	1287	
==>y ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1189	1287	
==>y ($file, $line_start, $column_start, $line_end, $column_end) =
      @{ $_[0] }{qw< posName posBeg <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	804	902	
==>class JSX::Value::Null      is JSX::ValuePrimitive;
class JSX::Value::Boolean   is JSX::ValuePrimit <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36363	36457	
==>ate_message() to produce the list of Template module
names that it will search.

=item C<transl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36363	36457	
==>ate_message() to produce the list of Template module
names that it will search.

=item C<transl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16218	16357	
==>match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16212	16351	
==>match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Du <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	234	355	
==>:comparable';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_lik <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2163	2273	
==>cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2163	2273	
==>cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::co <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2163	2273	
==>cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1252	1360	
==>_26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1252	1360	
==>_26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1252	1360	
==>_26main_3a_3a_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38455	38575	
==>ray = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ rev <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38455	38575	
==>ray = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ rev <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38455	38575	
==>ray = shift;
    my @rev = reverse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ rev <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17749	17884	
==>h test looks like this:

    $results{details}[$test_num - 1] = 
            { ok        => is the test considered ok?
              act <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9081	9176	
==>e methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `star <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9081	9176	
==>e methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15696	15801	
==>>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15696	15801	
==>>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15696	15801	
==>>add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $lab <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2415	2508	
==>a-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2415	2508	
==>a-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1189	1294	
==>ypes: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All lib <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1189	1294	
==>ypes: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All lib <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1189	1294	
==>ypes: Num, Int, Str, Bit, Pair
#
# 2005-08-13
# * refactored from Perl6::Value::List

# Notes:
# - All lib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5856	5951	
==>_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5856	5951	
==>_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5856	5951	
==>_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1123	1222	
==>tall extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::Install is actually loaded, <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1376	1472	
==>bove in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1376	1472	
==>bove in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	421	570	
==>os.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_ch <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	421	570	
==>os.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3215	3322	
==>\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_cha <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	603	707	
==>$class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.n <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	603	707	
==>$class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9314	9454	
==>". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9314	9454	
==>". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9314	9454	
==>". $i->str . "\n";
            # items should be cloned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	691	830	
==>my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	691	830	
==>my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "ya <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	691	830	
==>my $yaml_dump;

GetOptions(
  "verbose"            => \$verbose,
  "link=s"             => \$link,
  "output=s"           => \$output,
  "ya <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2464	2554	
==>preciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. A <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2464	2554	
==>preciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. A <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12644	12735	
==>C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=h <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12644	12735	
==>C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=h <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3026	3117	
==>_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6235	6341	
==>\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6223	6329	
==>\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1135	1231	
==>print STDERR "  eval \"$str\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$ <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	599	699	
==>a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, the <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	599	699	
==>a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10160	10367	
==>, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10160	10367	
==>, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10160	10367	
==>, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17398	17510	
==>elf->generic_reduce($_[0]) })->str;

            return (ref $node) . "->new<=$node>" . layout(@gut);
        } e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1285	1385	
==>eters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1273	1373	
==>eters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5143	5245	
==>m(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5143	5245	
==>m(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5143	5245	
==>m(@self:) { sum *@self }
sub JS::Root::sum(*@vals) is primitive {
  my $sum = 0;
  $sum += +$_ for @val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2237	2417	
==>$_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2237	2417	
==>$_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2237	2417	
==>$_[1]) if $_[0]{tied};
    if ( $_[0]{tied} ) {
        my $cell = shift;
        return $cell->{tied}->store( @_ );
    }
    if ( @_ > 2 ) {
           # && (
           # Perl6:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4694	4810	
==>->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4694	4810	
==>->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4694	4810	
==>->name eq $role_name;
    foreach my $sub_role ($self->collect_all_roles) {      
        return 1 if $sub_role->name <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	556	682	
==>.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a no <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	556	682	
==>.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a no <==
3	/Users/nnunley/pugs/util/grokprims.pl	524	638	
==>or die "Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $ass <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1618	1818	
==>'$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										Ap <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	227	338	
==>ount - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	227	338	
==>ount - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	227	338	
==>ount - $msg"~$st }
}

sub is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.v <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18864	18980	
==>nd of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15285	15401	
==>nd of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4441	4571	
==>,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* nu <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20062	20177	
==>xp.p6analyze(pad)
    self[0] = exp
    pad["isarray"] = padarray
    .return (self)
.end
    
.namespace [ "PGE::Ex <==
3	/Users/nnunley/pugs/util/addauthors.pl	124	223	
==>/^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comitter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1313	1420	
==>ort sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1313	1420	
==>ort sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1313	1420	
==>ort sum() yet; 
#      - object numification is not supported yet

# TODO - finish support for unshift, push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4758	4875	
==>te($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4758	4875	
==>te($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4758	4875	
==>te($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10662	10793	
==>Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_ME <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10662	10793	
==>Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_ME <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10662	10793	
==>Array' );
                return 1 if $_[1] eq 'Hash' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_ME <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9123	9230	
==>, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6_undef()" }
NODE VBool ($value) { "p6_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5459	5544	
==>ss ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5668	5753	
==>ss ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5282	5411	
==>ray;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $siz <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3782	3911	
==>ray;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $siz <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	845	945	
==>ello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6::API::A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	801	898	
==>ello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6::API::A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	331	453	
==>r = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my % <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	331	453	
==>r = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my % <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6534	6652	
==>int_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $fh   = g <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2024	2142	
==>\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2024	2142	
==>\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18122	18224	
==>return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :method
    .param pmc pad
    .lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11308	11453	
==>ired++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11308	11453	
==>ired++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## & <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11308	11453	
==>ired++ if $spec->required;
                    next if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## & <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6096	6201	
==>ds Linux to run correctly.",
  ensure => sub { $^O eq "linux" };

step
  descr  => "Fetching GRUB from \"$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	54	158	
==>ct;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	51	149	
==>ct;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2827	2927	
==>SS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2827	2927	
==>SS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25450	25546	
==>Scripts that return a non-zero exit status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	365	486	
==>nction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	365	486	
==>nction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	365	486	
==>nction () {
        PIL2JS.catch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8199	8313	
==>ally my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8199	8313	
==>ally my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8199	8313	
==>ally my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub undef_of($) {
  return "new PIL2JS.Box(undefined)" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7781	7882	
==>d1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (le <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7781	7882	
==>d1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (le <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7781	7882	
==>d1 NAME

Perl6::MetaModel - The Perl 6 Object Meta Model

=head1 SYNOPSIS

  # more Macro-ish form (le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10135	10239	
==>-----------------------------------------  
    # collects all the roles, and applies them to the
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10135	10239	
==>-----------------------------------------  
    # collects all the roles, and applies them to the
    # i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10135	10239	
==>-----------------------------------------  
    # collects all the roles, and applies them to the
    # i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6824	6925	
==>ormalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6824	6925	
==>ormalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %us <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18966	19059	
==>e,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1, <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1249	1373	
==>onfig{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_con <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1598	1694	
==>E ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1598	1694	
==>E ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	601	716	
==>RGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	601	716	
==>RGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	601	716	
==>RGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1..$tests\n";
    print "ok $_ -  # skip P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6696	6902	
==>kie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_on <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6696	6902	
==>kie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_on <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17921	18030	
==>$S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Literal" ]

.sub "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5371	5532	
==>$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5371	5532	
==>$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5371	5532	
==>$:cell')->fetch ? 1 : 0 )
            },
            'undefine' => sub {
                # XXX - didn't undefine the value 
                # _('$.value' => undef <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21649	21746	
==>perly.  Also added tests for the new captures() method.

I changed the field 'class' to 'family' i <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	424	519	
==>IES

This node type keeps the C<source> property, and adds nothing else.

More specialised proce <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	424	519	
==>IES

This node type keeps the C<source> property, and adds nothing else.

More specialised proce <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8811	8952	
==>mmar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9646	9787	
==>mmar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7613	7703	
==>(lookahead_not(R)).
p5_condition_test(lookbehind(R))     --> p5_elemental(lookbehind(R)).
p <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3933	4116	
==>( qq[tar -f $my_tmp_dir/$control -C $my_tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File: <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2485	2579	
==>$other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    return ($ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2485	2579	
==>$other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    return ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	472	578	
==>s of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	472	578	
==>s of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:super <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	472	578	
==>s of Module is a subclass of Package is a subclass of Object >
::opaque_instance_attr($::Class  => '@:super <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9490	9582	
==>ire ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9490	9582	
==>ire ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9490	9582	
==>ire ".p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4361	4526	
==>NextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4361	4526	
==>NextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4361	4526	
==>NextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	997	1106	
==>) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	997	1106	
==>) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	997	1106	
==>) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1290	1412	
==>> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1290	1412	
==>> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rul <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9915	10019	
==>n("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	push(@param_info,$args);
    }
    my <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1052	1230	
==>lass} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    ret <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1052	1230	
==>lass} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6269	6391	
==>ip the leading dirs from the target so we don't get a silly
        ### deep dir structure
        %from = map { my $target <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	946	1191	
==>Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained referen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	946	1191	
==>Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained referen <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32700	32798	
==>nding node to the walking stack is that ending
nodes are all omitted from the tree because of the s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1867	1964	
==>a key, which will be specified in the options; check your 
cipher's documentation for details.

=i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1867	1964	
==>a key, which will be specified in the options; check your 
cipher's documentation for details.

=i <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6932	7028	
==>ntifier { \w+ }
token literal_int { \d+ }

rule simple_call { <identifier><ws><expr>; }
macro sta <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13588	13707	
==>rce's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17065	17184	
==>rce's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16427	16546	
==>rce's heading, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2747	2877	
==>DE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2747	2877	
==>DE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2747	2877	
==>DE') {
        local $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->supercl <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	12	104	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10 <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	12	104	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21597	21695	
==>@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB spli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21597	21695	
==>@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB spli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21597	21695	
==>@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7588	7713	
==>L::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7588	7713	
==>L::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7588	7713	
==>L::TCxt>; sub main { "slurpy" } }
{
  package PIL::TTailCall;
  
  our @ISA = qw<PIL::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCx <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10666	10793	
==>) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return : <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10666	10793	
==>) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return : <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1065	1171	
==>params;

use strict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16864	16985	
==>:Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16864	16985	
==>:Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16864	16985	
==>:Method'))) {
        return $self->add_method($1, $value);
    }  
    # XXX -
    # this reg-exp is probably not correct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26121	26246	
==>fy( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26121	26246	
==>fy( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::strin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26121	26246	
==>fy( $self->elems ) == ( scalar @start + scalar @end ) ) {
                        $str =  join( ' ', map { Perl6::Value::strin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16672	16783	
==>=~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe just c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13093	13204	
==>=~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe just c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1927	2075	
==>ng match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1707	1846	
==>ng match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1707	1846	
==>ng match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1995	2092	
==>lsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1995	2092	
==>lsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1995	2092	
==>lsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outside a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37487	37582	
==>Perl package in its positional parameter
$module_name (a string) and tries to load it using 'req <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37487	37582	
==>Perl package in its positional parameter
$module_name (a string) and tries to load it using 'req <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	324	417	
==>ugs::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	583	692	
==>sion=();
}

sub SessionCode(@variables) {
    my(@coded);
    for(@variables) {
        push(@coded,$_ ~ "=" ~ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2553	2652	
==>_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2553	2652	
==>_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { r <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	471	583	
==>nformation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    req <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	471	583	
==>nformation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    req <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	455	541	
==>. 
## ----------------------------------------------------------------------------

use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	191	390	
==>op::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	192	391	
==>op::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constan <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	863	991	
==>lk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self->{omit} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11029	11127	
==>6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11029	11127	
==>6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11029	11127	
==>6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make smoke-perl5.";
	un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11392	11485	
==>ted. This provides more predictable 
behavior to class consturction because it isolates the Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11392	11485	
==>ted. This provides more predictable 
behavior to class consturction because it isolates the Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11392	11485	
==>ted. This provides more predictable 
behavior to class consturction because it isolates the Ro <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3508	3671	
==>[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3755	3918	
==>[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3696	3786	
==>//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3696	3786	
==>//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3696	3786	
==>//DTD XHTML 1.0 Transitional//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	73	183	
==>L::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Mi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	73	183	
==>L::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Mi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	73	183	
==>L::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib "lib";

# Mi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13221	13324	
==>LTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { slee <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13221	13324	
==>LTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { slee <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13221	13324	
==>LTI SUB exit ($xx) { exit(p6_to_n($xx)); };
MULTI SUB readlink ($xx) {...};
MULTI SUB sleep ($xx) { slee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8483	8611	
==>."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8483	8611	
==>."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8483	8611	
==>."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for my $i ( @idx ) {
        #warn <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1576	1704	
==>uleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1587	1715	
==>uleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	724	852	
==>catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          thr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	724	852	
==>catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          thr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	724	852	
==>catch(err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          thr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5479	5580	
==>le

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitte <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29532	29631	
==>s core usage.

Figure a way to report test names in the failure summary.

Rework the test summary so <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5289	5388	
==>le
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9023	9149	
==>^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9023	9149	
==>^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9023	9149	
==>^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	222	473	
==>ile:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub ge <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	222	473	
==>ile:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub ge <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3225	3341	
==>e = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $warn = $@ ? " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2568	2691	
==>]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}-> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4267	4375	
==>matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3346	3437	
==>_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3346	3437	
==>_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3346	3437	
==>_attr($self => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9639	9757	
==>ax_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9639	9757	
==>ax_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_siz <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9639	9757	
==>ax_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2953	3054	
==>);
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2953	3054	
==>);
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2953	3054	
==>);
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hooks.len <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	1004	1127	
==>os = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: ft=p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	1004	1127	
==>os = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: ft=p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8494	8592	
==>.. still got the right return value from Foo singleton/class method');  
  
fails_ok { $Object->sin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11204	11346	
==>> $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11204	11346	
==>> $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11204	11346	
==>> $params,
                        '$.body' => $subdef);
    }
}
sub p6_declare_class {
    my($name)=@_;
    use Perl6::Value;
    my $cls = c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	42	153	
==>3
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	42	153	
==>3
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	42	153	
==>3
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signature can be stringified - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6043	6139	
==>->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6043	6139	
==>->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6043	6139	
==>->jsname, map { PIL::doublequote($_) } $self->name, $PIL::CUR_SUBNAME;
if(%s == undefined)
  PIL2 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10855	11005	
==>e     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10855	11005	
==>e     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channel <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6626	6726	
==>ass. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. Th <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6626	6726	
==>ass. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40825	40916	
==>during the first pass over the regex.

=item $parser->awarn(RPe_ERRMSG, ARGS...)

Unconditio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21017	21117	
==>$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21017	21117	
==>$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21017	21117	
==>$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3735	3855	
==>f = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3735	3855	
==>f = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3735	3855	
==>f = shift;

    return sprintf "var %s = undefined;", $self->jsname;
  }

  sub as_js1 {
    my $self = shift;
    my $na <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15896	16054	
==>)
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16175	16333	
==>)
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3889	3998	
==>ub get_smoker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { LoadFile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11728	11863	
==>self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11728	11863	
==>self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11728	11863	
==>self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code ) 
        },
        cstart => sub {
            my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14766	14939	
==>}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14766	14939	
==>}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14766	14939	
==>}}, ( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1017	1130	
==>y $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1017	1130	
==>y $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1017	1130	
==>y $name        = PIL::doublequote $self->name;
    $js .= "_26main_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1372	1480	
==>mify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1372	1480	
==>mify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1372	1480	
==>mify( $ary->is_infinite ) };
    warn "Trying to instantiate an infinite Array"
        if $ary->can('is_infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11362	11482	
==>h %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11362	11482	
==>h %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11362	11482	
==>h %$this;
    return unless defined $s;
    $this->{$s}[0];
}
sub nextkey {
    my ( $this, $key ) = @_;
    my $s = each <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	351	461	
==>d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2660	2764	
==>pport for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Cor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2660	2764	
==>pport for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Cor <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2660	2764	
==>pport for optional parameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Cor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5899	6071	
==>gth; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5899	6071	
==>gth; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5899	6071	
==>gth; i++) {
              var s = match[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34039	34152	
==>sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34039	34152	
==>sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34039	34152	
==>sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1329	1441	
==>alues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	349	461	
==>alues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8805	8917	
==>alues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3204	3329	
==>";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3204	3329	
==>";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3204	3329	
==>";
  }
}

method kv (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    my @res;
    for $self.keys {
        push @res, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2410	2519	
==>ing(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2410	2519	
==>ing(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2410	2519	
==>ing(a), b = String(b), $mapStr2Fill("|", "a", "b")",
  "infix:«~^»",   2, "S", "a = String(a), b = String(b) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12544	12641	
==>p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true}.

p6_named_characte <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4871	4964	
==>ule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5064	5157	
==>ule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	616	770	
==>q(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<+>') <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10417	10513	
==><$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$va <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10417	10513	
==><$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$va <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36558	36802	
==>('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$self:')
                  ->ge <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7013	7127	
==>ronment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7572	7686	
==>ronment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13954	14062	
==>= @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2152	2287	
==>h {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2152	2287	
==>h {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	191	307	
==>[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	155	270	
==>[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	243	358	
==>[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23152	23261	
==>s

An array reference to the 'open' nodes.

=item flags

An array reference of flag values.  When a scope is e <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5842	5942	
==>rns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5842	5942	
==>rns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10670	10778	
==>item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can a <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10670	10778	
==>item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can a <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19339	19445	
==>mbol it is we can't type it
my $no_such_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20173	20294	
==>off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16594	16715	
==>off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	114	207	
==>---------------------------------------
## now for some bootstrapping ....

## See http://arti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	114	207	
==>---------------------------------------
## now for some bootstrapping ....

## See http://arti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	114	207	
==>---------------------------------------
## now for some bootstrapping ....

## See http://arti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1406	1536	
==>tf (GV f, const PV format, const PV c) {
	return fprintf(f, format, c);
}

PV prel_cat (PV x, PV y) {
	char * target = (char *)GC_M <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3255	3356	
==>atches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3255	3356	
==>atches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8580	8678	
==>his might be to run a threaded Perl, for example.

You can also overload this method if you've buil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16772	16868	
==>ith the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16772	16868	
==>ith the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1014	1130	
==>)')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1014	1130	
==>)')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1014	1130	
==>)')(~$str);
    }/);

    $self;
}

sub eval {
    my($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7024	7172	
==>\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7012	7160	
==>\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3419	3520	
==>fault { fail "invalid trig function base: $base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3292	3398	
==>tr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3292	3398	
==>tr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3292	3398	
==>tr_name (@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29493	29632	
==>ROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29493	29632	
==>ROMPT'
            => q[Fournir nombre être inverser, ou appuyer sur]
               ~ q[ ENTER être arrêter.],
        'MYAPP_RESULT' => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	309	436	
==>ROMPT'
        => q[Fournir nombre être inverser, ou appuyer sur]
           ~ q[ ENTER être arrêter.],
    'MYAPP_RESULT' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2868	2965	
==>d} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2868	2965	
==>d} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2868	2965	
==>d} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3437	3536	
==>e_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'T <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	968	1065	
==>:Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of mess <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	968	1065	
==>:Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of mess <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	193	319	
==>od\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	193	319	
==>od\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5912	6061	
==>alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub greedy_star { 
    my $nod <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23553	23646	
==>are other differences.  Where other solutions take variables, they
seem to be positional (like <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23553	23646	
==>are other differences.  Where other solutions take variables, they
seem to be positional (like <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6109	6253	
==>kMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6109	6253	
==>kMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6109	6253	
==>kMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guard against malformed patt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	566	691	
==>s) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	566	691	
==>s) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	566	691	
==>s) { 
    # this just gathers all the 
    # attributes that were defined
    # for the instances.
    my %attrs;
    my Dispa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12554	12666	
==>X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6029	6141	
==>X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	120	208	
==>::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	120	208	
==>::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	120	208	
==>::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Num:: <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4896	5035	
==>ep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     reduce  safe   (Code, List)\
\\n   L <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	452	562	
==>statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	658	768	
==>statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11132	11263	
==>the closing delimiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5192	5318	
==>atch2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len): <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5192	5318	
==>atch2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len): <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	28050	28164	
==>":t map (\\x -> 10 + x)");

dies_ok { t($flatten_polymorphic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3337	3429	
==>thod does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3337	3429	
==>thod does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21267	21362	
==>o you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Instal <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21267	21362	
==>o you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Instal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5655	5757	
==>re( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5655	5757	
==>re( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinit <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5655	5757	
==>re( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinit <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2377	2490	
==>hod;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An ob <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2377	2490	
==>hod;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An ob <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7435	7542	
==>character class") if $cc;
    return $S->force_object(anyof_char => 'z') if $cc;
    return $S->object(eol = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4160	4272	
==>it so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4160	4272	
==>it so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4160	4272	
==>it so that you can refer to it
    #   > inside, but that name is not visible to binding.
    #
    #   Fi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1844	2014	
==>_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.* <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1844	2014	
==>_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.* <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5610	5746	
==>>() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5610	5746	
==>>() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16800	16980	
==>>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16800	16980	
==>>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16800	16980	
==>>   $array->elems->unboxed - 1 ) ); 
                return $ret;
            },
            'pick' => sub  { 
                my $array = shift; 
                my $n = $array->el <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1414	1546	
==>:DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alter <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1414	1546	
==>:DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alter <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	856	957	
==>erl5/^\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8873	8980	
==>$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@valu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15266	15360	
==>ned.

Methods that deal with dates/times always convert their value to system
time (seconds sin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15266	15360	
==>ned.

Methods that deal with dates/times always convert their value to system
time (seconds sin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10016	10133	
==>000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10016	10133	
==>000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $cod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10016	10133	
==>000));
	    my $code = "package $tmp; use $pkg; \\\%${tmp}::;";
	    print STDERR $code,"\n";
	    my $sym = eval $cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	943	1056	
==>R::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	943	1056	
==>R::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	943	1056	
==>R::magical_vars;
    my $jsvar       = PIL::name_mangle $self->name;
    my $name        = PIL::doublequote $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11905	12051	
==>t = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8187	8333	
==>t = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9021	9167	
==>t = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \"Error in macro eval:\n\", \$src if \$\@; \n" .
                "    die \$@ if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3127	3243	
==>ass->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3127	3243	
==>ass->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3127	3243	
==>ass->add_attribute($attribute_name => ::make_attribute($attribute_name));
            }
        }
        if ($body-> <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5263	5527	
==>(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5263	5527	
==>(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2379	2511	
==>nown.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    mu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	745	837	
==>t {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	745	837	
==>t {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19360	19462	
==>ch tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23912	24014	
==>ch tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

Th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22428	22530	
==>ch tuple is a row and each
relation/tuple attribute is a column, but it is not the same as a table.

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	621	723	
==>er::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	621	723	
==>er::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	621	723	
==>er::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MULTI SUB|MA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1608	1729	
==>,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1608	1729	
==>,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svr <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1844	1965	
==>,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svr <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1627	1785	
==>urn parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Expected <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12232	12338	
==>$2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($lin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12232	12338	
==>$2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2090	2188	
==>y $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2090	2188	
==>y $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2090	2188	
==>y $argname = "ret" . $possibly_ccify_argid++;
      $unwrapped->{CC} = PIL::Cont->new(argname => $a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28197	28322	
==>atch;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28476	28601	
==>atch;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9126	9300	
==>rray' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9126	9300	
==>rray' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9126	9300	
==>rray' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - 1 ) {
                            my $pair = $param[0]->fetch( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8300	8461	
==>=> '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12249	12373	
==>=> '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12249	12373	
==>=> '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, 'Pugs::Compiler::Regex') ) {
        #print "compiling <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	781	906	
==>\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Runtime::Perl6;\n" . 
        "use strict;\n" . 
        "no warnings 'void';\ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11854	11962	
==>$line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $lin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11854	11962	
==>$line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $lin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	104	212	
==>eop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	104	212	
==>eop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	157	259	
==>class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Ru <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40789	40883	
==>ing informed any time you create a
modified version of Locale::KeyedText that you are willing t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40789	40883	
==>ing informed any time you create a
modified version of Locale::KeyedText that you are willing t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1857	1991	
==>@{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1857	1991	
==>@{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] & <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	1622	1754	
==>>{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YAML::Dump(@_) }
sub ::YY { require Carp; Carp::confe <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8463	8604	
==>s{details}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs addition
        # This addition ana <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	599	726	
==>if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	599	726	
==>if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5923	6033	
==>ound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5923	6033	
==>ound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5923	6033	
==>ound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::stringify($sel <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12766	12874	
==>($x);
}

my %as_str_handlers =
    ( undef => sub { Carp::carp("p6_as_str called on undef"); "" },
      nume <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3873	4153	
==>$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->new(
        Se <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	649	747	
==>insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Curren <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	649	747	
==>insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1272	1377	
==>(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1272	1377	
==>(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1272	1377	
==>(function (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18168	18270	
==>m_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18168	18270	
==>m_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18168	18270	
==>m_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$xx1) {...};
MULTI SUB infix:<+^> ($xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4413	4524	
==>) {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4413	4524	
==>) {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4413	4524	
==>) {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {...};
MU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3050	3208	
==>fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3050	3208	
==>fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3050	3208	
==>fetch( @_ );
    }
    if ( @_ > 1 ) {
           # && (
           # Perl6::Value::p6v_isa( $_[0]{v}, 'Array' ) || 
           # Perl6::Value::p6v_isa( $_[0]{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	871	1002	
==>e
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	871	1002	
==>e
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	871	1002	
==>e
    sub ::opaque_instance_id { 
        $_[0]->[0];
    }
    sub ::opaque_instance_class {  
        ${$_[0]->[1]};
    }
    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4652	4792	
==>ast if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4652	4792	
==>ast if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4652	4792	
==>ast if !$m; # XXX - should be caught by  or last;
        my $m0 = $m[0] // $m;
        my $at = $pos + $m0.from;
        $a.push($m0) if $at <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1678	1781	
==>Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1678	1781	
==>Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7389	7479	
==>symbol->new('add_method'), $_add_method));
}

=pod

method has_method (opaque $self: symbol <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9702	9809	
==>$version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9702	9809	
==>$version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30127	30226	
==>sh.

Fix stats display when there's an overrun.

Fix so perls with spaces in the filename work.

Kee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1978	2091	
==>rg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1978	2091	
==>rg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Comma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1978	2091	
==>rg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Comma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1961	2083	
==>$self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1961	2083	
==>$self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1961	2083	
==>$self = shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ( <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3901	4005	
==>ff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Has <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3901	4005	
==>ff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Has <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19367	19467	
==>$status = 0)
{
    Pugs::Internals::exit($status);
}


 multi Control::Basic::nothing ()


 multi Con <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	253	375	
==>$pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not exist\n" unles <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10516	10611	
==>for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, which
m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10516	10611	
==>for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, which
m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27021	27121	
==>he original's attributes to what C<project> would
return given the same C<$attrs>.  This method has a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31573	31673	
==>he original's attributes to what C<project> would
return given the same C<$attrs>.  This method has a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30629	30729	
==>he original's attributes to what C<project> would
return given the same C<$attrs>.  This method has a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2432	2533	
==>ncee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.Name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2432	2533	
==>ncee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.Name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2432	2533	
==>ncee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.Name <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	502	648	
==>enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	502	648	
==>enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	141	242	
==>::TestPlan' => class 'TestBuilder::TestPlan' => {
    is => [ $::Object ],
    attributes => [ '$:expe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	278	385	
==>RHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	278	385	
==>RHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	278	385	
==>RHS => $self->{pRHS}->fixup,
  } => "PIL::PBind";
}

sub as_js {
  my $self = shift;
  no warnings "recursio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4441	4579	
==>tered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4441	4579	
==>tered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4441	4579	
==>tered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; my $m;
       while 1 {
        my $s = <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1349	1577	
==>ture from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12761	12855	
==>rete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12761	12855	
==>rete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6958	7048	
==>-----------------------------------------------------

# stub this for the moment ...
$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6958	7048	
==>-----------------------------------------------------

# stub this for the moment ...
$::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6958	7048	
==>-----------------------------------------------------

# stub this for the moment ...
$::Cl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1480	1580	
==>nostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_num <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1480	1580	
==>nostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1560	1660	
==>nostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_test_num <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5514	5695	
==>Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8991	9172	
==>Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6247	6424	
==>~ s/$_/$op->{$_}/g for qw( name2 name );
                    $t =~ s/\{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%prec $prec\ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10127	10241	
==>+= 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	841	940	
==>(*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	841	940	
==>(*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_p <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2934	3052	
==>ieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2934	3052	
==>ieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    " <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1794	1889	
==>s "Attribute (" . $name->to_str->to_native . ") does not exist";
    return $self->[2]->fetch($n <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8189	8290	
==>f (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8247	8348	
==>f (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1243	1362	
==>prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1243	1362	
==>prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-bas <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1243	1362	
==>prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-bas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10888	10986	
==>or values) of the last of the header fields is returned.
If no such field exists C<undef> will be r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10888	10986	
==>or values) of the last of the header fields is returned.
If no such field exists C<undef> will be r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14312	14407	
==>sses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14312	14407	
==>sses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14312	14407	
==>sses'));
::Class.meta.add_attribute('%:private_methods'  => ::make_attribute('%:private_methods' <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8959	9075	
==>traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any h <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8959	9075	
==>traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any h <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7547	7654	
==>ign($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = $Result3 % $n2_16;
    return <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3431	3562	
==>ast LINKING unless -d $my_bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Alt <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1562	1650	
==>e
shamelessly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

= <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1562	1650	
==>e
shamelessly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2521	2620	
==>unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2521	2620	
==>unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2521	2620	
==>unless $class_name;
    return $self->class->isa($class_name);    
}));

$::Object->add_method('can' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1760	1873	
==>rgs;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity || <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1760	1873	
==>rgs;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity || <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1760	1873	
==>rgs;
  my $arity  = $code.arity;
  # die "Can't use 0-ary subroutine as \"for\" body!" if $arity == 0;
  $arity || <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1689	1795	
==>}
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1689	1795	
==>}
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8448	8546	
==>hod { 
    %:methods{$label};
}


(method get_method ((opaque $self:) (symbol $label)) returns meth <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4365	4558	
==>ush(
                $closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env-> <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2791	2890	
==>ethod vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2791	2890	
==>ethod vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5708	5821	
==>::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5708	5821	
==>::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Da <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6298	6411	
==>::_alias_a_to_b($ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	329	433	
==>al would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	329	433	
==>al would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	329	433	
==>al would be nicer... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2668	2852	
==>uperclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2873	3057	
==>uperclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4010	4152	
==>y > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4010	4152	
==>y > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4010	4152	
==>y > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @arra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16962	17054	
==>icates what additional
encoding mechanism has been applied to the resource.

=item $h.content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16962	17054	
==>icates what additional
encoding mechanism has been applied to the resource.

=item $h.content <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12426	12521	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code sn <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12484	12579	
==>cted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code sn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5016	5122	
==>n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 4 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5016	5122	
==>n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 4 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5016	5122	
==>n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');die \$\@ if \$\@ eq \"timeout\\n\";warn '#' x 4 <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	707	818	
==>.3f binding, %.3f execution)\n", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

print "C cod <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10289	10383	
==>) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $p <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10289	10383	
==>) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9508	9681	
==>sa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9508	9681	
==>sa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9508	9681	
==>sa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $param[0];
                        $self->store( $pair->key, $pair->value <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1948	2086	
==>.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1948	2086	
==>.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1948	2086	
==>.exists(key)) {
            hash.add_pair(new PIL2JS.Pair(
              new PIL2JS.Box.ReadOnly(key),
              new PIL2JS.Box(undefin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8231	8387	
==>sult',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8231	8387	
==>sult',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ ' <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1856	1966	
==>ed default.

All of the optional parameters should be supplied by name.

Note that the above code is not robust <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1173	1321	
==>f we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1173	1321	
==>f we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2113	2207	
==>me $attr_name) {...}

proto method attr_name_exists of Bool (Relation::AttrName $attr_name) {.. <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8535	8669	
==>(MatchTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item j <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20410	20536	
==>eturn { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20689	20815	
==>eturn { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1944	2051	
==>ayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1944	2051	
==>ayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler: <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6402	6548	
==>Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Ple <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13064	13151	
==>essage") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale::Key <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13064	13151	
==>essage") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale::Key <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17355	17453	
==>ectly, you can only call it through an object that
inherits from that class.

There are no longer I <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33946	34041	
==>ckup choices are,
in order, if preferred ones aren't supported by a program or its libraries.
Wh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33946	34041	
==>ckup choices are,
in order, if preferred ones aren't supported by a program or its libraries.
Wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1317	1418	
==>put=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown option <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1317	1418	
==>put=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown option <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1317	1418	
==>put=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11236	11455	
==>rray->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11236	11455	
==>rray->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11236	11455	
==>rray->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} = 'Array';
                            return $cell;
                        } } ] ],
        DESTROY = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5973	6090	
==>.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5973	6090	
==>.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5973	6090	
==>.end;
  }, 0..$maxlen-1;
}

method reverse(*@things is copy:) {
  # Hack, should of course use context info, but that' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3810	3929	
==>f = shift;
      if (ref $self->{data}) {
	$self->{data}->visual;
      }
      else {
	# The actual bug is in Handlers. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11531	11626	
==>ecurrence )`

Returns only the elements in this recurrence that are not in the given recurrence. <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11531	11626	
==>ecurrence )`

Returns only the elements in this recurrence that are not in the given recurrence. <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9571	9703	
==>flush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      d <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9571	9703	
==>flush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3515	3613	
==>wing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C< <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3515	3613	
==>wing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C< <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30045	30138	
==>tribute of a Message object, and each
hash value contains the user-readable message text assoc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30045	30138	
==>tribute of a Message object, and each
hash value contains the user-readable message text assoc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3515	3649	
==>bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3708	3842	
==>bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gram <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	170	297	
==>lass) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "}\n";
    return $ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	5090	5184	
==>eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	5090	5184	
==>eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	5090	5184	
==>eval { jsbin_hack(compile_perl6_to_standalone_js("-e", shift)) };
  print $OUT $@ and return if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4679	4811	
==>n eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4667	4799	
==>n eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1830	1950	
==>> our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        return $self->($label, @_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7285	7404	
==>g)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7285	7404	
==>g)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7285	7404	
==>g)
        : "undefined";
  }
}

{ package PIL::TCxtVoid;   our @ISA = qw<PIL::TCxt>; sub main { "void" } }
{ package PI <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9786	9901	
==>$set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9786	9901	
==>$set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10491	10593	
==>erpreter->new;
my $code = join "" => $i->parse($source), '';

warn "\n" . $code . "\n";

eval $code;
wa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	369	529	
==>Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $path    = $struct->{package};
    
    ### create a buildroot
    my $build <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5827	5933	
==>span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5827	5933	
==>span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4455	4545	
==>ns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4455	4545	
==>ns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6652	6742	
==>ns
a Test::Builder::Test::TODO instance, passing on the C<$description>, 
C<$reason>, and C <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3013	3118	
==>ag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'fa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3013	3118	
==>ag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'fa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3093	3198	
==>ag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_test( 'fa <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4172	4265	
==>il::blessed($self)){
		return 1 if $self->{class_that_should_be}->isa($class);
	}
	 
	$self->S <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15500	15591	
==>es::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15500	15591	
==>es::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9965	10062	
==>y()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets numeri <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9965	10062	
==>y()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets numeri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	109	217	
==>:Runtime::Match;
use Pugs::Compiler::Token;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<.. <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2449	2555	
==>if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $se <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2449	2555	
==>if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4674	4767	
==>n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4674	4767	
==>n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4674	4767	
==>n');\n".$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21122	21302	
==>OT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21122	21302	
==>OT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21122	21302	
==>OT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3961	4053	
==>ulti sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3961	4053	
==>ulti sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ( <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2240	2330	
==>complex of complex64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14262	14357	
==>'@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14262	14357	
==>'@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14262	14357	
==>'@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3473	3592	
==>llo from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3473	3592	
==>llo from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3473	3592	
==>llo from already eigened : $self";
        ::bind_method_to_class($method, $self);        
        $self->class->add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	833	943	
==>blems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	833	943	
==>blems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	833	943	
==>blems when
          // mixed with document.write. See tests/buffer.html.
          //node.appendChild(document <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5042	5161	
==>ms: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5042	5161	
==>ms: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5042	5161	
==>ms: @a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5956	6078	
==>_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5956	6078	
==>_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5956	6078	
==>_[0]{'pSubType'} eq 'SubMethod') {
        my $name = $_[0]{'pSubName'};
        my $class = $name;
        $name =~ s/.*:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	134	541	
==>.);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	134	541	
==>.);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Ro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6395	6566	
==>pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { return $/{'Pugs::Grammar::Te <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1489	1587	
==>g a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our cla <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1489	1587	
==>g a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14428	14518	
==>:Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14428	14518	
==>:Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14428	14518	
==>:Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	265	364	
==>::Grammar::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cmd,"\n";
    my $out = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15504	15596	
==>encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char h <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15504	15596	
==>encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19257	19358	
==>ntially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23809	23910	
==>ntially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22325	22426	
==>ntially a set of mappings, or a set of logical tuples; a
picture of one can look like a table, where e <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17079	17182	
==>is polymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applied t <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1878	1977	
==>m.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit o <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1878	1977	
==>m.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1516	1617	
==>unction (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1516	1617	
==>unction (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1516	1617	
==>unction (str) { return str.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inlin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14000	14097	
==>efore => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14000	14097	
==>efore => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4400	4512	
==>' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4400	4512	
==>' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4400	4512	
==>' => method () {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5820	5922	
==>Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5820	5922	
==>Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5820	5922	
==>Runtime->new;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3245	3361	
==>('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3245	3361	
==>('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3245	3361	
==>('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => ' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2474	2572	
==>p:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2474	2572	
==>p:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1711	1832	
==>:$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the mem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5188	5309	
==>:$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the mem <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4118	4239	
==>:$body? = set()) {

    for $body.values -> $tuple {
        die "The keys of a member of arg :$body? do not match the mem <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21467	21557	
==>exp::Parser::ifthen::ISA, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3213	3298	
==>e 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3213	3298	
==>e 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15981	16103	
==>I SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15981	16103	
==>I SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB o <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15981	16103	
==>I SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB o <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1044	1161	
==>et = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1044	1161	
==>et = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1044	1161	
==>et = $cond(); 1) { $body() }
  $ret;
}

sub statement_control:<until>(Code $cond, Code $body) is primitive {
  my $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	135	247	
==>(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	135	247	
==>(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	135	247	
==>(function (args) {
    var array = args[1].FETCH(), cc = args.pop();
    var ret   = array.shift();
    cc(ret == <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4046	4147	
==>::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4046	4147	
==>::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4046	4147	
==>::Package->superclasses([ $::Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute(' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8421	8580	
==>|| 
         $n->{op1}{stmt} eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	527	625	
==>tre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns S <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2055	2153	
==>tre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns S <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13181	13285	
==>summary>
                <span class="tests_total"><tmpl_var name=total> test cases</span>:<br />
		<span <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11602	11697	
==>cept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11602	11697	
==>cept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3137	3241	
==>nv->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3137	3241	
==>nv->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3137	3241	
==>nv->get('current_class')) {
        unless (@{$current_class->superclasses}) {
            $current_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2069	2177	
==>of PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2069	2177	
==>of PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2069	2177	
==>of PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Constant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(fa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6203	6379	
==>mber
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11496	11589	
==>r $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11554	11647	
==>r $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18366	18570	
==>no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18366	18570	
==>no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18366	18570	
==>no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down here ...

{
    package class;
    
    # this package represents the "m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3642	3785	
==>iscard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3642	3785	
==>iscard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3642	3785	
==>iscard_whitespace($i);
    } while $i->lookAheadToken eq 'is';
    
    warn "got the list of supers :: [" . (join "], [" => @supers) . "]" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2252	2356	
==>rl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2252	2356	
==>rl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2252	2356	
==>rl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't compile to PIL!\n" if n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4500	4605	
==>UTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4500	4605	
==>UTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4580	4685	
==>UTHOR

based on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	341	440	
==>q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" ha <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	341	440	
==>q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13703	13813	
==>d_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13703	13813	
==>d_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13703	13813	
==>d_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispatch <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13835	13968	
==>sp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13835	13968	
==>sp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6304	6463	
==>\s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl ver <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5812	5971	
==>\s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28866	28965	
==>for
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle names that have no "p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2725	2834	
==>/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2725	2834	
==>/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4494	4605	
==>rray, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4494	4605	
==>rray, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4494	4605	
==>rray, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &i <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1467	1569	
==>);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is expor <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1525	1627	
==>);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is expor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	855	957	
==>estBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPlan' => {
    is => [ $::Object ],    
    m <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	601	723	
==>};
usage();
exit 1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4870	4967	
==>1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4870	4967	
==>1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7486	7604	
==>ment );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7486	7604	
==>ment );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7486	7604	
==>ment );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@x <==
3	/Users/nnunley/pugs/util/claim_drift.pl	926	1080	
==>2abs($_[0])) };

    $clean->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18633	18733	
==>ese blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines bef <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18633	18733	
==>ese blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines bef <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7980	8077	
==>CKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34807	34900	
==>in the invocant Relation and that match any tuples of C<$other> along
their common attributes. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39357	39450	
==>in the invocant Relation and that match any tuples of C<$other> along
their common attributes. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9371	9487	
==>de::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9359	9475	
==>de::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	424	529	
==>an_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3455	3565	
==>ile =~ s/([\$])/\\$1/gm;
#    # latex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighti <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7142	7236	
==>.

=item I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7142	7236	
==>.

=item I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3636	3727	
==>ator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3636	3727	
==>ator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operato <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3636	3727	
==>ator definitions lastly because they'll override *our*
# operators.
use Prelude::JS::Operato <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	831	927	
==>D__

=pod

=head1 NAME

Blondie::Reducer - generic reducing base class for fmapping nodes.

=head <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2500	2601	
==>. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2500	2601	
==>. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	805	913	
==>LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	805	913	
==>LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	805	913	
==>LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11872	11997	
==>dx];
      my $s = "$m";
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2542	2665	
==>rc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # sm <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2542	2665	
==>rc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # sm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1774	1882	
==>w(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1774	1882	
==>w(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3223	3327	
==>$from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	873	964	
==>e for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en versi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	873	964	
==>e for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en versi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10412	10542	
==>proc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10412	10542	
==>proc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1629	1727	
==>e; # deletes pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash structure of $self, an <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2047	2155	
==>: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2047	2155	
==>: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2451	2546	
==>Could not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smoke_upload) {
  i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6226	6331	
==>e additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B< <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6226	6331	
==>e additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8423	8528	
==>e additional features.

=item B<Test::Builder::Test::TODO>

This overrides two methods.

=over 4

=item B< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43196	43435	
==>ew(
                              symbol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'm <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3905	4002	
==>l packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Ye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3905	4002	
==>l packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Ye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15392	15509	
==>ule Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15392	15509	
==>ule Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	343	438	
==>est => Blondie::Backend::C::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4806	5003	
==>name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4806	5003	
==>name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_sin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4806	5003	
==>name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_sin <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3059	3168	
==>OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{syncat} = PGE_OPTABL <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8785	8878	
==>xisting Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8785	8878	
==>xisting Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1528	1642	
==>XX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1528	1642	
==>XX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - ju <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1528	1642	
==>XX - in Code->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - ju <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23673	23765	
==>est Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23673	23765	
==>est Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with R <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1728	1818	
==>or::binary: level($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { jo <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2257	2405	
==>$.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2257	2405	
==>$.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1922	2032	
==>ternatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBFILE_OF_META  ];
$co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9659	9766	
==>---------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9659	9766	
==>---------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9659	9766	
==>---------------------      
    method collect_all_roles () { "<implemented>" }  

    # ------------------- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2586	2695	
==>*}
rule ws_required {<?ws_input>+}
rule ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9726	9833	
==>ll( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13203	13310	
==>ll( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12475	12582	
==>ll( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficient to d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4693	4785	
==>stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4693	4785	
==>stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4693	4785	
==>stringify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    #$self->{a <==
3	/Users/nnunley/pugs/util/claim_drift.pl	286	388	
==>ky, but until
# we do, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($F <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21866	21956	
==>he file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21866	21956	
==>he file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1960	2056	
==>as Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1960	2056	
==>as Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2218	2328	
==>DO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2218	2328	
==>DO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2218	2328	
==>DO - tied arrays should use the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8173	8291	
==>kage PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8173	8291	
==>kage PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8173	8291	
==>kage PIL::PThunk;

  sub fixup {
    my $self = shift;

    die unless keys %$self == 1;

    return bless { (%$self)[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10021	10118	
==>App;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10021	10118	
==>App;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10021	10118	
==>App;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7963	8165	
==>by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @fo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8427	8629	
==>by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @fo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	173	273	
==>", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:config no_auto_version);

m <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9349	9453	
==>open(TEST, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print " <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	580	680	
==>closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	580	680	
==>closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11523	11620	
==>more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant tho <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11523	11620	
==>more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant tho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13735	13886	
==>rams;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13735	13886	
==>rams;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13735	13886	
==>rams;        
            },
        },
    }
};

class1 'Sub'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9548	9664	
==>walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = $self->{rx}->object($self->type);
      $br->omit(1 <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	528	623	
==>link($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) retur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	528	623	
==>link($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) retur <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19162	19264	
==>s) = @_;

    die "FAILED--Further testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21954	22049	
==>ead1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating obj <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21954	22049	
==>ead1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17786	17888	
==>...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17786	17888	
==>...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17786	17888	
==>...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:< <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2946	3177	
==>ts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2946	3177	
==>ts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37940	38046	
==>uple of each other source relation, then where each member of a
tuple pair has attribute names in common, e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42489	42595	
==>uple of each other source relation, then where each member of a
tuple pair has attribute names in common, e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42139	42245	
==>uple of each other source relation, then where each member of a
tuple pair has attribute names in common, e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1639	1829	
==>$a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1639	1829	
==>$a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1639	1829	
==>$a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # relation to its lexical p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5860	6044	
==>m_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5860	6044	
==>m_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5860	6044	
==>m_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20473	20570	
==>ad.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20473	20570	
==>ad.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C< <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18085	18176	
==>n,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23357	23471	
==>Identifier>
    | <FormalParameterList> <','> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <Sou <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1406	1503	
==>d case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1406	1503	
==>d case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35210	35306	
==>-method is a generic binary relational operator that is identical
to C<join> except that this met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39760	39856	
==>-method is a generic binary relational operator that is identical
to C<join> except that this met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39320	39416	
==>-method is a generic binary relational operator that is identical
to C<join> except that this met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1565	1672	
==>sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1565	1672	
==>sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && bles <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1565	1672	
==>sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $instance && bles <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8063	8157	
==>ta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8063	8157	
==>ta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22650	22741	
==>,to_lower(C1x)), code_type(C2,to_lower(C2x)),
   C1x =< Cx, Cx =< C2x, !.
charset_member(_,C <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2780	2908	
==>le (scalar @file) {
			$chr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $co <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13265	13416	
==>pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub { <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5087	5214	
==>rter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5087	5214	
==>rter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5746	5870	
==>_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5746	5870	
==>_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETC <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6336	6460	
==>_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETC <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1571	1702	
==>$fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event = $events->[$i];
            if($a <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7211	7302	
==>ead(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7211	7302	
==>ead(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	765	870	
==>, and we'll do it later.

=cut
###*** Value types - numeric

macro Clutter::int_size($n) {
  'subset  int' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20147	20241	
==>l croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as author <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20147	20241	
==>l croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as author <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3096	3194	
==>ge: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3096	3194	
==>ge: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --ru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3096	3194	
==>ge: $0 [options] regular_pugs_options

Available options are:
  --js=/path/to/js/interpreter
  --ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3533	3633	
==>elf->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3533	3633	
==>elf->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3533	3633	
==>elf->{pInv} and (not defined $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4729	4823	
==>lX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4729	4823	
==>lX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4729	4823	
==>lX::PStmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStm <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2592	2762	
==>= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2592	2762	
==>= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	55	143	
==>ore tests => 13;

## -------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7307	7495	
==>name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7307	7495	
==>name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7307	7495	
==>name => ::make_private_method(
                        $body->{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role- <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	622	722	
==>>

The filehandle to which to write all normal output (test results and
descriptions).

=item B<$.err <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	622	722	
==>>

The filehandle to which to write all normal output (test results and
descriptions).

=item B<$.err <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1178	1278	
==>>

The filehandle to which to write all normal output (test results and
descriptions).

=item B<$.err <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	594	703	
==>er.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	594	703	
==>er.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._expo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	594	703	
==>er.Roman <to_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._expo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4606	4722	
==>_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimize <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4448	4560	
==>_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimize <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2722	2837	
==>d ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unle <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2722	2837	
==>d ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unle <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11665	11779	
==>me undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_") {
          mkdir "$initrd_mnt/lib6/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17137	17304	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17137	17304	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17137	17304	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = $self->unboxed;
                # warn "AUTOLOAD " <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2300	2461	
==>t {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }
 type K <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12271	12375	
==>ethod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12271	12375	
==>ethod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12271	12375	
==>ethod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
}));

$::C <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	4232	4324	
==>r your home. You can use the
skeleton in util/smoker-example. Alternatively, say "--anonymous <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4465	4556	
==>hile C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<c <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4465	4556	
==>hile C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18723	18843	
==>$S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15144	15264	
==>$S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30482	30602	
==>$S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	346	437	
==>05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	346	437	
==>05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	346	437	
==>05;
use Getopt::Long qw(:config no_auto_version);

my (@eval, $repl,$warn,$timeout,@inc_dirs <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	531	653	
==>? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x->$try{
        $max =    $max > $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2211	2336	
==>back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	299	388	
==>Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot13, th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	299	388	
==>Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot13, th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4993	5100	
==>ss->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4993	5100	
==>ss->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4993	5100	
==>ss->add_singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$me <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	709	808	
==>se class for:

    JIB::Package::Source
    JIB::Package::Binary
    JIB::Package::Installed

=head1 <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37312	37403	
==>method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41861	41952	
==>method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	275	373	
==>p://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	275	373	
==>p://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	275	373	
==>p://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Builder.html.
      // --iblech
      // <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2459	2650	
==>RRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2459	2650	
==>RRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5089	5193	
==>eturn sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5089	5193	
==>eturn sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5089	5193	
==>eturn sprintf "PIL2JS.call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibl <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3134	3260	
==>sed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3134	3260	
==>sed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2863	3004	
==>] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2768	2906	
==>] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2664	2782	
==>d($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2664	2782	
==>d($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2664	2782	
==>d($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} elsif($key eq 'instance') {
	    for my $k (keys %$val) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1058	1163	
==>a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1058	1163	
==>a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1058	1163	
==>a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a)  > Number(b)",
  "infix:«<=»",   2, "N", "Numbe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	26	139	
==>e-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $ <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	26	139	
==>e-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $ <==
3	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	162	290	
==>ing--;
    }
    say 'Thread 1 finished: $a is >5 and reset to -1000';
}

my $thr2 = async {
    say "Thread 2 started";
    atom <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2154	2272	
==>y.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2154	2272	
==>y.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (fo <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	374	474	
==>d with a very early version of Pugs (6.0.10)
# and with very little knowledge of Perl 6. These five e <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7999	8094	
==>reached, the next event fired will be
any text which follows the item.

=item I<end_element ('it <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7999	8094	
==>reached, the next event fired will be
any text which follows the item.

=item I<end_element ('it <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6008	6131	
==>ial_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5996	6119	
==>ial_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7435	7530	
==>=pod

method has_method (opaque $self: symbol $label) returns bit { 
    %:methods.exists($label <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	418	536	
==>od;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	540	646	
==>od;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1364	1468	
==>=> $entry_html );
}

sub template ($filename, *%params) {
    my $template = slurp $filename;
    $templa <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8946	9045	
==>rce_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9004	9103	
==>rce_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4277	4366	
==>The Pugs homepage at L<http://pugscode.org/>.

The Parrot homepage at L<http://www.parrotc <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7722	7901	
==>f $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die " <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7722	7901	
==>f $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die " <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	797	917	
==>header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content_type;
        $header <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3363	3479	
==>$file (@{ $Config{precompile} }) {
        my $module; # guess what to put in %*INC
        open my $ifh, $file or di <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	666	766	
==>+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	666	766	
==>+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) = <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2511	2634	
==>=> $libs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{prefix},
        SITEPR <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9568	9686	
==>e as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9568	9686	
==>e as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21392	21557	
==>ls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $travers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21392	21557	
==>ls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $travers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21392	21557	
==>ls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        my @classes;
        my %seen;
        my $traversal;
        $travers <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5725	5840	
==>ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
us <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5725	5840	
==>ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
us <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6315	6430	
==>ref, $var, !$self->is_writable);
    }
    else {
	die 'not yet';
    }
    return;
}

package Data::Bind::Array;
us <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2284	2475	
==>time::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2284	2475	
==>time::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $st <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23102	23201	
==>re always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.ra <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23102	23201	
==>re always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	988	1136	
==>LF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	988	1136	
==>LF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	988	1136	
==>LF->val_array() if @_ < 2;
                $::SELF->val_array()->[$idx];
            },
            set_as_failed => sub {
                $::SELF->v <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1771	1882	
==>= bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13613	13708	
==>spec, and the
names are returned in the recommended "Good Practice" order.

In scalar context re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13613	13708	
==>spec, and the
names are returned in the recommended "Good Practice" order.

In scalar context re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	826	930	
==><", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	826	930	
==><", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	826	930	
==><", $ARGV[2] or die "Couldn't open \"$ARGV[2]\": $!\n";
  my $src = <$fh>;

  # Don't load Test.pm, as we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2317	2413	
==>o_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2317	2413	
==>o_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2317	2413	
==>o_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exit if $precompile_only;

my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6875	6998	
==>]
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6875	6998	
==>]
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6875	6998	
==>]
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($self->{t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12986	13113	
==>},
        todo   => $tres->{todo},
	skipped   => $tres->{skip},
        failed => ($tres->{seen} || 0) -
              ($tres-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8522	8610	
==>R.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_ru <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8580	8668	
==>R.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	711	832	
==>ursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	711	832	
==>ursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	711	832	
==>ursion;
    my @subnodes = PIL::Run::EvalX::subnodes_of($self);
    my $code = "";
    while (@subnodes) {
        my $n = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5745	5884	
==>ames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('new') };
        unless ( $new ) {
            warn $@ if <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2039	2146	
==>th[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

su <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2039	2146	
==>th[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

su <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4788	4885	
==>ription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role conta <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4788	4885	
==>ription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role conta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6985	7082	
==>ription.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role conta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1056	1194	
==>@{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No paramete <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1056	1194	
==>@{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No paramete <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1056	1194	
==>@{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub {
            confess "No paramete <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11484	11644	
==>method BUILD ( $.reason ) {}
  
      method status returns Hash ( $self: )
      {
          # XXX - This wants to be $self.SUPER::status();
          my $statu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1928	2078	
==>method BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $statu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1928	2078	
==>method BUILD ( $.reason ) {}

    method status returns Hash ( $self: )
    {
        # XXX - This wants to be $self.SUPER::status();
        my $statu <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5792	5896	
==>M_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5274	5378	
==>M_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	132	226	
==>RSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	132	226	
==>RSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4606	4737	
==>oxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4606	4737	
==>oxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4606	4737	
==>oxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.unboxed') ) ) },
            'bit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	736	848	
==>num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# met <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1326	1438	
==>num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9828	9928	
==>ethod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9828	9928	
==>ethod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9828	9928	
==>ethod(sub {
    my @MRO = $::SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(@MRO);
});

: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5018	5138	
==>$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5018	5138	
==>$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5018	5138	
==>$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $line);
  }
}

sub run_js_on_jssm {
  my $js = shift;
  diag $cfg{j <==
3	/Users/nnunley/pugs/util/grokprims.pl	1779	1877	
==>/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associativ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16889	16983	
==>nts of their application in Rosetta D (as
either named modules or anonymous routines) and write <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16889	16983	
==>nts of their application in Rosetta D (as
either named modules or anonymous routines) and write <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	108	211	
==>Config;
use File::Spec;
use File::Basename;
use IPC::Open3 'open3';
use Carp;

sub WritePugs {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4120	4220	
==>PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4120	4220	
==>PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31178	31280	
==>es may also be set:

=over 4

=item branch

Whether this object has branches (like C<|>).

=item family <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	607	703	
==>ir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# and <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	607	703	
==>ir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# and <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11814	11913	
==>pha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasynt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11808	11907	
==>pha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasynt <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	266	373	
==>fined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pushes a given $callback to @: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20283	20379	
==>rs to study.  As a result, while it performs correctly
and reliably, it also performs quite slowl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20283	20379	
==>rs to study.  As a result, while it performs correctly
and reliably, it also performs quite slowl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2536	2637	
==>[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2536	2637	
==>[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2536	2637	
==>[1..50],@b[1..100])

# TODO - check specification of Array, Hash, Pair stringification

# TODO - sum() <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13561	13671	
==>ash for this
    # in the future the compiler might allow adding globals
    # right now this is a non issue si <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17249	17346	
==>$S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13670	13767	
==>$S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3531	3631	
==>efine_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5847	5968	
==>$fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5847	5968	
==>$fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5847	5968	
==>$fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 ha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42842	43019	
==>ub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # met <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	306	419	
==>span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	306	419	
==>span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    m <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	1367	1483	
==>he Synopses checked out; try

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7334	7424	
==>LF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method bound <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7334	7424	
==>LF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method bound <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8137	8264	
==>p ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8137	8264	
==>p ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8137	8264	
==>p ); 
    }
};
MULTI SUB zip (@x0,*@x1) { 
    # warn "x0 ".ref($x0)." ".$x0->perl->unboxed;
    my $a;
    if ( @x1 == 1 && ref <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1838	1947	
==>mar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $fina <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1838	1947	
==>mar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $fina <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3612	3703	
==>f(stderr,"exec hook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = call <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5843	5951	
==>> Int ) {
    Array::splice(@array, 0, 0, @values);
    @array.elems;
}

# name from docs/notes/piln_object_r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7372	7472	
==>cked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}< <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7372	7472	
==>cked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4816	4913	
==>UG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4816	4913	
==>UG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4816	4913	
==>UG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: " . $method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	782	895	
==>y $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopei <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	782	895	
==>y $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopei <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	782	895	
==>y $scopeid = $PIL::CUR_LEXSCOPE_ID++;
  my $pad     = {
    map {
      push @PIL::ALL_LEXICALS, "$_->[0]_${scopei <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3530	3623	
==>Without any parameters, this returns an object representing the
current /local/ date.

- `new( <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3530	3623	
==>Without any parameters, this returns an object representing the
current /local/ date.

- `new( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	741	866	
==>Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	741	866	
==>Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4380	4556	
==>,
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4380	4556	
==>,
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4380	4556	
==>,
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { Perl6::Cell- <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	529	641	
==>= shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub admin {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13499	13607	
==>,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13499	13607	
==>,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1087	1206	
==>RE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_wr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1087	1206	
==>RE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_wr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1087	1206	
==>RE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra attributes:
#        is_invocant - ???
#        is_wr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12507	12606	
==>.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12507	12606	
==>.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12507	12606	
==>.add_method('_get_attribute_table' => ::make_private_method(sub {         
    my ($self, $params) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1586	1685	
==>$self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1586	1685	
==>$self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1586	1685	
==>$self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase() })')(~$self) }

method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22513	22616	
==>LTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22513	22616	
==>LTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22513	22616	
==>LTI SUB BUILDALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13920	14026	
==>ption::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a clean <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13920	14026	
==>ption::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a clean <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13920	14026	
==>ption::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime.  # XXX - needs a clean <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	987	1099	
==>cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	987	1099	
==>cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	987	1099	
==>cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $body() }
  $ret;
}

sub statement_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1401	1528	
==>'' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1401	1528	
==>'' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGI <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	136	258	
==>gex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /regex/   # ein passender Hash-K <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1563	1668	
==>able for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fg <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1563	1668	
==>able for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fg <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9214	9338	
==>rceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule SingleStringCharacter {  # see 7.8.4
      <!before <LineTermin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8782	8878	
==>prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rul <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6309	6402	
==>prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rul <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8033	8162	
==>c"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8033	8162	
==>c"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8 <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1029	1210	
==>XX - fixme ;)
    }

    if ( $3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	491	587	
==>kg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_t <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	491	587	
==>kg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28291	28451	
==>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28570	28730	
==>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match,
            ca <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2570	2695	
==>ts( $attr_name )) {
            return Bool::false;
        }
    }
    return Bool::true;
}

method any_names_exist of Bool ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	762	858	
==>arison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	762	858	
==>arison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	762	858	
==>arison to Inf portability (Windows x Linux)
# * Separate from_num_range() and from_range() constr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4044	4218	
==>else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4044	4218	
==>else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1591	1700	
==>b get_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3073	3257	
==>*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3320	3504	
==>*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2745	2854	
==>Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13844	13969	
==>label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13844	13969	
==>label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13844	13969	
==>label)" if $DISPATCH_TRACE;  
        my $method_table_name;
        # check the private methods
        if ($label =~ /^_/) { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10700	10794	
==>}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, * <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10700	10794	
==>}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, * <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19978	20069	
==>:<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefix:<:2> ( Str $b <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	869	979	
==>me eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $ar <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	836	946	
==>me eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	364	475	
==>($value)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# conversion to nati <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12100	12188	
==>st of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Acc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12100	12188	
==>st of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Acc <==
3	/Users/nnunley/pugs/util/build_pugs.pl	7229	7345	
==>$!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        $depends = ', Win32 -any' unless <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1771	1886	
==>ying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1771	1886	
==>ying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	41	137	
==>key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	41	137	
==>key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	41	137	
==>key only works on objects of type Pair!" unless $self.isa("Pair");

  JS::inline('new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	135	238	
==>Nil;

package list;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use bas <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16712	16809	
==>meter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new Node <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16712	16809	
==>meter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new Node <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	275	406	
==>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	275	406	
==>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	297	425	
==>AL::require::ERROR;
    $class->new;
}

sub compile {
    my $self = shift;
    my $prog = shift;

    $self->compiler->compile($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8240	8351	
==>ses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8240	8351	
==>ses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8240	8351	
==>ses([ $::Object ]);
      foreach my $name (qw(foo bar)) {
          $::CLASS->add_method($name => ::make_class_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23697	23795	
==>amed variables, which can be used in any order, or not used at all, or
used multiple times.  Locale <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23697	23795	
==>amed variables, which can be used in any order, or not used at all, or
used multiple times.  Locale <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	47	140	
==>ire Perl6::Run::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6586	6723	
==>ll')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6586	6723	
==>ll')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6586	6723	
==>ll')->{id} },  

            # There is no 'set_tieable' - use 'is Tieable' instead
            # See: t/trait.t
            # 'set_tieabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2556	2669	
==>hars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2556	2669	
==>hars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2556	2669	
==>hars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else {
    JS::inline('(function (str, substr, pos) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9978	10156	
==>ignature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9978	10156	
==>ignature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9978	10156	
==>ignature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	216	333	
==>);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @modules = glob('*.pm');

    r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9750	9846	
==>cilitate the Pugs test suite. It has the
distinction of being the very first module written for P <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9808	9904	
==>cilitate the Pugs test suite. It has the
distinction of being the very first module written for P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13044	13146	
==>n two
values, their numeric value, and a format string for use with sprintf().

  # for when you have a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13560	13654	
==>s') corresponds exactly to the named parameters of
Document.new(); you can produce a direct clo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13560	13654	
==>s') corresponds exactly to the named parameters of
Document.new(); you can produce a direct clo <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1845	1971	
==>d   { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2140	2243	
==>bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2128	2231	
==>bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6664	6765	
==>an`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6664	6765	
==>an`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	161	261	
==>>catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	161	261	
==>>catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	161	261	
==>>catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Long;
use Encode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23917	24011	
==>{ rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23917	24011	
==>{ rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23917	24011	
==>{ rx_common($mods,$pat,$qo,$qc) };
MULTI SUB m_ ($mods,$pat,$qo,$qc) { rx_common($mods,$pat,$qo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1676	1768	
==>:PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1676	1768	
==>:PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl: <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12824	12907	
==>e_visibility('<tmpl_var name=id>')" id="expander_<tmpl_var name=id>">&raquo;</span>< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6808	6914	
==>increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6808	6914	
==>increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6808	6914	
==>increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_set($xx,p6_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1994	2136	
==>_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1916	2053	
==>_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37019	37116	
==>(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: an object in t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2118	2214	
==>pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2118	2214	
==>pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2118	2214	
==>pArgs}->[0]->unwrap->isa("PIL::PLit")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->isa( <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27611	27760	
==>) {
	    #print ">>$ret<<\n";
	    my $res = eval($ret); die "bug $@\n$ret" if $@;
	    #use Data::Dumper;
	    #print Dumper($res);
	    mkMatch(leng <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29208	29335	
==>ss $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29487	29614	
==>ss $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2547	2638	
==>tf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_varian <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2547	2638	
==>tf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_varian <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2547	2638	
==>tf "if(!%s) var %s = new PIL2JS.Box(PIL2JS.new_multi());\n%s.FETCH().pil2js_multi.add_varian <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1888	2024	
==>$barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$baren <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1888	2024	
==>$barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$baren <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1888	2024	
==>$barename =~ s/-0.*//;
    my $code="";
    $code .= "package $barename;\n";
    $code .= "our \$MM = \$::Class->new('\$:name' => '$baren <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	475	607	
==>BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	475	607	
==>BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2698	2801	
==>ubstr $target, $from, 1) =~ /[:blank:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  ret <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2203	2308	
==>empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         return <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2203	2308	
==>empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3686	3788	
==>orce_object(horiz => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\H' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	567	678	
==>::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	567	678	
==>::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	567	678	
==>::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $ou <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	350	462	
==>> '',
    inline_prelude_source => 0,
    precompile_prelude    => 1,
    precompile_modules    => [],
    ghc_he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13456	13560	
==>~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13456	13560	
==>~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3647	3754	
==>D_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3647	3754	
==>D_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3647	3754	
==>D_xyz subs.
    if($self->name =~ /^&\*END_\d+/) {
      $js .= sprintf
        "_40main_3a_3a_2aEND.FETCH() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9622	9736	
==>" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9622	9736	
==>" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9622	9736	
==>" if $@;
    $pilc;
}

sub p5r_from_pilc {
    my($pilc)=@_;
    my $p5r = PIL::Run::EvalX::expand($pilc);
    $p5r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4230	4341	
==>ce::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4230	4341	
==>ce::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4230	4341	
==>ce::new { 
    my $class = shift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{a <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2989	3096	
==>@b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) return <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2989	3096	
==>@b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5978	6075	
==>ass for parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This is ver <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2879	2973	
==>includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.gre <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2879	2973	
==>includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.gre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4667	4800	
==>.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4860	4993	
==>.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1870	1973	
==>ool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span ) <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1870	1973	
==>ool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span ) <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	94	196	
==>..
}
#=In Perl 6 geht das eleganter:
if any(wurf(), wurf(), wurf()) == 6 {
	... # aber: wurf() wird imm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3499	3640	
==>matically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3499	3640	
==>matically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3499	3640	
==>matically created)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35394	35498	
==>cept inputs that would result in
a cross-product when joined.  This method has aliases named
C<cartesian_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39944	40048	
==>cept inputs that would result in
a cross-product when joined.  This method has aliases named
C<cartesian_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39504	39608	
==>cept inputs that would result in
a cross-product when joined.  This method has aliases named
C<cartesian_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1552	1835	
==>ffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal wit <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	42	142	
==>ulti *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	42	142	
==>ulti *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10168	10308	
==>names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10168	10308	
==>names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10168	10308	
==>names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     . <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	497	608	
==>e que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $ms <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2025	2136	
==>e que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $ms <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6409	6504	
==>arness::Iterator->new($fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<analyze <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4143	4237	
==>ute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4143	4237	
==>ute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4143	4237	
==>ute('$:name'));
$::Package->add_attribute('%:namespace' => ::make_attribute('%:namespace'));

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	692	813	
==>create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	692	813	
==>create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	692	813	
==>create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $met <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3355	3452	
==>define_$kind";
	warn "defining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8901	8994	
==>@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2726	2819	
==>@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	737	878	
==>= bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	737	878	
==>= bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	737	878	
==>= bless {
            'id'    => ++$GLOBAL_INSTANCE_COUNT,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatch <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10295	10440	
==>raffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10295	10440	
==>raffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect = <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	72	189	
==>s.

# return floating point seconds relative to 1st Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# re <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4367	4502	
==>name,
        rep  => $rep,
        type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_type => \%field_ty <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16558	16671	
==>, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16558	16671	
==>, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2370	2502	
==>here ...
            %attrs,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$C <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	940	1032	
==>:PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	940	1032	
==>:PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4681	4779	
==>.$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4681	4779	
==>.$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4681	4779	
==>.$_[0]->SUPER::expand().";\nE$n\n";
    if ($EvalX::PStmt::already_protected) {
	$_[0]->SUPER::expa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3381	3511	
==>quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3369	3499	
==>quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1856	1963	
==>new(values %native);
}

sub length { (shift)->keys->length }

sub exists {
    my ($self, $key) = @_;
    (b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	472	575	
==>l() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	472	575	
==>l() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35932	36028	
==>ody contains all of the tuples that are in either or both of the
invocant Relation::Example and C <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	632	733	
==>{
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	632	733	
==>{
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29368	29467	
==>en added to the tree, $obj will be
removed from the tree.  Most node types don't merge.  Returns tru <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11096	11199	
==>the Regex

You can use the qr() method to get back a F<Regexp> object:

  my $real_rx = $parser->qr;

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1023	1141	
==>rs for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1023	1141	
==>rs for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1023	1141	
==>rs for the inside of the opaque structure
    sub ::opaque_instance_id ($) { 
        my $instance = shift;
        (de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2486	2592	
==>mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2486	2592	
==>mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2486	2592	
==>mods{'overlap'};
  my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || % <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	409	571	
==>nf    = $self->config;
    my %hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            store <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2489	2576	
==>----------------------------------------------------------
## getting children

method g <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2489	2576	
==>----------------------------------------------------------
## getting children

method g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5980	6109	
==>l6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5980	6109	
==>l6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5980	6109	
==>l6::StubAttribute;        
        @Perl6::StubAttribute::ISA = ('Perl6::Attribute'); 

        # DEPRECATED
        # package Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21689	21814	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21968	22093	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statemen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31780	31873	
==>Str $mapping! ) returns Relation::Example>

I<TODO.  This method has not yet been implemented. <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7180	7287	
==>kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = timeit( 1, s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22405	22512	
==>>{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmat <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2081	2178	
==>atdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2081	2178	
==>atdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/di <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	644	744	
==>ection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symme <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	223	323	
==>2001.
# Also for future historical amusement, I've inserted unchanged
# my original first attempts, h <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	644	744	
==>ection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symme <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1743	1913	
==><$fh> ) {
        chomp;
        -e $_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1097	1197	
==>ule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1097	1197	
==>ule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10046	10148	
==>e PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10046	10148	
==>e PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Para <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10046	10148	
==>e PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL::PPad;
use PIL::Para <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	276	420	
==>ods => { map { $_ => \&$_ }
                   qw( generate_p6mm generate_attribute )
                 },
    };

sub generate_p6mm {
    my $sel <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5452	5552	
==>_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::pr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5510	5610	
==>_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30256	30352	
==>will be substituted at run-time before the text
is shown to the user.

Each Template module ideal <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30256	30352	
==>will be substituted at run-time before the text
is shown to the user.

Each Template module ideal <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16243	16342	
==>obj_complain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      pe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18673	18768	
==>is module automatically tries to use slight variations of the nickname in the
login phase (for e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18673	18768	
==>is module automatically tries to use slight variations of the nickname in the
login phase (for e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13712	13806	
==>n the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subrout <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13712	13806	
==>n the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subrout <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1997	2098	
==>:pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1997	2098	
==>:pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1997	2098	
==>:pwd("lib6"), "-MPrelude::JS";
  write_file($js => $PIL2JS::cfg{preludepc});
}

unless(-e $PIL2JS::cfg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6261	6390	
==>}
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6261	6390	
==>}
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6261	6390	
==>}
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $self->name;
    my $jsname = $self->jsname;
    no warnings "r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	164	261	
==>xporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	164	261	
==>xporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	164	261	
==>xporter";
our @EXPORT    = qw<
  compile_perl6_to_standalone_js
  compile_perl6_to_mini_js
  compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	454	588	
==>ction () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	454	588	
==>ction () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	454	588	
==>ction () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1570	1660	
==>}
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1570	1660	
==>}
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1570	1660	
==>}
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLowerCase <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5448	5550	
==>f->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5448	5550	
==>f->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5448	5550	
==>f->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_me <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8308	8418	
==>kg {
    my $self = shift;

    # Return immediately if we've cached this.
    return $self->{ghc_pkg} if $self <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7923	8012	
==>nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7923	8012	
==>nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11857	11981	
==>lf = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11857	11981	
==>lf = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shif <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11857	11981	
==>lf = shift;
            # print "entering map, elems = ", $ret->elems, "\n";
            while( $ret->elems && @{$self->{shif <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	242	355	
==>sted

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_s <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	242	355	
==>sted

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4979	5077	
==>Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4979	5077	
==>Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4979	5077	
==>Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited object refer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4497	4618	
==>lf->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4497	4618	
==>lf->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Sli <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4497	4618	
==>lf->unbind;
    #my $a = Array->new;
    #$a->push( $self->items );
    #$a = $a->clone;
    #return $a;
} 
sub Perl6::Sli <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	895	1019	
==>args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	895	1019	
==>args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = has <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	895	1019	
==>args[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = has <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3458	3567	
==>nclude} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( "|", map <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16046	16144	
==>/ `intersects( $object )`

These methods return a logical value. 

The argument can be a Span objec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16046	16144	
==>/ `intersects( $object )`

These methods return a logical value. 

The argument can be a Span objec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10075	10189	
==>ent list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match failed

or to a hashref c <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13603	13745	
==>gs {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13603	13745	
==>gs {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%h <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19784	19880	
==>C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	637	760	
==>t {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die "open: $Config{output}: $!";
    } e <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2809	2903	
==>y sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translato <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2809	2903	
==>y sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translato <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	82	184	
==>d 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	82	184	
==>d 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	82	184	
==>d 2 of PIL2JS, the eval()s were needed to emulate Perl's
# "the return value of a sub is the value of t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13715	13891	
==>dd_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_su <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13715	13891	
==>dd_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10643	10794	
==>a->version } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        ### link the files
        return unless $s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	934	1033	
==>aClass called C<Type> and a
language object called C<Type>.  Perhaps this module should be called
so <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3424	3515	
==>bject (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The follow <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3424	3515	
==>bject (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The follow <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2466	2768	
==>s $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @body) . '; }';
                }
                else <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2110	2234	
==>inder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2028	2146	
==>inder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	714	806	
==>LTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print ST <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	714	806	
==>LTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print ST <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	714	806	
==>LTI SUB|MACROP5)\s+(.*?(?:[\]\>]|\w))\s+\((.*?)\)\s+{/gen($1,$2,$3)/ge;
    #print; #print ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4150	4301	
==>([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4150	4301	
==>([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4150	4301	
==>([\$\@\%\&\:]?)(.+)/) {
        $sigil = $1;
        $bare = $2;
    }
    return ($sigil,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27887	28021	
==>s going to be turned off.  For C<(?i-s)>, C<FLAG_i> would be called
with a true argument, and C<FLAG_s> would be called with a false on <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	205	308	
==>tetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class repre <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	205	308	
==>tetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class repre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13117	13212	
==>f
a message.  All header field names prefixed with C<Content-> falls
into this category, as well <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13117	13212	
==>f
a message.  All header field names prefixed with C<Content-> falls
into this category, as well <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9197	9289	
==>(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code $cal <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9197	9289	
==>(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code $cal <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12838	12980	
==>=~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        }
        
        return _emit( $n->{exp1} ) . '[' . _em <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6587	6693	
==>) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6587	6693	
==>) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_chi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2160	2262	
==>JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2160	2262	
==>JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2160	2262	
==>JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2871	2972	
==>ber(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2871	2972	
==>ber(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2871	2972	
==>ber(b) ? -1 : Number(a) == Number(b) ? 0 : 1",
  "infix:«cmp»",  2, "S", "String(a) < String(b) ? -1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	337	462	
==>:Grammar::Operator',
        header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'po <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1186	1301	
==>pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1186	1301	
==>pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2125	2225	
==>return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infin <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2125	2225	
==>return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infin <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12200	12289	
==>, ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p6_hex_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	493	585	
==>= $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	493	585	
==>= $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	493	585	
==>= $CALLER::_:) { $JS::Math.asin(+$self) }
method acos (Num $self = $CALLER::_:) { $JS::Math.a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	918	1031	
==>h($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1413	1502	
==>vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1253	1342	
==>vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10385	10503	
==>lve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10385	10503	
==>lve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requir <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10385	10503	
==>lve () { "<implemented>" }

    # -----------------------------------------------    
    # NOTE:
    # &resolve requir <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	992	1099	
==>ag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every li <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	992	1099	
==>ag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1548	1655	
==>ag( Str $message )>

Writes a message to the diagnostic output filehandle, adding a leading C<#> to
every li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1974	2089	
==>= $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outsid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1974	2089	
==>= $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outsid <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1974	2089	
==>= $jsname";
      } elsif($self->{pScope} eq "STemp") {
        PIL::fail("Can't use temp variable declarator outsid <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	619	754	
==>erms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	619	754	
==>erms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3384	3487	
==>re the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3384	3487	
==>re the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3464	3567	
==>re the received
output to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3683	3795	
==>ing.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7160	7272	
==>ing.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6117	6229	
==>ing.values )
            === any( $!heading.difference( all( $mapping.keys ) ) );

    my %full_map = { $!heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19118	19218	
==>x:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19118	19218	
==>x:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19118	19218	
==>x:<^..> ($xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1262	1382	
==>s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3542	3643	
==>an0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3542	3643	
==>an0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4130	4251	
==>ntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4130	4251	
==>ntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_so <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4130	4251	
==>ntil('{');
    $i->nextToken; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3026	3123	
==>ERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3026	3123	
==>ERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pug <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3026	3123	
==>ERR <<EOF; exit }
$0 -- Compiles Perl 6 to JavaScript and runs it.
Usage: $0 [options] regular_pug <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	113	208	
==>tion, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a dateti <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	113	208	
==>tion, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a dateti <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11596	11707	
==>nsignedDecimalLiteral {  # see 9.3.1
      <'Infinity'>
    | <DecimalDigits> <'.'> <DecimalDigits>? <ExponentPa <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11408	11505	
==>ldren returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=ove <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11408	11505	
==>ldren returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=ove <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1112	1226	
==>= @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1112	1226	
==>= @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1112	1226	
==>= @_;

    # Total hack.
    $classname =~ s/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	3995	4142	
==>_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	3995	4142	
==>_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	3995	4142	
==>_METHOD() },
            'does' =>     sub { ::next_METHOD() },
            'ref' =>      sub { $::CLASS }, 

            'elems' =>    sub { Int->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6921	7028	
==>(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6921	7028	
==>(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6921	7028	
==>(p6_to_n($xx)+1)); 
    $old
 }
};
MULTI SUB prefix:<++> ($xx)  { 
 if(0){# XXX
    $xx->store( $xx->fetch-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	925	1033	
==>rn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	925	1033	
==>rn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	925	1033	
==>rn 1 if lc($ref) eq lc($cls);
    return 0;
}

sub p6_to_b {my($b)=@_; return 0 unless defined $b; $b->bit()- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10550	10685	
==>nted( $n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14314	14497	
==>lse {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14314	14497	
==>lse {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14314	14497	
==>lse {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE:
        # we need to just access stuff directly here
        # so as to <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1047	1201	
==>.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = . <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1047	1201	
==>.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = . <==
3	/Users/nnunley/pugs/util/testgraph.pl	1600	1717	
==>y $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t$/.html/;
        File::Spec->catdir("t_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4291	4390	
==>ures as match objects.

=head2 %{}

When used as a hash reference, the match object returns named ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4291	4390	
==>ures as match objects.

=head2 %{}

When used as a hash reference, the match object returns named ca <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7297	7409	
==>.param pmc mob
    .local int pos, lastpos
    .local string target, value
    .local pmc mfrom, mpos
    $P0 = f <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6292	6396	
==>return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) - <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6292	6396	
==>return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) - <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15085	15229	
==>string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19260	19404	
==>string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4568	4668	
==>0]{'rep'} } # string array1 array2 hash
sub field_is_array {
    my($self,$fname)=@_;
    $self->{'fi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	341	467	
==>shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude - Ag <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10946	11040	
==>o returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<documen <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10946	11040	
==>o returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<documen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7239	7413	
==>0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7239	7413	
==>0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7239	7413	
==>0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                return <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3543	3674	
==>= $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3543	3674	
==>= $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	315	414	
==>@_); }
sub node_a { hlp('array1',@_); }
sub node_a2{ hlp('array2',@_); }
sub node_h { hlp('hash',@_) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8976	9068	
==>sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @stat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2801	2893	
==>sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	459	564	
==>pec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	459	564	
==>pec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	459	564	
==>pec;
sub pwd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1838	1977	
==>r($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1838	1977	
==>r($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1838	1977	
==>r($?SELF, $key) = $params{$key}
            # NOTE:
            # this is an ugly way to do this, ideally
            # we would peek into t <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6432	6590	
==>O" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6490	6648	
==>O" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5893	6006	
==>tart>
    | <IdentifierName> <IdentifierPart>
}
rule IdentifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	278	385	
==>mper'   => \&p5  ],
	xml =>  ['XML::Generator' => \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	518	645	
==>me} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	534	661	
==>me} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	510	637	
==>me} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32978	33074	
==>ned Relation contains only tuples that are in
exactly one of the source Relations.  This method h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37528	37624	
==>ned Relation contains only tuples that are in
exactly one of the source Relations.  This method h <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12677	12808	
==>rgs) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *% <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12677	12808	
==>rgs) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *% <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	849	959	
==>urn \$s, \\\@match; }";
}

{
my $r = capture( 'cap', constant('a') );
print "Perl5 source:\n", wrap( $r ), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38284	38389	
==>= Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38284	38389	
==>= Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38284	38389	
==>= Perl6::Value::List->from_x( item => undef, count => ( $pos - $array->elems ) );
    push @{$array->{item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	115	215	
==>Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	115	215	
==>Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 200 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	115	215	
==>Type
# * Signature can be stringified - new methods Code::signature_str and Perl6::Param::str
#
# 200 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3148	3249	
==>e_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Comp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3148	3249	
==>e_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Comp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24335	24436	
==>::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	83	219	
==>ys -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't outp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	83	219	
==>ys -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't outp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	83	219	
==>ys -- basically it used to be
#     join ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't outp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9436	9648	
==>hod new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6505	6624	
==>1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6505	6624	
==>1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	13	119	
==>_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	13	119	
==>_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	13	119	
==>_control:<loop>(Any $pre, Code $cond, Code $body, Code $post) is primitive {
  JS::inline('(
    function ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6862	7014	
==>previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6862	7014	
==>previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3818	3928	
==>-I../../inc" "-I../inc" "-Iinc" $1!g;
    $makefile =~ s/\$\(UNINST\)/0/g;

    my $canonical_base = File::Spec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4095	4256	
==>dd_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	741	849	
==>s:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	741	849	
==>s:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_d <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7845	7943	
==>:Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7845	7943	
==>:Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	210	330	
==>l5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	210	330	
==>l5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	210	330	
==>l5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5611	5733	
==>d $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5611	5733	
==>d $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5611	5733	
==>d $pos && $pos >= 0;
    $self->{array}->store( $pos, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4461	4555	
==>ally creates and returns a new Test::Builder instance.  It
takes the same optional named argume <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4461	4555	
==>ally creates and returns a new Test::Builder instance.  It
takes the same optional named argume <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5985	6079	
==>ally creates and returns a new Test::Builder instance.  It
takes the same optional named argume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2002	2103	
==>ut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2002	2103	
==>ut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2002	2103	
==>ut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright 2005 by Chia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8395	8493	
==>_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8395	8493	
==>_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8395	8493	
==>_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1199	1314	
==>PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1199	1314	
==>PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1199	1314	
==>PREFIX",
      user  => $_->[0],
    }} @{ $self->{pSyms} } ],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2067	2174	
==>\$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2067	2174	
==>\$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2067	2174	
==>\$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"new: \$c  \$o\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1002	1134	
==>$match = $rpc_regex->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13071	13173	
==>command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13071	13173	
==>command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5947	6060	
==>dentifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
r <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8277	8375	
==>s found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<sta <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8277	8375	
==>s found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1458	1558	
==>efined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1458	1558	
==>efined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1458	1558	
==>efined with a closure; Perl6 version too
# TODO - map(), grep() could accept the optional 'celems' pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7977	8107	
==>> sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7977	8107	
==>> sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7977	8107	
==>> sub { $::SELF->str },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5006	5111	
==>Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $operator->to();
  got <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1779	1874	
==>multi sub epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :yea <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17962	18062	
==>ed with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2321	2421	
==>ed with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8149	8243	
==>ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalIntegerLiteral> <Expon <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	921	1027	
==>re_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	921	1027	
==>re_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1623	1728	
==>, but supporting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual methods is def <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13122	13231	
==>is->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13122	13231	
==>is->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13122	13231	
==>is->{hashref}} = ();
}
sub scalar {
    my ( $this ) = @_;
    0 + %{$this->{hashref}};
}

package Perl6::Cont <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8767	8876	
==>nicode_c/;
        s/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@lib <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2245	2342	
==>UNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a n <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2245	2342	
==>UNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a n <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1570	1694	
==>se base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2019	2113	
==>he calling function's package name.  (For example, if 
a function in C<Some::Module> called C<n <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2019	2113	
==>he calling function's package name.  (For example, if 
a function in C<Some::Module> called C<n <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	104	195	
==>NV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_AD <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	104	195	
==>NV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_AD <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1178	1286	
==>ng the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1178	1286	
==>ng the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1725	1833	
==>ng the TAP header for this plan.

=item B<footer returns Str (Int $run)>

Returns a string containing the TAP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16612	16728	
==>Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16612	16728	
==>Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::L <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16612	16728	
==>Value::List;
  
  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );
  
  my $list = Perl6::Value::L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14648	14745	
==>xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14648	14745	
==>xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14648	14745	
==>xx) {...};
MULTI SUB IO::Dir::rewinddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2284	2385	
==>nlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2262	2363	
==>nlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3320	3420	
==>> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3320	3420	
==>> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3320	3420	
==>> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store([ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11660	11766	
==>lternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12018	12124	
==>lternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5560	5666	
==>'::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5560	5666	
==>'::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5560	5666	
==>'::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^PIL::Run::Root::/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2740	2857	
==>? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2740	2857	
==>? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2740	2857	
==>? '""' : 0;
    my $conv   = "_26main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2750	2903	
==>0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2660	2808	
==>0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	658	755	
==>.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	658	755	
==>.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	658	755	
==>.Box.Constant([%s])",
      join ", ", map { $_ eq "VUndef" ? "new PIL2JS.Box.Constant(undefined)" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	615	740	
==>unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	626	751	
==>unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2753	2863	
==>qrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Tr <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11002	11138	
==>ypes
            foreach my $todo_type (keys %todos) {
                my $num_tests = $todos{$todo_type};
                if ($todo_type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2104	2217	
==>t $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2104	2217	
==>t $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2104	2217	
==>t $x := %hash - 'undefine $x'
# TODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16860	16962	
==>oIn>
}
rule BitwiseANDExpression :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpr <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12358	12457	
==>f the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12358	12457	
==>f the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	39	135	
==>Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Module::Compile-base;
use F <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1666	1755	
==>L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes whi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1666	1755	
==>L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes whi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21557	21651	
==>ride some of your messages, showing other messages instead which are
more appropriate to the co <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21557	21651	
==>ride some of your messages, showing other messages instead which are
more appropriate to the co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1284	1383	
==>= false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1284	1383	
==>= false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1284	1383	
==>= false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${}>($thing) is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2741	2869	
==>ude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2958	3086	
==>ude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	291	398	
==>lude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	291	398	
==>lude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	291	398	
==>lude.pm.

=cut

my $?PUGS_BACKEND = "BACKEND_PERL5";

multi sub nothing () is builtin is primitive is safe { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5706	5874	
==>pe} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5706	5874	
==>pe} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # T <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5706	5874	
==>pe} = undef;
                return $self;
            },
            # adds support for @a[1].delete
            'delete' => sub { (shift)->undefine },

            # T <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11025	11128	
==>durations and the ok
    percentage to not be comparable.<br />
    The percentage of passed tests is ca <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	845	947	
==>mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.si <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	845	947	
==>mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.si <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9791	9904	
==>eal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9791	9904	
==>eal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9791	9904	
==>eal with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispat <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	831	931	
==>VERSION for this distribution.
Please call the 'version' or 'version_from' function in Makefile.PL.
E <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21583	21673	
==>topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21583	21673	
==>topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1134	1232	
==>ong typing)
#	::free - an unbound type variable
#	::instantiated - points to another variable or op <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13124	13220	
==>e returned.

If called in void context the arguments are decoded in-place.

This routine is expor <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13124	13220	
==>e returned.

If called in void context the arguments are decoded in-place.

This routine is expor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	67	170	
==>and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	67	170	
==>and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	67	170	
==>and PIL::Nodes.
# See sub &usage at the bottom for usage information.

use warnings;
use strict;
use lib <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	953	1096	
==>TP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Pro <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	953	1096	
==>TP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Pro <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	5801	5925	
==>re this:

    bonus           Number of individual todo tests unexpectedly passed
    max             Number of individual te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1761	1864	
==>e a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1761	1864	
==>e a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1761	1864	
==>e a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base "types" and reuse - see Perl6::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4723	4834	
==>:as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4723	4834	
==>:as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4723	4834	
==>:as_js is not reentrant, sorry...\n"
    if $PROCESSING_HAS_STARTED;
  local $PROCESSING_HAS_STARTED = 1;
  loca <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5067	5167	
==>E::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5067	5167	
==>E::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23514	23600	
==>rl6::Run::OnPerl5::X1::Api::Exception::Return with { @{$_[0]{"-value"}} })'
}
sub p6_lo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9357	9454	
==>eturns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9357	9454	
==>eturns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10656	10744	
==>p://svn.openfoundry.org/pugs/util/smokeserv/README">smokeserv's
    README</a> for detail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4051	4154	
==>}
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4051	4154	
==>}
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4051	4154	
==>}
	}
	return $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7948	8075	
==>=> [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7948	8075	
==>=> [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" }, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7948	8075	
==>=> [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo" },
          bar => sub { "Hello from bar" }, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5138	5301	
==>w how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5138	5301	
==>w how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1986	2094	
==>as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1986	2094	
==>as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1986	2094	
==>as_js;
    my $name = sprintf "%s.FETCH().pil2js_name = %s",
      PIL::name_mangle($self->name),
      PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1541	1632	
==>r.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1541	1632	
==>r.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1541	1632	
==>r.toUpperCase() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2811	2925	
==>'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3016	3130	
==>'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_meth <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1482	1590	
==>position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1906	2011	
==>class->pmc_template($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1906	2011	
==>class->pmc_template($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12414	12533	
==>od(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12414	12533	
==>od(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12414	12533	
==>od(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_id($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	273	378	
==>IOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	273	378	
==>IOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	273	378	
==>IOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CO <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2434	2540	
==>esn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2434	2540	
==>esn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1208	1309	
==>rAttrType
        (Relation::AttrName $attr_name) {
    return %!attrs{$attr_name};
}

method attr_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6938	7064	
==>y $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6938	7064	
==>y $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6938	7064	
==>y $elems = $slice->elems->unboxed;
            # warn "splice 2 - elems = $elems - slice isa $slice";
            $ary->splice( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4249	4371	
==>inding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4249	4371	
==>inding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4249	4371	
==>inding.
    #
    #   Fixed in https://svn.perl.org/perl6/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsn <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8764	8886	
==>$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8752	8874	
==>$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5513	5619	
==>otal ok failed todo skipped unexpect>),
    $smoke{id};
}

sub unpack_smoke {
  my $name = shift;

  /^pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16667	16831	
==>et->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16667	16831	
==>et->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16667	16831	
==>et->push(
                    Perl6::Value::List->from_num_range( 
                        start => 0, 
                        end =>   $array->elems->unboxed - 1 ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4589	4735	
==>cpan_bareword} )
                  : _emit( $n->{param}{sub} );
            my @a = split "-", $id;
            my $version = ( @a > 1 && $a[-1] <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8051	8156	
==>e $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and up <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8051	8156	
==>e $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and up <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1971	2074	
==>currfile = File::Spec->catfile( $start, $file );
            next if $Config{exclude_re} && $currfile =~ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11635	11728	
==>ersects( $recurrence )`

Returns true if this recurrence intersects (has any element in common <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11635	11728	
==>ersects( $recurrence )`

Returns true if this recurrence intersects (has any element in common <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39082	39223	
==>},
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39082	39223	
==>},
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unsh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39082	39223	
==>},
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    unsh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1092	1189	
==>---------------------------------------------------------------
## Roles

# Questions on Role meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1092	1189	
==>---------------------------------------------------------------
## Roles

# Questions on Role meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1092	1189	
==>---------------------------------------------------------------
## Roles

# Questions on Role meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2070	2222	
==>space, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namesp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2070	2222	
==>space, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namesp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2070	2222	
==>space, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($proto, $obj, $namesp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13636	13782	
==>f => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13636	13782	
==>f => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13636	13782	
==>f => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
}));

$::Class->add_me <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3822	3960	
==>self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #retu <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1922	2060	
==>self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #retu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1359	1460	
==>[GIP]V)/blondie_$1/g;
	$c_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKA <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14359	14464	
==>$.param,
	);

	# first of all the type of the thing we're appling must be a function
	die "Can't apply non <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	196	300	
==>rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	196	300	
==>rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 <==
3	/Users/nnunley/pugs/util/testgraph.pl	55	154	
==>05 [ [qw/YAML::Syck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2691	2787	
==>. $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2691	2787	
==>. $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1213	1399	
==>em => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                unless ($c){
                    $c = P <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10345	10450	
==>n.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method cl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10345	10450	
==>n.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6259	6354	
==>ubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6259	6354	
==>ubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6259	6354	
==>ubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1873	1967	
==>pproproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1873	1967	
==>pproproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_chec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1873	1967	
==>pproproate --p6prelude option.\n";
  }
}

sub compile_perl6_to_standalone_js {
  preludepc_chec <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8168	8313	
==>ck) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4528	4673	
==>ck) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5377	5522	
==>ck) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1493	1618	
==>Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1493	1618	
==>Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1493	1618	
==>Box(undefined) statements.
  local $_;
  my $decl = $PIL::IN_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12083	12189	
==>:'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12083	12189	
==>:'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12083	12189	
==>:'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::Root');
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4505	4638	
==>} = shift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ 'anyof_close' ];
  }

  sub data {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4199	4317	
==>pture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4070	4186	
==>pture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capt <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6075	6193	
==>l {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6075	6193	
==>l {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36565	36657	
==>y reference of two objects; first: I<ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<bran <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5991	6088	
==>g is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5991	6088	
==>g is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5991	6088	
==>g is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees in the recursion o <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29521	29623	
==>utes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34073	34175	
==>utes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33237	33339	
==>utes to split/unwrap.  This method will fail if any of the
named attributes are not tuple-valued attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4351	4469	
==>n 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4351	4469	
==>n 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11585	11703	
==>thod eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11585	11703	
==>thod eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11585	11703	
==>thod eq 'perl' || $method eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4490	4602	
==>reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4478	4590	
==>reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	795	898	
==>split('&',$data)) {
        my($variable,$value) = split('=',$_);
        %Session{$variable} = url_deco <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13558	13746	
==>mmar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13837	14025	
==>mmar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2743	2865	
==>ame_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2743	2865	
==>ame_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2743	2865	
==>ame_mangle($self->name),
        $def,
        $self->arity
      : sprintf "%s%s = %s;",
        $PIL::IN_GLOBPIL ? "" : " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7826	8041	
==>cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7826	8041	
==>cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7826	8041	
==>cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $start++;
            }
            $t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22217	22410	
==>)
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22496	22689	
==>)
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8087	8209	
==>PTION

This module provides an implementation for Perl 6 operator precedence.  

=head1 METHODS

=head2 new ()

Cla <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8203	8330	
==>( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7921	8041	
==>( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::op <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7799	7899	
==>ecurse into directories on test include list
    --incude=I1,[I2,...]    Include files
    --exclude= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6116	6221	
==>print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6116	6221	
==>print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	53	152	
==>.61';

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1485	1594	
==>ethod(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1485	1594	
==>ethod(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1485	1594	
==>ethod(sub { 
    my ($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':d <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4700	4827	
==>rget)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_file, $targ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18607	18727	
==>$tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19965	20085	
==>$tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23797	23896	
==>$plus_ten
);

# tests for the type pretty printer
{
	my $type = type::operator::arrow->new(
		type:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16388	16483	
==>tent_type = 'text/html';

The value returned will be converted to lower case, and potential
para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16388	16483	
==>tent_type = 'text/html';

The value returned will be converted to lower case, and potential
para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8390	8525	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8390	8525	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => P <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8390	8525	
==>ub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => P <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1787	1920	
==>nce}}->($self, $_, $opt);
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub code { 
    warn "not impl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5028	5141	
==>) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5028	5141	
==>) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	107	233	
==>paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	107	233	
==>paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38581	38685	
==>.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parser->regex($_) or die $parser-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13635	13737	
==>produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$origi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13635	13737	
==>produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$origi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19743	19840	
==>the Relation data type is immutable.  The value of
a Relation object is determined when it is cons <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24295	24392	
==>the Relation data type is immutable.  The value of
a Relation object is determined when it is cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	724	846	
==>&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	724	846	
==>&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	724	846	
==>&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code" -- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	790	939	
==>s::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	790	939	
==>s::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$gramm <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4971	5117	
==>$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep /\.a$/, @_) {
        # Do some very snea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27662	27759	
==>02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag handle <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31548	31643	
==>o it, another library likewise, and a program which uses both libraries
could have yet another s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31548	31643	
==>o it, another library likewise, and a program which uses both libraries
could have yet another s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4158	4270	
==>pe;
    for(my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$ftype)=($pairs->[$i],$pairs->[$i+1]);
        push <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5849	5954	
==>Rule {}
class Rul does Rule is builtin {
    has $.f;
}
# This infix:<~~> doesnt work yet.
multi sub infix <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8083	8169	
==>UBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<ht <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37642	37751	
==>nitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37642	37751	
==>nitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37642	37751	
==>nitialized value used in numeric context"
    #    unless defined $pos;  
    if ( UNIVERSAL::isa( $item, 'Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	932	1039	
==>},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	932	1039	
==>},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	932	1039	
==>},
        <perl5 Perl5 P5 i ignorecase g global ov overlap>;
    %rx_helper_cache{'re_x'}   = rx_core_({per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	809	934	
==>pture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	802	927	
==>pture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9959	10055	
==>".join(",",@args)."]";
	push(@param_info,$args);
    }
    my $code_param_info = join(",",@param_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16612	16735	
==>s =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*//;

        # pipes double these sometimes
        $results =~ s/\n\n/\n/g;
    }

    m <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22178	22273	
==>name =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.pr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22178	22273	
==>name =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1063	1210	
==>l::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_na <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1063	1210	
==>l::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24161	24292	
==>cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24161	24292	
==>cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24161	24292	
==>cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Match_new(defined $ci ? 1 : 0,
			       defined $ci ? $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5813	5945	
==>,        
        'get_method_list' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($se <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11300	11395	
==>-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a sing <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11300	11395	
==>-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a sing <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10920	11050	
==>f => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10920	11050	
==>f => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10920	11050	
==>f => '%:private_methods');
    }        
    else {
        confess "There is no " . $params->{for} . " method table";
    }
});

: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13189	13319	
==>_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13189	13319	
==>_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3436	3549	
==>js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3436	3549	
==>js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3436	3549	
==>js .= sprintf
        "PIL2JS.addmethod(%s, %s, %s);\n",
        PIL::name_mangle($_),
        PIL::doublequote($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1509	1614	
==>+ Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1509	1614	
==>+ Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1509	1614	
==>+ Number(idxs[i]);
        ret.push(array[idx] == undefined ? new PIL2JS.Box.Constant(undefined) : array[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6855	6975	
==>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6855	6975	
==>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6855	6975	
==>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b) is primitive i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	919	1043	
==>p {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	919	1043	
==>p {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	919	1043	
==>p {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«<»",    2, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	434	530	
==>ded 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	434	530	
==>ded 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	434	530	
==>ded 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5693	5824	
==>ect, like in JIB::Installation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    r <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	527	642	
==>syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tm <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	527	642	
==>syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tm <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5573	5714	
==>_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5573	5714	
==>_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2470	2611	
==>_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13458	13580	
==>e->output);
}

sub infest_syns {
    my $index = shift;

    my $p = Pod::PlainText->new(width => 1000);

    mkpath(my $sy <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	12	122	
==>rface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	12	122	
==>rface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6167	6352	
==>urn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6167	6352	
==>urn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6167	6352	
==>urn $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bind() must be a Scalar"
                    un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9634	9781	
==>);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9634	9781	
==>);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9634	9781	
==>);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14556	14728	
==>] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14835	15007	
==>] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6007	6128	
==>arget =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                err <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11633	11732	
==>a-model , any Class instances, themselves does Role since they
are just instances of Class which doe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11633	11732	
==>a-model , any Class instances, themselves does Role since they
are just instances of Class which doe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11633	11732	
==>a-model , any Class instances, themselves does Role since they
are just instances of Class which doe <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7726	7904	
==>ontent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Inv <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7726	7904	
==>ontent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Inv <==
3	/Users/nnunley/pugs/util/package-osx.pl	5584	5700	
==>al/man/man3/Perl6::Overview.3
        /usr/local/man/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Over <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19347	19449	
==>ble, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23899	24001	
==>ble, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22415	22517	
==>ble, where each tuple is a row and each
relation/tuple attribute is a column, but it is not the same as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2727	2906	
==>b { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2727	2906	
==>b { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2727	2906	
==>b { 
                            my $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	911	1030	
==>** Installed successfully!
.
    }
}
else {
    print << ".";
*** Installation failed (exit code $rv).
.
}

exit $rv;

s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2023	2121	
==>- Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Qu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2023	2121	
==>- Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1786	1922	
==>alue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1786	1922	
==>alue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1786	1922	
==>alue );
        }
    }
    else {
        warn "Not implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12180	12283	
==>od ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12180	12283	
==>od ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12180	12283	
==>od ($_[1]) not found for current class ($::CLASS)";
            $_normal_dispatch_cache{$::CLASS} = { $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4598	4696	
==>m_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(time <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4598	4696	
==>m_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(time <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4598	4696	
==>m_b(0) };
MULTI SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(time <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	592	728	
==>d'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	797	933	
==>d'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	853	989	
==>d'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23852	23973	
==>S 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6767	6883	
==>epth = 4;
	#$Data::Dumper::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::B <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29039	29139	
==>S	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4321	4418	
==><=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4321	4418	
==><=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4321	4418	
==><=>») { max $cmp, *@self }
sub JS::Root::min(Code $cmp = &infix:«<=>», *@array) is primitive { <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27824	27918	
==>method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

Th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27824	27918	
==>method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

Th <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1527	1636	
==>allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%hash ) or e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9321	9411	
==>r::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @st <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3146	3236	
==>r::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2878	3015	
==>)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3083	3220	
==>)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance_attrs <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6654	6800	
==>ensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6711	6857	
==>ensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @ <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9362	9467	
==>ile) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "can't close $f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4313	4435	
==>b match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4325	4447	
==>b match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12381	12475	
==>ildren).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and errnum() method <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1342	1437	
==>tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ nam <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1342	1437	
==>tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3709	3817	
==>relude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parame <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3709	3817	
==>relude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parame <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3709	3817	
==>relude::JS::Operators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parame <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4165	4296	
==>\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4305	4436	
==>\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $sel <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5363	5470	
==>o the package's meta info
        $meta->{archive} =
            $self->pool_rel->file( file($pkg->file)->ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1578	1686	
==>_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1578	1686	
==>_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22317	22402	
==>(Ca,to_lower(C)), char_type(Cb,to_lower(C)).

charset_member(_E,C,[char(C)|_]) :- !.
c <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8412	8538	
==>4) {
      SV* expr_code;
      SV* expr_result;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(std <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25521	25617	
==>e other components when and as the GPL requires distribution of
source code.  However, for an add <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25521	25617	
==>e other components when and as the GPL requires distribution of
source code.  However, for an add <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8334	8461	
==>s $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8527	8654	
==>s $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2091	2213	
==>{ pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3034	3136	
==>); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::refty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3034	3136	
==>); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::refty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3034	3136	
==>); # re{bless,base} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::refty <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1579	1683	
==>length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1579	1683	
==>length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1579	1683	
==>length));
  })')($self, @things);
}

method join(@self: Str $sep) { join $sep, *@self }
sub JS::Root::joi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15390	15482	
==>hich
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromising imple <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15390	15482	
==>hich
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromising imple <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3083	3205	
==>lf->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3584	3706	
==>lf->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	32	125	
==>InP5::Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN { <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2367	2463	
==>le()->{$spacePresent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6411	6506	
==>.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::R <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6411	6506	
==>.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1366	1465	
==>ur @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1366	1465	
==>ur @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1366	1465	
==>ur @ISA = qw<PIL::PVal>;

  sub as_js { "new PIL2JS.Box.Constant($_[0]->[0])" }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2984	3092	
==>methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2984	3092	
==>methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2984	3092	
==>methods.
    if($self->type->isa("PIL::SubMethod")) {
      my $methname = $self->name;
      $methname = ($m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	717	824	
==>2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	717	824	
==>2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	717	824	
==>2005-08-31
# * New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	286	382	
==>hod new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::new( <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	286	382	
==>hod new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::new( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27019	27174	
==>)
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27298	27453	
==>)
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7037	7138	
==>y the cipher itself; more often it is used by 
a block cipher mode role to add some information to the <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7037	7138	
==>y the cipher itself; more often it is used by 
a block cipher mode role to add some information to the <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2924	3020	
==>ence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2924	3020	
==>ence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11181	11282	
==>D methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11181	11282	
==>D methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11181	11282	
==>D methods would need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submet <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11314	11424	
==>}

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	633	723	
==><Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as det <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	633	723	
==><Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as det <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6432	6538	
==>m)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule Uni <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25747	25846	
==>he same arguments; they do not interact with the outside
environment at all.

A Relation::Example ob <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	399	496	
==>ess - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cut

$VERSION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3298	3403	
==>eference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3298	3403	
==>eference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3298	3403	
==>eference? ==> We can't know at compile-time.
    $native = undef
      if not defined $subname or $subname <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1604	1700	
==>self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1744	1840	
==>self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1404	1499	
==>= Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2->perl5;
print "B <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16881	16978	
==>eader field is used as a modifier to the
media type.  When present, its value indicates what addit <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16881	16978	
==>eader field is used as a modifier to the
media type.  When present, its value indicates what addit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6536	6641	
==>=> @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6536	6641	
==>=> @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6536	6641	
==>=> @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'Str';
    return Ref->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7471	7576	
==>omp => chr(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join("", map chr(hex), @hex <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33188	33284	
==>sponding Template modules will be searched in the order
they appear in this array until a match f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33188	33284	
==>sponding Template modules will be searched in the order
they appear in this array until a match f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	156	257	
==>JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	156	257	
==>JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonke <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	156	257	
==>JS;
use JavaScript::SpiderMonkey;

sub new {
    my($class)=@_;
    my $jssm = JavaScript::SpiderMonke <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6322	6442	
==>FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6322	6442	
==>FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6322	6442	
==>FETCH()), cc = args.pop();
      arr.reverse();
      cc(new PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub inf <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1175	1289	
==>$sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File:: <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1175	1289	
==>$sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	323	434	
==>::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	323	434	
==>::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	323	434	
==>::PAssign";
}

sub as_js {
  my $self = shift;
  no warnings "recursion";

  return PIL::possibly_ccify $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5197	5330	
==>s) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5197	5330	
==>s) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5197	5330	
==>s) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	469	574	
==>ass"));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 ha <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14436	14536	
==>by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14494	14594	
==>by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3468	3576	
==>9) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  retu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3468	3576	
==>9) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	78	193	
==>onfig;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	78	193	
==>onfig;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	78	193	
==>onfig;
use File::Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2679	2776	
==>$ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2679	2776	
==>$ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2679	2776	
==>$ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ARGV[2]\n";
  exec pwd("runjs.pl"), @ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13021	13138	
==>p{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13021	13138	
==>p{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13021	13138	
==>p{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - add line number, if string doesn't terminate in "\n"
    w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3370	3527	
==>el} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3370	3527	
==>el} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5672	5809	
==>it, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avai <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6136	6273	
==>it, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1422	1533	
==>ngified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1422	1533	
==>ngified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1422	1533	
==>ngified.
# * Array is stringified using parenthesis.
#
# 2005-08-26
# * New internal class 'Perl6::Slice'
#   su <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1841	1939	
==><1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not pr <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1841	1939	
==><1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	235	485	
==>TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	235	485	
==>TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	53	170	
==>ings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    '...' 
    "..."
    q(...) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7707	7805	
==>n of this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() retur <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7707	7805	
==>n of this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	581	687	
==>erl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	581	687	
==>erl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4902	5064	
==>' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4914	5076	
==>' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4135	4257	
==>nd return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4135	4257	
==>nd return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4135	4257	
==>nd return if $@;
  print $OUT $pil;
}

sub command_pil_yaml {
  my $pil  = eval { compile_perl6_to_pil "-e", $_[0] };
  pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4379	4508	
==>=> 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4379	4508	
==>=> 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4379	4508	
==>=> 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_fro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2372	2462	
==>IB::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> returns the vers <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	274	408	
==>-> $x{
      if ++$iter == +@x {
          $str = append_last($x,$str,$iter);
        return $str;
      }else{
        $str ~= addtoli <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1856	1959	
==>opy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.interse <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1856	1959	
==>opy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.interse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4697	4796	
==>s)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding firs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4697	4796	
==>s)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding firs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4697	4796	
==>s)};
MULTI SUB so () {...};
#MULTI SUB ¥ () {...}; - need protective unicode mangling/encoding firs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	128	241	
==>e(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	128	241	
==>e(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	128	241	
==>e(mod);
    for (var sym in imports) {
      var f = Perl5.perl_can(mod, imports[sym]);
      // XXX: should be ca <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50046	50236	
==>y $e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5053	5169	
==>odel and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5053	5169	
==>odel and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12881	12998	
==>self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27020	27137	
==>self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	135	241	
==>6 %:methods;

method new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3174	3275	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->positio <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1099	1194	
==>r returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1099	1194	
==>r returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	395	506	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	395	506	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	395	506	
==>unt - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21590	21693	
==>(@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB sp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21590	21693	
==>(@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB sp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21590	21693	
==>(@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0->push( @xxa ) };
MULTI SUB sp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	726	910	
==>]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1848	1994	
==>tart,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) { <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1848	1994	
==>tart,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15247	15343	
==>t there
should be no ambiguity when trying to invoke or implement it, and so an
application writt <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15247	15343	
==>t there
should be no ambiguity when trying to invoke or implement it, and so an
application writt <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6749	6866	
==>om, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6749	6866	
==>om, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6749	6866	
==>om, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive is rw {
  JS::inline('new <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	498	612	
==>create a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### copy all the stuff over t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	486	576	
==>ed,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	486	576	
==>ed,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Matc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2597	2714	
==>xpect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot inherit from TestP <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	362	469	
==>xpect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestP <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	362	469	
==>xpect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot inherit from TestP <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8707	8798	
==>=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8707	8798	
==>=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied C <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	617	744	
==>{ $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $c <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	617	744	
==>{ $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1766	1880	
==>s %s] belongs inside character classes';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4004	4140	
==>mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4004	4140	
==>mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4004	4140	
==>mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8194	8314	
==>l data, but this is a low-level op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7918	8034	
==>l data, but this is a low-level op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16410	16498	
==>0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10822	10913	
==>ontent_length returns Str>

=back

B<The following informational functions are fetched on-de <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10822	10913	
==>ontent_length returns Str>

=back

B<The following informational functions are fetched on-de <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4103	4192	
==>p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	454	557	
==>rgs.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	454	557	
==>rgs.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	454	557	
==>rgs.pop();
    var ret   = array.pop();
    cc(ret == undefined ? new PIL2JS.Box.Constant(undefined) : r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2352	2453	
==>re.  Call the closure with a block of 
data to have it enciphered or deciphered; when you're done, cal <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2352	2453	
==>re.  Call the closure with a block of 
data to have it enciphered or deciphered; when you're done, cal <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	483	583	
==>ies);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) { <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	483	583	
==>ies);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) { <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23442	23579	
==>EEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_SEEN_CA <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2172	2288	
==>ontrol:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2172	2288	
==>ontrol:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'in <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	586	690	
==>eturn $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1] <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	586	690	
==>eturn $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1] <==
3	/Users/nnunley/pugs/util/combine_tests.pl	132	230	
==>File($_) } @ARGV;
#
#my $combined = combine_tests(@data);
#
#print YAML::Dump($combined);
print Dum <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9441	9535	
==>ose objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::M <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9441	9535	
==>ose objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::M <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	453	548	
==>D REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote. <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	453	548	
==>D REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote. <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	777	869	
==>as($?CLASS, "code", "Str");

# corresponding reverse attributes
#has Meta::Assoc @.rev_assocs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3468	3571	
==>{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3468	3571	
==>{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3468	3571	
==>{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pFun pLV pVarName){if(exists $n->{$k}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4344	4448	
==>->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4344	4448	
==>->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4344	4448	
==>->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2863	2985	
==>als::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv> ($a, $b) {
    $a eq $b
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2863	2985	
==>als::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv> ($a, $b) {
    $a eq $b
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2863	2985	
==>als::eval_perl5($code) }
    else { die "Language \"$lang\" unknown."; }
}

multi sub infix:<eqv> ($a, $b) {
    $a eq $b
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	395	503	
==>ch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	395	503	
==>ch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	395	503	
==>ch_end_exception(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5443	5607	
==>end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5443	5607	
==>end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5443	5607	
==>end, step => $step ) 
        },
        sum => sub {
            $_[0]->elems * ( $start + $end ) / 2;
        },
        shift_n => sub {
            my $list = sh <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5978	6080	
==>tlen = 0
  term_literal_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_cclass .CCLASS_W <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4950	5047	
==>2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it a <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4950	5047	
==>2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19593	19679	
==>Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPAT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19593	19679	
==>Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPAT <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	733	830	
==>onstants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	733	830	
==>onstants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::C <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18977	19070	
==>0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1,Fx,F1,Bx,B1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17081	17250	
==>bclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17081	17250	
==>bclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17081	17250	
==>bclass;
                    $traversal->($subclass);
                }
            }
        };
        $traversal->($::Object);
        # now destroy them... destroy the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4735	4857	
==>> { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4928	5050	
==>> { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
} <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13561	13673	
==>t` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by entering t <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3353	3475	
==>rovides(%{ $build->find_dist_packages || {} });
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8851	8944	
==>_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2676	2769	
==>_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	456	574	
==>he sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	456	574	
==>he sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	456	574	
==>he sub we're currently in?
our $CUR_SUBNAME;

# Our current pos?
our $CUR_POS  = bless {
  posName => "<unknown>",
  po <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1890	2007	
==>d $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
}
sub _indent {my($o,$s)=@_; $s =~ s/^ <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	173	269	
==>ill overwrite. So smartmatch can be
implemented using some is_subtype? (QQQ what's it called?) te <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3099	3193	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3099	3193	
==>Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3279	3381	
==>sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3279	3381	
==>sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3279	3381	
==>sub {
    my ($self, $label) = @_;    
    exists ::opaque_instance_attr($self => '%:attributes')->{$la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4761	4908	
==>rom;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be wan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4761	4908	
==>rom;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be wan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4761	4908	
==>rom;
        $a.push($m0) if $at > $prev; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be wan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5379	5477	
==>container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5379	5477	
==>container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5969	6067	
==>container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: check <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	841	954	
==>n't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	841	954	
==>n't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	841	954	
==>n't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/class.pl	2	105	
==>class1.pl - Klassen in Perl 6
use v6;

class MeineKlasse {
	method grüße { say "Hallo :-)" }
}

my $va <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3091	3193	
==>nce => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3091	3193	
==>nce => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17195	17291	
==>ckage or application says that it uses
Locale::KeyedText, that is a terse way of saying that it s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17195	17291	
==>ckage or application says that it uses
Locale::KeyedText, that is a terse way of saying that it s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9392	9478	
==>arset_identifier(X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charset_identifi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8456	8568	
==>not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8456	8568	
==>not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	134	231	
==>ubs,
# or implemented in p6 (S29 already defines some p6 implementations).
# To contribute, just s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3692	3784	
==>ce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3692	3784	
==>ce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3692	3784	
==>ce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13888	13987	
==>ool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, y <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13946	14045	
==>ool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, y <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6064	6172	
==>returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6064	6172	
==>returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19379	19484	
==>sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order function that takes a function a <==
3	/Users/nnunley/pugs/util/config_h.pl	1426	1543	
==>_HAVE_TH\n";
    warn << '.';

*** Template Haskell compiler backends disabled.  If you want
    Template Haskell supp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24311	24422	
==>}, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternati <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20732	20843	
==>}, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1056	1169	
==>ush(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1056	1169	
==>ush(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1056	1169	
==>ush(deleted == undefined ? new PIL2JS.Box.Constant(undefined) : deleted);
      }
      cc(new PIL2JS.Box.Constant <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	270	384	
==>ass, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_number($value)) 
        || <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1167	1279	
==>: "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2041	2153	
==>: "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	237	353	
==>rst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	237	353	
==>rst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &inf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	237	353	
==>rst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS::Root::any;
our &inf <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8340	8448	
==>uleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8051	8154	
==>uleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alter <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3737	3842	
==>local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5639	5744	
==>local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1172	1263	
==>her or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is wha <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	234	343	
==>onstant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	234	343	
==>onstant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	234	343	
==>onstant(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3127	3238	
==>e case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3127	3238	
==>e case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3127	3238	
==>e case, as
      # &prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5419	5527	
==>' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5419	5527	
==>' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	130	225	
==>nly compiles Grammar sections
# The full version is on misc/pX/Common/lrep*
# ***************

u <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33669	33910	
==>,                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;               
                $e->create('$return' => bit->new(0));
                $e->get('$sel <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12095	12192	
==>urrence that is right before the parameter.

- `current( $x )`

Returns the parameter value if the <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12095	12192	
==>urrence that is right before the parameter.

- `current( $x )`

Returns the parameter value if the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	897	1006	
==>)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	897	1006	
==>)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probabl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	897	1006	
==>)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (iblech) probabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3191	3300	
==>or each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3191	3300	
==>or each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3191	3300	
==>or each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is rw" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6959	7088	
==>1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6959	7088	
==>1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $e <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6959	7088	
==>1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{start};
    my $e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2235	2377	
==>e path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2235	2377	
==>e path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2235	2377	
==>e path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = precompile the Prelude
:pil < <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1200	1350	
==>ildNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1200	1350	
==>ildNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollH <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1200	1350	
==>ildNodes[i].appendData(msg);
                  window.scrollTo(0, document.body.offsetHeight
                                  || document.body.scrollH <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9230	9362	
==>ess
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9218	9350	
==>ess
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_matc <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	101	189	
==><'END';
<html>
<head>
<title>Public HTML</title>
</head>
<script>
function openNewWindows <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21991	22131	
==>erse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chao <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21991	22131	
==>erse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chao <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21991	22131	
==>erse @classes) {
            $class->DESTROY();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chao <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8994	9104	
==>universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-ze <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8994	9104	
==>universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-ze <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4282	4376	
==>ce is significant. Defaults to 1 in Rules.

=head2 match (Str $match_against)

Instance method. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7524	7648	
==>mmar => 'rxinfix',
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseud <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4416	4513	
==>lass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_pre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6318	6415	
==>lass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1260	1358	
==>s
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1260	1358	
==>s
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1260	1358	
==>s
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFEED#\n// later.
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4508	4653	
==>, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4508	4653	
==>, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4508	4653	
==>, $c\$__b";
  my $type  = $arity == 1  ?? "method"            !! "sub";
  my $colon = $arity == 1  ?? ":"                 !! "";
  my $trait = $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	341	439	
==>s
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	341	439	
==>s
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	341	439	
==>s
  jsbin_hack
  run_pugs run_pil2js run_js run_js_on_jssm run_js_on_jspm
>;
our @EXPORT_OK = qw< p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5153	5270	
==>eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5153	5270	
==>eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5153	5270	
==>eval ~= "
    sub prefix:«[$op]» (*\@things) is primitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \} <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17484	17578	
==>`current()`, and `reset()` methods.

If the span is "continuous", this method emits a warning a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17484	17578	
==>`current()`, and `reset()` methods.

If the span is "continuous", this method emits a warning a <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16599	16684	
==>,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16321	16447	
==>*substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_dat <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20747	20873	
==>*substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_dat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1176	1277	
==>e first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1176	1277	
==>e first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1256	1357	
==>e first test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10010	10189	
==>( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6351	6530	
==>( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7200	7379	
==>( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $binding .= 
                    #"    print \"binding: \\n\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2965	3074	
==>lobal');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2965	3074	
==>lobal');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2965	3074	
==>lobal');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
      my $s = ~$str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	108	223	
==>S.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	108	223	
==>S.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	108	223	
==>S.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27731	27866	
==>( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28010	28145	
==>( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
3	/Users/nnunley/pugs/util/grokprims.pl	727	816	
==>name, ret=>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" enc <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4334	4475	
==>e" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs to precompile the Prelude\n"
        unless $Config{pugs};
    g <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21987	22080	
==>pply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21987	22080	
==>pply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	550	706	
==>l($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	550	706	
==>l($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	550	706	
==>l($js);    
    die "$self: init: $@" if $@;

    $self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	20495	20658	
==>"x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => ide("r"),
							) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6511	6617	
==>'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'sc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6511	6617	
==>'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4334	4435	
==>$param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4334	4435	
==>$param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4334	4435	
==>$param{array})." -- ".Perl6::Value::stringify($param{slice})."\n";
    bless { %param }, $class;
} 
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2341	2475	
==>tr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remain <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2251	2381	
==>tr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remain <==
3	/Users/nnunley/pugs/util/package-osx.pl	7058	7169	
==>3
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3pm
        /usr/local/man/man3/Perl6::Pugs.3
        /usr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	691	822	
==>{ $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp 'infix:<times> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11834	11945	
==>k
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11828	11939	
==>k
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16670	16776	
==>( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16670	16776	
==>( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16670	16776	
==>( start => 10, end => 20 );
  
  my $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6928	7051	
==>hift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6928	7051	
==>hift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6928	7051	
==>hift();
    var cc    = args.pop();
    var iarr  = args[0].FETCH();

    // We don\'t create new containers (new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25305	25484	
==>Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25305	25484	
==>Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25305	25484	
==>Value::stringify( $tmp );
                    push @start, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                }
                for ( map { - $_ - 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1375	1489	
==>yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 ver <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1375	1489	
==>yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 ver <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1375	1489	
==>yet

# TODO - finish support for unshift, push 

# TODO - List.is_lazy() could be defined with a closure; Perl6 ver <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6203	6295	
==>::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffe <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6203	6295	
==>::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffe <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18843	18945	
==>{  # see 11.13
      <ConditionalExpressionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <A <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2620	2711	
==>ia NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Goog <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2620	2711	
==>ia NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Goog <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3528	3634	
==>}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilG <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3528	3634	
==>}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11866	11956	
==>_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11866	11956	
==>_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11866	11956	
==>_x(eval(p6_to_s($xx)))};
MULTI SUB Pugs::Internals::eval_haskell ($xx) {...};
MULTI SUB Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	4366	4485	
==>xpand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.split('');
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	4366	4485	
==>xpand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.split('');
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	4366	4485	
==>xpand($v) !! $v.values;
        %transtable{@ks} = @vs;
    }

    [~] map { %transtable{$_} // $_ }, $self.split('');
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	538	646	
==>urn $self->{values}{$key} if defined wantarray and !@_;
        $self->{values}{$key} = shift;
        return <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8790	8879	
==>(L0,L), !. % 45 is -
p5_charset_def([char(93)|L]) --> "]", p5_charset_items_opt(L0), p5_ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40349	40459	
==>his->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40349	40459	
==>his->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshif <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40349	40459	
==>his->{arrayref}}, $value->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11212	11322	
==>tements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8586	8708	
==>p',
      type => 'clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( R <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1462	1577	
==>_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1462	1577	
==>_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	783	896	
==>unt++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	783	896	
==>unt++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	783	896	
==>unt++;
    if eval($v) { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8229	8337	
==>lasses_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#================================ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8229	8337	
==>lasses_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#================================ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8229	8337	
==>lasses_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand();
}

#================================ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2901	2997	
==>urrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2901	2997	
==>urrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurre <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	105	247	
==>:Package;

use File::chdir;
use File::Basename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[c <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4826	4939	
==>mestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores{$runcore}{$cat} }
      ];
    }

    $runcores{$runcor <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1722	1819	
==>e.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1722	1819	
==>e.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1038	1128	
==>taModel_w_Roles.pl

$::Role = undef;

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1038	1128	
==>taModel_w_Roles.pl

$::Role = undef;

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1038	1128	
==>taModel_w_Roles.pl

$::Role = undef;

## -------------------------------------------------- <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3375	3474	
==>license specified, setting license = 'unknown'\n"
      unless $values{license};

    $values{licens <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	921	1012	
==>), chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	921	1012	
==>), chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	465	601	
==>ns {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_pac <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	465	601	
==>ns {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_pac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9768	9867	
==>lowercase -- unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9944	10111	
==>imToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6285	6452	
==>imToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7134	7301	
==>imToady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	338	532	
==>ant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	338	532	
==>ant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       , <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17467	17571	
==>. So if a is an int, $half_pair is b -> (int x b)
my $half_pair = comb(
	fun => ide("pair"),
	param => va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2052	2165	
==>p_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2052	2165	
==>p_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2052	2165	
==>p_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_meth <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1246	1396	
==>) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@l <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1246	1396	
==>) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@l <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8999	9106	
==>le;
  $file_key =~ s#\\#/#g;

  $relative_file =~ s/t$/html/;
  
  my $output_path   = inpath_to_outpath($in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10168	10310	
==>print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6509	6651	
==>print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7358	7500	
==>print \"binding: \\n\" . Dumper( match::get( \$_[0], '\$<$ident>' ) );\n" .
                    "    my $args[$_] = " . 
                    "m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	937	1044	
==>atcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	937	1044	
==>atcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	937	1044	
==>atcher = $class->dispatcher(':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9944	10068	
==>> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Compar <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1159	1280	
==>> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Compar <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17677	17796	
==>rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24110	24205	
==>am code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24110	24205	
==>am code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1374	1494	
==>y $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1374	1494	
==>y $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1374	1494	
==>y $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    my $r = try { $c(); say "ok $count - $msg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	526	654	
==>airs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	526	654	
==>airs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	526	654	
==>airs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4609	4729	
==>apturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4802	4922	
==>apturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        ma <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7564	7677	
==>e = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if pos == $I <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11054	11180	
==>has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11054	11180	
==>has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.spa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9613	9708	
==>1[0]);
    $tof->("deleteme_pil1",$c01[1]);
    system("diff -u --minimal deleteme_pil0 deleteme <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1544	1677	
==>g ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1544	1677	
==>g ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($. <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	641	772	
==>), :minute($minute), :second($second),
                             :tz($tz) );
}

# convert from an iso date
multi sub date( Str $i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3083	3195	
==>eq_pm
    my $subdirs = ($args->{DIR} ||= []);
    if ($self->bundles) {
        foreach my $bundle (@{ $self->bu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14124	14221	
==>) }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14124	14221	
==>) }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8188	8291	
==>.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8188	8291	
==>.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8188	8291	
==>.0.1-cpan:STEVAN' => sub {
      $::CLASS->superclasses([ $::Object ]);
      foreach my $name (qw(foo b <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2567	2663	
==>a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorpora <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2567	2663	
==>a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorpora <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34763	34973	
==>et('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$dispatcher')->do());
                })->do_while(
                    block->n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15836	15931	
==>k

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, : <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15836	15931	
==>k

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32070	32244	
==>, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32070	32244	
==>, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UN <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32070	32244	
==>, @tmp );
    }
    my $ret_length = 0;
    while ( @tmp ) {
        # warn "ret ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 && UN <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32778	32880	
==>=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_ascendant_dispatch <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2913	3001	
==>dule_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2913	3001	
==>dule_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2641	2783	
==>en;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2641	2783	
==>en;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2641	2783	
==>en;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if $DEBUG;
    my $class = $::Class->new();
    $self->_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1470	1604	
==>el} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1470	1604	
==>el} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1470	1604	
==>el} = $method;                
        #}
        elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5293	5393	
==>ush @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5293	5393	
==>ush @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5293	5393	
==>ush @js,
        "if($jsname == undefined && args.length > 0) $jsname = $undef.BINDTO(args.shift());" <==
3	/Users/nnunley/pugs/util/importgraph.pl	1527	1642	
==>L::isa($_, 'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unle <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26577	26670	
==>equal to
the invocant Relation's header, in which case it returns the identity-one
Relation or <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31129	31222	
==>equal to
the invocant Relation's header, in which case it returns the identity-one
Relation or <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2741	2855	
==>x" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" )
  {
    $token{syncat} = P <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	835	934	
==>ler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	835	934	
==>ler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1535	1656	
==>nce->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1535	1656	
==>nce->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1535	1656	
==>nce->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance, $class) = @_;
        (defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4975	5074	
==>my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4975	5074	
==>my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $li <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4975	5074	
==>my $line = <$read_fh>)) {
    $line =~ s/\Q$MAGIC_NOLF\E\n//g;
    print Encode::encode("utf-8", $li <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16801	16939	
==>);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [];
      $v = $f->($rest);
    } <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13237	13329	
==>lements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C< <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13237	13329	
==>lements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3263	3371	
==>&postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3263	3371	
==>&postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3263	3371	
==>&postcircumfix:<[ ]> has to be "is rw"
#        &infix:<,> has to be is rw, too (think ($a, undef, $b) = (1,2 <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	406	523	
==>es();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/var/www/ible <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29119	29215	
==>r" (that is, a '&&' with a
'&') are post-consumption: they have already matched what they are
nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1343	1437	
==>t},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1343	1437	
==>t},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1343	1437	
==>t},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknown options ignored.\n";

com <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15664	15756	
==>lain = sub { Carp::carp("p6_perl6_objects_from_whatever called on $_[0]"); undef };
my %as_p6 <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	9	90	
==>inc/Module/Install/Base.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19440	19543	
==>he same as a table.

The intended interface and use of this class in Perl programs is similar to
the int <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23992	24095	
==>he same as a table.

The intended interface and use of this class in Perl programs is similar to
the int <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22508	22611	
==>he same as a table.

The intended interface and use of this class in Perl programs is similar to
the int <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6535	6644	
==>f => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6535	6644	
==>f => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6535	6644	
==>f => '@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	38	145	
==>::Interface;

#options
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_p <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7054	7156	
==>lf; more often it is used by 
a block cipher mode role to add some information to the output.

A defaul <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7054	7156	
==>lf; more often it is used by 
a block cipher mode role to add some information to the output.

A defaul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16343	16484	
==>{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16343	16484	
==>{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1461	1575	
==>->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	269	374	
==>6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	269	374	
==>6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	269	374	
==>6_to_htmljs_with_links
  compile_perl6_to_pil
  precomp_module_to_mini_js
  jsbin_hack
  run_pugs run_pil2 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28569	28788	
==>')
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1668	1763	
==>tional methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf return <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1668	1763	
==>tional methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	163	268	
==>::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	163	268	
==>::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	163	268	
==>::Root::rx_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1318	1444	
==>$self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1318	1444	
==>$self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1318	1444	
==>$self = ::create_opaque_instance(\$class, %attrs);     
               
    # and now return it ...
    return $self;
}));

$:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2962	3082	
==>rn;
    }

    return 1;
}

### these plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? ho <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24781	24878	
==>uitable starting points
 * for a match, cutting down the work a lot.  Regmust permits fast rejecti <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5947	6038	
==>= $self->SUPER::splat($accum);
}

sub free_vars { $_[0] }

package type::variable::instantia <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3274	3380	
==>0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3274	3380	
==>0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3274	3380	
==>0]->fixed_name }
  sub is_first_slurpy :lvalue { $_[0]->{isFirstSlurpy} }

  sub fixup {
    my $self = shi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4951	5081	
==>ate")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4951	5081	
==>ate")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_s <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1826	1937	
==>t::reduce (Code $expression ; *@values) returns Scalar {
   my $res;
   for @values -> $cur {
        FIRST {$re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11827	11964	
==>' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11827	11964	
==>' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11827	11964	
==>' );
    my $s = Perl6::Value::identify( $key );
    my $r = delete $this->{$s};
    $r->[1];
}
sub clear {
    my ( $this ) = @_;
    %$t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7050	7174	
==>rimitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7050	7174	
==>rimitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7050	7174	
==>rimitive {
  while @rest {
    $head = $head{shift @rest};
  }

  $head;
}

sub prefix:<[.[]]> (*$head is copy, *@rest is cop <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	159	260	
==>$flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	159	260	
==>$flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { boo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18597	18751	
==>apture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18876	19030	
==>apture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4832	4940	
==>right x for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... got the right cleared x for p3d');
is($p3d <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11404	11498	
==>_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TOD <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11404	11498	
==>_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12490	12593	
==>ed ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12490	12593	
==>ed ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12490	12593	
==>ed ($xx) { $xx->defined };
MACROP5   last (*@xx) {p6_last_macro()}; # XXX - ?$xx
MACROP5   next (*@xx) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8639	8753	
==>alue::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8639	8753	
==>alue::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8639	8753	
==>alue::stringify($i)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34933	35060	
==>or @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34933	35060	
==>or @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34933	35060	
==>or @list, "\n";
    # print " offset $offset length $length \n";
    if ( $offset >= 0 ) {
        ( $len_head, @head ) = $array <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9176	9270	
==>k} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(St <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9176	9270	
==>k} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2156	2252	
==>if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2156	2252	
==>if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2156	2252	
==>if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5902	6013	
==>e' to a native type";
    my $current = $self;
    while ($current) {
        if (exists $current->{env}->{$name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6466	6570	
==>lared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( liter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6249	6351	
==>lared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( liter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5197	5301	
==>er::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $da <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5017	5116	
==>er::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $da <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1432	1552	
==>"";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1432	1552	
==>"";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1432	1552	
==>"";
    $count++;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	388	484	
==>urn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	388	484	
==>urn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	388	484	
==>urn "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9985	10076	
==>n stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9985	10076	
==>n stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1533	1665	
==>Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4736	4868	
==>Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	552	644	
==>->new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1455	1555	
==>CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1435	1531	
==>CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4081	4213	
==>}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4081	4213	
==>}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2359	2488	
==>= %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) { <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2359	2488	
==>= %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1150	1257	
==>eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1150	1257	
==>eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1150	1257	
==>eval($js); # $@ passed on
}
sub eval_js {
    my($self,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY { <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3773	3878	
==>shuffle}+=0;
    $self->{_config} = \%Config;
    $self->{_timing}{start} = time;

    $self->SUPER::_init <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13398	13493	
==>ders only.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13398	13493	
==>ders only.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1037	1146	
==>sented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4515	4624	
==>sented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and t <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4186	4284	
==>will
    introduce Pugs.
  --splashscreen=$splashscreen
    The file referenced by --splashscreen w <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2309	2426	
==>"$code";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $stat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2309	2426	
==>"$code";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	699	812	
==>ndBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	699	812	
==>ndBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	699	812	
==>ndBin::Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2548	2644	
==>d end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bo <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2548	2644	
==>d end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3477	3577	
==>the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptogra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3477	3577	
==>the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptogra <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1440	1634	
==>g class, it can default to True or 
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submeth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4918	5111	
==>g class, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submeth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3848	4041	
==>g class, it can default to True or
        # False, but once it has a value of False, it can not be changed.

###########################################################################

submeth <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10087	10182	
==>te the
testing of those features. For more information see the FUTURE PLANS
section of this docu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10145	10240	
==>te the
testing of those features. For more information see the FUTURE PLANS
section of this docu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14733	14884	
==>has Int  $.month;   # 1 to 12 - NOTE 1-based
    has Int  $.day;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 to 59
    h <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2775	2871	
==>ver
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2775	2871	
==>ver
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	351	455	
==>b auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI modu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	351	455	
==>b auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI modu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18345	18443	
==>o users, easy messages are
better.

I have found that when it comes to getting the most accurate pr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18345	18443	
==>o users, easy messages are
better.

I have found that when it comes to getting the most accurate pr <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14331	14417	
==>ncat_atom(['use charnames ":full";unpack("U*","\\N{',AName,'}\n")'],Cmd),
  !, perl5_ev <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	57	168	
==>t;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_r <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	57	168	
==>t;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_r <==
3	/Users/nnunley/pugs/util/addauthors.pl	235	332	
==>}++;
}

#foreach (sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	543	649	
==>-----------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff lat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	543	649	
==>-----------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff lat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	543	649	
==>-----------------------
## Eigenclass

$::EigenClass = $::Class->new();
# do this (and some other stuff lat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6501	6611	
==>obal PPad may not be doing the right thing\n";
	$decl = "no strict; ($varlist)$init; use strict;";
    }
    el <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1884	1987	
==>lice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Pe <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1884	1987	
==>lice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13193	13292	
==>ier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier unexp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	657	752	
==>reation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_disc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	657	752	
==>reation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_disc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38330	38440	
==>ount => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub revers <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38330	38440	
==>ount => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub revers <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38330	38440	
==>ount => ( $pos - $array->elems ) );
    push @{$array->{items}}, $fill, $item;
    return $array;
}

sub revers <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4510	4614	
==>ed on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org >>

=cut <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4510	4614	
==>ed on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org >>

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4590	4694	
==>ed on L<Test::Tester> by Mark Fowler

ported to Perl 6 by chromatic C<< chromatic at wgz dot org >>

=cut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1405	1524	
==>lsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1405	1524	
==>lsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%heade <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3066	3267	
==>lator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Ros <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3066	3267	
==>lator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Ros <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1495	1639	
==>rl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # script di <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	839	975	
==>_PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3752	3844	
==>erl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self->g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	83	187	
==>[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	83	187	
==>[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	83	187	
==>[0] }

sub as_js {
  no warnings "recursion";
  return sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4349	4467	
==>~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4349	4467	
==>~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10943	11048	
==>openFile($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::Tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1316	1414	
==>TINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1316	1414	
==>TINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1316	1414	
==>TINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box.Constant($name); pad['\$?SUBNAME'] = _24 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20670	20771	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20670	20771	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20670	20771	
==>($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5966	6066	
==>REATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5966	6066	
==>REATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5966	6066	
==>REATE('*Foo::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent pac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5843	5953	
==>();

    $<op> := (die|\.\.\.) \;
        { return { _simple_statement => $() ,} }
RULE
*{'sub_decl'} = Pugs::C <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	740	835	
==>LS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	740	835	
==>LS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7280	7420	
==>unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7280	7420	
==>unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7280	7420	
==>unbind - elems ". $_->elems . "\n";
                        UNIVERSAL::isa( $_, 'Perl6::Value::List' ) ? $_->clone : $_
                    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	559	671	
==>ub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	656	768	
==>ub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	986	1084	
==>ess_upload {
  print "Content-Type: text/plain\n\n";

  limit_rate();
  validate_params();
  add_sm <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8493	8663	
==>@_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8493	8663	
==>@_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1748	1842	
==>can("reduce_" . $node->struct_equiv->moniker)) {
		return $self->$meth($node);
	} else {
		retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	866	984	
==>ee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	866	984	
==>ee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	866	984	
==>ee && array.autoderef) array = array.referencee.FETCH();

    for(var i = add.length - 1; i >= 0; i--) {
      array.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10470	10645	
==>@{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10470	10645	
==>@{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10470	10645	
==>@{ $self->params };
                my $i = 0;
                my $num_required = 0;
                # warn "params ". @{ $self->params } . " -- @params";
                while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8579	8722	
==>t = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8579	8722	
==>t = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8579	8722	
==>t = $param{count};
    $count = 0 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_x( item => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7172	7283	
==>RS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7172	7283	
==>RS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7172	7283	
==>RS_TO_BACKUP;
    my $backup      = "var " . join ", ", map {
      sprintf "backup_%s = %s", PIL::name_mangle($ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1351	1480	
==>ELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1351	1480	
==>ELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	163	249	
==>ta-Model with Self-Bootstrapping Roles
## --------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1047	1154	
==>, # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1047	1154	
==>, # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1047	1154	
==>, # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is print, w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9673	9804	
==>orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9673	9804	
==>orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9673	9804	
==>orig = Number(idxs[i]);
        idxs[i] = array.length + idxs[i];
        orig_value[idxs[i]] = orig;
      }
    }

    if(idxs.len <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2306	2416	
==>mmar_name> \;[ [<rule>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8329	8432	
==>ex{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8317	8420	
==>ex{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$ma <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16555	16678	
==>rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1-> <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15607	15722	
==>rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1-> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43280	43371	
==>Perl 6 package L<Relation::Example> is bundled with Relation and
provides a reference implem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6144	6272	
==>ingify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6144	6272	
==>ingify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6144	6272	
==>ingify( $_[0]->default ) if $_[0]->default;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8835	8954	
==>arious set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8835	8954	
==>arious set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4724	4868	
==>($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4724	4868	
==>($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4724	4868	
==>($_[0]) eq 'Dispatchable' && $_[0]->isa('Array') } ) : 
            $name =~ /^\%/ ? 
                Perl6::Type->new( 
                    name <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	939	1050	
==>S

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	939	1050	
==>S

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4611	4698	
==>> {true}.

p5_range_bounds(Min,Max) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1159	1296	
==>)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1113	1243	
==>)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'= <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7516	7633	
==>pos = mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NU <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1612	1708	
==>s C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=hea <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1612	1708	
==>s C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=hea <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6852	6955	
==>fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) {
    SV* sv;
    sv = eval_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	919	1015	
==>ent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	919	1015	
==>ent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2638	2754	
==>patcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2638	2754	
==>patcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2638	2754	
==>patcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we are not a class of s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10734	10923	
==>ion,
          $.passed,
          ?$.number     =     0,
          ?$.diagnostic = '???',
      ) {}
  
      method status returns Hash
      {
          return
          {
              p <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	40	133	
==>Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	40	133	
==>Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5832	5940	
==>$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5832	5940	
==>$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5832	5940	
==>$bare) = sigil_and_rest($mn);
    '*'.$bare;
}

sub def_prim { # used by Prim
    my($flavor, $name, $argl, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4	129	
==>rameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4	129	
==>rameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4	129	
==>rameters
{
  package PIL::Params;

  use warnings;
  use strict;

  sub fixup {
    my ($self, $prefix, $subbody) = @_;
    lo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27941	28046	
==>jects, or the object you create isn't
a modification of a standard object, no warnings will be issued.

=h <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2325	2419	
==>e
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-backtracking engi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2325	2419	
==>e
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-backtracking engi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	66	189	
==>s returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	66	189	
==>s returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	66	189	
==>s returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	835	1012	
==>e token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@curren <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	835	1012	
==>e token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3456	3555	
==>p2->get_y, 200, '... got the right y for p2');

$p->clear;
is($p->get_x, 0, '... got the right x for <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3666	3820	
==>($val);            
            $closure->do(list->new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure->isa('block')) <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13136	13233	
==>s '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all e <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13136	13233	
==>s '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	810	913	
==>bject ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	810	913	
==>bject ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	810	913	
==>bject ];
::opaque_instance_attr($::Object => '@:MRO') = [ $::Object ];

# this is to get the right @:MRO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3958	4060	
==>in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3958	4060	
==>in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3958	4060	
==>in ' . $PIL::CUR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]- <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	128	218	
==>mmentieren mehrerer Zeilen kann man POD benutzen:

#!\begin{block}{}\texttt{
=begin COMMENT <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	851	968	
==>"-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => joi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	752	869	
==>"-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => joi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	281	372	
==>:Object ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinder;
	use base qw/Blondie: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8311	8418	
==>kind =~ s/^Sub(\w+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implem <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8811	8911	
==>r %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8811	8911	
==>r %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels{ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14084	14213	
==>r $c->get_attribute_list() -> $attr {
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32416	32517	
==>dentical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36966	37067	
==>dentical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36256	36357	
==>dentical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2078	2181	
==>le->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2078	2181	
==>le->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2078	2181	
==>le->name('Role');
$::EigenClass->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4892	4989	
==>eSafe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unified_app, <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	694	790	
==>t) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) retu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	694	790	
==>t) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1716	1877	
==>rrent_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1716	1877	
==>rrent_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $curren <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1716	1877	
==>rrent_class->superclasses}, 
                $::{'*'}->FETCH($superclass) 
            ]);
        }  
        elsif ($token eq 'method') {
            my $curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24190	24351	
==>rl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24190	24351	
==>rl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24190	24351	
==>rl6::Value::numify($param[0]) ) )
                }
                if ( $method eq 'is_infinite' ) {
                    return Bit->new( '$.unboxed' => $tmp->$m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5343	5462	
==>atch->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5343	5462	
==>atch->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16350	16453	
==>rse error' instead of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7324	7426	
==>ages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7324	7426	
==>ages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3203	3298	
==>tes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3203	3298	
==>tes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3203	3298	
==>tes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4270	4393	
==>",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4270	4393	
==>",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4270	4393	
==>",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15150	15250	
==>od notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15150	15250	
==>od notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4853	4954	
==>p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev ha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4853	4954	
==>p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev ha <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4853	4954	
==>p6_from_s(cwd)};
MULTI SUB File::Spec::tmpdir () {...};
# pi say - placed above, as a temporary dev ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2763	2882	
==>ocal $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2763	2882	
==>ocal $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2763	2882	
==>ocal $::CLASS = $new_class;
        $body->();
    }
    elsif (ref($body) eq 'HASH') {
        $new_class->superclasses <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6086	6214	
==>> \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6086	6214	
==>> \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9120	9206	
==>MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9224	9307	
==>MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2620	2733	
==>(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.i <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2620	2733	
==>(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.i <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18512	18599	
==>0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	945	1059	
==>acking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	945	1059	
==>acking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17824	17933	
==>ls) = @_;
    print $line if $Verbose;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $type, $tot <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2989	3095	
==>odule_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$gh <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2989	3095	
==>odule_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$gh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1745	1867	
==>et = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1745	1867	
==>et = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1745	1867	
==>et = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get_value(key);
          return ret == undefined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3065	3172	
==>package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3065	3172	
==>package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3065	3172	
==>package PApp; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my($self)=@_;

    $PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17407	17498	
==>r.
Module::Compile controls the compilation process, calling each compiler
at the right time <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17407	17498	
==>r.
Module::Compile controls the compilation process, calling each compiler
at the right time <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10203	10315	
==>hod_name = $name || 'emit';
}
sub gen {
    my($name,$vars,$body)=@_;

    my $info = $PIL::PIL1CPerl5::NodesInfo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7202	7308	
==>late text for the given message key from the
        # successfully loaded template module; on a function c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7202	7308	
==>late text for the given message key from the
        # successfully loaded template module; on a function c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18303	18396	
==>the document from which the
requested resource address was obtained.

The "Free On-line Dictio <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18303	18396	
==>the document from which the
requested resource address was obtained.

The "Free On-line Dictio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3923	4026	
==>>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIB <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3923	4026	
==>>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIB <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5447	5550	
==>>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Test::Builder.

=head1 PUBLIC ATTRIB <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8060	8215	
==>E_EXISTS
        },
        force => {
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Para <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4354	4457	
==>[-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless define <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4354	4457	
==>[-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10023	10127	
==>p;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10023	10127	
==>p;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10023	10127	
==>p;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use PIL::PNoop;
use PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14477	14635	
==>erload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14477	14635	
==>erload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14477	14635	
==>erload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        ($ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	214	319	
==>Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.pu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	214	319	
==>Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.pu <==
3	/Users/nnunley/pugs/util/importgraph.pl	2024	2107	
==>tup_rank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs.Pars <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3138	3245	
==>::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3138	3245	
==>::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8651	8750	
==>edicate!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1468	1595	
==>>{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1468	1595	
==>>{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1468	1595	
==>>{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8103	8212	
==>$irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8103	8212	
==>$irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7889	8009	
==>ing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7889	8009	
==>ing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7889	8009	
==>ing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => su <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5765	5997	
==>yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5765	5997	
==>yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13565	13670	
==>ssion> <Arguments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExpression>
    | <'new'> <?ws_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2611	2753	
==>rn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2611	2753	
==>rn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2611	2753	
==>rn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) unless <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2448	2567	
==>m<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2448	2567	
==>m<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $s <==
3	/Users/nnunley/pugs/util/package-osx.pl	4806	4903	
==>/man/man3/Perl6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4095	4290	
==>utput
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4095	4290	
==>utput
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4035	4130	
==>lass Class::Events::Notification {
    has Class::Events::Subscription $.subscription;
    has C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11793	11933	
==>a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8075	8215	
==>a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8909	9049	
==>a, '  ', \$src; \n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	315	426	
==>R};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	315	426	
==>R};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	315	426	
==>R};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL::name_ma <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2523	2632	
==>HOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1673	1780	
==>HOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1944	2057	
==>= @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1626	1735	
==>= @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2274	2383	
==>= @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbols";
    ( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3327	3434	
==>@$X::cap);
        my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
        push(@$var, <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	21	111	
==>Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::F <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	21	111	
==>Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35609	35744	
==>et );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35609	35744	
==>et );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35609	35744	
==>et );
        ( $len_head, @head ) = $array->_shift_n( Inf );
        if ( $length >= 0 ) {
            # negative offset, positive leng <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	132	315	
==>return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	132	315	
==>return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	104	221	
==>as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warning <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4694	4823	
==>o some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!childre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4694	4823	
==>o some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!childre <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7566	7674	
==>$temp1 = pop @tokenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1:
  my $arity = $$temp1{arity};
  $t <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	951	1067	
==>e "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} - $increment;
      }
      elsif($p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3716	3811	
==>epresents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infinit <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3716	3811	
==>epresents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1117	1243	
==>,
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1117	1243	
==>,
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1117	1243	
==>,
          new PIL2JS.Box(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8706	8822	
==>ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8706	8822	
==>ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8706	8822	
==>ret  = sprintf <<EOF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4836	4956	
==>ity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4836	4956	
==>ity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4836	4956	
==>ity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class->add_method('c <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13630	13738	
==>%as_array_handlers =
    ( undef => sub { $as_array_complain->("undef"); [] },
      numeric     => sub { $as <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23392	23486	
==>ar
future where "Relation" is a Role rather than a Class, and some
implementations are immutabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27944	28038	
==>ar
future where "Relation" is a Role rather than a Class, and some
implementations are immutabl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11654	11773	
==>aths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $self->_default_inc();
    @inc = g <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	7958	8076	
==>st::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8016	8134	
==>st::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34827	34926	
==>=> ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must al <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34827	34926	
==>=> ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33000	33093	
==>ample
which is the same as the invocant Relation::Example but that some of its
tuple/Mapping-v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15864	16045	
==>term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16143	16324	
==>term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26949	27054	
==>nswer */
 #define REINT_AUTORITATIVE_ML	0x0800000 
 #define REINT_ONCE_NOML		0x1000000 /* Intuit can succe <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2918	3010	
==>name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2918	3010	
==>name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	261	373	
==>CH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	261	373	
==>CH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	261	373	
==>CH(), cc = args.pop();

    var proxy = new PIL2JS.Box.Proxy(
      function () {
        return PIL2JS.cps2norma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9894	10051	
==>urn ::Test::Builder::Test::Skip.new(
              description => $description,
              passed      =>            1,
              reason      =>      $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	462	613	
==>urn ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	462	613	
==>urn ::Test::Builder::Test::Skip.new(
            description => $description,
            passed      =>            1,
            reason      =>      $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	390	492	
==>GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	390	492	
==>GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	390	492	
==>GUARD}) {
    require BSD::Resource;
    import BSD::Resource;
    setrlimit(RLIMIT_CPU(), 120, 140) or <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	953	1079	
==>{omit} = shift if @_;
    $self->{omit};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merg <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	93	198	
==>class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $me <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	93	198	
==>class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $me <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2661	2784	
==>l2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are th <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2661	2784	
==>l2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4615	4783	
==>lace_list -> @list
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement =     shif <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5225	5362	
==>require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlis <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5225	5362	
==>require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlis <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8744	8883	
==>d" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1790	1907	
==>r();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Prox <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1790	1907	
==>r();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Prox <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	247	359	
==>dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "war <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	247	359	
==>dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "war <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	194	290	
==>6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	194	290	
==>6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
requi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	194	290	
==>6::Value::Num::NaN() };

require Perl6::Container::Scalar;
require Perl6::Container::Array;
requi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1081	1198	
==>}
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1081	1198	
==>}
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1081	1198	
==>}
    );

    cc(proxy);
  })')($str, +$a, +$b < 0 ?? +$b - $a + chars $str !! +$b);
}

method split(Str $self: Str $s <==
3	/Users/nnunley/pugs/util/package-osx.pl	10887	11037	
==>fo\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ /\(?:readline|history\). <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2907	3008	
==>ther) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2907	3008	
==>ther) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8141	8275	
==>atch, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8141	8275	
==>atch, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	458	570	
==>que'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	458	570	
==>que'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	458	570	
==>que'; # opaque is our default
    my $self = $class->CREATE(repr => $canidate, %params);
    $self->BUILDALL(%par <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5371	5545	
==>q 'method') {
                $t = [ 'SUB' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4089	4195	
==>- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4089	4195	
==>- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or e <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	645	763	
==>extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	645	763	
==>extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_matc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2627	2737	
==>leop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2820	2930	
==>leop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       , <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4925	5038	
==>DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4925	5038	
==>DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4925	5038	
==>DEBUG;    
    my $method = eval $method_source;
    die "method eval failed : $@" if $@;
    return ($method_type <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4530	4630	
==>same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4530	4630	
==>same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6054	6154	
==>same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int $tests? )>

Sets the c <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8974	9090	
==>{
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8974	9090	
==>{
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8779	8925	
==>backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8779	8925	
==>backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8779	8925	
==>backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy);
  })')(@xs);
}
our &list := &infix:<,>;
our &pair := &infix:<,>;  # XX <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17150	17247	
==>e between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17150	17247	
==>e between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is e <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1546	1641	
==>> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1546	1641	
==>> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2841	2934	
==>h return and argument types differ.
multi infix:«¥» (Array *@arrays --> Lazy) { zip *@array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	280	377	
==>ere...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# shoul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	280	377	
==>ere...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# shoul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	280	377	
==>ere...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled to JS>";
# shoul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5598	5723	
==>t, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5598	5723	
==>t, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5598	5723	
==>t, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_method($method_name)) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24246	24344	
==>If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an empt <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28798	28896	
==>If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an empt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3730	3842	
==>0main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3730	3842	
==>0main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3730	3842	
==>0main_3a_3a_2aEND.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37893	38017	
==>) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37893	38017	
==>) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37893	38017	
==>) {
        # 'Array' takes care of proper cell re-binding 
        my $scalar = $array->fetch( $pos );
        if ( Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3928	4027	
==>_attr($self => '@:roles');
}));

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3928	4027	
==>_attr($self => '@:roles');
}));

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3928	4027	
==>_attr($self => '@:roles');
}));

## ---------------------------------------------------------------- <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2292	2504	
==>? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3880	4092	
==>? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3343	3441	
==>ubstr;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strbeg,strend-strbeg)));
    XPUSHs(sv_2mor <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	47	154	
==>";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Mart <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	43	150	
==>";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Mart <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	43	150	
==>";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Mart <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13412	13510	
==>ements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the sa <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13412	13510	
==>ements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the sa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1054	1149	
==>nt::indent;
	warn "annotation: $node";
	warn "reducing " . $node->struct_equiv; #. Data::Dumper: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11174	11300	
==>in,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11174	11300	
==>in,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11174	11300	
==>in,'lib6'));
    }
    push(@incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	284	384	
==>ds, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	284	384	
==>ds, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	284	384	
==>ds, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}

our(%modifiers <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3947	4054	
==>rn wantarray ? ($next, $depth-$d) : $next;
  }
}


sub visual {
  my ($self) = @_;
  $self->parse if $self-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13274	13360	
==>ntity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13274	13360	
==>ntity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2478	2626	
==>= lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2478	2626	
==>= lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2478	2626	
==>= lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unboxed ) };
    } 
    if <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1645	1751	
==>ew>

  my $strap = Test::Harness::Straps->new;

Initialize a new strap.

=cut

sub new {
    my $class = sh <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19072	19167	
==>r
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, em <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19072	19167	
==>r
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11803	11950	
==>$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11803	11950	
==>$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11803	11950	
==>$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell') },  # cell() is used by bind() / XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5111	5228	
==>call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5111	5228	
==>call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX thi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5111	5228	
==>call(undefined, %s, [\n%s,\n%s\n])", $sub, $cxt, $arg;
    }
  };

  return possibly_ccify_many(
    [
      # XXX thi <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	574	683	
==>s, $filename) = @_;
    $Conf = $class->read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we w <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10695	10790	
==>r();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10695	10790	
==>r();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43608	43804	
==>$self:')->class->send('dispatcher' => symbol->new(':canonical')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send(' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	741	861	
==>ntent-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	741	861	
==>ntent-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	660	791	
==>il\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	660	791	
==>il\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PIL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	48	160	
==>TE:
# I am keeping a copy of the original MiniMetaModel here
# for reference purposes, as this is what 2.0 is bas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1331	1435	
==>f));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1331	1435	
==>f));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1331	1435	
==>f));
  })')($self);
}

sub circumfix:<${}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7770	7884	
==>multi unify => ('type::variable::instantiated', 'type') => sub { unify($_[0]{instance}, $_[1], @_[2, 3]) };
multi u <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5279	5372	
==>C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5279	5372	
==>C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28123	28221	
==>__object__> the following
methods:

=over 4

=item my $d = $obj->data()

The object's data.  This m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13383	13478	
==>the
removed headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13383	13478	
==>the
removed headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3409	3554	
==>eate('$method' => $nil::NIL);
            $e->create('$current' => $e->get('&dispatcher')->do());                                  
            bl <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	130	243	
==>= $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    re <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	130	243	
==>= $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4499	4600	
==>sert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!membe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4499	4600	
==>sert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!membe <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5747	5835	
==>atement($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token {    def_token($X::cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4659	4760	
==>Read original module source code instead of taking from filter,
    # because we need all the lines in <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4659	4760	
==>Read original module source code instead of taking from filter,
    # because we need all the lines in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2575	2674	
==>tr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2575	2674	
==>tr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2575	2674	
==>tr($self => '%:methods')->{$label}) eq 'Perl6::StubMethod';
}));

$::Role->add_method('get_method_li <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17090	17204	
==>r loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20567	20681	
==>r loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20145	20259	
==>r loop to have fewer
        # iterations rather than the inner loop having fewer.
        ($?SELF, $other) = ($oth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8935	9101	
==>iables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8935	9101	
==>iables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8935	9101	
==>iables with an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_M <==
3	/Users/nnunley/pugs/util/version_h.pl	657	763	
==>id of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # This is a release -- do nothing!
}
elsif (-r $svn_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3278	3380	
==>) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1128	1230	
==>) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11623	11719	
==>s Role meta-model , any Class instances, themselves does Role since they
are just instances of Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11623	11719	
==>s Role meta-model , any Class instances, themselves does Role since they
are just instances of Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11623	11719	
==>s Role meta-model , any Class instances, themselves does Role since they
are just instances of Cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28811	28906	
==>ibute names, or duplicate any other value set members.  This
method supports having the new attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33363	33458	
==>ibute names, or duplicate any other value set members.  This
method supports having the new attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32500	32595	
==>ibute names, or duplicate any other value set members.  This
method supports having the new attr <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	106	201	
==>s, or of Pugs::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1567	1717	
==>msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1567	1717	
==>msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10164	10279	
==>} = $ifthen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and @{ $st->[-1] } and $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41176	41271	
==>les into the same files as
program code, rather than requiring separate files.

=item Stevan Lit <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41176	41271	
==>les into the same files as
program code, rather than requiring separate files.

=item Stevan Lit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	26	129	
==>lock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use wa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	26	129	
==>lock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1423	1536	
==>stantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1423	1536	
==>stantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1423	1536	
==>stantiate an infinite Array"
        if $ary->can('is_infinite') && $ary->is_infinite;
    my @a;
    for(my $i=Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5041	5168	
==>or });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5041	5168	
==>or });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5041	5168	
==>or });

Per each visited object referenced in $myobj, calls my_editor() on it.
The editor routine is passed the current object i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9111	9235	
==>ed: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slici <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9111	9235	
==>ed: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slici <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9111	9235	
==>ed: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "write_thru: Slici <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	505	628	
==>elf = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	406	529	
==>elf = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	419	547	
==>anted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	419	547	
==>anted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13288	13381	
==>ead2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13288	13381	
==>ead2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	703	796	
==>: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q( \w+ ))->code;

*block = Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8795	8914	
==>atchObj );
  end_2:
  $matchObjPos = -1;
  return ( $matchObj );

  ternary_error:
  $matchObjPos = -1;
  die "Missing t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12340	12539	
==>didate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12340	12539	
==>didate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12340	12539	
==>didate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary->pus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2222	2324	
==>leanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2222	2324	
==>leanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2222	2324	
==>leanup AUTOLOAD
# TODO - test 'readonly'

# Notes:
# * Cell is implemented in the Perl6::Container::Sca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	699	808	
==>elf = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIPTIO <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1323	1415	
==>IL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1323	1415	
==>IL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3495	3600	
==><EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3495	3600	
==><EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3495	3600	
==><EOF;
var __returncc = args.pop();
var subreturncc = function (retval) {
  PIL2JS_callchain.pop(); PIL2JS_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1487	1622	
==>ance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1487	1622	
==>ance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1487	1622	
==>ance || 'undef') . ")";        
        ${$instance->{class}};
    }
    
    sub ::opaque_instance_change_class {
        my ($instance <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	840	977	
==>mes{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.nam <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	840	977	
==>mes{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.nam <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1526	1650	
==>\>  \:\=  <construct>  }
rule array_alias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias             {  \%\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14215	14418	
==>{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14215	14418	
==>{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14215	14418	
==>{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatcher magic
    package Dispatchab <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1810	1924	
==>ort 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

su <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1810	1924	
==>ort 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1890	2004	
==>ort 
{
    push @expect_diag, $line;
}

sub test_diag ( Str $line ) is export
{
    push @expect_diag, $line;
}

su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3029	3131	
==>"the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3029	3131	
==>"the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_ba <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3029	3131	
==>"the JavaScript output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_ba <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2516	2650	
==>JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2516	2650	
==>JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2516	2650	
==>JS.Box(undefined)
          ));

        return hash.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.leng <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8388	8502	
==>($o)=@_;
    my $noop = $o->noop;
    my $s = join("",$o->data);
    my $len = length($s);
    if($o->{'flags'} & $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25141	25238	
==>_,E0).
set_modifiers_from(E0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F,G,H,I,J)) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3010	3369	
==>, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3010	3369	
==>, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

c <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14102	14204	
==>ression>
}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpression>
    | <CallExpression <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12798	12957	
==>> $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12798	12957	
==>> $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12798	12957	
==>> $_[1]) 
                    if $method = ::WALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21982	22188	
==>PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21982	22188	
==>PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @par <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21982	22188	
==>PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCHING THINGS @par <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19645	19757	
==>j" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4324	4418	
==>de> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C< <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4324	4418	
==>de> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C< <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17991	18127	
==>pe      => 'skip' or 'todo' (if any)
              reason    => reason for the above (if any)
            };

Element 0 of the details is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2938	3035	
==>host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2938	3035	
==>host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the c <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15922	16053	
==>$!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (split " ")[0];
    }

  return @so;
}

# This is a kludg <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15703	15801	
==>tively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15703	15801	
==>tively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyri <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3748	3845	
==>orrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The str <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3748	3845	
==>orrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The str <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18937	19024	
==>$replace)
{ Pugs::Internals::substr($s,$offset,undef,$length,undef,$replace) }


# unpac <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1044	1258	
==>48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet-- <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1044	1258	
==>48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet-- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10401	10560	
==>$::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10401	10560	
==>$::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10401	10560	
==>$::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::P <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12555	12648	
==>h.remove_header( $field, ... )

This function removes the header fields with the specified nam <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12555	12648	
==>h.remove_header( $field, ... )

This function removes the header fields with the specified nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3368	3484	
==>sion = $self->perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is ins <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2410	2525	
==>sion = $self->perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is ins <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13958	14059	
==>nmatched (

=item RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	333	439	
==>:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	333	439	
==>:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4455	4544	
==>le('token',mk_dynamic_alt(\@tokens));
# tokens should be longest-match-first, but that's s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5521	5633	
==>x.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5521	5633	
==>x.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5521	5633	
==>x.Constant(args); args = [] }";
    } elsif($self->is_slurpy and $name =~ /^%/) {
      push @js, (<<EOF =~ /^(.* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1317	1426	
==>ght, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autocon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1317	1426	
==>ght, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autocon <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1317	1426	
==>ght, I'd think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autocon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	312	431	
==>Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	312	431	
==>Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	312	431	
==>Pair' ?? " # TODO "~$todo.value !! "";
    $count++;
    if $v eq $v2 { say "ok $count - $msg"~$st }
    else { say "not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13578	13674	
==><-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13578	13674	
==><-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13578	13674	
==><-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2243	2378	
==>w(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_acc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2601	2736	
==>w(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_acc <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7502	7613	
==>erl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.incl <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7502	7613	
==>erl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.incl <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	860	949	
==>1.5's Preferences/Tabs/Force/NewTab
setting.)
</p>
<p>
To update this listing, run <tt>per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7098	7227	
==>y %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7098	7227	
==>y %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @para <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7098	7227	
==>y %param = $sub->bind_params( @_ );
            my(@a) = (@param{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @para <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2134	2236	
==>'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2134	2236	
==>'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2134	2236	
==>'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::Root::unlink(Str $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12312	12415	
==>var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12312	12415	
==>var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12312	12415	
==>var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run::ApiX;
  sub bit {my $e=shift; $e ? p6 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5476	5596	
==>ensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	226	332	
==>is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $di <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	226	332	
==>is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $di <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16987	17103	
==>.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20464	20580	
==>.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20042	20158	
==>.size() > $other!body.size()) {
        # Another optimization:
        # In case it is faster for outer loop to have <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1958	2074	
==>e) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1958	2074	
==>e) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3153	3248	
==>ts:
  --kernel-uri=$kernel_uri
    mklivecd.pl automatically fetches a kernel from the Internet. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2662	2760	
==>ME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2662	2760	
==>ME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2662	2760	
==>ME

genesis

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<lt>stevan@iinteractive.comE<gt>

= <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1635	1736	
==>PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6L <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4863	4954	
==>Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>pe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5003	5094	
==>Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>pe <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2640	2735	
==>}
method get_all_children returns Array of Tree { @!children }

## ----------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2640	2735	
==>}
method get_all_children returns Array of Tree { @!children }

## ----------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	465	584	
==>[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	465	584	
==>[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	465	584	
==>[0]->{pPos}->fixup,
      pExp  => undef,
      pNode => $_[0]->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4354	4499	
==>$i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4354	4499	
==>$i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4354	4499	
==>$i->hasNextToken) {
        my $next = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6761	6894	
==>ned $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6761	6894	
==>ned $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6761	6894	
==>ned $step;
            return CORE::int(( $end - $start + 1 ) / $step);
        },
        cis_infinite =>   sub { return $start == -& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1168	1280	
==>des,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1168	1280	
==>des,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1168	1280	
==>des,PIL::Run::EvalX::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	47	136	
==>h(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	47	136	
==>h(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	47	136	
==>h(*@pairs) }
sub hash(*@pairs) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1846	1949	
==>\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1846	1949	
==>\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1846	1949	
==>\\/g; $s =~ s/\'/\\\'/g;
    "p6_new('Str','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expa <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13277	13412	
==>do \s+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional skip with option <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1690	1784	
==>y supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctio <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1690	1784	
==>y supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13430	13641	
==>w how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13430	13641	
==>w how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13430	13641	
==>w how to handle slurpy ".$spec->name;
                        }
                        @params = ();
                    }
                    else {
                        $bound_params{ ${$self->params}[$i]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13499	13601	
==>use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13499	13601	
==>use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13499	13601	
==>use Perl6::Container::Hash;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23792	23885	
==>eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23792	23885	
==>eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23792	23885	
==>eval "qr$qo$pat$qc$m";
}
MULTI SUB rxbare_ ($pat) { rx_common(undef,$pat,undef,undef); };
MULT <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2222	2332	
==>params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo') <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2222	2332	
==>params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo') <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29867	29967	
==>ing left parenthesis '('; if there is an extra ')'
a fatal error is thrown.  However, the nature of ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6587	6693	
==>f)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6587	6693	
==>f)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6587	6693	
==>f)->MRO();
        }
    }
    ::opaque_instance_attr($self => '@:superclasses');
}));

$::Class->add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1827	1927	
==>the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.
P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1280	1378	
==>the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1280	1378	
==>the TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18010	18108	
==>e class to implement it; that is, multiple DBMS objects will not
have references to each other at a <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18010	18108	
==>e class to implement it; that is, multiple DBMS objects will not
have references to each other at a <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23462	23546	
==>--------------

replace_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_| <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9460	9606	
==>relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10266	10412	
==>relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11181	11327	
==>relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14714	14890	
==>ist ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14714	14890	
==>ist ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14714	14890	
==>ist ) );
                return $res;
            },
            'map' => sub {
                my $array = shift;  $array = $array->clone->to_list;
                my $code = s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22991	23132	
==>ass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26696	26837	
==>ass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42594	42735	
==>ass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2413	2510	
==>dd_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2413	2510	
==>dd_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2413	2510	
==>dd_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}->[0];
    } elsif(defined $subname and $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2557	2669	
==>= $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2557	2669	
==>= $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2557	2669	
==>= $file =~ s/^~// ? "link" : "inline";

    if($mode eq "inline") {
      warn "*** Reading JavaScript from \"$fi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28802	29093	
==>')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->send('_merge')
                            );                          
                      })
                  );
                return $e- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3837	3958	
==>$flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3977	4098	
==>$flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10010	10118	
==>ode:

  while (my $node = $iter->()) {
    # $node is a Regexp::Parser::* object
  }

In list context, it ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19016	19111	
==>meant to be used with user text that is
associated with hard-coded program conditions.  In other <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19016	19111	
==>meant to be used with user text that is
associated with hard-coded program conditions.  In other <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8332	8422	
==>============================================

use FindBin;
use File::Spec;

sub path_from_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8332	8422	
==>============================================

use FindBin;
use File::Spec;

sub path_from_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8332	8422	
==>============================================

use FindBin;
use File::Spec;

sub path_from_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1121	1222	
==>JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (reme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1121	1222	
==>JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (reme <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1121	1222	
==>JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (reme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1033	1152	
==>xtract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1033	1152	
==>xtract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1033	1152	
==>xtract remaining Pairs
# $^a, $^b count like '+'

# MORE TODO - See "S06"

# TODO - Perl6::Param - PIL gives these extra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10093	10187	
==>=> 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method whi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10093	10187	
==>=> 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method whi <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6125	6208	
==>2 = def_stmt_prim('bs_token_decl','\s*token\s+(\w+)\s+{([^}]*)}(?{ &::hlp_token;})') <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4316	4459	
==>f->{todo}{$result{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals-> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15177	15271	
==>rd
parties) implement.  This interface is rigorously defined, such that there
should be no ambi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15177	15271	
==>rd
parties) implement.  This interface is rigorously defined, such that there
should be no ambi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28286	28382	
==>n
which is the same as the invocant Relation but that some of its attributes
have been combined/w <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32838	32934	
==>n
which is the same as the invocant Relation but that some of its attributes
have been combined/w <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6208	6316	
==>_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6208	6316	
==>_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' = <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6617	6777	
==>ize_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5121	5281	
==>ize_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1878	1999	
==>ocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1878	1999	
==>ocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10516	10617	
==>h @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10516	10617	
==>h @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10516	10617	
==>h @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3746	3883	
==>ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3734	3871	
==>ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] & <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	62	166	
==>::Reducer/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter - em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3187	3279	
==>lf => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3187	3279	
==>lf => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3187	3279	
==>lf => '%:attributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(s <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6300	6405	
==>re => sub { -r $grub_local and -s $grub_local },
  using  => sub { getstore $grub_uri => $grub_local };

s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5785	5884	
==>::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIP <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5785	5884	
==>::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIP <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2923	3025	
==>t {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($sel <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2923	3025	
==>t {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($sel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22611	22708	
==>tended use of a L<Set> class; a Relation::Example is like a Set that exists
over N dimensions rath <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	638	748	
==>ngth->to_bit     }

# methods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21006	21097	
==>modules that use Module::Compile based modules
will automatically be compiled into .pmc file <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21006	21097	
==>modules that use Module::Compile based modules
will automatically be compiled into .pmc file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14238	14343	
==>_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14238	14343	
==>_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14238	14343	
==>_method('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	667	770	
==>]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	667	770	
==>]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	667	770	
==>]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStmts => $self->{pStmts}->fixup,
    } => "PIL::PPad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15925	16027	
==>LTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15925	16027	
==>LTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15925	16027	
==>LTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7718	7837	
==>unc(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7718	7837	
==>unc(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7718	7837	
==>unc(%d, function (args) {\n%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	680	796	
==>y $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	680	796	
==>y $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	680	796	
==>y $ct = shift;

    $ct->bind_class(
        name => 'Perl5',
		constructor => sub {},
		flags => JS_CLASS_NO_INSTANC <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27672	27811	
==>ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27951	28090	
==>ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11361	11458	
==>that adds a handler, the qr() method is used to produce
the Perl regex implementation of the new n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2937	3040	
==>y $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2937	3040	
==>y $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2937	3040	
==>y $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  my $src = <$fh>;

  $src =~ /^\s+plan\s*\(?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12903	13033	
==>hey are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12903	13033	
==>hey are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12903	13033	
==>hey are going to be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29156	29275	
==>::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29156	29275	
==>::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29156	29275	
==>::Value::Num::Inf;

sub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4894	5008	
==>->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - default assoc, default fixity ?
  );
  $rxinfix <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6655	6750	
==>:Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <st <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6655	6750	
==>:Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	432	529	
==>c_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	432	529	
==>c_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	432	529	
==>c_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'version'   = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7640	7741	
==>--------------------------------------

## NOTE:
## we want to prevent the default version 
## of this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7640	7741	
==>--------------------------------------

## NOTE:
## we want to prevent the default version 
## of this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7640	7741	
==>--------------------------------------

## NOTE:
## we want to prevent the default version 
## of this <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19359	19451	
==>ndicates the
authentication scheme and parameters applicable to the requested URI.

=item $h. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19359	19451	
==>ndicates the
authentication scheme and parameters applicable to the requested URI.

=item $h. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1814	1972	
==>to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {.. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1814	1972	
==>to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {.. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1814	1972	
==>to its lexical pad.
  #   my $a; our sub b { $a++ }; b();  # does work, as &b is not only in
  #                                    # pilGlob: "our sub foo {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38017	38174	
==>Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38017	38174	
==>Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38017	38174	
==>Value::p6v_isa( $scalar, 'Scalar' ) ) {
            # warn "Store to scalar\n";
            $scalar->store( $item );
        }
        else {
            $arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	420	518	
==>$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	420	518	
==>$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	420	518	
==>$timeout,@inc_dirs);my($debug);my($ignore);
use vars qw($PIL::Run::EvalX::pugs);
GetOptions(
    'v <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1547	1721	
==>vents<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1547	1721	
==>vents<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	601	715	
==>escription'} = '' unless exists $params{'$.description'};

            return $::TestBuilder->FETCH('::Test')->FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6330	6443	
==>oro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6330	6443	
==>oro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6330	6443	
==>oro_entrypoints[%d](__returncc);
EOF
  }

  sub as_js {
    my $self = shift;
    local $_;

    local $PIL::IN_SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9741	9863	
==>ems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9741	9863	
==>ems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9741	9863	
==>ems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7656	7792	
==>alue::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7656	7792	
==>alue::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7656	7792	
==>alue::List->from_single(@arg) );
    }
    if ($type eq 'Array') {
        my $ary = Array->new;
        @arg = map { 
            p6_isa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1769	1870	
==>'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
uppe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1829	1930	
==>'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
uppe <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9068	9163	
==>et_def_x(L0,L0) --> {true}.
p5_charset_items([Item1|MoreItems])    --> p5_charset_item(Item1), p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11536	11745	
==>},
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11536	11745	
==>},
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11536	11745	
==>},
        methods => { 

            # @a := @b 
            'bind' =>     sub {
                my ( $self, $thing ) = @_;
                die "argument to Array bind() must be a Array"
                    un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7514	7628	
==>::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7514	7628	
==>::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7514	7628	
==>::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  pac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	43	142	
==>ssage-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	43	142	
==>ssage-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1987	2096	
==>from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1987	2096	
==>from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    re <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1987	2096	
==>from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('List', @a)}; 
sub p6_from_x {
    re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27097	27199	
==>ttrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31649	31751	
==>ttrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30705	30807	
==>ttrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs! <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5128	5232	
==>arp {
    # Please remember to update t/pugsrun/11-safemode.t if you change the fully
    # qualified nam <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	336	434	
==>t even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	336	434	
==>t even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5830	5939	
==>the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed fr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5830	5939	
==>the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed fr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5830	5939	
==>the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # create ::Foo and ::Bar as needed fr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32306	32407	
==>ess of
which is the invocant and which is the argument.  This method will fail if
C<$other> does not h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36856	36957	
==>ess of
which is the invocant and which is the argument.  This method will fail if
C<$other> does not h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36146	36247	
==>ess of
which is the invocant and which is the argument.  This method will fail if
C<$other> does not h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1166	1273	
==>ub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_attrs ($) : lva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	905	1007	
==>ub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1110	1212	
==>ub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_attrs ($) : lva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5628	5770	
==>t provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5628	5770	
==>t provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5628	5770	
==>t provide an attribute to instantiate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3048	3173	
==>turn $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	240	351	
==>{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the fol <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	251	362	
==>{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the fol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	705	834	
==>cro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	705	834	
==>cro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	705	834	
==>cro
       p6_loop_macro
       p6_last_macro
       p6_next_macro
       p6_redo_macro
       );

sub p6_isa {
    my($o,$cls)=@_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9792	9911	
==>'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20298	20394	
==>s a result, while it performs correctly
and reliably, it also performs quite slowly; you should o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20298	20394	
==>s a result, while it performs correctly
and reliably, it also performs quite slowly; you should o <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	949	1195	
==>mple

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	949	1195	
==>mple

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference i <==
3	/Users/nnunley/pugs/util/package-osx.pl	4665	4763	
==>/Perl6::Bible::S05.3pm
        /usr/local/man/man3/Perl6::Bible::S06.3pm
        /usr/local/man/man <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2736	2838	
==>YNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Buil <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2736	2838	
==>YNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4260	4362	
==>YNOPSIS

  module My::Test::Module;

  use Test::Builder;
  use Test::Builder::Output;

  my Test::Buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10371	10558	
==>t::Fail.new(
              description => $description,
              passed      =>            0,
              number      =>      $number,
          );
      }
  }
  
  role Test::Build <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	913	1084	
==>t::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Build <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	913	1084	
==>t::Fail.new(
            description => $description,
            passed      =>            0,
            number      =>      $number,
        );
    }
}

role Test::Build <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4259	4395	
==>m"' {
        my %pad = $tree[1];  # keys: "isInvocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isWr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14934	15028	
==>a" file is the core of the
Rosetta framework and defines a common programmatic interface (API), <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14934	15028	
==>a" file is the core of the
Rosetta framework and defines a common programmatic interface (API), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5475	5591	
==>ne", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5475	5591	
==>ne", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5475	5591	
==>ne", sub { print encode "utf-8", "@_"; });
  # open F,">deleteme_eval.js"; print F $js; close F; # XXX - debugging ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	111	232	
==>bbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be proc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	111	232	
==>bbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be proc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	111	232	
==>bbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_hashes have to be proc <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6246	6359	
==>less $link_this;

        ### remove the registered alternative
        $self->remove_registered_alternative( pack <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	291	388	
==>Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_funct <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	291	388	
==>Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_funct <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	133	225	
==>quire 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	133	225	
==>quire 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22896	22987	
==>->$m(@args);
}


no strict 'vars';
package Perl6::Run::OnPerl5::X1::Api::Exception;
@ISA=qw( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	33	184	
==>use JIB::Constants;

use File::Find::Rule;
use Cwd                         ();
use File::Copy                  ();
use Params::Check               qw[ch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9209	9355	
==>th');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9209	9355	
==>th');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1422	1519	
==>ternals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1422	1519	
==>ternals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1422	1519	
==>ternals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5114	5218	
==>/g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSyms.
package PIL::PIL1CPerl5::NodesInfo;
o <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14627	14725	
==>s a list of future features planned for this module.

- better error handling for cmp_ok

The error <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14685	14783	
==>s a list of future features planned for this module.

- better error handling for cmp_ok

The error <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2879	2997	
==>get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2879	2997	
==>get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2879	2997	
==>get_plan_count {
  my $file = shift;
  local $/;

  open my $fh, "<", $file or die "Couldn't open \"$file\": $!\n";
  m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8369	8470	
==>ackage Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($cla <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1405	1497	
==>:Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Per <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1405	1497	
==>:Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Per <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4627	4752	
==>again
        DumpFile( $Altfile, $href );
    }

    ### remove this package from the available list
    ### XXX temp file, t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	517	615	
==>nt $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1375	1473	
==>nt $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3946	4042	
==>t ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3946	4042	
==>t ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	838	933	
==>if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtra <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	838	933	
==>if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtra <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26689	26783	
==>lus_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14490	14606	
==>get_attributes().map:{
            %attrs{$_.meta.name()} = $_.meta.instantite_container();
        };
        $c = W <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20780	20873	
==>he ':' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20780	20873	
==>he ':' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	241	341	
==>> q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): ar <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1099	1199	
==>> q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): ar <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5001	5096	
==>relude.pm [options]
       $0 --precompile src/perl6/Prelude.pm --pugs ./pugs.exe [options]

Cre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2273	2395	
==>JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2273	2395	
==>JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2273	2395	
==>JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1].FETCH();
    if(thing.referencee && t <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4066	4168	
==>) });
		my $sub = $rval->val;

		Blondie::TypeSafe::Annotation->new(
			type => $sub->type,
			struct_e <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22694	22791	
==>on Heading>

Set of Str - This contains zero or more Relation attribute names that
define the head <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27246	27343	
==>on Heading>

Set of Str - This contains zero or more Relation attribute names that
define the head <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10346	10528	
==>ame => '&print',
        body => sub {
            my $self = shift;
            my $fh = shift->val;
            print $fh @_;
        }
    },
    map {{ arity => 2, name => "&infix <==
3	/Users/nnunley/pugs/util/drift.pl	367	472	
==>nstances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN, $in or die $!;
while (<IN>) { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7366	7465	
==>ry$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7366	7465	
==>ry$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29953	30100	
==>get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascendant') # C3 is the canonica <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	339	452	
==>ies) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    m <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	339	452	
==>ies) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2788	2893	
==>lX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2788	2893	
==>lX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2788	2893	
==>lX.pm re __export_ etal.
    $name = "&".$name if $name =~ /^__init_/; # XXX - pugsbug? workaround.
    $n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1449	1553	
==>List - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be us <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1449	1553	
==>List - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be us <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9230	9358	
==>=~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9230	9358	
==>=~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29754	29855	
==>mple
which has a subset of the original's attributes; that subset is the same as
those attribute names <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4759	4944	
==>@{$assoc{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" .
        "statement:  exp { return(\$_[0]->{out}) } ;\n";
            
    if ( defined $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2773	2910	
==>el} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2773	2910	
==>el} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1306	1409	
==>un_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1306	1409	
==>un_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_cont <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1306	1409	
==>un_done = 0;

  while($first_run_done ?? $cond() !! ++$first_run_done) { $body() }
}

sub statement_cont <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	577	691	
==>{
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	577	691	
==>{
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1940	2057	
==>kg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper( <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1940	2057	
==>kg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1064	1177	
==>ere are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2902	3042	
==>ce_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2902	3042	
==>ce_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2902	3042	
==>ce_attr($self => '%:attributes')->{$label} = (
        defined $attribute ?
            $attribute
            :
            ::make_stub_attr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7493	7626	
==>ans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7493	7626	
==>ans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -In <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3102	3189	
==>ls::arc_units(Pugs::Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_un <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4155	4264	
==>r 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4155	4264	
==>r 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5679	5788	
==>r 4

=item B<new( *@args )>

This method actually returns a Test::Builder singleton, creating it if
necessary. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17923	18040	
==>1); $fi++;
        my $conversion = substr($fmt,$start,$fi - $start);

        # FIXME -- when next; works, do if $spe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2562	2657	
==>tring portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2562	2657	
==>tring portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	649	788	
==>s = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	649	788	
==>s = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	649	788	
==>s = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12716	12848	
==>e in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12716	12848	
==>e in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKME <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12716	12848	
==>e in the chain, then we can use it ...
                $class->STORE('$AUTOLOAD' => $_[1]) 
                    if $method = ::WALKME <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10908	11035	
==>} =~ m{ \G \? }xgc;
    return;
  });

  # alternation branch
  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	833	932	
==>different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shi <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	833	932	
==>different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3592	3690	
==>_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3592	3690	
==>_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	346	452	
==>@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} spli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	346	452	
==>@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} spli <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	346	452	
==>@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'"} spli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4112	4218	
==>FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4112	4218	
==>FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4112	4218	
==>FORCE, $self);   
    }  
}));

$::Class->add_method('isa' => ::make_method(sub { 
    my ($self, $class_na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3268	3463	
==>ype eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unk <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3268	3463	
==>ype eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unk <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3268	3463	
==>ype eq 'none' ) {
                    for ( @ary ) { return Bit->new( '$.unboxed' => 0 ) if $_ }
                    return Bit->new( '$.unboxed' => 1 );
                }
                die "Unk <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5129	5267	
==>lse on failure.

=cut

sub _copy {
    my $self = shift;
    my %hash = @_;
    
    my($from,$to);
    my $tmpl = {
        file    =>{ re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2707	2825	
==>ION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$c <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2707	2825	
==>ION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$c <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16146	16235	
==>g>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darr <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16204	16293	
==>g>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1791	1913	
==>ck, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1791	1913	
==>ck, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36754	36850	
==>r properties; if none
could be matched, this method returns undef.  This method could be
consider <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36754	36850	
==>r properties; if none
could be matched, this method returns undef.  This method could be
consider <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5769	5892	
==>pe">[0][0];
        dbg "# Scope:      $scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8478	8580	
==>r_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6014	6114	
==>r_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1112	1227	
==>signature_term
        { $_[0]->{out}= { type => $_[1], %{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{ou <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7920	8020	
==>=> $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class so <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7920	8020	
==>=> $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3956	4063	
==>n.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3956	4063	
==>n.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3956	4063	
==>n.pop(); PIL2JS_subpads.pop();
  $restores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1404	1506	
==>le MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_E <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23363	23461	
==>t.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
imp <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27915	28013	
==>t.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
imp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2723	2829	
==>)(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2723	2829	
==>)(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    subst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2723	2829	
==>)(~$self, ~$substr, +$pos);
  }
}

method chomp(Str $self:) {
  if substr($self, -1, 1) eq "\n" {
    subst <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2709	2912	
==>atim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2709	2912	
==>atim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2879	3026	
==>ch my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2879	3026	
==>ch my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2879	3026	
==>ch my $a (@$v) {
			my $a_config = {};
			if(ref($a)) {
			    $a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14191	14348	
==>@args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14191	14348	
==>@args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14191	14348	
==>@args) = @_;

                my $j = $self->expand_junctions( @args );
                return $j if $j;

                # warn "testing multisub, ".( scalar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12333	12471	
==>'\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8609	8747	
==>'\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9444	9582	
==>'\" . \$ast->{tail} . \"'\\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1421	1529	
==>utoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1421	1529	
==>utoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1421	1529	
==>utoconvert their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3069	3180	
==>t_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3069	3180	
==>t_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3069	3180	
==>t_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	93	259	
==>$rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	94	260	
==>$rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26924	27019	
==>automatically, but if you are sub-classing it, you'll probably want
to call it in your own modul <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	282	376	
==>_int);
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config --lib <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1173	1255	
==>';

------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1013	1095	
==>';

------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1172	1261	
==>around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1172	1261	
==>around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1172	1261	
==>around this by emitting %PIL2JS::EXPORTS_DUMMY_VARIABLE.
  } elsif($name =~ /^%.*EXPORTS$/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21434	21529	
==>tinct from the other
attributes, though several attributes may store values of the same class;
e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25986	26081	
==>tinct from the other
attributes, though several attributes may store values of the same class;
e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24619	24714	
==>tinct from the other
attributes, though several attributes may store values of the same class;
e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9296	9456	
==>lf.get_test_number(),
              passed      =>  $passed,
              description =>  $description,
          )
      );
  
      return $passed;
  }
  
  m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1416	1558	
==>lf.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1416	1558	
==>lf.get_test_number(),
            passed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14762	14895	
==>[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14762	14895	
==>[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14762	14895	
==>[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2209	2324	
==>s eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2209	2324	
==>s eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2209	2324	
==>s eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do with $x";
    }
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8169	8277	
==>d',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working because th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8169	8277	
==>d',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working because th <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4325	4427	
==>d a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4325	4427	
==>d a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6522	6624	
==>d a true value for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23047	23158	
==>rom_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23047	23158	
==>rom_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23047	23158	
==>rom_n(rindex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1081	1176	
==>all $dumper->[0] to enable $interface::format" if $@;

	#export the funtions
	Pugs::Utils::Dump- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	998	1091	
==>($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	998	1091	
==>($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	998	1091	
==>($xx) { coerce:as($xx,'Bit') }
multi sub prefix:<+> ($xx) { coerce:as($xx,'Num') }
# multi sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4674	4756	
==>S: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4674	4756	
==>S: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4674	4756	
==>S: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26812	26909	
==>.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31364	31461	
==>.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30402	30499	
==>.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7601	7790	
==>ind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7601	7790	
==>ind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7601	7790	
==>ind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36511	36629	
==>st, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36511	36629	
==>st, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36511	36629	
==>st, @tail );
    return $class->from_list( @body );
}

sub end  {
    my $array = shift;
    return unless $array->elem <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15561	15682	
==>ith:

  I32 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& */

Must b <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4063	4164	
==>NotAsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSlash <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4760	4899	
==>("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6522	6661	
==>("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17246	17347	
==>mbination of run_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1702	1823	
==>rrent_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a mat <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1702	1823	
==>rrent_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a mat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6530	6616	
==>charset_def(X), "]".
p5_elemental(posSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemen <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29484	29597	
==>t.

Fix HARNESS_COMPILE_TEST without breaking its core usage.

Figure a way to report test names in the failure su <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21334	21429	
==>t
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative rel <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21334	21429	
==>t
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6602	6711	
==>refix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6602	6711	
==>refix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6602	6711	
==>refix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub postfix:<--> ($a is rw)    is primitive { my $cur = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13522	13624	
==>r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13522	13624	
==>r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13522	13624	
==>r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_from_b( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7955	8045	
==>hannels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(nor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7955	8045	
==>hannels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(nor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5435	5557	
==>X - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5435	5557	
==>X - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5435	5557	
==>X - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	121	242	
==>atch   = 0;
our $pretty_print  = 0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub import {
	return <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17397	17502	
==>ndler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main ev <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17397	17502	
==>ndler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main ev <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7808	7909	
==>e from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7808	7909	
==>e from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1568	1687	
==>$file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1568	1687	
==>$file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17851	17940	
==>1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12982	13092	
==>=> method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12982	13092	
==>=> method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgum <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12982	13092	
==>=> method () {
    my ($self, $label, %params) = @_;
    (defined $label)
        || confess "InsufficientArgum <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2983	3094	
==>a("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2983	3094	
==>a("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argumen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2983	3094	
==>a("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argumen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9818	9942	
==>$pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9818	9942	
==>$pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9818	9942	
==>$pos, $slice_size );
            my $elems = $slice->elems->unboxed;
            # warn "splice 3 - elems = $elems - slice is <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1287	1438	
==>h = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving en <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1287	1438	
==>h = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving en <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4372	4475	
==>ock'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <@Gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1629	1750	
==>»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1629	1750	
==>»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1629	1750	
==>»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "infix:«-»",    2, "N", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21631	21806	
==>lue::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21631	21806	
==>lue::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21631	21806	
==>lue::p6v_isa( $_, 'Array' );
                    #    next if Perl6::Value::p6v_isa( $_, 'Hash' );
                    #    my $tmp = $_;
                    #    $_ = Scalar-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22198	22382	
==>op::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22477	22661	
==>op::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
3	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	103	208	
==>pr05a.pl
# Only handles operators: + - * /

use strict;
use warnings;

# Input a string containing a rpn e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10132	10276	
==>ements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10132	10276	
==>ements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10132	10276	
==>ements";
                push @items, Perl6::Value::List->from_x( item => undef, count => $diff )
                    if $diff > 0;
            } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30578	30674	
==>each distinct Message; each file can be
shared by multiple Messages but the whole module must rep <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30578	30674	
==>each distinct Message; each file can be
shared by multiple Messages but the whole module must rep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3240	3371	
==>{
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3240	3371	
==>{
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3240	3371	
==>{
        my $cell = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3699	3882	
==>$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3699	3882	
==>$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junctio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3699	3882	
==>$.things')}
                    ) . ")"
                ) 
            },
            'ref' =>  sub { $::CLASS }, 
        },
    }
};



1;
__END__

=head1 NAME

Perl6::Value::Junctio <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6542	6690	
==>ass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6600	6748	
==>ass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10280	10372	
==>eaned_switches>

  my @switches = $self->_cleaned_switches( @switches_from_user );

Returns o <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2050	2220	
==>_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2050	2220	
==>_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9923	10021	
==>r++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9923	10021	
==>r++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9923	10021	
==>r++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1333	1476	
==>Elem($idx);
                unless ($c){
                    $c = PIL::Run::Container::Scalar->new;
                    $self->hash_storeElem($i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1542	1631	
==>h.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1542	1631	
==>h.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empt <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25049	25146	
==>urns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

= <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29601	29698	
==>urns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

= <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14998	15108	
==>ault is LChars.

[Q: Can't be LChars because we don't go into "language" mode unless there's
a specific languag <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4318	4414	
==>ad2 %{}

When used as a hash reference, the match object returns named captures
as match objects, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4318	4414	
==>ad2 %{}

When used as a hash reference, the match object returns named captures
as match objects, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8143	8269	
==>ction', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8143	8269	
==>ction', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' = <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20884	20980	
==>}
sub Pugs::Internals::Disabled::require ($module=$+_) is builtin is unsafe {
    #Pugs::Internal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13758	13887	
==>args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13758	13887	
==>args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13758	13887	
==>args, $is_class_method) = @_; 
        warn "... entering _class_dispatch with label($label)" if $DISPATCH_TRACE;  
        my $me <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2683	2778	
==>d by subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2683	2778	
==>d by subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16787	16928	
==>Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16787	16928	
==>Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16787	16928	
==>Object) {
        my @classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            foreach my $subclass (@{$_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	173	286	
==>class Test::Builder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    method write ( Str $message is <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14361	14457	
==>tributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDA <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14361	14457	
==>tributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3131	3230	
==>s::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so lib/Pugs/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3021	3116	
==>s::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so lib/Pugs/ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2656	2760	
==>ee above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2656	2760	
==>ee above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUI <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5866	5967	
==>[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar')->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3419	3542	
==>{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3612	3735	
==>{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'an <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1745	1847	
==>(@names)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	649	888	
==>" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	650	889	
==>" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::co <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6373	6532	
==>trol_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n'),
                    Val->new(1 <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4027	4125	
==>ine_app {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	$self->define_named_block($node, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1365	1461	
==>PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1365	1461	
==>PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1365	1461	
==>PIL2JS::cfg{preludepc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2488	2603	
==>defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2488	2603	
==>defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $nat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2488	2603	
==>defined $subname and $subname eq "&JS::inline") {
      PIL::fail("Invalid use of &JS::inline!");
    }

    my $nat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	533	679	
==>%attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	738	884	
==>%attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	794	940	
==>%attrs) = @_;
        my $instance = bless {
            'id'    => ++$instance_counter,
            'class' => $class,
            'attrs' => \%at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10914	11049	
==>lass;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10914	11049	
==>lass;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10914	11049	
==>lass;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	495	614	
==>'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        ' <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11339	11437	
==>) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11339	11437	
==>) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	1	111	
==>ackage PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	1	111	
==>ackage PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	1	111	
==>ackage PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36626	36723	
==>on is identical to the
invocant.  Another trivial case is where any any source relation has zero
t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41175	41272	
==>on is identical to the
invocant.  Another trivial case is where any any source relation has zero
t <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20105	20193	
==>gs::Internals::string_as_number(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15468	15580	
==>_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15468	15580	
==>_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15468	15580	
==>_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[0]->{celems}( @_ ) ? $_[0]->{end}( @_ )    : undef }  

1;
_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5219	5365	
==>if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5219	5365	
==>if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5219	5365	
==>if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args.length > 0) $jsname = $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2623	2719	
==>y $rv = $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2623	2719	
==>y $rv = $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5715	5821	
==>dpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5715	5821	
==>dpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5715	5821	
==>dpairs(args);
  args    = obj["args"];
  $jsname = new PIL2JS.Box.Constant(obj["hash"]);
}
EOF
    } else { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12922	13037	
==>>qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27061	27176	
==>>qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  su <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2165	2265	
==>verse = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    re <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2165	2265	
==>verse = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    re <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	309	403	
==>rst attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early version of <==
3	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2352	2503	
==>Getopt::Argument::Style {
        method ^string_to_arguments( $string ) {
            given $string {
                when /^-(\w)+/ { map { call("-$_" <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10509	10606	
==>ts
then you can pass them through this function. This is primarily a release
tool, but can be usef <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10567	10664	
==>ts
then you can pass them through this function. This is primarily a release
tool, but can be usef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1208	1337	
==>def', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1208	1337	
==>def', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (an <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1208	1337	
==>def', undef)}
#        buu fglock: For which?
#        fglock for { undef=>undef }
#        iblech fglock: Right, I'd think so (an <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1174	1320	
==>nd {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $value.($next, $u), ta <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1388	1486	
==>know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url ) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1388	1486	
==>know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9792	9952	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10071	10231	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         r <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20517	20616	
==>us a "next" pointer,
possibly plus an operand.

We don't care.


=head2 Internals:

  regnode *regst <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10082	10194	
==>erpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_asser <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10082	10194	
==>erpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_asser <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3480	3580	
==>$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4346	4455	
==>ams) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4346	4455	
==>ams) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->typ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4346	4455	
==>ams) eq "ARRAY";

    bless $self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->typ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13197	13308	
==>oc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data";
  eval $loc;
  warn "*** Unfortu <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	634	728	
==>,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
} <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	634	728	
==>,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2120	2218	
==>O::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2120	2218	
==>O::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2120	2218	
==>O::File->new(\'<\'.$_[0]) or die $!; return <$f>})")(filename);
    }
  )')($filename)
}

sub JS::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18570	18792	
==>aram == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18570	18792	
==>aram == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18570	18792	
==>aram == 1 ) {
                        # whole Array store
                        #warn "WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	139	257	
==>$class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	139	257	
==>$class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	139	257	
==>$class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class;
    $self->{token <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5879	5977	
==>ESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5879	5977	
==>ESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `c <==
3	/Users/nnunley/pugs/util/package-osx.pl	7797	7894	
==>an3/Perl6::Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4176	4302	
==>: '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4176	4302	
==>: '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
packag <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4176	4302	
==>: '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@args).")";
    }
}
packag <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	999	1101	
==>piler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	999	1101	
==>piler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Com <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	266	361	
==>$rep,$type,@pairs]);
}
sub node_s { hlp('string',@_); }
sub node_a { hlp('array1',@_); }
sub nod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	987	1100	
==>>new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	987	1100	
==>>new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	987	1100	
==>>new("PIL2JS.generic_return(coroyieldcc)"),
      origName => "&yield",
    } => "PIL::PVar";

  # XXX evil hack - <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1326	1456	
==>n
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1326	1456	
==>n
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2194	2335	
==>(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::crea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2399	2540	
==>(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::crea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17181	17277	
==>uch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17181	17277	
==>uch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9575	9693	
==>lation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13052	13170	
==>lation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1473	1587	
==>lX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1473	1587	
==>lX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1473	1587	
==>lX::BaseClass); sub expand {
    if ( $_[0][0] eq 'Inf' || $_[0][0] eq 'inf' ) {
        return "p6_new('Num',Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1704	1817	
==>);
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1897	2010	
==>);
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5153	5259	
==>method);
    }

    my $admin = $self->{admin} or die <<"END_DIE";
The '$method' method does not exist in t <==
3	/Users/nnunley/pugs/util/addauthors.pl	508	649	
==>";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  } <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9523	9643	
==>hange, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # oth <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9523	9643	
==>hange, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # oth <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3604	3732	
==>return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3851	3979	
==>return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return <==
3	/Users/nnunley/pugs/util/importgraph.pl	1413	1524	
==>fined clusters
sub setup_mod {
  my $type = shift;
  my $name = shift;
  my $regexp = join '|', map {
    UNIVER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3337	3452	
==>SH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3337	3452	
==>SH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3337	3452	
==>SH') {
		for my $val (values %$obj) {
			$recurse->($val);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10116	10238	
==>tch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10116	10238	
==>tch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10116	10238	
==>tch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if exists $_class_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1536	1656	
==>. join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1136	1245	
==>. join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2010	2119	
==>. join(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15840	15930	
==>/www.thethirdmanifesto.com/>, and its authors have also written
several books and papers an <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15840	15930	
==>/www.thethirdmanifesto.com/>, and its authors have also written
several books and papers an <==
3	/Users/nnunley/pugs/util/drift.pl	1051	1154	
==>header = split /^/m, << "SCARY";




{- 
-- WARNING WARNING WARNING --

This is an autogenerated file fr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3653	3746	
==>elete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3653	3746	
==>elete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation f <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1098	1245	
==>Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.auto <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1098	1245	
==>Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.auto <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1101	1237	
==>opic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14483	14608	
==>attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14483	14608	
==>attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14483	14608	
==>attributes'));
::Class.meta.add_attribute('%:methods'          => ::make_attribute('%:methods'));
::Class.meta.add_attribute(' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10953	11083	
==>.
                "    my \$rule = Runtime::Perl5::RuleOps::concat( \n" .
                "        Runtime::Perl5::RuleOps::constan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13785	13884	
==>eld )

Apply a subroutine to each header field in turn.  The callback routine
is called with two par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13785	13884	
==>eld )

Apply a subroutine to each header field in turn.  The callback routine
is called with two par <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	182	277	
==>/tmp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use Time::Piece;
use Time::Seco <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32777	32870	
==>ng
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37327	37420	
==>ng
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4297	4416	
==>attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7774	7893	
==>attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6758	6877	
==>attrs === $!heading) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	967	1099	
==>0},
        P6_Regex_x1   => sub{ $match = $rpc_regex->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18141	18294	
==>mmar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18420	18573	
==>mmar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	263	401	
==>le   $Available
            $Builddir       $Bindir     $Data       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5870	5977	
==>} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5870	5977	
==>} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" . <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5870	5977	
==>} }) .
    "\n// End declaration of vars.\n";
  $decl_js .=
    "// Declaration of classes (PIL1 hack):\n" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15245	15361	
==>$_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15245	15361	
==>$_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15245	15361	
==>$_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	732	837	
==>@invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	732	837	
==>@invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	732	837	
==>@invocant;

    return (
      "p${prefix}Params" => (bless [ map { $_->fixup } @$self ] => "PIL::Params") <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4170	4300	
==>sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4310	4440	
==>sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1489	1598	
==>PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $_[2] }' || die $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4302	4424	
==>trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\04 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4302	4424	
==>trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\04 <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	890	998	
==>::Session $session, Str $event, *@args) {
    # Push our callback on @:events.
    ./:enqueue({
      my $res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4328	4451	
==>""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4328	4451	
==>""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4328	4451	
==>""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {. <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1548	1651	
==>lls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse:: <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1548	1651	
==>lls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5906	6035	
==>$s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5906	6035	
==>$s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5906	6035	
==>$s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3920	4128	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7397	7605	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6363	6571	
==>dy => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method pr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1090	1186	
==>across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar cip <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1090	1186	
==>across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar cip <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3520	3713	
==>[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                named <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18671	18768	
==>cess the same external resources.>

Rosetta does not use any dialect of SQL in its native API (unl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18671	18768	
==>cess the same external resources.>

Rosetta does not use any dialect of SQL in its native API (unl <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1606	1715	
==>le '$filename' is older than template
    '$config_template'.  I will merge them in memory, but
    you may wi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14502	14606	
==>ORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14502	14606	
==>ORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6540	6648	
==>'@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6540	6648	
==>'@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $orde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6540	6648	
==>'@:MRO')};
});

::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $orde <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3970	4069	
==>:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4154	4253	
==>:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9292	9503	
==>]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9292	9503	
==>]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9292	9503	
==>]->fetch( $_ );
                            $self->store( $pair->key, $pair->value );
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3110	3218	
==>L2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3110	3218	
==>L2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3110	3218	
==>L2JS_callchain.pop(); PIL2JS_subpads.pop();
  %s;
  throw function () { __returncc(%sretval%s) };
};
EOF

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22116	22215	
==>he regex.

=item len

The length of the original string representation of the regex.

=item tree

Du <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14688	14784	
==>e not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The defaul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14688	14784	
==>e not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The defaul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9160	9264	
==>e_method(sub {
    my $self = shift;
    # ...
}));

=pod

---------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9160	9264	
==>e_method(sub {
    my $self = shift;
    # ...
}));

=pod

---------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9160	9264	
==>e_method(sub {
    my $self = shift;
    # ...
}));

=pod

---------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5738	5842	
==>, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5738	5842	
==>, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5738	5842	
==>, possibly storing a value in the last location.

  # create ::Foo and ::Bar as needed from the current l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3443	3551	
==>> ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3443	3551	
==>> ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attribu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3443	3551	
==>> ::make_method(sub {
    my ($self, $label) = @_;    
    blessed(::opaque_instance_attr($self => '%:attribu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20266	20366	
==>ds {  # see 12.2
      <VariableDeclarationNoIn>
    | <VariableDeclarationListNoIn> <','> <VariableD <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2986	3084	
==>ion( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2986	3084	
==>ion( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2522	2676	
==>chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2522	2676	
==>chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	42	145	
==>,
    "$Bin/../../../../lib",
    "$Bin/../Pugs-Compiler-Rule/lib",
    "$Bin/../Pugs-Utils/lib",
    "$ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9717	9855	
==>n /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub pa <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9717	9855	
==>n /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub pa <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17455	17564	
==>OOT.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,$ROOT);

    my $code = "" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	694	815	
==>= (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	694	815	
==>= (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	694	815	
==>= (
  js        => "js",
  pugs      => pwd(qw< .. .. >, "pugs$Config{_exe}"),
  pil2js    => pwd('pil2js.pl'),
  preludep <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17925	18034	
==>ype, $totals) if $meth;
};


sub header_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4686	4777	
==>ends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4936	5027	
==>ends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12951	13103	
==>new('$class:'   => 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol->new('%params'   => <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38628	38724	
==>ld' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given variable name wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38628	38724	
==>ld' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given variable name wi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12324	12417	
==>he Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresponding arg <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12324	12417	
==>he Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresponding arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3015	3145	
==>$1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2899	3022	
==>$1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_ <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	577	683	
==>'foobar',
		name => "simple concatenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2),
			Val(3) <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3180	3285	
==>end out of before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $bas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3180	3285	
==>end out of before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $bas <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3962	4065	
==>ition <= $position);

  expect_term_1:
  my $key = $$currentTermTable->lkey($target, $whitespacePosition <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3054	3183	
==>e()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3054	3183	
==>e()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3054	3183	
==>e()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~]> always return 0 or "" o <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16172	16272	
==>a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list con <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16172	16272	
==>a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list con <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	38	149	
==>s test script will compare the result of all the listed cookbook files
# to some expected set of results
# later <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21689	21784	
==>pic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21689	21784	
==>pic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	958	1094	
==>lass {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	958	1094	
==>lass {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	958	1094	
==>lass {  
        ${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17097	17222	
==>exp)
    unless exp goto end
    $S0 = exp
    if $S0 != pattern goto end
    pad = new .Hash
    $P0 = new .Hash
    pad["rep <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	709	823	
==>* DSL Domain-specific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	674	780	
==>* DSL Domain-specific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25003	25101	
==>ng a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole com <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25003	25101	
==>ng a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole com <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	104	201	
==>!}\end{block}

Zum auskommentieren mehrerer Zeilen kann man POD benutzen:

#!\begin{block}{}\textt <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2471	2572	
==>c for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2471	2572	
==>c for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11384	11543	
==>elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11384	11543	
==>elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11384	11543	
==>elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	657	783	
==>' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUP <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	673	799	
==>' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUP <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	649	775	
==>' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUP <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14208	14313	
==>ng and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seco <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14208	14313	
==>ng and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seco <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16774	16919	
==>/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "(", (ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9284	9377	
==>@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3109	3202	
==>@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2192	2292	
==>hose are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2111	2209	
==>hose are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36662	36757	
==>*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm going to rewrite F <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	383	507	
==>e{
        $str ~= addtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub clear returns Void is export{
    system(($?OS eq <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7746	7840	
==>ticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7746	7840	
==>ticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9983	10163	
==>ure_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9983	10163	
==>ure_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9983	10163	
==>ure_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i++) {
                    my $spec = ${ $self->p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5908	6007	
==>nal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chro <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5908	6007	
==>nal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chro <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	62	159	
==>trict;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/Blon <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23688	23795	
==>ut once it has a value of False, it can not be further changed;
this class defaults it to False.

=back

Thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28240	28347	
==>ut once it has a value of False, it can not be further changed;
this class defaults it to False.

=back

Thi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27053	27160	
==>ut once it has a value of False, it can not be further changed;
this class defaults it to False.

=back

Thi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	574	669	
==>ns Tree { 
    return $!parent;
}

## ---------------------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	574	669	
==>ns Tree { 
    return $!parent;
}

## ---------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16515	16632	
==>label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16515	16632	
==>label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (define <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16515	16632	
==>label};
    }    
});

::Class.meta.add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13999	14183	
==>=> [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13999	14183	
==>=> [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13999	14183	
==>=> [ 'Code', $::Object ],
    class => {},
    instance => {
        attrs => [ '@.subs' ],     # , '$.return_value' ],
        methods => {
            do => sub {
                my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	611	728	
==>my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	611	728	
==>my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	611	728	
==>my $i = $self->tokenizer->iterator;
    my $in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->next <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	143	258	
==>LASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	143	258	
==>LASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2860	2970	
==>return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2860	2970	
==>return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $cla <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2860	2970	
==>return values

use strict;
use warnings;

use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7019	7125	
==>te new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7019	7125	
==>te new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7019	7125	
==>te new containers (new PIL2JS.Boxes) *here* -- lists
    // don\'t create new containers. Assigning to an a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	103	214	
==>ORT=qw(dump_tree); 

use Pugs::Utils::Interface;
my $dumper;

# which modules do diffrent formats use
my %format <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2161	2270	
==>LOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.s <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2161	2270	
==>LOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2801	2978	
==>sed;
        },        
        'skip' => sub { 
            my ($self, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8533	8661	
==>->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next- <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8533	8661	
==>->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	455	582	
==>mal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	455	582	
==>mal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	455	582	
==>mal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9809	9911	
==>== 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9809	9911	
==>== 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9809	9911	
==>== 0) PIL2JS.die("No indices given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1519	1633	
==>tandard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1519	1633	
==>tandard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1519	1633	
==>tandard operators, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	843	995	
==>'$.passed'},
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1702	1798	
==>forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to Multiple <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1634	1727	
==>forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to Multiple <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	502	606	
==>e box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	502	606	
==>e box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	502	606	
==>e box all subs so they can be accessed without the JS:: prefix.
      // I.e. "use jsan:Number.Roman <to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5169	5305	
==>@roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5169	5305	
==>@roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5169	5305	
==>@roles => $role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8445	8549	
==>( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8445	8549	
==>( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8445	8549	
==>( _('$.a')/_('$.b') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1939	2033	
==>his module may cause
segfaults on C<split>, substitution, and/or other uses.

It is currently u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	219	309	
==>pc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	252	342	
==>pc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11210	11338	
==>fy},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11210	11338	
==>fy},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11210	11338	
==>fy},
    );
}

sub map { 
    my $array = shift;
    my $code = shift;
    my $ret = $array->clone; 
    my $arity = Perl6::Value <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12834	12939	
==>on::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12834	12939	
==>on::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12834	12939	
==>on::LoopControl;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run::ApiX;

sub p6_return_macro {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	675	802	
==>mal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	675	802	
==>mal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	675	802	
==>mal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var r <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	152	332	
==>{
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1 <==
3	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	217	378	
==>{
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11485	11646	
==>atch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7767	7928	
==>atch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8601	8762	
==>atch;\n" .
                "    my \$code = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13608	13703	
==>HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar conte <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13608	13703	
==>HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar conte <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20188	20280	
==>ude.pm, prefix:<-M> doesn't work. :(
multi prefix_M ($file) is builtin is primitive is unsafe <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2050	2155	
==>e(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34172	34262	
==>iases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38722	38812	
==>iases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Rela <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1621	1770	
==>(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $time_t;
}

# convert from a per <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35098	35193	
==>or the changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35098	35193	
==>or the changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7598	7724	
==>) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7598	7724	
==>) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7598	7724	
==>) or next;
        $classes{$cls} = 1;
        push(@nodes,subnodes_of($n));
    }
    keys(%classes);
}

my %have_classes = ma <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2012	2106	
==>match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexicall <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2012	2106	
==>match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexicall <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	309	402	
==>junctive types can only be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::Jun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12612	12813	
==>f->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12612	12813	
==>f->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12612	12813	
==>f->{pops}};
            return
        },
        cend => sub { 
            my $self = shift;
            while( $ret->elems && @{$self->{pops}} < 2 ) {
                my @x;
                unshift @ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12451	12562	
==>sts, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @li <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3001	3107	
==>sts, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @li <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7200	7298	
==>s:

=over 4

=item $parser = Regexp::Parser->new($regex)

You can send the regex to be parsed as th <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9908	10065	
==>e connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9908	10065	
==>e connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6736	6851	
==>e;
use base qw/node/;

package let;
use base qw/node/;

package cond;
use base qw/node/;

package val;
use base qw/n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	596	693	
==>args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	596	693	
==>args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	596	693	
==>args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10952	11082	
==>: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars] <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10952	11082	
==>: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30768	30864	
==>n't inherit from anywhere.  You want to go along
the I<object>'s inheritance tree.  Use Damian Co <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19498	19613	
==>[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end:
    .return (self)
.e <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	444	543	
==>s C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	444	543	
==>s C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10760	10923	
==>e macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "* <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7101	7264	
==>e macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7950	8113	
==>e macro expander code

            local $Data::Dumper::Pad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1761	1877	
==>array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1761	1877	
==>array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1761	1877	
==>array) { 
    my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1776	1887	
==>d variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1776	1887	
==>d variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1776	1887	
==>d variables don't need a declaration, but JavaScript
    # needs one.
    my $name = $self->{pVarName};
    if($ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	129	226	
==>Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use w <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1339	1431	
==>t {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Slurp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1339	1431	
==>t {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Slurp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10713	10851	
==>h' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10713	10851	
==>h' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10713	10851	
==>h' && Perl6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7244	7353	
==>> "Searching for module files",
  ensure => sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32607	32698	
==>convert Message objects on demand into user-readable
message strings, using data from extern <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32607	32698	
==>convert Message objects on demand into user-readable
message strings, using data from extern <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	888	993	
==>out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	888	993	
==>out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	968	1073	
==>out;
my @expect_diag;

# populate the Test::Builder singleton with a controlled object
my $tb_output = Tes <==
3	/Users/nnunley/pugs/misc/Date/lib/Date.pm	386	487	
==>f.add(-$duration);
}

method difference($self: Date $other) returns Duration {
    ...
}

#method infi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4013	4111	
==>ce => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4013	4111	
==>ce => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2282	2392	
==>patcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2282	2392	
==>patcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %para <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2282	2392	
==>patcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method { 
        $method.($?SELF, %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2942	3057	
==>$a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2942	3057	
==>$a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_at <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2942	3057	
==>$a_config = $a->[1];
			    $a = $a->[0];
			}
			my $am = $a; $am =~ s/\$.//;
			$MM->add_attribute($a => ::make_at <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	827	949	
==>en '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.push(int($y / $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	326	432	
==>};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so sub <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	326	432	
==>};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so sub <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3328	3424	
==>Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' , <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1842	1935	
==>r is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submetho <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1842	1935	
==>r is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submetho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2301	2474	
==>of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method all_names_exist of Bool (Relation:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3800	3898	
==>esc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5702	5800	
==>esc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32693	32888	
==>e::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32693	32888	
==>e::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32693	32888	
==>e::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	612	720	
==>ms :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	612	720	
==>ms :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	612	720	
==>ms :lvalue { $_[0]->{pSubParams}  }
  sub lvalue :lvalue { $_[0]->{pSubLValue}  }
  sub body   :lvalue { $_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37344	37480	
==>rray->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37344	37480	
==>rray->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37344	37480	
==>rray->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splice( $pos, 0, $ret );
    }
    # warn "FETCH $pos returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1257	1379	
==>sage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1257	1379	
==>sage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1257	1379	
==>sage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unless($link) {
  warn " <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7399	7501	
==>native(R)    --> "|", p5_concatenation(R), ")", !.
p5_condition_alternative(noop) --> ")". 
p5_conditio <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9382	9522	
==>apture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::capture( 'iden <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5328	5424	
==><write> method the file for the properties, and writes it
to disk.  Returns boolean value of succ <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5328	5424	
==><write> method the file for the properties, and writes it
to disk.  Returns boolean value of succ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1908	2005	
==>'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1908	2005	
==>'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1908	2005	
==>'useless use of constant' warnings.)
.
  my $js = precomp_module_to_mini_js "-I", PIL2JS::pwd("lib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4566	4678	
==>' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4566	4678	
==>' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4566	4678	
==>' => Perl6::Value::Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	643	742	
==>oid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	643	742	
==>oid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	643	742	
==>oid_recursion)=@_;
    return $avoid_recursion if defined $avoid_recursion;
    my @subnodes = PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11611	11758	
==>eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11611	11758	
==>eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11611	11758	
==>eq 'str' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14185	14387	
==>turn $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14185	14387	
==>turn $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14185	14387	
==>turn $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl 5 dispatch <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	209	365	
==>iven $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	209	365	
==>iven $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12621	12705	
==>ss="num tests_unexpect"><span title="<tmpl_var name=unexpect> unexpectedly succeeded" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	758	928	
==>ode'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	758	928	
==>ode'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1014	1129	
==>rites a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1014	1129	
==>rites a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1570	1685	
==>rites a message to the diagnostic output filehandle, adding a leading C<#> to
every line if they are not present.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	590	702	
==>es like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	590	702	
==>es like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	590	702	
==>es like you might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2390	2690	
==>accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym(' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15777	15877	
==>d list of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor metho <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15777	15877	
==>d list of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5060	5163	
==>eeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7728	7831	
==>eeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_li <==
3	/Users/nnunley/pugs/util/build_pugs.pl	1639	1736	
==>g the '$module' dependency.  Please wait...\n\n";

        system("../../Setup$Config{_exe}", 'bui <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4458	4588	
==>sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ 'a <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9807	9914	
==>lone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why th <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9807	9914	
==>lone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7643	7776	
==>"
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11120	11253	
==>"
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclu <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	16315	16428	
==>(Int $n, Code $corner) returns Int is primitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Code $c <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13782	13906	
==>ts
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of pref <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13782	13906	
==>ts
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of pref <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2516	2613	
==>tion);
if ($smoke_upload) {
  if (defined $smoke_upload_script) {
    system("$^X $smoke_upload_sc <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12157	12261	
==>S, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = shift;

    return unless $self->{_i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1431	1523	
==>LLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1411	1501	
==>LLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planne <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	401	514	
==>s Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	401	514	
==>s Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7019	7164	
==>} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7019	7164	
==>} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7019	7164	
==>} @args;
        my $wrapper = sub {
            my $sub = shift;
            my %param = $sub->bind_params( @_ );
            my(@a) = (@param{@a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6507	6647	
==>ints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abor <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6300	6432	
==>ints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16968	17064	
==>};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16968	17064	
==>};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16968	17064	
==>};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSeekable ($x <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2181	2292	
==>LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMP <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2181	2292	
==>LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMP <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9502	9634	
==>} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = $self->{rx}->object($ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14357	14457	
==>he
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14357	14457	
==>he
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12440	12540	
==>ates a new env (the parameter is associated with a new type variable)
# this new env is passed down t <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6983	7081	
==>E CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6983	7081	
==>E CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes. <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5036	5164	
==>die "$@";
  }   
  sub mk_ignore_this_node {
    my($o)=@_;
    my $noop = $o->noop;
    sub{my $c = $_[0]; TAILCALL(&$c,$noop);} <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23472	23590	
==>ng"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3146	3252	
==>ty;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3146	3252	
==>ty;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3146	3252	
==>ty;
  $arity ||= 2; # hack
  die "Can't use $arity-ary subroutine as comparator block for &sort!"
    unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11357	11510	
==>xt if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11357	11510	
==>xt if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11357	11510	
==>xt if $spec->optional && ! defined $candidate;
                    if ( $spec->slurpy ) {    ## && $spec->name eq 'Array' ) {
                        ## r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2915	3017	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	946	1048	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	279	381	
==>les have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = { <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	279	381	
==>les have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	212	310	
==>gexPerl5;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10732	10846	
==>// @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10732	10846	
==>// @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10732	10846	
==>// @a[$idx] := $foo should autovivify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2055	2177	
==>rse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2055	2177	
==>rse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2055	2177	
==>rse_method($i);
            if ($type eq 'class') {
                $current_class->add_singleton_method($method_name, $met <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7237	7363	
==>";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    ". <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8402	8503	
==>n " . Dumper(@_);
};

# binary operators must have the same symbol, and are also unified recursively
m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39582	39676	
==>--------------------------------------
## now build Object, so we can create something here

$: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1506	1619	
==>f($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1506	1619	
==>f($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1506	1619	
==>f($full_name) =~ /HASH|CODE/) {
        return _build_class('', undef, undef, $full_name);
    }
    my ($name, $v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	583	703	
==>ror), return );

    my $struct = eval { LoadFile( $file ) } or error( $@ ), return; 

    return $class->new_from_struct <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17342	17449	
==>- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The ite <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17342	17449	
==>- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The ite <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11649	11873	
==>paque'), 
                              symbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e->ge <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13399	13520	
==>Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13399	13520	
==>Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2036	2150	
==>ule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $self->{o <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1240	1335	
==>nge supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), prev <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1240	1335	
==>nge supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), prev <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1673	1791	
==>rn "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2453	2571	
==>rn "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id = <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1589	1689	
==>lti encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

mu <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1589	1689	
==>lti encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

mu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25119	25212	
==>item C<All tests successful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some stati <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9704	9845	
==>EscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
} <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11623	11742	
==>while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_p <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11623	11742	
==>while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22345	22445	
==>ministic, such that all of its class
and object methods will each return the same result when invoked <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26897	26997	
==>ministic, such that all of its class
and object methods will each return the same result when invoked <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25620	25720	
==>ministic, such that all of its class
and object methods will each return the same result when invoked <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	634	754	
==>Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic::abs ( Num $x = CALLER::<$_> --> Num ) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37883	37975	
==>e
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37883	37975	
==>e
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return t <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5739	5876	
==>turn {
      pugs_version  => $1,
      pugs_revision => $2,
      osname        => $3,
      runcore       => runcore2human($4),
      ti <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18579	18672	
==>compilation and execution) to
parasitize the regexp struct - attempting to make it look suffic <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2869	2962	
==>compilation and execution) to
parasitize the regexp struct - attempting to make it look suffic <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4866	4974	
==>oded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode ( <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4866	4974	
==>oded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23342	23440	
==>, the
top value is popped and discarded.

It is important to do this copy-and-push before you do an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	587	712	
==>PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	587	712	
==>PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	587	712	
==>PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", ", map { $_ eq "VUn <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5282	5405	
==>ay: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2847	2961	
==>y @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2847	2961	
==>y @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3441	3559	
==>ame;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3441	3559	
==>ame;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3441	3559	
==>ame;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3143	3278	
==>, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3143	3278	
==>, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3143	3278	
==>, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bless {
            name =>      $name, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	236	372	
==>nctions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	236	372	
==>nctions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	236	372	
==>nctions) {
#	warn "==> to export $_";
    }
    return {};
}

sub perl_use_class {
    my $ct = shift;
    my $class = shift;
    $class- <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5956	6069	
==>ted = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $contex <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6014	6127	
==>ted = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $contex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1574	1684	
==>->{assoc} = 'left' unless defined $opt->{assoc};
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12855	12968	
==>::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12855	12968	
==>::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28353	28458	
==>>

This method returns a count of this Relation::Example's member tuples as an Int.

=item C<exists (Mappi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15714	15826	
==>tever called on $_[0]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11652	11748	
==>nce )`

Returns true if this recurrence intersects (has any element in common) with the given rec <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11652	11748	
==>nce )`

Returns true if this recurrence intersects (has any element in common) with the given rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4033	4158	
==>ub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4033	4158	
==>ub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4033	4158	
==>ub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$m; # XXX Error: Can't use "[object Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8483	8597	
==>y $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8483	8597	
==>y $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (* <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8483	8597	
==>y $res = $x0->zip( $a );
    # warn "res ".ref($res)." ".$res->perl->unboxed;
    return $res;
};
MULTI SUB list (* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4866	5007	
==>? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4866	5007	
==>? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4866	5007	
==>? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = $pat;
    if (substr($pattern,0,2) eq '(?') { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	537	650	
==>ONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	537	650	
==>ONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	537	650	
==>ONTINUATION outside a subroutine!")
      unless grep { $_ >= PIL::SUBROUTINE } @PIL::IN_SUBLIKES;
    return bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21154	21251	
==>UB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21154	21251	
==>UB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21154	21251	
==>UB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {...};
#MULTI SUB map ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	72	188	
==>t) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	72	188	
==>t) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	72	188	
==>t) is primitive {
  JS::inline('(
    function (pre, cond, body, post) {
      try {
        for(pre; cond(); post()) <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11491	11588	
==>=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11491	11588	
==>=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figu <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6581	6676	
==>referable phrasing, it doesnt parse.
multi method Array::as_str (@array:) returns Str {
    join <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16180	16283	
==><'instanceof'> <ShiftExpression>
}
rule EqualityExpression :words {  # see 11.9
      <RelationalExpress <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7960	8058	
==>breaking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted im <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7960	8058	
==>breaking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3517	3622	
==>ub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3517	3622	
==>ub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3517	3622	
==>ub { $_[0]->shift } unless defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defi <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1479	1631	
==>rst->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9659	9786	
==>me;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connect <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9659	9786	
==>me;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connect <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	117	223	
==>sif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	117	223	
==>sif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	117	223	
==>sif $right.isa(Str) {
    $left eq $right;
  }
}

sub infix:«!~» (Item $left, Item $right) is primitive { <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	9184	9282	
==>ur %prelude = (
	# int -> int -> int
	add => type::operator::arrow->new(
		type::operator::nullary- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11334	11431	
==>tring) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $arr <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11334	11431	
==>tring) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14288	14373	
==>:Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14288	14373	
==>:Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14288	14373	
==>:Run::Root::main::hash_ENV->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4230	4340	
==>[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4230	4340	
==>[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4230	4340	
==>[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } elsif $self.isa("Pair") {
    $s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	669	786	
==>$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Pe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5299	5405	
==>r("Last-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5299	5405	
==>r("Last-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7311	7467	
==>: 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $wh <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17508	17606	
==>)` methods.

If the span is "continuous", this method emits a warning and returns undef.

- `span() <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17508	17606	
==>)` methods.

If the span is "continuous", this method emits a warning and returns undef.

- `span() <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1868	1987	
==>turns Scalar {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	118	217	
==>PTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	118	217	
==>PTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4026	4124	
==>turncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: Ther <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4026	4124	
==>turncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: Ther <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4026	4124	
==>turncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: Ther <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11576	11686	
==>ric_reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $node->can("f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	652	741	
==>ect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	652	741	
==>ect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7162	7302	
==>atcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7162	7302	
==>atcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7162	7302	
==>atcher();
    }   
    else {
        confess 'Unsupported dispatch order ($order)'
    }
    return $dispatcher;  
});

::Class.meta.add_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2220	2316	
==>ode) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2220	2316	
==>ode) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2220	2316	
==>ode) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	364	459	
==>2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	364	459	
==>2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_no <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	364	459	
==>2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL2JS::Internals::use_perl5_module_no <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14502	14594	
==>->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:ce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14502	14594	
==>->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:ce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14502	14594	
==>->new( arrayref => \@INC );
	$PIL::Run::Root::main::Perl5::array_INC->{'instance_data'}{'$:ce <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23110	23270	
==>{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Cur <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9878	9983	
==>f._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    retu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9878	9983	
==>f._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	498	600	
==>che is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	498	600	
==>che is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	498	600	
==>che is the sensuous soul, meaning "relating to, or derived 
# from the senses". Think of Roles like you <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6205	6352	
==>lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6205	6352	
==>lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( u <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	45	141	
==>=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	45	141	
==>=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1467	1567	
==>ovides an implementation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* F <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1467	1567	
==>ovides an implementation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* F <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	12924	13025	
==>able";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	12924	13025	
==>able";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	12924	13025	
==>able";
    }
});

::Class.meta.add_method('get_attribute' => method () {
    my ($self, $label, %param <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7545	7681	
==>.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We su <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7545	7681	
==>.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2947	3192	
==>ant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3194	3439	
==>ant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2504	2622	
==>ype Comparator    ::= Code(Any, Any) returns Int;
 type SortCriterion ::= KeyExtractor
                      | Comparat <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1964	2067	
==>1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSplit, " ", $#nameSplit, "\ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	186	288	
==>t representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTI <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	186	288	
==>t representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTI <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10269	10397	
==>0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unles <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10269	10397	
==>0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unles <==
3	/Users/nnunley/pugs/util/version_h.pl	583	704	
==>N and there is
# no repository.  Since we don't need a STDIN anyway, get rid of it.
close STDIN;

if (-e "$base/MANIFEST") <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5216	5351	
==>";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.en <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5216	5351	
==>";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.en <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12248	12382	
==>rmal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12248	12382	
==>rmal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12248	12382	
==>rmal_dispatch_cache{$::CLASS} = { $_[1] => [ $method, undef ] };
            return $method->($_[0], @{$_[2]});  
        }
        els <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4491	4623	
==>atch_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $tokenStack[-1];
    goto missing_ter <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17083	17189	
==>know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifi <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22183	22289	
==>know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20653	20746	
==>ame
# /[get|set][host|net|proto|serv|sock].*/ glob ioctl link listen 
# lstat mkdir open opend <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1313	1424	
==>ods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1313	1424	
==>ods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1313	1424	
==>ods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warning "M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8521	8621	
==>e_object(anyof_class => graph => $neg, $how);
  });

  # lower POSIX class
  $self->add_handler('POSI <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15091	15184	
==>le structures of arbitrary depth and of
an arbitrary type. The function signatures will likely <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15149	15242	
==>le structures of arbitrary depth and of
an arbitrary type. The function signatures will likely <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10378	10535	
==>array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10378	10535	
==>array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10378	10535	
==>array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx].FETCH() == undefined
            )
          ) {
            arra <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5311	5418	
==>ed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This returns a string whic <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5311	5418	
==>ed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This returns a string whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7508	7615	
==>ed> and C<description>, from the
test's attributes.

=item B<report returns Str>

This returns a string whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4608	4788	
==>== 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4608	4788	
==>== 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4608	4788	
==>== 0; 
            $method_source .= $next;            
        }    
        else {
            $method_source .= $next;
        }
    }
    $method_source .= "\n}";
    warn "pre: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1941	2047	
==>ng(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1941	2047	
==>ng(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1941	2047	
==>ng(b)" ],
    [ "infix:gt", "S", "String(a)  > String(b)" ],
    [ "infix:le", "S", "String(a) <= String(b) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6887	6989	
==>ass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6887	6989	
==>ass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6887	6989	
==>ass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses')} => $subclass;
}));

$::Class-> <==
3	/Users/nnunley/pugs/util/func_refact.pl	1569	1694	
==>ew is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5885	5983	
==>-----------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5885	5983	
==>-----------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	611	732	
==>->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	611	732	
==>->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	611	732	
==>->add_method('CREATE' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28019	28187	
==>h( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28019	28187	
==>h( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28019	28187	
==>h( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq ' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12954	13057	
==>.  In that event, it may not
  be possible to get a plausibly scoped alternative working.

  Using $/ mi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22010	22103	
==>d a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", tar <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22010	22103	
==>d a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", tar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5875	6018	
==>here is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5875	6018	
==>here is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access mu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5875	6018	
==>here is no 'set_access' - use 'is Readonly' instead
            # See: t/trait.t
            # 'access' => sub {
            #    die "access mu <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3400	3523	
==>n_setup->('build');
    die "Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	145	251	
==>my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	145	251	
==>my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Matc <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2275	2372	
==>s");

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system.

These objec <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23492	23585	
==>on-trivial
external dependencies (it is very simple).

There are other differences.  Where oth <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23492	23585	
==>on-trivial
external dependencies (it is very simple).

There are other differences.  Where oth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11029	11178	
==>(@{$args{progs}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            el <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4647	4753	
==>ormalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %ca <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4647	4753	
==>ormalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %ca <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20841	20945	
==>id input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25393	25497	
==>id input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relati <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23981	24085	
==>id input.  If an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relati <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	767	882	
==>%indexed;

    if( scalar @metas > 1 ) {
        warn "More than one result found, using highest versioned\n";
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6219	6331	
==>Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_typ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6219	6331	
==>Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5550	5651	
==>$sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5550	5651	
==>$sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5550	5651	
==>$sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possibly <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1082	1238	
==>sage) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1082	1238	
==>sage) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	960	1091	
==>urse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    my @list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3015	3146	
==>my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die " <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3015	3146	
==>my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7460	7589	
==>:CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7460	7589	
==>:CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7460	7589	
==>:CLASS->name ) . " ";
                $s .= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1593	1807	
==>IL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # rel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1593	1807	
==>IL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # rel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1593	1807	
==>IL2 or fixes to PIL1
  #   my $a;     sub b { $a++ }; b();  # does not work, as &b is *only* in
  #                                    # pilGlob, i.e. it doesn't have any
  #                                    # rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	865	984	
==>dPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	865	984	
==>dPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	865	984	
==>dPair;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    my $key = ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12904	13011	
==>lude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12904	13011	
==>lude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12904	13011	
==>lude::PIR
sub splice (@a is rw, $offset=0, $length?, *@list) is primitive {
    my $off = +$offset;
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1545	1659	
==>t the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1545	1659	
==>t the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22756	22860	
==>defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22756	22860	
==>defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22756	22860	
==>defined $v2
     ? p6_from_n(index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3053	3209	
==>^X $preinst ] )                and die $?;
            }
        
            print "Installing code...\n";
            system( qq[cp -R $Builddir/$path $Sit <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6512	6606	
==>itpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_directo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6512	6606	
==>itpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_directo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21074	21238	
==>ethod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43998	44145	
==>ethod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shi <==
3	/Users/nnunley/pugs/util/importgraph.pl	379	486	
==>" => \$layout,
  "overlap=s" => \$overlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	91	187	
==>Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, r <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	91	187	
==>Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, r <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	322	417	
==>=> 5;
use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	847	960	
==>ARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	847	960	
==>ARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	847	960	
==>ARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CALLER:: <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6292	6397	
==>f = shift;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10961	11057	
==>rwise the program will emit warnings during the execution of some methods, 
because it will try t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10961	11057	
==>rwise the program will emit warnings during the execution of some methods, 
because it will try t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	822	947	
==>_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	822	947	
==>_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	822	947	
==>_;
        (defined $label && $label)
            || confess "You must supply a valid method label";
        (blessed($method) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3202	3320	
==>les can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3386	3504	
==>les can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18250	18452	
==>::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18250	18452	
==>::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18250	18452	
==>::Indent=1;
                    #print Dumper($ret);
                    return $ret;
                }
                
                if ( $method eq 'push'   || $method eq 'unshift' || $method eq 'st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4275	4376	
==>status' => sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5013	5112	
==>status' => sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5848	5970	
==>rsection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5848	5970	
==>rsection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2755	2878	
==>OOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "Yo <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2755	2878	
==>OOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "Yo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5211	5312	
==>lute value
# otherwise $range is a fractional error.
# Here $range must be numeric, >= 0
# Non numeric <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	93	185	
==>P::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	93	185	
==>P::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5206	5312	
==>ub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5206	5312	
==>ub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5206	5312	
==>ub($value, $self);
    } 
    ::opaque_instance_attr($self => '%:namespace')->{$label} = $value;
}));

=pod <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1304	1407	
==>ss "Condition must be a block";
    while ($condition->do()->to_bit == $bit::FALSE) {
        $self->do( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	798	892	
==>led_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	798	892	
==>led_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2096	2190	
==>type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2096	2190	
==>type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2096	2190	
==>type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    die 'read only cell' if $_[0]{ro} && defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5566	5700	
==>tion (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5566	5700	
==>tion (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5566	5700	
==>tion (ok, from, to, s, a, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = fu <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	766	869	
==>s in a program.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_finder = Blond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9623	9719	
==>xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9623	9719	
==>xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9623	9719	
==>xx,1)};
MULTI SUB require ($xx) {help_require_use($xx,0)};
sub help_require_use { # XXX - getting <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	0	99	
==>﻿
# XXX - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	0	99	
==>﻿
# XXX - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	0	99	
==>﻿
# XXX - doesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2221	2352	
==>alue] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2221	2352	
==>alue] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = prec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2221	2352	
==>alue] = set the path to thing
                          (pugs|pil2js|preludepc|metamodel_base|output)
:precomp                = prec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1755	1888	
==>: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1755	1888	
==>: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1755	1888	
==>: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default: undef; can be set to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1309	1441	
==>';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1514	1646	
==>';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1575	1707	
==>';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	735	856	
==>dy
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the tru <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	735	856	
==>dy
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the tru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	374	481	
==>Inf' ,} } ) );
    __PACKAGE__->add_rule( NaN => q({ return { num => 'NaN' ,} } ) );
    __PACKAGE__->recomp <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3410	3535	
==>t.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3410	3535	
==>t.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	26806	26900	
==>e test being run.  Setting C<$Test::Harness::Debug> will
override this, or you can use the C<-d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8128	8249	
==>[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8116	8237	
==>[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4896	5015	
==>= _all_ok($tot);

    assert(($ok xor keys %$failedtests), 
           q{ok status jives with $failedtests});

    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3549	3662	
==>} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# Se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3549	3662	
==>} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# Se <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3549	3662	
==>} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# Se <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	368	532	
==>w {
    my $self    = shift;
    my $conf    = $self->config;
    my %hash    = @_;
    
    my $meta; my $inst;
    my $tmpl = {
        meta => { 
            requ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2299	2418	
==>rt = %param<after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %par <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2299	2418	
==>rt = %param<after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6179	6285	
==>f $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6179	6285	
==>f $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6179	6285	
==>f $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	251	358	
==>se Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	251	358	
==>se Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	251	358	
==>se Math::BigInt;

# Main class method: Parses the given PIL.
sub parse {
  my ($class, $str) = @_;

  die "N <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5118	5229	
==>ase and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5118	5229	
==>ase and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10581	10698	
==>t -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.k <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10581	10698	
==>t -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16772	16879	
==>pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16772	16879	
==>pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16772	16879	
==>pos ($xx) {...};
MULTI SUB IO::tell ($xx) {...};
MULTI SUB Pugs::Internals::hIsOpen ($xx) {...};
MULTI SUB P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	466	573	
==>c->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	466	573	
==>c->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	466	573	
==>c->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @cands;
  return <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	534	633	
==>rse engineer an implicit abstraction
# "barrier" for the engine, from the entire perl5 source.

# Th <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3690	3809	
==>PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3690	3809	
==>PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	540	659	
==>PIL_Stmts',            'PNil';
node_h 'PIL_Stmts',            'PStmts', 
  'pStmt'  ,'PIL_Stmt',
  'pStmts' ,'PIL_Stmts' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	975	1068	
==>what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_mat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	975	1068	
==>what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_mat <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	975	1068	
==>what,$name,$argl,$f)=@_;
    PIL::Run::ApiX::def_prim($what,$name,$argl,$f);
};

sub smart_mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3350	3474	
==>thod_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hell <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3350	3474	
==>thod_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hell <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3350	3474	
==>thod_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hell <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	598	725	
==>ogram aborts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6130	6231	
==>@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6130	6231	
==>@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key ac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6130	6231	
==>@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key ac <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1165	1289	
==>ub merge {
    my ($self) = @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	54	155	
==>- 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	54	155	
==>- 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16466	16611	
==>sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16466	16611	
==>sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16466	16611	
==>sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = $_[0] =~ /(.*)(.)/;
    return str_decr($s) . 'z' i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	408	506	
==>=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DES <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	408	506	
==>=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 DES <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5985	6078	
==>Macro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPo <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5985	6078	
==>Macro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPo <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2884	2977	
==>Macro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'SubBlock';
node_s 'SubType', 'SubPo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	327	427	
==>L::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	327	427	
==>L::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	327	427	
==>L::PStmts wraps a return() around the last statement, but only if we're
# $PIL::IN_SUBLIKE. Easy, eh? <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2633	2820	
==>es easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # the package name
                     ([\d.]+)   -   # the version
                     (\w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31323	31420	
==>you want modules from multiple
sets in the same disk directory.  In the first example, the Set Nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31323	31420	
==>you want modules from multiple
sets in the same disk directory.  In the first example, the Set Nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3159	3288	
==>}

  sub family { 'space' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Re <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15617	15740	
==>ntries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15617	15740	
==>ntries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	274	387	
==>ol is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an u <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	274	387	
==>ol is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an u <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1860	1962	
==>ut;
      die "Oops, you failed.\n";
   }
}

# -----------------------------------------------------

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2466	2563	
==>mber(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2466	2563	
==>mber(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2466	2563	
==>mber(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\'))') : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2830	2927	
==>arn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2830	2927	
==>arn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2830	2927	
==>arn "Perl6::Cell::fetch tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	841	953	
==>add allow handlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta object
    { <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12438	12531	
==>ke the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will no <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12438	12531	
==>ke the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will no <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	330	549	
==>ceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	330	549	
==>ceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	330	549	
==>ceof PIL2JS.ControlException.redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) { <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4089	4205	
==>.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = ma <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4089	4205	
==>.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = ma <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13543	13642	
==>required> <MemberExpression> <Arguments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4398	4495	
==>PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4398	4495	
==>PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4398	4495	
==>PIL::add_indent(1, $self->{pCxt}->as_js);

    if($subname and my $macro = $Prelude::JS::macro{$su <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7524	7772	
==>be->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7988	8236	
==>be->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every pa <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8631	8744	
==>y->{symbol}
		or die "Can't unify $x->{symbol} with $y->{symbol} in " . Dumper(@_);
	
	unify($x->left, $y->left, @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2065	2194	
==>}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter orde <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2205	2334	
==>}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter orde <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5135	5225	
==>> {true}.

p6_range_bounds(Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(Min,Max), ! <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24971	25074	
==>.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29523	29626	
==>.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28435	28538	
==>.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This method returns a Bool indicating whe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	682	799	
==>),

           and it should not backtrack or whatever



Continuations are used for backtracking.



A "ruleop" funct <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10550	10667	
==>),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" funct <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	655	767	
==>),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" funct <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9724	9831	
==>$result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{
    @strings.map <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9724	9831	
==>$result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{
    @strings.map <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19944	20045	
==>f a bad type to a str
my $app_plus_ten_to_str = comb(
	fun => $app_to_str,
	param => $plus_ten,
);

my <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5091	5199	
==>tart_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5091	5199	
==>tart_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1133	1265	
==>ture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1133	1265	
==>ture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3188	3307	
==>( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3188	3307	
==>( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3105	3221	
==>t) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3651	3767	
==>t) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.i <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15795	15901	
==>lationalExpression> <'in'> <ShiftExpression>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <Sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2194	2323	
==>ata::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2194	2323	
==>ata::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2541	2670	
==>ata::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # bind for subroutin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3765	3869	
==>s the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3765	3869	
==>s the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3845	3949	
==>s the easiest way to match a passing test.

=item B<test_fail( Str $description )>

Marks that the next t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3647	3745	
==>escription )>

Marks that the next test should pass.  C<$description> is the optional
description o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3647	3745	
==>escription )>

Marks that the next test should pass.  C<$description> is the optional
description o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3727	3825	
==>escription )>

Marks that the next test should pass.  C<$description> is the optional
description o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	758	858	
==>methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	758	858	
==>methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	758	858	
==>methods
#
# 2005-08-17
# * added boxed type: List (lazy, non-lazy, infinite)
# * More descriptive met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8055	8162	
==>L::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a gi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8055	8162	
==>L::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a gi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8055	8162	
==>L::$type\::as_constant"} = *{"PIL::" . uc $type};
  }
}

# Returns the undef/zero/default container for a gi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10046	10180	
==>turn { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10882	11016	
==>turn { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the gramma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	851	952	
==>ar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - sepa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	851	952	
==>ar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - sepa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	851	952	
==>ar' container

# TODO - allow dual-behaviour objects with 'array_fetch' and 'hash_fetch'
# TODO - sepa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	734	834	
==>s can work" to "ok, this looks doable".  So yes, the code is
an utter mess.

The project objectives a <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	752	847	
==>f: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	752	847	
==>f: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractiv <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	486	594	
==>preter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	859	966	
==>n" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	859	966	
==>n" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1602	1729	
==>ngle quotes are always tried even if it were expecting a simple '<'
            
                # after whitespace means '<' (d <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2173	2268	
==>amed C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

W <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2173	2268	
==>amed C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

W <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2520	2644	
==>@a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].e <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2520	2644	
==>@a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8697	8810	
==>x:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUint32($P);
    return if $uint < $A. <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15787	15903	
==>.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19264	19380	
==>.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18743	18859	
==>.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2971	3090	
==>$self, $default) = @_;
    #print "emitting grammar in perl6\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{lev <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15809	15923	
==>)
  ( \+(match_captures_get(I,E0,_)) ; match_captures_get(I,E0,X), var(X) )
  -> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29111	29211	
==>n).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33663	33763	
==>n).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1553	1645	
==>PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1553	1645	
==>PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1553	1645	
==>PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method join(@self: Str $sep) { <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19640	19740	
==>ive is safe {
    join($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Intern <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11447	11539	
==>ersion") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Ac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11447	11539	
==>ersion") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	263	373	
==>a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	263	373	
==>a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	263	373	
==>a generic reference!");
    }

    // Relay .FETCH and .STORE to the referencee.
    var ret = new PIL2JS.Box.P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23247	23374	
==>";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19668	19795	
==>";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G ( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1	116	
==>ackage JIB::Source;

use strict;
use warnings;

use JIB::Meta;
use JIB::Config;
use JIB::Utils;
use JIB::Package;

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2712	2836	
==>er\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2712	2836	
==>er\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2712	2836	
==>er\'s
      // original array.
      var array = [].concat(thing);

      array.flatten_me = true;
      cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5101	5210	
==>jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5101	5210	
==>jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to us <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5101	5210	
==>jssm {
  my $js = shift;
  diag $cfg{js};

  # "require" instead of "use" here so users which don't want to us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4720	4838	
==>s qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->conta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4720	4838	
==>s qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->conta <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5310	5428	
==>s qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->conta <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	809	941	
==>f_crowd {
        my $phrase = finger @x;
       %terms{$phrase}++
    }
    %terms
}

sub addtolist ($x){
    " $x,";    
}

sub app <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	20	119	
==>0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

subm <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	20	119	
==>0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

subm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2594	2691	
==>5 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2594	2691	
==>5 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2594	2691	
==>5 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number(a)",
  "infix:«+^»",   2, "N", <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2632	2754	
==>sif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq "circumfix" )
  {
    $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1025	1121	
==>lue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1025	1121	
==>lue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1429	1550	
==>on (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1429	1550	
==>on (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1429	1550	
==>on (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0].FETCH();
    var keys = args[1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4496	4604	
==>nformation.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4496	4604	
==>nformation.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4496	4604	
==>nformation.\n";
  } else {
    print STDERR <<USAGE; exit }}
pil2js.pl compiles PIL as generated by Pugs to J <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2850	2957	
==>[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TOD <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2838	2945	
==>[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TOD <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26853	26946	
==>thod installs all the flags and handlers.  F<Regexp::Parser> does
this automatically, but if y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2637	2754	
==>ub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = bac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2637	2754	
==>ub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = bac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2637	2754	
==>ub generic_cc {
  my ($name, $lvalue, @vars_to_restore) = @_;

  my $restores = join "; ", map {
    sprintf "%s = bac <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1331	1449	
==>ues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	351	469	
==>ues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8807	8925	
==>ues[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1456	1574	
==>rt_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1456	1574	
==>rt_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1536	1654	
==>rt_test( 'not ok', $diagnostic );
}

sub report_test ( Str $type, Str $diagnostic? )
{
    my $number = $tb_test.get_te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5046	5166	
==>@a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5046	5166	
==>@a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5046	5166	
==>@a\n";
    return @a;
}
sub Perl6::Slice::fetch {
    my $self = shift;
    my $i = shift;
    my $pos = Perl6::Value::nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	240	343	
==>minate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	240	343	
==>minate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	240	343	
==>minate.
  return "throw new PIL2JS.ControlException.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2J <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19126	19243	
==>);
        return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19405	19522	
==>);
        return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} } <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8979	9090	
==>y $noop = $o->noop;
    my($min,$max)= (@$o{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16541	16662	
==>s;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16541	16662	
==>s;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this modul <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	781	893	
==>', entry_html => '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl", topic => $topic, entry => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1925	2026	
==>,
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1925	2026	
==>,
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22256	22344	
==>. %\v chr(11)

case_insensitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28498	28601	
==>pped, with
its keys being the new tuple-valued attribute names and each of its values
the set of old att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33050	33153	
==>pped, with
its keys being the new tuple-valued attribute names and each of its values
the set of old att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32178	32281	
==>pped, with
its keys being the new tuple-valued attribute names and each of its values
the set of old att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7110	7279	
==>ice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7110	7279	
==>ice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7110	7279	
==>ice done";
            # items should be cloned before storing
            my @items = $slice->unboxed->items;
            @items = map {
                        # warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21005	21108	
==>my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21005	21108	
==>my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21005	21108	
==>my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4772	4875	
==>ars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->con <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4772	4875	
==>ars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->con <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5362	5465	
==>ars, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} or Carp::confess $self->con <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1294	1402	
==>"infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1294	1402	
==>"infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1294	1402	
==>"infix:«!=»",   2, "N", "Number(a) != Number(b)",
  "infix:«lt»",   2, "S", "String(a)  < String(b)",
  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6355	6593	
==>= $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6355	6593	
==>= $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6355	6593	
==>= $_[0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16892	16999	
==>RO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16892	16999	
==>RO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16892	16999	
==>RO'              => ::make_attribute('@:MRO'));
$::Class->add_attribute('@:superclasses'     => ::make_attri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2528	2633	
==>de::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1140	1245	
==>de::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1841	1946	
==>de::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<ident>' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7894	8064	
==>args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2070	2170	
==>,
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2070	2170	
==>,
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4225	4342	
==>c {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5074	5191	
==>c {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6081	6173	
==>em B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6081	6173	
==>em B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8278	8370	
==>em B<Test::Builder::Test::Fail>

These next two classes both perform the Test::Builder::Test: <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1255	1424	
==>sub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2539	2648	
==>_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2539	2648	
==>_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1823	1932	
==>et; # want Item ?? +@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Arra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1000	1107	
==>et; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Arra <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1473	1580	
==>et; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1101	1195	
==>\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1101	1195	
==>\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1101	1195	
==>\\> ($xx) { coerce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1501	1620	
==>r {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

subm <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1501	1620	
==>r {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

subm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1513	1667	
==>} 
        if exists $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4571	4703	
==>ame eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4583	4715	
==>ame eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2490	2690	
==>lear => sub {
                my $self = shift;
                %{$self->hash_fetch} = ();
            },
            hash_isEmpty => sub {
                my $self = shift;
                # FIXME con <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22750	22856	
==>h>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> <Catch> <Finally>
}
rule Catch :words {  # see 12. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13795	13893	
==>xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13795	13893	
==>xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13795	13893	
==>xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6_to_s($x <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11219	11350	
==>else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.curren <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11219	11350	
==>else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.curren <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3844	3992	
==>fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3844	3992	
==>fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3844	3992	
==>fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't close \"$cfg{pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23474	23583	
==>s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23474	23583	
==>s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23474	23583	
==>s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($mods6,$pat6,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7484	7602	
==>cro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7484	7602	
==>cro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7484	7602	
==>cro') {
        my($name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12118	12232	
==>); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12118	12232	
==>); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Ru <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12118	12232	
==>); # dont want current class;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5759	5880	
==>q" } = $func;
}


sub del_handler {
  my ($self, @handles) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8358	8478	
==>( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::nu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8069	8183	
==>( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2	113	
==>my $x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2	113	
==>my $x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2	113	
==>my $x = ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1374	1476	
==>File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1374	1476	
==>File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1860	1948	
==>(not an object)");

		Scalar::Util::blessed($node) ? $self->SUPER::reduce($node->struct_e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12129	12266	
==>ason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO does Test::Bu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2531	2654	
==>ason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2531	2654	
==>ason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO does Test::Bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	535	663	
==>_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	535	663	
==>_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	535	663	
==>_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2451	2720	
==>p {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2451	2720	
==>p {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2451	2720	
==>p {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $type [ @ary ]";
                if ( $type eq 'all' ) {
                    for ( @ary ) { return Bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1705	1881	
==>{ $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1705	1881	
==>{ $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1705	1881	
==>{ $s .= "\n".$o->_indent($_->describe())."," }
                $s .= "\n " if @{$o};
                $s .= "],{";
                for (keys(%{$o})) {
                    $s .= " <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1958	2059	
==>tins->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	my $node = shift;
	my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4164	4282	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4164	4282	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4164	4282	
==>('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return undef unless $class_name;
    my $dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15523	15641	
==>e) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

I <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15523	15641	
==>e) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

I <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2131	2232	
==>name($_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self->{errnum} && $self->{errnum <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2991	3109	
==>quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2979	3097	
==>quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4148	4368	
==>my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4148	4368	
==>my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6345	6444	
==>ollowed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6345	6444	
==>ollowed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6345	6444	
==>ollowed by whitespace or semi-colon (EOL) 
    $method_source =~ s/(\%[.:]\w+)(\s|\;)/\%\{\:\:opaque <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4041	4163	
==>() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of our child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4041	4163	
==>() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of our child <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2005	2108	
==>le2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $file4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7243	7342	
==>intf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7243	7342	
==>intf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7243	7342	
==>intf "backup_%s = %s", PIL::name_mangle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1989	2105	
==>l :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1989	2105	
==>l :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1989	2105	
==>l :)
    sub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1339	1513	
==>el::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (H <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1339	1513	
==>el::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	457	560	
==>ated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	457	560	
==>ated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added supp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	457	560	
==>ated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * Added supp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1564	1674	
==>lti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1564	1674	
==>lti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1564	1674	
==>lti sub sign ($x) { $x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2061	2189	
==>erl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2201	2329	
==>erl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	222	330	
==>:Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3755	3859	
==>When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3755	3859	
==>When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3755	3859	
==>When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, $a would get the 1, not th <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40524	40780	
==>_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->sen <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1860	2025	
==>::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.matc <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1860	2025	
==>::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.matc <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5584	5749	
==>nk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:<?? !!>'),
                    Sy <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8435	8532	
==>h[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8423	8520	
==>h[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	704	834	
==>tand) the modula 2 code, so
# the impl is probably different)


use utf8;
use strict;
use warnings;

use Set::Object ();
use Data:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16447	16573	
==>xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12868	12994	
==>xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char cl <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4397	4538	
==>2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4397	4538	
==>2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "c <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2757	2855	
==>} || [];
    unless (@$extensions) {
        $self->load_extensions("$self->{prefix}/$self->{path}" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2618	2720	
==>l2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2618	2720	
==>l2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2618	2720	
==>l2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_mangle($self- <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1007	1113	
==>\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $direct <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1007	1113	
==>\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $direct <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29419	29520	
==>ample attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1899	2001	
==>ere
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1899	2001	
==>ere
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bui <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1899	2001	
==>ere
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _bui <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3906	4022	
==>ssing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3906	4022	
==>ssing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3906	4022	
==>ssing CC!\n";
      require YAML; warn YAML::Dump($self);
    }

    # Minor hack -- we undefine all params to not su <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	835	945	
==>}
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	835	945	
==>}
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	835	945	
==>}
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1007	1122	
==>alue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1212	1327	
==>alue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'is <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1273	1388	
==>alue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11756	11912	
==>g->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11756	11912	
==>g->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11756	11912	
==>g->cell->{type} eq 'Array';
                _('$:cell', $thing->cell);
                return $self;
            },
            'cell' =>     sub { _('$:cell <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1669	1788	
==>de"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1669	1788	
==>de"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3605	3722	
==>op }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3605	3722	
==>op }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clon <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3605	3722	
==>op }   unless defined $param{pop_n}; 

    $param{DESTROY} = sub {}   unless defined $param{DESTROY}; 
    $param{clon <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23609	23701	
==>n library's interface.

See also the bundled L<Relation::Example>, which provides a minimal i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11559	11780	
==>[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11559	11780	
==>[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11559	11780	
==>[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate);
                        return (0 <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23442	23536	
==>None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribu <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23442	23536	
==>None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3797	3934	
==>ath ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/./ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3797	3934	
==>ath ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/./ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	615	715	
==>called on @_";
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime - Base class for executi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8946	9103	
==>oxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8946	9103	
==>oxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8946	9103	
==>oxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call method \"$method\" in an u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32365	32460	
==>in the future they may alternately be something
else, such as XML or tab-delimited plain text fi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32365	32460	
==>in the future they may alternately be something
else, such as XML or tab-delimited plain text fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10133	10288	
==>"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10133	10288	
==>"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$b <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10133	10288	
==>"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13416	13520	
==>Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13416	13520	
==>Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13416	13520	
==>Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container:: <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15026	15127	
==>ates a span with a single element. This is the same as `new( start => $object, end => $object )`.

- ` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15026	15127	
==>ates a span with a single element. This is the same as `new( start => $object, end => $object )`.

- ` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2013	2129	
==>ef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2013	2129	
==>ef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2013	2129	
==>ef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    my $n <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3388	3504	
==>.9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3388	3504	
==>.9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11733	11845	
==>elation::Example.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2045	2168	
==>t }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help messa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2045	2168	
==>t }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help messa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2045	2168	
==>t }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = show this help messa <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3231	3337	
==>*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r->substrs->data <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1403	1502	
==>h::Basic::exp($exponent, $base);
 }
 multi Math::Basic::exp ( Num $exponent = CALLER::<$_>, Num :$ba <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1011	1093	
==>GE';

----------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5923	6023	
==>stom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5923	6023	
==>stom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesse <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5923	6023	
==>stom($myobj, "MyName", { editor => \&pruning_editor });

When pruning is turned on, a custom reblesse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7126	7219	
==>codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7126	7219	
==>codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7126	7219	
==>codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var)?$var:do{$var=$sub})})";
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9269	9364	
==>-----------------------------

This is a rough sketch of that role(Role) might look like. 

role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9269	9364	
==>-----------------------------

This is a rough sketch of that role(Role) might look like. 

role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9269	9364	
==>-----------------------------

This is a rough sketch of that role(Role) might look like. 

role <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1758	1871	
==>scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1758	1871	
==>scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.joi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1758	1871	
==>scrollTo(0, document.body.offsetHeight
                      || document.body.scrollHeight);
    }
  )')(@text.joi <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	185	305	
==>ng_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	185	305	
==>ng_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1246	1350	
==>ib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6214	6339	
==>}      

        last LINKING unless $link_this;

        ### remove the registered alternative
        $self->remove_register <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11436	11530	
==>hing
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$tod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11494	11588	
==>hing
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$tod <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7911	8011	
==>OSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7911	8011	
==>OSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	972	1091	
==>y => 2,
			name => '&infix:<~>',
			body => 'prel_cat',
			type => type("PV -> PV -> PV"),
		},
		{
			arity => 2,
			na <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	183	275	
==>l6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5889	5995	
==>s_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print enc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5889	5995	
==>s_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print enc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5889	5995	
==>s_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print enc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2569	2691	
==>,
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2569	2691	
==>,
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2569	2691	
==>,
        thing.value
      )));
    } else if(thing instanceof Array) {
      // We\'ve to [].concat here so we don\'t set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3829	3930	
==>ed"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3829	3930	
==>ed"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4419	4520	
==>ed"
		unless $param->is_optional;
	}
    }

    if ($self->named_slurpy) {
	$self->named_slurpy->slurp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7811	7949	
==>}) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11812	11945	
==>}) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11812	11945	
==>}) {
        $idx++, next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4171	4295	
==>er::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22265	22361	
==>om multiple packages which
have the same method names as you or each other, or having multiple se <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22265	22361	
==>om multiple packages which
have the same method names as you or each other, or having multiple se <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7808	7920	
==>$r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11285	11397	
==>$r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &ex <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10449	10561	
==>$r1;
}

&disjoint_union       ::= &exclusion;
&d_union              ::= &exclusion;
&symmetric_difference ::= &ex <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	963	1088	
==>n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );
}

{
my $r = 
    concat( 
        alterna <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3257	3365	
==>%param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3257	3365	
==>%param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2890	3006	
==>ile;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args he <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2890	3006	
==>ile;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args he <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39549	39634	
==>-----------------------------------------------------------------------
## now build O <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1940	2036	
==>Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1940	2036	
==>Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	645	769	
==>-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	645	769	
==>-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - dele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	645	769	
==>-infinite)
# TODO - each() methods
# TODO - hash cells with rw, ro, binding hash elements
# TODO - tied hashes

# TODO - dele <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2095	2232	
==>$.number',
        '$.diagnostic',
        '$.description',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %p <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20297	20412	
==>Pe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16718	16833	
==>Pe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2590	2744	
==>bug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2590	2744	
==>bug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	188	283	
==>my ($class, $name, $type) = @_;
    (defined $name && $name =~ /^[\$\@\%\&][\.\:][a-zA-Z0-9_]+$/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9665	9783	
==>into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9665	9783	
==>into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3241	3329	
==>l  Failed  List of Failed
  ------------------------------------------------------------- <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9492	9592	
==>sure => sub { `strings $initrd_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36089	36187	
==>.  All combinations having the same Member Name are adjacent
to each other in the output; for examp <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36089	36187	
==>.  All combinations having the same Member Name are adjacent
to each other in the output; for examp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9861	9983	
==>in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # ------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9861	9983	
==>in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # ------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9861	9983	
==>in 
    # the Role it can remain an implementation detail 
    # for the methods described below.
    # ------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4161	4298	
==>= $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4354	4491	
==>= $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	55	153	
==>ed on r8593.
# Multis are defined in terms of others, or of Pugs::Internals:: subs,
# or implemente <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6424	6523	
==>". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6424	6523	
==>". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6424	6523	
==>". Anything the IO object refers to will not be
visited by Class::Rebless.

=back

=head1 CAVEATS

R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4242	4337	
==>ference, the match object returns positional
captures as match objects.

=head2 %{}

When used a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4242	4337	
==>ference, the match object returns positional
captures as match objects.

=head2 %{}

When used a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	676	893	
==>]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	676	893	
==>]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9255	9378	
==>am . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9243	9366	
==>am . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12238	12336	
==>pes::prelude) }
ROOT: generic_in($$) = {
	my $env = env($$);

	Set::Object->new(
		grep { $_->free_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5321	5419	
==>ly)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for examp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5321	5419	
==>ly)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for examp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5321	5419	
==>ly)
intended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for examp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2184	2295	
==>message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $message );
  }
  
  method diag ( Str $message is copy <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	181	284	
==>message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	181	284	
==>message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $message );
}

method diag ( Str $message is copy <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	845	1004	
==>_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	845	1004	
==>_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7860	7980	
==>ubstr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value
    $S0 = substr target, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3070	3182	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3263	3375	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5284	5380	
==>}
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class-> <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5284	5380	
==>}
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2733	2823	
==>self->{'values'}{'no_index'}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10610	10727	
==>t(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10610	10727	
==>t(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10610	10727	
==>t(/::/,$name));
    my @incdirs;
    my $inc6 = p6_var('@INC',2);
    my $inc =  p6_to_a($inc6);
    for (@$inc) {
	my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10390	10512	
==>Str $reason = '' )
  {
      $.output.write( "Bail out!  $reason" );
      exit 255;
  }
  
  method report_test ( Test::Bu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2411	2521	
==>Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Bu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2411	2521	
==>Str $reason = '' )
{
    $.output.write( "Bail out!  $reason" );
    exit 255;
}

method report_test ( Test::Bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15797	15938	
==>0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15797	15938	
==>0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15797	15938	
==>0] }
sub to_bit        { 
    return '' if $_[0] eq '0' || $_[0] eq '';
    return 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2726	2840	
==>);
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2726	2840	
==>);
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11743	11855	
==>f->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1699	1831	
==>and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1699	1831	
==>and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1699	1831	
==>and scroll down...
      document.write(msg);
      window.scrollTo(0, document.body.offsetHeight
                      || document.b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2674	2799	
==>ssion and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2674	2799	
==>ssion and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2674	2799	
==>ssion and show it
:l filename.p6          = compile file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2694	2821	
==>me eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2694	2821	
==>me eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2694	2821	
==>me eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # instance o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34149	34264	
==>'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34149	34264	
==>'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34149	34264	
==>'Perl6::Value::List') && $_->is_lazy;
    }
    0;
}

sub flatten {
    # this needs optimization
    my $array = sh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3240	3363	
==>y('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3240	3363	
==>y('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1828	1935	
==>gs,{},$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5371	5470	
==>{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5371	5470	
==>{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5961	6060	
==>{$self->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21731	21830	
==>he same key code with a new user message in
one of their own resource files.  At some appropriate pl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21731	21830	
==>he same key code with a new user message in
one of their own resource files.  At some appropriate pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16698	16800	
==>de::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16698	16800	
==>de::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16698	16800	
==>de::arity ($xx) {...};
#MULTI SUB Code::body ($xx) {...};
MULTI SUB Code::pos ($xx) {...};
MULTI SUB IO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3417	3608	
==>$<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3664	3855	
==>$<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { retur <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	368	484	
==>ie::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3972	4078	
==>UR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3972	4078	
==>UR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3972	4078	
==>UR_SUBNAME : '']}>" }
  sub arity  { $_[0]->params->arity }
  sub type   :lvalue { $_[0]->{pType}    }
  su <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6828	6946	
==>8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(822 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6828	6946	
==>8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(822 <==
3	/Users/nnunley/pugs/util/file_to_hs.pl	550	651	
==>in.
-}
EOF
print OUT "$data :: String\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1474	1573	
==>if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1474	1573	
==>if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.star <==
3	/Users/nnunley/pugs/util/build_pugs.pl	635	728	
==>l` in
the build root. You may override these settings using the PUGS_BUILD_OPTS
environment va <==
3	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	55	170	
==>$name) returns Str is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Module - A Sample Module for Pugs/Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17628	17722	
==>.user_agent

This header field is used in request messages and contains information
about the u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17628	17722	
==>.user_agent

This header field is used in request messages and contains information
about the u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4176	4312	
==>s[$i]\n";
        $j = $i;
    }
    if ( $i != $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( $it <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3970	4086	
==>an::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <= <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3970	4086	
==>an::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8944	9082	
==>nboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8944	9082	
==>nboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8944	9082	
==>nboxed' => 'undef' ) if $method eq 'str';
                    return if $method eq 'unboxed';
                    die "Trying to call metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1042	1132	
==>IL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1042	1132	
==>IL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1042	1132	
==>IL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($self i <==
3	/Users/nnunley/pugs/util/func_refact.pl	2501	2612	
==>callees for func
          , union(Storable::dclone($ccset), $cand)];  # new contributions
        #print "$cand <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19486	19579	
==>st be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19486	19579	
==>st be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11662	11778	
==>ted";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11662	11778	
==>ted";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11662	11778	
==>ted";
            warn "map->clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5437	5535	
==>if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writabl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5437	5535	
==>if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writabl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6027	6125	
==>if ($self->p5type eq '$') {
	# XXX: check $var type etc, take additional ref
	if ($self->is_writabl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1963	2125	
==>bort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $ma <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1742	1894	
==>bort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1742	1894	
==>bort} = 1;
        return $match;
    };
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3077	3188	
==>{
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3077	3188	
==>{
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$curre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3077	3188	
==>{
    my $self = shift;
    if (my $current_class = $self->env->get('current_class')) {
        unless (@{$curre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1156	1274	
==>ie("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1156	1274	
==>ie("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1156	1274	
==>ie("\"" + ref + "\" is not a reference!");
    }

    var new_ref       = new PIL2JS.Ref(ref.referencee);
    new_ref.a <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13606	13747	
==>, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synhtml = catfile($syndir     , "$syn. <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6306	6411	
==>d;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $valu <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6306	6411	
==>d;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $valu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19531	19650	
==>_Print = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} sub <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	757	857	
==>}
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    met <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	757	857	
==>}
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19638	19735	
==>. The end of an inner block
effectively acts as a C<no> statement for any compile sections in
that <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19638	19735	
==>. The end of an inner block
effectively acts as a C<no> statement for any compile sections in
that <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1566	1711	
==>@_;
    Carp::croak("anchor is an abstract class") if $class =~ /::anchor$/;

    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1107	1200	
==>tions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => s <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1107	1200	
==>tions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11125	11263	
==>~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1597	1721	
==>~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1597	1721	
==>~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	419	525	
==>p cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	419	525	
==>p cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	419	525	
==>p cloning
# * functions that don't support deep cloning emit warnings on clone
#
# 2005-08-29
# * new metho <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10991	11129	
==>ernt TODO types
            foreach my $todo_type (keys %todos) {
                my $num_tests = $todos{$todo_type};
                if ($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1624	1752	
==>tring ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1624	1752	
==>tring ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2385	2485	
==>mber(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2385	2485	
==>mber(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2385	2485	
==>mber(b) == 0 ? eval('throw(new Error(\\'Division by zero\\'))') : Number(a)  / Number(b)" ],
    [ "i <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	362	494	
==>(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19079	19189	
==>in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19079	19189	
==>in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13416	13537	
==>scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13416	13537	
==>scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13416	13537	
==>scalar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11523	11626	
==>t_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11523	11626	
==>t_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11523	11626	
==>t_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_table(\%p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6381	6480	
==>w PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6381	6480	
==>w PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primiti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6381	6480	
==>w PIL2JS.Box.Constant(arr));
    })')(@things);
  }
}

sub infix:<..>(Num $from, Num $to) is primiti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10262	10372	
==>g pointer for start of this match
    to    - string pointer for next match (end+1)
    match - positional su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4740	4842	
==>need all the lines including the ones before the `use`
    # statement, so we can parse Perl into packa <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4740	4842	
==>need all the lines including the ones before the `use`
    # statement, so we can parse Perl into packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14241	14470	
==>defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $dige <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14241	14470	
==>defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $dige <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1301	1396	
==>s(), uniq(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1301	1396	
==>s(), uniq(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17886	18002	
==>racter class C<[A-CB-E]> would have a character map of C<< { 65 => 1, 66
=> 2, 67 => 2, 68 => 1, 69 => 1} >>.  This w <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6898	6994	
==>tc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n) <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6898	6994	
==>tc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9662	9831	
==>lder::Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              numbe <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	244	405	
==>lder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	244	405	
==>lder::Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            numbe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4976	5082	
==>d(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4976	5082	
==>d(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4976	5082	
==>d(sub { 
    my ($self, $label) = @_;
    return undef unless $label;
    return ::WALKMETH(::opaque_instan <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10722	10835	
==>ding ) === any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14199	14312	
==>ding ) === any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13498	13611	
==>ding ) === any( $!heading );

    # First look for trivial cases that are more efficient to do different.
    if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2309	2427	
==>pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2309	2427	
==>pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2309	2427	
==>pat,$qo,$qc);
}

sub JS::Root::rx_core_(%mods, Str $pat, Str $qo, Str $qc) is primitive {

  my $global     = %mods{'g' <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2220	2322	
==>$Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	256	358	
==>c.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	256	358	
==>c.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	256	358	
==>c.) with calls to &JS::inline, as then modules
# (which are called at compile-time) won't work.

# &JS: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3431	3539	
==>- emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return << <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3648	3756	
==>- emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return << <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8134	8238	
==>elf->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	194	296	
==>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	194	296	
==>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1085	1179	
==>::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1143	1237	
==>::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	44	135	
==>erl::Interpreter;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping/;

use stric <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5283	5409	
==>alues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8760	8886	
==>alues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7780	7906	
==>alues.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } )
        } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6136	6225	
==>nline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6136	6225	
==>nline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6136	6225	
==>nline('(function (str) { return str.split("").reverse().join("") })')(@things[0]);
  } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	881	985	
==>($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	881	985	
==>($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	881	985	
==>($self->{pPos}), $self->{pNode}->as_js;
  }

  sub unwrap { $_[0]->{pNode}->unwrap }
}

{
  package PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13446	13549	
==>TI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13446	13549	
==>TI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13446	13549	
==>TI SUB chdir ($xx) { chdir(p6_to_s($xx)); };
MULTI SUB prefix:<-r> ($xx) { -r p6_to_s($xx) ? $xx : p6_fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12126	12233	
==>eststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1112	1202	
==>server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1112	1202	
==>server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2807	2909	
==>:eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Langua <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2807	2909	
==>:eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Langua <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2807	2909	
==>:eval($code) }
    elsif $lang eq "perl5" { Pugs::Internals::eval_perl5($code) }
    else { die "Langua <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34047	34144	
==><$other>.  This method will fail if C<$other> does not have
an identical header to the invocant re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38597	38694	
==><$other>.  This method will fail if C<$other> does not have
an identical header to the invocant re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38058	38155	
==><$other>.  This method will fail if C<$other> does not have
an identical header to the invocant re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7276	7370	
==>:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7276	7370	
==>:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7276	7370	
==>:roles') = [ $::Role ];
::opaque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21401	21494	
==>us@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy d <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21401	21494	
==>us@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12962	13101	
==>ned $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12962	13101	
==>ned $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12962	13101	
==>ned $method)
                || confess "Method ($_[1]) not found for " . ($opts{for} || 'instance') . " ($_[0])";   

            $_normal_ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11611	11733	
==>turn for @modfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2810	2907	
==>ars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_k <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2810	2907	
==>ars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16763	16872	
==>xt->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16763	16872	
==>xt->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16763	16872	
==>xt->has_attribute($label, %params)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17409	17518	
==>din", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17409	17518	
==>din", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	652	749	
==>e = Pugs::Compiler::Token->compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::To <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	106	216	
==>d";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	106	216	
==>d";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	106	216	
==>d";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ( <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	372	509	
==>r (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (tim <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	372	509	
==>r (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (tim <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2819	2910	
==>me.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2819	2910	
==>me.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1339	1434	
==>{ $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1339	1434	
==>{ $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1339	1434	
==>{ $is_infinite = Perl6::Value::numify( $ary->is_infinite ) };
    warn "Trying to instantiate an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2429	2533	
==>pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2429	2533	
==>pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $min <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2429	2533	
==>pil2js(\$pil);

  return $js;
}

sub compile_perl6_to_htmljs_with_links {
  preludepc_check();

  my $min <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	729	852	
==>\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	729	852	
==>\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	729	852	
==>\\000\";
      for(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1372	1493	
==>},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1372	1493	
==>},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1372	1493	
==>},
    } => "PIL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origNa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	562	690	
==>h;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	562	690	
==>h;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25531	25645	
==>see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEscape {  # see 15.10.1
      <Deci <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1578	1690	
==>$.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_string) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1578	1690	
==>$.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_string) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29044	29212	
==>})
                  );
                return $e->get('$self:')->get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=pod

method dispatch <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10625	10734	
==>$name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10783	10892	
==>$name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3301	3464	
==>p;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3301	3464	
==>p;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9092	9269	
==>HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5452	5629	
==>HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6301	6478	
==>HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13505	13601	
==>ans that side effects, such as "say" and
database queries, may occur much later than expected.

I <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13505	13601	
==>ans that side effects, such as "say" and
database queries, may occur much later than expected.

I <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22643	22736	
==>>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22643	22736	
==>>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	282	379	
==>e.pm"; # XXX: move this to config.yml?
END { unlink $TEMP_PRELUDE unless $Config{keep} };

GetOpti <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6441	6536	
==>fault filehandle for output (normally STDOUT) as
data is received from the network.  If the requ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6441	6536	
==>fault filehandle for output (normally STDOUT) as
data is received from the network.  If the requ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3871	3972	
==>($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3871	3972	
==>($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## --------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3871	3972	
==>($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## --------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11820	11936	
==>ess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11820	11936	
==>ess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1951	2049	
==>ay cause
segfaults on C<split>, substitution, and/or other uses.

It is currently unsuitable for ju <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14363	14475	
==>ams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14363	14475	
==>ams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14363	14475	
==>ams);                  
    return keys %{$table};
}));

$::Class->add_method('remove_method' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3283	3406	
==>if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3283	3406	
==>if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3283	3406	
==>if $new;

  my $descr =  "$human{$what}:" . " " x (25 - length $human{$what});
  my $path  =  $cfg{$what};
  $path     =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1011	1127	
==>DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is exp <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1011	1127	
==>DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is exp <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16020	16128	
==>g
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $line, $reason) = @_;

    if( $line =~ /^Bail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4565	4665	
==>use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4565	4665	
==>use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5155	5255	
==>use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(name p5type is_optional is_writable is <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	157	265	
==>conversion to other native types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24299	24398	
==>be an Set with a single member that is an empty Mapping.

=back

A Relation object has these methods <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28851	28950	
==>be an Set with a single member that is an empty Mapping.

=back

A Relation object has these methods <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10801	10945	
==>ode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pugs::Internals::ope <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6002	6105	
==>s_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6002	6105	
==>s_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29348	29446	
==>I<after> $obj has been added to the tree, $obj will be
removed from the tree.  Most node types don' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13238	13326	
==>=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $string, \%e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13238	13326	
==>=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $string, \%e <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10615	10726	
==>:$a) returns IO is primitive is unsafe is builtin {
        die "fancy open modes not supported yet" if $a and ( <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1844	1937	
==>e C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($k <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1844	1937	
==>e C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13881	14010	
==>nce => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13881	14010	
==>nce => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13881	14010	
==>nce => {
        attrs => [], 
        methods => {},
    },
};
    
class1 'MultiSub'.$class_description => {
    is => [ 'Code', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10052	10241	
==>my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10052	10241	
==>my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10052	10241	
==>my('
                    .join(",",@names5)
                    .")=${sig}_param{"
                    .$listify->(@names6param)
                    .'};');
    }
    my $body_wrapped = $bod <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	136	246	
==>tr eq '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1475	1579	
==>::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type r <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1475	1579	
==>::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1341	1460	
==>l $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1341	1460	
==>l $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1341	1460	
==>l $_;
  no warnings "recursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subna <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7355	7454	
==>(!ref($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s*\)?\s*\z//;
	my @pn = spl <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3085	3180	
==>l`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3085	3180	
==>l`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18428	18528	
==>$xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18428	18528	
==>$xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18428	18528	
==>$xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) };
MULTI SUB infix:<=>  ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7596	7687	
==>sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->revers <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7596	7687	
==>sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->revers <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7596	7687	
==>sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)};
#MULTI SUB reverse (@xx) { $xx->revers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1987	2154	
==>> undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2192	2359	
==>> undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20703	20812	
==>0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20703	20812	
==>0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20703	20812	
==>0.'; defined($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<!!> ($xx0,$xx1) {...};
MULTI SUB infix:<.[]> ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11356	11454	
==>sed
because they will not get inherited. This provides more predictable 
behavior to class consturc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11356	11454	
==>sed
because they will not get inherited. This provides more predictable 
behavior to class consturc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11356	11454	
==>sed
because they will not get inherited. This provides more predictable 
behavior to class consturc <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8657	8784	
==>iverse = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8657	8784	
==>iverse = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_un <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6607	6720	
==>$node->struct_equiv;
	join("\n\t", "", map { "$_;" } $seq->values);
}

sub emit {
	my $self = shift;
	my $prog = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Type/Macro.pm	72	172	
==>model.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Type/Macro.pm	72	172	
==>model.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Type/Macro.pm	72	172	
==>model.

package PIL::Run::Type::Macro;
@ISA=qw(PIL::Run::Type::Object);

sub new {
    my($class,$f)= <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29693	29791	
==>te are the same as those of another,
or are the same as the unaffected invocant's attributes.  This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34245	34343	
==>te are the same as those of another,
or are the same as the unaffected invocant's attributes.  This <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33409	33507	
==>te are the same as those of another,
or are the same as the unaffected invocant's attributes.  This <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3532	3752	
==><+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the children of the top level App into <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2958	3078	
==>ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Ar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2958	3078	
==>ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2610	2708	
==>if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2610	2708	
==>if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2610	2708	
==>if not defined $mini;
  my $js   = run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2607	2724	
==>(keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2607	2724	
==>(keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2607	2724	
==>(keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v->{$m}));
		    }
		}
	    }
	} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2152	2276	
==>ESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2152	2276	
==>ESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2152	2276	
==>ESTROY')) {  
        $method->($Perl6::Submethod::FORCE, $self);   
    }  
}));

$::Object->add_method('id'    => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9947	10066	
==>d_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9947	10066	
==>d_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9947	10066	
==>d_lines($p5r) if $@;
    @res;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PBind.pm	24	145	
==>PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PBind.pm	24	145	
==>PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PBind.pm	24	145	
==>PBind;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  local $_;

  die unless keys %$self == 2;
  die unles <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2370	2487	
==>$code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2370	2487	
==>$code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2370	2487	
==>$code(@a[$i],@a[$i+1]);
	    $i += 2;
	}
    } elsif $arity == 5 {
	while $i < $len {
	    $code(@a[$i],@a[$i+1],@a[$i <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1480	1590	
==>1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1480	1590	
==>1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23645	23760	
==>ned $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23645	23760	
==>ned $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23645	23760	
==>ned $qo ? p6_to_s($qo6) : '/';
    my $qc = defined $qc ? p6_to_s($qc6) : '/';
    my $m = "";
    $m = join("",$mod <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	683	793	
==>le->compile(q(" .
	$body . "))->code;"
    }))->code;
*grammar = Pugs::Compiler::Rule->compile(q(<'grammar'> <g <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	24425	24524	
==>s_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
element <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28977	29076	
==>s_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
element <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5951	6069	
==>ture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set i <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	703	818	
==>i Math::Basic::abs ( Num $x = CALLER::<$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::floor (  Num  $x <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5764	5876	
==>ture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2425	2530	
==>te this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$Class = ::create_class(
    ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15808	15899	
==>ain web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also writ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15808	15899	
==>ain web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also writ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4918	5017	
==>new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4918	5017	
==>new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8601	8713	
==>"recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8601	8713	
==>"recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8601	8713	
==>"recursion";

    my $body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3788	3904	
==>$!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3788	3904	
==>$!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3788	3904	
==>$!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it will be substituted by
# " <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5777	5889	
==>om_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

m <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5777	5889	
==>om_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14161	14274	
==>or_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14161	14274	
==>or_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8117	8222	
==>y $match = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $match == "Sub" );
  ($opera <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5938	6114	
==>[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5938	6114	
==>[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5938	6114	
==>[i];
              var tf = s != null;
              if (!tf) { s = "" }
              arr.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9996	10135	
==>end =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9996	10135	
==>end =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9996	10135	
==>end =>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = sh <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13539	13654	
==>in();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator .= new( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13539	13654	
==>in();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator .= new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10226	10336	
==>tc) branch...
    elsif (@$st and @{ $st->[-1] } and $st->[-1][-1]->family eq $self->family) {
      my $br = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9136	9335	
==>('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->fetch($e->get('$label'));                                                  
            }
        )
    )
);

=pod <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16435	16534	
==>calar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then t <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16435	16534	
==>calar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14206	14424	
==>od) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14206	14424	
==>od) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14206	14424	
==>od) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_name = '%:methods';                
            #}
        }
        # NOTE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1178	1319	
==>L_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4328	4468	
==>L_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4328	4468	
==>L_Literal';
node_h 'PIL_Expr',             'PThunk', 
  'pThunk' ,'PIL_Expr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7368	7528	
==>>{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7368	7528	
==>>{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7368	7528	
==>>{class_methods}->{$method_name}
                    ));
                }
                else {
                    $new_role->add_method($method_name => ::mak <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3253	3365	
==>'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "tho <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3253	3365	
==>'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "tho <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24770	24868	
==>-macro-style functions for easy access to the parser
object's most important attributes:

  # acces <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	5061	5200	
==>al $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	5061	5200	
==>al $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	5061	5200	
==>al $::SELF  = $_[0];
            local $::CLASS = local $::PACKAGE = $associated_with;
            # and call the method ...
            $me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33216	33333	
==>rn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33216	33333	
==>rn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33216	33333	
==>rn "pop list ". $i->start . ".." . $i->end . " now length=$ret_length";
                last if $ret_length >= $length <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	711	810	
==>\}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_name'} = Pugs::Compiler::Rule->compile(< <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20429	20520	
==>ht want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Return <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20429	20520	
==>ht want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Return <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	688	810	
==>@!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	688	810	
==>@!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1238	1385	
==>scription,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        retu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1238	1385	
==>scription,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9569	9678	
==>to handle this because the
  # nextchar() method skips whitespace and comments


  ### '$'

  $self->add_handl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4487	4596	
==>ence $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(Get <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23460	23552	
==>ead1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta: <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23460	23552	
==>ead1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3911	4031	
==>_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3911	4031	
==>_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $ht <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3911	4031	
==>_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $ht <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2058	2154	
==>ess::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2::me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12920	13012	
==>VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the sam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12920	13012	
==>VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the sam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39650	39761	
==>ay = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39650	39761	
==>ay = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39650	39761	
==>ay = shift;
    my ( $length, $ret ) = $array->_shift_n( 1 );
    # warn "SHIFT $length -- ". $ret->elems if UNI <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6363	6479	
==>ked_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6363	6479	
==>ked_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	126	223	
==>n::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	126	223	
==>n::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	126	223	
==>n::Bin, "lib");
use lib File::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30851	31016	
==>{
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30851	31016	
==>{
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elem <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30851	31016	
==>{
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[0], 'Perl6::Value::List') ) {
            if ( $tmp[0]->elem <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	790	898	
==>ng tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	790	898	
==>ng tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abor <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2071	2173	
==>ng Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags ();

	use String::Escape qw/qprint <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27536	27716	
==>s'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27815	27995	
==>s'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5034	5145	
==>K_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5034	5145	
==>K_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5034	5145	
==>K_CLASSDECLS   = ();
  # I'll fill a unique id of the file we're processing in, to fix var stomping:
  # A.pm: m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2286	2418	
==>routine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2286	2418	
==>routine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; lo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2286	2418	
==>routine as \"map\" body!" if $arity == 0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; lo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12483	12583	
==>h types of spans.

- Discrete span

This is used to represent ranges of things that can be counted, s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12483	12583	
==>h types of spans.

- Discrete span

This is used to represent ranges of things that can be counted, s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10702	10809	
==>c6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10702	10809	
==>c6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XX <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10702	10809	
==>c6);
    for (@$inc) {
	my $dir = p6_to_s($_);
	warn "p6_to_a() is still broken, so \@INC wasn't used." # XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9795	9912	
==>with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9795	9912	
==>with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9795	9912	
==>with the special case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19564	19662	
==>ween a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner blo <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19564	19662	
==>ween a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner blo <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	31002	31096	
==>-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.com <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	46	241	
==>ew (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	46	241	
==>ew (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::B <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16769	16857	
==>'> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpressio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3542	3650	
==>quote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3542	3650	
==>quote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xy <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3542	3650	
==>quote($methname),
        PIL::name_mangle($self->name) for @classes;
    }

    # Special magic for &*END_xy <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6481	6681	
==>t_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.curren <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6481	6681	
==>t_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.curren <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9136	9219	
==>-> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([It <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3135	3290	
==>ft;
        my $acc = '_'.$func;
        
        ### set the new value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $config{$f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2279	2377	
==>msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2279	2377	
==>msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13832	13940	
==>$set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators ar <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13832	13940	
==>$set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators ar <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2276	2381	
==>iv => Blondie::Val->new(
					Blondie::TypeSafe::Annotation->new(
						type => [$from => $to],
						stru <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6930	7052	
==>>{data}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_;
      $self->{neg} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1007	1103	
==>Compiler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mixe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	957	1052	
==>Compiler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mixe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36689	36816	
==>urn $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36689	36816	
==>urn $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36689	36816	
==>urn $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices
    # see also: splice()
    my $array = shift <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4329	4461	
==>ild_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $r <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4329	4461	
==>ild_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9835	9939	
==>es given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9835	9939	
==>es given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9835	9939	
==>es given to &postcircumfix:<[ ]>!");

    // Relay .FETCH and .STORE to array[idx].
    var proxy_for = f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3365	3480	
==>version = $self->perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2407	2521	
==>version = $self->perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43236	43332	
==>ITIES

None reported.

=head1 SEE ALSO

The Perl 6 package L<Relation::Example> is bundled with R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	505	635	
==>ndefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	505	635	
==>ndefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	505	635	
==>ndefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions(function () {
        PIL2JS.catch_end_exception <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	501	627	
==>shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	501	627	
==>shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	501	627	
==>shift;
  no warnings "recursion";

  my ($head, $tail) = @$self{qw< pStmt pStmts >};
  my $cc;

  # Add a &return() to the last <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1259	1370	
==>],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1259	1370	
==>],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1259	1370	
==>],
    pStmts => $self->{pStmts}->fixup,
  } => "PIL::PPad";
}

sub as_js {
  my $self = shift;

  push @PIL::VA <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4486	4607	
==>~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4486	4607	
==>~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36656	36752	
==>anch>

Ender: tail

=head2 groupp

Family: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, C<2> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2734	2824	
==>\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2734	2824	
==>\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	487	588	
==>s%s... ", BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET;

  if($args{ensure}->()) {
    printf S <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	776	868	
==>head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subclass <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	776	868	
==>head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subclass <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11041	11136	
==>ode?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11041	11136	
==>ode?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	425	529	
==>$source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	425	529	
==>$source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens() <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	425	529	
==>$source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self->{tokenizer}->getTokens() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3361	3487	
==>{
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3361	3487	
==>{
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3361	3487	
==>{
    my $self = shift;

    die unless defined $self->name and not ref $self->name;

    return bless {
      tpParam       => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5024	5145	
==>d give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5024	5145	
==>d give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14589	14708	
==>mpiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1491	1624	
==>@a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1491	1624	
==>@a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 . <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1491	1624	
==>@a;
    if ( $p->isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1235	1365	
==>dy => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1235	1365	
==>dy => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1235	1365	
==>dy => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL::RawJS->new("initial_entrypoint");
      } else {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	605	734	
==>$_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	605	734	
==>$_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	605	734	
==>$_ => 1)},
        <perl5 Perl5 P5 i ignorecase w words g global c continue p pos
        once bytes codes graphs langs x nth ov o <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4422	4536	
==>@;
    PugsConfig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    m <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10932	11031	
==>});

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10932	11031	
==>});

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7341	7517	
==>rl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7341	7517	
==>rl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #war <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7341	7517	
==>rl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch( $k ) );
                        #war <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22399	22525	
==>'(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18820	18946	
==>'(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	32	131	
==>em $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	32	131	
==>em $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	32	131	
==>em $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14337	14436	
==>_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14337	14436	
==>_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribut <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14337	14436	
==>_attribute('%:private_methods'  => ::make_attribute('%:private_methods'));
::Class.meta.add_attribut <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1762	1863	
==>urn Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1762	1863	
==>urn Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $va <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2729	2836	
==>res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2729	2836	
==>res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2049	2246	
==>o);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2049	2246	
==>o);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2049	2246	
==>o);
                $from = "" if !defined $from;
                $to   = "" if !defined $to;
                $s .= "$from,$to>";
                return $s;
            },
            _indent => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8523	8650	
==>< @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8523	8650	
==>< @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2920	3014	
==>month_abbr returns Str { @months_abbr[./month_0] }

# yes, these functions are not "correct" :) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	326	462	
==>. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" . <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13600	13736	
==>pend;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	326	462	
==>. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1398	1534	
==>result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1398	1534	
==>result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1398	1534	
==>result = PIL2JS.cps2normal(
          fetch,
          [PIL2JS.Context.ItemAny]
        ).FETCH();
        already_calced = true;
      } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7722	7833	
==>sage key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7722	7833	
==>sage key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1067	1174	
==>($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1067	1174	
==>($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1067	1174	
==>($self,$p6)=@_;
    my $js = compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13014	13140	
==>none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_produ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16491	16617	
==>none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_produ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15853	15979	
==>none( $other!heading )) {
        # Both sources have exclusive headings; result is cross-product.
        return $?SELF!_produ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5000	5115	
==>lf: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5000	5115	
==>lf: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5631	5718	
==>truggle with the {?{...})
sub hlp_ws {  def_whitespace($X::cap->[-2],"(?x)".$::X::cap->[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4166	4279	
==>)) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4166	4279	
==>)) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@ar <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4166	4279	
==>)) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f2,@args).")";
    } else {
        "p6_apply(".join(",",$f,@ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1851	1953	
==>te sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1851	1953	
==>te sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1851	1953	
==>te sub slices are not supported yet:
#   ($x,@a[1..99])=(1,2,3,4)   - ok - non-finite sub-slice
#   (@a <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1430	1542	
==>L_Decl',             'PSub', 
  'pSubName'    ,'SubName',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4554	4663	
==>L_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4554	4663	
==>L_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13010	13108	
==>the recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13010	13108	
==>the recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For m <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2378	2510	
==>th)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2378	2510	
==>th)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15433	15545	
==>lastparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

Other things the <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10568	10673	
==>not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10726	10831	
==>not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5008	5114	
==>mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".or <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5008	5114	
==>mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".or <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5008	5114	
==>mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".or <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5077	5209	
==>0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5077	5209	
==>0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtim <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	58	160	
==>ON = '0.06';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Comp <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23922	24016	
==>his method creates and returns a new Relation object, whose Heading and
Body attributes are set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28474	28568	
==>his method creates and returns a new Relation object, whose Heading and
Body attributes are set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1664	1771	
==>utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1664	1771	
==>utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1664	1771	
==>utf-8", YAML::Dump($tree);
    exit;
  }

  warn "*** Compiling PIL to JavaScript...\n" if $verbose;
  my $l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6961	7051	
==>--------------------------------------------------

# stub this for the moment ...
$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6961	7051	
==>--------------------------------------------------

# stub this for the moment ...
$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6961	7051	
==>--------------------------------------------------

# stub this for the moment ...
$::Class <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1946	2065	
==>',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1946	2065	
==>',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1994	2106	
==>t::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.err <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	9	111	
==>t::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.err <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	9	111	
==>t::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.err <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32270	32382	
==>ions, the result is the same regardless of
which is the invocant and which is the argument.  This method will fai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36820	36932	
==>ions, the result is the same regardless of
which is the invocant and which is the argument.  This method will fai <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36110	36222	
==>ions, the result is the same regardless of
which is the invocant and which is the argument.  This method will fai <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12616	12758	
==>nitrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  step
    descr  => "Copying shared li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5464	5568	
==>pture' flag and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5289	5391	
==>pture' flag and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4996	5157	
==>py) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4996	5157	
==>py) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9237	9319	
==>-> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1885	1997	
==>tr','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1885	1997	
==>tr','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1885	1997	
==>tr','$s')";
}
package PVal; @ISA = qw(EvalX::BaseClass); sub expand {
    my($self)=@_;
    if (defined $self->{' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	18	161	
==>ack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	18	161	
==>ack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	869	1070	
==>ndex_file, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                store       => \$root
            },
            config => {
                no_override = <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13937	14033	
==>Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13937	14033	
==>Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12942	13040	
==>ange, the unit is added to the current value to get the next value.
The unit specifier is also used <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12942	13040	
==>ange, the unit is added to the current value to get the next value.
The unit specifier is also used <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16965	17055	
==>...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSee <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16965	17055	
==>...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSee <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16965	17055	
==>...};
MULTI SUB Pugs::Internals::hIsWritable ($xx) {...};
MULTI SUB Pugs::Internals::hIsSee <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1025	1123	
==>phering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1025	1123	
==>phering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4112	4211	
==>------------------------------------
## NOTE:
## code in this section has special cases within it to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4112	4211	
==>------------------------------------
## NOTE:
## code in this section has special cases within it to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4112	4211	
==>------------------------------------
## NOTE:
## code in this section has special cases within it to <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	283	410	
==>= $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROG <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	283	410	
==>= $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROG <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16239	16330	
==>s_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2167	2299	
==>or (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2167	2299	
==>or (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2167	2299	
==>or (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23288	23387	
==>, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41212	41311	
==>, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37238	37337	
==>, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1347	1445	
==>hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1347	1445	
==>hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1347	1445	
==>hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22835	22927	
==>)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1), <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22835	22927	
==>)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1), <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22835	22927	
==>)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1888	2008	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1888	2008	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1888	2008	
==>$self->env->get('current_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2434	2558	
==>]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4022	4146	
==>]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	207	314	
==>ta golf game of 2001.
# Also for future historical amusement, I've inserted unchanged
# my original first at <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1118	1245	
==>hr =~ /\</) {
	    print "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} el <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	657	760	
==>t q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
if key:<v <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	612	705	
==>t q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6') <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5280	5403	
==>,
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data structure <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5280	5403	
==>,
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data structure <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11066	11172	
==>ne ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We recor <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11066	11172	
==>ne ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We recor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	925	1036	
==>->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	925	1036	
==>->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	925	1036	
==>->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed method .value() - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23056	23189	
==>dex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23056	23189	
==>dex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23056	23189	
==>dex($v0,$v1)));
};
# splice - see op2
# split - see op2
# Str::split - see op1
MULTI SUB Any::new ($xx0,$xx1,$xx2) {...};
MULTI SUB Pu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2351	2488	
==>ey: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ ( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2351	2488	
==>ey: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	308	452	
==>type {
    my $self = shift;
    $self->{type};
  }

  sub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub visual {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3150	3252	
==>:Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3150	3252	
==>:Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1058	1165	
==>>makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1949	2056	
==>>makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7880	7981	
==>b ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7611	7708	
==>b ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	604	707	
==>> \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	604	707	
==>> \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1558	1713	
==>.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1558	1713	
==>.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1558	1713	
==>.body.offsetHeight
                          || document.body.scrollHeight);
          return;
      }

      // Default to the normal write and scroll down <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2842	2943	
==>ier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantif <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2830	2931	
==>ier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4832	4970	
==>:Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4832	4970	
==>:Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4832	4970	
==>:Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref($ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25903	26002	
==>bute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30455	30554	
==>bute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29430	29529	
==>bute names, or any C<$mapping> values duplicate each other,
or duplicate attribute names that aren't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	19	125	
==>trict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	19	125	
==>trict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	19	125	
==>trict;

{
  package PIL::VType;
  sub fixup { $_[0] }
  sub as_js {
    return "new PIL2JS.Box.Constant(und <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4401	4509	
==>>{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous ve <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4413	4521	
==>>{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous ve <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17670	17799	
==>seORExpressionNoIn> <'|'> <BitwiseXORExpressionNoIn>
}
rule LogicalANDExpression :words {  # see 11.11
      <BitwiseORExpression> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	740	857	
==>' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	740	857	
==>' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1749	1864	
==>AGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
use Fin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12751	12844	
==>art.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size)` <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12751	12844	
==>art.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size)` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2353	2445	
==>tfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2353	2445	
==>tfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2353	2445	
==>tfix_meta_operator:|infix_circumfix_meta_operator:)?(.+)$/)[0] or $self->name);
      # "or $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9816	9932	
==>[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19683	19776	
==>C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the cu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19683	19776	
==>C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	522	633	
==>::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	522	633	
==>::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	522	633	
==>::Bin);
use PIL2JS qw< run_pugs >;
use Getopt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3742	3915	
==>bj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3742	3915	
==>bj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3742	3915	
==>bj{ARRAY})) {
            for my $elem (@$slot) {              # and an array...
                $recurse->($elem);
            }
        }
        if (defined ($slot = *$obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28736	28872	
==>perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28736	28872	
==>perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28736	28872	
==>perlificated
                # correctly (i.e. not ($item), but ($item,)).
                $str .= "," if Perl6::Value::numify( $self->el <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4337	4480	
==>SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7814	7957	
==>SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6798	6941	
==>SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    r <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1919	2026	
==>today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method y <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1919	2026	
==>today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method y <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	18	113	
==>Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script high <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	18	113	
==>Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script high <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	18	113	
==>Hack. Use this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script high <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2619	2729	
==>my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = - <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2619	2729	
==>my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = - <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	19053	19259	
==>led
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     heading =>  $headin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5309	5448	
==>> $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5502	5641	
==>> $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    p <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1215	1312	
==>em B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=b <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1215	1312	
==>em B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=b <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1762	1859	
==>em B<footer returns Str (Int $run)>

Returns a string containing the TAP footer for this plan.

=b <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1729	1929	
==>ho $Site/% >> $meta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = LoadFile <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5485	5614	
==>iguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5485	5614	
==>iguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	451	586	
==>t(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	451	586	
==>t(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	593	694	
==>??
		-(int(abs($x) + 0.4)) !!
		-(int(abs($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1558	1658	
==>es (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1558	1658	
==>es (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1558	1658	
==>es (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primitives

use strict;

sub Perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1558	1680	
==>escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1494	1613	
==>escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	527	636	
==>ttribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	527	636	
==>ttribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	527	636	
==>ttribute_spec($attr))
        || confess "Attribute ($attr) is not a valid attribute for $::SELF";
    ::opaqu <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4640	4746	
==>t!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getpri <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4640	4746	
==>t!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getpri <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	529	660	
==>{
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	626	757	
==>{
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2802	2905	
==>ess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2802	2905	
==>ess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pru <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2802	2905	
==>ess;
		$opts->{code}->($class, $who, $namespace, $opts, $level);
	};

	# rebless this node, possibly pru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2723	2842	
==>>{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2723	2842	
==>>{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::C <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2723	2842	
==>>{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
sub Perl6::Cell::fetch {
    # warn "Perl6::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37792	37930	
==>= ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37792	37930	
==>= ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37792	37930	
==>= ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $array->elems ) {
        # 'Array' takes care of pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7760	7861	
==>ind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SEL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7760	7861	
==>ind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SEL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7760	7861	
==>ind $?SELF to us, if we're the invocant param.
    if($self->{tpParam}{isInvocant} and $name ne '$?SEL <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4428	4517	
==>ent describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentati <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4428	4517	
==>ent describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentati <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	685	780	
==>Role> objects appear to "flatten" in
the classes which they are included; unlike the "mix-in" ef <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29597	29703	
==>rrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29597	29703	
==>rrêter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyA <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	405	499	
==>rrêter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyA <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3094	3309	
==>),
                App->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk- <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	76	177	
==>hange returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tes <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	76	177	
==>hange returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tes <==
3	/Users/nnunley/pugs/misc/IDE-support/server.pl	132	225	
==>ax)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5988	6109	
==>@b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5988	6109	
==>@b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5988	6109	
==>@b.elems;
  }
  if (@b.elems == 1) {
      @b = @b[0] xx @a.elems;
  }
  for 0..(@a.end, @b.end).max -> $i {
    if $i > @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19129	19275	
==>$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
Thi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9724	9817	
==>set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1 <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9724	9817	
==>set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9668	9848	
==>Test::TODO.new(
              description => $description,
              passed      =>      $passed,
              reason      =>      $reason,
              number      =>      $n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	250	422	
==>Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $n <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	250	422	
==>Test::TODO.new(
            description => $description,
            passed      =>      $passed,
            reason      =>      $reason,
            number      =>      $n <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	169	270	
==>rameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
sub func( $arg is copy ) { $arg = <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6647	6747	
==>ther pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a fileha <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6647	6747	
==>ther pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a fileha <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	31	161	
==>1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "requ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	31	161	
==>1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "requ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13110	13205	
==>ote about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. S <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13168	13263	
==>ote about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. S <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12236	12328	
==>_var name=ok></span>,</td>
	      <td class="num tests_failed"><span title="<tmpl_var name=fa <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8260	8364	
==>ray.

In Scalar context, they all return the count of elements that would have
been iterated.

=back



= <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4039	4142	
==>turns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newlin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4039	4142	
==>turns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2854	2958	
==>estores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2854	2958	
==>estores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2854	2958	
==>estores, $lvalue ? "" : "new PIL2JS.Box.ReadOnly(", $lvalue ? "" : ")" }
var __returncc = args.pop();
var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2370	2474	
==>ass'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2370	2474	
==>ass'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2370	2474	
==>ass'      => $::Class);
$::{'*'}->STORE('::Object'     => $::Object);
$::{'*'}->STORE('::Role'       => $ <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2537	2656	
==>s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2537	2656	
==>s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25855	26010	
==>mp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25855	26010	
==>mp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25855	26010	
==>mp = Perl6::Value::stringify( $tmp );
                    unshift @end, $tmp;
                    last if $tmp eq 'Inf' || $tmp eq '-Inf';
                } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12531	12682	
==>$ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12531	12682	
==>$ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $boun <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12531	12682	
==>$ary->push( @params[$i..$#params] );
                            $bound_params{ ${$self->params}[$i]->name } = $ary;
                            # $boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/OO.pm	58	145	
==>sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/OO.pm	58	145	
==>sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) {} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/OO.pm	58	145	
==>sub Module::_create($name) {}
sub Rule::_create($name) {}
sub Grammar::_create($name) {} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7105	7207	
==>eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$att <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7105	7207	
==>eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$att <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7105	7207	
==>eval "method JS::Root::$attr (Match \$match:) \{
    JS::inline('(function (match) \{ return match.$att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	491	626	
==>>{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	491	626	
==>>{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	491	626	
==>>{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize($source);
    my $i = $self->t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5507	5674	
==>ebug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5507	5674	
==>ebug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	175	274	
==>alize {
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("",'package');
    Perl6::Run::OnPer <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	36	142	
==>ed from
#    ECMA-262, ECMAScript Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes to spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4075	4181	
==>ject');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5977	6083	
==>ject');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2510	2603	
==>ELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2510	2603	
==>ELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMon <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1920	2023	
==>m signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1920	2023	
==>m signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1920	2023	
==>m signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types and binding with MetaModel's meth <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12923	13025	
==>reter;
use base qw/Reducer DynamicScopes/;

sub new {
    bless { params => undef, param_stack => [] }, <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37888	37978	
==>already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37888	37978	
==>already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2214	2318	
==>ini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2214	2318	
==>ini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2214	2318	
==>ini);

  return $js;
}

sub compile_perl6_to_mini_js {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2617	2722	
==>ine") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2617	2722	
==>ine") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2617	2722	
==>ine") {
      warn "*** Reading JavaScript from \"$file\"...\n" if $verbose;
      push @components, [inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	272	369	
==>e) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	272	369	
==>e) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	272	369	
==>e) or $self->{pExpr}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  return $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8283	8409	
==>ds => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8283	8409	
==>ds => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8283	8409	
==>ds => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.a')/_('$.b') ) },
            'int' =>  sub { Int->new( '$.un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1346	1443	
==>946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1346	1443	
==>946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1346	1443	
==>946684800)";
}

sub infix:<=:=>($a, $b) is primitive { JS::inline('new PIL2JS.Box.Constant(
  func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1983	2099	
==>- not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1983	2099	
==>- not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1983	2099	
==>- not a sub-slice
#   ($x,@a[1..Inf])=(1,2,3,4)  - not supported

# RECENTLY FIXED
#   @a[10,100,1000,10000,100000]=( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4798	4943	
==>at presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4798	4943	
==>at presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4798	4943	
==>at presents a 
        # meta-circularity issue, and it
        # loops endlessly
        unless $self == $::Class;
    return 0;
}));

$::Class-> <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1256	1358	
==>.parent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $dept <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1256	1358	
==>.parent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $dept <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1844	1999	
==>(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1844	1999	
==>(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1844	1999	
==>(%{$o})) {
                    $s .= "\n$_ => " .$o->_indent_except_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	488	603	
==>ompile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	488	603	
==>ompile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	488	603	
==>ompile_perl6_to_standalone_js("-e", ""));
    $self->{JS}->eval($js);    
    die "$self: init: $@" if $@;

    $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5928	6045	
==>try-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5928	6045	
==>try-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21509	21646	
==>my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21509	21646	
==>my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21509	21646	
==>my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$class->sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7594	7694	
==>x:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7594	7694	
==>x:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7594	7694	
==>x:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for_match_objects
    );
  })')() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24558	24725	
==>@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24558	24725	
==>@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24558	24725	
==>@_;
    Match->new('$.val_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.fro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9253	9401	
==>$pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9253	9401	
==>$pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9253	9401	
==>$pos to ( $start .. $end )\n";
            #warn "    Index: ". $i->str . "\n";
            # items should be cloned before storing
            #my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5374	5491	
==>NDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5374	5491	
==>NDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5374	5491	
==>NDTO(args.shift());";
    } elsif($self->is_slurpy and $name =~ /^@/) {
      push @js,
        "if($jsname == undefin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11138	11265	
==>:Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11138	11265	
==>:Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11138	11265	
==>:Submethod::FORCE) {
                return ::next_METHOD()
                    if ::opaque_instance_id(::opaque_instance_class( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5281	5397	
==>.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8758	8874	
==>.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7778	7894	
==>.values.map:{
            mapping( $_.pairs,
                $attrs.pairs.map:{ $_.key => $_.value.( CALLER::<$_> ) } <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2249	2362	
==>rt> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2249	2362	
==>rt> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3821	3915	
==>-inputrc=$inputrc
    The readline library likes to have a /etc/inputrc.
  --terminfo=$terminfo <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	407	516	
==>nfix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => "nested addition",
	},
	{
		ast => App(
			Sym('& <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34328	34421	
==>w Locale::KeyedText::Translator object.
The Set Names property of the new object is set from t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34328	34421	
==>w Locale::KeyedText::Translator object.
The Set Names property of the new object is set from t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4300	4482	
==>|
             $n->{sub}{bareword} eq 'module' ) {
            # Moose: package xxx; use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	604	703	
==>erator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec for this <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	604	703	
==>erator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec for this <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	56	154	
==>e::Type;

package type::equivalence;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Ca <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	975	1070	
==>d1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

= <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	975	1070	
==>d1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

= <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2000	2141	
==>_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2193	2334	
==>_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::cons <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1174	1299	
==>{
        # escape out '#' or it will interfere with '# skip' and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2909	3031	
==>) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2909	3031	
==>) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copie <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2909	3031	
==>) = @a
#      - ($a,@x[1,2])=(4,5,6)
#
# TODO - @a[1] == Scalar
# TODO - test - @a[1] := $x

# TODO - tied arrays are copie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39549	39655	
==>t->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39549	39655	
==>t->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39549	39655	
==>t->shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    return $ret;
}

sub shift {
    my $array = s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25646	25741	
==>olders of
Rosetta can sell you an alternate, limited license that allows you to link
Rosetta wit <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25646	25741	
==>olders of
Rosetta can sell you an alternate, limited license that allows you to link
Rosetta wit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22195	22286	
==>provides a minimal in-RAM
storage implementation for the L<Relation> library.

I<TODO: REWRI <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3524	3720	
==>= bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                named => {}, <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2301	2406	
==>r separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2301	2406	
==>r separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1557	1666	
==>hape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-R <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1557	1666	
==>hape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-R <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1557	1666	
==>hape(Any), {undef()=>undef} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-R <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12999	13098	
==>1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12999	13098	
==>1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9386	9477	
==>style message headers.
The headers consist of attribute-value pairs also called fields, whic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9386	9477	
==>style message headers.
The headers consist of attribute-value pairs also called fields, whic <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	864	990	
==>imitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	864	990	
==>imitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	864	990	
==>imitive { $a ?? $a !! $b() }
sub infix:<&&>   ($a, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	51	164	
==>pt a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document tha <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	51	164	
==>pt a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document tha <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14918	15029	
==>mlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$dest\"",
    ensure => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3527	3643	
==>od_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3527	3643	
==>od_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3527	3643	
==>od_to_class($method, $self);        
        $self->class->add_method($label, $method);
    }
}));

$::Object->add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6693	6798	
==>pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6693	6798	
==>pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6693	6798	
==>pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP) = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3170	3272	
==>sn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3170	3272	
==>sn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3170	3272	
==>sn't load the Prelude, though, so we have to kludge around this.
  @args = map { /^-M(.+)$/ ? ('-e', "u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12059	12245	
==>ss_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for tr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15536	15722	
==>ss_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for tr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1443	1550	
==>can('depends') ) {
        $obj->depends( 
            JIB::Dependency->new_from_struct( struct => $obj->dep <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3987	4089	
==>g test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3987	4089	
==>g test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4067	4169	
==>g test.

=item B<test_out( Str $line )>

Adds a line to the list of lines of expected output for the te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17973	18089	
==>$ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17973	18089	
==>$ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17973	18089	
==>$ret->unboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17963	18059	
==>om

This header should contain an Internet e-mail address for the human
user who controls the req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17963	18059	
==>om

This header should contain an Internet e-mail address for the human
user who controls the req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5548	5684	
==>if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5548	5684	
==>if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5548	5684	
==>if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $body->();
    }
    elsif (ref($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14011	14167	
==>rom array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14011	14167	
==>rom array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14011	14167	
==>rom array[$list[$i]] == array[5]
                my $ret = Array->new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7551	7647	
==>) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7551	7647	
==>) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7551	7647	
==>) 
};

MULTI SUB item ($xx) {...};
MULTI SUB sort (*@xxa) {p6_from_l(sort map{p6_to_s($_)} @xxa)} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10562	10674	
==>->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10562	10674	
==>->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10562	10674	
==>->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$method( @para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3466	3597	
==>, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3466	3597	
==>, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3466	3597	
==>, $class) = @_;
    my @supers;
    do {
        $i->nextToken; # remove the is
        $self->_discard_whitespace($i);
        push <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2097	2238	
==>y $self = shift;
    my %hash = @_;
    
    my($repo_set, $inst_set);
    my $tmpl = {
        repository_set => { 
            required    = <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13140	13266	
==>est {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $lin <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13140	13266	
==>est {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $lin <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8601	8737	
==>ers? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4961	5097	
==>ers? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5810	5946	
==>ers? look into the rule for capturable things
            # XXX - more things to look into:
            #     if there is a return-block, <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6927	7042	
==>P_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6927	7042	
==>P_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' = <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	126	219	
==>tle>Public HTML</title>
</head>
<script>
function openNewWindows() {
    var links = document. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7792	7919	
==>ss $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7985	8112	
==>ss $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28564	28659	
==>assertion's ender is a C<tail> node, and a
character class's ender is an C<anyof_close> node.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3778	3893	
==>ne = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3778	3893	
==>ne = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3778	3893	
==>ne = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9316	9450	
==>{
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9316	9450	
==>{
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deci <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1360	1451	
==>ondie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35685	35819	
==>length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail unti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35685	35819	
==>length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail unti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35685	35819	
==>length >= 0 ) {
            # negative offset, positive length
            #  tail=pop length -> head=remaining -> body=shift tail unti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2933	3054	
==>&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2944	3065	
==>&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quant <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30291	30396	
==>qual_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_des <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4809	4906	
==>d as a number, the match object returns the numified version
of the result object (usually the ent <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4809	4906	
==>d as a number, the match object returns the numified version
of the result object (usually the ent <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1883	1971	
==>Pugs::Internals::log_base($x,$base);
 }

sub Pugs::Internals::log_base(Num $x, Num $base) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4935	5064	
==>$seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4935	5064	
==>$seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4935	5064	
==>$seen) = @_;
    $seen ||= {};
    my @roles;
    foreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1214	1320	
==>s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1214	1320	
==>s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1214	1320	
==>s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1988	2111	
==>lse {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1988	2111	
==>lse {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1988	2111	
==>lse {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1143	1262	
==>(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1143	1262	
==>(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcir <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1143	1262	
==>(pair.value.FETCH())
        ));
      }
    }

    cc(new PIL2JS.Box.Constant(hash));
  })')(@pairs);
}

method postcir <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6024	6114	
==>ngify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6024	6114	
==>ngify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6024	6114	
==>ngify($self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1608	1726	
==>> $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1608	1726	
==>> $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1608	1726	
==>> $cfg{preludepc});
command_conf(prelude        => $cfg{prelude});
command_conf(output         => $cfg{output});

while <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25769	25927	
==>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25769	25927	
==>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25769	25927	
==>= scalar @start;
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    unshift @end, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18983	19082	
==>is method removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18983	19082	
==>is method removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note th <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22976	23073	
==>SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag RE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1350	1446	
==>$i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1350	1446	
==>$i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1350	1446	
==>$i->nextToken;
            $current_class->add_attribute($attr_name => ::make_attribute($attr_nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5749	5841	
==>s  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5749	5841	
==>s  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5749	5841	
==>s  Prelude.js test.js
  \$ ./pil2js.pl --link=html -o test.html ~METAMODEL ~libjs/PIL2JS.js ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2692	2815	
==>name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2692	2815	
==>name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2692	2815	
==>name eq $next.meta.name;
    }
    # if we are not a class of something
    # maybe they are asking of we are an 
    # inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3316	3424	
==>_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3316	3424	
==>_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^% <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3316	3424	
==>_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : $attr_name =~ /^% <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16703	16798	
==>amed parameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16703	16798	
==>amed parameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	944	1044	
==>lan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	944	1044	
==>lan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	944	1044	
==>lan to bootstrap Roles through Class.
# Which is not yet implemented but can be seen in MiniMetaModel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36666	36772	
==>r trivial case is where any any source relation has zero
tuples, in which case the result does too.  Anothe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41215	41321	
==>r trivial case is where any any source relation has zero
tuples, in which case the result does too.  Anothe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40838	40944	
==>r trivial case is where any any source relation has zero
tuples, in which case the result does too.  Anothe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3041	3136	
==>ipt output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3041	3136	
==>ipt output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|ou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3041	3136	
==>ipt output",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8098	8256	
==>turn Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8098	8256	
==>turn Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8098	8256	
==>turn Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @param );
                }
                else <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1583	1685	
==>$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1583	1685	
==>$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_. <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8931	9028	
==>tps://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't rely upon everyo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15013	15187	
==>'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15013	15187	
==>'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15013	15187	
==>'instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->has_ <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1284	1465	
==>ft;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless defined $o->{$k};
                return <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6319	6416	
==>=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to imple <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6319	6416	
==>=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to imple <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10312	10476	
==>nstance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10312	10476	
==>nstance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10312	10476	
==>nstance => {
        attrs => [ '$.referred' ],
        DESTROY => sub {
            # _('$.referred' => undef); # XXX - MM2.0 gc workaround
        },
        metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5327	5421	
==>tended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5327	5421	
==>tended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5327	5421	
==>tended to allow filtering out objects you don't want to rebless. 3rd
party objetcs, for example <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1815	1912	
==>thm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interp <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1815	1912	
==>thm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9153	9234	
==>m(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3851	3954	
==>s
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3851	3954	
==>s
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3851	3954	
==>s
MACROP5   statement_control:<if> ($xx0,$xx1,$xx2) {
    "do{ if (p6_to_b($xx0)) { $xx1 } else { $xx2 } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	766	870	
==>{
    my ($left, $right) = @_;
    return $left->to_native cmp $right->to_str->to_native;
}

# methods .. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4003	4107	
==>val = shift;

		my $rval = $val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		Blondie:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24036	24184	
==>ch ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24315	24463	
==>ch ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2184	2324	
==>eate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2389	2529	
==>eate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            re <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	499	613	
==>=@_;$$o->{'to'}}

sub new {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	896	999	
==>d}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	896	999	
==>d}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	896	999	
==>d}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX");
    } @{ $self <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	700	809	
==>less defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	788	897	
==>less defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7207	7409	
==>->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7207	7409	
==>->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7207	7409	
==>->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->isa($cls) : 0;
            },
            'does' =>    sub {
                my($self,$cls)=@_;
                re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3219	3329	
==>L::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3219	3329	
==>L::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3219	3329	
==>L::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expand();
    my $f_is_idempotent = $PIL::Run:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	872	987	
==>sibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	872	987	
==>sibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	872	987	
==>sibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1286	1377	
==>eate a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1286	1377	
==>eate a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1286	1377	
==>eate a blackboard namespace
use vars qw($main::global_debug $main::pugs_args);
local $main:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	100	247	
==>{
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	100	247	
==>{
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	100	247	
==>{
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4435	4536	
==>reblesses them into
New::Namespace. This completely overrides whatever blessing they had
before.

=ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4435	4536	
==>reblesses them into
New::Namespace. This completely overrides whatever blessing they had
before.

=ite <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4435	4536	
==>reblesses them into
New::Namespace. This completely overrides whatever blessing they had
before.

=ite <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9286	9449	
==>n @maybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16581	16678	
==>xt gives your application the maximum amount of control as
to what the user sees; it never outputs <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16581	16678	
==>xt gives your application the maximum amount of control as
to what the user sees; it never outputs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	994	1096	
==>mycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	994	1096	
==>mycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	994	1096	
==>mycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa("PIL::PVar")) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3154	3261	
==>class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3154	3261	
==>class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3154	3261	
==>class')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9915	10020	
==>anch inside an IFTHEN
    if (@$st and @{ $st->[-1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ift <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9600	9694	
==>niverse.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9600	9694	
==>niverse.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7909	8122	
==>l')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7909	8122	
==>l')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7909	8122	
==>l')->store( $tmp->$method( @param ) );
                        return $::SELF; 
                    }
                    # warn "calling Scalar -> $method on $tmp ";
                    return Str->new( '$.unboxed <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4531	4680	
==>p' ) {
            $totals->{skip}++;
            $pass = 1;
        }

        $totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $re <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6725	6828	
==>ert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6725	6828	
==>ert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3907	4036	
==>'t use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3907	4036	
==>'t use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3907	4036	
==>'t use an unary or nullary block for &reduce!" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17666	17821	
==>onstant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17945	18100	
==>onstant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{ <==
3	/Users/nnunley/pugs/util/grokprims.pl	1831	1943	
==>\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2710	2812	
==>say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2710	2812	
==>say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2710	2812	
==>say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement infinite list parameter - ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	691	808	
==>$opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:< <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6747	6860	
==>l6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6747	6860	
==>l6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13519	13617	
==>{ -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13519	13617	
==>{ -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13519	13617	
==>{ -r p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-w> ($xx) { -w p6_to_s($xx) ? $xx : p6_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21117	21238	
==>t;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  package Regexp::Par <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4015	4113	
==>er of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4015	4113	
==>er of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2786	2889	
==>le-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2786	2889	
==>le-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2786	2889	
==>le-time.

    # Call to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1123	1230	
==>>{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1123	1230	
==>>{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1123	1230	
==>>{pFun}->unwrap->{origName} || "";
      if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5590	5692	
==>em B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=ite <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5590	5692	
==>em B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=ite <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7114	7216	
==>em B<skip_all()>

Skips all of the tests before running them.

Fails if there is a test plan set.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	743	860	
==>bjects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	743	860	
==>bjects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (bles <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	743	860	
==>bjects of type
  # And::AOne, And::ATwo .. And::AnEight!

  Class::Rebless->rebless($beat, 'Beatless');

  # All (bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1340	1460	
==>$self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Em <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1340	1460	
==>$self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Em <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1340	1460	
==>$self = shift;

  push @PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10346	10461	
==>:Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10346	10461	
==>:Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10346	10461	
==>:Return with {"
		     ." return \@{\$_[0]{'-value'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19964	20063	
==>omplish
that manually using a set of mappings, or a multi-dimensional object Hash,
or various combin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24516	24615	
==>omplish
that manually using a set of mappings, or a multi-dimensional object Hash,
or various combin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23068	23167	
==>omplish
that manually using a set of mappings, or a multi-dimensional object Hash,
or various combin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1237	1373	
==>_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain gl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1237	1373	
==>_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain gl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1237	1373	
==>_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement certain gl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8750	8874	
==>n;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        } <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8750	8874	
==>n;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        } <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5363	5468	
==>);
sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$re;
  my $op = Op <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	92	213	
==>ode {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}

sub em <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	56	176	
==>ode {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub em <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	144	264	
==>ode {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return &{"node::$_[0]"}($_[1]);
}
sub em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2050	2161	
==>sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2050	2161	
==>sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2050	2161	
==>sub new { shift; \$MM->new(\@_) }\n";
    #$code .= "sub new { my \$c = shift; my \$o = \$MM->new(\@_); warn \"n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19586	19683	
==>x0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19586	19683	
==>x0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19586	19683	
==>x0) < p6_to_n($xx1)) };
MULTI SUB infix:[>] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) > p6_to_n($xx1)) <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13189	13286	
==>mplemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, w <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13247	13344	
==>mplemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1410	1514	
==>ain::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1410	1514	
==>ain::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1410	1514	
==>ain::pugs_args = join(" ",map{"-I$_"}@inc_dirs);

eval q{
use PIL::Run::MainX;
use PIL::Run::EvalX;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3862	3964	
==>ods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3862	3964	
==>ods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3862	3964	
==>ods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_alte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13589	13692	
==>{ -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13589	13692	
==>{ -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13589	13692	
==>{ -w p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8060	8198	
==>rg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8060	8198	
==>rg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8060	8198	
==>rg ( @arg ) {
            if ( $arg->isa( "Array" ) ) {
                push @val, $arg->fetch($_)->fetch for 0 .. $arg->elems->unboxed - 1 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2543	2668	
==>generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_ <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2543	2668	
==>generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2398	2488	
==>l6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2398	2488	
==>l6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2398	2488	
==>l6::Container::Scalar;

my $class_description = '-0.0.1-cpan:FGLOCK';

class1 'Hash'.$class <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1388	1549	
==>$size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %even <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1388	1549	
==>$size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %even <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1423	1515	
==>.org/publications/standards/Ecma-262.htm
#   http://bclary.com/2004/11/07/ecma-262
#
#  The S <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	282	383	
==>rbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Test <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	282	383	
==>rbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Test <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7084	7232	
==>rary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7084	7232	
==>rary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	621	717	
==>source.

# The exploratory effort was abandoned as insufficiently tractable.
# By requiring far m <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2751	2891	
==>s'} = $ops;
        my $cmp = (!defined($ops->[-1])) ? -1 : $ops->[-1]->op_cmp($op);
        if($cmp <= 0) {
          print STDERR "op shift <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2358	2466	
==>hift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, - <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2358	2466	
==>hift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, - <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3921	4038	
==>n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3909	4026	
==>n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quant <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13952	14065	
==>'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        pri <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13952	14065	
==>'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        pri <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9056	9160	
==>sary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\"", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	436	534	
==>d 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, al <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	436	534	
==>d 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, al <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	436	534	
==>d 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a closure, al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10964	11076	
==>return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10964	11076	
==>return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10964	11076	
==>return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_table->{$_[1]} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2786	2908	
==>r($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2786	2908	
==>r($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

= <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27993	28092	
==>uld be called with a false one.

If the flag handler returns 0, the flag is removed from the resulti <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25754	25847	
==>oftware components.

Any versions of Rosetta that you modify and distribute must carry promine <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25754	25847	
==>oftware components.

Any versions of Rosetta that you modify and distribute must carry promine <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	844	960	
==>_string'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_hash'}   = $h;
    $$o->{'from'}  = $from;
    $$o->{'to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	301	412	
==>'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs' <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	301	412	
==>'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs' <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3255	3362	
==>pod"))  {
        print ("*** Could not locate (syn/S12.pod). Setting --no-designdocs.\n");
        $no_desi <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20430	20528	
==>el displays a list of all the languages your programs do or
might have, and lets you arrange the li <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20430	20528	
==>el displays a list of all the languages your programs do or
might have, and lets you arrange the li <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8574	8682	
==>p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) --> "x", p5_modifier_spec_neg(L), !.
p5_modifier_spe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31791	31885	
==>re> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a ge <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36341	36435	
==>re> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	9	125	
==>IL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	9	125	
==>IL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	9	125	
==>IL::PNil;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	729	857	
==>f 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	729	857	
==>f 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	729	857	
==>f 'add_method' here,.. 
{
    my $_add_method = sub {
        my ($self, $label, $method) = @_;
        (defined $label && $label <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6679	6808	
==>l5 {
    my $self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    re <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1442	1558	
==>}
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require Fil <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1409	1525	
==>}
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require Fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8961	9055	
==>ue_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8961	9055	
==>ue_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8961	9055	
==>ue_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispatcher' => ::make_method(s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20655	20755	
==>o_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field n <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20655	20755	
==>o_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field n <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5584	5683	
==>> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharacter>> yet.
rule simple_character  { <-[\{\}\[ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20264	20359	
==>age.  No
recompilation necessary.  This is something that end users could do,
although program p <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20264	20359	
==>age.  No
recompilation necessary.  This is something that end users could do,
although program p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30727	30828	
==>er, the corresponding transformation of each tuple), but
that any duplicates following the transformat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35278	35379	
==>er, the corresponding transformation of each tuple), but
that any duplicates following the transformat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34469	34570	
==>er, the corresponding transformation of each tuple), but
that any duplicates following the transformat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1764	1897	
==>, @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1764	1897	
==>, @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	333	430	
==>warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	333	430	
==>warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	333	430	
==>warnings "recursion";
  return $self->{pExpr}->as_js . "\n";
}

sub unwrap { $_[0]->{pExpr}->unwra <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	98	199	
==>no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27763	27858	
==>e 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27763	27858	
==>e 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attr <==
3	/Users/nnunley/pugs/util/claim_drift.pl	744	846	
==>oin $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unles <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9891	10027	
==>p::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10170	10306	
==>p::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1767	1855	
==>ent'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1971	2085	
==>md"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1971	2085	
==>md"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1971	2085	
==>md"}($arg);
  } else {
    command_compile($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14960	15059	
==>accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14960	15059	
==>accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14960	15059	
==>accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11554	11675	
==>$queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11554	11675	
==>$queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $s <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	217	323	
==>.04';

use strict 'vars';
use vars qw($VERSION);

sub Meta { shift }

my @scalar_keys = qw<
    name module <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3427	3555	
==>lable.

=cut

sub _version_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        versio <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24148	24269	
==>'+'>
    | <'$'>
    | <','>
}
rule uriUnescaped {  # see 15.1.3
      <uriAlpha>
    | <DecimalDigit>
    | <uriMark>
}
r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17047	17158	
==>s::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17047	17158	
==>s::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17047	17158	
==>s::hIsSeekable ($xx) {...};

# op2
MULTI SUB rename ($xx0,$xx1) {...};
MULTI SUB symlink ($xx0,$xx1) {...};
MULT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8437	8569	
==>"\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8437	8569	
==>"\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8437	8569	
==>"\n";
    #warn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4507	4640	
==>,
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12" <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4507	4640	
==>,
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12" <==
3	/Users/nnunley/pugs/util/drift.pl	570	691	
==>e)/ .. /^$/ or next;
    s/^newtype\b/data/;
    s/--.*$//;
    /\S/ or next;
    print TMP $_;
}
close IN;
close TMP;

my <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8722	8823	
==>he
# depth fields appropriately.
# This method is called automatically when 
# a subtree is added to a <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8722	8823	
==>he
# depth fields appropriately.
# This method is called automatically when 
# a subtree is added to a <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3729	3824	
==>mory

One sees both segfaults and memory exhaustion when running against
some of the perl5 t/op/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12841	12939	
==>op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12841	12939	
==>op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12841	12939	
==>op0
MULTI SUB IO::say (*@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4861	4966	
==>t" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4861	4966	
==>t" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4861	4966	
==>t" 
        if Perl6::Value::numify( $self->is_infinite );
    for ( 0 .. Perl6::Value::numify( $self->ele <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	5622	5715	
==>/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5622	5715	
==>/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10438	10577	
==>=cut

sub _cleaned_switches {
    my $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7995	8089	
==>c_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7995	8089	
==>c_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1800	1910	
==>azy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1800	1910	
==>azy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1800	1910	
==>azy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };

    c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3568	3742	
==>d; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3568	3742	
==>d; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15083	15204	
==>p} eq '+'  ) {
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15603	15727	
==>l));
    $self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33141	33232	
==>fference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method is th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37691	37782	
==>fference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method is th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27073	27188	
==>turn given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31625	31740	
==>turn given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30681	30796	
==>turn given the same C<$attrs>.  This method has an alias named
C<select_all_but>.

=item C<extend (Mapping(Str) of C <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2121	2299	
==>';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run befor <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	187	315	
==>r(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<enc <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	187	315	
==>r(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<enc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11241	11369	
==>s.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11241	11369	
==>s.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11241	11369	
==>s.length; i++) {
        ret.push(proxy_for(idxs[i]));
      }

      // Needed for @a[1,2] = (3,4).
      var proxy = new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	285	385	
==>undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	285	385	
==>undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	285	385	
==>undefined) : ret);
  })')(@self);
}

method JS::Root::pop(@self:) is rw {
  JS::inline('new PIL2JS.Bo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9019	9148	
==>->force_object(anyof_class => punct => $neg, $how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11450	11546	
==>ents in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Re <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11450	11546	
==>ents in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Re <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5481	5675	
==>/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = spli <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5481	5675	
==>/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = spli <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1106	1205	
==>ndie::Backend::Perl::Interpreter> contains the tree reduction code.

L<Blondie::Backend::Perl::Built <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26390	26485	
==>oups, use the digit variables, but only if you're sure the
match succeeded.

=head2 Parser Metho <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2448	2542	
==>t $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2448	2542	
==>t $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9233	9346	
==>tput_path);
  
  my $test_results = $files->{$file_key}; 

  my $lines = {};
  for my $test (@{$test_results->{eve <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5138	5229	
==>Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Si <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5138	5229	
==>Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Si <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6182	6290	
==>ading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &res <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9659	9767	
==>ading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &res <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8733	8841	
==>ading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&where ::= &res <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	150	259	
==>ent;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.p <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	150	259	
==>ent;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	392	516	
==>on () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	392	516	
==>on () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	392	516	
==>on () { return thing.referencee.FETCH() },
      function (n) {
        thing.referencee.STORE(n);
        return thing.refer <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4177	4276	
==>ly include some sort of key, and sometimes also 
parameters for block size and so on; see the cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4177	4276	
==>ly include some sort of key, and sometimes also 
parameters for block size and so on; see the cipher <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	11	92	
==>c/Module/Install/Fetch.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Fe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6126	6280	
==>ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6126	6280	
==>ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6126	6280	
==>ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	720	813	
==>1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	720	813	
==>1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	720	813	
==>1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$x1) { ($x0.increment)..$x1 }
multi s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33872	33984	
==>s_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33872	33984	
==>s_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33872	33984	
==>s_infinite {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16467	16567	
==>Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single span. O <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16467	16567	
==>Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single span. O <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3054	3152	
==>OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my $pil_code = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3393	3518	
==>);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3393	3518	
==>);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3393	3518	
==>);
		}
	} elsif ($type eq 'GLOB') {
        # Filehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	529	719	
==>$_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	617	807	
==>$_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	614	799	
==>$_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) eq 'HASH' ) {
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2693	2800	
==>run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2693	2800	
==>run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2693	2800	
==>run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9643	9771	
==>st_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9643	9771	
==>st_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return u <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	23	121	
==>e Blondie::Runtime;

use strict;
use warnings;

use UNIVERSAL::require;

use Blondie::Prelude;

sub <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3059	3157	
==>port {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3117	3215	
==>port {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	641	736	
==>omputer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=h <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	641	736	
==>omputer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13196	13304	
==>g non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16673	16781	
==>g non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source' <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16035	16143	
==>g non-identical headings.

    if (all( $other!heading ) === any( $!heading )) {
        # The second source' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29653	29750	
==>es
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34205	34302	
==>es
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33369	33466	
==>es
in one unwrapped tuple-valued attribute are the same as those of another,
or are the same as th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5012	5121	
==>rn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5012	5121	
==>rn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5012	5121	
==>rn "$sub.FETCH()([\n$cxt,\n$arg\n])"              if defined $native;
      return sprintf "PIL2JS.call(undefi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3470	3638	
==>\@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3470	3638	
==>\@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13414	13549	
==>ch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13414	13549	
==>ch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13414	13549	
==>ch
    # so that 
    sub ::next_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1045	1149	
==>$perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1045	1149	
==>$perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1045	1149	
==>$perl5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_f <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6377	6585	
==>rn sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6377	6585	
==>rn sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10040	10175	
==>%'


  ### '^'

  $self->add_handler('^' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	546	749	
==>@res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	546	749	
==>@res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    els <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	546	749	
==>@res;
                for ( @ary ) {
                    if ( $_->isa('Junction') && $_->type eq $type ) {
                        push @res, @{ $_->things };
                    }
                    els <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3954	4078	
==>ree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3954	4078	
==>ree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10669	10798	
==>--

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10669	10798	
==>--

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10669	10798	
==>--

    method add_method;
    method get_method;
    method has_method;
    method get_method_list;        
    
    method add_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13848	13946	
==>dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13848	13946	
==>dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13848	13946	
==>dispatcher = ${$::ARGS->[2]->[1]}->dispatcher(':canonical');
            $dispatcher->() while $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4581	4687	
==>if($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4581	4687	
==>if($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4581	4687	
==>if($inv) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprin <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8402	8592	
==>isfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8866	9056	
==>isfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3694	3789	
==>n\n\n\n\n\n\n12th line\n11th line\n10th line\n".
        "9th line\n8th line\n7th line\n6th line <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3182	3278	
==>expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3240	3336	
==>expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3818	4000	
==>ckage_name(     $path );
                    my $version = package_version(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     e <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	816	960	
==>App(
							Sym('&infix:<+>'),
							Sym('$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	603	745	
==>rule_templates = (
    prefix =>          '<op> <equal>', 
    circumfix =>       '<op> <parse> <op2>',  
    postfix =>         '<tight> <op>' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNoop.pm	87	204	
==>} == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNoop.pm	87	204	
==>} == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNoop.pm	87	204	
==>} == 0;

  return bless {} => "PIL::PNoop";
}

sub as_js {
  sprintf "(%s)(%s)",
    $_[0]->{CC}->as_js,
    "new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	859	956	
==>@PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	859	956	
==>@PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scope <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	859	956	
==>@PIL::ALL_LEXICALS, "$_->[0]_${scopeid}_$PIL::LEXSCOPE_PREFIX";
      ($_->[0] => "$_->[0]_${scope <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27173	27292	
==>ABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27173	27292	
==>ABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3125	3217	
==>Available options and defaults:
  --kernel-uri=$kernel_uri
    mklivecd.pl automatically fetc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5696	5810	
==>PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implemen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5696	5810	
==>PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implemen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5696	5810	
==>PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because else we can't implemen <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14545	14708	
==>ted";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14539	14702	
==>ted";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8439	8584	
==>{op1}{stmt} eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12068	12176	
==>autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ? <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12068	12176	
==>autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16749	16893	
==>solve->($results);
    unless ($pass) {
        _diag "# PROG: \n$prog\n";
        _diag "# EXPECTED:\n", $resolve->(), "\n";
        _diag "# GO <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1873	1995	
==>rent nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation objec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1873	1995	
==>rent nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3035	3182	
==>e;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3035	3182	
==>e;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3035	3182	
==>e;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $match, $supertype ) = 
           ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11728	11867	
==>others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15205	15344	
==>others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14540	14679	
==>others has"
                    ~ " attributes in common with either other relations"
                    ~ " in @others or with the invocan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5561	5676	
==>ndefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5561	5676	
==>ndefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5561	5676	
==>ndefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13419	13540	
==>lar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13419	13540	
==>lar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13419	13540	
==>lar @{$self->{shifts}} + scalar @{$self->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5877	5977	
==>f $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool {
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5877	5977	
==>f $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool {
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10202	10311	
==>of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10202	10311	
==>of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10202	10311	
==>of non-creatable array value attempted, subscript " + orig_value[idx]);

          // Support (in a slightly h <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4029	4125	
==>K!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4029	4125	
==>K!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4029	4125	
==>K!
sub infix:<~>(Str $__a, Str $__b) is primitive {
  JS::inline('new PIL2JS.Box.Constant(functio <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1059	1165	
==>ach key of that Mapping is the name
        # of one of this Relation's attributes and the value correspond <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4537	4643	
==>ach key of that Mapping is the name
        # of one of this Relation's attributes and the value correspond <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9613	9711	
==>or that will traverse the entire parse tree,
to any depth.  To restrict the depth to which it reach <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1130	1237	
==>lls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1130	1237	
==>lls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1130	1237	
==>lls .FETCH() (to init its
    // .container_type), but this is clearly not what we want (remember,
    // we <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19474	19576	
==>interface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24026	24128	
==>interface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22542	22644	
==>interface and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8587	8780	
==>sion } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9051	9244	
==>sion } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	667	778	
==>erl6;

    my $p6 = Pugs::Compiler::Perl6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4569	4710	
==>my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1 <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4569	4710	
==>my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1373	1467	
==>[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3046	3158	
==>.toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3046	3158	
==>.toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3046	3158	
==>.toNative()/g;
      # Previously, "|| $undef" was required, This is no longer the case, as
      # &prefix:<[+~] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6105	6219	
==>ict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => se <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9582	9696	
==>ict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => se <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13572	13686	
==>th(my $syndir = catdir($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14749	14862	
==>('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14749	14862	
==>('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FET <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14749	14862	
==>('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label)
        || confess "Cannot FET <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11643	11758	
==>reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPS <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11643	11758	
==>reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4514	4614	
==>p := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4514	4614	
==>p := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<= <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4514	4614	
==>p := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Code $cmp = &infix:«<= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	2102	2195	
==>ia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	2102	2195	
==>ia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	2102	2195	
==>ia-liang Kao E<lt>clkao@clkao.orgE<gt>.

This program is free software; you can redistribute i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6924	7032	
==>$b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6924	7032	
==>$b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6924	7032	
==>$b }
#sub infix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12358	12511	
==>op} eq '[' &&
         $n->{op2}{op} eq ']' ) {

        if ( ! exists $n->{exp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{e <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10804	10901	
==>)`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_universe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10804	10901	
==>)`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_universe <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3206	3314	
==>optimizing lookup for named events stores things in a hash to reduce algorithmic complexity
            gathe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6245	6344	
==>Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $e <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6245	6344	
==>Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $e <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3744	3855	
==>ackage Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $self->{data}) {
	$se <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6975	7072	
==>he same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibl <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6975	7072	
==>he same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibl <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3719	3827	
==>bol;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	# all thunks with protos we <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1674	1805	
==>ef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1674	1805	
==>ef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1674	1805	
==>ef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable; 1=tieable)
#    tied         (defaul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9980	10128	
==>lice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9980	10128	
==>lice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9980	10128	
==>lice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $diff = $slice_size - $elems;
                #warn "Missing $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3912	4042	
==>my ($self, $index, $value) = @_;
    (blessed($value) && $value->isa('symbol'))
        || confess "You must store a symbol type in <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9483	9581	
==>);
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9483	9581	
==>);
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	384	497	
==>ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	589	702	
==>ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	645	758	
==>ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash
    sub ::create_opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4074	4171	
==>--------------------------------------------------------------------------
## NOTE:
## code in thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4074	4171	
==>--------------------------------------------------------------------------
## NOTE:
## code in thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4074	4171	
==>--------------------------------------------------------------------------
## NOTE:
## code in thi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16989	17130	
==>{
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13410	13551	
==>{
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1635	1760	
==>elf.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1635	1760	
==>elf.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2536	2654	
==>,
				),	
			),
			(ref $node)->new(
				%$node,
				orig => Blondie::Val->new($node->orig),
			),
		),
		orig => $node <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8370	8514	
==>$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::immedia <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14498	14612	
==>ranslator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14498	14612	
==>ranslator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16186	16342	
==>for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # chec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16186	16342	
==>for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # chec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	16186	16342	
==>for now
        #warn "got an undef class here ... ($self)" 
        return unless defined $class;         
        
        my @return_value;
        # chec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5655	5758	
==>r::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $lhs, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7509	7618	
==>is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7509	7618	
==>is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7509	7618	
==>is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35061	35157	
==>the two source headings are
identical.  This method has an alias named C<matching>.

=item C<prod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39611	39707	
==>the two source headings are
identical.  This method has an alias named C<matching>.

=item C<prod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39153	39249	
==>the two source headings are
identical.  This method has an alias named C<matching>.

=item C<prod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1071	1186	
==>hat Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4549	4664	
==>hat Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3384	3475	
==>mortal(newSVpv(strbeg,strend-strbeg)));
    XPUSHs(sv_2mortal(newSVuv(flags)));
    XPUSHs(s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4302	4397	
==>ge PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4302	4397	
==>ge PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4302	4397	
==>ge PAssign; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_set('.$_[0]{'pLHS'}[0]->expand().' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9340	9475	
==>ture_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9340	9475	
==>ture_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$se <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9340	9475	
==>ture_str . "): $err";
                # my %bound_params = $::SELF->bind_params(@arguments); 
                # warn "entering sub ".$se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1463	1567	
==>f (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1463	1567	
==>f (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1463	1567	
==>f (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_class('' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	982	1089	
==>Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_sub <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	982	1089	
==>Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18041	18130	
==>t "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18041	18130	
==>t "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18041	18130	
==>t "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6::Value::stringify($result <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3040	3163	
==>my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $lev <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3541	3664	
==>my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $lev <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9521	9640	
==>stem: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    open <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5839	5938	
==>('Pair')->new('$.key' => $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2537	2630	
==>l6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class P <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2537	2630	
==>l6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1791	1897	
==>}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10229	10332	
==>}


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14761	14863	
==>}

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# v <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1719	1874	
==>s non-empty.

Returns true on success, false on failure.

=cut

sub _rmdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4612	4709	
==>I SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4612	4709	
==>I SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4612	4709	
==>I SUB time () { use Time::HiRes; p6_from_n(time)};
MULTI SUB times () {p6_from_l(times)};
MULTI SU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1738	1866	
==>ble      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1738	1866	
==>ble      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1738	1866	
==>ble      (default: non-tieable; 1=tieable)
#    tied         (default: undef; can be set to an object)
#    type         (default <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	411	566	
==>(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	411	566	
==>(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	411	566	
==>(function () {
          PIL2JS.runloop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS. <==
3	/Users/nnunley/pugs/util/package-osx.pl	10498	10633	
==>sr/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local/bin';\n
        my \@files = qw\( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3237	3326	
==>decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3237	3326	
==>decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that t <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6986	7122	
==>$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6986	7122	
==>$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1106	1221	
==>}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $self = shift;
    return $self->{array}->[$self->{idx <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9659	9772	
==>l5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub de <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9659	9772	
==>l5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub de <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4378	4476	
==>odo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4378	4476	
==>odo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6575	6673	
==>odo = 0>

This parameter defaults to false.  If it is true, the factory returns
a Test::Builder::Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	597	712	
==>osBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	597	712	
==>osBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_G <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	597	712	
==>osBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} => "PIL::MkPos";

# Are we in pilGlob?
our $IN_G <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2287	2417	
==>in("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",ma <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2287	2417	
==>in("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",ma <==
3	/Users/nnunley/pugs/util/combine_tests.pl	339	439	
==>returns the modified reference.
# Note: no copy is made!
#
# Adds a more_events[] with events to each <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22609	22700	
==>..};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22609	22700	
==>..};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),und <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22609	22700	
==>..};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v2)=(p6_to_s($xx0),p6_to_s($xx1),und <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	252	370	
==>, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || s <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	252	370	
==>, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || s <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29864	29962	
==>attributes
that were wrapped, and it supports having old tuple-valued attributes which
have zero at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34416	34514	
==>attributes
that were wrapped, and it supports having old tuple-valued attributes which
have zero at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33580	33678	
==>attributes
that were wrapped, and it supports having old tuple-valued attributes which
have zero at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3741	3860	
==>le, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can' <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3741	3860	
==>le, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can' <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6092	6193	
==>und_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9439	9567	
==>MMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_r <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9439	9567	
==>MMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5362	5489	
==>ented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5362	5489	
==>ented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5362	5489	
==>ented...
        undef;
      \}
    \}
  ";
#  XXX: currying doesn't work properly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2060	2156	
==>{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2060	2156	
==>{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2060	2156	
==>{preludepc});
}

unless(-e $PIL2JS::cfg{testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3974	4104	
==>ent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3974	4104	
==>ent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	3974	4104	
==>ent = $dispatcher->()) {
            warn "\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4585	4690	
==>Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4585	4690	
==>Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4585	4690	
==>Num::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num: <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	475	589	
==>xamples
# can be improved in many ways, and have been in the Perl Monks
# thread mentioned above.
#
# To test head. <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	903	1000	
==>s this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node-> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	903	1000	
==>s this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1254	1375	
==>lls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1254	1375	
==>lls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1254	1375	
==>lls work (as we don't use JS'
# "lexical" vars anymore).
our @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4466	4570	
==>he command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4312	4414	
==>he command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      l <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6643	6803	
==>i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            p <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5147	5307	
==>i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	216	321	
==>{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4657	4767	
==>s

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4657	4767	
==>s

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/pat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4657	4767	
==>s

Available options (options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/pat <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1717	1830	
==>::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data::Dumper::Terse = 1;
		local $Data:: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9790	9885	
==>at we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9790	9885	
==>at we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2706	2839	
==>f->sign ) {
        $args->{SIGN} = 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both ki <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16086	16207	
==>=> -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16086	16207	
==>=> -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7223	7334	
==>ckage PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7223	7334	
==>ckage PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_mai <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7223	7334	
==>ckage PIL::Environment; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    "package ".&p6_mai <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	936	1071	
==>re supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $doc;
            $do <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1034	1152	
==>tracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1034	1152	
==>tracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_mat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3682	3791	
==>self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Ar <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3682	3791	
==>self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Ar <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3048	3141	
==>:Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my $p <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	795	898	
==>p file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl ts <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25352	25449	
==>d distribute
such a system following the terms of the GPL for Rosetta and the licenses
of the othe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25352	25449	
==>d distribute
such a system following the terms of the GPL for Rosetta and the licenses
of the othe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5081	5200	
==>arameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5081	5200	
==>arameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5081	5200	
==>arameters {
    my ($self, $i) = @_;
    $i->nextToken; # discard the (
    my ($method_type, @params);
    my @tokens = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8908	9030	
==>es
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8908	9030	
==>es
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8908	9030	
==>es
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('dispa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1908	2014	
==>f (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1908	2014	
==>f (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1908	2014	
==>f (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|CODE/) {
        return _build_role(undef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	829	937	
==>ld';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	786	890	
==>ld';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6187	6290	
==>$ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6187	6290	
==>$ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6187	6290	
==>$ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14883	14979	
==>t>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14883	14979	
==>t>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14883	14979	
==>t>

The code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<l <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1423	1519	
==>e to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particul <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1423	1519	
==>e to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21115	21299	
==>RE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21115	21299	
==>RE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21115	21299	
==>RE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	93	207	
==>orarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	93	207	
==>orarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	93	207	
==>orarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	183	300	
==>_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Container::Array' => {
    does => [ 'IArr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2532	2627	
==>($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2532	2627	
==>($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4507	4604	
==>g that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental dev <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4757	4854	
==>g that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental dev <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9288	9371	
==>-----------------------------------------------
package main;
Regexp::StructHook::im <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36111	36206	
==>sult of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40660	40755	
==>sult of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40274	40369	
==>sult of first pairwise-matching every
tuple of the invocant relation with every tuple of the <$o <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1650	1765	
==>ainfo to one file
    my @metalist;
    for my $meta ( qx[find $Repodir -type f | grep '$Metaext\$'] ) {
        cho <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1446	1548	
==>Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1446	1548	
==>Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9521	9619	
==>(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ? <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9521	9619	
==>(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ? <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10658	10753	
==>a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow-> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10896	10991	
==>a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow-> <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	11088	11183	
==>a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2083	2200	
==>*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2083	2200	
==>*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2083	2200	
==>*@args);
  }

  undef;
}

# XXX! We directly JS-assign $! here. This is needed to fake the lexicalness of
# $!.
sub JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1594	1767	
==>s implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1594	1767	
==>s implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1594	1767	
==>s implemented as a native class
#
# cell keys:  
#    v  (value)   (default: undef)
#    ro           (default: r/w; 1=read-only cell)
#    tieable      (default: non-tieable <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1011	1152	
==>(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $p <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1011	1152	
==>(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6892	6992	
==>perl5"and return "JSPERL5 (Perl 6 on JavaScript with Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2278	2373	
==>arnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2278	2373	
==>arnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{test <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2278	2373	
==>arnings.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{test <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2416	2564	
==>fname}[$n]){
                $event->{more_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1699	1815	
==>unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ... <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1699	1815	
==>unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13969	14077	
==>t don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13969	14077	
==>t don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7672	7828	
==>unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'ex <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7672	7828	
==>unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'ex <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7672	7828	
==>unboxed' => $s ) 
            },
            'ref' =>  sub { $::CLASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1304	1409	
==>ass(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1304	1409	
==>ass(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classna <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1304	1409	
==>ass(%s, _3amain_3a_3aItem);",
        PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classna <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19135	19231	
==>is *part of the program*, and not the program's users' own data; only
someone already involved in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19135	19231	
==>is *part of the program*, and not the program's users' own data; only
someone already involved in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2688	2814	
==>ss         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2688	2814	
==>ss         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2688	2814	
==>ss         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1015	1140	
==>eated as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs def <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1015	1140	
==>eated as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs def <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8206	8323	
==>self->{neg} = shift if @_;
    $self->{neg};
  }

  sub visual {
    my $self = shift;
    sprintf "\\%s{%s}", $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4514	4634	
==>$_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4514	4634	
==>$_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4514	4634	
==>$_->fixup } @{ $_[0]->{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14080	14172	
==>(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUI <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14080	14172	
==>(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6146	6304	
==>it /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6146	6304	
==>it /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3896	4010	
==>map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7373	7487	
==>map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6339	6453	
==>map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.map:{ %full_map{$_.key} => $_. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1572	1704	
==>eturn;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2277	2396	
==>(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2277	2396	
==>(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2277	2396	
==>(function (args) {
    var cxt = args[0], code = args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefin <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	190	281	
==>er in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	190	281	
==>er in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	609	720	
==>=> \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	609	720	
==>=> \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	774	864	
==>::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	774	864	
==>::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	774	864	
==>::Class, $::Module, $::Package, $::Object ];
::opaque_instance_attr($::Object => '@:MRO') = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29922	30018	
==>uple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34474	34570	
==>uple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33638	33734	
==>uple-valued attributes which
have zero attributes (they just vanish).

=item C<map (Set of Str $h <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4204	4312	
==>V) {
    my $Result2 = GetBase($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Res <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5286	5392	
==>});

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %channe <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5286	5392	
==>});

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %channe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32155	32253	
==>, then that is displayed; if not, it then checks
each set's member for language B and displays that <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32155	32253	
==>, then that is displayed; if not, it then checks
each set's member for language B and displays that <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2111	2198	
==>href_element => $() } }
RULE
*{'access_hash_element'} = Pugs::Compiler::Rule->compile(<< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	16661	16766	
==>er DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	16661	16766	
==>er DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	16661	16766	
==>er DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    $::IN_GLOBAL_DESTRUCTION = 1;
    if (defined $:: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2923	3174	
==>>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3170	3421	
==>>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1486	1606	
==>$extracted2) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match => $ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2744	2861	
==>verse if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2744	2861	
==>verse if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closur <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	345	443	
==>led with the rest of
# the p5 implementation.  So while limited superficial success proved
# straig <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1492	1612	
==>cument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || documen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1492	1612	
==>cument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || documen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1492	1612	
==>cument.createTextNode(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || documen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14239	14462	
==>> $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14239	14462	
==>> $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14239	14462	
==>> $list,   
                );
                $ret->tie( $proxy );
                return $ret;
            },
            'zip' => sub {
                my ( $array, @array_list ) = map {
                        Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4133	4250	
==>ndler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      pars <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3988	4102	
==>ndler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      pars <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1005	1118	
==>self    = shift;
    my $struct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_fr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4538	4657	
==>{
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5023	5142	
==>{
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4001	4099	
==>->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_RBRACE, 'N') if ${&Rx} !~ m{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2793	2914	
==>.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2793	2914	
==>.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2793	2914	
==>.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my %mods_altered = %mods;
    %mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3537	3640	
==>cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3537	3640	
==>cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3537	3640	
==>cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(jscmp);
    cc(new PIL2JS.Box.Con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4495	4578	
==>6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4495	4578	
==>6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4495	4578	
==>6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15836	15952	
==>$xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15836	15952	
==>$xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15836	15952	
==>$xx) { $xx->pop };
MULTI SUB shift ($xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9425	9554	
==>);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9425	9554	
==>);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9425	9554	
==>);
    my $pilc = pilc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8781	8898	
==>...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8781	8898	
==>...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8781	8898	
==>...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ($xx) {...};
MULTI SUB prefix:<~^> ($x <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4039	4229	
==>a_dir->file( $conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### X <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6502	6605	
==>okens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes he <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6502	6605	
==>okens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes he <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	343	539	
==>ven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' { <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	343	539	
==>ven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3640	3755	
==>x = @{$x->{list}} if exists $x->{list} && $x->{op1} eq $op;
    return { op1 => $op, list => [ @x, $y ], assoc => ' <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	204	348	
==>er namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	204	348	
==>er namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8860	8994	
==>eeded for regexp_try.pl, but... bad idea for development.
  no warnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->no <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	653	751	
==>es pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date. <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	653	751	
==>es pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1678	1775	
==>sent.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26029	26130	
==>od
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30581	30682	
==>od
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29556	29657	
==>od
supports renaming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6538	6628	
==>intf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6538	6628	
==>intf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.cat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6538	6628	
==>intf <<EOF, $decl_js, add_indent(3, join "\n", @glob_js, $init_js, $main_js);
%s
PIL2JS.cat <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6446	6613	
==>a('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $co <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6504	6671	
==>a('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1375	1486	
==>errmsg} = $@, return if $@;

  # reset things, define tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{f <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2471	2599	
==>one>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

ru <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2471	2599	
==>one>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

ru <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16391	16516	
==>0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param stri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2010	2124	
==>= @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2010	2124	
==>= @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2090	2204	
==>= @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2688	2783	
==>ist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2688	2783	
==>ist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2688	2783	
==>ist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"} <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9819	9922	
==>} # XXX
NODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($typename) {
    p6_type_mk($type <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8772	8871	
==>Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8772	8871	
==>Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3050	3148	
==>s.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3050	3148	
==>s.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3050	3148	
==>s.length; i++) {
    block_leave_hooks[i](retval);
  }

  PIL2JS_callchain.pop(); PIL2JS_subpads.po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	125	294	
==>cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	125	294	
==>cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	125	294	
==>cond, body, post) {
      try {
        for(pre; cond(); post()) {
          try {
            while(1) {
              var redo = 0;
              try { body() } catch(e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1423	1531	
==>pc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1423	1531	
==>pc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1423	1531	
==>pc_check {
  unless(-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cf <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2465	2567	
==>of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ? <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2465	2567	
==>of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ? <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13443	13543	
==>tem RPe_LOGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (?{...}) not <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3463	3564	
==>self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $univ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3463	3564	
==>self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $univ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5067	5201	
==>name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5067	5201	
==>name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs <==
3	/Users/nnunley/pugs/util/package-osx.pl	1806	1895	
==>l/5.8.6/PIL2JS.pm
        /usr/local/lib/perl5/site_perl/pugs-smokejs.pl /Library/Perl/5.8 <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	27	128	
==>the Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# Bl <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	71	172	
==>the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ingo Bl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2481	2602	
==>_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2481	2602	
==>_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2481	2602	
==>_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($self, $i) = @_;
    while ($i->lookAhea <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17383	17485	
==>ifference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ), <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20860	20962	
==>ifference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13422	13543	
==>next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_las <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13422	13543	
==>next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_las <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13422	13543	
==>next if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_las <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4593	4761	
==>ntainer::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4593	4761	
==>ntainer::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4593	4761	
==>ntainer::Hash::buckets( _('$:cell')->{v} ) )
            },
            'pairs' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	723	852	
==>,
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	723	852	
==>,
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	723	852	
==>,
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl = String(PIL2JS.cps2normal(
          _26main_ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5927	6023	
==>em Context

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5927	6023	
==>em Context

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2714	2833	
==>le (($current is_not_nil) and ($method is_nil))
        (($current send (has_method $label)) and (= $method ($current se <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	924	1026	
==>_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) i <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	924	1026	
==>_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2424	2544	
==>ts };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	320	439	
==>", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	320	439	
==>", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49024	49216	
==>ymbol->new('?$version' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$versio <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18143	18240	
==>ve
Interface, if at all.  To account for situations where multiple DBMS
objects want to use the sa <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18143	18240	
==>ve
Interface, if at all.  To account for situations where multiple DBMS
objects want to use the sa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1431	1542	
==>lse {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head, $cc;
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1431	1542	
==>lse {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head, $cc;
}

1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1431	1542	
==>lse {
    $cc = PIL::Cont->new(argname => "", body => $tail);
  }

  return PIL::possibly_ccify $head, $cc;
}

1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6	100	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6	100	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6	100	
==>/bin/perl

use strict;
use warnings;
use Perl6::MetaModel::Gnosis;

use constant BOOTSTRAPPED_C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3669	3770	
==>ating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_onl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3669	3770	
==>ating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_onl <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4259	4360	
==>ating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($param->named_onl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8657	8799	
==>)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "No <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8657	8799	
==>)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "No <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8657	8799	
==>)." -- $i\n";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            # warn "List -- ". $i->is_contiguous;
            die "No <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9865	9979	
==>mes6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9865	9979	
==>mes6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9865	9979	
==>mes6arg,[['name',$listify->($n6a)],@info]);
        push(@names5,$n5);
    }
    my $my_args = "";
    if (@names5) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1087	1211	
==>lf = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1087	1211	
==>lf = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1087	1211	
==>lf = create_opaque_instance(\$class, %attrs);              
    # and now return it ...
    return $self;
});

::Class.meta.a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12893	13008	
==>e PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12893	13008	
==>e PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($arg <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12893	13008	
==>e PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args);
    #return "return ($arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	969	1073	
==>TCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	969	1073	
==>TCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	969	1073	
==>TCH()([$cxt, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->un <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7355	7472	
==>map(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthunk->val->struct_equiv;

		if ($child->i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3674	3783	
==>yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTM <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3674	3783	
==>yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	147	263	
==>FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	147	263	
==>FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	147	263	
==>FGLOCK';

class1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1571	1728	
==>= @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1571	1728	
==>= @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1571	1728	
==>= @_;
            bless $obj, $class;
        };
	},
	rebase  => sub {
        my($opts) = @_;
        $opts->{editor} = sub {
            my ($obj, $class) = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1184	1291	
==>!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1184	1291	
==>!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-se <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	2616	2702	
==>C<$Test::Harness::switches>

The package variable C<$Test::Harness::switches> is export <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19621	19757	
==>, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4848	4938	
==>', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes? <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4848	4938	
==>', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10291	10420	
==>warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it dr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10291	10420	
==>warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it dr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10291	10420	
==>warn "  STORE SLICE pos $pos to $start, $slice_size, @items";
            # TODO - XXX - don't use splice on slices, because it dr <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3466	3569	
==>_bol  { \^\^ }
rule assert_eol  { \$\$ }
rule lookahead   { \< (!?) before <ws> <pattern> \> }
rule look <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13350	13475	
==>arn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13350	13475	
==>arn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        els <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13350	13475	
==>arn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7318	7485	
==>me,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7318	7485	
==>me,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7318	7485	
==>me,
                        '$.params' => \@params,
                        '$.body' => $wrapper);
    }
    if ($type eq 'Code') {
###....
    }
    if ($type eq 'Macr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2527	2636	
==>{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2527	2636	
==>{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2527	2636	
==>{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'};
  my $nth        = %mods.exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	54	180	
==>up {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	54	180	
==>up {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	54	180	
==>up {
  my $self = shift;
  local $_;

  die unless keys %$self == 4;
  $self->{pCxt} = bless [] => "PIL::TCxtVoid" if $self->{p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8900	9015	
==>tate}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{boo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8589	8701	
==>tate}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{boo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1386	1516	
==>IL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1386	1516	
==>IL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1386	1516	
==>IL::PVar";

  } else {
    return bless {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2128	2234	
==>p = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2128	2234	
==>p = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23972	24059	
==>t_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13109	13215	
==>h_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13109	13215	
==>h_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13109	13215	
==>h_cache{$class} = { $_[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]}) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2934	3088	
==>: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return un <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2838	2988	
==>: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27304	27399	
==>od creates and returns a new Relation::Example object, whose Heading and
Body attributes are set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	162	274	
==>1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	162	274	
==>1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	162	274	
==>1 'Junction'.$class_description => {
    is => [ $::Object ],
    instance => {
        attrs => [ '$.type', '$.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2315	2414	
==>thod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2315	2414	
==>thod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2315	2414	
==>thod' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9390	9541	
==>ain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $f <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10381	10532	
==>ain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	889	1012	
==>Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5481	5599	
==>tive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5481	5599	
==>tive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) im <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5481	5599	
==>tive {
  # Hack
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) im <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9825	9946	
==>elf, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    if (@$ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4874	4971	
==>finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and ret <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4874	4971	
==>finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	601	703	
==>ng the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	601	703	
==>ng the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	601	703	
==>ng the original value. This is necessary to
# emulate pass by ref (needed for is rw and is ref).

use P <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5435	5536	
==>'.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5 <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5435	5536	
==>'.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1400	1519	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1400	1519	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1400	1519	
==>ew PIL2JS.Box.Constant(function (args) {
    var cxt  = args.shift();
    var cc   = args.pop();
    var hash = args[0]. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10039	10149	
==>- TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10382	10478	
==>ur tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would lik <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10440	10536	
==>ur tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would lik <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3388	3502	
==>del-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3388	3502	
==>del-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3388	3502	
==>del-base=...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4850	4972	
==>tput to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4850	4972	
==>tput to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4850	4972	
==>tput to the given filename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5882	5983	
==>%Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar::Postci <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38852	38954	
==>.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43666	43768	
==>.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43200	43302	
==>.net>)

=head1 LICENCE AND COPYRIGHT

This file is part of the Relation library.

Relation is Copyright <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6360	6600	
==>0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6360	6600	
==>0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6360	6600	
==>0]->nextkey;
                }
                Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5831	5936	
==>w;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5831	5936	
==>w;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5831	5936	
==>w;
  my $ct = $rt->create_context;

  PIL2JS::JSPM::init_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36653	36769	
==>pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36653	36769	
==>pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36653	36769	
==>pop;
    $array->push( $x );
    return $x;
}

sub fetch {
    # XXX - this is inefficient because it needs 2 splices <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19287	19390	
==>ode,wantarray);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_the_lines {
    my <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3011	3113	
==>thod dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAM <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3011	3113	
==>thod dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4059	4157	
==>turn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no inst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4059	4157	
==>turn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no inst <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4059	4157	
==>turn $obj;
}


=pod

=head2 Methods

Class::Rebless defines B<only class methods>. There is no inst <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18133	18233	
==>SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18133	18233	
==>SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18133	18233	
==>SUB infix:<~>  ($xx0,$xx1) { p6_from_s(p6_to_s($xx0) . p6_to_s($xx1)) };
MULTI SUB infix:<+|> ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	245	356	
==>n boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	245	356	
==>n boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	245	356	
==>n boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7835	7934	
==>el

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7835	7934	
==>el

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7835	7934	
==>el

=head1 SYNOPSIS

  # more Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6144	6282	
==>LASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6144	6282	
==>LASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6144	6282	
==>LASS }, 
        },
    }
};

class1 'Str'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        met <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	18414	18526	
==>s that id is polymorphic when used in a let expr.
my $id_pair = let(
	ide => "id",
	is => $id,
	in => comb(
		fun <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3895	3992	
==>previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_n <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3895	3992	
==>previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	198	295	
==>t to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	198	295	
==>t to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	198	295	
==>t to overwrite core subs
# (&defined, &time, operators, etc.) with calls to &JS::inline, as then m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23806	23901	
==>entation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23806	23901	
==>entation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8926	9041	
==>olation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8926	9041	
==>olation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'param <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8926	9041	
==>olation
	    $code = "sub{ $code }";
	    push(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'param <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7444	7576	
==>mp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I32 api;

    nulpat = savepv(""); /* <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1843	1949	
==>urns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return & <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1843	1949	
==>urns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return & <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	683	797	
==>caching)
    #    Set-Cookie: (multiple cookies)
    print CookiesHeader();
    if ($location.defined) {
        $h <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7907	7995	
==>ic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7907	7995	
==>ic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	136	232	
==>n sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	136	232	
==>n sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	136	232	
==>n sprintf "(function (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20105	20199	
==>ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20105	20199	
==>ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20105	20199	
==>ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) ge p6_to_s($xx1)) };
MULTI SUB infix:<~~> ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	124	266	
==>ssage;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUIL <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	124	266	
==>ssage;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUIL <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22008	22123	
==>t}->{name};
        $max_namelen = $namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10076	10287	
==>scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10076	10287	
==>scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10076	10287	
==>scalar";
                    $s = Scalar->new;
                    $tmp->store( $key, $s );
                }
                $s->store( @param );
                return @param;
            },
            'AUTOLO <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16193	16292	
==>t's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2602	2701	
==>t's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10805	10924	
==>efore <LineTerminator>> <SourceCharacter>
}
rule RegularExpressionFlags {  # see 7.8.5
      <null>
    | <RegularExpres <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2507	2609	
==>lume is not just A:, make sure the glue separator is
    # there, reusing whatever separator is first i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2507	2609	
==>lume is not just A:, make sure the glue separator is
    # there, reusing whatever separator is first i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6565	6695	
==>{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1444	1558	
==>tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1444	1558	
==>tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'met <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2884	3006	
==>op shift\n" if $debug;
          push(@$ops,$op);
          local $Z::oop{$id}{'op_ahead'} = undef;
          return &$step <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	734	834	
==>hell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	734	834	
==>hell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7230	7351	
==>l {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3834	3955	
==>l {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4683	4804	
==>l {
    # $_[0] =~ s/([\'])/\\$1/g;
    return "'" . $_[0] . "'";
    # return '"' . quotemeta($_[0]) . '"';
    #$_[0] =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10770	10873	
==>me) if $name =~ /^\%/;

    return "$_[1] ruleop::constant( '" . $value . "' )\n";
}
sub node::closure { <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	616	784	
==>events;
    return $callback();
  }

  method run () {
    while @:events {
      ./:step;
    }
  }

  # Post $event to $session and return the result.
  # The session' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3012	3106	
==>set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBU <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3012	3106	
==>set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBU <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9466	9581	
==>in " ", @_) . "\n");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($sr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6902	7010	
==>d_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6902	7010	
==>d_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	9	123	
==>IL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	9	123	
==>IL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	9	123	
==>IL::PVar;

use warnings;
use strict;

sub fixup {
  die unless keys %{ $_[0] } == 1;
  die if     ref(my $name = $_ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	430	871	
==>38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            4 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	430	871	
==>38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6674	6777	
==>tion (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6674	6777	
==>tion (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6674	6777	
==>tion (x, y) {},

  // Hack -- this is a CPU-burning implementation of setTimeout
  // (needed for &sleep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11045	11157	
==>>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11045	11157	
==>>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11045	11157	
==>>         $ret->{celems},
        cis_infinite =>   $ret->{cis_infinite},
        cis_contiguous => $ret->{cis_co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7680	7773	
==>> \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9608	9701	
==>> \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7668	7761	
==>> \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, to => \\(0+\$pos), capture <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9454	9568	
==>args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9454	9568	
==>args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9454	9568	
==>args.pop();
    var array = args[0].FETCH();
    var idxs  = args[1].toNative();

    var orig_value = [];
    for( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1368	1504	
==><list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1368	1504	
==><list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1368	1504	
==><list>    XXX Pugs parser TODO 
    ($x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1 <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	10006	10120	
==>lf = shift;
    my $text = shift;
    my $sep = File::Spec->catdir('');
    $text =~ s{\b/}{$sep}g;
    return $tex <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	73	161	
==>e, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.72 <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	73	161	
==>e, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.72 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3790	3884	
==>:Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3790	3884	
==>:Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2037	2128	
==>l::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2037	2128	
==>l::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2037	2128	
==>l::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_[0]{type} ref=".ref($_[0]{ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1418	1537	
==>"Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # ca <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1418	1537	
==>"Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # ca <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1897	2007	
==>->install( ... )

=cut

sub install {
    my $self = shift;
    msg("Package already installed");
    return $s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2086	2208	
==>nt
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2086	2208	
==>nt
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	409	506	
==>:true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	409	506	
==>:true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	409	506	
==>:true}

multi sub not ($x) {!$x}

multi sub postcircumfix:<[ ]> ($a,$i) { Array::slice($a,$i) }

m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20950	21062	
==>f;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17371	17483	
==>f;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10031	10139	
==>om_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10031	10139	
==>om_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10031	10139	
==>om_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; ".$p5r;
    #print STDERR "\n\n\n",$p5r;
    run_p5 <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	993	1106	
==>eton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	993	1106	
==>eton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9091	9184	
==>h_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $file = basename($relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4330	4443	
==>=> ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviousl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4330	4443	
==>=> ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviousl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4330	4443	
==>=> ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef unless defined $role_name;
    # obviousl <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1649	1768	
==>my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contain <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1649	1768	
==>my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contain <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1076	1254	
==>:Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1076	1254	
==>:Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1076	1254	
==>:Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40122	40241	
==>this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40122	40241	
==>this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40122	40241	
==>this->{arrayref}[$s] = $value->unboxed;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6890	6997	
==>implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1247	1351	
==>implemented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inh <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	349	450	
==>implemented" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4471	4624	
==>cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4471	4624	
==>cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4471	4624	
==>cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _('$:cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11311	11416	
==>ndBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11311	11416	
==>ndBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11311	11416	
==>ndBin::Bin,'lib6'),
         File::Spec->catdir($FindBin::Bin,qw< .. .. .. perl6 lib>));
    for my $dir ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15231	15429	
==>>keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15231	15429	
==>>keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15231	15429	
==>>keys;
                my $values = $array->values;
                return $keys->zip( $values );
            },
            'pairs' => sub  { 
                my $array = shift; 
                $ar <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4794	4956	
==>.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { ret <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4794	4956	
==>.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21253	21385	
==>y ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17674	17806	
==>y ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    } <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2288	2441	
==>pends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{package} };
                }

                ### wri <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6993	7129	
==>= [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the global <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6993	7129	
==>= [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the global <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3117	3225	
==>pugs";
    $ENV{PERL6LIB} = 'blib6/lib';
    $self->{_build_info} = join '', qx{$executable -V};
}

sub _buil <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27508	27607	
==>s, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples of t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32060	32159	
==>s, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples of t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9036	9151	
==>.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12513	12628	
==>.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11749	11864	
==>.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2902	3027	
==>$a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2902	3027	
==>$a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2902	3027	
==>$a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $idx = Array->new();
    # TODO - split index into @a <==
3	/Users/nnunley/pugs/util/package-osx.pl	3500	3602	
==>usr/local/man/man3/history.3
        /usr/local/man/man3/Inline::Pugs.3pm
        /usr/local/man/man3/v <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	891	992	
==>superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!= <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	891	992	
==>superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!= <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2240	2352	
==>$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span: <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2240	2352	
==>$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span: <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27692	27784	
==>α → (α × int)", ":t length_and_first");
is(t($length_and_first_p), "(int × int)", ":t l <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	889	1007	
==>g(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4367	4485	
==>g(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	102	190	
==>.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::Inst <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4677	4774	
==>ader ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4677	4774	
==>ader ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!header <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26249	26345	
==>efined and non-empty string, and each variable value can be anything at
all.  Note that while the <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26249	26345	
==>efined and non-empty string, and each variable value can be anything at
all.  Note that while the <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37256	37352	
==>another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41805	41901	
==>another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41428	41524	
==>another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	658	762	
==>JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	658	762	
==>JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (type <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	658	762	
==>JS::to_roman 42" works, too).
      JSAN._exportList = function (classdef, exportList) {
        if (type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7463	7565	
==>tore( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7463	7565	
==>tore( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7463	7565	
==>tore( $xx->fetch->decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SU <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38246	38341	
==>C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42795	42890	
==>C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42445	42540	
==>C<group>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1289	1410	
==>{
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1289	1410	
==>{
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1289	1410	
==>{
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11362	11489	
==>{
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11362	11489	
==>{
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11362	11489	
==>{
        is => [ $::Object ],
        });
    $cls;
}
sub p6_create_instance {
    my($name,@args)=@_;
    $name->new(@args);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7885	8067	
==>uments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7885	8067	
==>uments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7885	8067	
==>uments) = @_;
                #warn "DO @arguments\n";
                # is there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13076	13222	
==>nts array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13076	13222	
==>nts array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13076	13222	
==>nts array";        
        # deal with the $::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4791	4914	
==>1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4791	4914	
==>1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4791	4914	
==>1 if $sub_role->name eq $role_name;            
    }
    return 0;
}));

## composition methods

my $_collect_all_roles = s <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	540	641	
==>5 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	540	641	
==>5 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19958	20048	
==>1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [Ci|F1],F1,B0,[C|B0],E0,E0) :- flag_i(E0), cas <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27233	27403	
==>));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) returns list {
    ...
}

=cut

$::Class->send('add_method' => (
    # method l <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	648	788	
==>el = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               n <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	648	788	
==>el = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               n <==
3	/Users/nnunley/pugs/util/drift.pl	637	801	
==>/ or next;
    print TMP $_;
}
close IN;
close TMP;

my ($rh, $wh);

system(
    'ghc',
    '--make',
    '-o' => $setup,
    "-i$Bin/../src/DrIFT",
    "-i$Bin/../. <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5980	6097	
==>( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5980	6097	
==>( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0 <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2612	2740	
==>ile_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # No <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2612	2740	
==>ile_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # No <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2220	2344	
==>my ($self, %params) = @_;
            _('$.number'     => 0)     unless exists $params{'$.number'};
            _('$.diagnost <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	4015	4125	
==>"\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	4015	4125	
==>"\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	4015	4125	
==>"\"$hash\" can't be autovivified to a hash!";
  }

  $hash = hash();
  $hash{*@keys};
}

sub PIL2JS::Internals: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1	97	
==>odule Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1	97	
==>odule Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	81	177	
==>odule Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Output;

class <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37261	37366	
==>er, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41810	41915	
==>er, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<joi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41433	41538	
==>er, the result degenerates to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<joi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10352	10495	
==>>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6693	6836	
==>>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7542	7685	
==>>' ) );\n" .
                    # "    \$src =~ s/\\\\\\$args[$_]/\\$args[$_]/g; \n" .
                    "    $args[$_] =~ s/([\\'\\\\])/\\\\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	624	754	
==>nction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	624	754	
==>nction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	624	754	
==>nction () \{
      var res = \"\";

      for(var i = {$x}.length; i < {$y}.length; i++)
        $x += \"\\000\";
      for(var i = <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	15951	16048	
==>type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { new_env($$) }
let: env($.in) = { new_e <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4337	4430	
==>icates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> ar <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4337	4430	
==>icates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4588	4692	
==>) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4588	4692	
==>) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4588	4692	
==>) {
      return "$cc(new PIL2JS.Box.Constant($inv.$sub(\n$arg\n)))" if $native;
      #return sprintf "% <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9087	9180	
==>ackages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9087	9180	
==>ackages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9968	10093	
==>o->data}{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9003	9113	
==>ent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might ari <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9003	9113	
==>ent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might ari <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2186	2300	
==>nd($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socke <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2186	2300	
==>nd($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socke <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1559	1651	
==>{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	144	262	
==>";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	144	262	
==>";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	144	262	
==>";
    $count++;
    if $v { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub is ($v,$v2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31335	31521	
==>->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31335	31521	
==>->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31335	31521	
==>->elems;
                }
                else {
                    $ret_length++;
                }
                # warn "push list ". $i->start . ".." . $i->end . " now length=$ret_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2364	2497	
==>g_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2364	2497	
==>g_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4417	4542	
==>emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4405	4530	
==>emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\ <==
3	/Users/nnunley/pugs/util/importgraph.pl	672	782	
==>ts);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^mo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1157	1265	
==>ymbol
    }

    # and then

    my $reduced = My::ASTWalker->new->reduce($program);

=head1 DESCRIPTION

=cu <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5301	5396	
==>ase64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS

X <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5301	5396	
==>ase64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS

X <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2176	2353	
==>st) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scala <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2176	2353	
==>st) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scala <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2458	2585	
==>iner, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$contain <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2458	2585	
==>iner, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$contain <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10631	10736	
==>rror in closure quantifier")
.end

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .l <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11204	11300	
==>he Document class is pure and deterministic,
such that all of its class and object methods will e <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11204	11300	
==>he Document class is pure and deterministic,
such that all of its class and object methods will e <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	578	683	
==>BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	578	683	
==>BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2211	2314	
==>y(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2211	2314	
==>y(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2211	2314	
==>y(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt = args[ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6680	6832	
==>orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    return 1;
    
}

=head2 J <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7354	7504	
==>urn $o;
}
sub rebless_with_prefix_and_cleanup {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::Bi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9160	9309	
==>);
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delet <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9160	9309	
==>);
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	766	866	
==>.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	766	866	
==>.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	766	866	
==>.org/group/perl.perl6.language/19425.
    cc(new PIL2JS.Box.Proxy(
      function ()  { return new PI <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3741	3912	
==>3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) { <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3741	3912	
==>3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6576	6783	
==>@_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6576	6783	
==>@_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6576	6783	
==>@_;
                #warn "PREBIND $self => @args";
                return Code->new( 
                    '$.body' => sub { 
                        my $obj = shift;
                        #warn "PREBOUND @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11885	11991	
==>ree;
    return 1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1241	1369	
==>Method') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1241	1369	
==>Method') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1241	1369	
==>Method') {
            ::opaque_instance_attr($self => '%:methods')->{$label} = $method;
        }
        #elsif (blessed($metho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4805	4910	
==>un ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4805	4910	
==>un ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6329	6434	
==>un ten tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5869	5985	
==>alized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5869	5985	
==>alized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22947	23054	
==>ngth_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val(v => "foo", t => type::op <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7566	7669	
==>W-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

m <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7566	7669	
==>W-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12035	12134	
==>tion::Example {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &sem <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1030	1123	
==>ented interfaces.  The 
functional and object-oriented interfaces both follow the same basic s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1030	1123	
==>ented interfaces.  The 
functional and object-oriented interfaces both follow the same basic s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1250	1372	
==>xpr';
node_h 'PIL_Expr',             'PCode', 
  'pType'    ,'SubType',
  'pParams'  ,'[TParam]',
  'pLValue'  ,'Bool',
  ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4400	4519	
==>xpr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  ' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4400	4519	
==>xpr';
node_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4122	4227	
==>x1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4122	4227	
==>x1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4122	4227	
==>x1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_loop_macro("p6_apply($xx1)")." } }";
};
MACROP5   Pa <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25106	25203	
==>sts
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29658	29755	
==>sts
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This metho <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2743	2945	
==>span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2743	2945	
==>span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Spa <==
3	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	321	482	
==>" if $doc;
            $doc = {};
            next;
        };
        /^(\S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, full YAML spec.
            my($ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11895	12004	
==>primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12298	12407	
==>primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1030	1148	
==>pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1030	1148	
==>pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1030	1148	
==>pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^use Test//gm, thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14756	14870	
==>is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14756	14870	
==>is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14756	14870	
==>is not yet 
        # populated with anything, so ....
        my @supers = @{::opaque_instance_attr($self => '@:MR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2391	2491	
==>t %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2851	3017	
==>$term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2851	3017	
==>$term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7719	7819	
==>riable;
sub node::empty_list {
    return "()";
}
sub node::immediate_statement_exec {
    return get <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7090	7314	
==>( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7090	7314	
==>( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8017	8115	
==>data still 
in the cipher to be deleted immediately.  This method should be as thorough as 
possibl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8017	8115	
==>data still 
in the cipher to be deleted immediately.  This method should be as thorough as 
possibl <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21421	21575	
==>l"),
								param => ide("xs"),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1867	2020	
==>amed;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1855	2008	
==>amed;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3947	4060	
==>fess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3947	4060	
==>fess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3947	4060	
==>fess "p6_var: $@\n$code\n" if $@;
    $v;
}
sub p6_root {"PIL::Run::Root"}
sub p6_main {"PIL::Run::Root::main"}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	559	668	
==>ame', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	559	668	
==>ame', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	559	668	
==>ame', [$args6], sub {my \$_fn ='$name'; $my_args";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3151	3251	
==>y are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. A <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3151	3251	
==>y are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7641	7748	
==>{ Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7641	7748	
==>{ Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7641	7748	
==>{ Num->new( '$.unboxed' => Perl6::Value::Bit::to_num( _('$.unboxed') ) ) },
            'int' => sub { Int-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2096	2235	
==>edence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        assoc => 'left',
        preceden <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	775	890	
==>s not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLAS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	775	890	
==>s not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5894	6018	
==>y @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5894	6018	
==>y @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5894	6018	
==>y @a is copy, Array @b is copy) {
  my Array @ret;
  if (@a.elems == 1) {
      @a = @a[0] xx @b.elems;
  }
  if (@b.elems == <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	280	407	
==>turn the evaluated integer result.
# Example: "5 4 +" returns 9
sub evaluate (Str $expr) returns Int {
    my @stack;
    for ($ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5220	5310	
==>moved child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_le <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5220	5310	
==>moved child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	972	1083	
==>& ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	972	1083	
==>& ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	972	1083	
==>& ref($body) && ref($body) =~ 'ARRAY') {
        my ($body, @param_names) = ($_[2], @{$_[1]});
        my ($name <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37019	37119	
==>generates to a C<intersection>.  In any situation where a pair of source
relations have zero attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41568	41668	
==>generates to a C<intersection>.  In any situation where a pair of source
relations have zero attribut <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41191	41291	
==>generates to a C<intersection>.  In any situation where a pair of source
relations have zero attribut <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1712	1810	
==>e_subscription<remove> .= new;
}

class Class::Events::Subscription {
    has Class::Events::Publis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12172	12381	
==>e::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12172	12381	
==>e::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12172	12381	
==>e::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                push @{$self->{shifts}}, @res <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4033	4157	
==>new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4173	4297	
==>new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13132	13234	
==>der -T, you really mean to
	# run a fresh perl, so we'll brute force launder everything for you
	my $se <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	944	1036	
==>:Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DE <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	944	1036	
==>:Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	774	886	
==>ash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	774	886	
==>ash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	774	886	
==>ash slice

# TODO - %a = %b - whole hash fetch/store
#        PIL-Run - %a = { a=>'b', c=>'d' } generates: {({(c, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3609	3713	
==>t you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$descriptio <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3609	3713	
==>t you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3689	3793	
==>t you have.

=item B<test_pass( Str $description )>

Marks that the next test should pass.  C<$descriptio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10283	10384	
==>)

Get or set the value of one or more header fields.  The header field
name ($field) is not case sens <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10283	10384	
==>)

Get or set the value of one or more header fields.  The header field
name ($field) is not case sens <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26451	26546	
==>tch succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $parser->object(TYPE => ARGS...) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2175	2280	
==>ds a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2175	2280	
==>ds a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2175	2280	
==>ds a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die "Can't use 0-ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5122	5248	
==>_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5122	5248	
==>_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5122	5248	
==>_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value::numify( $param{start} );
    my $end =   Perl <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1166	1269	
==>*@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1166	1269	
==>*@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	478	578	
==>{
	warn "lib_paths has been changed to cc_lib_paths due to confusion between Perl and C";
	shift()->c <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	554	683	
==>st) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @pat <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	554	683	
==>st) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @pat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6296	6390	
==>*{'term2'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12085	12198	
==>tus      = $self.Test::Builder::Test::WithReason::status();
          $status{"skip"} = 1;
          return $statu <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2487	2596	
==>tus      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $statu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2487	2596	
==>tus      = $self.Test::Builder::Test::WithReason::status();
        $status{"skip"} = 1;
        return $statu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2782	2875	
==>is::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2782	2875	
==>is::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2782	2875	
==>is::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, %self.pai <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15591	15700	
==>Sometimes the "not " and "ok" will be on separate lines on VMS.
        # We catch this and remember we saw it <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2167	2274	
==>ETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() of <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2167	2274	
==>ETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7243	7373	
==>I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7243	7373	
==>I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7243	7373	
==>I am not sure
                    $new_role->add_method($method_name => ::make_private_method(
                        $body->{clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2990	3104	
==>") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2990	3104	
==>") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2990	3104	
==>") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13371	13465	
==>you can create an identical Document (with member
Nodes) to the one you first invoked export_as <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13371	13465	
==>you can create an identical Document (with member
Nodes) to the one you first invoked export_as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10011	10109	
==>use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10011	10109	
==>use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10011	10109	
==>use PIL::PApp;
use PIL::PAssign;
use PIL::PBind;
use PIL::PExp;
use PIL::PLit;
use PIL::PNil;
use P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2931	3032	
==>]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2931	3032	
==>]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2931	3032	
==>]->{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1373	1462	
==>he TestBuilder::TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::Nul <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3441	3535	
==>f is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 M <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3441	3535	
==>f is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5638	5732	
==>f is actually a factory for
classes which C<does> the Test::Builder::Test::Base role.

=head1 M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1999	2133	
==>ub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1999	2133	
==>ub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1999	2133	
==>ub ::WALKMETH {
        my $dispatcher = shift;
        { ($dispatcher->() || return)->get_method(@_) || redo }       
    }
    
    s <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	506	617	
==>ms because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<coun <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	506	617	
==>ms because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<coun <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22133	22224	
==>mentation is pending.>

=head1 DESCRIPTION

Relation::Example provides a minimal in-RAM
stor <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	610	722	
==>an>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	610	722	
==>an>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	610	722	
==>an>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4387	4518	
==>',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4387	4518	
==>',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4387	4518	
==>',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_space = map {$space_from_sigil{$_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	287	439	
==>::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    });
}
sub varscalar {
    my $gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3004	3096	
==>s::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fglock <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2896	2987	
==>s::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fglock <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3467	3575	
==>xtra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3467	3575	
==>xtra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3467	3575	
==>xtra parameters
    $_[0]{tied} = $_[1];
}
sub Perl6::Cell::untie {
    $_[0]{tied} = undef;
}

# --- end Cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	14503	14675	
==>nge {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	14503	14675	
==>nge {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	14503	14675	
==>nge {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8817	8979	
==>0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8817	8979	
==>0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $li <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8817	8979	
==>0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $length = shift;
            # warn "shift_n( $length ) from  ". $li <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2502	2611	
==>o return a compiled regexp, and to provide match results.  This
module is an experiment, to see if it is possi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13524	13623	
==>es for the fields present in the
header.  The field names have case as suggested by HTTP spec, and t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13524	13623	
==>es for the fields present in the
header.  The field names have case as suggested by HTTP spec, and t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2553	2664	
==>ame($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2553	2664	
==>ame($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2553	2664	
==>ame($name)           if defined $name;
    $new_class->version($version)     if defined $version;
    $new_class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3181	3294	
==>aram{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3181	3294	
==>aram{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3181	3294	
==>aram{cstart} || defined $param{cend} ) ? sub { Inf } : sub { 0 }
    }
    $param{cstart}  = sub {} unless defined <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1236	1338	
==>rt => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1236	1338	
==>rt => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $sp <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	322	467	
==>s => [ 'IHash' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_va <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5567	5676	
==>return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5567	5676	
==>return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7055	7202	
==>ue:     "; my $lvalue =   %pad<"pSubLValue">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @ <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	197	290	
==>*infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(& <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	197	290	
==>*infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(& <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9947	10131	
==>oady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $bi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6288	6472	
==>oady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $bi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7137	7321	
==>oady on #perl6)

            my $binding = '';
            for ( 0 .. $#args ) {
                my $ident = $args[$_];
                $ident =~ s/^.//;  # no sigil
                $bi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	649	745	
==>$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	649	745	
==>$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6655	6781	
==>plemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Inde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6655	6781	
==>plemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Inde <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6655	6781	
==>plemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind: Inde <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	178	291	
==>y Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head tail d <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4977	5082	
==>part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4977	5082	
==>part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16845	16952	
==>:Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16845	16952	
==>:Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16845	16952	
==>:Class attributes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2166	2262	
==>ock &dispatcher, symbol $label, hash %opts) returns method {
    while (my $current = &dispatcher <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	345	437	
==>$input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	345	437	
==>$input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12062	12177	
==>p{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12062	12177	
==>p{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12062	12177	
==>p{$_='PIL::Run::Root::'.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,'PIL::Run::R <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18950	19082	
==>n";
    }
    elsif( $curr < $next ) {
        print "Confused test output: test $curr answered after ".
              "test ", $next <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1152	1267	
==>ss{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\]]) <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	54	153	
==>ION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document d <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	54	153	
==>ION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4930	5031	
==>em B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the cu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4930	5031	
==>em B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the cu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7127	7228	
==>em B<Bool $.passed>

Whether the test passed.

=item B<Int $.number>

The number of the test in the cu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4135	4265	
==>n " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4135	4265	
==>n " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4135	4265	
==>n " ", map { "$_ = undefined;" } grep { /^ret\d+$/ } @jsparams
          : undef
      );

    my @arg = (@jsparams, $native ? () : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1209	1313	
==>depc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1209	1313	
==>depc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1209	1313	
==>depc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \$cfg{prelude},
  "testpc=s"      => \$cfg{testpc},
  " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	198	324	
==>);
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6:: <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6545	6647	
==>%users accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $eve <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6545	6647	
==>%users accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $eve <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10326	10468	
==>$a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10326	10468	
==>$a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10326	10468	
==>$a, undef, $b) = (3,4,5).
          if(
            array[idx] == undefined || (
              array[idx].isConstant &&
              array[idx <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4500	4614	
==>rse =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4500	4614	
==>rse =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1367	1471	
==>{{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	9	100	
==>cal/bin/pugs
BEGIN {unshift @*INC, "/home/eric256/auto/pugs/ext/CGI/lib" };
use CGI;
#use pe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20076	20179	
==>her data types.

While the implementation can be changed greatly (it isn't what's important;
the interfa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24628	24731	
==>her data types.

While the implementation can be changed greatly (it isn't what's important;
the interfa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23180	23283	
==>her data types.

While the implementation can be changed greatly (it isn't what's important;
the interfa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9322	9465	
==>ingify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9322	9465	
==>ingify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9322	9465	
==>ingify( _('$.value') );
                Str->new( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9834	9930	
==>written for Pugs.

It provides a simple set of common test utility functions, and is
an implement <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9892	9988	
==>written for Pugs.

It provides a simple set of common test utility functions, and is
an implement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8253	8374	
==>lf == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8253	8374	
==>lf == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8253	8374	
==>lf == 1;

    return bless { (%$self)[0] => (%$self)[1]->fixup } => "PIL::PThunk";
  }

  sub as_js {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3746	3838	
==>ything we
write shouldn't need to have documentation/comments. If you need something
with mor <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3746	3838	
==>ything we
write shouldn't need to have documentation/comments. If you need something
with mor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19420	19518	
==>to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19420	19518	
==>to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19420	19518	
==>to_n($xx0) <= p6_to_n($xx1)) };
MULTI SUB infix:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19340	19435	
==>to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19340	19435	
==>to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19340	19435	
==>to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) <= p6 <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2895	3011	
==>>instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀${_}." } @forall),
		   $pretty->apply($tree)->lay <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4624	4739	
==>t;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call m <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4483	4598	
==>t;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3456	3576	
==>n bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3456	3576	
==>n bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3456	3576	
==>n bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault} && $self->{tpDefault}->fixup <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23740	23869	
==>${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20161	20290	
==>${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3583	3681	
==>lexical.  It's not clear how to do
it.  Possible tools include get_sv, eval_pv, and %^H.  The first <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	76	183	
==>pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	76	183	
==>pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	75	179	
==>pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

package Grammar::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5378	5482	
==>...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5378	5482	
==>...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5378	5482	
==>...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s($xx)) ) };
MULTI SUB lcfirst ($xx) { p6_from_s( lcf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	124	228	
==>ash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	124	228	
==>ash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	124	228	
==>ash element
#
# 2005-08-31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2070	2183	
==>hod, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2070	2183	
==>hod, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2070	2183	
==>hod, $self)
            :
            ::make_stub_method());
}));

$::Role->add_method('get_method' => ::make_meth <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2211	2312	
==>')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    pus <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2211	2312	
==>')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    pus <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25926	26023	
==>H_GPOS)
 #define ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBOL <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5197	5299	
==>wards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path re <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5197	5299	
==>wards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path re <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1835	1931	
==>ers (scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4157	4275	
==>me =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4157	4275	
==>me =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\* <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4157	4275	
==>me =~ s/^.?\?//;
        $required = defined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	414	517	
==>05-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	414	517	
==>05-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	414	517	
==>05-09-27
# * Str.decrement() works
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair st <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3000	3101	
==>kernel used, you may want to use the
      configuration at
      http://m19s28.vlinux.de/iblech/pugs/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32929	33024	
==>rator that is like
C<union> except that the returned Relation contains only tuples that are in
e <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37479	37574	
==>rator that is like
C<union> except that the returned Relation contains only tuples that are in
e <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6608	6711	
==>ies), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6608	6711	
==>ies), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns S <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10304	10394	
==>_class(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13997	14096	
==>st )
 
Iterates the elements of C<%hash> in no apparent order, but the order
will be the same betwee <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32718	32813	
==>on contains all the tuples of the source Relations, including
one copy each of any duplicated tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37268	37363	
==>on contains all the tuples of the source Relations, including
one copy each of any duplicated tu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6084	6188	
==>ponse !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6084	6188	
==>ponse !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10237	10367	
==>s_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10237	10367	
==>s_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10237	10367	
==>s_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $met <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3881	4014	
==>f Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3881	4014	
==>f Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7396	7491	
==>f->leave_scope;
		
		my $child = $rthunk->val->struct_equiv;

		if ($child->isa("Blondie::Seq")) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8300	8447	
==>ASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8300	8447	
==>ASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9941	10092	
==>,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10220	10371	
==>,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	228	335	
==>ram('$handle'),
			Param('$string'),
			App(
				Sym('&printf'),
				Sym('$handle'),
				Val('%s'),
				Sym( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	523	675	
==>> sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'arra <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1765	1894	
==>ssage.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1765	1894	
==>ssage.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26458	26555	
==>lass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) returns nil 
    (($self: get_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2278	2397	
==>les should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2195	2307	
==>les should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	351	454	
==>einfachen Methode
$welt.hallo;	# Perl 5:  $welt->hello;
hallo $welt;	# wie in Perl 5
hallo($welt);	# wie <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	357	503	
==>ub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    retur <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	357	503	
==>ub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15010	15154	
==>tance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15010	15154	
==>tance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15010	15154	
==>tance_attr($self => '@:superclasses')} 
            if scalar @supers == 0;
        # ... carry on,.. nothing to see here ....
        push @clas <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	926	1048	
==>ed first
        unshift @rv, _recurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	718	818	
==>}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	718	818	
==>}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition o <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2357	2509	
==>tar', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2368	2520	
==>tar', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    rul <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	788	899	
==>tr->new((shift)->{type}) }

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) 
        unless b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25080	25232	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25359	25511	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $ <==
3	/Users/nnunley/pugs/misc/POE/lib/POE.pm	158	266	
==>@:events;

  submethod BUILD ($self:) {
    die "There can only be one instance of POE::Kernel."
      if def <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6353	6450	
==>thod capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &conti <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6353	6450	
==>thod capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &conti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2505	2606	
==>my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2505	2606	
==>my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2505	2606	
==>my $exhaustive = %mods{'ex'} || %mods{'exhaustive'};
  my $ignore     = %mods{'i'}  || %mods{'ignore'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	152	278	
==>ge PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	152	278	
==>ge PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	152	278	
==>ge PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless keys %$self == 1;
    die unless exist <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36660	36753	
==>mplate corresponding to the Message could be
found using the Translator object's Set and Membe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36660	36753	
==>mplate corresponding to the Message could be
found using the Translator object's Set and Membe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15138	15244	
==>TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18615	18721	
==>TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18031	18137	
==>TODO: more or better optimization.

    # Now do the actual combination work.
    # Start with identity-one <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1429	1529	
==>ly Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .incre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1429	1529	
==>ly Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .incre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1429	1529	
==>ly Containers

# TODO - implement tests from t/var/autoderef.t
# TODO - constant
# TODO - move .incre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7032	7200	
==>eturns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7032	7200	
==>eturns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7032	7200	
==>eturns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1235	1332	
==>ything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1235	1332	
==>ything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash refere <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1235	1332	
==>ything down to your project's base namespace.

Class::Rebless walks scalar, array, and hash refere <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	554	707	
==>'$.output'   => $output)) 
                unless defined __('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3496	3615	
==>et1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $sp <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3496	3615	
==>et1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $sp <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4715	4819	
==>=> { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5367	5471	
==>=> { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2342	2471	
==>-> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2342	2471	
==>-> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2342	2471	
==>-> Method $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1489	1606	
==>me, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o->{'nprec' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15825	15925	
==>to F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing mod <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15825	15925	
==>to F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1741	1855	
==>ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1741	1855	
==>ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1741	1855	
==>ret));
    })')(@$self, @idx);
  } else {
    die ".delete does not work on objects of type {$self.ref}!";
  }
}

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1565	1670	
==>arnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1565	1670	
==>arnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1565	1670	
==>arnings "recursion";

  if(
    not $thing->isa("PIL::PPos") and (
      $unwrapped->isa("PIL::PLit")   or <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37048	37144	
==>>.  In any situation where a pair of source
relations have zero attributes in common, their joini <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41597	41693	
==>>.  In any situation where a pair of source
relations have zero attributes in common, their joini <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41220	41316	
==>>.  In any situation where a pair of source
relations have zero attributes in common, their joini <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2778	2919	
==>($?SELF.attr_name_exists( $attr_name )) {
            return Bool::true;
        }
    }
    return Bool::false;
}

method no_names_exist of B <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	391	517	
==>> '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=he <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	391	517	
==>> '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2902	2999	
==>use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2902	2999	
==>use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2902	2999	
==>use Carp 'confess';

use Perl6::MetaModel;
use Perl6::Value;

my $class_description = '-0.0.1-cpan <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	392	530	
==>06 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Move <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	392	530	
==>06 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Move <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1856	1949	
==>die::TypeSafe::Annotation->new(
		type => $type,
		struct_equiv => Blondie::Val->new(
			Blond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22832	23022	
==>alar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22832	23022	
==>alar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22832	23022	
==>alar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, $scalar";
                        # XXX - TODO - test with multi-dim f <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15956	16063	
==>{
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2349	2456	
==>{
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	585	701	
==>s::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	585	701	
==>s::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	585	701	
==>s::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa("PIL::PLi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5161	5319	
==>thing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5161	5319	
==>thing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5161	5319	
==>thing
                    match => sub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3969	4158	
==>g( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7446	7635	
==>g( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6412	6601	
==>g( $_.pairs.map:{ %full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	626	726	
==>and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	626	726	
==>and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	626	726	
==>and some other stuff later), in the bootstrap  
# $::EigenClass->superclasses([ $::Class ]);

## ---- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	13	112	
==>oesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	13	112	
==>oesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	13	112	
==>oesnt work quite yet...
#module PIL::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2682	2793	
==>tion $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2682	2793	
==>tion $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2682	2793	
==>tion $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2360	2473	
==>diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2360	2473	
==>diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2440	2553	
==>diag;

    return 1 if $Test.ok( ($out_matches && $diag_matches), $description );

    $Test.diag(
        "output <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9140	9274	
==>if /^_\+(.*)/;        # _+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/P <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8976	9083	
==>rovided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted packa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10453	10560	
==>rovided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	278	400	
==>CRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	278	400	
==>CRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	278	400	
==>CRO     => 7,
  SUBCOROUTINE => 8,
};

# Are we in a sublike thing? If yes, what sublevel does that thing have?
our $IN_SUB <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1612	1745	
==>ched.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1819	1952	
==>ched.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            - <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18079	18183	
==>en_header};

    $self->{_seen_header}++;

    warn "1..M can only appear at the beginning or end of test <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	419	528	
==>d1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	83	185	
==>s::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	83	185	
==>s::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the g <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5864	5976	
==>ap { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5864	5976	
==>ap { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5864	5976	
==>ap { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][$i] }, 0..@arrays.end <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17865	17990	
==>proto;

    unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach m <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1254	1374	
==>);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ft <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1221	1341	
==>);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ft <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3433	3564	
==>~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3433	3564	
==>~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9150	9281	
==>*)/;        # _+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBuil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14692	14792	
==>pply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14692	14792	
==>pply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14692	14792	
==>pply(p6_var('&*END')); }
}
p6_initialize();

sub p6_initialize_late {
    { local $SIG{__WARN__} = su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	171	274	
==>the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	171	274	
==>the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	171	274	
==>the end.
    # This is because *%slurpy_hashes have to be processed before.
    my (@args, @slurpy_array <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	818	949	
==>'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	818	949	
==>'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	458	554	
==>t surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security's 
RC4(t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	458	554	
==>t surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security's 
RC4(t <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20067	20150	
==>_eq(C,Ci), !.
rm(class_pos(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_pos(X <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36499	36740	
==>' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = sh <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2145	2253	
==>chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2123	2231	
==>chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5513	5608	
==>tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5513	5608	
==>tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7037	7132	
==>tests (one by default), giving an optional
C<$reason> for skipping them.

=item B<skip_all()>

S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22174	22276	
==>= map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22174	22276	
==>= map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22174	22276	
==>= map{p6_to_s($_)} @xx;
    exec @xx;
};
# system - see op1
MULTI SUB chmod ($xx0,@xxa) {chmod(p6_to_n( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1906	2058	
==>.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1906	2058	
==>.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" a <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	823	946	
==>( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessors( qw[files alterna <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25053	25148	
==>rms and conditions of the GPL
cover the whole combination.  As a special exception, the copyrigh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25053	25148	
==>rms and conditions of the GPL
cover the whole combination.  As a special exception, the copyrigh <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31221	31335	
==>subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35771	35885	
==>subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34989	35103	
==>subset of the original's tuples, and it works like Perl's
standard C<grep> operator; that subset is those for which <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	216	328	
==>t but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	216	328	
==>t but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11623	11725	
==>$args{stdin}) {
	# so we don't try to put literal newlines and crs onto the
	# command line.
	$args{std <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2986	3084	
==>new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2986	3084	
==>new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3750	3853	
==>t::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3750	3853	
==>t::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3750	3853	
==>t::reduce(Code $code, *@array) is primitive {
  die "&reduce needs a Code as first argument!" unless $co <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1681	1803	
==>(
        %$realclean, 
        FILES => join(' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	494	594	
==>q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	494	594	
==>q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12650	12798	
==>ore( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12650	12798	
==>ore( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12650	12798	
==>ore( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) = @_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9953	10080	
==>is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9953	10080	
==>is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9953	10080	
==>is_a' => method () {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 if ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2126	2223	
==>{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->dete <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1236	1329	
==>{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->dete <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3497	3599	
==>val does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3497	3599	
==>val does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3497	3599	
==>val does not work under PIL2JS.";
  undef;
}

# Stub.
method perl(Any $self:) { ".perl not yet implemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3429	3546	
==>ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3429	3546	
==>ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3429	3546	
==>ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefault <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4519	4606	
==>]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4519	4606	
==>]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4519	4606	
==>]->expand().','.$_[0]{'pRHS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2224	2323	
==>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2224	2323	
==>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2224	2323	
==>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1569	1706	
==>keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1569	1706	
==>keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1569	1706	
==>keys.length == 0) PIL2JS.die("No keys given to &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5600	5712	
==>equired { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5600	5712	
==>equired { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5600	5712	
==>equired { $_[0]{required} }
    sub optional { ! $_[0]{required} }
    sub slurpy   { $_[0]{slurpy} }
    sub typ <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	218	323	
==>year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	218	323	
==>year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5305	5391	
==>f_rule('expr',mk_operator_precedence_parser($ws,$ops,$tok));
sub def_operator {
  my($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8819	8969	
==>n => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8819	8969	
==>n => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8819	8969	
==>n => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.key', '$.value <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1960	2090	
==>map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1960	2090	
==>map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[ <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	58	154	
==>-----------
# This script converts p5 source to p6. Currently,
# only regexp matching and substit <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6283	6443	
==>q->new(
            Param->new('$n'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11503	11637	
==>cname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connecte <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11503	11637	
==>cname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connecte <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19282	19405	
==>.\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connections, we save lots of bandwidth by prin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1360	1467	
==>nsity;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %par <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1360	1467	
==>nsity;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %par <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3628	3734	
==>} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3628	3734	
==>} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7512	7621	
==>primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7512	7621	
==>primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7512	7621	
==>primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4748	4865	
==>self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4748	4865	
==>self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a sl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4748	4865	
==>self->name;

    # If we're a name-only arg, skip as_js2.
    return "" if $self->{tpParam}{isNamed};

    # It's a sl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3814	3920	
==>ds a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3814	3920	
==>ds a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3814	3920	
==>ds a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  die "Can't use an unar <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8158	8278	
==>ld the initrd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      - <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6974	7071	
==>COMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP sta <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6974	7071	
==>COMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP sta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	349	483	
==>od diag ( Str $message is copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6859	6963	
==>we assume that module intentionally doesn't exist,
        # and so skip to the next candidate module nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6859	6963	
==>we assume that module intentionally doesn't exist,
        # and so skip to the next candidate module nam <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4902	5036	
==>ry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entr <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5366	5500	
==>ry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2734	2835	
==>ckage Regexp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($clas <==
3	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	364	465	
==>n extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new <==
3	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	364	465	
==>n extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4152	4280	
==>NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4152	4280	
==>NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4152	4280	
==>NOTE:
## code in this section has special cases within it to deal with 
## meta-circularity issues and other such ugliness 

## i <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2900	2999	
==>.join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2900	2999	
==>.join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21010	21106	
==>, B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	43	147	
==>mmar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	43	147	
==>mmar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'sta <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11672	11822	
==>'.');
  });

  # backslash
  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21084	21174	
==>tgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, Fr <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21084	21174	
==>tgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, Fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1589	1706	
==>ture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special cas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1589	1706	
==>ture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special cas <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	993	1105	
==>Score {
   my $script = shift;
   open(FF, $script) or die "error: open '$script'";
   my $golf = 0;
   while (<F <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24002	24093	
==>that they
use a compile-time macro-based approach to substitute the user's preferred
languag <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24002	24093	
==>that they
use a compile-time macro-based approach to substitute the user's preferred
languag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5043	5185	
==>s $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5043	5185	
==>s $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5043	5185	
==>s $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role-> <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1818	1940	
==>-> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pugs::Internals::log_base($x,$base);
 }

sub Pugs::Interna <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26515	26610	
==>inated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's h <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31067	31162	
==>inated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's h <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36447	36544	
==>te others.  The sequence in which any two source relations are
combined is inconsequential.  A tri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40996	41093	
==>te others.  The sequence in which any two source relations are
combined is inconsequential.  A tri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40610	40707	
==>te others.  The sequence in which any two source relations are
combined is inconsequential.  A tri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	132	261	
==>types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	132	261	
==>types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	132	261	
==>types } @{ $_[0] } }

  sub matches {
    my ($self, $want) = @_;
    for($self->all_types) {
      return 1 == 1 if $_->matches($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2269	2405	
==>mp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2269	2405	
==>mp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2269	2405	
==>mp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if ( $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15418	15544	
==>asses) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15418	15544	
==>asses) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15418	15544	
==>asses) {
            my $method_table = ::opaque_instance_attr($class => $method_table_name);
            return $method_table- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	425	525	
==>re
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	425	525	
==>re
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	425	525	
==>re
# * Added 'default' parameter hook
# * Added required/optional parameters
# * Param 'type' is a cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2792	2898	
==>Any, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2792	2898	
==>Any, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2792	2898	
==>Any, retval]
    ).FETCH())
      $jsname = backup_container;
      $jsname.STORE(new PIL2JS.Box.Constant(b <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	466	613	
==>$/ {
            @stack.push($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @stack.pop <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1534	1667	
==>uery_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_k <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1534	1667	
==>uery_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_k <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4610	4746	
==>> { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5263	5398	
==>>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5829	5955	
==>mitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5829	5955	
==>mitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5829	5955	
==>mitive is rw {
  my $maxlen = max map { +$_ }, @arrays;  # XXX wanting hyperops
  map {
    my $i := $_;
    map { @arrays[$_][ <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1099	1209	
==>sure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18488	18582	
==>results by having a human being write out
that text themselves.

What Locale::KeyedText does is <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18488	18582	
==>results by having a human being write out
that text themselves.

What Locale::KeyedText does is <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13932	14029	
==>ue (a string).  If a header field is multi-valued, then the
routine is called once for each value. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13932	14029	
==>ue (a string).  If a header field is multi-valued, then the
routine is called once for each value. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19589	19681	
==>ar> nodes when inside character classes.  Fixed.
(Mike Lambert)

Non-grouping parentheses wer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4962	5092	
==>. ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is boun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4962	5092	
==>. ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is boun <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4962	5092	
==>. ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so that $?PACKAGE is boun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9919	10063	
==>lems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9919	10063	
==>lems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9919	10063	
==>lems = $elems - slice isa $slice";
            my @items = $slice->unboxed->items;
            if ( $elems < $slice_size ) {
                my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2449	2550	
==>>STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2449	2550	
==>>STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2449	2550	
==>>STORE('::Role'       => $::Role);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3875	4033	
==>cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3875	4033	
==>cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role rea <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3875	4033	
==>cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

role rea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29918	30077	
==>t;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascendant <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1565	1674	
==>x';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_terms wit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1565	1674	
==>x';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_terms wit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18840	19033	
==>'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19119	19312	
==>'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capt <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19322	19418	
==>rding, and documented the problem with using F<SUPER::>
inside F<MyClass::__object__>.

=item Bug <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	13064	13175	
==>open(self) }

    method trans (Pair *@intable) is primitive is safe {
        # Motto: If in doubt use brute fo <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21397	21490	
==>ld easily port
to alternative relational database engines with minimal effort.

This might see <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21397	21490	
==>ld easily port
to alternative relational database engines with minimal effort.

This might see <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9243	9340	
==>lues ; Code *&expression --> Scalar )
 multi  List::reduce (Code $expression ; *@values --> Scalar <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	110	202	
==>thoden mit einem Argument aufrufen
$welt.hallo "Mike";
hallo $welt: "Mike";
hallo($welt: "Mik <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1883	1976	
==>port anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|COD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1883	1976	
==>port anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|COD <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1883	1976	
==>port anon-role here
    if (!defined($body) && ref($full_name) && ref($full_name) =~ /HASH|COD <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/test.pl	10	114	
==>sd
$a = "a#" ~ foo("test"); # test
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2230	2328	
==>odes in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In s <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2230	2328	
==>odes in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In s <==
3	/Users/nnunley/pugs/util/config_h.pl	1321	1431	
==>rn () |])
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6349	6448	
==>t return until the start of the rule, which unsets the flag before returning.

- this can also be us <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6143	6241	
==>t return until the start of the rule, which unsets the flag before returning.
- this can also be us <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3802	3938	
==>~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3802	3938	
==>~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2391	2517	
==>if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2391	2517	
==>if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2391	2517	
==>if(!hash.exists(key))
          hash.add_pair(new PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	213	328	
==>rimitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	213	328	
==>rimitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	213	328	
==>rimitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root::m_(%mods, Str $re, Str $qo, Str $qc) is primitive { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	113	207	
==>323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	113	207	
==>323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	113	207	
==>323846264338327950288419716939937510 }

sub JS::Root::atan (Num $y, Num $x?) is primitive {
  d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16431	16613	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16710	16892	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1646	1751	
==>de        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1646	1751	
==>de        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->read <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1646	1751	
==>de        => $cfg{prelude});
command_conf(output         => $cfg{output});

while(defined($_ = $term->read <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2661	2758	
==>L::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2661	2758	
==>L::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2661	2758	
==>L::name_mangle($self->name),
        PIL::name_mangle($self->name),
        PIL::name_mangle($self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5718	5971	
==>macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5718	5971	
==>macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5718	5971	
==>macro($_[0]{'pSubName'},
                                        $_[0]{'pSubParams'},
                                        $body,
                                        'macro',
                                        'Sub');
    if($_[0]{'pSubType'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9074	9175	
==>:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9074	9175	
==>:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9074	9175	
==>:: ::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39957	40083	
==>class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39957	40083	
==>class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39957	40083	
==>class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3537	3694	
==>], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3537	3694	
==>], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = subs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3537	3694	
==>], ());
      } else {
        my $from = @a[0].from;
        my $to   = $offset -1; # @a[-1].to; # XXX - .to is incorrect - see above
        my $str  = subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1793	1941	
==>o ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set ev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1793	1941	
==>o ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set ev <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1793	1941	
==>o ::Class 
        # in psyche.pl, so we dont want to
        # overwrite it here
        unless $meta_obj == $::Class; 
}

# now make sure we set ev <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22849	22958	
==>class ((opaque $self:)) returns opaque 
    ($self: class))

=cut

$::Class->send('add_method' => (
    # meth <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6905	6999	
==>t().insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblin <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6905	6999	
==>t().insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblin <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15176	15272	
==>ered
"root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15176	15272	
==>ered
"root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	262	433	
==>ss object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	262	433	
==>ss object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	262	433	
==>ss object is an instance of the Class class >
        \$::Class,
        (
            '@:MRO'              => [],
            '@:subclasses'       => [],
            '@:su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	233	372	
==>);  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' & <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	119	251	
==>);  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' & <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	119	251	
==>);  # peek_our ); ???

sub alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' & <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5932	6064	
==>$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5932	6064	
==>$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5932	6064	
==>$self->isa("PIL::PSub") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2224	2365	
==>lit /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2224	2365	
==>lit /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2224	2365	
==>lit /\./, $_) . ".js" } qw<
          Perl6.MetaModel
          Perl6.Attribute
          Perl6.Method
          Perl6.MultiMethod
          P <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1356	1466	
==>($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1561	1671	
==>($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1622	1732	
==>($_[0]);

        while (defined $class) {
            my $method = ::opaque_instance_attrs($class)->{'%:method <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2587	2735	
==>infix',
    } );
    $cat->add_op( {
        name => '-',
        block => sub {},
        assoc => 'left',
        precedence => 'equal',
        ot <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2651	2784	
==>" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2651	2784	
==>" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*qua <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1022	1213	
==>het}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{sig <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14810	14902	
==>main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14810	14902	
==>main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10389	10534	
==>cks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10389	10534	
==>cks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	408	533	
==>use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9616	9801	
==>0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9616	9801	
==>0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9616	9801	
==>0];
                        $self->store( $pair->key, $pair->value );
                        return $self;
                    }
                    warn "Don't know how to store @param <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	857	971	
==>aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	857	971	
==>aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	857	971	
==>aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PIL2JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3114	3201	
==>itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3114	3201	
==>itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::S <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3461	3548	
==>itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

package Data::Bind::S <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7148	7258	
==>split   safe   (Str: Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, Int)\ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10901	10997	
==>a::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10901	10997	
==>a::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2006	2140	
==>bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2441	2575	
==>bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2878	3012	
==>bool  => 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
} <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	472	609	
==>e;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, [ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	472	609	
==>e;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, [ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10542	10640	
==>code_args .= "'\$.name'=>$namestr," if $name;
    $code_args .= "'\$.params'=>$code_params,";
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	674	777	
==>tring versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	674	777	
==>tring versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	674	777	
==>tring versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi sub infix:<^..>   ($x0,$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9602	9724	
==>ing of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13079	13201	
==>ing of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12351	12473	
==>ing of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation."
        if !( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22604	22775	
==>), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method class (opaque $self:) returns opa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28157	28302	
==>d('add_method' => (
    # method label
        symbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	844	954	
==>D_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	844	954	
==>D_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	844	954	
==>D_VARS;

# We predeclare all lexicals, to proper support
#   { my $a; sub foo { $a++ } }
# and $OUTER:: and $CA <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2591	2716	
==>g->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2591	2716	
==>g->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return su <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	17905	18008	
==>un => ide("snd"),
	param => $pair,
);

# the polymorphic fst function takes any pair and returns it's fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15361	15531	
==>s' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15361	15531	
==>s' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15361	15531	
==>s' => sub  { 
                my $array = shift; 
                $array = $array->clone;
                my $shifted = 0;
                my $popped = $array->elems->unbo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18859	18992	
==>D = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18859	18992	
==>D = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18859	18992	
==>D = 'class::can';
        goto &Dispatchable::AUTOLOAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $A <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	760	870	
==>chmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchm <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	760	870	
==>chmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchm <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	605	719	
==>de {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "In <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	605	719	
==>de {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5114	5228	
==>ft;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5114	5228	
==>ft;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5114	5228	
==>ft;
    my $i = shift;
    my $pos = Perl6::Value::numify( $self->{slice}->fetch( $i ) );
    #warn "SLICE FETCH: a <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3560	3684	
==>nes this as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@va <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5191	5287	
==>ue
of success or failure

=item data

The C<data> method returns a hash reference representing th <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5191	5287	
==>ue
of success or failure

=item data

The C<data> method returns a hash reference representing th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	69	189	
==>basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	74	194	
==>basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	74	194	
==>basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17470	17571	
==>( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17470	17571	
==>( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17470	17571	
==>( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_from_a( Perl6::Value: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6106	6237	
==>sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $progr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6106	6237	
==>sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $progr <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	95	197	
==>cntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_retrieve freeze>;
use Digest::MD5 qw<md5 <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17758	17914	
==>ile !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1678	1776	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	571	669	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1284	1382	
==>=item B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=ba <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1050	1142	
==>erl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1050	1142	
==>erl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	74	191	
==>ed by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	74	191	
==>ed by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUB <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	74	191	
==>ed by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUB <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2364	2476	
==>";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_fil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2581	2693	
==>";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_fil <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	20	119	
==>ent for the old BEGIN preamble which heads (or
# should head) up every core test program to prepare <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	590	714	
==>$path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $f <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	590	714	
==>$path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5082	5174	
==>ince ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_sinc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5082	5174	
==>ince ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_sinc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	403	509	
==>uble quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTM <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	403	509	
==>uble quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTM <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23489	23643	
==>eop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'blo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23768	23922	
==>eop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'blo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1490	1617	
==>name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir   or retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	551	662	
==>unction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	551	662	
==>unction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var ne <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	551	662	
==>unction (args) {
    var cxt = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9253	9354	
==>e',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9253	9354	
==>e',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->pe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9253	9354	
==>e',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1070	1188	
==>se attributes in all the currently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1070	1188	
==>se attributes in all the currently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1070	1188	
==>se attributes in all the currently live instances
# of Class (which are ::Class, ::Package, ::Object, ::Module and ::Ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12364	12486	
==>.passed ?? 'ok' !! 'not ok';
          my $description = "# TODO $.description";
          return join( ' ', $ok, $.number, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2744	2862	
==>.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2744	2862	
==>.passed ?? 'ok' !! 'not ok';
        my $description = "# TODO $.description";
        return join( ' ', $ok, $.number, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9366	9490	
==>ned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9366	9490	
==>ned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9366	9490	
==>ned before storing
            #my $ary_elems = $ary->elems->unboxed;
            #warn "other.elems = ".$other->elems->unbox <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5009	5121	
==>] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5009	5121	
==>] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29140	29244	
==>. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcnt++), re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1919	2023	
==>- ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1919	2023	
==>- ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1919	2023	
==>- ok - non-finite sub-slice
#   (@a[1..Inf])=(1,2,3,4)     - ok - not a sub-slice
#   ($x,@a[1..Inf])=(1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3689	3793	
==>elf = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumpe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3689	3793	
==>elf = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumpe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3689	3793	
==>elf = shift;
    require Data::Dumper;
    $Data::Dumper::Maxdepth = shift if @_;
    Data::Dumper::Dumpe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9274	9387	
==>{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpPa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9274	9387	
==>{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpPa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9274	9387	
==>{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpParam'}{'isLazy'};
        my $is_named    = $p->{'tpPa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5591	5699	
==>n_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5591	5699	
==>n_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5591	5699	
==>n_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params };

    # $?SUBNAME handled in PIL::PSub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1466	1574	
==>ndef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1466	1574	
==>ndef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1466	1574	
==>ndef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with shape(Any), {undef( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3542	3656	
==>0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation type <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3542	3656	
==>0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation type <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3542	3656	
==>0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8541	8669	
==>ES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8541	8669	
==>ES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSE <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11631	11741	
==>c), "\\c$c");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5401	5599	
==>b { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5401	5599	
==>b { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5401	5599	
==>b { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                while ( defined $key ) {
                    $ary->push( $key );
                    $key = $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7292	7463	
==>( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::Per <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4210	4307	
==>sometimes also 
parameters for block size and so on; see the cipher module's documentation for 
de <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4210	4307	
==>sometimes also 
parameters for block size and so on; see the cipher module's documentation for 
de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	282	396	
==>erator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Oper <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	484	591	
==>fined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () re <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	484	591	
==>fined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36526	36623	
==>nsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41075	41172	
==>nsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned Rela <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40689	40786	
==>nsequential.  A trivial case is where C<@others> is an
empty list, in which case the returned Rela <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	869	980	
==>ts(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	869	980	
==>ts(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	869	980	
==>ts(pair.key)) {
        // The extra new PIL2JS.Box is necessary to make the contents of hashes
        // readw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2904	3022	
==>q 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2904	3022	
==>q 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBU <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2904	3022	
==>q 'is') {
        $self->_parse_superclasses($i, $class);
    }
    warn "the class  is named " . $class->name if $DEBU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21742	21844	
==>_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21742	21844	
==>_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21742	21844	
==>_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12736	12860	
==>xed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12736	12860	
==>xed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12736	12860	
==>xed')->shift },
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4971	5068	
==>m>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4971	5068	
==>m>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited obj <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4971	5068	
==>m>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor });

Per each visited obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3650	3788	
==>[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3650	3788	
==>[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3650	3788	
==>[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i->perl->unboxed;
        $a->slice( $i )
    }
    else {
        $a->fetch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8944	9104	
==>th an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8944	9104	
==>th an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8944	9104	
==>th an "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METH <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5333	5489	
==>d =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguou <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5333	5489	
==>d =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguou <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1488	1631	
==>site_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10254	10395	
==>lsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10254	10395	
==>lsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7051	7141	
==>gs::Compiler::Rule->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<term1>|<term <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5525	5629	
==>d remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5525	5629	
==>d remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $ch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5832	5934	
==>r->baz' },
    },
);

is($Bar->id, 5, '... $Bar is the fifth id');
is($Bar->class, $Class, '... $Bar re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18892	19017	
==>end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18892	19017	
==>end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18892	19017	
==>end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2249	2342	
==>ope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2249	2342	
==>ope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:| <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2249	2342	
==>ope_declarator:|statement_control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15961	16257	
==>rray->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15961	16257	
==>rray->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15961	16257	
==>rray->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$.key' =>   $popped--, 
                                '$.value' => $array->pop )
                        },
                        c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4121	4246	
==>>{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4121	4246	
==>>{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submeth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4121	4246	
==>>{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body->{submeth <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19904	20006	
==>want something similar but that is more mutable, you can accomplish
that manually using a set of mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24456	24558	
==>want something similar but that is more mutable, you can accomplish
that manually using a set of mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23008	23110	
==>want something similar but that is more mutable, you can accomplish
that manually using a set of mappin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9640	9756	
==>ins_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9640	9756	
==>ins_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	22	133	
==>6 Version
use v6;

sub £to€ { $_ * 1.4656 }

# interpolierter Funktions-Aufruf
say "100£ sind {£to€(100)} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13822	13986	
==>>get('$self');                  
            }
        )
    )
);

=pod

method CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	972	1081	
==>/ intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	972	1081	
==>/ intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1436	1563	
==>$non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2012	2139	
==>$non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6779	6872	
==>) ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    eval <p6ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5590	5741	
==>, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5590	5741	
==>, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5590	5741	
==>, h) {
            return new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14789	14915	
==>e $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14789	14915	
==>e $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14789	14915	
==>e $s;
    return $s;
}

package Perl6::Value::Num;

use constant Inf => 100**100**100;
use constant NaN => Inf / Inf;

sub to_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1837	1957	
==>t implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1837	1957	
==>t implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1837	1957	
==>t implemented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	518	624	
==>and refer to it via the closure, then things don\'t work right
      // --the order of output can become al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	518	624	
==>and refer to it via the closure, then things don\'t work right
      // --the order of output can become al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	518	624	
==>and refer to it via the closure, then things don\'t work right
      // --the order of output can become al <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12687	12821	
==>t/$_";
        }
      }
    };

  step
    descr  => "Copying shared libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      -r " <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2265	2362	
==>iest one that allows 
for continuous ciphering.

Both of these functions return a closure.  Call t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2265	2362	
==>iest one that allows 
for continuous ciphering.

Both of these functions return a closure.  Call t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26221	26321	
==>as a subset of the original's attributes; that subset is the same as
those attribute names in the arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30773	30873	
==>as a subset of the original's attributes; that subset is the same as
those attribute names in the arg <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29766	29866	
==>as a subset of the original's attributes; that subset is the same as
those attribute names in the arg <==
3	/Users/nnunley/pugs/util/claim_drift.pl	773	883	
==>>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7884	7984	
==>able file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive po <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7884	7984	
==>able file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive po <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	908	1031	
==>t accidentally load old or
    # different versions of modules.
    # This is not enforced yet, but will be some time in the <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1405	1503	
==>ject {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1405	1503	
==>ject {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23302	23398	
==>monk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights res <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41226	41322	
==>monk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights res <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37252	37348	
==>monk.org>

=head1 COPYRIGHT

Copyright (c) 2004 Jeff Pinyan F<japhy@perlmonk.org>. All rights res <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9029	9214	
==>capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5389	5574	
==>capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6238	6423	
==>capture} } ) {
                        next unless ref($_) eq 'HASH';
                        # XXX - if there are multiple definitions, it is an array
                        my $name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14450	14545	
==>ray->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14450	14545	
==>ray->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14450	14545	
==>ray->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL::Run::Root <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12879	12972	
==>ULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12879	12972	
==>ULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12879	12972	
==>ULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6999	7113	
==>method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6999	7113	
==>method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6999	7113	
==>method(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:authority') = shift if @_;        
    :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9683	9785	
==>special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9683	9785	
==>special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9683	9785	
==>special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20346	20442	
==>data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24898	24994	
==>data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23487	23586	
==>e rather than mutable, this property and/or
same-named accessor method can be used to see if a Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28039	28138	
==>e rather than mutable, this property and/or
same-named accessor method can be used to see if a Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26843	26942	
==>e rather than mutable, this property and/or
same-named accessor method can be used to see if a Relat <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	301	403	
==>rt() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there ar <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	301	403	
==>rt() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1013	1125	
==>val($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $ms <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1013	1125	
==>val($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $ms <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1013	1125	
==>val($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub dies_ok ($c, $ms <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3647	3782	
==>->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3647	3782	
==>->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3647	3782	
==>->class == $::EigenClass ||
               $self->class        == $::EigenClass;
        ::opaque_instance_attr($self        => '$:name' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3317	3418	
==>:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3317	3418	
==>:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3317	3418	
==>:<,> has to be is rw, too (think ($a, undef, $b) = (1,2,3))

# TODO - store(List) actually means store <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5077	5184	
==>$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delet <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5077	5184	
==>$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delet <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	329	435	
==>b6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2515	2673	
==>ist' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2720	2878	
==>ist' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3792	3950	
==>ist' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            while (my $super = $current->supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6370	6534	
==>( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6370	6534	
==>( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is us <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6370	6534	
==>( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell() is us <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4247	4377	
==>XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4247	4377	
==>XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5281	5389	
==>path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END_DIE

    my $obj = $admi <==
3	/Users/nnunley/pugs/util/config_h.pl	291	410	
==>hc')
  BASEDIR - Base directory of the Pugs installation 
              (defaults to current directory)

=cut

my ($ghc_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2681	2785	
==>hift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Functional $ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2681	2785	
==>hift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Functional $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10358	10461	
==>c. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tests of Set.

= <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10358	10461	
==>c. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tests of Set.

= <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2863	2964	
==>_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previou <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2863	2964	
==>_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previou <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	682	771	
==>ts = $strap->analyze_fh($name, $test_filehandle);
  my %results = $strap->analyze_file($te <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	378	515	
==>a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	378	515	
==>a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	378	515	
==>a", 1, "b", 2);
      if(!(pair instanceof PIL2JS.Pair)) {
        // pair is in fact the key; extract the value.
        i++;
        var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1544	1658	
==>id) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1544	1658	
==>id) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1544	1658	
==>id) {
      cc(new PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8028	8173	
==>$::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8028	8173	
==>$::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8028	8173	
==>$::CLASS }, 
        },
    }
};

class1 'Rat'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12282	12393	
==>@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12282	12393	
==>@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Ha <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12282	12393	
==>@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Ha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2732	2847	
==>{
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2732	2847	
==>{
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2732	2847	
==>{
    sprintf "%s = backup_%s", name_mangle($_), name_mangle($_);
  } @vars_to_restore;

  return sprintf <<EOF, $na <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9822	9926	
==>less $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9822	9926	
==>less $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $chil <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10150	10252	
==>y_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	878	981	
==>nce!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	878	981	
==>nce!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	878	981	
==>nce!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Ref $self: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2085	2297	
==>pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2085	2297	
==>pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2085	2297	
==>pp = $_; # ->clone; XXX
                # warn "pp = $pp ". $pp->str->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1986	2092	
==>l (beginning of line in single-line mode)
  $self->add_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	43	142	
==>ntal implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'ite <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	43	142	
==>ntal implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'ite <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6828	6986	
==>lems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstar <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6828	6986	
==>lems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstar <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10507	10605	
==>mples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=h <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10507	10605	
==>mples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	652	743	
==>nknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6624	6808	
==>nt to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6624	6808	
==>nt to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        co <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31615	31764	
==>new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e->get('$counter') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3980	4091	
==>y $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3980	4091	
==>y $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3980	4091	
==>y $eval;
for @subs -> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "fu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3491	3624	
==>_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    el <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3491	3624	
==>_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    el <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5927	6029	
==>y;
  $key = "";
  $whitespacePosition = $position;
  push @bsrStack, "bsr_token_match_3";
  goto token_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35267	35368	
==>dentical
to C<join> except that this method will fail if any of its source Relations
have attributes i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39817	39918	
==>dentical
to C<join> except that this method will fail if any of its source Relations
have attributes i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39377	39478	
==>dentical
to C<join> except that this method will fail if any of its source Relations
have attributes i <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2574	2693	
==>umflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2574	2693	
==>umflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	986	1082	
==><Type>.  Perhaps this module should be called
something else like C<t>, or maybe they are one and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2362	2461	
==>n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2362	2461	
==>n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2362	2461	
==>n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $self->{pArgs}->[0]->unwrap->{pLit}- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1602	1710	
==>{
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute name <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2250	2358	
==>{
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1341	1448	
==>hile ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6729	6860	
==>r in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6729	6860	
==>r in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6729	6860	
==>r in /$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(f <==
3	/Users/nnunley/pugs/misc/Blondie/example.pl	764	867	
==>3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

print "C code:\n$res\n";

#print "Compiled: " . $pretty->stri <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5699	5818	
==>complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions --- <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5699	5818	
==>complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions --- <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6071	6181	
==>fierPart {  # see 7.6
      <IdentifierStart>
    | <UnicodeCombiningMark>
    | <UnicodeDigit>
    | <UnicodeC <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1179	1282	
==>irst test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
} <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1179	1282	
==>irst test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1259	1362	
==>irst test
$tb_output.output();

sub plan ( Int $tests ) is export
{
    $Test.plan( tests => $tests );
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7019	7137	
==>COROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7019	7137	
==>COROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7019	7137	
==>COROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL:: <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3048	3204	
==>qq[ $^X $preinst ] )                and die $?;
            }
        
            print "Installing code...\n";
            system( qq[cp -R $Builddir/$path <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1830	1956	
==>}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defi <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1830	1956	
==>}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defi <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1887	2136	
==>en rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        e <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1887	2136	
==>en rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1702	1828	
==>fter whitespace means '<' (default)
                # without whitespace means '<str>'
                #print "checking angle q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	938	1133	
==>d($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	938	1133	
==>d($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	938	1133	
==>d($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnodes,PIL::Run::EvalX::subnodes_of($n));
            }
        } elsif(ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5589	5721	
==>or => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5589	5721	
==>or => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5589	5721	
==>or => \&noio });

    sub noio {
        my($obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $nam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23961	24101	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24240	24380	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3747	3870	
==>.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3747	3870	
==>.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  packa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3747	3870	
==>.FETCH().push(%s);\n",
        PIL::name_mangle $self->name;
    }

    return $js;
  }

  sub unwrap { $_[0] }
}

{
  packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11472	11657	
==>thod eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11472	11657	
==>thod eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11472	11657	
==>thod eq 'bit';
                return $::CLASS 
                    if $method eq 'ref';
                if ( $method eq 'perl' || $method eq 'str' ) {
                    return Str->ne <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6818	6928	
==>and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10327	10421	
==>=> $universe )`

Creates a recurrence set.

The complementary functions are emulated using iter <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10327	10421	
==>=> $universe )`

Creates a recurrence set.

The complementary functions are emulated using iter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3493	3621	
==>{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"aut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3493	3621	
==>{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"aut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3493	3621	
==>{$sigil} || die "bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"aut <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2057	2165	
==>path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $vol <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2057	2165	
==>path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $vol <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2372	2489	
==>st be a string type";    
    return str->new(
        CORE::join $delimiter->to_native => 
        map { $_->to_str-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13569	13663	
==>.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be expande <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13569	13663	
==>.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be expande <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48261	48375	
==>);
            }
        )
    )
);

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52192	52306	
==>);
            }
        )
    )
);

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4626	4736	
==>rgs = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4626	4736	
==>rgs = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4626	4736	
==>rgs = PIL2JS.delete_namedpair_from_args(args, $pairname);
}
EOF
  }

  sub as_js2 {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10948	11064	
==>e};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10948	11064	
==>e};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_ta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10948	11064	
==>e};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]}) 
                if exists $method_ta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4196	4311	
==>arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	u <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4196	4311	
==>arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	u <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4786	4901	
==>arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_arg;
	u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2344	2451	
==>ocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_mes <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2344	2451	
==>ocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_mes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2327	2449	
==>, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2467	2589	
==>, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Ru <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	136	234	
==>Scalar::Util 'blessed';
use Carp 'confess';

use base 'type::equivalence';

# need to load this her <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1534	1643	
==>$klass) = @_;
    return $self->[1]->store($klass);
}

sub get_attr {
    my ($self, $name) = @_;
    (blessed <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1694	1793	
==>root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

m <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1694	1793	
==>root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7068	7254	
==>tch = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6831	7008	
==>tch = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# e <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2033	2138	
==>unsuitable for just about any use other than Pugs development.

An user-supplied regular expression may le <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9726	9822	
==>$object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The ar <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9726	9822	
==>$object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2388	2545	
==>"
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2388	2545	
==>"
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2388	2545	
==>"
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31217	31383	
==>ush @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31217	31383	
==>ush @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31217	31383	
==>ush @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_length += $i->elems;
                }
                else { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16326	16435	
==>g;

    # bison says 'parse error' instead of 'syntax error',
    # various yaccs may or may not capitalize 's <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2	95	
==>ckage Pugs::Grammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode chara <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2	95	
==>ckage Pugs::Grammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode chara <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26724	26842	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27003	27121	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1613	1754	
==>ss in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1613	1754	
==>ss in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1537	1652	
==>ode->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1537	1652	
==>ode->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1537	1652	
==>ode->do() - @ret should be a boxed Array

# TODO - add want() data
# TODO - add caller() data

# TODO - junctive typ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20008	20144	
==>'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16429	16565	
==>'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5746	5830	
==>m's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Confi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5746	5830	
==>m's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2252	2404	
==>pl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2252	2404	
==>pl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2252	2404	
==>pl {
    my $verbose = 0;
    my $eval_p6 = sub {
        my($p6)=@_;
        my $pil = pil_from_p6($p6);
        print $pil,"\n" if $verbose;
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13311	13426	
==>d problems loading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{path_sep};
	}

	my @keys = grep {exis <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7984	8084	
==>validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7984	8084	
==>validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4243	4341	
==>::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4243	4341	
==>::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4243	4341	
==>::Class.meta.add_method('subclasses' => method () {        
    ::opaque_instance_attr($::SELF => ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4873	4984	
==>d remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, i <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4873	4984	
==>d remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3688	3790	
==>gs{dist} = $self->admin->preop;
    }

    my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
    $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19194	19293	
==>e <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never hap <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	167	262	
==>t;
has $.width;

has $!parent;
has @!children;

## --------------------------------------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	167	262	
==>t;
has $.width;

has $!parent;
has @!children;

## --------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5657	5804	
==>n};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5657	5804	
==>n};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2140	2259	
==>nt? (embedded latex)
	    if ($file[0] eq '!') {
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25217	25351	
==>en => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9115	9217	
==>ers }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9115	9217	
==>ers }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!ch <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20387	20482	
==>rface of Relation is entirely object-oriented; you use it by
creating objects from its member cl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24939	25034	
==>rface of Relation is entirely object-oriented; you use it by
creating objects from its member cl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1282	1375	
==>returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1282	1375	
==>returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method me <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	7396	7557	
==>)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7018	7132	
==>[$off+$i], see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3050	3176	
==>ename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3050	3176	
==>ename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3050	3176	
==>ename = $2;
    my $m = p6_mangle($name);
    my $mn = $m; $mn =~ s/\\/\\\\/g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	617	736	
==>"Set-Cookie: " ~ $_ ~ "=" ~ %Cookies{$_} ~ "; expires=Sat, 01-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	290	372	
==>rl6-Bible/lib/Perl6/Bible/E05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6361	6469	
==>lf->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6361	6469	
==>lf->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing [] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6361	6469	
==>lf->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing [] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1971	2061	
==>',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('L <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1971	2061	
==>',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('L <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1971	2061	
==>',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my(@a)=@_; p6_new('L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1954	2044	
==>)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1954	2044	
==>)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1954	2044	
==>)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {my( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	754	874	
==>ther} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( @{$self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8777	8867	
==>mmar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2602	2692	
==>mmar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7109	7225	
==>ary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7109	7225	
==>ary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3210	3344	
==>::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23425	23537	
==>nctionBody :words {  # see clause 13
      <SourceElements>
}
rule Program :words {  # see clause 14
      <Sourc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3929	4038	
==>::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8033	8196	
==>uments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8033	8196	
==>uments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTI <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8033	8196	
==>uments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3387	3481	
==>ted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3387	3481	
==>ted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%heade <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3510	3600	
==>operly installed C<Pugs::Compiler::Rule> module would prevent the Perl 6 compiler
from boot <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2092	2195	
==>_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2092	2195	
==>_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	3712	3813	
==>ns or return false values to signal error conditions
    # in library code. Do either! Let your caller <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3288	3384	
==>opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=he <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3288	3384	
==>opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17340	17537	
==>, 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17340	17537	
==>, 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "M <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	17340	17537	
==>, 'AUTOLOAD', %opts)) {
                    $class->STORE('$AUTOLOAD' => $label);
                }
            }            
            
            (defined $method)
                || confess "M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3662	3759	
==>(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3662	3759	
==>(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3662	3759	
==>(@array, $cmp);
}

method reduce(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4064	4169	
==>unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4064	4169	
==>unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4064	4169	
==>unless defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%p <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	118	223	
==>bang = sprintf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2316	2452	
==>h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2316	2452	
==>h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2316	2452	
==>h );
    return $h;
};

MULTI SUB coerce:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5121	5237	
==>"x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = jo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5121	5237	
==>"x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = jo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5121	5237	
==>"x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = jo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	838	944	
==>$inv);
    $self->{env}->set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->cl <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1150	1247	
==>so very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a me <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1150	1247	
==>so very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a me <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	272	375	
==>ns = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command li <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	233	336	
==>ns = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	233	336	
==>ns = 1;
	eval {require Getopt::Long;import Getopt::Long};
	return if $@;

	##print "* reading command li <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14831	14946	
==>rl);
	    }
	}

	# Build up the name of the executable file from the name of
	# the command.

	if ($Perl !~ /\Q$exe\ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3996	4084	
==>r_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3996	4084	
==>r_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4946	5071	
==>bel || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4946	5071	
==>bel || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4946	5071	
==>bel || 'undef') . ")";   
    # NOTE: special case
    # if we are storing CODE in the package, we 
    # need to wrap it so t <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14418	14522	
==>tor.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14418	14522	
==>tor.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12770	12858	
==>Name,C), !.
p6_named_character_tail([],Close)    --> [Close], !.
p6_named_character_tail( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1961	2088	
==>new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1961	2088	
==>new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1961	2088	
==>new { bless { 'id' => ++$Perl6::Cell::_id }, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	158	267	
==>-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	158	267	
==>-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	158	267	
==>-08-23
# - fixed Perl6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13241	13342	
==>get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13241	13342	
==>get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13241	13342	
==>get the class name, from object
#    my $class = $Perl6::Class::ALL_CLASSES{$class_name};  # ** get th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6181	6283	
==>x) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6181	6283	
==>x) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
M <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6181	6283	
==>x) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
M <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3686	3784	
==>X

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "intern <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3686	3784	
==>X

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "intern <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3064	3159	
==>:$base --> Num )
 {
     Pugs::Internals::arc_units(Pugs::Internals::'~$func~'($x), $base);
 }
' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2829	2923	
==>subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2829	2923	
==>subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3176	3270	
==>subroutine call argument passing and binding, in Perl 5.

=head1 AUTHORS

Chia-liang Kao <clkao <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9647	9787	
==>rl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9647	9787	
==>rl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9647	9787	
==>rl6::Value::stringify( $self->value->perl );
                Str->new( '$.unboxed' => "($key => $value)" ) 
              },
            'unb <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5877	6022	
==>f ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat ran <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1461	1565	
==>method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my in <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1461	1565	
==>method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my in <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1426	1526	
==>um=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3439	3609	
==>ING unless -d $my_bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### ch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15963	16055	
==>dified> response instead of
the document itself.

=item $h.last_modified

This header indicat <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15963	16055	
==>dified> response instead of
the document itself.

=item $h.last_modified

This header indicat <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4393	4592	
==>$maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies ' <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4857	5056	
==>$maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	817	934	
==>e} . ';' );
    };
    carp "Error in perl 6 parser: '$rule_source' at: '$self->{ast}{tail}'\n" 
        if $self-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1999	2127	
==>"exp 'name' exp 'name2' exp \n" .
        "\t{ \$_[0]->{out}= {fixity => 'ternary', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	814	906	
==>e_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WW <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	814	906	
==>e_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WW <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2370	2474	
==>erl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2370	2474	
==>erl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2370	2474	
==>erl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19846	19977	
==>al with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19846	19977	
==>al with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19846	19977	
==>al with it like this, and we deal
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $l <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7489	7612	
==>> chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(86 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7489	7612	
==>> chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(86 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13323	13433	
==>mp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13323	13433	
==>mp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13323	13433	
==>mp = %{ $_[0] };
    @tmp / 2
}

sub buckets { scalar %{ $_[0] } }

1;
__END__

=head1 NAME

Perl6::Container:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6166	6275	
==>Script: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6166	6275	
==>Script: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6166	6275	
==>Script: $@" if $@;
  $ct->destroy;
}

sub jsbin_hack {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by l <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	312	429	
==>export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	312	429	
==>export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6762	6851	
==>cannot be placeholder" if $y->isa("Blondie::TypeSafe::Type::Placeholder");
			if (!$x->isa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6270	6384	
==>$match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6282	6396	
==>$match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HA <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2489	2603	
==>?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($ho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2489	2603	
==>?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($ho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	346	435	
==>ULE
*{'grammar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <immediate_statem <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1380	1473	
==>($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1380	1473	
==>($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	702	799	
==>{
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	702	799	
==>{
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10505	10602	
==>ingleton methods ..

is($Bar->another_singleton_test_on_object(), 
   '&Object::another_singleton_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1556	1648	
==>e_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1556	1648	
==>e_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1556	1648	
==>e_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8947	9040	
==>ral(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Pe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2772	2865	
==>ral(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4774	4897	
==>r'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4774	4897	
==>r'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4774	4897	
==>r'}, we'll likely split anyway.

sub p6_mangle {
    my($n)=@_;
    my($sigil,$mn) = sigil_and_rest($n);
    return "${mn}:: <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	3839	3942	
==>ine\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckM <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30085	30178	
==>sh value contains the user-readable message text associated with the
Message; this user string <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30085	30178	
==>sh value contains the user-readable message text associated with the
Message; this user string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15553	15672	
==>}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15553	15672	
==>}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15553	15672	
==>}( @_ )    : undef }  

1;
__END__

# removed uniq, grep - these are just examples

sub _MySub::arity { 1 };
sub _MySub: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1286	1385	
==>along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1286	1385	
==>along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	372	469	
==>luding 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed simila <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	372	469	
==>luding 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed simila <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4948	5061	
==>sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4948	5061	
==>sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4948	5061	
==>sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1781	1883	
==>ie("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1781	1883	
==>ie("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind la <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1781	1883	
==>ie("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = function (n) { PIL2JS.die("Can\'t rebind la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7715	7836	
==>,
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7715	7836	
==>,
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7715	7836	
==>,
            'int' => sub { Int->new( '$.unboxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21069	21162	
==>ly be compiled into .pmc files and shipped with your
distribtution precompiled. This means tha <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21069	21162	
==>ly be compiled into .pmc files and shipped with your
distribtution precompiled. This means tha <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40124	40417	
==>l'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19673	19957	
==>l'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e <==
3	/Users/nnunley/pugs/util/addauthors.pl	1386	1509	
==>s+//;
  s/\s+$//;
  return $_;
}

sub readauthors {
  my $fh = IO::File->new("AUTHORS", "<:utf8");
  my @authors;
  my (%byc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	116	224	
==>rl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	116	224	
==>rl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	116	224	
==>rl6::MetaModel::Parser::Env;
use Perl6::MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1939	2091	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2132	2284	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $ru <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2309	2427	
==>\n$value\n" if $@;
		}
		if ($res ne $valuex) {
		    print "not ok\n  \# Expected: >$valuex<\n  \#      Got: >$res<  f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1563	1676	
==>PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1563	1676	
==>PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1563	1676	
==>PIL2JS.Box.Constant(args[0].uid == args[1].uid));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  } <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1150	1263	
==>.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
} <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1150	1263	
==>.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
} <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	112	212	
==>Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht dann auch das:
my Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3126	3238	
==>g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3126	3238	
==>g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3126	3238	
==>g; $mn =~ s/\'/\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar-> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3539	3664	
==>> $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.inte <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3539	3664	
==>> $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.inte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2732	2858	
==>y {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2732	2858	
==>y {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2732	2858	
==>y {
    local $_;
    my $arity = 0;
    $_->is_required and $arity++ for @{ $_[0] };
    return $arity;
  }
}

{
  package PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4198	4300	
==>_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4198	4300	
==>_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4198	4300	
==>_SUBLIKE;

  return "subreturncc"   if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
  return "blockreturncc" if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13685	13814	
==>->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13685	13814	
==>->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13685	13814	
==>->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15399	15513	
==>eue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOP <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15399	15513	
==>eue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOP <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18941	19050	
==>r> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6309	6392	
==>tf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6309	6392	
==>tf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name)) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6309	6392	
==>tf("PIL2JS.cps2normal(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name)) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	21623	21825	
==>),
            ),
        ),
        in => comb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ), <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2217	2321	
==>Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Boo <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2217	2321	
==>Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Boo <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	332	435	
==>ous class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently def <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	332	435	
==>ous class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently def <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19100	19191	
==>0,F1,B0,B1,E0,E1) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(Re <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2697	2816	
==>April   May      June
               July    August   September October November December>;
method month_name returns St <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2766	2869	
==>lf));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2766	2869	
==>lf));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10035	10210	
==>, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10035	10210	
==>, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	917	1056	
==>args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	917	1056	
==>args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	917	1056	
==>args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.pu <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	769	878	
==>be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NA <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	769	878	
==>be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20507	20611	
==>};
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20507	20611	
==>};
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MAC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20507	20611	
==>};
MACROP5   infix:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MAC <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8511	8605	
==>self:) (symbol $label)) returns method
    ((($self: get_attr (symbol new (%:methods))) fetch ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21726	21825	
==>y their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26278	26377	
==>y their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24938	25037	
==>y their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2154	2263	
==>h my $prog (@progs) {
		my $r = $runtime_class->new;

		my $result;
		
		lives_ok {
			$result = $r->run($prog <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12393	12492	
==>g a digest of the original content.
#
# This makes further dividing of Perl code less troublesome.
s <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12393	12492	
==>g a digest of the original content.
#
# This makes further dividing of Perl code less troublesome.
s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17625	17807	
==>RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14046	14228	
==>RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $re <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2999	3111	
==>$i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2999	3111	
==>$i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	955	1074	
==>a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	955	1074	
==>a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	955	1074	
==>a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toPIL2JSBox(classdef[name]);
        }
        // Finally, cal <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	887	1014	
==>orm>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogg <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	887	1014	
==>orm>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogg <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	74	194	
==>ondie::Reducer/;

use strict;
use warnings;

use Set::Object;

sub new {
    my $class = shift;

    bless {
        seen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35299	35397	
==>this method will fail if any of its source Relations
have attributes in common; it will only accept <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39849	39947	
==>this method will fail if any of its source Relations
have attributes in common; it will only accept <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39409	39507	
==>this method will fail if any of its source Relations
have attributes in common; it will only accept <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16603	16777	
==>or $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20080	20254	
==>or $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19640	19814	
==>or $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5008	5221	
==>set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5008	5221	
==>set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $req <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8727	8839	
==>Digit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	518	628	
==>Build->write;
    } else {
        $self->check_nmake if $args{check_nmake};
        unless ( $self->makemaker_ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15009	15110	
==>ject => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15009	15110	
==>ject => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4855	4953	
==>y faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any lef <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4855	4953	
==>y faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any lef <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	52	133	
==>/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm"
package Module::Install::Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1694	1815	
==>*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1694	1815	
==>*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1694	1815	
==>*@args) is primitive {
  my $code  := pop @args;
  my @array := @args;
  my $arity  = $code.arity;
  # die "Can't use 0-ar <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1371	1489	
==>is Relation is mutable or not;
        # depending on the implementing class, it can default to True or 
        # Fals <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4849	4966	
==>is Relation is mutable or not;
        # depending on the implementing class, it can default to True or
        # Fals <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18880	18974	
==>Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(_Re,_,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	184	281	
==>sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	184	281	
==>sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getopt <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6778	6892	
==>pilrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore2human {
  local $_ = shift;

  $_ eq "jsp <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	64	169	
==>:Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.61';

use strict;

sub WriteAll {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7984	8090	
==>efs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7984	8090	
==>efs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7984	8090	
==>efs";
    *{"PIL::$type\::ISA"}         = [qw<PIL::SubType>];
    *{"PIL::$type\::as_constant"} = *{"PIL::" <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2074	2211	
==>{who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate b <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10406	10522	
==>ubmit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "g <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10406	10522	
==>ubmit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5458	5599	
==>,
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5458	5599	
==>,
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5458	5599	
==>,
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

sub possibly_ccify_many {
  my ($things, $sub) = @_; 
  no warnings "recursion";

  possibl <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4430	4527	
==>AME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'g <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4430	4527	
==>AME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'g <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4472	4568	
==>ince the current version of Pugs does not support OO, methods are
implemented as hash keys to cod <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4472	4568	
==>ince the current version of Pugs does not support OO, methods are
implemented as hash keys to cod <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6222	6325	
==>deEscapeSequence>
}
rule UnicodeLetter {  # see 7.6
      # any character in the Unicode categories "Upp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3397	3510	
==>...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3397	3510	
==>...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically cr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3397	3510	
==>...                     (usually perl5/PIL2JS/libjs/)
  --p6preludepc=/path/to/preludepc.js      (automatically cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19900	20040	
==>re since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19900	20040	
==>re since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19900	20040	
==>re since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            $label = 'DESTROYALL';
            # this is to avoid GC errors d <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11540	11658	
==>>new('pre')->push_content($text));
      
      my $link = {};
      $link->{linkfile} = $linkfile;
      $link->{linkh <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7894	7983	
==>w { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7894	7983	
==>w { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13690	13813	
==>Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enterin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13690	13813	
==>Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enterin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13690	13813	
==>Class
    sub _class_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... enterin <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1550	1655	
==>sed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1550	1655	
==>sed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns B <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22219	22314	
==>M
storage implementation for the L<Relation> library.

I<TODO: REWRITE THE FOLLOWING.>

A relati <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	37	136	
==>rom Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 b <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	38	137	
==>rom Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 b <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	38	137	
==>rom Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publishers, Copyright 2005 b <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1497	1594	
==>sult> object that has a
$.backtrack closure that calls back into the parser.

=cut

our class Pars <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1497	1594	
==>sult> object that has a
$.backtrack closure that calls back into the parser.

=cut

our class Pars <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10318	10456	
==>params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10318	10456	
==>params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scal <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10318	10456	
==>params => sub {
                my ($self, @params) = @_;
                # my $max = ( scalar @params > scalar @{ $self->params } ) ? scal <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3807	3923	
==>:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7284	7400	
==>:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9385	9477	
==></style>

  <script type="text/javascript">//<![CDATA[[
    function toggle_visibility (id) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14391	14512	
==>::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14391	14512	
==>::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14391	14512	
==>::numify {
    my $s = shift;
    $s = $s->fetch if Perl6::Value::p6v_isa( $s, 'Scalar');
    my $tmp;
    eval { $tmp = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7777	8005	
==>tart },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7777	8005	
==>tart },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7777	8005	
==>tart },
        end =>     sub { $end },
        cstart =>  sub { 
            my $tmp = $start; 
            if ( ref( $start ) ) {
                $start = $start->increment; 
            }
            else {
                $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3514	3660	
==>ed)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3514	3660	
==>ed)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3514	3660	
==>ed)
  --testpc=/path/to/test.js                (automatically created)
  --perl5                                  (use perl5, only available in --r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6109	6204	
==>imP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6109	6204	
==>imP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6109	6204	
==>imP6
#MULTI SUB abs ($xx) {...};
MULTI SUB Pugs::Internals::truncate ($xx) {...};
MULTI SUB Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	828	937	
==>g"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	828	937	
==>g"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	828	937	
==>g"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_is ($v,$v2, $msg="", $todo?) {
    my $st = r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3277	3430	
==>ime && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./heade <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3277	3430	
==>ime && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./heade <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	86	176	
==>le;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs::Grammar::Operator;
us <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31062	31155	
==>on,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a gen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35612	35705	
==>on,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a gen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29177	29303	
==>ub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29177	29303	
==>ub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29177	29303	
==>ub new {
    my $class = shift;
    my %param = @_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2058	2186	
==>";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2058	2186	
==>";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2058	2186	
==>";
    } else {
        $self->SUPER::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5692	5809	
==>ray -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5692	5809	
==>ray -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Arr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5692	5809	
==>ray -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Arr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1537	1641	
==>line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($ne <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1537	1641	
==>line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9227	9327	
==>) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9227	9327	
==>) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9227	9327	
==>) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new(Junction => 'none', @xx) };
MUL <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13049	13167	
==>rs) {
		return $prev_generic + Set::Object->new($t_of_param);
	} else {
		return $prev_generic;
	}
}

# the type of the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1762	1868	
==><rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1762	1868	
==><rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4664	4768	
==>t;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4664	4768	
==>t;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4664	4768	
==>t;
  diag $cfg{js};

  my $pid = open2 my($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1276	1388	
==>/ Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1276	1388	
==>/ Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1276	1388	
==>/ Undo our hack.
      JSAN.errorLevel  = old_errorLevel;
      JSAN._exportList = old_exportList;
    }
  })')($ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	961	1097	
==>rs;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	961	1097	
==>rs;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11386	11498	
==>control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1553	1642	
==>RULE
*{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4474	4594	
==>e") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4474	4594	
==>e") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4474	4594	
==>e") {
    unshift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
sub JS::Root::max(Cod <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29544	29643	
==>This method will fail if any of the
named attributes are not tuple-valued attributes, or if any attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34096	34195	
==>This method will fail if any of the
named attributes are not tuple-valued attributes, or if any attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33260	33359	
==>This method will fail if any of the
named attributes are not tuple-valued attributes, or if any attr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14381	14504	
==>res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17272	17370	
==>ile compilers gives you the following benefits:

=over

=item *

Ability to mix many source filteri <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17272	17370	
==>ile compilers gives you the following benefits:

=over

=item *

Ability to mix many source filteri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	77	198	
==>ixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is becau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	77	198	
==>ixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is becau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	77	198	
==>ixup {
    my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is becau <==
3	/Users/nnunley/pugs/util/func_refact.pl	1650	1785	
==>size = keys %$set;
        for my $f (keys %$set) {
            for my $t (@{$nodes->{$f}}) {
                next if $set->{$t} or $ign <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	792	889	
==>eate a store for single elements (Span::Singleton)
    * use binary search instead of linear searc <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	792	889	
==>eate a store for single elements (Span::Singleton)
    * use binary search instead of linear searc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6906	7050	
==>1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0] <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6679	6814	
==>1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0] <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	548	667	
==>al { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5211	5388	
==>) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n->{param}{sub}{bareword} =~ /^v5/ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12847	12943	
==>ue.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok ( <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12905	13001	
==>ue.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	82	180	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spide <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	82	180	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spide <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	82	180	
==>xporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT = qw();

use PIL2JS;
use JavaScript::Spide <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8318	8433	
==>=> "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8318	8433	
==>=> "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8318	8433	
==>=> "PIL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2267	2358	
==>$?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2267	2358	
==>$?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2267	2358	
==>$?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10610	10757	
==>as Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      submethod BUILD (
          $.description,
          $.passed, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1130	1265	
==>as Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed, <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1130	1265	
==>as Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1911	2071	
==>_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1911	2071	
==>_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1911	2071	
==>_top($o->describe())."," }
                $s .= "\n " if %{$o};
                $s .= "},";
                my($from,$to)=($o->from,$o->to);
                $fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1863	1983	
==>]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1863	1983	
==>]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    loca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1863	1983	
==>]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift;
    loca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8595	8715	
==>{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8595	8715	
==>{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	195	297	
==>nt "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print "na <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17150	17282	
==>s;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}", <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17150	17282	
==>s;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}", <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4553	4654	
==>"0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36313	36406	
==>ibFre'].  This method is used
internally by translate_message() to produce the list of Templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36313	36406	
==>ibFre'].  This method is used
internally by translate_message() to produce the list of Templat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1351	1458	
==>IL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1351	1458	
==>IL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1351	1458	
==>IL2JS.addmethod(
      _3amain_3a_3aPair,
      "postcircumfix:{}",
      _26PIL2JS_3a_3aInternals_3a_3aHack <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2273	2420	
==>$n->{assoc}  && $n->{assoc}  eq 'list';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'inf <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26608	26699	
==>y!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Message object. <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26608	26699	
==>y!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Message object. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	667	775	
==>it '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	667	775	
==>it '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9290	9445	
==>{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{skip_reason},
                    skip_all    => $St <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8104	8224	
==>> {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::B <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8104	8224	
==>> {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::B <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1705	1825	
==>inuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = "splashscreen.txt";
my $lib6         = "../. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1821	1933	
==>$libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = sh <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	932	1042	
==>$libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = sh <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	421	531	
==>YLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is z <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1279	1389	
==>YLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is z <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3870	3979	
==>print STDERR Data::Dumper::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6365	6526	
==>->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6365	6526	
==>->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6365	6526	
==>->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                return $self;
            },
            'cell' =>    sub { _('$:cell') },  # _cell <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24853	24949	
==>u can assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::Ke <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24853	24949	
==>u can assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::Ke <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19466	19556	
==>x:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19466	19556	
==>x:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19466	19556	
==>x:[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19931	20162	
==>stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19931	20162	
==>stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19931	20162	
==>stringify($other);
                            $self->tied->write_thru( $other );
                            return $other;
                            #return $self;
                        }
                        #warn "got @it <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13974	14081	
==>s_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13974	14081	
==>s_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13974	14081	
==>s_attribute($label, %params)
    } 
    return undef;
});

# now add the $::Class attributes

::Class.meta.a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1988	2096	
==>ss Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $* <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	3	101	
==>ss Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $* <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	3	101	
==>ss Test::Builder::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $* <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	281	395	
==>mar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs:: <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5272	5370	
==>ment identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argumen <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5272	5370	
==>ment identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argumen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4823	4926	
==>capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5016	5119	
==>capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10315	10475	
==>f_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10315	10475	
==>f_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    m <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12364	12462	
==>uage/16578> for more
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4119	4310	
==>be);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not t <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4583	4774	
==>be);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1914	2012	
==>$class->can('superclasses')) { # roles don't have subclasses
        foreach my $superclass (@{$cla <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19697	19792	
==>cluding these headers.

=item $h.authorization_basic

This method is used to get or set an autho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19697	19792	
==>cluding these headers.

=item $h.authorization_basic

This method is used to get or set an autho <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	258	381	
==>}

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	258	381	
==>}

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2785	2900	
==>ription);
            $subscriber.note_subscription($subscription);
        }

        method remove_subscription (C <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1424	1536	
==>ngth; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1424	1536	
==>ngth; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1424	1536	
==>ngth; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i]);
        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1953	2084	
==>tespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1953	2084	
==>tespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1953	2084	
==>tespace($i);
            my $method_name = $i->nextToken;
            my ($type, $method) = $self->_parse_method($i);
            if <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8993	9161	
==>system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages ye <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5296	5399	
==>my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # confi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5111	5210	
==>my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # confi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11118	11239	
==>{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17047	17145	
==>o v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17047	17145	
==>o v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	503	597	
==>}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Ut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	503	597	
==>}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Ut <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	503	597	
==>}

local $PIL::Run::EvalX::bb_tree_is_var;

no strict;
package EvalX::BaseClass;
use Scalar::Ut <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10855	11029	
==>table match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACK <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7931	8095	
==>table match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACK <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7931	8095	
==>table match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub abort { 
    my $op = shift;
    return sub {
        #print __PACK <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17484	17632	
==>' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17484	17632	
==>' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17484	17632	
==>' ) ? $_->unboxed->items :  
                        Perl6::Value::p6v_isa( $_, 'List' ) ? $_->unboxed :  
                        UNIVERSAL::isa( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18968	19088	
==>chable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18968	19088	
==>chable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18968	19088	
==>chable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatcher magic
    package <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7700	7796	
==>]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7700	7796	
==>]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7700	7796	
==>]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub main { $_[0]->cxt-> <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	873	976	
==>ocale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	873	976	
==>ocale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1532	1640	
==>::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1532	1640	
==>::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1532	1640	
==>::PVar";
  }
}

sub as_js {
  my $self = shift;

  if(ref $self->{pVarName}) {
    ($self->{pVarName}{CC} and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20971	21064	
==>upport;

Any of your distrbution's modules that use Module::Compile based modules
will automat <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20971	21064	
==>upport;

Any of your distrbution's modules that use Module::Compile based modules
will automat <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24514	24595	
==>ch_captures_set_if_undef(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n_if_undef(N,X,C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6685	6790	
==>ds.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6685	6790	
==>ds.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6685	6790	
==>ds.push(pad)";
    my $params    = $self->params->as_js;
    (my $magical_vars, local @PIL::VARS_TO_BACKUP <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4136	4231	
==>passed to the 
C<new> constructor generally include some sort of key, and sometimes also 
parame <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4136	4231	
==>passed to the 
C<new> constructor generally include some sort of key, and sometimes also 
parame <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1638	1761	
==>2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1638	1761	
==>2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1638	1761	
==>2() . "\n" for @$self;
    $js .= $_->as_js3() . "\n" for @$self;
    chomp $js;
    $js .= <<EOF;
if(args.length != 0)
  PI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11768	11863	
==>s>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node obje <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11768	11863	
==>s>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node obje <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2245	2358	
==><start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param< <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2245	2358	
==><start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13287	13404	
==>be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13287	13404	
==>be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13287	13404	
==>be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13584	13765	
==>st ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13584	13765	
==>st ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13584	13765	
==>st ) = @_;

                my $list = $list[0];
                if ( !Perl6::Value::p6v_isa($list,'Array') ) {
                    $list = Array->new();
                    $list->p <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1193	1327	
==>r ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1193	1327	
==>r ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17429	17534	
==>ted : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_like
#
# Combination of run_perl() and like( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2198	2294	
==>y ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2198	2294	
==>y ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2198	2294	
==>y ($self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2360	2484	
==>} @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2360	2484	
==>} @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2360	2484	
==>} @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL2JS.possibly <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8610	8740	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8803	8933	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	48	153	
==>lf: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	48	153	
==>lf: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	48	153	
==>lf: $idx) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1022	1127	
==>- lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1022	1127	
==>- lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, H <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1022	1127	
==>- lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using traits - Scalar, H <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1495	1610	
==>ry ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1495	1610	
==>ry ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10181	10304	
==>_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10181	10304	
==>_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	458	564	
==>list must at least include the invocant";
    my $inv = $args->fetch(num->new(0));
    (blessed($inv) && $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3186	3287	
==>bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3186	3287	
==>bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3186	3287	
==>bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'}->expan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8070	8170	
==>e interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8070	8170	
==>e interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8070	8170	
==>e interface

$::Role->add_method('FETCH' => ::make_method(sub {
    my ($self, $label) = @_;
    (def <==
3	/Users/nnunley/pugs/util/addauthors.pl	1325	1436	
==>print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub readauthors { <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1246	1340	
==>memory footprint of constant size because the
algorithm is based on statistics. This was my mai <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1246	1340	
==>memory footprint of constant size because the
algorithm is based on statistics. This was my mai <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	41	167	
==>s (; Num ?$x = $CALLER::_ )
    returns Num { ... }

multi sub exp (; Num ?$exponent = $CALLER::_, Num :$base )
    returns Num <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	213	305	
==>Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	213	305	
==>Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30266	30373	
==>:Example respectively.  This method will fail if
any members of C<$attrs> do not match attribute names of th <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13096	13199	
==>Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13096	13199	
==>Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	329	418	
==>y.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_n <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	329	418	
==>y.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	684	787	
==>ue.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	684	787	
==>ue.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	684	787	
==>ue.copy();

    // lvalue pair assignment, see S06 and
    // http://www.nntp.perl.org/group/perl.perl6. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16745	16859	
==>n, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16745	16859	
==>n, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16745	16859	
==>n, unboxed 'bit' enums
sub bool::false      { '' }
sub bool::true       { 1 }
sub taint::untainted { '' }
sub taint <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18580	18694	
==>op @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_ha <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15001	15115	
==>op @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_ha <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2045	2151	
==>$.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}
  
  method write ( St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	54	152	
==>$.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( St <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	54	152	
==>$.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $*ERR ) {}

method write ( St <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	909	1025	
==>*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'np <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1090	1206	
==>*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'np <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1269	1385	
==>*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'np <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	941	1104	
==>EGIN {
    __PACKAGE__->add_rule( 
        name => '??',
        name2 => '!!',
        assoc => 'non',
        precedence => 'looser',
        other => '||',
    ) <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	722	833	
==>mer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	722	833	
==>mer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2566	2740	
==>n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2566	2740	
==>n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2017	2127	
==>om() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5655	5850	
==>x) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5655	5850	
==>x) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #pr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5655	5850	
==>x) {
    my $string = $xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4309	4454	
==>", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4297	4442	
==>", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6831	7009	
==>.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	489	589	
==>n Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	489	589	
==>n Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1441	1555	
==>\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_state <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1441	1555	
==>\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_state <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15429	15531	
==>dler = $as_hash_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2682	2787	
==>ameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2682	2787	
==>ameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement in <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2682	2787	
==>ameters ?$x, pairs
# TODO - say { @_ } - test it with Int->new(3)->say
# TODO - Coro
# TODO - implement in <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17894	18033	
==>_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these metho <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17894	18033	
==>_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these metho <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3274	3391	
==>ementRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <RegularEx <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10280	10397	
==>can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$te <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10280	10397	
==>can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$te <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32137	32242	
==>>send('add_method' => (
    # method label
        symbol->new('_make_descendant_dispatcher'),
    # metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	566	656	
==>",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	566	656	
==>",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	566	656	
==>",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still_our_pil2js_com <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7448	7615	
==>{
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $de <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	749	916	
==>{
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3715	3824	
==>or p2');
is($p1->get_x, 15, '... still got the right x for p1');
is($p1->get_y, 16, '... still got the right y <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3406	3497	
==>bastian Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LI <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3406	3497	
==>bastian Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LI <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4923	5025	
==>method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4923	5025	
==>method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	917	1017	
==>not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExceptio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	917	1017	
==>not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExceptio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	917	1017	
==>not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.ControlExceptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1888	1990	
==>f:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1888	1990	
==>f:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1888	1990	
==>f:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var hash <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4812	4920	
==>mpare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Fl <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4812	4920	
==>mpare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Fl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1827	1932	
==>wraps Perl 5 Regexes to return a B<Match> object.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10614	10728	
==>elf->{data}[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8596	8692	
==>ders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individua <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8596	8692	
==>ders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6320	6471	
==>->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6320	6471	
==>->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6320	6471	
==>->add_attribute($attr_name => undef);
            }
            else {
                # no conflicts ... add attribute
                $self->add_attri <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	367	478	
==>ame later? requires peeking in, might be a
    ### catch22 if we don't do it from repository metadata
    my $pa <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1704	1857	
==>TTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return v <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1704	1857	
==>TTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return v <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22835	22923	
==>)    :- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2597	2725	
==>$x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2597	2725	
==>$x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2597	2725	
==>$x->unboxed ) };
    } 
    if ( $@ ) {
        no warnings 'numeric';
        return p6_from_b($tmp) if $class eq 'Bit' && ! ref <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5580	5707	
==>hr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "ga <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5580	5707	
==>hr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "ga <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3770	3881	
==>y %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};

    if ($self->invocant) {
	croak 'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	421	536	
==>rgs) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	421	536	
==>rgs) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	421	536	
==>rgs) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(new PIL2JS.Box <==
3	/Users/nnunley/pugs/util/version_h.pl	2066	2170	
==>nings "io";
  open OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT " <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6698	6794	
==>n(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$sel <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6698	6794	
==>n(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	750	850	
==>"base" and $curr ne "base";
    $prev = $curr;
  }
  Regexp::Parser->export_to_level($level, $pkg, @E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	361	471	
==>e should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	566	676	
==>e should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	622	732	
==>e should have a unique ID
    my $instance_counter = 0;

    # Input: reference to class and a slurpy attr hash <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4927	5040	
==>nts.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4927	5040	
==>nts.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6451	6564	
==>nts.

You must have a plan set before you can record any tests.

=item B<ok returns Bit ( Bit $passed, Str $descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2554	2659	
==>elf->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2554	2659	
==>elf->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2554	2659	
==>elf->class->isa($class_name);    
}));

$::Object->add_method('can' => ::make_method(sub { 
    my ($self, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8318	8421	
==>self->{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser::clump;
  push @ISA, qw( Regexp <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9312	9414	
==>_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9312	9414	
==>_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	118	284	
==>arses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Quoting constructs are macros:

    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2097	2215	
==>@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2097	2215	
==>@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4190	4331	
==>ore($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4190	4331	
==>ore($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4190	4331	
==>ore($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29413	29556	
==>symbol->new('dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	952	1053	
==>t = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC: <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	952	1053	
==>t = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2522	2650	
==>if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2522	2650	
==>if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2522	2650	
==>if $verbose;
        my $p5r = p5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	888	986	
==>gorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	888	986	
==>gorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, co <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	888	986	
==>gorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract all positionals, co <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3633	3726	
==>class, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3633	3726	
==>class, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8120	8235	
==>s the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8120	8235	
==>s the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Rea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8120	8235	
==>s the undef/zero/default container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Rea <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1079	1180	
==>eta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1079	1180	
==>eta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	8012	8147	
==>se> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignorecase") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2168	2273	
==>($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2168	2273	
==>($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43303	43395	
==>on::Example> is bundled with Relation and
provides a reference implementation of a Relation c <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18846	18931	
==>,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(_Re,_,F0,F <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6649	6762	
==>ret = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tree[0] eq '"PSub"' {
        my % <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14632	14729	
==>f $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
} <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2113	2210	
==>f $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	789	889	
==>relude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	789	889	
==>relude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	789	889	
==>relude::JS::IO;
use Prelude::JS::Junc;
use Prelude::JS::Str;
use Prelude::JS::Bool;
use Prelude::JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4401	4534	
==>ng for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4401	4534	
==>ng for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4401	4534	
==>ng for ' . $class_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2374	2504	
==>on't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2374	2504	
==>on't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2374	2504	
==>on't print ".."
    if ( $self->elems == 0 ) {
        push @start, @end;
        return join( ', ', @start, @end );
    }
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16376	16502	
==>ompile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it l <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16376	16502	
==>ompile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it l <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3080	3171	
==>nicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA/P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5832	5935	
==>my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5832	5935	
==>my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5832	5935	
==>my $attribute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2567	2660	
==>tion = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2567	2660	
==>tion = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5957	6050	
==>per { def_operator($X::cap->[-3],$X::cap->[-2],$X::cap->[-1]) }

my $x1 = def_stmt_prim('bs_ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4203	4311	
==>s = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4203	4311	
==>s = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4203	4311	
==>s = $self.values;
    @vals[int rand @vals];
  } elsif $self.isa("Hash") {
    any($self.pairs).pick;
  } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5677	5855	
==>$xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #precede <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5677	5855	
==>$xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #precede <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5677	5855	
==>$xx->unboxed;
    # from the Perl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #precede <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10591	10706	
==>in {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10591	10706	
==>in {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1429	1524	
==>have
  bought fairly simple code with tolerable performance.

However, pugs critical path is cur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9189	9315	
==>requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9189	9315	
==>requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "< <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6042	6145	
==>nopsis", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $te <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4614	4730	
==>GE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    for my $inst ( @{ $s <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9696	9796	
==>de these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we i <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9696	9796	
==>de these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4168	4274	
==>ist of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4168	4274	
==>ist of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4248	4354	
==>ist of lines of expected diagnostics for the test you're
going to run.

=item B<test_test( Str $description <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1083	1180	
==>_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1083	1180	
==>_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1083	1180	
==>_3a_3a_3fBLOCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	289	394	
==>bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	289	394	
==>bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our defaul <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	289	394	
==>bless' => method ($canidate, %params) returns Class {
    $canidate //= 'P6opaque'; # opaque is our defaul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12612	12738	
==>w( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12612	12738	
==>w( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12612	12738	
==>w( '$.unboxed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4226	4321	
==>Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4226	4321	
==>Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4226	4321	
==>Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_deref ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13657	13793	
==>isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13657	13793	
==>isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13657	13793	
==>isa( 'Str' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1463	1565	
==>n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1463	1565	
==>n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1463	1565	
==>n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(args);\n\n";
    $js .= $_->as_js0() . "\n" for <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16210	16306	
==>ationales; you can read TTM itself and
various other external documentation for much of that.

Th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16210	16306	
==>ationales; you can read TTM itself and
various other external documentation for much of that.

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3926	4048	
==>clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3926	4048	
==>clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3926	4048	
==>clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	705	808	
==>} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supporte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	705	808	
==>} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supporte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	705	808	
==>} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supporte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3256	3371	
==>lass ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3256	3371	
==>lass ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3256	3371	
==>lass ]);        
        ::opaque_instance_change_class($self, $eigenclass);
        ::bind_method_to_class($method, <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32986	33082	
==>tion contains only tuples that are in
exactly one of the source Relations.  This method has alias <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37536	37632	
==>tion contains only tuples that are in
exactly one of the source Relations.  This method has alias <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	170	285	
==>it = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	170	285	
==>it = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	170	285	
==>it = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var secs = args[1].toNative(), cc = args.p <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3685	3783	
==>List
    [#all_definitions#
    ,("pugs_versnum", Pugs.Version.versnum)
    ,("pugs_version", Pugs. <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1042	1136	
==>aces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
albeit <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1042	1136	
==>aces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
albeit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	854	969	
==>side a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	854	969	
==>side a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	854	969	
==>side a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarNa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2660	2797	
==>> sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9272	9386	
==>ke 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9330	9444	
==>ke 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1761	1866	
==>$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xg <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1022	1121	
==>messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
t <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1022	1121	
==>messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1178	1282	
==>nd has

a main body closure. 



the Package part of the Module is simply a hash from strings

(symbol na <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20708	20810	
==>he argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subdir . "/" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1126	1226	
==>nd has
a main body closure. 

the Package part of the Module is simply a hash from strings
(symbol na <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1302	1453	
==>,
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '..',
        as <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3994	4088	
==>ERSION

This document describes Rosetta version 0.724.0.

It also describes the same-number ver <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3994	4088	
==>ERSION

This document describes Rosetta version 0.724.0.

It also describes the same-number ver <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9113	9259	
==>) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeH <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9113	9259	
==>) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeH <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	890	977	
==>mmar_name => $() ,} }
RULE
*{'condition_rule'} = Pugs::Compiler::Rule->compile(<<'RULE') <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4562	4745	
==>!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4562	4745	
==>!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () re <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	355	451	
==>OTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tem <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	355	451	
==>OTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tem <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5599	5757	
==>> [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

# ------- higher-order ruleops

sub optional {
    return alternation( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	452	554	
==>my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	452	554	
==>my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5650	5755	
==>ly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5650	5755	
==>ly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5650	5755	
==>ly_ccify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3865	3970	
==>e_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3865	3970	
==>e_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3865	3970	
==>e_attr($self => '@:roles') = shift if @_;
    ::opaque_instance_attr($self => '@:roles');
}));

## ------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7789	7889	
==>ke: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7789	7889	
==>ke: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7789	7889	
==>ke: FooRole.isa(FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2100	2206	
==>testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2100	2206	
==>testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; pre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2100	2206	
==>testpc} and -s $PIL2JS::cfg{testpc}) {
  warn << '.';
*** Precompiled Test.pm for JS doesn't exist yet; pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1210	1339	
==>rt
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1210	1339	
==>rt
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1210	1339	
==>rt
    } else {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3518	3695	
==>,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3765	3942	
==>,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9663	9748	
==>set_range_x(B).
p5_charset_range_x(_) --> p5_charset_item(class_pos(_)), {!, fail}.
p5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3554	3681	
==>sh @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3554	3681	
==>sh @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Ma <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	564	671	
==>s {
    my $self = shift;
	my $node = shift;

	warn Carp::longmess unless $node->can("digest");
    Blondie: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13906	14003	
==>un::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13906	14003	
==>un::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13906	14003	
==>un::ApiX::Exception::LoopControl('-text' => 'redo'))";
}


sub p6_initialize {
    # Boot runtime. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19468	19558	
==>[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19468	19558	
==>[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19468	19558	
==>[>=] ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) >= p6_to_n($xx1)) };
MULTI SUB infix:[<] ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5507	5610	
==>";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5507	5610	
==>";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5507	5610	
==>";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15988	16094	
==>nf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15988	16094	
==>nf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15988	16094	
==>nf   if $v eq 'Inf';
    return -&Perl6::Value::Num::Inf if $v eq '-Inf';
    return Perl6::Value::Num::NaN <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4252	4373	
==>inary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3788	3886	
==>print_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4005	4103	
==>print_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15304	15406	
==>shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15304	15406	
==>shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15304	15406	
==>shift { $_[0]->{celems}( @_ ) ? $_[0]->{cstart}( @_ ) : undef }
sub pop   { $_[0]->{celems}( @_ ) ? $_[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1533	1654	
==>callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1533	1654	
==>callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1533	1654	
==>callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    local $_;

    loc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4612	4733	
==>fined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4612	4733	
==>fined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26722	26818	
==>0)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), "∀α. α → (int × α)", ":t p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10863	10972	
==>dirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10863	10972	
==>dirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10863	10972	
==>dirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2193	2321	
==>) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12519	12611	
==>Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=h <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12519	12611	
==>Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1918	2066	
==>e = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1918	2066	
==>e = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2396	2489	
==>rs to them

	my @letters = split //, "αβγδεζηθικλμνξοπρστυφχψω"; # som <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	773	888	
==>s => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	773	888	
==>s => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	773	888	
==>s => JS_CLASS_NO_INSTANCE,
        methods => {
		    perl_eval => sub { shift; eval($_[0]) },
		    perl_use => sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4614	4716	
==>.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated to uniquene <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4614	4716	
==>.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated to uniquene <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4614	4716	
==>.

Usage: pil2js.pl [options] -- input_files

Available options (options may be abbreviated to uniquene <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1483	1584	
==>$explanation eq 'no_plan') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->ne <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	205	299	
==>](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	238	332	
==>](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10807	10941	
==>s1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10807	10941	
==>s1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10807	10941	
==>s1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3733	3939	
==>hods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3733	3939	
==>hods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3733	3939	
==>hods}->{$method_name}
                    ));                   
                }
                else {
                    $new_class->add_method($method_name => ::make_method(
                        $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3852	3954	
==>scription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3852	3954	
==>scription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3852	3954	
==>scription = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ],
    cl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3544	3653	
==>die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7021	7130	
==>die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5978	6087	
==>die "Some values of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33939	34064	
==>{
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33939	34064	
==>{
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33939	34064	
==>{
        return 1 if UNIVERSAL::isa( $_, 'Perl6::Value::List') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $arra <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9541	9703	
==>cutable called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever execu <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6494	6591	
==>ray of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method shoul <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6494	6591	
==>ray of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method shoul <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10437	10538	
==>lue_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10437	10538	
==>lue_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8312	8417	
==>$_)}@$x).']';
    } elsif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3842	3941	
==>lastPosition) =~ m/[^\s]/;
  my $whitespacePosition = $-[0];
  $currentTermTable = $self->termTable( <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	362	468	
==>s[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Previou <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	362	468	
==>s[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Previou <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6468	6570	
==>key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boolean represe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6468	6570	
==>key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boolean represe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8665	8767	
==>key, sets the C<passed> key to true, and adds a
C<really_passed> key which contains the boolean represe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2691	2791	
==>val) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.Item <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2691	2791	
==>val) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.Item <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2691	2791	
==>val) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Context.Item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5952	6109	
==>b") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5952	6109	
==>b") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5952	6109	
==>b") ? '$?SUBNAME' : ()
    );
  }

  sub callchain { "" }

  sub corofix {
    my ($self, $body) = @_;

    # Cosmetical fix
    chomp(my $ret = sprintf <<EOF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	381	487	
==>ings like Object, Package and Module. It was also created
# by God (which means it is part of the core mode <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	381	487	
==>ings like Object, Package and Module. It was also created
# by God (which means it is part of the core mode <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	381	487	
==>ings like Object, Package and Module. It was also created
# by God (which means it is part of the core mode <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5369	5462	
==>$cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5369	5462	
==>$cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5369	5462	
==>$cmp = &infix:<===>) { uniq $cmp, @self }
sub JS::Root::uniq(Code $cmp is copy = &infix:<cmp>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2201	2302	
==>$self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2201	2302	
==>$self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2201	2302	
==>$self, $label) = @_;
    ::opaque_instance_attr($self => '%:methods')->{$label};
}));

$::Role->add_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1772	1884	
==>ck whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1772	1884	
==>ck whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1772	1884	
==>ck whether your compiled Prelude is outdated.\n";
  #  warn "           Please run runjs.pl with an approproate - <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2070	2188	
==>f);
    return $conf;
}

sub env_override {
    my($class, $conf) = @_;
    my %env = map { split /=/ } (split /:/, ($E <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2965	3078	
==>grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = meta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2953	3066	
==>grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = meta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	289	391	
==>on.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	289	391	
==>on.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	289	391	
==>on.end;" unless $PIL::IN_SUBLIKE;

  my $cxt   = "PIL2JS.Context.ItemAny";
  my $undef = "new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	500	607	
==>ct  = undef;
$::Module  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# (very pr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32549	32642	
==>some attributes for configuration, its
main purpose is to convert Message objects on demand in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32549	32642	
==>some attributes for configuration, its
main purpose is to convert Message objects on demand in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	19864	20007	
==>{
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	19864	20007	
==>{
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $othe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	19864	20007	
==>{
                            #warn "WRITE THROUGH ".Perl6::Value::stringify($other);
                            $self->tied->write_thru( $othe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2508	2619	
==>Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5554	5650	
==>n.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5554	5650	
==>n.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3933	4026	
==>ersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_di <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3933	4026	
==>ersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_di <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12501	12587	
==>onc(R,char(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_mo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15815	15925	
==>eading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19292	19402	
==>eading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18771	18881	
==>eading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2737	2863	
==>";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16251	16365	
==>lf->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12672	12786	
==>lf->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	994	1080	
==>ent-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modifi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	994	1080	
==>ent-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modifi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4171	4292	
==>n {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7648	7769	
==>n {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1007	1118	
==>LASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1007	1118	
==>LASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_at <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1007	1118	
==>LASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->get_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4246	4346	
==>x0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4246	4346	
==>x0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4246	4346	
==>x0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4768	4875	
==>_left--;
      lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4512	4619	
==>g<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compile <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4358	4461	
==>g<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9577	9690	
==>arn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9577	9690	
==>arn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9577	9690	
==>arn "array has $ary_elems elements, starts in $start, max = $max_ary_elems\n";
            my $slice_size = $end - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2701	2802	
==>f ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2701	2802	
==>f ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2701	2802	
==>f ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1586	1695	
==>=@_;
    $o->{'nprec'} <=> $o1->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@_;
    my $from = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15775	15868	
==>on's developer should see more details than joe public would.

Alternately, sometimes a progra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15775	15868	
==>on's developer should see more details than joe public would.

Alternately, sometimes a progra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1265	1358	
==>$timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1265	1358	
==>$timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1265	1358	
==>$timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $main::pugs_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	121	244	
==>in ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	121	244	
==>in ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	121	244	
==>in ",", map { ~$_ }     @elems;  # it's now:
#     join ",", map { $_.perl } @elems;
# * Don't output "..." to create ranges <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	382	682	
==>al(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	128	235	
==>Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	128	235	
==>Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	128	235	
==>Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35106	35230	
==>= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35106	35230	
==>= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35106	35230	
==>= 0 ) {
            #  head=shift offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4034	4132	
==>ed, and the spans must not intersect with each other.

- empty_set()

- universal_set()

= OBJECT M <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4034	4132	
==>ed, and the spans must not intersect with each other.

- empty_set()

- universal_set()

= OBJECT M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2907	3021	
==>($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigencl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2907	3021	
==>($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigencl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2907	3021	
==>($self->class->class != $::EigenClass ){
#        warn "hello from not yet eigened : " . $self;
        my $eigencl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	221	336	
==>22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	221	336	
==>22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' para <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	221	336	
==>22
# * bugfix - MultiSub wasn't checking parameter signature
# * @_ is bound - '.say' works!
# * Added 'slurpy' para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5129	5239	
==>tToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5129	5239	
==>tToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5129	5239	
==>tToken; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($ <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	376	498	
==>) {
        for (split(rx:perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p,$v)=split('=',$_);
            Cookies <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3722	3870	
==>dent>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->compile( q(
                < <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7862	7993	
==>ex_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate w <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7862	7993	
==>ex_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8464	8636	
==>else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8464	8636	
==>else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably no <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8464	8636	
==>else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably no <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	520	620	
==>}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Mat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11788	11883	
==>::Model::Node - This stores an ordered list of all this
Document's Node objects that do not have <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11788	11883	
==>::Model::Node - This stores an ordered list of all this
Document's Node objects that do not have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10283	10389	
==>:Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10283	10389	
==>:Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::ca <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10283	10389	
==>:Run::Internals::call_perl5('${tmp}::$key',*\@a) }";
		my $sub = "sub $key (*\@a) { PIL::Run::Internals::ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2104	2204	
==>Class->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2104	2204	
==>Class->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2104	2204	
==>Class->name('EigenClass');

# now create the * (root) package ... 

$::{'*'} = $::Package->new('$:nam <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3005	3135	
==>buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (I <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3005	3135	
==>buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (I <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5288	5391	
==>[[DefaultValue]]>}
multi sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
multi sub ToBoolean(JSX::Value::Unde <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1985	2157	
==>];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    } <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1985	2157	
==>];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    } <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1851	1978	
==>$file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12180	12295	
==>r(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBR <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4823	4938	
==>r(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBR <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1457	1552	
==>st/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Config::Co <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18832	18930	
==>ash
definition.  While it is obvious that people who would be writing the text
would have to know h <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18832	18930	
==>ash
definition.  While it is obvious that people who would be writing the text
would have to know h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2283	2388	
==>ue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2283	2388	
==>ue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2283	2388	
==>ue; Proxy
# TODO - multisubs are checking parameters twice
# TODO - parameter types - is rw, is copy, is r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36889	36984	
==>ty of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.transl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36889	36984	
==>ty of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.transl <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7176	7372	
==>ined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_sp <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7176	7372	
==>ined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_sp <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14604	14710	
==>sion>
    | <'--'> <UnaryExpression>
    | <'+'> <UnaryExpression>
    | <'-'> <UnaryExpression>
    | <'~' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	241	367	
==>rn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	241	367	
==>rn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	241	367	
==>rn $env;
}

sub enter_scope {
    my $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = s <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	203	310	
==>ndef, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	203	310	
==>ndef, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5624	5712	
==>r::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Gra <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	27	135	
==>ar;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text ins <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14907	15000	
==>tr $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $pass <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14907	15000	
==>tr $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $pass <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9736	9857	
==>ry_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9736	9857	
==>ry_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9736	9857	
==>ry_elems if $slice_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11712	11855	
==>mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11712	11855	
==>mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11712	11855	
==>mt = $spec->match_type($candidate);
                        return (0,"type mismatch: $candidate vs ".$spec->str)
                            if <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6726	6845	
==>@pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6726	6845	
==>@pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	323	432	
==>) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	323	432	
==>) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	323	432	
==>) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU resources.\n";
  }
}

use FindBin;
use File::Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8948	9115	
==>n "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8948	9115	
==>n "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8948	9115	
==>n "our" scope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17774	17866	
==>$xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17774	17866	
==>$xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17774	17866	
==>$xx0,$xx1) {...};
MULTI SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1253	1358	
==>t(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1253	1358	
==>t(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return Stri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1253	1358	
==>t(Str $splitter, Str $str) is primitive {
  JS::inline('(
    function (splitter, str) {
      return Stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	693	801	
==>{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	693	801	
==>{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	693	801	
==>{pNode}{CC} = $self->{CC} if $self->{CC};

    no warnings "recursion";
    return sprintf
      "_24main_3a_ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1726	1829	
==>ie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Blondie::Node::Map;
    use b <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	15	109	
==>ss Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	15	109	
==>ss Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5931	6221	
==>art_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            } <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5931	6221	
==>art_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8267	8389	
==>it /;/, $o;

      $S->warn(0, "Illegal octal digit '%s' ignored", $1) if $o =~ /([^0-7;])/;

      if ($cc) {
        $S-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6733	6866	
==>lse []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6733	6866	
==>lse []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6733	6866	
==>lse []
    #   paramContext: !perl/@PIL::CxtSlurpy
    #     - !perl/@PIL::mkType
    #       - Array
    #   paramDefault: !perl/@PIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1553	1669	
==>nt $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Tea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1553	1669	
==>nt $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Tea <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2321	2416	
==>e in the total report.  Returns the C<%results> of the test.
See L<Results>.

C<@test_output> sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1537	1628	
==>paque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1537	1628	
==>paque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1537	1628	
==>paque_instance_add_new_attribute($meta_obj => '$:version'   => '0.0.0');
    ::opaque_instan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4146	4250	
==>ass_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4146	4250	
==>ass_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4146	4250	
==>ass_description = '-0.0.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $cl <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12737	12845	
==>></td>
	    </tmpl_loop>
	    <td><span title="Details" class="expander" onclick="toggle_visibility('<tmpl_va <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11715	11806	
==>ive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barth <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11715	11806	
==>ive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barth <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14169	14298	
==>> 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a stat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14169	14298	
==>> 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a stat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	484	594	
==>re;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	484	594	
==>re;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28051	28155	
==>symbol new @:MRO) ($self: send (_merge)))) 
    ($self: get_attr (symbol new @:MRO)))

=cut

$::Class->se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1593	1699	
==>igest { "" }
	sub atomic { 1 }
}

{
    package Blondie::Node::Unit;
    use base qw/Blondie::Unit Blondie: <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4623	4714	
==>onstructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> crea <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4623	4714	
==>onstructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> crea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5209	5341	
==>foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5209	5341	
==>foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5209	5341	
==>foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined && args <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	789	891	
==>ariables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $return <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	789	891	
==>ariables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3034	3125	
==>'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7750	7875	
==>) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7750	7875	
==>) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." - <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7750	7875	
==>) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #warn "reversing ".p6_to_s($ret)." - <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16706	16813	
==>f->{'next'}       = 1;
}

=head1 Results

The C<%results> returned from C<analyze()> contain the following
i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	42	144	
==>::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	42	144	
==>::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4385	4517	
==>s
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4385	4517	
==>s
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4385	4517	
==>s
# op0
#MULTI SUB XXX:<&> () {...}; - ???
#MULTI SUB XXX:<^> () {...}; - ???
#MULTI SUB XXX:<|> () {...}; - ???
MULTI SUB want () {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22311	22431	
==>I SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22311	22431	
==>I SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22311	22431	
==>I SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14573	14743	
==>oxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14573	14743	
==>oxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14573	14743	
==>oxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef' as a number";
        return 0;
    }
    no warnings 'numeric';
    $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17236	17329	
==>cale::KeyedText, that is a terse way of saying that it subscribes to the
localization methodol <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17236	17329	
==>cale::KeyedText, that is a terse way of saying that it subscribes to the
localization methodol <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5200	5339	
==>-> List ) is rw
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1945	2050	
==>$data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $call <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1945	2050	
==>$data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $call <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20913	21007	
==>aking them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20913	21007	
==>aking them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13249	13350	
==>g;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13249	13350	
==>g;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13249	13350	
==>g;
     try { '.$body.' }
     catch PIL::Run::ApiX::Exception::LoopControl with { $__flag = $_[0]{"-t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34897	34996	
==>tes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39447	39546	
==>tes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocan <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38980	39079	
==>tes.  This method will fail if the heading of <$other>
is not a subset of the heading of the invocan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31133	31288	
==>ngth - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31133	31288	
==>ngth - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31133	31288	
==>ngth - $ret_length;
                my $i = $li->shift_n( $diff );
                push @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3010	3116	
==>ray, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3010	3116	
==>ray, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3010	3116	
==>ray, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first argument!" unless $cmp.isa("C <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3763	3917	
==>= shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  package Regexp::Parser::anyof;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1116	1219	
==>annot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1116	1219	
==>annot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1116	1219	
==>annot compile multiple files at once!" if not $link and @input > 1;
usage "--yaml-dump doesn't work with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9885	9991	
==>= eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9885	9991	
==>= eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9885	9991	
==>= eval($p5r);
    warn "".(caller(0))[3].": $@\n".with_numbered_lines($p5r) if $@;
    @res;
}

sub p6_eval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	116	238	
==>zer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	116	238	
==>zer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	116	238	
==>zer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => String::Tokenizer->new()
    } => $class <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4121	4230	
==>ap:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by ma <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4121	4230	
==>ap:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by ma <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7093	7183	
==><simple_call>/) {$m}

multi infix:<*> ($a,$b) {...}
multi infix:<+> ($a,$b) is looser(infix <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16898	17011	
==>X::cap = [];
      $v = $f->($rest);
    }
    FAIL_IF_FAILED($v);
    unshift(@{$m0},$m1);# sigh, prevents mutati <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5602	5706	
==>nd <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method diff <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5602	5706	
==>nd <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method diff <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	846	948	
==>0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	846	948	
==>0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	846	948	
==>0.increment)..($x1.decrement) }
multi sub postfix:<...> ($x0) { $x0 .. Inf };

multi sub prefix:<~> ($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5164	5320	
==>tr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5164	5320	
==>tr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5164	5320	
==>tr($pattern,0,4) eq '(?m)' {
         $pattern = substr($pattern,4);
         $multiline = 1;
       }
       # TODO - x
    }
    # TODO - \A \Z \z
    my $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1758	1858	
==>nd::Sig->new
	({ named => $named, positional => $positional,
	   invocant => $invocant,
	   named_slu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4935	5030	
==>ne reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4935	5030	
==>ne reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8520	8657	
==>ail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn't matchfail sti <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8236	8369	
==>ail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn't matchfail sti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2443	2561	
==>racted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2350	2466	
==>racted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ) <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	1027	1136	
==>2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($_[0]);
  retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4636	4735	
==>Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4636	4735	
==>Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4636	4735	
==>Hey, there is no reason why ::code_say couldnt be ::say_code,
# avoiding the need to split on ::.  T <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8338	8579	
==>e->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5606	5786	
==>e->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2730	2840	
==>nows");
    $optable->addToken("close:}", "<prefix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21408	21504	
==>, C \= 11.
class_member(class_pos(word)      ,C) :- !,    char_type(C,csym).
class_member(class_n <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8728	8822	
==>2, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <steva <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8728	8822	
==>2, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <steva <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3033	3147	
==>'' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3021	3135	
==>'' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne ' <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1308	1400	
==>ints bare types (no foralll)
my $pretty = Language::AttributeGrammar->new(<<'#\'EOG');
#\
typ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21991	22085	
==>tta is entirely object-oriented; you use it by
creating objects from its member classes, usuall <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21991	22085	
==>tta is entirely object-oriented; you use it by
creating objects from its member classes, usuall <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	334	446	
==>gs5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	334	446	
==>gs5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	334	446	
==>gs5 =~ s/\*\@/\@/g; $args5 =~ s/\*\%/\%/g;
    $args6 =~ s/\A\s+//; # for split.
    $args6 = join(",",map{"'$_'" <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1267	1376	
==>ASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a H <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1267	1376	
==>ASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a H <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17826	17930	
==>ntuit, and do we care?


=cut


=pod

=head1 Perl5's struct regexp and its abuse

=head1 Description

The <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4533	4648	
==>pecial case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4533	4648	
==>pecial case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4533	4648	
==>pecial case though ...
    return 1 if $role_name eq 'Role' && ($self->isa('Role') || $self->isa('Class'));
    # re <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	366	468	
==>pile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	366	468	
==>pile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7148	7318	
==>1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' su <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6909	7070	
==>1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1714	1826	
==>= @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1714	1826	
==>= @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatche <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1714	1826	
==>= @_;
    my $dispatcher = $self->class->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12545	12648	
==>d to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12545	12648	
==>d to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12545	12648	
==>d to an array!";
  }

  $array = [];
  $array[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_undef_array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	354	483	
==>@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	354	483	
==>@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	354	483	
==>@_;
    if (UNIVERSAL::isa($n,'ARRAY')) {
        @$n;
    } elsif (UNIVERSAL::isa($n,'HASH')) {
        values(%$n);
    } else { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3845	3961	
==>e a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{_('@:r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	75	164	
==>e', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	206	295	
==>e', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	167	284	
==>fs';
	return &{"node::$_[0]"}($_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	131	247	
==>fs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	219	335	
==>fs';
	return &{"node::$_[0]"}($_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7230	7330	
==>my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub em <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7242	7342	
==>my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub em <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13955	14077	
==>depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13955	14077	
==>depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13955	14077	
==>depth--;
        }
        local $::DISPATCHER = $dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4241	4458	
==>s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4241	4458	
==>s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility i <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4196	4286	
==>le(<<'RULE')->code();

    <@Grammar::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule-> <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4624	4721	
==>ement );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4624	4721	
==>ement );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $ <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17201	17298	
==>_,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Parser->new($re);
  my $n = eval{ $pars <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30348	30445	
==>tes
(provided in C<$heading>) may or may not resemble those of the original. 
The anonymous functi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34900	34996	
==>tes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymous functi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34082	34178	
==>tes
(provided in C<$heading>) may or may not resemble those of the original.
The anonymous functi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1424	1521	
==>ROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1424	1521	
==>ROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1424	1521	
==>ROCESSING_HAS_STARTED;

my $possibly_ccify_argid = 0;
sub possibly_ccify {
  my ($thing, $sub) = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	138	243	
==>(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	138	243	
==>(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	138	243	
==>(function (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $ty <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7796	7902	
==>w( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7796	7902	
==>w( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15887	15971	
==>-> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9879	9992	
==>';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9879	9992	
==>';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	826	945	
==>>FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	826	945	
==>>FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	826	945	
==>>FETCH($attr);  
}

sub class {
    my ($full_name, $body) = @_;
    # support generic classes here ...
    if (defined( <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	712	817	
==>turns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	770	875	
==>turns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6481	6605	
==>rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6481	6605	
==>rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6481	6605	
==>rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5658	5765	
==>r( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5658	5765	
==>r( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5658	5765	
==>r( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Int::to_bit( _(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18858	18991	
==>um_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18858	18991	
==>um_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18858	18991	
==>um_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->fr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1211	1319	
==>n rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1351	1459	
==>n rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3961	4092	
==>);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3961	4092	
==>);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3961	4092	
==>);
    }

    # Minor hack -- we undefine all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7667	7781	
==>e (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7667	7781	
==>e (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7667	7781	
==>e (@xx) { $xx->reverse };
MULTI SUB reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7455	7696	
==>ol::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7455	7696	
==>ol::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6069	6172	
==>s in the recursion of $myobj. All it needs to do to signal
this is to return the string set in advance w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6069	6172	
==>s in the recursion of $myobj. All it needs to do to signal
this is to return the string set in advance w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6069	6172	
==>s in the recursion of $myobj. All it needs to do to signal
this is to return the string set in advance w <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2771	2955	
==>ol -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$data -C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16487	16580	
==>(such as by simply
copying files), often even while the program is executing.

Locale::KeyedTe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16487	16580	
==>(such as by simply
copying files), often even while the program is executing.

Locale::KeyedTe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9004	9101	
==>\@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9004	9101	
==>\@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9004	9101	
==>\@copy }
method postcircumfix:<[]>(@self: Int *@idxs) is rw {
  die "Can't use object of type {@se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2186	2294	
==>n p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2186	2294	
==>n p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2186	2294	
==>n p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	870	982	
==>gorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored
        or die "can <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1555	1650	
==>use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::G <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1555	1650	
==>use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::G <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	669	796	
==>ap:{~$_} };
  return sub {
    while +@tokens == 0 && defined $buf {
      my $i = $input.();
      if $i.isa(Array) {
        m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7822	7912	
==>sh @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1647	1737	
==>sh @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	801	940	
==>$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/ <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	801	940	
==>$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13782	13875	
==>::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13782	13875	
==>::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13782	13875	
==>::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::protection_unacce <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23686	23808	
==>define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* us <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	382	503	
==>r $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is builtin is primit <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28901	28996	
==>define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* us <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3282	3376	
==>ack

=head2 Parameters

The parameters of the request are accessible through the HTTP::Query ob <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3282	3376	
==>ack

=head2 Parameters

The parameters of the request are accessible through the HTTP::Query ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16858	16957	
==>utes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16858	16957	
==>utes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16858	16957	
==>utes

$::Class->add_attribute('@:MRO'              => ::make_attribute('@:MRO'));
$::Class->add_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2307	2411	
==>('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2307	2411	
==>('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2307	2411	
==>('has_method' => ::make_method(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	186	291	
==>:Spec ();
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6237	6332	
==>r::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", p <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6237	6332	
==>r::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3015	3188	
==>} ) {
        if ( grep { 
                defined $opt->{other} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$self->{levels}[ <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	264	382	
==>text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Me <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	264	382	
==>text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	124	223	
==>SE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespace <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	124	223	
==>SE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespace <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	124	223	
==>SE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - Rebase namespace <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8003	8141	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8196	8334	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rul <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4236	4330	
==>ced::e ( --> Num ) {
    2.71828182845904523536028747135266249775724709369995957496696762772407 <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17379	17504	
==>t;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17379	17504	
==>t;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) { <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25142	25256	
==>ecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',}'>
    | <'{'> <DecimalDigits> <','> <DecimalDigits> <'}'>
}
ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4748	4840	
==>atever
blessing they had before, but unlike B<rebless>, it preseves something
of the original <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4748	4840	
==>atever
blessing they had before, but unlike B<rebless>, it preseves something
of the original <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4748	4840	
==>atever
blessing they had before, but unlike B<rebless>, it preseves something
of the original <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1409	1517	
==>Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*g <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1409	1517	
==>Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1034	1161	
==>aram_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1034	1161	
==>aram_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1034	1161	
==>aram_names) = ($_[2], @{$_[1]});
        my ($name, $version, $authority) = split '-' => $full_name;       
        return sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6366	6501	
==>{
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Curry <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6366	6501	
==>{
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Curry <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6366	6501	
==>{
        attrs => [ '$.body', '$.params', '$.name', '$.returns' ],
        DESTROY => sub {},
        methods => {

            # Curry <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5118	5228	
==>++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5118	5228	
==>++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5708	5818	
==>++, $var);
	    }
	}
	return;
    }
    if ($self->p5type eq '%') {
	Data::Bind::_hv_store($ref, $_, $vars->{$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2945	3049	
==>rgs.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hook <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2945	3049	
==>rgs.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hook <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2945	3049	
==>rgs.pop();
var block_leave_hooks = [];
var %s = function (retval) {
  for(var i = 0; i < block_leave_hook <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33748	33894	
==>:
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33748	33894	
==>:
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33748	33894	
==>:
                  UNIVERSAL::isa( $_, 'Perl6::Value::List') ? $_->elems  :
                  1;
    }
    $count;
}

sub is_infinite {
    my $ar <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9217	9336	
==>st sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9217	9336	
==>st sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3380	3468	
==>.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3380	3468	
==>.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3380	3468	
==>.add_method('id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1933	2035	
==>:Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:M <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1933	2035	
==>:Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:M <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	565	666	
==>b::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ke <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	765	861	
==>lt = Blondie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case the re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3903	4003	
==>r, and setting the passed parameter to a true value. 

If this parameter is false, the factory return <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3903	4003	
==>r, and setting the passed parameter to a true value. 

If this parameter is false, the factory return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6100	6200	
==>r, and setting the passed parameter to a true value. 

If this parameter is false, the factory return <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	685	817	
==>mplemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($g <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1605	1731	
==>ave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1605	1731	
==>ave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # c <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5323	5445	
==>et_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5323	5445	
==>et_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9624	9725	
==>d'
    # -----------------------------------------------      
    method collect_all_roles () { "<imp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9624	9725	
==>d'
    # -----------------------------------------------      
    method collect_all_roles () { "<imp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9624	9725	
==>d'
    # -----------------------------------------------      
    method collect_all_roles () { "<imp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2953	3081	
==>};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            lo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3093	3221	
==>};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            lo <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	360	468	
==>= 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3573	3680	
==>aram_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3573	3680	
==>aram_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4163	4270	
==>aram_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12712	12821	
==>TI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12712	12821	
==>TI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12712	12821	
==>TI SUB sign ($xx) {...};
MULTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	622	722	
==>alled the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes" });

# this code is a hashr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3585	3680	
==>must first create an object of the appropriate 
class, passing the key, a mode (either "encipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3585	3680	
==>must first create an object of the appropriate 
class, passing the key, a mode (either "encipher <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6593	6733	
==>Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v { <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6593	6733	
==>Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8711	8830	
==>{$_}), " now missing.\n";
    $fail = 1;
  }
  !$fail;
}

sub require_ok ($) {
    my ($require) = @_;
    eval <<REQUIR <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3924	4022	
==>ssed parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder:: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3924	4022	
==>ssed parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6121	6219	
==>ssed parameter to a true value. 

If this parameter is false, the factory returns a Test::Builder:: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	28257	28372	
==>nabled.

=item C<HARNESS_VERBOSE>

If true, Test::Harness will output the verbose results of running
its tests.  Set <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10582	10690	
==>d: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10740	10848	
==>d: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	965	1069	
==>Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	965	1069	
==>Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	965	1069	
==>Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numeric contect <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3018	3142	
==>cularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended her <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3018	3142	
==>cularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended her <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3018	3142	
==>cularity issue, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended her <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16123	16244	
==>\d+)(\w+)/> which, when
reversed, I<can> match differently.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "srae <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17328	17428	
==>orwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title of the d <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17328	17428	
==>orwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title of the d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1813	1975	
==>$sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1813	1975	
==>$sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1813	1975	
==>$sep = "!";  # none?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.typ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9870	9962	
==>ray is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9870	9962	
==>ray is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39848	39940	
==>Example>

This multi-method is a generic binary relational operator that takes
another Relati <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1063	1189	
==>rn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1063	1189	
==>rn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1063	1189	
==>rn $pair->fixup;
  }

  return bless {
    pCxt  => $self->{pCxt}->fixup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1305	1422	
==>Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1305	1422	
==>Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1305	1422	
==>Can't use object of type {%self.ref} as a hash!"
    unless %self.isa("Hash");

  JS::inline('new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8896	8989	
==>able(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2721	2814	
==>able(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3776	3880	
==>s} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3776	3880	
==>s} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it wi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3776	3880	
==>s} @args\": $!\n" and return;

  return $res;
}

# Runs pil2js.pl. If there's a reference in @args, it wi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3927	4067	
==>',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3178	3276	
==>nce(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub * <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3178	3276	
==>nce(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub * <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	293	391	
==>rencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	293	391	
==>rencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Prox <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	293	391	
==>rencee && str.FETCH().autoderef) str = str.FETCH().referencee;

    var proxy = new PIL2JS.Box.Prox <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	492	596	
==>.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	492	596	
==>.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	492	596	
==>.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETCH() h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26387	26608	
==>tringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26387	26608	
==>tringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26387	26608	
==>tringify($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3060	3164	
==>));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3060	3164	
==>));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3060	3164	
==>));

$::Role->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::op <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	976	1157	
==>turn $a if @_[0] eq ']';
                    push $a, parse( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                } <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15922	16021	
==>ing a message that would be shown to a user, is in fact meant
to be interpreted by the machine itsel <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15922	16021	
==>ing a message that would be shown to a user, is in fact meant
to be interpreted by the machine itsel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1639	1751	
==>'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1639	1751	
==>'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not imp <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1639	1751	
==>'num' =>  sub { warn "Junction.num() not implemented" },
            'int' =>  sub { warn "Junction.int() not imp <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5938	6043	
==>t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->reduce <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	279	412	
==>et = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    u <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	279	412	
==>et = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    u <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9489	9598	
==>/ /\n/g; s/\n*\z/\n/; }
    my $tof = sub { open(F,">$_[0]") or die; print F $_[1];close F;};
    $tof->("dele <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	1850	1952	
==>{
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1850	1952	
==>{
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8977	9091	
==>mpilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = sh <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8977	9091	
==>mpilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = sh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25579	25674	
==>Relation::Example class is pure and deterministic, such that all of its class
and object methods <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9241	9353	
==>e that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9241	9353	
==>e that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $chi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	530	624	
==>'RULE')->code();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4392	4500	
==>nd().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4392	4500	
==>nd().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4392	4500	
==>nd().','.$_[0]{'pRHS'}->expand().')';
}
package PBind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10432	10550	
==>t STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10432	10550	
==>t STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10432	10550	
==>t STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	return;
    }
    $name = $name.".pm" if $name !~ /\.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5581	5705	
==>we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5581	5705	
==>we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5581	5705	
==>we have a conflict, but it is not, or has 
            # not already been stubbed out then ...
            if ($self->has_met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	599	711	
==>ou might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	599	711	
==>ou might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	599	711	
==>ou might think of Duck
# typing, but extend the metaphor to encompass all the senses. 
#
#   If it looks like a D <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5690	5807	
==>array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5690	5807	
==>array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5690	5807	
==>array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(A <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6062	6205	
==>a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_c <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12921	13016	
==>.shift(), ="some_file" worked, so I
# added the .shift() declaration here.  --iblech
class Str d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2078	2178	
==>{ map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2078	2178	
==>{ map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2078	2178	
==>{ map $code, *@self }
sub JS::Root::map(Code $code, *@array is rw) is primitive {
  die "&map needs a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17632	17731	
==>MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17632	17731	
==>MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17632	17731	
==>MULTI SUB infix:<+&> ($xx0,$xx1) {...};
MULTI SUB infix:[+<] ($xx0,$xx1) {...};
MULTI SUB infix:[+>] <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3933	4042	
==>$_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_list {
  my $tmpl = HTML:: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1051	1159	
==>ASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1051	1159	
==>ASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1949	2093	
==>, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_d <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1638	1739	
==>ity to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The v <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1638	1739	
==>ity to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12883	13079	
==>stant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13162	13358	
==>stant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gramma <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7059	7162	
==>e various types depends on their data...
# this is why this code is so big.

# in a language with native <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3576	3697	
==>> 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # sm <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3576	3697	
==>> 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # sm <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25257	25337	
==>lgs(A,B,C,D,E,F,G,H,I,J)).
set_flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,amat(C <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	733	904	
==>ts and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle s <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	733	904	
==>ts and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12414	12521	
==>>force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a unicod <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4514	4651	
==>y @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4514	4651	
==>y @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	465	570	
==>OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	465	570	
==>OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	465	570	
==>OUT <<EOF;
Welcome to JSPugs -- Perl6 User's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	421	531	
==>ackage    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	421	531	
==>ackage    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	421	531	
==>ackage    = undef;
$::Module     = undef;
$::EigenClass = undef;

## ------------------------------------------ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	95	207	
==>Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	95	207	
==>Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_per <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	95	207	
==>Spec;
use File::Temp;
use Encode;

our $VERSION = 0.0.1;

use base "Exporter";
our @EXPORT    = qw<
  compile_per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5673	5792	
==>f ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actual <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5673	5792	
==>f ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actual <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5673	5792	
==>f ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A more realistic example might actual <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18663	18842	
==>E ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18663	18842	
==>E ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18663	18842	
==>E ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3748	3864	
==>n 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3748	3864	
==>n 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6341	6474	
==>0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6329	6462	
==>0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Run <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1687	1792	
==>alue for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { % <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1687	1792	
==>alue for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4096	4205	
==>[\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4096	4205	
==>[\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4096	4205	
==>[\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(" <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13418	13531	
==>servername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13418	13531	
==>servername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36538	36632	
==>nificant to the result;
the new Relation::Example contains all the tuples of the source Relatio <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22442	22546	
==>which Perl_re_dup() will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret-> <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3430	3519	
==>$ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3488	3577	
==>$ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1854	2276	
==>ttributes of every Relation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class R <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	676	776	
==>------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	676	776	
==>------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $chi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9462	9581	
==>push @{ $prev->{data} }, @{ $self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	408	515	
==>nt
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ spl <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	408	515	
==>nt
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ spl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4254	4377	
==>!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4254	4377	
==>!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	54	146	
==>c256/auto/pugs/ext/CGI/lib" };
use CGI;
#use perl5:HTML::Template;
#use perl5:Text::Textile q <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6473	6637	
==>}
            return " print '', $s";
        }
        if ( $n->{method}{bareword} eq 'say' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8141	8256	
==>le;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variab <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8334	8449	
==>le;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6746	6858	
==>= qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6746	6858	
==>= qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6746	6858	
==>= qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30119	30212	
==>unctionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34671	34764	
==>unctionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33844	33937	
==>unctionality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9825	9933	
==>undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9825	9933	
==>undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
})) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9825	9933	
==>undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
})) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	155	274	
==>:Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span inste <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	155	274	
==>:Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span inste <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4738	4832	
==>\. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <character_se <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17553	17673	
==>OP* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
                  c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1148	1260	
==>e even higher order functions get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13674	13780	
==>e even higher order functions get prims instead of thunks when possible

    my $body = $thunk->val;

    $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23033	23132	
==>are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27585	27684	
==>are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26362	26461	
==>are
attribute names and values.  Each Mapping key of a Body tuple must match a
Set member of Heading <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16900	16993	
==>in the Child Nodes attribute (that
attribute defaults to empty if the corresponding argument i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16900	16993	
==>in the Child Nodes attribute (that
attribute defaults to empty if the corresponding argument i <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	472	578	
==>| $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0] <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	472	578	
==>| $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0] <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16808	16907	
==>),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2), <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3869	3972	
==>g on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this paramet <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3869	3972	
==>g on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this paramet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6066	6169	
==>g on the C<$description> 
parameter, and setting the passed parameter to a true value. 

If this paramet <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5265	5389	
==>.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5265	5389	
==>.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40889	40984	
==>ERRMSG, ARGS...)

Unconditionally throws a warning.  Primarily useful when you need to
throw a w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1809	1914	
==>seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1809	1914	
==>seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %see <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1809	1914	
==>seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if %seen{$_} { () } else { %see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12857	12962	
==>self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12857	12962	
==>self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12857	12962	
==>self, $label, $method) = @_;  
#    warn "hello from (CLASS) already eigened : $self";
    ::bind_method_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3860	3962	
==>%mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3860	3962	
==>%mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_al <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3860	3962	
==>%mods;
    %mods_altered.delete('nth');
    %mods_altered{'global'} = 1;
    my $rx = rx_core_(%mods_al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2961	3056	
==>sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2961	3056	
==>sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't comp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2961	3056	
==>sub compile_perl6_to_pil {
  my $pil = run_pugs("-CPIL1-Perl5", @_);
  die "Error: Couldn't comp <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	560	665	
==>m Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - bette <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	560	665	
==>m Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - bette <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	548	675	
==>d_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "post <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3995	4102	
==>xtra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3995	4102	
==>xtra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positiona <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4585	4692	
==>xtra incoming named args
    }

    my $pos_arg = $args->{positional};
    for my $param (@{$self->positiona <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2110	2204	
==>make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2110	2204	
==>make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2110	2204	
==>make_stub_method());
}));

$::Role->add_method('get_method' => ::make_method(sub {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1037	1128	
==>new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1037	1128	
==>new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1037	1128	
==>new PIL2JS.Box.Constant(array.length));
  })')($self, @things);
}

method JS::Root::push($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1230	1360	
==>y   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1230	1360	
==>y   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1230	1360	
==>y   - ???
#        is_lvalue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28356	28696	
==>art + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # E <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28356	28696	
==>art + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # E <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28356	28696	
==>art + scalar @end ) ) {
                        $str =  join( ', ', @start, @end );
                    }
                    else {
                        $str =  join( ', ', @start ) .
                                ' .. ' . 
                                join( ', ', @end );
                    }
                }
                # E <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3136	3260	
==>h>;
    }

    # manhandle the rest of the inlined modules.
    # we make a guess about what to put in %*INC. it's not perfec <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	800	905	
==>s, which we can get away with since
   this is currently simply a code generator.

=cut

# XXX - macro's c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	800	905	
==>s, which we can get away with since
   this is currently simply a code generator.

=cut

# XXX - macro's c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	775	882	
==>), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	775	882	
==>), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	775	882	
==>), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Array is cloned
#
# 2005-08-29
# * Full support <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12053	12170	
==>$::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12053	12170	
==>$::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Pri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12053	12170	
==>$::CLASS->class->get_method($_[1], for => 'private')   # for eigenclass methods
                       || confess "Pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13467	13591	
==>, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13467	13591	
==>, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13467	13591	
==>, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
});

# " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	207	311	
==>perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	207	311	
==>perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $? <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	207	311	
==>perl6/Prelude.pm, and can
then be removed from here.

See the note at the top of Prelude.pm.

=cut

my $? <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1299	1406	
==>) if $self->is_duplicate($node);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	911	1111	
==>($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        my @x = @{$se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15349	15450	
==>esc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  mu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15407	15508	
==>esc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  mu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1534	1662	
==>) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1534	1662	
==>) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1508	1616	
==>elf, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler for Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16829	16951	
==>int::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16829	16951	
==>int::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16829	16951	
==>int::untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25896	26002	
==>ar, makes it work (!).

B<These functions can only work if called with ampersands, and only if
the parser o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5436	5537	
==>r("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans. <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5436	5537	
==>r("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11558	11693	
==>>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var name=pugs_version></td>
            <td>
              <tmpl_if nam <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	26	125	
==>sub update_guess(Num $guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($target - $f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11135	11227	
==>universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everyt <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11135	11227	
==>universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everyt <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10823	10950	
==>r $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $sel <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10823	10950	
==>r $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24086	24207	
==>lasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('superclasses'),
    # method bod <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4982	5085	
==>nds);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $cou <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5040	5143	
==>nds);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $cou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9403	9526	
==>[ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9403	9526	
==>[ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4583	4683	
==>ight->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	map { $_->free_vars} $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6183	6337	
==>ult;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6183	6337	
==>ult;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6183	6337	
==>ult;
        return $s;
    }      
}

class1 'Code'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods = <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1455	1563	
==>ypeSafe::Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER::new(type => $type);
	} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1945	2033	
==>em * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratche <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2034	2122	
==>em * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratche <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16012	16109	
==>ew_env($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types::unify(
		new_env($$)->{ $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1333	1425	
==>revious(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1333	1425	
==>revious(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3962	4069	
==>ntent ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3962	4069	
==>ntent ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11253	11349	
==>ferent forms:

=over 8

=item Comparator

A closure with arity of 2, which returns negative/zero/ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19541	19635	
==>ather than user-defined
relation variables.  In SQL terms, you create or alter tables by adding <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19541	19635	
==>ather than user-defined
relation variables.  In SQL terms, you create or alter tables by adding <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4899	5000	
==>se "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4899	5000	
==>se "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one sta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4899	5000	
==>se "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3956	4064	
==>mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3956	4064	
==>mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3956	4064	
==>mods_altered,$pat,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3113	3227	
==>t's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3113	3227	
==>t's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3113	3227	
==>t's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	390	511	
==>n "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "AR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	390	511	
==>n "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "AR <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	390	511	
==>n "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL::VList"          if ref $v eq "AR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1822	1943	
==>t '::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        return $self->($lab <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9524	9636	
==>lable: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $co <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9524	9636	
==>lable: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $co <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9838	9931	
==>Model's input validation is performed over 2 main phases, which
are referred to as "immediate" <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9838	9931	
==>Model's input validation is performed over 2 main phases, which
are referred to as "immediate" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16256	16382	
==>, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16256	16382	
==>, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16256	16382	
==>, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{$table};
}));

# "s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16238	16363	
==>ub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16238	16363	
==>ub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16238	16363	
==>ub {
    my ($self, %params) = @_;
    my $table = $self->_get_attribute_table(\%params);                  
    return keys %{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	813	908	
==>:KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	813	908	
==>:KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5122	5231	
==>hing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5122	5231	
==>hing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5122	5231	
==>hing - in PrimP6

# op1
#MULTI SUB prefix:<!> ($xx) {...}; # in PrimP6
# MULTI SUB id ($xx)    { Perl6::Value: <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	961	1059	
==>N

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets o <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	961	1059	
==>N

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets o <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	19	116	
==>the where{true}'s are not the right thing.  What is?

The definition of these in terms of smartmat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2723	2810	
==>ix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2723	2810	
==>ix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2723	2810	
==>ix:<cmp>) { sort $cmp, @self }
method PIL2JS::Internals::This::Is::A::Truly::Horrible::H <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8116	8301	
==>process_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12106	12250	
==>process_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12106	12250	
==>process_hash {
    my $h = shift;
    if ( ref($h) eq 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7374	7486	
==>undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7374	7486	
==>undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

:: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7374	7486	
==>undef, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
});

:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	193	292	
==>primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	193	292	
==>primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	193	292	
==>primitive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2397	2500	
==>ing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2397	2500	
==>ing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2397	2500	
==>ing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PI <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	223	320	
==>=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming cl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	223	320	
==>=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13692	13817	
==>'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13692	13817	
==>'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13692	13817	
==>'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can( $key, 'id' ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9025	9190	
==>q 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9025	9190	
==>q 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9025	9190	
==>q 'unboxed';
                    die "Trying to call method \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8983	9105	
==>fault',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8983	9105	
==>fault',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8983	9105	
==>fault',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	760	870	
==>de = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this n <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	760	870	
==>de = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this n <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29057	29147	
==>ting test scripts, L<Benchmark> for
the underlying timing routines, and L<Devel::Cover> for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2504	2619	
==>L2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2504	2619	
==>L2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_or <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2504	2619	
==>L2JS.Context.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11901	11996	
==>e(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11901	11996	
==>e(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11901	11996	
==>e(\%params);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34871	34972	
==>along
their common attributes.  This method will fail if the heading of <$other>
is not a subset of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39421	39522	
==>along
their common attributes.  This method will fail if the heading of <$other>
is not a subset of th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38954	39055	
==>along
their common attributes.  This method will fail if the heading of <$other>
is not a subset of th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2286	2433	
==>es("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2286	2433	
==>es("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2286	2433	
==>es("Bool")
        ? "false"
        : do { $need_for_at++; "true" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2673	2819	
==>ors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call the objects new method and re <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7763	7899	
==>elete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1064	1200	
==>elete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2755	2876	
==>sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2755	2876	
==>sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2755	2876	
==>sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pi <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3602	3724	
==>$end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3602	3724	
==>$end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31429	31531	
==>}

For those of you that don't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  U <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2651	2785	
==>0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $se <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2651	2785	
==>0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $se <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17117	17249	
==>= 0;
    local $indent = $indent + 1;
    
    our $seen;
    local $seen = $seen || {};

    if ($seen->{$node}++){
        return " <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15435	15566	
==>eritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15429	15560	
==>eritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10776	10875	
==>ator {  # see 7.8.5
      <!before <LineTerminator>> <SourceCharacter>
}
rule RegularExpressionFlags <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2466	2610	
==>regexp* r, char* stringarg, char* strend,
                          char* strbeg, I32 minend, SV* screamer,
                          void* data, <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1087	1184	
==>terfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. C <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1087	1184	
==>terfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. C <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13061	13175	
==>s have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16538	16652	
==>s have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sou <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15900	16014	
==>s have exclusive headings; result is cross-product.
        return $?SELF!_product( $other );
    }

    # Both sou <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2842	2941	
==>rapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enque <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2842	2941	
==>rapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15979	16128	
==>$_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15979	16128	
==>$_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15979	16128	
==>$_[0];
        }, '_MySub' ); 
}

sub grep { 
    my $array = shift;
    my $code = shift;
    return $array->map( 
        bless sub { 
            r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5823	5954	
==>rectory->in( $from ) ) {
            ### strip the leading dirs from the target so we don't get a silly
            ### deep dir str <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	646	745	
==>@$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi  <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	646	745	
==>@$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi  <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8168	8264	
==>ny text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verbat <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8168	8264	
==>ny text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verbat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7225	7354	
==>unction () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7225	7354	
==>unction () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsnam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7225	7354	
==>unction () {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsnam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6122	6307	
==>)->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6122	6307	
==>)->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6122	6307	
==>)->{ro} = $_[1] eq 'ro';
            #    return $::SELF;
            # },

            'bind' =>    sub {
                my ( $self, $scalar ) = @_;
                die "argument to bi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1384	1485	
==>ar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1384	1485	
==>ar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1384	1485	
==>ar) => store(Scalar->value)
# TODO - store(Hash) / fetch
# TODO - Constant class

use strict;

use Per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11071	11243	
==>win || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            } <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6589	6711	
==>=> chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr( <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6589	6711	
==>=> chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr( <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3387	3507	
==>ool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3387	3507	
==>ool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1021	1114	
==>JIB::Package::Source on a jib file, and a JIB::Package::Installed
on a META_OBJ.

XXX needs ve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1936	2047	
==>e all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1936	2047	
==>e all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUT <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1936	2047	
==>e all we need to construct our $::Class 

1;

__END__

=pod

=head1 NAME

gnosis

=head1 DESCRIPTION

=head1 AUT <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1470	1584	
==>{
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1470	1584	
==>{
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns St <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14168	14266	
==>_eltorito" },
  using  => sub { system "tar", "-xvjf", $grub_local, "-C", $cdroot };

my $wrote_men <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16622	16732	
==>';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16622	16732	
==>';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16622	16732	
==>';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

package Perl6::Value::Bit <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	530	635	
==>rrently completely in flux.  It is simultaneously being
overhauled, cleaned up, and p6 added.  It's basica <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7019	7119	
==>not implemented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1373	1471	
==>not implemented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18087	18342	
==>pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21564	21819	
==>pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21151	21406	
==>pairs.map:{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3737	3866	
==>x, $y ], assoc => 'list' };
}

sub emit_yapp {
    my ($self) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n";
    my $pre <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15760	15885	
==>$cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15754	15879	
==>$cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1009	1209	
==>polation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1009	1209	
==>polation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	194	308	
==>[__PACKAGE__],
    require => 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->submodule <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	9621	9802	
==>art);
      }
      next unless $start;
      for my $line (@lines) {
          if (exists $lines->{$line}) {
              $lines->{$line} = 0 if $test->{ok}||0 == 0;
          } el <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2385	2491	
==>gs{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4645	4751	
==>gs{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1272	1388	
==>arning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1272	1388	
==>arning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1272	1388	
==>arning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9105	9201	
==>Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10364	10472	
==>ata}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	3215	3307	
==>k

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3273	3365	
==>k

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depend <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2031	2154	
==>eturn '\'' . $n->{single_quoted} . '\'' 
        if exists $n->{single_quoted};
            
    return 'qw(' . $n->{angl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6564	6682	
==>1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6564	6682	
==>1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4091	4187	
==>ods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and when cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4091	4187	
==>ods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and when cal <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4091	4187	
==>ods

Class::Rebless defines B<only class methods>. There is no instance
constructor, and when cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3197	3290	
==>ttributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3197	3290	
==>ttributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3197	3290	
==>ttributes')->{$label};
}));

$::Role->add_method('has_attribute' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4329	4556	
==>urp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4329	4556	
==>urp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4329	4556	
==>urp;

        $type = 
            defined $type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\ <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5289	5416	
==>ir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	307	417	
==>BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	307	417	
==>BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	307	417	
==>BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if($CORRECT_BEHAVIOUR) {
    my $jsname = PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5081	5216	
==>$seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if sca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5081	5216	
==>$seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if sca <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5081	5216	
==>$seen->{$role->name}++;             
            push @roles => $role;
            push @roles => $role->collect_all_roles($seen) if sca <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36130	36225	
==>ise-matching every
tuple of the invocant relation with every tuple of the <$other> relation,
the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40679	40774	
==>ise-matching every
tuple of the invocant relation with every tuple of the <$other> relation,
the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40293	40388	
==>ise-matching every
tuple of the invocant relation with every tuple of the <$other> relation,
the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	39	142	
==>NESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	39	142	
==>NESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact com <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	39	142	
==>NESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depends on the
# exact com <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10401	10506	
==>, !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> " <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5396	5494	
==>rn split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) return <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5396	5494	
==>rn split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) return <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6563	6669	
==>.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6563	6669	
==>.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6563	6669	
==>.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' # C3 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3374	3499	
==>als{max} == 0 && defined $totals{skip_all}) ||
                 ($totals{max} && $totals{seen} &&
                  $totals{ma <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	286	388	
==>s the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	286	388	
==>s the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2435	2542	
==>n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$ <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2435	2542	
==>n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3052	3168	
==>} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3052	3168	
==>} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless def <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3052	3168	
==>} ref
		return $obj if $class->need_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless def <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1078	1168	
==>:Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method t <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1078	1168	
==>:Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method t <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16279	16376	
==>tation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-le <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16279	16376	
==>tation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1677	1795	
==>h - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1677	1795	
==>h - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".del <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1677	1795	
==>h - 1) array.length--;
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self, @idx);
  } else {
    die ".del <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14892	15026	
==>ift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14892	15026	
==>ift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14892	15026	
==>ift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11938	12072	
==>y bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11938	12072	
==>y bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11938	12072	
==>y bind() / XXX - just rename $:cell to $.cell
            'id' =>       sub { _('$:cell')->{id} },  

            'tieable' =>  sub { _ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6757	6858	
==>s0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e){warn(Carp::l <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5493	5653	
==>le @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' bo <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5493	5653	
==>le @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' bo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1187	1283	
==>elete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <[[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8160	8257	
==>shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8160	8257	
==>shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8160	8257	
==>shift;
    #warn "SLICE WRITE THROUGH: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Val <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17019	17139	
==>->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub d <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1855	1962	
==>ash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: S <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1855	1962	
==>ash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: S <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	681	780	
==>NOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# pri <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	681	780	
==>NOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10084	10181	
==>$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub node::non_capturing_subrule {
    my $name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12807	12913	
==>y $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12807	12913	
==>y $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12807	12913	
==>y $::Class object.

    sub ::dispatcher ($$$;$) {
        (blessed($_[0]) && blessed($_[0]) eq 'Dispatchab <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6385	6497	
==>nt Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6385	6497	
==>nt Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2284	2422	
==>-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $head <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2284	2422	
==>-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $head <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8643	8740	
==>modifier_spec_neg(L), !.
p5_modifier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) -- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21409	21509	
==>sa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- im <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21409	21509	
==>sa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- im <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21409	21509	
==>sa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- im <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2109	2229	
==>mes of the tests 
    # since they are often the same for different tests.
    #
    my $target = $_[-1];
    for my $fil <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2186	2293	
==>value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2186	2293	
==>value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9594	9699	
==>urpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9594	9699	
==>urpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9594	9699	
==>urpy;
	push(@info,['invocant',1]) if $is_invocant;
	push(@info,['lvalue',1])   if $is_lvalue;
	push(@info, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22714	22857	
==>,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23216	23359	
==>,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7390	7490	
==>d sets $regex as the regex to be parsed.

=back

These two approaches do an initial pass over the reg <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	564	688	
==>rom this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	564	688	
==>rom this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9956	10068	
==>er in the match tree
4 - a grammar name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[0]
7 - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	411	519	
==>implements OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not suppo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	389	493	
==>implements OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not suppo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37100	37194	
==>dd_attribute', (symbol->new('@:superclasses')    => attribute->new('@:superclasses'    => 'list <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7670	7838	
==>!>' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                App->new(
                    Sym->new('&control_structure:<if>' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1933	2028	
==>$self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1933	2028	
==>$self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($sel <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	147	256	
==>nt<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./norm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	147	256	
==>nt<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./norm <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	126	213	
==>kage Module::Install::Makefile::Version;
use Module::Install::Base; @ISA = qw(Module::In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4985	5077	
==>rint(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4985	5077	
==>rint(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4985	5077	
==>rint(map{p6_to_s($_)} @xxa);};
MACROP5   return (*@xxa) {p6_return_macro(@xxa)};
MULTI SUB yi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10239	10355	
==>/->/;
    return "$_[1] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11203	11319	
==>incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11203	11319	
==>incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11203	11319	
==>incdirs,
	 '.',
         'lib6',
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bi <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1144	1253	
==>items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

meth <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1144	1253	
==>items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

meth <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30589	30697	
==>pan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know. What we know for
sure is, th <==
3	/Users/nnunley/pugs/util/package-osx.pl	6524	6621	
==>verview::Rule.3pm
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3
        /usr/local/man <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4790	4908	
==>r is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4790	4908	
==>r is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12739	12842	
==>LTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12739	12842	
==>LTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12739	12842	
==>LTI SUB rand ($xx) { p6_from_n(rand(defined $xx ? p6_to_n($xx) : 1)) };
# say - see op0
# print - see op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	533	675	
==>) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	533	675	
==>) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	533	675	
==>) is primitive {
     if  $a and  $b { ?0 }
  elsif  $a and !$b { $a }
  elsif !$a and  $b { $b }
  else              { ?0 }
}
our &infix:<xor> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5708	5913	
==>rl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5708	5913	
==>rl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5708	5913	
==>rl FAQ
    $string =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1573	1667	
==>ndle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1573	1667	
==>ndle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1573	1667	
==>ndle redo() correctly!
#sub statement_control:<for>(@array is rw, Code $code) is primitive {
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	1424	1531	
==>s {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	1424	1531	
==>s {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	1424	1531	
==>s {
      pVarName => PIL::lookup_var($_[0]->{pVarName}),
      origName => $_[0]->{pVarName},
    } => "PIL <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8004	8138	
==>if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeH <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8004	8138	
==>if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeH <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20182	20287	
==>,F1,B0,[C|B0],E0,E0) :- class_member(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1504	1624	
==>$2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    whi <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1504	1624	
==>$2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    whi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25157	25250	
==>n::Example can have no
more than a single tuple.  A zero-attribute Relation::Example with zero <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	932	1076	
==>my $year = $0;
    if ( $year.defined and $year.chars == 2 ) {
        $year = 2000 + $year;  # XXX - fixme ;)
    }

    if ( $3 ) {
        # d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34213	34304	
==>m C<semidifference (Relation $other!) returns Relation>

This method is a generic relational <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38763	38854	
==>m C<semidifference (Relation $other!) returns Relation>

This method is a generic relational <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18900	19024	
==>6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18900	19024	
==>6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18900	19024	
==>6_to_n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2506	2607	
==>k, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2423	2522	
==>k, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23392	23486	
==>portant to do this copy-and-push before you do any flag-parsing,
if you're adding a handle that <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13640	13734	
==>urned in the recommended "Good Practice" order.

In scalar context return the number of distinc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13640	13734	
==>urned in the recommended "Good Practice" order.

In scalar context return the number of distinc <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	151	260	
==>t = object but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	151	260	
==>t = object but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.s <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4609	4729	
==>ore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revision} <=> $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	39	136	
==>gs;

use lib '../../lib', '../../';

use Perl6::MetaModel;
use Carp 'confess';
use Scalar::Util 'b <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17655	17745	
==>n>
    | <BitwiseORExpressionNoIn> <'|'> <BitwiseXORExpressionNoIn>
}
rule LogicalANDExpres <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5481	5581	
==>" ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$cha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5481	5581	
==>" ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$cha <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	2904	3004	
==>s($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir,'design')) : <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3529	3635	
==>sion >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} key <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8788	8892	
==>Digit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\''> <Sing <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2572	2674	
==>sion >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} key <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	758	889	
==>ub date( Str $iso8601 ) returns Date::Gregorian is export {

    $iso8601 ~~ $iso8601_re_anchored
        or die "can't match '$iso8 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5135	5260	
==>match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5135	5260	
==>match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8622	8810	
==>>new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8622	8810	
==>>new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8622	8810	
==>>new( '$.unboxed' => 1 ) );
                        return $::SELF 
                    }
                    if ( $method eq 'decrement' ) {
                        _('$:cell')->store( Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1312	1411	
==>ur @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1312	1411	
==>ur @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1312	1411	
==>ur @VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	643	754	
==>:Heading class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Heading o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	48	142	
==>e Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	48	142	
==>e Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!ou <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1473	1577	
==>returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11770	11869	
==>ntities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11770	11869	
==>ntities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3425	3544	
==>not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3425	3544	
==>not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefau <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3425	3544	
==>not ref $self->name;

    return bless {
      tpParam       => $self->{tpParam},
      tpDefault     => $self->{tpDefau <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22567	22665	
==>ugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22567	22665	
==>ugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22567	22665	
==>ugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI SUB index ($xx0,$xx1,$xx2) {
    my($v0,$v1,$v <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1945	2050	
==>= $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1945	2050	
==>= $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if <==
3	/Users/nnunley/pugs/util/package-osx.pl	4306	4407	
==>/man/man3/Perl6::Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/local/m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8487	8588	
==>',
  '... still got the right return value from Foo singleton/class method');  
  
fails_ok { $Object- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	655	751	
==>ODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error message <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	655	751	
==>ODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error message <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	7079	7186	
==>ity') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	7079	7186	
==>ity') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	7079	7186	
==>ity') = shift if @_;        
    ::opaque_instance_attr($self => '$:authority');
}));

$::Module->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14270	14364	
==>asses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14270	14364	
==>asses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14270	14364	
==>asses'       => ::make_attribute('@:subclasses'));
::Class.meta.add_attribute('%:private_method <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1440	1557	
==>], exp1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fix <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10698	10790	
==>Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<conte <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10698	10790	
==>Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<conte <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6764	6877	
==>ready (looked at $pugs).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary" <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13937	14044	
==>ision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:0 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13937	14044	
==>ision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9036	9205	
==>nt if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9036	9205	
==>nt if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9036	9205	
==>nt if $length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	614	712	
==>t
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1> <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	614	712	
==>t
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1> <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5073	5169	
==>to-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: file '$tail' <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	557	748	
==>str {
        map { "$_ => $_[0]{$_}" } keys %{ $_[0] };
    }

    package Node;
    sub new {
        my $class = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3803	3946	
==>}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3803	3946	
==>}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2670	2852	
==>$!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Mess <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2670	2852	
==>$!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4602	4706	
==>.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4602	4706	
==>.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4602	4706	
==>.unboxed') ) ) },
            'str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Num::to_str( _('$.un <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10820	10936	
==>self->add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    push @{ $S->{next} }, qw< c) atom >;
    &SIZ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2183	2285	
==>.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2183	2285	
==>.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16095	16209	
==>LTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16095	16209	
==>LTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16095	16209	
==>LTI SUB ord ($xx) { p6_from_n( ord( p6_to_s( $xx ) ) ) };
MULTI SUB hex ($xx) { p6_from_n( eval '0x' .p6_to_s($xx)) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12921	13053	
==>e moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ------ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12921	13053	
==>e moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ------ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12921	13053	
==>e moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    }
};

# ------ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2663	2769	
==>ceived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=he <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2663	2769	
==>ceived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2743	2849	
==>ceived_diag'\n"
    ) unless $diag_matches;

    return 0;
}

=pod

=head1 NAME

Test::Builder::Tester

=he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6656	6793	
==>Name'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6656	6793	
==>Name'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6656	6793	
==>Name'},2).','
         .$sub
         .");"
         ."}\n");
    }
}
package PCode; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10944	11114	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10944	11114	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10944	11114	
==>ub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2893	3019	
==>LF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2893	3019	
==>LF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2893	3019	
==>LF.isa($class_name) 
        # however, we need to not do this 
        # for $::Class as that presents a 
        # meta-circu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	201	311	
==>Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	201	311	
==>Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	201	311	
==>Perl6 extensions outside of
# the pugs tree.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5762	5946	
==>at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5762	5946	
==>at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5762	5946	
==>at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\']+)/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6959	7144	
==>ms' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6959	7144	
==>ms' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6959	7144	
==>ms' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # TODO
            #'num' =>  sub { Num->new( '$ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4078	4255	
==>Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUI <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4078	4255	
==>Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36514	36614	
==>SUAL: ", $parser->visual, "\n";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12777	12903	
==>b { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12777	12903	
==>b { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # th <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12777	12903	
==>b { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not exposed here,
            # th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3349	3445	
==>ss is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## --- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4043	4139	
==>ss is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## --- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5251	5347	
==>ss is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = $Object;

## --- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10138	10290	
==>od";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10138	10290	
==>od";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10138	10290	
==>od";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2806	2920	
==>rue;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2806	2920	
==>rue;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2806	2920	
==>rue;
      cc(new PIL2JS.Box.Constant(array));
    } else if(thing instanceof PIL2JS.Hash) {
      var pairs = thin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1227	1327	
==>ef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1227	1327	
==>ef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inlin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1227	1327	
==>ef;
  }
}

sub PIL2JS::Internals::Hacks::init_pair_postcircumfix_method () is primitive {
  JS::inlin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2549	2682	
==>vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2549	2682	
==>vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2549	2682	
==>vars,
        join(", ", @bools),
        PIL::cur_retcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3790	3876	
==>fied_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4089	4173	
==>sions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4089	4173	
==>sions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	569	684	
==>"&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	569	684	
==>"&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	569	684	
==>"&Pugs::Internals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10965	11074	
==>a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10965	11074	
==>a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	241	361	
==>nges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	241	361	
==>nges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     ( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	241	361	
==>nges, but "..", so .perl will return valid
#   Perl 6 code for lazy/infinite arrays:
#     (1, 2 ... 42)  # wrong
#     ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17698	17812	
==>cted ? $expected : /$expected/) :
		          $expected },
		$runperl_args, $name);
}

sub can_ok ($@) {
    my($pr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14368	14470	
==>ta->to_struct } @{ $self->available };
    eval { DumpFile( $self->available_file, @avail ) };
    $@ a <==
3	/Users/nnunley/pugs/util/package-osx.pl	5226	5323	
==>le::S28.3pm
        /usr/local/man/man3/Perl6::Bible::S29.3pm
        /usr/local/man/man3/Perl6::D <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16922	17020	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a stri <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16922	17020	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a stri <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4989	5079	
==>hitespaces,1,@_) }
sub def_statement  { def_thing(\@statements,0,@_) }
sub def_stmt_prim  { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5376	5474	
==>f->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: ch <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5376	5474	
==>f->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: ch <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5966	6064	
==>f->container_var} or Carp::confess $self->container_var;
    if ($self->p5type eq '$') {
	# XXX: ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1905	2029	
==>y basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1905	2029	
==>y basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1905	2029	
==>y basically
    # are ways to walk a dispatcher() 
    # object. They are very useful :)
    sub ::WALKMETH {
        my $dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17213	17306	
==>ribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17213	17306	
==>ribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17213	17306	
==>ribute('%:attributes'       => ::make_attribute('%:attributes'));
$::Class->add_attribute('%:m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3181	3274	
==>Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3181	3274	
==>Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4796	4921	
==>e',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Exp <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4796	4921	
==>e',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Exp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1702	1827	
==>e',           'PVar', 
  'pVarName' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	473	595	
==>v       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	473	595	
==>v       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	473	595	
==>v       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tokenize <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6021	6147	
==>s eq 'Array') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	993	1093	
==>ets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (% <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	993	1093	
==>ets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (% <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3194	3349	
==>ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3205	3360	
==>ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	4121	4242	
==>---\n";
        print $conv;
    }
    elsif  ($arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3391	3482	
==>o be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3391	3482	
==>o be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3391	3482	
==>o be here to keep the Eigenclass name in sync
$::Class->add_method('name' => ::make_method(s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4805	4968	
==>>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws>? 
        \) <?p6ws>?
    <code> 
        {
	 eval Emitter::Perl5::emit({macro => $()});
	 return { macro => $() ,}
	}
RUL <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4117	4248	
==>_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        clos <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4117	4248	
==>_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        clos <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	987	1078	
==>te_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	987	1078	
==>te_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int> <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8052	8161	
==>f = shift;
		my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_[0]) });
		
		return Blondie::T <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4379	4474	
==>+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8- <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4379	4474	
==>+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8638	8733	
==>pat will be caught later.
    return ::($module_name).does(Package);
}

method load_template_mod <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8638	8733	
==>pat will be caught later.
    return ::($module_name).does(Package);
}

method load_template_mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11165	11289	
==>escription" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1635	1747	
==>escription" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1635	1747	
==>escription" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29599	29708	
==>êter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29599	29708	
==>êter.],
        'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
    );

    module MyApp::L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Fre.pm	407	504	
==>êter.],
    'MYAPP_RESULT' => q[Renversement "<ORIGINAL>" est "<INVERTED>".],
);

module MyApp::L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6502	6643	
==>attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6502	6643	
==>attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_na <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6502	6643	
==>attribute($attr_name));
            }
        }        
    }  
    $self->add_method('does' => ::make_method(sub{
        my ($self, $role_na <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1813	1912	
==>ugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1813	1912	
==>ugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	270	380	
==>L::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	270	380	
==>L::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return m <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	681	774	
==>C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal( <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	681	774	
==>C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal( <==
3	/Users/nnunley/pugs/util/config_h.pl	872	978	
==>2"

.
    last;
}

# FIXME: we assume if you have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|mi <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	705	806	
==>n.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'da <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	705	806	
==>n.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5548	5674	
==>xalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5548	5674	
==>xalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($s <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6138	6264	
==>xalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1926	2098	
==>ore {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2173	2345	
==>ore {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2955	3055	
==>29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $s <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	172	314	
==>ay
        (?: (?: (\d\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s*
        # time - optional, <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	60	147	
==>y been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Ti <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	60	147	
==>y been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Ti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1222	1349	
==>e {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1222	1349	
==>e {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1222	1349	
==>e {
        Perl6::Value::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	625	774	
==>} else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	625	774	
==>} else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	625	774	
==>} else {
#          push @args, $_;
#      }
    }
#    push    @args, @slurpy_arrays;
#    unshift @args, @invocant;

    return (
      "p${prefix}P <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5947	6050	
==>you read --help?
    You can stop this program by hitting ^C (<Ctrl>+<C>).
HELP

step
  descr  => "Check <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1904	2004	
==>ub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1904	2004	
==>ub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3678	3788	
==>ier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3678	3788	
==>ier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3678	3788	
==>ier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	142	243	
==>ess - mirror the spec.
 2 Interoperation - allow blending of p6 and js objects.
   (Even though this i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14101	14198	
==>odel::Node Class

A Node object is a simple container which stores data to be used or
displayed by <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14101	14198	
==>odel::Node Class

A Node object is a simple container which stores data to be used or
displayed by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1592	1698	
==>r->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1592	1698	
==>r->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1592	1698	
==>r->parse($pil);

  if($yaml_dump) {
    require YAML;
    print encode "utf-8", YAML::Dump($tree);
    exit <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28788	28880	
==>ble identity of the invocant.

=item C<not_equal (Relation::Example $other!) returns Bool>

T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1436	1543	
==>name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1436	1543	
==>name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1436	1543	
==>name'      => '');
    ::opaque_instance_add_new_attribute($meta_obj => '%:namespace' => {});
    ::opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1596	1753	
==>stance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1596	1753	
==>stance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1596	1753	
==>stance_attr($self => '%:private_methods')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5918	6022	
==>not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5918	6022	
==>not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5918	6022	
==>not bound to the original array/slice
    my $self = shift; 
    #warn "SLICE UNBIND: ".Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	965	1074	
==>':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	965	1074	
==>':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_lis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	965	1074	
==>':descendant');
    while (my $c = ::WALKCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	198	296	
==>tive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	198	296	
==>tive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	198	296	
==>tive {
  defined($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	15177	15345	
==>$self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	15177	15345	
==>$self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fai <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	15177	15345	
==>$self->has_method($1, for => 'class') ?
                        $self->get_method($1, for => 'class')
                        :
                        # if all else fai <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3435	3559	
==>index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3435	3559	
==>index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!child <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	144	249	
==>ion (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	144	249	
==>ion (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	144	249	
==>ion (args) \{
        args.pop()(new PIL2JS.Box.Constant(
          new PIL2JS.Junction.{ucfirst $type}(ar <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	1533	1666	
==>r @p {
      ($v, $input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25149	25242	
==>em C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whether the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29701	29794	
==>em C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whether the <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7023	7158	
==>less $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7023	7158	
==>less $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $n <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4341	4468	
==>e than one '$basename' -- using the first one. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't abl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11431	11528	
==>s attributes is identical; they do not
interact with the outside environment at all.

A Document o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11431	11528	
==>s attributes is identical; they do not
interact with the outside environment at all.

A Document o <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14454	14558	
==>(map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPE <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1934	2038	
==>(map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4903	5012	
==>q(') => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.single_quoted>
            { retur <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5869	5954	
==>tion by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Confi <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5869	5954	
==>tion by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Confi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15665	15768	
==>e table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15665	15768	
==>e table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15665	15768	
==>e table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7757	7880	
==>);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7757	7880	
==>);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7757	7880	
==>);
    var proxy = new PIL2JS.Box.Proxy(
      function ()  { return iarr },
      function (n) {
        var marray = mk_ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16011	16115	
==>SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16011	16115	
==>SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16011	16115	
==>SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_to_n( $xx ) ) ) };
MULTI SUB ord ($xx) { p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1086	1214	
==>capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1042	1164	
==>capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9968	10137	
==>{exp2}{signature} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5583	5673	
==>ule by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5583	5673	
==>ule by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	408	513	
==>);
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() retur <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	408	513	
==>);
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() retur <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1433	1528	
==>oin<Str>.assuming:delimiter(' ');

 multi sub Array::map (@values,   Code $expression) returns L <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	3021	3137	
==>::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	3021	3137	
==>::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	3021	3137	
==>::SubMethod")) {
      my $methname = $self->name;
      $methname = ($methname =~ /^&.*::(.+)$/)[0] or
        PIL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	260	397	
==>ontainer::Array' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $s <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2891	2992	
==>hift @{ $Config{precompile} };
        warn "*** warning: Prelude.pm should probably be the first --in <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11951	12051	
==>NS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `prev <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11951	12051	
==>NS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `prev <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	22153	22276	
==>st = fun(
	param => "x",
	body => comb(
		fun => comb(
			fun => ide("cons"),
			param => ide("x"),
		),
		param => ide("nil <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8905	9001	
==>aw strings.

=item I<newline>

This event handles newlines in the text, it is a specialization of <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8905	9001	
==>aw strings.

=item I<newline>

This event handles newlines in the text, it is a specialization of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1583	1705	
==>} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rep <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1583	1705	
==>} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rep <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1583	1705	
==>} 
#        should create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rep <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	588	693	
==>eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARR <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	358	463	
==>eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARR <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	358	463	
==>eq 'HASH') {
		return map {
			$x->$_(xmlify($x,$val->{$_}) )
		} keys %{$val};
	} elsif (ref $val eq 'ARR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26394	26615	
==>y($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26394	26615	
==>y($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26394	26615	
==>y($_) } @start ) .
                                ' .. ' . 
                                join( ' ', map { Perl6::Value::stringify($_) } @end );
                    }
                }
                return Str->new( ' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8883	8989	
==>e this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8883	8989	
==>e this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33572	33703	
==>eturn ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33572	33703	
==>eturn ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $coun <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33572	33703	
==>eturn ( $ret_length, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $coun <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13544	13708	
==>re} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" . <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9728	9892	
==>re} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" . <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10564	10728	
==>re} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15157	15266	
==>or ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15157	15266	
==>or ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15157	15266	
==>or ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$sel <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2191	2311	
==>n we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match has fa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2191	2311	
==>n we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match has fa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	778	881	
==>ine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	778	881	
==>ine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	778	881	
==>ine global names are not created by the Code object.
# - code.t stores names in %Perl6::[Multi]Sub::SUBS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10781	10929	
==>d Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10781	10929	
==>d Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10781	10929	
==>d Perl6::Slice -----

class1 'Array'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    } <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5395	5514	
==>$ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous, <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5395	5514	
==>$ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous, <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	945	1064	
==>as changed,
    #      so we need to mark as stale some obj files to trigger a rebuild.
    #      The alternative seems <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	876	974	
==>ator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated fil <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	876	974	
==>ator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated fil <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	942	1098	
==>@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	821	977	
==>@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32692	32787	
==>atcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::C <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12373	12498	
==>ETH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12373	12498	
==>ETH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1257	1380	
==>is equiv\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27722	27849	
==>x> in Perl's regexes.

The flag handler gets the parser object and a boolean as arguments.
The boolean is true if the flag is go <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12087	12181	
==>Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since w <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12145	12239	
==>Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since w <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5919	6039	
==>eturn $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5919	6039	
==>eturn $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8984	9088	
==>d the list of shared libraries (*.so) pugs
      requires. This is necessary so we can copy them on the C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1809	1925	
==>kipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1809	1925	
==>kipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1809	1925	
==>kipping " . $self->name . ".\n" and return ""
    return ""
      if $self->name =~ /^__export_c.*import$/;

    my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16282	16565	
==>trs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_')->instantiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('W <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1159	1261	
==>}
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	898	995	
==>}
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1103	1200	
==>}
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_instance_att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5279	5385	
==>lf->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5279	5385	
==>lf->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5279	5385	
==>lf->{array}->fetch( $pos, @_ ))."\n";
    return unless defined $pos && $pos >= 0;
    $self->{array}->fetc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5008	5132	
==>ta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5008	5132	
==>ta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => ch <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3065	3169	
==>alue' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'value' ,'unk';
node_a 'Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17766	17859	
==>ntime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check on e <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17766	17859	
==>ntime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check on e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3466	3588	
==>a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3466	3588	
==>a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3466	3588	
==>a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0) : undefined",
  "hex",          1, "S", "parseInt(a, 16)",
) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2612	2710	
==>H().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2612	2710	
==>H().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_man <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2612	2710	
==>H().pil2js_multi.add_variant(%s, %d)",
        PIL::name_mangle($self->name),
        PIL::name_man <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20082	20179	
==>k) from the main program binary.  Each user
language is in a separate file, and adding a localizat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20082	20179	
==>k) from the main program binary.  Each user
language is in a separate file, and adding a localizat <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9202	9297	
==>p = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#--------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6094	6227	
==>ta using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.ne <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6094	6227	
==>ta using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2678	2810	
==>);
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2678	2810	
==>);
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        un <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2678	2810	
==>);
}

sub new {
    my $class = shift;
    my %param = @_;

    $param{cis_infinite}   = sub { $_[0]->{celems}() == Inf } 
        un <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6444	6558	
==>t, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1257	1358	
==>that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to se <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1257	1358	
==>that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1188	1294	
==>~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2062	2168	
==>~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	573	672	
==>~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2017	2115	
==>} else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2017	2115	
==>} else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2017	2115	
==>} else if(!(a instanceof PIL2JS.Ref) && !(b instanceof PIL2JS.Ref)) {
      cc(new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8611	8732	
==>any, pugs-HsSyck -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$de <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8648	8744	
==>der($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8648	8744	
==>der($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3539	3653	
==>less defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3539	3653	
==>less defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3539	3653	
==>less defined $param{shift_n};
    $param{pop_n}   = sub { $_[0]->pop }   unless defined $param{pop_n}; 

    $param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4678	4784	
==>(options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4678	4784	
==>(options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --met <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4678	4784	
==>(options may be abbreviated to uniqueness):
  --verbose         Be verbose.

  --pugs=/path/to/pugs
  --met <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4062	4159	
==>vel.
    my $base_path = Cwd::abs_path($FindBin::Bin);
    unless ( Cwd::abs_path(Cwd::cwd()) eq $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1064	1158	
==>r::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::Compi <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1064	1158	
==>r::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::Compi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12883	12996	
==>& blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12883	12996	
==>& blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	12883	12996	
==>& blessed($_[0]) eq 'Dispatchable' &&
         defined $_[1]  && 
         defined $_[2]  && ref($_[2]) eq 'ARRAY' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	57	158	
==>2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	57	158	
==>2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDA <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6055	6229	
==>l, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6055	6229	
==>l, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6055	6229	
==>l, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            return m;
          };

          var regexp;
          try { // Guar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	607	712	
==>new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	607	712	
==>new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	607	712	
==>new( '$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::S <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4943	5098	
==>t kill $match (PCR "bug")
        }

        $ast->{pos} = $last - length( $match );
        my $t;
        if ( exists $ast->{stmt} ) {

            if ( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3567	3674	
==>mpiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3440	3542	
==>mpiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a ne <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	23	123	
==>1;
use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || ' <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	23	123	
==>1;
use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || ' <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2321	2418	
==>polated_array> | <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2416	2522	
==>s_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is exp <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2416	2522	
==>s_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is exp <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14837	14935	
==>on)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->righ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	162	285	
==>oot::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	162	285	
==>oot::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	162	285	
==>oot::print(Str *@text) is primitive {
  JS::inline('(
    function (msg) {
      // Rest copied from
      // http://openjsa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8563	8682	
==>gh, because the following methods will
invoke parse() if the tree has not been made yet.

=head2 Setting and Parsing Tog <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17372	17464	
==>h modules in a much more sane manner.
Module::Compile controls the compilation process, calli <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17372	17464	
==>h modules in a much more sane manner.
Module::Compile controls the compilation process, calli <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5978	6095	
==>"Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5978	6095	
==>"Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	521	622	
==>do you
# specify a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7873	8003	
==>h form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7873	8003	
==>h form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7873	8003	
==>h form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	154	248	
==>::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Lon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	154	248	
==>::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Lon <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	154	248	
==>::Spec->catdir($FindBin::Bin);
use PIL2JS;
use PIL::Parser;
use Term::ReadLine;
use Getopt::Lon <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4045	4198	
==>',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal',
        other => <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9328	9437	
==>ess $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11643	11752	
==>ess $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	290	379	
==>ire Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	290	379	
==>ire Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	290	379	
==>ire Perl6::Container::Hash;
require Perl6::Code;
require PIL::Run::Type::Object;
require P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4243	4412	
==>re);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4243	4412	
==>re);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'ty <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4243	4412	
==>re);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'ty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2875	2973	
==>=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2875	2973	
==>=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2875	2973	
==>=$_[0]{type} ref=".ref($_[0]{v})." param=@_";
    # return $_[0]{tied}->fetch if $_[0]{tied};
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11506	11615	
==>alX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11506	11615	
==>alX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't se <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11506	11615	
==>alX::p6_eval("%INC{'$fn'} = '$f';");
        return PIL::Run::EvalX::p6_eval_file($f);
    }
    die "Don't se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16197	16297	
==>f;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16197	16297	
==>f;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16197	16297	
==>f;
    return -&Perl6::Value::Num::Inf if $v eq "".(-&Perl6::Value::Num::Inf);
    return Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5252	5384	
==>attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5252	5384	
==>attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5252	5384	
==>attribute";        
    #     return bless \$name => 'Perl6::ClassAttribute';
    # }     
    
    # this just initializes the insta <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	575	696	
==>hile $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	575	696	
==>hile $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3266	3362	
==>6Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PAC <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6506	6600	
==>$data) returns Array of byte {...}>

Performs the actual ciphering.  This method should operate <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6506	6600	
==>$data) returns Array of byte {...}>

Performs the actual ciphering.  This method should operate <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6431	6556	
==>e files
        return unless $self->link_files( package => $inst_pkg );

    }

    ### update the available files
    $self- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	948	1061	
==>as Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  ha <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	948	1061	
==>as Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  ha <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	594	726	
==>y $whitespace_before = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nons <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35507	35595	
==>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40057	40145	
==>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11234	11341	
==>in, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $ski <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11234	11341	
==>in, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $ski <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5903	6009	
==>Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	156	269	
==>MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	156	269	
==>MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	156	269	
==>MetaModel::Parser::Tokenizer;

sub new {
    my $class = shift;
    my $self = bless {
        tokenizer => Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4226	4335	
==>_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4226	4335	
==>_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4226	4335	
==>_;
    return undef unless $class_name;
    my $dispatcher = $self->dispatcher(':canonical');
    while (my $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	328	435	
==>ler();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	570	665	
==>hat keys should produce the same keystream and thus text 
should be enciphered and deciphered th <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	570	665	
==>hat keys should produce the same keystream and thus text 
should be enciphered and deciphered th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14819	14919	
==>un::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14819	14919	
==>un::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14819	14919	
==>un::PrimP5; }

    require PIL::Run::EvalX;
    PIL::Run::EvalX::p6_eval('require P5Runtime::PrimP6;' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12786	12877	
==>ss->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12786	12877	
==>ss->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12786	12877	
==>ss->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $method <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14526	14637	
==>less $f->is_arrow;
	
	
	my $p_f = $f->left;
	my $ret = $f->right;
	
	my $generic_vars = generic($.fun);

	# if t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3173	3274	
==>signature";
    $options{returns} = 'type' if !(exists $options{returns});
    bless { %options } => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1142	1239	
==>S

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1195	1292	
==>S

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2667	2781	
==>exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2667	2781	
==>exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> rec <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2667	2781	
==>exceeded" if $level > $MAX_RECURSE;

	my $recurse = sub {
		my $who = shift;
		#my $who = $_[0];
		#print ">>>> rec <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11774	11913	
==>S.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11774	11913	
==>S.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11774	11913	
==>S.die("Can\'t bind array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37165	37290	
==>>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37165	37290	
==>>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37165	37290	
==>>shift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8969	9084	
==>ush(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8969	9084	
==>ush(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8969	9084	
==>ush(@info,['default',$code]);
	}
        my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6 <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	795	934	
==>~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ? <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	795	934	
==>~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ? <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8928	9022	
==>DoubleStringCharacters {  # see 7.8.4
      <DoubleStringCharacter> <DoubleStringCharacters>?
} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13098	13239	
==>noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12288	12417	
==>noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3431	3535	
==>$subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3431	3535	
==>$subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3431	3535	
==>$subname.
    PIL::fail("When calling a method, the method name must be a simple string!")
      if $self <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5	121	
==>6;

use Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5	121	
==>6;

use Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	519	618	
==>er the function can be used in a safe
context (such as the IRC evalbot) using `is safe` or `is unsaf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8813	9012	
==>te($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8813	9012	
==>te($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8813	9012	
==>te($label)
                    :
                    # class attributes are really just package 
                    # variables with an "our" scope... so we 
                    # just go to the next <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2602	2754	
==>tcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2602	2754	
==>tcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2602	2754	
==>tcc,
        PIL::cur_retcc . ", $vars",
        PIL::add_indent(1, $body);
    } else {
      return $body;
    }
  }

  sub arity {
    local $_;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11143	11267	
==>t { return $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTRO <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11143	11267	
==>t { return $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTRO <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	417	533	
==>f = shift;
    my $args = ($self->{makemaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

sub buil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5940	6069	
==>rs($self)->{'%:methods'}};
        },                
    }
);

ok(!$Class->has_method('resolve'), '... we do not have the resolve <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22494	22588	
==>cceeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22494	22588	
==>cceeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1515	1622	
==>ram;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1515	1622	
==>ram;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6878	7002	
==>turn $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6878	7002	
==>turn $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6878	7002	
==>turn $start == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13393	13503	
==>emijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16870	16980	
==>emijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) { <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16232	16342	
==>emijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading )) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3822	3944	
==>$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3822	3944	
==>$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3822	3944	
==>$clone->{pops}} =   @{$self->{pops}};
        @{$clone->{shifts}} = @{$self->{shifts}};
        return $clone;
    } unless <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3367	3497	
==>$path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $des <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3367	3497	
==>$path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $des <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3367	3497	
==>$path  =  $cfg{$what};
  $path     =~ s/^@{[ +cwd ]}.//;
  $path    .=  " " x (25 - length $path);
  print $OUT
    "* Path to $des <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1293	1419	
==>isher::Event $event) {
        grep { .match($event) }, gather {
            take $.subscriptions.members;

            # FIXME <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2090	2185	
==>ot_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2090	2185	
==>ot_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($se <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14251	14350	
==>- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14309	14408	
==>- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1998	2091	
==>tation
consult a book, like Numerical Recipies.)  In particular, it suffers from
convergence p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22032	22153	
==>vely have a special meaning in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26584	26705	
==>vely have a special meaning in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal a <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25280	25401	
==>vely have a special meaning in relational algebra which
is analagous to what the identity numbers 0 and 1 mean to normal a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14270	14367	
==>xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(leng <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14270	14367	
==>xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(leng <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14270	14367	
==>xx) { my @c = unpack("U*",p6_to_s($xx)); p6_from_n(0+@c) };
MULTI SUB chars ($xx) { p6_from_n(leng <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3930	4035	
==>e reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3930	4035	
==>e reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3930	4035	
==>e reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args, "--pu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10664	10758	
==>tes have reasonable values, and
that attributes or Nodes are not missing.  The deferred validat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10664	10758	
==>tes have reasonable values, and
that attributes or Nodes are not missing.  The deferred validat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9061	9174	
==>$n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9061	9174	
==>$n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9061	9174	
==>$n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6266	6372	
==>ith members belonging to 3rd party classes that your object might be
holding. Using the noio example above, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6266	6372	
==>ith members belonging to 3rd party classes that your object might be
holding. Using the noio example above, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6266	6372	
==>ith members belonging to 3rd party classes that your object might be
holding. Using the noio example above, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	146	247	
==>dline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	146	247	
==>dline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAs <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	146	247	
==>dline options given.)
# Searching for a way to keep pugs from loading Test.pm,
#   pugs -MMarkTestPMAs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10350	10522	
==>ASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10350	10522	
==>ASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10350	10522	
==>ASS &&
                       ::opaque_instance_id($::CALLER::CLASS) 
                       eq 
                       ::opaque_instance_id($::CLASS);   
            return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1080	1228	
==>close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1080	1228	
==>close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1080	1228	
==>close_current_class unless $in_method;            
            $self->env->leave_scope;
        }
        elsif ($token eq 'has') {
            my $c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12572	12697	
==>rson );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if databas <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12572	12697	
==>rson );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if databas <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1280	1396	
==>::longmess unless ref $type;

		$self->{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	395	502	
==>'re
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	395	502	
==>'re
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	395	502	
==>'re
# $PIL::IN_SUBLIKE. Easy, eh? :)
{
  package PIL::PSub;
  our @ISA = qw< PIL::PCode >;

  sub prefix { " <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1018	1159	
==>escape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1018	1159	
==>escape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37466	37578	
==>', (symbol->new('%:attributes')      => attribute->new('%:attributes'      => 'hash')));
$::Class->send('add_attr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	267	362	
==>mal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	267	362	
==>mal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	267	362	
==>mal options here...
# with MarkTestPMAsLoaded.pm containing
#   %*INC<Test.pm> = "<precompiled t <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25676	25776	
==>:free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b - <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12374	12471	
==>The header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12374	12471	
==>The header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	781	884	
==>, $right) = @_;
    return $left->to_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub conca <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	726	835	
==>l6-compiler\@perl.org>.
.
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8479	8570	
==>r modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when interpol <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8479	8570	
==>r modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when interpol <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2526	2630	
==>node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<iden <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1138	1242	
==>node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<iden <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1839	1943	
==>node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$<iden <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	563	689	
==>*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being matched again <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	563	689	
==>*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being matched again <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21187	21300	
==>6_var: bug: $@" if $@;
    #$ret;
    my $look = "${pkg}::p6__lookup";
    no strict 'refs';
    &$look($mn,$name) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1	109	
==>!/usr/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1	109	
==>!/usr/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1	109	
==>!/usr/bin/perl

# ChangeLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3981	4078	
==>er::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3981	4078	
==>er::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Cont <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3981	4078	
==>er::Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Cont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6309	6413	
==>that your object might be
holding. Using the noio example above, the "return" can be changed to
"return ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6309	6413	
==>that your object might be
holding. Using the noio example above, the "return" can be changed to
"return ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6309	6413	
==>that your object might be
holding. Using the noio example above, the "return" can be changed to
"return ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6105	6246	
==>i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6105	6246	
==>i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6105	6246	
==>i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$i], @b[ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	954	1062	
==>r} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mir <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	921	1029	
==>r} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mir <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	264	387	
==>r returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    } <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	264	387	
==>r returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    } <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10587	10678	
==>gs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http://svn.openfoundry.org <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3920	4017	
==>$?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array comp <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3920	4017	
==>$?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array comp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2723	2816	
==>'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2723	2816	
==>'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",ma <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2723	2816	
==>'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join(",",ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9186	9314	
==>nd >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9186	9314	
==>nd >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9186	9314	
==>nd >= $start;
            #warn "write_thru: Slicing from position $pos to ( $start .. $end )\n";
            #warn "    Index: " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2567	2682	
==>main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2567	2682	
==>main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2567	2682	
==>main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	740	899	
==>', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	740	899	
==>', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28035	28125	
==>ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21937	22027	
==>nternals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21937	22027	
==>nternals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21937	22027	
==>nternals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_n($xx0)**p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8048	8134	
==>r::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assig <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1873	1959	
==>r::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5405	5540	
==>od_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5405	5540	
==>od_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5405	5540	
==>od_type = 'instance';
        shift @tokens;
    }
    foreach my $token (@tokens) {
        next if $token =~ /\s+/;
        if ($token <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6616	6739	
==>}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6616	6739	
==>}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6616	6739	
==>}@xxa) ) };

MULTI SUB postfix:<++> ($xx) { 
 if(0){# XXX
    my $tmp = $xx; # XXX - use clone() - needs MM2
    $xx->store( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8231	8363	
==>ind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        back <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8231	8363	
==>ind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        back <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8231	8363	
==>ind list literal to non-array object!");
      }

      var backup_arr = [];
      for(var i = 0; i < arr.length; i++) {
        back <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5067	5186	
==>of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8544	8663	
==>of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7555	7674	
==>of $attrs! duplicate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11524	11687	
==>de = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7806	7969	
==>de = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8640	8803	
==>de = sub { \n" .
                # "    print 'matched: ', Dumper( \$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	114	210	
==>ind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	114	210	
==>ind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	114	210	
==>ind_op2);
use base 'DynaLoader';
__PACKAGE__->bootstrap;

use Devel::Caller qw(caller_cv caller_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	604	710	
==>rgs";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	604	710	
==>rgs";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	604	710	
==>rgs";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12330	12448	
==>use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.':: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12330	12448	
==>use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.':: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12330	12448	
==>use Error qw(:try);\n";
    $code .= "sub p6_lookup { ";
    for my $cls (@classes) {
        my $symtab = '$'.$cls.':: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3373	3516	
==>current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3373	3516	
==>current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3373	3516	
==>current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4987	5108	
==>educing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits List.

=item Param

S <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6188	6285	
==>ective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If ther <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6188	6285	
==>ective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If ther <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	373	514	
==>s copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        retur <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	100	210	
==>MSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the me <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	100	210	
==>MSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7492	7594	
==>m;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7492	7594	
==>m;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7492	7594	
==>m;   our @ISA = qw<PIL::TCxt>; sub main { "item" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7135	7228	
==>sume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { ' <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7135	7228	
==>sume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1479	1590	
==>finite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1479	1590	
==>finite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1479	1590	
==>finite') && $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	346	458	
==>ulti sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	346	458	
==>ulti sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postci <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	346	458	
==>ulti sub nothing () is builtin is primitive is safe {
    bool::true}

multi sub not ($x) {!$x}

multi sub postci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9495	9595	
==>.p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9495	9595	
==>.p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pug <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9495	9595	
==>.p6_to_s($xx).";"));};
MULTI SUB Pugs::Internals::eval_parrot ($xx) {...};
MULTI SUB use_avoiding_pug <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2828	2962	
==>n;
    
    my $perl_version;
    ### special perl, or the one we are running under?
    if( $perl eq $^X ) {
        ### just load the <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	259	390	
==>hod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	259	390	
==>hod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2318	2435	
==>equest::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2318	2435	
==>equest::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query st <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	728	830	
==>%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf ST <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	580	700	
==>p_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	580	700	
==>p_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	580	700	
==>p_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_js_for_perl5 {
    my $ct = shift;

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1447	1575	
==>+;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1447	1575	
==>+;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1447	1575	
==>+;
    my $r = try { $c(); say "ok $count - $msg"~$st; 13 };
    say "not ok $count - $msg"~$st if $r != 13;
}

sub pass ($msg="" <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1413	1518	
==>s}{$node};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Util::blessed($node)) { <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	137	232	
==>ar_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have sp <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	137	232	
==>ar_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have sp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2042	2144	
==>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2042	2144	
==>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4295	4395	
==>cant. Defaults to 1 in Rules.

=head2 match (Str $match_against)

Instance method.  Returns a L<Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2656	2804	
==>ass               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2656	2804	
==>ass               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2656	2804	
==>ass               != $::EigenClass         ) { 
        #my $class = $self->class;
        #warn "class: $class => self: $self => class-class: " . :: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2369	2482	
==>@_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2369	2482	
==>@_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2369	2482	
==>@_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5502	5618	
==>version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5502	5618	
==>version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        lo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5502	5618	
==>version;
    $new_role->authority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        lo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12945	13148	
==>::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12945	13148	
==>::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12945	13148	
==>::p6v_isa( $res, 'Array' ) ) {
                    @res = $res->items 
                }
                else {
                    @res = ($res)
                }
                unshift @{$self->{pops}} <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1985	2119	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2178	2312	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5279	5407	
==>_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5279	5407	
==>_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5279	5407	
==>_type = 'class';
        shift @tokens;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2085	2212	
==>',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	661	770	
==>romise($a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chap <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7667	7774	
==>rn Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15331	15460	
==>ate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15331	15460	
==>ate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15331	15460	
==>ate_methods';

        # now try and find out method ...
        foreach my $class (@classes) {
            my $method_table = ::o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11176	11289	
==>Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11176	11289	
==>Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11176	11289	
==>Value::identify( $key );
    $this->{$s}[1];
    # warn "fetching " . $this->{$s}[1];
}
sub firstkey {
    my ( $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2118	2253	
==>{
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2118	2253	
==>{
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2118	2253	
==>{
	$code();
    }
}
multi sub statement_control:for (@a,$code) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	723	834	
==>@_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$ <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4203	4310	
==>0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2]) <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4203	4310	
==>0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4100	4217	
==>'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4100	4217	
==>'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4100	4217	
==>'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f : '$fn'}";
        "p6_apply(".join(",",$f <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5277	5380	
==>omp => "\t", '\T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $self->add_handler( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8350	8450	
==>event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and upda <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8350	8450	
==>event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and upda <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15281	15377	
==>following methods are available for Span objects:

- `start()` / `end()`

Return the start or end <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15281	15377	
==>following methods are available for Span objects:

- `start()` / `end()`

Return the start or end <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	117	208	
==>_[0] * 1.4656 }

# interpolierter Funktions-Aufruf
print "100£ sind @{[PoundToEuro(100)]} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11108	11245	
==>n ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11108	11245	
==>n ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11108	11245	
==>n ret;
    };

    if(idxs.length == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.len <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4511	4607	
==>nce.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4511	4607	
==>nce.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6035	6131	
==>nce.  It
takes the same optional named arguments as C<new>.

=item B<plan( Str $explanation?, Int <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2070	2193	
==>expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output. <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2070	2193	
==>expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2150	2273	
==>expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_out  = $tb_output. <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	163	277	
==>= qw/stub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => Thunk(
		Seq(
			(map { Param($_) } @para <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4047	4154	
==>he default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3904	4009	
==>he default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2925	3021	
==>ip *@arrays }

# copied from S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest - <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2935	3028	
==>>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enciphere <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2935	3028	
==>>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enciphere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4535	4644	
==>>{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4535	4644	
==>>{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PSt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4535	4644	
==>>{pilGlob} } ],
  } => "PIL";
}

sub as_js {
  my $self = shift;

  die unless $self->{pilMain}->isa("PIL::PSt <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11901	12013	
==>5\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the las <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11901	12013	
==>5\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the las <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1043	1137	
==>EXT_STRINGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is mi <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	265	362	
==>ocess involves:
# creating an *event*
# getting the *subscriptions* for it, and converting them to <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2628	2770	
==>y $self = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = {
        perl    => { required => 1, store => \$perl },
    };

    check( $ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	728	848	
==>les ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	728	848	
==>les ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1067	1171	
==>≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method pref <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1067	1171	
==>≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method pref <==
3	/Users/nnunley/pugs/util/run-smoke.pl	3309	3453	
==>ire "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency\n";
        warn "($@)\n" if $@ and $@ !~ /Can' <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	705	828	
==>agnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.cr <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	705	828	
==>agnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.cr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5694	5783	
==>_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize $event<object>}+ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5694	5783	
==>_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize $event<object>}+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15501	15619	
==>ble_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15501	15619	
==>ble_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15501	15619	
==>ble_name);
            return $method_table->{$label}->($self, @{$args}) 
                if  exists $method_table->{$l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2161	2268	
==>ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2172	2279	
==>ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37994	38136	
==>lf = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{neg} ? 'not' : 'and';
  }

And finally, the small <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12239	12360	
==>thod in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TO <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12233	12354	
==>thod in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TO <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1540	1737	
==>, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('li <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1540	1737	
==>, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('li <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	21718	21829	
==>@*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$module} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35767	35901	
==>=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35767	35901	
==>=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35767	35901	
==>=pop length -> head=remaining -> body=shift tail until body == length
            # make $#body = $length
            my $tail = $class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2957	3076	
==>< String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.ab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2957	3076	
==>< String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.ab <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2957	3076	
==>< String(b) ? -1 : String(a) == String(b) ? 0 : 1",
  "prefix:«-»",   1, "N", "-a",
  "abs",          1, "N", "Math.ab <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20975	21238	
==>e( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20975	21238	
==>e( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20975	21238	
==>e( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Scalar->new();
                            $scalar- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	179	286	
==>6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$D <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	179	286	
==>6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$D <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	179	286	
==>6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use Data::Dumper;
$Data::Dumper::Indent = 1;
$D <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10335	10439	
==>it should
    # support asynch/exclusive/other stuff. For lots of discussion but no final
    # spec, see <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4764	4861	
==>bject.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The follow <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4764	4861	
==>bject.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The follow <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13294	13414	
==>( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13288	13408	
==>( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $c <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	269	365	
==>:Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	269	365	
==>:Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref <==
3	/Users/nnunley/pugs/util/package-osx.pl	1850	1939	
==>l5/site_perl/pugs-smokejs.pl /Library/Perl/5.8.6/pugs-smokejs.pl
        /usr/local/lib/pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	508	616	
==>lti sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	508	616	
==>lti sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	508	616	
==>lti sub infix:<|> (*@x) { any(@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1117	1217	
==>your object belongs to a
package that is too close to the main namespace for your tastes, and
you wan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1117	1217	
==>your object belongs to a
package that is too close to the main namespace for your tastes, and
you wan <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1117	1217	
==>your object belongs to a
package that is too close to the main namespace for your tastes, and
you wan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1718	1822	
==>_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remain <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2153	2257	
==>_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remain <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2587	2691	
==>_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remain <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38249	38345	
==>roup>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42798	42894	
==>roup>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42448	42544	
==>roup>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	429	539	
==>g macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supported by p5 by defaul <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	407	513	
==>g macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supported by p5 by defaul <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2086	2190	
==>$mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z::oop{$id} = {ops=>[unde <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8839	8974	
==>include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
} <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11175	11273	
==>eturns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11175	11273	
==>eturns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17323	17444	
==>ses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17323	17444	
==>ses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17323	17444	
==>ses), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5382	5523	
==>~ /^v5/ ) {
                return "warn 'use v5 - not implemented'";
            }
            if ( $n->{param}{sub}{bareword} eq 'v6' ) { <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1255	1368	
==>! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
} <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1255	1368	
==>! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5650	5752	
==>gine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) datab <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5650	5752	
==>gine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) datab <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16159	16260	
==>_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains potential unsafe chara <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1052	1163	
==>e of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY> <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1052	1163	
==>e of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY> <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2269	2387	
==>, MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quot <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2269	2387	
==>, MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quot <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	399	501	
==>ct::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = sh <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8819	8936	
==>t(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8819	8936	
==>t(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3577	3683	
==>_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3577	3683	
==>_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $par <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4167	4273	
==>_name};
	if (my $current = delete $named_arg->{$param_name}) {
	    # XXX: handle array concating
	    $par <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3007	3125	
==>else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3007	3125	
==>else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2170	2306	
==>=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2170	2306	
==>=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # b <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2517	2653	
==>=head1 SYNOPSIS

  use Data::Bind;

  # bind simple variables
  sub foo {
    my $y = 10;
    my $x;

    bind_op('$x' => $y);
  }

  # b <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4913	5013	
==>y valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4913	5013	
==>y valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6437	6537	
==>y valid arguments.

You must have a plan set before you can record any tests.

=item B<ok returns Bit <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50267	50385	
==>l->new('$:authority'), $e->get('?$authority'));
                  }));
                $e->get('$self:')->get_attr(symb <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8701	8796	
==>um_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8759	8854	
==>um_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2019	2188	
==>s
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2019	2188	
==>s
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35220	35323	
==>s its sole read-only argument. The new
Relation::Example has all of the same attributes as the original. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1061	1199	
==>atch \n"; 
            
            # XXX @expect should use symbolic names; better use TABLE instead of 'literal'
            #print " @{[ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1351	1485	
==>my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1351	1485	
==>my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	422	531	
==>readonly () returns Num
    { 3.14159_26535_89793_23846_26433_83279_50288_41971_69399_37510_58209_74944_5923 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16754	16852	
==>n), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16754	16852	
==>n), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next t <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	347	457	
==>:?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d): <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3083	3201	
==>s in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3083	3201	
==>s in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3083	3201	
==>s in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^[\&\$\@\+\%\:] <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1994	2105	
==>cope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{param <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14514	14624	
==>cope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9760	9884	
==>> $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9760	9884	
==>> $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9760	9884	
==>> $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->elems->unboxed <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2457	2566	
==>cessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2457	2566	
==>cessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2457	2566	
==>cessary any longer, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3026	3125	
==>elems, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Array::shift := &Array:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4371	4469	
==>amespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4371	4469	
==>amespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4371	4469	
==>amespace");

Finds all blessed objects refered to by $myobj and reblesses them into
New::Namespace. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7020	7179	
==>sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6785	6939	
==>sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1402	1512	
==>s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1402	1512	
==>s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1402	1512	
==>s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel-base=s" => \$PIL2JS::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	482	596	
==>e outside of this function
      // and refer to it via the closure, then things don\'t work right
      // --the o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	482	596	
==>e outside of this function
      // and refer to it via the closure, then things don\'t work right
      // --the o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	482	596	
==>e outside of this function
      // and refer to it via the closure, then things don\'t work right
      // --the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20227	20336	
==>go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20227	20336	
==>go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20227	20336	
==>go about our dispatching ....      
        return ::dispatcher($self, $label, \@_, ($autoload[0] eq 'class' ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	138	260	
==>later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	138	260	
==>later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	138	260	
==>later.
# Why not simply use * here too? Because we don't want to overwrite core subs
# (&defined, &time, operators, etc.) w <==
3	/Users/nnunley/pugs/examples/advocacy/Motd.pm	890	1011	
==>ms
}

sub addtolist ($x){
    " $x,";    
}

sub append_last ($x,$string is rw,$pass){
    if $pass > 2 {
        chop $st <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	915	1022	
==>s ;      Code *&test  ) returns Lazy
 multi sub Array::grep (@values,   MatchTest $test  ) returns Lazy
 mul <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13124	13243	
==>eturn $prev_generic;
	}
}

# the type of the function the arrow operator, applied to the type of the parameter (as alloc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14097	14201	
==>= ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17574	17678	
==>= ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my R <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8326	8476	
==>ring(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wrap $k?
            }
            $A.p <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5195	5292	
==>his module:

=over 3

=item get($url)

The get() function will fetch the document identified by th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5195	5292	
==>his module:

=over 3

=item get($url)

The get() function will fetch the document identified by th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	923	1023	
==>ir->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	923	1023	
==>ir->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	923	1023	
==>ir->unboxed returns two objects.
#   - Ref->referred - returns the referred object
#   - removed meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13844	14025	
==>)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13844	14025	
==>)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13844	14025	
==>)
                # given an index $i = 1
                #   get $list[$i] == 5
                #   ignore request if index == undef
                #   store/fetch from array[$list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	551	673	
==>create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	551	673	
==>create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot cr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	551	673	
==>create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defined $class) 
            || confess "Cannot cr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9690	9788	
==>override these
method _head() returns Array { return }
method _tail() returns Array { return }

# W <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9690	9788	
==>override these
method _head() returns Array { return }
method _tail() returns Array { return }

# W <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7169	7266	
==>{
    my(%c)=@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw(name kind params body l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1974	2074	
==>d_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1974	2074	
==>d_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1974	2074	
==>d_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2164	2373	
==>::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3440	3557	
==>ined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_o <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3440	3557	
==>ined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15876	15992	
==>ueue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # R <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15876	15992	
==>ueue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # R <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2689	2788	
==>ys }
# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13747	13875	
==>h_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13747	13875	
==>h_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13747	13875	
==>h_cache{${$::ARGS->[2]->[1]}}->{$::ARGS->[0]}->[1];
                            # class
            $dispatcher = ${$::ARGS->[2]- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12247	12365	
==>ment_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8523	8641	
==>ment_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9358	9476	
==>ment_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$ast->{tail} . \"'\\n\"\n" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1598	1706	
==>> \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1598	1706	
==>> \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1598	1706	
==>> \my $compile_only,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5382	5504	
==>ta, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11037	11159	
==>ta, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1552	1659	
==>mic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blondie::Node::Unit <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1829	1932	
==>pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1829	1932	
==>pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1829	1932	
==>pop();
    var a = args[0].FETCH(), b = args[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15762	15858	
==>ill
be able to produce HTML output that color-codes the elements of the regex
according to a styl <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	176	271	
==>efines some p6 implementations).
# To contribute, just scroll down until pod lines start appeari <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11160	11251	
==>"universal set" recurrence object.

- `complement()`

Returns everything (from the universal <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11160	11251	
==>"universal set" recurrence object.

- `complement()`

Returns everything (from the universal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4773	4866	
==>e mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4773	4866	
==>e mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4773	4866	
==>e mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cwd) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1002	1116	
==>->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1002	1116	
==>->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1002	1116	
==>->fixup,
    } => "PIL::NamedPair" } => "PIL::PLit";
    return $pair->fixup;
  }

  return bless {
    pCxt  => $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2802	2925	
==>p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($lin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2802	2925	
==>p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($lin <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2802	2925	
==>p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { p6_repl_print_help(); next;}
        if ($lin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13200	13328	
==>ven though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13200	13328	
==>ven though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13200	13328	
==>ven though
        # it will not be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Cl <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16761	16855	
==>tained application in
Rosetta D and compile that into its own executable, in practice one would <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16761	16855	
==>tained application in
Rosetta D and compile that into its own executable, in practice one would <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6460	6552	
==>calar::Util::blessed($type) and $type->isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12918	13040	
==>o be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12918	13040	
==>o be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12918	13040	
==>o be moved to Primitives:
            #     elems, is_infinite, is_lazy, is_contiguous, flatten, grep, ...
        },
    } <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	10505	10597	
==>riable::free->new;
		my $l = type::operator::nary->new(list => $a);
		type::operator::arrow-> <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2148	2257	
==>t > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{syncat} = PGE_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	829	933	
==>bj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	829	933	
==>bj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22037	22128	
==>x1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22037	22128	
==>x1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22037	22128	
==>x1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_s($xx0), map{p6_to_s($_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2934	3034	
==>{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2934	3034	
==>{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2934	3034	
==>{tpParam}{isOptional} }
  sub is_invocant { $_[0]->{tpParam}{isInvocant} }
  sub name        { $_[0]- <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	15072	15170	
==>o........' leader for the given C<$test_file> as well
as a similar version which will overwrite the <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10608	10752	
==>st'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38582	38724	
==>st'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5120	5255	
==>lass_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5120	5255	
==>lass_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5120	5255	
==>lass_attribute ($) {
    #     my ($name) = @_;
    #     (defined $name)
    #         || confess "You must provide a name for the attr <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9519	9618	
==>trd_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m", "0", "-F", $initrd_img } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	545	641	
==>forms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

= <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	545	641	
==>forms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1530	1632	
==>ment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primiti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1530	1632	
==>ment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primiti <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1530	1632	
==>ment, .decrement to Primitives (this will break some tests)
# TODO - move Num::Inf, Num::NaN to Primiti <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1745	1873	
==>values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5222	5350	
==>values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$headin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4152	4280	
==>values -> $tuple {
        die "The keys of a member of arg :$body? do not match the members"
                ~ " of arg :$headin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2438	2603	
==>$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2438	2603	
==>$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2438	2603	
==>$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$.unboxed' => $x->unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3788	3880	
==>:Dumper $self;
}));

## --------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3788	3880	
==>:Dumper $self;
}));

## --------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3788	3880	
==>:Dumper $self;
}));

## --------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	220	313	
==>g/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	220	313	
==>g/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Packa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	220	313	
==>g/gmane.comp.lang.perl.perl6.language/4599 for 
## more info on the Class isa Module isa Packa <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	107	202	
==>/, __PACKAGE__)).'.pm'};
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3794	3889	
==>ariables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3978	4073	
==>ariables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3620	3728	
==>tional invocant named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14780	14875	
==>efault is "\n".  Embedded "\n" characters in header field
values will be substituted with this l <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14780	14875	
==>efault is "\n".  Embedded "\n" characters in header field
values will be substituted with this l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8516	8661	
==>n sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12426	12568	
==>n sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12426	12568	
==>n sub { 
            #print "into subrule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	210	312	
==>MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	104	206	
==>MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install:: <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	451	551	
==>(Class.new("SomeClass"));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Ever <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	124	228	
==>$body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	124	228	
==>$body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	124	228	
==>$body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7481	7575	
==>);

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7481	7575	
==>);

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7481	7575	
==>);

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(sub {
    my @ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	114	521	
==>)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relati <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	720	833	
==>b constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	720	833	
==>b constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8801	8898	
==>er->parse($new_regex);

Again, $ok will be false if a fatal error was raised in the inital scan
of <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1459	1558	
==>{
    #chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$cwd/wi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24487	24580	
==>mand is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=he <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24487	24580	
==>mand is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=he <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	62	170	
==>d name() { return "Otto"; } # überflüssig
}
class Welt {
	method hallo ( Person $person ) {
		"Hallo, {name <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	256	354	
==>Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blond <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	329	427	
==>Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blond <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2278	2376	
==>his until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUIL <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2278	2376	
==>his until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUIL <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17904	18060	
==>terally say 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	845	943	
==>[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	845	943	
==>[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8962	9209	
==>ram[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8962	9209	
==>ram[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8962	9209	
==>ram[0]->nextkey;
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6776	6878	
==>p tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

= <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6776	6878	
==>p tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8973	9075	
==>p tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=back

=back

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3395	3515	
==>> $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->()) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3395	3515	
==>> $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->()) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3395	3515	
==>> $a);
			}));
			if($build) {
			    $MM->add_method('BUILD' => ::make_submethod(sub{
				shift;
				_($a => $build->()) <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3007	3110	
==>est_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3007	3110	
==>est_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3087	3190	
==>est_diag( "The test failed!" );
  $Test.ok( 0, 'Goodbye' ) || $Test.diag( 'The test failed!' );
  test_t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2385	2480	
==>reated the HTML-ified ecma-262, without which
#  this grammar would likely not have been written <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12354	12446	
==>attribute defaults to empty if the parameter's
corresponding argument is undefined).  The new <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12354	12446	
==>attribute defaults to empty if the parameter's
corresponding argument is undefined).  The new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1935	2042	
==>in "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @componen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1935	2042	
==>in "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @componen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1935	2042	
==>in "\n",
    $load_check,
    (bless $tree => "PIL")->as_js;
  unslurp $output, $js;
} else {
  my @componen <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	876	1025	
==>split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	876	1025	
==>split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3523	3639	
==>ll::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Im <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3523	3639	
==>ll::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Im <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3523	3639	
==>ll::untie {
    $_[0]{tied} = undef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Im <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22034	22162	
==>Y();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22034	22162	
==>Y();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	22034	22162	
==>Y();
        }
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 NAME

chaos

=head1 DESCRIPTION

=head1 A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4228	4334	
==>calar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4228	4334	
==>calar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4228	4334	
==>calar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$class_description => {
    is => [ $: <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3647	3761	
==>omments
#    $file =~ s/#(.*)$/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8459	8555	
==>=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D langua <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8459	8555	
==>=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D langua <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9410	9548	
==>d =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9410	9548	
==>d =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9410	9548	
==>d =>    sub { $count--; return if $count < 0; $item },
        celems =>  sub { $count },
    );
}

sub from_single {
    my $class = shift <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4628	4728	
==>d TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4628	4728	
==>d TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6825	6925	
==>d TODO tests and should contain
a string describing why the test is a skip or TODO test.

=item C<?$d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1089	1199	
==>, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1089	1199	
==>, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1089	1199	
==>, @things);
}

method JS::Root::push($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(funct <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4023	4192	
==>super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1043	1144	
==>works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1043	1144	
==>works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36194	36306	
==>le of the <$other> relation,
then where each member of a tuple pair has attribute names in common,
eliminating pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40743	40855	
==>le of the <$other> relation,
then where each member of a tuple pair has attribute names in common,
eliminating pa <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40357	40469	
==>le of the <$other> relation,
then where each member of a tuple pair has attribute names in common,
eliminating pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	988	1091	
==>colon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	988	1091	
==>colon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3725	3832	
==>ators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3725	3832	
==>ators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3725	3832	
==>ators;

# XXX! EVIL HACK! !!! When stringifying the pair (a => 1), and we'd name the
# parameters $a and $b, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	45	155	
==>a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	45	155	
==>a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1], <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	45	155	
==>a, Int $b = chars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1], <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16654	16780	
==>sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16933	17059	
==>sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26497	26585	
==>age::Prolog::Yaswi qw(:query :interactive :load :assert :context :run);
#$Language::Prolo <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	588	738	
==>d attribute C3
        /;
    
    sub new { bless \(my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Per <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	945	1047	
==>ead = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return B <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	945	1047	
==>ead = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return B <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6769	6867	
==>nts

For each POD element, an event is fired, the first argument to all these events is
the C<$even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6769	6867	
==>nts

For each POD element, an event is fired, the first argument to all these events is
the C<$even <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15131	15245	
==>s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15131	15245	
==>s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15131	15245	
==>s($j6);
    my @b = map{my $x = $_;
		p6_isa($x,'Array')
		    ? (map{p6_to_s($_)}@{p6_to_a($x)})
		    : p6_to_s($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16682	16807	
==>ometimes
        $results =~ s/\n\n/\n/g;
    }

    my $pass = $resolve->($results);
    unless ($pass) {
        _diag "# PR <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16795	16889	
==>d compile that into its own executable, in practice one would
normally just write some componen <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16795	16889	
==>d compile that into its own executable, in practice one would
normally just write some componen <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1772	1873	
==>dent -1);
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	902	1001	
==>L::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	902	1001	
==>L::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.ge <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	902	1001	
==>L::SUBCOROUTINE } @PIL::IN_SUBLIKES;
    return bless {
      pVarName => PIL::RawJS->new("PIL2JS.ge <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	441	548	
==>jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLAS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	441	548	
==>jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLAS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	441	548	
==>jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS_CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	872	973	
==>reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	872	973	
==>reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	872	973	
==>reference!");
    }

    cc(new PIL2JS.Box.Constant(thing.autoderef));
  })')($ref);
}

method tied(Re <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	21738	21850	
==>tat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest name string for for <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	359	593	
==>redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.Contro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	359	593	
==>redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.Contro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	359	593	
==>redo) {
                  redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.Contro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5870	5981	
==>urns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9347	9458	
==>urns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	16903	17074	
==>sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	16903	17074	
==>sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	16903	17074	
==>sub  { 
                my $array = shift; 
                my $n = $array->elems->unboxed;
                $n = 10E9 if $n == &Inf;
                return $array->fetch( i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2645	2732	
==>run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2645	2732	
==>run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2645	2732	
==>run_pil2js("--link=html", "~METAMODEL", "~".jsprelude_path(), "~$cfg{preludepc}", "~$cfg <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1490	1606	
==>$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced::e) ** $exponent) instead?
     Pugs::Internals::e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8414	8515	
==>perator to the category.

options:

=item * name => $operator_name - the name of this operator, su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5954	6051	
==>perator to the category.

options:

=item * name => $operator_name - the name of this operator, su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25856	25988	
==>t;
    "(??{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	5	95	
==>r/bin/perl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	5	95	
==>r/bin/perl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl' <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14368	14464	
==>ession><no_LineTerminator_here><'--'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixE <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1065	1159	
==>tr $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $f <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1065	1159	
==>tr $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $f <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23512	23606	
==>re more specific to
their own objects, for efficiency, and they can optionally extend the
Relat <==
3	/Users/nnunley/pugs/util/claim_drift.pl	348	449	
==>d $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sitelib} =~ /([\/\\])/)
       or die "Can't de <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10728	10816	
==>_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10728	10816	
==>_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new( <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15710	15816	
==>n sec picosec wday yday tzname tz is_dst>; # XXX: this should be a class variable!
        #Time::Local.new <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2337	2439	
==>es to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the autho <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2337	2439	
==>es to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the autho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36483	36579	
==>y two source relations are
combined is inconsequential.  A trivial case is where C<@others> is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41032	41128	
==>y two source relations are
combined is inconsequential.  A trivial case is where C<@others> is an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40646	40742	
==>y two source relations are
combined is inconsequential.  A trivial case is where C<@others> is an <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1493	1592	
==>ludes the parameters as well as anything declared within

that scope.



the Sig contains a simply s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1431	1527	
==>ludes the parameters as well as anything declared within
that scope.

the Sig contains a simply s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14326	14421	
==>sing right brace on \%s{}

=item RPe_BGROUP (-21)

Reference to nonexistent group

=item RPe_ESL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7055	7192	
==>ro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7055	7192	
==>ro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7055	7192	
==>ro',
                                        'Code');
    my $var = '$_codes_{'.int(rand(100000000)).'}';
    "(do{no strict;(defined($var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4986	5096	
==>oreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4986	5096	
==>oreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4986	5096	
==>oreach my $role (@{$self->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1156	1260	
==>/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1156	1260	
==>/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sp <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1156	1260	
==>/^.*?new PIL2JS.Box.Constant\((".*")\)$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2693	2787	
==>cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher( <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2693	2787	
==>cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7278	7368	
==>ept instantiated variables, which delegate. see below)
multi unify => ( 'type::variable::fr <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2402	2518	
==>l => 'some/perl/binary' );

C<_perl_version> returns the version of a certain perl binary.
It does this by actually r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3398	3507	
==>eys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6875	6984	
==>eys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mappin <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5832	5941	
==>eys ) === any( $!heading ));
    die "Some values of $mapping! duplicate each other."
        if +all( $mappin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1186	1303	
==>X::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1186	1303	
==>X::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1186	1303	
==>X::subnodes_of($n));
        }
    }
    $code;
}
package PNil; sub expand {""}
package VInt; @ISA = qw(EvalX::BaseCla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14067	14203	
==>{flags};
      $self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # boun <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	888	1105	
==>x/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso86 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1474	1583	
==>s Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1474	1583	
==>s Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2891	3010	
==>.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2891	3010	
==>.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2891	3010	
==>.map:{ $self{$_} } can't work, as map returns new containers.
    # (I think.)
    my @res;
    @res[+@res] := $self{$_} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6444	6647	
==>d -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6444	6647	
==>d -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6444	6647	
==>d -= $step
            }
            else {
                $end--
            };
            return $r;
        },
        celems =>  sub {
            # warn "ELEMS $end - $start = ".($end - $start + 1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	390	500	
==>S.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	390	500	
==>S.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	390	500	
==>S.Context.ItemAny ]).FETCH();
      },
      function (n) {
        PIL2JS.cps2normal(store, [ PIL2JS.Context.I <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4528	4637	
==>e with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @res <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4528	4637	
==>e with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @res <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	8825	8927	
==>e {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relative_file = abs2rel($input_pat <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24183	24309	
==>> sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20604	20730	
==>> sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	27	138	
==>.pl';
use Data::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Junc.pm	214	333	
==>w PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Junc.pm	214	333	
==>w PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Junc.pm	214	333	
==>w PIL2JS.Junction.{ucfirst $type}(args[1].FETCH())
        ));
      \})')(\@vals);
    \}
  ";
}

our &infix:<|> = &JS: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1131	1257	
==>f $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        boo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1085	1205	
==>f $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        boo <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7527	7636	
==>values; # the children of the seq child of the thunk
			my $last = pop @children_of_seq;

			my @params = grep <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6936	7042	
==>fix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6936	7042	
==>fix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is cop <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6936	7042	
==>fix:<=>    ($a is rw, $b) is primitive is rw { $a = $b }

sub prefix:<[.{}]> (*$head is copy, *@rest is cop <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15818	15930	
==>s
    .param string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = new .Excepti <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	588	693	
==>al packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # At <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	588	693	
==>al packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # At <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9948	10049	
==>{ %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9948	10049	
==>{ %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6293	6392	
==>er in the Unicode categories "Uppercase letter (Lu)",
      # "Lowercase letter (Ll)", "Titlecase le <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3956	4091	
==>_->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKAGE__ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5621	5712	
==>ator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5621	5712	
==>ator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( s <==
3	/Users/nnunley/pugs/util/build_pugs.pl	4689	4817	
==>s[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_f <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10685	10781	
==>rence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10685	10781	
==>rence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9010	9132	
==>my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9010	9132	
==>my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9010	9132	
==>my $n6p = $p->{'tpParam'}{'paramName'};
        my $n5  = '$'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurp <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	24627	24764	
==>($max) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $s <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2609	2736	
==>dn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_v <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2609	2736	
==>dn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	675	798	
==>e senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	675	798	
==>e senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	675	798	
==>e senses. 
#
#   If it looks like a Duck, smells like a Duck, tastes like a Duck
#   feels like a Duck and quacks like a Duc <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1978	2087	
==>{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap. 

>   The world was yo <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10230	10329	
==>empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATOR <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10230	10329	
==>empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATOR <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23058	23159	
==>alues.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27610	27711	
==>alues.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26387	26488	
==>alues.  Each Mapping key of a Body tuple must match a
Set member of Heading, and the value of every tu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11356	11550	
==>Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11356	11550	
==>Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        meth <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11356	11550	
==>Array';
                            return $cell;
                        } } ] ],
        DESTROY => sub {
            # _('$:cell' => undef); # XXX - MM2.0 gc workaround
        },
        meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6732	6905	
==>oxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6732	6905	
==>oxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6732	6905	
==>oxed') ) ) },
            'perl' => sub { 
                my $tmp = _('$.unboxed');
                $tmp =~ s/(\\|\')/\\$1/g;  # quote ' \
                return Str->new( ' <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6100	6231	
==>8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6100	6231	
==>8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4369	4508	
==>y @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $dire <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4357	4496	
==>y @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $dire <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	301	423	
==>ch my $method ( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift()->_top->$method(@_);
        } u <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10004	10107	
==>Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_templat <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10004	10107	
==>Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_templat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	858	957	
==>bj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	858	957	
==>bj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	858	957	
==>bj = $c.get_attribute($attr);
            %attrs{$attr} = instantiate_attribute_container($attr_obj) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14244	14347	
==>array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as_perl5 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14482	14578	
==>ternally uses the C<scan> method to build the string, the result
will use case as suggested by HT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14482	14578	
==>ternally uses the C<scan> method to build the string, the result
will use case as suggested by HT <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	36	139	
==>IPC::Open2;
use Getopt::Long;
use Config ();

# helper code to inline the Standard Prelude in pugs.

# S <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3074	3175	
==>set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @inter <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3074	3175	
==>set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @inter <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10028	10185	
==>%!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10028	10185	
==>%!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	13215	13450	
==>, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             faile <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15315	15412	
==>r interactive systems.

If the program or any of its components are intended for widespread use
th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15315	15412	
==>r interactive systems.

If the program or any of its components are intended for widespread use
th <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4151	4282	
==>>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_c <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4151	4282	
==>>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_c <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14249	14339	
==>$f,
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->ne <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31664	31757	
==>ys of C<$attrs>
duplicate attribute names of the invocant Relation::Example.

=item C<wrap ( M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	668	787	
==>n } or a fail(),

           and it should not backtrack or whatever



Continuations are used for backtracking.



A "r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10536	10655	
==>n } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	641	755	
==>n } or a fail(),
           and it should not backtrack or whatever

Continuations are used for backtracking.

A "r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	862	972	
==>utes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	862	972	
==>utes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	862	972	
==>utes that were defined
    # for the instances.
    my %attrs;
    my $dispatcher = $class->dispatcher(':descen <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9225	9364	
==>=> 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9225	9364	
==>=> 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2173	2275	
==>er::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5314	5426	
==>iderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5314	5426	
==>iderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5314	5426	
==>iderMonkey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9077	9182	
==>::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9077	9182	
==>::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9077	9182	
==>::= ::*::;
  if($str =~ /^&\*?JS::Root::(.+)$/) {
    $str = "&main::$1";
  # ::JS::native_js_function
  } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7373	7475	
==>dler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7373	7475	
==>dler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5953	6046	
==>ng design doc index
unless($no_designdocs) { 
    my $syn_index = catfile($output_dir,"Synopsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13046	13156	
==>} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13046	13156	
==>} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13046	13156	
==>} || 'instance') . " ($_[0])";   

            $_normal_dispatch_cache{$class} = { $_[1] => [ $method, $dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2991	3104	
==>[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2991	3104	
==>[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2991	3104	
==>[+@res] := $self{$_} for $self.keys;
    @res;
  } elsif $self.isa("Pair") {
    ($self.value,);
  } elsif $self.i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13455	13590	
==>elf->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13455	13590	
==>elf->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13455	13590	
==>elf->{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value:: <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	720	865	
==>$mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1;
    } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5369	5486	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5562	5679	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_w <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4220	4328	
==>n" ],
      [ 'file21', $file21, "11th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15757	15853	
==>S and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdm <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15757	15853	
==>S and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdm <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17811	17964	
==>'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18090	18243	
==>'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	791	920	
==>($table) = @_;
    my $self;
    $self = bless sub {
        my $message = shift;
        return $table  if $message eq 'message-m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6116	6218	
==>sed to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wi <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6116	6218	
==>sed to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1869	2027	
==>tance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2074	2232	
==>tance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2137	2295	
==>tance of the Class class >
        \$Class,
        (
            '$:name'        => '',
            '$:superclass'  => undef,
            '%:attributes'  => [ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1612	1714	
==>$ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Test/lib b <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11408	11502	
==>suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expe <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11466	11560	
==>suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expe <==
3	/Users/nnunley/pugs/util/graphfuncs.pl	761	874	
==>f ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sort ke <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1071	1171	
==>ILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUI <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1071	1171	
==>ILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	110	227	
==>LD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Req <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	110	227	
==>LD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Req <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5868	5983	
==>Regex->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11206	11319	
==>the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11206	11319	
==>the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1914	2042	
==>equest.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute bas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1914	2042	
==>equest.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute bas <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7053	7178	
==>ug";
  }
}
{
  # \s \S
  package Regexp::Parser::space;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3325	3434	
==>que_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in syn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3325	3434	
==>que_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in syn <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3325	3434	
==>que_instance_class($class);
    }      
}));

# NOTE: This needs to be here to keep the Eigenclass name in syn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4158	4278	
==>ames to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to sear <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4158	4278	
==>ames to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to sear <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9922	10115	
==>calar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9922	10115	
==>calar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9922	10115	
==>calar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @s;
                for (my $i = 0; $i < @{ $self->params }; $i <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1701	1799	
==>from there; that will create the
'nmake.exe' file needed by this module.

You may then resume the i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1541	1639	
==>from there; that will create the
'nmake.exe' file needed by this module.

You may then resume the i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43369	43466	
==>lementation of a Relation class.

These other Perl 6 packages also work in the problem domain of m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6518	6618	
==>->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6518	6618	
==>->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6518	6618	
==>->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str->new('$.unboxed' => @arg) if $type eq 'S <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7653	7821	
==>ys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %app<"pArgs"> {
            push @args, traverse_ast ( $_[0][1][0][1] );
        }
        dbg "# Arg <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3120	3222	
==>PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod B <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3120	3222	
==>PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod B <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3953	4114	
==>q[tar --exclude $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar - <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	653	750	
==>str( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	653	750	
==>str( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18776	18892	
==>$xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18776	18892	
==>$xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18776	18892	
==>$xx0->unboxed ) {
        return p6_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	115	223	
==>eeded to emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	115	223	
==>eeded to emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	115	223	
==>eeded to emulate Perl's
# "the return value of a sub is the value of the last expression evaluated":
#   (fun <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9705	9826	
==>tion."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficie <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13182	13303	
==>tion."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficie <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12454	12575	
==>tion."
        if !(all( $other!heading ) === any( $!heading ));

    # First look for trivial cases that are more efficie <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16306	16418	
==>s_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - w <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34457	34553	
==>rray ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some e <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34457	34553	
==>rray ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some e <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2563	2659	
==>~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2563	2659	
==>~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2563	2659	
==>~^»",  1, "S", "$mapStr({ "255 - $^ord" }, "String(a)")",
  "prefix:«+^»",  1, "N", "~Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13048	13165	
==>_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13048	13165	
==>_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1158	1259	
==>gs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1158	1259	
==>gs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1158	1259	
==>gs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{preludepc},
  "p6prelude=s"   => \ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14932	15061	
==>p() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14932	15061	
==>p() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->pus <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14932	15061	
==>p() must be a Code" unless Perl6::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->pus <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23300	23416	
==>owed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
future where "Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27852	27968	
==>owed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
future where "Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26647	26763	
==>owed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the near
future where "Relation <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15414	15512	
==>ected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) re <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15472	15570	
==>ected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) re <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6842	7030	
==>domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0 <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6842	7030	
==>domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2759	2906	
==>] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2654	2793	
==>] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2516	2617	
==>o enter
      commands requiring root privilegies.

Note: The only option you'll have to specify is pr <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7273	7401	
==>zy )
{
    gather {
	for @values -> $x {
	    take $x if &test($x);
	}
    }
}
# signature from S29draft.pod 8655.  In the List s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10429	10525	
==>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10429	10525	
==>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	962	1103	
==>g));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	962	1103	
==>g));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Te <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	962	1103	
==>g));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].nodeType == 3 /* Te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	712	817	
==>ly_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=hea <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	712	817	
==>ly_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3807	3990	
==>, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3807	3990	
==>, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3807	3990	
==>, 
        'tie' =>     sub { 
            shift; 
            _('$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2060	2247	
==>rn;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Mes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2060	2247	
==>rn;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13555	13693	
==>= $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13555	13693	
==>= $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13555	13693	
==>= $array->clone; 
    Perl6::Value::List->new(
        sum => sub { 
            my $sum = $ret->sum;
            $sum += $_->sum for @list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8355	8446	
==>=====================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8355	8446	
==>=====================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8355	8446	
==>=====================

use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4827	4968	
==>erl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4827	4968	
==>erl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4827	4968	
==>erl6::Type->new( 
                    name => 'Hash', 
                    match => sub { ref($_[0]) eq 'HASH'  || ref($_[0]) eq 'Hash' || ref <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12674	12797	
==>=>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12674	12797	
==>=>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12674	12797	
==>=>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->shift },
            'pop' =>   sub { _('$.unboxed')->p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2499	2618	
==>act;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1656	1766	
==>act;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17951	18046	
==>ll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17951	18046	
==>ll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	457	574	
==>X: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	457	574	
==>X: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	457	574	
==>X: probably returning the var
    return;
}

sub bind_op2 {
    my ($a, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11018	11111	
==>PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make sm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11018	11111	
==>PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make sm <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11018	11111	
==>PIL-Run/lib6 to \@INC to avoid using non-working normal Test.pm in make test-perl5 and make sm <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12337	12497	
==>f (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12337	12497	
==>f (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my metho <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	780	886	
==>ta as p5
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35462	35552	
==>method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40012	40102	
==>method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<pr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39572	39662	
==>method has aliases named
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22346	22442	
==>rnings to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags now evoke "Useless ..." w <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11797	11892	
==>r the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11855	11950	
==>r the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10202	10316	
==>(or be replaced by
    # it, since that would probably be faster)

    # also, the signature for this sub is nowher <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5206	5312	
==>pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5026	5127	
==>pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compil <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	909	1054	
==>r @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = ur <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	909	1054	
==>r @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = ur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2094	2204	
==>e v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2094	2204	
==>e v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	52	146	
==>se base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::Escape qw/quote printable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	894	996	
==>ns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	894	996	
==>ns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referre <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	894	996	
==>ns the unboxed value
#     Pair->unboxed returns two objects.
#   - Ref->referred - returns the referre <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	86	223	
==>llow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content = <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	86	223	
==>llow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	22	127	
==>f Test::More functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $noplan;

$TODO = <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	987	1079	
==>($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	987	1079	
==>($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	445	551	
==>rks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	445	551	
==>rks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	445	551	
==>rks
# * Migrated to MetaModel-2 (putter)
#
# 2005-09-03
# * Fixed Pair stringification
#
# 2005-09-01
# * A <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8098	8198	
==>)>

This event is fired once the last '=item' directive, followed by any text on the same line.

=ite <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8098	8198	
==>)>

This event is fired once the last '=item' directive, followed by any text on the same line.

=ite <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7489	7584	
==>-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @p <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11161	11307	
==>est and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch: $src <=> $dest" ; return };
      }
      1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18578	18687	
==>-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->obje <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19936	20045	
==>-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	571	676	
==>$ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	571	676	
==>$ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	571	676	
==>$ENV{DISABLE_RULE_TESTS} && $ARGV[2] =~ /rules/) {
    my $tests = get_plan_count($ARGV[2]);
    print "1. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6095	6239	
==>{
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6095	6239	
==>{
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6095	6239	
==>{
    if $i > @a.end {
      push @ret, @b[$i];
    }
    elsif $i > @b.end {
      push @ret, @a[$i];
    }
    else {
      push @ret, $op(@a[$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	740	839	
==>ilehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( S <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	740	839	
==>ilehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1296	1395	
==>ilehandle to which to write all diagnostic output.

=back

=head1 METHODS

=over 4

=item B<write( S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	837	936	
==>("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	837	936	
==>("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	837	936	
==>("Can't yield outside a coroutine!")
      unless grep { $_ == PIL::SUBCOROUTINE } @PIL::IN_SUBLIKES <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5512	5616	
==>f
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5512	5616	
==>f
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind:: <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6102	6206	
==>f
	if ($self->is_writable) {
	    lexalias($lv, $self->container_var, $var);
	}
	else {
	    Data::Bind:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	630	758	
==>t);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	630	758	
==>t);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  pac <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	630	758	
==>t);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4017	4124	
==>\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4017	4124	
==>\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4017	4124	
==>\t> Currently looking in id($current) for ($label)" if $DISPATCH_TRACE;
            if ($current->has_method <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1123	1239	
==>e accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute ac <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1123	1239	
==>e accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute ac <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1505	1608	
==>value with a nil type
    $self->[$index->to_native] = nil->new();
    return nil->new();
}

sub slice { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2077	2238	
==>sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => un <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1848	2004	
==>sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1848	2004	
==>sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => un <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2101	2198	
==>S

=over 4

=item B<new (*native*) returns num>

=item B<to_native () returns *native*>

=item B<t <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10609	10700	
==>(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
} <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10609	10700	
==>(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
} <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3133	3247	
==>) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.P <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3133	3247	
==>) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.P <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30827	30921	
==>ct>'s inheritance tree.  Use Damian Conway's F<NEXT> module
instead.  This module is standard w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4149	4247	
==>uilder/Test.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for building test librari <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2577	2672	
==>ol   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_c <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2577	2672	
==>ol   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12832	12960	
==>ext::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $con <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12832	12960	
==>ext::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $con <==
3	/Users/nnunley/pugs/t/packages/Test.pm	176	280	
==>our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see_pkg {
    return My::Package::pkg( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29007	29101	
==>----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29007	29101	
==>----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29007	29101	
==>----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
use Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5453	5565	
==>tomatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5453	5565	
==>tomatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5453	5565	
==>tomatically
    sub ::instantiate_attribute_container ($) {
        my ($attr) = @_;
        (blessed($attr) && $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8369	8517	
==>d;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8369	8517	
==>d;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8369	8517	
==>d;
    }
    else {
        $a = p6_from_a( @x1 );
    }
    # warn ref( $a );
    # warn $a->perl->unboxed;
    my $res = $x0->zip( $a );
    # warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	751	844	
==>------------------------------------------------
## Object

# The 'Object' class
$::Object = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	751	844	
==>------------------------------------------------
## Object

# The 'Object' class
$::Object = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	751	844	
==>------------------------------------------------
## Object

# The 'Object' class
$::Object = $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7330	7427	
==>nd returns any pending data.  Block 
ciphers should buffer input data until they have an entire bl <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7330	7427	
==>nd returns any pending data.  Block 
ciphers should buffer input data until they have an entire bl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8080	8177	
==>OR HANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, use the nex <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	536	644	
==>= 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4)) !!
		-(int(abs($x) + 0.5) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17065	17160	
==>d not be possible if its
functionality was subsumed into a larger package that would otherwise u <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17065	17160	
==>d not be possible if its
functionality was subsumed into a larger package that would otherwise u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3126	3240	
==>nclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3126	3240	
==>nclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3126	3240	
==>nclass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4915	5010	
==>JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4915	5010	
==>JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4915	5010	
==>JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" must be unary <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11482	11576	
==>e Role specifc
code to the class that consumed it.

------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11482	11576	
==>e Role specifc
code to the class that consumed it.

------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11482	11576	
==>e Role specifc
code to the class that consumed it.

------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6189	6329	
==>assed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6189	6329	
==>assed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6189	6329	
==>assed to sub \\"" + %s + "\\"!");
EOF
    } else {
      return "";
    }
  }

  sub as_js_bind {
    my $self   = shift;
    my $name   = $s <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	300	550	
==>nt values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	300	550	
==>nt values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Mo <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1404	1570	
==>stem( qq[tar -f $my_tmp_dir/$Control -C $meta_dir -xz] )
                                                            and die $?;
            print "Writing .packlist e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3129	3242	
==>ass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3129	3242	
==>ass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3129	3242	
==>ass->superclasses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigencla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	11	160	
==>= -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	11	160	
==>= -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	11	160	
==>= -> Code $f, Str $x {
  "
    (function () \{
      var res = \"\";
      for(var i = 0; i < {$x}.length; i++) \{
        res += String.fromCharCode( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6823	6950	
==>eturn what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $av <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7287	7414	
==>eturn what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $av <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5344	5443	
==>he file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=i <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5344	5443	
==>he file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1070	1210	
==>self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1070	1210	
==>self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1070	1210	
==>self);
        
        if (blessed($method) eq 'Perl6::Method'     ||
            blessed($method) eq 'Perl6::Submethod'  ||
            ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2865	2988	
==>"var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2865	2988	
==>"var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for metho <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2865	2988	
==>"var ",
        PIL::name_mangle($self->name),
        $def;
    my $js = "$decl;\n$name;\n";

    # Special magic for metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3023	3138	
==>G;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3023	3138	
==>G;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3023	3138	
==>G;  
    return $class;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	800	941	
==>,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	768	902	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    re <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1947	2038	
==>_ for inner_layout($$) }

type::operator::binary: parenthesize($$) = { $$->isa("type::operat <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3998	4117	
==>n @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3998	4117	
==>n @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9837	9958	
==>atchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9831	9952	
==>atchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	3594	3691	
==>ng something dubious happened.

The columns in the summary report mean:

=over 4

=item B<Failed T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3371	3465	
==>= defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3371	3465	
==>= defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3371	3465	
==>= defined $self->{'pInv'} ? $self->{'pInv'}->expand() : undef;
    my @args = map{$_->expand()} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11445	11547	
==>s consturction because it isolates the Role specifc
code to the class that consumed it.

-------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11445	11547	
==>s consturction because it isolates the Role specifc
code to the class that consumed it.

-------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11445	11547	
==>s consturction because it isolates the Role specifc
code to the class that consumed it.

-------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3166	3317	
==>( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3166	3317	
==>( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8853	9000	
==>&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9046	9193	
==>&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unles <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	16543	16687	
==>r {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20020	20164	
==>r {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19580	19724	
==>r {
            for $!body.values -> $t1 {
                for $other!body.values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1376	1488	
==>tive());
}

sub multiply {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	853	1037	
==>_rel, $index, $index_file, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                store       => \$root
            },
            config = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15588	15686	
==>of Any - This contains zero or more attribute names and values
that help to define this Node.

=ite <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15588	15686	
==>of Any - This contains zero or more attribute names and values
that help to define this Node.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1360	1490	
==>js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1360	1490	
==>js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1360	1490	
==>js;
    $js .= "var cxt    = args.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18811	18944	
==>_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18811	18944	
==>_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18811	18944	
==>_from_a(
            Perl6::Value::List->from_num_range( start => $xx0->unboxed, end => p6_to_n($xx1) )
        )         
    }
    r <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19577	19680	
==>tr|_], %# XXX - need api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm(Re,F0,F1,B0,B1 <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1181	1275	
==>ar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1181	1275	
==>ar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2329	2463	
==>mp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2329	2463	
==>mp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2329	2463	
==>mp                = precompile the Prelude
:pil <exp>              = show PIL of expression
:pil.yaml <exp>         = show PIL of expre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	736	829	
==>tance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	736	829	
==>tance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	736	829	
==>tance_attr($::Class  => '@:MRO') = [ $::Class, $::Module, $::Package, $::Object ];
::opaque_in <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8144	8318	
==>trary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8144	8318	
==>trary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1231	1321	
==>mbolic_representation($node);
	}

	my $symbol = $self->declare($node) if $self->is_duplicat <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2223	2352	
==>k the AUTO flag yet for link management
    LINKING: {   
        ### load in the alternatives collection
        my $href = LoadF <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1706	1802	
==>me is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?ws>) <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1706	1802	
==>me is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?ws>) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3940	4065	
==>. $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.iden <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6711	6799	
==>lize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6711	6799	
==>lize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($ch <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20823	20930	
==>patcher (symbol new DESTROY)))))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11071	11167	
==>find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "univers <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11071	11167	
==>find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "univers <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33768	33863	
==>ndBranch> example.  Let me explain what the
'&' metacharacter will mean.  If you've used F<vim>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6614	6731	
==>d: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6614	6731	
==>d: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implem <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6614	6731	
==>d: function (id) {}
};

var window    = {
  scrollTo:   function (x, y) {},

  // Hack -- this is a CPU-burning implem <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12585	12722	
==>ackage ne $inst_pkg->package } @prev;
    
    ### no change!
    return if @avail == @prev;
    
    $self->available( \@avail );
    ret <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8626	8732	
==>bug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $ne <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8626	8732	
==>bug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $ne <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8145	8290	
==>$id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4505	4650	
==>$id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5354	5499	
==>$id, $list, $rule, $block) = 
                map { get_data( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13765	13862	
==>::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::prot <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13765	13862	
==>::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::prot <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13765	13862	
==>::ApiX::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_macro {
    $EvalX::PStmt::prot <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2289	2384	
==>& Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2289	2384	
==>& Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:« <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2289	2384	
==>& Number(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:« <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1484	1596	
==>';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Pe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1484	1596	
==>';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21922	22017	
==>LTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21922	22017	
==>LTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21922	22017	
==>LTI SUB Pugs::Internals::openFile ($xx0,$xx1) {...};
MULTI SUB exp ($xx0,$xx1) {p6_from_n(p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6846	6959	
==>infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6846	6959	
==>infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6846	6959	
==>infix:<=>. (hack!)
method infix:<=> (Item $a is rw: $b) is rw          { $a = $b }
#sub infix:<=>    ($a is rw, $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1242	1364	
==>alue::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1242	1364	
==>alue::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1242	1364	
==>alue::stringify( @_ );
    }
}
sub p6_to_a {
    my($ary)=@_;
    my $is_infinite = 0;
    #eval { $is_infinite = Perl6::Va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16722	16840	
==>ibute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16722	16840	
==>ibute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16722	16840	
==>ibute($label, %params)
            if $next->has_attribute($label, %params)
    } 
    return undef;
}));

# now add th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3888	4021	
==>= @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3888	4021	
==>= @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless define <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3888	4021	
==>= @{$self->{shifts}};
        return $clone;
    } unless defined $param{clone}; 

    $param{sum}     = sub { undef }   unless define <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3021	3140	
==>sh.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3021	3140	
==>sh.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3021	3140	
==>sh.add_pair(pairs[i]);
      hash.flatten_me = true;
      cc(new PIL2JS.Box.Constant(hash));
    } else {
      PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16118	16209	
==>eturn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16118	16209	
==>eturn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attrib <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16118	16209	
==>eturn $self->get_attribute($label, %params) ? 1 : 0;
}));


$::Class->add_method('get_attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1533	1636	
==>ors, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1533	1636	
==>ors, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1533	1636	
==>ors, taken from (v6) Prelude::JS::Operators
{
  my @subs = (
    [ "infix:<",  "N", "Number(a)  < Number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8035	8198	
==>ents ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8035	8198	
==>ents ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8035	8198	
==>ents ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) && $arg->isa( 'Junction' ) ) {
                        #warn "HAS JUNCTION <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3123	3240	
==>se {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3123	3240	
==>se {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3123	3240	
==>se {
      PIL2JS.die("&prefix:<*> only works on arrays, hashes, and pairs!");
    }
  })')($thing);
}

sub JS::Root:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1698	1799	
==>ple-0.1.0 {
    does Relation::Tuple;

    # External packages used by the Relation::Example::Tuple cl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9470	9560	
==>h @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Per <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3295	3385	
==>h @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Per <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4149	4291	
==>self->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok};
        $resul <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39649	39760	
==>$parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10368	10471	
==>ass_neg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32458	32593	
==>),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33113	33248	
==>),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2340	2440	
==>("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2340	2440	
==>("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2340	2440	
==>("&", "String(a)", "String(b)")",
  "infix:«~|»",   2, "S", "a = String(a), b = String(b), $mapStr2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5521	5649	
==>g";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5521	5649	
==>g";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5521	5649	
==>g";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$space};
    $n =~ s/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5633	5758	
==>$obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5633	5758	
==>$obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5633	5758	
==>$obj, $namespace) = @_;
        return if ref($obj) =~ /^IO::/;

        bless $obj, $namespace . '::' . ref $obj;
    }

(A m <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1598	1703	
==>ode = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $sel <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1598	1703	
==>ode = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1095	1230	
==>(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1095	1230	
==>(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{prelu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1095	1230	
==>(
  "js=s"          => \$cfg{js},
  "pugs=s"        => \$cfg{pugs},
  "pil2js=s"      => \$cfg{pil2js},
  "p6preludepc=s" => \$cfg{prelu <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1978	2099	
==>LE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $ar <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1978	2099	
==>LE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $ar <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4427	4537	
==>03
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], } }
    | exp '.' BAREWORD ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3067	3166	
==>o JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3067	3166	
==>o JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3067	3166	
==>o JavaScript and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/p <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6494	6647	
==>8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugs <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7091	7230	
==>ff+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1 <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5592	5731	
==>ff+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1072	1170	
==>- test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-der <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1072	1170	
==>- test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-der <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1072	1170	
==>- test 'readonly' and 'tieable' using traits - Scalar, Hash and Array
# TODO - test Scalar auto-der <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13859	13964	
==>ave = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13859	13964	
==>ave = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $h <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	455	553	
==>lf->interpreter_class;
    $class->require or die $UNIVERSAL::require::ERROR;
    $class->new;
}

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2133	2233	
==>rray is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2133	2233	
==>rray is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2133	2233	
==>rray is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code");
  m <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14960	15067	
==>ading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18437	18544	
==>ading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17853	17960	
==>ading.size()
        }; # sort widest to narrowest, to help get more semijoins
    @sources = (@r_with_zero_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8383	8516	
==>);
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8383	8516	
==>);
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6736	6865	
==>}( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _ge <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6736	6865	
==>}( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _ge <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31779	31882	
==>d, reject it how you choose
  if (! $p->regex($regex)) {
    reject_regex(...);
  }

Any regex containin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6016	6116	
==>reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6016	6116	
==>reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6016	6116	
==>reblesser has the opportunity to prune
(skip) subtrees in the recursion of $myobj. All it needs to do <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10646	10778	
==>macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6987	7119	
==>macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	7836	7968	
==>macro: var binding: \n$binding";

            # -- end of macro compile-time processing
    
            # emit the macro expander co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13069	13192	
==>tion of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13069	13192	
==>tion of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13069	13192	
==>tion of unboxed values --------------

#package Perl6::Value;
#
#sub to_ref {
#    my $object = shift;
#    my $class_name = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11799	11988	
==>: 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11799	11988	
==>: 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11799	11988	
==>: 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$method";
            },
        },
    }
};

role Lazy => {
    methods => { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12215	12346	
==>}
  
  class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
  {
      method report returns Str
      {
          my <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2607	2726	
==>}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2607	2726	
==>}

class Test::Builder::Test::TODO does Test::Builder::Test::WithReason
{
    method report returns Str
    {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2305	2408	
==>$params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2305	2408	
==>$params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2305	2408	
==>$params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$v <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1562	1694	
==>' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1573	1705	
==>' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	4291	4387	
==>print STDERR "Generating precompiled Prelude" if $Config{verbose};
    die "*** Error: $0 needs a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	139	246	
==>n];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTALL: f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30665	30759	
==>he new Relation has all of the tuples of the
original (or rather, the corresponding transformat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35216	35310	
==>he new Relation has all of the tuples of the
original (or rather, the corresponding transformat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2566	2700	
==>sh.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2566	2700	
==>sh.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } els <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2566	2700	
==>sh.get_value(key).BINDTO(other);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } els <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8421	8553	
==>r(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8421	8553	
==>r(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1012	1130	
==>) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1012	1130	
==>) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1012	1130	
==>) or usage();
my @input = @ARGV;

usage "No input files given!"                  unless @input;
usage "Cannot compile m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16551	16665	
==>add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16551	16665	
==>add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16551	16665	
==>add_method('STORE' => method () {
    my ($self, $label, $value) = @_;
    (defined $label && $label)
        || co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7778	7883	
==>elf->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Also <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7778	7883	
==>elf->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Also <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7778	7883	
==>elf->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = Also <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9776	9913	
==>nstead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all de <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	6117	6254	
==>nstead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all de <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6966	7103	
==>nstead, do variable substitutions '$()' in the body's AST
    
            # XXX macro variables can be AST 
            #     - it all de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	317	424	
==>a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	317	424	
==>a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	317	424	
==>a_3a" + imports[sym];
      eval(p6name+" = PIL2JS.toPIL2JSBox(f)");
    }
})')($mod, @imports);

}

sub PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11015	11194	
==>d = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11015	11194	
==>d = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11015	11194	
==>d = __('$AUTOLOAD');
                my $tmp = _('$.referred');
                # Array and Hash are auto-dereferenced
                if ( ref $tmp && ( 
                        $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6381	6522	
==>|| $2;
        $author =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Canno <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	965	1062	
==>h
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the packag <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	965	1062	
==>h
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	9805	9917	
==>pecial case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	9805	9917	
==>pecial case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	9805	9917	
==>pecial case of the
    # early $::Class object.

    sub ::dispatcher {
        return _class_dispatch(@_)->($_[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3937	4043	
==>ue::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3937	4043	
==>ue::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3937	4043	
==>ue::Junction;
  
  ...

=head1 DESCRIPTION


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fg <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16730	16852	
==>y $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18156	18278	
==>y $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24775	24897	
==>y $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	501	669	
==>+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <al <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	501	669	
==>+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4190	4306	
==>{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($self)->{'$:superclass'};
        },
        'get <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14311	14418	
==>shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1791	1898	
==>shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	355	498	
==>ash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	349	492	
==>ash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6591	6680	
==>eton_method('singleton_test_on_object' => sub { 
    '&Object::singleton_test_on_object'
} <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	252	369	
==>$x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &approxfprime.as <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16307	16412	
==>turn $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $b <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16307	16412	
==>turn $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2154	2257	
==>ame, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2154	2257	
==>ame, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2154	2257	
==>ame, $version, $authority, $body);
    $::{'*'}->STORE('::' . $new_role->name => $new_role);    
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21491	21639	
==>@classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21491	21639	
==>@classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21491	21639	
==>@classes;
        my %seen;
        my $traversal;
        $traversal = sub {
            my $class = shift;
            foreach my $subclass (@{$cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5909	6013	
==>te ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5909	6013	
==>te ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5909	6013	
==>te ::Foo and ::Bar as needed from the top level
  $pkg->CREATE('*Foo::Bar::&baz' => sub { ... });   

- p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4468	4589	
==>losure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4468	4589	
==>losure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	379	498	
==>t be a closure::env";
    (ref($body) eq 'CODE')
        || confess "body must be a code ref";
    my $local_env = closu <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7091	7212	
==>d
sub _autoflush {
    my $flushy_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3820	3915	
==>b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Ar <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3820	3915	
==>b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14986	15087	
==>SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14986	15087	
==>SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14986	15087	
==>SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(map{p6_to_n($_)}@xxa); };
MULTI SUB join (*@xxa) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4704	4806	
==>y($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4704	4806	
==>y($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4704	4806	
==>y($read_fh), my($write_fh), $cfg{js}
    or die "Couldn't open pipe to \"$cfg{js}\": $!\n";

  print $w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19268	19433	
==>{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'An <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19268	19433	
==>{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'An <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19268	19433	
==>{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'An <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14974	15067	
==>er(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTIC <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14974	15067	
==>er(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTIC <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12459	12570	
==>ocal pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local string charlist
    $P0 = fin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	742	840	
==>se/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compilat <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	742	840	
==>se/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compilat <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3845	4030	
==>ime);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_li <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3845	4030	
==>ime);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_li <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21955	22047	
==>\+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(class <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1492	1607	
==>EFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1492	1607	
==>EFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2946	3059	
==>EFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14574	14693	
==>ASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, las <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3852	4024	
==>g.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.r <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3852	4024	
==>g.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5271	5368	
==>splay_type {
		my $self = shift;
		my $type = $self->simplify_type(@_);
		Scalar::Util::blessed($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	625	743	
==>ion (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	625	743	
==>ion (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	625	743	
==>ion (n) {
        var str_ = String(PIL2JS.cps2normal(
          _26main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS. <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1127	1223	
==>ly used to add extra directories to Pugs's 
search path so that later `use` or `require` statemen <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1127	1223	
==>ly used to add extra directories to Pugs's 
search path so that later `use` or `require` statemen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	897	1022	
==>gs[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	897	1022	
==>gs[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	897	1022	
==>gs[2].FETCH(), cc = args.pop();
      var ret  = [];
      for(var i = 0; i < keys.length; i++) {
        var deleted = hash.d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2355	2469	
==>lass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2355	2469	
==>lass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2355	2469	
==>lass); sub expand {
    use PIL::Run::ApiX;
    # XXX - should have a p6_var_int() or somesuch.
    my @vars = map{ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5895	5997	
==>orig => $self,
		new => undef,
	};
	
	$entry->{new} = $self->SUPER::splat($accum);
}

sub free_vars { $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21413	21512	
==>ALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44320	44419	
==>ALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	165	265	
==>strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	165	265	
==>strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	165	265	
==>strict;

# To s/VNum/PIL::VNum/g
use Class::Rebless;
# To support Inf, -Inf, and NaN
use Math::BigInt <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2253	2459	
==>{
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5730	5936	
==>{
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    retu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4660	4866	
==>{
    return {
        'heading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	185	290	
==>gs[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	185	290	
==>gs[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	185	290	
==>gs[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exists(key)));
    })')(%$self, $idx);
  } e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14391	14484	
==>}\n")'],Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - warn on failure
  assert(cached_uncode_c <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	93	184	
==>:Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::D <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	93	184	
==>:Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::D <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5069	5207	
==>ys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5393	5531	
==>ys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	198	294	
==>ub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pairs]);
}
sub no <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1899	1996	
==>tes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  Tha <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1899	1996	
==>tes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  Tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1326	1420	
==>dColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1326	1420	
==>dColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1326	1420	
==>dColumn>};
    return "$file line $line_start-$line_end, column $column_start-$column_end";
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2770	2856	
==>nternals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2770	2856	
==>nternals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2770	2856	
==>nternals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13622	13720	
==>_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13622	13720	
==>_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13622	13720	
==>_b(0) };
MULTI SUB prefix:<-x> ($xx) { -x p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2805	2908	
==>l to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2805	2908	
==>l to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if define <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2805	2908	
==>l to JS::foo? ==> It's a native call.
    $native = $subname =~ /^[\&\$\@\+\%\:]\*?JS::/
      if define <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5322	5450	
==>ey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5322	5450	
==>ey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->functio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5322	5450	
==>ey->new();
  $jssm->init();
  $jssm->function_set("print",               sub { print encode "utf-8", "@_\n"; });
  $jssm->functio <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2982	3214	
==>\?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3229	3461	
==>\?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1478	1586	
==>y: layout($$) = { $.name }

type::operator::nary: layout($$) = { join(" ", $.name, layout($.param)) }
type::o <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3367	3516	
==>ncat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3614	3763	
==>ncat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3644	3737	
==>turn $S->force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    return $S->obje <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3085	3192	
==>ed_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3085	3192	
==>ed_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3085	3192	
==>ed_prune($res);
	}
	
	my $type = Scalar::Util::reftype $obj;
	return $obj unless defined $type;

	if      ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	53	156	
==>real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION acco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	53	156	
==>real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION acco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	53	156	
==>real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION acco <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1332	1424	
==>:Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1332	1424	
==>:Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2234	2332	
==>.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

R <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2234	2332	
==>.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

R <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5805	5909	
==>e for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shift <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5805	5909	
==>e for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1151	1251	
==>= 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1151	1251	
==>= 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1360	1460	
==>= 1;
	    $db_param->is_optional(1)
		unless $param->{required};
	    $named->{$db_param->name} = $db <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4143	4263	
==>te module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Membe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4143	4263	
==>te module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Membe <==
3	/Users/nnunley/pugs/examples/hop6/Parser.pm	133	250	
==>005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 3

## XXX - Exporting still doesn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4074	4169	
==>:Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4074	4169	
==>:Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4074	4169	
==>:Object ]);

$::Package->add_attribute('$:name'      => ::make_attribute('$:name'));
$::Package- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12750	12877	
==>,
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not expo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12750	12877	
==>,
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not expo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12750	12877	
==>,
            'pop' =>   sub { _('$.unboxed')->pop   },

            # These methods are implemented in List.pm but are not expo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11720	11840	
==>{
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4363	4483	
==>{
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name e <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	782	901	
==>_CODE
       p6_initialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_macrop5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	277	382	
==>al(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	277	382	
==>al(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	277	382	
==>al(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@{[ PIL <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23198	23294	
==>t.raw("...")>

Sends a command to the server. The command is not modified by this module,
aside f <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23198	23294	
==>t.raw("...")>

Sends a command to the server. The command is not modified by this module,
aside f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3715	3823	
==>b infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3715	3823	
==>b infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3715	3823	
==>b infix:«=:>» ($key, $value is rw) is primitive is rw {
    my $pair = ($key => $value);
    $pair.value := <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	39	141	
==>ad1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use A <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	39	141	
==>ad1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use A <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4217	4317	
==>me,$ftype)=($pairs->[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2763	2893	
==>pe, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2763	2893	
==>pe, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2763	2893	
==>pe, in
    # perl 6 this should be done automatically
    sub ::instantiate_attribute_container ($) {       
        return [] if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4869	4998	
==>ilename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4869	4998	
==>ilename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4869	4998	
==>ilename.
                    Use "-" if you want the result to go to STDOUT.
  --link=html|js    Link precompiled files into one s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5840	5992	
==>atch( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5840	5992	
==>atch( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5840	5992	
==>atch( \$_[1] )
    }  
    sub str { 
        my $s = '';
        $s .= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33254	33456	
==>>end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33254	33456	
==>>end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33254	33456	
==>>end . " now length=$ret_length";
                last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14167	14261	
==>e("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(S <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14167	14261	
==>e("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	260	447	
==>hod write ( Str $message is copy )
    {
        push @:output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @:diagnostics, $message;
    }

    method outp <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1426	1521	
==>o use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particular <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1426	1521	
==>o use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particular <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	1042	1155	
==>"' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	1042	1155	
==>"' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	1042	1155	
==>"' => \&as_string;

  sub fixup {
    die unless keys %{ $_[0] } == 5;

    return bless {%{ $_[0] }} => "PIL::MkP <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23749	23874	
==>checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13093	13196	
==>new($t_of_param);
	} else {
		return $prev_generic;
	}
}

# the type of the function the arrow operator, <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28952	29051	
==>checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3019	3133	
==>quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3007	3121	
==>quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1055	1158	
==>o_native eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NAME

symbol - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2239	2358	
==>h $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2239	2358	
==>h $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2239	2358	
==>h $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cc    = args.pop();
    var thing = args[1]. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28701	28794	
==>family of this object.  These are any of: alnum, anchor,
anyof, anyof_char, anyof_class, anyof <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	275	367	
==>D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	275	367	
==>D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1601	1714	
==>ke_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1601	1714	
==>ke_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1601	1714	
==>ke_method(sub {
    my ($self, $label, $method) = @_;
    # NOTE: 
    # the $method here can be undefined, this i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7233	7408	
==>gs_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7233	7408	
==>gs_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7233	7408	
==>gs_slurpy});
            $f->(@a);
        };
        return Sub->new('$.name' => $name,
                        '$.params' => \@params,
                        '$.body' => $wr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	380	527	
==>',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'M <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	380	527	
==>',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'M <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21710	21809	
==>anged the field 'class' to 'family' in objects.  I was getting
confused by it, so I figured it was a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	230	336	
==>ULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	230	336	
==>ULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13309	13412	
==>CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13309	13412	
==>CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13309	13412	
==>CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4959	5078	
==>$attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8436	8555	
==>$attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! d <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3647	3766	
==>t is valid for a Relation::Example to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20438	20548	
==>$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20438	20548	
==>$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20438	20548	
==>$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? ('.$xx1.') : $_v1 }' };
MACROP5   infix:<||> ($xx0,$xx1) { 'do{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35611	35712	
==>ne and-branch.  We will take the last one off
and keep it normal, but the others we will make to be lo <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	638	734	
==>version_list code from lib.pm because I am hoping that perl6
# and the new module functionality w <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	638	734	
==>version_list code from lib.pm because I am hoping that perl6
# and the new module functionality w <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16337	16465	
==>=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	152	248	
==>code_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	152	248	
==>code_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3613	3705	
==>ific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$num <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3613	3705	
==>ific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$num <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5810	5902	
==>ific class instances which
perform the Test::Builder::Test::Base role.

=over 4

=item C<$num <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1489	1618	
==>.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1489	1618	
==>.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1489	1618	
==>.pop();
    var hash = args[0].FETCH();
    var keys = args[1].FETCH();

    if(keys.length == 0) PIL2JS.die("No keys given to &po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	895	991	
==>gname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	895	991	
==>gname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'd <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	895	991	
==>gname => "retval", body => sub {
        "PIL2JS.generic_return($retcc).FETCH()([$cxt, retval, 'd <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6421	6555	
==>rn 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6421	6555	
==>rn 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    ret <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1075	1178	
==>ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $Pac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13785	13885	
==>ix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13785	13885	
==>ix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13785	13885	
==>ix:<-z> ($xx) { -z p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-s> ($xx) { p6_from_n(-s p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	16419	16553	
==>uase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	16419	16553	
==>uase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	16419	16553	
==>uase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
});

::Class.meta.add <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	892	1015	
==>];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	892	1015	
==>];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	892	1015	
==>];
          // &main::<name>
          var p6name = "_26main_3a_3a" + name;
          JSAN.globalScope[p6name] = PIL2JS.toP <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9732	9831	
==>y { return }
method _tail() returns Array { return }

# What we implement for them.
method finish(Ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9732	9831	
==>y { return }
method _tail() returns Array { return }

# What we implement for them.
method finish(Ci <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	32	141	
==>my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	D <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	28	137	
==>my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	D <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	28	137	
==>my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5409	5518	
==>always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5409	5518	
==>always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5409	5518	
==>always_dollar eq '$' or die "bug";
    my @parts = split('::',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4812	4926	
==>tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argume <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4812	4926	
==>tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argume <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6336	6450	
==>tests.  If you pass the string C<no_plan>,
there is no set number of tests to run.

Those are the only valid argume <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19164	19266	
==>SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19164	19266	
==>SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19164	19266	
==>SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!=> ($xx0,$xx1) { p6_from_b(p6_to_n($x <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1270	1368	
==>ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1270	1368	
==>ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1270	1368	
==>ref.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:< <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1435	1568	
==>nktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealB <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1435	1568	
==>nktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealB <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2274	2420	
==>$diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	673	775	
==>last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::Fal <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	673	775	
==>last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::Fal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	461	564	
==>>{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	461	564	
==>>{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	461	564	
==>>{pVarName};
  }
  # Minor hack -- we want syntactical pairs to be efficient.
  if($subname and $subname <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	479	617	
==>tions I<between> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     l <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	479	617	
==>tions I<between> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3053	3222	
==>pe eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3053	3222	
==>pe eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3053	3222	
==>pe eq 'one' ) {
                    my $count = 0;
                    for ( @ary ) { $count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2835	2958	
==>rt <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2835	2958	
==>rt <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14481	14586	
==>"Could not write available file: $@" ), return;
    
    my @alts = map { $_->to_struct } @{ $self->regist <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7526	7639	
==>w {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7526	7639	
==>w {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7526	7639	
==>w {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[,]» := &list;

sub infix:«Y» <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10013	10133	
==>handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10013	10133	
==>handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10013	10133	
==>handle all dispatching 
    # for the root $::Class
    my %_class_dispatch_cache;
    sub _class_dispatch { 
        # m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4180	4301	
==>cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4180	4301	
==>cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4180	4301	
==>cell')->store($value ) 
        },
    }
};

# Scalar 
#
# Scalar is implemented as a Perl6 class
#

class1 'Scalar'.$clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2186	2296	
==>a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2186	2296	
==>a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Num <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2186	2296	
==>a) != String(b)" ],
    [ "infix:+",  "N", "Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Num <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2690	2804	
==>ispatcher do))
     (while (($current is_not_nil) and ($method is_nil))
        (($current send (has_method $label) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12077	12169	
==>tta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12077	12169	
==>tta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9243	9388	
==>::Builder::Test.new(
              number      => $self.get_test_number(),
              passed      =>  $passed,
              description =>  $d <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1365	1504	
==>::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $d <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1365	1504	
==>::Builder::Test.new(
            number      => $self.get_test_number(),
            passed      =>  $passed,
            description =>  $d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18658	18837	
==>"WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18658	18837	
==>"WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18658	18837	
==>"WHOLE ARRAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2731	2883	
==>xtendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $size = shift;
                push @{$self->get_value('@:slo <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9490	9627	
==>on't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $script ( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2543	2680	
==>on't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $script ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1326	1427	
==>w(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1326	1427	
==>w(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1326	1427	
==>w(Int => print( (map{p6_to_s($_)}@args),"\n"));
};

MULTI SUB circumfix:<{}> (*@a) {
    # param is Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	25	136	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	25	136	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	25	136	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pExpr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8591	8700	
==>list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8591	8700	
==>list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8591	8700	
==>list (*@xx) { p6_from_a( @xx ) };
MULTI SUB pair ($xx0,$xx1) { Pair->new( '$.key' => $xx0, '$.value' => $xx1 ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7745	7857	
==>%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7745	7857	
==>%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7745	7857	
==>%s;\n%s%s;\n%s\n%s\n})",
      $self->arity,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_in <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1328	1430	
==>elf->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_sour <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1468	1570	
==>elf->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_sour <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	212	331	
==>filename => "wiki.html");

my $action    = param('action');
my %wiki      = evalfile("wiki.db");
my $wikiwords = rx:P5/\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7244	7343	
==>o blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and sub <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7244	7343	
==>o blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2123	2257	
==>r ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2123	2257	
==>r ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshi <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2123	2257	
==>r ( 1 .. $samples ) {
        last unless $self->elems;
        $tmp = $self->pop( $tmp );
        last if $tmp == -&Inf;
        unshi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6221	6333	
==>rn $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6221	6333	
==>rn $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4509	4645	
==>$self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4649	4785	
==>$self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4789	4872	
==>code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNodeDefs::import(__PACKAGE__,'emi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14065	14178	
==>g's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14065	14178	
==>g's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1686	1799	
==>etch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1686	1799	
==>etch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1686	1799	
==>etch()
# * fixed "defined $i" to "elems == 0" in push/pop
#
# 2005-08-11
# * fixed some syntax errors
#
# 2005-08- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9152	9251	
==>n::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9152	9251	
==>n::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9152	9251	
==>n::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $extra_args $dir -CPIL1-Perl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13897	14062	
==>skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=hea <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3976	4073	
==>s   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::val <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3976	4073	
==>s   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::val <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19030	19131	
==>lement is a POSIX class,
the C<data> field is the string "POSIX".  POSIX classes don't exist in a
rege <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5046	5146	
==>his should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5046	5146	
==>his should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1528	1642	
==>erl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1528	1642	
==>erl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1528	1642	
==>erl5", $input[0])
    : slurp $input[0];
  my $tree = PIL::Parser->parse($pil);

  if($yaml_dump) {
    require YAM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	655	844	
==>NCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	655	844	
==>NCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	655	844	
==>NCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for the ins <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3373	3497	
==>$key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3373	3497	
==>$key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	439	529	
==>a>)</p>
<p>
These users have something in their <tt>~/public_html</tt> directory:
</p>
<ul> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2312	2421	
==>or subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2312	2421	
==>or subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2659	2768	
==>or subroutine calls
  Data::Bind->sub_signature
    (\&formalize,
     { var => '$title' },
     { var => '$su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8841	8962	
==>eys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The mo <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8841	8962	
==>eys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1601	1720	
==>sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1601	1720	
==>sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1601	1720	
==>sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( { if ( $code($_) ) { $ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1610	1749	
==>ackage_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 i <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4813	4952	
==>ackage_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10227	10331	
==>r( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10227	10331	
==>r( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fie <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11608	11699	
==>ue}.

p6_comment --> "#", rest_of_line(_).
rest_of_line([10])  --> [10], !.
rest_of_line([C| <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	76	183	
==>5
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	76	183	
==>5
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Ce <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	76	183	
==>5
# - Arrays stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Ce <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2297	2433	
==>$output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2297	2433	
==>$output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16902	17011	
==>fined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my $meta = "${ROOT}::${pkg}:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1094	1211	
==>OCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1094	1211	
==>OCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26ma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1094	1211	
==>OCK = $jsvar; pad['&?BLOCK'] = _26main_3a_3a_3fBLOCK;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
    $js .= "_26ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12308	12403	
==>autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12308	12403	
==>autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12308	12403	
==>autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	24	134	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	24	134	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	24	134	
==>warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;
  die unless $self->{pLV} <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6384	6727	
==>he next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6848	7191	
==>he next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36390	36487	
==>that contains 'foo' somewhere init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9283	9388	
==>@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9283	9388	
==>@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9283	9388	
==>@xx) { p6_new(Junction => 'none', @xx) };
MULTI SUB perl ($xx) { $xx->perl };
MULTI SUB require_haskell ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4737	4921	
==>l')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4737	4921	
==>l')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4737	4921	
==>l')->fetch( @_ ) },
            'store' => sub { 
                # TODO - copy cell 'type'
                my $self = shift; 
                my $value = shift;
                #carp " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2229	2352	
==>id { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2229	2352	
==>id { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2229	2352	
==>id { 
    my Dispatcher $dispatcher = $?SELF.meta.dispatcher(:ascendant);
    for WALKMETH($dispatcher, 'BUILD') -> Method $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3471	3686	
==>nction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3471	3686	
==>nction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unb <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3471	3686	
==>nction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' =>  
                    _('$.type') . "(" . 
                    join(", ", 
                        map { $_->str->unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3256	3381	
==>ll = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3256	3381	
==>ll = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
su <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3256	3381	
==>ll = shift;
        #warn "fetching @_ from ".ref($cell->{v});
        return $cell->{v}->fetch( @_ );
    }
    $_[0]{v}
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17958	18156	
==>self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17958	18156	
==>self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17958	18156	
==>self->class->has_method($1) ?
                        $self->class->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4420	4526	
==>tem B<create( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4420	4526	
==>tem B<create( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5944	6050	
==>tem B<create( *@args )>

This method actually creates and returns a new Test::Builder instance.  It
takes t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1161	1297	
==>s');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1161	1297	
==>s');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	20721	20824	
==>}
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	20721	20824	
==>}
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	20721	20824	
==>}
}));

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Little E<l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2143	2250	
==>($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2143	2250	
==>($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2143	2250	
==>($x)=@_;
    if(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $c <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4177	4297	
==>xy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4177	4297	
==>xy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12382	12495	
==>ls::runInteractiveCommand($command);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefix:< <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	334	436	
==>REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI:: <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	334	436	
==>REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI:: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	506	688	
==>'';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	421	603	
==>'';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	509	691	
==>'';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            push @s, emit( $_ );
        }
        return join( '', @s ) ;
    }
    elsif ( ref( $n ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7547	7661	
==>un::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7547	7661	
==>un::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7547	7661	
==>un::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value:: <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4010	4128	
==>st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "2nd line\n" ],
      [ ' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2401	2495	
==>es($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subs <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2401	2495	
==>es($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23937	24094	
==>return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23937	24094	
==>return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23937	24094	
==>return Int->new( '$.unboxed' => $tmp->elems( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3558	3880	
==>val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3558	3880	
==>val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Tra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1678	1776	
==>Ext> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1678	1776	
==>Ext> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	784	881	
==>>strptime($date, "%Y-%m-%d %H:%M:%S");
  push @commits,    $time;
  push @developers, $time unless <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1977	2087	
==>e->isa('symbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1659	1765	
==>e->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2307	2413	
==>e->isa('symbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2785	2927	
==>{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2785	2927	
==>{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2785	2927	
==>{$instance->{attrs}});       
    }
    
    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which implement c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2	107	
==>ckage JIB::Config;

use strict;
use warnings;
use Cwd;
use Config;
use Path::Class ();
use base 'Object::A <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14113	14211	
==>lass

A Node object is a simple container which stores data to be used or
displayed by your program <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14113	14211	
==>lass

A Node object is a simple container which stores data to be used or
displayed by your program <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2403	2593	
==>n sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2713	2897	
==>n sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2713	2897	
==>n sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1515	1629	
==>irs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1515	1629	
==>irs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1515	1629	
==>irs(args);\n\n";
    $js .= $_->as_js0() . "\n" for @$self;
    $js .= $_->as_js1() . "\n" for @$self;
    $js .= $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11312	11409	
==>thods. It is important that submethods are used
because they will not get inherited. This provides <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11312	11409	
==>thods. It is important that submethods are used
because they will not get inherited. This provides <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11312	11409	
==>thods. It is important that submethods are used
because they will not get inherited. This provides <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3202	3314	
==>1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3202	3314	
==>1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3202	3314	
==>1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	553	665	
==>e => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	553	665	
==>e => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	553	665	
==>e => "<unknown>",
  posBeginLine   => 0,
  posBeginColumn => 0,
  posEndLine     => 0,
  posEndColumn   => 0,
} = <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6829	6928	
==>ns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciph <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6829	6928	
==>ns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciph <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33152	33249	
==>chor

Types: bol (C<^>), sbol (C<^> with C</s> on, C<\A>), mbol (C<^> with
C</m> on)

=head2 bound <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2751	2852	
==>ethods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2751	2852	
==>ethods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2751	2852	
==>ethods')};
}));

## attributes

$::Role->add_method('add_attribute' => ::make_method(sub {
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8165	8363	
==>d
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8165	8363	
==>d
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8165	8363	
==>d
                    return $tmp->$method( @param );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq ' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11991	12075	
==>rs_more(char(C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	2165	2314	
==>"$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_exce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	2165	2314	
==>"$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_exce <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	2165	2314	
==>"$from,$to>";
                return $s;
            },
            _indent => sub {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s},
            _indent_exce <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3377	3500	
==>}}]; local $Z::oop{$id}{'var'} = $var;
        push(@$var,$tok);
        return &$step;
      }
      my $op1 = $operators-> <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33953	34050	
==>d
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C<$ot <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38503	38600	
==>d
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C<$ot <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8531	8631	
==>turn $S->object(exact => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4716	4823	
==>ptimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4554	4658	
==>ptimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2559	2697	
==>expect;
          return "Expected $.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a role
  # cannot i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	326	452	
==>expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot i <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	326	452	
==>expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a role
# cannot i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15924	16073	
==>arams);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15924	16073	
==>arams);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15924	16073	
==>arams);                    
    return $table->{$label};
}));
                           

$::Class->add_method('has_attribute' => ::make_method(sub { <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	356	473	
==>w[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re = qr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3252	3344	
==>ame, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3252	3344	
==>ame, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3352	3487	
==>g a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3352	3487	
==>g a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3352	3487	
==>g a standalone JavaScript file!\n"
        if $mode eq "link";
      $js .= $contents;
    }

    unslurp $output, $js;
  } else {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	646	745	
==>structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



... <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	614	708	
==>structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

... <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9284	9405	
==>ng encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher dec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9284	9405	
==>ng encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher dec <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17394	17496	
==>p.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    shift(@classes); # d <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18502	18595	
==>nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen') <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19860	19953	
==>nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen') <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1902	2047	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'per <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2095	2240	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'per <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2243	2338	
==>ackslash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A way to display scalars containing control c <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	348	603	
==>in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	348	603	
==>in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	0	107	
==>package PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	0	107	
==>package PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	0	107	
==>package PIL::PLit;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1 <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9260	9360	
==>1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charset_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7906	8028	
==>ass 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7906	8028	
==>ass 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7906	8028	
==>ass 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello from foo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2603	2701	
==>"luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2603	2701	
==>"luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2603	2701	
==>"luckily", the fully qualified name of a method doesn't
# matter. XXX XXX evil hack)
method sort(@s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1608	1742	
==>$Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        retu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4811	4945	
==>$Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        retu <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5385	5480	
==>ady, the Standard
Prelude is precompiled and stored in YAML format in a (conjecturally)
well-def <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11517	11633	
==>0]} ? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { ${$_[0]} ? 1 : undef },
      lvalue => sub { p6_as_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1139	1244	
==>ment contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1139	1244	
==>ment contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List o <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6478	6612	
==>n   Junction  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List)\
\\n   Junction  pre     none    safe   (Lis <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5233	5340	
==>") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5233	5340	
==>") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6122	6225	
==>s = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6122	6225	
==>s = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	360	452	
==>swi, which requires swi-prolog be
installed with non-default settings, and so is not intended <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5207	5335	
==>*$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5207	5335	
==>*$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined & <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5207	5335	
==>*$foo)?
    if(
      not $self->is_slurpy or
      $name =~ /^[\$\&]/
    ) {
      push @js,
        "if($jsname == undefined & <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10688	10788	
==>, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Loc <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10688	10788	
==>, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31969	32065	
==>OPEN and back
references).

=item off

The flags specifically turned off for this object (for fla <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9929	10048	
==>r.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 't <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9929	10048	
==>r.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 't <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4302	4412	
==>), return;
    $self->add_package_to_index( package => $inst ) or return;

    return 1;
}

=head2 $bool = $rep <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13402	13501	
==>he functions is a way
to provide a comment that refers to another file or test which must be
made to <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13460	13559	
==>he functions is a way
to provide a comment that refers to another file or test which must be
made to <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1657	1808	
==>emove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!me <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1657	1808	
==>emove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!me <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	745	879	
==>or(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	745	879	
==>or(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += St <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	745	879	
==>or(var i = {$y}.length; i < {$x}.length; i++)
        $y += \"\\000\";

      for(var i = 0; i < {$x}.length; i++) \{
        res += St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18905	19046	
==>n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18905	19046	
==>n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18905	19046	
==>n($xx1) )
        )         
    }
    return p6_from_a(
        Perl6::Value::List->from_range( start => $xx0, end => $xx1 )
    )         
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12368	12488	
==>);

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12368	12488	
==>);

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12368	12488	
==>);

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3092	3201	
==>s);

    # $base now contains the directories the resulting relative path
    # must ascend out of before it c <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3092	3201	
==>s);

    # $base now contains the directories the resulting relative path
    # must ascend out of before it c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	894	1004	
==>elf->{ast}{tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dump <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	913	1028	
==>was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block ( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	913	1028	
==>was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block ( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4534	4629	
==>er-superclass name for Point3D');

is($p3d->get_x, 5, '... got the right x for p3d');
is($p3d->g <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	189	290	
==>[<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< ser <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	189	290	
==>[<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< ser <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	59	174	
==>__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	59	174	
==>__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => \ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19723	19828	
==>ons::Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "Forces generic Item context"?
}

 
 m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2059	2154	
==>($other.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equa <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2059	2154	
==>($other.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3133	3223	
==>lternatives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatenation(X), p6_conju <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1811	1947	
==>{
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1811	1947	
==>{
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $va <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8975	9091	
==>se;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpreter.
# Arguments :
#   swi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10257	10386	
==>Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10257	10386	
==>Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10257	10386	
==>Cannot call private method from different class"
                unless defined $::CALLER::CLASS &&
                       ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5194	5290	
==>:opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5194	5290	
==>:opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5194	5290	
==>:opaque_instance_id($::SELF)    }));
$::Class->add_method('class' => ::make_method(sub { ::opaque <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21293	21387	
==>he compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21293	21387	
==>he compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	533	648	
==>CRIPTION

This object represents a Class.  It is what is created when you
declare a new class.

A class is a role wi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27763	27878	
==>leop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28042	28157	
==>leop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	796	917	
==>lf: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	796	917	
==>lf: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( s <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9760	9851	
==>t ($value) { "p6_List(".join(",",map{DOWN($_)}@$value).")" } # XXX
NODE VType ($value) { die <==
3	/Users/nnunley/pugs/examples/hop6/Lexer.pm	222	327	
==>b Lexer::import { }

## XXX - is exported doesn't support args atm

## Chapter 8 section 1.3

sub tokens(C <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10362	10452	
==>compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10362	10452	
==>compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	100	218	
==>S.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	100	218	
==>S.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Numb <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	100	218	
==>S.Box.Constant(function (args) {
    var str  = args[1],
        a    = Number(args[2].toNative()),
        b    = Numb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	2080	2228	
==>urn)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	2080	2228	
==>urn)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	2080	2228	
==>urn)->get_method(@_) || redo }       
    }
    
    sub ::WALKCLASS {      
        return $_[0]->();
    }
 
    ## Attribute Primitives
    # this <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1511	1635	
==>BSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1511	1635	
==>BSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1511	1635	
==>BSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Needs PIL2 or fixes to PIL1
  #   my $a;     sub b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1184	1311	
==>=> [],
    flags => [0],
    next => ['atom'],
  );

  # do the initial scan (populates maxpar)
  # because tree is undef, nothi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2130	2227	
==>*@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2130	2227	
==>*@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2130	2227	
==>*@array is rw) is primitive {
  die "&map needs a Code as first argument!" unless $code.isa("Code" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	760	890	
==>f (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with document.write. See tes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	760	890	
==>f (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with document.write. See tes <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	760	890	
==>f (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with document.write. See tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12206	12339	
==>play =~ s/\n/\n\#/g;
		print STDERR "# $stdindisplay\n";
	    }
	    `$stdin`;
	    $runperl .= q{ < teststdin };
	}
	else {
	    $run <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	989	1097	
==>of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to det <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	989	1097	
==>of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to det <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10124	10221	
==>XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10124	10221	
==>XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3839	3935	
==>nt<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curho <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3839	3935	
==>nt<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curho <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	839	932	
==>s zip() has additional parameters?
# TODO - document unsupported operations: join, reduce, sor <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	839	932	
==>s zip() has additional parameters?
# TODO - document unsupported operations: join, reduce, sor <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1426	1528	
==>T, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close o <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1426	1528	
==>T, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close o <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3350	3446	
==>tells perl5 to execute C</usr/bin/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- The C<Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6462	6577	
==>w('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6462	6577	
==>w('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6462	6577	
==>w('$.unboxed' => @arg) if $type eq 'Int';
    return Num->new('$.unboxed' => @arg) if $type eq 'Num';
    return Str <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4559	4693	
==>pires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last_modi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4559	4693	
==>pires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last_modi <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3631	3735	
==>b reduce_sym {
		my $self = shift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2463	2576	
==><= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_clie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2463	2576	
==><= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_clie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4303	4403	
==>$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4303	4403	
==>$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef u <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4303	4403	
==>$::Role->add_method('does' => ::make_method(sub {
    my ($self, $role_name) = @_;
    return undef u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12915	13010	
==>LTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12915	13010	
==>LTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12915	13010	
==>LTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe::safe_print ($xx) {...};
MULTI SUB die (*@xxa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2620	2736	
==>e (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2620	2736	
==>e (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we ar <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2620	2736	
==>e (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq $next.meta.name;
    }
    # if we ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	480	632	
==>cess => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	480	632	
==>cess => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	480	632	
==>cess => 'rw' } ],
        ],
        methods => {
            'num' =>  sub { $::SELF->int },
            'int' =>  sub { Int->new( '$.unboxed' => 0+$::S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	901	1072	
==>, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	901	1072	
==>, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3817	3914	
==>str $target, $position, $lastPosition) =~ m/[^\s]/;
  my $whitespacePosition = $-[0];
  $currentTe <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1082	1192	
==>(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + len <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1082	1192	
==>(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + len <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	118	218	
==>conversion to native
sub to_native;

# conversion to other native types
sub to_num;
sub to_bit;
sub t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3071	3187	
==>e invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3071	3187	
==>e invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3071	3187	
==>e invocant is in the JS:: namespace? ==> It's
    # a native call.
    $native++ if
      defined $obj and $obj =~ /^ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6834	7013	
==>: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_pod <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9529	9636	
==>grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m", "0", "-F", $initrd_img };

  step
    desc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19155	19265	
==>r class, so I'm a little wary of making them
objects in their own right, even if it would create a better sense <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1176	1311	
==>t::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Loc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1176	1311	
==>t::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28241	28347	
==>ference (for a 'branch'
node), another object (for a 'quant' node), or it might not exist at all
(for an 'a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16122	16260	
==>tr @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.o <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16122	16260	
==>tr @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15642	15734	
==>es.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-readable explanation of t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6421	6606	
==>.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREB <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6421	6606	
==>.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREB <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6421	6606	
==>.returns' ],
        DESTROY => sub {},
        methods => {

            # Currying
            'assuming' => sub {
                my ( $self, @args ) = @_;
                #warn "PREB <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6644	6758	
==>ta) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($ke <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6644	6758	
==>ta) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($ke <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1597	1702	
==>sent = scalar($app->values) - 1; # thunk + params

    $self->enter_scope;

    my $reduced = $self->gener <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3411	3526	
==>g(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3411	3526	
==>g(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3411	3526	
==>g(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", "a.length > 0 ? a.charCodeAt(0 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	93	196	
==>piler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    met <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	93	196	
==>piler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	22	115	
==>ie unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	22	115	
==>ie unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	22	115	
==>ie unless $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6090	6181	
==>$ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6090	6181	
==>$ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6090	6181	
==>$ret = sprintf <<EOF, PIL::add_indent(1, $body), ($PIL::CORO_ID) x 3); ($ret, $PIL::CORO_ID+ <==
3	/Users/nnunley/pugs/util/package-osx.pl	10744	10870	
==>\ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:parrot\).*\ <==
3	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1146	1247	
==>e::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime spa <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1146	1247	
==>e::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime spa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4530	4711	
==>($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4530	4711	
==>($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4530	4711	
==>($next eq '}') {
            $curly_count--;
            last if $curly_count == 0; 
            $method_source .= $next;            
        }    
        else {
            $method <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6732	6838	
==>6
      # any character in the Unicode category "Decimal number (Nd)"
      <Nd>
}
rule UnicodeConnectorPun <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	598	696	
==>density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&codere <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	598	696	
==>density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&codere <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6629	6749	
==>- remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6629	6749	
==>- remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6629	6749	
==>- remove this after implementing hash slice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            ' <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3330	3443	
==>t2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.int <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3330	3443	
==>t2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.int <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1407	1623	
==>n 1 if -d $_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    loca <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13583	13674	
==>$month_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13583	13674	
==>$month_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4920	5084	
==>));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4920	5084	
==>));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4920	5084	
==>));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body->{clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10638	10767	
==>rt -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $po <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10638	10767	
==>rt -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $po <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23385	23480	
==>t is important to do this copy-and-push before you do any flag-parsing,
if you're adding a handl <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26452	26548	
==>($subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) returns nil 
    (($sel <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10155	10241	
==>ned($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
pri <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10890	10976	
==>ned($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5552	5698	
==>1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5376	5516	
==>1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1071	1186	
==>ame          => substr($param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional(1)
		unless $pa <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	133	540	
==>..);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	133	540	
==>..);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Roset <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2029	2144	
==>Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <v <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2029	2144	
==>Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	13905	14073	
==>.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	13905	14073	
==>.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	13905	14073	
==>.t.
            @a.delete($i);
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	5638	5734	
==>e if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool { <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5638	5734	
==>e if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22756	22873	
==>xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  }) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19177	19294	
==>xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  }) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11197	11296	
==>need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11197	11296	
==>need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11197	11296	
==>need to be collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
R <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1423	1531	
==>EFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2877	2985	
==>EFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1423	1531	
==>EFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16105	16196	
==>0,E0)     :-    rm(Re,F0,_,B0,_,E0,_).
rm(lookahead_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,F <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	663	748	
==><sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representati <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	663	748	
==><sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representati <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8308	8441	
==>lar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8308	8441	
==>lar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24410	24522	
==>";
  }
}


{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  push @ISA, qw( Regexp: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1079	1214	
==>js_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1079	1214	
==>js_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1079	1214	
==>js_args, $arg;
    } else {
      push @pugs_args, $arg;
    }
  }

  @ARGV = @runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS: <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7754	7852	
==>ing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's inte <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7754	7852	
==>ing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's inte <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13549	13692	
==>max}  = $max;
        assert( $self->{max} >= 0,  'Max # of tests looks right' );

        if( defined $extra ) {
            my($todo, $skip, $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2409	2513	
==>~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class repr <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2409	2513	
==>~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class repr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2019	2128	
==>perclasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id . " [ dir = back, st <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1703	1802	
==>rns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method chi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1703	1802	
==>rns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method chi <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	76	170	
==>::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*Str <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	76	170	
==>::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*Str <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1325	1497	
==>e Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

su <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1325	1497	
==>e Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

su <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2477	2576	
==>---------------------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    clo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1507	1639	
==>>isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1507	1639	
==>>isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->un <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1507	1639	
==>>isa( 'Pair' ) ) {
        $h->store( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13882	13998	
==>>dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13882	13998	
==>>dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCH <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13882	13998	
==>>dispatcher(':canonical');
            $dispatcher->() while $dispatcher_depth--;
        }
        local $::DISPATCH <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11527	11623	
==>rity of 1, which returns the "key" by which to sort. If
the closure returns a Num, C<E<lt>=E<gt>> <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5414	5544	
==>n {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5414	5544	
==>n {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1316	1426	
==>ets built
  &RxPOS = 0;
  eval { $self->parse };
  $self->{errmsg} = $@, return if $@;

  # reset things, defin <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7637	7756	
==>nyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_wit <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7078	7192	
==>nyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_wit <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21639	21741	
==>_sigil = ( '$' => 'scalar', '@' => 'array', '%' => 'hash',
			 '&' => 'code', ':' => 'type');
%sigil_fr <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8308	8402	
==>=~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35648	35740	
==>ementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generi <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40198	40290	
==>ementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3810	3918	
==>$baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3810	3918	
==>$baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3810	3918	
==>$baz; # won't work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	74	179	
==>hift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	74	179	
==>hift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	74	179	
==>hift;
  die unless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34303	34400	
==>al operator that returns the complement of
C<semijoin> with the same argument.  This method has al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38853	38950	
==>al operator that returns the complement of
C<semijoin> with the same argument.  This method has al <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38332	38429	
==>al operator that returns the complement of
C<semijoin> with the same argument.  This method has al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	346	455	
==>ny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	346	455	
==>ny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	346	455	
==>ny, $cond ]
  ).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH() <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43243	43528	
==>$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->ge <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3073	3159	
==>elf.difference($other).union($other.difference($self));
}

our &Set::Hash::count ::= &S <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3073	3159	
==>elf.difference($other).union($other.difference($self));
}

our &Set::Hash::count ::= &S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6217	6325	
==>wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not nece <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6217	6325	
==>wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not nece <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19008	19119	
==>lace) }


# unpack

# vec # XXX - obsolete?


package Control::Basic {}

 multi Control::Basic::eval ( Str $code <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21102	21197	
==>flow more
cleanly.

=item Flag Handlers

Flag handlers now receive an additional argument that s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	699	803	
==>boxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	699	803	
==>boxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	699	803	
==>boxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_bo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	62	173	
==>e __END__
use 5.006;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = (
    tight <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3035	3130	
==>client, if available.

=back

In addition, the following request headers are set on the HTTP::He <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3035	3130	
==>client, if available.

=back

In addition, the following request headers are set on the HTTP::He <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19558	19675	
==>tr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15979	16096	
==>tr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (sp <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4111	4221	
==>e interpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6567	6687	
==>channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6567	6687	
==>channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$ch <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5140	5310	
==>difier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    } <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5140	5310	
==>difier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    } <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14995	15141	
==>";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14995	15141	
==>";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15599	15806	
==>ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::option <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15878	16085	
==>ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::option <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8291	8468	
==>bel'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: symbol $label) returns method { 
    %:methods{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5815	5999	
==>nd;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5815	5999	
==>nd;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5815	5999	
==>nd;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36317	36468	
==>n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36317	36468	
==>n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36317	36468	
==>n( -$length );
            @body = $body->items;
        }
    };
    # print "off: $offset len: $length head: @head body: @body tail: @tail list: @list <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8705	8812	
==>libs;
  step
    descr  => "Checking which shared libraries pugs, parrot and bash require",
    ensure => su <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7330	7425	
==>e.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7330	7425	
==>e.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4663	4785	
==>$name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4675	4797	
==>$name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $n <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2245	2486	
==>end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defi <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2245	2486	
==>end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1137	1237	
==>nction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1137	1237	
==>nction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1137	1237	
==>nction is print, which is like Perl 6's &say, i.e.
# there's always a newline at the end. So our fake <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7487	7667	
==>);
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7487	7667	
==>);
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7487	7667	
==>);
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fetch( $_ )->bind( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2388	2504	
==>rbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Du <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2388	2504	
==>rbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Du <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2388	2504	
==>rbose;
        my $pilc = pilc_from_pil($pil);
        print Dumper($pilc),"\n\n" if $verbose;
        print YAML::Du <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3503	3636	
==>tems = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value:: <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3503	3636	
==>tems = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10847	11039	
==>s;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10847	11039	
==>s;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10847	11039	
==>s;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_dispatcher' => :: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25306	25401	
==>ble identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method r <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29858	29953	
==>ble identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method r <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	257	346	
==>use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_Interp i,char *bc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	425	546	
==>ay "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	425	546	
==>ay "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	425	546	
==>ay "not ok $count - $msg"~$st }
}

sub isnt ($v,$v2, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$t <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	741	844	
==>:main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tag <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	741	844	
==>:main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tag <==
3	/Users/nnunley/pugs/util/version_h.pl	194	296	
==>my $old_revision = -1;
open IN, "< $version_h" and do {
  while (<IN>) {
    /#define PUGS_SVN_REVISION <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10471	10613	
==>:opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10471	10613	
==>:opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10471	10613	
==>:opaque_instance_id($::CLASS);   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a meth <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1120	1213	
==>etta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VERSION <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1120	1213	
==>etta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VERSION <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2119	2232	
==>(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2119	2232	
==>(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2119	2232	
==>(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(Array|Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9856	9966	
==>ounter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9856	9966	
==>ounter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_pr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9856	9966	
==>ounter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Class->add_method('_make_pr <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5198	5318	
==>$?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5198	5318	
==>$?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3235	3332	
==>t $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}}->($s <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	995	1107	
==>pan 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_s <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	995	1107	
==>pan 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_s <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	177	282	
==>ase;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3821	3911	
==>-------------------------------------------------------------------
## Package

## See http <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3821	3911	
==>-------------------------------------------------------------------
## Package

## See http <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3821	3911	
==>-------------------------------------------------------------------
## Package

## See http <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2945	3050	
==>ds_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2945	3050	
==>ds_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($strin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2945	3050	
==>ds_altered.delete('global');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($strin <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1094	1211	
==>n element of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #lookahead
#     If rules taking <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9084	9181	
==>TP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Con <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9084	9181	
==>TP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Con <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	2998	3099	
==>EBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2998	3099	
==>EBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2448	2550	
==>.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2448	2550	
==>.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2448	2550	
==>.indexOf(substr, pos);
  })')(~$self, ~$substr, +$pos);
}
method rindex(Str $self: Str $substr, Int $po <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10100	10224	
==>sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10100	10224	
==>sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10100	10224	
==>sub _class_dispatch { 
        # memoize the method lookup ...
        return $_class_dispatch_cache{$_[1]} 
            if e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6061	6183	
==>n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6061	6183	
==>n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6061	6183	
==>n =~ s/:\[(.+?)\]$/:$1/;
    }
    $n = '&'.$n;
    my $mn = p6_mangle($n);
    #my $gn = globify_mangled($mn);
    my $cls <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	439	558	
==>pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	439	558	
==>pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	439	558	
==>pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @cands = @_;
  -e $_ and return $_ for @ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31208	31297	
==>either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31208	31297	
==>either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2328	2455	
==>=> 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2328	2455	
==>=> 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5017	5141	
==>et('&dispatcher')->do();        
        }
    )
);

## --------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3993	4111	
==>cname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3993	4111	
==>cname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9355	9485	
==>f },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9355	9485	
==>f },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6652	6858	
==>okie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6652	6858	
==>okie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	199	309	
==>se base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $value; # d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10634	10734	
==>$want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10634	10734	
==>$want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10634	10734	
==>$want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join("=>",@$_)}@$_)."]"
	    } @names6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10688	10787	
==>(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10688	10787	
==>(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10688	10787	
==>(",",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4116	4236	
==>body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4116	4236	
==>body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4116	4236	
==>body->{submethods}}) {
                $new_class->add_method($method_name => ::make_submethod(
                    $body <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5187	5286	
==>lastparen = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastcloseparen = SvOK(lcp) ? SvIV(lcp) : r->n <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	344	439	
==>resented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node t <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	344	439	
==>resented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10149	10291	
==>re being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from dif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10149	10291	
==>re being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from dif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10149	10291	
==>re being called from within
        # our own class or not.
        return bless sub {
            confess "Cannot call private method from dif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22307	22421	
==>MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22307	22421	
==>MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22307	22421	
==>MULTI SUB splice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	661	770	
==>es must be native types";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $cl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	700	798	
==>ure});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	700	798	
==>ure});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7703	7843	
==>reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7703	7843	
==>reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #war <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7703	7843	
==>reverse ($xx) { 
    if ( p6_isa( $xx, 'Array' ) ) {
        my $ret = Array->new();
        $ret->store( $xx );  # unbind slice
        #war <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1423	1558	
==>($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1423	1558	
==>($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1423	1558	
==>($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x0.zip($x1) }

multi sub prefix:<-> ($x) { 0 - $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7315	7454	
==>val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7315	7454	
==>val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7315	7454	
==>val",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3653	3748	
==>lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3653	3748	
==>lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3653	3748	
==>lastly because they'll override *our*
# operators.
use Prelude::JS::Operators;

# XXX! EVIL HACK <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	978	1096	
==>s.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	978	1096	
==>s.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	978	1096	
==>s.length; i++) {
        var deleted = hash.delete_key(keys[i]);
        ret.push(deleted == undefined ? new PIL2JS.Box <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	26	121	
==>e this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	26	121	
==>e this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depen <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	26	121	
==>e this as HARNESS_PUGS for run-smoke.pl.
# (*Only* for run-smoke.pl, as this script highly depen <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7181	7292	
==>primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7181	7292	
==>primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7181	7292	
==>primitive {
  while @rest {
    $head = $head[shift @rest];
  }

  $head;
}

sub prefix:«[=>]» (*@args) is pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4761	4864	
==>ctive unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4761	4864	
==>ctive unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cw <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4761	4864	
==>ctive unicode mangling/encoding first.
#MULTI SUB Y () {...};
MULTI SUB File::Spec::cwd () {p6_from_s(cw <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	521	631	
==>ect {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Obj <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	521	631	
==>ect {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Obj <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3983	4260	
==>port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::de <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3983	4260	
==>port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::de <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35970	36066	
==>reff2 .. reffN
(C<\1>, C<\2>, etc. with C</i> on)

=head2 ifmatch

Family: assertion

Types: ifma <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18944	19042	
==>he wire.

When setting the referrer, this method removes the fragment from the
given URI if it is p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18944	19042	
==>he wire.

When setting the referrer, this method removes the fragment from the
given URI if it is p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1670	1761	
==>y provide stringification, fmapping and value encapsulation features.

They are discussed in <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7055	7171	
==>m1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3659	3775	
==>m1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4508	4624	
==>m1 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::term2 {
    return $_[0] unless re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26453	26588	
==>t;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub visual {
    my $self = shift;
    join "", "(?" <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2132	2233	
==>ig{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or die "Could not updat <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29743	29837	
==>e analysis.

Trap STDERR.

Implement Straps total_results()

Remember exit code

Completely red <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	3	111	
==>nfix
infix:«<»( $a, $b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b ) <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12114	12204	
==>cé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out: <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12114	12204	
==>cé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	422	570	
==>Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	422	570	
==>Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            i <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5848	5978	
==>> runcore2human($4),
      timestamp     => [
        $5,
        do { 
          my $str = localtime($5)->strftime("%d %b %Y %H:%M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3392	3503	
==>estore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3392	3503	
==>estore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3392	3503	
==>estore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4258	4352	
==>IL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4258	4352	
==>IL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4258	4352	
==>IL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "smallr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1638	1746	
==>eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1638	1746	
==>eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1638	1746	
==>eq 'NaN' ) {
        return "p6_new('Num',Perl6::Value::numify('NaN'))";
    }
    "p6_new('Num','$_[0][0]')" <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	60	166	
==>ile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	60	166	
==>ile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	60	162	
==>ile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19031	19157	
==>$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing g <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15452	15578	
==>$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1631	1744	
==>=> "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1631	1744	
==>=> "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1631	1744	
==>=> "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @ISA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7303	7443	
==>gnored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\X[A;B] in character class") if @hex > 1;
        return $S <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	234	370	
==>cial meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	234	370	
==>cial meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less t <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32285	32379	
==>, Locale::KeyedText expects its Template modules to come
from Perl modules, but in the future t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32285	32379	
==>, Locale::KeyedText expects its Template modules to come
from Perl modules, but in the future t <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1996	2088	
==>re { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset num of num128 where { true <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7273	7373	
==>-
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$tr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7273	7373	
==>-
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$tr <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5917	6023	
==>_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5917	6023	
==>_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1946	2048	
==>--------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1487	1579	
==>tribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1487	1579	
==>tribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1487	1579	
==>tribute('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9763	9860	
==>lti sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9763	9860	
==>lti sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5683	5790	
==>dled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5683	5790	
==>dled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5683	5790	
==>dled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for primitives,
    # because el <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1721	1859	
==>l" }

    package Seq;
    use base 'Node';

    package Prim;
    use base qw/Map/;

    package Stub;
    use base qw/Unit/;
    
    pac <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3089	3187	
==>E

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Serve <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3089	3187	
==>E

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Serve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6371	6464	
==>= $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6371	6464	
==>= $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6371	6464	
==>= $::Class->new();

$::Module->superclasses([ $::Package ]);

$::Module->add_attribute('$:vers <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10251	10350	
==>e()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10251	10350	
==>e()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6988	7115	
==>LED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

=pod
    
    my @list        = Lo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3436	3529	
==>Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free soft <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3436	3529	
==>Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free soft <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4491	4637	
==>ringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4491	4637	
==>ringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4491	4637	
==>ringify}( @_ ) }
sub int           { $_[0]->elems }
sub bit           { $_[0]->elems > 0 }
sub num           { $_[0]->elems }
sub perl          { ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11597	11733	
==>= $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11597	11733	
==>= $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11597	11733	
==>= $self->_get_method_table(\%params);                  
    return keys %{$table};
});

::Class.meta.add_method('remove_method' => method <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1903	2035	
==>{
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_si <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1903	2035	
==>{
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_si <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	533	657	
==>in       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{siteprefix},

        installsc <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5499	5620	
==>Syms, $pStmts) {
    my(@vars);
    for (@$pSyms) {
	my($var)=@$_;
        push(@vars,$var);
    }

    my @varsm = map{p6 <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3774	3893	
==>f (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3774	3893	
==>f (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	913	1015	
==>, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	913	1015	
==>, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	913	1015	
==>, Code $b) is primitive { $a ?? $b() !! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7846	7950	
==>= grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7846	7950	
==>= grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7846	7950	
==>= grep {!$have_classes{$_}} @classes;
    return if !@classes_needed;
    my $code;
    foreach (@classes <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1472	1607	
==>d,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.outp <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1472	1607	
==>d,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.outp <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5227	5350	
==>ub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cls eq 'Undef';
    return new_box('Bool',(shift()?1:und <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12095	12210	
==>brule_end:
    if $S0 != ">" goto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27987	28080	
==>ith
the variable name specified in the positional parameter $var_name (a
string).

=item C<get <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27987	28080	
==>ith
the variable name specified in the positional parameter $var_name (a
string).

=item C<get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3222	3308	
==>:Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Car <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3222	3308	
==>:Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Car <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14649	14750	
==>+'> <UnaryExpression>
    | <'-'> <UnaryExpression>
    | <'~'> <UnaryExpression>
    | <'!'> <UnaryEx <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8523	8624	
==>+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operator pair, suc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6059	6157	
==>+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operator pair, suc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24745	24912	
==>1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25024	25191	
==>1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11104	11224	
==>paren)
  $self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G (. <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39649	39736	
==>uncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::Keye <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39649	39736	
==>uncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::Keye <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	229	349	
==>hift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	229	349	
==>hift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  retur <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	229	349	
==>hift;

  ($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};

  no warnings "recursion";
  retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	18	135	
==>ay "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	18	135	
==>ay "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	18	135	
==>ay "1..$n"; }

my $count = 0;

sub ok ($v, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # TODO "~$todo.va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9160	9295	
==>l  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9160	9295	
==>l  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9160	9295	
==>l  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_new(Junction => 'one',  @xx) };
MULTI SUB none (*@xx) { p6_new <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3267	3363	
==>X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3267	3363	
==>X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl: <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9359	9488	
==>match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9347	9476	
==>match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1] <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5459	5575	
==>'&control_structure:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3755	3909	
==>'list' };
}

sub emit_yapp {
    my ($self) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n";
    my $prec = "P000";
    my %seen;
    for my $lev <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10192	10327	
==>st, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_aut <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10192	10327	
==>st, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_aut <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	971	1071	
==>Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expec <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1029	1129	
==>Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expec <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	140	251	
==>nk => "Martini"
);

say "$wer hat einen $haustier";
say "$wer mag @obst[0] und @obst[1]";
say "{$wer}s Lieblings <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17717	17812	
==>ect. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't see <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17717	17812	
==>ect. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't see <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2204	2365	
==>set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REPOSITORY_SET,
        },
        installation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11115	11223	
==>uld provide their own BUILD submethods? This would 
mean that BUILD methods would need to be collected in som <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11115	11223	
==>uld provide their own BUILD submethods? This would 
mean that BUILD methods would need to be collected in som <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11115	11223	
==>uld provide their own BUILD submethods? This would 
mean that BUILD methods would need to be collected in som <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	291	409	
==>::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pugs::Grammar::Perl6->pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16351	16441	
==>_)).

rm(modify(M),F0,F0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1304	1409	
==>ct {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

m <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1304	1409	
==>ct {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1475	1586	
==>ct> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1475	1586	
==>ct> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	2017	2141	
==>ngle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	2017	2141	
==>ngle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	2017	2141	
==>ngle $name;
    if($self->{CC}) {
      return $self->{CC}->as_js . "($jsvar)";
    } else {
      return $jsvar;
    }
  }
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5998	6083	
==>BIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5998	6083	
==>BIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5998	6083	
==>BIND: ".Perl6::Value::stringify($self->{array})." -- ".Perl6::Value::stringify($self-> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1868	1986	
==>o create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	532	631	
==>{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %see <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	532	631	
==>{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %see <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1649	1758	
==>>isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1649	1758	
==>>isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1649	1758	
==>>isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa("PIL::PCode")  or
      $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2484	2599	
==>_str->to_native } 
        $self->slice(num->new(0), $self->elems)->to_native
    )     
}

# some of the common lis <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	997	1087	
==>ional, procedural, and object-oriented interfaces.  The 
functional and object-oriented int <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	997	1087	
==>ional, procedural, and object-oriented interfaces.  The 
functional and object-oriented int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2376	2546	
==>{ # $int -> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2105	2211	
==>s), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2093	2199	
==>s), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3140	3321	
==>count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3140	3321	
==>count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3140	3321	
==>count++ if $_ }
                    return Bit->new( '$.unboxed' => ( $count == 1 ) );
                }
                if ( $type eq 'none' ) {
                    for ( @ary ) { r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12060	12256	
==>e_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12060	12256	
==>e_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21781	21880	
==>itstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21781	21880	
==>itstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21781	21880	
==>itstr/,$str));
};
# Str::split - see op1
MULTI SUB connect ($xx0,$xx1) {...};
MULTI SUB Pugs::Intern <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6264	6414	
==>te($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_director <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6264	6414	
==>te($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_director <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2916	3058	
==>s};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2916	3058	
==>s};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2916	3058	
==>s};
        $new_class->roles($body->{does}) if exists $body->{does};        
        
        if ($body->{attributes}) {
            foreach m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	151	290	
==>mCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	151	290	
==>mCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	151	290	
==>mCharCode($f("{$x}.charCodeAt(i)"));
      \}
      return res;
    \})()
  ";
};

my $mapStr2 = -> Str $op, Str $x, Str $y {
  "
    (funct <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4131	4233	
==>nt, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4131	4233	
==>nt, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3825	3918	
==>turn $S->force_object(anyof_class => $S->force_object(horiz => 1)) if $cc;
    return $S->obje <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1062	1154	
==>tional functionality.

The complementary functions are emulated using iterations.

- `new( cl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1062	1154	
==>tional functionality.

The complementary functions are emulated using iterations.

- `new( cl <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9211	9347	
==>x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 ! <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9211	9347	
==>x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 ! <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10166	10261	
==>s($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the right metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2894	3000	
==>AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2894	3000	
==>AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3241	3347	
==>AUTHORS

Chia-liang Kao <clkao@clkao.org>

=head1 COPYRIGHT

Copyright (c) 2006. Chia-liang Kao. All rights <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5355	5483	
==>)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4048	4142	
==>vious => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        un <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4048	4142	
==>vious => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1014	1139	
==>nstance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1014	1139	
==>nstance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]-> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1014	1139	
==>nstance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_add_new_attribute {
        $_[0]-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38497	38628	
==>y->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38497	38628	
==>y->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38497	38628	
==>y->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERSAL::isa( $_, 'Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	5	103	
==>d key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	5	103	
==>d key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	5	103	
==>d key (Pair $self:) is rw {
  die ".key only works on objects of type Pair!" unless $self.isa("Pair <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1971	2084	
==>($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1971	2084	
==>($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1971	2084	
==>($init,$test,$incr,$code) {
    while($test()) {
	$code();
	$incr();
    }
}
multi sub statement_control:until ($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2004	2102	
==>, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2004	2102	
==>, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2004	2102	
==>, 'Perl6::Cell' } 
sub Perl6::Cell::store {
    # warn "Perl6::Cell::store tied=$_[0]{tied} type=$_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30127	30223	
==>lity provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34679	34775	
==>lity provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33852	33948	
==>lity provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C<wrap>, C <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17936	18077	
==>name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for the above (i <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3178	3282	
==>se()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &co <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3178	3282	
==>se()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5648	5777	
==>y $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5648	5777	
==>y $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n) <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20174	20277	
==>y $argl = $param;
	while($argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyargs .= "my \$$2 = \\$1$2;";
	} <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	8798	8918	
==>tions
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersect <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8798	8918	
==>tions
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersect <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1408	1510	
==>:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1408	1510	
==>:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1408	1510	
==>:«gt»",   2, "S", "String(a)  > String(b)",
  "infix:«le»",   2, "S", "String(a) <= String(b)",
  " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14655	14825	
==>{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14655	14825	
==>{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14655	14825	
==>{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4126	4285	
==>$label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4126	4285	
==>$label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4126	4285	
==>$label, %opts)) {
                return $current->get_method($label, %opts);
            }
        }
        return undef;        
    }
    
    sub ::WALKCLA <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11567	11675	
==>heck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $alt; 
    my @alts = map  { $_- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9932	10026	
==>ch are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all t <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9932	10026	
==>ch are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4337	4521	
==>ms( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4337	4521	
==>ms( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4337	4521	
==>ms( _('$:cell')->{v} ) )
            },
            'buckets' =>  sub { Str->new( '$.unboxed' =>
                                _('$:cell')->{tied} ? 
                                _ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1166	1266	
==>as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1166	1266	
==>as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coe <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1166	1266	
==>as($xx,'Bit') };
multi sub int  ($xx) { coerce:as($xx,'Int') };

multi sub prefix:<!> ($xx) { 1 - coe <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2269	2410	
==>ers;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized() <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2269	2410	
==>ers;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1372	1472	
==>S_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropria <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1372	1472	
==>S_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropria <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1372	1472	
==>S_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appropria <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9002	9124	
==>kg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ sh <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10479	10601	
==>kg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ sh <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1286	1404	
==>ION_OBJECT )

=cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	160	311	
==>a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	160	311	
==>a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	160	311	
==>a.elems == 0 ?? () # should be: want.Scalar ?? undef !! ()
                                           !! !@a[0] } # XXX correct?
method JS::Root::true($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	546	673	
==>re { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	546	673	
==>re { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	426	541	
==>t();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	426	541	
==>t();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	426	541	
==>t();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile_perl6_to_standalone_js("-e", ""));
    $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2769	2948	
==>apping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6246	6425	
==>apping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5176	5355	
==>apping(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6636	6731	
==>pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' directive i <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6636	6731	
==>pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' directive i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2253	2386	
==>ion (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2253	2386	
==>ion (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.len <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2253	2386	
==>ion (args) {
      var array = args[1].FETCH();
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.len <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5451	5553	
==>collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5451	5553	
==>collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5451	5553	
==>collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $method_name ($role->get_metho <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3131	3227	
==>a string, and should be called at the 
end of enciphering with zero arguments.

=item C<deciphere <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3131	3227	
==>a string, and should be called at the 
end of enciphering with zero arguments.

=item C<deciphere <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11592	11782	
==>$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7874	8064	
==>$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8708	8898	
==>$_[0]->{capture} ); \n" .
                "    my \$src = <<\'!EOT!\'; \n" . 
                $block . 
                "\n!EOT!\n" .
                $binding .
                #"    print 'e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6907	7012	
==>sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1263	1366	
==>sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit_category { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	365	465	
==>sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit_category { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3501	3613	
==>$path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3501	3613	
==>$path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3501	3613	
==>$path [" .
    (-d $cfg{$what} || (-f $cfg{$what} && -s $cfg{$what}) ? "OK" : "NOT FOUND") .
    "]\n";
}

sub co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	268	379	
==>sh iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	268	379	
==>sh iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	268	379	
==>sh iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8988	9125	
==>t . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8988	9125	
==>t . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8988	9125	
==>t . "..". $list->end;
            $length = $count if $length > $count;
            my $shifted = ref($list)->from_x(
                item <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15483	15597	
==>r target, pos, $I1
    cname = escape cname
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cn <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3944	4038	
==>ll be passed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $mon <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3944	4038	
==>ll be passed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $mon <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7968	8110	
==>r i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7968	8110	
==>r i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7968	8110	
==>r i = 0; i < arr.length; i++) {
          if(marray[i]) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BIND <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3308	3440	
==>to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3308	3440	
==>to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3308	3440	
==>to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s,$o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4031	4127	
==>c($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4031	4127	
==>c($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4031	4127	
==>c($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There d <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3330	3430	
==>split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)} <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3330	3430	
==>split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)} <==
3	/Users/nnunley/pugs/util/importgraph.pl	152	251	
==>gs directory with src present
# arrows point from importer to importee

use strict;
use warnings;
us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	647	755	
==>),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3686	3783	
==>d vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3686	3783	
==>d vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler: <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13056	13154	
==>ts("=","=").
brackets("?","?"). brackets("#","#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	916	1004	
==>}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::T <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	916	1004	
==>}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::T <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1016	1255	
==>ant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ru <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6198	6319	
==>utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6198	6319	
==>utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15165	15273	
==>t, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15165	15273	
==>t, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pop <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15165	15273	
==>t, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pop <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	312	463	
==>boxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	312	463	
==>boxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	312	463	
==>boxed str
                # things - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8660	8751	
==>die::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rpara <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39620	39720	
==><cross_product>, C<cross_join>.

=item C<product (Relation::Example *@others) returns Relation::Examp <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12139	12230	
==>Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>] <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12139	12230	
==>Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>] <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10302	10418	
==>rn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13779	13895	
==>rn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $o <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13060	13176	
==>rn $?SELF!_intersection( $other );
    }

    # Now, the standard case of a semijoin.
    return $?SELF!_semijoin( $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5661	5835	
==>iate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5661	5835	
==>iate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # the <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	5661	5835	
==>iate";       
        return [] if ${$attr} =~ /^@/;
        return {} if ${$attr} =~ /^%/;        
        return undef;
    }
    
    {   ## Attribute "Types"
        # the <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1239	1365	
==>efined $/[18] ) {
        my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $duration = duration($/[29 <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2168	2268	
==>se = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    retur <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2168	2268	
==>se = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    retur <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	207	311	
==>@OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->imp <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	413	517	
==>@OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->imp <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8690	8781	
==>])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p5_charset_items_opt(L0), p5_chars <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	480	605	
==>.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	480	605	
==>.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	480	605	
==>.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  })')($thing);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	192	306	
==>H().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	192	306	
==>H().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	192	306	
==>H().key);
  })')($self);
}

method value (Pair $self:) is rw {
  die ".value only works on objects of type Pair!" u <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5885	6002	
==>ement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5885	6002	
==>ement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5394	5504	
==>ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^mul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5394	5504	
==>ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14456	14603	
==>ings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14456	14603	
==>ings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14456	14603	
==>ings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:nam <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3068	3269	
==>tor" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Roset <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3068	3269	
==>tor" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Roset <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1847	1985	
==>e = <>;
    }

    if ($compile_only) {
        print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3130	3249	
==>l6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3130	3249	
==>l6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3130	3249	
==>l6::Value::List->from_num_range( start => 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	91	239	
==>r {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @dat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	91	239	
==>r {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @dat <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2062	2151	
==>ft", &parse_quant);
    $optable->addToken("postfix:?", "postfix:*", "left", &parse_quant) <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7661	7761	
==>_[1]->instantiate($_[0]) };

# an instantiated variable will unify it's instantiated value instead of <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2518	2610	
==>ot inherit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2518	2610	
==>ot inherit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8780	8888	
==>(@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8780	8888	
==>(@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8780	8888	
==>(@{$pil_params}) {
	my @info;
	my $default = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $defa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8202	8353	
==>ata( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4562	4713	
==>ata( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5411	5562	
==>ata( $_[0], "\$<$_>" ) } 
                qw( prefix id list rule code );
            $prefix = match::str( $prefix );
            $id     = match::str( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14139	14261	
==>get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14139	14261	
==>get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14139	14261	
==>get_method_table(\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4389	4563	
==>t = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4389	4563	
==>t = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4389	4563	
==>t = $i->nextToken;    
        if ($next eq '{') {
            $curly_count++; 
            $method_source .= $next;
        }
        elsif ($next eq '}') {
            $curl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6232	6343	
==>capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6031	6137	
==>capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that ma <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4350	4439	
==>ww.research.att.com/~njas/sequences/A001113
}

 multi method Array::delete (@array ; *@ind <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1597	1734	
==>s($.query_string);
            } else {
                $.query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1597	1734	
==>s($.query_string);
            } else {
                $.query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	1002	1090	
==>d for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'D <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38365	38493	
==>vide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42914	43042	
==>vide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is p <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42564	42692	
==>vide>

I<TODO.>

=item C<transitive_closure>

I<TODO.>  Aliases: C<tclose>.

=back

=head1 DIAGNOSTICS

I<This documentation is p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5562	5668	
==>= &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5562	5668	
==>= &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5562	5668	
==>= &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better
  # implementati <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19226	19321	
==>ulti pop (@array) is builtin is primitive { List::pop(@array) };
multi pop ($array) is builtin i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	842	932	
==>the Perl6-in-Perl5 compiled code

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.or <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13749	13891	
==>self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1004	1113	
==>tors
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1004	1113	
==>tors
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1004	1113	
==>tors
my @subs = (
  "infix:«<»",    2, "N", "Number(a)  < Number(b)",
  "infix:«>»",    2, "N", "Number(a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5219	5365	
==>$vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5219	5365	
==>$vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5809	5955	
==>$vars->{$_})
	   for keys %$vars;
	return;
    }
    die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	513	621	
==>F;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	513	621	
==>F;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsn <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	513	621	
==>F;
var __cc   = $self->{CC};
var __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14005	14117	
==>dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No nex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14005	14117	
==>dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No nex <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14005	14117	
==>dispatcher;
        my $method = ::WALKMETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No nex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2726	2836	
==>file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2726	2836	
==>file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2726	2836	
==>file and save as HTML
USAGE

sub command_conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    p <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1124	1229	
==>tion's attributes and the value corresponding
        # to that is the value for that attribute for that t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4602	4707	
==>tion's attributes and the value corresponding
        # to that is the value for that attribute for that t <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	919	1013	
==>Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::ValuePrimitive;
cl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4877	4974	
==>ish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and return <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4877	4974	
==>ish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9290	9402	
==>se Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Gl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9290	9402	
==>se Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Gl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9290	9402	
==>se Perl6::Container::Scalar;

  ...

=head1 DESCRIPTION

...


=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Gl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8467	8571	
==>_object(anyof_char => chr(oct $o), "\\0[$o]");
      }

      return $S->object(exact => join("", map chr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	1245	1342	
==>return $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1245	1342	
==>return $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5545	5718	
==>_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5545	5718	
==>_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2791	2890	
==>s_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6', 'lib');
    open MAKEFILE, '< Make <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	857	952	
==>he combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	857	952	
==>he combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	225	318	
==>efile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installe <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	722	1029	
==>when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ev <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	722	1029	
==>when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ev <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	52	149	
==>, compilation doesn't work if the above line is uncommented.

# our &prefix:<?> := &true doesn't w <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1109	1211	
==>because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1109	1211	
==>because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1109	1211	
==>because PIL2JS.Ref calls .FETCH() (to init its
    // .container_type), but this is clearly not what we <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22881	22996	
==>logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19302	19417	
==>logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12624	12728	
==>ly connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to cre <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12624	12728	
==>ly connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to cre <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13	108	
==>perl; cperl-indent-level: 4 -*-
# $Id: Straps.pm 450 2004-12-20 04:51:42Z andy $

package Test:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11976	12071	
==>yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11976	12071	
==>yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_req <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11976	12071	
==>yaml ($xx) {...};
#MULTI SUB PIL::Run::Internals::call_perl5 ($xx0,*@xxa) { # XXX - see help_req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17989	18094	
==>_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17989	18094	
==>_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17989	18094	
==>_from_n(p6_to_n($xx0) + p6_to_n($xx1)) };
MULTI SUB infix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9203	9304	
==>\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9203	9304	
==>\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9203	9304	
==>\$\@\+\%\:]\*?JS::(.+)$/) {
    return $1;
  } elsif($str =~ /^([\&\$\@\+\%\:])([?*=]?)(CALLER::)+(.+) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11588	11713	
==>eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11582	11707	
==>eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	320	418	
==>string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::DuplicateFin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3299	3425	
==>->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3299	3425	
==>->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3299	3425	
==>->STORE($current_class->name => $current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22677	22823	
==>,
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22956	23102	
==>,
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	320	419	
==>ul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
#print $rpc_token->perl5, "\n";

{ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3472	3567	
==>Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3472	3567	
==>Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::P <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7409	7527	
==>_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14716	14810	
==>onn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14716	14810	
==>onn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4086	4182	
==>set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_r <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4086	4182	
==>set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_r <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6664	6758	
==>loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $modu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6664	6758	
==>loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $modu <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	8227	8327	
==>=> ('type::operator::nullary', 'type::operator::nullary') => sub {
	my ($x, $y) = (shift, shift);

	$ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2869	2957	
==>ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2869	2957	
==>ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4721	4844	
==>t}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[4], } }
        

    | MY NUM attr 
        { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4074	4180	
==>h each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4074	4180	
==>h each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1954	2099	
==>b: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1954	2099	
==>b: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1954	2099	
==>b: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility for us t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14358	14487	
==>{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize the path: beware of future chdirs().
	# We could do F <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	341	444	
==>ounty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upsid <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	341	444	
==>ounty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upsid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5005	5133	
==>->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5005	5133	
==>->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5005	5133	
==>->params->fixup(
        $self->prefix,
        $self->body eq "PNil"
          ? bless {} => "PIL::PNil"
          : $self->body <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1552	1670	
==>N_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1552	1670	
==>N_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1552	1670	
==>N_SUBLIKE ? "var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2654	2764	
==>sn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2654	2764	
==>sn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2654	2764	
==>sn't
# matter. XXX XXX evil hack)
method sort(@self: Code $cmp = &infix:<cmp>) { sort $cmp, @self }
method PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2419	2526	
==>&b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2419	2526	
==>&b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leav <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2419	2526	
==>&b)
  # With PIL2 the hack won't be necessary any longer, as PIL2 will report
  # proper lexpad info by leav <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1965	2125	
==>y $postrm = $meta . '/' . $Postrm;
    if( -e $postrm && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13410	13510	
==>-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is a discrete <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13410	13510	
==>-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is a discrete <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	741	870	
==>l2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	741	870	
==>l2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with doc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	741	870	
==>l2js_tty");
      if (node) {
          // This approach is neater, but causes buffering problems when
          // mixed with doc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6906	7022	
==>gs;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6906	7022	
==>gs;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6906	7022	
==>gs;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @params = map{Perl6::Param->new('name' => $_)} @a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2093	2206	
==>R::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2093	2206	
==>R::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2093	2206	
==>R::expand();
    }
}
package PVar; @ISA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    $PIL::Run <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4759	4857	
==>ted_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <character_set>+ \> }
rule character_s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11676	11765	
==>code_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&deco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11676	11765	
==>code_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&deco <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7347	7445	
==>$base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are th <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7347	7445	
==>$base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are th <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19706	19883	
==>UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $bonusmsg .= (" ($tot->{todo} subtest".($tot->{todo} > 1 ? 's' : '').
                   " TODO)")
            if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	544	694	
==>urn $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	544	694	
==>urn $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query. <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17320	17419	
==>ind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17320	17419	
==>ind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5551	5666	
==><'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implement <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	265	362	
==>d to, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certa <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	265	362	
==>d to, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1266	1365	
==>_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args), <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1266	1365	
==>_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args), <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1266	1365	
==>_from_n(Math::Trig::pi)};
MULTI SUB say (*@args) {
    p6_new(Int => print( (map{p6_to_s($_)}@args), <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4225	4327	
==>> will
be reduced to 10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	394	493	
==>at ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

me <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	394	493	
==>at ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

me <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	586	695	
==>) = @_;
    $Conf = $class->read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YAML.p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3101	3190	
==>($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash: <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3101	3190	
==>($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash: <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2784	2901	
==>eturn $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2784	2901	
==>eturn $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	599	725	
==>, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	599	725	
==>, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	599	725	
==>, %attrs) = @_;
        (defined $class) 
            || confess "Cannot create an opaque instance without a class";
        my <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2387	2478	
==>p://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending ma <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2387	2478	
==>p://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1088	1196	
==>re of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs op <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1088	1196	
==>re of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs op <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1088	1196	
==>re of whole lazy slice
#   supports syntax: @a = (0..Inf); @a[1,10,100..10000] = @a[500..30000]
#   (needs op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6917	7099	
==>. '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6917	7099	
==>. '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # T <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6917	7099	
==>. '_Curried_',
                    '$.params' => [ Perl6::Param->new( 'name' => '*@_' ) ],
                    '$.returns' => undef,
                );
            },

            # T <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11457	11607	
==>:
    $I1 = pos - $I0
    subname = substr target, $I0, $I1
    $S0 = substr target, pos, 2
    if $S0 == ": " goto subrule_text
    $S0 = substr targe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3768	3866	
==>n these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3768	3866	
==>n these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8213	8416	
==>am );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8213	8416	
==>am );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8213	8416	
==>am );
                }
                else {
                    # empty cell
                    return Bit->new( '$.unboxed' => 0 ) if $method eq 'bit';  # XXX ?
                    return $::CLASS if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14660	14803	
==>s1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14660	14803	
==>s1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 A <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14660	14803	
==>s1 'Block'.$class_description => {
    is => [ 'Code', $::Object ],
    class => {},
    instance => {},
};
        
1;

__END__

=pod

=head1 A <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10099	10221	
==>unk") } keys %$prog;

my $r = Runtime->new( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&te <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5431	5533	
==>nthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5431	5533	
==>nthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1842	1961	
==>f}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1842	1961	
==>f}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1842	1961	
==>f}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline('new PIL2JS.Box.Constant(fun <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2131	2284	
==>d = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        } <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	399	505	
==>Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	399	505	
==>Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5012	5116	
==>~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5012	5116	
==>~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5012	5116	
==>~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6873	6995	
==>self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6873	6995	
==>self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11765	11868	
==>ecimalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDig <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11267	11383	
==>is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14744	14860	
==>is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross- <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14052	14168	
==>is identity-one tuple; result is first source.
        return $?SELF;
    }

    # Now, the standard case of a cross- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9096	9237	
==>:Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9096	9237	
==>:Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9096	9237	
==>:Value::p6v_isa( $param[0], 'Array' ) ) {
                        $self->clear;
                        for ( 0 .. $param[0]->elems->unboxed - <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1974	2111	
==>y; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1974	2111	
==>y; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# X <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1974	2111	
==>y; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args);
  }

  undef;
}

# X <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7109	7222	
==>$self->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} els <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1471	1578	
==>piler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1471	1578	
==>piler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30837	30933	
==>Koenig held the torch for many years, and then
Michael G Schwern.

Current maintainer is Andy Les <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15697	15790	
==>municate in those languages.  Or, when viewing an error message, the
application's developer s <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15697	15790	
==>municate in those languages.  Or, when viewing an error message, the
application's developer s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3558	3672	
==>ned $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3558	3672	
==>ned $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3558	3672	
==>ned $subname or $subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5598	5804	
==>0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whil <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5598	5804	
==>0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whil <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5598	5804	
==>0]->nextkey;
                }
                return $ary;
            },
            'values' => sub { 
                my $key = $_[0]->firstkey;
                my $ary = Array->new;
                whil <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3668	3795	
==>path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3668	3795	
==>path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1475	1572	
==>:null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::Val <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12735	12835	
==>hod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12735	12835	
==>hod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12735	12835	
==>hod(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7655	7751	
==>t will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7396	7489	
==>t will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	692	805	
==>6main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	692	805	
==>6main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	692	805	
==>6main_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());
        var repl <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4413	4560	
==>+;
            $pass = 1;
            $totals->{bonus}++ if $result{ok}
        }
        elsif( $result{type} eq 'skip' ) {
            $totals->{s <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6787	6880	
==>=item mirror($url, $file)

Get and store a document identified by a URL, using
I<If-modified-s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6787	6880	
==>=item mirror($url, $file)

Get and store a document identified by a URL, using
I<If-modified-s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5258	5382	
==>$value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5480	5604	
==>$value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1718	1836	
==>label) == $bit::TRUE) {
            #warn "calling method (" . $label->to_native . ")";
            return $methods->fe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7715	7832	
==>ree} = pop @{ $rx->{stack} };
    return $self;
  }
}


{
  package Regexp::Parser::prop;
  push @ISA, qw( Regexp::Par <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	216	327	
==>e get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of i <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	216	327	
==>e get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1969	2088	
==>shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1969	2088	
==>shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1969	2088	
==>shift;
    local $_;

    return join "\n", map { $_->as_js_bind } @$self;
  }

  sub autothread_wrapper {
    my ($self <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5583	5707	
==>new (%:attributes))      (hash)
     (attribute new (%:methods))         (hash)))    

=cut

# create the basic Class
$::Clas <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	708	811	
==>f the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' } <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	708	811	
==>f the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' } <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	3349	3449	
==>thout a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All method <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3349	3449	
==>thout a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All method <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1471	1584	
==>e: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shi <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1471	1584	
==>e: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shi <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6850	6961	
==>"waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($file)";
        push @{ $self->{m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1554	1645	
==>Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1554	1645	
==>Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1006	1111	
==>ash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using tr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1006	1111	
==>ash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using tr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1006	1111	
==>ash too)
# TODO - lvalue substr

# TODO - test tied Scalar
# TODO - test 'readonly' and 'tieable' using tr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10225	10364	
==>xists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10225	10364	
==>xists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10225	10364	
==>xists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the private methods
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3314	3421	
==>n (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3314	3421	
==>n (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1]. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3314	3421	
==>n (args) {
    // [].concat(...): Defeat modifying of the original array.
    var array = [].concat(args[1]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7004	7119	
==>IKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7004	7119	
==>IKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7004	7119	
==>IKE == PIL::SUBCOROUTINE
        ? PIL::coro_cc    $coro_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4581	4684	
==>c_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module sourc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4581	4684	
==>c_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module sourc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31862	31992	
==>like a look-ahead or a character class).

=item nparen

The capture group related to this object (like for OPEN and back
references <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9283	9401	
==>gfile => perl script
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to stdout
#   args     => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	992	1094	
==>($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	992	1094	
==>($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcirc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	992	1094	
==>($key, $value);
}

# Needs PIL2 and MMD to be done without hacks
sub PIL2JS::Internals::Hacks::postcirc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17338	17504	
==>m == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17338	17504	
==>m == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17338	17504	
==>m == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->unboxed->it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	11996	12098	
==>return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	11996	12098	
==>return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	11996	12098	
==>return undef;
    };
}));

$::Class->add_method('_make_descendant_dispatcher' => ::make_private_method( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14269	14402	
==>.= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            retu <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10347	10453	
==>ubs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10347	10453	
==>ubs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	503	632	
==>.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	503	632	
==>.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	503	632	
==>.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

my $mapStr2Fill = -> Str $op, Str $x, Str $y {
  "
    (function () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	11168	11351	
==>::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	11168	11351	
==>::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	11168	11351	
==>::Cell->new;
                            my $h = Perl6::Container::Array->new( items => [ @_ ] );
                            $cell->{v} = $h;
                            $cell->{type} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5443	5560	
==>ly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5443	5560	
==>ly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5443	5560	
==>ly
#  $eval ~= "
#    our &infix:\{\"»$op«\"\} := &__hyper.assuming( 'op' => &infix«$op» );
#    our &infix:\{\">> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4173	4283	
==>ly one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4173	4283	
==>ly one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4173	4283	
==>ly one reference argument may be given to &PIL2JS::run_pil2js!";
    } elsif(ref $_) {
      my ($fh, $fn) = Fi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1170	1361	
==>, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1170	1361	
==>, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25274	25357	
==>,H,I,J)).
set_flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2554	2657	
==>straction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2554	2657	
==>straction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2554	2657	
==>straction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $body = $_[0]{'pStmts'}->expa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1329	1431	
==>_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1329	1431	
==>_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1329	1431	
==>_new('Int','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	417	523	
==>n (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	417	523	
==>n (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	417	523	
==>n (args) {
      var array = args[1].FETCH(), idx = Number(args[2].toNative()), cc = args.pop();
      cc(n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2446	2591	
==>, 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2446	2591	
==>, 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$qu <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1481	1605	
==>st( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2773	2882	
==>main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2773	2882	
==>main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2773	2882	
==>main_3a_3aprefix_3a_" . ($type eq "S" ? "7e" : "2b");

    register "&$name" => sub {
      my ($cc, $a, $b) = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3540	3681	
==>n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4389	4530	
==>n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] u <==
3	/Users/nnunley/pugs/util/grokprims.pl	803	924	
==>sion="1.1" encoding="UTF-8" ?><html><body><table border="1">';



foreach my $op (sort 
         {
           $a->{name} c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22951	23053	
==>be composed
into separate (and usually third-party) classes, which at the very least
must determine the <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2690	2785	
==>) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
conform <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2690	2785	
==>) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
conform <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6569	6695	
==>:Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6569	6695	
==>:Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6569	6695	
==>:Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' =>  sub { Bit->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6518	6628	
==>_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6518	6628	
==>_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->ca <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6518	6628	
==>_SUBLIKES, $self->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->ca <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2196	2369	
==>keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2196	2369	
==>keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %ch <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8331	8436	
==>t pos, len
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11866	11982	
==>$f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11866	11982	
==>$f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11866	11982	
==>$f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split(/::/,$pkg);
    my $tmp = "";
    my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1648	1742	
==>r.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1648	1742	
==>r.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1648	1742	
==>r.toLowerCase() })')(~$self) }

method lcfirst(Str $self = $CALLER::_:) { lc(substr $self, 0, 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11218	11315	
==>in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11218	11315	
==>in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11218	11315	
==>in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submethod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2045	2219	
==>key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2045	2219	
==>key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2045	2219	
==>key),
              new PIL2JS.Box(undefined)
            ));
          }
          hash.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23457	23558	
==>6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_commo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23457	23558	
==>6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_commo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23457	23558	
==>6_from_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_commo <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1305	1405	
==>m (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ $^a.round_half_down: symmetr <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20629	20726	
==>he program
in the order you chose so to pick a supported language closest to your
preference.  Pre <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20629	20726	
==>he program
in the order you chose so to pick a supported language closest to your
preference.  Pre <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3547	3643	
==>e query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_para <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3547	3643	
==>e query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_para <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13092	13208	
==>g the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10, <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13092	13208	
==>g the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29066	29166	
==>use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29066	29166	
==>use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29066	29166	
==>use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

use constant Inf => Perl6::Value::Nu <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	13020	13117	
==>C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13020	13117	
==>C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19325	19492	
==>${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19325	19492	
==>${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19325	19492	
==>${$_[0]->{class}}->{attrs}->{'$:name'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->{id} . ")>"
        }, 
        f <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3506	3608	
==>e "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will pu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3506	3608	
==>e "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35530	35628	
==>pectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation::Example $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4911	5019	
==>$arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4911	5019	
==>$arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4911	5019	
==>$arg;
    } else {
      return "$cc(new PIL2JS.Box.Constant($sub(\n$arg\n)))" if $native;
      return "$sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3390	3524	
==>eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3390	3524	
==>eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3390	3524	
==>eigenclass->add_method($label, $method);        
    }
    else {
#        warn "hello from already eigened : $self";
        ::bind_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1839	2001	
==>tchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1839	2001	
==>tchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1839	2001	
==>tchable')
            || confess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13404	13508	
==>head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13404	13508	
==>head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13404	13508	
==>head1 NAME

Perl6::Container::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4061	4196	
==>RO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4061	4196	
==>RO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4061	4196	
==>RO now
        ::opaque_instance_attr($self => '@:MRO') = [];
        # and recalculate it ..
        $self->MRO();
    }
    ::opaque_i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19409	19514	
==>y => ide("y"),
);

# this is a higher order function that takes a function and applies it to a string
# th <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17959	18059	
==>ngled with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it u <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2318	2418	
==>ngled with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8762	8958	
==>{
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8762	8958	
==>{
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'und <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8762	8958	
==>{
                        _('$:cell')->store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'und <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36759	36854	
==>s too.  Another trivial case is if any
source relation is the identity-one relation (zero attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41308	41403	
==>s too.  Another trivial case is if any
source relation is the identity-one relation (zero attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40931	41026	
==>s too.  Another trivial case is if any
source relation is the identity-one relation (zero attrib <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2848	2975	
==>B infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2848	2975	
==>B infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2848	2975	
==>B infix:<,>  (*@a) {
    # warn "COMMA: @a\n";
    my $a = p6_from_a( @a );
    # warn "elems: ". p6_to_n( $a->elems );
    my $ <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	1170	1268	
==>ges so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}. <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3010	3108	
==>ges so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}. <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	264	390	
==>ARGV) {

    ### the path to install to... distilled from the archive name
    ### XXX maybe metainfo name later? requires peek <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9867	9961	
==>.

Recurrence sets can be combined with union, intersection, difference, and a few
other operat <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9867	9961	
==>.

Recurrence sets can be combined with union, intersection, difference, and a few
other operat <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1154	1268	
==>script {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can't op <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	30413	30524	
==>arn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	30413	30524	
==>arn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	30413	30524	
==>arn "ret $ret_length == ".scalar(@ret)." length $length";
        last if $ret_length >= $length;
        if ( 0 <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	823	1090	
==>{ 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_do <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	823	1090	
==>{ 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_do <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1391	1507	
==>$1\\x{24}$2/g; # work around two uninteresting tests.
	$expr =~ s/\$&/\".\$m.\"/g;
	$expr =~ s/\$([0-9]+)/'".$m->['.( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11206	11312	
==>e collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11206	11312	
==>e collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11206	11312	
==>e collected in some way.
So that BUILDALL not only ran the Class BUILD submethod, but any
Role BUILD submet <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	85	171	
==>--------------------------------------------------------------------
## now for some bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	85	171	
==>--------------------------------------------------------------------
## now for some bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	85	171	
==>--------------------------------------------------------------------
## now for some bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4784	4889	
==>}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4784	4889	
==>}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4784	4889	
==>}\": $!\n";

  print $write_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11573	11707	
==>l need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11573	11707	
==>l need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11573	11707	
==>l need $code->clone in order to work...
            warn "List::map->clone() not implemented";
            warn "map->clone has pending <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7292	7381	
==>eta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7292	7381	
==>eta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7292	7381	
==>eta.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1260	1387	
==>'current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1260	1387	
==>'current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1260	1387	
==>'current_class');
            $self->_discard_whitespace($i);
            my $attr_name = $i->nextToken;
            $current_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4067	4171	
==>ess defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4067	4171	
==>ess defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4067	4171	
==>ess defined $param{shifts};
    $param{pops}    = [] unless defined $param{pops};

    return bless \%par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3091	3208	
==>ttribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3091	3208	
==>ttribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3091	3208	
==>ttribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    ::opaque_instance_attr($self => '%:attributes')- <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2591	2711	
==>s::Check->last_error ), return;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and returns a lis <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7822	7924	
==>raverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) retu <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7822	7924	
==>raverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) retu <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5083	5234	
==>ainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Sc <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5083	5234	
==>ainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Sc <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	9	119	
==>nterface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	9	119	
==>nterface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no e <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6582	6692	
==>l and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kernel_local };

step
  descr  => "Checkin <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4533	4656	
==>d');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatcher) returns opaque {
    &dispatcher.()
}

(closure *W <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17077	17184	
==>don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] sp <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22177	22284	
==>don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1532	1711	
==>w;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1532	1711	
==>w;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1532	1711	
==>w;
                $ary->push( @{_('$.things')} );
                return $ary;
            },
            'num' =>  sub { warn "Junction.num() not implemented" },
            'int <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3133	3258	
==>$r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3133	3258	
==>$r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_cap <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2374	2482	
==>t},
			"correct results for $prog->{name}",
		);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	476	590	
==>n_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	476	590	
==>n_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	476	590	
==>n_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, str ]
        ).toNative());

        return str_. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7544	7687	
==>vate method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7544	7687	
==>vate method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7544	7687	
==>vate method from different class";   
            return $method->(@_);
        } => 'Perl6::PrivateMethod';
    }
    
    # a submethod is a m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1299	1405	
==>er in my duper!"
        if $supers.includes($self);

    $self.SUPER::set_superclasses($super);

}

method <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16933	17030	
==>e a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string represe <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16933	17030	
==>e a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string represe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2291	2401	
==>ush, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2291	2401	
==>ush, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PI <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2291	2401	
==>ush, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) works
# TODO - PI <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2638	2820	
==>efined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2638	2820	
==>efined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2539	2652	
==>d($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2539	2652	
==>d($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2539	2652	
==>d($self) > BOOTSTRAPPED_COMPLETE && 
        $self->class->class->class != $::EigenClass         &&
        $self- <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25717	25820	
==>nstance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #define ROPT_ANCH		(ROPT_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	623	749	
==>es($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	623	749	
==>es($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	623	749	
==>es($want);
    }
    return 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
} <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23854	23966	
==><new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28406	28518	
==><new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27228	27340	
==><new (Set of Str :$heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7463	7585	
==>hr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7463	7585	
==>hr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1308	1420	
==>or %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1308	1420	
==>or %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warnin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1308	1420	
==>or %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        warnin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4872	4994	
==>>container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRA <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4872	4994	
==>>container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRA <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5462	5584	
==>>container_var;

    if ($self->p5type eq '@') {
	my $i = 0;
	# flatten
	for my $var (@$vars) {
	    if (ref($var) eq 'ARRA <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27737	27830	
==>given each original tuple/Mapping as its sole read-only argument, returns a
value that is opti <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32289	32382	
==>given each original tuple/Mapping as its sole read-only argument, returns a
value that is opti <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31381	31474	
==>given each original tuple/Mapping as its sole read-only argument, returns a
value that is opti <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1285	1402	
==>th ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $f <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1285	1402	
==>th ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	3426	3534	
==>uired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	3426	3534	
==>uired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	3426	3534	
==>uired.";
    return Perl5.perl_eval(str);
  })')($code);
  }
  $! = "&eval does not work under PIL2JS.";
  un <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	692	798	
==>($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num t <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1374	1480	
==>($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num t <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25743	25844	
==>.

=item C<FAILED--Further testing stopped: %s>

If a single subtest decides that further testing will <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10857	11010	
==>new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10857	11010	
==>new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $pa <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10857	11010	
==>new(".("'\$.name' => '$name',".
                     "'\$.params' => $params,".
                     "'\$.body' => $subdef)");
    } else {
        my $pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1409	1547	
==>rint "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1409	1547	
==>rint "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15642	15752	
==>ams->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15642	15752	
==>ams->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15642	15752	
==>ams->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::make_method(sub {
    my <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2186	2345	
==>ces to '$tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catf <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5903	6002	
==>de is returned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5903	6002	
==>de is returned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTT <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	521	642	
==>e = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	521	642	
==>e = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	521	642	
==>e = pairs[i]
          ? pairs[i]
          : new PIL2JS.Box.Constant(undefined);
        pair = new PIL2JS.Pair(new PIL2J <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1733	1845	
==>") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1733	1845	
==>") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1733	1845	
==>") };
    ref.STORE    = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    ref.BINDTO   = funct <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1123	1238	
==>The implemention below might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14401	14513	
==>seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1881	1993	
==>seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_s <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6445	6543	
==>for @{.get_set_member_combinations()} -> $module_name {
        # Determine if requested template m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6445	6543	
==>for @{.get_set_member_combinations()} -> $module_name {
        # Determine if requested template m <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23385	23477	
==>and
each doesn't know the others' internals.  Implementing classes can
optionally override th <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11494	11592	
==>em I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figure o <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11494	11592	
==>em I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figure o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5121	5218	
==>=item B<elem () returns num>

=item B<join (?str) returns str>

=item B<each (closure) return nil> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	556	674	
==>}{$key} if defined wantarray and !@_;
        $self->{values}{$key} = shift;
        return $self;
    };
}

foreach my <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7466	7562	
==>an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a ' <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7466	7562	
==>an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a ' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8673	8774	
==>"p6_bind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDefault ? DO <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1731	1827	
==>⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $on <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1731	1827	
==>⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $on <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7122	7227	
==>= $head[shift @rest];
  }
  $head;
}


# signature from S29draft.pod 8651.  In the List section.
multi Arr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9773	9871	
==>nce( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a R <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9773	9871	
==>nce( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2881	2986	
==>d chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2881	2986	
==>d chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2881	2986	
==>d chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37025	37144	
==>fined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37025	37144	
==>fined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37025	37144	
==>fined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 );
    ($ret) = @{$ret->{items <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	573	703	
==>//= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	573	703	
==>//= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	3301	3406	
==>@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	3301	3406	
==>@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	3301	3406	
==>@{$body->{class_attributes}}) {
                $new_class->STORE($attr_name => ($attr_name =~ /^@/ ? [] : <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1330	1462	
==>e'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1330	1462	
==>e'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1330	1462	
==>e'
#           'Context' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27514	27675	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         rule <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27793	27954	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         rule <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3949	4046	
==>rivate accessors
sub ls_all_accessors { sort keys %config }
sub ls_accessors { grep { $_ !~ /^_/ } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13044	13166	
==>));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13044	13166	
==>));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13044	13166	
==>));

$::Class->add_method('_get_method_table' => ::make_private_method(sub {         
    my ($self, $params) = @_;
    # d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	473	590	
==>self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9130	9229	
==>ntifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9126	9225	
==>ntifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15997	16086	
==>sionNoIn> <'>'> <ShiftExpression>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpression <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7995	8101	
==>nt<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody chang <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7995	8101	
==>nt<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody chang <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2684	2784	
==>lue>:=(<term1>)<?p6ws>?\;
        { return { slurp => $() } }
RULE
*{'assign_open_to_variable'} = Pug <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6953	7084	
==>erimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ ) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6721	6847	
==>erimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ ) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2050	2168	
==>[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z:: <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7222	7337	
==>e're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	523	638	
==>e're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6302	6416	
==>"expect: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - check for remaining whitespace! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2184	2281	
==>inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2184	2281	
==>inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2184	2281	
==>inline('(function (str) { return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6758	6871	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6758	6871	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6758	6871	
==>BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand();
    my $sub = p6_new_sub <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4856	4953	
==>quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4856	4953	
==>quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	54	143	
==>e perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	54	143	
==>e perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19296	19393	
==>I SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19296	19393	
==>I SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19296	19393	
==>I SUB infix:<==> ($xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6535	6639	
==>the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10012	10116	
==>the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9104	9208	
==>the heading of the invocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5574	5695	
==>er_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5574	5695	
==>er_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') { <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6164	6285	
==>er_var, $var);
	}
	else {
	    Data::Bind::_alias_a_to_b($ref, $var, 1);
	}
	return;
    }
    if ($self->p5type eq '@') { <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	679	803	
==>al(3),
		),
		result => 6,
		name => "simple multiplication",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param(' <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	961	1060	
==>@items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

metho <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	961	1060	
==>@items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6757	6883	
==>} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6757	6883	
==>} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6757	6883	
==>} = 1 },

            'tieable' => sub { _('$:cell')->{tieable} != 0 },
            'tie' =>     sub { shift; _('$:cell')->tie( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1581	1684	
==>d.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1581	1684	
==>d.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1581	1684	
==>d.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15007	15118	
==>ode into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15007	15118	
==>ode into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8005	8108	
==>rmStack, $temp1;
  reduce_end:
  goto (pop @bsrStack);

  token_match:
  $matchObjPos = $whitespacePosit <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7833	7961	
==>b { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8026	8154	
==>b { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5207	5299	
==><<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' path!
Please remove <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7756	7894	
==>idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11758	11891	
==>idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11758	11891	
==>idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        #print <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1731	1938	
==>c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub {
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $se <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	716	818	
==>od set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	716	818	
==>od set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	320	423	
==>i *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi * <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	320	423	
==>i *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1452	1553	
==>reludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1452	1553	
==>reludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1452	1553	
==>reludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does n <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12280	12381	
==>tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span". <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12280	12381	
==>tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span". <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	551	669	
==>e filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	551	669	
==>e filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1081	1187	
==>ict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core method i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10866	10975	
==>s,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10866	10975	
==>s,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10866	10975	
==>s,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_PERL_SWITCHES} ||
	   defined $ENV{PU <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5107	5252	
==>idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5309	5449	
==>idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5309	5449	
==>idx, $pad) = 0;
    while(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1302	1410	
==>d values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1302	1410	
==>d values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1302	1410	
==>d values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of the lazy arr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2609	2712	
==>et_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1221	1324	
==>et_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1922	2025	
==>et_str( $_[0], '$<ident>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1829	1981	
==>one?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1829	1981	
==>one?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1829	1981	
==>one?
                $sep = "|" if _('$.type') eq 'any';
                $sep = "&" if _('$.type') eq 'all';
                $sep = "^" if _('$.type') eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5759	5859	
==>ore realistic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5759	5859	
==>ore realistic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5759	5859	
==>ore realistic example might actually use an inclusion filter, not
an inclusion filter.)

=item B<prun <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18872	18988	
==>sertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15293	15409	
==>sertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
3	/Users/nnunley/pugs/util/package-osx.pl	10783	10886	
==>\(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|in <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5227	5316	
==>ase64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/de <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5227	5316	
==>ase64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4063	4169	
==>s not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4063	4169	
==>s not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4063	4169	
==>s not work on objects of type {$self.ref}!";
  }
}

method pick (Hash|Pair|Array|Junction $self:) {
  if $s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1655	1773	
==>k->last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error(" <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	855	959	
==>ell.

=back

Note that methods are bound into the compiled Class (the Type object)
when they are included <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1291	1393	
==>::Compiler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1488	1597	
==>&& $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1488	1597	
==>&& $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1488	1597	
==>&& $ary->is_infinite;
    my @a;
    for(my $i=Perl6::Value::numify( $ary->elems ) - 1; $i >=0; $i--) {
	$a[$i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	274	376	
==>ormal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	274	376	
==>ormal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	274	376	
==>ormal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2JS.Context.ItemAny, $cond ]
  ).FETCH()
    ?
@ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	640	824	
==>IN {
    __PACKAGE__->add_rule( '$' => '
                <Pugs::Grammar::Var.ident>
                { return { scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	372	486	
==>,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite b <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1230	1344	
==>,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2009	2139	
==>$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_gro <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2009	2139	
==>$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_gro <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4204	4305	
==>LF, $.subscription.subscriber);
    }
    
    method dispatch (Code & Class::Events::Subscriber $subs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20316	20426	
==>oload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20316	20426	
==>oload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition e <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20316	20426	
==>oload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make method composition e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7476	7650	
==>etch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7476	7650	
==>etch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7476	7650	
==>etch( $k ) );
                        #warn "push $_ - ",Perl6::Value::stringify( $a ),"\n";
                        #warn "bind $_ -- $k \n";
                        #$a->fet <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3248	3368	
==>", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3248	3368	
==>", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3248	3368	
==>", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Math.log(10)",
  "int",          1, "N", "a == Infinity || a = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13790	13895	
==>I) --> octdigit(D0), octdigits(D), { number_chars(I, [42,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1052	1157	
==>$self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->file

Location of the source packag <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5675	5777	
==>st plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5675	5777	
==>st plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7199	7301	
==>st plan set.

=item B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_numbe <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2504	2604	
==>~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data, <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2504	2604	
==>~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data, <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19757	19856	
==>dule_imp (*@whatever) {
    die "Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4098	4189	
==>ass::Rebless defines B<only class methods>. There is no instance
constructor, and when calli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4098	4189	
==>ass::Rebless defines B<only class methods>. There is no instance
constructor, and when calli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4098	4189	
==>ass::Rebless defines B<only class methods>. There is no instance
constructor, and when calli <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	171	314	
==>6_is_object
       p6_is_perl6_object
       p6_is_native
       p6_ref
       p6_isa
       p6_undef
       p6_bool
       p6_bit
       p6_int <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4491	4626	
==>r);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 || re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	383	475	
==>AL => --$ENUM, 'Sequence (?{...}) not terminated or not {}-balanced';
use constant RPe_SWNREC <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4834	4962	
==>each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $ve <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4693	4821	
==>each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $ve <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2797	2918	
==>jects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3765	3862	
==>f @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3765	3862	
==>f @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3765	3862	
==>f @_;
    Data::Dumper::Dumper $self;
}));

## --------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	789	896	
==>y is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub A <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	51	152	
==>t;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	51	152	
==>t;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	122	232	
==>) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	122	232	
==>) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	122	232	
==>) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4373	4588	
==>type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4373	4588	
==>type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4373	4588	
==>type ? $type :
            $name =~ /^\$/ ? 
                Perl6::Type->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	250	365	
==>ce, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	250	365	
==>ce, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	250	365	
==>ce, not main!
      // &main::<name> 
      var p6name = "_26main_3a_3a" + imports[sym];
      eval(p6name+" = PIL2J <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1359	1470	
==>unction must receive at least:

    y - target value for y
    f - function of one variable

It looks for an x s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16212	16309	
==>urns a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it co <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16212	16309	
==>urns a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it co <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9593	9710	
==>"The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation." <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13070	13187	
==>"The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation." <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12342	12459	
==>"The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocant relation." <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14245	14345	
==>('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14245	14345	
==>('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14245	14345	
==>('get_method_list' => ::make_method(sub {
    my ($self, %params) = @_;
    my $table = $self->_get_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	584	676	
==>hod JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	584	676	
==>hod JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	584	676	
==>hod JS::Root::unshift($self is rw: *@things) is rw {
  JS::inline('new PIL2JS.Box.Constant(fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1731	1856	
==>N = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $sam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1731	1856	
==>N = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $sam <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1731	1856	
==>N = '0.01';

sub _default_stringify {
    my $self = (shift)->clone;
    my @start;
    my @end;
    my $samples = 3;
    $sam <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8667	8798	
==>ow?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8667	8798	
==>ow?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1250	1350	
==>> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1250	1350	
==>> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub inf <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1250	1350	
==>> ($xx) { 1 - coerce:as($xx,'Bit') }

# multi sub zip ($x0,$x1) { $x0.Array::zip($x1) }
multi sub inf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2526	2621	
==>hrow(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2526	2621	
==>hrow(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2526	2621	
==>hrow(new Error(\\'Modulo zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35225	35366	
==>ay->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35225	35366	
==>ay->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35225	35366	
==>ay->_shift_n( $length );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length - <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10064	10162	
==>ate evaluation will not be set at all.  The scope of immediate
validation is kept to the minimum po <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10064	10162	
==>ate evaluation will not be set at all.  The scope of immediate
validation is kept to the minimum po <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3306	3438	
==>m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3306	3438	
==>m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3306	3438	
==>m.to   += $offset; # XXX - should be writable, but isnt.

        last if $s eq '';

        $offset += $off;
        $s = substr($s, <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	555	665	
==>ing - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :nex <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	555	665	
==>ing - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :nex <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11148	11253	
==>)\n", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this is useful to see that the unnecessary parts of the prelude w <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	826	974	
==>'@' => '
                <Pugs::Grammar::Var.ident>
                { return { array => "\@" . $() ,} }
            ' );
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2080	2177	
==>f the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern a <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2080	2177	
==>f the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1180	1301	
==>turn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1180	1301	
==>turn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1180	1301	
==>turn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2229	2340	
==>"Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2229	2340	
==>"Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2229	2340	
==>"Number(a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5424	5535	
==>g) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5424	5535	
==>g) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5424	5535	
==>g) {   # XXX - Are things getting boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7915	8082	
==>se;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7915	8082	
==>se;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7915	8082	
==>se;
        $ret = $ret->reverse;
        #warn "      got ".p6_to_s($ret)." -- $ret\n";
        $ret;
    }
    else {
        my $tmp = p6_to_s( $xx );
        $tmp = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2203	2323	
==>{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2203	2323	
==>{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2744	2883	
==>expect
  class Test::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer retur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	499	622	
==>expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer retur <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	499	622	
==>expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11742	11895	
==>], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11742	11895	
==>], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11742	11895	
==>], @{$_[2]}) 
            if exists $_normal_dispatch_cache{$class}->{ $_[1] };        
        
        # check if this is a private method
        if ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	248	372	
==>piderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	248	372	
==>piderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	248	372	
==>piderMonkey->new();
    $jssm->init();
    $jssm->function_set("print", sub { print "@_\n"; });
    my $self = {
        JS = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10207	10339	
==>f $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pm <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10207	10339	
==>f $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36227	36342	
==>>send('add_method' => (
    # method label
        symbol->new('get_attribute'),
    # method body
        method->n <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1038	1214	
==>w) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1038	1214	
==>w) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18464	18561	
==>he character
class would render as C<[\w\d:]>.  If you want to go even further and remove
any embe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2374	2622	
==>.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2374	2622	
==>.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $ty <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2374	2622	
==>.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unboxed :
                        $_ != 0
                    } @ary;
                #warn "BIT: $ty <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4100	4228	
==>children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4100	4228	
==>children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.ch <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5192	5316	
==>ge inside a grammar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_o <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26163	26366	
==>list'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

met <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11610	11732	
==>turn $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11610	11732	
==>turn $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5004	5137	
==>ize() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8481	8614	
==>ize() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7492	7625	
==>ize() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names of this relation."
        if any( <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14214	14335	
==>ith_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17691	17812	
==>ith_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17107	17228	
==>ith_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_with_zero_t <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4983	5098	
==>name to test-record
$files->{$_->{file}} = $_ for @{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16006	16102	
==>urns a new Rosetta::Model::Node object, that
lives in the Document object given in the named para <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16006	16102	
==>urns a new Rosetta::Model::Node object, that
lives in the Document object given in the named para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7646	7812	
==>ms => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7646	7812	
==>ms => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $en <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7646	7812	
==>ms => $count ) 
        },
        sum => sub {
            warn "string sum not supported";
        },
        start =>   sub { $start },
        end =>     sub { $en <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2505	2635	
==>,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2698	2828	
==>,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2293	2391	
==>t  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind({ in <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7314	7470	
==>>
    | <'<<'>
    | <'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	929	1053	
==>Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rose <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	929	1053	
==>Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rose <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	353	505	
==>'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	353	505	
==>'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a <==
3	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1493	1620	
==>eq(
						Param('$n'),
						App(
							Sym('&control_structure:<if>'),
							App(
								Sym('&infix:<==>'),
								Sym('$n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	42	140	
==>.]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	42	140	
==>.]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	42	140	
==>.]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2444	2552	
==>?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets h <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2444	2552	
==>?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets h <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1806	1905	
==>ibrary.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing bu <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1806	1905	
==>ibrary.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing bu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3054	3214	
==>>FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $self->get_test_number(),
                        '$.reason <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13586	13728	
==>Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13586	13728	
==>Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1623	1734	
==>") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1623	1734	
==>") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1623	1734	
==>") and (
      $unwrapped->isa("PIL::PLit")   or
      $unwrapped->isa("PIL::PVar")   or
      $unwrapped->isa(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9043	9219	
==>length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9043	9219	
==>length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $len <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9043	9219	
==>length > $count;
            my $shifted = ref($list)->from_x(
                item => $item,
                count => $length,
            );
            $count = $count - $len <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20222	20328	
==>param pmc pad
    .local pmc reps, exp
    .local string cname
    .local int cutnum, padarray, isarray, su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	26513	26751	
==>lue::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	26513	26751	
==>lue::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	26513	26751	
==>lue::stringify($_) } @end );
                    }
                }
                return Str->new( '$.unboxed' => $str );                
            },
            perl => sub {
                #warn "PRINT @_\n";
                my $s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	783	888	
==>ics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	783	888	
==>ics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	863	968	
==>ics;
    }
}

my $Test      = Test::Builder.create( output => Test::Builder::Output.new() );

my @expect_o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29048	29168	
==>T' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29048	29168	
==>T' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
    );

    module MyApp::L::Eng {
        sub get_text_by_key (St <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	399	507	
==>T' => q[The inverse of "<ORIGINAL>" is "<INVERTED>".],
);

module MyApp::L::Eng {
    sub get_text_by_key (St <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11653	11773	
==>$_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11653	11773	
==>$_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11653	11773	
==>$_[2] ];          

        return $_normal_dispatch_cache{$class}->{ $_[1] }->[0]->($_[0], @{$_[2]}) 
            if exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4952	5083	
==>e";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package le <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4952	5083	
==>e";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package le <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4952	5083	
==>e";
        return bless \$name => 'Perl6::StubAttribute';
    }    
    
    # DEPRECATED
    # Class attribute are just package le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13511	13663	
==>whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13511	13663	
==>whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13511	13663	
==>whose fetch/store are bound to this array
                my ( $self, @list ) = @_;

                my $list = $list[0];
                if ( !Perl6::Va <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3070	3200	
==>vailable );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (depend <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3534	3664	
==>vailable );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (depend <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4527	4629	
==>es}{$node->orig};
}

sub is_duplicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17886	18016	
==>ew {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20766	20896	
==>ew {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24554	24684	
==>ew {
    my ($class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7335	7494	
==>y $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	636	795	
==>y $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25249	25363	
==>}'>
}
rule Atom {  # see 15.10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterCla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2264	2368	
==>for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2264	2368	
==>for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)? <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2264	2368	
==>for my $key (keys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)? <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10171	10292	
==>return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10171	10292	
==>return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10171	10292	
==>return $_class_dispatch_cache{$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2439	2630	
==>fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\ <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2439	2630	
==>fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\ <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	22	118	
==>erate .html from .t and test results 
# Generate cross-referenced html for p6 design docs (option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29282	29403	
==>-- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29282	29403	
==>-- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29282	29403	
==>-- @items --";
    return bless { items => \@items }, $class;
}

sub clone { 
    # XXX - TODO - clone Scalars
    my $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8807	8913	
==>und", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $statu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8807	8913	
==>und", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $statu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5555	5707	
==>y $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5555	5707	
==>y $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5555	5707	
==>y $self = shift;
                _('$:cell')->store( undef );
                # what happens if $x was bound to %h ???
                _('$:cell')->{type <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2260	2372	
==>n]");
      }

      return $S->object(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->erro <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4020	4124	
==>turn $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    m <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4020	4124	
==>turn $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29	147	
==>angeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29	147	
==>angeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @el <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29	147	
==>angeLog
#
# 2005-10-06
# * Fixed perlification of arrays -- basically it used to be
#     join ",", map { ~$_ }     @el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3047	3143	
==>tput",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3047	3143	
==>tput",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3047	3143	
==>tput",
  );

  unless($what and $what =~ /^(?:pugs|pil2js|prelude(?:pc)?|metamodel_base|output)$/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	1373	1546	
==>ool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	1373	1546	
==>ool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	1373	1546	
==>ool( 1 );
                $::SELF->val_string( "" );
                $::SELF->val_array( [] );
                $::SELF->val_hash( {} );
                $::SELF;
            } <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	5932	6053	
==>[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	5932	6053	
==>[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	5932	6053	
==>[0] eq $cand;
        }
    }
});

::Class.meta.add_method('MRO' => method () { 
    my $self = shift;
    unless (@{::opa <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2891	2989	
==>e;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2891	2989	
==>e;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2492	2613	
==>the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!fil <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2492	2613	
==>the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!fil <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	3661	3782	
==>ce.pl  # Convert the file. The script appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shif <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1660	1763	
==>d by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1660	1763	
==>d by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37575	37681	
==>is the result of combining all of the source Relations,
such that all common attribute names and correspond <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42124	42230	
==>is the result of combining all of the source Relations,
such that all common attribute names and correspond <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7959	8123	
==>s there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7959	8123	
==>s there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7959	8123	
==>s there a junction in the arg list?
                for my $i ( 0 .. $#arguments ) {
                    my $arg = $arguments[$i];
                    if ( ref($arg) <==
3	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	346	445	
==>ocumentation is not in POD format in order to avoid
# problems when there are fundamental bugs in p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23887	23979	
==>age specific details like
encodings or plurality.

My understanding of alternate solutions li <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23887	23979	
==>age specific details like
encodings or plurality.

My understanding of alternate solutions li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4903	5018	
==>n .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4903	5018	
==>n .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4903	5018	
==>n .shift() one item at a
    # time.
    my @js;
    if($self->is_slurpy and $self->is_first_slurpy) {
      push @j <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13070	13206	
==>ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7317	7469	
==>l",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7317	7469	
==>l",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7317	7469	
==>l",
          body    => sub { "$jsname = val == undefined ? $undef : val;" },
        )) . "});";
    }

    # is copy?
    unless($self->{tpParam}{isLV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16294	16401	
==>xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16294	16401	
==>xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16294	16401	
==>xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - implemented as methods. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1618	1709	
==>:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1618	1709	
==>:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1618	1709	
==>:<for>(@array is rw, Code $code) is primitive {
sub statement_control:<for>(*@args) is primi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17441	17550	
==>> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17441	17550	
==>> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17441	17550	
==>> ($xx0,$xx1) {
    p6_from_s( p6_to_s($xx0) x  p6_to_n($xx1) ) 
};
MULTI SUB infix:<xx> ($xx0,$xx1) {
    p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7660	7842	
==>>bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7660	7842	
==>>bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7660	7842	
==>>bind( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5468	5632	
==>:',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$spac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5468	5632	
==>:',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$spac <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5468	5632	
==>:',$n);
    $parts[-1] =~ /\A([^_]+)_(.+)/ or die "bug";
    $parts[-1] = $2;
    $n = join('::',@parts);
    my $space = $1;
    my $sigil = $sigil_from_space{$spac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22253	22349	
==>x0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22253	22349	
==>x0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22253	22349	
==>x0,@xxa) {chmod(p6_to_n($xx0),map{p6_to_s($_)}@xxa)};
MULTI SUB splice ($xx0,*@xxa) { 
    for (0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6533	6634	
==>f->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6533	6634	
==>f->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6533	6634	
==>f->type->as_constant);
    local $PIL::CUR_SUBNAME = $self->name;

    my $callchain = $self->callchai <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6581	6695	
==>ub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6581	6695	
==>ub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6581	6695	
==>ub infix:<^..>  (Num $from, Num $to) is primitive { ($from + 1)..$to }
sub infix:<..^>  (Num $from, Num $to) is pri <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16380	16486	
==>it's ready to parse the next file.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9107	9202	
==>ad1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/p <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9107	9202	
==>ad1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5206	5335	
==>mitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5206	5335	
==>mitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5206	5335	
==>mitive \{
      if \@things \{
        reduce \{ \$^a $op \$^b \}, \@things;
      \} else \{
        # We should fail() here, but <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4721	4813	
==>ce::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4721	4813	
==>ce::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseve <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4721	4813	
==>ce::Root. This overrides whatever
blessing they had before, but unlike B<rebless>, it preseve <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3915	4019	
==>onal
description of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $l <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3915	4019	
==>onal
description of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $l <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3995	4099	
==>onal
description of the test.  This is the easiest way to match a failing test.

=item B<test_out( Str $l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15060	15221	
==>eop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&us <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15339	15500	
==>eop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&us <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	467	560	
==>ondie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39061	39220	
==>=>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39061	39220	
==>=>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39061	39220	
==>=>   sub { $ret->pop },
            celems => sub { $ret->elems },
            is_lazy => $ret->is_lazy,
        )
}

sub unshift {
    my $array = shift;
    u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	861	970	
==>as *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	861	970	
==>as *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	861	970	
==>as *no* possibility of being
      # called. (This does not affect "next if ...; $other_code".)
      return " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	175	279	
==>r not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilen <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	175	279	
==>r not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3458	3558	
==>->get_y, 200, '... got the right y for p2');

$p->clear;
is($p->get_x, 0, '... got the right x for p' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7863	7976	
==>e Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7863	7976	
==>e Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7863	7976	
==>e Macro-ish form (less typing for you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4745	4870	
==>$span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $op <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4745	4870	
==>$span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $op <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	109	216	
==>ugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement the "magic hash" dispatcher <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4518	4650	
==>ot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4518	4650	
==>ot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13337	13448	
==>get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13337	13448	
==>get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13337	13448	
==>get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . rand;
sub Perl6::V <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29962	30060	
==>ad values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Mes <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29962	30060	
==>ad values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Mes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38639	38735	
==>msg_vars, it will return "Hello World!".  All
occurances of any given variable name will be repla <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38639	38735	
==>msg_vars, it will return "Hello World!".  All
occurances of any given variable name will be repla <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2367	2480	
==>tr $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2367	2480	
==>tr $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2367	2480	
==>tr $qo, Str $qc) is primitive {

  my $global     = %mods{'g'}  || %mods{'global'};
  my $overlap    = %mods{'ov'} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	557	655	
==>Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do expo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	557	655	
==>Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do expo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4056	4170	
==>"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4056	4170	
==>"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4056	4170	
==>"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ /^([\$\@\%\&\:]?)(.+)/) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13007	13124	
==>6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13007	13124	
==>6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13007	13124	
==>6::Value::identify( $key );
    my $r = delete $this->{hashref}{$s};
}
sub clear {
    my ( $this ) = @_;
    %{$this- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	151	246	
==>r::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	151	246	
==>r::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	275	398	
==>alues from our methods.  Just for internal 
# clarification.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	142	242	
==>ace;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Mi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	142	242	
==>ace;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Mi <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	458	573	
==>{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some com <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13743	13854	
==>nd up being a gotcha, where one needs
  something to happen or not happen, but the relevant line of code is
  of <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	574	683	
==>{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some com <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1216	1343	
==>E
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub (p <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	35	155	
==>, ...)
Perl 5:  my $name="Jens"; print "Mein Name ist $name.";
Perl 6:  my $name="Jens"; print "Mein Name ist $name.";
#= <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	410	505	
==>set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	410	505	
==>set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25030	25137	
==>l>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29582	29689	
==>l>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28494	28601	
==>l>

This method returns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37756	37881	
==>Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37756	37881	
==>Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $ar <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37756	37881	
==>Value::List') ) {
        my $class = ref($array);
        $item = $class->new( items => [$item] );
    }
    if ( $pos <= $ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5816	5919	
==>age Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5816	5919	
==>age Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6406	6509	
==>age Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2009	2114	
==>$ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2160	2265	
==>$ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	606	714	
==>_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	606	714	
==>_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = fu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	606	714	
==>_roman>; say to_roman 42" works.
      // (But "say JS::to_roman 42" works, too).
      JSAN._exportList = fu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3946	4071	
==>defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3946	4071	
==>defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3946	4071	
==>defined $param{clone}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10395	10529	
==>e'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10395	10529	
==>e'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10395	10529	
==>e'}}; }\n"
		     ) if $SubOrCode eq 'Sub';
    my $subdef = ('sub{'
                  .'my $_sub = shift; my %_param = $_sub->bind_par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1251	1347	
==>m $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1251	1347	
==>m $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1251	1347	
==>m $timeout if $timeout;

# XXX - create a blackboard namespace
use vars qw($main::global_debug $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7769	7917	
==>> sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7769	7917	
==>> sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7769	7917	
==>> sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arguments) = @_;
                #wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13321	13429	
==>ss_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13321	13429	
==>ss_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13321	13429	
==>ss_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = '**ObJecT**' . <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16835	16938	
==>an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16835	16938	
==>an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16835	16938	
==>an empty list.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fglock@gmail.com<gt>

=head1 <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10687	10812	
==>switch ) if $switch ne "";
    }

    return @switches;
}

=head2 C<_INC2PERL5LIB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5 <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4481	4577	
==>current version of Pugs does not support OO, methods are
implemented as hash keys to code refs. T <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4481	4577	
==>current version of Pugs does not support OO, methods are
implemented as hash keys to code refs. T <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4564	4677	
==>\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	606	713	
==>s";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	606	713	
==>s";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	606	713	
==>s";
}

use Filter::Simple sub {
    s/\#.+//g;
    s/{\.\.\.}/{p6_die("\$_fn: unimplemented");}/g;
    s/(MU <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4085	4183	
==>ble backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4269	4367	
==>ble backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	792	898	
==>guess" if $verbose;
    }
    return $guess;
}

=head1 NAME

Newton - performs one dimensional Newton's met <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12408	12501	
==>onding argument is undefined).  The new Document object's All Nodes
attribute starts out empty <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12408	12501	
==>onding argument is undefined).  The new Document object's All Nodes
attribute starts out empty <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15988	16083	
==>se compilation modules get compiled into some
altered form the first time they are run. The resu <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15988	16083	
==>se compilation modules get compiled into some
altered form the first time they are run. The resu <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	614	706	
==>rot::PMC
our $interpreter;
use overload '0+' => sub {Inline::Parrot::PMC::get_int($Inline::Pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9445	9557	
==>lc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9445	9557	
==>lc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9445	9557	
==>lc_from_pil($pil);
    my $p5r = p5r_from_pilc($pilc);
    $p5r;
}

sub pilc_from_pil {
    my($pil)=@_;
    my $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5495	5597	
==>Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5304	5404	
==>Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pu <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25035	25130	
==>ion::Example to have zero tuples.  It is also valid
for a Relation::Example to have zero attribu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	659	766	
==>html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	659	766	
==>html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	659	766	
==>html).  I have no idea why this is.
      var node = document.getElementById("__pil2js_tty");
      if (node <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1860	1974	
==>d FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$nam <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1860	1974	
==>d FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$nam <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25465	25545	
==>amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_fla <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2732	2836	
==>oo. For now, I made the script stop if you aren't running under
      Linux, you may want to change that. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15182	15279	
==>root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the D <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15182	15279	
==>root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the D <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3902	3996	
==>@b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) return <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3902	3996	
==>@b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) return <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17671	17765	
==>st => \&test_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback} = \&strap_callba <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2002	2125	
==>ld_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2002	2125	
==>ld_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2002	2125	
==>ld_role(undef, undef, undef, $full_name);
    }
    my ($name, $version, $authority) = split '-' => $full_name;       
    m <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	200	335	
==>ELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	200	335	
==>ELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1741	1893	
==>,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1741	1893	
==>,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8430	8536	
==>mit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] capture( 'c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2451	2564	
==>.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2451	2564	
==>.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2451	2564	
==>.1-cpan:FGLOCK';

class1 'Hash'.$class_description => {
    is => [ $::Object ],
    class => {
        attrs => [ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6549	6649	
==>ns the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6549	6649	
==>ns the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8746	8846	
==>ns the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

T <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	975	1070	
==>d::signature;

use strict;
use warnings;

use base 'closure::signature';

package method::params <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18691	18784	
==>he core expects to avoid problems.  While simultaneously
trying to avoid triggering core behav <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2981	3074	
==>he core expects to avoid problems.  While simultaneously
trying to avoid triggering core behav <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2436	2583	
==>->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2436	2583	
==>->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2436	2583	
==>->$class };
    if ( $@ ) {
        my $c = lc($class);
        eval { $tmp = $x->$c };
    } 
    if ( $@ ) {
        eval { $tmp = $class->new( '$ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6423	6549	
==>982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6423	6549	
==>982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    " <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25813	25918	
==>nt at all.

A Relation::Example object has 2 main attributes (implementation details subject to
change) pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9887	9997	
==>$ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9887	9997	
==>$ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9887	9997	
==>$ENV{PIL2JS_INDENT};

  my $INDENT = 2;
  my $spaces = " " x ($i * $INDENT);

  $text =~ s/^/$spaces/gm;
  retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1354	1471	
==>ey => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1354	1471	
==>ey => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_n <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38251	38348	
==>up>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TO <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42800	42897	
==>up>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TO <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42450	42547	
==>up>

I<TODO.>

=item C<ungroup>

I<TODO.>

=item C<summarize>

I<TODO.>

=item C<substitute>

I<TO <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10520	10615	
==>before <[*\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule RegularExpressionChar {  # se <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	9	97	
==>ackage Module::Install::Metadata;

use Module::Install::Base;
@ISA = qw{Module::Install:: <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	4482	4562	
==>A-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*40 <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4482	4562	
==>A-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*40 <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9522	9695	
==>) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", m <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1325	1478	
==>) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	554	696	
==>put = @:output.join( "\n" );
        @:output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - h <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1262	1383	
==>h!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21375	21569	
==>lf;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21375	21569	
==>lf;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21375	21569	
==>lf;
                    }

                    #for ( @param ) {
                    #    next if UNIVERSAL::isa( $_, 'Perl6::Value::List' );
                    #    next if Perl6::Value::p6v_is <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	67	184	
==>rint_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0;
our $format        = 'p5';
o <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5015	5109	
==>$config> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item re <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5015	5109	
==>$config> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19215	19325	
==>ng)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19215	19325	
==>ng)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19215	19325	
==>ng)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class->add_method('STO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5696	5839	
==>py} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5696	5839	
==>py} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5696	5839	
==>py} }
    sub type     { $_[0]{type} }
    sub match_type { 
        ref($_[1]) ? 
        $_[0]{type}->match( $_[1] ) : 
        $_[0]{type}->m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18667	18872	
==>RAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18667	18872	
==>RAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18667	18872	
==>RAY STORE";
                        # XXX - what if the array is tied?
                        #  @a = (2,3,4,5); @a[1,2] = @a[0,3]
                        my $other = $param[0];
                        # i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6619	6722	
==>B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6619	6722	
==>B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8816	8919	
==>B<Test::Builder::Test::Skip>

This also overrides two methods.

=over 4

=item B<report returns Str>

Th <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1798	1911	
==>[e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1798	1911	
==>[e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17133	17242	
==>meta = "${ROOT}::${pkg}::META";
    $$meta = $meta_object;
}
sub p6_initialize_package {
    my($pkg,$kind)=@_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35679	35792	
==>ny number of objects

Ender: I<close>

=head2 close

Family: close

Types: close1, close2 ... closeN (C<)> when in <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	270	370	
==>r   ($self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Voi <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	270	370	
==>r   ($self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Voi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	8376	8537	
==>lock  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4736	4897	
==>lock  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5585	5746	
==>lock  = match::str( $block );
            my @args;
            for ( @$list ) {
                next unless ref($_) eq 'HASH';
                push @args, match: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9408	9578	
==>hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        $_[3] = { 
            bool  => ($_[0] eq ' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3223	3333	
==>UILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt] <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3223	3333	
==>UILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2657	2756	
==>ock_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2657	2756	
==>ock_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2657	2756	
==>ock_leave_hooks.push(function (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33644	33741	
==>nalnum (C<\W>)

Neg: 1 if negated

=head2 space

Family: space

Types: space (C<\s>), nspace (C<\S <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1380	1509	
==>. but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => " <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11594	11694	
==>r));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numer <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11594	11694	
==>r));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4536	4637	
==>l::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4536	4637	
==>l::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4536	4637	
==>l::true () { p6_from_b(1) };
MULTI SUB bool::false () { p6_from_b(0) };
MULTI SUB time () { use Time:: <==
3	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	418	551	
==>nce we don't have Carp::Assert handy.

B<For internal use by Test::Harness ONLY!>

=head1 FUNCTIONS

=head2 C<assert()>

  assert( EXP <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8632	8730	
==>)

shouldn't matchfail still be returning something?

maybe just overload bool to false ;)

(I mean <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8345	8440	
==>)
shouldn't matchfail still be returning something?
maybe just overload bool to false ;)
(I mean <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5204	5323	
==>space ("MyName" in the code above).  This lets you to
do anything you like with each object, but is (at least nominally) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5204	5323	
==>space ("MyName" in the code above).  This lets you to
do anything you like with each object, but is (at least nominally) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5204	5323	
==>space ("MyName" in the code above).  This lets you to
do anything you like with each object, but is (at least nominally) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14661	14831	
==>me'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14661	14831	
==>me'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14661	14831	
==>me'} || 'AnonClass')
                        : 
                        'AnonClass') . "=(" . $_[0]->[0] . ")>"
        }, 
        fallback => 1;

    sub isa { our $AUTO <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	449	550	
==>nge #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	449	550	
==>nge #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y) <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13966	14065	
==>_test = $o->data->[0]->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $crufty = $o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4560	4666	
==>(@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4560	4666	
==>(@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4560	4666	
==>(@PIL::IN_SUBLIKES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	772	993	
==>e {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.* <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	772	993	
==>e {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.* <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4920	5082	
==>returns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## ---------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6031	6138	
==>self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6031	6138	
==>self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @id <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6031	6138	
==>self->{array})." -- ".Perl6::Value::stringify($self->{slice})."\n";
    my $ary = $self->{array};
    my @id <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10216	10407	
==>ram );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10216	10407	
==>ram );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10216	10407	
==>ram );
                return @param;
            },
            'AUTOLOAD' => sub {
                my ($self, @param) = @_;
                my $method = __('$AUTOLOAD');
                # TO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	415	519	
==>>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	415	519	
==>>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	415	519	
==>>;
our @EXPORT_OK = qw< pwd >;

sub pwd { File::Spec->catfile($FindBin::Bin, @_) }
sub try_files {
  my @ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	626	729	
==>Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	626	729	
==>Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' cl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	626	729	
==>Ref implementation - uses AUTOLOAD to auto-deref
# * added unboxed enums: bool::* taint::*
# * 'List' cl <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3608	3760	
==>nless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3608	3760	
==>nless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23786	23896	
==>or
methods.  Relation::Example does not declare any subroutines or export such.

The usual way that Relation::E <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	516	633	
==>t::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Con <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	516	633	
==>t::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Con <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	3	116	
==>rr-Operator
# In Perl 5 Programmen verbreitet (aber fehleranfällig!):
my $option = $para{'x'} || "wert";

#!\paus <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23010	23196	
==>h multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23010	23196	
==>h multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23010	23196	
==>h multi-dim fetch
                        $self->store( @param, $scalar );
                        $scalar = $tmp->$method( @param );
                    }
                    return $sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11965	12082	
==>s is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11965	12082	
==>s is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11965	12082	
==>s is like
Scala IIRC. 


=cut

1;

__END__

=pod

=head1 NAME

psyche

=head1 DESCRIPTION

=head1 AUTHORS

Stevan Litt <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3067	3164	
==>polated_array    { \@ <name> <element_expr>? }
rule interpolated_hash     { \% <name> <element_exp <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12695	12789	
==>ties.  The module provides the following functions:

=over 4

=item decode_entities( $string, . <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12695	12789	
==>ties.  The module provides the following functions:

=over 4

=item decode_entities( $string, . <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23637	23763	
==>' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgc <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20058	20184	
==>' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgc <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1221	1333	
==>capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capita <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1221	1333	
==>capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capita <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17031	17141	
==>t;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2510	2629	
==>[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2510	2629	
==>[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2510	2629	
==>[-1] := @array.shift;
    }
    push @res, $code(*@args);
  }

  @res;
}

# XXX XXX XXX XXX ("luckily", the fully qualif <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23458	23552	
==>tionally override these operators with versions that are more specific to
their own objects, fo <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10522	10668	
==>};
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $c->($noop) }L <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1760	1858	
==>essing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc: <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1760	1858	
==>essing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc: <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	13	109	
==>e::Install::Pugs;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
use strict;
use Co <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1377	1470	
==>ber($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method siz <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1377	1470	
==>ber($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method siz <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1802	1910	
==>lpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1862	1970	
==>lpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14744	14851	
==>UnaryExpression>
}
rule MultiplicativeExpression :words {  # see 11.5
      <UnaryExpression>
    | <Multipl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13867	13970	
==>rder that source relations are
    # combined, so to try and make the least expensive kinds of combining <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17344	17447	
==>rder that source relations are
    # combined, so to try and make the least expensive kinds of combining <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16724	16827	
==>rder that source relations are
    # combined, so to try and make the least expensive kinds of combining <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	8078	8220	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	8078	8220	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	8078	8220	
==>ass_description => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {},
    },
    instance => {
        attrs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14399	14578	
==>$array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14399	14578	
==>$array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14399	14578	
==>$array, @array_list ) = map {
                        Perl6::Value::p6v_isa( $_, 'Array' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	375	476	
==>r/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	375	476	
==>r/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	375	476	
==>r/list context
# * Removed classes Params, Signature
# * Added 'default' parameter hook
# * Added requ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5499	5666	
==>:= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combina <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5499	5666	
==>:= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combina <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3740	3842	
==>5, '... still got the right x for p1');
is($p1->get_y, 16, '... still got the right y for p1');

sub Po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7991	8092	
==>tional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7718	7815	
==>tional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3537	3778	
==>print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                wh <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3537	3778	
==>print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                wh <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	664	788	
==>lf;
    };
}

sub sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

forea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7872	7973	
==>ze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This ro <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7872	7973	
==>ze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This ro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29871	29976	
==>tes
that were wrapped, and it supports having old tuple-valued attributes which
have zero attributes (they <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34423	34528	
==>tes
that were wrapped, and it supports having old tuple-valued attributes which
have zero attributes (they <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33587	33692	
==>tes
that were wrapped, and it supports having old tuple-valued attributes which
have zero attributes (they <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13598	13714	
==>ing, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17075	17191	
==>ing, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16437	16553	
==>ing, so simplify to a semijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7101	7226	
==>DO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7101	7226	
==>DO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7101	7226	
==>DO
            #'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            #'int' =>  sub { Int->new( '$.u <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1856	1999	
==>members.map:{ .get_methods }
       );
}

method all_assocs($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	25486	25586	
==>status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message similar to the above.

=item C<Fai <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	3346	3460	
==>path";

    unshift @INC, $self->{prefix}
        unless grep { $_ eq $self->{prefix} } @INC;

    foreach my $rv ( <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5599	5697	
==>&regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* p <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23172	23257	
==>(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
use s <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5249	5384	
==>2),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => ch <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5249	5384	
==>2),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Types.pm	645	780	
==>eturn 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Types.pm	645	780	
==>eturn 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Types.pm	645	780	
==>eturn 1 == 1;
  }

  sub as_string { local $_; join "&", map { "(" . $_->as_string . ")" } @{ $_[0] } }
}

{
  package PIL::MkType;

  u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	335	461	
==>True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	335	461	
==>True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	335	461	
==>True is primitive { ?1 }
sub Bool::False is primitive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub p <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24265	24358	
==>ages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedT <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24265	24358	
==>ages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedT <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	260	367	
==>s Str is builtin is primitive {
    # XXX return $str but newline("\n")
    if substr($str, -1, 1) eq "\n" { <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25792	25892	
==>Letter>
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule Control <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11477	11599	
==>y("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11477	11599	
==>y("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4159	4399	
==>@args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $ <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4159	4399	
==>@args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4971	5096	
==>_guide/x11221.html
.
    }
}

sub assert_ghc {
    my $self = shift;
    my $ghc = $self->can_run($ENV{GHC} || ( 'ghc' . $Conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2279	2383	
==>age'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2279	2383	
==>age'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2279	2383	
==>age'    => $::Package);
$::{'*'}->STORE('::Module'     => $::Module);
$::{'*'}->STORE('::Class'      => $ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2034	2169	
==>LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: line <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3407	3534	
==>LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: line <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14239	14343	
==>t chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would enc <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14239	14343	
==>t chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would enc <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8709	8809	
==>border-bottom: 2px solid #313052; }
    .indent1 { padding-top:  10px; border-bottom: 1px solid #3130 <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53014	53153	
==>'$:authority' => 'str'));            
}

# add their names in
$::Class->send('name'   => str->new('Class'));
$::Object->send('name'  => str- <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9911	10004	
==>n, intersection, difference, and a few
other operations.

This class also provides methods for <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9911	10004	
==>n, intersection, difference, and a few
other operations.

This class also provides methods for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12268	12376	
==>ry { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12268	12376	
==>ry { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12268	12376	
==>ry { p6_apply($xx); } otherwise { p6_set(p6_var('$!',2),$_[0]); };
};
{ package Error::Simple;
  use PIL::Run <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3094	3197	
==>)->STORE('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::Te <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1626	1723	
==>oclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1684	1781	
==>oclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	153	251	
==>hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	153	251	
==>hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exist <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	153	251	
==>hash = args[1].FETCH(), key = args[2], cc = args.pop();
      cc(new PIL2JS.Box.Constant(hash.exist <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8207	8356	
==>"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18437	18548	
==>ided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES: <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18437	18548	
==>ided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6903	7028	
==>aque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6903	7028	
==>aque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6903	7028	
==>aque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' => ::make_method(sub {
    my $self = sh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8710	8824	
==>{&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(oct $1), "\\0$1") if $cc;
      r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5046	5151	
==>etta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CO <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5046	5151	
==>etta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1299	1394	
==>S.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1299	1394	
==>S.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1299	1394	
==>S.Box.Constant((new Date()).getTime() / 1000 - 946684800)";
}

sub infix:<=:=>($a, $b) is primit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9130	9235	
==>> 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9130	9235	
==>> 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9130	9235	
==>> 'any',  @xx) };
MULTI SUB all  (*@xx) { p6_new(Junction => 'all',  @xx) };
MULTI SUB one  (*@xx) { p6_ne <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5472	5569	
==>method returns the last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5472	5569	
==>method returns the last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5635	5750	
==>shes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5635	5750	
==>shes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      pu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5635	5750	
==>shes for a better
  # implementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      pu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4900	5062	
==>()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4912	5074	
==>()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31480	31576	
==>y could be distributed with a Template module set that is specific
to it, another library likewis <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31480	31576	
==>y could be distributed with a Template module set that is specific
to it, another library likewis <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	843	953	
==>te 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require li <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	843	953	
==>te 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require li <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7818	7926	
==>s_In_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@te <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	745	871	
==>ore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autos <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	745	871	
==>ore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autos <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8044	8150	
==>cc;
    return $S->object(exact_comp => "\0", "\\X[0]");
  }

  $self->add_handler('\0' => sub {
    my ($S <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7523	7615	
==>IME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7523	7615	
==>IME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9270	9471	
==>name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runtime::Perl5::RuleOps::emit_rule( $rule, <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11107	11201	
==>arent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<ch <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11107	11201	
==>arent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<ch <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	326	447	
==>eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=h <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	326	447	
==>eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=h <==
3	/Users/nnunley/pugs/util/build_pugs.pl	900	1017	
==>_PRELUDE} } }->{'--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PRELUDE segment";
    
    pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4785	4894	
==>)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4785	4894	
==>)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. T <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4785	4894	
==>)').($args_);
    \}
  ";
}

# [...] reduce metaoperator
# XXX This implementation is, of course, incorrect. T <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4340	4486	
==>$self = {
        name => $name,
        rep  => $rep,
        type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_ty <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	235	326	
==>ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	235	326	
==>ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	742	830	
==>xp::CCShortcut");
    $optable->addToken("term:\\d", "term:", "nows", "PGE::Exp::CCShortc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1314	1413	
==>Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyF <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1314	1413	
==>Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyF <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10217	10354	
==>dl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10217	10354	
==>dl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	220	314	
==>t;
	my $prog = shift;

	Blondie::TypeSafe::Flatten->new->reduce(
		Blondie::TypeSafe::Annotator <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1457	1573	
==>cause it encloses one value, and has a type (C<Val>).

=item List

A list is a a node with multiple children.

C<App> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1647	1745	
==>iners.



the Body is just a structure with three node forms: Var

(variable lookup), App (applicat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1581	1676	
==>iners.

the Body is just a structure with three node forms: Var
(variable lookup), App (applicat <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1524	1631	
==>bname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <dig <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1524	1631	
==>bname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <dig <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25434	25532	
==>::Example can look like a table, where each of its tuples is
a row, and each attribute is a column, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Cont.pm	150	246	
==>nction (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Cont.pm	150	246	
==>nction (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Cont.pm	150	246	
==>nction (%s) {\n%s%s\n})",
    $_[0]->{argname},
    defined $_[1] ? PIL::add_indent(1, "$_[1]\n") <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1943	2105	
==>->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1943	2105	
==>->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; X <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1943	2105	
==>->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clone; X <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7901	8029	
==>em.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7901	8029	
==>em.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7568	7713	
==>($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7568	7713	
==>($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'A <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7568	7713	
==>($f);
    }
    if ($type eq 'List') {
        return List->new( '$.unboxed' => Perl6::Value::List->from_single(@arg) );
    }
    if ($type eq 'A <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2451	2580	
==>(i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2451	2580	
==>(i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP:: <==
3	/Users/nnunley/pugs/util/importgraph.pl	2957	3041	
==>->as_canon("importgraph.dot");
#$g->as_png("importgraph.png");
$g->as_ps("importgraph <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2358	2462	
==>turn Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2358	2462	
==>turn Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2358	2462	
==>turn Perl5.perl_eval("(sub { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5370	5482	
==>role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5370	5482	
==>role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($versio <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5370	5482	
==>role = $::Role->new();    

    $new_role->name($name)           if defined $name;
    $new_role->version($versio <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11916	12015	
==>ed.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be used a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11916	12015	
==>ed.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be used a <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26677	26770	
==>2 and perl5_method/4 will be available

do{open F,">deleteme_pro.pl";print F $prolog;close F;} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23351	23457	
==>v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23351	23457	
==>v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23351	23457	
==>v1) = (p6_to_s($xx0),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4680	4815	
==>x;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4873	5008	
==>x;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11564	11690	
==>t($text));
      
      my $link = {};
      $link->{linkfile} = $linkfile;
      $link->{linkhead} = $linkhead;
      $link->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7009	7112	
==>n $S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mode)
  $self->add_handler <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26227	26326	
==>s of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright holder <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26227	26326	
==>s of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright holder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1612	1742	
==>ity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1612	1742	
==>ity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1612	1742	
==>ity",
      "-inf" => "-Infinity",
      "NaN"  => "NaN",
    }->{$self->[0]} || $self->[0];
  }
}

{
  package PIL::VRat;
  our @I <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1005	1118	
==>]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

sub substitution {
    my $grammar = shift;
    r <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5353	5454	
==>e LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has been rece <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5353	5454	
==>e LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has been rece <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1088	1252	
==>e $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        f <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1228	1392	
==>e $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1009	1150	
==>oter) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 },
        't <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3380	3509	
==>()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "p <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3380	3509	
==>()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2068	2183	
==>@a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2068	2183	
==>@a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	ret <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2068	2183	
==>@a)}; 
sub p6_from_x {
    return (map{p6_from_x($_)} @_) if @_ > 1;
    my($x)=@_;
    if(my $cls = ref($x)) {
	ret <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6251	6433	
==>ate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9728	9910	
==>ate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other! <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	450	584	
==>],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($class, $filenam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4658	4767	
==>unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4658	4767	
==>unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4658	4767	
==>unless ref($self->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	4913	5014	
==>tion
# paid to the associativity of the original operator and auto-metaed versions
# of user-defined o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	4913	5014	
==>tion
# paid to the associativity of the original operator and auto-metaed versions
# of user-defined o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	4913	5014	
==>tion
# paid to the associativity of the original operator and auto-metaed versions
# of user-defined o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14719	14822	
==>POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8920	9023	
==>POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	604	700	
==>(split m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li>\n] for sor <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1031	1141	
==>return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    re <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33661	33756	
==>ere each
element is a Template module Member Name and usually corresponds to a
language like Eng <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33661	33756	
==>ere each
element is a Template module Member Name and usually corresponds to a
language like Eng <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3997	4102	
==>elf.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3997	4102	
==>elf.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3997	4102	
==>elf.keys.map:{; $_ =:> $self[$_] };
  } else {
    die ".pairs does not work on objects of type {$self.ref <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	17	117	
==>age;

use strict;
use warnings;
use base 'Object::Accessor';

use JIB::Constants;
use JIB::Config;

u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10957	11055	
==>ument object is a simple container which stores data to be used or
displayed by your program.  It i <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10957	11055	
==>ument object is a simple container which stores data to be used or
displayed by your program.  It i <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1949	2052	
==>rge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2829	2932	
==>rge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4256	4351	
==>_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4256	4351	
==>_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4256	4351	
==>_apply(".join(",",$f,@args).")";
    }
}
package PAssign; @ISA = qw(EvalX::BaseClass); sub expan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7922	8015	
==>t (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('rBar <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1566	1666	
==>r keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1566	1666	
==>r keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	958	1088	
==>e(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	958	1088	
==>e(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].node <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	958	1088	
==>e(msg));
          //return;
          for (var i = 0; i < node.childNodes.length; i++) {
              if (node.childNodes[i].node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16211	16316	
==>};
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16211	16316	
==>};
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16211	16316	
==>};
MULTI SUB log ($xx)   { p6_from_n( log( p6_to_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7421	7539	
==>perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4025	4143	
==>perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4874	4992	
==>perl5 {
    my $res = eval emit($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15260	15357	
==>d be no ambiguity when trying to invoke or implement it, and so an
application written to it shoul <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15260	15357	
==>d be no ambiguity when trying to invoke or implement it, and so an
application written to it shoul <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	428	532	
==>t is represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!mem <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	428	532	
==>t is represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!mem <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	364	459	
==>ile->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Rea <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	364	459	
==>ile->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Rea <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37800	37931	
==>abel
        symbol->new('has_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature- <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4405	4494	
==>ncrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4405	4494	
==>ncrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3494	3608	
==>on (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3494	3608	
==>on (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3494	3608	
==>on (a, b) {
      return PIL2JS.cps2normal(cmp, [PIL2JS.Context.ItemAny, a, b]).toNative();
    };
    array.sort(j <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2905	3060	
==>C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	63	185	
==>@EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	63	185	
==>@EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	63	185	
==>@EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2259	2377	
==>S

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2259	2377	
==>S

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.meth <==
3	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	701	808	
==>nds) returns Num is builtin is primitive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	93	193	
==>n using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	93	193	
==>n using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	93	193	
==>n using the MOP, and not meant to be anything definitive.

=cut


::Class.meta.add_method('new', meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3972	4101	
==>my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3972	4101	
==>my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3972	4101	
==>my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slighly hack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	827	923	
==>PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	827	923	
==>PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	827	923	
==>PIL2JS.Box.Constant(%s));\n%s",
      PIL::doublequote($self->{pPos}), $self->{pNode}->as_js;
  } <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5500	5641	
==>ches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5500	5641	
==>ches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $m <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2384	2497	
==>mpile-time subroutine
    Rule        Perl pattern
    Block       Base class for all unnameable executable object <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5472	5593	
==>, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5472	5593	
==>, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4961	5060	
==>iated to uniqueness.

Author:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael Har <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10538	10639	
==>compile_routine( $prd_add_person );

    # Define and compile a function that will select a record fro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10538	10639	
==>compile_routine( $prd_add_person );

    # Define and compile a function that will select a record fro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10958	11054	
==>t_on_Foo',
   '... still got the right return value from Foo singleton/class method called by Bar <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1169	1274	
==>ad of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/p <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1169	1274	
==>ad of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4920	5027	
==>turn 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4920	5027	
==>turn 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4920	5027	
==>turn 0;
}));

$::Class->add_method('can' => ::make_method(sub { 
    my ($self, $label) = @_;
    return und <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6124	6421	
==>t.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6124	6421	
==>t.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18094	18195	
==>so that by the
time a compiler is called it only gets the source code that it should be
looking at.

T <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18094	18195	
==>so that by the
time a compiler is called it only gets the source code that it should be
looking at.

T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	20	200	
==>:Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	20	200	
==>:Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22558	22656	
==>r> <':'> <Statement>
}
rule ThrowStatement :words {  # see 12.13
      <'throw'><no_LineTerminator_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1591	1713	
==>uperclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1796	1918	
==>uperclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create <==
3	/Users/nnunley/pugs/util/importgraph.pl	1513	1618	
==>{
    UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys % <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3092	3252	
==>lus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ), <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3103	3263	
==>lus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ), <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1384	1484	
==>_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4374	4482	
==>$self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4374	4482	
==>$self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4374	4482	
==>$self->params => "PIL::Params";
    $self->type = bless [] => "PIL::" . $self->type;  # minor hack

    local <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4958	5077	
==>ection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');di <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4958	5077	
==>ection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');di <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4958	5077	
==>ection_unacceptable) {
	    $dn.";\n";
	} else {
	    my $n = int(rand(10000000));
	    "do{my \@_res$n=eval(<<'E$n');di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1844	1948	
==>{
  # . \C
  package Regexp::Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	543	644	
==>ulti sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is interse <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	543	644	
==>ulti sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is interse <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1837	1962	
==>....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $. <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1837	1962	
==>....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6115	6229	
==>ent = $current->next;
    }
    $self->create($name, $value);
}

sub get {
    my ($self, $name) = @_;
    (defined <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	141	242	
==>nfig/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO exis <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	141	242	
==>nfig/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO exis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8904	9026	
==>lasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8904	9026	
==>lasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8904	9026	
==>lasses
            )
        ];
    }
    return @{::opaque_instance_attr($self => '@:MRO')};
}));

$::Class->add_method('d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	353	470	
==>::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	353	470	
==>::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subcla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	353	470	
==>::Class a subclass of ::Object (through ::Package and ::Module)
# the result of this is (Theos)

# < Class is a subcla <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4127	4230	
==>e value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4127	4230	
==>e value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6324	6427	
==>e value. 

=item C<?$skip = 0>

This parameter defaults to false. If it is true, the factory returns a
T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10406	10533	
==>ferred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AU <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10406	10533	
==>ferred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AU <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10406	10533	
==>ferred' => undef); # XXX - MM2.0 gc workaround
        },
        methods => { 
             # See perl5/Perl6-MetaModel/t/14_AU <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10671	10781	
==>me) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10829	10939	
==>me) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2499	2612	
==>XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2499	2612	
==>XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2499	2612	
==>XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4526	4643	
==>e($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6 <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1610	1697	
==>-----------------------------------------------
## informational methods

method is_root <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1610	1697	
==>-----------------------------------------------
## informational methods

method is_root <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	12119	12252	
==>st::WithReason::status();
          $status{"skip"} = 1;
          return $status;
      }
  
  }
  
  class Test::Builder::Test::TODO <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2521	2640	
==>st::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2521	2640	
==>st::WithReason::status();
        $status{"skip"} = 1;
        return $status;
    }

}

class Test::Builder::Test::TODO <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1809	1967	
==>MS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _sho <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1809	1967	
==>MS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _sho <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3450	3553	
==>ent );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAM <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3450	3553	
==>ent );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAM <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38759	38854	
==>urns a new Relation::Example that has the
same heading as the invocant and whose body contains a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9700	9816	
==>::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9700	9816	
==>::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9700	9816	
==>::Run::EvalX::expand($pilc);
    $p5r;
}


sub with_numbered_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3105	3219	
==>he AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3569	3683	
==>he AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{pa <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26113	26202	
==>e_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6784	6903	
==>}else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6784	6903	
==>}else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6784	6903	
==>}else{
    warn "faking increment\n";
    my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    p6_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	648	834	
==>L_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	648	834	
==>L_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	648	834	
==>L_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors f <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4583	4730	
==>atisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5047	5194	
==>atisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1168	1281	
==>map { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2072	2168	
==>.t.  This could either be done
#using Regexp::Parser Objects, or wait for the hypotetical new ast <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38431	38524	
==>t, where each variable value is
substituted for any occurance of its corresponding variable na <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38431	38524	
==>t, where each variable value is
substituted for any occurance of its corresponding variable na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16886	17033	
==>str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16886	17033	
==>str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16886	17033	
==>str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_num( $_[0] ) }

1;
__END__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4783	4883	
==>).";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4783	4883	
==>).";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4783	4883	
==>).";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1;
	local $EvalX::PStmt::protection_u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	54	144	
==>_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLA <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	54	144	
==>_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15388	15550	
==>he time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15388	15550	
==>he time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15388	15550	
==>he time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $label = 'DESTROYALL';
        }        
        # go about o <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5046	5142	
==>e.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

Th <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5046	5142	
==>e.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

Th <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7243	7339	
==>e.

=item B<Str $.description>

The test's description (optional).

=item B<Str $.diagnostic>

Th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	900	1077	
==>es
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	900	1077	
==>es
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	900	1077	
==>es
                for ( @res ) {
                    $_ = $_->fetch if $_->isa('Scalar');
                }
                @res = sort { Perl6::Value::identify($a) cmp Perl6::V <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	747	851	
==>self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { " <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	648	752	
==>self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { " <==
3	/Users/nnunley/pugs/util/version_h.pl	1929	2025	
==>io" warnings off, perl will print "Filehandle STDIN reopened...", because
  # our handle for $ver <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14806	14920	
==>et $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14806	14920	
==>et $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1380	1479	
==>'[a|b](b)');
my $rpcr2 = Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3208	3396	
==>}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3208	3396	
==>}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3208	3396	
==>}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $class;
    }
    
    sub name <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	255	438	
==>a
       p6_undef
       p6_bool
       p6_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3991	4092	
==>estores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3991	4092	
==>estores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_ret <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3991	4092	
==>estores;
  throw function () { __returncc($lvalue_fix[0]retval$lvalue_fix[1]) };
};
EOF
}

sub cur_ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3771	3992	
==>et-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3771	3992	
==>et-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17005	17116	
==>f->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ close => $self- <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11760	11871	
==>ut !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $co <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1853	1956	
==>:Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TOD <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1853	1956	
==>:Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TOD <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	637	850	
==>unction__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	637	850	
==>unction__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	637	850	
==>unction__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eva <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10116	10256	
==>!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi metho <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10116	10256	
==>!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18086	18194	
==>ft). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18086	18194	
==>ft). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18086	18194	
==>ft). " ... ". Perl6::Value::stringify($result->pop);
                    #warn "reversed: ".$ret->str->unboxe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	1132	1254	
==>, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	1132	1254	
==>, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Inter <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	1132	1254	
==>, Any $key
) is primitive is rw {
  if $pair.key === $key {
    $pair.value;
  } else {
    undef;
  }
}

sub PIL2JS::Inter <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2888	2996	
==>s_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2888	2996	
==>s_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(% <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2888	2996	
==>s_altered = %mods;
    %mods_altered.delete('g');
    %mods_altered.delete('global');
    my $rx = rx_core_(% <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4237	4388	
==>il,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4237	4388	
==>il,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4237	4388	
==>il,$bare);
}
my %space_from_sigil = (
             '$' => 'scalar',
             '@' => 'array',
             '%' => 'hash',
             '&' => 'code', <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	654	758	
==>instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	654	758	
==>instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	654	758	
==>instances.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3522	3620	
==>plice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3522	3620	
==>plice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/la <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3522	3620	
==>plice() should accept a 'List' object, Perl6 version too
#
# TODO - Tests: - add to t/data_types/la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1920	2026	
==>plate($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filt <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1920	2026	
==>plate($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filt <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14424	14523	
==>le( $self->available_file, @avail ) };
    $@ and error( "Could not write available file: $@" ), ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5766	5926	
==>h - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5766	5926	
==>h - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5766	5926	
==>h - 1;
            $middle = $end if $middle > $end;
            my $shifted = ref($list)->from_num_range(
                start => $start,
                end = <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2233	2329	
==>e) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<m <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2233	2329	
==>e) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3603	3722	
==>me = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3603	3722	
==>me = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3603	3722	
==>me = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\*?JS::/$1/ if defined $subname;

    # Go! <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8568	8682	
==>ternals can cache the hash key.
    $_ = "" . $_;
    next if (exists $suspect->{$_});
    print STDOUT "# key ", _ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	293	406	
==>ers;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get i <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	293	406	
==>ers;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get i <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2013	2113	
==>multi sub Perl6::Hash::reverse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k <==
3	/Users/nnunley/pugs/util/config_h.pl	595	692	
==>open OUT, "> $base/src/Pugs/pugs_config.h" or die $!;

while (<IN>) {
    /version (\S+) .*\brelea <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	5491	5585	
==>ail, $rev, $mid, $wc);
print "Hooray, you passed.\n";

END { defined($intmp) and unlink($intmp) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14188	14286	
==>_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14188	14286	
==>_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_pe <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19252	19348	
==>r must be included as part of a C<401 Unauthorized> response.
The field value consist of a challe <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19252	19348	
==>r must be included as part of a C<401 Unauthorized> response.
The field value consist of a challe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1043	1167	
==>lock>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1443	1567	
==>lock>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1917	2041	
==>lock>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { " . join(", ", @{$<mod>}) . " }" : <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	116	217	
==>t $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3854	3957	
==>TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3854	3957	
==>TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemente <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3854	3957	
==>TODO - test splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemente <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3114	3271	
==>tate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $node <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3114	3271	
==>tate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $node <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13439	13535	
==>mberExpression> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2735	2873	
==>xt;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2735	2873	
==>xt;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRA <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34047	34138	
==>new Relation::Example whose attributes
(provided in C<$heading>) may or may not resemble tho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	63	171	
==>le::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	63	171	
==>le::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	63	171	
==>le::Spec;
use Cwd qw< cwd >;
use lib File::Spec->catdir($FindBin::Bin, "lib");
use lib File::Spec->catdir($Fi <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2243	2365	
==>ist::reverse (; *@values) returns Lazy|Str {
   given want {
     when List {
       gather {
         1 while take pop @va <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17696	17791	
==>Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17696	17791	
==>Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the se <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3876	3976	
==>ould fail.  C<$description> is the optional
description of the test.  This is the easiest way to matc <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3876	3976	
==>ould fail.  C<$description> is the optional
description of the test.  This is the easiest way to matc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3956	4056	
==>ould fail.  C<$description> is the optional
description of the test.  This is the easiest way to matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2597	2728	
==>okAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2597	2728	
==>okAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2597	2728	
==>okAheadToken =~ /\s+/) {
        $i->nextToken;
    }
}

sub _parse_class {
    my ($self, $i) = @_;
    warn "found a class ..." if <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	975	1124	
==>e( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" . $() ,} }
            ' );
    __PACKAGE__->recomp <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22329	22425	
==>ce(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<N <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22329	22425	
==>ce(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13627	13738	
==>X::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13627	13738	
==>X::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13627	13738	
==>X::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_macro {
    $EvalX::PStmt::protection_unacceptable <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13363	13481	
==>ic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13363	13481	
==>ic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we h <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	622	719	
==>arn(Class $class: @args) { warn(@args); }

method _parse_ini_file(Class $class: IO $fh) {
	my @con <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2551	2692	
==>| 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2551	2692	
==>| 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2551	2692	
==>| 'undef') . ")";       
        my ($label, $value) = @_;
        (defined $label) || confess "No label to fetch";
        unlock_keys(%{$ins <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4456	4558	
==>s will be popped once more, and the whole AST is now reduced
to 11.

Inherits Unit.

=item Stub

A node <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14302	14400	
==>spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14302	14400	
==>spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3238	3349	
==>mplement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3238	3349	
==>mplement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite: <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13049	13177	
==>,
        failed => ($tres->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4394	4492	
==>tart` or `end` values belong to the span ("closed") or not ("open").

- size()

Return the "size" o <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4394	4492	
==>tart` or `end` values belong to the span ("closed") or not ("open").

- size()

Return the "size" o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	452	574	
==>>{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	452	574	
==>>{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	452	574	
==>>{tokenizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2697	2803	
==>) or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, "> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2697	2803	
==>) or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, "> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2697	2803	
==>) or die "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, "> <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2089	2230	
==>=> sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype
        pro <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1821	1928	
==>")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1821	1928	
==>")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	812	938	
==>use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $gramm <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	812	938	
==>use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $gramm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	754	887	
==>arser->parse($source);
        #warn Dumper $sexpr;
        return $self->evaluate($sexpr);
    }
    
    my $depth = 0;
    
    sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12970	13094	
==>_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12970	13094	
==>_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8299	8434	
==>ems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8299	8434	
==>ems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8299	8434	
==>ems =>  $count,
        cis_contiguous => sub { 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be u <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1004	1158	
==>version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_00 <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	883	1037	
==>version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_00 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	99	205	
==>hmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9143	9260	
==>eturns Bit ( $self: Bit $passed, Str $description = '' )
  {
      $self.report_test(
          Test::Builder::Test.ne <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1271	1382	
==>eturns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.ne <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1271	1382	
==>eturns Bit ( $self: Bit $passed, Str $description = '' )
{
    $self.report_test(
        Test::Builder::Test.ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11166	11317	
==>el, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "Yo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11166	11317	
==>el, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "Yo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11166	11317	
==>el, %params) ? 1 : 0;                    
});

::Class.meta.add_method('get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "Yo <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6484	6578	
==>_cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6484	6578	
==>_cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7455	7610	
==>( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7455	7610	
==>( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7455	7610	
==>( @items );
            if ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16427	16579	
==>struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV * <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20853	21005	
==>struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV * <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19638	19748	
==>xp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    sel <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	953	1084	
==>v, _recurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    m <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7335	7430	
==>on(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7335	7430	
==>on(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set( <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	454	569	
==>ust be a code ref";
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        body => <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16529	16648	
==>,{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to' <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15583	15694	
==>,{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2297	2429	
==>IL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2297	2429	
==>IL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2297	2429	
==>IL::VStr")         and
      1
    ) {
      return sprintf "%s(\n%s\n)",
        $self->{CC}->as_js,
        PIL::add_indent 1, $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	613	723	
==>$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	613	723	
==>$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_st <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	613	723	
==>$.unboxed' => 0+$::SELF->val_string() ) },
            'str' =>  sub { Str->new( '$.unboxed' => $::SELF->val_st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1426	1527	
==>als::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1426	1527	
==>als::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1426	1527	
==>als::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2409	2511	
==>f) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2409	2511	
==>f) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2409	2511	
==>f) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1050	1166	
==>5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1050	1166	
==>5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   nam <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1050	1166	
==>5 = bless {}, 'Perl5';
    $ct->bind_object('Perl5', $perl5);

    use Data::Dumper;
    $ct->bind_function(
		   nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1419	1524	
==>xs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1419	1524	
==>xs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1419	1524	
==>xs.length; i++) {
        var idx = Number(idxs[i]) >= 0 ? Number(idxs[i]) : array.length + Number(idxs[i] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3548	3652	
==>"Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3548	3652	
==>"Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3548	3652	
==>"Couldn't open pipe to \"$cfg{pugs} @args\": $!\n";
  close $write_fh;

  local $/;
  my $res = <$read_fh <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5746	5881	
==>->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " print '' <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	5353	5445	
==>on?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test:: <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5411	5503	
==>on?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25417	25511	
==>etta and the licenses
of the other components concerned, provided that you include the source
c <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25417	25511	
==>etta and the licenses
of the other components concerned, provided that you include the source
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3572	3684	
==>{$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3572	3684	
==>{$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3572	3684	
==>{$n=$n->{$k}}else{$n=undef;last}} $n};

    unshift(@args,$invocant) if defined $invocant;

    my $fv;
    if($f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17300	17414	
==>foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17300	17414	
==>foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17300	17414	
==>foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__END__

=pod

=head1 N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5654	5791	
==>cify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5654	5791	
==>cify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5654	5791	
==>cify_many_step {
  my ($things, $i, $sub, $jsthings) = @_;
  no warnings "recursion";

  if($i <= $#{$things}) {
    my $thisone = $things <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5857	5953	
==>e', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCor <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5857	5953	
==>e', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCor <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2756	2852	
==>e', 'STemp';
node_s 'Scope', 'SGlobal';

node_s 'SubType', 'SubMethod';
node_s 'SubType', 'SubCor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11024	11171	
==>thod report returns Str
      {
          my $ok  = $.passed ?? 'ok ' !! 'not ok ';
          $ok    ~= $.number;
          $ok    ~= " - $.descript <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1502	1641	
==>thod report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descript <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1502	1641	
==>thod report returns Str
    {
        my $ok  = $.passed ?? 'ok ' !! 'not ok ';
        $ok    ~= $.number;
        $ok    ~= " - $.descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1677	1825	
==>ts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1677	1825	
==>ts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1677	1825	
==>ts->{editor} = sub {
            my ($obj, $class) = @_;
            bless $obj, $class . '::' . ref $obj;
        };
	},
	custom  => sub {
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7229	7351	
==>oxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7229	7351	
==>oxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7229	7351	
==>oxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { $_[0]->perl },
            'bit' =>  sub { Bit->new( '$.unbo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1464	1717	
==>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	294	391	
==>terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

su <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	294	391	
==>terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

su <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4846	4961	
==>} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$sel <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	876	985	
==>n
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elements (Span <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	876	985	
==>n
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elements (Span <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6897	7063	
==>r->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6897	7063	
==>r->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6897	7063	
==>r->new( '$.unboxed' => "'" . $tmp . "'" );
              },
            'increment' => sub { 
                my $value = _('$.unboxed');
                $::SELF->ref- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	715	832	
==>ool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod D <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	715	832	
==>ool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod D <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12052	12138	
==>d class="leftsep num tests_total"><span title="<tmpl_var name=total> total"><tmpl_var n <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3574	3715	
==>p_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or r <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4038	4179	
==>p_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or r <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3289	3386	
==>ry, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $pat <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3289	3386	
==>ry, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $pat <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	246	409	
==>ar redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	246	409	
==>ar redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	246	409	
==>ar redo = 0;
              try { body() } catch(err) {
                if(err instanceof PIL2JS.ControlException.redo) {
                  redo++;
                } <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10616	10723	
==>ompile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\% <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10616	10723	
==>ompile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\% <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	115	530	
==>-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relati <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14523	14662	
==>get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the d <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14523	14662	
==>get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35421	35520	
==>lt in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_prod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39971	40070	
==>lt in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_prod <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39531	39630	
==>lt in
a cross-product when joined.  This method has aliases named
C<cartesian_product>, C<cross_prod <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11471	11603	
==>lf = shift;
    join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unl <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	343	442	
==>LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	343	442	
==>LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4357	4480	
==>my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4369	4492	
==>my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bu <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3434	3536	
==>$other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$s <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3434	3536	
==>$other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6850	6977	
==>*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6850	6977	
==>*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @par <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6850	6977	
==>*]/, @args;
        my @args_slurpy    = grep /^\*/, @args;
        @args_slurpy = map{s/^\*//;$_} @args_slurpy;
        my @par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6318	6416	
==>n't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6318	6416	
==>n't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6318	6416	
==>n't work any longer, as all the standard
# operators are overloaded with calls to JS::inline.
Pugs: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37247	37344	
==>ubset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41796	41893	
==>ubset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natur <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41419	41516	
==>ubset of another, the result degenerates to a C<semijoin>.  This
method has an alias named C<natur <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28506	28604	
==>th
its keys being the new tuple-valued attribute names and each of its values
the set of old attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33058	33156	
==>th
its keys being the new tuple-valued attribute names and each of its values
the set of old attrib <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32186	32284	
==>th
its keys being the new tuple-valued attribute names and each of its values
the set of old attrib <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	324	428	
==>cal($X::str,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$c <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3496	3594	
==>ing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $on <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3496	3594	
==>ing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $on <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6456	6559	
==>this module.

=head1 DESCRIPTION

This module parses regular expressions (regexes).  Its default "gramma <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1460	1559	
==>first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

` <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1460	1559	
==>first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

` <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1365	1498	
==>ursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1365	1498	
==>ursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1365	1498	
==>ursion";

  my $as_js = sub {
    my @jsparams = @_; my $jsobj = shift @jsparams;

    my $subname;
    if($self->{pFun}->{pLV} and $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2551	2677	
==>',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2551	2677	
==>',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $ <==
3	/Users/nnunley/pugs/util/grokprims.pl	1765	1868	
==>";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-a <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3417	3518	
==>esInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alnum:]/ )
  {
    $match <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	947	1058	
==>int "ok\n"; }
	    else { print "not ok \# Unexpected compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ / <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	551	649	
==>int("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	551	649	
==>int("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1543	1657	
==>93.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     values  safe   (rw!Array)\
multi Array <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7553	7653	
==>lf.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Auth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7553	7653	
==>lf.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Auth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1296	1399	
==>unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1296	1399	
==>unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1296	1399	
==>unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many elements
#   of t <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2544	2668	
==>,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SStat <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25751	25845	
==>e software components.

Any versions of Rosetta that you modify and distribute must carry promi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25751	25845	
==>e software components.

Any versions of Rosetta that you modify and distribute must carry promi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5842	5942	
==>ute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5842	5942	
==>ute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5842	5942	
==>ute_name (@{$body->{attributes}}) {
                $new_role->add_attribute($attribute_name => ::mak <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	453	555	
==>ce($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *inf <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	453	555	
==>ce($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	9	107	
==>t;
use warnings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # co <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1614	1726	
==>e automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1614	1726	
==>e automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5489	5590	
==>a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5489	5590	
==>a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5489	5590	
==>a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] = _24mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13539	13744	
==>:DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13539	13744	
==>:DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13539	13744	
==>:DISPATCHER; 
        }
        else {
                                                          # class-id               # label         # dispacther-depth
            my $dispatcher_depth = $_normal_dispa <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3159	3262	
==>DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does this by y <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3159	3262	
==>DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does this by y <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3239	3342	
==>DESCRIPTION

This test module allows you to test test modules that use Test::Builder.  It
does this by y <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5757	5882	
==>s, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5757	5882	
==>s, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5757	5882	
==>s, $elem;
    }
  }

  @res;
}

sub JS::Root::zip(Array *@arrays) is primitive is rw {
  my $maxlen = max map { +$_ }, @arrays <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15340	15440	
==>ace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $enco <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15340	15440	
==>ace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $enco <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3485	3576	
==>(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	424	539	
==>_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	424	539	
==>_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	424	539	
==>_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<EOF;
var __cc   = $self->{CC} <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12604	12697	
==>d>
	      <td class="num tests_unexpect"><span title="<tmpl_var name=unexpect> unexpectedly su <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1825	1915	
==>untime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> repre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1914	2004	
==>untime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> repre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8796	8926	
==>]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev = $bloc <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8796	8926	
==>]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev = $bloc <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4792	4969	
==>$attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8269	8446	
==>$attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7271	7448	
==>$attrs ) );
}

&select_all_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) re <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12283	12389	
==>ned $self->{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for i <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10552	10649	
==>egexp_compile_hook = sub{
  my($re)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reve <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38117	38207	
==>ate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possib <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38117	38207	
==>ate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possib <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	702	820	
==>portList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	702	820	
==>portList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	702	820	
==>portList = function (classdef, exportList) {
        if (typeof(exportList) != "object") return null;
        for(var i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4610	4725	
==>ey === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8087	8202	
==>ey === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7080	7195	
==>ey === any( $attrs ) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2319	2459	
==>ture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2319	2459	
==>ture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2319	2459	
==>ture
            # itself and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if ::opaque_inst <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	153	259	
==>val "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pk <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	153	259	
==>val "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pk <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8881	8982	
==>the inital scan
of the regex.

=head2 Getting the Tree

You can access the root of the tree with the r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	391	508	
==>$jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	391	508	
==>$jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	391	508	
==>$jsclass = $class;
    $jsclass =~ s/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  co <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22144	22267	
==>nstead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier unexpected" warning raised by a zero-width
assertion follow <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	783	884	
==>ly defined as subs, which we can get away with since
   this is currently simply a code generator.

=c <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	783	884	
==>ly defined as subs, which we can get away with since
   this is currently simply a code generator.

=c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	96	226	
==>new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	96	226	
==>new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	96	226	
==>new {
    my $class = shift;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) i <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12420	12534	
==>nitrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pge; 1 },
    using  => sub {
      utime undef, und <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11320	11414	
==>urns all elements both from this recurrence and from the given recurrence.

- `intersection( $r <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11320	11414	
==>urns all elements both from this recurrence and from the given recurrence.

- `intersection( $r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	73	209	
==>& $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	73	209	
==>& $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n" <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24969	25066	
==>t_flag_s(E0,s,E1), !.
set_flag(E0,-s,E1) :- set_flag_s(E0,-,E1), !.
set_flag(E0,x,E1)  :- set_flag <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2057	2154	
==>r>)\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'access_hash_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27946	28039	
==>ge Variable value (a string) associated with
the variable name specified in the positional par <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27946	28039	
==>ge Variable value (a string) associated with
the variable name specified in the positional par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4168	4290	
==>$s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4168	4290	
==>$s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) e <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19719	19821	
==>0,[C|B0],E0,E0) :- C \= 10, !. %\n
rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6743	6843	
==>SA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6743	6843	
==>SA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6743	6843	
==>SA = qw(EvalX::BaseClass); sub expand {
    use PIL::Run::ApiX;
    my $body = $_[0]{'pBody'}->expand <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2250	2542	
==>\-\>/) {
                            #warn "hello there";
                            $body[-1] .= $statement;
                        }
                        else {
                            #warn "our other args $arg";                        
                            push @body => $s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11108	11203	
==>separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11108	11203	
==>separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10201	10403	
==>on => $description,
              passed      =>            1,
              number      =>      $number,
          ) if $passed;
  
          return ::Test::Builder::Test::Fail.new(
              descri <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	753	943	
==>on => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	753	943	
==>on => $description,
            passed      =>            1,
            number      =>      $number,
        ) if $passed;

        return ::Test::Builder::Test::Fail.new(
            descri <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1157	1334	
==>key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1157	1334	
==>key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1771	1870	
==>or = (int(rand() * 100)) % @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_cei <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1198	1299	
==>PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1198	1299	
==>PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1198	1299	
==>PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't use JS'
# "lexical" vars <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	839	941	
==>capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	850	952	
==>capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    r <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17305	17405	
==>essionNoIn :words {  # see 11.10
      <BitwiseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn> <' <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2374	2508	
==>("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2374	2508	
==>("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7480	7644	
==>f ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $resul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7480	7644	
==>f ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $resul <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7480	7644	
==>f ( $elems < ( $end - $start + 1 ) ) {
                my $diff = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $resul <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	557	699	
==>";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_ <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	557	699	
==>";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2987	3095	
==>}

### these plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this use <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7366	7473	
==>}

### these plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7477	7563	
==>};
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7477	7563	
==>};
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7477	7563	
==>};
});

::Class.meta.add_method('_make_preorder_dispatcher' => ::make_private_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3536	3642	
==>efined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3536	3642	
==>efined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3536	3642	
==>efined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" if <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1746	1899	
==>\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1746	1899	
==>\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	53	149	
==>ire 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::Repository;

use Path::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	77	192	
==>b as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	77	192	
==>b as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	77	192	
==>b as_js {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4015	4118	
==>e Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4015	4118	
==>e Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4015	4118	
==>e Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container::Scalar;

use constant Inf => Perl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4970	5089	
==>turns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate at <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8447	8566	
==>turns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate at <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4775	4876	
==>ay;

# 8.9 The Completion Type
class JSX::InternalValue::Completion_type { # XXX - should be enum
   h <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6044	6168	
==>ormalize_version($a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1487	1604	
==>tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1487	1604	
==>tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1180	1296	
==>_native};
}

sub store {
    my ($self, $key, $value) = @_;
    (blessed($key) && $key->isa('type'))
        || confe <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1503	1597	
==>Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDO <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1343	1437	
==>Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17798	17893	
==>SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17798	17893	
==>SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17798	17893	
==>SUB infix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	693	872	
==>{ my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	693	872	
==>{ my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	693	872	
==>{ my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eval_perl5 ($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	711	809	
==>->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	711	809	
==>->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	711	809	
==>->("__cc", @jsargs) ]}
} else {
  $jsname.FETCH()([PIL2JS.Context.ItemAny, @{[ join ", ", @jsargs ] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12005	12103	
==>nce that is right after the parameter.

- `previous( $x )`

Returns the element in the recurrence t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12005	12103	
==>nce that is right after the parameter.

- `previous( $x )`

Returns the element in the recurrence t <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14244	14335	
==>eta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14244	14335	
==>eta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14244	14335	
==>eta.add_attribute('@:subclasses'       => ::make_attribute('@:subclasses'));
::Class.meta.ad <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2202	2306	
==>);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2202	2306	
==>);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push( <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15807	15905	
==>rned C<Str>
will support the same levels as the input, unless specified otherwise.

=over

=item ch <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10842	10958	
==>. "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - tempor <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10992	11108	
==>. "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - tempor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37259	37424	
==>s == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37259	37424	
==>s == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37259	37424	
==>s == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array->splic <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2214	2322	
==>xport {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2214	2322	
==>xport {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1757	1885	
==>y $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq (" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1757	1885	
==>y $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq (" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1757	1885	
==>y $n = 0+ ~$0; # +$0 XXX
      %mods.delete($k);
      %mods{'x'} = $n;
    }
    elsif (($k.chars > 2) && (substr($k,-2,2) eq (" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2023	2119	
==>%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2023	2119	
==>%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2023	2119	
==>%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	23463	23609	
==>),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => ide("f"),
					) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38990	39088	
==>ion is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 itsel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43804	43902	
==>ion is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 itsel <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	621	734	
==>Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	621	734	
==>Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	980	1085	
==>o Ruby, ...
# and then converted to perl (see above)
# all so that we can parse a scheme-like syntax 
# wi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	197	315	
==>$_[1]);
}

sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumpe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	161	278	
==>$_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	249	366	
==>$_[1]);
}
sub emit {
    my $n = $_[0];
    # local $Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32060	32158	
==>ach that corresponds to language A, looking for a match to said error
message.  If it finds one, th <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32060	32158	
==>ach that corresponds to language A, looking for a match to said error
message.  If it finds one, th <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1482	1593	
==>l $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\} <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1482	1593	
==>l $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\} <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2936	3046	
==>l $/; <MAKEFILE> };
    $full_pugs =~ s{\\}{\\\\}g;
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\} <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	10532	10628	
==>em through this function. This is primarily a release
tool, but can be useful in other contexts a <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10590	10686	
==>em through this function. This is primarily a release
tool, but can be useful in other contexts a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5524	5615	
==>broutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Grammar::Prefix;
use Pugs <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7253	7527	
==>',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7310	7584	
==>',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8626	8756	
==>k -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNIC <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7259	7403	
==>pe:       "; my $type =     traverse_ast ( %pad<"pSubType"> );
            # types: SubMethod, ...
        dbg "# Name:       "; my $name =     e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	447	553	
==>et up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	182	288	
==>et up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24028	24177	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24307	24456	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	197	296	
==>sed Perl6 extensions outside of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3793	3921	
==>l6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _o <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6006	6101	
==>die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6006	6101	
==>die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12590	12704	
==>x) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12590	12704	
==>x) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12590	12704	
==>x) {p6_next_macro()};
MACROP5   redo (*@xx) {p6_redo_macro()};
# return - see op0
# yield - see op0
# take - see op <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4041	4174	
==>{
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4041	4174	
==>{
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3080	3198	
==>m{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3080	3198	
==>m{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3080	3198	
==>m{is_lazy};
    unless ( defined $param{celems} ) {
        $param{celems} =
            ( defined $param{cstart} || de <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11395	11512	
==>e = shift;

    my $type = "reduce_" . lc(Scalar::Util::blessed($node));
    
    $self->can($type)
        ? $self->$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3178	3303	
==>scription, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $descripti <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3178	3303	
==>scription, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $descripti <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4702	4827	
==>scription, $todo) 
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($passed, $descripti <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3349	3466	
==>r @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_package(package => $pkg)

=cut

sub add_package {
    my $s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	489	584	
==>_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::cas <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	489	584	
==>_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::cas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9716	9823	
==>A-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9716	9823	
==>A-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_inden <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9716	9823	
==>A-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_inden <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	181	282	
==>ntually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	181	282	
==>ntually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	181	282	
==>ntually be implemented in perl6/Prelude.pm, and can
then be removed from here.

See the note at the to <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4005	4111	
==>est_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4005	4111	
==>est_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4085	4191	
==>est_out( Str $line )>

Adds a line to the list of lines of expected output for the test you're going
to run <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	693	817	
==>,
        '{ return { op => "infix:<' . $opt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAGE__->add_rule( 
        name => '*', <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1114	1218	
==>od BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1114	1218	
==>od BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	738	855	
==>tList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	738	855	
==>tList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	738	855	
==>tList) {
        if (typeof(exportList) != "object") return null;
        for(var i = 0; i < exportList.length; i++) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3141	3245	
==>\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3141	3245	
==>\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()', <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3141	3245	
==>\\\'/g;
    my $dontdie = $defined1_autovivify2 ? ',1' : '';
    my %vivifiers = ('$' => 'Scalar->new()', <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3871	3992	
==>: () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $boo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4064	4185	
==>: () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $boo <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17598	17698	
==>Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm(star(_Re),F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3153	3262	
==>f
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3153	3262	
==>f
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3153	3262	
==>f
      defined $obj and $obj =~ /^[\&\$\@\+\%\:]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1716	1922	
==>xargs -I % echo $Site/% >> $meta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = L <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	444	550	
==>le quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE d <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	444	550	
==>le quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3095	3207	
==>you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3095	3207	
==>you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3095	3207	
==>you'd have to copy them all at once.
#        Each element of @a would be sort of a lazy proxy for each element i <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	200	303	
==>d if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => tim <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	200	303	
==>d if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2137	2252	
==>ODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2137	2252	
==>ODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2137	2252	
==>ODO - test %hash := $x - error if $x is not bound to a hash
# TODO - tieable hash - cleanup AUTOLOAD
# TODO - test ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1912	2051	
==>h};
        
    return '"' . $n->{double_quoted} . '"' 
        if exists $n->{double_quoted};
            
    return '\'' . $n->{sin <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7061	7164	
==>olume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize acros <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7061	7164	
==>olume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize acros <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11717	11837	
==>ub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4360	4480	
==>ub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3149	3263	
==>ment of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        & <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3149	3263	
==>ment of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        & <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3149	3263	
==>ment of @a would be sort of a lazy proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        & <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	108	354	
==>ocale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	108	354	
==>ocale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25497	25601	
==>T :lvalue      { $_[0]{tree}[-1] }

You may find it helpful to copy these to your sub-class.  If you're
c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5858	5961	
==>js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5858	5961	
==>js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5858	5961	
==>js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for reading: $!\n";
  loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2659	2782	
==>itle'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2659	2782	
==>itle'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3006	3129	
==>itle'], # positional
            { subtitle => \'hello'} ); #named

=head1 DESCRIPTION

This module implements the semantics <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1728	1842	
==>:$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # constru <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1728	1842	
==>:$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # constru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6940	7030	
==>=> '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6940	7030	
==>=> '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6940	7030	
==>=> '@:subclasses')} => $subclass;
}));

$::Class->add_method('_merge' => ::make_private_met <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	206	315	
==>erl6;
use Pugs::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $ru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10763	10858	
==>, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10763	10858	
==>, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5838	5974	
==>f $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unl <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5838	5974	
==>f $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unl <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5766	5887	
==>ess $self, "type::variable::instantiated";
}

sub splat {
	my $self = shift;
	my $accum = shift;

	push @$accum, my $entry <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3291	3440	
==>("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3291	3440	
==>("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3291	3440	
==>("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2656	2769	
==>elf, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2656	2769	
==>elf, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2656	2769	
==>elf, $label) = @_;   
    return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical') <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2090	2212	
==>de;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2090	2212	
==>de;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3040	3128	
==>exechook_hook\n");
    fprintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,st <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2957	3056	
==>) || die "LET(){ }LET pairs didn't match up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\$__v__)) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	168	257	
==>remove_content_headers header_field_names scan
    date expires if_modified_since if_unmod <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	168	257	
==>remove_content_headers header_field_names scan
    date expires if_modified_since if_unmod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13700	13811	
==>find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13700	13811	
==>find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispat <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13700	13811	
==>find_attribute_spec' => method () {
    my ($self, $label, %params) = @_;
    # go in BUILD order
    my $dispat <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1517	1606	
==>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.n <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1517	1606	
==>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3381	3497	
==>|| a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3381	3497	
==>|| a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3381	3497	
==>|| a != a ? a : parseInt(String(a))",
  "chr",          1, "N", "String.fromCharCode(a)",
  "ord",          1, "S", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2553	2664	
==>al->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2553	2664	
==>al->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2553	2664	
==>al->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14730	14831	
==>ass.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14730	14831	
==>ass.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14730	14831	
==>ass.meta.add_method('FETCH' => method () {
    my ($self, $label) = @_;
    (defined $label && $label) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7561	7703	
==>('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7561	7703	
==>('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            }, <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7561	7703	
==>('$.name');
                $s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            }, <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	692	816	
==>om A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <su <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	692	816	
==>om A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <su <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12602	12717	
==>No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_num <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12602	12717	
==>No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_num <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3171	3271	
==>te that it is valid for a Relation::Example to have zero attributes.
    has Set of Mapping(Str) of A <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9325	9504	
==>ndef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Int <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9325	9504	
==>ndef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Int <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	4298	4399	
==>it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs all the given I<@t <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6829	6926	
==>ment to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<star <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6829	6926	
==>ment to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5179	5325	
==>$role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('col <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5179	5325	
==>$role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('col <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5179	5325	
==>$role->collect_all_roles($seen) if scalar @{$role->roles};            
        }              
    }
    return @roles;
};
$::Role->add_method('col <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11954	12134	
==>eturn 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11954	12134	
==>eturn 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11954	12134	
==>eturn 1;
            },
            bind_params => sub {
                my ($self, @params) = @_;
                my %bound_params;
                for (my $i = 0; $i < @{ $self->p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	2850	2958	
==>genclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	2850	2958	
==>genclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	2850	2958	
==>genclass = $::EigenClass->new('$:name' => 'EigenClass[' . ($self->name || $params{'$:name'} || 'anon') . ']') <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	59	157	
==>ion of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	59	157	
==>ion of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2371	2485	
==>0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2371	2485	
==>0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2371	2485	
==>0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	234	329	
==>d names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTT <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	234	329	
==>d names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12895	13012	
==>:identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12895	13012	
==>:identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12895	13012	
==>:identify( $key );
    exists $this->{hashref}{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Val <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2270	2401	
==>KING: {   
        ### load in the alternatives collection
        my $href = LoadFile( $Altfile );

        ### this package didn't <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6810	6907	
==>ethod _head() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginn <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6810	6907	
==>ethod _head() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginn <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7975	8093	
==>$h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1;
    }

    my $stringify = sub {
	my($s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1044	1141	
==>ep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1044	1141	
==>ep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5977	6079	
==>::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How wou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5977	6079	
==>::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How wou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5977	6079	
==>::Bar::&baz' => sub { ... });   

- parentage

Should a child package know it's parent package? How wou <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	10041	10163	
==>ed: $test{skip_reason}")
                    if $test{skipped};
                push(@msg, "$test{bonus}/$test{max} unexpec <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7231	7343	
==>re3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()" <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7231	7343	
==>re3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()" <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6546	6654	
==>rpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle bloc <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6546	6654	
==>rpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle bloc <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30033	30133	
==>o display TODO failures

Add a test for verbose.

Change internal list of test results to a hash.

Fi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7964	8067	
==>my @dirs  = sort keys %{$index->{_dirs}};    

    my @files = (exists $index->{_files} ? sort @{$index- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2057	2152	
==>onger valid.
This gives the impression of lexically scoped marks (but it may also
limit the engi <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2057	2152	
==>onger valid.
This gives the impression of lexically scoped marks (but it may also
limit the engi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	148	245	
==>31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	148	245	
==>31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	148	245	
==>31
# * New methods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4073	4239	
==>ore' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4073	4239	
==>ore' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# S <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4073	4239	
==>ore' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cell')->{ro} = 1;
            _('$:cell')->store($value ) 
        },
    }
};

# Scalar 
#
# S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	1076	1183	
==>ot ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	1076	1183	
==>ot ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	1076	1183	
==>ot ok $count - $msg"~$st }
}

sub dies_ok ($c, $msg="", $todo?) {
    my $st = ref($todo) eq 'Pair' ?? " # T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	10842	11023	
==>lasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	10842	11023	
==>lasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	10842	11023	
==>lasses;
                }             
                return $current_class;
            }
            return undef;
        }
    };    
}));

$::Class->add_method('_make_breadth_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3864	3956	
==>------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3864	3956	
==>------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.per <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3864	3956	
==>------------------------
## Package

## See http://article.gmane.org/gmane.comp.lang.perl.per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	10219	10339	
==>eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	10219	10339	
==>eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END__ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	10219	10339	
==>eval_file: $fn: $!\n"; return; };
    my $p6 = do { local $/; <IN> }; close IN;
    eval { p6_eval($p6); };
}

1;
__END__ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12926	13092	
==>te_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12926	13092	
==>te_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20307	20401	
==>onNoIn>
    | <VariableDeclarationListNoIn> <','> <VariableDeclarationNoIn>
}
rule VariableDecl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38384	38499	
==>>{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38384	38499	
==>>{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38384	38499	
==>>{items}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array-> <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6572	6776	
==>compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6572	6776	
==>compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3975	4110	
==>= 0;
    my $j = $i;
    my ($item) = $rules[$i] =~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        la <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1899	2045	
==>n grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2679	2825	
==>n grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6189	6309	
==>ance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6189	6309	
==>ance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_in <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6189	6309	
==>ance_class($self) != $::EigenClass     ) {
            #warn "hello from superclasses for $self";
            ::opaque_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14361	14522	
==>s') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14361	14522	
==>s') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->d <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14361	14522	
==>s') } );
                foreach my $_sub ( @{ _('@.subs') } ) {
                    if ( $_sub->check_params( @args ) ) {
                        return $_sub->d <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2642	2750	
==>nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2642	2750	
==>nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2642	2750	
==>nth');
  my $multiline;

  my $new_Match = JS::inline('
     PIL2JS.toPIL2JSBox(function (as_b, from, to, as_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1632	1752	
==>{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1632	1752	
==>{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1632	1752	
==>{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entries[key].
      var ret = new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6281	6394	
==>t( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6269	6382	
==>t( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var nam <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	196	301	
==>June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	196	301	
==>June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	452	549	
==>native nil type

=head1 METHODS

=over 4

=item B<new (*native*) returns nil>

=item B<to_native ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3355	3452	
==>lf => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3355	3452	
==>lf => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3355	3452	
==>lf => '%:attributes')->{$label} ? 1 : 0;
}));

$::Role->add_method('is_attribute_stub' => ::make_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8687	8822	
==>3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dumper $n;

        my $name = _mangle_ident( $n <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10024	10125	
==>ntities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10024	10125	
==>ntities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12969	13081	
==>fe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12969	13081	
==>fe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12969	13081	
==>fe_print ($xx) {...};
MULTI SUB die (*@xxa) { die map{p6_to_s($_)}@xxa; };
MULTI SUB warn ($xx) { 
    # TODO - a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2103	2281	
==>{
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Local <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2103	2281	
==>{
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Local <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10324	10417	
==>ce_perl))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_char_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1569	1673	
==>$@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1569	1673	
==>$@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1569	1673	
==>$@;

for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2664	2792	
==>rl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2664	2792	
==>rl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2664	2792	
==>rl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $lang;
    if $lang eq "perl6" { Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	979	1083	
==>t, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	979	1083	
==>t, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	979	1083	
==>t, retval, 'dummycc']);"
      });
    };

    if($head->isa("PIL::PApp") and $head->{pFun}->unwrap->isa( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6429	6659	
==>=> 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6429	6659	
==>=> 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementin <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6429	6659	
==>=> 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - remove this after implementin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	4145	4255	
==>unction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	4145	4255	
==>unction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	4145	4255	
==>unction $self:) {
  if $self.isa("Junction") {
    my @vals = $self.values;
    @vals[int rand @vals];
  } elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4072	4174	
==>n =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4072	4174	
==>n =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4072	4174	
==>n =~ s/^\&//; $fn =~ s/([\\\'])/\\$1/g;
        my $f2 = "do{my \$_f=$f;p6_to_b(\$_f->defined()) ? \$_f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	58	168	
==>1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	245	355	
==>1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	432	542	
==>1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4949	5076	
==>ate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4949	5076	
==>ate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4949	5076	
==>ate an infinite list"
    #     if $ret->is_infinite;

    my @list;
    while ( $ret->elems ) { push @list, $ret->shift }
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14423	14523	
==>a.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14423	14523	
==>a.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14423	14523	
==>a.add_attribute('%:attributes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8073	8199	
==>1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rn <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8061	8187	
==>1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rn <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	105	205	
==>t";

#!\pause
# Etwas besser, aber jedoch unübersichtlich:
my $option = $para{'x'};
$option = "wert" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17368	17468	
==>latform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17368	17468	
==>latform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17368	17468	
==>latform-specific, low-level functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1319	1460	
==>"initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1319	1460	
==>"initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1319	1460	
==>"initial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5025	5130	
==>"# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5025	5130	
==>"# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #pr <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23183	23281	
==>OPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 ROPT_TAINTED_SEEN 
 ROPT_UTF8 


=head1 Compilation

=head2 <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	882	984	
==>rmal output filehandle, adding leading C<#>
characters after all newlines if they are not present.

=it <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	882	984	
==>rmal output filehandle, adding leading C<#>
characters after all newlines if they are not present.

=it <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1438	1540	
==>rmal output filehandle, adding leading C<#>
characters after all newlines if they are not present.

=it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7383	7489	
==>void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7383	7489	
==>void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7383	7489	
==>void" } }
{ package PIL::TCxtLValue; our @ISA = qw<PIL::TCxt>; sub main { "lvalue" } }
{ package PIL::TCxtI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1106	1225	
==>here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1106	1225	
==>here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 20 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1106	1225	
==>here 
# * added class Ref
# * added method .perl()
#
# 2005-08-15
# * added boxed types: Num, Int, Str, Bit, Pair
#
# 20 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10258	10359	
==>) {
    my $default; $default = DOWN($paramDefault) if defined($paramDefault);
    return { isInvocant <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	139	234	
==>require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	345	440	
==>require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART: <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14389	14485	
==>=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
intern <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14389	14485	
==>=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
intern <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18967	19062	
==>the underlying
object type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<da <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7805	7903	
==>FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7805	7903	
==>FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7805	7903	
==>FooRole) true,
## when they really should not be true
$::Role->add_method('isa' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	60	172	
==>er::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name } <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	60	172	
==>er::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name } <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4522	4623	
==>.

Inherits Unit.

=item Stub

A node that makes the runtime throw a fatal error. Used for thunks that <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7717	7856	
==>[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here? <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7717	7856	
==>[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here? <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	13928	14051	
==>.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3784	3893	
==>Runtime::Perl5::RuleOps::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1614	1709	
==>a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1614	1709	
==>a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=h <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	661	769	
==>The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	661	769	
==>The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	661	769	
==>The 'Class' class
$::Class = ::create_class();

## create the body of 'add_method' here,.. 
{
    my $_add_me <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	628	815	
==>if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    } <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	628	815	
==>if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    } <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17846	17956	
==>e?


=cut


=pod

=head1 Perl5's struct regexp and its abuse

=head1 Description

The perl5 regexp engine is en <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1158	1255	
==>inuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1158	1255	
==>inuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1392	1500	
==>driver from same.
#  re_tests_parrot.t - parrot's driver, same date.
#  re_tests_match.el - an old driver put <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1404	1503	
==>ze () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite:: <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1404	1503	
==>ze () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite:: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1686	1873	
==>oot_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1686	1873	
==>oot_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4881	5043	
==>s  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6643	6805	
==>s  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5008	5129	
==>t $code;
    eval($code) || die "$@";
  }   
  sub mk_ignore_this_node {
    my($o)=@_;
    my $noop = $o->noop;
    sub{m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13160	13322	
==>\$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # sin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13154	13316	
==>\$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # sin <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	2047	2162	
==>n';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $ar <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1135	1234	
==>= shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $sel <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1135	1234	
==>= shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4593	4715	
==>mespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4593	4715	
==>mespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4593	4715	
==>mespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them into
new namespaces relative to New::Na <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1115	1253	
==>results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # sto <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1115	1253	
==>results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # sto <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2336	2442	
==>null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> ($O: JSX::String $P) {
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1456	1558	
==>s, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1456	1558	
==>s, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::na <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1456	1558	
==>s, @vars, qw< &?BLOCK &?SUB $?SUBNAME >);
  }

  sub callchain {
    "PIL2JS_callchain.push(" . PIL::na <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3905	4029	
==>pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3905	4029	
==>pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3905	4029	
==>pil2js_tty"></pre>

EOF

    foreach (@components) {
      my ($mode, $contents) = @$_;
      if($mode eq "link") {
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1005	1114	
==>KCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1005	1114	
==>KCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->ge <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1005	1114	
==>KCLASS($dispatcher)) {
        foreach my $attr ($c->get_attribute_list()) {
            my $attr_obj = $c->ge <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3108	3214	
==>pe});
	}
}

sub define {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return if $self->node_is_de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	241	335	
==>, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	241	335	
==>, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	241	335	
==>, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_:) { $JS::Math.sin(+$self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	952	1059	
==>he element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numer <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	952	1059	
==>he element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numer <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	952	1059	
==>he element? (Hash and Array)

# TODO - (iblech) probably with a warning "uninitialized warning used in numer <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4206	4306	
==>or the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4206	4306	
==>or the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4286	4386	
==>or the test you're
going to run.

=item B<test_test( Str $description? )>

Compares the receivied and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2158	2255	
==>(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2158	2255	
==>(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2158	2255	
==>(my $cls = ref($x)) {
	return p6_from_a(@$x) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5454	5576	
==>ing boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5454	5576	
==>ing boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5454	5576	
==>ing boxed?
      my $ret = JS::inline('(
        function (pattern,flags,string) {

          var mkMatch = function (ok, f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3966	4147	
==>sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3966	4147	
==>sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3966	4147	
==>sub { 
            _('$:cell')->untie;
        },
    }
};

role readonly => {
    methods => {
        'store' => sub { 
            my ( $self, $value ) = @_; 
            _('$:cel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5739	5849	
==>t of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5739	5849	
==>t of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5739	5849	
==>t of vars-to-backup for primitives,
    # because else we can't implement &try in Perl.
    return (
      $var <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7570	7664	
==>tch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7570	7664	
==>tch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7570	7664	
==>tch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apostcircumfix_for <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1820	1949	
==>= sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            giv <==
3	/Users/nnunley/pugs/misc/S29_round.pl	2357	2486	
==>= sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            giv <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class6.pl	38	149	
==>ass Mensch {
	has $.geburtstag;
}

role Leben {
	...
}

class Person {
	is Mensch;
	does Leben;
	
	has $.name is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	578	700	
==>t = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	578	700	
==>t = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    / <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	578	700	
==>t = args.shift(), cc = args.pop();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    / <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	1870	1975	
==>rgs[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	1870	1975	
==>rgs[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	1870	1975	
==>rgs[1].FETCH();

    if(a instanceof PIL2JS.Ref && b instanceof PIL2JS.Ref) {
      cc(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5841	5954	
==>e base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5841	5954	
==>e base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

su <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6431	6544	
==>e base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]];
}

sub STORE {
  $_[0]->{real}->[$_[1]] = $_[2];
}

su <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21803	21917	
==>$S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18224	18338	
==>$S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6789	6886	
==>.  This may change in future versions.

This module is designed as a replacement (though not drop- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14520	14635	
==>ded quantifier on a zero-width
      # assertion can match a null string a lot
      elsif ($tree->[-1]->{zerolen} a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2364	2459	
==>It's not clear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2364	2459	
==>It's not clear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8022	8163	
==>) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8022	8163	
==>) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8022	8163	
==>) marray[i].STORE(arr[i]);
        }

        return this;
      }
    );

    proxy.BINDTO = function (other) {
      var arr = other.FETCH() <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2474	2576	
==>:AttrName *@attr_names) {
    for @attr_names -> $attr_name {
        if (!$?SELF.attr_name_exists( $at <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5250	5349	
==>on will fetch the document identified by the given URL
and return it.  It returns C<undef> if it fai <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5250	5349	
==>on will fetch the document identified by the given URL
and return it.  It returns C<undef> if it fai <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9225	9335	
==>y ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11540	11650	
==>y ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2694	2821	
==>apture},
                abort   => ${$_[3]{match}[1]}->{abort},
        }, 'Pugs::Runtime::Match::Ratchet';
        return \ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9245	9339	
==>face of Rosetta::Model is entirely object-oriented; you use it by
creating objects from its mem <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9245	9339	
==>face of Rosetta::Model is entirely object-oriented; you use it by
creating objects from its mem <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3806	3905	
==>ible shell.
  --inputrc=$inputrc
    The readline library likes to have a /etc/inputrc.
  --terminfo <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3999	4092	
==>set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_p <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3999	4092	
==>set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6408	6512	
==>nboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6408	6512	
==>nboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6408	6512	
==>nboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unboxed' => @arg) if $type eq 'Int';
    retur <==
3	/Users/nnunley/pugs/util/grokprims.pl	1513	1644	
==>/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0";
  } elsif (/left-associative/ and $arity==2) {
    $example = "(\$$a0 $name \$$ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2811	2939	
==>}
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2811	2939	
==>}
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2131	2235	
==>O - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unl <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2131	2235	
==>O - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unl <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1248	1345	
==>escribes version 0.03 of re::override, released
March 12, 2006.

=head1 SYNOPSIS

    use re::over <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1130	1271	
==>urrent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1130	1271	
==>urrent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tre <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	14510	14620	
==>e {
    $code($obj);
    $obj;
}

# (Unspecced) facade class supplying localtime
class Time::Local {
    has In <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	537	686	
==>{
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when : <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	537	686	
==>{
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when : <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	5196	5307	
==>hen pugs is built, a fallback Prelude.hs that contains only a quoted
version of the Prelude code is inlined into <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	8	131	
==>= ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	8	131	
==>= ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	8	131	
==>= ...
package PIL::PPad;

use warnings;
use strict;

sub fixup {
  my $self = shift;

  die unless keys %$self == 3;
  # A S <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	6556	6664	
==>::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	6556	6664	
==>::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	6556	6664	
==>::Class.meta.add_method('dispatcher' => method () {
    my ($self, $order) = @_;   
    $order = ':ascendant' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	44	141	
==>strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	44	141	
==>strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = ' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	44	141	
==>strict;
use Carp;
use Scalar::Util;

use vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	663	798	
==>.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	663	798	
==>.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	663	798	
==>.
    my %attrs;
    my Dispatcher $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> Class $c {
        fo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5409	5515	
==>tring which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test dia <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5409	5515	
==>tring which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test dia <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7606	7712	
==>tring which follows the TAP protocol:

  ok 1 - test description
  not ok 2 - test description
  # test dia <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	587	695	
==>),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3785	3880	
==>al" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTO <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3785	3880	
==>al" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTO <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6736	6859	
==>ase;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'i <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6736	6859	
==>ase;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37780	37916	
==>branch',
      branch => 1,
      neg => !$pos,
    }, $class;
    return $self;
  }

We've added a C<neg> attribute, and removed both C< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6081	6189	
==>re_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5888	5991	
==>re_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14847	14979	
==>clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14847	14979	
==>clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14847	14979	
==>clone->to_list;
                my $code = shift;
                die "Argument to map() must be a Code" unless Perl6::Value::p6v_isa <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24260	24437	
==>1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24539	24716	
==>1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	576	682	
==>self = shift;
	my $node = shift;

	warn Carp::longmess unless $node->can("digest");
    Blondie::Backend::P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2347	2482	
==>thod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2347	2482	
==>thod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2347	2482	
==>thod $method { 
        $method.($?SELF, %params);                  
    }      
});

::Class.meta.add_method('isa' => method (Str $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	406	501	
==>gs[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	406	501	
==>gs[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitiv <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	406	501	
==>gs[1].FETCH().value);
  })')($self);
}

sub infix:«=>»($key is copy, $value is rw) is primitiv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1352	1471	
==>t' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy paramete <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1352	1471	
==>t' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy paramete <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1352	1471	
==>t' can be Slurpy or Item

# TODO - Code - PIL gives these extra attributes:
#        is_lvalue

# TODO - slurpy paramete <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4903	5065	
==>) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours acc <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4903	5065	
==>) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours acc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2487	2590	
==>me) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2487	2590	
==>me) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2487	2590	
==>me) returns Bool { 
    return undef unless $class_name;
    my Dispatcher $dispatcher = $?SELF.meta.dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3700	3842	
==>TROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3700	3842	
==>TROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3700	3842	
==>TROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, ref $self;
        @{$clone->{pops}} =   @ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8338	8464	
==>atch;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Du <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8531	8657	
==>atch;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Du <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1137	1346	
==>nd();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1137	1346	
==>nd();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $l <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1137	1346	
==>nd();
                #warn "SORTED @res";
                @res = grep { 
                        my $id = Perl6::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $l <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12736	12885	
==>anded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9010	9159	
==>anded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9845	9994	
==>anded macro eval:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2863	2970	
==>TParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2863	2970	
==>TParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2863	2970	
==>TParam;

  use warnings;
  use strict;

  sub is_required { not $_[0]->{tpParam}{isOptional} }
  sub is_invo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3967	4067	
==>arameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3967	4067	
==>arameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6164	6264	
==>arameter is false, the factory returns a Test::Builder::Test::Fail
instance, passing on the C<$descri <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	818	935	
==>iting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUP <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	818	935	
==>iting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUP <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25926	26012	
==>) :- string_to_list(X,L), !.
listify(L,L).
listify_lists([X|Xs],[L|Ls]) :- listify(X,L) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4444	4547	
==>l6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4291	4392	
==>l6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::C <==
3	/Users/nnunley/pugs/util/addauthors.pl	432	531	
==>ers{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	653	836	
==>TANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	653	836	
==>TANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	653	836	
==>TANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Dispatchable';
    }

    # Accessors for <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3704	3859	
==>= shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4168	4323	
==>= shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2421	2566	
==>ft;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->array_extendSiz <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	228	367	
==>multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.L <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	228	367	
==>multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.L <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25954	26057	
==>OL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBOL	 	0x00004
 #define ROPT_ANCH_GPOS <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	933	1031	
==>nt to permit recommencing writing a grammar for perl6.
  This will likely be pure p5/prolog, with n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2477	2587	
==>smatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        " <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2477	2587	
==>smatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        " <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2557	2667	
==>smatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_matches;

    $Test.diag(
        " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1664	1764	
==>j)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1664	1764	
==>j)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1664	1764	
==>j)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimplemented"}
sub p6_to_perl {my($o)= <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4841	4984	
==>ontent;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4841	4984	
==>ontent;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) re <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10467	10564	
==>elf: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('add_method' => (
    # meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9368	9529	
==>ew( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9368	9529	
==>ew( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9368	9529	
==>ew( '$.unboxed' => "$key\t$value" ) 
              },
            'bit' => sub { Bit->new( '$.unboxed' => 0 ) },
            'perl' => sub { 
                my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	661	783	
==>[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( $const );
    $const = $_[0] eq '\\' ? '\\\\' : <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2218	2329	
==>f,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2218	2329	
==>f,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6463	6597	
==>um $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6463	6597	
==>um $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6463	6597	
==>um $to) is primitive {
  my $i;
  my @res;

  loop ($i = $from; $i <= $to; $i++) {
    push @res, $i;
  }

  @res;
}
sub infix:<^..>  ( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3976	4079	
==>:Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3976	4079	
==>:Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28507	28596	
==>->reganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_on(prog)		((prog)->reganch |= ROPT_MAT <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	464	607	
==>t "Grammar::Expression::AST '$match' \n";
    my $p;
    my $last = length( $match );
    my $lex = sub {
        my $m;
        my $whitespace_ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26386	26481	
==>reate a modified version of Rosetta
that you are willing to distribute, because that is a practi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26386	26481	
==>reate a modified version of Rosetta
that you are willing to distribute, because that is a practi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4568	4669	
==>ile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4568	4669	
==>ile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{outpu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4568	4669	
==>ile_perl6_to_htmljs_with_links @_ };
  print $OUT $@ and return if $@;

  open my $fh, ">", $cfg{outpu <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3022	3382	
==>tim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            % <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3022	3382	
==>tim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            % <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2840	2942	
==>y ($self, $enum, $err, @args) = @_;
  local $self->{tree};
  $self->warn($enum, $err, @args);
}


sub n <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2655	2750	
==>urn $.set.end_is_closed }
method stringify ()     returns String { return $.set.stringify }
meth <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2655	2750	
==>urn $.set.end_is_closed }
method stringify ()     returns String { return $.set.stringify }
meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	527	648	
==>, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $posi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	527	648	
==>, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $posi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	527	648	
==>, $b) = @_;
    _alias_a_to_b($a, $b, 0);
}

sub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $posi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16704	16800	
==>y $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16704	16800	
==>y $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16704	16800	
==>y $list = Perl6::Value::List.new( ... );

=head1 DESCRIPTION

This module implements a "List" obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1698	1838	
==>ms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$metho <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1698	1838	
==>ms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$metho <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3743	3855	
==>/ / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1962	2060	
==>%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipul <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1962	2060	
==>%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipul <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	881	993	
==>ven't subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  < <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	881	993	
==>ven't subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  < <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15409	15520	
==>->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15409	15520	
==>->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15409	15520	
==>->{cend}( @_ )   : undef }  
sub start { $_[0]->{celems}( @_ ) ? $_[0]->{start}( @_ )  : undef }
sub end   { $_[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2774	2900	
==>object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3347	3462	
==>object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  # digit (a d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	722	838	
==>>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5724	5837	
==>($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5724	5837	
==>($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubNa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5724	5837	
==>($_),
        name_mangle($_),
        undef_of($_);
    } keys %UNDECLARED_VARS, @ALL_LEXICALS, map { $_->{pSubNa <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	221	338	
==>t =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $conte <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	221	338	
==>t =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $conte <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13516	13640	
==>ibute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13516	13640	
==>ibute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13516	13640	
==>ibute_table(\%params);                  
    return keys %{$table};
});

# "spec" here means "whatever annotation went with t <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1008	1207	
==>_ROOT ];
$config{'compile_dir'}      = [ _builddir               => 
                                sub { shift()->temp_dir->subdir( shift() ) }
                            ];

### repository dirs/fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	782	922	
==>$_[3] ] }
        |   exp 'infix:<times>' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[1], $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30368	30493	
==>cher = $self->send('_make_descendant_dispatcher');
                }    
                elsif ($order->equal_to(str->new(':as <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52655	52743	
==>ject));
$::Object->set_attr(symbol->new('@:MRO') => list->new($::Object));

foreach my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	579	691	
==>ternals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	579	691	
==>ternals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	579	691	
==>ternals::named_pair") {
    my $key;
    my $unwrapped = $self->{pArgs}[0]->unwrap;
    if(
      $unwrapped->isa <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2105	2196	
==>ght also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www. <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2105	2196	
==>ght also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www. <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	10573	10679	
==>','code.tmpl');  
  $template->param("file" => $file);
  my $output = ""; 
  
  while (my $rest = <$infile> <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5474	5575	
==>(split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channel <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5474	5575	
==>(split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11013	11096	
==>ate:
------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11013	11096	
==>ate:
------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11013	11096	
==>ate:
------------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1297	1407	
==>.).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1297	1407	
==>.).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22338	22428	
==>r_type(Cb,to_lower(C)).

charset_member(_E,C,[char(C)|_]) :- !.
charset_member(E0,C,[char(X <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12470	12620	
==>.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI:: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12470	12620	
==>.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI:: <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	286	388	
==>rently on the goal list.

CAVEAT - This file so far represents only a an hour or two of work.
It is ver <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5378	5483	
==>lf, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::FLAG_$seq" } = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12507	12604	
==>ar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function remo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12507	12604	
==>ar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function remo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	553	659	
==>_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	553	659	
==>_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	553	659	
==>_INSTANCE,
	  method => _map_method($class),
	  package => $class );

    $class->import(@_);
}


sub init_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2704	2809	
==>ur username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2704	2809	
==>ur username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1133	1237	
==>dd_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2298	2402	
==>dd_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11357	11451	
==>e,
signaling the first arguement should be before/tied with/after the
second in the final order <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10674	10779	
==>ay[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10674	10779	
==>ay[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10674	10779	
==>ay[idx] == undefined ? undefined : array[idx].uid;

      // @a[$idx] := $foo should autovivify @a[$idx] i <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20037	20131	
==>ect Hash,
or various combinations of other data types.

While the implementation can be changed <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24589	24683	
==>ect Hash,
or various combinations of other data types.

While the implementation can be changed <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23141	23235	
==>ect Hash,
or various combinations of other data types.

While the implementation can be changed <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13367	13473	
==>art, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurr <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13367	13473	
==>art, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurr <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9167	9270	
==>fined($v) && $v eq $_[0]; # where does this recursion arise?
	my $v2 = recurse($v);
	$v2 = "\"$v\"" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12967	13161	
==>=> 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2985	3129	
==>= *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3202	3346	
==>= *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8	110	
==>Pugs::Emitter::Perl6::Perl5;

# p6-ast to perl5 emitter

use strict;
use warnings;
use Data::Dump <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15907	16004	
==>eral books and papers and taught classes on the subject over the last
35+ years, along with Codd h <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15907	16004	
==>eral books and papers and taught classes on the subject over the last
35+ years, along with Codd h <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24034	24127	
==>ample bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENS <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24034	24127	
==>ample bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	8094	8248	
==>d method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	8094	8248	
==>d method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	8094	8248	
==>d method body (" . ($method || 'undef') . ")";     
        return bless sub {
            return ::next_METHOD()
                if ((!$_[0] || $_[0] ne $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2802	2915	
==>method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3015	3128	
==>method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	141	248	
==>qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package';

my %i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4259	4372	
==>ift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4259	4372	
==>ift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4259	4372	
==>ift;
    my %param = @_;  
    #warn "NEW SLICE: ".Perl6::Value::stringify($param{array})." -- ".Perl6::Value::str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	446	586	
==>loop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	446	586	
==>loop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	446	586	
==>loop(function () {
            cc(new PIL2JS.Box.Constant(undefined));
          });
        });
      });

      PIL2JS.catch_all_exceptions <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2639	2729	
==>::", "<infix:|", "nows", &parse_modifier);
    $optable->addToken("close:>", "<prefix::", " <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5187	5276	
==>%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.k <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5187	5276	
==>%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.k <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9907	10018	
==>iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9907	10018	
==>iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9907	10018	
==>iterator(@MRO);
});

::Class.meta.add_method('is_a' => method () {        
    my ($self, $class) = @_;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3135	3262	
==>die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3135	3262	
==>die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3135	3262	
==>die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS::inl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6669	6824	
==>ice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6669	6824	
==>ice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6669	6824	
==>ice
            'postcircumfix:{}' => sub { (shift)->fetch( @_ ) },
            'fetch' => sub {
                my ($self, @param) = @_;
                #w <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2938	3031	
==>urns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differenc <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2938	3031	
==>urns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differenc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6509	6609	
==>KBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8464	8555	
==>->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2289	2380	
==>->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1870	1993	
==>\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1870	1993	
==>\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	459	554	
==>erl6 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4098	4195	
==>V<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4098	4195	
==>V<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	441	538	
==>ar to what is described
in here (note: same author as the first scheme code):

  http://okmij.org/ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1556	1674	
==>01 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Ti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1556	1674	
==>01 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Ti <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	171	268	
==>ixed.
use File::Spec ();
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSIO <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5847	5957	
==>Number(JSX::Value::Null $v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v)   { ?$v :: JSX::true :: +0 } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	88	210	
==>my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	88	210	
==>my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	88	210	
==>my ($self, $prefix, $subbody) = @_;
    local $_;

    # Move all slurpy arrays to the end.
    # This is because *%slurpy_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26539	26655	
==>b visual {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30432	30529	
==>g an an exclusive alternative for the rest
of the set. There is a separate template module for eac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30432	30529	
==>g an an exclusive alternative for the rest
of the set. There is a separate template module for eac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	305	551	
==>packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation::Example::Heading- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12249	12371	
==>lly qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12243	12365	
==>lly qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7806	7900	
==>ns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assume t <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7806	7900	
==>ns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assume t <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2817	2935	
==>tput;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2817	2935	
==>tput;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4341	4459	
==>tput;

  my Test::Builder $Test .= new(
        output => Test::Builder::Output.new(
           error_output => open('m <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10074	10198	
==>t
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %c <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10074	10198	
==>t
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %c <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	209	333	
==>) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	209	333	
==>) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	209	333	
==>) {
      PIL2JS.die("Can\'t use \"" + thing + "\" as a generic reference!");
    }

    // Relay .FETCH and .STORE to the re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8064	8271	
==>ar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8064	8271	
==>ar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8064	8271	
==>ar' ) ) {
                    #warn "autovivify - $key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	1012	1108	
==>/>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	1012	1108	
==>/>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<an <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	1012	1108	
==>/>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) }
sub infix:<an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	325	452	
==>tmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	325	452	
==>tmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	325	452	
==>tmts");

  # Skip creating a new sub-pad if
  #   a) we're in a subroutine (in this case, we use JS' lexicals) or
  #   b) we're <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4309	4457	
==>$path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4309	4457	
==>$path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2207	2306	
==>t for you.

Inherits Map.

=back

=head2 Nodes

Nodes are parts of the Blondie Abstract Syntax Tree, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10765	10896	
==>vify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-crea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10765	10896	
==>vify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-crea <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10765	10896	
==>vify @a[$idx] if necessary.
      ret.BINDTO = function (other) {
        if(idx < 0)
          PIL2JS.die("Modification of non-crea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14188	14312	
==>ss;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree->[-1]->f <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17805	17899	
==>tem $h.server

The server header field contains information about the software being
used by th <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17805	17899	
==>tem $h.server

The server header field contains information about the software being
used by th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20930	21190	
==>lem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20930	21190	
==>lem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20930	21190	
==>lem";
                            $elem->store( @param );
                        }
                        else
                        {
                            #warn "CELL TO STORE IS NOT YET A SCALAR: $elem";
                            my $scalar = Sca <==
3	/Users/nnunley/pugs/util/version_h.pl	1709	1835	
==>urrent version is $revision\n";

if ($revision != $old_revision) {
  # As we've closed STDIN (filehandle #0), slot #0 is availa <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2835	2934	
==>rns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2835	2934	
==>rns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10250	10406	
==>coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10250	10406	
==>coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # pr <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10250	10406	
==>coro->clone() not implemented";
            $class->from_coro( $start ) 
        },
        cstart =>  sub {
            my $r = $start->();
            # pr <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3603	3697	
==>an object of the appropriate 
class, passing the key, a mode (either "enciphering" or "decipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3603	3697	
==>an object of the appropriate 
class, passing the key, a mode (either "enciphering" or "decipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6861	6993	
==>l/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6861	6993	
==>l/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6861	6993	
==>l/@PIL::Noop []
    #   paramName: '@c'
    # Should we (and can we) supply a default for an optional param?
    my @js;

    if($sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15363	15494	
==>re it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15363	15494	
==>re it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $labe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15363	15494	
==>re it will work 100% of the time
            return if $::IN_GLOBAL_DESTRUCTION || !defined($::Class);            
            $labe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	10927	11054	
==>ubscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	10927	11054	
==>ubscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	10927	11054	
==>ubscript " + orig_value[idx]);

        if(array[idx] == undefined)
          array[idx] = new PIL2JS.Box(undefined);

        r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37168	37292	
==>ift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37168	37292	
==>ift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->pu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37168	37292	
==>ift if UNIVERSAL::isa( $ret, 'Perl6::Value::List' );
    if ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3164	3277	
==>ays return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3164	3277	
==>ays return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # op <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3164	3277	
==>ays return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all
      # op <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	746	920	
==>add_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array::Const>),
                                T <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23043	23140	
==>nt to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like you <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23043	23140	
==>nt to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like you <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5642	5744	
==>gine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (close <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5642	5744	
==>gine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (close <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	232	329	
==>ples apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_ba <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1129	1249	
==>nt
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    " <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1129	1249	
==>nt
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    " <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	352	462	
==>s,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f( <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	352	462	
==>s,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f( <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12180	12290	
==>arser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6432	6539	
==>->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6432	6539	
==>->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6432	6539	
==>->new( '$.unboxed' => Perl6::Value::Str::to_num( _('$.unboxed') ) ) },
            'int' =>  sub { Int->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1169	1284	
==>=> 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1169	1284	
==>=> 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1169	1284	
==>=> 'alert',
		   func => sub { warn Dumper(@_) });
    my $code = <<EOC;

function perl_apply() {
    var args = new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4933	5062	
==>o to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4933	5062	
==>o to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4933	5062	
==>o to STDOUT.
  --link=html|js    Link precompiled files into one standalone JavaScript
                    file ("js") or into a H <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	1737	1879	
==>an::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1737	1879	
==>an::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' <==
3	/Users/nnunley/pugs/util/version_h.pl	2125	2237	
==>UT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $revision\n";
  close OUT;

  if ($revisi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5971	6084	
==>pe ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5971	6084	
==>pe ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12384	12468	
==>p6_hex_chars(R), [Close].
p6_hex_chars(R) --> hexdigits_int(C), p6_hex_chars_more(cha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4441	4537	
==>Bind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4441	4537	
==>Bind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4441	4537	
==>Bind; @ISA = qw(EvalX::BaseClass); sub expand {
    'p6_bind('.$_[0]{'pLHS'}[0]->expand().','.$_[ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1173	1283	
==>14 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satis <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1173	1283	
==>14 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satis <==
3	/Users/nnunley/pugs/util/drift.pl	1663	1751	
==>import $module
import Data.Yaml.Syck
import DrIFT.YAML
import DrIFT.JSON
import DrIFT.Per <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9428	9546	
==>tch the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10234	10352	
==>tch the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11149	11267	
==>tch the heading of the invocant relation."
            if !($r2!heading === $!heading);
    }

    my Relation::Example <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4209	4322	
==>int_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tre <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4426	4539	
==>int_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tre <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6795	6897	
==>kage cond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16793	16887	
==>, and
subtraction.

=item Regexp::Optimize

Eliminates redundancy from a regex.  It should have <==
3	/Users/nnunley/pugs/util/combine_tests.pl	913	1050	
==>{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $event <==
3	/Users/nnunley/pugs/util/combine_tests.pl	2251	2376	
==>{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1947	2054	
==>\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	946	1049	
==>);
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition) && $condition->isa('bloc <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5842	5942	
==>d translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5842	5942	
==>d translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5271	5370	
==>turns a hash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5271	5370	
==>turns a hash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7468	7567	
==>turns a hash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1204	1325	
==>ever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS depende <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	764	885	
==>ever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS depende <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	237	341	
==>tall_version = shift;
    die "Install version must be 5 or 6 for WritePugs"
      unless $install_versio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6995	7117	
==>::Term.bareword> 
            #    { return $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER: <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	626	736	
==>bug;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
}

# Some experimental v <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	432	531	
==>&ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	432	531	
==>&ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5010	5149	
==>->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5010	5149	
==>->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5010	5149	
==>->roles}) {
        unless (exists $seen->{$role->name}) {
            $seen->{$role->name}++;             
            push @roles => $role <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11650	11765	
==>t(reg_any => $family, '.');
  });

  # backslash
  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5783	5876	
==>urn $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->objec <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5862	5955	
==>urn $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	398	504	
==>tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	398	504	
==>tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	398	504	
==>tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($source);
    grep { $_ } $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14554	14657	
==>X class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8756	8859	
==>X class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_o <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3382	3508	
==>t;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3382	3508	
==>t;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32510	32609	
==>erolen

Whether this object does is zero-width (like an anchor).

=back

If there is a method with t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13315	13434	
==>$_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             got <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13315	13434	
==>$_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             got <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13315	13434	
==>$_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             got <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20685	20898	
==>";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20685	20898	
==>";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20685	20898	
==>";
                        my $pos = shift @param;
                        my $elem = $tmp->fetch( $pos );
                        if ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                            #warn <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8677	8779	
==>n input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8677	8779	
==>n input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8677	8779	
==>n input string, e.g. foo""bar -> foo\"\"bar
sub doublequote($) {
  my $str = shift;

  $str =~ s/((?:[^ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3414	3506	
==>Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

Th <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3414	3506	
==>Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

Th <==
3	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2206	2313	
==>ir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $ <==
3	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2206	2313	
==>ir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	17877	18179	
==>_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21354	21656	
==>_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20941	21243	
==>_m = mapping( $t2.pairs.map:{
                        $_.key === any( $common_h )
                    } )
                    if ($t2common_m === $t1common_m) {
                        $t2only_m = mapping( $t2.pairs.map:{
                            $_.key === any( $r2only_h )
                        } <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1216	1325	
==>);
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1216	1325	
==>);
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15054	15230	
==>res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15054	15230	
==>res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15054	15230	
==>res->push( $array->map( $code ) );
                return $res;
            },
            'kv' => sub  { 
                my $array = shift; 
                my $keys = $array- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2663	2764	
==>js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2663	2764	
==>js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($co <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2663	2764	
==>js';
my $go = main->can("run_$run") or die "unknown run mode";
$go->($js);

sub write_file {
  my ($co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5029	5139	
==>:)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5029	5139	
==>:)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5029	5139	
==>:)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/::/\cA/g;
    $mn =~ s/([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4792	4907	
==>ion.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public att <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4792	4907	
==>ion.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6989	7104	
==>ion.

=back

=back

=head1 ROLES

=over 4

=item B<Test::Builder::Test::Base>

This role contains several public att <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14141	14255	
==>e Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14141	14255	
==>e Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14141	14255	
==>e Perl6::Container::Array;
	$PIL::Run::Root::main::hash_ENV = Hash->new();
	my $h = Perl6::Container::Hash::Native- <==
3	/Users/nnunley/pugs/misc/S29_round.pl	510	620	
==>{ $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14478	14574	
==>t
internally uses the C<scan> method to build the string, the result
will use case as suggested b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14478	14574	
==>t
internally uses the C<scan> method to build the string, the result
will use case as suggested b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12265	12377	
==>y);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12265	12377	
==>y);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12265	12377	
==>y);
    }
  })')(@self, @idxs);
}

# Array autovification
# Needs PIL2 and MMD to be done without hacks
sub PIL2J <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21431	21524	
==>cket usually stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21431	21524	
==>cket usually stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	3393	3502	
==>sif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	3393	3502	
==>sif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	3393	3502	
==>sif $self.isa("Pair") {
    ($self.key, $self.value);
  } elsif $self.isa("Array") {
    my @res;
    for $sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1695	1807	
==>( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->compile(q(" .
        $bo <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14466	14568	
==>->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_s <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1946	2048	
==>->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6173	6290	
==>ype ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my metho <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6173	6290	
==>ype ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my metho <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7887	8055	
==>ion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) ret <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11364	11532	
==>ion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) ret <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18997	19137	
==>:words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='> <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7011	7148	
==>et.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwi <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7011	7148	
==>et.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwi <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9132	9243	
==>aramName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5835	5939	
==>JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5835	5939	
==>JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5835	5939	
==>JS.js ~Prelude.js test.js
USAGE

sub slurp {
  open my $fh, "< $_[0]" or die "Couldn't open \"$_[0]\" for <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	939	1077	
==>n => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	939	1077	
==>n => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	939	1077	
==>n => sub { shift; my $func = $_[0]->can($_[1]); },
        },
        package => 'Perl5',
    );


    my $perl5 = bless {}, 'Perl5';
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3510	3639	
==>bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3510	3639	
==>bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3510	3639	
==>bug";
    my $vivify = ($defined1_autovivify2 && $defined1_autovivify2 == 2
                  ? "||do{warn \"autovivifying $m\\n\" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6407	6631	
==>Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6407	6631	
==>Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6407	6631	
==>Str->new( '$.unboxed' => 
                    '{' . 
                    join(', ', @pairs) . 
                    '}' 
                );
            },
            'perl' => sub { $_[0]->str },

            # TODO - XXX - r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2880	3002	
==>) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2880	3002	
==>) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2880	3002	
==>) = @_;

      my %param = (a => $a, b => $b);

      my $jsbody = $body;
      $jsbody =~ s/\b([ab])\b/PIL2JS.cps2normal($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14867	14981	
==>oup;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off, @data) = @_;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2849	2944	
==>original text, or at
least a valid representation of it that "honours the spirit of the
dialect" <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2849	2944	
==>original text, or at
least a valid representation of it that "honours the spirit of the
dialect" <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	484	621	
==>success, false on failure.

=cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required = <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	127	222	
==>all::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERS <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	28	123	
==>all::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERS <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3241	3437	
==>+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:p <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3241	3437	
==>+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:p <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1448	1572	
==>tion() > 0;
}

sub as_integer {
  my ( $self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8188	8305	
==>:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* object
  }

When the regex is finished bein <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10285	10397	
==>tate}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10285	10397	
==>tate}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        ret <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28173	28273	
==>flag(@flags)

Deletes the handlers for the flags -- you need only pass the flag names,
without the "F <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34781	34878	
==>ll of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along
th <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39331	39428	
==>ll of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along
th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PExp.pm	100	204	
==>elf == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PExp.pm	100	204	
==>elf == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

su <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PExp.pm	100	204	
==>elf == 1;
  die unless $self->{pLV};

  return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}

su <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1796	1920	
==>if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request. <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1796	1920	
==>if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request. <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	31019	31114	
==>G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.com> >>.

This progra <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7842	7949	
==>ear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7842	7949	
==>ear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11690	11799	
==>>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11690	11799	
==>>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11690	11799	
==>>clone has pending shifts/pops" if @{$self->{pops}} || @{$self->{shifts}};
            $ret->clone->map( $code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5335	5435	
==>Thunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5335	5435	
==>Thunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5335	5435	
==>Thunk'}{'pLV'}{'pFun'}{'pBody'};
    defined $body ? ' do{ '.$body->expand().' } ' : $_[0]->SUPER::ex <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1540	1646	
==>full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1540	1646	
==>full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8305	8398	
==>called by Foo');  

$Foo->add_singleton_method('singleton_test_on_Foo' => sub { 
 '&Foo::singl <==
3	/Users/nnunley/pugs/util/testgraph.pl	963	1068	
==>erates an HTML summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTML header (fo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2108	2209	
==>mental Perl 6 implementation

=head1 SYNOPSIS

Command line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2, <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1271	1424	
==>$1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1271	1424	
==>$1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2858	3000	
==>l,
            $self->index,
    );

    for my $dir (@dirs) {
        $dir->mkpath() or error($!), return;
    }

    return 1;
}

### these p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2516	2623	
==>lse {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2516	2623	
==>lse {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2516	2623	
==>lse {
    die ".keys does not work on objects of type {$self.ref}!";
  }
}

method values (Hash|Pair|Array|J <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13981	14099	
==>tch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Sc <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13981	14099	
==>tch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Sc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1342	1440	
==>PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1342	1440	
==>PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1342	1440	
==>PIL::name_mangle(":$classname"),
        PIL::name_mangle(":$classname"),
        PIL::doublequote( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17457	17559	
==>.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::O <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17457	17559	
==>.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::O <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11683	11789	
==>nals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11683	11789	
==>nals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11683	11789	
==>nals::eval ($xx) {PIL::Run::EvalX::p6_eval(p6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4169	4299	
==>param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4169	4299	
==>param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4169	4299	
==>param, $class;
}

sub DESTROY       { $_[0]->{DESTROY}( @_ ) }
sub clone         { $_[0]->{clone}( @_ ) }
sub elems         { $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7411	7499	
==>::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ----- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7411	7499	
==>::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ----- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7411	7499	
==>::Class->add_method('collect_all_roles' => ::make_method($_collect_all_roles));

## ----- <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	42	147	
==>"Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	38	143	
==>"Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink = <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	38	143	
==>"Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	951	1058	
==>! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	951	1058	
==>! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	951	1058	
==>! $a }
sub infix:<err>  ($a, Code $b) is primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1277	1377	
==>ef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1277	1377	
==>ef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1277	1377	
==>ef). Important: Box the things with
# new PIL2JS.Box.Constant!
{
  package PIL::VInt;
  our @ISA = qw <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2744	2864	
==>( "Could not chdir to '$builddir'" ), return;

### XXX perl-ify
sub build {
    my $self = shift;
    my $conf = $self->c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1928	2027	
==>( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::In <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1928	2027	
==>( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::In <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3650	4066	
==>.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External packages used by the Relation class, tha <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1597	1690	
==>linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_ <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1597	1690	
==>linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1917	2043	
==>self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_assocations }
       );
}

# sigh <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	252	352	
==>NV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	252	352	
==>NV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	173	277	
==>hem
# two kinds of things that can do subscriber:
# - Code
# - Object

# The notification process involve <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1808	1914	
==>ix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1808	1914	
==>ix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1808	1914	
==>ix:==", "N", "Number(a) == Number(b)" ],
    [ "infix:!=", "N", "Number(a) != Number(b)" ],
    [ "infix:lt <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	501	624	
==>-> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	501	624	
==>-> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21549	21669	
==>E__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	87	186	
==>nless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	87	186	
==>nless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	87	186	
==>nless keys %$self == 1;
  die unless $self->{pExpr};

  return bless { pExpr => $self->{pExpr}->fixu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1157	1304	
==>@runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1157	1304	
==>@runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1157	1304	
==>@runjs_args;
}

GetOptions(
  "js=s"          => \$PIL2JS::cfg{js},
  "run=s"         => \my $run,
  "pugs=s"        => \$PIL2JS::cfg{pugs},
  "pil2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	768	899	
==>=> \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	768	899	
==>=> \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    ' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	768	899	
==>=> \$repl,
    'w'         => \$warn,
    'timeout=i' => \$timeout,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9276	9419	
==>rt =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9276	9419	
==>rt =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    su <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9276	9419	
==>rt =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; return if $count < 0; $item },
        cend =>    su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13301	13409	
==>ss::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13301	13409	
==>ss::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13301	13409	
==>ss::ALL_CLASSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4052	4215	
==>@_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $pass <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30888	30986	
==>lag stack, and returns an object.

Finally, if you want to add a new POSIX character class, its han <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22519	22685	
==>new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42308	42473	
==>new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$sel <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33608	33710	
==>amily: alnum

Types: alnum (C<\w>), nalnum (C<\W>)

Neg: 1 if negated

=head2 space

Family: space

Typ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1317	1412	
==>er listening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1317	1412	
==>er listening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time a <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15001	15090	
==>rogrammatic interface (API), called
the Rosetta Native Interface (RNI), which applications <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15001	15090	
==>rogrammatic interface (API), called
the Rosetta Native Interface (RNI), which applications <==
3	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1131	1216	
==>r::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	144	234	
==>it_header remove_header remove_content_headers header_field_names scan
    date expires if_ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	144	234	
==>it_header remove_header remove_content_headers header_field_names scan
    date expires if_ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2341	2430	
==>yaml harness: $!";
system($^X, qw(-w ./util/testgraph.pl --inlinecss tests.yml), $html_loc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	490	613	
==>gs);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	490	613	
==>gs);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	490	613	
==>gs);
#   };
# }
method assuming(Code $self: *@args) {
  return sub (*@new_args) {
    $self(*@args, *@new_args);
  };
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	3076	3170	
==>ipt and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	3076	3170	
==>ipt and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	3076	3170	
==>ipt and runs it.
Usage: $0 [options] regular_pugs_options

Available options are:
  --js=/path/ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1912	2045	
==>',
        assoc => 'left',
        precedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        n <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16521	16614	
==>onality;
this language, which satisfies TTM's definition of a "D" language, is
described fully <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16521	16614	
==>onality;
this language, which satisfies TTM's definition of a "D" language, is
described fully <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10978	11095	
==>f)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10978	11095	
==>f)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10978	11095	
==>f)");
    } else {
        my $params = [map{Perl6::Param->new(map{@$_}@$_)} @names6arg];
        my $subdef = eval($s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4544	4648	
==>HS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4544	4648	
==>HS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4544	4648	
==>HS'}->expand().')';
}
package PStmt; @ISA = qw(EvalX::BaseClass); sub expand {
    #$_[0]->SUPER::expand( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3853	3967	
==>"reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 ent <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3853	3967	
==>"reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 ent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7211	7306	
==>_test_on_object',
  '... still got the right return value from first Object singleton/class meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8206	8301	
==>_test_on_object',
  '... still got the right return value from first Object singleton/class meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10775	10870	
==>_test_on_object',
  '... still got the right return value from first Object singleton/class meth <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3380	3525	
==>_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextTok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3380	3525	
==>_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextTok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3380	3525	
==>_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($self, $i, $class) = @_;
    my @supers;
    do {
        $i->nextTok <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5872	5975	
==>est $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builde <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5872	5975	
==>est $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builde <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7396	7499	
==>est $test )>

Records a test.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builde <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1919	2063	
==>=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'heade <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1919	2063	
==>=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'heade <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5484	5581	
==>ain_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5484	5581	
==>ain_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5484	5581	
==>ain_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad['\$_'] <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11425	11522	
==>)`

Returns only the elements in this recurrence that are also in the given recurrence.

- `differ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11425	11522	
==>)`

Returns only the elements in this recurrence that are also in the given recurrence.

- `differ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2852	2998	
==>if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].i <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2852	2998	
==>if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9571	9692	
==>r i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9571	9692	
==>r i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9571	9692	
==>r i = 0; i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7542	7674	
==>f = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7542	7674	
==>f = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7542	7674	
==>f = $end - $start + 1 - $elems;
                # warn "Missing $diff elements";
                $result->push( Perl6::Value::List->f <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9002	9132	
==>ar', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quanti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8998	9128	
==>ar', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quanti <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1703	1821	
==>d .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1703	1821	
==>d .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1703	1821	
==>d .STORE to hash.entries[key].
      var ret = new PIL2JS.Box.Proxy(
        function () {
          var ret = hash.get <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	997	1119	
==>age object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    h <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	997	1119	
==>age object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    h <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7121	7223	
==>n\treturn $main;\n}";
	push @{ $self->{defs} }, "int main () { b_main(); return 0; }";

	join("\n\n", B <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2817	2929	
==>$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1757	1868	
==>ack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1757	1868	
==>ack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1022	1165	
==>se (; *@values) returns List|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2686	2797	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_A <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2686	2797	
==>LASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40370	40484	
==>lue->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40370	40484	
==>lue->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40370	40484	
==>lue->unboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	954	1065	
==>join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - em <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	954	1065	
==>join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - em <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2267	2363	
==>ew("Class");

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system.

Th <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	847	975	
==>turn $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	847	975	
==>turn $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $po <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1804	1927	
==>'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ':',
        assoc => 'left',
        precedence => 'equal', <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2218	2349	
==>ass',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_inst <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2423	2554	
==>ass',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_inst <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16804	16892	
==>,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2137	2239	
==>ne
3rd line
4th line
GROK

my $file12 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8579	8710	
==>();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8579	8710	
==>();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8579	8710	
==>();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check for i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2518	2635	
==>(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2518	2635	
==>(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2518	2635	
==>(
    function (arguments) {
        if (!Perl5) throw "Perl5 required.";
        var system = Perl5.perl_eval("sub {s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4313	4419	
==>em B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4313	4419	
==>em B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4313	4419	
==>em B<rebless>

    Class::Rebless->rebless($myobj, "New::Namespace");

Finds all blessed objects refered to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	7	113	
==>e Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	7	113	
==>e Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	7	113	
==>e Perl6::MetaModel::Parser::Env;

use strict;
use warnings;

our $VERSION = '0.01';

sub new {
    my $clas <==
3	/Users/nnunley/pugs/util/drift.pl	1434	1539	
==>../../}; # Hack to fix includes (It's stupid!)
    print OUT $_;
}
print OUT @scary_header;
my $module;
wh <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14160	14253	
==>:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  meth <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14160	14253	
==>:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  meth <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	364	459	
==>ce_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	422	517	
==>ce_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1614	1721	
==>", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1614	1721	
==>", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1614	1721	
==>", "Number(a)  < Number(b)" ],
    [ "infix:>",  "N", "Number(a)  > Number(b)" ],
    [ "infix:<=", "N", "Nu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3735	3873	
==>osetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3735	3873	
==>osetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3113	3207	
==>current_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3113	3207	
==>current_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3113	3207	
==>current_class = $self->env->get('current_class')) {
        unless (@{$current_class->superclas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14233	14340	
==>";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14233	14340	
==>";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14233	14340	
==>";
    return 'undef' unless defined $s;
    no warnings 'numeric';
    $s = Perl6::Value::Num::to_str( $s ) <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	612	715	
==>re a new class.

A class is a role with the enhancement that is it I<typable>.

This means;

=over

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6474	6568	
==>Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6474	6568	
==>Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span. <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8378	8646	
==>'$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->new <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2166	2275	
==>le_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $s <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2166	2275	
==>le_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	705	827	
==>:Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	705	827	
==>:Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	705	827	
==>:Bin, @_) }

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @ARGV;

    # Ignore -B JS and -BJS
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3440	3545	
==>ilehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3440	3545	
==>ilehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on de <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3440	3545	
==>ilehandles are GLOBs, but they don't have ARRAY slots!
        # Be paranoid, then, and recurse only on de <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13224	13320	
==>l allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named par <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13282	13378	
==>l allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named par <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1852	1959	
==>JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1852	1959	
==>JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1852	1959	
==>JS.js not loaded; aborting.");
  alert(error);
  throw(error);
}
EOF

  my $js = join "\n",
    $load_check, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8418	8557	
==>value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$orig) {
    # Force a hash recompute if this <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	824	944	
==>sertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

met <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	824	944	
==>sertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2574	2685	
==>= $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2574	2685	
==>= $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2574	2685	
==>= $?SELF.meta.dispatcher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1872	2024	
==>ft @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2119	2271	
==>ft @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                ru <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	499	637	
==>more elegant, and not blow it away every go
{   system( qw[rm -rf], $config->root )                         and die $?;
    
    ### XXX mi <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2393	2517	
==>( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2393	2517	
==>( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1766	1883	
==>t ne $exp) {
      warn "Expected:\n"; print STDERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oops, you <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	783	901	
==>> (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	783	901	
==>> (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	783	901	
==>> (bless [ map { $_->fixup } @$self ] => "PIL::Params"),
      "p${prefix}Body"   => $subbody->fixup,
    );
  }

  sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	427	543	
==>/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	427	543	
==>/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	427	543	
==>/_/__/g;
    $jsclass =~ s/::/_/g;

    $ct->bind_class
	( name => $jsclass,
	  constructor => sub {},
	  flags => JS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1474	1589	
==>ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1474	1589	
==>ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Need <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1474	1589	
==>ABSOLUTELY EVIL BLOODY HACK
  # XXX ABSOLUTELY EVIL BLOODY HACK
  # XXX SOURCE FILTER
  # XXX SOURCE FILTER
  # Need <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34329	34435	
==>he complement of
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38879	38985	
==>he complement of
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38358	38464	
==>he complement of
C<semijoin> with the same argument.  This method has aliases named
C<semiminus> and C<not_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3751	3981	
==>q 'params'  ) {
                my $type = pop @t;
                @t = ($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #wa <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	300	401	
==>28);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	300	401	
==>28);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3394	3504	
==>alar ) {
multi Array::shift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593.
# body from P <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3142	3238	
==>mar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:a <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3335	3431	
==>mar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6752	6866	
==>ls of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=ba <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6752	6866	
==>ls of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=ba <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8949	9063	
==>ls of TAP output for Skip tests.

=item B<status returns Hash>

This sets the C<skip> key to true in the hash.

=ba <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5558	5687	
==>lete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "conca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5558	5687	
==>lete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "conca <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4854	4948	
==>.
p5_range_bounds_RHS(Min ,Min) --> {true}.

%# XXX - spaces permitted around **
p6_range(W, Z) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13277	13382	
==>adlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13277	13382	
==>adlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13277	13382	
==>adlink ($xx) {...};
MULTI SUB sleep ($xx) { sleep ( p6_to_n($xx) ) };
MULTI SUB mkdir ($xx) { mkdir(p6_to_ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	8009	8139	
==>($leader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Str <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9214	9306	
==>C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Ret <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9214	9306	
==>C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Ret <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10030	10128	
==>fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $se <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10030	10128	
==>fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1183	1298	
==>> $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1183	1298	
==>> $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	325	455	
==>ad1 See also

S02

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->a <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1968	2076	
==>h));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1968	2076	
==>h));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17794	17968	
==>instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17794	17968	
==>instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17794	17968	
==>instance') ? 
                    $self->get_method($1, for => 'instance') 
                    :
                    # check for class method
                    $self->class <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6034	6135	
==><UnicodeEscapeSequence>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStart>
    | <UnicodeCombi <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9893	9989	
==>utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a wo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9951	10047	
==>utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a wo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1024	1135	
==>prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1024	1135	
==>prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1024	1135	
==>prim($what,$name,$argl,$f);
};

sub smart_match {
    my($a,$b)=@_;
    my $ret = attempt_rx_match($a,$b);
    r <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	9591	9737	
==>onus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        += <==
3	/Users/nnunley/pugs/util/version_h.pl	1397	1524	
==>epot; # convert /svk/trunk to //svk/trunk
            if (my @info = qx/svk info $source_depot/ and $? == 0) {
                i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2086	2184	
==>duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->c <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3908	4111	
==>LABLE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local variables:
# c <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49323	49478	
==>e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:version'), $e->get('?$version'));
                  }));
                $e->get <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4651	4786	
==>sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4639	4774	
==>sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2684	2798	
==>on $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2684	2798	
==>on $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2684	2798	
==>on $_[0] with @_" unless defined $cell->{v};
        return $cell->{v}->store( @_ );
    }
    $_[0]{v} = $_[1]
}
s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4274	4400	
==>ndent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4274	4400	
==>ndent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4274	4400	
==>ndent->($contents)]}
      //]]>
    </script>
EOF
      }
    }

    $html .= <<EOF;
  </body>
</html>
EOF
    unslurp $output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6663	6782	
==>g) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6663	6782	
==>g) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6663	6782	
==>g) if $type eq 'Ref';
    if ($type eq 'Sub') {
        my($name,$argl,$f)=@arg;
        my @args = map{s/\s+/ /; s/\A\s <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	696	799	
==>th, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	696	799	
==>th, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1396	1555	
==>$0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1396	1555	
==>$0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10538	10625	
==>os(horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1778	1876	
==>_);
	warn "compiled: $compiled";
	my $safe = $self->annotate($compiled);

	$self->emit($safe);
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9423	9525	
==>an => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9423	9525	
==>an => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11795	11894	
==>ritten with a flag
  value, so a regexp* thus created can be recognized, and regexp*s
  created with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5325	5441	
==>a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5325	5441	
==>a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.B <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5325	5441	
==>a_3fSUBNAME = new PIL2JS.Box.Constant('<anon>');\n"
      : "";
    $vars .= "_24main_3a_3a_3fPOSITION = new PIL2JS.B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2632	2751	
==>>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $prog <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1244	1363	
==>>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $prog <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1945	2064	
==>>' );
    my $regex = get_str( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $prog <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3699	3857	
==>il   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we wa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4163	4321	
==>il   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we wa <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11603	11694	
==>a Num, C<E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, Co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4991	5110	
==>self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $sel <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4991	5110	
==>self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $sel <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5739	5854	
==>r( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3075	3190	
==>r( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3924	4039	
==>r( $_[0], '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1452	1576	
==>self and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1452	1576	
==>self and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1452	1576	
==>self and see if we had the spot, and
            # otherwise ignore it ... but this will do
            if $self->class->find <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3481	3584	
==>g

You should be able to do both lexically and dynamically scoped
overriding.  You currently can't do le <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16442	16559	
==>t( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16442	16559	
==>t( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16442	16559	
==>t( to_num( $_[0] ) ) }

sub decrement {
    return '' if $_[0] eq '' || $_[0] eq 'a' || $_[0] eq '0';
    my ($s,$c) = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19891	19996	
==>rds.

If you want something similar but that is more mutable, you can accomplish
that manually using a set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24443	24548	
==>rds.

If you want something similar but that is more mutable, you can accomplish
that manually using a set <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22995	23100	
==>rds.

If you want something similar but that is more mutable, you can accomplish
that manually using a set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3143	3276	
==>ses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3143	3276	
==>ses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3143	3276	
==>ses([ $self->class ]);            
        }
        ::opaque_instance_change_class($self, $eigenclass);        
        #warn "class: <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10255	10341	
==>defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"und <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10990	11076	
==>defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"und <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	57	193	
==>r_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($val <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	57	193	
==>r_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($val <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10472	10591	
==>S->object(quant => 0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3730	3828	
==>$_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3730	3828	
==>$_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	767	862	
==>$_cmd or $_cmd = MM->maybe_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25620	25714	
==>as the invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30172	30266	
==>as the invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1412	1494	
==>>|<external_scalar_alias>|<external_array_alias>|<external_hash_alias> }
rule named <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12945	13068	
==>{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handl <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12945	13068	
==>{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4492	4605	
==>ceCharacter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <NumericLi <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4878	4997	
==>or;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, newfrom( $matchObj, $whitespacePosition <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4082	4176	
==>OP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4082	4176	
==>OP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4082	4176	
==>OP5   statement_control:<while> ($xx0,$xx1) {
    "do{ while (p6_to_b(p6_apply($xx0))) { ".p6_l <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9760	9856	
==>returns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns Arra <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9760	9856	
==>returns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns Arra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2111	2285	
==>etch };
            },
            hash_deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetch->{$idx} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1521	1630	
==>sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1521	1630	
==>sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3702	3850	
==>TO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3702	3850	
==>TO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and M <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3702	3850	
==>TO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
}

# Hash autovification
# Needs PIL2 and M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7865	7969	
==>apture then entire match. For example:

  

  # returns a Match object that has the 'capture' field set t <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7599	7701	
==>apture then entire match. For example:
  
  # returns a Match object that has the 'capture' field set t <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	314	425	
==>ubmethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $sam <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	314	425	
==>ubmethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $sam <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10168	10260	
==>ace$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1] ruleop::negate( \\&{'$namespac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2773	2867	
==>rnals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2773	2867	
==>rnals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2773	2867	
==>rnals::This::Is::A::Truly::Horrible::Hack::sort(%self: Code $cmp = &infix:<cmp>) { sort $cmp, % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8114	8359	
==>$key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8114	8359	
==>$key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8114	8359	
==>$key - $v\n";
                    my $s = Scalar->new;
                    $s->store( $v );
                    $tmp->store( $key, $s );
                    return $s;
                }
                return $v;
            },
            'store <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9506	9602	
==>DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
}
rule Characte <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3460	3549	
==>:Rule> module must be properly installed.

An improperly installed C<Pugs::Compiler::Rule> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4103	4217	
==>} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $req <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4103	4217	
==>} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $req <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4103	4217	
==>} unless defined $default;

        my $optional = $name =~ s/^.?\?//;
        $required = defined $required ? $req <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2595	2713	
==>\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res)," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2595	2713	
==>\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res)," <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2595	2713	
==>\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_)} @res)," <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	138	245	
==>odule::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file {
    my ($self, % <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6085	6180	
==>mplate-haskell -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin3 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3417	3527	
==>};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3417	3527	
==>};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3417	3527	
==>};
# MULTI SUB Array::fetch ($a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	2278	2473	
==>eading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	5755	5950	
==>eading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	4685	4880	
==>eading' => $!heading,
        'body'    => $!body,
    };
}

###########################################################################

method is_mutable () returns Bool {
    return $!is_mutabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11629	11722	
==>INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11629	11722	
==>INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11629	11722	
==>INC (".join(" ",@incdirs).")";
}
MULTI SUB Pugs::Internals::eval ($xx) {PIL::Run::EvalX::p6_ev <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	515	667	
==>Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	515	667	
==>Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line <==
3	/Users/nnunley/pugs/util/package-osx.pl	9508	9637	
==>ir/.svn") {
        print `rm -rf $dir/.svn`;
        print "Removed $dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) { <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18257	18352	
==>urces, such as a repository file
on disk, it is expected that the Engines will employ appropriat <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18257	18352	
==>urces, such as a repository file
on disk, it is expected that the Engines will employ appropriat <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	38884	38982	
==>IGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43698	43796	
==>IGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan. <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43232	43330	
==>IGHT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1324	1463	
==>ial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1324	1463	
==>ial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1324	1463	
==>ial_entrypoint");
      } else {
        $default->();
      }
    } else {
      $default->();
    }
  } else {
    $cc = PIL::Cont->new(ar <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13970	14112	
==>uto => 1, package => $inst_pkg->package } 
                ) or return;

    ### dump out alternatives again
    ### XXX pretty method?
    $se <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13099	13216	
==>pan size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13099	13216	
==>pan size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5333	5432	
==>say|warn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { return { _print_with_fh => <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1004	1093	
==>around\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1004	1093	
==>around\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL:: <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	128	255	
==>ub($_, '$x', '$y') }
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:< <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	12307	12433	
==>$results{seen}) {
                if (@{$test{failed}} and $test{max}) {
                    my ($txt, $canon) = _canonfailed($ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2072	2167	
==>st::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_o <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2130	2225	
==>st::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	1492	1582	
==>te('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	1492	1582	
==>te('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	1492	1582	
==>te('%:attributes' => ::make_attribute('%:attributes'));

## methods

$::Role->add_method('a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3349	3512	
==>y $test ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12164	12307	
==>e_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each here <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12164	12307	
==>e_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each here <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20266	20361	
==>e.  No
recompilation necessary.  This is something that end users could do,
although program pac <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20266	20361	
==>e.  No
recompilation necessary.  This is something that end users could do,
although program pac <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12786	12894	
==>mplate->param("tests", $output);
  my $tres = $test_results->{results};
  my $data = { 
        file   => $fi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5902	6001	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedT <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5902	6001	
==>ny %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1211	1318	
==>work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1211	1318	
==>work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1211	1318	
==>work with --link!"  if $yaml_dump and $link;
usage "Invalid argument for --link!"           if $link and not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12121	12213	
==>:SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12121	12213	
==>:SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12121	12213	
==>:SELF->MRO();
    return $::SELF->_make_dispatcher_iterator(reverse @MRO);
}));

$::Class->ad <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6637	6736	
==>pe';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'i <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6637	6736	
==>pe';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'i <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2489	2609	
==>ut the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif ( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2489	2609	
==>ut the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif ( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1030	1122	
==>server \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-clie <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6368	6471	
==>$type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6368	6471	
==>$type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unbox <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6368	6471	
==>$type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$.unbox <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3162	3264	
==>esInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchO <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11921	12020	
==>' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is righ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11921	12020	
==>' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is righ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18212	18331	
==>c pad
    .local string token
    token = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20776	20883	
==>xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20776	20883	
==>xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20776	20883	
==>xx1) {...};
MULTI SUB infix:<.[]> ($xx0,$xx1) {...};
MULTI SUB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10878	10986	
==>e interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] constant( '" . $v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1468	1578	
==>method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1468	1578	
==>method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1468	1578	
==>method(obj, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10722	10857	
==>l6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10722	10857	
==>l6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10722	10857	
==>l6::Value::p6v_isa( _('$.referred'), 'Hash' );
                ::next_METHOD();
            },
            'does' => sub { ::next_METHOD <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	883	987	
==>--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X" -x -S "%0" % <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13544	13639	
==>art => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holida <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13544	13639	
==>art => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holida <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12539	12649	
==>0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12539	12649	
==>0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12539	12649	
==>0 : Carp::croak("Undefined variable $_[0]") ';
    $code .= "}\n";
    #print $code;
    eval($code); die if $@ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28631	28725	
==>rapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33183	33277	
==>rapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't be <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32311	32405	
==>rapped.  This method will
fail if any C<$mapping> keys duplicate attribute names that aren't be <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5793	5914	
==>t && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5793	5914	
==>t && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16525	16641	
==>{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3999	4105	
==>-> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3999	4105	
==>-> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arit <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3999	4105	
==>-> $name, $arity, $type, $body {
  my $undef  = $type eq "S" ?? '""' !! 0;
  my $jsbody = "function ({$arit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4262	4372	
==>{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    cro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4262	4372	
==>{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    cro <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4852	4962	
==>{$param->name};
	my $current = shift @$pos_arg;
	unless ($current) {
	    last if $param->is_optional;
	    cro <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27902	28004	
==>rivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32454	32556	
==>rivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31546	31648	
==>rivial case, if C<$attrs> is empty, the output relation is
identical to the invocant.  This method will <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14166	14376	
==>$method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14166	14376	
==>$method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14166	14376	
==>$method;
        return $method->($::ARGS->[2], @{$::ARGS->[3]});         
    }

}

###############################################################################
## Perl 5 magic sugar down here ...

{ ## Perl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1015	1130	
==>d copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1015	1130	
==>d copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1015	1130	
==>d copy of Test.pm lying around and
  # that we'll link it in; thus we've to sourcefilter $src.
  # If we did not s/^ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	423	523	
==>ectly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	423	523	
==>ectly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	423	523	
==>ectly
# inlined (with no escaping) into the resulting JavaScript code.

# new PIL2JS.Box(...) boxes a <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14322	14439	
==>ds and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (N <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14322	14439	
==>ds and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (N <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8678	8785	
==>ecurse($v0);
    $s = "\"$v0\"" if $n eq 'VStr' && $s !~ /\A\"/;
    "bless([$s] , \"$n\")";
}
sub PIL::PIL1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3599	3715	
==>ements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3599	3715	
==>ements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i-> <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3599	3715	
==>ements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
    if ( p6_isa($i,'Array') ) {
        # warn "SLICE: ".$i-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2411	2633	
==>> $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14277	14377	
==>a continuous span, because the "separation" 
between values would be very close to zero:

    $iterat <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14277	14377	
==>a continuous span, because the "separation" 
between values would be very close to zero:

    $iterat <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4139	4256	
==>n";
  #$tmpl->output(print_to => *STDOUT);

  my $category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21494	21588	
==>trange to somebody who has not tried to port between
databases before, especially given that th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21494	21588	
==>trange to somebody who has not tried to port between
databases before, especially given that th <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1592	1722	
==>l  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1527	1653	
==>l  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	276	397	
==>y $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	276	397	
==>y $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	276	397	
==>y $self = shift;
    unshift @{$self->{_stack}} => {};
}

sub leave_scope {
    my $self = shift;        
    shift @{$sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11577	11681	
==>n p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11577	11681	
==>n p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11577	11681	
==>n p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # test for definedness - undef.bit()
    if(!ref($f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	9375	9610	
==>);
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	9375	9610	
==>);
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	9375	9610	
==>);
                        }
                        return $self;
                    }
                    if ( Perl6::Value::p6v_isa( $param[0], 'Pair' ) ) {
                        $self->clear;
                        my $pair = $p <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14862	14959	
==>data structures are implemented, we will need an easy way
to test them. So we will implement the T <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14920	15017	
==>data structures are implemented, we will need an easy way
to test them. So we will implement the T <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	3238	3374	
==>asgow-exts #-}

{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module is generated by util/PugsConfig.pm.
-}

{-|
    Pugs Syste <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35850	35943	
==>nvocant relation into a new Relation, such that all common attribute names
and corresponding c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40400	40493	
==>nvocant relation into a new Relation, such that all common attribute names
and corresponding c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14387	14539	
==>her magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14387	14539	
==>her magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14387	14539	
==>her magic
    package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->[0] },       
        '""' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4867	4995	
==>->{tail};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $ast->{p <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	904	1005	
==>m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*si <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	904	1005	
==>m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*si <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5546	5661	
==>$.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5546	5661	
==>$.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	772	870	
==>ompiler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../Pugs-Compiler-Preceden <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1226	1317	
==>ine

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=hea <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1226	1317	
==>ine

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=hea <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2810	2908	
==>.

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the req <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2810	2908	
==>.

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the req <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	183	306	
==>[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	183	306	
==>[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	183	306	
==>[2].toNative()),
        b    = Number(args[3].toNative()),
        cc   = args.pop();
    if(str.FETCH().referencee && str. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	4803	4924	
==>to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	4803	4924	
==>to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the res <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	4803	4924	
==>to/Perl6.MetaModel/lib/

  --output=...      Output to the given filename.
                    Use "-" if you want the res <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17166	17257	
==>ink ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17166	17257	
==>ink ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17166	17257	
==>ink ($xx0,$xx1) {...};
MULTI SUB infix:<*> ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) * p6_to_n($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1841	1946	
==>uote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1841	1946	
==>uote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1841	1946	
==>uote $PIL::CUR_SUBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6854	6957	
==>,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6854	6957	
==>,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13881	13975	
==>gits([D|T]) --> octdigit(D), octdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { m <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1007	1104	
==>and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a r <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1007	1104	
==>and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	659	754	
==>d

=head1 NAME

Blondie::Runtime - Base class for execution system (compiler + interpreter or eq <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4458	4572	
==>&{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4458	4572	
==>&{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: <==
3	/Users/nnunley/pugs/util/testgraph.pl	1006	1114	
==>Options:

   --inlinecss, -e      inline css in HTML header (for broken webservers)
   --cssfile,  -c FILE  l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	589	700	
==>put} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	589	700	
==>put} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	589	700	
==>put} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_args);
{
  while(@ARGV) {
    my $arg = shift @A <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9238	9371	
==>ength $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( [
            constant( $_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36999	37115	
==>ontext"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36999	37115	
==>ontext"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36999	37115	
==>ontext"
    #    unless defined $pos;  
    return if $pos >= $array->elems;

    my $ret = $array->splice( $pos, 1 ) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2001	2249	
==>ta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2001	2249	
==>ta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5678	5860	
==>( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replaceme <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9155	9337	
==>( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replaceme <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6555	6657	
==>chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1") if ${& <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5542	5648	
==>things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5542	5648	
==>things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5542	5648	
==>things, $sub) = @_; 
  no warnings "recursion";

  possibly_ccify_many_step($things, 0, $sub);
}

sub possi <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11525	11726	
==>rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_fie <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11525	11726	
==>rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_fie <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3692	3805	
==>rn 'str' if !((~$x & $x) eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref = <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1175	1327	
==>e fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1175	1327	
==>e fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13835	13933	
==><'['> <Expression> <']'>
    | <CallExpression> <'.'> <Identifier>
}
rule Arguments :words {  # see <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1993	2115	
==>$type,
				struct_equiv => $val,
			),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = shift;

	my $from = shift;
	m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22137	22230	
==>lass, instead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier unexpected" warning ra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6931	7073	
==>ntiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6931	7073	
==>ntiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6931	7073	
==>ntiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = shift;
    my %param = @_;
    my $start = $param{st <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6662	6801	
==>$grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6662	6801	
==>$grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18856	18953	
==>og_code {
    my($code)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24541	24676	
==>r Expressions

rule Pattern {  # see 15.10.1
      <Disjunction>
}
rule Disjunction {  # see 15.10.1
      <Alternative>
    | <Alternat <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3104	3202	
==>union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub * <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3104	3202	
==>union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub * <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2152	2251	
==>TAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2152	2251	
==>TAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_pe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2152	2251	
==>TAMODEL", jsprelude_path(), $cfg{preludepc}, $cfg{testpc}, \$mini);

  return $js;
}

sub compile_pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	3386	3568	
==>eturn Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	3386	3568	
==>eturn Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	3386	3568	
==>eturn Bit->new( '$.unboxed' => 1 );
                }
                die "Unknown Junction $type";
            },
            'perl' => sub {
                Str->new( '$.unboxed' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6663	6758	
==>ontributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This progra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6663	6758	
==>ontributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This progra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6663	6758	
==>ontributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This progra <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15741	15836	
==>orted to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15741	15836	
==>orted to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12470	12628	
==>odo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $lines->{$.}) {
        $class = $test_clas <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16025	16117	
==>:Model::Node object, that
lives in the Document object given in the named parameter $document <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16025	16117	
==>:Model::Node object, that
lives in the Document object given in the named parameter $document <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	262	366	
==>_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTA <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	262	366	
==>_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTA <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3995	4192	
==>lems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            } <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3995	4192	
==>lems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            } <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	838	964	
==>$chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $chr eq "\\") {
	    print "\\textbackslash{}";
	    return;
	} e <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4873	4987	
==>= shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$self,
		param => $self->{para <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10423	10512	
==>class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.fini <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10423	10512	
==>class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.fini <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	506	627	
==>ce to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	506	627	
==>ce to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	506	627	
==>ce to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        (defi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28982	29096	
==>,
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28982	29096	
==>,
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28982	29096	
==>,
        },
    }
};

# ----- unboxed functions

package Perl6::Container::Array;

use strict;
use Perl6::Value;
u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12094	12184	
==>o a list of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12094	12184	
==>o a list of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2746	2853	
==>~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_cas <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2746	2853	
==>~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_cas <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1805	1889	
==>nt', PugsBuild::Config->lookup('smoke_concurrent') || 1);
push(@yaml_harness_args,'-- <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2061	2177	
==>ata;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2061	2177	
==>ata;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7663	7848	
==>nd( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7663	7848	
==>nd( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->f <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7663	7848	
==>nd( $self->fetch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->f <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7493	7580	
==>_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim") and <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10637	10811	
==>uous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reve <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10637	10811	
==>uous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reve <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10637	10811	
==>uous => sub { 0 },
    );
}

# --- list operations ---

sub reverse { 
    my $ret = shift;
    Perl6::Value::List->new( 
        clone => sub { 
            $ret->clone->reve <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	2120	2216	
==>my $tree = $dag->splat(\@free); # Attribute grammars can't eat DAGs, so we have to recursively ma <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4376	4467	
==>he values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
whil <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4376	4467	
==>he values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
whil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3359	3549	
==>gs{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3499	3689	
==>gs{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	396	500	
==>{ 1 }

sub generic_reduce {
	my $self = shift;
	my $node = shift;
	die "generic reductions don't make sen <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11106	11251	
==>thod next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11106	11251	
==>thod next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5910	6021	
==>ject(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_han <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6117	6213	
==>ource =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6117	6213	
==>ource =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6117	6213	
==>ource =~ s/(\@[.:]\w+)/\@\{\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\}/g;
    
    # hash fo <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14786	14887	
==>ession :words {  # see 11.5
      <UnaryExpression>
    | <MultiplicativeExpression> <'*'> <UnaryExpre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2872	3004	
==>(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3077	3209	
==>(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2246	2346	
==>s num>

=item B<to_str () returns str>

=item B<add (x as num) returns num>

=item B<subtract (x as n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4196	4318	
==>fined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4196	4318	
==>fined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $sl <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4196	4318	
==>fined $required ? $required : ! $optional;

        my $slurp = $name =~ s/^.?\*//;
        $slurpy = defined $slurpy ? $sl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16928	17048	
==>nshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all i <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16928	17048	
==>nshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all i <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6795	6893	
==>ndent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::Backend::C: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	360	467	
==>).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	360	467	
==>).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	360	467	
==>).FETCH()
    ?
@{[ PIL::add_indent 3, $true ]}
    :
@{[ PIL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9566	9720	
==>+ raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9566	9720	
==>+ raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9566	9720	
==>+ raw arguments
                # warn "RETURN $ret\n";
                # @ret is a boxed Array
                warn "Return type does not match - should r <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1482	1742	
==>rns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding ut <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1482	1742	
==>rns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding ut <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26432	26537	
==>:pair->new( $a, $b )),
		),
	);
	is($type->stringify, "∀α. ∀β. list α → list β → list (α ×  <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47848	48102	
==>->new('$value' => 'type'),                               
                          ),
                returns => 'nil'
            ),            
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23006	23094	
==>nnel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$chan <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23006	23094	
==>nnel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$chan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8220	8363	
==>>unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8220	8363	
==>>unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->u <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8220	8363	
==>>unboxed;
    my $a;
    if ( @x1 == 1 && ref( $x1[0] ) eq 'Array' ) {
        $a = $x1[0];
        # warn ref( $a );
        # warn $a->perl->u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4674	4779	
==>->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4674	4779	
==>->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_H <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4674	4779	
==>->{pilGlob}) eq "ARRAY";
  local $_;

  die "PIL::as_js is not reentrant, sorry...\n"
    if $PROCESSING_H <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1085	1183	
==>return $self;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg->me <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1076	1167	
==>piler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1076	1167	
==>piler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14473	14602	
==>y here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14473	14602	
==>y here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14473	14602	
==>y here
        # so as to avoid the method call, this
        # is needed to avoid meta-circularity issues

        # gather all t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	340	454	
==>umper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p= <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	372	486	
==>umper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p= <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2547	2690	
==>xt::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, de <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2547	2690	
==>xt::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, de <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25859	25956	
==>);
	is($type->stringify, "∀α. list α", "pretty print list a");
}
{
	my $a = type::variable::fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13679	13844	
==>->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13679	13844	
==>->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13679	13844	
==>->sum for @lists;
            return $sum;
        },
        clone => sub {
            my $self = shift;
            my ( $l, @ls ) = map { $_->clone } ( $ret, @lis <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1060	1177	
==>ft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# si <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1781	1894	
==>ler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1781	1894	
==>ler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	850	967	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	850	967	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	850	967	
==>in_3a_3aprefix_3a_7e.FETCH(),
          [ PIL2JS.Context.ItemAny, n ]
        ).toNative());

        str.STORE(new PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10170	10311	
==>mes6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10170	10311	
==>mes6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10170	10311	
==>mes6param)
                    .'};');
    }
    my $body_wrapped = $body;
    $body_wrapped = ("try {"
		     ."\n".$body_wrapped
		     ."\n <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	411	515	
==>?
    returns Date::Gregorian is export {
        #$tz = tz($tz) if $tz.defined and !$tz.isa("Time::Zone" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2456	2559	
==>r(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\')) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2456	2559	
==>r(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\')) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2456	2559	
==>r(a)  / Number(b)" ],
    [ "infix:%",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Modulo zero\\')) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2295	2390	
==>er(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2295	2390	
==>er(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2295	2390	
==>er(b)",
  "infix:«~&»",   2, "S", "$mapStr2("&", "String(a)", "String(b)")",
  "infix:«~|»", <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4219	4354	
==>$conf->meta_file )
                ) };
        $@ and error( "Could not load meta file from archive: $@" ), return;
    
        $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	595	697	
==>head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	595	697	
==>head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compil <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	663	761	
==>efaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quan <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	663	761	
==>efaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quan <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10553	10655	
==>{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10553	10655	
==>{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10553	10655	
==>{'@:MRO'}}) ? @{$_[0]->[2]->{'@:MRO'}} : @{$_[0]->[2]->{'@:superclasses'}})
            # however, we d <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1530	1640	
==>y <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns Void is export {
    say " <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	106	195	
==>.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pug <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	106	195	
==>.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pug <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21419	21518	
==>$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21419	21518	
==>$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21419	21518	
==>$xx1) { p6_from_b($xx0->isa( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1198	1302	
==>ubmethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%para <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1198	1302	
==>ubmethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%para <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	515	614	
==>keep this here for a consistent interface
sub to_num { shift }

# conversion to other native types
s <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8426	8522	
==>d from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@self; Co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	29	124	
==>use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::Test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	29	124	
==>use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::Test <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1818	1931	
==>rn $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the internal state of a strap to make it ready for pars <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	154	248	
==>e package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	154	248	
==>e package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33125	33254	
==>th) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) if $depth;
  }

The two additio <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1536	1630	
==>< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's als <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1536	1630	
==>< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's als <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2192	2288	
==>!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2192	2288	
==>!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2192	2288	
==>!.
sub JS::Root::try(Code $code) is primitive {
  JS::inline('new PIL2JS.Box.Constant(function (a <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2122	2322	
==>xy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $ol <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2122	2322	
==>xy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $ol <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	310	442	
==>r my $entry ( @List ) {

        ### find the entry to install
        next unless $entry->{package} eq $package;

        ### and in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	4515	4629	
==>} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	4515	4629	
==>} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	4515	4629	
==>} => $subclass;
});

::Class.meta.add_method('_merge' => ::make_private_method(sub {                
    my ($self, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22785	22889	
==>index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22785	22889	
==>index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0, <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22785	22889	
==>index($v0,$v1,$v2))
     : p6_from_n(index($v0,$v1)));
};
MULTI SUB rindex ($xx0,$xx1,$xx2) {
    my($v0, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Pair.pm	609	735	
==>();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Pair.pm	609	735	
==>();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Pair.pm	609	735	
==>();
    var key = args[0], value = args[1];
    var new_val_container = value.copy();

    // lvalue pair assignment, see S06 a <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9914	10036	
==>)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        re <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9914	10036	
==>)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15735	15852	
==>pfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s#/dev/null <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	469	570	
==>te in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "At <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	469	570	
==>te in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "At <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	469	570	
==>te in $::CLASS using this function';
    ($::CLASS->find_attribute_spec($attr))
        || confess "At <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2008	2134	
==>iginal_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6 <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	615	732	
==>name> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <s <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	615	732	
==>name> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9013	9115	
==>>add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9013	9115	
==>>add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9013	9115	
==>>add_method('dispatcher' => ::make_method(sub {
    my ($self, $order) = @_;   
    $order = ':ascendan <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29550	29654	
==>ethod will fail if any of the
named attributes are not tuple-valued attributes, or if any attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34102	34206	
==>ethod will fail if any of the
named attributes are not tuple-valued attributes, or if any attribute names <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33266	33370	
==>ethod will fail if any of the
named attributes are not tuple-valued attributes, or if any attribute names <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2651	2800	
==>rig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2651	2800	
==>rig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2651	2800	
==>rig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc(ret);
  })')($code);
}

sub JS:: <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11236	11343	
==>me:
    $I0 = pos
  subrule_name_1:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $S0 = s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9205	9312	
==>ocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9205	9312	
==>ocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9205	9312	
==>ocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9920	10008	
==>nter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9920	10008	
==>nter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9920	10008	
==>nter++] };
}));

$::Class->add_method('_make_preorder_dispatcher' => ::make_private_metho <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9471	9574	
==>pec.
    my %unpack = ('inf' => '100**100**100',
		  '-inf' => '-100**100**100',
		  'NaN' => '100**100* <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1005	1102	
==>nting simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags> <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1005	1102	
==>nting simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1867	2014	
==>fess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1867	2014	
==>fess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1867	2014	
==>fess "Bad instance (" . ($class || 'undef') . ")";                    
        ${$instance->{class}} = $class;
    }      
    
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2478	2584	
==>x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2478	2584	
==>x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2478	2584	
==>x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2201	2303	
==>) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do wi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2201	2303	
==>) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do wi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2201	2303	
==>) if $cls eq "ARRAY";
	return p6_from_h(@$x) if $cls eq "HASH";
	Carp::confess "Dont know what to do wi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17451	17548	
==>w we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17451	17548	
==>w we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17451	17548	
==>w we make Class conform to the Package interface

$::Class->add_method('FETCH' => ::make_method(su <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4272	4400	
==>{ok};
        $result{type} = 'todo' if $self->{todo}{$result{number}};

        if( $result{type} eq 'todo' ) {
            $tot <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	642	735	
==>:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::N <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	642	735	
==>:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12719	12819	
==>or);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12719	12819	
==>or);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12719	12819	
==>or);
package PIL::Run::ApiX::Exception::Return;
@ISA=qw(PIL::Run::ApiX::Exception);
package PIL::Run: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15010	15135	
==>}{op} eq '++' ||
         $n->{op1}{op} eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1}{op} . _emit( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1317	1436	
==>chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1317	1436	
==>chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7176	7275	
==>$token;
  push @operatorStack, $operator;
  $position = $operator->to();
  goto expect_term if ( $to <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3738	3831	
==>, and anything we
write shouldn't need to have documentation/comments. If you need something
w <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3738	3831	
==>, and anything we
write shouldn't need to have documentation/comments. If you need something
w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1249	1439	
==>::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1249	1439	
==>::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1249	1439	
==>::Value::identify( $_ );
                        #warn "ID $id";
                        $id eq $last_id ? 0 : ( $last_id = $id, 1 )
                    } @res;
                @{_('$.things' <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17188	17283	
==>ther package or application says that it uses
Locale::KeyedText, that is a terse way of saying t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17188	17283	
==>ther package or application says that it uses
Locale::KeyedText, that is a terse way of saying t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11234	11343	
==>,
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11234	11343	
==>,
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11234	11343	
==>,
         File::Spec->catdir('blib6','lib'),
         File::Spec->catdir($FindBin::Bin,'lib6'),
         File <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	527	721	
==>nd, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	2776	2885	
==>usMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $ <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2776	2885	
==>usMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	7480	7608	
==>fix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	7480	7608	
==>fix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	7480	7608	
==>fix:«[=]» (*@vars is copy) is primitive is rw {
  my $dest := pop @vars;
  $_ = $dest for @vars;
  @vars[0];
}

our &prefix:«[ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	329	456	
==>$node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------- <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	329	456	
==>$node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	218	328	
==>nfess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@va <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13622	13743	
==>mijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17099	17220	
==>mijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16461	16582	
==>mijoin.
        return $other!_semijoin( $?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3296	3559	
==>),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return u <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3168	3417	
==>),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return u <==
3	/Users/nnunley/pugs/util/version_h.pl	373	470	
==>can't use SVN keyword expansion (like $Rev$), because
# that is only updated when the file in whic <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	378	507	
==>Win32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->ca <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	218	321	
==>-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	218	321	
==>-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6178	6307	
==>lt = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6178	6307	
==>lt = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6178	6307	
==>lt = Array->new;
    my $pos = 0;
    for my $i ( @idx ) {
        # warn "unbind() loop...";
        if ( UNIVERSAL::isa( $i, 'Pe <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	15790	15905	
==>nks, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} }){
          # reverse is since we're spli <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	627	720	
==>Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.nam <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	627	720	
==>Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.nam <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	389	486	
==>/= $parser_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn( <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	311	407	
==>rMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 5 <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	311	407	
==>rMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 5 <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3280	3388	
==>$self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmpt <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	7285	7382	
==>:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7285	7382	
==>:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	653	767	
==>tal A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, r <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	653	767	
==>tal A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, r <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1422	1514	
==>o uninteresting tests.
	$expr =~ s/\$&/\".\$m.\"/g;
	$expr =~ s/\$([0-9]+)/'".$m->['.($1-1).' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14964	15113	
==>::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14964	15113	
==>::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14964	15113	
==>::Value::p6v_isa( $code, 'Code' );
                my $res = Array->new;
                $res->push( $array->map( $code ) );
                return $r <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	5677	5781	
==>\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $mes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5531	5641	
==>ocal $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5531	5641	
==>ocal $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->exp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5531	5641	
==>ocal $EvalX::PStmt::protection_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->exp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5609	5723	
==>$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5609	5723	
==>$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5609	5723	
==>$op» );
#  ";
}

sub infix:{">>+<<"} (Array @a, Array @b) {
  __hyper(&infix:<+>, @a, @b);
}

our &infix:{"»+«"} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5963	6149	
==>step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5963	6149	
==>step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5963	6149	
==>step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        start =>   sub { $start },
        end =>     sub { $end },
        cstart =>  sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PAssign.pm	481	590	
==>PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PAssign.pm	481	590	
==>PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PAssign.pm	481	590	
==>PIL::possibly_ccify $self->{pRHS}, sub {
      my $src = shift;
      sprintf "%s(%s.STORE(%s))",
      $self- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2056	2210	
==>b Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # p <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4633	4727	
==>}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $select <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4633	4727	
==>}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $select <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	670	779	
==>s, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	670	779	
==>s, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	670	779	
==>s, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, No other types other than 'P6o <==
3	/Users/nnunley/pugs/util/build_pugs.pl	2818	2933	
==>or die "open: $out: $!";
    binmode $ofh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die "gzope <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	761	863	
==>of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	761	863	
==>of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is th <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11494	11587	
==>Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compa <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11552	11645	
==>Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compa <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	28	110	
==>Scripts.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Scripts.pm"
packag <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6432	6538	
==>or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $para <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6432	6538	
==>or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $para <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	768	862	
==>::Undefined is JSX::ValuePrimitive;
class JSX::Value::Null      is JSX::ValuePrimitive;
class J <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2121	2242	
==>ERR ) {}
  
  method write ( Str $message is copy )
  {
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.output.say( $m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	126	237	
==>ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	126	237	
==>ERR ) {}

method write ( Str $message is copy )
{
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.output.say( $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3603	3735	
==>al { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3743	3875	
==>al { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7038	7159	
==>it
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boun <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7038	7159	
==>it
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boun <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	482	615	
==>/parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .meth <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	482	615	
==>/parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .meth <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	1685	1793	
==>" if $Config{verbose};

    gen_source($TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't op <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32584	32680	
==>version of the aforementioned binary union()
operator, and the order of its arguments is not sign <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37134	37230	
==>version of the aforementioned binary union()
operator, and the order of its arguments is not sign <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36442	36538	
==>version of the aforementioned binary union()
operator, and the order of its arguments is not sign <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9013	9129	
==>dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift | <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10490	10606	
==>dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift | <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	2496	2595	
==>inks {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	2496	2595	
==>inks {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	2496	2595	
==>inks {
  preludepc_check();

  my $mini = compile_perl6_to_mini_js(@_);
  die "Error: Couldn't compi <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	18348	18455	
==>als->{seen};
    my $next = $self->{'next'};
    my $max  = $totals->{max};
    my $detail = $totals->{detai <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	600	695	
==>ical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	600	695	
==>ical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4808	4909	
==>ite_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Coul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4808	4909	
==>ite_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Coul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4808	4909	
==>ite_fh $js or die "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Coul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4252	4349	
==>E >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "sma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4252	4349	
==>E >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "sma <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4252	4349	
==>E >= PIL::SUBROUTINE;
  return "blockreturncc" if $PIL::IN_SUBLIKE >= PIL::SUBBLOCK;
  return "sma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3092	3226	
==>Any,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3092	3226	
==>Any,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3092	3226	
==>Any,
        new PIL2JS.Box.Constant(undefined),
        function () { 'dummycc' }
      ]);
    });
  });
});
EOF

  if($link eq "js") <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29330	29430	
==>. If
it is called I<after> $obj has been added to the tree, $obj will be
removed from the tree.  Most <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	244	343	
==>[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1102	1201	
==>[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	385	603	
==>redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	385	603	
==>redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	385	603	
==>redo++;
                } else {
                  throw err;
                }
              }
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	805	949	
==>,
               named_only    => $param->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	787	922	
==>,
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param-> <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	787	922	
==>,
               named_only => $param->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param-> <==
3	/Users/nnunley/pugs/util/testgraph.pl	1422	1541	
==>l/;
    sub file_class { "My::File" }
    
    package My::File;
    use base qw/Test::TAP::Model::File::Visual/;
    su <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2863	2968	
==>es 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<d <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2863	2968	
==>es 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<d <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6660	6762	
==>ule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6672	6774	
==>ule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{prin <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	58	152	
==>aModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Output' => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1394	1498	
==>1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35811	35906	
==>er> argument and combines it with the
invocant relation into a new Relation, such that all commo <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40361	40456	
==>er> argument and combines it with the
invocant relation into a new Relation, such that all commo <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2385	2560	
==>$rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2696	2865	
==>$rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2696	2865	
==>$rx\n";
    return sub {
        return unless defined $_[0];
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                m <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10442	10535	
==>e section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10442	10535	
==>e section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => <==
3	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	115	203	
==>dule::Install::Scripts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VER <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13312	13416	
==>SSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13312	13416	
==>SSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13312	13416	
==>SSES{$class_name};  # ** get the class, from class name
#    return $class;
#}

$Perl6::Value::obj_id = ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38223	38340	
==>return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38223	38340	
==>return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38223	38340	
==>return $array;
    }
    # store after the end 
    my $fill = Perl6::Value::List->from_x( item => undef, count => ( $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1254	1373	
==>alue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or It <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1254	1373	
==>alue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or It <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1254	1373	
==>alue - ???
#
#        Note: paramContext is an object that contains the 'type'
#           'Context' can be Slurpy or It <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17696	17876	
==>t;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->vis <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14117	14297	
==>t;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->vis <==
3	/Users/nnunley/pugs/util/grokprims.pl	1034	1155	
==>@ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op->{args}[0];
  my $a1 <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1656	1764	
==>.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stm <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1656	1764	
==>.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stm <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	6247	6402	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	6247	6402	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	6247	6402	
==>ription => {
    is => [ $::Object ],
    class => {
        attrs => [],
        methods => {}
    },
    instance => {
        attrs => [ '$.body', '$.par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	832	957	
==>y.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	832	957	
==>y.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	832	957	
==>y.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the reference.
    var ref       = new PIL2JS.Ref(boxe <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7297	7429	
==>),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7309	7441	
==>),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dum <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	1126	1235	
==>w";
$Columns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shells have troub <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1528	1655	
==>e::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAM <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1528	1655	
==>e::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAM <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1341	1445	
==>y $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_available ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	176	293	
==>Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PIL::Run::C <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2420	2518	
==>() {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2420	2518	
==>() {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3022	3125	
==>JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3022	3125	
==>JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer t <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3022	3125	
==>JS.Context.ItemAny, $1]).toNative()/g;
      # Previously, "|| $undef" was required, This is no longer t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22589	22704	
==>" :method
    .param pmc pad
    .local string mname
    .local pmc value
    .local pmc exp
    mname = self["mname <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	873	968	
==>'[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	873	968	
==>'[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2437	2577	
==>irs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coe <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2437	2577	
==>irs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coe <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5445	5556	
==>r(Params::Check->last_error), return;

    ### build a from => to mapping
    ### note we have to create the dir <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2182	2283	
==>n( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
} <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2182	2283	
==>n( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
} <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8081	8174	
==>der, C<pairs> a C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5556	5656	
==>ction_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5556	5656	
==>ction_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $bod <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5556	5656	
==>ction_unacceptable; # block further propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $bod <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4749	4876	
==>ring_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_te <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4942	5069	
==>ring_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_te <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11822	11914	
==>pec(char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Close) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	27754	27870	
==>al tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calculation using original attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32306	32422	
==>al tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calculation using original attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31398	31514	
==>al tuple/Mapping as its sole read-only argument, returns a
value that is optionally a calculation using original attr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23639	23734	
==>s in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't si <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23639	23734	
==>s in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't si <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13592	13758	
==>final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9776	9942	
==>final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10612	10778	
==>final: ###\$perl5_final### \\n\"; \n" .
                #"    return \$perl5_final;\n" .
                "    };\n" .
                "    my \$ast = \$code->( \$match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2767	2901	
==>conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2767	2901	
==>conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2767	2901	
==>conf {
  my ($what, $new) = split /\s+/, shift;

  my %human = (
    pugs      => "pugs",
    pil2js    => "pil2js",
    preludepc => " <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	337	512	
==>p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2136	2236	
==>al things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?



I propose: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2056	2153	
==>al things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?

I propose: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29035	29131	
==>kage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29035	29131	
==>kage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29035	29131	
==>kage Perl6::Container::Array;

use strict;
use Perl6::Value;
use Perl6::Value::List;
use Carp;

u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24446	24672	
==>ram );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24446	24672	
==>ram );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24446	24672	
==>ram );
            },
            
            str => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4445	4663	
==>->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4445	4663	
==>->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4445	4663	
==>->new( 
                    name => 'Any', 
                    match => sub { 1 } ) : 
            $name =~ /^\@/ ? 
                Perl6::Type->new( 
                    name => 'Array', 
                    match => <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11512	11617	
==>_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11512	11617	
==>_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11512	11617	
==>_method('get_method_list' => method () {
    my ($self, %params) = @_;
    my $table = $self->_get_method_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	12865	12965	
==>@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	12865	12965	
==>@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	12865	12965	
==>@xxa) {...};
MULTI SUB IO::print (*@xxa) {...};
MULTI SUB IO::next ($xx) {...};
MULTI SUB Pugs::Safe: <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4815	5028	
==>n $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5 <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4815	5028	
==>n $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5135	5239	
==>.'::');
    #print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5 <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	2993	3120	
==>eturns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # X <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2993	3120	
==>eturns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # X <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	5431	5536	
==>r
# when going into an AST these are generated
# as the AST is left they are unified
# a free variable can <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	370	506	
==>byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(? <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	370	506	
==>byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(? <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5733	5822	
==>_stmt { def_statement($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token {    def_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	707	810	
==>esults }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	707	810	
==>esults }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16302	16385	
==>(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0,E0,E <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2393	2496	
==>ult = $self->{$stage};
	next if !defined $result;
	my $warn = $result->warnings();
	$ret .= $warn if def <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23694	23785	
==>asses.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implement <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23694	23785	
==>asses.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implement <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5096	5222	
==>n"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5096	5222	
==>n"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921) <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18517	18612	
==>future, but for now it officially is not and you should not share
Rosetta objects between multip <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18517	18612	
==>future, but for now it officially is not and you should not share
Rosetta objects between multip <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33154	33282	
==>stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) if $depth;
  }

The two additional arguments sent are the w <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15541	15656	
==>/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling l <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15541	15656	
==>/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2332	2526	
==>emented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2332	2526	
==>emented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2332	2526	
==>emented";
                my @ary = @{_('$.things')};
                my $type = _('$.type');
                @ary = map {
                        ref($_) ?
                        $_->bit->unbox <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3079	3183	
==>( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test mo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3079	3183	
==>( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3159	3263	
==>( 'The test failed!' );
  test_test( 'failing test with diagnostics' );

=head1 DESCRIPTION

This test mo <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	970	1064	
==>r 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_iden <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	970	1064	
==>r 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_iden <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17414	17512	
==>Str )

Performs a Unicode "titlecase" operation on the first character of the string.


=item capit <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21484	21578	
==>d2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21484	21578	
==>d2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3797	3896	
==>and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
pa <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3797	3896	
==>and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
pa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5994	6093	
==>and so the factory returns a 
Test::Builder::Test::Pass instance, passing on the C<$description> 
pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10459	10569	
==>o look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10459	10569	
==>o look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10459	10569	
==>o look through
        my @classes = ($_[0]);
        push @classes => ((scalar @{$_[0]->[2]->{'@:MRO'}}) ? @{$ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6210	6393	
==>l6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$co <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6210	6393	
==>l6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$co <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2091	2198	
==>lit '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2091	2198	
==>lit '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'* <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2091	2198	
==>lit '-' => $full_name;       
    my $new_role = _build_role($name, $version, $authority, $body);
    $::{'* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	11727	11818	
==>6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	11727	11818	
==>6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	11727	11818	
==>6_to_s($xx))};
MULTI SUB evalfile ($xx) {PIL::Run::EvalX::p6_eval_file(p6_to_s($xx))};
MULTI <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5443	5591	
==>refor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for th <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5907	6055	
==>refor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for th <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11367	11503	
==>ndef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9552	9648	
==>urn undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9552	9648	
==>urn undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9552	9648	
==>urn undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_private_me <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	903	1029	
==>ffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	903	1029	
==>ffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	345	461	
==>($tail =~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	318	424	
==>::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	318	424	
==>::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	318	424	
==>::Math.sin(+$self)  }
method cos  (Num $self = $CALLER::_:) { $JS::Math.cos(+$self)  }
method tan  (Num $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3968	4154	
==>e};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{ca <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3847	4026	
==>e};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{ca <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	700	821	
==>b { -x $_[0] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    return $_cmd <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4359	4515	
==>},
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4359	4515	
==>},
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4359	4515	
==>},
        }
    },
    instance => {
        attrs => [ '$.unboxed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { $::SELF } <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	693	784	
==>andles :add_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9012	9145	
==>ring ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9012	9145	
==>ring ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8336	8424	
==>5_modifier_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	656	755	
==>($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	656	755	
==>($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	656	755	
==>($a) }

# TODO - string versions
multi sub infix:<..^>   ($x0,$x1) { $x0..($x1.decrement) }
multi su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1983	2088	
==>f\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1983	2088	
==>f\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1983	2088	
==>f\n";
    });
}

=cut

=head1 AUTHORS

Chia-liang Kao E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyrig <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	1471	1569	
==>om t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this wil <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	1471	1569	
==>om t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this wil <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	1471	1569	
==>om t/var/autoderef.t
# TODO - constant
# TODO - move .increment, .decrement to Primitives (this wil <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5283	5380	
==>est has passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5283	5380	
==>est has passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6807	6904	
==>est has passed or failed, depending on C<$passed> with an
optional C<$description>, but marks it a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9569	9693	
==>toflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9569	9693	
==>toflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3802	3908	
==>L_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]', <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3802	3908	
==>L_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]', <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	652	758	
==>L_Stmts';
node_h 'PIL_Stmts',            'PPad', 
  'pScope' ,'Scope',
  'pSyms'  ,'[(VarName, PIL_Expr)]', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7279	7394	
==>gle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7279	7394	
==>gle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7279	7394	
==>gle($_), PIL::name_mangle($_);
    } @PIL::VARS_TO_BACKUP;
    my $bind        = $self->params->as_js_bind;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1600	1708	
==>d create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1600	1708	
==>d create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephra <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1600	1708	
==>d create a hash with .pairs[0].key being undef

# TODO - (for PIL-Run)
#        buu iblech: Er, let me rephra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24103	24239	
==>= p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Matc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24103	24239	
==>= p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Matc <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24103	24239	
==>= p6_to_s($a);
	if ($as =~ $b) {
	    my $i = 0;
	    my @cap;
	    for(my $i=1;$i < @+; $i++) {
		my $ci = $$i;
		push(@cap,
		     Matc <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18383	18476	
==>&split<Str>.assuming:delimiter(' ');

String delimiters must not be treated as rules but as co <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	414	509	
==>closure based system, similar to what is described
in here (note: same author as the first schem <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	59	173	
==>ars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	59	173	
==>ars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Nu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	59	173	
==>ars $str) is rw {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var str  = args[1],
        a    = Nu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1270	1393	
==>];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1475	1598	
==>];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1536	1659	
==>];
        return if $label eq 'DESTROY';

        my $class = ::opaque_instance_class($_[0]);

        while (defined $clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8161	8332	
==>etch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8161	8332	
==>etch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unb <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8161	8332	
==>etch for 0 .. $arg->elems->unboxed - 1;
            }
            else {
                push @val, $arg->fetch;
            }
        }
        $j->things( \@val );  # unb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1316	1414	
==>VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentranc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1316	1414	
==>VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentranc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1316	1414	
==>VARS_TO_BACKUP;
our $CORO_ID;
# XXX PIL1 hack
our @PIL1_HACK_CLASSDECLS;

# Guard against reentranc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13131	13251	
==>p to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13131	13251	
==>p to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	188	288	
==>ype::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl::Type::Junctive <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36632	36731	
==>identical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41181	41280	
==>identical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40804	40903	
==>identical to the
invocant.  Another trivial case is where any any source relation has zero
tuples, i <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	5598	5704	
==>x = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5598	5704	
==>x = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at <==
3	/Users/nnunley/pugs/util/package-osx.pl	6917	7014	
==>n3/Perl6::Perl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Differences.3pm
        / <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10975	11116	
==>2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4424	4618	
==>boxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4424	4618	
==>boxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _( <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4424	4618	
==>boxed' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->buckets :
                                Perl6::Container::Hash::buckets( _( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14449	14553	
==>tes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14449	14553	
==>tes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::mak <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14449	14553	
==>tes'       => ::make_attribute('%:attributes'));
::Class.meta.add_attribute('%:methods'          => ::mak <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14889	14985	
==>e code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fglo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14889	14985	
==>e code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fglo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14889	14985	
==>e code was refactored into it's own Class from MetaModel t/80_Code.t
by Flavio S. Glock E<lt>fglo <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4785	4896	
==>) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4785	4896	
==>) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12622	12744	
==>xed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12622	12744	
==>xed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12622	12744	
==>xed' => _('$.unboxed')->perl ) },
            'ref' =>  sub { $::CLASS }, 

            'shift' => sub { _('$.unboxed')->sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21907	22173	
==>>unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21907	22173	
==>>unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCH <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21907	22173	
==>>unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    return $self;
                }

                if ( $method eq 'fetch' ) {
                    # warn "FETCH <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1040	1149	
==>) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1040	1149	
==>) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is pri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1040	1149	
==>) . "/", # hack?
);

sub diag($) { warn "# $_[0]\n" if $cfg{verbose} }

# bin/js's only output function is pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4800	4961	
==>v; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4800	4961	
==>v; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4800	4961	
==>v; $prev = $at;
        $pos += $m.from + 1;
       }
       # 0 ?? ([|] @$a) !! $a;  # XXX - 0 should be want.Item
       $a;
    };
  } else {
    my $pattern = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5031	5184	
==>ated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5031	5184	
==>ated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5031	5184	
==>ated.
for «
  <  >  <= >= == !=
  lt gt le ge eq ne
  + - * / % **
  ~
  <=> cmp
  &&  || //
  and or err
» -> $op {
  $eval ~= "
    sub prefix:«[$op] <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1013	1134	
==>a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1013	1134	
==>a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1013	1134	
==>a> = ... should work.
        hash.add_pair(new PIL2JS.Pair(
          new PIL2JS.Box.ReadOnly(pair.key),
          new PI <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	438	555	
==>ce to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	643	760	
==>ce to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	699	816	
==>ce to class and a slurpy attr hash
    sub ::create_opaque_instance ($%) {
        my ($class, %attrs) = @_;
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4246	4365	
==>rams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4246	4365	
==>rams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4246	4365	
==>rams, $native ? () : ($cc));
    @arg    = map { "($_).toNative()" } @arg if $native;
    my $arg = PIL::add_indent(1, j <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2067	2160	
==>hars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2067	2160	
==>hars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method cod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2067	2160	
==>hars  (Str $self:) { JS::inline('(function (str) { return str.length })')(~$self) }
method cod <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3165	3292	
==>.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } e <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3711	3838	
==>.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } e <==
3	/Users/nnunley/pugs/util/importgraph.pl	2240	2340	
==>Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Compile.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGe <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32148	32247	
==>nds one, then that is displayed; if not, it then checks
each set's member for language B and display <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32148	32247	
==>nds one, then that is displayed; if not, it then checks
each set's member for language B and display <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4733	4867	
==>t(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31746	31839	
==>ctively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36296	36389	
==>ctively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other! <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	909	1007	
==>he API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	863	957	
==>he API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6339	6439	
==>(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6339	6439	
==>(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6339	6439	
==>(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlob" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2003	2114	
==>out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_o <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2003	2114	
==>out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2083	2194	
==>out    = @expect_out.join(  "\n" ) || '';
    my $expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18220	18313	
==>ck (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18220	18313	
==>ck (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1405	1510	
==>$x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1405	1510	
==>$x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1405	1510	
==>$x0,$x1) { $x0.zip($x1) }
multi sub infix:<¥> # is assoc<list>    XXX Pugs parser TODO
    ($x0,$x1) { $x <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11662	11759	
==>, themselves does Role since they
are just instances of Class which does Role too. So this means t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11662	11759	
==>, themselves does Role since they
are just instances of Class which does Role too. So this means t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11662	11759	
==>, themselves does Role since they
are just instances of Class which does Role too. So this means t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4726	4850	
==>",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4726	4850	
==>",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4726	4850	
==>",
      #  $inv, PIL::doublequote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21220	21335	
==>};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21220	21335	
==>};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21220	21335	
==>};
#MULTI SUB map ($xx0,$xx1) {...};
# join - see op1
MULTI SUB reduce ($xx0,$xx1) {...};
# kill - see op1
MULTI SUB <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16792	16917	
==>rams)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16792	16917	
==>rams)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16792	16917	
==>rams)
    } 
    return undef;
}));

# now add the $::Class attributes

$::Class->add_attribute('@:MRO'              => ::make <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20421	20525	
==>($code);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11004	11099	
==>r $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11062	11157	
==>r $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5730	5839	
==>ne';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($self, @handles) = @_;
  no strict 'ref <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8646	8742	
==>atchfail still be returning something?

maybe just overload bool to false ;)

(I mean, seriously, <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8358	8452	
==>atchfail still be returning something?
maybe just overload bool to false ;)
(I mean, seriously, <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	11103	11360	
==>ype};
                if ($todo_type eq '__') {
                    $todo_type = '' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${to <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7673	7817	
==>{ 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7673	7817	
==>{ 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2511	2637	
==>ntext.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2511	2637	
==>ntext.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2511	2637	
==>ntext.ItemAny]) } catch(err) {
      // Set $!
      _24main_3a_3a_21 = new PIL2JS.Box(
        err.pil2js_orig_msg
          ? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2466	2561	
==>infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2466	2561	
==>infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2466	2561	
==>infix:«~^»",   2, "S", "a = String(a), b = String(b), $mapStr2Fill("^", "a", "b")",
  "prefix: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	86	191	
==>ys stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	86	191	
==>ys stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetc <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	86	191	
==>ys stored in a Scalar can be accessed using indexed store/fetch
#
# 2005-08-23
# - fixed Perl6::Cell::fetc <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	372	487	
==>ream cutsort
#                 iterate_function cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4024	4120	
==>lass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_precend <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5926	6022	
==>lass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_precend <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10381	10478	
==>eturn "$_[0] ruleop::constant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $ <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12500	12596	
==><$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_sub <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12500	12596	
==><$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2333	2445	
==>thod(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2333	2445	
==>thod(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2333	2445	
==>thod(sub {
    my ($self, $label) = @_;
    exists ::opaque_instance_attr($self => '%:methods')->{$label} ? 1 : 0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15431	15612	
==>1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::consta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15710	15891	
==>1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	16	131	
==>t;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	16	131	
==>t;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	16	131	
==>t;

use warnings;
use strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$s <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1302	1398	
==>type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea' <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1302	1398	
==>type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8335	8427	
==>=========================================

use FindBin;
use File::Spec;

sub path_from_me { F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8335	8427	
==>=========================================

use FindBin;
use File::Spec;

sub path_from_me { F <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8335	8427	
==>=========================================

use FindBin;
use File::Spec;

sub path_from_me { F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8402	8521	
==>) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8402	8521	
==>) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8402	8521	
==>) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 10000, 2 ]
    my $class = shift;
    m <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2545	2641	
==>thod end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2545	2641	
==>thod end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7532	7777	
==>lass_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7532	7777	
==>lass_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

= <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7532	7777	
==>lass_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END__

=pod

= <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21815	22113	
==>)->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44722	44997	
==>)->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41819	42069	
==>)->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                 
            } <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3403	3511	
==>put to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the numbe <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3403	3511	
==>put to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the numbe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3483	3591	
==>put to the expected output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the numbe <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33329	33428	
==>d2 gpos

Family: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	774	863	
==>->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2609	2698	
==>->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16416	16505	
==>ion went with this attribute when it's declared"
$::Class->add_method('find_attribute_spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16416	16505	
==>ion went with this attribute when it's declared"
$::Class->add_method('find_attribute_spec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16416	16505	
==>ion went with this attribute when it's declared"
$::Class->add_method('find_attribute_spec <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9265	9406	
==>nt \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_statement_rule( \$ret );\n" .
                "    die <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	688	791	
==>-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.span <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	688	791	
==>-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.span <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	722	829	
==>->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	722	829	
==>->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <' <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	590	732	
==>urn = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$captur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	583	725	
==>urn = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$captur <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4265	4383	
==>{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{values}{no_in <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6452	6573	
==>!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6452	6573	
==>!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6452	6573	
==>!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 }
sub postfix:<++> ($a is rw)    is primitive { my $cur = $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1164	1275	
==>if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1164	1275	
==>if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1164	1275	
==>if($name eq "&return") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	290	409	
==>Gen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	290	409	
==>Gen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    m <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	114	225	
==>ng on "Map"

 multi sub grep (Any|Junction $test ; *@values) returns List {
   gather {
     for @values -> $x { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3945	4033	
==>:roles');
}));

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3945	4033	
==>:roles');
}));

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3945	4033	
==>:roles');
}));

## ---------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2213	2311	
==>f!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($chil <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2213	2311	
==>f!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($chil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14700	14811	
==>cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($t <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14700	14811	
==>cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($t <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7653	7748	
==>nt|(List of Pair) )
 multi Array::values (@array ; MatchTest *@indextests --> Int|List )

Iterat <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	869	988	
==>ial_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rul <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	869	988	
==>ial_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rul <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3034	3144	
==>>from() + 1);
  }
  return $matchObj;
}

sub punct {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7234	7357	
==>) {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7234	7357	
==>) {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7234	7357	
==>) {" .
        PIL::possibly_ccify($other, PIL::Cont->new(
          argname => "val",
          body    => sub { "$jsname = <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5125	5249	
==>$self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admi <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4984	5108	
==>$self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13930	14028	
==>}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13930	14028	
==>}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13930	14028	
==>}));

$::Class->add_method('get_method' => ::make_method(sub {
    my ($self, $label, %params) = @_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4249	4389	
==>ne-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4261	4401	
==>ne-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    ret <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5354	5454	
==>'... $iFoo refs to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance cal <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12487	12615	
==>>str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12487	12615	
==>>str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12487	12615	
==>>str  ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => _('$.unboxed')->bit  ) },
            'perl' => sub { Str->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16596	16770	
==>et('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2413	2529	
==>.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2630	2746	
==>.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated fi <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	720	826	
==>1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $du <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	720	826	
==>1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $du <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16618	16707	
==>ExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <R <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2580	2703	
==>re no 'script' is available
        
        ### unlink all the script files
        for my $script ( @{ $href->{$pkg}->{bin <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3001	3100	
==>'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Pe <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3001	3100	
==>'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Pe <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1940	2145	
==>os       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1940	2145	
==>os       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backt <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1414	1519	
==>ec.  eew.

    ($pil_code,$err);
}


package Perl6::Run::OnPerl5::X1::Result;
use strict;
sub new {
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1013	1131	
==>d object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1013	1131	
==>d object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1013	1131	
==>d object";
    
        ::bind_method_to_class($method, $self);
        
        if (blessed($method) eq 'Perl6::Method <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5541	5651	
==>ay, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5541	5651	
==>ay, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5541	5651	
==>ay, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === hashes for a better <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5562	5665	
==>stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($se <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11782	11882	
==>_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11776	11876	
==>_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1681	1784	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=back

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	574	677	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=back

=cut <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1287	1390	
==>em B<to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=back

=cut <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5188	5296	
==>g_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ " <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5188	5296	
==>g_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ " <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7633	7734	
==>duce_1:
  my $arity = $$temp1{arity};
  $temp1 = pop @operatorStack;

  reduce_args:
  goto reduce_sav <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5572	5720	
==>[ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no avail <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6036	6184	
==>[ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no avail <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5277	5420	
==>$S2 = substr "]})>", $I0
    inc pos
  term_bx1:
    $S0 = substr target, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	921	1071	
==>UT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5340	5458	
==>_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"] <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5340	5458	
==>_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2551	2671	
==>ks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2551	2671	
==>ks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for op <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2551	2671	
==>ks for signature checks, autoboxing/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for op <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6763	6872	
==>sOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy' <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6763	6872	
==>sOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3662	3771	
==>sOptional'   ,'Bool',
  'isNamed'      ,'Bool',
  'isLValue'     ,'Bool',
  'isWritable'   ,'Bool',
  'isLazy' <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2869	2997	
==>)
        || confess "you can only add types to a list"
            foreach @_;
    CORE::unshift(@{$self} => @_); 
    nil->new( <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3664	3777	
==>cent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3664	3777	
==>cent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4362	4473	
==>::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    f <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4362	4473	
==>::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    f <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20909	21020	
==>"reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto setreps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	12359	12488	
==>{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	12359	12488	
==>{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	12359	12488	
==>{$self->{shifts}}, @res;
            }
            # print " left [", @shifts, @pops, "] ", scalar @shifts, "+", scalar @pops, "\n <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	997	1099	
==>@_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must be a block <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1230	1332	
==>@_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must be a block <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	3802	3904	
==>="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	3802	3904	
==>="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	3802	3904	
==>="http://www.w3.org/1999/xhtml">
  <head>
    <title>PIL2JS</title>
  </head>

  <body>
    <pre id="__ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8293	8415	
==>IL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8293	8415	
==>IL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8293	8415	
==>IL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my $sigil = substr $_[0], 0, 1;
  die "Sigil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	1303	1401	
==>.meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	1303	1401	
==>.meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scala <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	1303	1401	
==>.meta should give access to .name, etc
# TODO - 'is readonly'
# TODO - store(Scalar) => store(Scala <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13425	13546	
==>t if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13425	13546	
==>t if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13425	13546	
==>t if $__flag eq "next";
        redo if $__flag eq "redo";
        die "p6_loop_macro: bug";
     }'."\n";
}
sub p6_last_m <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5781	5897	
==>'header';

        $self->{saw_header}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $self->_is_bail_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5609	5712	
==>ssed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5609	5712	
==>ssed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11799	11898	
==>rphic to one another. 

Because instances of class all conform to the Role interface/API they are 
i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11799	11898	
==>rphic to one another. 

Because instances of class all conform to the Role interface/API they are 
i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11799	11898	
==>rphic to one another. 

Because instances of class all conform to the Role interface/API they are 
i <==
3	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	155	255	
==>rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) retur <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	155	255	
==>rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	319	431	
==>:Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	319	431	
==>:Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 nam <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	319	431	
==>:Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values %vars ],
		 nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14852	15012	
==>attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14852	15012	
==>attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14852	15012	
==>attr($self => '@:MRO')};
        # if nothing is in MRO, we take the superclasses
        # because we know that is there ...
        @supers = @{::opaque_instan <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2659	2812	
==>> $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<pugs_versi <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7044	7190	
==>/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.Li <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5545	5691	
==>/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.Li <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	18097	18354	
==>{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21574	21831	
==>{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pair <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21161	21418	
==>{
                            $_.key === any( $r2only_h )
                        } )
                        take mapping(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pair <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24445	24535	
==>ptures_set(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_und <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3247	3336	
==>GE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker q <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3247	3336	
==>GE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4331	4429	
==>ite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4331	4429	
==>ite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4331	4429	
==>ite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_la <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	6390	6517	
==>w_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	6390	6517	
==>w_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	6390	6517	
==>w_role->add_method($method_name => ::make_method(
                        $body->{methods}->{$method_name}
                    ) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3023	3168	
==>e( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3023	3168	
==>e( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\ <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2998	3099	
==>utomatically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    return unless defined $ENV{PUGS_SMOKE_U <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	505	619	
==>ion
      // and refer to it via the closure, then things don\'t work right
      // --the order of output can beco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	505	619	
==>ion
      // and refer to it via the closure, then things don\'t work right
      // --the order of output can beco <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	505	619	
==>ion
      // and refer to it via the closure, then things don\'t work right
      // --the order of output can beco <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7481	7588	
==>decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7481	7588	
==>decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7481	7588	
==>decrement );
    return $xx;
    #p6_set($xx,p6_from_n(p6_to_n($xx)+1)) 
};

MULTI SUB item ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3943	4048	
==>.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the li <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3943	4048	
==>.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the li <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4023	4128	
==>.  This is the easiest way to match a failing test.

=item B<test_out( Str $line )>

Adds a line to the li <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3007	3180	
==>{levels}} ) {
        if ( grep { 
                defined $opt->{other} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	10004	10100	
==>IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for progra <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10004	10100	
==>IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for progra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1627	1744	
==>Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'I <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1627	1744	
==>Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'I <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	846	954	
==>"Foo"]
		while (ref $type and ref $type eq 'ARRAY' and @$type == 1){
			$type = $type->[1];
		}

		return $ty <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	756	930	
==>ift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skip <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	756	930	
==>ift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skip <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9078	9247	
==>ie \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9913	10082	
==>ie \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2153	2266	
==>s invoked
    $Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2153	2266	
==>s invoked
    $Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2082	2186	
==>], '$<params>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37213	37317	
==>of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41762	41866	
==>of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41385	41489	
==>of one source relation is a
full subset of another, the result degenerates to a C<semijoin>.  This
method <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3683	3783	
==>ch object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3683	3783	
==>ch object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8521	8625	
==>{
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      de <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8521	8625	
==>{
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      de <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6142	6240	
==>mented\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8553	8697	
==>brule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12462	12603	
==>brule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12462	12603	
==>brule - $_[0] - grammar $_[4]\n"; 
            #print $h->code;
            my $match = $h->match( $_[0], $_[4], { p => 1 } );
            #pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8595	8708	
==>);
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if ( <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2350	2444	
==>ian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LIC <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2350	2444	
==>ian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LIC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	24581	24757	
==>al_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	24581	24757	
==>al_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	24581	24757	
==>al_bool' => $b,
               '$.val_string' => $s,
               '$.val_array' => $a,
               '$.val_hash' => $h,
               '$.from' => $from,
               '$.t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8345	8485	
==>{ 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 100 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8345	8485	
==>{ 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 100 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8345	8485	
==>{ 1 },
    );
}

sub from_x {
    # implements ('a' x 100) style lists
    # this can be used to create sparse arrays like:  [ 1, undef x 100 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	6655	6755	
==>m> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	6655	6755	
==>m> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	6655	6755	
==>m> has contributed many tests. Thanks!

Copyright (c) 2004 Gaal Yahas. All rights reserved.  This pro <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4543	4649	
==>vedWord>
    | <Identifier>
    | <Punctuator>
    | <NumericLiteral>
    | <StringLiteral>
}
rule Reserved <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12581	12678	
==>.. )

This function removes the header fields with the specified names.

The header field names ($ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12581	12678	
==>.. )

This function removes the header fields with the specified names.

The header field names ($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9386	9517	
==>f (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_handler(':::' => sub {
    my ($S) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2658	2820	
==>e, @list );
            }
        }
    
        ### extract the code
        {   ### XXX we should *build* things here too
            print "Unpacking code...\n" <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	21545	21639	
==>uple must be distinct from the other tuples.  All Relation
attributes may be individually addre <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26097	26191	
==>uple must be distinct from the other tuples.  All Relation
attributes may be individually addre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5258	5359	
==>e PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5258	5359	
==>e PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5258	5359	
==>e PThunk; @ISA = qw(EvalX::BaseClass); sub expand {
    my $body = $_[0]->{'pThunk'}{'pLV'}{'pFun'}{'p <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	8302	8415	
==>ng.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	8302	8415	
==>ng.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      retu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	8302	8415	
==>ng.substring(g_from,g_to+1);
    #      var m = mkMatch(true, g_from, g_to, g_str, g_array, null);
    #      retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	1050	1146	
==>tive()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	1050	1146	
==>tive()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	1050	1146	
==>tive()", $_[0]->{key}->as_js
      : PIL::doublequote($_[0]->{key});
    sprintf "new PIL2JS.Box. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2778	2887	
==>ep { not $smoke{$_} } qw<pugs_version osname duration summary runcore>) {
    print "The submitted smoke has a <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	841	935	
==>present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	841	935	
==>present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	544	666	
==>= '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	544	666	
==>= '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	567	668	
==>h my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	567	668	
==>h my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	567	668	
==>h my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$name <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3046	3160	
==>tart <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3046	3160	
==>tart <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4088	4227	
==>. '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4088	4227	
==>. '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #pr <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	458	555	
==>elude - Aggregator of builtin functions for Blondie runtimes

=head1 SYNOPSIS

    use Blondie::Pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11012	11157	
==>dx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11012	11157	
==>dx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11012	11157	
==>dx] = new PIL2JS.Box(undefined);

        return array[idx].BINDTO(other);
      };

      return ret;
    };

    if(idxs.length == 1) {
      cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4279	4429	
==>thod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4279	4429	
==>thod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4279	4429	
==>thod(sub {
    my $self = shift;
    ::opaque_instance_attr($self => '$:name') = shift if @_;        
    ::opaque_instance_attr($self => '$:name');
}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	249	348	
==>ss ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	249	348	
==>ss ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creati <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	249	348	
==>ss ref $self->{pSyms} eq "ARRAY";
  die unless $self->{pStmts}->isa("PIL::PStmts");

  # Skip creati <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4250	4352	
==>ix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4250	4352	
==>ix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4250	4352	
==>ix:«<=>») { min $cmp, *@self }
method max(@self: Code $cmp = &infix:«<=>») { max $cmp, *@self }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20299	20409	
==>label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20299	20409	
==>label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20299	20409	
==>label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to make met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1213	1308	
==>et;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1213	1308	
==>et;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1213	1308	
==>et;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21359	21456	
==>from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21359	21456	
==>from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21359	21456	
==>from_b($xx0->does( p6_to_s($xx1) )) };
MULTI SUB isa  ($xx0,$xx1) { p6_from_b($xx0->isa( p6_to_s($ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	887	1000	
==>print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1093	1206	
==>print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = e <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1932	2042	
==>_admin;

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$ <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	190	299	
==>indBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inli <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	190	299	
==>indBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inli <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11147	11239	
==>> "\\t", {[C] = "\t"}, !.
p6_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4179	4272	
==>lts to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4179	4272	
==>lts to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6376	6469	
==>lts to false. If it is true, the factory returns a
Test::Builder::Test::Skip instance, passing <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2454	2557	
==>iag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_match <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2454	2557	
==>iag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_match <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2534	2637	
==>iag(
        "output mismatch\nexpected: $expect_out\nreceived: $received_out\n"
    ) unless $out_match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	113	243	
==>.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	113	243	
==>.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	113	243	
==>.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as_js {
    my $self = shift;
    die unless key <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4992	5130	
==>erl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4992	5130	
==>erl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4992	5130	
==>erl6::Value::p6v_isa( $value, 'Scalar' ) ) {
                    #carp "Attempting to store a Scalar into a Scalar";
                    $v <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	633	761	
==>nderflow\n";

        # given/when is a sexy new P6 construct that can avoid
        # long if/elsif/else chains
        given $t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2825	2940	
==>method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2825	2940	
==>method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7738	7884	
==>ASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7738	7884	
==>ASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arg <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7738	7884	
==>ASS }, 
            'defined' => sub { Bit->new( '$.unboxed' => 1 ) },
    
            'expand_junctions' => sub {
                my ($self, @arg <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6907	7047	
==>t,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6907	7047	
==>t,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_t <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2566	2675	
==>token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2051	2152	
==>educer::DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags ();

	use Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5219	5335	
==>= 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5219	5335	
==>= 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5219	5335	
==>= 0;
  $sum += +$_ for @vals;
  @vals ?? $sum !! undef;
  # We should return undef if we haven't been giving @vals to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7724	7840	
==>r $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7724	7840	
==>r $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7724	7840	
==>r $/[0] etc.

    # Here is an old JS version of :global.  Fyi.
    #      var regexp = new RegExp(pattern,flags + "g <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	0	108	
==>package Newton;

use v6;

sub update_guess(Num $guess is rw, Num $target, Code $f, Code $fprime) {
    $guess <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39638	39725	
==>erl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39638	39725	
==>erl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

L <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	994	1094	
==>defined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array re <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	994	1094	
==>defined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6141	6266	
==>n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6141	6266	
==>n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6141	6266	
==>n" .
    join("\n", map {
      my $name = $_->{pSubName};
      $name =~ /^(?:__init_|__export_|&PIL2JS::Internals::Hacks::in <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20871	20967	
==>all others for production use.

Most of the other (near term) third party Engines will likely jus <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20871	20967	
==>all others for production use.

Most of the other (near term) third party Engines will likely jus <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7439	7567	
==>94),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uAr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7439	7567	
==>94),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uAr <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1076	1203	
==>merged = 0;
    return if $self->omit;
    push @$tree, $self;
    $self->merge;
  }

  sub merge {
    my ($self) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	527	641	
==>->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	527	641	
==>->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	527	641	
==>->{pNode}->fixup,
    } => "PIL::PPos";
  }

  sub as_js {
    my $self = shift;

    local $PIL::CUR_POS = $self-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2554	2704	
==>5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2554	2704	
==>5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2554	2704	
==>5r_from_pilc($pilc);
        print $p5r,"\n" if $verbose;
        print "----\n";
        my @res = run_p5r($p5r);
        print "\n",(map {p6_to_s($_) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	2874	2985	
==>\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	2874	2985	
==>\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	2874	2985	
==>\Z/) { p6_repl_print_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s*\ <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1627	1742	
==>= "pugs $scr $intmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6318	6409	
==>e(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delet <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6318	6409	
==>e(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delet <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4086	4190	
==>e test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expecte <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4086	4190	
==>e test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expecte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4166	4270	
==>e test you're going
to run.

=item B<test_diag( Str $line )>

Adds a line to the list of lines of expecte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2205	2315	
==>MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2205	2315	
==>MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2205	2315	
==>MM;";
    my $MM = eval($code); die "$@\n$code" if $@;
    for my $key (keys %$params) {
	my $val = $params->{$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2324	2429	
==>= args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2324	2429	
==>= args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2324	2429	
==>= args[1], cc = args.pop();
    var ret = new PIL2JS.Box.Constant(undefined);
    _24main_3a_3a_21 = new P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2267	2388	
==>inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2267	2388	
==>inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2267	2388	
==>inline('(
    function (filename) {
        if (!Perl5) throw "Perl5 required.";
        return Perl5.perl_eval("(sub { un <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24361	24448	
==>erl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24361	24448	
==>erl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

R <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11688	11812	
==>:status();
          $status{"reason"} = $.reason;
          return $status;
      }
  }
  
  class Test::Builder::Test::Skip <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2122	2234	
==>:status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2122	2234	
==>:status();
        $status{"reason"} = $.reason;
        return $status;
    }
}

class Test::Builder::Test::Skip <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	71	176	
==>ok - is tighter/looser/equiv 
#  infix/prefix/circumfix/postcircumfix
#  is assoc left/right/non/chain/lis <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1525	1620	
==>SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1525	1620	
==>SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1105	1202	
==>ixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1105	1202	
==>ixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1105	1202	
==>ixedVarname is $a_padid.
our @CUR_LEXSCOPES;
# ID supply
our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12379	12485	
==>$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12379	12485	
==>$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed') <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12379	12485	
==>$.unboxed' => _('$.unboxed')->int  ) },
            'str' =>  sub { Str->new( '$.unboxed' => _('$.unboxed') <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6542	6664	
==>w)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub post <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6542	6664	
==>w)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub post <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6542	6664	
==>w)    is primitive { my $cur = $a; $a = $a + 1; $cur }
sub prefix:<-->  ($a is rw)    is primitive { $a = $a - 1 }
sub post <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	730	838	
==>* New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	730	838	
==>* New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Arr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	730	838	
==>* New methods: keys(), values(), pairs(), kv(), pick()
#
# 2005-08-29
# * Lazy lists are deep cloned when Arr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9747	9867	
==>$1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9747	9867	
==>$1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9747	9867	
==>$1/eg;
  return $str;
}

# Add indentation to input text $text.
sub add_indent { 
  my ($i, $text) = @_;
  local $_;

  r <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1165	1304	
==>caping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $re <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1165	1304	
==>caping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $re <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	9727	9821	
==>at,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_interna <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	348	473	
==>5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do thing <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	348	473	
==>5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do thing <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3070	3188	
==>d(my $r = $self->$try)) {
      $r->insert($self->{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5129	5254	
==>hile(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad- <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5330	5451	
==>hile(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5330	5451	
==>hile(eval { $pad = peek_my($idx) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	246	335	
==>Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	246	335	
==>Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Bu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	246	335	
==>Rest copied from
      // http://openjsan.org/doc/t/th/theory/Test/Simple/0.11/lib/Test/Bu <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9308	9473	
==>ub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$deps ) {
            $st <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1169	1285	
==>BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Lite <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1169	1285	
==>BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Lite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10690	10826	
==>,",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10690	10826	
==>,",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10690	10826	
==>,",map{join("=>",@$_)}@$_)."]"
	    } @names6arg);
        my $params = ('[map{Perl6::Param->new(@$_)} '
                      .'('.$args <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	500	598	
==>alue
sub to_native { shift }

# keep this here for a consistent interface
sub to_str { str->new((sh <==
3	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	440	538	
==>);
print "Testing perl6 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8506	8646	
==>eturn } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn't ma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8222	8358	
==>eturn } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn't ma <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2467	2569	
==>>to_str->to_native . ") already exists";
    return $self->[2]->store($name, $nil::NIL);    
}

1;

__E <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	219	329	
==>ue, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	219	329	
==>ue, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	219	329	
==>ue, $false) = @_;

    return <<EOF };
(
  PIL2JS.cps2normal(
    _26main_3a_3aprefix_3a_3f.FETCH(),
    [ PIL2 <==
3	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2187	2297	
==>ub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE <==
3	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2187	2297	
==>ub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	160	249	
==>mar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs::Grammar::Base';
use Ca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17803	17912	
==>nfix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17803	17912	
==>nfix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17803	17912	
==>nfix:[~<] ($xx0,$xx1) {...};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_fro <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	789	886	
==>e::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. For exa <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19215	19311	
==>ready involved in making the program would be editing them.  At
the same time, this information i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19215	19311	
==>ready involved in making the program would be editing them.  At
the same time, this information i <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	241	491	
==>TRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	241	491	
==>TRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2046	2166	
==>:Attribute or a T2::Association, but as they
    # both respond to ->type and ->name in the same way, we can use
    # th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	108	208	
==>ILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	108	208	
==>ILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - R <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	108	208	
==>ILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 NAME

Class::Rebless - R <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	64	160	
==>ds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or parent <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	64	160	
==>ds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or parent <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8278	8524	
==>class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract synta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8278	8524	
==>class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract synta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18042	18144	
==>nfix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18042	18144	
==>nfix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18042	18144	
==>nfix:<->  ($xx0,$xx1) { p6_from_n(p6_to_n($xx0) - p6_to_n($xx1)) };
# atan - see op1
MULTI SUB infix:<~ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4756	4865	
==>> $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5147	5245	
==>ss->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5147	5245	
==>ss->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5147	5245	
==>ss->add_method('id'    => ::make_method(sub { ::opaque_instance_id($::SELF)    }));
$::Class->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2298	2436	
==>);
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2298	2436	
==>);
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2298	2436	
==>);
      var cc    = args.pop();
      var ret   = [];
      for(var i = 0; i < array.length; i++) {
        ret.push(new PIL2JS.Box.Consta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	91	194	
==>d in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	91	194	
==>d in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	91	194	
==>d in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  package PIL::PPos;

  use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10130	10244	
==>$code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work ye <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10130	10244	
==>$code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work ye <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10130	10244	
==>$code; die "bug $@" if $@;
	    for my $key (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work ye <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27688	27785	
==>d for C</m>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag handler gets the parser object a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19508	19604	
==>$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you
h <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19508	19604	
==>$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you
h <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1844	1942	
==>n question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia a <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1844	1942	
==>n question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12333	12436	
==>_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12333	12436	
==>_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12333	12436	
==>_make_dispatcher_iterator(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1195	1319	
==>gnature_term
        { $_[0]->{out}= { named_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { spl <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1015	1135	
==>ple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attri <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4493	4613	
==>ple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attri <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1195	1320	
==>iers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <n <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1195	1320	
==>iers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	619	719	
==>Syms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	619	719	
==>Syms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	619	719	
==>Syms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pS <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19324	19444	
==>S -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15745	15865	
==>S -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$ <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26682	26779	
==>e ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define R <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14625	14817	
==>any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18102	18294	
==>any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_att <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17518	17710	
==>any( $r1.heading )) {
                        @r_with_shared_attrs.push( $r1 );
                        last SWITCH;
                    }
                }
                @r_with_disjoint_att <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6740	6848	
==>ure} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        i <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6752	6860	
==>ure} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        i <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3271	3410	
==>uce algorithmic complexity
            gather {
                given $event.name {
                    when '*' { take %.subscription.value <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9844	9964	
==>uleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::const <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10123	10243	
==>uleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::const <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11409	11587	
==>ubmethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is neede <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11409	11587	
==>ubmethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is neede <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11409	11587	
==>ubmethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this is currently a hack to rebind the 
            # $?SELF variable, it is neede <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4956	5052	
==>e all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4956	5052	
==>e all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$ch <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4763	4860	
==>ime(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2st <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4763	4860	
==>ime(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15704	15817	
==>hod('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15704	15817	
==>hod('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15704	15817	
==>hod('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    (defined $label)
        || c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	572	682	
==>g;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	572	682	
==>g;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	572	682	
==>g;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link;
my $output <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4756	4861	
==>uote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4756	4861	
==>uote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4756	4861	
==>uote($sub), $cxt, $arg
      #  if defined $native;
      return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4	106	
==>- Value classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4	106	
==>- Value classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Pe <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4	106	
==>- Value classes 
# Num, Int, Str, Bit, Pair, Ref, List
#
# - functions for implementation of unboxed Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6174	6291	
==>\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6174	6291	
==>\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instan <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6174	6291	
==>\:SELF, \'$1\'\)\}/g;
    
    # hash followed by a key access
    $method_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instan <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4675	4956	
==>Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    s <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4675	4956	
==>Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32368	32469	
==>ect.

=item up

Whether this object goes into a shallower scope (like a CLOSE).

=item vis

The visual <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	946	1047	
==>type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	946	1047	
==>type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3666	3766	
==>,(ulong)perl_callback);
    ret = call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10539	10699	
==>close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = se <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10539	10699	
==>close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	255	373	
==>val
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	255	373	
==>val
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSA <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	255	373	
==>val
       p6_eval_file
       );
use PIL::Run::ApiX;
use UNIVERSAL;

sub subnodes_of {
    my($n)=@_;
    if (UNIVERSA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2364	2499	
==>$rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2911	3046	
==>$rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3458	3593	
==>$rx->{flags}[-1],
      neg => $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	193	296	
==>gh to do the
# same thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoid CxtItem Cxt <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	1126	1222	
==>pected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$d <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1184	1280	
==>pected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	3211	3327	
==>{
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	3211	3327	
==>{
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($ty <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	3211	3327	
==>{
		$recurse->($$obj);
	} elsif ($type eq 'ARRAY') {
		for my $elem (@$obj) {
			$recurse->($elem);
		}
	} elsif ($ty <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	8384	8482	
==>ou planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Te <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8442	8540	
==>ou planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Te <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23602	23693	
==>Relation library's interface.

See also the bundled L<Relation::Example>, which provides a m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4908	4999	
==>be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4908	4999	
==>be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4908	4999	
==>be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Class::Rebless->custo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1517	1677	
==>ed = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1517	1677	
==>ed = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = fun <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1517	1677	
==>ed = true;
      }

      return cached_result;
    };

    boxed.STORE  = function (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = fun <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11776	11877	
==>and roles can be polymorphic to one another. 

Because instances of class all conform to the Role inte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11776	11877	
==>and roles can be polymorphic to one another. 

Because instances of class all conform to the Role inte <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11776	11877	
==>and roles can be polymorphic to one another. 

Because instances of class all conform to the Role inte <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	76	176	
==>edium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within tha <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	76	176	
==>edium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within tha <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14847	14942	
==>gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2760	2852	
==>anonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2760	2852	
==>anonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2760	2852	
==>anonical'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method( <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2451	2553	
==>ethod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2451	2553	
==>ethod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dis <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2451	2553	
==>ethod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8622	8733	
==>$body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8622	8733	
==>$body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8622	8733	
==>$body = PIL::possibly_ccify +(%$self)[1], PIL::RawJS->new("thunkreturncc");
    my $ret  = sprintf <<EOF, PIL::a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4328	4423	
==>finite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4328	4423	
==>finite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4328	4423	
==>finite   { $_[0]->{cis_infinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12858	13012	
==>less $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12858	13012	
==>less $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12858	13012	
==>less $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # delete from slice
                    my $r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30861	30955	
==>al cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is ide <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35411	35505	
==>al cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is ide <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34602	34696	
==>al cases are where C<$transformer> returns either an empty
tuple/Mapping or a tuple that is ide <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28583	28783	
==>. 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28583	28783	
==>. 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28583	28783	
==>. 
                                join( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7166	7384	
==>ar(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7359	7577	
==>ar(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2164	2290	
==>or->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2164	2290	
==>or->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2164	2290	
==>or->($opts);
        
        recurse($proto, $obj, $namespace, $opts, $level);
        #goto &recurse; # I wonder why this doe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3186	3309	
==>"exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3186	3309	
==>"exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Mat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3186	3309	
==>"exp",          1, "N", "Math.exp(a)",
  "log",          1, "N", "Math.log(a)",
  "log10",        1, "N", "Math.log(a) / Mat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9547	9660	
==>_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9547	9660	
==>_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pil <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9547	9660	
==>_;
    my $pilc = eval($pil);
    die "Eval of -CPIL1-Perl5 code failed. $@" if $@;
    $pilc;
}

sub p5r_from_pil <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19458	19569	
==>.

The intended interface and use of this class in Perl programs is similar to
the intended use of a L<Set> clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24010	24121	
==>.

The intended interface and use of this class in Perl programs is similar to
the intended use of a L<Set> clas <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22526	22637	
==>.

The intended interface and use of this class in Perl programs is similar to
the intended use of a L<Set> clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	22	113	
==>trict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	22	113	
==>trict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	22	113	
==>trict;
use warnings;
use Perl6::MetaModel::Psyche;

## ------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11637	11760	
==>y $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason"} = $.reason;
          return $stat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2071	2190	
==>y $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $stat <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2071	2190	
==>y $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason"} = $.reason;
        return $stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1756	1863	
==>->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1756	1863	
==>->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $bo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1756	1863	
==>->STORE('::' . $new_class->name => $new_class);
    return $new_class;
}

sub role {
    my ($full_name, $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	602	784	
==>on.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExceptio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	602	784	
==>on.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExceptio <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	602	784	
==>on.next) {
              // Ok;
            } else {
              throw err;
            }
          }
        }
      } catch(err) {
        if(err instanceof PIL2JS.ControlExceptio <==
3	/Users/nnunley/pugs/util/package-osx.pl	9165	9290	
==>(keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2403	2503	
==>ult (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("001 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2403	2503	
==>ult (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("001 <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2665	2759	
==>ils

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r.met <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2665	2759	
==>ils

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r.met <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4961	5093	
==>= $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $patte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4961	5093	
==>= $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $patte <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4961	5093	
==>= $pat;
    if (substr($pattern,0,2) eq '(?') {
       if substr($pattern,0,4) eq '(?i)' { # XXX - kludge - use regex
         $patte <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8658	8779	
==>ext->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{ <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8658	8779	
==>ext->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15005	15173	
==>fts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15005	15173	
==>fts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15005	15173	
==>fts}} if @{$self->{shifts}};
            return
        },
        celems => sub { 
            my $self = shift;
            my $any = 0;
            for ( $ret, @lists <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28919	29137	
==>r1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29198	29416	
==>r1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       , <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3339	3471	
==>n $event.name {
                    when '*' { take %.subscription.values».members };
                    default { take %.subscript <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2775	2890	
==>ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connec <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2775	2890	
==>ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	17250	17349	
==>_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	17250	17349	
==>_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	17250	17349	
==>_attribute('%:attributes'));
$::Class->add_attribute('%:methods'          => ::make_attribute('%:met <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2317	2419	
==>irst in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2317	2419	
==>irst in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8600	8715	
==>. "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::s <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8596	8711	
==>. "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::s <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	242	344	
==>6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteM <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	242	344	
==>6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	1221	1360	
==>ss {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	1221	1360	
==>ss {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which impleme <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	1221	1360	
==>ss {
        ${$_[0]->[1]} = $_[1]; 
    }    
}

{   ## Perl 6 Global Functions
    # This is a set of global functions
    # which impleme <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3575	3684	
==>th($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3575	3684	
==>th($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	2026	2134	
==>Prelude where

{-
    Prelude bootstap. 

>   The world was young, the mountains green,
>   No stain yet on t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	303	434	
==>'$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	303	434	
==>'$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	303	434	
==>'$.val_array' => { access => 'rw' } ],
            [ '$.val_hash' => { access => 'rw' } ],
            [ '$.from' =>     { access => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	27387	27560	
==>::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	27387	27560	
==>::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	27387	27560	
==>::numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp->perl );
                    push @start, $t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13836	13947	
==>rst do some optimizing of the order that source relations are
    # combined, so to try and make the least expen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17313	17424	
==>rst do some optimizing of the order that source relations are
    # combined, so to try and make the least expen <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16693	16804	
==>rst do some optimizing of the order that source relations are
    # combined, so to try and make the least expen <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22587	22684	
==>es (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27139	27236	
==>es (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25871	25968	
==>es (implementation details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2070	2199	
==>h => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



s <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1989	2112	
==>h => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

s <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4231	4337	
==>to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines from the previo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4231	4337	
==>to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines from the previo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4311	4417	
==>to run.

=item B<test_test( Str $description? )>

Compares the receivied and expected lines from the previo <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6731	6840	
==>ix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6731	6840	
==>ix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6731	6840	
==>ix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is rw) is primitive <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6950	7046	
==>unboxed' versions. 



The rule() constructor provides an interface between the 

low-level funct <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6713	6806	
==>unboxed' versions. 

The rule() constructor provides an interface between the 
low-level funct <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1746	1844	
==>f the 
pair is currently unused, but for forward compatibility it should always be the 
value C<1>, <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1746	1844	
==>f the 
pair is currently unused, but for forward compatibility it should always be the 
value C<1>, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2150	2268	
==>apture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$remainder) = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2067	2179	
==>apture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$remainder) = <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3682	3794	
==>Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    stor <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1303	1409	
==>nd";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(S <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1303	1409	
==>nd";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(S <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1712	1809	
==>ed parameter (pair).  (The value of the 
pair is currently unused, but for forward compatibility i <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1712	1809	
==>ed parameter (pair).  (The value of the 
pair is currently unused, but for forward compatibility i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	4157	4344	
==>' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	4157	4344	
==>' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	4157	4344	
==>' =>
                                _('$:cell')->{tied} ? 
                                _('$:cell')->{tied}->elems :
                                Perl6::Container::Hash::elems( _('$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5316	5453	
==>ruct;
        
        # add the archive path to the package's meta info
        $meta->{archive} =
            $self->pool_rel->file( fil <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	818	912	
==>);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	818	912	
==>);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5540	5647	
==>on is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5540	5647	
==>on is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CR <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5540	5647	
==>on is to ask FETCH and STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CR <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1901	2014	
==>an.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1901	2014	
==>an.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4171	4268	
==>ance_attrs($self)->{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($self)->{'$ <==
3	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1067	1217	
==>sociations won't work without
                             # MM support (or proxy accessors)
                             # $self->rev_assocs->members, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	9495	9596	
==>'My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for n <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9553	9654	
==>'My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11301	11415	
==>->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11301	11415	
==>->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11301	11415	
==>->clone; 
    my $arity = Perl6::Value::numify( $code->arity );
    Perl6::Value::List->new(
        clone => sub { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5635	5799	
==>, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5635	5799	
==>, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5635	5799	
==>, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            v <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11237	11343	
==>'get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11237	11343	
==>'get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11237	11343	
==>'get_method' => method () {
    my ($self, $label, %params) = @_;
    confess "You must provide a method la <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2631	2737	
==>ned $self->{$stage};
	push(@todo,$stage);
    }
    #print STDERR "==",join(" ",@todo),"==\n";
    for my $ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13703	13803	
==>affic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; discon <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13703	13803	
==>affic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; discon <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1558	1688	
==>) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_strin <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1558	1688	
==>) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_strin <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3124	3234	
==>eys: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2750	2869	
==>[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2750	2869	
==>[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2750	2869	
==>[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Box.Constant(junc.values));
    })')($self);
  } elsif $self.isa("Hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	8319	8484	
==>urn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	8319	8484	
==>urn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _(' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	8319	8484	
==>urn $v;
            },
            'store' => sub {
                my ($self, @param) = @_;
                my $tmp = _('$:cell')->{tied} ? _('$:cell')->{tied} : _(' <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3290	3404	
==>mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Iceland <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3290	3404	
==>mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Iceland <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6475	6574	
==>precendence_list');

## test adding a class method (as a signleton method on the class instance)

$O <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1416	1555	
==>if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1359	1491	
==>if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15791	15917	
==>(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19268	19394	
==>(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection ( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18747	18873	
==>(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1057	1173	
==>ed.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1057	1173	
==>ed.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1057	1173	
==>ed.
    # Then, in as_js1, possible named args are immediately extracted and
    # removed from args.
    # Iin as_js <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3832	4002	
==>nt "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3832	4002	
==>nt "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Ru <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4865	4973	
==>expect_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, newfrom( $match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4020	4148	
==>}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4020	4148	
==>}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ / <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4020	4148	
==>}
sub p6_main {"PIL::Run::Root::main"}
sub sigil_and_rest {
    my($n)=@_;
    my $sigil = "";
    my $bare = $n;
    if ($n =~ / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1491	1587	
==>ion too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1491	1587	
==>ion too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1491	1587	
==>ion too
# TODO - map(), grep() could accept the optional 'celems' parameter - for kv() implementa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7545	7651	
==>od(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apost <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7545	7651	
==>od(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apost <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7545	7651	
==>od(
      _3amain_3a_3aMatch,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3apost <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	9082	9231	
==>od \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	9082	9231	
==>od \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	9082	9231	
==>od \"$method\" in an undefined Scalar";
                }
            },
        },
    }
};

1;
__END__


=head1 NAME

Perl6::Container::Scalar - Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	278	432	
==>el::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	278	432	
==>el::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	278	432	
==>el::Parser::Tokenizer->new,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub t <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22189	22304	
==>\} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18610	18725	
==>\} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2176	2318	
==>ode) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2176	2318	
==>ode) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2176	2318	
==>ode) {
    my $i = 0;
    my $len = +@a;
    my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	163	259	
==>::Install::Base};
}

sub c_files {
	warn "c_files has been changed to cc_files to reduce confusio <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6041	6134	
==>compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", option <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5832	5924	
==>compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", option <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3635	3755	
==>}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3635	3755	
==>}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($p <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4225	4345	
==>}) {
	    # XXX: handle array concating
	    $param->bind($current, $lv, $pad);
	    $bound{$param_name}++;
	}
	elsif ($p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1256	1356	
==>$self = shift;

	push @{ $self->{param_count_stack} }, 0;
	
	$self->SUPER::enter_scope;	
}

sub leave <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29984	30077	
==>anish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34536	34629	
==>anish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4758	4878	
==>slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4758	4878	
==>slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Per <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4758	4878	
==>slice})."\n";
    #$self->{array}->items;
    my @a;
    warn "Infinite sub-slices are not supported yet" 
        if Per <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1443	1539	
==>-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1443	1539	
==>-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1443	1539	
==>-e $cfg{preludepc} and -s $cfg{preludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{prelud <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	733	852	
==>response created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } els <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	733	852	
==>response created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } els <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4306	4424	
==>/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4306	4424	
==>/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4306	4424	
==>/doc.  Thanks.
    #
    #   Luke

    my $jsname   = $self->jsname;
    my $pairname = PIL::doublequote substr $name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3395	3507	
==>ore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3395	3507	
==>ore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3395	3507	
==>ore;

  my @lvalue_fix = $lvalue
    ? ("", "")
    : ("new PIL2JS.Box.ReadOnly(", ")");

  return <<EOF;
var __r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7842	7937	
==>ould not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7842	7937	
==>ould not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7842	7937	
==>ould not be true
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	317	407	
==>ayed as UTC (Time::Piece honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4086	4199	
==>ement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complemen <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4086	4199	
==>ement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complemen <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2162	2262	
==>my $stage ($self->_stages) {
	my $result = $self->{$stage};
	return 1 if defined $result && $result-> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	176	276	
==>mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	176	276	
==>mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	176	276	
==>mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Root: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2246	2379	
==>r::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2793	2926	
==>r::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3340	3473	
==>r::__object__ );

  sub new {
    my ($class, $rx, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8869	8996	
==>stPlan.new( expect => $tests );
      }
      elsif $explanation eq 'no_plan'
      {
          $.testplan = Test::Builder::Null <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1025	1144	
==>stPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::Null <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1025	1144	
==>stPlan.new( expect => $tests );
    }
    elsif $explanation eq 'no_plan'
    {
        $.testplan = Test::Builder::Null <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30125	30215	
==>nality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34677	34767	
==>nality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C< <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33850	33940	
==>nality provided
by the 5 generic relational operators [C<extend>, C<project>, C<rename>,
C< <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9003	9101	
==>st static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same fail <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8706	8802	
==>st static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same fail <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	2361	2487	
==>d> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !d <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2361	2487	
==>d> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !d <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	4602	4708	
==>0000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2584	2680	
==>ng/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2584	2680	
==>ng/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional pa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2584	2680	
==>ng/un-boxing, return value checking and autoboxing/un-boxing
# TODO - add support for optional pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14532	14656	
==>$tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attemptin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14532	14656	
==>$tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attemptin <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14532	14656	
==>$tmp unless $@;
    eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attemptin <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6735	6877	
==>$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6735	6877	
==>$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6735	6877	
==>$pattern/.\n";
        $ret = $new_Match(?0, undef, undef, "", [], ());
      }
      $/ := $ret;
    };
  }

  JS::inline('(function (matcher) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10576	10736	
==>{
      has Bool $.passed;
      has Int  $.number;
      has Str  $.diagnostic;
      has Str  $.description;
  
      submethod BUILD (
          $.description <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1100	1246	
==>{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1100	1246	
==>{
    has Bool $.passed;
    has Int  $.number;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12382	12490	
==>ep
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pge; 1 } <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13200	13292	
==>This routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=i <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13200	13292	
==>This routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2703	2810	
==>ie "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2703	2810	
==>ie "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $fil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2703	2810	
==>ie "unknown run mode";
$go->($js);

sub write_file {
  my ($contents, $file) = @_;

  open my $fh, ">", $fil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2471	2578	
==>nger, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2471	2578	
==>nger, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2471	2578	
==>nger, as PIL2 will report
  # proper lexpad info by leaving subs in pilMain.
  $src =~ s/^(\s*)sub(\s+)(\w+) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1126	1233	
==>ements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1126	1233	
==>ements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*b <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2820	2919	
==>l::Builtins - table of prelude replacement relevant to the perl backend

=head1 SYNOPSIS

    use Bl <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26891	27004	
==>\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      <De <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	771	881	
==>s Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4249	4359	
==>s Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11555	11745	
==>rams[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11555	11745	
==>rams[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11555	11745	
==>rams[$i..$#params] ] ); XXX
                        return 1;   # @params = ();
                    }
                    else {
                        my $mt = $spec->match_type($candidate) <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2440	2575	
==>le( 
        name => '<',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rul <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15295	15403	
==>target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue " <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15295	15403	
==>target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue " <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15018	15126	
==>p get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18495	18603	
==>p get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attr <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17911	18019	
==>p get more semijoins
    @sources = (@r_with_zero_tuples, @r_with_shared_attrs,
        @r_with_disjoint_attr <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	350	519	
==>rn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	350	519	
==>rn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2748	2846	
==>thod is_nil))
        (($current send (has_method $label)) and (= $method ($current send (get_metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3447	3562	
==>a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3447	3562	
==>a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3447	3562	
==>a,$i) {
#    # implements (1,2,3)[1] - see PrimP6.pm - postcircumfix:<[ ]>
#    $a->fetch( $i->unboxed )
#};
MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14156	14269	
==>\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14156	14269	
==>\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14156	14269	
==>\%params);
    return $method_table->{$label};                
}));

$::Class->add_method('get_method_list' => ::m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8423	8538	
==>e," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8423	8538	
==>e," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8423	8538	
==>e," of @{$j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	457	590	
==>enizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	457	590	
==>enizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tok <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	457	590	
==>enizer} }
sub env       { (shift)->{env}       }

our $DEBUG = 0;

sub parse {
    my ($self, $source) = @_;
    $self->tokenizer->tok <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2366	2488	
==>f->tests ) {
        $args->{test} = { TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $s <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7775	7875	
==>to array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7775	7875	
==>to array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	419	519	
==>IL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	419	519	
==>IL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EO <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	419	519	
==>IL::add_indent 3, $false ]}
).FETCH()([
  PIL2JS.Context.ItemAny,
@{[ PIL::add_indent 1, $cc ]}
])
EO <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	342	463	
==>html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	342	463	
==>html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	342	463	
==>html.
      // --iblech
      // I\'m sure that there must be a more efficient way to do this,
      // but if I store the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5986	6141	
==>{
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5986	6141	
==>{
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5986	6141	
==>{
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{ro} = $_[1] eq ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1197	1321	
==>)
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1197	1321	
==>)
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1197	1321	
==>)
            || confess "Bad instance (" . ($instance || 'undef') . ")";
        $instance->{id};
    }
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7308	7417	
==>nvocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

mul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10785	10894	
==>nvocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

mul <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9922	10031	
==>nvocant relation."
        if !($other!heading === $!heading);

    return $?SELF!_exclusion( $other );
}

mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	2275	2354	
==>control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	2275	2354	
==>control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	2275	2354	
==>control:|infix_postfix_meta_operator:|postfix_prefix_meta_operator:|prefix_postf <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	13429	13535	
==>ner::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	13429	13535	
==>ner::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

= <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	13429	13535	
==>ner::Hash - Perl extension for Perl6 "Hash" class

=head1 SYNOPSIS

  use Perl6::Container::Hash;

  ...

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2863	2970	
==>self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2863	2970	
==>self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2863	2970	
==>self;
  }
}

method chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primi <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3132	3291	
==>], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3132	3291	
==>], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31516	31614	
==>(??{ ... })>.  Using the 'p' form is deprecated, but is
still allowed, so I delete its handler too. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6298	6445	
==>ment to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6298	6445	
==>ment to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6298	6445	
==>ment to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell', $scalar->cell);
                re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3682	3779	
==>pile(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2604	2698	
==>open }
method end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2604	2698	
==>open }
method end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ( <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10682	10777	
==>self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mod <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10682	10777	
==>self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10598	10713	
==>if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10598	10713	
==>if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10598	10713	
==>if $_[1] eq 'Array' && Perl6::Value::p6v_isa( _('$.referred'), 'Array' );
                return 1 if $_[1] eq 'Hash <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3984	4083	
==>:Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3984	4083	
==>:Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3984	4083	
==>:Scalar package

use strict;
use Carp;

use Perl6::MetaModel;
use Perl6::Value;
use Perl6::Container <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3530	3674	
==>\@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3994	4138	
==>\@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3925	4028	
==>of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3925	4028	
==>of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3925	4028	
==>of the reference will be written to pil2js.pl's STDIN.
sub run_pil2js {
  my @args = @_;
  unshift @args <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8995	9137	
==>ust go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8995	9137	
==>ust go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8995	9137	
==>ust go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->add_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21702	21803	
==>xa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21702	21803	
==>xa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21702	21803	
==>xa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_from_l(split(/$splitstr/,$str));
};
# Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13131	13279	
==>[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13131	13279	
==>[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13131	13279	
==>[1] => [ $method, $dispatcher->(1) ] };
            return $method->($_[0], @{$_[2]});     
        }        
    }

    ## next METHOD;
    # this m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2649	2768	
==>_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2649	2768	
==>_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2649	2768	
==>_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(undefined));
    }
    cc( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5969	6071	
==>ditor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5969	6071	
==>ditor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5969	6071	
==>ditor });

When pruning is turned on, a custom reblesser has the opportunity to prune
(skip) subtrees i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3392	3483	
==>'id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3392	3483	
==>'id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3392	3483	
==>'id' => method () { ::opaque_instance_id($::SELF) });

::Class.meta.add_method('superclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	139	273	
==>ant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	139	273	
==>ant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  S <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	139	273	
==>ant {
  SUBTHUNK     => 1,
  SUBPRIM      => 2,
  SUBBLOCK     => 3,
  SUBPOINTY    => 4,
  SUBROUTINE   => 5,
  SUBMETHOD    => 6,
  S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4236	4343	
==>create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4236	4343	
==>create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   R <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4236	4343	
==>create ($xx0) {""};
MACROP5   Module::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	107	232	
==>ort {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	107	232	
==>ort {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	107	232	
==>ort {
    # load the meta-model ..
    require Perl6::MetaModel::Genesis;
    
    # export &class
    no strict 'refs';
    m <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18914	19007	
==>nt => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18914	19007	
==>nt => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persi <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16923	17013	
==>qualityExpression>
    | <BitwiseANDExpression> <'&'> <EqualityExpression>
}
rule BitwiseAN <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15907	16006	
==>()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will b <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15907	16006	
==>()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will b <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1858	1951	
==>de' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeCompile->new($type=>$f)->as_p5();
}
if ($re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1602	1732	
==>$i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1602	1732	
==>$i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1602	1732	
==>$i);
            my $superclass = $i->nextToken;
            $current_class->superclasses([ 
                @{$current_class->supe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3610	3734	
==>s_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3610	3734	
==>s_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $sel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3610	3734	
==>s_first_slurpy,
      fixedName     => PIL::lookup_var $self->name,
    } => "PIL::MkTParam";
  }

  sub as_js0 {
    my $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2210	2300	
==>return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2210	2300	
==>return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2210	2300	
==>return str.length })')(~$self) }
method graphs (Str $self:) { JS::inline('(function (str) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	5041	5164	
==>_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-ever <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	5041	5164	
==>_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-ever <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	5041	5164	
==>_slurpy_array(args);";
    }

    my $jsname = $self->jsname;
    my $undef  = PIL::undef_of $name;
    # Are we a take-ever <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11442	11538	
==>oo funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str : <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11500	11596	
==>oo funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str : <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2570	2817	
==>class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages u <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2570	2817	
==>class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2283	2392	
==>el to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2283	2392	
==>el to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	2283	2392	
==>el to fetch";
        $instance->{attrs}->{$label};
    }
    
    sub ::opaque_instance_add_new_attribute ($$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1849	1975	
==>turn $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1849	1975	
==>turn $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "I <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1849	1975	
==>turn $sub->($thing->as_js);
    } else {
      return sprintf "%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2356	2501	
==>:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2356	2501	
==>:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2356	2501	
==>:as ($x, $to) { 
    my $tmp;
    my $class = $to->unboxed;
    eval { $tmp = $x->$class };
    if ( $@ ) {
        my $c = lc($class);
        ev <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3109	3207	
==>:Foo->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

The compiler reduces an A <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	36529	36626	
==>quential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41078	41175	
==>quential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40692	40789	
==>quential.  A trivial case is where C<@others> is an
empty list, in which case the returned Relatio <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3963	4073	
==>=> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_RB <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	827	926	
==>ect a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	827	926	
==>ect a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3952	4093	
==>" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3952	4093	
==>" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slig <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3952	4093	
==>" if $arity < 2;

  my $ret = @array.shift;
  while +@array > 0 {
    my @args;
    my $i; loop ($i = 0; $i < $arity - 1; $i++) {
      # Slig <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9179	9284	
==>ection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9179	9284	
==>ection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	2481	2577	
==>);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	2481	2577	
==>);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->S <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	2481	2577	
==>);
$::{'*'}->STORE('::EigenClass' => $::EigenClass);

# and create our Main package 

$::{'*'}->S <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	299	420	
==>gn.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/gr <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	299	420	
==>gn.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/gr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PLit.pm	38	151	
==>strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PLit.pm	38	151	
==>strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PLit.pm	38	151	
==>strict;

sub fixup {
  my $self = shift;
  die unless keys %$self == 1;

  return bless { (%$self)[0] => (%$self)[ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1383	1483	
==>})')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1383	1483	
==>})')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1383	1483	
==>})')($mod, @imports);
}

sub PIL2JS::Internals::use_jsan_module_noimp(Str $mod) {
  # JSAN.use("Foo", <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1420	1514	
==>urn func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1420	1514	
==>urn func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(o <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1420	1514	
==>urn func.apply(func,args);
}

function perl_get_method(obj, func) {
    return Perl5.perl_can(o <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1936	2032	
==>$key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Sta <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1936	2032	
==>$key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Sta <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11810	11973	
==>n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \" <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8092	8255	
==>n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \" <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8926	9089	
==>n" .
                "    \$src =~ s/([\\'\"\\\\])/\\\\\$1/g;\n" .
                "    my \$ret = eval( '\"' . \$src . '\"' ); \n" .
                #"    print \" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2685	2785	
==>n (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2685	2785	
==>n (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2685	2785	
==>n (retval) {
    if(!PIL2JS.cps2normal(
      _26main_3a_3aprefix_3a_3f.FETCH(),
      [PIL2JS.Contex <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1376	1480	
==>$tot strokes.\n";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: o <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3941	4042	
==>match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3941	4042	
==>match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	12996	13102	
==>( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16473	16579	
==>( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15835	15941	
==>( $!heading ) === none( $other!heading )) {
        # Both sources have exclusive headings; result is cross <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7367	7486	
==>:CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for Eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7367	7486	
==>:CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for Eigen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7367	7486	
==>:CLASS->[0]      ||    # for instance methods
             $::CALLER::CLASS->[0] == ${$::CLASS->[1]}->[0])   # for Eigen <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	211	347	
==>might need to be a bit more elegant, and not blow it away every go
{   system( qq[rm -rf $Root] )                                  and di <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7162	7284	
==>ferent type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7162	7284	
==>ferent type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5652	5766	
==>>params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5652	5766	
==>>params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for prim <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5652	5766	
==>>params };

    # $?SUBNAME handled in PIL::PSub
    # We've to exclude $! from the list of vars-to-backup for prim <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1389	1499	
==>\n";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   p <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11144	11238	
==>t returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_c <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11144	11238	
==>t returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	602	720	
==>e=>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        i <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	505	604	
==>se note that this is nothingmuch's first article that he read from cover
# to cover with no hand hol <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14796	14886	
==>erse dont currently work.
%# XXX - more...
re_reverse(R,R).

%----------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17698	17879	
==>des => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_t <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17698	17879	
==>des => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2272	2394	
==>els}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix';
        my $te <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17909	18053	
==>',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C< <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17909	18053	
==>',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C< <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	227	340	
==>se Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15399	15518	
==>oodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bu <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15399	15518	
==>oodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1242	1364	
==>autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $! <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1242	1364	
==>autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $! <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1736	1846	
==>$() } }
RULE
*{'sub_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>) <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	165	264	
==>::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@I <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4887	4985	
==>pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4887	4985	
==>pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5368	5487	
==>_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5368	5487	
==>_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $ro <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5368	5487	
==>_all_roles));

my $_resolve = sub {
    my ($self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $ro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5422	5538	
==>..';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_str($_[0],'$<op>');
    my $condition = emit(g <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25239	25329	
==>n.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschm <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25239	25329	
==>n.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschm <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4231	4341	
==>/>/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchOb <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	184	284	
==>alue::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_ra <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	184	284	
==>alue::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_ra <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1865	2045	
==>in};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1865	2045	
==>in};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $co <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2896	2985	
==>-lazily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_obj <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5711	5899	
==>tch) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5711	5899	
==>tch) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.leng <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5711	5899	
==>tch) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.leng <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19863	19963	
==>t can
not be changed afterwards.

If you want something similar but that is more mutable, you can acc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24415	24515	
==>t can
not be changed afterwards.

If you want something similar but that is more mutable, you can acc <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22967	23067	
==>t can
not be changed afterwards.

If you want something similar but that is more mutable, you can acc <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	262	360	
==>note efficiency isnt currently on the goal list.

CAVEAT - This file so far represents only a an ho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6988	7085	
==>f.header("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Co <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6988	7085	
==>f.header("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Co <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7894	7989	
==>my $command_line = $self->_command_line();

Returns the full command line that will be run to te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15629	15730	
==>s no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15629	15730	
==>s no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15629	15730	
==>s no " . $params->{for} . " attribute table";
    }
}));

$::Class->add_method('get_attribute' => ::ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	580	692	
==>A = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	580	692	
==>A = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	580	692	
==>A = qw<PIL::PVal>;

  sub as_js {
    local $_;
    return sprintf "new PIL2JS.Box.Constant([%s])",
      join ", <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2127	2234	
==>elds) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2127	2234	
==>elds) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1911	2021	
==>"%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1911	2021	
==>"%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1911	2021	
==>"%s(%s)", $sub->as_js, $thing->as_js;
    }
  } else {
    die "Internal error: \$unwrapped->{CC} already defin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8749	8861	
==>P6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8749	8861	
==>P6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8749	8861	
==>P6
#MULTI SUB prefix:<?> ($xx) {...}; # in PrimP6
#MULTI SUB int ($xx) {...}; # in PrimP6
MULTI SUB prefix:<+^> ( <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	442	546	
==>=> 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/var/www/iblech/stuff/pugs-smokes/", <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	44	143	
==>e;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing in <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	44	143	
==>e;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing in <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13069	13191	
==>= ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6544	6666	
==>= ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x <==
3	/Users/nnunley/pugs/misc/S29_round.pl	969	1090	
==>($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >  .5 { $x_round = sign($x) * ce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	4634	4777	
==>XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	4634	4777	
==>XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	4634	4777	
==>XXX - MM2.0 gc workaround
        },
        methods => { 
            'fetch' => sub { shift; _('$:cell')->fetch( @_ ) },
            'store' = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	621	721	
==>ms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	621	721	
==>ms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStm <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	621	721	
==>ms  => [map {{ fixed => PIL::lookup_var($_->[0]), user => $_->[0] }} @{ $self->{pSyms} }],
      pStm <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13903	14030	
==>ey?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13903	14030	
==>ey?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue( <==
3	/Users/nnunley/pugs/util/package-osx.pl	3552	3658	
==>man3/Inline::Pugs.3pm
        /usr/local/man/man3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        / <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	866	971	
==>uld not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	866	971	
==>uld not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$sel <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1731	1831	
==>ag = (int(rand() * 10)) % 2;
	my $selector = (int(rand() * 100)) % @l.elems;

	@l[$selector]($x, $sym <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11434	11538	
==>ior to class consturction because it isolates the Role specifc
code to the class that consumed it.

----- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11434	11538	
==>ior to class consturction because it isolates the Role specifc
code to the class that consumed it.

----- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11434	11538	
==>ior to class consturction because it isolates the Role specifc
code to the class that consumed it.

----- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12835	13094	
==>' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12835	13094	
==>' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12835	13094	
==>' ) {
                            my $ary = Hash->new;
                            for ( @params[$i..$#params] ) {
                                my $key = $_->key;
                                my $value = $_->value;
                                $ary->s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13664	13803	
==>tr' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13664	13803	
==>tr' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13664	13803	
==>tr' ) ||
        $key->isa( 'Bit' ) ||
        $key->isa( 'Rat' ) )
    ) {
        $s = $key->str->unboxed
    }
    elsif ( UNIVERSAL::can <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3356	3448	
==>ig{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3356	3448	
==>ig{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3356	3448	
==>ig{path_sep}, pwd('lib'), ($ENV{PERL5LIB} || "");
  unshift @args, "-Ilib6", "-Iblib6/lib", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	160	255	
==>ethods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	160	255	
==>ethods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	160	255	
==>ethods: tied(), keys(), values(), pairs(), kv()
# * Fixed elems(), buckets() to return boxed Int <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2003	2119	
==>r::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod BUILD ( $.output = $*OUT, $.error_output = $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	18	124	
==>r::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	18	124	
==>r::Output-0.2.1;

has $.output;
has $.error_output;

submethod BUILD ( $.output = $*OUT, $.error_output = $ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4105	4210	
==>method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft=perl6 <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4105	4210	
==>method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft=perl6 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	515	606	
==>gnized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many bran <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2207	2305	
==>}

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2207	2305	
==>}

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2207	2305	
==>}

sub prefix:<*>(Array|Pair|Hash $thing) {
  JS::inline('new PIL2JS.Box.Constant(function (args) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3284	3411	
==>2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3284	3411	
==>2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.l <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3284	3411	
==>2JS.die("Can\'t bind hash slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7460	7580	
==>aram}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7460	7580	
==>aram}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWri <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7460	7580	
==>aram}{isLValue}) {
      push @js, "$jsname = $jsname.copy();";
    }

    # not is rw?
    unless($self->{tpParam}{isWri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6217	6315	
==>k {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNew <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6217	6315	
==>k {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNew <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6217	6315	
==>k {
  my $js = <<EOF . "\n" . $_[0];
// Stubs inserted by lib/PIL2JS.pm.
var PIL2JS_printWithoutNew <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7856	7956	
==>ue
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7856	7956	
==>ue
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return und <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7856	7956	
==>ue
$::Role->add_method('isa' => ::make_method(sub { 
    my ($self, $class_name) = @_;
    return und <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1775	1887	
==>my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1775	1887	
==>my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if % <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1775	1887	
==>my %seen;
    # $array.map( { if %seen.fetch($_) { () } else { %seen.store($_,1); $_ } } )
    $array.map( { if % <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12222	12324	
==>elsif ($v > $S->{maxpar}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2649	2750	
==>{defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admin <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3610	3710	
==>{defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self->admin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6721	6827	
==>thod(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6721	6827	
==>thod(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6721	6827	
==>thod(sub {        
    ::opaque_instance_attr($::SELF => '@:subclasses');
}));

$::Class->add_method('add_s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	338	440	
==>est.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	338	440	
==>est.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use Fi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	338	440	
==>est.pm> = "<precompiled to JS>";
# should work, but doesn't (pugs dies with "can't open file").

use Fi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	832	944	
==>bj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- subclass/inheri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6722	6833	
==>now what you want (str, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6497	6601	
==>now what you want (str, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15331	15448	
==>concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15610	15727	
==>concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	87	186	
==>,
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	87	186	
==>,
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	87	186	
==>,
  Code :$STORE = { die "No STORE routine supplied" },
) is rw {
  JS::inline('new PIL2JS.Box.Const <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1720	1835	
==>t:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @ <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1720	1835	
==>t:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10412	10518	
==>ar_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\\W", !.

p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3307	3416	
==>::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3307	3416	
==>::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3307	3416	
==>::opaque_instance_attr($self => $a) = shift if @_;
			    ::opaque_instance_attr($self => $a);
			}));
			if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3045	3160	
==>ouldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3045	3160	
==>ouldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # - <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3045	3160	
==>ouldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $_;

  # - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7972	8110	
==>he others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7972	8110	
==>he others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	7972	8110	
==>he others
            local $::SELF    = $_[0];
            local $::CLASS   = $associated_with;
            local $::PACKAGE = $associated <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5133	5311	
==>}
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ mat <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5145	5323	
==>}
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ mat <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1290	1413	
==>bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub node::slurp {
    my $var = emit( <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17791	17889	
==>ithin the virtual machine, input data to it, and output data from it.

You can create more than one <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17791	17889	
==>ithin the virtual machine, input data to it, and output data from it.

You can create more than one <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	631	738	
==>ir(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	631	738	
==>ir(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	631	738	
==>ir(new PIL2JS.Box.Constant(pair), value);
      }

      // See thread "Hash creation with duplicate keys" s <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2419	2539	
==>group> | <noncapturing_group>
  | <literal> | <interpolated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | < <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1486	1578	
==>FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1486	1578	
==>FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20054	20143	
==>6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20054	20143	
==>6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20054	20143	
==>6_to_s($xx0) gt p6_to_s($xx1)) };
MULTI SUB infix:<ge> ($xx0,$xx1) { p6_from_b(p6_to_s($xx <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2299	2394	
==>S_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17003	17097	
==>plication in their other language(s) of choice.  Assuming the main
application is written in Pe <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17003	17097	
==>plication in their other language(s) of choice.  Assuming the main
application is written in Pe <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	680	777	
==>ie::Runtime - Base class for execution system (compiler + interpreter or equivalent).

=head1 SYNO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	853	943	
==>Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::S <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	853	943	
==>Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::S <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23037	23136	
==>ot meant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23037	23136	
==>ot meant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3347	3467	
==>sername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3347	3467	
==>sername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5518	5631	
==>de") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5518	5631	
==>de") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5518	5631	
==>de") {
    unshift @array, @$cmp;
    $cmp := &infix:<===>;
  }

  # XXX O(n²) implementation, needing .id or === <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12132	12284	
==>->{maxpar}) {
            &RxPOS -= length $v;
            $v = "";
          }
          elsif ($v > $S->{maxpar}) { $S->error(RPe_BGROUP) }
          e <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18616	18738	
==>1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifth <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19974	20096	
==>1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifth <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29170	29286	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29449	29565	
==>h = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	938	1044	
==>k also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# not <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14338	14433	
==>B chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14338	14433	
==>B chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14338	14433	
==>B chars ($xx) { p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5590	5704	
==>r propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5590	5704	
==>r propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5590	5704	
==>r propagation.
    my $body = $_[0]{'pSubBody'}->expand();
    $body = 'my %_codes_; '.$body;
    my $sub = p6_new_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	438	547	
==>, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	438	547	
==>, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	438	547	
==>, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    my ($self, $nam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8523	8644	
==>[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8523	8644	
==>[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8523	8644	
==>[i].BINDTO;
      }

      for(var i = 0; i < backup_arr.length; i++) {
        if(iarr[i].isConstant && iarr[i].FETCH() = <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10955	11056	
==>pile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10078	10167	
==>def","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10813	10902	
==>def","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$' <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	15867	16057	
==>al.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    => @tm[3],
            min     => @tm[4],
            sec     => @tm[5 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1769	1874	
==>exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1769	1874	
==>exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16684	16809	
==>etimes
        $results =~ s/\n\n/\n/g;
    }

    my $pass = $resolve->($results);
    unless ($pass) {
        _diag "# PROG <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4904	5014	
==>e;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        b <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5097	5207	
==>e;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        b <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2069	2182	
==>(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD) <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2069	2182	
==>(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1588	1686	
==>$output .= "node_" . $class->class->id . " -- node_" . $class->id . " [ dir = back, style = dotted, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5236	5328	
==>ass->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5236	5328	
==>ass->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5236	5328	
==>ass->add_method('class' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4298	4423	
==>imizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/C <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4149	4270	
==>imizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/C <==
3	/Users/nnunley/pugs/util/combine_tests.pl	1982	2091	
==>umber for reference, which will
    # blow up in our faces when tests are inserted.
    # It is better then ch <==
3	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	400	536	
==>{ return $SID; }

sub SessionSet($variable, $value) {
    %Session{$variable} = $value;
}

sub SessionGet($variable) {
    return %Sessio <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	280	407	
==>e in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_typ <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	280	407	
==>e in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_typ <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4260	4361	
==>with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defi <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4260	4361	
==>with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defi <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7052	7391	
==>license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             = <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7109	7448	
==>license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             = <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15447	15553	
==>ationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpression> <'<'> <ShiftExp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2220	2330	
==>_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2220	2330	
==>_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $author <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2220	2330	
==>_role->name => $new_role);    
    return $new_role;    
}

sub _build_class {
    my ($name, $version, $author <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6352	6464	
==>ame = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6352	6464	
==>ame = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6352	6464	
==>ame = $self->jsname;
    no warnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothi <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5230	5362	
==>Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926) <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5230	5362	
==>Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40055	40152	
==>ed
from a character class, pass " in character class"; otherwise, pass an
empty string.

=head1 ER <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3177	3289	
==>.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.inters <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3177	3289	
==>.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.inters <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6589	6690	
==>ies, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6589	6690	
==>ies, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, S <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3860	3982	
==>.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7337	7459	
==>.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.ma <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6303	6425	
==>.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pairs.ma <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10596	10728	
==>witch;
        $switch =~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $switch ) if $switch ne "";
    }

    retu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9428	9535	
==>tities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0 <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9428	9535	
==>tities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7538	7640	
==>m" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7538	7640	
==>m" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TT <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7538	7640	
==>m" } }
{ package PIL::TCxtSlurpy; our @ISA = qw<PIL::TCxt>; sub main { "slurpy" } }
{
  package PIL::TT <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12356	12474	
==>or(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12356	12474	
==>or(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 un <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12356	12474	
==>or(@MRO);
}));

$::Class->add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7501	7624	
==>.= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7501	7624	
==>.= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7501	7624	
==>.= Perl6::Value::stringify( _('$.name') ) . " " if defined _('$.name');
                $s .= "(" . $_[0]->signature_str . " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6282	6388	
==>2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6282	6388	
==>2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6282	6388	
==>2JS.pm.
var PIL2JS_printWithoutNewline;
try { printWithoutNewline } catch(err) {
  PIL2JS_printWithoutNewli <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16950	17092	
==>s, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17229	17371	
==>s, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \& <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	986	1084	
==>there too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	938	1033	
==>there too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8634	8725	
==>tion->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13569	13669	
==>eys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's decla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13569	13669	
==>eys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's decla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13569	13669	
==>eys %{$table};
});

# "spec" here means "whatever annotation went with this attribute when it's decla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9209	9323	
==>t = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9209	9323	
==>t = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9209	9323	
==>t = $p->{'tpParam'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7470	7607	
==>,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7470	7607	
==>,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7470	7607	
==>,5);
          // work.
          iarr[i].isConstant && iarr[i].FETCH() == undefined
            ? new PIL2JS.Box(undefined)
            : <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25065	25161	
==>ogram.  The Message class is pure and deterministic,
such that all of its class and object method <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25065	25161	
==>ogram.  The Message class is pure and deterministic,
such that all of its class and object method <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3035	3139	
==>$span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3035	3139	
==>$span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17529	17620	
==>ORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionNoIn :words {  # see 11 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	252	362	
==>ow.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	252	362	
==>ow.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	252	362	
==>ow.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  loc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6096	6214	
==>infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6096	6214	
==>infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $ <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1989	2097	
==>urn);
}

sub cast_node_type {
	my $self = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21674	21773	
==>e using your package.  One
can override simply by using the same key code with a new user message in <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21674	21773	
==>e using your package.  One
can override simply by using the same key code with a new user message in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	12333	12536	
==>ed $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	12333	12536	
==>ed $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary-> <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	12333	12536	
==>ed $candidate;
                    if ( $spec->slurpy ) {
                        if ( $spec->type->name eq 'Array' ) {
                            my $ary = Array->new;
                            $ary-> <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2293	2401	
==>ap "$_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} for @{$self->bundles};
    }

    if (my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	58	158	
==>ule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	58	158	
==>ule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3543	3655	
==>ase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate us <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3543	3655	
==>ase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate us <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	863	954	
==>= Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_finder->duplicate_nodes($pro <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3363	3491	
==>is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3363	3491	
==>is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17819	17910	
==>xpression> <'&&'> <BitwiseORExpression>
}
rule LogicalANDExpressionNoIn :words {  # see 11.1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3822	3926	
==>t work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3822	3926	
==>t work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3822	3926	
==>t work!
# Ok, so why don't you use JS::Root::infix:<~> then?
#   Because the following doesn't parse curr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	360	498	
==>les
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq '$*OS';  
    
    # special variables
    return '$::_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24598	24690	
==>use accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24598	24690	
==>use accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4993	5130	
==>create the directory an index file lives in (ignores errors)
            # and touch the index file.
            $index->dir->mkpath, $ind <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1683	1807	
==>ompile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class s <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1683	1807	
==>ompile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class s <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1332	1434	
==>'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textare <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1332	1434	
==>'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textare <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	244	332	
==>ieblingsfarbe ist %lieblings{'Farbe'}";
say "{$wer}s Lieblingsdrink ist %lieblings{'Drink <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7233	7400	
==>it( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5711	5817	
==>V{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Port <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5711	5817	
==>V{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Port <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3202	3335	
==>::Set') };

### package constants
use constant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Pack <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	831	958	
==>$rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	831	958	
==>$rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4387	4493	
==>lder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4387	4493	
==>lder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5911	6017	
==>lder::TestPlan object.

=back

=item B<create( *@args )>

This method actually creates and returns a new Te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6432	6538	
==>n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6432	6538	
==>n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqr <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6432	6538	
==>n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to_n($xx)) ) };
MULTI SUB sqrt ($xx) { p6_from_n( sqr <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1923	2126	
==>st ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_traverse;
        say '  ' x $depth, @s 
    }
    
    if $tree.ref ne 'Array' {
        dbg "  # -- unknown: <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25305	25396	
==>.org/philosophy/free-sw.html>.  You may copy and distribute
such a system following the term <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25305	25396	
==>.org/philosophy/free-sw.html>.  You may copy and distribute
such a system following the term <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20293	20389	
==>h($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20293	20389	
==>h($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20293	20389	
==>h($xx0,$xx1))) };
MULTI SUB infix:<=:=> ($xx0,$xx1) { Perl6::Value::identify($xx0) eq Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14150	14245	
==>he recommended "Good Practice" order.

Any return values of the callback routine are ignored.  T <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14150	14245	
==>he recommended "Good Practice" order.

Any return values of the callback routine are ignored.  T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21660	21763	
==>$xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21660	21763	
==>$xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21660	21763	
==>$xx0->push( @xxa ) };
MULTI SUB split (*@xxa) {
    my($splitstr,$str) = map{p6_to_s($_)} @xxa;
    p6_f <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3150	3250	
==>e> <element_expr>? }
# XXX - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	996	1094	
==>{ 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Com <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	996	1094	
==>{ 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8188	8299	
==>b expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8188	8299	
==>b expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand() <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8188	8299	
==>b expand {
    my($pilc)=@_;
    define_classes_for($pilc);
    return "" if !defined $pilc;
    $pilc->expand() <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17285	17394	
==>->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17285	17394	
==>->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__E <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17285	17394	
==>->DESTROYALL() foreach ((reverse @classes), $::Object);
        $::IN_GLOBAL_DESTRUCTION = 1;
    }
}

1;

__E <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	590	692	
==>esults ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          retur <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	590	692	
==>esults ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          retur <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8573	8687	
==>Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8561	8675	
==>Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8490	8696	
==>a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8490	8696	
==>a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::V <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8490	8696	
==>a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RETURNING @r = @{[ map { Perl6::V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	207	313	
==>rpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	207	313	
==>rpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	207	313	
==>rpy_hashes have to be processed before.
    my (@args, @slurpy_arrays, @invocant);
    my $seen_a_slurpy_pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11109	11270	
==>"bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11109	11270	
==>"bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
su <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11109	11270	
==>"bug $@" if $@;
        $SubOrCode->new('$.name' => $name,
                        '$.params' => $params,
                        '$.body' => $subdef);
    }
}
su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4902	5009	
==>prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4902	5009	
==>prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->par <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4902	5009	
==>prefix . "LValue"  => $self->lvalue,
      "p" . $self->prefix . "IsMulti" => $self->multi,
      $self->par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6384	6513	
==>nt "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6372	6501	
==>nt "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6473	6612	
==>ull,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6473	6612	
==>ull,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$st <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6473	6612	
==>ull,null, null, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$st <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	24	119	
==>method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	24	119	
==>method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	24	119	
==>method map and sub JS::Root::map!

method JS::Root::shift(@self:) is rw {
  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2386	2479	
==>encee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2386	2479	
==>encee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2386	2479	
==>encee && thing.autoderef) thing = thing.referencee.FETCH();

    if(thing instanceof PIL2JS.Pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7557	7739	
==>h)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7557	7739	
==>h)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # pr <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7519	7620	
==>tamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step
  descr  => "Searching f <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19246	19348	
==>ion is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a tabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23798	23900	
==>ion is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a tabl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22314	22416	
==>ion is essentially a set of mappings, or a set of logical tuples; a
picture of one can look like a tabl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7060	7159	
==>_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7060	7159	
==>_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lval <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7060	7159	
==>_id,       $self->lvalue, @PIL::VARS_TO_BACKUP
        : PIL::generic_cc PIL::cur_retcc, $self->lval <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10909	11009	
==>table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10909	11009	
==>table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10909	11009	
==>table = $class->[2]->{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	2260	2355	
==>e_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	2260	2355	
==>e_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	2260	2355	
==>e_hooks.push(function () {
    $jsname = backup_container;
    $jsname.STORE(new PIL2JS.Box.Cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8724	8830	
==>OF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8724	8830	
==>OF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shif <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8724	8830	
==>OF, PIL::add_indent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shif <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5462	5556	
==>vailable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5462	5556	
==>vailable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5462	5556	
==>vailable
when linking to a standalone JavaScript file.

Recommended usage:
  \$ cd perl5/PIL2JS <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5633	5777	
==>lues[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


# copied from S29 <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	875	972	
==>ucceed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quan <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	875	972	
==>ucceed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quan <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37635	37818	
==>new('%:methods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4048	4154	
==>.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4048	4154	
==>.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6894	7001	
==>emented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1251	1355	
==>emented" };
sub delete_op { die "not implemented" };
sub get_op    { die "not implemented" };
sub inherit <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	353	454	
==>emented" };
sub delete_op { die "not implemented" };
sub get_op { die "not implemented" };
sub inherit <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	861	986	
==>_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	762	887	
==>_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
} <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25791	25879	
==>.h]
 #define ROPT_ANCH		(ROPT_ANCH_BOL|ROPT_ANCH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #de <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6597	6713	
==>tern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript Reg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6597	6713	
==>tern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript Reg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6597	6713	
==>tern,$flags,~$string);
      if !defined $ret {  # XXX - should really be die, not warn.
        warn "JavaScript Reg <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2914	3010	
==>et1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2914	3010	
==>et1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2. <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2951	3051	
==>lass, \&Point, '... got the right class name');

is($p1->get_x, 15, '... got the right x for p1');
is <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7414	7510	
==>ired when a '=end' directive (which is preceeded by an '=begin' directive) 
is reached.

=item I< <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7414	7510	
==>ired when a '=end' directive (which is preceeded by an '=begin' directive) 
is reached.

=item I< <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5664	5781	
==>vious => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    ) <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5664	5781	
==>vious => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    ) <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2185	2317	
==>ed dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisfie <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3550	3674	
==>ed dependencies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisfie <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1907	2037	
==>iltin {
        given lc $lang {
            when 'perl6'   { Pugs::Internals::eval($code) };
            when 'perl5'   { Pugs::In <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2950	3057	
==>et::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2950	3057	
==>et::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17005	17138	
==>rom a file
  wait              the wait code of the test run, if from a file

  max               total tests which should have been r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2290	2418	
==>uantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::cap <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2301	2429	
==>uantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::cap <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	7457	7611	
==>$tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	7457	7611	
==>$tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTO <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	7457	7611	
==>$tmp = _('$:cell')->fetch;
                return 0 unless ref($tmp);
                defined $tmp ? $tmp->does($cls) : 0;
            },
            'AUTO <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3063	3231	
==>LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::D <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3063	3231	
==>LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::D <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	598	700	
==>O - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	598	700	
==>O - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells w <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	598	700	
==>O - keys(), values(), pairs(), kv() - lazy (non-infinite)
# TODO - each() methods
# TODO - hash cells w <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5330	5465	
==>nd_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5330	5465	
==>nd_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	14962	15064	
==>e type of the parameter with the type to the left of the arrow in the function's type,
	# this causes t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	30	124	
==>s $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	30	124	
==>s $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	30	124	
==>s $self->[...]->isa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12703	12815	
==>eset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12703	12815	
==>eset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{h <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12703	12815	
==>eset the iterator
    each %{$this->{hashref}};
}
sub nextkey {
    my ( $this, $key ) = @_;
    each %{$this->{h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2716	2841	
==>"* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2933	3058	
==>"* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3742	3864	
==>int "P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else { <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	287	393	
==>s = (ref $self)->new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		b <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	16329	16425	
==>pans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence objec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16329	16425	
==>pans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	16085	16262	
==>ay->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	16085	16262	
==>ay->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	16085	16262	
==>ay->map( 
        bless sub { 
            return $_[0] if $code->($_[0]);
            return
        }, '_MySub' ); 
}

sub kv { 
    my $array = shift;
    my $count = 0;
    r <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3735	3835	
==>ce( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7212	7312	
==>ce( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6169	6269	
==>ce( all( $mapping.keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1345	1456	
==>t one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_N <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1345	1456	
==>t one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_N <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9665	9765	
==>depth.  To restrict the depth to which it reaches, pass walker()
an argument:

  my $iter = $parser-> <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	909	1008	
==>( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( * <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	909	1008	
==>( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( * <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	13	105	
==>b uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	13	105	
==>b uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	13	105	
==>b uses JSAN internals
sub PIL2JS::Internals::use_jsan_module_imp(Str $mod, *@imports) {
  JS: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	256	354	
==>::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	256	354	
==>::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1875	1974	
==>n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1875	1974	
==>n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1875	1974	
==>n {my($n)=@_; p6_new(int($n) == $n ? 'Int' : 'Num', 0+$n)}
sub p6_from_s {my($s)=@_; p6_new('Str',"$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7036	7152	
==>] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7036	7152	
==>] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ mai <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7036	7152	
==>] }
  sub type { $_[0]->cxt->[0] }

  sub fixup { $_[0] }

  sub as_js {
    return sprintf "new PIL2JS.Context({ mai <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	2514	2626	
==>n $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	2514	2626	
==>n $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	2514	2626	
==>n $_->{$name} if $_->{$name};
  }

  # It's a global.
  return $name;
}

sub fail { die "*** $_[0]\n    at $CUR_P <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7936	8090	
==>kMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7936	8090	
==>kMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7936	8090	
==>kMatch(false, null,null, null, null,null);
    #      }
    #      var g_from = match.index;
    #      var g_array = [];
    #      var g_to;
    #      w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	5413	5524	
==>self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	5413	5524	
==>self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	5413	5524	
==>self) = @_;
    my @subroles = $self->collect_all_roles;
    foreach my $role (@subroles) {
        foreach my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46045	46177	
==>ck->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:name'), $e->g <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3445	3545	
==>)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3445	3545	
==>)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5359	5460	
==>es.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5359	5460	
==>es.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7556	7657	
==>es.

=item B<report returns Str>

This returns a string which follows the TAP protocol:

  ok 1 - test <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16981	17093	
==>enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = ( <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16981	17093	
==>enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = ( <==
3	/Users/nnunley/pugs/util/ghc_setup.pl	815	926	
==>ther Haskell programs, type '$Config{make} register'.
.
    }
    else {
        print << ".";
*** Installed suc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23370	23473	
==>),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23370	23473	
==>),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23370	23473	
==>),p6_to_n($xx1));
    my($v2,$v3)= map { defined $_ ? p6_to_n($_) : undef } @xxa;
    p6_from_s(substr($ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1470	1655	
==>packages => {
                default     => [ ],
                no_override => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or erro <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4017	4120	
==>rce_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self- <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1324	1427	
==>rce_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7891	7991	
==>SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7891	7991	
==>SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7891	7991	
==>SpeedupHack"),
      $self->multi
        ? PIL::add_indent(1, "var only_check_for_params = args.only <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	631	750	
==>' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	631	750	
==>' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, N <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	631	750	
==>' => ::make_method(sub { 
    my ($class, %params) = @_;
    ($params{repr} eq 'P6opaque') 
        || confess "Sorry, N <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21754	21903	
==>('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44661	44810	
==>('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1107	1217	
==>ect should use symbolic names; better use TABLE instead of 'literal'
            #print " @{[ sort @expect ]} \ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4192	4319	
==>@cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4192	4319	
==>@cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) <==
3	/Users/nnunley/pugs/util/package-osx.pl	7242	7350	
==>3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/local/man/man3/Perl6::Spec::CPAN.3
        /usr/lo <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25435	25561	
==>use regmust in many cases to locate where the search
 * starts in the string, so if regback is >= 0, the regmust search is neve <==
3	/Users/nnunley/pugs/util/package-osx.pl	839	964	
==>dylib
        /usr/local/lib/libparrot.a
        /usr/local/lib/libparrot.dylib
        /usr/local/lib/parrot
        /usr/loc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14577	14687	
==>6 = Pugs::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{pe <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19054	19190	
==>'>
    | <'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expres <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	356	469	
==>number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert() <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1884	1997	
==>number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert() <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8438	8528	
==>ny block of characters is interpolated for modifiers.

=item I<end_element ('line_interpola <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8438	8528	
==>ny block of characters is interpolated for modifiers.

=item I<end_element ('line_interpola <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3313	3442	
==>tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'AR <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3313	3442	
==>tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'AR <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6362	6458	
==>, -package => 'readline' if grep /^-DPUGS_HAVE_READLINE$/, @_;
    push @pkgs, -package => 'plugi <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	3223	3327	
==>her.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = se <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3223	3327	
==>her.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = se <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	774	890	
==>= Blondie::Reducer::DynamicScoping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	155	252	
==>al
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missing argu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	155	252	
==>al
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missing argu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3668	3801	
==>b {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3668	3801	
==>b {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3668	3801	
==>b {}   unless defined $param{DESTROY}; 
    $param{clone}   = sub { 
        my $self = shift;
        my $clone = bless { %$self }, r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5226	5373	
==>index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a m <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5690	5837	
==>index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a m <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	854	999	
==>x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.push(int($y / $x)) }
            default  { die "Invalid token:\" <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16082	16185	
==>s::unify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6981	7104	
==>::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6981	7104	
==>::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6981	7104	
==>::Class->add_method('_merge' => ::make_private_method(sub {                
    my ($self, @seqs) = @_;
    my @res;
    whi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7133	7271	
==>okie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    } <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7133	7271	
==>okie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    } <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3020	3151	
==>sion = $Config::Config{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31783	31875	
==>ed C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36333	36425	
==>ed C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-meth <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4637	4738	
==>nc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/ <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	26956	27050	
==>ct> but that the returned Relation has
the complement subset of the original's attributes to wh <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31508	31602	
==>ct> but that the returned Relation has
the complement subset of the original's attributes to wh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2455	2560	
==>)}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2455	2560	
==>)}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2455	2560	
==>)}
sub p6_defined {my($x)=@_; defined $x;}# XXX - p6_defined(p6_undef) is not 1!
sub p6_die  {my(@args)=@_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	634	761	
==>lse              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	634	761	
==>lse              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	634	761	
==>lse              { ?0 }
}
our &infix:<xor> = &infix:<^^>;

sub infix:<?|>   ($a, $b)      is primitive { ?($a || $b) }

sub infi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14352	14445	
==>{ p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14352	14445	
==>{ p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14352	14445	
==>{ p6_from_n(length(p6_to_s($xx))) };
MULTI SUB bytes ($xx) { use bytes; p6_from_n(length(p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4024	4135	
==>y ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_co <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4024	4135	
==>y ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_co <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3021	3115	
==>s) = @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	387	501	
==>IL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	387	501	
==>IL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	387	501	
==>IL::PNoop" if $_[0]->{pNode} eq "PNoop";

    return bless {
      pPos  => $_[0]->{pPos}->fixup,
      pExp  => un <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6028	6162	
==>.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6028	6162	
==>.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6028	6162	
==>.push( mkMatch(tf, null,null, s, null,null));
            }
            var m = mkMatch(true, from, to, str, arr, null);
            re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35518	35623	
==>s:>)

Data: array reference of any number of objects

Ender: I<tail>

=head2 open

Family: open

Types: op <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	736	837	
==>), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - do <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	736	837	
==>), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - do <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	240	354	
==>t(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	240	354	
==>t(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	240	354	
==>t(hash.exists(key)));
    })')(%$self, $idx);
  } elsif $self.isa("Pair") {
    $self.key eq $idx;
  } elsif $self. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1128	1251	
==>);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1128	1251	
==>);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1128	1251	
==>);
    return $ret if defined $ret;
    p6_from_b(p6_to_s($a) eq p6_to_s($b));
}


# a first few - dont add more here?
MULTI <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4078	4163	
==>-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ( <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4078	4163	
==>-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ( <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9082	9245	
==>@cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = % <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9082	9245	
==>@cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = % <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4336	4449	
==>c = $conf->compile_dir->subdir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     and die $? <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9653	9789	
==>]);
    system("diff -u --minimal deleteme_pil0 deleteme_pil1");
}
sub p2p {
    my($fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	18976	19084	
==>:Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	18976	19084	
==>:Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	18976	19084	
==>:Value::List->from_range( start => $xx0, end => $xx1 )
    )         
};
#MULTI SUB infix:<..^> ($xx0,$xx1) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10783	10952	
==>uired $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10783	10952	
==>uired $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    } <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10783	10952	
==>uired $num_required - given @params";
                        return (0,"err1") if $num_required > scalar @params;
                        return 1;
                    } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21035	21134	
==>v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21035	21134	
==>v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21035	21134	
==>v1) ? $_v1 : ('.$xx1.') }' };
MULTI SUB infix:<xor> ($xx0,$xx1) {...};
MULTI SUB infix:<err> ($xx0,$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	851	949	
==>ently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ s <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	851	949	
==>ently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9759	9856	
==>sh->{'bool'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_mat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2053	2177	
==>expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_ou <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2053	2177	
==>expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_ou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2133	2257	
==>expect_diag   = @expect_diag.join( "\n" ) || '';
    @expect_out       = ();
    @expect_diag      = ();

    my $received_ou <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6107	6248	
==>olute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6107	6248	
==>olute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5133	5247	
==>en; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5133	5247	
==>en; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5133	5247	
==>en; # discard the (
    my ($method_type, @params);
    my @tokens = $i->collectTokensUntil(')');
    if ($tokens[0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	301	414	
==>ss {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	301	414	
==>ss {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	301	414	
==>ss {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL <==
3	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	805	940	
==>+ $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.push(i <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34101	34201	
==>erred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the m <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34101	34201	
==>erred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22544	22665	
==>(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18965	19086	
==>(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23699	23809	
==>nside the (?:...)
  # (?i)     <-- the 'i' affects the rest of this scope

  # so if we're a (?:...), copy-and- <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8214	8340	
==>l = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8214	8340	
==>l = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1512	1646	
==>e(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1512	1646	
==>e(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1512	1646	
==>e(msg));
          window.scrollTo(0, document.body.offsetHeight
                          || document.body.scrollHeight);
          re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34251	34371	
==>my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34251	34371	
==>my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::i <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34251	34371	
==>my $array = shift;
    my $ret = $array->clone;
    for ( @{$ret->{items}} ) {
        $_ = $_->flatten() if UNIVERSAL::i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1116	1214	
==>rce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1116	1214	
==>rce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1116	1214	
==>rce:as($xx,'Ref') }
multi sub true ($xx) { coerce:as($xx,'Bit') };
multi sub int  ($xx) { coerce:as <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	716	828	
==>$item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	716	828	
==>$item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<o <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4636	4748	
==>lti Array::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Array::push (@array is rw ; *@values --> Int ) { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15803	15939	
==>ss";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... ent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15803	15939	
==>ss";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... ent <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15803	15939	
==>ss";          
    }

    sub _normal_dispatch ($$$;$) {
        my ($self, $label, $args, $is_class_method) = @_; 
        warn "... ent <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2282	2373	
==>sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2282	2373	
==>sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2282	2373	
==>sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_method(s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2807	2916	
==>bject(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	43	150	
==>{
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is expor <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	43	150	
==>{
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is expor <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19756	19852	
==>data type is immutable.  The value of
a Relation object is determined when it is constructed, and <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24308	24404	
==>data type is immutable.  The value of
a Relation object is determined when it is constructed, and <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	65	160	
==>ss;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use Exporter;
use Be <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2266	2402	
==>tch) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match-> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2266	2402	
==>tch) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match-> <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3853	3961	
==>ract the meta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_dir/$cont <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7578	7685	
==>tribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation::Exampl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9104	9210	
==>ptional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9100	9206	
==>ptional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	12274	12423	
==>code_entities($rest);
#      $body->push_content($rest);
      my $test_class = {
                      0 => 'test_fail',
                      1 => ' <==
3	/Users/nnunley/pugs/util/package-osx.pl	1121	1227	
==>al/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        / <==
3	/Users/nnunley/pugs/util/package-osx.pl	3431	3537	
==>al/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        / <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	364	476	
==>ESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	364	476	
==>ESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($sou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	364	476	
==>ESPACE);
    return $self;
}

sub tokenize { 
    my ($self, $source) = @_;
    $self->{tokenizer}->tokenize($sou <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1258	1360	
==>end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1258	1360	
==>end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16348	16468	
==>y $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12769	12889	
==>y $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn( <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1995	2100	
==>OK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	705	795	
==>:Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005- <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	705	795	
==>:Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2229	2326	
==>al packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27561	27658	
==>s.  If C<$body> is undefined or an empty Set,
the Relation::Example has zero tuples.  If a Relatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2229	2326	
==>al packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2853	2981	
==>ew(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub pla <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2853	2981	
==>ew(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub pla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4377	4505	
==>ew(
        output => Test::Builder::Output.new(
           error_output => open('my_error_log_file')
        )
    );

  sub pla <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2418	2515	
==>a number of bytes and throwing the return value away.
Encryptions after this point will be using s <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2418	2515	
==>a number of bytes and throwing the return value away.
Encryptions after this point will be using s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2549	2670	
==>, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2549	2670	
==>, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exce <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2549	2670	
==>, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($proto) || $proto;
	$level++;
	die "maximum recursion level exce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3564	3668	
==>l6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3564	3668	
==>l6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destr <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3564	3668	
==>l6 version too
#
# TODO - Tests: - add to t/data_types/lazy_lists.t
# TODO - fetch/store should not destr <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14876	14986	
==>shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18353	18463	
==>shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # s <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17769	17879	
==>shared_attrs = @r_with_shared_attrs.sort:{
            $^b.heading.size() <=> $^a.heading.size()
        }; # s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1957	2123	
==>eturn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1957	2123	
==>eturn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9431	9537	
==>the perl program ]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netwa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4142	4256	
==>param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4142	4256	
==>param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4732	4846	
==>param->p5type ne '$') {
	    $param->slurpy_bind($pos_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16907	16999	
==>Child Nodes attribute (that
attribute defaults to empty if the corresponding argument is unde <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16907	16999	
==>Child Nodes attribute (that
attribute defaults to empty if the corresponding argument is unde <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23933	24059	
==>asses)))
          ($self: set_attr ((symbol new @:MRO) (list new)))          
          ($self: send (MRO))))
     ($self: get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3634	3743	
==>ty to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5536	5645	
==>ty to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9823	9940	
==>ets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	261	373	
==>ets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	261	373	
==>ets as argument a list:

0 - a string to match 
1 - an optional "continuation"
2 - a partially built match tree
3 <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9305	9400	
==>ing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_va <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9305	9400	
==>ing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_va <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1552	1642	
==>cced::e) ** $exponent) instead?
     Pugs::Internals::exp($exponent,$base // Math::Unspecce <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4159	4264	
==>_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4159	4264	
==>_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4159	4264	
==>_class->add_method($method_name => ::make_submethod(
                    $body->{submethods}->{$method_nam <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1065	1177	
==>dy . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Co <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1065	1177	
==>dy . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1900	2000	
==>s>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs::Compiler::Rule- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15040	15137	
==>tion

Many times during a program's operation, the program (or a package it uses)
will need to dis <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15040	15137	
==>tion

Many times during a program's operation, the program (or a package it uses)
will need to dis <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5678	5853	
==>turns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5678	5853	
==>turns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14961	15055	
==>ders can also be accessed through the
following convenience methods.  These methods can both be <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14961	15055	
==>ders can also be accessed through the
following convenience methods.  These methods can both be <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2148	2395	
==>ontrol_structure:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8764	8869	
==>>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<u <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8764	8869	
==>>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	369	478	
==>f->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	369	478	
==>f->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	369	478	
==>f->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bless [[@$v]] => "PIL: <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12710	12806	
==>nds) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12768	12864	
==>nds) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35084	35177	
==>it the merge() method defined in F<Regexp::Parser::branch>,
which is used when two of the same <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	730	836	
==>reword {
    my $class = shift;
    return $class->no_match unless $_[0];
    return Pugs::Runtime::Match-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9989	10086	
==>presentation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9989	10086	
==>presentation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13231	13365	
==>t be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13231	13365	
==>t be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::C <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13231	13365	
==>t be defined yet, however, 
        # we know this wont be used anyway 
        if ($_[0] == $::Class) {
             warn "got the ::C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3044	3152	
==>s;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3044	3152	
==>s;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3044	3152	
==>s;  
}

sub _close_current_class {
    my $self = shift;
    if (my $current_class = $self->env->get('current <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20293	20403	
==>elf, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20293	20403	
==>elf, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	20293	20403	
==>elf, $label, \@_, ($autoload[0] eq 'class' ? 1 : 0));
    }
}

## add on to Class::Multimethods::Pure 
## to ma <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PNil.pm	72	182	
==>keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PNil.pm	72	182	
==>keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using func <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PNil.pm	72	182	
==>keys %{ $_[0] } == 0;

  return bless {} => "PIL::PNil";
}

sub as_js {
  # This is so even programs using func <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11151	11279	
==>rn $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .z <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11151	11279	
==>rn $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .z <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11469	11560	
==>got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11527	11618	
==>got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	28619	28790	
==>oin( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	28619	28790	
==>oin( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($it <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	28619	28790	
==>oin( ', ', @end );
                    }
                }
                # Ensure that ($only_one_item,).perl gets perlificated
                # correctly (i.e. not ($it <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	385	489	
==>("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	385	489	
==>("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	385	489	
==>("jspugs");

my $prompt = "jspugs> ";
my $OUT = $term->OUT || \*STDOUT;

print $OUT <<EOF;
Welcome to JSP <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2393	2516	
==>++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2393	2516	
==>++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } el <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2393	2516	
==>++) {
        ret.push(new PIL2JS.Box.Constant(i));
      }
      cc(new PIL2JS.Box.Constant(ret));
    })')(@$self);
  } el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10974	11083	
==>asses]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10974	11083	
==>asses]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3660	3760	
==>long)r,(ulong)perl_callback);
    ret = call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(std <==
3	/Users/nnunley/pugs/util/package-osx.pl	10639	10774	
==>);
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ 
        \);\n
        for my <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2920	3040	
==>track()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($ <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2920	3040	
==>track()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4426	4541	
==>_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4426	4541	
==>_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4426	4541	
==>_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       my $pos = 0;  my $a = []; my $prev = -1; m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	2686	2781	
==>rlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	2686	2781	
==>rlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	2686	2781	
==>rlist);";
    if ($_[0]{'pScope'} eq 'STemp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3227	3325	
==>msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3227	3325	
==>msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3227	3325	
==>msg[0]
         !! "Died";
  JS::inline('new PIL2JS.Box.Constant(function (args) { PIL2JS.die(args[ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2657	2824	
==>\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule qu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2904	3071	
==>\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule qu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1299	1415	
==>e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1299	1415	
==>e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        w <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1299	1415	
==>e")};
  for %mods.keys -> $k {
    if %modifiers_known{$k} {
      if $p5 && !%modifiers_supported_p5{$k} {
        w <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39204	39332	
==>) {
      # character class specific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Character cla <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	871	963	
==>($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descript <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	871	963	
==>($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descript <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	10896	11110	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	10896	11110	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	10896	11110	
==>=> [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            # warn " ---- ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	1911	2056	
==>lf, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	1911	2056	
==>lf, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	1911	2056	
==>lf, %params);                  
    }      
}));

$::Object->add_method('DESTROYALL' => ::make_method(sub { 
    my ($self) = @_;
    my $dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12810	12919	
==>leton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12810	12919	
==>leton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) al <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12810	12919	
==>leton_method' => ::make_method(sub { 
    my ($self, $label, $method) = @_;  
#    warn "hello from (CLASS) al <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8958	9134	
==>ope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8958	9134	
==>ope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8958	9134	
==>ope... so we 
                    # just go to the next method for them 
                    ::next_METHOD();
    } 
    else {
        ::next_METHOD();
    }
}));


$::Role->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9652	9811	
==>my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9652	9811	
==>my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9652	9811	
==>my @li; push @li, $_->shift while $_->elems; 
            push @list, @li;
        }
        else {
            push @list, $_
        }
    }

    $class->new( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2002	2167	
==>=> {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2249	2414	
==>=> {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <ru <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5607	5700	
==>Table->lkey($target, $whitespacePosition);
  $token = $$currentOperatorTable{$key};
  if ( $to <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	2051	2144	
==>== 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	2051	2144	
==>== 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«* <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	2051	2144	
==>== 0 ? eval(\"throw(new Error(\\\"Modulo zero\\\"))\") : Number(a)  % Number(b)",
  "infix:«* <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14560	14653	
==>:array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14560	14653	
==>:array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14560	14653	
==>:array_INC->{'instance_data'}{'$:cell'}{tieable} = 1;
	$PIL::Run::Root::main::Perl5::array_INC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12776	12908	
==>y ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12776	12908	
==>y ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12776	12908	
==>y ( $self, @list ) = @_;
                #warn "Trying to delete() a non-slice" unless $self->tied;

                if ( UNIVERSAL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21614	21743	
==>reach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21614	21743	
==>reach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21614	21743	
==>reach my $subclass (@{$class->subclasses}) {
                unless (exists $seen{$subclass}) {
                    $seen{$subclas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1857	1973	
==>UBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1857	1973	
==>UBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1857	1973	
==>UBNAME]} + " than expected (@{[scalar @$self]})!");
EOF

    return $js;
  }

  sub as_js_bind {
    my $self = shift <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3737	3983	
==>nterface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3737	3983	
==>nterface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	874	982	
==>S'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package method::signa <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	407	505	
==>d for
dispatching private methods.

=back

Normally, when you declare a Method on a Class, it is bo <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25863	25958	
==><Message Variables>

Hash(Str) of Any - This contains zero or more variable names and values
tha <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25863	25958	
==><Message Variables>

Hash(Str) of Any - This contains zero or more variable names and values
tha <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15066	15169	
==>is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` ob <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15066	15169	
==>is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6586	6690	
==>:Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6586	6690	
==>:Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $vers <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6586	6690	
==>:Module->add_method('version' => ::make_method(sub {
    my ($self, $version) = @_;
    if (defined $vers <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9455	9586	
==>emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5796	5927	
==>emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6645	6776	
==>emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = @args\n <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	245	385	
==>ocal $/;
    my $ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $name, $space) = @_;
#    
#
#    $space = "" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	4882	5077	
==>}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	4882	5077	
==>}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	4882	5077	
==>}->{$method_name}
                    ));
                }
                else {
                    $new_class->add_singleton_method($method_name => ::make_method(
                        $body <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8211	8387	
==>rns Relation::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) return <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18290	18404	
==>rn $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRA <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14711	14825	
==>rn $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRA <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	830	957	
==>, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	830	957	
==>, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1949	2096	
==>b p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose out <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1949	2096	
==>b p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose out <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1949	2096	
==>b p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose out <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	1144	1292	
==>r Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1 <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1144	1292	
==>r Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1 <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	183	300	
==>FIXME - no insert methods
multi method delete ($index ) returns Object;
multi method delete (*@index ) returns List of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2136	2256	
==>= \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2136	2256	
==>= \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2136	2256	
==>= \$MM->new(\@_); warn \"new: \$c  \$o\"; \$o; }\n";
    $code .= "\$MM;";
    my $MM = eval($code); die "$@\n$code" if $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	14472	14680	
==>@args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_des <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	14472	14680	
==>@args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_des <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	14472	14680	
==>@args ) ) {
                        return $_sub->do(@args);
                    }
                }
                die 'No compatible MultiSub';
            },
        },
    },
};

class1 'Block'.$class_des <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6247	6356	
==>ew PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6247	6356	
==>ew PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6247	6356	
==>ew PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH()), cc = args.pop();
      ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	374	492	
==>);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	374	492	
==>);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    re <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	374	492	
==>);
    $sig->bind({ positional => [ values %vars ],
		 named => {} }, 2);

    # XXX: probably returning the var
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	346	458	
==>... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	346	458	
==>... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	346	458	
==>... :)
    my $v = $self->{pVal};

    return "new PIL2JS.Box.Constant(undefined)" if $v eq "VUndef";
    $v = bl <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5039	5184	
==>y matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_mo <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5039	5184	
==>y matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10527	10675	
==>},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10527	10675	
==>},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10527	10675	
==>},
        celems =>         sub { $size },
        cis_infinite =>   sub { $size == Inf },
        cis_contiguous => sub { 0 },
    );
}

# --- list <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	29	164	
==>e warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	29	164	
==>e warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XX <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	29	164	
==>e warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14045	14144	
==>ETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14045	14144	
==>ETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] f <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14045	14144	
==>ETH($dispatcher, $::ARGS->[0], %{$::ARGS->[1]}); 
        confess "No next-method for $::ARGS->[0] f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15219	15332	
==>o_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15219	15332	
==>o_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15219	15332	
==>o_a($x)})
		    : p6_to_s($_); } @b6;
    p6_from_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6073	6177	
==>ify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6073	6177	
==>ify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $resu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6073	6177	
==>ify($self->{slice})."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $resu <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15643	15790	
==>nes on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $ <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1967	2069	
==>tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::S <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1967	2069	
==>tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::S <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12359	12522	
==>\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8635	8798	
==>\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9470	9633	
==>\n\"\n" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15971	16072	
==>per   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15971	16072	
==>per   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5977	6093	
==>t @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'es <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6170	6286	
==>t @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'es <==
3	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	238	338	
==>s: Str ?$dir is copy, Str ?$file is copy) returns Class {
	@.known_parsers = ();

	$dir //= catfile(( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1544	1643	
==>er = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1544	1643	
==>er = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1544	1643	
==>er = ::opaque_instance_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	26628	26746	
==>→ α", ":t id");
is(t($app_id), "int", ":t id(3)");
is(t($plus_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "in <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11598	11692	
==>("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multi <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11598	11692	
==>("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	366	516	
==>hift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	850	1000	
==>hift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	266	414	
==>hift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1447	1558	
==>trs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with sha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1447	1558	
==>trs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with sha <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1447	1558	
==>trs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash is declared with sha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10201	10343	
==>$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10201	10343	
==>$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10201	10343	
==>$_[1]} 
            if exists $_class_dispatch_cache{$_[1]};
            
        my $method_table_name = '%:methods';
        # check the priv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	506	608	
==>n, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	506	608	
==>n, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	506	608	
==>n, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ENV{DISABLE_RULE_TESTS} && $ARGV[2] = <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	185	294	
==>$doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Yo <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	185	294	
==>$doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Yo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29405	29504	
==>moved from the tree.  Most node types don't merge.  Returns true if
the node was merged with the pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	37226	37418	
==>f ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	37226	37418	
==>f ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	37226	37418	
==>f ( $pos < 0 ) {
        if ( $pos == -1 ) {
            $array->push( $ret );
        }
        else {
            $array->splice( $pos+1, 0, $ret );
        }
    }
    else {
        $array- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	9546	9647	
==>(Relation $other!) returns Relation {

    die "The heading of the relation in $other is not a full su <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13023	13124	
==>(Relation $other!) returns Relation {

    die "The heading of the relation in $other is not a full su <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13305	13396	
==>--> [D], { code_type(D, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D), { number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40433	40543	
==>, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40433	40543	
==>, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $th <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40433	40543	
==>, $value ) = @_;
    unshift @{$this->{arrayref}}, $value->unboxed;
    return $value;
}
sub pop {
    my ( $th <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	29019	29117	
==>ibutes which wrap zero old attributes (they are effectively just an
extension of the relation).

=i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33571	33669	
==>ibutes which wrap zero old attributes (they are effectively just an
extension of the relation).

=i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32708	32806	
==>ibutes which wrap zero old attributes (they are effectively just an
extension of the relation).

=i <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1747	1862	
==>be a core type";    
    ($right->to_num->to_native != 0)
        || confess "Division by zero error";
    return nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	629	746	
==>,
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_bareword {
    my $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2341	2449	
==>{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$?;
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2319	2427	
==>{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$?;
} <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4217	4420	
==>l5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $f <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4217	4420	
==>l5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $f <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7914	8025	
==>ile) or die "Failed to open $index_file: $!";
    my @dirs  = sort keys %{$index->{_dirs}};    

    my @files = <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	782	923	
==>$class = shift;
        my %args = @_;

        my ($root, $pool, $pool_rel, $index, $index_file, $pkgs);
        my $tmpl = {
            roo <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15540	15631	
==>also export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping fr <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15540	15631	
==>also export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping fr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1754	1882	
==>();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1754	1882	
==>();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1754	1882	
==>();
}
exit(0);


sub p6_repl_simple {
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        m <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11307	11444	
==>1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2637	2748	
==>yof_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  # cany (any byte)
  $sel <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6425	6528	
==>eferer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6425	6528	
==>eferer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11370	11536	
==>_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person, <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11370	11536	
==>_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person, <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17163	17254	
==>re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Reg <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2464	2558	
==>e away.
Encryptions after this point will be using stronger portions of the keystream.
(Just re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2464	2558	
==>e away.
Encryptions after this point will be using stronger portions of the keystream.
(Just re <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	37718	37816	
==>and merged.  The heading of the new relation is the union of
all the headings of the source relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42267	42365	
==>and merged.  The heading of the new relation is the union of
all the headings of the source relatio <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41917	42015	
==>and merged.  The heading of the new relation is the union of
all the headings of the source relatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	204	316	
==>->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	204	316	
==>->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-3 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	204	316	
==>->arity
# * lists have an internal buffer for unshift/push
#
# 2005-09-01
# * fixed stringification
#
# 2005-08-3 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	720	844	
==>lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	925	1049	
==>lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::op <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	981	1105	
==>lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque structure
    sub ::op <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9374	9490	
==>JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9374	9490	
==>JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].F <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9374	9490	
==>JS.Box.Constant(function (args) {
    var cxt   = args.shift();
    var cc    = args.pop();
    var array = args[0].F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	4576	4685	
==>ES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	4576	4685	
==>ES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	4576	4685	
==>ES, $self->type->as_constant);

    # &PIL::Params::fixup returns the fixed PIL::Params and the fixed
    # $s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11156	11280	
==>= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::Test::Pass does Test::B <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1626	1738	
==>= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::B <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1626	1738	
==>= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::Test::Pass does Test::B <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7302	7473	
==>l },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7302	7473	
==>l },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7302	7473	
==>l },
            'bit' =>  sub { Bit->new( '$.unboxed' => 1 ) },
            'perl' => sub { 
                #my $s = "sub "; 
                my $s = lc( $::CLASS->name ) <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6376	6502	
==>Multi:    "; my $is_multi = %pad<"pIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pLValue">;
        dbg "# Para <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33188	33285	
==>with C</s> on, C<\A>), mbol (C<^> with
C</m> on)

=head2 bound

Family: anchor

Types: bound (C<\b <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5920	6014	
==>me from docs/notes/piln_object_repr_types.pod r8593.
# while (@array: --> List) { seems a prefe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	7457	7615	
==>$start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	7457	7615	
==>$start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( star <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	7457	7615	
==>$start le $end ? Inf : 0 
            }
        } 
        unless defined $count;
    $class->new(
        clone => sub { 
            $class->from_range( star <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2192	2289	
==>]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2192	2289	
==>]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2192	2289	
==>]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pVal}- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1916	2027	
==>sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1916	2027	
==>sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(c <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2152	2263	
==>sig} = Data::Bind->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(c <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5009	5117	
==>scalar @tests, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{test_count} = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4032	4124	
==>a version 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
(" <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4032	4124	
==>a version 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2557	2764	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2557	2764	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2557	2764	
==>trs => [],
        methods => {}
    },
    instance => {
        attrs => [ [ '$:cell' => { 
                        access => 'rw', 
                        build => sub { 
                            my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	314	417	
==>Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	314	417	
==>Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values % <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	314	417	
==>Data::Bind->sig(map { { var => $_, is_rw => 1 } } keys %vars);
    $sig->bind({ positional => [ values % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21446	21544	
==>( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21446	21544	
==>( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21446	21544	
==>( p6_to_s($xx1) )) };
#MULTI SUB delete ($xx0,$xx1) {...}; -- implemented in Array, Hash
#MULTI SUB <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2697	2810	
==>$self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2697	2810	
==>$self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6345	6442	
==>sm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($varlist)$init; u <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8775	8872	
==>onn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8775	8872	
==>onn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6439	6595	
==>todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depen <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6497	6653	
==>todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depen <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	639	794	
==>")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	344	481	
==>gs - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	344	481	
==>gs - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	344	481	
==>gs - ptr to native ARRAY of objects
        methods => {
            'junction_normalize' => sub {
                my @ary = @{_('$.things <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3165	3319	
==>_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $respons <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3165	3319	
==>_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $respons <==
3	/Users/nnunley/pugs/util/claim_drift.pl	181	279	
==>s to the current one if you want to regenerate
# files. We should probably make this arrangement le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1715	1848	
==>othing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1715	1848	
==>othing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1715	1848	
==>othing with them
        # but it will allow them to exist.
        # - (see t_oo/submethods.t)
        opaque_instance_attr($?SELF, $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	38	151	
==>warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	38	151	
==>warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	38	151	
==>warnings;

use JavaScript;
use UNIVERSAL::require;

# XXX: not yet
sub _map_method {
    my $class = shift;

    r <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	173	273	
==>_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	173	273	
==>_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Ro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	173	273	
==>_(%mods, Str $re, Str $qo, Str $qc) is primitive {
    rx_helper_(%mods, $re, $qo, $qc);
}
sub JS::Ro <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6903	7083	
==>();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless % <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6903	7083	
==>();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless % <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3168	3280	
==>$PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3168	3280	
==>$PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'} <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3168	3280	
==>$PIL::Run::EvalX::bb_tree_is_var = 0;
    local $PIL::Run::EvalX::bb_tree_is_var = 0;
    my $f = $self->{'pFun'} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1039	1146	
==>[NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1039	1146	
==>[NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1039	1146	
==>[NormalVarname =>
# FixedVarname]), i.e. NormalVarname is $a and FixedVarname is $a_padid.
our @CUR_LEXSCOPE <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7881	8008	
==>$rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'prop',
      t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9407	9521	
==>rusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9407	9521	
==>rusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8717	8912	
==>m => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8717	8912	
==>m => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8717	8912	
==>m => $item, count => $count ) 
        },
        sum => sub {
            Perl6::Value::numify( $_[0] ) * $item;
        },
        shift_n => sub {
            my $list = shift;
            my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33974	34068	
==>if preferred ones aren't supported by a program or its libraries.
When translating a message, a <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33974	34068	
==>if preferred ones aren't supported by a program or its libraries.
When translating a message, a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	41057	41157	
==>xtension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	41057	41157	
==>xtension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESC <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	41057	41157	
==>xtension for Perl6 "Array" class

=head1 SYNOPSIS

  use Perl6::Container::Array;

  ...

=head1 DESC <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	2118	2210	
==>< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<! <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2118	2210	
==>< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<! <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2449	2641	
==>($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2449	2641	
==>($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defin <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1888	2017	
==>le
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1085	1197	
==>y( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1085	1197	
==>y( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1085	1197	
==>y( @_ ) }
sub p6_to_s {
    if ("$_[0]" =~ /^\#<Class=/) { # XXX - kludge
	$_[0]->name; # {identifier} is long, { <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14067	14180	
==>s fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14067	14180	
==>s fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	15566	15677	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.u <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19043	19154	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.u <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	969	1075	
==>t::Harness::Iterator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work so good on 5. <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31832	32019	
==>ncrement);                        
                    return $e->get('@values')->fetch($e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _make_descend <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4366	4478	
==>lue::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @. <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4366	4478	
==>lue::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @. <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5844	5957	
==>x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

metho <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5844	5957	
==>x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

metho <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	753	886	
==>' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Ac <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	753	886	
==>' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Ac <==
3	/Users/nnunley/pugs/util/func_refact.pl	2853	2961	
==>ist of newly selected functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$dat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22328	22423	
==>t also describes the same-number versions of Relation::Heading ("Heading")
and Relation::Tuple ( <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	385	485	
==>n);
#}

#method infix:<+>($self: Duration $duration) returns Duration {
    #$self.add($duration);
#} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3249	3338	
==>__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw( <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3249	3338	
==>__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw( <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31266	31362	
==>ng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31266	31362	
==>ng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4432	4590	
==>.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4432	4590	
==>.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4986	5130	
==>import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exists $n->{param <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3017	3148	
==>package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $mat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3017	3148	
==>package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $mat <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3017	3148	
==>package Perl6::Type;

    sub new {
        # TODO - autobox/un-box hook
        my ($class, %param ) = @_;
        my ( $name, $mat <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2071	2197	
==>.= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . p <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	52	141	
==>Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinit <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	52	141	
==>Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15455	15573	
==>ed';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15455	15573	
==>ed';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15455	15573	
==>ed';
    my $v = 0 + $_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Valu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26457	26582	
==>match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26736	26861	
==>match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3158	3263	
==>s')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3158	3263	
==>s')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Ob <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3158	3263	
==>s')) {
        unless (@{$current_class->superclasses}) {
            $current_class->superclasses([ $::Ob <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	525	664	
==>t {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	525	664	
==>t {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	525	664	
==>t {
    my ($self, $name) = @_;
    foreach my $depth (0 .. $self->_depth) {
        if (my $value = ($self->_current($depth) || return)->{$ <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1485	1588	
==>{
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1485	1588	
==>{
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	449	540	
==>arrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
pack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7933	8114	
==>ems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7933	8114	
==>ems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7933	8114	
==>ems ) - 1 );
                }
                my $v = $tmp->fetch( $key );
                if ( ! Perl6::Value::p6v_isa( $v, 'Scalar' ) ) {
                    #warn "autovivify - $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1651	1756	
==>compile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1651	1756	
==>compile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelud <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1651	1756	
==>compile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unless(-e $PIL2JS::cfg{prelud <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2305	2399	
==>ode;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2305	2399	
==>ode;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExp <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10098	10324	
==>Pair(KeyExtractor, Comparator);

 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Arr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	230	330	
==>ugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gramma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	230	330	
==>ugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gramma <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3153	3260	
==>ecognise cygwin absolute paths.  This kludge includes the
    # win32ified path as well.

    if ($Config{os <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19816	19913	
==>.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can gi <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19816	19913	
==>.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can gi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	11769	11915	
==>butes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15246	15392	
==>butes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === an <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14581	14727	
==>butes in common with either other relations"
                    ~ " in @others or with the invocant."
                if any( $r2!heading ) === an <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	8691	8853	
==>) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	8691	8853	
==>) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	8691	8853	
==>) := (1,2,3);
          // (i.e., do nothing)
        } else {
          iarr[i].BINDTO(backup_arr[i]);
        }
      }

      return this;
    };

    cc(proxy) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34872	34995	
==>h, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34872	34995	
==>h, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n" <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34872	34995	
==>h, ", @list, "\n";
    # print 'insert: ', $_, ' ', $_->ref for @list, "\n";
    # print " offset $offset length $length \n" <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	868	1071	
==>else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle p <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	868	1071	
==>else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle p <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17755	17861	
==>.


=item length

This word is banned in Perl 6.  You must specify units.

=item index 

Needs to be in ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4429	4530	
==>er/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4276	4375	
==>er/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3554	3685	
==>ndef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3554	3685	
==>ndef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role ti <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3554	3685	
==>ndef;
}

# --- end Cell

# tieable, readonly
#
# These are Perl6 roles
# See: S06 - Implementation types
# See: t/trait.t
#

role ti <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12386	12479	
==>rue if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12386	12479	
==>rue if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1320	1437	
==>:Ratchet';
        while ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[ <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19176	19271	
==>layers for any other programming language can
be supported, such as Tutorial D or XQuery or FoxP <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19176	19271	
==>layers for any other programming language can
be supported, such as Tutorial D or XQuery or FoxP <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16833	16965	
==>:untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16833	16965	
==>:untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16833	16965	
==>:untainted { '' }
sub taint::tainted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_ <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	791	915	
==>($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	791	915	
==>($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	7799	7907	
==>ir if defined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    for <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	35055	35152	
==>n> if the two source headings are
identical.  This method has an alias named C<matching>.

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39605	39702	
==>n> if the two source headings are
identical.  This method has an alias named C<matching>.

=item C <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39147	39244	
==>n> if the two source headings are
identical.  This method has an alias named C<matching>.

=item C <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10929	11025	
==>>{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10929	11025	
==>>{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10929	11025	
==>>{$method_table_name};
            return ($_class_dispatch_cache{$_[1]} = $method_table->{$_[1]} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13806	13973	
==>r_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13806	13973	
==>r_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	628	748	
==>ory =~ s/^(\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->add_rule( 
            na <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3382	3508	
==>e) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3382	3508	
==>e) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7914	8028	
==>er->regex($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

If you want to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8537	8707	
==>t METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8537	8707	
==>t METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8537	8707	
==>t METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp is probably not correct ...
    elsif ($label =~ /^.(\.|\:).*$/) {
        # check fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1137	1262	
==>LOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1342	1467	
==>LOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1403	1528	
==>LOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }

    sub AUTOLOAD {
        my $label = (split '::', our $AUTOL <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	433	600	
==>name =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'ing until we need it
eval 
  q(
    use FindBin '$Bin';
    use lib
        "$Bin/lib",
        "$Bi <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18452	18538	
==>rnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the curre <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18452	18538	
==>rnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the curre <==
3	/Users/nnunley/pugs/util/build_pugs.pl	897	1001	
==>GEN_PRELUDE} } }->{'--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PRELUDE segme <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1120	1217	
==>ders.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1120	1217	
==>ders.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

o <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	305	411	
==>/pure-oo-system.scm

I ended up removing the "purely functional" aspects of it in favor of 
a more practica <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7273	7362	
==>nts, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->gramma <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1098	1187	
==>nts, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->gramma <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8692	8787	
==>is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8692	8787	
==>is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1265	1373	
==>_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1265	1373	
==>_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1265	1373	
==>_3fSUB;\n"
      if $PIL::IN_SUBLIKE >= PIL::SUBROUTINE;
    $js .= "_24main_3a_3a_3fSUBNAME = new PIL2JS.Box <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2497	2719	
==>eturn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ru <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2804	3014	
==>eturn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2804	3014	
==>eturn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
                capture => $1,
            };
        }
        return;
    };
}


# ------- higher-order ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	7168	7292	
==>ar mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	7168	7292	
==>ar mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	7168	7292	
==>ar mk_magicalarray = function () {
      var marray = [];

      for(var i = 0; i < iarr.length; i++) {
        marray[i] = n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29377	29509	
==>- clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29377	29509	
==>- clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29377	29509	
==>- clone Scalars
    my $self = bless { %{ $_[0] } }, ref $_[0];
    @{$self->{items}} = map {
            UNIVERSAL::isa( $_, 'Perl6: <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1325	1514	
==>list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %eve <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1325	1514	
==>list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %eve <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17779	17888	
==>_callback {
    my($self, $line, $type, $totals) = @_;
    print $line if $Verbose;

    my $meth = $Handlers{ <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	552	650	
==>eturn $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	552	650	
==>eturn $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = <==
3	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4395	4491	
==>asyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_list> \) ]? \> <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2149	2254	
==>b _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.ne <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2149	2254	
==>b _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.ne <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1737	1837	
==>ackage => $self ) ) {
        error("Package '". $self->package ."' is already installed --skipping") <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	320	431	
==>value; # default to 0
    (looks_like_number($value)) 
        || confess "Bad numeric value ($value)";
    bles <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8268	8373	
==>f_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8268	8373	
==>f_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8268	8373	
==>f_of($) {
  return "new PIL2JS.Box(undefined)"
    if $_[0] =~ /(?:__init_|__export_)/; # minor hack

  my <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23350	23445	
==>n Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial ext <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23350	23445	
==>n Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial ext <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1201	1305	
==>elf,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1201	1305	
==>elf,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1201	1305	
==>elf,$js)=@_;
    $self->{JS}->eval($js);
}

sub DESTROY {
    my($self)=@_;
    $self->{JS}->destroy();
} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3264	3386	
==>} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quanti <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3252	3374	
==>} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quanti <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	508	670	
==>: ]?
                [ \_ | <alnum> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->add_rule <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17020	17165	
==>it              the wait code of the test run, if from a file

  max               total tests which should have been run
  seen              tota <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	1046	1148	
==>is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1046	1148	
==>is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18910	19067	
==>OAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18910	19067	
==>OAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18910	19067	
==>OAD;        
    }
    
    sub AUTOLOAD {
        $Dispatchable::AUTOLOAD = our $AUTOLOAD;
        goto &Dispatchable::AUTOLOAD;
    }
}

{ ## Perl 5 dispatc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	484	582	
==>, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	484	582	
==>, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Cou <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	484	582	
==>, 140) or die "Couldn't setrlimit: $!\n";
    setrlimit(RLIMIT_RSS(), 1048000, 1196000) or die "Cou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	483	609	
==>st"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	483	609	
==>st"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	483	609	
==>st"          if ref $v eq "ARRAY";
    return $v->as_js;
  }
}

{
  package PIL::VList;
  our @ISA = qw<PIL::PVal>;

  sub as_j <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	8170	8407	
==>q 'CODE') {
        return sub {
            $h->();
            return { 
                bool => 1, 
                match => '', 
                #tail => $_[0] 
            };
        };
    } 
    if ( UNIVERSAL::isa( $h, ' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	12158	12320	
==>q 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	12158	12320	
==>q 'CODE') {
        return sub {
            $h->();
            return { bool => 1, match => '', tail => $_[0] };
        };
    } 
    if ( UNIVERSAL::isa( $h, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1132	1252	
==>lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }     
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	871	986	
==>lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1076	1191	
==>lvalue { shift->{id}       }
    sub ::opaque_instance_class ($) : lvalue { ${shift->{class}} }
    sub ::opaque_ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	9935	10059	
==>ie "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	9935	10059	
==>ie "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	9935	10059	
==>ie "require($pkg) - $@\n" if $@;
	if($use) {
	    my $tmp = "Temp".int(rand(10000000));
	    my $code = "package $tmp; use $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8287	8433	
==>"@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$pr <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8287	8433	
==>"@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$pr <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2571	2848	
==>)  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2571	2848	
==>)  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2020	2108	
==>TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		return quote(printable($node)),
	} <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4626	4743	
==>content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("mu <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4626	4743	
==>content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("mu <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3288	3394	
==>return 'numeric';
    }
    if($ref eq 'SCALAR') {
	return 'scalar_non_numeric' if !((~$$x & $$x) eq 0);
	r <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1560	1666	
==>dl;

  # strip away everything except status and headers
  # This should all be done better so the response <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1560	1666	
==>dl;

  # strip away everything except status and headers
  # This should all be done better so the response <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1188	1291	
==>e;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21028	21128	
==>ement>
}
rule IterationStatement :words {  # see 12.6
      <'do'> <Statement> <'while'> <'('> <Expre <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12400	12494	
==>l_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These fu <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12458	12552	
==>l_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These fu <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	1011	1108	
==>ules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*IN <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1011	1108	
==>ules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*IN <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6055	6178	
==>pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2810	2932	
==>e); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $titl <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2810	2932	
==>e); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $titl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1713	1838	
==>$self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1713	1838	
==>$self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1713	1838	
==>$self, %params);                  
    }      
}));

$::Class->add_method('BUILD' => ::make_submethod(sub { 
    my ($self, %p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1804	1931	
==>< '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1804	1931	
==>< '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1804	1931	
==>< '.';
*** Precompiled Prelude for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23299	23401	
==>rule FormalParameterList :words {  # see clause 13
      <Identifier>
    | <FormalParameterList> <','> <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3688	3771	
==>tion( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_pr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3688	3771	
==>tion( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_pr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13879	13990	
==>oin(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $k <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13879	13990	
==>oin(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $k <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2682	2774	
==>return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2682	2774	
==>return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2682	2774	
==>return undef unless $label;
    return ::WALKMETH($self->class->dispatcher(':canonical'), $la <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	255	372	
==>, @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	255	372	
==>, @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1347	1494	
==>).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1347	1494	
==>).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match- <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6733	6921	
==>subpath) ) {
            open PKGFILE, "<$subpath.pm" or die "find_extensions: Can't open $subpath.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30291	30391	
==>ore the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30291	30391	
==>ore the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	773	881	
==>ixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 => \$_[2],} }\n" .  
        "\t | 'name' 'name2' \ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18370	18474	
==>y ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "] <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14791	14895	
==>y ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5098	5218	
==>RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I just make <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5098	5218	
==>RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I just make <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4234	4344	
==>,
      $_[0]->{pugs_revision} == 0 ? "release" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8730	8831	
==>l $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $ter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8726	8827	
==>l $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $ter <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4382	4470	
==>('statement',mk_dynamic_alt(\@statements));

my @tokens;
my $tok = def_rule('token',mk_dy <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	328	435	
==>0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	328	435	
==>0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	328	435	
==>0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "PNil"  ? bless {} => "PIL::PNil"  : $_[0]->{pS <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23509	23633	
==>$a <=> $b} grep !$seen{$_}++, @failed;
    my $failed = @failed;
    my @result = ();
    my @canon = ();
    my $min;
    my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	3341	3452	
==>::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	3341	3452	
==>::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	3341	3452	
==>::bind_method_to_class($method, $self);
        $eigenclass->add_method($label, $method);        
    }
    else <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27815	27934	
==>od MRO (opaque $self:) returns list {
    unless (@:MRO) {
        @:MRO = $self._merge();
    }
    @:MRO;
}

(method M <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	48	147	
==>erl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumpe <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	48	147	
==>erl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumpe <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13390	13500	
==>a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16867	16977	
==>a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading ) <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16229	16339	
==>a semijoin.
        return $?SELF!_semijoin( $other );
    }
    if (all( $!heading ) === any( $other!heading ) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8049	8213	
==>alar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8049	8213	
==>alar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8049	8213	
==>alar -> $method on $tmp ";
                    return Str->new( '$.unboxed' => $tmp ) unless ref( $tmp );   # unboxed
                    return $tmp->$method( @para <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4269	4376	
==>of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4269	4376	
==>of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child <==
3	/Users/nnunley/pugs/util/version_h.pl	1858	1957	
==>ndles again. If we opened a new file ($version_h) without turning
  # "io" warnings off, perl will p <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	90	197	
==>dler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only rec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	90	197	
==>dler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only rec <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2575	2670	
==>rn ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2575	2670	
==>rn ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14680	14776	
==>winddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runIntera <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14680	14776	
==>winddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runIntera <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14680	14776	
==>winddir ($xx) {...};
MULTI SUB IO::Dir::readdir ($xx) {...};
MULTI SUB Pugs::Internals::runIntera <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	143	247	
==>be "start = object but true" and
      closed-set could be "start = object but false"

=cut

submethod BU <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	143	247	
==>be "start = object but true" and
      closed-set could be "start = object but false"

=cut

submethod BU <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2024	2125	
==>r(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    retur <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2024	2125	
==>r(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1453	1552	
==>Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1453	1552	
==>Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1453	1552	
==>Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_jsan_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21563	21664	
==>) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21563	21664	
==>) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21563	21664	
==>) {...};
MULTI SUB unshift (@xx0,*@xxa) { $xx0->unshift( @xxa ) };
MULTI SUB push (@xx0,*@xxa) { $xx0- <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2154	2396	
==>5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0 <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2154	2396	
==>5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6782	6872	
==>ethod('resolve' => ::make_method($_resolve));

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6782	6872	
==>ethod('resolve' => ::make_method($_resolve));

## ----------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6782	6872	
==>ethod('resolve' => ::make_method($_resolve));

## ----------------------------------------- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2819	2953	
==>x.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1441	1575	
==>x.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20667	20765	
==>1 (backrefs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub n <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5080	5316	
==>fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4292	4492	
==>fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11575	11678	
==>s are not package-specific.

Design:

  The comp hook sub should return a subref, which gets written ont <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1612	1732	
==>rguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1612	1732	
==>rguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(ob <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1612	1732	
==>rguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var method = perl_get_method(ob <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	956	1067	
==>$";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system( <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1024	1117	
==>address returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=it <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1024	1117	
==>address returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=it <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4695	4816	
==>code1 = ""; my $code2 = "";
    my $code0 = "my \$f0 = \$fs[0]; ";
    for my $i (reverse(1..$#a)) {
      $code0 .= "my \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8581	8688	
==>he second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # pr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6115	6219	
==>he second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2446	2587	
==>S.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2446	2587	
==>S.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BIND <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2446	2587	
==>S.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_value(key).BIND <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1906	2016	
==>VERSION;
@inc::Module::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $se <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	802	908	
==>( $self->{source} . ';' );
    };
    carp "Error in perl 6 parser: '$rule_source' at: '$self->{ast}{tail <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14110	14207	
==>ec, and the headers
will be visited in the recommended "Good Practice" order.

Any return values o <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14110	14207	
==>ec, and the headers
will be visited in the recommended "Good Practice" order.

Any return values o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18309	18501	
==>that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down her <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18309	18501	
==>that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down her <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18309	18501	
==>that 
    sub ::next_METHOD () { confess "next METHOD is no longer here ..." }

}

###############################################################################
## Perl 5 magic sugar down her <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2325	2468	
==>0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2325	2468	
==>0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly h <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2325	2468	
==>0;
  $arity ||= 1;

  my @res;
  my @args;
  while +@array > 0 {
    @args = ();
    my $i; loop ($i = 0; $i < $arity; $i++) {
      # Slighly h <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	422	518	
==>=> \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-pri <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	383	479	
==>=> \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-pri <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	383	479	
==>=> \$print_program,
		"print-ast" => \$print_ast,
		"print-match" => \$print_match,
		"pretty-pri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29226	29351	
==>_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29226	29351	
==>_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub c <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29226	29351	
==>_;
    my @items = @{$param{items}};
    # warn "-- new -- @items --";
    return bless { items => \@items }, $class;
}

sub c <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	726	823	
==>, is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite lis <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	726	823	
==>, is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite lis <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	157	259	
==>inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTALL: for my $archiv <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3023	3119	
==>A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^< <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3023	3119	
==>A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^< <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8317	8459	
==>ol_dir( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $pr <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	9521	9632	
==>vailable: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9521	9632	
==>vailable: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9070	9180	
==>'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9070	9180	
==>'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9070	9180	
==>'.p6_mangle($n6p);
        my $n6a = $n6p;
        my $is_slurpy = ref($p->{'tpParam'}{'paramContext'}) =~ /Slu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	34211	34302	
==>tem C<semidifference (Relation $other!) returns Relation>

This method is a generic relation <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38761	38852	
==>tem C<semidifference (Relation $other!) returns Relation>

This method is a generic relation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	13445	13665	
==>t_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	13445	13665	
==>t_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # lab <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	13445	13665	
==>t_METHOD () {
        my $dispatcher;
        if ($::DISPATCHER) {
           $dispatcher = $::DISPATCHER; 
        }
        else {
                                                          # class-id               # lab <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5756	5881	
==>.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $. <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5756	5881	
==>.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $. <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6394	6486	
==>pkg_node);
{ my \$info = \$PIL::PIL1CPerl5::NodesInfo::node_named{'$name'};
  sub info { \$in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12381	12507	
==>>add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12381	12507	
==>>add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12381	12507	
==>>add_method('is_a' => ::make_method(sub {        
    my ($self, $class) = @_;
    return 0 unless defined $class;
    return 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2056	2204	
==>o, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2056	2204	
==>o, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2056	2204	
==>o, $obj, $namespace, $opts, $level) = @_;
        $opts ||= {};
        $opts->{code} = $code;
        $editor->($opts);
        
        recurse($pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	4415	4559	
==>ass_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	4415	4559	
==>ass_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # ma <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	4415	4559	
==>ass_name . ' =>  ' . $next->name;        
        return 1 if $class_name eq $next->name;
    }
    # if we are not a class of something
    # ma <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3002	3099	
==>ethods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3002	3099	
==>ethods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2441	2551	
==>meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2441	2551	
==>meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my D <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2441	2551	
==>meta.add_method('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7959	8076	
==>} if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surr <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11955	12069	
==>} if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11955	12069	
==>} if $name =~ /^\$/;
        return $pad->{$name};  # arrayref/hashref
    }
    die "Couldn't find '$name' in surr <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5247	5346	
==>?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
option <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5247	5346	
==>?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
option <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6771	6870	
==>?, Str $reason? )>

Records that a test has passed or failed, depending on C<$passed> with an
option <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4652	4753	
==>rl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


package Perl6::Run::OnPerl5::X1::PilToPerl5;
BEGI <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31264	31364	
==>>).

=item family

The general family of this object.

=item data

The data or children of this objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	9827	9943	
==>def, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	9827	9943	
==>def, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Clas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	9827	9943	
==>def, @values) = @_;
    my $counter = 0;
    return sub { return $counter if @_; $values[$counter++] };
}));

$::Clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	148	252	
==>n bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	148	252	
==>n bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self- <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	148	252	
==>n bless { pExpr => $self->{pExpr}->fixup } => "PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3978	4092	
==>ope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3990	4104	
==>ope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (. <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	143	251	
==>::Simple    qw[:STD];
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head1 METHODS

=hea <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	419	564	
==>rom JIB::Package
sub new {
    my $self    = shift;
    my %hash    = @_;
    
    my $file; my $meta;
    my $tmpl = {
        file    => { requi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3821	3937	
==>_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar w <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3685	3797	
==>_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar w <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	8140	8264	
==>ault container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	8140	8264	
==>ault container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	8140	8264	
==>ault container for a given variable type.
#   my $x;   # Really my $x = undef
#   my @x;   # Really my @x = ()
#   etc.
sub u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5303	5411	
==>ast-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added as a ti <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5303	5411	
==>ast-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added as a ti <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	755	857	
==>s}{$_};

		$self->{current_node} = $_;
		"$name = " . $self->reduce($_) . ";\n\n";
	} @nodes, $program) <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8839	8964	
==>my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_pl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8835	8960	
==>my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_pl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21989	22077	
==>s the same-number versions of Relation::Example::Heading
and Relation::Example::Tuple.

= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5990	6096	
==>n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initializat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5990	6096	
==>n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initializat <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5990	6096	
==>n", @PIL1_HACK_CLASSDECLS) .
    "\n// End declaration of classes.\n";

  my $init_js =
    "// Initializat <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8192	8304	
==>>{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_applym('$fun_name',$argl)" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5553	5652	
==>he retry_after field is dual format (can also be a expressed as
# number of seconds from now), so we <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5553	5652	
==>he retry_after field is dual format (can also be a expressed as
# number of seconds from now), so we <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27320	27419	
==>ote that a Message object does not permit changes to its attributes; they
must all be set when the o <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27320	27419	
==>ote that a Message object does not permit changes to its attributes; they
must all be set when the o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4715	4836	
==>) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4715	4836	
==>) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4715	4836	
==>) ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => Perl6::Value::Num::to_bit( _('$.unboxed') ) ) },
            ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1339	1430	
==>_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1339	1430	
==>_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1339	1430	
==>_debug $main::pugs_args);
local $main::global_debug = $debug; 
local $main::pugs_args = join <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18118	18263	
==>E, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    retu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14539	14684	
==>E, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    retu <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25003	25135	
==>uantifierPrefix>
    | <QuantifierPrefix> <'?'>
}
rule QuantifierPrefix {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16866	17009	
==>ted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16866	17009	
==>ted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16866	17009	
==>ted   { 1 }

sub to_str        { $_[0] ? 1 : '' }
sub to_bit        { $_[0] }
sub to_num        { $_[0] == 0 ? 0 : 1 }
sub to_int        { to_nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11071	11173	
==>od('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11071	11173	
==>od('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %par <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11071	11173	
==>od('has_method' => method () {
    my ($self, $label, %params) = @_;
    $self->get_method($label, %par <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	407	559	
==>s primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	407	559	
==>s primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	407	559	
==>s primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

sub infix:<^^>   ($a, $b) is primitive {
     if  $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19809	19901	
==>m_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19809	19901	
==>m_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19809	19901	
==>m_b(p6_to_s($xx0) eq p6_to_s($xx1)) };
MULTI SUB infix:<lt> ($xx0,$xx1) { p6_from_b(p6_to_s($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1785	1940	
==>ion () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1785	1940	
==>ion () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1785	1940	
==>ion () {
          var ret = hash.get_value(key);
          return ret == undefined ? undefined : ret.FETCH();
        },
        function (n) {
          i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	1337	1446	
==>t','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	1337	1446	
==>t','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	1337	1446	
==>t','$_[0][0]')";
}
package VRat; @ISA = qw(EvalX::BaseClass); sub expand {
    "p6_new('Num','$_[0][0]')";
}
p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13356	13494	
==>ot the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             wa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13356	13494	
==>ot the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             wa <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13356	13494	
==>ot the ::Class, going to &_class_dispatch" if $DISPATCH_TRACE;
             goto &_class_dispatch;
        }
        else {
             wa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2594	2698	
==>cher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2594	2698	
==>cher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2594	2698	
==>cher(:canonical);
    while (my $next = $dispatcher.next()) {
        return bool::true if $class_name eq <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5527	5633	
==>closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( - <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5527	5633	
==>closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	408	511	
==>name = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	408	511	
==>name = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<E <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	408	511	
==>name = PIL::name_mangle($self->{name});
    my @jsargs = map { "__args[$_]" } 0..$#args;

    return <<E <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1340	1441	
==>pe;	
}

sub leave_scope {
	my $self = shift;

	$self->SUPER::leave_scope;

	pop @{ $self->{param_count <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18085	18184	
==>ences to each other at a level visible in the Rosetta Native
Interface, if at all.  To account for s <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18085	18184	
==>ences to each other at a level visible in the Rosetta Native
Interface, if at all.  To account for s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6546	6693	
==>t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_ch <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5050	5197	
==>t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_ch <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16770	16914	
==>ucer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	24495	24683	
==>r => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	24495	24683	
==>r => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $a <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	24495	24683	
==>r => sub {
                #warn "PRINT @_\n";
                my $self = shift;
                my %param = @_;
                my $samples = $param{'max'};
                # my $self = $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14483	14690	
==>ray' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14483	14690	
==>ray' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14483	14690	
==>ray' ) ? 
                        $_->to_list : 
                        warn "Argument to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2284	2385	
==>s.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2284	2385	
==>s.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2284	2385	
==>s.)
.
  my $js = precomp_module_to_mini_js "-MTest";
  write_file($js => $PIL2JS::cfg{testpc});
}

exi <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	7499	7622	
==>-o  Store results in FILE [default: $Config{"output-file"}]
    --dry, -n               Show which tests would be run but do <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5038	5143	
==>oads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    m <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5038	5143	
==>oads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7303	7397	
==>paque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7303	7397	
==>paque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore thi <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7303	7397	
==>paque_instance_attr($::Role  => '@:roles') = [ $::Role ];
$_resolve->($::Class);

# restore thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1950	2088	
==>loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1950	2088	
==>loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1950	2088	
==>loop ($i = 0; $i < $arity; $i++) {
      # Slighly hacky
      push @args: undef;
      @args[-1] := @array[$idx++];
    }
    $code(*@args <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13993	14112	
==>d most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@oth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17470	17589	
==>d most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@oth <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	22041	22146	
==>eturn if index($file, 'Test.pm') == -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6338	6440	
==>utNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6338	6440	
==>utNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF") <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6338	6440	
==>utNewline } catch(err) {
  PIL2JS_printWithoutNewline = function (str) {
    print(str + "$MAGIC_NOLF") <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21804	21902	
==>digit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(class_pos(ascii)     ,C) :- !,    isAs <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19994	20084	
==>ssor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19994	20084	
==>ssor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2006	2112	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2006	2112	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2006	2112	
==>@ISA = qw<PIL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12844	12996	
==>ALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12844	12996	
==>ALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || con <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12844	12996	
==>ALKMETH($class->dispatcher(':canonical'), 'AUTOLOAD', %opts);
            }            
            
            (defined $method)
                || con <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3725	3871	
==>e;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # Wh <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3725	3871	
==>e;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # Wh <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2610	2752	
==>$_ => $acc->{$_}->{allow} } keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Con <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2610	2761	
==>($c > 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escape{$c}) {
                    $y .= $backslash_esc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9355	9481	
==>try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9343	9469	
==>try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	250	361	
==>w man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	250	361	
==>w man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	250	361	
==>w man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

## (see p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2393	2506	
==>class = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2393	2506	
==>class = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2393	2506	
==>class = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metaclass};
    
    my $new_class = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1532	1691	
==>ts $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    retu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20006	20098	
==>self-contained and pure-Perl reference
implementation of an Engine and is included in the "Ro <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20006	20098	
==>self-contained and pure-Perl reference
implementation of an Engine and is included in the "Ro <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6999	7116	
==>NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler = <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4553	4749	
==>n {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                el <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4553	4749	
==>n {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                el <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1441	1549	
==>odule_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1441	1549	
==>odule_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1441	1549	
==>odule_noimp(Str $mod) {
  # JSAN.use("Foo", []) is the same as Perl's use Foo ().
  PIL2JS::Internals::use_js <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2453	2579	
==>hift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->array_extendSize($size - $or <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15655	15776	
==>ub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2052	2173	
==>ub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1708	1826	
==>apture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1848	1966	
==>apture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{gram <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	843	948	
==>a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = closure::signature->n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	170	300	
==>shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	170	300	
==>shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	170	300	
==>shift();
    var cc    = args.pop();
    var pairs = args[0].FETCH();
    var hash  = new PIL2JS.Hash();

    for(var i = 0; i < pa <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1979	2188	
==>st';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTI <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11287	11381	
==>ases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the sy <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11287	11381	
==>ases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the sy <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	16	136	
==>endency;

use strict;
use warnings;

use Params::Check   qw[check];

use JIB::Constants;
use JIB::Config;

use base 'Obje <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19079	19183	
==>ode.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19079	19183	
==>ode.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1723	1849	
==>nless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1916	2042	
==>nless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	312	415	
==>::Compiler::Token;
use Pugs::Compiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::To <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32939	33085	
==>pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32939	33085	
==>pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_lengt <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32939	33085	
==>pop_n( $diff );
                unshift @ret, $i;
                if ( UNIVERSAL::isa( $i, 'Perl6::Value::List') ) {
                    $ret_lengt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5796	5907	
==>te ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5796	5907	
==>te ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # cre <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5796	5907	
==>te ::Foo and ::Bar as needed from the current level
  $pkg->CREATE('Foo::Bar::&baz' => sub { ... }); 
  
  # cre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	460	565	
==>=> q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.], <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	460	565	
==>=> q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.], <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	635	759	
==>efined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@ <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	635	759	
==>efined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1262	1383	
==>fg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1262	1383	
==>fg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamod <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1262	1383	
==>fg{prelude},
  "testpc=s"      => \$cfg{testpc},
  "output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamod <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11138	11274	
==>gth == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11138	11274	
==>gth == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11138	11274	
==>gth == 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push( <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	973	1119	
==>t{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) returns List|Str {
   given want {
     when List {
       gather {
         1 whi <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	973	1110	
==>ture
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_nu <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	973	1110	
==>ture
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_nu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	806	907	
==>.unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	806	907	
==>.unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	806	907	
==>.unboxed
#
# 2005-08-15
# - created the 'Scalar' container

# TODO - allow dual-behaviour objects with <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12143	12257	
==>ass;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12143	12257	
==>ass;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12143	12257	
==>ass;
    push(@classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3802	3890	
==>tiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2753	2888	
==>ry( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    return statement( $n )
        if ref $n->{op1} && exists $n->{op <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16041	16147	
==>AILED($v);
  unshift(@{$m0->{$name}},$m1);# sigh,
  #  twice: once for inline code, once for the final Matc <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	265	360	
==>V<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_typ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	265	360	
==>V<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_typ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	8655	8759	
==>air->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	8655	8759	
==>air->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	8655	8759	
==>air->new( '$.key' => $xx0, '$.value' => $xx1 ) };
#MULTI SUB prefix:<~> ($xx) {...}; # in PrimP6
#MULTI S <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23980	24154	
==>( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23980	24154	
==>( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->ne <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23980	24154	
==>( @param ) )
                }
                if ( $method eq 'exists' ) {
                    # XXX - TODO - recursive to other dimensions
                    return Bit->ne <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3787	3885	
==>quired for loading precompiled Perl 6 files.

If you see the error below, it may happen that your p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	781	898	
==>ck space.

- Simplify arg list - the functions currently take 8 arguments.

=cut

use strict;
use warnings;
#u <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18549	18656	
==>P} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the li <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18549	18656	
==>P} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the li <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2977	3090	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2977	3090	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2977	3090	
==>cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix:<cmp>;
  }

  die "&sort needs a Code as first arg <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	58	183	
==>sename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	63	188	
==>sename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	63	188	
==>sename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	655	784	
==>in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	655	784	
==>in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	655	784	
==>in_method = 0;
    while ($i->hasNextToken) {
        my $token = $i->nextToken;
        if ($token eq 'class') {
            $sel <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	881	1001	
==>f Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4359	4479	
==>f Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3253	3372	
==>f Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	661	781	
==>et our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	661	781	
==>et our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5565	5671	
==>00**1000 #XXX there has to be a better way. :(
  }
}
{
  package Regexp::Parser::__object__;
  @Regexp::Par <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7226	7358	
==>e);
    unless( open(FILE, "$line|") ) {
        print "can't run $file. $!\n";
        return;
    }

    my %results = $self->analy <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22740	22828	
==>t>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new t <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22740	22828	
==>t>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new t <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5962	6075	
==>eplace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5962	6075	
==>eplace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21010	21122	
==>d to the queue are after an opening
parenthesis or after 'atom' matches.  This makes things flow more
cleanly.

= <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30503	30596	
==>ate template module for each distinct "user
language" (or "user type") for each distinct Messa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30503	30596	
==>ate template module for each distinct "user
language" (or "user type") for each distinct Messa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1223	1319	
==>5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1223	1319	
==>5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.key <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1223	1319	
==>5"} || %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.key <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27318	27411	
==>);
is(t($app_id_to_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac), "int → int", ":t fac <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11622	11711	
==>compare_func`. This will
eventually allow Test::More-style cmp_ok() though the following s <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11680	11769	
==>compare_func`. This will
eventually allow Test::More-style cmp_ok() though the following s <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3921	4065	
==>anh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::Internals::atan2($y,$x);
 }


 multi Math::Trig::pi ( --> Nu <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6024	6166	
==>$.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $. <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6024	6166	
==>$.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $. <==
3	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2064	2164	
==>N

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a g <==
3	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2064	2164	
==>N

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	1182	1306	
==>rn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	1182	1306	
==>rn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	1182	1306	
==>rn") {
        $cc = PIL::Cont->new(argname => "", body => sub { "" });
      } elsif($name eq "&yield") {
        $cc = PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14540	14642	
==>LTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14540	14642	
==>LTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closed <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14540	14642	
==>LTI SUB slurp ($xx) { p6_from_s(`cat $xx`); };
MULTI SUB opendir ($xx) {...};
MULTI SUB IO::Dir::closed <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2502	2592	
==>5 code.

=item * L<Pugs::Emitter::Rule::Perl5::Ratchet> converts parsed :ratchet Rules to P <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1666	1816	
==>"|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $h <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1055	1164	
==>turns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.widt <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1055	1164	
==>turns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.widt <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20967	21076	
==>object is an unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25519	25628	
==>object is an unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24125	24234	
==>object is an unordered set of tuples, each of which is an
unordered set of named attributes; all tuples in a R <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	600	756	
==>$self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	600	756	
==>$self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = ev <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	600	756	
==>$self->{JS}->function_set("_bare_js_function__eval_perl5",
                              sub { my($code)=@_;
                                    my @res = ev <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6661	6778	
==>File::Copy::copy( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12400	12518	
==>gs 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12400	12518	
==>gs 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12400	12518	
==>gs 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $value;
}
sub fetch {
    my ( $this, $key ) = @_;
    my <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	25196	25308	
==>stringify, "∀α. ∀β. (α × β)", "pretty print a x b");
}
{
	my $type = type::operator::arrow->new(
		type: <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20384	20478	
==>nterface of Relation is entirely object-oriented; you use it by
creating objects from its membe <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24936	25030	
==>nterface of Relation is entirely object-oriented; you use it by
creating objects from its membe <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6722	6825	
==>}
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6722	6825	
==>}
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6722	6825	
==>}
sub infix:<^..^> (Num $from, Num $to) is primitive { ($from + 1)..($to - 1) }

sub infix:<,>(*@xs is r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	36	151	
==>n';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	36	151	
==>n';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/l <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	36	151	
==>n';
use lib ("$Bin/lib",
         "$Bin/..",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12426	12583	
==>[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12420	12577	
==>[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3	104	
==>his is a regexp engine, written in p5.  It the very beginnings of a
# proof of concept.  A feasibility <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4882	4981	
==>to "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4882	4981	
==>to "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Cla <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4882	4981	
==>to "MyClass",
it will now be blessed into "New::Namespace::Root::MyClass".

=item B<custom>

    Cla <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3602	3713	
==>ObjPos;
  my $lastPosition = length $target;
  my @bsrStack = [];
  #XXX
  my $operator;
  expect_term:
  goto n <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1827	1925	
==>ed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1827	1925	
==>ed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10636	10773	
==>tes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14113	14250	
==>tes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13412	13549	
==>tes in common with the invocant"
            ~ " relation."
        if any( $other!heading ) === any( $!heading );

    # First look for t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32531	32774	
==>length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32531	32774	
==>length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32531	32774	
==>length;
            }
            else {
                shift @tmp;
            }
            next;
        }
        if ( UNIVERSAL::isa( $tmp[-1], 'Perl6::Value::List') ) {
            if ( $tmp[-1]->elems > 0 ) {
                # my $i = $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2764	2921	
==>:Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          re <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	517	656	
==>:Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	517	656	
==>:Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        re <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4444	4560	
==>, map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\?\# [^)] <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	317	419	
==>et rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	317	419	
==>et rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4496	4611	
==>n pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4496	4611	
==>n pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4496	4611	
==>n pipe to \"@cmd\": $!\n";

  close $write_fh       or die "Couldn't close pipe to \"@cmd\": $!\n";

  local $/;
  m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6882	6987	
==>rsion;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6882	6987	
==>rsion;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6882	6987	
==>rsion;
    }
    ::opaque_instance_attr($self => '$:version');    
}));

$::Module->add_method('authority' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5887	5993	
==>_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5887	5993	
==>_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5887	5993	
==>_js_for_perl5($ct)
    if $cfg{perl5};
  $ct->bind_function( name => 'print',
		      func => sub { print e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	280	390	
==>mt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	280	390	
==>mt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	280	390	
==>mt}  eq "PNoop" ? bless {} => "PIL::PNoop" : $_[0]->{pStmt})->fixup,
    pStmts =>
      ($_[0]->{pStmts} eq "P <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5692	5792	
==>em B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns t <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5692	5792	
==>em B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7216	7316	
==>em B<BAILOUT( Str $reason = '' )>

Aborts the entire test run.

=item B<get_test_number()>

Returns t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14335	14463	
==>tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17812	17940	
==>tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as the <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17228	17356	
==>tuples.push( $r1 );
        }
        elsif ($r1!heading.size() == 0) {
            # identity-one tuples can be discarded as the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1477	1595	
==>j, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1477	1595	
==>j, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for ( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1477	1595	
==>j, func) {
    return Perl5.perl_can(obj, func);
}

function perl_call_method() {
    var args = new Array();
    for ( <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7938	8045	
==>=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_klu <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2833	2936	
==>tta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2833	2936	
==>tta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	5594	5724	
==>str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	5594	5724	
==>str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.u <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	5594	5724	
==>str' =>  sub { Str->new( '$.unboxed' => Perl6::Value::Int::to_str( _('$.unboxed') ) ) },
            'bit' =>  sub { Bit->new( '$.u <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	1123	1244	
==>all(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      thr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	1123	1244	
==>all(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      thr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	1123	1244	
==>all(JSAN, classdef, exportList);
      };

      JSAN.use.apply(JSAN, [mod].concat(imports));
    } catch(err) {
      thr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3863	3967	
==>st splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3863	3967	
==>st splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3863	3967	
==>st splice an empty array
# TODO - test multi-dimensional array

# Notes:
# * Cell is implemented in the P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1949	2042	
==>my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1949	2042	
==>my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1949	2042	
==>my($s)=@_; p6_new('Str',"$s")}
sub p6_from_a {my(@a)=@_; p6_new('Array', @a)}
sub p6_from_l {m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2204	2332	
==>ss Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "In <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	796	904	
==>on
sub to_native { %{(shift)} }

# conversion to other types
sub to_str { str->new('' . (shift)->to_native) } <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	456	563	
==>& $planned != $ran) {
	    print STDERR
		"# Looks like you planned $planned tests but ran $ran.\n";
	} elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11104	11222	
==>cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11104	11222	
==>cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
} <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11104	11222	
==>cis_infinite},
        cis_contiguous => $ret->{cis_contiguous},
        cstringify =>     $ret->{cstringify},
    );
} <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3026	3135	
==>);
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV{PER <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14486	14584	
==>is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the cod <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14544	14642	
==>is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the cod <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3545	3657	
==>name> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <c <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3545	3657	
==>name> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <c <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5902	5997	
==>self->types_eq($de_facto_type, $expected_type);

		warn "types do not eq";

		if ($self->is_plac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2453	2558	
==>hod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2453	2558	
==>hod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2453	2558	
==>hod('isa' => method (Str $class_name) returns Bool { 
    return undef unless $class_name;
    my Dispatch <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1237	1341	
==>e document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1237	1341	
==>e document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFE <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1237	1341	
==>e document.write outputs
# "string_to_output#IGNORE NEXT LINEFEED#\n", and we can s/#IGNORE NEXT
# LINEFE <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1442	1573	
==>grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1430	1561	
==>grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \ <==
3	/Users/nnunley/pugs/util/importgraph.pl	747	866	
==>!\n";

  while(<$fh>) {
    if (/^module \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = defined $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	17070	17182	
==>_top, $fmt) = _create_fmts($failedtests);

        # Now write to formats
        for my $script (sort keys %$fai <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3674	3757	
==>._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next, $ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3674	3757	
==>._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next, $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11070	11195	
==>leOps::constant( '$prefix:<$id>' ),\n" .
                "        \\&Grammar::Perl6::ws_star,\n" .
                Runtime::Pe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1888	1992	
==>uired() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1888	1992	
==>uired() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types an <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1888	1992	
==>uired() parameter to Perl6::Param signature ( +$x )
# TODO - 'returns'

# TODO - unify parameter types an <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18040	18141	
==>bles.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struct is used
vario <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	266	360	
==>nce last_modified
    content_type content_encoding content_length content_language
    title u <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	266	360	
==>nce last_modified
    content_type content_encoding content_length content_language
    title u <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26693	26794	
==>proper inheritance for the node; it uses %Regexp::Parser::loaded to keep
track of which object classes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	1236	1358	
==>aml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	1236	1358	
==>aml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	1236	1358	
==>aml_dump and $link;
usage "Invalid argument for --link!"           if $link and not($link eq "js" or $link eq "html");

unl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	918	1020	
==>eturn ''
}
sub node::string_concat {
    my $a = emit(get_data($_[0], '$<a>'));
    my $b = emit(get_da <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6922	7014	
==>gnored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\x[0]" <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	429	524	
==>t::Long;
use Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harness;
use <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4736	4835	
==>overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4736	4835	
==>overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the ori <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4736	4835	
==>overrides whatever
blessing they had before, but unlike B<rebless>, it preseves something
of the ori <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	83	197	
==>s {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	83	197	
==>s {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	83	197	
==>s {
    return "new PIL2JS.Box.Constant(undefined)";
  }
}

{
  package PIL::PVal;

  sub fixup { $_[0] }

  sub as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9975	10089	
==>s;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9975	10089	
==>s;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; " <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9975	10089	
==>s;
}

sub p6_eval {
    my($p6)=@_;
    my $p5r = p5r_from_p6($p6);
    $p5r = "package ".&p6_main()."; use utf8; " <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3183	3290	
==>'t use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3183	3290	
==>'t use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3183	3290	
==>'t use $arity-ary subroutine as comparator block for &sort!"
    unless $arity == 2;

  JS::inline('new PIL2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	462	596	
==>, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	462	596	
==>, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASe <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	462	596	
==>, 'AFour'),
        5,
        "this is just noise",
      ],
    }, 'ATwo'),
    six => {
      seven => bless({ __VALUE__ => 7}, 'ASe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	191	301	
==>w man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	191	301	
==>w man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	191	301	
==>w man 
# only with psyche (sensuous soul) — the pneuma (rational soul) 
# having been added by God.

# Naming <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9275	9426	
==>z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9275	9426	
==>z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = arg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9275	9426	
==>z;               # 4
  #   push @a, 5;
  #   say $z;               # 4 (!!)

  JS::inline('new PIL2JS.Box.Constant(function (args) {
    var cxt   = arg <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	77	188	
==>efine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	77	188	
==>efine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	77	188	
==>efine &exit temporarily)
sub sleep (Num $secs) is primitive {
  my $start = time;

  temp &exit = sub {};

  JS: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1554	1653	
==>() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1554	1653	
==>() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1554	1653	
==>() })')(~$self) }
method lc(Str $self = $CALLER::_:) { JS::inline('(function (str) { return str.toLo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	338	471	
==>s) = @_;
            _('$.output'       => $params{'$.output'}       || \*STDOUT);
            _('$.error_output' => $params{'$.error_ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16355	16450	
==>locales or user types simultaneously, and that allows any end users to add
support for new langu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16355	16450	
==>locales or user types simultaneously, and that allows any end users to add
support for new langu <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17169	17273	
==>Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,E <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17326	17430	
==>Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,E <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4440	4542	
==>r; }
method PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20525	20623	
==>:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20525	20623	
==>:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20525	20623	
==>:<||> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23542	23655	
==>2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23542	23655	
==>2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23542	23655	
==>2



sub rx_common {
    my($mods6,$pat6,$qo6,$qc6)=@_;
    my $pat = p6_to_s($pat6);
    my $qo = defined $qo ? p <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	597	743	
==>the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XXX in <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15748	15849	
==>:Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15748	15849	
==>:Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	469	571	
==>wd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	469	571	
==>wd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	469	571	
==>wd { File::Spec->catfile($FindBin::Bin, @_) }


if($ARGV[1] eq "-w" and $ARGV[2]) {
  # XXX hack
  if($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	17828	17924	
==>.};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	17828	17924	
==>.};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	17828	17924	
==>.};
MULTI SUB infix:[~>] ($xx0,$xx1) {...};
MULTI SUB infix:<**> ($xx0,$xx1) { p6_from_n(p6_to_n( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	7833	7956	
==>next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	11833	11952	
==>next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	11833	11952	
==>next
          unless exists $pad->{$name};

        #print "NAME $name $pad->{$name}\n";
        return ${ $pad->{$name <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1692	1816	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1692	1816	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && ble <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1692	1816	
==>Dispatchable')
            || confess "Bad instance (" . ($instance || 'undef') . ")";        
        (defined $class && ble <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5271	5455	
==>me.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5271	5455	
==>me.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5271	5455	
==>me.')';
        bless {
            name =>     $name,
            type =>     $type,   
            default =>  $default,    
            required => $required,  
            slurpy => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9641	9762	
==>_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9641	9762	
==>_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9641	9762	
==>_ary_elems\n";
            my $slice_size = $end - $start + 1;
            $slice_size = $max_ary_elems if $slice_size > $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5556	5658	
==>Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5556	5658	
==>Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5556	5658	
==>Box(undefined); pad['\$_'] = _24main_3a_3a_;\n"
      unless grep { $_->name eq '$_' } @{ $self->params <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8110	8239	
==>{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f->($c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2765	2865	
==>r could work as the

basic interface, and if you'd like to offer more, subclass

it and call it Pugs: <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2663	2761	
==>r could work as the
basic interface, and if you'd like to offer more, subclass
it and call it Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	24	130	
==>eLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signatu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	24	130	
==>eLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signatu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	24	130	
==>eLog
#
# 2005-09-03
# * Fixed Code-do() return context
#
# 2005-09-01
# * New Class Perl6::Type
# * Signatu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9207	9368	
==>$count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9207	9368	
==>$count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; r <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9207	9368	
==>$count - $length;
            return $shifted;
        },
        start =>   sub { $item },
        end =>     sub { $item },
        cstart =>  sub { $count--; r <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2652	2749	
==>step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Creat <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2652	2749	
==>step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Creat <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5748	5845	
==>cit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/syck/token.o src/syck/yaml2byte.o src <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5739	5839	
==>m_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %chann <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5739	5839	
==>m_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %chann <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35345	35441	
==>real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	642	795	
==>=> $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	847	1000	
==>=> $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	903	1056	
==>=> $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3201	3317	
==>]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3201	3317	
==>]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3201	3317	
==>]\*?JS::/;
    $native++ if
      defined $obj and $subname =~ /^&\*?JS::/;

    # The sub is a reference? ==> We can <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	3549	3664	
==>re = join( "|", map { quotemeta } @include );
    $Config{include_re} = qr/\.($include_re)$/;
}

sub _init {
    my( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2593	2688	
==>urn { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2593	2688	
==>urn { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5412	5576	
==>quired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5412	5576	
==>quired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5412	5576	
==>quired => $required,  
            slurpy =>   $slurpy,                    
        } => $class;
    }
    
    sub name     { $_[0]{name} }
    sub default  { $_[0] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6609	6756	
==>616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*// <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6609	6756	
==>616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*// <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2423	2537	
==>$_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2423	2537	
==>$_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2423	2537	
==>$_[1];
		$prune;
	}
	sub need_prune {
		return if not defined $prune;
		return $_[1] eq $prune;
	}
}

sub recurse { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	5788	5888	
==>{
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	5788	5888	
==>{
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	5788	5888	
==>{
  __hyper(&infix:<~>, @a, @b);
}

our &infix:{"»~«"} := &infix:{">>~<<"};

sub __hyper (Code $op, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14933	15040	
==>system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14933	15040	
==>system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14933	15040	
==>system(@xx));
};
MULTI SUB accept ($xx) {...};
MULTI SUB detach ($xx) {...};
MULTI SUB kill (*@xxa) { kill(m <==
3	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1472	1572	
==>) );
}

# convert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is expor <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	592	687	
==>ite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, the <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	592	687	
==>ite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, the <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	342	444	
==>uf einer einfachen Methode
$welt.hallo;	# Perl 5:  $welt->hello;
hallo $welt;	# wie in Perl 5
hallo($we <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	648	749	
==>$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	648	749	
==>$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1	99	
==>ethod JS::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1	99	
==>ethod JS::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    ar <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1	99	
==>ethod JS::Root::arity(Code $self:) {
  JS::inline('new PIL2JS.Box.Constant(function (args) {
    ar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6262	6383	
==>loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6262	6383	
==>loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6262	6383	
==>loop...";
        if ( UNIVERSAL::isa( $i, 'Perl6::Value::List' ) ) {
            die "Not implemented: instantiate lazy s <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3830	3926	
==>pping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)> <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3830	3926	
==>pping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)> <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	369	464	
==>ugs::Grammar::Base';

*pod = Pugs::Compiler::Token->compile(q(
  \= <'cut'> \N* [\n|$] |
  \N* [ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8398	8666	
==>my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RET <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8398	8666	
==>my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RET <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8398	8666	
==>my @r;
                        for my $element ( @items ) {
                            my @a = @arguments;
                            $a[$i] = $element;
                            push @r, $self->do( @a );
                        }
                        #warn "RET <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14076	14288	
==>>new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14076	14288	
==>>new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14076	14288	
==>>new();
                $ret->cell->{tieable} = 1;
                my $proxy = Perl6::Slice->new( 
                    array => $self, 
                    slice => $list,   
                );
                $re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2343	2441	
==>* Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2343	2441	
==>* Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2343	2441	
==>* Number(b)" ],
    [ "infix:/",  "N", "Number(b) == 0 ? eval('throw(new Error(\\'Division by zero\ <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9172	9282	
==>submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encipher <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9172	9282	
==>submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encipher <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23460	23570	
==>rom_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23460	23570	
==>rom_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23460	23570	
==>rom_s(substr($s,$v1,$v2)); # XXX - doesnt handle replacement.
};
# splice - see op2



sub rx_common {
    my($ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4224	4341	
==>1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
} <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4212	4329	
==>1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
} <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30940	31035	
==>mes next and is what distinguishes each module from others in
its set. For maximum flexibility i <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30940	31035	
==>mes next and is what distinguishes each module from others in
its set. For maximum flexibility i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	15179	15319	
==>al
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	15179	15319	
==>al
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	15179	15319	
==>al
        # with it here since this is a p5 issue.
        if ($label =~ /DESTROY/) {
            # this is to avoid GC errors during global <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1845	1977	
==>ented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1845	1977	
==>ented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1845	1977	
==>ented - Hash from $p";
    }
    return $h;
};

MULTI SUB circumfix:<[]> (*@a) {
    my $h = Array->new();
    if ( @a ) {
        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	82	185	
==>se vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	82	185	
==>se vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 N <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	82	185	
==>se vars qw($VERSION $RE_BUILTIN $MAX_RECURSE);

$VERSION = '0.05';
$MAX_RECURSE = 1_000;

=pod

=head1 N <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	11830	11944	
==>Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	11830	11944	
==>Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	11830	11944	
==>Application of undef.\n";
    }
    $f->do(@args);
}

sub p6_package_init {
    my($pkg)=@_;

    my @path = split( <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2724	2975	
==>ile_state;
    $self->{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20563	20660	
==>ou
open a program, it will search for language files specific to the program
in the order you chos <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20563	20660	
==>ou
open a program, it will search for language files specific to the program
in the order you chos <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5894	6004	
==>on strings (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5690	5796	
==>on strings (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6042	6139	
==>. we do not have the resolve method');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($C <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	951	1087	
==>"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@matc <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	951	1087	
==>"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@matc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1621	1767	
==>lurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1621	1767	
==>lurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
} <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1857	2003	
==>lurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    return B::svref_2object($sub)->GV->object_2svref;
} <==
3	/Users/nnunley/pugs/blib6/lib/lib.pm	404	525	
==>ory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $pa <==
3	/Users/nnunley/pugs/ext/lib/lib/lib.pm	404	525	
==>ory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $pa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3694	3794	
==>(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3694	3794	
==>(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3694	3794	
==>(@self: Code $code) { reduce $code, *@self }
sub JS::Root::reduce(Code $code, *@array) is primitive { <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8998	9109	
==>erse => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero in <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8998	9109	
==>erse => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero in <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3252	3358	
==>s this by you setting the expected output and diagnostic output of tests,
running those tests, and then tel <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3252	3358	
==>s this by you setting the expected output and diagnostic output of tests,
running those tests, and then tel <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3332	3438	
==>s this by you setting the expected output and diagnostic output of tests,
running those tests, and then tel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4368	4471	
==>'new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4368	4471	
==>'new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4368	4471	
==>'new PIL2JS.Box.Constant(function (args) {
    var varname = args[1].toNative(), cc = args.pop();
    cc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7215	7308	
==>:Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7215	7308	
==>:Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7215	7308	
==>:Class => '@:roles');  
::opaque_instance_attr($::Class => '@:roles') = [ $::Role ];
::opaque_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15722	15849	
==>o_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15722	15849	
==>o_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15722	15849	
==>o_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return '' if $_[0] eq ' <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7323	7439	
==>en;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7323	7439	
==>en;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	51	152	
==>use Perl6::Core::Str;
use Perl6::Core::Num;

package bit;

use strict;
use warnings;

use Carp 'confes <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9791	9893	
==>rings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi s <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9791	9893	
==>rings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi s <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	10684	10796	
==>iner)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' o <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10684	10796	
==>iner)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' o <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27432	27543	
==>?:$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print D <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2371	2509	
==>e => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'prefix:<say>',
    #);
    
    __PACKAGE__->ad <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12357	12463	
==>ue->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12357	12463	
==>ue->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $v <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12357	12463	
==>ue->unboxed if ref( $value );
    no warnings 'uninitialized';
    $this->{hashref}{$s} = $v;
    return $v <==
3	/Users/nnunley/pugs/util/build_pugs.pl	874	992	
==>hispugs = { @{ $opts->{GEN_PRELUDE} } }->{'--pugs'} or # laugh at me now.
        die "$0: no pugs passed in _+GEN_PREL <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5571	5668	
==>lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_age + tim <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5571	5668	
==>lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_age + tim <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15702	15909	
==>ion - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15702	15909	
==>ion - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted+ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15702	15909	
==>ion - shift_n, pop_n
                    Perl6::Value::List->new(
                        cstart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	232	337	
==>ts() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	232	337	
==>ts() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	232	337	
==>ts() to return boxed Int, Str
# * hash iterator (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	30	157	
==>{
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	30	157	
==>{
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	30	157	
==>{
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3965	4098	
==>ss {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data = <==
3	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	590	713	
==>P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $s <==
3	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	590	713	
==>P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1201	1305	
==>ody() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1201	1305	
==>ody() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1201	1305	
==>ody() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9005	9173	
==>rd} eq 'export' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	437	538	
==>Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %T <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	437	538	
==>Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3332	3457	
==>current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3332	3457	
==>current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3332	3457	
==>current_class);
        $self->env->set('current_class' => undef);         
    }      
}

sub _parse_superclasses {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	373	486	
==>elf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
        name = <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10287	10399	
==>te}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        retur <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10287	10399	
==>te}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        retur <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8727	8869	
==>~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$lati <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8727	8869	
==>~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$lati <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1394	1530	
==>p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1394	1530	
==>p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36791	36885	
==>amily: assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

=head2 logical <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15765	15891	
==>ame
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or die "Couldn <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20346	20438	
==>ough program package installers usually do it.  An os-level preference
/ control-panel displa <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20346	20438	
==>ough program package installers usually do it.  An os-level preference
/ control-panel displa <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	39	134	
==>l6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Cor <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	36	131	
==>l6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Cor <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	36	131	
==>l6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Cor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15180	15305	
==>any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15180	15305	
==>any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15180	15305	
==>any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + scalar @{$self->{pops}} 
        },
    );
}

sub sh <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2268	2366	
==>ent properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=i <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2268	2366	
==>ent properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=i <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	9968	10060	
==>) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9968	10060	
==>) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13520	13607	
==>r name=skipped> skipped</span> and
		<span class="tests_unexpect"><tmpl_var name=unexpec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	4315	4437	
==>g) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7792	7914	
==>g) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6776	6898	
==>g) {
        return $?SELF;
    }

    die "Some members of $attrs! do not match this relation's attributes."
        if !( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40716	40827	
==>my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40716	40827	
==>my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40716	40827	
==>my $s = Perl6::Value::numify( $key );
    my $r = delete $this->{arrayref}[$s];
}
sub clear {
    my ( $this ) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33589	33714	
==>th, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33589	33714	
==>th, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVER <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33589	33714	
==>th, @ret );
}

sub elems {
    my $array = shift;
    my $count = 0;
    for ( @{$array->{items}} ) {
        $count += UNIVER <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2616	2725	
==>r,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    m <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2616	2725	
==>r,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    m <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	762	984	
==>given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	762	984	
==>given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2907	3004	
==>le at
      http://m19s28.vlinux.de/iblech/pugs/livecd.iso.

Note: If you want to modify the kerne <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2625	2731	
==>bMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2625	2731	
==>bMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2625	2731	
==>bMethod';
}));

$::Role->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7007	7110	
==>urn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7007	7110	
==>urn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7007	7110	
==>urn rul.matcher })')($rule);
}
for <ok from to str subpos subnamed> -> $attr {
  Pugs::Internals::eval " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12110	12251	
==>for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12110	12251	
==>for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12110	12251	
==>for eigenclass methods
                       || confess "Private Method ($_[1]) not found for current class ($::CLASS)";
            $_normal <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6782	6888	
==>Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7154	7260	
==>Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7453	7559	
==>Result1 = ToNumber($v);
    return +0 if $Result1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	490	591	
==>de.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	490	591	
==>de.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETC <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	490	591	
==>de.

# new PIL2JS.Box(...) boxes a value. That is, it is packed in an Object with
# the property .FETC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	15112	15256	
==>shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	15112	15256	
==>shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + sca <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	15112	15256	
==>shift;
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            $any ? Inf : scalar @{$self->{shifts}} + sca <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1382	1504	
==>I SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1382	1504	
==>I SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1382	1504	
==>I SUB circumfix:<{}> (*@a) {
    # param is Pair or Array of Pair
    my $h = Hash->new();
    my $p = shift @a;
    if ( $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4478	4768	
==>aragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        s <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4478	4768	
==>aragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2473	2587	
==>draw_role {
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    foreach my $subrole (@{$role->role <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	19182	19308	
==>ase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	19182	19308	
==>ase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	19182	19308	
==>ase it is 
        # actually wrong)
        ::opaque_instance_attr($self => '%:namespace')->{$label};
    }    
}));

$::Class <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	23061	23219	
==>urtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	439	550	
==>Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	439	550	
==>Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ <==
3	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	6	100	
==>1 "inc/Module/Install/Compiler.pm - /usr/local/lib/perl5/site_perl/5.8.8/Module/Install/Compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	556	661	
==>48000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	556	661	
==>48000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	556	661	
==>48000, 1196000) or die "Couldn't setrlimit: $!\n";
    warn "*** Limited CPU and memory resources.\n";
  } <==
3	/Users/nnunley/pugs/util/grokprims.pl	2094	2195	
==>($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt></td>";
  print "<td>$op->{assoc}</td <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	154	244	
==>nclude_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.define <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	154	244	
==>nclude_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.define <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	252	369	
==>('$string'),
			App(
				Sym('&printf'),
				Sym('$handle'),
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	779	899	
==>[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NA <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	779	899	
==>[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NA <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17140	17242	
==>lf, %params);
    }
}

(method BUILDALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatche <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2823	2931	
==>if (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2823	2931	
==>if (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2823	2931	
==>if (ref($body) eq 'HASH') {
        $new_class->superclasses($body->{is}) if exists $body->{is};
        $new <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7672	7778	
==>::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7672	7778	
==>::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7672	7778	
==>::TCxt>;

  sub cxt  { ($_[0]->[0] eq "TCxtVoid" ? bless [] => "PIL::TCxtVoid" : $_[0]->[0])->cxt }
  sub m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2131	2253	
==>sh.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2131	2253	
==>sh.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key). <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2131	2253	
==>sh.get_value(key).STORE(n);
          return n;
        }
      );

      ret.uid = hash.exists(key) ? hash.get_value(key). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	14647	14744	
==>rams);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	14647	14744	
==>rams);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	14647	14744	
==>rams);
    delete $method_table->{$label};   
}));

$::Class->add_method('add_attribute' => ::make <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	66	200	
==>.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	66	200	
==>.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	27094	27190	
==>) → α", ":t fst");
is(t(ide("snd")), "∀α. ∀β. (α × β) → β", ":t snd");
is(t($id_p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7376	7509	
==>.
my $FooBar = $Class->new(
    '$:name' => 'FooBar',
    '$:superclass' => $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6393	6500	
==>r Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { pac <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6177	6282	
==>r Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { pac <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17261	17381	
==>ve=$node ...";
    }

    if (Scalar::Util::blessed($node)){
        if ($node->can("fmap")){
            my @gut =  $nod <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	594	691	
==>the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfo <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	594	691	
==>the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfo <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7680	7816	
==>heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

& <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11157	11293	
==>heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

& <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1143	1241	
==>p = '(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# temporarily for the use <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1278	1396	
==>d_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1278	1396	
==>d_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1278	1396	
==>d_result;
    var already_calced = false;

    boxed.FETCH  = function ()  {
      if(!already_calced) {
        cached <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	196	445	
==>used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	196	445	
==>used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35042	35142	
==>}, $class;
    return $self;
  }

We inherit the merge() method defined in F<Regexp::Parser::branch>, <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4519	4664	
==>ng satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX shoul <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4983	5128	
==>ng satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX shoul <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	25127	25222	
==>of this Relation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool in <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29679	29774	
==>of this Relation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool in <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16320	16414	
==>in($.then) = { generic($.if) }
cond: generic_in($.else) = { generic($.then) }
cond: generic($$) <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	3419	3530	
==>1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	3419	3530	
==>1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2n <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	3419	3530	
==>1].FETCH()), cmp = args[2].FETCH(), cc = args.pop();
    var jscmp = function (a, b) {
      return PIL2JS.cps2n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2593	2743	
==>her);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2593	2743	
==>her);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2593	2743	
==>her);
      };

      return ret;
    };

    if(keys.length == 1) {
      cc(proxy_for(keys[0]));
    } else {
      var ret = [];
      for(var i = 0 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1619	1728	
==>infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1619	1728	
==>infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "in <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1619	1728	
==>infix:«ne»",   2, "S", "String(a) != String(b)",
  "infix:«+»",    2, "N", "Number(a)  + Number(b)",
  "in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14867	14981	
==>a {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14867	14981	
==>a {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20470	20572	
==>() method has been moved to another file to help keep I<this>
file as abstract as possible.  F<Regexp:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	730	877	
==>err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	730	877	
==>err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	730	877	
==>err) {
        if(err instanceof PIL2JS.ControlException.last) {
          return undefined;
        } else {
          throw err;
        }
      } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6565	6682	
==>lation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10042	10159	
==>lation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9134	9251	
==>lation."
        if !($other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relat <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5280	5373	
==>ash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<re <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5280	5373	
==>ash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<re <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7477	7570	
==>ash containing two keys, C<passed> and C<description>, from the
test's attributes.

=item B<re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	1801	1919	
==>);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	1801	1919	
==>);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	1801	1919	
==>);
    return $new_class;
}

sub role {
    my ($full_name, $body) = @_;
    # support anon-role here
    if (!defined( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	888	1003	
==>g
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	888	1003	
==>g
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.C <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	888	1003	
==>g
      # called. (This does not affect "next if ...; $other_code".)
      return "(function () { throw new PIL2JS.C <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4647	4742	
==>lf = shift;
	map { $_->free_vars} $self->left, $self->right;
}

package type::operator::nary;
us <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10118	10211	
==>mmediate
validation is kept to the minimum possible, and is essentially just
concerned with th <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10118	10211	
==>mmediate
validation is kept to the minimum possible, and is essentially just
concerned with th <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	33	133	
==>ion and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	33	133	
==>ion and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	33	133	
==>ion and ->as_js the real contents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can u <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	6315	6493	
==>ict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relation i <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9792	9970	
==>ict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relation i <==
3	/Users/nnunley/pugs/inc/Module/Install/Base.pm	695	803	
==>nstall::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub DESTR <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8489	8585	
==>AME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This docum <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8489	8585	
==>AME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This docum <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3496	3590	
==>e able to do both lexically and dynamically scoped
overriding.  You currently can't do lexical. <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	17617	17773	
==>str($fmt,$fi, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fm <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	124	231	
==>Scalar::Util 'blessed';

use base 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8323	8437	
==>IL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8323	8437	
==>IL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8323	8437	
==>IL::PThunk";
  }

  sub as_js {
    my $self = shift;
    local $PIL::IN_SUBLIKE  = PIL::SUBTHUNK;
    local @PIL:: <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2944	3049	
==>.yml file if you want the reports to be uploaded
    automatically.
EOF
}
sub upload_smoke {
    my ($loc) <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27331	27429	
==>Message object does not permit changes to its attributes; they
must all be set when the object is c <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27331	27429	
==>Message object does not permit changes to its attributes; they
must all be set when the object is c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Tokenizer.pm	471	567	
==>e($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenize <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Tokenizer.pm	471	567	
==>e($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenize <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Tokenizer.pm	471	567	
==>e($source);
    grep { $_ } $self->{tokenizer}->getTokens();
}

sub iterator { (shift)->{tokenize <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	612	736	
==>->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11706	11830	
==>->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10412	10533	
==>[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6118	6216	
==>s == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6118	6216	
==>s == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6118	6216	
==>s == 1 {
    JS::inline('(function (str) { return str.split("").reverse().join("") })')(@things[0]) <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5088	5215	
==>Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( % <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5412	5539	
==>Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( % <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4838	5003	
==>1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4850	5015	
==>1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34550	34641	
==>n F<Regexp::MyRx::__object__> (if it exists), then
in F<Regexp::Parser::THING> (if it exists <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12385	12498	
==>]) }xgc;
        return $S->object(exact => chr oct $v, sprintf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19314	19403	
==>$xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19314	19403	
==>$xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19314	19403	
==>$xx0,$xx1) { p6_from_b(p6_to_n($xx0) == p6_to_n($xx1)) };
MULTI SUB infix:[<=] ($xx0,$xx1) <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	732	883	
==>($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	732	883	
==>($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24751	24848	
==>ermit very fast decisions on suitable starting points
 * for a match, cutting down the work a lot. <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	413	512	
==>he Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	413	512	
==>he Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	877	993	
==>es: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (ib <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	877	993	
==>es: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (ib <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	877	993	
==>es: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash and Array)

# TODO - (ib <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	7748	7849	
==>some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7748	7849	
==>some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5394	5646	
==>he value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5394	5646	
==>he value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # a <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	9580	9718	
==>i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	9580	9718	
==>i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = arra <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	9580	9718	
==>i < idxs.length; i++) {
      idxs[i] = Number(idxs[i]);
      if(idxs[i] < 0) {
        var orig = Number(idxs[i]);
        idxs[i] = arra <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2095	2193	
==>stead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functio <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2095	2193	
==>stead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7506	7766	
==>d($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7506	7766	
==>d($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7506	7766	
==>d($method_name => ::make_class_method(
                        $body->{class_methods}->{$method_name}
                    ));                    
                }
            }
        }                               
    }

    return $new_role;
}


1;

__END <==
3	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	375	472	
==>!>

This is a simple iterator wrapper for arrays and filehandles.

=head2 new()

Create an iterato <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	17454	17546	
==>r has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17454	17546	
==>r has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6390	6487	
==>LTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6390	6487	
==>LTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6390	6487	
==>LTI SUB sin ($xx)  { p6_from_n( sin(p6_to_n($xx)) ) };
MULTI SUB tan ($xx)  { p6_from_n( tan(p6_to <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35024	35126	
==>or object, you must create a new
object that is a clone of the first but for the changes.

=back

A Tra <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35024	35126	
==>or object, you must create a new
object that is a clone of the first but for the changes.

=back

A Tra <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6555	6656	
==>y okay to keep a few
# zombies around for a relatively short while.
sub gather_results {
    my($self) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9223	9336	
==>ram'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpPara <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9223	9336	
==>ram'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpPara <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9223	9336	
==>ram'}{'isInvocant'};
        my $is_lvalue   = $p->{'tpParam'}{'isLValue'};
        my $is_lazy     = $p->{'tpPara <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	680	807	
==>add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	696	823	
==>add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	672	799	
==>add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5842	5938	
==>lues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=bac <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5842	5938	
==>lues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=bac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8039	8135	
==>lues of the
test's C<skip> and C<reason> attributes to the hash before returning it.

=back

=bac <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	1035	1171	
==>ngth; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll dow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	1035	1171	
==>ngth; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll dow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	1035	1171	
==>ngth; i++) {
              if (node.childNodes[i].nodeType == 3 /* Text Node */) {
                  // Append to the node and scroll dow <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	967	1063	
==>through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	967	1063	
==>through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Rol <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	967	1063	
==>through Class.
# Which is not yet implemented but can be seen in MiniMetaModel_w_Roles.pl

$::Rol <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3554	3667	
==>nt<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./ad <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3554	3667	
==>nt<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./ad <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36634	36739	
==>s, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation::Example $other!) return <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1390	1488	
==>pth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1390	1488	
==>pth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8472	8571	
==>PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8472	8571	
==>PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNA <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8472	8571	
==>PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk@{[$PIL::CUR_SUBNAME ? ' in ' . $PIL::CUR_SUBNA <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1897	2040	
==>n our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $ <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1897	2040	
==>n our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11452	11552	
==>ing of the List. aka "The Perl 5 way"

=item KeyExtractor

A closure with arity of 1, which returns t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7504	7619	
==>name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7504	7619	
==>name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        retur <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7504	7619	
==>name,$argl,$f)=@arg;
        return "PIL::Run::Type::$type"->new($f);
    }
    if ($type eq 'List') {
        retur <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6981	7194	
==>^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6981	7194	
==>^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $r <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	420	521	
==>ength(1));

 multi sub Array::shift () returns Scalar {
   Array::shift @CALLER::_;
 }
 multi sub Arra <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	8044	8177	
==>bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	8044	8177	
==>bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	8044	8177	
==>bar => sub { "Hello from bar" },          
      }
  };

  # class-is-a-closure form (more typing 
  # for you, but more control)
  cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1627	1755	
==>hift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1627	1755	
==>hift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    re <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1627	1755	
==>hift;
    local $_;

    local $PIL::CUR_SUBNAME = $self->name;

    #warn "Skipping &*END.\n"               and return ""
    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11969	12121	
==>($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11969	12121	
==>($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigencla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11969	12121	
==>($_[1], for => 'private')          # for instance methods
                       || $::CLASS->class->get_method($_[1], for => 'private')   # for eigencla <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13290	13413	
==>s list is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key}
 delete %hash<key>                 %hash <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2405	2502	
==>t enciphered or deciphered; when you're done, call the closure 
with no arguments to finish the ci <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2405	2502	
==>t enciphered or deciphered; when you're done, call the closure 
with no arguments to finish the ci <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12158	12263	
==>classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : ":: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12158	12263	
==>classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : ":: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12158	12263	
==>classes,'PIL::Run::Root');
    my $code = "";
    $code .= "package PIL::Run::Root".($pkg eq "" ? "" : ":: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4387	4538	
==>use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{param}{cpan_bareword} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7159	7252	
==>ement ('header')>

This event is fired after the '=head(n)' directive and it's accompanying te <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7159	7252	
==>ement ('header')>

This event is fired after the '=head(n)' directive and it's accompanying te <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2765	2880	
==>cal'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2765	2880	
==>cal'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2765	2880	
==>cal'), $label);    
}));

$::Object->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1582	1710	
==>:capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1593	1721	
==>:capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturi <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	349	458	
==>f->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit->new(0);
# }

1;

__END__

=pod

=head1 NAME 

typ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	16241	16329	
==>ncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <cori <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16299	16387	
==>ncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <cori <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9955	10082	
==>t/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  step
    de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20271	20450	
==>= map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20271	20450	
==>= map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Containe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20271	20450	
==>= map {
                                Perl6::Value::p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Containe <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22533	22634	
==>nd

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8194	8298	
==>d2 new ()

Class method.  Returns a category object.

options:

=item * grammar => $category_name - <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	224	307	
==>----------------------------------------------------------------------
## constructo <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	224	307	
==>----------------------------------------------------------------------
## constructo <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3064	3176	
==>ms { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $st <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3064	3176	
==>ms { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $st <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4477	4606	
==>{
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4477	4606	
==>{
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4477	4606	
==>{
            'num' =>  sub { $::SELF },
            'int' =>  sub { Int->new( '$.unboxed' => Perl6::Value::Num::to_int( _('$.unbo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11601	11724	
==>e $self.SUPER::status();
          my $status        = $self.Test::Builder::Test::Base::status();
          $status{"reason" <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	2037	2156	
==>e $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason" <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	2037	2156	
==>e $self.SUPER::status();
        my $status        = $self.Test::Builder::Test::Base::status();
        $status{"reason" <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15902	16040	
==>pe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (split " ")[0];
    }

  return @so;
}

# Th <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3865	3963	
==>ill be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner grou <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3865	3963	
==>ill be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner grou <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6772	6898	
==>lue' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6772	6898	
==>lue' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28253	28347	
==>names,
without the "FLAG_" prefix.

=item $parser->add_handler($seq, $code)

This method create <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6825	6955	
==>licing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6825	6955	
==>licing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6825	6955	
==>licing from $start to $end";
            my $slice = $ary->splice( $start, ( $end - $start + 1 ) );
            my $elems = $slice- <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	4865	4990	
==>ne;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4865	4990	
==>ne;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ( <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19820	19917	
==>f the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give y <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19820	19917	
==>f the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give y <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5960	6056	
==>tion = $position;
  push @bsrStack, "bsr_token_match_3";
  goto token_match;
  bsr_token_match_3: <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1679	1800	
==>: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1679	1800	
==>: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( s <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48604	48687	
==>>send('add_attribute', (symbol->new('$:authority') => attribute->new('$:authority' = <==
3	/Users/nnunley/pugs/util/package-osx.pl	2753	2851	
==>bin/pugscc
        blank /System/Library/Perl6/
        /Users/dromano/dev/pugs/src/pge/run_pge.pir <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40759	40851	
==>:KeyedText would appreciate being informed any time you create a
modified version of Locale:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40759	40851	
==>:KeyedText would appreciate being informed any time you create a
modified version of Locale:: <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4521	4633	
==>); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@ind <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4521	4633	
==>); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@ind <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1985	2090	
==>or::binary: parenthesize($$) = { $$->isa("type::operator::pair") || level($$) }
#'EOG

sub stringify {
	my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16957	17056	
==>er hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16957	17056	
==>er hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1719	1828	
==>, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!part <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1719	1828	
==>, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!part <==
3	/Users/nnunley/pugs/util/func_refact.pl	2020	2119	
==>nt "union: while adding $new, entered with $oldsize, leaving with $size\n"
        if $Conf{verbose} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5475	5576	
==>'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad[' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5475	5576	
==>'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad[' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5475	5576	
==>'] = _24main_3a_3a_3fPOSITION;\n";
    $vars .= "var _24main_3a_3a_ = new PIL2JS.Box(undefined); pad[' <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1600	1729	
==>ubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pV <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4695	4823	
==>ubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pV <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4695	4823	
==>ubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL_LValue',           'PVar', 
  'pV <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12785	12951	
==>ical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12779	12945	
==>ical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47312	47461	
==>ce'))->fetch($e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_m <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1258	1368	
==>lan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    repor <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1258	1368	
==>lan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    repor <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1338	1448	
==>lan( tests => $tests );
}

sub line_num is export
{
}

sub test_pass ( Str $diagnostic? ) is export
{
    repor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8429	8524	
==>al @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8429	8524	
==>al @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8429	8524	
==>al @PIL::IN_SUBLIKES = (@PIL::IN_SUBLIKES, PIL::SUBTHUNK);
    local $PIL::CUR_SUBNAME = "<thunk <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7893	7990	
==>= Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of spa <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7893	7990	
==>= Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of spa <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1435	1533	
==>m_count_stack} };
}

sub count_param {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41086	41178	
==>eature, and provided sample usage and patch
code, that supports embedding of Template modules <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41086	41178	
==>eature, and provided sample usage and patch
code, that supports embedding of Template modules <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3559	3660	
==>{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3559	3660	
==>{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3559	3660	
==>{tpDefault}->fixup,
      isFirstSlurpy => $self->is_first_slurpy,
      fixedName     => PIL::lookup_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13492	13667	
==>} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = join( ' <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1199	1324	
==>thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $ <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13725	13844	
==>thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7056	7180	
==>e_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constan <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7056	7180	
==>e_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constan <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4153	4250	
==>e Perl 6 homepage at L<http://dev.perl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.perl.org/p <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	146	268	
==>asked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4345	4437	
==>::L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document descri <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4345	4437	
==>::L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document descri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15514	15682	
==>array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15514	15682	
==>array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15514	15682	
==>array->elems->unboxed - 1;
                my $ret = Array->new();
                # XXX - rewrite this using map()
                $ret->push(
                    # XXX <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4466	4577	
==>:InternalValue::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Re <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1826	1919	
==>it('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %. <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1826	1919	
==>it('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %. <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8498	8586	
==>{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8486	8574	
==>{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11004	11140	
==>$method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not fou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11004	11140	
==>$method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not fou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11004	11140	
==>$method_table->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not fou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1626	1729	
==>modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1626	1729	
==>modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} val <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1626	1729	
==>modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} val <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	5159	5314	
==>x) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrou <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	5360	5509	
==>x) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	5360	5509	
==>x) }) {
        $idx++, next
          unless exists $pad->{$name};

        return ${ $pad->{$name} };
    }
    die "Couldn't find '$name' in surrou <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5877	5992	
==>mpile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar::Term. <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18398	18506	
==>Pe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren com <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14819	14927	
==>Pe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren com <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3004	3114	
==>ed $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3004	3114	
==>ed $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $p <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3004	3114	
==>ed $param{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1573	1726	
==>arName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1573	1726	
==>arName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self-> <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1573	1726	
==>arName}) {
      $subname = $self->{pFun}->{pLV}->{pVarName};
    }

    my $obj;
    if(
      $self->{pInv}                            and
      $self-> <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37393	37506	
==>rgument to the constructor.  The
argument is a true or false value determining whether this is a positive
assertio <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1442	1535	
==>ory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rat <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1442	1535	
==>ory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	4401	4512	
==>ub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	4401	4512	
==>ub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	4401	4512	
==>ub command_compile { compile("-e", $_[0]) }
sub command_c       { command_compile(@_)  }
sub command_l       { c <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1158	1267	
==>y $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub d <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	261	369	
==>y $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub d <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3535	3680	
==>|= 'module';
    $values{name}              ||= do {
        my $name = $values{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4049	4150	
==>the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=b <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4049	4150	
==>the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=b <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	249	358	
==>L2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	249	358	
==>L2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    v <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	249	358	
==>L2JS.die("JSAN library not loaded or not compatible!");
    }

    var old_errorLevel = JSAN.errorLevel;
    v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	12205	12353	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	12205	12353	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	12205	12353	
==>xed' ],
        DESTROY => sub {},
        methods => {
            'num' =>  sub { Num->new( '$.unboxed' => _('$.unboxed')->num  ) },
            'i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1616	1730	
==>y,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1616	1730	
==>y,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unl <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1616	1730	
==>y,
  "precompile-only"  => \my $precompile_only,
  "help"             => \&usage,
) and @pugs_args or usage();

unl <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31239	31338	
==>ct has branches (like C<|>).

=item family

The general family of this object.

=item data

The data <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11001	11098	
==>ing the execution of some methods, 
because it will try to iterate to find a "complement set" that <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11001	11098	
==>ing the execution of some methods, 
because it will try to iterate to find a "complement set" that <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	404	501	
==>.

All meta-information provided by dialects should be stored in this
tree as an attribute.  The p <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	404	501	
==>.

All meta-information provided by dialects should be stored in this
tree as an attribute.  The p <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6949	7081	
==>'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ] <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6949	7081	
==>'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3044	3156	
==>a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3044	3156	
==>a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3044	3156	
==>a => ::make_attribute($a));
			my $access = $a_config->{'access'};
			my $build  = $a_config->{'build'};
			my $i <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7363	7506	
==>t # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1 <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2562	2659	
==>_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @t <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2562	2659	
==>_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	930	1079	
==>ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	892	1035	
==>ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2648	2787	
==>)                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir - <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4088	4183	
==>-> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::C <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4088	4183	
==>-> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::C <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26712	26808	
==>ble

do{open F,">deleteme_pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use Langu <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36558	36651	
==>arameter $message and returns an equivalent human readable text message
string; this assumes t <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36558	36651	
==>arameter $message and returns an equivalent human readable text message
string; this assumes t <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11	112	
==>needed by v6.pm (perl6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options avail <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	361	460	
==>7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	361	460	
==>7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSI <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9716	9859	
==>ter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCh <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8832	8957	
==>_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8832	8957	
==>_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	491	630	
==>p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	491	630	
==>p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	491	630	
==>p6_root
       p6_main
       p6_mangle
       p6_unmangle
       p6_new
       p6_new_sub_from_pil_macro
       p6_declare_class
       p6_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2084	2181	
==>oper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
m <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2084	2181	
==>oper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	717	842	
==>ister "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	717	842	
==>ister "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	717	842	
==>ister "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don't* include the cc.
      # Think "next; $other_code <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2413	2554	
==>,
    methods => {
        'number'      => sub { _('$.number') },
        'passed'      => sub { _('$.passed') },        
        'diagnostic <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19218	19314	
==>he timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's s <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19218	19314	
==>he timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	17193	17301	
==>al->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	17193	17301	
==>al->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() fo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	17193	17301	
==>al->($::Object);
        # now destroy them... destroy then ALL .... muhahahahaha
        $_->DESTROYALL() fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5459	5553	
==>ew_role->version($version)     if defined $version;
    $new_role->authority($authority) if def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5459	5553	
==>ew_role->version($version)     if defined $version;
    $new_role->authority($authority) if def <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5459	5553	
==>ew_role->version($version)     if defined $version;
    $new_role->authority($authority) if def <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	12593	12718	
==>. }
    method current () { ... }
}

# Support for =$fh
class IO does Iter {
    method shift   () is primitive { self.readlin <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18460	18569	
==>yof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14881	14990	
==>yof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	8270	8370	
==>ned $pilc;
    $pilc->expand();
}

#================================================================= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	8270	8370	
==>ned $pilc;
    $pilc->expand();
}

#================================================================= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	8270	8370	
==>ned $pilc;
    $pilc->expand();
}

#================================================================= <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3566	3678	
==>nter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $spa <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3566	3678	
==>nter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $spa <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13171	13269	
==>y_bindir =  $self->dir->subdir( $inst_pkg->package )->subdir('bin');

    ### XXX doesn't return an <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	2153	2346	
==>->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	2153	2346	
==>->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	2153	2346	
==>->unboxed;
                $h->push( $pp );
            }
        }
        else {
            $h->push( $p );
        }
    }
    $h = Ref->new( '$.referred' => $h );
    return $h;
};

MULTI S <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3487	3698	
==>bj->$meth )    and error($?), return;
                }
            }
            
            ### do alts first, package;:installed uses them
            my @alts = eval { 
                map { JIB::Alternative <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3253	3364	
==>$_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3241	3352	
==>$_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	838	937	
==>der;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_finder->dup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4943	5042	
==>get_y, 0, '... got the right cleared y for p3d');
is($p3d->get_z, 0, '... got the right cleared z fo <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2745	2839	
==>.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this nod <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2745	2839	
==>.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this nod <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15660	15755	
==>er than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `star <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15660	15755	
==>er than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `star <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	821	1021	
==>op::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( " <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	822	1022	
==>op::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( " <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11174	11275	
==>run -- for example, if a backend only ran three tests, which it
    passed, this page would report 100 <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13965	14079	
==>d($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    # the b <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	641	736	
==>ew( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `nex <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	641	736	
==>ew( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `nex <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	6682	6779	
==>c.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6740	6837	
==>c.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	4520	4614	
==>elf, 
		left => $self->left->splat($accum),
		right => $self->right->splat($accum),
	}, (ref $s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6646	6775	
==>e "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6646	6775	
==>e "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6646	6775	
==>e "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "unbind <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	5658	5796	
==>mplementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	5658	5796	
==>mplementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	5658	5796	
==>mplementation
  my @res;
  for @array -> $elem {
    unless $cmp($elem, any(@res)) {
      push @res, $elem;
    }
  }

  @res;
}

sub JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1105	1214	
==>re immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1105	1214	
==>re immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1105	1214	
==>re immediately extracted and
    # removed from args.
    # Iin as_js2, remaining positional args are picked u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	670	791	
==>foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	670	791	
==>foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	670	791	
==>foreach my $name (qw<last next redo>) {
    register "&$name" => sub {
      my ($cc) = @_;

      # We purposefully *don' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2011	2147	
==>le($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2011	2147	
==>le($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2011	2147	
==>le($_);
  }
}

sub command_q { exit }

sub command_h { print $OUT <<USAGE }
Commands available from the prompt:
:h                      = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	3147	3266	
==>prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	3147	3266	
==>prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	3147	3266	
==>prefix:<[+~]> always return 0 or "" on undefined.
      # "Why not simply make +undef return undef?" -- Because then all <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4584	4732	
==>tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5237	5384	
==>tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1 <==
3	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2952	3064	
==>eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmts <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	5000	5108	
==>rd
$files->{$_->{file}} = $_ for @{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for(keys %$fi <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	128	235	
==>e  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = su <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	128	235	
==>e  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9095	9221	
==>e "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "wri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9095	9221	
==>e "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "wri <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9095	9221	
==>e "Not implemented: instantiate lazy slice using a reversed list"
                unless $end >= $start;
            #warn "wri <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3778	3945	
==>dex--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @inde <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3778	3945	
==>dex--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @inde <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2176	2275	
==>m for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2176	2275	
==>m for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2176	2275	
==>m for JS doesn't exist yet; precompiling...
    (You can safely ignore the 'useless use of constant' <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3780	3875	
==>,
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.closure_ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3780	3875	
==>,
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.closure_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6997	7082	
==>har("$"). %"
p5_metachar("(").
p5_metachar(")").
p5_metachar("{").

isP6metacharacter( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	12878	12980	
==>eption);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	12878	12980	
==>eption);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	12878	12980	
==>eption);
package PIL::Run::ApiX;

sub p6_return_macro {
    my(@args)=@_;
    my $argl = join(",",@args <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17720	17846	
==>ckage Digest;

sub compute {
    my $class = shift;
    my $thunk = shift;

    use Data::Structure::Util qw/signature/;;
    r <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1904	2010	
==>AME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$Fi <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1904	2010	
==>AME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$Fi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1162	1276	
==>our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1162	1276	
==>our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't u <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1162	1276	
==>our $CUR_LEXSCOPE_ID;
our $LEXSCOPE_PREFIX;
# We've to backup some vars to make nested subcalls work (as we don't u <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5997	6086	
==>perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5997	6086	
==>perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8194	8283	
==>perform the Test::Builder::Test::Base role.

=item B<Test::Builder::Test::Pass>

=item B<T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4672	4778	
==>y container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4672	4778	
==>y container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $l <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5262	5368	
==>y container_var named_only));
use Devel::LexAlias qw(lexalias);

sub slurpy_bind {
    my ($self, $vars, $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4045	4167	
==>=> 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4185	4307	
==>=> 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\ <==
3	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2124	2228	
==>pression may lead to execution of arbitrary code;
each alternate engine may introduce additional security <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1158	1276	
==>=> $_[1], %{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{out}= { named_only => 1, %{$_[2]} } }
    |   '*' s <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4737	4832	
==>ty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified func <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4737	4832	
==>ty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified func <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18511	18632	
==>AREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of th <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18511	18632	
==>AREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of th <==
3	/Users/nnunley/pugs/util/package-osx.pl	510	616	
==>bin/disassemble
        /usr/local/bin/parrot
        /usr/local/bin/pbc_info
        /usr/local/bin/pbc_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	869	968	
==>lti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	869	968	
==>lti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	869	968	
==>lti]Sub::SUBS

# Algorithm for matching/binding:
# extract all +$x, ?+$x - must be Pairs
# extract a <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6069	6189	
==>nf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6069	6189	
==>nf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15197	15288	
==>ite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35140	35266	
==>offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35140	35266	
==>offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $le <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35140	35266	
==>offset -> body=shift length -> tail=remaining
            ( $len_body, @body ) = $array->_shift_n( $length );
            ( $le <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	449	552	
==>rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	449	552	
==>rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	449	552	
==>rx_helper_cache);
sub JS::Root::rx_helper_(%mods0, Str $pat0, Str $qo, Str $qc) is primitive {

  if !%m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	6512	6644	
==>ub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5545	5646	
==>-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is expo <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5545	5646	
==>-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is expo <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3538	3689	
==>ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capt <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3397	3542	
==>ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	2755	2900	
==>bname;
    has Str $.subtype;
    has Code $.sub;
    has Str $.params;   # FIXME: needs attention; don't use yet.
}

multi sub caller (Class $kin <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6202	6307	
==>ify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef i <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6202	6307	
==>ify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	8384	8505	
==>d;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	8384	8505	
==>d;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	8384	8505	
==>d;
        }
    }
}));

$::Class->add_method('MRO' => ::make_method(sub { 
    my $self = shift;
    unless (@{::opaque_i <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Perl5.pm	50	161	
==>od, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in import <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Perl5.pm	50	161	
==>od, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in import <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Perl5.pm	50	161	
==>od, *@imports) {
  JS::inline('(
  function (mod, imports) {
    Perl5.perl_use(mod);
    for (var sym in import <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	31831	31952	
==>ngth, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	31831	31952	
==>ngth, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	31831	31952	
==>ngth, @ret );
}

sub _pop_n {
    my $array = shift;
    my $length = shift;
    my @ret;
    my @tmp = @{$array->{items}} <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3201	3305	
==>hc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $ <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3201	3305	
==>hc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	948	1047	
==>are included into the Class.  This has the same effect as
them being defined in the Class, so this e <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	6767	6889	
==>e) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$k <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6767	6889	
==>e) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$k <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2007	2101	
==>);
    $optable->addToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addTok <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	148	265	
==>port(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($t <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	148	265	
==>port(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21372	21488	
==>y futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21372	21488	
==>y futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	21372	21488	
==>y futher DESTROY calls
$::IN_GLOBAL_DESTRUCTION = 0;
END {
    if (defined $::Class && defined $::Object) {
        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	15687	15777	
==>$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	15687	15777	
==>$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	15687	15777	
==>$::Class->add_method('get_attribute' => ::make_method(sub {
    my ($self, $label, %params) <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1862	1973	
==>hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | <==
3	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1862	1973	
==>hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	1614	1723	
==>o &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	1614	1723	
==>o &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	1614	1723	
==>o &postcircumfix:<{ }>!");

    var proxy_for = function (key) {
      // Relay .FETCH and .STORE to hash.entr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5747	5876	
==>, '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    ret <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3083	3212	
==>, '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3932	4061	
==>, '$<variable>' );
    return "    $op $name;\n";
}
sub node::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	4823	4923	
==>ie "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	4823	4923	
==>ie "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pip <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	4823	4923	
==>ie "Couldn't write into pipe to \"$cfg{js}\": $!\n";
  close $write_fh     or die "Couldn't close pip <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12980	13091	
==>$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar::Perl6 <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3568	3665	
==>ten using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still be <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3568	3665	
==>ten using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still be <==
3	/Users/nnunley/pugs/docs/feather/~/gen.pl	611	707	
==>m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li>\n] for sort @user <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7795	7884	
==>s_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
pus <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1620	1709	
==>s_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
pus <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	236	358	
==>] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller();
    if ( ++$seen{"$c[1]| <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14355	14449	
==>target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $ch <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14355	14449	
==>target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $ch <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5687	5845	
==>ack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5687	5845	
==>ack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5687	5845	
==>ack_match = function (match) {
            var from = match.index;
            var str  = match[0];
            var to   = from + str.length -1;
            va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	4193	4305	
==>os_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	4193	4305	
==>os_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_a <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4783	4895	
==>os_arg, $lv, $pad);
	    $pos_arg = [];
	    last;
	}
	next if $bound{$param->name};
	my $current = shift @$pos_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	5818	5918	
==>S, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	5818	5918	
==>S, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	5818	5918	
==>S, map { $_->{pSubName} } @{ $fixed_tree->{"pilGlob"} }) .
    "\n// End declaration of vars.\n";
  $ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7318	7492	
==>_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation::Example {

    if ($attrs.si <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12166	12260	
==>e_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier- <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12166	12260	
==>e_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	3972	4117	
==>t,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	3972	4117	
==>t,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	3972	4117	
==>t,$qo,$qc);
    my $nth_keys = %mods{'nth'};
    $matcher = sub ($string) {
      my $m = $string ~~ $rx;
      return $m if !$m;
      my @a = @$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5723	5929	
==>ing =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5723	5929	
==>ing =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5723	5929	
==>ing =~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string <==
3	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1465	1568	
==>%v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id <==
3	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1465	1568	
==>%v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	441	544	
==>e considered a protected 
# method, which is used to implement the 
# other methods below
sub _compare { <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1212	1365	
==>f all goes well
        {   print "Writing meta data...\n";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX ne <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16350	16492	
==>}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16350	16492	
==>}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_c <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8039	8143	
==>rns 
a 2 element list in (index, value) order, C<pairs> a C<Pair(index, value)>.

C<@array> is considered <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15688	15786	
==>e versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 CO <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15688	15786	
==>e versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 CO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15703	15832	
==>{ 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15703	15832	
==>{ 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15703	15832	
==>{ 0 + $_[0] }
sub to_int        { $_[0] }

package Perl6::Value::Str;

sub to_str        { $_[0] }
sub to_bit        { 
    return <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15527	15647	
==>::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15527	15647	
==>::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15527	15647	
==>::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1539	1670	
==>tore( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1539	1670	
==>tore( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1539	1670	
==>tore( $p->key, $p->value );
    }
    elsif ( $p->isa( 'Array' ) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21175	21375	
==>my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21175	21375	
==>my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $sel <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21175	21375	
==>my $scalar = Scalar->new();
                            $scalar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/IO.pm	2383	2486	
==>b { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/IO.pm	2383	2486	
==>b { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/IO.pm	2383	2486	
==>b { unlink($_[0]) or die $! })")(filename);
    }
  )')($filename)
}

sub JS::Root::system(Str *@command <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1465	1663	
==>else
                    subexp.push(new_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	797	897	
==>a store for single elements (Span::Singleton)
    * use binary search instead of linear search

  Fro <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	797	897	
==>a store for single elements (Span::Singleton)
    * use binary search instead of linear search

  Fro <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3421	3533	
==>method(@_);
}

sub define_prim {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return $body;
}

sub defi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23325	23424	
==>ility to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a R <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27877	27976	
==>ility to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5177	5294	
==>rm.double_quoted>
            { return { double_quoted => $/{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ) <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	527	628	
==>to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually must deal w <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22867	22986	
==>to setpad
  ignorecase:
    mname = ":i"
  setpad:
    $P0 = pad[mname]
    pad[mname] = value
    exp = self[0]
    exp <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31998	32094	
==>late module sets in turn, looking at just the set member for
each that corresponds to language A, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31998	32094	
==>late module sets in turn, looking at just the set member for
each that corresponds to language A, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2770	2881	
==>hift;
    return $self unless $self->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto_pr <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6398	6503	
==>rn $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6410	6515	
==>rn $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8317	8430	
==>:rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\n" .
    #       emit_r <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4615	4710	
==>set.complement );
}

# --------- arithmetic and list operations ----------------

method grep ($ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4615	4710	
==>set.complement );
}

# --------- arithmetic and list operations ----------------

method grep ($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10217	10341	
==>return bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10217	10341	
==>return bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	10217	10341	
==>return bless sub {
            confess "Cannot call private method from different class"
                unless defined $::CA <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1466	1576	
==>db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1466	1576	
==>db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $n <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1675	1785	
==>db_param;
	    $named->{$db_param->name} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3696	3813	
==>efined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3696	3813	
==>efined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3696	3813	
==>efined $subname;

    # Go!
    my $inv = $self->{pInv} ? $jsobj : "";
    my $sub = $inv || $native ? substr($subname <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2629	2760	
==>gpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $la <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2629	2760	
==>gpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $la <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2629	2760	
==>gpair = undef) {
    my $lang = "Perl6";
    try { $lang = $langpair.value }; # XXX - pilrun multi-bug workaround
    $lang = lc $la <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31265	31533	
==>bol->new('$self:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            su <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	30637	30735	
==>tch
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the c <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35188	35286	
==>tch
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	853	968	
==>a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	853	968	
==>a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	853	968	
==>a=>'b', c=>'d' } generates: {({(c, d), (a, b)}, undef)}
# TODO - pick()
#        Does pick remove the element? (Hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	671	824	
==>' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	876	1029	
==>' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque st <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	932	1085	
==>' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $instance;
    }

    # Accessors for the inside of the opaque st <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32242	32343	
==>ything to the walking stack.

When an object does have an ending node, its ender() method should
retur <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14914	15010	
==>t way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmati <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14914	15010	
==>t way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmati <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12612	12708	
==>.

This module deals with encoding and decoding of strings with HTML
character entities.  The mod <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12612	12708	
==>.

This module deals with encoding and decoding of strings with HTML
character entities.  The mod <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8389	8476	
==>Foo::singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::singleton_t <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1232	1353	
==>xport {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servernam <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1232	1353	
==>xport {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servernam <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	2257	2361	
==>e
9th line
10th line
11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2nd line
3rd line
4th line <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmts.pm	47	158	
==>sa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmts.pm	47	158	
==>sa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmts.pm	47	158	
==>sa(...)
# make sure that PIL::Parser gave us correct nodes.
package PIL::PStmts;

use warnings;
use strict;

sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1894	2038	
==>$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1882	2026	
==>$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1483	1582	
==>me',
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool',
  'pSubIsMult <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5435	5542	
==>P protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Te <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5435	5542	
==>P protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Te <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7632	7739	
==>P protocol:

  ok 1 - test description
  not ok 2 - test description
  # test diagnoistic

=back

=item B<Te <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2367	2468	
==>$path =~ s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

sub write_config_module {
    my $conf <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32588	32692	
==>ion of the aforementioned binary union()
operator, and the order of its arguments is not significant to t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37138	37242	
==>ion of the aforementioned binary union()
operator, and the order of its arguments is not significant to t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36446	36550	
==>ion of the aforementioned binary union()
operator, and the order of its arguments is not significant to t <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18099	18252	
==>fier ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        g <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4226	4330	
==>o, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, : <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4284	4388	
==>o, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, : <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2237	2381	
==>arhash>)\{$<key>:=(<term1>)\}
        { return { access_hash_element => $() } }
RULE
*{'assign_hash_to_scalar'} = Pugs::Compiler::Rule->compile(< <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	23	120	
==>s;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # consolidate wit <==
3	/Users/nnunley/pugs/util/config_h.pl	1662	1811	
==>y $temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        print TMP $code;
        close TMP;
        system(
            $ghc, @gh <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	11747	11835	
==>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11747	11835	
==>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	19399	19508	
==>by printing only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12070	12176	
==>vent) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_com <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12070	12176	
==>vent) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_com <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28747	28839	
==><$mapping> value set members do not match invocant
Relation attribute names, or duplicate any <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33299	33391	
==><$mapping> value set members do not match invocant
Relation attribute names, or duplicate any <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	859	976	
==>h->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	859	976	
==>h->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17356	17459	
==>dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14639	14810	
==>->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14639	14810	
==>->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14639	14810	
==>->{pops}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            unshift @{$self->{pops}}, ( $ret->pop, 
                        map <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1593	1698	
==>$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1593	1698	
==>$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1593	1698	
==>$a[$i] = $ary->fetch($i)->fetch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2830	2930	
==>}
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2830	2930	
==>}
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2830	2930	
==>}
  }

  push @components, [inline => <<EOF];
// Trigger running of all END blocks.
PIL2JS.catch_all_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	28	142	
==>ory;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not 'use bas <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	931	1025	
==>TTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_n <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	931	1025	
==>TTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_n <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1943	2095	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2136	2288	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7264	7373	
==>ule files",
  ensure => sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	349	546	
==>e {
                $program = "$tab ruleop::concat(\n" . 
                            ( join '', @s ) . 
                            "$tab )\n";
            }
            #print "program $program\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1799	1905	
==>-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99]) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1799	1905	
==>-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99]) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1799	1905	
==>-10
# * Ported from Perl6 version

# BUGS
# - Infinite sub slices are not supported yet:
#   ($x,@a[1..99]) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	4734	4847	
==>Stmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	4734	4847	
==>Stmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	4734	4847	
==>Stmt::already_protected) {
	$_[0]->SUPER::expand().";\n";
    } else {
	local $EvalX::PStmt::already_protected = 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	25199	25361	
==>:numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	25199	25361	
==>:numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	25199	25361	
==>:numify( $self->elems );
                    $tmp = $self->fetch( $_ );
                    $tmp = Perl6::Value::stringify( $tmp );
                    push @start <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	312	409	
==>}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perl <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	312	409	
==>}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perl <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12354	12512	
==>der('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12354	12512	
==>der('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI <==
3	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1028	1129	
==>root of 7 is: {newton(7, &f, $verbose => 1)}";

=head1 DESCRIPTION

Newton's method is a simple method <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38893	38996	
==>re is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38893	38996	
==>re is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38893	38996	
==>re is one
    # XXX - TODO - optimization - add shift_n, pop_n closures
    return Perl6::Value::List->n <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6558	6657	
==>olean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6558	6657	
==>olean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8755	8854	
==>olean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test::Skip>

This also <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40376	40486	
==>nboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40376	40486	
==>nboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $va <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40376	40486	
==>nboxed;
    return $value;
}
sub unshift {
    my ( $this, $value ) = @_;
    unshift @{$this->{arrayref}}, $va <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1826	1951	
==>ture {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1826	1951	
==>ture {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    retu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2062	2187	
==>ture {
    my $class = shift;
    my $sub = shift;
    my $cv = _get_cv($sub);
    *$cv->{sig} = Data::Bind->sig(@_);
    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	303	445	
==>w,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	303	445	
==>w,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	303	445	
==>w,
        env       => Perl6::MetaModel::Parser::Env->new,
        code      => undef
    } => $class;
    return $self;
}

sub tokenizer { (s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7430	7521	
==>('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7430	7521	
==>('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7430	7521	
==>('collect_all_roles' => ::make_method($_collect_all_roles));

## --------------------------- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	267	374	
==>_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	267	374	
==>_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	267	374	
==>_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;

  if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15152	15284	
==>lasses => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15152	15284	
==>lasses => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15152	15284	
==>lasses => @supers
            # however, we dont actually need to go there
            # if what we are asking for is a private metho <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4733	4865	
==>{
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!childr <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4733	4865	
==>{
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!childr <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	30965	31060	
==>>>.

=head1 COPYRIGHT

Copyright 2002-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
A <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1674	1782	
==>_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    ret <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1674	1782	
==>_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    ret <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4538	4644	
==>mage of the initrd, which will be mounted.
  --initrd-size=$initrd_size
    --initrd-size specifies the siz <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5145	5241	
==>llowing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get( <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5145	5241	
==>llowing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2393	2532	
==>> $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2940	3079	
==>> $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3487	3626	
==>> $neg,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	3161	3260	
==>_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 'syn', "S12.pod")) <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3460	3558	
==>collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3460	3558	
==>collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Even <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	386	528	
==>$file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	386	528	
==>$file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7886	7993	
==>:Builder           $:singleton;
  has Test::Builder::Output   $.output handles 'diag';
  has Test::Builder:: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4006	4095	
==>a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4006	4095	
==>a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6203	6292	
==>a Test::Builder::Test::Fail
instance, passing on the C<$description> parameter and setting <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	8801	8961	
==>store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	8801	8961	
==>store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	8801	8961	
==>store( Int->new( '$.unboxed' => -1 ) );
                        return $::SELF 
                    }
                    return Str->new( '$.unboxed' => 'undef' <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2140	2254	
==>perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:per <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2140	2254	
==>perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:per <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16019	16121	
==>ced treatment will be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarranted chum <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3051	3181	
==>xplanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3051	3181	
==>xplanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4575	4705	
==>xplanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is export {
     if $todo {
        $Test.todo($passed, $descri <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8565	8666	
==>"";
}
sub PIL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0] <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	805	896	
==>nstructor for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::No <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	805	896	
==>nstructor for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::No <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21461	21556	
==>or a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<ni <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21461	21556	
==>or a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<ni <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	22749	22951	
==>am ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	22749	22951	
==>am ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	22749	22951	
==>am ]";
                        $scalar = Scalar->new();
                        $scalar->store( $elem );
                        # replace Value with Scalar
                        #warn "STORE = @param, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18492	18630	
==>r down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18492	18630	
==>r down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	18492	18630	
==>r down here ...

{
    package class;
    
    # this package represents the "magic"
    # of the class layer. Using this 
    # we can get <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6669	6892	
==>e way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        m <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6669	6892	
==>e way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        m <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	354	467	
==>ude <windows.h>
#endif
int
main(int ac, char **av)
{
    int i;
#ifdef __BORLANDC__
    char *s = GetComman <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6183	6280	
==>v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2 <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6183	6280	
==>v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39762	39857	
==>ou can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39762	39857	
==>ou can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	10118	10221	
==>p;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	10118	10221	
==>p;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PI <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	10118	10221	
==>p;
use PIL::PPad;
use PIL::Params;
use PIL::PPos;
use PIL::PStmt;
use PIL::PStmts;
use PIL::PVal;
use PI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	3559	3690	
==>attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	3559	3690	
==>attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	3559	3690	
==>attr($self->class => '$:name') = 'EigenClass[' . $name . ']'
            if $self->class->class == $::EigenClass ||
               $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	3170	3319	
==>> 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	3170	3319	
==>> 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    } <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	3170	3319	
==>> 0, end => p6_to_n( $a->elems ) - 1 ) )
    }
    else {
        for ( 0 .. p6_to_n( $a->elems ) - 1 ) {
            $idx->push( $_ )
        }
    } <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2612	2708	
==>l to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the fo <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2612	2708	
==>l to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the fo <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21331	21427	
==>sual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tes <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2990	3132	
==>@tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2990	3132	
==>@tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4038	4139	
==>lf->{how}, "]";
	join "", "[", ${$self->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$sel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8173	8281	
==>head1 METHODS

=head2 new ()

Class method.  Returns a category object.

options:

=item * grammar => <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41501	41589	
==>as named C<natural_join>.

=item C<join (Relation::Example *@others) returns Relation::Ex <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5255	5345	
==>ass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5255	5345	
==>ass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5255	5345	
==>ass' => ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Class->add_method('su <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16273	16364	
==>ic_in($.if) = { generic_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: generic_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9478	9568	
==>true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9478	9568	
==>true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1. <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16743	16898	
==>data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21841	21996	
==>data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	923	1038	
==>d)

=cut

### XXX combine with the dependency checker?
sub pretty_print {
    my $self    = shift;
    my $struct  = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	7589	7735	
==>$s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	7589	7735	
==>$s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $:: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	7589	7735	
==>$s .= "(" . $_[0]->signature_str . ") {...}"; 
                return Str->new( '$.unboxed' => $s ) 
            },
            'ref' =>  sub { $:: <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4070	4206	
==>[0]; #shudder
        return $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::o <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5281	5402	
==>r error("Could not create installed package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = F <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8528	8624	
==>abel)) returns method
    ((($self: get_attr (symbol new (%:methods))) fetch ($label))))

=cut

$ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7715	7823	
==>ed => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9643	9751	
==>ed => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7703	7811	
==>ed => \\\%named, bool => \$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12645	12793	
==>)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12645	12793	
==>)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12645	12793	
==>)->store( Array->new ) },
            'delete' =>   sub {
                # delete a slice, returns deleted items
                my ( $self, @list ) <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13299	13418	
==>ource's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $? <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	16776	16895	
==>ource's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $? <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16138	16257	
==>ource's heading is a proper subset of the
        # first source's heading, so simplify to a semijoin.
        return $? <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1429	1556	
==>);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1429	1556	
==>);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1429	1556	
==>);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void {
    for %params.keys <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	2145	2248	
==>^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	2145	2248	
==>^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } q <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	2145	2248	
==>^(~?)METAMODEL$/
      ? map { $1 . $PIL2JS::cfg{metamodel_base} . join("/", split /\./, $_) . ".js" } q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3307	3421	
==>arp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3307	3421	
==>arp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3663	3777	
==>arp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	6032	6173	
==>ts skipped
    todo            Number of individual todo tests

    files           Number of test files ran
    good            Number of tes <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37800	37896	
==>parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is already l <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37800	37896	
==>parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is already l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1660	1814	
==>";
}

1 if 4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok");
END { Tes <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	11968	12068	
==>ub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_ <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12026	12126	
==>ub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1738	1851	
==>= (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<par <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1738	1851	
==>= (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<par <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14671	14779	
==>lass => print => $neg, \$how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	4	99	
==>arry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	4	99	
==>arry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	4	99	
==>arry likes long names for continuations)

# sleep, slightly hacky (we redefine &exit temporarily <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	5561	5663	
==>d STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE wou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	5561	5663	
==>d STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE wou <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	5561	5663	
==>d STORE to handle this, however, this would
put a burdon on subclassers possibly.

- CREATE

CREATE wou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15948	16042	
==>ther
Perl modules.

Modules that use these compilation modules get compiled into some
altered f <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15948	16042	
==>ther
Perl modules.

Modules that use these compilation modules get compiled into some
altered f <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2567	2669	
==>f $self->{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$ <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	12484	12584	
==>`

These functions will eval a code snippet, and then pass the result to is or ok
on success, or repo <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12542	12642	
==>`

These functions will eval a code snippet, and then pass the result to is or ok
on success, or repo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10171	10282	
==>ey (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10171	10282	
==>ey (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10171	10282	
==>ey (keys(%$sym)) {
		next if $key =~ /BEGIN/;
		# XXX - *@a doesnt work yet
#		my $sub = "sub $key (*\@a) { PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14165	14349	
==>y for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14165	14349	
==>y for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	14165	14349	
==>y for now
            #if ($is_class_method) {
            #    $method_table_name = '%:class_methods';                
            #}
            #else {
                $method_table_ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2165	2279	
==>ement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2165	2279	
==>ement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	153	248	
==>ame;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use stric <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5093	5199	
==>([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5093	5199	
==>([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5093	5199	
==>([^a-z0-9_\cA])/"_".ord($1)."x"/ieg;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2549	2653	
==>o zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2549	2653	
==>o zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  ) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2549	2653	
==>o zero\\'))') : Number(a)  % Number(b)" ],
    [ "infix:**", "N", "Math.pow(Number(a), Number(b))" ],
  ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15040	15144	
==>hods can both be used to read
and to set the value of a header.  The header value is set if you pass
an a <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15040	15144	
==>hods can both be used to read
and to set the value of a header.  The header value is set if you pass
an a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4652	4750	
==>t(get_data($_[0], '$<key>'));
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = emit <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2729	2912	
==>ame => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        pr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1324	1423	
==>' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1324	1423	
==>' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1728	1839	
==>t an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coer <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1728	1839	
==>t an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coer <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1728	1839	
==>t an error message?
#        iblech buu: Because {undef,undef} is not a hash, but a Code, and Pugs tried to coer <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11953	12112	
==>$ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11953	12112	
==>$ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x ) <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11953	12112	
==>$ret->elems && @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x ) <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	261	393	
==>d BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	261	393	
==>d BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	654	768	
==>iles
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir compile_dir ]),
          $INSTALLATION_DIR  
    ) { <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	6109	6249	
==>$pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self- <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4822	4911	
==>ELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_ <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4822	4911	
==>ELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1364	1467	
==>PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1364	1467	
==>PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1364	1467	
==>PIL::VARS_TO_BACKUP, map { $_->{fixed} } @{ $self->{pSyms} }
    unless $PIL::IN_SUBLIKE;

  # Emit appr <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15053	15157	
==>ng (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... })
  package Regexp::Parser::logical;
}
{
  package <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27416	27511	
==>he object is constructed.  If you want to
conceptually change an existing Message object, you mu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27416	27511	
==>he object is constructed.  If you want to
conceptually change an existing Message object, you mu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38389	38504	
==>ms}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38389	38504	
==>ms}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{item <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38389	38504	
==>ms}}, $fill, $item;
    return $array;
}

sub reverse {
    my $array = shift;
    my @rev = reverse @{$array->{item <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	17394	17493	
==>l functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgloc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	17394	17493	
==>l functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgloc <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	17394	17493	
==>l functions for "unboxed" Values.

=head1 SEE ALSO

Pugs

=head1 AUTHOR

Flavio S. Glock, E<lt>fgloc <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	697	872	
==>ck}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shamele <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13342	13436	
==>ew C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will r <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13342	13436	
==>ew C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7760	7867	
==>oxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7760	7867	
==>oxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7760	7867	
==>oxed' => Perl6::Value::Bit::to_int( _('$.unboxed') ) ) },
            'str' => sub { Str->new( '$.unboxed' = <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	19196	19293	
==>"Cannot 'shift' scalar"; };

multi pop (@array) is builtin is primitive { List::pop(@array) };
mul <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7327	7542	
==>$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7327	7542	
==>$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name <==
3	/Users/nnunley/pugs/util/importgraph.pl	2057	2150	
==>er\.\w+$/);
setup_rank('parser_program', 'Pugs.Parser.Program');
setup_rank('prim', qr/^Pugs\. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	4169	4275	
==>.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	4169	4275	
==>.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %para <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	4169	4275	
==>.1-cpan:FGLOCK';

# ------ Perl6::Slice -----

sub Perl6::Slice::new { 
    my $class = shift;
    my %para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3966	4082	
==>}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3966	4082	
==>}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $par <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3966	4082	
==>}; 

    $param{sum}     = sub { undef }   unless defined $param{sum}; 

    $param{shifts}  = [] unless defined $par <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	10979	11104	
==>$n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10979	11104	
==>$n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4804	4900	
==>urce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4804	4900	
==>urce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4804	4900	
==>urce if $DEBUG;
    $method_source = $self->_post_process_method($method_source);
    warn "post: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5728	5941	
==>~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5728	5941	
==>~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5728	5941	
==>~ s/ (
                 (^\w)    #at the beginning of the line
                   |      # or
                 (\s\w)   #preceded by whitespace
                   )
                /\U$1/xg;
    $string =~ s/([\w\' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2086	2192	
==>0000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1]. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2086	2192	
==>0000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1]. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2086	2192	
==>0000,100000]=(1..9999999) 
#        returned undef (the list went into array element zero)

# TODO - @a[1]. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	669	795	
==>e);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // htt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	669	795	
==>e);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // htt <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	669	795	
==>e);
      }

      // See thread "Hash creation with duplicate keys" started by Ingo
      // Blechschmidt on p6l:
      // htt <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7794	7905	
==>t::Builder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test::Builder           $ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	35	138	
==>t::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $ <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	35	138	
==>t::Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22525	22620	
==>DALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22525	22620	
==>DALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI S <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22525	22620	
==>DALL ($xx0,$xx1) {...};

# op3
MULTI SUB Pugs::Internals::caller ($xx0,$xx1,$xx2) {...};
MULTI S <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5793	5898	
==>er)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12623	12721	
==>nd, or holidays per month.

It is also used when the objects represent "chunks" of data, such as da <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12623	12721	
==>nd, or holidays per month.

It is also used when the objects represent "chunks" of data, such as da <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4258	4373	
==>o null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $key = "" <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4383	4493	
==>s is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4383	4493	
==>s is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	3048	3150	
==>ramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	3048	3150	
==>ramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPara <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	3048	3150	
==>ramName} }
  sub type        { $_[0]->{tpParam}{paramContext}->[0] }
  sub is_slurpy   { $_[0]->{tpPara <==
3	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	600	698	
==>tr $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne <==
3	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	600	698	
==>tr $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5770	5958	
==>str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5770	5958	
==>str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5770	5958	
==>str  = match[0];
            var to   = from + str.length -1;
            var arr  = [];
            for(var i = 1; i < match.length; i++) {
              var s = match[i];
              va <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13834	13937	
==>First do some optimizing of the order that source relations are
    # combined, so to try and make the l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17311	17414	
==>First do some optimizing of the order that source relations are
    # combined, so to try and make the l <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16691	16794	
==>First do some optimizing of the order that source relations are
    # combined, so to try and make the l <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	4383	4500	
==>_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	4383	4500	
==>_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	4383	4500	
==>_altered.delete('overlap');
    my $rx = rx_core_(%mods_altered,$pat,$qo,$qc);
    $matcher = sub ($string) {
       m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11762	11915	
==>new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11762	11915	
==>new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$met <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11762	11915	
==>new( '$.unboxed' => defined $tmp ? 1 : 0 ) 
                    if $method eq 'defined';                
                die "unsupported ref method .$met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3633	3740	
==>$m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3633	3740	
==>$m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3633	3740	
==>$m\\n\" if \$main::global_debug;\$$m = $vivifier}" : '');
    "do{no strict;(defined(\$$m)?\$$m:p6_lookup('$ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7943	8048	
==>s the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object that <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7675	7777	
==>s the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object that <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	725	826	
==>%s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      print <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1904	2102	
==>is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29dra <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21352	21462	
==>eturn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-b <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17773	17883	
==>eturn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-b <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	7643	7763	
==>-----------------------------------

## NOTE:
## we want to prevent the default version 
## of this from taking over whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	7643	7763	
==>-----------------------------------

## NOTE:
## we want to prevent the default version 
## of this from taking over whic <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	7643	7763	
==>-----------------------------------

## NOTE:
## we want to prevent the default version 
## of this from taking over whic <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4118	4247	
==>lues = shift;
                unshift @{$self->get_value('@:slots')}, mk_containers(@$values);
            },

            'array_ <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6840	6945	
==>from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  % <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6840	6945	
==>from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  % <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9682	9783	
==>ct the depth to which it reaches, pass walker()
an argument:

  my $iter = $parser->walker(0);  # top- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	757	873	
==>r types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	757	873	
==>r types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	757	873	
==>r types other than 'P6opaque' are currently supported";    
    # this just gathers all the 
    # attributes that we <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1233	1480	
==>RAY') {          
                push @t => $self->evaluate($t);
                next;
            }         
            
            # deal with strings   
            if ($t eq '"') {
                if ($in_string) {
                    $in_st <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5786	5880	
==>d Pugs::Grammar::Match



Rule constructors return Rule objects, which are "matcher" things.

R <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5585	5676	
==>d Pugs::Grammar::Match

Rule constructors return Rule objects, which are "matcher" things.
R <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12832	12958	
==>f $X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      ret <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	907	1034	
==>CodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	907	1034	
==>CodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«< <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	907	1034	
==>CodeAt(i) $op {$y}.charCodeAt(i));
      \}
      return res;
    \})()
  ";
};

# Standard operators
my @subs = (
  "infix:«< <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	233	340	
==>',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)=@_;$$o- <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	22525	22618	
==>ide
environment at all.

A Relation object has 2 main attributes (implementation details subje <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27077	27170	
==>ide
environment at all.

A Relation object has 2 main attributes (implementation details subje <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9	165	
==>t;
use warnings;

no warnings 'recursion';

use Scalar::Util ();
use String::Escape ();
use Term::ReadKey;

{
    package Map;
    sub new {
        my $clas <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14662	14758	
==>ds.  Long header
values are not folded.

The optional $eol parameter specifies the line ending se <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14662	14758	
==>ds.  Long header
values are not folded.

The optional $eol parameter specifies the line ending se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8433	8547	
==>j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8433	8547	
==>j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8433	8547	
==>j->values}";
        return $j;
    }
    Carp::confess "unknown class";
}
sub p6_new_sub_from_pil_macro {
    my($ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	2186	2285	
==>s}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	2186	2285	
==>s}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pV <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	2186	2285	
==>s}->[0]->unwrap->{pLit}->isa("PIL::PVal")         and
      $self->{pArgs}->[0]->unwrap->{pLit}->{pV <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7758	7862	
==>es_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7758	7862	
==>es_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_cl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7758	7862	
==>es_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @classes_needed = grep {!$have_cl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3653	3756	
==>invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3653	3756	
==>invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root." <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3653	3756	
==>invocant;

    my $fv;
    if($f_is_idempotent) {
	($fv) = PIL::Run::EvalX::run_p5r("package ".p6_root." <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2931	3072	
==>my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2931	3072	
==>my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9143	9283	
==>\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::stat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9248	9370	
==>ue::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9248	9370	
==>ue::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9248	9370	
==>ue::stringify( _('$.key') );
                my $value = Perl6::Value::stringify( _('$.value') );
                Str->new( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7789	7895	
==>]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7789	7895	
==>]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7789	7895	
==>]->cxt->main }
}

# Possible subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14085	14223	
==>ifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14085	14223	
==>ifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14085	14223	
==>ifts}} if @{$self->{shifts}};
            my $any = 0;
            for ( $ret, @lists ) { $any++ if $_->elems }
            push @{$self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3203	3434	
==>verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %even <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3203	3434	
==>verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %even <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1585	1690	
==>y =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # esc <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17173	17268	
==>ffsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we want <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22273	22368	
==>ffsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we want <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	23440	23582	
==>= $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think on <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	23440	23582	
==>= $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think on <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	23440	23582	
==>= $tmp->$method( @param );
                    unless ( Perl6::Value::p6v_isa( $elem, 'Scalar' ) ) {
                        # XXX - I think on <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2221	2456	
==>l  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted => $m->() },
                        } );
                        #print "Match: " <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	8820	8931	
==>tin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $l <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8820	8931	
==>tin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $l <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7598	7734	
==>st++;
    }
    local $^W = 0;
    last TODO;
}

sub eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13377	13483	
==>> $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence objec <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13377	13483	
==>> $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence objec <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	28442	28535	
==>C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32994	33087	
==>C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new tupl <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32122	32215	
==>C<$mapping> says which attributes are being combined/wrapped, with
its keys being the new tupl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	11965	12132	
==>&& @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	11965	12132	
==>&& @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	11965	12132	
==>&& @{$self->{shifts}} < 2 ) {
                my @x;
                push @x, $ret->shift for 1 .. $arity;
                my $res = $code->do( @x );
                my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	1780	1884	
==>join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	1780	1884	
==>join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inli <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	1780	1884	
==>join(String(sep));
    }
  )')(@things.map:{ ~$_ }, $sep);
}

method JS::Root::elems(@self:) {
  JS::inli <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	6076	6176	
==>$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	6076	6176	
==>$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	6076	6176	
==>$_[0]\" for writing: $!\n";
  print $fh encode "utf-8", $_[1] or die "Couldn't write to \"$_[0]\": $! <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8126	8258	
==>arse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8126	8258	
==>arse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	5377	5509	
==>{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	5377	5509	
==>{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	5377	5509	
==>{pInv}
        ? $self->{pInv}
        : $self->{pFun},
      @{ $self->{pArgs} },
    ],
    $as_js,
  );
}

sub unwrap { $_[0] }

s <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	536	647	
==>r( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SU <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1020	1131	
==>r( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SU <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	186	284	
==>n{block}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\end{block}

Neu in <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14240	14355	
==>= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14240	14355	
==>= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	7786	7894	
==>ty,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Spee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	7786	7894	
==>ty,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Spee <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	7786	7894	
==>ty,
      # Lexicalize PIL2JS and thus speed up PIL2JS
      PIL::add_indent(1, "var PIL2JS = AlsoPIL2JS_Spee <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8266	8401	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8266	8401	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8266	8401	
==>if ($label =~ /^\&(.*)$/) {
        # check for instance method
        return $self->has_method($1) ? 
                    $self->get_m <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3979	4123	
==>_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () return <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3979	4123	
==>_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () return <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	1459	1572	
==>s Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$l <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8449	8582	
==>arn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8449	8582	
==>arn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for m <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8449	8582	
==>arn "               FROM: ".$other."\n";
    my $ary = $self->{array};
    my @idx = $self->{slice}->items;
    my $pos = 0;
    for m <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7033	7155	
==>f(stderr,"regexp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eva <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8369	8473	
==>l to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8369	8473	
==>l to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5194	5300	
==>if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_co <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5194	5300	
==>if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_co <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4309	4395	
==>= def_rule('ws',mk_dynamic_alt(\@whitespaces));

my @statements;
def_rule('statement',m <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	365	471	
==>e("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the resul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	365	471	
==>e("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the resul <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	365	471	
==>e("...") is a pseudo sub: &JS::inline's first param is directly
# inlined (with no escaping) into the resul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	8042	8173	
==>:write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	8042	8173	
==>:write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #wa <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	8042	8173	
==>:write_thru {
    # writes back to the bound Array using the slice as an index
    my $self = shift; 
    my $other = shift;
    #wa <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7108	7214	
==>r TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'lef <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7108	7214	
==>r TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'lef <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11238	11330	
==>_simple_escape_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_sequence(char(C <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	324	426	
==>t { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 N <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	324	426	
==>t { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 N <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7406	7502	
==>urn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.compleme <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7406	7502	
==>urn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.compleme <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4255	4386	
==>e .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4255	4386	
==>e .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4255	4386	
==>e .= 'my (' . (join ", " => @params) . ') = @_;' . "\n";
    }
    my $curly_count = 1;
    while ($i->hasNextToken) {
        my $n <==
3	/Users/nnunley/pugs/util/fixauthors.pl	341	470	
==>/;
  next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  } <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32178	32274	
==>ation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36728	36824	
==>ation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVar.pm	347	447	
==>> PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVar.pm	347	447	
==>> PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVar.pm	347	447	
==>> PIL::RawJS->new("PIL2JS.generic_return(subreturncc)"),
      origName => "&return",
    } => "PIL:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	104	205	
==>BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	104	205	
==>BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	104	205	
==>BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math::BigInt::bnan { Perl6::Value::Nu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2293	2412	
==>_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5066	5184	
==>od_name => $role->get_method($method_name));
        }
    }
    # this is our does() method, it will
    # allow us to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2204	2320	
==>_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	5367	5495	
==>_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	5367	5495	
==>_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the sup <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	5367	5495	
==>_method(sub {        
    my ($self, $superclasses) = @_;
    if (defined $superclasses) {
        confess "You must pass the sup <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	517	629	
==>ame   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	517	629	
==>ame   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	517	629	
==>ame   :lvalue { $_[0]->{pSubName}    }
  sub type   :lvalue { $_[0]->{pSubType}    }
  sub params :lvalue { $_[0] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32720	32905	
==>f ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32720	32905	
==>f ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_leng <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32720	32905	
==>f ( $tmp[-1]->elems > 0 ) {
                # my $i = $tmp[-1]->pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_leng <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	469	590	
==>my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.spli <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	469	590	
==>my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.spli <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3676	3776	
==>et_y, 200, '... still got the right y for p2');
is($p1->get_x, 15, '... still got the right x for p1' <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5130	5291	
==>on't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5130	5291	
==>on't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16557	16643	
==>up(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1) <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5858	5974	
==>' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_cons <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5846	5962	
==>' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_cons <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15477	15584	
==>_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15477	15584	
==>_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15477	15584	
==>_[0];
    return 'Inf'  if $v == Perl6::Value::Num::Inf;
    return '-Inf' if $v == -&Perl6::Value::Num::Inf <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	11740	11878	
==>lative_file;
      if ($regex) {
        $reopts||='';
        $link->{regex} = eval "qr/$regex/$reopts";
      }
      $link->{sourcepath} <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	553	643	
==>owercase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-0 <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	553	643	
==>owercase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-0 <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1639	1761	
==>prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1846	1968	
==>prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file <==
3	/Users/nnunley/pugs/util/version_h.pl	1861	1960	
==>es again. If we opened a new file ($version_h) without turning
  # "io" warnings off, perl will prin <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12382	12476	
==>ns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12382	12476	
==>ns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2436	2548	
==>values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represent <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2436	2548	
==>values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represent <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21267	21360	
==>sion>? <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	419	533	
==>set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	419	533	
==>set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	419	533	
==>set {
    my ($self, %vars) = @_;
    @{($self->_current || return)}{keys %vars} = values %vars;
}

sub get {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	376	493	
==>jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	376	493	
==>jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	376	493	
==>jssm
    };
    bless $self,$class;
    $self->init();
}
sub init {
    my($self)=@_;

    my $js = jsbin_hack(compile <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	3651	3808	
==>i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	3651	3808	
==>i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	3651	3808	
==>i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(%self, @keys);
} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	121	255	
==>ft;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	121	255	
==>ft;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	121	255	
==>ft;
    my $env = bless {
        _stack => []
    } => $class;
    $env->enter_scope;
    $env->set(@_) if @_;
    return $env;
}

sub <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1185	1282	
==>cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1185	1282	
==>cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1185	1282	
==>cond()); 1) { $body() }
  $ret;
}

sub statement_control:<postwhile>(Code $cond, Code $body) is pr <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2504	2595	
==>class should not inherit from Perl6::Value::List, because this would
# cause multi-dimension <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2504	2595	
==>class should not inherit from Perl6::Value::List, because this would
# cause multi-dimension <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11325	11511	
==>::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11325	11511	
==>::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	11325	11511	
==>::opaque_instance_id($::CLASS); 
            }
            elsif ($_[0] eq $Perl6::Submethod::FORCE) {
                shift(@_);
            }   
            # XXX -
            # this i <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1170	1290	
==>least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, a <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	730	850	
==>least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, a <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3050	3149	
==>>guess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type";
			return Blondie::Ty <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5431	5532	
==>andler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!c <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5431	5532	
==>andler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!c <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	120	215	
==>and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http://www.nntp.perl.org/g <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	109	202	
==>and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/g <==
3	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	76	169	
==>and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http://www.nntp.perl.org/g <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2733	2833	
==>y, the encryption 
can be removed by XORing them together; you might not be able to derive the 
plain <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2733	2833	
==>y, the encryption 
can be removed by XORing them together; you might not be able to derive the 
plain <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6434	6529	
==>ose if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABLE_POSTCIRCU <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15258	15366	
==>pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

M <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15258	15366	
==>pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

M <==
3	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	121	220	
==>ation {
    $self.new($self.length + $duration.length);
}

method subtract($self: Duration $duration <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	2221	2347	
==>my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	2221	2347	
==>my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	w <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	2221	2347	
==>my $arity = $code.arity;
    if $arity <= 1 {
	while $i < $len {
	    $code(@a[$i]);
	    $i++;
	}
    } elsif $arity == 2 {
	w <==
3	/Users/nnunley/pugs/util/build_pugs.pl	6258	6379	
==>version =~ /^6.4(?:.0)?$/;
    }
    else {
        push @pkgs, -package => 'unix';
    }
    push @pkgs, -package => 'rea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4879	4995	
==>le
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4879	4995	
==>le
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31784	31899	
==>ject it how you choose
  if (! $p->regex($regex)) {
    reject_regex(...);
  }

Any regex containing those assertion <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13169	13330	
==>$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13163	13324	
==>$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quot <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	850	965	
==>p length, $clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	1727	1833	
==>ent to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	1727	1833	
==>ent to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	1727	1833	
==>ent to Perl6::Type->new() should be a P6 'Block' instance

# TODO - 'Pad' structure

# TODO - create base " <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2285	2414	
==>r'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2296	2425	
==>r'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35731	35846	
==>e an object, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	3032	3161	
==>, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	3032	3161	
==>, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	3032	3161	
==>, and it
        # loops endlessly
        unless $self ~~ ::Class;
    return bool::false;
});

## I ended here ... to be continu <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16181	16275	
==>ode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-on <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20607	20701	
==>ode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-on <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	1353	1436	
==>/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1564	1682	
==>"var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1564	1682	
==>"var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}) <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1564	1682	
==>"var " : "";
  return
    join("; ", map {
      my ($jsname, $qname, $undef) = (
        PIL::name_mangle($_->{fixed}) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4309	4424	
==>()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4309	4424	
==>()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4309	4424	
==>()" } @arg if $native;
    my $arg = PIL::add_indent(1, join ",\n", @arg);
    my $cxt = PIL::add_indent(1, $self->{ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3231	3335	
==>le->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3231	3335	
==>le->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3231	3335	
==>le->add_method('has_attribute' => ::make_method(sub {
    my ($self, $label) = @_;    
    exists ::opaqu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Continuations.pm	264	362	
==>oNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Continuations.pm	264	362	
==>oNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Continuations.pm	264	362	
==>oNative(), cc = args.pop();

    window.setTimeout(function () {
      PIL2JS.catch_all_exceptions( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6966	7100	
==>~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        un <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6954	7088	
==>~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        un <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36170	36266	
==>f look-ahead

Ender: tail

=head2 unlessm

Family: assertion

Types: unlessm (C<(?!>, C<< (?<! >> <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33266	33407	
==>'));
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('is_a'),
    # meth <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5228	5356	
==>n $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5228	5356	
==>n $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1016	1116	
==>ar}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_para <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1016	1116	
==>ar}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_para <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	6691	6839	
==>ing a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	6691	6839	
==>ing a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $st <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	6691	6839	
==>ing a reversed list"
                unless $end >= $start;
            #warn "unbind: Index: ". $i->str . "\n";
            # warn "Slicing from $st <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8066	8198	
==>d);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$dom <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8066	8198	
==>d);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$dom <==
3	/Users/nnunley/pugs/examples/cookbook/test.pl	515	627	
==>ir/$file.expected")) {
        print "$dir/$file.p6 has some difference\n";
    } else {
        print "ok $dir/$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	1621	1734	
==>tch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimpleme <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	1621	1734	
==>tch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimpleme <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	1621	1734	
==>tch;
    }
    \@a;
}
sub p6_to_l {my($a_obj)=@_;   $a_obj->unboxed }
sub p6_to_x {my($o)=@_; die "XXX - Unimpleme <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28622	28709	
==>H_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog, <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3255	3337	
==>$self.complement_previous, $self.complement_next, $set.complement_previous, $set.co <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3255	3337	
==>$self.complement_previous, $self.complement_next, $set.complement_previous, $set.co <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1374	1477	
==>t( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $di <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1374	1477	
==>t( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1454	1557	
==>t( 'ok', $diagnostic );
}

sub test_fail ( Str $diagnostic? ) is export
{
    report_test( 'not ok', $di <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23243	23368	
==>(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19664	19789	
==>(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6008	6103	
==>$Class->has_method('resolve'), '... we do not have the resolve method');

# Bootstrap -> Class d <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	844	974	
==>d->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$config{'bin_dir'}          = [ $Co <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5130	5241	
==>ture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5323	5434	
==>ture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2062	2163	
==>r => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2062	2163	
==>r => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc = <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2581	2674	
==>:)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open (${re_scopeop}?\s*${re_varname})\s <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	599	703	
==>y "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	599	703	
==>y "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	599	703	
==>y "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub eval_ok ($v, $msg="", $todo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5213	5338	
==>TokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5213	5338	
==>TokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($to <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5213	5338	
==>TokensUntil(')');
    if ($tokens[0] eq 'Class') {
        $method_type = 'class';
        shift @tokens;
    }
    elsif ($to <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2368	2473	
==>?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2368	2473	
==>?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclass <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2368	2473	
==>?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n";
	    $MM->superclass <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17209	17310	
==>e for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" f <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17209	17310	
==>e for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" f <==
3	/Users/nnunley/pugs/util/run-smoke.pl	2422	2514	
==>$html_location) == 0 or die "Could not convert .yml to testgraph: $!";
upload_smoke($html_loc <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2190	2331	
==>lass(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return :: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2395	2536	
==>lass(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return :: <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17219	17314	
==>2004

=over 4

=item Hierarchy Changes

There are now abstract classes I<anchor> and I<assertion <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	726	896	
==>tch.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim: f <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	726	896	
==>tch.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim: f <==
3	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	601	700	
==>urn;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Se <==
3	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	601	700	
==>urn;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Se <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1494	1589	
==>|= list->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($self->{e <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3147	3267	
==>e++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_ps <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3147	3267	
==>e++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_ps <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser/Env.pm	765	864	
==>private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser/Env.pm	765	864	
==>private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser/Env.pm	765	864	
==>private methods

sub _depth { scalar @{(shift)->{_stack}} }
sub _current { 
    my ($self, $depth) = <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13426	13538	
==>"><tmpl_var name=todo> todo</span>,<br />
                <span class="tests_skipped"><tmpl_var name=skipped> ski <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	2698	2808	
==>:proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$de <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2756	2866	
==>:proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$de <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	130	228	
==>Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser. <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	130	228	
==>Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	559	662	
==>@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	559	662	
==>@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	559	662	
==>@new_args) {
    $self(*@args, *@new_args);
  };
}

sub lazy (Code $fetch) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	620	765	
==>,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	825	970	
==>,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $insta <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	881	1026	
==>,
            'class' => $class,
            'attrs' => \%attrs,
        }, 'Dispatchable';
        lock_keys(%{$instance});
        return $insta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	10672	10801	
==>if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	10672	10801	
==>if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	10672	10801	
==>if ( $i >= scalar @{ $self->params } && $i >= scalar @params ) {
                        #warn "CHECK: $i - required $num_required <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6357	6465	
==>w {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6357	6465	
==>w {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6357	6465	
==>w {
    my($type,@arg)=@_;
    return Bit->new('$.unboxed' => @arg) if $type eq 'Bit';
    return Int->new('$ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1254	1390	
==>shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmp <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7509	7648	
==>'$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7509	7648	
==>'$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q( <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	596	698	
==>Slurpy ( Perl::Type );

type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy;

# in fact, maybe the followin <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19249	19357	
==>. (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19249	19357	
==>. (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:n <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19249	19357	
==>. (exists ${$_[0]->{class}}->{attrs}->{'$:name'} ?
                        (${$_[0]->{class}}->{attrs}->{'$:n <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12140	12286	
==>i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12140	12286	
==>i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12140	12286	
==>i < backup_arr.length; i++) {
          ret[i].BINDTO(backup_arr[i]);
        }

        return this;
      };

      cc(proxy);
    }
  })')(@self <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3011	3106	
==>his exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parame <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3011	3106	
==>his exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parame <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	11909	12005	
==>ms);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	11909	12005	
==>ms);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	11909	12005	
==>ms);
    delete $method_table->{$label};   
});

::Class.meta.add_method('add_attribute' => metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14552	14671	
==>eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14552	14671	
==>eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14552	14671	
==>eval { $tmp = $s->unboxed };
    $s = $tmp unless $@;
    unless ( defined $s ) {
        warn "attempting to use 'undef <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3533	3647	
==>emove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3533	3647	
==>emove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3533	3647	
==>emove the is
        $self->_discard_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33679	33805	
==>items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33679	33805	
==>items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33679	33805	
==>items}} ) {
        $count += UNIVERSAL::isa( $_, 'ARRAY') ? 0 + @$_ :
                  UNIVERSAL::isa( $_, 'Perl6::Value::Lis <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	35	131	
==>takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	35	131	
==>takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	35	131	
==>takes the output of pugs -CPIL1-Perl5, eval()s it, and reblesses most
# objects (we want PIL::PVa <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	14130	14228	
==>ibute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	14130	14228	
==>ibute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	14130	14228	
==>ibute('@:MRO'));
::Class.meta.add_attribute('@:superclasses'     => ::make_attribute('@:superclasse <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	3872	4027	
==>'$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	3872	4027	
==>'$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

ro <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	3872	4027	
==>'$:cell')->{tieable} = 1; 
            _('$:cell')->tie(@_); 
        },
        'untie' =>   sub { 
            _('$:cell')->untie;
        },
    }
};

ro <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2017	2152	
==>efined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2017	2152	
==>efined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_met <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2017	2152	
==>efined $method ? 
            ::wrap_role_method($method, $self)
            :
            ::make_stub_method());
}));

$::Role->add_met <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28671	28764	
==>_UTF8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? (RX_MATCH_UTF8_on(prog), (PL_reg_match <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4433	4538	
==>urns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path r <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4433	4538	
==>urns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path r <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23501	23656	
==>t( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23780	23935	
==>t( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'gram <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2127	2235	
==>"String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2127	2235	
==>"String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2127	2235	
==>"String(a) == String(b)" ],
    [ "infix:ne", "S", "String(a) != String(b)" ],
    [ "infix:+",  "N", "Number <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6902	7023	
==>(new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6902	7023	
==>(new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = funct <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6902	7023	
==>(new Date).getTime() < loop_till)
      1;
    f();
  }
};
var navigator = { userAgent: undefined };
var alert     = funct <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	560	653	
==>cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	560	653	
==>cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	560	653	
==>cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg{verbose}++;

my (@runjs_args, @pugs_a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	710	828	
==>'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this j <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	710	828	
==>'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this j <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	710	828	
==>'P6opaque') 
        || confess "Sorry, No other types other than 'P6opaque' are currently supported";    
    # this j <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	2527	2630	
==>s not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	2527	2630	
==>s not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind { <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	2527	2630	
==>s not 1!
sub p6_die  {my(@args)=@_; die @args;}
sub p6_set  {my($o,$v)=@_; $o->store($v);}
sub p6_bind { <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	104	205	
==>ur $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	104	205	
==>ur $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1326	1434	
==>think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1326	1434	
==>think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert the <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1326	1434	
==>think so (and this is how I've implemented it in PIL2JS). 
#        But: By default, hash can autoconvert the <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	135	242	
==>Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	135	242	
==>Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	135	242	
==>Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel", # XXX
         "$Bin/../Perl6-MetaModel/lib");
use <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	375	477	
==>PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoL <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	375	477	
==>PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoL <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17238	17339	
==>s
#
# Combination of run_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_arg <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2780	2916	
==>onal $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2780	2916	
==>onal $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        r <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	908	1000	
==>gument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Laz <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	908	1000	
==>gument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Laz <==
3	/Users/nnunley/pugs/util/p5_to_p6.pl	2662	2752	
==>e_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname})\s*${ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15877	16021	
==>rn 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15877	16021	
==>rn 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -& <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15877	16021	
==>rn 1;
}
sub to_num        {
    my $v = $_[0];
    $v =~ s/\s+//g;
    # Perl 6
    return Perl6::Value::Num::Inf   if $v eq 'Inf';
    return -& <==
3	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	841	956	
==>nd == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.densit <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	841	956	
==>nd == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.densit <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8178	8268	
==>ecimalDigits> <ExponentPart>?
    | <DecimalIntegerLiteral> <ExponentPart>?
}
rule DecimalI <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8819	8924	
==>ult = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8819	8924	
==>ult = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction v <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8819	8924	
==>ult = $p->{'tpDefault'};
	if(defined $default) {
	    my $code = $default->expand(); # XXX - abstraction v <==
3	/Users/nnunley/pugs/util/build_pugs.pl	8123	8241	
==>npath(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), grep /^-l/, @_;
    #push @libs, gr <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7742	7846	
==>ndefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7742	7846	
==>ndefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3198	3333	
==>ame => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out} <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1151	1252	
==>nt_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1151	1252	
==>nt_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20554	20655	
==>v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20554	20655	
==>v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20554	20655	
==>v1 = '.$xx0.'; p6_to_b($_v1) ? $_v1 : ('.$xx1.') }' };
MACROP5   infix:<^^> ($xx0,$xx1) {...};
MACROP5 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13121	13269	
==>::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13121	13269	
==>::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # w <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13121	13269	
==>::Class special case ...
        # NOTE: 
        # we refer to $::Class here even though
        # it will not be defined yet, however, 
        # w <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	1147	1258	
==>idth();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.pa <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1147	1258	
==>idth();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10434	10543	
==>"'; # doublequotes because of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "test.pl:runperl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5612	5708	
==>m->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5612	5708	
==>m->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_j <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5612	5708	
==>m->eval($js);
  warn "JavaScript::SpiderMonkey: $@" if $@;
  $jssm->destroy();
}

sub run_js_on_j <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1757	1948	
==>ents<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('i <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1757	1948	
==>ents<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('i <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4515	4624	
==>oto err_backslash_digit;
    }
    $initchar = substr $target, $pos, 1;
    $isnegated = matches (/[:upper:]/, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8438	8557	
==>leop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8144	8257	
==>leop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::no <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8127	8222	
==>.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1756	1872	
==>]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1756	1872	
==>]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5769	5885	
==>atch;
    bsr_token_match2_1:
    goto found_oper if $operator;          
  }

  expect_oper_empty:
  goto end unless <==
3	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	714	821	
==>ys => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    m <==
3	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	714	821	
==>ys => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    m <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1029	1135	
==>ary - takes 0 params (e.g. int)
# type::variable - a placeholder to make a DAG out of a tree (to gain stron <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	4904	5000	
==>self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" mus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	4904	5000	
==>self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" mus <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	4904	5000	
==>self }
sub JS::Root::grep(Code $code, *@array) is primitive {
  #die "Code block for \"grep\" mus <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	214	309	
==>($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	214	309	
==>($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	214	309	
==>($x) ?? $JS::Math.atan2(+$y, +$x) !! $JS::Math.atan(+$y);
}

method sin  (Num $self = $CALLER::_ <==
3	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1483	1574	
==>om/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory i <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1323	1414	
==>om/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1565	1656	
==>e_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1565	1656	
==>e_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, ' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1565	1656	
==>e_class($self)->dispatcher(':descendant');
    while (my $method = ::WALKMETH($dispatcher, ' <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4866	5023	
==>p_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = PO <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	750	858	
==>METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_AR <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	750	858	
==>METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_AR <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15655	15753	
==>TI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15655	15753	
==>TI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {.. <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15655	15753	
==>TI SUB values ($xx) { $xx->values };
MULTI SUB prefix:<=> ($xx) {...};
MULTI SUB readline ($xx) {.. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19082	19256	
==>package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19082	19256	
==>package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exist <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	19082	19256	
==>package Dispatchable;
    
    use strict;
    use warnings;
    
    use overload 
        '0+' => sub { $_[0]->{id} },       
        '""' => sub {
            "#<" . (exist <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6484	6629	
==>ull, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6484	6629	
==>ull, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if ! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6484	6629	
==>ull, null,null);
          }
          var m = unpack_match(match);
          return m;
        }
      )')(~$pattern,$flags,~$string);
      if ! <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3809	3908	
==>(on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3809	3908	
==>(on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	5613	5745	
==>rn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	5613	5745	
==>rn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	5613	5745	
==>rn new PIL2JS.Match(ok, from, to, s, a, h);
          };
          var unpack_match = function (match) {
            var from = match <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2241	2385	
==>nf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2241	2385	
==>nf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print " <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2241	2385	
==>nf;
        unshift @end, $tmp;
        last if $tmp == Inf;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print " <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3118	3216	
==>ailing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modu <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3118	3216	
==>ailing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3198	3296	
==>ailing test with diagnostics' );

=head1 DESCRIPTION

This test module allows you to test test modu <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2765	2884	
==>new( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name} <==
3	/Users/nnunley/pugs/inc/Module/Install.pm	941	1058	
==>new(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name} <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3531	3629	
==>full_blib .= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|tes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	179	280	
==>6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	179	280	
==>6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_t <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	179	280	
==>6::Cell::fetch
#
# 2005-08-19
# - Added roles (traits) - tieable, readonly
# - Removed methods: .set_t <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11219	11314	
==>t change the semantic of a header field, but
in practice there are cases like old-style Netscape <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11219	11314	
==>t change the semantic of a header field, but
in practice there are cases like old-style Netscape <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	14868	15001	
==>0**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	14868	15001	
==>0**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Val <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	14868	15001	
==>0**100;
use constant NaN => Inf / Inf;

sub to_str        { 
    my $v = shift;
    # native
    return 'Inf'  if $v eq "".&Perl6::Val <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4408	4507	
==>s>?
}
rule SingleLineCommentChar {  # see 7.4
      <!before <LineTerminator>> <SourceCharacter>
}
r <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13755	13850	
==>ossible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functi <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13813	13908	
==>ossible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functi <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	1208	1320	
==>t attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4686	4798	
==>t attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is <==
3	/Users/nnunley/pugs/util/version_h.pl	2232	2333	
==>revision != 0) {
    # rebuild Help.hs to show new revision number
    unlink "$base/dist/build/src/Pu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	540	664	
==>DO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	540	664	
==>DO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	540	664	
==>DO "~$todo.value !! "";
    $count++;
    if $v ne $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5022	5121	
==>editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5022	5121	
==>editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
Th <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5022	5121	
==>editor => \&my_editor });

Per each visited object referenced in $myobj, calls my_editor() on it.
Th <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11593	11746	
==>'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11593	11746	
==>'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id <==
3	/Users/nnunley/pugs/inc/Module/Install/Can.pm	114	245	
==>:Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';

use strict;
use Config ();
use File::Spec ();
use ExtUtils::MakeMaker ( <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20390	20517	
==>ture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20669	20796	
==>ture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	26	118	
==>Operator;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Gramm <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	1973	2083	
==>ro\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	1973	2083	
==>ro\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	1973	2083	
==>ro\\\"))\") : Number(a)  / Number(b)",
  "infix:«%»",    2, "N", "Number(b) == 0 ? eval(\"throw(new Error(\\\ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34334	34427	
==>le::KeyedText::Translator object.
The Set Names property of the new object is set from the nam <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34334	34427	
==>le::KeyedText::Translator object.
The Set Names property of the new object is set from the nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5748	5857	
==>turn { angle_quoted => $/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pugs:: <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1597	1698	
==>ture of the signature; it does

not allocate containers.



the Body is just a structure with three no <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1532	1630	
==>ture of the signature; it does
not allocate containers.

the Body is just a structure with three no <==
3	/Users/nnunley/pugs/util/package-osx.pl	9531	9651	
==>nt `rm -rf $dir/.svn`;
        print "Removed $dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        remov <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	723	836	
==>onstant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	723	836	
==>onstant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	5544	5651	
==>ebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	5544	5651	
==>ebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	5544	5651	
==>ebless->custom($frobber, "SuperFrotz", { editor => \&noio });

    sub noio {
        my($obj, $namespace) = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21848	22067	
==>( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21848	22067	
==>( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21848	22067	
==>( $tmp );
                    #    warn " SCALAR ",$_->str->unboxed;
                    #};
                    #warn "Array.$method PARAM @param\n";
                    $tmp->$method( @param );
                    retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	992	1094	
==>primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	992	1094	
==>primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	992	1094	
==>primitive { infix:<//>($a, $b()) }
sub infix:<or>   ($a, Code $b) is primitive { infix:<||>($a, $b()) } <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11930	12029	
==><[0..9]>
}
rule ExponentPart {  # see 9.3.1
      <ExponentIndicator> <SignedInteger>
}
rule Exponen <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1202	1295	
==>still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1202	1295	
==>still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22320	22437	
==>ice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22320	22437	
==>ice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22320	22437	
==>ice ($xx0,*@xxa) { 
    for (0,1) {
        $xxa[$_] = p6_to_n( $xxa[$_] ) if defined $xxa[$_]; 
    }
    $xx0->splic <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1860	1979	
==>e into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1860	1979	
==>e into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1860	1979	
==>e into a Hash, but failed
#        buu Er, so how do you create a hash ref?
#        iblech buu: \hash(undef,undef), {un <==
3	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	753	915	
==>ss ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATC <==
3	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	753	915	
==>ss ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATC <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	12056	12174	
==>$i = Language::AttributeGrammar->new(<<'#\'EOG');
#\

# at the root we initialize the predefined symbols, and the initi <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	136	234	
==>::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $ <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15671	15767	
==>entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ov <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15671	15767	
==>entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ov <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	1241	1337	
==>:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	1241	1337	
==>:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	1241	1337	
==>:<postwhile>(Code $cond, Code $body) is primitive {
  my $first_run_done = 0;

  while($first_run <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44856	45070	
==>)->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8122	8225	
==>hods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8122	8225	
==>hods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	6259	6408	
==>calar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	6259	6408	
==>calar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	6259	6408	
==>calar ) = @_;
                die "argument to bind() must be a Scalar"
                    unless $scalar->isa( 'Scalar' );
                _('$:cell <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	20561	20659	
==>ing methods on those objects.  All of
their class/object attributes are private, so you must use ac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25113	25211	
==>ing methods on those objects.  All of
their class/object attributes are private, so you must use ac <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23683	23781	
==>ing methods on those objects.  All of
their class/object attributes are private, so you must use ac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	85	199	
==>$body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	85	199	
==>$body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed b <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	85	199	
==>$body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed b <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12629	12776	
==>"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8903	9050	
==>"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9738	9885	
==>"; \n" .
                "    my \$expanded = eval \$perl5;\n" .
                #"    print \"Error in expanded macro eval:\n\", \$perl5 if \$\@; \ <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13476	13584	
==>ce object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $m <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13476	13584	
==>ce object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $m <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18947	19043	
==>ta> field points to the underlying
object type (I<prop>, I<alnum>, etc.).  If the element is a PO <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3420	3517	
==>s, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3420	3517	
==>s, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), " <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3420	3517	
==>s, "-Ilib6", "-Iblib6/lib", "-I../../blib6/lib";

  my $pid = open2 my($read_fh), my($write_fh), " <==
3	/Users/nnunley/pugs/util/build_pugs.pl	808	941	
==>it 0;
}

my $run_setup;

sub build {
    my($opts) = @_;
    my $thispugs = { @{ $opts->{GEN_PRELUDE} } }->{'--pugs'} or # laugh at me <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15971	16085	
==>ueue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation { <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15971	16085	
==>ueue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1665	1773	
==>.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1665	1773	
==>.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { P <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1665	1773	
==>.BINDTO = function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	564	670	
==>opt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	564	670	
==>opt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	564	670	
==>opt::Long;
use PIL::Parser;
use PIL;
use Encode;

sub slurp;
sub unslurp;
sub usage;

my $verbose;
my $link <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	4013	4113	
==>param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	4013	4113	
==>param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	4013	4113	
==>param{name}, $param{default}, $param{required}, $param{slurpy} );
        $default = sub {} unless de <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47713	47952	
==>:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new('$value' => 'type'),                               
                          ),
                re <==
3	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	54	176	
==>pec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    whil <==
3	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	54	176	
==>pec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    whil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	260	375	
==>ucts are macros:

    macro quote:<qX> (*%adverbs) {...}

=head1 See also

S02

=cut

# TODO - implement t <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	31167	31263	
==>onal operator that returns a new Relation
which has a subset of the original's tuples, and it wor <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35717	35813	
==>onal operator that returns a new Relation
which has a subset of the original's tuples, and it wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	10150	10265	
==>--------------------------  
    # collects all the roles, and applies them to the
    # invocant, which usually wil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	10150	10265	
==>--------------------------  
    # collects all the roles, and applies them to the
    # invocant, which usually wil <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	10150	10265	
==>--------------------------  
    # collects all the roles, and applies them to the
    # invocant, which usually wil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	6077	6204	
==>:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	6077	6204	
==>:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6 <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	6077	6204	
==>:://;
        $class =~ s/::[^:]+$//; $class =~ s/^&//;
	die "not yet updated to MM2.0";
        ("(sub{ (::dispatch(::meta(".p6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2576	2693	
==>ethods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2576	2693	
==>ethods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2576	2693	
==>ethods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_method($m => ::make_class_method($v <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15936	16028	
==>an be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15994	16086	
==>an be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	737	830	
==>--------------------------------------------------------------
## Object

# The 'Object' class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	737	830	
==>--------------------------------------------------------------
## Object

# The 'Object' class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	737	830	
==>--------------------------------------------------------------
## Object

# The 'Object' class <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16444	16539	
==>verted to lower case, and potential
parameters will be chopped off and returned as a separate va <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16444	16539	
==>verted to lower case, and potential
parameters will be chopped off and returned as a separate va <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23630	23718	
==>_at_n(N1,Replace,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_ <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20180	20292	
==>:Group" ] 

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, exp
    .local string cname
    .loc <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13487	13593	
==>the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holi <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13487	13593	
==>the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3192	3366	
==>e}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3192	3366	
==>e}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3192	3366	
==>e}, $param{match}, $param{supertype} );
        bless {
            name =>      $name,
            match =>     $match, 
            supertype => $supertype,  
        } => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1228	1338	
==>| %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1228	1338	
==>| %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %m <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1228	1338	
==>| %mods{"Perl5"} || %mods{"P5"};

  my sub warning($e){warn("Warning: $e")};
  for %mods.keys -> $k {
    if %m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8609	8781	
==>stify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8609	8781	
==>stify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8609	8781	
==>stify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\'/g;
            "'$_'";
        } @_);
    };
    my(@names6arg,@names6param,@names5);
    for my $p (@ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Test.pm	977	1112	
==>.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub die <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/Test.pm	977	1112	
==>.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub die <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/Test.pm	977	1112	
==>.value !! "";
    $count++;
    if eval($v) eq $v2 { say "ok $count - $msg"~$st }
    else { say "not ok $count - $msg"~$st }
}

sub die <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	10394	10524	
==>e_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	10394	10524	
==>e_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	10394	10524	
==>e_methods' if $_[1] =~ /^_/o;

        # gather all the classes to look through
        my @classes = ($_[0]);
        push @classe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	2761	2947	
==>y $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	2761	2947	
==>y $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell- <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	2761	2947	
==>y $cell = Perl6::Cell->new;
                            my $h = bless {}, 'Perl6::Container::Hash::Object';
                            $cell->{v} = $h;
                            $cell- <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	4871	4995	
==>index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_wid <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4871	4995	
==>index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_wid <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	16589	16712	
==>rn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	16589	16712	
==>rn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

packa <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	16589	16712	
==>rn str_decr($s) . 'z' if $c eq 'a';
    return str_decr($s) . '9' if $c eq '0';
    return $s . chr( ord($c) - 1 );
}

packa <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	637	745	
==>) returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - rei <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	637	745	
==>) returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - rei <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	637	745	
==>) returns the Cell id.
#
# 2005-08-17
# - New methods: .access('ro'); .access('rw'); .bind( $scalar )
# - rei <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4536	4639	
==>ns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Re <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4536	4639	
==>ns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Re <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	810	923	
==>t(@_);
}

sub execute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execute($prog);
}

__ <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5843	5941	
==>lure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5843	5941	
==>lure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5886	5989	
==>ributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two c <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5886	5989	
==>ributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two c <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8083	8186	
==>ributes to the hash before returning it.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two c <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	317	417	
==>$x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) retur <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	317	417	
==>$x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) retur <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11791	11929	
==>d array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11791	11929	
==>d array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11791	11929	
==>d array slice to non-array object!");
        }

        var backup_arr = [];
        for(var i = 0; i < arr.length; i++) {
          backu <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	14347	14457	
==>ery close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iter <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14347	14457	
==>ery close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iter <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1512	1619	
==>self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc} = 'left' unless defined $opt->{assoc <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1351	1489	
==>e};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1 <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1339	1477	
==>e};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	11139	11244	
==>ILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	11139	11244	
==>ILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDA <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	11139	11244	
==>ILD submethods? This would 
mean that BUILD methods would need to be collected in some way.
So that BUILDA <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	499	614	
==>ompare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constr <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	499	614	
==>ompare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constr <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7618	7773	
==>$license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot det <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7675	7830	
==>$license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot det <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	7292	7429	
==>n documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  file => $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3232	3338	
==>rent_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3232	3338	
==>rent_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3232	3338	
==>rent_class->superclasses([ $::Object ]);
        }
        $::{'*'}->STORE($current_class->name => $current <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2941	3057	
==>echunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks) <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2941	3057	
==>echunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks) <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3408	3512	
==>ode);
		my $class = B::class($obj);

		return $class unless $class eq "PVMG";

		my $flags = $obj->flagsp <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2879	2983	
==>hod chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2879	2983	
==>hod chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2879	2983	
==>hod chop(Str $self:) { substr $self, 0, -1 }

sub infix:<x>    (Str $a, Int $count) is primitive {
  my $ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36908	37002	
==>Text.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $mess <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36908	37002	
==>Text.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $mess <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	18020	18222	
==>lass->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	18020	18222	
==>lass->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	18020	18222	
==>lass->get_method($1)
                        :
                        # if all else fails, maybe it is 
                        # a sub, so we just  grab it from 
                        # the namespoac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2457	2599	
==>urn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2457	2599	
==>urn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2457	2599	
==>urn sprintf "PIL2JS.possibly_autothread([%s], [%s], %s, function (%s) {\n%s\n});",
        $vars,
        join(", ", @bools),
        PIL::cur_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15597	15724	
==>ists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15597	15724	
==>ists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label} <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15597	15724	
==>ists $method_table->{$label} &&
                   defined $method_table->{$label} &&
                   $method_table->{$label} <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6821	6918	
==>rst argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=ite <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6821	6918	
==>rst argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=ite <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	316	443	
==>push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unle <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	316	443	
==>push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unle <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	1792	1887	
==>ry: inner_layout($$) = { join(" ", layout($.left), $.symbol, layout($.right)) }
type::operator:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3800	3910	
==>ass->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3800	3910	
==>ass->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3800	3910	
==>ass->superclasses([ map { $::{'*'}->FETCH($_) } @supers ]) if @supers;
}

sub _parse_method {
    my ($self, $i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10048	10241	
==>st::Builder::Test.new(
                  skip   => 1,
                  number => $self.get_test_number(),
                  reason =>  $reason,
              )
          );
      }
  }
  
  met <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2103	2278	
==>st::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

met <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2103	2278	
==>st::Builder::Test.new(
                skip   => 1,
                number => $self.get_test_number(),
                reason =>  $reason,
            )
        );
    }
}

met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	5680	5790	
==>destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	5680	5790	
==>destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS:: <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	5680	5790	
==>destroy();
}

sub run_js_on_jspm {
  my $js = shift;
  diag $cfg{js};

  require JavaScript;
  require PIL2JS:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	1414	1533	
==>$?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	1414	1533	
==>$?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	1414	1533	
==>$?SELF, %params);                  
    }      
});

::Class.meta.add_method('BUILD' => submethod (%params) returns Void <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	2365	2475	
==>aclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	2365	2475	
==>aclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metac <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	2365	2475	
==>aclass = $::Class;
    $metaclass = $body->{metaclass} 
        if ref($body) eq 'HASH' && exists $body->{metac <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	4395	4483	
==>nstance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	4395	4483	
==>nstance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	4395	4483	
==>nstance_attr($self => '$:name');
}));

$::Package->add_method('FETCH' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	826	977	
==>l5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s* <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	826	977	
==>l5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s* <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	11618	11738	
==>err) =
            Pugs::Internals::runInteractiveCommand($command);
        close $err;
        close  ($r ?? $in !! $ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	4217	4315	
==>L2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	4217	4315	
==>L2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_d <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	4217	4315	
==>L2JS.Box.Constant(String(a) + String(b)));
  })')(~$__a, ~$__b);
}

sub Pugs::Internals::symbolic_d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	2439	2579	
==>t, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	2439	2579	
==>t, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @sta <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	2439	2579	
==>t, @end;
        return join( ', ', @start, @end );
    }
    return 
        join( ', ', 
        map { Perl6::Value::stringify( $_ ) } @sta <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	277	388	
==>or (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	277	388	
==>or (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	277	388	
==>or (firstkey/nextkey) works
#
# 2005-08-19
# * New Perl6 class 'Hash'
#
# 2005-08-18
# * New Perl5 class "Perl6: <==
3	/Users/nnunley/pugs/util/build_pugs.pl	3047	3187	
==>gzerrno";
    }
    $gz->gzclose;
    unlink $in;
    1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shift;

    my $ar = $ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	853	956	
==>HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %h <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	853	956	
==>HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %h <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4563	4665	
==>ers. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a stri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4563	4665	
==>ers. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a stri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6760	6862	
==>ers. 

=item C<?$reason = ''> 

This parameter is for the skip and TODO tests and should contain
a stri <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	505	615	
==>er's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	505	615	
==>er's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	505	615	
==>er's Golfing System
Type :h for help.

EOF

our %cfg;
*cfg = \%PIL2JS::cfg;
$cfg{output} = "output.html";
#$cfg <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	462	570	
==>------------------------------------------------

{
    use Hash::Util 'lock_keys';

    # Every instance sho <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10593	10689	
==>ious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrence <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10593	10689	
==>ious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrence <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6169	6264	
==>truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6169	6264	
==>truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::f <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6169	6264	
==>truncate ($xx) {...};
MULTI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::f <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	599	767	
==>version itself.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       = <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19856	19952	
==>however it likes; all Rosetta cares about is that the user
interface and behaviour conform to its <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19856	19952	
==>however it likes; all Rosetta cares about is that the user
interface and behaviour conform to its <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1883	2000	
==>{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1883	2000	
==>{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1883	2000	
==>{pScope} eq "SState") {
        push @PIL::ALL_LEXICALS, $_->{fixed};
        "pad[$qname] = $jsname";
      } elsif($ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1449	1563	
==>hack - matching options in 'expected' order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespac <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40967	41059	
==>ndard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40967	41059	
==>ndard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1789	1903	
==>f = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1789	1903	
==>f = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to c <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1789	1903	
==>f = $CALLER::_:) { uc(substr $self, 0, 1) ~ substr($self, 1) }

# Of course, &bytes, &codes, &graphs will have to c <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	904	1006	
==>s) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	904	1006	
==>s) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3918	4013	
==>$length = 1 if not defined $length;
  return (substr $target, $pos, $length) =~ $regularExpressi <==
3	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3244	3351	
==>http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = <==
3	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3244	3351	
==>http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2272	2371	
==>he shared libraries
it needs on it. Finally, it will call mkisofs to create a ISO9660 image.

You ca <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31681	31797	
==>he maximum repetition count of this object (for quantifiers).

=item min

The minimum repetition count of this object <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2440	2586	
==>{
        name => '*',
        block => sub {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => ' <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16385	16487	
==>= 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16385	16487	
==>= 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34428	34537	
==>$ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34428	34537	
==>$ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34428	34537	
==>$ret;
}

sub splice { 
    my $array =  shift;
    my $offset = shift; $offset = Perl6::Value::numify( $offset <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	4376	4493	
==>me) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the sam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	4376	4493	
==>me) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the sam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	4376	4493	
==>me) = @_;
    return undef unless defined $role_name;
    # obviously if we are a role, we do Role, 
    # and the sam <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1599	1701	
==>n (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1599	1701	
==>n (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die(" <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1599	1701	
==>n (n) { PIL2JS.die("Can\'t modify lazy {...} value!") };
    boxed.BINDTO = function (n) { PIL2JS.die(" <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	2618	2744	
==>orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	2618	2744	
==>orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	2618	2744	
==>orig_msg
          ? err.pil2js_orig_msg.FETCH()
          : err.toString()
      );
      return cc(new PIL2JS.Box.Constant(un <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14214	14316	
==>re control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But t <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14214	14316	
==>re control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But t <==
3	/Users/nnunley/pugs/util/build_pugs.pl	5676	5760	
==>e.o src/syck/emitter.o src/syck/gram.o src/syck/handler.o src/syck/implicit.o src/syc <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	2698	2801	
==>Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	2698	2801	
==>Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	2698	2801	
==>Box.Constant(function (args) {
      var junc = args[1].FETCH(), cc = args.pop();
      cc(new PIL2JS.Bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	9148	9262	
==>pParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	9148	9262	
==>pParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lval <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	9148	9262	
==>pParam'}{'paramContext'}) =~ /Slurpy/;
        my $is_invocant = $p->{'tpParam'}{'isInvocant'};
        my $is_lval <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	1216	1308	
==>$splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	1216	1308	
==>$splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	1216	1308	
==>$splitter, $self }
sub JS::Root::split(Str $splitter, Str $str) is primitive {
  JS::inline(' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16437	16557	
==>e way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyM <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16437	16557	
==>e way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyM <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	66	165	
==>::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@I <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10834	10958	
==>er::group;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    return $f;
  }
}
{
  # ( capturing
  package R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1061	1179	
==>ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Com <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1061	1179	
==>ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Com <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8758	8880	
==>"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   = <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8758	8880	
==>"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   = <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1075	1187	
==>prototyping the regexp system - the regexp tree, its
  compilation to pil, how regexp modification macros work, e <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4298	4399	
==>string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4, <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4298	4399	
==>string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	7525	7641	
==>ss "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	7525	7641	
==>ss "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	7525	7641	
==>ss "Cannot call private method from different class";   
            return $method->(@_);
        } => 'Perl6::Priva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	960	1060	
==>extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	960	1060	
==>extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	960	1060	
==>extract all positionals, counting (but skipping) Pairs. extract slurp
# extract remaining Pairs
# $^a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	2237	2351	
==>a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	2237	2351	
==>a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number( <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	2237	2351	
==>a)  + Number(b)" ],
    [ "infix:-",  "N", "Number(a)  - Number(b)" ],
    [ "infix:*",  "N", "Number(a)  * Number( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	6329	6437	
==>l(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	6329	6437	
==>l(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	6329	6437	
==>l(%s.FETCH(), [PIL2JS.Context.Void]);", PIL::name_mangle($name))
        : ();
    } @{ $fixed_tree->{"pilGlo <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5611	5713	
==>ps all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $rea <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5611	5713	
==>ps all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $rea <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7135	7237	
==>ps all of the tests before running them.

Fails if there is a test plan set.

=item B<BAILOUT( Str $rea <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3981	4083	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1288	1390	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	6141	6280	
==>e the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	6141	6280	
==>e the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	6141	6280	
==>e the attribute
            # and it is not already a stub then ...
            if ($self->has_attribute($attr_name)) {
                # we <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4156	4272	
==>chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4156	4272	
==>chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    re <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	152	242	
==>erm:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term::::", "term:", "nows", "PGE:: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	894	1063	
==>flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnode <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	894	1063	
==>flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnode <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	894	1063	
==>flag = rand;
            my $ret = $n->expand($flag);
            if($ret ne $flag) {
                $code .= $ret;
            } else {
                unshift(@subnode <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	10466	10567	
==>50502192508.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$layer, B <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28430	28530	
==>t handled properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful match.
//x isnt being handled (re_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5277	5394	
==>not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5277	5394	
==>not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} o <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5867	5984	
==>not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_var} o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	1058	1153	
==>the way into new
namespaces. This is typically useful when your object belongs to a
package that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	1058	1153	
==>the way into new
namespaces. This is typically useful when your object belongs to a
package that <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	1058	1153	
==>the way into new
namespaces. This is typically useful when your object belongs to a
package that <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4040	4152	
==>r is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $ <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4040	4152	
==>r is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3363	3463	
==>nts, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
* <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	807	912	
==>ill later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	807	912	
==>ill later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refer <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	807	912	
==>ill later become our proxy.
    var boxed = new PIL2JS.Box(undefined);

    // Then we can setup the refer <==
3	/Users/nnunley/pugs/examples/hop6/Stream.pm	669	787	
==>a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2 <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22488	22582	
==>to indicate a
condition, often it will also provide some variable values to be
interpolated int <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22488	22582	
==>to indicate a
condition, often it will also provide some variable values to be
interpolated int <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4473	4571	
==>wing methods are available for Date objects:

- `year()`

Returns the year for the object.

- `mont <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4473	4571	
==>wing methods are available for Date objects:

- `year()`

Returns the year for the object.

- `mont <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	481	582	
==>ach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die "symbol $symb <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18986	19084	
==>ccurately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy appl <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18986	19084	
==>ccurately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy appl <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1921	2143	
==>,
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.bac <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1921	2143	
==>,
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.bac <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10244	10354	
==>ify->($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_par <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50083	50252	
==>('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')-> <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4493	4627	
==>a"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼', <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4493	4627	
==>a"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼', <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4362	4476	
==>if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4362	4476	
==>if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pil <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4362	4476	
==>if $PIL::IN_SUBLIKE >= PIL::SUBTHUNK;
  die;
}

sub fixup {
  local $_;
  return bless {
    pilMain => $_[0]->{pil <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	18226	18376	
==>$ai++;
        }

        given $specifier {
            when any(<c d u o x b i>) {
                $str ~= Pugs::Internals::sprintf($conversion,int($ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	20755	20855	
==>ule=$+_) is builtin is unsafe {
    #Pugs::Internals::use($module);
    Pugs::Internals::require_use_ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16846	16935	
==>,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4260	4408	
==>urn { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { di <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	980	1063	
==>(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	980	1063	
==>(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0] <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	980	1063	
==>(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Context.ItemAny, %s]).toNative()", $_[0] <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10366	10562	
==>rep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find the alternative with the highest version
            ### XX <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2413	2577	
==>nd,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2413	2577	
==>nd,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	11784	12005	
==>ype mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	11784	12005	
==>ype mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	11784	12005	
==>ype mismatch: $candidate vs ".$spec->str)
                            if !$mt;
                    }
                }
                continue { $i++ }
                return 1;
            },
            bind_params => s <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9142	9337	
==>ybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depends {
        my $d <==
3	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	841	969	
==>template( "wiki_edit.tmpl", topic => $topic, entry => $entry );
    }
    when 'update' { 
        say "Updating";
#        die " <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	11956	12048	
==>d2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11956	12048	
==>d2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	5173	5279	
==>n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	5173	5279	
==>n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	5173	5279	
==>n;};\n".$dn.";\nE$n\n";
	}
    }
}
local $EvalX::PStmt::already_protected = 0;
package PThunk; @ISA = qw(Ev <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	6	124	
==>rict;
use File::Path;
use File::Copy;
use Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkd <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	415	519	
==>ut => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPE <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	415	519	
==>ut => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPE <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	1055	1236	
==>entify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	1055	1236	
==>entify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	1055	1236	
==>entify($a) cmp Perl6::Value::identify($b) } @res;
                my $last_id = rand();
                #warn "SORTED @res";
                @res = grep { 
                        my <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1301	1415	
==>array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1301	1415	
==>array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1301	1415	
==>array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(var i = 0; i < <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23224	23410	
==>, 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $s <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6571	6664	
==>{[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*');

my $source = ` <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3202	3314	
==>self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free vars in <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	8739	8848	
==>dent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	8739	8848	
==>dent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkre <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	8739	8848	
==>dent 1, $body;
PIL2JS.Box.constant_func(0, function (args) {
  var cxt           = args.shift();
  var thunkre <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1572	1680	
==>sa('type'))
        || confess "Key must be a str type";
    delete $self->{$key->to_str->to_native};
    nil <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9831	9931	
==>self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9831	9931	
==>self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1441	1587	
==>lex>).add_children(
                            Tree.new(:node<Num>).add_children(
                                Tree.new(:node<Rat>).add_childre <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31135	31233	
==>.  This means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo:: <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31135	31233	
==>.  This means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo:: <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5227	5402	
==>rn $tuple === any($!body);
}

###########################################################################

method equal (Relation::Example $other!) returns Bool {
    return $o <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	49	143	
==>ings they need to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	49	143	
==>ings they need to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	384	548	
==>c hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { r <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14675	14778	
==>fic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnec <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14675	14778	
==>fic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4581	4675	
==>bj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4581	4675	
==>bj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4581	4675	
==>bj, "New::Namespace::Root");

Finds all blessed objects refered to by $myobj and reblesses them <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4355	4535	
==>less dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4819	4999	
==>less dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12372	12484	
==>(mob)
.end 


.sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    . <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40645	40743	
==>CULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright hol <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40645	40743	
==>CULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright hol <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	9668	9766	
==>inally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	9668	9766	
==>inally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	9668	9766	
==>inally, escape special chars.
  $str =~ s/([^a-zA-Z_0-9])/sprintf "_%02x", ord $1/eg;
  return $str <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12057	12205	
==>eq ')' ) {
        return '()'
            unless defined  $n->{exp1};
        return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _n <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2025	2121	
==>sources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secu <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2025	2121	
==>sources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	19819	19927	
==>rmined when it is constructed, and the object can
not be changed afterwards.

If you want something similar b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24371	24479	
==>rmined when it is constructed, and the object can
not be changed afterwards.

If you want something similar b <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22923	23031	
==>rmined when it is constructed, and the object can
not be changed afterwards.

If you want something similar b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	777	882	
==>il - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	777	882	
==>il - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9037	9132	
==>d1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::H <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9037	9132	
==>d1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::H <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	636	752	
==>rt() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	636	752	
==>rt() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed st <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	636	752	
==>rt() end()
#
# 2005-08-23
# * fixed stringification
#
# 2005-08-12
# * fixed map()->pop()
#
# 2005-08-11
# * Fixed st <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4596	4707	
==>1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec failed - p <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4190	4288	
==>f a property is outside of a section, it will be assigned to the root
section, available at C<$conf <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4190	4288	
==>f a property is outside of a section, it will be assigned to the root
section, available at C<$conf <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	153	264	
==>e syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	153	264	
==>e syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_n <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	151	256	
==>e syntax

package Grammar::Compiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32056	32155	
==>or
each that corresponds to language A, looking for a match to said error
message.  If it finds one, <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32056	32155	
==>or
each that corresponds to language A, looking for a match to said error
message.  If it finds one, <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21764	21852	
==>e(C,xdigit(_)).
class_member(class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
c <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3488	3622	
==>$description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descri <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3488	3622	
==>$description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descri <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5012	5146	
==>$description, $todo)
            || $Test.diag("FAILED : $description");
     }
     else {
        $Test.ok($got eq $expected, $descri <==
3	/Users/nnunley/pugs/util/package-osx.pl	1037	1134	
==>usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/histor <==
3	/Users/nnunley/pugs/util/package-osx.pl	3347	3444	
==>usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/histor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	32783	32950	
==>>pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	32783	32950	
==>>pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	32783	32950	
==>>pop;
                # unshift @ret, $i;
                my $li = $tmp[-1];
                my $diff = $length - $ret_length;
                my $i = $li->pop_n( $diff <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4333	4446	
==>1}g;

    eval "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConfig->get_co <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1316	1413	
==>C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method opt <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1316	1413	
==>C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method opt <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	929	1029	
==>ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	929	1029	
==>ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	929	1029	
==>ref $_[0]->{key}
      ? sprintf "PIL2JS.cps2normal(_26main_3a_3aprefix_3a_7e.FETCH(), [PIL2JS.Contex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35369	35510	
==>_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
3	/Users/nnunley/pugs/t/builtins/system/create_files.pl	539	703	
==>s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    printf("[%s]" <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13370	13466	
==>hat contains the
removed headers only.

=item $h.clear

This will remove all header fields.

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13370	13466	
==>hat contains the
removed headers only.

=item $h.clear

This will remove all header fields.

=ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	90	190	
==>ion of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	90	190	
==>ion of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Valu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	90	190	
==>ion of unboxed Perl6 Values in Perl5
# Perl6::Value::Num - Inf, NaN
# Perl6::Value::Int
# Perl6::Valu <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15029	15125	
==>ername $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVM <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	142	238	
==>rink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15029	15125	
==>ername $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVM <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	763	872	
==>:Check->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add allow handlers
    $obj->mk_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1953	2059	
==>l($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes( <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1953	2059	
==>l($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2278	2382	
==>eys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no stric <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2278	2382	
==>eys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no stric <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2278	2382	
==>eys %$params) {
	my $val = $params->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no stric <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1928	2079	
==>res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1928	2079	
==>res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             to <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1928	2079	
==>res,"\n";
    }
}

sub p6_repl_print_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             to <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9660	9779	
==>er>
    | <NonEscapeCharacter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | < <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	822	934	
==>emove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $sel <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	822	934	
==>emove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $sel <==
3	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2141	2303	
==>n.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output <==
3	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2141	2303	
==>n.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1815	1910	
==>v

Note that this is not a Blondie::Node! You cannot execute environments, they
contain ASTs tha <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9752	9873	
==>ce_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9752	9873	
==>ce_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->ele <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9752	9873	
==>ce_size > $max_ary_elems;
            my $slice = $other->splice( $pos, $slice_size );
            my $elems = $slice->ele <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3575	3680	
==>subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3575	3680	
==>subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3575	3680	
==>subname !~ /^&/);
    $subname = "&$1" if $self->{pInv} and $subname =~ /^&(.+)$/;
    $subname =~ s/^(.)\ <==
3	/Users/nnunley/pugs/util/package-osx.pl	9723	9885	
==>les) = @_;
    for my $from (@files) {
        my $dirs = $from;
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");

        if <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15247	15346	
==>dd_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9445	9544	
==>dd_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS/JSPM.pm	1576	1704	
==>w Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS/JSPM.pm	1576	1704	
==>w Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS/JSPM.pm	1576	1704	
==>w Array();
    for (var i = 0; i < arguments.length; i++) {
        args.push(arguments[i]);
    }
    var obj = args[0];
    var <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	9850	9960	
==>pan1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.st <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9850	9960	
==>pan1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.st <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8284	8387	
==>educe_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	1585	1697	
==>x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	1585	1697	
==>x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	1585	1697	
==>x <=> 0 }
multi sub abs  ($x) { if $x < 0 { -$x } else { $x } }

multi sub grep ($array,$code) { 
    $array.map( <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2197	2293	
==>et.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start () <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2197	2293	
==>et.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start () <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	6194	6297	
==>TI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	6194	6297	
==>TI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	6194	6297	
==>TI SUB Pugs::Internals::round ($xx) {...};
MULTI SUB Pugs::Internals::floor ($xx) {...};
MULTI SUB Pugs: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	5663	5764	
==>, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	5663	5764	
==>, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->un <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	5663	5764	
==>, @_ );
}
sub Perl6::Slice::is_infinite {
    my $self = shift; 
    $self->{slice}->is_infinite()->un <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1734	1864	
==>c() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1734	1864	
==>c() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/ <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15418	15512	
==>s simply mapped char for
char to the desired level. However, attempting to stuff something into <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1278	1403	
==>ion (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1278	1403	
==>ion (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1278	1403	
==>ion (args) {
      var array = args[1].FETCH(), idxs = args[2].toNative(), cc = args.pop();
      var ret   = [];
      for(va <==
3	/Users/nnunley/pugs/util/importgraph.pl	647	747	
==>le_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $! <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	801	893	
==>ort_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $inter <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	801	893	
==>ort_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $inter <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13709	13827	
==>rams'))));
                $e->get('$self')->send('BUILDALL' => ($e->get('%params')));
                return $e->get(' <==
3	/Users/nnunley/pugs/blib6/lib/Set.pm	12575	12667	
==>ad2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=hea <==
3	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12575	12667	
==>ad2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=hea <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4949	5072	
==>%UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4949	5072	
==>%UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a un <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4949	5072	
==>%UNDECLARED_VARS        = ();
  local @ALL_LEXICALS           = ();
  local @PIL1_HACK_CLASSDECLS   = ();
  # I'll fill a un <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3347	3462	
==>] }, ];
    }

    warn "No license specified, setting license = 'unknown'\n"
      unless $values{license};

    $v <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3832	3929	
==>nish() method to return any leftover data 
and clear the cipher object.

The methods intended to b <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3832	3929	
==>nish() method to return any leftover data 
and clear the cipher object.

The methods intended to b <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	55	157	
==>ngs;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the pa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	55	157	
==>ngs;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the pa <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22911	23006	
==>r opinion on what's wrong
with it.

=item * Variable interpolation

This module parses I<regexes <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	4942	5042	
==>oot::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	4942	5042	
==>oot::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	4942	5042	
==>oot::MyClass".

=item B<custom>

    Class::Rebless->custom($myobj, "MyName", { editor => \&my_editor <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2393	2520	
==>ge didn't provide any alternatives
        last LINKING unless $href->{$pkg};
        
        ### XXX this should probably be d <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	7802	7913	
==>w {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_o <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7802	7913	
==>w {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_o <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	13708	13820	
==>UB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	13708	13820	
==>UB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	13708	13820	
==>UB prefix:<-e> ($xx) { -e p6_to_s($xx) ? $xx : p6_from_b(0) };
MULTI SUB prefix:<-z> ($xx) { -z p6_to_s($xx) ? $x <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9251	9363	
==>define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw { <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9251	9363	
==>define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw { <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	111	218	
==>1..6;
#!\pause
#=Perl 6: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1634	1819	
==>s')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1634	1819	
==>s')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to ad <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1634	1819	
==>s')->{$label} = $method;                
        }            
        else {
            confess "I do not recognize the method type ($method)";
        }
    };

    # and use it to ad <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32346	32449	
==>s the argument.  This method will fail if
C<$other> does not have an identical header to the invocant re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36896	36999	
==>s the argument.  This method will fail if
C<$other> does not have an identical header to the invocant re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36186	36289	
==>s the argument.  This method will fail if
C<$other> does not have an identical header to the invocant re <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2544	2664	
==>'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'gram <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2737	2857	
==>'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'gram <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	979	1080	
==>r perl6.
  This will likely be pure p5/prolog, with no p6 runtime associated.
Then, 
  - aid in protot <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1829	2012	
==>) = @_;
            $description ||= '';
            $self->report_test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.number'      => $self->get_test_nu <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6454	6548	
==>d, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class repre <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6454	6548	
==>d, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class repre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11544	11715	
==>ed $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11544	11715	
==>ed $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$cla <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11544	11715	
==>ed $class;  
            
        my %opts;
                
        local $::ARGS = [ $_[1], \%opts, $_[0], $_[2] ];          

        return $_normal_dispatch_cache{$cla <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2334	2467	
==>= $conf->archive_data;
        my $control  = $conf->archive_control;

        ### extract the meta info
        ### XXX extract to $B <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9172	9280	
==>",Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9168	9276	
==>",Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[ <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1202	1305	
==>sses($self: Set $super) {

    my $supers = $self.all_superclasses;
    die "Uh-oh, there's a super in m <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7116	7247	
==>0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3720	3851	
==>0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4569	4700	
==>0]->[0]);
}
sub node::term2 {
    return $_[0] unless ref($_[0]);
    return emit( $_[0]->[0]);
}
sub node::literal {
    # $_[0] =~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	2421	2563	
==>($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	2421	2563	
==>($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	2421	2563	
==>($self->env->get('acc') || '') . $token
            ) if $in_method;
        }
    }
}

## private methods

sub _discard_whitespace {
    my ($ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5173	5284	
==>my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ? <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5173	5284	
==>my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2432	2523	
==>ESCRIPTION

The C<v6-pugs> module is a front-end to the experimental Perl6-to-Perl5 compiler <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5527	5652	
==>uthority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5527	5652	
==>uthority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5527	5652	
==>uthority($authority) if defined $authority;     

    if (ref($body) eq 'CODE') {
        local $::ROLE = $new_role;
        $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	4142	4312	
==>.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	4142	4312	
==>.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbox <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	4142	4312	
==>.unboxed' => &Perl6::Value::Num::Inf );
            },
            'NaN' => sub {
                my ($class) = @_;           
                return $class->new( '$.unbox <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2277	2367	
==>thod(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2277	2367	
==>thod(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_me <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2277	2367	
==>thod(sub { ::opaque_instance_id($::SELF)    }));
$::Object->add_method('class' => ::make_me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Parser.pm	627	744	
==>igInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Parser.pm	627	744	
==>igInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $str <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Parser.pm	627	744	
==>igInt.
    return if ref($obj) =~ /^Math::Big/;

    bless $obj => $namespace . "::" . ref $obj;
  }});

  return $str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2011	2117	
==>d(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2011	2117	
==>d(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2011	2117	
==>d(sub { 
    my ($self) = @_;
    my $dispatcher = $self->class->dispatcher(':ascendant');
    while (my $m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pil2js.pl	5998	6113	
==>>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pil2js.pl	5998	6113	
==>>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $f <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pil2js.pl	5998	6113	
==>>;
}

sub unslurp {
  open my $fh, "> $_[0]"          or die "Couldn't open \"$_[0]\" for writing: $!\n";
  print $f <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4676	4783	
==>de_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4676	4783	
==>de_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', <==
3	/Users/nnunley/pugs/util/yaml_harness.pl	5799	5914	
==>.. $child_count) {
        my $this_size = $chunk_size * 3;

        # Heuristic: Most of the first tests (ext/) are <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3960	4053	
==>ous database portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3960	4053	
==>ous database portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	14810	14906	
==>UB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	14810	14906	
==>UB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	14810	14906	
==>UB Pugs::Internals::check_for_io_leak ($xx) {...};
MULTI SUB system (*@xx) {
    @xx = map{p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	5766	5886	
==>mitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	5766	5886	
==>mitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	5766	5886	
==>mitives,
    # because else we can't implement &try in Perl.
    return (
      $vars,
      '$?POSITION',
      $PIL::IN <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6037	6140	
==>er';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{callback};

    $self->{'ne <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	10238	10355	
==>ave identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13715	13832	
==>ave identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, t <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12996	13113	
==>ave identical headings; result is src intersection.
        return $?SELF!_intersection( $other );
    }

    # Now, t <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2518	2627	
==>XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $fl <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2658	2767	
==>XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $fl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	6537	6660	
==>ew( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	6537	6660	
==>ew( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	6537	6660	
==>ew( '$.unboxed' => Perl6::Value::Str::to_int( _('$.unboxed') ) ) },
            'str' =>  sub { $::SELF },
            'bit' <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	234	331	
==>e;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	234	331	
==>e;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7468	7568	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7468	7568	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aM <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7468	7568	
==>mfix_method () is primitive {
  JS::inline('(function () {
    PIL2JS.addmethod(
      _3amain_3a_3aM <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6727	6844	
==>@_;
    my $pass;
    $pass = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pa <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2314	2411	
==>have objects or fully functioning modules in 
Pugs, this port does it's best to work with those li <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2314	2411	
==>have objects or fully functioning modules in 
Pugs, this port does it's best to work with those li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	4272	4395	
==>::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	4272	4395	
==>::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	4272	4395	
==>::_create ($xx0) {""};
MACROP5   Class::_create ($xx0) {""};
MACROP5   Role::_create ($xx0) {""};


# From Prim.hs
# op0
#MU <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5939	6044	
==>bType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'S <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5939	6044	
==>bType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'S <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2838	2943	
==>bType', 'SubCoroutine';
node_s 'SubType', 'SubMacro';
node_s 'SubType', 'SubRoutine';
node_s 'SubType', 'S <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6282	6403	
==>}
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6282	6403	
==>}
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] <==
3	/Users/nnunley/pugs/util/run-smoke.pl	1494	1586	
==>ME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4079	4193	
==>CH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4079	4193	
==>CH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	4079	4193	
==>CH_TRACE;
            if ($current->has_method($label, %opts)) {
                return $current->get_method($label <==
3	/Users/nnunley/pugs/util/addauthors.pl	1313	1427	
==>ters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub read <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	6382	6499	
==>rnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	6382	6499	
==>rnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkP <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	6382	6499	
==>rnings "recursion";

    # - !perl/PIL::MkTParam
    # tpDefault: !perl/@PIL::Nothing []
    # tpParam: !perl/PIL::MkP <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4576	4689	
==>dings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i) <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4968	5081	
==>dings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i) <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26075	26168	
==>:-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7675	7883	
==>etch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7675	7883	
==>etch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    re <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7675	7883	
==>etch( $k ) );
                    }
                    #warn $a->fetch( 1 );
                    #warn $self->fetch( 1 );
                    #$a->fetch( 1 )->bind( $self->fetch( 1 ) );
                    re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3940	4037	
==>Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3940	4037	
==>Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::Met <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3940	4037	
==>Cell is implemented in the Perl6::Container::Scalar package

use strict;
use Carp;

use Perl6::Met <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13293	13415	
==>d anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13293	13415	
==>d anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	13293	13415	
==>d anyway 
        if ($_[0] == $::Class) {
             warn "got the ::Class, going to &_class_dispatch" if $DISPATCH_TRAC <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8709	8836	
==>olen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12737	12833	
==>out the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:dens <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12737	12833	
==>out the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:dens <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19170	19265	
==>ation layers for any other programming language can
be supported, such as Tutorial D or XQuery o <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19170	19265	
==>ation layers for any other programming language can
be supported, such as Tutorial D or XQuery o <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20690	20781	
==>the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>(" <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20690	20781	
==>the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>(" <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1022	1143	
==>ject {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1022	1143	
==>ject {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	5127	5240	
==>g;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	5127	5240	
==>g;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	5127	5240	
==>g;
    $mn =~ s/\cA/::/g;
    my @parts = split('::',$mn);
    $parts[-1] = $space."_".$parts[-1];
    $mn = join( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6129	6252	
==>($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6129	6252	
==>($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "he <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6129	6252	
==>($self) > BOOTSTRAPPED_COMPLETE &&
            ::opaque_instance_class($self) != $::EigenClass     ) {
            #warn "he <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11375	11495	
==>!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @ <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11375	11495	
==>!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @ <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19003	19095	
==>Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1,Fx,F1,Bx,B1,Ex,E1).


rm(capture(N,R <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	17818	17934	
==>=> '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	17818	17934	
==>=> '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	17818	17934	
==>=> '%:namespace')->{$label} = $value;
    }
});

1;

__END__

=pod

=head1 NAME

metamorph

=head1 DESCRIPTION

=head <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	12780	12875	
==>$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	12780	12875	
==>$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $meth <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	12780	12875	
==>$::Class->add_method('add_singleton_method' => ::make_method(sub { 
    my ($self, $label, $meth <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6708	6804	
==>s);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root( <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6708	6804	
==>s);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root( <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	24996	25098	
==>e->stringify, "∀α. ∀β. ∀γ. α → β → γ", "pretty print a -> b -> c");
}
{
	my $type = typ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	145	243	
==>- pushing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_ <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	145	243	
==>- pushing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39047	39188	
==>hod' => (
    # method label
        symbol->new('get_attributes'),
    # method body
        method->new(
            $::ENV,
            met <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10317	10414	
==>more header fields.  The header field
name ($field) is not case sensitive.  To make the life easie <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10317	10414	
==>more header fields.  The header field
name ($field) is not case sensitive.  To make the life easie <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	6928	7023	
==>}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	6928	7023	
==>}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	6928	7023	
==>}


method JS::Root::matcher (Rul $rule:) {
  JS::inline('(function (rul) { return rul.matcher } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	29930	30073	
==>ems {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	29930	30073	
==>ems {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = sh <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	29930	30073	
==>ems {
    my $self = shift;
    # my @x = %$self;  warn "-- items -- @x --";
    return @{$self->{items}};
}

sub from_list {
    my $class = sh <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	13421	13535	
==>JecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	13421	13535	
==>JecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	13421	13535	
==>JecT**' . rand;
sub Perl6::Value::identify {
    my $key = shift;
    return $Perl6::Value::obj_id unless defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	538	638	
==>@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circum <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	538	638	
==>@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circum <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	538	638	
==>@x) }
multi sub infix:<&> (*@x) { all(@x) }
multi sub infix:<^> (*@x) { one(@x) }

# multi sub circum <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5954	6060	
==>les will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming e <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5748	5851	
==>les will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming e <==
3	/Users/nnunley/pugs/util/config_h.pl	447	543	
==>line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_line <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3380	3481	
==>ngle test within the
Test::Builder framework. The class itself is actually a factory for
classes which <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3380	3481	
==>ngle test within the
Test::Builder framework. The class itself is actually a factory for
classes which <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5577	5678	
==>ngle test within the
Test::Builder framework. The class itself is actually a factory for
classes which <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1272	1371	
==>f.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1272	1371	
==>f.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${} <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1272	1371	
==>f.autoderef = false;

    cc(new PIL2JS.Box.Constant(new_ref));
  })')($self);
}

sub circumfix:<${} <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	388	641	
==>readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell mo <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	388	641	
==>readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell mo <==
3	/Users/nnunley/pugs/examples/golf/tsanta.pl	1119	1254	
==>_ .= chomp; next unless length;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub Print <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	2356	2462	
==>=> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	2356	2462	
==>=> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method( <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	2356	2462	
==>=> ::make_method(sub { ::opaque_instance_class($::SELF) }));

$::Object->add_method('isa' => ::make_method( <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6289	6404	
==>, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6277	6392	
==>, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num <==
3	/Users/nnunley/pugs/util/testgraph.pl	826	930	
==>$fh, ":utf8" or die "binmode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12097	12203	
==>(} . $args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdind <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1872	1973	
==>}else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compil <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1872	1973	
==>}else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1679	1816	
==>1]} } }
    ;

signature:
        #empty  
        { $_[0]->{out}= { signature => [] } }
    |   signature_term 
        { $_[0]->{out}= { <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12076	12168	
==>le, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_e <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12076	12168	
==>le, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	2645	2733	
==>ole->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	2645	2733	
==>ole->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	2645	2733	
==>ole->add_method('get_method_list' => ::make_method(sub {
    keys %{::opaque_instance_att <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4011	4118	
==>f->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_versio <==
3	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2962	3068	
==>f->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_versio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3687	3789	
==>res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3687	3789	
==>res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $! <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3687	3789	
==>res or length($res) == 0;
  close $read_fh or
    warn "Couldn't close pipe to \"$cfg{pugs} @args\": $! <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2736	2856	
==>, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2736	2856	
==>, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2736	2856	
==>, from, to, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matc <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3543	3663	
==>rim.hs r8593 defines this as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4913	5029	
==>ule for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4913	5029	
==>ule for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	13459	13594	
==>>{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	13459	13594	
==>>{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	13459	13594	
==>>{pops}}
        },
    );
}

sub zip { 
    my $array = shift;
    my @lists = @_;
    my $ret = $array->clone; 
    Perl6::Value::List <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	5186	5392	
==>hile ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	5186	5392	
==>hile ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'key <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	5186	5392	
==>hile ( defined $key ) {
                    $ary->push( $key, $_[0]->fetch( $key ) );
                    $key = $_[0]->nextkey;
                }
                return $ary;
            },
            'key <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5605	5724	
==>trs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $lab <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7915	8015	
==>pans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this cla <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7915	8015	
==>pans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this cla <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	4105	4210	
==>of the slurpy
    #   hash.  You give a name to it so that you can refer to it
    #   > ins <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	4105	4210	
==>of the slurpy
    #   hash.  You give a name to it so that you can refer to it
    #   > ins <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	4105	4210	
==>of the slurpy
    #   hash.  You give a name to it so that you can refer to it
    #   > ins <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4326	4485	
==>array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4326	4485	
==>array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4326	4485	
==>array',
             '%' => 'hash',
             '&' => 'code',
             ':' => 'type' # XXX - PIL uses it.  but is it spec?
             );
my %sigil_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1492	1590	
==>metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1492	1590	
==>metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1492	1590	
==>metamodel_base => $cfg{metamodel_base});
command_conf(pil2js         => $cfg{pil2js});
command_conf <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	913	1056	
==>y, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	913	1056	
==>y, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	913	1056	
==>y, n ]
        ).toNative());

        str.STORE(new PIL2JS.Box.Constant(
          str_.substr(0, a) +
          repl +
          str_.substr(a <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	309	416	
==>s defined $value; # default to 0
    (looks_like_number($value)) 
        || confess "Bad numeric value ($va <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2561	2667	
==>lf - but I think to

do it Right As Specified is more important.



### - see "Modifying the compiler" belo <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2466	2569	
==>lf - but I think to
do it Right As Specified is more important.

### - see "Modifying the compiler" belo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8381	8483	
==>D
  (
      Test::Builder::TestPlan $.testplan?,
      Test::Builder::Output   $.output = Test::Builder <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	585	681	
==>D
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	585	681	
==>D
(
    Test::Builder::TestPlan $.testplan?,
    Test::Builder::Output   $.output = Test::Builder <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1941	2101	
==>ay->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clon <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1941	2101	
==>ay->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clon <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1941	2101	
==>ay->new();
    if ( @a ) {
        my $p = shift @a;
        if ( p6_isa( $p, 'Array' ) ) {
            for ( $p->items ) {
                my $pp = $_; # ->clon <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7768	7915	
==>sif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Conten <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7768	7915	
==>sif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Conten <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12383	12487	
==>e
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
   g <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	420	523	
==>}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	420	523	
==>}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	420	523	
==>}) {
    $subname = $self->{pFun}->{pLV}->{pVarName};
  }
  # Minor hack -- we want syntactical pairs to <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9912	10060	
==>&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10191	10339	
==>&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3977	4111	
==>)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~ <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3977	4111	
==>)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~ <==
3	/Users/nnunley/pugs/util/package-osx.pl	7548	7650	
==>tion.3
        /usr/local/man/man3/Perl6::Spec::Documentation.3pm
        /usr/local/man/man3/Perl6::Sp <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	3948	4038	
==>les');
}));

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	3948	4038	
==>les');
}));

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	3948	4038	
==>les');
}));

## --------------------------------------------------------------------------- <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	43	141	
==>rs qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	43	141	
==>rs qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33135	33224	
==>ric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-meth <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37685	37774	
==>ric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-meth <==
3	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11254	11388	
==>"mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@fi <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	7003	7103	
==>thods::Pure;
use Data::Dumper;


# The unification of the various types depends on their data...
# th <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	679	768	
==>JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value: <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5619	5720	
==>ase role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5619	5720	
==>ase role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7816	7917	
==>ase role to add a simple public
attribute.

=over 4

=item B<Str $.reason>

=back

It also overrides a <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9948	10058	
==>node::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[1] ru <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9158	9253	
==>g.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of R <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9158	9253	
==>g.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of R <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3720	3828	
==>= @_;
    (blessed($_) && $_->isa('symbol'))
        || confess "You must store a symbol type in a param list <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2895	2994	
==>n.  To avoid 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2895	2994	
==>n.  To avoid 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	20629	20740	
==>>{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the argument
	    delete $dir_inde <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7278	7377	
==>$base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath( <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7278	7377	
==>$base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	412	521	
==>ie "Could not add $jib";
}    

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inden <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8520	8614	
==>interpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier E <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8520	8614	
==>interpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier E <==
3	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2366	2461	
==>oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This librar <==
3	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2366	2461	
==>oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This librar <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7714	7827	
==>lasses = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7714	7827	
==>lasses = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7714	7827	
==>lasses = map {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	4814	4912	
==>return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	4814	4912	
==>return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	4814	4912	
==>return sprintf "PIL2JS.call(%s, %s, [\n%s,\n%s\n])",
        $inv, PIL::doublequote($sub), $cxt, $a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8658	8808	
==>warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8658	8808	
==>warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->typ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8658	8808	
==>warn "RETURNING @r = @{[ map { Perl6::Value::stringify($_) } @items ]}";
                        my $j = Junction->new;
                        $j->typ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7222	7308	
==>rammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1047	1133	
==>rammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1819	1916	
==>ciphertext version.  Most 
algorithms will have a key, which will be specified in the options; che <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1819	1916	
==>ciphertext version.  Most 
algorithms will have a key, which will be specified in the options; che <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18377	18490	
==>= @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14798	14911	
==>= @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # c <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6071	6177	
==>.*?) \> <?p6ws>? <block>
        { return { sub_decl => $() ,} }
RULE
*{'sub_defin'} = Pugs::Compiler::Rule <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1628	1720	
==>}
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1628	1720	
==>}
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1628	1720	
==>}
sub circumfix:<&{}>($thing) is primitive is rw { PIL2JS::Internals::generic_deref($thing) } <==
3	/Users/nnunley/pugs/util/run-smoke.pl	482	582	
==>it.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/file.html
#
my $pugs_sandbox    = $ARGV[0] o <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23513	23607	
==>ependencies (it is very simple).

There are other differences.  Where other solutions take vari <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23513	23607	
==>ependencies (it is very simple).

There are other differences.  Where other solutions take vari <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6812	6927	
==>rs;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6812	6927	
==>rs;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6812	6927	
==>rs;

    my ($body, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8335	8454	
==>ed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8335	8454	
==>ed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8335	8454	
==>ed array of objects
        $j->junction_normalize;
        # warn "JUNCTION: ", $j->type," of @{$j->values}";
        r <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	463	556	
==>int_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	424	517	
==>int_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	424	517	
==>int_ast,
		"print-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	574	746	
==>t, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	574	746	
==>t, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15420	15518	
==>um length of a string that would be matched by the regex; provides
a front-end method for the parse <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9572	9701	
==>f: Bit $passed, Str $description?, Str $reason? )
  {
      $self.report_test(
          Test::Builder::Test.new(
              to <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1665	1786	
==>f: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            to <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1665	1786	
==>f: Bit $passed, Str $description?, Str $reason? )
{
    $self.report_test(
        Test::Builder::Test.new(
            to <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13664	13778	
==>?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17141	17255	
==>?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi met <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16503	16617	
==>?SELF );
    }

    # Now, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi met <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6430	6532	
==>er

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated pr <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6442	6544	
==>er

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	4157	4284	
==>n; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	4157	4284	
==>n; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @p <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	4157	4284	
==>n; # now discard the {
    my $method_source = "sub {\n";
    if (@params) {
        $method_source .= 'my (' . (join ", " => @p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5168	5264	
==>push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5361	5457	
==>push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	9930	10040	
==>the methods described below.
    # -----------------------------------------------
    # has %:methods;
    # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	9930	10040	
==>the methods described below.
    # -----------------------------------------------
    # has %:methods;
    # h <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	9930	10040	
==>the methods described below.
    # -----------------------------------------------
    # has %:methods;
    # h <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40111	40353	
==>eturns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19660	19893	
==>eturns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5119	5278	
==>or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} e <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	91	195	
==>ame!".say; }
}
#=Methoden mit einem Argument aufrufen
$welt.hallo "Mike";
hallo $welt: "Mike";
hallo($wel <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1385	1481	
==>itten to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1385	1481	
==>itten to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3381	3535	
==>hitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8466	8590	
==>SES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8466	8590	
==>SES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20593	20700	
==>apture:
    $I0 = exists self["cname"]
    if $I0 goto setsubpats
    $I0 = pad["subpats"]
    self["cname"] <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1982	2085	
==>}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns L <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1982	2085	
==>}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns L <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	3419	3526	
==>ted output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to r <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	3419	3526	
==>ted output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to r <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	3499	3606	
==>ted output.

=head1 EXPORTED FUNCTIONS

=over 4

=item B<plan( Int $tests )>

Plans the number of tests to r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	6005	6191	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	6005	6191	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	6005	6191	
==>=> sub { 
                my $key = $_[0]->firstkey;
                my $value;
                my @pairs;
                while ( defined $key ) {
                    $value = $_[0]->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3690	3803	
==>) },
        'status' => sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH('::Base')- <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1018	1114	
==>od

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1018	1114	
==>od

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	3610	3716	
==>op();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	3610	3716	
==>op();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalu <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	3610	3716	
==>op();
  PIL2JS.coro_entrypoints[$coro_id] = undefined;
  $restores;
  throw function () { __returncc($lvalu <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	183	287	
==>ompiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	183	287	
==>ompiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	179	279	
==>ompiler;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::R <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	695	799	
==>)
        || confess "signature must be an closure::params or closure::signature type";
    (ref($body) e <==
3	/Users/nnunley/pugs/blib6/lib/fp.pm	238	333	
==>f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> <==
3	/Users/nnunley/pugs/ext/fp/lib/fp.pm	238	333	
==>f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	53	162	
==>unction (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	53	162	
==>unction (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	53	162	
==>unction (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

method JS::Root::not(*@a:) { @a.e <==
3	/Users/nnunley/pugs/misc/S29_round.pl	1155	1270	
==>:round_half_down_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, up below 0
    given abs($x) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	6263	6367	
==>d size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6263	6367	
==>d size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18604	18712	
==>s the {URL} of whatever web page
     contains the link that the user followed to the current
     page.  Mos <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18604	18712	
==>s the {URL} of whatever web page
     contains the link that the user followed to the current
     page.  Mos <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	3561	3676	
==>of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7038	7153	
==>of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5995	6110	
==>of $mapping! duplicate attribute names of this"
            ~ " relation that aren't being renamed."
        if any( <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7322	7425	
==>th($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading co <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7322	7425	
==>th($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading co <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5762	5861	
==>ne possibility is to return a negative value for
# relative seconds and a positive value for epoch b <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5762	5861	
==>ne possibility is to return a negative value for
# relative seconds and a positive value for epoch b <==
3	/Users/nnunley/pugs/util/importgraph.pl	2117	2202	
==>m');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Li <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	11016	11155	
==>e->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	11016	11155	
==>e->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	11016	11155	
==>e->{$_[1]}) 
                if exists $method_table->{$_[1]};             
        }
        confess "Method ($_[1]) not found in \$::Class <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	39954	40080	
==>y $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	39954	40080	
==>y $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	39954	40080	
==>y $class = shift;
    # arrayref => \@INC;
    bless { @_ }, $class;
}

sub store {
    my ( $this, $key, $value ) = @_;
    my <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10667	10851	
==>= 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curirc <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10667	10851	
==>= 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curirc <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18323	18421	
==>RIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18323	18421	
==>RIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	189	285	
==>urn join( ', ', Data::Dumper::Dumper( @_ ) );
}

package Pugs::Runtime::Perl6::Scalar;

sub isa { <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	1194	1310	
==>$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	1194	1310	
==>$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	1194	1310	
==>$/eval $1/eg or die;

    push @PIL::PIL1_HACK_CLASSDECLS,
      sprintf "if(!%s) var %s = PIL2JS.new_empty_class(%s, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Str.pm	2514	2624	
==>index(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Str.pm	2514	2624	
==>index(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else { <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Str.pm	2514	2624	
==>index(Str $self: Str $substr, Int $pos = chars $self) {
  if $self eq "" and $substr ne "" {
    -1;
  } else { <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	2162	2264	
==>die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	2162	2264	
==>die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	2162	2264	
==>die "&map needs a Code as first argument!" unless $code.isa("Code");
  my $arity = $code.arity;
  # die <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	3129	3257	
==>Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	3129	3257	
==>Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	3129	3257	
==>Root::die(*@msg)  is primitive {
  my $arg = @msg > 1  ?? join "", @msg
         !! @msg == 1 ?? @msg[0]
         !! "Died";
  JS <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	254	353	
==>ode (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this i <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	254	353	
==>ode (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2010	2116	
==>class->superclasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id . " [ di <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	6645	6740	
==>lings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($s <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6645	6740	
==>lings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($s <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12921	13018	
==>n it is generally not
possible to tell which of the returned values belonged to which field.

=ite <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12921	13018	
==>n it is generally not
possible to tell which of the returned values belonged to which field.

=ite <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14434	14528	
==>railing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passed through

=item RPe_BADPOS (- <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36134	36230	
==>me are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Memb <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36134	36230	
==>me are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Memb <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39939	40033	
==>ESC> warning takes two arguments: the character
that was unexpectedly escaped, and a string.  I <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5099	5200	
==>alue;
   has $.target;
   method is_abrupt_completion() { !$.type.normal }
}
# empty is represented by <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	975	1104	
==>${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	975	1104	
==>${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	975	1104	
==>${$_[0]->[1]};
    }
    sub ::opaque_instance_attr : lvalue { 
        $_[0]->[2]->{$_[1]};
    }
    
    sub ::opaque_instance_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35241	35387	
==>ength );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35241	35387	
==>ength );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset - <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35241	35387	
==>ength );
            ( $len_tail, @tail ) = $array->_shift_n( Inf );
        }
        else {
            #  tail=pop length -> head=shift offset - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6315	6408	
==>----------------------------------
## Module

$::Module = $::Class->new();

$::Module->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6315	6408	
==>----------------------------------
## Module

$::Module = $::Class->new();

$::Module->supercl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6315	6408	
==>----------------------------------
## Module

$::Module = $::Class->new();

$::Module->supercl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	9114	9226	
==>. '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	9114	9226	
==>. '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ex <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	9114	9226	
==>. '"';
    }
    my $extra_args = $main::pugs_args ? $main::pugs_args : ""; #XXX- kludge
    my $cmd = "$pugs $ex <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22989	23106	
==>st->{wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtes <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4443	4578	
==>cute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º' <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4443	4578	
==>cute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	197	298	
==>( ', ', Data::Dumper::Dumper( @_ ) );
}

package Pugs::Runtime::Perl6::Scalar;

sub isa {
    my $self <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	10105	10249	
==>e "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	10105	10249	
==>e "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    clas <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	10105	10249	
==>e "unsupported pair method .$method";
            },

        },
    }
};

class1 'Ref'.$class_description => {
    is => [ $::Object ],
    clas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	20324	20475	
==>:p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	20324	20475	
==>:p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @ite <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	20324	20475	
==>:p6v_isa($_,'Scalar') ? $_->fetch : $_
                            } @items;

                        my $ret = Perl6::Container::Array->from_list( @ite <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	5941	6126	
==>See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	5941	6126	
==>See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	5941	6126	
==>See: t/trait.t
            # 'access' => sub {
            #    die "access must be 'ro' or 'rw'"
            #        if $_[1] ne 'ro' && $_[1] ne 'rw';
            #    _('$:cell')->{r <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33975	34069	
==>g: 1 if negated

Ender: I<anyof_close>

=head2 anyof_char

Family: anyof_char

Types: anyof_cha <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7246	7371	
==>ete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $en <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	547	672	
==>ete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $en <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11514	11613	
==>losure with arity of 1, which returns the "key" by which to sort. If
the closure returns a Num, C<E< <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	8136	8308	
==>a( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "IT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	8136	8308	
==>a( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "IT <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	8136	8308	
==>a( 'Junction' ) ) {
                        #warn "HAS JUNCTION ", $arg->str->unboxed;
                        my @items = @{$arg->things};
                        #warn "IT <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11457	11596	
==>$.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -In <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11457	11596	
==>$.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -In <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3081	3216	
==>ct' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4781	4911	
==>ct' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {
        'id' => sub ($) {
            ::opaqu <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3809	3935	
==>ct' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => sub ($) { ::opaqu <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	13689	13790	
==>, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17166	17267	
==>, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Re <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16528	16629	
==>, the standard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Re <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1449	1573	
==>List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1449	1573	
==>List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4327	4422	
==>bscriber.($.subscription, $.event.args);
    }

    method dispatch (Class::Events::Subscriber $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1132	1235	
==>xup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1132	1235	
==>xup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1132	1235	
==>xup,
    pFun  => $self->{pFun}->fixup,
    pInv  => $self->{pInv} && $self->{pInv}->fixup,
    pArgs => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14770	14948	
==>( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14770	14948	
==>( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   i <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14770	14948	
==>( $ret->pop, 
                        map { my $x = $_->pop } #; defined $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   i <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18750	18856	
==>art of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18750	18856	
==>art of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3407	3494	
==>oncatenation_more(W, Z) --> p5_quantified(X), p5_concatenation_more(conc(W,X), Z), !.
p5 <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1250	1351	
==>Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path::Class::dir('dists')   ];
$config{'repo_ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	793	893	
==>Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/sup <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	793	893	
==>Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/sup <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9489	9616	
==>]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] ruleop::alternation( <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1883	1987	
==>urn Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1883	1987	
==>urn Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! <==
3	/Users/nnunley/pugs/util/build_pugs.pl	9448	9561	
==>n {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub co <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	183	287	
==>iler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() retur <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	183	287	
==>iler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() retur <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	404	546	
==>_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $l <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	404	546	
==>_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $l <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4419	4558	
==>'left',
        precedence => 'looser',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'or',
        assoc => <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	979	1107	
==>mmon names for super
        return $table->{prototype}
            if ($message eq 'prototype' ||
                $message eq 's <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1121	1229	
==>0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1121	1229	
==>0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	806	936	
==>put' => $::TestBuilder->FETCH('::Output')->new());
        },
        'DESTROY' => sub {
            my $footer = _('$.testplan')-> <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2397	2491	
==>cludes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other. <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2397	2491	
==>cludes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other. <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12622	12753	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12901	13032	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $r <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPad.pm	1006	1116	
==>ms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPad.pm	1006	1116	
==>ms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPad.pm	1006	1116	
==>ms} }
  };

  local @PIL::CUR_LEXSCOPES = (@PIL::CUR_LEXSCOPES, $pad);

  return bless {
    pScope => $self->{ <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1529	1630	
==>arn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1736	1837	
==>arn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	452	591	
==>) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	452	591	
==>) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  } <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	452	591	
==>) {
        thing.referencee.STORE(n);
        return thing.referencee;
      }
    );

    ret.uid = thing.referencee.uid;
    cc(ret);
  } <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	21233	21476	
==>calar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	21233	21476	
==>calar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIV <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	21233	21476	
==>calar->store( @param );
                            $tmp->store( $pos, $scalar );
                        }
                        return $self;
                    }

                    #for ( @param ) {
                    #    next if UNIV <==
3	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2241	2385	
==>$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_;
    do { $conf->{$_} = $DEFAULTS{$_} unless defined $conf->{$_}; } for
        k <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16996	17090	
==>calization methodology
in an easily accessable manner, such that would not be possible if its
f <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16996	17090	
==>calization methodology
in an easily accessable manner, such that would not be possible if its
f <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1551	1684	
==>pkg  = shift        or return;
    my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	350	452	
==>$*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant {
  VERSION     => 0.4,
  M <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	11143	11282	
==>= 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	11143	11282	
==>= 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	11143	11282	
==>= 1) {
      cc(proxy_for(idxs[0]));
    } else {
      var ret = [];
      for(var i = 0; i < idxs.length; i++) {
        ret.push(proxy_fo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Gnosis.pm	1520	1623	
==>elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Gnosis.pm	1520	1623	
==>elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:priv <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Gnosis.pm	1520	1623	
==>elsif (blessed($method) eq 'Perl6::PrivateMethod') {
            ::opaque_instance_attr($self => '%:priv <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4934	5041	
==>= $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4934	5041	
==>= $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $m <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4934	5041	
==>= $space_from_sigil{$sigil};
    my $is_absolute_name = $mn =~ /::/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28874	28994	
==>come to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inv <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28874	28994	
==>come to MyApp.],
        'MYAPP_GOODBYE' => q[Goodbye!],
        'MYAPP_PROMPT'
            => q[Enter a number to be inv <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	241	349	
==>come to MyApp.],
    'MYAPP_GOODBYE' => q[Goodbye!],
    'MYAPP_PROMPT'
        => q[Enter a number to be inv <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	32405	32509	
==>t have an identical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36955	37059	
==>t have an identical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<un <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36245	36349	
==>t have an identical header to the invocant relation.  This
method has an alias named C<plus>.

=item C<un <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	602	797	
==>rs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	602	797	
==>rs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Di <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	602	797	
==>rs) = @_;
        bless [
            ++$GLOBAL_INSTANCE_COUNT, # 'id'    => 
            $class,                   # 'class' => 
            \%attrs,                  # 'attrs' => 
        ], 'Di <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	657	783	
==>q 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

= <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	657	783	
==>q 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

= <==
3	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8452	8556	
==>y )
 multi Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (MatchTest $test ;   * <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	4657	4774	
==>) };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    e <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4715	4832	
==>) };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    e <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4436	4553	
==>s}{no_index};
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $dat <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12467	12579	
==>e;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12467	12579	
==>e;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12467	12579	
==>e;
}
sub fetch {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::identify( $key );
    $this->{hashref}{$s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	94	197	
==>APPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	94	197	
==>APPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (de <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	94	197	
==>APPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of this file is the (de <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1278	1382	
==>def=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1278	1382	
==>def=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1278	1382	
==>def=>undef }
#        iblech fglock: Right, I'd think so (and this is how I've implemented it in PIL2JS). <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	7852	8014	
==>lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	7852	8014	
==>lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	7852	8014	
==>lazy slicing
            my $tmp = $ary->fetch( $i )->fetch;
            $result->store( $pos, $tmp );
            $pos++;            
        }
    }
    return $ <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	22123	22249	
==>($middle_str) - $max_namelen;
    if ($list_len < length($list_str)) {
        $list_len = length($list_str);
        $max_name <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	13805	13923	
==>s:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day w <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13805	13923	
==>s:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day w <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	711	830	
==>ompile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9893	9999	
==>@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]* <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9893	9999	
==>@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]* <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	3492	3608	
==>( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3492	3608	
==>( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	555	651	
==>tible regex engine, that establishes feasiblity.
# Limited testing suggest performance is quite p <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15872	15979	
==>$xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15872	15979	
==>$xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15872	15979	
==>$xx) { $xx->shift };
#MULTI SUB pick ($xx) {...};
#MULTI SUB sum ($xx) {...};
MULTI SUB min ($xx) {...};
MUL <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7997	8096	
==>her the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exi <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7997	8096	
==>her the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exi <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	6406	6513	
==>line.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	6406	6513	
==>line.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	6406	6513	
==>line.
Pugs::Internals::eval $eval;
die $! if $!;


sub prefix:<++>  ($a is rw)    is primitive { $a = $a + 1 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	3121	3243	
==>@_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	3121	3243	
==>@_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bles <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	3121	3243	
==>@_;
        my ( $name, $match, $supertype ) = 
           ( $param{name}, $param{match}, $param{supertype} );
        bles <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	295	470	
==>p6_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_A <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2154	2275	
==>onstant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2154	2275	
==>onstant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - retu <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2154	2275	
==>onstant parameter is an error
# TODO - splat can't be rw
# TODO - examples - subname, tail recursion, caller
# TODO - retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20377	20478	
==>q Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20377	20478	
==>q Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20377	20478	
==>q Perl6::Value::identify($xx1) };
MACROP5   infix:<&&> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_to_b($ <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	763	904	
==>$my_tmp_dir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte contro <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1084	1208	
==>de },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1095	1219	
==>de },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	336	449	
==>2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	336	449	
==>2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	336	449	
==>2 ... 42)  # wrong
#     (1, 2 .. 42)   # correct
# * The perlification of an array containing only one element is <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Math.pm	431	525	
==>CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Math.pm	431	525	
==>CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Math.pm	431	525	
==>CALLER::_:) { $JS::Math.tan(+$self)  }
method asin (Num $self = $CALLER::_:) { $JS::Math.asin(+ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	183	286	
==>rgument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" hashre <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	174	273	
==>rgument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" hashre <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12147	12244	
==>ree independently, use the root()
method to get it.  From there, you're on your own.  You'll proba <==
3	/Users/nnunley/pugs/util/version_h.pl	753	865	
==>f (-r $svn_entries) {
    print "Writing version from $svn_entries to $version_h\n";
    open FH, $svn_entries or <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18960	19056	
==>etting the referrer, this method removes the fragment from the
given URI if it is present, as man <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18960	19056	
==>etting the referrer, this method removes the fragment from the
given URI if it is present, as man <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5864	6066	
==>m_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5864	6066	
==>m_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5864	6066	
==>m_range(
                start => $start,
                end => $middle,
                step => $step,
            );
            $start = $middle + 1;
            return $shifted;
        },
        s <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	749	870	
==>rent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $sel <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	749	870	
==>rent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $sel <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2314	2430	
==>e checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2314	2430	
==>e checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Cod <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2314	2430	
==>e checking parameters twice
# TODO - parameter types - is rw, is copy, is ref, is context(Scalar)
# TODO - slurpy Cod <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7849	7953	
==>::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7849	7953	
==>::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCor <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7849	7953	
==>::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPointy SubMethod SubMacro SubCor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6405	6495	
==>erclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6405	6495	
==>erclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:v <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6405	6495	
==>erclasses([ $::Package ]);

$::Module->add_attribute('$:version'   => ::make_attribute('$:v <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	1501	1611	
==>my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	1501	1611	
==>my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	1501	1611	
==>my ($thing, $sub) = @_;
  my $unwrapped = $thing->unwrap;
  no warnings "recursion";

  if(
    not $thing->isa <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6330	6489	
==>{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{param} );
            }
            re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	357	456	
==>blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accident <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	357	456	
==>blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accident <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	33089	33176	
==>ed
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37639	37726	
==>ed
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relat <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36983	37070	
==>ed
C<disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relat <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11543	11653	
==>ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^ <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11543	11653	
==>ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	125	225	
==>ecedence;

use Data::Dumper;

our $operator;

# TODO - implement the "magic hash" dispatcher
our %has <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	6800	6910	
==>ay?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	6800	6910	
==>ay?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	6800	6910	
==>ay?
  setTimeout: function (f, millis) {
    var loop_till = (new Date).getTime() + millis;
    while((new Date <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2803	2911	
==>plit_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # re <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2803	2911	
==>plit_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # re <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3703	3791	
==>_concatenation_more(W, W) --> {true}.


p5_quantified(Z) --> p5_elemental(W), p5_quantifi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	13291	13474	
==>( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	13291	13474	
==>( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub { <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	13291	13474	
==>( @list )->delete( 
                    Perl6::Value::List->from_num_range( start => 0, end => Inf ) 
                );
                
            },
            'slice' =>    sub { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5031	5129	
==>tr $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5031	5129	
==>tr $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6555	6653	
==>tr $description = '' )>

Records that a test has passed or failed, depending on the value of C<$pas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	3036	3151	
==>"Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	3036	3151	
==>"Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	3036	3151	
==>"Error: Couldn't compile to PIL!\n" if not defined $pil;
  return $pil;
}

sub run_pugs {
  my @args = @_;
  local $ <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6344	6597	
==>ield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        m <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6344	6597	
==>ield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	1951	2093	
==>Glob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	1951	2093	
==>Glob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility fo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	1951	2093	
==>Glob: "our sub foo {...}" gets
  #                                    # emitted as "our &foo := sub {...}".
  # There's no other possibility fo <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	15581	15673	
==>y will easily be
able handle arbitrarily complex data structures automatically (at least
that <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15639	15731	
==>y will easily be
able handle arbitrarily complex data structures automatically (at least
that <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	23107	23209	
==>ch a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27659	27761	
==>ch a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$! <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26436	26538	
==>ch a
Set member of Heading, and the value of every tuple in Body must be
mutually distinct.

=item C<$! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	11657	11786	
==>my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	11657	11786	
==>my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	11657	11786	
==>my $s = Perl6::Value::identify( $key );
    exists $this->{$s};
}
sub delete {
    my ( $this, $key ) = @_;
    $key = $key->fetch <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14177	14309	
==>->[1][0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $ <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1957	2065	
==>rsection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( ' <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1957	2065	
==>rsection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	14	131	
==>t::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	14	131	
==>t::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

me <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	14	131	
==>t::defined($a:) {
  JS::inline('(
    function (val) {
      return typeof(val) != "undefined";
    }
  )')($a);
}

me <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34212	34305	
==>ator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This method cr <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34212	34305	
==>ator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This method cr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	5331	5431	
==>omp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	5331	5431	
==>omp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s( <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	5331	5431	
==>omp ($xx) {...};
MULTI SUB Str::split (*@xxa) {...};
MULTI SUB lc ($xx)      { p6_from_s( lc(p6_to_s( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/pugs-p5.pl	1146	1255	
==>60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $ti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/pugs-p5.pl	1146	1255	
==>60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $ti <==
3	/Users/nnunley/pugs/perl5/PIL-Run/pugs-p5.pl	1146	1255	
==>60 if !defined($timeout) && @ARGV && !$repl;
local $SIG{ALRM} = sub { die "timeout\n" } if $timeout;
alarm $ti <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10622	10761	
==>+;
        my $v = LET($X::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$f,$fagain);
      };
      goto & <==
3	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2167	2265	
==>e, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have diff <==
3	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2167	2265	
==>e, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have diff <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	1096	1201	
==>compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	1096	1201	
==>compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($se <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	1096	1201	
==>compile_perl6_to_mini_js("-e", $p6);
    $self->{JS}->eval($js); # $@ passed on
}
sub eval_js {
    my($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Run/JS.pm	654	861	
==>l5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Perl6/Run/JS.pm	654	861	
==>l5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eva <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Perl6/Run/JS.pm	654	861	
==>l5",
                              sub { my($code)=@_;
                                    my @res = eval($code);  warn $@ if $@;
                                    return @res; });
    $self->eval(q/sub eva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	34000	34133	
==>') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	34000	34133	
==>') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVE <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	34000	34133	
==>') && $_->is_infinite;
    }
    0;
}

sub is_lazy {
    my $array = shift;
    for ( @{$array->{items}} ) {
        return 1 if UNIVE <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4989	5127	
==>sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5182	5320	
==>sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( c <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17047	17188	
==>), ")";
  }

  sub ender {
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      m <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24945	25039	
==>e::KeyedText::Message Class

A Message object is a simple container which stores data to be use <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24945	25039	
==>e::KeyedText::Message Class

A Message object is a simple container which stores data to be use <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14612	14806	
==>ine} >>.

=cut

my $Report_Re = <<'REGEX';
                 ^
                  (not\ )?               # failure?
                  ok\b
                  (?:\s+(\d+))?         # optional test nu <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21987	22107	
==>$S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = q <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18408	18528	
==>$S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = q <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	8100	8326	
==>tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	8100	8326	
==>tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	8100	8326	
==>tmp = $end; 
            if ( ref( $end ) ) {
                $end = $end->decrement; 
            }
            else {
                $end--;
            }
            $tmp; 
        },
        celems =>  $count,
        cis_ <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6704	6827	
==>5
multi sub ToInt32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Resu <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4608	4704	
==>.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", " <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4608	4704	
==>.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15101	15221	
==>arry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15101	15221	
==>arry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go t <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	15101	15221	
==>arry on,.. nothing to see here ....
        push @classes => @supers
            # however, we dont actually need to go t <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	606	708	
==>oes not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	606	708	
==>oes not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	11119	11258	
==>ok    ~= $.number;
          $ok    ~= " - $.description" if $.description;
  
          return $ok;
      }
  }
  
  class Test::Builder::T <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1591	1716	
==>ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1591	1716	
==>ok    ~= $.number;
        $ok    ~= " - $.description" if $.description;

        return $ok;
    }
}

class Test::Builder::T <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4583	4697	
==>matter for the spike target.

sub def_thing {
  my($aref,$match_hack,$name,$re)=@_;
  #$match_hack - Match creation <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	18839	19037	
==>am[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	18839	19037	
==>am[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	18839	19037	
==>am[0];
                        # if ( $self->cell->{tied} ||
                        #      $other->cell->{tied} ) 
                        
                        # if ( $other->is_infinite->unboxe <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6263	6369	
==>es'} = [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special case Does
# to <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9639	9737	
==>ay {...}
# Many, but not all, ciphers will need to override these
method _head() returns Array { re <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9639	9737	
==>ay {...}
# Many, but not all, ciphers will need to override these
method _head() returns Array { re <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	70	158	
==>file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0. <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	70	158	
==>file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	35507	35638	
==>ray->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	35507	35638	
==>ray->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @he <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	35507	35638	
==>ray->_shift_n( Inf );
        }
    }
    else {
        ( $len_tail, @tail ) = $array->_pop_n( -$offset );
        ( $len_head, @he <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1615	1721	
==>() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
ou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1615	1721	
==>() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
ou <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1615	1721	
==>() should test if $step == 1

use strict;
use Perl6::Value;

use constant Inf => Perl6::Value::Num::Inf;
ou <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	1912	2039	
==>_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	1912	2039	
==>_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $metho <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	1912	2039	
==>_class');
            $self->_discard_whitespace($i);
            my $method_name = $i->nextToken;
            my ($type, $metho <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	6244	6342	
==>thod_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	6244	6342	
==>thod_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	6244	6342	
==>thod_source =~ s/(\%[.:]\w+)\{/\:\:opaque_instance_attr\(\$\:\:SELF, \'$1\'\)\-\>\{/g;  
    # hash <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2478	2585	
==>ingify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    ret <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2478	2585	
==>ingify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    ret <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1791	1884	
==>tem * L<Pugs::Compiler::RegexPerl5> wraps Perl 5 Regexes to return a B<Match> object.

* Runti <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	12599	12745	
==>1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	12599	12745	
==>1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can us <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	12599	12745	
==>1], %opts);
                 
            unless (defined $method) {
                # if we find an AUTOLOAD anywhere in the chain, then we can us <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	12837	12970	
==>ete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	12837	12970	
==>ete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # d <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	12837	12970	
==>ete() a non-slice" unless $self->tied;

                if ( UNIVERSAL::isa( $self->tied, 'Perl6::Slice' ) ) {
                    # d <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	5548	5816	
==>g! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9025	9293	
==>g! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

metho <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3632	3740	
==>lass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = f <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	13714	13819	
==>no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	13714	13819	
==>no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(su <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	13714	13819	
==>no " . $params->{for} . " method table";
    }
}));

$::Class->add_method('has_method' => ::make_method(su <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	5088	5202	
==>_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	5088	5202	
==>_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value: <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	5088	5202	
==>_single( @list ); 
}

sub from_num_range {
    my $class = shift;
    my %param = @_;
    my $start = Perl6::Value: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3968	4083	
==>e;
    my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> } <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	15809	15905	
==>value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `siz <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15809	15905	
==>value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `siz <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	2746	2884	
==>, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	2746	2884	
==>, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my % <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	2746	2884	
==>, as_s, as_a, as_h) {
        return new PIL2JS.Match(as_b, from, to, as_s, as_a, as_h);
     })');

  my $matcher;
  if $global {
    my % <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1542	1673	
==>ve $Repodir/$file] )             and die $?;
    }

    print "\n\n\n";

    ### start aggregating their metainfo to one file
    my <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2480	2599	
==>0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3 <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2480	2599	
==>0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18359	18470	
==>k ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	49	152	
==>ds for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	49	152	
==>ds for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHU <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	49	152	
==>ds for the objects returned by PIL::Parser.

use warnings;
use strict;

# State:
use constant {
  SUBTHU <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4679	4789	
==>' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4679	4789	
==>' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	1382	1489	
==>depc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	1382	1489	
==>depc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	1382	1489	
==>depc},
  "p6prelude=s"   => \$PIL2JS::cfg{prelude},
  "testpc=s"      => \$PIL2JS::cfg{testpc},
  "metamodel <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1957	2109	
==>',
    );
    
    # XXX - BUG - collision with &name
    
    #~ __PACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => 'left',
        #~ p <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2587	2696	
==>pan1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_ <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2587	2696	
==>pan1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_ <==
3	/Users/nnunley/pugs/src/perl6/Prelude.pm	6308	6414	
==>erl5 Perl5 P5 i ignorecase s sigspace g global c continue p pos
        once bytes codes graphs langs x nth <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3564	3669	
==>/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3437	3537	
==>/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	16259	16382	
==>_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - impl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	16259	16382	
==>_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - impl <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	16259	16382	
==>_s( $xx ) ) ) };
MULTI SUB log10 ($xx) { p6_from_n( log( p6_to_s( $xx ) ) / log(10) ) };
#MULTI SUB from ($xx) {...}; - impl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PPos.pm	62	175	
==>ents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  packag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PPos.pm	62	175	
==>ents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  packag <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PPos.pm	62	175	
==>ents.
# The position is stored in $CUR_POS -- that way PIL::PStmts can update
# $?POSITION accordingly.
{
  packag <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1476	1576	
==>eludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1476	1576	
==>eludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1476	1576	
==>eludepc}) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2537	2659	
==>) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2537	2659	
==>) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_m <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2537	2659	
==>) {
		my $v = $val->{$k};
		if($k eq 'methods') {
		    foreach my $m (keys %$v) {
			#warn "$barename $m\n";
			$MM->add_m <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1027	1148	
==>cheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non- <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1027	1148	
==>cheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non- <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	483	593	
==>l::blessed($node);
	return if $node->atomic;

	return 1;
}

sub generic_reduce {
    my $self = shift;
    my $ <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5978	6117	
==>M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not break so the smoke reports look
          # good even o <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12773	12895	
==>lf->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6248	6370	
==>lf->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	10561	10700	
==>my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	10561	10700	
==>my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	10561	10700	
==>my_args
                  .$body_wrapped
                  .'}');
    if($want_macro) {
	my $args = join(",",map{
	    "[".join(",",map{join <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2017	2137	
==>lf->_caller;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32938	33035	
==>lking stack before the node
is returned.  Here is the walk() method for all the quantifier and
'mi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	547	668	
==>Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XX <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1031	1152	
==>Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XX <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	9532	9691	
==>my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	9532	9691	
==>my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->el <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	9532	9691	
==>my $class = shift;

    my @list;
    for( @_ ) {
        if ( UNIVERSAL::isa($_, 'Perl6::Value::List') ) {
            my @li; push @li, $_->shift while $_->el <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14410	14509	
==>::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14410	14509	
==>::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( a <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14410	14509	
==>::Run::Root::main::Perl5::array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	96	225	
==>ION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	96	225	
==>ION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	96	225	
==>ION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       pil_from_p6
       p5r_from_p6
       pilc_from_pil
       p5r_from_pi <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	879	982	
==>ck->last_error ), return;

    $self->mk_accessors( qw[files alternative installation] );
    
    while <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1845	1939	
==>" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This progr <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1845	1939	
==>" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This progr <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6631	6730	
==>how should I handle blocks of text which seem to still be inside a list?

Basically the item body, m <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6631	6730	
==>how should I handle blocks of text which seem to still be inside a list?

Basically the item body, m <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	180	280	
==>6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_nu <==
3	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	180	280	
==>6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_nu <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13247	13430	
==>shift;
                # p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6284	6382	
==>al' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'V <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6284	6382	
==>al' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'V <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19127	19230	
==>$xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19127	19230	
==>$xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!= <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19127	19230	
==>$xx0,$xx1) {...}; # in PrimP6
#MULTI SUB infix:<^..^> ($xx0,$xx1) {...}; # in PrimP6
MULTI SUB infix:<!= <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	593	692	
==>se it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing sour <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	593	692	
==>se it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing sour <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3388	3539	
==>$expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAIL <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3388	3539	
==>$expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAIL <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4912	5063	
==>$expected, $description?, $todo?) is export {
     if $todo {
        $Test.todo($got eq $expected, $description, $todo)
            || $Test.diag("FAIL <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2967	3115	
==>ead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @sta <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2967	3115	
==>ead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @sta <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17145	17290	
==>een              total tests actually seen
  skip_all          if the whole test was skipped, this will 
                      contain the reason. <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11646	11831	
==>/td>
            <td>
              <tmpl_if name=pugs_revision>
                r<tmpl_var name=pugs_revision>
              </tmpl_if>
            </td>
            <td class="leftsep" <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6373	6466	
==>is is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTM <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6373	6466	
==>is is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTM <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5910	6037	
==>= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5910	6037	
==>= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0 <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5910	6037	
==>= $_[0]{type}->name . ' ';
        $s .= '*' if $_[0]->slurpy;
        $s .= '?' if $_[0]->optional;
        # $s .= '+' if $_[0 <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3068	3183	
==>ffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3068	3183	
==>ffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1082	1191	
==>instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1082	1191	
==>instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatch <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos/Unoptimized.pm	1082	1191	
==>instance_id ($) { 
        my $instance = shift;
        (defined $instance && blessed($instance) eq 'Dispatch <==
3	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3421	3555	
==>{chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+ <==
3	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3421	3555	
==>{chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+ <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5955	6087	
==>ucture
            my $target = $dir;
            $target =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdi <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	3201	3326	
==>tion;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<T <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3201	3326	
==>tion;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<T <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	6848	6955	
==>ethod(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	6848	6955	
==>ethod(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	6848	6955	
==>ethod(sub {      
    my ($self, $subclass) = @_;  
    push @{::opaque_instance_attr($self => '@:subclasses <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7895	8016	
==>r you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "He <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7895	8016	
==>r you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "He <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7895	8016	
==>r you)
  class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "He <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	9862	9974	
==>h ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width() <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9862	9974	
==>h ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width() <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	614	707	
==>t
  my %results = $strap->analyze($name, \@test_output);
  my %results = $strap->analyze_fh($n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	7303	7434	
==>decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	7303	7434	
==>decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	7303	7434	
==>decrement( $value ) ) },
            'ref' => sub { $::CLASS }, 
        },
    }
};

class1 'Bit'.$class_description => {
    is => <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	4981	5082	
==>ny tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has pas <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	4981	5082	
==>ny tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has pas <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	6505	6606	
==>ny tests.

=item B<ok returns Bit ( Bit $passed, Str $description = '' )>

Records that a test has pas <==
3	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7831	8076	
==>re:<if>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thu <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	182	284	
==>h non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbi <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	182	284	
==>h non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbi <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10696	10873	
==>1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traver <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10696	10873	
==>1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traver <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1384	1494	
==>::Compiler::Rule->compile(q(<'token'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, - <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	14840	14999	
==>ed $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	14840	14999	
==>ed $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self- <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	14840	14999	
==>ed $x ? $x : 'x' } 
                            @lists ) if $any;
            return pop @{$self->{pops}}   if @{$self->{pops}};
            return pop @{$self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1169	1280	
==>iner_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1169	1280	
==>iner_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_r <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1169	1280	
==>iner_type), but this is clearly not what we want (remember,
    // we\'re implementing *lazy*).
    var cached_r <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7694	7920	
==>$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            cap <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7694	7920	
==>$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            cap <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26140	26229	
==>E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_list(C1,' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/Match.pm	696	801	
==>.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/Match.pm	696	801	
==>.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/Match.pm	696	801	
==>.unboxed' => $::SELF->val_string() ) },
            'bit' =>  sub { Bit->new( '$.unboxed' => $::SELF->val_ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5186	5315	
==>ack 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> a <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5186	5315	
==>ack 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	7383	7512	
==>ack 

This role contains two methods:

=over 4

=item B<status returns Hash>

This returns a hash containing two keys, C<passed> a <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	3358	3474	
==>tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3358	3474	
==>tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	838	947	
==>e(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code *&test  ) returns L <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3640	3748	
==>is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    r <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3640	3748	
==>is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    r <==
3	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7597	7697	
==>my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and try again <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15628	15724	
==>ibute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

A <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15628	15724	
==>ibute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

A <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1451	1580	
==>c'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o <==
3	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17593	17709	
==>st should have max == seen == ok.


There is one final item, the details.

  details           an array ref reporting <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1881	1985	
==>_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($modul <==
3	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1881	1985	
==>_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($modul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38121	38286	
==>re( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38121	38286	
==>re( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = P <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38121	38286	
==>re( $item );
        }
        else {
            $array->splice( $pos, 1, $item );
        }
        return $array;
    }
    # store after the end 
    my $fill = P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	3719	3808	
==>$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	3719	3808	
==>$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovi <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	3719	3808	
==>$$m)?\$$m:p6_lookup('$mn'$dontdie)$vivify)}";
}
sub p6_var {
    my($name,$defined1_autovi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11616	11762	
==>tr' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11616	11762	
==>tr' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11616	11762	
==>tr' ) {
                    return Str->new( '$.unboxed' => '\\' . Perl6::Value::stringify($tmp) ) 
                }
                return Bit->n <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1277	1378	
==>hod <[[Get]]> ($O: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if d <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14904	14998	
==>, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $pa <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14904	14998	
==>, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $pa <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16447	16559	
==>ace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param string grammar      :optional
    .param int ha <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8202	8304	
==>s reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8202	8304	
==>s reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10830	10939	
==>ontainer::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10830	10939	
==>ontainer::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10830	10939	
==>ontainer::Array=HASH/;
	push(@incdirs,$dir);
    }
    if($name eq 'Test.pm'
       && (defined $ENV{HARNESS_P <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	16041	16147	
==>attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	16041	16147	
==>attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($la <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	16041	16147	
==>attribute' => ::make_method(sub {
    my ($self, $label, %params) = @_;
    return $self->get_attribute($la <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	784	942	
==>on.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	784	942	
==>on.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $po <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	784	942	
==>on.last) {
          return undefined;
        } else {
          throw err;
        }
      }
      return undefined;
    }
  )')($pre, {?$cond()}, $body, $po <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6017	6125	
==>ing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recur <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6017	6125	
==>ing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recur <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	4247	4339	
==><test_test( Str $description? )>

Compares the receivied and expected lines from the previous <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	4247	4339	
==><test_test( Str $description? )>

Compares the receivied and expected lines from the previous <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	4327	4419	
==><test_test( Str $description? )>

Compares the receivied and expected lines from the previous <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Bool.pm	385	509	
==>ive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Bool.pm	385	509	
==>ive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

s <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Bool.pm	385	509	
==>ive { ?0 }

sub True is primitive { ?1 }
sub False is primitive { ?0 }

sub prefix:<!>($a) is primitive { $a ?? ?0 !! ?1 }

s <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7119	7220	
==>e the parser work on a specific regex, you can do use any of the
following methods:

=over 4

=item $p <==
3	/Users/nnunley/pugs/blib6/lib/Date.pm	4482	4581	
==>ods are available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Retu <==
3	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4482	4581	
==>ods are available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	4053	4154	
==>$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return conti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	4053	4154	
==>$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return conti <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	4053	4154	
==>$lvalue_fix[1]) };
};
EOF
}

sub cur_retcc {
  die "Internal error: There doesn't exist a return conti <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4945	5121	
==>ve different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$ver <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4945	5121	
==>ve different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$ver <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	184	295	
==>new {
    my ($class, $klass) = @_;
    (blessed($klass) && $klass->isa('opaque'))
        || confess "C3 only a <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	1046	1148	
==>st::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output objec <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	1046	1148	
==>st::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output objec <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	1126	1228	
==>st::Builder.new( output => $tb_output );
$tb_test.plan( 'no_plan' );

# remove header from output objec <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1220	1316	
==>re caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is large <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1220	1316	
==>re caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is large <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22786	22873	
==>pos(X),C), !.
charset_member(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), ! <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL2JS.pm	1484	1588	
==>) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL2JS.pm	1484	1588	
==>) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL2JS.pm	1484	1588	
==>) {
    die "* Error: Precompiled Prelude (\"$cfg{preludepc}\") does not exist.\n";
  #} elsif(-e $cfg{pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	6778	6893	
==>/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = gre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	6778	6893	
==>/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = gre <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	6778	6893	
==>/\A\s+//; s/\s+\Z//; $_} @$argl;
        my @args_nonslurpy = grep /^[^\*]/, @args;
        my @args_slurpy    = gre <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Proxy.pm	185	290	
==>stant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Proxy.pm	185	290	
==>stant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Proxy.pm	185	290	
==>stant(function (args) {
    var fetch = args[1].FETCH(), store = args[2].FETCH(), cc = args.pop();

    va <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17804	17905	
==>XX What exactly _is_ intuit, and do we care?


=cut


=pod

=head1 Perl5's struct regexp and its abuse <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	981	1073	
==>er API has functional, procedural, and object-oriented interfaces.  The 
functional and objec <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	981	1073	
==>er API has functional, procedural, and object-oriented interfaces.  The 
functional and objec <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	7904	8022	
==>class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello fr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	7904	8022	
==>class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello fr <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	7904	8022	
==>class 'Foo-0.0.1-cpan:STEVAN' => {
      is => [ $::Object ],
      class_methods => {
          foo => sub { "Hello fr <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12014	12124	
==>t traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12014	12124	
==>t traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time <==
3	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2473	2567	
==>etrical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int multi Num::truncation (Num $x) { <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	2186	2323	
==>_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_m <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	2186	2323	
==>_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	2266	2403	
==>_output.output();
    my $received_diag = $tb_output.diagnostics();

    my $out_matches   = $expect_out  eq $received_out;
    my $diag_m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6887	7020	
==>rt == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6887	7020	
==>rt == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6887	7020	
==>rt == -&Inf || $end == Inf },
        cis_contiguous => sub { $step == -1 || $step ==  1 },
    );
}

sub from_range {
    my $class = <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	7396	7487	
==>ch.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	7396	7487	
==>ch.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is pr <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	7396	7487	
==>ch.subpos[*@idxs];
}

sub PIL2JS::Internals::Hacks::init_match_postcircumfix_method () is pr <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2113	2225	
==>nstant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2113	2225	
==>nstant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(A <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2113	2225	
==>nstant(a == b));
    } else {
      cc(new PIL2JS.Box.Constant(false));
    }
  }
)')($a, $b) }

sub prefix:<*>(A <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	620	718	
==>$dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (St <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	620	718	
==>$dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (St <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3888	3993	
==>.. 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Tes <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3888	3993	
==>.. 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Tes <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	5412	5517	
==>.. 2 plus 2 should be 5', :todo<bug>);

=head1 DESCRIPTION

This is a Perl 6 port of the Perl 5 module Tes <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2663	2776	
==>s: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2803	2916	
==>s: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags- <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3238	3331	
==>ect(W,X), Z), !.
p6_conjunctions(W, W) --> {true}.


p5_concatenation(Z)    --> p5_quantified( <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7051	7234	
==>) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we ha <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7515	7698	
==>) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we ha <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6488	6623	
==>on  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List)\
\\n   Junction  pre     none    safe   (List)\
\\n   I <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	1119	1229	
==>* Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	1119	1229	
==>* Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method c <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	1119	1229	
==>* Removed pair() - this module does not have access to the Pair constructor
#
# 2005-08-10
# * Removed method c <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	5197	5351	
==>ub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	5197	5351	
==>ub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $t <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	5197	5351	
==>ub { 1 } ) : 
            die 'Sigil required in the parameter name ('.$name.')';
        bless {
            name =>     $name,
            type =>     $t <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10783	10900	
==>in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10783	10900	
==>in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Fla <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	6337	6436	
==>te->param("exe", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $temp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5440	5559	
==>my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_char',
      type => 'anyof_ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3538	3652	
==>$set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3538	3652	
==>$set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3847	3946	
==>ss_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3847	3946	
==>ss_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3847	3946	
==>ss_description = '-0.0.1-cpan:FGLOCK';

class1 'Num'.$class_description => {
    is => [ $::Object ] <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/P5Macro.pm	543	641	
==>ar __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/P5Macro.pm	543	641	
==>ar __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/P5Macro.pm	543	641	
==>ar __args = [
@{[ join ",\n", map { PIL::add_indent 1, $_ } @args ]}
];
if($jsname.FETCH().is_still <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5002	5184	
==>$last - length( $match );
        my $t;
        if ( exists $ast->{stmt} ) {

            if ( $ast->{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $as <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8539	8651	
==>}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtrack <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8241	8348	
==>}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrack <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	7158	7297	
==>aram{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	7158	7297	
==>aram{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	7158	7297	
==>aram{@args_nonslurpy},
                      map{@{p6_to_a($_)}} @param{@args_slurpy});
            $f->(@a);
        };
        return Sub- <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8799	8915	
==>print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' = <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8795	8911	
==>print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' = <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22400	22498	
==>")
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pend <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Smartmatch.pm	27	129	
==>t, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Smartmatch.pm	27	129	
==>t, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.is <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Smartmatch.pm	27	129	
==>t, Item $right) is primitive {
  if $right.isa(::Rul) {
    $right.matcher.($left);
  } elsif $right.is <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11215	11428	
==>rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$ru <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7497	7710	
==>rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$ru <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8331	8544	
==>rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \$match = \$ru <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	5315	5435	
==>ns;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	5315	5435	
==>ns;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        s <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	5315	5435	
==>ns;
    }
    elsif ($tokens[0] eq $self->env->get('current_class')->name) {
        $method_type = 'instance';
        s <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	1803	1919	
==>PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	1803	1919	
==>PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{p <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	1803	1919	
==>PVar")   and
      not ref $self->{pInv}->{pLV}->{pVarName} and
      1
    ) {
      $obj = $self->{pInv}->{pLV}->{p <==
3	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1656	1823	
==>:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = <==
3	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1656	1823	
==>:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6539	6640	
==>ich contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test: <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6539	6640	
==>ich contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test: <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8736	8837	
==>ich contains the boolean representing if the test truly
did pass.

=back

=item B<Test::Builder::Test: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel.pm	5001	5108	
==>singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel.pm	5001	5108	
==>singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel.pm	5001	5108	
==>singleton_method($method_name => ::make_method(
                        $body->{class_methods}->{$method_nam <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	653	779	
==>,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	669	795	
==>,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self- <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	645	771	
==>,} }' );
    $self->SUPER::add_rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self- <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL.pm	7818	7924	
==>subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL.pm	7818	7924	
==>subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL.pm	7818	7924	
==>subroutine types:
{ package PIL::SubType }
{
  foreach my $type (qw<
    SubRoutine SubPrim SubBlock SubPoi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	9853	10053	
==>urn $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	9853	10053	
==>urn $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	9853	10053	
==>urn $ret;
            },
            arity => sub {
                scalar @{ $::SELF->params }
            }, 
            signature_str => sub {
                my $self = shift;
                my @ <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1542	1704	
==>r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLAS <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1542	1704	
==>r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLAS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7256	7423	
==>emented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7256	7423	
==>emented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fet <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7256	7423	
==>emented";
                    my $a = Array->new();
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fet <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26147	26258	
==>r context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, t <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3561	3666	
==>ock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you h <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3434	3534	
==>ock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you h <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22126	22224	
==>.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <CaseClauses>? <'}' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	3012	3124	
==>m{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	3012	3124	
==>m{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celem <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	3012	3124	
==>m{cstringify}; 

    $param{is_lazy}        = 1 unless defined $param{is_lazy};
    unless ( defined $param{celem <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	770	885	
==>n($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	770	885	
==>n($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package P <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	770	885	
==>n($1,$2,$3)/ge;
    #print; #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

package P <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4021	4169	
==>q(
                <?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs::Compi <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6452	6557	
==>.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ------ <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6452	6557	
==>.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ------ <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1049	1162	
==>P::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::F <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1016	1129	
==>P::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::F <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	6682	6810	
==>start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	6682	6810	
==>start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	6682	6810	
==>start == -&Inf || $end == Inf;
            return $end - $start + 1 unless defined $step;
            return CORE::int(( $end - $ <==
3	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9517	9680	
==>mells like a Windows executable called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our gh <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	456	556	
==>int_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelu <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	456	556	
==>int_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelu <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3035	3148	
==>acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accen <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3035	3148	
==>acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accen <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	19837	19939	
==>pp_id_to_str = comb(
	fun => $app_to_str,
	param => $id,
);

# we can't get app_to_str to apply somethi <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	4576	4826	
==>block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_hea <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1030	1135	
==>erl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <s <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1030	1135	
==>erl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <s <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3201	3346	
==>y @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3201	3346	
==>y @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	19995	20089	
==>_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	19995	20089	
==>_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MU <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	19995	20089	
==>_s($xx1)) };
MULTI SUB infix:<gt> ($xx0,$xx1) { p6_from_b(p6_to_s($xx0) gt p6_to_s($xx1)) };
MU <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2595	2719	
==>rave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2595	2719	
==>rave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23233	23326	
==>er necessary
operators (over said accessors), which can be employed when objects of
multiple d <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	22014	22104	
==>_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	22014	22104	
==>_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	22014	22104	
==>_to_n($xx0)**p6_to_n($xx1))};
MULTI SUB sprintf ($xx0,*@xxa) {
    p6_from_s(sprintf(p6_to_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	10000	10153	
==>=>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	10000	10153	
==>=>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	10000	10153	
==>=>    sub { pop    @list },
        celems =>  sub { scalar @list },
        is_lazy => 0,
     );
}

sub from_coro {
    my $class = shift;
    my $start <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15966	16074	
==>xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15966	16074	
==>xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15966	16074	
==>xx) {...};
MULTI SUB max ($xx) {...};
#MULTI SUB uniq ($xx) {...};
MULTI SUB chr ($xx) { p6_from_s( chr( p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	7278	7386	
==>rn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	7278	7386	
==>rn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_ <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	7278	7386	
==>rn $tmp;
    #my $old = p6_new(Num => p6_to_n($xx)); # XXX - use clone() - needs MM2
    #p6_set($xx,p6_from_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	6221	6328	
==>} else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	6221	6328	
==>} else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH() <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	6221	6328	
==>} else {
    JS::inline('new PIL2JS.Box.Constant(function (args) {
      var arr = [].concat(args[1].FETCH() <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5432	5548	
==>b ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multide <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5432	5548	
==>b ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multide <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	518	629	
==>all characters anyway,
#     so no great loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3799	3907	
==>_my($lv);
    my $named_arg = $args->{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    if ! <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5789	5881	
==>->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(aln <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5868	5960	
==>->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(aln <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1971	2166	
==>( $m ) {
                    #print "Match: ",Dumper $m->();
                    if ( grep { $_ eq 'NUM' } @expect ) {
                        # expects a term
                        $m = Pugs::R <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	692	798	
==>lf;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compil <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	692	798	
==>lf;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compil <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	2312	2450	
==>->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	2312	2450	
==>->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	2312	2450	
==>->{$key};
	if($key eq 'is') {
	    my $sc = [map{ref($_)?$_:do{no strict;my $n=$_."::MM";$$n}}@$val];
	    #print STDERR "$barename  @$sc\n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PVal.pm	2017	2126	
==>IL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PVal.pm	2017	2126	
==>IL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PVal.pm	2017	2126	
==>IL::PVal>;

  sub as_js {
    return sprintf "new PIL2JS.Box.Constant(%s)",
      $_[0]->[0] ? "true" : "false <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25938	26087	
==>>new('subclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14240	14375	
==>trol';
    
            $res .= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expande <==
3	/Users/nnunley/pugs/util/catalog_tests.pl	14906	15083	
==>g)) {

            my $beg_n = $beg->pindex;
            my $end   = $beg->right;
            
            if (!defined $end) {
              $beg->tag('div');
              $beg <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1221	1331	
==>b catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, ma <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1221	1331	
==>b catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, ma <==
3	/Users/nnunley/pugs/util/svnlog2graph.pl	1976	2109	
==>5, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $ <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6454	6560	
==>m (@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: - <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	333	479	
==>)

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FI <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28131	28227	
==>able names and values of this object as
a hash ref.

=item C<as_debug_string()>

This method retu <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28131	28227	
==>able names and values of this object as
a hash ref.

=item C<as_debug_string()>

This method retu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Psyche.pm	8461	8623	
==>ll else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Psyche.pm	8461	8623	
==>ll else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp i <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Psyche.pm	8461	8623	
==>ll else fails, maybe it is 
                    # a sub, so we just call next METHOD
                    ::next_METHOD();
    }   
    # XXX -
    # this reg-exp i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value/List.pm	4352	4453	
==>nfinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value/List.pm	4352	4453	
==>nfinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_la <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value/List.pm	4352	4453	
==>nfinite}( @_ ) }
sub is_contiguous { $_[0]->{cis_contiguous}( @_ ) }
sub is_lazy       { $_[0]->{is_la <==
3	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6732	6877	
==>z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6789	6934	
==>z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5801	5898	
==>return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]] <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5801	5898	
==>return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]] <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	6391	6488	
==>return;
}

package Data::Bind::Array;
use base 'Tie::Array';

sub FETCH {
  $_[0]->{real}->[$_[1]] <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8298	8399	
==>$argl)" if $fun_name;
	return "p6_applyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NOD <==
3	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6090	6185	
==>Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fgl <==
3	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6090	6185	
==>Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fgl <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	11919	12063	
==>";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	11919	12063	
==>";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_descriptio <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	11919	12063	
==>";
            },
        },
    }
};

role Lazy => {
    methods => {}
};

role Eager => {
    methods => {}
};

class1 'List'.$class_descriptio <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Pneuma.pm	6450	6535	
==>tribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Pneuma.pm	6450	6535	
==>tribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:a <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Pneuma.pm	6450	6535	
==>tribute('$:version'   => ::make_attribute('$:version'));
$::Module->add_attribute('$:a <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17974	18070	
==>s nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<n <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17974	18070	
==>s nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<n <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12132	12229	
==>Y_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'L <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12132	12229	
==>Y_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'L <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Rules.pm	1573	1695	
==>et supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Rules.pm	1573	1695	
==>et supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens requi <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Rules.pm	1573	1695	
==>et supported by PGE/pugs.";
      }
    }
    elsif (($k.chars > 1) && (substr($k,-1,1) eq "x") # XXX - excess parens requi <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2300	2410	
==>.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2300	2410	
==>.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	13839	13934	
==>bs (applications) pass their env to eval their children
comb: env($.fun) = { env($$) }
comb: env <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	479	648	
==>}
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	479	648	
==>}
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } e <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	479	648	
==>}
              if(!redo) break;
            }
          } catch(err) {
            if(err instanceof PIL2JS.ControlException.next) {
              // Ok;
            } e <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10872	10982	
==>om the available list
    $self->remove_available( package => $inst_pkg );
    
    ### move this all to Instal <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16269	16366	
==>al documentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a n <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16269	16366	
==>al documentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a n <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Class/Rebless.pm	2498	2610	
==>urn $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Class/Rebless.pm	2498	2610	
==>urn $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($pro <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Class/Rebless.pm	2498	2610	
==>urn $_[1] eq $prune;
	}
}

sub recurse {
	my($proto, $obj, $namespace, $opts, $level) = @_;
	my $class = ref($pro <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21994	22096	
==>ing real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV * <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16896	16997	
==>ing real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV * <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	3512	3610	
==>shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self;
}

package type::operator::b <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2864	2961	
==>ount(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2864	2961	
==>ount(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7521	7648	
==>dex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name} <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7521	7648	
==>dex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17980	18104	
==>nboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17980	18104	
==>nboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17980	18104	
==>nboxed->push( @result );
                    #warn "-- @result "; # . Perl6::Value::stringify($result->shift). " ... ". Perl6 <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	13153	13269	
==>p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	13153	13269	
==>p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	13153	13269	
==>p6_loop_macro {
    my($body)=@_;
    $EvalX::PStmt::protection_unacceptable = 1;
    'my $__flag;
     try { '.$body <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/P5Runtime/PrimP6.pm	48	146	
==>::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives whic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib6/lib/P5Runtime/PrimP6.pm	48	146	
==>::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives whic <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib6/P5Runtime/PrimP6.pm	48	146	
==>::Run::Root::P5Runtime::PrimP6-0.0.1;
use v6;

=kwid

This file contains p5 runtime primitives whic <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15231	15333	
==>class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obj <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9429	9531	
==>class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obj <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1509	1609	
==>ss ( @_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_config, skipping\n";
		r <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1991	2101	
==>Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::App;
    use base <==
3	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	866	959	
==>ly-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn't distingui <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	866	959	
==>ly-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn't distingui <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS.pm	2457	2584	
==>ng instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS.pm	2457	2584	
==>ng instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS.pm	2457	2584	
==>ng instanceof PIL2JS.Pair) {
      cc(new PIL2JS.Box.Constant(new PIL2JS.NamedPair(
        thing.key.toNative(),
        thing. <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	15540	15652	
==>turn '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	15540	15652	
==>turn '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	15540	15652	
==>turn '-Inf' if $v == -&Perl6::Value::Num::Inf;
    return 'NaN'  if $v =~ m/n/i;
    return "" . $v 
}
sub to_bit <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	15794	16124	
==>tart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	15794	16124	
==>tart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$. <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	15794	16124	
==>tart => sub { 
                            return Pair->new( 
                                '$.key' =>   $shifted++, 
                                '$.value' => $array->shift )
                        },
                        cend =>   sub { 
                            return Pair->new( 
                                '$. <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4752	4864	
==>y $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4588	4697	
==>y $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	21123	21219	
==>err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	21123	21219	
==>err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	21123	21219	
==>err> ($xx0,$xx1) {...};
MULTI SUB infix:<nor> ($xx0,$xx1) {...};
#MULTI SUB grep ($xx0,$xx1) {... <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	9524	9646	
==>elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	9524	9646	
==>elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	9524	9646	
==>elems = $ary->elems->unboxed - $start;
            #warn "array has $ary_elems elements, starts in $start, max = $max_ary_e <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	706	822	
==>ould not backtrack or whatever



Continuations are used for backtracking.



A "ruleop" function gets some arguments <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10574	10690	
==>ould not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" function gets some arguments <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	678	790	
==>ould not backtrack or whatever

Continuations are used for backtracking.

A "ruleop" function gets some arguments <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2005	2157	
==>f( -e $postrm && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if ne <==
3	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2243	2336	
==>iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utilit <==
3	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2243	2336	
==>iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utilit <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	14474	14673	
==>effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17951	18150	
==>effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_ <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17367	17566	
==>effect
        }
        else {
            SWITCH:
            {
                for @sources -> $r2 {
                    if (any( $r2!heading ) === any( $r1.heading )) {
                        @r_ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	1283	1383	
==>ification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	1283	1383	
==>ification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many e <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	1283	1383	
==>ification of unboxed values
# * New parameter 'max' in perl() and str() methods - controls how many e <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1926	2018	
==>e sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Module') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1926	2018	
==>e sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Module') <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1926	2018	
==>e sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Module') <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	38484	38611	
==>verse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	38484	38611	
==>verse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERS <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	38484	38611	
==>verse @{$array->{items}};
    @rev = map {
            UNIVERSAL::isa( $_, 'ARRAY' ) ? [ reverse( @$_ ) ] : 
            UNIVERS <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	13293	13518	
==>>name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	13293	13518	
==>>name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @ <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	13293	13518	
==>>name } = [ @params[$i..$#params] ];
                        }
                        else {
                            warn "Don't know how to handle slurpy ".$spec->name;
                        }
                        @ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6488	6638	
==>)))
|;

=pod

($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((p <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2203	2324	
==>equest;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER <==
3	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2203	2324	
==>equest;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	206	316	
==>:Package::Installable;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           q <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	10254	10360	
==>stance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	10254	10360	
==>stance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_m <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	10254	10360	
==>stance_id($next) eq ::opaque_instance_id($class);
    }
    return 0; 
});

::Class.meta.add_method('_get_m <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2009	2152	
==>e
    
    #~ __PACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => 'left',
        #~ precedence => 'equal',
        #~ other => ' <==
3	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	304	406	
==>setta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initializatio <==
3	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	304	406	
==>setta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initializatio <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Code.pm	1673	1776	
==>= function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Code.pm	1673	1776	
==>= function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2 <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Code.pm	1673	1776	
==>= function (n) { PIL2JS.die("Can\'t rebind lazy {...} value!") };
    ref.STORE    = function (n) { PIL2 <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13082	13203	
==>^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sp <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6557	6678	
==>^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sp <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6422	6521	
==>> sub {
    return $_[1] eq 'Role' if $_[0] == $Class;
    ::opaque_instance_attrs($_[0])->{'%:metho <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5835	5977	
==>iteral:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::Exp::Literal")
    litstart = pos
    li <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	917	1019	
==>d::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require L <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	884	986	
==>d::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require L <==
3	/Users/nnunley/pugs/blib6/lib/Relation.pm	7855	8037	
==>d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11332	11514	
==>d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Rel <==
3	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10496	10678	
==>d_union              ::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Rel <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	7295	7384	
==>.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	7295	7384	
==>.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @val <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	7295	7384	
==>.add_method('_make_dispatcher_iterator' => ::make_private_method(sub {
    my (undef, @val <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	5272	5388	
==>die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	5272	5388	
==>die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_ <==
3	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	5862	5978	
==>die "not yet";
}

sub bind {
    my ($self, $var, $lv, $pad) = @_;
    $lv++;

    my $ref = $pad->{$self->container_ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7661	7800	
==>s $n->{self}{op1} ) {
            # %var<item>.++;
            #warn "method: ", Dumper( $n );
            return " " . _emit( $n->{metho <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1124	1232	
==>pture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[ <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1135	1243	
==>pture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[ <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6008	6122	
==>('%:private_methods') => hash->new(),
            attribute->new('%:attributes')      => hash->new(),
            a <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	7354	7465	
==>ad')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRI <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7354	7465	
==>ad')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRI <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Array.pm	12737	12846	
==>d(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Array.pm	12737	12846	
==>d(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_pos <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Array.pm	12737	12846	
==>d(
      _3amain_3a_3aItem,
      "postcircumfix:[]",
      _26PIL2JS_3a_3aInternals_3a_3aHacks_3a_3aarray_pos <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/ControlFlow.pm	961	1065	
==>ent_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/ControlFlow.pm	961	1065	
==>ent_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $bo <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/ControlFlow.pm	961	1065	
==>ent_control:<while>(Code $cond, Code $body) is primitive {
  my $ret;
  loop (1; $ret = $cond(); 1) { $bo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	1430	1537	
==>t their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	1430	1537	
==>t their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	1430	1537	
==>t their keys to Strs, so {undef()=>undef} would have 
#        the same effect as {""=>undef}. But if a hash <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6270	6398	
==>k => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is ex <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6270	6398	
==>k => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is ex <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52472	52566	
==>(symbol->new('@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$:: <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	2922	3029	
==>ainst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2922	3029	
==>ainst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	13175	13302	
==>rams);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	13175	13302	
==>rams);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($se <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	13175	13302	
==>rams);                    
    return $table->{$label};
});


::Class.meta.add_method('has_attribute' => method () {
    my ($se <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	14436	14535	
==>array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	14436	14535	
==>array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	14436	14535	
==>array_INC = Array->new();
	my $a = Perl6::Container::Array::Native->new( arrayref => \@INC );
	$PIL: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2246	2362	
==>the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2246	2362	
==>the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1, <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2246	2362	
==>the standard Perl 5 interface
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1, <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	3817	3976	
==>r writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	3817	3976	
==>r writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	3817	3976	
==>r writing: $!\n";
  print $fh $js                     or die "Couldn't write to \"$cfg{preludepc}\": $!\n";
  close $fh                         or die "Couldn't <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Prelude/JS.pm	822	934	
==>nk "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/Prelude/JS.pm	822	934	
==>nk "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next i <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/Prelude/JS.pm	822	934	
==>nk "next; $other_code" -- $other_code has *no* possibility of being
      # called. (This does not affect "next i <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	8352	8460	
==>n issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree an <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8352	8460	
==>n issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree an <==
3	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	242	331	
==>PS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_In <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	33304	33518	
==>last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	33304	33518	
==>last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	33304	33518	
==>last if $ret_length >= $length;
            }
            else {
                pop @tmp;
            }
            next;
        }
        unshift @ret, pop @tmp;
        $ret_length++;
    };
    @{$array->{items <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10314	10440	
==>ily) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless <==
3	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	180	292	
==>:(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!memb <==
3	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	180	292	
==>:(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!memb <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	1505	1601	
==>($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descenda <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	1505	1601	
==>($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descenda <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	1505	1601	
==>($self, %params) = @_;
    my $dispatcher = ::opaque_instance_class($self)->dispatcher(':descenda <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	40660	40776	
==>yref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	40660	40776	
==>yref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $thi <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	40660	40776	
==>yref}};
}
sub delete {
    my ( $this, $key ) = @_;
    my $s = Perl6::Value::numify( $key );
    my $r = delete $thi <==
3	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9392	9514	
==>g decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.m <==
3	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9392	9514	
==>g decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.m <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	911	1012	
==>{env}->set('$?PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warning <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	4337	4445	
==>ue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the fact <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	4337	4445	
==>ue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the fact <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	6534	6642	
==>ue for the passed parameter.

=item C<?$todo = 0>

This parameter defaults to false.  If it is true, the fact <==
3	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	689	851	
==>ext.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match <==
3	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	689	851	
==>ext.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7730	7844	
==>e::Annotation->new(
				type => [ ( map { $_->accepts_type } @params ) => $last->type, ],
				struct_equiv => $rthu <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	3423	3535	
==>) : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	3423	3535	
==>) : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pF <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	3423	3535	
==>) : undef;
    my @args = map{$_->expand()} @{$self->{'pArgs'}};

    my $f_name = do{my $n=$self;for my $k qw(pF <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Keyed.pm	1825	1932	
==>of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Keyed.pm	1825	1932	
==>of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Keyed.pm	1825	1932	
==>of type {$self.ref}!";
  }
}

method keys (Hash|Pair|Array $self:) {
  if $self.isa("Hash") {
    JS::inline <==
3	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2008	2128	
==>ct_equiv => $val,
			),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	861	964	
==>e "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stas <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	861	964	
==>e "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stas <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Scalar.pm	2158	2279	
==>d only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Scalar.pm	2158	2279	
==>d only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Scalar.pm	2158	2279	
==>d only cell' if $_[0]{ro} && defined $_[0]{v};
    # return $_[0]{tied}->store($_[1]) if $_[0]{tied};
    if ( $_[0]{tied} <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/EvalX.pm	7724	7831	
==>ap {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/EvalX.pm	7724	7831	
==>ap {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @c <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/EvalX.pm	7724	7831	
==>ap {($_,1)} qw();
sub define_classes_for {
    my($pilc)=@_;
    my @classes = get_classes($pilc);
    my @c <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	683	825	
==>turn $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method par <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	683	825	
==>turn $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method par <==
3	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	515	607	
==>non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: @re <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	515	607	
==>non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: @re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	4866	4975	
==>nd_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_ab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	4866	4975	
==>nd_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_ab <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	4866	4975	
==>nd_rest($n);
    return "${mn}::MM" if $sigil eq ':';
    my $space = $space_from_sigil{$sigil};
    my $is_ab <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5622	5725	
==>ct(anyof_class => $S->force_object(vert => 1)) if $cc;
    return $S->object(vert => 1);
  });

  $self- <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	106	206	
==>ion
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
mul <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	106	206	
==>ion
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
mul <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	15266	15367	
==>om_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	15266	15367	
==>om_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	15266	15367	
==>om_s(join($j,@b));
};
MULTI SUB async ($xx) {...};
MULTI SUB listen ($xx) {...};
MULTI SUB flush ($xx) <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	11955	12063	
==>_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( s <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11955	12063	
==>_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( s <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20897	20992	
==>) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_boundary_not,F0,F0,B0,B0,E0,E0) : <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2153	2286	
==>The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2358	2491	
==>The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2483	2616	
==>The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	14566	14764	
==>ment to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	14566	14764	
==>ment to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            } <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	14566	14764	
==>ment to zip() must be an Array"; 
                    } @_; 
                my $res = Array->new;
                $res->push( $array->zip( @array_list ) );
                return $res;
            } <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7455	7550	
==>eceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fi <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7455	7550	
==>eceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fi <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	920	1070	
==>re_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab concat(\n" . <==
3	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	779	895	
==>running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($co <==
3	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	779	895	
==>running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($co <==
3	/Users/nnunley/pugs/util/PugsConfig.pm	2065	2197	
==>erl6/i
#      or $path =~ m/\bman\d\b/
      or die <<".";
Can't generate the correct Perl6 equivalent for:

    $path

field name: $ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6766	6884	
==>ax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statemen <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6766	6884	
==>ax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statemen <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3549	3653	
==>erl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib ' <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3766	3870	
==>erl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib ' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PApp.pm	3996	4130	
==>define all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PApp.pm	3996	4130	
==>define all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PApp.pm	3996	4130	
==>define all params to not suck up all memory.
    my $cc =
      $self->{CC}->as_js(
        (grep { /^ret\d+$/ } @jsparams)
          ? <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8522	8634	
==>[1] capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_ <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	10047	10151	
==>s $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $i <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10047	10151	
==>s $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $i <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	1525	1639	
==>"PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	1525	1639	
==>"PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    loc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	1525	1639	
==>"PIL2JS_callchain.push(" . PIL::name_mangle($_[0]->name) . ");\n";
  }

  sub as_js {
    my $self = shift;
    loc <==
3	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1282	1411	
==>nt "\\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname <==
3	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4543	4666	
==>or (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dir <==
3	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4543	4666	
==>or (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dir <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2154	2255	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:print:]/ )
  {
    $matchObj->positio <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	5924	6024	
==>t.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	5924	6024	
==>t.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::T <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	8121	8221	
==>t.

=back

=back

=head1 OTHER CLASSES

=over 4

These first two classes perform the Test::Builder::T <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	597	713	
==>\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        d <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	597	713	
==>\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        d <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3071	3174	
==>.. got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids');

my $old_p_id = $p <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15051	15183	
==>eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_imp <==
3	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	889	990	
==>equire Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_di <==
3	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	856	957	
==>equire Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_di <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2937	3048	
==>ld ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2937	3048	
==>ld ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $ <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20457	20560	
==>_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_var_CODE {
    my <==
3	/Users/nnunley/pugs/blib6/lib/CGI.pm	607	705	
==>xport { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	607	705	
==>xport { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some <==
3	/Users/nnunley/pugs/util/src_to_blib.pl	410	504	
==>perl5/*>;
    copy_all("$_/blib6/", 'blib6/pugs/perl6') for <perl5/*>;
    copy_all("$_/blibjs/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3725	3882	
==>my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or n <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3865	4022	
==>my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or n <==
3	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5431	5566	
==>ALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000 <==
3	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	428	566	
==>nform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) buc <==
3	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	428	566	
==>nform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) buc <==
3	/Users/nnunley/pugs/util/gen_prelude.pl	3934	4039	
==>n%*INC<${module}.pm> = '<precompiled>';\n\n";
        # (the need for a semicolon in "};" is probably a bu <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Operators.pm	3735	3857	
==>.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Operators.pm	3735	3857	
==>.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use J <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Operators.pm	3735	3857	
==>.:
#     sub infix:<~> ($a, $b) { JS::inline(...) }
#     my $foo = $bar ~ $baz; # won't work!
# Ok, so why don't you use J <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Ref.pm	1005	1122	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Ref.pm	1005	1122	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanc <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Ref.pm	1005	1122	
==>nline('new PIL2JS.Box.Constant(function (args) {
    var ref = args[1].FETCH(), cc = args.pop();

    if(!(ref instanc <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	2273	2387	
==>ce
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) wor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	2273	2387	
==>ce
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) wor <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	2273	2387	
==>ce
#        test push, scalar, etc - with @INC

# TODO - PIL-Run - (1,undef,2) returns (1,2) - but (1,\undef,2) wor <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	9714	9854	
==>ew( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	9714	9854	
==>ew( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	9714	9854	
==>ew( '$.unboxed' => "($key => $value)" ) 
              },
            'unboxed' => sub { ( _('$.key'), _('$.value') ) },
            'ref' => <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/PStmt.pm	194	306	
==>"PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/PStmt.pm	194	306	
==>"PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/PStmt.pm	194	306	
==>"PIL::PStmt";
}

sub as_js {
  my $self = shift;

  ($self->{pExpr}{CC} and die) or $self->{pExpr}{CC} = $self->{ <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40944	41037	
==>improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<j <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40944	41037	
==>improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<j <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14991	15132	
==>$key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" }, <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14991	15132	
==>$key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" }, <==
3	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11379	11491	
==>"::" goto subrule_name_2
    pos += 2
    goto subrule_name_1
  subrule_name_2:
    $I1 = pos - $I0
    subname = <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Value.pm	3942	4140	
==>ect ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Value.pm	3942	4140	
==>ect ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( ' <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Value.pm	3942	4140	
==>ect ],
    class => {
        attrs => [],
        methods => {
            # TODO - pi ?
            'Inf' => sub {
                my ($class) = @_;           
                return $class->new( ' <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1848	1961	
==>s a registered alternative

=cut
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = shift;
    m <==
3	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3315	3417	
==>h}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::M <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3315	3417	
==>h}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::M <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	17315	17494	
==>, ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	17315	17494	
==>, ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->u <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	17315	17494	
==>, ' ', $method, " @param == " . $tmp->$method( @param );

                @param = 
                    map {
                        # Perl6::Value::p6v_isa( $_, 'Array' ) ? $_->u <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/ApiX.pm	8559	8678	
==>arams,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/ApiX.pm	8559	8678	
==>arams,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\' <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/ApiX.pm	8559	8678	
==>arams,$body,$want_macro,$SubOrCode)=@_;
    my $listify = sub {
        join(",",map{
            s/\\/\\\\/g; s/\'/\\\' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	34	143	
==>og
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	34	143	
==>og
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005 <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	34	143	
==>og
#
# 2005-09-06
# * new class Perl6::Container::Hash::Native
#
# 2005-09-05
# * delete hash element
#
# 2005 <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/JSAN.pm	455	564	
==>xportList does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/JSAN.pm	455	564	
==>xportList does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix. <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/JSAN.pm	455	564	
==>xportList does the actual exporting.
      // We box all subs so they can be accessed without the JS:: prefix. <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/Prelude/JS/Hash.pm	2439	2574	
==>w PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib6/lib/Prelude/JS/Hash.pm	2439	2574	
==>w PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_va <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib6/Prelude/JS/Hash.pm	2439	2574	
==>w PIL2JS.Pair(
            new PIL2JS.Box.ReadOnly(key),
            new PIL2JS.Box(undefined)
          ));

        return hash.get_va <==
3	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1486	1588	
==>for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Remove <==
3	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1486	1588	
==>for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Remove <==
3	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	926	1024	
==>perhaps, be possible to do this
# Maybe.  And perl5 might benefit from its existence.  Normally thi <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	1602	1761	
==>) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	1602	1761	
==>) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h- <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	1602	1761	
==>) ) {
        for ( 0 .. $p->elems->unboxed -1 ) {
            my $pp = $p->fetch($_)->fetch;
            # warn "pp = $pp ". $pp->str->unboxed;
            $h- <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	9520	9643	
==>s;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	9520	9643	
==>s;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	9520	9643	
==>s;
            }
            return undef;
    };
});

::Class.meta.add_method('_make_descendant_dispatcher' => ::make_priva <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Metamorph.pm	75	176	
==>se constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Metamorph.pm	75	176	
==>se constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Metamorph.pm	75	176	
==>se constant BOOTSTRAPPED_COMPLETE => 8;

# ... this constructs the rest of the ::Class
# the result of <==
3	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12460	12572	
==>umper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast->{capture} );\n" . <==
3	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30447	30543	
==>ve alternative for the rest
of the set. There is a separate template module for each distinct "us <==
3	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30447	30543	
==>ve alternative for the rest
of the set. There is a separate template module for each distinct "us <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2113	2254	
==>$self->dir, to => $tmpdir ) 
#             or error( "Could not copy sources to '$tmpdir'" ), return;
#             
#         ### toss out th <==
3	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	341	438	
==>.addMethod(Method.new(...))
 $class.apply;

 # my SomeClass $foo does Foo;
 my $role = Role.new("F <==
3	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	30	150	
==>6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        m <==
3	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	30	150	
==>6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        m <==
3	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5646	5763	
==>r'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
r <==
3	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1607	1821	
==>t.pod 8651.
 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{... <==
3	/Users/nnunley/pugs/inc/Test/Harness.pm	29364	29459	
==>ng its output returns raw data
on the state of the tests.  (Partially done in Test::Harness::Str <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	1391	1519	
==>gs.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	1391	1519	
==>gs.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(a <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	1391	1519	
==>gs.shift();\n";
    $js .= "args       = PIL2JS.possibly_flatten(args);\n";
    $js .= "var nameds = PIL2JS.grep_for_namedpairs(a <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9872	9965	
==>currence sets can be combined with union, intersection, difference, and a few
other operations <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9872	9965	
==>currence sets can be combined with union, intersection, difference, and a few
other operations <==
3	/Users/nnunley/pugs/util/package-osx.pl	1093	1199	
==>serman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/ <==
3	/Users/nnunley/pugs/util/package-osx.pl	3403	3509	
==>serman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/ <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20600	20695	
==>rs
in F<Regexp/Parser/Handlers.pm>.  That file might end up being where
documentation on writing <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/pugs-smokejs.pl	2638	2737	
==>m --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/pugs-smokejs.pl	2638	2737	
==>m --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ <==
3	/Users/nnunley/pugs/perl5/PIL2JS/pugs-smokejs.pl	2638	2737	
==>m --perl5)
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
  warn "# runjs.pl @args @ <==
3	/Users/nnunley/pugs/misc/Blondie/milner.pl	16002	16102	
==>.is) = { new_env($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types::unify(
		new_env($ <==
3	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10231	10325	
==>es.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10231	10325	
==>es.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Code.pm	2033	2132	
==>methods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuation <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Code.pm	2033	2132	
==>methods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuation <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Code.pm	2033	2132	
==>methods
# TODO - multisub add_sub($sub)
# TODO - multisub .arity, .name
# TODO - escape continuation <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2324	2433	
==>$v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2324	2433	
==>$v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4774	4891	
==>)) if $cc;
    return $S->object(space => 0);
  });

  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    ret <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9908	10021	
==>ers to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT' <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9908	10021	
==>ers to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT' <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	899	994	
==>{PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	899	994	
==>{PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f) <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	899	994	
==>{PrimFilter::import};
use Math::Trig;
use PIL::Run::ApiX;
sub def {
    my($what,$name,$argl,$f) <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Chaos.pm	14494	14646	
==>0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Chaos.pm	14494	14646	
==>0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1] <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Chaos.pm	14494	14646	
==>0+' => sub { $_[0]->[0] },       
        '""' => sub {
            "#<" . (exists ${$_[0]->[1]}->[2]->{'$:name'} ?
                        (${$_[0]->[1] <==
3	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	437	567	
==>_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time: <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	437	567	
==>_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time: <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15781	15893	
==>ef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => sub { p6_Str($_[0]) }, <==
3	/Users/nnunley/pugs/blib6/pugs/perl6/lib/metamorph.pl	2046	2175	
==>t, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib6/lib/metamorph.pl	2046	2175	
==>t, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Cl <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib6/metamorph.pl	2046	2175	
==>t, and
            # otherwise ignore it ... but this will do
            if $self.meta.find_attribute_spec($key);
    }
});

::Cl <==
3	/Users/nnunley/pugs/util/testgraph.pl	1289	1401	
==>il/run-smome.pl     - automate the smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Tes <==
3	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2049	2148	
==>(Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $t <==
3	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2049	2148	
==>(Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	3182	3298	
==>y proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	3182	3298	
==>y proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is r <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	3182	3298	
==>y proxy for each element in the tied array @b

# TODO - @a[1..2]=(1,2) 
#        &postcircumfix:<[ ]> has to be "is r <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8655	8850	
==>)                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm <==
3	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1805	1973	
==>)                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status dir like dpkg
    my $postrm <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8247	8388	
==>pkg->package )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->package )
                         ->file( $conf->pre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/MainX.pm	76	174	
==>::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/MainX.pm	76	174	
==>::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math:: <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/MainX.pm	76	174	
==>::Junction;

#require Math::BigInt;
sub Math::BigInt::binf { Perl6::Value::Num::Inf() };
sub Math:: <==
3	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	999	1111	
==>unless defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && <==
3	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12237	12343	
==>3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0 <==
3	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12237	12343	
==>3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0 <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12606	12716	
==>as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die " <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	13014	13114	
==>se functions both take blocks of code, run the code, and test whether they live or die.

=== A Note a <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13072	13172	
==>se functions both take blocks of code, run the code, and test whether they live or die.

=== A Note a <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Junction.pm	2920	3125	
==>->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/blib/lib/Perl6/Junction.pm	2920	3125	
==>->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    fo <==
3	/Users/nnunley/pugs/perl5/Perl6-Value/lib/Perl6/Junction.pm	2920	3125	
==>->new( '$.unboxed' => 1 ) if $_ }
                    return Bit->new( '$.unboxed' => 0 );
                }
                if ( $type eq 'one' ) {
                    my $count = 0;
                    fo <==
3	/Users/nnunley/pugs/blib6/lib/Span.pm	12016	12139	
==>05-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = S <==
3	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12016	12139	
==>05-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = S <==
3	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	173	266	
==>s::Check qw(check);
use Log::Message::Simple qw(:STD);

=head1 METHODS

=head2 $repo = JIB::Re <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	23996	24120	
==>n($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	23996	24120	
==>n($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	23996	24120	
==>n($mods,$pat,$qo,$qc) };

sub attempt_rx_match {
    my($a,$b)=@_;
    my $ret;
    eval {
	my $m;
	my $as = p6_to_s($a);
	if <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/runjs.pl	2763	2870	
==>contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/runjs.pl	2763	2870	
==>contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/PIL2JS/runjs.pl	2763	2870	
==>contents, $file) = @_;

  open my $fh, ">", $file or die "Couldn't open \"$file\" for writing: $!\n";
  prin <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7288	7459	
==>emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime: <==
3	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15183	15276	
==>d array contexts, the encoded or
decoded string is returned (without changing the input string <==
3	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15183	15276	
==>d array contexts, the encoded or
decoded string is returned (without changing the input string <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	7305	7479	
==>);
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	7305	7479	
==>);
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	7305	7479	
==>);
                    for ( 0 .. Perl6::Value::numify( $key->elems ) - 1 ) {
                        my $k = $key->fetch( $_ );
                        $a->push( $self->fetch <==
3	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4083	4180	
==>tp_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~ <==
3	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4083	4180	
==>tp_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~ <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	7042	7168	
==>f $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	7042	7168	
==>f $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	7042	7168	
==>f $name;
      my $other = $self->{tpDefault};
      # XXX this will break, of course, if $other does call/cc magic.
      push <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Subs.pm	6829	6930	
==>y, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Subs.pm	6829	6930	
==>y, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Subs.pm	6829	6930	
==>y, $coro_id) =
      $PIL::IN_SUBLIKE == PIL::SUBCOROUTINE
        ? $self->corofix($self->body->as_js <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21602	21708	
==>eturn $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ( <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18023	18129	
==>eturn $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ( <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Genesis.pm	1921	2012	
==>w make sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Genesis.pm	1921	2012	
==>w make sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Mo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Genesis.pm	1921	2012	
==>w make sure we set everyone's name properly
$::Package->name('Package');
$::Module->name('Mo <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Params.pm	2348	2472	
==>rue" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/PIL/Params.pm	2348	2472	
==>rue" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL <==
3	/Users/nnunley/pugs/perl5/PIL2JS/lib/PIL/Params.pm	2348	2472	
==>rue" };
    } @$self;

    my $vars = join ", ", map { $_->jsname } @$self;

    if($need_for_at) {
      return sprintf "PIL <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	12762	12887	
==>ey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	12762	12887	
==>ey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	12762	12887	
==>ey {
    my ( $this, $key ) = @_;
    each %{$this->{hashref}};
}
sub exists {
    my ( $this, $key ) = @_;
    my $s = Perl6: <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	10383	10497	
==>als::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	10383	10497	
==>als::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	r <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	10383	10497	
==>als::call_perl5('${tmp}::$key',\@a) }";
	    print STDERR $sub,"\n";
		PIL::Run::EvalX::p6_eval($sub);
	    }
	}
	r <==
3	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14378	14538	
==>return 
            'do { ' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy her <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1265	1412	
==>L::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1265	1412	
==>L::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\ <==
3	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1037	1147	
==>t" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset <==
3	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1037	1147	
==>t" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset <==
3	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8412	8497	
==>ier_spec_neg([-i|L]) --> "i", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-m|L]) <==
3	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27195	27296	
==>w add your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $parser->add_flag($flag, <==
3	/Users/nnunley/pugs/blib6/lib/Test.pm	14575	14672	
==>be the code support for those needs. The
following is a list of future features planned for this m <==
3	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14633	14730	
==>be the code support for those needs. The
following is a list of future features planned for this m <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Hash.pm	10542	10663	
==>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Hash.pm	10542	10663	
==>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$me <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Hash.pm	10542	10663	
==>{tied} ? _('$:cell')->{tied} : _('$:cell')->{v};
                # warn ref($tmp), ' ', $method, " @param == " . $tmp->$me <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/PIL/Run/PrimP5.pm	20836	20931	
==>UB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/blib/lib/PIL/Run/PrimP5.pm	20836	20931	
==>UB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_t <==
3	/Users/nnunley/pugs/perl5/PIL-Run/lib/PIL/Run/PrimP5.pm	20836	20931	
==>UB infix:<.{}> ($xx0,$xx1) {...};
MACROP5 infix:<and> ($xx0,$xx1) { 'do{my $_v1 = '.$xx0.'; p6_t <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/MetaModel/Parser.pm	3565	3684	
==>card_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->look <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/blib/lib/Perl6/MetaModel/Parser.pm	3565	3684	
==>card_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->look <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/lib/Perl6/MetaModel/Parser.pm	3565	3684	
==>card_whitespace($i);
        push @supers => $i->nextToken;
        $self->_discard_whitespace($i);
    } while $i->look <==
3	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	251	397	
==>use strict;

sub print_repl_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggle <==
3	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8392	8485	
==>e_interpolation')>

This event is begun when any block of characters is interpolated for modif <==
3	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8392	8485	
==>e_interpolation')>

This event is begun when any block of characters is interpolated for modif <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1009	1124	
==>ue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1214	1329	
==>ue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa' <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1275	1390	
==>ue { shift->{attrs}    }
}

{
    package Dispatchable;
    use Carp 'confess';

    sub isa { our $AUTOLOAD = 'isa' <==
3	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2501	2610	
==>cription
        method add_subscription (String $name, $subscriber = $?CALLER::?SELF) {
            my $subsc <==
3	/Users/nnunley/pugs/blib6/lib/Tree.pm	11007	11102	
==>rns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tre <==
3	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11007	11102	
==>rns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tre <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	2849	2959	
==>"pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	2849	2959	
==>"pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude so <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	2849	2959	
==>"pugs",
    pil2js    => "pil2js",
    preludepc => "the precompiled Prelude",
    prelude   => "the Prelude so <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Perl6/Container/Array.pm	36791	36917	
==>ce()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/blib/lib/Perl6/Container/Array.pm	36791	36917	
==>ce()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn " <==
3	/Users/nnunley/pugs/perl5/Perl6-Container/lib/Perl6/Container/Array.pm	36791	36917	
==>ce()
    my $array = shift;
    my $pos =   shift; $pos = Perl6::Value::numify( $pos );
    
    #use Data::Dumper;
    #warn " <==
3	/Users/nnunley/pugs/blib6/pugs/perl5/lib/jspugs.pl	1313	1410	
==>"output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/blib/lib/jspugs.pl	1313	1410	
==>"output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknow <==
3	/Users/nnunley/pugs/perl5/PIL2JS/jspugs.pl	1313	1410	
==>"output=s"      => \$cfg{output},
  "metamodel-base=s" => \$cfg{metamodel_base},
) or warn "Unknow <==
3	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	844	950	
==>rl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./ <==
3	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	844	950	
==>rl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./ <==
3	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	3020	3125	
==>export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is expo <==
3	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	3020	3125	
==>export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is expo <==
3	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4544	4649	
==>export {
     $Test.testplan($explanation, $tests);
  }

  sub ok ($passed, $description?, $todo?) is expo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3269	3521	
==>tta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3269	3521	
==>tta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Ro <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4194	4292	
==>property is outside of a section, it will be assigned to the root
section, available at C<$configE< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4194	4292	
==>property is outside of a section, it will be assigned to the root
section, available at C<$configE< <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1661	1779	
==>n $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1661	1779	
==>n $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15853	15964	
==>elong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15853	15964	
==>elong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `star <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	973	1118	
==>lsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsi <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	973	1118	
==>lsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8337	8461	
==>ile) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8337	8461	
==>ile) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignor <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1182	1358	
==>events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1182	1358	
==>events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1367	1563	
==>.new
                if !stack.empty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(new_arr)
                end
                stack.push(new_ar <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15978	16128	
==>/ ? $1 : '';
        my $len    = length;
        my $suflen = length $suf;
        $maxlen    = $len    if $len    > $maxlen;
        $maxsuflen = $su <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5172	5274	
==>racket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_sequence {
    \\ < <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	955	1090	
==>s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3806	3986	
==>package = package_name(     $path );
                    my $version = package_version(  $path );
    
                    for my $test ( keys %$href ) {
                        if( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10132	10234	
==>}
sub node::non_capturing_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	132	244	
==>-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	127	232	
==>-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "con <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5509	5641	
==>>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'deb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14203	14310	
==>$exe;
	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@" <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	341	440	
==>y %devs_seen;

print STDERR <<INFO unless @ARGV;
Pipe output of "svn log" or save "svn log" output i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	326	446	
==>ostfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2202	2298	
==>f->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determi <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1308	1403	
==>f->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1568	1682	
==>=> "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2765	2880	
==>mponents that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2765	2880	
==>mponents that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	336	442	
==>ffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	336	442	
==>ffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1283	1393	
==>return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is expor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1283	1393	
==>return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is expor <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3906	4032	
==>ring_group        { \( <pattern> \) }
rule noncapturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> < <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6835	7123	
==>'),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22051	22149	
==>tem regex

A reference to the original string representation of the regex.

=item len

The length o <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15424	15529	
==>ame = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML::Element->new('div', class=>$tag, name=>$name <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23028	23121	
==>B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11824	11917	
==>barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11824	11917	
==>barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	63	165	
==>ion of a p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine';

require 'p6rule.pl';
requir <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	943	1042	
==>they are included into the Class.  This has the same effect as
them being defined in the Class, so t <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2385	2499	
==>privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	184	318	
==>s parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3568	3900	
==>($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # Ext <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3568	3900	
==>($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # Ext <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6939	7048	
==>ly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6939	7048	
==>ly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1501	1637	
==>data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1501	1637	
==>data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3927	4031	
==>eginLine'   ,'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2555	2664	
==>f.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2555	2664	
==>f.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7665	7782	
==>IB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6021	6116	
==>ee examples in L<"USAGE">.

=head1 WARNING

This is version B<0.022b>.  The documentation is (st <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	161	312	
==>(
       p6_is_object
       p6_is_perl6_object
       p6_is_native
       p6_ref
       p6_isa
       p6_undef
       p6_bool
       p6_bit
       p6_i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3027	3163	
==>$module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3027	3163	
==>$module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $modu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5549	5659	
==>$real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5549	5659	
==>$real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use fil <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2011	2213	
==>s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2011	2213	
==>s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4009	4125	
==>sion';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4009	4125	
==>sion';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8308	8411	
==>b_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2133	2236	
==>b_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23833	23927	
==>lution
than alternatives, and doesn't know about language specific details like
encodings or pl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23833	23927	
==>lution
than alternatives, and doesn't know about language specific details like
encodings or pl <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1362	1571	
==>x error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1362	1571	
==>x error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	427	548	
==>.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9845	9966	
==>.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5448	5536	
==>sif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5448	5536	
==>sif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1236	1360	
==>ew
        source.scan(/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6059	6174	
==>implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif($sn eq <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7012	7156	
==>t.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAM <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7012	7156	
==>t.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAM <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7298	7415	
==>del::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7298	7415	
==>del::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6938	7041	
==>t with Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and retur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4512	4612	
==>sult2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2273	2388	
==>Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3630	3741	
==>Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2223	2339	
==>e named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2363	2479	
==>e named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $st <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11095	11210	
==>most
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11095	11210	
==>most
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1037	1133	
==>simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<R <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1037	1133	
==>simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24102	24238	
==>$class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14155	14266	
==>e 11.2
      <NewExpression>
    | <CallExpression>
}
rule PostfixExpression :words {  # see 11.3
      <LeftHan <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	253	344	
==>p';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_Interp i,char * <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5459	5696	
==>t ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7221	7458	
==>t ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3632	3740	
==>vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3632	3740	
==>vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13111	13218	
==>NG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curs <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13111	13218	
==>NG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3055	3162	
==>urate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3055	3162	
==>urate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %res <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	211	333	
==>::Getopt::Argument::Coercer::Null;

        method bind ( Code &fun, Array of Str @args ) {
            $fun.assuming( *sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6390	6497	
==>ee L<Regexp::Parser::Handlers> for information
about sub-classing this module.

=head1 DESCRIPTION

This mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1945	2072	
==>s = $s . "    rule $rule_name { <r$prev> [ $x <$rule_name> ]? }\n";
        }
    }
    return 
        "grammar $self->{name} { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	489	596	
==>ly;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 has a type.  This type c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34546	34644	
==>r that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a subset <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39096	39194	
==>r that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a subset <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5070	5241	
==>} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5070	5241	
==>} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1128	1224	
==>y used to add extra directories to Pugs's 
search path so that later `use` or `require` statement <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1128	1224	
==>y used to add extra directories to Pugs's 
search path so that later `use` or `require` statement <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6002	6127	
==>() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6002	6127	
==>() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2398	2617	
==>ying on local $_ to work.
sub display {
    my @result;
    foreach my $x (@_) {
        if (defined $x and not ref $x) {
            my $y = '';
            foreach my $c (unpack("U*", $x)) {
                if ($c > 25 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34681	34772	
==>bject__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	687	801	
==>e><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ na <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	687	801	
==>e><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8592	8703	
==>perator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tigh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6126	6234	
==>perator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tigh <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11522	11656	
==>y([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L), !.
p5_comment_body([])    --> {true}.

p6_comment --> "#", rest_of_line(_).
rest_o <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	906	1077	
==>-f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	906	1077	
==>-f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3577	3690	
==>($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3577	3690	
==>($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	561	655	
==>nk($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descripti <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	561	655	
==>nk($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descripti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7934	8039	
==>[ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7664	7765	
==>[ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14188	14292	
==>d => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14188	14292	
==>d => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous spa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20752	20847	
==>ead2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20752	20847	
==>ead2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	651	785	
==>ous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	651	785	
==>ous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end inte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5084	5186	
==>e have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5084	5186	
==>e have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	314	426	
==>my $f = $p6) =~ s/.p6$//;
    my ($dir, $file) = split /\//, $f;
    next if not -e "$dir/$file.expected";
    un <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	493	604	
==>mproved in many ways, and have been in the Perl Monks
# thread mentioned above.
#
# To test head.p6, tail.p6, re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3474	3674	
==>ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3474	3674	
==>ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Loc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	854	967	
==>);
}


=head2 $dir = $inst->alternatives_dir

=cut

sub alternatives_dir {
    my $self = shift;
    my $dir  = $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8255	8348	
==>rn value from first Object singleton/class method called by Foo');  

$Foo->add_singleton_meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	660	773	
==>' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	660	773	
==>' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the r <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	690	796	
==>::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigge <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	690	796	
==>::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2965	3100	
==>inder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compile( q(
        \!      # $!
    |   \??     # $?C <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12327	12546	
==>t);
      my $test_class = {
                      0 => 'test_fail',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3399	3497	
==>od symmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturbin <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3399	3497	
==>od symmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturbin <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4895	4992	
==>Config::Tiny objects. These
methods can be called with the following syntax:

  $config<read>('con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4895	4992	
==>Config::Tiny objects. These
methods can be called with the following syntax:

  $config<read>('con <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10114	10210	
==>of immediate
validation is kept to the minimum possible, and is essentially just
concerned with t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10114	10210	
==>of immediate
validation is kept to the minimum possible, and is essentially just
concerned with t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3534	3644	
==>de;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3534	3644	
==>de;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5957	6097	
==>ed = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6015	6155	
==>ed = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1956	2049	
==>, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the la <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1956	2049	
==>, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the la <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4383	4502	
==>.') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4383	4502	
==>.') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2264	2359	
==>.includes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2264	2359	
==>.includes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2576	2677	
==>of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Pars <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2576	2677	
==>of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Pars <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7605	7710	
==>pop @operatorStack;
  }
  reduce_1:
  my $arity = $$temp1{arity};
  $temp1 = pop @operatorStack;

  reduce <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20177	20276	
==>to declare that its result not be recompiled by
some other containing parser. In this case the resul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20177	20276	
==>to declare that its result not be recompiled by
some other containing parser. In this case the resul <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1	103	
==>odule Config::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freep <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1	103	
==>odule Config::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freep <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21007	21102	
==>odules that use Module::Compile based modules
will automatically be compiled into .pmc files and <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21007	21102	
==>odules that use Module::Compile based modules
will automatically be compiled into .pmc files and <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19789	19943	
==>_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16210	16364	
==>_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2241	2468	
==>indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2241	2468	
==>indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16726	16826	
==>urns its results for calling code to output as it sees fit.  It
also does not make direct use of envi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16726	16826	
==>urns its results for calling code to output as it sees fit.  It
also does not make direct use of envi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1741	1834	
==>e::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1741	1834	
==>e::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2670	2864	
==>raph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2670	2864	
==>raph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $f <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	739	840	
==>S

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise v <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	739	840	
==>S

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise v <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1351	1554	
==>t("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } ) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1351	1554	
==>t("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9043	9193	
==>} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op} ),

        };

        return $match;

    }

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8728	8872	
==>} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op} ),
        };
        return $match;
    }
} <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	288	423	
==>tomically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -100 or retry }
        $still_running--;
    }
    say 'Threa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6053	6182	
==>get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die "unimplemented";
    }
    if($cls <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8724	8828	
==>terface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8724	8828	
==>terface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # D <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	892	1015	
==>embers.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.v <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	892	1015	
==>embers.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7914	8007	
==>("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7914	8007	
==>("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8320	8444	
==>to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8320	8444	
==>to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	711	871	
==>[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	711	871	
==>[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.k <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1339	1459	
==>nil->new();
}

sub remove {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess " <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3179	3276	
==>piler creates, but which we obviously don't have).

Whether this will all succeed or not is an ope <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6182	6280	
==>est';
}

=head2 C<analyze_fh>

  my %results = $strap->analyze_fh($name, $test_filehandle);

Like C <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5528	5624	
==>k_Match_appender($r,$name);
  push(@operators,[$r,$op]);
  $r;
}

# so Regexp::Parser doesn't hav <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3635	3750	
==>y to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5537	5652	
==>y to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2091	2280	
==>Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2091	2280	
==>Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Loca <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3824	3968	
==>lf: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #return $self <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1924	2068	
==>lf: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #return $self <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9193	9310	
==>e = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9193	9310	
==>e = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12148	12255	
==>NVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12148	12255	
==>NVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5715	5818	
==>,
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5715	5818	
==>,
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur' <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	727	825	
==>$event to $session and return the result.
  # The session's event handler won't be executed until @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1772	1866	
==>exes to Perl 5.

=item * L<Pugs::Compiler::RegexPerl5> wraps Perl 5 Regexes to return a B<Match <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12718	12814	
==>s date objects without the time part.

Discrete spans take a "units" specifier, which can be eith <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12718	12814	
==>s date objects without the time part.

Discrete spans take a "units" specifier, which can be eith <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1977	2086	
==>urns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

metho <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1977	2086	
==>urns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18469	18572	
==>rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1763	1878	
==>s Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $proto <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1763	1878	
==>s Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $proto <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25134	25229	
==>s successful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some statistics about the p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7349	7483	
==>thod from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7349	7483	
==>thod from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2480	2584	
==><Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2480	2584	
==><Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	755	876	
==>d;
    }
    $target = $matchObj->target();
    $from = $matchObj->position();
  }

  $me = new $grammar;
  $me->target($t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38908	39003	
==>xample and that match any tuples of C<$other> along
their common attributes.  This method will f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1396	1528	
==>=> $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1407	1539	
==>=> $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7434	7541	
==>"Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7434	7541	
==>"Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	269	397	
==>:Dumper;

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    my $self = { source => $rule_source };

    $self <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	67	163	
==>s going on here.

* These are perl6 implementations of /builtins/
* They sometimes use Pugs inter <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2661	2763	
==>self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2661	2763	
==>self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	660	782	
==>ut( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	660	782	
==>ut( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16563	16693	
==>is safe {
        ($n < 0) ?? int( $n - 0.5) !! int($n + 0.5);
    }
    sub round($n) is primitive is safe {
        Num::round_ge <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28072	28172	
==>)");

dies_ok { t($flatten_polymorphic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_suc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1584	1693	
==>compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1584	1693	
==>compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11987	12102	
==>he test itself is one; we can't do two more, so
	    # write to temp file
	    my $stdin = qq{$^X -e 'print qq(} . $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1177	1395	
==>$wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    } <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1177	1395	
==>$wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	578	683	
==>al packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	578	683	
==>al packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	450	554	
==>am->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	450	554	
==>am->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4235	4327	
==>ce::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4235	4327	
==>ce::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2244	2364	
==>d";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2244	2364	
==>d";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3024	3119	
==>method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5226	5321	
==>method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1784	1912	
==>:Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1784	1912	
==>:Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	157	288	
==>t::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	157	288	
==>t::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1427	1527	
==>minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matche <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1427	1527	
==>minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matche <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3590	3690	
==>bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the ind <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3590	3690	
==>bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the ind <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2887	2993	
==>d_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	918	1024	
==>d_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7351	7484	
==>message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7103	7233	
==>message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]-> <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	102	238	
==>ION = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2743	2832	
==>rule commit_something { <commit_rule> | <commit_alternation> | <commit_atom> }
rule commit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6090	6234	
==>_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6090	6234	
==>_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $pr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3005	3124	
==>/test-harness......ok
  t/waterloo..........dubious
          Test returned status 3 (wstat 768, 0x300)
  DIED. FAILED t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6741	6891	
==>ental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6520	6664	
==>ental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16445	16556	
==>erted to lower case, and potential
parameters will be chopped off and returned as a separate value if in
an arra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16445	16556	
==>erted to lower case, and potential
parameters will be chopped off and returned as a separate value if in
an arra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2129	2249	
==>$fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2910	3030	
==>$fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	206	328	
==>:Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = call <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1666	1774	
==>([\(\)])/\\\\$1/g;  # escape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2637	2749	
==>elf->{$stage};
	push(@todo,$stage);
    }
    #print STDERR "==",join(" ",@todo),"==\n";
    for my $stage (rever <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	598	699	
==>urpy ( Perl::Type );

type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy;

# in fact, maybe the following <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19151	19263	
==>ype, $totals) = @_;

    die "FAILED--Further testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bail <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	833	936	
==>arsing JavaScript,
#     but rather in implementing it (eg, by ToNumber).
#   * Character sets are somet <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3911	4009	
==>nd may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3911	4009	
==>nd may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28198	28327	
==>tch;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28477	28606	
==>tch;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15431	15534	
==>ion
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node can be use <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15431	15534	
==>ion
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node can be use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	462	572	
==>S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	462	572	
==>S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROM <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4545	4652	
==>line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($endin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4545	4652	
==>line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($endin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1529	1676	
==>] || ${$_[3]}->{abort};
        }
        return unless $_[3];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	53	150	
==>ore::Type::Equivalence;

package type::comparable;

use strict;
use warnings;

use Scalar::Util 'b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5843	5995	
==>();
    return sub{
      FAIL() if !($X::pos == 0);
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11069	11165	
==>s Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11069	11165	
==>s Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1759	1855	
==>sions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> o <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1759	1855	
==>sions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2307	2470	
==>eps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12995	13112	
==>_generic = generic($.body);

	if ($t_of_param->free_vars) {
		return $prev_generic + Set::Object->new($t_of_param);
	} <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6460	6566	
==>ray:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> Lis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12361	12555	
==>] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_rout <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12361	12555	
==>] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_rout <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34791	34888	
==>names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permit c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34791	34888	
==>names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permit c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4583	4706	
==>fix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4583	4706	
==>fix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->par <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27930	28036	
==>\n";

my $r = rx(' +|([0-9]+|\\+|-)');
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29'),"\n" <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	410	494	
==>n
# this article: http://research.microsoft.com/Users/luca/Papers/BasicTypechecking.p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10755	10865	
==>rocess $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $queue. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10755	10865	
==>rocess $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $queue. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4207	4354	
==>$matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4078	4222	
==>$matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6942	7042	
==>b, pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_error(mob, pos, "\\1 and \\012 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6111	6239	
==>($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $fil <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3788	3915	
==>($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18200	18329	
==>name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6173	6294	
==>is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6173	6294	
==>is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	321	420	
==>$event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	321	420	
==>$event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ] <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	498	600	
==>ren;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	498	600	
==>ren;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3041	3153	
==>le';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
}
sub ref_flavor {
    m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1607	1758	
==>\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5::X1::CodeCompil <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4517	4625	
==>-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4517	4625	
==>-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6198	6386	
==>e
                  #      requirements
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	269	369	
==>ammar::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cmd,"\n";
    my $out = `$cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3680	3914	
==>,
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8888	8980	
==>l6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2713	2805	
==>l6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16009	16116	
==>s a new Rosetta::Model::Node object, that
lives in the Document object given in the named parameter $documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16009	16116	
==>s a new Rosetta::Model::Node object, that
lives in the Document object given in the named parameter $documen <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5129	5224	
==>base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::operato <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20777	20872	
==>dir readline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18758	18937	
==>nstant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19037	19216	
==>nstant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5515	5626	
==>ject(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20239	20333	
==>horization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NON-CA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20239	20333	
==>horization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NON-CA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	682	811	
==>y Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	682	811	
==>y Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1971	2069	
==>synopsis, you should
be left with nothing but questions about what this object represents.

It repr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1971	2069	
==>synopsis, you should
be left with nothing but questions about what this object represents.

It repr <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	599	718	
==>+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { requ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	566	685	
==>+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { requ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9804	9957	
==>cks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ / <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9804	9957	
==>cks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ / <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16778	16897	
==>et::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16778	16897	
==>et::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2151	2317	
==>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <si <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2151	2317	
==>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <si <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1393	1512	
==>o|Hi), (world)/) {
        print "Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3922	4025	
==>set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_d <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3922	4025	
==>set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_d <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2422	2572	
==>[$n]){
                $event->{more_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3971	4087	
==>t, $from, 1) =~ /</ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub gt {
  my ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	212	325	
==>ect that userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - T <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	212	325	
==>ect that userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - T <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1257	1375	
==>$tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1257	1375	
==>$tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4775	4886	
==>rs

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4775	4886	
==>rs

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($sel <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4862	5069	
==>ir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    syste <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4102	4281	
==>ir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            syste <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	715	834	
==>le( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Runtim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3597	3698	
==>6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3814	3915	
==>6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	825	938	
==>s Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhost <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	825	938	
==>s Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhost <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10685	10789	
==>f.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<encipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10685	10789	
==>f.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<encipherin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4807	4991	
==>cksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5029	5213	
==>cksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	806	958	
==>";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	825	966	
==>";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1400	1508	
==>ent = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ---------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1400	1508	
==>ent = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ---------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2043	2164	
==>], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $vo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2043	2164	
==>], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $vo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1719	1828	
==>return;

};



# ----- the following were included only for performance reasons,

# because they are too frequ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1650	1755	
==>return;
};

# ----- the following were included only for performance reasons,
# because they are too frequ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2169	2275	
==>$class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2169	2275	
==>$class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	288	425	
==>return $output;
}

my %SEEN;

sub _draw_role_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "sh <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	21	102	
==>nstall/Makefile/Name.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Make <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10065	10222	
==>eturns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10065	10222	
==>eturns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3899	4082	
==>IND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        re <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3899	4082	
==>IND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15138	15242	
==>_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into origina <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15138	15242	
==>_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into origina <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8713	8810	
==>ile::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan L <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8713	8810	
==>ile::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan L <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13358	13482	
==>y ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27191	27315	
==>y ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6357	6482	
==>m" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(819 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6357	6482	
==>m" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(819 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1043	1183	
==>tring = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1047	1179	
==>tring = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub1 <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4523	4635	
==>s --> Bool )
 { ... } # XXX
 

 &Array::pop<Array> := &Array::splice<Array>.assuming(offset(-1) :length(1));

 mu <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1446	1579	
==>y { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1446	1579	
==>y { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2019	2147	
==>rt keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2019	2147	
==>rt keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars <==
2	/Users/nnunley/pugs/util/version_h.pl	1939	2035	
==>gs off, perl will print "Filehandle STDIN reopened...", because
  # our handle for $version_h got <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9132	9284	
==>y $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the fir <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9132	9284	
==>y $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the fir <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6994	7159	
==>d $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subob <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6994	7159	
==>d $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subob <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1214	1325	
==>$class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1214	1325	
==>$class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $spa <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24762	24860	
==>fast decisions on suitable starting points
 * for a match, cutting down the work a lot.  Regmust pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21109	21204	
==>re
cleanly.

=item Flag Handlers

Flag handlers now receive an additional argument that says whe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7976	8081	
==>ered set of spans.

The problem this class solves is when you need do perform "set" operations on 
Span ob <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7976	8081	
==>ered set of spans.

The problem this class solves is when you need do perform "set" operations on 
Span ob <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6711	6839	
==>t       Script's wait status
    max         Number of individual tests
    failed      Number which failed
    percent     Perce <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	285	404	
==>d show_tree ($self:) returns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node() <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3853	3953	
==>et::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3853	3953	
==>et::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1166	1270	
==>e = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1166	1270	
==>e = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8465	8573	
==>t a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8465	8573	
==>t a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1540	1636	
==>ls a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1540	1636	
==>ls a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, wh <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16151	16260	
==>ree.
  return $v;
}
}
sub def_rule {
  my($name,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23996	24088	
==>tory|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23996	24088	
==>tory|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blec <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23635	23765	
==>01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28864	28966	
==>01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5571	5704	
==>>{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5571	5704	
==>>{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $mat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9099	9194	
==>ok_regcompp;
}
void regexp_hook_off() { /* aka "abandon regexps", aka "please segfault" */
  PL_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6125	6233	
==>*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented only in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5915	6020	
==>*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented only in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2898	3032	
==>tp://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2898	3032	
==>tp://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22830	22923	
==>pic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22830	22923	
==>pic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel = <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2895	3006	
==>averse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1593	1718	
==>); 

    $config->{perl5path} = $^X;
    $config->{pugspath}  =
      File::Spec->catfile($config->{bin}, "pugs$config->{exe_e <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1602	1708	
==><construct>  }
rule hash_alias             {  \%\<<name>\>  \:\=  <construct>  }
rule numbered_scalar_alias <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34198	34292	
==><except>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38748	38842	
==><except>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	679	774	
==>compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q( \w+ ))->c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2183	2294	
==>( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method eq <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2183	2294	
==>( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27903	28000	
==>fine
a base class for your module's objects, or the object you create isn't
a modification of a st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	827	933	
==>o_level($level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $clas <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26693	26784	
==>tyClassRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAto <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10225	10384	
==>]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10225	10384	
==>]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2171	2337	
==>~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33895	33987	
==><[>)

Data: array reference of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3039	3167	
==>e> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signatu <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3039	3167	
==>e> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signatu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3993	4104	
==>es that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3993	4104	
==>es that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::No <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6797	6992	
==>ore
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs::Grammar::Term.ident'}->() } }
            #|
            #    ### v6
            #    <Pugs::Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	680	792	
==>:previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	680	792	
==>:previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	680	788	
==>_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	680	788	
==>_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10975	11074	
==>f> will be returned.

A multi-valued field will be returned as separate values in list
context and w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10975	11074	
==>f> will be returned.

A multi-valued field will be returned as separate values in list
context and w <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26045	26151	
==>,
		$a,
	);
	is($type->stringify, "∀α. list α → α", "pretty print list a -> a");
}
{
	my $a = type:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17621	17772	
==>> 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17621	17772	
==>> 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1357	1478	
==>List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1357	1478	
==>List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	110	220	
==>$jsfile (@jsfiles) {
    print STDERR "# $jsfile\n";
    my $cmd = '../../pugs -I . -e \'use Grammar; if slurp( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32586	32682	
==>it has
been walk()ed, it will insert the matching 'close' node into the
walking stack.

The purpo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15696	15875	
==>splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15696	15875	
==>splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!q <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3499	3619	
==>t ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   B <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3499	3619	
==>t ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   B <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10109	10250	
==>.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10109	10250	
==>.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4286	4417	
==>y $self = shift;
                (pop @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_shift' => su <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9721	9837	
==>os += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3186	3356	
==>h ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3186	3356	
==>h ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13514	13618	
==>an:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersectio <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13514	13618	
==>an:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersectio <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3255	3367	
==>ell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->cat <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3255	3367	
==>ell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->cat <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13223	13310	
==>s_total"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests_ok"><tmpl_v <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	536	647	
==>$set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	536	647	
==>$set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( clo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17255	17407	
==>cision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17255	17407	
==>cision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12412	12530	
==>g, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12412	12530	
==>g, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10326	10481	
==>me'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10320	10475	
==>me'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7403	7512	
==>rt_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7403	7512	
==>rt_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3558	3672	
==>ray --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3926	4040	
==>ray --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp : <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9382	9497	
==>== "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_la <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11278	11387	
==>.= "    push \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded:\n$res <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1917	2015	
==>true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subset num of num64  where { true }');
Helpe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	748	846	
==>($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { cano <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	748	846	
==>($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { cano <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	279	379	
==>nstructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overlo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	279	379	
==>nstructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overlo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7855	7983	
==>f you use regex() then it will return false.

  if (! $parser->regex($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5447	5557	
==>elf.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5447	5557	
==>elf.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	781	909	
==>equired',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Accept <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	781	909	
==>equired',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Accept <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1393	1499	
==>elf, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1393	1499	
==>elf, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7735	7836	
==>em I<start_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7735	7836	
==>em I<start_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22303	22456	
==>$::Class->send('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            meth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3801	3949	
==>ct the code
        {   ### XXX we should *build* things here too
            system( qq[tar -f $my_tmp_dir/$data -C ] . 
                        $co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1416	1521	
==>ntains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1416	1521	
==>ntains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8151	8275	
==>turn '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8163	8287	
==>turn '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dum <==
2	/Users/nnunley/pugs/util/package-osx.pl	2117	2236	
==>e_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/site_perl/PIL /Library/Perl/5.8.6/PIL
        /usr/ <==
2	/Users/nnunley/pugs/util/config_h.pl	1010	1120	
==>OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_readline = try <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	217	347	
==>ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	217	347	
==>ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'f <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	716	853	
==>) );
}

# convert from an iso date
multi sub date( Str $iso8601 ) returns Date::Gregorian is export {

    $iso8601 ~~ $iso8601_re_anchore <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	125	222	
==>nfig;
my $Cwd = Path::Class::dir(cwd());

use constant SUBDIR_OF_ROOT     => sub { shift()->root-> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13953	14064	
==>> "Creating directory \"$cdroot\"",
  ensure => sub { -d $cdroot and -r $cdroot },
  using  => sub { mkdir $cdro <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24851	24973	
==>ow->new(
		type::variable::free->new,
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2307	2457	
==>uantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2307	2457	
==>uantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq ' <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	474	566	
==>ing in their <tt>~/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob "/home/*/public_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2003	2142	
==>ondie::Env->new(
        '&func' => Thunk(
            Stub("&func is not really implemented"),
        ),
    );

Use the default one, in L <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2516	2636	
==>ibs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{prefix},
        SITEPREF <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	256	371	
==>use strict;
use warnings;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $p6 = Pugs::Compiler::Per <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4086	4177	
==>@_;

	$self->define_named_block($node, $symbol, $body, $self->resolve_type($node));
}

sub d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8364	8493	
==>block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8557	8686	
==>block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2967	3087	
==>p::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::gree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2978	3098	
==>p::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::gree <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	353	456	
==>apes");
}
system("perl naive_bayesian.p5 classify $test_file");

print(('-' x 80), "\n");
print "Testing <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28704	28799	
==>ily of this object.  These are any of: alnum, anchor,
anyof, anyof_char, anyof_class, anyof_rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2800	2891	
==>gs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_pla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2800	2891	
==>gs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_pla <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13751	13866	
==>ct if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $spa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13751	13866	
==>ct if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $spa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	454	573	
==>mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	454	573	
==>mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16863	16959	
==>s
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to emp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16863	16959	
==>s
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to emp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13488	13597	
==>he result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13488	13597	
==>he result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1253	1358	
==>SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCT <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1253	1358	
==>SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCT <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7335	7438	
==>may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7335	7438	
==>may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1175	1268	
==>contained reference implementation of a Rosetta Engine

=head1 VERSION

This document describe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1175	1268	
==>contained reference implementation of a Rosetta Engine

=head1 VERSION

This document describe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	312	427	
==>r implements simple byte-level modular addition ciphers, including 
rot13, the Caesar cipher (add or subtract values <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	312	427	
==>r implements simple byte-level modular addition ciphers, including 
rot13, the Caesar cipher (add or subtract values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16946	17044	
==>Example @sources = ($?SELF, *@others);
    my Relation::Example @r_with_zero_tuples;
    my Relatio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2511	2624	
==>ethod proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method string <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2511	2624	
==>ethod proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method string <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3661	3780	
==>..
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3661	3780	
==>..
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	679	803	
==>pe {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	679	803	
==>pe {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::P <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11494	11627	
==><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var n <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3404	3540	
==>dex;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+- <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3404	3540	
==>dex;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26151	26277	
==>__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6098	6193	
==>l -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys| <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35648	35740	
==>ation::Example>

This multi-method is a generic binary relational operator that takes a singl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1859	1972	
==>'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1859	1972	
==>'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1191	1300	
==>@values ==> join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@values) returns List
 multi sub sort(Crite <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6697	6822	
==>PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($pPos, $pExp, $pNode) {
    (defined($pExp) ? <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	175	270	
==>$config->root( Path::Class::dir( cwd() )->subdir( 'fakeroot' ) );

$INSTALLATION_DIR = $config-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9170	9269	
==>e $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9170	9269	
==>e $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	574	732	
==>ram
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	574	732	
==>ram
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9677	9796	
==>ight + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9677	9796	
==>ight + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28156	28270	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28435	28549	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2204	2301	
==>iteral {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2117	2212	
==>iteral {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimite <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26554	26648	
==>sage constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26554	26648	
==>sage constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3101	3206	
==>a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3101	3206	
==>a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5651	5754	
==>ine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) databas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5651	5754	
==>ine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) databas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7089	7185	
==>l::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SEL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7089	7185	
==>l::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SEL <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3161	3269	
==>other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3161	3269	
==>other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2176	2280	
==>rty]]> ($O: JSX::String $P) {
    return JSX::true if $O.property_value.exists($P);
    my $proto = $O.<[ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4519	4617	
==>ch individual test which failed along with a summary report and
a how long it all took.

It returns <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11324	11420	
==>urns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children returns <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11324	11420	
==>urns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children returns <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1009	1118	
==>g simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1009	1118	
==>g simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1518	1625	
==>$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1518	1625	
==>$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	613	777	
==>_('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $::CLASS->new(@_) }        
    },
    submethods => {
        'BUILD' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18417	18521	
==>>RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19191	19308	
==>]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15612	15729	
==>]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9712	9829	
==>g( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_N <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9712	9829	
==>g( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_N <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5311	5469	
==>[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5143	5294	
==>[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	731	882	
==>re( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	731	882	
==>re( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19701	19848	
==>POS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16122	16269	
==>POS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11372	11474	
==>experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, C <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11430	11532	
==>experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	848	955	
==>rs = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	848	955	
==>rs = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my % <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16750	16865	
==>Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (op <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16750	16865	
==>Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (op <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26564	26660	
==>ructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26564	26660	
==>ructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9019	9150	
==>pon everyone having it.  As such, we have
        # a very special cygwin work-around.  Ugh!


        if (not $ghc_exe and $Config{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	437	566	
==>| confess "body must be a code ref";
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        body <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13343	13475	
==>digits_int(I) --> hexdigit(D0), hexdigits(D), { number_chars(I, [42,120,D0|D]) }.% [42,120]="0x"
hexdigits([D|T]) --> hexdigit(D), he <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3297	3400	
==>n"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/}, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3297	3400	
==>n"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/}, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2337	2451	
==>: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2554	2668	
==>: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12686	12785	
==>are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12686	12785	
==>are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	652	784	
==>dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	652	784	
==>dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4025	4135	
==>ct(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1332	1442	
==>ct(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	977	1097	
==>ntinue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9126	9243	
==>ou remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9126	9243	
==>ou remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21339	21436	
==>ng value
is the corresponding attribute value.

Every Relation attribute has a name that is distin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25891	25988	
==>ng value
is the corresponding attribute value.

Every Relation attribute has a name that is distin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	574	733	
==>s possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	574	733	
==>s possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20017	20141	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20296	20420	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ru <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3460	3600	
==>tep;
      }
      my $op1 = $operators->($noop);
      if($op1) {
        print STDERR "new op\n" if $debug;
        local $Z::oop{$id}{'op_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4506	4607	
==>oes not support OO, methods are
implemented as hash keys to code refs. The only function this module
e <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4506	4607	
==>oes not support OO, methods are
implemented as hash keys to code refs. The only function this module
e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9360	9457	
==>rns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9360	9457	
==>rns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12768	12937	
==>ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13047	13216	
==>ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13473	13583	
==>rence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13473	13583	
==>rence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8601	8713	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8794	8906	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2461	2608	
==>,
        block => sub {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3540	3641	
==>r::Rule::Match::newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $lastPosition = length $tar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	445	618	
==>ACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PACK <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17906	18031	
==>->($self, $line, $type, $totals) if $meth;
};


sub header_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Tes <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3147	3248	
==>de_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3147	3248	
==>de_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2968	3070	
==>ization vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2968	3070	
==>ization vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2953	3056	
==>ubstr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  ret <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2213	2307	
==>GE::Exp::Cut");
    $optable->addToken("postfix:::", "postfix:*", "left", &fail);
    $optable- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5896	5999	
==>rig => $self,
		new => undef,
	};
	
	$entry->{new} = $self->SUPER::splat($accum);
}

sub free_vars { $_[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17180	17276	
==>ouch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17180	17276	
==>ouch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2682	2793	
==>Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2682	2793	
==>Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$ <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	925	1029	
==>o8601 ~~ $iso8601_duration_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 durat <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1899	2033	
==>e '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self - <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1899	2033	
==>e '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14687	14789	
==>an be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14687	14789	
==>an be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4803	4948	
==><(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'H <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4815	4960	
==><(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'H <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16873	17023	
==>else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16873	17023	
==>else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14215	14449	
==>*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        las <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14215	14449	
==>*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        las <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5270	5451	
==>l to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stack.pop <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5270	5451	
==>l to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stack.pop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5429	5560	
==>() ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5622	5753	
==>() ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11876	11993	
==>b AUTOLOAD { # an easy constructor... fun() instead of fun->new()
	(my $class) = ((our $AUTOLOAD) =~ /([^:]+) $/x);
	$ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	556	671	
==>at loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5.
#     Note it is al <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2065	2217	
==>e;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2065	2217	
==>e;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1883	2017	
==>) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1883	2017	
==>) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1760	1867	
==>t = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1760	1867	
==>t = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1436	1557	
==>t - i ought to read the details
            #for $class ($self.meta.superclasses){
            #    take $class.subscripti <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19731	19839	
==>e;
    print STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10404	10505	
==>`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10404	10505	
==>`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	376	485	
==>ode);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	376	485	
==>ode);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16263	16357	
==>e list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16263	16357	
==>e list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	294	404	
==>y been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	294	404	
==>y been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2241	2363	
==>00 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2241	2363	
==>00 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16837	16954	
==>cur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5354	5467	
==>as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    '%:methods' => {
        ' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2199	2309	
==>prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->bundles) {
        push @$dir, map "$_->[1]", @{$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1524	1646	
==>pwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1524	1646	
==>pwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4201	4321	
==>ags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4418	4538	
==>ags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	639	768	
==>_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $self->Inline->w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7200	7317	
==>rt = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7200	7317	
==>rt = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	982	1135	
==>" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	982	1135	
==>" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6022	6165	
==>( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6022	6165	
==>( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2595	2696	
==>turn ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2595	2696	
==>turn ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10082	10206	
==>dex ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10082	10206	
==>dex ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	53	155	
==>ON @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	53	155	
==>ON @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	749	862	
==>pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	749	862	
==>pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5876	5992	
==>( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5876	5992	
==>( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.clo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5209	5326	
==>ully
    # qualified name of longmess.
    multi sub longmess (; $e = '') returns Str is primitive is safe {
        m <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/class.pl	16	120	
==>assen in Perl 6
use v6;

class MeineKlasse {
	method grüße { say "Hallo :-)" }
}

my $var = new MeineKl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9242	9375	
==>en lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9242	9375	
==>en lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	111	209	
==>erldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	111	209	
==>erldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4797	4924	
==>s.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4656	4783	
==>s.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1076	1173	
==>NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1076	1173	
==>NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5711	5833	
==>y $chunk_size = POSIX::ceil(@$all_tests / ($child_count * 3 - 1));
    for my $child (1 .. $child_count) {
        my $this <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3202	3310	
==>fe::Type::Std->new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16244	16364	
==>)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12665	12785	
==>)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} = <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1280	1384	
==>rts a single function, C<note>, which is called with zero or 
more strings, followed by zero or more tags <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1280	1384	
==>rts a single function, C<note>, which is called with zero or 
more strings, followed by zero or more tags <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7111	7234	
==>ne;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7111	7234	
==>ne;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34181	34276	
==>f branches: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> in Perl.  We will support this <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5570	5682	
==>main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### sepa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5378	5485	
==>main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### sepa <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2132	2316	
==>,
            hash_deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetch->{$idx};
            },
            ha <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1631	1750	
==>ackage Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    package Seq;
    use <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9593	9837	
==>x:</>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15676	15775	
==>,E0,E1), !. % this cut is semantic.

rm(condition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3392	3502	
==>=> 1)) if $cc;
    return $S->object(digit => 1);
  });

  # digit (a digit)
  $self->add_handler('\d' => sub { <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5510	5616	
==>w<total ok failed todo skipped unexpect>),
    $smoke{id};
}

sub unpack_smoke {
  my $name = shift;

  /^p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38257	38352	
==>parameter $text (a string), and a Message Variables hash ref
in its positional parameter %msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38257	38352	
==>parameter $text (a string), and a Message Variables hash ref
in its positional parameter %msg_va <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6264	6368	
==>>{name} cmp $b->{name} } (values %{ $syn_indexs->{S} }) ] ); 
    $template->param("exe", [ sort { $a->{n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23848	23937	
==>!, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if_ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1266	1380	
==>', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1266	1380	
==>', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22713	22801	
==>k> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22713	22801	
==>k> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8582	8683	
==>rns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8582	8683	
==>rns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member( <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5175	5301	
==>}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11653	11750	
==>ce )`

Returns true if this recurrence intersects (has any element in common) with the given recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11653	11750	
==>ce )`

Returns true if this recurrence intersects (has any element in common) with the given recur <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	581	683	
==>ON

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	581	683	
==>ON

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23773	23883	
==>t to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28325	28435	
==>t to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9553	9644	
==>set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (supers <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9553	9644	
==>set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (supers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2342	2503	
==>r( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2252	2408	
==>r( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9528	9640	
==>self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9528	9640	
==>self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3211	3307	
==>s.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3211	3307	
==>s.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	957	1064	
==>et::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[pu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	957	1064	
==>et::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27267	27389	
==>+1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8722	8823	
==>template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8722	8823	
==>template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8664	8763	
==>nt is fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8664	8763	
==>nt is fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11127	11297	
==>l .= qq ( -e "$prog" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5947	6043	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6ws> $<fix> := (infix|prefix|postfix <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	58	156	
==>ugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	189	287	
==>ugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5350	5473	
==>result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

me <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5350	5473	
==>result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10231	10355	
==>autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10231	10355	
==>autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done." <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3908	4075	
==>}
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3908	4075	
==>}
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7997	8104	
==>match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7985	8092	
==>match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1906	2013	
==>f = shift;
        return $self->($label, @_);
    }
}

## ------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18621	18725	
==>-codes,
which are hard-coded into your application or package, with one or more
text strings to show huma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18621	18725	
==>-codes,
which are hard-coded into your application or package, with one or more
text strings to show huma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	816	922	
==>lish

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	816	922	
==>lish

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This docu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16024	16131	
==>ssion>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'>='> <Sh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1761	1878	
==>set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1761	1878	
==>set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35955	36053	
==>ns an array ref having all combinations of this object's
Set Names and Member Names elements, conca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35955	36053	
==>ns an array ref having all combinations of this object's
Set Names and Member Names elements, conca <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8453	8576	
==>inue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8453	8576	
==>inue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &contin <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6174	6295	
==>ces) {
                my $ghc_candidate = qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7820	7923	
==>bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7808	7911	
==>bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31106	31225	
==>.

=item flags

The flags for the object.

=back

The following attributes may also be set:

=over 4

=item branch

Whet <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3274	3368	
==>b *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3274	3368	
==>b *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6681	6798	
==>hich will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6681	6798	
==>hich will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5763	5897	
==>+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5763	5897	
==>+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_g <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1924	2025	
==><note> is not provided with any tags, it will intuit one by extracting the 
last component of the call <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1924	2025	
==><note> is not provided with any tags, it will intuit one by extracting the 
last component of the call <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	582	689	
==>Cookies.keys) {
        $header ~= "Set-Cookie: " ~ $_ ~ "=" ~ %Cookies{$_} ~ "; expires=Sat, 01-Jan-3000 12 <==
2	/Users/nnunley/pugs/util/run-smoke.pl	318	416	
==>ed;

You don't seem to have the required modules installed.
Please install it from the CPAN and try <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	645	746	
==>)
}

# No symmetry flag
our Int multi Num::round_half_even (Num $x) {
	return int($x.is_even ?? $x + 0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2382	2541	
==>ty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::Ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2382	2541	
==>ty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2507	2625	
==>ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2507	2625	
==>ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	933	1037	
==>pying the whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop::alter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	896	996	
==>pying the whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop::alter <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6877	6962	
==>ndie::Backend::C::Emitter::DuplicateFinder->new;
	$self->{dups} = Set::Object->new( $d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9996	10117	
==>t, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto quant_closure_end <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9344	9446	
==>C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9344	9446	
==>C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13898	14017	
==>};

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13898	14017	
==>};

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2614	2719	
==>tor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2614	2719	
==>tor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2502	2600	
==>BRARY_PATH=/usr/local/lib/pl-5.5.27/lib/x86_64-linux
my $prolog = <<'END';
%======================= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18690	18795	
==>cribed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines begin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18690	18795	
==>cribed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines begin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3421	3545	
==>l_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . ': <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4867	4973	
==>x = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - default asso <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3601	3709	
==>f $cc;
    return $S->object(digit => 0);
  });

  # gpos (last global match end)
  $self->add_handler('\G' = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6117	6212	
==>gNumericLiteral>$/;
    $s ~~ s:g/<TheGrammar.StrWhiteSpaceChar>+//;
    $s ~~ s/^([\+|\-]?)0+(< <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3102	3203	
==>Utils::Manifest::manicheck = sub { return };

    require Module::Build;
    my $build = Module::Build <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8940	9034	
==>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Summary of Perl 6 Operators: L<http://dev.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	738	846	
==>ool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	738	846	
==>ool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8216	8319	
==>er("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8216	8319	
==>er("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10952	11071	
==>$filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $lay <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22982	23093	
==>)
  package Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	932	1034	
==>TP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	932	1034	
==>TP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     r <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14925	15040	
==>],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$dest\"",
    ensure => sub { -r $dest <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15647	15815	
==>ar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<B <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15647	15815	
==>ar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<B <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21155	21251	
==>s C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21155	21251	
==>s C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	238	335	
==>ailed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	296	393	
==>ailed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7428	7556	
==>if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7428	7556	
==>if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8477	8611	
==>chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sub <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8477	8611	
==>chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sub <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6832	7034	
==>()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6832	7034	
==>()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8922	9017	
==>} '... instance calling metaclass singleton method fails';
fails_ok { $iFoo->singleton_test_on_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1922	2035	
==>mented";
}

sub match {
    warn "not implemented";
}

sub perl5 {
    warn "not implemented";
}

sub emit_perl6_r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5236	5328	
==>ULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (pr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	312	428	
==>bedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    m <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	312	428	
==>bedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6005	6114	
==>mpty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6005	6114	
==>mpty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4031	4177	
==>($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4031	4177	
==>($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7146	7253	
==>{
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7158	7265	
==>{
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3453	3553	
==>8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3453	3553	
==>8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3241	3400	
==>n grammar
    return 
        # "    { no strict 'refs';\n" .
        "    sub $id\n" . emit($block) . "    ;\n";
}
sub node::sub_decl {
    my $fix =   get_str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2269	2389	
==>ould not delete directory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6582	6703	
==>r::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6594	6715	
==>r::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	351	606	
==>adonly = q{};

###########################################################################
###########################################################################

class Relation::Example::Heading-0.1.0 {
    does Relation::Heading;

    # External pac <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	54	140	
==>b/perl5/site_perl/5.8.7/Module/Install/Scripts.pm"
package Module::Install::Scripts;
us <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3588	3682	
==>-------------------------------------

# Utility to test that "No method found" error is raised <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5490	5584	
==>-------------------------------------

# Utility to test that "No method found" error is raised <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4606	4702	
==>ize
    --initrd-size specifies the size of the (uncompressed) initrd (in KiB).
  --initrd-mnt=$i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6070	6183	
==>h = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6070	6183	
==>h = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	698	845	
==>iler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	698	845	
==>iler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1981	2097	
==>span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1981	2097	
==>span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, de <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	672	780	
==>self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	672	780	
==>self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7640	7767	
==>8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7640	7767	
==>8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    " <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5274	5402	
==>' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return spli <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5274	5402	
==>' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return spli <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9556	9658	
==>es are cases insensitive.

Instances of this class are usually created as member variables of the
C<HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9556	9658	
==>es are cases insensitive.

Instances of this class are usually created as member variables of the
C<HTT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3003	3107	
==>t one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3003	3107	
==>t one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	495	640	
==>est) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	495	640	
==>est) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    m <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1874	2012	
==>, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1874	2012	
==>, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    bu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36571	36667	
==>sage and returns an equivalent human readable text message
string; this assumes that a Template c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36571	36667	
==>sage and returns an equivalent human readable text message
string; this assumes that a Template c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2470	2607	
==>E_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $he <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2470	2607	
==>E_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $he <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	384	490	
==>ARGV;
Pipe output of "svn log" or save "svn log" output in a file and
specify this file as parameter.
Outpu <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	609	722	
==>stall.\n";

# make an educated guess of whether we'll need root permission.
print "    (You may need to do that as <==
2	/Users/nnunley/pugs/util/package-osx.pl	18	125	
==>se strict;
use warnings;

unless (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|parrot|pugs- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4355	4501	
==>dir->subdir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the ins <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6893	6984	
==>k($Role->has_method('does'), '... we now have the does() method');
ok($Role->does('Role'), ' <==
2	/Users/nnunley/pugs/util/drift.pl	952	1049	
==>);
exit unless @program;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1364	1482	
==>SION} = $self->version || $self->determine_VERSION($args);
    $args->{NAME} =~ s/-/::/g;

    # Only call $self->tests <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2352	2457	
==>ay: Int)\
multi method Array::exists (@array : Int *@indices --> Bool )
{
    my @ret;
    for @indicies - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3742	3907	
==>:Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3742	3907	
==>:Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3765	3862	
==>ar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3765	3862	
==>ar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19134	19235	
==>@array) };
multi shift ($array) is builtin is primitive { die "Cannot 'shift' scalar"; };

multi pop ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9314	9462	
==>ort');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9314	9462	
==>ort');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); % <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15996	16109	
==>reted by the machine itself and not any human user.  In some
situations, a shared program component may raise such <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15996	16109	
==>reted by the machine itself and not any human user.  In some
situations, a shared program component may raise such <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35158	35250	
==>uct (Relation $other!) returns Relation>

This multi-method is a generic binary relational op <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39708	39800	
==>uct (Relation $other!) returns Relation>

This multi-method is a generic binary relational op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	670	800	
==>ure diagnostic
# messages
sub _diag {
    return unless @_;
    my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
               map { sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27579	27680	
==>nges.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27579	27680	
==>nges.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14653	14760	
==>lose the database connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14653	14760	
==>lose the database connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	679	775	
==>tes a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure_pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	679	775	
==>tes a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure_pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5603	5725	
==>rns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5603	5725	
==>rns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3987	4104	
==>tch;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4127	4244	
==>tch;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12826	12923	
==>ing utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12826	12923	
==>ing utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10325	10436	
==>apture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10604	10715	
==>apture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6149	6269	
==>&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7147	7267	
==>&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1659	1757	
==>response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1659	1757	
==>response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (? <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	678	783	
==>: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "q <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	678	783	
==>: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "q <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8790	8940	
==>n "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8790	8940	
==>n "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32644	32738	
==>o user-readable
message strings, using data from external Template modules as a template.
The T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32644	32738	
==>o user-readable
message strings, using data from external Template modules as a template.
The T <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	632	721	
==>--------------------------------------------------------
## private methods

my method set <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	632	721	
==>--------------------------------------------------------
## private methods

my method set <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36236	36323	
==>f ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36236	36323	
==>f ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4433	4565	
==>_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4421	4553	
==>_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14811	14970	
==>ct>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14811	14970	
==>ct>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enq <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10022	10125	
==>set the input, and input that
fails immediate evaluation will not be set at all.  The scope of immediate <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10022	10125	
==>set the input, and input that
fails immediate evaluation will not be set at all.  The scope of immediate <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4227	4435	
==>$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4227	4435	
==>$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9733	9827	
==>,"/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_rx" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1345	1439	
==>ENUM, 'Missing braces on \%s{}';
use constant RPe_RBRACE => --$ENUM, 'Missing right brace on \% <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13942	14051	
==>ill print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template availabl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13942	14051	
==>ill print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template availabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	383	484	
==>]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1110	1208	
==>]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	682	795	
==>turns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	682	795	
==>turns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17663	17781	
==>ibrary for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17663	17781	
==>ibrary for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7799	7908	
==>start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7799	7908	
==>start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7690	7821	
==>ch}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7690	7821	
==>ch}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2140	2235	
==>) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2140	2235	
==>) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	90	193	
==>------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!pare <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	90	193	
==>------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!pare <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1950	2089	
==>r -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; char <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1950	2089	
==>r -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; char <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	547	647	
==>?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	547	647	
==>?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4532	4641	
==>t
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4532	4641	
==>t
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1706	1807	
==>rsive rules, you should
#  create a new grammar, inherit from this one, and redefine just those
#  rul <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21173	21273	
==>ho install your
module distribtution do not need to have the compilers installed
themselves. So you d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21173	21273	
==>ho install your
module distribtution do not need to have the compilers installed
themselves. So you d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	647	766	
==>UPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1131	1250	
==>UPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7170	7508	
==>> 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7227	7565	
==>> 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7363	7462	
==>tenation.

- "plain" match operators: like 'literal'.



Higher order operators take a list of match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7113	7209	
==>tenation.
- "plain" match operators: like 'literal'.

Higher order operators take a list of match <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14076	14169	
==>($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + generic($.param) }

comb <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4840	4938	
==>$self,$fname)=@_;
    ($self->{'field_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	748	841	
==>fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	748	841	
==>fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4214	4306	
==>handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4214	4306	
==>handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11836	11962	
==>cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11830	11956	
==>cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	100	195	
==>ult = call('neue', 'Argumente');
	# Nachbearbeitung
	return $result;
})
#="Auspacken"
$id.unwrap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5778	5891	
==>name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpola <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5766	5879	
==>name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpola <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11481	11614	
==>ub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { ${$_[0]} ? 1 : undef },
      lva <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	342	451	
==>} => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	774	897	
==>g: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($smoke =~ /^<!DOCTYPE html/) {
    debug "doesn't look like a smoke; ab <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16369	16471	
==>le", "$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	921	1045	
==>val'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        print "Error in statem <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39478	39594	
==>KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39478	39594	
==>KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8309	8417	
==>y ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, $how);
  });

  # graph PO <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	377	478	
==>p = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override things t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	377	478	
==>p = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override things t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3472	3582	
==>$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3472	3582	
==>$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5508	5606	
==>ides an implementation for Perl 6 Rule categories.  

The module is still very unstable, and the al <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	626	718	
==>ure->isa('closure::params') || $signature->isa('closure::signature')))
        || confess "si <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12552	12656	
==>ests that are passing represent the
current working features.

This module deals with encoding and decodi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12552	12656	
==>ests that are passing represent the
current working features.

This module deals with encoding and decodi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1373	1485	
==>0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $sr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1373	1485	
==>0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $sr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2273	2370	
==>:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2273	2370	
==>:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9833	9945	
==>turn "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'}\n";
}
su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53081	53178	
==>ass->send('name'   => str->new('Class'));
$::Object->send('name'  => str->new('Object'));
$::Packa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	956	1051	
==>:en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	956	1051	
==>:en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	638	751	
==>ush \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	638	751	
==>ush \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3441	3570	
==>e, refers to the current match, even if there is another
        match inside the closure
    $/()  
        just the capture - wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3452	3581	
==>e, refers to the current match, even if there is another
        match inside the closure
    $/()  
        just the capture - wh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3847	4023	
==>eference->new($val);  
            $closure->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref->fetch;            
        }
    }
    return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3001	3101	
==>== $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6478	6578	
==>== $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3117	3238	
==>lti sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3117	3238	
==>lti sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1382	1506	
==>ub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1958	2082	
==>ub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @nam <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6937	7056	
==>ion;
step
  descr  => "Querying Pugs for its version",
  ensure => sub { defined $pugs_version },
  using  => sub { $pug <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	196	289	
==>n";
print "$wer mag $obst[0] und $obst[1]\n";
print "${wer}s Lieblingsfarbe ist $lieblings{'Fa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6016	6116	
==>d channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6016	6116	
==>d channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1804	1917	
==>construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Wr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1789	1922	
==>m 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signatu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17102	17213	
==>it is this "Rosetta" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
impl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17102	17213	
==>it is this "Rosetta" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
impl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22897	22993	
==>botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22897	22993	
==>botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebod <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	446	619	
==>returns Duration {
    ...
}

#method infix:<->($self: Date $other) returns Duration {
    #$self.difference($other);
#}

#method infix:<->($self: Duration $duration) returns <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16277	16401	
==>if /[ <>;&\\\$'"]/;
  }
}

sub get_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Cou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13861	13994	
==>urn unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14140	14273	
==>urn unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13372	13481	
==>end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence obj <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13372	13481	
==>end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3393	3492	
==>eld_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3393	3492	
==>eld_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9671	9829	
==>/^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information funct <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9671	9829	
==>/^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information funct <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3621	3718	
==>HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3621	3718	
==>HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12979	13145	
==>\G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6454	6620	
==>\G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7388	7516	
==>'; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7400	7528	
==>'; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	681	795	
==>/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier in <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	681	795	
==>/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3621	3725	
==>case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3621	3725	
==>case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1887	2014	
==>gument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1887	2014	
==>gument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22811	22910	
==>n.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27363	27462	
==>n.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3127	3231	
==>laim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (An <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3185	3289	
==>laim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (An <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8117	8248	
==>if $Result12 != ToNumber($V);
            my $length = +($A.property_value{'length'});
            my $k;
            loop(;$k < $le <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15817	15945	
==>de";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15817	15945	
==>de";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1862	1990	
==>ngle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} . '"' 
        if exists $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	935	1030	
==>cted), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	935	1030	
==>cted), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	317	438	
==>{
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	317	438	
==>{
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1260	1367	
==>pared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:« <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1260	1367	
==>pared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:« <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9039	9137	
==>NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8174	8272	
==>hannels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8174	8272	
==>hannels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4494	4606	
==>n "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4494	4606	
==>n "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unles <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11531	11625	
==>eader("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11531	11625	
==>eader("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	970	1084	
==>unk = shift;

    # FIXME - in the future the compiler might allow adding globals
    # ought to check if the runti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2149	2248	
==>n_from($file) unless $self->perl_version;

    # The remaining probes read from POD sections; if the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15341	15450	
==>ce, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15341	15450	
==>ce, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7165	7267	
==>gnature from S29draft.pod 8651.  In the List section.
multi Array::grep (@values ;      Code *&test   - <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29840	29931	
==>the print summary code.

Implement Straps callbacks.  (experimentally implemented)

Straps-> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5358	5476	
==>pen   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5358	5476	
==>pen   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	359	477	
==>m->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	359	477	
==>m->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3261	3371	
==>h (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `ab <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3261	3371	
==>h (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `ab <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2488	2578	
==>$!";
upload_smoke($html_location);
if ($smoke_upload) {
  if (defined $smoke_upload_script) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1382	1479	
==>lue";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional progra <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1382	1479	
==>lue";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional progra <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22960	23110	
==>d label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42563	42713	
==>d label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	792	895	
==>t) syntax works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32355	32453	
==>reference of arguments to object() that will produce
its ending node:

  # the 'open' node's ender: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10492	10609	
==>tring.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10492	10609	
==>tring.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2076	2247	
==>y $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2136	2307	
==>y $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runt <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6707	6811	
==>when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event is fire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6707	6811	
==>when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event is fire <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2129	2250	
==>_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2046	2161	
==>_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10667	10792	
==>urn "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10661	10786	
==>urn "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24757	24876	
==><Alternative> <Term>
}
rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assert <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	262	361	
==>d doesn't support args atm

## Chapter 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pat <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1352	1453	
==>gs, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tag <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1352	1453	
==>gs, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tag <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4517	4648	
==>y $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4237	4401	
==>>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27182	27317	
==>bol->new('@:subclasses'))->push($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1578	1726	
==>ueue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1578	1726	
==>ueue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and comm <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2914	3013	
==>t;

	$self->{names}{$node->orig} ||= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar::U <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1861	1955	
==>TypeSafe::Annotation->new(
		type => $type,
		struct_equiv => Blondie::Val->new(
			Blondie::Ty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17176	17325	
==>tributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17176	17325	
==>tributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2330	2456	
==>socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2330	2456	
==>socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indic <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	958	1107	
==>] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fuseby <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	958	1107	
==>] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fuseby <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2806	2901	
==>y $full_blib = File::Spec->catfile($base, 'blib6', 'lib');
    open MAKEFILE, '< Makefile' or di <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4574	4680	
==>uration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4574	4680	
==>uration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	628	764	
==>ift;
        return $self;
    };
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5119	5220	
==>3{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5119	5220	
==>3{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25122	25225	
==><'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',}'>
    | <'{'> <DecimalDigits> < <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	50	139	
==>quire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	50	139	
==>quire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use inte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	783	891	
==>ch;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1..40 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6579	6789	
==>bility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6579	6789	
==>bility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8853	8997	
==>t, $length);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8853	8997	
==>t, $length);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26260	26394	
==>=> $rx->{flags}[-1],
      family => 'flags',
      type => 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $cl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1915	2226	
==>_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or error(
                                            "Could not open file '$file <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25196	25307	
==>ed because the test in pregexec() needs it and pregcomp() is computing
 * it anyway.
 * [regmust is now supplied <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7341	7444	
==>subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7341	7444	
==>subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5108	5247	
==>- cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5108	5247	
==>- cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $mat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4961	5064	
==>LSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This doc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4961	5064	
==>LSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This doc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25942	26031	
==>e::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->ne <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26185	26274	
==>e::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->ne <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1713	1818	
==>Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data::Dumper::Terse = 1;
		l <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13160	13253	
==>table macro, or otherwise support the
unary form C<delete %hash{$key}> in all it's forms. Belo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1807	1923	
==>1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; you can redistribute it and/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1807	1923	
==>1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; you can redistribute it and/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15383	15483	
==>_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15441	15541	
==>_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2713	2826	
==>cfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    prin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2713	2826	
==>cfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    prin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6005	6106	
==>ch we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6005	6106	
==>ch we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	207	329	
==>s >5 and reset to -1000';
}

my $thr2 = async {
    say "Thread 2 started";
    atomically {
        { $a > 100 or retry }\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2058	2162	
==>s all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1982	2081	
==>s all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13618	13736	
==>dText::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13618	13736	
==>dText::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5088	5217	
==>file.
            $index->dir->mkpath, $index->openw->close or error($!), return;
        }
        
        # load the existing i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1828	1929	
==>ll_from called with no args without setting name() first";
        $file = join('/', 'lib', split(/-/, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2928	3081	
==>SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1649	1785	
==>with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $args[-1]->to;
    my $str = substr($X::str,$from,$to-$from) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	802	918	
==>$class->SUPER::new();
    $obj->mk_accessors( qw[installations] );
    
    $obj->installations( \@inst );
    
    r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9130	9234	
==>'paramName'};
	push(@names6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5197	5344	
==>h = @_;
    
    my($from,$to);
    my $tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$fr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3256	3358	
==>, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3256	3358	
==>, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10061	10200	
==>ame;

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->ava <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3712	3826	
==>';
trig_func 'cosh';
trig_func 'tanh';
trig_func 'asinh';
trig_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2958	3086	
==>t;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2958	3086	
==>t;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @base <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3814	3941	
==>, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _optimize {
    my @ru <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4740	4860	
==>didates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.E <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18103	18212	
==>machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18103	18212	
==>machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no l <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	151	254	
==>n grammar.
#   * RegularExpressionLiteral has been added to Literal.
#     Since we dont have a separate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	450	551	
==>:en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	450	551	
==>:en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10393	10526	
==>gs and the libraries it needs to it.
HELP

  my @files = (
    [$pugs                 => "$initrd_mnt/bin/pugs"],
    ["$parrot_path/p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3106	3209	
==>ple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3106	3209	
==>ple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15579	15720	
==>tion$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15573	15714	
==>tion$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $sub <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4822	4920	
==>uarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org> <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4822	4920	
==>uarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	982	1243	
==>0 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	982	1243	
==>0 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16497	16594	
==>tegrated database functionality;
this language, which satisfies TTM's definition of a "D" language <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16497	16594	
==>tegrated database functionality;
this language, which satisfies TTM's definition of a "D" language <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29989	30086	
==>).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a sho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34541	34638	
==>).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a sho <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3044	3141	
==>-> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3044	3141	
==>-> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10189	10407	
==>n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        return  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1390	1486	
==>od

=head1 NAME

Blondie::ADTs - Reused abstract data types.

=head1 SYNOPSIS

	use Blondie::ADTs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16399	16493	
==>al named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16399	16493	
==>al named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24672	24775	
==>e, or (at your option) any later version.  You should have received a
copy of the GPL as part of the Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24672	24775	
==>e, or (at your option) any later version.  You should have received a
copy of the GPL as part of the Ros <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11873	12015	
==>my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11873	12015	
==>my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5426	5660	
==>}                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5426	5660	
==>}                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2284	2407	
==>= @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2424	2547	
==>= @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	83	186	
==>ge returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * test <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	83	186	
==>ge returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * test <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1359	1461	
==>d'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1359	1461	
==>d'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7581	7689	
==>aining data should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A defa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7581	7689	
==>aining data should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A defa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	45	141	
==>ntation in the __END__
use 5.006;
use strict;
use warnings;
use Module::Compile-base;
use File::B <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6678	6779	
==>cument>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For ea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6678	6779	
==>cument>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For ea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7584	7711	
==>echunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $res <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7584	7711	
==>echunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $res <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13355	13518	
==>::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13634	13797	
==>::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5749	5855	
==>atabase connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5749	5855	
==>atabase connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3409	3526	
==>his optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy liftin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3409	3526	
==>his optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy liftin <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	724	849	
==>cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	625	750	
==>cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2316	2409	
==>= Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2316	2409	
==>= Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17975	18073	
==>f more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17975	18073	
==>f more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4836	4948	
==>span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4836	4948	
==>span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23096	23203	
==>her packages like "gettext" it looks like you
are supposed to pass in english text and they translate it, wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23096	23203	
==>her packages like "gettext" it looks like you
are supposed to pass in english text and they translate it, wh <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1127	1228	
==>xt = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, bu <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1127	1228	
==>xt = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, bu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26479	26609	
==>ferences to other objects in them if you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26479	26609	
==>ferences to other objects in them if you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	48	141	
==>e warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use Pugs::G <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20365	20460	
==>he
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20365	20460	
==>he
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2078	2197	
==>in> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of scri <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2078	2197	
==>in> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of scri <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14292	14422	
==>($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=>"head")->push_content(
                HTML::Element-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15604	15716	
==>= cname
    pos = $I0 + 1
    goto end
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar")
  en <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35591	35705	
==>tion>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40141	40255	
==>tion>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24352	24449	
==>plying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24352	24449	
==>plying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5466	5572	
==>e;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5466	5572	
==>e;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43304	43407	
==>n::Example> is bundled with Relation and
provides a reference implementation of a Relation class.

These <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1	139	
==>!/usr/bin/pugs
use v6;

use URI::Escape <uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1	139	
==>!/usr/bin/pugs
use v6;

use URI::Escape <uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2659	2773	
==>hift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COP <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2659	2773	
==>hift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COP <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1289	1462	
==>t        = '.info';                          # Extension for meta files
$Metafile       = 'META' . $Metaext;                # file with MD in it
$Site           = $Root . $Co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1233	1347	
==>symbol->new('@:MRO'));
    # if nothing is in MRO, we take the superclasses
    # because we know that is there ... <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	51	298	
==>y packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Const <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	51	298	
==>y packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Const <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5200	5427	
==>ace, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5200	5427	
==>ace, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10413	10527	
==>"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10571	10685	
==>"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23760	23856	
==>with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23760	23856	
==>with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24174	24302	
==>n_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20595	20723	
==>n_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17617	17741	
==>eturn lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17617	17741	
==>eturn lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3377	3489	
==>ing is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3258	3365	
==>ing is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	771	939	
==>file( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T do <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	771	939	
==>file( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T do <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26053	26156	
==>pe {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2474	2608	
==>] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2474	2608	
==>] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2772	2870	
==>l_pugs = $self->pugs_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6', 'lib');
    op <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20696	20793	
==>losest to your
preference.  Presumably the messages in these files are looked up by the
program us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20696	20793	
==>losest to your
preference.  Presumably the messages in these files are looked up by the
program us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23167	23262	
==>use C<qr//>, or mix single-
and double-quoted strings in building your regex.

=back

=head1 AUT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22945	23127	
==>uleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23224	23406	
==>uleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2748	2851	
==>PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2748	2851	
==>PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13232	13348	
==>preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13232	13348	
==>preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14472	14581	
==>he N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4012	4111	
==>hod GetBase ($O:) { $.base_object }
    method GetPropertyName ($O:) { $.property_name }
}
# 8.7.1
m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1789	2062	
==>'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1789	2062	
==>'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $m <==
2	/Users/nnunley/pugs/util/run-smoke.pl	870	969	
==>v-client.pl'); 

chdir($pugs_sandbox) or die "Could change directory: $!";

# '.' needs to be at the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15186	15294	
==>upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $ne <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2072	2198	
==>@_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1181	1304	
==>@_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1867	1974	
==>d;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37529	37636	
==>t significant to the result;
the new Relation is the result of combining all of the source Relations,
such t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42078	42185	
==>t significant to the result;
the new Relation is the result of combining all of the source Relations,
such t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9977	10104	
==>,

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9977	10104	
==>,

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11455	11546	
==>∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

R <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11455	11546	
==>∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23512	23608	
==>is property and/or
same-named accessor method can be used to see if a Relation-doing object
can m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28064	28160	
==>is property and/or
same-named accessor method can be used to see if a Relation-doing object
can m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4269	4378	
==>eturns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the match object retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4269	4378	
==>eturns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the match object retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9832	9952	
==>ch::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9826	9946	
==>ch::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$mat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2779	3001	
==>. 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:superclass'}) {
                    $eigenclass <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7075	7241	
==>e (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have some <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7539	7705	
==>e (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have some <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38139	38233	
==>_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38139	38233	
==>_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15827	15926	
==>ny.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15827	15926	
==>ny.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_nod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11855	11966	
==>line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11855	11966	
==>line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5167	5283	
==>>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2709	2825	
==>>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5830	5940	
==>ate %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5830	5940	
==>ate %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24559	24669	
==>>{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch insid <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20980	21090	
==>>{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch insid <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	967	1069	
==>ode;

*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $bod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24915	25008	
==>2110-1301, USA.

Linking Rosetta statically or dynamically with other components is making a
c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24915	25008	
==>2110-1301, USA.

Linking Rosetta statically or dynamically with other components is making a
c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10475	10696	
==>Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$i <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	714	836	
==>p { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" } <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	187	289	
==>tor
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	187	289	
==>tor
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4970	5103	
==>),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4970	5103	
==>),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1018	1159	
==>t, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixity} <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4121	4250	
==>ach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{no_inde <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3947	4044	
==>Config::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3947	4044	
==>Config::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12264	12385	
==>q '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4907	5028	
==>q '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->for <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1843	1936	
==>ke C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1843	1936	
==>ke C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3457	3581	
==>tored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3457	3581	
==>tored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($pat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4496	4582	
==>[\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4496	4582	
==>[\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2166	2264	
==>s.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the eas <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2166	2264	
==>s.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the eas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	493	631	
==>);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	493	631	
==>);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2488	2602	
==>(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2488	2602	
==>(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2613	2748	
==>le_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remov <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2613	2748	
==>le_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remov <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37418	37533	
==>r.  The
argument is a true or false value determining whether this is a positive
assertion.  Here's the new class fo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15604	15697	
==>Expression>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	762	863	
==>ectory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	762	863	
==>ectory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6284	6382	
==>l($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a co <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6284	6382	
==>l($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8736	8873	
==>umper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9571	9708	
==>umper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    prin <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1523	1620	
==>RS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. T <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1523	1620	
==>RS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. T <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18355	18561	
==>nt_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_content($i, 1, $1, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38879	39028	
==>$e->get('$self:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3730	3982	
==>etta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portabilit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3730	3982	
==>etta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portabilit <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8196	8301	
==>ined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8254	8359	
==>ined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14717	14821	
==>t POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8918	9022	
==>t POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10661	10772	
==>table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10661	10772	
==>table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17617	17713	
==>modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the rea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17617	17713	
==>modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the rea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2130	2234	
==>DO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2130	2234	
==>DO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1061	1241	
==>if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1061	1241	
==>if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2237	2348	
==>send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2237	2348	
==>send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7150	7304	
==>uleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7343	7497	
==>uleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26436	26532	
==>'re sure the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $parser->object(TY <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2037	2118	
==>but_not_alias { <subrule>|<capturing_group>|<noncapturing_group>|<quantified_const <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2104	2217	
==>>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2104	2217	
==>>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10420	10502	
==>sLValue=>$isLValue, isWritable=>$isWritable, isLazy=>$isLazy, paramName=>$paramName <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4486	4639	
==>$.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        els <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4486	4639	
==>$.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        els <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20332	20460	
==>ts

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum"] = $I0

    if self != "(" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9080	9202	
==>ackage required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @l <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10557	10679	
==>ackage required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4789	4888	
==>e join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5039	5138	
==>e join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rule <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3137	3250	
==>ram<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3137	3250	
==>ram<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4218	4342	
==>self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4218	4342	
==>self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16606	16698	
==>bed fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16606	16698	
==>bed fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9288	9459	
==>$i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$no <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10279	10450	
==>$i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$no <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11273	11393	
==>s and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11273	11393	
==>s and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3691	3842	
==>);
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3691	3842	
==>);
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5500	5649	
==>cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $arra <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5500	5649	
==>cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $arra <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1270	1492	
==>/$Metafile $Repodir/$meta_info] )
                                                                and die $?;
            system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### copy t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1417	1554	
==>rule(
        name => '!',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3649	3746	
==>right x for p2');
is($p2->get_y, 200, '... still got the right y for p2');
is($p1->get_x, 15, '... <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1463	1557	
==>if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1603	1697	
==>if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{captur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12937	13037	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12937	13037	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of th <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	713	821	
==>issue to <perl6-compiler\@perl.org>.
.
        require "$self->{path}/$self->{dispatch}.pm";
        File::Pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3506	3608	
==>($method, $glob) = each %{ref($obj) . '::'}) {
            next unless exists &{ref($obj).'::'.$method} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12016	12136	
==>class, $rx, $min, $max, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	352	450	
==>Path;
use File::Basename;
use Getopt::Long;
use IO::File;
use HTML::Template;
use HTML::TreeBuilder <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39867	39965	
==>s
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the Lic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39867	39965	
==>s
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the Lic <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2069	2217	
==>"undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2069	2217	
==>"undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23814	23925	
==>eam table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x1 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29002	29101	
==>eam table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1958	2111	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2151	2304	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1247	1361	
==>ues;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1247	1361	
==>ues;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10543	10651	
==>current()`, and `reset()` methods.

If the set is "continuous", this method emits a warning and returns undef <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10543	10651	
==>current()`, and `reset()` methods.

If the set is "continuous", this method emits a warning and returns undef <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19128	19240	
==>(not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19128	19240	
==>(not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11893	12015	
==>rule_text:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, po <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9155	9314	
==>thod", $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current", $e->get("&dispatcher")->do()); 
            })-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20240	20345	
==>.local pmc reps, exp
    .local string cname
    .local int cutnum, padarray, isarray, subpats

    cutnum <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9268	9369	
==>only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9268	9369	
==>only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~ch <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1236	1332	
==>d modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currentl <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1236	1332	
==>d modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currentl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5640	5774	
==>,
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5640	5774	
==>,
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4658	4845	
==>.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are no <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4658	4845	
==>.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are no <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	43	217	
==>ist::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	for @values -> $x {
	    take $x if $x ~~ $test;
	}
    }
}


# copied from S29draft.pod 8651.
multi  List:: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8525	8664	
==>ist::grep (MatchTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3884	4007	
==>eturn. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Pr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3884	4007	
==>eturn. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32013	32117	
==>s in turn, looking at just the set member for
each that corresponds to language A, looking for a match to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32013	32117	
==>s in turn, looking at just the set member for
each that corresponds to language A, looking for a match to <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13756	13874	
==>ody = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1236	1354	
==>ody = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7058	7159	
==>$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7058	7159	
==>$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kick <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2795	2977	
==>n $passed;
        },        
        'skip' => sub { 
            my ($self, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $nu <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13023	13109	
==>","/"). brackets("!","!"). brackets("=","=").
brackets("?","?"). brackets("#","#").
bra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20725	20829	
==>resumably the messages in these files are looked up by the
program using keys.  Mac OS X (and the previou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20725	20829	
==>resumably the messages in these files are looked up by the
program using keys.  Mac OS X (and the previou <==
2	/Users/nnunley/pugs/util/func_refact.pl	1872	2017	
==>bose} or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2265	2369	
==>Text::Balanced::extract_delimited( '"' . $_[0], '"' );
    $extracted = substr( $extracted, 1, -1 ) if le <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	590	693	
==>mes you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	590	693	
==>mes you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1556	1739	
==>e:<if>'),
							App(
								Sym('&infix:<==>'),
								Sym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thun <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	816	921	
==>osetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	816	921	
==>osetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do exp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	770	888	
==>his kind of application easy(er).

# Bootstrap to a new, simpler, ast.  Regexp::Parser's
# Perl6::Rule::Parser does NOT <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	77	181	
==>aa"

#=der xx Operator
# neu in Perl 6 ist der xx Operator
# so wie x Strings wiederholt, wiederholt xx l <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22167	22266	
==>ar_type(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (char_type(C,space) ; C = 11), !. %\v chr(1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4709	4819	
==>f Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8186	8296	
==>f Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8034	8190	
==>elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8046	8202	
==>elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19755	19856	
==>tatements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19755	19856	
==>tatements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10583	10684	
==>::Model Nodes are arranged correctly
depending on their types, that their attributes have reasonable v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10583	10684	
==>::Model Nodes are arranged correctly
depending on their types, that their attributes have reasonable v <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2937	3052	
==>BSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2029 } <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3161	3257	
==>ie << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3161	3257	
==>ie << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7734	7912	
==>ethod: ", Dumper( $n );
            return " " . _emit( $n->{method} ) .
                '(' .
                join ( ",\n", 
                    map { _emit( $_ ) } ( $n->{se <==
2	/Users/nnunley/pugs/util/package-osx.pl	8068	8165	
==>erl6::Spec::Package.3pm
        /usr/local/man/man3/Perl6::Spec::Rule.3pm
        /usr/local/man/m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7679	7827	
==>e' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7679	7827	
==>e' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5244	5339	
==>edText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5244	5339	
==>edText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale: <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1390	1524	
==>r (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallb <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1357	1491	
==>r (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13820	13927	
==>t' node
    if ($tree->[-1]->family eq "exact" and @{ $tree->[-1]->{data} } > 1) {
      my $d = pop @{ $tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14165	14260	
==>m RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_B <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10923	11060	
==>r.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10923	11060	
==>r.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35830	35927	
==>mbines it with the
invocant relation into a new Relation, such that all common attribute names
and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40380	40477	
==>mbines it with the
invocant relation into a new Relation, such that all common attribute names
and <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1595	1706	
==>( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31395	31493	
==>first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be dis <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31395	31493	
==>first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be dis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20321	20437	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20600	20716	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::ge <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1079	1227	
==>6_applym
       p6_return_CODE
       p6_catch_return_CODE
       p6_loop_CODE
       p6_last_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8570	8686	
==>rd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/tmp"
    );
  };

if( <==
2	/Users/nnunley/pugs/util/package-osx.pl	4271	4382	
==>::Bible::E04.3pm
        /usr/local/man/man3/Perl6::Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2542	2651	
==>glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2542	2651	
==>glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2634	2761	
==>nt
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2634	2761	
==>nt
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	272	401	
==>am that reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thun <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3696	3809	
==>str' if !((~$x & $x) eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref =~ /\ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11815	11935	
==>.to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = index tar <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	810	913	
==>ule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+? }

rule term { <comment> | <alt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	413	545	
==>brule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinki <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	413	545	
==>brule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinki <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3176	3296	
==>header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes perl5

* perl5 will call the C<v6.pm> module.

This is an in <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17718	17829	
==>package Digest;

sub compute {
    my $class = shift;
    my $thunk = shift;

    use Data::Structure::Util qw/s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	147	239	
==>nstant PGE_OPTABLE_TERM => 1;
use constant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2144	2255	
==>ERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL::isa( $dep <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	4	112	
==>ss Perl::Param;

# from src/Pugs/AST/Internals.hs (see line starting "data Param")

has Bool $isInvocant;
has <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2897	3059	
==>}
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2897	3059	
==>}
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2230	2336	
==>e.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2230	2336	
==>e.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth! <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	37	152	
==>modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	37	152	
==>modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3306	3426	
==>intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3306	3426	
==>intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11739	11870	
==>= @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4382	4513	
==>= @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5129	5286	
==>stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3406	3547	
==>p->('build');
    die "Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4110	4252	
==>o remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4110	4252	
==>o remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18517	18611	
==>me>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessaril <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18517	18611	
==>me>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessaril <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	541	658	
==>nywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	541	658	
==>nywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14804	14918	
==>r")
    mob["value"] = "$"
    goto end
  scalar:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar") <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16197	16308	
==>cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) }

cond: generic_in($.if) = { generic_in($$) }
con <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3999	4102	
==>edia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3999	4102	
==>edia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10982	11083	
==>rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNumericLite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25988	26090	
==>if
the parser object is the first value in C<@_>.>  I made sure of this in
my code; you should make sur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4556	4670	
==>elf.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.in <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4556	4670	
==>elf.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21137	21251	
==>ach tuple are all the same as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25689	25803	
==>ach tuple are all the same as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4075	4194	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4268	4387	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16561	16679	
==>le;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it w <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16561	16679	
==>le;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1104	1200	
==>DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatible with B< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1104	1200	
==>DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatible with B< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	564	823	
==>} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Locali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	564	823	
==>} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Locali <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4097	4213	
==>lit " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4097	4213	
==>lit " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  % <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41173	41270	
==>odules into the same files as
program code, rather than requiring separate files.

=item Stevan Li <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41173	41270	
==>odules into the same files as
program code, rather than requiring separate files.

=item Stevan Li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5085	5190	
==>e ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5085	5190	
==>e ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is r <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4799	4897	
==>explicit_class  { \< <character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1243	1342	
==>e numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1243	1342	
==>e numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	471	578	
==>change to kwid? - easier to indent (but not supported by p5 by default)

### move definitions to end-of-file <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	445	551	
==>change to kwid? - easier to indent (but not supported by p5 by default)
### move definitions to end-of-file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2106	2227	
==>), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2094	2215	
==>), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4280	4372	
==>Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
repres <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4280	4372	
==>Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
repres <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4771	4875	
==>l.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5021	5125	
==>l.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

Th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35160	35252	
==>t (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39710	39802	
==>t (Relation $other!) returns Relation>

This multi-method is a generic binary relational oper <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9929	10032	
==>eturns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `compare( $objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9929	10032	
==>eturns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `compare( $objec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1484	1580	
==>idental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1484	1580	
==>idental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchl <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1827	1961	
==>$x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( ab <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2364	2498	
==>$x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( ab <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1579	1678	
==>ture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a ne <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1579	1678	
==>ture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8585	8694	
==>of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module_name).doe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8585	8694	
==>of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module_name).doe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18838	18943	
==>ias for this method so you
can avoid this misspelling in your programs and still send the right
thing on t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18838	18943	
==>ias for this method so you
can avoid this misspelling in your programs and still send the right
thing on t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2516	2649	
==>receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2516	2649	
==>receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	143	550	
==>osetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	143	550	
==>osetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::En <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2448	2563	
==>et, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2448	2563	
==>et, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1308	1646	
==>$!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1308	1646	
==>$!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4457	4561	
==>rocedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4457	4561	
==>rocedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  req <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17927	18037	
==>m handling the request.

=item $h.from

This header should contain an Internet e-mail address for the human
use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17927	18037	
==>m handling the request.

=item $h.from

This header should contain an Internet e-mail address for the human
use <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18117	18217	
==>".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the user, s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18117	18217	
==>".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the user, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1047	1174	
==>ompile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1047	1174	
==>ompile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25373	25482	
==>ent at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25373	25482	
==>ent at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This <==
2	/Users/nnunley/pugs/util/version_h.pl	1878	1975	
==>pened a new file ($version_h) without turning
  # "io" warnings off, perl will print "Filehandle S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	754	889	
==>TTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	754	889	
==>TTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9137	9255	
==>an 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9195	9313	
==>an 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5838	5923	
==>start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(condition(Rk,R1,R2)) --> "(?", p5_con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	441	538	
==>:Generator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7507	7607	
==>sts.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy lis <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7507	7607	
==>sts.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy lis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4669	4776	
==>use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4669	4776	
==>use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	175	294	
==>gs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3956	4064	
==>tr) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3956	4064	
==>tr) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12470	12628	
==>v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $c = $_[0];
        FAIL() if <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3031	3134	
==>=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPS <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3031	3134	
==>=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10960	11060	
==>nt object is a simple container which stores data to be used or
displayed by your program.  It is ana <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10960	11060	
==>nt object is a simple container which stores data to be used or
displayed by your program.  It is ana <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8345	8441	
==>ready inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns th <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8345	8441	
==>ready inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1310	1431	
==>';' list_right  { $out= [ $_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14634	14739	
==>$self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prep <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2115	2220	
==>$self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prep <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3401	3543	
==>span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3401	3543	
==>span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12732	12855	
==>uce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5278	5388	
==>erclasses;
    has %:private_methods;
    has %:attributes;
    has %:methods;
}

(class (Class)
    ((attribut <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5672	5783	
==>b gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = "";
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	542	638	
==>conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	542	638	
==>conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information. <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4374	4524	
==>afe   (Array)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   List      pre     pair    safe   ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10070	10179	
==>ethod get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.par <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10070	10179	
==>ethod get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.par <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3714	3813	
==>ence($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3714	3813	
==>ence($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	932	1055	
==>you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.pri <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	932	1055	
==>you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.pri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11330	11461	
==>\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11330	11461	
==>\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7437	7589	
==>[ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7437	7589	
==>[ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	401	505	
==>this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	401	505	
==>this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2872	2973	
==>Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2930	3031	
==>Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	1	101	
==>use v6;

class Perldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
us <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	1	101	
==>use v6;

class Perldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
us <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1146	1253	
==>put', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wi <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1146	1253	
==>put', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_wi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15238	15352	
==>exist then C<undef> is returned.

Methods that deal with dates/times always convert their value to system
time (sec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15238	15352	
==>exist then C<undef> is returned.

Methods that deal with dates/times always convert their value to system
time (sec <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1445	1554	
==>ram<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1445	1554	
==>ram<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5586	5710	
==>round for it.

        my $slash = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${ <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	227	339	
==>e instance of POE::Kernel."
      if defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method wh <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	923	1020	
==>hat C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	923	1020	
==>hat C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perld <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24339	24440	
==>opControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my($x) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16408	16500	
==>\d>, etc.  Then this
example would be reversed into something like C</(\w+(?<!\d))(\d+)/>.
Th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1369	1459	
==>e parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1369	1459	
==>e parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8932	9048	
==>Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8932	9048	
==>Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38782	38891	
==>hed by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38782	38891	
==>hed by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9760	9924	
==>_dir->file( $script ); 
        }      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### make sur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9377	9519	
==>bol $label) returns nil { 
    %:methods.delete($label);
}

(method remove_method ((opaque $self:) (symbol $label)) returns nil
    ((($self: g <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13383	13494	
==>d );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the resu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13383	13494	
==>d );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the resu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15751	15859	
==>if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2148	2256	
==>if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13574	13708	
==>1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = substr targe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9058	9190	
==>";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9058	9190	
==>";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8334	8463	
==>];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} eq 'unless' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7487	7613	
==>'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7680	7806	
==>'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2684	2803	
==>n $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2672	2791	
==>n $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	981	1128	
==>eld, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	981	1128	
==>eld, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t] <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	418	514	
==>head1 NAME

Test::Harness::Straps - detailed analysis of test results

=head1 SYNOPSIS

  use Tes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1488	1635	
==>UERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1488	1635	
==>UERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else { <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1984	2123	
==>00+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DA <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28983	29076	
==>ng test scripts from the command line,
L<Test> and L<Test::Simple> for writing test scripts, L <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	299	397	
==>Scheme/pure-oo-system.scm

I ended up removing the "purely functional" aspects of it in favor of 
a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23311	23402	
==>ts of
multiple different Relation-implementing classes are used together, and
each doesn't k <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2863	2999	
==>nce_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaqu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3068	3204	
==>nce_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaqu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1816	1908	
==>confess "Division by zero error";
    return num->new(int($left->to_native / $right->to_num-> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1914	2013	
==>L::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1914	2013	
==>L::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	198	294	
==>".say;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$welt.hallo($person);
$w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6697	6848	
==>ragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6697	6848	
==>ragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2182	2325	
==>r error( Params::Check->last_error ), return;
    
        ### make the path absolute
        ### XXX path::class doesn't seem to have a rel2abs <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34393	34492	
==>d has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38943	39042	
==>d has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns R <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	424	525	
==>$IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_met <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	424	525	
==>$IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_met <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	872	979	
==>epts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::List::revers <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	872	979	
==>epts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::List::revers <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6533	6630	
==>e_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6533	6630	
==>e_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30221	30320	
==>espond
to Message Variables, which will be substituted at run-time before the text
is shown to the u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30221	30320	
==>espond
to Message Variables, which will be substituted at run-time before the text
is shown to the u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2254	2396	
==>ol = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15630	15732	
==>or example, a native French or Chinese speaker often prefers to
communicate in those languages.  Or, wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15630	15732	
==>or example, a native French or Chinese speaker often prefers to
communicate in those languages.  Or, wh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1435	1576	
==>=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        re <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8187	8299	
==>file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $switches $file";

    return $line;
}


=head2 C< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7965	8166	
==>( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @fou <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8429	8630	
==>( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @fou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3499	3637	
==>ay
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3487	3625	
==>ay
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5993	6125	
==>\n}");

		return $symbol;
	} else {
		$self->reduce($thunk->val);
	}
}

sub reduce_sym {
	my $self = shift;
	my $node = shift;

	$sel <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5683	5788	
==>_root = "$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "*** ghc not found in path.  Looking in $ghc_root\n" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2594	2693	
==>onal arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method fr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2594	2693	
==>onal arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method fr <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3022	3157	
==>/\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    print "}\n\\end{block}\n" if $inblock <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	321	414	
==>ated = $self->annotate($c);
	my $c_code = $self->emit($type_annotated);
	my $main = $self->bin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9328	9453	
==>es --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur) <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	724	847	
==>es --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5464	5580	
==>trol_structure:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$left_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1368	1464	
==>ess_smoke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12681	12782	
==>ts represent "chunks" of data, such as date objects without the time part.

Discrete spans take a "uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12681	12782	
==>ts represent "chunks" of data, such as date objects without the time part.

Discrete spans take a "uni <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	998	1102	
==>onal, procedural, and object-oriented interfaces.  The 
functional and object-oriented interfaces both fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	998	1102	
==>onal, procedural, and object-oriented interfaces.  The 
functional and object-oriented interfaces both fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9646	9772	
==>name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9646	9772	
==>name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2632	2765	
==>m 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2632	2765	
==>m 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11358	11465	
==>Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11358	11465	
==>Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1429	1590	
==>ake $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0x000000ff;
        }
    }
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1429	1590	
==>ake $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0x000000ff;
        }
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3544	3654	
==>r) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3544	3654	
==>r) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	326	431	
==>);
    Perl6::Run::OnPerl5::X1::Prelude::initialize();
#    END { p6_apply(p6_var('&*END')); }
}
initializ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	878	1058	
==>LD (Mapping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1	106	
==>!/usr/bin/perl

package Blondie::Runtime;

use strict;
use warnings;

use UNIVERSAL::require;

use Blondie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4361	4545	
==>ure};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4229	4407	
==>ure};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1507	1603	
==>itical path is currently more oo than rules, my time
is limited, and there are other bootstrap ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2067	2169	
==>'*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'lef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2067	2169	
==>'*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'lef <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2512	2638	
==>( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2512	2638	
==>( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $s <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1172	1273	
==>{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1172	1273	
==>{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12061	12258	
==>_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12061	12258	
==>_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS', <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6124	6235	
==>e!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9601	9712	
==>e!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	473	581	
==>return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	473	581	
==>return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	397	516	
==>utines are prefixed with pmc_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine whi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	397	516	
==>utines are prefixed with pmc_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine whi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	400	654	
==>{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	400	654	
==>{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28777	28884	
==>/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28777	28884	
==>/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyA <==
2	/Users/nnunley/pugs/util/package-osx.pl	9104	9207	
==>"${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1810	1914	
==>rt {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1868	1972	
==>rt {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4728	4931	
==>tch");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4728	4931	
==>tch");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cook <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	253	347	
==>LATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	253	347	
==>LATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers: <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1765	1859	
==>::Subscription {
    has Class::Events::Publisher $.publisher;
    has Class::Events::Subscribe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19899	19993	
==>de has been parsed into blocks and the blocks have been
marked for various compilers, Module::C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19899	19993	
==>de has been parsed into blocks and the blocks have been
marked for various compilers, Module::C <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6337	6472	
==>st ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<" <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	787	916	
==>C package
    for use with other Haskell programs, type '$Config{make} register'.
.
    }
    else {
        print << ".";
*** Ins <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6135	6267	
==>_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7133	7265	
==>_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2544	2671	
==>enerated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2544	2671	
==>enerated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9941	10037	
==>erred".  The immediate validations
are performed at the moment the user tries to set the input, a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9941	10037	
==>erred".  The immediate validations
are performed at the moment the user tries to set the input, a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5263	5364	
==>eroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5263	5364	
==>eroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	435	526	
==>aders

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encodi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	435	526	
==>aders

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encodi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10573	10676	
==>uence>
}
rule RegularExpressionChar {  # see 7.8.5
      <!before <[\\\/]>> <NonTerminator>
    | <Backs <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4422	4530	
==>@bsrStack, "bsr_token_match_2";
    goto token_match;
    bsr_token_match_2:
    goto found_term if $operator <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	790	896	
==>ged to cc_optimize_flags for consistency reasons";
	shift()->cc_optimize_flags(@_);
}

1;

__END__

#line 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3982	4081	
==>rammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4166	4265	
==>rammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - D <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	421	513	
==>terminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not rec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3045	3156	
==>~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # wo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3045	3156	
==>~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # wo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3497	3596	
==>p2');

$p->clear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8036	8130	
==>ead2 assert_ghc_pkg

Assert that we have F<ghc_pkg> installed.  This caches its result,
any fur <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18946	19052	
==>E::Exp::Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .local pmc ex <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3989	4116	
==>is dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4453	4580	
==>is dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	159	298	
==>$reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descr <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	159	298	
==>$reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11351	11458	
==>*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11351	11458	
==>*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8601	8699	
==>DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8601	8699	
==>DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14114	14215	
==>ich
characters to consider unsafe (i.e., which to escape). The default set
of characters to encode are <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14114	14215	
==>ich
characters to consider unsafe (i.e., which to escape). The default set
of characters to encode are <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5646	5782	
==>inator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                - <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5646	5782	
==>inator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                - <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5352	5454	
==>for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5352	5454	
==>for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5428	5547	
==>> sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5428	5547	
==>> sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multid <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	696	797	
==>intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	696	797	
==>intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_star <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15699	15848	
==>.
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15699	15848	
==>.
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	107	205	
==>::Harness::Straps;

use strict;
use vars qw($VERSION);
use Config;
$VERSION = '0.20';

use Test::Ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12928	13075	
==>e_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12928	13075	
==>e_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	258	413	
==>copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	258	413	
==>copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3091	3244	
==>$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3091	3244	
==>$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tm <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7058	7210	
==>s.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5559	5711	
==>s.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8952	9065	
==>invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12429	12542	
==>invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!hea <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10766	10907	
==>return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10766	10907	
==>return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	750	849	
==>es not support enciphering individual bits.  Also note that the 
Cipher API operates at the byte lev <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	750	849	
==>es not support enciphering individual bits.  Also note that the 
Cipher API operates at the byte lev <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1447	1552	
==>~ /[:digit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3592	3727	
==>$.output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6223	6351	
==>} else {
            $self->{_child_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	533	634	
==>::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general informat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	533	634	
==>::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general informat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5138	5264	
==>num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5138	5264	
==>num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11109	11220	
==>)
      # $8  captures the closing delimiter (provided only one delimiter was specified)
      my $reopts   = $9 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2222	2350	
==>t> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2222	2350	
==>t> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17615	17782	
==>}{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward till we find a rege <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4	108	
==>kage Perl6::Core::List;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2837	2957	
==>res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2837	2957	
==>res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9306	9403	
==>ng entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9306	9403	
==>ng entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	405	537	
==>: "skipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $pri <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12124	12221	
==>ronment variable.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7666	7768	
==>(which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7666	7768	
==>(which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11807	11910	
==>R;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11807	11910	
==>R;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg( 'L <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4527	4813	
==>");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            giv <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4527	4813	
==>");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            giv <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5525	5636	
==>ode_named{$name} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init() <==
2	/Users/nnunley/pugs/util/config_h.pl	1088	1184	
==>X 1\n";
}

my $has_readline = try_compile(<< '.');
import System.Console.Readline
main :: IO ()
m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12942	13038	
==>an C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

R <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12942	13038	
==>an C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	865	985	
==>bs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	865	985	
==>bs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1813	1922	
==>defined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expect <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1813	1922	
==>defined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expect <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14164	14281	
==>res data to be used or
displayed by your program.  It is analagous to a simplified version of the
"Node" interface def <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14164	14281	
==>res data to be used or
displayed by your program.  It is analagous to a simplified version of the
"Node" interface def <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	745	841	
==>t ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	745	841	
==>t ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
2	/Users/nnunley/pugs/util/package-osx.pl	7077	7174	
==>l/man/man3/Perl6::Perl5::Docfinder.3pm
        /usr/local/man/man3/Perl6::Pugs.3
        /usr/loca <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1738	1879	
==>th - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1738	1879	
==>th - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12461	12607	
==>nt/$_" or return for @pge; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          m <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	427	567	
==>Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Dur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1395	1505	
==>:Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    ha <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1395	1505	
==>:Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22921	23013	
==>umentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIG <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22921	23013	
==>umentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIG <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1777	1882	
==>thod clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Has <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1777	1882	
==>thod clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Has <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16691	16793	
==>a" distribution.

While it is possible that one could write a self-contained application in
Rosetta D a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16691	16793	
==>a" distribution.

While it is possible that one could write a self-contained application in
Rosetta D a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1058	1182	
==>ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1058	1182	
==>ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5663	5775	
==>sults.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is implemented within the C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5663	5775	
==>sults.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is implemented within the C <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26359	26447	
==>quire Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($Language: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5131	5262	
==>e: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5131	5262	
==>e: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15963	16099	
==>: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute mob, "PGE::Mat <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7247	7355	
==>Searching for module files",
  ensure => sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^\Q <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	846	1005	
==>)} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 .. $#{$self->g <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7717	7853	
==>lar)\
\\n   List      non     ^..     safe   (Scalar, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6434	6537	
==>id';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6434	6537	
==>id';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32987	33086	
==>=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more eleme <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32987	33086	
==>=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more eleme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	412	572	
==>e Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	396	549	
==>e Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6328	6470	
==>, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! ' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6386	6528	
==>, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! ' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9559	9725	
==>";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is primitive".
macro rxbare_ ($pat) is builtin is safe {
    rx_common_("pugs_internals_rxbare",hash(),$ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	339	457	
==>elf:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	339	457	
==>elf:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5302	5486	
==>$_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5302	5486	
==>$_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10732	10865	
==>t, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10732	10865	
==>t, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15422	15520	
==>by extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15422	15520	
==>by extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the N <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	27	145	
==>ler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	27	145	
==>ler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl:: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4050	4147	
==>et::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4050	4147	
==>et::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	14	116	
==>ipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	14	116	
==>ipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9438	9637	
==>~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9438	9637	
==>~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2355	2502	
==>eader ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2355	2502	
==>eader ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16054	16167	
==>ates the date and time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16054	16167	
==>ates the date and time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13643	13814	
==>g( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13643	13814	
==>g( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3257	3373	
==>le($self, $level, $default) .
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n";
}

sub _quoteme <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	705	843	
==>void
        # long if/elsif/else chains
        given $tok {
            when '+' { @stack.push($y + $x) }
            when '-' { @stack.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	153	283	
==>nt RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not implemented';
use constant RPe_NOTERM => --$ENUM, 'Sequence (?#... not terminate <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34404	34496	
==>es named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38954	39046	
==>es named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1794	1902	
==>( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1794	1902	
==>( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	432	523	
==>rint("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=U <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	432	523	
==>rint("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=U <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15442	15616	
==>natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18919	19093	
==>natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relatio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1629	1733	
==>osure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1629	1733	
==>osure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previou <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	67	167	
==>is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	67	167	
==>is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17769	17883	
==>rgs, $name);
}

sub can_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	366	619	
==>one Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	366	619	
==>one Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19909	20002	
==>n parsed into blocks and the blocks have been
marked for various compilers, Module::Compile di <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19909	20002	
==>n parsed into blocks and the blocks have been
marked for various compilers, Module::Compile di <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15564	15661	
==>_entity and the %entity_to_char hashes,
which contain the mapping from all characters to the corre <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15564	15661	
==>_entity and the %entity_to_char hashes,
which contain the mapping from all characters to the corre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1052	1209	
==>ame;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.po <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1052	1209	
==>ame;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.po <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7063	7244	
==>nion;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10540	10721	
==>nion;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13179	13342	
==>->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13173	13336	
==>->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3943	4053	
==>Obj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19504	19596	
==>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19504	19596	
==>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18068	18237	
==>s $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$cl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	357	466	
==>_number($value)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# conversio <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1390	1486	
==>microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/S <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1230	1326	
==>microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/S <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2239	2429	
==>rerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Ro <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12860	12949	
==>id="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a style="text-decoration: n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7476	7575	
==>iphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7476	7575	
==>iphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22634	22731	
==>lus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contain <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27186	27283	
==>lus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contain <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	478	592	
==>->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  ### BACKSLAS <==
2	/Users/nnunley/pugs/util/package-osx.pl	11526	11639	
==>split /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    print <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1816	1917	
==>od capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while se <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1816	1917	
==>od capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9966	10081	
==>ext! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9966	10081	
==>ext! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'int <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2099	2213	
==>MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2099	2213	
==>MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	52	153	
==>indByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @pat <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	52	153	
==>indByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @pat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	101	209	
==>grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex bl <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	101	209	
==>grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex bl <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	771	907	
==>rent_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	771	907	
==>rent_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17048	17147	
==>content_length

A decimal number indicating the size in bytes of the message content.

=item $h.cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17048	17147	
==>content_length

A decimal number indicating the size in bytes of the message content.

=item $h.cont <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16731	16839	
==>its results for calling code to output as it sees fit.  It
also does not make direct use of environment varia <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16731	16839	
==>its results for calling code to output as it sees fit.  It
also does not make direct use of environment varia <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3962	4061	
==>ate::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3962	4061	
==>ate::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3346	3448	
==>/without a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All metho <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3346	3448	
==>/without a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All metho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10201	10302	
==>my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10201	10302	
==>my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10654	10742	
==>self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%option <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10654	10742	
==>self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%option <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2710	2811	
==>ndler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3283	3384	
==>ndler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5914	6016	
==>ndler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5602	5704	
==>ndler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3595	3696	
==>ndler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	460	591	
==>LIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	460	591	
==>LIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2974	3094	
==>ure( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2985	3105	
==>ure( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15947	16055	
==>solution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2340	2448	
==>solution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2223	2329	
==>s of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2223	2329	
==>s of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5697	5811	
==><'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <Rese <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1816	1935	
==>::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1816	1935	
==>::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $m <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	386	490	
==>Y

You should use this module as a starting point to base
a new module distribution on.

= AUTHORS

Brian <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7539	7653	
==>fig{"output-file"}]
    --dry, -n               Show which tests would be run but don't run them
    --concurrent=N <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28649	28740	
==>se=0; runtests @ARGV;' t/*.t
  Using /home/schwern/src/devel/Test-Harness/blib
  t/base..... <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27973	28072	
==>t α → list β", ":t map");
is(t($list_plus_ten), "list int → list int", ":t map (\\x -> 10 + x) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4260	4347	
==>AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*1677721 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4260	4347	
==>AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*1677721 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18308	18413	
==>add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and logi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18308	18413	
==>add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and logi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	624	724	
==>xt 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	624	724	
==>xt 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9460	9665	
==>ber,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          return ::Test::Builder <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	769	891	
==>warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    requ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	736	858	
==>warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    requ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	336	444	
==>OD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	336	444	
==>OD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	353	542	
==>tus_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	353	542	
==>tus_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1380	1479	
==>de ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1380	1479	
==>de ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33301	33408	
==>is found.  Since a
program or library may wish to override the user text of another library
which it uses, t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33301	33408	
==>is found.  Since a
program or library may wish to override the user text of another library
which it uses, t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15410	15614	
==>2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18887	19091	
==>2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	713	830	
==>ists $param->{Perl5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2533	2641	
==>::Utils->_copy( file => $tmpsrc, to => $builddir )
#             or error( "Could not copy sources to '$build <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14262	14361	
==>tr $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14262	14361	
==>tr $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	9	115	
==>d from S29draft.pod 8651.
multi  List::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	for @v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4070	4159	
==>the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Excepti <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4070	4159	
==>the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Excepti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13399	13532	
==>colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseud <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13399	13532	
==>colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseud <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1468	1588	
==>b code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1468	1588	
==>b code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{cap <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	715	837	
==>scope(@params);

    # profiling actually slows this down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1837	1946	
==>mmar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $fin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1837	1946	
==>mmar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $fin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13679	13827	
==>split quotemeta ($sep), $1;

	$runperl =~ /(.*)/s;
	$runperl = $1;

	$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10487	10598	
==>hod report_test ( Test::Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push $.r <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2484	2617	
==>)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take enco <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2484	2617	
==>)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take enco <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13781	13905	
==>nts
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of pre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13781	13905	
==>nts
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of pre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1425	1537	
==>VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1425	1537	
==>VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	73	199	
==>r;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	73	199	
==>r;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1669	1782	
==>> "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as processing instructions, or <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1669	1782	
==>> "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as processing instructions, or <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	470	567	
==>XML::SAX.do_warn("could not open $file in $dir\n");
		return $class;
	}

	@.known_parsers = $class <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20981	21074	
==>'s rigorously defined API onto a pre-existing (pseudo) relational
database manager (such as SQ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20981	21074	
==>'s rigorously defined API onto a pre-existing (pseudo) relational
database manager (such as SQ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8547	8696	
==>kground-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    .indent0 { padding- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	121	215	
==>=head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend::Pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31812	32010	
==>->get('$counter')->increment);                        
                    return $e->get('@values')->fetch($e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _mak <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7282	7371	
==>instantiated variables, which delegate. see below)
multi unify => ( 'type::variable::free' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1417	1564	
==>f $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1360	1500	
==>f $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7147	7257	
==>:split   safe   (Str: Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, Int) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3511	3627	
==>ame => '|',
    block => sub { ... },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => 'infix <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	40	152	
==>= 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test2";
}

log "test1";
beispiel;
log "test3" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8594	8798	
==>=> coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8594	8798	
==>=> coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15686	15810	
==>nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $targ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15686	15810	
==>nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $targ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1796	1883	
==>>compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3172	3259	
==>>compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>? <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3726	3849	
==>s to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3726	3849	
==>s to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	815	919	
==>rence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	815	919	
==>rence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4795	4952	
==>and $type !~ tr/a-z//) {
            unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($go <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15944	16060	
==>>add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10800	10916	
==>>add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1822	1984	
==>ions on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1822	1984	
==>ions on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6812	6962	
==>$boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6812	6962	
==>$boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5722	5822	
==>PI seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5722	5822	
==>PI seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3118	3382	
==>ock'),
                           symbol->new('$label'      => 'symbol'),
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5174	5436	
==>cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5174	5436	
==>cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13148	13321	
==>]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # si <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13142	13315	
==>]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31777	31875	
==>is fluent in (and prefers) language A but also understands
language B.  Later on, if for example th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31777	31875	
==>is fluent in (and prefers) language A but also understands
language B.  Later on, if for example th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7511	7619	
==>pected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7569	7677	
==>pected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9780	9872	
==>cceeded, even if the return
value is undefined.

Rosetta::Model's input validation is perform <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9780	9872	
==>cceeded, even if the return
value is undefined.

Rosetta::Model's input validation is perform <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1790	1912	
==>─ "" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)),
        (map { $_ => '@' } q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6834	6949	
==>pile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang \< perl5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	843	984	
==>d',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	843	984	
==>d',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Requ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12974	13078	
==>eturned values belonged to which field.

=item $h.remove_content_headers

This will remove all the header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12974	13078	
==>eturned values belonged to which field.

=item $h.remove_content_headers

This will remove all the header <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5571	5681	
==>turn $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return : <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5571	5681	
==>turn $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return : <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2180	2292	
==>_char => 'A') if $cc;
    return $S->object(bol => 'sbol' => '\A');
  });

  # nbound (not a word boundary)
  $se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9875	10024	
==>t
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join ' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2907	3056	
==>t
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join ' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	616	712	
==>ext(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	616	712	
==>ext(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	268	375	
==>');
my %wiki      = evalfile("wiki.db");
my $wikiwords = rx:P5/\b([A-Z]\w+[A-Z]\w+)/;
my $topic     = join(" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12973	13072	
==>current value to get the next value.
The unit specifier is also used internally when joining two spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12973	13072	
==>current value to get the next value.
The unit specifier is also used internally when joining two spa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2178	2334	
==>ss defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2178	2334	
==>ss defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2398	2508	
==>$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2398	2508	
==>$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	144	249	
==>ect(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	m <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	144	249	
==>ect(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	m <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2260	2420	
==>st( $_ ) for $tree;
        #dbg "# ]";
        return ~@ret;
    }

    $depth++;
    dbg "# $tree[0] start";
    my $ret;

    if $tree[0] eq '"PIL_Environment <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5842	5976	
==>h->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match->{capture} } ];

        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5657	5788	
==>h->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match->{capture} } ];
        return <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5149	5269	
==>ss defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5149	5269	
==>ss defined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19292	19394	
==>h_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19292	19394	
==>h_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	86	184	
==>Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	86	184	
==>Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5875	6018	
==>l => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5875	6018	
==>l => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12361	12468	
==>*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1612	1716	
==>er>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1612	1716	
==>er>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cip <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1714	1836	
==>wish to check for new settings and edit the old
    config file by hand.

.
        open my $tpl, $config_template or die " <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2691	2809	
==>::sqrt (  Num  $x             --> Num )
 {
     Math::Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::< <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2918	3025	
==>o, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2976	3083	
==>o, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$to <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1538	1639	
==>or obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codeb <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1538	1639	
==>or obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codeb <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10974	11144	
==>ogin_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10974	11144	
==>ogin_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3993	4102	
==>uld_be;

	$self;
}

sub left { $_[0]{left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same h <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16077	16166	
==>(lookahead(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,F0,_,B0,_,E0,_).
rm(lookahead_not(Re),F0 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3019	3129	
==>ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Gla <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3019	3129	
==>ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Gla <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5593	5733	
==>"Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5593	5733	
==>"Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    " <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	898	1019	
==>s => [],
		defined_nodes => Set::Object->new,
		names => {},
	}, $class;
}

sub reduce {
	my $self = shift;
	my $node = sh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11131	11254	
==>n => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_al <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11131	11254	
==>n => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_al <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4107	4199	
==>l::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4107	4199	
==>l::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15322	15418	
==>item Regexp::MinLength

Implements a min_length() method for all objects that determines the
mini <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1079	1186	
==>Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1079	1186	
==>Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, dens <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	138	246	
==>RT @ISA);

$VERSION = '0.02';

@ISA = qw(Exporter);
@EXPORT = qw(assert);


=head1 NAME

Test::Harness::Asser <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2514	2643	
==>,
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $qua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2514	2643	
==>,
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $qua <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1433	1542	
==>ulti sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1433	1542	
==>ulti sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35302	35397	
==>named parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35302	35397	
==>named parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1257	1376	
==>PSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Wi <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1257	1376	
==>PSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Wi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	0	112	
==>use v6;
module Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'sta <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	0	112	
==>use v6;
module Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	930	1069	
==>2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precede <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	955	1094	
==>2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precede <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1638	1779	
==>ure} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1572	1707	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16219	16313	
==>.

Locale::KeyedText provides a simple but effective mechanism for
applications and packages th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16219	16313	
==>.

Locale::KeyedText provides a simple but effective mechanism for
applications and packages th <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	502	610	
==>$ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	502	610	
==>$ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3441	3544	
==>ek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3441	3544	
==>ek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8709	8804	
==>ead1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptog <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8709	8804	
==>ead1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptog <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11155	11253	
==>.$inst_pkg->package."' and associated metadata removed");

    return 1;
}

=head2 $alt = $inst->re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8112	8226	
==>build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8112	8226	
==>build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	224	318	
==>ew method: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	224	318	
==>ew method: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8473	8641	
==>p (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (MatchTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3826	3933	
==>e <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		return { require_bar <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4844	5001	
==>|  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4844	5001	
==>|  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9626	9747	
==>ip
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9626	9747	
==>ip
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1828	1969	
==>ust make it a singleton
### due to stacked installations
{   my $config  = JIB::Config->new;

    my %cache = ();

    sub new { 
        my $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7163	7285	
==>,
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    ### set the mode to +w for a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5690	5796	
==>_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leav <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12313	12418	
==>pod section, comment block and data section, each
# into a single line containing a digest of the original <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12313	12418	
==>pod section, comment block and data section, each
# into a single line containing a digest of the original <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2634	2771	
==>me => '-',
        block => sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => 'infix <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10172	10269	
==>f this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10230	10327	
==>f this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4084	4191	
==>Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4667	4774	
==>Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1559	1676	
==>,} }
    }
    unshift @rule_terms, 'match_variable';

    rule named_capture_body {
          [ \( <rule> \) { return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4742	4843	
==>lf,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3337	3433	
==>th, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3337	3433	
==>th, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9899	10006	
==>zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.fini <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9899	10006	
==>zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.fini <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6663	6776	
==>->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6675	6788	
==>->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1067	1197	
==>);
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1109	1239	
==>);
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1166	1272	
==>n ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1166	1272	
==>n ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9215	9353	
==>1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    I <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9215	9353	
==>1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    I <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	980	1080	
==>ues,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (MatchTest $test ;   *@values) r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5111	5210	
==>X - the return block could be generated automatically ?
  );

Pseudo-code for usage inside a grammar <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3062	3189	
==>r $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Locati <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3062	3189	
==>r $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Locati <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3482	3581	
==>therwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object repre <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3482	3581	
==>therwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object repre <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6763	6860	
==>die << ".";
*** Cannot find GHC 6.4.1 or above from path (we have $ghc_version).
*** Please instal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21725	21824	
==>sing the same key code with a new user message in
one of their own resource files.  At some appropri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21725	21824	
==>sing the same key code with a new user message in
one of their own resource files.  At some appropri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34213	34337	
==>tor constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34213	34337	
==>tor constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2276	2373	
==>⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2276	2373	
==>⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22949	23129	
==>p::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23228	23408	
==>p::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::con <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5349	5464	
==>ap{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1889	2007	
==>uvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1889	2007	
==>uvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8628	8729	
==>ail()

shouldn't matchfail still be returning something?

maybe just overload bool to false ;)

(I mea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8341	8439	
==>ail()
shouldn't matchfail still be returning something?
maybe just overload bool to false ;)
(I mea <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11287	11388	
==>e functions should work with most reg-exps, but given that they are still a
somewhat experimental feat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11345	11446	
==>e functions should work with most reg-exps, but given that they are still a
somewhat experimental feat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1279	1396	
==>bname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1269	1377	
==>bname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

mo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14377	14513	
==>);
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14377	14513	
==>);
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds,
        # eve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19017	19111	
==>logic and mathematics and philosophy ("a predicate ranging
over more than one argument"), which <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22667	22761	
==>logic
and mathematics and philosophy ("a predicate ranging over more than one
argument"), which <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	520	684	
==>= do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	520	684	
==>= do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19698	19845	
==>&RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16119	16266	
==>&RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2000	2201	
==>nt tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2000	2201	
==>nt tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	438	541	
==>t.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "character <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	438	541	
==>t.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "character <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6201	6304	
==>ng - should be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-lan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5988	6089	
==>ng - should be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-lan <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1091	1199	
==>//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME 

re::override - Override Perl regu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24375	24466	
==>an.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free sof <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24375	24466	
==>an.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free sof <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7983	8124	
==>de
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7995	8136	
==>de
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$ta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6448	6546	
==>=> $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class rep <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6448	6546	
==>=> $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class rep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3025	3142	
==>, Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3503	3620	
==>, Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10061	10182	
==>'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10055	10176	
==>'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$na <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8695	8797	
==>erl 5 version of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUT <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8695	8797	
==>erl 5 version of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUT <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34151	34246	
==>.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38701	38796	
==>.  This method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10852	11001	
==>\$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10846	10995	
==>\$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1020	1138	
==>cent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Eu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1020	1138	
==>cent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Eu <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	735	860	
==>owd, Array @x?) returns Hash is
export{
    my %terms;
    for 1 .. $sizeof_crowd {
        my $phrase = finger @x;
       %te <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	809	925	
==>t_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  O <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	809	925	
==>t_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  O <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25619	25700	
==>))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_))).
flag_m(amat(_,flgs(_,m,_,_,_,_,_,_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8969	9090	
==>."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12446	12567	
==>."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6606	6702	
==>Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@si <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6606	6702	
==>Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@si <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	333	482	
==>s, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!o <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	333	482	
==>s, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5607	5734	
==>Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5607	5734	
==>Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6906	7034	
==>te %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6906	7034	
==>te %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2118	2308	
==>_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2118	2308	
==>_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool: <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1782	1882	
==>rep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all fu <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1782	1882	
==>rep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all fu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28124	28234	
==>of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a gen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32676	32786	
==>of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a gen <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	212	311	
==>">$testdir/$exename.c")
    or die "Can't create $testdir/$exename.c: $!";
print $F <<'EOT';
#inc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6688	6796	
==>list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse ! <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6688	6796	
==>list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse ! <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3996	4100	
==>'use fatal' not try to load a module. XXX: add a real inc class to
    # interface %*INC, instead of this <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11804	11907	
==>Terse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy construct <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2180	2286	
==>{ops=>[undef],var=>[],op_ahead=>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Du <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20692	20776	
==>[C|Fx],[],[],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,[],[],[C|Bx],[C|Bx],E0, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18052	18158	
==>s->send('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get('WALK <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41317	41423	
==>s->send('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get('WALK <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	769	867	
==>.hs defines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indexte <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6021	6118	
==>comb. All rights reserved.
This program is free software; you can redistribute it
and/or modify it <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6021	6118	
==>comb. All rights reserved.
This program is free software; you can redistribute it
and/or modify it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	427	540	
==>e
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	427	540	
==>e
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1173	1366	
==>b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitb <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1173	1366	
==>b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	473	569	
==>Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	473	569	
==>Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6410	6541	
==>text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Determine if requested template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6410	6541	
==>text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Determine if requested template <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6824	6942	
==>chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6824	6942	
==>chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2731	2846	
==>6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2731	2846	
==>6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::D <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12145	12263	
==>ew( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12145	12263	
==>ew( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	312	416	
==>less defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	312	416	
==>less defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1335	1431	
==>{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1335	1431	
==>{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5136	5227	
==>d-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5136	5227	
==>d-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4748	4864	
==>te a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4748	4864	
==>te a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::E <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15439	15554	
==>ame_1:
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = escape cname
    cname = concat '"', cnam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3724	3821	
==>ons to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3724	3821	
==>ons to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally, c <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1663	1772	
==>=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is currently un <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1663	1772	
==>=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is currently un <==
2	/Users/nnunley/pugs/util/package-osx.pl	197	307	
==>rot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/u <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6079	6179	
==>ent::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6079	6179	
==>ent::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	456	554	
==>ion_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	456	554	
==>ion_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1363	1471	
==>t {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1363	1471	
==>t {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27170	27292	
==>}

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub ins <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2340	2461	
==>self->whitespaceOperatorTable()->{$spacePresent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	248	408	
==>r $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	248	408	
==>r $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_lin <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	94	186	
==>Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	94	186	
==>Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3665	3778	
==>@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserti <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3665	3778	
==>@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserti <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	205	337	
==>se Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1882	1978	
==>*Compress::Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $html = $CGI->param("smoke" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30300	30394	
==>perator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34852	34946	
==>perator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12828	12934	
==>`:density($size)`.

The unit specifier is used for several things. 
For example, when iterating through the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12828	12934	
==>`:density($size)`.

The unit specifier is used for several things. 
For example, when iterating through the <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6684	6804	
==>s = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6684	6804	
==>s = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19946	20069	
==>onusmsg .= ", $tot->{skipped} test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub_skipped <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2398	2492	
==>$.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2398	2492	
==>$.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3005	3157	
==>ncat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3016	3168	
==>ncat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4792	4922	
==>=> chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4792	4922	
==>=> chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4558	4667	
==>pher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4558	4667	
==>pher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4835	4983	
==>tale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4835	4983	
==>tale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3291	3413	
==>ark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3291	3413	
==>ark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "u <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23770	23894	
==>e REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. * <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28971	29071	
==>e REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. * <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1073	1193	
==>code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1084	1204	
==>code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3145	3246	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2125	2223	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:print <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1107	1256	
==>e_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1107	1256	
==>e_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1535	1630	
==>mpiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1535	1630	
==>mpiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return " <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1205	1316	
==>t_dirs     Directories containing the tests (Default: take tests from ./tests.yaml)
    --help          Show thi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18895	18996	
==>oth an int and a str
# while this could seem to make sense for e.g. the 'id' function, this won't work <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35394	35501	
==>ents in this object as an array ref.

=item C<get_member_names()>

This method returns all Member Names elem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35394	35501	
==>ents in this object as an array ref.

=item C<get_member_names()>

This method returns all Member Names elem <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6893	6986	
==>y $filtered_content = $class->pmc_process($real_content);
        $class->$post_process($filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6893	6986	
==>y $filtered_content = $class->pmc_process($real_content);
        $class->$post_process($filte <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21782	21900	
==>} keys(%space_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)=@_;
    my $sigil = substr($n,0,1);
    my $mn    = substr <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1942	2056	
==>TDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eval { require Comp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	71	189	
==>=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	71	189	
==>=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.en <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18106	18257	
==>t( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18385	18536	
==>t( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3916	4056	
==>other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16139	16238	
==>ler. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23460	23571	
==>E {
    my($code)=@_;
    '(try { '.$code.' } catch Perl6::Run::OnPerl5::X1::Api::Exception::Return with { @{$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14461	14557	
==>sections, though).
The Node class is pure and deterministic, such that all of its class and
objec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14461	14557	
==>sections, though).
The Node class is pure and deterministic, such that all of its class and
objec <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13116	13221	
==>se {
		return $prev_generic;
	}
}

# the type of the function the arrow operator, applied to the type of t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6265	6427	
==>e($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directories, $path_fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6265	6427	
==>e($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directories, $path_fi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8011	8156	
==>($fun =~ /^is macrop5 (.+)$/) {
	return p6_macrop5($1)->(@args);
    }
    if($has_inv) {
	my $fun_name = do{
	    my $n=$self;
	    for my $k qw( <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4253	4347	
==>thod dispatch (Code & Class::Events::Subscriber $subscriber) {
        $subscriber.($.subscript <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5757	5847	
==>implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5757	5847	
==>implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1966	2102	
==>$_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left " <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1966	2102	
==>$_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2479	2593	
==>=~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tigh <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4112	4310	
==>th ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4112	4310	
==>th ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5213	5381	
==>t_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@bod <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5213	5381	
==>t_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@bod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17265	17395	
==>ck}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17265	17395	
==>ck}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	417	572	
==>^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @curre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	417	572	
==>^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @curre <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3136	3243	
==>S

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class rep <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3136	3243	
==>S

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class rep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9006	9124	
==>ed;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9006	9124	
==>ed;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3357	3467	
==>ains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3357	3467	
==>ains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3567	3664	
==>rently can't do lexical.  It's not clear how to do
it.  Possible tools include get_sv, eval_pv, an <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6933	7029	
==>d> should be empty if everything passed.

B<NOTE> Currently this function is still noisy.  I'm wo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15089	15182	
==>ns invoke and which
multiple interchangeable "Engine" back-ends (usually provided by third
par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15089	15182	
==>ns invoke and which
multiple interchangeable "Engine" back-ends (usually provided by third
par <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1386	1525	
==>etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daug <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1386	1525	
==>etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daug <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6735	6884	
==>( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7199	7348	
==>( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16045	16140	
==>r.  In some
situations, a shared program component may raise such a condition, and one
applicati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16045	16140	
==>r.  In some
situations, a shared program component may raise such a condition, and one
applicati <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	531	653	
==>nstruct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	531	653	
==>nstruct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4088	4209	
==>$ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft=perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4088	4209	
==>$ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: ft=perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5865	6019	
==>ap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5877	6031	
==>ap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3059	3207	
==>$self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3059	3207	
==>$self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	179	293	
==>5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have alread <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	179	293	
==>5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have alread <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2540	2635	
==>Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2540	2635	
==>Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	228	367	
==>ve special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # les <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	228	367	
==>ve special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # les <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3211	3312	
==>ype' if !(exists $options{returns});
    bless { %options } => $class;
}

sub params  { (shift)->{para <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5025	5171	
==>$x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default gen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5025	5171	
==>$x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default gen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1206	1318	
==>hat attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4684	4796	
==>hat attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $! <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1162	1261	
==>ample -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1162	1261	
==>ample -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11113	11214	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11171	11272	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expecte <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	378	489	
==>", param('topic')) || 'FrontPage';
my $entry      = join("\n", param('entry') || %wiki{$topic});
if ($topic eq " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2747	2850	
==>:Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19224	19339	
==>olved in making the program would be editing them.  At
the same time, this information is in separate resource files <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19224	19339	
==>olved in making the program would be editing them.  At
the same time, this information is in separate resource files <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5830	5970	
==>xists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14441	14583	
==>m $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14441	14583	
==>m $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6968	7107	
==>>() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6968	7107	
==>>() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=fo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2618	2721	
==>unctions module than the base File::Spec. Also the
/hack/ to make it work automagically for platforms is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2618	2721	
==>unctions module than the base File::Spec. Also the
/hack/ to make it work automagically for platforms is <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2297	2395	
==>unction.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< t <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2297	2395	
==>unction.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11492	11589	
==>item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11492	11589	
==>item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5595	5700	
==>ndex = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5595	5700	
==>ndex = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_chil <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4533	4665	
==>:List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4533	4665	
==>:List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10807	10934	
==>s it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10807	10934	
==>s it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9857	9964	
==>rovides a simple set of common test utility functions, and is
an implementation of the TAP protocol.

This m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9915	10022	
==>rovides a simple set of common test utility functions, and is
an implementation of the TAP protocol.

This m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27182	27302	
==>NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27182	27302	
==>NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	296	420	
==>,
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	296	420	
==>,
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1564	1705	
==>nfix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'4'}] ,
    [';'=>{}] ,
    ['STMT'=>{if=>'block'}] 
];


    my($lex) = sub {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7545	7641	
==>rrors will be determined during this
initial pass.

=head3 Fatal Errors

B<If there is a compilat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2678	2781	
==>= $self->env->get($symbol) || die $@;

    # fill the place holder with the compiled version of the buil <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2301	2434	
==>p -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2301	2434	
==>p -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$. <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	785	880	
==>--include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency();
$Test::Harness <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1390	1491	
==>e} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1530	1631	
==>e} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13936	14040	
==>a string).  If a header field is multi-valued, then the
routine is called once for each value.  The field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13936	14040	
==>a string).  If a header field is multi-valued, then the
routine is called once for each value.  The field <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12351	12456	
==>turn unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12630	12735	
==>turn unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13519	13651	
==>range_1
  dotrange:
    if isrange goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isr <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12678	12774	
==>ect> unexpectedly succeeded"><tmpl_var name=unexpect></span></td>
	    </tmpl_loop>
	    <td><spa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14172	14274	
==>ractice" order.

Any return values of the callback routine are ignored.  The loop can
be broken by rais <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14172	14274	
==>ractice" order.

Any return values of the callback routine are ignored.  The loop can
be broken by rais <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5181	5279	
==>exported) by this module:

=over 3

=item get($url)

The get() function will fetch the document ide <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5181	5279	
==>exported) by this module:

=over 3

=item get($url)

The get() function will fetch the document ide <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7656	7811	
==>e_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7656	7811	
==>e_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3771	3873	
==>corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3771	3873	
==>corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6070	6271	
==>ined $t ) {
                        warn "can't find template for '$op->{fixity}_$op->{assoc}'";
                        next;
                    }
                    $t =~ s/$_/$op->{$_}/g for qw <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6840	6970	
==>> 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6840	6970	
==>> 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2113	2221	
==>tfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2113	2221	
==>tfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27673	27813	
==>uleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27952	28092	
==>uleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2894	3061	
==>1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2894	3061	
==>1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7985	8121	
==>o($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an im <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3188	3450	
==>) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            inte <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3188	3450	
==>) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            inte <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	571	701	
==>print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	571	701	
==>print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	355	485	
==>tom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9773	9903	
==>tom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	952	1077	
==>n we have failed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then st <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	952	1077	
==>n we have failed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15699	15848	
==>n // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15699	15848	
==>n // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8930	9064	
==>y $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8617	8748	
==>y $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2488	2633	
==>e;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2488	2633	
==>e;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14763	14849	
==>tities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> retu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14763	14849	
==>tities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> retu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1183	1302	
==>density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1183	1302	
==>density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16591	16713	
==>_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16870	16992	
==>_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  , <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5327	5433	
==>rentOperatorTable = $self->whitespaceOperatorTable();
  
  (substr $target, $position, $lastPosition) =~ m/ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	857	985	
==>y be bogus.
sub touch {
    # XXX: *ugly* hack! ghc doesn't spot that the include file was changed,
    #      so we need to mark <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18401	18504	
==>en it comes to getting the most accurate program text
for users, we still get the best results by having <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18401	18504	
==>en it comes to getting the most accurate program text
for users, we still get the best results by having <==
2	/Users/nnunley/pugs/util/package-osx.pl	9785	9909	
==>m;
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $from $d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1580	1677	
==>lines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1580	1677	
==>lines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5769	5872	
==>.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5769	5872	
==>.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5899	6020	
==>)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 spec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5899	6020	
==>)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 spec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34245	34335	
==>ead2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6813	6917	
==>, the first argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6813	6917	
==>, the first argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=it <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10379	10495	
==>. )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10379	10495	
==>. )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7496	7636	
==>? shift : 1;

    for (1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    local $^W = 0;
    last <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7172	7279	
==>s unportable.
    my $line = $self->_command_line($file);
    unless( open(FILE, "$line|") ) {
        print <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5124	5252	
==>$method) = @_;
            ::opaque_instance_class($self)->add_method($label, $method);
        },          
    },
);

# < Class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9511	9597	
==>ngleton_method('another_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_test_iF <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16272	16408	
==>.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16272	16408	
==>.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19640	19736	
==>es you specified in the constructor. For example,
C<Net::IRC> automatically tries to use slight v <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19640	19736	
==>es you specified in the constructor. For example,
C<Net::IRC> automatically tries to use slight v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8563	8690	
==>); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_resul <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19887	19988	
==>> $id,
);

# we can't get app_to_str to apply something of a bad type to a str
my $app_plus_ten_to_str <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	60	182	
==>WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: ( <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	60	182	
==>WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	828	999	
==>num->new(0) : num->new(1) }

# methods 

sub not {
    my $self = shift;
    if ($self == $TRUE) {
        return $FALSE;
    }
    else {
        return $TRUE;
    }    
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6020	6134	
==>1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6020	6134	
==>1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $mat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14807	14909	
==>`new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_du <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14807	14909	
==>`new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_du <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21871	21993	
==>(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18292	18414	
==>(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2834	2937	
==>ta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2834	2937	
==>ta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2395	2563	
==>dx = shift;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $self = shift;
                %{$self->h <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4205	4326	
==>RTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v[0];

    $v{0} --> %v{0};

    $#v   --> @v.last_inde <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8175	8309	
==>v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8187	8321	
==>v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
su <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4020	4156	
==>);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up yet for failing ba <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1491	1636	
==>ift;
                $self->_extend_to_slot($idx);
                $self->get_value('@:slots')->[$idx] = $container;
            },

            ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24500	24607	
==>d/or modify it under
the terms of the GNU General Public License (GPL) as published by the Free
Software Fou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24500	24607	
==>d/or modify it under
the terms of the GNU General Public License (GPL) as published by the Free
Software Fou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4930	5131	
==>, 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4045	4157	
==>literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<(!?)\" [ <-[\\\"]> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5591	5695	
==>) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._g <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5591	5695	
==>) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1658	1800	
==>name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method ke <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1658	1800	
==>name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11540	11629	
==>cept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/pla <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11540	11629	
==>cept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/pla <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	254	369	
==>b new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	250	363	
==>b new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$method"} = sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23296	23401	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23296	23401	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rose <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20103	20263	
==>grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20382	20542	
==>grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	542	645	
==>turn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<de <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	542	645	
==>turn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<de <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	110	210	
==>::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	110	210	
==>::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9301	9399	
==>missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_v <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9301	9399	
==>missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	347	465	
==>used!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	347	465	
==>used!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11541	11655	
==>ntity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11541	11655	
==>ntity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	91	184	
==>ntities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	91	184	
==>ntities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %enti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20136	20245	
==>hen outer blocks.

A compiler may choose to declare that its result not be recompiled by
some other containing <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20136	20245	
==>hen outer blocks.

A compiler may choose to declare that its result not be recompiled by
some other containing <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3404	3545	
==>x\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3404	3545	
==>x\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	982	1077	
==>l {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	982	1077	
==>l {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $desc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19303	19433	
==>) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15724	15854	
==>) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1918	2091	
==>cs)
    Num         Perl number
    Complex     Perl complex number
    Ref         Perl reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Per <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7534	7633	
==>ray::kv     (@array ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; MatchTest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17181	17296	
==>ame) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13602	13717	
==>ame) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16221	16365	
==>ch[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16215	16359	
==>ch[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$m <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	414	542	
==>*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p,$v)=split('=',$_);
            CookiesAdd($p,$v);
        }
    }
}

sub CookiesHe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1765	1869	
==>->new($_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(values %na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13716	13896	
==>d_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13716	13896	
==>d_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3731	3987	
==>::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3731	3987	
==>::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23151	23254	
==>rs to them.  The Relation
library provides full generic implementations of all other necessary
operators <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15254	15353	
==>@expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15312	15411	
==>@expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4023	4120	
==>currence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrenc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4023	4120	
==>currence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrenc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5202	5342	
==>ame>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5214	5354	
==>ame>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	143	246	
==>o at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	143	246	
==>o at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "ru <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1667	1794	
==>l';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    package Seq;
    use base 'Node';

    package Prim;
    use bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1275	1386	
==>out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $te <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1056	1171	
==>e { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeho <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1056	1171	
==>e { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeho <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	876	1004	
==>n;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1985	2096	
==>talled");
    return $self;
}    

=head2 $bool = $inst_pkg->uninstall

=cut

sub uninstall {
    my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4730	4864	
==>.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = se <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4730	4864	
==>.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5201	5341	
==>"Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5201	5341	
==>"Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4675	4777	
==>pe'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub field_is_optional {
    my($self,$fname)=@_;
    $self->{'field_ty <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15314	15408	
==>ditiveExpression>
    | <ShiftExpression> <'>>'> <AdditiveExpression>
    | <ShiftExpression> < <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22215	22351	
==>seudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22215	22351	
==>seudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4410	4585	
==>$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4410	4585	
==>$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3401	3519	
==>e without breath;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in mail, never clinking.
-}


modu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4866	4974	
==>xpect_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, newfrom( $matchO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2160	2262	
==>atch, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2148	2250	
==>atch, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2409	2521	
==>class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2318	2426	
==>class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	953	1096	
==>ue ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	953	1096	
==>ue ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13603	13751	
==>b pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=po <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13603	13751	
==>b pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=po <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24156	24273	
==>(H0,D,H1) ; H1 = H0), !, ground_list(T0,D,T1).

initialE(amat([],flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5100	5236	
==>ce
              conv_foreach conv_package conv_open conv_condition
          
              )){
    no strict;
if(main->can($c)){
    $s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14793	14945	
==>day;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 to 59
    has Int  $.sec;     # 0 to 61 (up to two leap seconds)
    has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10942	11050	
==>Y ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{npare <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11371	11479	
==>Y ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{npare <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8607	8725	
==>tml#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8607	8725	
==>tml#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16383	16516	
==>{
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # My <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16383	16516	
==>{
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # My <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1992	2126	
==>CK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1992	2126	
==>CK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4449	4561	
==>sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4671	4783	
==>sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print < <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29053	29151	
==>at the time.

=item $obj->insert()

Inserts this object into the tree.  It returns a value that say <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	651	765	
==>pital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	651	765	
==>pital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11391	11547	
==>t of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible lef <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11391	11547	
==>t of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible lef <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6547	6668	
==>r long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6547	6668	
==>r long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gramma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15218	15318	
==>Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15218	15318	
==>Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such No <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2075	2194	
==>ndBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of s <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2075	2194	
==>ndBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1155	1292	
==>ernation {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool => \ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21611	21710	
==>pad["cutnum"] = cutnum
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Subrule" ]

.sub "p6a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2379	2486	
==>o $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2379	2486	
==>o $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $messa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16098	16198	
==>nto
C<.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, before
load <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16098	16198	
==>nto
C<.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, before
load <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33083	33204	
==>lements where
each element is a Template module Set Name.  When we have to translate a
message, the corresponding Template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33083	33204	
==>lements where
each element is a Template module Set Name.  When we have to translate a
message, the corresponding Template <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21530	21625	
==>very Relation tuple must be distinct from the other tuples.  All Relation
attributes may be indi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26082	26177	
==>very Relation tuple must be distinct from the other tuples.  All Relation
attributes may be indi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5620	5743	
==>turn {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5620	5743	
==>turn {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_node <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	883	989	
==>able} = url_decode($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open("$Path/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1584	1677	
==>re the implementation classes of all the L<Blondie::Nodes> and some
more objects.

They provid <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13543	13644	
==>nd
database queries, may occur much later than expected.

It may enter an infinite loop if the formula <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13543	13644	
==>nd
database queries, may occur much later than expected.

It may enter an infinite loop if the formula <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	984	1108	
==>.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	984	1108	
==>.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.use <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	672	788	
==>ed while parsing source code to determine if the
# module/class in a use/no line is part of the Module::Compile game. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	672	788	
==>ed while parsing source code to determine if the
# module/class in a use/no line is part of the Module::Compile game. <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5629	5758	
==>re     List::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22023	22122	
==>o fetch the user message for a certain code, it
returns the first one it finds.  This also works for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22023	22122	
==>o fetch the user message for a certain code, it
returns the first one it finds.  This also works for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	347	456	
==>ammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	347	456	
==>ammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13145	13314	
==>_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13139	13308	
==>_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25931	26070	
==>symbol->new('subclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2333	2436	
==>names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2361	2486	
==>ation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    # (Non <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2909	3023	
==>ation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example object: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15198	15327	
==>g, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4733	4860	
==>= shift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self->get_value('@:slot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4314	4426	
==>ure => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4507	4619	
==>ure => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3504	3629	
==>s}{features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2647	2779	
==><'$op->{name}'>)/s;
        $template =~ s/<op2>/\$<op2>:=(<'$op->{name2}'>)/s;
        push @rules, $template;
    }
    push @rules <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	318	426	
==>or';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=head1 METHODS

=head2 $src = JI <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1828	1932	
==>rect port, the api got cleaned up a bit. :)
Some features are still missing but will be added in the futu <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1828	1932	
==>rect port, the api got cleaned up a bit. :)
Some features are still missing but will be added in the futu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1915	2067	
==>mc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_compile($code);
        die $@ if $@;
        exit 0;
    }
}

1;

__ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2874	2991	
==>s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2731	2850	
==>/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2731	2850	
==>/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1360	1473	
==>->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1500	1613	
==>->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2108	2249	
==>ramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2108	2249	
==>ramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8916	9029	
==>ection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn' <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8916	9029	
==>ection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8012	8127	
==>ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7738	7848	
==>ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6324	6544	
==>lse {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6324	6544	
==>lse {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6541	6664	
==>next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6541	6664	
==>next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3034	3148	
==>s, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3034	3148	
==>s, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4487	4589	
==>atch object returns the I<result>
object; this is normally the entire match string, but may be arbitrar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4487	4589	
==>atch object returns the I<result>
object; this is normally the entire match string, but may be arbitrar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2769	2938	
==>lags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2678	2842	
==>lags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18243	18339	
==>d.>

=item $h.referer

Used to specify the address (URI) of the document from which the
requested <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18243	18339	
==>d.>

=item $h.referer

Used to specify the address (URI) of the document from which the
requested <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27190	27286	
==>de $attrs!) returns Relation>

This method is a generic relational operator that returns a new Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31742	31838	
==>de $attrs!) returns Relation>

This method is a generic relational operator that returns a new Re <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5070	5213	
==>s;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5394	5537	
==>s;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23147	23246	
==>upposed to pass in english text and they translate it, which could
produce ambiguous results or asso <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23147	23246	
==>upposed to pass in english text and they translate it, which could
produce ambiguous results or asso <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1133	1297	
==>ent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our las <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1133	1297	
==>ent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our las <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3657	3748	
==>ad1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second E <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3657	3748	
==>ad1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second E <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12582	12681	
==>s true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12582	12681	
==>s true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2177	2293	
==>l:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2177	2293	
==>l:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39213	39298	
==>tta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 B <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39213	39298	
==>tta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 B <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7767	7878	
==>er
    --recurse, -r           Recurse into directories on test include list
    --incude=I1,[I2,...]    Include <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3209	3312	
==>push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top_obj) = <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	526	624	
==>Test::TAP::Model;
use File::Spec;
use Benchmark;
our @ISA = qw(Test::TAP::Model);
our $SMOKERFILE = <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	836	962	
==>bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($c <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	836	962	
==>bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6453	6659	
==>e) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6453	6659	
==>e) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1070	1180	
==>s;

use strict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	316	429	
==>" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Enti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	316	429	
==>" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Enti <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	124	240	
==>is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	124	240	
==>is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11367	11480	
==>Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Bool :$w) returns IO
            is primitive <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4733	4917	
==>nt_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4733	4917	
==>nt_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11778	11888	
==>tis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11778	11888	
==>tis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8736	8908	
==>md, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8736	8908	
==>md, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13191	13387	
==>failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { canon   => '??',
                                             max     => <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1826	1955	
==>ata::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumper($node);
		chomp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27394	27489	
==>D(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_on(prog) ((prog)->reganc <==
2	/Users/nnunley/pugs/util/importgraph.pl	56	153	
==>ut=neato]
# produces importgraph.ps in the current directory
# it expects to run from the top pugs <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	768	874	
==>tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn' <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	768	874	
==>tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2928	3036	
==>ethod equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6405	6513	
==>ethod equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4716	4821	
==>ialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we curren <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4716	4821	
==>ialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we curren <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	20	131	
==>le::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $cod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	20	131	
==>le::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $cod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12215	12329	
==>d, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12215	12329	
==>d, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $even <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1958	2057	
==>rrect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1958	2057	
==>rrect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26160	26257	
==>ULAR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a war <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26160	26257	
==>ULAR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a war <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7566	7673	
==>ata);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7566	7673	
==>ata);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2184	2336	
==>exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n->{assoc}  eq 'list';
        
    if ( exis <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7961	8060	
==>reaking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted imme <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7961	8060	
==>reaking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted imme <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20597	20691	
==>dispatcher (($self: class) send (dispatcher :ascendant)))
     (= $method (WALKMETH (&dispatche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2092	2229	
==>nt "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2309	2446	
==>nt "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $pre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9044	9142	
==>clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9044	9142	
==>clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4442	4568	
==>oize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return ga <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4442	4568	
==>oize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return ga <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	233	339	
==>d

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, which ar <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	233	339	
==>d

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, which ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4131	4277	
==>e') || $closure->isa('block')))
        || confess "argument to &apply must be either a closure or a block";    
    my $list = list->new();
    fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5849	6289	
==>)
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7611	8051	
==>)
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4327	4422	
==>When used as a hash reference, the match object returns named captures
as match objects, keyed b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4327	4422	
==>When used as a hash reference, the match object returns named captures
as match objects, keyed b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19815	19913	
==>apabilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resource <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19815	19913	
==>apabilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resource <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3667	3765	
==>gorithm description. See links or read
the source (there are about 10 lines of sparse perl in sever <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3667	3765	
==>gorithm description. See links or read
the source (there are about 10 lines of sparse perl in sever <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2348	2458	
==>amed C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2348	2458	
==>amed C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1523	1617	
==>=> Config => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline->bind(C = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4754	4855	
==>data given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4754	4855	
==>data given.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1826	1926	
==>ntime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1915	2015	
==>ntime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<M <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8449	8553	
==>ngle tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8449	8553	
==>ngle tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1193	1366	
==>value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_mak <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1193	1366	
==>value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_mak <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	544	645	
==>, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	544	645	
==>, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> i <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16026	16125	
==>is rw --> Char )

Trims the last character from C<$string>, and returns it. Called with a
list, it c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12172	12275	
==>method join (Relation $other!) returns Relation {

    # First look for trivial cases that are more effi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15649	15752	
==>method join (Relation $other!) returns Relation {

    # First look for trivial cases that are more effi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	998	1159	
==>otocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	998	1159	
==>otocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    me <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16857	16979	
==>afe {
        ($n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_ge <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1346	1457	
==>ivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1346	1457	
==>ivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	885	1013	
==>= sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	885	1013	
==>= sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1168	1289	
==>, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2333	2454	
==>, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	709	813	
==>ader, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	709	813	
==>ader, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

mult <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3703	3853	
==>ace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3703	3853	
==>ace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx/ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4116	4245	
==>y_and_accum' => Thunk->new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum'),
            Param->n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13313	13421	
==>| <NumericLiteral>
}
rule MemberExpression :words {  # see 11.2
      <PrimaryExpression>
    | <FunctionExpr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	699	806	
==>);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	699	806	
==>);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14116	14271	
==>ree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unex <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	501	658	
==><_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	501	658	
==><_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37346	37441	
==>already been
loaded, returning true if so and false if not.

=item C<load_template_module( $modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37346	37441	
==>already been
loaded, returning true if so and false if not.

=item C<load_template_module( $modu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3849	3996	
==>ype;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3849	3996	
==>ype;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12072	12184	
==>nt) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12072	12184	
==>nt) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12791	12887	
==>y
fun: generic_in($.body) = { generic_in($$) }

# possibly amend the list of generic variables if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3310	3428	
==>ed,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specific t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3310	3428	
==>ed,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specific t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	234	333	
==>tional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	222	319	
==>tional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever matc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4782	5047	
==>art}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => su <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4782	5047	
==>art}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => su <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8601	8763	
==>S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9863	9960	
==>arser->walker(2);  # top- through third-level

The iterator returned is a function reference.  Whe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1908	2020	
==>es'}    = [ alternatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBFILE_OF_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15897	16005	
==>0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1540	1674	
==>tring ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1540	1674	
==>tring ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7630	7752	
==>'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7071	7188	
==>'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	190	313	
==>t    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_cur <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	190	313	
==>t    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_cur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25439	25557	
==>h the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29991	30109	
==>h the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic rela <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15740	15835	
==>Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All right <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15740	15835	
==>Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All right <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3586	3698	
==>S>
}
rule Comment {  # see 7.4
      <MultiLineComment>
    | <SingleLineComment>
}
rule MultiLineComment {  # se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3457	3570	
==>an create precisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3457	3570	
==>an create precisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2135	2247	
==>if ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL::i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1694	1794	
==>ere needed.

   Example:
     perl util/catalog_tests.pl --p6design_dir=../p6/docs/design
     perl u <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8183	8292	
==>, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .string <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8183	8292	
==>, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	507	669	
==>\: ]?
                [ \_ | <alnum> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->add_rul <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10218	10350	
==>tf8") 
                         or die "Can't open input test file $input_path: $!";
  my $outfile = IO::File->new($output_path, ">:u <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4067	4169	
==>a date object for the given values.  The month and day default
to 1 if not given.

The value for day ca <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4067	4169	
==>a date object for the given values.  The month and day default
to 1 if not given.

The value for day ca <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7305	7431	
==>pen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn' <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2264	2368	
==>ine
10th line
11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th li <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11735	11854	
==>ation::Example.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  :: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	489	590	
==>s... ", BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET;

  if($args{ensure}->()) {
    printf STD <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3429	3547	
==>lker {
  my ($self, $depth) = @_;
  croak "no regex defined" unless &RxLEN;
  $self->parse if $self->{stack};

  $depth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5239	5417	
==>= any($!body);
}

###########################################################################

method equal (Relation::Example $other!) returns Bool {
    return $other!heading == <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5067	5177	
==>r abstraction violation.
# Need to figure out positional constructors.  At least it's isolated here. :(
sub new <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2001	2119	
==>X want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2001	2119	
==>X want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	806	927	
==>m-%d %H:%M:%S");
  push @commits,    $time;
  push @developers, $time unless $devs_seen{$dev}++;
  $num_commits++;
}

# $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14973	15106	
==>op::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15252	15385	
==>op::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6199	6357	
==>s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6199	6357	
==>s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $ty <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	235	340	
==>\> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*) <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	235	340	
==>\> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34252	34343	
==><new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34252	34343	
==><new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40243	40342	
==>when creating warning and
error messages for your sub-class.

  package Your::SubClass;
  # use cons <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4105	4211	
==>ls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !de <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6687	6784	
==>JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "pilrun" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6084	6206	
==>b find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find: <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3761	3882	
==>b find_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	328	424	
==>de_a { hlp('array1',@_); }
sub node_a2{ hlp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1234	1351	
==>lf->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1234	1351	
==>lf->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1328	1440	
==>rn Date::Gregorian.new
        ( :year($year), :month($1),  :day($2),
          :hour($5),    :minute($6), :secon <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5407	5505	
==>ition, $lastPosition) =~ m/[^\s]/;
  $whitespacePosition = $-[0];
  $currentOperatorTable = $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18194	18367	
==>rsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::opt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18473	18646	
==>rsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::opt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	713	810	
==>ts to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	713	810	
==>ts to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8797	8988	
==>} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8797	8988	
==>} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1213	1338	
==>ule>' ), '     ' );
    return "*{'Pugs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$grammar = shift <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2230	2337	
==>'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed proper to use thi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2196	2283	
==>.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to rea <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2196	2283	
==>.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to rea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7022	7115	
==>l> } }
RULE
*{'_return'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    return <?p6ws <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4112	4231	
==>in);
    unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
        delete $args{prefix};
    }

    return $args{_sel <==
2	/Users/nnunley/pugs/util/package-osx.pl	11641	11747	
==>REMOVER "$_\n" for @footer;

    close REMOVER;
    chmod 0755, "$dest$files[-1]";
    print "Made $dest$fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10924	11031	
==>m >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11353	11460	
==>m >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	98	346	
==>ols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	98	346	
==>ols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1565	1667	
==>eft->to_native * $right->to_num->to_native());
}

sub divide {
    my ($left, $right) = @_;
    (blesse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15989	16167	
==>=> 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15983	16161	
==>=> 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" . <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4702	4801	
==>4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4702	4801	
==>4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3625	3796	
==>get('$current')
                  ->send('has_method' => $e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2028	2146	
==>ap { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args) <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2028	2146	
==>ap { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5224	5517	
==>hen 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.prin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5224	5517	
==>hen 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.prin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6484	6579	
==>>foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11542	11637	
==>>foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8554	8658	
==>ation.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecurity caused by b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8554	8658	
==>ation.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecurity caused by b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1669	1780	
==>}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1729	1840	
==>}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	21	123	
==>aders;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	21	123	
==>aders;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8543	8640	
==>ou failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8601	8698	
==>ou failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4155	4299	
==>->new(
            Param->new('&f'),
            Param->new('$accum'),
            Param->new('$x'),
            Param->new('$y'),
            Ap <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12530	12628	
==>ssed down to the body, but is also reused in the 'type' attr
fun: env($.body) = { new_env($$) }
fun <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	977	1071	
==>ther C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	977	1071	
==>ther C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	739	937	
==>_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = g <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	201	303	
==>ust a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRIPTION

Emitters take a compiled program and <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17178	17281	
==>F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ). <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17335	17438	
==>F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ). <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	879	1041	
==>+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9559	9675	
==>sg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9559	9675	
==>sg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_k <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4772	4873	
==>_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4772	4873	
==>_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14125	14221	
==>ers to consider unsafe (i.e., which to escape). The default set
of characters to encode are contr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14125	14221	
==>ers to consider unsafe (i.e., which to escape). The default set
of characters to encode are contr <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	643	759	
==>ind_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	643	759	
==>ind_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22805	22899	
==>Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Varia <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22805	22899	
==>Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Varia <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24756	24855	
==>L as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software F <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24756	24855	
==>L as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software F <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1107	1220	
==>| 0;
$Switches = "-w";
$Columns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some sh <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21373	21477	
==>rl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) :- !,    char_type(C, <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	693	791	
==>ate::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntax <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	693	791	
==>ate::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntax <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	285	393	
==>trary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	285	393	
==>trary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1373	1578	
==>line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1373	1578	
==>line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	455	566	
==>{  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	455	566	
==>{  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	2	153	
==>Array und Hash Smart-Match
$s ~~ @a        # $s Element in @a
123 ~~ @a       # ?@a[123]
123 ~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6753	6856	
==>alize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6753	6856	
==>alize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for % <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2188	2289	
==>st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12 <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2328	2429	
==>st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	706	816	
==>> $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=he <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	706	816	
==>> $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=he <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2174	2271	
==>rn and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2174	2271	
==>rn and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14669	14781	
==>ms} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7489	7601	
==>ew 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" level interfac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7236	7343	
==>ew 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" level interfac <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19738	19837	
==>lock. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19738	19837	
==>lock. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28733	28833	
==>xample, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is rea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28733	28833	
==>xample, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is rea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15048	15156	
==>}

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method noti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15048	15156	
==>}

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method noti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4716	4860	
==>5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4716	4860	
==>5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $matc <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2301	2399	
==>pt with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2301	2399	
==>pt with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2230	2337	
==>if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user may be r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3427	3561	
==>path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3427	3561	
==>path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18224	18316	
==>ther complex algorithm that
Module::Compile uses.

First, the source module is preprocessed t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18224	18316	
==>ther complex algorithm that
Module::Compile uses.

First, the source module is preprocessed t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6674	6807	
==>atch->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6458	6583	
==>atch->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub { <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4420	4642	
==>fix:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5597	5699	
==>:$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5655	5757	
==>:$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6902	7027	
==>push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7366	7491	
==>push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12020	12145	
==>7-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12020	12145	
==>7-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19722	19819	
==>ing special 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to imple <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19722	19819	
==>ing special 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to imple <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	298	421	
==>sts_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	356	479	
==>sts_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3295	3424	
==>@ || !defined $pil_tree;
	    my $warn = $@ ? "Eval of -CPerl5 code failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8943	9078	
==>tate->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8630	8762	
==>tate->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4529	4677	
==>am(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 25 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4529	4677	
==>am(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 25 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18136	18266	
==>.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1816	1922	
==>ii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1876	1982	
==>ii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23779	23910	
==>n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20200	20331	
==>n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8778	8908	
==>} unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8766	8896	
==>} unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $prog <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1561	1676	
==>ckgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1561	1676	
==>ckgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host, <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5000	5104	
==>x[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decodi <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5000	5104	
==>x[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decodi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7169	7274	
==>ntainer::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$sp <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7169	7274	
==>ntainer::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$sp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2101	2355	
==>}
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2101	2355	
==>}
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buff <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4029	4176	
==>se_ws_lit {
  my ($matchObj) = @_;
  $target = $matchObj->target();
  $position = $matchObj->position();
  $lastPosition = length $target;

  if mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3175	3293	
==>cl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3368	3486	
==>cl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5184	5442	
==>{
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5184	5442	
==>{
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34646	34748	
==>of the
heading of the invocant Relation, and returns a new Relation that has the
same heading as the in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39196	39298	
==>of the
heading of the invocant Relation, and returns a new Relation that has the
same heading as the in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	181	281	
==>> ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	181	281	
==>> ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1808	1925	
==>return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1808	1925	
==>return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->co <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2251	2350	
==>commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) name <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2251	2350	
==>commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) name <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10486	10575	
==>er($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10486	10575	
==>er($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%opt <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	787	895	
==>rstanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragm <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	787	895	
==>rstanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragm <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	271	386	
==>$duration.length);
}

#method infix:<->($self: Duration $duration) returns Duration {
    #$self.subtract($duration) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16982	17078	
==>lityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpressionNo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26530	26616	
==>eractive :load :assert :context :run);
#$Language::Prolog::Yaswi::swi_converter->pass_a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	926	1050	
==>>{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $@"] );
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3788	3893	
==>ass") if $cc;
    return $S->force_object(anyof_char => 'G') if $cc;
    return $S->object(gpos => gpos => <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	162	260	
==>se; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use strict;
use File::Basename ();

sub pr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9165	9247	
==>_charset_items_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems]) --> p5_chars <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	803	931	
==>oping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2223	2360	
==>e( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2440	2577	
==>e( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1251	1361	
==>r $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1251	1361	
==>r $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	312	479	
==>ent) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            par <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	312	479	
==>ent) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            par <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	930	1036	
==>number_the_lines($p5),"\n";
	}
	print $cc->warnings;
        print "----\n";
	my @res = eval($p5);
	print $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10121	10218	
==>turing_subrule {
    return "$_[1] \\&{'$namespace$_[0]'}\n";
}
sub node::negated_subrule {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	97	204	
==>elf:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so wha <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	97	204	
==>elf:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so wha <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3459	3569	
==>catenation_more(conc(W,X), Z), !.
p5_concatenation_more(W, W) --> {true}.

p6_concatenation(Z)    --> p6_quanti <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11088	11182	
==>red_INC>

  my @filtered_inc = $self->_filtered_INC;

Shortens C<@INC> by removing redundant an <==
2	/Users/nnunley/pugs/util/func_refact.pl	1978	2071	
==>Y({post=>{set=>$set, new=>$new}});
    print "union: while adding $new, entered with $oldsize, <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2206	2308	
==>rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12th line
GROK

my $f <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4533	4629	
==>ary image of the initrd, which will be mounted.
  --initrd-size=$initrd_size
    --initrd-size sp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2365	2461	
==>s => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2365	2461	
==>s => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Infinit <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1026	1138	
==>ame     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1026	1138	
==>ame     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	75	192	
==>t;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = ' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	75	192	
==>t;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = ' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5083	5371	
==>");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5083	5371	
==>");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7528	7670	
==>d;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7516	7658	
==>d;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3155	3269	
==>g.
    #my %idx = <package file line subname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( map { ; $_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4678	4790	
==>YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4537	4649	
==>YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	230	350	
==>mar1::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the fo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4123	4273	
==>$key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize stat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4123	4273	
==>$key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize stat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11584	11689	
==>imple's test will not be relevant though.

=item Create a Visitor class

This would also be a good use for <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11584	11689	
==>imple's test will not be relevant though.

=item Create a Visitor class

This would also be a good use for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9929	10090	
==>'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10208	10369	
==>'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1955	2056	
==>path(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1955	2056	
==>path(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11445	11542	
==>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11445	11542	
==>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2480	2594	
==>span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2480	2594	
==>span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12602	12719	
==>HASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12602	12719	
==>HASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	752	1021	
==>g object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13249	13384	
==>mplemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2439	2556	
==>j->packages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new repository on the f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	99	223	
==>ump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	99	223	
==>ump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}], <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1767	2041	
==>),
                                Sym('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4491	4618	
==>nextchar {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6560	6690	
==>ree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6560	6690	
==>ree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2852	2956	
==>) if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9315	9421	
==>n").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then `size` w <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9315	9421	
==>n").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then `size` w <==
2	/Users/nnunley/pugs/util/testgraph.pl	463	569	
==>e $yamlfh, ":utf8" or die "binmode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23641	23736	
==>in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23641	23736	
==>in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10019	10176	
==>my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10019	10176	
==>my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7195	7295	
==>ray

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONST <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7195	7295	
==>ray

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONST <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8838	9007	
==>return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8838	9007	
==>return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8224	8333	
==>ned $x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(",",map{recurse($_)}@$x).']';
    } el <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8906	9131	
==>> 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6655	6746	
==>->{_dirs}->{$_});
}


# Generating error.html
my $error_file = catfile($output_dir,"error.ht <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10861	10959	
==>unchanged.

The old value (or values) of the last of the header fields is returned.
If no such fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10861	10959	
==>unchanged.

The old value (or values) of the last of the header fields is returned.
If no such fiel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16131	16244	
==>e a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16131	16244	
==>e a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4065	4200	
==>der('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4065	4200	
==>der('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28015	28111	
==>ny keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32567	32663	
==>ny keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping( <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	409	552	
==>ing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.de <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	409	552	
==>ing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	797	893	
==>ie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend::Foo->compile($pro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	214	332	
==>{ \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block o <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	214	332	
==>{ \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block o <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2039	2163	
==>s when tests are inserted.
    # It is better then checking for the names of the tests 
    # since they are often the same f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1129	1299	
==>'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            else {
                die "invalid precedence: $opt->{precedence}";
            } <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7005	7105	
==>ods::Pure;
use Data::Dumper;


# The unification of the various types depends on their data...
# this <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1480	1574	
==>ode;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1480	1574	
==>ode;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	76	176	
==>ckage Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	76	176	
==>ckage Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	455	568	
==>.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	455	568	
==>.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	455	679	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	455	679	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1326	1526	
==>d',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Inte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1326	1526	
==>d',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Inte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4947	5111	
==>have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than havin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5411	5575	
==>have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than havin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	535	673	
==>($env);
    bless {
        body => $body,
        env  => $local_env
    } => $class;        
}

# we dont really have a native form
sub t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	722	826	
==>r_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my $self = shift;
	$self->emitter_class->requi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8478	8582	
==>8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8478	8582	
==>8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This do <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26333	26449	
==>ype::operator::nary->new(list => $b),
            type::operator::nary->new(list => type::operator::pair->new( $a, $b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5223	5335	
==>>nparens;
      r->lastcloseparen = SvOK(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      while(pops_left--) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2000	2137	
==>if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2000	2137	
==>if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2954	3068	
==>as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2847	2959	
==>as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3986	4119	
==>ler::Rule->compile(<<'RULE')->code();

    use <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'use '.$()->[2]{ident}[0]{ident};
		retur <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5524	5628	
==>y $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5524	5628	
==>y $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive match <==
2	/Users/nnunley/pugs/util/combine_tests.pl	35	174	
==>rnings;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump LoadFile/ ];
#my @data = map { YAML::LoadFile($_) } @ARGV;
#
#my $combined = combine <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	157	247	
==>implementation will overwrite. So smartmatch can be
implemented using some is_subtype? (QQQ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4902	5120	
==>ew 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  ))))) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6664	6882	
==>ew 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  ))))) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	987	1247	
==>_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	987	1247	
==>_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

= <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1039	1137	
==>can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1039	1137	
==>can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7764	7905	
==>lete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1065	1206	
==>lete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18971	19106	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15392	15527	
==>~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQI <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1013	1142	
==>elf = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	569	656	
==>me() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	569	656	
==>me() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5906	6016	
==>, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is no <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5964	6074	
==>, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is no <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	886	980	
==>ies of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	886	980	
==>ies of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10786	10895	
==>unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      push @$st, $tree;
      $rx->{tree} = $self->{dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1936	2051	
==>ource);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1936	2051	
==>ource);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	204	371	
==>{
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	204	371	
==>{
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9410	9515	
==>connect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9410	9515	
==>connect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	248	351	
==>type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked ag <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	248	351	
==>type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked ag <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2845	2943	
==>',@t_dirs||()));


# Find design doc directory, check
unless($no_designdocs) {
    for ( $syn_src_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3232	3329	
==>l at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}}-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5414	5518	
==>h).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ? <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5414	5518	
==>h).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ? <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	657	770	
==>ndie::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map { native($_) } (
        {
            arity => <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3779	3879	
==>n when running against
some of the perl5 t/op/ test files.  Use of the perl api has to be
checked for <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7712	7868	
==>content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7712	7868	
==>content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	269	367	
==>ine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13881	14023	
==>show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_ge <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13881	14023	
==>show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_ge <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4248	4357	
==>== Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4248	4357	
==>== Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1004	1149	
==>ore what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1004	1149	
==>ore what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	55	153	
==>urrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    d <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	55	153	
==>urrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12838	12939	
==>cted` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12896	12997	
==>cted` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6878	6974	
==>not drop-in) for my old
F<YAPE::Regex> modules.

=head1 USAGE

=head2 Creating an Instance

To us <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1750	1858	
==>pression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1750	1858	
==>pression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	86	194	
==>grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Sy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	86	194	
==>grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Sy <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4620	4735	
==>e)
        # This will also show numbers for some uneeded cases, but will
        # definately be helpful for things <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	940	1034	
==>bpcre> library for
regular expressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1248	1366	
==>ort {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1248	1366	
==>ort {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10915	11070	
==>\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10915	11070	
==>\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$u <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12770	12867	
==>ite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12770	12867	
==>ite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16154	16253	
==>tself works, and will
not spend much time in providing rationales; you can read TTM itself and
vario <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16154	16253	
==>tself works, and will
not spend much time in providing rationales; you can read TTM itself and
vario <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2338	2554	
==>ld.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2338	2554	
==>ld.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10927	11080	
==>= 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10927	11080	
==>= 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14198	14411	
==>-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                las <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14198	14411	
==>-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                las <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20777	20884	
==>by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resour <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20777	20884	
==>by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resour <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7231	7323	
==>erl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1056	1148	
==>erl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8270	8383	
==>:greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7983	8091	
==>:greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4944	5044	
==>head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final position o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4944	5044	
==>head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final position o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35650	35750	
==>ne off
and keep it normal, but the others we will make to be look-aheads.  To
make an object, we need <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2465	2571	
==>urn $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2465	2571	
==>urn $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3272	3396	
==>($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3986	4090	
==>($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1882	2014	
==>urst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burs <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1882	2014	
==>urst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6892	6991	
==>legal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7910	8009	
==>legal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13962	14088	
==>a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14020	14146	
==>a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to te <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8660	8783	
==>f, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8660	8783	
==>f, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3514	3659	
==>@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $ind <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3978	4123	
==>@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $ind <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1709	1796	
==>/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push(@yaml_harness_args,'-- <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9805	9914	
==>lf->{_is_macos} ) {
        my @inc = $self->_filtered_INC;
        push @derived_switches, map { "-I$_" } @in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4254	4371	
==>els{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4254	4371	
==>els{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	31	141	
==>or LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	31	141	
==>or LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	417	547	
==>%opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name => 'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>', <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	663	771	
==>1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	663	771	
==>1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4929	5045	
==>.
      # Finally, we delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4929	5045	
==>.
      # Finally, we delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %chann <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32905	33004	
==>it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32905	33004	
==>it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_name <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3612	3750	
==>isa('closure')) {
            my $ref = reference->new($val);            
            $closure->do(list->new($ref));
            $val = $re <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2111	2232	
==>s of the tests 
    # since they are often the same for different tests.
    #
    my $target = $_[-1];
    for my $file ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16224	16321	
==>g.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maische <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16282	16379	
==>g.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maische <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5269	5420	
==>ptions>
        { 
            $<category>.add_op( name => $<name>, fixity => ..., precedence => ... );
            return ... ;
        }
    }

    ru <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	991	1116	
==>r {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.po <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4330	4423	
==>today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4330	4423	
==>today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Da <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2773	2959	
==>ng(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6250	6436	
==>ng(Str) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1150	1244	
==>ntity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@gen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1150	1244	
==>ntity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@gen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12364	12535	
==>)) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12364	12535	
==>)) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2086	2195	
==>JIB::Utils->_copy( file => $self->dir, to => $tmpdir ) 
#             or error( "Could not copy sources to '$t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10591	10687	
==>evious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10591	10687	
==>evious => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurren <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3693	3804	
==>ntime::Perl5::RuleInit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runtime::Perl5::RuleO <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34765	34855	
==>ty-one Relation::Example or the invocant relation,
respectively.

=item C<restrict (Code $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15624	15715	
==>r objects themselves.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-readab <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8206	8320	
==>=~ /END/;#XXX

    $kind = 'Sub' if $kind eq 'SubRoutine';
    $kind = 'Sub' if $kind eq 'SubPrim';
    $kind =~ s/ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13428	13554	
==>:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isrange g <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1099	1202	
==>for this right now this is a non
    # issue since even higher order functions get prims instead of thun <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13548	13653	
==>lash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13548	13653	
==>lash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8354	8470	
==>h, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8342	8458	
==>h, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	611	713	
==>uct = eval { LoadFile( $file ) } or error( $@ ), return; 

    return $class->new_from_struct( struct = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14106	14219	
==>24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14106	14219	
==>24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2956	3080	
==>op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3805	3929	
==>op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5921	6043	
==>eturn Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5717	5834	
==>eturn Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->com <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17104	17219	
==>') -> $method {
        $method.($self, %params);
    }
}

(method BUILDALL ((opaque $self:) (hash %params)) returns <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1739	1849	
==>kage => $self ) ) {
        error("Package '". $self->package ."' is already installed --skipping");
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16100	16202	
==>e: once for inline code, once for the final Match tree.
  return $v;
}
}
sub def_rule {
  my($name,$re) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11156	11263	
==>ts as a container
in which Node objects live.  The Document class is pure and deterministic,
such that all o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11156	11263	
==>ts as a container
in which Node objects live.  The Document class is pure and deterministic,
such that all o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21250	21342	
==>he specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reaso <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21250	21342	
==>he specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reaso <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2988	3129	
==>oncat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2988	3129	
==>oncat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3262	3369	
==>/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3262	3369	
==>/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24547	24641	
==>tribute value.

Every Relation::Example attribute has a name that is distinct from the other
at <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1041	1169	
==>_;
  %$self = (
    regex => \"$rx",
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar => 0,
    nparen => 0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	311	427	
==>er::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs::Grammar::BaseCategory::ws;

sub ast {
    my $match = <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1906	2014	
==>E

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1906	2014	
==>E

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1322	1423	
==>}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKE <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1322	1423	
==>}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKE <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2271	2394	
==>MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs( <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2271	2394	
==>MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25025	25162	
==>e       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2615	2714	
==>-trivial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	27	130	
==>::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	27	130	
==>::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2150	2304	
==>($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2150	2304	
==>($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9479	9615	
==>ata} }, @{ $self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = $s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3214	3340	
==>$self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free vars inside a thingy

package typ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5274	5415	
==>t_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5274	5415	
==>t_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6252	6366	
==>y;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normaliz <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6252	6366	
==>y;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9874	9970	
==>d over 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate validat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9874	9970	
==>d over 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate validat <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3343	3439	
==>.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3343	3439	
==>.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4096	4260	
==>¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4096	4260	
==>¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2806	2902	
==>rns the representation of this node in the original text, or at
least a valid representation of i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2806	2902	
==>rns the representation of this node in the original text, or at
least a valid representation of i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2710	2812	
==>platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PL <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2710	2812	
==>platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6280	6393	
==>M_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6280	6393	
==>M_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	101	203	
==>mar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	101	203	
==>mar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1655	1798	
==>her => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        assoc => 'left',
        precedence => 'equal',
        othe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3031	3123	
==>tions(W,Z).

p6_alternatives(W, Z) --> "|", p6_conjunction(X), p6_alternatives(union(W,X), Z) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5297	5463	
==>tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         las <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5297	5463	
==>tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         las <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	474	620	
==>nt $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosis <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	474	620	
==>nt $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosis <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5468	5587	
==>>basename )->stringify();
        
        # append it to the existing content of the index
        push @$index_content <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5504	5673	
==>s_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5504	5673	
==>s_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3966	4087	
==>ntities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3966	4087	
==>ntities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2154	2260	
==>$rem * 1e9;
    return int($nano);
    #int( ($.second - int($.second) ) * 1e9);
}
method microsecond retur <==
2	/Users/nnunley/pugs/util/package-osx.pl	7493	7634	
==>.3pm
        /usr/local/man/man3/Perl6::Spec::Documentation.3
        /usr/local/man/man3/Perl6::Spec::Documentation.3pm
        /usr/local/ma <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15439	15563	
==>s Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutual <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15497	15621	
==>s Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutual <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7815	7909	
==>...}>

Clears the cipher object's internal structures.

Cipher authors should assume that if th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7815	7909	
==>...}>

Clears the cipher object's internal structures.

Cipher authors should assume that if th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1622	1735	
==>ile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1622	1735	
==>ile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8134	8256	
==>er($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        gi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8134	8256	
==>er($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        gi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8429	8521	
==>un when any block of characters is interpolated for modifiers.

=item I<end_element ('line_in <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8429	8521	
==>un when any block of characters is interpolated for modifiers.

=item I<end_element ('line_in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1621	1755	
==><class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1825	1959	
==><class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$met <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10599	10700	
==>ONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Arr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10599	10700	
==>ONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Arr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2816	3177	
==>,
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__EN <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7499	7652	
==>, Str, Int)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (Any, Int)\
\\n   List      non     ..      safe   (Scal <==
2	/Users/nnunley/pugs/util/importgraph.pl	1600	1707	
==>for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$mod}->[$type] = $name;
    pr <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	313	423	
==>ethod finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi meth <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	313	423	
==>ethod finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1228	1332	
==>ile;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1228	1332	
==>ile;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($dir <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6384	6591	
==>{
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6384	6591	
==>{
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	500	758	
==>y!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	500	758	
==>y!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3003	3117	
==>@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now conta <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3003	3117	
==>@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now conta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7883	8281	
==>ock new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))

$::ENV->create(
    "*::WAL <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10936	11048	
==>g delimiter (provided only one delimiter was specified)
      my $regex    = $7; 
      # captures delimited port <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11871	12010	
==>'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12150	12289	
==>'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5838	5958	
==>rn unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.curre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5838	5958	
==>rn unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.curre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23880	23986	
==>led with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23880	23986	
==>led with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file f <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5534	5716	
==>piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $totals->{details}[$result{number} - 1] = $details;
        }

        # XXX handle counter mismatch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6710	6811	
==>rnary_error if ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31470	31570	
==>p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the 'p' form is deprecated, but is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5436	5586	
==>int Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5658	5808	
==>int Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6264	6359	
==>o/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DE <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6264	6359	
==>o/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1600	1744	
==>character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1600	1744	
==>character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6192	6299	
==>hod stringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6192	6299	
==>hod stringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	390	492	
==><=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.com <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	390	492	
==><=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.com <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	505	749	
==>}
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ?$length,
                                       *@values
                                ) returns List <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5644	5781	
==>number} - 1] = $details;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self->_is_header($line) ) {
        $type = ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2816	2911	
==>claration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2816	2911	
==>claration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10788	10915	
==>inuxrc"],
    [$welcome_p6           => "$initrd_mnt/welcome.p6"],
  );
  step
    descr  => "Copying Pugs, Parrot, Bash, inputr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20578	20679	
==>t>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor, you
ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20578	20679	
==>t>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor, you
ha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6417	6542	
==>context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6475	6600	
==>context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1324	1529	
==>:constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1451	1656	
==>:constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1066	1180	
==>y . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1066	1180	
==>y . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1177	1304	
==>unless $param->{required};
	    $invocant = $db_param;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$na <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15833	15933	
==>.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules tha <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15833	15933	
==>.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules tha <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3156	3305	
==>5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3156	3305	
==>5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3216	3385	
==>),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub perl5 {
    my $rx = qr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1193	1319	
==>ifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1193	1319	
==>ifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | < <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18717	18822	
==>AMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C<package state <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18717	18822	
==>AMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C<package state <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1920	2036	
==>cent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1920	2036	
==>cent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11583	11686	
==>t package-specific.

Design:

  The comp hook sub should return a subref, which gets written onto a
  ho <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3628	3718	
==>ook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = call_sv(perl_callba <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3959	4054	
==>plement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3959	4054	
==>plement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2881	3007	
==>i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2881	3007	
==>i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4554	4650	
==>)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4554	4650	
==>)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1693	1785	
==>caveats).

Cipher::Arcfour also includes several attributes which might be interesting to 
pe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1693	1785	
==>caveats).

Cipher::Arcfour also includes several attributes which might be interesting to 
pe <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1071	1209	
==>ft;
    my $perl_version = shift
      or die "Must pass Perl version (5 or 6)";
    my $base = $self->{_top}{base};
    my $blib = ($perl_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8692	8819	
==>$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8692	8819	
==>$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cook <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10799	10893	
==>returns Str>

=item B<content_length returns Str>

=back

B<The following informational functio <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10799	10893	
==>returns Str>

=item B<content_length returns Str>

=back

B<The following informational functio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24082	24181	
==>rred
language into the program code itself, so it then becomes a version of that
language.  By contr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24082	24181	
==>rred
language into the program code itself, so it then becomes a version of that
language.  By contr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	28	124	
==>pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew whe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	28	124	
==>pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew whe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	259	355	
==>for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked agains <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	259	355	
==>for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked agains <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10600	10812	
==>ct next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10600	10812	
==>ct next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8820	8953	
==>(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8820	8953	
==>(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15543	15640	
==>by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database management sys <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15543	15640	
==>by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database management sys <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1514	1610	
==><Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1514	1610	
==><Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<s <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	653	774	
==>() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>" <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	653	774	
==>() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>" <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18586	18692	
==>Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replace)
{ Pugs::Inter <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29851	29947	
==>ummary code.

Implement Straps callbacks.  (experimentally implemented)

Straps->analyze_file() n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5639	5749	
==>: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5639	5749	
==>: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3071	3203	
==>ailable );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependenc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3535	3667	
==>ailable );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependenc <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	411	514	
==>es) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0] <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	411	514	
==>es) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0] <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1404	1536	
==>ite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DE <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1404	1536	
==>ite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15619	15745	
==>ries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!buck <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15619	15745	
==>ries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!buck <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2243	2352	
==>ined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2243	2352	
==>ined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next = <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	380	479	
==>nt($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	380	479	
==>nt($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1300	1407	
==>, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.pro <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1300	1407	
==>, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.pro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	156	269	
==>token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing proble <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	156	269	
==>token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing proble <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6099	6197	
==>pe', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6099	6197	
==>pe', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3554	3647	
==>-----------------------------------------------------------------------

# Utility to test tha <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5456	5549	
==>-----------------------------------------------------------------------

# Utility to test tha <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	29	139	
==>die::Prelude::Math;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    (
		map { stub($_, '$x', <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	877	993	
==>mensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { ret <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	697	820	
==>:hour($hour), :minute($minute), :second($second),
                           );
}

# convert from an iso duration
multi meth <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3132	3271	
==>l (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3132	3271	
==>l (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10294	10397	
==>et the value of one or more header fields.  The header field
name ($field) is not case sensitive.  To ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10294	10397	
==>et the value of one or more header fields.  The header field
name ($field) is not case sensitive.  To ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5799	5927	
==>ss $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5615	5740	
==>ss $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2824	2942	
==>};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quanti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2812	2930	
==>};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quanti <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3080	3334	
==>lass'})
                    );                
                }
                else {
                    $eigenclass->superclass($class);
                }
                $class = $eigenclass;                
            }
            return ::create_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12163	12250	
==>xidecimal_escape_sequence(X) --> "\\", ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	506	648	
==>nts or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2205	2293	
==>ndie::App->new(
			$class->build_indirect_typed_value(
				Blondie::Backend::Perl::Prim-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2946	3064	
==>a->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoco <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3410	3528	
==>a->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoco <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26840	26987	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27119	27266	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3950	4053	
==>nslator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3950	4053	
==>nslator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Tr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4480	4610	
==>55;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4480	4610	
==>55;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2125	2252	
==>on]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_} <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2125	2252	
==>on]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2219	2348	
==>@a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2219	2348	
==>@a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _bo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	290	397	
==>andle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib}, <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	290	397	
==>andle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib}, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12739	12841	
==>e), !, uncode_charname_to_char(Name,C), !.
p6_named_character_tail([],Close)    --> [Close], !.
p6_name <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2328	2457	
==>$base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2328	2457	
==>$base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14287	14389	
==>Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14287	14389	
==>Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2250	2360	
==>);
    return "$ident($list);\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7967	8069	
==>$temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto (pop @bsrStack);

  token_m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7781	7913	
==>elf.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7781	7913	
==>elf.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8419	8518	
==>say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8419	8518	
==>say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	154	558	
==>24.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	154	558	
==>24.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6382	6495	
==>ule, which unsets the flag before returning.

- this can also be used to do fail() and assert(), and 'no-backtrack <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6176	6288	
==>ule, which unsets the flag before returning.
- this can also be used to do fail() and assert(), and 'no-backtrack <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1160	1265	
==>.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1160	1265	
==>.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()! <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8514	8620	
==>ubmethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.write( $footer ) if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	140	237	
==>s is a rewrite of the matching engine, aiming to generate the same data structure as
the 'ratchet <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4943	5039	
==>method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multip <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4943	5039	
==>method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multip <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8406	8546	
==>WP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8406	8546	
==>WP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $ <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1075	1306	
==>ns won't work without
                             # MM support (or proxy accessors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Cla <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6204	6297	
==>:Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6204	6297	
==>:Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10437	10549	
==>patcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = join "" => $i->parse($source), '' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3824	3935	
==>n "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3824	3935	
==>n "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	759	861	
==>/../../Pugs-Compiler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../Pugs-Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7413	7500	
==>l6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1238	1325	
==>l6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16453	16623	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16732	16902	
==>grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19885	19988	
==>Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, including
the operat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19885	19988	
==>Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, including
the operat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6442	6577	
==>fore( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6442	6577	
==>fore( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4627	4762	
==>$.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4627	4762	
==>$.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.st <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7837	8080	
==>>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15657	15802	
==>ater.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15657	15802	
==>ater.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15453	15605	
==>{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

sub p6_as_perl5_whatever {
    my($x)=@_;
    return $x if !p6_is_perl6_obj <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	399	508	
==>nce we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.ma <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	399	508	
==>nce we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4767	4879	
==>ce => 0)) if $cc;
    return $S->object(space => 0);
  });

  $self->add_handler('\S' => sub {
    my ($S, $cc) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4145	4281	
==>[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4285	4421	
==>[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4692	4824	
==>=> '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4692	4824	
==>=> '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => ch <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3344	3438	
==>es(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3344	3438	
==>es(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	963	1104	
==>rcname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	963	1104	
==>rcname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18566	18672	
==>ng => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1319	1496	
==>ust the Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1319	1496	
==>ust the Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5258	5385	
==>previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5258	5385	
==>previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13347	13458	
==>atisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13347	13458	
==>atisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4008	4111	
==>ement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_previous, $set.compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4008	4111	
==>ement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_previous, $set.compl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6018	6152	
==>);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6018	6152	
==>);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6851	6969	
==>e desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6909	7027	
==>e desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	566	708	
==>t, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	566	708	
==>t, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7409	7512	
==>ve all leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7409	7512	
==>ve all leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @ba <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15806	15934	
==>$target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15806	15934	
==>$target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8652	8757	
==>ndex{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8640	8745	
==>ndex{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3654	3809	
==>| !defined $isnt ) {
        # undef only matches undef
        $pass = defined $got || defined $isnt;
    }
    else {
        $pass = $got ne $isnt;
    } <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5688	5817	
==>ame'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9999	10128	
==>ame'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	794	951	
==>y to the objects that are
created when you use;

  type Bar;
  subtype Foo of Str where { rx/^Foo/ };

It is probably bad to have both a MetaClass called C<Ty <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25300	25394	
==>(
		type::variable::free->new,
		type::operator::pair->new(
			type::variable::free->new,
			ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37515	37612	
==>'s the new class for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5471	5591	
==>}, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5471	5591	
==>}, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7187	7277	
==>tent_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7187	7277	
==>tent_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17099	17199	
==>ically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar val <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17099	17199	
==>ically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar val <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	21	117	
==>piler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	21	117	
==>piler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11955	12055	
==>- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11955	12055	
==>- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previous <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18416	18522	
==>he right input
format for Node.new(), by which you can create an identical Node (with
child Nodes) to the o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18416	18522	
==>he right input
format for Node.new(), by which you can create an identical Node (with
child Nodes) to the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23690	23807	
==>is only inside the (?:...)
  # (?i)     <-- the 'i' affects the rest of this scope

  # so if we're a (?:...), copy-an <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	204	303	
==>erate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	204	303	
==>erate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9163	9286	
==>ib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfil <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6568	6675	
==>d project (Set of Str $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return Rel <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	70	161	
==>ondie::Backend::C;
use Blondie::Emitter::Pretty;
use Blondie::TypeSafe;

my $r = Blondie::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9825	9939	
==>st:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.conne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9825	9939	
==>st:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.conne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18170	18320	
==>se {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14591	14741	
==>se {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13378	13500	
==>on.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. Thi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13378	13500	
==>on.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. Thi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12369	12457	
==>s(Open,Close), p6_hex_chars(R), [Close].
p6_hex_chars(R) --> hexdigits_int(C), p6_hex_cha <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	82	189	
==>$code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _ <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	82	189	
==>$code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2169	2314	
==>es and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satis <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3534	3671	
==>es and objectified dependencies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satis <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	336	454	
==>fix    => $Config{prefix},
        archname  => $Config{archname},
        exe_ext   => $Config{exe_ext},
        path_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9181	9296	
==>ntent-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9181	9296	
==>ntent-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Typ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4570	4694	
==>d splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @bo <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4570	4694	
==>d splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @bo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	401	516	
==>RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	401	516	
==>RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3978	4104	
==>{
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3978	4104	
==>{
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5824	5973	
==>ay[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4324	4473	
==>ay[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_change <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15724	15814	
==>ronment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller informatio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15782	15872	
==>ronment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller informatio <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6690	6798	
==>sult4;
}

# 9.5
multi sub ToInt32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumbe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	8	101	
==>in/perl -w

if(!@ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1095	1277	
==>) ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1095	1277	
==>) ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	387	510	
==>1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	421	543	
==>1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21085	21194	
==>$pkg;".<<'    END';
    #  no strict;defined($$mn)?$$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: b <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9133	9223	
==>AP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.co <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	128	235	
==>ll::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BE <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	29	136	
==>ll::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21205	21301	
==>suggested (but not required) that each Perl package which
uses this would come up with keys which <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21205	21301	
==>suggested (but not required) that each Perl package which
uses this would come up with keys which <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7337	7496	
==>$delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	638	797	
==>$delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	272	391	
==>f (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does no <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	272	391	
==>f (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1993	2113	
==>}[--$n] if $n;
  return $self->{captures};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13394	13498	
==>span>,
		<span class="tests_todo"><tmpl_var name=todo> todo</span>,<br />
                <span class="te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11355	11550	
==>s;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11355	11550	
==>s;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3208	3334	
==>tions in 'expected' order should fix this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-st <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2396	2524	
==>values
                             --> List )
{...}


# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# Bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	960	1063	
==>ments that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	960	1063	
==>ments that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13640	13745	
==>rmula cannot be satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13640	13745	
==>rmula cannot be satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1073	1179	
==>) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2ab <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1073	1179	
==>) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2ab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1336	1443	
==>y $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1336	1443	
==>y $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	391	490	
==>split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volum <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	391	490	
==>split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volum <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	253	377	
==>t);    

    $output .= "}\n";
    return $output;
}

my %SEEN;

sub _draw_role_node {
    my ($node) = @_;
    return "node_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	333	433	
==>sion abstract author license
    distribution_type perl_version tests
>;
my @tuple_keys = qw<
    bui <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22090	22194	
==>ne it finds.  This also works for the multiple language
or permissions issue; simply order the files appr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22090	22194	
==>ne it finds.  This also works for the multiple language
or permissions issue; simply order the files appr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16795	16911	
==>f->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13216	13332	
==>f->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7571	7676	
==>, @hex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	119	242	
==>need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	119	242	
==>need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1134	1279	
==>ule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37422	37523	
==>mplate_module( $module_name! )>

This method takes the name of a Perl package in its positional parame <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37422	37523	
==>mplate_module( $module_name! )>

This method takes the name of a Perl package in its positional parame <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13640	13805	
==>_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_erro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13640	13805	
==>_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_erro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13801	13922	
==>connecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13801	13922	
==>connecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.conn <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	50	142	
==>pe::Equivalence;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2879	2988	
==>y $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::Val <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3424	3533	
==>y $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::Val <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6898	7037	
==>atch = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6898	7037	
==>atch = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1069	1182	
==>r_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: join( ' ', @_ );
} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6479	6576	
==>_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6479	6576	
==>_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($b <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	743	882	
==>new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Resul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	743	882	
==>new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Resul <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	814	936	
==>on: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content_type;
        $header ~= "; charset=$cha <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5009	5121	
==>ch" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $operator->to();
  goto oper_shi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	457	608	
==>ns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    el <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	457	608	
==>ns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3658	3770	
==>lf: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3658	3770	
==>lf: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	979	1078	
==>d] unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wanted !! [$wanted];

  return sub($input) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	104	217	
==>Nodes;


sub new {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = sh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10367	10475	
==>vocant, isOptional=>$isOptional, isNamed=>$isNamed, isLValue=>$isLValue, isWritable=>$isWritable, isLazy=>$is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4262	4361	
==>pace => 1 - Whitespace is significant. Defaults to 1 in Rules.

=head2 match (Str $match_against)

I <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5923	6007	
==>(?x)".$::X::cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	897	1002	
==>macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug wor <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	897	1002	
==>macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug wor <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6256	6402	
==>ld_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3433	3549	
==>emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3650	3766	
==>emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12969	13109	
==>$str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12969	13109	
==>$str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", : <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16585	16696	
==>substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21011	21122	
==>substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19458	19576	
==>e Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19458	19576	
==>e Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2815	2926	
==>litdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2815	2926	
==>litdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8297	8461	
==>rt( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8297	8461	
==>rt( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5570	5792	
==>$meta_dir . '/'. $Postinst;
                if( -e $postinst && -s _ ) {
                    system( qq[ $^X $postinst ] )               and die $?;
                }    
            }
        }
        
        ### clean u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47454	47596	
==>d('add_method' => (
    # method label
        symbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            met <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18377	18478	
==>rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max_ng(Re,Left,Fx,F1,Bx,B1,E <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9944	10044	
==>>new(
				type::operator::nary->new(list => $a),
				type::operator::nary->new(list => $a),
			),
		) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7615	7764	
==>d of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.n <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7615	7764	
==>d of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25141	25241	
==>on.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whether th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29693	29793	
==>on.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whether th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9181	9309	
==>~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XX <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9181	9309	
==>~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	781	911	
==>]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	781	911	
==>]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3008	3126	
==>lse
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3008	3126	
==>lse
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	68	160	
==>equire 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	68	160	
==>equire 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6855	6949	
==>s
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6855	6949	
==>s
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	505	606	
==>scopes)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19507	19601	
==>ain program.

I<Note that an update is planned for Locale::KeyedText that will enable
user text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19507	19601	
==>ain program.

I<Note that an update is planned for Locale::KeyedText that will enable
user text <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4586	4696	
==>`intersects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4586	4696	
==>`intersects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8085	8243	
==>y_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7808	7959	
==>y_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    retu <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2688	2794	
==>p { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyr <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2688	2794	
==>p { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21111	21218	
==>r
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of the conve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21111	21218	
==>r
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of the conve <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	196	298	
==>(<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: ( <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	196	298	
==>(<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	111	208	
==>gexps are compiled and
# applied) to permit alternate regexp engines to be used without
# requirin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	529	628	
==>_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	587	686	
==>_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12806	12908	
==>eturns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element in th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12806	12908	
==>eturns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element in th <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	14	121	
==>l

package P6RulesInP5::OpTable;
use base qw/Class::Accessor/;

use strict;
use warnings;
use constant PGE_O <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3874	4038	
==>is one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4338	4502	
==>is one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3413	3547	
==>re {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{values}{features} ||= [] );

    my $mods;

    i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20710	20805	
==>"\$${ROOT}::Hash::META->new()" if $name =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var_C <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2636	2751	
==>self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if define <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2636	2751	
==>self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if define <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3497	3624	
==>se/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3497	3624	
==>se/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2023	2170	
==>od nanosecond returns Int {
    my $sec = $.second;
    my $round_sec = int($sec);
    my $rem = $sec - $round_sec;
    my $nano = $rem * 1e9;
    r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	196	303	
==>rely functional prototype OO system written in Scheme, which can
be seen here:

  http://okmij.org/ftp/Schem <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4148	4251	
==>s_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4148	4251	
==>s_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1553	1647	
==>ile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1553	1647	
==>ile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<gra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23602	23696	
==>dule L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23602	23696	
==>dule L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3466	3594	
==>oin( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3466	3594	
==>oin( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2832	2933	
==>rn("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2832	2933	
==>rn("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1116	1234	
==>ast.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1116	1234	
==>ast.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6046	6144	
==>ts;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod:: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6046	6144	
==>ts;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod:: <==
2	/Users/nnunley/pugs/util/importgraph.pl	1382	1501	
==>ore};
  }
}

# setup some predefined clusters
sub setup_mod {
  my $type = shift;
  my $name = shift;
  my $regexp = joi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7277	7365	
==>pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code_helpe <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4622	4812	
==>st -> @list
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement =     shift;
                map { $_-> <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	194	294	
==>TML::Template.new(filename => "wiki.html");

my $action    = param('action');
my %wiki      = evalfil <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1515	1665	
==>,   # of Scalar
        flat_array => "Array", # ditto
        ref => "Object",   # for now
        set => "Set", iset => "Set",         # also for now <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19717	19816	
==>nversions::Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "Forces generic Item conte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7802	7920	
==>q normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7802	7920	
==>q normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	222	329	
==>{ 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	222	329	
==>{ 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gramm <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11300	11396	
==>hould work with most reg-exps, but given that they are still a
somewhat experimental feature in P <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11358	11454	
==>hould work with most reg-exps, but given that they are still a
somewhat experimental feature in P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9897	9999	
==>ass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10245	10347	
==>ass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2653	2765	
==>rn("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2653	2765	
==>rn("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.memb <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18299	18462	
==>o x b i>) {
                $str ~= Pugs::Internals::sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10724	10825	
==>ss $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10724	10825	
==>ss $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3384	3481	
==>xpression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Cont <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3384	3481	
==>xpression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4464	4561	
==>a code reference, the match object returns the I<result>
object; this is normally the entire match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4464	4561	
==>a code reference, the match object returns the I<result>
object; this is normally the entire match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3380	3484	
==>atures

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3564	3668	
==>atures

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9910	10044	
==>a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos 
#6 - the whole string to match - TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1889	2006	
==>egex'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? ", { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4420	4558	
==>rint_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4642	4780	
==>rint_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        prin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1108	1238	
==>capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1108	1238	
==>capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1370	1473	
==> (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1370	1473	
==> (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6199	6346	
==>print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6712	6859	
==>print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3783	3896	
==>my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File: <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3783	3896	
==>my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File: <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1114	1229	
==>build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1114	1229	
==>build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	442	542	
==>hod create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $pl <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	442	542	
==>hod create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $pl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1867	2008	
==>www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_AR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1867	2008	
==>www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_AR <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	890	994	
==>o "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	890	994	
==>o "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11004	11189	
==>();                                                  
            }
        )
    )
);

=pod

method new (opaque $class: hash %params) returns opaque {
    $class.bless(undef, %params // <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10682	10814	
==>ncy open modes not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19673	19803	
==>(split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16094	16224	
==>(split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5920	6306	
==>main ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5920	6306	
==>main ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13479	13677	
==>apture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13758	13956	
==>apture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8279	8385	
==>(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8279	8385	
==>(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7611	7753	
==>$.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7611	7753	
==>$.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.cu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1201	1328	
==>s {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	542	666	
==>s {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2196	2295	
==>gs{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2174	2273	
==>gs{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	805	916	
==>/ set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	805	916	
==>/ set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy li <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5860	5985	
==>ata_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5860	5985	
==>ata_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34794	34901	
==>es => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34794	34901	
==>es => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32184	32289	
==>not, it then checks
each set's member for language B and displays that; and so on.

I<For the present, Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32184	32289	
==>not, it then checks
each set's member for language B and displays that; and so on.

I<For the present, Loc <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1507	1602	
==>lks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> di <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1507	1602	
==>lks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1508	1613	
==>eters as well as anything declared within

that scope.



the Sig contains a simply structure of the signa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1446	1548	
==>eters as well as anything declared within
that scope.

the Sig contains a simply structure of the signa <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	8	109	
==>in/perl -w
use strict;
use Fatal qw(open close);

open my $fh, '>index.html';
print { $fh } <<'END';
< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15240	15339	
==>self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9438	9537	
==>self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2323	2426	
==>hese functions return a closure.  Call the closure with a block of 
data to have it enciphered or deciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2323	2426	
==>hese functions return a closure.  Call the closure with a block of 
data to have it enciphered or deciph <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11215	11318	
==>eturns everything (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11215	11318	
==>eturns everything (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Re <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	22018	22140	
==>osures correctly!
    return if index($file, 'Test.pm') == -1;
    say "Attempting to compile $file ...";
    system($*EXEC <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10509	10620	
==>$p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10509	10620	
==>$p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::I <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1011	1121	
==>ATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1011	1121	
==>ATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3623	3850	
==>nd die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2089	2244	
==>nd die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) and die $? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	604	710	
==>rror at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# W <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	604	710	
==>rror at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# W <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2789	2889	
==>r; you might not be able to derive the 
plaintext from the result, but any cryptographer worth the na <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2789	2889	
==>r; you might not be able to derive the 
plaintext from the result, but any cryptographer worth the na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	939	1083	
==>eaders {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	939	1083	
==>eaders {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35377	35487	
==>ll Set Names elements in this object as an array ref.

=item C<get_member_names()>

This method returns all Mem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35377	35487	
==>ll Set Names elements in this object as an array ref.

=item C<get_member_names()>

This method returns all Mem <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11311	11415	
==>de) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=it <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11311	11415	
==>de) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4008	4117	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4008	4117	
==>ub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Loca <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3813	3937	
==>opy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3813	3937	
==>opy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23273	23368	
==>the interface/behaviour is), this Relation::Example data type is proposed to be
generally useful <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5896	6013	
==>unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5896	6013	
==>unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16251	16339	
==>@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.or <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16309	16397	
==>@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.or <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13357	13459	
==>w(), by which you can create an identical Document (with member
Nodes) to the one you first invoked exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13357	13459	
==>w(), by which you can create an identical Document (with member
Nodes) to the one you first invoked exp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7203	7325	
==>rn $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_sc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5236	5345	
==>erl5::X1::Api; use utf8; use Error qw(:try); $p5";
}

NODE PIL_Environment ($pilGlob, $pilMain) {
    join("\n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6496	6622	
==>name' not found in dynamic env";
}

sub next {
    my ($self, $env) = @_;
    $self->{next} = $env if defined $env;
    $self-> <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	608	725	
==>s ]) {
            my $normalizer = $arg but $.normalizer_role;
            return $normalizer but $.coercer_role, col <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	665	794	
==>ject:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4143	4272	
==>ject:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16377	16506	
==>mpile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16377	16506	
==>mpile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1358	1590	
==>\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            w <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1358	1590	
==>\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1101	1208	
==>n bit->new(0);
}

1;

__END__

=pod

=head1 NAME

symbol - the core symbol type

=head1 METHODS

=over 4

=i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11614	11710	
==>his without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11614	11710	
==>his without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinte <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2200	2287	
==>epan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read th <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2200	2287	
==>epan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14616	14765	
==>... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14610	14759	
==>... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "< <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8307	8414	
==>ent ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_interpolation')>

Thi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8307	8414	
==>ent ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_interpolation')>

Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	16	125	
==>:Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	16	125	
==>:Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3417	3590	
==>ode {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3417	3590	
==>ode {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - e <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4326	4455	
==>sLazy""isNamed""isOptional"
                             #       "isWritable""paramContext""paramDefault""paramName"
        dbg " <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8836	8932	
==>ing  => sub { my %l; @l{ldd($pugs), ldd("$parrot_path/parrot"), ldd($bash)} = (); @libs = keys %l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2240	2359	
==>}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite} <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2240	2359	
==>}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2769	2897	
==>me'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1391	1519	
==>me'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1393	1501	
==>y>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will cap <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1393	1501	
==>y>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	445	556	
==>ediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	651	762	
==>ediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18417	18516	
==>etting the most accurate program text
for users, we still get the best results by having a human bei <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18417	18516	
==>etting the most accurate program text
for users, we still get the best results by having a human bei <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	635	735	
==>ging the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte block <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	635	735	
==>ging the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte block <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3089	3189	
==>alue of the parameter named C<$name>.  If called in List context,
it will return a list of values.  O <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3089	3189	
==>alue of the parameter named C<$name>.  If called in List context,
it will return a list of values.  O <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4643	4771	
==>urns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4643	4771	
==>urns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4030	4170	
==>= [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3906	4042	
==>= [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7085	7198	
==>mper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7085	7198	
==>mper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '* <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2118	2219	
==>ted, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2176	2277	
==>ted, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2173	2325	
==>ing $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2233	2385	
==>ing $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0] <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1247	1351	
==>ion @by ; *@values) returns List
 multi sub sort(Criterion $by ; *@values) returns List
 &sort<> := &sort <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1544	1640	
==>r modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1544	1640	
==>r modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4876	4979	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4876	4979	
==>6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22686	22788	
==>B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names that
define the h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27238	27340	
==>B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names that
define the h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19263	19360	
==>iting them.  At
the same time, this information is in separate resource files used by the
program, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19263	19360	
==>iting them.  At
the same time, this information is in separate resource files used by the
program, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8779	8884	
==>automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8779	8884	
==>automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2797	2904	
==>return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2990	3097	
==>return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8034	8150	
==>tch object that has no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7763	7876	
==>tch object that has no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2523	2621	
==>}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2581	2679	
==>}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	598	726	
==>_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join( <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	598	726	
==>_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join( <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2432	2547	
==>tearch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib},
        SITELIBE <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12419	12549	
==>$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12419	12549	
==>$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12819	12916	
==>TML entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 and ea <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12819	12916	
==>TML entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 and ea <==
2	/Users/nnunley/pugs/util/testgraph.pl	689	801	
==>nline_css($Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $f <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5511	5607	
==>[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XX <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11130	11243	
==>g_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11130	11243	
==>g_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18148	18255	
==>the source code that it should be
looking at.

This section describes the rather complex algorithm that
Modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18148	18255	
==>the source code that it should be
looking at.

This section describes the rather complex algorithm that
Modu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21152	21247	
==>nels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21152	21247	
==>nels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3529	3639	
==>$topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3529	3639	
==>$topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9384	9483	
==>rt` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, it m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9384	9483	
==>rt` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, it m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	483	589	
==>-----------------------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	483	589	
==>-----------------------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18523	18697	
==>('BUILD'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27262	27356	
==>tr), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t (λ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5657	5760	
==>ned results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is implement <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5657	5760	
==>ned results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is implement <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25404	25506	
==>ebra.

A picture of a Relation::Example can look like a table, where each of its tuples is
a row, and e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39733	39844	
==>that $S->object(...) creates an object:
      $S->warn(RPe_BADESC, "y", " in character class");
      return $S- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	185	286	
==>p 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $na <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2105	2264	
==>en => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2105	2264	
==>en => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2208	2377	
==>eturn;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc, $self->config->bui <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19858	19970	
==>organization partly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19858	19970	
==>organization partly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19056	19214	
==>ar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19335	19493	
==>ar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  mat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5270	5432	
==>arse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5270	5432	
==>arse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20321	20447	
==>&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16742	16868	
==>&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14587	14694	
==>lar context, they all return the count of elements that would have
been iterated.

The lvalue form of C<keys <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10544	10675	
==>ack) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10544	10675	
==>ack) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27458	27551	
==>TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_off(prog) (( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27342	27439	
==>s; the new Relation has as
many additional attributes as there are pairs in the argument C<$attrs> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31894	31991	
==>s; the new Relation has as
many additional attributes as there are pairs in the argument C<$attrs> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3857	3962	
==>HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3857	3962	
==>HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4549	4694	
==>ge version $version\n";
    return $dump;
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1365	1497	
==>aram>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1365	1497	
==>aram>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppE <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7312	7427	
==>start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7312	7427	
==>start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17200	17304	
==>"Rosetta"
implements a virtual machine that is embedded in your Perl application and
in which the Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17200	17304	
==>"Rosetta"
implements a virtual machine that is embedded in your Perl application and
in which the Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1733	1907	
==>value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1733	1907	
==>value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	30	140	
==>rser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	30	140	
==>rser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_elemen <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2966	3120	
==>.new(:node<Match>),
                        Tree.new(:node<Junction>),
                        Tree.new(:node<Scalar::Const>),
                        Tree <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	688	783	
==>Builtins->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Ba <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	543	713	
==>.\n"; exit; },
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15442	15656	
==>mmar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15721	15935	
==>mmar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9374	9528	
==>expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9374	9528	
==>expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.ex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10332	10441	
==>me};
    die "bug $name" if !$info;
    my $chk = join(", ",map {"\$$_"} @{$info->{'fields'}});
    $vars eq $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14563	14669	
==>nqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14563	14669	
==>nqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue(" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2007	2175	
==>>( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2200	2368	
==>>( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4269	4386	
==>pass) {
        # It seems Irix long doubles can have 2147483648 and 2147483648
        # that stringify to the same t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1887	2003	
==>Y/;
        my $self = shift;
        return $self->($label, @_);
    }
}

## --------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1995	2197	
==>current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we ca <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1995	2197	
==>current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we ca <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12250	12356	
==>me_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12250	12356	
==>me_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	419	523	
==>re too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude usin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	430	534	
==>re too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude usin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1467	1584	
==>import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1467	1584	
==>import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5470	5615	
==>(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5470	5615	
==>(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936), <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2693	2814	
==>l"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2693	2814	
==>l"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8536	8686	
==>}
        # 5
        $A.property_value($P) = $V;
    } else { # 7
        $A.property_value($P) = $V;
    }
    # 8
    my sub not_an_array_index($P){ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1634	1733	
==>he ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Co <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1634	1733	
==>he ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22284	22382	
==>ubroutines or export such.

The usual way that Rosetta indicates a failure is to throw an exception <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22284	22382	
==>ubroutines or export such.

The usual way that Rosetta indicates a failure is to throw an exception <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6849	6985	
==>{
	unshift(@mess, "#      got '$got'\n",
		"# expected /$expected/\n");
    }
    local $Level = 2;
    _ok($pass, _where(), $name, @mess <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3591	3712	
==>$topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3591	3712	
==>$topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38679	38774	
==>f <$other> is a subset of the
heading of the invocant Relation::Example, and returns a new Relat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7882	7985	
==><from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7882	7985	
==><from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12325	12435	
==>ue if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12325	12435	
==>ue if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrenc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1081	1322	
==>nt( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( "\%" )
                 ,
                   rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20785	20887	
==>' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20785	20887	
==>' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_str <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2145	2251	
==>uctor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ an <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	463	567	
==>$plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$.output'   = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6808	6907	
==>fired, the first argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6808	6907	
==>fired, the first argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=o <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1778	1869	
==>ort of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1778	1869	
==>ort of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4788	4892	
==>nt
   from an MSYS build. If you wish to fix this please refer to:

   http://www.haskell.org/ghc/docs/5. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8615	8730	
==>roperty_value($P) = $V;
    }
    # 8
    my sub not_an_array_index($P){ !($P ~~ rx:perl5/\A\d+\Z/); };
    return i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3242	3438	
==>}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3242	3438	
==>}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	767	878	
==>scription;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	767	878	
==>scription;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5954	6063	
==>ss Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5954	6063	
==>ss Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1778	1915	
==>lasses
        foreach my $subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2028	2172	
==>n $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2088	2232	
==>n $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Match <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9326	9536	
==>isfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{pr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10803	11013	
==>isfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{pr <==
2	/Users/nnunley/pugs/util/package-osx.pl	9125	9241	
==>n");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = " <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1214	1320	
==>y contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@chun <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1150	1247	
==>y contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@chun <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4820	5032	
==>d {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4820	5032	
==>d {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20701	20795	
==>y
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prep <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20701	20795	
==>y
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prep <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	464	610	
==>y is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	464	610	
==>y is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2512	2641	
==>) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2512	2641	
==>) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	157	377	
==>rnation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	158	378	
==>rnation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1882	1981	
==>ator::binary: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_layout($$) }

type::ope <==
2	/Users/nnunley/pugs/util/package-osx.pl	1726	1815	
==>rl/5.8.6/pil2js.pl
        /usr/local/lib/perl5/site_perl/PIL2JS.pm /Library/Perl/5.8.6/PI <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	506	622	
==>xport {
    my Num $guess  = $target / 2;
    my Int $count  = 1;

    while (abs($f($guess) - $target) > $epsilon) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16114	16246	
==>s.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a C<.pm> file.

You get the following benefi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16114	16246	
==>s.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a C<.pm> file.

You get the following benefi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5258	5407	
==>(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5270	5419	
==>(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exis <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2052	2173	
==>r sources to a temp dir
#         JIB::Utils->_copy( file => $self->dir, to => $tmpdir ) 
#             or error( "Could n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4557	4656	
==>@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5849	5957	
==>dingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5849	5957	
==>dingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $ <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	457	579	
==>tion ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %p <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	457	579	
==>tion ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1831	1932	
==>$got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1889	1990	
==>$got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5569	5692	
==>ield is dual format (can also be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5569	5692	
==>ield is dual format (can also be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5779	5893	
==>ub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 5, '... $Bar is the fifth i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14698	14810	
==>==cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14698	14810	
==>==cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12013	12137	
==>,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12013	12137	
==>,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9660	9787	
==>e;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connecte <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9660	9787	
==>e;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connecte <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3595	3695	
==>::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3595	3695	
==>::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4882	5025	
==>nless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4882	5025	
==>nless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5456	5554	
==>ile_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5456	5554	
==>ile_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7426	7564	
==>$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"| <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17322	17435	
==>if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36544	36640	
==>s positional
parameter $message and returns an equivalent human readable text message
string; thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36544	36640	
==>s positional
parameter $message and returns an equivalent human readable text message
string; thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12552	12664	
==>'\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6027	6139	
==>'\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8359	8489	
==>ture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8552	8682	
==>ture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	236	355	
==>ule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	236	355	
==>ule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33615	33710	
==>This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation $oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38165	38260	
==>This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relation $oth <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34996	35096	
==>nt Relation.  This method
degenerates into an C<intersection> if the two source headings are
identica <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39546	39646	
==>nt Relation.  This method
degenerates into an C<intersection> if the two source headings are
identica <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11847	12016	
==>inus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation::Example $ot <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19422	19537	
==>NoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <VariableStatement>
    | <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1522	1627	
==>rk::cmpthese(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => sub{$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2581	2674	
==>is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2581	2674	
==>is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3363	3500	
==>$rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3351	3488	
==>$rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4384	4492	
==>= $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method differ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4384	4492	
==>= $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method differ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4101	4223	
==>capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3974	4094	
==>capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{captu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3444	3551	
==>got "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4087	4217	
==>There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4087	4217	
==>There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19173	19269	
==>he server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19173	19269	
==>he server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23627	23762	
==>r('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20048	20183	
==>r('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	694	814	
==>tant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4674	4790	
==>t uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->lo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4514	4626	
==>t uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15628	15753	
==>G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10484	10609	
==>G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S- <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6840	6938	
==>Ldist/build -idist/build/src -Ldist/build/src -o pugs src/Main.hs), @libs);
    print "*** Building <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1728	1850	
==>revious?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1728	1850	
==>revious?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3227	3344	
==>ket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3227	3344	
==>ket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9769	9873	
==>lass = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = split(/: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7072	7296	
==>t = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7072	7296	
==>t = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2039	2150	
==>ame" unless -e $file;
    }

    $self->version_from($file)      unless $self->version;
    $self->perl_version_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24652	24816	
==>ernative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see 15.10.1
      <null>
    | <Alternative> <Term>
}
rule Term {  # see 15.10.1
      <Ass <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14758	14853	
==>rse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - more...
re_reverse(R,R) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4283	4388	
==>s->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4500	4605	
==>s->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3802	3931	
==>-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3802	3931	
==>-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3057	3353	
==>@t => $t;
            }            
            
            # variables
            elsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => $t;
            }       
            
            # types
            elsi <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2336	2434	
==>| <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <noncap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	339	454	
==>( $self, %opt,
        fixity => 'infix', 
    );
    Pugs::Grammar::Operator::add_rule( $self, %opt,
        fixity <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24397	24498	
==>ree->new,
		my $b = type::variable::free->new,
	);
	$a->instantiate($b);
	is($type->stringify, "∀α. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4572	4701	
==>ptimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4572	4701	
==>ptimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4657	4766	
==>?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4657	4766	
==>?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	716	862	
==>equest',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	716	862	
==>equest',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => ' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8213	8327	
==>ent ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

Th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8213	8327	
==>ent ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	462	608	
==>s $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	443	584	
==>s $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3617	3722	
==>er('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3617	3722	
==>er('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9214	9338	
==>ame, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9214	9338	
==>ame, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2228	2330	
==>ar_comp => $S->nchar($n), "\\C[$n]");
      }

      return $S->object(exact_comp => join("", $S->nchar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1266	1625	
==>ire $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Except <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1266	1625	
==>ire $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Except <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1269	1388	
==>ile (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1202	1309	
==>ile (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25464	25559	
==>em C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30016	30111	
==>em C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relati <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2905	3041	
==>t?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XX <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2905	3041	
==>t?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XX <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2827	2980	
==>ert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2827	2980	
==>ert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4432	4530	
==>Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4682	4780	
==>Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1900	2001	
==>es C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1900	2001	
==>es C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4753	4937	
==>methods => {
        'report' => sub {
            my $ok          = _('$.passed') ? 'ok' : 'not ok';
            my $description = "# TODO " . _('$.description');
            return jo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1427	1523	
==>Simple.  Test::Harness is the module that reads the
output from Test::Simple, Test::More and othe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4504	4646	
==>uthorative for these links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpFi <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1511	1610	
==>{ $^a.round_half_random },

		{ $^a.round_half_ceiling },
		{ $^a.round_toward_zero },
		{ $^a.round <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5121	5219	
==>ow;
use base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::op <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30044	30137	
==>ttribute of a Message object, and each
hash value contains the user-readable message text asso <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30044	30137	
==>ttribute of a Message object, and each
hash value contains the user-readable message text asso <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8702	8891	
==>ls}}) {
            if ($detail->{type} eq 'todo') {
                if ($detail->{reason}) {            
                    $todos{$detail->{reason}}++
                }
                el <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30942	31037	
==>t to add a new POSIX character class, its handler
must start with "POSIX_".

=item $parser->del_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1323	1414	
==>y $extracted2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimited( "/" . $rema <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3334	3443	
==>\$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3334	3443	
==>\$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32 <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	461	600	
==>lugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_pa <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	461	600	
==>lugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_pa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31189	31290	
==>urns a new Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35739	35840	
==>urns a new Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<g <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7675	7782	
==>t, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(file => $fi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6519	6619	
==>EN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2753	2847	
==>et($self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2753	2847	
==>et($self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5385	5495	
==>'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	404	524	
==>ile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	436	556	
==>ile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8834	8971	
==>,
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8834	8971	
==>,
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => ch <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	398	492	
==>ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Starte <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	398	492	
==>ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Starte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	134	237	
==>le parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	134	237	
==>le parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1183	1288	
==>ase qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmes <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25462	25542	
==>_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2183	2323	
==>reate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2388	2528	
==>reate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3639	3735	
==>his.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptogra <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3639	3735	
==>his.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptogra <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2621	2715	
==>a NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Google G <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2621	2715	
==>a NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Google G <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5972	6079	
==>pment.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/comp <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5972	6079	
==>pment.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/comp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3039	3168	
==>e; $3 }
        sub package_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the metadata object of 1 package, and return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4572	4694	
==>>{'%:methods'}->{$label} = $method;
        },               
    },
);

# The 'EigenClass' class
$EigenClass = ::create_cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36873	36976	
==>ain' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36873	36976	
==>ain' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translato <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	537	668	
==>ons between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	537	668	
==>ons between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2892	3009	
==>trict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	156	273	
==>trict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	118	233	
==>use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	118	233	
==>use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4372	4580	
==>atisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4836	5044	
==>atisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	619	767	
==>( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	595	736	
==>( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1409	1514	
==>eset things, define tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6037	6144	
==>ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6037	6144	
==>ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2537	2655	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2537	2655	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9916	10021	
==>rings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9916	10021	
==>rings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6331	6444	
==>pe = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!part <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6331	6444	
==>pe = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!part <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6453	6591	
==><+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6453	6591	
==><+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $matc <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	612	774	
==>erl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	612	774	
==>erl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2542	2655	
==>y ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2542	2655	
==>y ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3921	4023	
==>se{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3921	4023	
==>se{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_stri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	11	110	
==>RC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	11	110	
==>RC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3719	3899	
==>rn;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4183	4363	
==>rn;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! r <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	492	592	
==>multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> F <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	492	592	
==>multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10360	10508	
==>e.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10360	10508	
==>e.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	374	476	
==>@PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	374	476	
==>@PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6599	6706	
==>peOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6599	6706	
==>peOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2527	2632	
==>", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(C <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2527	2632	
==>", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(C <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1127	1243	
==>cent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1127	1243	
==>cent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20214	20313	
==>he server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20214	20313	
==>he server was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7849	7954	
==>ndler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7849	7954	
==>ndler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35885	35979	
==>n, such that all common attribute names
and corresponding common tuple values are aligned and m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40435	40529	
==>n, such that all common attribute names
and corresponding common tuple values are aligned and m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6063	6168	
==>o end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $topcat = PGE_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	394	509	
==>Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	394	509	
==>Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20347	20445	
==>ata type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use it b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24899	24997	
==>ata type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use it b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20577	20693	
==>s have finished, the digest lines will
be expanded again.

Every bit of the default process described above is overri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20577	20693	
==>s have finished, the digest lines will
be expanded again.

Every bit of the default process described above is overri <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	620	725	
==>high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinit <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	620	725	
==>high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinit <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19465	19555	
==>.
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - ex <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	329	435	
==>*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	329	435	
==>*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	74	223	
==>:Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        e <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	74	223	
==>:Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	311	417	
==>al
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	311	417	
==>al
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20217	20354	
==>comb(
							fun => ide("=="),
							param => ide("x"),
						),
						param => val(0),
					),
					then => ide("r"),
					else => comb( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1790	1873	
==>erl util/catalog_tests.pl --test_dirs=t/builtins,t/macros --output_dir=t_test --no_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2111	2236	
==>nder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2029	2148	
==>nder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0] <==
2	/Users/nnunley/pugs/misc/S29_round.pl	147	267	
==>r( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	46	141	
==>use Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!o <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	46	141	
==>use Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18730	18829	
==>le simultaneously
trying to avoid triggering core behavior which we are not prepared to
support (suc <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3020	3119	
==>le simultaneously
trying to avoid triggering core behavior which we are not prepared to
support (suc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	0	107	
==>=pod

This file is the beginning of a simple JavaScript-on-p6 runtime.
It seems likely there will be more th <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1773	1867	
==>kemaker_args->{INST_MAN1DIR} =
      File::Spec->catfile($path, "man1");
    $self->makemaker_a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3567	3691	
==>ml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3567	3691	
==>ml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1761	1859	
==>rl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1901	1999	
==>rl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1522	1628	
==>::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1662	1768	
==>::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emi <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	83	177	
==>qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	78	178	
==>s;

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	43	142	
==>s;
sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11485	11592	
==>r_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11485	11592	
==>r_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.h <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	458	607	
==>mpt = $1   if $line =~ /^#\s*prompt:\s+(.*)/;
        $default = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abst <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31458	31558	
==>t know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the 'p' form is deprec <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1217	1324	
==>w($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1184	1291	
==>w($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1940	2043	
==>mand_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1940	2043	
==>mand_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	249	345	
==>E

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	249	345	
==>E

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYN <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4047	4287	
==>'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (?:
                          \ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	724	848	
==>confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $kla <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3138	3274	
==>idget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "T <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3138	3274	
==>idget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20357	20516	
==>rn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20636	20795	
==>rn unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18606	18733	
==>ram => comb(
					fun => ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39759	39848	
==>rsion of the aforementioned.

=item C<join (Relation::Example $other!) returns Relation::E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1249	1370	
==>x', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6933	7068	
==>ata}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_;
      $self->{neg};
    }
  }

  s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19111	19203	
==>Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PARSER>)
{
    Pugs::Internals::eval($c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2560	2681	
==>e this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2560	2681	
==>e this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2112	2241	
==>.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2112	2241	
==>.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$s <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2673	2769	
==>e perl core.  There being no
documentation, one ends up reverse engineering perl source.

We basi <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	611	705	
==>$.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.st <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	611	705	
==>$.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7388	7498	
==>A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char_comp => chr(hex $h), "\\X[$h] <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3200	3308	
==>%$self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free v <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	999	1092	
==>item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	999	1092	
==>item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port ret <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22724	22842	
==>un => comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						f <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1125	1228	
==>m
  }
}

class POE::Session {
  method dispatch (Str $event, *@args) {
    die 'Please override &dispatc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1048	1143	
==>say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, thoug <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1048	1143	
==>say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, thoug <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2730	2919	
==>n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2730	2919	
==>n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16354	16497	
==>s )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19831	19974	
==>s )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25784	25880	
==>ons of Rosetta that you modify and distribute must carry prominent
notices stating that you chang <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25784	25880	
==>ons of Rosetta that you modify and distribute must carry prominent
notices stating that you chang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	346	473	
==>t};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUP <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	346	473	
==>t};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUP <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11256	11372	
==>) returns Bool is export`

These functions should work with most reg-exps, but given that they are still a
somewhat e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11314	11430	
==>) returns Bool is export`

These functions should work with most reg-exps, but given that they are still a
somewhat e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23680	23819	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23959	24098	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  ma <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9355	9467	
==>s_unexpect { color: #550; }
  </style>

  <script type="text/javascript">//<![CDATA[[
    function toggle_visibil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2348	2485	
==>ng_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2595	2732	
==>ng_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13711	13861	
==>9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13711	13861	
==>9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*! <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1389	1554	
==>size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<en <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1389	1554	
==>size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12179	12456	
==>expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12179	12456	
==>expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ], <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	478	614	
==>y @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                grep {  package_prefix( $_->[1]->{p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7339	7438	
==>d_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s*\)?\s*\z/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	94	205	
==>art, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => unde <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	94	205	
==>art, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => unde <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	23	127	
==>.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active | <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	23	127	
==>.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active | <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2736	2878	
==>}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2736	2878	
==>}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8773	8877	
==>etta::Model" package serves only as the name-sake
representative for this whole file, which can be refere <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8773	8877	
==>etta::Model" package serves only as the name-sake
representative for this whole file, which can be refere <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12256	12377	
==>($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4899	5020	
==>($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	970	1065	
==>my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sit <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	970	1065	
==>my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sit <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15907	16004	
==>tem for writing modules that I<compile> other
Perl modules.

Modules that use these compilation mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15907	16004	
==>tem for writing modules that I<compile> other
Perl modules.

Modules that use these compilation mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31770	31871	
==>t user is fluent in (and prefers) language A but also understands
language B.  Later on, if for exampl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31770	31871	
==>t user is fluent in (and prefers) language A but also understands
language B.  Later on, if for exampl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1103	1229	
==>ead1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1103	1229	
==>ead1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5943	6115	
==>self;
    while ($current) {
        if (exists $current->{env}->{$name}) {
            $current->{env}->{$name}->store($value);
            return;
        }
        $curre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1599	1734	
==>ing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'liter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1610	1745	
==>ing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'liter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1287	1408	
==>? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out . <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2350	2454	
==>dules in 
Pugs, this port does it's best to work with those limitations and 
still produce a working vers <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2350	2454	
==>dules in 
Pugs, this port does it's best to work with those limitations and 
still produce a working vers <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2977	3089	
==>ugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<term1>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14261	14363	
==>iterate through a continuous span, because the "separation" 
between values would be very close to zero <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14261	14363	
==>iterate through a continuous span, because the "separation" 
between values would be very close to zero <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34738	34836	
==>yedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34738	34836	
==>yedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6399	6503	
==>ed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &::hlp_stmt;})');
my $x5 = def_stmt_prim('bs_infix_decl','\s*multi\s+( <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1158	1256	
==>ethod dispatch (Str $event, *@args) {
    die 'Please override &dispatch in your subclass of POE::S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15041	15138	
==>ion

Many times during a program's operation, the program (or a package it uses)
will need to disp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15041	15138	
==>ion

Many times during a program's operation, the program (or a package it uses)
will need to disp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18276	18375	
==>time figuring out the
best way to deal with it.  But for displaying to users, easy messages are
bett <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18276	18375	
==>time figuring out the
best way to deal with it.  But for displaying to users, easy messages are
bett <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3389	3557	
==>*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3389	3557	
==>*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19796	19900	
==>Relation object is determined when it is constructed, and the object can
not be changed afterwards.

If y <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24348	24452	
==>Relation object is determined when it is constructed, and the object can
not be changed afterwards.

If y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1645	1784	
==>e_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1852	1991	
==>e_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      els <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	220	358	
==>';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26864	26957	
==>, this property and/or
same-named accessor method can be used to see if a Relation::Example-do <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3842	3936	
==>t> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://w <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3842	3936	
==>t> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://w <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	365	477	
==>arsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junctio <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	365	477	
==>arsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junctio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2012	2111	
==>t "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'Pugs::Grammar::Rule::$name'} = su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14985	15114	
==>d through the
following convenience methods.  These methods can both be used to read
and to set the value of a header.  The header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14985	15114	
==>d through the
following convenience methods.  These methods can both be used to read
and to set the value of a header.  The header <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	51	143	
==>uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	51	143	
==>uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4769	4895	
==>,
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4962	5088	
==>,
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7976	8101	
==>mmar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1801	1926	
==>mmar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statem <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33989	34089	
==>es aren't supported by a program or its libraries.
When translating a message, a match in found in th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33989	34089	
==>es aren't supported by a program or its libraries.
When translating a message, a match in found in th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	226	328	
==>use all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be wri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	217	318	
==>use all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be wri <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11794	11907	
==>rue if the closures that define the recurrences are exactly the same.

This method tests the closures identities u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11794	11907	
==>rue if the closures that define the recurrences are exactly the same.

This method tests the closures identities u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10080	10199	
==>inmod >;
    return $S->object(quant => 0, '');
  });

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7844	7949	
==>ans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

Th <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7844	7949	
==>ans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

Th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13361	13497	
==>();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(), <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13361	13497	
==>();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(), <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3769	3916	
==>sted in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3769	3916	
==>sted in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	771	882	
==>tring.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	791	895	
==>tring.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4038	4166	
==>{ bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4178	4306	
==>{ bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3095	3233	
==>p);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3095	3233	
==>p);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	667	776	
==>rser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Sa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	635	735	
==>rser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Sa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7866	7966	
==>f Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7866	7966	
==>f Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	645	791	
==>mmar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of mod;
    }
    $target = $matchObj->tar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2395	2495	
==>:Pretty - An emitter that reduces a program into a string of
(hopefully) perlish text.

=head1 SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	449	544	
==>lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Securit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	449	544	
==>lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Securit <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5308	5402	
==>x) --> "..", digits_int(Max), !.
p6_range_bounds_RHS(_Min,-)   --> "...", !.
p6_range_bounds_RH <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	757	854	
==>l::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::T <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	757	854	
==>l::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::T <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6701	6829	
==>e
    wstat       Script's wait status
    max         Number of individual tests
    failed      Number which failed
    percent <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1899	2007	
==>type,
		struct_equiv => Blondie::Val->new(
			Blondie::TypeSafe::Annotation->new(
				type => $type,
				stru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2419	2518	
==>r deciphered; when you're done, call the closure 
with no arguments to finish the ciphering and clea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2419	2518	
==>r deciphered; when you're done, call the closure 
with no arguments to finish the ciphering and clea <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2052	2189	
==>r $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exis <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2030	2167	
==>r $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17455	17549	
==>his "Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17455	17549	
==>his "Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50354	50472	
==>$e->get('$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9457	9566	
==>_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS_WHITES <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	867	966	
==>e accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	867	966	
==>e accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed Lazy: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3838	4025	
==>quest_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3838	4025	
==>quest_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	681	784	
==>$<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*tok <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	681	784	
==>$<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*tok <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20885	20985	
==>rns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unorde <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25437	25537	
==>rns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unorde <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4195	4295	
==>end value of the span.

These methods may return nothing if the span is empty.

- `start_is_open()` / <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4195	4295	
==>end value of the span.

These methods may return nothing if the span is empty.

- `start_is_open()` / <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10645	10806	
==>1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10645	10806	
==>1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4526	4729	
==>"   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a matc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4526	4729	
==>"   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a matc <==
2	/Users/nnunley/pugs/util/package-osx.pl	10363	10472	
==>ess (-d $dirs);
    
    open  REMOVER, '>', "$dest$files[-1]" or die "Can't open $dest$files[-1]!";

    my @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1086	1181	
==>:proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1144	1239	
==>:proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $go <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11379	11530	
==>y logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11379	11530	
==>y logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      } <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7262	7375	
==>n-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7262	7375	
==>n-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3802	3958	
==>T' block     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4175	4307	
==>apture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4047	4176	
==>apture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$match <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	842	983	
==>gs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	842	983	
==>gs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9443	9546	
==>f the set contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9443	9546	
==>f the set contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7824	7928	
==>span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7824	7928	
==>span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21444	21545	
==>se engines with minimal effort.

This might seem strange to somebody who has not tried to port between <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21444	21545	
==>se engines with minimal effort.

This might seem strange to somebody who has not tried to port between <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13445	13546	
==>.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
d <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13445	13546	
==>.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14627	14751	
==>erolen} and $self->{max} eq '') {
        $rx->awarn($rx->RPe_NULNUL, $tree->[-1]->visual . $self->raw);
      }

      $self <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4813	4907	
==>L::PIL1CPerl5::Util::FilterNodeDefs::import(__PACKAGE__,'emit');
}
use strict;
use Perl6::Run:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10260	10379	
==>@{ $st->[-1] } and $st->[-1][-1]->family eq $self->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$t <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3234	3349	
==>E, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2157	2278	
==>, $ghc, @args);
    build_exe($version, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24672	24784	
==>ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21093	21205	
==>ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4506	4689	
==>num:]]$/ 
                && defined $$m->{tail}
                && $$m->{tail} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26903	27003	
==>match)],
	    vars => [qw (L X Y Z)];
#use Language::Prolog::Types qw(:ctors);
use Benchmark qw(:all) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7276	7373	
==>tem I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7276	7373	
==>tem I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2574	2685	
==>on ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2574	2685	
==>on ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16495	16587	
==>integrated database functionality;
this language, which satisfies TTM's definition of a "D" l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16495	16587	
==>integrated database functionality;
this language, which satisfies TTM's definition of a "D" l <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4412	4543	
==>tch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5621	5728	
==>Emitter related files



=head1 Compiler processes



### separate "processes" from actual module documentat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5428	5531	
==>Emitter related files

=head1 Compiler processes

### separate "processes" from actual module documentat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3896	4005	
==>sub store {
    my ($self, $index, $value) = @_;
    (blessed($value) && $value->isa('symbol'))
        || con <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	455	572	
==>erit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    { <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	455	572	
==>erit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10328	10456	
==>gen.reset;
    debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10328	10456	
==>gen.reset;
    debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1616	1730	
==>ader (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$c <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1616	1730	
==>ader (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2413	2521	
==>b is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2413	2521	
==>b is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is ex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12382	12476	
==>urns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12440	12534	
==>urns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1351	1466	
==>turns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1351	1466	
==>turns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	244	351	
==>he user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	195	296	
==>he user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4176	4278	
==>ntactic categories
    For writing your own backslash and assertion rules or macros, you may
    use th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5549	5649	
==>previous_exec_hook = PL_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setu <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	65	159	
==>l is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	65	159	
==>l is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4243	4461	
==>/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4243	4461	
==>/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12169	12273	
==>pugsrun/11-safemode.t if you change the fully
    # qualified name of open3.

    multi sub open3 (Str $c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6616	6729	
==>rogram file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .tem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6616	6729	
==>rogram file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .tem <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1618	1730	
==>n @matches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is export{
    my @args = split ',', $x <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8148	8302	
==>', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8148	8302	
==>', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2959	3078	
==>a = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<da <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2959	3078	
==>a = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<da <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2268	2374	
==>ent($list);\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1049	1172	
==>shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1049	1172	
==>shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), consta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	263	370	
==>PIL nodes.  vtype() returns a string that represents the 
node type, which are checked against each other fo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	263	370	
==>PIL nodes.  vtype() returns a string that represents the 
node type, which are checked against each other fo <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	628	757	
==>i($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAUL <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	628	757	
==>i($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAUL <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4325	4431	
==>::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5061	5167	
==>::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5325	5425	
==>d stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5325	5425	
==>d stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1461	1555	
==>l) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1461	1555	
==>l) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public comm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3575	3785	
==>PER::new();
    
    
        for my $key ( keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->mk_accessors( $acc );
            
            ### set to a <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3234	3395	
==>s well.

    if ($Config{osname} eq q{cygwin}) {

        # The world's ugliest cygwin variable gives us a hint to the
        # cygwin root.  There is probably a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7702	7812	
==>{ require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11600	11718	
==>return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11594	11712	
==>return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20623	20736	
==>est->{ml}dubious\n\tTest returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26929	27034	
==>d (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26929	27034	
==>d (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10697	10822	
==>$say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method ru <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10697	10822	
==>$say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method ru <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10886	10981	
==>nds) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10944	11039	
==>nds) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8286	8408	
==>you create your tree in a top-down
# manner, this is usually not an issue
# since each time you either add a child
# or cre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8286	8408	
==>you create your tree in a top-down
# manner, this is usually not an issue
# since each time you either add a child
# or cre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19255	19376	
==>ust be included as part of a C<401 Unauthorized> response.
The field value consist of a challenge that indicates the
authe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19255	19376	
==>ust be included as part of a C<401 Unauthorized> response.
The field value consist of a challenge that indicates the
authe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4755	4906	
==>1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4767	4918	
==>1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2648	2746	
==>File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2648	2746	
==>File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6586	6724	
==>ontent-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6586	6724	
==>ontent-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12295	12454	
==>t (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12295	12454	
==>t (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22173	22283	
==>"x",
	body => comb(
		fun => comb(
			fun => ide("cons"),
			param => ide("x"),
		),
		param => ide("nil"),
	), <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7808	7916	
==>ined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    foreach my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	476	636	
==>ut'} || \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1214	1323	
==>n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/live <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20027	20164	
==>$type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16448	16585	
==>$type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23555	23659	
==>e other differences.  Where other solutions take variables, they
seem to be positional (like with 'sprint <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23555	23659	
==>e other differences.  Where other solutions take variables, they
seem to be positional (like with 'sprint <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2568	2670	
==>ion = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2568	2670	
==>ion = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5276	5413	
==>s;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5276	5413	
==>s;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3203	3365	
==>ix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc lef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	416	528	
==>ments OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supported by p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	394	502	
==>ments OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supported by p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	526	654	
==>',
        name => 'prefix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { op <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	98	227	
==>*@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ / <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6969	7069	
==>.
p5_metachar("^").
p5_metachar("$"). %"
p5_metachar("(").
p5_metachar(")").
p5_metachar("{").

isP6m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2761	2875	
==>t until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2761	2875	
==>t until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3417	3519	
==>he Cipher API is fundamentally object-oriented; the procedural and functional 
interfaces are layers on <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3417	3519	
==>he Cipher API is fundamentally object-oriented; the procedural and functional 
interfaces are layers on <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	420	513	
==>EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	420	513	
==>EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20292	20392	
==>racted -- each node it comes across
will have its walk() method called.  And the ending node for stac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7204	7346	
==>/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7204	7346	
==>/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4247	4483	
==>> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4247	4483	
==>> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1151	1249	
==>ter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- rename $n o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1849	1994	
==>e(
        name => ':',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - colli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10344	10456	
==>xt} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_handler('{' => sub {
    my ($S) = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1021	1182	
==>mes    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1021	1182	
==>mes    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13403	13505	
==>ll the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13403	13505	
==>ll the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4950	5114	
==>SH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4962	5126	
==>SH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $cap <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9757	9855	
==>n assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input vali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9757	9855	
==>n assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input vali <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1002	1091	
==>ss|while|unless)';
our $re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1950	2066	
==>X Prim.hs has a different return type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw!Array: List)\
mul <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3182	3292	
==>t STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7063	7203	
==>f $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7063	7203	
==>f $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3956	4054	
==>ntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4140	4238	
==>ntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12468	12569	
==>C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12468	12569	
==>C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1608	1727	
==>i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @len <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1608	1727	
==>i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @len <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3137	3295	
==>]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3137	3295	
==>]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1575	1718	
==>{
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1575	1718	
==>{
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8713	8818	
==>w( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence object.

- `uni <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8713	8818	
==>w( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence object.

- `uni <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8905	9010	
==>m_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8963	9068	
==>m_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25939	26037	
==>names and values
that are associated with the message, and can be interpolated into the
human-reada <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25939	26037	
==>names and values
that are associated with the message, and can be interpolated into the
human-reada <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23268	23370	
==>e is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Look <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27820	27922	
==>e is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Look <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2302	2413	
==>le->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2442	2553	
==>le->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $sta <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15002	15101	
==>rently is to implement this as a mutually recursive multi-
sub which will be able to handle structur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15060	15159	
==>rently is to implement this as a mutually recursive multi-
sub which will be able to handle structur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10615	10719	
==>hod emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.la <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10615	10719	
==>hod emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.la <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2957	3071	
==>ed';

use base 'type::equivalence';

sub new {
    my ($class, %options) = @_;
    (exists $options{params} && bles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14210	14347	
==>*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14489	14626	
==>*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	304	418	
==>eturn '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful s <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	304	418	
==>eturn '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20277	20380	
==>t of the compilation
is replaced by a single line containing the hexadecimal digest of the
result in dou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20277	20380	
==>t of the compilation
is replaced by a single line containing the hexadecimal digest of the
result in dou <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2386	2497	
==>ead2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Return <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2386	2497	
==>ead2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Return <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	193	307	
==>rguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our succ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	193	307	
==>rguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our succ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2503	2642	
==>_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2503	2642	
==>_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3864	4008	
==>ot found';"
    #         or "return ENOENT; # file not found"
    #  say this: "fail            'file not found';"
    
    # make 'use fatal' n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15972	16080	
==>c => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Hash(%{$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	510	622	
==>$string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $strin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	510	622	
==>$string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $strin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24089	24188	
==>>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28641	28740	
==>>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is u <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4553	4657	
==>"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4553	4657	
==>"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22745	22857	
==>> ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("list <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	848	960	
==>de!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::string_concat {
    my <==
2	/Users/nnunley/pugs/util/drift.pl	777	877	
==>/DrIFT",
    "-i$Bin/../../DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	209	299	
==>------------------------------------------------------------------------
## This is an exte <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	177	267	
==>------------------------------------------------------------------------
## This is an exte <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2076	2178	
==>proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2134	2236	
==>proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3569	3696	
==>$depth;
  my $d = $depth;
  my @stack = @{ $self->{tree} };
  my $next;

  return sub {
    return $depth if @_ and $_[0] eq -de <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3456	3582	
==>Mapping is the name
        # of one of this Relation::Example's attributes and the value corresponding
        # to that is th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2134	2233	
==>onal things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?



I propo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2054	2150	
==>onal things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?

I propo <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3813	3927	
==>my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6137	6251	
==>my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34668	34894	
==>ew($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1261	1377	
==>t actually split?
        # my @args = $string.split(rx:Perl5/\s+/);
        # my @args = split(rx:Perl5/\s+/, $strin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21926	22033	
==>te_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23595	23683	
==>[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1).
replace_at_n(N,Replace,[H|T], <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6348	6452	
==>simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6348	6452	
==>simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15693	15841	
==>therwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19926	20074	
==>therwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7475	7589	
==>c)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7475	7589	
==>c)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15285	15407	
==>s Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15285	15407	
==>s Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontro <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13142	13246	
==>2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13142	13246	
==>2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9447	9591	
==>,Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9435	9579	
==>,Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3492	3596	
==>stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) = Perl6::Run::OnPerl5::X1::Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	158	257	
==>DO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9835	9942	
==>e a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9835	9942	
==>e a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	806	948	
==>r a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	806	948	
==>r a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9253	9348	
==>Rosetta::Model is entirely object-oriented; you use it by
creating objects from its member class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9253	9348	
==>Rosetta::Model is entirely object-oriented; you use it by
creating objects from its member class <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9832	9923	
==>negative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersecti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9832	9923	
==>negative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersecti <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9695	9802	
==>$self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9695	9802	
==>$self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $se <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2511	2637	
==>";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         , <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2511	2637	
==>";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         , <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5809	5897	
==>_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(condition(R <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6983	7265	
==>start => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6983	7265	
==>start => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	490	598	
==>:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	490	598	
==>:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8595	8706	
==>your
# depth fields are all out of whack.
# This is where this method comes into play
# it will recurse down the <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8595	8706	
==>your
# depth fields are all out of whack.
# This is where this method comes into play
# it will recurse down the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8098	8243	
==>> chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8098	8243	
==>> chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5172	5289	
==>ince ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5172	5289	
==>ince ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1572	1680	
==>ariable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1572	1680	
==>ariable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12577	12702	
==>e 'type' attr
fun: env($.body) = { new_env($$) }
fun: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24932	25041	
==>'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <QuantifierPrefi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9158	9294	
==>mplate_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9158	9294	
==>mplate_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13313	13468	
==>ys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13313	13468	
==>ys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	580	736	
==>ssible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	580	736	
==>ssible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11687	11771	
==>ittle, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11687	11771	
==>ittle, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5708	5876	
==>n [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5708	5876	
==>n [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31682	31782	
==>plicate attribute names of the invocant Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31981	32076	
==>k
references).

=item off

The flags specifically turned off for this object (for flag assertion <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7061	7160	
==>:insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7061	7160	
==>:insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16106	16211	
==>lue. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16106	16211	
==>lue. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1499	1647	
==>mar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1499	1647	
==>mar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

su <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1677	1790	
==>value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@stri <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1677	1790	
==>value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@stri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5013	5133	
==>ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Regexp::Parser::{$type . '::'};
    m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25243	25358	
==>ts> <'}'>
}
rule Atom {  # see 15.10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <Charact <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3125	3243	
==>HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('H <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3125	3243	
==>HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('H <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2299	2405	
==>CH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2516	2622	
==>CH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15926	16031	
==>the server will return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15926	16031	
==>the server will return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modif <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7338	7449	
==>}

    return @index_files;
}

### these plural functions seem more confusion than helpful currently
# 
# ## XXX <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6914	7005	
==>inder->new;
	$self->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5260	5358	
==>head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5260	5358	
==>head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1961	2068	
==>e Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Pe <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1961	2068	
==>e Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Pe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2505	2592	
==>r-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2505	2592	
==>r-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21187	21281	
==>r
module distribtution do not need to have the compilers installed
themselves. So you don't nee <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21187	21281	
==>r
module distribtution do not need to have the compilers installed
themselves. So you don't nee <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9980	10097	
==>tion.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13457	13574	
==>tion.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source i <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1435	1540	
==>of one variable

It looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - toleran <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7018	7155	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7211	7348	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1280	1382	
==>d in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F< <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1280	1382	
==>d in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17301	17401	
==>etta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual machine in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17301	17401	
==>etta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual machine in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11323	11417	
==>s all elements both from this recurrence and from the given recurrence.

- `intersection( $recu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11323	11417	
==>s all elements both from this recurrence and from the given recurrence.

- `intersection( $recu <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7009	7145	
==>lti = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSubLValue">;
        dbg "# Parameters: "; 
        my @pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8967	9108	
==>ef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8654	8791	
==>ef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4754	4893	
==>uaranteed sorted; and sorting
            # helps diffing raw YAML results.
            @tests = sort @tests;
        }
        if ( $Config <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11356	11517	
==>ut .= "$text <a href='$linkfile'>$whole</a>";
        $links++;
        next;
      }
      
      $linkhead = $1 if ($linkhead =~ /^"(.*)"$/);
#     $body->push_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30918	31014	
==>rd with Perl 5.8.

=head2 Object Attributes

All objects share the following attributes (accessib <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	178	292	
==>rait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
sub func( $arg is copy ) { $arg = 123; }
#="is ref": ei <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9715	9835	
==>rn emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9695	9815	
==>rn emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8547	8749	
==>Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8547	8749	
==>Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4293	4412	
==>]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4486	4605	
==>]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2513	2624	
==>rt:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2513	2624	
==>rt:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path") <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3685	3956	
==>{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3538	3798	
==>{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
} <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2888	2991	
==>onth, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2888	2991	
==>onth, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1157	1283	
==>x ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlie <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1157	1283	
==>x ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlie <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14297	14400	
==>l`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' charact <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14355	14458	
==>l`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' charact <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8018	8133	
==>ule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5420	5529	
==>ule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	754	877	
==>ter( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

metho <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	754	877	
==>ter( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4206	4356	
==>"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4206	4356	
==>"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5953	6091	
==>->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not break so the smoke reports lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11812	11928	
==>vms) {
	    $runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # M <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	435	536	
==>tput in a file and
specify this file as parameter.
Output will go to STDOUT in PNG format.
INFO

# Rea <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2205	2313	
==>er) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2205	2313	
==>er) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	279	395	
==>dition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
mult <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	279	395	
==>dition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
mult <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33558	33657	
==>C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elements <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33558	33657	
==>C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elements <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2153	2251	
==>Prelude>, or preferably let
L<Blondie::Runtime> load it for you.

Inherits Map.

=back

=head2 Node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1629	1763	
==>2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were inc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1563	1691	
==>2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were inc <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	666	774	
==>ix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	666	774	
==>ix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9073	9173	
==>ass Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

su <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9073	9173	
==>ass Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5778	5877	
==>s to return a negative value for
# relative seconds and a positive value for epoch based time values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5778	5877	
==>s to return a negative value for
# relative seconds and a positive value for epoch based time values <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2300	2410	
==>> <grammar_name> \;[ [<rule>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "us <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1617	1730	
==>ast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plug <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1617	1730	
==>ast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plug <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	764	872	
==>use Data::Dumper;

# --------------------------------------------------
# Regexps
# ------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	719	836	
==>eturn emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	807	924	
==>eturn emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2328	2433	
==>External packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4600	4762	
==>q updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4600	4762	
==>q updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2374	2477	
==>other.size && $other.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2374	2477	
==>other.size && $other.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20121	20217	
==>password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorizati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20121	20217	
==>password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorizati <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8792	8897	
==>t>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleStr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7537	7643	
==>- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7537	7643	
==>- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5991	6091	
==>e as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, the headers
ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5991	6091	
==>e as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, the headers
ar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12652	12757	
==>lavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6538	6655	
==>xt {
    my ($self, $env) = @_;
    $self->{next} = $env if defined $env;
    $self->{next};
}

1;

__END__

=pod

=he <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20650	20762	
==>In :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # see 12.3
      < <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3604	3718	
==>-Z0-9_]+)(\s?)/&syn($1,$2,$3)/gme;
#    # comments
#    $file =~ s/#(.*)$/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ / <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3343	3448	
==>0..@arrays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8454	8563	
==>=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5990	6097	
==>=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16477	16577	
==>rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16477	16577	
==>rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1795	1973	
==>g $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload & <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1795	1973	
==>g $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11345	11444	
==>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11345	11444	
==>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4585	4704	
==>cript/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') {
        warn << "."
** Note that Cygwin support for pugs s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1282	1373	
==>ulti sub sort(Criterion $by ; *@values) returns List
 &sort<> := &sort<Criterion>.assuming(b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2593	2696	
==>le>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2777	2880	
==>le>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1253	1363	
==>Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1253	1363	
==>Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22053	22170	
==>bout it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #end <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16955	17070	
==>bout it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	14	110	
==>s::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	14	106	
==>s::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pug <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15511	15614	
==>the start or end value of the span.

These methods may raise a warning if the new value would put the sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15511	15614	
==>the start or end value of the span.

These methods may raise a warning if the new value would put the sp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12892	12996	
==>s. 
For example, when iterating through the span range, the unit is added to the current value to get the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12892	12996	
==>s. 
For example, when iterating through the span range, the unit is added to the current value to get the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1459	1570	
==>t $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superse <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1459	1570	
==>t $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superse <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29706	29805	
==>r it to ever be executed.  As such,
it would be pre-consumptive.

There is an interesting case of th <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1498	1611	
==>JECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1498	1611	
==>JECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	781	930	
==>ckage Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	781	930	
==>ckage Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4186	4334	
==>&f'),
            Param->new('$accum'),
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('& <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1855	1958	
==>copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1855	1958	
==>copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.inters <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5293	5397	
==>$real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5293	5397	
==>$real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4347	4466	
==>l ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for contin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4347	4466	
==>l ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for contin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9458	9570	
==>o $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.auto <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9458	9570	
==>o $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.auto <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34953	35048	
==>a new Relation::Example
which has a subset of the original's tuples, and it works like Perl's
st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40790	40884	
==>ng informed any time you create a
modified version of Locale::KeyedText that you are willing to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40790	40884	
==>ng informed any time you create a
modified version of Locale::KeyedText that you are willing to <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1105	1205	
==>messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"print-ba <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1105	1205	
==>messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"print-ba <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3436	3550	
==>p6ws>? \, <p6ws>?
    $<code> := (.*?) <p6ws>? \;
        { return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1705	1808	
==>[ Path::Class::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.list') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20394	20529	
==>_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20673	20808	
==>_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	994	1116	
==>ss defined $_[0];
    my $bool = $_[0] =~ / ^([\$|\@|\%]\*(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4223	4359	
==>l,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4416	4552	
==>l,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1:: <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5442	5539	
==>en  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1910	2028	
==>t::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinterac <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2629	2747	
==>emplate =~ s/#all_fields#/$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	315	424	
==>=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kw <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	315	424	
==>=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kw <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	470	627	
==>Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22523	22617	
==>ill also provide some variable values to be
interpolated into the user strings; Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22523	22617	
==>ill also provide some variable values to be
interpolated into the user strings; Locale::KeyedTe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	350	491	
==>confess "You must provide a value to reference";
    bless \$value => $class;
}

sub to_native { shift }

# conversion to other native types
s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	336	439	
==>SORS

=over 4

=item dir

=item meta

=item config

=back

=head1 METHODS

=head2 $src = JIB::Source->ne <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8475	8590	
==>};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce <==
2	/Users/nnunley/pugs/util/importgraph.pl	706	806	
==>r die "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^module \s+ ([\w.]+) (\s* \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1407	1533	
==>([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1407	1533	
==>([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	339	427	
==>::Compiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Token->compile <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19467	19597	
==>ntrol::Basic::sleep ( Num $for = Inf --> Num )
{
    Pugs::Internals::sleep($for);
}


# die 

# fail


# bless 

# chr

# ord


 m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5558	5660	
==>000**1000**1000 #XXX there has to be a better way. :(
  }
}
{
  package Regexp::Parser::__object__;
  @ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	246	350	
==>r $str) returns Str is builtin is primitive {
    # XXX return $str but newline("\n")
    if substr($str, <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4891	4992	
==>nt STDERR "done.\n" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4477	4585	
==>ames );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4477	4585	
==>ames );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_nam <==
2	/Users/nnunley/pugs/util/func_refact.pl	777	892	
==>tial}) {
        print "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doUnion (@{$Conf{initial}});
} else { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	419	529	
==>it is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape() or another object or something l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1713	1827	
==>density );
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1713	1827	
==>density );
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12303	12409	
==>the given value, but only if no previous
value for that field is set.

The header field name ($field) is no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12303	12409	
==>the given value, but only if no previous
value for that field is set.

The header field name ($field) is no <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4580	4707	
==>( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{bas <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2322	2447	
==>($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{bas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13635	13802	
==>.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13635	13802	
==>.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2314	2433	
==>fix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2314	2433	
==>fix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	361	475	
==>ALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harness::Straps - detailed analysis of t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4197	4396	
==>> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4197	4396	
==>> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1701	1823	
==>n, 
        FILES => join(' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $li <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28849	28943	
==>xample $other!) returns Bool>

This method returns the complement of C<equal> with the same arg <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5974	6199	
==>$pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this    = $test;
                last;
            }
            
            ### XXX clean up links from $unlink <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28621	28708	
==>CH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	414	518	
==>put => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUP <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	414	518	
==>put => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUP <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	572	670	
==>ESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node ty <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	572	670	
==>ESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node ty <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7850	7968	
==>t here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX Th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7850	7968	
==>t here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX Th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2212	2336	
==>{ box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2212	2336	
==>{ box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2792	2920	
==>rn ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2792	2920	
==>rn ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3117	3233	
==>}

sub define {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return if $self->node_is_defined($node);

	ret <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18931	19038	
==>uld seem to make sense for e.g. the 'id' function, this won't work if we pass in $plus_ten
my $flatten_polym <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	40	161	
==>-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	40	161	
==>-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	676	777	
==>b splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	676	777	
==>b splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1977	2090	
==>ync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1977	2090	
==>ync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7260	7374	
==>) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    return $Result4;
}

# 9.7 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3973	4102	
==>wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3973	4102	
==>wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7631	7752	
==>if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7631	7752	
==>if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6605	6714	
==>}    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6605	6714	
==>}    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39247	39341	
==>etta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39247	39341	
==>etta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6164	6250	
==>oken\s+(\w+)\s+{([^}]*)}(?{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1837	1967	
==>s;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1837	1967	
==>s;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!para <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4508	4664	
==>.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4508	4664	
==>.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5390	5535	
==>unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5390	5535	
==>unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdi <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2297	2421	
==>o 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=hea <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2297	2421	
==>o 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11045	11144	
==>it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe() <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11045	11144	
==>it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe() <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5679	5782	
==>rs>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize $event<object>} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5679	5782	
==>rs>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize $event<object>} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1215	1330	
==>urn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1215	1330	
==>urn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4722	4838	
==>();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4722	4838	
==>();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	811	931	
==>*ArrayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	811	931	
==>*ArrayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18450	18579	
==>hallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBRO <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18450	18579	
==>hallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBRO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1100	1268	
==>defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1100	1268	
==>defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8430	8540	
==>nt<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8430	8540	
==>nt<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1755	1913	
==>s::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_command($file);
            }
        }
    }
}

1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1636	1743	
==>s::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file);
			}
		}
	}
}

1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	952	1087	
==>ile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is cal <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	952	1087	
==>ile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is cal <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8872	8985	
==>ing braces for closure")
    .return (mob)
.end
    

.sub "parse_quant"
    .param pmc mob
    .local string targ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10815	10914	
==>.local string subname
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5350	5535	
==>gth;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5350	5535	
==>gth;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	415	525	
==>f $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $calle <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	415	525	
==>f $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $calle <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34911	35010	
==>hod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation.  T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39461	39560	
==>hod will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation.  T <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8561	8663	
==>"$n\"";
}
sub PIL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2230	2330	
==>Blondie::Node::List';

    package Blondie::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5609	5716	
==>$span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5609	5716	
==>$span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7163	7314	
==>refix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7163	7314	
==>refix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3335	3440	
==>gether, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3335	3440	
==>gether, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10011	10120	
==>:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 ) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10011	10120	
==>:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 ) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	746	849	
==>a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a special shortc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	746	849	
==>a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a special shortc <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	597	697	
==>, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	597	697	
==>, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36034	36154	
==>ames elements, concatenated in the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36034	36154	
==>ames elements, concatenated in the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to ea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5034	5186	
==>eft--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r-> <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	707	842	
==>r), :minute($minute), :second($second),
                           );
}

# convert from an iso duration
multi method duration( Str $iso8 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4075	4267	
==>efined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4075	4267	
==>efined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5816	5932	
==>er if $operator;          
  }

  expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1430	1534	
==>abstract data types.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::L <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1222	1330	
==>05-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1222	1330	
==>05-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2286	2382	
==>Script  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based u <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2286	2382	
==>Script  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20622	20740	
==>C, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17043	17161	
==>C, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5189	5303	
==>et_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2731	2845	
==>et_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	577	687	
==>hods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_sin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	577	687	
==>hods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_sin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5472	5714	
==>))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7234	7476	
==>))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get (" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11631	11727	
==>`intersects( $recurrence )`

Returns true if this recurrence intersects (has any element in commo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11631	11727	
==>`intersects( $recurrence )`

Returns true if this recurrence intersects (has any element in commo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1522	1614	
==>_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1522	1614	
==>_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( *@f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24946	25046	
==>::KeyedText::Message Class

A Message object is a simple container which stores data to be used or
di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24946	25046	
==>::KeyedText::Message Class

A Message object is a simple container which stores data to be used or
di <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15309	15410	
==>is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19467	19568	
==>is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23110	23208	
==>ike "gettext" it looks like you
are supposed to pass in english text and they translate it, which c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23110	23208	
==>ike "gettext" it looks like you
are supposed to pass in english text and they translate it, which c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1730	1878	
==>' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1730	1878	
==>' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6953	7099	
==>al_pv("$regexp_compile_hook",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook...\n");
      handler = sv;
    }
  } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4199	4472	
==>ess ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_on <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4199	4472	
==>ess ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_on <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6439	6541	
==>from \"$kernel_uri\"",
  help   => "Remove \"$kernel_local\" if you want mklivecd.pl to refetch the ker <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20238	20348	
==>s modified
# try to 'collapse' useless directory entries
sub collapse_isolated_dirs {
    my $dir_index = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3952	4044	
==>d "compile" via package "Pugs::Compiler::Perl6"

Please see L<http://rt.cpan.org/Public/Bug/D <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3380	3488	
==>.Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3380	3488	
==>.Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9755	9848	
==>r" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9755	9848	
==>r" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17782	17928	
==>edo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14203	14349	
==>edo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S-> <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7517	7628	
==>in FILE [default: $Config{"output-file"}]
    --dry, -n               Show which tests would be run but don't ru <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1068	1166	
==>) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1068	1166	
==>) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16259	16416	
==>[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16253	16410	
==>[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$b <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3649	3781	
==>:/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $name = $values{name};
        $n <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2284	2398	
==>($class, $conf) = @_;
    do { $conf->{$_} = $DEFAULTS{$_} unless defined $conf->{$_}; } for
        keys %DEFAULTS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6893	7025	
==>my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6893	7025	
==>my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6244	6360	
==>channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6244	6360	
==>channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!u <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23194	23286	
==>name and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23194	23286	
==>name and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2507	2646	
==>mple:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the thunk won't be run - it must be <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1051	1144	
==>file, and a JIB::Package::Installed
on a META_OBJ.

XXX needs verification
XXX needs binary pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22190	22345	
==>} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18611	18766	
==>} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13541	13637	
==>ore an implementation
could be started).  This is most useful when writing modules and you
find t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13599	13695	
==>ore an implementation
could be started).  This is most useful when writing modules and you
find t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4293	4396	
==>method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.comp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4293	4396	
==>method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.comp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4132	4247	
==>t, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4132	4247	
==>t, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9457	9589	
==>s;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9445	9577	
==>s;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { st <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2507	2631	
==>-

sub CheckHead {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	544	641	
==>p {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	544	641	
==>p {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22585	22681	
==>ally stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22585	22681	
==>ally stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	738	847	
==>hods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	738	847	
==>hods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6228	6334	
==>my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7226	7332	
==>my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1053	1169	
==>},
    methods => {
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 },
        'testplan' => sub { _ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12389	12483	
==>object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5032	5126	
==>object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	803	893	
==>etta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	803	893	
==>etta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	193	447	
==>es used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	193	447	
==>es used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	493	602	
==>h(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	retur <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	493	602	
==>h(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3558	3676	
==>pen = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be les <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3558	3676	
==>pen = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be les <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19011	19145	
==>";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15432	15566	
==>";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14962	15057	
==>ers can also be accessed through the
following convenience methods.  These methods can both be u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14962	15057	
==>ers can also be accessed through the
following convenience methods.  These methods can both be u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14487	14593	
==>s still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the code support <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14545	14651	
==>s still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the code support <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	718	831	
==>PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pug <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	718	831	
==>PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pug <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7851	7959	
==>)>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

This event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7851	7959	
==>)>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

This event <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20222	20323	
==>r was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20222	20323	
==>r was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2070	2195	
==>grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2851	2976	
==>grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6707	6841	
==>}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAM <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6707	6841	
==>}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAM <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20173	20267	
==>ains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20173	20267	
==>ains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1993	2137	
==>lsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1993	2137	
==>lsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37338	37434	
==>C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41887	41983	
==>C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6659	6784	
==>,
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldq <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6659	6784	
==>,
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldq <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	976	1083	
==>0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	976	1083	
==>0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5044	5156	
==>nd_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5044	5156	
==>nd_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23335	23427	
==>at are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23335	23427	
==>at are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOM <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3849	4018	
==>hod' => $e->get('$current')->send('get_method' => $e->get('$label')));                    
                      })
                  );    
                $e->set('$cur <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4594	4706	
==>negated = matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $in <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2236	2336	
==>ize <= $other.size && $other.includes($self.members));
}
method proper_subset($self: Set $other) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2236	2336	
==>ize <= $other.size && $other.includes($self.members));
}
method proper_subset($self: Set $other) retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6707	6798	
==>ormalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6707	6798	
==>ormalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3578	3708	
==>t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3718	3848	
==>t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14420	14525	
==>urn the header fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14420	14525	
==>urn the header fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2983	3217	
==>?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3230	3464	
==>?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5601	5747	
==>evious versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5613	5759	
==>evious versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12393	12594	
==>\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12393	12594	
==>\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1916	2018	
==>turns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1916	2018	
==>turns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2542	2654	
==>y $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2542	2654	
==>y $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $univer <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1818	1977	
==>irtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1818	1977	
==>irtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                ma <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1677	1784	
==>t, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1735	1842	
==>t, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depe <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11126	11242	
==>tures the closing delimiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $rest        = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1034	1124	
==>rl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1034	1124	
==>rl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl:: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1377	1472	
==>erclasses($super);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasses.siz <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2652	2762	
==>reshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2652	2762	
==>reshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated b <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2180	2291	
==>- basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2180	2291	
==>- basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4148	4231	
==>ace::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Inte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4148	4231	
==>ace::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Inte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	561	687	
==>e Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	561	687	
==>e Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8683	8785	
==>>macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2508	2610	
==>>macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Per <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4862	4964	
==>r, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rols <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4862	4964	
==>r, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rols <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	366	500	
==>OY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	366	500	
==>OY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * com <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	560	704	
==>]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16217	16327	
==>es; you can read TTM itself and
various other external documentation for much of that.

The Rosetta Native Inte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16217	16327	
==>es; you can read TTM itself and
various other external documentation for much of that.

The Rosetta Native Inte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15210	15319	
==>r $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15210	15319	
==>r $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14464	14561	
==>ader.  Since it
internally uses the C<scan> method to build the string, the result
will use case a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14464	14561	
==>ader.  Since it
internally uses the C<scan> method to build the string, the result
will use case a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2570	2723	
==>PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2570	2723	
==>PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4238	4341	
==>uced to 10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 and 10 in the p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	94	202	
==>s::Runtime::Grammar for metaclass stuff

sub perl {
    local $Data::Dumper::Terse = 1;
    return join( ', ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11676	11803	
==>ecure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => und <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11676	11803	
==>ecure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => und <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3546	3658	
==>ame> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <cl <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3546	3658	
==>ame> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <cl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	564	745	
==>Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[ta <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	850	1015	
==>Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[ta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7840	7940	
==>"Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7840	7940	
==>"Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_pre <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3136	3243	
==>rl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3136	3243	
==>rl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        typ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1888	2057	
==>= $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item') <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1888	2057	
==>= $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item') <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	582	976	
==>I>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	582	976	
==>I>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_elemen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2513	2617	
==>N

An object of this class represents the query string portion of a requested URI.
It provides the follow <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2513	2617	
==>N

An object of this class represents the query string portion of a requested URI.
It provides the follow <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1384	1534	
==>ri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1384	1534	
==>ri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10306	10426	
==>$var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10306	10426	
==>$var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20635	20735	
==>e
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20635	20735	
==>e
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5962	6077	
==>f individual tests passed
    sub_skipped     Number of individual tests skipped
    todo            Number of indiv <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8167	8270	
==>i Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from PIL2JS Array <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31925	32055	
==>d throw an
error (specifically, B<RPe_NOTREC>, "Sequence (?xx not recognized").  If
you want to throw your own error, see L</"ERROR <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3985	4124	
==>s of a file

=cut

sub _get_file_contents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { requi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6263	6417	
==>_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6321	6475	
==>_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $c <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	106	197	
==>localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	106	197	
==>localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline' <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	89	209	
==>%Config = %Config::Config;

sub get_config {
    my $config = {
        perl_revision   => '6',
        perl_version    = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15635	15741	
==>ate, such as `start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15635	15741	
==>ate, such as `start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39862	39956	
==>PL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39862	39956	
==>PL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	192	281	
==>eader_field_names scan
    date expires if_modified_since if_unmodified_since last_modifie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	192	281	
==>eader_field_names scan
    date expires if_modified_since if_unmodified_since last_modifie <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	349	477	
==>le) {
    Parrot_PackFile pf = Parrot_readbc(i,bcfile);
    Parrot_loadbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35747	35858	
==>need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{rx}->objec <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6845	6979	
==>"pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        db <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8501	8612	
==>is operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6037	6145	
==>is operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	237	347	
==>other native types
sub to_num { num->new(0)  }
sub to_bit { bit->new(0)  }
sub to_str { str->new('') }

sub is_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1795	1894	
==>er anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	111	240	
==>::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	111	240	
==>::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine spa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	567	669	
==>et $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<* <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	567	669	
==>et $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<* <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4465	4569	
==>he following methods are available for Date objects:

- `year()`

Returns the year for the object.

- `mo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4465	4569	
==>he following methods are available for Date objects:

- `year()`

Returns the year for the object.

- `mo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2396	2491	
==>tion ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2396	2491	
==>tion ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	603	721	
==>ta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	603	721	
==>ta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7142	7310	
==>n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7142	7310	
==>n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] <==
2	/Users/nnunley/pugs/util/run-smoke.pl	981	1076	
==>he path for everything to find the correct
# pugs executable.
$ENV{PATH} = "." . $Config{path_se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9803	9913	
==>lf.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9803	9913	
==>lf.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1630	1741	
==>tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1630	1741	
==>tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1053	1176	
==>@_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1053	1176	
==>@_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" u <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	713	810	
==>r::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contai <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	713	810	
==>r::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contai <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4942	5062	
==>d = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(STDOUT);$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4551	4656	
==>then `size` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4551	4656	
==>then `size` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5799	5899	
==>of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5799	5899	
==>of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3301	3405	
==>turns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symm <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3301	3405	
==>turns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symm <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13250	13368	
==>s {  # see 11.1.5
      <Identifier>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpression :words {  # s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1561	1651	
==>www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline->bind(C => $c_code); # marble losing routin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5807	5901	
==>$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5807	5901	
==>$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2248	2346	
==>xity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2248	2346	
==>xity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2369	2491	
==>tests ) {
        $args->{test} = { TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6617	6731	
==>die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30463	30570	
==>or the rest
of the set. There is a separate template module for each distinct "user
language" (or "user type <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30463	30570	
==>or the rest
of the set. There is a separate template module for each distinct "user
language" (or "user type <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	928	1044	
==>keys->length             }
sub to_bit { (shift)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3912	4017	
==>$span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3912	4017	
==>$span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8511	8626	
==>);
      }

      return $S->object(exact => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Miss <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	643	785	
==>ILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	643	785	
==>ILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1812	1925	
==>.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing but will be added in t <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1812	1925	
==>.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing but will be added in t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3025	3159	
==>) ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2909	3035	
==>) ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3769	3866	
==>pher() method repeatedly 
with your data.  Finally, call the finish() method to return any leftove <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3769	3866	
==>pher() method repeatedly 
with your data.  Finally, call the finish() method to return any leftove <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3509	3628	
==>e-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3693	3812	
==>e-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5216	5368	
==>the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it return <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5680	5832	
==>the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	781	914	
==>urn $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	781	914	
==>urn $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7334	7442	
==>ks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7334	7442	
==>ks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Re <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5517	5645	
==>ler.file} line {$caller.line}";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1232	1359	
==>sif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $duration = duration <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	689	831	
==>query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	689	831	
==>query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5237	5429	
==>urn { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5071	5255	
==>urn { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub rul <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8009	8118	
==>pec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `de <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8009	8118	
==>pec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19366	19458	
==>DBMS) is that data definition statements are structured as
standard data manipulation stateme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19366	19458	
==>DBMS) is that data definition statements are structured as
standard data manipulation stateme <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2790	2938	
==>st'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5422	5546	
==>defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_char',
      ty <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1417	1560	
==>},
    };

    ### acc is just for accessors, the others get added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3017	3127	
==>ompile($runtime, $env, $program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->new;
    my $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1133	1284	
==>ds binary package recognition

=cut

{   my $acc = {
        file            => { allow => FILE_EXISTS },
        meta            => { allow => ISA_JIB_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2543	2639	
==>method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2543	2639	
==>method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	133	233	
==>returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	133	233	
==>returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4168	4367	
==>arch.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submeth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4168	4367	
==>arch.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submeth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11482	11598	
==>(.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3073	3189	
==>(.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12587	12747	
==>{
        my $c = $_[0];
        FAIL() if not &_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4335	4475	
==>umber}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}++ if $re <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	187	321	
==>eader returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run = <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	187	321	
==>eader returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39986	40084	
==>tion) any later version.  You
should have received a copy of the LGPL as part of the Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39986	40084	
==>tion) any later version.  You
should have received a copy of the LGPL as part of the Locale::KeyedT <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	252	361	
==>mokeserv.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6271	6374	
==>lass);

=pod

method add_method (opaque $self: symbol $label, method $method) returns nil {
    %:method <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18061	18158	
==>as_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18061	18158	
==>as_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10965	11065	
==>}
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10965	11065	
==>}
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<de <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	412	510	
==>between Perl and C";
	shift()->cc_inc_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been chang <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	519	718	
==>ssing plan";            
            }
        }
    },
    methods => {
        'header' => sub { '1..' . _('$:expect') },
        'footer' => sub {
            my ($self, $run) = @_;
            ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1509	1624	
==>l5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>per <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5551	5684	
==>ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5551	5684	
==>ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12751	12851	
==> $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a prop <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12751	12851	
==> $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a prop <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18875	18973	
==>this misspelling in your programs and still send the right
thing on the wire.

When setting the ref <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18875	18973	
==>this misspelling in your programs and still send the right
thing on the wire.

When setting the ref <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3509	3640	
==>t
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3509	3640	
==>t
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12544	12661	
==>compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12544	12661	
==>compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	321	424	
==>tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-informati <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	321	424	
==>tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-informati <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3817	4014	
==>g.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3817	4014	
==>g.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node typ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6042	6136	
==>ompile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5833	5926	
==>ompile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5136	5240	
==>'::');
    #print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8321	8456	
==>m"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8321	8456	
==>m"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801) <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	871	988	
==>f.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	871	988	
==>f.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so retur <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	242	698	
==>5 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            5 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	242	698	
==>5 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            5 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7578	7687	
==>tion (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to array2 into arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7578	7687	
==>tion (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to array2 into arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13217	13328	
==>ng for you
	my $sep;

	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7001	7103	
==>pan1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7001	7103	
==>pan1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2477	2575	
==>rl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this would
# c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2477	2575	
==>rl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this would
# c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40709	40802	
==>o means required, the copyright holders of
Locale::KeyedText would appreciate being informed a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40709	40802	
==>o means required, the copyright holders of
Locale::KeyedText would appreciate being informed a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1226	1330	
==>ugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1226	1330	
==>ugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10261	10355	
==>pher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10261	10355	
==>pher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15172	15270	
==>ct using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT MET <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15172	15270	
==>ct using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT MET <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1	105	
==>!/usr/bin/perl

use strict;
use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1	105	
==>!/usr/bin/perl

use strict;
use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4232	4361	
==>edded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4232	4361	
==>edded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3512	3614	
==>a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3512	3614	
==>a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1556	1691	
==>nt( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1567	1702	
==>nt( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_term <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38404	38515	
==>n "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7289	7404	
==>setta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7289	7404	
==>setta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1854	1974	
==>$) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if sub <==
2	/Users/nnunley/pugs/util/build_pugs.pl	270	365	
==>use lib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
bui <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5989	6113	
==>lout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2720	2951	
==>\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<ver <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2720	2951	
==>\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<ver <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20642	20737	
==>bit of the default process described above is overridable by
various methods.

=head1 DISTRIBUTI <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20642	20737	
==>bit of the default process described above is overridable by
various methods.

=head1 DISTRIBUTI <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8604	8717	
==>rray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = recurse($v0);
    $s = "\"$v0\"" if $n eq <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27233	27349	
==>::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27512	27628	
==>::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31057	31153	
==>elation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35607	35703	
==>elation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a g <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10163	10301	
==>} 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# i <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2315	2409	
==>orted on request.

=over 4

=item C<$Test::Harness::Verbose>

The package variable C<$Test::Har <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6993	7093	
==>s, load it, and create an instance:

  use Regexp::Parser;
  my $parser = Regexp::Parser->new;

=head <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6522	6620	
==>tml (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6522	6620	
==>tml (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Ev <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5265	5383	
==>arrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15329	15444	
==>as Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcont <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15329	15444	
==>as Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcont <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3962	4082	
==>::Spec->canonpath(
            File::Spec->catfile(qw< dist build src >, $pathname)
        );
        my $wanted = sub { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2623	2736	
==>fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2623	2736	
==>fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2520	2625	
==>ice(num->new(0), $self->elems)->to_native
    )     
}

# some of the common list operations

sub head { @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	232	350	
==>:lvalue		{ $_[0]{regex} }
sub RxPOS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1105	1218	
==>rray).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. using simplified on <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7746	7862	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7939	8055	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	328	431	
==>pare is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * L <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	328	431	
==>pare is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * L <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	38	178	
==>w.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            3 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	38	178	
==>w.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            3 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1036	1134	
==>}

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional progr <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1036	1134	
==>}

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional progr <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1418	1525	
==>eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1340	1441	
==>eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4905	5016	
==>./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (sp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4905	5016	
==>./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2555	2649	
==>mpiler implementation only provides a small sample of
Perl 6 syntax and semantics.

=head2 Othe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3871	3979	
==>,  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3871	3979	
==>,  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2966	3131	
==>$length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2966	3131	
==>$length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	354	533	
==>{
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	938	1050	
==>~$n~' };
   subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9607	9782	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9886	10061	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8887	8987	
==>->another_singleton_test_on_object } '... instance calling metaclass singleton method fails';
fails_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22179	22276	
==>ntation of the regex.

=item tree

During the first pass, C<tree> is undef, which instructs the ob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2320	2459	
==>ch->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2246	2377	
==>ch->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1985	2087	
==>or a dynamic lookup. 



This object-serialization format is shared across all runtimes.



=head1 Dire <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1911	2009	
==>or a dynamic lookup. 

This object-serialization format is shared across all runtimes.

=head1 Dire <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5868	5991	
==>Numeric Context

The HTTP status code is returned

=item Item Context

All headers are returned as one long string, or maybe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5868	5991	
==>Numeric Context

The HTTP status code is returned

=item Item Context

All headers are returned as one long string, or maybe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30916	31020	
==>one.  The
Member Name comes next and is what distinguishes each module from others in
its set. For maximu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30916	31020	
==>one.  The
Member Name comes next and is what distinguishes each module from others in
its set. For maximu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3474	3594	
==>=> Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3645	3765	
==>=> Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24426	24519	
==>E<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24426	24519	
==>E<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IR <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2158	2264	
==>pty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2158	2264	
==>pty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2644	2784	
==>lems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2644	2784	
==>lems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1120	1209	
==>l::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1120	1209	
==>l::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10763	10878	
==>cludes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Rec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10763	10878	
==>cludes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Rec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7021	7120	
==>thod content_language ($self: )          is rw { $self.header("Content-Language") }
method content_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7021	7120	
==>thod content_language ($self: )          is rw { $self.header("Content-Language") }
method content_l <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	946	1061	
==>ir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1314	1411	
==>s(@test_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do is write a test script, consid <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2944	3049	
==>e) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

= <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2944	3049	
==>e) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

= <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	241	351	
==>see, but it has some other clutter because of unclear design.

    $.from         - The place where this subrul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	241	351	
==>see, but it has some other clutter because of unclear design.

    $.from         - The place where this subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4616	4791	
==>apture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4476	4641	
==>apture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6906	7071	
==>ttrs ) === any( $!heading ));

    return Relation::Example.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.gre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15459	15558	
==>s the definition of success (e.g. the
# expected scalar) if given no arguments.
#

sub _fresh_perl { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21051	21142	
==>base manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Ser <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21051	21142	
==>base manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Ser <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12408	12524	
==>$command);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self.shi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9924	10030	
==>te_vars_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9924	10030	
==>te_vars_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14061	14192	
==>{
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14061	14192	
==>{
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8227	8334	
==>pan2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8227	8334	
==>pan2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1045	1141	
==>TypeSafe::Type::Bottom;

	use base qw/Blondie::TypeSafe::Type/;
	sub type { $_[0] }

	package Blo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3202	3296	
==>ig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3202	3296	
==>ig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4873	5027	
==>dex + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4873	5027	
==>dex + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31187	31290	
==>es in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31187	31290	
==>es in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	583	826	
==>"\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	584	827	
==>"\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4788	4962	
==>ure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatche <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6550	6724	
==>ure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatche <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4934	5149	
==>ndef; # this is probably the one place we can return
                          # in the Prelude: we want to exit from the
                          # *caller*'s scope.
        }
    }
}

class Carp {
    # Please rem <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6910	7032	
==>ata}) {
      $self->{data}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_ <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	476	588	
==>es);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash. <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	476	588	
==>es);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2973	3070	
==>if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In add <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2973	3070	
==>if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In add <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18911	19021	
==>d still send the right
thing on the wire.

When setting the referrer, this method removes the fragment from the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18911	19021	
==>d still send the right
thing on the wire.

When setting the referrer, this method removes the fragment from the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11938	12054	
==>n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11938	12054	
==>n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30570	30667	
==>ness >> at C<< rt.cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	392	524	
==>has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	392	524	
==>has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    i <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	312	458	
==>sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    m <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	312	458	
==>sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8940	9050	
==>') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8940	9050	
==>') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8771	8872	
==>if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8771	8872	
==>if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<user <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19878	19969	
==>= Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn)->get_p6_file;
    p6_eval($cc->as_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8702	8804	
==>m_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8760	8862	
==>m_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_test <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	31	153	
==>.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defi <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	31	153	
==>.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19354	19466	
==>E - Lines before the first block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19354	19466	
==>E - Lines before the first block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2643	2746	
==>set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2643	2746	
==>set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @inters <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1230	1362	
==>v = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be inst <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	790	922	
==>v = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be inst <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	433	537	
==>AME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	433	537	
==>AME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4211	4353	
==>eader values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4211	4353	
==>eader values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	734	834	
==>parse(<<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$strin <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	411	505	
==>tine since we don't have Carp::Assert handy.

B<For internal use by Test::Harness ONLY!>

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18353	18463	
==>]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14774	14884	
==>]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17524	17642	
==>ssed

  skip              number of tests skipped

So a successful test should have max == seen == ok.


There is one f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8677	8775	
==>bind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDefault ? DOW <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16015	16112	
==>env($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types::unify(
		new_env($$)->{ $.id <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23800	23913	
==>us_ten
);

# tests for the type pretty printer
{
	my $type = type::operator::arrow->new(
		type::variable::free->n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	104	195	
==>Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Perl6::Core::Lis <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25256	25362	
==>/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICEN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25256	25362	
==>/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICEN <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8877	8982	
==>= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
maintained by <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8877	8982	
==>= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
maintained by <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2738	2845	
==>identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <def <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2738	2845	
==>identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <def <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5117	5214	
==>::UserAgent> module.

The following functions are provided (and exported) by this module:

=over 3 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5117	5214	
==>::UserAgent> module.

The following functions are provided (and exported) by this module:

=over 3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7855	7954	
==>uthorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authoriz <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7855	7954	
==>uthorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authoriz <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1316	1413	
==>print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1316	1413	
==>print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13663	13772	
==>this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13663	13772	
==>this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5259	5388	
==>return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5259	5388	
==>return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4795	4887	
==>ead1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4935	5027	
==>ead1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	228	320	
==>res if_modified_since if_unmodified_since last_modified
    content_type content_encoding con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	228	320	
==>res if_modified_since if_unmodified_since last_modified
    content_type content_encoding con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10270	10387	
==>)\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10436	10553	
==>)\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10524	10668	
==>ent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) & <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10524	10668	
==>ent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) & <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5524	5637	
==>pan.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5524	5637	
==>pan.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	158	293	
==>{
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "}\n";
    return <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3428	3535	
==>\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3428	3535	
==>\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19695	19792	
==>tatement for any compile sections in
that block. C<use> statements in a PREFACE apply to all the c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19695	19792	
==>tatement for any compile sections in
that block. C<use> statements in a PREFACE apply to all the c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7688	7773	
==>s &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7746	7831	
==>s &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5716	5849	
==>ontent;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5716	5849	
==>ontent;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4356	4474	
==>ames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4356	4474	
==>ames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:pe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5243	5353	
==>f 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5243	5353	
==>f 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14388	14487	
==>n a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14388	14487	
==>n a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24567	24663	
==>PL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24567	24663	
==>PL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of th <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3154	3280	
==>e date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.yea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3154	3280	
==>e date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.yea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8644	8759	
==>pr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(exp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14246	14367	
==>";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	} <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	450	561	
==>>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	450	561	
==>>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6692	6789	
==>s($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6692	6789	
==>s($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3893	4039	
==>is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3893	4039	
==>is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	155	256	
==>yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	155	256	
==>yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3395	3507	
==>,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3395	3507	
==>,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11253	11349	
==>nds) returns Bool is export`

These functions should work with most reg-exps, but given that they <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11311	11407	
==>nds) returns Bool is export`

These functions should work with most reg-exps, but given that they <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2685	2813	
==>y March     April   May      June
               July    August   September October November December>;
method month_name returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11831	11953	
==>f ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4474	4596	
==>f ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	412	536	
==>Data::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # packa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15172	15281	
==>erate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it
could also b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15172	15281	
==>erate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it
could also b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8135	8242	
==>%channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8135	8242	
==>%channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6216	6320	
==>documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-like synta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6003	6105	
==>documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-like synta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	694	834	
==>$v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	694	834	
==>$v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 { <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8326	8642	
==>fix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10008	10117	
==>h());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10008	10117	
==>h());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12363	12461	
==>guage/16578> for more
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	675	819	
==>kg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	675	819	
==>kg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	171	307	
==>day
        (?: (?: (\d\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s*
        # time - op <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	59	146	
==>dy been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/T <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	59	146	
==>dy been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3346	3448	
==>ite::Functional $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.comple <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3346	3448	
==>ite::Functional $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.comple <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7756	7859	
==>d of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7756	7859	
==>d of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8958	9054	
==>ide from
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; inst <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8958	9054	
==>ide from
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; inst <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5313	5445	
==>';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5313	5445	
==>';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1483	1609	
==>');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12544	12643	
==>ring charlist
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7645	7766	
==>int "Rate limiting -- please wait a bit and try again, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16668	16759	
==>-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements character class op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25420	25526	
==>a and the licenses
of the other components concerned, provided that you include the source
code of the othe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25420	25526	
==>a and the licenses
of the other components concerned, provided that you include the source
code of the othe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3288	3384	
==>($node);

	my $kind = $node->struct_equiv->moniker;
	my $method = "define_$kind";
	warn "defining <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15582	15674	
==>d makes 'min' and 'max' attributes of
other objects themselves.

=item Regexp::Explain (pendi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2090	2202	
==>{ use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2090	2202	
==>{ use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17172	17271	
==>t will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17172	17271	
==>t will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Comp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1483	1587	
==>t {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represent <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1483	1587	
==>t {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represent <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2070	2168	
==>if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look for a t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2070	2168	
==>if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look for a t <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	895	1010	
==>if ( $chr eq "\\") {
	    print "\\textbackslash{}";
	    return;
	} elsif ($chr =~ /\^/) {
	    print "\\textasciic <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1586	1684	
==>t Test::Harness to use
those modules.

Test::Harness runs tests and expects output from the test in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10286	10398	
==>ate}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10286	10398	
==>ate}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        retu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3547	3650	
==>ght x for p');
is($p->get_y, 0, '... got the right y for p');

is($p2->get_x, 100, '... still got the ri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3144	3247	
==>universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3144	3247	
==>universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21404	21498	
==>ly port
to alternative relational database engines with minimal effort.

This might seem strang <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21404	21498	
==>ly port
to alternative relational database engines with minimal effort.

This might seem strang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2061	2161	
==>er => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2061	2161	
==>er => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	490	762	
==>"<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $bu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	490	762	
==>"<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $bu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9786	9889	
==>(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

mul <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9786	9889	
==>(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

mul <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9137	9242	
==>e($relative_file);
  my $file = basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	608	724	
==>] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Ar <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	608	724	
==>] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Ar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17175	17280	
==>sets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
Th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22275	22380	
==>sets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
Th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14661	14781	
==>ext);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14661	14781	
==>ext);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	556	695	
==>returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 N <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	556	695	
==>returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5656	5747	
==>ize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5656	5747	
==>ize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}< <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2084	2184	
==>eciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2084	2184	
==>eciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1809	1956	
==>[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1809	1956	
==>[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37226	37322	
==>d takes the name of a Perl package in its positional parameter
$module_name (a string) and checks <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37226	37322	
==>d takes the name of a Perl package in its positional parameter
$module_name (a string) and checks <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10352	10453	
==>PSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10352	10453	
==>PSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_childr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1355	1488	
==>files
$Metafile       = 'META' . $Metaext;                # file with MD in it
$Site           = $Root . $Config{installsitelib};  # s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5449	5551	
==>Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(J <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14108	14204	
==>\"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  using  => sub { syste <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9194	9278	
==>my @existing_switches = $self->_cleaned_switches( $Test::Harness::Switches, $ENV{HARN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	946	1064	
==>ot a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8513	8605	
==>y => ('type::operator::binary', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	381	476	
==>1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
sec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	381	476	
==>1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
sec <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2590	2694	
==><character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in :z()not :z[]no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31639	31732	
==>ethod will fail if any keys of C<$attrs>
duplicate attribute names of the invocant Relation::E <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9847	9961	
==>method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9847	9961	
==>method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10790	10901	
==>g>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10790	10901	
==>g>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4531	4643	
==>is is normally the entire match string, but may be arbitrary
objects returned from the rule using a C<return> cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4531	4643	
==>is is normally the entire match string, but may be arbitrary
objects returned from the rule using a C<return> cla <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2900	3007	
==>ily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32196	32318	
==>new('_make_descendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signatur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1852	1950	
==>ument describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1852	1950	
==>ument describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22731	22826	
==>ce::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22731	22826	
==>ce::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11407	11540	
==>ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11407	11540	
==>ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	774	914	
==>"    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	774	914	
==>"    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10654	10751	
==>ns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<req <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10654	10751	
==>ns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<req <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1227	1358	
==>box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1227	1358	
==>box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14262	14359	
==>> as true are iterated.

What is returned at each element of the iteration varies with function.
C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18126	18222	
==>rsing or ambiguity involved.
By contrast, if a program simply returned words for the user, such a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18126	18222	
==>rsing or ambiguity involved.
By contrast, if a program simply returned words for the user, such a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6773	6884	
==>:ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6831	6942	
==>:ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1063	1166	
==>ional functionality.

The complementary functions are emulated using iterations.

- `new( closure_next = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1063	1166	
==>ional functionality.

The complementary functions are emulated using iterations.

- `new( closure_next = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7283	7380	
==>rsal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7283	7380	
==>rsal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26974	27089	
==>cape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEscape>
}



gr <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8600	8707	
==>t, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't unify $x->{symbol} with $y->{symbol} in " . Dumpe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15853	16051	
==>$param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15847	16045	
==>$param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11871	11990	
==>n} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8872	8987	
==>$name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8860	8975	
==>$name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6768	6902	
==>d capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6768	6902	
==>d capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14399	14500	
==>f->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8602	8703	
==>f->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15090	15252	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15369	15531	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21988	22113	
==>S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18409	18534	
==>S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2276	2373	
==>elf.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2276	2373	
==>elf.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3939	4036	
==>and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3939	4036	
==>and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8696	8788	
==>iphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8696	8788	
==>iphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21518	21631	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17939	18052	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6956	7101	
==>mental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6724	6863	
==>mental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12434	12535	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and the <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12492	12593	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and the <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1999	2119	
==>le( $start, $file );
            next if $Config{exclude_re} && $currfile =~ $Config{exclude_re};

            if ( -d $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2701	2846	
==>KAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->ad <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1985	2089	
==>atchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7504	7617	
==>e( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7504	7617	
==>e( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEM <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30156	30253	
==>)

The specific type of this object.  See the object's documentation for
possible values for its t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	579	710	
==>$pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	579	710	
==>$pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10214	10353	
==>($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10214	10353	
==>($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7034	7152	
==>f $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7046	7164	
==>f $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9717	9817	
==>ass walker()
an argument:

  my $iter = $parser->walker(0);  # top-level
  my $iter = $parser->walker <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9875	9983	
==>the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta req <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11352	11460	
==>the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta req <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13230	13380	
==>h[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13224	13374	
==>h[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20874	20993	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17295	17414	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15193	15290	
==>ement.  This interface is rigorously defined, such that there
should be no ambiguity when trying t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15193	15290	
==>ement.  This interface is rigorously defined, such that there
should be no ambiguity when trying t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15503	15617	
==>here
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15503	15617	
==>here
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	375	476	
==>self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	375	476	
==>self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19169	19266	
==>the program's users' own data; only
someone already involved in making the program would be editin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19169	19266	
==>the program's users' own data; only
someone already involved in making the program would be editin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10968	11080	
==>ine from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\01 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10968	11080	
==>ine from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\01 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7421	7538	
==>w_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7421	7538	
==>w_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7658	7768	
==>ill be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7399	7504	
==>ill be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4878	4968	
==>rep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HAVE_PARR <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9062	9165	
==>e_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9062	9165	
==>e_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29985	30082	
==>nish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34537	34634	
==>nish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4120	4243	
==>ode, $symbol, $body, $self->resolve_type($node));
}

sub define_named_block {
	my $self = shift;
	my ($node, $symbol, $body, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24082	24180	
==>C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28634	28732	
==>C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$bo <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	0	122	
==>use v6;

use Span;

class Date::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	0	122	
==>use v6;

use Span;

class Date::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1755	1862	
==>{
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1755	1862	
==>{
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	773	868	
==>.key eq 'Scalar' and .value.does(Relation::LaxAttrScalarSubType))
        or (.key eq 'Tuple'|'R <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13361	13469	
==>depends("string")` parameter to most of the functions is a way
to provide a comment that refers to another fi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13419	13527	
==>depends("string")` parameter to most of the functions is a way
to provide a comment that refers to another fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3692	3846	
==>tent_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Uti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3692	3846	
==>tent_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Uti <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6814	6911	
==>Get and store a document identified by a URL, using
I<If-modified-since>, and checking the I<Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6814	6911	
==>Get and store a document identified by a URL, using
I<If-modified-since>, and checking the I<Conte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20774	20879	
==>ll
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend above all other <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20774	20879	
==>ll
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend above all other <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2168	2264	
==>as \n
my %backslash_escape;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backslash_escape{ord ev <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2284	2409	
==>int "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	146	376	
==>";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	146	376	
==>";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	232	342	
==>d: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* Ne <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	232	342	
==>d: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* Ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4093	4191	
==>NTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
succe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4093	4191	
==>NTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
succe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5083	5200	
==>$parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5083	5200	
==>$parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	600	738	
==>f $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	600	738	
==>f $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15399	15525	
==>These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15399	15525	
==>These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7731	7833	
==>y $i (0..$#$ra) {
	next     if !defined $ra->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i <==
2	/Users/nnunley/pugs/util/importgraph.pl	2102	2198	
==>s.Parser.Program');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Pri <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	443	590	
==>$tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	443	590	
==>$tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1291	1427	
==>zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4769	4905	
==>zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12357	12484	
==>nless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12636	12763	
==>nless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35185	35291	
==>s_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elements, which correspond <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35185	35291	
==>s_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elements, which correspond <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8178	8323	
==>verse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3378	3506	
==>se()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3378	3506	
==>se()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	985	1098	
==>eturn
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	985	1098	
==>eturn
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17319	17421	
==>on methodology that is described here, and hence provides these
benefits to developers and users alike. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17319	17421	
==>on methodology that is described here, and hence provides these
benefits to developers and users alike. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34701	34818	
==>', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34701	34818	
==>', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], membe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6269	6542	
==>, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some oth <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6733	7006	
==>, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some oth <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2484	2598	
==>@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2484	2598	
==>@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5087	5197	
==>_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5309	5419	
==>_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of string <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5658	5755	
==>>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5658	5755	
==>>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4112	4284	
==>look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4112	4284	
==>look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3273	3377	
==>hod add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3273	3377	
==>hod add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) is rw { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4462	4588	
==>!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7939	8065	
==>!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52042	52246	
==>t_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identifier');
            }
        )
    )
);

## --------------- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25589	25698	
==>ut not ...
}
rule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | <CharacterEscape>
    | <CharacterCl <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1896	2020	
==>_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1896	2020	
==>_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	369	476	
==>))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	369	476	
==>))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9186	9292	
==>S->force_object(anyof_class => space => $neg, $how);
  });

  # upper POSIX class
  $self->add_handler('POS <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3634	3736	
==>$span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3634	3736	
==>$span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1587	1720	
==>file ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1587	1720	
==>file ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12799	12897	
==>et1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12799	12897	
==>et1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$s <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1405	1533	
==>e, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Mo <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1405	1533	
==>e, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Mo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	363	616	
==>le:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	363	616	
==>le:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Roset <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	282	407	
==>nite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

meth <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	282	407	
==>nite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1955	2051	
==>S

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets call <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1955	2051	
==>S

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets call <==
2	/Users/nnunley/pugs/util/addauthors.pl	1520	1650	
==>ck);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	23	136	
==>CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	23	136	
==>CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    ha <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11315	11413	
==><tmpl_loop name=runcores>
      <tr><th colspan="11" class="indent0"><tmpl_var name=name></th></tr> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13115	13220	
==>mand, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13115	13220	
==>mand, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5675	5837	
==>x;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5675	5837	
==>x;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7623	7766	
==>a using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7623	7766	
==>a using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3700	3810	
==>ck

Please read the HTTP::Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3700	3810	
==>ck

Please read the HTTP::Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16629	16751	
==>.param int has_name        :opt_flag
    .local pmc exp
    .local pmc newfrom
    .local pmc code
    .local pmc sub
    . <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4539	4657	
==>null_term:
  if (@tokenStack)
  {
    my $top = $tokenStack[-1];
    goto missing_term if ((index $$top["opts"], "nullt <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11813	11910	
==>4/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11813	11910	
==>4/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML ent <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	451	604	
==>is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	451	604	
==>is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3	105	
==>usr/bin/pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3	105	
==>usr/bin/pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7834	7956	
==>inuation"

  $capture       - capture then entire match. For example:

  

  # returns a Match object that has the 'capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7569	7688	
==>inuation"
  $capture       - capture then entire match. For example:
  
  # returns a Match object that has the 'capture <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1023	1123	
==>urn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1023	1123	
==>urn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7566	7709	
==>']',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12082	12174	
==>the original value of the C<PERL5LIB> environment variable.
Necessary on VMS, otherwise a no- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4473	4591	
==>data($_[0], '$<key>'));
   return $var."{".$key."}";
}
sub node::access_hashref_element {
   my $var = emit(get_data($_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34552	34784	
==>to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33965	34174	
==>to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	162	282	
==>$INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	162	282	
==>$INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compile <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1792	1979	
==>ption'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	51	145	
==>::Long;

GetOptions \our %Conf, qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $sign <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5228	5332	
==>= Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, la <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5047	5147	
==>= Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, la <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	172	282	
==>est {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	172	282	
==>est {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4872	5028	
==>ol->new('&dispatcher' => 'block')),
            returns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22954	23068	
==>d_first"),
				param => comb(
					fun => ide("listify"),
					param => val(v => "foo", t => type::operator::nullar <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16176	16278	
==>s for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can dec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16176	16278	
==>s for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can dec <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	755	862	
==>"I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't prin <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	755	862	
==>"I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1536	1632	
==>ral other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1536	1632	
==>ral other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3265	3381	
==>cksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or di <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3265	3381	
==>cksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or di <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3707	3808	
==>.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3707	3808	
==>.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3005	3213	
==>$meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3005	3213	
==>$meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1406	1518	
==>s Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1406	1518	
==>s Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  ha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1120	1218	
==>meters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a paramet <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1120	1218	
==>meters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a paramet <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7308	7412	
==>::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7366	7470	
==>::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11826	11936	
==>tly not implemented, so you will have to wait
a little while. Until then, you can just write your own functions <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11884	11994	
==>tly not implemented, so you will have to wait
a little while. Until then, you can just write your own functions <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1674	1771	
==>})/\@$1.last/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_referenc <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3474	3569	
==>e -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_co <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3474	3569	
==>e -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10458	10563	
==>it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10458	10563	
==>it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIP <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24793	24896	
==>, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Fl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24793	24896	
==>, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Fl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23796	23896	
==>s is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28348	28448	
==>s is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2164	2287	
==>if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2164	2287	
==>if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5174	5318	
==>q "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5232	5376	
==>q "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	792	895	
==>:Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	792	895	
==>:Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2621	2735	
==>>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2805	2919	
==>>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %has <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3625	3796	
==>rl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3625	3796	
==>rl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	436	549	
==>n match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	436	549	
==>n match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24788	24886	
==>ution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24788	24886	
==>ution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2329	2445	
==>cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2329	2445	
==>cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub mult <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17700	17886	
==>s => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17700	17886	
==>s => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4246	4371	
==>@old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4246	4371	
==>@old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24363	24464	
==>.

For purposes of the Relation::Example class' API, a tuple is represented by a Perl
Mapping where ea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3951	4065	
==>pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @mess) = @_;

    my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4648	4793	
==>E__->add_rule( 
        name => ';',
        assoc => 'list',
        precedence => 'looser',
        other => 'or',
    );
    
    # '->' is not <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5341	5496	
==>_type = $node->type->[-1]->type;
		
		my @children = $child->values;
		my @params;
		my @exps;

		$self->enter_scope;
		while(@children) {
			my $sub = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	581	705	
==>";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	581	705	
==>";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule para <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1928	2034	
==>odule, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1928	2034	
==>odule, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($modu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12089	12189	
==>ol :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12147	12247	
==>ol :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5204	5336	
==>DO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5204	5336	
==>DO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5585	5700	
==>'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'protected'>
    | <'vo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6689	6787	
==>}

/*
 * regexp_compile
 */

static regcomp_t previous_comp_hook = NULL;

regexp* hook_regcompp (pT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	43	137	
==>equire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	43	137	
==>equire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15057	15166	
==>nt. This is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15057	15166	
==>nt. This is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	60	148	
==>ities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	60	148	
==>ities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5879	6027	
==>$self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:methods'}};
        },                
    }
);

ok(!$Class->has_method(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14811	14927	
==>:Spec->curdir(), $perl);
	    }
	}

	# Build up the name of the executable file from the name of
	# the command.

	if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4820	4969	
==>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4820	4969	
==>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	668	784	
==>);
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(? <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13715	13819	
==>s

=item values

 multi Hash::keys   (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::kv     (%h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7162	7271	
==>ry");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7162	7271	
==>ry");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Typ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4893	5061	
==>ch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4905	5073	
==>ch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "ca <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2359	2455	
==>er a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2359	2455	
==>er a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5029	5174	
==>YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configurat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4855	4994	
==>YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configurat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6685	6834	
==>3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6685	6834	
==>3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4117	4236	
==>ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4117	4236	
==>ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19471	19590	
==>tements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19750	19869	
==>tements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/util/version_h.pl	1319	1458	
==>_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # convert /svk/trunk to //svk/trunk
            if (my @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	126	233	
==>alar::Util 'blessed';

use base 'closure';

sub new {
    my $class = shift;
    my $self = $class->SUPER::n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7654	7765	
==>' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

T <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7654	7765	
==>' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

T <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12736	12834	
==>functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entities fou <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12736	12834	
==>functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entities fou <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12665	12758	
==>head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12665	12758	
==>head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33283	33374	
==>tersection (Relation $other!) returns Relation>

This multi-method is a generic binary relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37833	37924	
==>tersection (Relation $other!) returns Relation>

This multi-method is a generic binary relat <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	260	376	
==>xt, needs lots of
# improvement. Due to regexp's limits, it is only
# expected to serve as a tool to somewhat speed u <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8674	8775	
==>ay_index($P){ !($P ~~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9748	9906	
==>$str .= ')';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( U <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3392	3506	
==>d from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     min     safe   (List <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16922	17030	
==>to do optimize...

  # strings
  /foo|father|fort/  => /f(?:o(?:o|rt)|ather)/

  # char classes
  /[\w\d][a-z <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5029	5137	
==>0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5251	5359	
==>0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variable <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12778	13008	
==>ailed}},
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$test{failed}})/$test{max},
                                             estat   => '', <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	492	591	
==>$Conf{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	720	836	
==>ional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	720	836	
==>ional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5719	5829	
==>R'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file ha <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5719	5829	
==>R'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file ha <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1333	1425	
==>Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1333	1425	
==>Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16080	16289	
==>leop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16359	16568	
==>leop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14856	14957	
==>ional databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14856	14957	
==>ional databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of t <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2763	2880	
==>{
    my $x_round;
    state $round_up = 1;

    # alternate rounding .5 up and down
    given abs($x) - floor( abs($x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	77	226	
==>[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	77	226	
==>[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13301	13428	
==>nd add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13301	13428	
==>nd add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	393	501	
==>class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	393	501	
==>class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11749	11856	
==>odes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11749	11856	
==>odes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's No <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	67	185	
==>t_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leadin <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	67	185	
==>t_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leadin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7335	7438	
==>perators: alternation, concatenation.

- "plain" match operators: like 'literal'.



Higher order operat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7085	7185	
==>perators: alternation, concatenation.
- "plain" match operators: like 'literal'.

Higher order operat <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3666	3782	
==>ncatenation_more(conc(W,X), Z), !.
p6_concatenation_more(W, W) --> {true}.


p5_quantified(Z) --> p5_elemental(W), p5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1351	1458	
==>sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1336	1438	
==>sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4132	4229	
==>e), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4132	4229	
==>e), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26107	26203	
==>d warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26107	26203	
==>d warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10146	10273	
==>ost:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10146	10273	
==>ost:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connect <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	786	893	
==>.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	786	893	
==>.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5242	5364	
==>od last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a private LWP extens <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5242	5364	
==>od last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a private LWP extens <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10595	10700	
==>ontinuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10595	10700	
==>ontinuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16748	16849	
==>te a self-contained application in
Rosetta D and compile that into its own executable, in practice one <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16748	16849	
==>te a self-contained application in
Rosetta D and compile that into its own executable, in practice one <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10234	10394	
==>(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10234	10394	
==>(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20330	20423	
==>N-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized includin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20330	20423	
==>N-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized includin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2430	2545	
==>of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class repres <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2430	2545	
==>of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class repres <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8119	8234	
==>{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8107	8222	
==>{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	58	183	
==>ssage;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	58	183	
==>ssage;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3967	4124	
==>ows ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4025	4182	
==>ows ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.got <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2488	2645	
==>',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>',
        assoc => 'left',
        precedence = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8185	8277	
==>@chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delet <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8185	8277	
==>@chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delet <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6479	6592	
==>to oper_shift if ( $topcat == PGE_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14485	14584	
==>o File::Spec->abs2rel() but that does getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Pe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8648	8762	
==>});
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8648	8762	
==>});
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	206	311	
==>etime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represen <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	206	311	
==>etime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3084	3176	
==>mpare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.nam <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3142	3234	
==>mpare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18965	19144	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19244	19423	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	486	603	
==>t::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	486	603	
==>t::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "densit <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1233	1327	
==>head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRI <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1233	1327	
==>head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26537	26636	
==>s is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26537	26636	
==>s is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This meth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10167	10266	
==>($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the right method ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5154	5252	
==>STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::OnPerl5::X1::Api; us <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12175	12292	
==>since we do not yet have
object support. Once object support is created, we will add it here, and
maintain backwards c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12233	12350	
==>since we do not yet have
object support. Once object support is created, we will add it here, and
maintain backwards c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7258	7389	
==>( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7258	7389	
==>( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	684	815	
==>th';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	684	815	
==>th';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10592	10708	
==>n {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10592	10708	
==>n {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort - <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6610	6709	
==>LHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6610	6709	
==>LHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2208	2349	
==>g' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic) <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2428	2536	
==>do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did no <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2428	2536	
==>do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did no <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	288	392	
==>( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	288	392	
==>( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1996	2101	
==>evel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1996	2101	
==>evel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3567	3673	
==>t, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNE <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6334	6438	
==>s, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instanc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11180	11284	
==>s, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instanc <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9397	9598	
==>_ ** $x) / ($_ ** ($x - 1)) = "),
                Val->new(''),
            ),
            App->new(
                Sym->new('&say'),
                App->new(
                    Sym->new('&infix:</>' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18864	18961	
==>{
    my($code)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open($eval_l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10470	10564	
==>uld potentially
never be performed at all.  They validate everything except
well-formedness, su <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10470	10564	
==>uld potentially
never be performed at all.  They validate everything except
well-formedness, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2183	2295	
==>d, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2171	2283	
==>d, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3860	3975	
==>f.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3860	3975	
==>f.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	436	601	
==>@a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	436	601	
==>@a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6316	6424	
==>.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6316	6424	
==>.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2801	2908	
==>et]]>('toString');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1151	1332	
==>.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1151	1332	
==>.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3622	3718	
==>fy (String $name, *@args) {
            $publisher.notify(Class::Events::Event::Named.new($name)) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4296	4465	
==>re, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4165	4329	
==>re, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20770	20889	
==>, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17191	17310	
==>, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1958	2133	
==>3, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@uppe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1958	2133	
==>3, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@uppe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10196	10315	
==>{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10196	10315	
==>{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2680	2802	
==>ndic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icir <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2680	2802	
==>ndic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icir <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1999	2099	
==>use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1999	2099	
==>use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	956	1056	
==>(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	956	1056	
==>(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1020	1132	
==>odule { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1020	1132	
==>odule { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4113	4261	
==>s a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4125	4273	
==>s a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more di <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15846	15941	
==>symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19323	19418	
==>symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1444	1543	
==>RG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1444	1543	
==>RG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3518	3661	
==>$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3518	3661	
==>$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6	195	
==>Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $descript <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6	195	
==>Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $descript <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	326	443	
==>ined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	326	443	
==>ined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               define <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4058	4177	
==>];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4058	4177	
==>];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11686	11814	
==>ne>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11686	11814	
==>ne>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6336	6443	
==>nfinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6336	6443	
==>nfinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22979	23123	
==>bol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42582	42726	
==>bol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => metho <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4434	4547	
==>ath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4434	4547	
==>ath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1088	1214	
==>s $direction= length \$&; 1 }
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime paramet <==
2	/Users/nnunley/pugs/util/package-osx.pl	607	722	
==>bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	999	1101	
==>substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_sl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	999	1101	
==>substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_sl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13469	13566	
==>sh() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') cor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13469	13566	
==>sh() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') cor <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14815	14913	
==>nt, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_durati <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14815	14913	
==>nt, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_durati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3401	3571	
==>rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as stri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3541	3711	
==>rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as stri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12467	12572	
==>nds) returns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12525	12630	
==>nds) returns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4079	4293	
==>?), return;
        system( qq[tar -f $control --exclude .svn -C $path/$jibdir -cz .] )
                                                        and error($?), return;
        system( qq[tar -czf $archive $control $d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	508	625	
==>om;

  if ( $matchObj not isa "P6RulesInP5::Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $gramma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1081	1190	
==>ed
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %ent <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1081	1190	
==>ed
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %ent <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	669	773	
==>isa('closure::signature')))
        || confess "signature must be an closure::params or closure::signatur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2578	2712	
==>ex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2578	2712	
==>ex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4153	4317	
==>der
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4153	4317	
==>der
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34686	34777	
==>__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch::and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	317	405	
==>:Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	288	399	
==>eturns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	288	399	
==>eturns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/' <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1437	1620	
==>{
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0 <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1437	1620	
==>{
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5001	5111	
==>t "# ", scalar @tests, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{test_co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24674	24797	
==>export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24674	24797	
==>export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9954	10056	
==>=~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9954	10056	
==>=~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2 <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	535	682	
==>nc = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @pa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	535	682	
==>nc = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3839	3942	
==>lf->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5199	5301	
==>lf->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5435	5558	
==>tmts) {
    DOWN($pStmt).DOWN($pStmts);
}
NODE PPad ($pScope, $pSyms, $pStmts) {
    my(@vars);
    for (@$pSyms) {
	my($var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2516	2712	
==>lternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2527	2723	
==>lternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2994	3121	
==>turns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XX <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2994	3121	
==>turns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XX <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	189	293	
==>se);

$VERSION = '0.02';

use strict;

# determine if the user needs nmake, and download it if needed
sub <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27665	27762	
==>mple has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mappin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10496	10653	
==>klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10496	10653	
==>klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15676	15802	
==>y $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2073	2199	
==>y $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4049	4144	
==>ious => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4049	4144	
==>ious => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        univ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11177	11276	
==>TR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11177	11276	
==>TR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8808	8922	
==>nd", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8808	8922	
==>nd", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1542	1657	
==>s Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1542	1657	
==>s Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_pr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	597	696	
==>method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	597	696	
==>method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9732	9834	
==>le was built to facilitate the Pugs test suite. It has the
distinction of being the very first module w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9790	9892	
==>le was built to facilitate the Pugs test suite. It has the
distinction of being the very first module w <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	72	170	
==>this should really be an acccessor - all it's doing is making the
# "source" property of the object <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	72	170	
==>this should really be an acccessor - all it's doing is making the
# "source" property of the object <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5637	5744	
==>ad: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    r <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5637	5744	
==>ad: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	498	591	
==>as been changed to cc_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6852	6957	
==>ilure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6852	6957	
==>ilure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate modu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4235	4347	
==>6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4235	4347	
==>6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3565	3687	
==>rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3565	3687	
==>rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	181	284	
==>::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	181	284	
==>::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2708	2810	
==>taneous versions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2608	2707	
==>taneous versions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if y <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2684	2783	
==>rent data streams are enciphered with the same key, the encryption 
can be removed by XORing them to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2684	2783	
==>rent data streams are enciphered with the same key, the encryption 
can be removed by XORing them to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24167	24265	
==>uage.  By contrast, Locale::KeyedText does no compile time binding and
will support multiple langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24167	24265	
==>uage.  By contrast, Locale::KeyedText does no compile time binding and
will support multiple langua <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2050	2196	
==>"reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2050	2196	
==>"reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash k <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6363	6479	
==>td_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6363	6479	
==>td_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1400	1502	
==>d size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1400	1502	
==>d size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4265	4375	
==>Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4265	4375	
==>Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_chil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3061	3225	
==>),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3072	3236	
==>),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quant <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2852	2966	
==>eturns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    retur <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2852	2966	
==>eturns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12120	12207	
==>ader->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12120	12207	
==>ader->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	549	673	
==>method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	549	673	
==>method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	587	838	
==>:Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	587	838	
==>:Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Local <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8457	8574	
==>ER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8457	8574	
==>ER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1151	1267	
==>is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1151	1267	
==>is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLA <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13112	13208	
==>e about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13170	13266	
==>e about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1983	2100	
==>,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1983	2100	
==>,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4442	4558	
==>h);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4442	4558	
==>h);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2382	2475	
==>>_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> returns the version of a cert <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8600	8726	
==>6),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "pe <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8600	8726	
==>6),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	532	637	
==>t { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually must deal with Inf a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10704	10805	
==>l5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10704	10805	
==>l5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9675	9813	
==>or (reverse @{ $self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36015	36120	
==>ents of the
array reference as the contents of the look-ahead, and we're done.  Now
we just need to return <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7558	7667	
==>locks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7558	7667	
==>locks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CL <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2503	2643	
==>}.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id sh <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2503	2643	
==>}.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id sh <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10249	10357	
==>robably be faster)

    # also, the signature for this sub is nowhere near finalized; it should
    # support <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15222	15318	
==>be empty if Test::Harness doesn't think you're
on TTY.

The C<$width> is the width of the "yada/b <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5541	5660	
==>trd-mnt=s"   => \$initrd_mnt,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  "terminfo=s"     => \$termi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1366	1480	
==>ent;\n";
}
sub node::slurp {
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6289	6398	
==>esolve(); # Role can resolve itself now :)

# Class gets a special case Does
# to avoid endless recursion
$Cla <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2928	3079	
==>h.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2928	3079	
==>h.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11579	11732	
==>first.  In fact, if one slipped through:

  my $rx = '\N{LATIN CAPITAL LETTER R}';
  my $qr = qr/$rx/;

Perl's regex interprets the '\N' as a needlessly b <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2204	2295	
==>ole_mc = Meta::Class.new("Role");
 my $class_mc = Meta::Class.new("Class");

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1551	1658	
==>: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1758	1865	
==>: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2895	3027	
==>me.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1517	1649	
==>me.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6172	6276	
==>>val->struct_equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	224	352	
==>e) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    retu <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	224	352	
==>e) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9717	9817	
==>currence set is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9717	9817	
==>currence set is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1870	2033	
==>',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - collision with &name
    
    #~ __PACKAGE__ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	884	1067	
==>ment_class.string_to_arguments( @strings );
        }
    }

    class Getopt::Argument::Style {
        has $value;

        method ^string_to_arguments ( $string ) {
            retu <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2783	2922	
==><commit_alternation> | <commit_atom> }
rule commit_rule        { \:\:\: }
rule commit_alternation { \:\: }
rule commit_atom        { \: }

r <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19376	19484	
==>| <ExpressionNoIn> <','> <AssignmentExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see claus <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3252	3369	
==>t_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3252	3369	
==>t_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag bu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1082	1186	
==>:PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1082	1186	
==>:PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1578	1750	
==>d ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => [ $extracted, $extracted2 ],
    } );
};

sub single_quoted {
    my $grammar = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11329	11483	
==>erimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{b <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5572	5697	
==>K is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5572	5697	
==>K is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2574	2676	
==>ob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2574	2676	
==>ob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13792	13939	
==>) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13792	13939	
==>) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19823	19925	
==>ies.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It is th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19823	19925	
==>ies.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It is th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7932	8059	
==>19),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "pr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7932	8059	
==>19),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "pr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	693	812	
==>:Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	693	812	
==>:Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7847	7959	
==>[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7835	7947	
==>[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1443	1585	
==>rammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1431	1573	
==>rammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2952	3187	
==>batim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2952	3187	
==>batim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9716	9877	
==>ll' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9716	9877	
==>ll' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1321	1422	
==>n '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1321	1422	
==>n '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Objec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14085	14217	
==>slate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14085	14217	
==>slate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4361	4506	
==>an.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4361	4506	
==>an.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3269	3364	
==>ser-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3269	3364	
==>ser-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the HT <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33598	33700	
==>turns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38148	38250	
==>turns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Rel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1435	1552	
==>l5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Repl;
use <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	739	838	
==>head2 $meta = JIB::Meta->new_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	246	354	
==>} @_;
}

role 'IHash' => {};

class 'PIL::Run::Container::Hash' => {
    does => [ 'IHash' ],
    instance => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4228	4394	
==>quo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4228	4394	
==>quo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7774	7909	
==>$match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7512	7639	
==>$match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4338	4439	
==>cates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equival <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4338	4439	
==>cates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equival <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6392	6516	
==>>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6392	6516	
==>>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was k <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27696	27796	
==>of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27696	27796	
==>of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=i <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	168	285	
==>for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import() <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	168	285	
==>for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5294	5436	
==>n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5516	5658	
==>n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #pri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6064	6186	
==>@x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inef <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6064	6186	
==>@x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inef <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5977	6135	
==>s $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5977	6135	
==>s $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15437	15546	
==>at kinds of attributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15437	15546	
==>at kinds of attributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8067	8175	
==>ons on 
Span objects, that return lists of spans.

In this example, @span may contain zero, one, two, or thre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8067	8175	
==>ons on 
Span objects, that return lists of spans.

In this example, @span may contain zero, one, two, or thre <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	195	307	
==>$!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	195	307	
==>$!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37513	37615	
==>onal parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37513	37615	
==>onal parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4687	4794	
==>"q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4827	4934	
==>"q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	555	705	
==>param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	555	705	
==>param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7183	7363	
==>>='>
    | <'=='>
    | <'!='>
    | <'==='>
    | <'!=='>
    | <'+'>
    | <'-'>
    | <'*'>
    | <'%'>
    | <'++'>
    | <'--'>
    | <'<<'>
    | <'>>'>
    | <'>>>'>
    | <' <==
2	/Users/nnunley/pugs/util/config_h.pl	3	113	
==>usr/bin/perl -w
use strict;
use warnings;
use Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DO <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2320	2435	
==>asses.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2320	2435	
==>asses.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23696	23794	
==>named variables, which can be used in any order, or not used at all, or
used multiple times.  Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23696	23794	
==>named variables, which can be used in any order, or not used at all, or
used multiple times.  Local <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2577	2704	
==>($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2577	2704	
==>($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22384	22512	
==>ch;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22663	22791	
==>ch;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9529	9626	
==>etta::Model does not declare any subroutines or export such.

The usual way that Rosetta::Model in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9529	9626	
==>etta::Model does not declare any subroutines or export such.

The usual way that Rosetta::Model in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1794	1966	
==>y  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _sh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1794	1966	
==>y  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _sh <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1731	1845	
==>rint "done (rc=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; print STDERR $exp;
      warn "Got:\n"; p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15436	15583	
==>ritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15430	15577	
==>ritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15952	16070	
==>ype::variable::free->new,
	);
	\%new;
}
let: env($.is) = { new_env($$) }
let: env($.in) = { new_env($$) }

let: type($$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1204	1302	
==>y $supers = $class->get_attr(symbol->new('@:MRO'));
    # if nothing is in MRO, we take the supercl <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3050	3156	
==>s);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3050	3156	
==>s);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: S <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18839	18952	
==>ing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18839	18952	
==>ing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DA <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1458	1562	
==>}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1458	1562	
==>}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	24	124	
==>mple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handle <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	42	142	
==>mple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handle <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10622	10747	
==>erator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an itera <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10622	10747	
==>erator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an itera <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4301	4414	
==>for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4301	4414	
==>for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> an <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	488	599	
==>espace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you ne <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	488	599	
==>espace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you ne <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4691	4824	
==>X

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XX <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4691	4824	
==>X

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XX <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	744	847	
==>se {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	744	847	
==>se {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) ret <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	175	282	
==>ative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	175	282	
==>ative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5783	5897	
==>token_match2_1:
    goto found_oper if $operator;          
  }

  expect_oper_empty:
  goto end unless $operatorEm <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28775	28869	
==>ok
  t/ok................ok
  t/test-harness......ok
  All tests successful.
  Files=4, Tests=2 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3997	4115	
==>rn @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3997	4115	
==>rn @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::Li <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1301	1408	
==>rl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1359	1466	
==>rl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12870	13024	
==>et_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12870	13024	
==>et_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17471	17576	
==>previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this method emits a warning <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17471	17576	
==>previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this method emits a warning <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4797	4921	
==>q '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""pPos"
        dbg "# keys: ",%pad.keys;
        $ret = traver <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30640	30736	
==>o predecessor 'c', so that means it is
pre-consumptive, which is why it must match the right pare <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1565	1664	
==>ur keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1565	1664	
==>ur keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34782	34885	
==>l of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along
their com <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39332	39435	
==>l of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along
their com <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6479	6588	
==>d($type) and $type->isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	660	787	
==>ize = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	660	787	
==>ize = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	937	1043	
==>ok also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1699	1798	
==>nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1699	1798	
==>nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9406	9520	
==>urusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9406	9520	
==>urusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1935	2060	
==>sses')) { # roles don't have subclasses
        foreach my $superclass (@{$class->superclasses}) {
           $output .= "node <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4655	4783	
==>" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4655	4783	
==>" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5705	5821	
==>l[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5705	5821	
==>l[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5037	5137	
==>loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5037	5137	
==>loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	695	805	
==>'' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	783	893	
==>'' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10409	10518	
==>t( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10567	10676	
==>t( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2653	2788	
==>}
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2653	2788	
==>}
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	214	338	
==>t_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missing arguments!";

# Open the input fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	214	338	
==>t_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missing arguments!";

# Open the input fi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4092	4320	
==>e {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</U <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4092	4320	
==>e {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</U <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2065	2235	
==>d'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2065	2235	
==>d'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2775	2876	
==>msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2775	2876	
==>msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3147	3321	
==>0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3024	3191	
==>0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7129	7258	
==>ls
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7129	7258	
==>ls
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bind1.pl	20	144	
==>or
"sind gleich".say if $x == $y # Äquivalenz-Test

#=Identitäts-Operator
"sind identisch".say if $x =:= $y # selber Contai <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6419	6518	
==>}) ] ); 
    $template->param("apo", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{A <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1352	1492	
==>y method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1352	1492	
==>y method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	375	493	
==>le->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	375	493	
==>le->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	857	975	
==>?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	857	975	
==>?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elem <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6049	6181	
==>"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6049	6181	
==>"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19169	19281	
==>-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20527	20639	
==>-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7496	7623	
==>596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7496	7623	
==>596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1693	1873	
==>e);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1693	1873	
==>e);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6121	6229	
==>( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented onl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5911	6016	
==>( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented onl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	136	267	
==>ase Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	136	267	
==>ase Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4435	4550	
==>w();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4435	4550	
==>w();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2464	2684	
==>/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2464	2684	
==>/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text) <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	92	200	
==>Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.deb <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	92	200	
==>Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.deb <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7083	7204	
==>ree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it is a bad idea

## ------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7083	7204	
==>ree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it is a bad idea

## ------- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10778	10874	
==>ub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10778	10874	
==>ub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	266	453	
==>,

    '&infix:<**>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1241	1351	
==>, "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1234	1336	
==>, "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15190	15289	
==>ng span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15190	15289	
==>ng span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2630	2747	
==>rict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2618	2735	
==>rict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return em <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4897	5004	
==>S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5241	5348	
==>S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10650	10812	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10929	11091	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'im <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1174	1274	
==>fig{verbose};
    unlink "blib6/lib/Prelude.pm.yml";
    unlink "blib6/lib/Prelude.pm.yml.pm";
    #u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7206	7340	
==>il => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6965	7092	
==>il => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may prin <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5770	5857	
==>n

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5770	5857	
==>n

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16462	16559	
==>se, and potential
parameters will be chopped off and returned as a separate value if in
an array c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16462	16559	
==>se, and potential
parameters will be chopped off and returned as a separate value if in
an array c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3520	3644	
==>(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $pathname = $modul <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7824	7927	
==>igits_int(I1), ")", {I is I1 - 1}.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5_modifier_scope <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13358	13470	
==>},
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_str_handlers{$re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5944	6053	
==>Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get sibling <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5944	6053	
==>Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get sibling <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	557	673	
==>g - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coder <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	557	673	
==>g - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coder <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1301	1407	
==>sand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1301	1407	
==>sand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13082	13211	
==>rt {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13082	13211	
==>rt {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22969	23083	
==>imilar packages is that
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22969	23083	
==>imilar packages is that
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	7	123	
==>ate;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	7	123	
==>ate;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2297	2422	
==>eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACK <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2297	2422	
==>eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACK <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5254	5361	
==>s a hash reference representing the configuration data

=item write

The C<write> method the file for the pr <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5254	5361	
==>s a hash reference representing the configuration data

=item write

The C<write> method the file for the pr <==
2	/Users/nnunley/pugs/util/version_h.pl	674	783	
==>TDIN;

if (-e "$base/MANIFEST") {
    # This is a release -- do nothing!
}
elsif (-r $svn_entries) {
    print <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11055	11237	
==>esult',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11055	11237	
==>esult',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	952	1201	
==>e

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference impleme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	952	1201	
==>e

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference impleme <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	717	825	
==>=> 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	717	825	
==>=> 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	275	388	
==>ad (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	275	388	
==>ad (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19674	19772	
==>omewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is immu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24226	24324	
==>omewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is immu <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	100	212	
==>estPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	100	212	
==>estPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	219	338	
==>class->SUPER::new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('lis <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4069	4202	
==>e 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3020	3139	
==>e 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	821	922	
==>il_output( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	821	922	
==>il_output( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	96	187	
==>---------------------------
## Mini Meta-Model with explicit EigenClasses
## --------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	119	210	
==>----
## Mini Meta-Model with explicit EigenClasses
## -------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3709	3808	
==>)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3709	3808	
==>)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2367	2465	
==>r> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2367	2465	
==>r> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2773	2866	
==>_tmp${_}__"}(0..($nvars-1)));
  push(@let_stack,[$vars,$tmpvars]);
  "(do{my \$__v__ ; my($tmp <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12671	12769	
==>C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12671	12769	
==>C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	376	512	
==>pkg = $src->build 
        or die "Could not build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7783	7884	
==><method zeroize() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7783	7884	
==><method zeroize() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2991	3091	
==>!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6468	6568	
==>!heading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	446	557	
==>10.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	446	557	
==>10.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	336	461	
==>erences using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	336	461	
==>erences using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10371	10492	
==>E='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10371	10492	
==>E='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12453	12549	
==>do, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the res <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12511	12607	
==>do, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the res <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16590	16722	
==>$.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs that need to be typed

# this is a function that expects <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1441	1538	
==>err);
}


package Perl6::Run::OnPerl5::X1::Result;
use strict;
sub new {
    my($cls,$value,$warni <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	963	1083	
==>t();
}

exit;

sub process_upload {
  print "Content-Type: text/plain\n\n";

  limit_rate();
  validate_params();
  add_s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3500	3610	
==>.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing the
current /local/ d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3500	3610	
==>.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing the
current /local/ d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5707	5864	
==>2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5707	5864	
==>2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uni <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	348	626	
==>ize>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	348	626	
==>ize>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21460	21560	
==>butes, though several attributes may store values of the same class;
every Relation tuple must be dis <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26012	26112	
==>butes, though several attributes may store values of the same class;
every Relation tuple must be dis <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19406	19514	
==>n> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19406	19514	
==>n> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.ch <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2117	2226	
==>e('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2117	2226	
==>e('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28111	28210	
==>(rx->saved_copy) { \
	     SV_CHECK_THINKFIRST_COW_DROP(rx->saved_copy); \
	 } \
	 if (RX_MATCH_COPI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	383	502	
==>ead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGIN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	383	502	
==>ead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGIN <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	371	512	
==>yte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.] <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	371	512	
==>yte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.] <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3203	3342	
==>e"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3203	3342	
==>e"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4934	5115	
==>ture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4781	4957	
==>ture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2359	2467	
==>ift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -l <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2359	2467	
==>ift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -l <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6025	6130	
==>$type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $self->{callback};

    $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4682	4783	
==>self->left, $self->right;
}

package type::operator::nary;
use base qw/type::operator/;

sub new {
	my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21809	21923	
==>body from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21809	21923	
==>body from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1336	1510	
==>Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1336	1510	
==>Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	956	1058	
==>tatements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	956	1058	
==>tatements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7499	7604	
==>method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7499	7604	
==>method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	834	951	
==>eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	834	951	
==>eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7033	7158	
==>ARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "bou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7033	7158	
==>ARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "bou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3473	3572	
==>edural and functional 
interfaces are layers on top of the object-oriented backend.

To use the Ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3473	3572	
==>edural and functional 
interfaces are layers on top of the object-oriented backend.

To use the Ciph <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1685	1783	
==>l::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1685	1783	
==>l::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	974	1056	
==>~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(? <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	974	1056	
==>~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(? <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6641	6750	
==>ions are applied 
package fun;
use base qw/node/;

package comb;
use base qw/node/;

package ide;
use base qw/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45206	45294	
==>age->send('superclasses' => list->new($::Object));

$::Package->send('add_attribute', (sy <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	191	292	
==>he tree lazily ...
    $self.:create_tree() unless $:tree.defined;
    return $:tree;
}

method show_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10752	10852	
==>regex back from the parser with the visual() method:

  my $rx = $parser->visual;

This will not retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5807	5916	
==>for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5807	5916	
==>for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20083	20178	
==>>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timest <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20083	20178	
==>>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timest <==
2	/Users/nnunley/pugs/util/func_refact.pl	682	800	
==>oring{$_} = 1 && print "Ignoring: $_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	207	319	
==>Perl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    my @a=<>;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7692	7798	
==>unc);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7692	7798	
==>unc);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8475	8591	
==>any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a fe <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8475	8591	
==>any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a fe <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1736	1825	
==>P\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1736	1825	
==>P\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9057	9166	
==>ary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\"",
    e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7882	7995	
==>e match. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_word( 'ab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7616	7726	
==>e match. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_word( 'ab <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	21	114	
==>orian is Duration;

use Date::Format::ISO8601;

our $iso8601_duration_re_anchored = rx:perl5/^ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27978	28084	
==>>('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->describe,"\n";
prin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7735	7836	
==>killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7735	7836	
==>killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3922	4057	
==>$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3910	4045	
==>$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4615	4739	
==>(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6w <==
2	/Users/nnunley/pugs/util/importgraph.pl	951	1051	
==>{$2} = [defined($1), defined($3)];
    } elsif (/^import|^module/) {
      warn "Unrecognised import| <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8246	8340	
==>derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::min(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14331	14426	
==>right brace on \%s{}

=item RPe_BGROUP (-21)

Reference to nonexistent group

=item RPe_ESLASH ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22950	23049	
==>his approach over similar packages is that
text is always looked up by a key which is not meant to b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22950	23049	
==>his approach over similar packages is that
text is always looked up by a key which is not meant to b <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2810	2909	
==>n C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2810	2909	
==>n C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5046	5147	
==>}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::B <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5046	5147	
==>}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::B <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6351	6448	
==>List' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cx <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6351	6448	
==>List' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cx <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16910	17007	
==>1.10
      <EqualityExpression>
    | <BitwiseANDExpression> <'&'> <EqualityExpression>
}
rule Bit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9831	9959	
==>rt... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9831	9959	
==>rt... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15482	15566	
==>Pat,[]),
  re_rewrite(Re0,Re).

%---------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16339	16442	
==>ric($.if) }
cond: generic_in($.else) = { generic($.then) }
cond: generic($$) = { generic($.else) }

cond <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	311	482	
==>ined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spe <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	311	482	
==>ined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spe <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2237	2334	
==>=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Ret <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2237	2334	
==>=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32472	32566	
==>as an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37022	37116	
==>as an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2781	2922	
==>unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $sta <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2781	2922	
==>unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15586	15699	
==>ation details, or their technical
skills.  For example, a native French or Chinese speaker often prefers to
commun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15586	15699	
==>ation details, or their technical
skills.  For example, a native French or Chinese speaker often prefers to
commun <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13538	13632	
==>C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13538	13632	
==>C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3877	4016	
==>"._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3799	3931	
==>lf) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n";
    my $prec = "P000";
    my %seen;
    for my $level ( reverse 0 .. $#{$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4641	4751	
==>1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	49	151	
==>IL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	49	151	
==>IL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3526	3696	
==>nstant ISA_JIB_PACKAGE_BINARY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Binary') }; 
use <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16163	16282	
==>he last character
chopped.


=item chomp

 multi Str::chomp (  Str  $string is rw                 --> Int )
 multi Str:: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11988	12083	
==>s descending>
and C<is insensitive> to reverse the order of sort, or the adjust the
case sensiti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3657	3771	
==>rname, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username ho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3657	3771	
==>rname, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username ho <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5144	5279	
==>!remove_parent();
    # and now we make sure that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_dept <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5144	5279	
==>!remove_parent();
    # and now we make sure that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_dept <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38118	38208	
==>te_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38118	38208	
==>te_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2772	2871	
==>e_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3345	3444	
==>e_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8587	8709	
==>',
      type => 'clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( Re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4950	5070	
==>]; \@_=".$code1."\$cn".$code2.";goto \&\$f0}\n";
    #print $code;
    eval($code) || die "$@";
  }   
  sub mk_ignore_th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18696	18804	
==>elation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.sym <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1220	1335	
==>:Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1220	1335	
==>:Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1463	1579	
==>TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1463	1579	
==>TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	621	727	
==>::Compiler::RegexPerl5->compile( $rule_source, $param )
        if exists $param->{P5} || exists $param->{P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	522	633	
==> vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	522	633	
==> vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36290	36393	
==>lation.  This
method has an alias named C<plus>.

=item C<union (Relation::Example *@others) returns Rel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32637	32734	
==>and into user-readable
message strings, using data from external Template modules as a template.
T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32637	32734	
==>and into user-readable
message strings, using data from external Template modules as a template.
T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8126	8266	
==>e(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8126	8266	
==>e(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22928	23072	
==>nd('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42531	42675	
==>nd('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            meth <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16399	16514	
==>$cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15461	15568	
==>$cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1996	2103	
==>vs List.
# \\n   Scalar    pre     delete  safe   (rw!Array: List)\
multi method Array::delete (@array : *@i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16303	16386	
==>Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0,E0,E1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13953	14071	
==>Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        print $tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13953	14071	
==>Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        print $tr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9677	9802	
==>lass = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9677	9802	
==>lass = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @bl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5009	5125	
==>s.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5009	5125	
==>s.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_no <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	862	1003	
==>[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	862	1003	
==>[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10712	10852	
==>t LINKING unless $new_alt;
    
        ### link the files
        return unless $self->link_files( package => $new_alt );
    }

    ### rem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10347	10481	
==>xample $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	122	224	
==>t Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# return a unix time_t
method time_t($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11045	11147	
==>l() method of
each node in the tree.

=head2 Using the Regex

You can use the qr() method to get back a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23044	23133	
==>ead2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Perform <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23044	23133	
==>ead2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Perform <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19530	19674	
==>h @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19809	19953	
==>h @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3269	3372	
==>nt_previous, $self.complement_next, $set.complement_previous, $set.complement_next ),
        universe = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3269	3372	
==>nt_previous, $self.complement_next, $set.complement_previous, $set.complement_next ),
        universe = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16951	17041	
==>,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(ques_ng(Re), <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5082	5190	
==>icate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8559	8667	
==>icate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6286	6404	
==>$str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event hand <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6286	6404	
==>$str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event hand <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8222	8325	
==>nd $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other ha <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8222	8325	
==>nd $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other ha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6591	6704	
==>y for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6591	6704	
==>y for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	773	888	
==>(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $ret <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	773	888	
==>(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $ret <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5054	5276	
==>tart_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to ou <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5054	5276	
==>tart_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to ou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19477	19574	
==>e files, and not change
your main program.

I<Note that an update is planned for Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19477	19574	
==>e files, and not change
your main program.

I<Note that an update is planned for Locale::KeyedText <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1262	1373	
==>lf->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self- <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1262	1373	
==>lf->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self- <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1942	2049	
==>])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Pr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3911	4018	
==>ss refs to itself');
is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5813	5920	
==>ss refs to itself');
is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/junkt1.pl	11	107	
==>genug für...?
my @alter = @anwesende».alter();

"Na zum Glück ist das hier jugendfrei ;-)".say <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2093	2234	
==>ist_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for better <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3462	3595	
==>ist_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for better <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26031	26130	
==>004
 #define ROPT_ANCH_GPOS	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x00020	/* <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	501	627	
==>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psigna <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	501	627	
==>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psigna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11364	11511	
==>op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	126	232	
==>warnings;

use Carp 'confess';
use Scalar::Util 'blessed', 'looks_like_number';

use base 'type';

our $TRU <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2256	2352	
==>ex64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset complex of complex128 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2496	2636	
==>ookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2496	2636	
==>ookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4147	4258	
==>'::WithReason') ],
    methods => {
        'report' => sub { "not ok " . _('$.number') . " #skip " . _('$.reaso <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	515	611	
==>ive { shift }

# keep this here for a consistent interface
sub to_str { str->new((shift)->{name}) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6055	6149	
==>d right now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. How <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6055	6149	
==>d right now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. How <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	279	396	
==>t if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    requ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	230	336	
==>t if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	requ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2041	2149	
==>mbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1723	1827	
==>mbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4254	4414	
==>re
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4254	4414	
==>re
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3588	3702	
==>rted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3588	3702	
==>rted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_nam <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1313	1437	
==>-e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        r <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1313	1437	
==>-e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1421	1561	
==>_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1421	1561	
==>_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4335	4440	
==>' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any comments ar <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4335	4440	
==>' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any comments ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5159	5263	
==>}
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5352	5456	
==>}
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\< <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10199	10323	
==>ren() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10199	10323	
==>ren() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1999	2107	
==>of line in single-line mode)
  $self->add_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADES <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7982	8079	
==>eturn $S->force_object(anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6965	7088	
==>undary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boun <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6965	7088	
==>undary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20634	20750	
==>(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17055	17171	
==>(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16603	16713	
==>et, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the optional named parame <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16603	16713	
==>et, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the optional named parame <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3630	3776	
==>pe {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	549	700	
==>lue contexxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'array_store' => sub { # evalu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5994	6102	
==>($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A c <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5994	6102	
==>($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1460	1588	
==>}

sub as_integer {
  my ( $self ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11770	11885	
==>e;
    
    push @{ $prev->{data} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$tr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	734	833	
==>le = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filena <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	734	833	
==>le = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filena <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7570	7678	
==>icate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15906	16015	
==>channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { en <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15906	16015	
==>channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { en <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18933	19106	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19212	19385	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6753	6862	
==>ead2 Element Events

For each POD element, an event is fired, the first argument to all these events is
the C< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6753	6862	
==>ead2 Element Events

For each POD element, an event is fired, the first argument to all these events is
the C< <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3101	3212	
==>ft;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bless {%$self}, (ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	525	664	
==>UE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	525	664	
==>UE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2292	2437	
==>>{assoc}  eq 'list';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix';
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2782	2909	
==>time::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1064	1190	
==>closure::env->new();
    $local_env->next($env);
    bless {
        sig  => $signature,
        body => $body,
        env  => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	283	394	
==>has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	283	394	
==>has %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4530	4644	
==>ou should never refer directly to "Rosetta" in your
code; instead refer to other above-named packages in this file. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4530	4644	
==>ou should never refer directly to "Rosetta" in your
code; instead refer to other above-named packages in this file. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21222	21320	
==>ation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25774	25872	
==>ation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute n <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5794	5882	
==>org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo B <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5794	5882	
==>org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11866	11965	
==>ld.  Previous values
for the same field are retained.

As for the header() method, the field name ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11866	11965	
==>ld.  Previous values
for the same field are retained.

As for the header() method, the field name ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4330	4452	
==>:$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4388	4510	
==>:$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3321	3452	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3514	3645	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1303	1442	
==>ult
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1303	1442	
==>ult
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3324	3497	
==>~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3324	3497	
==>~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6927	7074	
==>atch;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6699	6837	
==>atch;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	926	1049	
==>NC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a smal <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	926	1049	
==>NC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a smal <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20731	20825	
==>TRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
with <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20731	20825	
==>TRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
with <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6079	6212	
==>ontent = $self->_slurp($file);
    if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1776	1888	
==>t params for underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $tmpl, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20799	20904	
==>k readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsockopt shutdown slurp socket s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	139	234	
==>:DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

meth <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	139	234	
==>:DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

meth <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	783	912	
==>on syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = % <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	783	912	
==>on syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = % <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2317	2438	
==>V<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2317	2438	
==>V<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	424	631	
==>) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11406	11540	
==>l;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11400	11534	
==>l;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1227	1334	
==>.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1227	1334	
==>.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	341	444	
==>::Install';
*inc::Module::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4205	4308	
==>N{$name}") if $cc;
    return $S->object(exact => $S->nchar($name), "\\N{$name}");
  });

  # nprop (not <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6642	6766	
==>"", map { "$_;" } $seq->values);
}

sub emit {
	my $self = shift;
	my $prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6982	7183	
==>od_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( exists $n->{self}{code} ) {
            # &code.goto;
            return 
                " \@_ = (" . _emit( $n->{par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29655	29757	
==>d to appear in the tree, but are needed when inspecting
the parsing, or walking the tree.

You can also <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5236	5351	
==>ring of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5236	5351	
==>ring of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7253	7358	
==>lf->{type}, $self->{how}, "]";
    }
  }
}


{
  package Regexp::Parser::anyof_close;
  push @ISA, qw( Reg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15671	15807	
==>od run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shif <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15671	15807	
==>od run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shif <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2312	2430	
==>fter> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2312	2430	
==>fter> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1003	1116	
==>(eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { requir <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	970	1083	
==>(eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { requir <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5988	6081	
==>1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/comple <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5988	6081	
==>1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/comple <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6553	6831	
==>,
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20388	20523	
==>{
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16809	16944	
==>{
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3303	3443	
==>sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3291	3431	
==>sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1477	1643	
==>an.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1477	1643	
==>an.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4274	4380	
==>her module's documentation for 
details.  The C<mode> value indicates the operation to be performed; the va <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4274	4380	
==>her module's documentation for 
details.  The C<mode> value indicates the operation to be performed; the va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	230	479	
==>Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	230	479	
==>Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10410	10513	
==>tr $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10410	10513	
==>tr $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23125	23219	
==>(Ex,Cx),
  C1 = [Str,NPos,Cx],
  match_captures(Ex,C1,E1).
rmSomewhere(Re,[C|Fx],F1,B0,B1,E0,E1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5254	5365	
==>for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Some <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5254	5365	
==>for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Some <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4554	4722	
==>env->set('$_' => $val);          
            $list->push($closure->do());      
        }
    }    
    return $list;
}

1;

__END__

=pod

=head1 NAME

list - the core <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5734	5832	
==>stmt { def_statement($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token {    def_token($X:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20636	20743	
==>ram
in the order you chose so to pick a supported language closest to your
preference.  Presumably the messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20636	20743	
==>ram
in the order you chose so to pick a supported language closest to your
preference.  Presumably the messa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4294	4414	
==>0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4294	4414	
==>0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14884	15026	
==>Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          en <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14884	15026	
==>Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12205	12301	
==>age/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12205	12301	
==>age/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18296	18406	
==>egexp
struct as a new api into the guts of the perl core, to permit the use
of alternate regexp engines.  There <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12690	12831	
==>tements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12969	13110	
==>tements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ru <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9545	9631	
==>et_item(R) --> p5_simple_escape_sequence(R).
p5_charset_item(setrange(A,B)) --> p5_char <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	718	830	
==>name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	718	830	
==>name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1443	1547	
==>rse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1443	1547	
==>rse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11335	11436	
==>ring) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11335	11436	
==>ring) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2787	2911	
==>($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=ove <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2787	2911	
==>($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=ove <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33322	33418	
==>ogram or library may wish to override the user text of another library
which it uses, the Templat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33322	33418	
==>ogram or library may wish to override the user text of another library
which it uses, the Templat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3393	3516	
==>rue };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3393	3516	
==>rue };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2062	2178	
==>mplement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2062	2178	
==>mplement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.u <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	120	297	
==>@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Available
            $Buildd <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6872	7004	
==>eys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $i <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1860	1960	
==>»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair co <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1860	1960	
==>»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4619	4724	
==>it(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platfo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4619	4724	
==>it(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platfo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1251	1374	
==>circ"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1251	1374	
==>circ"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï', <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3019	3160	
==>[1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1];  # keys: 
        dbg "# keys: ",%pad.keys;
        $ret =  tra <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5975	6086	
==>1/3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$all_tests, 0, $this_siz <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16755	16858	
==>), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time ar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16755	16858	
==>), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7155	7263	
==>"boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7155	7263	
==>"boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Con <==
2	/Users/nnunley/pugs/util/testgraph.pl	1568	1710	
==>test" }
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t$/.html/;
        File::Spec->cat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	158	276	
==>a compiler collection for
the purpose of demonstrating an approach to compilation.

=head1 SYNOPSIS

    # a program th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	281	384	
==>aram->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	281	384	
==>aram->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5318	5428	
==>><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_close>
      ] }
ru <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16128	16236	
==>e for the final Match tree.
  return $v;
}
}
sub def_rule {
  my($name,$re)=@_;
  my $r = ref($re) ? $re : co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	146	251	
==>ar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	146	251	
==>ar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24408	24532	
==>ush @result, "?% okay";
    }
    my $ender = 's' x ($skipped > 1);
    if ($skipped) {
        my $good = $max - $failed - $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	34	139	
==>Prelude::Control;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ternary:<?? !! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9190	9324	
==>equires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9190	9324	
==>equires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ... <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2909	3055	
==>ML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2909	3055	
==>ML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15930	16125	
==>ture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15924	16119	
==>ture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $sub <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1142	1276	
==>mber;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $. <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1142	1276	
==>mber;
    has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	61	162	
==>n of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	61	162	
==>n of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
re <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14426	14538	
==>t;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1906	2018	
==>t;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	317	476	
==>05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/A05.pod

=cut

grammar Perl6::Rx;

rule flag_parsetree   { <':parsetree'> }
rule flag_exhaustiv <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3209	3328	
==>an ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3209	3328	
==>an ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	979	1109	
==>tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of on <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4457	4587	
==>tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of on <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4423	4538	
==>$self->{values}{no_index};
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5231	5339	
==>ce") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5231	5339	
==>ce") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is use <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15903	16004	
==>size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15903	16004	
==>size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3675	3766	
==>_get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3675	3766	
==>_get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2980	3085	
==>idget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2980	3085	
==>idget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3596	3701	
==>{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2637	2741	
==>{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6860	6972	
==>$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7380	7581	
==>ied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            ke <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7844	8045	
==>ied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            ke <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8951	9047	
==>@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2776	2872	
==>@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_o <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1908	2026	
==>fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9184	9326	
==>de_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', und <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9184	9326	
==>de_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', und <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2236	2409	
==>rst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2236	2409	
==>rst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9684	9859	
==>" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9963	10138	
==>" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7111	7274	
==>e_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7111	7274	
==>e_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3429	3523	
==>,
});

$::TestBuilder->FETCH('::Test')->STORE('::WithReason' => role 'TestBuilder::Test::WithRe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1777	1884	
==>, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1835	1942	
==>, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12746	12846	
==>t1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12746	12846	
==>t1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9900	9999	
==>MMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9900	9999	
==>MMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4119	4208	
==>$failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$f <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35752	35845	
==>:Example in its C<$other> argument, where <$other> has the same heading as
the invocant Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37784	37877	
==>:Example
in its C<$other> argument, where <$other> has the same heading as the
invocant Relati <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11551	11647	
==>s only the elements in this recurrence that are not in the given recurrence.

- `intersects( $rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11551	11647	
==>s only the elements in this recurrence that are not in the given recurrence.

- `intersects( $rec <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21861	21969	
==>rposes.
    my $max_namelen = length($failed_str);
    foreach my $script (keys %$failedtests) {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	991	1119	
==>raffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	991	1119	
==>raffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1934	2043	
==>educed->isa("Blondie::Thunk"); # FIXME - enforce param checking on stubs or prims some how?

    return $reduc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4961	5082	
==>> chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4961	5082	
==>> chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1710	1798	
==>rl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Paramete <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1710	1798	
==>rl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Paramete <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26512	26633	
==>e $subclass)) returns nil 
    (($self: get_attr (symbol new @:subclasses)) push ($subclass)))

=cut

$::Class->send('add_ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5237	5339	
==>-f $mid  or die "error: file '$mid' not found.\n";
-f $wc   or die "error: file '$wc' not found.\n";
Pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19673	19775	
==>.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19673	19775	
==>.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10631	10727	
==>ence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10631	10727	
==>ence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8799	8910	
==>> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8799	8910	
==>> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6485	6627	
==>,
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(820 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6485	6627	
==>,
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(820 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	585	721	
==>he same level
my %rule_templates = (
    prefix =>          '<op> <equal>', 
    circumfix =>       '<op> <parse> <op2>',  
    postfix = <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6043	6146	
==>opsis", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $tem <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10046	10165	
==>_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });

  $self->add_handler('+' => sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9894	9991	
==>, which
are referred to as "immediate" and "deferred".  The immediate validations
are performed at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9894	9991	
==>, which
are referred to as "immediate" and "deferred".  The immediate validations
are performed at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2351	2466	
==>Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2351	2466	
==>Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

= <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	159	297	
==>ire XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'Dyn <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	154	292	
==>ire XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'Dyn <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1368	1470	
==>e since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-serve <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1368	1470	
==>e since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-serve <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	420	526	
==>->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14766	14883	
==>=> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, \$how);
  });

  # sp <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4860	4947	
==>ttp://www.haskell.org/ghc/docs/5.04/html/building/winbuild.html
   http://www.reed.edu/~ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10169	10267	
==>n of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a pl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10227	10325	
==>n of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a pl <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1577	1710	
==>ion ; *@values) returns Lazy {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.ar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1697	1799	
==>fmapping and value encapsulation features.

They are discussed in the main L<Blondie> documentation.

= <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	373	487	
==>as Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	373	487	
==>as Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	291	388	
==>ormation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	291	388	
==>ormation functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params retu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5119	5282	
==>CH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status->{"passe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4850	4964	
==>ator;
    goto expect_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, newfro <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1614	1723	
==>thods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($methods->exists($label) <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1046	1143	
==>erv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16153	16242	
==>se Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Dunc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16211	16300	
==>se Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Dunc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6761	6878	
==>ay, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module documenta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6536	6644	
==>ay, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module documenta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15095	15203	
==>ram (or a package it uses)
will need to display a message to the user, or generate a message to be
shown to t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15095	15203	
==>ram (or a package it uses)
will need to display a message to the user, or generate a message to be
shown to t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	866	977	
==>xport {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	866	977	
==>xport {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2953	3084	
==>, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3500	3631	
==>, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5406	5512	
==>ber_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5406	5512	
==>ber_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11839	11951	
==>this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11839	11951	
==>this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

Th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	323	436	
==>vent<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	323	436	
==>vent<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5200	5355	
==>null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5036	5187	
==>null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ) <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1156	1268	
==>script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unle <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1156	1268	
==>script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unle <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3884	3992	
==>ed sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 ( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3884	3992	
==>ed sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	819	914	
==>->config->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_dir

=cut

sub alter <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3139	3248	
==>> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3139	3248	
==>> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.inters <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6193	6305	
==>self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.sta <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6193	6305	
==>self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40358	40458	
==>LUE, FMTSTRING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6510	6645	
==>y allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure that t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6510	6645	
==>y allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure that t <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	708	814	
==>sults }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

steva <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	708	814	
==>sults }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

steva <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4298	4513	
==>/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4298	4513	
==>/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5057	5160	
==>c) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1640	1743	
==>c) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	561	654	
==>.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Concret <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	561	654	
==>.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Concret <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	650	765	
==>nsert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	650	765	
==>nsert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4077	4200	
==>e kernel has started.
  --welcome-p6=$welcome_p6
    --welcome-p6 is a Perl 6 program runnable by Pugs which will
    introd <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	632	740	
==>my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    # pro <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13222	13318	
==>my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	823	929	
==>C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
something that C<. <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	823	929	
==>C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
something that C<. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4964	5081	
==>pan.end }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4964	5081	
==>pan.end }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1689	1818	
==>_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{rule}(), } } ]
        | [ <metasyntax> { return { rule => $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10374	10479	
==>ss: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $sel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10374	10479	
==>ss: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $sel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1628	1724	
==>08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1628	1724	
==>08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy A <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43051	43194	
==>can'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6556	6655	
==>e => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kerne <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5275	5381	
==>_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5275	5381	
==>_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	640	880	
==>tant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	641	881	
==>tant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	544	686	
==>$abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	544	686	
==>$abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3128	3279	
==>current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3128	3279	
==>current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	773	906	
==>ayment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	773	906	
==>ayment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37694	37786	
==>tion::Example>

This method is a generic relational operator that takes a single Relation::Ex <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38534	38626	
==>tion::Example>

This method is a generic relational operator that takes a single Relation::Ex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	566	688	
==>the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4044	4166	
==>the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1859	1962	
==>mpress::Bzip2 } or
    *Compress::Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $html = $CG <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14161	14259	
==>/stage2_eltorito" },
  using  => sub { system "tar", "-xvjf", $grub_local, "-C", $cdroot };

my $wr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	334	435	
==>buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	334	435	
==>buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15627	15734	
==>r gives the date and time after which the entity should be
considered stale.

=item $h.if_modified_since

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15627	15734	
==>r gives the date and time after which the entity should be
considered stale.

=item $h.if_modified_since

=i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2147	2305	
==>un before install
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before unin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3831	3926	
==>Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3831	3926	
==>Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3073	3196	
==>m>',
    } );
}



__END__

use Test::More tests => 33;
use Data::Dumper;

use_ok( 'Pugs::Compiler::Rule' );

=for pod
  sub <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9283	9412	
==>proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9283	9412	
==>proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set  <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1014	1114	
==>s ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

I <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1014	1114	
==>s ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

I <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23542	23638	
==>E<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a des <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23542	23638	
==>E<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a des <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15152	15259	
==>e function signatures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15210	15317	
==>e function signatures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3058	3300	
==>ss \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + $lconst),
                named => {},
                match => [],
            }, 'Pugs: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14748	14852	
==>ob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Anchor")
    mob["value"] = "$"
    goto end
  scalar: <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	330	434	
==>urrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods a <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	330	434	
==>urrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5939	6152	
==>.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $arra <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5939	6152	
==>.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $arra <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12802	12893	
==>outine replaces HTML entities found in the $string with the
corresponding Unicode character. <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12802	12893	
==>outine replaces HTML entities found in the $string with the
corresponding Unicode character. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8106	8224	
==>andler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13900	14016	
==>andler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1395	1528	
==>some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1395	1528	
==>some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3615	3724	
==>] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    use <?p6ws> v <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	770	867	
==>emitter {
	my $self = shift;
	$self->emitter_class->require || die $UNIVERSAL::require::ERROR;
	$s <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2097	2251	
==>val_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2097	2251	
==>val_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33114	33205	
==>_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37664	37755	
==>_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9428	9518	
==>Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3253	3343	
==>Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5604	5713	
==>n($Config{concurrent}, \@tests);
}

sub run_children {
    my ($self, $child_count, $all_tests) = @_;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3218	3334	
==>ile (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3218	3334	
==>ile (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3555	3656	
==>e', 'TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool', <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4012	4117	
==>self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4012	4117	
==>self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $fie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4612	4723	
==>t version.  The API is still in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4862	4973	
==>t version.  The API is still in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7896	8107	
==>t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" u <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1197	1408	
==>t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" u <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14638	14745	
==>Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14638	14745	
==>Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	3	103	
==>ckage Perl6::MM::C3;

use Perl6::Core::List;
use Perl6::Core::Bit;

package C3;

use strict;
use warn <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13363	13485	
==>DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13363	13485	
==>DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $sour <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23723	23838	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24002	24117	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	369	497	
==>asename;
use Getopt::Long;
use IO::File;
use HTML::Template;
use HTML::TreeBuilder;
use HTML::Entities;
use List::Util 'first';
u <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	6	108	
==>-Objekt
my $code = sub {say "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung vo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9504	9606	
==>o calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods return a l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9504	9606	
==>o calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods return a l <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9168	9282	
==>elf:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_he <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9168	9282	
==>elf:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_he <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1262	1365	
==>is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1262	1365	
==>is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6296	6397	
==>cific-language-like syntax, contained in a package

### rule must ever use Rule::rule form - never Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6081	6181	
==>cific-language-like syntax, contained in a package
### rule must ever use Rule::rule form - never Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11887	12027	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12166	12306	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1850	1964	
==>ure}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1990	2104	
==>ure}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7561	7724	
==>* floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = $Result3 % $n2_16;
    return $Result4;
}

# 9.8

# 9.9





class JSX::Value::Array;
submethod BUI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3451	3547	
==>TP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can red <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3451	3547	
==>TP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can red <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2242	2354	
==>end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2242	2354	
==>end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::I <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1572	1705	
==>t type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1572	1705	
==>t type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    ha <==
2	/Users/nnunley/pugs/util/func_refact.pl	1568	1693	
==>new is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys % <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4579	4729	
==>,
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4579	4729	
==>,
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4152	4266	
==>_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4152	4266	
==>_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5768	5895	
==>}
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5768	5895	
==>}
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	209	306	
==>ges in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	209	306	
==>ges in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15064	15160	
==>OTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15064	15160	
==>OTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16057	16168	
==>situations, a shared program component may raise such a condition, and one
application may handle it internally, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16057	16168	
==>situations, a shared program component may raise such a condition, and one
application may handle it internally, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3747	4007	
==>late module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3747	4007	
==>late module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12846	12941	
==>lue.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12904	12999	
==>lue.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	881	977	
==>=> 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	758	846	
==>=> 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2354	2486	
==>able = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2354	2486	
==>able = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	99	209	
==>VMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	99	209	
==>VMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4029	4138	
==>f a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4029	4138	
==>f a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18333	18437	
==>owing haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and basically ensures that id is polymorphic <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28187	28279	
==>HARNESS_PERL_SWITCHES> to C<-W> will
run all tests with all warnings enabled.

=item C<HARNES <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8020	8128	
==>ch %$suspect) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $key = "" . <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2034	2209	
==>%!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2034	2209	
==>%!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

metho <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29230	29321	
==>->refcnt++), re)
 #define ReREFCNT_dec(re) CALLREGFREE(aTHX_ re)

 #define FBMcf_TAIL_DOLLAR <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15664	15760	
==>han `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15664	15760	
==>han `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	985	1096	
==>t
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to de <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	985	1096	
==>t
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7225	7346	
==>{
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shift;
		my $thunk = shift;

		$self->enter_scope;
		my $rthunk = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1175	1326	
==>tement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/prec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1380	1531	
==>tement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/prec <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1153	1267	
==>_script {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can't o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	497	603	
==>l6 code\n";
    print ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::O <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1088	1189	
==>erfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1088	1189	
==>erfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4969	5088	
==>eturns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8446	8565	
==>eturns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19164	19264	
==>y to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19164	19264	
==>y to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9004	9115	
==>nt().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might arise <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9004	9115	
==>nt().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might arise <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5091	5194	
==>_content_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5091	5194	
==>_content_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $messa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1239	1344	
==>= '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $ful <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1239	1344	
==>= '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $ful <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10279	10387	
==>art or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10279	10387	
==>art or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Spa <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1466	1586	
==>m$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1466	1586	
==>m$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16911	17016	
==>rn $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    my Relation::Example @r_with <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	694	797	
==>Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	734	853	
==>esponse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	734	853	
==>esponse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1510	1635	
==>y \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1498	1623	
==>y \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23718	23822	
==>e, it can not be further changed;
this class defaults it to False.

=back

This is the main Relation cons <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28270	28374	
==>e, it can not be further changed;
this class defaults it to False.

=back

This is the main Relation cons <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9636	9730	
==>:($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9636	9730	
==>:($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5593	5695	
==>ib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "process <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5400	5498	
==>ib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "process <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22457	22559	
==>ead2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22457	22559	
==>ead2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5279	5557	
==>token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5279	5557	
==>token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	114	214	
==>stack, $subexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	562	657	
==>ule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    })->code();
}
sub per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1787	1938	
==>, $state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[3] <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27036	27127	
==><CharacterEscape>
    | <CharacterClassEscape>
}



grammar JavaScript::ECMAScript3::Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8355	8470	
==>> $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8355	8470	
==>> $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2152	2266	
==>rom($file) unless $self->perl_version;

    # The remaining probes read from POD sections; if the file
    # has an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1095	1198	
==>ngs;

use base 'closure::params';

1;

__END__

=pod

=head1 NAME

method - the core method instance typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24092	24198	
==>(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20513	20619	
==>(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	69	184	
==>nstant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	69	184	
==>nstant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13711	13890	
==>rh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13711	13890	
==>rh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_s <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	774	870	
==>->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	800	896	
==>->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5366	5498	
==>"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) : <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5366	5498	
==>"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) : <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	860	968	
==>t;
}

sub exit (Int $status = 0) is builtin is primitive {
    Perl6::Internals::exit $status;
}

sub Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14606	14732	
==>SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14606	14732	
==>SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8534	8677	
==>2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12011	12154	
==>2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    retu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2892	2987	
==>n($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.strin <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2892	2987	
==>n($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.strin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4430	4522	
==>t describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4430	4522	
==>t describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	954	1044	
==>=> 0" } ))->code;

*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <blo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14067	14181	
==>t $translator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14067	14181	
==>t $translator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3606	3738	
==>{ $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3746	3878	
==>{ $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1927	2057	
==>le;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        e <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1927	2057	
==>le;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1852	1970	
==>XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1852	1970	
==>XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17593	17695	
==>BMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired set of met <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17593	17695	
==>BMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired set of met <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7185	7411	
==>rrent_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.rese <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7185	7411	
==>rrent_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.rese <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4485	4590	
==>d difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._nor <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4485	4590	
==>d difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._nor <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8427	8538	
==>s, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks li <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8485	8596	
==>s, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks li <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1717	1828	
==>xtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2569	2680	
==>xtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1928	2179	
==>buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            g <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1928	2179	
==>buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	345	457	
==>se this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	345	457	
==>se this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21950	22067	
==>/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	346	447	
==>C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	346	447	
==>C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5852	5966	
==>replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9329	9443	
==>replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body <==
2	/Users/nnunley/pugs/util/package-osx.pl	1086	1193	
==>nfo/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/ <==
2	/Users/nnunley/pugs/util/package-osx.pl	3396	3503	
==>nfo/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	49	175	
==>obals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< serv <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	49	175	
==>obals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< serv <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15290	15412	
==>Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18767	18889	
==>Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 ) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1048	1140	
==>ineered implicit abstraction kludge would be
# unsustainable, and unsuitable for anything but <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2146	2232	
==>le L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2146	2232	
==>le L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1644	1770	
==>{
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4847	4973	
==>{
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1860	1976	
==>e real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1860	1976	
==>e real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17266	17367	
==>nfinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17266	17367	
==>nfinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	422	583	
==>AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2196	2349	
==>ugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2196	2349	
==>ugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5258	5368	
==>%!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5258	5368	
==>%!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3237	3357	
==>t
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimpl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3421	3541	
==>t
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimpl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18727	18821	
==>While simultaneously
trying to avoid triggering core behavior which we are not prepared to
supp <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3017	3111	
==>While simultaneously
trying to avoid triggering core behavior which we are not prepared to
supp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14259	14355	
==>::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		$.fun, <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	460	585	
==>ut do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out th <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	460	585	
==>ut do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4116	4232	
==>ield is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4116	4232	
==>ield is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embe <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3555	3677	
==>$file2,  "2nd line\n1st line\n" ],
      [ 'file3',  $file3,  "3rd line\n2nd line\n1st line\n" ],
      [ 'file21', $file21 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	807	902	
==>a for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	807	902	
==>a for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19646	19746	
==>ch as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But the cur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19646	19746	
==>ch as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But the cur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4248	4350	
==>alue"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" package serves only a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4248	4350	
==>alue"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" package serves only a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	0	118	
==>use v6;

class Span::Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TOD <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	0	118	
==>use v6;

class Span::Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TOD <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	899	1004	
==>\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	899	1004	
==>\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2454	2590	
==>ative => 
        map { $_->to_str->to_native } 
        $self->slice(num->new(0), $self->elems)->to_native
    )     
}

# some of the c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14991	15082	
==>a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which appl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14991	15082	
==>a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which appl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3243	3424	
==>ALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3243	3424	
==>ALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9403	9575	
==>midifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12880	13052	
==>midifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Rel <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	699	801	
==>Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at some <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	699	801	
==>Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at some <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1009	1125	
==>{ require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FT <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	976	1092	
==>{ require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FT <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	607	722	
==>:Anchor");
    $optable->addToken("term:\$", "term:", "nows", &parse_dollar);
    $optable->addToken("term:.", "term <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	427	536	
==>sh @:events, $callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @:events and call it. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	468	560	
==>erty, and adds nothing else.

More specialised processing instructions may sub-class this mod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	468	560	
==>erty, and adds nothing else.

More specialised processing instructions may sub-class this mod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6398	6535	
==>m";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case package name, assume case ha <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4407	4525	
==>amContext""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad< <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8144	8250	
==>ches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2595	2717	
==>XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2583	2705	
==>XXX - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3406	3507	
==>arser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3286	3383	
==>arser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.p <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	762	933	
==>scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	762	933	
==>scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	990	1083	
==>s functional, procedural, and object-oriented interfaces.  The 
functional and object-oriented <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	990	1083	
==>s functional, procedural, and object-oriented interfaces.  The 
functional and object-oriented <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6002	6100	
==>(c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistribute i <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6002	6100	
==>(c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistribute i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3320	3417	
==>ference ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3320	3417	
==>ference ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19360	19452	
==>dicates the
authentication scheme and parameters applicable to the requested URI.

=item $h.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19360	19452	
==>dicates the
authentication scheme and parameters applicable to the requested URI.

=item $h.p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16291	16397	
==>if provided (it defaults to empty if the parameter's
corresponding argument is not provided).  If the optio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16291	16397	
==>if provided (it defaults to empty if the parameter's
corresponding argument is not provided).  If the optio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	137	243	
==>d1 NAME

Blondie::Emitter - emitter base class - not more than just a namespace.

=head1 SYNOPSIS

    # mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1246	1355	
==>return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1246	1355	
==>return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	967	1098	
==>ss;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4828	4966	
==>oop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4828	4966	
==>oop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	551	680	
==>k->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fiel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1035	1164	
==>k->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fiel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6879	6978	
==>OOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6879	6978	
==>OOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7839	7953	
==>ot in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLiteral {  # see 7.8.2
      <'true' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13561	13768	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13840	14047	
==>r1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	829	937	
==>r is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	829	937	
==>r is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32824	32922	
==>ned external files for reading, mainly in the
C<translate_message()> method, but it has no other si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32824	32922	
==>ned external files for reading, mainly in the
C<translate_message()> method, but it has no other si <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12258	12350	
==>/td>
	      <td class="num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl_va <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11521	11634	
==>result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11521	11634	
==>result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2615	2722	
==>important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous version <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2519	2622	
==>important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous version <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20245	20345	
==>autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20245	20345	
==>autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8589	8792	
==>tart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method va <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8589	8792	
==>tart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5786	5919	
==>e = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6635	6768	
==>e = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: args = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6014	6162	
==>erties (A and B) to group the dists
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use h <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	976	1079	
==>ap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self->get($_)) } $self->key <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	870	979	
==>s_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	870	979	
==>s_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36721	36817	
==>Translator object's Set and Member properties; if none
could be matched, this method returns unde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36721	36817	
==>Translator object's Set and Member properties; if none
could be matched, this method returns unde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	219	330	
==>e>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	219	330	
==>e>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2706	2817	
==>= canonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = split <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2706	2817	
==>= canonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = split <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	420	533	
==>->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ((blessed($kla <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9684	9790	
==>nce object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

R <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9684	9790	
==>nce object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

R <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1068	1161	
==>$file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1068	1161	
==>$file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $fil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15730	15832	
==>int for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15730	15832	
==>int for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7892	8007	
==>ined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$ind <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7880	7995	
==>ined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$ind <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10082	10183	
==>set functions may end up being calculated using iterations, 
which can be slow sometimes.
Set function <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10082	10183	
==>set functions may end up being calculated using iterations, 
which can be slow sometimes.
Set function <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6499	6609	
==>["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30417	30526	
==>enthesis handler
is:

  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2709	2833	
==>ex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2709	2833	
==>ex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> < <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4360	4471	
==>evious }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4360	4471	
==>evious }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22146	22347	
==>eop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22425	22626	
==>eop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2098	2352	
==>n::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relation;

    # External packages used by <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	944	1038	
==>Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Parser>.

=cut <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	944	1038	
==>Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Parser>.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	875	973	
==>erver your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	875	973	
==>erver your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32288	32387	
==>he raw representation of this object.

=item type

The specific type of this object.

=item up

Whet <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20344	20437	
==>though program package installers usually do it.  An os-level preference
/ control-panel displ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20344	20437	
==>though program package installers usually do it.  An os-level preference
/ control-panel displ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8644	8847	
==>ft // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8644	8847	
==>ft // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34181	34275	
==>ed C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38731	38825	
==>ed C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37666	37876	
==>h')));
                                                                   
=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_attribute'),
    # method body
        method-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	69	162	
==>iltered::Comments 'regex matching subs you want to debug'}
* adds use Smart::Comments (if it m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5932	6094	
==>areword} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=['',''] unless $match; # defi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5074	5175	
==>l.hartmann\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4949	5044	
==>h (num) returns ~type>

=item B<store (num, ~type) returns nil>

=item B<remove (num) returns ni <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18290	18384	
==>on disk, it is expected that the Engines will employ appropriate measures
such as system-manage <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18290	18384	
==>on disk, it is expected that the Engines will employ appropriate measures
such as system-manage <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14053	14171	
==>so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14053	14171	
==>so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7955	8055	
==>() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7685	7781	
==>() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2582	2790	
==>}                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2582	2790	
==>}                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3217	3317	
==>e::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::Math;

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1054	1146	
==>rint("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n") <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1054	1146	
==>rint("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n") <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10989	11133	
==>' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10989	11133	
==>' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14261	14361	
==>Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This wi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14319	14419	
==>Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This wi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9043	9172	
==>,
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9039	9168	
==>,
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14166	14271	
==>name and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14166	14271	
==>name and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traf <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1197	1309	
==>d, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1255	1367	
==>d, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13200	13299	
==>tly Inline::C),
  and is thus not very portable to broken (no compiler) microsoft systems.

  The im <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9026	9145	
==>esn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9026	9145	
==>esn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2365	2506	
==>_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2365	2506	
==>_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	314	426	
==>lt to empty string
    bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# kee <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1650	1829	
==>{
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1650	1829	
==>{
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3263	3374	
==>>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ / <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3263	3374	
==>>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	129	231	
==>->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	129	231	
==>->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1653	1759	
==>ges used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1653	1759	
==>ges used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attrib <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19143	19242	
==>, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19143	19242	
==>, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE< <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	689	792	
==>method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	689	792	
==>method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	684	784	
==>A::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state. <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	684	784	
==>A::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10761	10876	
==>Includes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    R <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10761	10876	
==>Includes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6875	6979	
==>s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6875	6979	
==>s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4144	4277	
==>e module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to sea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4144	4277	
==>e module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to sea <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5606	5731	
==>}
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5606	5731	
==>}
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1412	1530	
==>ic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1412	1530	
==>ic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to ser <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5078	5188	
==>chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5078	5188	
==>chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%! <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8666	8807	
==>Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8666	8807	
==>Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	150	278	
==>ub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "} <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1106	1204	
==>ns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteract <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1106	1204	
==>ns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteract <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19850	19958	
==>o all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have been
mark <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19850	19958	
==>o all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have been
mark <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4594	4715	
==>ment!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4594	4715	
==>ment!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$par <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5427	5581	
==>ame} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, without GHC
        # in our path.   Let's hu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19387	19473	
==>eadline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19387	19473	
==>eadline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2187	2306	
==>d($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.prin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2187	2306	
==>d($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.prin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20157	20262	
==>y testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20157	20262	
==>y testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	313	514	
==>ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	314	515	
==>ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2279	2462	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7833	7939	
==>clude list
    --incude=I1,[I2,...]    Include files
    --exclude=E1,[E2,...]   Exclude files
    --anonym <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2624	2754	
==>n to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cache <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2841	2971	
==>n to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cache <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2159	2279	
==>mp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = $inst <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8293	8387	
==>finished being parsed, next() returns false, and will
return false if called again.

=head2 Bui <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4471	4579	
==>ng, but bug-compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4483	4591	
==>ng, but bug-compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4744	4950	
==>rsion } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5208	5414	
==>rsion } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1067	1173	
==>prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2450	2583	
==>al "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $per <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3409	3540	
==>al "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version >= $per <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8081	8179	
==>bjects, that return lists of spans.

In this example, @span may contain zero, one, two, or three sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8081	8179	
==>bjects, that return lists of spans.

In this example, @span may contain zero, one, two, or three sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	285	424	
==>lback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	285	424	
==>lback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .fro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14073	14184	
==>nslator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14073	14184	
==>nslator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12946	13045	
==>, the unit is added to the current value to get the next value.
The unit specifier is also used inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12946	13045	
==>, the unit is added to the current value to get the next value.
The unit specifier is also used inte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4944	5045	
==>of any leftover data and returns it as an array of bytes, 
then clears the object's internal state.  T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4944	5045	
==>of any leftover data and returns it as an array of bytes, 
then clears the object's internal state.  T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1467	1610	
==>a = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1467	1610	
==>a = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23439	23550	
==>any flag-parsing,
if you're adding a handle that might parse flags, because you do not
want to accidentally affe <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	441	553	
==>about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	441	553	
==>about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1478	1602	
==>ary.com/2004/11/07/ecma-262
#
#  The SPEC grammar SHOULD NOT BE CHANGED to accommodate the characteristics
#  of particular r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8133	8228	
==>st '=item' directive, followed by any text on the same line.

=item I<start_element ('verbatim') <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8133	8228	
==>st '=item' directive, followed by any text on the same line.

=item I<start_element ('verbatim') <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3720	3814	
==>ob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!("-MExtUtils::Command::MM" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6339	6443	
==>opcat = $$top{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1023	1125	
==>? }
rule non_alternation { <conjunction> | <non_conjunction> }

rule conjunction     { <non_conjunction <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	358	548	
==>f
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_ne <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5754	5840	
==>>display_type($expected_type);
		warn Data::Dumper::Dumper($expected_type) unless defin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9985	10086	
==>e_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9985	10086	
==>e_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	564	714	
==>header ~= "Status: " ~ $status ~ "\n";
    # TODO:
    # Need to add support for -
    #    Expires:
    #    Pragma: (caching)
    #    Set-Cookie: (m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21912	22032	
==>@{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18333	18453	
==>@{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $sel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17205	17304	
==>- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17205	17304	
==>- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1392	1508	
==>-> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1392	1508	
==>-> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3631	3733	
==>f: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3631	3733	
==>f: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3203	3323	
==>d->new(
        dist_name    => $self->{name},
        dist_version => $self->{version},
        license      => $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1368	1507	
==>ath);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1368	1507	
==>ath);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	95	188	
==>egory);
use Pugs::Runtime::Match;

use Pugs::Grammar::Var;
use Pugs::Grammar::Num;
use Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12639	12736	
==>rows_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12697	12794	
==>rows_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fu <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4429	4545	
==>\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000003\n" ],
      [ 'file4',  $f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	728	823	
==>);
}

sub optimize_flags {
	warn "optimize_flags has been changed to cc_optimize_flags for consi <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1739	1869	
==>$code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    fore <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1739	1869	
==>$code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    fore <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14580	14688	
==>annel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14580	14688	
==>annel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	62	153	
==>in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	62	153	
==>in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Mod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25755	25851	
==>ftware components.

Any versions of Rosetta that you modify and distribute must carry prominent
n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25755	25851	
==>ftware components.

Any versions of Rosetta that you modify and distribute must carry prominent
n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10544	10673	
==>se') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $par <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10544	10673	
==>se') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1649	1781	
==>or error(Params::Check->last_error), return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	425	543	
==>or error( Params::Check->last_error ), return;

    my $obj = $class->SUPER::new;
    $obj->mk_accessors( keys %$tmpl ) <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	518	617	
==>y:
</p>
<ul>
END

my @dir = glob "/home/*/public_html/*";
my @users = keys %{ { map { (split m[/])[2 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6441	6536	
==>-package => 'plugins', -package => 'haskell-src' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	597	698	
==>s Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# ma <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	597	698	
==>s Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17976	18076	
==>er should contain an Internet e-mail address for the human
user who controls the requesting user agen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17976	18076	
==>er should contain an Internet e-mail address for the human
user who controls the requesting user agen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	619	744	
==>msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	619	744	
==>msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2352	2486	
==>%param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2352	2486	
==>%param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   ! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	250	454	
==>ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	251	455	
==>ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2191	2313	
==>383/regexp-plg.html
Without their work, I almost certainly would have punted.
Also to iblech, and Michael Schilli of JavaSc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24508	24616	
==>h Mapping value
is the corresponding attribute value.

Every Relation::Example attribute has a name that is d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8923	9123	
==>on (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8923	9123	
==>on (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Ro <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	9	113	
==>nline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=p <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	9	113	
==>nline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7029	7144	
==>k' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7029	7144	
==>k' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $stat <==
2	/Users/nnunley/pugs/util/package-osx.pl	6962	7074	
==>ocal/man/man3/Perl6::Perl5::Differences.3pm
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3
        /usr/lo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35448	35544	
==>er_names()>

This method returns all Member Names elements in this object as an array
ref.

=item <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35448	35544	
==>er_names()>

This method returns all Member Names elements in this object as an array
ref.

=item <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4072	4179	
==>dren will be reduced -
Sym('&infix:<+>') will resolve '&infix:<+>' into the thunk that does
addition, C<< Va <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6442	6539	
==>e_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Ty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6442	6539	
==>e_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Ty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15919	16022	
==>nd papers and taught classes on the subject over the last
35+ years, along with Codd himself (some are l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15919	16022	
==>nd papers and taught classes on the subject over the last
35+ years, along with Codd himself (some are l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15698	15798	
==>an be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15698	15798	
==>an be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBM <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5047	5151	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1630	1734	
==>my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(ex <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20866	20969	
==>okahead
}
rule IfStatement :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <Statement> <'else <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4285	4399	
==>>{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4502	4616	
==>>{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1566	1662	
==>E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.org <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1566	1662	
==>E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.org <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1477	1602	
==>0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1477	1602	
==>0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7181	7310	
==>elf
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7181	7310	
==>elf
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18818	18963	
==>ta} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20176	20321	
==>ta} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	66	171	
==>Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	66	171	
==>Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () { <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1998	2103	
==>t with nothing but questions about what this object represents.

It represents a node in the Perldoc DOM t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1998	2103	
==>t with nothing but questions about what this object represents.

It represents a node in the Perldoc DOM t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1319	1444	
==>re => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1319	1444	
==>re => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCR <==
2	/Users/nnunley/pugs/util/package-osx.pl	318	417	
==>in/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = q <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5307	5428	
==>s ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5307	5428	
==>s ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13119	13218	
==>a message.  All header field names prefixed with C<Content-> falls
into this category, as well as C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13119	13218	
==>a message.  All header field names prefixed with C<Content-> falls
into this category, as well as C< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3079	3428	
==>$k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3079	3428	
==>$k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7686	7796	
==>rray1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7686	7796	
==>rray1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_arra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21204	21292	
==>el names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21204	21292	
==>el names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3901	4040	
==>arameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3901	4040	
==>arameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method i <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2024	2120	
==>=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2024	2120	
==>=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3640	3763	
==>ig :: Map.Map String String
config = Map.fromList
    [#all_definitions#
    ,("pugs_versnum", Pugs.Version.versnum)
    ,(" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4618	4704	
==>p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit', <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	794	924	
==>include\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1905	2002	
==>led,^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} and ($ENV{PUGS_RUN <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4581	4714	
==>>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4593	4726	
==>>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	600	732	
==>rver_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	600	732	
==>rver_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	956	1066	
==>o_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	956	1066	
==>o_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22844	22951	
==>s depending on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22844	22951	
==>s depending on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2321	2438	
==>est::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query strin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2321	2438	
==>est::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8824	8970	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9017	9163	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2662	2764	
==>'t run smoke upload script: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix saved as '$html_l <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17644	17742	
==>pressionNoIn>
    | <BitwiseORExpressionNoIn> <'|'> <BitwiseXORExpressionNoIn>
}
rule LogicalANDExp <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1309	1408	
==>path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJEC <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1309	1408	
==>path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJEC <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18028	18137	
==>global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struct is used
v <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2387	2494	
==>global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struct is used <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	951	1055	
==>$self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2551	2655	
==>$self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", ' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2860	3010	
==>ue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2860	3010	
==>ue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	546	646	
==>i sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersect <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	546	646	
==>i sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersect <==
2	/Users/nnunley/pugs/util/package-osx.pl	6730	6818	
==>/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man3/Perl6::Overvi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1285	1388	
==>t_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1343	1446	
==>t_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7799	7921	
==>$pArgs) {
    my $has_inv = defined($pInv) ? 1 : 0;
    my @inv = defined($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	918	1017	
==>rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($line ~~ rx:perl5/^ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3328	3420	
==>strs->data[0].substr;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strbeg,strend-strbeg)) <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4454	4592	
==>$file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $fil <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1691	1802	
==>Utils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1584	1674	
==>Utils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1256	1400	
==>{
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1256	1400	
==>{
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1625	1738	
==>les of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If yo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1625	1738	
==>les of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If yo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2054	2164	
==>preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when $a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2054	2164	
==>preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when $a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2678	2896	
==>= $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2678	2896	
==>= $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($conte <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2929	3051	
==>]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3474	3596	
==>]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1406	1612	
==>join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1406	1612	
==>join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1987	2098	
==>, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1987	2098	
==>, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4942	5076	
==>oad the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4771	4900	
==>oad the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optim <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1463	1560	
==>efore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms a <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1463	1560	
==>efore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11562	11658	
==>good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

Th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11562	11658	
==>good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

Th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15697	15809	
==>$e->create('$attrs' => hash->new());
                $e->create('&dispatcher' => $e->get('$class:')->send('dispat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2345	2455	
==>pod

=head1 NAME

Blondie::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a n <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3227	3326	
==>:Spec->rel2abs("dist/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dir <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12460	12571	
==>:$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @l <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3010	3116	
==>:$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4797	4940	
==>per($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4797	4940	
==>per($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{s <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	198	347	
==>class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    sub get {
        $_[0]{$_[1]}
    }

    sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16211	16349	
==>S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Rule" ]

.sub "p6rule"
    .param pmc mob
    .local pmc optable
    optable = fin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2677	2786	
==>fig{'archive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'pr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7884	7994	
==>anted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7942	8052	
==>anted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3377	3473	
==>ject that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3377	3473	
==>ject that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is t <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	299	397	
==>r 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, Code $maketoken?)
    is expor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	656	746	
==>From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	656	746	
==>From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	481	575	
==>d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	481	575	
==>d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	452	563	
==>. :-/
#
# c.f. Mini HowTo: How to port Perl 5 modules to Perl 6:
#      http://perlmonks.org/index.pl?node_id=44 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	790	904	
==>ts.  Also note that the 
Cipher API operates at the byte level, not the character level, so different 
character en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	790	904	
==>ts.  Also note that the 
Cipher API operates at the byte level, not the character level, so different 
character en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6692	6841	
==>ata}) {
      $self->{data}->type;
    }
    else {
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1063	1188	
==>ry = shift;
    
    my @list = _recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2729	2832	
==>_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors. <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2729	2832	
==>_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22961	23067	
==>son =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22961	23067	
==>son =E<gt> "...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17602	17772	
==>tr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward till we f <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16485	16572	
==>Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifiers_from(Ey,E0,E1).

rm(group(Re),F0,F1,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21427	21523	
==>relational database engines with minimal effort.

This might seem strange to somebody who has not <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21427	21523	
==>relational database engines with minimal effort.

This might seem strange to somebody who has not <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5132	5274	
==>could be generated automatically ?
  );

Pseudo-code for usage inside a grammar:

    rule prototype {
        proto <category>:<name> <options <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5175	5310	
==>y: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any       pr <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	334	475	
==>RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	334	475	
==>RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5960	6077	
==>al(X)                   --> "(?", p5_modifier_spec(M), !, p5_modifier_scope(M,X).
p5_elemental(cap(X))              -- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10146	10248	
==>A) --> alnums(L), { atom_codes(A,L) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5596	5770	
==>D search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eva <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6060	6234	
==>D search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eva <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3411	3565	
==>time::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3411	3565	
==>time::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $mat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	682	800	
==>we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	682	800	
==>we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9918	10030	
==>as "immediate" and "deferred".  The immediate validations
are performed at the moment the user tries to set the i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9918	10030	
==>as "immediate" and "deferred".  The immediate validations
are performed at the moment the user tries to set the i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3207	3338	
==>. "    rule $equal { " .
            emit_perl6_rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $self- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19123	19222	
==>e,$err)=@_;
    Carp::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_p5_code {
    my($cod <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3929	4035	
==>Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 an <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3929	4035	
==>Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 an <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5152	5255	
==>taldigit>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3206	3302	
==>die::Prelude::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::Math;

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	399	519	
==>or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    match - the " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	379	495	
==>or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10179	10280	
==>ethod which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, .. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10179	10280	
==>ethod which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, .. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1272	1379	
==>iate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1272	1379	
==>iate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The p <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22410	22521	
==>$Columns = $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10267	10373	
==>igit))         --> "\\D", !.
p56_char_class(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_ne <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7399	7608	
==>$_} = 
            {  file => $_ . ".html",
               name => $_,
            };
    }
}

sub build_indexes {
    my $path     = shift;
    my $index    = shift;
    
    return unless exists $index->{_dir <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2114	2213	
==>xp::Parser Objects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag handling is currently a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38455	38553	
==>alue is
substituted for any occurance of its corresponding variable name that is
bounded by '<' and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38455	38553	
==>alue is
substituted for any occurance of its corresponding variable name that is
bounded by '<' and <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1568	1674	
==>for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@p <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1568	1674	
==>for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25024	25142	
==>E0,-,E1), !.
set_flag(E0,x,E1)  :- set_flag_x(E0,x,E1), !.
set_flag(E0,-x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2594	2712	
==>ws_required {<?ws_input>+}
rule ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	490	599	
==>- TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	490	599	
==>- TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9302	9445	
==>ethods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9302	9445	
==>ethods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $cu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5448	5623	
==>ine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5448	5623	
==>ine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6452	6624	
==>igation.

                # For now this means that we only allow compilation on
                # the module content; not the DATA section. Because we
                # wan <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6452	6624	
==>igation.

                # For now this means that we only allow compilation on
                # the module content; not the DATA section. Because we
                # wan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3436	3549	
==>:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3436	3549	
==>:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_fie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4910	5024	
==>_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4910	5024	
==>_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2094	2220	
==>_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2875	3001	
==>_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10402	10517	
==>med_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10681	10796	
==>med_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'gra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2236	2338	
==>les syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2325	2427	
==>les syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emit <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	5	107	
==>s Method--Perl6;

has Code $.code;

=head1 NAME

Method - functions on classes

=head1 SYNOPSIS



=hea <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5820	5969	
==>@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_ch <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4320	4469	
==>@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $size_ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1829	1960	
==>array};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quote <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	322	450	
==>= lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        !$y;
    } qw <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3576	3677	
==>and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multide <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3576	3677	
==>and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multide <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21193	21297	
==>en this fact, Rosetta's most prominant feature is that it provides a
common API for access to those datab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21193	21297	
==>en this fact, Rosetta's most prominant feature is that it provides a
common API for access to those datab <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6036	6136	
==>ir,"Synopsis", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $syn_index: $!" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16552	16652	
==>e's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16552	16652	
==>e's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its Doc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1388	1519	
==>{
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_messag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1388	1519	
==>{
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_messag <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27222	27318	
==>his method is a generic relational operator that returns a new Relation
which has a superset of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31774	31870	
==>his method is a generic relational operator that returns a new Relation
which has a superset of t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1721	1868	
==>$method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1721	1868	
==>$method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Matc <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	605	770	
==>~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                giv <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	605	770	
==>~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                giv <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2203	2322	
==>ti method as (--> Array) { @.strings }
        multi method as (--> Named) { $.name => self }
    }

    class Getopt::A <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4701	4841	
==>ement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty() <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4701	4841	
==>ement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8403	8513	
==>sh @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $self = bless { <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5377	5487	
==>ITION";

        #while Control::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3704	3844	
==>tches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3716	3856	
==>tches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a ha <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9152	9294	
==>&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is ex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9152	9294	
==>&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	610	730	
==>e Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	610	730	
==>e Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3829	3976	
==>= 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3817	3964	
==>= 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1171	1268	
==>e_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1171	1268	
==>e_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if % <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4050	4186	
==>le = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3001	3123	
==>le = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	275	398	
==>t::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

= <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	275	398	
==>t::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

= <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21917	22014	
==>pile_file_to_yml($file) is builtin is unsafe {
    # XXX - re-enable this when Parse-YAML supports <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	512	606	
==>is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: @r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	512	606	
==>is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: @r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5161	5303	
==>perations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5161	5303	
==>perations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	720	833	
==>rn { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $o <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5447	5558	
==>n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tes <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17495	17591	
==>, and `reset()` methods.

If the span is "continuous", this method emits a warning and returns un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17495	17591	
==>, and `reset()` methods.

If the span is "continuous", this method emits a warning and returns un <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	302	423	
==>CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	302	423	
==>CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13475	13606	
==>this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13475	13606	
==>this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	532	634	
==>urns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	532	634	
==>urns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7368	7494	
==>tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7380	7506	
==>tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7120	7280	
==>BER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7120	7280	
==>BER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded temp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1678	1824	
==>);

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1689	1835	
==>);

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10715	10816	
==>uery_string returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=ite <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10715	10816	
==>uery_string returns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6642	6773	
==>_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'valu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6642	6773	
==>_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'valu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5587	5687	
==>art_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5587	5687	
==>art_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	701	867	
==>ar eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $reg <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	701	867	
==>ar eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $reg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18428	18524	
==>object's C<strict> attribute to 1; the character
class would render as C<[\w\d:]>.  If you want t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1995	2106	
==>ope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14515	14625	
==>ope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19103	19240	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19382	19519	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  , <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2006	2177	
==>aram<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2006	2177	
==>aram<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6826	6941	
==>malize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6826	6941	
==>malize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4509	4647	
==>e}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $args{name};
        $args{ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2250	2387	
==>e}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $args{name};
        $args{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4606	4773	
==>@_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE_INSTA <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	156	252	
==>w[:STD];
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head1 METHODS

=head <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13341	13452	
==>y($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13341	13452	
==>y($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is in <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3548	3698	
==>e> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | ret <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3548	3698	
==>e> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1438	1562	
==>andler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1438	1562	
==>andler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nick <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	992	1128	
==>key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	992	1128	
==>key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	997	1238	
==>g{Relation::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4925	5030	
==>t1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4925	5030	
==>t1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13936	14046	
==>This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template ava <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13936	14046	
==>This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template ava <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5031	5203	
==>member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5031	5203	
==>member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () retu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9881	9979	
==>common test utility functions, and is
an implementation of the TAP protocol.

This module, like Pug <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9939	10037	
==>common test utility functions, and is
an implementation of the TAP protocol.

This module, like Pug <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15835	15938	
==>mc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15835	15938	
==>mc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6255	6410	
==>cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6768	6923	
==>cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	222	327	
==>my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	222	327	
==>my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents) <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1669	1851	
==>ue( $arg );
            $.count++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            push @.names, $arg.name;
        }
        
        m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20422	20520	
==>ory and no files, collapse
    for my $subdir (keys %{$dir_index->{_dirs}}) {
	my $val = $dir_index <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1205	1333	
==>_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ") <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1205	1333	
==>_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ") <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8251	8356	
==>LF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11728	11833	
==>LF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13838	13946	
==>gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  de <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1910	2030	
==>l> };
        my $tpl_config = $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class->env_ove <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1113	1203	
==>erver_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1113	1203	
==>erver_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2167	2270	
==>me, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2167	2270	
==>me, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator i <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1161	1295	
==>$.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0, <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1161	1295	
==>$.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	248	346	
==>e';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	248	346	
==>e';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2731	2832	
==>key, the encryption 
can be removed by XORing them together; you might not be able to derive the 
plai <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2731	2832	
==>key, the encryption 
can be removed by XORing them together; you might not be able to derive the 
plai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2030	2137	
==>: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2030	2137	
==>: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	482	595	
==>[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	482	595	
==>[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11076	11190	
==>/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11076	11190	
==>/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the las <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1488	1591	
==>g)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worke <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1488	1591	
==>g)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worke <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14525	14642	
==>reface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14525	14642	
==>reface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4889	5028	
==>hod date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4889	5028	
==>hod date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23580	23693	
==>ation>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23580	23693	
==>ation>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine cl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	163	276	
==>ly
forms a linked list through the rule as it is executed, but the linked
list is done in code (i.e. with closures <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	163	276	
==>ly
forms a linked list through the rule as it is executed, but the linked
list is done in code (i.e. with closures <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1719	1850	
==>s uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore the prefix on extension mod <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12636	12739	
==>ite()`

Returns true if the recurrence is infinite.

- `start()`

Returns the start element in the recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12636	12739	
==>ite()`

Returns true if the recurrence is infinite.

- `start()`

Returns the start element in the recur <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2025	2140	
==>der ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %ex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2025	2140	
==>der ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %ex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28495	28597	
==>andler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText do <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28495	28597	
==>andler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText do <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2915	3052	
==>r   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2915	3052	
==>r   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8375	8473	
==>ER

This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8375	8473	
==>ER

This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20913	21028	
==>atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17334	17449	
==>atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->ad <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3465	3566	
==>d compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3465	3566	
==>d compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8504	8639	
==>> chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8504	8639	
==>> chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "su <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	295	425	
==>) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$neg <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	295	425	
==>) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$neg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20139	20241	
==>re to be completely testable on its own.  It is
coded intentionally in a simple fashion so that it is e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20139	20241	
==>re to be completely testable on its own.  It is
coded intentionally in a simple fashion so that it is e <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15222	15393	
==>->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $name = join '', 
              map {$_->attr('text')} 
                $beg->look_down(_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16974	17071	
==>'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10828	10957	
==>en};
      }
      push @$st, $tree;
      $rx->{tree} = $self->{data}[-1];
    }
  }
}


{
  package Regexp::Parser::exact;
  pus <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1237	1356	
==><simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\.]>+}(\??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2297	2403	
==>ATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2514	2620	
==>ATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_fi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5132	5249	
==>next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5132	5249	
==>next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4615	4772	
==>equired => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5267	5424	
==>equired => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tm <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6363	6460	
==>$a->{name} cmp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	76	321	
==>that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constan <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	76	321	
==>that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14858	14950	
==><Document>

Rosetta::Model::Document - This stores a reference to the Document that
this Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14858	14950	
==><Document>

Rosetta::Model::Document - This stores a reference to the Document that
this Node <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	483	595	
==>kg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c-basic <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5219	5349	
==>", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5277	5407	
==>", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4184	4286	
==>ue2

If a property is outside of a section, it will be assigned to the root
section, available at C<$co <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4184	4286	
==>ue2

If a property is outside of a section, it will be assigned to the root
section, available at C<$co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2977	3070	
==>lock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fglo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2869	2961	
==>lock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fglo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5221	5337	
==>urn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5221	5337	
==>urn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12981	13107	
==>)    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12981	13107	
==>)    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9371	9461	
==>apsulates HTTP-style message headers.
The headers consist of attribute-value pairs also cal <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9371	9461	
==>apsulates HTTP-style message headers.
The headers consist of attribute-value pairs also cal <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2731	2862	
==>ate a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properti <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2731	2862	
==>ate a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3477	3584	
==>:Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    su <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3477	3584	
==>:Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1661	1819	
==>e($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1661	1819	
==>e($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1496	1625	
==>.
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1484	1613	
==>.
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1932	2057	
==>art;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1932	2057	
==>art;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2817	2960	
==>ed
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't ins <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2817	2960	
==>ed
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't ins <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9388	9524	
==>ocal $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9376	9512	
==>ocal $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12711	12809	
==>ds) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) an <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12769	12867	
==>ds) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18307	18403	
==>document from which the
requested resource address was obtained.

The "Free On-line Dictionary of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18307	18403	
==>document from which the
requested resource address was obtained.

The "Free On-line Dictionary of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11510	11667	
==>]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code =~ /return/;
        
    return
           "$_[1] Pugs::Runtime:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22762	22857	
==>G_SEEN_GPOS

Confined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7765	7883	
==>{after}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7503	7614	
==>{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub ru <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33542	33642	
==>intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-method is the N-a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38092	38192	
==>intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-method is the N-a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6838	6943	
==>of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6838	6943	
==>of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8282	8408	
==>rmalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $old <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8282	8408	
==>rmalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $old <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1415	1553	
==>+ $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1415	1553	
==>+ $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9933	10037	
==>xport
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9933	10037	
==>xport
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeri <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5075	5198	
==>an pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5075	5198	
==>an pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6210	6323	
==>+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	349	459	
==>(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12643	12747	
==>:Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12643	12747	
==>:Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1545	1653	
==>ing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the nearest by <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1545	1653	
==>ing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the nearest by <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22496	22599	
==>do not interact with the outside
environment at all.

A Relation object has 2 main attributes (implement <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27048	27151	
==>do not interact with the outside
environment at all.

A Relation object has 2 main attributes (implement <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1605	1716	
==>Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1605	1716	
==>Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4559	4663	
==>t1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4559	4663	
==>t1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_r <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1425	1526	
==>CT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1425	1526	
==>CT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2179	2350	
==>ion::AttrName $attr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_names() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21962	22068	
==>ERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects from its membe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21962	22068	
==>ERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating objects from its membe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	230	343	
==>deally, the node definition clauses would be in one file,
   and the defining macros, for each of various class hi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	230	343	
==>deally, the node definition clauses would be in one file,
   and the defining macros, for each of various class hi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22365	22461	
==>h
directories in your path that packages could be installed in.

Generally, when a program packag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22365	22461	
==>h
directories in your path that packages could be installed in.

Generally, when a program packag <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6167	6275	
==>SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6167	6275	
==>SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	707	816	
==>sn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	707	816	
==>sn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13935	14030	
==>::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13935	14030	
==>::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	458	560	
==>nInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DES <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	458	560	
==>nInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DES <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	78	180	
==>e
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	78	180	
==>e
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	251	351	
==>ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	251	351	
==>ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14147	14250	
==>eneric($.param) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.param);

	types::unify(
		$f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4293	4419	
==>= shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), "]";
  }

  sub raw {
    my $self = shift;
    join "", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	306	445	
==>$subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	306	445	
==>$subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # pa <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1724	1838	
==>{_exe}", 'build');
        system("../../Setup$Config{_exe}", 'install', '--user');
        chdir $pwd;
    }
    p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	377	489	
==>Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Bui <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	408	508	
==>Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Bui <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4741	4842	
==>);
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4741	4842	
==>);
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21706	21804	
==>ase Driver Independence>, and not I<Database Language
Independence>.  To further demonstrate the di <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21706	21804	
==>ase Driver Independence>, and not I<Database Language
Independence>.  To further demonstrate the di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15556	15663	
==>r J. Date and Hugh
Darwen for a solid foundation for data and database management systems
(DBMSs); like Edga <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15556	15663	
==>r J. Date and Hugh
Darwen for a solid foundation for data and database management systems
(DBMSs); like Edga <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9513	9638	
==>template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9513	9638	
==>template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15060	15178	
==>d to read
and to set the value of a header.  The header value is set if you pass
an argument to the method.  The old he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15060	15178	
==>d to read
and to set the value of a header.  The header value is set if you pass
an argument to the method.  The old he <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15387	15494	
==>s ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::E <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15387	15494	
==>s ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2276	2385	
==>umper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2493	2602	
==>umper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3221	3335	
==>y) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3221	3335	
==>y) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $sp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9921	10023	
==>is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.el <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9921	10023	
==>is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.el <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13565	13773	
==>any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13844	14052	
==>any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25504	25600	
==>ng! ) returns Relation>

This method is a generic relational operator that returns a new Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30056	30152	
==>ng! ) returns Relation>

This method is a generic relational operator that returns a new Relation <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40005	40103	
==>dly escaped, and a string.  If the warning is called
from a character class, pass " in character cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17516	17651	
==>,
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17516	17651	
==>,
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	571	702	
==>::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	571	702	
==>::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub li <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9381	9487	
==>2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9381	9487	
==>2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19675	19769	
==>ormat that will be much easier for a non-programmer to edit.
But the current Perl-based solutio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19675	19769	
==>ormat that will be much easier for a non-programmer to edit.
But the current Perl-based solutio <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1910	2072	
==>' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1910	2072	
==>' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5097	5245	
==>"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5097	5245	
==>"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2697	2839	
==>ree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2697	2839	
==>ree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmt <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23423	23518	
==>rnals.  Implementing classes can
optionally override these operators with versions that are more <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10402	10530	
==>atement_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "ma <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19594	19706	
==>, etc.
A -1 in both indicates the capture didn't happen.

  U32 lastparen;          /* last paren matched */
  U3 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12542	12654	
==>_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12542	12654	
==>_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $sour <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7059	7165	
==>on);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7059	7165	
==>on);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5580	5858	
==>DO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replace <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9057	9335	
==>DO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replace <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5060	5275	
==>eturn { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4903	5108	
==>eturn { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 matc <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	277	380	
==>($_ =~ $signature) { $fn = $1; $g->add_node($fn); next }
	if($fn) { $funcs{$fn} .= $_ }
}

our %nodes;
f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	358	551	
==>ine;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	358	551	
==>ine;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13133	13231	
==>s is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13133	13231	
==>s is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	601	710	
==>e accessed using
the C<.ref> method, which is available on any type, boxed or unboxed.

These objects are what <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2565	2665	
==>ng portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2565	2665	
==>ng portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9441	9618	
==>ntry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARR <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4021	4127	
==>urn $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4021	4127	
==>urn $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40407	40501	
==>ion to preserving this original copyright notice and other
credits. Locale::KeyedText is distri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40407	40501	
==>ion to preserving this original copyright notice and other
credits. Locale::KeyedText is distri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11795	11912	
==>->{data} }, @{ $self->{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$tree;
    return 1;
  }
}


{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7660	7751	
==>>, $parser->errmsg will return
that error message, and $parser->errnum will return the numer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1810	1920	
==>se IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1810	1920	
==>se IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Grammar::Compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6755	6918	
==>eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6755	6918	
==>eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25177	25340	
==>ttr(symbol->new('@:superclasses') => $e->get('?@superclasses')); 
                          # clear the MRO now
                          $e->get('$self:')->set_att <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5092	5224	
==>p[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->n <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1392	1504	
==>n CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<confor <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1392	1504	
==>n CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<confor <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12646	12748	
==>turns true if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12646	12748	
==>turns true if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

R <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3532	3646	
==>object-oriented backend.

To use the Cipher API, you must first create an object of the appropriate 
class, passing <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3532	3646	
==>object-oriented backend.

To use the Cipher API, you must first create an object of the appropriate 
class, passing <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3809	3908	
==>module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the app <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3809	3908	
==>module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the app <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1959	2054	
==>Garcia  for Language::Prolog::Yaswi,
    http://search.cpan.org/~salva/Language-Prolog-Yaswi-0.0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13386	13484	
==>place HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not fou <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13386	13484	
==>place HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not fou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1496	1591	
==>ing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=he <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1496	1591	
==>ing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=he <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	827	942	
==>t_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan alread <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	827	942	
==>t_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan alread <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2688	2819	
==>ode;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2676	2807	
==>ode;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3193	3289	
==>- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3080	3173	
==>- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
li <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1547	1653	
==>passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1547	1653	
==>passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4936	5085	
==>ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4948	5097	
==>ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23067	23251	
==>end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string cname
    .local pmc exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	989	1104	
==>}
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by factorin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7709	7842	
==>ion $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= & <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11186	11319	
==>ion $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_union       ::= & <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3615	3827	
==>$matches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3503	3708	
==>$matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21666	21796	
==>d tests for the new captures() method.

I changed the field 'class' to 'family' in objects.  I was getting
confused by it, so I fig <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	838	934	
==>r into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_uplo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6534	6677	
==>e ($label $method))))

=cut

{
    # add the first method
    my $_add_method = method->new(
            $::ENV,
            method::signature-> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1374	1469	
==>crificing ease of installation and portability, we may have
  bought fairly simple code with tol <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8649	8769	
==>t_test_number
  {
      return +@:results + 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Pl <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8447	8575	
==>= "::" if substr($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11071	11204	
==>, '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11221	11354	
==>, '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1268	1395	
==>3 of re::override, released
March 12, 2006.

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|H <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7030	7147	
==>(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7030	7147	
==>(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15474	15611	
==>if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15474	15611	
==>if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	807	913	
==>fill_with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <blo <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	807	913	
==>fill_with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <blo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2206	2303	
==>eral {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2119	2214	
==>eral {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9376	9481	
==>less({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	390	493	
==>ie "Caught an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, al <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1335	1438	
==>sed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-international.org/publication <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5169	5478	
==>-> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:per <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5169	5478	
==>-> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:per <==
2	/Users/nnunley/pugs/util/package-osx.pl	7706	7803	
==>::Functions.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1056	1235	
==>} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return % <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1056	1235	
==>} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return % <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2525	2654	
==>if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # la <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2525	2654	
==>if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # la <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4561	4675	
==>or compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4561	4675	
==>or compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5111	5249	
==>leanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5111	5249	
==>leanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8122	8269	
==>lass = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8122	8269	
==>lass = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5	110	
==>e Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5	110	
==>e Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9118	9212	
==>ring deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9118	9212	
==>ring deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10126	10246	
==>>{data} } ], $cond ];
      $rx->{tree} = $ifthen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    els <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10144	10251	
==>';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20175	20266	
==>t> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.ad <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20175	20266	
==>t> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.ad <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2	116	
==>dule LWP::Simple-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2	116	
==>dule LWP::Simple-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won' <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7551	7692	
==>f (grep /^-DPUGS_HAVE_READLINE$/, @_) {
        $depends .= ', readline -any';
    }

    my $unicode_c = '';
    if ($ghc_version =~ /^6\.4(? <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	957	1081	
==>ool is builtin is primitive is unsafe {
        # say "e:args:" ~ @args.perl; # XXX delme
        Pugs::Internals::exec(@args <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	254	364	
==>gs = grep !/^--[-\w]*prefix=$/, @ARGV;
my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV a <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1341	1462	
==>), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1268	1382	
==>), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11984	12105	
==>=> $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11984	12105	
==>=> $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	924	1107	
==>pace_before = 1;
            }
            my @expect = $p->YYExpect;  # XXX is this expensive?
            
            # print "tail $match \n"; 
            
            # XXX @expe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2078	2206	
==>ssed in the right class
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Package::Insta <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5557	5660	
==>b using this
function.  If you need that information you should use the full OO
interface (see L<LWP::Us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5557	5660	
==>b using this
function.  If you need that information you should use the full OO
interface (see L<LWP::Us <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	33	142	
==>class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	33	142	
==>class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	968	1099	
==>bj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alpha {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	341	453	
==>te($c);
	my $c_code = $self->emit($type_annotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotato <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6950	7125	
==>';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7509	7684	
==>';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3193	3304	
==>>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defi <==
2	/Users/nnunley/pugs/util/addauthors.pl	1335	1479	
==>er $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub readauthors {
  my $fh = IO::File->new("AUTHORS", "<:utf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15348	15461	
==>"", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ":";
  }

  sub qr {
    my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21171	21263	
==>ined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21171	21263	
==>ined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22193	22286	
==>.", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22193	22286	
==>.", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<g <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8553	8658	
==>dnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8553	8658	
==>dnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10225	10333	
==>ness of the input, such as that mandatory
constructor arguments are provided and that they are of the correct <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10225	10333	
==>ness of the input, such as that mandatory
constructor arguments are provided and that they are of the correct <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14984	15098	
==>B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $width);

Generates the 't/foo........' leader for the g <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10557	10663	
==>};
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine, $posEndColumn) {
    "";
}


1;
__ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1498	1596	
==>>new_pad("name" => $value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11513	11605	
==>/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11513	11605	
==>/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17954	18069	
==>track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17954	18069	
==>track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C< <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7581	7758	
==>t )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7581	7758	
==>t )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.clo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7648	7752	
==>class takes care of much of this.)

A default implementation of this method is provided which returns not <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7648	7752	
==>class takes care of much of this.)

A default implementation of this method is provided which returns not <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2761	2977	
==>eq_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2761	2977	
==>eq_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2767	2967	
==>tart($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2767	2967	
==>tart($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :de <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	167	268	
==>Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Sepa <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	167	268	
==>Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Sepa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4542	4746	
==>$matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4542	4746	
==>$matches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13415	13538	
==>ce::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13415	13538	
==>ce::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27588	27730	
==>op::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27867	28009	
==>op::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	31	117	
==>e 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	162	248	
==>e 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::Rule <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5825	5978	
==>ld be a policy test!
            if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg- <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2594	2703	
==>reviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2594	2703	
==>reviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6918	7048	
==>span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6918	7048	
==>span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1027	1121	
==>oriented interfaces.  The 
functional and object-oriented interfaces both follow the same basic <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1027	1121	
==>oriented interfaces.  The 
functional and object-oriented interfaces both follow the same basic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6642	6813	
==>uring_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6835	7006	
==>uring_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10579	10704	
==>);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10579	10704	
==>);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	607	724	
==>es not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	607	724	
==>es not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1266	1372	
==>aram<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1266	1372	
==>aram<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6061	6190	
==>= $range) && ($got >= - $range);
    } else {
        my $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $rang <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	359	464	
==>ctions, so
# sub-type JuncType
has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	303	441	
==>$n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6493	6612	
==>_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded in a cor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6493	6612	
==>_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded in a cor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26869	26970	
==>ariables" attribute if the corresponding argument is
provided (it defaults to empty if the argument is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26869	26970	
==>ariables" attribute if the corresponding argument is
provided (it defaults to empty if the argument is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4292	4405	
==>BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], param => $_[2], } }
    | exp '.' <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2459	2610	
==>n $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12828	12924	
==>this is specced, but when I migrated &prefix:<=> from
# meaning the same as &readline to $obj.shi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	216	324	
==>d1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding suppo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	216	324	
==>d1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding suppo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2726	2825	
==>> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>. <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2726	2825	
==>> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3020	3134	
==>} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3020	3134	
==>} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	208	313	
==>string to match

1 - an optional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	197	299	
==>string to match
1 - an optional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	507	597	
==>ialised processing instructions may sub-class this module or
provide special behaviour when <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	507	597	
==>ialised processing instructions may sub-class this module or
provide special behaviour when <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20297	20394	
==>header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20297	20394	
==>header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is no <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9990	10088	
==>ort { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A modul <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9990	10088	
==>ort { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A modul <==
2	/Users/nnunley/pugs/util/config_h.pl	820	937	
==>GS_DATE
#undef PUGS_DATE
#endif
#define PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you have cywin, you're st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	10	107	
==>B::Package;

use strict;
use warnings;
use base 'Object::Accessor';

use JIB::Constants;
use JIB:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6846	6968	
==>ick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6846	6968	
==>ick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $ev <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	87	224	
==>ec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	87	224	
==>ec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10128	10223	
==>f","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10863	10958	
==>f","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9556	9658	
==>nn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9556	9658	
==>nn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2107	2233	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2107	2233	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35701	35795	
==>Relation>

This multi-method is a generic binary relational operator that takes
another Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40251	40345	
==>Relation>

This multi-method is a generic binary relational operator that takes
another Relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	560	664	
==>Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	560	664	
==>Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7826	7929	
==>rse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns C <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7826	7929	
==>rse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16561	16655	
==>TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> documentatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16561	16655	
==>TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> documentatio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12707	12856	
==>document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_bas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12707	12856	
==>document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_bas <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14289	14508	
==>eface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $res <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14289	14508	
==>eface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $res <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9963	10115	
==>ned $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9963	10115	
==>ned $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6389	6488	
==>nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6389	6488	
==>nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4977	5071	
==>ale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4977	5071	
==>ale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3810	3942	
==>ING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when ' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3810	3942	
==>ING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when ' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7599	7704	
==>unify => ('type::operator', 'type::variable::free') => sub { $_[1]->instantiate($_[0]) };

# an instantiat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	512	643	
==>fer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_bloc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	512	643	
==>fer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_bloc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9415	9513	
==>size` will be a duration.

If the set contains lazy recurrences, it may not be possible to calculat <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9415	9513	
==>size` will be a duration.

If the set contains lazy recurrences, it may not be possible to calculat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3750	3931	
==>( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3890	4071	
==>( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3589	3838	
==>r   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

sub nul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	95	190	
==>nings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime::M <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3084	3278	
==>ture:<if>'),
                App->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6462	6603	
==>catfile( $to, $target ) 
                } File::Find::Rule->file->in( $from );
    } else {
        %from = ( $from => $to );
    }
   
    w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13607	13711	
==>tely entangled with
  the rest of perl.]

  The regexp engine and the perl compiler have an overly friend <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6588	6681	
==>I<start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_docume <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6588	6681	
==>I<start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_docume <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1372	1481	
==>{
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Liter <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1372	1481	
==>{
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Liter <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12938	13064	
==>handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12938	13064	
==>handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    h <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17449	17617	
==>($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= subs <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22209	22321	
==>pacePerl(C) :- (char_type(C,space) ; C = 11), !. %\v chr(11)

case_insensitive_char_eq(Ca,Cb) :-
  char_type(Ca,t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19706	19964	
==>b {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40166	40424	
==>b {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get(' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28611	28722	
==>any "Template" modules, but it expects you
to make modules having a specific simple API that will serve their ro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28611	28722	
==>any "Template" modules, but it expects you
to make modules having a specific simple API that will serve their ro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1255	1388	
==>);
        $_[3] = bless \{ bool => \0 }, 'Pugs::Runtime::Match::Ratchet';
        while ( $state[0] <= $#$nodes ) {
            $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2198	2298	
==>reach my $x (split //, 'nrtfa\\\'"') {
    $backslash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A way <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5639	5784	
==>w operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            prece <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5639	5784	
==>w operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            prece <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1659	1759	
==>) . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1659	1759	
==>) . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	127	223	
==>nings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	127	223	
==>nings;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22194	22381	
==>ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22473	22660	
==>ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	277	369	
==>_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	310	402	
==>_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->comp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10171	10345	
==>ucceeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print " <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12110	12206	
==>PERL5LIB> environment variable.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1991	2088	
==>le> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results. <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1991	2088	
==>le> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51532	51668	
==>>get('$self:')
                  ->get_attr(symbol->new('$:authority'))
                  ->to_bit()
                  ->and(block->new($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3524	3617	
==>ed C<Pugs::Compiler::Rule> module would prevent the Perl 6 compiler
from bootstrapping. 

If t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14844	15005	
==>xt::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14844	15005	
==>xt::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5255	5400	
==>) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5267	5412	
==>) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	414	540	
==>edText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number } <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	414	540	
==>edText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1212	1312	
==>ivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1212	1312	
==>ivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3888	4019	
==>l5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      - <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3888	4019	
==>l5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3020	3119	
==>s as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3020	3119	
==>s as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16371	16474	
==>ot provided).  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16371	16474	
==>ot provided).  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2181	2296	
==>}
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKI <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2181	2296	
==>}
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKI <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5000	5123	
==>tr is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to hand <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5000	5123	
==>tr is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to hand <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2122	2223	
==>sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2122	2223	
==>sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1727	1837	
==>t int of int32 where { true }');
Helpers::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18063	18179	
==>urce code into various blocks; so that by the
time a compiler is called it only gets the source code that it should b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18063	18179	
==>urce code into various blocks; so that by the
time a compiler is called it only gets the source code that it should b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6722	6923	
==>t;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6722	6923	
==>t;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1248	1347	
==>ich are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will onl <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1248	1347	
==>ich are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will onl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4301	4445	
==>$node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4842	4986	
==>$node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3996	4132	
==>eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3996	4132	
==>eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n) <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4829	4969	
==>nless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4829	4969	
==>nless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15589	15708	
==>lf->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21760	21879	
==>lf->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1982	2096	
==>use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1982	2096	
==>use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6151	6303	
==>TA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Mayb <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6151	6303	
==>TA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Mayb <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19122	19248	
==>lar expression */
  U32 nparens;            /* number of parentheses */

=head2 The match result:

  I32 sublen;             /* <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	651	760	
==>attern)/, $^str).map:{~$_} };
  return sub {
    while +@tokens == 0 && defined $buf {
      my $i = $input.() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23629	23737	
==>is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23629	23737	
==>is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17639	17739	
==>item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to see.

= <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17639	17739	
==>item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to see.

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15331	15434	
==>stems.

If the program or any of its components are intended for widespread use
then it needs to account <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15331	15434	
==>stems.

If the program or any of its components are intended for widespread use
then it needs to account <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4164	4268	
==>nels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4164	4268	
==>nels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5321	5475	
==>a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TC <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5321	5475	
==>a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TC <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3737	3853	
==>d
    package Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $self->{data}) {
	$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29328	29429	
==>pe. If
it is called I<after> $obj has been added to the tree, $obj will be
removed from the tree.  Mos <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1479	1605	
==>s Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub shift (@a) is builtin is pr <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2748	2840	
==>\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condition {
    if(/(${re_condition})\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3384	3532	
==>";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3848	3996	
==>";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3233	3326	
==>mpiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3119	3209	
==>mpiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32791	32885	
==>ll.

=head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, but that is omitted
her <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1950	2053	
==>start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1950	2053	
==>start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8807	8926	
==>y $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8807	8926	
==>y $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23695	23786	
==>sses.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implements <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23695	23786	
==>sses.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implements <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6438	6540	
==>tart, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This cla <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6438	6540	
==>tart, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This cla <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21064	21195	
==>ot set $canon!
        }
        else {
            push @{$test->{failed}}, $test->{'next'}..$test->{max};
            $failed = @{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1673	1778	
==>tta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1673	1778	
==>tta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4858	5019	
==>ch, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the speci <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4858	5019	
==>ch, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the speci <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5227	5435	
==>he stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @mo <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5227	5435	
==>he stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @mo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2783	2945	
==>CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" )
  {
    $token{syncat} = PGE_OPTABLE_PREFIX;
  }
  elsif ( $syncat eq "postcircumfix" )
  {
    $token{syncat} = PGE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1149	1245	
==>s::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1149	1245	
==>s::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5905	6006	
==>print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5905	6006	
==>print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n" <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	474	585	
==>imes);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %ha <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	474	585	
==>imes);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8212	8315	
==>andler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8212	8315	
==>andler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.cur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7047	7163	
==>ams::Check->last_error ), return;

=pod
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = gre <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5778	5880	
==>gexp_setup ");
    Safefree(r->precomp);
    r->prelen = SvLEN(pat);
    if(r->prelen <0){ fprintf(stde <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38993	39090	
==>eating a new escape sequence, like '\y', your handler will
receive an additional argument which te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11028	11177	
==>$queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<en <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11028	11177	
==>$queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<en <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	14	111	
==>ipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	14	111	
==>ipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	875	1004	
==>rk
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	875	1004	
==>rk
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1585	1713	
==>ents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1585	1713	
==>ents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl:: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10048	10200	
==>, don't quote
    # it if it's already quoted.
    for ( @derived_switches ) {
        $_ = qq["$_"] if ((/\s/ || $self->{_is_vms}) && !/^".*"$/ );
    } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1143	1279	
==>e x>
#     Such usage is tagged with #lookahead
#     If rules taking arguments had any hope of working soon,
#     I would have said <!l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22879	22969	
==>tta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22879	22969	
==>tta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<Th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16462	16564	
==>()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16462	16564	
==>()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	528	661	
==>d as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	528	661	
==>d as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13484	13633	
==>user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13484	13633	
==>user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_perso <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21390	21497	
==>har_type(C,space)), C \= 11.
class_member(class_pos(word)      ,C) :- !,    char_type(C,csym).
class_member( <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2439	2544	
==>dd_subscription("foo", ...) then "foo" is the name of the subscription
        method add_subscription (St <==
2	/Users/nnunley/pugs/util/testgraph.pl	668	767	
==>mp($data));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	946	1074	
==>::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	946	1074	
==>::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	514	619	
==>= $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acycli <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	514	619	
==>= $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acycli <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1131	1266	
==>($string) returns Bool is builtin is primitive is unsafe {
        # say "e:string"; # XXX delme
        # so, why do these two not actu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5350	5467	
==>mess = "$e at $?CALLER::POSITION";

        #while Control::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	377	484	
==>etoken?)
    is exported(:all) {
  ## XXX - slurpy magic doesn't work too well presently ...
  $maketoken := <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22552	22676	
==>and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation::Example is like a Set th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1532	1623	
==>)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1797	1921	
==>f ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request.u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1797	1921	
==>f ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request.u <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7971	8071	
==>$.complement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7971	8071	
==>$.complement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.compleme <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9328	9434	
==>".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util::Ha <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	367	505	
==>st_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '( <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	367	505	
==>st_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4680	4797	
==>or("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DES <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4680	4797	
==>or("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DES <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8218	8318	
==>nts to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let's n <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8218	8318	
==>nts to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let's n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26274	26392	
==>ng, and each variable value can be anything at
all.  Note that while the Hash itself is copied on input and output, any <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26274	26392	
==>ng, and each variable value can be anything at
all.  Note that while the Hash itself is copied on input and output, any <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39529	39624	
==>)
    )
);

## ----------------------------------------------------------------------------
## n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45007	45102	
==>)
    )
);

## ----------------------------------------------------------------------------
## n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15697	15812	
==>,
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19174	19289	
==>,
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2048	2173	
==>.
        "    push \@grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub n <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1713	1816	
==>nd exits.
  --help
    Show this help.

Options may be abbreviated to uniqueness.
USAGE

# Nice debuggin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8658	8849	
==>2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12135	12326	
==>2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27857	27956	
==>tribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27857	27956	
==>tribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8732	8839	
==>chObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  end_2:
  $matchObjPos = -1;
  re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6966	7076	
==>pan-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6966	7076	
==>pan-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :dens <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3276	3399	
==>ment <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3276	3399	
==>ment <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9825	9929	
==>d.

Rosetta::Model's input validation is performed over 2 main phases, which
are referred to as "immediat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9825	9929	
==>d.

Rosetta::Model's input validation is performed over 2 main phases, which
are referred to as "immediat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4484	4581	
==>ethod.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4734	4831	
==>ethod.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12605	12705	
==>e is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12605	12705	
==>e is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6488	6609	
==>self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 26 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6488	6609	
==>self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 26 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7686	7783	
==>ch_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7425	7519	
==>ch_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a str <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7063	7163	
==>nsert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I thin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7063	7163	
==>nsert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I thin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32352	32532	
==>> method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33007	33187	
==>> method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5300	5410	
==>("Last-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added as a t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5300	5410	
==>("Last-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added as a t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5248	5427	
==>$e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$curre <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7010	7189	
==>$e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$curre <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	152	269	
==>Scalar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Container:: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1445	1558	
==>grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge";
my $parrot_pat <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24198	24289	
==>T1).

initialE(amat([],flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_G),C0).
match_ca <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	333	437	
==>is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	333	437	
==>is incomplete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8849	8943	
==>(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2674	2768	
==>(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3842	3953	
==>compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4059	4170	
==>compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8318	8455	
==>ype', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8318	8455	
==>ype', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7015	7132	
==>rime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oli <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7015	7132	
==>rime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oli <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18518	18622	
==>uture, but for now it officially is not and you should not share
Rosetta objects between multiple threads <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18518	18622	
==>uture, but for now it officially is not and you should not share
Rosetta objects between multiple threads <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2675	2786	
==>int "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use war <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2675	2786	
==>int "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use war <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6241	6399	
==>t => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	933	1039	
==>ry 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subrouti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	933	1039	
==>ry 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subrouti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17683	17811	
==>ad1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "bl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17683	17811	
==>ad1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "bl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1400	1505	
==>circumfix:( )", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken("<commit>", "term:", "nows", " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7675	7776	
==>->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	101	202	
==>ther scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use w <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	101	202	
==>ther scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1653	1769	
==>cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1653	1769	
==>cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3124	3224	
==>er, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3014	3110	
==>er, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so lib <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2149	2270	
==>code(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_} <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2149	2270	
==>code(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6364	6488	
==>";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6364	6488	
==>";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11134	11257	
==>cv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11134	11257	
==>cv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we can
    # autoping the se <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9262	9408	
==>height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9262	9408	
==>height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5756	5916	
==>off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4256	4416	
==>off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2626	2758	
==>-initrd-mnt.

Note: I only tested this program on Linux, but it should work on other *nix
      systems, too. For now, I made the scr <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19179	19287	
==>,
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator::nullary->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1421	1566	
==>" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1409	1554	
==>" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_l <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5410	5503	
==>Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5468	5561	
==>Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18457	18573	
==>Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18457	18573	
==>Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15600	15702	
==>'max' attributes of
other objects themselves.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11540	11638	
==>) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::tai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13771	13957	
==>e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user fo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13771	13957	
==>e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user fo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4822	4924	
==>t;

	push @{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	492	602	
==>NS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	550	660	
==>NS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17778	18026	
==>=> 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41046	41291	
==>=> 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7332	7464	
==>il} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7332	7464	
==>il} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3135	3250	
==>es the resulting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3135	3250	
==>es the resulting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2487	2653	
==>",
							type => [$from => $to],
						),
					),
				),	
			),
			(ref $node)->new(
				%$node,
				orig => Blondie::Val->new($node->orig),
			),
		),
		orig => $nod <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12227	12350	
==>0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp("p6_a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1697	1800	
==>ds, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1755	1858	
==>ds, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4615	4784	
==>nd;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5079	5248	
==>nd;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1127	1270	
==>($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1127	1270	
==>($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7237	7369	
==>ng_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7225	7357	
==>ng_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12047	12164	
==>or
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12047	12164	
==>or
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2972	3077	
==>->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]> <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2972	3077	
==>->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	54	305	
==>ackages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant val <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	54	305	
==>ackages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant val <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5791	5902	
==>h;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5791	5902	
==>h;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7843	7950	
==>ar;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7843	7950	
==>ar;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($k <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	537	648	
==>");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selective <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	537	648	
==>");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selective <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2417	2528	
==>* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=item * L<Pugs::Em <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2328	2422	
==>* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29200	29313	
==>hat they are
named.

The handle 'atom' is pre-consumptive (because there is no 'ato' handle,
basically).  In order <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1539	1676	
==>ybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1455	1569	
==>ybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10311	10425	
==>rr_closure
    $S0 = substr target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	924	1019	
==>ol => \\$bool, match => \\@match, named => {}, capture => \\undef,
  }, 'Pugs::Runtime::Match:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5177	5312	
==>()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &cont <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5177	5312	
==>()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &cont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1650	1755	
==>ders) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1650	1755	
==>ders) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2109	2229	
==>t know to make a literal out of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14226	14325	
==>:00.0]

It would not make sense to iterate through a continuous span, because the "separation" 
betw <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14226	14325	
==>:00.0]

It would not make sense to iterate through a continuous span, because the "separation" 
betw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3202	3303	
==>source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3419	3520	
==>source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10684	10801	
==>dler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10289	10406	
==>dler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	865	986	
==>e;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	865	986	
==>e;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.la <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2273	2417	
==>d( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %pa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2273	2417	
==>d( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %pa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2784	2906	
==>arameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array r <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2784	2906	
==>arameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array r <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1870	1972	
==>)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have two cal <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1870	1972	
==>)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have two cal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12530	12857	
==>Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12530	12857	
==>Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::K <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	875	986	
==><equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6986	7183	
==>$r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10463	10660	
==>$r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $oth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	872	1011	
==>bject(exact => "\a", '\a');
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1566	1686	
==>ist equiv...\n";
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -tz <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3982	4073	
==>(@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3982	4073	
==>(@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25700	25801	
==>e match.
 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #defin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22500	22608	
==>a
condition, often it will also provide some variable values to be
interpolated into the user strings; Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22500	22608	
==>a
condition, often it will also provide some variable values to be
interpolated into the user strings; Locale <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	450	584	
==>= 'install';
    }
    else {
        # If this is merely a copy, tell the user to "make register".
        $prompt_register = 1;
    } <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1394	1572	
==>ispatch (Str $event, *@args) {
        given $event {
            when "say_hello" {
                return "Hello, @args[0]!";
            }

            ...;
        }
    }
  } <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6518	6645	
==>ted_p6 = map {;($_ => 1)},
        <i ignorecase s sigspace g global  stringify>;
        %modifiers_supported_p5 = map {;($_ => <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1109	1210	
==>smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6875	7020	
==>tch

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6649	6785	
==>tch
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	462	616	
==>ebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	462	616	
==>ebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 + <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2512	2627	
==>ause we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2429	2541	
==>ause we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6454	6583	
==>.. func.(...
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { return $/{'Pugs::Grammar::Term.sub_call'}->() <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2624	2777	
==>e{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(gr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1046	1165	
==>->{var}, 0, 1),
	       name          => substr($param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_opt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3127	3328	
==>(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3138	3339	
==>(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12233	12360	
==>r $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12233	12360	
==>r $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line      => $line, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1381	1515	
==>lf  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(' ', grep l <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	719	850	
==>lf = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3975	4069	
==>$self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3975	4069	
==>$self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_un <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	931	1084	
==>qq[tar -f $my_tmp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11188	11299	
==>return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11188	11299	
==>return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28462	28578	
==>is also defined as the implicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28462	28578	
==>is also defined as the implicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

L <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	509	602	
==>lised processing instructions may sub-class this module or
provide special behaviour when a pr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	509	602	
==>lised processing instructions may sub-class this module or
provide special behaviour when a pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	812	908	
==>ss Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	812	908	
==>ss Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8638	8758	
==>fined $class) {
	    $class = $params->[0]{'type'};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	440	547	
==>elf, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $mod;
	$pk <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	927	1042	
==>ite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	927	1042	
==>ite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22997	23100	
==>ackage Perl6::Run::OnPerl5::X1::Api::Exception::Return;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23643	23778	
==>ub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20064	20199	
==>ub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19408	19517	
==>mentExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <Variabl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3391	3590	
==>xtract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14737	14832	
==>rse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10967	11067	
==>s C<undef> will be returned.

A multi-valued field will be returned as separate values in list
contex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10967	11067	
==>s C<undef> will be returned.

A multi-valued field will be returned as separate values in list
contex <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2061	2213	
==>d =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2061	2213	
==>d =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9847	9978	
==>ame, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9847	9978	
==>ame, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29873	29972	
==>ule is very simple, consisting mainly of a data-stuffed hash
and an accessor method to read values f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29873	29972	
==>ule is very simple, consisting mainly of a data-stuffed hash
and an accessor method to read values f <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	747	848	
==>rce> property, and adds C<content>,
which is the whitespace to be represented in the normative XML.

= <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	747	848	
==>rce> property, and adds C<content>,
which is the whitespace to be represented in the normative XML.

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13000	13109	
==>$result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13000	13109	
==>$result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $clas <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	51	161	
==>ript-on-p6 runtime.
It seems likely there will be more than one.

Design goals:
 1 Correctness - mirror the spe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16341	16440	
==>>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16399	16498	
==>>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4862	4972	
==>$decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4862	4972	
==>$decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1260	1485	
==>::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1387	1612	
==>::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 , <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11634	11738	
==>}) {
	# so we don't try to put literal newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7901	8082	
==>c_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11378	11559	
==>c_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5373	5519	
==>reword} =~ /^v5/ ) {
                return "warn 'use v5 - not implemented'";
            }
            if ( $n->{param}{sub}{bareword} eq 'v6' <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1693	1805	
==>inux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = "splashscreen.txt";
my $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1477	1619	
==>ge Sym;
    use base 'Unit';

    package Param;
    use base 'Unit';

    package App;
    use base 'Node';

    package Val;
    use base 'Un <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8779	8883	
==>ral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16073	16172	
==>n. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always ch <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16073	16172	
==>n. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	368	507	
==>eset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	368	507	
==>eset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	527	724	
==>'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	412	519	
==>:pugs
	    $Perl6::Run::OnPerl5::X1::BB::pugs_args);
BEGIN{
GetOptions(
    'version'   => sub{ print "--ver <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18953	19067	
==>ntExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%=' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1809	1907	
==>b::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::Bzip2::memBunzi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7781	7946	
==>\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe   (List, Code)\
\\n   List <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2126	2233	
==>line
2nd line
3rd line
4th line
GROK

my $file12 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6t <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3247	3362	
==>=> 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3247	3362	
==>=> 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6039	6136	
==>ct>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6039	6136	
==>ct>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19748	19849	
==>. %\n
rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7391	7501	
==>et val means module doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7391	7501	
==>et val means module doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_mod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1430	1527	
==>tography are there.  See those modules for details.

The C<new> constructor takes only one option, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1430	1527	
==>tography are there.  See those modules for details.

The C<new> constructor takes only one option, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2058	2159	
==>other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', ass <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2058	2159	
==>other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32068	32172	
==>assertions
and C<(?:...)>).

=item omit

Whether this object is omitted from the actual tree (like a CLOS <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1086	1221	
==>Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1086	1221	
==>Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	304	428	
==>$_) && $_->isa('type'))
        || confess "You must store a native type in a list"
            foreach @values;
    bless \@ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28473	28578	
==>efine RX_MATCH_UTF8(prog)		((prog)->reganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_on(prog)		((prog)->r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1579	1700	
==>n;
    my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $self->config->_f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2841	2988	
==>ll chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3025	3172	
==>ll chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4084	4208	
==>() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4142	4266	
==>() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	392	500	
==>& defined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

package Pugs::Runt <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19484	19590	
==>and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24036	24142	
==>and use of this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2378	2510	
==>known.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22564	22659	
==>e that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22564	22659	
==>e that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newni <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	139	249	
==>$.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	139	249	
==>$.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17543	17658	
==>er>.  You pass it the min and max,
and the object's C<type> is determined dynamically.

=item Character Class Hashes <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5135	5243	
==>ul or not.

=cut

sub _all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1753	1847	
==>pher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1753	1847	
==>pher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1140	1247	
==>s elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HAS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1140	1247	
==>s elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HAS <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2345	2438	
==>Returns the C<%results> of the test.
See L<Results>.

C<@test_output> should be the raw output <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16321	16422	
==>indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16321	16422	
==>indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14547	14680	
==>dth
      # assertion can match a null string a lot
      elsif ($tree->[-1]->{zerolen} and $self->{max} eq '') {
        $rx->awarn($ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4471	4567	
==>Since the current version of Pugs does not support OO, methods are
implemented as hash keys to co <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4471	4567	
==>Since the current version of Pugs does not support OO, methods are
implemented as hash keys to co <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19487	19597	
==>ma) is builtin is primitive is safe {
    join($comma, map -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Has <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2890	3014	
==>lan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2890	3014	
==>lan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'A <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20937	21081	
==>'DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43861	44005	
==>'DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17400	17530	
==>ing );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            fo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20877	21007	
==>ing );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            fo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3079	3185	
==>my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot fin <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3079	3185	
==>my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot fin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7564	7788	
==>ex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7564	7788	
==>ex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	826	949	
==>self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_thunk {
    my $self <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4695	4794	
==>d-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mnt in order to copy files to it.
  - <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4235	4334	
==>=cut$}{"\n" x ($1 =~ y/\n//)}mesg;
}

sub precomp {
    print STDERR "Generating precompiled Prelude <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	878	1024	
==>ional arrays of the match
                     object, telling captures where in the deep structure
                     to store what they've capt <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	878	1024	
==>ional arrays of the match
                     object, telling captures where in the deep structure
                     to store what they've capt <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8299	8530	
==>> $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $cou <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8299	8530	
==>> $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $cou <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17298	17399	
==>e following benefits:

=over

=item *

Ability to mix many source filterish modules in a much more san <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17298	17399	
==>e following benefits:

=over

=item *

Ability to mix many source filterish modules in a much more san <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4023	4119	
==>class, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_precen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5925	6021	
==>class, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_precen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5556	5678	
==>e');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return value');

## make subclasses

my $Bar = $Class->new( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	80	189	
==>oconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	80	189	
==>oconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2199	2319	
==>5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2416	2536	
==>5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn " <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26900	27000	
==>!) returns Relation>

This method is the same as C<project> but that the returned Relation has
the co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31452	31552	
==>!) returns Relation>

This method is the same as C<project> but that the returned Relation has
the co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13126	13250	
==>efix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not imp <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3025	3134	
==>});
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV{PE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32586	32681	
==>s
main purpose is to convert Message objects on demand into user-readable
message strings, using <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32586	32681	
==>s
main purpose is to convert Message objects on demand into user-readable
message strings, using <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3818	3954	
==>s');
            my $status          = $::SELF->$status_sub();
            $status->{"reason"} = _('$.reason');
            return $statu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6028	6134	
==>ments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_sibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6028	6134	
==>ments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_sibli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14514	14620	
==>hat does getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3474	3570	
==>Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or mod <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3474	3570	
==>Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5837	5950	
==>t );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5837	5950	
==>t );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20276	20371	
==>Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20276	20371	
==>Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header fi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6172	6307	
==>r ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6172	6307	
==>r ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3686	3875	
==>get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get('$current') <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	206	310	
==>::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	206	310	
==>::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6874	6986	
==>mentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6640	6747	
==>mentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4549	4738	
==>mes );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4549	4738	
==>mes );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_has <==
2	/Users/nnunley/pugs/util/package-osx.pl	667	790	
==>bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5406	5539	
==>$grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5406	5539	
==>$grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'st <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2659	2781	
==>rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2659	2781	
==>rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1089	1193	
==>e name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1089	1193	
==>e name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22357	22492	
==>?' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18778	18913	
==>?' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13968	14089	
==>people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13968	14089	
==>people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Int <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3293	3400	
==>paque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3995	4094	
==>paque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2064	2166	
==>---
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2064	2166	
==>---
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1503	1610	
==>ly iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1503	1610	
==>ly iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9070	9204	
==>$file);

Formats and returns the switches necessary to run the test.

=cut

sub _switches {
    my($self, $file) = @_;

    my @existin <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6501	6623	
==>DPUGS_HAVE_HSPLUGINS$/, @_;
    my @libs = "-lHSPugs-$version";
    push @libs, grep /^-threaded/, @_;
    push @libs, grep <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	217	323	
==>ss {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6796	6944	
==>DO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Per <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6796	6944	
==>DO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Per <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16676	16776	
==>::<$_> --> Str )

Returns the input string after converting each character to it's lowercase
form, if <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13040	13136	
==>ule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpress <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8811	8917	
==>ion.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8811	8917	
==>ion.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	154	266	
==>al "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::cur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	154	266	
==>al "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::cur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	746	874	
==>horized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	746	874	
==>horized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not A <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2545	2767	
==>!($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.re <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2545	2767	
==>!($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3345	3443	
==>s that the nonce or initialization vector should be hashed with the 
key, not merely appended to it <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3345	3443	
==>s that the nonce or initialization vector should be hashed with the 
key, not merely appended to it <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9546	9664	
==>eed not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.heig <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9546	9664	
==>eed not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.heig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20038	20174	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20317	20453	
==>rammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3735	3828	
==>on( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3735	3828	
==>on( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3960	4066	
==>group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3960	4066	
==>group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20003	20120	
==>spatches the code blocks
to the compilers. It does so in a most specific to most general order.
So inner blocks get co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20003	20120	
==>spatches the code blocks
to the compilers. It does so in a most specific to most general order.
So inner blocks get co <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12236	12328	
==>Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12236	12328	
==>Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17764	17856	
==>runtime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17764	17856	
==>runtime penalty after compilation, because C<perl> has
already been doing the C<.pmc> check o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16300	16409	
==>nt-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16300	16409	
==>nt-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4002	4123	
==>int $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4002	4123	
==>int $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When use <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	650	779	
==>the dependency declaration from the META.info.
It will turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19776	19871	
==>t or set an authorization header that use the
"Basic Authentication Scheme".  In array context i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19776	19871	
==>t or set an authorization header that use the
"Basic Authentication Scheme".  In array context i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2843	2971	
==>apper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2843	2971	
==>apper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enq <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2525	2721	
==>t')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_test_number(),
                    '$.reason'      =>  $reason,
                    '$.descript <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	79	175	
==>efix:<=>()

# der "reduce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# (1,2,3).pref <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	922	1025	
==>rn $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: ni <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	910	1013	
==>rn $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: ni <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3990	4176	
==>ository");
        return;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta,
                    file        => $pkg->file,
                    repo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21367	21492	
==>-> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.yml";
      if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	638	745	
==>ME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie::Prelude::Control;

=head1 DESCRIPTION

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4971	5107	
==>h->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4971	5107	
==>h->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4776	4883	
==>quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AU <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4776	4883	
==>quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AU <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13731	13878	
==>xo;

            $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = ' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5871	5968	
==>aram(links => $total_links);
print $fh $template->output();
close $fh;

# Generating design doc in <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6434	6550	
==>stance calling metaclass method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33694	33791	
==>amily: space

Types: space (C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 digit

Family: digit <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	651	765	
==>code from lib.pm because I am hoping that perl6
# and the new module functionality will not need it. Althoug this m <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	651	765	
==>code from lib.pm because I am hoping that perl6
# and the new module functionality will not need it. Althoug this m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4719	4824	
==>s_optional {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4689	4791	
==>=pod

=head1 NAME

list - the core list type

=head1 METHODS

=over 4

=item B<new (@x of ~type) return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1707	1826	
==>ub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	warn "compiled: $compiled";
	my $safe = $sel <==
2	/Users/nnunley/pugs/util/importgraph.pl	786	901	
==>e \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = defined $2;
    } elsif (/^import \s+ (quali <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	804	910	
==>$$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_hash'} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31768	31866	
==>ent user is fluent in (and prefers) language A but also understands
language B.  Later on, if for e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31768	31866	
==>ent user is fluent in (and prefers) language A but also understands
language B.  Later on, if for e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6114	6227	
==>array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$si <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6504	6617	
==>array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$si <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1411	1546	
==>This module provides an implementation for Perl 6 regexes that use the "Perl5" switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	278	379	
==>ass.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	278	379	
==>ass.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14392	14495	
==>r_here><'--'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete'> <Un <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3998	4109	
==>s.

The array of spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- univ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3998	4109	
==>s.

The array of spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- univ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8400	8577	
==>key};
                # XXX - need to wrap $k?
            }
            $A.property_value{$P} = $Result12;
            return;
        }
        # 5
        $A.property_value($P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	658	805	
==>atch; $_[1]; \\\@match },
        } }";
}

sub null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	325	481	
==>e');
	
	require Config;
	return unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2612	2711	
==>uce(" . (ref($node) ? $node : qprintable($node)) .") = $res (type = " . $self->display_type($res->ty <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10834	11045	
==>values
                             --> List )

 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )

Returns C<@va <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27128	27223	
==>s named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31680	31775	
==>s named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

Thi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2893	3012	
==>ies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3357	3476	
==>ies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	37	161	
==>.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @curre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	37	161	
==>.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @curre <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	53	178	
==>as Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	53	178	
==>as Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1243	1414	
==>tion,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            pass <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1243	1414	
==>tion,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            pass <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2155	2294	
==>t depends: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$depends-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3520	3651	
==>t depends: lines and objectified dependencies
                ### for better diagnostics
                die "Dependency '$depends-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11097	11222	
==>$id>' ),\n" .
                "        \\&Grammar::Perl6::ws_star,\n" .
                Runtime::Perl5::RuleOps::emit_rule( $r <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11615	11722	
==>my $node = shift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	956	1165	
==>,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today| <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	956	1165	
==>,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today| <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3024	3391	
==>m');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<st <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3024	3391	
==>m');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	217	329	
==>his file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	217	329	
==>his file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[< <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	488	598	
==>$a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathema <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	488	598	
==>$a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathema <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34317	34414	
==>eturns a new Locale::KeyedText::Translator object.
The Set Names property of the new object is set <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34317	34414	
==>eturns a new Locale::KeyedText::Translator object.
The Set Names property of the new object is set <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14726	14836	
==>ile: $@" ), return;

    return 1;
}

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inden <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7776	7919	
==>r)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18631	18732	
==>these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines be <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18631	18732	
==>these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines be <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14733	14852	
==>target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14733	14852	
==>target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1954	2065	
==>lue for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_V <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1954	2065	
==>lue for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_V <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2409	2504	
==>$self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16016	16110	
==>$self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$symbol <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19284	19381	
==>($code,wantarray);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_the_lines <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1644	1736	
==>l($$) = { 0 }
type::operator::binary: level($.left) = { level($$) + 1 }
type::operator::binar <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3545	3649	
==>th (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3545	3649	
==>th (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2877	3050	
==>) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2877	3050	
==>) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2857	2958	
==>E_OPTABLE_PREFIX;
  }
  elsif ( $syncat eq "postcircumfix" )
  {
    $token{syncat} = PGE_OPTABLE_POST <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	823	932	
==>de, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

su <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	823	932	
==>de, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7669	7788	
==>8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7669	7788	
==>8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1744	1848	
==>one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1744	1848	
==>one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	3	104	
==>usr/bin/perl

package Blondie::ADTs;

use strict;
use warnings;

{
	package Blondie::Unit;

	sub new { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9644	9770	
==>7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $co <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9644	9770	
==>7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21962	22078	
==>lags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18383	18499	
==>lags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33231	33337	
==>in the order
they appear in this array until a match for that message is found.  Since a
program or library <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33231	33337	
==>in the order
they appear in this array until a match for that message is found.  Since a
program or library <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6294	6475	
==>$test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2481	2658	
==>" .
            "use Pugs::Compiler::Regex;\n" .
            "use base 'Pugs::Grammar::Base';\n" .
            "use Pugs::Runtime::Match::Ratchet; # overload doesn't work without <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3439	3564	
==>x == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3439	3564	
==>x == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	917	1050	
==>fixity => 'circumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	726	839	
==>nstead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3948	4070	
==>f->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1255	1377	
==>f->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2659	2764	
==>eturns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least un <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2659	2764	
==>eturns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least un <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25099	25200	
==>le> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29651	29752	
==>le> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This me <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20099	20195	
==>So inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that its <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20099	20195	
==>So inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that its <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	388	498	
==>s --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	388	498	
==>s --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2590	2688	
==>if the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just proces <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2590	2688	
==>if the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just proces <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4631	4747	
==>pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous test num <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9024	9130	
==>d under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9024	9130	
==>d under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering decipher <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1370	1563	
==>tatus dir like dpkg
            system( qq[tar -f $my_tmp_dir/$Control -C $meta_dir -xz] )
                                                            and die $?;
            print "Writing .pac <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7615	7728	
==>ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementation of this method is pr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7615	7728	
==>ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementation of this method is pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26857	26951	
==>e "Message Variables" attribute if the corresponding argument is
provided (it defaults to empty <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26857	26951	
==>e "Message Variables" attribute if the corresponding argument is
provided (it defaults to empty <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	858	982	
==>:Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	858	982	
==>:Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($fiel <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15379	15517	
==>= index target, ">", pos
    if $I0 < pos goto err_close
  name_1:
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = esca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	321	581	
==>nt values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	321	581	
==>nt values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External p <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	374	480	
==>g = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ { <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	374	480	
==>g = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13086	13233	
==>length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13086	13233	
==>length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _pr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	242	350	
==>is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SE <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	242	350	
==>is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SE <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5053	5157	
==>the C<Config::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5053	5157	
==>the C<Config::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a confi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	418	537	
==>itpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	418	537	
==>itpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21263	21353	
==>>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21263	21353	
==>>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2131	2245	
==>:List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", strin <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2131	2245	
==>:List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", strin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	887	1077	
==>b evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buff <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3144	3317	
==>x below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # D <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3144	3317	
==>x below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # D <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1201	1330	
==>unks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13727	13850	
==>unks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10873	10976	
==>$S->nextchar;

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12401	12514	
==>s.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12401	12514	
==>s.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10831	10933	
==>et;

  $set += (1,2,3,4);

Note that in this instance, the information about how many members
were actu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10831	10933	
==>et;

  $set += (1,2,3,4);

Note that in this instance, the information about how many members
were actu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14727	14847	
==>al; they do not interact with the outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14727	14847	
==>al; they do not interact with the outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!doc <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1408	1537	
==>$path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1408	1537	
==>$path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5860	5954	
==>------------------------------------
## sibling methods

method get_sibling ($self: Int $index) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5860	5954	
==>------------------------------------
## sibling methods

method get_sibling ($self: Int $index) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16046	16141	
==>that
lives in the Document object given in the named parameter $document, and
whose Node Type at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16046	16141	
==>that
lives in the Document object given in the named parameter $document, and
whose Node Type at <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	902	1022	
==>f($args{pause}) {
      printf STDERR "\b\b\b\b\b   %s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5287	5416	
==>ip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5345	5474	
==>ip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2277	2403	
==>mall a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2277	2403	
==>mall a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä', <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4281	4385	
==>led/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4281	4385	
==>led/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($reques <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13438	13549	
==>gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13438	13549	
==>gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	778	887	
==>ker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	679	788	
==>ker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	500	603	
==>wfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	541	635	
==>ed modules in a second pass.

Primary configuration settings are read from the file `config.yml <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9513	9645	
==>p @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    if ($d) {
      my $br = $self->{rx}->object($self->type) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2425	2543	
==>s {
    my $self = shift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	169	318	
==>:Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	169	318	
==>:Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12694	12837	
==>l::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12694	12837	
==>l::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attribute <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5198	5312	
==>brule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5391	5505	
==>brule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18151	18273	
==>defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18151	18273	
==>defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler> <==
2	/Users/nnunley/pugs/util/config_h.pl	1765	1944	
==>lose TMP;
        system(
            $ghc, @ghc_args,
            "--make", "-v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12710	12814	
==><']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | <ElementLis <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31870	31969	
==>i-method is a generic binary relational operator that takes a single
Relation in its C<$other> argum <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36420	36519	
==>i-method is a generic binary relational operator that takes a single
Relation in its C<$other> argum <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15097	15205	
==>nd
  numeric:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I1 = $I0 - pos
    cname <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5096	5221	
==>ubstr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5096	5221	
==>ubstr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->ne <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1162	1295	
==>>new(&$f($self->val));
    }

    package Thunk;
    use base 'Unit';

    sub digest {
        my $self = shift;
        Digest->comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	946	1050	
==>\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1083	1187	
==>\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18146	18312	
==>l);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14567	14733	
==>l);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2603	2708	
==>object, not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not clear
that <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2603	2708	
==>object, not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not clear
that <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18494	18592	
==>s by having a human being write out
that text themselves.

What Locale::KeyedText does is associate <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18494	18592	
==>s by having a human being write out
that text themselves.

What Locale::KeyedText does is associate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4528	4642	
==>des? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4528	4642	
==>des? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25073	25227	
==>rom the current position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2949	3054	
==>,

And also place the value 1 on the parameter stack.

Inherits List.

=item Sym

Resolves a symbol into a <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	511	641	
==>$fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	511	641	
==>$fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9678	9778	
==>TTP::Response> classes, internal to the
library.

The following methods are available:

=over 4

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9678	9778	
==>TTP::Response> classes, internal to the
library.

The following methods are available:

=over 4

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14882	14981	
==>od invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14882	14981	
==>od invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5158	5382	
==>ifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</COD <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5158	5382	
==>ifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</COD <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4676	4825	
==>turn;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $node = shift;
    sub {
        my $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16717	16840	
==>xpects an int and will emit an int
# add (int -> int -> int) is resolved using val(10) into int -> int
# x is inferred to be <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	621	715	
==>e implementation of all the things the
language must provide, including stuff for what cannot h <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4248	4387	
==>XX Not medium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid inf <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4248	4387	
==>XX Not medium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid inf <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30676	30794	
==>e know for
sure is, that it was inspired by Larry Wall's TEST script that came
with perl distributions for ages. Numero <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	225	332	
==>exer::import { }

## XXX - is exported doesn't support args atm

## Chapter 8 section 1.3

sub tokens(Code * <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2411	2519	
==>->author_from($file)   unless $self->author;
    $self->license_from($file)  unless $self->license;
    $self <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7037	7226	
==>ent_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7037	7226	
==>ent_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10356	10470	
==>$self:) returns list { 
    %:methods.keys;
}

(method get_method_list ((opaque $self:)) returns list
    ((($self: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6385	6496	
==>tal->{max} > 0 >>, you've
got a successful test.

$failed is a hash ref of all the test scripts which failed.  E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4825	5010	
==>ber_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4825	5010	
==>ber_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	456	590	
==>ey => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	456	590	
==>ey => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	407	505	
==>:offset(0) :length(1));

 multi sub Array::shift () returns Scalar {
   Array::shift @CALLER::_;
 } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18054	18146	
==>[:cntrl:]> or C<\p{Print}>.

=item Character Class Rendering

The visual() method of I<anyof> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6929	7072	
==>\$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6917	7060	
==>\$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1748	1838	
==>ialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2927	3024	
==>e, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2927	3024	
==>e, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, sp <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	451	556	
==>mpfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	451	556	
==>mpfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6911	7039	
==>be, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7375	7503	
==>be, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4305	4444	
==>start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    els <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4305	4444	
==>start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    els <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	991	1115	
==>ng;


 multi  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate (  Num <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7769	7897	
==>mpty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7769	7897	
==>mpty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => c <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	64	198	
==>so8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) - <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2392	2663	
==>xport symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Re <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3725	3875	
==>{
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3725	3875	
==>{
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2800	2915	
==>3\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2800	2915	
==>3\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3671	3771	
==>if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3671	3771	
==>if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	890	1044	
==>/^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	855	1001	
==>/^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1870	1994	
==>erences
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1870	1994	
==>erences
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8136	8251	
==>re_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8329	8444	
==>re_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5205	5430	
==>so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5205	5430	
==>so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4669	4770	
==>&project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8146	8247	
==>&project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2795	2910	
==>value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhos <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2795	2910	
==>value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhos <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6133	6315	
==>"Could not create subdir to copy to" );
                return;
            }                
        }        
        
        ### strip the leading dirs from the target so we don't <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4968	5072	
==>rn (undef,"emit: pil_tree was undefined") if !defined $pil_tree;
    use Data::Dumper;
    PIL::PIL1CPerl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1569	1662	
==>Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1569	1662	
==>Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8506	8631	
==>next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8506	8631	
==>next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20431	20545	
==>l displays a list of all the languages your programs do or
might have, and lets you arrange the list in order of pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20431	20545	
==>l displays a list of all the languages your programs do or
might have, and lets you arrange the list in order of pr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2341	2437	
==>self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subs <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2341	2437	
==>self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subs <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7857	7964	
==>: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7857	7964	
==>: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7289	7408	
==>hr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7289	7408	
==>hr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1320	1423	
==>name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1320	1423	
==>name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6081	6198	
==>) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6069	6186	
==>) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23279	23403	
==>self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19700	19824	
==>self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	560	683	
==>const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	560	683	
==>const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	566	654	
==>ar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	566	654	
==>ar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail}) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3841	3938	
==>e strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other stri <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3841	3938	
==>e strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other stri <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1167	1389	
==>n rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1167	1389	
==>n rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6464	6580	
==>}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method p <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6464	6580	
==>}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method p <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3452	3567	
==>t_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3452	3567	
==>t_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5650	5780	
==>$boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5650	5780	
==>$boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1608	1701	
==>blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1608	1701	
==>blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17680	17780	
==>ered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17680	17780	
==>ered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty a <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1127	1220	
==>aven't been selected won't be printed.  It is designed for so-called 
"print-based debugging", <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1127	1220	
==>aven't been selected won't be printed.  It is designed for so-called 
"print-based debugging", <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5386	5482	
==>s automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be sit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5386	5482	
==>s automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be sit <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11351	11466	
==><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_loop name=categories>
        <tr><th co <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3705	3807	
==>ethod infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi metho <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1805	1907	
==>ethod infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17487	17582	
==>utomatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17487	17582	
==>utomatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18937	19038	
==>edit Perl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18937	19038	
==>edit Perl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	671	769	
==>]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8097	8190	
==>r = $FooBar->new();    
ok($iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6315	6441	
==>^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6315	6441	
==>^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21226	21317	
==>d.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21226	21317	
==>d.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28014	28138	
==>false one.

If the flag handler returns 0, the flag is removed from the resulting
object's visual flag set, so C<(?ig-o)> bec <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1866	1968	
==>urn $self->[2]->fetch($name);
}

sub set_attr {
    my ($self, $name, $value) = @_;
    (blessed($name) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5364	5470	
==>l_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5364	5470	
==>l_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the sourc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1966	2064	
==>rams{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1966	2064	
==>rams{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulatio <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	917	1131	
==>= timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_] <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	917	1131	
==>= timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_] <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3678	3780	
==>_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3678	3780	
==>_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13128	13225	
==>.  All header field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13128	13225	
==>.  All header field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14428	14571	
==>Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ???
            ' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	423	536	
==>lass;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not isa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	88	190	
==>--------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	88	190	
==>--------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!p <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2525	2719	
==>e {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2525	2719	
==>e {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4860	4987	
==>turn '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4860	4987	
==>turn '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1163	1264	
==>st suite to run against all Engines

=head1 VERSION

This document describes Rosetta::Validator versio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1163	1264	
==>st suite to run against all Engines

=head1 VERSION

This document describes Rosetta::Validator versio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1496	1605	
==>$two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these gr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1496	1605	
==>$two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these gr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6858	6966	
==>he C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6858	6966	
==>he C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16173	16282	
==>3 : we want three dots between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32433	32524	
==>ing> value set members do not match invocant
Relation::Example attribute names, or duplicate <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19592	19689	
==>a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a sup <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24144	24241	
==>a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a sup <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2294	2411	
==>\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2294	2411	
==>\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7615	7728	
==>}), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7615	7728	
==>}), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str : <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30383	30483	
==>ually match.  The real closing parenthesis handler
is:

  $self->add_handler('c)' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23230	23318	
==>er>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalParameter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2235	2358	
==>e (my $current = &dispatcher.()) {
        return $current.get_method($label, %opts)
            if $current.has_method($lab <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5487	5657	
==>ce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5487	5657	
==>ce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_membe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	0	113	
==>package Pugs::AST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	0	113	
==>package Pugs::AST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	895	1022	
==>";
    }

    my %DIGEST_CACHE;

    sub digest {
        my $self = shift;
        $DIGEST_CACHE{overload::StrVal($self)} ||= $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	337	441	
==>level modular addition ciphers, including 
rot13, the Caesar cipher (add or subtract values from all lett <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	337	441	
==>level modular addition ciphers, including 
rot13, the Caesar cipher (add or subtract values from all lett <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5692	5873	
==>"get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     }) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7454	7635	
==>"get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     }) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	445	725	
==>\= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment until end-of-line
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4722	4825	
==>ed version
of the result object (usually the entire match string).

=head2 0+

When used as a number, th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4722	4825	
==>ed version
of the result object (usually the entire match string).

=head2 0+

When used as a number, th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3481	3667	
==>et('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$current')
                  ->send('h <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6014	6118	
==>";
  goto token_match;
  bsr_token_match_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$t <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1190	1331	
==>ve all events which are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my $o ( @_ ) {
            for m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1779	1898	
==>sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1027	1135	
==>ering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just the ones 
cor <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1027	1135	
==>ering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just the ones 
cor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2991	3131	
==>pture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2875	3008	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #re <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2030	2127	
==>_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=o <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2030	2127	
==>_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3269	3384	
==>odes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3269	3384	
==>odes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10722	10882	
==>and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r" <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	707	829	
==>splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	707	829	
==>splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14259	14453	
==>p::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14538	14732	
==>p::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	170	271	
==>t we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	170	271	
==>t we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta', <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24734	24830	
==>art and reganch permit very fast decisions on suitable starting points
 * for a match, cutting do <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9198	9315	
==>Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9198	9315	
==>Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handle <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16143	16249	
==>,
	);


	type($.in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	188	290	
==>stants->list( __PACKAGE__ );

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { ref $_[- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5305	5419	
==>users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5305	5419	
==>users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ f <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1244	1349	
==>@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array::pairs  (@array ; MatchTest *@indexte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6263	6486	
==>ext( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6263	6486	
==>ext( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1541	1647	
==>ull_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1541	1647	
==>ull_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30041	30142	
==>y TODO failures

Add a test for verbose.

Change internal list of test results to a hash.

Fix stats d <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2778	2879	
==>B<source($new_source)>

Returns the representation of this node in the original text, or at
least a va <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2778	2879	
==>B<source($new_source)>

Returns the representation of this node in the original text, or at
least a va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28304	28403	
==>de), or it might not exist at all
(for an 'anchor' node).

=item my $e = $obj->ender()

The argument <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	858	961	
==>y $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	858	961	
==>y $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	143	252	
==>l for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	143	252	
==>l for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Du <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7005	7104	
==>e is reached. This does not include 
the text of the header, that will be processed as a interpolate <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7005	7104	
==>e is reached. This does not include 
the text of the header, that will be processed as a interpolate <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7968	8137	
==>ning under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escape <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7968	8137	
==>ning under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escape <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1652	1865	
==>sh () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1652	1865	
==>sh () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4380	4507	
==>& $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4380	4507	
==>& $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9175	9435	
==>array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runtim <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	127	229	
==>offset(-1) :length(1));

multi sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Arr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	501	612	
==>in;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	501	612	
==>in;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4417	4521	
==>riable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key." <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33525	33623	
==>ny

Types: reg_any (C<.>), sany (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: alnum

Ty <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11644	11785	
==>$alt; 
    my @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->package e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4144	4336	
==>s, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4144	4336	
==>s, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	500	619	
==>$caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITL <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	500	619	
==>$caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITL <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4743	4879	
==>$removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4743	4879	
==>$removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1 <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	851	958	
==>self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2686	2784	
==>self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1526	1625	
==>t = $parent;
    $.depth  = $parent.depth() + 1;
}

## --------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1526	1625	
==>t = $parent;
    $.depth  = $parent.depth() + 1;
}

## --------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	282	405	
==>=> q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initializati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	282	405	
==>=> q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initializati <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	112	261	
==>ren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # und als @x speichern
#=andere Hyper-Operatoren
$a = @b + @c;
@a = @b + @c;
@ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3203	3315	
==>{ $.day }
method day_of_month_0 returns Int { $.day - 1 }
method day_0 returns Int { $.day - 1 }
method mday retu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1372	1474	
==>s(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1372	1474	
==>s(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2192	2313	
==>t $other) returns Bool {
    return ($self.size <= $other.size && $other.includes($self.members));
}
method proper_subset( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2192	2313	
==>t $other) returns Bool {
    return ($self.size <= $other.size && $other.includes($self.members));
}
method proper_subset( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6525	6660	
==>+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6525	6660	
==>+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	455	618	
==>ls) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	455	618	
==>ls) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@va <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	914	1030	
==>A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	914	1030	
==>A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5760	5856	
==>:Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straight <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5760	5856	
==>:Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straight <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5230	5330	
==>e} = $self->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp::Parser:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	715	822	
==>::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	715	822	
==>::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::D <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1350	1469	
==>rn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

me <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1350	1469	
==>rn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18584	18699	
==>val_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8472	8576	
==>ct(anyof_char => chr(oct $o), "\\0[$o]");
      }

      return $S->object(exact => join("", map chr(oct) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32152	32252	
==>one, then that is displayed; if not, it then checks
each set's member for language B and displays tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32152	32252	
==>one, then that is displayed; if not, it then checks
each set's member for language B and displays tha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7930	8025	
==>_element ('item')>

This event is fired when an '=item' directive is reached, the next event fir <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7930	8025	
==>_element ('item')>

This event is fired when an '=item' directive is reached, the next event fir <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4523	4636	
==>", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is expo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4581	4694	
==>", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is expo <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1509	1630	
==>d;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1509	1630	
==>d;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	234	343	
==>L $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        sa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	234	343	
==>L $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        sa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5489	5594	
==>returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the F <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5489	5594	
==>returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the F <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7194	7289	
==>red after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7194	7289	
==>red after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	623	756	
==>gex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	720	853	
==>gex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4314	4488	
==>ches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4314	4488	
==>ches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless define <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	385	584	
==>ate,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inje <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	385	584	
==>ate,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inje <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13501	13602	
==>stable are of the code, so this may not be a real problem.
  [It was.  The regexp implementation is in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1204	1304	
==>ram1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1198	1293	
==>ram1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	786	902	
==>> [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	797	913	
==>> [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9940	10035	
==>and a few
other operations.

This class also provides methods for iterating through the set, and <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9940	10035	
==>and a few
other operations.

This class also provides methods for iterating through the set, and <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11499	11596	
==>warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
use Language::Attribut <==
2	/Users/nnunley/pugs/util/importgraph.pl	1565	1676	
==>" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13026	13168	
==>pped   => $tres->{skip},
        failed => ($tres->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6951	7050	
==>prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6951	7050	
==>prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8255	8357	
==>n( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is mo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8255	8357	
==>n( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is mo <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2687	2801	
==>emit_Main( $global, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $tre <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6108	6195	
==>lp_ws;})');
my $x2 = def_stmt_prim('bs_token_decl','\s*token\s+(\w+)\s+{([^}]*)}(?{ &::h <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	547	664	
==>*infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *pre <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	547	664	
==>*infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *pre <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	472	565	
==>mokeserv-client v" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26231	26318	
==>ator::arrow->new(
		type::operator::nary->new(list => $a),
		type::operator::arrow->new( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	391	500	
==>ig->root, $config->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20215	20313	
==>ple as adding a language file to the program package.  No
recompilation necessary.  This is somethi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20215	20313	
==>ple as adding a language file to the program package.  No
recompilation necessary.  This is somethi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	426	530	
==>n provided by dialects should be stored in this
tree as an attribute.  The property C<attr> is used for t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	426	530	
==>n provided by dialects should be stored in this
tree as an attribute.  The property C<attr> is used for t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4441	4537	
==>Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4691	4787	
==>Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20296	20396	
==>head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is current <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20296	20396	
==>head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is current <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	217	322	
==>A::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method fina <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	217	322	
==>A::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method fina <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19735	19832	
==>rization_basic

This method is used to get or set an authorization header that use the
"Basic Auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19735	19832	
==>rization_basic

This method is used to get or set an authorization header that use the
"Basic Auth <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3295	3413	
==>ent_next, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3295	3413	
==>ent_next, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2273	2412	
==>offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5, <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2273	2412	
==>offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10381	10494	
==>MPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10381	10494	
==>MPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5119	5228	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5312	5421	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	937	1046	
==>ject ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTim <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	937	1046	
==>ject ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12454	12556	
==>nt object's All Nodes
attribute starts out empty, but gains one element for each Node in the Node
hiera <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12454	12556	
==>nt object's All Nodes
attribute starts out empty, but gains one element for each Node in the Node
hiera <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4775	4872	
==>@array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.as <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	304	399	
==>@array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Array>.as <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11615	11746	
==>p;<tmpl_var name=pugs_version></td>
            <td>
              <tmpl_if name=pugs_revision>
                r<tmpl_var name=pugs <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1128	1223	
==>type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1128	1223	
==>type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16086	16184	
==>component may raise such a condition, and one
application may handle it internally, while another o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16086	16184	
==>component may raise such a condition, and one
application may handle it internally, while another o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	773	866	
==>l("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combina <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	773	866	
==>l("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combina <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5466	5602	
==>source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5466	5602	
==>source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6353	6457	
==>st' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6353	6457	
==>st' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtI <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5234	5338	
==>The get() function will fetch the document identified by the given URL
and return it.  It returns C<undef <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5234	5338	
==>The get() function will fetch the document identified by the given URL
and return it.  It returns C<undef <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19304	19413	
==>ature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definition statements are str <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19304	19413	
==>ature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definition statements are str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5794	5895	
==>ce_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5873	5974	
==>ce_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8594	8691	
==>olders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8594	8691	
==>olders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7156	7267	
==>nt TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7156	7267	
==>nt TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the bl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1832	1950	
==>ame>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1832	1950	
==>ame>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	454	551	
==>t interface
sub to_str { shift }

# conversion to other native types
sub to_bit { (shift)->to_nati <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4038	4122	
==>linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Sche <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4038	4122	
==>linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Sche <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14130	14228	
==>&$c,$noop);};
    $f_else = $o->data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1;
    su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3611	3709	
==>%standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3611	3709	
==>%standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2066	2204	
==>$args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $modu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2066	2204	
==>$args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $modu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39647	39736	
==>in>.

=item C<product (Relation::Example *@others) returns Relation::Example>

This multi- <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	908	1023	
==>ont match the root of the path
        # then we have failed already and so return
        return unless $func($curr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	908	1023	
==>ont match the root of the path
        # then we have failed already and so return
        return unless $func($curr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1471	1585	
==>eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1471	1585	
==>eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3442	3633	
==>lnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'iden <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3308	3488	
==>lnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'iden <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1117	1240	
==>e Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, T <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1084	1207	
==>e Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, T <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31792	31896	
==>e> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a generic binar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36342	36446	
==>e> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a generic binar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2881	3000	
==>ed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3345	3464	
==>ed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15843	15939	
==>nately, sometimes a program will raise a condition or error that,
while resembling a message that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15843	15939	
==>nately, sometimes a program will raise a condition or error that,
while resembling a message that <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14578	14736	
==>ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14857	15015	
==>ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	449	611	
==>r *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	449	611	
==>r *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10149	10306	
==>td_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expressio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10149	10306	
==>td_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expressio <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1179	1277	
==><input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, % <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1179	1277	
==><input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, % <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12523	12637	
==>{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12523	12637	
==>{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6123	6234	
==>$!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6123	6234	
==>$!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1697	1822	
==>lf->can('call')} unless uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6553	6654	
==>,
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6553	6654	
==>,
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3904	4001	
==>al packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3904	4001	
==>al packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9356	9453	
==>returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9356	9453	
==>returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$modul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	910	1044	
==>$old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	910	1044	
==>$old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8617	8730	
==>span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8617	8730	
==>span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13007	13260	
==>',
                                             wstat   => '',
                                           };
                } else {
                    print "Don't know which tests failed: got $test{ok} ok, ".
                          "expected $test <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2018	2122	
==>e );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2018	2122	
==>e );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16216	16316	
==>a.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20642	20742	
==>a.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52818	52922	
==>bol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new('%:namespace' => 'hash'));    
    $me <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2879	2985	
==>property = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $o <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2879	2985	
==>property = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9176	9298	
==>ing ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9176	9298	
==>ing ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3903	4004	
==>-----------------------------------
## removing children

method remove_child_at ($self: Int $index) r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3903	4004	
==>-----------------------------------
## removing children

method remove_child_at ($self: Int $index) r <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2454	2555	
==>@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< re <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2454	2555	
==>@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10120	10227	
==>nfinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10120	10227	
==>nfinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8989	9093	
==>1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8989	9093	
==>1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16091	16215	
==>= $link->{regex};

            # create a representation that is like the $html->as_text
            $heading = $p->interpola <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4283	4394	
==>x "<>[](){}:*?+|&^\$.", $initchar) >= 0 )
  {
    goto err_noterm;
  }
  $pos++;
  if (initchar eq "#" ) goto te <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1740	1875	
==>x) && $end_index->isa('num')))    
        || confess "Indecies must be a num type";
    return list->new(
        # make sure to create <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4934	5029	
==>one reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=hea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4934	5029	
==>one reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=hea <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12721	12844	
==>r->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9861	9982	
==>ot:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22939	23087	
==>($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19360	19508	
==>($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RP <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20468	20568	
==>s your programs do or
might have, and lets you arrange the list in order of preference.  When you
ope <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20468	20568	
==>s your programs do or
might have, and lets you arrange the list in order of preference.  When you
ope <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12726	12846	
==>ed as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
context the number of fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12726	12846	
==>ed as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
context the number of fiel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3110	3320	
==>[\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3110	3320	
==>[\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retu <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	127	247	
==>ight 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 3

## XXX - Exporting still does <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3788	3964	
==>index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3788	3964	
==>index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3286	3401	
==>op);
      if($tok) {
        $tok = pop(@$X::cap);
        my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25034	25129	
==>tion::Example to have zero tuples.  It is also valid
for a Relation::Example to have zero attrib <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4462	4621	
==>lse {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4462	4621	
==>lse {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multid <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20901	21025	
==>} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17322	17446	
==>} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18404	18598	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18683	18877	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1112	1229	
==>en traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1112	1229	
==>en traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1130	1249	
==>tpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($wo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1130	1249	
==>tpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($wo <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1707	1831	
==>all')} unless uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub new {
    my ($class, %args) = @_;

    # ignore the pref <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	662	798	
==>gs(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIB <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	563	699	
==>gs(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIB <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1524	1619	
==>:SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1524	1619	
==>:SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16770	17028	
==>get, 
                                        heading  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $bac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10810	10937	
==>] ruleop::constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11652	11752	
==>DO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrij <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11652	11752	
==>DO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrij <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4418	4543	
==>mit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4406	4531	
==>mit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1679	1822	
==>ms.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1679	1822	
==>ms.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2409	2633	
==>d;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2409	2633	
==>d;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $ol <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9204	9312	
==>is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9204	9312	
==>is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
cr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13215	13331	
==>11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13215	13331	
==>11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1650	1743	
==>s with Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int|Real $iso86 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3509	3601	
==>s with Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int|Real $iso86 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5239	5392	
==>y let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5703	5856	
==>y let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2435	2547	
==>'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2435	2547	
==>'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25076	25175	
==>her the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29628	29727	
==>her the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6265	6387	
==>urn call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6253	6375	
==>urn call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print " <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3179	3312	
==>e()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3179	3312	
==>e()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10977	11159	
==>n;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    my $idx = $o->{'nparen'} -1;
    sub{
      my $c = $_[0];
      my $m = MatchX->new();
      my $from = $X::pos <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	105	196	
==>use JIB::Config;

use base 'Object::Accessor';

=head2 $obj = JIB::Dependency->new_from_stru <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23381	23515	
==>N        1
 #define REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEE <==
2	/Users/nnunley/pugs/util/testgraph.pl	625	710	
==>my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data));
$v->has_inline_css($Config{inli <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15285	15441	
==>erms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15564	15720	
==>erms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'gra <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12221	12340	
==>e recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $x )`

Returns true if the parame <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12221	12340	
==>e recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $x )`

Returns true if the parame <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7516	7628	
==>uleop() function gets as argument a list:



### we don't need a "high" level interface (named args) 

###    bec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7260	7369	
==>uleop() function gets as argument a list:

### we don't need a "high" level interface (named args) 
###    bec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2439	2640	
==>y @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2439	2640	
==>y @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defi <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	303	407	
==>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %vari <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	303	407	
==>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %vari <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1675	1785	
==>nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1675	1785	
==>nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5826	5982	
==>('new') };
        unless ( $new ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$file};
        pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3186	3336	
==>0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3433	3583	
==>0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}( <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2079	2198	
==>o results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item w <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2079	2198	
==>o results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3614	3707	
==>path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3614	3707	
==>path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5555	5674	
==>tta Engine which will implement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5555	5674	
==>tta Engine which will implement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29313	29449	
==>order == ':canonical';
    ...
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('dispatcher'),
    # meth <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	70	161	
==>l/5.8.7/Module/Install/Scripts.pm"
package Module::Install::Scripts;
use Module::Install::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4734	4830	
==>lation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &pro <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8211	8307	
==>lation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7712	7851	
==>for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7724	7863	
==>for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5661	5793	
==>\$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5661	5793	
==>\$_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	921	1027	
==>ied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	921	1027	
==>ied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1692	1785	
==>ry all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1692	1785	
==>ry all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\0 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26489	26585	
==>ile the test using
C<perlcc> before running it.

B<NOTE> This currently only works when sitting i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9454	9544	
==>e_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9454	9544	
==>e_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2328	2435	
==>300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2328	2435	
==>300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10726	10850	
==>rs.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10726	10850	
==>rs.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2, <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5281	5452	
==>> \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$linuxrc,
  "welcome-p6=s"   => \$welcome_p6,
  "initrd-gz=s"    => \$in <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3387	3503	
==>($node) ? $node : \$node);
		my $class = B::class($obj);

		return $class unless $class eq "PVMG";

		my $flags = $ob <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18980	19072	
==>hat corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate rangi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22630	22722	
==>hat corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate rangi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7671	7796	
==>ed literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7671	7796	
==>ed literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        r <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2517	2627	
==>t::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output. <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2517	2627	
==>t::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	378	487	
==>sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	378	487	
==>sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!member <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3199	3318	
==>e ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3199	3318	
==>e ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12764	12857	
==>o create, and be more portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It may n <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1548	1722	
==>ents<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1548	1722	
==>ents<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3139	3292	
==>listlen {
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  want.List ?? *@resul <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	903	989	
==>ail.python.org/pipermail/python-list/2005-March/270531.html
# and converted to Ruby, .. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3422	3580	
==>ps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3886	4044	
==>ps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	579	717	
==>$opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $opt{$_} for keys %opt;
    return \%h;
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	579	717	
==>$opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $opt{$_} for keys %opt;
    return \%h;
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5200	5357	
==>.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5200	5357	
==>.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @d <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16650	16761	
==>ot_line} = 0;
    $self->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Results

The C<%results <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9016	9107	
==>@terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_wi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2841	2932	
==>@terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_wi <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3342	3473	
==>event.name {
                    when '*' { take %.subscription.values».members };
                    default { take %.subscriptio <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14817	14926	
==>xp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedded_code = join("",$o->dat <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2049	2162	
==>m) { defined($.string) ?? Num $.string !! $.count }
        multi method as (--> Str) { $.string }
        multi m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	584	692	
==>ternal packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	584	692	
==>ternal packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # A <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	107	196	
==>package Module::Install::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8006	8104	
==>m this class solves is when you need do perform "set" operations on 
Span objects, that return list <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8006	8104	
==>m this class solves is when you need do perform "set" operations on 
Span objects, that return list <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6474	6623	
==>ture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6667	6816	
==>ture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         rule <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	17	113	
==>use strict;
use warnings;

use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4336	4459	
==>,
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4529	4652	
==>,
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18701	18928	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18980	19207	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1143	1254	
==>( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1143	1254	
==>( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef ! <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	954	1062	
==>(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	954	1062	
==>(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7539	7666	
==>s argument a list:



### we don't need a "high" level interface (named args) 

###    because the actual rule object will be fu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7283	7407	
==>s argument a list:

### we don't need a "high" level interface (named args) 
###    because the actual rule object will be fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11039	11209	
==>rogs}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl . <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17952	18036	
==>LogicalANDExpressionNoIn> <'&&'> <BitwiseORExpressionNoIn>
}
rule LogicalORExpression <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14004	14142	
==>class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> $c {
        for $c->get_attribute_list() -> $attr {
            %attrs{$a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1418	1516	
==>Ts - Reused abstract data types.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::U <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25046	25143	
==>γ", "pretty print a -> b -> c");
}
{
	my $type = type::operator::pair->new(
		type::variable::fre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5921	6042	
==>} = [ { $label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5734	5849	
==>} = [ { $label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must retu <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	533	669	
==>b support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	533	669	
==>b support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9921	10095	
==>t time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9921	10095	
==>t time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = <==
2	/Users/nnunley/pugs/util/importgraph.pl	804	931	
==>* \()?/x) {
      $module_name = $1;
      $exports = defined $2;
    } elsif (/^import \s+ (qualified \s+)? ([\w.]+) (\s* \()?/ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	560	663	
==>param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<de <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	560	663	
==>param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21932	22026	
==>r that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21932	22026	
==>r that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	650	795	
==>arsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	661	806	
==>arsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6416	6538	
==>lf.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6416	6538	
==>lf.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# metho <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3948	4082	
==>_value('@:slots')}, mk_containers(@$values);
            },

            'array_unshift' => sub { # @values -> ()
                my $s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4179	4340	
==>->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok};
        $result{type} = 'todo' if $self->{todo}{$result{number} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15873	16017	
==>S file locking
        $prog =~ s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TE <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8371	8491	
==>f($kind eq 'Macro') {
	warn "Macro is not implemented.  And is unexpected.\n";
	return "";
    }
    if($kind eq 'Corouti <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3274	3378	
==>returns Int { $.day - 1 }
method mday returns Int { $.day }
method mday_0 returns Int { $.day - 1 }

#use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10017	10192	
==>' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _emit( $n->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10317	10480	
==>' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5412	5510	
==>ath).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5412	5510	
==>ath).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2604	2704	
==>s to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2604	2704	
==>s to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2682	2816	
==>ift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2682	2816	
==>ift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20510	20628	
==>e 12.2
      <Identifier> <InitialiserNoIn>?
}
rule Initialiser :words {  # see 12.2
      <'='> <AssignmentExpression> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3460	3556	
==>?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    r <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	184	298	
==>ficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	184	298	
==>ficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4720	4829	
==>latform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4720	4829	
==>latform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31712	31831	
==>use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if it failed, reject it how you choose
  if (! $p->regex($regex) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18846	18974	
==>ata} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20204	20332	
==>ata} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifth <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	975	1079	
==>Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	975	1079	
==>Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	753	847	
==>oxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	753	847	
==>oxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age E <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4555	4714	
==>> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4555	4714	
==>> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3483	3583	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3483	3583	
==>$one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12401	12500	
==>st of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12401	12500	
==>st of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	337	442	
==>{
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	337	442	
==>{
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $on <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	956	1058	
==>or
regular expressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	421	527	
==>+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	421	527	
==>+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %! <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2821	2912	
==>y $pil_tree = $self->as_pil_tree;
	    my($p5,$warn) = Perl6::Run::OnPerl5::X1::PilToPerl5:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	575	677	
==>t );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the dependency declaration f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16018	16147	
==>sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1813	1923	
==>:Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYR <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1813	1923	
==>:Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11505	11618	
==>de::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11871	11984	
==>de::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variab <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5215	5320	
==>string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher obje <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5215	5320	
==>string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher obje <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1007	1249	
==>::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relatio <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4019	4225	
==>)
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7496	7702	
==>)
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3257	3359	
==>event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3257	3359	
==>event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.cu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2781	3052	
==>uffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2781	3052	
==>uffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21291	21390	
==>1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

Thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21291	21390	
==>1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16693	16797	
==>optional named parameter
@child_nodes (an array ref) is set, then each element in it is used to
initializ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16693	16797	
==>optional named parameter
@child_nodes (an array ref) is set, then each element in it is used to
initializ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4664	4765	
==>ecurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4664	4765	
==>ecurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10365	10461	
==>lass $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10365	10461	
==>lass $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15153	15255	
==>ttribute set are considered
"root Nodes" and are listed in their Document's Root Nodes property; in a
m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15153	15255	
==>ttribute set are considered
"root Nodes" and are listed in their Document's Root Nodes property; in a
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8381	8516	
==>UT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$ori <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1020	1137	
==>Ratchet';
};
);
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12839	12982	
==>~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        }
        
        return _emit( $n->{exp1} ) . '[' . _emit <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9499	9640	
==>y
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, $I0, 1
    if $S0 != " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4859	4962	
==>ilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "sk <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4917	5020	
==>ilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "sk <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11726	11858	
==>my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4369	4501	
==>my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	684	795	
==>return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	684	795	
==>return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	97	216	
==>ially.

type Noop;

# hmm, there's a lot.  And we probably don't need it all for the
# meta-model, except perhaps to exp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	707	797	
==>londie::Backend::Perl::Silly - a subclass of the perl backend that
conditionally excludes s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9803	9915	
==>ing;
}

# information functions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {loa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9803	9915	
==>ing;
}

# information functions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {loa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3354	3452	
==>xt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'type' ,'Type';

node_a 'Type', 'MkT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16387	16522	
==>() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16387	16522	
==>() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4369	4474	
==>lement {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_da <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4554	4659	
==>lement {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_da <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5302	5403	
==>se64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS

XXX

=cu <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5302	5403	
==>se64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTIONS

XXX

=cu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4328	4469	
==>rt ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4328	4469	
==>rt ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21308	21404	
==>n attribute name and each Mapping value
is the corresponding attribute value.

Every Relation att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25860	25956	
==>n attribute name and each Mapping value
is the corresponding attribute value.

Every Relation att <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1886	1996	
==>file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1886	1996	
==>file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2424	2554	
==>e};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<equal>/<$ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13392	13521	
==>xpression>
    | <FunctionExpression>
    | <MemberExpression> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9718	9820	
==>through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() u <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9718	9820	
==>through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1796	1927	
==>stringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         / <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1796	1927	
==>stringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         / <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	63	175	
==>this one doesn't translate so trivially.

type Noop;

# hmm, there's a lot.  And we probably don't need it all fo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6598	6694	
==>|| die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6598	6694	
==>|| die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_chil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5967	6078	
==>n p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5761	5868	
==>n p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27056	27200	
==>{
    my($len,$a)=@_;
    return MatchX->new()->set_as_failed() if !defined $a;
    my($strA,$npos,$A)=@$a;
    my $str = join("",map{chr($_)} @$ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1951	2050	
==>ersion of the
#regexp.  We can then pour the re_test suite through it, yielding a
#more complete ver <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7609	7757	
==>"pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %app<"pArgs"> {
            push @arg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22919	23015	
==>e of the main distinctions of this approach over similar packages is that
text is always looked u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22919	23015	
==>e of the main distinctions of this approach over similar packages is that
text is always looked u <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8760	8890	
==>members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8760	8890	
==>members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	606	715	
==>ture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	812	921	
==>ture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2799	2899	
==>>

Returns the representation of this node in the original text, or at
least a valid representation o <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2799	2899	
==>>

Returns the representation of this node in the original text, or at
least a valid representation o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	508	626	
==>urn a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	508	626	
==>urn a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23359	23451	
==>d2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC ope <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23359	23451	
==>d2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC ope <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3091	3189	
==>s useful?
# =head2 @bools = $repo->add_packages($pkg1, $pkg2, ...)
# 
# Adds a list of JIB::Package <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32203	32333	
==>g node, and most don't need to to do
anything to the walking stack.

When an object does have an ending node, its ender() method sh <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18736	18861	
==>v => "foo", t => type::operator::nullary->new("str")),
			),
		),
	),
);

# this function cannot be typed, since it wants a fu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5307	5403	
==>osition );
  my $currentOperatorTable = $self->whitespaceOperatorTable();
  
  (substr $target, $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13672	13832	
==>->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq[ln -fs $alt $bin ] )                 and die $ <==
2	/Users/nnunley/pugs/util/grokprims.pl	1900	2012	
==>\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example = "\$$a0$name";
  } elsif (/special/ and <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	909	1032	
==>s Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> E <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	909	1032	
==>s Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17374	17476	
==>privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17374	17476	
==>privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11607	11704	
==>y of Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11607	11704	
==>y of Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1684	1779	
==>method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1684	1779	
==>method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!chil <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10958	11079	
==>ame, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $layer ~~ rx <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	390	503	
==>≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	390	503	
==>≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4962	5083	
==>eturn $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5184	5305	
==>eturn $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3326	3464	
==>ss exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3326	3464	
==>ss exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4726	4823	
==>@set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4726	4823	
==>@set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @inte <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17240	17343	
==>t, we can do anything we want with it.
This is perhaps the most flexible place to allocate large data
wh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22340	22443	
==>t, we can do anything we want with it.
This is perhaps the most flexible place to allocate large data
wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10511	10620	
==>$Level = 2;
	die "test.pl:runperl(): 'switches' must be an ARRAYREF " . _where()
	    unless ref $args{switche <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19961	20070	
==>local int padarray
    padarray = pad["isarray"]
    pad["isarray"] = 1
    exp = self[0]
    exp = exp.p6anal <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13634	13741	
==>all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13634	13741	
==>all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6192	6290	
==>ids unnecessary duplication
	my $self = shift;
	$self->{instance}->splat(@_);
}

sub left {
	my $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	152	238	
==>gs::Grammar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs::Grammar::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16043	16162	
==>{ @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.or <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16043	16162	
==>{ @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.or <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19235	19356	
==>out_reason} ? ": $self->{bailout_reason}\n" : ".\n");
};


sub _print_ml {
    print join '', $ML, @_ if $ML;
}


# For sl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22067	22173	
==>sion> <')'> <CaseBlock>
}
rule CaseBlock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30100	30294	
==>al order
                    if $order == $nil::NIL || $order->equal_to(str->new(':canonical'));                
                
                my $dispatcher;
                if ($order->equal <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code4.pl	15	122	
==>? Nee nur Kartoffeln!
for 5..7 -> $count {
	my $potato = "$count potato, ";
	NEXT {
		print $potato;
	}
	LAS <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5274	5462	
==>dy = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5274	5462	
==>dy = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16038	16142	
==>his header indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check if do <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16038	16142	
==>his header indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check if do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	267	371	
==>ce last_modified
    content_type content_encoding content_length content_language
    title user_agent s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	267	371	
==>ce last_modified
    content_type content_encoding content_length content_language
    title user_agent s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3662	3783	
==>ound" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5564	5685	
==>ound" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	775	894	
==>e;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	775	894	
==>e;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22154	22261	
==>ssions issue; simply order the files appropriately in the search
list.  The analogy is similar to inheriting <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22154	22261	
==>ssions issue; simply order the files appropriately in the search
list.  The analogy is similar to inheriting <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	738	843	
==>A, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :ta <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	738	843	
==>A, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :ta <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4537	4640	
==>s the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4537	4640	
==>s the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20038	20187	
==>roup') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16459	16608	
==>roup') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1575	1684	
==>'type'))
        || confess "Key must be a str type";
    delete $self->{$key->to_str->to_native};
    nil->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	320	420	
==>->new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable - a compara <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30030	30129	
==>L to display TODO failures

Add a test for verbose.

Change internal list of test results to a hash. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16375	16473	
==>!='> <RelationalExpression>
    | <EqualityExpression> <'==='> <RelationalExpression>
    | <Equali <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3044	3178	
==>ing  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3044	3178	
==>ing  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %eve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24490	24592	
==>Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29042	29144	
==>Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	895	1022	
==>ame) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	895	1022	
==>ame) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1642	1804	
==>e> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1642	1804	
==>e> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4732	4837	
==>anyof_class => $S->force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  $self->ad <==
2	/Users/nnunley/pugs/util/testgraph.pl	1111	1211	
==>E  location of css. [default: $Config{cssfile}]

See also:
   util/yaml_harness.pl  - produce the dat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19146	19246	
==>en restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19146	19246	
==>en restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40781	40879	
==>ciate being informed any time you create a
modified version of Locale::KeyedText that you are willi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40781	40879	
==>ciate being informed any time you create a
modified version of Locale::KeyedText that you are willi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	705	827	
==>ssion ; *@values) returns List {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17746	17868	
==>my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17746	17868	
==>my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1664	1768	
==>es/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modul <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1664	1768	
==>es/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modul <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	732	833	
==>(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|false|Fals <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39710	39803	
==>tion::Example>

This multi-method is the N-ary version of the aforementioned.

=item C<join (R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	845	994	
==>[ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	812	953	
==>[ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1280	1373	
==>(i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1280	1373	
==>(i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21897	21998	
==>cumentation in this distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21897	21998	
==>cumentation in this distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16211	16326	
==>$self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Regex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9638	9872	
==>$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9638	9872	
==>$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1738	2015	
==>one Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1738	2015	
==>one Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3166	3259	
==>$::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBui <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3352	3445	
==>$::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBui <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8448	8562	
==>trd_gz <= -M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4784	4885	
==>Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5034	5135	
==>Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20432	20523	
==>2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20432	20523	
==>2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11063	11196	
==>5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11063	11196	
==>5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4217	4315	
==>ass_that_should_be}->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2019	2181	
==>param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2019	2181	
==>param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $densit <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10276	10381	
==>3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10276	10381	
==>3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	748	847	
==>get_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	641	732	
==>get_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/N <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	298	404	
==>f,
	}, $class;
}

sub string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35957	36051	
==>uples that are in either or both of the
invocant Relation::Example and C<$other>; any duplicate <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	584	690	
==>ntf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } else {
    if($args{help}) {
      printf STDE <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8985	9075	
==>f_x(L0,L).
p5_charset_def_x(L0,L1) --> "-", {append(L0,[char(45)],L1)}, !.
p5_charset_def_x <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9276	9483	
==>ody', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9276	9483	
==>ody', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	423	525	
==>dule Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEX <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	423	525	
==>dule Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEX <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15663	15780	
==>nqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15663	15780	
==>nqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	836	955	
==>$m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	836	955	
==>$m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	309	403	
==>the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	309	403	
==>the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'ru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5091	5225	
==>node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5091	5225	
==>node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_t <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1327	1419	
==>kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_sy <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1079	1231	
==>elf->meta->package );
    
    ### XXX flesh out this format better
    {   my @files = eval {
            ### XXX CONFIG!!!!
            my $file = $ins <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	705	824	
==>) ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	705	824	
==>) ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3702	3805	
==>ll_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n");
    if(ret < 1) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6407	6514	
==>?? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6191	6296	
==>?? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Gra <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8048	8136	
==>encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13011	13153	
==>m = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $go <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6486	6628	
==>m = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $go <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18372	18469	
==>possibly confuse further parsing.

Next, the source module is divided into a shallow tree of block <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18372	18469	
==>possibly confuse further parsing.

Next, the source module is divided into a shallow tree of block <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4008	4105	
==>::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a ne <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4008	4105	
==>::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a ne <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12912	13015	
==>ds) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12970	13073	
==>ds) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6943	7048	
==>educe:
  push @bsrStack, "bsr_reduce_1";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper_close <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7951	8159	
==>self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21115	21208	
==>event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "passwor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21115	21208	
==>event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "passwor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1094	1208	
==>s both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1094	1208	
==>s both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4855	4969	
==>_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4855	4969	
==>_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7464	7584	
==>} ) {
        eval q{use vmsish "status"; $results{'exit'} = $?};
    }
    else {
        $results{'exit'} = _wait2exit( <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2008	2121	
==>$epoch;
}

method nanosecond returns Int {
    my $sec = $.second;
    my $round_sec = int($sec);
    my $rem = $s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8225	8359	
==>span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8225	8359	
==>span0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18030	18123	
==>t.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specifie <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18030	18123	
==>t.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specifie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8093	8218	
==>ll true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal data, but this is a low <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7822	7942	
==>ll true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal data, but this is a low <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9425	9534	
==>nnected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9425	9534	
==>nnected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5438	5601	
==>e';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'M <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5438	5601	
==>e';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'M <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2690	2820	
==>native . " got($arg) -> expected($param_type)"
                    if $param_type ne '';
        }
        $self->{env}->set($param <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9521	9623	
==>te an iterator with walker()Z<>:

  my $iter = $parser->walker;

This will produce an iterator that wil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13284	13414	
==>ils of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13284	13414	
==>ils of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interfa <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13469	13571	
==>"∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13469	13571	
==>"∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.s <==
2	/Users/nnunley/pugs/util/package-osx.pl	2468	2557	
==>/Users/dromano/dev/pugs/docs /usr/local/share/doc/pugs/docs
        /Users/dromano/dev/pug <==
2	/Users/nnunley/pugs/util/importgraph.pl	2128	2213	
==>rank('prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10125	10236	
==>mes6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{ <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	109	217	
==>an script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p5") {
    system("perl naive_baye <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5757	5867	
==>e Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5757	5867	
==>e Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	493	611	
==>ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	493	611	
==>ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33342	33440	
==>ly: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16851	16940	
==>1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6745	6855	
==>) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6757	6867	
==>) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2168	2286	
==>{
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2168	2286	
==>{
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2383	2575	
==>verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2383	2575	
==>verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	647	748	
==>$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	647	748	
==>$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17250	17369	
==>edded in your Perl application and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, whi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17250	17369	
==>edded in your Perl application and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, whi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4095	4191	
==>tructs a new cipher object.  The options passed to the 
C<new> constructor generally include some <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4095	4191	
==>tructs a new cipher object.  The options passed to the 
C<new> constructor generally include some <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6096	6193	
==>t {
    *@array
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32483	32607	
==>on of this object.

=item zerolen

Whether this object does is zero-width (like an anchor).

=back

If there is a method with <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2383	2486	
==>nt ISA_JIB_META   => sub { UNIVERSAL::isa(shift(), 'JIB::Meta') }; 
use constant ISA_JIB_CONFIG => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2081	2188	
==>the impression of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2081	2188	
==>the impression of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20334	20458	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20613	20737	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5	103	
==>6;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-1 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5	103	
==>6;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2682	2777	
==>he given string, seperating it into 'name' and 'value' pairs.  This
method should be called befo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2682	2777	
==>he given string, seperating it into 'name' and 'value' pairs.  This
method should be called befo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3806	3934	
==>n ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOA <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	338	429	
==>$o->{'val_string'}}
sub as_array  {my($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14519	14622	
==>uild the string, the result
will use case as suggested by HTTP spec, and it will follow
recommended "Goo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14519	14622	
==>uild the string, the result
will use case as suggested by HTTP spec, and it will follow
recommended "Goo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1176	1267	
==>e(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<lis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1396	1487	
==>e(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<lis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18548	18643	
==>rt_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18548	18643	
==>rt_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2718	2812	
==>ost complete implementation. 
Pugs currently has some issues with Perl 5 interoperability.

Par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7158	7277	
==>l;
    }
    else {
      join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
           $self->{type}, $self->{how}, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	899	1018	
==>looser\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12575	12681	
==>S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6050	6156	
==>S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4064	4179	
==>self->SUPER::store($index, $value);
}

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('sy <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	126	232	
==>s $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## --------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	126	232	
==>s $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## --------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1955	2055	
==>s::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2044	2144	
==>s::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5558	5837	
==>$token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5558	5837	
==>$token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	308	426	
==>ce) = @_;

    my $file = (caller(4))[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness che <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6162	6263	
==>omplex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser is n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6162	6263	
==>omplex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser is n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1086	1418	
==>m('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&inf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4950	5059	
==>4 if shift->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd
# c-basic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19077	19217	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19356	19496	
==>,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { macro =>  match: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16545	16653	
==>ntains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list of Spans. Th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16545	16653	
==>ntains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list of Spans. Th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	942	1035	
==>xecute($compiled);

    my $same_result = Blondie::Backend::Foo->run($program);

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21533	21628	
==>y Relation tuple must be distinct from the other tuples.  All Relation
attributes may be individ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26085	26180	
==>y Relation tuple must be distinct from the other tuples.  All Relation
attributes may be individ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16933	17032	
==>se MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16933	17032	
==>se MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1678	1774	
==>4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1678	1774	
==>4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1083	1189	
==>($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	10161	10254	
==>remover that will be installed on the target machine (hence the $file[-1]).
sub create_remover <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5746	5980	
==>$x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yie <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5746	5980	
==>$x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	921	1052	
==>as Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curserverna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	921	1052	
==>as Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curserverna <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	717	832	
==>e that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesiz <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	717	832	
==>e that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesiz <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31673	31766	
==>attrs>
duplicate attribute names of the invocant Relation::Example.

=item C<wrap ( Mapping(St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6395	6595	
==>f ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6395	6595	
==>f ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15600	15722	
==>= @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10456	10578	
==>= @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3899	4008	
==>ler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitive <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3760	3867	
==>ler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitive <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	139	244	
==>bug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	139	244	
==>bug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	515	622	
==>lresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	515	622	
==>lresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Descrip <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4442	4552	
==>e delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4442	4552	
==>e delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!chan <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3314	3486	
==>.^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3314	3486	
==>.^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2199	2341	
==>:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2199	2341	
==>:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1903	2016	
==>xized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1903	2016	
==>xized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	437	555	
==>PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	437	555	
==>PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3862	4030	
==>et('$current')->send('get_method' => $e->get('$label')));                    
                      })
                  );    
                $e->set('$current' => $e- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12119	12268	
==>}[-1],
      family => 'quant',
      data => $data,
      min => $min,
      max => $max,
    }, $class;
    return $self;
  }

  sub min {
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1387	1486	
==>ten to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  f <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1387	1486	
==>ten to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	129	248	
==>D;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	129	248	
==>D;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4403	4539	
==>t_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allow <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4403	4539	
==>t_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allow <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12033	12149	
==>XX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12027	12143	
==>XX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7336	7442	
==>end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7336	7442	
==>end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($star <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1424	1542	
==>:en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1424	1542	
==>:en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1931	2110	
==>d.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* prec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24951	25057	
==>C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue, which is then
sl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24951	25057	
==>C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue, which is then
sl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5061	5193	
==>ans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5061	5193	
==>ans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5425	5523	
==>ch means 
you it is essentially read-only, however, all the return values of the
closure are collec <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6076	6173	
==>lf, $line, $type, $totals) if $self->{callback};

    $self->{'next'} = $result{number} + 1 if $ty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2704	2828	
==>'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREWORD             att <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4944	5045	
==>method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4944	5045	
==>method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1466	1594	
==>} = 1 for @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7206	7325	
==>d" }
sub perl5 { die "not implemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Per <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	347	455	
==>s to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# acciden <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	347	455	
==>s to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# acciden <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1750	1863	
==>(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1750	1863	
==>(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6548	6657	
==>s) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a RO <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6548	6657	
==>s) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a RO <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1078	1186	
==>submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1078	1186	
==>submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10137	10250	
==>or arguments are passed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10137	10250	
==>or arguments are passed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19525	19623	
==>te that an update is planned for Locale::KeyedText that will enable
user text to be stored in non-P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19525	19623	
==>te that an update is planned for Locale::KeyedText that will enable
user text to be stored in non-P <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	466	566	
==>b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	466	566	
==>b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	648	779	
==>ata);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	648	779	
==>ata);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3081	3233	
==>.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2963	3106	
==>.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1593	1690	
==>ay ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths ! <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1593	1690	
==>ay ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths ! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25057	25200	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applicati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25336	25479	
==>>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applicati <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	895	1048	
==>he match
                     object, telling captures where in the deep structure
                     to store what they've captured.

=cut

our class M <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	895	1048	
==>he match
                     object, telling captures where in the deep structure
                     to store what they've captured.

=cut

our class M <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2885	2980	
==>to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Cont <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2885	2980	
==>to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Cont <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2781	2922	
==>le unlink "$Alternatives/$script";
        }      
        
        ### see if there's any other package that's now the default
        ### fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2383	2481	
==>urn $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2383	2481	
==>urn $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6647	6815	
==>_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6840	7008	
==>_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	290	413	
==>urns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	290	413	
==>urns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	735	848	
==>n/../lib",
        "$Bin/../../Pugs-Compiler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	957	1104	
==>uired',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	957	1104	
==>uired',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precon <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10568	10671	
==>imarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10626	10729	
==>imarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9184	9326	
==>1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9172	9314	
==>1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2510	2607	
==>-------------------------------------
## getting children

method get_child ($self: Int $index) re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2510	2607	
==>-------------------------------------
## getting children

method get_child ($self: Int $index) re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8049	8206	
==>0),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8049	8206	
==>0),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5095	5336	
==>s/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorativ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4307	4512	
==>s/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorativ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4726	4929	
==>ch, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined $tmp;  # match f <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5173	5272	
==>y($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $self->{_rev <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	519	627	
==>? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it sh <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	519	627	
==>? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it sh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33337	33436	
==>y may wish to override the user text of another library
which it uses, the Template module for the p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33337	33436	
==>y may wish to override the user text of another library
which it uses, the Template module for the p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	681	857	
==>evel";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $valu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	681	857	
==>evel";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19119	19218	
==>ist in a
regex outside of a character class, so I'm a little wary of making them
objects in their ow <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31956	32053	
==>ain program would check each
of the 3 Template module sets in turn, looking at just the set member <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31956	32053	
==>ain program would check each
of the 3 Template module sets in turn, looking at just the set member <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15025	15119	
==>=head2 Introduction

Many times during a program's operation, the program (or a package it uses <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15025	15119	
==>=head2 Introduction

Many times during a program's operation, the program (or a package it uses <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7855	8024	
==>d_file {
    my $self = shift;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            store       => \$f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27700	27801	
==>his Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27700	27801	
==>his Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6809	6916	
==>-r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $bash and -s $ba <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8756	8879	
==>ex->{_dirs}->{$_});
    }
} 

# Note: modfies $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3934	4056	
==>es the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if you do:
        #   print "not " unles <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	199	323	
==>al (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.subst <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	199	323	
==>al (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.subst <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4829	4946	
==>}
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4817	4934	
==>}
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexic <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3463	3582	
==>circ"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3463	3582	
==>circ"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26253	26359	
==>ed and non-empty string, and each variable value can be anything at
all.  Note that while the Hash itself i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26253	26359	
==>ed and non-empty string, and each variable value can be anything at
all.  Note that while the Hash itself i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22490	22603	
==>ed.  The general concept is:

  if (into_scope) {
    push STACK, TREE;
    TREE = CURRENT->DATA;
  }
  if (outof_ <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	14	109	
==>use strict;
#use GraphViz;
use Getopt::Long;

GetOptions \our %Conf, qw(--verbose|v no|n leaves| <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25398	25514	
==>:variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1976	2081	
==>.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1976	2081	
==>.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1119	1221	
==>sic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1119	1221	
==>sic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14614	14716	
==>orks just like encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and ne <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14614	14716	
==>orks just like encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	893	995	
==>e with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	893	995	
==>e with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and decipher <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	858	962	
==>times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	858	962	
==>times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IR <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24629	24763	
==>eyedText does not declare any subroutines or export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
exce <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24629	24763	
==>eyedText does not declare any subroutines or export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
exce <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3198	3335	
==>$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3198	3335	
==>$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2867	2974	
==>$hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2867	2974	
==>$hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make th <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	331	453	
==>= 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	331	453	
==>= 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8388	8518	
==>NOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  AS <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8388	8518	
==>NOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  AS <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6374	6485	
==>tart == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6374	6485	
==>tart == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($sel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	799	945	
==>ust provide a value to reference";    
    ${$self} = $value;
    return nil->new();
}

1;

__END__

=pod

=head1 NAME

reference - the core refere <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1045	1150	
==>:all> 
option will cause the module to shift across all byte values, not just the ones 
corresponding to l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1045	1150	
==>:all> 
option will cause the module to shift across all byte values, not just the ones 
corresponding to l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	160	257	
==>_name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$list <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	382	540	
==>args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	283	441	
==>args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_ar <==
2	/Users/nnunley/pugs/util/package-osx.pl	2022	2111	
==>ite_perl/Class/Rebless.pm /Library/Perl/5.8.6/Class/Rebless.pm
        /usr/local/lib/perl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20926	21023	
==>on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20926	21023	
==>on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nic <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	684	791	
==>:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# new() creates instances of classes
sub new ($) {
    my ( <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2832	2932	
==>onth_0] }

our @months_abbr = <Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec>;
method month_abbr re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3972	4073	
==>erms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3972	4073	
==>erms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5979	6100	
==>.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5979	6100	
==>.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	41	159	
==>w[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	41	159	
==>w[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17005	17100	
==>),F0,F0,B0,B0,E0,E0).
rm(ques_ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28178	28268	
==>*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Prolog::Yaswi::swi_toplevel <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10656	10755	
==>set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10656	10755	
==>set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10588	10691	
==>> $value) pairs, which
means that you can update several fields with a single invocation.

The $value ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10588	10691	
==>> $value) pairs, which
means that you can update several fields with a single invocation.

The $value ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1179	1303	
==>'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1179	1303	
==>'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5150	5285	
==>{"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Sca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5150	5285	
==>{"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Sca <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1622	1719	
==>>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1622	1719	
==>>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free soft <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9226	9369	
==>nick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9226	9369	
==>nick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6411	6516	
==>assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6195	6298	
==>assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26717	26817	
==>hod will fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31269	31369	
==>hod will fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10375	10514	
==>@_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10375	10514	
==>@_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18010	18162	
==>) {
        local($!, $@);  # don't interfere with caller's $@
                        # eval sometimes resets $!
        eval { $proto->can($method) } | <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	657	781	
==>er_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	558	682	
==>er_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3424	3606	
==>ybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->{provides} || [] };
            }
        
            ### find the alternative with the hig <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1462	1598	
==>iles( \@files );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @{ $inst->registered_alterna <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	515	614	
==>args->fetch(num->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	466	620	
==>>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	466	620	
==>>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5966	6074	
==>turn sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCA <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	273	451	
==>d'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sy <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5474	5607	
==>ture:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$left_thunk'),
            Param- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4893	5031	
==>isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5357	5495	
==>isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	912	1026	
==>~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	912	1026	
==>~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	485	651	
==>00 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	485	651	
==>00 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Pr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7863	7993	
==>args;
  }
  reduce_backtrack:
  $position = $temp1->from();
  goto reduce_end if $arity > 1;
  $temp1 = $temp2;
  reduce_save_term: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26948	27050	
==>u are sub-classing it, you'll probably want
to call it in your own module.

  package Regexp::AndBranch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6587	6711	
==>$match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6587	6711	
==>$match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        pos <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16633	16735	
==>s a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16633	16735	
==>s a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recurr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5706	5823	
==>gine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5706	5823	
==>gine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4099	4208	
==>tes perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3955	4062	
==>tes perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35892	35993	
==>ead2 ref

Family: ref

Types: ref1, ref2 .. refN (C<\1>, C<\2>, etc.); reff1, reff2 .. reffN
(C<\1>, C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10030	10193	
==>$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" . <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	578	676	
==>(bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args{'str'};
    retur <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	165	278	
==>Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	238	351	
==>Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env-> <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4761	4873	
==>`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4761	4873	
==>`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3757	3850	
==>:X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self->get_p6_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	251	354	
==>o, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	251	354	
==>o, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	813	1089	
==>f $number == 0;
        return 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_E is readonly = (
    'MYLIB_MYINV_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3614	3717	
==>span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3614	3717	
==>span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	886	1028	
==>code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	886	1028	
==>code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12183	12284	
==>lue if the parameter is a member of the recurrence.
Otherwise, returns the previous element in the rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12183	12284	
==>lue if the parameter is a member of the recurrence.
Otherwise, returns the previous element in the rec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3811	3962	
==>e
        {   ### XXX we should *build* things here too
            system( qq[tar -f $my_tmp_dir/$data -C ] . 
                        $conf->compile_d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7088	7208	
==>on = shift;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10464	10613	
==>s {
    my $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $sw <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4195	4302	
==>ry = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? "release" : "repository snapsho <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7570	7681	
==>ip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7628	7739	
==>ip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	45	147	
==>ive;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select( <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	45	147	
==>ive;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6505	6592	
==>_term => $() ,} }
RULE
*{'sub_application'} = Pugs::Compiler::Rule->compile(<<'RULE')->c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3909	4071	
==>_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      for(i=0;i<=r->nparens;i++) {
        r->startp[i] = -1;
        r->endp <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14132	14218	
==>e_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charname_to_char(Name,C) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10359	10464	
==>. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tests of Set.

=cut <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10359	10464	
==>. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tests of Set.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	462	599	
==>.block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	462	599	
==>.block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	385	497	
==>tch failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/fal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	367	474	
==>tch failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/fal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10731	10826	
==>ssing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10731	10826	
==>ssing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Rose <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	434	543	
==>$class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	434	543	
==>$class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{boo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3939	4036	
==>NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3939	4036	
==>NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta ver <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7613	7717	
==>tatement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1438	1542	
==>tatement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1702	1838	
==>if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    retu <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1702	1838	
==>if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1676	1775	
==>enExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1676	1775	
==>enExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	901	1010	
==>turn $self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	901	1010	
==>turn $self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -In <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5503	5637	
==>Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implement database access requests.
    my Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5503	5637	
==>Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implement database access requests.
    my Rosetta::Interface <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1177	1273	
==>time::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1177	1273	
==>time::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	251	357	
==>ssor';

=head1 METHODS

=head2 $meta = JIB::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25500	25595	
==>, and each attribute is a column, but a Relation::Example is not a table.

The Relation::Example <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22822	22913	
==>Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22822	22913	
==>Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<T <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	644	743	
==>] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	644	743	
==>] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19507	19622	
==>ystem catalog relation variables rather than user-defined
relation variables.  In SQL terms, you create or alter tab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19507	19622	
==>ystem catalog relation variables rather than user-defined
relation variables.  In SQL terms, you create or alter tab <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1268	1358	
==>ontinuation (i.e. returns whatever the
continuation returns) with an updated C<Result> obje <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1268	1358	
==>ontinuation (i.e. returns whatever the
continuation returns) with an updated C<Result> obje <==
2	/Users/nnunley/pugs/util/package-osx.pl	11869	11959	
==>_files($dest, %change_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6491	6608	
==>OS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROP <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8945	9045	
==>DE TCxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NODE TT <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13955	14096	
==>in => \@bins, auto => 1, package => $inst_pkg->package } 
                ) or return;

    ### dump out alternatives again
    ### XXX pretty <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9940	10035	
==>n C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elemen <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9940	10035	
==>n C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elemen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15578	15718	
==>rl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (im <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15578	15718	
==>rl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (im <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23199	23299	
==>.raw("...")>

Sends a command to the server. The command is not modified by this module,
aside from a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23199	23299	
==>.raw("...")>

Sends a command to the server. The command is not modified by this module,
aside from a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7663	7775	
==>erence to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements int <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7663	7775	
==>erence to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements int <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1156	1333	
==>$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1156	1333	
==>$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!param <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	763	861	
==>S{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $r <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	763	861	
==>S{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	84	203	
==>edefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} = sub { $w };
}

### This is the ONLY module that sh <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5793	5881	
==>ental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_eleme <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7492	7579	
==>t_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim") an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	151	574	
==>.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # Ext <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	151	574	
==>.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # Ext <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2125	2232	
==>rn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2125	2232	
==>rn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1331	1440	
==>ument, which does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1331	1440	
==>ument, which does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	244	339	
==>nings;
no warnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Ba <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4856	4980	
==>ready have the method, then
            # ignore it and go to the next one
            next if $self->has_method($method_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2266	2377	
==>->{levels}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27329	27427	
==>a Message object does not permit changes to its attributes; they
must all be set when the object is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27329	27427	
==>a Message object does not permit changes to its attributes; they
must all be set when the object is <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3171	3330	
==>data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3171	3330	
==>data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9829	9929	
==>f self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9829	9929	
==>f self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4233	4330	
==>represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4233	4330	
==>represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19756	19863	
==>-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to have this organi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19756	19863	
==>-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to have this organi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15612	15716	
==>ntain the mapping from all characters to the corresponding entities
(and vice versa, respectively).

=hea <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15612	15716	
==>ntain the mapping from all characters to the corresponding entities
(and vice versa, respectively).

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3109	3207	
==>re can be called with a string, and should be called at the 
end of enciphering with zero arguments <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3109	3207	
==>re can be called with a string, and should be called at the 
end of enciphering with zero arguments <==
2	/Users/nnunley/pugs/util/testgraph.pl	704	821	
==>ig{inlinecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*STDOUT;
}
binm <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8319	8420	
==>)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2003	2108	
==>rl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2143	2248	
==>rl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	304	408	
==>port {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worke <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	304	408	
==>port {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worke <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9682	9799	
==>+ 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.pa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9682	9799	
==>+ 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	249	384	
==>s $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	249	384	
==>s $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2933	3063	
==>if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2933	3063	
==>if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate use <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1520	1743	
==>else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi su <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1520	1743	
==>else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8430	8528	
==>cept the building of the tree, you can use the
parse() method to explicitly build it:

  $parser->p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16580	16675	
==>ationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <E <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3865	4032	
==>esolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $mayb <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4329	4496	
==>esolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $mayb <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3971	4094	
==>b _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3971	4094	
==>b _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = % <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	758	857	
==>the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	758	857	
==>the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	122	223	
==>r::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	122	223	
==>r::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2880	2985	
==>$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2880	2985	
==>$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4689	4784	
==>difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4689	4784	
==>difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4874	5002	
==>r eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4874	5002	
==>r eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	948	1052	
==>=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	948	1052	
==>=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1124	1262	
==>$config->jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $obj->meta(   $met <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4415	4525	
==>ule SingleLineCommentChar {  # see 7.4
      <!before <LineTerminator>> <SourceCharacter>
}
rule Token {  # see <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5581	5682	
==>$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::String $v) {
    ~$v e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7348	7460	
==>ccordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7348	7460	
==>ccordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(nor <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	243	342	
==>essfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tri <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	243	342	
==>essfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3362	3457	
==>$span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3362	3457	
==>$span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12247	12381	
==>to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12247	12381	
==>to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	289	413	
==>f.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	289	413	
==>f.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33240	33405	
==>->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('is_a'),
    # me <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3644	3758	
==>ession' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3644	3758	
==>ession' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LVa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4048	4139	
==>0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4048	4139	
==>0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7312	7412	
==>gexp::Parser::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5880	5995	
==>le( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar::Term.bar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	373	474	
==>atchObj->position($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  retu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2439	2580	
==>t appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2439	2580	
==>t appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28451	28572	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28730	28851	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1006	1136	
==>ule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigsp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1006	1136	
==>ule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigsp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3937	4065	
==>an0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3937	4065	
==>an0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	812	991	
==>args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	812	991	
==>args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|par <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1982	2100	
==>y $self = shift;
    my $attr = shift;

    # $attr may be a T2::Attribute or a T2::Association, but as they
    # both <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7525	7636	
==>unction gets as argument a list:



### we don't need a "high" level interface (named args) 

###    because the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7269	7377	
==>unction gets as argument a list:

### we don't need a "high" level interface (named args) 
###    because the <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	976	1067	
==>Config{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
push @{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	462	586	
==>_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{check_ <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	482	594	
==>_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8456	8573	
==>s_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8514	8631	
==>s_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_f <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	622	836	
==>er $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            give <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	622	836	
==>er $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            give <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19623	19729	
==>ions rather than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24175	24281	
==>ions rather than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14217	14316	
==>tfixExpression :words {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHandSideExpression><no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3677	3928	
==>e::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3677	3928	
==>e::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4956	5068	
==>a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4956	5068	
==>a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22617	22708	
==>.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22617	22708	
==>.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15639	15769	
==>, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15639	15769	
==>, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if de <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2187	2288	
==>.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The id <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2187	2288	
==>.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The id <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	40	145	
==>d1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algor <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	40	145	
==>d1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30311	30407	
==>tion of this object.  It includes the visual
representation of any children of the object.

=item <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36459	36557	
==>f any number of objects

Ender: tail

=head2 ifthen

Family: assertion

Types: ifthen (C<(?(>)

Dat <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6809	6905	
==>le)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking the I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6809	6905	
==>le)

Get and store a document identified by a URL, using
I<If-modified-since>, and checking the I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	173	295	
==>l6;

my $bin;
BEGIN { $bin = ((dirname(__FILE__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub pmc_compile {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6102	6204	
==>cument $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6102	6204	
==>cument $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23619	23733	
==>cat ".sub anon :anon\n.param pmc match\n", $S1
    $S1 .= "\n.end\n"
    self["value"] = $S1
  end:
    .return (se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2593	2715	
==>_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@field <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2593	2715	
==>_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@field <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5377	5494	
==>Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5435	5552	
==>Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8532	8659	
==>rence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $unive <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8532	8659	
==>rence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $unive <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	63	198	
==>::Bit;

package C3;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	840	962	
==>() {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	840	962	
==>() {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $reques <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25525	25629	
==>her components when and as the GPL requires distribution of
source code.  However, for an additional fee, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25525	25629	
==>her components when and as the GPL requires distribution of
source code.  However, for an additional fee, <==
2	/Users/nnunley/pugs/util/munge_haddock.pl	145	247	
==>OCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 -}/;
  print "\n\n-- #ignore-exports\n" if /^module/;
  pri <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3264	3377	
==>b parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11007	11112	
==>subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11007	11112	
==>subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9838	9947	
==>$is_vms && !/^\"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    }
}

sub _create_runperl { # Create the strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3371	3475	
==>ht/non/chain/list
  (is parsed)
  (will do)
  
  my $cat = Pugs::Grammar::Category->new( 
    name => 'rx <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4731	4841	
==>, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4731	4841	
==>, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2550	2663	
==>r that ciphering steps may not return all (or any) of the data you 
passed in, and that the finishing step may ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2550	2663	
==>r that ciphering steps may not return all (or any) of the data you 
passed in, and that the finishing step may ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10523	10619	
==>ore <[*\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule RegularExpressionChar {  # see 7. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19413	19513	
==>ext the user
sees, you only have to update said separate resource files, and not change
your main pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19413	19513	
==>ext the user
sees, you only have to update said separate resource files, and not change
your main pro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1542	1644	
==>adding $opt->{name}\n";
    $opt->{assoc} = 'left' unless defined $opt->{assoc};
    for ( 0 .. $#{$sel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15893	16002	
==>e => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15893	16002	
==>e => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6467	6583	
==>::!g;

        # If we have a mixed-case package name, assume case has been preserved
        # correctly.  Otherwise <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	712	816	
==>-----

use strict;
use IO::All;
use Regexp::Common;
use Data::Dumper;

# -------------------------------- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	689	791	
==>----------------------------

use strict;
use IO::All;
use Regexp::Common;
use Data::Dumper;

# ------- <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1379	1571	
==>eq 'revision';
                return 0 unless defined $o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	379	482	
==>ar::Base';

*pod = Pugs::Compiler::Token->compile(q(
  \= <'cut'> \N* [\n|$] |
  \N* [ $ | \n <pod> ]
)) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2171	2267	
==>del (M2)

=head1 SYNOPSIS

 my $role_mc = Meta::Class.new("Role");
 my $class_mc = Meta::Class.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3560	3655	
==>it)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<chara <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3744	3839	
==>it)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<chara <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13891	14029	
==>nnel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13891	14029	
==>nnel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	653	742	
==>ct From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	653	742	
==>ct From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2114	2259	
==>HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2114	2259	
==>HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2711	2825	
==>s $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2711	2825	
==>s $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

m <==
2	/Users/nnunley/pugs/util/func_refact.pl	1496	1614	
==>w};

    my $size = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while (scal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15338	15436	
==>ted, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15396	15494	
==>ted, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2160	2287	
==>_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2160	2287	
==>_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifie <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3077	3209	
==>) ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3077	3209	
==>) ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	564	671	
==>ypemap to make all those stuff live in Inline::Parrot::PMC
our $interpreter;
use overload '0+' => sub {Inlin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5231	5335	
==>ists $roles{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $_does);
};

# our class(Role), which is al <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1485	1584	
==>vert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is export {
    Date <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3710	3884	
==>this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	452	620	
==>]);
        },        
        methods => {
            'array_fetch' => sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9089	9193	
==>ODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8656	8748	
==>_neg(L), !.
p5_modifier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11111	11267	
==>ity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11111	11267	
==>ity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3160	3357	
==>*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.item <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3160	3357	
==>*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15665	15794	
==>b ternary {
    my $n = $_[0];
    # print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1319	1428	
==>Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for container

alloca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1261	1367	
==>Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for container
alloca <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1635	1738	
==>ad1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The construc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1635	1738	
==>ad1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The construc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1765	1918	
==>";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelud <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1441	1564	
==>t fairly simple code with tolerable performance.

However, pugs critical path is currently more oo than rules, my time
is li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2472	2661	
==>(@_) {
        if (defined $x and not ref $x) {
            my $y = '';
            foreach my $c (unpack("U*", $x)) {
                if ($c > 255) {
                    $y .= sprintf "\\x{ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1648	1752	
==>alent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Inf <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1648	1752	
==>alent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Inf <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	228	331	
==>IL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" }) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	228	331	
==>IL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" }) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7719	7827	
==>capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7458	7562	
==>capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7903	8029	
==>15),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7903	8029	
==>15),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14820	14971	
==>leop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15099	15250	
==>leop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         rul <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10408	10524	
==>ion but no final
    # spec, see the thread rooted at <20050502192508.GF24107@sike.forum2.org>
    # on p6-l.

    mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12924	13081	
==>{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6399	6556	
==>{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10788	10925	
==>m server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10788	10925	
==>m server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8969	9114	
==>, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8656	8797	
==>, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2433	2527	
==>es and throwing the return value away.
Encryptions after this point will be using stronger port <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2433	2527	
==>es and throwing the return value away.
Encryptions after this point will be using stronger port <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15449	15549	
==>attributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15449	15549	
==>attributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4803	4931	
==>{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4791	4919	
==>{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look u <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11152	11282	
==>n $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11152	11282	
==>n $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zero <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18174	18290	
==>g_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18174	18290	
==>g_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33245	33346	
==>hey appear in this array until a match for that message is found.  Since a
program or library may wish <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33245	33346	
==>hey appear in this array until a match for that message is found.  Since a
program or library may wish <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	233	430	
==>%relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_[1]-1, 0, [ $_[2] ] ) },
    looser  => sub { splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	189	317	
==>se v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => 'ro');
#
# sub clear {
#  my $self = shift;
# <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2355	2575	
==>";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2355	2575	
==>";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!conten <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7318	7425	
==>o packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7318	7425	
==>o packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4147	4266	
==>es[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4019	4136	
==>es[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{captur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10923	11038	
==>le_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10923	11038	
==>le_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35627	35722	
==>y version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40177	40272	
==>y version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1548	1649	
==>:Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1548	1649	
==>:Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2019	2134	
==>roto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || ' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2019	2134	
==>roto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	752	858	
==>r accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1236	1342	
==>r accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16573	16689	
==>_ > 1;
    return () if @_ < 1;
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_p6obj_handlers{ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1423	1521	
==>{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.round <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	989	1094	
==>cessed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of im <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	989	1094	
==>cessed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of im <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17860	17964	
==>tion about the software being
used by the originating server program handling the request.

=item $h.from <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17860	17964	
==>tion about the software being
used by the originating server program handling the request.

=item $h.from <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1840	1959	
==>n \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./pars <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1840	1959	
==>n \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./pars <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1018	1276	
==>turn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1018	1276	
==>turn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3082	3178	
==>following request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3082	3178	
==>following request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1533	1652	
==>, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readlin <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1533	1652	
==>, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readlin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2844	2953	
==>Rule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2844	2953	
==>Rule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2576	2689	
==>ovides {
    my $self     = shift;
    my $provides = ( $self->{values}{provides} ||= {} );
    %$provides = (%$pr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14927	15035	
==>ine, $test) = @_;

    # We pulverize the line down into pieces in three parts.
    if( my($not, $num, $extra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4361	4471	
==>submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4361	4471	
==>submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2227	2365	
==>r better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unle <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3588	3718	
==>r better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unle <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1941	2032	
==>uilder;

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1980	2100	
==>}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14500	14619	
==>}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	233	351	
==>_nil     { bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $result = $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17797	17905	
==>eturn $m;
    }
  }
  return MatchX->new()->set_as_failed;
}
sub match_re {
  my($re,$s)=@_;
  my $r = compil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1998	2101	
==>s;
    ($args->length()->less_than_or_equal_to($params->length) == $bit::TRUE)
        || confess "too m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9915	10081	
==>ct next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9915	10081	
==>ct next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.cu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14595	14710	
==>RST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14595	14710	
==>RST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9712	9841	
==>$val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$dom <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9712	9841	
==>$val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$dom <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18431	18537	
==>morphic when used in a let expr.
my $id_pair = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7929	8021	
==>") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7929	8021	
==>") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1431	1548	
==>ME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.w <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1431	1548	
==>ME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.w <==
2	/Users/nnunley/pugs/misc/S29_round.pl	110	223	
==>down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1758	1889	
==>'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1758	1889	
==>'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9889	10001	
==>ue pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Fe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9889	10001	
==>ue pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Fe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	598	744	
==>ce(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buf <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	598	744	
==>ce(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buf <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1609	1826	
==>pod 8651.
 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	747	840	
==>rds Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Range <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	747	840	
==>rds Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Range <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	739	876	
==>se created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	739	876	
==>se created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15961	16058	
==>@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15961	16058	
==>@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16418	16526	
==>what's right?
      perl6_object => sub { $_[0] },
     );
sub p6_perl6_objects_from_whatever {
    return (m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5704	5800	
==>stantiate {
	my $self = shift;
	$self->{instance} = shift;
	bless $self, "type::variable::instant <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20659	20761	
==>r> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20659	20761	
==>r> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17549	17690	
==>ap = [];
    my $m = MatchX->new();
    local $X::current_match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::ca <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	810	912	
==>llbin},
        installsitebin => $Config{installsitebin} || $Config{installsbin},

        installman1 <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2181	2272	
==>ternate engine may introduce additional security or memory problems.

Tainting information i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7837	7939	
==>lement ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7837	7939	
==>lement ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3392	3499	
==>ogged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3392	3499	
==>ogged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %hand <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2552	2738	
==>>mk_accessors( qw[available registered_alternatives config 
                                   dir] 
                            );
            
            ### set these 2 first, the oth <==
2	/Users/nnunley/pugs/util/fixauthors.pl	267	403	
==>$_; $x=~tr/A-Za-z//cd; [$_, $x]} 
  @a;

foreach (@a) {
  next unless /\)$/;
  next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13571	13666	
==>onds exactly to the named parameters of
Document.new(); you can produce a direct clone like this <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13571	13666	
==>onds exactly to the named parameters of
Document.new(); you can produce a direct clone like this <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7011	7142	
==>@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7011	7142	
==>@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1166	1353	
==>'$.passed'      =>                        1,
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	129	227	
==>erl6::Core::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Uti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30076	30185	
==>m to handle ')', so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30362	30485	
==>as part of a set, at least one member
large, with each set member being an an exclusive alternative for the rest
of the set. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30362	30485	
==>as part of a set, at least one member
large, with each set member being an an exclusive alternative for the rest
of the set. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6775	6908	
==>re
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6775	6908	
==>re
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1886	2022	
==>trict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1886	2022	
==>trict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10139	10240	
==>$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10139	10240	
==>$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_te <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1097	1211	
==>turns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - A <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1097	1211	
==>turns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4554	4664	
==>els{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4554	4664	
==>els{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14143	14298	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14422	14577	
==>->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ru <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4065	4161	
==>le => *DATA, die_on_bad_params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(pr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4948	5048	
==>l_tree)=@_;
    return (undef,"emit: pil_tree was undefined") if !defined $pil_tree;
    use Data::Du <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	643	741	
==>ract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Date {
    #$self.add($du <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17461	17553	
==>next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17461	17553	
==>next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	996	1131	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	996	1131	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23196	23395	
==>ns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method supercla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1393	1493	
==>'-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15789	15891	
==>pend the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15847	15949	
==>pend the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9415	9557	
==>', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9415	9557	
==>', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4119	4366	
==>eader' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4119	4366	
==>eader' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                wh <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5594	5681	
==>y $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	848	955	
==>al packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # At <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	848	955	
==>al packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # At <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3419	3625	
==>if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => 1,
                        match => '{',
                        tail  => substr( $match, 1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49367	49485	
==>elf:')->set_attr(symbol->new('$:version'), $e->get('?$version'));
                  }));
                $e->get('$self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23642	23786	
==>lock', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23921	24065	
==>lock', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14598	14738	
==>field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

=head1 DE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14598	14738	
==>field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9814	9913	
==>e very first module written for Pugs.

It provides a simple set of common test utility functions, an <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9872	9971	
==>e very first module written for Pugs.

It provides a simple set of common test utility functions, an <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10063	10174	
==>es.

Note that all set functions may end up being calculated using iterations, 
which can be slow sometimes.
Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10063	10174	
==>es.

Note that all set functions may end up being calculated using iterations, 
which can be slow sometimes.
Set <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1630	1735	
==>pty C<$match.match> to fill (this introduces a new scope).
If no $num or $name is given, a new scope is in <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1630	1735	
==>pty C<$match.match> to fill (this introduces a new scope).
If no $num or $name is given, a new scope is in <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21277	21360	
==>tcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant'))) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44184	44267	
==>tcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant'))) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8027	8135	
==>ns a Match object that has no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7756	7861	
==>ns a Match object that has no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2545	2649	
==>ammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2685	2789	
==>ammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "ma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6504	6603	
==>ol::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "intern <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6504	6603	
==>ol::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "intern <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	268	382	
==>Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inlin <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	268	382	
==>Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inlin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13763	13937	
==>@$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sigil
            return $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1450	1555	
==>gh it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex i <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1450	1555	
==>gh it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9447	9562	
==>w) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9447	9562	
==>w) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11299	11423	
==>uleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11578	11702	
==>uleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8750	8866	
==>a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8750	8866	
==>a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

= <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	783	893	
==>understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pra <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	783	893	
==>understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pra <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8344	8454	
==>iterated.

=back



=head2 List

=over

=item grep

 multi Array::grep (@values ;      Code *&test   --> Lazy ) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4917	5020	
==>e name will be --iso.

Options may be abbreviated to uniqueness.

Author:         Ingo Blechschmidt <ibl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3644	3770	
==>other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal', <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48663	48819	
==>bute->new('$:authority' => 'str')));

$::Module->send('add_method' => (
    # method label
        symbol->new('version'),
    # method body
        method-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	965	1094	
==>~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::int_size 2;
Clutter::int <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11946	12043	
==>ck

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11946	12043	
==>ck

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This meth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6531	6643	
==>AL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL */

    
    /* XXX Doe <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	750	853	
==>rs = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns In <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	750	853	
==>rs = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns In <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1208	1313	
==><'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1208	1313	
==><'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6686	6832	
==>} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6470	6607	
==>} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	894	1041	
==>ix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        ass <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	919	1066	
==>ix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        ass <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5307	5460	
==>is way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't nee <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5771	5924	
==>is way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't nee <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	814	931	
==>=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	814	931	
==>=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9294	9393	
==>h @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3119	3218	
==>h @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_def <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	619	749	
==>k or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	619	749	
==>k or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2273	2368	
==>til/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml harness: $!";
system($^ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4439	4551	
==>ut {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4439	4551	
==>ut {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	227	366	
==>> sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.passed'};
            $para <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2042	2134	
==>dth'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?CONFIG{'num_width'} == <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5531	5634	
==>files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter relate <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5340	5441	
==>files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter relate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17946	18045	
==>lated from each other, even if more than one uses the
same Engine class to implement it; that is, mu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17946	18045	
==>lated from each other, even if more than one uses the
same Engine class to implement it; that is, mu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17338	17447	
==>ading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20815	20924	
==>ading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9654	9758	
==>pan0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9654	9758	
==>pan0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	769	896	
==>rror message if attempting to flatten() an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsup <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	769	896	
==>rror message if attempting to flatten() an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsup <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16959	17133	
==>" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    our $indent ||= 0;
    local $i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1907	2001	
==>interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier, o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1907	2001	
==>interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier, o <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1051	1165	
==>nfinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    retu <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1051	1165	
==>nfinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6594	6694	
==>d returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
aki <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6594	6694	
==>d returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
aki <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7695	7851	
==>|| $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary l <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7695	7851	
==>|| $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary l <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	563	665	
==>proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	563	665	
==>proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2027	2124	
==>about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::D <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2027	2124	
==>about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::D <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5278	5381	
==>t value, 
this allows r/w access to the value.

=item B<apply (closure) return list>

The closure here w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29858	29959	
==>t a matching left parenthesis '('; if there is an extra ')'
a fatal error is thrown.  However, the nat <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1898	2009	
==>rectly returning this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.str <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1898	2009	
==>rectly returning this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19198	19290	
==>ple C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19198	19290	
==>ple C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4781	4882	
==>ype) returns list>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15145	15245	
==>ype. The function signatures will likely look something
like this:

  multi sub is_deeply (Array @got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15203	15303	
==>ype. The function signatures will likely look something
like this:

  multi sub is_deeply (Array @got <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3696	3826	
==>pt appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3918	4022	
==>in Handlers.pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7354	7445	
==>6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1179	1270	
==>6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12720	12814	
==>rset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12720	12814	
==>rset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3550	3647	
==>28 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=ba <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3550	3647	
==>28 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2168	2301	
==>_get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2168	2301	
==>_get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30458	30551	
==>o dive into the node's children
when using a walker (see L<Regexp::Parser/"Walking the Tree">) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13532	13645	
==>3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13532	13645	
==>3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $sour <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4673	4854	
==>"Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to in <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3281	3372	
==>{true}.


p5_concatenation(Z)    --> p5_quantified(W), p5_concatenation_more(W, Z), !.
p5_co <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1160	1264	
==>self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1160	1264	
==>self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2010	2164	
==>emp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3540	3689	
==>emp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5712	5847	
==>ch => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5712	5847	
==>ch => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25003	25136	
==>g
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxCUR               { substr <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	607	742	
==>ic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic::abs ( Num $x = CALLER::<$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4034	4144	
==>han.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4034	4144	
==>han.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2811	2923	
==>$opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++;
    #my $fixity = $opt->{fixity};
    #$fixity .= '_' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7555	7662	
==>riable
	$_[0]->instantiate($_[1]);
};
multi unify => ('type::operator', 'type::variable::free') => sub { $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	804	929	
==>tr";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	823	939	
==>tr";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25894	26008	
==>ils subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation::Example Heading>

Set of St <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5405	5519	
==>cket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4680	4822	
==>+;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4680	4822	
==>+;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11128	11248	
==>ogin => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11128	11248	
==>ogin => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21314	21420	
==>end('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44221	44327	
==>end('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11444	11534	
==>ar->singleton_test_on_object } '... instance calling metaclass singleton method fails';

is <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4230	4365	
==>eiling ( Num $x ) {
    my $x_round = ceil($x);

    return $x_round;
}

our Int multi Num::round_floor ( Num $x ) {
    my $x_round = f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1103	1213	
==>'/registered-alts';       # registered alternatives
$Alternatives   = $Meta . '/alternatives';          # Alter <==
2	/Users/nnunley/pugs/util/build_pugs.pl	141	242	
==>ind);
use File::Basename qw(dirname);

our %BuildPrefs;
use Config;
use FindBin;
BEGIN { chdir $FindBi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7040	7153	
==>.
sub prefix:<[.[]]> (*$head is copy, *@rest is copy) {
  while @rest {
    $head = $head[shift @rest];
  }
  $hea <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7809	7928	
==>( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1110	1229	
==>( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1075	1182	
==>d response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1075	1182	
==>d response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  r <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2013	2134	
==>s->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_require <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2893	3014	
==>s->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_require <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20036	20155	
==>'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20315	20434	
==>'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1528	1644	
==>!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ir <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1528	1644	
==>!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ir <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2218	2349	
==>$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6_type = $type_lookup{$attr->type} ) {
        return [ $name => { typ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11934	12037	
==>\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_val_i);
      my $ok = substr($X <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8315	8449	
==>g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_I <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8315	8449	
==>g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13859	13971	
==>ine
is called with two parameters; the name of the field and a single
value (a string).  If a header field is mul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13859	13971	
==>ine
is called with two parameters; the name of the field and a single
value (a string).  If a header field is mul <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5487	5582	
==>n)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5487	5582	
==>n)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11859	12055	
==>rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11859	12055	
==>rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3466	3564	
==>ameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this return <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3466	3564	
==>ameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this return <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10049	10225	
==>, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10049	10225	
==>, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17310	17412	
==>benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17310	17412	
==>benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Mod <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	49	160	
==>-
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------------------ <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	49	160	
==>-
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ------------------ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	981	1102	
==>$protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.def <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	981	1102	
==>$protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.def <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11407	11500	
==>lue.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'M <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11407	11500	
==>lue.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'M <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15298	15409	
==>get" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15298	15409	
==>get" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15671	15773	
==>is) }
let: generic($$) = { generic($.in) }

# the env is augmented to contain the new symbol introduced <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4848	4975	
==>ostfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4848	4975	
==>ostfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8610	8705	
==>w( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8610	8705	
==>w( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4746	4842	
==>::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4886	4982	
==>::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implem <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11266	11437	
==>nt block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11266	11437	
==>nt block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1796	1898	
==>aram>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionNa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1796	1898	
==>aram>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionNa <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2733	2832	
==>e fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It re <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2733	2832	
==>e fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1827	1941	
==>lback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1827	1941	
==>lback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $conten <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	468	632	
==>reate_arguments( @args ) );
        }

        my multi sub collect_arguments ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $no <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	45	151	
==>-----
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# --------- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	45	151	
==>-----
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# --------- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2304	2409	
==>phering.

Both of these functions return a closure.  Call the closure with a block of 
data to have it enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2304	2409	
==>phering.

Both of these functions return a closure.  Call the closure with a block of 
data to have it enc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7852	7974	
==>efined $rb->[$i];
	return 0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($orig, $suspect) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4983	5117	
==>l in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4983	5117	
==>l in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache3 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1603	1696	
==>full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1603	1696	
==>full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5724	5834	
==>entation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5527	5631	
==>entation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors retur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8726	8839	
==>remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # variou <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8726	8839	
==>remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # variou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5959	6055	
==>normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<ob <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5959	6055	
==>normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38328	38468	
==>ds) {
      $_ = $self->{rx}->object($type => 1, @$_);
    }

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	259	376	
==>caller;
    bless { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Ru <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	341	450	
==>RUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harness::Straps <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17909	18003	
==>RA-03542'.  These codes
are "machine readable"; any application receiving such a code can ident <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17909	18003	
==>RA-03542'.  These codes
are "machine readable"; any application receiving such a code can ident <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9058	9162	
==>self.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!see <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9058	9162	
==>self.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!see <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13060	13199	
==>e( q( [ <?ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \" <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1889	1991	
==>/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but have distinct di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9266	9395	
==>}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11581	11710	
==>}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12088	12222	
==>les) {
        if(-d "$parrot_path/runtime/parrot/include/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	215	331	
==>('x' => sub { 0x8 });

  # (useless) /g, /c, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6144	6284	
==>nt $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local variable '$out' inside the parser
    # $p =~ s/my\(\$self\)=/my \$ou <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15307	15418	
==>t these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15307	15418	
==>t these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entitie <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4854	4959	
==>.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4854	4959	
==>.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.co <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19649	19777	
==>ubtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $bonusm <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7582	7694	
==>kenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1:
  my $arity = $$temp1{arity};
  $temp1 = pop @operator <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2853	2955	
==>e.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
fr <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2853	2955	
==>e.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
fr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1578	1693	
==>e any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURITY> for important c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1578	1693	
==>e any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURITY> for important c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19876	19973	
==>ll return two
values; the user name and the password.  In scalar context it will
return I<"uname:p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19876	19973	
==>ll return two
values; the user name and the password.  In scalar context it will
return I<"uname:p <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2107	2225	
==>warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2085	2203	
==>warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11116	11219	
==>r in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11116	11219	
==>r in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	410	528	
==>"Could not build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5561	5696	
==>s defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5783	5918	
==>s defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #pr <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1845	1959	
==>r Int multi Num::round_ceiling (Num $x) {
	my Int $t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31627	31728	
==>e this class to
ensure that there is are no code-execution statements in a regex:

  use Regexp::NoCod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3859	3980	
==>malize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3859	3980	
==>malize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11602	11734	
==>.";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11602	11734	
==>.";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5112	5260	
==>Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::Lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5112	5260	
==>Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::Lis <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5383	5478	
==>s is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5383	5478	
==>s is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10652	10905	
==>->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text . <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10652	10905	
==>->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text . <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6564	6685	
==>_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6564	6685	
==>_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35347	35447	
==>ames()>

This method returns all Set Names elements in this object as an array ref.

=item C<get_memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35347	35447	
==>ames()>

This method returns all Set Names elements in this object as an array ref.

=item C<get_memb <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7767	7874	
==>}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Inf <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7767	7874	
==>}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3521	3629	
==>ompiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3396	3499	
==>ompiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4109	4216	
==>:Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4109	4216	
==>:Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9853	9967	
==>= type::variable::free->new;
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				type::operator <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4060	4171	
==>::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_inf <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4060	4171	
==>::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_inf <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9698	9834	
==>ich is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9698	9834	
==>ich is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2599	2733	
==>@cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2599	2733	
==>@cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9343	9433	
==>e C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of at <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9343	9433	
==>e C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of at <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1408	1531	
==>unless $delete_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $Files <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7777	7872	
==>s fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7777	7872	
==>s fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fire <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3816	3916	
==>ass. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3816	3916	
==>ass. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10918	11034	
==>:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10918	11034	
==>:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $li <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	784	891	
==>y defined as subs, which we can get away with since
   this is currently simply a code generator.

=cut

# X <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	784	891	
==>y defined as subs, which we can get away with since
   this is currently simply a code generator.

=cut

# X <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3608	3714	
==>method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3608	3714	
==>method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12741	12852	
==>on takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12799	12910	
==>on takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9114	9200	
==>Item1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_ch <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9218	9301	
==>Item1|MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_ch <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8713	8814	
==>and fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8713	8814	
==>and fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4942	5058	
==>ct ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4942	5058	
==>ct ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23245	23343	
==>he command is not modified by this module,
aside from appending the correct newline characters.

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23245	23343	
==>he command is not modified by this module,
aside from appending the correct newline characters.

=h <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	852	965	
==>15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => Fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	737	834	
==>15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => Fil <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2654	2793	
==>($x) ) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_alternate ( Num $x ) {
    my $x_round;
    state $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11533	11667	
==>"$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11527	11661	
==>"$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7051	7158	
==>l operators, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal rule oper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6811	6913	
==>l operators, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal rule oper <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16686	16793	
==>ng by itself to the user, but
rather returns its results for calling code to output as it sees fit.  It
also <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16686	16793	
==>ng by itself to the user, but
rather returns its results for calling code to output as it sees fit.  It
also <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2427	2571	
==>l_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need ver <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3385	3528	
==>l_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need ver <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2073	2177	
==>tart, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unle <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2073	2177	
==>tart, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unle <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8566	8784	
==>new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8566	8784	
==>new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1111	1243	
==>);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "n <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3274	3383	
==>ree.new(:node<Grammar>),
            Tree.new(:node<Type>).add_children(
                Tree.new(:node<Packag <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6777	6880	
==>f $@; }

package PIL::PIL1CPerl5::Util;
sub rebless_with_prefix {
    my($o,$prefix)=@_;
    my $ref = r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2800	2912	
==>servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2800	2912	
==>servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11969	12067	
==>ect(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4612	4710	
==>ect(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7810	7945	
==>chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7810	7945	
==>chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1195	1294	
==>e() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat() <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1195	1294	
==>e() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat() <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4310	4423	
==>atus_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5048	5159	
==>atus_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7802	7895	
==>eturns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should ass <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7802	7895	
==>eturns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should ass <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	24	119	
==>ict;
use warnings;

use Test::More tests => 13;

## -------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4455	4595	
==>,join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ]?"
        );
        #pri <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	312	424	
==>Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	312	424	
==>Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	79	207	
==>as $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submetho <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	79	207	
==>as $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submetho <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	354	505	
==>nd ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($sche <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	389	538	
==>nd !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($sche <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7108	7232	
==>_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7108	7232	
==>_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break t <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1721	1816	
==>ize)

The constructor takes as parameters at least C<rate of information> in
items per second an <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1721	1816	
==>ize)

The constructor takes as parameters at least C<rate of information> in
items per second an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	682	781	
==>tpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	682	781	
==>tpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2555	2679	
==>$code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2613	2737	
==>$code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5575	5722	
==>ft;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5398	5540	
==>ft;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7540	7649	
==>lt3 = sign($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = $Result3 % $n2_16;
    r <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1551	1685	
==>.;
        }
    }
  }

  my $session = MySession.new;
  say $POE::Kernel.post($session, "say_hello", "Ingo");
  # "Hello, Ingo!"

=hea <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2408	2500	
==>Yaswi apparently requires swi prolog be built ./configure --enable-shared.
=cut
# export LD_L <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28182	28292	
==>rns this Relation::Example's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9653	9751	
==>1") if $op{'isNamed'};
	push(@args,"writable=>1") if $op{'isWritable'};

	if(!$class && $op{'isInvo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7239	7337	
==>direct_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1064	1162	
==>direct_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1305	1447	
==>{perl5})};
    bless $self, $class;
}

1;

__END__

    $self->{code} = eval 
        $self->{perl5};
    carp "Error in perl 5 evalu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	997	1098	
==>gh? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	997	1098	
==>gh? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2237	2353	
==>ges used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2237	2353	
==>ges used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1239	1334	
==>ange supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), pre <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1239	1334	
==>ange supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), pre <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1355	1469	
==>$Storable::canonical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreeze($sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15346	15439	
==>Implements a min_length() method for all objects that determines the
minimum length of a strin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6764	6870	
==>h the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6764	6870	
==>h the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	311	478	
==>, $rule_source, $param ) = @_;
    my $self = { source => $rule_source };

    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Gram <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5585	5705	
==>$lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave _ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5585	5705	
==>$lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave _ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10340	10490	
==>c_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10340	10490	
==>c_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40029	40146	
==>g.  If the warning is called
from a character class, pass " in character class"; otherwise, pass an
empty string.

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	26	130	
==>le;
$Pugs::Compiler::Rule::VERSION = '0.06';

# Documentation in the __END__
use 5.006;
use strict;
use w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19602	19706	
==>marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19602	19706	
==>marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4052	4268	
==>ssoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17037	17149	
==>n of the span.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17037	17149	
==>n of the span.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5402	5501	
==>sers accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5402	5501	
==>sers accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq nor <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5915	6017	
==>X 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5915	6017	
==>X 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10188	10312	
==>ity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10188	10312	
==>ity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_enti <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7818	7994	
==>ntrol_structure:<if>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0) <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2515	2645	
==>heckHead {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4038	4171	
==>() {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4038	4171	
==>() {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	793	891	
==>tion of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	793	891	
==>tion of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	346	602	
==>s in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	346	602	
==>s in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the R <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7636	7755	
==>AnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_wi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7077	7191	
==>AnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_wi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24614	24716	
==>nch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21035	21137	
==>nch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7497	7607	
==>$repo->add_files($file1, $file2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	371	507	
==>ify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.nex <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	371	507	
==>ify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.nex <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5248	5383	
==>22),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5248	5383	
==>22),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27945	28038	
==>age Variable value (a string) associated with
the variable name specified in the positional pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27945	28038	
==>age Variable value (a string) associated with
the variable name specified in the positional pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2983	3128	
==>E = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't ope <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3200	3345	
==>E = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't ope <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	610	705	
==>ncoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-None-Matc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	610	705	
==>ncoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-None-Matc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14968	15062	
==>hod oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14968	15062	
==>hod oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10327	10428	
==>byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10327	10428	
==>byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16182	16274	
==>) :- \+(rm(Re,F0,_,B0,_,E0,_)).

rm(lookbehind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15563	15682	
==>eue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15563	15682	
==>eue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	265	392	
==>)
        || confess "C3 only accepts classes";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3803	3907	
==><[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3803	3907	
==><[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7628	7775	
==>efined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7628	7775	
==>efined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.define <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2177	2403	
==>t) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2177	2403	
==>t) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    retur <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	104	207	
==>ing/;

use strict;
use warnings;

use UNIVERSAL::require;
use Blondie::TypeSafe ();

use Blondie::Backen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	113	238	
==>YAML                    qw[LoadFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	836	994	
==>tch->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	829	987	
==>tch->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	273	406	
==>(@ARGV ) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry to install
        next unless $entry->{packa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18468	18555	
==>,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13203	13311	
==>printf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6678	6786	
==>printf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4018	4100	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4018	4100	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11470	11571	
==>ot, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fun <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11528	11629	
==>ot, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This fun <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1252	1384	
==>$dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        un <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	812	944	
==>$dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14743	14857	
==>r $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $tar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14743	14857	
==>r $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $tar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	105	203	
==>se Pugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement the "magic has <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4365	4509	
==>lems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4365	4509	
==>lems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1715	1826	
==>ethod clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1715	1826	
==>ethod clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18939	19073	
==>ta} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20297	20431	
==>ta} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2623	2731	
==><Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2623	2731	
==><Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18506	18610	
==>en} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19864	19968	
==>en} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10655	10753	
==>ons

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function curre <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10713	10811	
==>ons

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function curre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4672	4792	
==>eeded cases, but will
        # definately be helpful for things such as == and <= that fail
        if ($got eq $expecte <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9806	9912	
==>substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUME <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7618	7757	
==>BER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpolate t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7618	7757	
==>BER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpolate t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4390	4566	
==>sure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set('$_' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4765	4899	
==>rimitive.' .
                'No, Blondie will not have church integers any time soon.',
            ),
        ),

Inherits Unit.

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36791	36894	
==>h '&' and '!'.  '!' will indicate a negative look-ahead.

  package Regexp::AndBranch;
  use base 'Regex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19327	19427	
==>esource files used by the
program, so that if you wanted to upgrade or localize what text the user
se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19327	19427	
==>esource files used by the
program, so that if you wanted to upgrade or localize what text the user
se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	955	1079	
==>tal Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	955	1079	
==>tal Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	776	1105	
==>>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	776	1105	
==>>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5088	5232	
==>n;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5088	5232	
==>n;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3472	3574	
==>s unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an objec <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3472	3574	
==>s unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an objec <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2480	2597	
==>::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2480	2597	
==>::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23546	23653	
==>>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<No <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23546	23653	
==>>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<No <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2791	2881	
==>piler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?ope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2579	2666	
==>piler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2993	3147	
==>e;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2993	3147	
==>e;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16221	16335	
==>u get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use M <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16221	16335	
==>u get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	228	318	
==>= Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	261	351	
==>= Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11031	11148	
==>lf = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11031	11148	
==>lf = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6079	6180	
==>elf.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_ro <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6079	6180	
==>elf.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_ro <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4064	4196	
==>eamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postam <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3015	3133	
==>eamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postam <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1316	1416	
==>allbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    op <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1316	1416	
==>allbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    op <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17771	17873	
==>x,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17587	17687	
==>x,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm( <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1098	1249	
==>n] }, {%$event, revision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_sa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13593	13708	
==>ar name=unexpect> unexpectedly succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var na <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1703	1828	
==>harset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1703	1828	
==>harset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export { <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6490	6586	
==>l_local\" if you want mklivecd.pl to refetch the kernel.",
  ensure => sub { -r $kernel_local and <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14771	14870	
==>vironment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14771	14870	
==>vironment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6442	6553	
==>matcher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6225	6334	
==>matcher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11333	11478	
==>]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11327	11472	
==>]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	832	1071	
==>t( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	833	1072	
==>t( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2100	2224	
==>urn 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called bef <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2100	2224	
==>urn 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called bef <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	34	135	
==>s $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method emp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	34	135	
==>s $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method emp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3232	3506	
==>w(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3232	3506	
==>w(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r;
                            },
                    c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6658	6759	
==>tstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
return value i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6658	6759	
==>tstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
return value i <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	64	190	
==>? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	64	190	
==>? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23803	23898	
==>e main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28355	28450	
==>e main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(S <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21329	21424	
==>.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21329	21424	
==>.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2894	2991	
==>}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2894	2991	
==>}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1481	1593	
==>s int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1481	1593	
==>s int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $it <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8815	8930	
==>y $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8815	8930	
==>y $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4941	5037	
==>t::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4999	5095	
==>t::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1644	1782	
==>apital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1644	1782	
==>apital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1073	1228	
==>ytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1073	1228	
==>ytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21012	21114	
==>s that use Module::Compile based modules
will automatically be compiled into .pmc files and shipped wit <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21012	21114	
==>s that use Module::Compile based modules
will automatically be compiled into .pmc files and shipped wit <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2480	2626	
==>() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2480	2626	
==>() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4397	4533	
==>zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the nu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4397	4533	
==>zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the nu <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1577	1679	
==>n the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A ta <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1577	1679	
==>n the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A ta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16300	16430	
==>}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16300	16430	
==>}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4208	4302	
==>];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4208	4302	
==>];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3423	3519	
==>}
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_obj <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	205	294	
==>roup/perl.perl6.language/20985
  docs/quickref/rules
  http://search.cpan.org/dist/Perl6-B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6062	6201	
==>),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6062	6201	
==>),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964 <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20605	20696	
==>r connect eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1023	1213	
==>od uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1023	1213	
==>od uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    mult <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9353	9521	
==>$tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9353	9521	
==>$tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7132	7335	
==>:methods'))
                  ->store(
                      $e->get('$label'), 
                      $e->get('$method')
                  );
            }
        );

    # and use it to add itself to t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18633	18743	
==>ocal pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6anal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	293	411	
==>@{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1790	1896	
==>=undef; <F>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPer <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	656	766	
==>RSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	656	766	
==>RSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub g <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2260	2389	
==>t->has_failed();
    }
    return 0;
}
sub warnings {
    my($self)=@_;
    my $ret="";
    for my $stage ($self->_stages) {
	my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11884	11998	
==>B};
    my $perl = $self->_command;
    my @inc =`$perl -le "print join qq[\n], \@INC"`;
    chomp @inc;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34545	34649	
==>.

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => ['F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34545	34649	
==>.

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => ['F <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3649	3745	
==>ct = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3649	3745	
==>ct = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11298	11393	
==>t>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode ve <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11298	11393	
==>t>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode ve <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17787	17918	
==>mapped to a user-readable message at some point.  For example, Oracle
databases often have error codes in a format like 'ORA-03542'. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17787	17918	
==>mapped to a user-readable message at some point.  For example, Oracle
databases often have error codes in a format like 'ORA-03542'. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16909	17044	
==>ext} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13330	13465	
==>ext} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	245	502	
==>GS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	245	502	
==>GS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2384	2546	
==>} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2577	2739	
==>} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11698	11814	
==>constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11692	11808	
==>constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3204	3322	
==>s can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3388	3506	
==>s can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must sta <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1092	1202	
==>b values { values %{ $_[0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" } $_[0]->ke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	580	715	
==>NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_N <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	580	715	
==>NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_N <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19813	19968	
==>ot->{todo} > 1 ? 's' : '').
                   " TODO)")
            if $tot->{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{sk <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10266	10382	
==>y)=@_;

    my $info = $PIL::PIL1CPerl5::NodesInfo::node_named{$name};
    die "bug $name" if !$info;
    my $chk = j <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20178	20279	
==>a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20178	20279	
==>a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Prox <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3440	3531	
==>ral">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3624	3715	
==>ral">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%va <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10357	10453	
==>urrence set.

The complementary functions are emulated using iterations.

See also the section "U <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10357	10453	
==>urrence set.

The complementary functions are emulated using iterations.

See also the section "U <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24083	24227	
==>s, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24362	24506	
==>s, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capt <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	529	636	
==>!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.def <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	529	636	
==>!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.def <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10426	10540	
==>insert an item which is already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10426	10540	
==>insert an item which is already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_d <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	257	365	
==>ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPS <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	257	365	
==>ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPS <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13502	13603	
==>_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="tests_unexpect"><tmpl_var name=une <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25391	25487	
==>are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exit st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	560	655	
==>ame, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	560	655	
==>ame, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gra <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2914	3016	
==>gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of a <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2914	3016	
==>gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	448	640	
==>]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } el <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	448	640	
==>]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } el <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3478	3592	
==>if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } el <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3478	3592	
==>if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } el <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9642	9827	
==>atin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information fun <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9642	9827	
==>atin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information fun <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3743	3834	
==>p5_quantified(Z) --> p5_elemental(W), p5_quantified_op(W, Z).
p5_quantified_op(W, Z) --> p56 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	298	406	
==>@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	298	406	
==>@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3948	4067	
==>hod decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3948	4067	
==>hod decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1448	1564	
==>elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1415	1531	
==>elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	507	612	
==>}

sub provides {
    die "virtual method 'provides' called on @_";
}

sub run {
	die "virtual method 'run <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9996	10096	
==>unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for pr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9996	10096	
==>unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1824	1929	
==>turn $self;
  }
}


{
  # . \C
  package Regexp::Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__objec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8958	9074	
==>age is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wan <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10435	10551	
==>age is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wan <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17169	17296	
==>$$meta = $meta_object;
}
sub p6_initialize_package {
    my($pkg,$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucf <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	578	676	
==>map { Blondie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_dig <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	725	819	
==>=s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclud <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5511	5643	
==>psilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5511	5643	
==>psilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937), <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	168	270	
==>uthoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	168	270	
==>uthoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3988	4135	
==>rn $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3988	4135	
==>rn $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6757	6904	
==>!");
            return;
        }
    }
    
    return 1;
    
}

=head2 JIB::Utils->_mode_plus_w( file => '/path/to/file' );

Sets the +w bit for <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9974	10079	
==>);
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9974	10079	
==>);
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6499	6619	
==>{
        # Determine if requested template module is already loaded.
        # It may have been embedded in a core progr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6499	6619	
==>{
        # Determine if requested template module is already loaded.
        # It may have been embedded in a core progr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7473	7631	
==>niverse;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7473	7631	
==>niverse;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.univers <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38827	38925	
==>nt and whose body contains all of the tuples that
are in the invocant Relation::Example and that ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6652	6748	
==>ec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little < <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6652	6748	
==>ec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little < <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16609	16729	
==>ze(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use N <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16609	16729	
==>ze(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4382	4517	
==>$bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4575	4710	
==>$bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16361	16465	
==>s or user types simultaneously, and that allows any end users to add
support for new languages easily and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16361	16465	
==>s or user types simultaneously, and that allows any end users to add
support for new languages easily and <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20045	20192	
==>{
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16466	16613	
==>{
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17029	17132	
==>esource.

=item $h.content_length

A decimal number indicating the size in bytes of the message content. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17029	17132	
==>esource.

=item $h.content_length

A decimal number indicating the size in bytes of the message content. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3077	3177	
==>ipher data.
The encipherer closure can be called with a string, and should be called at the 
end of e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3077	3177	
==>ipher data.
The encipherer closure can be called with a string, and should be called at the 
end of e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1329	1434	
==>r_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1329	1434	
==>r_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#mul <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	121	225	
==>prefix:<?> := &true doesn't work yet.
sub prefix:<?> ($var) returns Bool is builtin is primitive { true $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11993	12190	
==>[ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11993	12190	
==>[ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6401	6506	
==>* Make sure environment is set up (also helps scare off perl) */
    r->reganch |= ROPT_GPOS_SEEN | ROPT_L <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	315	413	
==>t => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10813	10945	
==>$2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the opening delimite <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27073	27184	
==>ssEscape>
}



grammar JavaScript::ECMAScript3::Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9298	9425	
==>nless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9298	9425	
==>nless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3662	3799	
==>e.pl  # Convert the file. The script appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if( <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1057	1165	
==>e}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker p <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	269	372	
==>30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	269	372	
==>30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3935	4039	
==>d by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3935	4039	
==>d by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9618	9750	
==>affic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method discon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9618	9750	
==>affic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method discon <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1000	1097	
==>ersion
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1000	1097	
==>ersion
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17697	17788	
==>ods which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17697	17788	
==>ods which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34403	34521	
==>bject is set from the named parameter
@set_names (an array ref), and Member Names is set from the named parameter
@memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34403	34521	
==>bject is set from the named parameter
@set_names (an array ref), and Member Names is set from the named parameter
@memb <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10225	10347	
==>> type::variable::free->new),
		type::operator::nullary->new("bool"),
	),
	# list a -> a
	head => do {
		my $a = type::vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18449	18563	
==>[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	435	537	
==>::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	435	537	
==>::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	115	222	
==>tuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSI <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	115	222	
==>tuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18429	18527	
==>ost accurate program text
for users, we still get the best results by having a human being write ou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18429	18527	
==>ost accurate program text
for users, we still get the best results by having a human being write ou <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	618	717	
==>or:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	618	717	
==>or:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	737	862	
==>_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	737	862	
==>_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7651	7749	
==>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7651	7749	
==>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(norma <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3115	3253	
==>n /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3115	3253	
==>n /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16645	16751	
==>st time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16645	16751	
==>st time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13458	13570	
==>= 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
database queries, may occ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13458	13570	
==>= 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
database queries, may occ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5892	5992	
==>sg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5892	5992	
==>sg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Local <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3680	3877	
==>[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3533	3724	
==>[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24890	24995	
==>urns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C<exists (Mappin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29442	29547	
==>urns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C<exists (Mappin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	629	791	
==>e, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	629	791	
==>e, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1363	1474	
==>{
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1348	1453	
==>{
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4832	4938	
==>lf->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5176	5282	
==>lf->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1723	1822	
==>.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1723	1822	
==>.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16191	16293	
==>ore
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16191	16293	
==>ore
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	438	535	
==>n readable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RS <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	438	535	
==>n readable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RS <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2561	2671	
==>same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2561	2671	
==>same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18642	18773	
==>y(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(<E <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20765	20856	
==>],[C|Bx],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16821	16940	
==>irst    (  Str $string              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1290	1390	
==>/m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http://m19s28.vlinux.de/iblech/ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13794	13914	
==>real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13794	13914	
==>real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31349	31449	
==>iple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31349	31449	
==>iple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	741	983	
==>g) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=hea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	741	983	
==>g) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=hea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4087	4219	
==>ment_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4087	4219	
==>ment_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2864	2974	
==>next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2864	2974	
==>next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13547	13646	
==>ired> <MemberExpression> <Arguments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExpress <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1473	1566	
==>ullary: layout($$) = { $.name }

type::operator::nary: layout($$) = { join(" ", $.name, layout <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4503	4631	
==>ter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<"isNam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3504	3609	
==>d shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3504	3609	
==>d shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19272	19365	
==>iformity.

=item Documentation

Fixed some poor wording, and documented the problem with using <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9640	9741	
==>y {...}
# Many, but not all, ciphers will need to override these
method _head() returns Array { return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9640	9741	
==>y {...}
# Many, but not all, ciphers will need to override these
method _head() returns Array { return <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10056	10143	
==>fined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10791	10878	
==>fined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3465	3688	
==>{
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragrap <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3465	3688	
==>{
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragrap <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	716	840	
==>t { $fh } <<'END';
</ul>
<p>
Or <a href="#" onclick="openNewWindows(); return false;">open each link in a
new window</a>.  (U <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	279	378	
==>fied
    content_type content_encoding content_length content_language
    title user_agent server f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	279	378	
==>fied
    content_type content_encoding content_length content_language
    title user_agent server f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	663	794	
==>that is being matched against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated wh <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	663	794	
==>that is being matched against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10957	11070	
==>_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10951	11064	
==>_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $progr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12409	12518	
==>, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	799	900	
==>fined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	799	900	
==>fined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28105	28218	
==>apping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32657	32770	
==>apping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2930	3034	
==>le is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2930	3034	
==>le is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12331	12450	
==>b { Carp::carp("p6_as_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20933	21131	
==>constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21212	21410	
==>constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2502	2619	
==>eral
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before .. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2686	2803	
==>eral
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before .. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13008	13094	
==>e same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13008	13094	
==>e same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	866	959	
==>ence (?%.*s...) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use consta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39103	39196	
==>EE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39103	39196	
==>EE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7156	7254	
==>lt implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method _ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7156	7254	
==>lt implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method _ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9136	9238	
==>r};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9132	9234	
==>r};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quantif <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11056	11155	
==>tage to not be comparable.<br />
    The percentage of passed tests is calculated using the total nu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	186	292	
==>ift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	186	292	
==>ift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19811	19951	
==>v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16232	16372	
==>v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	922	1021	
==>, chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	922	1021	
==>, chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $exp <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1590	1689	
==>http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1590	1689	
==>http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1662	1774	
==>by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1662	1774	
==>by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3154	3262	
==>data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::No <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3154	3262	
==>data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::No <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2759	2900	
==>xt if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2759	2900	
==>xt if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10420	10529	
==>queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10420	10529	
==>queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	130	230	
==>> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	130	230	
==>> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6117	6211	
==>hods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6117	6211	
==>hods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12569	12681	
==>t will place it into
C<$comment> (sans #).

=cut

sub _is_comment {
    my($self, $line, $comment) = @_;

    if( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	166	277	
==>PE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## fun <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	166	277	
==>PE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## fun <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8077	8191	
==>turn Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8077	8191	
==>turn Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2764	2891	
==>"$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2764	2891	
==>"$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4543	4724	
==>nk_this
                }      

                last LINKING unless $link_this;

                my @bins;
                print "Linking scripts/manpages...\n";
                for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	784	946	
==>match unless $_[0];
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $2,
        capture => { cpan_bareword => $1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1776	1900	
==>$!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1776	1900	
==>$!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6151	6275	
==>n) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } els <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6151	6275	
==>n) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } els <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3397	3540	
==>ree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3397	3540	
==>ree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4877	4979	
==>) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5221	5323	
==>) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19184	19302	
==>||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20542	20660	
==>||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5662	5773	
==>ody, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5662	5773	
==>ody, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17851	17960	
==>heck on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17851	17960	
==>heck on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5414	5623	
==>rent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5414	5623	
==>rent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	388	501	
==>pher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq ' <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	388	501	
==>pher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18002	18102	
==>k

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep cop <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18002	18102	
==>k

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep cop <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2297	2419	
==>\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x' <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2297	2419	
==>\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5694	5812	
==>.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5694	5812	
==>.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4981	5087	
==>ment;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $pare <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4981	5087	
==>ment;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $pare <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5366	5486	
==>ject> <p6ws> <list> <p6ws>? \;
        { return { _print_with_fh => $() ,} }
RULE
*{'_print'} = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	654	747	
==>{}, $class;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({}) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16548	16680	
==>his step.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALLER::<$_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1375	1548	
==>('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1375	1548	
==>('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12845	13057	
==>rn 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12839	13051	
==>rn 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2192	2327	
==>ocation} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $Repoindex, @metalist );
    
    print "\n\n\nIndex writte <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3298	3438	
==>, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3356	3496	
==>, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	474	613	
==>th other types in the same level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_[0]- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5133	5240	
==>_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5133	5240	
==>_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8622	8729	
==>such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/loose <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6155	6259	
==>such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/loose <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10999	11154	
==>channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10999	11154	
==>channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connect <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3376	3475	
==>icense specified, setting license = 'unknown'\n"
      unless $values{license};

    $values{license <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19725	19817	
==>b PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSAN modules when <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2870	3035	
==>nsity($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2870	3035	
==>nsity($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3396	3488	
==>ian;# qw(duration);

#BEGIN {
#our &Date::Gregorian::duration ::= &Duration::Gregorian::durat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1307	1404	
==>nfig{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'li <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1307	1404	
==>nfig{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'li <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14491	14600	
==>d($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = sh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14491	14600	
==>d($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = sh <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3571	3704	
==>eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15471	15564	
==>mising implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15471	15564	
==>mising implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11622	11733	
==>gexp::Parser::tail;
}
{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19827	19934	
==>);
}
sub p6_eval_file {
    my($fn)=@_;
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10412	10536	
==>ldren(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10412	10536	
==>ldren(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21060	21164	
==>e last of these fields will be present in the header
after the call.  All values ought to be kept.

Passi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21060	21164	
==>e last of these fields will be present in the header
after the call.  All values ought to be kept.

Passi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1076	1220	
==>uring_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1076	1220	
==>uring_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6138	6242	
==>ne some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'sc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6138	6242	
==>ne some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'sc <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	664	783	
==>our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	664	783	
==>our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1709	1808	
==>last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1709	1808	
==>last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2367	2460	
==>ize < $other.size && $other.includes($self.members));
}
method superset($self: Set $other) ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2367	2460	
==>ize < $other.size && $other.includes($self.members));
}
method superset($self: Set $other) ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14026	14143	
==>@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_z <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17503	17620	
==>@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_z <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21081	21178	
==>es).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21081	21178	
==>es).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	445	558	
==>rns Void {
    $:type_tree = Tree.new().add_children(
        Tree.new(:node<Any>).add_children(
            Tree. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	835	953	
==>JSX::ValuePrimitive;
class JSX::Value::Boolean   is JSX::ValuePrimitive;
class JSX::Value::Number    is JSX::ValuePrimi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	318	418	
==>x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	318	418	
==>x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) return <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8102	8205	
==>This event is fired once the last '=item' directive, followed by any text on the same line.

=item I<sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8102	8205	
==>This event is fired once the last '=item' directive, followed by any text on the same line.

=item I<sta <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	774	901	
==>tart_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	774	901	
==>tart_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2793	2909	
==>t      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2793	2909	
==>t      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2984	3106	
==>ks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2984	3106	
==>ks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $bas <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1976	2096	
==>less -e $file;
        die "all_from: cannot find $file from $name" unless -e $file;
    }

    $self->version_from($file <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4650	4819	
==>my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement =     shift;
                map { $_->scalar_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26501	26596	
==>lf:) (opaque $subclass)) returns nil 
    (($self: get_attr (symbol new @:subclasses)) push ($su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1300	1425	
==>s Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1300	1425	
==>s Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3070	3249	
==>bug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3070	3249	
==>bug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   no <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	180	363	
==>cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecogniz <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	180	363	
==>cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecogniz <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4573	4678	
==>ATS

This is an experimental development version.  The API is still in flux.

The set of implemented featu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4823	4928	
==>ATS

This is an experimental development version.  The API is still in flux.

The set of implemented featu <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	276	417	
==>b.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file" <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	276	417	
==>b.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file" <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1748	1854	
==>efs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { requir <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7167	7266	
==>e type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7179	7278	
==>e type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16426	16552	
==>\G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12847	12973	
==>\G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1235	1328	
==>---------------------

Since you are using Microsoft Windows, you will need the 'nmake' utilit <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1075	1168	
==>---------------------

Since you are using Microsoft Windows, you will need the 'nmake' utilit <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1177	1310	
==>submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1177	1310	
==>submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13569	13721	
==>> ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13569	13721	
==>> ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_pers <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2424	2557	
==>2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2424	2557	
==>2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16081	16191	
==>esult is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, befo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16081	16191	
==>esult is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, befo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5878	5991	
==>($sn eq 'state') {
	warn "state PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($va <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2480	2597	
==>l C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primitive is uns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1444	1637	
==>ash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1444	1637	
==>ash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1990	2131	
==>ugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") i <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1990	2131	
==>ugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12162	12305	
==>$re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12162	12305	
==>$re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each he <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10377	10488	
==>ist of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10377	10488	
==>ist of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3560	3657	
==>mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r=%lu callback SV*=%lu\n", <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2591	2700	
==>!! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $v <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2591	2700	
==>!! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1474	1634	
==>> 
            (.value.does(Pair)
                ?? ( .value.key =>
                    (.value.value.does(Relation::Heading)
                        ?? .value. <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3586	3724	
==>{
        my $name = $values{module_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5927	6046	
==>opy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5927	6046	
==>opy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1231	1355	
==>bc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1231	1355	
==>bc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $g <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	322	424	
==>d of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPOR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	322	424	
==>d of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPOR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2677	2785	
==>nly
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2861	2969	
==>nly
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1250	1363	
==>");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1243	1348	
==>");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	703	821	
==>l $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	703	821	
==>l $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $pat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4475	4619	
==>= @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    elsif ($index == +@!children <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4475	4619	
==>= @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    elsif ($index == +@!children <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	894	1017	
==>n ''
}
sub node::ws {
	return ''
}
sub node::string_concat {
    my $a = emit(get_data($_[0], '$<a>'));
    my $b = emit(get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5486	5596	
==>lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5295	5403	
==>lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3387	3483	
==>is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3387	3483	
==>is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3986	4129	
==>turn $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3986	4129	
==>turn $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3507	3679	
==>$ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3370	3532	
==>$ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9794	9902	
==>rns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar v <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9794	9902	
==>rns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6730	6852	
==>ss $groups && @$groups;

    my @index_files;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25123	25258	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25402	25537	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	137	260	
==>ribute;

package opaque;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::compar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5502	5599	
==>e provides an implementation for Perl 6 Rule categories.  

The module is still very unstable, and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21226	21323	
==>quired) that each Perl package which
uses this would come up with keys which are unique across all <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21226	21323	
==>quired) that each Perl package which
uses this would come up with keys which are unique across all <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16987	17085	
==>e rest of the
application in their other language(s) of choice.  Assuming the main
application is w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16987	17085	
==>e rest of the
application in their other language(s) of choice.  Assuming the main
application is w <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8762	8867	
==>');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metaclass method fails' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	534	711	
==>>operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $opt{$_} for keys %opt;
    return \%h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	534	711	
==>>operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $opt{$_} for keys %opt;
    return \%h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1859	1976	
==>ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1870	1987	
==>ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10791	10912	
==>>new(
				$b,
				type::operator::pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variabl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6913	7024	
==>g',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6913	7024	
==>g',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2459	2607	
==>ner, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2459	2607	
==>ner, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3313	3450	
==>plement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3313	3450	
==>plement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12933	13029	
==>object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12933	13029	
==>object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of a <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	291	398	
==>ss $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYNOPSIS

 my $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25764	25845	
==>(_,flgs(_,_,_,x,_,_,_,_,_,_))).

%------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16981	17082	
==>s);
    my Relation::Example @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1679	1786	
==>nterface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1679	1786	
==>nterface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15572	15691	
==>, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl_args->{progfile} = $tmpfile;
    $runper <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14192	14294	
==>allExpression>
}
rule PostfixExpression :words {  # see 11.3
      <LeftHandSideExpression>
    | <Left <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3229	3375	
==>b array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3229	3375	
==>b array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9098	9193	
==>ipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9098	9193	
==>ipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2334	2476	
==>o however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to recover
    $self.set_result <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2334	2476	
==>o however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to recover
    $self.set_result <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5232	5445	
==>ack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_sta <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5232	5445	
==>ack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off ...
                            @modifier_sta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2863	2993	
==>revious ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2863	2993	
==>revious ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	167	292	
==>m
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	167	292	
==>m
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14393	14540	
==>};
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_dir_fi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3962	4134	
==>isa(shift(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local variables:
# c-indentation-style: bsd <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3505	3613	
==>->flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	18	114	
==>:DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::Nod <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	18	114	
==>:DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::Nod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5456	5688	
==>_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5456	5688	
==>_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17463	17598	
==>er of todo tests which 
                      unexpectedly passed

  skip              number of tests skipped

So a successful test sho <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23884	23973	
==>eplace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace,[],T1).
replace_at_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3731	3901	
==>tch = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eva <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3871	4041	
==>tch = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eva <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4758	4941	
==>ied.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # mi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4758	4941	
==>ied.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # mi <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8905	9060	
==>lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use + <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17172	17269	
==>eafter, if any other package or application says that it uses
Locale::KeyedText, that is a terse w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17172	17269	
==>eafter, if any other package or application says that it uses
Locale::KeyedText, that is a terse w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7263	7371	
==>he blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7263	7371	
==>he blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/n <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2102	2223	
==>/
      or die <<".";
Can't generate the correct Perl6 equivalent for:

    $path

field name: $name
osname: $config->{osn <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1433	1531	
==>parrot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call a Ma <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1533	1646	
==>superclasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attributes($self:) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10887	10994	
==>ding);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation::Example *@others) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6152	6261	
==>r a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6210	6319	
==>r a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::nu <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	91	206	
==>'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	91	206	
==>'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document d <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	667	773	
==>ts ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	667	773	
==>ts ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	32	135	
==>bmethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    . <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	32	135	
==>bmethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17133	17276	
==>eop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17412	17555	
==>eop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1013	1105	
==>less)';
our $re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil.$re_symbol;
our $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1186	1323	
==>./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statemen <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1186	1323	
==>./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1122	1250	
==>n be modified at runtime
sub alternation {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3538	3647	
==>oo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is do <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3538	3647	
==>oo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	2	107	
==>e FindBin '$Bin';
use lib
    "$Bin/../lib",
    # "$Bin/../../../../lib",
    "$Bin/../../Pugs-Compil <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	539	643	
==>nternalValue;
class JSX::InternalValue::List       is JSX::InternalValue;
class JSX::InternalValue::Compl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1949	2054	
==>a);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1949	2054	
==>a);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2857	2954	
==>r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostna <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2857	2954	
==>r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostna <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1012	1127	
==>rcum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textasciitilde{}";
	    return;
	} elsif ($chr =~ /\</ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13262	13391	
==>Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{pa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18014	18127	
==>";};
    $code .= "sub p6__lookup {\n";
    $code .= $hlp->(shift @classes);
    $code .= '  exists($META->FETCH(" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1319	1427	
==>-------------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1319	1427	
==>-------------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19807	19903	
==>ynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19807	19903	
==>ynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages it <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5906	6032	
==>*@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5906	6032	
==>*@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4839	4975	
==>n );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4839	4975	
==>n );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1778	1939	
==>pl );

        $obj->root(dir($root));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14730	14828	
==>C<.buckets>
property instead.

=back


=head2 Str

General notes about strings:

A Str can exist at <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2542	2641	
==>de match results.  This
module is an experiment, to see if it is possible to use the regexp
struct a <==
2	/Users/nnunley/pugs/util/addauthors.pl	1608	1716	
==>id) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick => $nick, <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	448	568	
==>op) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is exp <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	448	568	
==>op) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is exp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	347	473	
==>ubrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	347	473	
==>ubrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5129	5260	
==>n}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5129	5260	
==>n}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1789	1907	
==>{
    my $ident = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_da <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1048	1154	
==>ge( $self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->file

Location of the source pac <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	750	838	
==>eturn %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables? <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	750	838	
==>eturn %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables? <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2287	2401	
==>t IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2287	2401	
==>t IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1568	1716	
==>o
        ref => "Object",   # for now
        set => "Set", iset => "Set",         # also for now
        hash => "Hash", ihash => "Hash",     #   <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18722	18814	
==>ssion>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpression>
}
rule Assi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13907	14017	
==>ist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13907	14017	
==>ist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4209	4336	
==>rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]->family eq 'group') {
    my $vis = j <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5988	6097	
==>of_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20131	20231	
==>st, then outer blocks.

A compiler may choose to declare that its result not be recompiled by
some ot <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20131	20231	
==>st, then outer blocks.

A compiler may choose to declare that its result not be recompiled by
some ot <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	848	939	
==>ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { return $Str <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	943	1038	
==>more or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list method <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	943	1038	
==>more or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list method <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8084	8250	
==>=
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8084	8250	
==>=
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2811	2912	
==>rs{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2811	2912	
==>rs{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22662	22763	
==>tes a Message that contains all possibly useful details, so
that each Template can optionally use them <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22662	22763	
==>tes a Message that contains all possibly useful details, so
that each Template can optionally use them <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15135	15233	
==>rbitrary type. The function signatures will likely look something
like this:

  multi sub is_deeply <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15193	15291	
==>rbitrary type. The function signatures will likely look something
like this:

  multi sub is_deeply <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15018	15133	
==>unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15018	15133	
==>unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1:: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1425	1526	
==>ing
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<inform <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1425	1526	
==>ing
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<inform <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3107	3262	
==>obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3618	3721	
==>3rd line\n2nd line\n1st line\n" ],
      [ 'file21', $file21,
        "\n\n\n\n\n\n\n\n\n12th line\n11th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10393	10512	
==>rms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10672	10791	
==>rms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \& <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	977	1063	
==>ent-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	977	1063	
==>ent-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3935	4071	
==>f->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5159	5295	
==>f->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25341	25446	
==>teract with the outside environment at all.

A Message object has two main attributes:

=over

=item C<$!m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25341	25446	
==>teract with the outside environment at all.

A Message object has two main attributes:

=over

=item C<$!m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17339	17460	
==>$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13760	13881	
==>$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9123	9211	
==>eItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9227	9312	
==>eItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4198	4330	
==>1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{barew <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20658	20787	
==>tatus $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus;
    print "\t\t(VMS status is $estatus)\n" if $^O <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10969	11065	
==>e program will emit warnings during the execution of some methods, 
because it will try to iterat <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10969	11065	
==>e program will emit warnings during the execution of some methods, 
because it will try to iterat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9930	10042	
==>gleton method');

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2087	2185	
==><Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and trans <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2087	2185	
==><Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and trans <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11888	12120	
==>ion', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_sour <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11888	12120	
==>ion', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_sour <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3052	3233	
==>mp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3052	3233	
==>mp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16670	16781	
==>} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe just <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13091	13202	
==>} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe just <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	254	363	
==>_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	254	363	
==>_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is exp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33989	34089	
==>les that are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38539	38639	
==>les that are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$othe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21402	21499	
==>s@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Ne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21402	21499	
==>s@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7211	7312	
==>munication 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operator <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6966	7064	
==>munication 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operator <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2352	2472	
==>oo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2266	2379	
==>oo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	93	189	
==>fig;
use JIB::Package;
use JIB::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4411	4509	
==>($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4411	4509	
==>($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5535	5670	
==>t_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5359	5489	
==>t_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	35	167	
==>am = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	35	167	
==>am = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	653	766	
==>grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	653	766	
==>grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12733	12833	
==>s function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12791	12891	
==>s function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1640	1762	
==>_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Wi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1542	1643	
==>_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Wi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10330	10430	
==>S AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an ite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10330	10430	
==>S AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3822	3965	
==>() ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3822	3965	
==>() ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1961	2068	
==>to_native + 1) }
sub decrement { num->new((shift)->to_native - 1) }

1;

__END__

=pod

=head1 NAME

num - t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19111	19226	
==>ist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19111	19226	
==>ist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Ros <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1609	1726	
==><=> $o1->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@_;
    my $from = $args[0]->from;
    my $to = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	67	171	
==>require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Test' => class 'TestBuilder::Test' => {
    is => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4448	4584	
==>te all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4448	4584	
==>te all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3993	4086	
==>VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-number v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3993	4086	
==>VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-number v <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	667	814	
==>ule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of mod;
    }
    $target = $matchObj->target();
    $from = $mat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	238	356	
==>r_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $prog = shift;

    my $c = $self->compi <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	961	1101	
==>> File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	830	946	
==>> File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1944	2032	
==>tem * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2033	2121	
==>tem * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratch <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1783	1889	
==>_num->to_native != 0)
        || confess "Division by zero error";
    return num->new(int($left->to_native <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1173	1270	
==>host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1173	1270	
==>host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17458	17566	
==>connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17458	17566	
==>connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11785	11903	
==>t_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( da <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11785	11903	
==>t_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( da <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28686	28782	
==>)

The general family of this object.  These are any of: alnum, anchor,
anyof, anyof_char, anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4918	5033	
==>f.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4918	5033	
==>f.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simp <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	501	646	
==>':ex'> }
rule flag_overlap     { <':overlap'> | <':ov'> }
rule flag_words       { <':sigspace'> | <':s'> }
# XXX - there are more.  Useful short-t <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	595	689	
==>_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

give <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9703	9832	
==>version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9703	9832	
==>version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!coo <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6807	6913	
==>idea is that if I get to the end of the line and find no closing match, I should
ignore the opening one. Ho <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6807	6913	
==>idea is that if I get to the end of the line and find no closing match, I should
ignore the opening one. Ho <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1427	1530	
==>s Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1427	1530	
==>s Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10161	10253	
==>$namespace$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1] ruleop::negate( \\&{'$n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12836	12941	
==>=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12836	12941	
==>=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	32	136	
==>me test program.
# For more detail: http://www.perlmonks.org/?node_id=438876
# For historical interest, I <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1117	1213	
==>om day 1 to day 42)
my @commits_till_day = dayify(@commits);
my @devs_till_day    = dayify(@devel <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4336	4429	
==>etasyntactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \> | <metasyntactic_sub> }
rule metasyntacti <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1532	1650	
==>ct file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API} <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1532	1650	
==>ct file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11520	11619	
==>te more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11520	11619	
==>te more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13749	13881	
==>) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13743	13875	
==>) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11163	11275	
==>lass, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11163	11275	
==>lass, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28406	28510	
==>beg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((prog)->re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21306	21394	
==><'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? <';'> <Expression>? <')'> <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	30	146	
==>e URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X' <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	30	146	
==>e URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1260	1368	
==>arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1248	1356	
==>arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sig <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15396	15510	
==>nqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15396	15510	
==>nqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue " <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3088	3203	
==>section> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<se <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3088	3203	
==>section> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	825	935	
==>exp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http://mail.python.org/pipermail/python-l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3687	3885	
==>ule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '=~',
        assoc => 'right',
        p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15203	15304	
==>e encoded or
decoded string is returned (without changing the input string).

If you prefer not to imp <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15203	15304	
==>e encoded or
decoded string is returned (without changing the input string).

If you prefer not to imp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9240	9422	
==>ious =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9240	9422	
==>ious =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5113	5302	
==>apture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5125	5314	
==>apture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10975	11085	
==>sses]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. T <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10975	11085	
==>sses]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. T <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2652	2753	
==>ype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2652	2753	
==>ype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1544	1651	
==>ode::Atomic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blondie::No <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4609	4758	
==>+$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ ( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4609	4758	
==>+$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40803	40907	
==>ny time you create a
modified version of Locale::KeyedText that you are willing to distribute,
because th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40803	40907	
==>ny time you create a
modified version of Locale::KeyedText that you are willing to distribute,
because th <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	515	622	
==>close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	515	622	
==>close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30067	30179	
==>':ascendant') # C3 is the canonical order
                    if $order == $nil::NIL || $order->equal_to(str->new <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2135	2311	
==>h.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2135	2311	
==>h.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12811	12926	
==>d this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normali <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12811	12926	
==>d this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normali <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13809	13929	
==>ng.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13809	13929	
==>ng.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6687	6937	
==>pre     List::end     safe   (Array)\
\\n   List      pre     keys    safe   (rw!Pair)\
\\n   List      pre     values  safe   (Pair|Junction)\
\\n   List      pre     Pair::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	76	178	
==>ray $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

s <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	76	178	
==>ray $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	71	161	
==>ile, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	71	161	
==>ile, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10015	10114	
==>igit> <HexDigit>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexD <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2020	2111	
==>with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2109	2200	
==>with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9998	10103	
==>ns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9998	10103	
==>ns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3573	3678	
==>erl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
requir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3790	3895	
==>erl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
requir <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	818	933	
==>od remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	818	933	
==>od remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1722	1816	
==>ef of files installed by this package

=head2 $alt = $pkg->alternative

Returns the JIB::Altern <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4146	4254	
==>topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4146	4254	
==>topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2496	2595	
==>oint will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2496	2595	
==>oint will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1830	1996	
==>de = $CALLER::_, Str :$lang = 'Perl6')
            is primitive is safe is builtin {
        given lc $lang {
            when 'perl6'   { Pugs::Internals::eval($code) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16053	16142	
==>ssionNoIn> <'<='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'>='> <ShiftExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15552	15678	
==>size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15552	15678	
==>size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5803	5918	
==>child_count) {
        my $this_size = $chunk_size * 3;

        # Heuristic: Most of the first tests (ext/) are slo <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	799	909	
==>R>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is running on. It al <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	799	909	
==>R>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is running on. It al <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1186	1283	
==>tr>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1239	1336	
==>tr>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19683	19787	
==><ReturnStatement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <ThrowSta <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30955	31058	
==>ance.com> >>.

=head1 COPYRIGHT

Copyright 2002-2005
by Michael G Schwern C<< <schwern at pobox.com> >>, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9939	10053	
==>";
}
sub node::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	464	566	
==>name=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	464	566	
==>name=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1584	1692	
==>_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1584	1692	
==>_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $cod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4892	5003	
==>son?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub ski <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4950	5061	
==>son?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub ski <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41070	41167	
==>6, suggested a feature, and provided sample usage and patch
code, that supports embedding of Templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41070	41167	
==>6, suggested a feature, and provided sample usage and patch
code, that supports embedding of Templ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	748	855	
==>});
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	748	855	
==>});
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks th <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	706	811	
==>s

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	706	811	
==>s

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6219	6331	
==>}
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6207	6319	
==>}
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20329	20452	
==>ld));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16750	16873	
==>ld));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20933	21037	
==>e constructor or header() method, the same
field name should not occur multiple times.  The result of doi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20933	21037	
==>e constructor or header() method, the same
field name should not occur multiple times.  The result of doi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22194	22310	
==>tive syntax here :)
    unbox($self).id
}

(method id ((opaque $self:)) returns num 
    ($self: id))

=cut

$::Class <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	89	184	
==>ttp://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't e <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	89	184	
==>ttp://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't e <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1100	1265	
==>!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my $tz <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1795	1893	
==>*Compress::Zlib::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Compress::B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6925	7061	
==>$CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6925	7061	
==>$CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundar <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12730	12828	
==>)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns tru <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12730	12828	
==>)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns tru <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6308	6422	
==>method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argum <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6308	6422	
==>method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argum <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37943	38038	
==>e heading and
whose body contains all of the tuples that are in the invocant Relation::Example b <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	146	241	
==>ss Iterator

=head1 SYNOPSIS

  use Test::Harness::Iterator;
  my $it = Test::Harness::Iterator- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8126	8242	
==>s, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8319	8435	
==>s, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'gr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	65	175	
==>e;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

met <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	65	175	
==>e;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	320	465	
==>];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = 1;

### only called from JIB::Package
sub new {
    my $self    = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19556	19674	
==>bstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15977	16095	
==>bstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11061	11168	
==>de<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11061	11168	
==>de<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20910	21006	
==>, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Per <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20910	21006	
==>, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Per <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5427	5602	
==>t";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5427	5602	
==>t";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6376	6473	
==>$event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6376	6473	
==>$event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<chann <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8767	8901	
==>at(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8960	9094	
==>at(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3546	3668	
==>yn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design documents   : Won't generate cross-referenced P6 de <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9915	10019	
==>ntersection, difference, and a few
other operations.

This class also provides methods for iterating thro <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9915	10019	
==>ntersection, difference, and a few
other operations.

This class also provides methods for iterating thro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37282	37377	
==>ameter
$module_name (a string) and checks whether or not it has already been
loaded, returning t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37282	37377	
==>ameter
$module_name (a string) and checks whether or not it has already been
loaded, returning t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2035	2209	
==>d,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2035	2209	
==>d,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3526	3711	
==>d_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_ti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3526	3711	
==>d_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_ti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17692	17808	
==>$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  package R <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3608	3713	
==>:Subrule"
    $P1 = subclass $P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PG <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	680	845	
==>d.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	680	845	
==>d.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old <==
2	/Users/nnunley/pugs/util/package-osx.pl	4364	4461	
==>3/Perl6::Bible::E06.3pm
        /usr/local/man/man3/Perl6::Bible::E07.3pm
        /usr/local/man/m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2044	2157	
==>urn defined $x ? '"' . display ($x) . '"' : 'undef';
};

# keys are the codes \n etc map to, values are 2 char str <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	252	350	
==>me::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes. <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	252	350	
==>me::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1729	1856	
==>$file ) = @_;

    unless ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args w <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15808	15920	
==>ram int pos
    .param string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = ne <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6258	6393	
==>),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6258	6393	
==>),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8453	8566	
==>If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8453	8566	
==>If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19727	19972	
==>y $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40187	40432	
==>y $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24150	24281	
==>abel
        symbol->new('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17654	17763	
==>fect of first doing an C<lc> on the entire string, then performing a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23177	23262	
==>6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
use strict <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9670	9774	
==>e recurrence set, defined with closures. 

A recurrence set is defined by a "successor" function and a "p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9670	9774	
==>e recurrence set, defined with closures. 

A recurrence set is defined by a "successor" function and a "p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39687	39780	
==>enDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redistribute <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39687	39780	
==>enDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redistribute <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20171	20263	
==>-E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20171	20263	
==>-E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1037	1143	
==>ESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream of items. It <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1037	1143	
==>ESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream of items. It <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1551	1659	
==>Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1551	1659	
==>Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1679	1872	
==>s -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1679	1872	
==>s -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1898	2012	
==>in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1898	2012	
==>in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13074	13170	
==>coded
separately and the same number of strings are returned.

If called in void context the argu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13074	13170	
==>coded
separately and the same number of strings are returned.

If called in void context the argu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26699	26796	
==>sRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # see 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22986	23082	
==>rom octal escapes.  (The source code to Perl's regex compiler does the
same thing.)

=item nparen <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20277	20387	
==>safe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2195	2353	
==>tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28677	28772	
==>->family()

The general family of this object.  These are any of: alnum, anchor,
anyof, anyof_ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12637	12822	
==>atch[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12631	12816	
==>atch[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1739	1862	
==>d clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method prot <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1739	1862	
==>d clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method prot <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5829	5934	
==>_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5829	5934	
==>_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17885	17990	
==>99!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17885	17990	
==>99!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	925	1038	
==>@end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	925	1038	
==>@end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3689	3812	
==>fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Be <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5591	5714	
==>fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Be <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1507	1618	
==>$.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstrin <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1507	1618	
==>$.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstrin <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2864	2979	
==>or at
least a valid representation of it that "honours the spirit of the
dialect", if the original form is not avail <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2864	2979	
==>or at
least a valid representation of it that "honours the spirit of the
dialect", if the original form is not avail <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1195	1311	
==>ST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1195	1311	
==>ST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14769	14879	
==>'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_R <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14769	14879	
==>'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_R <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	255	367	
==>itional   qw[can_load];
use File::Basename              qw[dirname];

=pod

=head1 NAME

JIB::Utils

=head1 METHO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34742	34845	
==>ext::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34742	34845	
==>ext::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16640	16778	
==>pture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16919	17057	
==>pture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2413	2542	
==>5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2597	2726	
==>5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1348	1434	
==>on. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1188	1274	
==>on. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10548	10666	
==>utine( $prd_add_person );

    # Define and compile a function that will select a record from the
    # 'person' table, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10548	10666	
==>utine( $prd_add_person );

    # Define and compile a function that will select a record from the
    # 'person' table, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	870	975	
==>n implementing it (eg, by ToNumber).
#   * Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2662	2766	
==>0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extra <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	539	648	
==>ngineer an implicit abstraction
# "barrier" for the engine, from the entire perl5 source.

# The exploratory e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21956	22060	
==>deprecated" warning.

Quantifiers of the form C<{n}> were being misrepresented as C<{n,}>.
It's been corr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15944	16070	
==>ueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  clas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15944	16070	
==>ueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  clas <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24361	24459	
==>k

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28913	29011	
==>k

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7055	7230	
==>_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7055	7230	
==>_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given messa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	301	426	
==>rsion
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	301	426	
==>rsion
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4404	4537	
==>ks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4404	4537	
==>ks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5935	6037	
==>vent<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5935	6037	
==>vent<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	847	964	
==>er of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	847	964	
==>er of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7994	8100	
==>f defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7994	8100	
==>f defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12832	12973	
==>$name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        }
        
        return _emit( $n->{exp1} ) . '[ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3247	3335	
==>fine_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->struct_equiv->monik <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1266	1380	
==>b head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least un <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1266	1380	
==>b head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least un <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11440	11569	
==>hod product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @source <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14917	15046	
==>hod product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @source <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3304	3404	
==>default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@ind <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3304	3404	
==>default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@ind <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13255	13376	
==>(${$_[0]}) },
      perl5_object => sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl5_str },
     );
sub p6_a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4741	4861	
==>eate('WALKCLASS' => closure->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params <==
2	/Users/nnunley/pugs/util/grokprims.pl	1602	1706	
==>rity==2) {
    $example = "(\$$a0 $name \$$a1) $name \$$a1";
  } elsif (/left-associative/ and $arity==2) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6345	6464	
==>$pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
} <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6345	6464	
==>$pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7566	7659	
==>h @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1391	1484	
==>h @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Per <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18486	18610	
==>:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18486	18610	
==>:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4342	4441	
==>= shift;
    push @{ $self->{values}{no_index}{$type} }, @_ if $type;
    return $self->{values}{no_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5231	5357	
==>m',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5231	5357	
==>m',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12072	12186	
==>| <'E'>
}
rule SignedInteger {  # see 9.3.1
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalD <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9853	9967	
==>alidation is performed over 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate vali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9853	9967	
==>alidation is performed over 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate vali <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3073	3192	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3266	3385	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3549	3725	
==>),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3796	3972	
==>),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14910	15026	
==>elf = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

packa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	616	747	
==>%*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	616	747	
==>%*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-L <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	619	772	
==>andler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11713	11866	
==>andler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17298	17399	
==>.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17298	17399	
==>.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4838	4946	
==>y_type($node, $expected);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => $return_type,
			ori <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6756	6850	
==>n( my $error, '>', $error_file) or die "Failed to open $error_file: $!";
$template = HTML::Temp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1237	1331	
==>, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1237	1331	
==>, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12729	12829	
==>n the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns positive infinite <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12729	12829	
==>n the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns positive infinite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8472	8573	
==>(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2297	2398	
==>(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	441	603	
==>: S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1676	1779	
==>o) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_sup <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1676	1779	
==>o) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_sup <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13912	14042	
==>{ return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14191	14321	
==>{ return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2284	2428	
==>}, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2284	2428	
==>}, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8855	8967	
==>%channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more el <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8855	8967	
==>%channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more el <==
2	/Users/nnunley/pugs/util/package-osx.pl	1172	1278	
==>adline.3
        /usr/local/man/man3/history.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	926	1020	
==>th a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps this module should <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	550	658	
==>ackages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4028	4136	
==>ackages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2542	2653	
==>t eq "infix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "post <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	498	605	
==>t => App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => "simple c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2310	2449	
==>:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2310	2449	
==>:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4996	5096	
==>ss, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7664	7764	
==>ss, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8114	8202	
==>Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->as <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1939	2027	
==>Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	725	846	
==>cific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	690	802	
==>cific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18107	18262	
==>r(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14528	14683	
==>r(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    ret <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5864	5962	
==>odo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5922	6020	
==>odo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8575	8758	
==>XISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8575	8758	
==>XISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7765	7859	
==>s, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->acces <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1590	1684	
==>s, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->acces <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1426	1522	
==>'<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', s <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1426	1522	
==>'<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9068	9183	
==>support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9126	9241	
==>support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	186	297	
==>y_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	186	297	
==>y_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	198	297	
==>ocument differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this versi <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	198	297	
==>ocument differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this versi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8298	8432	
==>$pugs and
      -M $initrd_gz <= -M "$parrot_path/parrot" and
      -M $initrd_gz <= -M $linuxrc and
      -M $initrd_gz <= -M $bash an <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14919	15005	
==>---------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(cap(plus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26250	26350	
==>ou a warranty for it.

While it is by no means required, the copyright holders of Rosetta would
appre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26250	26350	
==>ou a warranty for it.

While it is by no means required, the copyright holders of Rosetta would
appre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12130	12256	
==>('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4773	4899	
==>('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3254	3347	
==>::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3254	3347	
==>::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(S <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1517	1658	
==>til::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
}


clas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1517	1658	
==>til::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
}


clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3564	3690	
==>x_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match objec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3564	3690	
==>x_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match objec <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5407	5504	
==>l::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subname <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3388	3571	
==>add_children(
                    Tree.new(:node<Module>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.ne <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26198	26310	
==>re <DecimalDigit>> #lookahead
}
rule CharacterClass {  # see 15.10.1
      <'['> <!before <'^'>> <ClassRanges> <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1918	2038	
==>mpiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1918	2038	
==>mpiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return joi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14585	14754	
==>:non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14864	15033	
==>:non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       , <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	741	846	
==>ons!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	741	846	
==>ons!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4974	5089	
==>method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4974	5089	
==>method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10602	10700	
==>s, which
means that you can update several fields with a single invocation.

The $value argument ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10602	10700	
==>s, which
means that you can update several fields with a single invocation.

The $value argument ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4391	4494	
==>on) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $mat <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1918	2013	
==>pected strings
in TAP format.

The F<prove> utility is a thin wrapper around Test::Harness.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6257	6448	
==>$_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9734	9925	
==>$_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1509	1634	
==>cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1509	1634	
==>cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4162	4270	
==>s Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mappi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7639	7747	
==>s Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mappi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7346	7445	
==>s));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
mult <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7346	7445	
==>s));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
mult <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20626	20803	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20905	21082	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9778	9900	
==>te_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9778	9900	
==>te_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $te <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15862	15999	
==>ence( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19339	19476	
==>ence( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26310	26413	
==>nything at
all.  Note that while the Hash itself is copied on input and output, any
variable values whic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26310	26413	
==>nything at
all.  Note that while the Hash itself is copied on input and output, any
variable values whic <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12789	12902	
==>dlers =
    ( undef => sub { Carp::carp("p6_as_str called on undef"); "" },
      numeric     => sub { "". $_[0] } <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	251	361	
==>er;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SY <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	251	361	
==>er;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SY <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5150	5268	
==>) method, it will
    # allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3330	3524	
==>d $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3470	3664	
==>d $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 i <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1323	1443	
==>caller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9245	9340	
==>ub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3070	3165	
==>ub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14376	14535	
==>xt = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$dige <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14376	14535	
==>xt = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$dige <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3636	3741	
==>lity
while Perl 6 was still being developed.

This module is primarily for reading human written files, an <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3636	3741	
==>lity
while Perl 6 was still being developed.

This module is primarily for reading human written files, an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20037	20134	
==>r value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20037	20134	
==>r value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

Th <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11983	12101	
==>runInteractiveCommand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Poten <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16667	16762	
==>Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16667	16762	
==>Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1401	1507	
==>m1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1401	1507	
==>m1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1329	1454	
==>ath(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     => $config <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7489	7640	
==>urn $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7489	7640	
==>urn $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9234	9375	
==>e_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9234	9375	
==>e_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        compleme <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	702	802	
==>erate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also not <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	702	802	
==>erate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also not <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24745	24860	
==>null>
    | <Alternative> <Term>
}
rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifie <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4365	4467	
==>on of Locale::KeyedText for English

=head1 VERSION

This document describes Locale::KeyedText::L::en v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4365	4467	
==>on of Locale::KeyedText for English

=head1 VERSION

This document describes Locale::KeyedText::L::en v <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	280	388	
==>efined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	280	388	
==>efined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { ret <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3286	3395	
==>e, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression
cl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3286	3395	
==>e, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression
cl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13693	13798	
==>of values.

You should consider using a Set::Infinite object if you want to exclude
large ranges.

    # i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13693	13798	
==>of values.

You should consider using a Set::Infinite object if you want to exclude
large ranges.

    # i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	194	285	
==>nt;
has @!children;

## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	194	285	
==>nt;
has @!children;

## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	74	237	
==>ump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10766	10862	
==>IB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the current value of C<@INC> and turns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5924	6081	
==>lt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub greedy_star { 
    my $node = shift;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2346	2446	
==>g modules in 
Pugs, this port does it's best to work with those limitations and 
still produce a work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2346	2446	
==>g modules in 
Pugs, this port does it's best to work with those limitations and 
still produce a work <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1417	1513	
==>ng within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher AP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1417	1513	
==>ng within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher AP <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8291	8540	
==>::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8291	8540	
==>::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7361	7547	
==>$.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7361	7547	
==>$.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span. <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	97	215	
==>b check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	97	215	
==>b check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5435	5558	
==>my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5435	5558	
==>my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8313	8407	
==>al to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8313	8407	
==>al to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12953	13051	
==>Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12953	13051	
==>Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18954	19050	
==>ld points to the underlying
object type (I<prop>, I<alnum>, etc.).  If the element is a POSIX cla <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4139	4248	
==><(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> \}\> }
rule code_assertion <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15892	15999	
==>{
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: env <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9976	10091	
==>ate         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9976	10091	
==>ate         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2564	2695	
==>( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if define <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2564	2695	
==>( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if define <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	909	1023	
==>turns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	909	1023	
==>turns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    retu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12128	12243	
==>nitialize the predefined symbols, and the initial set of generic variables
ROOT: env($$) = { Clone::clone(\%types::p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9394	9483	
==>set_identifier(X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charset_identifier(X) <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1776	1880	
==>te of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1776	1880	
==>te of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	57	159	
==>pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	57	159	
==>pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1710	1815	
==>e; that will create the
'nmake.exe' file needed by this module.

You may then resume the installation proc <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1550	1655	
==>e; that will create the
'nmake.exe' file needed by this module.

You may then resume the installation proc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	539	635	
==>fy($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	539	635	
==>fy($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	70	167	
==>::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	70	167	
==>::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	944	1086	
==>s {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	944	1086	
==>s {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12778	12896	
==>h;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12778	12896	
==>h;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibil <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2485	2600	
==>piler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2485	2600	
==>piler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	29	143	
==>{require "Filtered-Comments.pm";import Filtered::Comments 'regex matching subs you want to debug'}
* adds use Smart <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7125	7232	
==>1, allow => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->last_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3733	3898	
==>essors( $acc );
            
            ### set to a sane default value
            $Obj->$acc( $config{$key}->[0] );
        }
        return $Obj;
    }
}

### add <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1570	1680	
==>od compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1570	1680	
==>od compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5826	5938	
==>$val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    my $var = em <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5222	5445	
==>uest.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5222	5445	
==>uest.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4801	4987	
==>e "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5023	5209	
==>e "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4096	4198	
==>RFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
succeeded or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4096	4198	
==>RFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
succeeded or <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23902	24059	
==>fine REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $* was set. */



 regcomp.h:
 * The <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29078	29198	
==>fine REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define Re <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12001	12118	
==>bstr target, pos, $I0
    mob["arg"] = $S0
    pos += $I0
    $S0 = substr target, pos, 1
  subrule_end:
    if $S0 != <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3255	3406	
==>($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3255	3406	
==>($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16396	16505	
==>e = 'text/html';

The value returned will be converted to lower case, and potential
parameters will be chopped <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16396	16505	
==>e = 'text/html';

The value returned will be converted to lower case, and potential
parameters will be chopped <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21874	21968	
==>mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. No <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21874	21968	
==>mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. No <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26886	27121	
==>$self:'    => 'opaque'),
                            symbol->new('$subclass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = sh <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9112	9222	
==>n" . Dumper(@_);
};


# these are the type signatures of some builtins
our %prelude = (
	# int -> int -> int
	a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1584	1743	
==>$_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27139	27251	
==>>{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1977	2104	
==>) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2194	2321	
==>) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16457	16550	
==>nBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_buck <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16457	16550	
==>nBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_buck <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2222	2383	
==>@tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2222	2383	
==>@tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4363	4520	
==>ORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4363	4520	
==>ORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3834	3947	
==>t) eq "CODE";
    }

    @stack = @{ $self->{tree} }, return unless $next;
    $next->walk(\@stack, $d);
    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2312	2417	
==>elation;

    # External packages used by the Relation::Example class, that do export symbols:
    # (None <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6843	6971	
==>r =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6843	6971	
==>r =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = subs <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2065	2175	
==>Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2065	2175	
==>Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20571	20667	
==>$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly acce <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20571	20667	
==>$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly acce <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	476	602	
==>,
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	470	596	
==>,
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	279	385	
==>le which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::J <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	279	385	
==>le which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::J <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40975	41069	
==>rsion.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.2 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40975	41069	
==>rsion.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2524	2623	
==>t of this class represents the query string portion of a requested URI.
It provides the following me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2524	2623	
==>t of this class represents the query string portion of a requested URI.
It provides the following me <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3898	4051	
==>rn ENOENT; # file not found"
    #  say this: "fail            'file not found';"
    
    # make 'use fatal' not try to load a module. XXX: add a real in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	305	397	
==>S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	305	397	
==>S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10405	10523	
==>nected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10405	10523	
==>nected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	384	497	
==>lass;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	384	497	
==>lass;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3516	3616	
==>s on top of the object-oriented backend.

To use the Cipher API, you must first create an object of t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3516	3616	
==>s on top of the object-oriented backend.

To use the Cipher API, you must first create an object of t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1168	1282	
==>d start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1168	1282	
==>d start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40442	40536	
==>yright notice and other
credits. Locale::KeyedText is distributed in the hope that it will be
u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40442	40536	
==>yright notice and other
credits. Locale::KeyedText is distributed in the hope that it will be
u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4676	4790	
==>= .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2562	2657	
==>(closure *WALKMETH ((block &dispatcher) (symbol $label) (hash ?%opts)) returns method 
    ((= $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19325	19425	
==>alue consist of a challenge that indicates the
authentication scheme and parameters applicable to the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19325	19425	
==>alue consist of a challenge that indicates the
authentication scheme and parameters applicable to the <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13666	13759	
==>This type os span is used to represent continuous measurements, such as times, temperatures, o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13666	13759	
==>This type os span is used to represent continuous measurements, such as times, temperatures, o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	698	850	
==>nless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	670	817	
==>nless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8545	8652	
==>ied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8545	8652	
==>ied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42) <==
2	/Users/nnunley/pugs/misc/S29_round.pl	424	541	
==>p below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = sign($x) * floor( a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	882	991	
==>ng it (eg, by ToNumber).
#   * Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> chang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5211	5373	
==>\$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5199	5361	
==>\$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7 <==
2	/Users/nnunley/pugs/util/grokprims.pl	2163	2257	
==>>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{name <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11207	11301	
==>$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11207	11301	
==>$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8218	8398	
==>ation::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation: <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	838	958	
==>LSE|off|Off|OFF)/;
            $val = undef if $val eq "~";
            die "sorry, only scalars are supported: $key: $va <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1509	1627	
==>%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1509	1627	
==>%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= " <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	770	895	
==>chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	770	895	
==>chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2396	2535	
==>xity => 'infix',
    } );
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => 'left',
        precedence => ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5658	5769	
==>ction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $init = '=('.join(",",map{p6_container_fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6903	7001	
==>,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6903	7001	
==>,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Matc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1223	1326	
==>ity; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1223	1326	
==>ity; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14051	14210	
==>ertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14045	14204	
==>ertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2026	2151	
==>ther.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members))) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2026	2151	
==>ther.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members))) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	653	775	
==>new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for other me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1137	1259	
==>new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other accessors for other me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7729	7956	
==>nt = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        retu <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7729	7956	
==>nt = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	656	774	
==>ft }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpParser->parse($source) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	279	389	
==>hift }

my @scalar_keys = qw<
    name module_name version abstract author license
    distribution_type perl_v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2452	2572	
==>relude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        clos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2669	2789	
==>relude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        clos <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4084	4227	
==>"ok $num\n";
        if( $self->{saw_lone_not} && 
            ($self->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	382	508	
==>) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]* <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1599	1717	
==>d   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1599	1717	
==>d   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.densi <==
2	/Users/nnunley/pugs/util/run-smoke.pl	169	277	
==>ild::Config;

my $failed = 0;
for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3605	3704	
==>tor::binary;
use base qw/type::operator/;

use Scalar::Util ();

sub new {
	my $class_that_should_be <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2004	2222	
==>ree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # thi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2004	2222	
==>ree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27598	27691	
==>pty Set,
the Relation::Example has zero tuples.  If a Relation::Example has zero attributes, t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16388	16497	
==>) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    bur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16388	16497	
==>) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    bur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15418	15602	
==>apture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15697	15881	
==>apture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1781	1901	
==>n traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1781	1901	
==>n traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14597	14712	
==>T> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inpu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14597	14712	
==>T> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inpu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7091	7192	
==>:Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7091	7192	
==>:Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3444	3541	
==>andler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3444	3541	
==>andler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19779	19912	
==>world messes with:


  I32 refcnt;

What invariants?  Don'T know.


  I32 minlen;             /* mininum possible length of $& */

Mus <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1324	1427	
==>led with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1324	1427	
==>led with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22440	22568	
==>tatement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22719	22847	
==>tatement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3421	3551	
==>grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3614	3744	
==>grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2921	3029	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2921	3029	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2405	2518	
==>turn { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2652	2765	
==>turn { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10890	11038	
==>e to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26213	26341	
==>y $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type => 'flags',
      on => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1047	1139	
==>>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth_call_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11456	11595	
==>ath', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11456	11595	
==>ath', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17162	17269	
==>ur Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17162	17269	
==>ur Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3039	3132	
==>: Set $other) returns Set {
    $self.difference($other).union($other.difference($self));
}

o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3039	3132	
==>: Set $other) returns Set {
    $self.difference($other).union($other.difference($self));
}

o <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	717	820	
==>ng is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'() <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	717	820	
==>ng is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'() <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1201	1346	
==>9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $durati <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6999	7102	
==>it:
    parse_error(mob, pos, "\\1 and \\012 illegal, use $1, \\o012, or \\x0a")
    goto end
  err_nodi <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1343	1428	
==>)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2065	2160	
==>f unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bib <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2065	2160	
==>f unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bib <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14619	14724	
==>lowing is a list of future features planned for this module.

- better error handling for cmp_ok

The erro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14677	14782	
==>lowing is a list of future features planned for this module.

- better error handling for cmp_ok

The erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2280	2434	
==>$_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11333	11535	
==>d && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.pus <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11333	11535	
==>d && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.pus <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13161	13260	
==>TIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- ` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13161	13260	
==>TIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- ` <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9404	9549	
==>= (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9404	9549	
==>= (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7275	7395	
==>real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7275	7395	
==>real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4717	4846	
==>prefix}/$args{path}.pm";

    bless( \%args, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	638	749	
==>native types
sub to_bit { bit->new(1)           }
sub to_num { num->new((shift) + 0) }

# methods

sub name { st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1523	1613	
==>r = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1523	1613	
==>r = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9757	9915	
==>)';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( UNIVERSAL: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10793	10893	
==>$k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11474	11591	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11753	11870	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5991	6122	
==>1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5991	6122	
==>1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2482	2661	
==>ype, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2482	2661	
==>ype, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4276	4419	
==>ck if an alphanumeric-ending token is actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my $n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1446	1544	
==>pes.

=head1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are de <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14348	14458	
==>ry close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $itera <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14348	14458	
==>ry close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $itera <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4348	4459	
==>ion, $.event.args);
    }

    method dispatch (Class::Events::Subscriber $subscriber) {
        $subscriber.upd <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20921	21021	
==>(near term) third party Engines will likely just map
Rosetta's rigorously defined API onto a pre-exis <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20921	21021	
==>(near term) third party Engines will likely just map
Rosetta's rigorously defined API onto a pre-exis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10729	10875	
==>[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10723	10869	
==>[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6395	6507	
==>le=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@per <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32863	32959	
==>I<walking> the tree is
helpful.

The walk() method is used to modify the walking stack before the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5185	5351	
==>d reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5185	5351	
==>d reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7933	8055	
==>ument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_K <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7933	8055	
==>ument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_K <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13463	13595	
==>$_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseud <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13463	13595	
==>$_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseud <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6583	6684	
==>rectories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6583	6684	
==>rectories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2445	2552	
==>e get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.serverna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2445	2552	
==>e get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.serverna <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1489	1608	
==>an

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new( <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1489	1608	
==>an

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9047	9157	
==>s method is used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9047	9157	
==>s method is used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20329	20424	
==>orrectly
and reliably, it also performs quite slowly; you should only use Example
for testing, d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20329	20424	
==>orrectly
and reliably, it also performs quite slowly; you should only use Example
for testing, d <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3609	3705	
==>ritten to provide functionality
while Perl 6 was still being developed.

This module is primarily <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3609	3705	
==>ritten to provide functionality
while Perl 6 was still being developed.

This module is primarily <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2761	2892	
==>} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3008	3139	
==>} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	871	989	
==>onst' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	880	998	
==>onst' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4503	4612	
==>ecipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

En <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4503	4612	
==>ecipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

En <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26473	26568	
==>alue of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation::Exam <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20137	20240	
==>2
      <VariableDeclaration>
    | <VariableDeclarationList> <','> <VariableDeclaration>
}
rule Variabl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9436	9611	
==>semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12913	13088	
==>semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14080	14183	
==>rgument can be given to specify which
characters to consider unsafe (i.e., which to escape). The default <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14080	14183	
==>rgument can be given to specify which
characters to consider unsafe (i.e., which to escape). The default <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6522	6650	
==>x:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6522	6650	
==>x:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5748	5860	
==>channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accord <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5748	5860	
==>channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accord <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7530	7641	
==>ues; # the children of the seq child of the thunk
			my $last = pop @children_of_seq;

			my @params = grep { $_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7168	7275	
==>eader')>

This event is fired after the '=head(n)' directive and it's accompanying text has been
parsed.

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7168	7275	
==>eader')>

This event is fired after the '=head(n)' directive and it's accompanying text has been
parsed.

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8154	8301	
==>le_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8347	8494	
==>le_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18356	18469	
==>ing display if they are included in an embedded
class, set the I<anyof> object's C<strict> attribute to 1; the cha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16811	16972	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17090	17251	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21440	21575	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	25019	25146	
==>= "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	783	910	
==>s* S )? \s* )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1006	1124	
==>r( $self->{ast}() )};

    eval {
        $self->{perl5} = Pugs::Emitter::Perl6::Perl5::emit( 
            $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2030	2196	
==>> $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2277	2443	
==>> $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { re <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11072	11183	
==>omparable.<br />
    The percentage of passed tests is calculated using the total number of
    tests run -- for <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3816	3920	
==>rl5 t/op/ test files.  Use of the perl api has to be
checked for correctness, and the problems tracked do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1493	1601	
==>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9704	9857	
==>@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reve <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	927	1056	
==>@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reve <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1437	1552	
==>return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fa <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1437	1552	
==>return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1446	1544	
==>::undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	110	232	
==>el::Parser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $outp <==
2	/Users/nnunley/pugs/util/version_h.pl	61	156	
==>rsion_h = shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15563	15669	
==>ay raise a warning if the new value would put the span 
in an invalid state, such as `start` bigger than `e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15563	15669	
==>ay raise a warning if the new value would put the span 
in an invalid state, such as `start` bigger than `e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4266	4374	
==>$matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1365	1444	
==>w}\s*${re_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symb <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	140	328	
==>ub WriteAll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->si <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	205	374	
==>ub WriteAll {
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->si <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	617	732	
==>, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = leng <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	617	732	
==>, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = leng <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1155	1258	
==>des($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1155	1258	
==>des($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2251	2426	
==>_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
su <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2251	2426	
==>_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	885	996	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undef <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	885	996	
==>[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undef <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3527	3632	
==>'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3527	3632	
==>'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1553	1737	
==>fined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20() <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1553	1737	
==>fined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20() <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9828	9927	
==>et2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9828	9927	
==>et2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	194	323	
==>~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	194	323	
==>~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3580	3724	
==>turn { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3437	3577	
==>turn { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11659	11789	
==>ead} = $linkhead;
      $link->{whole}    = $whole;
      $link->{relfile}  = $relative_file;
      if ($regex) {
        $reopts|| <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11403	11499	
==>n different packages.

This would permit
  ./perl -we 'use Regexp::Perl6; print "a" =~ /<word>**{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1205	1319	
==>NV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1205	1319	
==>NV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_para <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8650	8745	
==>es a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Crea <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8650	8745	
==>es a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Crea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25397	25505	
==>s of the GPL for Rosetta and the licenses
of the other components concerned, provided that you include the so <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25397	25505	
==>s of the GPL for Rosetta and the licenses
of the other components concerned, provided that you include the so <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2474	2644	
==>pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/;
            return $grammar->no_match;
        };
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4845	4940	
==>_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	39	146	
==>p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	39	146	
==>p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dump <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14422	14526	
==>]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14422	14526	
==>]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3284	3406	
==>f defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3284	3406	
==>f defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7124	7243	
==>ust be a toplevel element of
        # the meta file
        push @index_files, file($path.'.index');
        push @inde <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2875	2984	
==>Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2875	2984	
==>Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checks <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	130	235	
==>node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	130	235	
==>node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	572	681	
==>riableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	572	681	
==>riableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	162	285	
==>but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	162	285	
==>but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	138	235	
==>nction, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_functi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	138	235	
==>nction, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_functi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	0	117	
==>package Perl6::Pugs;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementat <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	0	117	
==>package Perl6::Pugs;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5734	5837	
==>lize (closed) database connection handle we will work with;
    # this does not talk to the underlying d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5734	5837	
==>lize (closed) database connection handle we will work with;
    # this does not talk to the underlying d <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1943	2071	
==>t:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14782	14878	
==>returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14782	14878	
==>returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1347	1458	
==>> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See thos <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1347	1458	
==>> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See thos <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12076	12167	
==>etta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12076	12167	
==>etta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3393	3502	
==>) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4075	4184	
==>) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "ar <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9674	9840	
==>(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9674	9840	
==>(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12574	12775	
==>os}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12568	12769	
==>os}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call meth <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9784	9921	
==>= 0;
          } else { 
              # skipped tests do not carry the a line number, so leave them out for now
          if($test->{todo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2642	2741	
==>INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2642	2741	
==>INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1687	1779	
==>-9]+)\]/'".$m->['.($1-1).']->to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from,map{\$_->from}\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	794	896	
==>th, which was the objective.

# Interest was expressed in developing this into a cpan module for
# real <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2505	2633	
==>',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave acce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2505	2633	
==>',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave acce <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4094	4186	
==>, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4335	4429	
==>tch (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4585	4679	
==>tch (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1758	1892	
==>.  It is defined in L<Test::Harness::TAP>.

C<Test::Harness::runtests(@tests)> runs all the testscripts named
as arguments and checks s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	83	190	
==>seCategory);

# XXX - this module is currently unused
# XXX - see Pugs::Grammar::BaseCategory ws()

# placeh <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5233	5372	
==>open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    el <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5233	5372	
==>open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    el <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9569	9730	
==>= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $f->($fagain) }LET;
        return $v if not FAILED($v);
        TA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1581	1709	
==>::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1592	1720	
==>::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&captur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22621	22715	
==>=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22621	22715	
==>=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24189	24287	
==>ndefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28741	28839	
==>ndefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7260	7380	
==>ee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7260	7380	
==>ee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18025	18132	
==>ese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18025	18132	
==>ese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10781	10899	
==>s in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10781	10899	
==>s in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7639	7775	
==>ion."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_excl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11116	11252	
==>ion."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_excl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	120	222	
==>Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return *$d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	120	222	
==>Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return *$d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23177	23281	
==>upply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23177	23281	
==>upply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(chann <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13108	13297	
==>os}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13102	13291	
==>os}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13662	13852	
==>oin( ', ', 
                map { 
                    join( ' => ', map { "'" . _emit($_) . "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	467	583	
==>t(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1995	2111	
==>t(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9256	9424	
==>e('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9256	9424	
==>e('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21068	21174	
==>f these fields will be present in the header
after the call.  All values ought to be kept.

Passing a value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21068	21174	
==>f these fields will be present in the header
after the call.  All values ought to be kept.

Passing a value <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2460	2615	
==>y storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353). <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2460	2615	
==>y storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353). <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2730	2844	
==>ft)}) }
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : method { 
    my $self = shift;
    (blesse <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12310	12402	
==>="<tmpl_var name=failed> failed"><tmpl_var name=failed></span>,</td>
	      <td class="num te <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8509	8644	
==>ion."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_int <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11986	12121	
==>ion."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_int <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6790	6942	
==>rent != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6790	6942	
==>rent != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32972	33072	
==>butes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32972	33072	
==>butes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35492	35588	
==>Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method returns a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35492	35588	
==>Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method returns a <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1786	1890	
==>he C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Th <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1786	1890	
==>he C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20898	21001	
==>iles as well, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20898	21001	
==>iles as well, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3614	3713	
==>m like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneie <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3614	3713	
==>m like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneie <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	963	1263	
==>0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            % <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	963	1263	
==>0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            % <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17886	18001	
==>f["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namespace [ " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	11	118	
==>::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$po <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	11	118	
==>::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$po <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9388	9540	
==>again = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10379	10531	
==>again = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	94	231	
==>ar {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being s <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	94	231	
==>ar {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5777	5882	
==>se("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5777	5882	
==>se("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8681	8799	
==>[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8677	8795	
==>[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7953	8078	
==>ION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7953	8078	
==>ION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	304	414	
==>e lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	304	414	
==>e lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4968	5076	
==>ument = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4968	5076	
==>ument = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_n <==
2	/Users/nnunley/pugs/util/drift.pl	11	124	
==>perl
use IPC::Open2;
use Config;
use File::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrI <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	90	192	
==>y;

# change these two lines if it turns out we need the real YAML.pm
use PugsBuild::MiniYAML ();
our $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21148	21251	
==>Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21148	21251	
==>Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1791	1925	
==>)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1791	1925	
==>)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.I <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4750	4871	
==>, :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

mult <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4808	4929	
==>, :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

mult <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2966	3086	
==>';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3815	3935	
==>';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	58	158	
==>w/Exporter/;

use strict;
use warnings;

use Blondie::Nodes;

use Test::Deep;
use Test::Exception;

o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21229	21322	
==>tf8    substrs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0].min_offset
 #de <==
2	/Users/nnunley/pugs/util/package-osx.pl	10647	10783	
==>header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ 
        \);\n
        for my \$file \ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4860	5033	
==>($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4860	5033	
==>($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14235	14339	
==>$newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14235	14339	
==>$newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23522	23620	
==>y and/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Depe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28074	28172	
==>y and/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Depe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8056	8177	
==>$how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2027	2157	
==>undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2027	2157	
==>undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6040	6152	
==>SAGE">.

=head1 WARNING

This is version B<0.022b>.  The documentation is (still) incomplete.  It
may be a little <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6942	7048	
==>ssary to destroy all possible bindings
            # user code has to @array[$off+$i], see t/operators/bind <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3059	3166	
==>sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3059	3166	
==>sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1803	1930	
==>f.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1803	1930	
==>f.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2163	2293	
==>my $cat = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_op( {
        name => '+',
        bloc <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	44	145	
==>ada;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

sub provides { }

__PACKAGE__;

__END_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17410	17535	
==>in", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17410	17535	
==>in", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3165	3263	
==>y attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
functi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3165	3263	
==>y attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
functi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3227	3364	
==>, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3227	3364	
==>, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6414	6548	
==>nizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ precedence => 'tight <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4763	4861	
==>te one, 1- wrap with push-on-array
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6878	7040	
==>ion."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10355	10517	
==>ion."
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3142	3293	
==>s $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3019	3165	
==>s $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5997	6164	
==>($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5997	6164	
==>($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Pa <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	34	151	
==>pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or of Pugs::Internals:: subs,
# or implemen <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3086	3188	
==>gle span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3086	3188	
==>gle span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2104	2239	
==>,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2115	2250	
==>,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3543	3695	
==>= @_;
            $reason ||= '';
            _('$.output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8813	8940	
==>unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6023	6135	
==>> {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6023	6135	
==>> {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12452	12569	
==>est),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12452	12569	
==>est),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25482	25613	
==>self = shift;
    return;
  }
}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18489	18594	
==>e
default is no longer ' ' since that would be interpreted as a constant.

# sprintf # XXX - see Prelude.p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2921	3043	
==>rack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2921	3043	
==>rack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($mat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4293	4455	
==>> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4293	4455	
==>> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25051	25198	
==>match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applica <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25330	25477	
==>match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_applica <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	14	121	
==>ind-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.res <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	14	121	
==>ind-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.res <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13894	14009	
==>00) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copy <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13894	14009	
==>00) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copy <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8248	8340	
==>?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11725	11817	
==>?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11545	11635	
==>) = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain ima <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11545	11635	
==>) = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain ima <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4912	5029	
==>atch string).

=head1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4912	5029	
==>atch string).

=head1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16391	16489	
==>t_type = 'text/html';

The value returned will be converted to lower case, and potential
parameters <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16391	16489	
==>t_type = 'text/html';

The value returned will be converted to lower case, and potential
parameters <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12703	12844	
==>('add_method' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            met <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1431	1534	
==>pile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2->perl5;
print "Benchmark:\n";
Benchmark::cmpthese( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9575	9753	
==>::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9854	10032	
==>::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11958	12080	
==>$symbol could not be resolved by $self";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5971	6076	
==>mpile(<<'RULE')->code();

    sub <?p6ws> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3481	3593	
==>add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3481	3593	
==>add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18385	18494	
==>ve found that when it comes to getting the most accurate program text
for users, we still get the best results <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18385	18494	
==>ve found that when it comes to getting the most accurate program text
for users, we still get the best results <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1585	1695	
==>if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4788	4898	
==>if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8443	8560	
==>d.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not implemented.\n";
	return "";
    }
    if <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24472	24554	
==>mat(C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_undef(N,X,amat(C0,G),a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	705	818	
==>defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	793	906	
==>defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2607	2728	
==>ue{$P};
    delete $O.property_attribute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	725	898	
==>y Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%attrs!) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11279	11425	
==>$self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });


  return;

  # control character
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1555	1661	
==>e, $vis) = @_;
    Carp::croak("anchor is an abstract class") if $class =~ /::anchor$/;

    my $self = ble <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2728	2838	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3301	3411	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1884	1990	
==>ome reason, directly returning this expression does not
    # yield the correct return value.

    say "Com <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1884	1990	
==>ome reason, directly returning this expression does not
    # yield the correct return value.

    say "Com <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12950	13045	
==>{
	my $t_of_param = type($$)->left;
	my $prev_generic = generic($.body);

	if ($t_of_param->free <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1606	1756	
==>, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1606	1756	
==>, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16010	16160	
==>nt( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16289	16439	
==>nt( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::option <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4968	5088	
==>S TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # De <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4968	5088	
==>S TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # De <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1352	1521	
==>};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1340	1509	
==>};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9276	9393	
==>'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8462	8560	
==>ap(sub {
			Blondie::TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::Typ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3972	4100	
==>that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4436	4564	
==>that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4226	4355	
==>th embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4226	4355	
==>th embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3678	3778	
==>>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b). <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3678	3778	
==>>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b). <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	704	809	
==>determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	704	809	
==>determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13520	13628	
==>scope we can't know it's type
ide: type($$) = {
	my $t = env($$)->{$.v};

	die "no such identifier " . $.v un <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17441	17538	
==>od (WALKMETH (&dispatcher (symbol new BUILD)))))))

=cut

$::Class->send('add_method' => (
    # m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6443	6555	
==>s rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6443	6555	
==>s rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4877	4985	
==>ff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4877	4985	
==>ff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4650	4788	
==>tch::Ratchet';
        return;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12261	12364	
==>rchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12261	12364	
==>rchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2828	2945	
==>hod run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2828	2945	
==>hod run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2664	2760	
==>rrently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.d <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2664	2760	
==>rrently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3139	3236	
==>$desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Jun <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3197	3294	
==>$desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Jun <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12382	12483	
==>e containing a digest of the original content.
#
# This makes further dividing of Perl code less troub <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12382	12483	
==>e containing a digest of the original content.
#
# This makes further dividing of Perl code less troub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5363	5546	
==>h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5363	5546	
==>h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fre <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5630	5742	
==>ests);
}

sub run_children {
    my ($self, $child_count, $all_tests) = @_;
    my $chunk_size = POSIX::ceil(@$al <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5151	5259	
==>);
  my $r2 = compile("<$name>") || die;
  my $aref = \@statements;
  push(@$aref,$r2);
  $r;
}

my @operator <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26986	27094	
==>de("pair")), "∀α. ∀β. α → β → (α × β)", ":t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2238	2340	
==>ubscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Events::Publ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	653	790	
==>ext {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	653	790	
==>ext {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'p <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3018	3133	
==>l()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
al <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3018	3133	
==>l()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
al <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5217	5325	
==>s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5217	5325	
==>s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfol <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10406	10527	
==>{
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10406	10527	
==>{
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7911	8000	
==>$event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7911	8000	
==>$event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<fro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34775	34874	
==>ains all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> alon <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39325	39424	
==>ains all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> alon <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1205	1301	
==>Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1172	1268	
==>Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5102	5243	
==>lse
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5102	5243	
==>lse
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	852	958	
==>iler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.val <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	852	958	
==>iler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17346	17454	
==>S" for English the
way it is written in the US.

=item $h.title

The title of the document.  In libwww-perl t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17346	17454	
==>S" for English the
way it is written in the US.

=item $h.title

The title of the document.  In libwww-perl t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2187	2290	
==>pile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( < <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	434	571	
==>e_ext},
        path_sep  => $Config{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        siteb <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14099	14210	
==>($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17576	17687	
==>($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	428	542	
==>le_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	428	542	
==>le_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4212	4336	
==>d} contents dont make it to $step (v5.8.5)?!?
    return &$step;
  };
}

my @whitespaces;
my $ws = def_rule('ws',mk_dynamic_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9822	9973	
==>mper $n;
        if ( exists $n->{exp2}{pointy_block} ) {
            return  " " . $n->{op1}{stmt} . 
                    ' my ' . _emit( $n->{exp2} <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6860	6989	
==>ll a newer version from http://haskell.org/ghc/.
.
    }

    my $ghc_flags = "-H0 ";
    $ghc_flags .= " -i. -isrc -isrc/pcre -I. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	74	192	
==>se File::Basename;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->imp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4813	4951	
==>->get_method_list) {
            # if we already have the method, then
            # ignore it and go to the next one
            next if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2040	2163	
==><subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2051	2174	
==><subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2345	2441	
==>.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subset($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2345	2441	
==>.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subset($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2037	2144	
==>edence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2037	2144	
==>edence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18166	18265	
==>.  To account for situations where multiple DBMS
objects want to use the same external resources, su <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18166	18265	
==>.  To account for situations where multiple DBMS
objects want to use the same external resources, su <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	266	379	
==>rdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	266	379	
==>rdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3505	3604	
==>p->clear;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y for p <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3036	3133	
==>@values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Array::shift := &Array::splice.a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8192	8295	
==>!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8250	8353	
==>!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Te <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8726	8827	
==>ier>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8726	8827	
==>ier>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6703	6810	
==>y $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6703	6810	
==>y $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14934	15031	
==>port it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:D <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14934	15031	
==>port it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9973	10155	
==>r.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9973	10155	
==>r.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3065	3181	
==>broutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3543	3659	
==>broutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	160	265	
==>:Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	160	265	
==>:Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3597	3732	
==>$index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3597	3732	
==>$index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9340	9463	
==>( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9340	9463	
==>( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8786	8884	
==>ts

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

Th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8786	8884	
==>ts

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12558	12691	
==>f ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_gen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12558	12691	
==>f ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_gen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	341	599	
==>ckages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	341	599	
==>ckages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3483	3606	
==>e Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3700	3823	
==>e Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29116	29265	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29395	29544	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2087	2194	
==>'path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2087	2194	
==>'path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	894	1037	
==>essage) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	894	1037	
==>essage) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22285	22432	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22564	22711	
==>stant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	426	541	
==>class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	458	573	
==>class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	198	302	
==>guments
my $input_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	198	302	
==>guments
my $input_filename = shift || die "Missing arguments!";
my $output_filename = shift || die "Missi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3574	3677	
==>item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3574	3677	
==>item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45308	45405	
==>name')      => attribute->new('$:name'      => 'str')));
$::Package->send('add_attribute', (symbol <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2921	3038	
==>athchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = joi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2921	3038	
==>athchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = joi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4239	4455	
==>,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibilit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4239	4455	
==>,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibilit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17458	17565	
==>n $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  retu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17458	17565	
==>n $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5179	5343	
==>Match::Ratchet';
        return;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7 <==
2	/Users/nnunley/pugs/util/package-osx.pl	9167	9298	
==>eys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14141	14270	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14420	14549	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2644	2751	
==>nt "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2784	2891	
==>nt "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11704	11822	
==>ler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4347	4465	
==>ler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10312	10420	
==>y list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10312	10420	
==>y list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3747	3872	
==>compile( '" .
            _quotemeta( emit_perl6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	159	285	
==>rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.mess <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	159	285	
==>rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.mess <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	816	1068	
==>urn;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $file && -r _;
                                    local $Carp::Car <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21932	22043	
==>d["isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cnam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17001	17117	
==>code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_per <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17001	17117	
==>code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_per <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3131	3308	
==>); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3131	3308	
==>); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1297	1427	
==>ithm is based on statistics. This was my main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1297	1427	
==>ithm is based on statistics. This was my main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	735	859	
==>ring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieres <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	735	859	
==>ring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieres <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8032	8146	
==>e loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8032	8146	
==>e loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2557	2662	
==>urn $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2557	2662	
==>urn $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8956	9093	
==>"loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8956	9093	
==>"loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5143	5248	
==>pher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5143	5248	
==>pher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
byt <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20499	20606	
==>) :- flag_m(E0), !.
rm(eol,         [],[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6445	6558	
==>e subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6445	6558	
==>e subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38562	38658	
==>or example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38562	38658	
==>or example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2009	2136	
==>thod union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2009	2136	
==>thod union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	611	716	
==>nds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	611	716	
==>nds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1560	1706	
==>e_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1767	1913	
==>e_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10639	10808	
==>uleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10918	11087	
==>uleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2377	2493	
==>de(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.in <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2377	2493	
==>de(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6851	6976	
==>erer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6851	6976	
==>erer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6116	6263	
==>set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.ne <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6116	6263	
==>set.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.ne <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1664	1765	
==>", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1722	1823	
==>", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	21	156	
==>otype for the Pugs-Compiler-Precedence module - fglock

use Parse::Yapp;
$DEBUG=0;
$|=1;
use Data::Dumper;

# see also:
#  http: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4803	4962	
==>r of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4803	4962	
==>r of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versi <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2205	2316	
==>hc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exis <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4718	4844	
==>_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  || <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4718	4844	
==>_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  || <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3454	3552	
==>y>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to the quer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3454	3552	
==>y>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to the quer <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7985	8096	
==>revious if defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7985	8096	
==>revious if defined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6610	6706	
==>eturn value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6610	6706	
==>eturn value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10817	10928	
==>t
given, then that header field will remain unchanged.

The old value (or values) of the last of the header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10817	10928	
==>t
given, then that header field will remain unchanged.

The old value (or values) of the last of the header fiel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5391	5604	
==>ocument,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5391	5604	
==>ocument,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21335	21423	
==>", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21335	21423	
==>", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {. <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16004	16139	
==>nk->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a represe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3919	4020	
==>class JSX::InternalValue::Reference {
    has $.base_object;
    has $.property_name;
    method GetBa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4926	5031	
==>hod end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span.is_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4926	5031	
==>hod end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span.is_e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13657	13790	
==>my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq[ln - <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6220	6368	
==>,


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                Sym->new(' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	560	700	
==>pes; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	560	700	
==>pes; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1088	1205	
==>t be a block";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    m <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5580	5692	
==>n "Cannot write to META.yml: $!";
    print META $self->_dump;
    close META;

    return $self;
}

sub version_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	7719	7816	
==>pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Spec::Mod <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5902	6015	
==>ts (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/3.
        $this_size -= $chunk_size if <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8847	8975	
==>"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(96 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8847	8975	
==>"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(96 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5582	5679	
==>2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5582	5679	
==>2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4608	4723	
==>a-z// is true)
        # This will also show numbers for some uneeded cases, but will
        # definately be helpfu <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4110	4206	
==>rameter_with_default(
            traverse_ast( %pad<"tpParam"> ), traverse_ast( %pad<"tpDefault" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11014	11110	
==>r $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11072	11168	
==>r $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6401	6502	
==>_vars {
	my $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inherit fro <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6266	6381	
==>fiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase s sigspace g global c continue p pos
        on <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18267	18368	
==>||'> <LogicalANDExpressionNoIn>
}
rule ConditionalExpression :words {  # see 11.12
      <LogicalORExp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6272	6387	
==>' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6272	6387	
==>' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	421	524	
==>my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my % <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	421	524	
==>my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my % <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	758	887	
==>os, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	758	887	
==>os, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27422	27519	
==>xp::Parser::Objects - objects for Perl 5 regexes

=head1 DESCRIPTION

This module contains the obj <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5196	5301	
==>is module:

=over 3

=item get($url)

The get() function will fetch the document identified by the given U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5196	5301	
==>is module:

=over 3

=item get($url)

The get() function will fetch the document identified by the given U <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	701	803	
==>scape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A- <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	701	803	
==>scape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9234	9384	
==>^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9234	9384	
==>^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1056	1173	
==>~ /c/) {
	    print "not ok  \# Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $de <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16772	16859	
==><RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpressionN <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4987	5095	
==>rray of bytes, 
then clears the object's internal state.  This should be called as the last 
step of encipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4987	5095	
==>rray of bytes, 
then clears the object's internal state.  This should be called as the last 
step of encipher <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3121	3256	
==>$module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3121	3256	
==>$module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7516	7622	
==>|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8774	8862	
==>p5_charset_def_x(L0,L), !. % 45 is -
p5_charset_def([char(93)|L]) --> "]", p5_charset_ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14236	14333	
==>gnored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14236	14333	
==>gnored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7813	7920	
==>presenting an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7813	7920	
==>presenting an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16291	16387	
==>cations and packages that empowers single binaries to support N
locales or user types simultaneou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16291	16387	
==>cations and packages that empowers single binaries to support N
locales or user types simultaneou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27137	27261	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27416	27540	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'gra <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2029	2186	
==>{
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3623	3806	
==>oin( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3623	3806	
==>oin( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{li <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9353	9443	
==>har_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9353	9443	
==>har_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	172	301	
==>( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	172	301	
==>( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2293	2397	
==>xport(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2293	2397	
==>xport(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11557	11654	
==>s

A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11557	11654	
==>s

A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16129	16237	
==>Clean up the results into something a bit more predictable.
    $results =~ s/\n+$//;
    $results =~ s/at\s+ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15610	15705	
==>ata and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15610	15705	
==>ata and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	807	903	
==>= eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) beca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	807	903	
==>= eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) beca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2061	2163	
==>et $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2061	2163	
==>et $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	241	380	
==>&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	241	380	
==>&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	309	433	
==>or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	309	433	
==>or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16430	16530	
==>support for new languages easily and without a recompile (such as by simply
copying files), often eve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16430	16530	
==>support for new languages easily and without a recompile (such as by simply
copying files), often eve <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	378	523	
==>=> sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	378	523	
==>=> sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	183	289	
==>::Builder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    method write ( Str $message is co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	240	382	
==>STRINGS is readonly = (
    # This group of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	240	382	
==>STRINGS is readonly = (
    # This group of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16623	16737	
==>nt of control as
to what the user sees; it never outputs anything by itself to the user, but
rather returns its res <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16623	16737	
==>nt of control as
to what the user sees; it never outputs anything by itself to the user, but
rather returns its res <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7939	8048	
==>2;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7939	8048	
==>2;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curd <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6527	6631	
==>f the request fails, then the
status code and message are printed on STDERR.  The return value is
the HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6527	6631	
==>f the request fails, then the
status code and message are printed on STDERR.  The return value is
the HTT <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22533	22630	
==>ronment at all.

A Relation object has 2 main attributes (implementation details subject to
change <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27085	27182	
==>ronment at all.

A Relation object has 2 main attributes (implementation details subject to
change <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	800	915	
==>r; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }

 multi sub reverse (%hash) returns Hash is default <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8243	8341	
==>ces to the sub
array.

In Scalar context, they all return the count of elements that would have
bee <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1480	1672	
==>> {
                default     => [ ],
                no_override => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2128	2234	
==>tem * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2217	2323	
==>tem * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	332	458	
==>mmar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	312	434	
==>mmar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	822	939	
==>_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12492	12609	
==>_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6731	6839	
==>bject>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6731	6839	
==>bject>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4831	4954	
==>egers any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

Applies it's children one by one and reduces to <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2444	2574	
==>names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_name {
        if (!$?SELF.attr_name_exists( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2675	2804	
==>names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	902	1007	
==>p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
sub pretty_print {
    my $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26272	26376	
==>alue won't be reset (due to the C</c>
modifier).  Remember to use I<scalar> context.  If you need to acce <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2447	2541	
==>bel, hash %opts) returns method {
    { (&dispatcher.() // return).get_method($label, %opts) || <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31562	31662	
==>d, but is
still allowed, so I delete its handler too.  You can use this class to
ensure that there is <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1807	1895	
==>tion process described in README.

------------------------------------------------------ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1647	1735	
==>tion process described in README.

------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3794	3898	
==>ssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3794	3898	
==>ssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2917	3019	
==>.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrenc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2917	3019	
==>.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrenc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	264	375	
==>ndef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	470	581	
==>ndef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2991	3146	
==>at( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2991	3146	
==>at( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18823	18924	
==>rt (such as modification of the compiled re op tree the native
compiler creates, but which we obviousl <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3113	3214	
==>rt (such as modification of the compiled re op tree the native
compiler creates, but which we obviousl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3285	3436	
==>date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3285	3436	
==>date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2723	2825	
==>eturn $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normal <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2723	2825	
==>eturn $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7464	7574	
==>operators, and return a new 

match operator.



A ruleop() function gets as argument a list:



### we don't n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7211	7316	
==>operators, and return a new 
match operator.

A ruleop() function gets as argument a list:

### we don't n <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	96	183	
==>e.

Resources:
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/S05.pod
  http: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1028	1122	
==>st = Digest->new("SHA-1");
	$digest->add($c_code);
	my $sha1 = $digest->digest;

	$cache{$sha1} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5799	5944	
==>/) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5799	5944	
==>/) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25725	25893	
==>ype => 'logical',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(??{$self->{data}})";
  }

  s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14622	14736	
==>, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct POSIX class
  $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	937	1101	
==>Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	937	1101	
==>Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.head <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5192	5356	
==>se ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5192	5356	
==>se ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.csta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11394	11497	
==>ngle
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11394	11497	
==>ngle
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2942	3050	
==>$didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)- <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2942	3050	
==>$didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12040	12162	
==>was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12040	12162	
==>was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1035	1157	
==>nt;

	if (@_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (map { "$_," } @_)
	) . "\n" . ("    " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28488	28582	
==>method.  Typically, a capturing group's ender
is a C<close> node, any other assertion's ender i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3215	3405	
==>ath ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3215	3405	
==>ath ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3328	3465	
==>eta_file ) );
            
            my %avail = map { $_->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8986	9087	
==>will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8986	9087	
==>will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12681	12810	
==>Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12681	12810	
==>Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11636	11736	
==>his stores a collection of Node objects,
which are all of the Nodes that live in this Document.

=ite <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11636	11736	
==>his stores a collection of Node objects,
which are all of the Nodes that live in this Document.

=ite <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27352	27445	
==>SS_IGNORE_EXITCODE>

Makes harness ignore the exit status of child processes when defined.

=i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	607	731	
==>ze = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	607	731	
==>ze = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34768	34888	
==>ranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13783	13895	
==>join (Relation *@others) returns Relation {

    # First do some optimizing of the order that source relations ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17260	17372	
==>join (Relation *@others) returns Relation {

    # First do some optimizing of the order that source relations ar <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12179	12282	
==>_sequence(X) --> "\\", ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6633	6740	
==>w should I handle blocks of text which seem to still be inside a list?

Basically the item body, much like t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6633	6740	
==>w should I handle blocks of text which seem to still be inside a list?

Basically the item body, much like t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1204	1322	
==>"e:string"; # XXX delme
        # so, why do these two not actually split?
        # my @args = $string.split(rx:Perl5/ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	731	829	
==>1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	731	829	
==>1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17283	17377	
==>that it subscribes to the
localization methodology that is described here, and hence provides t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17283	17377	
==>that it subscribes to the
localization methodology that is described here, and hence provides t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6005	6169	
==>e found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6469	6633	
==>e found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7232	7349	
==>r(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7232	7349	
==>r(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr( <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	439	585	
==>Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	439	585	
==>Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1875	2002	
==>amed;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1875	2002	
==>amed;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3512	3615	
==>h lexically and dynamically scoped
overriding.  You currently can't do lexical.  It's not clear how to d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6473	6561	
==>self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6473	6561	
==>self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	126	244	
==>uild code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	126	244	
==>uild code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24762	24869	
==>. (α → β) → γ", "pretty print (a -> b) -> c");
}
{
	my $type = type::operator::arrow->new(
		type::va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16374	16475	
==>yntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	246	348	
==>DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetime <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	246	348	
==>DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetime <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20525	20627	
==>ield names with ':' allow you to force a
specific spelling.  For example if you really want a header fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20525	20627	
==>ield names with ':' allow you to force a
specific spelling.  For example if you really want a header fi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5526	5640	
==>d todo skipped unexpect>),
    $smoke{id};
}

sub unpack_smoke {
  my $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1889	2006	
==>f --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1889	2006	
==>f --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24526	24653	
==>led - $skipped;
        my $skipmsg = " (less $skipped skipped test$ender: $good okay, ";
        if ($max) {
            my $go <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26829	26939	
==>ing C<$Test::Harness::Debug> will
override this, or you can use the C<-d> switch in the F<prove> utility.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6830	6936	
==>? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6830	6936	
==>? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11713	11821	
==>object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	641	760	
==>he class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not supp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	641	760	
==>he class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not supp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10461	10589	
==>ted) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state whe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10461	10589	
==>ted) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state whe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16452	16555	
==>ey Tang. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16510	16613	
==>ey Tang. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6368	6506	
==>rnately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6368	6506	
==>rnately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7939	8032	
==>normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7939	8032	
==>normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16211	16310	
==>tionales; you can read TTM itself and
various other external documentation for much of that.

The Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16211	16310	
==>tionales; you can read TTM itself and
various other external documentation for much of that.

The Ro <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2676	2806	
==>App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2349	2479	
==>" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2349	2479	
==>" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3892	4031	
==>$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %args) = @_;

    # ignore the prefix on exten <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	73	161	
==>1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5::X1::Prelud <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6851	6957	
==>match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1819	1918	
==>n.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1819	1918	
==>n.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6188	6308	
==>icient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    retur <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6188	6308	
==>icient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10214	10352	
==>ookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10214	10352	
==>ookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SE <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2957	3086	
==>y_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2957	3086	
==>y_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $star <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1505	1600	
==>t13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1505	1600	
==>t13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE A <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	25	137	
==>t::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	25	137	
==>t::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_ele <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3507	3602	
==>de as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3507	3602	
==>de as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it <==
2	/Users/nnunley/pugs/util/package-osx.pl	3131	3228	
==>/Frameworks/GMP.Framework
        /Library/Perl6
        /Library/Perl/5.8.6/darwin-thread-multi-2 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14773	14923	
==>1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14773	14923	
==>1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $dig <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5231	5339	
==>TA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($fold <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5231	5339	
==>TA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($fold <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23888	23980	
==>ge specific details like
encodings or plurality.

My understanding of alternate solutions lik <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23888	23980	
==>ge specific details like
encodings or plurality.

My understanding of alternate solutions lik <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3655	3761	
==>etting C<$match.multidex> to the index where
captures should put themselves.  In the former example, when C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3655	3761	
==>etting C<$match.multidex> to the index where
captures should put themselves.  In the former example, when C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	123	280	
==>as $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	123	280	
==>as $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $req <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2882	2988	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2882	2988	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8023	8127	
==>ee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8023	8127	
==>ee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %use <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3065	3167	
==>::TestBuilder->FETCH('::Test')->STORE('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7142	7243	
==>aks under taint, but open -| is unportable.
    my $line = $self->_command_line($file);
    unless( op <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5562	5672	
==>he string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5562	5672	
==>he string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3765	3863	
==>sure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3765	3863	
==>sure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17924	18019	
==>gram handling the request.

=item $h.from

This header should contain an Internet e-mail address <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17924	18019	
==>gram handling the request.

=item $h.from

This header should contain an Internet e-mail address <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36591	36684	
==>equivalent human readable text message
string; this assumes that a Template corresponding to t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36591	36684	
==>equivalent human readable text message
string; this assumes that a Template corresponding to t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	370	549	
==>'$.skip'}        = 0  unless exists $params{'$.skip'};
            $params{'$.todo'}        = 0  unless exists $params{'$.todo'};
            $params{'$.reason'}      = '' unless e <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19411	19522	
==>tExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <VariableStat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19104	19225	
==>EQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15525	15646	
==>EQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24056	24169	
==>ubstitute the user's preferred
language into the program code itself, so it then becomes a version of that
languag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24056	24169	
==>ubstitute the user's preferred
language into the program code itself, so it then becomes a version of that
languag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10684	10798	
==>xt}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10684	10798	
==>xt}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	771	897	
==>'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	771	897	
==>'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	440	556	
==>$callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @:events and call it.
  my method step () <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8037	8159	
==>p
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8037	8159	
==>p
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	369	473	
==>lp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environment',      'PIL_Environment <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2745	2846	
==>es'}{'no_index'}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2068	2187	
==>ase, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # ta <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2068	2187	
==>ase, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # ta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5497	5625	
==>p,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BE <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7853	7954	
==>e Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_close;
}
{
  package Regexp::Parser <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9809	9957	
==>s;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }


=item sort

 type KeyExtractor  ::= Code(Any --> Any );
 type <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8922	9052	
==>e list
    ### and check if the package is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wante <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10399	10529	
==>e list
    ### and check if the package is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wante <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1605	1748	
==>nt};
        
    return $n->{num} 
        if exists $n->{num};
        
    return _mangle_var( $n->{scalar} )
        if exists $n->{sc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2315	2623	
==>x:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbati <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2315	2623	
==>x:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbati <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8463	8597	
==>($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global'};
    my $ov = %mods{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	401	509	
==>self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	401	509	
==>self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6100	6226	
==>o"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6100	6226	
==>o"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8849	8953	
==>~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5222	5320	
==>he closure here will be passed a reference to the current value, 
this allows r/w access to the val <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1802	1932	
==><\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1813	1943	
==><\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	666	919	
==>press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	666	919	
==>press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

mod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13448	13551	
==>source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $so <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13448	13551	
==>source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $so <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1151	1240	
==>e::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1151	1240	
==>e::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33346	33448	
==>h to override the user text of another library
which it uses, the Template module for the program or fi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33346	33448	
==>h to override the user text of another library
which it uses, the Template module for the program or fi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8972	9090	
==>of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8972	9090	
==>of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6833	6983	
==>- @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6833	6983	
==>- @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!bo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1832	1945	
==>_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1832	1945	
==>_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18769	18892	
==>nullary->new("str")),
			),
		),
	),
);

# this function cannot be typed, since it wants a function in x, (a -> b), and a is <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23796	23907	
==>asses

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15.1.3
      <uriCharacter> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1766	1904	
==>@a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1766	1904	
==>@a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	502	611	
==>pture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	502	611	
==>pture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4081	4298	
==>le(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and(
                          block->new($ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	62	153	
==>.
Here is a place to accumulate one.

Resources:
  http://search.cpan.org/dist/Perl6-Bible/l <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26636	26741	
==>15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash>
    | <ClassAtomNoDash> <'-' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11071	11174	
==>trNumericLiteral> <StrWhiteSpace>?
}
rule StrWhiteSpace {  # see 9.3.1
      <StrWhiteSpaceChar> <StrWhi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6066	6162	
==>ub reduce_sym {
	my $self = shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($node->stru <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18703	18796	
==>t_max(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max(Re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	919	1076	
==>\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	930	1087	
==>\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2259	2362	
==>ll links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <s <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2259	2362	
==>ll links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2490	2599	
==>r();

=head1 DESCRIPTION

An object of this class represents the query string portion of a requested URI.
It p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2490	2599	
==>r();

=head1 DESCRIPTION

An object of this class represents the query string portion of a requested URI.
It p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	675	775	
==>-------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	675	775	
==>-------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $ch <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2426	2526	
==>l_location) == 0 or die "Could not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8186	8281	
==>e line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is fou <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8186	8281	
==>e line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is fou <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1732	1862	
==>->can('subclasses')) { # roles don't have subclasses
        foreach my $subclass (@{$class->subclasses}) {
           $output .= _ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	789	945	
==>die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18746	18981	
==>s inside a pre.
                      $h->push_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a normal link, after t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3408	3524	
==>g; $s }

sub emit_grammar_perl5 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3224	3363	
==>7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	579	710	
==>UILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	579	710	
==>UILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%head <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2235	2353	
==>the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2235	2353	
==>the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4834	5028	
==>pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5056	5250	
==>pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9381	9535	
==>1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9381	9535	
==>1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23085	23181	
==>with the other packages like "gettext" it looks like you
are supposed to pass in english text and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23085	23181	
==>with the other packages like "gettext" it looks like you
are supposed to pass in english text and <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4854	4952	
==>e quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4854	4952	
==>e quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1775	1873	
==>rl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1775	1873	
==>rl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20265	20360	
==>ge.  No
recompilation necessary.  This is something that end users could do,
although program pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20265	20360	
==>ge.  No
recompilation necessary.  This is something that end users could do,
although program pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6323	6472	
==>(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6323	6472	
==>(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4094	4214	
==>mpl = {
        file => { required => 1, store => \$file }
    };

    check( $tmpl, \%hash ) or error(Params::Check->las <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5747	5857	
==>nitrd_gz, $initrd_mnt, $lib6, $parrot_path);

my $welcomed = 0;
step
  descr  => "Welcome",
  ensure => sub { $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8505	8645	
==>return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn't m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8221	8357	
==>return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn't m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16990	17108	
==>::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	663	1002	
==>ffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @arg <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	663	1002	
==>ffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @arg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21322	21423	
==>s a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21322	21423	
==>s a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternati <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	193	328	
==>ule that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2330	2433	
==>__;

__END__

=pod

=head1 NAME

Blondie::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondie::Nod <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25863	25959	
==>eys do not match invocant
Relation attribute names, or any C<$mapping> values duplicate each othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30415	30511	
==>eys do not match invocant
Relation attribute names, or any C<$mapping> values duplicate each othe <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	458	552	
==>e();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compression() if $compressio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11066	11193	
==>ethod as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11066	11193	
==>ethod as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6326	6424	
==>pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6326	6424	
==>pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L< <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17851	17976	
==>param pmc pad
    $I0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23555	23645	
==>ace|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16470	16635	
==>in_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offse <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20896	21061	
==>in_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offse <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	883	981	
==>mpiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	883	981	
==>mpiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32851	32946	
==>:Parser::>, but that is omitted
here for brevity.  The headings are object I<classes>.  The fiel <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	389	475	
==>fig, qw(--inline --pugs|p=s --precompile|i=s@ --verbose|v --touch --output|o=s --keep|k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4701	4877	
==>next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4701	4877	
==>next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3461	3567	
==>ollection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3461	3567	
==>ollection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2869	2969	
==>return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2869	2969	
==>return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7242	7357	
==>yof_char => 'Z') if $cc;
    return $S->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_han <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8137	8240	
==>g_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unkno <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8137	8240	
==>g_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unkno <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14042	14151	
==>g  => sub { mkdir $cdroot };

step
  descr  => "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18930	19025	
==>ts nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18930	19025	
==>ts nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, us <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4485	4601	
==>urn $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4485	4601	
==>urn $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15897	16002	
==>ritten
several books and papers and taught classes on the subject over the last
35+ years, along with Codd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15897	16002	
==>ritten
several books and papers and taught classes on the subject over the last
35+ years, along with Codd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11253	11402	
==>pec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($ke <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11253	11402	
==>pec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($ke <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	75	224	
==>$s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	75	224	
==>$s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	373	514	
==>less -d $meta;
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5554	5656	
==><list> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my'} = Pugs::Compiler::Rule->compile(< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7218	7343	
==>mage"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7218	7343	
==>mage"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3145	3300	
==>el} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3145	3300	
==>el} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9985	10099	
==>]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} };
      $ifthen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10451	10552	
==>me tests which you would like to force into being TODO tests
then you can pass them through this funct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10509	10610	
==>me tests which you would like to force into being TODO tests
then you can pass them through this funct <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8551	8701	
==>eading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect :: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12028	12178	
==>eading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect :: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10960	11060	
==>) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filte <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16861	16962	
==>nd, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other han <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16861	16962	
==>nd, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other han <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19299	19414	
==>- Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19299	19414	
==>- Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7744	7873	
==>"Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7744	7873	
==>"Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9875	9977	
==>:List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6:: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9875	9977	
==>:List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4290	4406	
==>c> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4290	4406	
==>c> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18320	18420	
==>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18320	18420	
==>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1876	2105	
==>}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13183	13334	
==>f($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FA <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5034	5151	
==>rrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5034	5151	
==>rrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16084	16292	
==>::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16363	16571	
==>::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alte <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3407	3513	
==>ess {}, $class;
}

package type::operator::nullary;
use base qw/type::operator/;

sub new {
	my $class = sh <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1084	1177	
==>ler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1084	1177	
==>ler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24541	24645	
==>= b");
}
{
	my $type = type::operator::arrow->new(
		type::operator::arrow->new(
			type::variable::free- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5742	5872	
==>%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 5, '.. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10053	10183	
==>%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	318	409	
==>t() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	318	409	
==>t() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3277	3391	
==>_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3277	3391	
==>_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4066	4224	
==>ass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $pass = eval " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4621	4720	
==>ST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13784	13904	
==> $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13784	13904	
==> $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4803	4903	
==>ode_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4803	4903	
==>ode_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_ar <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5624	5746	
==>tion');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  us <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5624	5746	
==>tion');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  us <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3350	3463	
==>ts '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3350	3463	
==>ts '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'L <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1506	1651	
==>n') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unk <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8778	8907	
==>UTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exit(0);
    }
    fprintf(stderr," <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	819	955	
==>->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OP <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	720	856	
==>->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OP <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	544	643	
==>ts (or possibly
    # the default values too)
    (blessed($signature) && ($signature->isa('closure: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2342	2463	
==>are ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2342	2463	
==>are ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7246	7369	
==>de::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7258	7381	
==>de::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27819	27981	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28098	28260	
==>l(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16120	16238	
==>and
whose Node Type attribute is set from the named parameter $node_type (a
string); the optional named parameter %attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16120	16238	
==>and
whose Node Type attribute is set from the named parameter $node_type (a
string); the optional named parameter %attr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5552	5653	
==>irable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object has und <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5552	5653	
==>irable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object has und <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1919	2063	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2112	2256	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5890	6037	
==>parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $clas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5890	6037	
==>parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $clas <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17411	17574	
==>link);
                my $t = HTML::Element->new('sup');
                $t->push_content('T');
                $backlink->push_content($t);
                my $sy <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11825	11956	
==>t
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_rec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11825	11956	
==>t
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_rec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10301	10408	
==>value of one or more header fields.  The header field
name ($field) is not case sensitive.  To make the life <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10301	10408	
==>value of one or more header fields.  The header field
name ($field) is not case sensitive.  To make the life <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	99	255	
==>of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	99	255	
==>of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1001	1114	
==>\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1001	1114	
==>\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6722	6833	
==>=> Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6722	6833	
==>=> Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13188	13286	
==>"\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6663	6761	
==>"\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2222	2323	
==>se = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2222	2323	
==>se = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4867	5028	
==>continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified numb <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4867	5028	
==>continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified numb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2002	2102	
==>->struct_equiv;
	} elsif ($t eq "PV") {
		return quote(printable($node->struct_equiv));
	} else { die <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2713	2823	
==>----------------------------------------------------------------------
## inserting children

method insert_chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2713	2823	
==>----------------------------------------------------------------------
## inserting children

method insert_chi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	146	261	
==>key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	146	261	
==>key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5034	5144	
==>t
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5034	5144	
==>t
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3982	4063	
==>L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node5 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3982	4063	
==>L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node5 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9933	10031	
==>h are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the el <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9933	10031	
==>h are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the el <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4110	4232	
==>>{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $self->{tree};
  no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7312	7407	
==>rs:



- higher order operators: alternation, concatenation.

- "plain" match operators: like 'l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7064	7156	
==>rs:

- higher order operators: alternation, concatenation.
- "plain" match operators: like 'l <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7524	7631	
==>erse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7524	7631	
==>erse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $chi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8229	8385	
==>result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8229	8385	
==>result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3843	3959	
==>en =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3843	3959	
==>en =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $spa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1068	1180	
==>c => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "ib <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1068	1180	
==>c => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "ib <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2576	2747	
==>s($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_altern <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	91	222	
==>rns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_documen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	91	222	
==>rns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_documen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9702	9804	
==>se
method _head() returns Array { return }
method _tail() returns Array { return }

# What we implement <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9702	9804	
==>se
method _head() returns Array { return }
method _tail() returns Array { return }

# What we implement <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14151	14251	
==>bject(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7022	7218	
==>);
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10499	10695	
==>);
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9930	10046	
==>r $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9930	10046	
==>r $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnec <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1663	1789	
==>omplement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1663	1789	
==>omplement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9717	9856	
==>s->{$line}) {
              $lines->{$line} = 0 if $test->{ok}||0 == 0;
          } else { 
              # skipped tests do not carry the a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2948	3118	
==>> 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can have them.
    $self->{totals}{$nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1960	2130	
==>rn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1960	2130	
==>rn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8264	8417	
==>"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8264	8417	
==>"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2418	2525	
==>= @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2669	2776	
==>= @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17075	17172	
==>Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17075	17172	
==>Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	908	1068	
==>y $footer = _('$.testplan')->footer( scalar @{_('@:results')} );
            _('$.output')->write($footer) if $footer;            
        }
    },
    methods = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11667	11782	
==>ect => sub { $_[0] ? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	487	600	
==>til::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	487	600	
==>til::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2665	2817	
==>ie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2665	2817	
==>ie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1295	1403	
==>x>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	142	247	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable';

sub new {
    my ($c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3406	3540	
==>rname hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = sp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3406	3540	
==>rname hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = sp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20626	20724	
==>es are private, so you must use accessor
methods.  Relation does not declare any subroutines or exp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25178	25276	
==>es are private, so you must use accessor
methods.  Relation does not declare any subroutines or exp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3184	3300	
==>ndef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3401	3517	
==>ndef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2126	2232	
==>a( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2907	3013	
==>a( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	665	767	
==>xt(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	665	767	
==>xt(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14813	14915	
==>n attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This stores a refer <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14813	14915	
==>n attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This stores a refer <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6301	6400	
==>arsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35672	35768	
==>lti-method is a generic binary relational operator that takes a single
Relation::Example in its C <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1329	1426	
==>ntered.  The latter would of
# course not help people running existent versions of perl5.  Perhaps <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11088	11244	
==>$.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.curre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11088	11244	
==>$.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.curre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	244	353	
==>t is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	244	353	
==>t is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nes <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5080	5204	
==>H('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4344	4459	
==>H('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	616	789	
==>IB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        }, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	872	1015	
==>n" . 
        "no warnings 'void';\n" .   # t/07-try.t, t/07-ref.t
        $perl5 . "\n" .
        "; 1;\n";

    {
      # Perl::Tidy is used i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3886	3991	
==>.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3886	3991	
==>.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	9895	10110	
==>/cp -r $from $dest$from 2>&1/) {
            print "Error copying $from to $dest$from: $_\n";
        }
        else {
            print "Copied $from to $dest$from\n";
        }
    }
}


# @files are all files that <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2239	2354	
==>VERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$op) = reverse split <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10143	10286	
==>bool => 0 } - match failed

or to a hashref containing:

    bool  - an "assertion" (true/false)
    from  - string pointer for start of th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4161	4266	
==>lashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineComment {  # s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7209	7305	
==>perator;
  $position = $operator->to();
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_PREFIX ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2688	2853	
==>ush @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2688	2853	
==>ush @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5263	5366	
==>nels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NA <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5263	5366	
==>nels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NA <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1279	1397	
==>tr $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & subst <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1279	1397	
==>tr $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & subst <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	528	644	
==>ters anyway,
#     so no great loss.
#
#  Other notes:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11185	11293	
==>ew(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator::ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3451	3563	
==>ick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3451	3563	
==>ick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nic <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11263	11367	
==>) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ($self: Int $i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11263	11367	
==>) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ($self: Int $i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3460	3590	
==>ls{seen} &&
                  $totals{max} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8728	8838	
==>ar(45)|L]) --> "-", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 45 is -
p5_charset_def([char(93)|L]) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	607	704	
==>hange ciphers simply by changing the class name used.

Ciphers used with the Cipher API must opera <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	607	704	
==>hange ciphers simply by changing the class name used.

Ciphers used with the Cipher API must opera <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	416	583	
==>r;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	416	583	
==>r;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_li <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11445	11542	
==>funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11503	11600	
==>funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3223	3351	
==>1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3223	3351	
==>1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $ma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4988	5158	
==>shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4988	5158	
==>shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3832	3935	
==>lass->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5734	5837	
==>lass->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1773	1882	
==>:Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1913	2022	
==>:Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print ' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1625	1770	
==>ucture follows the spec.  If for
#  instance, your engine cannot handle left recursive rules, you should
#  create a new grammar, inherit from thi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4815	4910	
==>rn "calling equal_to on " . $left->fetch($i)->name->to_native . ' => ' . $left->fetch($i)->type- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1419	1526	
==>t returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1419	1526	
==>t returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2552	2674	
==>lsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2552	2674	
==>lsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $en <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25441	25545	
==>at %d)>

Scripts that return a non-zero exit status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	690	793	
==>xperimental "let's see if something
like this can work" to "ok, this looks doable".  So yes, the code is <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1172	1285	
==>der;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::long <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21151	21236	
==>charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset_mem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2658	2829	
==>$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2905	3076	
==>$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantif <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1442	1536	
==>s about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rende <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1442	1536	
==>s about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rende <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12309	12408	
==>oc, pod section, comment block and data section, each
# into a single line containing a digest of th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12309	12408	
==>oc, pod section, comment block and data section, each
# into a single line containing a digest of th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10717	10814	
==>rer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10717	10814	
==>rer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    retur <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23344	23462	
==>pad)
    .return (exp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13489	13594	
==>=~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13489	13594	
==>=~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $sourc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2761	2879	
==>'String' {
        my $Result1 = $O.<[[Get]]>('toString');
        if $Result1.isa(JSX::Value::Object) {
            my <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3877	4001	
==>};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<precompiled>';\n\n";
        # (the need fo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2806	2918	
==>009 }
rule VT   { \x000B }
rule FF   { \x000C }
rule SP   { \x0020 }
rule NBSP { \x00A0 }
rule USP  { <<Zs>-<TAB> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12172	12281	
==>]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12172	12281	
==>]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2649	2756	
==>rray-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2649	2756	
==>rray-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18242	18339	
==>e external resources, such as a repository file
on disk, it is expected that the Engines will empl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18242	18339	
==>e external resources, such as a repository file
on disk, it is expected that the Engines will empl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15752	15852	
==>a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethird <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15752	15852	
==>a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethird <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	465	569	
==>{
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	465	569	
==>{
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13198	13294	
==>tegory, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13198	13294	
==>tegory, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I< <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2581	2681	
==>>>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat s <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2581	2681	
==>>>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat s <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	643	743	
==>on_list code from lib.pm because I am hoping that perl6
# and the new module functionality will not n <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	643	743	
==>on_list code from lib.pm because I am hoping that perl6
# and the new module functionality will not n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	284	396	
==>rypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	284	396	
==>rypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	97	217	
==>'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use war <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28177	28275	
==>(@flags)

Deletes the handlers for the flags -- you need only pass the flag names,
without the "FLA <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1065	1178	
==>e F<docs/> directory are a series of documents, written
in question/answer format, to explain the design and imple <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1065	1178	
==>e F<docs/> directory are a series of documents, written
in question/answer format, to explain the design and imple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4487	4612	
==>'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4680	4805	
==>'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_captu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5729	5831	
==>IS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5729	5831	
==>IS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRI <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	301	459	
==>+@x {
          $str = append_last($x,$str,$iter);
        return $str;
      }else{
        $str ~= addtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3142	3281	
==>out old stuff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can re <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	75	173	
==>t { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	75	173	
==>t { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVE <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1039	1200	
==>) }
        when $_ >  .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_asymmetric ( Num $x ) {
    m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12739	12866	
==>"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isneg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4621	4746	
==>rule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4814	4939	
==>rule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_cap <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16920	17079	
==>iled, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19806	19906	
==>_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19806	19906	
==>_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7427	7519	
==>rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1252	1344	
==>rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1239	1343	
==>oad::StrVal($o);
    $s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1266	1357	
==>EQUANT => --$ENUM, 'Quantifier follows nothing';
use constant RPe_BRACES => --$ENUM, 'Missin <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1238	1354	
==>, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1205	1321	
==>, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11458	11590	
==>ntity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11458	11590	
==>ntity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15318	15414	
==>nteractive systems.

If the program or any of its components are intended for widespread use
then <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15318	15414	
==>nteractive systems.

If the program or any of its components are intended for widespread use
then <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2960	3083	
==>mpty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2960	3083	
==>mpty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5441	5585	
==>r(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5441	5585	
==>r(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6070	6169	
==>e, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6070	6169	
==>e, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15736	15833	
==>etta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15736	15833	
==>etta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=b <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11890	12065	
==>$details) {
                    next unless ref $details->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($ws <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3208	3312	
==>e a guess about what to put in %*INC. it's not perfect.
    # When module return values are specced, we c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27308	27401	
==>x 'str'))");
is(t($app_id_to_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac), "int → int <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10769	10919	
==>) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  cap <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2942	3073	
==>chunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = jo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2942	3073	
==>chunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = jo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	572	687	
==>LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	572	687	
==>LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8915	9061	
==>"\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9108	9254	
==>"\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1316	1407	
==>Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en ve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1316	1407	
==>Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en ve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2563	2762	
==>onstant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2574	2773	
==>onstant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10749	10927	
==>1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10749	10927	
==>1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node() <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7683	7791	
==>cessfully got template text for the message key, so
        # interpolate the message vars into it and return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7683	7791	
==>cessfully got template text for the message key, so
        # interpolate the message vars into it and return <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1221	1340	
==>y $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1221	1340	
==>y $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6989	7190	
==>s_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6989	7190	
==>s_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	61	166	
==>' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	61	166	
==>' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14945	15050	
==>h C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14945	15050	
==>h C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11262	11375	
==>he tree,
which may be different from the visual() method; specifically, in the case
of a sub-class that adds a han <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1345	1466	
==>pen;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %pa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1345	1466	
==>pen;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %pa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43359	43457	
==>GHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relation> apply <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5426	5529	
==>return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5426	5529	
==>return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1102	1206	
==>se methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1102	1206	
==>se methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1314	1436	
==>g_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1314	1436	
==>g_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8851	8991	
==>er = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8847	8987	
==>er = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15160	15292	
==>hod label
        symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV,
            method::signature->ne <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15488	15595	
==>y $self = shift;
    my $thunk = shift;

    $self->enter_scope;
    my $node = Thunk->new($self->reduce($th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1267	1368	
==>ermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=ba <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1267	1368	
==>ermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=ba <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5620	5755	
==>:methods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7	116	
==>ode: cperl; cperl-indent-level: 4 -*-

package Test::Harness;

require 5.00405;
use Test::Harness::Straps;
use <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	28	167	
==>Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	28	167	
==>Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_el <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13487	13691	
==>'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13766	13970	
==>'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( <==
2	/Users/nnunley/pugs/util/grokprims.pl	1162	1275	
==>->{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/prefix/) {
    if (($arity>1 and $a0 =~ s/:$//) or
        $a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1984	2085	
==>en pour the re_test suite through it, yielding a
#more complete version of t/rules/rules.t.  This coul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7107	7255	
==>code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7095	7243	
==>code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7619	7782	
==>license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine li <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7676	7839	
==>license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine li <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5949	6056	
==>hod for speed--although they should be careful to avoid changing the 
actual semantics.

Please note that mo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5949	6056	
==>hod for speed--although they should be careful to avoid changing the 
actual semantics.

Please note that mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	0	103	
==>package  Pugs::Grammar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeCh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	0	103	
==>package  Pugs::Grammar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeCh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14654	14751	
==>der fields.  Long header
values are not folded.

The optional $eol parameter specifies the line en <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14654	14751	
==>der fields.  Long header
values are not folded.

The optional $eol parameter specifies the line en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1586	1728	
==>ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1586	1728	
==>ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9051	9244	
==>prev = -1; my $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34920	35017	
==>must all be set when the object is constructed.  If you want to
conceptually change an existing Tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34920	35017	
==>must all be set when the object is constructed.  If you want to
conceptually change an existing Tr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3838	3926	
==>e::insert_children;

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3838	3926	
==>e::insert_children;

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23644	23770	
==>r is responsible for providing any value capture needed, in $body.
    '{ my $__flag;
       try { '.$body.' }
       catch Per <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12130	12226	
==>This function currently on checks with ref() since we do not yet have
object support. Once object <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12188	12284	
==>This function currently on checks with ref() since we do not yet have
object support. Once object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3569	3718	
==>$@) {
    my ($got, $isnt, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $isnt ) {
        # undef only matches undef
        $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26540	26638	
==>ine ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29165	29283	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29444	29562	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	107	213	
==>::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	107	213	
==>::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Per <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1225	1339	
==>ends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1283	1397	
==>ends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10665	10780	
==>al $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10823	10938	
==>al $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20250	20357	
==>aintain and
and easy for developers to study.  As a result, while it performs correctly
and reliably, it als <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20250	20357	
==>aintain and
and easy for developers to study.  As a result, while it performs correctly
and reliably, it als <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4614	4714	
==>iphers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not nec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4614	4714	
==>iphers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not nec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9637	9778	
==>cat(
         ruleop::constant( "\$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::id <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	159	261	
==>e_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_no <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	159	261	
==>e_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4383	4505	
==>ks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4383	4505	
==>ks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$cha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2107	2214	
==>$.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2107	2214	
==>$.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5730	5835	
==>_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5809	5914	
==>_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10229	10525	
==>&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Arra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9416	9530	
==>return unless $prev->type eq $self->type;
    push @{ $prev->{data} }, @{ $self->{data} };
    pop @$tree;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1310	1455	
==>ated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1321	1466	
==>ated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8384	8515	
==>t;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was acciden <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8384	8515	
==>t;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was acciden <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4026	4310	
==>my $args = '';
                foreach my $arg (@t) {
                    if (!$args) {
                        #warn "our first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1346	1456	
==>@{$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>',
    my ($self, $op) = @_;
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2511	2643	
==>n postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfix( $n )
            if $n->{fixity} eq 'circumfix <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9006	9124	
==>_def_x(L0,L1) --> "-", {append(L0,[char(45)],L1)}, !.
p5_charset_def_x(L0,L0) --> {true}.
p5_charset_items([Item1|MoreI <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16936	17042	
==>MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16936	17042	
==>MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1579	1693	
==>ctor, Comparator);



 multi sub zip (Array *@lists) returns List {
   gather {
     while any(@lists) {
       for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4637	4742	
==>sult.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4637	4742	
==>sult.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22450	22558	
==>ogram package would return a code-key to indicate a
condition, often it will also provide some variable value <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22450	22558	
==>ogram package would return a code-key to indicate a
condition, often it will also provide some variable value <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1481	1591	
==>sses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# b <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1481	1591	
==>sses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12697	12793	
==>()`

Returns the start element in the recurrence.

Returns negative infinite if the recurrence is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12697	12793	
==>()`

Returns the start element in the recurrence.

Returns negative infinite if the recurrence is <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16109	16216	
==>or inline code, once for the final Match tree.
  return $v;
}
}
sub def_rule {
  my($name,$re)=@_;
  my $r = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13940	14048	
==>on:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13940	14048	
==>on:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35783	35882	
==>other Relation as its C<$other> argument and combines it with the
invocant relation into a new Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40333	40432	
==>other Relation as its C<$other> argument and combines it with the
invocant relation into a new Relat <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	108	208	
==>nfix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	108	208	
==>nfix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15850	15946	
==>irdmanifesto.com/>, and its authors have also written
several books and papers and taught classes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15850	15946	
==>irdmanifesto.com/>, and its authors have also written
several books and papers and taught classes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	118	256	
==>Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	108	239	
==>Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3403	3511	
==>inute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<confo <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3403	3511	
==>inute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<confo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19642	19770	
==>++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16063	16191	
==>++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f( <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1066	1197	
==>n;
    if ( defined $0 ) {
        $duration = duration($/[1..7]);
        if ( defined $8 ) {
            $duration.end = duration( <==
2	/Users/nnunley/pugs/util/package-osx.pl	4471	4574	
==>::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/man/man3/Perl6::Bi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11322	11457	
==>in_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11322	11457	
==>in_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9147	9341	
==>d_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = '::';
      return $S->$n;
    }

    if (${&Rx} =~ m{ \G ([a-z]+) }xgc) {
    }

  });

  $self->add_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	864	986	
==>ub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	864	986	
==>ub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2458	2586	
==>atch->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2598	2726	
==>atch->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "ma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5306	5403	
==>cess to the value.

=item B<apply (closure) return list>

The closure here will be passed the curr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1627	1737	
==>\@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1615	1725	
==>\@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	545	667	
==>uccessful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	545	667	
==>uccessful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1526	1641	
==>$method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.rem <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1526	1641	
==>$method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.rem <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12096	12196	
==>t object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12096	12196	
==>t object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	299	434	
==>ode";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	299	434	
==>ode";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5313	5462	
==>::str;
      pos($s) = $X::pos;
      my $x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  su <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	121	225	
==>{ }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13190	13299	
==>';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data";
  eval $loc;
  warn "** <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5808	5927	
==>l = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	warn "state PPad not implement <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17680	17792	
==>ssages and contains information
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17680	17792	
==>ssages and contains information
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	885	991	
==>nsert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	885	991	
==>nsert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self. <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2040	2379	
==>d_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2040	2379	
==>d_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2769	2872	
==>igndocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Find de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15191	15303	
==>be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be a prompt or response <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15191	15303	
==>be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be a prompt or response <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32109	32205	
==>bjects inherit their ender() and walk() methods from the base
object class; most have no ending n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6215	6326	
==>($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6273	6384	
==>($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($tod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38617	38745	
==>*(\d+))},
  );

  for (@RX) {
    $parser->regex($_) or die $parser->errmsg;
    print "VISUAL: ", $parser->visual, "\n";
    pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	125	219	
==>rep only compiles Grammar sections
# The full version is on misc/pX/Common/lrep*
# ************ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1262	1367	
==>> @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_H <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1262	1367	
==>> @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_H <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8551	8650	
==>d $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8609	8708	
==>d $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1852	2006	
==>eturn unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        whil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1852	2006	
==>eturn unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        whil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18735	18831	
==>lect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18735	18831	
==>lect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14762	14866	
==>ct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, \$ho <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4793	4899	
==>ollisions, we use a fully qualified function name.

=back

The following are the (pseudo) methods for Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4793	4899	
==>ollisions, we use a fully qualified function name.

=back

The following are the (pseudo) methods for Confi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32468	32563	
==>al representation of this object.

=item zerolen

Whether this object does is zero-width (like a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17779	17898	
==>E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34227	34326	
==>ence (Relation $other!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38777	38876	
==>ence (Relation $other!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	441	564	
==>match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	441	564	
==>match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	196	296	
==>thod source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	196	296	
==>thod source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11183	11309	
==>ocapture:
    iscapture = 0
    pos += 2
  subrule_name:
    $I0 = pos
  subrule_name_1:
    pos = find_not_cclass .CCLASS_WORD <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3430	3521	
==>USHs(sv_2mortal(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(start)));
    XPUSHs(sv_2mor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1308	1427	
==>Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1308	1427	
==>Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7439	7571	
==>elf: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7439	7571	
==>elf: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Auth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15053	15160	
==>per POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9252	9359	
==>per POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7351	7484	
==>= $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7363	7496	
==>= $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ", <==
2	/Users/nnunley/pugs/util/package-osx.pl	4660	4760	
==>/man3/Perl6::Bible::S05.3pm
        /usr/local/man/man3/Perl6::Bible::S06.3pm
        /usr/local/man/ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1306	1400	
==>ift;
    my $foreach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${re_varname} <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25384	25482	
==>1 mean to normal algebra.

A picture of a Relation::Example can look like a table, where each of it <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29051	29141	
==>or writing test scripts, L<Benchmark> for
the underlying timing routines, and L<Devel::Cove <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22545	22649	
==>/QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22545	22649	
==>/QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4858	4993	
==>y
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already? <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5322	5457	
==>y
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10158	10253	
==>ed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10158	10253	
==>ed to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->head <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	494	642	
==>ode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	494	642	
==>ode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7576	7696	
==>inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if pos == $I0 goto name
    $I1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24403	24517	
==>ual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::groupp;
  push @ISA, qw( Re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12315	12435	
==>elf<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12315	12435	
==>elf<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in conn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24198	24322	
==>ed
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	827	942	
==>ethod create_arguments ( @strings )  {
            $.argument_class.string_to_arguments( @strings );
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27947	28041	
==>e Variable value (a string) associated with
the variable name specified in the positional param <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27947	28041	
==>e Variable value (a string) associated with
the variable name specified in the positional param <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1084	1199	
==>ift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1975	2090	
==>ift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15609	15708	
==>the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case). <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15609	15708	
==>the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case). <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	656	784	
==>nc
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7069	7169	
==>e($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7127	7227	
==>e($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2859	3007	
==>=> $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1481	1629	
==>=> $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    re <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	526	638	
==>RIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	526	638	
==>RIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12879	12988	
==>live.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12879	12988	
==>live.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1561	1659	
==>tten in C<$lang>. C<Perl6> is the
    # only required language, but supporting C<Perl5> is I<strong <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2058	2155	
==>>)\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'access_hash_e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12284	12398	
==>0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mob)
.end 


.sub "parse_e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8962	9089	
==>verse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8962	9089	
==>verse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	37	140	
==>es;
use base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class::Inspector ();

use Blondi <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	643	769	
==>$self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	544	670	
==>$self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2209	2323	
==>-s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    prin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2187	2301	
==>-s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    prin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15008	15105	
==>atic interface (API), called
the Rosetta Native Interface (RNI), which applications invoke and whi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15008	15105	
==>atic interface (API), called
the Rosetta Native Interface (RNI), which applications invoke and whi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	85	180	
==>* These are perl6 implementations of /builtins/
* They sometimes use Pugs internals to do the jo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	996	1108	
==>e::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCR <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	996	1108	
==>e::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	254	384	
==>m_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	254	384	
==>m_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1874	1978	
==>}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1874	1978	
==>}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header( <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1517	1635	
==>:$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @len <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1517	1635	
==>:$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @len <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	39	151	
==>se warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMake <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	39	151	
==>se warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMake <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9539	9655	
==>, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9539	9655	
==>, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2  <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31770	31865	
==>etition count of this object (for quantifiers).

=item neg

Whether this object is negated (like <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1509	1615	
==>e Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Wit <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1509	1615	
==>e Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27765	27859	
==>2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27765	27859	
==>2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9984	10079	
==>ng representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9984	10079	
==>ng representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32787	32896	
==>Class->send('add_method' => (
    # method label
        symbol->new('_make_ascendant_dispatcher'),
    # meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1351	1471	
==>name;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1351	1471	
==>name;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	57	159	
==>../../../lib",
    "$Bin/../Pugs-Compiler-Rule/lib",
    "$Bin/../Pugs-Utils/lib",
    "$Bin/../Pugs-Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7238	7419	
==>n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9030	9211	
==>(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9030	9211	
==>(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5055	5241	
==>ersion >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5055	5241	
==>ersion >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cook <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	69	178	
==>r self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	69	178	
==>r self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9841	9937	
==>el's input validation is performed over 2 main phases, which
are referred to as "immediate" and " <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9841	9937	
==>el's input validation is performed over 2 main phases, which
are referred to as "immediate" and " <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20281	20392	
==>ctory entries
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # For all directory entries: while the <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	141	250	
==>A     = qw{Module::Install::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7763	7867	
==>= shift;
	my $prim = shift;

	$prim->struct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15125	15225	
==>g and end of a "word", respectively.  C<< /</ >> is equivalent to
C</(?!\w)(?=\w)/>, and C<< />/ >> i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5058	5166	
==>return bit->new(0) 
            if $left->fetch($i)->equal_to($right->fetch($i)) != bit->new(1);
    }
    re <==
2	/Users/nnunley/pugs/util/package-osx.pl	6920	7017	
==>Perl6::Perl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Differences.3pm
        /usr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3558	3704	
==>undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..leng <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3698	3844	
==>undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..leng <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24717	24815	
==>u should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24717	24815	
==>u should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10663	10768	
==>le invocation.

The $value argument may be a plain string or a reference to an array
of strings for a mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10663	10768	
==>le invocation.

The $value argument may be a plain string or a reference to an array
of strings for a mult <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	338	463	
==>Grammar::Operator',
        header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'poi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3308	3405	
==>od r8649.
# signature doesnt parse. using simplified one.
#multi Array::shift ( --> Scalar ) {
mul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2222	2344	
==>ort(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2222	2344	
==>ort(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5311	5423	
==>$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5311	5423	
==>$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for n <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11198	11305	
==>n items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Oper <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11198	11305	
==>n items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Oper <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3018	3161	
==>Y' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3018	3161	
==>Y' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5724	5822	
==>n the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5724	5822	
==>n the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP stat <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	695	803	
==>s }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	695	803	
==>s }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3278	3431	
==>lf!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3278	3431	
==>lf!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35103	35206	
==>e changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35103	35206	
==>e changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9258	9498	
==>normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9258	9498	
==>normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29669	29796	
==>e
to add it explicity to the queue for it to ever be executed.  As such,
it would be pre-consumptive.

There is an interesting c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1496	1595	
==>ace

The Cipher API's procedural interface is good enough for many purposes.  
Although the interfac <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1496	1595	
==>ace

The Cipher API's procedural interface is good enough for many purposes.  
Although the interfac <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6838	6951	
==>port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6838	6951	
==>port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15845	15940	
==>perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15845	15940	
==>perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	807	918	
==>substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greed <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	807	918	
==>substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greed <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2389	2542	
==>v => Blondie::Backend::C::Prim->new(
							arity => 1,
							body => "type_convert_${from}_${to}",
							type => [$from => $to],
						),
					),
				) <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	536	676	
==>LL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print "ok 1 - c code compiled\n";
my $i = new_interpreter();
$Inline::Parrot::PMC::inte <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31530	31629	
==>that is specific
to it, another library likewise, and a program which uses both libraries
could have <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31530	31629	
==>that is specific
to it, another library likewise, and a program which uses both libraries
could have <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6681	6842	
==>rig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    return 1;
    
}

=head2 JIB::Utils- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6381	6507	
==>oNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToInteger(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3783	3876	
==>).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3783	3876	
==>).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	230	338	
==>/ Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular refere <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	230	338	
==>/ Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular refere <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10986	11108	
==>cal $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10980	11102	
==>cal $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4083	4184	
==>OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4083	4184	
==>OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match ha <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9444	9564	
==>se => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9444	9564	
==>se => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16773	16959	
==>>nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub vis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3081	3260	
==>eturn unless defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2981	3155	
==>eturn unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1013	1117	
==>pty\n";
  }
}

sub addToken {
  my ($self, $name, $relativePrecedence, $options, $match) = @_;
  #print " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23061	23278	
==>onstant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23340	23557	
==>onstant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5256	5412	
==>yedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5256	5412	
==>yedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_nam <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2025	2129	
==>ble file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2025	2129	
==>ble file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8730	8842	
==>r/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6260	6367	
==>r/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	742	844	
==>gy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	742	844	
==>gy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34932	35033	
==>set when the object is constructed.  If you want to
conceptually change an existing Translator object, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34932	35033	
==>set when the object is constructed.  If you want to
conceptually change an existing Translator object, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37671	37764	
==>e $other!) returns Relation::Example>

This method is a generic relational operator that takes <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38511	38604	
==>e $other!) returns Relation::Example>

This method is a generic relational operator that takes <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1036	1144	
==>esented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4514	4622	
==>esented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37407	37503	
==>=item C<load_template_module( $module_name! )>

This method takes the name of a Perl package in i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37407	37503	
==>=item C<load_template_module( $module_name! )>

This method takes the name of a Perl package in i <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1929	2030	
==>> is not provided with any tags, it will intuit one by extracting the 
last component of the calling f <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1929	2030	
==>> is not provided with any tags, it will intuit one by extracting the 
last component of the calling f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2046	2189	
==>methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2251	2394	
==>methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13802	13908	
==>broutine to each header field in turn.  The callback routine
is called with two parameters; the name of the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13802	13908	
==>broutine to each header field in turn.  The callback routine
is called with two parameters; the name of the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16641	16741	
==>o what the user sees; it never outputs anything by itself to the user, but
rather returns its results <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16641	16741	
==>o what the user sees; it never outputs anything by itself to the user, but
rather returns its results <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	568	720	
==>d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1996	2093	
==>$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_super <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1996	2093	
==>$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_super <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	993	1093	
==>dule for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use o <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	993	1093	
==>dule for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use o <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2091	2193	
==>alent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=hea <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2091	2193	
==>alent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3298	3398	
==>@vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3298	3398	
==>@vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the par <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9691	9794	
==>verride these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9691	9794	
==>verride these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	130	241	
==>op::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	130	241	
==>op::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	713	875	
==>parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	713	875	
==>parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1187	1325	
==>os+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1187	1325	
==>os+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10405	10526	
==>>{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	116	222	
==>Inspector ();

use Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = shift;
	my @params = shi <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	173	309	
==>paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	173	309	
==>paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4733	4877	
==>Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4733	4877	
==>Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3395	3532	
==>>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3395	3532	
==>>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7270	7381	
==>, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7270	7381	
==>, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2340	2443	
==>compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2340	2443	
==>compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3222	3318	
==>ious => $self._get_intersection( $self.complement_previous, $self.complement_next, $set.complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3222	3318	
==>ious => $self._get_intersection( $self.complement_previous, $self.complement_next, $set.complemen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16153	16310	
==>},
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16153	16310	
==>},
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10348	10481	
==>g $name" if !$info;
    my $chk = join(", ",map {"\$$_"} @{$info->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9202	9325	
==>plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9202	9325	
==>plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	132	231	
==>g the
# "source" property of the object fallback to "content"
method source($self:) {
    $.source | <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	132	231	
==>g the
# "source" property of the object fallback to "content"
method source($self:) {
    $.source | <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35125	35221	
==>ranslator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35125	35221	
==>ranslator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9194	9345	
==>unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10671	10822	
==>unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got de <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4576	4708	
==>iven $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4576	4708	
==>iven $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10368	10470	
==>clusive/other stuff. For lots of discussion but no final
    # spec, see the thread rooted at <20050502 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11367	11522	
==>ft;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => IS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12165	12320	
==>ft;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => IS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1856	2027	
==>'>=';
                $str .= "$k $op $ver";
            }
        } else {
            error("Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND / <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14805	14946	
==>'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15084	15225	
==>'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12968	13085	
==>"]").
brackets("<",">"). brackets(">","<").
brackets("/","/"). brackets("!","!"). brackets("=","=").
brackets("?","?") <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	254	362	
==>::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUC <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	254	362	
==>::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUC <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6812	6940	
==>tch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7276	7404	
==>tch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	929	1110	
==>OF_ROOT ];
$config{'bin_dir'}          = [ $Config{bin}            => SUBDIR_OF_ROOT ];
$config{'compile_dir'}      = [ _builddir               => 
                                su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4	96	
==>rule = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4	96	
==>rule = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16642	16745	
==>> documentation file that comes
with this "Rosetta" distribution.

While it is possible that one could w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16642	16745	
==>> documentation file that comes
with this "Rosetta" distribution.

While it is possible that one could w <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7075	7183	
==>6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9838	9939	
==>ond-level
  my $iter = $parser->walker(2);  # top- through third-level

The iterator returned is a fun <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10516	10639	
==>ive with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <= <==
2	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	84	193	
==>b:<returns>($container; ReturnType $arg) {
    $container does returns($arg);
  }
  #... #QQQ - what goes here <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	743	856	
==>s!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing th <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	743	856	
==>s!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	734	940	
==>'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&infix:</>' => Thunk(
        Seq(
            P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	857	957	
==>rammar_name>" .
	    ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" .
	    join( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4939	5054	
==>y $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4939	5054	
==>y $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	402	505	
==>), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing wit <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	402	505	
==>), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27392	27492	
==>y
must all be set when the object is constructed.  If you want to
conceptually change an existing Mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27392	27492	
==>y
must all be set when the object is constructed.  If you want to
conceptually change an existing Mes <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2530	2630	
==>ns of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2530	2630	
==>ns of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	579	700	
==>es:
#   * <ws> is redefined to be used, via :words, by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6980	7077	
==>ond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($contex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7038	7135	
==>ond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($contex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7453	7604	
==>tant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7646	7797	
==>tant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14688	14804	
==>f the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14688	14804	
==>f the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.transla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8099	8211	
==>s = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8099	8211	
==>s = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11722	11832	
==>"No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11722	11832	
==>"No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method han <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2362	2488	
==>> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2362	2488	
==>> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !de <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15234	15349	
==>o original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15234	15349	
==>o original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16381	16480	
==>al Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16439	16538	
==>al Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5937	6066	
==>> $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5750	5873	
==>> $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	850	968	
==>c: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1056	1174	
==>c: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no str <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6734	6831	
==>:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6792	6889	
==>:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5521	5634	
==>ame to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native typ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5806	5919	
==>ame to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native typ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	752	889	
==>TH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	752	889	
==>TH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLA <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5611	5748	
==>t method return value');

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:metho <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23467	23579	
==>[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	689	797	
==>submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	689	797	
==>submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2594	2737	
==>lf }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $sel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2594	2737	
==>lf }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $sel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	699	823	
==>temp_dir bin_dir compile_dir ]),
          $INSTALLATION_DIR  
    ) {
        print "Creating dir: $_\n";
        system( qw <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20609	20701	
==>ol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx],[C|Fx],[], <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16103	16193	
==>eractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuv <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16161	16251	
==>eractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuv <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	507	607	
==>atement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	713	813	
==>atement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{captu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	979	1148	
==>^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	979	1148	
==>^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1420	1622	
==>_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1420	1622	
==>_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9398	9524	
==>ss_hash( $hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6700	6791	
==>= match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12677	12846	
==>]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12671	12840	
==>]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16783	16945	
==>if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16783	16945	
==>if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    }, <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	41	144	
==>low is ripped straight out of S29.  I think most of these
# actually belong on "Map"

 multi sub grep (A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3381	3487	
==>packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # At <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3381	3487	
==>packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # At <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	259	375	
==>ub new {
    my ($class, $name, $type) = @_;
    (defined $name) 
        || confess "You must provide a name for you <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15790	15891	
==>ass:')->send('dispatcher' => (symbol->new(':descendant'))));
                $e->create('$c' => $e->ge <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4172	4275	
==>s, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4172	4275	
==>s, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24358	24465	
==>can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20779	20886	
==>can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handle <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5312	5446	
==>$n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5534	5668	
==>$n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper( <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2834	2945	
==>5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15618	15842	
==>\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15897	16121	
==>\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 't <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15557	15647	
==>char_to_entity and the %entity_to_char hashes,
which contain the mapping from all character <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15557	15647	
==>char_to_entity and the %entity_to_char hashes,
which contain the mapping from all character <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2034	2140	
==>:opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
di <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2034	2140	
==>:opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
di <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11467	11574	
==>returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11467	11574	
==>returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14850	14950	
==>s a span with "integer" semantics.

- `new( :density($day_duration), start => $first_day, end => $las <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14850	14950	
==>s a span with "integer" semantics.

- `new( :density($day_duration), start => $first_day, end => $las <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4504	4618	
==>ue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4504	4618	
==>ue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pSubT <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1224	1357	
==>ptyseqs) {
                # XXX - this is instead of the python "in"
                my %in_tail = (map { $_ => 1 } $sub_seq->tail->t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1455	1551	
==>lit = emit(get_data($_[0], '$<value>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit." <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2186	2291	
==>et_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2186	2291	
==>et_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23917	24012	
==>mand shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of externa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23917	24012	
==>mand shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of externa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21446	21543	
==>g>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is fre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21446	21543	
==>g>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is fre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1238	1382	
==>le';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unsh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1238	1382	
==>le';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unsh <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	592	762	
==>*>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	90	214	
==>time::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	90	214	
==>time::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6601	6701	
==>ns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to Fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6601	6701	
==>ns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to Fi <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1513	1617	
==>ib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1513	1617	
==>ib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	811	957	
==>}
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	811	957	
==>}
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $r <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4406	4515	
==>,  $file1,  "0000000001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $file3,  "0000000 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	867	976	
==>_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { % <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	867	976	
==>_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { % <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2857	2968	
==>fh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	935	1030	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<con <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13592	13718	
==>urce;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13592	13718	
==>urce;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	497	598	
==>True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	497	598	
==>True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8871	8972	
==>f_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = un <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8929	9030	
==>f_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13040	13138	
==>(e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13040	13138	
==>(e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5257	5403	
==>d ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5257	5403	
==>d ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14445	14556	
==>001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14445	14556	
==>001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36542	36633	
==>its positional
parameter $message and returns an equivalent human readable text message
stri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36542	36633	
==>its positional
parameter $message and returns an equivalent human readable text message
stri <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4171	4293	
==>->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPE <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4378	4500	
==>->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPE <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9157	9334	
==>&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SE <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12634	12811	
==>&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SE <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22091	22196	
==>}
rule CaseBlock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <Defaul <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1180	1278	
==>ndie::Backend::Perl::Builtins> contains the builtin operations and values
that replace prelude node <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15642	15736	
==>racters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15642	15736	
==>racters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15373	15487	
==>:Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15373	15487	
==>:Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8638	8778	
==>t_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8638	8778	
==>t_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5530	5671	
==>ble can be instantiated to point to another type object
# at this point it reblesses itself

sub new {
	my $class = shift;
	bless {
		instance <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6458	6543	
==>> p5_simple_escape_sequence(R).
p5_elemental(negSet(X)) --> "[^", !, p5_charset_def(X) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7870	8005	
==>', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7870	8005	
==>', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16110	16205	
==>document, and
whose Node Type attribute is set from the named parameter $node_type (a
string); t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16110	16205	
==>document, and
whose Node Type attribute is set from the named parameter $node_type (a
string); t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3025	3130	
==>onent::fglock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2917	3020	
==>onent::fglock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pug <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3287	3443	
==>lable );
            
            my @maybe;
            for my $test ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if grep { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1428	1526	
==>use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1428	1526	
==>use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4309	4412	
==>filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_abso <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4309	4412	
==>filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_abso <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21606	21703	
==>s instead which are
more appropriate to the context in which they are using your package.  One
can <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21606	21703	
==>s instead which are
more appropriate to the context in which they are using your package.  One
can <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10402	10511	
==>constant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38116	38227	
==>nd finally, the small change to the qr() method:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4247	4382	
==>s->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26397	26491	
==>::nary->new(list => type::operator::pair->new( $a, $b )),
		),
	);
	is($type->stringify, "∀α <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1507	1617	
==>class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1507	1617	
==>class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4882	4999	
==>.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Ob <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4882	4999	
==>.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Ob <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22978	23076	
==>on; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mappin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27530	27628	
==>on; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mappin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15268	15382	
==>ambiguity when trying to invoke or implement it, and so an
application written to it should behave identically no m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15268	15382	
==>ambiguity when trying to invoke or implement it, and so an
application written to it should behave identically no m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17562	17664	
==>ules without shipping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17562	17664	
==>ules without shipping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8446	8581	
==>]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_le <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8446	8581	
==>]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_le <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10332	10432	
==>lds.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
users w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10332	10432	
==>lds.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
users w <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	625	738	
==>al $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_confi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	625	738	
==>al $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_confi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2085	2187	
==>nless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2085	2187	
==>nless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, S <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	904	1006	
==>rns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_R <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	904	1006	
==>rns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21485	21592	
==>2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21485	21592	
==>2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#ch <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6270	6407	
==>lid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6270	6407	
==>lid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10159	10259	
==>('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	733	829	
==>o 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Could <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1298	1454	
==>ipt);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readl <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1298	1454	
==>ipt);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24251	24374	
==>]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20672	20795	
==>]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7142	7238	
==>f (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7142	7238	
==>f (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8319	8421	
==>d != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8377	8479	
==>d != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2934	3082	
==>t(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2934	3082	
==>t(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3361	3527	
==>A_JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use cons <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37022	37119	
==><symmetric_difference>.

=item C<exclusion (Relation::Example *@others) returns Relation::Example> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	183	298	
==>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead of Blondie one from prelude? ";
        Read <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2126	2226	
==>eturn $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2126	2226	
==>eturn $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infini <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31897	32009	
==>ass).

=item nparen

The capture group related to this object (like for OPEN and back
references).

=item off

Th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	274	375	
==>BJECT_ID = num->new(0);

# create a null object to 
# be used in bootstrapping
our $NULL_OBJECT = bles <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7992	8117	
==>),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "an <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7992	8117	
==>),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6736	6923	
==>$data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6736	6923	
==>$data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12497	12597	
==>tions will eval a code snippet, and then pass the result to is or ok
on success, or report that the e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12555	12655	
==>tions will eval a code snippet, and then pass the result to is or ok
on success, or report that the e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14168	14263	
==>("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14168	14263	
==>("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5298	5415	
==>ult = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5298	5415	
==>ult = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	356	529	
==>eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	356	529	
==>eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17377	17471	
==>these
benefits to developers and users alike.

For some practical examples of Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17377	17471	
==>these
benefits to developers and users alike.

For some practical examples of Locale::KeyedText <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9892	10044	
==>::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10171	10323	
==>::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
2	/Users/nnunley/pugs/util/grokprims.pl	616	727	
==>soc{$assoc}) {
    $assoc = $assoc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24980	25121	
==>: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQIN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21401	21542	
==>: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQIN <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1415	1569	
==>ath = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1415	1569	
==>ath = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11638	11736	
==>ects( $recurrence )`

Returns true if this recurrence intersects (has any element in common) with t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11638	11736	
==>ects( $recurrence )`

Returns true if this recurrence intersects (has any element in common) with t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3898	4010	
==>ject.

The methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3898	4010	
==>ject.

The methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::C <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	944	1049	
==>osition);

  $from = $fromd if ( $fromd and $from < 0)

  return ($me, $target, $from, $position)
}

#Tell <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	48	139	
==>e <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::UR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	48	139	
==>e <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::UR <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9287	9403	
==>+ 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9345	9461	
==>+ 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8893	9014	
==>ad idea for development.
  no warnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1293	1397	
==>aders,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This is used
# for so <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1293	1397	
==>aders,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This is used
# for so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3634	3865	
==>t'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3489	3712	
==>t'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5752	5840	
==>art(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1337	1458	
==>de;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1337	1458	
==>de;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32508	32602	
==>union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37058	37152	
==>union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32987	33086	
==>ion contains only tuples that are in
exactly one of the source Relations.  This method has aliases n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37537	37636	
==>ion contains only tuples that are in
exactly one of the source Relations.  This method has aliases n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5169	5336	
==>s ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend => <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5169	5336	
==>s ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend => <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16152	16249	
==>> files. It always checks for them, before
loading a C<.pm> file.

You get the following benefits: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16152	16249	
==>> files. It always checks for them, before
loading a C<.pm> file.

You get the following benefits: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	365	468	
==>y %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<sourc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	365	468	
==>y %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13531	13664	
==>$noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6590	6744	
==>> chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6590	6744	
==>> chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15048	15160	
==>h);

Generates the 't/foo........' leader for the given C<$test_file> as well
as a similar version which will ove <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2332	2420	
==>hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13387	13484	
==>tly to "Locale::KeyedText" in
your code; instead refer to other above-named packages in this file. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13387	13484	
==>tly to "Locale::KeyedText" in
your code; instead refer to other above-named packages in this file. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3330	3467	
==>ns

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3341	3478	
==>ns

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current ma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	0	115	
==>package Filter::Simple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = sh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	0	115	
==>package Filter::Simple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = sh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1592	1690	
==>nternal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1592	1690	
==>nternal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6524	6632	
==>.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6524	6632	
==>.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6307	6448	
==>urn @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6307	6448	
==>urn @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw { <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14355	14491	
==>on.
C<keys> only returns the key; C<values> the value; C<kv> returns both as
a 2 element list in (key, value) order, C<pairs> a C<Pair(ke <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3446	3557	
==>newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	672	782	
==>generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	640	741	
==>generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we h <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2925	3049	
==>t_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2925	3049	
==>t_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	795	886	
==>This file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::N <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	795	886	
==>This file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::N <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15437	15537	
==>rns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because thes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15495	15595	
==>rns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because thes <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24753	24853	
==>β. ∀γ. (α → β) → γ", "pretty print (a -> b) -> c");
}
{
	my $type = type::operator::arrow- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1588	1732	
==>.
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1576	1720	
==>.
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	856	970	
==>s) = @_;
    my $thispugs = { @{ $opts->{GEN_PRELUDE} } }->{'--pugs'} or # laugh at me now.
        die "$0: no pug <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	871	968	
==>time unless $devs_seen{$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not las <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3328	3480	
==>ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3316	3468	
==>ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5667	5823	
==>ecedence::add_to_list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %pre <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2060	2164	
==>/rules/rules.t.  This could either be done
#using Regexp::Parser Objects, or wait for the hypotetical new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2451	2560	
==>TORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2451	2560	
==>TORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 } <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	151	247	
==>pecify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	151	247	
==>pecify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22516	22612	
==>en it will also provide some variable values to be
interpolated into the user strings; Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22516	22612	
==>en it will also provide some variable values to be
interpolated into the user strings; Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1978	2085	
==>{ $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1978	2085	
==>{ $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14730	14845	
==>r $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14730	14845	
==>r $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17094	17219	
==>P0(exp)
    unless exp goto end
    $S0 = exp
    if $S0 != pattern goto end
    pad = new .Hash
    $P0 = new .Hash
    pad[" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	83	185	
==>talled


}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8954	9069	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9147	9262	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	291	388	
==>cfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	291	388	
==>cfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8235	8330	
==>b { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2060	2155	
==>b { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @sta <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	123	279	
==>nt {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespac <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	123	279	
==>nt {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespac <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7256	7365	
==>utoflush(\*STDOUT);
    _autoflush(\*STDERR);

    my(%failedtests);

    # Test-wide totals.
    my(%tot) = ( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	907	1028	
==>self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	907	1028	
==>self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3142	3279	
==>o tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3142	3279	
==>o tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	144	263	
==>submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) {
        my $obj <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	144	263	
==>submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) {
        my $obj <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5396	5618	
==>nt,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5396	5618	
==>nt,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6758	6874	
==>ram, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6758	6874	
==>ram, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	829	953	
==>ase use the 'name' function in Makefile.PL.
END

    $name =~ s/-/::/g;
    $self->module_name($name);
    return $name;
}

1 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13753	13852	
==>n->("numeric") },
      non_numeric => sub { $as_array_complain->("non_numeric") },
      scalar_num <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1623	1757	
==>now check all the current tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1623	1757	
==>now check all the current tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	30	115	
==>ie::Compiler;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Acc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1309	1436	
==>f!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1309	1436	
==>f!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.que <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9816	9916	
==>an extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined with union, int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9816	9916	
==>an extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined with union, int <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	563	689	
==>installed
    {   my @list = LoadFile( $Available );
        if ( grep { $_->{package} eq $path } @list ) {
            warn "$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9906	10059	
==>dency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $want <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11383	11536	
==>dency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $want <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1246	1348	
==>d only 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hide t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1246	1348	
==>d only 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hide t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6668	6799	
==>t {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6668	6799	
==>t {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	497	608	
==>tations are not fmappable, flatten first";
	}

	sub values {
		my $self = shift;
		croak "annotations are not ea <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24396	24543	
==>Mark {  # see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular E <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16687	16795	
==>rs{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}


sub p6_meta_CODE {
    my($p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26381	26479	
==>you create a modified version of Rosetta
that you are willing to distribute, because that is a prac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26381	26479	
==>you create a modified version of Rosetta
that you are willing to distribute, because that is a prac <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17256	17373	
==>cursive=$node ...";
    }

    if (Scalar::Util::blessed($node)){
        if ($node->can("fmap")){
            my @gut <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4332	4438	
==>s = join "", map $_->qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = jo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4321	4425	
==>vious =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next }, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4321	4425	
==>vious =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next }, <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2298	2428	
==>_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} for @{$self->bundles};
    }

    if (my $perl_version = $self->perl_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10933	11038	
==>INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5LIB};

    return join $Config{pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19175	19277	
==>ogram's users' own data; only
someone already involved in making the program would be editing them.  At <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19175	19277	
==>ogram's users' own data; only
someone already involved in making the program would be editing them.  At <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4221	4361	
==>ray)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     Lis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9858	9974	
==>- code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $nam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8609	8717	
==>the same namespace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8609	8717	
==>the same namespace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8042	8156	
==>::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8030	8144	
==>::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	564	660	
==>lf:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	564	660	
==>lf:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38897	38994	
==>le is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43711	43808	
==>le is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1555	1724	
==>5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            lo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1555	1724	
==>5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            lo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2022	2125	
==>}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:« <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2022	2125	
==>}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:« <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1226	1364	
==>at tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whet <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4704	4842	
==>at tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whet <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5836	5976	
==>ize = $chunk_size * 3;

        # Heuristic: Most of the first tests (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25265	25383	
==>{  # see 15.10.1
      <PatternCharacter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Dis <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13863	13972	
==>multi Hash::pairs  (%hash ; MatchTest *@keytests --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11147	11368	
==>) {
                    $todo_type = '' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${todo_type} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	603	705	
==>ACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8532	8641	
==>e a hash recompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    next if (exists $sus <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2254	2352	
==>nd s.
# Match objects arent being created for capture groups which are never reached.
# No lookbehi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6622	6807	
==>want to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6622	6807	
==>want to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        c <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2210	2315	
==>Gets called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $di <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2210	2315	
==>Gets called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7946	8036	
==>};
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1771	1861	
==>};
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3839	3931	
==>The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any oth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3839	3931	
==>The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any oth <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2289	2388	
==>r continuous ciphering.

Both of these functions return a closure.  Call the closure with a block of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2289	2388	
==>r continuous ciphering.

Both of these functions return a closure.  Call the closure with a block of <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1917	2034	
==>is expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stri <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1917	2034	
==>is expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15488	15696	
==>eop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15767	15975	
==>eop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3284	3389	
==>ostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Gloc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3284	3389	
==>ostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Gloc <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8921	9047	
==>l, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .leftsep  { padding- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5494	5777	
==>l ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($ver <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5494	5777	
==>l ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($ver <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7193	7343	
==>$request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7193	7343	
==>$request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    met <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7789	7904	
==>> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7789	7904	
==>> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $tr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4012	4114	
==>n a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4012	4114	
==>n a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12435	12602	
==>>{exp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better wri <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22383	22506	
==>($failed_str);
            $Columns = $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "fo <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	374	510	
==>(1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	374	510	
==>(1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17556	17653	
==>ments.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17556	17653	
==>ments.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header f <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14864	15055	
==>le (my $beg = $sobj->look_down(_tag => $tag)) {

            my $beg_n = $beg->pindex;
            my $end   = $beg->right;
            
            if (!defined $end) {
              $beg->ta <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12124	12215	
==>al"><tmpl_var name=total></span>:</td>
	      <td class="num tests_ok"><span title="<tmpl_va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10776	10883	
==>ode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $sel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10776	10883	
==>ode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1532	1644	
==>key>, containing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the n <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1532	1644	
==>key>, containing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9263	9370	
==>ndler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./recon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9263	9370	
==>ndler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./recon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3255	3505	
==>_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3127	3368	
==>_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1594	1697	
==>GS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always repres <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1594	1697	
==>GS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always repres <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2151	2262	
==>>[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2151	2262	
==>>[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref( <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	511	615	
==>funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26862	26960	
==>ssage Variables" attribute if the corresponding argument is
provided (it defaults to empty if the a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26862	26960	
==>ssage Variables" attribute if the corresponding argument is
provided (it defaults to empty if the a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14911	15008	
==>reference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14911	15008	
==>reference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2106	2204	
==>acif(%?CONFIG{'num_width'} == 32, 'subset complex of complex32  where { true }');
Helpers::macif(%? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8945	9039	
==>teral(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2770	2864	
==>teral(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7129	7235	
==>}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7129	7235	
==>}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7365	7469	
==>lternative(R2).
p5_condition_alternative(R)    --> "|", p5_concatenation(R), ")", !.
p5_condition_alterna <==
2	/Users/nnunley/pugs/util/importgraph.pl	2013	2098	
==>mit\b/);
setup_rank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	499	589	
==>ugs::Compiler::Rule->compile(<<'RULE')->code();

	<varscalar> <p6ws>? \:
	{ return $<varsca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1337	1442	
==>nctions --> junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::V <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1337	1442	
==>nctions --> junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::V <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4660	4773	
==>= $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutat <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4660	4773	
==>= $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11537	11639	
==>anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3128	3230	
==>anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17310	17428	
==>lse { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13731	13849	
==>lse { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	796	892	
==>ub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	822	918	
==>ub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5127	5226	
==>ush @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string inste <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5127	5226	
==>ush @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string inste <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10905	11013	
==>$t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10905	11013	
==>$t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tre <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	695	796	
==>avor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6427	6535	
==>nstructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6427	6535	
==>nstructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10690	10804	
==>{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10690	10804	
==>{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	314	423	
==>es if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on fi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	314	423	
==>es if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7925	8015	
==>tion") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authori <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7925	8015	
==>tion") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authori <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1560	1660	
==>ny purposes.  
Although the interface is said to be procedural, it is invoked via two class 
methods. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1560	1660	
==>ny purposes.  
Although the interface is said to be procedural, it is invoked via two class 
methods. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1854	1973	
==>verse {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless def <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1854	1973	
==>verse {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless def <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5505	5818	
==>..
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifie <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5505	5818	
==>..
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifie <==
2	/Users/nnunley/pugs/util/func_refact.pl	1919	2054	
==>$set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "union: while adding $new, enter <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19680	19796	
==>.param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P0
    $P1 = self[1]
    $P1 = $P1.p6ana <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2587	2690	
==>this AST the code inside the thunk won't be run - it must be the
first child of an App for that to happe <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1375	1472	
==>ke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does no <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1148	1253	
==>write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2039	2143	
==>write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	220	326	
==>1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	293	399	
==>1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9571	9668	
==>rser->walker;

This will produce an iterator that will traverse the entire parse tree,
to any dept <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	335	429	
==>DuplicateFinder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub generic_reduce {
		my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1043	1147	
==>ces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
albeit with diffe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1043	1147	
==>ces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
albeit with diffe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8007	8187	
==>p ( Mapping(Str) of Set of Str $mapping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( Se <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18811	18893	
==>1,Ex,E1).
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26894	26990	
==>e corresponding argument is
provided (it defaults to empty if the argument is not provided).

Som <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26894	26990	
==>e corresponding argument is
provided (it defaults to empty if the argument is not provided).

Som <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	918	1047	
==>SLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	795	900	
==>SLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'N <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10874	10986	
==>se(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10874	10986	
==>se(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2382	2484	
==>PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2382	2484	
==>PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1781	1927	
==>bDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        & <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1781	1927	
==>bDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        & <==
2	/Users/nnunley/pugs/util/func_refact.pl	1332	1451	
==>ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($Conf{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2573	2674	
==>f->{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40602	40705	
==>y of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40602	40705	
==>y of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is b <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1571	1684	
==>tart;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1571	1684	
==>tart;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, en <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5471	5568	
==>ec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 20 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5471	5568	
==>ec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 20 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1668	1805	
==>eck->last_error), return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(di <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	445	571	
==>eck->last_error ), return;

    my $obj = $class->SUPER::new;
    $obj->mk_accessors( keys %$tmpl );
    
    $obj->struct( $st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2336	2552	
==>$old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2336	2552	
==>$old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $! <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	557	658	
==>"http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	557	658	
==>"http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSI <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	643	772	
==>ES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inline}) {
            $self->Inline->write <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12691	12803	
==>s; so does result.
        return Relation::Example.new( heading => $!heading, body => set() );
    }
    if ($ot <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1380	1474	
==>Builder::TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::NullPlan is rou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3390	3578	
==>uantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3637	3825	
==>uantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15177	15283	
==>ing an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The fol <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15177	15283	
==>ing an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The fol <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30999	31098	
==>in
its set. For maximum flexibility in their use, the full name of a module
consists of the two part <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30999	31098	
==>in
its set. For maximum flexibility in their use, the full name of a module
consists of the two part <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5326	5448	
==>universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5326	5448	
==>universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.clos <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25877	25969	
==>ch invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or dupl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30429	30521	
==>ch invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or dupl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11693	11831	
==>ode::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12051	12189	
==>ode::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11406	11564	
==>$val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.def <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11406	11564	
==>$val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.def <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13094	13213	
==>ew($t_of_param);
	} else {
		return $prev_generic;
	}
}

# the type of the function the arrow operator, applied to the t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14891	15000	
==>ed, we will need an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan cu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14949	15058	
==>ed, we will need an easy way
to test them. So we will implement the Test::More function is_deeply.
The plan cu <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4459	4586	
==>x_round;

    # round floor above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	174	274	
==>n = $para{'x'};
$option = "wert" unless defined $option;

#!\pause
# zur Vereinfachung gibt es in Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29742	29864	
==>ey (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29742	29864	
==>ey (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Temp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3243	3362	
==>tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3243	3362	
==>tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3082	3183	
==>ILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3082	3183	
==>ILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25417	25531	
==>ttributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type of message that the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25417	25531	
==>ttributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type of message that the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23409	23509	
==>del>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are inclu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23409	23509	
==>del>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are inclu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23541	23671	
==>fun => comb(
						fun => ide("map"),
						param => ide("f"),
					),
					param => comb(
						fun => ide("tail"),
						param => <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1339	1441	
==>miter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1339	1441	
==>miter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11447	11570	
==>$S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3038	3161	
==>$S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3966	4064	
==>ass got the right method return value');
is($Class->superclass, $Object, '... $Class is now a subcl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5868	5966	
==>ass got the right method return value');
is($Class->superclass, $Object, '... $Class is now a subcl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4165	4257	
==>o requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)| <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4165	4257	
==>o requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)| <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1630	1768	
==>w
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as processing in <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1630	1768	
==>w
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as processing in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5072	5197	
==>optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4896	5017	
==>optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13042	13140	
==>ders

This will remove all the header fields used to describe the content of
a message.  All header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13042	13140	
==>ders

This will remove all the header fields used to describe the content of
a message.  All header <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5254	5365	
==>ubclasses;
    has @:superclasses;
    has %:private_methods;
    has %:attributes;
    has %:methods;
}

(class <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4925	5022	
==>thods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4925	5022	
==>thods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5875	5969	
==>tually enciphers the data.  They may choose, however, to override 
any method for speed--althou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5875	5969	
==>tually enciphers the data.  They may choose, however, to override 
any method for speed--althou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7335	7466	
==>y print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7087	7215	
==>y print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2024	2173	
==>-----------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	892	988	
==>ode );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	892	988	
==>ode );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13931	14063	
==>d"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4579	4689	
==>have alphabetic names, so tr/a-z// is true)
        # This will also show numbers for some uneeded cases, but w <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6422	6535	
==>t ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# ---- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6422	6535	
==>t ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# ---- <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2259	2474	
==>ft;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2259	2474	
==>ft;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1089	1198	
==>PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        fo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1089	1198	
==>PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        fo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4250	4356	
==>ment>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4250	4356	
==>ment>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1412	1544	
==>h, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Plugg <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1412	1544	
==>h, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Plugg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1185	1418	
==>ests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1185	1418	
==>ests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rose <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2520	2624	
==>element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the r <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2520	2624	
==>element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1018	1258	
==>(:node<Hash>).add_children(
                                Tree.new(:node<Hash::Const>),
                                Tree.new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16461	16556	
==>.

Note: Most users should consider setting their I/O handles to autochomp
instead of this step. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	950	1084	
==>{is_slurpy},
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       name          = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	661	784	
==>prompt;
    } else {
        goto &ExtUtils::MakeMaker::prompt;
    }
}

sub makemaker_args {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	254	363	
==>donly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	254	363	
==>donly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15685	15781	
==>hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to al <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15743	15839	
==>hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to al <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	55	157	
==>-----------------------------------------------------
## attributes

has $.node is rw;

has $.depth;
ha <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	55	157	
==>-----------------------------------------------------
## attributes

has $.node is rw;

has $.depth;
ha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37485	37585	
==>erator, and the order of its arguments is not significant to the result;
the new Relation is the resu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42034	42134	
==>erator, and the order of its arguments is not significant to the result;
the new Relation is the resu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8916	9025	
==>planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8974	9083	
==>planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::t <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	296	401	
==>h);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1309	1404	
==>other/api06.pl |perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	474	609	
==>V
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	474	609	
==>V
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	350	467	
==>d!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	350	467	
==>d!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31447	31556	
==>f
less than 0, it is behind; otherwise, it is ahead.

=item down

Whether this object creates a deeper scope ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3684	3886	
==>[
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}() } 
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3931	4133	
==>[
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}() } 
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1968	2097	
==>nced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1890	2015	
==>nced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2215	2398	
==>ookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2215	2398	
==>ookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17096	17195	
==>m> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its timesta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17096	17195	
==>m> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its timesta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7456	7586	
==>f(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\")." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7456	7586	
==>f(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\")." <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2086	2205	
==>:compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2867	2986	
==>:compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21488	21590	
==>Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21488	21590	
==>Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it and/or modi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5200	5325	
==>kTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TC <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5200	5325	
==>kTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TC <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23750	23890	
==>hecked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at star <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28953	29067	
==>hecked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at star <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	440	593	
==>ata;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	440	593	
==>ata;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4915	5027	
==>rxinfix',
    operand => 'rxatom',
    # XXX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5593	5694	
==>e_type($sub->accepts_type) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	891	1032	
==>ll {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5262	5544	
==>ew('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => Thunk->new(
        Seq->new(
            Param->new('$co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2118	2227	
==>ext_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_F{$msg_key};
    }
} # module MyLib::L:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3495	3596	
==>wo) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3495	3596	
==>wo) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	405	573	
==>_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	405	573	
==>_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	606	860	
==>packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	606	860	
==>packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19677	19808	
==>it //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16098	16229	
==>it //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21280	21806	
==>ing(
                            $t1only_m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11201	11323	
==>runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{progf <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9273	9387	
==>e 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1)) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9331	9445	
==>e 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1)) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	406	543	
==>ay $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	406	543	
==>ay $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1577	1731	
==>tate = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1522	1672	
==>tate = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation st <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2602	2713	
==>id* data, U32 flags)
{
  if(!CONTAINS_RECOGNITION_FLAG(r)) {
    return previous_exec_hook(r,stringarg,strend,st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10437	10553	
==>hars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10437	10553	
==>hars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21786	21907	
==>e.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to have zero attributes, th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26338	26459	
==>e.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to have zero attributes, th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6758	6879	
==>ION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6816	6937	
==>ION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2757	2899	
==>h->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at run <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2757	2899	
==>h->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at run <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5964	6063	
==>essage', '$message!', $message );

    # This Perl-6 specific workaround is done since $message para <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5964	6063	
==>essage', '$message!', $message );

    # This Perl-6 specific workaround is done since $message para <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19354	19449	
==>ntExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpressionNoIn>
}

# A.4 Statements

r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1987	2084	
==>plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1987	2084	
==>plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4859	4973	
==>]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4859	4973	
==>]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3525	3945	
==>:Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3525	3945	
==>:Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	63	166	
==>Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	63	166	
==>Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2358	2483	
==>) = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2358	2483	
==>) = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1427	1722	
==>aph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modif <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1427	1722	
==>aph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5876	5979	
==>tion $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5876	5979	
==>tion $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Roset <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24623	24720	
==>ale::KeyedText does not declare any subroutines or export such.

The usual way that Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24623	24720	
==>ale::KeyedText does not declare any subroutines or export such.

The usual way that Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10756	10879	
==>a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10756	10879	
==>a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3289	3384	
==>et $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $mem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3289	3384	
==>et $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $mem <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2103	2305	
==>, @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2103	2305	
==>, @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26260	26358	
==>s; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation ha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30812	30910	
==>s; that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation ha <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10726	10847	
==>ar_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    di <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10726	10847	
==>ar_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    di <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14156	14277	
==>= $o->data->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { loc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5006	5110	
==>ethod BUILD { $.type = JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value;
   has <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3637	3779	
==>[1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = traverse_ast ( $tree <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4299	4484	
==>rn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4299	4484	
==>rn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2808	2906	
==>_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2808	2906	
==>_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12238	12359	
==>ethod in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12232	12353	
==>ethod in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2084	2306	
==>, @_[6,7] );
            $state[0] = $st unless $state[1];
            
            
        } while !   $_[3]->{match}[1] && 
                ! ${$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12631	12766	
==>ent {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comment = $1;
        return $YES;
    }
    els <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1299	1433	
==>= 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_;
    print STDE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14763	14872	
==>uals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14763	14872	
==>uals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27289	27389	
==>tion
which has a superset of the original's attributes; the new Relation has as
many additional attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31841	31941	
==>tion
which has a superset of the original's attributes; the new Relation has as
many additional attri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23487	23576	
==>ntation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23487	23576	
==>ntation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1775	1905	
==>for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1835	1965	
==>for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1690	1790	
==>y nodes used only for reconstruction to source.
 # represented as processing instructions, or maybe c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1690	1790	
==>y nodes used only for reconstruction to source.
 # represented as processing instructions, or maybe c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8482	8587	
==>$self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8482	8587	
==>$self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11286	11380	
==>cases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11286	11380	
==>cases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5810	6079	
==>code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - si <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5810	6079	
==>code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - si <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8997	9117	
==>> chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8997	9117	
==>> chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17005	17107	
==>as been applied to the resource.

=item $h.content_length

A decimal number indicating the size in byte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17005	17107	
==>as been applied to the resource.

=item $h.content_length

A decimal number indicating the size in byte <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6286	6460	
==>new(
            Param->new('$n'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<< <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13756	13850	
==>,[42,120,D0,D1])}.

octdigits_int(I) --> octdigit(D0), octdigits(D), { number_chars(I, [42,111, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16322	16419	
==>in <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16380	16477	
==>in <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15578	15678	
==>Hash(Str) of Any - This contains zero or more attribute names and values
that help to define this Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15578	15678	
==>Hash(Str) of Any - This contains zero or more attribute names and values
that help to define this Nod <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6704	6856	
==>head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|li <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6761	6913	
==>head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|li <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3110	3226	
==>f.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $cla <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3110	3226	
==>f.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $cla <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4379	4479	
==>gnored.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4379	4479	
==>gnored.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	876	966	
==>or English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	876	966	
==>or English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2341	2464	
==>subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and structure, not content!

=item L<Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2341	2464	
==>subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and structure, not content!

=item L<Perldo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9181	9270	
==>statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3006	3095	
==>statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1930	2032	
==>spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1930	2032	
==>spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1017	1149	
==>ted as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1017	1149	
==>ted as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12993	13082	
==>so describes the same-number versions of Locale::KeyedText::Message
("Message") and Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12993	13082	
==>so describes the same-number versions of Locale::KeyedText::Message
("Message") and Locale <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7389	7539	
==>/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3790	3892	
==>ray of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## ------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3790	3892	
==>ray of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## ------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2265	2365	
==>e
done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

sub <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2265	2365	
==>e
done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23164	23261	
==>n english text and they translate it, which could
produce ambiguous results or associations.  Or a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23164	23261	
==>n english text and they translate it, which could
produce ambiguous results or associations.  Or a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25806	25889	
==>--------------------------------------------------------------

listify(X,L) :- atom <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7299	7393	
==>egin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7299	7393	
==>egin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	605	738	
==>$.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	605	738	
==>$.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6825	6991	
==>urn what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific vers <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7289	7455	
==>urn what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific vers <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20318	20417	
==>hat end users could do,
although program package installers usually do it.  An os-level preference
/ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20318	20417	
==>hat end users could do,
although program package installers usually do it.  An os-level preference
/ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4206	4333	
==>surely this is part of the Regexp::Parser api... somewhere?
  sub flag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	278	400	
==>ame => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>'), Val(1), Val(2) ),
			App( S <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	346	473	
==>epth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	346	473	
==>epth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------------------------- <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	334	430	
==>\pause
# er kann auch sehr einfach verkettet werden:
my $option = %para{'x'} // %conf{'x'} // "we <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4937	5057	
==>we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no l <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4937	5057	
==>we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no l <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2412	2544	
==>ult { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Arra <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2412	2544	
==>ult { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Arra <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	644	747	
==>$self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_version <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11835	11935	
==>rences are exactly the same.

This method tests the closures identities using the '===' operation.

= <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11835	11935	
==>rences are exactly the same.

This method tests the closures identities using the '===' operation.

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1442	1594	
==>success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $current_pa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1442	1594	
==>success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $current_pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15009	15112	
==>./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15009	15112	
==>./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1731	1831	
==>1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying ro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1731	1831	
==>1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying ro <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4518	4631	
==>= GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5307	5418	
==>SA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10962	11073	
==>SA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if n <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	681	798	
==>ly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines de <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	681	798	
==>ly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	400	502	
==>t,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	476	578	
==>t,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6138	6242	
==>ssfully. However, more complex POD 
documents may not do as well. Error reporting is still pretty minimal <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6138	6242	
==>ssfully. However, more complex POD 
documents may not do as well. Error reporting is still pretty minimal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14195	14302	
==>s()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

Th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14253	14360	
==>s()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	532	640	
==>as $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	532	640	
==>as $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!header <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7332	7437	
==>shift;

	my $rapp = $self->generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1192	1299	
==>re Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4543	4648	
==>ken/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4793	4898	
==>ken/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10926	11029	
==>())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10926	11029	
==>())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1031	1151	
==>affic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1031	1151	
==>affic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  Bool $floodcontrol <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6712	6813	
==>t:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6724	6825	
==>t:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1252	1471	
==>$buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1252	1471	
==>$buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	128	213	
==>r push_header init_header remove_header remove_content_headers header_field_names scan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	128	213	
==>r push_header init_header remove_header remove_content_headers header_field_names scan <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	452	566	
==>t_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	452	566	
==>t_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7257	7370	
==>-----------------
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if ! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7257	7370	
==>-----------------
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if ! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5488	5600	
==>)         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5488	5600	
==>)         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	423	521	
==>AME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	423	521	
==>AME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4110	4243	
==>ugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a named capture
    my $label = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	973	1107	
==>items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	973	1107	
==>items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2400	2523	
==>t {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_yea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2400	2523	
==>t {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_yea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11608	11732	
==>undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11608	11732	
==>undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::tim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6883	7016	
==>ents'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6883	7016	
==>ents'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2773	2866	
==>ther.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.gr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2773	2866	
==>ther.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.gr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1488	1621	
==>:$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1488	1621	
==>:$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $cod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4042	4141	
==>es built from top level.
    my $base_path = Cwd::abs_path($FindBin::Bin);
    unless ( Cwd::abs_pat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5367	5494	
==>pe' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5367	5494	
==>pe' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType <==
2	/Users/nnunley/pugs/util/addauthors.pl	227	323	
==>comitter}++;
}

#foreach (sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2208	2301	
==>rap->analyze($name, \@test_output);

Analyzes the output of a single test, assigning it the gi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3250	3343	
==>$name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3250	3343	
==>$name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter name <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	485	648	
==>dent => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	485	648	
==>dent => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.pa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14568	14691	
==>pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14568	14691	
==>pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $dig <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16266	16361	
==>ist contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield thr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16266	16361	
==>ist contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield thr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10884	10978	
==>, the information about how many members
were actually new is discarded.

=head2 C<$set.remove( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10884	10978	
==>, the information about how many members
were actually new is discarded.

=head2 C<$set.remove( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7011	7136	
==>eached. This does not include 
the text of the header, that will be processed as a interpolated string (to allow for
any modif <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7011	7136	
==>eached. This does not include 
the text of the header, that will be processed as a interpolated string (to allow for
any modif <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1710	1820	
==>h::Class::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.list')     ];
$con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14087	14179	
==>hannel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$rea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14087	14179	
==>hannel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$rea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1709	1835	
==>->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1709	1835	
==>->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2736	2886	
==>pected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2736	2886	
==>pected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1747	1860	
==>sis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1747	1860	
==>sis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	0	92	
==>use perl5:Code::Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	0	92	
==>use perl5:Code::Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22008	22263	
==>( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22287	22542	
==>( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       , <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2133	2283	
==>in(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    p <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2133	2283	
==>in(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    p <==
2	/Users/nnunley/pugs/util/package-osx.pl	9120	9233	
==>al/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	397	504	
==>defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	397	504	
==>defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5039	5152	
==>xpires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5039	5152	
==>xpires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13780	13892	
==>traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13780	13892	
==>traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $chann <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2760	2874	
==>}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    my $self    = shift;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3020	3145	
==>uantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3008	3133	
==>uantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15362	15497	
==>_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15641	15776	
==>_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9179	9312	
==>my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9179	9312	
==>my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete(' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10381	10494	
==>AME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10381	10494	
==>AME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4266	4409	
==>sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4807	4950	
==>sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11875	11968	
==>)       --> [Open], brackets(Open,Close), p6_oct_chars(R), [Close].
p6_oct_chars(R) --> octdig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9431	9555	
==>c = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9431	9555	
==>c = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23247	23343	
==>ciations.  Or alternately, the other
packages require your text data to be stored in a format oth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23247	23343	
==>ciations.  Or alternately, the other
packages require your text data to be stored in a format oth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11930	12038	
==>tered_alternatives }; 

    $self->registered_alternatives( \@alts ) if $alt;

    return $alt if $alt;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	497	615	
==>ait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subn <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	497	615	
==>ait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subn <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4977	5084	
==>rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4977	5084	
==>rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} { <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1986	2092	
==>ling $exename.c\n# $Config{cc} $Config{ccflags} $exename.c\n";
    if (system("$Config{cc} $Config{ccflags <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4539	4633	
==>($left, $right) = @_;
    return bit->new(0) if not (blessed($right) && $right->isa('closure::p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9471	9586	
==>set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9471	9586	
==>set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1615	1719	
==>at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1615	1719	
==>at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14561	14665	
==>:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enque <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14561	14665	
==>:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enque <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21207	21303	
==>names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21207	21303	
==>names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	472	583	
==>ass $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	472	583	
==>ass $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9072	9166	
==>r above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9072	9166	
==>r above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27724	27858	
==>onstant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28003	28137	
==>onstant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16144	16246	
==>en
reversed, I<can> match differently.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24876	24971	
==>Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamicall <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24876	24971	
==>Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamicall <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6658	6757	
==>er be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6658	6757	
==>er be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $mod <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2069	2270	
==>');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2069	2270	
==>');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7645	7750	
==>n a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7645	7750	
==>n a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_eleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3014	3140	
==>hift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3561	3687	
==>hift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21835	21986	
==>ure = self["iscapture"]
    if iscapture == 0 goto end
    cname = self["cname"]
    isarray = pad["isarray"]
    reps = pad["reps"]
    $I0 = exists re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1066	1172	
==>st match (not longest). 
# note: the list in @$nodes can be modified at runtime
sub alternation {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4749	4947	
==>lse {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modi <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4749	4947	
==>lse {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8245	8363	
==>rmalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8245	8363	
==>rmalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @un <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1938	2044	
==>= "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Config{ccflags} $exename.c\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8081	8285	
==>"$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unle <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8545	8749	
==>"$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3223	3321	
==>pos $level at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{preced <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18368	18498	
==>{
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_name;
    my $name = "$o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7143	7305	
==>[
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7143	7305	
==>[
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7029	7137	
==>y used by the cipher itself; more often it is used by 
a block cipher mode role to add some information to th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7029	7137	
==>y used by the cipher itself; more often it is used by 
a block cipher mode role to add some information to th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3641	3802	
==>ernate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3653	3814	
==>ernate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        I <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1605	1708	
==>ce {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($start_index) && $start_index->isa('nu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4157	4256	
==>], 
    '... $Class class_precendence_list');

is($Object->id, 2, '... $Object is the second id');
i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6685	6790	
==>t {
	my $self = shift;
	my $prog = shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumpe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9697	9790	
==>s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(".join(", <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2244	2355	
==><SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    % <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2244	2355	
==><SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    % <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2418	2521	
==>pen () returns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2418	2521	
==>pen () returns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.s <==
2	/Users/nnunley/pugs/util/version_h.pl	610	735	
==>ory.  Since we don't need a STDIN anyway, get rid of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # This is a release -- d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	408	505	
==>timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
  $m = match($r,$str);
}
print $m->de <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1084	1216	
==>);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->ne <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1051	1183	
==>);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->ne <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14292	14397	
==>s Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' char <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14350	14455	
==>s Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' char <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1335	1427	
==>ntext {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1335	1427	
==>ntext {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1430	1585	
==>> 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1430	1585	
==>> 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15432	15525	
==>,L1,RWx,RW1).

re_parse(Pat,Re) :-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%----------- <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2706	2807	
==>nds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2706	2807	
==>nds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10536	10658	
==>o world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Ar <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10536	10658	
==>o world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Ar <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1603	1702	
==>::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1603	1702	
==>::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3999	4106	
==>my $val = shift;

		my $rval = $val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		Blondie: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13194	13290	
==>num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6669	6765	
==>num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5207	5371	
==>();
            $status->{"TODO"}          = 1;
            $status->{"passed"}        = 1;
            $status->{"really_passed"} = _('$.passed');
            retur <==
2	/Users/nnunley/pugs/util/fixauthors.pl	677	777	
==>down(class=>"t1");

  return "" unless $realname;
  return $realname->as_text;

  return $realname;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	39	156	
==>is too much in this file 

### separate into:

- Introduction

- Documentation Index

- Compiler internals:

    Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	32	144	
==>is too much in this file 
### separate into:
- Introduction
- Documentation Index
- Compiler internals:
    Compi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3890	4033	
==>}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotForwardSlashOrAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2161	2296	
==>log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( Num $x = 1 --> Num )
 {
     Pugs::Internals::rand($x);
 }


 multi  N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6047	6158	
==>te that most of the time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Bl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6047	6158	
==>te that most of the time, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Bl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2670	2781	
==>s (type = " . $self->display_type($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1251	1350	
==>);
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Regex->comp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3801	3975	
==>s one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3801	3975	
==>s one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Nam <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1931	2063	
==>d lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocess <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1931	2063	
==>d lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocess <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7251	7384	
==>his, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	552	685	
==>his, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	353	462	
==>+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_type = 'text/ht <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	732	867	
==>h )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	732	867	
==>h )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2753	2854	
==>package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2753	2854	
==>package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::S <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3508	3627	
==>$method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5558	5677	
==>$method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_me <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15430	15566	
==>ltorito", # Set El Torito boot image name
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-lo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7425	7535	
==>ny';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, haskell-src -any <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2556	2676	
==>,  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Ic <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2556	2676	
==>,  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Ic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	308	450	
==>r parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	308	450	
==>r parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7674	7800	
==>literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7674	7800	
==>literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2522	2678	
==>> [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws* <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2427	2575	
==>> [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws* <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12282	12394	
==>eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
f <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12282	12394	
==>eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
f <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	258	354	
==>Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libj <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1054	1157	
==>..) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 's <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1054	1157	
==>..) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 's <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18979	19075	
==>B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max_ng(Re,N1,Fx,F1,Bx,B1,Ex,E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2463	2573	
==>a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2463	2573	
==>a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<serve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9421	9557	
==>ol = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9409	9545	
==>ol = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 u <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1023	1122	
==>essages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
ta <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1023	1122	
==>essages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2254	2366	
==>NDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2254	2366	
==>NDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  } <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	103	209	
==>rge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * /

# Pugs note: change "die" to "fail" when "fai <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2495	2755	
==>ne)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_l <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2495	2755	
==>ne)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_l <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	42	145	
==>he globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	42	145	
==>he globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LE <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10963	11063	
==>ise the program will emit warnings during the execution of some methods, 
because it will try to iter <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10963	11063	
==>ise the program will emit warnings during the execution of some methods, 
because it will try to iter <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3373	3477	
==>urns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3373	3477	
==>urns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1421	1532	
==>icScoping/;

    ...

    $self->enter_scope; # opens a new scope

    $self->new_pad("name" => $value); # shado <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6501	6603	
==>over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6501	6603	
==>over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3331	3488	
==>ch: $matches[1]

            return $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3225	3378	
==>ch: $matches[1]
            return $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! def <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6284	6400	
==>T',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6284	6400	
==>T',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8214	8364	
==>y} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8214	8364	
==>y} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2331	2426	
==>use this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir('build');
$config{'build_d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1119	1211	
==>slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print "$match";

sub s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1819	1942	
==>nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1758	1879	
==>nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10068	10198	
==>$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10068	10198	
==>$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    di <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	466	623	
==>s {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $packag <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	466	623	
==>s {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $packag <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5610	5716	
==>,$o);
    }
}
BEGIN{&init();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg_root)=@_;
    $pkg_r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4730	4844	
==>=> sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 3, '... $Foo is the fou <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3339	3456	
==>y) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3339	3456	
==>y) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8096	8227	
==>er Object singleton/class method called by Foo');

is($Foo->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4206	4419	
==>th ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4206	4419	
==>th ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	33	134	
==>ple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	33	134	
==>ple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1762	1881	
==>n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->erro <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	329	426	
==>e($runtime, $prog)
	);
}

{
	package Blondie::TypeSafe::Annotation;
	use base qw/Blondie::Node::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9273	9379	
==>at ^

### because it was specialized for subrules

### - needs to be generalized, and the anchor should onl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8969	9073	
==>at ^
### because it was specialized for subrules
### - needs to be generalized, and the anchor should onl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	561	703	
==>ce(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method z <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	561	703	
==>ce(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method z <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13918	14031	
==>ot recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	478	590	
==>vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $self->{raw} ? $self->{raw} : $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3763	4027	
==>PL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3763	4027	
==>PL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key ( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21266	21397	
==>bpats"] = 0
    pad["isarray"] = 0
    $P0 = new .Hash
    pad["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9506	9595	
==>rgs,"invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=>1") if $op{'isLValue'};
	pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17032	17143	
==>s( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_l <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	205	300	
==>er mag @obst[0] und @obst[1]\n";
print "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}\n";
print <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7090	7214	
==>-hidir dist/build/src "
      unless $self->is_extension_build;
    $ghc_flags .= " -fno-warn-name-shadowing ";
    $ghc_flag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5962	6093	
==>sage/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5962	6093	
==>sage/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! H <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2662	2843	
==>sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7608	7732	
==>of_seq;

			my @params = grep { $_->struct_equiv->isa("Blondie::Param") } @children_of_seq;
			
			return Blondie::TypeSafe:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7381	7499	
==>| '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7393	7511	
==>| '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2077	2179	
==>$cls;
}
sub _stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($self-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4712	4819	
==>e('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $ke <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4571	4678	
==>e('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $ke <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39950	40052	
==>le as its C<$other> argument and combines it with the
invocant relation into a new Relation::Example, s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2568	2683	
==>XX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2568	2683	
==>XX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1398	1546	
==>e->id . ")\" " . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $output;
    if (not exists $SEEN{$class}) {
        $out <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10468	10602	
==>rolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4206	4320	
==>diate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5055	5169	
==>diate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	939	1039	
==>the whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop::alterna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	902	998	
==>the whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop::alterna <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2098	2208	
==>rcfour is perfectly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item I <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2098	2208	
==>rcfour is perfectly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15819	15910	
==>e for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
several <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15819	15910	
==>e for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
several <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18407	18605	
==>}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18686	18884	
==>}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1087	1186	
==>y use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for s <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1087	1186	
==>y use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11929	12036	
==>p::Parser::quant;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $min, $ma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	5	98	
==>r/bin/perl

package Blondie::Backend::Perl::Builtins;

use strict;
use warnings;

use Blondie: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23947	24100	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24226	24379	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	450	579	
==>ctional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Method <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	450	579	
==>ctional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Method <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	561	705	
==>:output.join( "\n" );
        @:output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pu <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1002	1161	
==>ase_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_version = shift
      or die "Must pass Perl version (5 or 6)";
    my $ba <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8707	8815	
==>"~$_}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6950	7113	
==>ate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6950	7113	
==>ate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next S <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1373	1497	
==>g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) re <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1373	1497	
==>g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34239	34337	
==>on $other!) returns Relation>

This method is a generic relational operator that returns the comple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38789	38887	
==>on $other!) returns Relation>

This method is a generic relational operator that returns the comple <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4279	4373	
==>MAKEFILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3374	3487	
==>ick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3374	3487	
==>ick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2116	2288	
==>nd_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2116	2288	
==>nd_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10834	10931	
==>del code,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10834	10931	
==>del code,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Mod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5095	5264	
==>?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$curr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6857	7026	
==>?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$curr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8399	8504	
==>.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of this o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5939	6040	
==>.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of this o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24612	24706	
==>row->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::fr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24052	24150	
==>elf: get_attr (symbol new @:superclasses)))

=cut

$::Class->send('add_method' => (
    # method la <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	196	302	
==>:equivalence';

# need to load this here in 
# order for things to init 
# in the correct order
use Perl6:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29946	30042	
==>wever, the nature of 'atom' is to match a
character, see if there's a handler installed, and call <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5395	5484	
==>$head);
CheckTail($tail);
CheckRev($rev);
CheckMid($mid);
CheckWc($wc);
PrintGolfScore($he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14120	14239	
==>w) = @_;
    return $S->force_object(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4560	4788	
==>, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4560	4788	
==>, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tre <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	30	136	
==>ie::SmokeBackends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18534	18688	
==>ar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18813	18967	
==>ar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22645	22749	
==>ickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22645	22749	
==>ickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<g <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15419	15522	
==>, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15477	15580	
==>, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28728	28828	
==>For example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28728	28828	
==>For example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2109	2218	
==>density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2109	2218	
==>density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.sta <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3281	3381	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3339	3439	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2312	2459	
==>fier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'AR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2312	2459	
==>fier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'AR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4029	4154	
==>ch->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4169	4294	
==>ch->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1588	1690	
==>= $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1588	1690	
==>= $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	817	928	
==>t use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3305	3405	
==>local $ENV{PATH} = dirname($ghc) . $Config{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run_setu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2078	2225	
==>s;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2078	2225	
==>s;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4888	5001	
==>brary.  It should also be suitable for one-liners.  If
you need more control or access to the header fields in the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4888	5001	
==>brary.  It should also be suitable for one-liners.  If
you need more control or access to the header fields in the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	558	669	
==>{
    does Relation::Heading;

    # External packages used by the Relation::Example::Heading class, that do exp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16079	16180	
==>rating is so high because of cases like C</(\d+)(\w+)/> which, when
reversed, I<can> match differently <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3587	3699	
==>t  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3587	3699	
==>t  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	91	337	
==>rt symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant value <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	91	337	
==>rt symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant value <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8223	8345	
==>e,
			struct_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = shift;
		
		$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	385	499	
==>s::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name => 'circ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	178	287	
==>rotoconf->import();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a->{package} cmp $b->{packag <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31520	31622	
==>odule set that is specific
to it, another library likewise, and a program which uses both libraries
cou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31520	31622	
==>odule set that is specific
to it, another library likewise, and a program which uses both libraries
cou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6797	6906	
==>ead>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add at the begin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6797	6906	
==>ead>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add at the begin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7300	7420	
==>f && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7300	7420	
==>f && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11350	11448	
==>rray of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11350	11448	
==>rray of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str { <==
2	/Users/nnunley/pugs/util/package-osx.pl	6449	6537	
==>local/man/man3/Perl6::Overview::Rule.3
        /usr/local/man/man3/Perl6::Overview::Rule. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8508	8635	
==>xt->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8508	8635	
==>xt->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1257	1371	
==>bname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    sa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1249	1355	
==>bname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    sa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11723	11822	
==>ocument.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an orde <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11723	11822	
==>ocument.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an orde <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2350	2451	
==>ehind as been implemented at all, at all.
# A couple of others I don't remember at the moment but shou <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7960	8051	
==>, p5_start(R), ")", !.

p5_modifier_spec(L) --> p5_modifier_spec_pos(L).
p5_modifier_spec_po <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6769	6871	
==>d or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6769	6871	
==>d or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4053	4297	
==>$last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4053	4297	
==>$last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1167	1281	
==>ine = $self->coroutine();
  if ( $self->coroutine() )
  {
    #execute coroutine
    #&$coroutine();
  }
  else
  { <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12590	12684	
==>ed></span>,</td>
	      <td class="num tests_unexpect"><span title="<tmpl_var name=unexpect> un <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12225	12334	
==>ified name of open3.

    multi sub open3 (Str $command) returns List is primitive is unsafe {
        my ($in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22230	22327	
==>'$sigil'" if !$space;
	my @parts = split('::',$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = jo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1575	1697	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1397	1505	
==>msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1397	1505	
==>msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6013	6118	
==>re

At runtime, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5821	5923	
==>re
At runtime, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3794	3918	
==>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3794	3918	
==>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3777	3877	
==>qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5679	5779	
==>qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10579	10736	
==>p::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10858	11015	
==>p::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	26	122	
==>ist - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods Lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	26	122	
==>ist - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods Lis <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	919	1032	
==>($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $@ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1482	1574	
==>ks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Exam <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1482	1574	
==>ks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Exam <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	291	406	
==>nce;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	291	406	
==>nce;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    m <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6691	6807	
==>, @params, $type );
    }	
    elsif $tree[0] eq '"PSub"' {
        my %pad = $tree[1];  # keys: "pSubBody""pSubIsMul <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	594	711	
==>virtual method 'run' called on @_";
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime - Base class for exe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17988	18095	
==>r and returns it's first thingy
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fst = c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5838	5947	
==>eturn '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5838	5947	
==>eturn '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6879	6995	
==>setta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6879	6995	
==>setta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2742	2864	
==>lves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2742	2864	
==>lves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3172	3301	
==>->{out}= { op1 => $_[1], name => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             at <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21510	21715	
==>mb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in => comb(
            fun => comb(
                fun <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8071	8170	
==>reduce *&expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
multi Ar <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2302	2417	
==>tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2302	2417	
==>tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <= <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	556	660	
==>w( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	556	660	
==>w( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2854	2971	
==>\n10th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckTail {
   my ($sc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9324	9462	
==>tch--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9312	9450	
==>tch--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1405	1506	
==>d remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1405	1506	
==>d remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1999	2106	
==>dd( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1999	2106	
==>dd( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9321	9516	
==>s {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2337	2439	
==>is ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir('build');
$config{'build_dir'}        = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8552	8649	
==>operator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6086	6182	
==>operator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12155	12281	
==>params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $canidate, hash %params) returns opaqu <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7984	8084	
==>\d+)}{sprintf('%09s', $1)}eg;
    return $ver;
}

=head2 assert_ghc_pkg

Assert that we have F<ghc_pk <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	5	119	
==>e FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	5	119	
==>e FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1997	2114	
==>$_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_round = sign($x) * (floor( abs($x <==
2	/Users/nnunley/pugs/util/grokprims.pl	1741	1845	
==>iative with arity $arity";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9969	10146	
==>clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9969	10146	
==>clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            % <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	153	275	
==>}
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub cas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	153	275	
==>}
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub cas <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7514	7608	
==>echunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7514	7608	
==>echunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2886	3003	
==>pendencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $prot <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3350	3467	
==>pendencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $prot <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6810	6930	
==>>() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6810	6930	
==>>() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5401	5509	
==>ded as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5401	5509	
==>ded as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $sel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2443	2570	
==>ramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2443	2570	
==>ramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29197	29332	
==>return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29476	29611	
==>return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	459	553	
==>rce> property, and adds nothing else.

More specialised processing instructions may sub-class t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	459	553	
==>rce> property, and adds nothing else.

More specialised processing instructions may sub-class t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1343	1478	
==>eturn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1354	1489	
==>eturn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18188	18325	
==>t = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14609	14746	
==>t = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char clas <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2046	2146	
==>e last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2046	2146	
==>e last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32996	33095	
==>!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32996	33095	
==>!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	861	964	
==>es people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	861	964	
==>es people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC. <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3525	3632	
==>(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1010	1165	
==>$cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->fetch(num->new(0)); # get the head of the list
            my $no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14062	14173	
==>->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8267	8378	
==>->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => di <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1936	2044	
==>not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1936	2044	
==>not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8309	8411	
==>ut let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8309	8411	
==>ut let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13	113	
==>uire URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13	113	
==>uire URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19628	19725	
==>shes to authenticate itself with a server or a
proxy, may do so by including these headers.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19628	19725	
==>shes to authenticate itself with a server or a
proxy, may do so by including these headers.

=item <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7499	7651	
==>hift : 1;

    for (1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    local $^W = 0;
    last TODO;
}

sub e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12063	12162	
==>rns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (an array re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12063	12162	
==>rns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (an array re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11290	11390	
==>m ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11290	11390	
==>m ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1767	1869	
==>ins ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1767	1869	
==>ins ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns b <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1414	1503	
==>c15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1254	1343	
==>c15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3791	3924	
==>a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3803	3936	
==>a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2226	2329	
==>:CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2940	3022	
==>,"h" => unicode:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2790	2927	
==>) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2790	2927	
==>) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3802	4010	
==>start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3802	4010	
==>start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13218	13311	
==>ported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13218	13311	
==>ported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entitie <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6463	6577	
==>ackage node;
# all AST nodes inherit from this

sub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ == 1 ? ( <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	676	781	
==>];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Example: $date is now "2005-02-06 17:52:06"
  my $time = Time::Piec <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3007	3111	
==>($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars) <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3857	3960	
==>x     safe   (List)\
multi List::max(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14507	14606	
==>fined $handler;
    $handler->($x);
}

my $as_hash_complain = sub { Carp::carp("p6_as_hash called on <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1612	1714	
==>,
	has_failed => $has_failed,
    }, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warning <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	76	172	
==>n here.

* These are perl6 implementations of /builtins/
* They sometimes use Pugs internals to d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1858	1955	
==>ill have a key, which will be specified in the options; check your 
cipher's documentation for det <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1858	1955	
==>ill have a key, which will be specified in the options; check your 
cipher's documentation for det <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3487	3626	
==>ie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3487	3626	
==>ie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $st <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3270	3361	
==>l_term  { \< null \> }

rule assertion  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3607	3728	
==>apture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3800	3921	
==>apture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    retur <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2820	2916	
==>e.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2820	2916	
==>e.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8983	9197	
==>@lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checki <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8983	9197	
==>@lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checki <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15575	15699	
==>e;  # set current date

=item $h.expires

This header gives the date and time after which the entity should be
considered sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15575	15699	
==>e;  # set current date

=item $h.expires

This header gives the date and time after which the entity should be
considered sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	9	104	
==>6dump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	9	104	
==>6dump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14330	14450	
==>f_class => graph => $neg, \$how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $n <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15888	16001	
==>uldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (spli <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19376	19473	
==>hat data definition statements are structured as
standard data manipulation statements but that th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19376	19473	
==>hat data definition statements are structured as
standard data manipulation statements but that th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1437	1690	
==>MS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interface::Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1437	1690	
==>MS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interface::Ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2452	2613	
==>,
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], e <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1205	1295	
==>your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofp <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	499	599	
==>r another object or something like that.
type SlurpLimit is ( Int, Perl::Exp );

has SlurpLimit $.sub <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7811	7910	
==>um :DontDelete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18184	18364	
==>stant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18463	18643	
==>stant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	675	807	
==>Conf{leaves}) {
    print "$_\n" for grep { not defined $nodes{$_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13032	13128	
==>mpty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13032	13128	
==>mpty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	556	672	
==>'),
		),
		result => 'foobar',
		name => "simple concatenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7878	7976	
==>authors should assume that if this method is being called, the Secret 
Police are breaking down the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7878	7976	
==>authors should assume that if this method is being called, the Secret 
Police are breaking down the <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13026	13123	
==>1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13026	13123	
==>1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	693	851	
==>*{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } el <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	693	851	
==>*{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } el <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	733	849	
==>d1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetin <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1317	1433	
==>d1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10684	10780	
==>Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10742	10838	
==>Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12117	12241	
==>nd('bless' => (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $class: st <==
2	/Users/nnunley/pugs/util/package-osx.pl	8868	8990	
==>rig}/;
        remove_svn("$dest$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_sym <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30168	30265	
==>user string may also contain variable names that correspond
to Message Variables, which will be su <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30168	30265	
==>user string may also contain variable names that correspond
to Message Variables, which will be su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4004	4134	
==>x->{flags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      down => 1,
    }, $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3094	3250	
==>my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( q <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3941	4074	
==>{anonymous}) {
        $self->{_smoker} = eval { LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4090	4219	
==>re => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4283	4412	
==>re => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11102	11205	
==>gex

You can use the qr() method to get back a F<Regexp> object:

  my $real_rx = $parser->qr;

The rege <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9001	9132	
==>== $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

& <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12478	12609	
==>== $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

& <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11488	11589	
==>outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11488	11589	
==>outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3762	3988	
==>ponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3762	3988	
==>ponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4704	4839	
==>1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4692	4827	
==>1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub var <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1926	2042	
==>:{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1926	2042	
==>:{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8435	8552	
==>h_end:
  $$operator{type} = $$token{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19595	19680	
==>cale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19595	19680	
==>cale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATI <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	474	565	
==>--------------------------------------------
## accessors and mutators

method parent ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	474	565	
==>--------------------------------------------
## accessors and mutators

method parent ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5221	5376	
==>dex] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5209	5364	
==>dex] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1261	1407	
==>ar eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1261	1407	
==>ar eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1279	1434	
==>dy>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1279	1434	
==>dy>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<stat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7956	8083	
==>$maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7956	8083	
==>$maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2984	3116	
==>st"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2984	3116	
==>st"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	193	299	
==>lass = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend::$backend";
		use_ok( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1724	1843	
==><ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1724	1843	
==><ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VA <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3388	3508	
==>ol::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3388	3508	
==>ol::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !de <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	300	411	
==>ethod members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initia <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	300	411	
==>ethod members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initia <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5641	5738	
==>000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=i <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5641	5738	
==>000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=i <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1507	1629	
==>cription,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic ) <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1507	1629	
==>cription,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	924	1020	
==>ified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Compiler (or A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	877	970	
==>ified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Compiler (or A <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1290	1399	
==>l = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1348	1457	
==>l = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6853	6960	
==>a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6853	6960	
==>a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=ba <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3350	3657	
==>),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->new(
                                Sym->new( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19474	19578	
==>)>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19474	19578	
==>)>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4569	4684	
==>f $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4569	4684	
==>f $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7250	7403	
==>' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7250	7403	
==>' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1517	1731	
==>eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $rege <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1517	1731	
==>eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $rege <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19504	19601	
==>a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authoriza <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19504	19601	
==>a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authoriza <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14893	14989	
==>tr $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14893	14989	
==>tr $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4028	4130	
==>> class 'TestBuilder::Test::Skip' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH(' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	576	686	
==>subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1238	1348	
==>subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7532	7640	
==>bject(eol => eos => '\z');
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1963	2101	
==>($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_round = sign($x) * ( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	602	691	
==>v.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the f <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	602	691	
==>v.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the f <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	908	1007	
==>s is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_dau <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	908	1007	
==>s is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_dau <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9997	10095	
==>rogress. As new features are
added to Pugs, new test functions will be defined to facilitate the
te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10055	10153	
==>rogress. As new features are
added to Pugs, new test functions will be defined to facilitate the
te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9722	9854	
==>igit => $neg, $how);
  });

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16356	16451	
==>ocales or user types simultaneously, and that allows any end users to add
support for new langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16356	16451	
==>ocales or user types simultaneously, and that allows any end users to add
support for new langua <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1545	1660	
==>d";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html', <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1545	1660	
==>d";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html', <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1211	1313	
==>e \"$pilfn.err\": $!\n";
    unlink $pilfn or die "Couldn't remove \"$pilfn\": $!\n";
    unlink $fn or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36909	37005	
==>ext.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36909	37005	
==>ext.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $message <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2568	2925	
==>_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym( <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3336	3506	
==>rl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::sort(; So <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1264	1401	
==>y $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1264	1401	
==>y $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9387	9487	
==>rt_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9387	9487	
==>rt_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SE <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	546	648	
==>);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	546	648	
==>);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25324	25423	
==>e-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25324	25423	
==>e-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2324	2423	
==>ts or fully functioning modules in 
Pugs, this port does it's best to work with those limitations an <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2324	2423	
==>ts or fully functioning modules in 
Pugs, this port does it's best to work with those limitations an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11641	11747	
==>tores a collection of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11641	11747	
==>tores a collection of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23568	23675	
==>rences.  Where other solutions take variables, they
seem to be positional (like with 'sprintf'); whereas, Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23568	23675	
==>rences.  Where other solutions take variables, they
seem to be positional (like with 'sprintf'); whereas, Lo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1913	2019	
==>case.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last component of th <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1913	2019	
==>case.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last component of th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	864	1024	
==>e {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @curre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	864	1024	
==>e {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @curre <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	300	432	
==>s.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ()) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	300	432	
==>s.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ()) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22322	22419	
==>ot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22322	22419	
==>ot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	50	164	
==>ince it might contain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	50	164	
==>ince it might contain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	749	854	
==>and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	749	854	
==>and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7095	7215	
==>ntent . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSE <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7095	7215	
==>ntent . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSE <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1522	1688	
==>} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1595	1703	
==>->params;

    # the body is a code ref
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $pri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10517	10614	
==>you can pass them through this function. This is primarily a release
tool, but can be useful in ot <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10575	10672	
==>you can pass them through this function. This is primarily a release
tool, but can be useful in ot <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15351	15468	
==>as      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15351	15468	
==>as      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7407	7511	
==>e;

  # example definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Precedence->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21125	21219	
==>em Flag Handlers

Flag handlers now receive an additional argument that says whether
they're be <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1479	1646	
==>ut.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a fil <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1479	1646	
==>ut.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a fil <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3304	3469	
==>parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3304	3469	
==>parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7468	7584	
==>ators, and return a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "hig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7215	7326	
==>ators, and return a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "hig <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2711	2813	
==>= " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <Variable <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2711	2813	
==>= " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <Variable <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2035	2215	
==>];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %para <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2035	2215	
==>];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %para <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2492	2587	
==>-------------------------------------------------------
## getting children

method get_child ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2492	2587	
==>-------------------------------------------------------
## getting children

method get_child ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	527	644	
==>sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	527	644	
==>sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3270	3387	
==>utElementRegExp {  # see clause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <Regul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4374	4477	
==>inst->is_installed( package => $package )

=cut

### XXX package name?
sub is_installed {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1626	1743	
==>'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1626	1743	
==>'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => ' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1533	1649	
==>closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1533	1649	
==>closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	452	564	
==>gs{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	419	531	
==>gs{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13179	13292	
==>y $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	589	702	
==>y $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $se <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15654	15775	
==>sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexica <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2051	2172	
==>sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexica <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6017	6138	
==>$X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $o->mk_eater_for_ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	652	795	
==>ENV{TEST_ALWAYS_CALLER} = 1;

GetOptions \our %Config, qw(--output-file|o=s --dry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16990	17113	
==>sh %params) returns nil {
    my $dispatcher = $self.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> $met <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1048	1148	
==>Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2903	3003	
==>Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	250	375	
==>mpiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # print Dumper ${$_[0]}->{m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20599	20691	
==>ers
in F<Regexp/Parser/Handlers.pm>.  That file might end up being where
documentation on wri <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3244	3345	
==>ist/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirname($ghc) . $Confi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16024	16123	
==>into some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16024	16123	
==>into some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5974	6077	
==>, '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the right meth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10231	10334	
==>, '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the right meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	709	803	
==>itpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	709	803	
==>itpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitp <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6875	6984	
==>$self->{error} = "$file is not readable";
        return;
    }

    local $ENV{PERL5LIB} = $self->_INC2PERL5L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2920	3016	
==>atchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1179	1288	
==>d has

a main body closure. 



the Package part of the Module is simply a hash from strings

(symbol names) t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1127	1232	
==>d has
a main body closure. 

the Package part of the Module is simply a hash from strings
(symbol names) t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19025	19120	
==>be used with user text that is
associated with hard-coded program conditions.  In other words, t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19025	19120	
==>be used with user text that is
associated with hard-coded program conditions.  In other words, t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1550	1664	
==>les:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1550	1664	
==>les:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4138	4333	
==>d Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4138	4333	
==>d Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Mo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14867	14981	
==>, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    dec pos
    $I1 = $I0 - pos
    cname = substr target, pos <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1160	1264	
==>unbound type variable
#	::instantiated - points to another variable or operator

use Language::AttributeG <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15353	15457	
==>sub p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_hash_handlers{$ref <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2636	2759	
==>mment
	    print '\syncomment{';
	    while (scalar @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    sh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	751	863	
==>em = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	751	863	
==>em = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	309	443	
==>rn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq '$* <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20263	20367	
==>rimitive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5471	5572	
==>olute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5471	5572	
==>olute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9292	9418	
==>atch[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9280	9406	
==>atch[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	551	720	
==>constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	551	720	
==>constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1942	2071	
==>b new {
    my ($class, $rx, $type, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      fam <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3444	3560	
==>} @{ $Config{include} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9703	9795	
==>DERR "(",join(", ",map{defined($_)?"'$_'":"undef"}@a),") ",0+@a,"\n";

0;
__END__
=cut
$foo = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9290	9419	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9483	9612	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3910	4014	
==>te[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3910	4014	
==>te[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3923	4031	
==>uotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3923	4031	
==>uotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = " <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1722	1841	
==>) == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1722	1841	
==>) == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	27	126	
==>gh beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	27	126	
==>gh beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3673	3786	
==>enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call the cipher() method repe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3673	3786	
==>enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call the cipher() method repe <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2979	3093	
==>/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8047	8150	
==>egory.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Perl 6 opera <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16959	17074	
==>ue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    cl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16959	17074	
==>ue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    cl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8914	9053	
==>OWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8914	9053	
==>OWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $str <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8931	9062	
==>g"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(98 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8931	9062	
==>g"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(98 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9641	9752	
==>at will insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9641	9752	
==>at will insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INS <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7998	8106	
==>dirs}};    

    my @files = (exists $index->{_files} ? sort @{$index->{_files}} : ());
    my $template = HT <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1726	1839	
==>DO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1726	1839	
==>DO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1369	1488	
==>this Relation is mutable or not;
        # depending on the implementing class, it can default to True or 
        # Fal <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4847	4965	
==>this Relation is mutable or not;
        # depending on the implementing class, it can default to True or
        # Fal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3945	4046	
==>self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1252	1353	
==>self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2240	2340	
==>--> List )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort( SortCriterion  $by = &infix: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3396	3574	
==>'') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.read <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3396	3574	
==>'') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.read <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8104	8217	
==>ts of spans.

In this example, @span may contain zero, one, two, or three spans, depending on
the contents of $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8104	8217	
==>ts of spans.

In this example, @span may contain zero, one, two, or three spans, depending on
the contents of $spa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	836	928	
==>setta::Validator for English

=head1 VERSION

This document describes Rosetta::Validator::L:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	836	928	
==>setta::Validator for English

=head1 VERSION

This document describes Rosetta::Validator::L:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8991	9109	
==>iece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $lengt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8991	9109	
==>iece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $lengt <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6093	6186	
==>sary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6093	6186	
==>sary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16998	17109	
==>", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ close => <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6819	6919	
==>* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3819	3909	
==>_get_intersection( $self.closure_previous, $self.closure_next, $set.closure_previous, $set. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3819	3909	
==>_get_intersection( $self.closure_previous, $self.closure_next, $set.closure_previous, $set. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	546	654	
==>o],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2074	2182	
==>o],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STR <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3275	3402	
==>ns }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Num)   { $radians / (2*pi) * $base } # XXX - sp <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	245	356	
==>::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=hea <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	245	356	
==>::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11109	11210	
==>eparator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11109	11210	
==>eparator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	159	268	
==>turns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { .. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6736	6836	
==>\;
        { return { sub_application => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	63	182	
==>ub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)| <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12020	12138	
==>fic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12020	12138	
==>fic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9783	9924	
==>T id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9783	9924	
==>T id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	628	800	
==>d_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} }
            ) );
    __PACKAGE__->recom <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	817	913	
==>(shift)} }

# conversion to other types
sub to_str { str->new('' . (shift)->to_native) }
sub to_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	973	1087	
==>my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direct <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	982	1096	
==>my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direct <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	483	581	
==>$/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	483	581	
==>$/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->($ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1130	1227	
==>g iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1130	1227	
==>g iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4186	4299	
==>ods );
    }
    return $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub no_i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7475	7574	
==>lf.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authent <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7475	7574	
==>lf.header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authent <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34679	34776	
==>lation, and returns a new Relation that has the
same heading as the invocant and whose body contai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39229	39326	
==>lation, and returns a new Relation that has the
same heading as the invocant and whose body contai <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2484	2587	
==>ns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2484	2587	
==>ns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18275	18369	
==>pecify the address (URI) of the document from which the
requested resource address was obtained <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18275	18369	
==>pecify the address (URI) of the document from which the
requested resource address was obtained <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8827	8970	
==>how) = @_;
    return $S->force_object(anyof_class => print => $neg, $how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3984	4120	
==>";
print "\n";

my $quotable = qr/\w+|$RE{delimited}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leading <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2579	2692	
==>t return all (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    & <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2579	2692	
==>t return all (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9616	9715	
==>ly created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9616	9715	
==>ly created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1248	1398	
==>{ $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1248	1398	
==>{ $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7940	8058	
==>lf, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7940	8058	
==>lf, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	123	212	
==>B::Package::Source;
use JIB::Package::Binary;
use JIB::Package::Installed;
use JIB::Packag <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4285	4422	
==>ontrol $data] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12550	12701	
==>oop);
      }
    } else {
      sub {
        my $c = $_[0];
        FAIL() if not &_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      }
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4737	4869	
==>such as == and <= that fail
        if ($got eq $expected and $type !~ tr/a-z//) {
            unshift @mess, "# $got - $expected = " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	937	1040	
==>piled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	937	1040	
==>piled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15455	15637	
==>::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        headin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18932	19114	
==>::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        headin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2835	2971	
==>ure_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3028	3164	
==>ure_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8563	8761	
==>st.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems }, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8563	8761	
==>st.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5510	5622	
==>nge) {
        # This is a fail, but doesn't need extra diagnostics
    } elsif ($got !~ tr/0-9// or $expected !~ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17170	17274	
==>e,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17327	17431	
==>e,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1871	1970	
==>me> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will i <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1871	1970	
==>me> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36158	36259	
==>other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the res <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36158	36259	
==>other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the res <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1980	2087	
==>return $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4215	4322	
==>return $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	164	297	
==>my $n;
    if (@_ == 1) {
	$n = shift;
	if ($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n = $pla <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	243	331	
==>quickref/rules
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/E05.pod
  http:/ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2756	2955	
==>ine = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbati <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2756	2955	
==>ine = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbati <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9823	9932	
==>ess $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9823	9932	
==>ess $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10741	10855	
==>ons) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10741	10855	
==>ons) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5173	5276	
==>ation file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4993	5093	
==>ation file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6268	6387	
==>\$self\)=/my \$out; my\(\$self\)=/;

    #print $p;
    eval $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->ad <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2954	3051	
==>rt-082eedc532\n");exit(0);}
    start = stringarg-strbeg;

    fprintf(stderr,"regexp_exechook_hoo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6466	6566	
==>ut (normally STDOUT) as
data is received from the network.  If the request fails, then the
status cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6466	6566	
==>ut (normally STDOUT) as
data is received from the network.  If the request fails, then the
status cod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4281	4420	
==>:Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4281	4420	
==>:Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type! <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9175	9273	
==>tems_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems]) --> p5_charset_item(Item1), p5_charset <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18153	18256	
==>->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18153	18256	
==>->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	102	207	
==>();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5003	5219	
==>start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5003	5219	
==>start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the t <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1715	1834	
==>{
    my @ret;
    for @array.keys -> $k {
	push(@ret, @array[$k] ) if $k ~~ any(@indextests);
    }
    *@ret; # want I <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4975	5082	
==>Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex c <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4975	5082	
==>Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex c <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	387	491	
==>@.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1953	2056	
==>ther a static lookup (lex only) or a dynamic lookup. 



This object-serialization format is shared acro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1879	1980	
==>ther a static lookup (lex only) or a dynamic lookup. 

This object-serialization format is shared acro <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2395	2529	
==>escendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2395	2529	
==>escendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14310	14427	
==>g the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    su <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14310	14427	
==>g the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5128	5253	
==>list => [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4777	4874	
==>p with push-on-array
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name) if $match_h <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2698	2814	
==>$out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3124	3227	
==>e directories the resulting relative path
    # must ascend out of before it can descend to $path_direct <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3124	3227	
==>e directories the resulting relative path
    # must ascend out of before it can descend to $path_direct <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	875	977	
==>t active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	875	977	
==>t active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6273	6401	
==>turn @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6273	6401	
==>turn @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $typ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1533	1644	
==>ems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_la <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1533	1644	
==>ems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_la <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21830	21927	
==>lace, usually in the
main program, Locale::KeyedText can be given input that says what resource
fi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21830	21927	
==>lace, usually in the
main program, Locale::KeyedText can be given input that says what resource
fi <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4639	4765	
==>ELUDE);
    $lines += print OUT while <$rh>;
    #my $program = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unles <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20828	20928	
==>,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; ch <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16416	16506	
==>tyExpression> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <Relational <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2473	2650	
==>($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2473	2650	
==>($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1910	2016	
==>e: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $fina <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1910	2016	
==>e: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $fina <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9012	9115	
==>ey =~ s#\\#/#g;

  $relative_file =~ s/t$/html/;
  
  my $output_path   = inpath_to_outpath($input_path) <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9058	9171	
==>e +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMEN <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2943	3041	
==>opied from S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gath <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12380	12474	
==>eturns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12438	12532	
==>eturns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13047	13177	
==>else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6522	6652	
==>else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12070	12222	
==>ader_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12070	12222	
==>ader_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6161	6266	
==>ruct_equiv->val->struct_equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	396	481	
==>r::Rule->compile(q(\{[<block>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1334	1438	
==>rived to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use this fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1334	1438	
==>rived to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use this fo <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4514	4613	
==>gs$Config{_exe}";
    my $base = $self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cyg <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	322	426	
==>hs = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 18 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	322	426	
==>hs = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 18 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2122	2323	
==>or', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($las <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2122	2323	
==>or', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($las <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19824	19926	
==>e desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accura <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19824	19926	
==>e desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accura <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2381	2503	
==>Y) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2381	2503	
==>Y) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	502	604	
==>n

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	560	662	
==>n

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test:: <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	325	450	
==>fix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a < <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	325	450	
==>fix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a < <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	206	308	
==>de ) {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5444	5596	
==>efor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5908	6060	
==>efor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2006	2165	
==>art, $file );
            next if $Config{exclude_re} && $currfile =~ $Config{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27686	27790	
==>deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27686	27790	
==>deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named parameters of new( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3064	3182	
==>ata
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3064	3182	
==>ata
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg< <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1919	2032	
==>th, "man3");
    $self->makemaker_args->{MAN1PODS} = {} if $perl_version == 6;
    $self->makemaker_args->{MAN3POD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11782	11992	
==>.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11782	11992	
==>.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1889	2035	
==>Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nC <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1889	2035	
==>Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nC <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4985	5092	
==>ethod next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4985	5092	
==>ethod next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.sta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23374	23467	
==>perE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

= <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23374	23467	
==>perE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

= <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5835	5938	
==>dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5835	5938	
==>dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6276	6372	
==>}(?{ &::hlp_rule;})');
my $x4 = def_stmt_prim('bs_stmt_decl','\s*macro\s+statement_control:<(\w+) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6868	6972	
==>>describe;
token whitespace:<basic_whitespace> { \s+ }

rule identifier { \w+ }
token literal_int { \d+ } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3836	3951	
==>>{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4029	4144	
==>>{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.* <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	518	795	
==>urn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localizatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	518	795	
==>urn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localizatio <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6339	6443	
==>=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$fi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6339	6443	
==>=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$fi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9045	9155	
==>pan0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9045	9155	
==>pan0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16985	17091	
==>rgument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16985	17091	
==>rgument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Roset <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11555	11677	
==>queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $sel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11555	11677	
==>queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $sel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7492	7595	
==>ntain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Return <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7492	7595	
==>ntain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Return <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	375	502	
==>error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	375	502	
==>error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use Test::Builder::Output;

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17274	17373	
==>f saying that it subscribes to the
localization methodology that is described here, and hence provid <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17274	17373	
==>f saying that it subscribes to the
localization methodology that is described here, and hence provid <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4780	4980	
==>er => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>") <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4780	4980	
==>er => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>") <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3139	3283	
==>t($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE::push(@{$self} => @_); 
    nil->new();
}

sub reverse {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20156	20278	
==>d labeled "Internal use only" is one of the most widely used. ;)
It get's is own section, elsewhere.


  regnode program[1] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2438	2556	
==>_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_header <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2438	2556	
==>_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_header <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9628	9730	
==>DESCRIPTION

This class handles an infinite recurrence set, defined with closures. 

A recurrence set i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9628	9730	
==>DESCRIPTION

This class handles an infinite recurrence set, defined with closures. 

A recurrence set i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9326	9424	
==>eturn = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return an <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9326	9424	
==>eturn = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	870	987	
==>Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	870	987	
==>Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19661	19764	
==>ave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19661	19764	
==>ave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22276	22379	
==>msg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22276	22379	
==>msg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14755	14864	
==>lus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14755	14864	
==>lus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8711	8844	
==>sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue);
    });
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8711	8844	
==>sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue);
    });
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7648	7757	
==>led. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7648	7757	
==>led. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $eve <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25336	25436	
==>ot
interact with the outside environment at all.

A Message object has two main attributes:

=over

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25336	25436	
==>ot
interact with the outside environment at all.

A Message object has two main attributes:

=over

= <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1031	1177	
==>uments ( $string ) {
            return $?CLASS.new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role Getopt::Argu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15074	15182	
==>ame as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15074	15182	
==>ame as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5618	5712	
==>n}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5618	5712	
==>n}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4069	4266	
==>xt RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $may <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4533	4730	
==>xt RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $may <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1957	2081	
==>hunk"); # FIXME - enforce param checking on stubs or prims some how?

    return $reduced;
}

sub reduce_sym {
    my $self = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4769	4885	
==>{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores{$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1470	1592	
==>_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_IN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1470	1592	
==>_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_IN <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5379	5479	
==>->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5379	5479	
==>->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4326	4492	
==>t.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^messag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4326	4492	
==>t.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^messag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1249	1352	
==>ly a hash from strings

(symbol names) to objects (containers)



the Code part consists of a Pad, a Sig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1194	1294	
==>ly a hash from strings
(symbol names) to objects (containers)

the Code part consists of a Pad, a Sig <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3572	3689	
==>~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3572	3689	
==>~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7891	7981	
==>= %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7891	7981	
==>= %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10278	10411	
==>_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10278	10411	
==>_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3016	3140	
==>repare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=he <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3016	3140	
==>repare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15355	15494	
==>:greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15634	15773	
==>:greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::op <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4215	4361	
==>'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '± <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4215	4361	
==>'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '± <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20386	20522	
==>? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2162	2265	
==>( $name, \@output_lines )

  my %results = $strap->analyze($name, \@test_output);

Analyzes the output o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21569	21666	
==>> <Statement>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1959	2188	
==>d $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1959	2188	
==>d $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	796	949	
==>text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	796	949	
==>text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rul <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31132	31258	
==>w attributes, and
the values provide values applied to each tuple.  The new Relation::Example has all
of the tuples of the orig <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25742	25847	
==>15.10.1
      <ControlEscape>
    | <'c'> <ControlLetter>
    | <HexEscapeSequence>
    | <UnicodeEscapeSe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	994	1119	
==>$extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	994	1119	
==>$extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20335	20436	
==>ng the hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f9 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20335	20436	
==>ng the hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f9 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1320	1435	
==>2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental mod <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1320	1435	
==>2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental mod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	960	1079	
==>kage MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	960	1079	
==>kage MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	144	245	
==>:Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	144	245	
==>:Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5677	5792	
==>that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Ut <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5677	5792	
==>that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Ut <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10517	10615	
==>or '-' in header names.

The header() method accepts multiple ($field => $value) pairs, which
means <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10517	10615	
==>or '-' in header names.

The header() method accepts multiple ($field => $value) pairs, which
means <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	118	215	
==>LD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	118	215	
==>LD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	838	955	
==>(?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    els <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	838	955	
==>(?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    els <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13330	13431	
==>Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
your code; inst <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13330	13431	
==>Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
your code; inst <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13201	13294	
==>his routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=ite <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13201	13294	
==>his routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11900	12000	
==>field are retained.

As for the header() method, the field name ($field) is not case
sensitive and '_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11900	12000	
==>field are retained.

As for the header() method, the field name ($field) is not case
sensitive and '_ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1229	1371	
==>g;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1229	1371	
==>g;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $e <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	229	451	
==>type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	229	451	
==>type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	954	1065	
==>O - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	954	1065	
==>O - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15607	15701	
==>le arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRON <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15665	15759	
==>le arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRON <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2342	2499	
==>s_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2342	2499	
==>s_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	454	590	
==>e values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; how <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	454	590	
==>e values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; how <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11017	11113	
==>ns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Util <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11017	11113	
==>ns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Util <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10516	10641	
==>_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it wi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10516	10641	
==>_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it wi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	751	877	
==>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimens <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	751	877	
==>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimens <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7309	7454	
==>return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7321	7466	
==>return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #pri <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1454	1582	
==>ty>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<ob <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1454	1582	
==>ty>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<ob <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23220	23321	
==>> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27772	27873	
==>> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3856	3972	
==>:Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing z <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3856	3972	
==>:Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing z <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2002	2137	
==>";
}

sub _qq {
    my $x = shift;
    return defined $x ? '"' . display ($x) . '"' : 'undef';
};

# keys are the codes \n etc map to, v <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24324	24427	
==>push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
    } else {
        push @result, "?% oka <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	591	714	
==>ebin},
        siteprefix=> $Config{siteprefix},

        installscript  => $Config{installscript},
        sitescript     = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5627	5735	
==>urn $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5627	5735	
==>urn $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5946	6063	
==>sting_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6004	6121	
==>sting_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	718	848	
==>t from C<::SomeClass> references.

Note that this could be a different entity to the objects that are
created when you use;

  type <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	937	1045	
==>XXX combine with the dependency checker?
sub pretty_print {
    my $self    = shift;
    my $struct  = $self- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	0	104	
==>use v6;

# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    do <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	0	104	
==>use v6;

# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    do <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2644	2793	
==>($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cooki <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2644	2793	
==>($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cooki <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19924	20030	
==>_file=>$fn)->get_p6_file;
    p6_eval($cc->as_p6);
}


my %macros;
sub p6_macrop5 {
    my($name)=@_;
    $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17523	17608	
==>itwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionNoIn :words <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10933	11064	
==>"runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10933	11064	
==>"runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49825	50077	
==>l->new('$self:' => 'opaque'),
                              symbol->new('?$authority' => 'str'),
                          ),
                returns => 'str'
            ),            
            sub {
                my $e = shift;
                $e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5568	5709	
==>l = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5391	5527	
==>l = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4969	5080	
==>nthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4969	5080	
==>nthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$cha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8531	8635	
==>on')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8531	8635	
==>on')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9272	9420	
==>binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1451	1579	
==>arator   ::= Code(Any, Any) returns Int;
 type Criterion    ::= KeyExtractor | Comparator
                       | Pair(KeyExtrac <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3569	3713	
==>th _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4033	4177	
==>th _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1658	1798	
==>to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1658	1798	
==>to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3326	3441	
==>s/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglock );



but where does th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3209	3319	
==>s/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglock );

but where does th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4730	4850	
==>ed them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4730	4850	
==>ed them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	728	839	
==>OM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=hea <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	728	839	
==>OM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1932	2055	
==>TORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1932	2055	
==>TORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2518	2647	
==>message";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2518	2647	
==>message";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9935	10034	
==>a function reference.  When called in scalar
context, it returns the next node:

  while (my $node = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3347	3444	
==>grub_uri
    mklivecd.pl automatically fetches a GRUB tarball.
  --grub-local=$grub_local
    Loca <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	434	547	
==>mation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI:: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	434	547	
==>mation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13304	13399	
==>are in exactly the right input format for
Document.new(), by which you can create an identical D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13304	13399	
==>are in exactly the right input format for
Document.new(), by which you can create an identical D <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3990	4079	
==>/en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http: <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3990	4079	
==>/en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9990	10198	
==>) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14244	14345	
==>ed version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14244	14345	
==>ed version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19605	19723	
==>n

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by including these headers.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19605	19723	
==>n

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by including these headers.

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1206	1341	
==>ns, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1206	1341	
==>ns, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13063	13251	
==>l }

sub reduce_stub {
    my $self = shift;
    die "trying to reduce a stub at runtime";
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	373	508	
==>ift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, store => \$file }, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2100	2224	
==>s
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Package::Installable->Object::Ac <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3783	3892	
==>hObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	520	644	
==>PSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	520	644	
==>PSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7869	7983	
==>:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_ast ( %ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	873	997	
==>ss;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else {
	print STDOUT "1..0\n";
    }
    exi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1894	1995	
==>executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  Th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1894	1995	
==>executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1388	1529	
==>$_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1388	1529	
==>$_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4170	4281	
==>ess $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($fla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4387	4498	
==>ess $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($fla <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	226	325	
==>* 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	226	325	
==>* 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	301	414	
==>} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigsp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	301	414	
==>} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigsp <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1628	1783	
==>xt;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1628	1783	
==>xt;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12841	12963	
==>ur &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        gi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12841	12963	
==>ur &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        gi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7333	7444	
==>))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7333	7444	
==>))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are t <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7975	8081	
==>safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10209	10343	
==>def, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10209	10343	
==>def, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2272	2371	
==>properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2272	2371	
==>properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	86	184	
==>r::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	217	315	
==>r::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Matc <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1160	1259	
==>$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1160	1259	
==>$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26057	26160	
==>S	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #defi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3327	3417	
==>~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3327	3417	
==>~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:P <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2093	2192	
==>rldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" el <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2093	2192	
==>rldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" el <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1348	1538	
==>_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1348	1538	
==>_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6659	6822	
==>ary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6659	6822	
==>ary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_i <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1817	1984	
==>d a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1817	1984	
==>d a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we c <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14809	14969	
==>elf->{param_stack} }, $self->{params};
    $self->{params} = \@params;
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2277	2389	
==>$tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2277	2389	
==>$tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4441	4526	
==>oded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4441	4526	
==>oded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28781	28883	
==>t match invocant
Relation attribute names, or duplicate any other value set members.  This
method suppo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33333	33435	
==>t match invocant
Relation attribute names, or duplicate any other value set members.  This
method suppo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	433	531	
==>::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	433	531	
==>::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implemen <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5334	5433	
==>> method the file for the properties, and writes it
to disk.  Returns boolean value of success or fa <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5334	5433	
==>> method the file for the properties, and writes it
to disk.  Returns boolean value of success or fa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3834	3970	
==>le . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, " <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3834	3970	
==>le . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24094	24205	
==>Pe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20515	20626	
==>Pe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13033	13275	
==>e' => 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6op <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8387	8497	
==>+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19180	19285	
==>ted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19180	19285	
==>ted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, wh <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23489	23574	
==>n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) :- !.
replac <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2550	2677	
==>en 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2550	2677	
==>en 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1662	1761	
==>nformational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1662	1761	
==>nformational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7681	7806	
==>eral {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpres <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1713	1813	
==>EXT_STRINGS_F is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manqu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2251	2351	
==>o);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2251	2351	
==>o);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	563	671	
==>ead from cover
# to cover with no hand holding, and actually understood. Everybody cheer!
# (i did not unders <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8742	8842	
==>he regex and create
the tree in one step:

  my $ok = $parser->parse($new_regex);

Again, $ok will be <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5246	5350	
==>($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5246	5350	
==>($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	347	453	
==>TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	347	453	
==>TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	704	827	
==>: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assert <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	704	827	
==>: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assert <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27183	27337	
==>)
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27462	27616	
==>)
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11891	11983	
==><$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11891	11983	
==><$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8886	8977	
==>erl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2711	2802	
==>erl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	134	279	
==>name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	134	279	
==>name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	607	723	
==>es;
*debug    = *Debug;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
}

# Some e <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3454	3610	
==>file    => @caller[1],
        line    => @caller[2],
        subname => @caller[3],
        subtype => @caller[4],
        sub     => @caller[5],
    ) !! u <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	227	372	
==>1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but r <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	227	372	
==>1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3396	3569	
==>h = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3536	3709	
==>h = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as st <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1822	1938	
==>urst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1822	1938	
==>urst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	291	395	
==>em CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we could actuall <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1736	1856	
==>, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1736	1856	
==>, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_univer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10896	11054	
==>s = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::concat( \n" .
                "        Run <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	796	898	
==>::Reducer::generic_reduce($node->struct_equiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6816	6920	
==>= $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6816	6920	
==>= $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $clos <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	211	324	
==>"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	211	324	
==>"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26167	26276	
==>elational operator that returns a new Relation
which has a subset of the original's attributes; that subset is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30719	30828	
==>elational operator that returns a new Relation
which has a subset of the original's attributes; that subset is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1417	1548	
==>$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto ) <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1417	1548	
==>$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto ) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1092	1296	
==>ader', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1092	1296	
==>ader', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11961	12053	
==>$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11961	12053	
==>$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4574	4684	
==>, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5059	5169	
==>, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->l <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1455	1572	
==>- An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a s <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1455	1572	
==>- An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1102	1197	
==>curity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insecu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1102	1197	
==>curity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insecu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2617	2761	
==>system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_d <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	606	727	
==>^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socke <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	573	694	
==>^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socke <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3054	3181	
==>{
    if (defined(my $r = $self->$try)) {
      $r->insert($self->{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7929	8080	
==>($P);
    return if $Result1 ~~ JSX::false;
    if $A.property_value.exists($P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint3 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8422	8544	
==>\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepString::unparse {
    my $n = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5300	5430	
==>t = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5300	5430	
==>t = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2045	2226	
==>ookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2045	2226	
==>ookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!c <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15193	15309	
==>i sub localtime(Num $when = time) returns Time::Local
        is primitive is builtin is safe {
    my $res;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10493	10598	
==>.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "conti <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10493	10598	
==>.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "conti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11659	11765	
==>llow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11717	11823	
==>llow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17202	17311	
==>_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and is().
#

sub fresh_perl_is {
    my($p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2052	2164	
==>path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2052	2164	
==>path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	563	692	
==>xit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	563	692	
==>xit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25074	25168	
==>upon request.

=head1 DIAGNOSTICS

=over 4

=item C<All tests successful.\nFiles=%d,  Tests=%d, <==
2	/Users/nnunley/pugs/util/package-osx.pl	5268	5365	
==>rl6::Bible::S29.3pm
        /usr/local/man/man3/Perl6::Doc.3
        /usr/local/man/man3/Perl6::Do <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	106	199	
==>ance or a junctive type?  hmm..
# type Perl::Type is Perl::Type::Regular | Perl::Type::Junctiv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5796	5903	
==>.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5796	5903	
==>.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9578	9722	
==>"$_[1] alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12672	12841	
==>"$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12666	12835	
==>"$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	828	927	
==>ta::Model::Document {

    # External packages used by the Rosetta::Model::Document class, that do e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	828	927	
==>ta::Model::Document {

    # External packages used by the Rosetta::Model::Document class, that do e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	447	552	
==>param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	447	552	
==>param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Com <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7461	7555	
==>_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8236	8338	
==>my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(",",map{recurse($_)}@$x).']';
    } elsif($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12091	12268	
==>d) }xgc;
          if ($v > 9 and $v > $S->{maxpar}) {
            &RxPOS -= length $v;
            $v = "";
          }
          elsif ($v > $S->{maxpar}) { $S->error(RPe_BGROU <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7547	7683	
==>es, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->licens <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7604	7740	
==>es, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->licens <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24777	24873	
==>tta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 5 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24777	24873	
==>tta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3362	3501	
==>perl5 {
    my $rx = qr(^($_[0]))s;
    no warnings qw( uninitialized );
    return sub {
        my $bool = substr( $_[0], $_[5] ) =~ m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10144	10295	
==>pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ par <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10144	10295	
==>pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ par <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3956	4060	
==>_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3956	4060	
==>_check $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# P <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9518	9693	
==>try ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1321	1476	
==>try ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2882	3039	
==>ail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2787	2940	
==>ail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3570	3681	
==>eturns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3570	3681	
==>eturns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	797	900	
==>TED
  my %total = $strap->total_results;

  # Altering the behavior of the strap  UNIMPLEMENTED
  my $ve <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19738	20002	
==>t;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40198	40462	
==>t;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4462	4564	
==>lass =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSI <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17435	17536	
==>.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is " <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17435	17536	
==>.next;

The iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20481	20580	
==>ad2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20481	20580	
==>ad2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1360	1455	
==>ents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1360	1455	
==>ents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8923	9084	
==>s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8923	9084	
==>s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @co <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2258	2353	
==>$name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2258	2353	
==>$name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1769	1879	
==>f = bless {}, $class;
    $self->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1839	1955	
==>SH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1839	1955	
==>SH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the valu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2817	2925	
==>= lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2817	2925	
==>= lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this fie <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19224	19313	
==>r,F1,F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16170	16271	
==>r a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16170	16271	
==>r a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1406	1532	
==>$rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1406	1532	
==>$rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1240	1375	
==>";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1240	1375	
==>";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	121	234	
==>Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	121	234	
==>Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13897	13995	
==>1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports ov <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13897	13995	
==>1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports ov <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2918	3035	
==>this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2918	3035	
==>this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	289	391	
==>(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	289	391	
==>(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:< <==
2	/Users/nnunley/pugs/util/addauthors.pl	886	1019	
==>$author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last) = $c =~ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2036	2127	
==>stfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postfix:* <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2108	2199	
==>stfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfix:* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2757	2903	
==>1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2652	2790	
==>1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3399	3546	
==>') and exit;

<< USAGE >>

 % p526.pl        # Convert from p5 code to p6 code

    -c            # Show conversion rules
    -e            # Conver <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7528	7653	
==>mpilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  sub emit {
    my($o)=@_;
    my $re = $o->visual();
    if($o->{'f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3000	3149	
==>p::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3011	3160	
==>p::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4933	5043	
==>ice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$type";

  if ($ref ne __PACKAGE__ and !$loaded{$cl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1657	1749	
==>sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_failed { $_[0]{'has_f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1438	1568	
==>l = {
        installation => { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'J <==
2	/Users/nnunley/pugs/util/importgraph.pl	1511	1616	
==>p {
    UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2087	2200	
==>od as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2087	2200	
==>od as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11441	11535	
==>too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11499	11593	
==>too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9745	9842	
==>\${\$hash->{'bool'}};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	910	1002	
==>uthenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Lengt <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	910	1002	
==>uthenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Lengt <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	503	651	
==>nciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	503	651	
==>nciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2430	2528	
==>d; when you're done, call the closure 
with no arguments to finish the ciphering and clear the ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2430	2528	
==>d; when you're done, call the closure 
with no arguments to finish the ciphering and clear the ciph <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5651	5815	
==>r.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &cont <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5651	5815	
==>r.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5093	5210	
==>}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5315	5432	
==>}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13426	13521	
==>This will remove all header fields.

=item $h.header_field_names

Returns the list of distinct n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13426	13521	
==>This will remove all header fields.

=item $h.header_field_names

Returns the list of distinct n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8577	8782	
==>STS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8577	8782	
==>STS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36845	36940	
==>ith contents of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{>)

Data: st <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9946	10098	
==>Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | P <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1161	1309	
==>Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14356	14478	
==>dd_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14356	14478	
==>dd_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	545	689	
==>f;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	545	689	
==>f;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	784	929	
==>ired',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	784	929	
==>ired',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8843	8938	
==>tire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

Thi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8843	8938	
==>tire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7844	7946	
==>('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item') <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7844	7946	
==>('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_element ('item') <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1271	1438	
==>q ':' or die "Expected PIL2 ':'";
                my $value = parse( <<>>, 'item', <<>>, @_ );
                [ $key, $value ];
            },
        item =>  sub (@_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2147	2255	
==>b catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the g <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2147	2255	
==>b catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the g <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1456	1658	
==>ader', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:pe <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1456	1658	
==>ader', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16570	16685	
==>, burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16570	16685	
==>, burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	15	122	
==>Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	15	122	
==>Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11686	11830	
==>er::ref;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $id <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3122	3226	
==>my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JS <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3668	3772	
==>my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JS <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5530	5628	
==>e right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return va <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9128	9226	
==>e right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return va <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15993	16229	
==>b {
                    my $e = shift;
                    $e->get('$c')
                      ->send('get_attributes')
                      ->apply(
                          block->new($e, sub {
                                my $e = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1383	1492	
==>ative <=> $right->id->to_native;
}

## methods

sub id    { (shift)->[0]        }
sub class { (shift)->[1]->fe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9670	9779	
==>$msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9670	9779	
==>$msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1465	1565	
==>nctional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code & <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1465	1565	
==>nctional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code & <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17377	17482	
==>:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17377	17482	
==>:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1764	1866	
==>"name: $name - eq: $equivalence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3967	4069	
==><Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appended to i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3967	4069	
==><Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appended to i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	536	648	
==>0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocant must be an opaque type";
    $se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1096	1202	
==>l::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1096	1202	
==>l::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11505	11630	
==>ers == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14982	15107	
==>ers == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4849	5044	
==>t-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4849	5044	
==>t-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2675	2788	
==>rse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2675	2788	
==>rse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19658	19754	
==>ges).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majori <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19658	19754	
==>ges).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majori <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	32	155	
==>er-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	32	155	
==>er-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	651	758	
==>('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	651	758	
==>('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1023	1125	
==>lock (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1023	1125	
==>lock (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7869	7970	
==>erl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a ver <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7869	7970	
==>erl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a ver <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11625	11753	
==>0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %cha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11619	11747	
==>0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %cha <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1341	1450	
==>*@indextests )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, Pair($k,@array[$k]) ) if $k ~~ any(@inde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1760	1859	
==>literal).



App is divided to Multiple, Single and Primitive dispatch.

Lit is divided to various i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1691	1787	
==>literal).

App is divided to Multiple, Single and Primitive dispatch.
Lit is divided to various i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	747	856	
==>t{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "circumfix:<" . $opt{name} . " " . $opt{name} . "> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1969	2082	
==>n value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1969	2082	
==>n value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.si <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	550	675	
==>alues {
		my $self = shift;
		croak "annotations are not eatable, flatten first";
	}

	sub type {
		my $self = shift;
		my $ty <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5977	6097	
==>ex_files { #TODO: When using two properties (A and B) to group the dists
                  #      tree A/A_val/B/B_val.gz <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	734	888	
==>a
# types for 1 to 1 correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtItem (Perl::Type)
#                  | CxtSlurpy (Perl::Typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7033	7144	
==>rn $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;

    if ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1923	2070	
==>} else {
            error("Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_mi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7276	7405	
==>ample

    # adds an 'before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7029	7155	
==>ample
    # adds an 'before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9568	9716	
==>');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9568	9716	
==>');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14821	14917	
==>ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy wa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14879	14975	
==>ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy wa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1053	1207	
==>NV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1053	1207	
==>NV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV< <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	991	1132	
==>s $value;

        method ^string_to_arguments ( $string ) {
            return $?CLASS.new( $string );
        }
        
        method acce <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4684	4797	
==>>
    | <FutureReservedWord>
    | <NullLiteral>
    | <BooleanLiteral>
}
rule Keyword {  # see 7.5.2
      <'brea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1646	1744	
==>s - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1646	1744	
==>s - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17212	17331	
==>g_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_inv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17212	17331	
==>g_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_inv <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8264	8368	
==>ion( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others -> $r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11741	11845	
==>ion( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others -> $r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1811	1930	
==>Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1811	1930	
==>Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17678	17800	
==>x};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  p <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1762	1864	
==>CRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a b <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1762	1864	
==>CRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6984	7207	
==>*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6984	7207	
==>*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5617	5725	
==>nes_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section inta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5617	5725	
==>nes_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section inta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	840	958	
==>:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	840	958	
==>:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else { <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4547	4652	
==>ed as hash keys to code refs. The only function this module
exports is the constructor. 

=over 4

=item B <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4547	4652	
==>ed as hash keys to code refs. The only function this module
exports is the constructor. 

=over 4

=item B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17158	17297	
==>_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17158	17297	
==>_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8481	8613	
==>8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8481	8613	
==>8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	463	559	
==>Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' exe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18591	18682	
==>,Ex),
  N1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5326	5486	
==>> $<name>, fixity => ..., precedence => ... );
            return ... ;
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3271	3363	
==>reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3271	3363	
==>reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1404	1513	
==>"Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1544	1653	
==>"Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5024	5144	
==>ile lives in (ignores errors)
            # and touch the index file.
            $index->dir->mkpath, $index->openw->clo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2149	2250	
==>:Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:print:]/ )
  {
    $matchObj->po <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15688	15795	
==>->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
    local $m0->{$name} = [@{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7622	7834	
==>it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7634	7846	
==>it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12328	12433	
==>mment block and data section, each
# into a single line containing a digest of the original content.
#
# T <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12328	12433	
==>mment block and data section, each
# into a single line containing a digest of the original content.
#
# T <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7045	7172	
==>sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Contai <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7045	7172	
==>sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Contai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2095	2232	
==>$class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2235	2372	
==>$class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1436	1541	
==>s well as the compile-time-bound values for them.

It includes the parameters as well as anything declared <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1375	1479	
==>s well as the compile-time-bound values for them.
It includes the parameters as well as anything declared <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14714	14831	
==>s '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14714	14831	
==>s '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Loc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22137	22233	
==>ck> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gai <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22137	22233	
==>ck> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gai <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3568	3705	
==>t unless exists &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($method);
            $s <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2019	2112	
==>, like Numerical Recipies.)  In particular, it suffers from
convergence problems for some func <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3363	3452	
==>\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3363	3452	
==>\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3379	3521	
==>gs, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3379	3521	
==>gs, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8055	8197	
==>'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8067	8209	
==>'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19598	19710	
==>api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm(dot,         [C| <==
2	/Users/nnunley/pugs/util/addauthors.pl	252	351	
==>(sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2145	2247	
==>ead1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2145	2247	
==>ead1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=he <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6829	6931	
==>nnectorPunctuation {  # see 7.6
      # any character in the Unicode category "Connector punctuation (P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10425	10526	
==>Perl6::Param->new(@$_)}('.$code_param_info.')]';
    my $namestr = $stringify->($name);
    my $code_a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	546	643	
==>? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	546	643	
==>? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normaliz <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12066	12246	
==>tatus) {
                $failedtests{$tfile} = _dubious_return(\%test, \%tot, 
                                                       $estatus, $wstatus);
                $failedte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6792	6901	
==>$pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshift(@mess, "#      got '$got'\n",
		"# expecte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6283	6394	
==>y.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6283	6394	
==>y.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	257	375	
==>alize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	257	375	
==>alize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3045	3211	
==>ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $lengt <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3045	3211	
==>ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $lengt <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20462	20618	
==>de("sub"),
									param => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mu <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	623	731	
==>exp_hook_on();
    }

    no strict 'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::$ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16157	16258	
==>or_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains potential unsafe cha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9095	9212	
==>lternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for l <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2130	2247	
==>lternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for l <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16256	16345	
==>enDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

In <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16314	16403	
==>enDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

In <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2450	2574	
==>turn @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $se <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4038	4162	
==>turn @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18470	18569	
==>etta should be thread safe and/or saavy
in the future, but for now it officially is not and you shou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18470	18569	
==>etta should be thread safe and/or saavy
in the future, but for now it officially is not and you shou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5980	6095	
==>rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'esca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6173	6288	
==>rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'esca <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7168	7281	
==>todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7226	7339	
==>todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($to <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	104	233	
==>mbols {
    (
		map { stub($_, '$x', '$y') }
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1745	1870	
==>abc' =~ /[a|b](b)/o for 1..2000},
});

}

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	276	370	
==>_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	276	370	
==>_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <A <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2532	2628	
==>that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optional paramete <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9746	9843	
==>ection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9746	9843	
==>ection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set:: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6822	6917	
==>e "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6822	6917	
==>e "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_ch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1418	1532	
==>eue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1418	1532	
==>eue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10449	10571	
==>(!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10449	10571	
==>(!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	828	937	
==>s = shift; $_[0]; return \$s, \\\@match; }";
}

{
my $r = capture( 'cap', constant('a') );
print "Perl5 s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3979	4118	
==>soc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5203	5342	
==>soc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7210	7304	
==>rms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1035	1129	
==>rms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2932	3086	
==>le>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<Junction>),
                        Tree.new(:node<Scalar::Con <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2945	3066	
==>tersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2945	3066	
==>tersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38242	38340	
==>its positional parameter $text (a string), and a Message Variables hash ref
in its positional param <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38242	38340	
==>its positional parameter $text (a string), and a Message Variables hash ref
in its positional param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	234	377	
==>method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	234	377	
==>method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1635	1734	
==>y Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it and/or mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1635	1734	
==>y Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it and/or mo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17380	17490	
==>th the first param and the second param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $ha <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	822	923	
==>ts (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	822	923	
==>ts (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set::In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35486	35584	
==>ember Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35486	35584	
==>ember Names elements in this object as an array
ref.

=item C<as_debug_string()>

This method retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17031	17177	
==>{
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13452	13598	
==>{
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16275	16389	
==>::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3700	3804	
==>class $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1088	1189	
==>del::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1088	1189	
==>del::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4354	4527	
==>g
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4354	4527	
==>g
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1896	2058	
==>rom = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1884	2046	
==>rom = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    st <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	124	236	
==>arent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counte <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	124	236	
==>arent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counte <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6834	6951	
==>ent Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6834	6951	
==>ent Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15740	15839	
==>::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15740	15839	
==>::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

T <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1520	1631	
==>ement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1520	1631	
==>ement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6606	6755	
==>C 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6606	6755	
==>C 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*/ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2969	3062	
==>scriptions<$subscrption.name>.remove($subscription);
            $subscription.subscriber.remo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35568	35657	
==>med C<where> and C<grep>.

=item C<union (Relation::Example $other!) returns Relation::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16830	16931	
==>ional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16830	16931	
==>ional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12965	13104	
==>en ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12965	13104	
==>en ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack(" <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	842	951	
==>) = split('=',$_);
        %Session{$variable} = url_decode($value) if ($variable ne '');
    } 
}

sub Sessio <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10283	10386	
==>ew("bool"),
	),
	# list a -> a
	head => do {
		my $a = type::variable::free->new;
		type::operator::arro <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3410	3507	
==>sed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argumen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4092	4189	
==>sed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argumen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18203	18302	
==>ltiple DBMS
objects want to use the same external resources, such as a repository file
on disk, it i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18203	18302	
==>ltiple DBMS
objects want to use the same external resources, such as a repository file
on disk, it i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2661	2820	
==>his ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<token>},
                map { "$_" } @{$<ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14148	14252	
==>eason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  met <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14148	14252	
==>eason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  met <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	340	492	
==>p '$Ext\$'] ) {
        chomp $archive;
        my $file = basename($archive);

        print "Copying '$archive'\n";
    
        ### get the metadata o <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2703	2799	
==>_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2703	2799	
==>_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5644	5766	
==>s"     => \$terminfo,
  help             => \&usage,
) or usage();
check_for_evil_chars($initrd_img, $initrd_gz, $initrd_mn <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2346	2452	
==>rw!Array: Int)\
multi method Array::exists (@array : Int *@indices --> Bool )
{
    my @ret;
    for @indic <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1088	1222	
==>n =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	967	1101	
==>n =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4521	4646	
==>erl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4521	4646	
==>erl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4170	4270	
==>on, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the Param <==
2	/Users/nnunley/pugs/util/addauthors.pl	141	234	
==>($r, $comitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comitters{$comitter <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1606	1739	
==>turns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is h <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1606	1739	
==>turns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is h <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1014	1176	
==>shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	893	1055	
==>shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24598	24698	
==>n $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21019	21119	
==>n $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13242	13380	
==>_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13242	13380	
==>_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28435	28562	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28714	28841	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17178	17276	
==>, if any other package or application says that it uses
Locale::KeyedText, that is a terse way of s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17178	17276	
==>, if any other package or application says that it uses
Locale::KeyedText, that is a terse way of s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5931	6047	
==>inimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5931	6047	
==>inimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7483	7583	
==>$path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7483	7583	
==>$path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @bas <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9748	9845	
==>tion( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9748	9845	
==>tion( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::In <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16258	16349	
==>Duncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16316	16407	
==>Duncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2274	2368	
==>$self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.siz <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2274	2368	
==>$self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.siz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	234	342	
==>%TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	234	342	
==>%TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	813	921	
==>pans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	813	921	
==>pans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False un <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1835	1947	
==>ON) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_admin;

    # m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4684	4808	
==>-----------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4684	4808	
==>-----------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3627	3740	
==>Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3627	3740	
==>Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3007	3156	
==>r = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3007	3156	
==>r = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16441	16562	
==>y to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16441	16562	
==>y to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3597	3701	
==>"Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	110	208	
==>-Rule/lib",
    "$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Grammar::Perl6;
use st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	451	571	
==>pture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1177	1294	
==>pture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n" <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	819	924	
==>:Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2654	2748	
==>:Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}::$sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	601	698	
==>lan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	647	742	
==>lan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<' <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	253	380	
==>V<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	253	380	
==>V<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=he <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	487	650	
==>nt => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.pare <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	487	650	
==>nt => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.pare <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11175	11305	
==>y => 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23403	23494	
==>now the others' internals.  Implementing classes can
optionally override these operators wit <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	630	748	
==>.  Useful short-term. Eventually not needed,
# once macro rxmodinternal:<x> etc works.

#rule name { <?Perl6.name> }
#r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11716	11818	
==>$header.header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11716	11818	
==>$header.header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	955	1055	
==>ans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::Fal <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	955	1055	
==>ans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::Fal <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7222	7337	
==>or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        $depends = ', Win32 -any <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15302	15403	
==>ttempting to use a string at a level higher it can support is handled
without warning. The highest sup <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16659	16777	
==>ive is safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub truncate($n) is primitive is safe {
        int <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17541	17647	
==>un => ide("pair"),
	param => val(10),
);

# a fully constructed pair, with a = int and b = str
my $pair = c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3278	3546	
==>l

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSIO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3278	3546	
==>l

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSIO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17565	17665	
==>ce.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machine; it has a s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17565	17665	
==>ce.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machine; it has a s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1622	1746	
==>y;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1622	1746	
==>y;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10421	10559	
==>pth)) {
      # this is as deep as it will look
    }
  }

If passed any other argument, it will warn that it is ignoring it.

The iterator <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3146	3267	
==>ted,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3146	3267	
==>ted,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16242	16381	
==>$heading =~ s/^\s+|\s+$//g;;
            $heading =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $head <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	658	752	
==>signature->isa('closure::signature')))
        || confess "signature must be an closure::params <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8134	8230	
==><Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8134	8230	
==><Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7135	7243	
==>y::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Exampl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7135	7243	
==>y::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Exampl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8149	8272	
==>y one wants to have the 
# depth available for various reasons
# of convience. Sometimes that depth 
# field is not always c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8149	8272	
==>y one wants to have the 
# depth available for various reasons
# of convience. Sometimes that depth 
# field is not always c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38886	38978	
==>e invocant Relation::Example and that match any tuples of C<$other> along
their common attrib <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8002	8101	
==>he 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8002	8101	
==>he 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6999	7123	
==>atch';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6999	7123	
==>atch';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	103	218	
==>-----
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## - <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	103	218	
==>-----
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## - <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6920	7029	
==>.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6978	7087	
==>.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4141	4260	
==>1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4141	4260	
==>1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8918	9068	
==>1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8918	9068	
==>1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22723	22818	
==>s contains zero or more Relation attribute names that
define the heading of this Relation.  Each <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27275	27370	
==>s contains zero or more Relation attribute names that
define the heading of this Relation.  Each <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21941	22036	
==>mparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21941	22036	
==>mparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33718	33820	
==>ally corresponds to a
language like English or French.  The order of these items corresponds to
an indi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33718	33820	
==>ally corresponds to a
language like English or French.  The order of these items corresponds to
an indi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2413	2523	
==>tr {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2413	2523	
==>tr {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) re <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9585	9669	
==>(R).
p5_charset_item(setrange(A,B)) --> p5_charset_item(char(A)), "-", p5_charset_ran <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1733	1824	
==>inary: level($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { join(" " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5170	5277	
==>same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5170	5277	
==>same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6329	6446	
==>esis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6329	6446	
==>esis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8299	8463	
==>( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8299	8463	
==>( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3237	3445	
==>> $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3110	3311	
==>> $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3788	3893	
==>Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3788	3893	
==>Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21464	21567	
==>HT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21464	21567	
==>HT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1934	2040	
==>at informative but utterly confusing synopsis, you should
be left with nothing but questions about what thi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1934	2040	
==>at informative but utterly confusing synopsis, you should
be left with nothing but questions about what thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11417	11560	
==>++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11417	11560	
==>++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1584	1707	
==>.number'      =>      $params{'$.number'},
            ) if $params{'$.passed'};

            return $::TestBuilder->FETCH(' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17979	18082	
==>f)
.end

.namespace [ "PGE::Exp::Literal" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32081	32194	
==>to language A, looking for a match to said error
message.  If it finds one, then that is displayed; if not, it the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32081	32194	
==>to language A, looking for a match to said error
message.  If it finds one, then that is displayed; if not, it the <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	967	1116	
==>shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetchElem' => sub { # $idx -> $container # autovivific <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9384	9530	
==>{}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9384	9530	
==>{}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6776	6917	
==>e '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6776	6917	
==>e '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12658	12768	
==>Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12658	12768	
==>Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12641	12738	
==>oding and decoding of strings with HTML
character entities.  The module provides the following fun <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12641	12738	
==>oding and decoding of strings with HTML
character entities.  The module provides the following fun <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19419	19515	
==>ed as
standard data manipulation statements but that the target relation
variables are system cat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19419	19515	
==>ed as
standard data manipulation statements but that the target relation
variables are system cat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20645	20748	
==>serNoIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # se <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7650	7746	
==>> Int|(List of Pair) )
 multi Array::values (@array ; MatchTest *@indextests --> Int|List )

Iter <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4493	4623	
==>0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $x > 0 {
        $x_round = round_ceil <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1167	1268	
==>num;
    has $.DontDelete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8.6 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47048	47173	
==>b {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace')));
                  })) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6809	6919	
==>eSafe::Type::Placeholder");
			if (!$x->isa("Blondie::TypeSafe::Type::Placeholder")) {
				return $self->types_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1855	1952	
==>);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1855	1952	
==>);
my $source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4194	4327	
==>plement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4194	4327	
==>plement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2483	2639	
==>" }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2483	2639	
==>" }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20369	20470	
==>ctory entries: while the entry only has one subdirectory and no files, collapse
    for my $subdir (ke <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3379	3485	
==>just a date, it does not handle time zones or leap
seconds.

All methods take named parameters unless other <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3379	3485	
==>just a date, it does not handle time zones or leap
seconds.

All methods take named parameters unless other <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7961	8163	
==>d_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8425	8627	
==>d_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3005	3119	
==>ch, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3005	3119	
==>ch, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($mat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5024	5177	
==>ODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method p <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5024	5177	
==>ODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2003	2172	
==>> {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2250	2419	
==>> {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6651	6749	
==>uld never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6651	6749	
==>uld never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_load <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10207	10293	
==>ed($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
pr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10942	11028	
==>ed($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18231	18348	
==>mplex algorithm that
Module::Compile uses.

First, the source module is preprocessed to hide heredocs, since the conte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18231	18348	
==>mplex algorithm that
Module::Compile uses.

First, the source module is preprocessed to hide heredocs, since the conte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	361	465	
==>eturns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebyt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	361	465	
==>eturns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebyt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7245	7396	
==>qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7245	7396	
==>qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call metho <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2265	2375	
==>ed upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2265	2375	
==>ed upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6215	6323	
==>ting is still pretty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6215	6323	
==>ting is still pretty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=he <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	131	226	
==>ores a finite string and a position
within that string, and it provides the fundamental operatio <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	131	226	
==>ores a finite string and a position
within that string, and it provides the fundamental operatio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24111	24206	
==>m code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText do <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24111	24206	
==>m code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText do <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16261	16398	
==>AMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16261	16398	
==>AMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1765	1870	
==>blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKE <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1765	1870	
==>blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKE <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1356	1459	
==>gs/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7307	7417	
==>he code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7307	7417	
==>he code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7745	7849	
==>urns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7745	7849	
==>urns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's i <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	904	1033	
==>fer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	904	1033	
==>fer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Sin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1202	1305	
==>d modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1202	1305	
==>d modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	590	722	
==>Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	590	722	
==>Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7250	7351	
==>1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7250	7351	
==>1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2571	2701	
==>[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholde <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2571	2701	
==>[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholde <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11873	11986	
==>mand) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runI <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12276	12389	
==>mand) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runI <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	801	924	
==>ame => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	801	924	
==>ame => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2748	2904	
==>,
                description => _('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? 'ok ' : 'not o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6797	6885	
==>Blondie::TypeSafe::Type::Placeholder");
			if (!$x->isa("Blondie::TypeSafe::Type::Placeho <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	203	311	
==>n;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAM <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	203	311	
==>n;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAM <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8644	8745	
==>is where this method comes into play
# it will recurse down the tree and fix the
# depth fields approp <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8644	8745	
==>is where this method comes into play
# it will recurse down the tree and fix the
# depth fields approp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2258	2405	
==>tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2258	2405	
==>tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	39020	39121	
==>redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43834	43935	
==>redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	718	859	
==>e functionality will not need it. Althoug this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to f <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	718	859	
==>e functionality will not need it. Althoug this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19031	19137	
==>I if it is present, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if usin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19031	19137	
==>I if it is present, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if usin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32378	32559	
==>ol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33033	33214	
==>ol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_d <==
2	/Users/nnunley/pugs/util/package-osx.pl	4921	5022	
==>::Bible::S12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/local/man/man3/Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17212	17314	
==>plements a virtual machine that is embedded in your Perl application and
in which the Rosetta D code ru <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17212	17314	
==>plements a virtual machine that is embedded in your Perl application and
in which the Rosetta D code ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2491	2589	
==>es to Perl 5 code.

=item * L<Pugs::Emitter::Rule::Perl5::Ratchet> converts parsed :ratchet Rules t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10929	11058	
==>e => $inst_pkg );
    
    ### move this all to Installation.pm
    $self->write or return;
    
    ### unisntall metadata
    sy <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1946	2077	
==>}
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1946	2077	
==>}
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2515	2663	
==>hift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "}\\texttt{";
		next;
	    }
	    
	    # normal comment
	    print '\syncommen <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	334	428	
==>equire File::Find;
    File::Find::find(sub { push @modules, $File::Find::name if /\.pm/i }, 'l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12748	12881	
==>ath = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12748	12881	
==>ath = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backw <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4402	4514	
==>time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4402	4514	
==>time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4712	4843	
==>\$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4700	4831	
==>\$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variabl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6753	6886	
==>_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6753	6886	
==>_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3358	3478	
==>e the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      unti <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3358	3478	
==>e the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      unti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6143	6256	
==>ead \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs]e|licensing|copyright|le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	58	153	
==>e warnings;
use base qw(Pugs::Grammar::BaseCategory);

# TODO - implement the "magic hash" dispa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	699	801	
==>>{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	699	801	
==>>{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7897	8007	
==>l {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7628	7733	
==>l {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	941	1063	
==>of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each k <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4419	4541	
==>of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6984	7141	
==>/$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6972	7129	
==>/$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2579	2711	
==>.
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self.get_results())[-1];
} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2579	2711	
==>.
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self.get_results())[-1];
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	504	630	
==>Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	504	630	
==>Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51404	51595	
==>attr(symbol->new('$:version'))
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:autho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27618	27729	
==>n::Example has zero tuples.  If a Relation::Example has zero attributes, then
C<$body> may be an Set with a sing <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10535	10649	
==>{
      fail 'No plan set!' unless $.testplan;
  
      push $.results, $test;
      $.output.write( $test.report() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1792	1908	
==>l5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1932	2048	
==>l5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8019	8140	
==>imalLiteral>
    | <HexIntegerLiteral>
}
rule DecimalLiteral {  # see 7.8.3
      <DecimalIntegerLiteral> <'.'> <DecimalDi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2693	2803	
==>)");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
}
method interse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2693	2803	
==>)");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
}
method interse <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2714	2826	
==>$type->[0] while ref $type and @$type == 1;
	$type;
}

sub has_symbol {
	my $self = shift;
	my $node = shift;

	e <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13610	13695	
==>git(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I,[42,120,D0,D1,D2,D3])}.
hexdigi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3280	3378	
==>er 4

=item *

Resolving compile time resolvable symbols into values

=item *

Replacing all values <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7878	8009	
==>me' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7878	8009	
==>me' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'pers <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	317	425	
==>my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11414	11525	
==>s()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11414	11525	
==>s()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10941	11037	
==>h_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<docu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10941	11037	
==>h_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<docu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	434	546	
==>y $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	434	546	
==>y $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25253	25344	
==>org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25253	25344	
==>org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	227	341	
==>Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	211	321	
==>Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6147	6248	
==>d\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1783	1875	
==>mpiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3159	3251	
==>mpiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6579	6698	
==>1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6579	6698	
==>1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36364	36484	
==>ber found in a string
  # that contains 'foo' somewhere init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6959	7066	
==>versions. 



The rule() constructor provides an interface between the 

low-level functional operators, and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6722	6826	
==>versions. 

The rule() constructor provides an interface between the 
low-level functional operators, and <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11251	11353	
==>e weren't compiled into the code #print "Compiled AST: " . Dumper->reduce($c);

package Reducer;

sub r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1118	1241	
==>= ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1118	1241	
==>= ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6822	6931	
==>/class method');

$Object->add_singleton_method('another_singleton_test_on_object' => sub { 
   '&Object::anot <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1367	1461	
==>method member($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1367	1461	
==>method member($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1924	2032	
==>up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1924	2032	
==>up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2613	2732	
==>at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can b <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2613	2732	
==>at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1636	1763	
==>version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->packa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4839	4966	
==>version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->packa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5163	5254	
==>odified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5163	5254	
==>odified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6697	6842	
==>tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6697	6842	
==>tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3367	3477	
==>itialization vector should be hashed with the 
key, not merely appended to it; appending can create precisely t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3367	3477	
==>itialization vector should be hashed with the 
key, not merely appended to it; appending can create precisely t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1299	1479	
==>ver\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<st <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1299	1479	
==>ver\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<st <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6004	6104	
==>CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actually rou <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6004	6104	
==>CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actually rou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2525	2643	
==>ix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2665	2783	
==>ix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #pri <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	739	923	
==>ts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	739	923	
==>ts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4571	4716	
==>=> File::Spec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c-indentatio <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1234	1369	
==>]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the di <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1234	1369	
==>]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the di <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27384	27470	
==>TCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_on(pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40091	40324	
==>),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19640	19864	
==>),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1717	1855	
==>y $rule_name = "r$_";
        $rule_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	971	1141	
==>";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab ruleop::concat(\n" . 
               ( join '', @s ) . 
               "$tab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	659	837	
==>5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	659	837	
==>5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4282	4411	
==>complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4282	4411	
==>complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3453	3588	
==>} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A- <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3453	3588	
==>} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27795	27900	
==>first [1]");
is(t($length_and_first_gen), "((int × int) × (str × int))", ":t (length_and_first ['foo'], <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3106	3208	
==>ecurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3106	3208	
==>ecurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17969	18071	
==>even if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17969	18071	
==>even if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects will n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1700	1848	
==>= gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1700	1848	
==>= gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4302	4431	
==>6, 7);
is($p3d->class, \&Point3D, '... go the right class name for Point3D');
is($p3d->prototype->class, \&Point, '... go the righ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25359	25454	
==>ation $other!) returns Bool>

This method returns the complement of C<equal> with the same argum <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29911	30006	
==>ation $other!) returns Bool>

This method returns the complement of C<equal> with the same argum <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1927	2031	
==>ipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1927	2031	
==>ipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20855	20988	
==>ags => $rx->{flags}[-1],
      family => 'ref',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2052	2154	
==>) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2052	2154	
==>) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6631	6738	
==>r>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6631	6738	
==>r>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10625	10752	
==>[-1] = [ @$tree ];
      push @{ $self->{data} }, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5369	5510	
==>{
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5369	5510	
==>{
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	823	976	
==>e < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	823	976	
==>e < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7853	7953	
==>debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($kill <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7853	7953	
==>debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($kill <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27238	27353	
==>{ -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    $self->{data} = $tree-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	46	137	
==>::Type::Equivalence;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

pack <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4009	4096	
==>ee L<http://rt.cpan.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Team <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2343	2472	
==>' . $op->{assoc} if $rule eq 'infix';
        my $template = $rule_templates{$rule};
        if ( $op->{rule} ) {
            $tem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	191	302	
==>re 'p5hacks.pl';

my $namespace = 'Pugs::Grammar::Rule::';

{
  package grammar1;

  use Data::Dumper;
  no warn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	793	893	
==>kg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	793	893	
==>kg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	502	651	
==>> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	502	651	
==>> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16808	16924	
==>rsion=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used as a modifier to the
med <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16808	16924	
==>rsion=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used as a modifier to the
med <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4381	4481	
==>hether the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Return t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4381	4481	
==>hether the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Return t <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1064	1173	
==>aker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1955	2064	
==>aker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	364	487	
==>d $file and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pmc = $file.'c';
        my $pmc_is_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	271	402	
==>die usage() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11358	11460	
==>lf: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11358	11460	
==>lf: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16014	16193	
==>"\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16293	16472	
==>"\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27644	27742	
==><export_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27644	27742	
==><export_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, wh <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6934	7036	
==>ifier { \w+ }
token literal_int { \d+ }

rule simple_call { <identifier><ws><expr>; }
macro statement_c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	142	268	
==>( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	142	268	
==>( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3926	4047	
==>me, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3926	4047	
==>me, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handle <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6985	7112	
==>ifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning "Modifier :$k is not (yet?) su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	560	677	
==>{  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	560	677	
==>{  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4114	4258	
==>{
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1051	1167	
==>>makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    m <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3930	4049	
==>vents::Event::Named {
    has $.name;

    method new ($.name, *@args) {
        super *@args;
    }
}

class Class::Eve <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1243	1342	
==>es which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this wil <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1243	1342	
==>es which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this wil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6236	6357	
==>= split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7234	7355	
==>= split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1543	1697	
==>es.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attributes($self:) returns Set {
    set(
        set( $self.all_supe <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3258	3379	
==>!;
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6273	6390	
==>/= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6273	6390	
==>/= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1647	1751	
==>$1/g;
    s/\$#(${re_symbol})/\@$1.last/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	497	594	
==>e tests", and thus is far from being a
# complete p5 compatible regex engine, that establishes fea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1357	1458	
==>b *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1357	1458	
==>b *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23885	23978	
==>guage specific details like
encodings or plurality.

My understanding of alternate solutions l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23885	23978	
==>guage specific details like
encodings or plurality.

My understanding of alternate solutions l <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	880	989	
==>ions($event) ==> .mk_notifications)».dispatch;
    }
    
    method notify (*@args) {
        .notify(Class: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2057	2206	
==>256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2057	2206	
==>256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @l <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1068	1164	
==>y $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_descript <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1068	1164	
==>y $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_descript <==
2	/Users/nnunley/pugs/util/func_refact.pl	1134	1260	
==>doUnion: initial set size is " . scalar(keys %ccset) . "\n";

        print "\nFinding candidates.\n\n";

        candidates(\% <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	267	371	
==>Cxt $paramContext;
has Any $paramDefault;

# deriving (Show, Eq, Ord)
method Show {
    ...
}

method &in <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	37	125	
==>kend::C::Emitter;
use base qw/Blondie::Emitter Blondie::Reducer::DynamicScoping/;

use st <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	50	165	
==>does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs so <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	50	165	
==>does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs so <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4645	4762	
==>- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differenc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4645	4762	
==>- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differenc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23965	24104	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24244	24383	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9510	9629	
==>[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9498	9617	
==>[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7581	7700	
==>.($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7581	7700	
==>.($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33861	33959	
==>es such that each says what
language they prefer to communicate in, and what their backup choices a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33861	33959	
==>es such that each says what
language they prefer to communicate in, and what their backup choices a <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16595	16708	
==>>{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot->{tests} test $blurb could be run, ".
            "a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28612	28700	
==>ne RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	230	336	
==>= Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	230	336	
==>= Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	961	1078	
==>rint 'rule ast: ', do{use Data::Dumper; Dumper( $self->{ast}() )};

    eval {
        $self->{perl5} = Pugs::Emitt <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14852	14981	
==>(.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pulverize the line down int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8508	8601	
==>ment ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=hea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8508	8601	
==>ment ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=hea <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	0	118	
==>module CGI::Util-0.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	0	118	
==>module CGI::Util-0.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2838	2968	
==>ex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2838	2968	
==>ex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde" <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1551	1660	
==>$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($ye <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1551	1660	
==>$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($ye <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1708	1833	
==>n of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Anot <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1708	1833	
==>n of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Anot <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	327	580	
==>EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version appli <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	327	580	
==>EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version appli <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6333	6493	
==>create the DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6333	6493	
==>create the DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33825	33920	
==>al user's (or user role's) preferences such that each says what
language they prefer to communic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33825	33920	
==>al user's (or user role's) preferences such that each says what
language they prefer to communic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	197	306	
==>sed by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	197	306	
==>sed by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Roset <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14961	15057	
==>f its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14961	15057	
==>f its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - Th <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4487	4694	
==>{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_splice' => sub { # $idx_from -> $idx_to -> @replace_list -> @list
                my $self = shift;
                my $idx_fro <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1640	1782	
==>nicode)
    num         native floating point
    ref         native pointer 
    bool        native boolean
    Bit         Perl single bit (a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1469	1628	
==>>{bareword};
        
    return $n->{code} 
        if exists $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22372	22471	
==>e) objects.

=item stack

Initially an array reference, used to store the tree as a new scope is
ent <==
2	/Users/nnunley/pugs/util/grokprims.pl	93	214	
==>c = (
    spre  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5190	5286	
==>r> <p6ws>? \;
		{ return { _open => $(), } }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16401	16497	
==>2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16459	16555	
==>2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1716	1834	
==>rgument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1716	1834	
==>rgument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_AR <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2702	2816	
==>lude,
# which is assumed to be the first module in the list.
sub gen_source {
    my($target) = @_;
    open my $of <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20518	20622	
==>$test, $tot, $estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$t <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2452	2548	
==>turns Int { int(($.month+2)/3) }
method month_0 returns Int { $.month - 1 }
method yy returns Int <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14328	14437	
==>n values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.0000 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14328	14437	
==>n values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.0000 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15946	16114	
==>{
        my $suf    = /\.(\w+)$/ ? $1 : '';
        my $len    = length;
        my $suflen = length $suf;
        $maxlen    = $len    if $len    > $maxlen;
        $m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7043	7146	
==>nification of the various types depends on their data...
# this is why this code is so big.

# in a lang <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2237	2341	
==>turns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start }
m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2237	2341	
==>turns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start }
m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24855	24959	
==>lation's body.

=item C<size () returns Int>

This method returns a count of this Relation's member tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29407	29511	
==>lation's body.

=item C<size () returns Int>

This method returns a count of this Relation's member tuple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8284	8381	
==>sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2109	2206	
==>sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14898	15020	
==>b _is_test {
    my($self, $line, $test) = @_;

    # We pulverize the line down into pieces in three parts.
    if( my($no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22005	22106	
==>r versions of Relation::Example::Heading
and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15176	15270	
==>ird
parties) implement.  This interface is rigorously defined, such that there
should be no amb <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15176	15270	
==>ird
parties) implement.  This interface is rigorously defined, such that there
should be no amb <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1056	1154	
==>d side must be a core type";    
    return num->new($left->to_native + $right->to_num->to_native() <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27213	27342	
==>{
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message obje <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27213	27342	
==>{
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message obje <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	327	512	
==>leop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	327	512	
==>leop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           , <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	567	691	
==>$is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	567	691	
==>$is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3547	3653	
==>t lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3420	3521	
==>t lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Le <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9231	9368	
==>my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9231	9368	
==>my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.del <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31163	31264	
==>that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::Foo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31163	31264	
==>that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::Foo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2180	2302	
==>ects
    Routine     Base class for all nameable executable objects
    Sub         Perl subroutine
    Method      Perl me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	169	263	
==>ecedence/lib",
;

use Pugs::Compiler::Perl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use stri <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7037	7218	
==>{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7037	7218	
==>{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11487	11622	
==>n {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14964	15099	
==>n {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3085	3208	
==>et.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3085	3208	
==>et.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21689	21780	
==>ndence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To fu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21689	21780	
==>ndence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1827	1973	
==>) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1827	1973	
==>) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    wh <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15308	15422	
==>_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    F <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	631	739	
==>less $self, 'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2036	2161	
==>{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2024	2149	
==>{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@mat <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2141	2259	
==>erl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2141	2259	
==>erl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	739	859	
==>ree $child) returns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.hei <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	739	859	
==>ree $child) returns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.hei <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2843	2941	
==>: A precompiled (but most of the time outdated) image is available at
      http://m19s28.vlinux.de <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5832	6161	
==>$token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            defa <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5832	6161	
==>$token);
                            # and start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            defa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4513	4645	
==>"middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4513	4645	
==>"middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	20	141	
==>g von let
my $prim = 17;

sub is_prim { 
	... # teste ob $prim prim ist
}

sub search_prim_within( $count ) {
	my @numbers <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3497	3604	
==>urn $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('toStrin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22428	22530	
==>used to store the tree as a new scope is
entered and then exited.  The general concept is:

  if (into_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15883	15979	
==>t

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distributio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15941	16037	
==>t

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distributio <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1408	1525	
==>ge MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" ter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1408	1525	
==>ge MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" ter <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	333	458	
==>( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP su <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	369	491	
==>($scheme eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP su <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1898	2020	
==>{
	    my $end = $1;
	    print '\synstr{';
	    while (scalar @file) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3743	3939	
==>2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3743	3939	
==>2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5048	5157	
==>x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previou <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5048	5157	
==>x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previou <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14390	14511	
==>sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1870	1991	
==>sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5113	5223	
==>nt} = scalar @tests;
    @tests;
}

sub get_revision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16359	16461	
==>rgument is not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16359	16461	
==>rgument is not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new N <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5035	5132	
==>hift;
		my $type = shift;
		while (Scalar::Util::blessed($type) and !$type->isa("Blondie::TypeSafe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1200	1351	
==>od ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1200	1351	
==>od ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3357	3546	
==>args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3497	3686	
==>args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XX <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18657	18758	
==>e it look sufficiently
like what the core expects to avoid problems.  While simultaneously
trying to a <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2947	3048	
==>e it look sufficiently
like what the core expects to avoid problems.  While simultaneously
trying to a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20118	20269	
==>) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16539	16690	
==>) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3433	3543	
==>ort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3433	3543	
==>ort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method head <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4649	4808	
==>ier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4649	4808	
==>ier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6586	6701	
==>ression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYParse;
    #print Dumper $out;
    return <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17326	17428	
==>cate large data
which Perl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2272	2377	
==>he first few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2272	2377	
==>he first few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3510	3719	
==>, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3510	3719	
==>, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compil <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	717	858	
==>my $mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21868	21978	
==>r($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	436	546	
==>e (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $strin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	436	546	
==>e (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $strin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17952	18049	
==>ENTED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up you <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17952	18049	
==>ENTED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up you <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28590	28756	
==>ule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28869	29035	
==>ule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	460	587	
==>" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	460	587	
==>" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1533	1703	
==>d} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1533	1703	
==>d} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLA <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3150	3257	
==>self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3150	3257	
==>self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12270	12368	
==>h&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12270	12368	
==>h&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2072	2172	
==>urn { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2072	2172	
==>urn { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6799	6927	
==>s now does Role');
ok($Class->has_method('resolve'), '... we now have the resolve method');

ok($Role->has_method('does'), '... w <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	75	189	
==>Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<" <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	31	143	
==>Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<" <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	464	580	
==>pe_tree = Tree.new().add_children(
        Tree.new(:node<Any>).add_children(
            Tree.new(:node<Void>).add_c <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7791	7900	
==>p $expression, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
# Prim.hs has a differen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19947	20043	
==>or Mac OS X programs, including
the operating system itself, to have the user language data in se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19947	20043	
==>or Mac OS X programs, including
the operating system itself, to have the user language data in se <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1486	1582	
==>TDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Available options:
  -- <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2081	2176	
==>_RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File::Spec->de <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	960	1070	
==>turn $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	960	1070	
==>turn $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5167	5298	
==>t generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        unive <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5167	5298	
==>t generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        unive <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9458	9581	
==>t
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-f <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9458	9581	
==>t
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2000	2105	
==>ath;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2000	2105	
==>ath;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16789	16891	
==>an )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16789	16891	
==>an )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it co <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1107	1233	
==>SX::PropertyAttributes {
    has $.ReadOnly;
    has $.DontEnum;
    has $.DontDelete;
}

class JSX::Value;
has $.property_valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18297	18423	
==>-6]>.  If you want to prevent
characters and ranges from being display if they are included in an embedded
class, set the I<any <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18954	19067	
==>Alt" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .local pmc exp0, exp1

    r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10193	10299	
==>0 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRI <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10193	10299	
==>0 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9466	9571	
==>span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method compleme <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9466	9571	
==>span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method compleme <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41101	41197	
==>vided sample usage and patch
code, that supports embedding of Template modules into the same file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41101	41197	
==>vided sample usage and patch
code, that supports embedding of Template modules into the same file <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	272	368	
==>nvolves:
# creating an *event*
# getting the *subscriptions* for it, and converting them to *noti <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5878	5960	
==>2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/26214 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5878	5960	
==>2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/26214 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1901	2001	
==>hod all_assocs($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1308	1408	
==>y_headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting and c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1308	1408	
==>y_headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting and c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11952	12186	
==>EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expressi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11952	12186	
==>EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expressi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7303	7403	
==>e ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $trav <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7303	7403	
==>e ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $trav <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37656	37755	
==>_key! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37656	37755	
==>_key! )>

This method takes the name of a Perl package in its positional parameter
$module_name (a s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6938	7061	
==>!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6938	7061	
==>!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$eve <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1238	1430	
==>-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head2 prefix

=head2 name

=head2 version

=head2 authori <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5708	5819	
==>gory object.

options:

=item * name => $category_name - the name of this category 
(a namespace or a Grammar na <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1771	1882	
==>erl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1771	1882	
==>erl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	646	784	
==>?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method ze <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	646	784	
==>?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method ze <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10372	10546	
==>ody => sub {
            my $self = shift;
            my $fh = shift->val;
            print $fh @_;
        }
    },
    map {{ arity => 2, name => "&infix:<$_>", body => ev <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4008	4120	
==>nical_base/mg;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	765	1093	
==>er ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	765	1093	
==>er ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5591	5696	
==>is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5591	5696	
==>is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4549	4774	
==>s[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4549	4774	
==>s[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2559	2676	
==>acted,
    } );
}

sub angle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1436	1533	
==>t: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1576	1673	
==>t: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Du <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1097	1208	
==>' => sub { scalar(@{_('@:results')}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => sub <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2428	2558	
==>x
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2428	2558	
==>x
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3081	3189	
==>at {
	my $self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14458	14563	
==>ls::but_block ($obj, Code $code) is primitive is safe {
    $code($obj);
    $obj;
}

# (Unspecced) facade <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1696	1813	
==>s>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	52	155	
==>implementation of a p6 compiler
# 

# ***************
# This version of lrep only compiles Grammar secti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8520	8649	
==>]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $nex <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8520	8649	
==>]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $nex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11828	11926	
==>eld value for the specified header field.  Previous values
for the same field are retained.

As for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11828	11926	
==>eld value for the specified header field.  Previous values
for the same field are retained.

As for <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2236	2370	
==>diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3597	3723	
==>diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $a <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1462	1576	
==>bject file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $se <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1462	1576	
==>bject file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	236	338	
==>sync with Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	236	338	
==>sync with Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4040	4190	
==>$v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5421	5632	
==>rn 'use v5 - not implemented'";
            }
            if ( $n->{param}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7659	7751	
==>rl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1484	1576	
==>rl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8874	8975	
==>sed in the inital scan
of the regex.

=head2 Getting the Tree

You can access the root of the tree wit <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7748	7892	
==>still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1049	1193	
==>still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5437	5561	
==>mpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5437	5561	
==>mpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7860	7963	
==>Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7860	7963	
==>Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13698	13819	
==>lues.

You should consider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13698	13819	
==>lues.

You should consider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4502	4616	
==>latten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = I <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4502	4616	
==>latten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6131	6253	
==>$match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6131	6253	
==>$match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	55	177	
==>strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7253	7360	
==>>prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $self->ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7556	7666	
==>"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7556	7666	
==>"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28707	28823	
==>l serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28707	28823	
==>l serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRI <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20406	20504	
==>as one subdirectory and no files, collapse
    for my $subdir (keys %{$dir_index->{_dirs}}) {
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26138	26253	
==>r FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26138	26253	
==>r FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35791	35890	
==>re <$other> has the same heading as
the invocant Relation::Example, and returns a new Relation::Exam <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37823	37922	
==>re <$other> has the same heading as the
invocant Relation::Example, and returns a new Relation::Exam <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1672	1791	
==>Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1672	1791	
==>Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1204	1300	
==>emely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1204	1300	
==>emely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51589	51759	
==>$:authority'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8337	8444	
==>$has_new_cabal = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7482	7581	
==>ay ; MatchTest *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextests --> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3711	3885	
==>\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3711	3885	
==>\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15103	15254	
==>subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19278	19429	
==>subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7020	7199	
==>b {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->store(
                      $e->get <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6026	6150	
==>ndp, nparens+1, I32);
    
    len = 1;
    if(r->offsets[0] < len) {
      Renew(r->offsets, 2*len+1, U32);
      r->offsets <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29325	29419	
==>he new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation::Exa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6563	6666	
==>correctly.  Otherwise, root through the file to locate the case-preserved
        # version of the packa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6606	6704	
==>ndices
for (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
}


# Generating error.html
my $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3116	3229	
==>- see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(St <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3116	3229	
==>- see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(St <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2154	2239	
==>l6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/rep <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2154	2239	
==>l6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/rep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1027	1165	
==>1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	985	1119	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1290	1390	
==>g the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1290	1390	
==>g the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1300	1394	
==>:Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1300	1394	
==>:Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1757	1861	
==>h might be interesting to 
people interested in the algorithm itself.  The attributes in question are 
C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1757	1861	
==>h might be interesting to 
people interested in the algorithm itself.  The attributes in question are 
C< <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	933	1102	
==>self->hash_fetch->{$idx};
            },
            hash_storeElem => sub {
                my $self = shift;
                my $idx = shift;
                my $contai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21515	21615	
==>o has not tried to port between
databases before, especially given that the Perl DBI purports to prov <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21515	21615	
==>o has not tried to port between
databases before, especially given that the Perl DBI purports to prov <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4410	4520	
==>cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7989	8168	
==>}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1;
    }

    my $stringify = sub {
	my($s)=@_;
	$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25185	25278	
==>than a single tuple.  A zero-attribute Relation::Example with zero tuples or
one tuple respect <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2380	2487	
==>5> converts parsed Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	933	1027	
==>he Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pug <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	933	1027	
==>he Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14232	14337	
==>o a simplified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
sp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14232	14337	
==>o a simplified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
sp <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	829	952	
==>ocaltime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	829	952	
==>ocaltime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9334	9543	
==>if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10811	11020	
==>if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12741	12908	
==>tr $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12741	12908	
==>tr $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10006	10114	
==>xt node:

  while (my $node = $iter->()) {
    # $node is a Regexp::Parser::* object
  }

In list context, it <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23550	23660	
==>"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n", <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	402	535	
==>{ $_ => undef } 
        qw/
        num bit str symbol nil type  
        list hash reference block 
        closure closure::env clo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2246	2373	
==>totags" will be too.

When activated, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of th <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2246	2373	
==>totags" will be too.

When activated, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7090	7200	
==>t-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

method user <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7090	7200	
==>t-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

method user <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1127	1235	
==>ments that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1127	1235	
==>ments that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19641	19768	
==>t happen.

  U32 lastparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

=head2 Other t <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3379	3479	
==>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configurat <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3379	3479	
==>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configurat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8768	8903	
==>},
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8768	8903	
==>},
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7077	7177	
==>xt, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7135	7235	
==>xt, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8723	8827	
==>e
# depth fields appropriately.
# This method is called automatically when 
# a subtree is added to a chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8723	8827	
==>e
# depth fields appropriately.
# This method is called automatically when 
# a subtree is added to a chi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3969	4156	
==>};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3848	4028	
==>};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	527	635	
==>on'}      = '' unless exists $params{'$.reason'};
            $params{'$.description'} = '' unless exists $pa <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15907	16040	
==>olution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2300	2433	
==>olution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17596	17691	
==>that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(... <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17596	17691	
==>that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(... <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2867	2996	
==>> 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2867	2996	
==>> 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1530	1640	
==>my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1530	1640	
==>my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::C <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3572	3820	
==>ew(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14187	14326	
==>. "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14181	14320	
==>. "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	538	681	
==>nently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	538	681	
==>nently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3503	3608	
==>nc 'cos';
trig_func 'tan';
trig_func 'asin';
trig_func 'acos';
trig_func 'atan';
trig_func 'sec';
trig_fun <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	178	272	
==>Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $set = JIB::Installation: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	462	549	
==>rnalValue is JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::InternalValu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3975	4119	
==>my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $ <==
2	/Users/nnunley/pugs/util/grokprims.pl	2193	2302	
==>/td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{name}</tt></td>";
  print "<td>(</td>";
  print " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	715	822	
==>= @_;
    $self->SUPER::_bind_params($args);
    my $inv = $args->fetch(num->new(0));
    $self->{env}->set( <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1744	1838	
==>rently, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This is an experimental, pre-alp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22908	23046	
==>_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19329	19467	
==>_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22043	22173	
==>class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C)     :- (char_type(C,alnum);char_type <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6636	6741	
==>_indexes($_, $index->{_dirs}->{$_});
}


# Generating error.html
my $error_file = catfile($output_dir,"err <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2302	2427	
==>and $smoke{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28289	28384	
==>>

If true, Test::Harness will output the verbose results of running
its tests.  Setting C<$Test <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15810	15906	
==>alue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `size <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15810	15906	
==>alue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `size <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16361	16484	
==>p_all} >>,
etc. so it's ready to parse the next file.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$s <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1669	1777	
==>script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec->catfile($path, "bin");
    $self->makemak <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8680	8785	
==>$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various comm <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8680	8785	
==>$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various comm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	33	189	
==>ackage grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	33	188	
==>ackage grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ru <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	816	919	
==>le::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2651	2743	
==>le::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}: <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1160	1262	
==>rite_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** Building dep <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21943	22048	
==>arison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21943	22048	
==>arison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating ob <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	34	174	
==>onfig;
use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	220	313	
==>ate expires if_modified_since if_unmodified_since last_modified
    content_type content_encod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	220	313	
==>ate expires if_modified_since if_unmodified_since last_modified
    content_type content_encod <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1113	1228	
==>quire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Pas <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1080	1195	
==>quire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Pas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17532	17629	
==>nce of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17532	17629	
==>nce of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4901	5039	
==>],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4901	5039	
==>],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3578	3697	
==>$start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3578	3697	
==>$start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12208	12315	
==>ns Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body.si <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15685	15792	
==>ns Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body.si <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1734	1861	
==>file( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $Re <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1734	1861	
==>file( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2468	2599	
==>omment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2652	2783	
==>omment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <! <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2176	2282	
==>ll see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2176	2282	
==>ll see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15800	15893	
==>ched" not)
  ( \+(match_captures_get(I,E0,_)) ; match_captures_get(I,E0,X), var(X) )
  -> rm(R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7053	7143	
==>::Compiler::Rule->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<term1>|<term2> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3780	4145	
==>}
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $star <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3780	4145	
==>}
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $star <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	671	779	
==>ode directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can in <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	671	779	
==>ode directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2010	2145	
==>tch} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2010	2145	
==>tch} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
s <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1906	2034	
==>alue = shift;
                $self->_hash_vivifyElem($idx)->scalar_store($value);
            },
            hash_fetchKeys => s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12311	12417	
==>SCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not ( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12311	12417	
==>SCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8205	8307	
==>t::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8263	8365	
==>t::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11004	11119	
==>gex    = $7; 
      # captures delimited portion of the string (provided only one delimiter was specified)
      # $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32116	32215	
==>l of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36666	36765	
==>l of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated tu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28656	28775	
==>S->{next} }, qw< atom >;
      return $S->object('and');
    });
  }

There is a specific scheme to how you must name yo <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9687	9799	
==>is whatever executable we've found (which could be
        # undef, if we didn't find anything).

        $ghc_pk <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13077	13188	
==>ult =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13077	13188	
==>ult =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3732	3852	
==>ss, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3732	3852	
==>ss, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3965	4069	
==>educe_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val->fmap(sub { $self->reduce($_[0]) }) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	670	760	
==>t(Scalar::Util::blessed($struct) and $struct->isa("Blondie::Val"))) {
				$self->{seen}->in <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	731	841	
==>ve_subscription<remove> .= new; # FIXME we need one at the class level too

    method notify (Class::Events::E <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	729	858	
==>ures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	729	858	
==>ures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1848	1946	
==>tract_delimited( "'" . $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extrac <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	444	554	
==>%tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $E <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	444	554	
==>%tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $E <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	932	1067	
==>ose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{verbose};
        my %cc = ($f => 1);
        print "calc <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5118	5248	
==>rray: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1307	1420	
==>( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1307	1420	
==>( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12178	12335	
==>$program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33927	34018	
==><anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

Ender: I<anyof_close>

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	367	474	
==>tax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	367	474	
==>tax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22813	22924	
==>>object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19234	19345	
==>>object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	146	310	
==>my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! def <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	146	310	
==>my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! def <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18850	18960	
==>e,
and it is less expressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling any <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18850	18960	
==>e,
and it is less expressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling any <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10153	10311	
==>erson,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10153	10311	
==>erson,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6097	6207	
==>hild($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6097	6207	
==>hild($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3129	3241	
==>& $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3117	3229	
==>& $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6115	6227	
==>string.

=item List Context

All headers are returned split into the respective
lines.

=item Hash Context (if it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6115	6227	
==>string.

=item List Context

All headers are returned split into the respective
lines.

=item Hash Context (if it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3747	3863	
==>]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3747	3863	
==>]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $mat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2147	2297	
==>tory} && $args->{file}
                ? JIB::Package::Installable->Object::Accessor::new      :
            $args->{file}           
                ? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35757	35873	
==>cess C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{rx}->object(ifmatch => 1, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6225	6330	
==>s : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6225	6330	
==>s : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21905	22008	
==>ion in this distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21905	22008	
==>ion in this distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely ob <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3231	3351	
==>_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3231	3351	
==>_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1089	1235	
==>es),"\n";
    };
    print_repl_help();
    while (1) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($l <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20354	20469	
==>0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1119	1221	
==>ot, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1177	1279	
==>ot, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3134	3289	
==>_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3134	3289	
==>_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13324	13450	
==>_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13324	13450	
==>_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1460	1563	
==>method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.de <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1460	1563	
==>method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5866	6007	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6059	6200	
==>n { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8278	8404	
==>- a "next-state" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or undef

    tail - the string <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7999	8122	
==>- a "next-state" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3475	3624	
==>,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3615	3764	
==>,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4454	4579	
==>@s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4442	4567	
==>@s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9115	9264	
==>{
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9115	9264	
==>{
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8356	8463	
==>more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new() <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8356	8463	
==>more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new() <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6240	6390	
==>lone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$nam <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6240	6390	
==>lone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2036	2165	
==>e -- $regex \n";
    my $program =
    "*{'Pugs::Grammar::Rule::$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	394	517	
==>r::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
        name => 'circumfix:<' . $opt{na <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13699	13841	
==>_DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*? <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13699	13841	
==>_DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15813	15904	
==>eb site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15813	15904	
==>eb site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22007	22120	
==>edText is told to fetch the user message for a certain code, it
returns the first one it finds.  This also works f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22007	22120	
==>edText is told to fetch the user message for a certain code, it
returns the first one it finds.  This also works f <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6928	7035	
==>urns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6928	7035	
==>urns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22316	22426	
==>es as you or each other, or having multiple search
directories in your path that packages could be installed in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22316	22426	
==>es as you or each other, or having multiple search
directories in your path that packages could be installed in <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	384	502	
==>FA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi metho <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	384	502	
==>FA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi metho <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4243	4346	
==>thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4301	4404	
==>thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5204	5326	
==>2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5204	5326	
==>2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6353	6484	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6353	6484	
==>urns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1579	1733	
==>.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_string);
            }
        } elsif ($.method.l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1579	1733	
==>.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_string);
            }
        } elsif ($.method.l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4306	4418	
==>lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4306	4418	
==>lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	505	624	
==>ation of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	505	624	
==>ation of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execut <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	198	311	
==>(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key)) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	198	311	
==>(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key)) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18793	18896	
==>that defines and returns an anonymous hash
definition.  While it is obvious that people who would be wri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18793	18896	
==>that defines and returns an anonymous hash
definition.  While it is obvious that people who would be wri <==
2	/Users/nnunley/pugs/util/version_h.pl	516	623	
==>sion = 0;

# SVK tries to ask the user questions when it has a STDIN and there is
# no repository.  Since we <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1750	1906	
==>{
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1750	1906	
==>{
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1889	2016	
==>t STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	235	343	
==>_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	235	343	
==>_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__P <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1742	1863	
==>->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    op <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1742	1863	
==>->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    op <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2831	2932	
==>arameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in whi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2831	2932	
==>arameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in whi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28205	28325	
==>H_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #define RX_MATCH_C <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	979	1096	
==>ned in $name $prec";
        $nprec = $op->{'nprec'} - $increment;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2695	2787	
==>t :z::not
rule metasyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <comm <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	328	420	
==>use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use const <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	972	1104	
==>x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	972	1104	
==>x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18559	18656	
==>) on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18559	18656	
==>) on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attrib <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11124	11242	
==>ned in the XML DOM spec; it exists as a container
in which Node objects live.  The Document class is pure and determini <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11124	11242	
==>ned in the XML DOM spec; it exists as a container
in which Node objects live.  The Document class is pure and determini <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7331	7432	
==>tersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if de <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7331	7432	
==>tersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6911	7030	
==>or my $key (@copy) {
        my $path = dir($key)->subdir($pkg->meta->$key);
        
        # maybe use another mechan <==
2	/Users/nnunley/pugs/util/grokprims.pl	2348	2458	
==>oreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td></tr></table>";
  print "<td>)</ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17600	17704	
==>) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17600	17704	
==>) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Ne <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18499	18591	
==>regcompp and regexecp hooks (C functions
which get called on regular expression compilation a <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2789	2881	
==>regcompp and regexecp hooks (C functions
which get called on regular expression compilation a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4958	5082	
==>) ,}
	}
RULE
*{'empty_list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10626	10745	
==>name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10784	10903	
==>name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15349	15464	
==>] is the offset of the last char within the capture.
n=0 is the total match?

  U32 lastparen;          /* last pare <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1060	1202	
==>y $sym_node = shift;

        my $symbol = $sym_node->val;

        $table{$symbol}; # find the symbol
    }

    # and then

    my $reduced = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1637	1732	
==>etes pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash structure of $self, and use <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13220	13344	
==>ings
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13220	13344	
==>ings
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($o <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1545	1679	
==>= @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't esca <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1545	1679	
==>= @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't esca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3892	3995	
==>ize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ircna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3892	3995	
==>ize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ircna <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7685	7796	
==>rdingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($kill <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7685	7796	
==>rdingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($kill <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12733	12831	
==>without the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12733	12831	
==>without the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:de <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25004	25107	
==>gify, "∀α. ∀β. ∀γ. α → β → γ", "pretty print a -> b -> c");
}
{
	my $type = type::operat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15877	15996	
==>eue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remov <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15877	15996	
==>eue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remov <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	866	987	
==>);
    
    $obj->installations( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3153	3250	
==>.complement_next, $set.complement_previous ),
        complement_previous => $self._get_intersecti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3153	3250	
==>.complement_next, $set.complement_previous ),
        complement_previous => $self._get_intersecti <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3708	3826	
==>ns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        whe <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3708	3826	
==>ns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        whe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7536	7638	
==>exact_comp => join("", map chr(hex), @hex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4335	4466	
==>\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4335	4466	
==>\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12367	12514	
==>ch;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12646	12793	
==>ch;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2206	2393	
==>n 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print(" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2206	2393	
==>n 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print(" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	207	317	
==>"::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2935	3069	
==>ity;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2935	3069	
==>ity;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object re <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2033	2129	
==>gex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=ove <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2033	2129	
==>gex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=ove <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4273	4373	
==>sub precomp {
    print STDERR "Generating precompiled Prelude" if $Config{verbose};
    die "*** Err <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15861	15971	
==>=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> other
Perl modules.

Modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15861	15971	
==>=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> other
Perl modules.

Modu <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	755	850	
==>rldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	755	850	
==>rldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4679	4811	
==>stant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4533	4661	
==>stant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3311	3477	
==>}
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3311	3477	
==>}
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2268	2381	
==>efined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end =   %p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2268	2381	
==>efined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $end =   %p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13195	13294	
==>t a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autop <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13195	13294	
==>t a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autop <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10292	10407	
==>re for this sub is nowhere near finalized; it should
    # support asynch/exclusive/other stuff. For lots of discuss <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4149	4256	
==>VERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !defined $x;
    return ($cls eq 'str') if !((~$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	450	569	
==>grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	450	569	
==>grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13276	13392	
==>erl5_object => sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	874	980	
==>urn { op => "circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2007	2165	
==>or prims some how?

    return $reduced;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3650	3780	
==>->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6190	6325	
==>om $unlink_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alternative
        $self->r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3044	3152	
==>1);
  }
  return $matchObj;
}

sub punct {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1397	1497	
==>ESCRIPTION

This is an experimental module which eases the use of functional programming
techniques i <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1397	1497	
==>ESCRIPTION

This is an experimental module which eases the use of functional programming
techniques i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19454	19541	
==>lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

R <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19454	19541	
==>lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2722	2823	
==>r>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaratio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2722	2823	
==>r>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaratio <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11703	11801	
==>code_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11703	11801	
==>code_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28400	28512	
==>he code reference in $code.  Example:

  # continuing from above...
  sub init {
    my $self = shift;
    $self- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3891	4016	
==>The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect aga <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3891	4016	
==>The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect aga <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1740	1839	
==>f->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2062	2161	
==>f->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2381	2544	
==>ler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2381	2544	
==>ler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4506	4641	
==>en if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    re <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4506	4641	
==>en if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6738	6863	
==>lse {
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22337	22438	
==>scribes the same-number versions of Relation::Heading ("Heading")
and Relation::Tuple ("Tuple").

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	340	474	
==>$e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename) <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	340	474	
==>$e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	297	421	
==>. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not exist\n" unless -d $meta;
    
    my @list        = LoadFil <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	392	485	
==>, "Set", { companion => "class" });
Has($?CLASS, "superclasses", "Set", { companion => "subcla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5112	5239	
==>_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5112	5239	
==>_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2291	2412	
==>ults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook. <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2291	2412	
==>ults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9907	10018	
==>.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9907	10018	
==>.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `c <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1700	1822	
==>ta ( qx[find $Repodir -type f | grep '$Metaext\$'] ) {
        chomp $meta;
        
        print "Indexing '" . basename( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8809	8924	
==>y2::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12280	12388	
==>n backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12338	12446	
==>n backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bo <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	964	1082	
==>return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_alternate (Num $x) {
# XXX I don't understand what round-alte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1970	2156	
==>message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _comma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1970	2156	
==>message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _comma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2985	3129	
==>oesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3169	3313	
==>oesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10308	10417	
==>d previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10308	10417	
==>d previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.sp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19666	19802	
==>onus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $bonusmsg .= (" ($tot->{todo} su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1649	1755	
==>:Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1649	1755	
==>:Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9535	9631	
==>Model does not declare any subroutines or export such.

The usual way that Rosetta::Model indicat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9535	9631	
==>Model does not declare any subroutines or export such.

The usual way that Rosetta::Model indicat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1578	1739	
==>t find message ($message)";
    } => 'Dispatchable';
}

{
    package Dispatchable;
    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2415	2528	
==>gs::Compiler::Rule;\n" .
            "use Pugs::Compiler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3235	3367	
==>ed $expected ) {
        # undef only matches undef
        $pass = !defined $got && !defined $expected;
    }
    else {
        $pa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6275	6391	
==>pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a la <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6275	6391	
==>pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a la <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3410	3550	
==>xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(? <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3410	3550	
==>xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2404	2532	
==>tracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { liter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2312	2437	
==>tracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { liter <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1753	1868	
==>{'_files_list'}      = [ Path::Class::file('files.list')     ];
$config{'_control'}         = [ control         => S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3004	3137	
==>n',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) ) {
    #    __PACKAGE__ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7535	7646	
==>tpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMERIC, target <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2229	2350	
==>) returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2229	2350	
==>) returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4704	4800	
==>het> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4954	5050	
==>het> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15177	15275	
==>nt line (by use of
\r and such).  C<$ml> may be empty if Test::Harness doesn't think you're
on TTY. <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1127	1228	
==>, @args) = @{$opts->{GHC}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = c <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	192	292	
==>h: 6 mal die selbe Zahl
#!\pause\visible<5>{
my @a = {wurf()} xx 6; # Lösung: anonyme Subroutine
#!} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4349	4482	
==>my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4349	4482	
==>my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
met <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3279	3388	
==>enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initialization vector sh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3279	3388	
==>enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initialization vector sh <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2836	2944	
==>efix}/$self->{path}", $self);
    }

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $o <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11331	11427	
==>runcores>
      <tr><th colspan="11" class="indent0"><tmpl_var name=name></th></tr>
      <tmpl_l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12949	13109	
==>le::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12943	13103	
==>le::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8238	8370	
==>0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,nparens,e <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1449	1545	
==>link "dist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Con <==
2	/Users/nnunley/pugs/util/testgraph.pl	915	1011	
==>GE";
usage: $0 [OPTIONS] > output_file.html

Generates an HTML summary of a YAML test run. Option <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	385	488	
==>if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	385	488	
==>if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	281	409	
==>xport { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	281	409	
==>xport { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	711	830	
==>nd;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	711	830	
==>nd;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7622	7734	
==>e = $o->visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_ea <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10210	10296	
==>ary->new(list => type::variable::free->new),
		type::operator::nullary->new("bool"),
	) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13454	13564	
==>ersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13454	13564	
==>ersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end = <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4133	4320	
==>for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   sa <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1577	1681	
==>.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{pat <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26483	26590	
==>y, "∀α. ∀β. list α → list β → list (α × β)", "pretty print :t zip");
}




# tests for the ty <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1474	1574	
==>LE ../Perl6-Bible

  Strategy:
    Iterate through all tests first.  Collect links and format as HTML <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1127	1222	
==>rayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1127	1222	
==>rayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))-> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	480	592	
==>a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2008	2120	
==>a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13677	13816	
==>->get('$canidate'), $e->get('%params'))));
                $e->get('$self')->send('BUILDALL' => ($e->get('%params')));
                retur <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8394	8493	
==>st::min $cmp, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases exis <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11850	11953	
==>you will have to wait
a little while. Until then, you can just write your own functions like this:

  cm <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11908	12011	
==>you will have to wait
a little while. Until then, you can just write your own functions like this:

  cm <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2296	2404	
==>tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

N <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2296	2404	
==>tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

N <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3534	3711	
==>n";
        my $program;
        while (<$ifh>) {
            $module ||= $1 if /^(?:package|module|class) \s+ ([^-;]+)/x;
            $program .= $_;
        }

        die "cou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	785	883	
==>TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	785	883	
==>TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6282	6382	
==>().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_roo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6282	6382	
==>().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_roo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9835	9972	
==>cks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11312	11449	
==>cks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8633	8729	
==>u can also overload this method if you've built your own strap subclass,
such as a PHP interprete <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4899	5041	
==>dir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4899	5041	
==>dir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	508	690	
==>bexp} => $new_arr;
            }
            push @{$stack} => $new_arr;
        }
        elsif ($token eq ')') {
            pop @{$stack};
        }
        else {
            if ( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	164	267	
==>inc.pl';
    protoconf->import();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a->{pack <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4251	4395	
==>er    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4103	4242	
==>er    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	487	590	
==>haustive'> | <':ex'> }
rule flag_overlap     { <':overlap'> | <':ov'> }
rule flag_words       { <':sigsp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8727	8829	
==>my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8727	8829	
==>my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	35	129	
==>se URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	35	129	
==>se URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34971	35072	
==>the heading of the invocant Relation.  This method
degenerates into an C<intersection> if the two sour <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39521	39622	
==>the heading of the invocant Relation.  This method
degenerates into an C<intersection> if the two sour <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10756	10880	
==>s
    .local int pos, lastpos
    .local int iscapture
    .local string subname
    $P0 = find_global "PGE::Match", "newfrom <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10139	10268	
==>g to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10139	10268	
==>g to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7412	7512	
==>oesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7412	7512	
==>oesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $modul <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20028	20126	
==>to the compilers. It does so in a most specific to most general order.
So inner blocks get compiled <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20028	20126	
==>to the compilers. It does so in a most specific to most general order.
So inner blocks get compiled <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17247	17349	
==>is one or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17247	17349	
==>is one or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	103	207	
==>ynamicScoping/;

use strict;
use warnings;

use UNIVERSAL::moniker;
use String::Escape qw/quote printable <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16745	16840	
==>write a self-contained application in
Rosetta D and compile that into its own executable, in pra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16745	16840	
==>write a self-contained application in
Rosetta D and compile that into its own executable, in pra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5555	5684	
==><condition>'));
    my $then = emit(get_data($_[0],'$<then>'));
    return "$op ($condition) $then\n";
}
sub node::_my {
    my $o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18590	18699	
==>6analyze" :method
    .param pmc pad
    .local pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pa <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1643	1773	
==>";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

use Cwd qw(cwd abs_path);
sub <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4756	4864	
==>//www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified vie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4756	4864	
==>//www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified vie <==
2	/Users/nnunley/pugs/util/func_refact.pl	1279	1402	
==>y $new = candidates(\%ccset)) {
        #    union(\%ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $olds <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5327	5496	
==>),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5327	5496	
==>),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # p <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	752	927	
==>s.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @s <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	752	927	
==>s.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1483	1602	
==>, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1483	1602	
==>, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match ) <==
2	/Users/nnunley/pugs/misc/S29_round.pl	521	645	
==>= sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4864	4988	
==>one;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4864	4988	
==>one;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3374	3467	
==>back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3374	3467	
==>back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6970	7070	
==>1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6970	7070	
==>1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17732	17829	
==>s guaranteed to be unique for a situation, and this is
mapped to a user-readable message at some p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17732	17829	
==>s guaranteed to be unique for a situation, and this is
mapped to a user-readable message at some p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8125	8248	
==>tch[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8113	8236	
==>tch[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7835	7961	
==>r::__object__ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7441	7566	
==>RY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CON <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7441	7566	
==>RY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CON <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8577	8696	
==>ick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8577	8696	
==>ick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = nor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9422	9521	
==>_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9422	9521	
==>_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	925	1045	
==>of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4403	4523	
==>of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7110	7203	
==>ethod _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7110	7203	
==>ethod _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( ' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2274	2376	
==>s Relation::Example-0.1.0 {
    does Relation;

    # External packages used by the Relation::Example c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	670	768	
==>new(0) }

sub greater_than { $_[0]->_compare($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10492	10580	
==>>$paramName, paramContext=>$paramContext, paramDefault=>$default };
}

NODE MkPos ($posNa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7565	7679	
==>urn $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7565	7679	
==>urn $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2165	2272	
==>} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_var <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2165	2272	
==>} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_var <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3020	3163	
==>my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3020	3163	
==>my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	944	1049	
==>ying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just sa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	944	1049	
==>ying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just sa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12034	12133	
==>);

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12092	12191	
==>);

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13946	14038	
==>de_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string wit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13946	14038	
==>de_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string wit <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10526	10627	
==>my $l = type::operator::nary->new(list => $a);
		type::operator::arrow->new( $l, $l );
	},
	# a -> b - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1178	1277	
==>s in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuatio <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1178	1277	
==>s in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuatio <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	436	542	
==>with statistics

=head1 VERSION

Version 2.46

=cut

$VERSION = "2.46";

# Backwards compatibility for expo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4087	4172	
==>ersions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exceptio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4087	4172	
==>ersions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exceptio <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1552	1746	
==>r/$file] )             and die $?;
    }

    print "\n\n\n";

    ### start aggregating their metainfo to one file
    my @metalist;
    for my $meta ( qx[find $Repodir -type f | grep '$Metaext\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4856	4963	
==>y;

	$self->mark_defined($node);
}

sub mark_defined {
	my $self = shift;
	my $node = shift;

	$self->{defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3849	3982	
==>efault {
    my $n = $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1804	1902	
==>elativePrecedence - options: $options - match: $match\n" ;
  my %token = ( name => $name, options = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1807	1933	
==>d        ();
use File::Find ();
use File::Path ();
use FindBin;

*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Insta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11566	11675	
==>itches}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) {
	# so we don't try to put literal new <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2909	3032	
==>l;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2909	3032	
==>l;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace th <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15936	16053	
==>ile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2329	2446	
==>ile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $sel <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2408	2556	
==>d $sum{$fname}[$n]){
                $event->{more_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which wer <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38541	38672	
==>bel
        symbol->new('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2710	2823	
==>def, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2768	2881	
==>def, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fat <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3877	3972	
==>, and "yesterday" return the appropriate date.

Any other string will be passed to `Date::Someth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3877	3972	
==>, and "yesterday" return the appropriate date.

Any other string will be passed to `Date::Someth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23428	23525	
==>>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23428	23525	
==>>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14038	14128	
==><AssignmentExpression>
    | <ArgumentList> <','> <AssignmentExpression>
}
rule LeftHandSid <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7746	7865	
==>nterpolate the message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7746	7865	
==>nterpolate the message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1651	1822	
==>b box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    wh <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1651	1822	
==>b box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    wh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1399	1505	
==>module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1399	1505	
==>module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1101	1265	
==>e eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        my $_table = $table;  
    TRY_AG <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2741	2844	
==>time;
    $self->{_timing}{duration} =
        $self->{_timing}{end} - $self->{_timing}{start};
    Dump <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	143	236	
==>-----------------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	143	236	
==>-----------------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1084	1198	
==>.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15651	15740	
==>as_p6obj_complain = sub { Carp::carp("p6_perl6_objects_from_whatever called on $_[0]"); un <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19322	19429	
==>NE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are sca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19322	19429	
==>NE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are sca <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	681	783	
==>e slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currentl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	681	783	
==>e slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currentl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6917	7079	
==>_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6917	7079	
==>_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	773	885	
==>Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Map <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4251	4363	
==>Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Map <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	802	948	
==>d with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, ($k,@ar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3865	3974	
==>> '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities l <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3865	3974	
==>> '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14697	14809	
==>on // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14697	14809	
==>on // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	93	219	
==>use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at leas <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	102	228	
==>use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at leas <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1480	1606	
==>return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # ta <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1480	1606	
==>return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # ta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21608	21718	
==>ibutes may be individually addressed only by their names, and all
Relation tuples may be individually addressed <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26160	26270	
==>ibutes may be individually addressed only by their names, and all
Relation tuples may be individually addressed <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10386	10484	
==>ests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10444	10542	
==>ests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4901	5006	
==>he entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the match.

=hea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4901	5006	
==>he entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the match.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9108	9218	
==>d1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9108	9218	
==>d1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	714	826	
==>rns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	772	884	
==>rns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	47	174	
==>se HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	47	174	
==>se HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3939	4068	
==>, @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3939	4068	
==>, @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9680	9804	
==>multi  List::reverse ( *@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @v <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6938	7041	
==>ontext" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_ou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6996	7099	
==>ontext" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_ou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1977	2072	
==>r($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1977	2072	
==>r($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13156	13262	
==>yNameAndValueList> <','> <PropertyName> <':'> <AssignmentExpression>
}
rule PropertyName :words {  # see 11 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2985	3169	
==>y $bool = $const eq substr( $_[0], $_[5], $lconst );
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5] <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5970	6066	
==>Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10227	10323	
==>Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1618	1722	
==>$code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1618	1722	
==>$code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	280	386	
==>etrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	280	386	
==>etrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_i <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5093	5225	
==>n to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS" <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5417	5549	
==>n to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14294	14419	
==><die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14294	14419	
==><die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Ret <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25919	26013	
==>MENT

=over 4

=item C<HARNESS_ACTIVE>

Harness sets this before executing the individual tests <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26243	26339	
==>N		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROPT_E <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2367	2483	
==>ch(num->new($i));
        my $param_type = $param->type->to_native;
        my $arg        = $args->fetch(num->new($i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	150	261	
==>elf = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	150	261	
==>elf = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4321	4432	
==>> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1447	1558	
==>> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7840	7948	
==>clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7840	7948	
==>clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	778	877	
==>ndividual bits.  Also note that the 
Cipher API operates at the byte level, not the character level, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	778	877	
==>ndividual bits.  Also note that the 
Cipher API operates at the byte level, not the character level, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26855	26969	
==>od installs all the flags and handlers.  F<Regexp::Parser> does
this automatically, but if you are sub-classing it, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6941	7096	
==>index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7405	7560	
==>index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11602	11763	
==>tor
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11602	11763	
==>tor
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3676	3888	
==>p.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &* <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3676	3888	
==>p.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &* <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1655	1767	
==>( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list)";
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1859	1967	
==>( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4417	4536	
==>e_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4417	4536	
==>e_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1939	2052	
==>_next =     sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless def <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1939	2052	
==>_next =     sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10495	10648	
==>l(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::opt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10774	10927	
==>l(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::opt <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5981	6088	
==>::Value::Number $v)    { $v }
multi sub ToNumber(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN if <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	806	903	
==>structor for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	806	903	
==>structor for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4427	4561	
==>XXX package name?
sub is_installed {
    my $self = shift;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { r <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	11	116	
==>e Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::In <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	11	116	
==>e Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::In <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22668	22840	
==>n',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10249	10352	
==>ti method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10249	10352	
==>ti method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2306	2413	
==>> will cause all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2306	2413	
==>> will cause all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2649	2755	
==>der (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2649	2755	
==>der (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17530	17621	
==>lance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a singl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17530	17621	
==>lance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a singl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12796	12931	
==>data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12796	12931	
==>data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15401	15499	
==>pread use
then it needs to account for a variance of needs between its different
users, such as the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15401	15499	
==>pread use
then it needs to account for a variance of needs between its different
users, such as the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32591	32684	
==>n purpose is to convert Message objects on demand into user-readable
message strings, using da <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32591	32684	
==>n purpose is to convert Message objects on demand into user-readable
message strings, using da <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1819	1952	
==>@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($input);
      ## XXX - this is teh b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	401	499	
==>ode   = $node if $node.defined;   
}

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	401	499	
==>ode   = $node if $node.defined;   
}

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	578	673	
==>":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	578	673	
==>":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6304	6439	
==>in( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6316	6451	
==>in( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2489	2588	
==>sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2489	2588	
==>sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15760	15858	
==>to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Pe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15818	15916	
==>to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Pe <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	573	751	
==>h =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2704	2825	
==>m $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi Num::si <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16438	16556	
==>ush($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($st <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16438	16556	
==>ush($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22649	22784	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22928	23063	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $ru <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7318	7532	
==>$newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.ca <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7318	7532	
==>$newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.ca <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5083	5178	
==>ed
interface provided by the C<LWP::UserAgent> module.

The following functions are provided (an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5083	5178	
==>ed
interface provided by the C<LWP::UserAgent> module.

The following functions are provided (an <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2228	2343	
==>ild);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2228	2343	
==>ild);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_chi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21373	21470	
==>mes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specifically, making sure C<(?(N) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2511	2598	
==>_to_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4407	4504	
==>t->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6309	6406	
==>t->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19913	20007	
==>rsed into blocks and the blocks have been
marked for various compilers, Module::Compile dispatc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19913	20007	
==>rsed into blocks and the blocks have been
marked for various compilers, Module::Compile dispatc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7186	7300	
==>hich permits the intercommunication 

of data about: backtracking, aborting, capturing.



There are 2 kinds of rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6941	7052	
==>hich permits the intercommunication 
of data about: backtracking, aborting, capturing.

There are 2 kinds of rul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7717	7820	
==>resolved)');

# resolve the class and pull in all the roles
$FooBar->resolve();

is_deeply(
    [ sort $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21462	21558	
==>r a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21462	21558	
==>r a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5116	5223	
==>ended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5338	5445	
==>ended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8186	8324	
==>sic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8186	8324	
==>sic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	274	396	
==>r because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The pla <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	274	396	
==>r because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The pla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1805	1906	
==>ey is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1805	1906	
==>ey is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1121	1299	
==>H => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1121	1299	
==>H => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10634	10732	
==>heir types, that their attributes have reasonable values, and
that attributes or Nodes are not miss <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10634	10732	
==>heir types, that their attributes have reasonable values, and
that attributes or Nodes are not miss <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	597	855	
==>plies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # Externa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	597	855	
==>plies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # Externa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2436	2560	
==>d to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2436	2560	
==>d to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1427	1538	
==>mestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1427	1538	
==>mestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	188	321	
==>ream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple documents not supported\n" <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4537	4641	
==>le4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6014	6108	
==>ufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6014	6108	
==>ufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2623	2721	
==>thors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following publi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2623	2721	
==>thors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following publi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	524	657	
==>$msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	524	657	
==>$msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1361	1472	
==>sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($^O =~ /MSWin32| <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1857	2024	
==>ies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1857	2024	
==>ies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	728	880	
==>pture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	728	880	
==>pture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	244	345	
==>use Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	882	1016	
==>$1,
        tail  => $2,
        capture => { cpan_bareword => $1 },
    } )
        if $_[0] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \( <==
2	/Users/nnunley/pugs/util/testgraph.pl	126	217	
==>::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Config, q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29120	29278	
==>t( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29399	29557	
==>t( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6364	6474	
==>e ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6364	6474	
==>e ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	647	785	
==>eters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	647	785	
==>eters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5995	6152	
==>: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5995	6152	
==>: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5034	5142	
==>to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5034	5142	
==>to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3879	4036	
==>_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3879	4036	
==>_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15144	15308	
==>oreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# Couldn't unlink '$file': $!\n" if -f $file;
    }
}


my $tmpfile = "misctmp000";
1 whil <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29074	29173	
==>vely just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33626	33725	
==>vely just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3564	3658	
==>ood 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3564	3658	
==>ood 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3400	3680	
==>size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3400	3680	
==>size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22282	22377	
==>ges which
have the same method names as you or each other, or having multiple search
directories <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22282	22377	
==>ges which
have the same method names as you or each other, or having multiple search
directories <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7758	7857	
==>st')>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

Thi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7758	7857	
==>st')>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

Thi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2567	2691	
==>$module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2567	2691	
==>$module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12105	12205	
==>at is right before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12105	12205	
==>at is right before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8144	8254	
==>users, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8144	8254	
==>users, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normali <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6844	6941	
==>se events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('hea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6844	6941	
==>se events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('hea <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11051	11177	
==>n of the string (provided only one delimiter was specified)
      # $8  captures the closing delimiter (provided only one delim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	385	511	
==>$src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", subst <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1174	1300	
==>$src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", subst <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3078	3216	
==>tr  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3078	3216	
==>tr  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        sta <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16389	16484	
==>alExpression>
    | <EqualityExpression> <'==='> <RelationalExpression>
    | <EqualityExpressio <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10916	11050	
==>lse                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10916	11050	
==>lse                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%op <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2957	3056	
==>_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2957	3056	
==>_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        comple <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12323	12547	
==>_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12323	12547	
==>_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.comp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	457	576	
==>, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	457	576	
==>, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10723	10829	
==>e 7.8.5
      <'\\'> <NonTerminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> < <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2279	2384	
==>)     unless exists $params{'$.number'};
            _('$.diagnostic' => '???') unless exists $params{'$.d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37419	37514	
==>_template_module( $module_name! )>

This method takes the name of a Perl package in its position <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37419	37514	
==>_template_module( $module_name! )>

This method takes the name of a Perl package in its position <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9079	9172	
==>b { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2904	2997	
==>b { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7722	7839	
==>an1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7722	7839	
==>an1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1586	1704	
==>cts:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1586	1704	
==>cts:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	920	1055	
==>getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	887	1022	
==>getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1102	1196	
==>documents, written
in question/answer format, to explain the design and implementation of Pugs. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1102	1196	
==>documents, written
in question/answer format, to explain the design and implementation of Pugs. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	583	689	
==>in::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/Pug <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	583	689	
==>in::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/Pug <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	871	990	
==>);
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	871	990	
==>);
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $valu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1996	2122	
==>g: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1996	2122	
==>g: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($se <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9766	9865	
==>difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9766	9865	
==>difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span objec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3453	3773	
==>ug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3453	3773	
==>ug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20461	20568	
==>r>?
}
rule VariableDeclarationNoIn :words {  # see 12.2
      <Identifier> <InitialiserNoIn>?
}
rule Initial <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2754	2888	
==>ort},
        }, 'Pugs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14015	14120	
==>ot and -r $cdroot },
  using  => sub { mkdir $cdroot };

step
  descr  => "Unpacking GRUB in \"$cdroot\"", <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	365	485	
==>less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIE <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	365	485	
==>less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	298	420	
==>:Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encryp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	298	420	
==>:Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encryp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1124	1230	
==>teps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1124	1230	
==>teps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to en <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1880	1978	
==>$code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1880	1978	
==>$code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Com <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7600	7747	
==>y, Int)\
\\n   List      non     ..      safe   (Scalar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30871	30971	
==>h!  It pops the
flag stack, and returns an object.

Finally, if you want to add a new POSIX character <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17230	17331	
==>true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17230	17331	
==>true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2316	2412	
==>rs containing control characters and Unicode.
# Trying to avoid setting $_, or relying on local $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16499	16642	
==>x_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20925	21068	
==>x_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14058	14159	
==>self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8263	8364	
==>self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(any <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	899	1003	
==>ext =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	899	1003	
==>ext =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1296	1443	
==>ositional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1296	1443	
==>ositional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule m <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6479	6618	
==>$file\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21633	21887	
==>cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation::Example -
Simple in-memory implementation of the Rela <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1644	1792	
==>00,
) or die $graph->error;

my @data = (
  [ 0..@commits_till_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9013	9147	
==>ing ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9013	9147	
==>ing ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6079	6276	
==>ec->catdir($to, $target) ) ) {
                error( "Could not create subdir to copy to" );
                return;
            }                
        }        
        
        ### strip the l <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7491	7611	
==>alue, @params, $type );
    }
    elsif $tree[0] eq '"PApp"' {   
        my %app = $tree[1];  # keys: "pArgs" "pCxt" "pF <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	341	464	
==>es using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - acce <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	341	464	
==>es using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - acce <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1165	1288	
==>d at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	725	848	
==>d at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17416	17561	
==>ram inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $half_pair is b -> (int x b)
my $half_pair = comb(
	fun => ide("pair"),
	p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2306	2411	
==>($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2306	2411	
==>($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	44	145	
==>sage-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	44	145	
==>sage-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	521	698	
==>o a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the ar <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	811	972	
==>o a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12864	12996	
==>sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27003	27135	
==>sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3149	3265	
==>tributes.
        # Note that it is valid for a Relation::Example to have zero attributes.
    has Set of Mapping(Str <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	64	179	
==>:Container::Scalar;

sub mk_containers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c->sca <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1031	1158	
==>}
	    next;
	}
	if($ok =~ /c/) {
	    print "not ok  \# Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8089	8189	
==>n, *@values;
}

# signature from S29draft.pod 8651.  In the List section.
multi Array::reverse (   @v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21388	21484	
==>o it should easily port
to alternative relational database engines with minimal effort.

This mig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21388	21484	
==>o it should easily port
to alternative relational database engines with minimal effort.

This mig <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23700	23813	
==>d variables, which can be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is gen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23700	23813	
==>d variables, which can be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is gen <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17928	18025	
==>The perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is vi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16800	16953	
==>)
                );
                return opaque->new(reference->new($e->get('$class:')), $e->get('$attrs'));     
            }
        )
    )
);

=po <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1244	1343	
==>nk $pilfn or die "Couldn't remove \"$pilfn\": $!\n";
    unlink $fn or die "Couldn't remove \"$fn\": <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9234	9354	
==>tify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencie <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10711	10831	
==>tify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencie <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1314	1439	
==>e> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1314	1439	
==>e> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7880	7980	
==>Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitiv <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7880	7980	
==>Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitiv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1694	1791	
==>urn ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1694	1791	
==>urn ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1108	1223	
==>right now this is a non
    # issue since even higher order functions get prims instead of thunks when
    # possibl <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13640	13743	
==>right now this is a non issue since even higher order functions get prims instead of thunks when possibl <==
2	/Users/nnunley/pugs/util/package-osx.pl	3570	3676	
==>3pm
        /usr/local/man/man3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4751	4879	
==>ng_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4944	5072	
==>ng_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11310	11407	
==>scape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11310	11407	
==>scape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field val <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17681	17829	
==>s a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17681	17829	
==>s a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15050	15147	
==>ive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15108	15205	
==>ive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4297	4395	
==>s match objects.

=head2 %{}

When used as a hash reference, the match object returns named capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4297	4395	
==>s match objects.

=head2 %{}

When used as a hash reference, the match object returns named capture <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13814	13917	
==>lution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13814	13917	
==>lution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $h <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2801	2963	
==>change -1;
        while $i <= $final {
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	375	474	
==>map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override thin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	375	474	
==>map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override thin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8113	8223	
==>parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Insert <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8113	8223	
==>parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Insert <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4118	4204	
==>DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Command <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4118	4204	
==>DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Command <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	69	227	
==>nt_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2401	2511	
==>param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2401	2511	
==>param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2643	2826	
==>_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2643	2826	
==>_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'L <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1427	1532	
==>n') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygw <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1349	1448	
==>n' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygw <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	807	928	
==>lize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	816	937	
==>lize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	78	210	
==>e::Reducer/;

use strict;
use warnings;

use Set::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dup <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17834	17955	
==>'> <BitwiseORExpression>
}
rule LogicalANDExpressionNoIn :words {  # see 11.11
      <BitwiseORExpressionNoIn>
    | <Logi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4136	4255	
==>s copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4136	4255	
==>s copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4750	4931	
==>yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4750	4931	
==>yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method en <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4127	4238	
==>$! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No except <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4185	4296	
==>$! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No except <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	350	446	
==>ed in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type kee <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	350	446	
==>ed in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type kee <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6405	6558	
==>the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6405	6558	
==>the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the modu <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	490	595	
==>push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	} <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	490	595	
==>push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4597	4732	
==>error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	562	683	
==>raw} ? $self->{raw} : $self->visual(@_);
  }

  sub data {
    my $self = shift;
    return $self->{data};
  }

  sub ende <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1164	1280	
==>iter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1164	1280	
==>iter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	599	739	
==>$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	610	750	
==>$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $cod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8250	8354	
==>s will be for 
pedestrian events like object destruction, but let's not make too many 
assumptions.

=bac <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8250	8354	
==>s will be for 
pedestrian events like object destruction, but let's not make too many 
assumptions.

=bac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1909	2073	
==>.union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1909	2073	
==>.union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6042	6185	
==>e dists
                  #      tree A/A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- or symlinks to min <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5480	5582	
==>ent<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5480	5582	
==>ent<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        deb <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7161	7310	
==>) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7161	7310	
==>) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15646	15756	
==>ds being class level.
        #my @ids = <year month day hour min sec picosec wday yday tzname tz is_dst>; # XX <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30516	30618	
==>le>

This method is the same as C<project> but that the returned Relation::Example has
the complement s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6346	6445	
==>y $self = shift;
	$self->{instance}->right;
}

sub free_vars {
	my $self = shift;
	$self->{instance} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14862	14969	
==>h "integer" semantics.

- `new( :density($day_duration), start => $first_day, end => $last_day )`

Creates a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14862	14969	
==>h "integer" semantics.

- `new( :density($day_duration), start => $first_day, end => $last_day )`

Creates a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32664	32773	
==>ments is not significant to the result;
the new Relation contains all the tuples of the source Relations, incl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37214	37323	
==>ments is not significant to the result;
the new Relation contains all the tuples of the source Relations, incl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21503	21600	
==>r package or program which uses yours may wish to
override some of your messages, showing other me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21503	21600	
==>r package or program which uses yours may wish to
override some of your messages, showing other me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3448	3558	
==>"._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13450	13555	
==>urce =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13450	13555	
==>urce =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1964	2057	
==>ructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operato <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1964	2057	
==>ructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operato <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20414	20543	
==>vial.


package Time::Local {}
# gmtime 

# localtime 

# time


# study

# defined

# undef

# item 

# want

# caller


# tie ti <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14694	14793	
==>s> is not longer supported. Use the C<.buckets>
property instead.

=back


=head2 Str

General notes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8215	8314	
==>ent<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8215	8314	
==>ent<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	471	573	
==>_paths {
	warn "lib_paths has been changed to cc_lib_paths due to confusion between Perl and C";
	shift <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34412	34504	
==>n::Example has all of the tuples of the
original (or rather, the corresponding transformation <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1093	1188	
==>, the latter form is slightly more efficient, though this is
marginal in string COW environments <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1093	1188	
==>, the latter form is slightly more efficient, though this is
marginal in string COW environments <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15075	15164	
==>ich applications invoke and which
multiple interchangeable "Engine" back-ends (usually pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15075	15164	
==>ich applications invoke and which
multiple interchangeable "Engine" back-ends (usually pro <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2414	2539	
==>}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2414	2539	
==>}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2856	2969	
==>quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2844	2957	
==>quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix gramm <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1212	1315	
==>--------------------------------------------

Since you are using Microsoft Windows, you will need the ' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1052	1155	
==>--------------------------------------------

Since you are using Microsoft Windows, you will need the ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32924	33028	
==>e effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32924	33028	
==>e effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15901	16023	
==>d _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19378	19500	
==>d _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19885	19980	
==>knames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Curre <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19885	19980	
==>knames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Curre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2180	2282	
==>et($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes($self.mem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2180	2282	
==>et($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes($self.mem <==
2	/Users/nnunley/pugs/util/package-osx.pl	11488	11603	
==>r = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOV <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1205	1297	
==>node)){
		return $self->symbolic_representation($node);
	}

	my $symbol = $self->declare($nod <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7780	7882	
==>ired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7780	7882	
==>ired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a ' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4187	4315	
==>goto &$step; # $Z::oop{$id} contents dont make it to $step (v5.8.5)?!?
    return &$step;
  };
}

my @whitespaces;
my $ws = def_r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	572	686	
==>filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	572	686	
==>filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7573	7680	
==>\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7573	7680	
==>\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2214	2331	
==>@_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2354	2471	
==>@_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $fl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22745	22851	
==>optionally use them; but often a template will
choose to show less than all of the available details depend <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22745	22851	
==>optionally use them; but often a template will
choose to show less than all of the available details depend <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21899	22022	
==>@_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18320	18443	
==>@_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22495	22643	
==>rams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42284	42431	
==>rams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21275	21358	
==>patcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44182	44265	
==>patcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant') <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3424	3534	
==>sed by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3424	3534	
==>sed by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rose <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25502	25597	
==>ping! ) returns Relation>

This method is a generic relational operator that returns a new Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30054	30149	
==>ping! ) returns Relation>

This method is a generic relational operator that returns a new Relat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31641	31748	
==>r set for itself.  When the program is run, it would
determine either from a user config file or a user inte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31641	31748	
==>r set for itself.  When the program is run, it would
determine either from a user config file or a user inte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	942	1057	
==>) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	942	1057	
==>) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2006	2212	
==>new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2006	2212	
==>new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6591	6696	
==>pe', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' , <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6591	6696	
==>pe', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' , <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	170	268	
==>roup.  This is approximately the Match object that userland folks will
see, but it has some other c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	170	268	
==>roup.  This is approximately the Match object that userland folks will
see, but it has some other c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10473	10609	
==>new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10473	10609	
==>new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_ch <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2295	2412	
==>$/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2295	2412	
==>$/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1396	1497	
==>lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRIN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1396	1497	
==>lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRIN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1772	1894	
==>ssages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1772	1894	
==>ssages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6515	6627	
==>CODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6515	6627	
==>CODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36578	36681	
==>an
empty list, in which case the returned Relation is identical to the
invocant.  Another trivial case i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41127	41230	
==>an
empty list, in which case the returned Relation is identical to the
invocant.  Another trivial case i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8578	8687	
==>_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8574	8683	
==>_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8636	8777	
==>ormalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8636	8777	
==>ormalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.uni <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9344	9481	
==>en -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max_height < $child_heigh <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9344	9481	
==>en -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max_height < $child_heigh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	0	114	
==>use v6;

role Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	0	114	
==>use v6;

role Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2894	3048	
==>ar,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2905	3059	
==>ar,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16719	16833	
==>ar => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13140	13254	
==>ar => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3465	3578	
==>)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3465	3578	
==>)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20527	20621	
==>thod DESTROYALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self: class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3114	3306	
==>uleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3125	3317	
==>uleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

} <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	874	985	
==>>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	874	985	
==>>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is expo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3938	4034	
==>et::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3938	4034	
==>et::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3073	3196	
==>at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3073	3196	
==>at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15281	15420	
==>1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15560	15699	
==>1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capt <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2503	2599	
==>other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2503	2599	
==>other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $othe <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	7	115	
==>..when - "Switch-Anweisung"
given $monster {
	when Monster::Schläft { lauf_weg();  }
	when 'hungrig'   { wer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1484	1630	
==>method
        my our has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\s> { return { stmt => '$_' } } ));
    }
    fo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2081	2187	
==>ly implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelude>, or preferably let
L<Blond <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22943	23037	
==>nded to be composed
into separate (and usually third-party) classes, which at the very least
mu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1951	2044	
==>n RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1951	2044	
==>n RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4165	4305	
==>tches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4037	4174	
==>tches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$mat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1643	1838	
==>{
        system( qq[ $^X $prerm ] )                              and die $?;
    }
    
    while( <$fh> ) {
        chomp;
        -e $_ && system(qq[rm -rf $_])                          and die <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35409	35516	
==>ject as an array ref.

=item C<get_member_names()>

This method returns all Member Names elements in this ob <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35409	35516	
==>ject as an array ref.

=item C<get_member_names()>

This method returns all Member Names elements in this ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10434	10568	
==>tch;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10428	10562	
==>tch;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5609	5708	
==>ence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5609	5708	
==>ence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

A <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2127	2327	
==>"$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2127	2327	
==>"$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_fo <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1208	1311	
==>::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1175	1278	
==>::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2216	2314	
==>pically 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will ca <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2216	2314	
==>pically 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will ca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2984	3120	
==>31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yad <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2984	3120	
==>31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yad <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	285	430	
==>dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	279	424	
==>dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	893	997	
==>rom($from);
  my $position = -1;
  $me->position($position);

  $from = $fromd if ( $fromd and $from < 0) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1077	1247	
==>],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1077	1247	
==>],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3535	3691	
==>$/()  
        just the capture - what's returned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3734	4123	
==>$end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3734	4123	
==>$end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8030	8139	
==>hen you need do perform "set" operations on 
Span objects, that return lists of spans.

In this example, @span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8030	8139	
==>hen you need do perform "set" operations on 
Span objects, that return lists of spans.

In this example, @span <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4862	4991	
==>= $$m->{tail};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR "bug")
        }

        $ast <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9192	9297	
==>ser->nparen;

=head2 Getting All Captures

You can access all the capture groups with the captures() metho <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3550	3663	
==>->{pathnames}{$pkg};

        eval { require $file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = de <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26030	26123	
==>s,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5571	5729	
==>er dimension on the multidex and match the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5571	5729	
==>er dimension on the multidex and match the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3783	3914	
==>d_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3976	4107	
==>d_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = su <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	928	1043	
==>ucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	928	1043	
==>ucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1153	1293	
==>e {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Exp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1153	1293	
==>e {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Exp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9009	9285	
==>on        
        
        my %test = (
                    ok          => $results{ok},
                    'next'      => $Strap->{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $res <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3777	3883	
==>L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (St <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3777	3883	
==>L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (St <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1318	1418	
==>n $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method inv <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1318	1418	
==>n $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method inv <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11443	11573	
==>$f->($close);
        $m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7055	7148	
==>age-name Pugs -odir dist/build/src -hidir dist/build/src "
      unless $self->is_extension_bu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2827	2925	
==>of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2827	2925	
==>of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	381	529	
==>,
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Mov <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	381	529	
==>,
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Mov <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21711	21826	
==>nged the field 'class' to 'family' in objects.  I was getting
confused by it, so I figured it was a sign that I'd ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14451	14593	
==>}
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14451	14593	
==>}
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11381	11478	
==>tem B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO D <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11381	11478	
==>tem B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO D <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1563	1661	
==>xport {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1563	1661	
==>xport {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1304	1406	
==>$str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1304	1406	
==>$str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4337	4477	
==>',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4337	4477	
==>',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15608	15702	
==>h contain the mapping from all characters to the corresponding entities
(and vice versa, respec <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15608	15702	
==>h contain the mapping from all characters to the corresponding entities
(and vice versa, respec <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17852	17962	
==>\n";
    $code .= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10729	10829	
==>lass: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plai <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10729	10829	
==>lass: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plai <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2929	3049	
==>ken{syncat} = PGE_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{synca <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7093	7212	
==>shift;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pug <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1520	1671	
==>sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1520	1671	
==>sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %hand <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4181	4335	
==>ey }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4181	4335	
==>ey }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	801	900	
==>dom created using the C<Tree> interface.

Normally, they will be constructed as a series of events f <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	801	900	
==>dom created using the C<Tree> interface.

Normally, they will be constructed as a series of events f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	63	157	
==>mitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	63	157	
==>mitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4194	4296	
==>6($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4194	4296	
==>6($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6404	6507	
==>method union (Relation $other!) returns Relation {

    die "The heading of the relation in $other does" <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9881	9984	
==>method union (Relation $other!) returns Relation {

    die "The heading of the relation in $other does" <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	111	210	
==>x:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`> <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	111	210	
==>x:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8752	8889	
==>} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.chars <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8752	8889	
==>} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.chars <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7867	7979	
==>y $width = _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so each test pr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2456	2571	
==>type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator    ::= Code(Any, Any) returns Int;
 type SortCriterio <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1396	1496	
==>type KeyExtractor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5282	5378	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOW <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5282	5378	
==>ren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOW <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3241	3347	
==>sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3229	3335	
==>sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $r <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	748	853	
==>nauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	748	853	
==>nauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	823	953	
==>umper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	823	953	
==>umper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match un <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	494	592	
==>od literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./asserti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	494	592	
==>od literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./asserti <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3291	3398	
==>n {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.ke <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6768	6875	
==>n {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping.ke <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3326	3430	
==>. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3326	3430	
==>. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16543	16654	
==>program is executing.

Locale::KeyedText gives your application the maximum amount of control as
to what the use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16543	16654	
==>program is executing.

Locale::KeyedText gives your application the maximum amount of control as
to what the use <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7156	7263	
==>ize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7156	7263	
==>ize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $b <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8155	8250	
==>w(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&// i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	65	161	
==>/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	65	161	
==>/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3045	3255	
==>= $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3045	3255	
==>= $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5324	5423	
==>he C<write> method the file for the properties, and writes it
to disk.  Returns boolean value of suc <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5324	5423	
==>he C<write> method the file for the properties, and writes it
to disk.  Returns boolean value of suc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2134	2257	
==>>{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2051	2168	
==>>{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21002	21183	
==>ant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21281	21462	
==>ant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'varia <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	180	289	
==>- check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 3 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	180	289	
==>- check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 3 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27694	27788	
==>_off(prog))

 #define RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MAT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	618	725	
==>ontaining: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	618	725	
==>ontaining: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7276	7390	
==>elete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7276	7390	
==>elete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	285	401	
==>{
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Pe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	285	401	
==>{
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4241	4338	
==>tta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4241	4338	
==>tta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Ros <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11321	11475	
==>apture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11315	11469	
==>apture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15945	16040	
==>> other
Perl modules.

Modules that use these compilation modules get compiled into some
altered <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15945	16040	
==>> other
Perl modules.

Modules that use these compilation modules get compiled into some
altered <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1062	1172	
==>sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	848	958	
==>sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub no <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5976	6107	
==>ew(),
            attribute->new('%:private_methods') => hash->new(),
            attribute->new('%:attributes')      => hash->new() <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1766	1863	
==>elector = (int(rand() * 100)) % @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::ro <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5086	5212	
==>erter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5086	5212	
==>erter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4469	4566	
==>e reference, the match object returns the I<result>
object; this is normally the entire match stri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4469	4566	
==>e reference, the match object returns the I<result>
object; this is normally the entire match stri <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2530	2631	
==>as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
objec <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2530	2631	
==>as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
objec <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26181	26286	
==>width of the terminal. If it is not
set then it will default to C<COLUMNS>. If this is not set, it will
de <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43505	43598	
==>nnections to databases: L<Set>, L<Rosetta>.

=head1 BUGS AND LIMITATIONS

I<This documentation <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1433	1547	
==>e = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1433	1547	
==>e = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	44	150	
==>tal implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_en <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	44	150	
==>tal implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_en <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15693	15885	
==>mar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15972	16164	
==>mar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           , <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8218	8312	
==>h @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_cal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2043	2137	
==>h @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_cal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15254	15386	
==>eop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15533	15665	
==>eop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25925	26022	
==>CH_GPOS)
 #define ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1938	2090	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2131	2283	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34587	34691	
==>edText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34587	34691	
==>edText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1319	1421	
==>EATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1319	1421	
==>EATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11102	11223	
==>g paren)
  $self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1945	2046	
==>---------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8489	8578	
==>tements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2314	2403	
==>tements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2468	2561	
==>terpolated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | <metasyntactic_var> | < <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	231	346	
==>LT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	231	346	
==>LT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18647	18749	
==>ing to make it look sufficiently
like what the core expects to avoid problems.  While simultaneously
tr <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2937	3039	
==>ing to make it look sufficiently
like what the core expects to avoid problems.  While simultaneously
tr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2882	3010	
==>eck the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die "Index Out of B <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2882	3010	
==>eck the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die "Index Out of B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	263	380	
==>Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	263	380	
==>Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16416	16577	
==>};
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20842	21003	
==>};
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9956	10075	
==>operations.

This class also provides methods for iterating through the set, and for querying 
set properties.

Note tha <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9956	10075	
==>operations.

This class also provides methods for iterating through the set, and for querying 
set properties.

Note tha <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5597	5702	
==>ex = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5597	5702	
==>ex = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child_ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	99	210	
==>Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is cop <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	99	210	
==>Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is cop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24861	24981	
==>o many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24861	24981	
==>o many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2503	2605	
==>s ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2420	2520	
==>s ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	390	500	
==>d in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	390	500	
==>d in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of fil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3488	3614	
==>ick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WH <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3488	3614	
==>ick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WH <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	330	442	
==>erl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is co <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	330	442	
==>erl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	678	775	
==>ng from an experimental "let's see if something
like this can work" to "ok, this looks doable".  S <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23268	23411	
==>Curtest->{canon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    return($fmt_top, $fmt);
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2676	2784	
==>ode); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2676	2784	
==>ode); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::S <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1580	1740	
==>")) {
    print "# Unpacking $exename.exe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4592	4740	
==>f_close' ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1477	1587	
==>Obj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($m <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9314	9439	
==>ssion ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expressi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	710	833	
==>ssion ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expressi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1772	1873	
==>el::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document describes Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1772	1873	
==>el::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document describes Rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4259	4378	
==>h');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4476	4595	
==>h');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8659	8784	
==>) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.valu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19101	19226	
==>) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8617	8748	
==>};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8617	8748	
==>};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4716	4850	
==>= ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $version ? ";\$$a[0]::VER <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29333	29438	
==>f
it is called I<after> $obj has been added to the tree, $obj will be
removed from the tree.  Most node ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3811	3912	
==>) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 1)) if $cc;
    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7605	7721	
==>_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7798	7914	
==>_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	790	902	
==>child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubb <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	790	902	
==>child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	283	399	
==>,\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmli <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	283	399	
==>,\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmli <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12306	12412	
==>et($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12306	12412	
==>et($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6829	6989	
==>ems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6829	6989	
==>ems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3543	3647	
==>n0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3543	3647	
==>n0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2186	2304	
==>unctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2186	2304	
==>unctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16550	16661	
==>str($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16550	16661	
==>str($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1951	2061	
==>ns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1951	2061	
==>ns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3721	4058	
==>nt("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3721	4058	
==>nt("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2082	2221	
==>d override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2287	2426	
==>d override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6168	6283	
==>tart_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6168	6283	
==>tart_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	277	378	
==>addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	277	378	
==>addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1961	2094	
==>s->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6393	6517	
==>y list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() ou <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6393	6517	
==>y list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() ou <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	96	188	
==>OTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_ar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	96	188	
==>OTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14526	14723	
==>or" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14805	15002	
==>or" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10954	11065	
==>emporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11104	11215	
==>emporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5900	6010	
==>nds.

=head2 add_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $oper <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6642	6741	
==>f File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan L <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6642	6741	
==>f File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan L <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	689	784	
==>ethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	689	784	
==>ethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	285	418	
==>eyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	285	418	
==>eyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedTex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2304	2426	
==>ve) {
        my $value; 
        my $param      = $params->fetch(num->new($i));
        my $param_type = $param->type->to_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8952	9054	
==>the root of the tree with the root() method:

  my $root = $parser->root;

It will be an array referenc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8295	8425	
==>k }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8295	8425	
==>k }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36541	36642	
==>\n";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26522	26613	
==>ptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRanges>
}
rule NonemptyClass <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22030	22131	
==>class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26580	26673	
==>C<TYPE> and sends the constructor whatever
other arguments are included.  This method takes ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3760	3901	
==>int    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/| <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3760	3901	
==>int    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/| <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1540	1651	
==>remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $po <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2202	2313	
==>remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4717	4833	
==>return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4569	4683	
==>return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1691	1822	
==>$P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
method < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4991	5118	
==>d>
            { return { single_quoted => $/{'Pugs::Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3628	3762	
==>] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3616	3750	
==>] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6275	6418	
==>mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expec <==
2	/Users/nnunley/pugs/util/drift.pl	1390	1520	
==>le (<IN>) {
    /OPTION/ or last;
	s{\Q../}{../../}; # Hack to fix includes (It's stupid!)
    print OUT $_;
}
print OUT @scary_hea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1329	1438	
==>p 'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5397	5496	
==>eturns boolean value of success or failure;

=item err_str

The C<err_str> method returns the last e <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5397	5496	
==>eturns boolean value of success or failure;

=item err_str

The C<err_str> method returns the last e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2259	2390	
==>CORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2259	2390	
==>CORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9049	9173	
==>rn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9242	9366	
==>rn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	517	638	
==>e->atomic;

	return 1;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

	return $node unless Scalar::U <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1055	1203	
==>sage eq 'prototype' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{protot <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2904	3037	
==>tructure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoker config revision timing
        }});
}

sub se <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1207	1329	
==>kejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JS';
# XXX: hack to be identified by sm <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34949	35046	
==>r>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<int <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39499	39596	
==>r>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<int <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18433	18554	
==>accurate program text
for users, we still get the best results by having a human being write out
that text themselves.

Wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18433	18554	
==>accurate program text
for users, we still get the best results by having a human being write out
that text themselves.

Wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	433	540	
==>e '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the inp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	433	540	
==>e '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the inp <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3652	3752	
==>, eval_pv, and %^H.  The first thing
needed is a scope.t test file.

=item Memory

One sees both segf <==
2	/Users/nnunley/pugs/util/claim_drift.pl	415	513	
==>/([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our %Conf, qw(--verbose|v --no|n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1103	1204	
==>es in both Package

and Code -- because it is both a namespace of symbols and has

a main body closure <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1052	1151	
==>es in both Package
and Code -- because it is both a namespace of symbols and has
a main body closure <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4180	4271	
==>ss_precendence_list');

is($Object->id, 2, '... $Object is the second id');
is($Object->clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4233	4356	
==>$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4221	4344	
==>$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3482	3575	
==>tal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv(( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5990	6124	
==>ix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5990	6124	
==>ix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print pos <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1377	1479	
==>kg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1377	1479	
==>kg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5063	5159	
==>< $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5063	5159	
==>< $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2905	3020	
==>}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $F <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2905	3020	
==>}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15806	15974	
==>nal(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16085	16253	
==>nal(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       rule <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	263	358	
==>ed?) test.  But
maybe not.  Either way, the current approach seems plausible, no?

Clutter::int_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5401	5659	
==>e
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5401	5659	
==>e
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15749	15856	
==>Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15749	15856	
==>Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4330	4446	
==>j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4330	4446	
==>j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7384	7480	
==>match operators: like 'literal'.



Higher order operators take a list of match operators, and re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7133	7227	
==>match operators: like 'literal'.

Higher order operators take a list of match operators, and re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1993	2093	
==>', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1993	2093	
==>', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Has <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7379	7485	
==>mpiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7379	7485	
==>mpiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	208	358	
==>>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	208	358	
==>>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->cod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5953	6065	
==>classes')    => list->new(),
            attribute->new('%:private_methods') => hash->new(),
            attribut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6386	6533	
==>my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6386	6533	
==>my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1346	1483	
==>ace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1346	1483	
==>ace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	738	853	
==>rns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	738	853	
==>rns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $spa <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4766	4880	
==>ss  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17628	17749	
==>oto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 = subclass $P0, grammar <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state2.pl	8	110	
==>.pl - Perl 6: Anwendung von state
sub singleton {
	state $var = new MeineKlasse;
	# $var wird nur einma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4799	4929	
==>n Type
class JSX::InternalValue::Completion_type { # XXX - should be enum
   has $.normal;
   has $.break;
   has $.continue;
   ha <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24195	24304	
==>faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23495	23585	
==>files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23495	23585	
==>files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration> <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1710	1856	
==>ext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) i <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1710	1856	
==>ext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24194	24290	
==>et of named attributes; all tuples in a Relation::Example are of the same
degree, and the attribu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	603	713	
==>e>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	603	713	
==>e>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1171	1286	
==>olders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\: <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1171	1286	
==>olders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20099	20196	
==>setta" core
distribution to allow the core to be completely testable on its own.  It is
coded inte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20099	20196	
==>setta" core
distribution to allow the core to be completely testable on its own.  It is
coded inte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8541	8641	
==>sitive application.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8541	8641	
==>sitive application.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insec <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11111	11255	
==>next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11111	11255	
==>next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24620	24727	
==>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21041	21148	
==>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17600	17721	
==>urrent_match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::s <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	496	595	
==>{
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all those stuff l <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	646	747	
==>er
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATI <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	646	747	
==>er
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4653	4766	
==>[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4846	4959	
==>[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37496	37594	
==>age in its positional parameter
$module_name (a string) and tries to load it using 'require'.

=ite <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37496	37594	
==>age in its positional parameter
$module_name (a string) and tries to load it using 'require'.

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19189	19301	
==>-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15610	15722	
==>-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_of <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	645	739	
==>tively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	645	739	
==>tively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	93	201	
==>ontextunabhängigkeit
Da die kontextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird si <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28769	28873	
==>embers do not match invocant
Relation attribute names, or duplicate any other value set members.  This
me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33321	33425	
==>embers do not match invocant
Relation attribute names, or duplicate any other value set members.  This
me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4753	4843	
==>IN{
  eval(PIL::PIL1::NodeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNode <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5399	5565	
==>lse {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5399	5565	
==>lse {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13679	13803	
==>> ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13679	13803	
==>> ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13382	13489	
==>ource =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13382	13489	
==>ource =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2425	2550	
==>/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue sepa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2425	2550	
==>/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue sepa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	742	872	
==>";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36416	36516	
==>ere init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $parser->errmsg;
  print "VISUA <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8674	8781	
==>o play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is called aut <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8674	8781	
==>o play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is called aut <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2481	2610	
==>x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      ta <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2481	2610	
==>x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      ta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38225	38321	
==>e text string in
its positional parameter $text (a string), and a Message Variables hash ref
in i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38225	38321	
==>e text string in
its positional parameter $text (a string), and a Message Variables hash ref
in i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2596	2698	
==>set($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2596	2698	
==>set($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4271	4419	
==>s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4271	4419	
==>s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	319	447	
==>V ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pugs::Grammar::Perl6->parse( $src );
    #use YAML;
    #pri <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8020	8117	
==>turn $ver;
}

=head2 assert_ghc_pkg

Assert that we have F<ghc_pkg> installed.  This caches its re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5661	5830	
==>of_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $lhs, $rhs) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28163	28266	
==>ject as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version of this objec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28163	28266	
==>ject as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version of this objec <==
2	/Users/nnunley/pugs/util/build_pugs.pl	642	762	
==>he build root. You may override these settings using the PUGS_BUILD_OPTS
environment variable.

Current settings:
.
    p <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	87	174	
==>nstall/Metadata.pm"
package Module::Install::Metadata;
use Module::Install::Base;
@ISA = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5310	5416	
==>y is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path). <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5310	5416	
==>y is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path). <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3052	3219	
==>_box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3052	3219	
==>_box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	881	970	
==>glish

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	881	970	
==>glish

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2 <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	339	441	
==>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	339	441	
==>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	730	845	
==>ture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	723	838	
==>ture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15296	15404	
==>arget" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15296	15404	
==>arget" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "I <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6156	6377	
==>r to copy to" );
                return;
            }                
        }        
        
        ### strip the leading dirs from the target so we don't get a silly
        ### deep dir structure
        %from = ma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5193	5315	
==>ureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'boolean'>
    | <'ex <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29767	29876	
==>.

Implement Straps total_results()

Remember exit code

Completely redo the print summary code.

Implement St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29045	29215	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29324	29494	
==>'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $matc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6103	6191	
==>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6103	6191	
==>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($ev <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2401	2499	
==>odetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2401	2499	
==>odetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14779	14880	
==>ndle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14837	14938	
==>ndle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3931	4081	
==>+= time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Contro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3931	4081	
==>+= time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Contro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20708	20832	
==>dler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17129	17253	
==>dler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1546	1662	
==>", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8117	8211	
==>elf->reduce($_[0]) });
		
		return Blondie::TypeSafe::Annotation->new(
			type => ($rseq->value <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10508	10606	
==>ples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10508	10606	
==>ples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	315	600	
==>n this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation::Example::Heading-0.1.0 {
    does Relation::Heading;

    # Extern <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2492	2588	
==>ache}{$symbol} = Blondie::Compiler::Placeholder->new(undef);

    # if the symbol is not a predef <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6572	6746	
==>t'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6765	6939	
==>t'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6582	6733	
==>() }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term. <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4148	4250	
==>e counts
sub strip_comments {
    $_[0] =~ s{^[ \t]*#.*}{}mg;
    $_[0] =~ s{^=\w(.*?)^=cut$}{"\n" x ($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4343	4444	
==>}

=pod JIB::Utils->_move( from => $file|$dir, to => $target );

Moves a file or directory to the targ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25691	25786	
==>, it's because an lvalued subroutine returning a
normal scalar doesn't work quite right with a r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10052	10227	
==>2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10052	10227	
==>2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Ca <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	710	905	
==>ffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $bu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	710	905	
==>ffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $bu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1692	1794	
==>i encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string i <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1692	1794	
==>i encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7162	7309	
==>= (" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18913	19027	
==>ATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18913	19027	
==>ATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subr <==
2	/Users/nnunley/pugs/util/package-osx.pl	7769	7866	
==>3pm
        /usr/local/man/man3/Perl6::Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec::O <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	227	332	
==>* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"( <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	227	332	
==>* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1407	1553	
==>_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1983	2129	
==>_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6756	6889	
==>($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # tr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6756	6889	
==>($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # tr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11453	11549	
==>s in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11453	11549	
==>s in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1149	1257	
==>ins.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1149	1257	
==>ins.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5479	5590	
==>ect->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        push(@{$no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5945	6071	
==>expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolute
        $pass = ($got <= $range) & <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	801	925	
==>ep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $label)
          if defined $tok;
        @tokens.push( ($sep, $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10254	10386	
==>_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10254	10386	
==>_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    r <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11872	11986	
==>d ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	281	390	
==>d ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	86	182	
==>-------------------------------------
## Mini Meta-Model with explicit EigenClasses
## ---------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	109	205	
==>--------------
## Mini Meta-Model with explicit EigenClasses
## --------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5362	5490	
==>set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5362	5490	
==>set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11038	11210	
==>a, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'exact',
      data => [$data], <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5383	5525	
==>a, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	186	285	
==>M::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	186	285	
==>M::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	243	369	
==>ndef,
        param_stack => [],
    }, $class;
}

sub execute {
    my $self = shift;
    my $prog = shift;
    $self->reduce( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	387	484	
==>1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1084	1187	
==>my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech wa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1084	1187	
==>my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5870	5986	
==>lized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5870	5986	
==>lized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16315	16418	
==>a Native Interface is defined mainly in terms of a new high-level
programming language named "Rosetta D" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16315	16418	
==>a Native Interface is defined mainly in terms of a new high-level
programming language named "Rosetta D" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1872	1980	
==>od export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1872	1980	
==>od export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31003	31107	
==>od returns the identity-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $pre <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35553	35657	
==>od returns the identity-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5931	6055	
==>-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5931	6055	
==>-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11878	12023	
==>e_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11878	12023	
==>e_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18532	18654	
==>N)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and e <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18532	18654	
==>N)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and e <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	705	803	
==>the new module functionality will not need it. Althoug this may be a 
# naive understanding of what <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	705	803	
==>the new module functionality will not need it. Althoug this may be a 
# naive understanding of what <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8666	8786	
==>an );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8666	8786	
==>an );
    my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	588	684	
==>malize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	588	684	
==>malize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0." <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6358	6479	
==>fix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6358	6479	
==>fix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11613	11734	
==>vant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11613	11734	
==>vant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	628	728	
==>module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=he <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	628	728	
==>module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31874	31980	
==>the first library generates an error
message and wants it shown to the user, the main program would check e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31874	31980	
==>the first library generates an error
message and wants it shown to the user, the main program would check e <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16057	16238	
==>5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	572	670	
==>a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	572	670	
==>a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10901	11057	
==>exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3932	4053	
==>t Param will
introduce a new symbol, $x, taking the 10 off the parameter stack and binding
it to $x. Then the app is reduc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7020	7126	
==>ot implemented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not implem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1374	1478	
==>ot implemented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not implem <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21122	21305	
==>ue')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44046	44212	
==>ue')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5772	5875	
==>@_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5851	5954	
==>@_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2328	2455	
==>= [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9018	9118	
==>t()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9018	9118	
==>t()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the se <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6569	6708	
==>f (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6626	6765	
==>f (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7386	7649	
==>us    => 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skipped  => 0,
                tod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2126	2228	
==>ay not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's fun <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2126	2228	
==>ay not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's fun <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5644	5802	
==>$e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7406	7564	
==>$e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e se <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	500	595	
==>eral(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	500	595	
==>eral(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	887	981	
==>scription );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	887	981	
==>scription );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	458	627	
==>trict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_by <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	458	627	
==>trict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_by <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15140	15244	
==>) }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15140	15244	
==>) }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7681	7787	
==>varscalar = *node::varhash = *node::variable;
sub node::empty_list {
    return "()";
}
sub node::immediate <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13463	13557	
==>=item $h.header_field_names

Returns the list of distinct names for the fields present in the
h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13463	13557	
==>=item $h.header_field_names

Returns the list of distinct names for the fields present in the
h <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1729	1826	
==>}
 }
 multi sub Array::reduce (@values ; Code *&expression) returns Scalar
 multi sub  Perl6::List <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11999	12114	
==>he time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11999	12114	
==>he time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14699	14799	
==>d.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Emb <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14699	14799	
==>d.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Emb <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	271	434	
==>my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_by <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	271	434	
==>my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_by <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12897	13117	
==>)
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13176	13396	
==>)
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2936	3074	
==>($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22335	22446	
==>ther, or having multiple search
directories in your path that packages could be installed in.

Generally, when a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22335	22446	
==>ther, or having multiple search
directories in your path that packages could be installed in.

Generally, when a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1939	2036	
==>returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1939	2036	
==>returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14171	14283	
==>and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14171	14283	
==>and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26556	26651	
==>ntly only works when sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Tes <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3893	4012	
==>e third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

met <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3893	4012	
==>e third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

met <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9500	9605	
==>sult ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9500	9605	
==>sult ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4300	4598	
==>_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                }      

                last LI <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1280	1372	
==>programs to work with test results, we provide
Test::Harness::Straps.  Instead of printing th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31229	31485	
==>w(
                              symbol->new('$self:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'bloc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3281	3436	
==>$PATH/$MANPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my_bindir = "$Site/$path/bin";
                last LI <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23329	23438	
==>y to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a Role rather tha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27881	27990	
==>y to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a Role rather tha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3675	3799	
==>w Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3543	3663	
==>w Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	809	958	
==>f3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	809	958	
==>f3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10132	10230	
==>pan object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10132	10230	
==>pan object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is e <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2055	2157	
==>sents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2055	2157	
==>sents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	139	244	
==>e how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

metho <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	139	244	
==>e how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7312	7431	
==>ter' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching varia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7064	7181	
==>ter' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching varia <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	192	309	
==>D { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	192	309	
==>D { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3185	3294	
==>gs);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3185	3294	
==>gs);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $on <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8290	8396	
==>thod intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11767	11873	
==>thod intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6059	6172	
==>fine a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6059	6172	
==>fine a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6253	6397	
==>n $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6253	6397	
==>n $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4489	4640	
==>_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4489	4640	
==>_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8367	8479	
==>to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8367	8479	
==>to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $even <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11985	12118	
==>ves( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $inst->remove_available( package => $inst_pkg );

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17868	17995	
==>to;

    unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1908	2033	
==>h ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contain <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1908	2033	
==>h ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contain <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5224	5334	
==>($c)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping con <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1128	1230	
==>lidator -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This document d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1128	1230	
==>lidator -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This document d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22486	22587	
==>ntList>?
}
rule LabelledStatement :words {  # see 12.12
      <Identifier> <':'> <Statement>
}
rule Th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17112	17214	
==>_object)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    $$meta = $meta_object;
}
sub p6_initialize_pac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2159	2255	
==>!$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2159	2255	
==>!$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
} <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2049	2144	
==>name.  (For example, if 
a function in C<Some::Module> called C<note> without providing any tags <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2049	2144	
==>name.  (For example, if 
a function in C<Some::Module> called C<note> without providing any tags <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1484	1588	
==>/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1484	1588	
==>/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13290	13418	
==>autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curs <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13290	13418	
==>autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curs <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6954	7086	
==>HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5417	5530	
==>};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5245	5354	
==>};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize to <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	893	991	
==>running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=ov <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	893	991	
==>running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=ov <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13863	13973	
==>( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13863	13973	
==>( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4973	5090	
==>ns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4973	5090	
==>ns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7037	7195	
==>'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <' <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15307	15447	
==>",
      "-R",                                # Generate Rock Ridge directory information
      "-b" => "boot/grub/stage2_eltorito", # Set El <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	133	231	
==>ia::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	133	231	
==>ia::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	115	222	
==>t;
use Perl6::Core::Nil;

package list;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'bl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9043	9144	
==>LSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9043	9144	
==>LSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9468	9578	
==> $set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9468	9578	
==> $set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11597	11755	
==>rminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11597	11755	
==>rminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7653	7814	
==>ead($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7653	7814	
==>ead($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16838	16932	
==>$h.content_encoding

The Content-Encoding header field is used as a modifier to the
media type. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16838	16932	
==>$h.content_encoding

The Content-Encoding header field is used as a modifier to the
media type. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2813	2906	
==><'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	120	249	
==>ethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	120	249	
==>ethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7410	7523	
==>ds = ', unix -any';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends .= ', plugins -any, hask <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1785	1884	
==>named, positional => $positional,
	   invocant => $invocant,
	   named_slurpy => $named_slurpy });
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37887	37995	
==>attribute, and removed both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3717	3819	
==><->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:<->( <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1817	1919	
==><->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:<->( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3077	3169	
==>> unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	77	198	
==>nal

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        i <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	77	198	
==>nal

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13864	13984	
==>d) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13864	13984	
==>d) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the connec <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	595	733	
==>pt ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $di <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	595	733	
==>pt ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4285	4541	
==>port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $doma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4285	4541	
==>port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $doma <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9267	9370	
==>s_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9267	9370	
==>s_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10580	10697	
==>:operator::arrow->new( $l, $l );
	},
	# a -> b -> (a x b)
	pair => do {
		my $a = type::variable::free->new;
		my $b = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12547	12644	
==>hex_chars_more(Rc0,R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true}.

p6_named_character(c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3096	3225	
==>ath = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3096	3225	
==>ath = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1598	1756	
==>IL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1598	1756	
==>IL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15543	15648	
==>nated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15543	15648	
==>nated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10274	10384	
==>ars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10274	10384	
==>ars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17464	17574	
==>t();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17464	17574	
==>t();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23172	23267	
==>can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23172	23267	
==>can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inv <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	954	1069	
==>e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16468	16562	
==>ithout a recompile (such as by simply
copying files), often even while the program is executing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16468	16562	
==>ithout a recompile (such as by simply
copying files), often even while the program is executing <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7739	7839	
==>ee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7739	7839	
==>ee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9772	9887	
==>4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9772	9887	
==>4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10491	10629	
==>cting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10491	10629	
==>cting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connect <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4318	4459	
==>eturn;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	116	208	
==>nt-min) (point-max)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'fac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16129	16226	
==>g mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you ca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16129	16226	
==>g mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17319	17411	
==>",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17319	17411	
==>",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	912	1040	
==>}

sub pads {
    my $self = shift;
    map { @$_ } $self->scopes;
}

sub scopes {
    my $self = shift;
    @{ $self->{scopes} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2065	2197	
==>$t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2065	2197	
==>$t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37985	38079	
==>utine's result, which is a Template text
string if the module recognizes $msg_key, and the unde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37985	38079	
==>utine's result, which is a Template text
string if the module recognizes $msg_key, and the unde <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3275	3411	
==>em Val

Encapsulates a perl value. Usually either a Thunk object, a number or a string. For example

    App(
        Val(
            Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12536	12639	
==>stderr} && !$is_macos;
    $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
    if ($args{v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4603	4745	
==>le    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5256	5397	
==>le    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8605	8731	
==>lyzes the reason for the TODO    
        my %todos;
        foreach my $detail (@{$results{details}}) {
            if ($detai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21859	21951	
==>ry implementation of the Relation role

=head1 VERSION

This document describes Relation::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2091	2192	
==>t::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates i <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2091	2192	
==>t::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	133	252	
==>1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	133	252	
==>1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1656	1781	
==>{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1656	1781	
==>{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	803	918	
==>);
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the par <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	803	918	
==>);
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	313	418	
==>l object to 
# be used in bootstrapping
our $NULL_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(ni <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4498	4600	
==>bject->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## make <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4333	4413	
==>$0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4333	4413	
==>$0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4719	4880	
==>}
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4719	4880	
==>}
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $mat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8793	8903	
==>d_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8793	8903	
==>d_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6707	6822	
==>erse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6707	6822	
==>erse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

m <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4882	4965	
==>ghc/docs/5.04/html/building/winbuild.html
   http://www.reed.edu/~carlislp/ghc6-doc/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	610	736	
==>e struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1094	1220	
==>e struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2267	2367	
==>ly, the first few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2267	2367	
==>ly, the first few bytes of data aren't encrypted well.  If your 
application allows, skip over a kilo <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1665	1885	
==>[\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $dept <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1665	1885	
==>[\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $dept <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4631	4726	
==>spatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18257	18729	
==>m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17405	17505	
==>'^'> <BitwiseANDExpressionNoIn>
}
rule BitwiseORExpression :words {  # see 11.10
      <BitwiseXORExp <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6062	6188	
==>, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5570	5696	
==>, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19398	19498	
==>localize what text the user
sees, you only have to update said separate resource files, and not chang <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19398	19498	
==>localize what text the user
sees, you only have to update said separate resource files, and not chang <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1175	1272	
==>st = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1175	1272	
==>st = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3649	3776	
==>ackage $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3707	3834	
==>ackage $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19375	19464	
==>blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19375	19464	
==>blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusern <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6625	6814	
==>t to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6625	6814	
==>t to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3629	3779	
==>s[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3629	3779	
==>s[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1647	1754	
==>t_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1647	1754	
==>t_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3385	3481	
==>finite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3385	3481	
==>finite::Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13776	13887	
==>orce_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13834	13945	
==>orce_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11012	11117	
==>{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11012	11117	
==>{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	282	475	
==>est_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	282	475	
==>est_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $sel <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	564	693	
==>self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	564	693	
==>self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!member <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6652	6755	
==>pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6652	6755	
==>pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4048	4150	
==>tion ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4048	4150	
==>tion ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5239	5351	
==>= $new;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $type = $self->simplify_type(@_);
		Scalar: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	390	555	
==>];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	390	555	
==>];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6034	6139	
==>y $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6034	6139	
==>y $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4889	5005	
==>tart = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4889	5005	
==>tart = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	499	598	
==>le);
 $newclass.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3865	3958	
==>if (-e $self->pool->file(file($pkg->file)->basename) && !$force) {
        error($pkg->package <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10058	10161	
==>immediate evaluation will not be set at all.  The scope of immediate
validation is kept to the minimum p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10058	10161	
==>immediate evaluation will not be set at all.  The scope of immediate
validation is kept to the minimum p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17309	17417	
==>ode runs (it is analagous to the Perl interpreter
itself, which provides a virtual machine in which Perl code <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17309	17417	
==>ode runs (it is analagous to the Perl interpreter
itself, which provides a virtual machine in which Perl code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1837	1943	
==>xity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1837	1943	
==>xity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	875	979	
==>eneric reducing base class for fmapping nodes.

=head1 SYNOPSIS

    package My::ASTWalker;

    use base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1329	1506	
==>setta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod B <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1329	1506	
==>setta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3136	3271	
==>, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3136	3271	
==>, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	799	914	
==>ppet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	758	868	
==>ppet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13046	13157	
==>e_val { $_[1]->val }

sub reduce_stub {
    my $self = shift;
    die "trying to reduce a stub at runtime";
}

s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	661	765	
==>e;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk/' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1022	1261	
==>ol_structure:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0) <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1222	1359	
==>f{nodes}) {
    print ::Y(\%nodes), "\n";
}

sub comp_cc {
    my ($ccset) = @_;
    my $oldn = 0;
    #::YY(\%nodes);
    while ($oldn != <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1288	1393	
==>e_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub node::slurp { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34547	34777	
==>qual_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33960	34167	
==>qual_to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	802	904	
==>file.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!" <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	802	904	
==>file.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!" <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9249	9358	
==>::Harness::Switches, $ENV{HARNESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1042	1168	
==>name2 => ')',
        assoc => 'non',
        precedence => 'equal',
        other => 'circumfix:<( )>',
    );
    __PACKAGE__ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7089	7195	
==>exp::Parser::space;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\s' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3092	3198	
==>= () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version?
# I fig <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3092	3198	
==>= () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version?
# I fig <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8302	8440	
==>->new(
        $::ENV, 
        closure::signature->new(
            params => closure::params->new(
                        symbol->new("& <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2683	2815	
==>= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_O <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12805	12980	
==>nt |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12805	12980	
==>nt |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1072	1195	
==>elf: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._string <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1072	1195	
==>elf: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._string <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	385	512	
==>Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	385	512	
==>Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2278	2510	
==>or_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2278	2510	
==>or_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8536	8644	
==>he HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://li <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8536	8644	
==>he HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://li <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7277	7470	
==>dy?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7741	7934	
==>dy?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12152	12246	
==>ge/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.ini <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12152	12246	
==>ge/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.ini <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	367	491	
==>ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1895	2019	
==>ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20672	20780	
==>implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17093	17201	
==>implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4685	4786	
==>he 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data may be eithe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4685	4786	
==>he 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data may be eithe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12911	13018	
==>lf->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27050	27157	
==>lf->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4580	4707	
==>e} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }}
        sort {
          $b- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1738	1936	
==>t => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1738	1936	
==>t => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_no <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5825	5940	
==>erator;          
  }

  expect_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2329	2425	
==>eq 'ARRAY' ? undef : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1233	1360	
==>- error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $den <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1233	1360	
==>- error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $den <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3178	3286	
==>$rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3166	3274	
==>$rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3304	3461	
==>alue. Usually either a Thunk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    Para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5106	5243	
==>e,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5106	5243	
==>e,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1729	1825	
==>:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1729	1825	
==>:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4451	4564	
==>m = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4673	4786	
==>m = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	562	732	
==>\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	562	732	
==>\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11554	11660	
==>Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15031	15137	
==>Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	86	180	
==>trict;
use warnings;

use Blondie::Backend::Perl::Builtins;

use UNIVERSAL::require;

sub compi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1798	1892	
==>yed_int
#get_pmc_keyed_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_keyed_int

sub get_has <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19194	19309	
==>data; only
someone already involved in making the program would be editing them.  At
the same time, this information <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19194	19309	
==>data; only
someone already involved in making the program would be editing them.  At
the same time, this information <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3756	3905	
==>ND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $en <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4220	4369	
==>ND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $en <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2848	2980	
==>ub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3041	3173	
==>ub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3082	3204	
==>e,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3082	3204	
==>e,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5515	5701	
==>apping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8992	9178	
==>apping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16370	16468	
==>I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16370	16468	
==>I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10846	10944	
==>ment set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10846	10944	
==>ment set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "univ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28535	28650	
==>self->add_handler('&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10128	10242	
==>= 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4298	4409	
==>elf->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1424	1535	
==>elf->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1135	1263	
==>'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4535	4634	
==>end` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logica <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4535	4634	
==>end` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logica <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1684	1789	
==>(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub Array::reduce (@values ; Code *&expression) r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13511	13637	
==>},

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        ps <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13511	13637	
==>},

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        ps <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14753	14843	
==><escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le") <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14753	14843	
==><escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le") <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	871	969	
==>kend::Foo->compile($program);
    my $result = Blondie::Backend::Foo->execute($compiled);

    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	851	1017	
==>uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	851	1017	
==>uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20360	20455	
==>performs quite slowly; you should only use Example
for testing, development, and study; you shou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20360	20455	
==>performs quite slowly; you should only use Example
for testing, development, and study; you shou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1158	1336	
==>ey}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1158	1336	
==>ey}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13787	13904	
==>the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13787	13904	
==>the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	217	334	
==>l operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	217	334	
==>l operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1349	1456	
==>t {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1349	1456	
==>t {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1	108	
==>odule HTTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BU <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1	108	
==>odule HTTP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BU <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3478	3601	
==>features = ( $self->{values}{features} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user us <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7191	7303	
==>f->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	137	298	
==>s',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	137	298	
==>s',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Autho <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	741	865	
==>ndef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in repla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	741	865	
==>ndef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in repla <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23179	23292	
==>rds {  # see clause 13
      <'function'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2341	2452	
==>untime = shift;
		my $prog = shift;
		
		$self->{runtime} = $runtime;

		$self->reduce($prog);
	}

	sub reduce { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5080	5227	
==>nd ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end y <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5080	5227	
==>nd ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end y <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	577	715	
==>if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $m <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	577	715	
==>if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $m <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	190	301	
==>t Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset ou <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	190	301	
==>t Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset ou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39179	39271	
==>yedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39179	39271	
==>yedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41458	41552	
==>s to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation::E <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	985	1087	
==>ort { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*P <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	985	1087	
==>ort { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	996	1086	
==>tional, procedural, and object-oriented interfaces.  The 
functional and object-oriented in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	996	1086	
==>tional, procedural, and object-oriented interfaces.  The 
functional and object-oriented in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	550	666	
==>ce filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	550	666	
==>ce filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19492	19587	
==>t change
your main program.

I<Note that an update is planned for Locale::KeyedText that will en <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19492	19587	
==>t change
your main program.

I<Note that an update is planned for Locale::KeyedText that will en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7781	7898	
==>on ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7781	7898	
==>on ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32205	32308	
==>ach set's member for language B and displays that; and so on.

I<For the present, Locale::KeyedText expe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32205	32308	
==>ach set's member for language B and displays that; and so on.

I<For the present, Locale::KeyedText expe <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14220	14345	
==>> which will contain:

  ok            did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the test <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7711	7873	
==>andatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7711	7873	
==>andatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	280	472	
==>.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                el <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	280	472	
==>.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                el <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1967	2076	
==>0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression {
  eval { require Compress::Bzip2; debug " <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1155	1257	
==>f->new_pad($param->val => undef);

	$self->count_param;

    return $param;
}

sub enter_scope {
	my $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10090	10207	
==>mp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10090	10207	
==>mp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_en <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9166	9343	
==>:= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF.differ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12643	12820	
==>:= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF.differ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29257	29383	
==>rn { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29536	29662	
==>rn { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4950	5109	
==>$length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4950	5109	
==>$length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2285	2454	
==>e = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event->{num};
            if( defined $sum{$fname}[$n]){
                $event->{m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15346	15462	
==>mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/^.*\. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9217	9334	
==>sers{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9217	9334	
==>sers{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7022	7124	
==>ting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitti <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7022	7124	
==>ting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3058	3152	
==>ns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::count <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3058	3152	
==>ns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::count <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	613	727	
==>c);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	613	727	
==>c);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4086	4173	
==>x-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodControl>.

=cut <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4086	4173	
==>x-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodControl>.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8927	9046	
==>delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8927	9046	
==>delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  } <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3477	3713	
==>pp->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1),
                            App->new(
                                Sym->new('&infix:</>'),
                                App->new( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1279	1396	
==>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1279	1396	
==>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2166	2281	
==>[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2166	2281	
==>[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1282	1384	
==>ix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1282	1384	
==>ix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7077	7182	
==>r level OO/Overload 

runtime. 



- internal rule operators



Internal rule operators share a common API <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6837	6937	
==>r level OO/Overload 
runtime. 

- internal rule operators

Internal rule operators share a common API <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21761	21902	
==>ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20523	20618	
==>{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 ) &&  ! ex <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	943	1037	
==>ng.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	943	1037	
==>ng.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31246	31358	
==>ns:

  package Regexp::NoCode;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER: <==
2	/Users/nnunley/pugs/util/grokprims.pl	748	836	
==>c=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UTF-8" ?><htm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20727	20825	
==>foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names and t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20727	20825	
==>foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names and t <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1140	1249	
==>et 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

ne <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1140	1249	
==>et 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

ne <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8472	8565	
==>ated for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when int <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8472	8565	
==>ated for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when int <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	666	797	
==>rns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diagnostics.joi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1532	1705	
==>ace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                Sort <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3149	3262	
==>syncat} = PGE_OPTABLE_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
}

s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8999	9101	
==>hared libraries (*.so) pugs
      requires. This is necessary so we can copy them on the CD later.
HELP <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1660	1783	
==>dren
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_pa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1660	1783	
==>dren
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_pa <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	212	336	
==>_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	212	336	
==>_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $e <==
2	/Users/nnunley/pugs/util/package-osx.pl	5796	5905	
==>/man3/Perl6::Overview::Data.3
        /usr/local/man/man3/Perl6::Overview::Data.3pm
        /usr/local/man/man <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1476	1621	
==>dency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1476	1621	
==>dency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	7005	7127	
==>eword> 
            #    { return $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER::recompile <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	259	384	
==>um {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.def <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	259	384	
==>um {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.def <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2411	2553	
==>sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2616	2758	
==>sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11070	11174	
==>and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11070	11174	
==>and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12036	12135	
==>ion::Example {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semi <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1560	1680	
==>= sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @fil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1560	1680	
==>= sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @fil <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1466	1563	
==>"selected", either by giving 
them to the unexported C<Log::Selective::select> function or by incl <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1466	1563	
==>"selected", either by giving 
them to the unexported C<Log::Selective::select> function or by incl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2708	2820	
==>rule_decl: $name -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9785	9884	
==>" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9785	9884	
==>" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1753	1857	
==>lue) expected(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13077	13177	
==>hether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because somethi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13135	13235	
==>hether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because somethi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2467	2597	
==>th first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2467	2597	
==>th first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	915	1047	
==>fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	915	1047	
==>fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14944	15041	
==>rget $channel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username $passw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14944	15041	
==>rget $channel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username $passw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	224	317	
==>gs::Grammar::Base';
use Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sor <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4960	5085	
==>attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8437	8562	
==>attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7068	7189	
==>= splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7068	7189	
==>= splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3952	4087	
==>AGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34116	34218	
==>_range

Family: anyof_range

Types: anyof_range (C<X-Y>)

Data: array reference of lower and upper boun <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9575	9681	
==>('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comme <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9633	9739	
==>('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comme <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16417	16540	
==>x} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12838	12961	
==>x} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48506	48596	
==>dd_attribute', (symbol->new('$:version')   => attribute->new('$:version'   => 'str')));
$:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7113	7218	
==>od _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7113	7218	
==>od _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2269	2410	
==>ng of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2269	2410	
==>ng of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %ms <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20680	20783	
==>r", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20680	20783	
==>r", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	381	486	
==>UPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	381	486	
==>UPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14176	14270	
==>$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $targe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14176	14270	
==>$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $targe <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13242	13334	
==>ts of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13242	13334	
==>ts of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6086	6175	
==><object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6086	6175	
==><object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2719	2871	
==>o_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2719	2871	
==>o_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3790	3908	
==>dule)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3790	3908	
==>dule)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21729	21828	
==>>, and not I<Database Language
Independence>.  To further demonstrate the difference, it is useful t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21729	21828	
==>>, and not I<Database Language
Independence>.  To further demonstrate the difference, it is useful t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	86	189	
==>ally be an acccessor - all it's doing is making the
# "source" property of the object fallback to "conte <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	86	189	
==>ally be an acccessor - all it's doing is making the
# "source" property of the object fallback to "conte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14891	15005	
==>ent - This stores a reference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!pare <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14891	15005	
==>ent - This stores a reference to the Document that
this Node and all of its relative Nodes live in.

=item C<$!pare <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2765	2895	
==>}
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2970	3100	
==>}
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15326	15425	
==>item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15326	15425	
==>item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3200	3297	
==>s are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/fgloc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3087	3181	
==>s are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/fgloc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22882	22985	
==>it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22882	22985	
==>it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11663	11848	
==>h' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11663	11848	
==>h' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2361	2480	
==>an ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2361	2480	
==>an ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7947	8058	
==>anslate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HAS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7959	8070	
==>anslate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HAS <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	0	95	
==>module LWP::Simple-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $V <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	0	95	
==>module LWP::Simple-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $V <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2317	2457	
==><,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1058	1173	
==>amed binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1058	1173	
==>amed binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2025	2148	
==>$base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2025	2148	
==>$base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8594	8741	
==>YNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8594	8741	
==>YNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6770	6864	
==>tree[1];  # keys: "pSubBody""pSubIsMulti""pSubLValue""pSubName""pSubParams""pSubType"
        d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18804	18925	
==>mmetric_difference( $other!body ),
    );
}

my method _intersection (Relation::Example $other!) returns Relation::Example <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6290	6413	
==>dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsM <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	673	779	
==>eturn $::TestBuilder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.description' => $params{'$. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	75	186	
==>IS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	75	186	
==>IS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2417	2551	
==>) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2557	2691	
==>) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar | <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16420	16523	
==>.return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param string gram <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20074	20167	
==>as joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20074	20167	
==>as joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2011	2118	
==>y $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

= <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2011	2118	
==>y $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1290	1423	
==>pans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1290	1423	
==>pans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next un <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1031	1124	
==>nted interfaces.  The 
functional and object-oriented interfaces both follow the same basic st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1031	1124	
==>nted interfaces.  The 
functional and object-oriented interfaces both follow the same basic st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	460	555	
==>ST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print(" <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	460	555	
==>ST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print(" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23583	23718	
==>superclasses = @superclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasses;
}

(method superclasses ((opaque <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7812	7924	
==>/HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cleanup($v, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3715	3834	
==>family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  package Regexp::Par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6786	6880	
==>RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    eval <p6ws>? \( <p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2725	2840	
==>:is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    method is_error    () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2725	2840	
==>:is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    method is_error    () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1023	1132	
==>b ruleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate lo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	982	1089	
==>b ruleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2507	2608	
==>ss represents a client's request.  It also contains extra
information passed on by the HTTP server, us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2507	2608	
==>ss represents a client's request.  It also contains extra
information passed on by the HTTP server, us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27180	27335	
==>'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27459	27614	
==>'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9879	9984	
==>._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9879	9984	
==>._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3991	4113	
==>s[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3991	4113	
==>s[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16035	16153	
==>me $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16035	16153	
==>me $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4699	4808	
==>er) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $ti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4699	4808	
==>er) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $ti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3694	3798	
==>phering"), and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3694	3798	
==>phering"), and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14180	14286	
==>) - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14180	14286	
==>) - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {t <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	648	744	
==>ely choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :mai <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	648	744	
==>ely choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :mai <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	75	166	
==>block cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _z <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	75	166	
==>block cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _z <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1921	2044	
==>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule si <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1921	2044	
==>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule si <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2545	2650	
==>also contains extra
information passed on by the HTTP server, useful to the authors of CGI scripts.

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2545	2650	
==>also contains extra
information passed on by the HTTP server, useful to the authors of CGI scripts.

=head <==
2	/Users/nnunley/pugs/util/func_refact.pl	2179	2302	
==>w member count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5951	6072	
==>parens = nparens;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    len = 1;
    if( <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4433	4542	
==>Config->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $bas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2575	2678	
==>n passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2575	2678	
==>n passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	872	983	
==>->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	872	983	
==>->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dump <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20024	20118	
==>set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20024	20118	
==>set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	98	211	
==>s are used in nameless (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some note <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	98	211	
==>s are used in nameless (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some note <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	841	941	
==>ods that are
included via roles will be able to access the Class' private
attributes.  This is "early <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	86	182	
==>d html for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sanity and others have no pos fiel <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	616	745	
==>match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	616	745	
==>match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8426	8579	
==>return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8426	8579	
==>return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 ta <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	298	409	
==>class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	298	409	
==>class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17141	17287	
==>1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13562	13708	
==>1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	296	409	
==>) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 're <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	296	409	
==>) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 're <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7636	7792	
==>\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7693	7849	
==>\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10016	10118	
==>self.parent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10016	10118	
==>self.parent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	7	114	
==>bin/perl

use strict;
use warnings;

use Carp 'confess';
use Test::More tests => 30;

=pod

Mini-Prototype-M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	670	780	
==>r => \\$s, from => \\(0+$-[$_]), to => \\(0+$+[$_]),
        bool => \\1, match => [], named => {}, capture => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3122	3271	
==>ethod current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($respo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3122	3271	
==>ethod current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($respo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8846	8963	
==>x_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.trave <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8846	8963	
==>x_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.trave <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	372	516	
==>read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Fa <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	372	516	
==>read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Fa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15554	15651	
==>leges regarding access to information details, or their technical
skills.  For example, a native F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15554	15651	
==>leges regarding access to information details, or their technical
skills.  For example, a native F <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17870	17977	
==>en have error codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any application recei <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17870	17977	
==>en have error codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any application recei <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1341	1464	
==>ase 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$_[1]} = $_[2] }

    package AST;
    use base 'Unit' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6766	6873	
==>ot be placeholder" if $y->isa("Blondie::TypeSafe::Type::Placeholder");
			if (!$x->isa("Blondie::TypeSafe::T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4563	4746	
==>set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4563	4746	
==>set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () ret <==
2	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	141	241	
==>l5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Internals::install_pragma_value($pkg, $ne <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1269	1412	
==>:
        if (my $method = $_table->{$message}) {
            return $method->($self, @_);
        }
        else {
            if (exists $_tab <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2872	2979	
==>)\s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4934	5036	
==>return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4934	5036	
==>return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39793	39892	
==>odify
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Free So <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39793	39892	
==>odify
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Free So <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33407	33502	
==>ion> except that the returned Relation contains only tuples that are in
all of the source Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37957	38052	
==>ion> except that the returned Relation contains only tuples that are in
all of the source Relati <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2345	2494	
==>[ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    return $output;
}

sub _draw_role {
    my ($r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11901	12012	
==>1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	740	856	
==>s bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	740	856	
==>s bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8507	8629	
==>rrectly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8507	8629	
==>rrectly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3523	3667	
==>if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3523	3667	
==>if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $conten <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6966	7086	
==>=> chr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6966	7086	
==>=> chr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1582	1740	
==>eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<~>',
    );
    __PACKAGE__->add_rule(
        name => '*',
        as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15409	15562	
==>}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        return $name . '{ \' <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	165	295	
==>*@values) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12920	13031	
==>}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27059	27170	
==>}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  } <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3288	3396	
==>on = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3288	3396	
==>on = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17118	17253	
==>t($n)
    }
    sub floor($n) is primitive is safe {
        Num::round_gen($n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5646	5736	
==>Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub reco <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1818	1923	
==>}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1818	1923	
==>}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3668	3807	
==>'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3861	4000	
==>'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8198	8284	
==>rs{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8198	8284	
==>rs{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(norma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20710	20806	
==>.

The documentation on sub-classing includes an ordered list of what
packages a method is looked <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1551	1671	
==>X Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     values  safe   (rw!Array)\
multi Array::values (@arr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20810	20908	
==>BMS natively, and be I<the> back-end which
I recommend above all others for production use.

Most o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20810	20908	
==>BMS natively, and be I<the> back-end which
I recommend above all others for production use.

Most o <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	51	197	
==>r is export {
        my @default = (
            "boring",
            "missing examples",
        );
      pick @arr || @default
}

sub report (@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8167	8317	
==>person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8167	8317	
==>person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_t <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	193	295	
==>rint "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3421	3521	
==>crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3421	3521	
==>crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filt <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4874	4978	
==>libwww-perl library.  It should also be suitable for one-liners.  If
you need more control or access to t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4874	4978	
==>libwww-perl library.  It should also be suitable for one-liners.  If
you need more control or access to t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26891	27028	
==>minmod',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5325	5422	
==>ld_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5325	5422	
==>ld_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Ca <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2472	2580	
==>ttp://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2472	2580	
==>ttp://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8218	8357	
==>h.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8218	8357	
==>h.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3590	3740	
==>return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3602	3752	
==>return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	10	116	
==>rl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(Writ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	10	116	
==>rl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(Writ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8111	8243	
==>();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8111	8243	
==>();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1860	1975	
==>f );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2000	2115	
==>f );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{code} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2081	2211	
==>$field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"(" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2081	2211	
==>$field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"(" <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2109	2232	
==>0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a di <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2109	2232	
==>0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a di <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4384	4475	
==>turn value');
is($Object->superclass, undef, '... $Object got the right method return value' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6286	6377	
==>turn value');
is($Object->superclass, undef, '... $Object got the right method return value' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4941	5061	
==>ix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longe <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4941	5061	
==>ix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3534	3619	
==>NG COMPLETE
## ----------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5436	5521	
==>NG COMPLETE
## ----------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21291	21392	
==>get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44198	44299	
==>get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	503	609	
==>->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	503	609	
==>->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1050	1158	
==>»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2801	2900	
==>ht class name');

is($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, '... got the right <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	623	737	
==>class = shift;
		bless {@_}, $class;
	}

	sub AUTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7497	7640	
==>t_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $pref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7497	7640	
==>t_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $pref <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	829	968	
==>self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = no <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	829	968	
==>self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = no <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4292	4396	
==>eck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4292	4396	
==>eck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	47	149	
==>of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), fro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	47	149	
==>of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), fro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12618	12735	
==>:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12618	12735	
==>:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        roo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2845	2971	
==>er => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handli <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2845	2971	
==>er => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handli <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26796	26920	
==>&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27075	27199	
==>&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16523	16620	
==>complex regexes with if-then assertions.  I
don't want to think about that.  This module is more o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1231	1482	
==>m <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1231	1482	
==>m <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27934	28030	
==>ns the Message Variable value (a string) associated with
the variable name specified in the posit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27934	28030	
==>ns the Message Variable value (a string) associated with
the variable name specified in the posit <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18557	18655	
==>on regular expression compilation and execution) to
parasitize the regexp struct - attempting to ma <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2847	2945	
==>on regular expression compilation and execution) to
parasitize the regexp struct - attempting to ma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7702	7815	
==>f($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	}
    } elsif($s =~ /HAS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	279	394	
==></h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	279	394	
==></h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1160	1257	
==>ticular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1160	1257	
==>ticular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2749	2855	
==>r(${&Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($self, $enum, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14972	15077	
==>e;
	}

	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$ENV{P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	672	825	
==>";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	683	836	
==>";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# X <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5666	5789	
==>(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5666	5789	
==>(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32866	32968	
==>the
C<translate_message()> method, but it has no other side effects.

A Translator object has 2 main at <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32866	32968	
==>the
C<translate_message()> method, but it has no other side effects.

A Translator object has 2 main at <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2317	2424	
==>e all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report a <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2317	2424	
==>e all tracing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15061	15237	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15340	15516	
==>op::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} <==
2	/Users/nnunley/pugs/util/func_refact.pl	2391	2530	
==>int "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6349	6470	
==>backtracking, less stack usage
    return sub {
        my $state = $_[1] || $node;
        my $st = $state->( $_[0], u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2395	2537	
==>mplate = $rule_templates{$rule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $templat <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2608	2709	
==>$test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for buildin <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2608	2709	
==>$test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for buildin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4105	4343	
==>$args) {
                        #warn "our first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	43	164	
==>ct;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @tokens = ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2693	2881	
==>cted by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2693	2881	
==>cted by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14622	14740	
==>RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the outpu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14622	14740	
==>RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the outpu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8005	8143	
==>e($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8005	8143	
==>e($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($matc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7458	7603	
==>| <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9459	9563	
==>of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**100',
		  '-inf' => '-100**100**100',
		  'NaN' => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1714	1818	
==>$_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

1;

# Local variables:
# c-indentation-st <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2598	2698	
==>perty_value{$P};
    delete $O.property_attribute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1033	1159	
==>s = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1033	1159	
==>s = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33528	33734	
==>arams->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$class' => 'opaque'),                
                          ),
                ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10138	10259	
==>$.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10138	10259	
==>$.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	473	577	
==>om}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	473	577	
==>om}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{name <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1243	1594	
==>eplaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1243	1594	
==>eplaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4531	4665	
==>s = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4531	4665	
==>s = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_di <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5421	5528	
==>r "Couldn't open file ${srcfile}.p6 for writing";
    print {$f} $src;
}
else {
    print "$src\n";
}

__END <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	231	329	
==>rict;
use warnings;
no warnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::G <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37364	37459	
==>join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41913	42008	
==>join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6057	6188	
==>ng example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5848	5975	
==>ng example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "in <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2331	2486	
==>line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12th line









GROK

# -------------------------------- <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2191	2301	
==>line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line
12th line
GROK <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	821	925	
==>o 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  I <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	821	925	
==>o 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4435	4570	
==>return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4628	4763	
==>return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	623	718	
==>ral information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	623	718	
==>ral information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 en <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	107	202	
==>ML::Template;
#use perl5:Text::Textile qw(textile);

print header();
#my $template  = HTML::Temp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17822	18010	
==>'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18101	18289	
==>'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1206	1319	
==>ncatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1206	1319	
==>ncatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6746	6887	
==>unregister {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        packa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	662	756	
==>output);
  my %results = $strap->analyze_fh($name, $test_filehandle);
  my %results = $strap->a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	648	747	
==>/www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses| <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	648	747	
==>/www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses| <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16194	16290	
==>al Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibri <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16252	16348	
==>al Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibri <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2760	2903	
==>start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2760	2903	
==>start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7059	7166	
==>ore often it is used by 
a block cipher mode role to add some information to the output.

A default implemen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7059	7166	
==>ore often it is used by 
a block cipher mode role to add some information to the output.

A default implemen <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12934	13038	
==>base qw/Reducer DynamicScopes/;

sub new {
    bless { params => undef, param_stack => [] }, shift;
}

su <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6443	6556	
==>nteger(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11215	11336	
==>r was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11215	11336	
==>r was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3251	3344	
==>::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3468	3561	
==>::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::prin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	193	325	
==>ool $isWritable;  # is rw
has Bool $isLazy;
has Str $paramName;
has Perl::Cxt $paramContext;
has Any $paramDefault;

# deriving (Show <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3485	3610	
==>lt) = @_;
    #print "emitting grammar in perl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13668	13769	
==>is type os span is used to represent continuous measurements, such as times, temperatures, or price ra <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13668	13769	
==>is type os span is used to represent continuous measurements, such as times, temperatures, or price ra <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1111	1207	
==>print "name: $name - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my $equiv <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7213	7392	
==>ast;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;

    @found;
}

sub _caller {
    my $d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9419	9761	
==>p {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $sat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10896	11238	
==>p {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $sat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	533	659	
==>substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	511	635	
==>substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	516	623	
==>, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi sub <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	516	623	
==>, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi sub <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	130	224	
==>ost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	130	224	
==>ost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	814	982	
==>x:<times>' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '-' exp %prec NEG   { $out= [ $_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5414	5521	
==>gs_version pugs_revision osname runcore timestamp duration>),
    (map { $smoke{summary}{$_} } qw<total ok f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1824	1959	
==>mit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +In <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1824	1959	
==>mit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +In <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8790	8892	
==>tine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8790	8892	
==>tine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16408	16536	
==>urce) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16408	16536	
==>urce) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3170	3285	
==>han 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3170	3285	
==>han 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	502	768	
==>tr {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	502	768	
==>tr {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1095	1193	
==>($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1153	1251	
==>($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2179	2282	
==>lf->module_name || $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version | <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1285	1387	
==>lf->module_name || $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version | <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2749	2868	
==>ompiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2749	2868	
==>ompiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1039	1143	
==>:Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1039	1143	
==>:Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17016	17131	
==>eue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17016	17131	
==>eue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	133	245	
==>re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12691	12846	
==>neric method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12691	12846	
==>neric method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!u <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4726	4841	
==>tet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = sp <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4726	4841	
==>tet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = sp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13276	13378	
==>is method returns a recurrence set containing only the elements that 
satisfy the given boolean functio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13276	13378	
==>is method returns a recurrence set containing only the elements that 
satisfy the given boolean functio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6244	6348	
==>$_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading => set( %full_map.values <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1097	1298	
==>, $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1097	1298	
==>, $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5233	5379	
==>gs;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my $class = shift;
    bless {
        env  => {},
        ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2325	2441	
==>hing Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2542	2658	
==>hing Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	442	554	
==>nfo 
# - module, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	442	554	
==>nfo 
# - module, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2706	2835	
==>ther *nix
      systems, too. For now, I made the script stop if you aren't running under
      Linux, you may want to change that <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	337	436	
==>e all the distribution components you need.

= WHY

You should use this module as a starting point t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24607	24753	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24886	25032	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	708	816	
==>) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	766	874	
==>) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

su <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15732	15827	
==>variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15790	15885	
==>variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10905	11003	
==>odel::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10905	11003	
==>odel::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_perso <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	22	131	
==>:Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashif <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	22	131	
==>:Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashif <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4662	4754	
==>_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4662	4754	
==>_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3988	4184	
==>full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7465	7661	
==>full_map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6600	6769	
==>i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5104	5273	
==>i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2749	2847	
==>hod is_nil))
        (($current send (has_method $label)) and (= $method ($current send (get_method <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1897	1986	
==>l5::X1::CodeCompile->new($type=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30422	30523	
==>ember being an an exclusive alternative for the rest
of the set. There is a separate template module f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30422	30523	
==>ember being an an exclusive alternative for the rest
of the set. There is a separate template module f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2858	2993	
==>32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2858	2993	
==>32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12936	13033	
==>generic($$) = {
	my $t_of_param = type($$)->left;
	my $prev_generic = generic($.body);

	if ($t_of <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5775	5885	
==>y "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5833	5943	
==>y "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7082	7203	
==>er = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0);
    if(sv ! <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21767	21860	
==>,xdigit(_)).
class_member(class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_mem <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7422	7540	
==>g components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7422	7540	
==>g components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_di <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	692	806	
==>1 DESCRIPTION

Base class for:

    JIB::Package::Source
    JIB::Package::Binary
    JIB::Package::Installed

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10746	10892	
==>qw< minmod >;
    return $S->object(quant => 0, 1);
  });


  ### '('

  $self->add_handler('(' => sub {
    my ($S) = @_;
    $S->nextchar;

    p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30973	31071	
==>s share the following attributes (accessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parse <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	611	732	
==>match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	611	732	
==>match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clo <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4591	4717	
==>}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('MET <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4450	4576	
==>}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('MET <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	417	551	
==>rns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	417	551	
==>rns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        f <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9059	9161	
==>used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_heig <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9059	9161	
==>used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_heig <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	144	258	
==>structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs par <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	144	258	
==>structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4391	4491	
==>o => $target );

Moves a file or directory to the target.

Returns true on success, false on failure. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3459	3611	
==>ss $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3459	3611	
==>ss $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	775	940	
==>1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	744	901	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1351	1447	
==>Instead of printing the results, straps
provide them as raw data.  You can also configure how the <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26282	26389	
==>efore <'^'>> <ClassRanges> <']'> #lookahead
    | <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30408	30500	
==>e Perl source
directory.

Please use the CPAN bug ticketing system at L<http://rt.cpan.org/>. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8974	9183	
==>'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol-> <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5259	5370	
==>{ $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } for `@{[$rev_get_cmd]}`;
    $self->{_revision} ||= "u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7951	8080	
==>() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7951	8080	
==>() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @ar <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3005	3100	
==>orrect" :)
method doy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_year :: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37342	37437	
==>has already been
loaded, returning true if so and false if not.

=item C<load_template_module( $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37342	37437	
==>has already been
loaded, returning true if so and false if not.

=item C<load_template_module( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8238	8411	
==>($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XX <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8238	8411	
==>($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XX <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17003	17127	
==>de { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17003	17127	
==>de { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7574	7690	
==>sh @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7767	7883	
==>sh @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3374	3460	
==>catenation(noop) --> {true}.
p5_concatenation_more(W, Z) --> p5_quantified(X), p5_conca <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9528	9722	
==>hen "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9528	9722	
==>hen "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26581	26695	
==>ClassRanges>
}
rule NonemptyClassRangesNoDash {  # see 15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23051	23151	
==>ring as a regex with a variable in it, that '$' will be interpreted as
an anchor. If you want to incl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6687	6797	
==>This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6687	6797	
==>This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2022	2142	
==>!$m) {
		print "not ok \# Match failed.\n";
	    } else {
		print STDERR "  eval $expr\n" if $debug_warnings;
		my $res = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	59	173	
==>g;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
use File::Basename  qw<basename>;
use Term::ANSI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5902	6009	
==>ame not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub specia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5890	5997	
==>ame not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub specia <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8837	8926	
==>calling metaclass method fails';

fails_ok { $iFoo->another_singleton_test_on_object } '.. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3172	3306	
==>a};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3172	3306	
==>a};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5304	5430	
==>tor table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "Operator add <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2724	2840	
==>mes) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $attr_name )) {
            return Bo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10017	10114	
==>ning all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10017	10114	
==>ning all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3008	3132	
==>LF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6485	6609	
==>LF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5376	5524	
==>ch, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section works <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5840	5988	
==>ch, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section works <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6949	7055	
==>ents until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6949	7055	
==>ents until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15217	15314	
==>s rigorously defined, such that there
should be no ambiguity when trying to invoke or implement it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15217	15314	
==>s rigorously defined, such that there
should be no ambiguity when trying to invoke or implement it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8884	9030	
==>"$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8884	9030	
==>"$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1409	1501	
==>ir->file( $self->config->_available );
}

=head2 $file = $inst->files_list( $pkg_name )

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19393	19489	
==>on statements are structured as
standard data manipulation statements but that the target relatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19393	19489	
==>on statements are structured as
standard data manipulation statements but that the target relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	674	793	
==>y ($curr) = caller $level++) {
    $pkg = $curr, last if $prev and $prev eq "base" and $curr ne "base";
    $prev = $cur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18739	18854	
==>he first C<package> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        unti <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18739	18854	
==>he first C<package> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        unti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6624	6788	
==>eturn sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $lab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6624	6788	
==>eturn sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $lab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1705	1817	
==>aders;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1705	1817	
==>aders;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    S <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3060	3162	
==>and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry la <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3060	3162	
==>and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry la <==
2	/Users/nnunley/pugs/util/package-osx.pl	3752	3880	
==>ocal/man/man3/Perl6::Bible::A01.3pm
        /usr/local/man/man3/Perl6::Bible::A02.3pm
        /usr/local/man/man3/Perl6::Bible::A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21387	21483	
==>ISA, __PACKAGE__;
  push @Regexp::Parser::suspend::ISA, __PACKAGE__;
  push @Regexp::Parser::ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	699	838	
==>ol  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	710	849	
==>ol  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21851	21973	
==>$self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18272	18394	
==>$self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17507	17608	
==>y of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17507	17608	
==>y of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4703	4827	
==>n;

    for my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    }
    
    retu <==
2	/Users/nnunley/pugs/util/package-osx.pl	3802	3902	
==>ocal/man/man3/Perl6::Bible::A02.3pm
        /usr/local/man/man3/Perl6::Bible::A03.3pm
        /usr/lo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23875	23968	
==>::arrow->new(
		type::variable::free->new,
		my $b = type::variable::free->new,
	);
	is($type- <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4205	4309	
==>ment>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4205	4309	
==>ment>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	446	540	
==>ms->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $params->{fixity <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1642	1745	
==>two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1642	1745	
==>two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11372	11482	
==>e_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11372	11482	
==>e_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1086	1228	
==>d BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $me <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1086	1228	
==>d BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3010	3110	
==>eturn "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3010	3110	
==>eturn "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8986	9112	
==>spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the op <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8986	9112	
==>spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the op <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4789	4897	
==>_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8035	8155	
==>ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::conc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7761	7875	
==>ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::conc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	153	259	
==>vitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	153	259	
==>vitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11558	11655	
==>l, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11558	11655	
==>l, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22520	22686	
==>ew(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42309	42474	
==>ew(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6035	6168	
==>f;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6035	6168	
==>f;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1600	1727	
==>$O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $O.property_value.exists($P) {
        $O.property_value($P) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33671	33772	
==>egated

=head2 space

Family: space

Types: space (C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 d <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	667	785	
==>on, %.3f type checking, %.3f emission, %.3f binding, %.3f execution)\n", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	358	460	
==>ml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML::Generator(":pretty" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4610	4742	
==>pturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4803	4935	
==>pturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	264	383	
==>d idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	264	383	
==>d idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	427	536	
==>ix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	427	536	
==>ix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	639	737	
==>ersion_list code from lib.pm because I am hoping that perl6
# and the new module functionality will <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	639	737	
==>ersion_list code from lib.pm because I am hoping that perl6
# and the new module functionality will <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2289	2383	
==>> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2378	2472	
==>> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> c <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1464	1567	
==>/MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not supported on your platfo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7588	7721	
==>leop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7332	7460	
==>leop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8348	8439	
==>ammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2173	2264	
==>ammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statemen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	575	707	
==>= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fre <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	575	707	
==>= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fre <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5768	5875	
==>niverse,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5768	5875	
==>niverse,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9242	9361	
==>push(@names5,$pn);
	} else {
	    push(@names5,'$'.p6_mangle($pname));
	}
	my $aname = $pname;
	$aname = '?'.$aname if $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	735	843	
==>el = str->new($label) 
        unless (blessed($label) && $label->isa('str'));
    
    my $args = list->new( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4552	4698	
==>> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4552	4698	
==>> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2278	2399	
==>.. $params->elems->to_native) {
        my $value; 
        my $param      = $params->fetch(num->new($i));
        my $par <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4194	4293	
==>k {
	my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	$self->add_definition($node, "$type <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	495	633	
==>oc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # correspondin <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	495	633	
==>oc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # correspondin <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3233	3342	
==>} = PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @operatorSta <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	433	534	
==>to a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	433	534	
==>to a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	912	1070	
==>eturn;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	876	1026	
==>eturn;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	249	369	
==>ly.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	249	369	
==>ly.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26528	26623	
==>ial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in whi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31080	31175	
==>ial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in whi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6671	6899	
==>way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6671	6899	
==>way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13563	13663	
==>ndler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7771	7871	
==>ndler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	257	413	
==>ne      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta} <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	308	433	
==>ne => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{meta} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1974	2077	
==>me} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1974	2077	
==>me} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14597	14694	
==>)

This routine works just like encode_entities, except that the replacement
entities are always C <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14597	14694	
==>)

This routine works just like encode_entities, except that the replacement
entities are always C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7082	7180	
==>malize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7082	7180	
==>malize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(nor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3745	3917	
==>code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{fr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3885	4057	
==>code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{fr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7528	7658	
==>ify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _no <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7528	7658	
==>ify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _no <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2935	3053	
==>eresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2935	3053	
==>eresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5379	5493	
==>fine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5379	5493	
==>fine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_typ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7497	7625	
==>his entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	798	926	
==>his entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24316	24415	
==>single member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28868	28967	
==>single member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2531	2630	
==>nd to provide match results.  This
module is an experiment, to see if it is possible to use the rege <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6206	6355	
==>const ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( unin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6206	6355	
==>const ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( unin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2399	2541	
==>ethod header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23270	23356	
==>lobal(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx,F <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7017	7141	
==>sa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7017	7141	
==>sa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a sp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13134	13243	
==>bstr target, pos, 1
    $I0 = index "nrtfae0", $S0
    if $I0 == -1 goto addchar
    $S0 = substr "\n\r\t\f\a\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2068	2173	
==>y ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in character class") if $cc;
    return $S->force_object <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12806	12928	
==>if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12806	12928	
==>if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3699	3798	
==>ed on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a str <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3699	3798	
==>ed on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3240	3333	
==>ipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the clos <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3240	3333	
==>ipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the clos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22618	22733	
==>d1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this c <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2370	2461	
==>, qw(-w ./util/testgraph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1463	1581	
==>re
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1463	1581	
==>re
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	300	406	
==>tter::Rule::Perl5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	559	668	
==>sed by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4037	4146	
==>sed by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1346	1459	
==>tor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1346	1459	
==>tor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19022	19129	
==>[ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20380	20487	
==>[ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25540	25638	
==>represents (or gives the name of a condition being reported, if it is used
as an exception payload) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25540	25638	
==>represents (or gives the name of a condition being reported, if it is used
as an exception payload) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3145	3275	
==>names\n";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB S <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5998	6132	
==>end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5998	6132	
==>end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3767	3891	
==>i);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "Use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3767	3891	
==>i);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "Use <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	194	325	
==>y $class = shift;
    bless {
        params => undef,
        param_stack => [],
    }, $class;
}

sub execute {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	4	122	
==>strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use F <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	4	122	
==>strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13421	13647	
==>ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13700	13926	
==>ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19640	19766	
==>OS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16061	16187	
==>OS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22402	22541	
==>pture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22681	22820	
==>pture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3703	3801	
==>, and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with yo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3703	3801	
==>, and any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with yo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11998	12083	
==>(char(C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	979	1104	
==>niq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	979	1104	
==>niq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2275	2380	
==>f $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2275	2380	
==>f $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_h <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	820	929	
==>thod get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	820	929	
==>thod get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1784	1887	
==>ends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1842	1945	
==>ends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5731	5829	
==>er 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Conf <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5731	5829	
==>er 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Conf <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	205	307	
==>st check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	205	307	
==>st check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5689	5788	
==>ss it until we have know how both these interfaces can be
# addressed.  One possibility is to return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5689	5788	
==>ss it until we have know how both these interfaces can be
# addressed.  One possibility is to return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8084	8196	
==>t.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8142	8254	
==>t.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8196	8352	
==>t ("$method"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4455	4589	
==>sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4677	4811	
==>sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5305	5452	
==>This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5769	5916	
==>This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	963	1068	
==>r single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_differ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	963	1068	
==>r single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_differ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	15	149	
==>t::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	15	149	
==>t::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12051	12150	
==>vious( $x )`

Returns the element in the recurrence that is right before the parameter.

- `current( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12051	12150	
==>vious( $x )`

Returns the element in the recurrence that is right before the parameter.

- `current( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	368	460	
==>[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1095	1185	
==>[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4450	4543	
==>KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4450	4543	
==>KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2175	2281	
==>s copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2175	2281	
==>s copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!hea <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9433	9546	
==>if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_c <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	110	211	
==>__PACKAGE__)).'.pm'};
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    us <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	356	454	
==>TSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	356	454	
==>TSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7690	7854	
==>',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'ta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7690	7854	
==>',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'ta <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1605	1721	
==>r;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() inste <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1605	1721	
==>r;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() inste <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9755	9868	
==>0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::rebless_with_prefix($p,'PIL: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1876	2004	
==>s);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach my $superclass <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	52	145	
==>st::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!outpu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	52	145	
==>st::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!outpu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	36	146	
==>TER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	36	146	
==>TER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3452	3551	
==>e GRUB tarball is saved as --grub-local.
  --pugs=$pugs
    mklivecd.pl takes --pugs as the binary t <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2237	2344	
==>lBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

S <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2237	2344	
==>lBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

S <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	149	231	
==>ble/lib/Perl6/Bible/S05.pod
  http://www.nntp.perl.org/group/perl.perl6.language/20 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6281	6383	
==>gly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6281	6383	
==>gly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event< <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7407	7540	
==>al_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    } <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7407	7540	
==>al_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8729	8888	
==>nless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # ad <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8729	8888	
==>nless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # ad <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3598	3713	
==>ument;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3598	3713	
==>ument;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3794	3911	
==>func 'atanh';
trig_func 'sech';
trig_func 'cosech';
trig_func 'cotanh';
trig_func 'asech';
trig_func 'acosech';
trig_f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9866	9960	
==>".

Recurrence sets can be combined with union, intersection, difference, and a few
other opera <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9866	9960	
==>".

Recurrence sets can be combined with union, intersection, difference, and a few
other opera <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17378	17480	
==>msg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17378	17480	
==>msg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4761	4863	
==>ven.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faster. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4761	4863	
==>ven.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faster. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	199	302	
==>rd if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	199	302	
==>rd if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => ti <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	501	638	
==>$line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	501	638	
==>$line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18753	18856	
==>ply its $document and optional
$parent_node though; you can produce a direct clone like this:

    my $c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18753	18856	
==>ply its $document and optional
$parent_node though; you can produce a direct clone like this:

    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	233	346	
==>one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	233	346	
==>one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3362	3490	
==>_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3362	3490	
==>_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1087	1229	
==>eturn
      unless defined $input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12836	12961	
==>::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      return <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2349	2454	
==>e <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2349	2454	
==>e <= $other.size && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35865	35963	
==>turns a new Relation::Example that has the same heading
and whose body contains all of the tuples t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37897	37995	
==>turns a new Relation::Example that has the same heading and
whose body contains all of the tuples t <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4575	4688	
==>ndings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4967	5080	
==>ndings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	21	128	
==>t[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	21	128	
==>t[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6591	6712	
==>ld_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6591	6712	
==>ld_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22562	22687	
==>2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18983	19108	
==>2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	837	935	
==>odule provides information about the server your CGI is running on. It also 
attempts to provide so <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	837	935	
==>odule provides information about the server your CGI is running on. It also 
attempts to provide so <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11373	11481	
==>9.3.1
      <StrDecimalLiteral>
    | <HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrU <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13213	13318	
==>$.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13213	13318	
==>$.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2714	2858	
==>[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2714	2858	
==>[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1608	1706	
==>nteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1608	1706	
==>nteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1728	1830	
==>};



# ----- the following were included only for performance reasons,

# because they are too frequen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1658	1757	
==>};

# ----- the following were included only for performance reasons,
# because they are too frequen <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3869	3966	
==>omorrow", and "yesterday" return the appropriate date.

Any other string will be passed to `Date:: <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3869	3966	
==>omorrow", and "yesterday" return the appropriate date.

Any other string will be passed to `Date:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7298	7406	
==>->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural functions seem more c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16982	17077	
==>t a certain localization methodology
in an easily accessable manner, such that would not be poss <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16982	17077	
==>t a certain localization methodology
in an easily accessable manner, such that would not be poss <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2572	2675	
==>script) {
    system("$^X $smoke_upload_script $html_location") == 0
        or die "Couln't run smoke u <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5741	5859	
==>_match2_1";
    goto token_match;
    bsr_token_match2_1:
    goto found_oper if $operator;          
  }

  expect_ope <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1469	1577	
==>::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1469	1577	
==>::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1094	1206	
==>s is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alterna <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1094	1206	
==>s is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alterna <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2050	2157	
==>asy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2050	2157	
==>asy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16097	16190	
==>d parameter $document, and
whose Node Type attribute is set from the named parameter $node_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16097	16190	
==>d parameter $document, and
whose Node Type attribute is set from the named parameter $node_typ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1200	1327	
==>re_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
} <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1200	1327	
==>re_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	151	252	
==>ule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	357	458	
==>ule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	73	168	
==>ent.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	73	168	
==>ent.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
meth <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10801	10919	
==>ove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10801	10919	
==>ove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6184	6285	
==>6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6184	6285	
==>6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16254	16348	
==>ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
corre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16254	16348	
==>ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
corre <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47322	47480	
==>ch($e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38751	38852	
==>EGEX:  ", $parser->qr, "\n";
  }

The output is:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4269	4356	
==>82845904523536028747135266249775724709369995957496696762772407663;
    # http://www.rese <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	482	595	
==>d == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $hea <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	482	595	
==>d == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $hea <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1913	2019	
==>Bin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1913	2019	
==>Bin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bi <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	712	888	
==>dir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.requi <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	712	888	
==>dir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.requi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1805	1916	
==>a
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1865	1976	
==>a
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2475	2612	
==>art_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2475	2612	
==>art_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2848	2969	
==>>new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_object;

=cut

sub extract_meta_object {
    my $se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1435	1540	
==>text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	127	219	
==>l::Scripts;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
u <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2260	2371	
==>od as (--> Named) { $.name => self }
    }

    class Getopt::Argument::Style::Clustered is Getopt::Argument::St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	601	710	
==>"Error in compile: unknown parameter '$_'" 
        for keys %$param;
    #print 'rule source: ', $self->{so <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2719	2823	
==>tatus::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2719	2823	
==>tatus::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    meth <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6631	6757	
==>Array::as_str (@array:) returns Str {
    join(" ",@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@ <==
2	/Users/nnunley/pugs/util/func_refact.pl	833	945	
==>nf{initial}}) . "\n";
	doUnion (@{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$nod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	491	637	
==>$.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	491	637	
==>$.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1499	1610	
==>re enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natur <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1499	1610	
==>re enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8702	8811	
==>ghter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6233	6338	
==>ghter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4409	4611	
==>re;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4276	4471	
==>re;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30281	30376	
==>s
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$heading>) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34833	34928	
==>s
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$heading>) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4088	4237	
==>:= (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4100	4249	
==>:= (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match an <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	251	360	
==>simple assert

=head1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20330	20430	
==>worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriente <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24882	24982	
==>worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriente <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	774	1012	
==>:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	775	1013	
==>:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1492	1621	
==>nd_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1492	1621	
==>nd_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3803	3911	
==>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4020	4128	
==>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4614	4736	
==>} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4397	4514	
==>} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Ge <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1264	1363	
==>ion is meant to show the power of Perl 6 defaults and
Currying in a real context.

The newton functi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36641	36735	
==>s assumes that a Template corresponding to the Message could be
found using the Translator obje <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36641	36735	
==>s assumes that a Template corresponding to the Message could be
found using the Translator obje <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	550	682	
==>undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script ) <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	550	682	
==>undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script ) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5426	5586	
==>=> $Object,
    '%:methods' => {
        'resolve' => $_resolve,
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            :: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8542	8626	
==>ifier_spec_neg([-s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x| <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2436	2567	
==>ty => 1,
							body => "type_convert_${from}_${to}",
							type => [$from => $to],
						),
					),
				),	
			),
			(ref $node)-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2353	2465	
==>new(%$node, struct_equiv => $reduced_struct);
}

sub can_reduce {
	my $self = shift;
	my $node = shift;
	Scalar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15761	15886	
==>cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15755	15880	
==>cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2444	2557	
==>wing the return value away.
Encryptions after this point will be using stronger portions of the keystream.
(Just r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2444	2557	
==>wing the return value away.
Encryptions after this point will be using stronger portions of the keystream.
(Just r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18632	18726	
==>2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18632	18726	
==>2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23730	23821	
==>::Engine::Example> is bundled with Rosetta and
implements a reference implementation of a Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23730	23821	
==>::Engine::Example> is bundled with Rosetta and
implements a reference implementation of a Ro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12556	12673	
==>ine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlyin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12556	12673	
==>ine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlyin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10353	10457	
==>- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.it <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10353	10457	
==>- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2902	3021	
==>P_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2902	3021	
==>P_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14716	14831	
==>str $repr) (hash %params)) returns opaque
    ((= %attrs (hash new))
     (= &dispatcher ($class: send (dispatcher : <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6308	6415	
==>>struct_equiv);
}

sub mangle_sym_name {
	my $self = shift;
	my $sym = shift;

	require charnames;
	
	$sym = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14095	14194	
==>given to specify which
characters to consider unsafe (i.e., which to escape). The default set
of cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14095	14194	
==>given to specify which
characters to consider unsafe (i.e., which to escape). The default set
of cha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5880	6003	
==>$.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An obj <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5880	6003	
==>$.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An obj <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1796	1924	
==>ered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1796	1924	
==>ered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8624	8732	
==>=> $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8624	8732	
==>=> $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12915	13053	
==>),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, IN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12915	13053	
==>),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, IN <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10206	10310	
==>ist = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A la <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10206	10310	
==>ist = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A la <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4254	4351	
==>>value }
sub as_pil_tree { $_[0]{'pil_tree'}->value }
sub as_pil_code { $_[0]{'pil_code'}->value } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35123	35218	
==>xp::Parser::branch>,
which is used when two of the same node are matched in succession.  We
also <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	455	578	
==>Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submetho <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	455	578	
==>Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submetho <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4103	4184	
==>3741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&6 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4103	4184	
==>3741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&6 <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	135	243	
==>e  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wa <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	135	243	
==>e  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11124	11232	
==>d die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata removed");

    return 1;
}

=h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24423	24523	
==>_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elemen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28975	29075	
==>_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elemen <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17157	17254	
==>001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do an <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22257	22354	
==>001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do an <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	426	533	
==>role.addMethod(Method.new(...))

 $role.apply;

=head1 DESCRIPTION

This object represents a Role.

A Role i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15348	15455	
==>ile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the first argument
# for success, or ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3221	3324	
==>cipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3221	3324	
==>cipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6822	6925	
==>st argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6822	6925	
==>st argument to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<sta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2937	3057	
==>@a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2937	3057	
==>@a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7815	7938	
==>- an optional "continuation"

  $capture       - capture then entire match. For example:

  

  # returns a Match object tha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7550	7670	
==>- an optional "continuation"
  $capture       - capture then entire match. For example:
  
  # returns a Match object tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23119	23219	
==>ups) in the regex.

=item captures

An array reference to the 'open' nodes.

=item flags

An array re <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	235	336	
==>s a single invocant typed to the
Role it is attached to (however, this is a trend and not a rule).

=i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	343	461	
==>eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP suppo <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	378	494	
==>eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP suppo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13698	13801	
==>::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13698	13801	
==>::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a pe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20599	20697	
==>their class/object attributes are private, so you must use accessor
methods.  Relation does not dec <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25151	25249	
==>their class/object attributes are private, so you must use accessor
methods.  Relation does not dec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9611	9742	
==>xists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9611	9742	
==>xists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	713	812	
==>tes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	713	812	
==>tes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that the <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3626	3743	
==>oundary  { \\ b }
#rule element_boundary { \< , \> } # punt for now

rule subrule                { ([\<\<|\<|\x[abd]]) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6910	7033	
==>(handler == NULL) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3749	3936	
==>ots')} = (); # just ref = []?
            },

            'array_push' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5915	6014	
==>_open
{
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<va <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2462	2645	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2462	2645	
==>ment => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2795	2893	
==>>set($self->reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	161	277	
==>un::Container::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

cl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	460	622	
==>ELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name e <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	460	622	
==>ELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28248	28340	
==>arnings enabled.

=item C<HARNESS_VERBOSE>

If true, Test::Harness will output the verbose re <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17434	17519	
==>1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_Re),F0,F0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34469	34565	
==>nd Member Names is set from the named parameter
@member_names (an array ref).

Some example usage <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34469	34565	
==>nd Member Names is set from the named parameter
@member_names (an array ref).

Some example usage <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8772	8873	
==>ct using an existing Recurrence object.

- `universal_set()`

Creates an object with a continuous span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8772	8873	
==>ct using an existing Recurrence object.

- `universal_set()`

Creates an object with a continuous span <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21988	22089	
==>.  When
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the first o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21988	22089	
==>.  When
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the first o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4109	4262	
==>ay of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4109	4262	
==>ay of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Memb <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13152	13286	
==>an = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duratio <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13152	13286	
==>an = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duratio <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3795	3920	
==>t keys %seen ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	507	650	
==>xt( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	507	650	
==>xt( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1497	1614	
==>embers.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1497	1614	
==>embers.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	194	298	
==>method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::Name <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	194	298	
==>method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::Name <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3062	3163	
==>t {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&com <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3120	3221	
==>t {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&com <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6517	6623	
==>vents<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop th <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6517	6623	
==>vents<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1581	1684	
==>e{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1581	1684	
==>e{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13831	13955	
==>$body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1311	1435	
==>$body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2334	2474	
==>ghter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2334	2474	
==>ghter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20033	20127	
==>means that force_object()
should be used to create stand-alone objects.

Each object now has an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7985	8084	
==>$self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7985	8084	
==>$self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Pro <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1726	1837	
==>f->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1726	1837	
==>f->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26578	26680	
==>ential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #defi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	939	1043	
==>_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	939	1043	
==>_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11108	11229	
==>1
    inc pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  subr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4672	4759	
==>5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ",", digits_int(Max).
p5_ra <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16358	16444	
==>m(modify(M),F0,F0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23216	23357	
==>(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19637	19778	
==>(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1002	1207	
==>e_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1002	1207	
==>e_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2352	2469	
==>::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2352	2469	
==>::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	486	619	
==>se($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	486	619	
==>se($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11055	11182	
==>as $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11055	11182	
==>as $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10295	10441	
==>[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10295	10441	
==>[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	844	934	
==>ocument describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	844	934	
==>ocument describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1311	1450	
==>ir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$Control -C $meta_d <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1930	2031	
==>m =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelud <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3789	3890	
==>edly 
with your data.  Finally, call the finish() method to return any leftover data 
and clear the ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3789	3890	
==>edly 
with your data.  Finally, call the finish() method to return any leftover data 
and clear the ci <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2886	2997	
==>all the parameters as a list.  The order in which they were
present in the query string is preserved.

=item C<$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2886	2997	
==>all the parameters as a list.  The order in which they were
present in the query string is preserved.

=item C<$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37330	37438	
==>t(and => 0);
    });
  }

We've added a handler, and added an argument to the constructor.  The
argument is a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1408	1531	
==>ative type";            
    $self->{$key->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($self, $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7876	8046	
==>::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11353	11523	
==>::= &exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $ot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3176	3290	
==>l $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3393	3507	
==>l $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $int <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	94	225	
==>t {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	94	225	
==>t {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7996	8097	
==>_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7996	8097	
==>_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    F <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2886	3008	
==>hunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basec <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2886	3008	
==>hunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1447	1581	
==>);
            }
            elsif ($explanation eq 'no_plan') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5629	5717	
==>stfix;
use Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	399	537	
==>methods => {
        'new'    => sub { 
            my ($class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.test <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1472	1573	
==>, c);
}

PV prel_cat (PV x, PV y) {
	char * target = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + str <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2077	2189	
==>elf.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2077	2189	
==>elf.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19019	19129	
==>ted) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19019	19129	
==>ted) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1750	1864	
==>racted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
spac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1810	1924	
==>racted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
spac <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	516	629	
==>"AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Aci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	516	629	
==>"AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Aci <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3903	4014	
==>lues %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub proces <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6612	6720	
==>S' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6612	6720	
==>S' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4906	5033	
==>d'>
    | <'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <' <==
2	/Users/nnunley/pugs/util/importgraph.pl	2730	2835	
==>less exists $modules{$k}; # only pugs modules
    my $color = $edge->[1] ? 'green' : $edge->[0] ? "blue" : <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6752	6888	
==>my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6752	6888	
==>my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	985	1116	
==>$const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= length \$&; 1 } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	976	1091	
==>$const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1528	1642	
==>$.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1528	1642	
==>$.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28409	28519	
==>eference in $code.  Example:

  # continuing from above...
  sub init {
    my $self = shift;
    $self->SUPER: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29408	29509	
==>ed from the tree.  Most node types don't merge.  Returns true if
the node was merged with the previous <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4208	4302	
==>00796
 }

multi Math::Unspecced::e ( --> Num ) {
    2.7182818284590452353602874713526624977572 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5706	5838	
==>++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$template->param(file <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8168	8284	
==>urn "" if $kind eq 'SubPrim' && $name =~ /END/;#XXX

    $kind = 'Sub' if $kind eq 'SubRoutine';
    $kind = 'Sub' if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1077	1233	
==>if ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1077	1233	
==>if ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3994	4091	
==>xt, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3994	4091	
==>xt, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2386	2501	
==>rs() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("0 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2386	2501	
==>rs() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14211	14329	
==>numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14211	14329	
==>numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12759	12865	
==>tem decode_entities( $string, ... )

This routine replaces HTML entities found in the $string with the
corr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12759	12865	
==>tem decode_entities( $string, ... )

This routine replaces HTML entities found in the $string with the
corr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8083	8184	
==>------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth ava <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8083	8184	
==>------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth ava <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1004	1168	
==>w(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::K <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1004	1168	
==>w(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::K <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	907	1034	
==>ute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl - an interpreting backend for Blondie ASTs

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2704	2835	
==>e);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2704	2835	
==>e);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($matc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23727	23853	
==>g;
       try { '.$body.' }
       catch Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl with { $__flag = $_[0]{"-text"} } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3513	3622	
==>rl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9703	9817	
==>alar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

T <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9703	9817	
==>alar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	791	922	
==>>new((shift)->{type}) }

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) 
        unless blessed($right) && $righ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6422	6525	
==>hift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inherit from this

sub new {
	my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11703	11825	
==>ant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11697	11819	
==>ant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
as <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1560	1711	
==>inite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1560	1711	
==>inite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5173	5274	
==>t found.\n";
-f $rev  or die "error: file '$rev' not found.\n";
-f $mid  or die "error: file '$mid' no <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6637	6737	
==>od' directive is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reac <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6637	6737	
==>od' directive is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reac <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7361	7531	
==>s dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{ver <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7825	7995	
==>s dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{ver <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2215	2504	
==>' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= " <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2215	2504	
==>' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20118	20221	
==>ution to allow the core to be completely testable on its own.  It is
coded intentionally in a simple fas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20118	20221	
==>ution to allow the core to be completely testable on its own.  It is
coded intentionally in a simple fas <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5775	5863	
==>http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 imple <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5775	5863	
==>http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 imple <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	317	455	
==>ush @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	317	455	
==>ush @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	115	218	
==>v');

use Module::Pluggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    requir <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	44	146	
==>eamble which heads (or
# should head) up every core test program to prepare it for running.
# Now ins <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	24	127	
==>-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	24	127	
==>-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4105	4217	
==>ew cipher object.  The options passed to the 
C<new> constructor generally include some sort of key, and sometime <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4105	4217	
==>ew cipher object.  The options passed to the 
C<new> constructor generally include some sort of key, and sometime <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1586	1687	
==>me{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope). <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1586	1687	
==>me{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope). <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4235	4384	
==>ed newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4235	4384	
==>ed newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4785	4875	
==>':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4785	4875	
==>':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attribu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2802	2912	
==>ld;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2802	2912	
==>ld;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10211	10345	
==>y = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
} <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10211	10345	
==>y = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8380	8506	
==>turn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8573	8699	
==>turn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1438	1537	
==>[+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1438	1537	
==>[+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	187	324	
==>te ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!di <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	187	324	
==>te ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!di <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2972	3069	
==>ot available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to naviga <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2972	3069	
==>ot available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to naviga <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9580	9679	
==>rset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9580	9679	
==>rset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20563	20679	
==>er('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16984	17100	
==>er('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2497	2610	
==>$cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2497	2610	
==>$cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cooki <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3738	3831	
==>interactive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3738	3831	
==>interactive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22595	22733	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22874	23012	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_sta <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4340	4446	
==>*infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4340	4446	
==>*infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi su <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	801	919	
==>as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<s <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	801	919	
==>as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<s <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4292	4393	
==>(all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4292	4393	
==>(all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11532	11657	
==>.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('sec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11532	11657	
==>.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('sec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6234	6379	
==>side the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$self\)=/;

    #print $p;
    eval $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKA <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	499	623	
==>ock 
        closure closure::env closure::signature closure::params
        opaque method attribute C3
        /;
    
    s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18776	18880	
==>C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself after login <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18776	18880	
==>C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself after login <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4619	4737	
==>lsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4619	4737	
==>lsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_ty <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11612	11773	
==>3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11612	11773	
==>3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-f <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1556	1674	
==>of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1556	1674	
==>of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4728	4877	
==>s versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4740	4889	
==>s versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41303	41396	
==>)

On 2005.03.21, provided feedback towards improving this module's
documentation, particularl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41303	41396	
==>)

On 2005.03.21, provided feedback towards improving this module's
documentation, particularl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1291	1390	
==>(probably a role) for
implementing dynamic scopes (not really a reduer).

=head1 SYNOPSIS

    use b <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27022	27122	
==>eck after each
test whether new files appeared in that directory, and report them as

  LEAKED FILES: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7877	7972	
==>event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7877	7972	
==>event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12244	12371	
==>r}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${&Rx} = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	290	388	
==>($name),
		)
	)
}

sub mk_constructors {
    foreach my $class (@{ Class::Inspector->subclasses("Bl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	32	154	
==>til-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	32	154	
==>til-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2285	2382	
==>, they fall back
on something more likely to work.

Further, the above method always uses a starti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13345	13484	
==>ns Relation::Example {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if an <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	338	439	
==>L';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::File;
use HTML::Template;
use HTML:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10164	10262	
==>{ atom_codes(A,L) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_n <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2868	3002	
==>le"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoker config rev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1073	1206	
==>'<tight> <op> <parse> <op2> <equal>',
);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1115	1215	
==>"-I$_"}@inc_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	697	1108	
==>Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	697	1108	
==>Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1036	1173	
==>ve . $right->to_str->to_native);
}

1;

__END__

=pod

=head1 NAME

str - the core str type

=head1 METHODS

=over 4

=item B<new (*native <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	210	333	
==>ulti method delete ($index ) returns Object;
multi method delete (*@index ) returns List of Object;
multi method exists ($in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	579	691	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4057	4169	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $! <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	575	792	
==>"-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0" <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	575	792	
==>"-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	347	448	
==>len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19648	19774	
==>$off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16069	16195	
==>$off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7156	7259	
==>"unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7168	7271	
==>"unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	77	200	
==>];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	82	205	
==>];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7544	7650	
==>is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> cla <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7544	7650	
==>is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	765	873	
==>out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 => \$_[2],} }\n" .  
        "\t | 'name' ' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6083	6190	
==>TESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[]( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2472	2571	
==>rep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2472	2571	
==>rep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17907	18007	
==>nating server program handling the request.

=item $h.from

This header should contain an Internet e- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17907	18007	
==>nating server program handling the request.

=item $h.from

This header should contain an Internet e- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13948	14053	
==>int 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13948	14053	
==>int 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available. <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5334	5428	
==>al"ed when pugs starts.  After the executable is ready, the Standard
Prelude is precompiled and <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1936	2037	
==>atus::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MAN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1936	2037	
==>atus::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MAN <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1138	1237	
==>hdir> changes directory to a dir.

Returns old cwd on success, false on failure.

=cut

sub _chdir { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1869	1961	
==>r Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1958	2050	
==>r Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runt <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	367	462	
==>e>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stor <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	367	462	
==>e>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2923	3032	
==>( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2923	3032	
==>( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3751	3867	
==>$event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3751	3867	
==>$event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	754	870	
==>ode;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	754	870	
==>ode;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7153	7264	
==>"$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7141	7252	
==>"$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17315	17416	
==>its:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Module: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17315	17416	
==>its:

=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Module: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8496	8613	
==>orization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8496	8613	
==>orization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, S <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	382	518	
==>=> 0,
    precompile_prelude    => 1,
    precompile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    ins <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23574	23662	
==>ce_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1).
replace_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8470	8563	
==>v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2295	2388	
==>v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	795	928	
==>ring, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    mul <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	795	928	
==>ring, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    mul <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	213	321	
==>nstall::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = shift;
    my @module <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1961	2061	
==>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1961	2061	
==>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5410	5572	
==>HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5632	5794	
==>HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3230	3469	
==>s<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %eve <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3230	3469	
==>s<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %eve <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5659	5759	
==>an.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5659	5759	
==>an.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $sel <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2473	2577	
==>er () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Previou <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2473	2577	
==>er () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Previou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10709	10824	
==>es or Nodes are not missing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10709	10824	
==>es or Nodes are not missing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Ro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7097	7214	
==>blings;

# I am not permitting the removal of siblings 
# as I think in general it is a bad idea

## ----------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7097	7214	
==>blings;

# I am not permitting the removal of siblings 
# as I think in general it is a bad idea

## ----------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17574	17717	
==>ILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40843	40986	
==>ILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	221	327	
==><∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	221	327	
==><∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5544	5814	
==>pping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9021	9291	
==>pping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

met <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	615	734	
==>ount>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size o <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	615	734	
==>ount>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size o <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	24	134	
==>nt::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	24	134	
==>nt::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7924	8024	
==>span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7924	8024	
==>span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1263	1393	
==>_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an iden <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1263	1393	
==>_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an iden <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7400	7649	
==>%seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7400	7649	
==>%seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        ) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	426	530	
==>Set is represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	426	530	
==>Set is represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1035	1151	
==>rammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1035	1151	
==>rammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21814	21909	
==>me appropriate place, usually in the
main program, Locale::KeyedText can be given input that say <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21814	21909	
==>me appropriate place, usually in the
main program, Locale::KeyedText can be given input that say <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24799	24931	
==>AN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21220	21352	
==>AN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14738	14842	
==>es the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14738	14842	
==>es the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
value <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4044	4205	
==>=> '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4044	4205	
==>=> '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28508	28611	
==>oercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28508	28611	
==>oercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	465	569	
==>woc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	465	569	
==>woc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1030	1149	
==>TION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra di <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1030	1149	
==>TION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra di <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3404	3523	
==>:Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('le <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3404	3523	
==>:Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('le <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	360	503	
==>return $str;
      }else{
        $str ~= addtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub clear returns Void is export{
    system(($?O <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38538	38656	
==>p::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parse <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2468	2573	
==>5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2468	2573	
==>5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($pat <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5647	5755	
==>$self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg} <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3461	3568	
==>$self->find_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	490	607	
==>use]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1348	1465	
==>use]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	12	126	
==>erl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Contai <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28487	28600	
==>uccessful match.
//x isnt being handled (re_rewrite step?)
lots of stuff with an XXX above
crlf handling unix spec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3292	3411	
==>:Spec->catdir( $meta_dir, $config->meta_file ) );
            
            my %avail = map { $_->{package} => $_ } LoadF <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	84	187	
==>'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	84	187	
==>'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2892	3021	
==>ethod error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2892	3021	
==>ethod error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4940	5045	
==>') if grep /^-DPUGS_HAVE_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	624	721	
==>s exists $params{'$.description'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::T <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	252	380	
==>head
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$co <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	252	380	
==>head
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3854	3979	
==>///xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3854	3979	
==>///xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+} <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	421	544	
==>s Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {... <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	421	544	
==>s Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {... <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5689	5797	
==>en;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5689	5797	
==>en;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span = $s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5780	5889	
==>rrot_path);

my $welcomed = 0;
step
  descr  => "Welcome",
  ensure => sub { $welcomed },
  using  => sub { $w <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1064	1179	
==>lse {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1064	1179	
==>lse {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) retur <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	598	695	
==>map { (split m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li>\n] fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5344	5457	
==>t if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previou <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5344	5457	
==>t if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6137	6255	
==>s>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6137	6255	
==>s>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$c <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	116	221	
==>odule::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VER <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	17	122	
==>odule::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VER <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	677	791	
==>ther contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	677	791	
==>ther contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9859	9957	
==>n object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9859	9957	
==>n object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4426	4557	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4414	4545	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21095	21194	
==>ource files containing text for users, and your program would use
associated keys internally.

It is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21095	21194	
==>ource files containing text for users, and your program would use
associated keys internally.

It is <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	426	549	
==>{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required ' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5816	5910	
==>sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $ne <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5874	5968	
==>sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $ne <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1801	1921	
==>{
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1801	1921	
==>{
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	924	1032	
==>ead of copying the whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	887	991	
==>ead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop:: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5373	5564	
==>,
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:<if>' => Thunk->new(
        Seq->new(
            Param->new('$cond'),
            Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3583	3684	
==>self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3571	3745	
==>\$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3571	3745	
==>\$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1471	1761	
==>n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1471	1761	
==>n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	295	390	
==>tion functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	295	390	
==>tion functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params return <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6080	6203	
==>=> chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6080	6203	
==>=> chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964), <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	858	955	
==>ation about the server your CGI is running on. It also 
attempts to provide some useful defaults f <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	858	955	
==>ation about the server your CGI is running on. It also 
attempts to provide some useful defaults f <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	191	328	
==>port (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x {
          $str = appen <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1005	1108	
==>> "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter for <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1005	1108	
==>> "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8140	8234	
==>n_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1965	2059	
==>n_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7028	7135	
==>ram" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7040	7147	
==>ram" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8294	8392	
==>draft, but test cases exist.
multi Array::min(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	136	241	
==>/debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=he <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	136	241	
==>/debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=he <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2002	2102	
==>r most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2002	2102	
==>r most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfou <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4281	4386	
==>ool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4281	4386	
==>ool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14192	14287	
==>pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14250	14345	
==>pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19780	20029	
==>p::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20059	20308	
==>p::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6458	6757	
==>ackage satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6922	7221	
==>ackage satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entr <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	546	653	
==>meters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	546	653	
==>meters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	650	747	
==>say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	708	805	
==>say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	379	529	
==>lf: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        las <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	379	529	
==>lf: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        las <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	33	126	
==>den "magischen Zeichen" (sigils)
$, %, @ gekennzeichnet.
#=Kontextunabhängigkeit
Da die konte <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27188	27278	
==>E_USE_INTUIT		(RE_USE_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REINT_AUTORITATIVE	(REINT_AUTO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15590	15724	
==>ill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15590	15724	
==>ill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	134	239	
==>s a finite string and a position
within that string, and it provides the fundamental operations on strings <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	134	239	
==>s a finite string and a position
within that string, and it provides the fundamental operations on strings <==
2	/Users/nnunley/pugs/util/testgraph.pl	745	864	
==>ift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*STDOUT;
}
binmode $fh, ":utf8" or die "binmode: $!";
prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	276	390	
==>{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2534	2687	
==>pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/s;
            return $grammar-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	247	336	
==>ce if_unmodified_since last_modified
    content_type content_encoding content_length cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	247	336	
==>ce if_unmodified_since last_modified
    content_type content_encoding content_length cont <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11075	11183	
==>mplified version of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11075	11183	
==>mplified version of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which N <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7545	7654	
==>pi;

    nulpat = savepv(""); /*XXX - can be constant? */
    r = Perl_pregcomp(aTHX_ nulpat,nulpat,pm);
    / <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	806	910	
==>s a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	806	910	
==>s a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9314	9481	
==>_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$deps ) {
            $str .= ' A <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1416	1566	
==>>{prototype}) {
                $_table = $_table->{prototype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confes <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6442	6544	
==>ault filehandle for output (normally STDOUT) as
data is received from the network.  If the request fail <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6442	6544	
==>ault filehandle for output (normally STDOUT) as
data is received from the network.  If the request fail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3959	4151	
==>s[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3838	4023	
==>s[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0] <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1132	1233	
==>lf = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $se <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1132	1233	
==>lf = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17782	17879	
==>nt = 'Mozilla/1.2';

=item $h.server

The server header field contains information about the softw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17782	17879	
==>nt = 'Mozilla/1.2';

=item $h.server

The server header field contains information about the softw <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	691	839	
==>sif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq '/') <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2726	2821	
==>up reverse engineering perl source.

We basically use the perl regcompp and regexecp hooks (C fu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1500	1601	
==>tter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or somesuch.

# Test sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3133	3264	
==>le: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3350	3481	
==>le: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $so <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	321	434	
==>or' => \&xml ],
);

# dump data as yaml
sub yaml {
	YAML::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = ne <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	619	727	
==>$Config{siteprefix},

        installscript  => $Config{installscript},
        sitescript     => $Config{ins <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	636	774	
==>It may be defined in an upper scope";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14322	14427	
==>of course man perlapi, etc.

  The perl regexp engine was long ago derived from Henry Spencer's
  regexp l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6369	6481	
==>.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::Fa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6369	6481	
==>.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::Fa <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2618	2741	
==>out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    re <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2618	2741	
==>out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8560	8657	
==>num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8618	8715	
==>num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2526	2663	
==>self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    metho <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2526	2663	
==>self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    metho <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9557	9660	
==>:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9557	9660	
==>:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13753	13883	
==>es for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available lan <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13753	13883	
==>es for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available lan <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	896	1011	
==>);
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	896	1011	
==>);
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2461	2591	
==>[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @st <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2461	2591	
==>[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5305	5439	
==>meta->to_struct;
        
        # add the archive path to the package's meta info
        $meta->{archive} =
            $self->pool_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	252	354	
==>nfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "wert";

#!\pause
# er kann auch <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2392	2504	
==>hich happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk of but haven't yet executed.

For e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30323	30418	
==>ew Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the orig <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34875	34970	
==>ew Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the orig <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19307	19408	
==>ssionNoIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <Assignm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3261	3398	
==>d of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir] )                and error($?), return;   
        system <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	635	736	
==>-----------------------------------------------------
## private methods

my method set_height ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	635	736	
==>-----------------------------------------------------
## private methods

my method set_height ($self: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36089	36196	
==>one.  Now
we just need to return the regex representation of our children:

    return join "",
      map($_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9924	10015	
==>.
p5_charset_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - should permit \misc, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7687	7826	
==>ure( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7880	8019	
==>ure( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	21	136	
==>1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $k <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	21	136	
==>1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $k <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3555	3676	
==>@tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3555	3676	
==>@tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	969	1117	
==>("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	977	1120	
==>("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1752	1874	
==>>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1752	1874	
==>>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }el <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21641	21742	
==>e".  However, the level of DBI's provided independence
is I<Database Driver Independence>, and not I<D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21641	21742	
==>e".  However, the level of DBI's provided independence
is I<Database Driver Independence>, and not I<D <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5204	5331	
==>ment_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5204	5331	
==>ment_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_univer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5595	5700	
==>/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5402	5503	
==>/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8027	8182	
==>bj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8027	8182	
==>bj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	951	1066	
==>ar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "use base 'Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3178	3292	
==>set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3178	3292	
==>set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramet <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3034	3133	
==>pends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3092	3191	
==>pends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($t <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	67	186	
==>" unless $INC{join('/', inc => split(/::/, __PACKAGE__)).'.pm'};
Please invoke ${\__PACKAGE__} with:

    use inc::${\__ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17136	17234	
==>offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other tha <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22236	22334	
==>offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other tha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15701	15795	
==>cate in those languages.  Or, when viewing an error message, the
application's developer should <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15701	15795	
==>cate in those languages.  Or, when viewing an error message, the
application's developer should <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1163	1258	
==>ad1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1163	1258	
==>ad1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18816	18943	
==>data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20174	20301	
==>data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} } <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3889	4015	
==>self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3889	4015	
==>self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4933	5093	
==>paque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## --------------------- <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2710	2822	
==>_;
    $self->{_timing}{end} = time;
    $self->{_timing}{duration} =
        $self->{_timing}{end} - $self->{_ti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15267	15370	
==>it
could also be a prompt or response message for interactive systems.

If the program or any of its com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15267	15370	
==>it
could also be a prompt or response message for interactive systems.

If the program or any of its com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9731	9832	
==>g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(".join(",",map{DOWN($_)}@$value).")" } # XXX
NODE V <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28487	28587	
==>plicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28487	28587	
==>plicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	480	587	
==>! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	480	587	
==>! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed ( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6778	7018	
==>pp->new(
                            Sym->new('&infix:<+>'),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&inf <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15791	15895	
==>this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15791	15895	
==>this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5199	5301	
==>rds (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5199	5301	
==>rds (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9635	9786	
==>h.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9635	9786	
==>h.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10561	10676	
==>$seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.is <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10561	10676	
==>$seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.is <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18982	19074	
==>t corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate ranging <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22632	22724	
==>t corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate ranging <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7775	7875	
==>rization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_basic ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7775	7875	
==>rization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_basic ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10982	11130	
==>{ 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdt <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10982	11130	
==>{ 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12446	12548	
==>w Document object's All Nodes
attribute starts out empty, but gains one element for each Node in the No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12446	12548	
==>w Document object's All Nodes
attribute starts out empty, but gains one element for each Node in the No <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	217	351	
==>/ '_'.ord($1).'_' /xge;
    return $s;
}

sub _mangle_var {
    my $s = shift;
    #warn "mangle: $s";
    
    # perl6 => perl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26924	27047	
==>..
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEs <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	820	921	
==>e.

# Interest was expressed in developing this into a cpan module for
# real use.  It might, imaginab <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5975	6097	
==>ymbols[]";

        dbg "# Statements: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12643	12756	
==>, could be a bear.

  A source filter approach, while likely flakier (modulo memory issues),
  might suffice, be e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21379	21482	
==>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21379	21482	
==>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1522	1738	
==>\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $c <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1522	1738	
==>\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26429	26531	
==>s will be passed by reference, so you
may store references to other objects in them if you wish.

=back <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26429	26531	
==>s will be passed by reference, so you
may store references to other objects in them if you wish.

=back <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2356	2476	
==>(\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{runcore}       = pugspath2ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5146	5262	
==>self->{rx};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39763	39863	
==>u can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39763	39863	
==>u can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3446	3596	
==>$/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    su <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3910	4060	
==>$/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17395	17490	
==>developers and users alike.

For some practical examples of Locale::KeyedText in use, see the /e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17395	17490	
==>developers and users alike.

For some practical examples of Locale::KeyedText in use, see the /e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5005	5119	
==>h::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intende <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5227	5341	
==>h::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intende <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4404	4517	
==>ut can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# W <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4404	4517	
==>ut can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# W <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1040	1162	
==>my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1040	1162	
==>my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14697	14798	
==>start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14697	14798	
==>start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22656	22758	
==>ption Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22656	22758	
==>ption Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This do <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	343	447	
==>SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	343	447	
==>SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8569	8787	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8569	8787	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    meth <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1143	1251	
==>orting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Que <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1143	1251	
==>orting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Que <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11548	11644	
==>tributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This store <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11548	11644	
==>tributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This store <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3540	3658	
==>eyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3540	3658	
==>eyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CL <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3522	3628	
==>depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3580	3686	
==>depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	768	869	
==>ool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	768	869	
==>ool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12229	12342	
==>e object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12229	12342	
==>e object (plus an optional
hierarchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attri <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24243	24343	
==>.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an emp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28795	28895	
==>.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an emp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10144	10272	
==>[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10138	10266	
==>[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	643	776	
==>y $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	643	776	
==>y $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1986	2153	
==>=> undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# T <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2191	2358	
==>=> undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# T <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11830	11937	
==>gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 us <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11830	11937	
==>gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 us <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1669	1765	
==>SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes which might b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1669	1765	
==>SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes which might b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	15	164	
==>ils;

use strict;
use JIB::Constants;

use File::Find::Rule;
use Cwd                         ();
use File::Copy                  ();
use Params::Check <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28360	28466	
==>X_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #endi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18270	18473	
==>dump(\*STDERR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42993	43142	
==>'add_method' => (
    # method label
        symbol->new('can'),
    # method body
        method->new(
            $::ENV,
            method::signat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	725	822	
==>()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	725	822	
==>()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6104	6236	
==>> sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6104	6236	
==>> sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $prog <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1347	1485	
==>ar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1347	1485	
==>ar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10617	10738	
==>d emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METH <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10617	10738	
==>d emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14558	14675	
==>cond;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  Fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14558	14675	
==>cond;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  Fo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12167	12269	
==>h ref() since we do not yet have
object support. Once object support is created, we will add it here, a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12225	12327	
==>h ref() since we do not yet have
object support. Once object support is created, we will add it here, a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21197	21289	
==>gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21197	21289	
==>gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part(" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7290	7461	
==>it( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::P <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3866	3991	
==>se_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam" <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1122	1218	
==>tocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1122	1218	
==>tocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7079	7196	
==>y($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7079	7196	
==>y($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	647	773	
==>y $self = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	590	695	
==>= { map { $_ => $_ } @nodes };
	$self->{names} = { $program => '$main' };

	$self->make_name($_) for @node <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1315	1415	
==>tion returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1315	1415	
==>tion returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19243	19343	
==>lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. T <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19243	19343	
==>lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. T <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	26	125	
==>Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	26	125	
==>Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(A <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1588	1722	
==>not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1588	1722	
==>not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1038	1157	
==>ne($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1038	1157	
==>ne($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4418	4532	
==>ly
        # different. Display the numbers if $type isn't a string operator,
        # and the numbers are stringw <==
2	/Users/nnunley/pugs/util/testgraph.pl	1179	1273	
==>aml_harness.pl  - produce the data for this tool
   util/catalog_tests.pl - produce cross-linka <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4800	4911	
==>][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4800	4911	
==>][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2300	2418	
==>tion.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2300	2418	
==>tion.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8107	8254	
==>e = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7829	7969	
==>e = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1529	1693	
==>es;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1477	1635	
==>es;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $sta <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2483	2622	
==>ults);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2483	2622	
==>ults);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17376	17507	
==>lsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13797	13928	
==>lsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9835	9944	
==>=> $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9835	9944	
==>=> $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	398	500	
==>compiled(sub {
       	my $grammar = shift;
	my $tree;
	print Dumper($rule->($grammar)->( $_[0], undef, <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1772	1863	
==>if(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

Helpers::macif(%?CONF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	786	912	
==>( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	786	912	
==>( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21977	22071	
==>tribute Relation with zero tuples or
one tuple respectively have a special meaning in relationa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26529	26623	
==>tribute Relation with zero tuples or
one tuple respectively have a special meaning in relationa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1269	1417	
==>->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->m <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	607	754	
==>->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1755	1871	
==>,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLAS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1755	1871	
==>,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLAS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1924	2043	
==>r in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1924	2043	
==>r in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8341	8505	
==>'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expressi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8341	8505	
==>'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expressi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20688	20780	
==>e the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20688	20780	
==>e the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	594	690	
==>::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	594	690	
==>::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1761	1883	
==>!\n";
    my $f = do{local $/=undef; <F>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5277	5389	
==>found.\n";
-f $wc   or die "error: file '$wc' not found.\n";
PrintGolfScore($head, $tail, $rev, $mid, $wc);
Check <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	931	1040	
==>ans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	931	1040	
==>ans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	515	775	
==>s{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missin <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	515	775	
==>s{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7943	8043	
==>cret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cipher t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7943	8043	
==>cret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cipher t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18724	18838	
==>ing utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22206	22320	
==>ing utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	552	708	
==>_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	838	982	
==>_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6321	6451	
==>mit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6596	6725	
==>mit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8650	8759	
==>badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8708	8817	
==>badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	114	213	
==>ion, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime re <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	114	213	
==>ion, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36886	36983	
==>ality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36886	36983	
==>ality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.trans <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13401	13523	
==>setta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13401	13523	
==>setta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4665	4789	
==>'$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7388	7512	
==>'$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16890	17013	
==>ld is used as a modifier to the
media type.  When present, its value indicates what additional
encoding mechanism has been a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16890	17013	
==>ld is used as a modifier to the
media type.  When present, its value indicates what additional
encoding mechanism has been a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	401	517	
==>$param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	401	517	
==>$param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1 <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2388	2491	
==>e
8th line
9th line
10th line
11th line
12th line









GROK

# ------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	568	677	
==>et
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die fo <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	568	677	
==>et
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10320	10428	
==>e header fields.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10320	10428	
==>e header fields.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
use <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16204	16302	
==>s into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20630	20728	
==>s into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struc <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	515	695	
==>s;   # true

=head1 DESCRIPTION

Every variable in Perl 6 has a type.  This type can be accessed using
the C<.ref> method, which is available on any type, boxed or unboxed.

These o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3740	3863	
==>lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};

    if ($self->inv <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	660	752	
==>language must provide, including stuff for what cannot have a reference
implementation but is <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2254	2421	
==>=> undef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	158	258	
==>e Blondie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use warnings;

BEGIN {
    __PACKAGE_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	369	516	
==>s to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	358	494	
==>s to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5608	5702	
==>n you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5608	5702	
==>n you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13350	13445	
==>tements, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13350	13445	
==>tements, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22920	23058	
==>p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19341	19479	
==>p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5936	6063	
==>r = localtime($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the timestamps not b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	555	678	
==>str->new('')) }
sub to_num { (shift)->length             }
sub to_bit { (shift)->length->to_bit     }

# methods ...

sub fe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2769	2921	
==>] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2769	2921	
==>] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3727	3816	
==>e <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Dar <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3727	3816	
==>e <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Dar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1024	1176	
==>self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub values { values %{ $_[0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2647	2784	
==>d_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    # experi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3329	3430	
==>t, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3329	3430	
==>t, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curni <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10694	10809	
==>'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10694	10809	
==>'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator. <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	523	717	
==>, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    pus <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19582	19694	
==>my $app_to_str = fun(
	param => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::oper <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27939	28035	
==>e Message Variable value (a string) associated with
the variable name specified in the positional <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27939	28035	
==>e Message Variable value (a string) associated with
the variable name specified in the positional <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11073	11168	
==>t>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B< <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11073	11168	
==>t>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B< <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3144	3239	
==>r $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3144	3239	
==>r $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5652	5806	
==>"$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7414	7568	
==>"$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set (" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1363	1477	
==>{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE $p6->{perl5} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1605	1736	
==>mpiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $valu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1605	1736	
==>mpiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $valu <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	267	378	
==>REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	267	378	
==>REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2369	2504	
==>O>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2369	2504	
==>O>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_S <==
2	/Users/nnunley/pugs/util/addauthors.pl	81	187	
==>my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:]/, $_;
  $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1865	2016	
==>]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1865	2016	
==>]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1061	1196	
==>ed \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1061	1196	
==>ed \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10106	10224	
==>od_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg || '__PACKAGE__';
    $method_name = $name || 'e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4635	4760	
==>rn { num => 'NaN' ,} } 
        ) ),
        'bool::true' => Pugs::Compiler::Regex->compile( q(
            { return { bool => <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5046	5136	
==>you should use the full object-oriented
interface provided by the C<LWP::UserAgent> module. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5046	5136	
==>you should use the full object-oriented
interface provided by the C<LWP::UserAgent> module. <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3162	3295	
==>$/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3162	3295	
==>$/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18710	18816	
==>etta does not use any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is mor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18710	18816	
==>etta does not use any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is mor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	286	388	
==>o warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for perform <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	297	399	
==>o warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for perform <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8008	8113	
==>l_order);
    };
}

## ----------------------------------------------------------------------------
## uti <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8008	8113	
==>l_order);
    };
}

## ----------------------------------------------------------------------------
## uti <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4576	4671	
==>63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9A <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4576	4671	
==>63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9A <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6200	6324	
==>f-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_para <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6200	6324	
==>f-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_para <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11525	11648	
==>return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @so <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15002	15125	
==>return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @so <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4554	4719	
==>f index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2297	2443	
==>ift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2544	2690	
==>ift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13782	13924	
==>);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13776	13918	
==>);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3973	4080	
==>Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Arr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3973	4080	
==>Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Arr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9449	9537	
==>module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9449	9537	
==>module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25073	25193	
==>x {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',} <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12644	12728	
==>><span title="<tmpl_var name=unexpect> unexpectedly succeeded"><tmpl_var name=unexpec <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	577	681	
==>d from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	577	681	
==>d from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6735	6881	
==>b capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6735	6881	
==>b capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1473	1572	
==>mented by passing a C<Result> object that has a
$.backtrack closure that calls back into the parser. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1473	1572	
==>mented by passing a C<Result> object that has a
$.backtrack closure that calls back into the parser. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27664	27782	
==>th_and_first), "∀α. list α → (α × int)", ":t length_and_first");
is(t($length_and_first_p), "(int × int)", ":t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	850	956	
==>ident> <p6ws>? \;
        { return { grammar_name => $() ,} }
RULE
*{'condition_rule'} = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1115	1207	
==>e Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    do <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1115	1207	
==>e Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    do <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25138	25229	
==>E0,_,E0).
set_modifiers_from(E0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3090	3251	
==>_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3101	3262	
==>_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6859	6965	
==>is relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation::Example. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13404	13501	
==>ass the generic variables unchanged
ide: generic($$) = { generic_in($$) }

# if an identifier is n <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	398	518	
==>te;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.st <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	398	518	
==>te;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.st <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7653	7772	
==>'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <S <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5109	5207	
==>x,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds(Min,Max) --> digits_int(Min), !, p6_range_boun <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5029	5222	
==>l"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6791	6984	
==>l"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30076	30177	
==>d each
hash value contains the user-readable message text associated with the
Message; this user strin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30076	30177	
==>d each
hash value contains the user-readable message text associated with the
Message; this user strin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1153	1243	
==>ngine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSIO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1153	1243	
==>ngine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSIO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14971	15067	
==>amework and defines a common programmatic interface (API), called
the Rosetta Native Interface (R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14971	15067	
==>amework and defines a common programmatic interface (API), called
the Rosetta Native Interface (R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	564	706	
==>art, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	564	706	
==>art, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshi <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2239	2338	
==>ystem($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2217	2316	
==>ystem($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $ar <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	689	792	
==>to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	616	733	
==>n", BOLD . GREEN, RESET;
  } else {
    if($args{help}) {
      printf STDERR "\b\n";
      printf STDERR "  %s:%s %s\ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8030	8146	
==>de *&expression --> Scalar )
{
    List::reduce *&expression, *@values;
}

# signature from S29draft.pod 8651.  In th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14562	14672	
==>ou
  in the right direction.

  The regexp compiler hook generally gets the pattern _after_ variable
  interpol <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5680	5856	
==>rns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5680	5856	
==>rns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_mes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10542	10667	
==>{data}[-1];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] = [ @$tree ];
      push @{ $self->{da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1370	1530	
==>= Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1370	1530	
==>= Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1335	1433	
==>vious(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1335	1433	
==>vious(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2532	2638	
==>[ '.info' ];
$config{'meta_file'}        = [ META => sub { $_[1] . $_[0]->meta_ext  } ];

$config{'archive_ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2218	2312	
==>d walked alone.

-}

----------------------------------------------------------------
-- Do not <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	494	614	
==>g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	494	614	
==>g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4251	4389	
==>mize $item in @rules[$i..$j]\n";
        my $len = length( $item );
        my @r = map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3333	3435	
==>sents a date /without a time/.

Because it is just a date, it does not handle time zones or leap
second <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3333	3435	
==>sents a date /without a time/.

Because it is just a date, it does not handle time zones or leap
second <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8095	8217	
==>dy quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8095	8217	
==>dy quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1873	1980	
==>= Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1873	1980	
==>= Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12141	12237	
==>JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12141	12237	
==>JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, Str $re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1704	1829	
==>s $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1704	1829	
==>s $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method int <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11226	11371	
==>$src
          or do { warn "mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5545	5651	
==>de = shift;
		my $expected_type = shift;

		my $de_facto_type = $node->type;
		
		warn "attempting to unify <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2009	2207	
==>Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    me <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2009	2207	
==>Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    me <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	217	365	
==>ub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    sub get {
        $_[0]{$_[1]}
    }

    sub fmap {
        my <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	20	123	
==>n:ASAVIGE;

# Super simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2017	2118	
==>Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2017	2118	
==>Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2605	2738	
==>ment;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2605	2738	
==>ment;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.dens <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21517	21616	
==>rogram which uses yours may wish to
override some of your messages, showing other messages instead w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21517	21616	
==>rogram which uses yours may wish to
override some of your messages, showing other messages instead w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	182	315	
==>( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	182	315	
==>( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $po <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18219	18326	
==>ch as
'error opening file', programs would have a harder time figuring out the
best way to deal with it.  Bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18219	18326	
==>ch as
'error opening file', programs would have a harder time figuring out the
best way to deal with it.  Bu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16049	16148	
==>intersects( $object )`

These methods return a logical value. 

The argument can be a Span object, a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16049	16148	
==>intersects( $object )`

These methods return a logical value. 

The argument can be a Span object, a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	453	559	
==>y @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	453	559	
==>y @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	795	893	
==>$output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	795	893	
==>$output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3262	3357	
==>ors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3262	3357	
==>ors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	295	388	
==>stallsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'repo' );

system( qw[rm -rf], $co <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	338	444	
==>even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EX <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	338	444	
==>even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19429	19581	
==>lass, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => 'tail',
      raw => ')' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7409	7538	
==>lass, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15620	15742	
==>$channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $targe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15620	15742	
==>$channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $targe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3283	3421	
==>! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3283	3421	
==>! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	46	146	
==>head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
ins <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	46	146	
==>head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
ins <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11087	11198	
==>tenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11087	11198	
==>tenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3779	3886	
==>/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5681	5788	
==>/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11354	11463	
==>/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11354	11463	
==>/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8363	8483	
==>ince each time you either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8363	8483	
==>ince each time you either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12091	12206	
==>needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12091	12206	
==>needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1306	1465	
==>> 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Fa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1306	1465	
==>> 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Fa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19261	19354	
==>eird error.
This should never happen.  Please contact the author immediately.
Here's the error <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2476	2570	
==>rule($code)> executes $code, passing the match object as a parameter, and
it should return a I< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2476	2570	
==>rule($code)> executes $code, passing the match object as a parameter, and
it should return a I< <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	344	454	
==>( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	344	454	
==>( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1004	1141	
==><_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1004	1141	
==><_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_bl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5310	5485	
==>nd,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_conti <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5310	5485	
==>nd,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_conti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	311	612	
==>tart
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment un <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14867	14976	
==>es($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the type of the p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5672	5785	
==>ompile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs::Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6806	6916	
==>cc;
      return $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "Illegal hexadecimal digit ' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12411	12506	
==>code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12469	12564	
==>code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15733	15833	
==>en viewing an error message, the
application's developer should see more details than joe public woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15733	15833	
==>en viewing an error message, the
application's developer should see more details than joe public woul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5079	5231	
==>ole->get_method($method_name));
        }
    }
    # this is our does() method, it will
    # allow us to ask if the instance 
    my $_does = sub { exi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	563	676	
==>ring.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called wh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	563	676	
==>ring.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3553	3664	
==>omp => "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9959	10066	
==>t->[-1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12312	12413	
==>`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the el <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12312	12413	
==>`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the el <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3657	3760	
==>Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is int <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3657	3760	
==>Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is int <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2291	2393	
==>}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2291	2393	
==>}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17935	18064	
==>self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      nparen => $nparen,
      raw => ') <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	21	126	
==>warnings;
use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
u <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	879	978	
==>=~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($site <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	879	978	
==>=~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($site <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23195	23297	
==>ull generic implementations of all other necessary
operators (over said accessors), which can be employ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	209	346	
==>{
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        retur <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	209	346	
==>{
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2763	2869	
==>({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2763	2869	
==>({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5728	6039	
==>) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7490	7801	
==>) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	43	176	
==>-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need t <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	43	176	
==>-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need t <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13473	13594	
==>c 5 1
HELP

  step
    descr  => "Unmounting \"$initrd_img\"",
    ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	42	142	
==>:Perl;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

use Blondie::Backend::Perl::Builtin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41474	41584	
==>n>.  This
method has an alias named C<natural_join>.

=item C<join (Relation::Example *@others) returns Relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4538	4692	
==>. 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4678	4832	
==>. 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	307	421	
==>ns

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = () <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	307	421	
==>ns

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = () <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17215	17379	
==>type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Decla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17215	17379	
==>type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Decla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	700	803	
==>>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simpl <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	700	803	
==>>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simpl <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1635	1838	
==>l(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym('& <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2311	2411	
==>ups which are never reached.
# No lookbehind as been implemented at all, at all.
# A couple of others <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1008	1134	
==>o be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1008	1134	
==>o be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	371	491	
==>le( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	468	588	
==>le( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1718	1871	
==>( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1718	1871	
==>( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10628	10752	
==>Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10628	10752	
==>Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3402	3502	
==>ides builtins for with the replacement nodes

=item *

Ensuring that there is no crap in the AST - no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1032	1151	
==>extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1032	1151	
==>extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5261	5377	
==>uble_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5411	5510	
==>ding === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation::Exam <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1410	1510	
==>c::exp($exponent, $base);
 }
 multi Math::Basic::exp ( Num $exponent = CALLER::<$_>, Num :$base --> N <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	842	941	
==>eful with Firefox 1.5's Preferences/Tabs/Force/NewTab
setting.)
</p>
<p>
To update this listing, run <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	471	573	
==>DERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET;

  if($args{ensure}->()) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10117	10218	
==>'
 );

The constructor arguments are passed to the C<header> method which is
described below.

=item $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10117	10218	
==>'
 );

The constructor arguments are passed to the C<header> method which is
described below.

=item $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	733	1150	
==>ple object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	733	1150	
==>ple object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15947	16076	
==>rule parse error: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = geta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1460	1556	
==>leKey = substr $relativePrecedence, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenTable <==
2	/Users/nnunley/pugs/util/importgraph.pl	913	1013	
==>([\w.]+) (\s* \()?/x) {
      $imports{$2} = [defined($1), defined($3)];
    } elsif (/^import|^modul <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5319	5424	
==>::get_name_rep_type_pairs_list();
    my $code = "";
    for (@$list) {
        my($name,$rep,$type,@pairs <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1295	1406	
==>turn $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1222	1327	
==>turn $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4199	4299	
==>itialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, whic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4199	4299	
==>itialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, whic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	58	149	
==>rl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	58	149	
==>rl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14887	15002	
==>sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used headers can also be accessed through the
foll <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14887	15002	
==>sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used headers can also be accessed through the
foll <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	528	660	
==>$*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	528	660	
==>$*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6892	7003	
==>:Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6892	7003	
==>:Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4424	4550	
==>40\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4424	4550	
==>40\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4427	4543	
==>}
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) retu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4427	4543	
==>}
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) retu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	162	279	
==>n module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.jo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	162	279	
==>n module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.jo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5316	5437	
==>port'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char'> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7372	7461	
==>t->new($::Class, symbol->new('add_method'), $_add_method));
}

=pod

method has_method (op <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1279	1384	
==>my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1337	1442	
==>my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11947	12054	
==>n exec, the subref should return match information.  Match
  information gets inserted in $1 etal.  These wi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14436	14548	
==>{  # see 11.4
      <PostfixExpression>
    | <'delete'> <UnaryExpression>
    | <'void'> <UnaryExpression>
    | <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13639	13804	
==>, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13639	13804	
==>, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4031	4154	
==>fetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4031	4154	
==>fetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n heade <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3055	3192	
==>val>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3055	3192	
==>val>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	477	584	
==>os = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    . <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	477	584	
==>os = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    . <==
2	/Users/nnunley/pugs/util/addauthors.pl	694	840	
==>tics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/i;
    foreach my $a (@$authors) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1348	1462	
==>n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    retur <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5084	5236	
==>ist      pre     map     safe   (Array: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5331	5460	
==>S0 = substr target, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= bas <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22030	22121	
==>the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22030	22121	
==>the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick") <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10167	10332	
==>e "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $kl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10167	10332	
==>e "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $kl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2696	2804	
==>erse if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2696	2804	
==>erse if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8411	8557	
==>okies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8411	8557	
==>okies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1629	1751	
==>rvice Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insuffic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1629	1751	
==>rvice Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insuffic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2663	2790	
==>nless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2663	2790	
==>nless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifie <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2763	2958	
==>> 'EigenClass[' . 
                                    ($attrs{'$:name'} || 'i' . $class->name) . 
                                ']'
                );
                if (defined $attrs{'$:supe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20537	20654	
==>,[],B0,B0,E0,E0) :- !.
rm(eol,         [10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- fl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35869	35973	
==>s a new Relation::Example that has the same heading
and whose body contains all of the tuples that are in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37901	38005	
==>s a new Relation::Example that has the same heading and
whose body contains all of the tuples that are in <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5541	5644	
==>fier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5541	5644	
==>fier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13330	13432	
==>$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> wh <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13330	13432	
==>$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> wh <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13937	14090	
==>}

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_tes <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	55	151	
==>eralisierter Smart-Match-Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	252	345	
==>dule::Install"
#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::I <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16469	16572	
==>turns a list of Spans. If one side of the span if Infinite, then the list contains
a single span. Otherw <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16469	16572	
==>turns a list of Spans. If one side of the span if Infinite, then the list contains
a single span. Otherw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17969	18110	
==>ual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14390	14531	
==>ual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RP <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1468	1580	
==>vides an implementation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1468	1580	
==>vides an implementation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	705	854	
==>_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	677	821	
==>_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1077	1187	
==>ered_alternatives_file

=cut

sub registered_alternatives_file {
    my $self = shift;
    my $dir  = $self->di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	507	603	
==>hanged to cc_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2029	2146	
==>0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_addres <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1015	1132	
==>0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_addres <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4055	4157	
==>p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4055	4157	
==>p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2430	2544	
==>e shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eva <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2488	2602	
==>e shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eva <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10771	10885	
==>ait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readli <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10771	10885	
==>ait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6311	6428	
==>t - $expected) . "\n";
        }
	unshift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (wi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12234	12337	
==>d in C<@values>.

If C<$inplace> is specified, the array is sorted in place.

See L<http://www.nntp.perl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1991	2092	
==>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impressi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1991	2092	
==>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impressi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	718	849	
==>n( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	718	849	
==>n( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15111	15222	
==>has Int  $.tz;      # variation from UTC in seconds
    has Bool $.is_dst;
}

multi sub localtime(Num $when = ti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5162	5261	
==>he configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4982	5080	
==>he configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YA <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5612	5712	
==>mplement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5612	5712	
==>mplement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_nex <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	721	892	
==>every Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Mapping :%a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	213	321	
==>sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $va <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	213	321	
==>sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3525	3634	
==>every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3525	3634	
==>every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	417	522	
==>= shift;
    return $self->{type}->new();
}

1;

__END__

=pod

=head1 NAME

attribute - the core attribut <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9252	9404	
==>h);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9252	9404	
==>h);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4019	4132	
==>an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3877	3987	
==>an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' ha <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	730	843	
==>oot' user.)\n"
    unless -w $Config{sitelib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    l <==
2	/Users/nnunley/pugs/util/package-osx.pl	5406	5510	
==>:FAQ::Capture.3
        /usr/local/man/man3/Perl6::FAQ::Capture.3pm
        /usr/local/man/man3/Perl6::FA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13	107	
==>:Emitter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13	107	
==>:Emitter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# se <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5419	5529	
==>f success or failure;

=item err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5419	5529	
==>f success or failure;

=item err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHO <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3419	3535	
==>nce($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3419	3535	
==>nce($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$ <==
2	/Users/nnunley/pugs/util/fixauthors.pl	131	241	
==>IN,  ":utf8");

my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12261	12363	
==>ld, $value )

Set the specified header to the given value, but only if no previous
value for that field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12261	12363	
==>ld, $value )

Set the specified header to the given value, but only if no previous
value for that field <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4536	4653	
==>,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithm <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4536	4653	
==>,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	153	267	
==>ode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	153	267	
==>ode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	640	889	
==>dText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	640	889	
==>dText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6809	6909	
==>turn $p->Output( classname => $self->{grammar} );
}

sub exists_op { die "not implemented" };
sub <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2714	2819	
==>tring { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2714	2819	
==>tring { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	384	487	
==>rns Num
    { ... };

multi sub pi is readonly () returns Num
    { 3.14159_26535_89793_23846_26433_8327 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2024	2124	
==>d.iso";

sub usage { print <<USAGE; exit }
Usage: $0 [options]

$0 creates a very minimalistic Pugs L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	936	1085	
==>er',
        other => '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        othe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13822	13964	
==>ive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13822	13964	
==>ive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	158	280	
==>r and the type object model
# it emits greek letters and unicode symbols, or type literals

# second part is the object mod <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2024	2132	
==>mpression {
  eval { require Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	313	411	
==>sses up PIR generation.  To return a value, arrange for
it to be the last evaluated expression.

Al <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7435	7564	
==>r(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7435	7564	
==>r(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    " <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1483	1602	
==>=> $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o->{'np <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1934	2044	
==>l->new(
			Blondie::TypeSafe::Annotation->new(
				type => $type,
				struct_equiv => $val,
			),
		),
	);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24620	24731	
==>This method returns this Relation's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29172	29283	
==>This method returns this Relation's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

Thi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	81	208	
==>);

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::I <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	81	208	
==>);

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::I <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14518	14609	
==>ties_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14518	14609	
==>ties_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16699	16830	
==>$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16978	17109	
==>$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21655	21752	
==>eir names, and all
Relation tuples may be individually addressed only by their values; neither
may <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26207	26304	
==>eir names, and all
Relation tuples may be individually addressed only by their values; neither
may <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5706	5810	
==>_DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5706	5810	
==>_DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_a <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4160	4265	
==>d line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th line\n" <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6590	6767	
==>eeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6590	6767	
==>eeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10383	10497	
==>E='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10383	10497	
==>E='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9783	9896	
==>pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_ccl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6708	6859	
==>.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6708	6859	
==>.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    metho <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2575	2700	
==>mflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2575	2700	
==>mflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5762	5859	
==>ially the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5762	5859	
==>ially the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  % <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	214	305	
==>$rep,$type,$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pairs]);
}
sub node_s { hlp( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2410	2528	
==>hed.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2627	2745	
==>hed.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5972	6088	
==>nshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6165	6281	
==>nshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20249	20416	
==>il::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL (opaque $self:) returns nil {
    my $dispatcher = $self.dispatcher(:d <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1220	1313	
==>errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8885	9046	
==>ymbol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'method <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9490	9580	
==>ame));

	push(@args,"invocant=>1") if $op{'isInvocant'};
	push(@args,"lvalue=>1") if $op{'i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3481	3589	
==>PL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3481	3589	
==>PL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6941	7054	
==>=head2 Creating an Instance

To use this module as is, load it, and create an instance:

  use Regexp::Parser;
  m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4914	5024	
==>s it's children one by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val(10 <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	109	201	
==>ckage Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	10	102	
==>ckage Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ( <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	194	393	
==>{
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple documents not supported\n" if $doc;
            $doc = {};
            next;
        };
        /^ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	155	263	
==>ase; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file {
    my ($self, %args) = @_;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4737	4838	
==>ME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4877	4978	
==>ME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an im <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25864	25967	
==>Message Variables>

Hash(Str) of Any - This contains zero or more variable names and values
that are ass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25864	25967	
==>Message Variables>

Hash(Str) of Any - This contains zero or more variable names and values
that are ass <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1923	2014	
==>Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1923	2014	
==>Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12741	12850	
==>ions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entities found in the $strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12741	12850	
==>ions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entities found in the $strin <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3271	3407	
==>$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $category = sub {
    return join "-",
      (map { $_[0]->{$_} } qw<pugs_version <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3168	3278	
==>, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3168	3278	
==>, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1115	1218	
==>::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1115	1218	
==>::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGramm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4047	4179	
==>ext::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4047	4179	
==>ext::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2476	2585	
==>an.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2476	2585	
==>an.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22832	22930	
==>class
}

(method class ((opaque $self:)) returns opaque 
    ($self: class))

=cut

$::Class->send( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15227	15329	
==>meters, creates an empty span.

= OBJECT METHODS

The following methods are available for Span objects: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15227	15329	
==>meters, creates an empty span.

= OBJECT METHODS

The following methods are available for Span objects: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	449	558	
==>nd an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	449	558	
==>nd an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	789	911	
==>()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	789	911	
==>()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3745	3896	
==>nse_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3745	3896	
==>nse_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8355	8541	
==>.
            %mods.delete("sigspace");
        }
        if $pre ne "" {
            $pre ~= "::" if substr($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	720	850	
==>_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	720	850	
==>_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exis <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	221	347	
==>_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	221	347	
==>_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3598	3725	
==>s <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitp <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3598	3725	
==>s <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	37	142	
==>arse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finit <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	37	142	
==>arse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4213	4329	
==>tatement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5062	5178	
==>tatement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	998	1100	
==>c) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2598	2700	
==>c) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3011	3149	
==>s_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3011	3149	
==>s_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29179	29296	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29458	29575	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8176	8332	
==>"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8176	8332	
==>"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1539	1664	
==>ld not chdir into '$args->{dir}'] );
        return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( dir => '/some <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27944	28046	
==>ue $self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self: set_att <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6997	7095	
==>, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6997	7095	
==>, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9223	9352	
==>-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9223	9352	
==>-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $ch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1905	2008	
==>$options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #p <==
2	/Users/nnunley/pugs/util/testgraph.pl	1206	1303	
==>he data for this tool
   util/catalog_tests.pl - produce cross-linkable tests
   util/run-smome.pl <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2126	2241	
==>name in the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $sig <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	966	1093	
==>);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	966	1093	
==>);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1129	1230	
==>"optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '& <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1129	1230	
==>"optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '& <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	111	216	
==>y  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Buil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	111	216	
==>y  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Buil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1451	1563	
==>ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1451	1563	
==>ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5323	5426	
==>ially the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5323	5426	
==>ially the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2337	2495	
==>end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2337	2495	
==>end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.en <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4345	4461	
==>t_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4345	4461	
==>t_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3646	3814	
==>e names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3658	3826	
==>e names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the captur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2476	2612	
==>{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2476	2612	
==>{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1005	1196	
==>.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $di <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1005	1196	
==>.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $di <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	361	486	
==>UCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see R <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	361	486	
==>UCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2335	2475	
==>N;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2335	2475	
==>N;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	15	125	
==>nnte das etwas so aussehen:
if (wurf() == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 geht das elegan <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16446	16608	
==>atum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 varia <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20872	21034	
==>atum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 varia <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	760	878	
==>ift)->{name}) }
sub type { str->new((shift)->{type}) }

sub equal_to {
    my ($left, $right) = @_;
    return bit->new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5444	5557	
==>>file( file($pkg->file)->basename )->stringify();
        
        # append it to the existing content of the inde <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1100	1204	
==>ustom
    # Module::Install extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::Install i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	734	832	
==>us is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_differenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	734	832	
==>us is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_differenc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11740	11865	
==>e_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = read <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11740	11865	
==>e_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = read <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6035	6143	
==>.

Please note that most of the time, it will not be necessary to write these 
methods yourself; in particula <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6035	6143	
==>.

Please note that most of the time, it will not be necessary to write these 
methods yourself; in particula <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5089	5202	
==>er*'s scope.
        }
    }
}

class Carp {
    # Please remember to update t/pugsrun/11-safemode.t if you change <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26885	27015	
==>t(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27164	27294	
==>t(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30148	30247	
==>h the
Message; this user string may also contain variable names that correspond
to Message Variables <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30148	30247	
==>h the
Message; this user string may also contain variable names that correspond
to Message Variables <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7290	7387	
==>inds of ruleop operators:



- higher order operators: alternation, concatenation.

- "plain" matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7042	7136	
==>inds of ruleop operators:

- higher order operators: alternation, concatenation.
- "plain" matc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3813	4009	
==>st if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3813	4009	
==>st if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9354	9468	
==>$text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9354	9468	
==>$text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6338	6487	
==>th a more general domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # resul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6338	6487	
==>th a more general domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # resul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4656	4768	
==>eturn data which is part of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4656	4768	
==>eturn data which is part of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22186	22303	
==>t) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18607	18724	
==>t) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3566	3722	
==>(
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3566	3722	
==>(
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	960	1072	
==>,') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	960	1072	
==>,') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4849	4951	
==>to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<fetch ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1069	1171	
==>to_bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<fetch ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8325	8454	
==>{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcula <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8325	8454	
==>{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcula <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4677	4781	
==>.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4677	4781	
==>.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34687	34780	
==>hat is identical to the original, in which case
this method returns the identity-one Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7163	7316	
==>dtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7163	7316	
==>dtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20704	20808	
==>te the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subdir . "/" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4905	5002	
==>e right cleared x for p3d');
is($p3d->get_y, 0, '... got the right cleared y for p3d');
is($p3d->g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	271	405	
==>$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	271	405	
==>$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2323	2420	
==>:Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2323	2420	
==>:Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24172	24298	
==>hen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20593	20719	
==>hen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3256	3352	
==>@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3256	3352	
==>@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2023	2144	
==>h($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2023	2144	
==>h($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, S <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4397	4513	
==>stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@toke <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4397	4513	
==>stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@toke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7935	8038	
==>, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7935	8038	
==>, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cip <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7511	7677	
==>pture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7511	7677	
==>pture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	137	246	
==>$SIG{__WARN__} = sub { $w };
}

### This is the ONLY module that shouldn't have strict on
# use strict;

#line <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26792	26905	
==>olog);

use Language::Prolog::Types::overload;
use Language::Prolog::Sugar
	    functors => [qw(foo tokenize domat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	368	459	
==>BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1::BB::pugs_ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2257	2374	
==>SIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2257	2374	
==>SIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9027	9174	
==>\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9027	9174	
==>\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $st <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	1	100	
==>use v6;

class Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_functio <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	1	100	
==>use v6;

class Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_functio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2212	2321	
==>ethod is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2212	2321	
==>ethod is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9036	9263	
==>t.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normal <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9036	9263	
==>t.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13616	13714	
==>ent.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13616	13714	
==>ent.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	751	854	
==>e is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	751	854	
==>e is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5259	5364	
==>ror.
# Here $range must be numeric, >= 0
# Non numeric ranges might be a useful future extension. (eg %)
s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3831	3923	
==>func 'cosech';
trig_func 'cotanh';
trig_func 'asech';
trig_func 'acosech';
trig_func 'acotanh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1042	1148	
==>rint 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1042	1148	
==>rint 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1511	1640	
==>ormalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact doma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1511	1640	
==>ormalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact doma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5365	5520	
==>turns a match, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5829	5984	
==>turns a match, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section w <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6715	6832	
==>tems).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6715	6832	
==>tems).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_l <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14940	15085	
==>rc, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$dest\"",
    ensure => sub { -r $dest and -M $dest <= -M $src },
    using  => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37633	37761	
==>{
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ], <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2426	2533	
==>tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2426	2533	
==>tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5918	6052	
==>(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5918	6052	
==>(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	832	929	
==>s a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - ins <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	832	929	
==>s a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - ins <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10009	10109	
==>set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can b <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10009	10109	
==>set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	708	799	
==>zy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-0 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	708	799	
==>zy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19561	19669	
==>Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  The Relation operators a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24113	24221	
==>Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  The Relation operators a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1496	1604	
==>chObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2970	3093	
==>$!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # irc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2970	3093	
==>$!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # irc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1918	2053	
==>s}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1978	2113	
==>s}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unles <==
2	/Users/nnunley/pugs/util/package-osx.pl	11113	11276	
==>\n"; 
                next;
            \}
            print "Removing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	713	832	
==>{ require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	680	799	
==>{ require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    ret <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	339	468	
==>aping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leadi <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	339	468	
==>aping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leadi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22483	22590	
==>uments; they do not interact with the outside
environment at all.

A Relation object has 2 main attributes ( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27035	27142	
==>uments; they do not interact with the outside
environment at all.

A Relation object has 2 main attributes ( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	240	351	
==>ethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	240	351	
==>ethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	140	250	
==>q '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	435	538	
==>hift()->cc_inc_paths(@_);
}

sub lib_paths {
	warn "lib_paths has been changed to cc_lib_paths due to co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1341	1475	
==>turn { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1341	1475	
==>turn { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_var <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	516	633	
==>ure closure::env closure::signature closure::params
        opaque method attribute C3
        /;
    
    sub new { b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1342	1456	
==>ile ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1490	1660	
==>2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z" <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1490	1660	
==>2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7156	7284	
==>ed = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	457	585	
==>ed = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2292	2430	
==>T>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2292	2430	
==>T>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	637	739	
==>named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	637	739	
==>named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7240	7386	
==>mething that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7704	7850	
==>mething that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1584	1709	
==>lass->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::cr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1789	1914	
==>lass->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::cr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6881	6977	
==>warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->forc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7899	7995	
==>warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->forc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17039	17172	
==>{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2050	2147	
==>arscalar>)\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'acces <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17600	17795	
==>) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14021	14216	
==>) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	489	586	
==>ilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	489	586	
==>ilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4349	4446	
==>ow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4349	4446	
==>ow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3317	3444	
==>,  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3317	3444	
==>,  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11321	11458	
==>ve_registered_alternative {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3795	3902	
==>s to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3795	3902	
==>s to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12671	12791	
==>object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6146	6266	
==>object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	827	933	
==>}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	827	933	
==>}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfil <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1896	2021	
==>*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @ar <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1896	2021	
==>*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @ar <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2479	2581	
==>e as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2479	2581	
==>e as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17096	17226	
==>e danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
O <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22196	22326	
==>e danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
O <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38759	38867	
==>nd any "<foo>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38759	38867	
==>nd any "<foo>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	237	348	
==>tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$? <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	237	348	
==>tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$? <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2338	2465	
==>at context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Pe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2338	2465	
==>at context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Pe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3675	3775	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3675	3775	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7012	7121	
==>)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Parr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3022	3144	
==>$h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3022	3144	
==>$h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	243	367	
==>ssing arguments!";
my $output_filename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	243	367	
==>ssing arguments!";
my $output_filename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1852	1978	
==>s>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3228	3332	
==>s>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_pus <==
2	/Users/nnunley/pugs/util/package-osx.pl	700	797	
==>ude/parrot
        /usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5.1.dyli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4511	4668	
==>ift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ 'anyof_close' ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $h <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11814	11910	
==>lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11814	11910	
==>lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8018	8118	
==>od intersection (Relation $other!) returns Relation {

    die "The heading of the relation in $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11495	11595	
==>od intersection (Relation $other!) returns Relation {

    die "The heading of the relation in $other <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1460	1601	
==>der,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1460	1601	
==>der,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5555	5662	
==>:Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14535	14642	
==>on a zero-width
      # assertion can match a null string a lot
      elsif ($tree->[-1]->{zerolen} and $sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5909	6031	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5909	6031	
==>t {
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    ret <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	226	336	
==>ediate goal is simply to permit a piln backend to
# pass most of the tests the current backend does.


role rAr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17749	17844	
==>A = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= "use Perl6::Run::OnPerl5::X <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8688	8782	
==>vidual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schne <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8688	8782	
==>vidual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schne <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1867	1981	
==>($node);
	}
}

sub literal_value {
	my $self = shift;
	my $node = shift;
	
	my $t = $self->t($node);

	if ($t eq "I <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8421	8531	
==>es ;      Code *&test   --> Lazy )
 multi Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::gr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6797	6900	
==>n ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6797	6900	
==>n ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8203	8336	
==>node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8215	8348	
==>node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4462	4584	
==>[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4462	4584	
==>[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        f <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1859	1979	
==>cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4609	4719	
==>ffset(-1) :length(1));

 multi Array::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Array::push (@array <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1051	1182	
==>1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1062	1193	
==>1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10837	10988	
==>:group;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    return $f;
  }
}
{
  # ( capturing
  package Regexp::Parser::open;
  sub emi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2841	2947	
==>echunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2841	2947	
==>echunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10595	10719	
==>w->new( $l, $l );
	},
	# a -> b -> (a x b)
	pair => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	360	499	
==>=> sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom > <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9778	9917	
==>=> sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom > <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6643	6745	
==>tch = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6655	6757	
==>tch = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21355	21473	
==>rn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17776	17894	
==>rn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9399	9500	
==>"int"),
		),
	),
	sub => type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type::o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21875	21969	
==>n of the Relation role

=head1 VERSION

This document describes Relation::Example version 0.1.0 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4979	5072	
==>Value::Completion {
   submethod BUILD { $.type = JSX::InternalValue::Completion_type.new(); } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13711	13842	
==>eudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13711	13842	
==>eudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13523	13646	
==>yedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13523	13646	
==>yedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5059	5162	
==>deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7727	7830	
==>deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_l <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1072	1169	
==>e module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SEC <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1072	1169	
==>e module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SEC <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	380	463	
==>tion>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L<JIB::Package::Insta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6649	6842	
==>roup',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6842	7035	
==>roup',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { do <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	31001	31095	
==>2-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21141	21228	
==>E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    cha <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12229	12370	
==>e
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12229	12370	
==>e
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3430	3538	
==>-- emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3647	3755	
==>-- emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return < <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4435	4560	
==>strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15766	15884	
==>ers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => sub { p6_Str( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12242	12365	
==>0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule HexDigit {  # see 9.3.1
      <[0..9a..f <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	331	434	
==>ious class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently de <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	331	434	
==>ious class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18820	18916	
==>is already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18820	18916	
==>is already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<user <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9880	9989	
==>anted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11357	11466	
==>anted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required" <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3275	3387	
==>'t live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3275	3387	
==>'t live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16337	16473	
==>$other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return Relation.new(
        hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19814	19950	
==>$other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    return Relation.new(
        hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11272	11391	
==>'|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });


  return;

  # contro <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	479	617	
==>l $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
    my ($self, $cmd) = @_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	592	724	
==>l $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
	my ($self, $cmd) = @_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1284	1388	
==>'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit::FALSE) { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10531	10659	
==>ghest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <=> $a->version } @may <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8835	8941	
==>ing-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2202	2322	
==>]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2202	2322	
==>]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13091	13207	
==>ng the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13091	13207	
==>ng the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12947	13040	
==>atin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are prov <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12947	13040	
==>atin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are prov <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	35	154	
==>multi  List::grep (MatchTest $test ;   *@values --> Lazy ) {
    gather {
	for @values -> $x {
	    take $x if $x ~~ $te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14386	14484	
==>g

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
inter <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14386	14484	
==>g

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
inter <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5643	5757	
==>e subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9954	10068	
==>e subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2548	2643	
==>constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2548	2643	
==>constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $cod <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7541	7630	
==>nk->isa("Blondie::Backend::C::Prim") and ($orig_thunk->fixity || "") eq "infix") {
		retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16070	16199	
==>ss Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16070	16199	
==>ss Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    metho <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3767	3874	
==>l subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kaprano <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3767	3874	
==>l subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kaprano <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5663	5766	
==>Agent>).

=item head($url)

Get document headers. Depending on the context, C<head> returns
the followin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5663	5766	
==>Agent>).

=item head($url)

Get document headers. Depending on the context, C<head> returns
the followin <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	51	153	
==>use
#=Perl 5: sechs mal würfeln
my @a; push @a, wurf() for 1..6;
#!\pause
#=Perl 6: sechs mal würfeln <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5618	5709	
==>) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($sub->struct_equiv->val->struct_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24976	25076	
==>th other components is making a
combined work based on Rosetta.  Thus, the terms and conditions of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24976	25076	
==>th other components is making a
combined work based on Rosetta.  Thus, the terms and conditions of th <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1013	1124	
==>$name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1013	1124	
==>$name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8040	8187	
==>p::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7766	7905	
==>p::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        r <==
2	/Users/nnunley/pugs/util/package-osx.pl	4220	4317	
==>6::Bible::E03.3pm
        /usr/local/man/man3/Perl6::Bible::E04.3pm
        /usr/local/man/man3/Pe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7484	7585	
==>t (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remainin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7484	7585	
==>t (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remainin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8124	8221	
==>$iFooBar->does('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does('rBar'), '... iFooBar does rBa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	210	318	
==>Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7319	7417	
==>e. see below)
multi unify => ( 'type::variable::free', any(qw/type::variable::free type::operator/) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3762	3856	
==>ischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

Thi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3762	3856	
==>ischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3372	3502	
==>=>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3372	3502	
==>=>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1288	1400	
==>olon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1288	1400	
==>olon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_e <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4891	5022	
==>7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4891	5022	
==>7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6017	6118	
==>s >= lastpos goto term_literal_end
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21394	21493	
==><autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21394	21493	
==><autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2877	2990	
==>force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control charac <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	118	236	
==>{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Confi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18607	18702	
==>Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18607	18702	
==>Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	224	339	
==>);
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	224	339	
==>);
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1738	1855	
==>f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got clean <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1738	1855	
==>f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got clean <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3064	3180	
==>ent we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3064	3180	
==>ent we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2780	2906	
==>ug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2780	2906	
==>ug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1425	1561	
==>nt->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of cre <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1425	1561	
==>nt->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of cre <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6664	6766	
==>nd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOpt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6664	6766	
==>nd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOpt <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5099	5216	
==>ames of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8576	8693	
==>ames of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	340	439	
==>e {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1068	1165	
==>e {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9285	9433	
==>my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9285	9433	
==>my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6353	6491	
==>al domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # results i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6353	6491	
==>al domain, alternately stripping
                    # leading name components and leading dots.  When this
                    # results i <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	561	674	
==>h) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	561	674	
==>h) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1061	1179	
==>system($cmd)) {
	#$err = $!."\n";
	$err = `cat $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6800	6951	
==>ie';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25386	25528	
==>t pass?
    sub SIZE_ONLY           { ! $_[0]{tree} }

    # the most recent addition to the tree
    sub LATEST :lvalue      { $_[0]{tree}[-1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12438	12573	
==>s{args}) {
	_quote_args(\$runperl, $args{args});
    }
    $runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
    $runperl .= <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12325	12453	
==>at( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        { local($X::pos)=($X::pos) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11481	11580	
==>th the outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11481	11580	
==>th the outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10260	10355	
==>datory
constructor arguments are provided and that they are of the correct
container type (eg, h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10260	10355	
==>datory
constructor arguments are provided and that they are of the correct
container type (eg, h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2129	2238	
==>dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2129	2238	
==>dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12162	12262	
==>ly, use the root()
method to get it.  From there, you're on your own.  You'll probably
want to make a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8698	8807	
==>>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6229	6334	
==>>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30861	31027	
==>$self: list @values) returns block {
    my $counter = 0;
    return sub {
        return @values[$counter++];
    };
}

=cut

$::Class->send('add_method' => (
    # m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9361	9496	
==>tch = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9349	9484	
==>tch = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	303	423	
==>The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has I <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	303	423	
==>The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4670	4799	
==>leop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4524	4649	
==>leop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6307	6443	
==>*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6307	6443	
==>*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	770	879	
==>->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	671	780	
==>->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1298	1437	
==>a core type";    
    return num->new($left->to_native - $right->to_num->to_native());
}

sub multiply {
    my ($left, $right) = @_;
    (b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30946	31048	
==>hat is identical to the original, in which case
this method returns the identity-one Relation or the in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35496	35598	
==>hat is identical to the original, in which case
this method returns the identity-one Relation or the in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7246	7373	
==>ure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submethod _get_comp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7246	7373	
==>ure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submethod _get_comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2044	2269	
==>$n->{single_quoted} . '\'' 
        if exists $n->{single_quoted};
            
    return 'qw(' . $n->{angle_quoted} . ')' 
        if exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	143	242	
==>arnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	143	242	
==>arnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use P <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2078	2178	
==>AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<F <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2078	2178	
==>AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<F <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	858	980	
==>y search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / interse <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	858	980	
==>y search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / interse <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2294	2394	
==>data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<ge <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2294	2394	
==>data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2608	2722	
==>t<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and hos <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2608	2722	
==>t<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and hos <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2382	2482	
==>calling 
C<generate_keystream> with a number of bytes and throwing the return value away.
Encryptions <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2382	2482	
==>calling 
C<generate_keystream> with a number of bytes and throwing the return value away.
Encryptions <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13268	13396	
==>pt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13268	13396	
==>pt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11767	11910	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12046	12189	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9334	9443	
==>an );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9334	9443	
==>an );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $sp <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1199	1336	
==>sh( $maketoken.(@newtoks.shift, $label) )
                if +@newtoks;
      }

      $buf = [~] @newtoks;
      undefine $buf
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3193	3348	
==>}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3440	3595	
==>}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2166	2265	
==>}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2166	2265	
==>}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1607	1722	
==>$realclean = $self->makemaker_args->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => j <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	608	716	
==>on *@indextests) returns List of Pair
multi sub values (@array ; Any|Junction *@indextests) returns Object|Li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11538	11662	
==>'port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11538	11662	
==>'port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1479	1614	
==>cape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1479	1614	
==>cape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $na <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2932	3041	
==>er::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2932	3041	
==>er::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1269	1403	
==>\"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1269	1403	
==>\"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1577	1694	
==>1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1565	1682	
==>1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8611	8815	
==>);
            -e $_ && system(qq[rm -rf $_])                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need stat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15727	15849	
==>s $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10583	10705	
==>s $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      retu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	636	737	
==>skell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	636	737	
==>skell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1374	1490	
==>ller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25439	25543	
==>em C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type of message that the object
repr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25439	25543	
==>em C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the type of message that the object
repr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16882	17022	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17161	17301	
==>capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3233	3373	
==>r) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delete $prereq->{$file};
        }
    }

    if ( my $perl_version = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5265	5375	
==>ass => $S->force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7558	7643	
==>.
p5_condition_test(lookahead_not(R))  --> p5_elemental(lookahead_not(R)).
p5_conditio <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6009	6143	
==>rn;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	617	734	
==>d($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protoco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	617	734	
==>d($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protoco <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3804	3918	
==>fig::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3804	3918	
==>fig::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1949	2055	
==>llback);
  my $r_address;
  my $regexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2576	2740	
==>e):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2576	2740	
==>e):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match- <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	430	532	
==>y('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line( <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	430	532	
==>y('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3562	3751	
==>w($e, sub {
                my $e = shift;
                $e->get('$current')
                  ->send('has_method' => $e->get('$label'))
                  ->and(
                      bloc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2551	2662	
==>e than these ;-)
	
	my %map;
	my @forall;

	# allocate letters for type variables
	# it's ok to destroy the obje <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	645	763	
==>if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	645	763	
==>if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	453	553	
==>ch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	453	553	
==>ch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9727	9865	
==>e 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacte <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	177	296	
==>or qw<:constants>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  local $_;

  $args{descr}  ||= "(no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12513	12610	
==>a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12513	12610	
==>a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	960	1062	
==>e::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1097	1199	
==>e::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3472	3570	
==>s within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3472	3570	
==>s within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1487	1583	
==>$args ||= list->new();
    $self->_bind_params($args);
    my $return_value = $self->{body}->($se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	471	592	
==>$self = shift;
	my $f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } }
}

{
	package Bl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4356	4450	
==>ush @{ $self->{values}{no_index}{$type} }, @_ if $type;
    return $self->{values}{no_index};
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8070	8197	
==>$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8058	8185	
==>$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	447	902	
==>5 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	447	902	
==>5 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37589	37769	
==>ymbol->new('%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	355	460	
==>}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses')->to_na <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2480	2620	
==>rlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2480	2620	
==>rlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        < <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2378	2549	
==>he package variable C<$Test::Harness::Verbose> is exportable and can be
used to let C<runtests()> display the standard output of the script
without altering the behavior ot <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2491	2605	
==>v;
=pod
Design notes:
 Why not call "TAILCALL" "GOTO"?  So you can easily search on both.
 Why LET but not TEMP?  L <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9520	9620	
==>n a particular order.  The
field names are cases insensitive.

Instances of this class are usually cr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9520	9620	
==>n a particular order.  The
field names are cases insensitive.

Instances of this class are usually cr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4144	4275	
==>verse =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4144	4275	
==>verse =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5299	5418	
==>n URL
and return it.  It returns C<undef> if it fails.  The $url argument can
be either a simple string or a reference t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5299	5418	
==>n URL
and return it.  It returns C<undef> if it fails.  The $url argument can
be either a simple string or a reference t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25616	25717	
==>s an exception payload).  The key is intended to be read by a machine and
mapped to a user-readable me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25616	25717	
==>s an exception payload).  The key is intended to be read by a machine and
mapped to a user-readable me <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2398	2504	
==>lf: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersect <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2398	2504	
==>lf: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersect <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2400	2501	
==>insert.
# Top level index is file, second level is an array ref of hash refs.
# FIXME: Document next l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14021	14134	
==>as a matching template available.
        print $translator.translate_message(
            Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14021	14134	
==>as a matching template available.
        print $translator.translate_message(
            Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15697	15843	
==>iv');
          }
        }
        
        $sobj->deobjectify_text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13797	13929	
==>e;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1277	1409	
==>e;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1460	1576	
==>XP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1460	1576	
==>XP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3721	3817	
==>TTP::Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3721	3817	
==>TTP::Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10224	10325	
==>of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10282	10383	
==>of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expecte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2220	2338	
==>eturn 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = ' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2220	2338	
==>eturn 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	386	635	
==>nstant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	387	636	
==>nstant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5009	5198	
==>def, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5021	5210	
==>def, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13357	13453	
==>ated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be pr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13357	13453	
==>ated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1147	1236	
==>->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Paramet <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1147	1236	
==>->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Paramet <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1556	1678	
==>sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->packa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4759	4881	
==>sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->packa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1608	1714	
==>my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names mu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2256	2362	
==>my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names mu <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	399	524	
==>irectory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $p <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	399	524	
==>irectory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	994	1094	
==>ciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift acros <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	994	1094	
==>ciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift acros <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	557	679	
==>rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	557	679	
==>rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	237	352	
==>l.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	237	352	
==>l.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10429	10523	
==>ned($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
E <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11164	11258	
==>ned($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
E <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13701	13798	
==>o
be sorted out before you can continue.

It is also possible to use the `force_todo()` function t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13759	13856	
==>o
be sorted out before you can continue.

It is also possible to use the `force_todo()` function t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19462	19562	
==>enticate

This header must be included in a C<407 Proxy Authentication Required>
response.

=item $h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19462	19562	
==>enticate

This header must be included in a C<407 Proxy Authentication Required>
response.

=item $h. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3530	3629	
==>g load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide fun <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3530	3629	
==>g load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide fun <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31781	31874	
==>amed C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36331	36424	
==>amed C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1256	1354	
==>s,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1256	1354	
==>s,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	585	700	
==>f = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an expl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	747	862	
==>f = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an expl <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4410	4506	
==>ynonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Dat <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4410	4506	
==>ynonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Dat <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	436	541	
==>($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
m <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	436	541	
==>($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
m <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4659	4767	
==>he object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4659	4767	
==>he object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1403	1529	
==>:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $met <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1403	1529	
==>:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21578	21671	
==>$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retriev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21578	21671	
==>$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retriev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	569	688	
==>> \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	569	688	
==>> \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards comp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4219	4318	
==>These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4219	4318	
==>These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `sta <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	894	1000	
==>~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	894	1000	
==>~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	260	365	
==>g)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	260	365	
==>g)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18681	18798	
==>x->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = spl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20039	20156	
==>x->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = spl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3001	3109	
==>f $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3001	3109	
==>f $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %h <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	311	463	
==>upported\n" if $doc;
            $doc = {};
            next;
        };
        /^(\S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, full YAML spe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12965	13077	
==>_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12965	13077	
==>_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	177	287	
==>not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	177	287	
==>not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14817	14973	
==>$tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look_down(_tag => $tag)) {

            my $beg_n = $beg->pindex;
            my $end   = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16805	16889	
==><EqualityExpressionNoIn> <'!=='> <RelationalExpressionNoIn>
}
rule BitwiseANDExpressi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5680	5778	
==>); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5680	5778	
==>); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10131	10234	
==>ub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	450	694	
==>s.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	450	694	
==>s.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7655	7768	
==>);

    return Relation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26496	26591	
==>e $self:) (opaque $subclass)) returns nil 
    (($self: get_attr (symbol new @:subclasses)) push <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2225	2359	
==>for better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3586	3712	
==>for better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12278	12427	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12557	12706	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4708	4809	
==>)";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4848	4949	
==>)";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	775	904	
==>ing = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	775	904	
==>ing = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	955	1050	
==>.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for the automatic update.
</p>
</body>
</html> <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9347	9469	
==>his option belongs: $_" unless $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1039	1142	
==>xAttrList () {
    return %!attrs;
}

method export_attr_names of List of Relation::AttrName () {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2811	2943	
==>me data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2811	2943	
==>me data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	475	590	
==>if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{check_nmak <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	495	598	
==>if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_nmak <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1203	1307	
==>:Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1203	1307	
==>:Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3636	3731	
==>self->{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7851	7955	
==>:Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7851	7955	
==>:Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8479	8580	
==>'Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all ty <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8479	8580	
==>'Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all ty <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37224	37319	
==>hod takes the name of a Perl package in its positional parameter
$module_name (a string) and che <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37224	37319	
==>hod takes the name of a Perl package in its positional parameter
$module_name (a string) and che <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6508	6672	
==>le::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6508	6672	
==>le::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18839	18942	
==>e this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$original <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18839	18942	
==>e this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$original <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18067	18338	
==>->depth    or
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4808	4946	
==>r  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4643	4775	
==>r  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11272	11449	
==>xage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11272	11449	
==>xage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12564	12660	
==>header( $field, ... )

This function removes the header fields with the specified names.

The hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12564	12660	
==>header( $field, ... )

This function removes the header fields with the specified names.

The hea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1048	1164	
==>zy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1048	1164	
==>zy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12496	12621	
==>);
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12496	12621	
==>);
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4550	4667	
==>and semantics for Regex.

=head2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> objec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4744	4847	
==>print("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4744	4847	
==>print("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1297	1413	
==>ow_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1297	1413	
==>ow_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3610	3733	
==>open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3610	3733	
==>open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4724	4859	
==>_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4724	4859	
==>_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33142	33252	
==>ference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37692	37802	
==>ference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4421	4519	
==>}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4421	4519	
==>}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	79	209	
==>rammar::BaseCategory);

=for pod

Parses the text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subsc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7755	7876	
==>eturn "()";
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::immediate_stateme <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	160	262	
==>fortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	160	262	
==>fortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23290	23394	
==>es require your text data to be stored in a format other than Perl
files.  Or alternately they have a com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23290	23394	
==>es require your text data to be stored in a format other than Perl
files.  Or alternately they have a com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7386	7495	
==>tch operators: like 'literal'.



Higher order operators take a list of match operators, and return a new 

ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7135	7241	
==>tch operators: like 'literal'.

Higher order operators take a list of match operators, and return a new 
ma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9407	9510	
==>quence>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscapeSequence>
    | <'0'> <!before <Decim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	894	1108	
==>p         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '-' exp %prec NEG   { $out= [ $_[1], $_[2] ] }
        |   exp '^' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '(' exp ')'         { $out= $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25432	25586	
==>tree} }

    # the most recent addition to the tree
    sub LATEST :lvalue      { $_[0]{tree}[-1] }

You may find it helpful to copy these to your sub-clas <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1817	1918	
==>but can't just make it a singleton
### due to stacked installations
{   my $config  = JIB::Config->new <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4487	4586	
==>t version of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4487	4586	
==>t version of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15002	15095	
==>ogrammatic interface (API), called
the Rosetta Native Interface (RNI), which applications invo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15002	15095	
==>ogrammatic interface (API), called
the Rosetta Native Interface (RNI), which applications invo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2767	2869	
==>could work as the

basic interface, and if you'd like to offer more, subclass

it and call it Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2665	2765	
==>could work as the
basic interface, and if you'd like to offer more, subclass
it and call it Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	769	934	
==>10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<c <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	769	934	
==>10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1493	1614	
==>tax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1493	1614	
==>tax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7487	7614	
==>mper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7499	7626	
==>mper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6221	6321	
==>ments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sib <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6221	6321	
==>ments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sib <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7438	7537	
==>d

method has_method (opaque $self: symbol $label) returns bit { 
    %:methods.exists($label);
}

( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1315	1410	
==>lf->{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1178	1340	
==>ns old cwd on success, false on failure.

=cut

sub _chdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4258	4398	
==>y( $pkg->file, $self->pool )     or error($!), return;
    $self->add_package_to_index( package => $inst ) or return;

    return 1;
}

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1501	1592	
==>--------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1501	1592	
==>--------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	567	659	
==>ds fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	567	659	
==>ds fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	976	1076	
==>y ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	976	1076	
==>y ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9816	9929	
==>self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9816	9929	
==>self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9331	9462	
==>n't know where this option belongs: $_" unless $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4998	5100	
==>cord
$files->{$_->{file}} = $_ for @{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for(k <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19299	19431	
==>method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39751	39883	
==>method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4859	4997	
==>d = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( I <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4859	4997	
==>d = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( I <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6159	6344	
==>e $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6159	6344	
==>e $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6703	6853	
==>> $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { lab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6703	6853	
==>> $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { lab <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10085	10194	
==>t($_)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { native(env => $env, %$_) }
    {
        arity <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18894	19056	
==>onstant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19173	19335	
==>onstant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3593	3696	
==>st create an object of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3593	3696	
==>st create an object of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7144	7271	
==>ub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  F <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7202	7329	
==>ub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15393	15496	
==>pect this kind of
value when the header value is set.

=over 4

=item $h.date

This header represents th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15393	15496	
==>pect this kind of
value when the header value is set.

=over 4

=item $h.date

This header represents th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	572	679	
==>External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	572	679	
==>External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9077	9190	
==>{ text-align:   right; }

    .details  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7833	7964	
==>into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7833	7964	
==>into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $tex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20650	20755	
==>ust use accessor
methods.  Relation does not declare any subroutines or export such.

The usual way that R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25202	25307	
==>ust use accessor
methods.  Relation does not declare any subroutines or export such.

The usual way that R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22225	22337	
==>ts tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation class is pure an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26777	26889	
==>ts tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation class is pure an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1016	1163	
==>n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1027	1174	
==>n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18665	18766	
==>mple,
this module automatically tries to use slight variations of the nickname in the
login phase (for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18665	18766	
==>mple,
this module automatically tries to use slight variations of the nickname in the
login phase (for <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11843	11987	
==>= $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self->registered_alternatives }; 

    $self->registered_alternatives <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9251	9361	
==>unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.ch <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9251	9361	
==>unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.ch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3987	4113	
==>this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4451	4577	
==>this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	771	867	
==>n;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subclas <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	771	867	
==>n;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subclas <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5610	5724	
==>line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SY <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5610	5724	
==>line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SY <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1777	1906	
==>ilename)->get_p6_file;
	    $eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11780	12005	
==>],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11780	12005	
==>],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12377	12480	
==>r the flag value,
  and call the original Perl_ funcs if it is not present.

Risks:

  Trying to properl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2395	2515	
==>nts appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <va <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2395	2515	
==>nts appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <va <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	793	887	
==>y> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as soo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	793	887	
==>y> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as soo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10174	10272	
==>arameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empt <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10174	10272	
==>arameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4136	4324	
==>h
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4136	4324	
==>h
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $! <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3199	3325	
==>::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( % <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3199	3325	
==>::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	62	173	
==>e experimental implementation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	60	166	
==>e experimental implementation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Gr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15956	16062	
==>l modules.

Modules that use these compilation modules get compiled into some
altered form the first time t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15956	16062	
==>l modules.

Modules that use these compilation modules get compiled into some
altered form the first time t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23163	23290	
==>andler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19584	19711	
==>andler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_ha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3354	3463	
==>($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A coll <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3354	3463	
==>($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A coll <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14421	14575	
==>_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14421	14575	
==>_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16018	16121	
==>tself and not any human user.  In some
situations, a shared program component may raise such a condition <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16018	16121	
==>tself and not any human user.  In some
situations, a shared program component may raise such a condition <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8659	8764	
==>od subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8659	8764	
==>od subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8891	9067	
==>e.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMA <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8891	9067	
==>e.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMA <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1031	1176	
==>e, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1031	1176	
==>e, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4216	4345	
==>' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4216	4345	
==>' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $mat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12246	12351	
==>returns the previous element in the recurrence.

- `contains( $x )`

Returns true if the parameter is a me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12246	12351	
==>returns the previous element in the recurrence.

- `contains( $x )`

Returns true if the parameter is a me <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27004	27101	
==>fine REINT_ONCE_NOML		0x1000000 /* Intuit can succed once only. */
 #define REINT_ONCE_ML		0x20000 <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	276	370	
==>n->include_deps(@_) };
sub auto_include { +shift->admin->auto_include(@_) };
sub auto_include_d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2190	2294	
==>f->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    push @{ $self->{param_stack} }, $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1572	1714	
==>s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1572	1714	
==>s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    met <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	597	747	
==>n map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	597	747	
==>n map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5385	5513	
==>a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5385	5513	
==>a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5408	5512	
==>ccordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5408	5512	
==>ccordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	483	587	
==>le( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	483	587	
==>le( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 R <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2633	2761	
==>t be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2633	2761	
==>t be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.ne <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7716	7837	
==>y_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7716	7837	
==>y_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	957	1104	
==>s prototype to some common names for super
        return $table->{prototype}
            if ($message eq 'prototype' ||
                $message eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18729	18831	
==>s above would render as C<[\w:]>.

=back

=head2 0.021 -- July 3, 2004

=over 4

=item I<anyof_class> C <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1365	1467	
==>urns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1365	1467	
==>urns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7945	8044	
==>s ($self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7945	8044	
==>s ($self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_univ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	589	706	
==>@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	589	706	
==>@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3006	3250	
==>n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3006	3250	
==>n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %e <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15452	15597	
==>ito boot image name
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-load-size" => 4,              # S <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2054	2174	
==>iber pair really means that all notifications are sent everywhere
        1;
    }

    method delete {
        $.publish <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18265	18357	
==>_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18265	18357	
==>_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	125	249	
==>put
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $messa <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	125	249	
==>put
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $messa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18369	18475	
==>pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5397	5556	
==>o have to deal with
            # uninitialized vars.
            foreach my $piece (qw(name type reason)) {
                $details->{$piece} = defined $resul <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9330	9485	
==>{$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits working infi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8561	8676	
==>when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where this method comes into p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8561	8676	
==>when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where this method comes into p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13280	13394	
==>r last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^` <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13280	13394	
==>r last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^` <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12909	13004	
==>pends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12967	13062	
==>pends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns B <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38553	38655	
==>d '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38553	38655	
==>d '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1031	1158	
==>Error in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1236	1363	
==>Error in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # prin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2869	2968	
==>:{ $other.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2869	2968	
==>:{ $other.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.member <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3669	3796	
==>t be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3669	3796	
==>t be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7858	7964	
==>xceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7858	7964	
==>xceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    r <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1171	1392	
==>:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1171	1392	
==>:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2356	2499	
==>turn \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2344	2487	
==>turn \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        u <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4759	4933	
==>multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4759	4933	
==>multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27813	27913	
==>ill be run by C<$^X>, the currently-executing Perl.
However, you may want to have it run by a differe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16961	17071	
==>y if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16961	17071	
==>y if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer dat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1691	1819	
==>t         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeou <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1691	1819	
==>t         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	479	593	
==>capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	479	593	
==>capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@matc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	948	1054	
==>, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	948	1054	
==>, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
opt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34807	34906	
==>L::'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34807	34906	
==>L::'], member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14583	14680	
==>pec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long header
va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14583	14680	
==>pec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long header
va <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	941	1045	
==>y $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	941	1045	
==>y $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2476	2744	
==>rms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2723	2991	
==>rms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17322	17432	
==>span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $it <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17322	17432	
==>span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $it <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7165	7283	
==>odule does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7165	7283	
==>odule does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp- <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3440	3563	
==>emit_Int( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1427	1553	
==>f: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1427	1553	
==>f: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5894	6019	
==>s_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5894	6019	
==>s_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	140	250	
==>rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	866	976	
==>rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24183	24277	
==>st, Locale::KeyedText does no compile time binding and
will support multiple languages or local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24183	24277	
==>st, Locale::KeyedText does no compile time binding and
will support multiple languages or local <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4458	4539	
==>:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)* <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4458	4539	
==>:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)* <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1383	1556	
==>rings   
            if ($t eq '"') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1341	1534	
==>lf<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'w <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1341	1534	
==>lf<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'w <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9234	9394	
==>=> \@failed,
                    bonus       => $results{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17418	17503	
==>Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4542	4649	
==>ed line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($en <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4542	4649	
==>ed line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($en <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	716	834	
==>equire Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	683	801	
==>equire Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    retur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25107	25221	
==>ts
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29659	29773	
==>ts
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	666	768	
==>rm
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1256	1358	
==>rm
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4229	4320	
==>nterface::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the " <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4229	4320	
==>nterface::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the " <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2281	2431	
==>|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values == <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1050	1200	
==>|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values == <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9170	9291	
==>$protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versio <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10647	10768	
==>$protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6104	6239	
==>(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5910	6038	
==>(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5060	5292	
==>odifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ... <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5060	5292	
==>odifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ... <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4511	4639	
==>character
         macro rxmodinternal:<x> { ... } # define your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # defi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6588	6688	
==>n $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@args, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2219	2334	
==>width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2219	2334	
==>width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

metho <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9499	9620	
==>block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9499	9620	
==>block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Mo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35723	35821	
==>method is a generic binary relational operator that takes
another Relation as its C<$other> argumen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40273	40371	
==>method is a generic binary relational operator that takes
another Relation as its C<$other> argumen <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6480	6618	
==>">;
        dbg "# Parameters: "; my @params =   traverse_ast ( %pad<"pParams"> );
        dbg "# Type:       "; my $type =     traverse_as <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	814	948	
==>ponding reverse attributes
#has Meta::Assoc @.rev_assocs;   # of assocs

method new($class: Str $name) returns Meta::Class {

    $.nam <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22610	22709	
==>ils subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27162	27261	
==>ils subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4070	4206	
==>anted = sub {
            return unless $_ eq $basename;
            push @candidates, $File::Find::name;
        };
        find $wanted <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5674	5797	
==>em("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5674	5797	
==>em("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2209	2310	
==>= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2209	2310	
==>= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do n <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16382	16498	
==>'s ready to parse the next file.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max sk <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11438	11538	
==>he final ordering of the List. aka "The Perl 5 way"

=item KeyExtractor

A closure with arity of 1, w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4320	4429	
==>/NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4320	4429	
==>/NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3237	3341	
==>_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3237	3341	
==>_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.member <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24720	24823	
==>hould have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL"; if n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24720	24823	
==>hould have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL"; if n <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	388	540	
==>ile) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	388	540	
==>ile) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6642	6758	
==>ser::reg_any;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return $o->mk_eater_fo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1277	1427	
==>= 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1277	1427	
==>= 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Tim <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	71	190	
==>hod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method heade <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	71	190	
==>hod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method heade <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4247	4375	
==>parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4099	4224	
==>parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1242	1346	
==>block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1242	1346	
==>block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9967	10154	
==>Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{pr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11444	11631	
==>Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7191	7282	
==>_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7191	7282	
==>_type = HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $conten <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6000	6114	
==>xt( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6000	6114	
==>xt( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x ) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12149	12250	
==>é";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;v <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12149	12250	
==>é";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3477	3645	
==>@m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3477	3645	
==>@m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=he <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9711	9832	
==>11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9711	9832	
==>11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10185	10302	
==>BUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15441	15555	
==>n;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

Other things the world mes <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5953	6062	
==>x) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a RO <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5953	6062	
==>x) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a RO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3464	3575	
==>hat do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3464	3575	
==>hat do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2637	2742	
==>.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2637	2742	
==>.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	426	537	
==>es from all letters), and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Cae <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	426	537	
==>es from all letters), and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Cae <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	575	704	
==>() {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	575	704	
==>() {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15368	15465	
==>dentically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and unc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15368	15465	
==>dentically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and unc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10016	10118	
==>es to set the input, and input that
fails immediate evaluation will not be set at all.  The scope of im <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10016	10118	
==>es to set the input, and input that
fails immediate evaluation will not be set at all.  The scope of im <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15640	15774	
==>need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15640	15774	
==>need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21409	21531	
==>REC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17830	17952	
==>REC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15357	15460	
==>turns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15415	15518	
==>turns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10194	10297	
==>rt_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10194	10297	
==>rt_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2476	2603	
==>le-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** resta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2693	2820	
==>le-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** resta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1656	1756	
==>my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$compile") or die "open $compil <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3983	4069	
==>:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3983	4069	
==>:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4917	5039	
==>'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <'with'> <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3527	3623	
==>dirs,$output_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design docume <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8010	8114	
==>lti method intersection (Relation $other!) returns Relation {

    die "The heading of the relation in $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11487	11591	
==>lti method intersection (Relation $other!) returns Relation {

    die "The heading of the relation in $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6631	6805	
==>ub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6631	6805	
==>ub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	299	421	
==>l to... distilled from the archive name
    ### XXX maybe metainfo name later? requires peeking in, might be a
    ### catc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	203	299	
==>_names scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	203	299	
==>_names scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	17	113	
==>tter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	17	113	
==>tter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: Rul <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4690	4814	
==>, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref f <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4690	4814	
==>, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8430	8527	
==>$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8418	8515	
==>$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3678	3795	
==>"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft ( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3678	3795	
==>"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17590	17742	
==>DsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14011	14163	
==>DsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2724	2885	
==>[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2634	2790	
==>[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29953	30059	
==>hod to read values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29953	30059	
==>hod to read values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	0	98	
==>=head1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	0	98	
==>=head1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11821	11937	
==>ss it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11821	11937	
==>ss it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2592	2688	
==>&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2592	2688	
==>&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	520	680	
==>rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	520	680	
==>rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	477	614	
==>eturn { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	457	590	
==>eturn { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	847	947	
==>currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	847	947	
==>currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19173	19320	
==>pture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19452	19599	
==>pture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9234	9325	
==>atements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3059	3150	
==>atements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3682	3799	
==>d

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5584	5701	
==>d

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18308	18431	
==>T_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_1:
    self["cutnum"] = $I0
    .return (self)
  cutat <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	166	265	
==>int "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n";
print "${wer}s Lieblings <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6547	6644	
==>nals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6547	6644	
==>nals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 <==
2	/Users/nnunley/pugs/util/package-osx.pl	8212	8334	
==>cal/man/man3/Perl6::Spec::Subroutine.3pm
        /usr/local/man/man3/Perl6::Spec::Syntax.3pm
        /usr/local/man/man3/Pe <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2278	2375	
==>ated, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of thei <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2278	2375	
==>ated, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of thei <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	403	514	
==>we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	403	514	
==>we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4181	4286	
==>chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4181	4286	
==>chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16670	16765	
==>es" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each el <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16670	16765	
==>es" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each el <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25946	26042	
==>nd values
that are associated with the message, and can be interpolated into the
human-readable v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25946	26042	
==>nd values
that are associated with the message, and can be interpolated into the
human-readable v <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3821	3920	
==>pts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate dat <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3821	3920	
==>pts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11988	12095	
==>$S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4631	4738	
==>$S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10819	10940	
==>ex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10819	10940	
==>ex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_do <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3293	3435	
==>ree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3293	3435	
==>ree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1571	1686	
==>lue to dynamic_config, skipping\n";
		return $self;
	}
	$self->{'values'}{'dynamic_config'} = $_[0] ? 1 : 0;
	return <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6849	6943	
==>w/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} ||= type::operator::nullary- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15525	15630	
==>The module can also export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping f <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15525	15630	
==>The module can also export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping f <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13254	13371	
==>w are some
example translations. This list is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2024	2131	
==>),
		),
		result => 120,
		name => "recursion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_c <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7345	7498	
==>map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000",
                `find $lib6 -print0`;
  };
my $newest_mod_stamp = 100000; # ugly
-M "$lib6/ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13100	13228	
==>d>">
            <td colspan="11" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_tota <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	158	597	
==>...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External package <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	158	597	
==>...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External package <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8773	8883	
==>");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8831	8941	
==>");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_badpa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19917	20064	
==>bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16338	16485	
==>bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2128	2253	
==>le = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2268	2393	
==>le = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $gr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6297	6398	
==>educe_1:
  my $top = $tokenStack[-1];
  $topcat = $$top{syncat};
  goto oper_reduce if ( $topcat == PG <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3564	3665	
==>finite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3564	3665	
==>finite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite: <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	100	203	
==>ument::Style;
        has $normalizer_role = ::Getopt::Argument::Normalizer::Null;
        has $coercer_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9570	9695	
==>oflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9570	9695	
==>oflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10325	10445	
==>d of MPW style.
	    $runperl .= ' -MMac::err=unix' if $args{stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # double <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1646	1761	
==>pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = eac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38524	38629	
==>parser = Regexp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8705	8807	
==>""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Fou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8705	8807	
==>""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Fou <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11819	11967	
==>lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      }
    };

  step
    descr  => "Copying Parrot include files to the initrd",
    ensure => sub { - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	560	697	
==>::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5075	5213	
==>imizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  * <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4899	5032	
==>imizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  * <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1317	1417	
==>ts(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1317	1417	
==>ts(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8143	8254	
==>n the List section.
multi Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived f <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3851	3946	
==>func 'cotanh';
trig_func 'asech';
trig_func 'acosech';
trig_func 'acotanh';


 multi Math::Trig: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49207	49383	
==>('?$version')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28965	29179	
==>] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29244	29458	
==>] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9395	9509	
==>rue if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9395	9509	
==>rue if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2203	2331	
==>ux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2203	2331	
==>ux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo' <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	318	431	
==>un == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities i <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	318	431	
==>un == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities i <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1943	2162	
==>ush($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1943	2162	
==>ush($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3792	3908	
==>(split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3792	3908	
==>(split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20238	20362	
==>&RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16659	16783	
==>&RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self-> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5458	5540	
==>< 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5458	5540	
==>< 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12972	13064	
==>ersion 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12972	13064	
==>ersion 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4048	4152	
==>ss is now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Obj <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5950	6054	
==>ss is now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Obj <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1622	1730	
==>h the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1462	1570	
==>h the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11057	11165	
==>list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11057	11165	
==>list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7403	7581	
==><$id>' ),\n" .
                "        \\&grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9217	9336	
==>her::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'Li <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9275	9394	
==>her::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'Li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9490	9625	
==>ame },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9490	9625	
==>ame },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1558	1664	
==>< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1558	1664	
==>< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $cla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19153	19249	
==>oring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19153	19249	
==>oring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1915	2015	
==>her => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', asso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1915	2015	
==>her => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', asso <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4124	4226	
==>fault
to 1 if not given.

The value for day can also be the string "last", in which case the
object ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4124	4226	
==>fault
to 1 if not given.

The value for day can also be the string "last", in which case the
object ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5658	5770	
==>_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5658	5770	
==>_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	555	656	
==>gh)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	555	656	
==>gh)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6199	6337	
==>xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6000	6131	
==>xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	339	448	
==>ath::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $i <==
2	/Users/nnunley/pugs/util/build_pugs.pl	303	398	
==>fig;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV));
exit <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11434	11538	
==>llary->new("bool"),
		),
	),
);


package main;

use strict;
use warnings;

use Test::More 'no_plan';
use <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13924	14028	
==>n?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13982	14086	
==>n?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9026	9197	
==>:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9861	10032	
==>:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7070	7159	
==>.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7070	7159	
==>.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3357	3494	
==>des(%{ $build->find_dist_packages || {} });
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $sel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19217	19312	
==>the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19217	19312	
==>the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38578	38722	
==>e_list'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17497	17600	
==>ly from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17497	17600	
==>ly from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1794	1902	
==>returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1794	1902	
==>returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	323	425	
==>0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	323	425	
==>0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4008	4107	
==>the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4008	4107	
==>the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	441	564	
==>ing members before any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	441	564	
==>ing members before any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9925	10022	
==>t1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9925	10022	
==>t1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing a <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3598	3699	
==>5, it was written to provide functionality
while Perl 6 was still being developed.

This module is pri <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3598	3699	
==>5, it was written to provide functionality
while Perl 6 was still being developed.

This module is pri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2479	2578	
==>turn ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    return ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2479	2578	
==>turn ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    return ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8016	8191	
==>_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8016	8191	
==>_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1239	1344	
==>f.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1239	1344	
==>f.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	207	328	
==>rt);


=head1 NAME

Test::Harness::Assert - simple assert

=head1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::H <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20436	20535	
==>924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20436	20535	
==>924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1834	1950	
==>self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method eq <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1834	1950	
==>self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method eq <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11896	12009	
==>rimitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($comm <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12299	12412	
==>rimitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($comm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1803	1956	
==>_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9170	9392	
==>r last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.from;
              {$a}.push($m0) if $at > $prev; $prev = $at;
              $pos += {$m}.from + 1;
           }
           # want.Item
           0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4329	4429	
==>en used as a hash reference, the match object returns named captures
as match objects, keyed by their <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4329	4429	
==>en used as a hash reference, the match object returns named captures
as match objects, keyed by their <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4689	4803	
==>//www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4689	4803	
==>//www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8535	8637	
==>s like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8593	8695	
==>s like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19883	19984	
==>rn two
values; the user name and the password.  In scalar context it will
return I<"uname:password"> a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19883	19984	
==>rn two
values; the user name and the password.  In scalar context it will
return I<"uname:password"> a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	835	971	
==>Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	835	971	
==>Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3480	3641	
==>},
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9736	9880	
==>b { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1894	2064	
==>events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1894	2064	
==>events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	300	403	
==>lgorithm is a bit simpler than the previous version, but the complexity is the same.

TODO

- The st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14162	14269	
==>rvername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14162	14269	
==>rvername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No tr <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3874	3969	
==>ow", and "yesterday" return the appropriate date.

Any other string will be passed to `Date::Som <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3874	3969	
==>ow", and "yesterday" return the appropriate date.

Any other string will be passed to `Date::Som <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	93	228	
==>n32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	93	228	
==>n32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is exp <==
2	/Users/nnunley/pugs/util/config_h.pl	256	399	
==>table
              (defaults to 'ghc')
  BASEDIR - Base directory of the Pugs installation 
              (defaults to current directory)

=cut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10432	10539	
==>) } )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1547	1702	
==>1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1547	1702	
==>1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6720	6828	
==>t32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Resul <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7092	7200	
==>t32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Resul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25287	25414	
==>self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	847	967	
==>lass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# conversion to o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4558	4699	
==>pe content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4558	4699	
==>pe content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_hea <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5331	5466	
==>rn ths removed child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5331	5466	
==>rn ths removed child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24133	24233	
==>Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has ze <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28685	28785	
==>Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has ze <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	309	413	
==>erldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All met <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	309	413	
==>erldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All met <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	614	732	
==>$self->get_value('@:slots')}
            },

            'array_store' => sub { # evaluated in lvalue context as a list <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	373	463	
==>my($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$o->{'val_hash'}}

sub from {my($o) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11738	11885	
==>/$_") {
          mkdir "$initrd_mnt/lib6/$_";
        } else {
          copy "$lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      }
    };

  step <==
2	/Users/nnunley/pugs/util/claim_drift.pl	605	714	
==>are in the top level of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    ex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	605	739	
==>ols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4083	4217	
==>ols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6174	6309	
==>UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEscapeSequence>
}
rule UnicodeLetter {  # see 7.6
      # any character in the Unicode <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4555	4710	
==>named => { $label => $match },
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub positional { <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4037	4164	
==>2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "2nd line\n" ],
      [ 'file4',  $file4,  "2nd line\n3rd lin <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4261	4363	
==>/)}mesg;
}

sub precomp {
    print STDERR "Generating precompiled Prelude" if $Config{verbose};
    di <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	238	363	
==>:diagnostics;

    method write ( Str $message is copy )
    {
        push @:output, $message;
    }

    method diag ( Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	852	959	
==>s the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	852	959	
==>s the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23900	24027	
==>define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $* w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29076	29175	
==>define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* $* w <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1894	2008	
==>on, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last comp <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1894	2008	
==>on, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extracting the 
last comp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9672	9780	
==>pos = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11453	11572	
==>s Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11453	11572	
==>s Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27792	27879	
==>COPIED_on(prog)	((prog)->reganch |= ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_off(prog)	( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3949	4059	
==>);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4007	4117	
==>);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns Bool is <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1921	2031	
==>day;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yester <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1921	2031	
==>day;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yester <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4667	4773	
==>t, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns th <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4667	4773	
==>t, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4061	4161	
==>neNotAsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4700	4794	
==>\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4922	5016	
==>\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32500	32596	
==>anslator Class

While a Translator object stores some attributes for configuration, its
main purp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32500	32596	
==>anslator Class

While a Translator object stores some attributes for configuration, its
main purp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1408	1536	
==>.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1408	1536	
==>.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13134	13241	
==>r -T, you really mean to
	# run a fresh perl, so we'll brute force launder everything for you
	my $sep;

	ev <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10889	10990	
==>r values) of the last of the header fields is returned.
If no such field exists C<undef> will be retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10889	10990	
==>r values) of the last of the header fields is returned.
If no such field exists C<undef> will be retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9798	9905	
==>n $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9798	9905	
==>n $self.clone if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	773	888	
==>item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method inser <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	773	888	
==>item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method inser <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3500	3610	
==>g;
  #print STDERR $_;
  $_;
};
1;
package main;
use Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { Backt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	58	158	
==>e: pX/Common/iterator_engine.pl - fglock

Old docs are after the __END__.

This is a rewrite of t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2873	2999	
==>while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2873	2999	
==>while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5300	5478	
==>r($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5300	5478	
==>r($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $ma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	943	1053	
==>ail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	943	1053	
==>ail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5723	5844	
==>{
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5781	5902	
==>{
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8335	8447	
==>ete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8335	8447	
==>ete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9287	9389	
==>ng

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9287	9389	
==>ng

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5856	5973	
==>me' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5844	5961	
==>me' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2448	2550	
==>ce p5 ones with p6 ones _without_ changings its name.



of course that has the problem of supplying Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2355	2455	
==>ce p5 ones with p6 ones _without_ changings its name.

of course that has the problem of supplying Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1103	1199	
==>n '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1103	1199	
==>n '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	494	607	
==>arce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2022	2135	
==>arce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2418	2527	
==>Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2418	2527	
==>Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8336	8501	
==>ng ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8336	8501	
==>ng ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18104	18236	
==>}, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24723	24855	
==>}, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6006	6127	
==>0], '$<value>'));
    return "open ".$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<o <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4452	4535	
==>nds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19803	19914	
==>ad)
    self[1] = $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp::Quant" ]

.sub "p6analyze" :meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24576	24702	
==>rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'groupp',
      npa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4629	4747	
==>) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8106	8224	
==>) } )
        }),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4366	4476	
==>>force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1492	1602	
==>>force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3421	3524	
==>t merely appended to it; appending can create precisely the sort of weak 
keying that can be exploited b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3421	3524	
==>t merely appended to it; appending can create precisely the sort of weak 
keying that can be exploited b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5635	5758	
==>x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5635	5758	
==>x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12852	12966	
==>th ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12852	12966	
==>th ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3803	3899	
==>ents. If you need something
with more power, move up to Config::Simple, Config::General or one of <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3803	3899	
==>ents. If you need something
with more power, move up to Config::Simple, Config::General or one of <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6767	6868	
==>ted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6767	6868	
==>ted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any dat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	297	560	
==>ackages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages use <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7155	7274	
==>thod exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10632	10751	
==>thod exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13366	13494	
==>est),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$comman <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13366	13494	
==>est),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$comman <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	519	610	
==>s an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	519	610	
==>s an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11307	11403	
==>outines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('') <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11307	11403	
==>outines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('') <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3889	3976	
==>@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3889	3976	
==>@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16190	16289	
==>pe (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16190	16289	
==>pe (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" attribute <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	381	491	
==>)`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurr <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	381	491	
==>)`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	567	679	
==>sects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	567	679	
==>sects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14626	14719	
==>ke encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and never <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14626	14719	
==>ke encode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and never <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5076	5207	
==>o-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5076	5207	
==>o-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4273	4387	
==>elf._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4273	4387	
==>elf._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous }, 
        complemen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28794	29085	
==>('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->send('_merge')
                            );                          
                      })
                  );
                re <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11211	11305	
==>ation) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11211	11305	
==>ation) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10536	10725	
==>req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10536	10725	
==>req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1811	2081	
==>my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1811	2081	
==>my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2744	2949	
==>pan = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2744	2949	
==>pan = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::I <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10460	10582	
==>losure
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["islazy"] = islazy
    mpos = pos
    .return ( <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2341	2444	
==>ns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $.year }
method qua <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6768	6858	
==>ental(char(C)) --> "\\", [C], {p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar("\\") <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11198	11294	
==>ot, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11256	11352	
==>ot, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3530	3632	
==>'pod'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    \=[pod|head1|kwid|for] 
    .*? 
    \= <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1482	1571	
==>... };'
}
Clutter::num_size 32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2011	2114	
==>~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2011	2114	
==>~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2907	3225	
==>ffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= ( <==
2	/Users/nnunley/pugs/misc/S29_round.pl	130	258	
==>en abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round <==
2	/Users/nnunley/pugs/util/claim_drift.pl	243	343	
==>uld probably make this arrangement less hacky, but until
# we do, this "claims" DrIFT links.
#
# usag <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7276	7403	
==>shift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3511	3665	
==>n 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3499	3653	
==>n 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq ' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5639	5762	
==>{
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kw <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5639	5762	
==>{
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kw <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3037	3149	
==>ted no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3037	3149	
==>ted no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3866	4014	
==>y, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3866	4014	
==>y, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8656	8771	
==>{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8644	8759	
==>{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2716	2823	
==>w( spans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - opti <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2716	2823	
==>w( spans => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - opti <==
2	/Users/nnunley/pugs/util/importgraph.pl	1538	1649	
==>'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9119	9259	
==>_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9119	9259	
==>_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8959	9131	
==>OT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8959	9131	
==>OT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	174	288	
==>\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	174	288	
==>\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3258	3504	
==>module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3258	3504	
==>module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	268	387	
==>);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	268	387	
==>);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method ci <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15927	16033	
==>s and taught classes on the subject over the last
35+ years, along with Codd himself (some are listed in th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15927	16033	
==>s and taught classes on the subject over the last
35+ years, along with Codd himself (some are listed in th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5325	5450	
==>if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5325	5450	
==>if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2339	2437	
==>s Bool {
    return ($self.size < $other.size && $other.includes($self.members));
}
method superset <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2339	2437	
==>s Bool {
    return ($self.size < $other.size && $other.includes($self.members));
}
method superset <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7606	7771	
==>m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $ms <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21787	21895	
==>st of Failed";

    # Figure out our longest name string for formatting purposes.
    my $max_namelen = lengt <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1056	1169	
==>returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1056	1169	
==>returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9534	9633	
==>od semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13011	13110	
==>od semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other is <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3516	3644	
==>=> $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3516	3644	
==>=> $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1151	1424	
==>H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'para <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1151	1424	
==>H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'para <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4069	4186	
==>ject;
sub new {
    my($cls,$name,$rep,$type,$pairs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28161	28255	
==>parser->del_flag(@flags)

Deletes the handlers for the flags -- you need only pass the flag nam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3037	3133	
==>ient, if available.

=back

In addition, the following request headers are set on the HTTP::Heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3037	3133	
==>ient, if available.

=back

In addition, the following request headers are set on the HTTP::Heade <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	119	208	
==>h @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4663	4785	
==>n}.delete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4663	4785	
==>n}.delete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_chan <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6874	7042	
==>ray: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift / <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6874	7042	
==>ray: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift / <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	648	809	
==>^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	648	809	
==>^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4797	4889	
==>d1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4937	5029	
==>d1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7548	7656	
==>gn($Result1) * floor(abs($Result1));
    my $n2_16 = 2**16;
    my $Result4 = $Result3 % $n2_16;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3401	3505	
==>al {
    return $self.intersection( $span.complement );
}

method compare ($self: Set::Infinite::Function <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3401	3505	
==>al {
    return $self.intersection( $span.complement );
}

method compare ($self: Set::Infinite::Function <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13123	13226	
==>O-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order to still a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13181	13284	
==>O-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order to still a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2946	3087	
==>ide closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside clo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3130	3271	
==>ide closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside clo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2552	2655	
==>Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can compromise bot <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2552	2655	
==>Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can compromise bot <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5147	5265	
==>n}.delete(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5147	5265	
==>n}.delete(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	914	1071	
==>irs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	914	1071	
==>irs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8491	8594	
==>n ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8491	8594	
==>n ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14094	14241	
==>} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        #}
        return 'eva <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6116	6212	
==>->id, 4, '... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10851	10949	
==>ll remain unchanged.

The old value (or values) of the last of the header fields is returned.
If no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10851	10949	
==>ll remain unchanged.

The old value (or values) of the last of the header fields is returned.
If no <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2628	2757	
==>ossible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2628	2757	
==>ossible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2604	2767	
==>ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2615	2778	
==>ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17176	17271	
==>er, if any other package or application says that it uses
Locale::KeyedText, that is a terse way <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17176	17271	
==>er, if any other package or application says that it uses
Locale::KeyedText, that is a terse way <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2213	2406	
==>{
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2460	2653	
==>{
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { retu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9243	9345	
==>n $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9243	9345	
==>n $self.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24885	25001	
==>pture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25164	25280	
==>pture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1536	1711	
==>] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $_[2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = sh <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1764	1887	
==>($file);
    $self->license_from($file);
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $featur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5006	5102	
==>t, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ] <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7674	7770	
==>t, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	472	581	
==>ed = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	530	639	
==>ed = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	987	1134	
==>($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package );
    
    ### XXX flesh out this fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1191	1321	
==>int " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::Stat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10752	10842	
==>uest_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10752	10842	
==>uest_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14091	14230	
==>message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14091	14230	
==>message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the use <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32787	32903	
==>y each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a gene <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37337	37453	
==>y each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a gene <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	990	1377	
==>grey60, "
                            :
                            "color = green, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $nod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17041	17159	
==>ve all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17041	17159	
==>ve all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16929	17029	
==>an be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string repres <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16929	17029	
==>an be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string repres <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	440	549	
==>r) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($director <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	440	549	
==>r) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($director <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1084	1189	
==>ast = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1084	1189	
==>ast = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20013	20102	
==>ckname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20013	20102	
==>ckname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31009	31131	
==>. For maximum flexibility in their use, the full name of a module
consists of the two parts concatenated without any delimi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31009	31131	
==>. For maximum flexibility in their use, the full name of a module
consists of the two parts concatenated without any delimi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10845	10948	
==>tr>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B<path_info r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10845	10948	
==>tr>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B<path_info r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23052	23248	
==>ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23331	23527	
==>ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	647	785	
==>lain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	647	785	
==>lain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2953	3091	
==>d_rule(
        name => 'try',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5032	5137	
==>rnal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5032	5137	
==>rnal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10093	10224	
==>, \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10093	10224	
==>, \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19554	19670	
==>substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15975	16091	
==>substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    fo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	344	487	
==>b new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXIST <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5470	5583	
==>{
    my $cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1676	1812	
==>us? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1676	1812	
==>us? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5802	5925	
==>pe;
		
		my $last_exp = pop @exps;
	
		$self->add_definition($node => "$return_type $symbol (" . join(", ", @params) . ") {" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18569	18662	
==>ass that is I<entirely> redundant (that is, I<every>
character in that embedded class is alrea <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	472	582	
==>is primitive` trait.

Please also declare whether the function can be used in a safe
context (such as the IRC e <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	236	355	
==>$_ =~ $signature) { $fn = $1; next }
	#if($_ =~ $signature) { $fn = $1; $g->add_node($fn); next }
	if($fn) { $funcs{$fn} <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	606	702	
==>ared and used locally.
Helpers:: is for more generally useful stuff, and need not be
  implemente <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16959	17051	
==>xists mainly to document a certain localization methodology
in an easily accessable manner, s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16959	17051	
==>xists mainly to document a certain localization methodology
in an easily accessable manner, s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	272	490	
==>( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab ruleop::concat(\n" . 
                            ( join '', @s ) . 
                            "$tab )\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4772	4878	
==>$self = shift;
	my $node = shift;
	my $body = shift;

	push @{ $self->{defs} }, $body;

	$self->mark_define <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	149	250	
==>mented in p6 (S29 already defines some p6 implementations).
# To contribute, just scroll down until po <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	359	513	
==>sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	359	513	
==>sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33830	33927	
==>er's (or user role's) preferences such that each says what
language they prefer to communicate in, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33830	33927	
==>er's (or user role's) preferences such that each says what
language they prefer to communicate in, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9174	9312	
==>toconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaul <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10651	10789	
==>toconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9824	9933	
==>inish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9824	9933	
==>inish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
meth <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2926	3049	
==>et]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]] <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3471	3594	
==>et]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10026	10197	
==>mit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature} ) .
                        _emit( $n->{exp2} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10326	10485	
==>mit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1725	1887	
==>/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # es <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1725	1887	
==>/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # es <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	162	289	
==>amily(@_);
  }

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{fa <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	443	569	
==>tent_type = 'text/html', 
    +$charset, 
    +$location
) returns Str {
    # construct our header
    my $header;
    $header <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1134	1251	
==>class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not imple <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	237	353	
==>class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not imple <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2056	2160	
==>efore a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2056	2160	
==>efore a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfil <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5733	5894	
==>"delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5733	5894	
==>"delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953) <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1636	1768	
==>e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't writ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11572	11692	
==>mily =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any';
    return $S->object(reg_any => $family, '.');
  });

  # back <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17974	18153	
==>)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18253	18432	
==>)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3610	3738	
==>\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3610	3738	
==>\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2305	2406	
==>bclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2305	2406	
==>bclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all a <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	422	525	
==>ng private methods.

=back

Normally, when you declare a Method on a Class, it is bound to that
Class' C <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2501	2598	
==>_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2501	2598	
==>_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1064	1178	
==>block) && $block->isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $block->d <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6431	6563	
==>xhaustive
        rw keepall e each any parsetree stringify>;
        %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignoreca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1493	1623	
==>int 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1633	1763	
==>int 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	178	283	
==>esn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	178	283	
==>esn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2531	2675	
==>'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2531	2675	
==>'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	720	859	
==>$node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	720	859	
==>$node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3679	3863	
==>=> $e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27891	27986	
==>t_msg_var( $var_name! )>

This method returns the Message Variable value (a string) associated w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27891	27986	
==>t_msg_var( $var_name! )>

This method returns the Message Variable value (a string) associated w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9776	9893	
==>s $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a san <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9776	9893	
==>s $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a san <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9881	9989	
==>e); pop(@parts);
	    $class = join("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	push(@p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	194	297	
==>as been added to Literal.
#     Since we dont have a separate tokenizer.
#   * <SourceCharacter> removal <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	432	563	
==>iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	432	563	
==>iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	339	440	
==>epresents only a an hour or two of work.
It is very much in a state of flux.

=cut

class JSX::PseudoV <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1742	1855	
==>ication) and Lit (literal).



App is divided to Multiple, Single and Primitive dispatch.

Lit is divided to vario <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1673	1783	
==>ication) and Lit (literal).

App is divided to Multiple, Single and Primitive dispatch.
Lit is divided to vario <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	506	621	
==>t_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print "ok 1 - c code compiled\n" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23388	23483	
==>ame =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23388	23483	
==>ame =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	621	760	
==>ol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	621	760	
==>ol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Re <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	374	489	
==>am cutsort
#                 iterate_function cut_loops);
# 
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

sub Stream::i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1493	1590	
==>_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	629	741	
==>f $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	629	741	
==>f $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	316	425	
==>ed by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	316	425	
==>ed by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4572	4678	
==>{$runcore} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{timestamp}[1] }} <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21854	21956	
==>ting purposes.
    my $max_namelen = length($failed_str);
    foreach my $script (keys %$failedtests) { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13618	13720	
==>$set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the below <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13618	13720	
==>$set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the below <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35492	35583	
==>tesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40042	40133	
==>tesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) retur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3218	3316	
==>sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3276	3374	
==>sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1470	1565	
==>o be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
sh <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1470	1565	
==>o be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
sh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10508	10603	
==>rator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "continuous <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10508	10603	
==>rator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "continuous <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1905	2029	
==>Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather con <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1905	2029	
==>Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather con <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9759	9880	
==>satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11236	11357	
==>satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1217	1378	
==>$type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1217	1378	
==>$type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	993	1223	
==>type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	993	1223	
==>type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5125	5300	
==>t $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5125	5300	
==>t $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	145	244	
==>t_header remove_header remove_content_headers header_field_names scan
    date expires if_modified_s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	145	244	
==>t_header remove_header remove_content_headers header_field_names scan
    date expires if_modified_s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2654	2766	
==>ndle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2654	2766	
==>ndle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnic <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	540	642	
==>urns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	598	700	
==>urns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_test <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6805	6925	
==>0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6817	6937	
==>0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7837	8065	
==>_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7837	8065	
==>_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_mo <==
2	/Users/nnunley/pugs/util/testgraph.pl	532	628	
==>Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model->new_with_struct(delete $data->{meat});
my $ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1051	1157	
==>ws sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1051	1157	
==>ws sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16526	16636	
==>rn $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12947	13057	
==>rn $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5497	5594	
==>urn $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5497	5594	
==>urn $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1806	1908	
==>tch = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1806	1908	
==>tch = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{b <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	192	293	
==>S

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	192	293	
==>S

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	51	149	
==>NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	51	149	
==>NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Gramma <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11147	11249	
==>tatus = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11147	11249	
==>tatus = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5200	5322	
==>ub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'AR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5422	5544	
==>ub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'AR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3519	3706	
==>}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3766	3953	
==>}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2984	3096	
==>$span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2984	3096	
==>$span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, S <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	638	742	
==>le = shift @ARGV;
  debug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "Cou <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8521	8623	
==>equiv => $_[0],
				type => Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSa <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1355	1475	
==>$config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     => $config); 
    add_path(inst <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	305	404	
==>ch
* read this modules source before using
* examine the proccesed source code by hand if getting st <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1877	2028	
==>n $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1877	2028	
==>n $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15013	15139	
==>p} eq '++' ||
         $n->{op1}{op} eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1}{op} . _emit( $n- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	163	280	
==>Ops::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	592	716	
==>ted.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	592	716	
==>ted.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	526	655	
==>'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	526	655	
==>'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4417	4523	
==>ype) = @_;
	return $body;
}

sub symbolic_representation {
	my $self = shift;
	my $node = shift;

	$self->{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31988	32083	
==>cant Relation::Example but that some of its attributes
have been combined/wrapped into tuple/Map <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5381	5541	
==>t found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5845	6005	
==>t found it in what we already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5425	5520	
==>th_fh => $() ,} }
RULE
*{'_print'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11215	11334	
==>}
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11215	11334	
==>}
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1308	1424	
==>$start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<den <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1308	1424	
==>$start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<den <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	276	408	
==>relude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "compiling" : "s <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11723	11841	
==>elf->reduce($_[0]) })
        : $node
}

package DynamicScopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbo <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2885	2980	
==>_subscription (Class::Events::Subscription::Named $subscription) {
            %.subscriptions<$ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	14	115	
==>::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=per <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	14	115	
==>::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=per <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	98	202	
==>ub func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16329	16432	
==>in = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Couldn't open pipe to \"$bin -V:pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4701	4898	
==>sitional {
    # return a positional capture
    # my $num = shift;   TODO?
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2428	2532	
==>ORE::join $delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice(num->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1226	1339	
==>pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1226	1339	
==>pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24495	24589	
==>not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUD <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24495	24589	
==>not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUD <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	739	844	
==>%tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<du <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	739	844	
==>%tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<du <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9005	9133	
==>atch;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9198	9326	
==>atch;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8611	8730	
==>all_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subst <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8611	8730	
==>all_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subst <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21609	21725	
==>nstead which are
more appropriate to the context in which they are using your package.  One
can override simply by us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21609	21725	
==>nstead which are
more appropriate to the context in which they are using your package.  One
can override simply by us <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8256	8415	
==>$x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8256	8415	
==>$x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3333	3475	
==>et.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3333	3475	
==>et.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_univ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2152	2284	
==>key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2152	2284	
==>key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4203	4309	
==>))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4203	4309	
==>))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5865	5971	
==>($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Regexp::Parser - b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	458	633	
==>nd'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5396	5496	
==>and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5396	5496	
==>and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1948	2055	
==>table->addToken("postfix:*", "<term:", "left", $parse_quant);
    $optable->addToken("postfix:+", "postfix:* <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1873	1990	
==>";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match.\n";
	    } else {
		print "ok <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10430	10547	
==>], 
    '... $Bar class_precendence_list');
    
## does Bar get Object's singleton methods ..

is($Bar->another_singl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1304	1427	
==>me" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23654	23782	
==>ed to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREA <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28873	28983	
==>ed to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREA <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28401	28497	
==>successful capture.
(a\1) isnt handled properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2516	2621	
==>tronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2516	2621	
==>tronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15952	16148	
==>ent => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15946	16142	
==>ent => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12766	12864	
==>2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12766	12864	
==>2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (su <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5971	6068	
==>c2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $UR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5971	6068	
==>c2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $UR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3123	3224	
==>HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3123	3224	
==>HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19256	19367	
==><^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines befo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19256	19367	
==><^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines befo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2508	2652	
==>l); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2508	2652	
==>l); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ( <==
2	/Users/nnunley/pugs/t/packages/Test.pm	333	451	
==>:pkg();
    }

    my package My::Package {
        sub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params($arg1, $a <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	936	1107	
==>require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $. <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	936	1107	
==>require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1959	2113	
==>XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1959	2113	
==>XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4179	4286	
==>fine_named_block {
	my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	$self->add_definition($node, <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	547	746	
==>ng" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty l <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	547	746	
==>ng" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	502	760	
==>),
                App(
                    Sym('&infix:<~>'),
                    Sym('$string'),
                    Val("\n"),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::IO - IO relate <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	294	390	
==>ompile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	294	390	
==>ompile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1443	1561	
==>goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1443	1561	
==>goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< us <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11472	11605	
==>_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	89	177	
==>l5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data::Dumper::Inde <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4864	4976	
==>>register( package => $package )

=cut

sub register {
    my $self = shift;
    my $conf = $self->config;
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4593	4763	
==>oser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'list',
        precedence => 'looser',
        other => 'or', <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5534	5634	
==>[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metach <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	585	782	
==>_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20188	20280	
==>ationList> <','> <VariableDeclaration>
}
rule VariableDeclarationListNoIn :words {  # see 12. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6459	6563	
==>t(anyof_char => chr(hex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14379	14483	
==>ct } @{ $self->available };
    eval { DumpFile( $self->available_file, @avail ) };
    $@ and error( "Co <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	761	851	
==>equire "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2596	2686	
==>equire "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5661	5775	
==>rovide an easy way to
# access it until we have know how both these interfaces can be
# addressed.  One possibility <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5661	5775	
==>rovide an easy way to
# access it until we have know how both these interfaces can be
# addressed.  One possibility <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3996	4096	
==>eg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($self->{ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8282	8486	
==>unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy b <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8746	8950	
==>unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy b <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5838	5943	
==>= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5838	5943	
==>= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spe <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	430	546	
==>mental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't in <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1916	2016	
==>Thunk->new(Stub->new($_)) } @_ } # subs that do nothing but have distinct digests

my $env = Env->new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	46	160	
==>rnings;

use JIB::Constants;
use JIB::Package;
use JIB::Config;
use JIB::Utils;
use JIB::Meta;
use JIB::Alternative <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16887	16986	
==>it contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar valu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16887	16986	
==>it contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar valu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2253	2430	
==>");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FA <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2253	2430	
==>");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FA <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2213	2320	
==>s called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $p <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2213	2320	
==>s called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3462	3622	
==>[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3655	3815	
==>[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10211	10318	
==>erpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10211	10318	
==>erpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $v <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9145	9279	
==>_\+(.*)/;        # _+SEGMENT start
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBu <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3121	3239	
==>h $_ while <$ifh>;
    }

    # manhandle the rest of the inlined modules.
    # we make a guess about what to put in % <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5431	5562	
==>}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression insi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5431	5562	
==>}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression insi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	58	161	
==>oes Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a posi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	58	161	
==>oes Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a posi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37959	38087	
==>th methods:

  sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5549	5678	
==>x;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        match_n(0, $match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5549	5678	
==>x;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        match_n(0, $match <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12857	12944	
==>l([C,T],Close) --> [C], p6_named_character_tail(T,Close).


brackets("{","}"). brackets( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3121	3306	
==>:isa(shift(), 
                                                'JIB::Installation::Set') };

### package constants
use constant ISA_JIB_PACKAGE
                            => sub { UNIVE <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10001	10128	
==>args);
    }
    my $code_param_info = join(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	723	825	
==>re actually just accessor methods
for variables.

=item *

unbound private attributes, which are actual <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3258	3382	
==>->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3246	3370	
==>->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $qu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4546	4662	
==>ult2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    JSX::global_ob <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10532	10622	
==>, paramDefault=>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEn <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1942	2092	
==>urn $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1942	2092	
==>urn $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8007	8107	
==>erson'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8007	8107	
==>erson'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4895	5016	
==>e "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the rea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4895	5016	
==>e "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the rea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10976	11103	
==>r {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10970	11097	
==>r {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3212	3324	
==>='(.*)'/);
    }
    
    return $perl_version if defined $perl_version;
    return;
}

=pod

=head2 JIB::Utils-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2594	2696	
==>ondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Interpreter;

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1983	2094	
==>represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2072	2183	
==>represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14282	14388	
==>ined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14282	14388	
==>ined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9451	9604	
==>th_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9451	9604	
==>th_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = % <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1540	1676	
==>@str = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't e <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1540	1676	
==>@str = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1329	1513	
==>params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1329	1513	
==>params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3819	3943	
==>le( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $data = emit(@_);
}
sub node: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5115	5263	
==>no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5115	5263	
==>no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1100	1209	
==>];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unless @.span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1100	1209	
==>];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unless @.span <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6331	6518	
==>, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6389	6576	
==>, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1748	1849	
==>...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1748	1849	
==>...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $spa <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7739	7847	
==>alues ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@values;
}

# signature from S29draft.pod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23249	23368	
==>TF8 


=head1 Compilation

=head2 flags

=head1 Execution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	367	471	
==>ribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	367	471	
==>ribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $ve <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1562	1675	
==>rse;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1562	1675	
==>rse;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_u <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1740	1850	
==>>{file_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    return $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31502	31605	
==>more common C<(??{ ... })>.  Using the 'p' form is deprecated, but is
still allowed, so I delete its han <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8891	9005	
==>ader('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8891	9005	
==>ader('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.defin <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1012	1131	
==>EFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export( <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1012	1131	
==>EFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4520	4639	
==>e( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4520	4639	
==>e( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return "$_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6421	6543	
==>r(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6421	6543	
==>r(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204), <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7025	7248	
==>);  # skip pod text
                next if /^\s*#/;               # and comments
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24880	24976	
==>klin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically wit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24880	24976	
==>klin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically wit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9372	9470	
==>bset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

R <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9372	9470	
==>bset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4180	4292	
==>l_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Nu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4180	4292	
==>l_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Nu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	864	960	
==>t;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisju <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	864	960	
==>t;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisju <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7600	7715	
==>ation ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7600	7715	
==>ation ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21571	21671	
==>ally given that the Perl DBI purports to provide
"Database Independence".  However, the level of DBI' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21571	21671	
==>ally given that the Perl DBI purports to provide
"Database Independence".  However, the level of DBI' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9310	9436	
==>erived_switches;

    local *TEST;
    open(TEST, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2301	2400	
==>on it. Finally, it will call mkisofs to create a ISO9660 image.

You can stop this program at any ti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9258	9372	
==>elf->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11573	11687	
==>elf->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	737	839	
==>hod visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	737	839	
==>hod visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1101	1252	
==>ults
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # st <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1101	1252	
==>ults
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3141	3240	
==>:Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode inters <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3141	3240	
==>:Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode inters <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	367	504	
==>his to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	356	483	
==>his to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2636	2735	
==>r 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and 'value' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2636	2735	
==>r 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and 'value' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1575	1701	
==>ethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1575	1701	
==>ethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4831	4952	
==>r($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Dat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4831	4952	
==>r($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Dat <==
2	/Users/nnunley/pugs/util/importgraph.pl	463	569	
==>id command line";

my $g = GraphViz->new(
  layout => $layout,
  directed => 1,
  rankdir => 1,
  overlap = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4438	4527	
==>rclass name for Point3D');
is($p3d->prototype->prototype->class, \&Object, '... go the rig <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2678	2802	
==>tems;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) return <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2678	2802	
==>tems;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) return <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	206	304	
==>e (re_tests), but it's
real p5 re coverage is much less.  The test passing was simply to
permit ref <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7031	7354	
==>$ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7031	7354	
==>$ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret. <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1626	1784	
==>turn parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Expecte <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4895	5026	
==>rep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     reduce  safe   (Code, List) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4852	5028	
==>new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$labe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6614	6790	
==>new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$labe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2213	2317	
==>> $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_univers <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2213	2317	
==>> $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_univers <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	658	758	
==>'s way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	658	758	
==>'s way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7039	7151	
==>age ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7039	7151	
==>age ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5704	5819	
==>is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5704	5819	
==>is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	648	753	
==>* constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	648	753	
==>* constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1345	1529	
==>$ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $in <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1345	1529	
==>$ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3296	3403	
==>tional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3480	3587	
==>tional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @va <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4044	4134	
==>_op(W,Z), !.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {true <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1764	1893	
==>essage.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1764	1893	
==>essage.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	67	207	
==>ib",
    "$Bin/../Pugs-Compiler-Rule/lib",
    "$Bin/../Pugs-Utils/lib",
    "$Bin/../Pugs-Compiler-Precedence/lib",
;

use Pugs::Compiler::P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	584	712	
==>ib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin/../Pugs-Utils/lib",
        #"$Bin/../Pugs-Compiler-Precedence/lib", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	603	780	
==>(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	603	780	
==>(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4346	4448	
==>{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memor <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4346	4448	
==>{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11533	11634	
==>AME} escapes -- they get interpolated
by Perl first.  In fact, if one slipped through:

  my $rx = '\N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6079	6200	
==>}

sub find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File: <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3756	3876	
==>}

sub find_extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7606	7721	
==>($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7606	7721	
==>($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	913	1169	
==>tta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	913	1169	
==>tta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suit <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1470	1576	
==>mpiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1470	1576	
==>mpiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3764	3889	
==>tersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3764	3889	
==>tersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2964	3052	
==>'assign'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<term1>)< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	443	548	
==>gle quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	443	548	
==>gle quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16085	16182	
==>at the Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16085	16182	
==>at the Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3495	3618	
==>rcumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3495	3618	
==>rcumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2232	2335	
==>n => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2232	2335	
==>n => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	183	302	
==>t { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	183	302	
==>t { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2190	2289	
==>tta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command class, th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2190	2289	
==>tta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command class, th <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	377	504	
==>lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unsh <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	377	504	
==>lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unsh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3935	4106	
==>, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3814	3979	
==>, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $captur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3255	3383	
==>_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3255	3383	
==>_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quant <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	144	250	
==>as $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## --------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	144	250	
==>as $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## --------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4699	4831	
==>e heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4699	4831	
==>e heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ( <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3045	3136	
==>ot exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and ru <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5247	5338	
==>ot exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and ru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10118	10298	
==>> 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10118	10298	
==>> 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	128	252	
==>tents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is repr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	128	252	
==>tents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is repr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16755	16859	
==>results> returned from C<analyze()> contain the following
information:

  passing           true if the w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2433	2539	
==>ift;
	my $node = shift;
	Scalar::Util::blessed($node->struct_equiv);
}

sub t {
	my $self = shift;
	my $nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2584	2781	
==>RRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2584	2781	
==>RRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8419	8539	
==>er.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with na <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8419	8539	
==>er.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11860	12004	
==>le_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12139	12283	
==>le_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3727	3866	
==>cut

{

    my $rule = Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { r <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11501	11599	
==>xtractor

A closure with arity of 1, which returns the "key" by which to sort. If
the closure retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15290	15456	
==>>new(
                params => method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('$rep <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12860	13025	
==>>new(
                params => method::params->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->new('$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7122	7468	
==>tistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7179	7525	
==>tistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'ar <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1716	1846	
==>return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_docume <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1716	1846	
==>return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_docume <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4553	4673	
==>pture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4336	4451	
==>pture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18291	18425	
==>n $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14712	14846	
==>n $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3414	3601	
==>rn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_only' => 1,      :$v
    #    'type' => {             Str $v <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24300	24402	
==>e an Set with a single member that is an empty Mapping.

=back

A Relation object has these methods:

= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28852	28954	
==>e an Set with a single member that is an empty Mapping.

=back

A Relation object has these methods:

= <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19562	19664	
==>0 is the whole match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 lastpar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9484	9580	
==>be repeated, and which are printed in a particular order.  The
field names are cases insensitive. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9484	9580	
==>be repeated, and which are printed in a particular order.  The
field names are cases insensitive. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2697	2810	
==>op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2697	2810	
==>op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16891	17006	
==>local $X::cap = [];
      $v = $f->($rest);
    }
    FAIL_IF_FAILED($v);
    unshift(@{$m0},$m1);# sigh, prevents m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1419	1526	
==>. $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16201	16308	
==>pan )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16201	16308	
==>pan )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11161	11255	
==>universal set" recurrence object.

- `complement()`

Returns everything (from the universal set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11161	11255	
==>universal set" recurrence object.

- `complement()`

Returns everything (from the universal set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12272	12393	
==>)

Set the specified header to the given value, but only if no previous
value for that field is set.

The header field nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12272	12393	
==>)

Set the specified header to the given value, but only if no previous
value for that field is set.

The header field nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15549	15649	
==>istopher J. Date and Hugh
Darwen for a solid foundation for data and database management systems
(DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15549	15649	
==>istopher J. Date and Hugh
Darwen for a solid foundation for data and database management systems
(DBM <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1418	1514	
==>ty, we may have
  bought fairly simple code with tolerable performance.

However, pugs critical p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6188	6280	
==>util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn", [ sort { $a->{name} cmp $b->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5288	5378	
==>\@operators);

def_rule('expr',mk_operator_precedence_parser($ws,$ops,$tok));
sub def_opera <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31856	31953	
==>ated (like a look-ahead or a character class).

=item nparen

The capture group related to this ob <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	154	262	
==>);
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	154	262	
==>);
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11805	11924	
==>{
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	214	328	
==>{
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1200	1303	
==>sed modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1200	1303	
==>sed modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9301	9442	
==>],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9494	9635	
==>],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	76	171	
==>e Perl6::Core::Str;
use Perl6::Core::Ref;

use Perl6::MM::Attribute;

package opaque;

use stric <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14408	14516	
==>ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOP <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14408	14516	
==>ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOP <==
2	/Users/nnunley/pugs/util/package-osx.pl	7612	7709	
==>m
        /usr/local/man/man3/Perl6::Spec::Functions.3
        /usr/local/man/man3/Perl6::Spec::Fu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5298	5483	
==>k => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5298	5483	
==>k => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2345	2441	
==>) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method com <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2345	2441	
==>) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method com <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3409	3514	
==>n Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3409	3514	
==>n Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2295	2420	
==>ty)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2295	2420	
==>ty)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', ' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14640	14751	
==>= $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = sh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14640	14751	
==>= $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = sh <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6151	6255	
==>return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9628	9732	
==>return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6838	7028	
==>f ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6838	7028	
==>f ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3687	4076	
==>ulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless def <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3687	4076	
==>ulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless def <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2368	2480	
==>channels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the nam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2368	2480	
==>channels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1640	1762	
==>,
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1651	1773	
==>,
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2461	2570	
==>ng;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also contains extra
inform <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2461	2570	
==>ng;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also contains extra
inform <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3551	3677	
==>e accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3551	3677	
==>e accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8167	8262	
==>_modifier_spec_pos([s|L])  --> "s", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([x|L])  --> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	192	305	
==>QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	192	305	
==>QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8660	8794	
==>ary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6193	6321	
==>ary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circum <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4987	5127	
==>{
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      travers <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5311	5451	
==>{
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      travers <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2416	2592	
==>y %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2416	2592	
==>y %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25826	25920	
==>mpty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25826	25920	
==>mpty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2113	2257	
==>$x) ) + 1) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round . <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6128	6242	
==>_eater_for_re('\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9329	9503	
==>t implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9329	9503	
==>t implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1096	1202	
==>ect mixes in both Package

and Code -- because it is both a namespace of symbols and has

a main body closu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1045	1149	
==>ect mixes in both Package
and Code -- because it is both a namespace of symbols and has
a main body closu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26843	26946	
==>ed C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31395	31498	
==>ed C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	142	239	
==>qw/blessed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use warnings;

BEG <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6962	7105	
==>1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6962	7105	
==>1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21153	21257	
==>l the same as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25705	25809	
==>l the same as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4319	4578	
==>/UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'ver <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4319	4578	
==>/UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'ver <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6900	6995	
==>ered_content = $class->pmc_process($real_content);
        $class->$post_process($filtered_conte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6900	6995	
==>ered_content = $class->pmc_process($real_content);
        $class->$post_process($filtered_conte <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3170	3295	
==>ut large body

  # strip away status and headers
  # This should all be done better so the response doesn't live in
  # memory <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3170	3295	
==>ut large body

  # strip away status and headers
  # This should all be done better so the response doesn't live in
  # memory <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5440	5543	
==>on}]}'\n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12031	12122	
==>0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2161	2259	
==>tically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2161	2259	
==>tically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2606	2709	
==>g with the exact same key twice can compromise both encryptions.

If two different data streams are enci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2606	2709	
==>g with the exact same key twice can compromise both encryptions.

If two different data streams are enci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2573	2684	
==>$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2757	2868	
==>$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2085	2214	
==>List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2085	2214	
==>List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9369	9486	
==>ter};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9369	9486	
==>ter};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6528	6649	
==>ested template module is already loaded.
        # It may have been embedded in a core program file and hence
        # sh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6528	6649	
==>ested template module is already loaded.
        # It may have been embedded in a core program file and hence
        # sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7038	7163	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7231	7356	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2204	2332	
==>ule_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $sou <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2204	2332	
==>ule_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $sou <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2203	2299	
==>eal solvers usually do
a bit of algorithm switching.  When their fast method fails, they fall bac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1635	1732	
==>self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1635	1732	
==>self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	348	451	
==>rt { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

su <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	348	451	
==>rt { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2303	2591	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2303	2591	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interfa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3133	3244	
==>string, and should be called at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3133	3244	
==>string, and should be called at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6352	6456	
==>rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # mu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6136	6239	
==>rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # mu <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1539	1669	
==>rt($start), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return $duration;
}

# operations with Duration::Gre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3502	3633	
==>ee );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3502	3633	
==>ee );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11384	11525	
==>xpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  });

  # any character
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10955	11070	
==>xpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  });


  ### ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15389	15530	
==>oncat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15668	15809	
==>oncat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	408	512	
==>d not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$inp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	408	512	
==>d not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$inp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30738	30827	
==>named
C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6046	6156	
==>peSequence>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStart>
    | <UnicodeCombiningMark>
    | <Unic <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6135	6244	
==>d
    $S0 = substr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_litera <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	161	250	
==>:moniker;
use String::Escape qw/quote printable/;
use Blondie::Reducer::DuplicateFinder;
u <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3837	3967	
==>c
    The readline library likes to have a /etc/inputrc.
  --terminfo=$terminfo
    To make, for example, the <Pos1> and <End> keys <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4747	4904	
==>:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stac <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4747	4904	
==>:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stac <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7337	7457	
==>) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QU <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7337	7457	
==>) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QU <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1614	1711	
==>tive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1614	1711	
==>tive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3627	3757	
==>)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex c <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3627	3757	
==>)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2102	2210	
==>l => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2102	2210	
==>l => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36123	36295	
==>ribute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_a <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10124	10213	
==>rg/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18082	18208	
==>ual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14503	14629	
==>ual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	335	453	
==>code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <su <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	335	453	
==>code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <su <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24087	24183	
==>dy>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28639	28735	
==>dy>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2952	3057	
==>>meta->package;
    my $builddir = Path::Class::dir( $conf->build_dir . $path );
    my $srcdir   = $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33616	33715	
==>lnum

Types: alnum (C<\w>), nalnum (C<\W>)

Neg: 1 if negated

=head2 space

Family: space

Types: s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	845	955	
==>( $rule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	845	955	
==>( $rule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31334	31431	
==>dules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31334	31431	
==>dules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6045	6194	
==>ch.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6045	6194	
==>ch.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7773	7927	
==>primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7773	7927	
==>primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10811	10962	
==>_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10811	10962	
==>_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11742	11897	
==>atch::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12100	12255	
==>atch::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10378	10519	
==>ub { 
            my $e = shift; 
            $e->get("&dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = joi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1507	1605	
==>alue,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1507	1605	
==>alue,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	410	521	
==>-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference -  <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	410	521	
==>-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference -  <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	149	257	
==>r sections
# The full version is on misc/pX/Common/lrep*
# ***************

use strict;
use warnings;
no warn <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5828	5928	
==>de (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5828	5928	
==>de (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5062	5251	
==>p\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5074	5263	
==>p\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	881	977	
==>::DuplicateFinder->new;

    my @nodes = $dup_finder->duplicate_nodes($program);

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8020	8114	
==>table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.bui <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8020	8114	
==>table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.bui <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	681	775	
==>r);
    $optable->addToken("term:.", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30474	30566	
==>node's children
when using a walker (see L<Regexp::Parser/"Walking the Tree">).

=back

Objec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14094	14212	
==>on is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14094	14212	
==>on is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25334	25428	
==>.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29886	29980	
==>.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10048	10191	
==>ocket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10048	10191	
==>ocket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14661	14817	
==>'my @result = eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11347	11483	
==>eturn LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = $m;
        my $v = $f->($close);
        $m->set_as_failed i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23705	23825	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23984	24104	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::g <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	628	764	
==>r;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Acces <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	628	764	
==>r;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Acces <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5115	5212	
==>filename)

The C<read> method reads a config file, and returns a boolean value
of success or failu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5115	5212	
==>filename)

The C<read> method reads a config file, and returns a boolean value
of success or failu <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4345	4480	
==>an one '$basename' -- using the first one. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't able to find '$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5521	5647	
==>clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5521	5647	
==>clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3282	3430	
==>@r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3282	3430	
==>@r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4367	4518	
==>empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4367	4518	
==>empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	159	280	
==>thod bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	159	280	
==>thod bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</ <==
2	/Users/nnunley/pugs/util/importgraph.pl	2115	2200	
==>ram');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7268	7414	
==>ds
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	569	715	
==>ds
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9343	9438	
==>l {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9343	9438	
==>l {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($str <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6956	7145	
==>List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6956	7145	
==>List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1642	1736	
==>e_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_ab <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1642	1736	
==>e_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_ab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	604	723	
==>::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	604	723	
==>::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.aut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4260	4441	
==>t'     if $a eq 'list';
                $s .= "%$a ";
                for ( @{ $assoc{$_} } ) {
                    next if $seen{$_->{name}};
                    $seen{$_->{name <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16197	16296	
==>( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Oth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16197	16296	
==>( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. Oth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1194	1288	
==>s';
use constant RPe_LBRACK => --$ENUM, 'Unmatched [';
use constant RPe_EQUANT => --$ENUM, 'Qua <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3419	3545	
==>TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3407	3533	
==>TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantif <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	901	1106	
==>900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	901	1106	
==>900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10718	10815	
==>{
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10718	10815	
==>{
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5849	5968	
==>e( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return cal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5837	5956	
==>e( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return cal <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	828	971	
==>>      $params{'$.passed'},
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.numb <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	415	516	
==>pLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape() or another object o <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2759	2850	
==>:: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc -- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2759	2850	
==>:: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc -- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4633	4737	
==>de.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4633	4737	
==>de.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_no <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	358	513	
==>ted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2ab <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	358	513	
==>ted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2ab <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2881	3050	
==>eason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self->report_test(
                    $::TestBuild <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24283	24384	
==>lch if none obvious

Confined to regcomp/regexec.

 * reganch      is the match anchored (at beginning <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43428	43616	
==>ns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('WALKMETH')
                  ->do(list->new(
                      $e->get('$self:')- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	901	1001	
==>eally have a native type
sub to_native { shift }

# conversion to other native types
sub to_num { (sh <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	832	939	
==>rl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	832	939	
==>rl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	662	785	
==>_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6_meta_COD <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3664	3770	
==><METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_N <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3664	3770	
==><METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_N <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22917	23012	
==>One of the main distinctions of this approach over similar packages is that
text is always looke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22917	23012	
==>One of the main distinctions of this approach over similar packages is that
text is always looke <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15137	15282	
==>ext;
            }

            $end = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6203	6301	
==>mplementation of most block and stream ciphers to a constructor, 
the cryptographic core, and a cou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6203	6301	
==>mplementation of most block and stream ciphers to a constructor, 
the cryptographic core, and a cou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	760	869	
==>ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	760	869	
==>ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2999	3114	
==>>= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple funct <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2999	3114	
==>>= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple funct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5115	5258	
==>up!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5115	5258	
==>up!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22064	22176	
==>,
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
);

my $one_elem_list = fun(
	param => "x", <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	192	300	
==>> [] );
}

method universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	192	300	
==>> [] );
}

method universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11332	11453	
==>ackage Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = "reduce_" . lc(Scalar::Util::ble <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5067	5166	
==>conv_array conv_hash conv_reference
              conv_foreach conv_package conv_open conv_condition <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2014	2246	
==>ber(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $dia <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12622	12726	
==>mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	922	1167	
==>\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modif <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	922	1167	
==>\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modif <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	872	1009	
==>dimensional arrays of the match
                     object, telling captures where in the deep structure
                     to store wh <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	872	1009	
==>dimensional arrays of the match
                     object, telling captures where in the deep structure
                     to store wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12658	12764	
==>nperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3555	3688	
==>h @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match obj <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3555	3688	
==>h @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6565	6700	
==>] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6565	6700	
==>] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3489	3626	
==>eturn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3682	3819	
==>eturn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2328	2524	
==>r_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2328	2524	
==>r_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1396	1482	
==>ass Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Contex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1396	1482	
==>ass Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Contex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1202	1311	
==>SC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2367	2476	
==>SC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16481	16580	
==>should consider setting their I/O handles to autochomp
instead of this step.


=item lc

 multi Str: <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2300	2415	
==>"\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    loc <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2300	2415	
==>"\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    loc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14538	14686	
==>') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14538	14686	
==>') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1730	1866	
==>hs[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1730	1866	
==>hs[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9210	9339	
==>k       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #5 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4566	4698	
==>N;
    unless ( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= " <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2307	2438	
==>N;

    unless ($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= " <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2266	2365	
==>{ast});
		} "${runtime_class}->run($prog->{name}) is non-fatal";

		cmp_deeply(
			$result,
			$prog <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	799	894	
==>eturn $S->force_object(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8863	8961	
==>inuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8863	8961	
==>inuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	949	1083	
==>+ @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	949	1083	
==>+ @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7628	7786	
==>ext =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine licens <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7685	7843	
==>ext =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine licens <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17296	17397	
==>66.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17296	17397	
==>66.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16433	16558	
==>urrent_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15493	15610	
==>urrent_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24724	24837	
==>my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21145	21258	
==>my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2588	2698	
==>an1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2588	2698	
==>an1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5664	5762	
==>users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5664	5762	
==>users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14596	14710	
==>bound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2077	2191	
==>bound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4085	4209	
==>_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Ob <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5987	6111	
==>_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Ob <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4217	4324	
==>x < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4217	4324	
==>x < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $sel <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10696	10795	
==>'END';
my $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2599	2715	
==>) of the data you 
passed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2599	2715	
==>) of the data you 
passed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5454	5624	
==>, Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5466	5636	
==>, Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7411	7517	
==>llee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7411	7517	
==>llee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	699	810	
==>> $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns L <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	699	810	
==>> $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns L <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1769	1874	
==>}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1769	1874	
==>}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3990	4081	
==>$cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This clas <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3990	4081	
==>$cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3953	4069	
==>tarray ? ($next, $depth-$d) : $next;
  }
}


sub visual {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10831	10931	
==>bname
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4186	4297	
==>_match;
    bsr_token_match_1:
    goto found_term if $operator;
    goto null_term if ($key eq "");
  }
  expec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7794	7888	
==>oize() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors sho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7794	7888	
==>oize() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors sho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31856	31954	
==>);
  }

Any regex containing those assertions will fail to compile and throw an
error (specifically <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4382	4474	
==>ecursive splatting happens in parametrized type operators, since they have children
	my $self <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1123	1238	
==>::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1123	1238	
==>::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3866	3990	
==>o}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %args <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5535	5678	
==>= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5535	5678	
==>= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8428	8609	
==>print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2505	2628	
==>e}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9077	9200	
==>rn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9077	9200	
==>rn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14712	14851	
==>ug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14712	14851	
==>ug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16522	16624	
==>nality;
this language, which satisfies TTM's definition of a "D" language, is
described fully in the L< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16522	16624	
==>nality;
this language, which satisfies TTM's definition of a "D" language, is
described fully in the L< <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7505	7626	
==>ndexes {
    my $path     = shift;
    my $index    = shift;
    
    return unless exists $index->{_dirs} or exists $inde <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	350	458	
==>m types

# On the other hand, we could actually make it a real junctive type.

type CxtVoid;  # is that enoug <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7214	7320	
==>?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POS <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7272	7378	
==>?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8044	8162	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8237	8355	
==>ture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12644	12746	
==>ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function tak <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12702	12804	
==>ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function tak <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9552	9831	
==>shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9552	9831	
==>shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15087	15218	
==>q '+'  ) {
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15680	15782	
==>(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15680	15782	
==>(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	507	630	
==>h ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::R <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	513	635	
==>h ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	662	796	
==>t ();
    use Storable ();
    use overload ();
    use Carp ();

    sub atomic { '' }

    sub fmap {
        Carp::croak "virtual me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	751	856	
==>ror( Params::Check->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add allow handle <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6242	6341	
==>_local\" if you want mklivecd.pl to refetch GRUB.",
  ensure => sub { -r $grub_local and -s $grub_lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1410	1605	
==>', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to charac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1410	1605	
==>', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to charac <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16321	16427	
==>self->runtime;

    if ($builtin->can("digest") and my $native = $r->provides($builtin->digest)){
        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4103	4219	
==>lf.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4103	4219	
==>lf.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header val <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1850	1958	
==>et::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1850	1958	
==>et::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2132	2266	
==>| '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $pr <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2132	2266	
==>| '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $pr <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	774	900	
==>defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	774	900	
==>defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2895	3043	
==>tent, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2895	3043	
==>tent, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12835	12932	
==>nd in the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
chara <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12835	12932	
==>nd in the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
chara <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13054	13151	
==>ill remove all the header fields used to describe the content of
a message.  All header field name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13054	13151	
==>ill remove all the header fields used to describe the content of
a message.  All header field name <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3677	3777	
==>urns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_s <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3677	3777	
==>urns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_s <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1724	1826	
==>y @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

= <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1724	1826	
==>y @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

= <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8079	8230	
==>ious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8079	8230	
==>ious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9279	9404	
==>_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9267	9392	
==>_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	164	265	
==>on
within that string, and it provides the fundamental operations on strings as
combinators.

    $.te <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	164	265	
==>on
within that string, and it provides the fundamental operations on strings as
combinators.

    $.te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1863	1982	
==>e named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? <named_capture_body>
        
        { my $body = $_[0]{n <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9710	9804	
==>rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_comm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2551	2668	
==>rator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2551	2668	
==>rator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15529	15793	
==>ar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15808	16072	
==>ar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4240	4381	
==>urn $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4240	4381	
==>urn $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1801	1904	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Tuple object: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1050	1152	
==>(e.g. int)
# type::variable - a placeholder to make a DAG out of a tree (to gain strong typing)
#	::fre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	340	596	
==>used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version ap <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	340	596	
==>used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version ap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19045	19197	
==>, \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19324	19476	
==>, \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19498	19599	
==>ge
your main program.

I<Note that an update is planned for Locale::KeyedText that will enable
user te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19498	19599	
==>ge
your main program.

I<Note that an update is planned for Locale::KeyedText that will enable
user te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8606	8738	
==>s>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8606	8738	
==>s>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %use <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2423	2526	
==>$self.add_child($child);
    }
    $self;
}

## -------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2423	2526	
==>$self.add_child($child);
    }
    $self;
}

## -------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38808	38916	
==>l be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38808	38916	
==>l be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENV <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2805	2902	
==>->reduce($builtin));
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the base com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22760	22863	
==>)>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22760	22863	
==>)>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24088	24185	
==>anguage into the program code itself, so it then becomes a version of that
language.  By contrast, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24088	24185	
==>anguage into the program code itself, so it then becomes a version of that
language.  By contrast, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2045	2175	
==>cute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, ci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2045	2175	
==>cute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, ci <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9464	9558	
==>};
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3289	3383	
==>};
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8273	8398	
==>RAY') {
	$s = '['.join(",",map{recurse($_)}@$x).']';
    } elsif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22254	22365	
==>= $Columns - length($middle_str) - $list_len;
        if ($max_namelen < length($failed_str)) {
            $max <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4673	4862	
==>h: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4673	4862	
==>h: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5090	5197	
==>de);
}

sub reduce_thunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equiv;
	my $chi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9575	9684	
==>($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9575	9684	
==>($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4963	5058	
==>icks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4963	5058	
==>icks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<us <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30040	30134	
==>ormer!) returns Relation>

This method is a short-hand or alternative for the functionality pro <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34592	34686	
==>ormer!) returns Relation>

This method is a short-hand or alternative for the functionality pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3511	3676	
==>_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4360	4525	
==>_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3055	3183	
==>ault for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3055	3183	
==>ault for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out< <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	46	147	
==>E

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorit <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	46	147	
==>E

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1607	1754	
==>[3], exp1 => \$_[1], } }", 
    infix_left =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1398	1519	
==>f (exists $_table->{prototype}) {
                $_table = $_table->{prototype}->('message-map');
                goto TR <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	832	972	
==>:w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	832	972	
==>:w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TO <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	851	963	
==>hers to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  impor <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	851	963	
==>hers to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  impor <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22833	22943	
==>e is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27385	27495	
==>e is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16403	16529	
==>ur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16403	16529	
==>ur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = s <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1564	1660	
==>shamelessly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1564	1660	
==>shamelessly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20806	20901	
==>s::use($module);
    Pugs::Internals::require_use_helper(Bool::True,$module);
}
sub Pugs::Intern <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20749	20872	
==>e"]
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setr <==
2	/Users/nnunley/pugs/util/package-osx.pl	6926	7023	
==>:Perl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Differences.3pm
        /usr/local <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	204	332	
==>= '0.01';

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3129	3236	
==>to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate = <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3129	3236	
==>to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5518	5617	
==>turns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5576	5675	
==>turns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6930	7068	
==>' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6930	7068	
==>' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2491	2602	
==>o_native } 
        $self->slice(num->new(0), $self->elems)->to_native
    )     
}

# some of the common list o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4051	4204	
==>med => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a named <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15925	16074	
==>xception
    $S0 = "p6rule parse error: "
    $S0 .= message
    $S0 .= " at offset "
    $S1 = pos
    $S0 .= $S1
    $S0 .= ", found '"
    $P1 = ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10652	10752	
==>with a single invocation.

The $value argument may be a plain string or a reference to an array
of st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10652	10752	
==>with a single invocation.

The $value argument may be a plain string or a reference to an array
of st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8934	9046	
==>my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a sep <==
2	/Users/nnunley/pugs/util/testgraph.pl	474	575	
==>":utf8" or die "binmode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18947	19053	
==>e.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18947	19053	
==>e.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $h <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3395	3499	
==>RE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3395	3499	
==>RE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18922	19033	
==>ocument, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # Wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18922	19033	
==>ocument, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # Wh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	503	628	
==>q[
    Usage: 
$0  key:value 

    key is one of the keys in the meta info
    value is a regex, compiled with qr//
    
    \ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	917	1025	
==>lidator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	917	1025	
==>lidator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2646	2749	
==>ep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3607	3709	
==>ep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self->admi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7291	7413	
==>ds an 'before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { pri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7043	7163	
==>ds an 'before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { pri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8304	8440	
==>'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8304	8440	
==>'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2556	2671	
==>ns extra
information passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2556	2671	
==>ns extra
information passed on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2614	2714	
==>to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the followin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2614	2714	
==>to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the followin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17347	17465	
==>0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17347	17465	
==>0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15576	15682	
==>the %entity_to_char hashes,
which contain the mapping from all characters to the corresponding entities
(an <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15576	15682	
==>the %entity_to_char hashes,
which contain the mapping from all characters to the corresponding entities
(an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6254	6484	
==>= $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6254	6484	
==>= $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_sp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	525	646	
==>$_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	525	646	
==>$_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @ <==
2	/Users/nnunley/pugs/util/package-osx.pl	10436	10593	
==>n't open $dest$files[-1]!";

    my @header = qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2339	2428	
==>", "right,nows", "PGE::Exp::Concat");
    $optable->addToken("infix:&", "<infix:", "left,n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	335	437	
==>apture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1063	1163	
==>apture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3948	4113	
==>) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %asso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5172	5337	
==>) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %asso <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2037	2148	
==>util/run-smome.pl     - automate the smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input paramete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	450	552	
==>\n|$] |
  \N* [ $ | \n <pod> ]
))->code;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compil <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2933	3044	
==>no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2933	3044	
==>no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `devnull re <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	502	621	
==>t = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $m <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	502	621	
==>t = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4272	4441	
==>] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4272	4441	
==>] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4932	5035	
==>ibutes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4932	5035	
==>ibutes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3773	3885	
==>%full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7250	7362	
==>%full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16598	16695	
==>s
described fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" di <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16598	16695	
==>s
described fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8441	8546	
==>, $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] ruleop::capture( 'capturi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15012	15111	
==>e> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15012	15111	
==>e> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21309	21424	
==>= new .Hash
    pad["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["reps"] = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	698	799	
==>ltin` trait.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builtin is primi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1238	1358	
==>e =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($line =~ /\A:v\s* <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20894	20995	
==>can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25446	25547	
==>can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9761	9859	
==>` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9761	9859	
==>` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	179	274	
==>tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpas <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	237	332	
==>tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests_badpas <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5493	5588	
==>alues of the
closure are collected into another list which is then returned from 
this function. <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	362	470	
==>\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  us <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	362	470	
==>\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  us <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3678	3825	
==>_;
            keys %{::opaque_instance_attrs($self)->{'%:methods'}};
        },                             
    },
);
# The 'Object' class
my $Obj <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3940	4072	
==>) }
rule noncapturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule literal                { \<( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6374	6502	
==>node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtS <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6374	6502	
==>node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtS <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	701	812	
==>ted immediately.  Assume the existence of what would
  be useful, and we'll do it later.

=cut
###*** Value type <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3152	3273	
==>S

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3152	3273	
==>S

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4245	4334	
==>("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" packa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4245	4334	
==>("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" packa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1232	1327	
==>tamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1232	1327	
==>tamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9324	9498	
==>.> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9324	9498	
==>.> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	827	1008	
==>5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	827	1008	
==>5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3852	3983	
==>f ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3852	3983	
==>f ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fix <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3664	3838	
==>ntent;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3664	3838	
==>ntent;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Head <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11176	11288	
==>he time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11176	11288	
==>he time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3999	4163	
==>eady?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4463	4627	
==>eady?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3935	4062	
==>\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3923	4050	
==>\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16308	16492	
==>n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16302	16486	
==>n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5824	6069	
==>et ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7586	7831	
==>et ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2521	2656	
==>(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the thunk won't be run - it must be the
first <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6987	7094	
==>_;

    die "Build failed: $?" unless -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = sh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2999	3167	
==>sa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2999	3167	
==>sa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2164	2309	
==>% 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2164	2309	
==>% 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7145	7251	
==>t.

A default implementation of this method is provided which returns nothing.

=item C<_tail>

    C<metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7145	7251	
==>t.

A default implementation of this method is provided which returns nothing.

=item C<_tail>

    C<metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	263	378	
==>er;
    bless { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41243	41334	
==>rate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41243	41334	
==>rate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedb <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	795	897	
==>rt<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is runni <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	795	897	
==>rt<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is runni <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6700	6802	
==>term2> := (<term1>|<term2>) <p6ws>? \;
        { return { sub_application => $() ,} }
RULE
*{'eval_perl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3144	3245	
==>( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3144	3245	
==>( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2440	2531	
==>* L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code.

=item * L<Pugs::Emitt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6068	6201	
==>e"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6068	6201	
==>e"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5259	5362	
==>channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5259	5362	
==>channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1595	1727	
==>get = $self->target();
  my $from = $self->from();
  my $position = $self->position();
  return ("") if $position < 0 or $position <= <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6313	6415	
==>tes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to impl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6313	6415	
==>tes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to impl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3329	3416	
==>multi method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$construct <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3329	3416	
==>multi method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$construct <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	585	723	
==>to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->new(0) }

# methods

sub fetch { ${$_[0]} }
sub store { 
    my ($self, $value) = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7360	7454	
==>::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_faile <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7418	7512	
==>::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_faile <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1993	2156	
==>, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ") <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1993	2156	
==>, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ") <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22145	22278	
==>}) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18566	18699	
==>}) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12672	12776	
==>ames ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12672	12776	
==>ames ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3513	3626	
==>TH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3513	3626	
==>TH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15367	15469	
==>erl
#
# The $resolve must be a subref that tests the first argument
# for success, or returns the defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1333	1441	
==>ists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for container

allocation, as well <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1275	1380	
==>ists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for container
allocation, as well <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26999	27168	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27278	27447	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1063	1214	
==>y associations won't work without
                             # MM support (or proxy accessors)
                             # $self->rev_assocs->membe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2616	2719	
==>table->addToken("prefix::", "<infix:|", "nows", &parse_modifier);
    $optable->addToken("close:>", "<pr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6921	7063	
==>n $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7480	7622	
==>n $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7348	7480	
==>r(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "har <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7348	7480	
==>r(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "har <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2415	2514	
==>v;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size & <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2415	2514	
==>v;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size & <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15719	15821	
==>ract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15719	15821	
==>ract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3715	3810	
==>represents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3715	3810	
==>represents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infini <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1024	1166	
==>($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1024	1166	
==>($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	470	606	
==>sub {
            my $match = execute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            return <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	618	814	
==>"=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @arg <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	618	814	
==>"=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @arg <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4823	4919	
==>ified function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. The <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4823	4919	
==>ified function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. The <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	739	834	
==>TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	739	834	
==>TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	477	762	
==>(Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	477	762	
==>(Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1566	1686	
==>( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1566	1686	
==>( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $ <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	114	244	
==>Only handles operators: + - * /

use strict;
use warnings;

# Input a string containing a rpn expression.
# Return the evaluated in <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1468	1593	
==>);
	
	if (defined $symbol) {
		return $self->define($node, $symbol, $result);
	} else {
		return $result;
	}
}

sub inner_redu <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1965	2058	
==>= 64, 'subset num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'sub <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9806	9911	
==>s of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9806	9911	
==>s of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elem <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	146	266	
==>ile) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2036	2127	
==>num_width'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?CONFIG{'num_wid <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7361	7457	
==>b *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7361	7457	
==>b *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *infix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7752	7927	
==>.add_op( 
            name => $match<name>, 
            fixity => ..., 
            precedence => ...,
        );
    }

    rule prototype {
        proto <category>: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5654	5756	
==>er::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $lhs, <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	647	770	
==>rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$// <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	647	770	
==>rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$// <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9711	9872	
==>ted from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9711	9872	
==>ted from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1210	1311	
==>Prelude.pm.yml";
    unlink "blib6/lib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #u <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15194	15294	
==>pan.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15194	15294	
==>pan.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9601	9715	
==>e },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9601	9715	
==>e },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1959	2100	
==>l} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1959	2100	
==>l} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14667	14784	
==>ase connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14667	14784	
==>ase connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5430	5532	
==>enthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5430	5532	
==>enthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15696	15788	
==>mmunicate in those languages.  Or, when viewing an error message, the
application's developer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15696	15788	
==>mmunicate in those languages.  Or, when viewing an error message, the
application's developer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1182	1281	
==>rt_to_level(1,@_);
}

sub dump_tree {
	my ($tree,$name) = @_;
	return $dumper->[1]($tree,$name);
}
1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6922	7034	
==>, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6922	7034	
==>, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34898	35091	
==>patcher')->do());
                })->do_while(
                    block->new($e, sub {
                       my $e = shift;
                       ($e->get('$return') == $bit::FALSE && $e->ge <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	489	584	
==>" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my %request = (upload <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1572	1693	
==>s with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1572	1693	
==>s with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1235	1331	
==>eters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1235	1331	
==>eters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3114	3241	
==>- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3298	3425	
==>- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5228	5368	
==>f ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5240	5380	
==>f ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1576	1714	
==>encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1576	1714	
==>encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2378	2519	
==>leop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2389	2530	
==>leop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alter <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9896	9992	
==>calar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string repres <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9896	9992	
==>calar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string repres <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4969	5070	
==>e initial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4969	5070	
==>e initial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	461	587	
==>r

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_me <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3035	3147	
==>inue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3035	3147	
==>inue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7613	7750	
==>] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7613	7750	
==>] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] consta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10559	10659	
==>r will return undef when it has reached the end of the tree;
it will then reset itself, and will star <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	88	199	
==>bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	88	199	
==>bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36843	36954	
==>ead.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->S <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23130	23230	
==>FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Identifie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23636	23733	
==>ands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23636	23733	
==>ands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	298	394	
==>s { hlp('string',@_); }
sub node_a { hlp('array1',@_); }
sub node_a2{ hlp('array2',@_); }
sub nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13885	14063	
==>re => [ \$ast->{capture} ] }; \n" .
                "};\n#endblock\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10871	10981	
==>rom the available list
    $self->remove_available( package => $inst_pkg );
    
    ### move this all to Insta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2780	2928	
==>array-of-rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2964	3112	
==>array-of-rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8296	8416	
==>$span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8296	8416	
==>$span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1483	1623	
==>YNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1483	1623	
==>YNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4386	4537	
==>{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4374	4525	
==>{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	40	143	
==>e options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBA <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	98	201	
==>e options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBA <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6356	6474	
==>e = canonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6356	6474	
==>e = canonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8355	8487	
==>(r,pat,nparens,exec_callback_sub);
    } else if(api == 14) {
      SV* expr_code;
      SV* expr_result;
/*      fprintf(stderr,"api <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3116	3228	
==>nce($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# un <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3116	3228	
==>nce($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# un <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	284	385	
==>gs = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	284	385	
==>gs = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3730	3828	
==>->get_x, 15, '... still got the right x for p1');
is($p1->get_y, 16, '... still got the right y for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3712	3880	
==>)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3852	4020	
==>)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12881	12994	
==>self->compile(@_))->val;
}

package Interpreter;
use base qw/Reducer DynamicScopes/;

sub new {
    bless { params <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1174	1282	
==>implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1174	1282	
==>implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10393	10513	
==>ms
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is commonly used for directed g <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10393	10513	
==>ms
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is commonly used for directed g <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14381	14495	
==>>val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1861	1975	
==>>val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	742	933	
==>tatement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# categor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	742	933	
==>tatement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# categor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9281	9400	
==>e_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9474	9593	
==>e_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5971	6073	
==>vent<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        fo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5971	6073	
==>vent<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        fo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6003	6106	
==>_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6003	6106	
==>_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2693	2856	
==>{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2693	2856	
==>{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{l <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	446	556	
==>ring is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	446	556	
==>ring is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	977	1081	
==>n

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines ::Main. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	930	1030	
==>n
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines ::Main. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4827	4921	
==>ovides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=hea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4967	5061	
==>ovides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6362	6476	
==>nonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6362	6476	
==>nonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($ba <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3728	3828	
==>s is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3728	3828	
==>s is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1956	2110	
==>ew(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tree.new(:node<Socket>), <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9823	9913	
==>eton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still got the right return valu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29914	30073	
==>shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4842	4969	
==>le::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6008	6102	
==>eturn value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_dee <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10265	10359	
==>eturn value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_dee <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9106	9253	
==>ewlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub une <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9106	9253	
==>ewlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub une <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13552	13717	
==>&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13831	13996	
==>&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17267	17377	
==>>new($re);
  my $n = eval{ $parser->root };
  die "$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	9	108	
==>ugs::Compiler::RegexPerl5;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2275	2374	
==>$x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2275	2374	
==>$x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	900	1051	
==>) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	900	1051	
==>) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	624	730	
==>-----------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` an <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	624	730	
==>-----------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` an <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5469	5573	
==>he response code or response headers
(like 'Content-Type') when you are accessing the web using this
func <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5469	5573	
==>he response code or response headers
(like 'Content-Type') when you are accessing the web using this
func <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9030	9131	
==>}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9030	9131	
==>}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	772	862	
==>gs::Runtime::Perl6

=head1 DESCRIPTION

Provides runtime routines for the Perl6-in-Perl5 co <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	367	496	
==>{
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is builtin is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4619	4746	
==>[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	392	494	
==>multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	392	494	
==>multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1121	1244	
==>Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1121	1244	
==>Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtyp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4860	4957	
==>ter.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftove <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4860	4957	
==>ter.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftove <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1520	1677	
==>ess @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        whil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1468	1619	
==>ess @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        whil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3948	4051	
==>ranslator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3948	4051	
==>ranslator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10112	10244	
==>t; # reach down into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$fres <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	82	176	
==>NV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	82	176	
==>NV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	271	370	
==>S_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	271	370	
==>S_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8290	8437	
==>_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8290	8437	
==>_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	378	468	
==>from referer
    www_authenticate authorization proxy_authorization authorization_basic pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	378	468	
==>from referer
    www_authenticate authorization proxy_authorization authorization_basic pro <==
2	/Users/nnunley/pugs/util/run-smoke.pl	19	123	
==>e strict;
use warnings;
use Shell qw(svn);
use Config;
use File::Spec;
use FindBin;
use lib File::Spec->c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2783	2901	
==>} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http:/ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2783	2901	
==>} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http:/ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5977	6071	
==>ile (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6547	6641	
==>ile (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21656	21777	
==>edtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5736	5870	
==>(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5736	5870	
==>(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1764	1905	
==>'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1764	1905	
==>'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8915	9031	
==>b use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	715	879	
==>ategory->add_rule( 
            name => $name,
            assoc => 'left',
            precedence => 'equal',
            other => '+',
        );
    #~ }
    #~ u <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14228	14353	
==>will contain:

  ok            did it succeed?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if any <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17987	18094	
==>erl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets att <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2346	2453	
==>erl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets att <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4027	4196	
==>5]),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2932	3021	
==>eturn { _open => $() } }
RULE
*{'assign'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13233	13367	
==>bin');

    ### XXX doesn't return an object...
    return 1 unless -d $my_bindir;

    my @bins;
    msg( "Linking scripts/manpages to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11701	11827	
==>$self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	765	881	
==>Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     }) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	765	881	
==>Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     }) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3987	4125	
==>oady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3999	4137	
==>oady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named cap <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	472	645	
==>dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        i <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	472	645	
==>dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	689	802	
==>y $invocant;

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2857	2972	
==>dy used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2857	2972	
==>dy used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1165	1297	
==>" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1165	1297	
==>" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3864	3976	
==>turn 'perl5:$ref' if $ref ne 'Dispatchable';
    return $ref->ref();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	996	1111	
==>"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	996	1111	
==>"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'P <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1388	1517	
==>thod dispatch (Str $event, *@args) {
        given $event {
            when "say_hello" {
                return "Hello, @args[0] <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7110	7236	
==>:VRule)\
\\n   List      pre     Str::split   safe   (Str: Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs::I <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5649	5786	
==>tor.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5649	5786	
==>tor.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2303	2440	
==>her => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2311	2442	
==>= $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2311	2442	
==>= $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2569	2699	
==>I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2569	2699	
==>I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18013	18110	
==>address for the human
user who controls the requesting user agent.  The address should be
machine- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18013	18110	
==>address for the human
user who controls the requesting user agent.  The address should be
machine- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17181	17324	
==>pture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17460	17603	
==>pture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	781	891	
==>);
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native <= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	716	823	
==>);
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8306	8431	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8499	8624	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	767	893	
==>xt.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	767	893	
==>xt.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3908	4019	
==>nnotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8388	8549	
==>routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8388	8549	
==>routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3393	3494	
==>Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3393	3494	
==>Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: Set::Infinit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11969	12090	
==>t( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12248	12369	
==>t( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4698	4796	
==>_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8175	8273	
==>_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference( $attr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20311	20407	
==>thing that end users could do,
although program package installers usually do it.  An os-level pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20311	20407	
==>thing that end users could do,
although program package installers usually do it.  An os-level pr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5181	5315	
==>match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5181	5315	
==>match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2821	2947	
==>ethod is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error O <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2821	2947	
==>ethod is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error O <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16471	16568	
==>ucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16471	16568	
==>ucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25286	25445	
==>re( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25565	25724	
==>re( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7600	7705	
==>ace (named args) 

###    because the actual rule object will be full OO



:(Str $match_against, :$next_s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7342	7444	
==>ace (named args) 
###    because the actual rule object will be full OO

:(Str $match_against, :$next_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7748	7863	
==>stant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7748	7863	
==>stant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20332	20432	
==>ectly
and reliably, it also performs quite slowly; you should only use Example
for testing, developme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20332	20432	
==>ectly
and reliably, it also performs quite slowly; you should only use Example
for testing, developme <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4324	4458	
==>space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4324	4458	
==>space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space fo <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	736	885	
==>Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	834	926	
==>ant RPe_NOTREC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe_LPAREN => - <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8146	8241	
==>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalIntegerLiteral> <Exp <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2102	2191	
==>::Internals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.assuming:base <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3616	3769	
==>>{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3756	3909	
==>>{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $gram <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3444	3574	
==>);

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3444	3574	
==>);

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1873	2001	
==>s}}, [ $opt ];
}

sub code { 
    warn "not implemented";
}

sub match {
    warn "not implemented";
}

sub perl5 {
    warn "not <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19660	19758	
==>s).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19660	19758	
==>s).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the majority o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2758	2884	
==>, exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[1], name => <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10482	10584	
==>ssionFirstChar {  # see 7.8.5
      <!before <[*\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rul <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7475	7626	
==>',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7532	7683	
==>',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23237	23366	
==>$c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19658	19787	
==>$c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2893	3012	
==>Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2893	3012	
==>Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14378	14525	
==>e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14378	14525	
==>e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10663	10802	
==>n {
        die "fancy open modes not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	446	583	
==>path to a directory.

Returns true on success, false on failure.

=cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tm <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37705	37806	
==>le>

This method is a generic relational operator that takes a single Relation::Example
in its C<$othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38545	38646	
==>le>

This method is a generic relational operator that takes a single Relation::Example
in its C<$othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4592	4699	
==>objects returned from the rule using a C<return> clause.

=head2 ""

When used as a string, the match object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4592	4699	
==>objects returned from the rule using a C<return> clause.

=head2 ""

When used as a string, the match object <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	793	932	
==>* )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso86 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11610	11709	
==>'$<variable>'
    ) );
    return "$_[1] ruleop::alternation( \\$code )\n";
}
sub node::named_captur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	788	883	
==>alization of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	788	883	
==>alization of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en version <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6132	6269	
==>n't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_child_num} = $chi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	573	664	
==>ndition)... contains too many branches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown switch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2311	2452	
==>h if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2237	2370	
==>h if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3065	3171	
==>env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServe <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3065	3171	
==>env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServe <==
2	/Users/nnunley/pugs/util/package-osx.pl	1089	1198	
==>/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local <==
2	/Users/nnunley/pugs/util/package-osx.pl	3399	3508	
==>/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33748	33844	
==>s a generic relational operator that takes a single Relation
in its C<$other> argument, where <$o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38298	38394	
==>s a generic relational operator that takes a single Relation
in its C<$other> argument, where <$o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1260	1381	
==>me;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $cou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1252	1365	
==>me;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $cou <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6772	6912	
==>= shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12857	12992	
==>= shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6626	6759	
==>a_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6626	6759	
==>a_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_v <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6463	6598	
==>d_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6463	6598	
==>d_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7955	8111	
==>sv(handler, G_ARRAY);
/*    fprintf(stderr,"...back.\n");*/
    SPAGAIN;
    api = POPi;
    if(api == 13) {
      SV* pat;
      long nparens;
      SV* exe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17183	17272	
==>*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Parser->new($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16580	16698	
==>at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13001	13119	
==>at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2864	2974	
==>t;
    my $package = ref( $self->_top );
    my $version = $self->_top->VERSION;
    my %values  = %{ $self->{' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	638	744	
==>y three days old,
and only now is changing from an experimental "let's see if something
like this can work" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7980	8098	
==>'" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8038	8156	
==>'" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9714	9811	
==>the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constru <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9714	9811	
==>the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constru <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	815	931	
==>n if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	815	931	
==>n if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless w <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	743	865	
==>y $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	743	865	
==>y $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2178	2315	
==>e';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2395	2532	
==>e';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4173	4271	
==>the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4173	4271	
==>the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28445	28544	
==>em.  This method is also defined as the implicit handler when
coercing this object to a string.

=ba <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28445	28544	
==>em.  This method is also defined as the implicit handler when
coercing this object to a string.

=ba <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1146	1305	
==>Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1146	1305	
==>Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	516	647	
==>>= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	516	647	
==>>= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9999	10159	
==>h->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10835	10995	
==>h->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1889	1991	
==>s can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1889	1991	
==>s can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7028	7140	
==>mented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not implemented" };
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1382	1492	
==>mented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "not implemented" };

sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27616	27712	
==>ese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27616	27712	
==>ese methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34324	34419	
==>a new Locale::KeyedText::Translator object.
The Set Names property of the new object is set from <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34324	34419	
==>a new Locale::KeyedText::Translator object.
The Set Names property of the new object is set from <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	489	583	
==>SCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	489	583	
==>SCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5370	5469	
==>, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5370	5469	
==>, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	766	880	
==>f this Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4244	4358	
==>f this Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set o <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	637	758	
==>(.*?) \s* $/x && do {
            my($key, $val) = ($1, $2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True| <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6636	6745	
==>e
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6636	6745	
==>e
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_module_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	123	228	
==>ole, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	123	228	
==>ole, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15547	15654	
==>rn $name . '{ \'' . $n->{op1}{angle_quoted} . '\' }';
    }

    return _not_implemented( $n, "postfix" ) <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2584	2687	
==>perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can als <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2584	2687	
==>perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can als <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	340	436	
==>e
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	340	436	
==>e
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4862	4951	
==>($self->{'field_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo::no <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5627	5738	
==>hed) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5627	5738	
==>hed) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10972	11082	
==>rogram will emit warnings during the execution of some methods, 
because it will try to iterate to find a "comp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10972	11082	
==>rogram will emit warnings during the execution of some methods, 
because it will try to iterate to find a "comp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	249	341	
==>head2 $alt = JIB::Alternative->new_from_struct( struct => $struct );

=cut

sub new_from_stru <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7554	7754	
==>mat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7554	7754	
==>mat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	467	581	
==>b provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER::provides($digest);
    ($p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12864	13004	
==>data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ok} - $tres->{todo} - $tres->{skip},
        todo   = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	738	841	
==>s from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	738	841	
==>s from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12729	12838	
==>"across" values.  Also, it maybe probably be
in terms of longest non-infinite.  -law]

=back



=head2 Hash

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37370	37474	
==>urning true if so and false if not.

=item C<load_template_module( $module_name! )>

This method takes th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37370	37474	
==>urning true if so and false if not.

=item C<load_template_module( $module_name! )>

This method takes th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2095	2244	
==>',
        #~ precedence => 'equal',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18256	18403	
==>elf->{nparen};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4264	4404	
==>nd == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4264	4404	
==>nd == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5436	5580	
==>back when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5436	5580	
==>back when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2307	2424	
==>~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2307	2424	
==>~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3663	3817	
==>st.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3663	3817	
==>st.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	759	877	
==>er_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the serv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	759	877	
==>er_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the serv <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5303	5445	
==>);
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNA <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5821	5951	
==>);
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNA <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8131	8295	
==>= ToNumber($V);
            my $length = +($A.property_value{'length'});
            my $k;
            loop(;$k < $length; $k++) {
                my $key = $k; # E <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1034	1133	
==>um $x) {
# XXX I don't understand what round-alternate means.
# But in my understanding, The impleme <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1763	1862	
==>object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1763	1862	
==>object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13550	13698	
==>, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13550	13698	
==>, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2065	2239	
==>d get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2065	2239	
==>d get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3862	3958	
==>ale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3862	3958	
==>ale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23392	23488	
==>compiled C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23392	23488	
==>compiled C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7684	7884	
==>^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7684	7884	
==>^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31612	31714	
==>braries
could have yet another set for itself.  When the program is run, it would
determine either from <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31612	31714	
==>braries
could have yet another set for itself.  When the program is run, it would
determine either from <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3450	3547	
==>}, $class;
  $object;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	641	770	
==>y @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $cur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	641	770	
==>y @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	799	926	
==>match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	799	926	
==>match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2367	2538	
==>un after uninstall                       
$Repodir        = $Root . '/jibs';                  # remote repo root
$Repoindex      = $Repodir . '/index';              # index <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	941	1077	
==>ce => 'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11940	12024	
==>].
p6_oct_chars(R) --> octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_chars_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5631	5737	
==>lated files



=head1 Compiler processes



### separate "processes" from actual module documentation?



= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5438	5538	
==>lated files

=head1 Compiler processes

### separate "processes" from actual module documentation?

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5827	5917	
==>---------------------------------------------------------------------
## sibling methods

m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5827	5917	
==>---------------------------------------------------------------------
## sibling methods

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9566	9664	
==>es insensitive.

Instances of this class are usually created as member variables of the
C<HTTP::Req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9566	9664	
==>es insensitive.

Instances of this class are usually created as member variables of the
C<HTTP::Req <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15371	15522	
==>s{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15365	15516	
==>s{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3220	3371	
==>ncies satisfied?
            my $info = LoadFile( 
                File::Spec->catdir( $meta_dir, $config->meta_file ) );
            
            my %a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10897	10994	
==>setta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10897	10994	
==>setta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2653	2761	
==>tep may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2653	2761	
==>tep may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2533	2627	
==>L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation.

=bac <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2533	2627	
==>L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation.

=bac <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16263	16378	
==>ned $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1237	1346	
==>ckslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
        $body . ")$mod)- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4632	4712	
==>:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4632	4712	
==>:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2598	2715	
==>c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2598	2715	
==>c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	20	128	
==>t::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = has <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	20	128	
==>t::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = has <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30375	30508	
==>$self->send('_make_descendant_dispatcher');
                }    
                elsif ($order->equal_to(str->new(':ascendant')) == $ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1990	2124	
==>gs{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $arg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4225	4339	
==>gs{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11744	11845	
==><gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11802	11903	
==><gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18669	18784	
==>ning paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15090	15205	
==>ning paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1339	1479	
==>edence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '!',
        assoc => 'left',
        pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1629	1758	
==>chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @header <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1629	1758	
==>chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @header <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7984	8115	
==>die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7984	8115	
==>die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5067	5161	
==><michael.hartmann\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1615	1708	
==>d escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unkno <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24607	24700	
==>undation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any la <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24607	24700	
==>undation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any la <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	342	457	
==>le ($tail =~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	297	508	
==>lue 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        S <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12462	12579	
==>role Iter {
    multi sub prefix:<=> () is primitive { self.shift() }
    
    method shift   () { ... }
    method ne <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	50	151	
==>lgorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm:: <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	50	151	
==>lgorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4483	4578	
==>rchive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4483	4578	
==>rchive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in yo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1988	2119	
==>, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2046	2177	
==>, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expecte <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6168	6304	
==>d) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6168	6304	
==>d) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs <==
2	/Users/nnunley/pugs/util/config_h.pl	1172	1276	
==>in :: IO ()
main = readline "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2614	2709	
==>ment types differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# signature from <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21077	21185	
==>ields will be present in the header
after the call.  All values ought to be kept.

Passing a value of C<undef <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21077	21185	
==>ields will be present in the header
after the call.  All values ought to be kept.

Passing a value of C<undef <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1760	1842	
==>ess_args;
push(@yaml_harness_args,'--concurrent', PugsBuild::Config->lookup('smoke_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8301	8409	
==>turn $Class.new( testplan => $plan, output => $output );
  }
  
  submethod BUILD
  (
      Test::Builder::Te <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2121	2217	
==>gs Live CD.
It fetches kernel and GRUB from a public server (which can be specified below).
Then, <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1815	2042	
==>in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1815	2042	
==>in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7664	7799	
==>}
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7664	7799	
==>}
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $ne <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2947	3049	
==>if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - deta <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2947	3049	
==>if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - deta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6647	6771	
==><$data> to be an C<is copy> variable or by making a 
copy internally, and should return the copy once it has been encrypted o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6647	6771	
==><$data> to be an C<is copy> variable or by making a 
copy internally, and should return the copy once it has been encrypted o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	99	197	
==>at
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approximately <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	99	197	
==>at
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approximately <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12192	12330	
==>ND__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comme <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12192	12330	
==>ND__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comme <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1809	1898	
==>OPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".sp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1809	1898	
==>OPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".sp <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	894	1055	
==>key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	773	934	
==>key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4453	4534	
==>rl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4453	4534	
==>rl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	855	984	
==>\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	855	984	
==>\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5126	5224	
==>If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5126	5224	
==>If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodifi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	626	730	
==>@dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	626	730	
==>@dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8153	8262	
==>zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8153	8262	
==>zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	934	1036	
==>ty_headers = <
 Allow Content-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	934	1036	
==>ty_headers = <
 Allow Content-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Co <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4201	4321	
==>(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4201	4321	
==>(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1133	1328	
==>vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1133	1328	
==>vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4126	4227	
==>to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4310	4411	
==>to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. D <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7414	7515	
==>l leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basec <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7414	7515	
==>l leading components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basec <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	641	781	
==>:PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	641	781	
==>:PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1793	1885	
==>$expr =~ s/\@\+/\".join(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$expr\"";
	if ($ok ! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6589	6713	
==>nt = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6601	6725	
==>nt = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3215	3334	
==>name\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub clean_obsolete_smokes {
  my $categor <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2716	2823	
==>rence( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2716	2823	
==>rence( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	769	863	
==>osetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	769	863	
==>osetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2644	2783	
==>';
        return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return ternary( $n )
            if $n->{f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1464	1570	
==>, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1464	1570	
==>, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1525	1625	
==>nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1525	1625	
==>nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_n <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	643	746	
==><density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<den <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	643	746	
==><density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<den <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2068	2208	
==>= pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2068	2208	
==>= pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	669	791	
==>urn "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # cle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2816	2919	
==>LASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2816	2919	
==>LASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_k <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6096	6209	
==>ught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6096	6209	
==>ught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2985	3099	
==>rn a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail se <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2985	3099	
==>rn a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4252	4512	
==>Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4252	4512	
==>Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	276	375	
==>w/runtime cache env/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blondie::Val/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9241	9349	
==>el} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9241	9349	
==>el} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	284	389	
==>strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	284	389	
==>strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): arg <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2147	2251	
==>}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduction over " . $node->s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15722	15859	
==>ode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15722	15859	
==>ode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3380	3474	
==>elf, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('bloc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4062	4156	
==>elf, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('bloc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17050	17191	
==>z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are other possibilities as well.

=back

=head1 HISTORY <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1690	1771	
==>-----------------------------------------------------------------------
END_MESSAG <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6326	6418	
==>",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);" <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	847	1005	
==>catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $. <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	847	1005	
==>catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6014	6113	
==>hua Gatcomb. All rights reserved.
This program is free software; you can redistribute it
and/or modi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6014	6113	
==>hua Gatcomb. All rights reserved.
This program is free software; you can redistribute it
and/or modi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	36	163	
==>y $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "requir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	36	163	
==>y $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "requir <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	795	912	
==>primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Internals::exec($prog, Bool::False, @args <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21239	21328	
==>strs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0].min_offset
 #define f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4221	4347	
==>urn $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4221	4347	
==>urn $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5740	5840	
==>_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5740	5840	
==>_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7239	7343	
==>-----------------------------------
## traversal

method traverse ($self: Code $func, Str $traversal_orde <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7239	7343	
==>-----------------------------------
## traversal

method traverse ($self: Code $func, Str $traversal_orde <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9141	9253	
==>) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, supe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9141	9253	
==>) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, supe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4360	4483	
==>difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4360	4483	
==>difference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6468	6675	
==>l  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6468	6675	
==>l  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6599	6734	
==>n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 {
    my $self = shift;
    my $g = $self->emit_yap <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5797	5923	
==>,@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$.key' => $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6116	6222	
==>thod  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6116	6222	
==>thod  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2356	2476	
==>t $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2356	2476	
==>t $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <= <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2203	2308	
==>ex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=hea <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2203	2308	
==>ex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=hea <==
2	/Users/nnunley/pugs/util/func_refact.pl	1775	1878	
==>$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $Conf{verbose} o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1374	1482	
==>urn '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1374	1482	
==>urn '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10555	10653	
==>tr $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10555	10653	
==>tr $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14593	14772	
==>edy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14872	15051	
==>edy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    pu <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1141	1239	
==>eop = '(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# temporarily for the u <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	58	146	
==>5/site_perl/5.8.7/Module/Install/Win32.pm"
package Module::Install::Win32;
use Module::In <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	286	389	
==>>{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	286	389	
==>>{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	726	821	
==>to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	726	821	
==>to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10767	10867	
==>urns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The follo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10767	10867	
==>urns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The follo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1346	1444	
==>port {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1346	1444	
==>port {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) return <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2854	3011	
==>p;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2854	3011	
==>p;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31783	31884	
==>ent in (and prefers) language A but also understands
language B.  Later on, if for example the first l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31783	31884	
==>ent in (and prefers) language A but also understands
language B.  Later on, if for example the first l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7145	7317	
==>=> 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6906	7069	
==>=> 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	604	699	
==>nt methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	604	699	
==>nt methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed A <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4635	4743	
==>es the size of the (uncompressed) initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounte <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	963	1079	
==>Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mappi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4441	4557	
==>Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mappi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1957	2074	
==>al U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1957	2074	
==>al U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7085	7193	
==>E')->code();

    return <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15335	15433	
==>node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extension <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15335	15433	
==>node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extension <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4057	4184	
==>lator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4057	4184	
==>lator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	536	665	
==>ct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <se <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	536	665	
==>ct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <se <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2060	2213	
==>ond
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    pu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3652	3801	
==>ond
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    pu <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2987	3096	
==>oaded
    automatically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    return unless defined $ENV{PUGS_SMOK <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7042	7138	
==>r_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto end if $key ne $$top{token2} <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4152	4254	
==>der/Test.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=he <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3155	3270	
==>eps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3619	3734	
==>eps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depend <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9211	9325	
==>ice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9211	9325	
==>ice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4981	5090	
==>}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4981	5090	
==>}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5984	6081	
==>r parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This is version B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12100	12250	
==>urn 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in full <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12094	12244	
==>urn 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in full <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4714	4813	
==>itialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4714	4813	
==>itialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23293	23440	
==>ler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19714	19861	
==>ler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2827	2928	
==>ocale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2827	2928	
==>ocale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1508	1632	
==>/:normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1508	1632	
==>/:normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an ex <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3889	3985	
==>ffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3889	3985	
==>ffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	750	880	
==>0 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	772	893	
==>0 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2138	2278	
==>ct>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %pa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2138	2278	
==>ct>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4435	4527	
==>ert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4435	4527	
==>ert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@membe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2650	2804	
==>> 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s* <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2548	2697	
==>> 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s* <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5555	5706	
==>cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstar <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5555	5706	
==>cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	920	1021	
==>ugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13881	13980	
==>heir children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($$) }

# combs combine the g <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3260	3399	
==>out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3260	3399	
==>out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25986	26097	
==>her credits.
Rosetta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25986	26097	
==>her credits.
Rosetta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9970	10069	
==>tions
are performed at the moment the user tries to set the input, and input that
fails immediate ev <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9970	10069	
==>tions
are performed at the moment the user tries to set the input, and input that
fails immediate ev <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34516	34625	
==>s a generic relational operator that takes a single Relation
in its C<$other> argument, where the heading of < <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39066	39175	
==>s a generic relational operator that takes a single Relation
in its C<$other> argument, where the heading of < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12212	12326	
==>lemented( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	662	779	
==>on and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	662	779	
==>on and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12161	12260	
==>turns the parameter value if the parameter is a member of the recurrence.
Otherwise, returns the pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12161	12260	
==>turns the parameter value if the parameter is a member of the recurrence.
Otherwise, returns the pre <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1845	1972	
==>/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new(Stub->new($_)) } @_ } # subs that do nothing b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9143	9254	
==>1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi-li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1120	1222	
==>um>

=item B<to_str () returns str>

=item B<fetch () returns ~type>

=item B<store (~type) returns nil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	118	235	
==>::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Perl6::Core::List;
use Perl6::Core::Block;

use Perl6::M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35346	35445	
==>eal> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12335	12466	
==>} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4978	5109	
==>} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10397	10525	
==>s.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10397	10525	
==>s.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()` <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1919	2021	
==>ns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Po <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1919	2021	
==>ns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Po <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1494	1640	
==>n eq 'no_plan') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1588	1713	
==>red_alternatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11121	11220	
==>ver 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11121	11220	
==>ver 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1032	1147	
==>an't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs:: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5318	5408	
==>s = sort keys %{$index->{_dirs}};
my $index_file = catfile($output_dir,"index.html");
open( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2264	2411	
==>>new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('& <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2622	2769	
==>>new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('& <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15762	15867	
==>}, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10618	10723	
==>}, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4514	4654	
==>date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heurist <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4514	4654	
==>date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heurist <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2393	2504	
==>%s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'C') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4679	4778	
==>$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4901	5000	
==>$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N* <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8561	8731	
==>"?%opts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10565	10698	
==>od label
        symbol->new('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6669	6829	
==>w .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6669	6829	
==>w .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8336	8442	
==>}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$inde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8324	8430	
==>}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$inde <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1362	1471	
==>s the difference between an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  Thes <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1362	1471	
==>s the difference between an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  Thes <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6081	6187	
==>heck if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO fo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6139	6245	
==>heck if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9296	9469	
==>s: @keys\n";
    @keys = map {
        concat( [
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        ] )
    } @keys;
    return alternation <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1274	1394	
==>=> INSTALLATION_OBJECT )

=cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13239	13340	
==>item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13239	13340	
==>item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2119	2319	
==>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2119	2319	
==>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11265	11361	
==>returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encod <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11265	11361	
==>returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	311	429	
==>__any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	311	429	
==>__any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25588	25683	
==>:Example class is pure and deterministic, such that all of its class
and object methods will eac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37854	37954	
==>$self;
  }

We've added a C<neg> attribute, and removed both C<type> and C<raw>.  We
will replace the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29347	29440	
==>hod will fail if any C<$mapping> keys do not match invocant
Relation::Example attribute names, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	409	518	
==>use they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	420	529	
==>use they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15692	15785	
==>o
communicate in those languages.  Or, when viewing an error message, the
application's develo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15692	15785	
==>o
communicate in those languages.  Or, when viewing an error message, the
application's develo <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	722	821	
==>an

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	722	821	
==>an

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6540	6658	
==>ader_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bound <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6540	6658	
==>ader_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bound <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13957	14069	
==>v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{fl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18820	18926	
==>tExpressionNoIn :words {  # see 11.13
      <ConditionalExpressionNoIn>
    | <LeftHandSideExpression> <Ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22826	22921	
==>eing identical to
C<nparen>, but it is incremented during the initial pass, so that on
the secon <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	581	689	
==>N

Sometimes you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=h <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	581	689	
==>N

Sometimes you need to put in a little whitespace to fill an XML
document.  This node type is for that.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21782	21923	
==>ments, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22061	22202	
==>ments, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1374	1510	
==>pture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1319	1448	
==>pture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40265	40360	
==>KeyedText that you modify and distribute must carry
prominent notices stating that you changed t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40265	40360	
==>KeyedText that you modify and distribute must carry
prominent notices stating that you changed t <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	50	145	
==>::Base; @ISA = qw(Module::Install::Base);
use strict;
use Config;
use File::Spec;
use File::Base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22295	22404	
==>or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
most often this is d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22295	22404	
==>or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
most often this is d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22173	22299	
==>~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18594	18720	
==>~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16829	16934	
==>able, in practice one would
normally just write some components of their application in Rosetta D (as
eith <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16829	16934	
==>able, in practice one would
normally just write some components of their application in Rosetta D (as
eith <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29349	29447	
==><after> $obj has been added to the tree, $obj will be
removed from the tree.  Most node types don't <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2849	3047	
==>ss->name) . 
                                ']'
                );
                if (defined $attrs{'$:superclass'}) {
                    $eigenclass->superclass(
                        ::opaque <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11495	11584	
==>ody(L), ")".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L), !.
p5_comm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1413	1552	
==>lf->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	945	1074	
==>";
    } else {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not tr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9892	10007	
==>ft ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9892	10007	
==>ft ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13543	13710	
==>),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13543	13710	
==>),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1175	1278	
==>rt {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1175	1278	
==>rt {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4496	4608	
==>my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4496	4608	
==>my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @int <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13764	13883	
==>nt";

    # on /abc+/, we extract the 'c' from the 'exact' node
    if ($tree->[-1]->family eq "exact" and @{ $tree->[-1 <==
2	/Users/nnunley/pugs/util/fixauthors.pl	666	763	
==>tree->look_down(class=>"t1");

  return "" unless $realname;
  return $realname->as_text;

  retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5715	5826	
==>'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5715	5826	
==>'} );

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49426	49580	
==>on'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:version'));
            }
        )
    )
);

$::Module->send('add <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6991	7122	
==>ef($x) and ref($y)) {
			return unless @$x == @$y;
			my @x = @$x;
			my @y = @$y;

			while (@x) {
				return unless $self->types_e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5733	5848	
==>reference->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->ne <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2107	2204	
==>),
    );

Use the default one, in L<Blondie::Prelude>, or preferably let
L<Blondie::Runtime> load <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14923	15027	
==>his "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic interface (API) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14923	15027	
==>his "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic interface (API) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1937	2051	
==>g(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1937	2051	
==>g(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23345	23477	
==>ft;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "!";
  }
}


{
  # (?> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10029	10144	
==>node = $iter->()) {
    # $node is a Regexp::Parser::* object
  }

In list context, it returns the next node and its <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14660	14790	
==>xists $index->{$syn}) {
        # This makes later processing easier
        $sobj->objectify_text;

        for my $headlevel (rev <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	827	936	
==>));
}

our Int multi Num::round_half_odd (Num $x) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17194	17315	
==>ms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17194	17315	
==>ms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20901	21005	
==>ume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25453	25557	
==>ume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18867	19008	
==>en->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20225	20366	
==>en->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifth <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10827	10941	
==>ray
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple s <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	236	335	
==>se strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Install::ISA = 'M <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6912	7040	
==>rnal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend = <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6912	7040	
==>rnal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2360	2481	
==>s an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varl <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2360	2481	
==>s an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	892	988	
==>d1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	892	988	
==>d1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9809	9927	
==>necting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9809	9927	
==>necting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3548	3655	
==>ion( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3548	3655	
==>ion( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5684	5790	
==>et::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5684	5790	
==>et::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16553	16683	
==>variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20979	21109	
==>variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5663	5767	
==>nd_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5663	5767	
==>nd_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11847	11955	
==>0]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11847	11955	
==>0]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7780	7890	
==>$file, [force => BOOL])

Adds a given file to the repository.

=cut

sub add_file {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2862	2958	
==>age closure::signature;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5683	5799	
==>any lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Cal <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5683	5799	
==>any lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Cal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1608	1702	
==>:Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception clas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1608	1702	
==>:Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	267	380	
==>subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	267	380	
==>subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16350	16456	
==>"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::Toke <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16350	16456	
==>"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::Toke <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2884	2998	
==>hift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  giv <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2884	2998	
==>hift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  giv <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	501	605	
==>@dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	501	605	
==>@dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	5	111	
==>v6;

class Perldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	5	111	
==>v6;

class Perldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4799	4922	
==>od_name ($role->get_method_list) {
            # if we already have the method, then
            # ignore it and go to the n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12189	12289	
==>ept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12189	12289	
==>ept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specifi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1848	1964	
==>ers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_req <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1848	1964	
==>ers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_req <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13229	13348	
==>$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13229	13348	
==>$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15491	15608	
==>e, $sec, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool::False, $sec, $pico);

        # FIXME <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	698	857	
==>ok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq '/') {
            pus <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2091	2191	
==>ad1 METHODS

=over 4

=item B<new (*native*) returns num>

=item B<to_native () returns *native*>

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1857	1983	
==>}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    my $q = $x;
    $q =~ s/\\/\\\\/g;
    $q =~ s/'/\\'/g <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5844	5962	
==>intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5844	5962	
==>intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	64	195	
==>use Test::More tests => 30;

=pod

Mini-Prototype-Model

This is a very basic prototype based object system, it was inspired by
a pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	840	957	
==>apture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	851	968	
==>apture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless def <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10621	10720	
==>nal

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10621	10720	
==>nal

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15985	16096	
==>ut!".  Places the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $line, $reason <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13392	13511	
==>eturn call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13386	13505	
==>eturn call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	211	301	
==>s::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	211	301	
==>s::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitt <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1661	1776	
==>od BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::Fa <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1661	1776	
==>od BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::Fa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	538	696	
==>= 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	538	696	
==>= 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11175	11284	
==>e) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11175	11284	
==>e) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, comment block and
# data <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	770	927	
==>\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	770	927	
==>\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12126	12325	
==>eld' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12126	12325	
==>eld' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1723	1820	
==>gine is invoked.

Currently, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This is an exp <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	439	550	
==>, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *inf <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	439	550	
==>, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *inf <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	229	335	
==>s;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesIn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3565	3673	
==>Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3438	3541	
==>Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2589	2695	
==>h: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2729	2835	
==>h: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) i <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6317	6470	
==>?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version in <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5825	5978	
==>?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version in <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	731	910	
==>}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

# For mm args that take multiple spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33523	33620	
==>fined and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33523	33620	
==>fined and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17260	17362	
==>Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix many source <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17260	17362	
==>Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix many source <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1840	1938	
==>ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3216	3314	
==>ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7799	7926	
==>ch;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7992	8119	
==>ch;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	802	912	
==>at this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	802	912	
==>at this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4944	5050	
==>, $method) = @_;

    $self->load_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15836	15961	
==>_Num($_[0]) },
      non_numeric => sub { p6_Str($_[0]) },
      scalar_numeric     => sub { p6_Num(${$_[0]}) },
      scalar_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1029	1127	
==>rogram = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{'$name'} = \n$program;\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4876	4982	
==>tes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4876	4982	
==>tes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $docume <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16204	16311	
==>art of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12625	12732	
==>art of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	326	447	
==>lass  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class}->send('supercla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4546	4662	
==>ject(anyof_char_comp => "\r", '\R') if $cc;
    return $S->object(exact_comp => "\r", '\R');
  });

  $self->add_hand <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3781	3906	
==>]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3793	3918	
==>]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named capt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22261	22350	
==>ad2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22261	22350	
==>ad2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", te <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3672	3772	
==>span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3672	3772	
==>span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	544	670	
==>);
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	544	670	
==>);
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1319	1429	
==>turn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

= <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1319	1429	
==>turn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16641	16750	
==>d
in its Document's "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16641	16750	
==>d
in its Document's "Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4953	5051	
==>ftover data and returns it as an array of bytes, 
then clears the object's internal state.  This sh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4953	5051	
==>ftover data and returns it as an array of bytes, 
then clears the object's internal state.  This sh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21963	22083	
==>ta[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16865	16984	
==>ta[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	492	604	
==>() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\n";
our $data;
print "ok 1 - c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31119	31226	
==>ike '|' or
'atom').  Here is a very simple complete sub-class that does not allow
the C<(?{ ... })> and C<(? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9684	9807	
==>al = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10520	10643	
==>al = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4477	4576	
==>pting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @ou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4477	4576	
==>pting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @ou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3054	3153	
==>e.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if they a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3054	3153	
==>e.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if they a <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5622	5710	
==>moke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3836	3948	
==>plete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Cr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3836	3948	
==>plete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Cr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	801	904	
==>ick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	801	904	
==>ick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	961	1062	
==>ONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_id <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	961	1062	
==>ONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_id <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15834	15944	
==>regex
according to a style-sheet (syntax highlighting).

=item Regexp::Reverse (difficulty rating: ****)

Rever <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1195	1284	
==>, "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\n", "term:", "nows", "PGE::Exp:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4232	4335	
==>erl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4232	4335	
==>erl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map <==
2	/Users/nnunley/pugs/util/fixauthors.pl	358	485	
==>/\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4151	4369	
==>d be a policy test!
                            $version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	761	869	
==>ODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined % <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	761	869	
==>ODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1681	1810	
==>sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do {
            my $st = $nodes->[0]->( $_[0], $state[0], @_[2,3,4,5, <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4518	4623	
==>MPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => 'Parse- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22881	23004	
==>lation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27433	27556	
==>lation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	674	807	
==>A },
    };
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    ### make it a P <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3415	3531	
==>r->[0], $r->[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16391	16548	
==>r_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-u <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20817	20974	
==>r_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-u <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14755	14862	
==>sion>
}
rule MultiplicativeExpression :words {  # see 11.5
      <UnaryExpression>
    | <MultiplicativeExpr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2405	2505	
==>e]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr = $O. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4584	4696	
==>ogram = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4367	4474	
==>ogram = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5321	5444	
==>::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10976	11099	
==>::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5704	5836	
==>t($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## ----------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5704	5836	
==>t($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## ----------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4962	5072	
==>hod _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4962	5072	
==>hod _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3081	3185	
==>year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOP <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3081	3185	
==>year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOP <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5177	5297	
==>eof'>
}
rule FutureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'bo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15580	15677	
==>s an
error (for example, attempting to store Kanji in a Byte uplifted to an LChar).

Attempting to <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	666	777	
==>Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $ <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	666	777	
==>Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2480	2662	
==>eral',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2491	2673	
==>eral',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20829	20926	
==>$h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20829	20926	
==>$h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19561	19734	
==>t at the moment
                push @bad_heading, "link in $source to $target does not have a heading\n";
              }
            
          }
        }
        # finall <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4409	4497	
==>!.

p5_range(W, Z) --> "{", !, p5_range_bounds(Min,Max), "}", p5_range_greed(W,Min,Max,Z) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10313	10428	
==>ile = IO::File->new($output_path, ">:utf8")
                         or die "Can't open output test file $output_pat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9429	9567	
==>cname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9429	9567	
==>cname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	411	542	
==>:Rx;

rule flag_parsetree   { <':parsetree'> }
rule flag_exhaustive  { <':exhaustive'> | <':ex'> }
rule flag_overlap     { <':overla <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16671	16773	
==>$as_p6obj_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}


sub p6 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	835	952	
==>ere", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DE <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	835	952	
==>ere", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3361	3472	
==>glock; # everything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3242	3350	
==>glock; # everything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4153	4332	
==>esname => "<precompiled>", };

    $fatal::DEFAULT_FATALITY is constant = 1;
    
    sub import {
        Pugs::Internals::install_pragma_value($?CLASS, 1);
    }

    sub unimpor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1518	1608	
==>rammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1518	1608	
==>rammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6347	6443	
==>nt<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6347	6443	
==>nt<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	846	940	
==>ument describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pendi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	846	940	
==>ument describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pendi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10370	10480	
==>rns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i whil <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10370	10480	
==>rns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i whil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1283	1420	
==>j->dir(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipul <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	70	179	
==>e original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths - <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	70	179	
==>e original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths - <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3637	3758	
==>d Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3637	3758	
==>d Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2352	2468	
==>$.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2352	2468	
==>$.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $mult <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6962	7084	
==>eq '\w';
    return $o->mk_eater_for_re('\W') if $re eq '\W';
    die "Regexp compilation bug";
  }
}
{
  # \s \S
  package <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2564	2666	
==>mbolic_indirect_rule>
  | <character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	188	334	
==>(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	188	334	
==>(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23226	23326	
==>Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
abil <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27778	27878	
==>Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
abil <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	788	884	
==>trees are seldom created using the C<Tree> interface.

Normally, they will be constructed as a se <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	788	884	
==>trees are seldom created using the C<Tree> interface.

Normally, they will be constructed as a se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3738	3852	
==>ntation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free sof <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3738	3852	
==>ntation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free sof <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	571	671	
==>etch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	571	671	
==>etch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Pe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	521	678	
==>rsion} }
                map  { $_->[1] } 
                grep {  package_prefix( $_->[1]->{package} ) . '-' .
                        package_name( $_->[1]- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25871	25986	
==>$::Class->send('add_method' => (
    # method label
        symbol->new('subclasses'),
    # method body
        met <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1966	2088	
==>y $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $token <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1966	2088	
==>y $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $token <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9172	9265	
==>};
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2997	3090	
==>};
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6485	6602	
==>e block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6268	6380	
==>e block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Matc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	311	486	
==>_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_H <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1639	1752	
==>5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @ya <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2259	2402	
==>de ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2259	2402	
==>de ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    f <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	185	310	
==>t handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	185	310	
==>t handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41178	41274	
==>s into the same files as
program code, rather than requiring separate files.

=item Stevan Little <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41178	41274	
==>s into the same files as
program code, rather than requiring separate files.

=item Stevan Little <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2198	2467	
==>ount = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3786	4055	
==>ount = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23976	24086	
==>ush @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20397	20507	
==>ush @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5797	5899	
==>f; in fact, the only method that truly must be implemented is the 
one that actually enciphers the data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5797	5899	
==>f; in fact, the only method that truly must be implemented is the 
one that actually enciphers the data <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	483	604	
==>::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	483	604	
==>::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8475	8577	
==>chy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hiera <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8475	8577	
==>chy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hiera <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	86	189	
==>e::Atomic/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Pr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	64	177	
==>e::Runtime Blondie::Reducer::DynamicScoping/;

use strict;
use warnings;

use UNIVERSAL::require;
use Blondie::Typ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1679	1779	
==>w scope).
If no $num or $name is given, a new scope is introduced but the resulting object
is discard <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1679	1779	
==>w scope).
If no $num or $name is given, a new scope is introduced but the resulting object
is discard <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	82	245	
==>=~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	82	245	
==>=~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3011	3122	
==>recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3011	3122	
==>recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6181	6311	
==>ub get {
    my ($self, $name) = @_;
    (defined $name) 
        || confess "You must supply a name to get";    
    my $current = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4078	4213	
==>str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4218	4353	
==>str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $se <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	483	590	
==>classes" });
Has($?CLASS, "subclasses", "Set", { companion => "superclasses" });

# every Meta::Class is a p <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3090	3216	
==>ree[1];  # keys: 
        dbg "# keys: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_as <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27359	27450	
==>_ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	869	1030	
==>{'val_array'}  = $a;
    $$o->{'val_hash'}   = $h;
    $$o->{'from'}  = $from;
    $$o->{'to'}    = $to;
    return $o;
}
sub set_as_failed {
    my($o)=@_;
    $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2221	2366	
==>e {
                push( @hits, $currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2848	2953	
==>:Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Valu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2848	2953	
==>:Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Valu <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	523	729	
==>$char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $ch <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	523	729	
==>$char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	774	866	
==>face::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	774	866	
==>face::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $d <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	26	144	
==>is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "sour <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	26	144	
==>is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "sour <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42337	42538	
==>opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

$::Object->send('add_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	845	1007	
==>r
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/control';               # dir to store control MD
$Availa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	52	163	
==>e __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '% <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	52	163	
==>e __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '% <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4534	4637	
==>are
implemented as hash keys to code refs. The only function this module
exports is the constructor. 

= <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4534	4637	
==>are
implemented as hash keys to code refs. The only function this module
exports is the constructor. 

= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1596	1711	
==>( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34549	34680	
==>ome example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34549	34680	
==>ome example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7645	7749	
==>rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7386	7487	
==>rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6472	6618	
==>push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6472	6618	
==>push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20230	20325	
==>ring_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Internal <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3970	4089	
==>st<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3970	4089	
==>st<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topi <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2187	2362	
==>elf = shift;
                my $idx = shift;
                my $value = shift;
                scalar @{$self->get_value('@:slots')};
            },

            'array_store <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4557	4694	
==>->{skip}++;
            $pass = 1;
        }

        $totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3019	3124	
==>n if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $resu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3019	3124	
==>n if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $resu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1919	2008	
==>arenthesize($$) ? "($_)" : $_ for inner_layout($$) }

type::operator::binary: parenthesize <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5840	5930	
==>--------------------------------------------------------
## sibling methods

method get_sib <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5840	5930	
==>--------------------------------------------------------
## sibling methods

method get_sib <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1815	1940	
==>"(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveEx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1815	1940	
==>"(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveEx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	321	443	
==>{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	321	443	
==>{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version inf <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28012	28107	
==>f any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32564	32659	
==>f any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3142	3246	
==>ub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3142	3246	
==>ub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::C <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2645	2794	
==>ct[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index ( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2645	2794	
==>ct[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26653	26814	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26932	27093	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
* <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1138	1239	
==>dget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" / <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1138	1239	
==>dget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" / <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	120	219	
==>et_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurren <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	120	219	
==>et_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurren <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10392	10566	
==>return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13869	14043	
==>return $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $ot <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18206	18316	
==><LogicalANDExpressionNoIn>
    | <LogicalORExpressionNoIn> <'||'> <LogicalANDExpressionNoIn>
}
rule Conditional <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	744	851	
==>aders = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	744	851	
==>aders = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14281	14394	
==>global "PGE::Match", "newfrom"
    $P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = geta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9098	9189	
==>>_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2923	3014	
==>>_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statement <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1105	1217	
==>ase {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1105	1217	
==>ase {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15997	16094	
==>ze` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15997	16094	
==>ze` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	109	214	
==>nless -e $Path;

sub SessionInit() {
    my %Session=();
    $SID=GetCookie('sid'); $SID ~~ s:perl5:g/[^A- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6345	6478	
==>port {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(ur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6345	6478	
==>port {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(ur <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2080	2197	
==>ut as they
    # both respond to ->type and ->name in the same way, we can use
    # them here.

    my $sigil = $sigi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13821	13924	
==>on_numeric") },
      scalar_numeric     => sub { $as_array_complain->("scalar_numeric") },
      scalar <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2874	3004	
==>elf: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2874	3004	
==>elf: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	740	840	
==>$Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	798	898	
==>$Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26462	26561	
==>00 of reganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5342	5473	
==>Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5342	5473	
==>Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2078	2214	
==>eft',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        assoc => 'le <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18466	18570	
==>0.reduce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19994	20107	
==>e string value.

When used to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19994	20107	
==>e string value.

When used to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2420	2511	
==>list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subsc <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2420	2511	
==>list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subsc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6067	6179	
==>path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6067	6179	
==>path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_bas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	382	496	
==>tml>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	382	496	
==>tml>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1982	2119	
==>e
        foreach my $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6521	6619	
==>e ordering anyway and it's probably okay to keep a few
# zombies around for a relatively short whil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3162	3256	
==>::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3162	3256	
==>::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11709	11817	
==>n - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11709	11817	
==>n - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	396	501	
==>XX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	396	501	
==>XX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whenever the <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	270	394	
==>($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	270	394	
==>($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13915	14042	
==>f $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13915	14042	
==>f $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $chann <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1071	1180	
==>ns;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1071	1180	
==>ns;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4746	4897	
==>span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4746	4897	
==>span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4550	4667	
==>{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4333	4445	
==>{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8977	9104	
==>t_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8965	9092	
==>t_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2924	3067	
==>ch => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2810	2949	
==>ch => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14536	14676	
==>me') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14536	14676	
==>me') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4393	4493	
==>ypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4393	4493	
==>ypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11759	11942	
==>res;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11759	11942	
==>res;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23525	23631	
==>(it is very simple).

There are other differences.  Where other solutions take variables, they
seem to be p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23525	23631	
==>(it is very simple).

There are other differences.  Where other solutions take variables, they
seem to be p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1558	1689	
==>ope.



the Sig contains a simply structure of the signature; it does

not allocate containers.



the Body is just a structure with <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1495	1621	
==>ope.

the Sig contains a simply structure of the signature; it does
not allocate containers.

the Body is just a structure with <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3675	3783	
==>al;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "inter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3675	3783	
==>al;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "inter <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16090	16195	
==>resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16090	16195	
==>resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2404	2501	
==>>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-comp <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2404	2501	
==>>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12137	12260	
==>> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4780	4903	
==>> sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($nam <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4476	4560	
==>AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)* <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4476	4560	
==>AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	179	306	
==>oin( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	179	306	
==>oin( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22351	22449	
==>channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22351	22449	
==>channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a chann <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5826	5948	
==>ngth( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5826	5948	
==>ngth( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5790	5887	
==>$.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5790	5887	
==>$.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3281	3398	
==>1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3281	3398	
==>1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2386	2493	
==>}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2386	2493	
==>}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12737	12864	
==>\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sx <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6212	6339	
==>\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sx <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3383	3495	
==>:Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3383	3495	
==>:Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (No <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6232	6325	
==>_instance_attrs($Role)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve itself n <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3684	3794	
==>e$postamble";
    close MAKEFILE;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12226	12341	
==>04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESC <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12226	12341	
==>04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESC <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4530	4684	
==>',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iqu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4530	4684	
==>',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iqu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15019	15116	
==>Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15019	15116	
==>Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has <==
2	/Users/nnunley/pugs/util/claim_drift.pl	725	824	
==>or my $orig (glob join $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4410	4536	
==>~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4410	4536	
==>~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13095	13188	
==>:Translator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as the na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13095	13188	
==>:Translator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as the na <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16799	16912	
==>ation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are in comm <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20276	20389	
==>ation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes are in comm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	743	929	
==>le:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	743	929	
==>le:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1110	1221	
==>tatement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1110	1221	
==>tatement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# - <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4540	4633	
==>ode> \)\> }

rule character  { <a_dot>|<logical_grapheme>|<abbreviated_class>|<explicit_class> <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1043	1147	
==>ifferent, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Te <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1043	1147	
==>ifferent, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Te <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3559	3663	
==>mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3559	3663	
==>mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	28	128	
==>t - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flat <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	28	128	
==>t - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17890	17985	
==>in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving suc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17890	17985	
==>in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving suc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	40	128	
==>Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	40	128	
==>Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/util/testgraph.pl	1475	1572	
==>e My::File;
    use base qw/Test::TAP::Model::File::Visual/;
    sub subtest_class { "My::Subtest" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25338	25442	
==>item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C<equal> with th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29890	29994	
==>item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of C<equal> with th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8146	8259	
==>{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8339	8452	
==>{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable' <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1572	1665	
==>y in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
tha <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1412	1505	
==>y in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
tha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22662	22765	
==>s like a Set that exists
over N dimensions rather than one.  The Relation::Example operators are somewha <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18852	18946	
==>11.13
      <ConditionalExpressionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <As <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2772	2945	
==>elf->root->rmtree();

    my @dirs = (
            $self->root,
            $self->pool,
            $self->index,
    );

    for my $dir (@dirs) {
        $dir->mkpath() or <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3996	4140	
==>tion 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3996	4140	
==>tion 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	541	637	
==>($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($orig);
			return;
		} els <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1882	2032	
==>er ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1882	2032	
==>er ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4519	4661	
==>t"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4519	4661	
==>t"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5439	5567	
==>dir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5439	5567	
==>dir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpat <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7076	7213	
==>array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@res <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5577	5714	
==>array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@res <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16102	16203	
==>l value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16102	16203	
==>l value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3957	4073	
==>ile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4174	4290	
==>ile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	11	112	
==>kage Module::Install;

# For any maintainers:
# The load order for Module::Install is a bit magic.
# I <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10155	10283	
==>= undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10155	10283	
==>= undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8138	8271	
==>rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8126	8259	
==>rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4245	4332	
==>--> Num ) {
    2.7182818284590452353602874713526624977572470936999595749669676277240766 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9577	9661	
==>iFoo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_singleton <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1846	1945	
==>C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $val <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1846	1945	
==>C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $val <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8887	8993	
==>is 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will mun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8887	8993	
==>is 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will mun <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18032	18139	
==>onal logic, using a simple 'equals', and then the
application can "do the right thing".  No parsing or ambig <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18032	18139	
==>onal logic, using a simple 'equals', and then the
application can "do the right thing".  No parsing or ambig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8532	8659	
==>'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Bas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8532	8659	
==>'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Bas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7765	7865	
==>roxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorizatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7765	7865	
==>roxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorizatio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1091	1224	
==>y $symbol = $sym_node->val;

        $table{$symbol}; # find the symbol
    }

    # and then

    my $reduced = My::ASTWalker->new->r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8701	8825	
==>Foo = $Foo->new;
is($iFoo->id, 8, '... $iFoo is the fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '.. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10663	10757	
==>use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10721	10815	
==>use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1183	1280	
==>nst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1183	1280	
==>nst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9681	9815	
==>";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disconnecting <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9681	9815	
==>";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disconnecting <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7922	8012	
==>@chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7922	8012	
==>@chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~norma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9310	9416	
==>s true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9310	9416	
==>s true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8170	8299	
==>while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8170	8299	
==>while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CL <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8054	8166	
==>ack);

  token_match:
  $matchObjPos = $whitespacePosition;
  my $match = $$token{match};
  #TODO == should be is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25468	25567	
==>here each of its tuples is
a row, and each attribute is a column, but a Relation::Example is not a t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2412	2533	
==>> $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8472	8566	
==>t you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl than what you're running the har <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23735	23833	
==>ny order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler sol <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23735	23833	
==>ny order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler sol <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9169	9363	
==>mt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3858	3954	
==>s the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5760	5856	
==>s the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31205	31295	
==>be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31205	31295	
==>be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6586	6692	
==>CK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6586	6692	
==>CK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15652	15817	
==>>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15652	15817	
==>>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2057	2203	
==>ontent ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2057	2203	
==>ontent ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $! <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3481	3581	
==>|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31247	31345	
==>L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31247	31345	
==>L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from m <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	654	771	
==>match[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	654	771	
==>match[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2330	2453	
==>> $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5299	5409	
==>ype" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @_;
  no stri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1388	1524	
==>y $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1388	1524	
==>y $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15473	15610	
==>te => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15473	15610	
==>te => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3901	4077	
==>f $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLV <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4365	4541	
==>f $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLV <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14581	14686	
==>igger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14581	14686	
==>igger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6385	6489	
==>m - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the blo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6169	6272	
==>m - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the blo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	40	160	
==>ile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	40	160	
==>ile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2218	2372	
==>] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2147	2296	
==>] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12473	12611	
==>Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are passing represent the
current working features <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12473	12611	
==>Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are passing represent the
current working features <==
2	/Users/nnunley/pugs/util/package-osx.pl	4224	4325	
==>ible::E03.3pm
        /usr/local/man/man3/Perl6::Bible::E04.3pm
        /usr/local/man/man3/Perl6::Bib <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	754	891	
==>ver conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>( <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	754	891	
==>ver conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3733	3884	
==>ter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3733	3884	
==>ter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2958	3226	
==>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %ev <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2958	3226	
==>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %ev <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1678	1775	
==><`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1678	1775	
==><`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4134	4288	
==>trol: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_di <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4134	4288	
==>trol: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4133	4288	
==>tchet';
        return;
    }
};

sub named {
    # return a named capture
    my $label = shift;
    my $node = shift;
    sub {
        my $matc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8758	8868	
==>ion = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8758	8868	
==>ion = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) ret <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	253	360	
==>mple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	253	360	
==>mple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2197	2326	
==>tus_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2197	2326	
==>tus_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3153	3335	
==>o insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3153	3335	
==>o insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2457	2585	
==>longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2457	2585	
==>longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17259	17362	
==>run_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name) = @_;
    loc <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1696	1795	
==>\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1696	1795	
==>\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13608	13717	
==>C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the be <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13608	13717	
==>C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the be <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2375	2510	
==>"
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2375	2510	
==>"
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13650	13760	
==>t;
}

# values also pass the set of generics unchanged
val: generic($$) = { generic_in($$) }
# vals are assumed <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	79	183	
==>base, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=head1 NAME

Clas <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13133	13240	
==>d.

If called in void context the arguments are decoded in-place.

This routine is exported by default.

=it <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13133	13240	
==>d.

If called in void context the arguments are decoded in-place.

This routine is exported by default.

=it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	10	108	
==>/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	10	108	
==>/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Messa <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1504	1608	
==>d BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1504	1608	
==>d BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7776	7878	
==>o array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, < <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7776	7878	
==>o array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, < <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	924	1019	
==>se read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=h <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	924	1019	
==>se read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1335	1475	
==>re_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1335	1475	
==>re_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1729	1832	
==>e is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, I <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1729	1832	
==>e is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, I <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2886	3009	
==>t( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2886	3009	
==>t( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11572	11674	
==>printf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11572	11674	
==>printf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7861	7963	
==>of_class => alnum => $neg, $how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21170	21330	
==>essm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17591	17751	
==>essm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3656	3775	
==>.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3656	3775	
==>.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3135	3266	
==>: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $sour <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3352	3483	
==>: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $sour <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	608	730	
==>catenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2),
			Val(3),
		),
		result => 6,
		name => "simple multipl <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14745	14937	
==>k\b
                  (?:\s+(\d+))?         # optional test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4070	4203	
==>} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4070	4203	
==>} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->p <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5039	5304	
==>Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                V <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2190	2322	
==>key($k) );
    }
    *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   Bool      p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1732	1856	
==>ault)
                # without whitespace means '<str>'
                #print "checking angle quote ... [$whitespace_before <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	456	560	
==>acro LChar () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type Mat <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	398	491	
==>le assert routine since we don't have Carp::Assert handy.

B<For internal use by Test::Harness <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5053	5187	
==>eate a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5053	5187	
==>eate a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8052	8171	
==>s no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7781	7895	
==>s no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1497	1624	
==>n =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnos <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1497	1624	
==>n =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnos <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3645	3764	
==>children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you ar <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3645	3764	
==>children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you ar <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1338	1443	
==>pth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1338	1443	
==>pth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12439	12559	
==>$err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self.shift() }
    
    method shift   () { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4875	5055	
==>multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4875	5055	
==>multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($ve <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3854	3971	
==>reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3854	3971	
==>reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entitie <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14665	14768	
==>CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_anchor:
    (mob, $P0, mfrom, mpos) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	41	177	
==>ahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3497	3625	
==>_parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3961	4089	
==>_parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	550	806	
==>{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	550	806	
==>{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	38	135	
==>ngs;

use lib 'lib', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22933	23032	
==>s pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRON <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22933	23032	
==>s pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIRON <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	558	654	
==>rl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	558	654	
==>rl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9049	9159	
==>P::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9049	9159	
==>P::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10109	10254	
==>I

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10109	10254	
==>I

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7060	7164	
==>$span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a differ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7060	7164	
==>$span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a differ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23125	23225	
==>{'> <FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Iden <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9026	9148	
==>st::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( spl <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	484	593	
==>st::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( spl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	294	405	
==>ate => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	294	405	
==>ate => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	560	687	
==>thod any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	560	687	
==>thod any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6324	6428	
==>contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6109	6212	
==>contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example i <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	72	183	
==>:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0.. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5232	5341	
==>s export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*E <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5232	5341	
==>s export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*E <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	372	639	
==>t)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	372	639	
==>t)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3086	3189	
==>owing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3086	3189	
==>owing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Conte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38888	38992	
==>*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequences

If you are cr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38604	38711	
==>t and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38604	38711	
==>t and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3771	3876	
==>:Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 're <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4206	4292	
==>in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4206	4292	
==>in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1185	1313	
==>') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1185	1313	
==>') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23410	23511	
==>elation" is a Role rather than a Class, and some
implementations are immutable rather than mutable, th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27962	28063	
==>elation" is a Role rather than a Class, and some
implementations are immutable rather than mutable, th <==
2	/Users/nnunley/pugs/util/config_h.pl	235	363	
==>lags of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base directory of the Pugs installation 
              ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10725	10829	
==>the Regex

You can get the regex back from the parser with the visual() method:

  my $rx = $parser->visu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14819	14916	
==>start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14819	14916	
==>start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	402	519	
==>ooks_like_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18456	18616	
==>p::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18735	18895	
==>p::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15173	15288	
==>::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4734	4849	
==>tance_attrs($role)->{'$:name'}} = undef;
        foreach my $method_name ($role->get_method_list) {
            # if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6491	6595	
==>Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11549	11653	
==>Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7676	7789	
==>ay2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $la <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7676	7789	
==>ay2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $la <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1918	2015	
==>}
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1918	2015	
==>}
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<o <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26358	26486	
==>xport COLUMNS> for this module to use that variable.

=item C<HARNESS_COMPILE_TEST>

When true it will make harness attempt to co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28695	28790	
==>API that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28695	28790	
==>API that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1830	1933	
==>n::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1830	1933	
==>n::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.star <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1003	1106	
==>$<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1003	1106	
==>$<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8480	8579	
==>est cases exist.
multi Array::max(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List::max $cmp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2203	2339	
==>pture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2191	2327	
==>pture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3662	3770	
==>P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2623	2745	
==>{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}->{capture},
                abort   => ${$_[3]{match}[ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	913	1004	
==>il = '[\$\@\%]';
our $re_symbol = '\w[\w\d]*';
our $re_condition = '(?:if|elsif|else|unless| <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1364	1490	
==>nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unles <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14243	14342	
==>") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14243	14342	
==>") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6858	6974	
==>elf.clone;
    # TODO - optimization - return the internal list object, if there is one
    return Perl6::Value::List <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6858	6974	
==>elf.clone;
    # TODO - optimization - return the internal list object, if there is one
    return Perl6::Value::List <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	39	132	
==>remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	39	132	
==>remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6030	6182	
==>= 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6223	6375	
==>= 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6807	6935	
==>y $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7000	7128	
==>y $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	702	843	
==>ss \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	695	836	
==>ss \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2991	3093	
==>em C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the following re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2991	3093	
==>em C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the following re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13347	13442	
==>w_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13347	13442	
==>w_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1119	1306	
==>P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1119	1306	
==>P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6616	6729	
==>e the case-preserved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $subpath eq u <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35557	35650	
==>t (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40107	40200	
==>t (Relation *@others) returns Relation>

This multi-method is the N-ary version of the aforeme <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	865	955	
==>::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	865	955	
==>::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2086	2183	
==>rectory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland obje <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2008	2102	
==>rectory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland obje <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6649	6752	
==>te API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUT <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6649	6752	
==>te API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUT <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2122	2233	
==>de ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2122	2233	
==>de ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2991	3140	
==>tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2991	3140	
==>tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3952	4118	
==>ime;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3952	4118	
==>ime;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look fo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12852	12979	
==>def"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4036	4132	
==>universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4036	4132	
==>universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12324	12426	
==>Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) beha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12324	12426	
==>Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) beha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3414	3566	
==>'$method' => $nil::NIL);
            $e->create('$current' => $e->get('&dispatcher')->do());                                  
            block->new($e, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2434	2558	
==>}
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1596	1706	
==>};

    if ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3760	3982	
==>reponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3760	3982	
==>reponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7258	7387	
==>ompile_hook_p5re...\n");
      handler = sv;
    }
  }  
  /* If no handlers, then hand off */
  if(handler == NULL) {
    fprintf <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2474	2588	
==>cryptions after this point will be using stronger portions of the keystream.
(Just remember to do it at both ends!) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2474	2588	
==>cryptions after this point will be using stronger portions of the keystream.
(Just remember to do it at both ends!) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1005	1098	
==>->run($program);

=head1 DESCRIPTION

The runtime object is responsible for providing the comp <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	577	703	
==>$string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_esca <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	577	703	
==>$string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_esca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4952	5165	
==>erent versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4952	5165	
==>erent versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8081	8182	
==>--------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8081	8182	
==>--------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	203	299	
==>ldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	203	299	
==>ldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21445	21555	
==>tays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21445	21555	
==>tays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	243	341	
==>"{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	243	341	
==>"{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	854	961	
==>er::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	854	961	
==>er::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1582	1724	
==>=> \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_error), return;
        
        my $obj = $cla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12583	12709	
==>}
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      ps <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12583	12709	
==>}
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      ps <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	220	315	
==>(:STD);

=head1 METHODS

=head2 $repo = JIB::Repository->new(...);

Required arguments:

=over 4 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3081	3186	
==>an, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3081	3186	
==>an, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22865	22963	
==>tended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approach o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22865	22963	
==>tended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approach o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	200	287	
==>s
## ----------------------------------------------------------------------------
## Thi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	168	255	
==>s
## ----------------------------------------------------------------------------
## Thi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21158	21265	
==>se
associated keys internally.

It is strongly suggested (but not required) that each Perl package which
use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21158	21265	
==>se
associated keys internally.

It is strongly suggested (but not required) that each Perl package which
use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1467	1726	
==>$msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1467	1726	
==>$msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5179	5268	
==>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5179	5268	
==>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2484	2643	
==>we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2484	2643	
==>we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9358	9448	
==>ments, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3183	3273	
==>ments, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10519	10626	
==>u can pass them through this function. This is primarily a release
tool, but can be useful in other contexts <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10577	10684	
==>u can pass them through this function. This is primarily a release
tool, but can be useful in other contexts <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11838	11946	
==>t>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11838	11946	
==>t>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is fre <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12192	12290	
==>e parameter is a member of the recurrence.
Otherwise, returns the previous element in the recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12192	12290	
==>e parameter is a member of the recurrence.
Otherwise, returns the previous element in the recurrenc <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	559	671	
==>ML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAML/;


$| = 1;
my $start = time;

sub usa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3148	3259	
==>ing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $!\n";
  close $fh or
    die "Couldn <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5924	6025	
==>files that a given package belongs to.

=cut

sub index_files { #TODO: When using two properties (A an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	323	452	
==>ost;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	323	452	
==>ost;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	11	129	
==>::Package::Installed;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config;
use JI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1060	1171	
==>e Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1060	1171	
==>e Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2879	2979	
==>year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2879	2979	
==>year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	35	140	
==>t cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable part <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	35	140	
==>t cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable part <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13301	13461	
==>nation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13301	13461	
==>nation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2144	2247	
==>ie::Val;
    use base 'Blondie::Node::Unit';

    package Blondie::Seq;
    use base 'Blondie::Node::Lis <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4257	4351	
==>e span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4257	4351	
==>e span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11948	12055	
==>ty($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11948	12055	
==>ty($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Spa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15839	15934	
==>This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15839	15934	
==>This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$no <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1322	1453	
==>te:
#  re_tests - tests from p5 HEAD 2006-02-12
#  re_tests_perl5.t - driver from same.
#  re_tests_parrot.t - parrot's driver, same <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2438	2564	
==>p1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = shift;
    my $self = { levels => [], @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3116	3265	
==>= eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %arg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3256	3405	
==>= eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %arg <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4855	4953	
==>t utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4913	5011	
==>t utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3477	3570	
==>orian::duration;
#}

# operations with Duration::Gregorian constructors..
#multi method infix: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3017	3141	
==>'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grav <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3017	3141	
==>'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grav <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5064	5238	
==>mal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5064	5238	
==>mal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5401	5507	
==>ures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5401	5507	
==>ures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Inter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3419	3531	
==>e::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3419	3531	
==>e::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variab <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5056	5236	
==>the temp dir 
        system( qq[rm -rf $my_tmp_dir] )                        and die $?;
    }
    
    return $inst_pkg;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14991	15094	
==>} ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14991	15094	
==>} ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1283	1439	
==>.
        "sub {\n" . 
        "    my \$grammar = shift;\n" .
        #"    warn 'rule argument is undefined' unless defined \$_[0];\n" .
        "    \$_[0 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1341	1468	
==>('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	exit(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8587	8705	
==>duce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $temp1 = pop @termStack;
  goto en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13125	13252	
==>$object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        lin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13125	13252	
==>$object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        lin <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	359	461	
==>TTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	359	461	
==>TTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=he <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	785	926	
==>+' { @stack.push($y + $x) }
            when '-' { @stack.push($y - $x) }
            when '*' { @stack.push($y * $x) }
            when '/' { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23654	23764	
==>mx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' affects the rest of thi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3012	3124	
==>assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3012	3124	
==>assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	166	274	
==>seCategory ws()

# placeholder for the Pod grammar

# XXX Pod can only start at a line start

BEGIN {
    __P <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2676	2775	
==>d day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2676	2775	
==>d day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26896	26991	
==>ttrs!) returns Relation>

This method is the same as C<project> but that the returned Relation h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31448	31543	
==>ttrs!) returns Relation>

This method is the same as C<project> but that the returned Relation h <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3143	3246	
==>OAD} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub check_prereq {
    my ($mod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1437	1585	
==>.= '(';
            $str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIV <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2377	2482	
==>$libs->{privlib},
        INSTALLSITEARCH => $libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearc <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	796	924	
==>@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurrency();
$Test::Harness::Verbose  = 1;
$Config{"output-file"} ||= " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3266	3366	
==>ns } => $class;
}

sub params  { (shift)->{params}  }
sub returns { (shift)->{returns} }

sub equal_t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8479	8574	
==>has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8479	8574	
==>has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($cu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19634	19734	
==>iler. The end of an inner block
effectively acts as a C<no> statement for any compile sections in
tha <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19634	19734	
==>iler. The end of an inner block
effectively acts as a C<no> statement for any compile sections in
tha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8565	8760	
==>{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "I <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9029	9224	
==>{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	321	441	
==>s defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	321	441	
==>s defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defi <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	213	337	
==>) {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	213	337	
==>) {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3277	3455	
==>mp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3277	3455	
==>mp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5360	5463	
==>url argument can
be either a simple string or a reference to a URI object.

You will not be able to exam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5360	5463	
==>url argument can
be either a simple string or a reference to a URI object.

You will not be able to exam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12520	12686	
==>{
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12520	12686	
==>{
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33675	33771	
==>nt is a Template module Member Name and usually corresponds to a
language like English or French. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33675	33771	
==>nt is a Template module Member Name and usually corresponds to a
language like English or French. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	999	1100	
==>method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1] <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	999	1100	
==>method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1] <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2382	2494	
==>compile-time subroutine
    Rule        Perl pattern
    Block       Base class for all unnameable executable obj <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5320	5431	
==>$node);

		my $return_type = $node->type->[-1]->type;
		
		my @children = $child->values;
		my @params;
		my @ex <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10154	10249	
==>e slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10154	10249	
==>e slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3858	3978	
==>he value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical sco <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3870	3990	
==>he value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical sco <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5607	5707	
==>exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 np <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8826	8915	
==>[char(93)|L]) --> "]", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 93 is ]
p5_c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	273	407	
==>],
    }, $class;
}

sub execute {
    my $self = shift;
    my $prog = shift;
    $self->reduce($prog);
}

sub can_reduce { 1 }

sub g <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15264	15362	
==>ECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15264	15362	
==>ECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13410	13536	
==>terface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13410	13536	
==>terface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3380	3510	
==>$quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3368	3498	
==>$quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    retur <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9718	9820	
==>hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_intern <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12380	12474	
==>hildren).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and errnum() metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4608	4728	
==>capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4801	4921	
==>capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3629	3729	
==>ore(W, Z) --> p6_quantified(X), p6_concatenation_more(conc(W,X), Z), !.
p6_concatenation_more(W, W) - <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2815	2955	
==>ated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can' <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2815	2955	
==>ated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13685	13811	
==>ave zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15210	15336	
==>ave zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ) <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	986	1082	
==>processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexib <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	986	1082	
==>processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexib <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1163	1309	
==>diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.dia <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1163	1309	
==>diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.dia <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2849	3016	
==>( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2849	3016	
==>( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = em <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3559	3683	
==>ines this as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25089	25195	
==>r a Relation::Example to have zero attributes, though such a Relation::Example can have no
more than a sing <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9129	9245	
==>e "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recursion arise?
	my $v2 = recurse( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1134	1232	
==>erations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirecti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1134	1232	
==>erations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirecti <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	190	288	
==>arrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "p <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	343	441	
==>arrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2401	2527	
==>in(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2401	2527	
==>in(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5209	5340	
==>claim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_res <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5267	5398	
==>claim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_res <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2637	2741	
==>_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connect <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2637	2741	
==>_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connect <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	389	501	
==>eking in, might be a
    ### catch22 if we don't do it from repository metadata
    my $path = basename($archive) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10632	10730	
==>4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10632	10730	
==>4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2792	2900	
==>rn $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2792	2900	
==>rn $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $sp <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	414	509	
==>5/*>;
    copy_all("$_/blib6/", 'blib6/pugs/perl6') for <perl5/*>;
    copy_all("$_/blibjs/", 'b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21953	22046	
==>, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(clas <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	953	1133	
==>rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	953	1133	
==>rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15251	15356	
==>ere
should be no ambiguity when trying to invoke or implement it, and so an
application written to it shou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15251	15356	
==>ere
should be no ambiguity when trying to invoke or implement it, and so an
application written to it shou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32679	32786	
==>urpose of adding an ending node to the walking stack is that ending
nodes are all omitted from the tree beca <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19494	19604	
==>Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> statement
are mar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19494	19604	
==>Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> statement
are mar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13668	13773	
==>sconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13668	13773	
==>sconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5357	5462	
==>,$tok));
sub def_operator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$re;
  my $o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34263	34360	
==>tion>

This method is a generic relational operator that returns the complement of
C<semijoin> wit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38813	38910	
==>tion>

This method is a generic relational operator that returns the complement of
C<semijoin> wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37951	38054	
==>(
$msg_key ) and return that subroutine's result, which is a Template text
string if the module recogniz <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37951	38054	
==>(
$msg_key ) and return that subroutine's result, which is a Template text
string if the module recogniz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5104	5219	
==>ers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5104	5219	
==>ers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22445	22546	
==>channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</Q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22445	22546	
==>channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</Q <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	921	1043	
==>symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	921	1043	
==>symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # St <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9079	9177	
==>pher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submet <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9079	9177	
==>pher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submet <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	700	794	
==>w "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	700	794	
==>w "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1598	1700	
==>s Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1598	1700	
==>s Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interface::Exception cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	443	542	
==>'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Arr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	443	542	
==>'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Arr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	639	766	
==>~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $director <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	639	766	
==>~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $director <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	118	243	
==>rns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empt <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	118	243	
==>rns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2032	2148	
==>sure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2043	2159	
==>sure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1707	1802	
==>= Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1707	1802	
==>= Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2242	2410	
==>[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2489	2657	
==>[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9105	9201	
==>head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9105	9201	
==>head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1147	1257	
==>ing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1158	1268	
==>ing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	57	177	
==>y %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	57	177	
==>y %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11536	11684	
==>[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not impleme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11530	11678	
==>[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not impleme <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3945	4041	
==>he private accessors
sub ls_all_accessors { sort keys %config }
sub ls_accessors { grep { $_ !~ / <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2758	2961	
==>t.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2758	2961	
==>t.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_spa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1290	1418	
==>domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1290	1418	
==>domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16077	16179	
==>thod _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19554	19656	
==>thod _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!head <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18053	18195	
==>..; next; }
        my $arg;
        if $specifier ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17400	17532	
==>f->generic_reduce($_[0]) })->str;

            return (ref $node) . "->new<=$node>" . layout(@gut);
        } else {
            warn <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7566	7669	
==>lti Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signatu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12328	12444	
==>LF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12328	12444	
==>LF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedTe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8988	9090	
==>ll munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_wit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8988	9090	
==>ll munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11692	11823	
==>T_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11692	11823	
==>T_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	858	957	
==>nstall $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	858	957	
==>nstall $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20356	20473	
==>$self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16777	16894	
==>$self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	713	817	
==>ion($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symm <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	713	817	
==>ion($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symm <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	67	189	
==>pl';
    protoconf->import();
}

use File::Basename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at lea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9068	9202	
==>r.
# Arguments :
#   switches => [ command-line switches ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1601	1745	
==>ughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # repre <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1601	1745	
==>ughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # repre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12519	12645	
==>t_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the data <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12519	12645	
==>t_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	941	1078	
==>ORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_term:
        NUM 
        { $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1212	1326	
==>interfere with '# skip' and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1997	2134	
==>eed better checks
        
        ### XXX create an object::accessor object, blessed in the right class
        my $obj = 
            $a <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	892	1009	
==>1' to available ISO-8601 formats";

    my $year = $0;
    if ( $year.defined and $year.chars == 2 ) {
        $year = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13919	14043	
==>day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13919	14043	
==>day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2835	3026	
==>del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, B <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2835	3026	
==>del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	997	1160	
==>',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12945	13040	
==>-> Scalar ) is default

Deletes the elements specified by C<$key> or C<$keys> from the invocant. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2793	2905	
==>s_redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2793	2905	
==>s_redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12733	12860	
==>egated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob[ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2405	2499	
==>ecss tests.yml), $html_location) == 0 or die "Could not convert .yml to testgraph: $!";
upload_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	976	1092	
==>ocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	976	1092	
==>ocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6296	6419	
==>X - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6296	6419	
==>X - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1251	1389	
==>lsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        } <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1251	1389	
==>lsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3499	3601	
==>returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3499	3601	
==>returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8139	8244	
==>str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8139	8244	
==>str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21962	22055	
==>cii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(class_neg(pri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14810	14911	
==>of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14868	14969	
==>of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3675	3799	
==>nd
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3675	3799	
==>nd
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname u <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	90	204	
==>Scalar' => {};

class 'PIL::Run::Container::Scalar' => {
    does => [ 'IScalar' ],
    instance => {
        attrs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35080	35172	
==>nherit the merge() method defined in F<Regexp::Parser::branch>,
which is used when two of the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1044	1158	
==>Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1044	1158	
==>Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    h <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	137	288	
==>o        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	137	288	
==>o        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1458	1562	
==>ding the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1665	1769	
==>ding the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	989	1098	
==>tion) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must be a bloc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1222	1331	
==>tion) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must be a bloc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5675	5815	
==>arser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5675	5815	
==>arser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4227	4535	
==>on( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links fro <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9580	9681	
==>quence>
}
rule CharacterEscapeSequence {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscapeCh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7508	7656	
==>ef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7508	7656	
==>ef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8334	8433	
==>t::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.string <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8334	8433	
==>t::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.string <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9261	9360	
==>handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9261	9360	
==>handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3890	4005	
==>al" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3751	3864	
==>al" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primit <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31038	31129	
==>n or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35588	35679	
==>n or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	994	1102	
==>ple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	994	1102	
==>ple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1101	1257	
==>s !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

met <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1101	1257	
==>s !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

met <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	970	1101	
==>t chdir to $builddir: $!";
    }

    ### build an archive file
    my $archive = $path . $Ext;
    {   system( qq[tar --exclude $Pm <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2252	2358	
==>ts($P);
    my $proto = $O.<[[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19102	19197	
==>structor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for exam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19102	19197	
==>structor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for exam <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9035	9141	
==>ntegers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9035	9141	
==>ntegers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrenc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3753	3857	
==>g the symbol " . $sym->val . " to $type";

		Blondie::TypeSafe::Annotation->new(
			type => $type,
			str <==
2	/Users/nnunley/pugs/util/package-osx.pl	11988	12083	
==>if (keys %symlinks > 0);
&create_remover($dest, values %change_files, @files, %symlinks, $remove <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7538	7651	
==>)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7538	7651	
==>)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	560	657	
==>mple-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	560	657	
==>mple-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	443	550	
==>new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK loo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	443	550	
==>new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK loo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14533	14673	
==>'name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14533	14673	
==>'name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5011	5217	
==>f, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5023	5229	
==>f, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<n <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1451	1602	
==>eadlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            la <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1451	1602	
==>eadlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            la <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2852	3020	
==>term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2852	3020	
==>term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23121	23225	
==>t" it looks like you
are supposed to pass in english text and they translate it, which could
produce ambi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23121	23225	
==>t" it looks like you
are supposed to pass in english text and they translate it, which could
produce ambi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5815	5917	
==>alk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5815	5917	
==>alk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_con <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1702	2005	
==>Tree.new(:node<Bit>)
                                    ),
                                ),
                            ),
                        ),                        
                        Tree.new(:node<Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	69	176	
==>05';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6487	6605	
==>fo } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_root}::Node;\n".<<'END';
sub is_slurpy { $_[0]->name =~ / <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3020	3198	
==>) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3020	3198	
==>) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	74	216	
==>qw(locale_h);

setlocale(LC_CTYPE,"de_DE.utf8");

sub slurp {
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	630	728	
==>ntation of all the things the
language must provide, including stuff for what cannot have a referen <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4782	4887	
==>r of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4782	4887	
==>r of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3344	3486	
==>n(
                Tree.new(:node<Package>).add_children(
                    Tree.new(:node<Module>).add_children(
                        Tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2980	3112	
==>y',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use push pop ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1285	1439	
==>($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1285	1439	
==>($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13578	13682	
==>num' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg, \$h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8025	8139	
==>s \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8013	8127	
==>s \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	27	122	
==>::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	27	122	
==>::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2656	2747	
==>_children returns Array of Tree { @!children }

## ----------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2656	2747	
==>_children returns Array of Tree { @!children }

## ----------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2255	2377	
==>$temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Targ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2255	2377	
==>$temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Targ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14938	15085	
==>pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14938	15085	
==>pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($cla <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	977	1075	
==>s Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	977	1075	
==>s Bool {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $de <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32051	32154	
==>new Relation that has the same heading
and whose body contains all of the tuples that are in either or b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36601	36704	
==>new Relation that has the same heading
and whose body contains all of the tuples that are in either or b <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9335	9463	
==>_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9335	9463	
==>_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17574	17743	
==>=> 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17574	17743	
==>=> 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12366	12561	
==>send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12360	12555	
==>send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$gramma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3596	3702	
==>ocument;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3596	3702	
==>ocument;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2551	2692	
==>. $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2768	2909	
==>. $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3512	3611	
==>$file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_]+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3997	4123	
==>t}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { op1 => 'call', sub => $_ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	305	418	
==>er.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $a <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	305	418	
==>er.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1833	1939	
==>git
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1893	1999	
==>git
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2383	2481	
==>'s best to work with those limitations and 
still produce a working version of File::Spec for use a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2383	2481	
==>'s best to work with those limitations and 
still produce a working version of File::Spec for use a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1314	1413	
==>, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1314	1413	
==>, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15556	15658	
==>tes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
that hel <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15556	15658	
==>tes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
that hel <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	28	148	
==>v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	28	148	
==>v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1997	2095	
==>e::Annotator;
	use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	us <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1192	1287	
==>tiated - points to another variable or operator

use Language::AttributeGrammar;

# this attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1569	1675	
==>{
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1569	1675	
==>{
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24711	24874	
==>ipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    push @result, "\n";
    my $txt = join "" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9402	9530	
==>$x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative fo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9402	9530	
==>$x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6398	6529	
==>e_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6398	6529	
==>e_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    ) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	267	367	
==>Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

=head1 DESCRIPTION

B<FOR INTERNAL U <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22307	22422	
==>ch.

The usual way that Rosetta indicates a failure is to throw an exception;
most often this is due to invalid inpu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22307	22422	
==>ch.

The usual way that Rosetta indicates a failure is to throw an exception;
most often this is due to invalid inpu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1970	2075	
==>ODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexin <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1970	2075	
==>ODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	244	357	
==>package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	255	368	
==>package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21781	21916	
==>s} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18202	18337	
==>s} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24751	24839	
==>0,[],E0).
set_flag(E0,i,E1)  :- set_flag_i(E0,i,E1), !.
set_flag(E0,-i,E1) :- set_flag_i( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2267	2414	
==>P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2267	2414	
==>P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.v <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20308	20411	
==>padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.serno()
    pad["cutnum"] = <==
2	/Users/nnunley/pugs/util/package-osx.pl	10247	10363	
==>_remover {
    my ($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir($dirs) unle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33890	33984	
==>anguage they prefer to communicate in, and what their backup choices are,
in order, if preferre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33890	33984	
==>anguage they prefer to communicate in, and what their backup choices are,
in order, if preferre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19924	20024	
==>word.  In scalar context it will
return I<"uname:password"> as a single string value.

When used to s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19924	20024	
==>word.  In scalar context it will
return I<"uname:password"> as a single string value.

When used to s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2676	2775	
==>}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2676	2775	
==>}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4928	5037	
==>hild_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4928	5037	
==>hild_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($pa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2640	2867	
==>,
                    '$.reason'      =>  $reason,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },        
        'skip' => sub { 
            my ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	719	836	
==>x =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	808	918	
==>es in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $Perl6::Run::OnPerl5::X1::BB::pugs_ar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37113	37216	
==>to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37113	37216	
==>to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

T <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11394	11491	
==>n Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11452	11549	
==>n Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35358	35454	
==>is method returns all Set Names elements in this object as an array ref.

=item C<get_member_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35358	35454	
==>is method returns all Set Names elements in this object as an array ref.

=item C<get_member_name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4245	4391	
==>=> { op1 => 'call', sub => $_[1], } } }

    | BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], param => $_[2], } } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	263	358	
==>ocumentation of the other Modules in the JIB namespace for
details.

=head1 SEE ALSO

L<JIB::Con <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2692	2801	
==>universe if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2692	2801	
==>universe if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4839	4949	
==>y()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4839	4949	
==>y()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34580	34687	
==>le::KeyedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34580	34687	
==>le::KeyedText::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_n <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	227	349	
==>rns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOC <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	227	349	
==>rns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { %*ENV<SERVER_PROTOC <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	484	578	
==>d1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	484	578	
==>d1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30440	30538	
==>exclusive alternative for the rest
of the set. There is a separate template module for each distinc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30440	30538	
==>exclusive alternative for the rest
of the set. There is a separate template module for each distinc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3211	3369	
==>'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3222	3380	
==>'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return val <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2084	2227	
==>pends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3453	3588	
==>pends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	207	314	
==>nd::C::Builtins;

sub run {
	my $self = shift;
	my $prog = shift;

	my $c = $self->compile($prog);
	my $type <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13168	13267	
==>fresh perl, so we'll brute force launder everything for you
	my $sep;

	eval "require Config; Config <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8175	8304	
==>known node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[0] as_strin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8919	9049	
==>1),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8919	9049	
==>1),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5695	5816	
==>e::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $it <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5695	5816	
==>e::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	130	231	
==>gs;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	130	231	
==>gs;

use Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5638	5792	
==>$<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5650	5804	
==>$<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	139	241	
==>hs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pause\visible<5>{
my @a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2595	2738	
==>is available
        
        ### unlink all the script files
        for my $script ( @{ $href->{$pkg}->{bin} || [] } ) {
            1 while u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	10	272	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # Thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	10	272	
==>/pugs
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13865	13992	
==>en;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper::Dumper $o;

    my $f_test = $o->data->[0]->emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2303	2409	
==>";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2520	2626	
==>";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cac <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4127	4230	
==>lement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

met <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4127	4230	
==>lement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16922	17042	
==>ueue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16922	17042	
==>ueue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	41	189	
==>le DumpFile];
use Data::Dumper;
use File::Basename;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1522	1614	
==>l6::Run::OnPerl5::X1::Repl;
use strict;


for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	69	181	
==>alence;

package type::comparable;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

u <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17585	17690	
==>tr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \&header_handler,
    test => \&test_handler <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20757	20856	
==>lation indicates a failure is to throw an exception;
most often this is due to invalid input.  If an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25309	25408	
==>lation indicates a failure is to throw an exception;
most often this is due to invalid input.  If an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9291	9382	
==>push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3116	3207	
==>push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1645	1772	
==>cname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we hav <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1645	1772	
==>cname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we hav <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1864	2009	
==>_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2401	2546	
==>_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1821	1951	
==>e";
    return list->new(
        # make sure to create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$se <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	442	548	
==>RGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compression() if $compre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7205	7297	
==>h @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1030	1122	
==>h @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	4	101	
==>sr/bin/perl

use warnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSIO <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	605	699	
==>directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Sho <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	605	699	
==>directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Sho <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3019	3120	
==>shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3019	3120	
==>shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functio <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	392	519	
==>\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERS <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	517	629	
==>\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERS <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1914	2056	
==>w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1914	2056	
==>w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	541	683	
==>= Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	541	683	
==>= Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3263	3416	
==>f ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3263	3416	
==>f ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2825	2926	
==>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less t <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2825	2926	
==>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8414	8636	
==>n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store th <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8878	9100	
==>n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2749	2862	
==>"# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2749	2862	
==>"# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1959	2053	
==>e have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1959	2053	
==>e have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14511	14623	
==>e("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14511	14623	
==>e("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	43	170	
==>ri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	43	170	
==>ri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14462	14596	
==>d!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14462	14596	
==>d!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7592	7726	
==>::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{before};

        my $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7336	7465	
==>::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{before};
        my $ma <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8640	8743	
==>his is where this method comes into play
# it will recurse down the tree and fix the
# depth fields appr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8640	8743	
==>his is where this method comes into play
# it will recurse down the tree and fix the
# depth fields appr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6991	7087	
==>d(n)' directive is reached. This does not include 
the text of the header, that will be processed <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6991	7087	
==>d(n)' directive is reached. This does not include 
the text of the header, that will be processed <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17692	17804	
==>or condition by an
internal code which is guaranteed to be unique for a situation, and this is
mapped to a user-r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17692	17804	
==>or condition by an
internal code which is guaranteed to be unique for a situation, and this is
mapped to a user-r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	582	679	
==>probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	582	679	
==>probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1504	1623	
==>rns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1504	1623	
==>rns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## ------------------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1560	1691	
==>ift        or return;
    my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $self->c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	618	730	
==>, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $rep <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	618	730	
==>, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $rep <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	515	614	
==>represent transformations between PIL node types; out-of-band data is not listed.

sub type_check (* <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	515	614	
==>represent transformations between PIL node types; out-of-band data is not listed.

sub type_check (* <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1630	1739	
==>ion

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

Initialize a new strap.

=cut

sub new {
    my <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3532	3678	
==>king/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3532	3678	
==>king/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9541	9629	
==>per_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9541	9629	
==>per_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1056	1155	
==>ectory, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1056	1155	
==>ectory, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3158	3355	
==>range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3158	3355	
==>range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15856	15951	
==>.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> other <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15856	15951	
==>.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> other <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	95	217	
==>implement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Thin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	95	217	
==>implement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Thin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2775	2868	
==>er.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2775	2868	
==>er.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	200	317	
==>m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


sub match_array { }


sub match_hash { }


sub init {
  my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1215	1349	
==>join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1215	1349	
==>join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14687	14808	
==>_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<discon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14687	14808	
==>_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<discon <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6438	6699	
==>.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6438	6699	
==>.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	279	402	
==>) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	279	402	
==>) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	87	198	
==>tatements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	87	198	
==>tatements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
u <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13768	13909	
==>p { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $skip and $ski <==
2	/Users/nnunley/pugs/util/claim_drift.pl	1108	1242	
==>link: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $rea <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14433	14540	
==>.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14433	14540	
==>.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	818	939	
==>n't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	818	939	
==>n't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26802	26894	
==>optional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26802	26894	
==>optional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6181	6297	
==>,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6181	6297	
==>,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method conte <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17930	18044	
==>: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17930	18044	
==>: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing u <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1115	1219	
==>lf->autoload;

    # Unregister loader and worker packages so subdirs can use them again
    delete $INC{ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	932	1034	
==>e are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	932	1034	
==>e are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1739	1901	
==>}
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a cop <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1739	1901	
==>}
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a cop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5637	5740	
==>files



=head1 Compiler processes



### separate "processes" from actual module documentation?



=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5444	5541	
==>files

=head1 Compiler processes

### separate "processes" from actual module documentation?

=hea <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	234	368	
==>valuated integer result.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28495	28587	
==>og)		((prog)->reganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_on(prog)		((prog)->reganch |= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9911	10060	
==>ub {
    my ($S) = @_;

    if ($S->match_scalar) {
    }

    return $S->object(eol => eol => '$$');
  });


  ### '@'


  ### '%'


  ### '^'

  $se <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5505	5612	
==>sage

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua G <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5505	5612	
==>sage

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua G <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15763	15901	
==>.sub "parse_error"
    .param pmc mob
    .param int pos
    .param string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1845	1945	
==>\@example.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") } <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	500	606	
==>adline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	500	606	
==>adline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	229	340	
==>LO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	229	340	
==>LO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29963	30061	
==>d values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29963	30061	
==>d values from it by key.  Each template hash
key corresponds to the Message Key attribute of a Mess <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	228	366	
==>, 0, [ $_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3452	3657	
==>polate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3452	3657	
==>polate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	865	987	
==>eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	874	996	
==>eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4466	4602	
==>ok at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4466	4602	
==>ok at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1152	1256	
==>cludes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1152	1256	
==>cludes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignor <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3403	3506	
==>ed_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3461	3564	
==>ed_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9547	9641	
==>bset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (sup <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9547	9641	
==>bset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (sup <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29486	29587	
==>n
'atom' matches a '|'.  This means the handler for '|' does not need
to match it; it has already been <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	786	893	
==>lo, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This mo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2418	2508	
==>L::isa(shift(), 'JIB::Meta') }; 
use constant ISA_JIB_CONFIG => sub { UNIVERSAL::isa(shift( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	623	737	
==>decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	623	737	
==>decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17940	18023	
==>,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6547	6661	
==>le ( alternation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6328	6437	
==>le ( alternation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2225	2325	
==>= $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2225	2325	
==>= $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9545	9666	
==>',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9545	9666	
==>',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_ke <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6576	6674	
==>sage are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $fil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6576	6674	
==>sage are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $fil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2719	2817	
==>f: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersection($self: S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2719	2817	
==>f: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersection($self: S <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1062	1414	
==>(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym(' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7286	7421	
==>o = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	587	722	
==>o = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2463	2637	
==>ndef };
   if $x < 0       { return -1    };
   if $x > 0       { return  1    };
   if $x == 0      { return  0    };
   undef;
 }


 multi Math::Basic::srand ( Num $seed)
 { <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1657	1763	
==>o");
  # "Hello, Ingo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is only an exper <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24720	24836	
==>of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29272	29388	
==>of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7831	8004	
==>kies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7831	8004	
==>kies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5062	5159	
==>method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5062	5159	
==>method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2531	2664	
==>nt
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2531	2664	
==>nt
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1662	1783	
==>t1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1662	1783	
==>t1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17806	17938	
==>ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14227	14359	
==>ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_F <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	81	181	
==>E

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	81	181	
==>E

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3021	3138	
==>ift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3021	3138	
==>ift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	318	517	
==>pec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	318	517	
==>pec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24956	25106	
==>if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21377	21527	
==>if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7563	7659	
==>=for' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' dire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7563	7659	
==>=for' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' dire <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6490	6617	
==>. 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6490	6617	
==>. 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $s <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	540	666	
==>s
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	540	666	
==>s
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35915	36009	
==>ember_combinations()>

This method returns an array ref having all combinations of this object' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35915	36009	
==>ember_combinations()>

This method returns an array ref having all combinations of this object' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8594	8696	
==>docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.htm <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8594	8696	
==>docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.htm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7520	7609	
==>~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7520	7609	
==>~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channe <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2861	2997	
==>rect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2861	2997	
==>rect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4250	4394	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4443	4587	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11892	12005	
==>$m";
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	10878	11028	
==>ylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ /\(?:readline|h <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3238	3400	
==>ent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3238	3400	
==>ent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9198	9354	
==>.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9198	9354	
==>.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3353	3468	
==>le @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17145	17261	
==>>
}
rule BitwiseXORExpression :words {  # see 11.10
      <BitwiseANDExpression>
    | <BitwiseXORExpression> <'^'> < <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2248	2383	
==>routine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2248	2383	
==>routine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we g <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17360	17478	
==>(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = "\n.namespace [ \""
    $P0 .= gramma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8848	8942	
==>leStringCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule DoubleStringCha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3157	3266	
==>), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15755	15868	
==>XXX: this should be a class variable!
        #Time::Local.new( pairs zip @ids, @tm );

        $res = Time::Local <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2469	2568	
==>with no arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2469	2568	
==>with no arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering st <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2792	2892	
==>thod vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2792	2892	
==>thod vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1396	1496	
==>he current
time and the text they said is saved.

If the (optional) role parameter C<public> is set t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1396	1496	
==>he current
time and the text they said is saved.

If the (optional) role parameter C<public> is set t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19058	19156	
==>t, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19058	19156	
==>t, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  L <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	625	730	
==>"pugs naive_bayesian.p6 add oranges oranges");
    system("pugs naive_bayesian.p6 add grapes grapes");
}
s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31907	32054	
==>ues')->fetch($e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _make_descendant_dispatcher (opaque $self:) retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	328	439	
==>1] eq 'Str'  && defined $_[0];
    return 1 if $_[1] eq 'Num'  && defined $_[0];
    return 1 if $_[1] eq 'Code' <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7938	8049	
==>ontext:   "; my $context =  traverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13621	13705	
==>eate('$self' => $e->get('$class:')->send('CREATE' => ($e->get('$canidate'), $e->get(' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21810	21922	
==>d for a Relation to have zero tuples.  It is also valid
for a Relation to have zero attributes, though such a Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26362	26474	
==>d for a Relation to have zero tuples.  It is also valid
for a Relation to have zero attributes, though such a Rel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7409	7517	
==>_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'MET <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7409	7517	
==>_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'MET <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21003	21095	
==>API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MyS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21003	21095	
==>API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MyS <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	516	613	
==>if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_USE_DE <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23721	23804	
==>_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- !.
replace_at_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9373	9463	
==>sulates HTTP-style message headers.
The headers consist of attribute-value pairs also calle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9373	9463	
==>sulates HTTP-style message headers.
The headers consist of attribute-value pairs also calle <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	615	717	
==>ridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	615	717	
==>ridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if t <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2663	2795	
==>lds/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1910	2021	
==>ons, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19859	19963	
==>fun => $app_to_str,
	param => $id,
);

# we can't get app_to_str to apply something of a bad type to a st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4970	5076	
==>" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4970	5076	
==>" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	623	730	
==>ocal $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::g <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	623	730	
==>ocal $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::g <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1064	1198	
==>$.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capt <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1064	1198	
==>$.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3335	3431	
==>eter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3335	3431	
==>eter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4758	4884	
==>length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4758	4884	
==>length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	66	176	
==>Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	66	176	
==>Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6421	6525	
==>'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6421	6525	
==>'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6974	7072	
==>ed once the '=head(n)' directive is reached. This does not include 
the text of the header, that wi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6974	7072	
==>ed once the '=head(n)' directive is reached. This does not include 
the text of the header, that wi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4537	4679	
==>multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]+ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4537	4679	
==>multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]+ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	966	1071	
==>) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	966	1071	
==>) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') } <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1055	1157	
==>s Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1055	1157	
==>s Bool
 {
  my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_d <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4214	4330	
==>octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4214	4330	
==>octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8477	8626	
==>, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8477	8626	
==>, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cm <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	714	819	
==>p::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	714	819	
==>p::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1470	1610	
==>elf->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3729	3868	
==>t' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  package Regexp::Parser::anyof;
  push @ISA, qw( Regex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5951	6078	
==>ype eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5951	6078	
==>ype eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP <==
2	/Users/nnunley/pugs/util/package-osx.pl	1603	1736	
==>sr/local/lib/perl5/site_perl/PIL.pm /Library/Perl/5.8.6/PIL.pm
        /usr/local/lib/perl5/site_perl/pil2js.pl /Library/Perl/5.8.6/pi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	377	493	
==>==»($self, Perl::Param $other) {
    ...
}

method &infix:«<»($self, Perl::Param $other) {
    ...
}

# maybe som <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	907	1009	
==>name\'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();\n";
    print $source;
    print "RULE\n";
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3774	3892	
==>>{preamble} = $text . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $tex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5134	5252	
==>>{preamble} = $text . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $tex <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	888	985	
==>( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	888	985	
==>( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
}

sub p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1293	1415	
==>--help          Show this help

  Perl6 Documentation:
    You will need the Synopses checked out; try

    cd ..
    svn c <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1147	1244	
==>'(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# temporarily for the use of <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7929	8022	
==>lved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('rBar'), '.. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2968	3081	
==>$*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2968	3081	
==>$*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22264	22367	
==>es not declare any subroutines or export such.

The usual way that Rosetta indicates a failure is to thr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22264	22367	
==>es not declare any subroutines or export such.

The usual way that Rosetta indicates a failure is to thr <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14647	14765	
==>s} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2128	2246	
==>s} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1236	1334	
==>nalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
contr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1236	1334	
==>nalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
contr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4541	4656	
==>same.
        # (all string operators have alphabetic names, so tr/a-z// is true)
        # This will also show numb <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1482	1714	
==>t_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        % <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1482	1714	
==>t_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        % <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14787	14929	
==>iles = @new_dir_files;
            }
        }
    } # foreach test
    $tot{bench} = timediff(new Benchmark, $t_start);

    $Strap->_restore_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6556	6657	
==>name,...):\n$@\n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1615	1715	
==>de operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1615	1715	
==>de operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
mul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7927	8034	
==>h object that has the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7659	7763	
==>h object that has the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Mat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	29	139	
==>die::ADTs;

use strict;
use warnings;

{
	package Blondie::Unit;

	sub new {
		my $class = shift;
		my $value = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16588	16703	
==>ning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13009	13124	
==>ning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8126	8261	
==>=> chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8126	8261	
==>=> chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	242	345	
==>rsion.

- It currently passes all it's tests.

- The algorithm is a bit simpler than the previous ve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18955	19056	
==>ts a Relation data type that corresponds to the
"relation" of logic and mathematics and philosophy ("a <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	744	847	
==>rent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fi <==
2	/Users/nnunley/pugs/util/claim_drift.pl	854	954	
==>eal;
    my $clean = sub { $_[0] = File::Spec->canonpath(File::Spec->rel2abs($_[0])) };

    $clean-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9674	9786	
==>$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10510	10622	
==>$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6829	6939	
==>to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6829	6939	
==>to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	516	605	
==>nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\$\$", "term:", "nows", "PGE::Exp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22141	22241	
==>uage
or permissions issue; simply order the files appropriately in the search
list.  The analogy is s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22141	22241	
==>uage
or permissions issue; simply order the files appropriately in the search
list.  The analogy is s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14705	14819	
==>);

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8906	9020	
==>);

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	205	328	
==>.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    m <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	205	328	
==>.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4069	4215	
==>> '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4069	4215	
==>> '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30668	30770	
==>eans it is
pre-consumptive, which is why it must match the right parenthesis
itself.  The handler throw <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25723	25825	
==>lf:) returns list {
    @:subclasses;
}

(method subclasses ((opaque $self:)) returns list 
    ($self: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7833	7942	
==>Output;
  use Test::Builder::TestPlan;
  
  my  Test::Builder           $:singleton;
  has Test::Builder::Outp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12515	12635	
==>$max eq '') { 'plus' }
    else { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21099	21287	
==>->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44023	44194	
==>->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5016	5133	
==>>add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1599	1716	
==>>add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6797	6898	
==>urn "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6797	6898	
==>urn "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2666	2797	
==>low 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not sure... I think Pugs::Compiler could work as the

basic interf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2568	2694	
==>low 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not sure... I think Pugs::Compiler could work as the
basic interf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12076	12239	
==>ords(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12076	12239	
==>ords(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23224	23325	
==>biguous results or associations.  Or alternately, the other
packages require your text data to be stor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23224	23325	
==>biguous results or associations.  Or alternately, the other
packages require your text data to be stor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16972	17132	
==>ecl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17251	17411	
==>ecl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2073	2225	
==>say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2073	2225	
==>say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13708	13814	
==>IX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7915	8021	
==>IX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4155	4263	
==>ems);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_in <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4155	4263	
==>ems);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_in <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19036	19131	
==>XXX - obsolete?


package Control::Basic {}

 multi Control::Basic::eval ( Str $code = CALLER::< <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2764	2891	
==>-------------------
## inserting children

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2764	2891	
==>-------------------
## inserting children

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6248	6373	
==>ode;
		} else {
			warn "casting";
			return $self->runtime->cast_node_type($node, $de_facto_type, $expected_type);
		}
	}

	s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28518	28628	
==>is object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define any "Template" mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28518	28628	
==>is object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define any "Template" mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	525	626	
==>:KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	525	626	
==>:KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # package <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	464	632	
==>Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	464	632	
==>Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2702	2813	
==>"") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2702	2813	
==>"") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $fie <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3217	3358	
==>rt;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3217	3358	
==>rt;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38108	38204	
==><interpolate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but pos <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38108	38204	
==><interpolate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but pos <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	55	157	
==>thm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenB <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	55	157	
==>thm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenB <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13621	13730	
==>t2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13621	13730	
==>t2>

Returns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	25	141	
==>rammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the meta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	25	141	
==>rammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the meta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3103	3222	
==>) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3296	3415	
==>) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2064	2264	
==>} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dirs
$config{'jib_dir'}          = [ Path::Class <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21108	21212	
==>use_,$module) is builtin is unsafe {
  my sub opRequire() { 
    $use_
      ?? Pugs::Internals::use($mod <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9436	9549	
==>string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $resu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9436	9549	
==>string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $resu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8852	8961	
==>n/chain/list
 # rule=>$rule 
 #  (is parsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.or <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	531	626	
==>Copyright (c) 2005. Brian Ingerson. All rights reserved.

This program is free software; you can <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2514	2615	
==>odule_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2514	2615	
==>odule_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	694	789	
==>l Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.htm <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	694	789	
==>l Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.htm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	412	512	
==>_

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	412	512	
==>_

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	480	606	
==>f ( $_[0]{pair} ) {
        my $category = $_[0]{pair}{key}{single_quoted};
        my $name     = $_[0]{pair}{value}{single_qu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19060	19227	
==>ect;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call -> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1825	1959	
==>->to_native . ") does not exist";
    return $self->[2]->fetch($name);
}

sub set_attr {
    my ($self, $name, $value) = @_;
    (bless <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7014	7112	
==>0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7014	7112	
==>0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_e <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3992	4098	
==>\.\.$/$1cd $canonical_base/mg;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAK <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	379	477	
==>t add much clarity, given the cruft
of wrapping a map and join around the macro string.  But perhap <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	121	215	
==>all::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.02';

u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14258	14355	
==>,C), !.
uncode_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  concat_atom(['use charnames <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1748	1841	
==>his package

=head2 $alt = $pkg->alternative

Returns the JIB::Alternative object, if this pac <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6929	7128	
==>$newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6929	7128	
==>$newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1096	1213	
==>";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1096	1213	
==>";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24539	24660	
==>xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation bra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20960	21081	
==>xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation bra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1615	1730	
==>';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1615	1730	
==>';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1071	1166	
==>_code);
	my $sha1 = $digest->digest;

	$cache{$sha1} ||= $self->generate_inline_c($c_code);
}

m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7913	8050	
==>tent Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "Th <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7913	8050	
==>tent Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "Th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50924	51090	
==>get('$self:')
                  ->get_attr(symbol->new('$:version'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3851	3965	
==>xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3851	3965	
==>xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/util/combine_tests.pl	196	303	
==>nt YAML::Dump($combined);
print Dump(combine_tests(map { LoadFile($_) } @ARGV));
#
# Annotates the last test <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8430	8551	
==>n $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for ins <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8430	8551	
==>n $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for ins <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	337	484	
==>urns 9
sub evaluate (Str $expr) returns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20208	20303	
==>akes one hash argument which is modified
# try to 'collapse' useless directory entries
sub colla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2023	2128	
==>_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2023	2128	
==>_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9276	9392	
==>^

### because it was specialized for subrules

### - needs to be generalized, and the anchor should only

###   work <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8972	9085	
==>^
### because it was specialized for subrules
### - needs to be generalized, and the anchor should only
###   work <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2387	2501	
==>us ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clon <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2387	2501	
==>us ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clon <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5553	5661	
==>rent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Ite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5553	5661	
==>rent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15193	15299	
==>always returned.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15193	15299	
==>always returned.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6512	6644	
==>0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6512	6644	
==>0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	850	944	
==>mp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	850	944	
==>mp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1793	1954	
==>ts, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, etc.)
    Str         Perl string (Unicode semantics)
    Num         Perl number
    C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3827	3924	
==>is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to its <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5729	5826	
==>is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to its <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	189	298	
==>',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	189	298	
==>',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub x <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7692	7829	
==>> chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7692	7829	
==>> chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2218	2321	
==>l $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3222	3332	
==>=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = spl <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3222	3332	
==>=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = spl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1831	1961	
==>() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1831	1961	
==>() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8365	8470	
==>1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8365	8470	
==>1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8846	8969	
==>alues,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8846	8969	
==>alues,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9298	9407	
==>');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9298	9407	
==>');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29736	29832	
==>such,
it would be pre-consumptive.

There is an interesting case of the right parenthesis ')'.  T <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	731	828	
==>turns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negat <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	731	828	
==>turns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40150	40258	
==>Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40150	40258	
==>Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1653	1774	
==>};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1653	1774	
==>};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	387	507	
==>string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $patt <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	387	507	
==>string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $patt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9209	9328	
==>ule_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9209	9328	
==>ule_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16516	16633	
==>q 'VMS') {
        # some tests will trigger VMS messages that won't be expected
        $results =~ s/\n?%[A-Z]+-[SIW <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	138	245	
==>ata::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	138	245	
==>ata::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32421	32539	
==>de:

  # the 'open' node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

That means t <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1936	2028	
==>macif(%?CONFIG{'num_width'} == 64, 'subset num of num64  where { true }');
Helpers::macif(%?C <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10147	10242	
==>he FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns V <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10205	10300	
==>he FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns V <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10105	10239	
==>n { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10384	10518	
==>n { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6840	6949	
==>y::perl (@array:) returns Str {
    "["~ join(", ", @array.values.map:{$_.perl} ) ~"]";
}

# tweaked from PIL2 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3280	3383	
==>AILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3716	3827	
==>::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3774	3885	
==>::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1783	1889	
==>ternative

Returns the JIB::Alternative object, if this package is a registered alternative

=cut
    
=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	435	530	
==>> sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filter::Simple;
sub import { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	768	863	
==>osure_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	768	863	
==>osure_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1818	1947	
==>d = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            g <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2355	2484	
==>d = sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24259	24436	
==>m1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24538	24715	
==>m1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27989	28087	
==>rog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	288	420	
==>, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DB <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	288	420	
==>, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DB <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	857	982	
==>hing;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harness::It <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2885	3036	
==>ntent($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2885	3036	
==>ntent($content, $keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep? <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	807	918	
==>is stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	807	918	
==>is stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4241	4388	
==>lines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no emp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4241	4388	
==>lines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no emp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8642	8743	
==>escribes the same-number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node (" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8642	8743	
==>escribes the same-number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node (" <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	595	698	
==>ou need to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB- <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	595	698	
==>ou need to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25983	26083	
==>e message, and can be interpolated into the
human-readable version.  Each variable name is a machine- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25983	26083	
==>e message, and can be interpolated into the
human-readable version.  Each variable name is a machine- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2175	2336	
==>ptures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2175	2336	
==>ptures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	610	737	
==>) != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	610	737	
==>) != 80) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	618	736	
==>) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless define <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	618	736	
==>) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6432	6567	
==>::Grammar::Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	620	755	
==>V<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	620	755	
==>V<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	978	1101	
==>tch;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	978	1101	
==>tch;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5797	5897	
==>ean Context

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5797	5897	
==>ean Context

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP stat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7707	7810	
==>ullLiteral>
    | <BooleanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpression <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6746	6875	
==>ar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6746	6875	
==>ar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1160	1282	
==>e',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Sati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1160	1282	
==>e',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Sati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	614	727	
==>pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	614	727	
==>pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14837	14949	
==>KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14837	14949	
==>KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	680	777	
==>ltered:$sub';\nuse Smart::Comments;\n" . $orginal
		} else {
			"no Smart::Comments;\n" . $orginal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5882	5985	
==>tr $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5940	6043	
==>tr $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tes <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	364	480	
==>ort {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	364	480	
==>ort {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5445	5557	
==>by
    # the current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5445	5557	
==>by
    # the current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9544	9634	
==>_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subs <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9544	9634	
==>_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subs <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16706	16821	
==>,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1);
      TAILCALL(&$c <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	314	409	
==>id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variab <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	314	409	
==>id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	119	239	
==>r2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	119	239	
==>r2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	127	240	
==>ss Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * L <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	127	240	
==>ss Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * L <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29308	29406	
==>form of a version
of runtests() which rather than printing its output returns raw data
on the state <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3376	3475	
==>! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3434	3533	
==>! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($ <==
2	/Users/nnunley/pugs/util/config_h.pl	1119	1213	
==>ry_compile(<< '.');
import System.Console.Readline
main :: IO ()
main = readline "" >> return ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5553	5669	
==>e $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<obj <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5553	5669	
==>e $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	255	412	
==>TE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-He <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	255	412	
==>TE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-He <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2640	2751	
==>_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  # cany (any byte)
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8887	8995	
==>=> $neg, $how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $h <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2946	3055	
==>_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = P <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	760	872	
==>k
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	760	872	
==>k
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (define <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1285	1409	
==>out is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1285	1409	
==>out is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Qu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2705	2802	
==>"close:>", "<prefix::", "nows");
    $optable->addToken("close:}", "<prefix::", "nows");

    my % <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4475	4595	
==>);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4475	4595	
==>);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7516	7613	
==>tail> 
indicates that there is no more incoming data, and the remaining data should be 
padded and <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7516	7613	
==>tail> 
indicates that there is no more incoming data, and the remaining data should be 
padded and <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4963	5078	
==>NOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4963	5078	
==>NOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12881	12992	
==>delete ( *@keys --> List )
 multi method Hash::delete (   $key --> Scalar ) is default

Deletes the elements spe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2230	2325	
==>These variables can be used to configure the behavior of
Test::Harness.  They are exported on re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5209	5311	
==>ailure

=item data

The C<data> method returns a hash reference representing the configuration data

=i <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5209	5311	
==>ailure

=item data

The C<data> method returns a hash reference representing the configuration data

=i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1987	2093	
==>ment_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1987	2093	
==>ment_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	596	769	
==>s bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	596	769	
==>s bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	279	386	
==>ERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pu <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	279	386	
==>ERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8883	9003	
==>MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPathName($^X) if $self->{_is_win32};
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10353	10456	
==>, hash vs array).  The deferred validations are performed
on demand at some time after the input has bee <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10353	10456	
==>, hash vs array).  The deferred validations are performed
on demand at some time after the input has bee <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1312	1480	
==>tion",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7991	8131	
==>=> 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my $sel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2731	2860	
==>{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ 'P <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	844	980	
==>);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	844	980	
==>);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $u <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	420	523	
==>$matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10724	10818	
==>`new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a " <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10724	10818	
==>`new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a " <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1567	1704	
==>orm\n";
        $Config{"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hits = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5018	5129	
==>(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_open'} = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9673	9835	
==>ain) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2995	3107	
==>}
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  els <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	346	481	
==>ddr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	346	481	
==>ddr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31180	31273	
==>ule names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31180	31273	
==>ule names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1503	1609	
==>------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1503	1609	
==>------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warni <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8180	8364	
==>rap ( Set of Str $attrs! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12824	12925	
==>finite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12824	12925	
==>finite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5754	5869	
==>gine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Rule objects, which are "matcher" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5555	5666	
==>gine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Rule objects, which are "matcher" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5668	5816	
==>>() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5668	5816	
==>>() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[ <==
2	/Users/nnunley/pugs/util/config_h.pl	1622	1751	
==>ry_compile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        print TMP $co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9558	9654	
==>s. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_pa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9558	9654	
==>s. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27113	27230	
==>::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIV <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27113	27230	
==>::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIV <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1754	1901	
==>ktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1754	1901	
==>ktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4563	4677	
==>_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4563	4677	
==>_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	741	836	
==>nopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	741	836	
==>nopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6154	6268	
==>le::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z! <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3831	3944	
==>le::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z! <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8971	9088	
==>e available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These method <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8971	9088	
==>e available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These method <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1384	1478	
==>lf: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1384	1478	
==>lf: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() retu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2689	2793	
==>y @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2689	2793	
==>y @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $u <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1978	2109	
==>eSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSplit, " ", $#nameSplit, "\n";
  my @spacePresent = split / /, $nameS <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	2051	2155	
==>->new(exists $self->{$key->to_str->to_native} ? 1 : 0);    
}

1;

__END__

=pod

=head1 NAME

hash - the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4868	4981	
==>method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4868	4981	
==>method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3446	3587	
==>rror($?), return;
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) and error($?), return;
    }        

    ### XXX make me more robus <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2506	2640	
==>::Accessor::new;
    
        return unless $obj;

        ### create accessors
        my %acc = map { $_ => $acc->{$_}->{allow} } key <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1416	1510	
==>return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1416	1510	
==>return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9245	9373	
==>ly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10722	10850	
==>ly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satis <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1036	1141	
==>ession
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1036	1141	
==>ession
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15637	15756	
==>,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10493	10612	
==>,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17780	17893	
==>$X::pos);
      return $m;
    }
  }
  return MatchX->new()->set_as_failed;
}
sub match_re {
  my($re,$s)=@_;
  my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3387	3487	
==>q 0);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2151	2274	
==>( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2151	2274	
==>( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20300	20401	
==>a result, while it performs correctly
and reliably, it also performs quite slowly; you should only use <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20300	20401	
==>a result, while it performs correctly
and reliably, it also performs quite slowly; you should only use <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2222	2348	
==>tring () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2222	2348	
==>tring () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2363	2501	
==>m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2351	2489	
==>m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14400	14503	
==>y with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node class is pure a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14400	14503	
==>y with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node class is pure a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3552	3655	
==>is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# un <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3552	3655	
==>is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18421	18516	
==>anyof> object's C<strict> attribute to 1; the character
class would render as C<[\w\d:]>.  If yo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2455	2548	
==>μνξοπρστυφχψω"; # some identifiers for types. Let'shope we never need to print m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2618	2752	
==>@b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method interse <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2618	2752	
==>@b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method interse <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	749	947	
==>->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = grey60, " . <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3435	3547	
==>s Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3435	3547	
==>s Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Pe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	784	890	
==>em.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	784	890	
==>em.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13333	13471	
==>hex $num, $rep);
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1799	1927	
==>e?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = 'Perl6')
            is primitive is safe is builtin {
        given <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3431	3556	
==>) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3431	3556	
==>) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1	116	
==>ackage Pugs::Runtime::Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1	116	
==>ackage Pugs::Runtime::Match::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
us <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	922	1026	
==>et, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchOb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2003	2201	
==>ge.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2003	2201	
==>ge.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2868	2992	
==>use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2868	2992	
==>use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4536	4643	
==>{
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.compl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4536	4643	
==>{
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.compl <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	309	431	
==>@values) returns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14534	14633	
==>ill it's
testing needs. This module will be the code support for those needs. The
following is a lis <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14592	14691	
==>ill it's
testing needs. This module will be the code support for those needs. The
following is a lis <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25548	25663	
==>::Example is not a table.

The Relation::Example class is pure and deterministic, such that all of its class
and obj <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	34	130	
==>for us
BEGIN { require 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::Reposito <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5272	5440	
==>$.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5272	5440	
==>$.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	687	979	
==>);
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	687	979	
==>);
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4333	4449	
==>kslash:<w> { ... }    # define your own \w and \W
         rule rxassertion:<*> { ... }    # define your own <*stuff> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	134	235	
==>ndle', '$format', '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&print' => Thunk(
		Seq(
			Param('$ha <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	881	1011	
==>r) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TOD <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	881	1011	
==>r) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TOD <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1040	1143	
==>ub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming fo <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1040	1143	
==>ub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming fo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7247	7390	
==>e kind params body lvalue class)};
    # XXX - lvalue is ignored - use proxy?

    my $hybrid_kludge;
    if(!ref($params)) { # a string
	$param <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19669	19770	
==>are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is im <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24221	24322	
==>are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is im <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16262	16389	
==>looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_subs <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20688	20815	
==>looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_subs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8158	8267	
==>) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2972	3105	
==>UG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3112	3245	
==>UG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1938	2060	
==>eExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1938	2060	
==>eExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9589	9690	
==>methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurrence obj <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9589	9690	
==>methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurrence obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	522	621	
==>ects;
use Regexp::Parser::Handlers;


# this handles 'use base "Regexp::Parser"'
# which wouldn't ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30328	30424	
==>ct.  It includes the visual
representation of any children of the object.

=item $obj->walk()

"W <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1915	2060	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2108	2253	
==>{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23114	23235	
==>, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19535	19656	
==>, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3345	3480	
==>n_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3345	3480	
==>n_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4387	4495	
==>span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method differenc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4387	4495	
==>span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method differenc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3801	3906	
==>=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4018	4123	
==>=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2377	2801	
==>ommand object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # Ext <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2377	2801	
==>ommand object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # Ext <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2142	2239	
==>lf->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($args <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1252	1345	
==>lf->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($args <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24387	24500	
==>ith
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not mo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24387	24500	
==>ith
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not mo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3511	3612	
==>Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.dif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3511	3612	
==>Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.dif <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1625	1732	
==>l($$) }

ROOT: level($$) = { 0 }
type::operator::binary: level($.left) = { level($$) + 1 }
type::operator::b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11028	11123	
==>de ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11028	11123	
==>de ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2821	2917	
==>UPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currentl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2821	2917	
==>UPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currentl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16673	16794	
==>wing:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16673	16794	
==>wing:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be ' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7754	7886	
==>r(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7754	7886	
==>r(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7092	7361	
==>$.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7092	7361	
==>$.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8085	8190	
==>mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.mark <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8085	8190	
==>mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.mark <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5875	5986	
==>dd_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5875	5986	
==>dd_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1570	1722	
==>=> $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^ <==
2	/Users/nnunley/pugs/util/grokprims.pl	218	327	
==>t => 'right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list infix',
    chain = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6142	6272	
==>elf:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6142	6272	
==>elf:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18833	18952	
==>slt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed ref <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4956	5070	
==>->has_method($method_name);
            # otherwise ... add the method in 
            $self->add_method($method_na <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1799	1902	
==>nonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9004	9114	
==>shift;
    join $self->raw, map join("", map $_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2049	2154	
==>t ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2107	2212	
==>t ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10866	11012	
==>1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10860	11006	
==>1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4655	4762	
==>set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4905	5012	
==>set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-comp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	805	898	
==>tta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	805	898	
==>tta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=hea <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1666	1764	
==>join $Config{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8474	8593	
==>tf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(stderr,"api 14 violation\n"); exit(0);
      }
      handl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4832	4937	
==>@intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4832	4937	
==>@intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6195	6287	
==>d::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6195	6287	
==>d::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3010	3250	
==>ment>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3010	3250	
==>ment>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5428	5531	
==>d_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5428	5531	
==>d_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $! <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2669	2855	
==>perclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaqu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2874	3060	
==>perclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaqu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2358	2486	
==>rn 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3139	3267	
==>rn 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	607	752	
==>ich wouldn't call 'import'
{
  my ($level, $prev, $pkg);
  while (my ($curr) = caller $level++) {
    $pkg = $curr, last if $prev and $prev eq "ba <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8711	8833	
==>len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8711	8833	
==>len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9370	9737	
==>push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9370	9737	
==>push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        ) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8583	8945	
==>('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	239	344	
==>ignoring deeper context, needs lots of
# improvement. Due to regexp's limits, it is only
# expected to ser <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6514	6642	
==>1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error messa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6514	6642	
==>1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error messa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	411	579	
==>= $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	411	579	
==>= $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $reques <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1005	1109	
==>> "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5235	5338	
==>f $user_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_base;
  }

  return $class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3156	3330	
==>:constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match function <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3167	3341	
==>:constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match function <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1621	1756	
==>:Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as p <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1621	1756	
==>:Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstruction to source.
 # represented as p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	668	802	
==>, 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	668	802	
==>, 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_in <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5597	5722	
==>ip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5597	5722	
==>ip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7955	8106	
==>tisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ve <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8419	8570	
==>tisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ve <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5304	5443	
==>24),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(9 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5304	5443	
==>24),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(9 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4954	5102	
==>sure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4954	5102	
==>sure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4086	4199	
==>of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were ex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4086	4199	
==>of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	510	649	
==>r = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { nul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	510	649	
==>r = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { nul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1296	1457	
==>=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1243	1397	
==>=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1899	2014	
==>t::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1899	2014	
==>t::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8458	8555	
==>not in S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = &infix:«<=>» --> Scal <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19534	19631	
==>inferrence of higher order functions is correct
my $app_to_str = fun(
	param => "x",
	body => comb <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16262	16367	
==>Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16262	16367	
==>Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1488	1590	
==>giving 
them to the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1488	1590	
==>giving 
them to the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11689	11779	
==>tle, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curti <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11689	11779	
==>tle, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curti <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	772	886	
==>h.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	772	886	
==>h.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	334	439	
==>YE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	334	439	
==>YE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	378	672	
==>y
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment until end-of-line
                \# (?-s:.)*   
            ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	560	713	
==>ofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	560	713	
==>ofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36016	36124	
==>on)

=head2 ifmatch

Family: assertion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1112	1206	
==><Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1112	1206	
==><Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Va <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1630	1796	
==>ry      => { allow => ISA_JIB_REPOSITORY },
    };

    sub new {
        my $class = shift;
        my %hash  = @_;
        
        ### might get params for underlyi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11555	11669	
==>64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop (not a u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4432	4546	
==>Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4279	4391	
==>Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	690	791	
==>at perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understan <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	690	791	
==>at perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understan <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9518	9641	
==>--> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5653	5770	
==>META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6497	6609	
==>::Check->last_error), return;

    return
        map { $self->index->file($_) }
        $self->_index_files($pkg <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3706	3805	
==>ieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3706	3805	
==>ieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1305	1450	
==>_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1305	1450	
==>_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_va <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1337	1444	
==>right (c) 2005. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1337	1444	
==>right (c) 2005. Chia-liang Kao. All rights reserved.

This program is free software; you can redistribute it <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6804	6930	
==>= url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6804	6930	
==>= url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9215	9391	
==>my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagai <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10206	10382	
==>my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1271	1405	
==>essage($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1271	1405	
==>essage($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # use <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2240	2350	
==>);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1346	1451	
==>);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args->{NAME} =~ s/-/::/g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15847	15957	
==>ce has (or has not) been modified since the time specified in this field,
then the server will return a C<304 N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15847	15957	
==>ce has (or has not) been modified since the time specified in this field,
then the server will return a C<304 N <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1204	1309	
==>r `require` statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATI <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1204	1309	
==>r `require` statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1096	1250	
==>rn if $self->omit;
    push @$tree, $self;
    $self->merge;
  }

  sub merge {
    my ($self) = @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  pack <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9974	10070	
==>rns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 N <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9974	10070	
==>rns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3921	4017	
==>ding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3921	4017	
==>ding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8909	9011	
==>ush @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2734	2836	
==>ush @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8679	8775	
==>sing existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8679	8775	
==>sing existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object u <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	103	201	
==>sor - all it's doing is making the
# "source" property of the object fallback to "content"
method s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	103	201	
==>sor - all it's doing is making the
# "source" property of the object fallback to "content"
method s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22589	22708	
==>self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19010	19129	
==>self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11272	11393	
==>om,$to-$from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3051	3157	
==>mper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2272	2424	
==>ess $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2272	2424	
==>ess $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific path <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5265	5451	
==>w( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_i <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5265	5451	
==>w( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14710	14809	
==>ional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14710	14809	
==>ional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	867	1034	
==>$ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	867	1034	
==>$ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5810	6058	
==>l, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6274	6522	
==>l, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @fo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5682	5804	
==>n $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5682	5804	
==>n $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6208	6327	
==>c($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6196	6315	
==>c($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2812	2916	
==>ield = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2812	2916	
==>ield = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5770	5872	
==>alues:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5770	5872	
==>alues:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	301	435	
==>less $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	301	435	
==>less $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$ta <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3352	3476	
==>@.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3352	3476	
==>@.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $l <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3246	3358	
==>tp://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File:: <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3246	3358	
==>tp://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37143	37246	
==>f its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37143	37246	
==>f its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9000	9103	
==>pen(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2825	2928	
==>pen(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_prin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32182	32280	
==>n and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36732	36830	
==>n and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, the r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2100	2194	
==>ation::AttrName $attr_name) {...}

proto method attr_name_exists of Bool (Relation::AttrName $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	681	802	
==>$arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	681	802	
==>$arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18602	18723	
==>on) to
parasitize the regexp struct - attempting to make it look sufficiently
like what the core expects to avoid problems <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2892	3013	
==>on) to
parasitize the regexp struct - attempting to make it look sufficiently
like what the core expects to avoid problems <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2250	2370	
==>ty => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2250	2370	
==>ty => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = P <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8541	8639	
==>s event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8541	8639	
==>s event is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4314	4498	
==>making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time aro <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4314	4498	
==>making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time aro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	73	170	
==>e base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overloa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	73	170	
==>e base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overloa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10403	10507	
==>!.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1538	1643	
==>rance (how accurate the answer must be)
    fprime  - an exact first derivative of f (which Newton's metho <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	164	294	
==>getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first pl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	164	294	
==>getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first pl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11774	11877	
==>its> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDigits> <Dec <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	229	320	
==>!WARNING!!
# -----------------------------------------------

sub IDGenerate {
    my($id)=' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	464	587	
==>, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	464	587	
==>, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9661	9763	
==>diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the P <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9719	9821	
==>diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the P <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2545	2679	
==>diagnostic'  => sub { _('$.diagnostic') },        
        'description' => sub { _('$.description') },        
        'status' => sub <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	323	444	
==>tr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	323	444	
==>tr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6279	6453	
==>ere ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9756	9930	
==>ere ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation { <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5488	5765	
==>d end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modif <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5488	5765	
==>d end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11199	11305	
==>he regex is formed by calling the qr() method of each node in the tree,
which may be different from the vis <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15148	15249	
==>thod notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $comman <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15148	15249	
==>thod notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $comman <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11305	11441	
==>t if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11305	11441	
==>t if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2637	2795	
==>$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2637	2795	
==>$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3337	3449	
==>SCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<H <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3337	3449	
==>SCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<H <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2220	2331	
==>{
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the $vo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2220	2331	
==>{
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the $vo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40041	40308	
==>ew('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19590	19848	
==>ew('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	636	751	
==>= $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have othe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1120	1235	
==>= $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have othe <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	245	383	
==>) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$! <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	245	383	
==>) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36412	36512	
==>: suspend (C<< (?> >>)

Data: array reference of any number of objects

Ender: tail

=head2 ifthen

F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8668	8804	
==>" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dumper $n;

        my $name = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	690	791	
==>10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently define <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	690	791	
==>10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently define <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31044	31139	
==>he invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35594	35689	
==>he invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20770	20872	
==>ned with the ':' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not sho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20770	20872	
==>ned with the ':' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not sho <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26858	26965	
==>=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31410	31517	
==>=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2276	2376	
==>> %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_di <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2276	2376	
==>> %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12213	12332	
==>{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4856	4975	
==>{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14138	14242	
==>)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows no <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11938	12038	
==>e HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11938	12038	
==>e HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	183	311	
==>fer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	183	311	
==>fer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2126	2451	
==>,
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2126	2451	
==>,
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9102	9235	
==>alues,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9102	9235	
==>alues,
    # but I was unable to work out a test case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %u <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3414	3554	
==>e WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2098	2201	
==>$dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2098	2201	
==>$dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1416	1537	
==>r::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1416	1537	
==>r::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11347	11500	
==>gate { 
    my $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3141	3242	
==>Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	984	1078	
==>($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	984	1078	
==>($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) retu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4623	4752	
==>x = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multide <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4623	4752	
==>x = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multide <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2852	2956	
==>ng properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $d <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2852	2956	
==>ng properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14039	14178	
==>rn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14033	14172	
==>rn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6184	6289	
==>l, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on und <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6184	6289	
==>l, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on und <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1425	1520	
==>elf->{param_count_stack} };
}

sub count_param {
	my $self = shift;
	$self->{param_count_stack}[ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23435	23526	
==>ementing classes can
optionally override these operators with versions that are more specifi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	35	153	
==>ad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if g <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	35	153	
==>ad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if g <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20088	20179	
==>eys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20088	20179	
==>eys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11898	11996	
==>defined $handler;
    $handler->($x);
}

my $nan = 100**100**100 / 100**100**100;
my %as_num_handle <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9089	9182	
==>ath_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $file = basename($rela <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6441	6554	
==>se_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6441	6554	
==>se_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3926	4078	
==>ersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3926	4078	
==>ersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2400	2510	
==>RI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2400	2510	
==>RI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2300	2446	
==>.
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2288	2434	
==>.
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18649	18751	
==>s the link that the user followed to the current
     page.  Most browsers pass this information as par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18649	18751	
==>s the link that the user followed to the current
     page.  Most browsers pass this information as par <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1337	1492	
==>array_storeElem' => sub { # $idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                my $container = shif <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	447	566	
==>ect_arguments( self.create_arguments( @args ) );
        }

        my multi sub collect_arguments ([]) {}
        my mu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10613	10726	
==>at will select a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10613	10726	
==>at will select a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # ar <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8139	8237	
==>operators much have the same name (e.g. int == int, str == str, int != str)
multi unify => ('type:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12542	12643	
==>ed.  The tests that are passing represent the
current working features.

This module deals with encodi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12542	12643	
==>ed.  The tests that are passing represent the
current working features.

This module deals with encodi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1160	1257	
==>$.DontEnum;
    has $.DontDelete;
}

class JSX::Value;
has $.property_value;
has $.property_attrib <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	249	367	
==>1

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\::$method"} = s <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	245	361	
==>1

sub new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$method"} = s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18487	18581	
==>cal Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18487	18581	
==>cal Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, ex <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1455	1574	
==>s->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1455	1574	
==>s->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4750	4953	
==>t/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4750	4953	
==>t/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17352	17457	
==>mp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18747	18843	
==>the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18747	18843	
==>the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5397	5502	
==>n split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5397	5502	
==>n split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7546	7682	
==>get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We suc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7546	7682	
==>get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We suc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4976	5127	
==>exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4976	5127	
==>exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3240	3345	
==>".
        "8th line\n9th line\n10th line\n11th line\n12th line\n" ],
      [ 'file21', $file21, "12th lin <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	557	666	
==>nt ($self:) returns Tree { 
    return $!parent;
}

## ------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	557	666	
==>nt ($self:) returns Tree { 
    return $!parent;
}

## ------------------------------------------------------- <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3669	3786	
==>, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15359	15443	
==>0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2845	2985	
==>an.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2845	2985	
==>an.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46771	46981	
==>rns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e->get('$label')
                  ->to_str
                  -> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14814	14906	
==>t/splashscreen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cd <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8073	8177	
==>= shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_[0]) });
		
		return Blondie::TypeSafe::Annotat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6358	6465	
==>"";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6358	6465	
==>"";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20519	20620	
==>be a wide variety of third party Engine
modules that become available over time.  One plan which I fav <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20519	20620	
==>be a wide variety of third party Engine
modules that become available over time.  One plan which I fav <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4444	4587	
==>se
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set" <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4444	4587	
==>se
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set" <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	812	915	
==>path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	812	915	
==>path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	804	920	
==>al A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedil <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	804	920	
==>al A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	216	315	
==>reyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	207	305	
==>reyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17644	17770	
==>*

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17644	17770	
==>*

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	847	961	
==>anchored
        or die "can't match '$iso8601' to available ISO-8601 formats";

    my $year = $0;
    if ( $year. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12535	12668	
==>any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition of <==
2	/Users/nnunley/pugs/util/package-osx.pl	3537	3636	
==>/usr/local/man/man3/Inline::Pugs.3pm
        /usr/local/man/man3/v6.3pm
        /usr/local/man/man3/ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7780	7890	
==>ray1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7780	7890	
==>ray1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6612	6718	
==>by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6612	6718	
==>by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to ` <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13635	13731	
==>e returned in the recommended "Good Practice" order.

In scalar context return the number of dist <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13635	13731	
==>e returned in the recommended "Good Practice" order.

In scalar context return the number of dist <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	532	723	
==>file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Sk <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	532	723	
==>file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Sk <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3785	3888	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 1 <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	277	381	
==>ENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	277	381	
==>ENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22221	22322	
==>of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26773	26874	
==>of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relation c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26740	26841	
==>ject is set from the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26740	26841	
==>ject is set from the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a ha <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	430	530	
==>open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	430	530	
==>open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	32	135	
==>nfinite::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	32	135	
==>nfinite::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) ret <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	66	165	
==>llig!):
my $option = $para{'x'} || "wert";

#!\pause
# Etwas besser, aber jedoch unübersichtlich:
m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15742	15842	
==>Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15742	15842	
==>Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	589	686	
==>$pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	589	686	
==>$pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1630	1731	
==>ot allocate containers.



the Body is just a structure with three node forms: Var

(variable lookup), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1564	1662	
==>ot allocate containers.

the Body is just a structure with three node forms: Var
(variable lookup), <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5364	5460	
==>The closure here will be passed the current value itself, which means 
you it is essentially read <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2421	2553	
==>mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4009	4141	
==>mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1220	1324	
==>lf->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bles <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	325	426	
==>ms returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	325	426	
==>ms returns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5859	5964	
==>ng.o );
    #push @o, 'src/UnicodeC.o' if grep /WITH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @o, '- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2893	2993	
==>check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir,' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1584	1737	
==>tch->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1584	1737	
==>tch->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dum <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26594	26687	
==>inferrencer
is(t($id), "∀α. α → α", ":t id");
is(t($app_id), "int", ":t id(3)");
is(t($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1528	1619	
==>ar *)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16604	16703	
==>`difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argumen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16604	16703	
==>`difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argumen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1173	1280	
==>ent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method pars <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1173	1280	
==>ent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method pars <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6327	6442	
==>h) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$self->{name}::$subpat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18081	18181	
==>ession>
    | <LogicalORExpression> <'||'> <LogicalANDExpression>
}
rule LogicalORExpressionNoIn :wor <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1476	1585	
==>:Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1476	1585	
==>:Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13554	13719	
==>'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13833	13998	
==>'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2016	2184	
==>butes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::cre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2221	2389	
==>butes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::cre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11056	11150	
==>:$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11114	11208	
==>:$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25708	25807	
==>ses (opaque $self:) returns list {
    @:subclasses;
}

(method subclasses ((opaque $self:)) returns <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2914	3009	
==>ule_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

su <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2914	3009	
==>ule_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10682	10799	
==>e =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10840	10957	
==>e =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    re <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4795	4958	
==>pty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack. <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4795	4958	
==>pty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15823	15921	
==>as any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$paren <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15823	15921	
==>as any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$paren <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16061	16162	
==>sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unimplemented. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2396	2588	
==>tem ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2396	2588	
==>tem ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print( <==
2	/Users/nnunley/pugs/util/grokprims.pl	1137	1244	
==>{args}[0];
  my $a1 = $op->{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/prefix/) {
    if (($arity>1 a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2949	3050	
==>lock as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2842	2941	
==>lock as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well - <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3060	3166	
==>ersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3060	3166	
==>ersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_spa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21161	21263	
==>me as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25713	25815	
==>me as those of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3164	3266	
==>Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3164	3266	
==>Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6342	6457	
==>RE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6342	6457	
==>RE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13512	13697	
==>eop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13791	13976	
==>eop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	69	168	
==>3;

## ----------------------------------------------------------------------------
## Mini Meta-Mod <==
2	/Users/nnunley/pugs/util/package-osx.pl	7168	7265	
==>sr/local/man/man3/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Spec.3
        /usr/local/man <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5836	5937	
==>) returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5836	5937	
==>) returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method en <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3760	3863	
==>ringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.str <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3760	3863	
==>ringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.str <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	175	303	
==>efault
}

sub report (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1800	1905	
==>s{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1800	1905	
==>s{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2959	3100	
==>->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol->new('&d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4768	4882	
==>->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol->new('&d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3992	4131	
==>(section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "br <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3992	4131	
==>(section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "br <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22470	22566	
==>lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22470	22566	
==>lt>quitE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23327	23426	
==>d in a format other than Perl
files.  Or alternately they have a compiled C component or otherwise h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23327	23426	
==>d in a format other than Perl
files.  Or alternately they have a compiled C component or otherwise h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23404	23530	
==>$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19825	19951	
==>$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1048	1212	
==>defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "00 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1048	1212	
==>defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "00 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2993	3094	
==>, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3051	3152	
==>, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2629	2739	
==>]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    doe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2629	2739	
==>]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    doe <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6993	7135	
==>src -Isrc/pcre -static ";
    $ghc_flags .= " -Wall " #  -package-name Pugs -odir dist/build/src -hidir dist/build/src "
      unless $self->is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4253	4377	
==>nary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $self->pac <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27658	27810	
==>e returns.  Some
consoles may not handle carriage returns properly (which results in a
somewhat messy output).

=item C<HARNESS_PERL>

Usually your tests <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38517	38645	
==>od' => (
    # method label
        symbol->new('get_attribute_list'),
    # method body
        method->new(
            $::ENV, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3118	3220	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3118	3220	
==>::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8628	8760	
==>x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array::join (@values,   Str $delimiter --> Str )
 multi  List::join (Str $delim <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1398	1518	
==>PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Exp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1398	1518	
==>PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Exp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37806	37925	
==>,
      neg => !$pos,
    }, $class;
    return $self;
  }

We've added a C<neg> attribute, and removed both C<type> and <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2661	2756	
==>fault fprime in the example.  For fprime, the
example goes on step further and Curries approxfpr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14397	14587	
==>::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14676	14866	
==>::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16963	17064	
==>cates what additional
encoding mechanism has been applied to the resource.

=item $h.content_length

A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16963	17064	
==>cates what additional
encoding mechanism has been applied to the resource.

=item $h.content_length

A <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2859	2970	
==>)";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2917	3028	
==>)";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38065	38160	
==>y, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38065	38160	
==>y, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_va <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1161	1256	
==>ferently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put an <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1161	1256	
==>ferently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put an <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6147	6249	
==>ng for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6205	6307	
==>ng for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35637	35728	
==>returns Relation::Example>

This multi-method is a generic binary relational operator that t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39830	39921	
==>returns Relation::Example>

This multi-method is a generic binary relational operator that t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21307	21402	
==>dules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21307	21402	
==>dules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1596	1696	
==>10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <In <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1596	1696	
==>10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <In <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21518	21610	
==>to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21518	21610	
==>to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1633	1768	
==>gs = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1577	1709	
==>gs = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27114	27253	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27393	27532	
==>optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9051	9188	
==>d die $?;
        }
    }


    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14323	14523	
==>t_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.g <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14323	14523	
==>t_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.g <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1005	1113	
==>%7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7086	7190	
==>their data...
# this is why this code is so big.

# in a language with native multimetods this would be m <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1700	1850	
==>($all_the_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            } <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	910	1005	
==>put = $strap->dump_verbose();
  $strap->dump_verbose_fh($output_filehandle);


=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1747	1930	
==>"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            ta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1747	1930	
==>"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            ta <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11009	11110	
==>ri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 U <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11009	11110	
==>ri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 U <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7445	7627	
==>newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7445	7627	
==>newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	779	876	
==>CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	779	876	
==>CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1179	1291	
==>just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    di <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1179	1291	
==>just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	479	595	
==>int" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	479	595	
==>int" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the pr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2097	2191	
==>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http:/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2097	2191	
==>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http:/ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3945	4043	
==>l be passed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3945	4043	
==>l be passed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, d <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2178	2304	
==>fix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'), <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2234	2334	
==>Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals::eval_yaml($code) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	854	957	
==>TTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	854	957	
==>TTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %he <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1541	1639	
==>immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1541	1639	
==>immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "' <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	16	117	
==>b-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

su <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	16	117	
==>b-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

su <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4923	5025	
==>= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4923	5025	
==>= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4799	4966	
==>then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($to <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4799	4966	
==>then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15830	15951	
==>n > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10686	10807	
==>n > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_han <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8963	9065	
==>rom
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; instead refer t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8963	9065	
==>rom
'use' statements, you should never refer directly to "Rosetta::Model" in
your code; instead refer t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4534	4800	
==>in $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version num <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4534	4800	
==>in $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version num <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	21	126	
==>.infix:«<»( $b );
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4530	4631	
==>{$node->orig};
}

sub is_duplicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes($ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13787	13913	
==>enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1267	1393	
==>enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5541	5642	
==>{
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache35 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5541	5642	
==>{
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache35 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10484	10597	
==>hift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] constant( \"$name\" )\n";
}
sub node:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1076	1171	
==>nality.

The complementary functions are emulated using iterations.

- `new( closure_next => sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1076	1171	
==>nality.

The complementary functions are emulated using iterations.

- `new( closure_next => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2089	2222	
==>print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2306	2439	
==>print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compil <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	771	876	
==>$string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $strin <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	771	876	
==>$string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $strin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	288	403	
==>the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	288	403	
==>the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21845	21945	
==>n optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21845	21945	
==>n optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21720	21834	
==>method
    .param pmc pad
    .local int isarray, iscapture
    .local string cname
    .local pmc reps

    iscapt <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	585	685	
==>\$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $args{'str'};
    return $o;
}
s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1896	2003	
==>output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($module, $output);
    } <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1896	2003	
==>output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($module, $output);
    } <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4582	4681	
==>$content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4582	4681	
==>$content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1796	1895	
==>BCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz" <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1796	1895	
==>BCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12056	12160	
==>t expect that to be a
problem.

=head2 Using the Tree

If you want to work with the parse tree independen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25502	25605	
==>alue      { $_[0]{tree}[-1] }

You may find it helpful to copy these to your sub-class.  If you're
curio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5245	5371	
==>( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5467	5593	
==>( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	972	1068	
==>y 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	972	1068	
==>y 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28444	28539	
==>C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Test::Harness tests its <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1684	1787	
==>return ("") if $position < 0 or $position <= $from;
  return substr $target, $from, $position;  
}

#get <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9837	9952	
==>>
  <h1>Pugs Smoke Reports</h1>

  <p>
    Here's a list of recently submitted <a
    href="http://www.pugscode.org/ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6209	6392	
==>rl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6209	6392	
==>rl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$c <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1856	1951	
==>apshot.  There are currently
no support for match flags; regexes constructed with this module ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2194	2315	
==>ual = "parse" if $level == $#{$self->{levels}};
    for my $op ( @{$self->{levels}[$level]} ) {
        my $rule = $op->{f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5575	5687	
==>_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Complex')->new('$.real'=>$_[0],'$.imag'=>$_[1]) if $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6097	6259	
==>ss $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6097	6259	
==>ss $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        w <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10791	10887	
==>nt_type returns Str>

=item B<content_length returns Str>

=back

B<The following informational f <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10791	10887	
==>nt_type returns Str>

=item B<content_length returns Str>

=back

B<The following informational f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31851	31956	
==>elation>

This multi-method is a generic binary relational operator that takes a single
Relation in its C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36401	36506	
==>elation>

This multi-method is a generic binary relational operator that takes a single
Relation in its C< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18771	18873	
==>.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18771	18873	
==>.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2449	2567	
==>odule {
    my $config = get_config();
    my $template = do { local $/; <DATA> };

    my $all_fields = join ",\n    " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	350	460	
==>ut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	164	268	
==>ut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_ru <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	380	481	
==>t

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fail <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	380	481	
==>t

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fail <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	358	501	
==>y $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, store => \$ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21043	21138	
==>ool::False,$module);
}
sub Pugs::Internals::require_use_helper ($use_,$module) is builtin is uns <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1231	1324	
==>onally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, e <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1231	1324	
==>onally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3331	3452	
==>$set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3331	3452	
==>$set.complement_next ),
        universe =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6558	6667	
==>{
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6570	6679	
==>{
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4980	5095	
==>es! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4980	5095	
==>es! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %! <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	264	485	
==>' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	264	485	
==>' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	300	436	
==>es;

sub CookiesInit() {
    %Cookies=();
    if (%*ENV{'HTTP_COOKIE'} ne '') {
        for (split(rx:perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9779	9904	
==><'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4126	4238	
==>e_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <@Grammar::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2606	2721	
==>let {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholde <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2606	2721	
==>let {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholde <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21209	21306	
==>d")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21209	21306	
==>d")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5766	5908	
==>:Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5766	5908	
==>:Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4008	4110	
==>urrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4008	4110	
==>urrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14250	14366	
==>d the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < > <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14250	14366	
==>d the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < > <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3789	3890	
==>rint_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4006	4107	
==>rint_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10770	10883	
==>ype::operator::arrow->new(
				$b,
				type::operator::pair->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	524	662	
==>?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	524	662	
==>?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19426	19585	
==>f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15847	16006	
==>f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8624	8749	
==>ch as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6157	6278	
==>ch as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	625	735	
==>->_compare($_[1]) == 0  ? bit->new(1) : bit->new(0) }

sub greater_than { $_[0]->_compare($_[1]) == 1  ? bit->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2538	2643	
==>e =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24424	24535	
==>n branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20845	20956	
==>n branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	356	510	
==>tr> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	356	510	
==>tr> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14672	14794	
==>CK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14672	14794	
==>CK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	509	645	
==>object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	509	645	
==>object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash r <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1284	1383	
==>t
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
do <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1284	1383	
==>t
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
do <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32029	32136	
==>tcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO.reverse);
}

=cut

$::Class- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1391	1480	
==>ddToken("circumfix:( )", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken("<com <==
2	/Users/nnunley/pugs/util/package-osx.pl	10708	10852	
==>r[0];

    my @footer = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9713	9855	
==>ED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into quant <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15714	15832	
==>head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All ri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15714	15832	
==>head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All ri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2741	2844	
==>ify }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2741	2844	
==>ify }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($sel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1356	1470	
==>->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key->to_str->to_native} = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3199	3285	
==>code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3199	3285	
==>code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7182	7296	
==>@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw(name kind params body lvalue class)};
    # XXX - lva <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26368	26460	
==>od add_subclass (opaque $self: opaque $subclass) returns nil {
    @:subclasses.push($subclas <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9754	9866	
==>nt'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1829	1983	
==>tname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1829	1983	
==>tname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15793	15925	
==>unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15787	15919	
==>unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11204	11315	
==>}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11204	11315	
==>}

# Regexp fragments for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20288	20384	
==>ping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20288	20384	
==>ping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the serve <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	470	605	
==>alar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} if defined wantarray and !@_;
        $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2823	2947	
==>ned $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2963	3087	
==>ned $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5019	5124	
==>t " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5019	5124	
==>t " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10570	10696	
==>fe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10570	10696	
==>fe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18771	18920	
==>(<E G F>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),1.0*$arg);
            }
            when '%' {
                $str ~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21103	21202	
==>les containing text for users, and your program would use
associated keys internally.

It is strongl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21103	21202	
==>les containing text for users, and your program would use
associated keys internally.

It is strongl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3888	4076	
==>sion(  $path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq pa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3516	3695	
==>if($op1) {
        print STDERR "new op\n" if $debug;
        local $Z::oop{$id}{'op_ahead'} = $op1;
        #goto &$step;
        return &$step;
      }
      print STDERR "cleanu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4357	4464	
==>Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimizat <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4357	4464	
==>Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimizat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1318	1412	
==>Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1318	1412	
==>Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1660	1757	
==>et $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1660	1757	
==>et $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15518	15619	
==>(TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15518	15619	
==>(TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and da <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16388	16490	
==>n be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16388	16490	
==>n be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10017	10122	
==>DOWN($rhs));
}
NODE TypeAnd ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1870	1971	
==>_;
    die "bug" if $datatype !~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	stages => [qw(p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2859	2984	
==>direct (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2859	2984	
==>direct (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4238	4340	
==>$self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4238	4340	
==>$self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	837	945	
==>/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	837	945	
==>/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10217	10321	
==>::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list cre <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10217	10321	
==>::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list cre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2682	2906	
==>im = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2682	2906	
==>im = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2294	2413	
==>OKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    l <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2294	2413	
==>OKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1283	1420	
==>) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1283	1420	
==>) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1624	1728	
==>ors!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1624	1728	
==>ors!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19581	19676	
==>will enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19581	19676	
==>will enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text for <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10679	10792	
==>en.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10679	10792	
==>en.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from ser <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2262	2376	
==>$name :words" },
#     rather than having the clutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clar <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5528	5632	
==>emove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5528	5632	
==>emove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20946	21043	
==>ys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hash <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20946	21043	
==>ys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hash <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31476	31574	
==>ument. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36026	36124	
==>ument. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2406	2513	
==>- @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class shou <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2406	2513	
==>- @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class shou <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8867	8991	
==>rns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8867	8991	
==>rns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_d <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6636	6757	
==>(Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($k <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6636	6757	
==>(Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($k <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3453	3561	
==>rder{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3453	3561	
==>rder{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6163	6269	
==>.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6221	6327	
==>.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1342	1462	
==>$req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1342	1462	
==>$req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_lin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19865	19965	
==>t likes; all Rosetta cares about is that the user
interface and behaviour conform to its preconceptio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19865	19965	
==>t likes; all Rosetta cares about is that the user
interface and behaviour conform to its preconceptio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12692	12820	
==>atabase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Loc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12692	12820	
==>atabase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Loc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1261	1364	
==>quest }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return unde <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1261	1364	
==>quest }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return unde <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24094	24196	
==>f C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28646	28748	
==>f C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5488	5590	
==>he last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5488	5590	
==>he last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15632	15723	
==>s themselves.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-readable expla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16339	16438	
==>a type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16339	16438	
==>a type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will b <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2024	2143	
==>t1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2024	2143	
==>t1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.dif <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1144	1234	
==>6;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#X <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16601	16699	
==>ation the maximum amount of control as
to what the user sees; it never outputs anything by itself t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16601	16699	
==>ation the maximum amount of control as
to what the user sees; it never outputs anything by itself t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15834	15934	
==>d.

Alternately, sometimes a program will raise a condition or error that,
while resembling a message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15834	15934	
==>d.

Alternately, sometimes a program will raise a condition or error that,
while resembling a message <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20703	20805	
==>any subroutines or export such.

The usual way that Relation indicates a failure is to throw an excepti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25255	25357	
==>any subroutines or export such.

The usual way that Relation indicates a failure is to throw an excepti <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3364	3491	
==>tent?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3364	3491	
==>tent?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	24	134	
==>se v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our St <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	24	134	
==>se v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our St <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	821	917	
==>ic_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	821	917	
==>ic_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23524	23627	
==>t> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTIC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23524	23627	
==>t> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTIC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8554	8677	
==>XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base6 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8554	8677	
==>XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base6 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2474	2570	
==>ext>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2474	2570	
==>ext>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for d <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22822	22919	
==>tribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of An <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27374	27471	
==>tribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of An <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12234	12365	
==>ix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ' <==
2	/Users/nnunley/pugs/util/package-osx.pl	3449	3555	
==>fo
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7811	7906	
==>id {...}>

Clears the cipher object's internal structures.

Cipher authors should assume that if <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7811	7906	
==>id {...}>

Clears the cipher object's internal structures.

Cipher authors should assume that if <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11901	12047	
==>s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminato <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11901	12047	
==>s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminato <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	684	823	
==>f Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4162	4301	
==>f Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	624	748	
==>~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	624	748	
==>~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5664	5791	
==><boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5664	5791	
==><boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	370	493	
==>g button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	370	493	
==>g button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17080	17188	
==>'t know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specif <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22180	22288	
==>'t know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11505	11652	
==>ame");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11505	11652	
==>ame");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $q <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2718	2839	
==>s ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2718	2839	
==>s ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7293	7442	
==>_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7281	7430	
==>_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1008	1100	
==>tent-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1008	1100	
==>tent-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_h <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5008	5108	
==>clears the object's internal state.  This should be called as the last 
step of enciphering.

=item C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5008	5108	
==>clears the object's internal state.  This should be called as the last 
step of enciphering.

=item C <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1334	1430	
==>an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtrac <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1334	1430	
==>an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtrac <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4453	4562	
==>@dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4453	4562	
==>@dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3192	3299	
==>le( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3180	3287	
==>le( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" i <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	505	608	
==>nless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_duration ($class <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	505	608	
==>nless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_duration ($class <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2811	2910	
==>ift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b + <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2811	2910	
==>ift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b + <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23932	24027	
==>ity.

My understanding of alternate solutions like "gettext" suggests that they
use a compile-ti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23932	24027	
==>ity.

My understanding of alternate solutions like "gettext" suggests that they
use a compile-ti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24660	24763	
==>f the
License, or (at your option) any later version.  You should have received a
copy of the GPL as par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24660	24763	
==>f the
License, or (at your option) any later version.  You should have received a
copy of the GPL as par <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	489	605	
==>lts in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with obj <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	489	605	
==>lts in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with obj <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1057	1161	
==>y @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @witho <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1057	1161	
==>y @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @witho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4138	4251	
==>!! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4138	4251	
==>!! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4041	4156	
==>->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        }
        return  "{\n" . _emit( $n->{bare_block} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	816	920	
==>submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $strin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	816	920	
==>submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $strin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1185	1295	
==>ol {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1185	1295	
==>ol {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8018	8133	
==>ata still 
in the cipher to be deleted immediately.  This method should be as thorough as 
possible; for example, it <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8018	8133	
==>ata still 
in the cipher to be deleted immediately.  This method should be as thorough as 
possible; for example, it <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23434	23535	
==>LITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23434	23535	
==>LITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distrib <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41173	41267	
==>>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37199	37293	
==>>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1490	1601	
==>n for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1490	1601	
==>n for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs:: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4374	4489	
==>s/sequences/A001113
}

 multi method Array::delete (@array ; *@indices --> List )
 { ... } # XXX


 multi method Arr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9707	9791	
==>_charset_item(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_charset_item(cla <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	211	300	
==>() )->subdir( 'fakeroot' ) );

$INSTALLATION_DIR = $config->root->subdir( $Config{installs <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	115	217	
==>r the weekend.  A "look at what I'm up to".

It passes most (95%) of a perl 5.9 re test file (re_tests) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	719	822	
==>set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	719	822	
==>set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	843	950	
==>c?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	901	1008	
==>c?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	478	596	
==>struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	962	1080	
==>struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9355	9505	
==>time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9355	9505	
==>time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9636	9736	
==>Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Array { r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9636	9736	
==>Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Array { r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8333	8426	
==>ments, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2158	2251	
==>ments, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	845	966	
==>t_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1051	1172	
==>t_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3283	3382	
==><%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3283	3382	
==><%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1635	1782	
==>t domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1635	1782	
==>t domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::de <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10213	10312	
==>rnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10213	10312	
==>rnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7135	7262	
==>p @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thun <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8392	8532	
==>r(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8392	8532	
==>r(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6061	6248	
==>egex->compile( q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9387	9497	
==>reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9387	9497	
==>reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13142	13246	
==>f the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13142	13246	
==>f the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.las <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6399	6608	
==>$_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6399	6608	
==>$_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2283	2378	
==>::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2372	2467	
==>::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34394	34497	
==>the new object is set from the named parameter
@set_names (an array ref), and Member Names is set from t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34394	34497	
==>the new object is set from the named parameter
@set_names (an array ref), and Member Names is set from t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	362	491	
==>{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	362	491	
==>{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7195	7401	
==>rnation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7388	7594	
==>rnation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_grou <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	11	107	
==>:Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5 <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	11	107	
==>:Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34246	34351	
==>er!) returns Relation>

This method is a generic relational operator that returns the complement of
C<semi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38796	38901	
==>er!) returns Relation>

This method is a generic relational operator that returns the complement of
C<semi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14744	14861	
==>ass = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14744	14861	
==>ass = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fol <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7158	7269	
==>fe   (Str: Str, Int)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, Int)\
\\n   List <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30341	30438	
==>head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
directory.

Pleas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18084	18210	
==>l) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14505	14631	
==>l) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_ra <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	243	353	
==>rn &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	243	353	
==>rn &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3211	3339	
==>if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new ! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3211	3339	
==>if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new ! <==
2	/Users/nnunley/pugs/util/run-smoke.pl	342	439	
==>ave the required modules installed.
Please install it from the CPAN and try again.

A bundle is av <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17591	17696	
==>databases and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17591	17696	
==>databases and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15887	15993	
==>the time specified in this field,
then the server will return a C<304 Not Modified> response instead of
the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15887	15993	
==>the time specified in this field,
then the server will return a C<304 Not Modified> response instead of
the <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10473	10609	
==>classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10473	10609	
==>classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @cla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1569	1691	
==>(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1569	1691	
==>(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($na <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2359	2473	
==>been implemented at all, at all.
# A couple of others I don't remember at the moment but should be mentioned...

pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29306	29403	
==>In order for the 'atom' handle to be executed, you must
explicitly add it to the queue (C<< $parse <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	614	745	
==>{
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	614	745	
==>{
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8052	8171	
==>elete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8052	8171	
==>elete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $ev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12508	12614	
==>gains one element for each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12508	12614	
==>gains one element for each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample us <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49279	49411	
==>ck->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:version'), $e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12906	13041	
==>lon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12906	13041	
==>lon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2981	3119	
==>lt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2992	3130	
==>lt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15107	15214	
==>h
multiple interchangeable "Engine" back-ends (usually provided by third
parties) implement.  This interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15107	15214	
==>h
multiple interchangeable "Engine" back-ends (usually provided by third
parties) implement.  This interface <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	252	345	
==>r 'import';
our @EXPORT=qw(get_int);
use Inline C=>'Config',
	INC => `pkg-config --cflags parr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3331	3419	
==>ef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Hacks- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12425	12547	
==>",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pge; 1 },
    using  => sub {
      utime undef, undef, $initrd_i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18340	18437	
==>d ranges from being display if they are included in an embedded
class, set the I<anyof> object's C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16342	16450	
==>says 'parse error' instead of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $re <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20877	20972	
==>dule);
}
sub Pugs::Internals::Disabled::require ($module=$+_) is builtin is unsafe {
    #Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13783	13908	
==>, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13783	13908	
==>, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4831	4952	
==>users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4831	4952	
==>users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3143	3372	
==>lsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => $t;
            }       
            
            # types
            elsif ($t =~ /^\<.*\>$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14383	14487	
==>e->[-1]->{zerolen} and !($self->{min} == 0 and $self->{max} == 1))
      ) {
        $rx->awarn($rx->RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7645	7747	
==>pm);
    /*XXX - can free nulpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2761	2866	
==>ml_location'.
    You may want to submit the report to the public smokeserver:

        $^X $smoke_upload_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25376	25473	
==>like the
above are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that return a no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23755	23849	
==>d at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23755	23849	
==>d at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9070	9197	
==>es create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9058	9185	
==>es create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9096	9191	
==>n this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9096	9191	
==>n this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This do <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3777	3904	
==>m(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3835	3962	
==>m(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7479	7760	
==>ough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7943	8224	
==>ough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	677	777	
==>should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error mess <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	677	777	
==>should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error mess <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10917	11020	
==>n_test_on_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo si <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8439	8540	
==>n_test_on_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo si <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	627	766	
==>debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $a <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	627	766	
==>debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2171	2270	
==>essage = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2171	2270	
==>essage = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // " <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	373	485	
==>neric_reduce($node);
	}
}

sub can_reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1781	1890	
==>t  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1781	1890	
==>t  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	23	131	
==>e Set;
use Meta::Assoc;
use Meta::Attrib;
use Meta::Method;

use Meta::Util;

Has($?CLASS, "name", "Str");
Ha <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	51	154	
==>ars qw($VERSION);
$VERSION = 0.02;

=head1 NAME

Test::Harness::Iterator - Internal Test::Harness Iterat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	45	161	
==>e base qw/Blondie::Reducer/;

use strict;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2338	2431	
==>me. An example runtime is L<Blondie::Backend::Perl>, which happens to be
an interpreter.

=ove <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2844	2942	
==>ext::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2844	2942	
==>ext::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3048	3173	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3241	3366	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	541	669	
==>S") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	541	669	
==>S") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and d <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	986	1101	
==>x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, &f, $verbose => 1)}";

=head1 DESCRIPTION

Newton <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2448	2546	
==>you do even scarier things to the Perl 6 class
system.

Note that the files in this distribution at <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6076	6182	
==>capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5883	5985	
==>capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the matc <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2563	2718	
==>te that Perl 6 allows us to provide defaults for optional parameters.
This includes providing a default fprime in the example.  For fprime, the
example goes <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2569	2653	
==><'END';
%======================================================================

:- s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16012	16125	
==>{ enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16012	16125	
==>{ enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	15	131	
==>pher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servic <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	15	131	
==>pher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4784	4926	
==>o { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4772	4914	
==>o { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't l <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2530	2636	
==>bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2530	2636	
==>bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1224	1430	
==>key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1224	1430	
==>key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14887	14983	
==>mented, we will need an easy way
to test them. So we will implement the Test::More function is_de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14945	15041	
==>mented, we will need an easy way
to test them. So we will implement the Test::More function is_de <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4597	4698	
==>"\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	57	147	
==>ngs;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar::Precedence;

use Data::Du <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22930	23052	
==>test->{name}, $Curtest->{estat},'
              . '  $Curtest->{wstat}, $Curtest->{max},'
              . '  $Curtest->{fai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9263	9393	
==>delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curuserna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9263	9393	
==>delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curuserna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9097	9207	
==>ll_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9093	9203	
==>ll_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quant <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6901	6993	
==>adecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7919	8011	
==>adecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2357	2574	
==>ch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2357	2574	
==>ch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5751	5913	
==>p = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $siz <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4251	4413	
==>p = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $siz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3430	3574	
==>parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETC <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3430	3574	
==>parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETC <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1092	1226	
==>};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1092	1226	
==>};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9784	9900	
==>gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9778	9894	
==>gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	680	795	
==>n/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	680	795	
==>n/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2149	2282	
==>>{angle_quoted} . ')' 
        if exists $n->{angle_quoted};
            
    return assoc_list( $n )
        if exists $n->{assoc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34336	34428	
==><\P{NAME}>: alnum
(C<\w>, C<\W>), alpha, ascii, cntrl, digit (C<\d>, C<\D>), graph, lower,
pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5082	5233	
==>OT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5546	5697	
==>OT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, w <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3903	4010	
==>';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::Inter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39587	39700	
==>---------------------------------
## now build Object, so we can create something here

$::Object = $::Class->send <==
2	/Users/nnunley/pugs/util/combine_tests.pl	19	120	
==>e strict;
use warnings;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump LoadFile/ ];
#my @data = map { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1610	1723	
==>ders;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1610	1723	
==>ders;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method he <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	125	238	
==>e);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_p <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	125	238	
==>e);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1129	1250	
==>perset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1129	1250	
==>perset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9072	9165	
==>nts, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2897	2990	
==>nts, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_prin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1477	1593	
==>s Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1477	1593	
==>s Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7238	7361	
==>&{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submeth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7238	7361	
==>&{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submeth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8109	8225	
==>nshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8302	8418	
==>nshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	62	167	
==>.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.want <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	62	167	
==>.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.want <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6976	7081	
==>cess($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6976	7081	
==>cess($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2251	2401	
==>@res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2251	2401	
==>@res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ( <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1187	1277	
==>erl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1398	1488	
==>erl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3021	3130	
==>nts is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3021	3130	
==>nts is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16444	16565	
==>et, then the new Node's "Parent Node" attribute
is set to it, and the new Node is also stored in $parent_node's Child Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16444	16565	
==>et, then the new Node's "Parent Node" attribute
is set to it, and the new Node is also stored in $parent_node's Child Node <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	209	301	
==>urns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!fi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	209	301	
==>urns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!fi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10254	10363	
==>st2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCT <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10254	10363	
==>st2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCT <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4275	4404	
==>nds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, us <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4275	4404	
==>nds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2097	2194	
==>very single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->compile(q(" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8130	8267	
==>=> $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8142	8279	
==>=> $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1157	1320	
==>op {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1157	1320	
==>op {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10987	11104	
==>ayers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) if
            $layer ~~ rx:P5/:raw\b/;

        $fh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	519	653	
==>->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	519	653	
==>->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8161	8295	
==>(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8161	8295	
==>(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	321	580	
==>kages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	321	580	
==>kages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4373	4616	
==>em' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4373	4616	
==>em' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	950	1196	
==>ple

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference im <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	950	1196	
==>ple

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference im <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4035	4141	
==>) returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newli <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4035	4141	
==>) returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newli <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21777	21878	
==>inal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26329	26430	
==>inal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relatio <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10291	10389	
==>{
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plainte <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10291	10389	
==>{
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plainte <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	865	963	
==>pe () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	865	963	
==>pe () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	763	860	
==>OM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, they wil <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	763	860	
==>OM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, they wil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1824	1943	
==>!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1824	1943	
==>!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	370	466	
==>codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilena <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	370	466	
==>codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilena <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10756	10872	
==>yedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10756	10872	
==>yedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
} <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5292	5407	
==>my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5292	5407	
==>my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6960	7075	
==>ll possible bindings
            # user code has to @array[$off+$i], see t/operators/binding/arrays.t.
            @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2495	2618	
==>[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0] <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11448	11553	
==>Literal {  # see 9.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	131	540	
==>0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	131	540	
==>0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16710	16808	
==>rameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16710	16808	
==>rameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new Nod <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	53	180	
==>pan;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * operations wi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	53	180	
==>pan;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * operations wi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	488	623	
==>($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	488	623	
==>($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($meth <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9351	9512	
==>in; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        go <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10342	10503	
==>in; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        go <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9254	9403	
==>gth $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( [
            constant( $_ ),
            _preprocess_has <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2475	2616	
==>root
$Repoindex      = $Repodir . '/index';              # index file for the repo

### be strict from here on down
{   use strict;

    ### p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2483	2585	
==>ns '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2483	2585	
==>ns '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8427	8537	
==>ntry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8427	8537	
==>ntry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normaliz <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4525	4635	
==><"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<"isNamed"> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10765	10863	
==>e NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> <SourceCharacter>
}
rule RegularExp <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6106	6237	
==>c-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_candidate = qq/${ghc_dir}${slash} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4484	4600	
==>and the whole AST is now reduced
to 11.

Inherits Unit.

=item Stub

A node that makes the runtime throw a fatal erro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14751	14885	
==>) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14751	14885	
==>) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15232	15331	
==>t Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15232	15331	
==>t Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	616	720	
==>hich also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And b <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	616	720	
==>hich also addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10813	10914	
==>es a "universal set".

The complement set of the universe is an empty set.

`:is_universe` must be set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10813	10914	
==>es a "universal set".

The complement set of the universe is an empty set.

`:is_universe` must be set <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12501	12621	
==>old_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12501	12621	
==>old_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $sourc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15108	15235	
==>))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('CREATE'),
    # method body
        method->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13182	13356	
==>o;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13176	13350	
==>o;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1774	1915	
==>Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1774	1915	
==>Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3609	3704	
==>em C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3609	3704	
==>em C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

P <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15660	15765	
==>(at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to for <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15718	15823	
==>(at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to for <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6755	6862	
==>ize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6755	6862	
==>ize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!chann <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8747	8874	
==>,
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8747	8874	
==>,
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	524	634	
==>re>, hashes, end_of_string, and the rule wrapper.

- It needs a 'direction' flag, in order to implement <afte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40810	40901	
==>arning I<only> during the first pass over the regex.

=item $parser->awarn(RPe_ERRMSG, ARGS. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18531	18659	
==>fined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	117	220	
==>s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = GraphViz->new();

wh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7698	7835	
==>y /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	999	1136	
==>y /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18562	18673	
==>se' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19920	20031	
==>se' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4226	4362	
==>} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4097	4230	
==>} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{captur <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	711	812	
==>iption<insert> :remove_subscription<remove> .= new; # FIXME we need one at the class level too

    me <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3553	3650	
==>ax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA-Z0-9_]+)(\s?)/&syn($1,$2,$3)/gme;
#    # comme <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20026	20123	
==>t the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $pas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20026	20123	
==>t the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $pas <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	211	335	
==>f ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $Re <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	211	335	
==>f ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $Re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6522	6649	
==>STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6522	6649	
==>STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ U <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3847	3963	
==>le {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4064	4180	
==>le {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2840	2982	
==>! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # ta <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2840	2982	
==>! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # ta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10594	10697	
==>ous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNI <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10594	10697	
==>ous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3585	3734	
==>{ 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3442	3587	
==>{ 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1239	1339	
==>1 CONSTRUCTS

=head2 Base ADTs

All nodes as well as a few other objects are implemented as one of th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11451	11547	
==>nts in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11451	11547	
==>nts in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Ret <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	66	164	
==>* 1.4656 } # geht leider nicht!
sub PoundToEuro { @_[0] * 1.4656 }

# interpolierter Funktions-Aufr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3040	3202	
==>constant ISA_JIB_INSTALLATION_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27726	27829	
==>int Dumper($res);
	    mkMatch(length($s),$res);
	}
	else { MatchX->new()->set_as_failed() }
    };
}
my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4222	4341	
==>exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5071	5190	
==>exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8614	8743	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8807	8936	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2997	3140	
==>yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3181	3324	
==>yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3650	3772	
==>mar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3843	3965	
==>mar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16164	16331	
==>n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16158	16325	
==>n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8755	8857	
==>@union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8755	8857	
==>@union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3965	4058	
==>not preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATIO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3965	4058	
==>not preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATIO <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14060	14164	
==>y = $o->data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_else = $o->dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2892	3129	
==>r::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3139	3376	
==>r::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	307	416	
==>size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	307	416	
==>size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method sta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25244	25340	
==>nfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25244	25340	
==>nfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	958	1055	
==>al stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	958	1055	
==>al stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	610	720	
==>hod end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	610	720	
==>hod end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	777	896	
==>$_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	777	896	
==>$_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4645	4791	
==>>nparens) {
        fprintf(stderr,"regexp_hook_exec failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POP <==
2	/Users/nnunley/pugs/util/importgraph.pl	1734	1832	
==>n";
  }
}
sub setup_cluster { setup_mod(2, @_) }
sub setup_rank { setup_mod(3, @_) }

setup_cluster <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4522	4674	
==>keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4522	4674	
==>keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	264	398	
==>ERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}


# check if we can load some module
### Upgrade this to not have to load the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22801	22897	
==>theses.  It will end up being identical to
C<nparen>, but it is incremented during the initial pa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8958	9069	
==>nt relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12435	12546	
==>nt relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	857	953	
==>e is that this will allow interoperability with modules that
# do not inherit from Module::Compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	857	953	
==>e is that this will allow interoperability with modules that
# do not inherit from Module::Compil <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2093	2247	
==>ub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    return {
    # prototype
        prototype => new Obj <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4124	4259	
==>',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',', <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4934	5073	
==>() returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4934	5073	
==>() returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	35	147	
==>---------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ----- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	35	147	
==>---------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ----- <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6426	6519	
==>od::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6426	6519	
==>od::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19157	19290	
==>le.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14938	15049	
==>elf->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

package Compiler;
use base q <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4719	4817	
==>and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4719	4817	
==>and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7803	7903	
==>rw { $self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $self! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7803	7903	
==>rw { $self.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $self! <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4197	4343	
==>e     sort    safe   (Array)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34453	34545	
==>, C<\S>), upper, word, xdigit; others are
possible (Unicode properties and user-defined POSIX <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	978	1089	
==>90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	978	1089	
==>90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connect <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3319	3445	
==>e means block-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11547	11657	
==>- they get interpolated
by Perl first.  In fact, if one slipped through:

  my $rx = '\N{LATIN CAPITAL LETTER R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14696	14792	
==>lded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14696	14792	
==>lded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is "\n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2012	2100	
==>use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Sca <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	44	131	
==>use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Sca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	442	540	
==>ion authorization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!prot <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	442	540	
==>ion authorization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!prot <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5249	5381	
==>,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
no <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5249	5381	
==>,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12242	12340	
==>h.init_header( $field, $value )

Set the specified header to the given value, but only if no previo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12242	12340	
==>h.init_header( $field, $value )

Set the specified header to the given value, but only if no previo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7751	7873	
==>nt( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7751	7873	
==>nt( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3561	3658	
==>:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3561	3658	
==>:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	433	552	
==>represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	433	552	
==>represented as a hash of (v => v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27136	27227	
==>C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31688	31779	
==>C<select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1171	1323	
==>_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1376	1528	
==>_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18290	18393	
==>ce module is preprocessed to hide heredocs, since the content
inside heredocs can possibly confuse furth <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18290	18393	
==>ce module is preprocessed to hide heredocs, since the content
inside heredocs can possibly confuse furth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12690	12869	
==>\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12684	12863	
==>\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	580	690	
==>rl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	580	690	
==>rl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2530	2663	
==>var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2447	2575	
==>var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    retu <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3778	3926	
==>tty much an abstract baseclass
    # an empty implementation is useful on it's own

    has @.args;
    method new (*@.args) { super }
}

class Class <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7238	7363	
==>ternals::VRule, Int)\
\\n   List      pre     split   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str, Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	784	909	
==>'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constan <==
2	/Users/nnunley/pugs/util/package-osx.pl	8316	8426	
==>r/local/man/man3/Perl6::Tutorial.3
        /usr/local/man/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1102	1239	
==>ring) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomor <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1102	1239	
==>ring) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomor <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14501	14590	
==>=item encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14501	14590	
==>=item encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15092	15200	
==>{
  # (??{ ... })
  package Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23075	23170	
==>on of the roles' attributes (eg,
volatile or persistent) and provide accessors to them.  The Rel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26416	26511	
==>setta
that you are willing to distribute, because that is a practical way of
suggesting improvem <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26416	26511	
==>setta
that you are willing to distribute, because that is a practical way of
suggesting improvem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3330	3475	
==>0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4179	4324	
==>0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	140	287	
==>alScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $Re <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	140	287	
==>alScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $Re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1618	1729	
==>'" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1618	1729	
==>'" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1113	1281	
==>t;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = shift;
                my $idx <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3505	3669	
==>ddir/$path ] ) and error($?), return;
    }        

    ### XXX make me more robust
    local $CWD = $builddir;
    
    ### XXX invoke build code here

    ### bui <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2786	2911	
==>3], } }

    | SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[4], %{$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8224	8325	
==>!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@others <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11701	11802	
==>!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@others <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15983	16078	
==>ars, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15983	16078	
==>ars, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  N <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	420	561	
==>ucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	420	561	
==>ucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16148	16301	
==>, @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16142	16295	
==>, @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2384	2483	
==>s;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2384	2483	
==>s;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entit <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3958	4062	
==>heck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3958	4062	
==>heck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PIL <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6497	6624	
==>pkg );

    }

    ### update the available files
    $self->available( [ @{ $self->available }, $inst_pkg ] );
        
    $se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6870	6983	
==>$:pos"
    $P0 = pos
    .return (mob)

  err_noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  er <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1868	2026	
==>med;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1856	2014	
==>med;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22825	22938	
==>he available details depending on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22825	22938	
==>he available details depending on the
intended viewer.

=head2 Compared to Other Solutions

One of the main distin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19468	19574	
==>alue if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19468	19574	
==>alue if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22187	22284	
==>perated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>j <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22187	22284	
==>perated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>j <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	724	825	
==>s SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on wh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	724	825	
==>s SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on wh <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12950	13044	
==>t2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12950	13044	
==>t2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15041	15138	
==>Rosetta Native Interface (RNI), which applications invoke and which
multiple interchangeable "Engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15041	15138	
==>Rosetta Native Interface (RNI), which applications invoke and which
multiple interchangeable "Engi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3193	3342	
==>ext;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3091	3236	
==>ext;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23065	23150	
==>6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api::Exception: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2956	3068	
==>span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.ma <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2956	3068	
==>span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1246	1347	
==>h (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1246	1347	
==>h (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	284	387	
==>has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.mark <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	284	387	
==>has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.mark <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4515	4630	
==>an be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4765	4880	
==>an be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6065	6172	
==>iable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # this simplifies th <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2750	2851	
==>m the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolean val <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2750	2851	
==>m the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolean val <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1432	1557	
==>it;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require Fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1399	1524	
==>it;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require Fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	138	258	
==>[^)]* \)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
}


sub match_scalar { }


s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2697	2792	
==>riable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2697	2792	
==>riable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4021	4145	
==>ERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->p <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2972	3083	
==>ERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3862	3979	
==>Test instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{_('@:results')} => $test <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7866	7967	
==>efined($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1550	1671	
==>nly++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2239	2344	
==>ression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2239	2344	
==>ression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1054	1372	
==>lation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod new (Relation::L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	352	453	
==>me = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	352	453	
==>me = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	42	140	
==>essage-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	42	140	
==>essage-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1488	1587	
==>ftlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1328	1427	
==>ftlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	573	668	
==>rns Tree { 
    return $!parent;
}

## --------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	573	668	
==>rns Tree { 
    return $!parent;
}

## --------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5518	5641	
==>fix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5518	5641	
==>fix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	752	851	
==>ed matches could use less stack space.

- Simplify arg list - the functions currently take 8 argum <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8106	8247	
==>34),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8106	8247	
==>34),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18304	18399	
==>reprocessed to hide heredocs, since the content
inside heredocs can possibly confuse further par <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18304	18399	
==>reprocessed to hide heredocs, since the content
inside heredocs can possibly confuse further par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8299	8445	
==>LASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8299	8445	
==>LASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26265	26362	
==>os()> value won't be reset (due to the C</c>
modifier).  Remember to use I<scalar> context.  If yo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2701	2790	
==>ken("close:>", "<prefix::", "nows");
    $optable->addToken("close:}", "<prefix::", "nows" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4587	4767	
==>ft;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6256	6436	
==>ft;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2562	2691	
==>nt <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2562	2691	
==>nt <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19736	19831	
==>reate' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19736	19831	
==>reate' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the Ros <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1128	1270	
==>ift;
    my @chunks = split(/ /, $Config::Config{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    whil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1070	1203	
==>ift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	whil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1273	1369	
==>*@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1273	1369	
==>*@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

met <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1662	1767	
==>urn \@values, $input;
  };
}

## Chapter 8 section 3.2

sub alternate(Array *@p) is exported(:all) {
  ret <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2040	2182	
==>tion {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %se <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2040	2182	
==>tion {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	829	931	
==>TODO - does zip() has additional parameters?
# TODO - document unsupported operations: join, reduce, so <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	829	931	
==>TODO - does zip() has additional parameters?
# TODO - document unsupported operations: join, reduce, so <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14480	14574	
==>xported by default.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14480	14574	
==>xported by default.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13818	13934	
==>lation {

    # First do some optimizing of the order that source relations are
    # combined, so to try and make th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17295	17411	
==>lation {

    # First do some optimizing of the order that source relations are
    # combined, so to try and make th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7756	7868	
==>ent;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7756	7868	
==>ent;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4834	4943	
==>en we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4834	4943	
==>en we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13617	13810	
==>, false
otherwise.

An unary form is expected. See Hash::delete


=item keys

=item kv

=item pairs

=item values

 multi Hash::keys   (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1326	1472	
==>1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - infinite loop
    # |   signa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7998	8140	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8191	8333	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_ru <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10341	10446	
==>OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $ite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10341	10446	
==>OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $ite <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5553	5639	
==>elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5553	5639	
==>elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5246	5368	
==>fix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5246	5368	
==>fix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dum <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19185	19291	
==>lf: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->send('add_method' => ( <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	827	963	
==>l as attributes
                  attrs => [ map { $self->generate_attribute($_) }
                             $class->attributes->membe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5321	5422	
==>e), which is also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclas <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	986	1085	
==>gil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <sig <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	986	1085	
==>gil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <sig <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29363	29491	
==>send('add_method' => (
    # method label
        symbol->new('dispatcher'),
    # method body
        method->new(
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16636	16754	
==>return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Creat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16636	16754	
==>return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Creat <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1451	1549	
==>tags have been "selected", either by giving 
them to the unexported C<Log::Selective::select> funct <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1451	1549	
==>tags have been "selected", either by giving 
them to the unexported C<Log::Selective::select> funct <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6356	6463	
==>kg_type
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL::PIL1CPerl5::NodesInfo::node_named{'$na <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31724	31835	
==>$e->create('$temp' => $e->get('$counter'));
                    $e->set('$counter' => $e->get('$counter')->incre <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	123	284	
==>,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            descrip <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	123	284	
==>,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            descrip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22783	22921	
==>rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23062	23200	
==>rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7374	7522	
==>object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19394	19542	
==>object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close', <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8794	8953	
==>s not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8794	8953	
==>s not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_he <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	302	411	
==>alues.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&join := &jo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	642	745	
==>aN
    no warnings 'numeric';
    return num->new((shift)->to_native() + 0);
}

# implement comparitor m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6544	6663	
==>e($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } el <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6544	6663	
==>e($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3111	3233	
==>e - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.rem <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3111	3233	
==>e - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.rem <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1315	1428	
==>HIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependenci <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	875	988	
==>HIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependenci <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9914	10011	
==>return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish()) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9914	10011	
==>return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish()) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	126	229	
==>uire Perl6::Run::OnPerl5::X1::Prelude;

sub initialize {
    Perl6::Run::OnPerl5::X1::Api::p6_initialize <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	956	1053	
==>e;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7719	7870	
==>][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Anal <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7719	7870	
==>][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Anal <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	124	227	
==>Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	124	227	
==>Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8797	8917	
==>hr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(90 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8797	8917	
==>hr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(90 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7838	7938	
==>How did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7838	7938	
==>How did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8415	8521	
==>(not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8415	8521	
==>(not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	296	449	
==>documents not supported\n" if $doc;
            $doc = {};
            next;
        };
        /^(\S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	405	537	
==>ms
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    proces <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	405	537	
==>ms
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    proces <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18374	18482	
==>S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14795	14903	
==>S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1076	1172	
==>sult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1076	1172	
==>sult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $de <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2660	2816	
==>s topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2660	2816	
==>s topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2141	2261	
==>re} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$remai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2058	2172	
==>re} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$remai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2436	2847	
==>butes of every Relation::Example object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example

###########################################################################
###########################################################################
=x

class Relat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	918	1043	
==>UPER::can($key);
	}

	sub get {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1274	1377	
==>pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1274	1377	
==>pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list c <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	666	808	
==>r path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	666	808	
==>r path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3164	3413	
==>ce::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3164	3413	
==>ce::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15832	15965	
==>@param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15826	15959	
==>@param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrul <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	344	442	
==>filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: Code $f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	344	442	
==>filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: Code $f <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2557	2658	
==>vilegies.

Note: The only option you'll have to specify is probably --initrd-mnt.

Note: I only tested <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36007	36101	
==>elation::Example and C<$other>; any duplicated tuples appear only once in
the result.  With any <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5147	5261	
==>h->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5147	5261	
==>h->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1187	1282	
==>l::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1187	1282	
==>l::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15679	15829	
==>st be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted informatio <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19912	20062	
==>st be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted informatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5716	5817	
==>le documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5519	5614	
==>le documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1448	1543	
==>ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1588	1683	
==>ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5020	5143	
==>=> $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5213	5336	
==>=> $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1597	1789	
==>oodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1597	1789	
==>oodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7035	7189	
==>rap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7035	7189	
==>rap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1028	1149	
==>heme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1028	1149	
==>heme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-H <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5497	5606	
==>$cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5497	5606	
==>$cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <= <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2148	2256	
==>ruct  {  <construct_but_not_alias> <quantifier>  }

rule simple_term  {
    <metasyntactic_token> | <commit_s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3144	3244	
==>r1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3337	3437	
==>r1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:] <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3991	4124	
==>ie "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3991	4124	
==>ie "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31405	31523	
==>ple, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be distributed with a Template modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31405	31523	
==>ple, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be distributed with a Template modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1823	1937	
==>ar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1823	1937	
==>ar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $mat <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15375	15467	
==>TML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15375	15467	
==>TML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6476	6670	
==>->{fixity} $op->{assoc} */\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_gra <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1503	1665	
==>.superclasses){
            #    take $class.subscriptions;
            #}
        }
    }
}

role Class::Events::Subscriber {
    use Set;
    has Set $.subscript <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15771	15871	
==>uage interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15771	15871	
==>uage interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, an <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10973	11080	
==>=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=ite <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10973	11080	
==>=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=ite <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6518	6643	
==>Cannot determine author info from $file\n";
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9448	9556	
==>pairs also called fields, which
may be repeated, and which are printed in a particular order.  The
field name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9448	9556	
==>pairs also called fields, which
may be repeated, and which are printed in a particular order.  The
field name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22731	22826	
==>C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22731	22826	
==>C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	729	836	
==>m $LANG to auxilliary code in that
# language.
Has($?CLASS, "code", "Str");

# corresponding reverse attribu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4793	4915	
==>r(Params::Check->last_error), return;

    if( File::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        er <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	2	126	
==>/usr/bin/pugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	2	126	
==>/usr/bin/pugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35149	35244	
==>se methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35149	35244	
==>se methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translato <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20656	20747	
==>nt) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L<ht <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20656	20747	
==>nt) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L<ht <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	131	238	
==>nings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	131	238	
==>nings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#u <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18011	18112	
==>it (  Str $delimiter ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 multi Str::split ( Rul <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2571	2676	
==>ed.

This program is Free Software, and may be used, distributed and modified under 
the same terms as Per <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2571	2676	
==>ed.

This program is Free Software, and may be used, distributed and modified under 
the same terms as Per <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1303	1414	
==>.
  - perhaps serve as a reference implementation for a while.  By
  sacrificing ease of installation and portab <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8232	8342	
==>in
C<$ENV{PATH}> that can be used to execute F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11352	11501	
==>ture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11631	11780	
==>ture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4329	4420	
==>ad2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4579	4670	
==>ad2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17260	17391	
==>_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @per <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17260	17391	
==>_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @per <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2621	2728	
==>sed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2621	2728	
==>sed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	804	934	
==>: ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	804	934	
==>: ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1734	1841	
==>@_;
  $self->parse if $self->{stack};
  return $self->{tree};
}


sub nparen {
  my ($self) = @_;
  $self->p <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	679	792	
==>d
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoc <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	679	792	
==>d
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoc <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11729	11879	
==>P1 = $P0(mob)
    unless $P1 goto end
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1.to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11376	11595	
==>, { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'qu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11376	11595	
==>, { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'qu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15456	15552	
==>eds between its different
users, such as their preferred language of communication, or their
priv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15456	15552	
==>eds between its different
users, such as their preferred language of communication, or their
priv <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7325	7446	
==>QUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7325	7446	
==>QUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STR <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6617	6720	
==>alue is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a URL and st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6617	6720	
==>alue is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a URL and st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1017	1151	
==>ule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1017	1151	
==>ule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6770	6891	
==>)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Rules <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6545	6655	
==>)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Rules <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18179	18278	
==>be
looking at.

This section describes the rather complex algorithm that
Module::Compile uses.

Firs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18179	18278	
==>be
looking at.

This section describes the rather complex algorithm that
Module::Compile uses.

Firs <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11793	11912	
==>another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11793	11912	
==>another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2002	2107	
==>anted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2002	2107	
==>anted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2754	2851	
==>$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2754	2851	
==>$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=ite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5389	5602	
==>itution>
            { return { 
                    substitution => $/{'Pugs::Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1191	1286	
==>Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1191	1286	
==>Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYN <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7498	7592	
==>(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1323	1417	
==>(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Gramma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5910	6166	
==>n") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                ta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5910	6166	
==>n") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                ta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3688	3787	
==>vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3688	3787	
==>vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16295	16437	
==>tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/i;

#               print STD <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17123	17233	
==>Now write to formats
        for my $script (sort keys %$failedtests) {
          $Curtest = $failedtests->{$sc <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1244	1346	
==>------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installat <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1084	1186	
==>------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13667	13766	
==>e and the perl compiler have an overly friendly
  relationship.  There may end up being a gotcha, wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2073	2201	
==>: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2073	2201	
==>: "$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	674	782	
==>ast = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unle <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	674	782	
==>ast = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unle <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	296	431	
==>) = @_;
    (defined $name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name => $name,
        t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1971	2171	
==>my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            push @body => $state <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	348	463	
==>union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	348	463	
==>union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1366	1501	
==>es {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => jo <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	704	838	
==>es {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => jo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4409	4572	
==>cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the installation
            ### do this AFTER installing, duh!
            $i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26010	26164	
==>elf;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp::Parser::flags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5742	5844	
==>ick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5742	5844	
==>ick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17452	17587	
==>ar => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13873	14008	
==>ar => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32595	32689	
==>rpose is to convert Message objects on demand into user-readable
message strings, using data fr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32595	32689	
==>rpose is to convert Message objects on demand into user-readable
message strings, using data fr <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1470	1571	
==>_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1470	1571	
==>_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1942	2052	
==>\{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1942	2052	
==>\{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7431	7531	
==>, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7431	7531	
==>, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3108	3209	
==>ars)=($tmpvars) }; \$__v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1046	1144	
==>er->FETCH('::Test')->FETCH('::Skip')->new(
                '$.description' => $params{'$.descriptio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	304	409	
==>new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $clas <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	724	823	
==>m (compiler + interpreter or equivalent).

=head1 SYNOPSIS

    use Blondie::Backend::Foo; # is-a Bl <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1773	1867	
==>or is supported.

=head1 CAVEATS

This is an experimental, pre-alpha development snapshot.  The <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3054	3180	
==>circ"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3054	3180	
==>circ"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # sma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8716	8832	
==>rint \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9551	9667	
==>rint \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{ca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1164	1259	
==>' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..In <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1164	1259	
==>' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..In <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2345	2474	
==>atal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2403	2532	
==>atal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	255	356	
==>pher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	255	356	
==>pher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2015	2194	
==>ude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2232	2411	
==>ude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19142	19250	
==>p::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_p5_code {
    my($code)=@_;
    eval_p5_log_code( <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1721	1944	
==>t) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1721	1944	
==>t) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15885	15973	
==>er

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15885	15973	
==>er

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3765	3885	
==>{
      $next = shift @stack;
      $d += $next->(), redo if ref($next) eq "CODE";
    }

    @stack = @{ $self->{tree} } <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2064	2198	
==>rn;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2042	2176	
==>rn;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4432	4543	
==>Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4432	4543	
==>Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1794	1936	
==>tch = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1734	1873	
==>tch = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{stat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3153	3262	
==>are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3153	3262	
==>are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=ite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10081	10214	
==>st - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match failed

or to a hashref containing:

    bool  - <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	947	1060	
==>%opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @w <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	947	1060	
==>%opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @w <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1327	1432	
==>ds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1327	1432	
==>ds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10996	11092	
==>m B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10996	11092	
==>m B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	788	914	
==>ape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode fo <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	788	914	
==>ape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4820	4944	
==>0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4808	4932	
==>0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7881	8054	
==>exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11358	11531	
==>exclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1253	1377	
==>at it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4731	4855	
==>at it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Rela <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	586	713	
==>{

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	586	713	
==>{

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables us <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9479	9572	
==>rue if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.prop <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9479	9572	
==>rue if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.prop <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1184	1449	
==>$t = $sexpr->[$i];
            if (ref($t) eq 'ARRAY') {          
                push @t => $self->evaluate($t);
                next;
            }         
            
            # deal with strings   
            if ($t eq '"') {
                if ($in_strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21966	22091	
==>} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18387	18512	
==>} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	794	900	
==>- Simplify arg list - the functions currently take 8 arguments.

=cut

use strict;
use warnings;
#use <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1331	1440	
==>gc.h>

typedef int IV;
typedef FILE * GV;
typedef char * PV;

int prel_printf (GV f, const PV format, const PV <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6610	6802	
==>16, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Refer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6610	6802	
==>16, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Refer <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2716	2900	
==>e dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist e <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23206	23324	
==>F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,Fx,F1,[C|B0],B1,E0,E1).

rmGlobal(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2775	2883	
==>rd line\n4th line\n5th line\n".
        "6th line\n7th line\n8th line\n9th line\n10th line\n" ],
   );
   for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3864	3969	
==>compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4081	4186	
==>compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39139	39276	
==>ser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class specific code
    }
    else {
      # elsewh <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	740	904	
==>}

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(map { &$f($_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	452	575	
==>}

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8621	8721	
==>r::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2446	2546	
==>r::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15677	15782	
==>union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19154	19259	
==>union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Rela <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1794	1940	
==>>{array} )
        if exists $n->{array};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29975	30070	
==>ey just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34527	34622	
==>ey just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23069	23166	
==>user.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23069	23166	
==>user.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13358	13472	
==>t => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13358	13472	
==>t => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recur <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7494	7615	
==>sub build_indexes {
    my $path     = shift;
    my $index    = shift;
    
    return unless exists $index->{_dirs} or e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	82	187	
==>ss ();
use base 'Object::Accessor';

my %config;
my $Cwd = Path::Class::dir(cwd());

use constant SUBDIR_O <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5626	5751	
==>a"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(9 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5626	5751	
==>a"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(9 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4462	4602	
==>n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4602	4742	
==>n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3064	3164	
==>.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (wit <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3064	3164	
==>.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (wit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5537	5667	
==>";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5759	5889	
==>";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2947	3142	
==>);                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2947	3142	
==>);                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16840	16946	
==>archy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16840	16946	
==>archy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute de <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6851	6946	
==>ts is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6851	6946	
==>ts is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3140	3253	
==>, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Failed  Li <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3197	3300	
==>t write to \"$filename\": $!\n";
  close $fh or
    die "Couldn't close \"$filename\": $!\n";
}

sub cle <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22575	22750	
==>, $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "format STDOU <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6515	6658	
==>$val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6515	6658	
==>$val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16648	16761	
==>tr }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16648	16761	
==>tr }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new b <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13978	14077	
==>keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent order, but the order
will <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1310	1408	
==>d) > 1;
    my $extracted2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimited( "/" . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1111	1255	
==>_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1111	1255	
==>_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	283	535	
==>lues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	283	535	
==>lues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2486	2615	
==>'<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2486	2615	
==>'<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7812	7922	
==>, &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7870	7980	
==>, &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4198	4303	
==>ol { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4198	4303	
==>ol { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5170	5400	
==>ide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5170	5400	
==>ide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the valu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2305	2462	
==>r %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2305	2462	
==>r %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3762	3959	
==>text
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we hav <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4226	4423	
==>text
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we hav <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	956	1207	
==>t( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	957	1208	
==>t( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12841	12979	
==>ver => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for * <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12841	12979	
==>ver => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for * <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	790	888	
==>create a store for single elements (Span::Singleton)
    * use binary search instead of linear sear <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	790	888	
==>create a store for single elements (Span::Singleton)
    * use binary search instead of linear sear <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2034	2180	
==>> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys % <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2034	2180	
==>> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys % <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18411	18509	
==>tly the right input
format for Node.new(), by which you can create an identical Node (with
child No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18411	18509	
==>tly the right input
format for Node.new(), by which you can create an identical Node (with
child No <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1049	1151	
==>ate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6 <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1049	1151	
==>ate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1889	2004	
==>_hash {
  my ( $self ) =  @_;
  return $self->hash();
}

sub get_array {
  my ( $self ) =  @_;
  return $self->captu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21741	21846	
==>'break'><no_LineTerminator_here><Identifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4406	4568	
==>lf)->{'%:methods'}->{$label};
        },
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($sel <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2776	2908	
==>ound;
    state $round_up = 1;

    # alternate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	555	676	
==>port {
    my($class, $filename) = @_;
    $Conf = $class->read($filename);
}

sub pretty_print {
    # ah yes so THAT's w <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3135	3232	
==>on of the compiled re op tree the native
compiler creates, but which we obviously don't have).

Wh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	193	323	
==>age();


for my $arg (@ARGV ) {
    
    my($key,$val) = split ':', $arg;
    die usage() if !$key or !$val;
   
   
    my $pat  = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40542	40639	
==>ead2 Throwing Warnings and Errors

There are three methods you can use when a problem arises.  The <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2542	2653	
==>both sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2542	2653	
==>both sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = <==
2	/Users/nnunley/pugs/util/testgraph.pl	1141	1239	
==>$Config{cssfile}]

See also:
   util/yaml_harness.pl  - produce the data for this tool
   util/cata <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	672	784	
==>native types";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $class;
}

# nati <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19692	19800	
==>atement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <ThrowStatement>
    | <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	586	687	
==>haviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	586	687	
==>haviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	89	200	
==>in terms of others, or of Pugs::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementa <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1200	1315	
==>$Config{cc} may contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run(" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1136	1242	
==>$Config{cc} may contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run(" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	85	222	
==>use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

my $alts = LoadFile( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1792	1899	
==>%!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1792	1899	
==>%!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9495	9616	
==>ket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9495	9616	
==>ket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1014	1127	
==>t.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1014	1127	
==>t.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subset <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1058	1167	
==>piler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1058	1167	
==>piler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6172	6335	
==>array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fin <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4674	4837	
==>array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $fin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43638	43811	
==>her' => symbol->new(':canonical')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_met <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3669	3822	
==>$matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3669	3822	
==>$matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	185	292	
==>@ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1551	1657	
==>bLValue'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1294	1416	
==>ber'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuilder->FETCH('::Tes <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10286	10379	
==>switches>

  my @switches = $self->_cleaned_switches( @switches_from_user );

Returns only def <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13902	13994	
==>git(D), octdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"01234567") <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4763	4864	
==>elf->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($self,$fname)=@_;
    ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10400	10516	
==>lse {
	    $runperl .= ' "-I../lib"'; # doublequotes because of VMS
	}
    }
    if ($args{switches}) {
	local $Level <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2602	2708	
==>plement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2602	2708	
==>plement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4076	4188	
==>s class method constructs a new cipher object.  The options passed to the 
C<new> constructor generally include s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4076	4188	
==>s class method constructs a new cipher object.  The options passed to the 
C<new> constructor generally include s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4532	4638	
==>eturns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

R <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4532	4638	
==>eturns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19142	19270	
==>n unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19421	19549	
==>n unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2081	2231	
==>dir prefix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after ins <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4837	4962	
==>tail
            my $tmp = $$m->{tail};
            $match = $tmp if defined $tmp;  # match failure doesn't kill $match (PCR " <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2436	2557	
==>";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out = <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2436	2557	
==>";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2540	2634	
==>represents the query string portion of a requested URI.
It provides the following methods:

=ov <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2540	2634	
==>represents the query string portion of a requested URI.
It provides the following methods:

=ov <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1703	1803	
==>ebug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1703	1803	
==>ebug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12898	13028	
==>strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle wor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12898	13028	
==>strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle wor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34537	34642	
==>ray ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34537	34642	
==>ray ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names <==
2	/Users/nnunley/pugs/util/config_h.pl	1228	1331	
==>th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) => m ()
main = $([| return () |])
. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	608	704	
==>print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	653	748	
==>print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22432	22535	
==>nerally, when a program package would return a code-key to indicate a
condition, often it will also prov <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22432	22535	
==>nerally, when a program package would return a code-key to indicate a
condition, often it will also prov <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	263	378	
==>$event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	263	378	
==>$event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public an <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1229	1353	
==>ting a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONS <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1229	1353	
==>ting a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONS <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13133	13270	
==>to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13133	13270	
==>to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3439	3539	
==>peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3439	3539	
==>peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8949	9067	
==>urned to carry the same magic.



overload in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8654	8769	
==>urned to carry the same magic.

overload in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bles <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18884	18993	
==>le Rosetta D is very different from SQL, it
is fully capable of modelling anything in the real world accuratel <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18884	18993	
==>le Rosetta D is very different from SQL, it
is fully capable of modelling anything in the real world accuratel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	929	1067	
==>=> 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Len <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	929	1067	
==>=> 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Len <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11945	12062	
==>ves }; 

    $self->registered_alternatives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38204	38311	
==>ssibly empty) Template text string in
its positional parameter $text (a string), and a Message Variables has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38204	38311	
==>ssibly empty) Template text string in
its positional parameter $text (a string), and a Message Variables has <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5123	5226	
==>s{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5123	5226	
==>s{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7793	7906	
==>hild is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $trav <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7793	7906	
==>hild is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $trav <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13148	13243	
==>:KeyedText" package serves only as the name-sake
representative for this whole file, which can b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13148	13243	
==>:KeyedText" package serves only as the name-sake
representative for this whole file, which can b <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1602	1718	
==>ub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1513	1611	
==>ub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_ <==
2	/Users/nnunley/pugs/util/drift.pl	270	372	
==>) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Instanc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30730	30832	
==>dule has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30730	30832	
==>dule has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of th <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1771	1889	
==>$exp) {
      warn "Expected:\n"; print STDERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oops, you faile <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7487	7634	
==>eturn $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7487	7634	
==>eturn $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.c <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11628	11735	
==>ift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $self->reduce($ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12006	12113	
==>";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyon <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12006	12113	
==>";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1089	1272	
==>recedence => 'equal',
        other => 'circumfix:<( )>',
    );
    __PACKAGE__->add_rule( 
        name => '[',
        name2 => ']',
        assoc => 'left',
        precedence => ' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	425	530	
==>l tagged with
#     #SourceCharacter but not ...
#     But <SourceCharacter> isnt called for all character <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12174	12284	
==>ush_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12174	12284	
==>ush_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the sp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10421	10525	
==>s'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$chk\n";
    my $keys = join(" ", <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24438	24537	
==>Discussed elsewhere.

 * regmust      string (pointer into program) that match must include, or NULL <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7467	7613	
==>artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7524	7670	
==>artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18	133	
==>URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRAN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18	133	
==>URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRAN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24450	24564	
==>self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20871	20985	
==>self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8235	8349	
==>te->param(parent => $index->{_parent} || "../");
    $template->param(directory => $path);
    $template->param(dir <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	132	233	
==>nnte ein term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in Pe <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10418	10520	
==>atal to insert an item which is already inserted.  In fact,
this is commonly used for directed graph tr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10418	10520	
==>atal to insert an item which is already inserted.  In fact,
this is commonly used for directed graph tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13894	13996	
==>>add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8100	8202	
==>>add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	563	663	
==>ocale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs bar <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	563	663	
==>ocale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs bar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15304	15403	
==>p[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n= <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19462	19561	
==>p[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n= <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2459	2598	
==>ct";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "Expected $.exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16044	16153	
==>ader indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check if document is m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16044	16153	
==>ader indicates the date and time at which the resource was last
modified. I<E.g.>:

  # check if document is m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5425	5543	
==>e => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.mu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5425	5543	
==>e => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.mu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2470	2588	
==>message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2470	2588	
==>message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3005	3103	
==>ods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3005	3103	
==>ods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18821	18919	
==>anonymous hash
definition.  While it is obvious that people who would be writing the text
would hav <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18821	18919	
==>anonymous hash
definition.  While it is obvious that people who would be writing the text
would hav <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25831	25931	
==>d will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30383	30483	
==>d will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2433	2539	
==>E { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possible

=he <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2433	2539	
==>E { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possible

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	524	646	
==>oin(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	524	646	
==>oin(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime param <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6167	6289	
==>grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6167	6289	
==>grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21318	21415	
==>andlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21318	21415	
==>andlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6758	6902	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6951	7095	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1249	1350	
==>Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) && <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1249	1350	
==>Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) && <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1127	1331	
==>{
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1127	1331	
==>{
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1721	1839	
==>el) == $bit::TRUE) {
            #warn "calling method (" . $label->to_native . ")";
            return $methods->fetch <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3492	3593	
==>al 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must firs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3492	3593	
==>al 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must firs <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	484	580	
==>ent v" . VERSION . " started.\n";

setup_compression() if $compression_wanted;

my %request = (up <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21144	21240	
==>led. This means that people who install your
module distribtution do not need to have the compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21144	21240	
==>led. This means that people who install your
module distribtution do not need to have the compile <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1788	1911	
==>ation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $l <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1788	1911	
==>ation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $l <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11671	11758	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@aut <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11671	11758	
==>AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@aut <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1920	2090	
==>cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1920	2090	
==>cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24101	24219	
==>KN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20522	20640	
==>KN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nex <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2643	2745	
==>ule is then incorporated into the match.  XXX it is not clear
that this is the optimal interface for th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2643	2745	
==>ule is then incorporated into the match.  XXX it is not clear
that this is the optimal interface for th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41182	41283	
==>to the same files as
program code, rather than requiring separate files.

=item Stevan Little (C<steva <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41182	41283	
==>to the same files as
program code, rather than requiring separate files.

=item Stevan Little (C<steva <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1000	1253	
==>v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      oc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1000	1253	
==>v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      oc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13601	13710	
==>itch condition not recognized

=item RPe_SWBRAN (-7)

Switch (?(condition)... contains too many branches

=ite <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26883	26977	
==>u can use the C<-d> switch in the F<prove> utility.

=item C<HARNESS_FILELEAK_IN_DIR>

When set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1606	1709	
==>ken>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1606	1709	
==>ken>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs:: <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4163	4272	
==>if  ($arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15834	15936	
==>sion>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	257	361	
==>IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	257	361	
==>IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1712	1847	
==>h;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1772	1907	
==>h;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	287	413	
==>t = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	287	413	
==>t = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9240	9393	
==>e\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9240	9393	
==>e\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1548	1676	
==>nt "Writing .packlist equiv...\n";
            ### write a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$Data -C $me <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4915	5045	
==>,
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4915	5045	
==>,
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1118	1216	
==>L</SECURITY> section for details.  (In particular, 
note that the serious insecurities plaguing WEP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1118	1216	
==>L</SECURITY> section for details.  (In particular, 
note that the serious insecurities plaguing WEP <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21863	21962	
==>id
for a Relation to have zero attributes, though such a Relation can have no
more than a single tup <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26415	26514	
==>id
for a Relation to have zero attributes, though such a Relation can have no
more than a single tup <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40968	41064	
==>dard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40968	41064	
==>dard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7856	8045	
==>t);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        sa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7856	8045	
==>t);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        sa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	480	626	
==>ions I<between> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last chara <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	480	626	
==>ions I<between> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last chara <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21362	21464	
==>onding attribute value.

Every Relation attribute has a name that is distinct from the other
attributes <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25914	26016	
==>onding attribute value.

Every Relation attribute has a name that is distinct from the other
attributes <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1787	1891	
==>can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensiv <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1787	1891	
==>can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensiv <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2138	2248	
==>=> list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2138	2248	
==>=> list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1182	1312	
==>ipt_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can't open '$script_file' for input: $!\n";
    retu <==
2	/Users/nnunley/pugs/util/grokprims.pl	288	399	
==>,
    list  => 'list infix',
    chain => 'chaining infix',
);

my @ops;

while (<>) {
  last unless /^\\\\n[^"] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4794	4967	
==>$i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4794	4967	
==>$i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_en <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5251	5379	
==>{
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5251	5379	
==>{
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3197	3328	
==>pendency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print D <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3661	3792	
==>pendency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37156	37253	
==>=over

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a Perl p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37156	37253	
==>=over

=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a Perl p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15561	15679	
==>queue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15561	15679	
==>queue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $cha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	87	187	
==>.e. state that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is app <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	87	187	
==>.e. state that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is app <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13218	13345	
==>n.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $prh_add <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13218	13345	
==>n.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $prh_add <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	151	284	
==>c
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	468	567	
==>rovide reusable code for driving events, and implements a
# "named event" mechanism, for Class::Publ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1950	2089	
==>n ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1950	2089	
==>n ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11635	11753	
==>:tail;
}
{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15006	15109	
==>head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the program (or a packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15006	15109	
==>head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the program (or a packa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4599	4699	
==>ttp://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4599	4699	
==>ttp://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7430	7531	
==>er operators take a list of match operators, and return a new 

match operator.



A ruleop() function <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7177	7275	
==>er operators take a list of match operators, and return a new 
match operator.

A ruleop() function <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1125	1251	
==>? join( ' ', $args->{name}, @_ )
    	: join( ' ', @_ );
}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30318	30418	
==>e user.

Each Template module ideally comes as part of a set, at least one member
large, with each se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30318	30418	
==>e user.

Each Template module ideally comes as part of a set, at least one member
large, with each se <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16744	16900	
==>ata;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21842	21998	
==>ata;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4124	4272	
==>us, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4124	4272	
==>us, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6196	6335	
==>hr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6196	6335	
==>hr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2490	2610	
==>( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2395	2510	
==>( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10142	10242	
==>, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10142	10242	
==>, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2355	2453	
==>p over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2355	2453	
==>p over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the r <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2437	2566	
==>$n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Nu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2437	2566	
==>$n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Nu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5394	5510	
==>tderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_exechook_insert ()
{
  if(previous_exec_hook != NULL <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11393	11564	
==>tersection;

###########################################################################

method difference (Relation::Example $other!) returns Relation::Example {

    die <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4763	4905	
==><?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws>? 
        \) <?p6ws>?
    <code> 
        {
	 eval Emitter: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	46	145	
==>Closure;

package method;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5820	5929	
==>>> <IdentifierName>
}
rule IdentifierName {  # see 7.6
      <IdentifierStart>
    | <IdentifierName> <Identif <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16282	16389	
==>"p6rule"
    .param pmc mob
    .local pmc optable
    optable = find_global "PGE::P6Rule", "$optable"
    $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2019	2110	
==>:macif(%?CONFIG{'num_width'} == 128,'subset num of num128 where { true }');

Helpers::macif( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8506	8612	
==>nce


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8506	8612	
==>nce


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12865	12996	
==>Elision :words {  # see 11.1.4
      <','>
    | <Elision> <','>
}
rule ObjectLiteral :words {  # see 11.1.5
      <'{'> <'}'>
    | <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18222	18344	
==>ls);
    }
    my $where = $pkg;  $where = "root namespace" if $where eq "";
    my $tell = 0 ? "confess" : "croak";
    $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5990	6118	
==>{
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5990	6118	
==>{
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8270	8383	
==>s correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each time you ei <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8270	8383	
==>s correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each time you ei <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1526	1643	
==>ernal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailab <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1526	1643	
==>ernal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7436	7558	
==>size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7436	7558	
==>size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23919	24000	
==>1, replace_at_n_if_undef(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replace,[H|T], <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6369	6510	
==>7),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(82 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6369	6510	
==>7),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(82 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1134	1302	
==><sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1134	1302	
==><sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$v <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5874	6008	
==>rn @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5874	6008	
==>rn @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5998	6106	
==>r)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A colle <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5998	6106	
==>r)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A colle <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3103	3211	
==>xpected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3161	3269	
==>xpected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8825	8960	
==>maybe;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the package <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	81	200	
==>::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV o <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	437	550	
==>ion about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Ser <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	437	550	
==>ion about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Ser <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	14	142	
==>ck_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	14	142	
==>ck_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return bloc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5482	5682	
==>[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5482	5682	
==>[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2300	2394	
==>he subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2300	2394	
==>he subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1933	2101	
==>match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1933	2101	
==>match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3496	3658	
==>t;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3496	3658	
==>t;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2565	2682	
==>tainer ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2565	2682	
==>tainer ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7176	7299	
==>an $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7176	7299	
==>an $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -In <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12606	12712	
==>o events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseud <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12606	12712	
==>o events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseud <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2502	2622	
==>$warn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for my $stage (reverse $self->_stages) {
	last <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18922	19052	
==>t @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20280	20410	
==>t @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	991	1111	
==>rom {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	991	1111	
==>rom {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20518	20636	
==>ange the list in order of preference.  When you
open a program, it will search for language files specific to the progr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20518	20636	
==>ange the list in order of preference.  When you
open a program, it will search for language files specific to the progr <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1154	1269	
==>{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\]])/) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3976	4093	
==>xists $values{$key};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28116	28214	
==>the switches used to invoke perl on
each test.  For example, setting C<HARNESS_PERL_SWITCHES> to C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1011	1121	
==>_ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by factoring out the "not ". <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21960	22059	
==>der they should be consulted.  When
Locale::KeyedText is told to fetch the user message for a certai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21960	22059	
==>der they should be consulted.  When
Locale::KeyedText is told to fetch the user message for a certai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6866	6989	
==>itle ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6866	6989	
==>itle ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20516	20622	
==>un;
}

sub p6_container_for_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META->new()" if $na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23190	23320	
==>my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19611	19741	
==>my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3313	3421	
==>ield} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3313	3421	
==>ield} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!hea <==
2	/Users/nnunley/pugs/util/func_refact.pl	2858	2970	
==>f newly selected functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    pr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	500	606	
==>rap exercise.

This code is currently completely in flux.  It is simultaneously being
overhauled, cleaned u <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5455	5538	
==>um < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%6 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5455	5538	
==>um < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%6 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3014	3128	
==>t,
	   );
	} || die "$@\n" . Data::Dumper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6505	6608	
==>Note: this isn't quite as fancy as Test::More::like().

sub like   ($$@) { like_yn (0,@_) }; # 0 for -
s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15403	15497	
==>pported level is simply mapped char for
char to the desired level. However, attempting to stuff <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3792	3879	
==>ed_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W, Z <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7938	8040	
==>>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delet <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7938	8040	
==>>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delet <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13844	13967	
==>{
      if($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the serv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13844	13967	
==>{
      if($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the serv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5442	5680	
==>as_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$curren <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7204	7442	
==>as_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$curren <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2450	2553	
==>$other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2450	2553	
==>$other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2687	2795	
==>_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.v <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2687	2795	
==>_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14082	14193	
==>the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14082	14193	
==>the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traf <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	288	488	
==>my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	288	488	
==>my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	74	194	
==>ssert;

use strict;
require Exporter;
use vars qw($VERSION @EXPORT @ISA);

$VERSION = '0.02';

@ISA = qw(Exporter);
@EXPO <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13777	13923	
==>n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13777	13923	
==>n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11074	11194	
==>ethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.curr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11074	11194	
==>ethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.curr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6943	7132	
==>mat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6943	7132	
==>mat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$n <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	135	233	
==>le::Install::Makefile::Version;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38255	38365	
==>@kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch';

    for (@kids) {
      $_ = $self->{rx}->object($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1070	1167	
==>ile) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1070	1167	
==>ile) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	909	1020	
==>=~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpected compilation failure. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6189	6305	
==>5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6189	6305	
==>5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12685	12836	
==>num_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my %as_str_handlers =
    ( undef => sub { Carp::carp("p6_as_s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13665	13827	
==>rce =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13665	13827	
==>rce =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21365	21466	
==>n application written to it should easily port
to alternative relational database engines with minimal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21365	21466	
==>n application written to it should easily port
to alternative relational database engines with minimal <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15766	15871	
==>s a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2163	2268	
==>s a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	526	623	
==>() returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	526	623	
==>() returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7313	7461	
==>@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  file => $_ . ".html",
               name <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3930	4043	
==>if not defined $length;
  return (substr $target, $pos, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3342	3485	
==>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4191	4334	
==>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7705	7806	
==>my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $resul <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7705	7806	
==>my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $resul <==
2	/Users/nnunley/pugs/util/package-osx.pl	6591	6690	
==>tmatch.3
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1956	2079	
==>=> -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1956	2079	
==>=> -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2340	2462	
==>ate ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2480	2602	
==>ate ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11396	11504	
==>ary->new("int"),
			type::operator::nullary->new("bool"),
		),
	),
);


package main;

use strict;
use warnin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27986	28084	
==>_attr (symbol new @:MRO)) is_empty) and 
     ($self: set_attr ((symbol new @:MRO) ($self: send (_m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4392	4497	
==>whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_pat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4392	4497	
==>whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1623	1760	
==>$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_";
        $rule_name = " <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13887	13994	
==>npod = catfile($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1663	1769	
==>$one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1663	1769	
==>$one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	105	212	
==>most common medium.  It stores a finite string and a position
within that string, and it provides the fundam <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	105	212	
==>most common medium.  It stores a finite string and a position
within that string, and it provides the fundam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3491	3629	
==>urn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3684	3822	
==>urn {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1765	1892	
==>tax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1765	1892	
==>tax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19680	19777	
==>rds, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19680	19777	
==>rds, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosett <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15043	15148	
==>ld {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15043	15148	
==>ld {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13714	13819	
==>ount $initrd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ensure => sub { -r $initrd_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1793	1917	
==>de::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::N <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1793	1917	
==>de::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::N <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8529	8702	
==>l};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8529	8702	
==>l};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5975	6068	
==>while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::a <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6545	6638	
==>while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8811	8910	
==>atim>

This event handles the entire verbatim string.

=item I<string>

This event processes raw str <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8811	8910	
==>atim>

This event handles the entire verbatim string.

=item I<string>

This event processes raw str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10784	10891	
==>n unless $self->link_files( package => $new_alt );
    }

    ### remove this package from the available lis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12537	12650	
==>) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12537	12650	
==>) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	944	1058	
==>racking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/no <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	944	1058	
==>racking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/no <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2906	3001	
==>other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2906	3001	
==>other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3757	3953	
==>hes

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] if defined $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3642	3832	
==>hes
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4470	4611	
==>o"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "fr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4470	4611	
==>o"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "fr <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	225	326	
==>if !(-e catfile($Path, $SID)) { $SID=''; }
    $SID=IDGenerate() if $SID eq '';
    SessionDecode(slur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3007	3099	
==>ethod symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).unio <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3007	3099	
==>ethod symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).unio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1615	1719	
==>ace::Exception {

    # External packages used by the Rosetta::Interface::Exception class, that do export <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1615	1719	
==>ace::Exception {

    # External packages used by the Rosetta::Interface::Exception class, that do export <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5547	5647	
==>e desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5547	5647	
==>e desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5520	5649	
==>it to the existing content of the index
        push @$index_content, $meta;
        
        ### XXX do delayed writes, as an exp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2720	2819	
==>e optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2720	2819	
==>e optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3949	4058	
==>erl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3949	4058	
==>erl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18705	18828	
==>n't use UNIVERSAL::isa because we want to honor isa() overrides
        local($@, $!);  # eval sometimes resets $!
        m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	809	1038	
==>ut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	809	1038	
==>ut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9818	9925	
==>) unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9818	9925	
==>) unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $chi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2992	3140	
==>N
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3209	3357	
==>N
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $fil <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8012	8149	
==>one(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &co <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8012	8149	
==>one(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1231	1328	
==>=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1231	1328	
==>=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3323	3438	
==>$content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3323	3438	
==>$content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6440	6539	
==><$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6440	6539	
==><$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1334	1473	
==>hod base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  // <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1334	1473	
==>hod base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  // <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	713	806	
==>nge If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	713	806	
==>nge If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10603	10750	
==>mod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4077	4161	
==>e-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4077	4161	
==>e-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14076	14219	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14355	14498	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	501	592	
==>e specialised processing instructions may sub-class this module or
provide special behaviour <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	501	592	
==>e specialised processing instructions may sub-class this module or
provide special behaviour <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3671	3778	
==>sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3671	3778	
==>sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2284	2413	
==>ar'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2295	2424	
==>ar'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20604	20721	
==>ude.pm, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    +$m;
  }
}



sub Pug <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4439	4556	
==>lement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method di <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4439	4556	
==>lement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4954	5071	
==>1)) if $cc;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11861	11977	
==>lf->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17668	17786	
==>y for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blech <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17668	17786	
==>y for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blech <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5566	5692	
==>ame}' exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	952	1080	
==>n Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	952	1080	
==>n Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19531	19625	
==>ariables rather than user-defined
relation variables.  In SQL terms, you create or alter tables <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19531	19625	
==>ariables rather than user-defined
relation variables.  In SQL terms, you create or alter tables <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	856	963	
==>n('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, ma <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	856	963	
==>n('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2430	2614	
==>', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2441	2625	
==>', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16584	16693	
==>arent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16584	16693	
==>arent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the o <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4881	5014	
==>lse {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile";
        $src = <$f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5253	5385	
==>$.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5253	5385	
==>$.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.s <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	541	635	
==>n't interfere with the taintedness of %ENV, this could perturbate tests
$ENV{PERL_CORE} = 1 un <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6750	6846	
==>while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::perl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2644	2741	
==>ase File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2644	2741	
==>ase File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2137	2260	
==>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2137	2260	
==>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	147	270	
==>name          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log::Message <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	783	896	
==>n ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	783	896	
==>n ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!member <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2129	2263	
==>r },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
        ### make the path absol <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27507	27607	
==>behave as though STDOUT were
not a console.  You may need to set this if you don't want harness to
ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6557	6681	
==>rn "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6557	6681	
==>rn "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $st <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11944	12092	
==>line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11944	12092	
==>line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1612	1703	
==>hift;
	my $node = shift;
	return $self->literal_value($node) unless Scalar::Util::blessed($n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3761	3852	
==>-> p5_elemental(W), p5_quantified_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	398	499	
==><AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	398	499	
==><AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote u <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5510	5631	
==>($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5510	5631	
==>($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14865	14960	
==>e.  Some
of them may be absorbed into the core functionality of F<Regexp::Parser>
in the future. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1714	1818	
==>$!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1714	1818	
==>$!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19752	19851	
==>ion data type is immutable.  The value of
a Relation object is determined when it is constructed, an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24304	24403	
==>ion data type is immutable.  The value of
a Relation object is determined when it is constructed, an <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	352	450	
==>ity }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool::Fal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	352	450	
==>ity }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool::Fal <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	438	532	
==>ks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	438	532	
==>ks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4314	4435	
==>tp_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4314	4435	
==>tp_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8212	8318	
==>> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8212	8318	
==>> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	624	764	
==>ied',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        4 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	624	764	
==>ied',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        4 <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	133	280	
==>($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(. <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	133	280	
==>($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18776	18908	
==>("deleteme_code.pl") if -e "deleteme_code.pl";}
my $eval_log_file;
sub eval_p5_log_code {
    my($code)=@_;
    if($Perl6::Run::OnPer <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21393	21489	
==>t>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21393	21489	
==>t>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12033	12142	
==>tr($X::str,$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += length($1);
      TAILCALL(&$c,$noop <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1430	1524	
==>race on \%s{}';
use constant RPe_BGROUP => --$ENUM, 'Reference to nonexistent group';
use const <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3716	3817	
==>d is really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3716	3817	
==>d is really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::i <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	73	194	
==>d BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header re <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	73	194	
==>d BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	837	986	
==>ture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	804	945	
==>ture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13050	13165	
==>ly when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13050	13165	
==>ly when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7610	7727	
==>hc_flags;

    return ($ghc, $ghc_version, $ghc_flags, $self->assert_ghc_pkg($ghc));
}

sub has_ghc_package {
    my ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	254	382	
==>n tests
};

my @tuple_keys = qw{
    build_requires requires recommends bundles
};

sub Meta            { shift        }
sub Meta <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11665	11761	
==>lDigits> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4607	4762	
==>ure => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4467	4613	
==>ure => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_ <==
2	/Users/nnunley/pugs/util/addauthors.pl	934	1050	
==>if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5930	6041	
==>$noop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1367	1532	
==>}
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1367	1532	
==>}
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1448	1553	
==>ubstr( $extracted2, 1, -1 ) if length($extracted2) > 1;
    return Pugs::Runtime::Match->new( { 
        b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1819	1923	
==>ng angle quote ... [$whitespace_before]\n";
                $m = Pugs::Grammar::Term->angle_quoted( subst <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	68	167	
==>se 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	68	167	
==>se 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
* <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7085	7205	
==>my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->visual;
    }
    else {
      join "", "[", $self->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5237	5339	
==>{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2350	2517	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2543	2710	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ru <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	639	748	
==>RNESS_ACTIVE} = 1;

END {
    # For VMS.
    delete $ENV{HARNESS_ACTIVE};
}

# Some experimental versions of O <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2021	2178	
==>e( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2021	2178	
==>e( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5937	6048	
==>[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5937	6048	
==>[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1569	1697	
==>if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1709	1837	
==>if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23962	24102	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24241	24381	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'te <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5237	5369	
==>t;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3737	3869	
==>t;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30986	31085	
==>ch case
this method returns the identity-one Relation or the invocant relation,
respectively.

=item <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35536	35635	
==>ch case
this method returns the identity-one Relation or the invocant relation,
respectively.

=item <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4682	4807	
==>ndidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	934	1032	
==>rsion 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	934	1032	
==>rsion 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2342	2437	
==>undef : shift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => $_[1][0], n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1237	1474	
==>**\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### uninstall the files
    ### X <==
2	/Users/nnunley/pugs/util/package-osx.pl	9053	9150	
==>usr/bin") unless (-d "${dest}/usr/bin");
    chdir("${dest}/usr/local/bin");
    qx/ln -s $_ $syml <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2515	2678	
==>$event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2515	2678	
==>$event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5423	5517	
==>ish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroizi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5423	5517	
==>ish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroizi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6235	6330	
==>ler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6235	6330	
==>ler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	226	332	
==>}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, w <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	226	332	
==>}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node type, w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10520	10629	
==>$self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10137	10246	
==>$self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->objec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4973	5117	
==>$h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4973	5117	
==>$h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1665	1812	
==>_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1665	1812	
==>_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = P <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4123	4212	
==>W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantified_op(W, star_ng <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16196	16451	
==>r1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16475	16730	
==>r1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2551	2653	
==>||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2691	2793	
==>||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2191	2307	
==>$file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2191	2307	
==>$file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7321	7438	
==>ITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7379	7496	
==>ITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::nu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13767	13884	
==>entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is expor <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13767	13884	
==>entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is expor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15564	15659	
==>rding access to information details, or their technical
skills.  For example, a native French or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15564	15659	
==>rding access to information details, or their technical
skills.  For example, a native French or <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6013	6195	
==>}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9490	9672	
==>}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!hea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20715	20813	
==>nes or export such.

The usual way that Relation indicates a failure is to throw an exception;
most <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25267	25365	
==>nes or export such.

The usual way that Relation indicates a failure is to throw an exception;
most <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	177	308	
==>{ $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	177	308	
==>{ $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($ev <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22817	22915	
==>ch attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27369	27467	
==>ch attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18325	18427	
==>eredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, the source modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18325	18427	
==>eredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, the source modu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	434	575	
==>y int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	434	575	
==>y int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9688	9808	
==>der.innerHTML = "&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  / <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9962	10079	
==>S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9962	10079	
==>S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1489	1638	
==>{
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub ver <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4692	4841	
==>{
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub ver <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6626	6778	
==>s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6683	6835	
==>s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14973	15074	
==>o be accessed through the
following convenience methods.  These methods can both be used to read
and t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14973	15074	
==>o be accessed through the
following convenience methods.  These methods can both be used to read
and t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3537	3630	
==>symbols

=back

The compiler inherits L<Blondie::Reducer> in order to traverse the node
struct <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12576	12744	
==>')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12576	12744	
==>')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13197	13293	
==>}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6672	6768	
==>}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	519	628	
==>.}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	519	628	
==>.}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	627	746	
==>.

# The exploratory effort was abandoned as insufficiently tractable.
# By requiring far more effort than was hoped, it <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10351	10450	
==>specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have so <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10409	10508	
==>specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have so <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2284	2382	
==>ers));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.siz <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2284	2382	
==>ers));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.siz <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7345	7454	
==>, 0, @values);
   @array.elems;
 }


# XXX - todo: define these all in terms of kv, and leave kv a stub {...}. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3611	3710	
==>ate.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that e <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3611	3710	
==>ate.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4821	4934	
==>sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attribu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4821	4934	
==>sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attribu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3575	3708	
==>ule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3575	3708	
==>ule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6293	6404	
==>eturn $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6293	6404	
==>eturn $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3270	3374	
==>do>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3270	3374	
==>do>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curni <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1690	1786	
==>all_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods($self:) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31895	32028	
==>e->get('@values')->fetch($e->get('$temp')); 
                });
            }
        )
    )
);

=pod

method _make_descendant_dispa <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	181	283	
==>= (1,2,3); print "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1563	1678	
==>ting Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1563	1678	
==>ting Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5751	5868	
==>abase connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5751	5868	
==>abase connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12136	12238	
==>($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12136	12238	
==>($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3) <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	661	780	
==>es:
    #    Pragma: (caching)
    #    Set-Cookie: (multiple cookies)
    print CookiesHeader();
    if ($location.defi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14958	15075	
==>->("scalar_non_numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => sub { $as_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8810	8926	
==>}
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	m <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7877	7988	
==>ine( $file )>

  my $command_line = $self->_command_line();

Returns the full command line that will be run to t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21471	21568	
==>> <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationNoIn> <'in'> <Expression> <')' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	71	165	
==>er;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	71	165	
==>er;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24237	24334	
==>ation::Example are of the same
degree, and the attribute names of each tuple are all the same as t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1192	1286	
==>e();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1412	1506	
==>e();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6w <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	63	174	
==>enBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # con <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	63	174	
==>enBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # con <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23420	23547	
==>rl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation::Example is entirely object-or <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	72	170	
==>rp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::TestPlan' => class 'TestBuil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10850	10964	
==>E ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10850	10964	
==>E ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7090	7225	
==>D = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CON <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7090	7225	
==>D = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CON <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23115	23233	
==>e or persistent) and provide accessors to them.  The Relation
library provides full generic implementations of all othe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3034	3132	
==>ght x for p1');
is($p1->get_y, 16, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4806	4920	
==>{
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.d <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4806	4920	
==>{
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2827	2928	
==><ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2827	2928	
==><ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8565	8735	
==>pts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9184	9316	
==>ath    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9184	9316	
==>ath    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26391	26486	
==>ups, use the digit variables, but only if you're sure the
match succeeded.

=head2 Parser Method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7085	7224	
==>aybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7085	7224	
==>aybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_mat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5937	6069	
==>x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5937	6069	
==>x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return In <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4730	4824	
==>pen \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4952	5046	
==>pen \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1201	1293	
==>q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1201	1293	
==>q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6554	6685	
==>scaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6747	6878	
==>scaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35525	35616	
==>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40075	40166	
==>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	427	526	
==>ew List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Rem <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	427	526	
==>ew List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Rem <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	615	750	
==>mples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	615	750	
==>mples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2744	2887	
==>: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2802	2945	
==>: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	207	299	
==>ss Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl::Type::Junctive isa Perl:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1046	1152	
==>p { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11190	11287	
==>all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11190	11287	
==>all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37617	37749	
==>h );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	490	603	
==>ce, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    my $self = { source => $ru <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5258	5398	
==>Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "P <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5258	5398	
==>Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14935	15037	
==>" file is the core of the
Rosetta framework and defines a common programmatic interface (API), called
t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14935	15037	
==>" file is the core of the
Rosetta framework and defines a common programmatic interface (API), called
t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1534	1647	
==>ngle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns Void is export {
    say "1..$num <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	90	201	
==>eadonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	90	201	
==>eadonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41374	41470	
==>umentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS.

=back

=cut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41374	41470	
==>umentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS.

=back

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16935	17047	
==>o a lot
internally; it exists mainly to document a certain localization methodology
in an easily accessable manne <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16935	17047	
==>o a lot
internally; it exists mainly to document a certain localization methodology
in an easily accessable manne <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2113	2270	
==>et.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2113	2270	
==>et.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12774	12953	
==>f->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6249	6428	
==>f->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRA <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2586	2682	
==>proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.joi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2586	2682	
==>proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.joi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16144	16234	
==>org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Dar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16202	16292	
==>org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Dar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7016	7123	
==>g "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7016	7123	
==>g "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15767	15990	
==>ile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s#/dev/null#NL:#;

        # VMS file locking
        $prog =~ s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    pri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9278	9506	
==>the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9278	9506	
==>the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2414	2511	
==>ith a number of bytes and throwing the return value away.
Encryptions after this point will be usi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2414	2511	
==>ith a number of bytes and throwing the return value away.
Encryptions after this point will be usi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	578	673	
==>ype Relation::LaxAttrScalarSubType of Any where {
    .does(Package) or (.does(Str) and $^n ne $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19065	19160	
==>_semijoin (Relation::Example $other!) returns Relation::Example {
    return Relation::Example.n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15626	15725	
==>in($$) }
let: generic_in($.in) = { generic($.is) }
let: generic($$) = { generic($.in) }

# the env i <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1804	1905	
==>t the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1804	1905	
==>t the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16039	16129	
==>osetta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16039	16129	
==>osetta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17315	17415	
==>ome kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17315	17415	
==>ome kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The t <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	445	582	
==>month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns Duration::Gregoria <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	203	330	
==>eadonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1061	1188	
==>eadonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2890	3001	
==>ult, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2948	3059	
==>ult, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $ex <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7382	7489	
==>order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    el <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7382	7489	
==>order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    el <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	777	877	
==>vious => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enable <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	777	877	
==>vious => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enable <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7052	7174	
==>ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Containe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7052	7174	
==>ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Containe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30404	30497	
==>m the Perl source
directory.

Please use the CPAN bug ticketing system at L<http://rt.cpan.org <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22928	23051	
==>'s wrong
with it.

=item * Variable interpolation

This module parses I<regexes>, not Perl.  If you send a single-quoted
str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	429	539	
==>RS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or retu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20045	20143	
==>not running under PIL2JS!";
}
our &PIL2JS::Internals::use_perl5_module_noimp := &PIL2JS::Internals: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11659	11801	
==>_block} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19463	19565	
==>parate resource files, and not change
your main program.

I<Note that an update is planned for Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19463	19565	
==>parate resource files, and not change
your main program.

I<Note that an update is planned for Locale:: <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2309	2440	
==>e;

    role Class::Events::Publisher is extended {
        use Set;
        has %.subscriptions of Set;

        # when you say add <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41040	41133	
==>artin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41040	41133	
==>artin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21092	21279	
==>(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatch <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44016	44186	
==>(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatch <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	603	747	
==>tive types
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_str { 
    # eventually must deal with Inf and NaN
    return s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5620	5738	
==>_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $do <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5620	5738	
==>_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $do <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9627	9725	
==>t might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9685	9783	
==>t might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13804	13909	
==>ub { -r $initrd_gz and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $ini <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12944	13063	
==>Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13002	13121	
==>Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the cod <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14375	14471	
==><no_LineTerminator_here><'--'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixExpressi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	165	260	
==>c
has Method %:dispatch;

# next type(s) for dispatchable lookup (inheritance)
has Type @.supers <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8369	8507	
==>or}, "\n";  next };

        # state of the current test.
        my @failed = grep { !$results{details}[$_-1]{ok} }
                     1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29396	29545	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29675	29824	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13346	13439	
==><HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will remo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13346	13439	
==><HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will remo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2538	2644	
==>the glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2538	2644	
==>the glue separator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30250	30384	
==>dispatcher;
                if ($order->equal_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->sen <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4510	4603	
==>nitrd-img is the temporary image of the initrd, which will be mounted.
  --initrd-size=$initrd <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9699	9822	
==>:term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9679	9802	
==>:term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22575	22729	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22854	23008	
==>pture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52459	52551	
==>ule->set_attr(symbol->new('@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2236	2338	
==>ndie::(\w+)$/ and Blondie::Nodes->can($1)){
		return $1;
	} else {
		return $class . "->new";
	}
}

__P <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2466	2615	
==>$.number') },
        'passed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2966	3116	
==>or (1 .. $num) {
                $self->report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1933	2103	
==>tation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Store <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1933	2103	
==>tation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Store <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6165	6281	
==>p
  descr  => "Fetching GRUB from \"$grub_uri\"",
  help   => "Remove \"$grub_local\" if you want mklivecd.pl to refe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5023	5129	
==>TA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5023	5129	
==>TA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7588	7700	
==>");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2263	2363	
==>return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.siz <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2263	2363	
==>return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.siz <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	783	890	
==>:PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	783	890	
==>:PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17819	17973	
==>\&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18098	18252	
==>\&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5465	5568	
==>r_str> method returns the last error message

=back

=head1 AUTHORS

This module is based on Adam Kenned <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5465	5568	
==>r_str> method returns the last error message

=back

=head1 AUTHORS

This module is based on Adam Kenned <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3406	3541	
==>),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3599	3734	
==>),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7947	8056	
==>he full command line that will be run to test I<$file>.

=cut

sub _command_line {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12488	12592	
==>)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12488	12592	
==>)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2794	2931	
==>... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error mess <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2794	2931	
==>... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error mess <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1195	1298	
==>ow bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1195	1298	
==>ow bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4768	4937	
==>), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.back <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4768	4937	
==>), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.back <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3403	3505	
==>( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3283	3381	
==>( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5820	5923	
==>ub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 5, '... $Bar is the fifth id');
is($Bar->class, $Class, ' <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	999	1097	
==>aps this module should be called
something else like C<t>, or maybe they are one and the same as wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4717	4830	
==>e've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4717	4830	
==>e've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %! <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2099	2210	
==>anonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args h <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2099	2210	
==>anonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	510	629	
==>poch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	510	629	
==>poch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6497	6597	
==>ocess each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_do <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6497	6597	
==>ocess each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1406	1572	
==>d to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        requi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1406	1572	
==>d to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        requi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9327	9443	
==>rset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9327	9443	
==>rset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5 <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	370	563	
==>ion: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unsh <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	370	563	
==>ion: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unsh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26715	26840	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26994	27119	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8184	8291	
==>DS

=head2 new ()

Class method.  Returns a category object.

options:

=item * grammar => $category <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14806	14923	
==>e_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14806	14923	
==>e_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6110	6267	
==>d and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6110	6267	
==>d and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1223	1317	
==>er::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1223	1317	
==>er::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1308	1430	
==>rave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1308	1430	
==>rave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2353	2520	
==>e(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2558	2725	
==>e(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	340	543	
==>t( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	340	543	
==>t( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30315	30422	
==>f those damned formats.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
d <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	828	928	
==>ebruary 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please re <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	828	928	
==>ebruary 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1162	1271	
==>Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1162	1271	
==>Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1746	1853	
==>ping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1746	1853	
==>ping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when w <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4299	4405	
==>eft.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=perl6 <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4299	4405	
==>eft.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=perl6 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8467	8646	
==>X should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best mat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8931	9110	
==>X should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8382	8518	
==>rn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8575	8711	
==>rn { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3148	3251	
==>et1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work? <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3148	3251	
==>et1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7415	7532	
==>m>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7415	7532	
==>m>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($k <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1044	1193	
==>store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21053	21151	
==>se manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Info <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21053	21151	
==>se manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Info <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16797	16918	
==>d
subtraction.

=item Regexp::Optimize

Eliminates redundancy from a regex.  It should have various options,
such as wheth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	255	371	
==>se Log::Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Da <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1049	1177	
==>utput =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $si <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1049	1177	
==>utput =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	585	682	
==>RG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	585	682	
==>RG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	442	560	
==>eys  }

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$ke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1822	1918	
==>.split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte % <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1822	1918	
==>.split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8059	8218	
==>H' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8071	8230	
==>H' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1059	1183	
==>_[1]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2321	2441	
==>span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't wo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2321	2441	
==>span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't wo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23712	23834	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23991	24113	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13288	13391	
==>dy
fun: type($$) = {
	type::operator::arrow->new(
		new_env($$)->{ $.param },
		type($.body),
	),
}

# i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1377	1507	
==>ool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extract <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1377	1507	
==>ool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extract <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3258	3354	
==>le( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_program, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3475	3571	
==>le( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_program, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20724	20848	
==>s:
    cname = self["cname"]
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto setreps
    $I0 = cname
    inc $I0
    pad[ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7905	8012	
==>d.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "un <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7963	8070	
==>d.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13448	13580	
==>nal_ast;\n" .
                #"    my \$perl5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    pri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	17	120	
==>RSION = '0.01';

1;

__END__
=pod

=head1 NAME

JIB - Perl6 Package Manager

=head1 DESCRIPTION

JIB sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	398	505	
==>=> 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	398	505	
==>=> 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15444	15622	
==>tural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18921	19099	
==>tural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12643	12752	
==>['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule ElementList :words {  # see 11 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5501	5595	
==>^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5501	5595	
==>^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type") <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2948	3194	
==>nt> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3195	3441	
==>nt> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6313	6413	
==>n the returned match, 

that makes it return until the start of the rule, which unsets the flag befor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6108	6207	
==>n the returned match, 
that makes it return until the start of the rule, which unsets the flag befor <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3882	3995	
==>);
}

sub get_smoker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { LoadFi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1204	1317	
==>e. 



the Package part of the Module is simply a hash from strings

(symbol names) to objects (containers)



the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1151	1259	
==>e. 

the Package part of the Module is simply a hash from strings
(symbol names) to objects (containers)

the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21683	21776	
==>independence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21683	21776	
==>independence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23700	23793	
==>e constructor, this module won't simply
send all commands immediately to the server, but creat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23700	23793	
==>e constructor, this module won't simply
send all commands immediately to the server, but creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4121	4223	
==>ND__

Operator precedence parser

--- from S05 -----
Syntactic categories
    For writing your own back <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13152	13246	
==>s prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<Las <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13152	13246	
==>s prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<Las <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2386	2480	
==>rn $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2386	2480	
==>rn $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2029	2147	
==>file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2029	2147	
==>file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15990	16087	
==>hen `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15990	16087	
==>hen `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7969	8082	
==>_} = "$prefix$v"
		    if $v =~ /^(PNil|PNoop|TCxtVoid|VUndef|CxtVoid)$/;
	    }
	}
    } else {die "bug"}
    ble <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14224	14327	
==>outine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14224	14327	
==>outine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7787	7888	
==>lize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7787	7888	
==>lize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	589	718	
==>'';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::Tes <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	589	718	
==>'';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::Tes <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11578	11688	
==>I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan lit <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11578	11688	
==>I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan lit <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5314	5448	
==>nd && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5314	5448	
==>nd && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4843	4949	
==>map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4843	4949	
==>map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sor <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9454	9559	
==>ontains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9454	9559	
==>ontains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10923	11020	
==>r fields is returned.
If no such field exists C<undef> will be returned.

A multi-valued field wil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10923	11020	
==>r fields is returned.
If no such field exists C<undef> will be returned.

A multi-valued field wil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8232	8388	
==>ult',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8232	8388	
==>ult',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2940	3049	
==>xport symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    has Set of Str $!head <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20201	20307	
==>s Relation data type is proposed to be
generally useful, and very basic, and worthy of inclusion in the Per <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24753	24859	
==>s Relation data type is proposed to be
generally useful, and very basic, and worthy of inclusion in the Per <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8782	8906	
==>P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8782	8906	
==>P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	190	301	
==>cipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	190	301	
==>cipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4066	4163	
==>my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4066	4163	
==>my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9106	9221	
==>ight arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest su <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9106	9221	
==>ight arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31080	31193	
==>e given handles.  You send the names (like '|' or
'atom').  Here is a very simple complete sub-class that does not <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	92	188	
==>x matching subs you want to debug'}
* adds use Smart::Comments (if it matches the supplied regex) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22520	22640	
==>sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5477	5597	
==>eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print post <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5477	5597	
==>eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print post <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10153	10257	
==>is intended to eventually replace Prim.hs's open (or be replaced by
    # it, since that would probably b <==
2	/Users/nnunley/pugs/util/testgraph.pl	595	693	
==>struct(delete $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data));
$v->has_inline <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19943	20043	
==>ntext it will
return I<"uname:password"> as a single string value.

When used to set the header value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19943	20043	
==>ntext it will
return I<"uname:password"> as a single string value.

When used to set the header value <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18791	18996	
==>h_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a normal link, after the header, when <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1982	2090	
==>turn $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4217	4325	
==>turn $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	70	161	
==>for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	70	161	
==>for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27139	27305	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27418	27584	
==>leop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	496	606	
==>e(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	496	606	
==>e(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body = <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	289	400	
==>y $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unl <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	289	400	
==>y $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unl <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	459	565	
==>an objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	459	565	
==>an objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1079	1172	
==>Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1079	1172	
==>Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13389	13492	
==>moved headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13389	13492	
==>moved headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

R <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	570	704	
==>ee / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	570	704	
==>ee / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13638	13757	
==>ranslator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13638	13757	
==>ranslator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	365	468	
==>at big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	365	468	
==>at big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5408	5517	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 0)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22658	22801	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22937	23080	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       rule <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5394	5489	
==>tically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5394	5489	
==>tically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8315	8416	
==>'s not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8315	8416	
==>'s not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3497	3749	
==>of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Var <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3497	3749	
==>of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Var <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4021	4125	
==>g C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4021	4125	
==>g C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3234	3328	
==>item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3234	3328	
==>item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4789	5027	
==>($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4789	5027	
==>($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1443	1542	
==>e15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file ma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1283	1382	
==>e15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1477	1569	
==>soft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a direct <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1317	1409	
==>soft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a direct <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1568	1667	
==>n/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = jo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11099	11195	
==>ck

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', : <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11099	11195	
==>ck

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17528	17635	
==>n.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17528	17635	
==>n.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2495	2628	
==>2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2400	2527	
==>2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    retur <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1104	1220	
==>safe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) re <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1104	1220	
==>safe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	201	321	
==>qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	201	321	
==>qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an option <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	515	607	
==>wards compatibility for exportable variable names.
*verbose  = *Verbose;
*switches = *Switche <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1322	1455	
==>$span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1322	1455	
==>$span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9072	9195	
==>ers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9072	9195	
==>ers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25877	26045	
==>1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26156	26324	
==>1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37350	37455	
==>ady been
loaded, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37350	37455	
==>ady been
loaded, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

T <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14390	14584	
==>(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           type => "text/css", 
                                           href => "http://dev. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1995	2106	
==>';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::App;
    use base 'Blo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1504	1605	
==>arameters as well as anything declared within

that scope.



the Sig contains a simply structure of t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1442	1540	
==>arameters as well as anything declared within
that scope.

the Sig contains a simply structure of t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2751	2927	
==>}              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2751	2927	
==>}              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3377	3508	
==>_[5], %{$_[4]} } }
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dump <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11378	11475	
==>er, the qr() method is used to produce
the Perl regex implementation of the new node.

=head2 Name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16120	16234	
==>E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16120	16234	
==>E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < tim <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1594	1702	
==>y $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $se <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1594	1702	
==>y $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $se <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	56	160	
==>odule::Install::Base;
use Config ();
### This adds a 5.005 Perl version dependency.
### This is a bug and <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10736	10835	
==>tches;
}

=head2 C<_INC2PERL5LIB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the current <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13489	13588	
==>s

Returns the list of distinct names for the fields present in the
header.  The field names have ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13489	13588	
==>s

Returns the list of distinct names for the fields present in the
header.  The field names have ca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14351	14447	
==>e') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any anal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14351	14447	
==>e') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any anal <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3904	4089	
==>$ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $r <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3904	4089	
==>$ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3555	3663	
==>er, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3555	3663	
==>er, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35107	35205	
==>ethod has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation>

This m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39657	39755	
==>ethod has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation>

This m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24228	24320	
==>:LoopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	692	795	
==>hod intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	692	795	
==>hod intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3656	3858	
==>{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3656	3858	
==>{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( def <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	501	620	
==>y $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kw <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	501	620	
==>y $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6595	6703	
==>annels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delet <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6595	6703	
==>annels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delet <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	486	597	
==>y_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	486	597	
==>y_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1099	1395	
==>0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = ~@_.shift;
                @_.shift eq ':' or die "Expected PIL2 ':'";
                my $value = parse( <<>>, 'item', <<>>, @_ );
                [ $key, $value <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16403	16501	
==>org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is fre <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16461	16559	
==>org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is fre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36126	36229	
==>ember Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Mem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36126	36229	
==>ember Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Mem <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1115	1231	
==>v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1115	1231	
==>v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3982	4086	
==>os, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $matchObj-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17021	17121	
==>to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of the messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17021	17121	
==>to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of the messa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2087	2194	
==>->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2087	2194	
==>->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'eq <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14863	14964	
==>atabases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14863	14964	
==>atabases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rose <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6825	6927	
==>eturns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6825	6927	
==>eturns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
cip <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31164	31261	
==>ational operator that returns a new Relation
which has a subset of the original's tuples, and it w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35714	35811	
==>ational operator that returns a new Relation
which has a subset of the original's tuples, and it w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11195	11304	
==>assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11195	11304	
==>assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { ' <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1231	1380	
==>$label) )
                if +@newtoks;
      }

      $buf = [~] @newtoks;
      undefine $buf
        if !defined $i;

      @tokens.=grep:{ $_ ne " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1866	1998	
==>en traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1866	1998	
==>en traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7576	7707	
==>antified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7564	7695	
==>antified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8886	9036	
==>_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8886	9036	
==>_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            warn "< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2767	2864	
==>rs, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2767	2864	
==>rs, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	857	963	
==>().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed La <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	857	963	
==>().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less fixed La <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2185	2280	
==>ude <regcomp.h>
/* for the struct pointed to by substrs :( */

#define RECOGNITION_FLAG 0xfdfcd8 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	804	898	
==>::Token->compile(q( \{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs::Compiler::Toke <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7382	7479	
==>span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7382	7479	
==>span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.densi <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	108	248	
==>ie::Nodes;

use Test::Deep;
use Test::Exception;

our @EXPORT = qw/smoke_runtime/;

my @progs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29269	29368	
==>this node with the previous one, if they are of the same type. If
it is called I<after> $obj has bee <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3151	3250	
==>tements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3344	3443	
==>tements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2130	2235	
==>ol => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2118	2223	
==>ol => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3705	3816	
==>oncatenation_more(W, W) --> {true}.


p5_quantified(Z) --> p5_elemental(W), p5_quantified_op(W, Z).
p5_quantifie <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5422	5526	
==>f $cls eq 'Bit';
    return new_box('Int',@_) if $cls eq 'Int';
    return new_box('Num',@_) if $cls eq ' <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	134	249	
==>tr $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	134	249	
==>tr $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37489	37589	
==>or, and the order of its arguments is not significant to the result;
the new Relation is the result o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42038	42138	
==>or, and the order of its arguments is not significant to the result;
the new Relation is the result o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24438	24538	
==>>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24438	24538	
==>>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8783	8903	
==>eop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8976	9096	
==>eop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14221	14323	
==>que.new(\$class, %attrs);
    return $self;
}

method CREATE (opaque $class: str $repr, hash %params) r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6207	6460	
==>our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No pack <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6671	6924	
==>our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No pack <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4688	4799	
==>is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4688	4799	
==>is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1000	1099	
==>items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposin <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1000	1099	
==>items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15401	15522	
==>dcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15401	15522	
==>dcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6574	6672	
==>ing';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'x <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6574	6672	
==>ing';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'x <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15397	15495	
==>idespread use
then it needs to account for a variance of needs between its different
users, such as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15397	15495	
==>idespread use
then it needs to account for a variance of needs between its different
users, such as <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	812	920	
==>il
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	812	920	
==>il
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9373	9495	
==>hen any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Un <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9373	9495	
==>hen any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Un <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	248	361	
==>{
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	248	361	
==>{
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20115	20345	
==>>get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);
                
=pod

method DESTROYALL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18929	19060	
==>d "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) {
                    my $ref = ref $obje <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12447	12556	
==>arget
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local string charlist <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7572	7717	
==>ape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7572	7717	
==>ape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6956	7063	
==>hc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" unless -e "pugs$Config{_exe}";
}

sub write_bu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15938	16045	
==>t classes on the subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15938	16045	
==>t classes on the subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41115	41207	
==>ad1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19373	19464	
==>s that data definition statements are structured as
standard data manipulation statements bu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19373	19464	
==>s that data definition statements are structured as
standard data manipulation statements bu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2650	2759	
==>>freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generate <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2650	2759	
==>>freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generate <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6633	6736	
==>by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6633	6736	
==>by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17915	18021	
==>42'.  These codes
are "machine readable"; any application receiving such a code can identify
it easily in i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17915	18021	
==>42'.  These codes
are "machine readable"; any application receiving such a code can identify
it easily in i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19069	19166	
==>your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19069	19166	
==>your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19300	19405	
==>nformation is in separate resource files used by the
program, so that if you wanted to upgrade or localize <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19300	19405	
==>nformation is in separate resource files used by the
program, so that if you wanted to upgrade or localize <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13298	13394	
==>t1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set cont <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13298	13394	
==>t1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23986	24077	
==>ion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23986	24077	
==>ion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2425	2601	
==>53;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for / <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2425	2601	
==>53;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for / <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1112	1269	
==>back.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_pac <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1112	1269	
==>back.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_pac <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	573	669	
==>ntation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	573	669	
==>ntation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7998	8109	
==>fined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7998	8109	
==>fined $.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9648	9794	
==>s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9628	9774	
==>s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # X <==
2	/Users/nnunley/pugs/util/importgraph.pl	1220	1378	
==>me} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore;
for my $mod (values %modules) {
  for my $ignore (@ignore) {
    delete $mod->[0]->{$ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13642	13760	
==>t(D3), {number_chars(I,[42,120,D0,D1,D2,D3])}.
hexdigits2_int(I) -->
  hexdigit(D0), hexdigit(D1), {number_chars(I,[42, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6426	6555	
==>= $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6426	6555	
==>= $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32363	32459	
==>t in the future they may alternately be something
else, such as XML or tab-delimited plain text f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32363	32459	
==>t in the future they may alternately be something
else, such as XML or tab-delimited plain text f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3745	3841	
==>tive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOW <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3745	3841	
==>tive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOW <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	494	596	
==>lfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	494	596	
==>lfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	550	650	
==>, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	550	650	
==>, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11005	11134	
==>ubstr target, pos, 2
    if $S0 == "<?" goto nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10221	10328	
==>}      
}


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1789	1893	
==>}
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	905	1010	
==>) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	905	1010	
==>) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2922	3158	
==>2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3169	3405	
==>2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return { <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1120	1238	
==>r is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is expor <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1120	1238	
==>r is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is expor <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	617	751	
==>t $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2591	2685	
==>rint STDERR "done.\n" if $Config{verbose};
}

# concatenate source files. hardcode special trea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24942	25057	
==>eir values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation::Example to have ze <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6695	6801	
==>" - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6753	6859	
==>" - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5307	5437	
==>c;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	199	319	
==>Repository->new( root => $REPOSITORY_ROOT )
                or die "No repository created";

$REPO->create   or die "Crea <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	100	200	
==>ze;
memoize('env');

use Module::Pluggable (
    sub_name => "submodules",
    search_path => [__PACK <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11738	11843	
==>s_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

= <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11738	11843	
==>s_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17328	17449	
==>e_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13749	13870	
==>e_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	102	196	
==>-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List ou <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	102	196	
==>-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8699	8813	
==>lso use parse() instead of regex() to set the regex and create
the tree in one step:

  my $ok = $parser->parse($ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39242	39331	
==>m C<product (Relation::Example $other!) returns Relation::Example>

This multi-method is a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6442	6578	
==>:Operator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "parsing error <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15757	15873	
==>obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14761	14864	
==>outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14761	14864	
==>outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Docume <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21985	22085	
==>ement>
}
rule SwitchStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBl <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13720	13846	
==>_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7027	7130	
==>ontent_language ($self: )          is rw { $self.header("Content-Language") }
method content_length ($se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7027	7130	
==>ontent_language ($self: )          is rw { $self.header("Content-Language") }
method content_length ($se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	258	366	
==>IN {
    $operator = Pugs::Grammar::Precedence->new( 
        grammar => 'Pugs::Grammar::Operator',
        h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1469	1576	
==>}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    ['infix:<times>' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1903	2006	
==>oto method export_attrs of Relation::LaxAttrList () {...}

proto method export_attr_names of List of Rel <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7716	7855	
==>s[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7716	7855	
==>s[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1024	1140	
==>the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1024	1140	
==>the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14577	14681	
==>$channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14577	14681	
==>$channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8250	8383	
==>,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeho <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4601	4707	
==>00000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9560	9660	
==>' => '100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12779	12880	
==>It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12837	12938	
==>It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	430	544	
==>setta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRING <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	430	544	
==>setta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRING <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10909	11008	
==>is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10967	11066	
==>is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $go <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	256	408	
==>t;
    die "Install version must be 5 or 6 for WritePugs"
      unless $install_version =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_ve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3371	3479	
==>->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  # digit (a digit)
  $self->ad <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	777	932	
==>not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	777	932	
==>not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15280	15385	
==>urns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15338	15443	
==>urns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_de <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1569	1682	
==>ING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = ' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1569	1682	
==>ING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25366	25462	
==>nvironment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25366	25462	
==>nvironment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Mess <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3664	3759	
==>terface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {fla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3881	3976	
==>terface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {fla <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11861	11960	
==>nized, and regexp*s
  created with the normal perl engine can continue working.

  Upon exec, the su <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23244	23343	
==>OPT_UTF8 


=head1 Compilation

=head2 flags

=head1 Execution - Input

=head1 Execution - Output

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11555	11694	
==>th( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11549	11688	
==>th( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
s <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2705	2832	
==>May      June
               July    August   September October November December>;
method month_name returns Str { @months[./mo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16972	17085	
==>g)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefully remain <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1916	2033	
==>x accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1916	2033	
==>x accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23213	23315	
==>mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27765	27867	
==>mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5580	5726	
==>assed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6044	6190	
==>assed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6725	6839	
==>ld return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6725	6839	
==>ld return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1571	1668	
==>atch.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this intro <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1571	1668	
==>atch.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this intro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	548	671	
==>heck->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1032	1155	
==>heck->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3443	3590	
==>{
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3636	3783	
==>{
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8563	8674	
==>an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8563	8674	
==>an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	300	398	
==>ame , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close() <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	300	398	
==>ame , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close() <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15199	15348	
==>d->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $name = join '', 
              map {$_->att <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3091	3191	
==>safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3091	3191	
==>safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16881	16983	
==>wise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar v <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16881	16983	
==>wise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a scalar v <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	442	538	
==>filter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- be <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	442	538	
==>filter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- be <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	641	798	
==>fined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	641	798	
==>fined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    mult <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2025	2154	
==>(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2025	2154	
==>(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happe <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1338	1433	
==>ound_half_up: symmetrical => $^b },
		{ $^a.round_half_down: symmetrical => $^b },
		{ $^a.round <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7346	7443	
==>ending data.  Block 
ciphers should buffer input data until they have an entire block, then cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7346	7443	
==>ending data.  Block 
ciphers should buffer input data until they have an entire block, then cipher <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1461	1562	
==>epends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1519	1620	
==>epends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1961	2064	
==>node);

	if ($t eq "IV") {
		return $node->struct_equiv;
	} elsif ($t eq "PV") {
		return quote(printabl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1068	1182	
==>orrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1068	1182	
==>orrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1028	1131	
==>s Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in question <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1028	1131	
==>s Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in question <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11835	11957	
==>name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4478	4600	
==>name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2867	2969	
==>>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { _open => $() } }
RULE
*{'assig <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14099	14195	
==>ap->_is_test($line, \%test);

Checks if the $line is a test report (ie. 'ok/not ok').  Reports th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1725	1825	
==>IL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1725	1825	
==>IL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19	136	
==>was closely derived from
#    ECMA-262, ECMAScript Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1636	1750	
==>ystem( qq[tar -f $my_tmp_dir/$Data -C $meta_dir -tz |] .
                    qq[xargs -I % echo $Site/% >> $meta_di <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	373	482	
==>n int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13591	13698	
==>re the compiler might allow adding globals
    # right now this is a non issue since even higher order funct <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11645	11740	
==>till TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11645	11740	
==>till TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6097	6230	
==>()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse() <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6097	6230	
==>()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse() <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	689	800	
==>ameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	689	800	
==>ameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
} <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11234	11347	
==>ted command line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @i <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2852	2948	
==>mpiled (but most of the time outdated) image is available at
      http://m19s28.vlinux.de/iblech <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16388	16507	
==>os;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15452	15563	
==>os;
  my $cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	769	864	
==>lan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subc <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	769	864	
==>lan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1592	1752	
==>NIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::K <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1592	1752	
==>NIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::K <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	362	625	
==>ile:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	362	625	
==>ile:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the R <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12711	12810	
==>oper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12711	12810	
==>oper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5667	5819	
==>e're the 'prefered' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1442	1549	
==>d.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a publi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1442	1549	
==>d.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a publi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	814	926	
==>th -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	814	926	
==>th -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1160	1269	
==>uation
(which takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1160	1269	
==>uation
(which takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2370	2478	
==>::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a node

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5614	5750	
==>ns
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5626	5762	
==>ns
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	442	614	
==>ate star list_of 
#                 operator T 
#                 error action test);
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	662	774	
==>hes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	662	774	
==>hes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->cod <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9446	9558	
==>run {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8447	8582	
==>-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4103	4225	
==>($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sort    safe   (Array)\ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8165	8302	
==>y $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAIL <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7103	7212	
==>nless $self->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14895	15036	
==>one;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the type of the parameter with the type to the left of the arrow in the funct <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15086	15236	
==>tring pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19261	19411	
==>tring pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8697	8803	
==>.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8697	8803	
==>.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35196	35292	
==>jects

Branched

=head2 exact

Family: exact

Types: exact (C<abc>), exactf (C<abc> with C</i> on <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23944	24093	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24223	24372	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11538	11717	
==>il => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code =~ /return/;
        
    return
           "$_[1] Pugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	231	337	
==>shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3254	3414	
==>ucceed or not is an open question.  But the
perl5 team has expressed interest, and a potential willingness to do a
core patch if one proves necessary to go the l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	143	245	
==>ce;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	143	245	
==>ce;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	949	1044	
==>scription( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	949	1044	
==>scription( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4357	4539	
==>capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4225	4401	
==>capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $match <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4014	4131	
==>u must store a symbol type in a param list";
    $self->SUPER::store($index, $value);
}

sub unshift : method { 
    m <==
2	/Users/nnunley/pugs/util/package-osx.pl	5398	5500	
==>3/Perl6::FAQ::Capture.3
        /usr/local/man/man3/Perl6::FAQ::Capture.3pm
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7366	7549	
==>rent_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.pr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7366	7549	
==>rent_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5011	5182	
==>se {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5011	5182	
==>se {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23947	24046	
==>S.

Go to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23947	24046	
==>S.

Go to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIM <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16762	16860	
==>ained application in
Rosetta D and compile that into its own executable, in practice one would
norm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16762	16860	
==>ained application in
Rosetta D and compile that into its own executable, in practice one would
norm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1077	1195	
==>pos $direction= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $par <==
2	/Users/nnunley/pugs/util/testgraph.pl	1245	1343	
==>ests.pl - produce cross-linkable tests
   util/run-smome.pl     - automate the smoke process

USAGE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17480	17590	
==>fresh_perl_like
#
# Combination of run_perl() and like().
#

sub fresh_perl_like {
    my($prog, $expected, $ru <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29191	29280	
==>efine ReREFCNT_inc(re) ((void)(re && re->refcnt++), re)
 #define ReREFCNT_dec(re) CALLREGF <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	117	213	
==>tion

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=h <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	117	213	
==>tion

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8232	8348	
==>);

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7949	8059	
==>);
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::gr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	231	336	
==>port { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $direct <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	231	336	
==>port { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $direct <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	571	745	
==>rent, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	571	745	
==>rent, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1232	1339	
==>:Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($script <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1232	1339	
==>:Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($script <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5121	5220	
==>ck or a Prelude.pm.yml file (written to stdout),
to be loaded by Run.hs.

When pugs is built, a fall <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6205	6319	
==>els.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6205	6319	
==>els.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11142	11254	
==>arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11142	11254	
==>arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SE <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5247	5348	
==>perator;

  expect_oper:
  goto end if ( $position >= $lastPosition );
  my $currentOperatorTable = $s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30995	31090	
==>ht 2002-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1801	2208	
==>on object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1801	2208	
==>on object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Com <==
2	/Users/nnunley/pugs/util/grokprims.pl	675	796	
==>$assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, ret=>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?x <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4060	4169	
==>\\texttt
#{$file
#}
#\\end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @AR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3748	3884	
==>3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] && <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3736	3872	
==>3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] && <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18568	18660	
==>ould not share
Rosetta objects between multiple threads, nor have objects in separate
threads <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18568	18660	
==>ould not share
Rosetta objects between multiple threads, nor have objects in separate
threads <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26822	26967	
==>> method::params->new(
                            symbol->new('$self:'    => 'opaque'),
                            symbol->new('$subclass' => 'o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21500	21609	
==>GE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  su <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23112	23272	
==>anon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Curte <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4944	5046	
==>ou need more control or access to the header fields in the requests
sent and responses received, then y <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4944	5046	
==>ou need more control or access to the header fields in the requests
sent and responses received, then y <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	108	203	
==>_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	108	203	
==>_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22997	23097	
==>scapes.  (The source code to Perl's regex compiler does the
same thing.)

=item nparen

The number of <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10595	10750	
==>get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method::params <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24591	24689	
==>is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29143	29241	
==>is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

= <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1956	2107	
==>l2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1956	2107	
==>l2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6895	7010	
==>ile is not readable";
        return;
    }

    local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;
    if ( $Test::Harnes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18726	18838	
==>ss this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an ali <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18726	18838	
==>ss this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an ali <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3064	3168	
==>:\usr\site\lib';
    $Config{sitelib} = 'C:\usr\site\lib';
    require Data::Dumper;
    print Data::Dump <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5890	5988	
==>odeC.o' if grep /WITH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16966	17066	
==>ect, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16966	17066	
==>ect, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare( $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15250	15368	
==>tion and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @so <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18727	18845	
==>tion and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @so <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29399	29550	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29678	29829	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_return <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22484	22597	
==>am => comb(
				fun => ide("listify"),
				param => val(10),
			),
		),
	),
);

my $length_and_first_gen = let(
	i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27495	27588	
==>ndefined or an empty Set, the
Relation::Example has zero attributes.  If C<$body> is undefined <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19922	20030	
==>as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a test files
sub inpath_to_outpath {
    my $in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38161	38258	
==>rs! )>

This method takes a defined (but possibly empty) Template text string in
its positional pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38161	38258	
==>rs! )>

This method takes a defined (but possibly empty) Template text string in
its positional pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36956	37049	
==>t_string = $translator.translate_message( $message );

=back

The Translator class also has th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36956	37049	
==>t_string = $translator.translate_message( $message );

=back

The Translator class also has th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3004	3105	
==>$?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6481	6582	
==>$?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4773	4953	
==>fix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4773	4953	
==>fix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #pri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21010	21187	
==>cal" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21289	21466	
==>cal" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8064	8162	
==>ations on 
Span objects, that return lists of spans.

In this example, @span may contain zero, one, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8064	8162	
==>ations on 
Span objects, that return lists of spans.

In this example, @span may contain zero, one, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17059	17155	
==>gth

A decimal number indicating the size in bytes of the message content.

=item $h.content_lang <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17059	17155	
==>gth

A decimal number indicating the size in bytes of the message content.

=item $h.content_lang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	793	887	
==>compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	793	887	
==>compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	436	527	
==>= DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpkin <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	436	527	
==>= DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpkin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15549	15690	
==>]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15543	15684	
==>]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( para <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	381	488	
==>e

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $b <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	381	488	
==>e

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $b <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15966	16067	
==>self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$sy <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2359	2460	
==>self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$sy <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1661	1760	
==>mples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1661	1760	
==>mples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2	101	
==>pod

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names ar <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2	101	
==>pod

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names ar <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2084	2234	
==>tr";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=% <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2084	2234	
==>tr";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=% <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2870	3035	
==>_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2759	2918	
==>_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1517	1612	
==>nd other modules based on
Test::Builder.  You don't need to know about Test::Harness to use
thos <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19589	19702	
==>SQL terms, you create or alter tables by adding or
updating their "information schema" records, which in SQL are r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19589	19702	
==>SQL terms, you create or alter tables by adding or
updating their "information schema" records, which in SQL are r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2445	2543	
==>);
    }
    $self;
}

## ------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2445	2543	
==>);
    }
    $self;
}

## ------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6649	6751	
==>e blocks of text which seem to still be inside a list?

Basically the item body, much like this text is <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6649	6751	
==>e blocks of text which seem to still be inside a list?

Basically the item body, much like this text is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4394	4494	
==>t(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>')) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4579	4679	
==>t(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>')) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12228	12326	
==>$set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12228	12326	
==>$set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22322	22470	
==>_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42111	42259	
==>_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5013	5131	
==>ake sure that the removed child
    # is no longer connected to the parent
    # so we change its parent to ROOT
    $r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5013	5131	
==>ake sure that the removed child
    # is no longer connected to the parent
    # so we change its parent to ROOT
    $r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3061	3158	
==>ck

In addition, the following request headers are set on the HTTP::Headers object,
if they are pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3061	3158	
==>ck

In addition, the following request headers are set on the HTTP::Headers object,
if they are pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10109	10210	
==>be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10109	10210	
==>be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2694	2803	
==>t of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2694	2803	
==>t of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	231	334	
==>tr %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBY <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	231	334	
==>tr %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBY <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	0	94	
==>role Parse::Rule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	0	94	
==>role Parse::Rule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	932	1031	
==>ompiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	932	1031	
==>ompiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1564	1670	
==>:Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1564	1670	
==>:Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5640	5751	
==>make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9951	10062	
==>make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3203	3300	
==>g;
  s/\}LET;/let_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bF <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	576	700	
==>es {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub reduce (Code $e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20629	20718	
==>leno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glob ioctl link list <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17582	17689	
==>o longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17582	17689	
==>o longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	531	630	
==>ode)){
		my $r = $self->runtime;
		if (my $replacement = $r->provides($node)) {
			return $self->red <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3315	3460	
==>x\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3315	3460	
==>x\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	292	432	
==>et(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	292	432	
==>et(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20255	20356	
==>In this case the result of the compilation
is replaced by a single line containing the hexadecimal dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20255	20356	
==>In this case the result of the compilation
is replaced by a single line containing the hexadecimal dig <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3389	3486	
==>ches a GRUB tarball.
  --grub-local=$grub_local
    Locally, the GRUB tarball is saved as --grub-l <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11260	11355	
==>forms:

=over 8

=item Comparator

A closure with arity of 2, which returns negative/zero/positi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4908	5176	
==>\{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                named => {},
                match => [ $match ],
            }, 'Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4367	4564	
==>\{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                named => { <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	288	413	
==>{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	288	413	
==>{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3269	3369	
==>::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3269	3369	
==>::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compi <==
2	/Users/nnunley/pugs/util/version_h.pl	537	648	
==>s to ask the user questions when it has a STDIN and there is
# no repository.  Since we don't need a STDIN anywa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6919	7026	
==>ss->pmc_process($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6919	7026	
==>ss->pmc_process($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filt <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10291	10419	
==>~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10291	10419	
==>~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	735	857	
==>in that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n";
            if ( $m->{bool <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15131	15229	
==>argument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15131	15229	
==>argument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30370	30487	
==>EST currently assumes it's run from the Perl source
directory.

Please use the CPAN bug ticketing system at L<http://r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5086	5229	
==>pan;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yie <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5086	5229	
==>pan;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigger than end yie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	545	648	
==>ugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	545	648	
==>ugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10040	10222	
==>le) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10040	10222	
==>le) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	623	724	
==>mply by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or multi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	623	724	
==>mply by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or multi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	13	104	
==>ule::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Resul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	13	104	
==>ule::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Resul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10684	10787	
==>key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10684	10787	
==>key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Lo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2203	2290	
==>n.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
A <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2203	2290	
==>n.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1569	1715	
==>$n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    return _mangle_var( $n->{sca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9844	9956	
==>\n";  
}        
sub node::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${name <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1045	1187	
==>(?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1045	1187	
==>(?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9031	9135	
==>he only overhead is a SVMG (i.e. bless())

you can return the same failure object always

then there's ab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8733	8835	
==>he only overhead is a SVMG (i.e. bless())
you can return the same failure object always
then there's ab <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26276	26384	
==>s the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30828	30936	
==>s the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1955	2091	
==>second(0),
                        :tz(tz "UTC") ) + $epoch;
}

method nanosecond returns Int {
    my $sec = $.second;
    my $round_sec <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	107	224	
==>);

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo');

#=postcircumfix
$a.{'foo'}		# $a.postcircumfix:«{ }»('foo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6821	6922	
==>n $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ig <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3472	3571	
==>im($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3530	3629	
==>im($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, : <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	464	570	
==>l = shift;

	foreach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	716	880	
==>otocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	716	880	
==>otocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14641	14761	
==>reates an "open" span, that is, it does not include the start or end values.

- `new( start => 1.0 )`

Given a start valu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14641	14761	
==>reates an "open" span, that is, it does not include the start or end values.

- `new( start => 1.0 )`

Given a start valu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11811	11916	
==><gt>` is currently not implemented, so you will have to wait
a little while. Until then, you can just writ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11869	11974	
==><gt>` is currently not implemented, so you will have to wait
a little while. Until then, you can just writ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26264	26356	
==>OPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #define ROPT_EVAL_SEEN		0x00400 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2431	2540	
==>l produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2431	2540	
==>l produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8467	8611	
==>t,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global'};
    my $ov = %mods{'ov'} || %mods <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12642	12750	
==>ob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mob["isnegated"] = 0
    p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37472	37569	
==>whether this is a positive
assertion.  Here's the new class for the object:

  package Regexp::And <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25775	25869	
==>ot interact with the outside
environment at all.

A Relation::Example object has 2 main attribu <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1563	1682	
==>ub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1563	1682	
==>ub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5221	5311	
==>oved child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_lea <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5221	5311	
==>oved child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_lea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15462	15560	
==>tween its different
users, such as their preferred language of communication, or their
privileges r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15462	15560	
==>tween its different
users, such as their preferred language of communication, or their
privileges r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19768	19865	
==>e
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19768	19865	
==>e
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1125	1224	
==>RITY> section for details.  (In particular, 
note that the serious insecurities plaguing WEP were ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1125	1224	
==>RITY> section for details.  (In particular, 
note that the serious insecurities plaguing WEP were ca <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1107	1202	
==>h replacement
data for stubs and other thingies.

It also gives the compiler the default environ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10338	10451	
==>e

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10338	10451	
==>e

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_chil <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13257	13379	
==>which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13257	13379	
==>which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18587	18692	
==>s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the cur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18587	18692	
==>s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the cur <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	459	587	
==>\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	575	697	
==>\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some command
sub can_r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1510	1725	
==>op::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	802	895	
==>---------------------------------
# Regexps
# ------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1175	1325	
==>we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @result <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1175	1325	
==>we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @result <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6010	6137	
==>l_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5998	6125	
==>l_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19538	19642	
==>he intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24090	24194	
==>he intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1241	1349	
==>\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1252	1360	
==>\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    return { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15826	15932	
==>he env with the the symbols of our outer scope
let: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$o <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2103	2204	
==>==>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< post <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2103	2204	
==>==>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< post <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10594	10702	
==>mpile a function that will select a record from the
    # 'person' table, whose 'id' field matches the functi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10594	10702	
==>mpile a function that will select a record from the
    # 'person' table, whose 'id' field matches the functi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3700	3811	
==>e test file which failed.

=item B<Stat>

If the test exited with non-zero, this is its exit status.

=item B<Ws <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8665	8763	
==>if you've built your own strap subclass,
such as a PHP interpreter for a PHP-based strap.

=cut

su <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26578	26678	
==>qual to
the invocant Relation's header, in which case it returns the identity-one
Relation or the inv <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31130	31230	
==>qual to
the invocant Relation's header, in which case it returns the identity-one
Relation or the inv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1473	1608	
==>"  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1461	1596	
==>"  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20149	20273	
==>$f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16570	16694	
==>$f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$of <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1422	1591	
==>FETCH('::Pass')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        1,
                '$.number' <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	100	200	
==>to express the junctive, higher order
# nature of the Cxt type.  The below is expressive enough to do <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6600	6709	
==>s.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6600	6709	
==>s.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(norm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	389	524	
==>t $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	486	621	
==>t $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3333	3484	
==>"$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3333	3484	
==>"$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10962	11072	
==>}";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10956	11066	
==>}";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1288	1386	
==>se_headers,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This is us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1288	1386	
==>se_headers,
 *@entity_headers,
);

# Make alternative representations of @header_order.  This is us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18582	18679	
==>rt of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18582	18679	
==>rt of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	723	832	
==>is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	781	890	
==>is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10842	11004	
==>part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10842	11004	
==>part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5076	5170	
==>-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions are prov <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5076	5170	
==>-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions are prov <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	987	1083	
==>orker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	987	1083	
==>orker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14032	14128	
==>The field name passed to the
callback routine has case as suggested by HTTP spec, and the headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14032	14128	
==>The field name passed to the
callback routine has case as suggested by HTTP spec, and the headers <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16035	16152	
==>ll be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarranted chumminess with compiler. */

I don <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25699	25780	
==>,_,_,_))).
flag_s(amat(_,flgs(_,_,s,_,_,_,_,_,_,_))).
flag_x(amat(_,flgs(_,_,_,x,_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16280	16383	
==>ation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16280	16383	
==>ation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
pro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7868	7970	
==>ed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.ke <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7868	7970	
==>ed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.ke <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16805	16926	
==>a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16805	16926	
==>a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7302	7404	
==>body was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7302	7404	
==>body was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2420	2545	
==>ACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_templa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2420	2545	
==>ACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_templa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7423	7538	
==>ta::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are act <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7435	7550	
==>ta::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are act <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21208	21313	
==>ses of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25760	25865	
==>ses of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13473	13656	
==>eop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::opti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13752	13935	
==>eop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::opti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1541	1670	
==>:Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1541	1670	
==>:Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5993	6119	
==>ub_skipped     Number of individual tests skipped
    todo            Number of individual todo tests

    files           Numb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	190	288	
==>die::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	220	352	
==>> \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	220	352	
==>> \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	391	487	
==>n = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	391	487	
==>n = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4287	4442	
==>tch;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4828	4983	
==>tch;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3214	3323	
==>Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3214	3323	
==>Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2871	3003	
==>n) = Perl6::Run::OnPerl5::X1::PilToPerl5::emit($pil_tree);
	    my $failed = !defined $p5;
	    $warn = "Pil to p5 compile failed: $w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12495	12594	
==>nctions will eval a code snippet, and then pass the result to is or ok
on success, or report that th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12553	12652	
==>nctions will eval a code snippet, and then pass the result to is or ok
on success, or report that th <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1548	1714	
==>($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = ope <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1548	1714	
==>($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = ope <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18662	18763	
==>, 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18662	18763	
==>, 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $do <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19948	20049	
==>arser is making; object() will return
immediately if it's just the first pass.  This means that force_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4613	4747	
==>ined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makei <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4613	4747	
==>ined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makei <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11618	11724	
==>a::Model::Node - This stores a collection of Node objects,
which are all of the Nodes that live in this Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11618	11724	
==>a::Model::Node - This stores a collection of Node objects,
which are all of the Nodes that live in this Doc <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2703	2839	
==>0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2703	2839	
==>0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3111	3218	
==>args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3111	3218	
==>args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7902	8006	
==>_prefix_and_cleanup($v,$prefix);
	    } elsif(defined $v) {
		$$o{$_} = "$prefix$v"
		    if $v =~ /^(PNi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23499	23595	
==>rsions that are more specific to
their own objects, for efficiency, and they can optionally exten <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	32	148	
==>@trig = q:x:/ sin cos tan asin acos atan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh ac <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1737	1861	
==>class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1737	1861	
==>class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1132	1235	
==>rn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spe <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1132	1235	
==>rn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	507	614	
==>ent;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	507	614	
==>ent;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10706	10824	
==>ends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` bui <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10764	10882	
==>ends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` bui <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14908	15093	
==>) {

            my $beg_n = $beg->pindex;
            my $end   = $beg->right;
            
            if (!defined $end) {
              $beg->tag('div');
              $beg->attr('cl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16998	17117	
==>revents mutation.
    # why twice: once for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5320	5520	
==>}
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5320	5520	
==>}
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4840	5047	
==>$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{bareword} eq 'class' ? ';use Moose' : '' ) .
                ";use Exporter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{ba <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5252	5392	
==>_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5445	5585	
==>_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23155	23251	
==>oop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23155	23251	
==>oop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The comm <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1752	1856	
==>parameters at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1752	1856	
==>parameters at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	236	324	
==>Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
PRELUD <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	558	676	
==>file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	525	643	
==>file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5159	5278	
==>(
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5159	5278	
==>(
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5594	5717	
==>h () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'chi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5594	5717	
==>h () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'chi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	196	326	
==>.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attrib <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	196	326	
==>.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attrib <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19200	19328	
==>2 The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or ori <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	137	257	
==>*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		my $old = $ret;
		$ret += 1 / $i!;
		return $ret if $ret-$o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24626	24731	
==>en      length of regmust string
 *  [regmlen not used currently]

Confined to regcomp/regexec.

 *
 * Reg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7129	7243	
==>dd_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'ti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7129	7243	
==>dd_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'ti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37277	37372	
==>l parameter
$module_name (a string) and checks whether or not it has already been
loaded, return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37277	37372	
==>l parameter
$module_name (a string) and checks whether or not it has already been
loaded, return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15269	15379	
==>ources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18746	18856	
==>ources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7921	8113	
==>ture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7921	8113	
==>ture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3186	3289	
==>ameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3186	3289	
==>ameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8483	8628	
==>04),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(883 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8483	8628	
==>04),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(883 <==
2	/Users/nnunley/pugs/util/importgraph.pl	250	350	
==>use File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ign <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8539	8650	
==>'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8535	8646	
==>'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_gr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15563	15655	
==>lly recursive, they will easily be
able handle arbitrarily complex data structures automatica <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15621	15713	
==>lly recursive, they will easily be
able handle arbitrarily complex data structures automatica <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2442	2563	
==>ncode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2442	2563	
==>ncode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14189	14296	
==>splayed by your program.  It is analagous to a simplified version of the
"Node" interface defined in the XML <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14189	14296	
==>splayed by your program.  It is analagous to a simplified version of the
"Node" interface defined in the XML <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3284	3386	
==>egex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signatur <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3284	3386	
==>egex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signatur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3590	3689	
==>ed by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3807	3906	
==>ed by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1290	1389	
==>Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1290	1389	
==>Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $i <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1507	1600	
==>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1507	1600	
==>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6758	6876	
==>array, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module documen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6533	6642	
==>array, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module documen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14598	14698	
==>l follow
recommended "Good Practice" of ordering the header fields.  Long header
values are not folde <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14598	14698	
==>l follow
recommended "Good Practice" of ordering the header fields.  Long header
values are not folde <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18292	18383	
==>Ex,E1).
rm(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1051	1163	
==>unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1051	1163	
==>unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests') <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2180	2293	
==>amed, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2168	2281	
==>amed, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unle <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	840	934	
==>ing elements of a constantly-transforming 
state table with each byte of plaintext or ciphertex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	840	934	
==>ing elements of a constantly-transforming 
state table with each byte of plaintext or ciphertex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37383	37493	
==>hers) returns Relation>

This multi-method is the N-ary version of the aforementioned binary join()
operator, a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41932	42042	
==>hers) returns Relation>

This multi-method is the N-ary version of the aforementioned binary join()
operator, a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6577	6700	
==>et_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6577	6700	
==>et_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	494	625	
==>: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	494	625	
==>: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3266	3379	
==>H>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3266	3379	
==>H>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty str <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5181	5275	
==>_uri,
  "kernel-local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3266	3379	
==>qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $arg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3266	3379	
==>qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self, $arg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18585	18687	
==>}'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18585	18687	
==>}'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed to th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1695	1825	
==>self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1835	1965	
==>self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{gra <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	746	852	
==>plan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	746	852	
==>plan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25764	25865	
==>ngful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25764	25865	
==>ngful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5603	5762	
==>$array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift / <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5603	5762	
==>$array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3639	3763	
==>}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3639	3763	
==>}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!heade <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4021	4116	
==>ibes Rosetta version 0.724.0.

It also describes the same-number versions of Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4021	4116	
==>ibes Rosetta version 0.724.0.

It also describes the same-number versions of Rosetta::Interface: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21002	21107	
==>s, each of which is an
unordered set of named attributes; all tuples in a Relation are of the same
degree, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25554	25659	
==>s, each of which is an
unordered set of named attributes; all tuples in a Relation are of the same
degree, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15051	15141	
==>tive Interface (RNI), which applications invoke and which
multiple interchangeable "Engine" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15051	15141	
==>tive Interface (RNI), which applications invoke and which
multiple interchangeable "Engine" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1160	1265	
==>ss $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1160	1265	
==>ss $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extrac <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4296	4415	
==>n $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4296	4415	
==>n $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35925	36029	
==>inations()>

This method returns an array ref having all combinations of this object's
Set Names and Memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35925	36029	
==>inations()>

This method returns an array ref having all combinations of this object's
Set Names and Memb <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7351	7485	
==>od from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7351	7485	
==>od from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header(" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29350	29467	
==>t

$::Class->send('add_method' => (
    # method label
        symbol->new('dispatcher'),
    # method body
        me <==
2	/Users/nnunley/pugs/util/package-osx.pl	2405	2497	
==>o/dev/pugs/examples /usr/local/share/doc/pugs/examples
        /Users/dromano/dev/pugs/docs / <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13524	13611	
==>me=skipped> skipped</span> and
		<span class="tests_unexpect"><tmpl_var name=unexpect> u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6751	6856	
==>::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6809	6914	
==>::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	541	688	
==>assert( EXPR, $name );

If the expression is false the program aborts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	277	383	
==>st</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</htm <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	277	383	
==>st</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</htm <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22983	23067	
==>A=qw(Error);
package Perl6::Run::OnPerl5::X1::Api::Exception::Return;
@ISA=qw(Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1032	1138	
==>.
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAUL <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1032	1138	
==>.
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAUL <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1117	1220	
==>is typically used to add extra directories to Pugs's 
search path so that later `use` or `require` state <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1117	1220	
==>is typically used to add extra directories to Pugs's 
search path so that later `use` or `require` state <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1238	1340	
==>s Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1238	1340	
==>s Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1025	1151	
==>ured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.mul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1025	1151	
==>ured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.mul <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33643	33738	
==>ry version of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38193	38288	
==>ry version of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14196	14318	
==>son.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14196	14318	
==>son.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fn <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32443	32592	
==>k'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33098	33247	
==>k'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3042	3145	
==>ME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3042	3145	
==>ME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32528	32626	
==>hers) returns Relation>

This multi-method is the N-ary version of the aforementioned binary union( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37078	37176	
==>hers) returns Relation>

This multi-method is the N-ary version of the aforementioned binary union( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12837	12966	
==>Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12837	12966	
==>Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8976	9089	
==>t') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Mes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8976	9089	
==>t') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Mes <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3124	3314	
==>w(:node<Scalar::Proxy>),
                        Tree.new(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node<Grammar>),
            Tree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5672	5880	
==>nce::add_to_list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20805	20907	
==>CODE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__loo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	854	994	
==>t {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	854	994	
==>t {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!memb <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7621	7781	
==>{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7621	7781	
==>{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13012	13141	
==>ual, $self->raw;
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4635	4775	
==>n "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4635	4775	
==>n "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7446	7548	
==>e a list of match operators, and return a new 

match operator.



A ruleop() function gets as argument <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7193	7292	
==>e a list of match operators, and return a new 
match operator.

A ruleop() function gets as argument <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9005	9113	
==>cts:

- `start()` / `end()`

Return the start or end value of the set.

These methods may return nothing if t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9005	9113	
==>cts:

- `start()` / `end()`

Return the start or end value of the set.

These methods may return nothing if t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9185	9298	
==>XT];
    my @classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        loca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9185	9298	
==>XT];
    my @classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        loca <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2489	2625	
==>if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2489	2625	
==>if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16866	16962	
==>tent-Encoding header field is used as a modifier to the
media type.  When present, its value indi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16866	16962	
==>tent-Encoding header field is used as a modifier to the
media type.  When present, its value indi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18726	18826	
==>Node.new(); you need to supply its $document and optional
$parent_node though; you can produce a dire <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18726	18826	
==>Node.new(); you need to supply its $document and optional
$parent_node though; you can produce a dire <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23345	23440	
==>r than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivia <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23345	23440	
==>r than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2676	2836	
==>_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2869	3029	
==>_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	239	397	
==>d param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	239	397	
==>d param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	265	373	
==>time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT) { ... }
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	265	373	
==>time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT) { ... }
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3752	3858	
==>o

    ( Thunk(...), 10 )

At which point the App will put the 10 into the parameter stack and reduce the
T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2148	2250	
==>2 char strings such as \n
my %backslash_escape;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backslash <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	760	1063	
==>$buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'h <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	760	1063	
==>$buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'h <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11073	11176	
==>ng>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11073	11176	
==>ng>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3526	3639	
==>load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEX <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3526	3639	
==>load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEX <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5899	6001	
==>urns a list of all index_files that a given package belongs to.

=cut

sub index_files { #TODO: When us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19321	19418	
==>a DBMS (compared to a typical other
vendor's DBMS) is that data definition statements are structur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19321	19418	
==>a DBMS (compared to a typical other
vendor's DBMS) is that data definition statements are structur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1265	1362	
==>tem B<to_num () returns num>

=item B<to_str () returns str>

=item B<concat (str) returns str>

= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21827	21920	
==>lation::Example -
Simple in-memory implementation of the Relation role

=head1 VERSION

This d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4232	4324	
==>lass/Object COMPLETE
## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2578	2673	
==>print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2718	2813	
==>print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumpe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	934	1045	
==>sub reduce_stub {
    my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emit <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2710	2808	
==>d can be
used to set perl command line options used for running the test
script(s). The default val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2912	3010	
==>st.  The order in which they were
present in the query string is preserved.

=item C<$q.param()>

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2912	3010	
==>st.  The order in which they were
present in the query string is preserved.

=item C<$q.param()>

T <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1678	1795	
==>:Straps->new;

Initialize a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	783	889	
==>VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	809	915	
==>VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6907	7012	
==>and -s $bash };

my $pugs_version;
step
  descr  => "Querying Pugs for its version",
  ensure => sub { def <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7775	7875	
==>.
p5_condition_test(condi(I))          --> "(", digits_int(I1), ")", {I is I1 - 1}.

p5_modifier_scop <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2464	2580	
==>have been written. - Mitchell N Charity
#


grammar JavaScript::ECMAScript3::Grammar::Spec;

rule ws          {<?ws_i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	580	677	
==>BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you gi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	580	677	
==>BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you gi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22792	22888	
==>choose to show less than all of the available details depending on the
intended viewer.

=head2 C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22792	22888	
==>choose to show less than all of the available details depending on the
intended viewer.

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24486	24585	
==>his Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29038	29137	
==>his Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=it <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29256	29369	
==>ock {
    $order = ':ascendant' 
        if !~$order || $order == ':canonical';
    ...
}

=cut

$::Class->send('a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1950	2097	
==>0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1950	2097	
==>0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11166	11263	
==>$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11166	11263	
==>$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10472	10598	
==>1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10466	10592	
==>1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_ru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3048	3145	
==>n be called repeatedly to encipher data.
The encipherer closure can be called with a string, and s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3048	3145	
==>n be called repeatedly to encipher data.
The encipherer closure can be called with a string, and s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10941	11086	
==>last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10941	11086	
==>last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7751	7859	
==>ize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7751	7859	
==>ize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6478	6584	
==>sion or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC (6.4.1 or above) fro <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3135	3235	
==>Data::Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -f <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2225	2359	
==>per \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14951	15072	
==>, $on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'group' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5871	5976	
==>alse if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool {
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5871	5976	
==>alse if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1926	2058	
==>]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1926	2058	
==>]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	534	631	
==>-- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	534	631	
==>-- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6916	7020	
==>ver, this means I should defer events until I get to the
end of the line. I could probably do that, but i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6916	7020	
==>ver, this means I should defer events until I get to the
end of the line. I could probably do that, but i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12454	12552	
==>et2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a supe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12454	12552	
==>et2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a supe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2454	2577	
==>, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2454	2577	
==>, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7113	7270	
==>SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7113	7270	
==>SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9236	9375	
==>er" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # l <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2307	2403	
==>::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2307	2403	
==>::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.code <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2759	2883	
==>ew();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootprope <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2759	2883	
==>ew();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootprope <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3217	3317	
==>e needed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3217	3317	
==>e needed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!conten <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21200	21296	
==>or purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mappi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25752	25848	
==>or purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mappi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5033	5182	
==>entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable cand <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5497	5646	
==>entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable cand <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	246	371	
==>::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1189	1310	
==>) ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1189	1310	
==>) ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_varia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9028	9123	
==>{ Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2853	2948	
==>{ Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7759	7870	
==>lf;
  }
}


{
  package Regexp::Parser::prop;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4101	4198	
==>etta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4101	4198	
==>etta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19362	19456	
==>he server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19362	19456	
==>he server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3856	3953	
==>is is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILL <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3856	3953	
==>is is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9815	9931	
==>_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16303	16406	
==>mc mob
    .local pmc optable
    optable = find_global "PGE::P6Rule", "$optable"
    $P0 = optable."par <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	583	718	
==>{
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	583	718	
==>{
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10276	10402	
==>%!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10276	10402	
==>%!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5376	5477	
==>e();
  
  (substr $target, $position, $lastPosition) =~ m/[^\s]/;
  $whitespacePosition = $-[0];
  $cu <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	189	285	
==>MOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
su <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	189	285	
==>MOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5248	5354	
==>chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5248	5354	
==>chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4340	4562	
==>xt;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscap <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4340	4562	
==>xt;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscap <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8155	8295	
==>e) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8155	8295	
==>e) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1348	1484	
==>}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1348	1484	
==>}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00f <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	682	787	
==>~ s!-!/!g;
        $self->version(ExtUtils::MM_Unix->parse_version($file)) if -f $file;
    }

    $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4863	4968	
==>infix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - default <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15006	15115	
==>code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $diges <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15006	15115	
==>code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $diges <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11959	12064	
==>'test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12017	12122	
==>'test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expec <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5069	5322	
==>$token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5069	5322	
==>$token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2025	2119	
==>(%?CONFIG{'num_width'} == 128,'subset num of num128 where { true }');

Helpers::macif(%?CONFIG{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2592	2819	
==>ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2592	2819	
==>ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	270	389	
==>from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	270	389	
==>from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7588	7716	
==>[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7576	7704	
==>[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9386	9498	
==>));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9444	9556	
==>));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1871	1986	
==>em = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(" <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1871	1986	
==>em = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(" <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	445	549	
==>//= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method ad <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	445	549	
==>//= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method ad <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5363	5463	
==>perties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<e <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5363	5463	
==>perties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1945	2055	
==>yed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1945	2055	
==>yed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19353	19446	
==>that indicates the
authentication scheme and parameters applicable to the requested URI.

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19353	19446	
==>that indicates the
authentication scheme and parameters applicable to the requested URI.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2462	2603	
==>e::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0]. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2462	2603	
==>e::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0]. <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	382	488	
==>*infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	382	488	
==>*infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35689	35783	
==>r!) returns Relation>

This multi-method is a generic binary relational operator that takes
ano <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40239	40333	
==>r!) returns Relation>

This multi-method is a generic binary relational operator that takes
ano <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4853	4963	
==>IL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArg <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4853	4963	
==>IL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1401	1497	
==>::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1401	1497	
==>::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1483	1597	
==>end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1483	1597	
==>end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.e <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3502	3615	
==>Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3502	3615	
==>Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12390	12558	
==>] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12390	12558	
==>] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3961	4101	
==>kip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3961	4101	
==>kip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	459	586	
==>= 1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $t <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2238	2333	
==>orithm switching.  When their fast method fails, they fall back
on something more likely to work <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24436	24543	
==>eturns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28988	29095	
==>eturns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1459	1641	
==>p[0]
    if +@p == 1;

  return sub($input) {

    my($v, @values);
    for @p {
      ($v, $input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5890	6040	
==>ode = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub greedy <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2724	2835	
==>eturn join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$conte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2724	2835	
==>eturn join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$conte <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1451	1558	
==>$req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1451	1558	
==>$req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11139	11251	
==>> $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11139	11251	
==>> $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6034	6129	
==>nality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this docume <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6034	6129	
==>nality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this docume <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3833	3956	
==>$?;

        ### extract the meta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_tmp_dir/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1504	1608	
==>has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submet <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1504	1608	
==>has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submet <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8992	9117	
==>m, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8980	9105	
==>m, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_matc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31838	31932	
==>r!) returns Relation>

This multi-method is a generic binary relational operator that takes a s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36388	36482	
==>r!) returns Relation>

This multi-method is a generic binary relational operator that takes a s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8940	9034	
==>n32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8940	9034	
==>n32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9200	9358	
==>ld = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10191	10349	
==>ld = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1918	2056	
==>alog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1896	2034	
==>alog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	614	721	
==>tract syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	583	686	
==>tract syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2678	2898	
==>ath.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2678	2898	
==>ath.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.k <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	600	805	
==>t = 0,
                                   Int ?$length,
                                       *@values
                                ) returns List is rw
 multi sub Array::unshift (@array is rw ; *@value <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2226	2333	
==>ge. not even trying with m and s.
# Match objects arent being created for capture groups which are never rea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3086	3184	
==>`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3086	3184	
==>`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1800	1900	
==>finite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) returns Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1800	1900	
==>finite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) returns Set: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12572	12677	
==>$field, ... )

This function removes the header fields with the specified names.

The header field names ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12572	12677	
==>$field, ... )

This function removes the header fields with the specified names.

The header field names ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6972	7082	
==>m";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6972	7082	
==>m";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8277	8392	
==>( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $pref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8277	8392	
==>( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $pref <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1982	2078	
==>egexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback) <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2235	2353	
==>mory problems.

Tainting information is discarded.

The perl5 regexp engine is entangled with the rest of the perl core <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	17	124	
==>0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	17	124	
==>0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1221	1328	
==>his import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1221	1328	
==>his import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4209	4320	
==>. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4393	4504	
==>. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rul <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14271	14371	
==>, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14329	14429	
==>, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print e <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1228	1404	
==>eth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heav <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1228	1404	
==>eth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heav <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3363	3515	
==>e concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3610	3762	
==>e concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1064	1196	
==>'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1064	1196	
==>'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too L <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1286	1402	
==>@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1286	1402	
==>@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some poi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21379	21575	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21658	21854	
==>)
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19729	19830	
==><LabelledStatement>
    | <SwitchStatement>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block : <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4674	4773	
==>s part of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4674	4773	
==>s part of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9456	9567	
==>ort
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(& <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9456	9567	
==>ort
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(& <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15772	15876	
==>return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19249	19353	
==>return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!bo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	375	489	
==>reement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	375	489	
==>reement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10645	10784	
==>');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(qua <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31154	31256	
==>eneric relational operator that returns a new Relation
which has a subset of the original's tuples, and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35704	35806	
==>eneric relational operator that returns a new Relation
which has a subset of the original's tuples, and <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5861	5962	
==>=> $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12551	12642	
==>perset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12551	12642	
==>perset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1604	1736	
==>e string (sequence of integers, no Unicode)
    num         native floating point
    ref         native pointer 
    bool        nat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2133	2238	
==><op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2133	2238	
==><op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5669	5815	
==>\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\\n   Scalar    pre     min     safe   (Lis <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10812	10927	
==>deleted, so you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also not <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6800	6907	
==>root()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6800	6907	
==>root()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent() <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33342	33483	
==>d' => (
    # method label
        symbol->new('is_a'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	962	1067	
==>r::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	962	1067	
==>r::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3057	3152	
==>ed repeatedly to encipher data.
The encipherer closure can be called with a string, and should b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3057	3152	
==>ed repeatedly to encipher data.
The encipherer closure can be called with a string, and should b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2462	2560	
==>rns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns B <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2462	2560	
==>rns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1061	1194	
==>erms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1061	1194	
==>erms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} } <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1803	1890	
==>allation process described in README.

------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1643	1730	
==>allation process described in README.

------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11493	11626	
==>$v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25322	25464	
==>('$self:')->set_attr(symbol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->get <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6975	7088	
==>value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a blo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6975	7088	
==>value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a blo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9510	9672	
==>apture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5845	5943	
==>ranslate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5845	5943	
==>ranslate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14545	14678	
==>sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $id <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4060	4149	
==>re "lib/TestBuilder/TestPlan.pm";
require "lib/TestBuilder/Output.pm";
require "lib/TestBu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	931	1044	
==>symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name->to_native && 
           $lef <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	23	125	
==>ent::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	23	125	
==>ent::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my %even <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2111	2230	
==>odcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2111	2230	
==>odcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11768	11897	
==>se Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11768	11897	
==>se Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.n <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1533	1630	
==>rent;
    $.depth  = $parent.depth() + 1;
}

## -------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1533	1630	
==>rent;
    $.depth  = $parent.depth() + 1;
}

## -------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20187	20294	
==>viour is), this Relation data type is proposed to be
generally useful, and very basic, and worthy of inclusi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24739	24846	
==>viour is), this Relation data type is proposed to be
generally useful, and very basic, and worthy of inclusi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2667	2777	
==>idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2667	2777	
==>idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	347	454	
==>ethod is bound to a compiled class (a L<Type>), which is used for
dispatching private methods.

=back

Norma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	445	558	
==>ct_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	439	552	
==>ct_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1485	1594	
==>lf: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1485	1594	
==>lf: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert l <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5668	5778	
==>vent::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5668	5778	
==>vent::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20411	20541	
==>turn { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20690	20820	
==>turn { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3927	4032	
==>}
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3927	4032	
==>}
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2230	2349	
==>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2230	2349	
==>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27145	27237	
==>efine RE_INTUIT_TAIL		0x8000000

 #define RE_USE_INTUIT		(RE_USE_INTUIT_NOML|RE_USE_INTUIT_ML <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4855	4963	
==>Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4855	4963	
==>Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYN <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5366	5467	
==>ties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5366	5467	
==>ties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	637	760	
==>hift;
    return $self->{data};
  }

  sub ender {
    my $self = shift;
    unless ($self->{down}) {
      Carp::carp("ende <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6862	6948	
==>up_finder = Blondie::Backend::C::Emitter::DuplicateFinder->new;
	$self->{dups} = Set::O <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12700	12849	
==>ument $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'pre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12700	12849	
==>ument $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'pre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2405	2523	
==>lf: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2405	2523	
==>lf: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	77	176	
==>t_class = ::Getopt::Argument::Style;
        has $normalizer_role = ::Getopt::Argument::Normalizer:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	440	547	
==>ub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	440	547	
==>ub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Clas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5083	5195	
==>a( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of stri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5305	5417	
==>a( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of stri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2466	2595	
==>prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2683	2812	
==>prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "* <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3808	3941	
==>rrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3808	3941	
==>rrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @s <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1531	1710	
==>Script = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linkte <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1531	1710	
==>Script = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linkte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9762	9911	
==>ed";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9762	9911	
==>ed";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	739	854	
==>index->isa('num'))
        || confess "Index must be a num type";
    my $val = $self->[$index->to_native];
    # NO <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1957	2051	
==>st";
    my $params = $self->{sig}->params;
    ($args->length()->less_than_or_equal_to($params <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	836	949	
==>er::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	836	949	
==>er::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does P <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13749	13853	
==>r_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17226	17330	
==>r_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21393	21497	
==>).  An advantage of
this is that, for example, your package could come with a set of user
messages, but a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21393	21497	
==>).  An advantage of
this is that, for example, your package could come with a set of user
messages, but a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	919	1016	
==>class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	919	1016	
==>class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9755	9906	
==>plemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9755	9906	
==>plemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4707	4803	
==>. }
rule logical_grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule expli <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4357	4458	
==>one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4357	4458	
==>one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8257	8362	
==>is working because the language
    # spec says it is supposed to, or whether is due a fluke or unspecced. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8257	8362	
==>is working because the language
    # spec says it is supposed to, or whether is due a fluke or unspecced. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6333	6456	
==>store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6333	6456	
==>store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5681	5800	
==>otected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19481	19583	
==>ot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is a rea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19481	19583	
==>ot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is a rea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19167	19281	
==>$hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19167	19281	
==>$hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $documen <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	720	847	
==>me experimental versions of OS/2 build have broken $?
my $Ignore_Exitcode = $ENV{HARNESS_IGNORE_EXITCODE};

my $Files_In_Dir = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1915	2025	
==>tive . ") not found in \$::Class " . $class->id->to_native;             
}

$::ENV = Perl6::Runtime::get_top_le <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	376	536	
==>> $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	376	536	
==>> $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state, <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13935	14056	
==>am = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $pri <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1415	1536	
==>am = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $pri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1114	1220	
==>an be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1114	1220	
==>an be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11016	11123	
==>s) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11016	11123	
==>s) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12633	12776	
==>re_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12912	13055	
==>re_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1051	1153	
==>RC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1051	1153	
==>RC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5186	5314	
==>.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5186	5314	
==>.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2846	2992	
==>ars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3030	3176	
==>ars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36991	37110	
==>ute', (symbol->new('@:MRO')             => attribute->new('@:MRO'             => 'list')));
$::Class->send('add_attribut <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3509	3610	
==>t F<t/waterloo.t>.  It failed 10 of 20 tests and
exited with non-zero status indicating something dubi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1612	1706	
==>Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi- <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1612	1706	
==>Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5644	5829	
==>e => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$template->p <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3720	3821	
==>$^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in S29draft.pod.
# Prim.hs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13706	13838	
==>:Lang::'],
                # set package prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13706	13838	
==>:Lang::'],
                # set package prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'] <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8333	8576	
==>mplate->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->pa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5601	5783	
==>mplate->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->pa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2836	2960	
==>t <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2836	2960	
==>t <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $sp <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2214	2361	
==>> Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeate <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2572	2719	
==>> Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeate <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1588	1683	
==>= not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1646	1741	
==>= not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $exp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	66	165	
==>p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
requi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	66	165	
==>p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
requi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5578	5675	
==>flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5636	5733	
==>flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19528	19622	
==>ameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19528	19622	
==>ameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
ne <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7740	7870	
==>time\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ }
              split "\000",
              `find $parro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23945	24060	
==>{&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(grou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20366	20481	
==>{&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(grou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2555	2675	
==>s;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } els <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2555	2675	
==>s;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } els <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6970	7085	
==>e bindings
            # user code has to @array[$off+$i], see t/operators/binding/arrays.t.
            @array.dele <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	900	1002	
==>fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Fil <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	900	1002	
==>fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Fil <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4971	5099	
==>urns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute na <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8448	8576	
==>urns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9169	9285	
==>te rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9169	9285	
==>te rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1410	1539	
==>{$_[1]} = $_[2] }

    package AST;
    use base 'Unit';

    package Sym;
    use base 'Unit';

    package Param;
    use base ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4716	4827	
==>he core list type

=head1 METHODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<to_native () return <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1487	1617	
==>description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1487	1617	
==>description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7025	7144	
==>le or die "unlink: $!";
    }
    warn "all chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $test = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	626	728	
==>,
);

my %by_digest = (
    Blondie::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map { nat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10370	10504	
==>ch}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10370	10504	
==>ch}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4148	4339	
==>f there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4148	4339	
==>f there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::N <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2948	3061	
==>/$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2948	3061	
==>/$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() an <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1550	1708	
==>ct> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<ob <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1550	1708	
==>ct> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<ob <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3096	3214	
==>XX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3560	3678	
==>XX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13269	13356	
==>, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_untermin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13269	13356	
==>, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_untermin <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5322	5472	
==>f because they are often
            # checked and don't want the checker to have to deal with
            # uninitialized vars.
            foreach my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3896	4036	
==>=> 'equal',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	868	977	
==>uthenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	868	977	
==>uthenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Conte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	78	245	
==>0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	78	245	
==>0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17303	17404	
==>. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17303	17404	
==>. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	4	98	
==>ss Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($sel <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	4	98	
==>ss Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($sel <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1995	2095	
==>?)/$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12578	12673	
==>esent the
current working features.

This module deals with encoding and decoding of strings wit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12578	12673	
==>esent the
current working features.

This module deals with encoding and decoding of strings wit <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8741	8849	
==>my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set oper <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8741	8849	
==>my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set oper <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3358	3453	
==>tokenStack = [];
  my $termEmpty = $self->termTable()->{""};
  my $operatorEmpty = $self->operat <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17773	17929	
==>ind a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1863	1951	
==>:Emitter::Pretty->new->string($reduced)
			if $received != $sent and $reduced->isa("Blond <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1003	1103	
==>> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1003	1103	
==>> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byt <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3357	3459	
==>f enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-orien <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3357	3459	
==>f enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-orien <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31464	31574	
==>:Foo".

A library could be distributed with a Template module set that is specific
to it, another library likew <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31464	31574	
==>:Foo".

A library could be distributed with a Template module set that is specific
to it, another library likew <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2639	2749	
==>rns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.set.stringify }
met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2639	2749	
==>rns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.set.stringify }
met <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3510	3613	
==>as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was writte <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3510	3613	
==>as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was writte <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2460	2738	
==>(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8634	8735	
==>s an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8634	8735	
==>s an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11675	11773	
==>style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11733	11831	
==>style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1551	1660	
==>robes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2213	2322	
==>robes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4865	5021	
==>w_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specifi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4865	5021	
==>w_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specifi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20030	20153	
==>', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20309	20432	
==>', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2866	2989	
==>n = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2866	2989	
==>n = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	148	249	
==>'m up to".

It passes most (95%) of a perl 5.9 re test file (re_tests), but it's
real p5 re coverage i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6825	6925	
==>Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6825	6925	
==>Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert_children($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7081	7171	
==>ta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7081	7171	
==>ta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3342	3487	
==>ce => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right',
        precedence => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1264	1363	
==>bs')    ];
$config{'repo_index'}       = [ Path::Class::dir('dists')   ];
$config{'repo_index_file'} <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1703	1819	
==>EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    binmode $EOUT;
    print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	399	498	
==>he structure generated by concat() still looks like a tree, instead of a 'plain' Match.

- There a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	796	906	
==>TH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	796	906	
==>TH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	293	412	
==>-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	293	412	
==>-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Conten <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18507	18591	
==>,F0,F0,B0,B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20365	20481	
==>d_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16786	16902	
==>d_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	808	971	
==>efore  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	808	971	
==>efore  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that d <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	165	275	
==>nately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () ret <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	165	275	
==>nately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5090	5229	
==>)->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4354	4484	
==>)->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $status <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5041	5190	
==>matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5041	5190	
==>matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	375	518	
==>efix   $Preinst    $Postinst   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2717	3009	
==>line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2717	3009	
==>line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	305	418	
==>> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	305	418	
==>> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5521	5655	
==>ule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5714	5848	
==>ule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1366	1465	
==>e say something (in public), the current
time and the text they said is saved.

If the (optional) ro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1366	1465	
==>e say something (in public), the current
time and the text they said is saved.

If the (optional) ro <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3058	3171	
==>ging data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $d <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3058	3171	
==>ging data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11085	11217	
==>egated
    iscapture = 1
    inc pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  nocapture:
    iscapture = 0
    pos <==
2	/Users/nnunley/pugs/util/package-osx.pl	5972	6069	
==>iew::File.3pm
        /usr/local/man/man3/Perl6::Overview::Functions.3
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11178	11320	
==>span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11178	11320	
==>span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2811	2936	
==>urn;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, becaus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2811	2936	
==>urn;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, becaus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7060	7240	
==>le( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key fro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7060	7240	
==>le( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8941	9164	
==>tr->[0]{bareword} eq 'is' &&
                 $attr->[1]{bareword} eq 'export' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7773	7906	
==>"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7773	7906	
==>"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12072	12185	
==>ping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12072	12185	
==>ping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3764	3890	
==>rs{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3764	3890	
==>rs{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5060	5159	
==>called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishst <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5060	5159	
==>called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishst <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2794	2972	
==>!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6271	6449	
==>!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1863	1989	
==>draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5030	5135	
==>SX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value;
   has $.target;
   method is_a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2726	2826	
==>s =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@let_stack,[$vars <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2205	2299	
==>C<$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2205	2299	
==>C<$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets su <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	300	397	
==>ta = uc("__${name}__");

open OUT, "> $out" or die $!;
print OUT "module $fullname ($data) where\n <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	655	764	
==>ub get_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	655	764	
==>ub get_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34796	34899	
==>s that
are in the invocant Relation and that match any tuples of C<$other> along
their common attributes <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39346	39449	
==>s that
are in the invocant Relation and that match any tuples of C<$other> along
their common attributes <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	349	461	
==>5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	349	461	
==>5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOP <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25947	26044	
==>g this original copyright notice and other credits.
Rosetta is distributed in the hope that it wil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25947	26044	
==>g this original copyright notice and other credits.
Rosetta is distributed in the hope that it wil <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	14	132	
==>nwendung von temp
my $log = 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test2";
}

log "test1";
b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1188	1302	
==>is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4666	4780	
==>is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples. <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	718	841	
==>uire Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unles <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	685	808	
==>uire Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unles <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	910	1033	
==>d1 NAME

reference - the core reference type

=head1 METHODS

=over 4

=item B<new (~type) returns reference>

=item B<to_na <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4611	4757	
==>safe   (Scalar)\
\\n   List      post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     saf <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16066	16175	
==>symbol};
    my $val = $self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1657	1776	
==>urn $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Pack <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4860	4979	
==>urn $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Pack <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10152	10291	
==>ort... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10152	10291	
==>ort... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $las <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5052	5396	
==>),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ), <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5575	5684	
==>_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5575	5684	
==>_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2397	2499	
==>s to them

	my @letters = split //, "αβγδεζηθικλμνξοπρστυφχψω"; # some identifi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	619	725	
==>le whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	619	725	
==>le whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1402	1502	
==>rent
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1402	1502	
==>rent
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a tr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	13068	13179	
==>(self) }

    method trans (Pair *@intable) is primitive is safe {
        # Motto: If in doubt use brute force! <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	253	349	
==>ass SomeClass { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addMetho <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2469	2564	
==>y.
Encryptions after this point will be using stronger portions of the keystream.
(Just remember <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2469	2564	
==>y.
Encryptions after this point will be using stronger portions of the keystream.
(Just remember <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6420	6571	
==>.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the module content; n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6420	6571	
==>.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the module content; n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1687	1788	
==>=>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.interse <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1687	1788	
==>=>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.interse <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2846	3016	
==>ty
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub package_ver <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41311	41402	
==>05.03.21, provided feedback towards improving this module's
documentation, particularly towa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41311	41402	
==>05.03.21, provided feedback towards improving this module's
documentation, particularly towa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5940	6092	
==>$code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5940	6092	
==>$code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23521	23615	
==>ample is entirely object-oriented; you use it by
creating objects from its member classes, usua <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9836	9930	
==>pat,$qo,$qc);
}
macro m_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_interna <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1136	1245	
==>responding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst nee <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1136	1245	
==>responding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst nee <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22608	22706	
==>a Relation data type that corresponds to the "relation" of logic
and mathematics and philosophy ("a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4753	4884	
==>l>
}
rule Keyword {  # see 7.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case'>
    | <'finally'>
    | < <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3506	3599	
==>smokes = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ $cats{$category->($_)} } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42882	42977	
==>s these Perl 6 classes that are in the current distribution:
L<Relation-(0.1.0)|Relation>.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	184	309	
==>ass.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method siz <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	184	309	
==>ass.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method siz <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3041	3180	
==>g{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+Config::config_vars+version';
        ($perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4248	4369	
==>act => $S->nchar($name), "\\N{$name}");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17201	17302	
==>0.022b -- July 6, 2004

=over 4

=item Hierarchy Changes

There are now abstract classes I<anchor> and <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8664	8773	
==>gits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntege <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6428	6529	
==>set up (also helps scare off perl) */
    r->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_E <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5646	5733	
==>w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4400	4509	
==>time::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4650	4759	
==>time::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1920	2075	
==>= $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1920	2075	
==>= $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18451	18552	
==>object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14872	14973	
==>object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4140	4240	
==>S

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4140	4240	
==>S

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8707	8819	
==>', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6238	6346	
==>', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6171	6287	
==>t_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAM <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6171	6287	
==>t_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAM <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10948	11042	
==>returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<document_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10948	11042	
==>returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<document_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	491	607	
==>')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	491	607	
==>')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9673	9775	
==>y $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9673	9775	
==>y $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7828	7941	
==>e($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7828	7941	
==>e($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    re <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1313	1429	
==>opy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        r <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1313	1429	
==>opy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9334	9436	
==>$ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9334	9436	
==>$ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1101	1194	
==>eader = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1101	1194	
==>eader = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17793	17944	
==>" if $kind;
    $code .= "use Perl6::Run::OnPerl5::X1::Api;\n";
    $code .= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9455	9570	
==>erse );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9455	9570	
==>erse );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3616	3720	
==>ta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3616	3720	
==>ta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12562	12693	
==>uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_gener <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12562	12693	
==>uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_gener <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6487	6600	
==>module_name {
        # Determine if requested template module is already loaded.
        # It may have been embed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6487	6600	
==>module_name {
        # Determine if requested template module is already loaded.
        # It may have been embed <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1286	1473	
==>r::Scalar
            },
            
            'array_storeElem' => sub { # $idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10390	10522	
==>refix eq 'statement_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	818	948	
==>ail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Exp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	818	948	
==>ail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Exp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5533	5686	
==>OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there ar <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5997	6150	
==>OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there ar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4801	4936	
==>9),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4801	4936	
==>9),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5456	5565	
==>ved.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_afte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5456	5565	
==>ved.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_afte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5873	5975	
==>/add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5873	5975	
==>/add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	830	936	
==>j\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	830	936	
==>j\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	705	807	
==>!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	705	807	
==>!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2870	3029	
==>m>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3117	3276	
==>m>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7455	7557	
==>ect(anyof_char_comp => chr(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join("", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2995	3148	
==>appeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3135	3288	
==>appeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10450	10596	
==>ildren(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:no <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10450	10596	
==>ildren(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:no <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5288	5390	
==>ase64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTI <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5288	5390	
==>ase64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTI <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7888	7983	
==>rrot/include -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	361	458	
==>force_todo_test_junction;

# for running the test suite multiple times in the same process
$Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	419	516	
==>force_todo_test_junction;

# for running the test suite multiple times in the same process
$Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17233	17398	
==>,
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated (' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17233	17398	
==>,
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated (' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9838	9959	
==>y other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so g <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2870	2991	
==>y other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13065	13183	
==>ssage") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13065	13183	
==>ssage") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9678	9792	
==>ush(@args,"writable=>1") if $op{'isWritable'};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # fo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20732	20837	
==>h.

The usual way that Relation indicates a failure is to throw an exception;
most often this is due to in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25284	25389	
==>h.

The usual way that Relation indicates a failure is to throw an exception;
most often this is due to in <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2383	2493	
==>orrect results for $prog->{name}",
		);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TestPrograms - <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17241	17342	
==>1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17911	18008	
==>-03542'.  These codes
are "machine readable"; any application receiving such a code can identify
i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17911	18008	
==>-03542'.  These codes
are "machine readable"; any application receiving such a code can identify
i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13478	13577	
==>{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13478	13577	
==>{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	682	795	
==>app->values;

    $self->prepare_scope(@params);

    # profiling actually slows this down by around 30%
    #my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9459	9551	
==>t($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9459	9551	
==>t($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset( <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2037	2171	
==>s by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3629	3759	
==>s by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7220	7350	
==>)";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7208	7338	
==>)";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1858	1994	
==>f:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ---- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1858	1994	
==>f:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ---- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	801	895	
==>_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	801	895	
==>_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7719	7853	
==>karound

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7719	7853	
==>karound

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4724	4929	
==>a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4724	4929	
==>a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4783	4914	
==>iler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4619	4745	
==>iler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36533	36655	
==>pes: ifthen (C<(?(>)

Data: array reference of two objects; first: I<ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<br <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6080	6166	
==>:<(\w+)>\s+{([^}]*)}(?{ &::hlp_ws;})');
my $x2 = def_stmt_prim('bs_token_decl','\s*toke <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35083	35194	
==>s are
identical.  This method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39633	39744	
==>s are
identical.  This method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13028	13133	
==>ve_content_headers

This will remove all the header fields used to describe the content of
a message.  All <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13028	13133	
==>ve_content_headers

This will remove all the header fields used to describe the content of
a message.  All <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23319	23422	
==>be stored in a format other than Perl
files.  Or alternately they have a compiled C component or otherwi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23319	23422	
==>be stored in a format other than Perl
files.  Or alternately they have a compiled C component or otherwi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5770	5888	
==>verse,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5770	5888	
==>verse,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5045	5178	
==>> { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5238	5371	
==>> { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1306	1446	
==>"negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1317	1457	
==>"negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1942	2032	
==>Calls C<$session>'s C<$event> event handler, passing C<@args> as arguments.
Note that possi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14132	14227	
==>consider unsafe (i.e., which to escape). The default set
of characters to encode are control cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14132	14227	
==>consider unsafe (i.e., which to escape). The default set
of characters to encode are control cha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15189	15337	
==>('CREATE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	315	437	
==>al 
# clarification.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Ha <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8887	8996	
==>0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::Nod <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3289	3391	
==>ameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3289	3391	
==>ameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9007	9104	
==>($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2761	2856	
==>y has some issues with Perl 5 interoperability.

Parrot Perl 6 is the best performing implementa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3528	3626	
==>DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3528	3626	
==>DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1172	1285	
==>|| ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1172	1285	
==>|| ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3485	3603	
==>mall u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3485	3603	
==>mall u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12789	12896	
==>ce is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12789	12896	
==>ce is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12160	12308	
==>s')));    
            }
        )
    )
);

=pod

method bless (opaque $class: str $canidate, hash %params) returns opaque {
    $canidate //= 'P6op <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26048	26150	
==>yEscape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12365	12464	
==>resents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12365	12464	
==>resents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1220	1341	
==>e with '# skip' and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } el <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17861	17964	
==>bases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any appl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17861	17964	
==>bases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readable"; any appl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	126	277	
==>> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                pu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	126	277	
==>> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7801	7941	
==>_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7801	7941	
==>_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5957	6061	
==>$chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5957	6061	
==>$chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %ch <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1423	1540	
==>method BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1423	1540	
==>method BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26927	27027	
==>ded (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26927	27027	
==>ded (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::Keye <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	196	294	
==>'s really 
pretty bad actually, and the s-expr got quite messy
as well. Although that could be fixe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17176	17274	
==>nguage(s) of the intended audience for the message
content.  The value is one or more language tags <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17176	17274	
==>nguage(s) of the intended audience for the message
content.  The value is one or more language tags <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15722	15828	
==>unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10578	10684	
==>unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9210	9357	
==>h');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9210	9357	
==>h');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2tim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7575	7679	
==>'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7575	7679	
==>'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3698	3811	
==>ion.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3698	3811	
==>ion.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4734	4835	
==>\$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4956	5057	
==>\$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15537	15805	
==>s'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15816	16084	
==>s'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	548	670	
==>pans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	548	670	
==>pans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	327	424	
==>worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	327	424	
==>worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3136	3250	
==>w 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    bur <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3136	3250	
==>w 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    bur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13072	13176	
==>he elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13072	13176	
==>he elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=he <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3154	3301	
==>rl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # x <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3154	3301	
==>rl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # x <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	746	840	
==>"Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	746	840	
==>"Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13818	13940	
==>on:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # W <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13818	13940	
==>on:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # W <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11310	11459	
==>ult ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11310	11459	
==>ult ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_ent <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2290	2382	
==>orTable()->{$spacePresent[1]} = %tokenClone;
    $self->whitespaceOperatorTable()->{$spacePre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6618	6749	
==>R',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6618	6749	
==>R',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	772	914	
==>H',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	772	914	
==>H',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEP <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7048	7175	
==>ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7607	7734	
==>ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3843	3966	
==>dule: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## thr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3901	4024	
==>dule: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## thr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2192	2294	
==><Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2281	2383	
==><Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3044	3140	
==>f available.

=back

In addition, the following request headers are set on the HTTP::Headers obje <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3044	3140	
==>f available.

=back

In addition, the following request headers are set on the HTTP::Headers obje <==
2	/Users/nnunley/pugs/util/package-osx.pl	3323	3429	
==>Inline/Pugs.pm
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/lo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4327	4507	
==>gress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4327	4507	
==>gress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2873	2976	
==>er::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all ::fg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2769	2868	
==>er::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all ::fg <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2274	2406	
==>urn 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2274	2406	
==>urn 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	777	882	
==>n ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	835	940	
==>n ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2948	3047	
==>h a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the othe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2948	3047	
==>h a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2593	2704	
==>ht>/<$tight>/sg;
        $template =~ s/<op>/\$<op>:=(<'$op->{name}'>)/s;
        $template =~ s/<op2>/\$<op2>:= <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	354	462	
==>s Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	354	462	
==>s Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5801	5932	
==>.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5801	5932	
==>.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15327	15438	
==>$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15327	15438	
==>$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package F <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3779	3888	
==>e}+=0;
    $self->{_config} = \%Config;
    $self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5952	6065	
==>started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6010	6123	
==>started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11413	11547	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LK <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11413	11547	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LK <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	475	593	
==>ons with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test wi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	475	593	
==>ons with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test wi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3935	4030	
==>ad1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3935	4030	
==>ad1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Roset <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1456	1573	
==>~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=h <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1456	1573	
==>~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9465	9576	
==>d2 Walking the Tree

To walk over the created tree, create an iterator with walker()Z<>:

  my $iter = $parser-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3983	4076	
==>::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3983	4076	
==>::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18205	18305	
==>and to get back match results.

Our objective here is to see if it is possible to use the regexp
stru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1070	1199	
==>$string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1073	1193	
==>$string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3636	3877	
==>($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<en <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3636	3877	
==>($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<en <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9268	9408	
==>\"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_statement_rule( \$ret );\n" .
                "    die \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14132	14240	
==>ll be visited in the recommended "Good Practice" order.

Any return values of the callback routine are ignore <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14132	14240	
==>ll be visited in the recommended "Good Practice" order.

Any return values of the callback routine are ignore <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15679	15779	
==>span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15679	15779	
==>span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13157	13254	
==>THMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13157	13254	
==>THMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14800	14940	
==>lf<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14800	14940	
==>lf<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10288	10424	
==>kies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10288	10424	
==>kies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19269	19371	
==>onnected>

Returns a true value if the bot's socket to the server is currently connected.

Note that yo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19269	19371	
==>onnected>

Returns a true value if the bot's socket to the server is currently connected.

Note that yo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3744	3889	
==>m = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    my $n = $_[0];
    #warn " <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	769	878	
==>E

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, they will be constructed a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	769	878	
==>E

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, they will be constructed a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9182	9289	
==>ion ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9182	9289	
==>ion ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($span0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1558	1674	
==>v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1558	1674	
==>v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<Ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16688	16796	
==>content_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16688	16796	
==>content_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TE <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	822	923	
==>s Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	822	923	
==>s Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2544	2656	
==>th sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2544	2656	
==>th sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7355	7486	
==>E_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_TERNARY );
  goto expect_oper;

  reduce:
  my $temp1 = pop @tokenStac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18720	18818	
==>rs of Node.new(); you need to supply its $document and optional
$parent_node though; you can produc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18720	18818	
==>rs of Node.new(); you need to supply its $document and optional
$parent_node though; you can produc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21888	21988	
==>rview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The interface of Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21888	21988	
==>rview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The interface of Ro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19421	19548	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19700	19827	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34737	34834	
==>ng as the invocant and whose body contains all of the tuples that
are in the invocant Relation and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39287	39384	
==>ng as the invocant and whose body contains all of the tuples that
are in the invocant Relation and <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2526	2647	
==>e <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2443	2560	
==>e <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2909	3037	
==>str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3049	3177	
==>str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unles <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1851	1967	
==>Y'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1851	1967	
==>Y'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28798	28913	
==>ve:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28798	28913	
==>ve:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOODBYE' <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	878	985	
==>er your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTION <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	878	985	
==>er your CGI is running on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTION <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2953	3072	
==>g) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we ge <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2953	3072	
==>g) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we ge <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3487	3591	
==>n mail, never clinking.
-}


module Pugs.Config (
    config,
    getConfig
) where

import qualified Dat <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1350	1479	
==>SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1350	1479	
==>SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4009	4192	
==>=> sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->cl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7097	7204	
==>ody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3250	3393	
==>y $info = LoadFile( 
                File::Spec->catdir( $meta_dir, $config->meta_file ) );
            
            my %avail = map { $_->{pack <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13091	13195	
==>check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $my_bindir =  $self->dir->s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1153	1259	
==>_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1153	1259	
==>_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15611	15710	
==>rbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Set <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15669	15768	
==>rbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Set <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6606	6708	
==>ind_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != " <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9740	9842	
==>ind_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10688	10868	
==>nts and returns a "rule".

=cut

=for later
# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match... <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3088	3218	
==>ink $in;
    1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5624	5723	
==>urn Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5624	5723	
==>urn Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1495	1606	
==>[0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_;
  $self->regex($rx) or ret <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	327	479	
==>t -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow dupl <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	327	479	
==>t -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow dupl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14100	14197	
==>Model::Node Class

A Node object is a simple container which stores data to be used or
displayed b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14100	14197	
==>Model::Node Class

A Node object is a simple container which stores data to be used or
displayed b <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3394	3497	
==>w<pugs_version osname runcore>),
      $_[0]->{pugs_revision} == 0 ? "release" : "dev",
  };

  my %cats <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9946	10048	
==>b { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9946	10048	
==>b { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	439	538	
==>head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	439	538	
==>head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4787	4900	
==>},
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4787	4900	
==>},
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4115	4377	
==>ocale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4115	4377	
==>ocale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21865	21973	
==>fac,
	param => val(5),
);

my $length_and_first = fun(
	param => "xs",
	body => comb(
		fun => comb(
			fun = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2163	2457	
==>e:<if>'),
                App(
                    Sym('&infix:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                V <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	71	165	
==>:Pugs;
use strict;
use FindBin;
use File::Spec;

sub path_from_me { File::Spec->catfile($FindBi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2311	2410	
==>es for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2311	2410	
==>es for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	95	193	
==>($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	95	193	
==>($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7077	7185	
==>val($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7089	7197	
==>val($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6517	6658	
==>t



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6309	6443	
==>t

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19398	19500	
==>logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19398	19500	
==>logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22964	23065	
==>ver similar packages is that
text is always looked up by a key which is not meant to be meaningful for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22964	23065	
==>ver similar packages is that
text is always looked up by a key which is not meant to be meaningful for <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9938	10079	
==>mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Un <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15703	15801	
==>emantic.

rm(condition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture match <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3033	3138	
==>( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3033	3138	
==>( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2496	2614	
==>L::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	591	695	
==>s

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	591	695	
==>s

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Comp <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3646	3760	
==>ule element_boundary { \< , \> } # punt for now

rule subrule                { ([\<\<|\<|\x[abd]]) (\??) <name> [ \ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12438	12530	
==>s_int(C), p6_hex_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9441	9536	
==>d2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9441	9536	
==>d2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2319	2444	
==>ser_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        la <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2319	2444	
==>ser_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        la <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	168	265	
==>ack of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	226	323	
==>ack of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10371	10480	
==>self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10000	10109	
==>self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16235	16361	
==>e - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the media type of the message
c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16235	16361	
==>e - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the media type of the message
c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3226	3389	
==>lf);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3226	3389	
==>lf);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if i <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	675	793	
==>e' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve fai <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	642	760	
==>e' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve fai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33947	34045	
==>kup choices are,
in order, if preferred ones aren't supported by a program or its libraries.
When t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33947	34045	
==>kup choices are,
in order, if preferred ones aren't supported by a program or its libraries.
When t <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1899	2050	
==>ing = $arg.value;
            push @.strings, $arg.value;
        }
    }


    role Getopt::Argument::Coercer::Perl {
        multi method as (--> Num) <==
2	/Users/nnunley/pugs/util/package-osx.pl	6296	6397	
==>Perl6::Overview::Operator.3pm
        /usr/local/man/man3/Perl6::Overview::Reduce.3
        /usr/local <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	715	819	
==>STROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

me <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	715	819	
==>STROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3570	3807	
==>.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3570	3807	
==>.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_li <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15869	15977	
==>t $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2266	2370	
==>t $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10244	10338	
==>}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10244	10338	
==>}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($dat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13695	13820	
==>= substr target, pos, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	959	1123	
==>expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	959	1123	
==>expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1870	1995	
==>er
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1930	2055	
==>er
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $gr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8039	8125	
==>ifier_spec_pos([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([m|L]) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37163	37265	
==>=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37163	37265	
==>=item C<template_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5086	5267	
==>mber_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5086	5267	
==>mber_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Tra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10568	10674	
==>s multiple ($field => $value) pairs, which
means that you can update several fields with a single invocatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10568	10674	
==>s multiple ($field => $value) pairs, which
means that you can update several fields with a single invocatio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7188	7302	
==>r $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::C <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7246	7360	
==>r $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2378	2460	
==>mitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_data( $_[0], '$<Pugs::Grammar: <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	514	626	
==>{
    my $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17456	17561	
==>rl_args, $name);
}

#
# fresh_perl_like
#
# Combination of run_perl() and like().
#

sub fresh_perl_like { <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	449	616	
==>!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - h <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	449	616	
==>!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15648	15773	
==>ding,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19125	19250	
==>ding,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	454	572	
==>=> q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1982	2100	
==>=> q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11953	12051	
==>rn $S->force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4596	4694	
==>rn $S->force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24163	24316	
==>at(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24442	24595	
==>at(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1180	1281	
==>Texts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, modul <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1180	1281	
==>Texts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, modul <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	469	578	
==>llesque, are not pure functions.  They only
# represent transformations between PIL node types; out-of-band da <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	469	578	
==>llesque, are not pure functions.  They only
# represent transformations between PIL node types; out-of-band da <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3192	3293	
==>n empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3192	3293	
==>n empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5603	5699	
==>$p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::It <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5603	5699	
==>$p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::It <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	513	617	
==>me" }
macro CdPt  () { "CodePoint" }


 type MatchTest ::= Item | Junction;

package Math::Basic {}

 mul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7321	7440	
==>$self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7321	7440	
==>$self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	129	260	
==>y $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	129	260	
==>y $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1191	1307	
==>E_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1191	1307	
==>E_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $se <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13094	13214	
==>e $_;
      }
    };

  step
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { - <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13141	13252	
==>ying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { -c "$initrd_mnt/dev/console" },
    pau <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	227	318	
==>n->include(@_) };
sub include_deps { +shift->admin->include_deps(@_) };
sub auto_include { + <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	3	96	
==>-----------------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  Th <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	3	96	
==>-----------------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10096	10230	
==>n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented";
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10096	10230	
==>n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemented";
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1499	1619	
==>der {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1499	1619	
==>der {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20621	20725	
==>fic to the program
in the order you chose so to pick a supported language closest to your
preference.  Pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20621	20725	
==>fic to the program
in the order you chose so to pick a supported language closest to your
preference.  Pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12324	12496	
==>) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12324	12496	
==>) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my meth <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12740	12840	
==>rence.

Returns negative infinite if the recurrence is infinite.
Returns positive infinite if the rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12740	12840	
==>rence.

Returns negative infinite if the recurrence is infinite.
Returns positive infinite if the rec <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	887	1017	
==>) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	887	1017	
==>) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6064	6275	
==>) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6064	6275	
==>) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 } <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17159	17259	
==>1228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anythin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22259	22359	
==>1228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anythin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3557	3666	
==>re::params;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'list', 'typ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10328	10426	
==>> $universe )`

Creates a recurrence set.

The complementary functions are emulated using iteration <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10328	10426	
==>> $universe )`

Creates a recurrence set.

The complementary functions are emulated using iteration <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2143	2251	
==>_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2143	2251	
==>_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35785	35882	
==>t, where <$other> has the same heading as
the invocant Relation::Example, and returns a new Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37817	37914	
==>t, where <$other> has the same heading as the
invocant Relation::Example, and returns a new Relati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14855	14963	
==>> $neg, \$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2418	2559	
==>infix';
        return prefix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	77	199	
==>l6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($class) = @_;
    my $output = " <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6959	7321	
==>App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39567	39662	
==>, use force_object(), which creates
an object regardless of what pass it's on.

  $parser->add_h <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	63	154	
==>Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	63	154	
==>Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1920	2044	
==>y name.

Note that the above code is not robust.  (If you need a real implementation
consult a book, like Numerical Recipies. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5681	5789	
==>ad_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle we will work wi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5681	5789	
==>ad_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle we will work wi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5184	5330	
==>> 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5184	5330	
==>> 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interfa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18105	18199	
==>Rendering

The visual() method of I<anyof> objects will quell the repetition of any
character i <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	296	380	
==>ble/lib/Perl6/Bible/E05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1300	1422	
==>if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1300	1422	
==>if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19052	19149	
==>p of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19052	19149	
==>p of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
trou <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7709	7831	
==>MSWin)
    --shuffle, -s           Run tests in random order
    --recurse, -r           Recurse into directories on test i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	47	145	
==>::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	47	145	
==>::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15321	15425	
==>ractive systems.

If the program or any of its components are intended for widespread use
then it needs t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15321	15425	
==>ractive systems.

If the program or any of its components are intended for widespread use
then it needs t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3207	3313	
==>2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3207	3313	
==>2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The para <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1371	1469	
==>, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those modules f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1371	1469	
==>, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those modules f <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	220	330	
==>:Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = shift;
    my @modules = glob( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1101	1204	
==>= get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::require_bareword {
    my $i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	542	667	
==>bstr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	639	764	
==>bstr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5983	6086	
==>ck>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5983	6086	
==>ck>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	138	241	
==>{ sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) } <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	138	241	
==>{ sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25915	26013	
==>s zero or more variable names and values
that are associated with the message, and can be interpola <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25915	26013	
==>s zero or more variable names and values
that are associated with the message, and can be interpola <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1348	1487	
==>) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str i <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1348	1487	
==>) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1802	1937	
==>('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    retu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29420	29515	
==>.  (Partially done in Test::Harness::Straps)

Document the format.

Fix HARNESS_COMPILE_TEST wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30244	30344	
==>bles, which will be substituted at run-time before the text
is shown to the user.

Each Template modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30244	30344	
==>bles, which will be substituted at run-time before the text
is shown to the user.

Each Template modu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9100	9207	
==>fix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9100	9207	
==>fix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	981	1101	
==>>[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	981	1101	
==>>[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    u <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	372	487	
==>k(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gath <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	372	487	
==>k(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gath <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19348	19449	
==>ad data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19348	19449	
==>ad data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$b <==
2	/Users/nnunley/pugs/util/func_refact.pl	1430	1535	
==>ebug = $new eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    my $size = scalar(keys %$set) - <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2039	2145	
==>f } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak refere <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2039	2145	
==>f } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak refere <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26730	26881	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27009	27160	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5058	5160	
==>y $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5058	5160	
==>y $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3743	3872	
==>, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3743	3872	
==>, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the f <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3036	3142	
==>s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, and does n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2181	2276	
==>"C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different prope <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2181	2276	
==>"C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different prope <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	283	374	
==>bject ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinder;
	use base qw/Blondie::R <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7674	7785	
==>se {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	my $self = shift;
	my $prim = sh <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	672	790	
==>};
}

sub sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14231	14328	
==>cal, "-C", $cdroot };

my $wrote_menulst = 0;
step
  descr  => "Creating \"$cdroot/boot/grub/menu. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1493	1600	
==>Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1551	1658	
==>Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	411	519	
==>suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	469	577	
==>suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	910	1045	
==>:Perl6;
    use Data::Dumper;

    # print "P6 loaded from '$filename'\n";
    open FILE, "<", $filename
        or die "can't open $fil <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4824	4925	
==>racter_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> }

rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31547	31666	
==>er scope (like an OPEN).

=item ifthen

Whether this object has a true/false branch (like the C<(?(...)T|F)>
assertion). <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	828	927	
==>FETCH(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() ac <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	828	927	
==>FETCH(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() ac <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	725	852	
==>e), :second($second),
                           );
}

# convert from an iso duration
multi method duration( Str $iso8601 ) retu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7570	7669	
==>the thunk
			my $last = pop @children_of_seq;

			my @params = grep { $_->struct_equiv->isa("Blondie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4238	4333	
==>y reference, the match object returns positional
captures as match objects.

=head2 %{}

When us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4238	4333	
==>y reference, the match object returns positional
captures as match objects.

=head2 %{}

When us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3082	3441	
==>: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3082	3441	
==>: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13558	13659	
==>dd_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7766	7867	
==>dd_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_clas <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	2	102	
==>e v6;
use File::Spec;

my $SID;
my %Session;
my $Path = catfile( tmpdir(), "pugs-session" );
mkdir($P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3709	3847	
==>_struct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Cou <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1871	1979	
==>s grammar has never yet been run, so there no doubt are some.
#
#  Possible Bugs:
#   * We are not using some <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1227	1335	
==>port routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1227	1335	
==>port routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7607	7702	
==>ded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implement <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7607	7702	
==>ded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implement <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2724	2869	
==>F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a + <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2724	2869	
==>F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a + <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5025	5137	
==>date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5025	5137	
==>date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6084	6220	
==>revious ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6084	6220	
==>revious ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	820	999	
==>rch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unle <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	820	999	
==>rch(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unle <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5992	6117	
==>1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5980	6105	
==>1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1074	1163	
==>erl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    met <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1074	1163	
==>erl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    met <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	256	353	
==>ss for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked agai <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	256	353	
==>ss for PIL nodes.  vtype() returns a string that represents the 
node type, which are checked agai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8923	9021	
==>pect_ the match object returned to carry the same magic.



overload in p5 is just static %OVERLOAD <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8628	8724	
==>pect_ the match object returned to carry the same magic.

overload in p5 is just static %OVERLOAD <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	0	104	
==>package Pugs::Emitter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	0	104	
==>package Pugs::Emitter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17832	17927	
==>eader field contains information about the software being
used by the originating server program <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17832	17927	
==>eader field contains information about the software being
used by the originating server program <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5000	5101	
==>"PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $operator->t <==
2	/Users/nnunley/pugs/util/importgraph.pl	1622	1732	
==>ules) {
    next unless $mod =~ /$regexp/;
    $modules{$mod}->[$type] = $name;
    print "Adding $mod to $name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	299	455	
==>age.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	299	455	
==>age.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_k <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24322	24459	
==>= shift;
    join "", $self->raw, $self->{data}[0]->visual, $self->{data}[1]->visual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a nu <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	916	1024	
==>> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	916	1024	
==>> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3713	3826	
==>r $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3713	3826	
==>r $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6319	6421	
==>tax, contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assuming ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6104	6205	
==>tax, contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assuming ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3935	4076	
==>word => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    use <?p6ws> <ident> <?p6ws>? \;
        { 
		eva <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1874	2007	
==>item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . "    rule $rule_name { <r$prev> [ $x <$rule_name> ]? } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	856	975	
==>}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (blessed($right))
        || confess "The right hand s <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	78	177	
==>.perlmonks.org/?node_id=438876
# For historical interest, I've left this program pretty much
# uncha <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6450	6569	
==>, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6450	6569	
==>, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, ca <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8225	8425	
==>Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation::Example {
    return Relat <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	198	310	
==>tch can be
implemented using some is_subtype? (QQQ what's it called?) test.  But
maybe not.  Either way, the curr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1753	1892	
==>name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{item} [ $x <$rule_n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	553	672	
==>d1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	553	672	
==>d1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	615	708	
==>ate.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	615	708	
==>ate.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6450	6562	
==>$event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6450	6562	
==>$event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8977	9091	
==>ub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2802	2916	
==>ub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	394	521	
==>method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20114	20197	
==>0],E0,E0) :- class_member(class_pos(X),C), !.
rm(class_neg(X),[C|F1],F1,B0,[C|B0],E0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	889	1129	
==>nstant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	890	1130	
==>nstant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14655	14806	
==>[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx];
      FAIL() if !$m;
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  pa <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	646	767	
==>n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" or die "Cannot open $file: $!";
    whil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8057	8161	
==>mplate_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8057	8161	
==>mplate_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7183	7271	
==>a bad idea

## -------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7183	7271	
==>a bad idea

## -------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6461	6565	
==>$name'};
  sub info { \$info } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_root}::Node;\n".< <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4316	4547	
==>("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4316	4547	
==>("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6581	6727	
==>rst method
    my $_add_method = method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	763	861	
==>lename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_file $code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	763	861	
==>lename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_file $code <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	803	907	
==>e contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Buil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	803	907	
==>e contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Buil <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2258	2565	
==>'list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2258	2565	
==>'list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32705	32824	
==>plate modules as a template.
The Translator class as a whole is not pure and deterministic because it
invokes user-defin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32705	32824	
==>plate modules as a template.
The Translator class as a whole is not pure and deterministic because it
invokes user-defin <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	492	609	
==>/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob "/home/*/public_html/*";
my @users = keys %{ { map { (split <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1741	1837	
==>to the pugs distribution
somewhere with test files, and do objective 1 above.

If anyone would li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30899	31004	
==>is module is standard with Perl 5.8.

=head2 Object Attributes

All objects share the following attributes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3254	3354	
==>, $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3254	3354	
==>, $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32663	32762	
==>sage strings, using data from external Template modules as a template.
The Translator class as a who <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32663	32762	
==>sage strings, using data from external Template modules as a template.
The Translator class as a who <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2084	2197	
==>== $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1762	1867	
==>== $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9767	9860	
==>and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "Inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9767	9860	
==>and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "Inf <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20488	20649	
==>=> ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => ide("r"), <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2141	2248	
==>lesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:print:]/ )
  {
    $matchObj-> <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1575	1668	
==>nction composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1575	1668	
==>nction composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5032	5128	
==>t(STDERR);$|=1;select(STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found. <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2273	2370	
==>y($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always ret <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2273	2370	
==>y($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17722	17840	
==>eate new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defau <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17722	17840	
==>eate new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defau <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	780	899	
==>ackend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case the result is an AST
    
    print Blondie: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5224	5362	
==>kip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5282	5420	
==>kip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$dep <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10393	10510	
==>w(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10393	10510	
==>w(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6330	6462	
==>turns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packe <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6330	6462	
==>turns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11914	12025	
==>s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if($o->{'flags'} & $o->flag_val_i);
      my $ok <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4263	4412	
==>l5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5112	5261	
==>l5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	502	708	
==>e elegant, and not blow it away every go
{   system( qw[rm -rf], $config->root )                         and die $?;
    
    ### XXX missing repodirs/files
    for ( (map { $config->$_ } qw[ root temp_dir b <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	8	141	
==>ype--Perl6;

has Class $.meta;

# this is the compiled dispatch table... accessors should be in here
has Method %.dispatch;

# private <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9959	10083	
==>_pkg} = $ghc_pkg;
}


sub fixpaths {
    my $self = shift;
    my $text = shift;
    my $sep = File::Spec->catdir('');
    $t <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3050	3160	
==>Scary.
rule interpolated_array    { \@ <name> <element_expr>? }
rule interpolated_hash     { \% <name> <element <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1822	2154	
==>v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    els <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1822	2154	
==>v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    els <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2060	2159	
==>PTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Take <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2060	2159	
==>PTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Take <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3802	3899	
==>, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" retur <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3802	3899	
==>, this module attempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	447	538	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	447	538	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2129	2238	
==>grammar = shift;
    #warn "rule argument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1170	1280	
==>mpile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1170	1280	
==>mpile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2861	2955	
==>r::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2861	2955	
==>r::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3399	3504	
==>n to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<4 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3399	3504	
==>n to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<4 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7127	7239	
==>eturn $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7185	7297	
==>eturn $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) returns Bool {
    if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2041	2148	
==>t is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1965	2067	
==>t is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
li <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6390	6621	
==>&$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6390	6621	
==>&$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	26	286	
==>se Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	26	286	
==>se Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::Key <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8199	8329	
==>onal( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7917	8040	
==>onal( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::o <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7477	7605	
==>ted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # runn <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7535	7663	
==>ted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # runn <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5385	5574	
==>&*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5385	5574	
==>&*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17280	17424	
==>}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17280	17424	
==>}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1847	1960	
==>: [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_a <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	958	1069	
==>: [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13238	13332	
==>ements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13238	13332	
==>ements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$se <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35731	35850	
==>s a generic binary relational operator that takes
another Relation as its C<$other> argument and combines it with the
in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40281	40400	
==>s a generic binary relational operator that takes
another Relation as its C<$other> argument and combines it with the
in <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	243	363	
==>{
    my $class = shift;
    map { $_->symbols } $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8453	8611	
==>on( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8159	8308	
==>on( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	219	322	
==>nings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	219	322	
==>nings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigs <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	151	268	
==>nt;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ide <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	151	268	
==>nt;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12491	12644	
==>ch,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12485	12638	
==>ch,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19244	19375	
==>);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15665	15796	
==>);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	243	401	
==>);
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3618	3714	
==>y
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures should <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3618	3714	
==>y
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures should <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23681	23784	
==>tta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implemen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23681	23784	
==>tta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implemen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21520	21616	
==>e class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26072	26168	
==>e class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13329	13428	
==>input format for
Document.new(), by which you can create an identical Document (with member
Nodes) t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13329	13428	
==>input format for
Document.new(), by which you can create an identical Document (with member
Nodes) t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15845	15943	
==>s the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15845	15943	
==>s the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2814	2928	
==>--> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  Nu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1072	1192	
==>t
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1072	1192	
==>t
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4298	4464	
==>App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9405	9498	
==>rs.
The headers consist of attribute-value pairs also called fields, which
may be repeated, an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9405	9498	
==>rs.
The headers consist of attribute-value pairs also called fields, which
may be repeated, an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	260	375	
==>ndent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	260	375	
==>ndent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10714	10836	
==>) {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30604	30702	
==>head1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know. What we know for
sure is, that it <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	763	884	
==>_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	763	884	
==>_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3613	3710	
==>WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3613	3710	
==>WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %hand <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3137	3251	
==>criptions (Class::Publisher::Event::Named $event) {
            # an optimizing lookup for named events stores thin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1811	1905	
==>'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3780	3878	
==>t is required for loading precompiled Perl 6 files.

If you see the error below, it may happen that <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9700	9796	
==>_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9700	9796	
==>_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	61	156	
==>ed to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	61	156	
==>ed to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3321	3417	
==>RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) < <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2196	2373	
==>edo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2196	2373	
==>edo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2663	2770	
==>b no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$type} }, <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	671	769	
==>$script_name = File::Basename::basename($script_file);
        $prompt = "Do you want to install '$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1518	1612	
==>ease download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1358	1452	
==>ease download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17933	18031	
==>are "machine readable"; any application receiving such a code can identify
it easily in its conditi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17933	18031	
==>are "machine readable"; any application receiving such a code can identify
it easily in its conditi <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3987	4112	
==>_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      tak <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3987	4112	
==>_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      tak <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2784	2889	
==>he same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunk <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2784	2889	
==>he same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunk <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5748	5883	
==>gexp::Parser::anchor;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return sub{
      FAIL() if !($X: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1721	1847	
==>ns '<' (default)
                # without whitespace means '<str>'
                #print "checking angle quote ... [$whitespa <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	472	578	
==>~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @ <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	472	578	
==>~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30787	30892	
==>e Set Name comes first and makes up most of the module name; it
must be the same for every module in the s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30787	30892	
==>e Set Name comes first and makes up most of the module name; it
must be the same for every module in the s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20606	20707	
==>eally want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20606	20707	
==>eally want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16190	16433	
==>grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16469	16712	
==>grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1145	1251	
==>uring_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1156	1262	
==>uring_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3453	3605	
==>}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3453	3605	
==>}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11797	11909	
==>rom the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11797	11909	
==>rom the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$/ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	678	797	
==>ll 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21137	21249	
==>$mn:p6__lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $look = "${pkg}::p6__l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1199	1318	
==>{
    my ($self, $condition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	555	677	
==>lter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	555	677	
==>lter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub ca <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1708	1805	
==>ere; that will create the
'nmake.exe' file needed by this module.

You may then resume the install <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1548	1645	
==>ere; that will create the
'nmake.exe' file needed by this module.

You may then resume the install <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	384	525	
==>er
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	384	525	
==>er
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . joi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4267	4417	
==>endent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4267	4417	
==>endent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18087	18212	
==>{
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14508	14633	
==>{
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_rang <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1087	1197	
==>n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1087	1197	
==>n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3263	3397	
==>span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3263	3397	
==>span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <= <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2282	2389	
==>until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2282	2389	
==>until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7782	7895	
==>ch $x, $y;

    return $x <=> $y;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inden <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5462	5556	
==>taclass method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4003	4139	
==>y $v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're not set up y <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	439	562	
==>All(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->che <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	459	570	
==>All(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->che <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3300	3696	
==>next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3300	3696	
==>next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            i <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	184	299	
==>rrr+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_dazwischen(); contin <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7880	7987	
==>$@;
    open (my $fh,'>', $index_file) or die "Failed to open $index_file: $!";
    my @dirs  = sort keys %{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10451	10613	
==>|| [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_al <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3526	3688	
==>|| [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_al <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7431	7528	
==>:start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7431	7528	
==>:start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6433	6529	
==>=> $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6433	6529	
==>=> $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1982	2096	
==>o { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1982	2096	
==>o { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4799	4983	
==>die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5021	5205	
==>die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

su <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	210	316	
==>eck that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is expor <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	210	316	
==>eck that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1193	1302	
==>se map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S2 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1193	1302	
==>se map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S2 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2459	2670	
==>perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = spli <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2459	2670	
==>perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = spli <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33162	33254	
==>xclusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37712	37804	
==>xclusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	485	592	
==>InP5::Match::newfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	1	93	
==>!/usr/bin/perl

package Blondie::Backend::Prim;
use base qw/Blondie::Map Blondie::Node::Atomi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	147	243	
==>piler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32455	32551	
==>vis

The visual representation of this object.

=item zerolen

Whether this object does is zero-w <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1478	1648	
==>1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1478	1648	
==>1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	337	465	
==>{
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## ------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	337	465	
==>{
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## ------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10725	10878	
==>L(&$f,$fagain);
      };
      goto &$fmin;
    };        
  }
}
{
  # ( non-capturing
  package Regexp::Parser::group;
  sub emit {
    my($o)=@_;
    my <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	8	115	
==>ib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) re <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	8	115	
==>ib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2206	2312	
==>ned( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<af <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2206	2312	
==>ned( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<af <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5617	5714	
==>mb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=hea <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5617	5714	
==>mb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33512	33604	
==>s method has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38062	38154	
==>s method has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns R <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13855	13951	
==>o bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13855	13951	
==>o bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_ent <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2514	2651	
==>nt {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2514	2651	
==>nt {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19601	19696	
==>ou
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19601	19696	
==>ou
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9814	9922	
==>.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9814	9922	
==>.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15106	15205	
==>) :-
  !, RW0 = rewr(N), N1 is N + 1, RWx = rewr(N1),
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37532	37624	
==>ule_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_loa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37532	37624	
==>ule_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_loa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	428	533	
==>j;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

sub upper { <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	368	466	
==>n-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> pro <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	368	466	
==>n-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5231	5502	
==>header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5231	5502	
==>header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	135	237	
==>ackage symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 't <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	72	169	
==>LD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	72	169	
==>LD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5900	5986	
==>ttp://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRI <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5900	5986	
==>ttp://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3452	3597	
==>n( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3452	3597	
==>n( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4332	4428	
==>ber.($.subscription, $.event.args);
    }

    method dispatch (Class::Events::Subscriber $subscr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6000	6095	
==>S & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
act <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6000	6095	
==>S & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
act <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	741	854	
==>omise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  w <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4766	4866	
==>------------------------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5292	5388	
==>xdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_open> [<hexdi <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4624	4711	
==>cit_class>|<escape_sequence>|<named_character>|<simple_character> }
rule a_dot  { \. }
r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	603	704	
==>is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make som <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	603	704	
==>is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make som <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22496	22591	
==>ate a
condition, often it will also provide some variable values to be
interpolated into the use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22496	22591	
==>ate a
condition, often it will also provide some variable values to be
interpolated into the use <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3046	3181	
==>my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3046	3181	
==>my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3257	3591	
==>ure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3257	3591	
==>ure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2640	2750	
==>tp_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: clos <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2640	2750	
==>tp_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: clos <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	152	259	
==>se Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	217	324	
==>se Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10443	10563	
==>]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10443	10563	
==>]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for % <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4560	4692	
==>dentifier>
    | <Punctuator>
    | <NumericLiteral>
    | <StringLiteral>
}
rule ReservedWord {  # see 7.5.1
      <Keyword>
    | < <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2831	2930	
==>t;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")){
			return Blondi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18164	18322	
==>)->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41429	41587	
==>)->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3878	4010	
==>) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3878	4010	
==>) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2053	2325	
==>= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2053	2325	
==>= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1740	1839	
==>ar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1740	1839	
==>ar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17018	17140	
==>iven
    unless( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $firs <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	561	669	
==>st override _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	965	1100	
==>params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $local_env-> <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20354	20469	
==>Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $file";
    undef;
  }
  else {
    my $cmd = %?CONFIG<perl5path>~q{ -e ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2558	2660	
==>->resolve_type($node->type);
}

sub resolve_type {
	my $self = shift;
	my $type = shift;

	$type = $typ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16810	16974	
==>TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [];
      $v = $f->($rest);
    }
    FAIL_IF_FAILED($v);
    unshif <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4810	4916	
==>0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4810	4916	
==>0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.octet <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3969	4066	
==>nion( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3969	4066	
==>nion( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5930	6128	
==>$x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5930	6128	
==>$x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	390	511	
==>($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matc <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	473	585	
==>aram ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	473	585	
==>aram ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1962	2058	
==>atic lookup (lex only) or a dynamic lookup. 



This object-serialization format is shared across <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1888	1982	
==>atic lookup (lex only) or a dynamic lookup. 

This object-serialization format is shared across <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12510	12607	
==>agement, via reverse
  engineering (almost completely undocumented source), in the presence
  of c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14885	14981	
==>pression>
    | <MultiplicativeExpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpressio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2687	2804	
==>We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2687	2804	
==>We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$serve <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	550	697	
==>@_);

    $self->pugs_fix_makefile;
}

sub set_makefile_macros {
    my $self = shift;

    package MM;
    *init_INST = sub {
        my $hash = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33456	33557	
==>meol (C<$> with
C</m> on), eos (C<\z>)

=head2 reg_any

Family: reg_any

Types: reg_any (C<.>), sany ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15829	15929	
==><Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15829	15929	
==><Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	145	244	
==>pretty printer and the type object model
# it emits greek letters and unicode symbols, or type liter <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20993	21101	
==>if'> <'('> <Expression> <')'> <Statement>
}
rule IterationStatement :words {  # see 12.6
      <'do'> <Statem <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	781	891	
==>pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archl <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	781	891	
==>pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10513	10626	
==>afe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile rege <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10513	10626	
==>afe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile rege <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5063	5247	
==>= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5063	5247	
==>= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6184	6300	
==>O for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6242	6358	
==>O for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9674	9789	
==>_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9674	9789	
==>_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5027	5139	
==>ests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{test_count} = scalar @tests;
    @t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	190	287	
==>SIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	190	287	
==>SIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	253	369	
==>$param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	253	369	
==>$param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10915	11017	
==>r $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10973	11075	
==>r $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	245	361	
==>::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1524	1621	
==>$ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1524	1621	
==>$ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8970	9180	
==>)
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8970	9180	
==>)
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27771	27936	
==>nstant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28050	28215	
==>nstant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5217	5304	
==>n,Max), !.
p6_range_bounds( 0 ,Max) --> "...", digits_int(Max).
p6_range_bounds_RHS(_Min <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7589	7692	
==>od authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7589	7692	
==>od authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1384	1545	
==>";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=pod

=head1 N <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23533	23623	
==>(0,Replace,[_|T],[Replace|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13142	13247	
==>mes a test is broken because something is not implemented yet. So
in order to still allow that to be teste <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13200	13305	
==>mes a test is broken because something is not implemented yet. So
in order to still allow that to be teste <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1373	1482	
==>eversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1373	1482	
==>eversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8748	8852	
==>dex($P);
    my $uint = ToUint32($P);
    return if $uint < $A.property_value{'length'};
    $A.property_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22440	22547	
==>ag_i(E0), case_insensitive_char_eq(C,X), !.
charset_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3912	4018	
==>lesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $matchObj->positio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6651	6762	
==>ng)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6709	6820	
==>ng)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7607	7714	
==>nnels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [- <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7607	7714	
==>nnels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2705	2808	
==>dd_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3278	3381	
==>dd_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obj <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3516	3625	
==>}{};

        $full_blib .= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22637	22737	
==>ss; a Relation::Example is like a Set that exists
over N dimensions rather than one.  The Relation::E <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	67	164	
==>ods
has Code--Perl6 %.methods;

# private use methods
has Code--Perl6 %:methods;

method new(Str $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2260	2365	
==>rns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.seco <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16711	16835	
==>lf->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9341	9455	
==>din
#   stderr   => redirect stderr to stdout
#   args     => [ command-line arguments to the perl program ]
#   ve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9003	9150	
==>r', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8999	9146	
==>r', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6597	6744	
==>y[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5101	5248	
==>y[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15690	15789	
==>.

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
app <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15748	15847	
==>.

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
app <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4707	4819	
==>ng from filter,
    # because we need all the lines including the ones before the `use`
    # statement, so we ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4707	4819	
==>ng from filter,
    # because we need all the lines including the ones before the `use`
    # statement, so we ca <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6370	6504	
==>ams;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6370	6504	
==>ams;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	448	573	
==>own and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	448	573	
==>own and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13225	13319	
==>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13225	13319	
==>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2323	2459	
==>t::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2323	2459	
==>t::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_str <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	667	802	
==>stics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Te <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	667	802	
==>stics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Te <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17087	17197	
==>orphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applied to int) is a num <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3345	3454	
==>$self->provides(%{ $build->find_dist_packages || {} });
}

sub feature {
    my $self     = shift;
    my $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	191	311	
==>print "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix add: @{[ %opt ]} \n";

    Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8	134	
==>Regexp::Parser;

sub init {
  my ($self) = @_;

  # /m, /s, /i, /x flags
  $self->add_flag('m' => sub { 0x1 });
  $self->add_fl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3056	3165	
==>INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	174	286	
==>e - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIP <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	174	286	
==>e - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIP <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1303	1427	
==>defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1303	1427	
==>defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10492	10683	
==>l5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10492	10683	
==>l5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1813	1985	
==>,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1813	1985	
==>,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12433	12573	
==>al($X::pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1323	1423	
==>]" is expressed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-international. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33409	33511	
==>n> except that the returned Relation contains only tuples that are in
all of the source Relations.  Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37959	38061	
==>n> except that the returned Relation contains only tuples that are in
all of the source Relations.  Thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19389	19478	
==>dline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19389	19478	
==>dline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3579	3796	
==>ed    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    che <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4442	4583	
==>$::SELF->$status_sub();
            $status->{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24817	25036	
==>('?@superclasses')
                            ->apply(
                              block->new($e, sub {
                                  my $e = shift;
                                  $e->get('$_')->send('add_subcl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3587	3713	
==>_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5199	5331	
==>= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5199	5331	
==>= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	376	491	
==>maker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_path <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	277	392	
==>maker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_path <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4969	5086	
==>1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 e <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4969	5086	
==>1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	372	490	
==>$n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $planned != $ran) {
	    print ST <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8290	8407	
==>s this line 
  #$temp1 = length $key + $whitespacePosition;
  goto tok_match_end;

  tok_match_sub:
  $operator = &$$m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5331	5491	
==>ld_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5331	5491	
==>ld_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25267	25397	
==>ub visual {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub ins <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2478	2606	
==>gin
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2478	2606	
==>gin
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $eve <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1647	1784	
==>p: symmetrical => $^b },
#		{ $^a.round_down: symmetrical => $^b },
		);
	my $sym_flag = (int(rand() * 10)) % 2;
	my $selector = (int(rand <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9361	9500	
==>($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9361	9500	
==>($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $bl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	613	861	
==>cal $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' does not exist]);
                                    return;
                            };    

use c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	531	638	
==>ubroutine found: "&C" 
   this file is currently simply a source code generator.
   Which also addresses the <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	531	638	
==>ubroutine found: "&C" 
   this file is currently simply a source code generator.
   Which also addresses the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1867	1972	
==>\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1867	1972	
==>\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	120	214	
==>nings 'redefine';

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARG <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3874	3983	
==>$span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3874	3983	
==>$span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinit <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4772	4913	
==>0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4772	4913	
==>0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6298	6432	
==>}),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6298	6432	
==>}),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2799	2944	
==>not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2983	3128	
==>not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10545	10654	
==>y $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = j <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10703	10812	
==>y $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = j <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17825	17927	
==>ata to it, and output data from it.

You can create more than one DBMS object at a time, and they are
e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17825	17927	
==>ata to it, and output data from it.

You can create more than one DBMS object at a time, and they are
e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1014	1132	
==>> 'prel_cat',
			type => type("PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => '&infix:<+>',
			body => '+',
			ty <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4657	4774	
==>il" clashes with Test's &fail.
    sub __fail($e = "failed") is primitive is builtin is safe {
        if Pugs::Intern <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16676	16783	
==>it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16676	16783	
==>it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9662	9770	
==>cks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9662	9770	
==>cks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17104	17255	
==>ode $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_prec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17104	17255	
==>ode $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_prec <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5447	5575	
==>tinue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another di <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5447	5575	
==>tinue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another di <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9336	9503	
==>esults{skip},
                    skip_reason => $results{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $resul <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	329	431	
==>arious class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	329	431	
==>arious class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3574	3683	
==>ath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3574	3683	
==>ath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1952	2056	
==>ub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defined <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1952	2056	
==>ub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defined <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2250	2356	
==>TE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2250	2356	
==>TE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1531	1690	
==>sts $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18735	18844	
==>nformation as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18735	18844	
==>nformation as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1761	1866	
==>s at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Nu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1761	1866	
==>s at least C<rate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Nu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5791	5915	
==>urn unless $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5607	5728	
==>urn unless $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{ca <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14522	14610	
==>-------------------

re_reverse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1488	1608	
==>ree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1488	1608	
==>ree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" . <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13068	13291	
==>,
                                           };
                } else {
                    print "Don't know which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3914	4031	
==>elf) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { LoadFile($SMOKERFILE) } ||
            eva <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1383	1490	
==>eturn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1383	1490	
==>eturn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15248	15362	
==>compute($_) => $_ } $env->values };
    my $ast = shift;

    $self->reduce($ast);
}

sub reduce_param {
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21464	21550	
==>Regexp::Parser::ifthen::ISA, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8400	8497	
==>::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8458	8555	
==>::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_test <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8530	8643	
==>s
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.inc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8530	8643	
==>s
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.inc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1168	1274	
==>rst. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy ar <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1168	1274	
==>rst. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy ar <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	218	319	
==>L_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	218	319	
==>L_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1557	1677	
==>hod parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1557	1677	
==>hod parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	60	156	
==>ubmethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	60	156	
==>ubmethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12070	12165	
==>ype, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks wi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12128	12223	
==>ype, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks wi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1310	1429	
==>me::Match::Ratchet';
        while ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12380	12492	
==>nd 


.sub "parse_enumclass"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local in <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7082	7221	
==>delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5583	5722	
==>delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8131	8236	
==>ert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8131	8236	
==>ert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet u <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1749	1867	
==>he 
pair is currently unused, but for forward compatibility it should always be the 
value C<1>, the default for the C< <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1749	1867	
==>he 
pair is currently unused, but for forward compatibility it should always be the 
value C<1>, the default for the C< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1021	1147	
==>$uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1021	1147	
==>$uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39324	39418	
==>acter classes are not returned all at once, but piece by piece.
Because range checking (C<[a-z] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	542	639	
==>setta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	542	639	
==>setta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example cla <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18637	18742	
==>essionNoIn>
}
rule AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | <LeftHan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4948	5067	
==>,
    # XXX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	309	437	
==>t "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	309	437	
==>t "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	444	546	
==>return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	444	546	
==>return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24145	24245	
==>t a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arrow-> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1876	2071	
==>zy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cst <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1876	2071	
==>zy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cst <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13792	13891	
==>ction to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13850	13949	
==>ction to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool` <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	883	1047	
==>.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugin <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	883	1047	
==>.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3662	3801	
==>eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3650	3789	
==>eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        " <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1621	1793	
==>Val    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1621	1793	
==>Val    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10944	11040	
==>sed it, but it will not operate
differently.

The string representation is built by calling the v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5900	6030	
==>mmar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5900	6030	
==>mmar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25190	25297	
==>to link Rosetta with other free software
components, as defined by the Free Software Foundation at
L<http:// <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25190	25297	
==>to link Rosetta with other free software
components, as defined by the Free Software Foundation at
L<http:// <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	901	999	
==>y as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* La <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	901	999	
==>y as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* La <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6392	6499	
==>a URL. The document is printed
to the selected default filehandle for output (normally STDOUT) as
data is re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6392	6499	
==>a URL. The document is printed
to the selected default filehandle for output (normally STDOUT) as
data is re <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	676	779	
==>d1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# pr <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	676	779	
==>d1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# pr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16791	16951	
==>g_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21889	22049	
==>g_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10003	10113	
==>finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10003	10113	
==>finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8302	8406	
==>nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8302	8406	
==>nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3744	3860	
==>pic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3744	3860	
==>pic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31864	31959	
==>s multi-method is a generic binary relational operator that takes a single
Relation in its C<$ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36414	36509	
==>s multi-method is a generic binary relational operator that takes a single
Relation in its C<$ot <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	218	340	
==>uppose that means it's a 
perfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	218	340	
==>uppose that means it's a 
perfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Ci <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16524	16657	
==>*substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20950	21083	
==>*substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2154	2298	
==>\$_[5],} }",
        
    # XXX
    #infix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name <==
2	/Users/nnunley/pugs/util/func_refact.pl	637	742	
==>t load nodes data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignoring: $_\n" for (@{$Conf{except}} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35185	35283	
==>rns Relation>

This multi-method is a generic binary relational operator that is identical
to C<joi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39735	39833	
==>rns Relation>

This multi-method is a generic binary relational operator that is identical
to C<joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1341	1462	
==>, @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3712	3821	
==>sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9081	9174	
==>PARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9081	9174	
==>PARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	436	535	
==>b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<qua <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	436	535	
==>b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<qua <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15983	16102	
==>Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15983	16102	
==>Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, St <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15744	15889	
==>, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    in <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15744	15889	
==>, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    in <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20324	20419	
==>ne containing the hexadecimal digest of the
result in double quotes followed by a semicolon. Lik <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20324	20419	
==>ne containing the hexadecimal digest of the
result in double quotes followed by a semicolon. Lik <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	771	887	
==>".  So yes, the code is
an utter mess.

The project objectives are nominally:
  1- Provide an environment in which p6 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6229	6319	
==>sh(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method A <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15299	15424	
==>s;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waiting on a better want
    #if want ~~ r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3949	4061	
==>onal ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "poun <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3949	4061	
==>onal ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "poun <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2305	2425	
==>e.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2305	2425	
==>e.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6460	6571	
==>flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6472	6583	
==>flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $D <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3273	3366	
==>erence($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3273	3366	
==>erence($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1064	1181	
==>t}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }",
    postfix_non =>       
        "exp ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	323	433	
==>e->digest;

    $digest => Blondie::Backend::C::Prim->new(
		equals => $digest,
		body => $params->{body},
		ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35415	35526	
==>l in Regexp::AndBranch::and
  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };

Here, @kids is a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	30	140	
==>lock
#
# experimental implementation of a p6 compiler
# 

# ***************
# This version of lrep only compile <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4023	4132	
==>lf->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	569	662	
==>class, $rule_source, $param ) = @_;

    return Pugs::Compiler::RegexPerl5->compile( $rule_sou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1937	2038	
==>> [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1937	2038	
==>> [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1406	1527	
==>aram2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1406	1527	
==>aram2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1934	2039	
==>$two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1934	2039	
==>$two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1681	1785	
==>(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    retur <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1681	1785	
==>(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8797	8906	
==>1), "\\0$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3696	3796	
==>l got the right y for p2');
is($p1->get_x, 15, '... still got the right x for p1');
is($p1->get_y, 16 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	49	143	
==>arnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use Pugs::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2942	3351	
==>erface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2942	3351	
==>erface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1105	1257	
==>er::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1105	1257	
==>er::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9850	9967	
==>hod fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9850	9967	
==>hod fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15787	15897	
==>an't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2184	2290	
==>an't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6507	6612	
==>$iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11565	11670	
==>$iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16406	16515	
==>>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; yo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16464	16573	
==>>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; yo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	725	828	
==>captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	725	828	
==>captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1265	1394	
==>) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	825	954	
==>) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11532	11645	
==>currence )`

Returns only the elements in this recurrence that are not in the given recurrence.

- `intersects( $r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11532	11645	
==>currence )`

Returns only the elements in this recurrence that are not in the given recurrence.

- `intersects( $r <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5012	5138	
==><$f>;
    }
}

for my $c (qw(

              conv_self conv_array conv_hash conv_reference
              conv_foreach conv_pack <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	43	147	
==>rl6::MetaModel;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of a Tangram schema str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10442	10542	
==>, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Cla <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10442	10542	
==>, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Cla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2293	2415	
==>lity)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2293	2415	
==>lity)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3475	3585	
==>(%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3475	3585	
==>(%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self! <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	344	445	
==>od block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	344	445	
==>od block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	615	726	
==>:Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	615	726	
==>:Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $desc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11350	11458	
==>is recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11350	11458	
==>is recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	465	553	
==>-----------------------------------------------------
## accessors and mutators

method p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	465	553	
==>-----------------------------------------------------
## accessors and mutators

method p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1782	1965	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ . <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1782	1965	
==>turn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1838	1939	
==>Stevan Little and others.

This program is free software; you can redistribute it and/or modify it
und <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1838	1939	
==>Stevan Little and others.

This program is free software; you can redistribute it and/or modify it
und <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11846	11947	
==>ad1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::En <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11846	11947	
==>ad1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::En <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11537	11660	
==>,

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11537	11660	
==>,

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12078	12171	
==>ta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12078	12171	
==>ta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) is set <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5396	5518	
==>re ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5396	5518	
==>re ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5748	5844	
==>mar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Rule obj <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5549	5641	
==>mar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Rule obj <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	200	316	
==>r::DuplicateFinder;
use Blondie::TypeSafe;

sub new {
	my $class = shift;

	bless {
		seen => undef,
	}, $class;
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31174	31271	
==>-class that does not allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::NoC <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13287	13390	
==>eturns a recurrence set containing only the elements that 
satisfy the given boolean function.

    # re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13287	13390	
==>eturns a recurrence set containing only the elements that 
satisfy the given boolean function.

    # re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1585	1741	
==>\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1585	1741	
==>\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33100	33187	
==>nt_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37650	37737	
==>nt_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@other <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2230	2346	
==>ted requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2230	2346	
==>ted requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	827	933	
==>Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	827	933	
==>Perl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5108	5210	
==>\[\]]//g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSyms.
package PIL::PIL1CPerl5::Node <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9342	9452	
==>od remove_method (opaque $self: symbol $label) returns nil { 
    %:methods.delete($label);
}

(method remove_m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14261	14414	
==>Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14261	14414	
==>Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2	116	
==>ass Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2	116	
==>ass Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5945	6051	
==>::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `dev <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5945	6051	
==>::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- `dev <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7552	7688	
==>g_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7552	7688	
==>g_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1769	1882	
==>12)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1769	1882	
==>12)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $cod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5641	5737	
==>channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5641	5737	
==>channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<fr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7604	7748	
==>fied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	905	1049	
==>fied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6111	6220	
==>at = $$token{syncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    got <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8001	8123	
==>, :capture );



  # returns a Match object that has no capture (but the 'bool' field is still true)

  match_word( 'abc123 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7732	7851	
==>, :capture );

  # returns a Match object that has no capture (but the 'bool' field is still true)
  match_word( 'abc123 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13589	13684	
==>nated is TRUE then we also unterminated named
entities will also be expanded.  The longest match <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13589	13684	
==>nated is TRUE then we also unterminated named
entities will also be expanded.  The longest match <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9248	9444	
==>ist would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9248	9444	
==>ist would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3126	3255	
==>tus{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::B <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3126	3255	
==>tus{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::B <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4918	5078	
==>st)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     reduce  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17227	17328	
==>t uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
localization methodo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17227	17328	
==>t uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
localization methodo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30704	30811	
==>e name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name comes first an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30704	30811	
==>e name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name comes first an <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4942	5081	
==>o we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is N <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5406	5545	
==>o we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is N <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7553	7652	
==>lements the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # in <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7553	7652	
==>lements the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # in <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2678	2900	
==>rbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2678	2900	
==>rbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2266	2383	
==>) {
        return $current.get_method($label, %opts)
            if $current.has_method($label, %opts);
    }
}

# al <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25365	25469	
==>tity numbers 0 and 1 mean to normal algebra.

A picture of a Relation::Example can look like a table, whe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6791	6918	
==>eader("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6791	6918	
==>eader("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.head <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	786	886	
==>sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	786	886	
==>sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `ne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2058	2182	
==>ath[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2058	2182	
==>ath[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	974	1075	
==>rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $body = su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21816	21993	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22095	22272	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ru <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	276	396	
==>ift;

    # Infinite loop protection
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Cau <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4882	5056	
==>,
    #    precedence => 'equal',
    #    other => ';',
    #);

    # experimental
    __PACKAGE__->add_rule( 
        name => 'IF',
        assoc => 'non',
        preceden <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9472	9585	
==>sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11718	11824	
==>e->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9403	9504	
==>e->[-2];
    return unless $prev->type eq $self->type;
    push @{ $prev->{data} }, @{ $self->{data} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	349	467	
==>}
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	349	467	
==>}
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, gr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4752	4903	
==>seen [test $result{number}]\n";
            warn "Can't detailize, too big.\n";
        }
        else {
            #Generates the details based on the <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2016	2116	
==>h succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2016	2116	
==>h succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10253	10359	
==>tests need a plan. A plan is simply the number of tests which are
expected to run. This should be specified <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10311	10417	
==>tests need a plan. A plan is simply the number of tests which are
expected to run. This should be specified <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2183	2314	
==>P::Status::status_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2183	2314	
==>P::Status::status_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1700	1822	
==>files_list );
}

=head1 METHODS

=head2 $inst = JIB::Installation->new;

=cut

### XXX do some smart caching here -- but ca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11987	12085	
==>/x);
	$class->new(@_);
}


# this is the actual inferrence engine
my $i = Language::AttributeGramma <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4542	4643	
==>emented as hash keys to code refs. The only function this module
exports is the constructor. 

=over 4 <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4542	4643	
==>emented as hash keys to code refs. The only function this module
exports is the constructor. 

=over 4 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2684	2803	
==>1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3148	3267	
==>1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7384	7515	
==>--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XX <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7384	7515	
==>--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XX <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16240	16336	
==>butes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the param <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16240	16336	
==>butes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the param <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8670	8802	
==>}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexDigit>
}
rule S <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12095	12194	
==>$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12095	12194	
==>$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4544	4657	
==>t ], 
    '... $Object class_precendence_list');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5446	5554	
==>>display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $node = shift <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24215	24321	
==>cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Confined to regcom <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13572	13669	
==>If $allow_unterminated is TRUE then we also unterminated named
entities will also be expanded.  Th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13572	13669	
==>If $allow_unterminated is TRUE then we also unterminated named
entities will also be expanded.  Th <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1250	1356	
==>ven though it will
# likely lack R:P's nice error messages.


# Test suite:
#  re_tests - tests from p5 HEA <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3334	3468	
==>gndocs.\n");
        $no_designdocs = 1;
    }
}

$output_dir ||= 't_index';
for(@t_dirs) {
    die("Test directory '$_' does not exist <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	104	215	
==>d docs are after the __END__.

This is a rewrite of the matching engine, aiming to generate the same data stru <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	651	778	
==>ry Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4129	4256	
==>ry Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relati <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7154	7372	
==>/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $path ) if -d $path;

    @found;
}

sub <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1423	1611	
==>)                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $archive $Repodir/$file] )             and die $?;
    }

    print "\n\n\n" <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	136	240	
==>] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, %conf{'y'}, $global, 'de <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1401	1548	
==>r now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1045	1163	
==>,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1232	1333	
==>} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1232	1333	
==>} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10631	10760	
==>keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10631	10760	
==>keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $v <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8764	8887	
==>_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    f <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1894	2071	
==>l5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1894	2071	
==>l5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	961	1066	
==>, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('exp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	961	1066	
==>, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('exp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1277	1389	
==>($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_clo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1277	1389	
==>($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_clo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1921	2024	
==>cate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1921	2024	
==>cate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4381	4480	
==>lues 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decryptin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4381	4480	
==>lues 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decryptin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1503	1612	
==>ie $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1503	1612	
==>ie $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3554	3661	
==>d.

To use the Cipher API, you must first create an object of the appropriate 
class, passing the key, a mod <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3554	3661	
==>d.

To use the Cipher API, you must first create an object of the appropriate 
class, passing the key, a mod <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1546	1654	
==>ugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runte <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1546	1654	
==>ugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runte <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	547	645	
==>ort {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	547	645	
==>ort {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is exp <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6423	6520	
==>Fetching kernel from \"$kernel_uri\"",
  help   => "Remove \"$kernel_local\" if you want mklivecd. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6209	6360	
==>"upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6209	6360	
==>"upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5173	5300	
==>"Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5173	5300	
==>"Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3247	3351	
==>ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24884	24999	
==>?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21305	21420	
==>?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) } <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	669	772	
==>t I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	669	772	
==>t I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1008	1128	
==>fined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $index->isa('num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	501	610	
==>comments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n|$] <p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1714	1831	
==>0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1714	1831	
==>0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method inter <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8947	9041	
==>The following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8947	9041	
==>The following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4178	4287	
==>y include some sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4178	4287	
==>y include some sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's d <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1353	1476	
==>p->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1320	1443	
==>p->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2465	2666	
==>ft @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2712	2913	
==>ft @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3535	3948	
==>object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3535	3948	
==>object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rose <==
2	/Users/nnunley/pugs/util/func_refact.pl	2744	2855	
==>rt {score(@{$cands{$b}}) <=> score(@{$cands{$a}})}
        keys %cands;

    # prompt the user
    # return list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3018	3121	
==>omeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2910	3011	
==>omeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3837	3965	
==>aders::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3837	3965	
==>aders::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_conten <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19183	19283	
==>users' own data; only
someone already involved in making the program would be editing them.  At
the s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19183	19283	
==>users' own data; only
someone already involved in making the program would be editing them.  At
the s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2005	2139	
==>recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_fi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	647	745	
==>ndef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Silly - a subcla <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3865	3969	
==>ngify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3865	3969	
==>ngify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3894	4031	
==>n;

            $obj->registered_alternatives( \@alts );

            my @avail = eval { 
                map { JIB::Package->new( meta => <==
2	/Users/nnunley/pugs/util/package-osx.pl	6338	6426	
==>/local/man/man3/Perl6::Overview::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1383	1524	
==>tal I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1383	1524	
==>tal I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	205	433	
==>de\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4502	4618	
==>e =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4502	4618	
==>e =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11673	11767	
==>be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11673	11767	
==>be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2983	3111	
==>.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2983	3111	
==>.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8728	8869	
==>p"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8728	8869	
==>p"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21299	21398	
==>GHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This librar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21299	21398	
==>GHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This librar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9062	9178	
==>>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9058	9174	
==>>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1027	1148	
==>{
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1027	1148	
==>{
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6965	7079	
==>cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6965	7079	
==>cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10697	10823	
==>an::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10697	10823	
==>an::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5498	5663	
==>ail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@bod <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5498	5663	
==>ail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@bod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9881	10002	
==>self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9881	10002	
==>self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5712	5816	
==>!users{normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5712	5816	
==>!users{normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	410	507	
==>odule as a starting point to base
a new module distribution on.

= AUTHORS

Brian Ingerson <ingy@c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3253	3360	
==>skell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Sp <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3253	3360	
==>skell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Sp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5747	5901	
==>> [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    }) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5747	5901	
==>> [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    }) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6513	6677	
==>ore::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6513	6677	
==>ore::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4027	4144	
==>atch->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4167	4284	
==>atch->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1138	1238	
==>elativePrecedence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $match = "P6Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1921	2073	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2114	2266	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8270	8391	
==>other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11747	11868	
==>other );
}

multi method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37789	37886	
==>positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37789	37886	
==>positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19407	19503	
==>are structured as
standard data manipulation statements but that the target relation
variables ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19407	19503	
==>are structured as
standard data manipulation statements but that the target relation
variables ar <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4945	5050	
==>with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned b <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4945	5050	
==>with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned b <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5087	5199	
==>rn;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5087	5199	
==>rn;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23563	23682	
==>ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19984	20103	
==>ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifth <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	211	310	
==>ns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!filter_func <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	211	310	
==>ns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code { $!filter_func <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8266	8377	
==>eop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7979	8085	
==>eop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4796	4903	
==>ORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4796	4903	
==>ORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3144	3257	
==>ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3132	3245	
==>ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	802	927	
==>e_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	802	927	
==>e_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	583	732	
==>f()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	583	732	
==>f()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22462	22561	
==>n flag and non-capturing group constructs.

=back

=head2 0.01 -- June 29, 2004

=over 4

=item Firs <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2746	2844	
==>{extensions} || [];
    unless (@$extensions) {
        $self->load_extensions("$self->{prefix}/$se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9266	9390	
==>hen any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <decipheri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9266	9390	
==>hen any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <decipheri <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11573	11684	
==>eneric_reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $node->can( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15181	15282	
==>{ ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  cl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15181	15282	
==>{ ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  cl <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	492	628	
==>in is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $str, -1, 1;
        $str = substr $ <==
2	/Users/nnunley/pugs/util/addauthors.pl	521	653	
==>or;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	735	836	
==>ks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API operates at <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	735	836	
==>ks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API operates at <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5727	5827	
==>o_type) . " with " . $self->display_type($expected_type);
		warn Data::Dumper::Dumper($expected_type) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3127	3266	
==>ist ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3127	3266	
==>ist ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2791	2891	
==>methods, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2791	2891	
==>methods, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all th <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21930	22058	
==>"xs",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22896	22979	
==>[_|T]) :- charset_member(E0,C,T).

%------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30996	31092	
==>is method returns the identity-one Relation or the invocant relation,
respectively.

=item C<rest <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35546	35642	
==>is method returns the identity-one Relation or the invocant relation,
respectively.

=item C<rest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4957	5069	
==>= ref $_[0];
  my $class = "${ref}::$type";

  if ($ref ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'r <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	242	348	
==>se -MTestInit.  You may "use TestInit" in the test
# programs but it is not required.
#
# P.S. This docu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2489	2625	
==>\$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2489	2625	
==>\$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	675	769	
==>iler::Rule->compile(q(" .
	$body . "))->code;"
    }))->code;
*grammar = Pugs::Compiler::Rule-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	621	743	
==>'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9369	9474	
==>ter but not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscapeS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3527	3673	
==>x, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3991	4137	
==>x, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift o <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2169	2285	
==>s::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29189	29288	
==>rged with the previous object in the tree.

=item my $m = $obj->merge()

Merges this node with the p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8572	8674	
==>> sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't unify $x->{symbo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	339	443	
==>omplete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy lists ar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	339	443	
==>omplete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy lists ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6362	6584	
==>rent_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6362	6584	
==>rent_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13566	13662	
==>The field names have case as suggested by HTTP spec, and the
names are returned in the recommende <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13566	13662	
==>The field names have case as suggested by HTTP spec, and the
names are returned in the recommende <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	878	983	
==>ile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	878	983	
==>ile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9302	9404	
==>_normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9302	9404	
==>_normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36656	36752	
==>a Template corresponding to the Message could be
found using the Translator object's Set and Memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36656	36752	
==>a Template corresponding to the Message could be
found using the Translator object's Set and Memb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23893	23992	
==>tta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23893	23992	
==>tta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10546	10641	
==>well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on their typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10546	10641	
==>well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on their typ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1585	1694	
==>rs

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1585	1694	
==>rs

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { < <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1798	1986	
==>)
        ) } }
    );
}

###########################################################################

proto method export_attrs of Relation::LaxAttrList () {...}

proto method export_attr_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7902	8003	
==>e_fd [$bucket->state] => $fh or
    die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1100	1204	
==>X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1100	1204	
==>X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3011	3113	
==>d symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).union($other.diffe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3011	3113	
==>d symmetric_difference($self: Set $other) returns Set {
    $self.difference($other).union($other.diffe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24196	24309	
==>d or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28748	28861	
==>d or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set w <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13892	14007	
==>default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_chars )

This routine replaces u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13892	14007	
==>default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_chars )

This routine replaces u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18876	19001	
==>ople who would be writing the text
would have to know how to edit Perl files, this shouldn't be a problem
because Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18876	19001	
==>ople who would be writing the text
would have to know how to edit Perl files, this shouldn't be a problem
because Locale::Keye <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18111	18241	
==>ss;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24730	24860	
==>ss;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15157	15259	
==>he user, or generate a message to be
shown to the user.  Sometimes this is an error message of some kin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15157	15259	
==>he user, or generate a message to be
shown to the user.  Sometimes this is an error message of some kin <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2562	2661	
==>ts Reserved.

This program is Free Software, and may be used, distributed and modified under 
the sa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2562	2661	
==>ts Reserved.

This program is Free Software, and may be used, distributed and modified under 
the sa <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	164	270	
==>$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	164	270	
==>$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15269	15373	
==>ETHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return the start or <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15269	15373	
==>ETHODS

The following methods are available for Span objects:

- `start()` / `end()`

Return the start or <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26012	26103	
==>), listify_lists(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), listify(T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2156	2244	
==>lement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varhash>) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6593	6693	
==>TER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6593	6693	
==>TER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5863	5985	
==>.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5863	5985	
==>.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15845	15943	
==>d.

This library is free software; you can redistribute it and/or
modify it under the same terms as <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15845	15943	
==>d.

This library is free software; you can redistribute it and/or
modify it under the same terms as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3213	3472	
==>t

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3213	3472	
==>t

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	16	121	
==>k;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	16	121	
==>k;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18961	19053	
==>ined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<usern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18961	19053	
==>ined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<usern <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14003	14138	
==>} else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14003	14138	
==>} else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method qu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6330	6428	
==>nk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6330	6428	
==>nk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6745	7020	
==>ie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscap <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6745	7020	
==>ie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32940	33035	
==>he field
"family" represents the general category into which that object falls.

This is very sp <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	759	861	
==>93.
# Prim.hs defines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22850	22945	
==>en>, but it is incremented during the initial pass, so that on
the second pass (the tree-buildin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	206	308	
==>(b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	239	341	
==>(b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	118	375	
==>edText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	118	375	
==>edText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3178	3300	
==>ct ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3178	3300	
==>ct ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1806	1909	
==>he algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1806	1909	
==>he algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to int <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	447	561	
==>b reduce {
    my $self = shift;
    my $node = shift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9257	9357	
==>tta::Model is entirely object-oriented; you use it by
creating objects from its member classes, usual <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9257	9357	
==>tta::Model is entirely object-oriented; you use it by
creating objects from its member classes, usual <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	256	361	
==>was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	256	361	
==>was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3371	3467	
==>}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 99 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3371	3467	
==>}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 99 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9009	9177	
==>$postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX do <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22454	22582	
==>) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s", $faile <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1304	1431	
==>);
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipulation tools <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	444	539	
==>keeps the C<source> property, and adds nothing else.

More specialised processing instructions m <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	444	539	
==>keeps the C<source> property, and adds nothing else.

More specialised processing instructions m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2483	2613	
==>)
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2623	2753	
==>)
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{gramma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6429	6544	
==>er ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is cop <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6429	6544	
==>er ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is cop <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5188	5323	
==>$new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5188	5323	
==>$new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36644	36739	
==>ssumes that a Template corresponding to the Message could be
found using the Translator object's <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36644	36739	
==>ssumes that a Template corresponding to the Message could be
found using the Translator object's <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21777	21903	
==>statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22056	22182	
==>statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1776	1942	
==>-e $_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need stat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	482	581	
==>{ return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	482	581	
==>{ return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::I <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21296	21482	
==>> comb(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs"),
							),
						),
						para <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6520	6621	
==>file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6520	6621	
==>file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	12	113	
==>:Constants;

use strict;

use Package::Constants;
use File::Spec;
use Log::Message::Simple        qw[: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14023	14154	
==>et_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14023	14154	
==>et_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12024	12123	
==>s($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naï <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12024	12123	
==>s($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naï <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1946	2036	
==>s C<$session>'s C<$event> event handler, passing C<@args> as arguments.
Note that possibly, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1852	1958	
==>is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worke <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1852	1958	
==>is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worke <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3825	3927	
==>utrc=$inputrc
    The readline library likes to have a /etc/inputrc.
  --terminfo=$terminfo
    To make <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1406	1517	
==>, $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1406	1517	
==>, $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	532	654	
==>onstant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	532	654	
==>onstant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $con <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3927	4027	
==>span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3927	4027	
==>span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12094	12215	
==>ded.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12094	12215	
==>ded.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3643	3777	
==>f;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3643	3777	
==>f;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9914	10042	
==>$part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9914	10042	
==>$part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	314	417	
==>used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	314	417	
==>used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4477	4608	
==>s {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1714	1907	
==>key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1714	1907	
==>key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

metho <==
2	/Users/nnunley/pugs/util/package-osx.pl	10055	10176	
==>from\n";
        }
    }
}


# @files are all files that will be removed. The last one passed in is the
# remover that wil <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1139	1243	
==>arg ) {  }
    }

    role Getopt::Argument::Normalizer::Null { }

    role Getopt::Argument::Coercer::Nu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	886	979	
==>MENTED
  my $verbose_output = $strap->dump_verbose();
  $strap->dump_verbose_fh($output_fileha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12972	13089	
==>t) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12972	13089	
==>t) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1337	1475	
==>('block'))
        || confess "OR takes a block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	484	594	
==>'non',
        name => 'postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4403	4507	
==>a($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4588	4692	
==>a($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13115	13248	
==>c_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't matc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13115	13248	
==>c_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3000	3119	
==>"parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3478	3597	
==>"parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3200	3409	
==>h => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3074	3276	
==>h => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	593	703	
==>te> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	593	703	
==>te> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11022	11122	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11080	11180	
==>ted, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4555	4696	
==>ectly to "Rosetta" in your
code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4555	4696	
==>ectly to "Rosetta" in your
code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Ro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4975	5067	
==>ocale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4975	5067	
==>ocale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This docume <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3208	3445	
==>tim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3208	3445	
==>tim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_el <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6230	6333	
==>return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6230	6333	
==>return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3157	3260	
==>s) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3157	3260	
==>s) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	201	297	
==>_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX => 4;
use con <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2142	2254	
==>round_away_from_zero (Num $x) {
	return 0 if $x == 0;

	my Int $t = int($x);
	return $x if $x == $t;
	$x > 0 ?? $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29570	29672	
==>VALUE)

Whether this node is omitted from the parse tree.  Certain objects
do not need to appear in the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1407	1511	
==>osetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1407	1511	
==>osetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18299	18410	
==>,
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and basically ens <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16135	16239	
==>de, $.is,
	);


	type($.in);
}

cond: env($.if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	447	542	
==>what is described
in here (note: same author as the first scheme code):

  http://okmij.org/ftp/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4259	4385	
==>(
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4259	4385	
==>(
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            St <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6080	6213	
==>lob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choices) {
                my $ghc_candidate <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2596	2703	
==>lass (without the prefix) is
exported. This is very convenient for constructing trees and helps readability. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6587	6671	
==>charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_matchref(I).
p5_elemental(ws(C) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	400	508	
==>. };

multi sub pi is readonly () returns Num
    { 3.14159_26535_89793_23846_26433_83279_50288_41971_69399_3 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1556	1664	
==>path  = "../../../parrot-trunk";
my $bash         = "/bin/bash";
my $inputrc      = "/etc/inputrc";
my $termi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	639	741	
==>tor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	639	741	
==>tor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9645	9744	
==>Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `inter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9645	9744	
==>Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `inter <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2286	2398	
==>ink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2264	2376	
==>ink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	626	850	
==>ne
                \# (?-s:.)*   
            )+
        )
        (.*)$   # "tail"
    /sx;
    #print "ws: $grammar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7297	7394	
==>raverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7297	7394	
==>raverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1504	1600	
==>make15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1344	1440	
==>make15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1716	1818	
==>ti sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1716	1818	
==>ti sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4010	4148	
==>t try to load a module. XXX: add a real inc class to
    # interface %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	257	365	
==>ift;
		my $f = shift;
		my $res = (ref $self)->new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub n <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	732	850	
==>$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
s <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	732	850	
==>$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9633	9805	
==>eturn $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation::Example $other!) returns Rela <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3134	3240	
==>nd does not
    # recognise cygwin absolute paths.  This kludge includes the
    # win32ified path as well. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5385	5483	
==>48) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$n <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5385	5483	
==>48) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12086	12205	
==>op (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4729	4848	
==>op (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&R <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1666	1781	
==>ILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1666	1781	
==>ILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17036	17150	
==>eclare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17036	17150	
==>eclare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7602	7720	
==>e (named args) 

###    because the actual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7344	7459	
==>e (named args) 
###    because the actual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1932	2059	
==>capture_body>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13295	13421	
==>}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper $n
            if @{$n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	298	438	
==>t;
    #warn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s e <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17845	17976	
==>O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($fmt,$start <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3873	3970	
==>ber of tests expected to run.

=item B<Fail>

Number which failed, either from "not ok" or because <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14250	14353	
==>=item RPe_BRACES (-19)

Missing braces on \%s{}

=item RPe_RBRACE (-20)

Missing right brace on \%s{}

= <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6783	6871	
==>ight return value from Object singleton/class method');

$Object->add_singleton_method('a <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	974	1252	
==>]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	974	1252	
==>]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1521	1621	
==>cedural interface is good enough for many purposes.  
Although the interface is said to be procedural <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1521	1621	
==>cedural interface is good enough for many purposes.  
Although the interface is said to be procedural <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	943	1055	
==>$self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infini <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	943	1055	
==>$self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infini <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14312	14420	
==>But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $es <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14312	14420	
==>But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $es <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3841	3993	
==>$!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute value <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3841	3993	
==>$!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute value <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2196	2302	
==>$child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2196	2302	
==>$child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	712	829	
==>SL Domain-specific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'Worl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	677	786	
==>SL Domain-specific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'Worl <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2201	2317	
==>n::Bin);

    $class =~ s/^inc:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unl <==
2	/Users/nnunley/pugs/util/claim_drift.pl	771	881	
==>hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12498	12594	
==>mpty, but gains one element for each Node in the Node
hierarchies created from a defined @root_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12498	12594	
==>mpty, but gains one element for each Node in the Node
hierarchies created from a defined @root_no <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3173	3300	
==>elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    els <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3173	3300	
==>elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    els <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3244	3350	
==>e_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3244	3350	
==>e_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24864	24978	
==>match;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25143	25257	
==>match;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       , <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19090	19204	
==>t column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19090	19204	
==>t column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1482	1577	
==>e;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1482	1577	
==>e;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variabl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15326	15429	
==>cts:

- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15326	15429	
==>cts:

- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothin <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3607	3730	
==>urn ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3607	3730	
==>urn ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $ur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6884	6981	
==>ree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the same <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6884	6981	
==>ree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the same <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	356	465	
==>g}  ||= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  prin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4074	4236	
==>',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4074	4236	
==>',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15355	15468	
==>ds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=over 4

=item $h.dat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15355	15468	
==>ds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=over 4

=item $h.dat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22080	22190	
==>Y_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Po <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16981	17090	
==>Y_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Po <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1918	2024	
==>ded in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

= <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1918	2024	
==>ded in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18798	18899	
==>) if the desired nick is already
used.

This module will C</WHO> itself after login, so it can give yo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18798	18899	
==>) if the desired nick is already
used.

This module will C</WHO> itself after login, so it can give yo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2391	2517	
==>%*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2391	2517	
==>%*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12410	12520	
==>e element in the recurrence that is closest to the parameter.
If both previous and next elements are at the sam <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12410	12520	
==>e element in the recurrence that is closest to the parameter.
If both previous and next elements are at the sam <==
2	/Users/nnunley/pugs/util/package-osx.pl	7046	7146	
==>::Docfinder.3
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3pm
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1846	1963	
==>ed;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1904	2021	
==>ed;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1665	1779	
==>rep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of ju <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1665	1779	
==>rep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of ju <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4531	4673	
==>rn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $dir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4519	4661	
==>rn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $dir <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2176	2299	
==>density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2176	2299	
==>density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $star <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1827	1940	
==>ack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pk <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1827	1940	
==>ack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pk <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12126	12242	
==>\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s n <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12126	12242	
==>\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1200	1344	
==>contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1200	1344	
==>contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24285	24384	
==>ltaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-ori <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24285	24384	
==>ltaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-ori <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26739	26837	
==>embers of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alia <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31291	31389	
==>embers of C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	126	214	
==>mar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6884	6979	
==>e>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPAT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6884	6979	
==>e>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPAT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16005	16149	
==>ems from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod B <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16005	16149	
==>ems from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6127	6248	
==>ix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6127	6248	
==>ix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1596	1692	
==>ead1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1596	1692	
==>ead1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2629	2798	
==>> 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2543	2706	
==>> 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @mat <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7847	7971	
==>reate directory $output_path" if $@;
    open (my $fh,'>', $index_file) or die "Failed to open $index_file: $!";
    my @dirs <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18893	18992	
==>entation is pending.>

=head1 DESCRIPTION

This class implements a Relation data type that correspon <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	240	336	
==>IN {
    __PACKAGE__->mk_accessors(qw/runtime cache env/)
}

{
    package Blondie::Compiler::Pla <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2823	3006	
==>$tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6300	6483	
==>$tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	975	1133	
==>E
       p6_var
       p6_assign
       p6_setq
       p6_bind
       p6_mangle
       p6_apply
       p6_applym
       p6_return_CODE
       p6_catch_return_C <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8	108	
==>ill go away in the hopefully not too distant future.
# So this is all throw-away code.
use strict;
pa <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	331	435	
==>returns Duration::Gregorian is export {
    duration(:second($seconds));
}

multi sub duration( Int ?$yea <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12617	12716	
==>get, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos = length target
    charlist = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6433	6594	
==>" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6491	6652	
==>" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2037	2140	
==>rl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2037	2140	
==>rl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9612	9704	
==>sually created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, int <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9612	9704	
==>sually created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, int <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17464	17560	
==>t()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17464	17560	
==>t()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", this method <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7261	7367	
==>20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METH <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7261	7367	
==>20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METH <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13092	13193	
==>We will assume that if you're running under -T, you really mean to
	# run a fresh perl, so we'll brute <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2968	3083	
==>XX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            loca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3108	3223	
==>XX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            loca <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2014	2143	
==>calar    pre     delete  safe   (rw!Array: List)\
multi method Array::delete (@array : *@indices --> List )
{
    my @ret;
    for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2584	2682	
==>S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3539	3637	
==>S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18796	19002	
==>tent($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just a normal link, after the header, when there <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3574	3666	
==>non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3758	3850	
==>non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2330	2567	
==>$y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => sub {
            my ($self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3629	3729	
==>vocant named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub bind {
    my ($self <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	492	586	
==>as the first scheme code):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is still <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35122	35216	
==>A Translator object has these methods:

=over

=item C<export_as_hash()>

This method returns a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35122	35216	
==>A Translator object has these methods:

=over

=item C<export_as_hash()>

This method returns a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9293	9416	
==>er encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting dec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9293	9416	
==>er encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting dec <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	126	225	
==>e_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	126	225	
==>e_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3115	3234	
==>multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3115	3234	
==>multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12858	12960	
==>e

 multi method Hash::delete ( *@keys --> List )
 multi method Hash::delete (   $key --> Scalar ) is d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1992	2105	
==>ode::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1992	2105	
==>ode::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25967	26079	
==>right notice and other credits.
Rosetta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRAN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25967	26079	
==>right notice and other credits.
Rosetta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRAN <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7171	7269	
==>pe:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7183	7281	
==>pe:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20628	20730	
==>eld name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20628	20730	
==>eld name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19959	20048	
==>nceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
impl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19959	20048	
==>nceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
impl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2480	2628	
==>r* stringarg, char* strend,
                          char* strbeg, I32 minend, SV* screamer,
                          void* data, U32 flags)
{
  if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3529	3634	
==>eturn $S->object(exact_comp => "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	260	361	
==>so ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAUL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	260	361	
==>so ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAUL <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	1	112	
==>se Cipher;
class Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	1	112	
==>se Cipher;
class Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20496	20603	
==>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Return <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20496	20603	
==>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1901	1994	
==>to_num->to_native()));
}

sub increment { num->new((shift)->to_native + 1) }
sub decrement { n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1218	1316	
==>ter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
continuati <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1218	1316	
==>ter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
continuati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6932	7071	
==>});
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6932	7071	
==>});
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19383	19478	
==>t to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19383	19478	
==>t to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7359	7516	
==>) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7359	7516	
==>) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	472	598	
==>) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag(' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	135	259	
==>{
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	135	259	
==>{
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5352	5476	
==>ods;
}

(class (Class)
    ((attribute new (@:MRO))             (list)
     (attribute new (@:subclasses))      (list)
     ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1215	1312	
==>::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1215	1312	
==>::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1696	1815	
==>0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2476	2595	
==>0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10033	10131	
==>o Pugs, new test functions will be defined to facilitate the
testing of those features. For more in <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10091	10189	
==>o Pugs, new test functions will be defined to facilitate the
testing of those features. For more in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	304	423	
==>sible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	304	423	
==>sible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11883	12024	
==>e'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12162	12303	
==>e'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31106	31207	
==>redicate!) returns Relation>

This method is a generic relational operator that returns a new Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35656	35757	
==>redicate!) returns Relation>

This method is a generic relational operator that returns a new Relation <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3192	3335	
==>($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    } <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3923	4029	
==>($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14930	15027	
==>cument that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14930	15027	
==>cument that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent No <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26803	26947	
==>plication;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27082	27226	
==>plication;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2220	2313	
==>)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	712	803	
==>)->code;"
    }))->code;
*grammar = Pugs::Compiler::Rule->compile(q(<'grammar'> <grammar_nam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	932	1048	
==>ef as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	932	1048	
==>ef as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7791	7896	
==>it. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7791	7896	
==>it. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!us <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16792	16900	
==>so does not make direct use of environment variables, which can aid in
portability.

Practically speaking, Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16792	16900	
==>so does not make direct use of environment variables, which can aid in
portability.

Practically speaking, Lo <==
2	/Users/nnunley/pugs/util/importgraph.pl	3	110	
==>usr/bin/env perl
# usage: util/importgraph.pl [--layout=neato]
# produces importgraph.ps in the current dire <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9288	9443	
==>ts{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{skip_reason},
                    skip_all    => $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16138	16255	
==>rn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19615	19732	
==>rn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	125	224	
==>flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	125	224	
==>flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2694	2826	
==>emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2694	2826	
==>emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	122	225	
==>ults;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	122	225	
==>ults;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24208	24334	
==>$last\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @resul <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3781	3879	
==>ng )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", a <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3781	3879	
==>ng )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorrow", a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17759	17878	
==>Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= "use Perl6::Run::OnPerl5::X1::Api;\n";
    $code .= "use Erro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1479	1584	
==>uesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbe <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1479	1584	
==>uesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40686	40781	
==>ails.

While it is by no means required, the copyright holders of
Locale::KeyedText would apprec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40686	40781	
==>ails.

While it is by no means required, the copyright holders of
Locale::KeyedText would apprec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9215	9319	
==>k management
    LINKING: {   
        my $alt = $self->remove_registered_alternative( package => $inst_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12325	12551	
==>d' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12325	12551	
==>d' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19478	19572	
==>eader must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorizat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19478	19572	
==>eader must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorizat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1152	1262	
==>ub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1152	1262	
==>ub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4596	4760	
==>ir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4596	4760	
==>ir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31069	31166	
==>odule
consists of the two parts concatenated without any delimiter.  This means,
for example, that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31069	31166	
==>odule
consists of the two parts concatenated without any delimiter.  This means,
for example, that <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22145	22275	
==>COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offs <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17046	17175	
==>COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18744	18849	
==>ociation would normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  W <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18744	18849	
==>ociation would normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  W <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	710	839	
==>$_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
}

sub is_admin {
    $_[0]->admin->VERSION;
}

sub DESTROY {}

pac <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	50	171	
==>e Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * oper <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	50	171	
==>e Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * oper <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14386	14557	
==>$text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $resul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14386	14557	
==>$text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $resul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1083	1267	
==>>new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        1,
                '$.reason'      =>      $params{'$.reason <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9756	9879	
==>o be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no p <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9756	9879	
==>o be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1913	2030	
==>prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2130	2247	
==>prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	681	790	
==>title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP:: <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	681	790	
==>title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12715	12821	
==>'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12715	12821	
==>'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2719	2824	
==>:= _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

me <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2719	2824	
==>:= _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

me <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18211	18328	
==>r $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Rule $delimite <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15909	16015	
==>on about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15967	16073	
==>on about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1168	1339	
==>er;
            },
            _hash_vivifyElem => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3525	3630	
==>an, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3525	3630	
==>an, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $ch <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18260	18363	
==>Compile uses.

First, the source module is preprocessed to hide heredocs, since the content
inside hered <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18260	18363	
==>Compile uses.

First, the source module is preprocessed to hide heredocs, since the content
inside hered <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2901	2998	
==>f.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2901	2998	
==>f.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11826	11982	
==>]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<vari <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6328	6425	
==>_int (@array:) returns Int {
    +@array;
}
# name from docs/notes/piln_object_repr_types.pod r859 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1033	1128	
==>xpression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1033	1128	
==>xpression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	195	311	
==>urns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	195	311	
==>urns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method member <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2995	3147	
==>e {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2995	3147	
==>e {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10356	10448	
==>t ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11091	11183	
==>t ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5235	5388	
==>(<", $S0
    if $I2 < 0 goto term_bx1
    $S2 = substr "]})>", $I0
    inc pos
  term_bx1:
    $S0 = substr target, pos, 1
    downcase $S0
    $I1 = inde <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1982	2100	
==>f $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1982	2100	
==>f $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	157	250	
==>Class;
use Params::Check qw(check);
use Log::Message::Simple qw(:STD);

=head1 METHODS

=head2 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10206	10315	
==>ionBody> <'/'> <RegularExpressionFlags>
}
rule RegularExpressionBody {  # see 7.8.5
      <RegularExpressionFi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11375	11464	
==>onnect to above
p5_comment_opt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7555	7738	
==>tch)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7555	7738	
==>tch)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4681	4873	
==>hes
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4681	4873	
==>hes
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! define <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	363	469	
==>_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	363	469	
==>_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10316	10404	
==>?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11051	11139	
==>?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4398	4499	
==>6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /\./ )
  {
    $matchObj <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10974	11067	
==>}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10974	11067	
==>}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9031	9147	
==>program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $fla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9019	9135	
==>program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $fla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15514	15627	
==>s, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_ou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15514	15627	
==>s, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13816	13937	
==>^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13810	13931	
==>^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12951	13047	
==>-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12951	13047	
==>-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9370	9525	
==>ad1 Perl 6 Code
  
  class Test::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1894	2018	
==><ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1894	2018	
==><ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	584	700	
==>rted = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	642	758	
==>rted = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@tod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12725	12822	
==>objects without the time part.

Discrete spans take a "units" specifier, which can be either `:int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12725	12822	
==>objects without the time part.

Discrete spans take a "units" specifier, which can be either `:int <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5545	5677	
==>rn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5557	5689	
==>rn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	405	500	
==>g(:offset(0) :length(1));

 multi sub Array::shift () returns Scalar {
   Array::shift @CALLER:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4849	4942	
==>id');
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo', '... $Foo g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13744	13857	
==>o&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo  <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13744	13857	
==>o&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo  <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7719	7822	
==>thod is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7719	7822	
==>thod is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4034	4160	
==>ew( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4174	4300	
==>ew( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14953	15059	
==>nnel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVM <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14953	15059	
==>nnel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVM <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3261	3358	
==>%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r->substrs->data[0].substr;

    PUSH <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1116	1233	
==>0] } }

	sub keys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	4047	4151	
==>fined $args->{invocant};
    }

    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self- <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2690	2886	
==>ion$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2690	2886	
==>ion$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") }, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3020	3155	
==>class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot op <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3020	3155	
==>class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17747	17901	
==>ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18026	18180	
==>ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7571	7771	
==>sts    => scalar @tests,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_f <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23569	23709	
==>led;
    my @result = ();
    my @canon = ();
    my $min;
    my $last = $min = shift @failed;
    my $canon;
    if (@failed) {
        for <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2186	2284	
==>Flag handling is currently an utter kludge. not even trying with m and s.
# Match objects arent bei <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4460	4591	
==>y @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`] <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4460	4591	
==>y @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`] <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4418	4540	
==>'s my doubt. In Preluded code, do I need
    #      current_pragma_value or caller_pragma_value?
    #      I'm guessing "c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3500	3627	
==>ny', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3500	3627	
==>ny', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lex <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3462	3590	
==>l()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<coun <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3462	3590	
==>l()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<coun <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5012	5116	
==>$_->{file}} = $_ for @{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for(keys %$files) { h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	557	675	
==>params{'$.reason'};
            $params{'$.description'} = '' unless exists $params{'$.description'};

            retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18664	18763	
==>y to access the same external resources.>

Rosetta does not use any dialect of SQL in its native API <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18664	18763	
==>y to access the same external resources.>

Rosetta does not use any dialect of SQL in its native API <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33206	33305	
==>modules will be searched in the order
they appear in this array until a match for that message is fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33206	33305	
==>modules will be searched in the order
they appear in this array until a match for that message is fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	879	992	
==>inear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	879	992	
==>inear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	378	563	
==>ight  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	159	290	
==>s = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17188	17299	
==>($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13609	13720	
==>($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2539	2654	
==>} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2539	2654	
==>} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (S <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2726	2981	
==>e_state;
    $self->{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    = <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	249	351	
==>method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_filter ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	249	351	
==>method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_filter ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14922	15095	
==>nnected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14922	15095	
==>nnected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	652	782	
==>d in an upper scope";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	643	765	
==>'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	324	419	
==>'(?p{}) is deprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24646	24752	
==>er version 2 of the
License, or (at your option) any later version.  You should have received a
copy of the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24646	24752	
==>er version 2 of the
License, or (at your option) any later version.  You should have received a
copy of the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1768	1882	
==>ype = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlenco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1768	1882	
==>ype = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlenco <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37540	37653	
==>nt to the result;
the new Relation is the result of combining all of the source Relations,
such that all common at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42089	42202	
==>nt to the result;
the new Relation is the result of combining all of the source Relations,
such that all common at <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6225	6365	
==>d if $tokenCat == PGE_OPTABLE_CLOSE;
    goto oper_shift;
  }

  shift_reduce_1:
  my $top = $tokenStack[-1];
  $topcat = $$top{syncat};
  go <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3686	3796	
==>!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3686	3796	
==>!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2407	2509	
==>e;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2407	2509	
==>e;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9474	9576	
==>span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9474	9576	
==>span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3091	3252	
==>ame ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3308	3469	
==>ame ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	63	186	
==>uspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WARN__} = sub { $w };
}

### This is the ON <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	134	234	
==>uspend handler for "redefined" warnings
BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { $w } } <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	141	261	
==>m API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	141	261	
==>m API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20967	21061	
==>mc_support;

Any of your distrbution's modules that use Module::Compile based modules
will auto <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20967	21061	
==>mc_support;

Any of your distrbution's modules that use Module::Compile based modules
will auto <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3933	4017	
==>://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3933	4017	
==>://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token <==
2	/Users/nnunley/pugs/util/package-osx.pl	11788	11887	
==>dest) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/.pass");
}

&change_files($dest, %chan <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20765	20863	
==>s builtin is unsafe {
    #Pugs::Internals::use($module);
    Pugs::Internals::require_use_helper(B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	92	192	
==>.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	92	192	
==>.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	745	856	
==>SS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	745	856	
==>SS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17054	17149	
==>t_length

A decimal number indicating the size in bytes of the message content.

=item $h.conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17054	17149	
==>t_length

A decimal number indicating the size in bytes of the message content.

=item $h.conten <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4707	4817	
==>desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4765	4875	
==>desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$to <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13393	13513	
==>TML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
has <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13393	13513	
==>TML entities in $string.  The %entity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
has <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3978	4122	
==>s
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3978	4122	
==>s
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:pe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	723	839	
==>al $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	723	839	
==>al $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3450	3566	
==>nd write .ini style configuration files
with as little code as possible, reducing load time and memory overhead.

Wri <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3450	3566	
==>nd write .ini style configuration files
with as little code as possible, reducing load time and memory overhead.

Wri <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10124	10218	
==>using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnings <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10124	10218	
==>using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnings <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14748	14850	
==>e ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values will b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14748	14850	
==>e ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values will b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10284	10441	
==>>package ne $inst_pkg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2166	2279	
==>e Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2255	2368	
==>e Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Gram <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22207	22309	
==>e, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26759	26861	
==>e, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

T <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2119	2211	
==>ruct> }
rule quantified_construct  {  <construct_but_not_alias> <quantifier>  }

rule simple_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1380	1484	
==>ntil we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1380	1484	
==>ntil we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22777	22893	
==>$S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19198	19314	
==>$S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7126	7251	
==>obals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $C <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7126	7251	
==>obals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $C <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	707	878	
==>$buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	707	878	
==>$buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12743	12856	
==>f)=@_;
    my $pos = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6490	6584	
==>sub_application_term => $() ,} }
RULE
*{'sub_application'} = Pugs::Compiler::Rule->compile(<<'R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4983	5090	
==>nt;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4983	5090	
==>nt;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21150	21256	
==>eturn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17571	17677	
==>eturn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2680	2830	
==>&&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2680	2830	
==>&&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	922	1046	
==>an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	922	1046	
==>an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5899	6067	
==>}
        elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NUM' => $ast ]
        }
        $t=[' <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	39	122	
==>- /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Scripts.pm"
package Module::In <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7607	7710	
==>)$/$1$2/;
   return $a;
}
sub node::variable {
    return $_[0];
}
*node::varscalar = *node::varhash = * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10622	10750	
==>$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10622	10750	
==>$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22191	22283	
==>ple provides a minimal in-RAM
storage implementation for the L<Relation> library.

I<TODO: RE <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1405	1627	
==>SE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You di <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1405	1627	
==>SE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You di <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2826	2965	
==>thod flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instanti <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2826	2965	
==>thod flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instanti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	424	525	
==>t
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# represent t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	424	525	
==>t
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# represent t <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1063	1216	
==>_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unl <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1063	1216	
==>_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13832	13952	
==>nstead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTH <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13832	13952	
==>nstead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTH <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2389	2534	
==>if $tree[0] eq '"PIL_Environment"' {
        my %pad = $tree[1];  # keys: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48195	48364	
==>abel'),
                      $e->get('$value')
                  );
            }
        )
    )
);

## ---------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	593	739	
==>all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XX <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32159	32280	
==>en that is displayed; if not, it then checks
each set's member for language B and displays that; and so on.

I<For the pre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32159	32280	
==>en that is displayed; if not, it then checks
each set's member for language B and displays that; and so on.

I<For the pre <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4825	4931	
==>sect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4825	4931	
==>sect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13490	13657	
==>or_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13490	13657	
==>or_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24685	24852	
==>'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24964	25131	
==>'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1578	1702	
==>y everything except status and headers
  # This should all be done better so the response doesn't live in
  # memory all at o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1578	1702	
==>y everything except status and headers
  # This should all be done better so the response doesn't live in
  # memory all at o <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4170	4314	
==>elf = shift;
    my $base = $self->is_extension_build
    ? '../..'
    : $self->{_top}{base};

    # Escape ' and \ in $base pathname 
    $base <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3489	3617	
==>|= 'unknown';
    $values{distribution_type} ||= 'module';
    $values{name}              ||= do {
        my $name = $values{mod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1752	1872	
==>ature => [] } }
    |   signature_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1191	1293	
==>t rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1191	1293	
==>t rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <AR <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	976	1138	
==>P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpol <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	976	1138	
==>P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpol <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15041	15128	
==>ap(plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6870	6964	
==>nix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6870	6964	
==>nix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
b <==
2	/Users/nnunley/pugs/util/config_h.pl	159	277	
==>e configuration.

  util/config_h.pl GHC BASEDIR

  GHC     - Location and flags of the ghc executable
              (d <==
2	/Users/nnunley/pugs/util/package-osx.pl	2290	2379	
==>PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Prelude/JS <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4046	4141	
==>= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4046	4141	
==>= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1863	1974	
==>alternative

=cut
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = shift;
    msg("Package a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3064	3211	
==>\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2946	3085	
==>\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4319	4445	
==>~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4319	4445	
==>~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21615	21712	
==>X),_,fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
clas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	534	675	
==>umber },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?| <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	534	675	
==>umber },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?| <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29393	29488	
==>(C<< $parser->{next} >>).

The handle '|' is post-consumptive.  It happens to be executed when
' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23653	23788	
==>y ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20074	20209	
==>y ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1" <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	62	168	
==>ck $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getst <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	62	168	
==>ck $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getst <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14123	14222	
==>my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17600	17699	
==>my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32637	32736	
==>, and the order of its arguments is not significant to the result;
the new Relation contains all the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37187	37286	
==>, and the order of its arguments is not significant to the result;
the new Relation contains all the <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13251	13348	
==>set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13251	13348	
==>set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8869	8986	
==>.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Target') = $targ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8869	8986	
==>.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Target') = $targ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3327	3432	
==>ude} };
    $Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2783	2890	
==>sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2771	2878	
==>sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	745	846	
==>{ say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	745	846	
==>{ say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3614	3744	
==>h->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3754	3884	
==>h->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1150	1249	
==>n't be printed.  It is designed for so-called 
"print-based debugging", but can be put to other uses <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1150	1249	
==>n't be printed.  It is designed for so-called 
"print-based debugging", but can be put to other uses <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3306	3414	
==>{
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3306	3414	
==>{
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12382	12569	
==>rule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12376	12563	
==>rule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12902	13030	
==>$1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6377	6505	
==>$1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4893	5038	
==>x:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4893	5038	
==>x:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	652	759	
==>]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	652	759	
==>]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27882	27977	
==>item C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) ass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27882	27977	
==>item C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8697	8810	
==>::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8685	8798	
==>::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18500	18594	
==>h
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18500	18594	
==>h
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6871	6969	
==>s to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is rea <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6871	6969	
==>s to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is rea <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	859	1049	
==>r, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                els <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	859	1049	
==>r, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                els <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3145	3284	
==>n 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3145	3284	
==>n 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3474	3596	
==>iverse;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3474	3596	
==>iverse;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $sel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	700	805	
==>do_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	758	863	
==>do_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
} <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2583	2719	
==>t "}\\texttt{";
		next;
	    }
	    
	    # normal comment
	    print '\syncomment{';
	    while (scalar @file) {
		if ($chr eq "#" and $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22236	22368	
==>ram => ide("x"),
		),
		param => ide("nil"),
	),
);

my $length_and_first_p = let(
	ide => "listify",
	is => $one_elem_list,
	in => l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	210	327	
==>ps => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $self->{seen} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40052	40318	
==>' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19601	19858	
==>' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2639	2748	
==>ntainer::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2639	2748	
==>ntainer::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	943	1124	
==>$.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symli <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	943	1124	
==>$.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symli <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4851	5030	
==>re_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = & <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4851	5030	
==>re_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = & <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6917	7029	
==>re the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6917	7029	
==>re the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17723	17887	
==>efore_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14144	14308	
==>efore_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(? <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6382	6522	
==>my $target = $_; $target =~ s/^$base//;
                      $_ => File::Spec->catfile( $to, $target ) 
                } File::Find::Rule-> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19403	19511	
==>rinting only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml(@_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5508	5621	
==>me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursiv <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5508	5621	
==>me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursiv <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2699	2796	
==>.. though a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_sourc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2699	2796	
==>.. though a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	359	487	
==>atch;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	359	487	
==>atch;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	641	766	
==>b{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	738	863	
==>b{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdef <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17813	17913	
==>> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AN <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17813	17913	
==>> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AN <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7238	7374	
==>something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7702	7838	
==>something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	569	727	
==>oon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	569	727	
==>oon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2748	2901	
==>re => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2643	2788	
==>re => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13009	13107	
==>2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13009	13107	
==>2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12833	12955	
==>$_" or return for map { "$initrd_mnt/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, un <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8061	8159	
==>perations on 
Span objects, that return lists of spans.

In this example, @span may contain zero, o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8061	8159	
==>perations on 
Span objects, that return lists of spans.

In this example, @span may contain zero, o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2426	2528	
==>b split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($ho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2426	2528	
==>b split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($ho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8252	8346	
==>%channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8252	8346	
==>%channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18575	18673	
==>t> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18575	18673	
==>t> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "obje <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1076	1173	
==>mits_till_day[42] = 1500 (1500 commits from day 1 to day 42)
my @commits_till_day = dayify(@commit <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2154	2256	
==>ng::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { _ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1962	2063	
==>pected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2020	2121	
==>pected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1676	1819	
==>:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1676	1819	
==>:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6124	6221	
==>urrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6124	6221	
==>urrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrig <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15314	15431	
==>s => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15314	15431	
==>s => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1838	1955	
==>',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1838	1955	
==>',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28397	28499	
==>rguments to object() to create the ending node for this object.
This is used by the walk() method.  Typ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4651	4800	
==>%hash ) or error( Params::Check->last_error ), return;

    for my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	705	816	
==>n.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	705	816	
==>n.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30981	31075	
==>n which case
this method returns the identity-one Relation or the invocant relation,
respective <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35531	35625	
==>n which case
this method returns the identity-one Relation or the invocant relation,
respective <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	458	618	
==>?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $na <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	458	618	
==>?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $na <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3377	3506	
==>open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3377	3506	
==>open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && ! <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	697	817	
==>cations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = 0 } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	697	817	
==>cations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = 0 } <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4029	4158	
==>fig file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4029	4158	
==>fig file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1739	1974	
==>{
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2851	2961	
==>lf);
        goto &{"$self->{name}::import"};
    }

    *{"${who}::AUTOLOAD"} = $self->autoload;
    $self->pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3077	3194	
==>me, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3077	3194	
==>me, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1264	1404	
==>=> [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1469	1609	
==>=> [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1816	1939	
==>name, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1816	1939	
==>name, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18364	18496	
==>tained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18364	18496	
==>tained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1669	1786	
==>:Harness::Straps->new;

Initialize a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $cla <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7076	7184	
==>Value, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3908	4006	
==>al bug is in Handlers.pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6658	6757	
==>n a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6658	6757	
==>n a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17871	17985	
==>0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	42	140	
==>ere are a couple of things going on here.

* These are perl6 implementations of /builtins/
* They s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5079	5286	
==>pture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5091	5298	
==>pture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	175	277	
==>ormal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	175	277	
==>ormal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Arra <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13213	13309	
==>rrence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13213	13309	
==>rrence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	717	839	
==>object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3130	3287	
==>gs], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3130	3287	
==>gs], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2749	2960	
==>e::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { op => "ANGLE", angle_q <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8867	8984	
==>L};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPathName($^X) if $self->{_i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	459	595	
==>s<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	459	595	
==>s<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1354	1455	
==>$_) })));
}

method member($self: $item) returns Object {
    return %!members{$self._stringify($item) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1354	1455	
==>$_) })));
}

method member($self: $item) returns Object {
    return %!members{$self._stringify($item) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7871	7972	
==>ethod traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.trave <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7871	7972	
==>ethod traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.trave <==
2	/Users/nnunley/pugs/util/func_refact.pl	1064	1180	
==>> 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set size is " . scalar(keys %c <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	474	587	
==>rgs, $class);
}

#line 49

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_top->autoload};
}

#line 60

su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2069	2168	
==>official AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hos <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2069	2168	
==>official AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hos <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4580	4882	
==>atim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("& <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4580	4882	
==>atim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4193	4325	
==>->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2210	2301	
==>o_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( '" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5848	5953	
==>}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5848	5953	
==>}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15487	15593	
==>a front-end method for the parser.

=item Regexp::QuantAttr

Removes quantifiers as objects, and makes 'min <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9194	9289	
==>_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#------------------------- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2392	2484	
==>thod <[[Delete]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7471	7587	
==>an0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7471	7587	
==>an0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6643	6752	
==>) { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Va <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6643	6752	
==>) { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Va <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	726	847	
==>ables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to includ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	726	847	
==>ables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to includ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4602	4748	
==>when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4602	4748	
==>when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	16	124	
==>ver::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) { <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	16	124	
==>ver::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4272	4366	
==>s, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6174	6268	
==>s, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22856	22988	
==>(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19277	19409	
==>(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1676	1803	
==>rMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1676	1803	
==>rMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $. <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	25	146	
==>se v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9] <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	25	146	
==>se v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21536	21638	
==>elation tuple must be distinct from the other tuples.  All Relation
attributes may be individually addr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26088	26190	
==>elation tuple must be distinct from the other tuples.  All Relation
attributes may be individually addr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11867	12013	
==>xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11867	12013	
==>xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	300	455	
==>re, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || confess "env must be a closure::env";
    # params is a hash whose keys are the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3847	3973	
==>] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we don't give back the private accessors
sub ls_a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2615	2736	
==>};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id}{'ops'}}]; local $Z <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1838	1967	
==>Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1838	1967	
==>Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4102	4197	
==>s Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4102	4197	
==>s Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2149	2263	
==>ements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2149	2263	
==>ements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	30	142	
==>rt of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	30	142	
==>rt of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8324	8438	
==>eop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8035	8144	
==>eop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    rul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31255	31351	
==>or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multipl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31255	31351	
==>or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multipl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1266	1387	
==>st Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1266	1387	
==>st Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7945	8052	
==>translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7957	8064	
==>translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	634	733	
==>('closure::params') || $signature->isa('closure::signature')))
        || confess "signature must be <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19370	19472	
==>s, we save lots of bandwidth by printing only once
# per second.
sub _print_ml_less {
    if ( $Last_ML <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29925	30032	
==>fed hash
and an accessor method to read values from it by key.  Each template hash
key corresponds to the Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29925	30032	
==>fed hash
and an accessor method to read values from it by key.  Each template hash
key corresponds to the Me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6469	6562	
==>ls';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11527	11620	
==>ls';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18445	18547	
==>s prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it official <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18445	18547	
==>s prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it official <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23786	23900	
==>5::X1::Api::Exception::LoopControl with { $__flag = $_[0]{"-text"} };
       if($__flag) {
          last if $__fla <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6934	7067	
==>::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6934	7067	
==>::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18632	18804	
==>} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18911	19083	
==>} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26394	26492	
==>variable values which are references will be passed by reference, so you
may store references to ot <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26394	26492	
==>variable values which are references will be passed by reference, so you
may store references to ot <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3726	3879	
==>$i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3726	3879	
==>$i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method inters <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	218	339	
==>def, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	218	339	
==>def, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.st <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6260	6485	
==>o {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        retur <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6260	6485	
==>o {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	922	1041	
==>e Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	922	1041	
==>e Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	124	247	
==>t yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	124	247	
==>t yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13207	13327	
==>0,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13207	13327	
==>0,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	449	558	
==>ge of Perl 6. These five examples
# can be improved in many ways, and have been in the Perl Monks
# thread men <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7433	7569	
==>$self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type => 'anyof_close',
      raw => ']', <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8290	8393	
==>ingify }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $set = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8290	8393	
==>ingify }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $set = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2054	2257	
==>hen 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.sh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2054	2257	
==>hen 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.sh <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3811	3942	
==>'){
        $src = shift(@ARGV) or die "Enter a one-liner";
    }
    elsif($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11419	11521	
==>rence )`

Returns only the elements in this recurrence that are also in the given recurrence.

- `diffe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11419	11521	
==>rence )`

Returns only the elements in this recurrence that are also in the given recurrence.

- `diffe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8719	8835	
==>ext_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8719	8835	
==>ext_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_ca <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6437	6583	
==>$match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # X <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6437	6583	
==>$match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # X <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32979	33081	
==>ed Relation contains only tuples that are in
exactly one of the source Relations.  This method has alia <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37529	37631	
==>ed Relation contains only tuples that are in
exactly one of the source Relations.  This method has alia <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	829	942	
==>>= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	829	942	
==>>= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2754	2897	
==>atch->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2754	2897	
==>atch->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5480	5600	
==>ation.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implement database acces <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5480	5600	
==>ation.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will implement database acces <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	206	321	
==>6

  #! /usr/bin/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_travers <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1722	1826	
==>mclass);
    $optable->addToken("term:<-[", "term:", "nows", &parse_enumclass);
    $optable->addToken("t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3687	3813	
==>\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3687	3813	
==>\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18944	19053	
==>ne C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18944	19053	
==>ne C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1713	1811	
==>er_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1713	1811	
==>er_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($work <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1403	1529	
==>override => 1 },
    };

    ### acc is just for accessors, the others get added for our 
    ### param checking too
    my $tm <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1683	1790	
==>MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C< <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1683	1790	
==>MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C< <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2046	2167	
==>req = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # mer <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2926	3047	
==>req = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # mer <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8016	8134	
==>val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @arra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8016	8134	
==>val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @arra <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3567	3688	
==>my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_type($node);
	
	$self->add_definition($node, "const $type $sy <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15612	15706	
==>);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_objects_f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3509	3641	
==>lsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3509	3641	
==>lsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_e <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2224	2389	
==>t.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2224	2389	
==>t.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	403	661	
==>atedly_apply_and_accum'),
                Sym('&infix:<*>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&infix:<*>' => Thunk(
        Seq(
            Param('$x'),
            Param( <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	998	1104	
==>code) is builtin is primitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11881	12021	
==>ame'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12160	12300	
==>ame'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4852	4943	
==>te.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5102	5193	
==>te.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S05. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24455	24571	
==>>add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20876	20992	
==>>add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	615	716	
==>g_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	615	716	
==>g_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3318	3507	
==>all' => sub {
            confess 'Cannot skill_all with a plan' if defined _('$.testplan');
            _('$.output')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1153	1279	
==>@_ )
    	: join( ' ', @_ );
}

sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3828	3930	
==>", optable
=cut

sub matches {
  my ( $regularExpression, $target, $pos, $length) = @_;
  $length = 1 i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2765	2859	
==>bers, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.mem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2765	2859	
==>bers, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.mem <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26200	26300	
==>rs are ignored).  Each variable name can be any
defined and non-empty string, and each variable value <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26200	26300	
==>rs are ignored).  Each variable name can be any
defined and non-empty string, and each variable value <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6092	6226	
==>data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.n <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6092	6226	
==>data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11926	12024	
==>r the header() method, the field name ($field) is not case
sensitive and '_' can be used as a repla <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11926	12024	
==>r the header() method, the field name ($field) is not case
sensitive and '_' can be used as a repla <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1331	1424	
==>perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

Ther <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1331	1424	
==>perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

Ther <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4064	4185	
==>l.
    my $base_path = Cwd::abs_path($FindBin::Bin);
    unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
        dele <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2848	2950	
==>upport Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FU <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2848	2950	
==>upport Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FU <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	581	834	
==>a::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	581	834	
==>a::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of R <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15190	15308	
==>ased on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return value from t <==
2	/Users/nnunley/pugs/util/func_refact.pl	1339	1457	
==>$new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($Conf{debug} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1151	1306	
==>,
        body => $body,
        env  => $local_env
    } => $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23424	23524	
==>NCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23424	23524	
==>NCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rose <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	900	1061	
==>nless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	779	940	
==>nless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13015	13115	
==>ead2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13015	13115	
==>ead2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11058	11160	
==>depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11116	11218	
==>depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2864	2976	
==>e!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.pri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2864	2976	
==>e!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.pri <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1393	1560	
==>{
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1393	1560	
==>{
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9613	9736	
==>t_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.members },
    chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9613	9736	
==>t_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.members },
    chann <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41025	41118	
==>n Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41025	41118	
==>n Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8651	8835	
==>ion( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12128	12312	
==>ion( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	278	398	
==>k>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	278	398	
==>k>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6974	7114	
==>tch) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6974	7114	
==>tch) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12134	12275	
==>ncode_entities($whole) . "</a>";
      push @{$link_info->{$linkfile}}, $link;
      $links++;
    }
    
    if ($rest) {
       $rest = enco <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5868	5961	
==>1]) }
sub hlp_rule {      def_rule($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_oper { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25710	25806	
==>valued subroutine returning a
normal scalar doesn't work quite right with a regex that's supposed <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8576	8666	
==>ok { $Object->singleton_test_on_Foo() } '... Object cannot call singleton method defined in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4165	4342	
==>)
                                                        and error($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($?), return;
        
        1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7991	8098	
==>Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This method should be as tho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7991	8098	
==>Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This method should be as tho <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17992	18097	
==>espace [ "PGE::Exp::Literal" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":i"]
    self[" <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	921	1040	
==>rgs, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	921	1040	
==>rgs, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8956	9067	
==>cant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12433	12544	
==>cant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!headi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11599	11707	
==>ood way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@ii <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11599	11707	
==>ood way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@ii <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20358	20477	
==>) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         [X|Fx],[X|Fx], <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23914	24033	
==>classes) (?@superclasses)))
          ($self: set_attr ((symbol new @:MRO) (list new)))          
          ($self: send <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13116	13222	
==>o everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curserve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13116	13222	
==>o everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curserve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	905	1056	
==>->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	905	1056	
==>->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package M <==
2	/Users/nnunley/pugs/util/munge_haddock.pl	2	147	
==>/usr/bin/perl -i.pre
use warnings;
use strict;

# Line numbers are not maintained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1947	2121	
==>!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1947	2121	
==>!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8196	8327	
==>= 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8389	8520	
==>= 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2818	2934	
==>sed by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2818	2934	
==>sed by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3969	4068	
==>makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_base/mg;
    close MAKEFILE;
    open MAKEFILE, '> Make <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27533	27630	
==>::Example has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation::Example ha <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26330	26434	
==>| <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyClassRanges> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4687	4816	
==>ial_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4687	4816	
==>ial_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2899	3027	
==>msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2899	3027	
==>msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, ' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13682	13781	
==>able range of values.

You should consider using a Set::Infinite object if you want to exclude
large <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13682	13781	
==>able range of values.

You should consider using a Set::Infinite object if you want to exclude
large <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9381	9512	
==>nd;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and die (spr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11217	11327	
==>ts' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefix: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2150	2259	
==>ns += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_c <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2150	2259	
==>ns += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15606	15706	
==>h.expires

This header gives the date and time after which the entity should be
considered stale.

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15606	15706	
==>h.expires

This header gives the date and time after which the entity should be
considered stale.

=i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15859	15962	
==>pressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpressionNoIn> <'<'> <ShiftE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1867	2089	
==>lags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state->[0]++;

                $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1806	2020	
==>lags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7450	7574	
==>Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7450	7574	
==>Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3557	3877	
==>%val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3557	3877	
==>%val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1509	1681	
==>cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in pars <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1509	1681	
==>cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in pars <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11441	11581	
==>on {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11435	11575	
==>on {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9163	9263	
==>8.4
      <!before <LineTerminator>> <-[\"\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSeque <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4494	4579	
==>x,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,M <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1939	2070	
==>r($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("u <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1939	2070	
==>r($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1040	1178	
==>[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1040	1178	
==>[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2257	2362	
==>used)
my $output_dir;  # The root directory of the output tree.
my $start_dir = cwd;

# ref to hash of inf <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1477	1578	
==>Filter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@aud <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1477	1578	
==>Filter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@aud <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6070	6198	
==>->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die "unimplemented";
    }
    if($cls eq 'IO') {
	die <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9332	9679	
==>> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9332	9679	
==>> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yi <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1376	1499	
==>([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) retu <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1376	1499	
==>([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) retu <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2137	2230	
==>lead to execution of arbitrary code;
each alternate engine may introduce additional security o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4752	4842	
==>self->display_type($expected) . " with " . Data::Dumper::Dumper($node);
			$self->unify_typ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5144	5240	
==>ollowing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5144	5240	
==>ollowing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get <==
2	/Users/nnunley/pugs/util/func_refact.pl	2551	2654	
==>e($ccset), $cand)];  # new contributions
        #print "$cand: totall $cands{$cand}[0] $cands{$cand}[1] <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3359	3507	
==>| $ARGV[0] eq '-h'){ 
    print( <<'HELP') and exit;

<< USAGE >>

 % p526.pl        # Convert from p5 code to p6 code

    -c            # Show conv <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25096	25208	
==>DIAGNOSTICS

=over 4

=item C<All tests successful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some s <==
2	/Users/nnunley/pugs/util/run-smoke.pl	481	580	
==>Kit.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/file.html
#
my $pugs_sandbox    = $ARGV[0] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16960	17061	
==>mous routines) and write the rest of the
application in their other language(s) of choice.  Assuming t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16960	17061	
==>mous routines) and write the rest of the
application in their other language(s) of choice.  Assuming t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1754	1852	
==>s processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1754	1852	
==>s processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2008	2138	
==>match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2008	2138	
==>match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7750	7892	
==>has_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	735	844	
==>omparitor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native cmp $right->to_str-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11156	11253	
==>ia is
applied, in order, until a non-zero (tie) result is achieved.

Criterion can take a few diff <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	181	309	
==>UBDIR_OF_ROOT     => sub { shift()->root->subdir(    shift() )  };
use constant SUBDIR_OF_META     => sub { shift()->_meta_dir->s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	552	675	
==>e $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	552	675	
==>e $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3661	3792	
==>er; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "requir <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3719	3850	
==>er; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "requir <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1070	1187	
==>s::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16677	16791	
==>mple {

    # First do some optimizing of the order that source relations are
    # combined, so to try and make th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41032	41130	
==>n (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41032	41130	
==>n (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2945	3052	
==>$S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	976	1083	
==>$S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10100	10243	
==>t yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $st <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10100	10243	
==>t yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $st <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2244	2362	
==>ing($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junct <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2244	2362	
==>ing($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junct <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3325	3438	
==>the two together, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3325	3438	
==>the two together, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $ba <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	181	286	
==>$class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	181	286	
==>$class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! defined( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1570	1663	
==>+ 1;
}

## ----------------------------------------------------------------------------
## inf <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1570	1663	
==>+ 1;
}

## ----------------------------------------------------------------------------
## inf <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	40	239	
==>thod new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	40	239	
==>thod new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26641	26795	
==>), $self->{off}, ")";
  }
}


{
  package Regexp::Parser::minmod;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data) = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2679	2838	
==>gex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2872	3031	
==>gex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8658	8788	
==>verse = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8658	8788	
==>verse = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_univer <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1567	1674	
==>rs, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1567	1674	
==>rs, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22746	22848	
==>ss

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22746	22848	
==>ss

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5028	5168	
==>dir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Ch <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5028	5168	
==>dir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11043	11206	
==>'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11043	11206	
==>'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	973	1093	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2573	2693	
==>' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bou <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9414	9602	
==>e;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12891	13079	
==>e;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The headi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	649	752	
==>_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	649	752	
==>_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14499	14600	
==>rk in progress. As Pugs grows, so will it's
testing needs. This module will be the code support for th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14557	14658	
==>rk in progress. As Pugs grows, so will it's
testing needs. This module will be the code support for th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7935	8031	
==>ent ('item')>

This event is fired when an '=item' directive is reached, the next event fired wil <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7935	8031	
==>ent ('item')>

This event is fired when an '=item' directive is reached, the next event fired wil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	363	477	
==>"-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1900	2004	
==>captures {
  my ($self, $n) = @_;
  $self->parse if $self->{stack};
  return $self->{captures}[--$n] if $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	895	997	
==>aracter encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	895	997	
==>aracter encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14904	15004	
==>efault.  But you can always
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14904	15004	
==>efault.  But you can always
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12678	12818	
==>gs) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12678	12818	
==>gs) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1409	1525	
==>affic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1409	1525	
==>affic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14954	15061	
==>ay )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14954	15061	
==>ay )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	414	517	
==>ders
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transf <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	414	517	
==>ders
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1829	1933	
==>Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1829	1933	
==>Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3375	3531	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3568	3724	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        mat <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10792	10902	
==>s are automatically deleted, so you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Timezone i <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12503	12587	
==>="num tests_skipped"><span title="<tmpl_var name=skipped> skipped"><tmpl_var name=ski <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3955	4072	
==>SO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3955	4072	
==>SO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8276	8383	
==>$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8264	8371	
==>$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15440	15532	
==>porates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15440	15532	
==>porates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1203	1307	
==>c $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1203	1307	
==>c $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entit <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	19	114	
==>nings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # consolida <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10399	10499	
==>shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10399	10499	
==>shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19621	19718	
==>)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19621	19718	
==>)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE A <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3519	3680	
==>y lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)] <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3519	3680	
==>y lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4967	5156	
==>block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6729	6918	
==>block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4556	4690	
==>( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4556	4690	
==>( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1796	1903	
==>'<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1796	1903	
==>'<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2510	2672	
==>eop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2521	2683	
==>eop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '* <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8140	8249	
==>{
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8198	8307	
==>{
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1032	1145	
==><op> <tight> ]+',
    ternary =>         '<tight> <op> <parse> <op2> <equal>',
);

sub new {
    my ($class, $opt) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1107	1275	
==>> '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    __PACKAGE__->add_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	956	1098	
==>> '*',
    );
    __PACKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	698	801	
==>e methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	698	801	
==>e methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7308	7406	
==>This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7308	7406	
==>This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This eve <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6014	6107	
==>ned channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6014	6107	
==>ned channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$eve <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2869	3035	
==>);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &conti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2869	3035	
==>);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &conti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9361	9502	
==>ternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9554	9695	
==>ternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16425	16527	
==>ct, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16425	16527	
==>ct, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20205	20320	
==>pe => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16626	16741	
==>pe => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4154	4275	
==>s defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4154	4275	
==>s defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2142	2245	
==>y, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystrea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2142	2245	
==>y, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystrea <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4805	4905	
==>e use a fully qualified function name.

=back

The following are the (pseudo) methods for Config::Tin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4805	4905	
==>e use a fully qualified function name.

=back

The following are the (pseudo) methods for Config::Tin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	758	860	
==>ce
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	758	860	
==>ce
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define mul <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3352	3469	
==>$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this on <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3352	3469	
==>$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this on <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7089	7200	
==>xpected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7147	7258	
==>xpected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5471	5582	
==>ious ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5471	5582	
==>ious ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2548	2660	
==>tr = "$program"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate source fil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3833	3942	
==>heck->last_error), return;

    if (-e $self->pool->file(file($pkg->file)->basename) && !$force) {
        err <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6913	7037	
==>nnels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6913	7037	
==>nnels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from cha <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3041	3142	
==>($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3041	3142	
==>($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10249	10369	
==>from  - string pointer for start of this match
    to    - string pointer for next match (end+1)
    match - positional <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2614	2751	
==>okie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2614	2751	
==>okie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34790	34887	
==>ypes: anyof_close (C<]> when in C<[...>)

Omitted

=head2 prop

Family: prop

Types: name of prope <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11059	11217	
==>.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $des <==
2	/Users/nnunley/pugs/util/combine_tests.pl	872	1001	
==>n;
        for my $file (@{ $data->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	891	1026	
==>mper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	823	942	
==>new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self->{e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17343	17443	
==>hich Perl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9597	9738	
==>ed++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9597	9738	
==>ed++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34163	34264	
==>non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<new( :@set_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34163	34264	
==>non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<new( :@set_n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2159	2272	
==>ic_reduce {
	my $self = shift;
	my $node = shift;

	warn "generic reduction over " . $node->struct_equiv;

	my $re <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	452	547	
==>bi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRI <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	452	547	
==>bi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37493	37592	
==>and the order of its arguments is not significant to the result;
the new Relation is the result of c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42042	42141	
==>and the order of its arguments is not significant to the result;
the new Relation is the result of c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2534	2703	
==>e

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    u <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2534	2703	
==>e

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    u <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1093	1202	
==>();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $answe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1093	1202	
==>();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $answe <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5760	5906	
==>fe   (List)\
\\n   Scalar    pre     min     safe   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   ( <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1430	1536	
==>tion of one variable

It looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - tol <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	536	643	
==>ts to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	536	643	
==>ts to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	639	780	
==>__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || ' <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	639	780	
==>__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	922	1028	
==>|| "";
    my $pilfn = "deleteme_$$";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7418	7576	
==>node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 't <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7418	7576	
==>node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 't <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1874	2031	
==>" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1862	2019	
==>" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bles <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3551	3974	
==>one Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database po <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3551	3974	
==>one Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6062	6170	
==>re set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-proc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5869	5973	
==>re set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-proc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13349	13451	
==>ument.new(), by which you can create an identical Document (with member
Nodes) to the one you first inv <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13349	13451	
==>ument.new(), by which you can create an identical Document (with member
Nodes) to the one you first inv <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11466	11632	
==>turn if $match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15202	15327	
==>$o)=@_;
    $o->mk_ignore_this_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hack <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2613	2713	
==>le to use the regexp
struct as a new api into the guts of the perl core.  There being no
documentatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16219	16340	
==>!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16219	16340	
==>!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2604	2710	
==>ule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2788	2894	
==>ule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- consta <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	597	712	
==>nline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	597	712	
==>nline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	265	397	
==>x
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to proces <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	265	397	
==>x
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to proces <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	189	316	
==>($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Container::Array' => {
    does => [ 'IArray' ],
    insta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2608	2755	
==>returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2608	2755	
==>returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	447	544	
==>1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Per <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	447	544	
==>1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Per <==
2	/Users/nnunley/pugs/util/importgraph.pl	2572	2695	
==>er ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  while(my ($k, $edge) = e <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3811	3913	
==>shell.
  --inputrc=$inputrc
    The readline library likes to have a /etc/inputrc.
  --terminfo=$termin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1601	1710	
==>ugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@A <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2147	2244	
==>ion for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interfac <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2147	2244	
==>ion for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interfac <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	827	926	
==>l::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	827	926	
==>l::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13734	13836	
==>ler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => asc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7941	8043	
==>ler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => asc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15167	15271	
==>atures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15225	15329	
==>atures will likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	118	223	
==>::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::Te <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	118	223	
==>::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::Te <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3813	3907	
==>ou need something
with more power, move up to Config::Simple, Config::General or one of the
man <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3813	3907	
==>ou need something
with more power, move up to Config::Simple, Config::General or one of the
man <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14981	15079	
==>essed through the
following convenience methods.  These methods can both be used to read
and to set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14981	15079	
==>essed through the
following convenience methods.  These methods can both be used to read
and to set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6891	6993	
==>node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6891	6993	
==>node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4586	4710	
==>s{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2327	2450	
==>s{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3344	3445	
==>s_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -L <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3344	3445	
==>s_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -L <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5100	5295	
==>ch.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5100	5295	
==>ch.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2100	2256	
==>tores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() fir <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2100	2256	
==>tores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() fir <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	99	200	
==>ammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	99	200	
==>ammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Dat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8356	8491	
==>] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (no <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8356	8491	
==>] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12941	13063	
==>t
possible to tell which of the returned values belonged to which field.

=item $h.remove_content_headers

This will remove <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12941	13063	
==>t
possible to tell which of the returned values belonged to which field.

=item $h.remove_content_headers

This will remove <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5145	5297	
==>rns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6907	7059	
==>rns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	47	147	
==>ompiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	47	147	
==>ompiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5320	5417	
==>lf->simplify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23396	23523	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19817	19944	
==>$n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5482	5592	
==>t<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5482	5592	
==>t<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3150	3266	
==>ne }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | metho <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3150	3266	
==>ne }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6025	6165	
==>ar'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6218	6358	
==>ar'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6666	6773	
==>ng C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6666	6773	
==>ng C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5861	6013	
==>sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10688	10778	
==>ss method called by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object::singleton_tes <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15106	15240	
==>f = shift;

    $self->{cache} = {};
    $self->{runtime} = shift;
    my $env = $self->{env} = shift;
    $self->{digests} = { map { D <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5669	5772	
==>elp             => \&usage,
) or usage();
check_for_evil_chars($initrd_img, $initrd_gz, $initrd_mnt, $li <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2976	3085	
==>s to be uploaded
    automatically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    return unless defined $EN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19775	19871	
==>etta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it likes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19775	19871	
==>etta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it likes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24323	24443	
==>n_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20744	20864	
==>n_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifth <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2227	2339	
==>d
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTH <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2227	2339	
==>d
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33464	33565	
==>uld
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33464	33565	
==>uld
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!memb <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23345	23474	
==>ead1 Todo

 #define REG_SEEN_ZERO_LEN        1
 #define REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define RE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6450	6571	
==>nc(... func.(...
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { return $/{'Pugs::Grammar::Term.su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12400	12520	
==>ick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12400	12520	
==>ick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25870	25967	
==>not match invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or du <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30422	30519	
==>not match invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or du <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1438	1539	
==>) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1438	1539	
==>) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$ma <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1205	1321	
==>ring is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) retu <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1205	1321	
==>ring is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3503	3660	
==>.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3366	3514	
==>.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4011	4115	
==>year => $year, month => $month, day => $day )`

Returns a date object for the given values.  The month an <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4011	4115	
==>year => $year, month => $month, day => $day )`

Returns a date object for the given values.  The month an <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	19	109	
==>Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	19	109	
==>Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	693	822	
==>turn unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	686	815	
==>turn unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12382	12586	
==>sh ) or error( Params::Check->last_error ), return;

    ### remove this package from the available list
    ### XXX temp file, then mv
    my @prev  = @{ $self->available };
    my @avail = grep { $_->pac <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7615	7715	
==>exists $index->{_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfile($outp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1413	1533	
==>n

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.cele <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1413	1533	
==>n

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.cele <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12924	13020	
==>ent less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12924	13020	
==>ent less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21406	21513	
==>p
    pad["reps"] = reps
    pad["subpats"] = subpats
    pad["isarray"] = padarray
    pad["cutnum"] = cutn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10492	10628	
==>post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10486	10622	
==>post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	329	455	
==>d $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	329	455	
==>d $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7788	7884	
==>n an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7788	7884	
==>n an '=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15163	15275	
==>{ enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $targe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15163	15275	
==>{ enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $targe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3218	3388	
==>l5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3358	3528	
==>l5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        m <==
2	/Users/nnunley/pugs/util/testgraph.pl	1541	1666	
==>ub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19834	19932	
==>ntication Scheme".  In array context it will return two
values; the user name and the password.  In <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19834	19932	
==>ntication Scheme".  In array context it will return two
values; the user name and the password.  In <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	613	716	
==>012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  gets <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	613	716	
==>012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  gets <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17189	17311	
==>defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17189	17311	
==>defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17250	17361	
==>aults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIV <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17250	17361	
==>aults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIV <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2773	3005	
==>e (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2773	3005	
==>e (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1128	1242	
==>se';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1128	1242	
==>se';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4436	4553	
==>0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line endi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4436	4553	
==>0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line endi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	408	632	
==>t' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	408	632	
==>t' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6890	7031	
==>ait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6890	7031	
==>ait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3210	3362	
==>ons in 'expected' order should fix this
            if ( $match =~ /^{/ ) {
                # after whitespace means block-start
                #print " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	465	574	
==>od _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invoca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	465	574	
==>od _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invoca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	215	338	
==>, dereferences, and method calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr()

and maybe

    \(...)
    ^T

=head1 See <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	417	525	
==>) { return map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	417	525	
==>) { return map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2015	2174	
==>1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

sub double_quoted {
    my $gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2450	2592	
==>1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

sub angle_quote <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8785	8906	
==>p::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8978	9099	
==>p::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29026	29134	
==>st> and L<Test::Simple> for writing test scripts, L<Benchmark> for
the underlying timing routines, and L<Deve <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39891	39981	
==>nary relational operator that takes
another Relation::Example as its C<$other> argument and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36340	36435	
==>ed
internally by translate_message() to produce the list of Template module
names that it will s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36340	36435	
==>ed
internally by translate_message() to produce the list of Template module
names that it will s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8848	8950	
==>=> chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignored", substr(${&Rx}, &Rx <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1411	1524	
==>as Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1411	1524	
==>as Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1796	1928	
==>*%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # N <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1796	1928	
==>*%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # N <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8232	8344	
==>method create ( Test::Builder $Class: $plan?, $output? )
  {
      return $Class.new( testplan => $plan, output = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	890	994	
==>bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	890	994	
==>bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	109	217	
==>er API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	109	217	
==>er API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11666	11784	
==>e objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11666	11784	
==>e objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rose <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6822	6988	
==>e $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6822	6988	
==>e $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.cu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3124	3274	
==>hod current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3124	3274	
==>hod current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1115	1291	
==>e(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1115	1291	
==>e(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22283	22377	
==>>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22283	22377	
==>>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25508	25621	
==>type of message that the object
represents (or gives the name of a condition being reported, if it is used
as an e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25508	25621	
==>type of message that the object
represents (or gives the name of a condition being reported, if it is used
as an e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7651	7778	
==>eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     if !defined $ra->[$i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1511	1624	
==>}= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{out}= { attribute => [ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1944	2068	
==>umber

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramle <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1944	2068	
==>umber

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramle <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	4083	4196	
==>end{block}
#EOT
#    close FH;

foreach my $file ( <*/*.pl> ) {
#foreach my $file ( @ARGV ) {
    next if $file eq <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17134	17226	
==>b compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dor <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1839	1969	
==>::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    wh <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1839	1969	
==>::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    wh <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7714	7883	
==>ntent) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7714	7883	
==>ntent) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2625	2732	
==>TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6166	6264	
==>ard to understand.  If you find a problem,
please let L<me|/"AUTHOR"> know.

Documentation has been <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2575	2701	
==>b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2575	2701	
==>b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4597	4718	
==>urn $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible wit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4609	4730	
==>urn $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible wit <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2344	2451	
==>ereq->{$_->[0]} for @{$self->bundles};
    }

    if (my $perl_version = $self->perl_version) {
        eval <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2734	2848	
==>expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2734	2848	
==>expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	42	149	
==>ct;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	42	149	
==>ct;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7060	7165	
==>rs, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal rule operators s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6820	6920	
==>rs, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal rule operators s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28634	28795	
==>p::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28913	29074	
==>p::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1246	1359	
==>eturn $last.end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1246	1359	
==>eturn $last.end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3548	3640	
==>Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional invocant named <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	428	517	
==>Has($?CLASS, "superclasses", "Set", { companion => "subclasses" });
Has($?CLASS, "subclass <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7584	7794	
==>. _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1} ) {
            # %var<item>.++;
            #warn "method: ", Dumper( $n );
            return " " . _emit( $n-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10634	10738	
==>e set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10634	10738	
==>e set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	635	734	
==>pile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	635	734	
==>pile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Con <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15698	15817	
==>>' in scalar")
  end:
    mpos = pos
    .return (mob)
.end
    
.sub "parse_error"
    .param pmc mob
    .param int po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	855	977	
==>ompiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dumper;

    # print "P6 loaded from '$filenam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23501	23593	
==>are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The P <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23501	23593	
==>are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21844	21960	
==>pend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18265	18381	
==>pend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2169	2269	
==>e = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2169	2269	
==>e = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4899	5011	
==>har = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4899	5011	
==>har = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4728	4896	
==>content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.Lis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4728	4896	
==>content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.Lis <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11169	11287	
==>ated"] = 1
  nocapture:
    iscapture = 0
    pos += 2
  subrule_name:
    $I0 = pos
  subrule_name_1:
    pos = find_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	279	392	
==>$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	279	392	
==>$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	897	1023	
==>nt($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Mo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	897	1023	
==>nt($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	98	197	
==>/t/op/regexp.t
our $bang = sprintf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30951	31045	
==>a new POSIX character class, its handler
must start with "POSIX_".

=item $parser->del_handler( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11417	11527	
==>m B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11417	11527	
==>m B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	718	844	
==>ave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # ca <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	718	844	
==>ave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7279	7406	
==>mplate module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7279	7406	
==>mplate module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means mod <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1361	1508	
==>l
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$archive' from sourcedir '$srcdir'\n"
        :   "\n\tFailed to cre <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	66	150	
==>e_perl/5.8.7/Module/Install/WriteAll.pm"
package Module::Install::WriteAll;
use Modul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2401	2596	
==>);
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2401	2596	
==>);
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2496	2747	
==>p';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2743	2994	
==>p';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	1	134	
==>ub return_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	1	134	
==>ub return_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1539	1647	
==>$self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1679	1787	
==>$self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1391	1490	
==>am<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1391	1490	
==>am<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<spa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2360	2453	
==>piler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)<?p6ws>?\=<?p6ws>?$<val <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3016	3120	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3074	3178	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1288	1392	
==>.0 port of the Perl 6 version of 
Test::Builder::TestPlan.

This file contains both the TestBuilder::Test <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14629	14733	
==>a list of future features planned for this module.

- better error handling for cmp_ok

The error handlin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14687	14791	
==>a list of future features planned for this module.

- better error handling for cmp_ok

The error handlin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	611	711	
==>h installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	611	711	
==>h installs a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13091	13197	
==>and the same number of strings are returned.

If called in void context the arguments are decoded in-place. <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13091	13197	
==>and the same number of strings are returned.

If called in void context the arguments are decoded in-place. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11204	11332	
==>$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    join "", @{ $self->{v <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17036	17125	
==>g(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng(_Re),F0,F0,B0,B0,E0,E0). <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4724	4827	
==>igenClass',
    '$:superclass' => $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43540	43634	
==>osetta>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6947	7053	
==>andler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6947	7053	
==>andler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8438	8580	
==>ent_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8438	8580	
==>ent_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14618	14728	
==>b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14618	14728	
==>b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9723	9864	
==>s },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9723	9864	
==>s },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11481	11603	
==>== 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11481	11603	
==>== 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	998	1127	
==>ge object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any % <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	998	1127	
==>ge object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any % <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	300	412	
==>g
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that store <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	300	412	
==>g
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that store <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9335	9453	
==>List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9393	9511	
==>List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4175	4273	
==>e match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4175	4273	
==>e match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28014	28128	
==>, no warnings will be issued.

=head2 The F<__object__> Base Class

All nodes inherit from F<Regexp::Parser::__obje <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	327	439	
==>values) % 2 == 0)
        || confess "not enough elements to construct a hash (must be an even number)";
    my % <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2353	2449	
==>kip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2353	2449	
==>kip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing t <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	482	584	
==>lt = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	482	584	
==>lt = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	81	214	
==>term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	81	214	
==>term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unles <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1190	1314	
==>Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	117	218	
==>ess (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on ma <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	117	218	
==>ess (array-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	319	423	
==>( @rule_terms );

# ----- the following were included only for performance reasons,
# because they are to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	330	434	
==>( @rule_terms );

# ----- the following were included only for performance reasons,
# because they are to <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5870	5976	
==>nix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- ` <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5870	5976	
==>nix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- ` <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3314	3436	
==>-- match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3325	3447	
==>-- match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a cl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17926	18022	
==>NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a sane <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17926	18022	
==>NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a sane <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1145	1302	
==>db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
};

sub show () {
    print templat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9076	9172	
==>$?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9076	9172	
==>$?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module', <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1854	2050	
==>push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1854	2050	
==>push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1717	1839	
==>f,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # cons <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1717	1839	
==>f,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	71	186	
==>$print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	71	186	
==>$print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2180	2305	
==>'t do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: {   
        ### load in the a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5297	5418	
==>oolean'>
    | <'export'>
    | <'interface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'sup <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	297	399	
==>lti sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	297	399	
==>lti sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi su <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14892	14999	
==>n>
    | <MultiplicativeExpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19486	19634	
==>e ) {
        _print_ml(@_);
        $Last_ML_Print = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8114	8253	
==>$delete_ok;
    }
=cut
    
    ### uninstall the files
    ### XXX check dependencies
    {   open my $fh, $self->files_list( $inst_pkg->pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14866	14982	
==>t>

Rosetta::Model::Document - This stores a reference to the Document that
this Node and all of its relative Nodes l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14866	14982	
==>t>

Rosetta::Model::Document - This stores a reference to the Document that
this Node and all of its relative Nodes l <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	374	478	
==>set_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	374	478	
==>set_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns St <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1536	1650	
==>> $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1536	1650	
==>> $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    retur <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18232	18346	
==>ing token
    token = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	41	141	
==>perimental implementation of a p6 compiler
# 

use strict;
use warnings;
no warnings 'redefine';

req <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10407	10515	
==>ant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10565	10673	
==>ant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18779	18913	
==>$true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20137	20271	
==>$true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $con <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5751	5857	
==>::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5751	5857	
==>::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4409	4525	
==>. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rules.

=item * Perl5 => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4225	4326	
==>. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Defaults to 1 in Rules.

= <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3508	3608	
==>ule lookahead   { \< (!?) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2922	3023	
==>t
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $r <==
2	/Users/nnunley/pugs/util/build_pugs.pl	164	264	
==>e qw(dirname);

our %BuildPrefs;
use Config;
use FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7376	7548	
==>tisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7840	8012	
==>tisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2154	2286	
==>ta'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~jo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2154	2286	
==>ta'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~jo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4260	4410	
==>perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5109	5259	
==>perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13870	13984	
==>rep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@puc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13870	13984	
==>rep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@puc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22999	23090	
==>m a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22999	23090	
==>m a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3181	3302	
==>)}{join('.', $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4452	4538	
==>----------------------------------------------------------------

my $Role;

my $_resol <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3394	3519	
==>nless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3394	3519	
==>nless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1169	1265	
==>ote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1169	1265	
==>ote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	913	1019	
==>) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, whi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	913	1019	
==>) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, whi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1932	2031	
==>> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

St <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1932	2031	
==>> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

St <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1183	1308	
==>y $string = shift;
                print $fh $string;
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3834	3939	
==>$CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3834	3939	
==>$CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14776	14889	
==>rk is a powerful but elegant system, which makes
it easy to create and use relational databases in a very reliable <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14776	14889	
==>rk is a powerful but elegant system, which makes
it easy to create and use relational databases in a very reliable <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4856	4988	
==>head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4856	4988	
==>head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23721	23822	
==>their class/object attributes are private, so you must use accessor
methods.  Relation::Example does n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1536	1635	
==>rnings,$has_failed)=@_;
    bless {
	value => $value,
	warnings => $warnings,
	has_failed => $has_fa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5230	5327	
==>med;
our @nodes;
our %nodes_of_type;
sub init {
    my $list = PIL::PIL1CPerl5::NodesList::get_nam <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1292	1386	
==>ocs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1292	1386	
==>ocs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1477	1594	
==>"
        :   "\n\tFailed to created '$builddir/$archive' from '$srcdir'\n"
        ;

    chdir $Cwd or die "Could no <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1660	1763	
==>nter_scope;

    my $reduced = $self->generic_reduce($app);

    my $received = $self->leave_scope;

	di <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1332	1436	
==>s->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1332	1436	
==>s->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10751	10855	
==>de .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self=\$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	983	1108	
==>> <tight> ]+',
    infix_list =>      '<tight> [ <op> <tight> ]+',
    ternary =>         '<tight> <op> <parse> <op2> <equal>' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3046	3138	
==>6::Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6810	6923	
==>span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6810	6923	
==>span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4820	4919	
==>e);
			$self->unify_type($node, $expected);
		});

		return Blondie::TypeSafe::Annotation->new(
			t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7366	7533	
==>endency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{versi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7830	7997	
==>endency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{versi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20101	20208	
==>tta" core
distribution to allow the core to be completely testable on its own.  It is
coded intentionally in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20101	20208	
==>tta" core
distribution to allow the core to be completely testable on its own.  It is
coded intentionally in <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9474	9587	
==>nces, it may not be possible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9474	9587	
==>nces, it may not be possible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1101	1264	
==>, exp1 => \$_[1], exp2 => \$_[3],} }",
    postfix_non =>       
        "exp 'name'         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postfix', op1 => \$_[2 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12176	12313	
==>d_mnt/$_";
        } else {
          copy "$parrot_path/runtime/parrot/include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @p <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2971	3086	
==>ably be the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1235	1366	
==>ime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1235	1366	
==>ime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $mat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	108	226	
==>ns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	108	226	
==>ns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17084	17194	
==>now.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22184	22294	
==>now.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3846	4020	
==>$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable arg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3846	4020	
==>$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable arg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41076	41175	
==>gested a feature, and provided sample usage and patch
code, that supports embedding of Template modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41076	41175	
==>gested a feature, and provided sample usage and patch
code, that supports embedding of Template modu <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1358	1503	
==>lies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1358	1503	
==>lies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4491	4604	
==>m]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubN <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4491	4604	
==>m]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubN <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	49	191	
==>the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $cont <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	49	191	
==>the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $cont <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10173	10291	
==>ned;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10173	10291	
==>ned;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	915	1055	
==>es %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	915	1055	
==>es %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', d <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3884	3987	
==>]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they sho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3884	3987	
==>]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they sho <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1262	1361	
==>e letter frequency to crack the cipher, and even if the message is 
contrived to hide the letter fre <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1262	1361	
==>e letter frequency to crack the cipher, and even if the message is 
contrived to hide the letter fre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1901	2090	
==>e';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2148	2337	
==>e';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17465	17560	
==>yedText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17465	17560	
==>yedText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN pac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	828	940	
==>P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_t <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15828	15937	
==>yn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2225	2330	
==>yn_sym($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compil <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	311	419	
==>pcoming closing node is to be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PRO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	311	419	
==>pcoming closing node is to be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PRO <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	973	1088	
==>ldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

( <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	973	1088	
==>ldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3217	3348	
==>l !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3217	3348	
==>l !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	435	547	
==>mpile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	467	579	
==>mpile( $source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rul <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9475	9592	
==>_) . "\n");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2145	2289	
==>) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    el <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2145	2289	
==>) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    el <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	644	741	
==>1;

__END__

=head1 NAME 

re::override::PCRE - Perl-compatible regular expressions

=head1 SYNOPS <==
2	/Users/nnunley/pugs/misc/S29_round.pl	733	856	
==>5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_s <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1553	1670	
==>5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7869	7990	
==>$1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	440	567	
==>stfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35215	35310	
==>also inherit visual()Z and walk()Z<>.

However, we need to define our own qr() method, because w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7528	7667	
==>des are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7540	7679	
==>des are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9832	9970	
==>();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9832	9970	
==>();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	819	940	
==>method BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	819	940	
==>method BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Hea <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	833	927	
==>code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	833	927	
==>code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8931	9058	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12408	12535	
==>h the heading of the invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13982	14085	
==>yPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13982	14085	
==>yPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5688	5878	
==>> {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_wit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5688	5878	
==>> {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_wit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17192	17291	
==>D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
in whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17192	17291	
==>D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
in whic <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1326	1437	
==>ap` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental modul <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1326	1437	
==>ap` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental modul <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1223	1335	
==>f Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlc <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1223	1335	
==>f Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1079	1215	
==>die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1284	1420	
==>die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22713	22830	
==>]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19134	19251	
==>]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2701	2878	
==>tart ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2701	2878	
==>tart ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($de <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17055	17183	
==>) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n) is primitive is safe {
        Num:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1643	1757	
==>args) or error(Params::Check->last_error), return;
        
        my $obj = $class->SUPER::new;
        $obj->mk_ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2396	2492	
==>ing
}

our Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	233	345	
==>$klass) && $klass->isa('opaque'))
        || confess "C3 only accepts classes";
    bless { class  => $klass } => <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3464	3566	
==>e,$warn,$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3746	3844	
==>eturns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3746	3844	
==>eturns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	329	445	
==>string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	329	445	
==>string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	46	191	
==>ompiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is r <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	46	191	
==>ompiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19049	19147	
==>lass,
the C<data> field is the string "POSIX".  POSIX classes don't exist in a
regex outside of a c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3858	3966	
==>elf.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3858	3966	
==>elf.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14286	14416	
==>s = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14280	14410	
==>s = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1844	1953	
==>,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callbac <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	840	949	
==>,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callbac <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	207	315	
==>N = '0.02';
use strict;
use File::Basename ();

sub prompt_script {
    my ($self, $script_file) = @_;
    my <==
2	/Users/nnunley/pugs/t/packages/Test.pm	89	190	
==>est_export is export { "party island" }

sub get_our_pkg {
    Our::Package::pkg();
}

our package Our <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	762	875	
==>q 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	762	875	
==>q 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9582	9757	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9861	10036	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19577	19691	
==>s 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces Lis <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11409	11515	
==>product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14886	14992	
==>product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35777	35876	
==>eN (C<)> when in C<(...>)

Omitted

=head2 tail

Family: close

Types: tail (C<)> when not in C<(... <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3839	3940	
==>m. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3839	3940	
==>m. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4658	4763	
==>select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.pro <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8135	8240	
==>select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.pro <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14689	14780	
==>ways C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14689	14780	
==>ways C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4464	4587	
==>f $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4452	4575	
==>f $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12332	12446	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12611	12725	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11863	11977	
==>ch my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	272	381	
==>ch my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4573	4692	
==>()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_o <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4573	4692	
==>()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	945	1038	
==>Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	945	1038	
==>Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14547	14668	
==>first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14547	14668	
==>first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible langua <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23036	23173	
==>'  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8073	8189	
==>"}
    bless $o,$ref;
    return $o;
}


package PIL::PIL1CPerl5::Unparse_CPerl5;
sub recurse {
    my($x)=@_;
    my <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10020	10159	
==>R   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl5 open, it isn't very dwimmy.

    ### XXX: NOTE ###
    # this is inte <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	39	144	
==>has Type $.type;

method subclass(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) retu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21026	21132	
==>ule::Compile based modules
will automatically be compiled into .pmc files and shipped with your
distribtuti <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21026	21132	
==>ule::Compile based modules
will automatically be compiled into .pmc files and shipped with your
distribtuti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1268	1400	
==>le {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1268	1400	
==>le {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, ' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4843	4958	
==>ame} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7643	7755	
==>oncurrent=N, -j      Run N test jobs concurrently (unavailable on MSWin)
    --shuffle, -s           Run tests in <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	127	229	
==>use strict;
use vars qw($VERSION);
use Config;
$VERSION = '0.20';

use Test::Harness::Assert;
use Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2655	2753	
==>Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2795	2893	
==>Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4574	4714	
==>(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We ini <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4574	4714	
==>(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We ini <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4338	4433	
==>s a hash reference, the match object returns named captures
as match objects, keyed by their nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4338	4433	
==>s a hash reference, the match object returns named captures
as match objects, keyed by their nam <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3801	3978	
==>}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3801	3978	
==>}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8622	8743	
==>{file}} @files ]); 
    print $fh $template->output();
    close $fh;
    for (@dirs) {
        build_indexes( catdir($pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10651	10750	
==>runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both 'prog' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23368	23462	
==>E1), !; F1 = Fx, B1 = Bx, E1 = Ex).

%--------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2715	2814	
==>is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=pe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2715	2814	
==>is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft=pe <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	447	562	
==>Array).  Why rw?
# \\n   List      pre     keys    safe   (rw!Array)\
multi Array::keys   (@array ; MatchTest *@inde <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	133	244	
==>), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	133	244	
==>), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18536	18694	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18815	18973	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	926	1045	
==>y a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	926	1045	
==>y a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) th <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5938	6057	
==>rom highest to lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize_versi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12920	13072	
==>normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12920	13072	
==>normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	407	525	
==>bstr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	407	525	
==>bstr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	363	515	
==>c );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $src,
        tail  =>   $tail,
        capture => $ast,
    } )
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8801	8915	
==>stcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) 

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12570	12733	
==>'epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12570	12733	
==>'epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $pa <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2681	2806	
==>multi  Num::sqrt (  Num  $x             --> Num )
 {
     Math::Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20402	20498	
==>on is entirely object-oriented; you use it by
creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24954	25050	
==>on is entirely object-oriented; you use it by
creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22187	22290	
==>f
their attributes are private, so you must use accessor methods.  Rosetta
does not declare any subrouti <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22187	22290	
==>f
their attributes are private, so you must use accessor methods.  Rosetta
does not declare any subrouti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2078	2172	
==>sents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2167	2261	
==>sents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17217	17329	
==>ix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13638	13750	
==>ix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15688	15783	
==>eader, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@test_files);

Calculates h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5928	6046	
==>ite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5928	6046	
==>ite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28004	28113	
==>name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28004	28113	
==>name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9761	9899	
==>used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9761	9899	
==>used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  s <==
2	/Users/nnunley/pugs/util/run-smoke.pl	930	1063	
==>irectory: $!";

# '.' needs to be at the front of the path for everything to find the correct
# pugs executable.
$ENV{PATH} = "." . $C <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2858	2969	
==>t {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode St <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2858	2969	
==>t {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3678	3790	
==>or $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3678	3790	
==>or $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ A <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1553	1673	
==>e $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1553	1673	
==>e $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	407	545	
==>s();

use constant {
  VERSION     => 0.4,
  MAX_SIZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/var/www/iblech/stuff/pugs-smokes/" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9821	9906	
==>rset_range_x(B) --> p5_charset_item(char(B)).
p5_charset_item(char(C)) --> [C], {\+(se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16342	16483	
==>_{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  su <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16342	16483	
==>_{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  su <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7086	7189	
==>) };

step
  descr  => "Checking for Parrot binary",
  ensure => sub { -r "$parrot_path/parrot" and -s " <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13029	13130	
==>. brackets("!","!"). brackets("=","=").
brackets("?","?"). brackets("#","#").
brackets([0xabd],[0xbbd] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21166	21263	
==>eople who install your
module distribtution do not need to have the compilers installed
themselves <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21166	21263	
==>eople who install your
module distribtution do not need to have the compilers installed
themselves <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1059	1172	
==>unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1059	1172	
==>unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10234	10329	
==>=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inser <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10234	10329	
==>=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inser <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2531	2626	
==>t($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2531	2626	
==>t($self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10060	10215	
==>ch, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # examp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10896	11051	
==>ch, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # examp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4898	5000	
==>see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4898	5000	
==>see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$ch <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1029	1141	
==>ot_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1029	1141	
==>ot_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10019	10237	
==>lar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Loc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11496	11706	
==>lar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1210	1318	
==>in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1350	1458	
==>in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33489	33590	
==>rray.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33489	33590	
==>rray.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12422	12533	
==>if (defined $args{args}) {
	_quote_args(\$runperl, $args{args});
    }
    $runperl .= ' 2>&1'          if  $arg <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	992	1092	
==>gets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub ( <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	992	1092	
==>gets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	126	222	
==>ars qw[@EXPORT];
use base 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ );

sub c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20417	20570	
==>l.


package Time::Local {}
# gmtime 

# localtime 

# time


# study

# defined

# undef

# item 

# want

# caller


# tie tied untie


# -X accept alar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1646	1772	
==>arse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1646	1772	
==>arse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	57	167	
==>s;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	57	167	
==>s;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11597	11710	
==>> $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11597	11710	
==>> $meth, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34780	34877	
==>all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along
t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39330	39427	
==>all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> along
t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4746	4890	
==>->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4746	4890	
==>->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13714	13819	
==>ss
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7921	8026	
==>ss
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1356	1453	
==>{

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1356	1453	
==>{

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new' <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1460	1580	
==>irectory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1460	1580	
==>irectory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	392	498	
==>) ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	392	498	
==>) ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4738	4949	
==>sh () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4738	4949	
==>sh () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1609	1718	
==>r( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1813	1922	
==>r( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3685	3782	
==>> C<clear>

=back

Please read the HTTP::Query documentation for more information on these methods <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3685	3782	
==>> C<clear>

=back

Please read the HTTP::Query documentation for more information on these methods <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10839	10935	
==>set += (1,2,3,4);

Note that in this instance, the information about how many members
were actual <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10839	10935	
==>set += (1,2,3,4);

Note that in this instance, the information about how many members
were actual <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2315	2426	
==>tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Fun <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2315	2426	
==>tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Fun <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8650	8754	
==>caught later.
    return ::($module_name).does(Package);
}

method load_template_module (Str $module_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8650	8754	
==>caught later.
    return ::($module_name).does(Package);
}

method load_template_module (Str $module_name <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12985	13081	
==>ents specified by C<$key> or C<$keys> from the invocant.
returns the value(s) that were associate <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	735	847	
==>al};
	} else {
		return $val;
	}
}

# dump data as p5
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	372	475	
==>is the same.

TODO

- The structure generated by concat() still looks like a tree, instead of a 'pla <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4847	4969	
==>export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4847	4969	
==>export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	891	1057	
==>h @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	891	1057	
==>h @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = () <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6127	6264	
==>d_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6320	6457	
==>d_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { cons <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7204	7321	
==>== (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $Resul <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6832	6944	
==>== (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2298	2403	
==>racked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2298	2403	
==>racked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8018	8149	
==>mp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => "\0", "\\X[0]");
  }

  $self->add_handler('\0' => sub {
    my ($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	810	918	
==>stract)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $self->prompt($prompt, ($defau <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3046	3167	
==>t
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3046	3167	
==>t
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12662	12758	
==>e recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns neg <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12662	12758	
==>e recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns neg <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7322	7544	
==>lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7379	7601	
==>lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phr <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4681	4788	
==>1.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of th <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4681	4788	
==>1.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3511	3635	
==>x      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3511	3635	
==>x      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	928	1053	
==>"ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # ca <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	928	1053	
==>"ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	578	819	
==>ant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	579	820	
==>ant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   rul <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3052	3166	
==>default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3052	3166	
==>default for $location
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20017	20110	
==>me, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20017	20110	
==>me, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3167	3265	
==>Val', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'Val', 'VList' , 'va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14395	14490	
==>istent group

=item RPe_ESLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	406	513	
==>ompiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	406	513	
==>ompiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has P <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2387	2496	
==>te_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = sub <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2387	2496	
==>te_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = sub <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	531	630	
==>ests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	589	688	
==>ests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $nu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16488	16598	
==>}{qw(max skip_all todo)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19301	19401	
==>($array) is builtin is primitive { die "Cannot 'pop' scalar"; };

multi as (Scalar $obj; $fmt) is bui <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3664	3779	
==>u have a new Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3532	3643	
==>u have a new Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4855	4946	
==>ttributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @chil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4855	4946	
==>ttributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @chil <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5752	5866	
==>MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5234	5348	
==>MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $fil <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3831	3931	
==>ping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Ret <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3831	3931	
==>ping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15092	15187	
==>e structures of arbitrary depth and of
an arbitrary type. The function signatures will likely lo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15150	15245	
==>e structures of arbitrary depth and of
an arbitrary type. The function signatures will likely lo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	390	493	
==>ns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	390	493	
==>ns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32732	32826	
==>.
The Translator class as a whole is not pure and deterministic because it
invokes user-defined <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32732	32826	
==>.
The Translator class as a whole is not pure and deterministic because it
invokes user-defined <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	523	654	
==>$pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no stri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	523	654	
==>$pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no stri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8050	8195	
==>) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8062	8207	
==>) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14648	14783	
==>"pre-Gregorian dates are inaccurate" - GHC
                        # System.Time
    has Int  $.month;   # 1 to 12 - NOTE 1-based
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12356	12453	
==>:$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12414	12511	
==>:$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$tod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7609	7755	
==>by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	910	1056	
==>by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still sa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1431	1541	
==>statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1431	1541	
==>statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gr <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	511	656	
==>ray_fetch' => sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            }, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16719	16820	
==>after converting each character to it's lowercase
form, if uppercase.


=item lcfirst

 multi Str::lcf <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2238	2376	
==>q->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_a <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2596	2734	
==>q->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18927	19037	
==>egins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. En <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18927	19037	
==>egins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. En <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5758	5854	
==>t::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straig <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5758	5854	
==>t::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straig <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1289	1413	
==>ath;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1289	1413	
==>ath;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4592	4735	
==>ch;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4592	4735	
==>ch;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	154	272	
==>.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	360	478	
==>.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $int <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6239	6340	
==>subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($iBar->class, $Bar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4673	4793	
==>class' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7396	7516	
==>class' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3963	4096	
==>return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4156	4289	
==>return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	304	433	
==>ive Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'M <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	304	433	
==>ive Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4328	4451	
==>e =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4328	4451	
==>e =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	727	820	
==>type keeps the C<source> property, and adds C<content>,
which is the whitespace to be represen <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	727	820	
==>type keeps the C<source> property, and adds C<content>,
which is the whitespace to be represen <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2041	2150	
==>ect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take enco <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2041	2150	
==>ect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take enco <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8487	8589	
==>.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8487	8589	
==>.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.sp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11033	11130	
==>ompile/Filter some source code into something else. This is almost
# always overridden in a subcla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11033	11130	
==>ompile/Filter some source code into something else. This is almost
# always overridden in a subcla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9572	9709	
==>lush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9572	9709	
==>lush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6906	7006	
==>nning, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6906	7006	
==>nning, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3041	3180	
==>ift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3588	3724	
==>ift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { ' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6581	6681	
==>s Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this versio <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6581	6681	
==>s Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this versio <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2237	2332	
==>...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2237	2332	
==>...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10382	10499	
==>ar_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10382	10499	
==>ar_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4236	4370	
==>tch => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4429	4563	
==>tch => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1200	1304	
==>object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1200	1304	
==>object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever th <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1665	1762	
==>d2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix version <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1665	1762	
==>d2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix version <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	338	467	
==>{ 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	338	467	
==>{ 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	928	1027	
==>catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	928	1027	
==>catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18789	18885	
==>ile that defines and returns an anonymous hash
definition.  While it is obvious that people who w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18789	18885	
==>ile that defines and returns an anonymous hash
definition.  While it is obvious that people who w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20334	20434	
==>NONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized including the
'_' t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20334	20434	
==>NONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized including the
'_' t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20098	20201	
==>tion_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20098	20201	
==>tion_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2052	2166	
==>::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2052	2166	
==>::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3755	3877	
==>nt<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3755	3877	
==>nt<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23741	23837	
==>xample> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23741	23837	
==>xample> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

T <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4240	4356	
==>lue::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( ' <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4240	4356	
==>lue::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( ' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4969	5085	
==>e: $!";
    print MAKEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFILE  or die $!;

    1;
}

sub p <==
2	/Users/nnunley/pugs/util/package-osx.pl	5692	5789	
==>rl6::Overview::Control.3
        /usr/local/man/man3/Perl6::Overview::Control.3pm
        /usr/loc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31605	31761	
==>' => num->new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e->get('$counte <==
2	/Users/nnunley/pugs/util/addauthors.pl	972	1082	
==>ial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	880	1006	
==>k->last_error ), return;

    $self->mk_accessors( qw[files alternative installation] );
    
    while( my($acc,$val) = each % <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2132	2245	
==>plit rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2132	2245	
==>plit rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2870	2995	
==>,  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, til <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2870	2995	
==>,  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, til <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5322	5419	
==>t to clear its internal state as completely as possible. 
This is automatically done as part of C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5322	5419	
==>t to clear its internal state as completely as possible. 
This is automatically done as part of C< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5059	5168	
==>efined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5059	5168	
==>efined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$ch <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2243	2576	
==>fer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2243	2576	
==>fer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        }, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33866	33961	
==>ch that each says what
language they prefer to communicate in, and what their backup choices are <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33866	33961	
==>ch that each says what
language they prefer to communicate in, and what their backup choices are <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10288	10419	
==>_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10288	10419	
==>_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@cla <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	642	815	
==>s_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	642	815	
==>s_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4245	4355	
==>= OPEN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    return $contents;
}

=pod JIB:: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29606	29700	
==>mes.

=item C<project (Set of Str $attrs!) returns Relation::Example>

This method is a generic <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2932	3052	
==>nds} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3396	3516	
==>nds} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	497	595	
==>e package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	497	595	
==>e package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	476	625	
==>le :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	476	625	
==>le :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1163	1251	
==>:Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1383	1471	
==>:Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3197	3292	
==>xins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3084	3176	
==>xins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	337	443	
==>chet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	337	443	
==>chet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15000	15097	
==>sword) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15000	15097	
==>sword) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, St <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3438	3557	
==>ll u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accen <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3438	3557	
==>ll u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1377	1496	
==>ash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1377	1496	
==>ash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12317	12432	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12596	12711	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  ma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1350	1475	
==>ght)";
    return $left->id->to_native <=> $right->id->to_native;
}

## methods

sub id    { (shift)->[0]        }
sub class { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2726	2849	
==>ts dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3190	3313	
==>ts dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5071	5227	
==>tmt} ) {

            if ( $ast->{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6752	6870	
==>ter in the Unicode category "Decimal number (Nd)"
      <Nd>
}
rule UnicodeConnectorPunctuation {  # see 7.6
      # an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34167	34261	
==>as aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38717	38811	
==>as aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Rel <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7129	7497	
==>license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        w <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7186	7554	
==>license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        w <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1545	1657	
==>head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1545	1657	
==>head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3584	3695	
==>pare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3584	3695	
==>pare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1705	1810	
==>/[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub space { <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	264	366	
==>is simply to be an example Perl6 module that will
run and install and have all the distribution compone <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18428	18546	
==>ut
format for Node.new(), by which you can create an identical Node (with
child Nodes) to the one you first invoked exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18428	18546	
==>ut
format for Node.new(), by which you can create an identical Node (with
child Nodes) to the one you first invoked exp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10053	10198	
==>t_pkg->name;

            ### find all packages that provide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2722	2834	
==>ns => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2722	2834	
==>ns => @res );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15586	15695	
==>ice_content($beg_n, $end_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11897	11992	
==>parser->nchar("LATIN CAPITAL LETTER R");

This means you must have the F<charnames> pragma insta <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6921	7268	
==>ib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18212	18322	
==>} && 
         $totals->{max}  < $totals->{seen};
};

sub test_handler {
    my($self, $line, $type, $totals) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3292	3428	
==>\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? + <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3280	3416	
==>\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? + <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3844	3946	
==>my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3844	3946	
==>my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1899	2010	
==>)->keys->length }

sub exists {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12083	12182	
==>mmar->new(<<'#\'EOG');
#\

# at the root we initialize the predefined symbols, and the initial set o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5446	5541	
==>the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object wo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5446	5541	
==>the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object wo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	721	834	
==>ecause macros are buggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	721	834	
==>ecause macros are buggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37801	37904	
==>arameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37801	37904	
==>arameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1958	2059	
==>rn (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1958	2059	
==>rn (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11543	11671	
==>s to the initrd",
    ensure => sub { -r "$initrd_mnt/lib6/$_" or return for @modfiles; 1 },
    using  => sub {
      utime unde <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	116	219	
==>erl6::Core::Str;

package symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'bles <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1758	1871	
==>ck_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1758	1871	
==>ck_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	88	185	
==>6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	88	185	
==>6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3684	3794	
==>is module is primarily for reading human written files, and anything we
write shouldn't need to have documentat <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3684	3794	
==>is module is primarily for reading human written files, and anything we
write shouldn't need to have documentat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15525	15650	
==>no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18482	18577	
==>lly use the perl regcompp and regexecp hooks (C functions
which get called on regular expression <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2772	2867	
==>lly use the perl regcompp and regexecp hooks (C functions
which get called on regular expression <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	334	458	
==>lt to 0
    (looks_like_number($value)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# c <==
2	/Users/nnunley/pugs/util/combine_tests.pl	565	671	
==>revisions[] is added with revision number of the older versions.
#
sub combine_tests{
    #
    # Collect a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7349	7450	
==>ading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10826	10927	
==>ading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2942	3051	
==>n
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more tha <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2942	3051	
==>n
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more tha <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1527	1653	
==>$self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1527	1653	
==>$self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $sel <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1122	1218	
==>:Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1122	1218	
==>:Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1312	1456	
==>$escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1312	1456	
==>$escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3794	3895	
==>f->{_config} = \%Config;
    $self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

sub get_ <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	512	631	
==>|Real ?$second #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian.new( :year( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26902	27069	
==>p::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27181	27348	
==>p::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2096	2307	
==>le_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2343	2554	
==>le_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14682	14783	
==>ues are not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The defau <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14682	14783	
==>ues are not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The defau <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	710	840	
==>tics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	710	840	
==>tics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1275	1430	
==>( $9.defined ) {
        $tz = tz $9;
    }

    return Date::Gregorian.new
        ( :year($year), :month($1),  :day($2),
          :hour($5),    :minute($ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27969	28066	
==>RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1136	1286	
==>delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1276	1426	
==>delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21710	21822	
==>ide simply by using the same key code with a new user message in
one of their own resource files.  At some approp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21710	21822	
==>ide simply by using the same key code with a new user message in
one of their own resource files.  At some approp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1175	1272	
==>akes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1175	1272	
==>akes in turn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the contin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	773	900	
==>, Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	861	988	
==>, Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5287	5414	
==>hdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        ch <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2964	3065	
==>+ } # XXX - $/<bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo ==> <'$foo'>  Scary.
rule inte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1625	1734	
==>le $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1625	1734	
==>le $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2523	2618	
==>t.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2523	2618	
==>t.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19222	19328	
==>= Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=head1 DIAGNO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19222	19328	
==>= Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=head1 DIAGNO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8862	8966	
==>evel yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to carry the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8569	8671	
==>evel yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to carry the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	314	454	
==>t

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => undef } 
        qw/
        num bit str symb <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3763	3895	
==>th non-zero, this is its exit status.

=item B<Wstat>

The wait status of the test.

=item B<Total>

Total number of tests expected t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21709	21824	
==>e ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1723	1816	
==>ant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs inside character classes';
use consta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1813	1915	
==>f $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1813	1915	
==>f $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $sp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3074	3183	
==>lement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_emp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3074	3183	
==>lement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_emp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27095	27194	
==>0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_TAIL		0x8000000

 #define RE_USE_I <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	71	181	
==>azy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	71	181	
==>azy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2185	2297	
==>, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # what <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2185	2297	
==>, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # what <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	725	844	
==>turns List {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	115	212	
==>Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26656	26751	
==>_id), "int", ":t id(3)");
is(t($plus_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "int", " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	567	663	
==>:Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	567	663	
==>:Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varna <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16396	16500	
==>pan object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16396	16500	
==>pan object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12139	12393	
==>} ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12139	12393	
==>} ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ], <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14230	14332	
==>n :words {  # see 11.3
      <LeftHandSideExpression>
    | <LeftHandSideExpression><no_LineTerminator_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7054	7156	
==>y \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7054	7156	
==>y \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $k <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10617	10719	
==>that you can update several fields with a single invocation.

The $value argument may be a plain string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10617	10719	
==>that you can update several fields with a single invocation.

The $value argument may be a plain string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10043	10161	
==>DO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	801	916	
==>g_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	801	916	
==>g_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2681	2784	
==>h.  XXX it is not clear
that this is the optimal interface for this combinator.

=cut

method subrule (C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2681	2784	
==>h.  XXX it is not clear
that this is the optimal interface for this combinator.

=cut

method subrule (C <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4461	4593	
==>};
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4461	4593	
==>};
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4465	4604	
==>ributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4465	4604	
==>ributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $do <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	431	535	
==>Lazy lists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Te <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	431	535	
==>Lazy lists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1899	2012	
==>aders = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1899	2012	
==>aders = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1568	1688	
==>Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dum <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1568	1688	
==>Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dum <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6464	6563	
==>f C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6464	6563	
==>f C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	574	828	
==>: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	574	828	
==>: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	958	1064	
==>oaded from '$filename'\n";
    open FILE, "<", $filename
        or die "can't open $filename for compilati <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15636	15735	
==>Byte uplifted to an LChar).

Attempting to use a string at a level lower than what it supports is no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1327	1424	
==>per_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1327	1424	
==>per_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1363	1515	
==>S_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1363	1515	
==>S_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_me <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	978	1099	
==>ir to store control MD
$Available      = $Meta . '/available';             # available packages MD
$Altfile        = $Meta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9963	10061	
==>ading === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3763	3978	
==>{
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3763	3978	
==>{
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14368	14469	
==>s, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14368	14469	
==>s, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3388	3505	
==>ed;
    }

    unless ($pass) {
	unshift(@mess, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7699	7800	
==>n the List section.
multi Array::map (@values ;  Code $expression --> Lazy ) 
{
    List::map $express <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6467	6580	
==>combinations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6467	6580	
==>combinations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2991	3109	
==>adFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AN <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3455	3573	
==>adFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AN <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32319	32414	
==>mplate modules to come
from Perl modules, but in the future they may alternately be something
el <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32319	32414	
==>mplate modules to come
from Perl modules, but in the future they may alternately be something
el <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7301	7406	
==>t exceeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7301	7406	
==>t exceeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2194	2292	
==>over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2194	2292	
==>over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11913	12011	
==>ained.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11913	12011	
==>ained.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be us <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	991	1111	
==>r};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	958	1078	
==>r};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1857	1983	
==>se {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1857	1983	
==>se {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.com <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8993	9116	
==>ce of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8993	9116	
==>ce of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3864	4000	
==>{
    print "Tests                 : Processing tests from tests.yaml\n";
}
print "Output directory      : $output_dir\n";
print "\n";

m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17227	17341	
==>= $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11383	11512	
==>><tmpl_var name=name></th></tr>
      <tmpl_loop name=categories>
        <tr><th colspan="11" class="indent1"><tmpl_var name=catn <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19647	19761	
==>specified in the constructor. For example,
C<Net::IRC> automatically tries to use slight variations of the nickname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19647	19761	
==>specified in the constructor. For example,
C<Net::IRC> automatically tries to use slight variations of the nickname <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1912	2030	
==>members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) && <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1912	2030	
==>members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) && <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40761	40860	
==>eyedText would appreciate being informed any time you create a
modified version of Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40761	40860	
==>eyedText would appreciate being informed any time you create a
modified version of Locale::KeyedText <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1020	1155	
==>um  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Int <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1798	1919	
==>rameters, while App is providing $sent parameters: "
		. Blondie::Emitter::Pretty->new->string($reduced)
			if $received ! <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4640	4745	
==>?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is primitive is builtin is s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19312	19409	
==>.
The field value consist of a challenge that indicates the
authentication scheme and parameters a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19312	19409	
==>.
The field value consist of a challenge that indicates the
authentication scheme and parameters a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	361	462	
==>= () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	361	462	
==>= () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_str <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	332	437	
==>ausible, no?

Clutter::int_sizes 1,2,4... doesnt add much clarity, given the cruft
of wrapping a map and j <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9532	9655	
==>r($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9532	9655	
==>r($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1156	1273	
==>le => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1167	1284	
==>le => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return un <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3748	3850	
==>return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3748	3850	
==>return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $spa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3203	3318	
==>ail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3203	3318	
==>ail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vty <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	810	936	
==>Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	810	936	
==>Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curho <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4237	4334	
==>esents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4237	4334	
==>esents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3386	3485	
==>letes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3386	3485	
==>letes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	504	601	
==>NG   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	504	601	
==>NG   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4777	4948	
==>N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4999	5170	
==>N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2145	2250	
==>_call {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) ) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14	114	
==>l

# Generate .html from .t and test results 
# Generate cross-referenced html for p6 design docs (op <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3283	3385	
==>lf: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3283	3385	
==>lf: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	247	380	
==>eturn $s;
}

sub _mangle_var {
    my $s = shift;
    #warn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9704	9842	
==>> \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	826	943	
==>er->FETCH('::Output')->new());
        },
        'DESTROY' => sub {
            my $footer = _('$.testplan')->footer( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7501	7615	
==>perator.



A ruleop() function gets as argument a list:



### we don't need a "high" level interface (named args) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7247	7357	
==>perator.

A ruleop() function gets as argument a list:

### we don't need a "high" level interface (named args) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	249	350	
==>s readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	249	350	
==>s readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye! <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1846	1953	
==>the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with an <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1846	1953	
==>the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with an <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	665	761	
==>o log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm he <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	665	761	
==>o log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm he <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5228	5355	
==>hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5228	5355	
==>hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21920	22013	
==>tribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object- <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21920	22013	
==>tribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	988	1094	
==>elf = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub v <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	543	658	
==>s;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	543	658	
==>s;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2710	2805	
==>art(Z)    --> p5_concatenation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> {true}.

p5_alte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	543	637	
==>();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2379	2501	
==>e
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2379	2501	
==>e
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1574	1748	
==>" .
        "    rule_wrapper( \$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	388	484	
==>ON

A simple assert routine since we don't have Carp::Assert handy.

B<For internal use by Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8594	8712	
==>rnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8594	8712	
==>rnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<fr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8729	8841	
==>ce::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8729	8841	
==>ce::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and com <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12781	12887	
==>string, ... )

This routine replaces HTML entities found in the $string with the
corresponding Unicode char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12781	12887	
==>string, ... )

This routine replaces HTML entities found in the $string with the
corresponding Unicode char <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7961	8098	
==>rx->{flags}[-1],
      family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	26	126	
==>rl6;

use strict;
use warnings;

use Data::Dumper;

# TODO - see Pugs::Runtime::Grammar for metaclass <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17815	17969	
==>t', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18094	18248	
==>t', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8060	8228	
==>method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8060	8228	
==>method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22823	22944	
==>gical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19244	19365	
==>gical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22149	22246	
==>permissions issue; simply order the files appropriately in the search
list.  The analogy is simila <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22149	22246	
==>permissions issue; simply order the files appropriately in the search
list.  The analogy is simila <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1924	2047	
==>match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1924	2047	
==>match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	790	917	
==>pen_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	790	917	
==>pen_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2386	2486	
==>rld".say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs> module is a front-end to the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3925	4035	
==>he Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3925	4035	
==>he Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Loc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2514	2616	
==>ONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::Spec:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2514	2616	
==>ONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::Spec:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2570	2692	
==>ess and false on failure.

=cut

sub _perl_version {
    my $self = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2456	2565	
==><OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2456	2565	
==><OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2662	2765	
==>ve
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2662	2765	
==>ve
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14074	14214	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14353	14493	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'po <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7413	7611	
==>n" .
                "        \\&grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3037	3174	
==>oin('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # mus <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3037	3174	
==>oin('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # mus <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2969	3061	
==>s.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) returns S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2969	3061	
==>s.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1504	1603	
==>tr $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1562	1661	
==>tr $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2147	2257	
==>atch => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2135	2245	
==>atch => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3725	3873	
==>as"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regular <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9897	10003	
==>ts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9897	10003	
==>ts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9937	10034	
==>"deferred".  The immediate validations
are performed at the moment the user tries to set the input <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9937	10034	
==>"deferred".  The immediate validations
are performed at the moment the user tries to set the input <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1683	1838	
==>le = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recomp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22038	22142	
==>en = $namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str) - $max <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1554	1652	
==>se are dependant on the installation, so they are 
### marked privata.. their public equivalents li <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1498	1591	
==>F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<ex <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1498	1591	
==>F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16313	16572	
==>:statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16592	16851	
==>:statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15741	15913	
==>!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15741	15913	
==>!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4605	4717	
==>atches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq ' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19553	19658	
==>oto end
    pad["subpats"] = $I1
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4237	4367	
==>zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elem <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4237	4367	
==>zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elem <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5795	6019	
==>b_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one tha <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6259	6483	
==>b_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one tha <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2890	2985	
==>ion($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.str <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2890	2985	
==>ion($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23494	23606	
==>qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19915	20027	
==>qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2228	2373	
==>',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt',                 'TC <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	214	353	
==>adFile( $Altfile );

for my $struct ( sort { $a->{package} cmp $b->{package} } 
                 LoadFile( $Available ) 
) {
    print "$str <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2587	2696	
==>urn $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2587	2696	
==>urn $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4857	5061	
==>l => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4706	4904	
==>l => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14822	14919	
==>rt => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14822	14919	
==>rt => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10550	10692	
==>uct (Relation $other!) returns Relation {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14027	14169	
==>uct (Relation $other!) returns Relation {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10148	10258	
==>y $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10148	10258	
==>y $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6425	6527	
==>$one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6425	6527	
==>$one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24889	24988	
==>even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message objec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24889	24988	
==>even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	213	315	
==>r Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	213	315	
==>r Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	877	990	
==>lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	877	990	
==>lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1740	1859	
==>(<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1740	1859	
==>(<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1330	1449	
==>n.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25215	25311	
==>r free software
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/ph <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25215	25311	
==>r free software
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/ph <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1847	1940	
==>on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This progra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1847	1940	
==>on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This progra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35261	35368	
==>, we need to define our own qr() method, because we don't want
to have &'s in our I<real> regex.  We need to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3273	3374	
==>p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RUL <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2123	2214	
==>fix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(In <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2123	2214	
==>fix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(In <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	495	602	
==>"<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_V <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	495	602	
==>"<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_V <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9668	9782	
==>t;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9668	9782	
==>t;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of S <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6181	6317	
==>on't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a w <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6181	6317	
==>on't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a w <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4592	4708	
==>elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy li <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4592	4708	
==>elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4430	4585	
==>f->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16123	16222	
==>iness with compiler. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3195	3299	
==>mpare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3195	3299	
==>mpare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2287	2409	
==>VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2287	2409	
==>VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6632	6748	
==>ch) contain:



### Match actually contain getters for $() and such

### getters need to know what you want (str, boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6410	6523	
==>ch) contain:

### Match actually contain getters for $() and such
### getters need to know what you want (str, boo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3043	3141	
==>ch can be called repeatedly to encipher data.
The encipherer closure can be called with a string, a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3043	3141	
==>ch can be called repeatedly to encipher data.
The encipherer closure can be called with a string, a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	101	204	
==>ebugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	96	193	
==>ebugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1139	1254	
==>, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	242	356	
==>, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	714	848	
==>ie Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	714	848	
==>ie Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1095	1193	
==>eturn \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $Package_re = qr/^( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9537	9629	
==>or::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	mul => type::opera <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1655	1803	
==>urry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1655	1803	
==>urry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1738	1866	
==>( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1738	1866	
==>( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6428	6531	
==>tter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6440	6543	
==>tter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	546	648	
==>orms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	546	648	
==>orms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3636	3751	
==>the compiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your tar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3506	3616	
==>the compiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your tar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6021	6155	
==>ific workaround is done since $message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # cu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6021	6155	
==>ific workaround is done since $message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # cu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11969	12073	
==>b ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12027	12131	
==>b ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	596	724	
==>);
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	596	724	
==>);
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3985	4113	
==>ext;
  }
}


sub visual {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $vis = join "", map($_->visual, @{ $self->{tr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9491	9699	
==>n't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $script ( @{ $alt->bin || [] } ) {
            1 while unlink $conf->bin_dir->fil <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2544	2699	
==>n't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $script ( @{ $href->{$pkg}-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10363	10455	
==>',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11098	11190	
==>',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3] <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	580	695	
==>or %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($ <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	580	695	
==>or %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15876	15978	
==>raise a condition or error that,
while resembling a message that would be shown to a user, is in fact m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15876	15978	
==>raise a condition or error that,
while resembling a message that would be shown to a user, is in fact m <==
2	/Users/nnunley/pugs/util/claim_drift.pl	1145	1282	
==>rint "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $real, $orig or die "symlink: $!" } unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9030	9150	
==>lation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12507	12627	
==>lation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= &differ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2383	2521	
==>:concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alterna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2394	2532	
==>:concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alterna <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18121	18233	
==>fied in the constructor. If the nickname is already used, this module
will try to use a permuted nick (for exampl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18121	18233	
==>fied in the constructor. If the nickname is already used, this module
will try to use a permuted nick (for exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4938	5043	
==>\$cn = \$_[0]; \@_=".$code1."\$cn".$code2.";goto \&\$f0}\n";
    #print $code;
    eval($code) || die "$@" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5589	5690	
==>)        --> "(?=",  !, p5_start(R), ")".
p5_elemental(lookahead_not(R))    --> "(?!",  !, p5_start(R) <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2962	3233	
==>rbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<en <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2962	3233	
==>rbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<en <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6870	7025	
==>ve call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSA <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7334	7489	
==>ve call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1592	1732	
==>'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'lit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1603	1743	
==>'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'lit <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1871	1990	
==>ns Scalar {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10673	10779	
==>reasonable values, and
that attributes or Nodes are not missing.  The deferred validations, which
can be ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10673	10779	
==>reasonable values, and
that attributes or Nodes are not missing.  The deferred validations, which
can be ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2040	2179	
==>g Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2040	2179	
==>g Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15510	15612	
==>me at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expir <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15510	15612	
==>me at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expir <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	706	809	
==>ables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	706	809	
==>ables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	222	351	
==>urn "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Ex <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	222	351	
==>urn "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Ex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2976	3103	
==>ensity) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2976	3103	
==>ensity) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	617	743	
==>t
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1101	1227	
==>t
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3068	3182	
==>rait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3068	3182	
==>rait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	272	377	
==>g, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain non-normativ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	272	377	
==>g, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain non-normativ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23402	23496	
==>.", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23402	23496	
==>.", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	724	893	
==>t {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	724	893	
==>t {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	117	249	
==>see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	113	240	
==>see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherit <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2131	2302	
==>if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $outpu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2131	2302	
==>if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $outpu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3102	3269	
==>>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3102	3269	
==>>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($res <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6299	6416	
==>r is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11145	11262	
==>r is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	849	968	
==>density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for sing <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	849	968	
==>density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for sing <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30394	30490	
==>ember
large, with each set member being an an exclusive alternative for the rest
of the set. Ther <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30394	30490	
==>ember
large, with each set member being an an exclusive alternative for the rest
of the set. Ther <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13528	13653	
==>xt;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator .= new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13528	13653	
==>xt;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator .= new <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	95	199	
==>rd Edition
#    Appendix A.
#
#  Changes to specification grammar.
#   * RegularExpressionLiteral has bee <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8702	8822	
==>= ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8702	8822	
==>= ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4178	4272	
==>5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{'p5'}->value }
sub as_pil <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13925	14037	
==>.

  There may be no place to put the flag value?  And then prove
  implausible to realloc the regexp struct to c <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	56	161	
==>strip the DESTDIR away
# when it is not passed in, and add "--copy-prefix" if it is.
#

use Config;
use Fi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	19	119	
==>Maker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMa <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	19	119	
==>Maker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12103	12269	
==>\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # R <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12103	12269	
==>\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # R <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20488	20595	
==>r
might have, and lets you arrange the list in order of preference.  When you
open a program, it will search <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20488	20595	
==>r
might have, and lets you arrange the list in order of preference.  When you
open a program, it will search <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21053	21153	
==>only the last of these fields will be present in the header
after the call.  All values ought to be k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21053	21153	
==>only the last of these fields will be present in the header
after the call.  All values ought to be k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3594	3690	
==>= <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3778	3874	
==>= <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31233	31327	
==>:L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31233	31327	
==>:L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1564	1683	
==>en;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    In <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1564	1683	
==>en;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    In <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1607	1725	
==>urn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for stat <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1607	1725	
==>urn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for stat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3570	3661	
==>ryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3570	3661	
==>ryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9019	9122	
==>file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9019	9122	
==>file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9164	9280	
==>_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23750	23865	
==>plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for the type pretty printer
{
	my $type = type: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1636	1741	
==>elativePrecedence}{equiv};
    }
  }

  my $noWhitespace = 0;
  $noWhitespace = 1 if ((index $options, "no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1852	1950	
==>subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1852	1950	
==>subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2504	2608	
==>me.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2504	2608	
==>me.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20354	20452	
==>gram package installers usually do it.  An os-level preference
/ control-panel displays a list of a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20354	20452	
==>gram package installers usually do it.  An os-level preference
/ control-panel displays a list of a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3207	3316	
==>->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE('::Fail' => class 'TestBuild <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3393	3477	
==>->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE(':: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	562	822	
==>{
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	562	822	
==>{
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3930	4035	
==>int
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3930	4035	
==>int
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16270	16366	
==>e mechanism for
applications and packages that empowers single binaries to support N
locales or u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16270	16366	
==>e mechanism for
applications and packages that empowers single binaries to support N
locales or u <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1052	1155	
==>ocrypha in the F<docs/> directory are a series of documents, written
in question/answer format, to expla <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1052	1155	
==>ocrypha in the F<docs/> directory are a series of documents, written
in question/answer format, to expla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4685	4874	
==>ove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4685	4874	
==>ove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1413	1507	
==>re_tests_parrot.t - parrot's driver, same date.
#  re_tests_match.el - an old driver putter wro <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	12	132	
==>ugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $ch <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	12	132	
==>ugs
use v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $ch <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18144	18273	
==>ly to return the compiled regexp, to give input to a search,
and to get back match results.

Our objective here is to see if it is <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	505	613	
==>hile interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2583	2690	
==>| "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2583	2690	
==>| "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a tim <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	796	903	
==>also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as soon as it has matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	796	903	
==>also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as soon as it has matc <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7286	7369	
==>_body(Rk,R1,R2) --> p5_condition_test(Rk), p5_concatenation(R1), p5_condition_altern <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	153	298	
==>'$true', '$false'), # non short circuiting

    '&control_structure:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8663	8760	
==>ting and Parsing Together

You can also use parse() instead of regex() to set the regex and create <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1179	1282	
==>routine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1179	1282	
==>routine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7650	7760	
==>ft(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathch <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7650	7760	
==>ft(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathch <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4279	4410	
==>ndex->{'directory'} }, 'inc';
        require YAML;
        local $YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	805	919	
==>ltin operators to demonstrate dynamicity.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Silly; # prompts

    B <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1365	1478	
==>2-12
#  re_tests_perl5.t - driver from same.
#  re_tests_parrot.t - parrot's driver, same date.
#  re_tests_match. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	40	136	
==>het;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	40	136	
==>het;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5587	5722	
==>rn bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5809	5944	
==>rn bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1011	1172	
==>d;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1011	1172	
==>d;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_l <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1931	2034	
==>lence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit ", length <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4914	5010	
==>ing and processing .t files
my $files = {}; # mapping from test-file-name to test-record
$files-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	440	591	
==>l $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	440	591	
==>l $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	59	148	
==>rl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9831	9941	
==>(") if $is_vms && !/^\"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    }
}

sub _create_runperl { # Create the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7453	7559	
==>ools? how is this useful?
# =head2 @bools = $repo->add_files($file1, $file2, ...)
# 
# Adds a list of jib f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	244	343	
==>'  => 'as_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)=@_;$$o->{' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22498	22652	
==>s => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42287	42440	
==>s => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1091	1198	
==>::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1091	1198	
==>::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7769	7873	
==>});

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7769	7873	
==>});

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20251	20344	
==>=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20251	20344	
==>=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed wh <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11617	11733	
==>y trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ for <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6432	6547	
==>) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- intern <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6432	6547	
==>) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- intern <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1973	2065	
==>ubset num of num64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset num <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2729	2848	
==>:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socke <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2729	2848	
==>:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8345	8463	
==>luke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8345	8463	
==>luke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10559	10657	
==>ompile_hook = sub{
  my($re)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reverse(13," <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4918	5043	
==>or input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4918	5043	
==>or input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9602	9754	
==>isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", map { _pp_depends( [$_] ) } @$entry;
                $str .= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19052	19146	
==>rname>, and C<ircname> you've
specified in the constructor. If the nickname is already used, C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19052	19146	
==>rname>, and C<ircname> you've
specified in the constructor. If the nickname is already used, C< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11656	11780	
==>ecure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11656	11780	
==>ecure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3589	3707	
==>bject representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3589	3707	
==>bject representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2926	3056	
==>val {
	   join(" ",
		   (map { "∀${_}." } @forall),
		   $pretty->apply($tree)->layout,
	   );
	} || die "$@\n" . Data::Dumper:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10672	10812	
==>}

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        ### link the files
        return unless $self->link_files( p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6179	6316	
==>=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1530	1628	
==>$parent;
    $.depth  = $parent.depth() + 1;
}

## ------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1530	1628	
==>$parent;
    $.depth  = $parent.depth() + 1;
}

## ------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3516	3617	
==>ing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keyw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3516	3617	
==>ing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keyw <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	586	709	
==>.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	586	709	
==>.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1836	1981	
==>called with no args without setting name() first";
        $file = join('/', 'lib', split(/-/, $name)) . '.pm';
        $file =~ s{.*/}{} unless - <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24221	24312	
==>= type::operator::arrow->new($a, $a);

	is($type->stringify, "∀α. α → α", "pretty pri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7079	7183	
==>, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7137	7241	
==>, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3555	3748	
==>ol  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                named => {},
                match => [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3222	3385	
==>edence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20006	20143	
==>: 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16427	16564	
==>: 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2008	2114	
==>E

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2008	2114	
==>E

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require H <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1326	1495	
==>ounded, " . 
                    "label = \"" . $node->name . "(" . $node->id . ")\" " . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $outpu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37202	37327	
==>ame place
    $self->add_handler('!' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->obj <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	33	142	
==>warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE(':: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	33	142	
==>warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE(':: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7183	7309	
==>e $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	484	610	
==>e $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/' <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	214	328	
==>pecify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!succes <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	214	328	
==>pecify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!succes <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2870	3099	
==>$line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    retur <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2870	3099	
==>$line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	333	503	
==>tch) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	333	503	
==>tch) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4990	5129	
==>($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4990	5129	
==>($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1443	1538	
==>there.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1443	1538	
==>there.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2580	2667	
==>oup/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.com <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2580	2667	
==>oup/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.com <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	345	457	
==>atan (Num $x, Num $y ; Num :$base) returns Num
    { ... };

multi sub pi is readonly () returns Num
    { 3.1415 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	127	239	
==>e qw(Pugs::Grammar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4731	4855	
==>ch => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4924	5048	
==>ch => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16058	16169	
==>ut for now, as a simple script, it suffices.
# This script doesn't run as root, anyway.
sub check_for_evil_chars <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	105	209	
==>s allocated anew whenever you enter a new rule or parenthesized
group.  This is approximately the Match o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	105	209	
==>s allocated anew whenever you enter a new rule or parenthesized
group.  This is approximately the Match o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4344	4437	
==>77216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4344	4437	
==>77216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18906	19017	
==>- The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not ne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18906	19017	
==>- The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not ne <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6641	6746	
==>can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a fileh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6641	6746	
==>can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a fileh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5229	5361	
==>"Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5229	5361	
==>"Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8273	8397	
==>ame => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (St <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8273	8397	
==>ame => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1853	1997	
==>e $rule_name { $op->{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . "    rule $rule_name { <r$prev> [ $x <$rule_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4619	4729	
==>omp => "\r", '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_objec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1128	1253	
==>defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<RE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1128	1253	
==>defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<RE <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	171	276	
==>in that string, and it provides the fundamental operations on strings as
combinators.

    $.text     - Th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	171	276	
==>in that string, and it provides the fundamental operations on strings as
combinators.

    $.text     - Th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8870	9015	
==>n = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8870	9015	
==>n = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1429	1540	
==>ile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1429	1540	
==>ile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler <==
2	/Users/nnunley/pugs/util/func_refact.pl	346	470	
==><fname>, possibly many times, to
specify the initial set. -except <fname> introduces a function to
ignore, can iterate. -debu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6725	6843	
==>= @_;
    my $pass;
    $pass = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5475	5570	
==>d fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9073	9168	
==>d fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo-> <==
2	/Users/nnunley/pugs/util/package-osx.pl	1150	1252	
==>/usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/lib/libreadline <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7122	7234	
==>e globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7122	7234	
==>e globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6610	6755	
==>match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6396	6533	
==>match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub rul <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	163	263	
==>OM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self. <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	163	263	
==>OM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4218	4413	
==>is)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4218	4413	
==>is)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3090	3211	
==>ds);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3090	3211	
==>ds);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3470	3586	
==>e" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  push @{ $cats{$cate <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3246	3340	
==>= Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure dec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3246	3340	
==>= Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure dec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7281	7393	
==>Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

.. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7281	7393	
==>Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

.. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6423	6548	
==>L::PIL1CPerl5::NodesInfo::node_named{'$name'};
  sub info { \$info } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	64	166	
==>"ist 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4004	4142	
==>IL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4004	4142	
==>IL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11852	11960	
==>'s Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11852	11960	
==>'s Node objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5335	5470	
==>,
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5335	5470	
==>,
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6371	6517	
==>ck usage
    return sub {
        my $state = $_[1] || $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $no <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14929	15045	
==>os
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6345	6443	
==>l', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6345	6443	
==>l', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	792	1003	
==>nt, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	792	1003	
==>nt, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17370	17492	
==>erms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $st <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17370	17492	
==>erms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $st <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1150	1271	
==>py;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $!";
        print <<".";
*** Default <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	14	115	
==>l

package Blondie::Nodes;
use base qw/Exporter/;

use strict;
use warnings;

use Carp ();
use Class:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1810	1934	
==>? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any per <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1810	1934	
==>? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any per <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25437	25532	
==>ith the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29989	30084	
==>ith the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	968	1070	
==>decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1105	1207	
==>decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1096	1192	
==>osing a rate limit
against a stream of items. It is also very easy to combine several
rate-limite <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1096	1192	
==>osing a rate limit
against a stream of items. It is also very easy to combine several
rate-limite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24251	24352	
==>t (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug report <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24251	24352	
==>t (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and bug report <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3740	3834	
==>es of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@we <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3740	3834	
==>es of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@we <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16684	16795	
==>IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot . <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16684	16795	
==>IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot . <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2082	2197	
==>module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_F{$msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	554	658	
==>module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2930	3077	
==>ssage
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2930	3077	
==>ssage
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@l <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	69	168	
==>qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd_retrieve fr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2406	2515	
==>efined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2406	2515	
==>efined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16737	16837	
==>o v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16737	16837	
==>o v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> fi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1826	2061	
==>,
                        ),                        
                        Tree.new(:node<Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>), <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4599	4704	
==>ng then the above two subs might not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9176	9276	
==>se_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9234	9334	
==>se_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8813	8911	
==>rms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2638	2736	
==>rms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11529	11625	
==>$recurrence )`

Returns only the elements in this recurrence that are not in the given recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11529	11625	
==>$recurrence )`

Returns only the elements in this recurrence that are not in the given recurrence <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14138	14226	
==>(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charname_to_char(Name,C) :- cach <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16714	16828	
==>of_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13135	13249	
==>of_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11512	11615	
==>item Write more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevan <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11512	11615	
==>item Write more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevan <==
2	/Users/nnunley/pugs/util/package-osx.pl	11267	11419	
==>rm \-rf \$file 2>&1 \/ \) \{
                print "Problem removing \$file\: \$_\\n";
            \}
            else \{
                print "Successf <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	788	915	
==>my ($table) = @_;
    my $self;
    $self = bless sub {
        my $message = shift;
        return $table  if $message eq 'mess <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1578	1669	
==>urn &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1578	1669	
==>urn &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	112	228	
==>}
my $str = shift;
if($str eq '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4749	4856	
==>map { num->new($_)  } 0 .. $left->elems->to_native) {
        # warn "calling equal_to on " . $left->fetch($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8930	9025	
==>mmar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2755	2850	
==>mmar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5702	5831	
==>b set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21987	22095	
==>object is a hash reference with the following keys:

=over 4

=item regex

A reference to the original string <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11314	11414	
==>sion of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11314	11414	
==>sion of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10168	10306	
==>$.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10168	10306	
==>$.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!qu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8362	8501	
==>ss">
    body {
      background-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      fo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11868	11977	
==>ne $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11868	11977	
==>ne $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	81	185	
==>ram")

has Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool $isLValue;    # not is cop <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	10	105	
==>ldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NA <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	10	105	
==>ldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2687	2807	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2687	2807	
==>ASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	232	357	
==>ey = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	232	357	
==>ey = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	744	868	
==>f) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacem <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	744	868	
==>f) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3694	4079	
==>tc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless define <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3694	4079	
==>tc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless define <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	264	362	
==>rl6::Run::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs = " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1506	1611	
==>s Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1506	1611	
==>s Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14180	14288	
==>,
  using  => sub { system "tar", "-xvjf", $grub_local, "-C", $cdroot };

my $wrote_menulst = 0;
step
  descr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26271	26410	
==>t_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

method add_subclass (opaque $self: opaque $subc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2169	2325	
==>ate

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2099	2251	
==>ate
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4842	5037	
==>member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4842	5037	
==>member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18712	18820	
==>=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document describes R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22194	22302	
==>=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This document describes R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11230	11349	
==>we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11230	11349	
==>we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9142	9256	
==>aw, map join("", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31472	31570	
==>nd; otherwise, it is ahead.

=item down

Whether this object creates a deeper scope (like an OPEN). <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3871	3963	
==>doesn't know about @ISA
	$self->{symbol} = $class_that_should_be->symbol;
	$self->{class_that <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9908	10103	
==>lose;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9908	10103	
==>lose;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39961	40067	
==>e License, or (at your option) any later version.  You
should have received a copy of the LGPL as part of t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39961	40067	
==>e License, or (at your option) any later version.  You
should have received a copy of the LGPL as part of t <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	382	506	
==>un_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	382	506	
==>un_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14207	14325	
==>on @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17684	17802	
==>on @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @r_w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1893	1992	
==>sion 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1893	1992	
==>sion 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docume <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3744	3845	
==>pped with Pugs.
  --bash=$bash
    linuxrc needs a bash-compatible shell.
  --inputrc=$inputrc
    The <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6943	7075	
==>lse {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6943	7075	
==>lse {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2378	2530	
==>hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2378	2530	
==>hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after w <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2171	2328	
==>0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         , <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2171	2328	
==>0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         , <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	859	972	
==>per( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::string_concat {
    my $a = emit(g <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24636	24731	
==>ble::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25608	25703	
==>ble::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2787	2890	
==>GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2787	2890	
==>GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14652	14767	
==>c_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $tex <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14652	14767	
==>c_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $tex <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6263	6397	
==>ys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_mu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16906	17009	
==>6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom(pattern, <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14594	14698	
==>The regexp compiler hook generally gets the pattern _after_ variable
  interpolation has occured.  But no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2329	2455	
==>$flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2469	2595	
==>$flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1406	1507	
==>Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1406	1507	
==>Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36983	37091	
==>slate_message( $message );

=back

The Translator class also has these utility methods, which are all used by <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36983	37091	
==>slate_message( $message );

=back

The Translator class also has these utility methods, which are all used by <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7368	7470	
==>d_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($ki <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7368	7470	
==>d_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($ki <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7147	7304	
==>osure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit ex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7147	7304	
==>osure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	273	377	
==>ipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	273	377	
==>ipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=h <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5543	5651	
==>er_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5543	5651	
==>er_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=he <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1994	2141	
==>ug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1994	2141	
==>ug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	75	170	
==>rt MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	75	170	
==>rt MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls wh <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1603	1716	
==>== $cap { return @matches }
    }
    @matches
} 

sub parse_args (Str $x) returns Array is export{
    my @args = <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1125	1242	
==>TP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Tim <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1092	1209	
==>TP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Tim <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8851	8972	
==>,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8851	8972	
==>,
      # but I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1475	1618	
==>pe}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($message)";
    } => 'Dis <==
2	/Users/nnunley/pugs/util/package-osx.pl	7490	7587	
==>ncy.3pm
        /usr/local/man/man3/Perl6::Spec::Documentation.3
        /usr/local/man/man3/Perl6 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18498	18631	
==>UBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18498	18631	
==>UBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6751	6878	
==>ta_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6751	6878	
==>ta_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Ro <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1154	1291	
==>.
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub ur <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1154	1291	
==>.
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub ur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1228	1337	
==>s we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_de <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1228	1337	
==>s we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_de <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6731	6863	
==>ure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6731	6863	
==>ure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8616	8775	
==>eason for the TODO    
        my %todos;
        foreach my $detail (@{$results{details}}) {
            if ($detail->{type} eq 'todo') {
                if ($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6346	6474	
==>ernative( package => $unlink_this )
            if $unlink_this;

        ### link the files
        return unless $self->link_fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1812	1911	
==>ng the ciphertext version.  Most 
algorithms will have a key, which will be specified in the options <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1812	1911	
==>ng the ciphertext version.  Most 
algorithms will have a key, which will be specified in the options <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20831	20946	
==>(symbol new DESTROY)))))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('DESTROYAL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	457	552	
==>QUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.prin <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	457	552	
==>QUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.prin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	187	297	
==>erl6 {
    $.name = $name;
    return $?SELF;
}

method addMethod(Method--Perl6 $meth) {
    ...
}

method appl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13216	13346	
==>),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13216	13346	
==>),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19521	19618	
==>urhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19521	19618	
==>urhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17884	17982	
==>being
used by the originating server program handling the request.

=item $h.from

This header shou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17884	17982	
==>being
used by the originating server program handling the request.

=item $h.from

This header shou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4942	5051	
==>rted.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATION <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4942	5051	
==>rted.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUGS AND LIMITATION <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3763	3879	
==>C, "G", " in character class") if $cc;
    return $S->force_object(anyof_char => 'G') if $cc;
    return $S->object(g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34618	34709	
==>er::THING> (if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is the defini <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1710	1827	
==>(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1710	1827	
==>(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!par <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1371	1489	
==>ingify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1371	1489	
==>ingify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	374	501	
==>nfix', 
    );
    Pugs::Grammar::Operator::add_rule( $self, %opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	56	156	
==>al;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigge <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	56	156	
==>al;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	348	440	
==>put_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$inp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	348	440	
==>put_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$inp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7707	7804	
==>method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7707	7804	
==>method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2968	3065	
==>tring is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2968	3065	
==>tring is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5927	6017	
==>".$::X::cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X::cap->[-1]) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1393	1493	
==>od.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1393	1493	
==>od.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_S <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8318	8579	
==>new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym-> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6140	6267	
==>ch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.sp <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6140	6267	
==>ch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.sp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14005	14124	
==>=> sub { $_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $as_array_complain->("code") },
      ref   => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18766	18908	
==>es
        local($@, $!);  # eval sometimes resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3149	3252	
==>_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3149	3252	
==>_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5964	6073	
==>ent ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5964	6073	
==>ent ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15071	15170	
==>$self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9270	9369	
==>$self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36534	36643	
==>ial.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation is identical to <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41083	41192	
==>ial.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation is identical to <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8062	8177	
==>%mods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignorecase");
#           warning "PGE doe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2010	2120	
==>ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2161	2271	
==>ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18086	18198	
==>rname>, and C<ircname> you've
specified in the constructor. If the nickname is already used, this module
will try <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18086	18198	
==>rname>, and C<ircname> you've
specified in the constructor. If the nickname is already used, this module
will try <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2307	2408	
==>mp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'br <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1147	1259	
==>`new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1147	1259	
==>`new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6005	6112	
==>or capture

At runtime, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5813	5917	
==>or capture
At runtime, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1808	1926	
==>embers;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1808	1926	
==>embers;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1021	1132	
==>)
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native + $righ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16377	16485	
==>control = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16377	16485	
==>control = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => ( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11883	12003	
==>g other than C<E<lt>=E<gt>> or
C<cmp>.

=back

Any Criterion may recieve either or both of the traits C<is descending>
an <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18412	18517	
==>res that id is polymorphic when used in a let expr.
my $id_pair = let(
	ide => "id",
	is => $id,
	in => co <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4820	4930	
==>il = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usage <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15058	15175	
==>e Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15058	15175	
==>e Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15812	15911	
==>004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15812	15911	
==>004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8939	9038	
==>ETHODS

The following methods are available for Set::Infinite objects:

- `start()` / `end()`

Retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8939	9038	
==>ETHODS

The following methods are available for Set::Infinite objects:

- `start()` / `end()`

Retur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2217	2346	
==>der::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or missi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	638	733	
==>_digest = (
    Blondie::Prelude->env->get('$*OUT')->digest => Val(\*STDOUT),
    map { native($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24519	24620	
==>r
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundation (L<ht <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24519	24620	
==>r
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundation (L<ht <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	521	621	
==>s
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually must <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6760	6847	
==>b_application => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE') <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5144	5322	
==>er_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5144	5322	
==>er_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4230	4407	
==>'../..'
    : $self->{_top}{base};

    # Escape ' and \ in $base pathname 
    $base =~ s{(['\\])}{\\$1}g;

    eval "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3657	3812	
==>ence->new($val);            
            $closure->do(list->new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure->isa(' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8688	8796	
==>e} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set oper <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8688	8796	
==>e} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set oper <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7306	7411	
==>s) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7306	7411	
==>s) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7086	7209	
==>OADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TY <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7086	7209	
==>OADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TY <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1030	1131	
==>nd-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional pr <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1030	1131	
==>nd-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional pr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10020	10118	
==>s are
added to Pugs, new test functions will be defined to facilitate the
testing of those features <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10078	10176	
==>s are
added to Pugs, new test functions will be defined to facilitate the
testing of those features <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	10001	10115	
==>y $self = shift;
    my $text = shift;
    my $sep = File::Spec->catdir('');
    $text =~ s{\b/}{$sep}g;
    return <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10884	10992	
==>itable
for putting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8374	8509	
==>nt STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (key <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2958	3072	
==>rno";
    while (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32894	32993	
==>ethod, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32894	32993	
==>ethod, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2316	2424	
==>ks resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2316	2424	
==>ks resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8792	8931	
==>alues ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8792	8931	
==>alues ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4042	4131	
==>0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4042	4131	
==>0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4240	4371	
==>capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4252	4383	
==>capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10144	10245	
==>hich can be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUC <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10144	10245	
==>hich can be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24807	24951	
==>ly . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "($self->{nparen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	774	909	
==>t @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	774	909	
==>t @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3237	3337	
==>rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not mat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6714	6814	
==>rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8050	8188	
==>expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8050	8188	
==>expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!co <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3042	3155	
==>oo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is n <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3042	3155	
==>oo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14215	14323	
==>e control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, fo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14215	14323	
==>e control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, fo <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5951	6081	
==>e = 'bailout';
        $self->{saw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $l <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	14	124	
==>s Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Cod <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	14	124	
==>s Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Cod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16973	17089	
==>ack
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16973	17089	
==>ack
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3319	3434	
==>---------------------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scrip <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	262	368	
==>N);

sub Meta { shift }

my @scalar_keys = qw<
    name module_name version abstract author license
    dis <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6329	6426	
==>:)

# Class gets a special case Does
# to avoid endless recursion
$Class->add_method('does' => sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5667	5849	
==>tions () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method transl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5667	5849	
==>tions () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method transl <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1195	1291	
==>2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'J <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1406	1502	
==>2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'J <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2764	2891	
==>$.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        el <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2764	2891	
==>$.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        el <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1347	1461	
==>]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even though it uses t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1347	1461	
==>]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even though it uses t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5815	5924	
==>ly method that truly must be implemented is the 
one that actually enciphers the data.  They may choose, howev <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5815	5924	
==>ly method that truly must be implemented is the 
one that actually enciphers the data.  They may choose, howev <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2692	2799	
==>object has the following public attributes:

=over 8

=item C<$r.method>

The request method used (for examp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2692	2799	
==>object has the following public attributes:

=over 8

=item C<$r.method>

The request method used (for examp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16201	16315	
==>sage"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Rule" ]

.sub "p6rule"
    .param pmc mob
    .l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3945	4047	
==>urn $status;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12211	12330	
==>eric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_comma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12211	12330	
==>eric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_comma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	982	1076	
==>rList of Mapping{Relation::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5666	5826	
==>h_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5666	5826	
==>h_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8788	8911	
==>constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8981	9104	
==>constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	710	1124	
==>dator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	710	1124	
==>dator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20325	20437	
==>f $file ~~ rx:perl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $file";
    undef;
  }
  else {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	181	283	
==>::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	181	283	
==>::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_r <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	70	184	
==>ur $iso8601_duration_re_anchored = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.da <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14453	14560	
==>'t apply non function type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arrow;
	
	
	my $p_f = $ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1591	1701	
==>on, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) > <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1591	1701	
==>on, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) > <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9301	9440	
==>plement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9301	9440	
==>plement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        uni <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2127	2234	
==>jects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter kludge. not e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	376	470	
==>mplementation.  So while limited superficial success proved
# straightforward, a more robust so <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	679	794	
==>nder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	679	794	
==>nder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extrac <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1904	2043	
==>sn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1904	2043	
==>sn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2657	2751	
==>_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2657	2751	
==>_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34038	34138	
==>.
When translating a message, a match in found in the most preferred language
is used.  Each Set Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34038	34138	
==>.
When translating a message, a match in found in the most preferred language
is used.  Each Set Name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15465	15584	
==>t.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!buc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15465	15584	
==>t.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!buc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12445	12605	
==>($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $c = $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15653	15793	
==>.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $sel <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	446	544	
==>d.new(...))

 $role.apply;

=head1 DESCRIPTION

This object represents a Role.

A Role is a composa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1146	1257	
==>ing?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1146	1257	
==>ing?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query str <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4370	4516	
==>d_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4370	4516	
==>d_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5736	5856	
==>$done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5736	5856	
==>$done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	572	686	
==>ler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	572	686	
==>ler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4095	4200	
==>nerates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3951	4054	
==>nerates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	860	964	
==>rpc_rule->match($str)  for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->match($str) for 1. <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7908	8009	
==>`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newest_p_s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1428	1569	
==>>new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Te <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1428	1569	
==>>new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13295	13400	
==>Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
removed header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13295	13400	
==>Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
removed header <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	433	551	
==>turns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$uns <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	433	551	
==>turns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$uns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5343	5484	
==>le'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5536	5677	
==>le'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10003	10093	
==>permit \misc, no?
set_metachar("\\").
set_metachar("]").
set_metachar("-").
p5_charset_item <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1656	1760	
==>an.

- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJECT M <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1656	1760	
==>an.

- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJECT M <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7503	7601	
==>" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a la <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7503	7601	
==>" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a la <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9064	9176	
==>captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = << <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9052	9164	
==>captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = << <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15425	15525	
==>extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15425	15525	
==>extension
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node c <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	63	304	
==>t

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            3 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	63	304	
==>t

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            3 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1643	1750	
==>valents live in Installation.pm
$config{'_meta_dir'}        = [ Path::Class::dir('_jib')            ];
$conf <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2832	2953	
==>$x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$func~' (  Num  $x             ; :$bas <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9293	9390	
==>other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12770	12867	
==>other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1199	1303	
==>ADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2364	2468	
==>ADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11509	11648	
==>p1} ) . 
            ", 'Pugs::Runtime::Perl6::Scalar::Alias', " .
            "\\" . _emit( $n->{exp2} );
    }

    if ( exists $n->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35478	35577	
==>ns all Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35478	35577	
==>ns all Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15444	15537	
==>tes a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal prop <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15444	15537	
==>tes a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal prop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3528	3639	
==>if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can pro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3528	3639	
==>if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can pro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	288	426	
==>'( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18876	18999	
==>curr > $next ) {
        print "Test output counter mismatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        pri <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	287	415	
==>)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the usefu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	287	415	
==>)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the usefu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	399	490	
==>iler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	399	490	
==>iler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7213	7317	
==>SSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code int <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7213	7317	
==>SSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code int <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	100	191	
==>use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Tex <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	100	191	
==>use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Tex <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8895	9022	
==>plement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8895	9022	
==>plement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8216	8351	
==>tch.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(mark <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8216	8351	
==>tch.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(mark <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8843	8985	
==>quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8839	8981	
==>quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3137	3329	
==>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3384	3576	
==>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20863	21100	
==>uleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21142	21379	
==>uleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12997	13088	
==>escribes the same-number versions of Locale::KeyedText::Message
("Message") and Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12997	13088	
==>escribes the same-number versions of Locale::KeyedText::Message
("Message") and Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6285	6383	
==>l' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6285	6383	
==>l' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18607	18792	
==>ule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18886	19071	
==>ule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12357	12459	
==>lass represents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
Th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12357	12459	
==>lass represents a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4723	4830	
==>D__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provid <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4863	4970	
==>D__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provid <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2424	2520	
==>er of bytes and throwing the return value away.
Encryptions after this point will be using strong <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2424	2520	
==>er of bytes and throwing the return value away.
Encryptions after this point will be using strong <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7806	7909	
==>a_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.def <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7864	7967	
==>a_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.def <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11505	11611	
==>pecified"
	    unless defined $args{args} or defined $args{switches}
		or defined $args{stdin};
    }
    i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4623	4728	
==>2.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the ye <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4623	4728	
==>2.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the ye <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3615	3729	
==>r = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3673	3787	
==>r = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	69	201	
==>regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	69	201	
==>regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4475	4614	
==>false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36525	36624	
==>arser->visual, "\n";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*foo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2832	2961	
==>ift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "d <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2832	2961	
==>ift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13164	13284	
==>te().get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for detai <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13164	13284	
==>te().get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for detai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2959	3086	
==>cfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2959	3086	
==>cfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6506	6625	
==>] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ': <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6506	6625	
==>] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ': <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9229	9459	
==>str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runtime::Perl5::RuleOps::emit_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	189	288	
==>$person}!".say;
	}
}
#=aufrufen polymorpher Methoden
Person $person = new Person;
$welt.hallo($perso <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22419	22549	
==>= $max_namelen + length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4154	4254	
==>orwardSlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineCo <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	996	1093	
==>eturns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B<remot <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	996	1093	
==>eturns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B<remot <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3027	3136	
==>dex) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Argument <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3027	3136	
==>dex) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Argument <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	977	1362	
==>"fontcolor = grey60, "
                            :
                            "color = green, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "lab <==
2	/Users/nnunley/pugs/util/grokprims.pl	506	617	
==>gs =~ m/\((.*)\)/ or die "Bad args spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $asso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4714	4836	
==>gex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex->compil <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11852	11966	
==>}
      $link->{sourcepath}=$output_path;
      $output .= $text;
      my $syn_path = catfile($output_dir, "Synops <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2006	2158	
==>$block) . "    ;\n" .
        # "    }\n" .
        "    push \@grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20153	20251	
==>ield labeled "Internal use only" is one of the most widely used. ;)
It get's is own section, elsewh <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2539	2678	
==>~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2539	2678	
==>~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7398	7511	
==>on( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10875	10988	
==>on( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	474	575	
==>lf = shift;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$self->{dups}->insert($n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	93	189	
==>aracter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	93	189	
==>aracter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal meth <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1965	2078	
==>s{.*/}{} unless -e $file;
        die "all_from: cannot find $file from $name" unless -e $file;
    }

    $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7246	7393	
==>{
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7234	7381	
==>{
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3280	3484	
==>ail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3175	3374	
==>ail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4634	4731	
==>eturn> clause.

=head2 ""

When used as a string, the match object returns the stringified version <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4634	4731	
==>eturn> clause.

=head2 ""

When used as a string, the match object returns the stringified version <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23195	23288	
==>te it, which could
produce ambiguous results or associations.  Or alternately, the other
packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23195	23288	
==>te it, which could
produce ambiguous results or associations.  Or alternately, the other
packa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1152	1259	
==>bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1152	1259	
==>bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C< <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13354	13472	
==>the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

gre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13354	13472	
==>the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

gre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8154	8265	
==>module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is workin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8154	8265	
==>module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is workin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3424	3556	
==>name>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3424	3556	
==>name>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event< <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15232	15355	
==>ns Time::Local
        is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2555	2694	
==>it>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Pla <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2555	2694	
==>it>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Pla <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15240	15345	
==>y-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18717	18822	
==>y-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapp <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15623	15729	
==>e Kanji in a Byte uplifted to an LChar).

Attempting to use a string at a level lower than what it supports <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13241	13345	
==>->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6716	6820	
==>->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	149	255	
==>property of the object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	149	255	
==>property of the object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method d <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26009	26097	
==>X,L), listify_lists(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R,RS), lis <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7484	7578	
==>l 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iint <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1712	1806	
==>l 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iint <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22038	22154	
==>p knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16940	17055	
==>p knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10900	11005	
==>ng onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = shift;

    $self->{_old5lib} = $ENV{PERL5 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3911	4009	
==>ns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3911	4009	
==>ns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1942	2046	
==>nd_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1942	2046	
==>nd_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24707	24826	
==>|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21128	21247	
==>|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_han <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14873	14971	
==>routine is I<not> exported by default.  But you can always
export it with C<use HTML::Entities qw(e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14873	14971	
==>routine is I<not> exported by default.  But you can always
export it with C<use HTML::Entities qw(e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9306	9418	
==>push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11621	11733	
==>push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3948	4046	
==>::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3948	4046	
==>::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1501	1619	
==>stamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1501	1619	
==>stamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcon <==
2	/Users/nnunley/pugs/util/package-osx.pl	4578	4675	
==>::S03.3pm
        /usr/local/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bib <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8672	8771	
==>rn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8672	8771	
==>rn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	252	388	
==>"emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; mayb <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	340	476	
==>"emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; mayb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8985	9112	
==>$program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8973	9100	
==>$program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3011	3167	
==>t_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $self->get_t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1373	1468	
==>);
    $optable->addToken("circumfix:( )", "term:", "nows", "PGE::Exp::Group");
    $optable->ad <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13512	13603	
==>e
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13512	13603	
==>e
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=he <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3308	3423	
==>t.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersectio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3308	3423	
==>t.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method intersectio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18122	18271	
==>lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14543	14692	
==>lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	257	502	
==>:constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	258	503	
==>:constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	153	272	
==>PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source-> <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	354	485	
==>head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    p <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	354	485	
==>head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2597	2696	
==>{ expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2597	2696	
==>{ expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	252	374	
==>ttr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	252	374	
==>ttr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4594	4692	
==>.cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4594	4692	
==>.cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciph <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2724	2826	
==>span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2724	2826	
==>span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.un <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1067	1164	
==>ges to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed. <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1067	1164	
==>ges to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1488	1586	
==>.

However, pugs critical path is currently more oo than rules, my time
is limited, and there are o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7250	7340	
==>ubBody) {
    code_helper($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pS <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4892	4989	
==>actor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4892	4989	
==>actor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) retu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5491	5652	
==>hile @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' b <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5491	5652	
==>hile @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21306	21404	
==>pyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21306	21404	
==>pyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3397	3494	
==>e 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3581	3678	
==>e 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicod <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	425	544	
==>("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilenam <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	425	544	
==>("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilenam <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7602	7702	
==>xit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and try again, tha <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19393	19503	
==>width by printing only once
# per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _pri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31897	31989	
==>ions will fail to compile and throw an
error (specifically, B<RPe_NOTREC>, "Sequence (?xx not <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6254	6350	
==>ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6254	6350	
==>ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24689	24857	
==>m2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24968	25136	
==>m2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7234	7382	
==>ure} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7234	7382	
==>ure} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8584	8679	
==>opyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8584	8679	
==>opyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6582	6681	
==>thod should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variabl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6582	6681	
==>thod should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variabl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7407	7499	
==>r $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7407	7499	
==>r $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2085	2210	
==>okens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2085	2210	
==>okens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $bu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39116	39217	
==>e Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39116	39217	
==>e Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12337	12438	
==>e current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite lik <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12337	12438	
==>e current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite lik <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3501	3610	
==>a) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3501	3610	
==>a) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1000	1126	
==>object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1000	1126	
==>object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10058	10177	
==>root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10058	10177	
==>root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5684	5834	
==>e(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5684	5834	
==>e(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2881	3062	
==>ir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preins <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15261	15360	
==>the input string).

If you prefer not to import these routines into your namespace, you can
call the <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15261	15360	
==>the input string).

If you prefer not to import these routines into your namespace, you can
call the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19081	19189	
==>}
}

(method BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	287	391	
==>tribute;
use Perl6::MM::C3;

use Carp 'confess';
use Scalar::Util 'blessed';

# create our basic variable <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3550	3670	
==>ce_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6367	6482	
==>);

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass method fails';

is($iBar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11213	11325	
==>);

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass method fails';
fails_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10846	10971	
==>AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10846	10971	
==>AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7539	7680	
==>ge_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7539	7680	
==>ge_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21273	21367	
==>to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21273	21367	
==>to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5847	5945	
==>nslate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5847	5945	
==>nslate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1895	2035	
==>tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # interse <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1895	2035	
==>tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # interse <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2048	2219	
==>or_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2048	2219	
==>or_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	371	480	
==>->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorab <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	371	480	
==>->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorab <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1232	1355	
==>s Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1232	1355	
==>s Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1898	1997	
==>xpected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1956	2055	
==>xpected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depend <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7535	7649	
==>ift;
    my $index    = shift;
    
    return unless exists $index->{_dirs} or exists $index->{_files};
    collap <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10342	10439	
==>ef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11077	11174	
==>ef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9054	9182	
==>my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CON <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9054	9182	
==>my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CON <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	18	117	
==>rldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	18	117	
==>rldoc::DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25281	25403	
==>capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25560	25682	
==>capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25939	26058	
==>capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26218	26337	
==>capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1' <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5084	5201	
==>'ghc' . $Config{_exe} ) );

    # This local subroutine returns the version of ghc passed to it.

    my $test_ghc_ver <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	200	300	
==>e JIB::Package::Installable;

use File::Spec;
use File::Basename          qw[basename];
use Params::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11663	11776	
==>rnation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12021	12134	
==>rnation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15891	15999	
==>t::More

Information about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audre <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15949	16057	
==>t::More

Information about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audre <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9332	9426	
==>---
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp::StructHook::regexp_hook_on <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18214	18311	
==>r, such as
'error opening file', programs would have a harder time figuring out the
best way to de <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18214	18311	
==>r, such as
'error opening file', programs would have a harder time figuring out the
best way to de <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2940	3084	
==>s($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $x_round <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8273	8371	
==>n "p6_applym('$fun_name',$argl)" if $fun_name;
	return "p6_applyi($fun,$argl)";
    }
    return "p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24407	24549	
==>ee 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular Express <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3817	3933	
==>h protos were already defined as functions
	
	my $type = $self->resolve_type($node); # unlike parametered thunks thes <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	561	709	
==>unded, " .
                    "label = \"" . $node->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11519	11633	
==>T;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	375	501	
==>value            && 
     looks_like_number($value) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3926	4045	
==>lf)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_fil <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3335	3431	
==>path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3335	3431	
==>path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1624	1734	
==>ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1624	1734	
==>ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $exp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2812	2933	
==>",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# .pmc file i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2812	2933	
==>",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# .pmc file i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2219	2343	
==>rt";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2219	2343	
==>rt";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14146	14258	
==>.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14146	14258	
==>.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	467	564	
==>ub to_str { shift }

# conversion to other native types
sub to_bit { (shift)->to_native() ? bit->n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5589	5687	
==>tabase access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5589	5687	
==>tabase access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9389	9505	
==>sername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9389	9505	
==>sername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    serve <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20946	21046	
==>r
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20946	21046	
==>r
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based mo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1597	1693	
==>EE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 068 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1597	1693	
==>EE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 068 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	969	1081	
==>it(get_data($_[0], '$<a>'));
    my $b = emit(get_data($_[0], '$<b>'));
	return $a.'.'.$b;
}
sub node::grammar_na <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1147	1242	
==>urce package

=head2 $meta = $pkg->meta

The JIB::Meta object associated with this package

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3088	3230	
==>dy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3099	3241	
==>dy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17961	18061	
==>led with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it use <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2320	2420	
==>led with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it use <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6103	6213	
==>trict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9580	9690	
==>trict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1802	1920	
==>l...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1802	1920	
==>l...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8029	8141	
==>nite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8029	8141	
==>nite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	348	458	
==>ur filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	348	458	
==>ur filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.g <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	708	816	
==>om_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	708	816	
==>om_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31232	31339	
==>. })> assertions:

  package Regexp::NoCode;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5320	5480	
==>t_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'E <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5838	5974	
==>t_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'E <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6377	6524	
==>tripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no leading dot, i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6377	6524	
==>tripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no leading dot, i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	369	496	
==>e this to not have to load the module if possible
sub can_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	227	337	
==>y ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $sc <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	263	372	
==>y ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($sc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	542	683	
==>),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SYNOP <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	410	533	
==>_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_START' exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1821	1953	
==>-> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1821	1953	
==>-> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $me <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9723	9816	
==>$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9723	9816	
==>$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14516	14618	
==>s Pugs grows, so will it's
testing needs. This module will be the code support for those needs. The
fol <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14574	14676	
==>s Pugs grows, so will it's
testing needs. This module will be the code support for those needs. The
fol <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	517	630	
==>:events and call it.
  my method step () {
    return unless @:events;

    my $callback = shift @:events;
    ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15220	15326	
==>> sub { p6_as_hash(${$_[0]}) },
      perl5_object => sub { \%{$_[0]} },
      perl6_object => sub { $_[0]- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1270	1380	
==>r must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters en <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1270	1380	
==>r must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6384	6496	
==>int Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6384	6496	
==>int Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10136	10265	
==>lse {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10130	10259	
==>lse {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4400	4505	
==>output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4400	4505	
==>output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16971	17091	
==>y $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4854	5012	
==>$match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4854	5012	
==>$match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3143	3279	
==>ame - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3360	3496	
==>ame - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1253	1373	
==>_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1253	1373	
==>_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1067	1220	
==>.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1067	1220	
==>.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8680	8773	
==>odule_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8680	8773	
==>odule_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1532	1645	
==>e Blondie::Node::Atomic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blond <==
2	/Users/nnunley/pugs/util/package-osx.pl	5482	5579	
==>/usr/local/man/man3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Perl6::FAQ::FUD.3pm
        /usr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9437	9649	
==>od new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          return <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2286	2388	
==>ytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2286	2388	
==>ytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3251	3352	
==>mentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3136	3233	
==>mentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	521	659	
==>se(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	618	756	
==>se(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18211	18366	
==>];
            $ai++;
        }

        given $specifier {
            when any(<c d u o x b i>) {
                $str ~= Pugs::Internals::sprintf($conver <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1060	1170	
==>seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild... " if $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3357	3473	
==>$tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshif <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3357	3473	
==>$tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9526	9639	
==>.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9526	9639	
==>.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.del <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3472	3599	
==>_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3472	3599	
==>_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17550	17650	
==>L documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17550	17650	
==>L documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This heade <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	839	954	
==>y $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)} <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	137	236	
==>e returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	137	236	
==>e returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is <==
2	/Users/nnunley/pugs/util/addauthors.pl	381	473	
==>rint Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3931	4039	
==>cter)
  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3976	4087	
==>ed attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3976	4087	
==>ed attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1305	1412	
==>:Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package My <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1305	1412	
==>:Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package My <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19133	19237	
==>ertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15554	15658	
==>ertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3279	3434	
==>e && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3279	3434	
==>e && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('A <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13764	13886	
==>lized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13764	13886	
==>lized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available langua <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	340	564	
==>ub { return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2021	2109	
==>e->addToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("post <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1398	1492	
==>s Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1398	1492	
==>s Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    ha <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22119	22219	
==>.= "::META";
    } else {
	my $space = $space_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22041	22172	
==>andler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18462	18593	
==>andler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3967	4077	
==>t preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

File <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3967	4077	
==>t preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

File <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1293	1427	
==>$col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_;
    prin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11252	11371	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11252	11371	
==>?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?S <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3671	3780	
==>tory.
  --pge=$pge
    mklivecd.pl takes --pge as the path of the PGE shipped with Pugs.
  --bash=$bash
    li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2760	2861	
==>mpiler could work as the

basic interface, and if you'd like to offer more, subclass

it and call it P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2658	2757	
==>mpiler could work as the
basic interface, and if you'd like to offer more, subclass
it and call it P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9749	9896	
==>not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9749	9896	
==>not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8893	9023	
==>eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8893	9023	
==>eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11230	11339	
==>ng (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Returns all elements bo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11230	11339	
==>ng (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Returns all elements bo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	170	276	
==>tored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate fro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	170	276	
==>tored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate fro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6954	7067	
==>= $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6954	7067	
==>= $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $ma <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1943	2050	
==>ression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1943	2050	
==>ression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19849	20115	
==>lock->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40309	40575	
==>lock->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9697	9794	
==>ses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9697	9794	
==>ses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Hea <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1330	1432	
==>R = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1330	1432	
==>R = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2955	3068	
==>$self) = @_;
  croak "no regex defined" unless &RxLEN;

  while (my $try = pop @{ $self->{next} }) {
    if (defin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5052	5198	
==>$size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5052	5198	
==>$size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	303	563	
==>s in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $^n ne $EMPT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3386	3502	
==>e $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croak "no regex defined" unless &RxLEN <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5665	5760	
==>hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5665	5760	
==>hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1970	2104	
==>,
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        precedence => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12006	12128	
==>ce that is right after the parameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12006	12128	
==>ce that is right after the parameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23775	23901	
==>EC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #de <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28976	29077	
==>EC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #de <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5609	5734	
==>form hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5609	5734	
==>form hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3397	3499	
==>es not handle time zones or leap
seconds.

All methods take named parameters unless otherwise specified <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3397	3499	
==>es not handle time zones or leap
seconds.

All methods take named parameters unless otherwise specified <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	625	781	
==>ined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	636	792	
==>ined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        captu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	352	475	
==>ubmethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a functi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	352	475	
==>ubmethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a functi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14089	14204	
==>nection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $aut <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14089	14204	
==>nection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $aut <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3229	3419	
==>'code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3229	3419	
==>'code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8999	9100	
==>e package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LK <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8999	9100	
==>e package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LK <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6993	7104	
==>if ( $Test::Harness::Debug ) {
        local $^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	459	558	
==>symbol = shift;

	foreach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $symbol <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5494	5655	
==>e @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5494	5655	
==>e @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8978	9084	
==>.



overload in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8683	8785	
==>.

overload in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16966	17064	
==>ainly to document a certain localization methodology
in an easily accessable manner, such that woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16966	17064	
==>ainly to document a certain localization methodology
in an easily accessable manner, such that woul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4286	4400	
==>. $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the right method return value');
is( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6188	6302	
==>. $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the right method return value');
is( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	313	435	
==>&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	313	435	
==>&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4838	4940	
==>name.

=back

The following are the (pseudo) methods for Config::Tiny objects. These
methods can be cal <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4838	4940	
==>name.

=back

The following are the (pseudo) methods for Config::Tiny objects. These
methods can be cal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8061	8197	
==>iscard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$do <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8061	8197	
==>iscard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$do <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14918	15016	
==>ou can always
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14918	15016	
==>ou can always
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46236	46364	
==>get('$self:')->get_attr(symbol->new('$:name'));
            }
        )
    )
);

$::Package->send('add_method' => (
    # method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	176	267	
==>se Pugs::Grammar::StatementControl;
use base 'Pugs::Grammar::Base';
use Carp;

use Data::Dum <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	436	541	
==>_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    operatorTable <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24569	24669	
==>:operator::arrow->new(
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	251	360	
==>Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	251	360	
==>Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4115	4231	
==>oad it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3970	4084	
==>oad it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => ' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35831	35947	
==>invocant Relation::Example, and returns a new Relation::Example that has the same heading
and whose body contains all <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37863	37979	
==>invocant Relation::Example, and returns a new Relation::Example that has the same heading and
whose body contains all <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2180	2289	
==>y {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2180	2289	
==>y {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.del <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12155	12265	
==>[^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12155	12265	
==>[^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	518	628	
==>t $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1376	1486	
==>t $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2489	2593	
==>t {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @P <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2489	2593	
==>t {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @P <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4480	4595	
==>(\@tokens));
# tokens should be longest-match-first, but that's simple too, and the
# difference won't matter for th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3215	3329	
==>->new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6842	6965	
==>ss. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6900	7023	
==>ss. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "n <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	311	425	
==>dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_f <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	311	425	
==>dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23491	23580	
==>ion files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23491	23580	
==>ion files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	112	221	
==>import';
use Data::Dumper;
use strict;
our @EXPORT_OK = qw(rule);

sub compiled {
    my $class = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2037	2141	
==>'*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item g <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2037	2141	
==>'*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item g <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1819	1942	
==>Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1819	1942	
==>Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3043	3238	
==>=== $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6520	6715	
==>=== $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8852	8959	
==>unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8559	8664	
==>unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to ca <==
2	/Users/nnunley/pugs/util/func_refact.pl	1570	1716	
==>w is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4829	4927	
==>file =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13584	13682	
==>terminated is TRUE then we also unterminated named
entities will also be expanded.  The longest mat <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13584	13682	
==>terminated is TRUE then we also unterminated named
entities will also be expanded.  The longest mat <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	353	457	
==>\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	353	457	
==>\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26988	27082	
==>on has
the complement subset of the original's attributes to what C<project> would
return given <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31540	31634	
==>on has
the complement subset of the original's attributes to what C<project> would
return given <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1781	1929	
==>}
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1781	1929	
==>}
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9093	9188	
==>num Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9093	9188	
==>num Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	747	858	
==>sity>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    i <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	747	858	
==>sity>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    i <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	822	948	
==>pt = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = 0) is builtin is primitive {
    Perl6::Internals::exit $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5856	5975	
==>- the name of the rule that will parse operands.

=head2 add_op ()

Instance method.  Adds a new operator to the categor <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5886	5991	
==>----------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5886	5991	
==>----------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	346	604	
==>ckages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	346	604	
==>ckages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35941	36041	
==>s method returns an array ref having all combinations of this object's
Set Names and Member Names ele <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35941	36041	
==>s method returns an array ref having all combinations of this object's
Set Names and Member Names ele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5172	5357	
==>( $n->{param}{cpan_bareword} =~ /^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ",Dumper $n;
            if ( $n-> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6417	6535	
==>inted
to the selected default filehandle for output (normally STDOUT) as
data is received from the network.  If the req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6417	6535	
==>inted
to the selected default filehandle for output (normally STDOUT) as
data is received from the network.  If the req <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12899	13003	
==>er perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12899	13003	
==>er perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1504	1607	
==>ules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1504	1607	
==>ules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	128	233	
==>I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	128	233	
==>I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15299	15436	
==>has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15299	15436	
==>has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.f <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26590	26690	
==>is pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15087	15192	
==>Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15087	15192	
==>Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1857	2062	
==>h('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.pus <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1857	2062	
==>h('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.pus <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3708	3823	
==>t epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3708	3823	
==>t epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5832	5977	
==>@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5832	5977	
==>@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4980	5088	
==>t) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4980	5088	
==>t) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18499	18608	
==>,
C<$bot.curhostname>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18499	18608	
==>,
C<$bot.curhostname>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2607	2714	
==>}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2607	2714	
==>}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11618	11724	
==>$node = shift;
    
    Scalar::Util::blessed($node) && $node->can("fmap")
        ? $node->fmap(sub { $sel <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5621	5722	
==>:caller(skip => $i++) err last;
            $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$ <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1954	2067	
==>xe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Config{ccflags} $exename.c\n";
    if (system("$C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2470	2692	
==><say>',
    #);
    
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->add_rule(
        name => '--',
        assoc => <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18782	18878	
==>AssignmentExpression>
}
rule AssignmentExpressionNoIn :words {  # see 11.13
      <ConditionalExp <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3886	4001	
==>> \) ]* }
rule capturing_group        { \( <pattern> \) }
rule noncapturing_group     { \[ <pattern> \] }
rule closu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2037	2146	
==>usage { print <<USAGE; exit }
Usage: $0 [options]

$0 creates a very minimalistic Pugs Live CD.
It fetches ker <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8936	9028	
==>::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is wri <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8936	9028	
==>::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is wri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25470	25569	
==>ed, provided that you include the source
code of the other components when and as the GPL requires d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25470	25569	
==>ed, provided that you include the source
code of the other components when and as the GPL requires d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9564	9662	
==>s code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9564	9662	
==>s code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_bloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	310	436	
==>formation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	310	436	
==>formation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Mult <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4163	4294	
==>\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4303	4434	
==>\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $s <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	688	799	
==>},
        sitescript     => $Config{installsitescript} || $Config{installscript},
        installbin     => $Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10289	10418	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10568	10697	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	715	822	
==>body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	715	822	
==>body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2717	2848	
==>ny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Re <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2717	2848	
==>ny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18977	19089	
==>__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the firs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18977	19089	
==>__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the firs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6733	6894	
==>. ', "\n"';
            }
            return " print '', $s" . ', "\n"';
        }
        if ( $n->{method}{bareword} eq 'perl' ) {
            return 'Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10820	10926	
==>niversal set".

The complement set of the universe is an empty set.

`:is_universe` must be set if this rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10820	10926	
==>niversal set".

The complement set of the universe is an empty set.

`:is_universe` must be set if this rec <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5092	5269	
==>ier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<strin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5092	5269	
==>ier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<strin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4370	4475	
==>scope stack will be popped, then the Seq will finish, the Thunk will
finish, the stacks will be popped onc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7578	7689	
==>t2exit($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self->_restore_PERL5LIB();

    return %result <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2611	2712	
==>',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', ' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12275	12407	
==>Digit>
    | <HexIntegerLiteral> <HexDigit>
}
rule HexDigit {  # see 9.3.1
      <[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	309	423	
==>ompile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::hash, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3419	3513	
==>l <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This libr <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3419	3513	
==>l <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This libr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3498	3670	
==>Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Wr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3498	3670	
==>Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Wr <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14029	14125	
==>C<%hash> in no apparent order, but the order
will be the same between successive calls to these f <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	809	947	
==>-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	809	947	
==>-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_u <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7913	8013	
==>method is being called, the Secret 
Police are breaking down the door and Our Heroes need any sensiti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7913	8013	
==>method is being called, the Secret 
Police are breaking down the door and Our Heroes need any sensiti <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	769	937	
==>//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't re <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	769	937	
==>//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2952	3078	
==>.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2952	3078	
==>.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11014	11146	
==>eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) {
        ret <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5600	5711	
==>er = Control::Caller::caller(skip => $i++) err last;
            $mess ~= "\n\t{$caller.package}::{$caller.subna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1610	1779	
==>\@state;
    }
}

sub concat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do {
            my $st = $nodes->[0]-> <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	25	134	
==>ML;
use strict;
use warnings;
our $VERSION = '0.01';

sub new { bless {}, shift }

sub load {
    my($self, $s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3923	4033	
==>intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3923	4033	
==>intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1013	1157	
==>has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1013	1157	
==>has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20474	20591	
==>{&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16895	17012	
==>{&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19497	19589	
==>meE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19497	19589	
==>meE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircnam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2361	2463	
==>atus_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2361	2463	
==>atus_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19125	19231	
==>flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15546	15652	
==>flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $of <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1780	1900	
==>$file = readdir DH ) {
            next if $file eq File::Spec->updir || $file eq File::Spec->curdir;
            next if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17611	17767	
==>mined dynamically.

=item Character Class Hashes

Character classes (I<anyof> objects) now have another attribute, C<charmap>,
which is a hash reference hold <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5675	5796	
==>ile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs::Grammar::Term.an <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6648	6753	
==>2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6648	6753	
==>2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2171	2290	
==>th = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { lo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2171	2290	
==>th = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2928	3024	
==>$r.remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP addre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2928	3024	
==>$r.remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP addre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	0	105	
==>use v6;

use HTTP::Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	0	105	
==>use v6;

use HTTP::Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!header <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7519	7634	
==>op() function gets as argument a list:



### we don't need a "high" level interface (named args) 

###    because t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7263	7375	
==>op() function gets as argument a list:

### we don't need a "high" level interface (named args) 
###    because t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	544	638	
==>RAN => --$ENUM, 'Switch (?(condition)... contains too many branches';
use constant RPe_SWUNKN = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	390	489	
==>for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCT <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	448	547	
==>for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5725	5995	
==>n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2075	2200	
==>Num $.string !! $.count }
        multi method as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	719	1142	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	719	1142	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A com <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5564	5687	
==>d) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method' => s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3514	3631	
==>d) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	162	276	
==>e" function gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "fla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	153	263	
==>e" function gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "fla <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	547	650	
==>id is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	605	708	
==>id is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8723	8831	
==>sts of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8781	8889	
==>sts of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::nu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1269	1359	
==>lf: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) }) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1269	1359	
==>lf: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) }) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7818	7974	
==>ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7818	7974	
==>ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15875	16003	
==>in, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10731	10859	
==>in, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nex <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	915	1039	
==>|++ if $Conf{verbose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{verbose};
        my %cc = ($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1045	1164	
==>@_ > 1 or "@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (map { "$_," } @_)
	) . "\n" . ("    " x ($in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2033	2125	
==>erl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2033	2125	
==>erl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3180	3282	
==>from( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8215	8331	
==>eans [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8215	8331	
==>eans [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2891	3002	
==>ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2891	3002	
==>ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36665	36760	
==>o)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm going to rewrite F<Re <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2813	2920	
==>t, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift) <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2813	2920	
==>t, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29747	29873	
==>tr $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29747	29873	
==>tr $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template modu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15042	15148	
==>ode_entities_numeric);>

=back

All these routines modify the string passed as the first argument, if
calle <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15042	15148	
==>ode_entities_numeric);>

=back

All these routines modify the string passed as the first argument, if
calle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10438	10540	
==>ue_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10438	10540	
==>ue_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req P <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	26	123	
==>005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	26	123	
==>005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all e <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17711	17805	
==>perator::nullary->new("str")),
);

# the polymorphic snd function takes any pair and returns it <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3433	3543	
==>9draft.pod.
# Prim.hs line is \\n   Scalar    pre     min     safe   (List)\
multi List::min(Code $cmp = &infix <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1641	1749	
==>, linking to 
    the links, and inserting a names where needed.

   Example:
     perl util/catalog_tests.pl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17840	17950	
==>output data from it.

You can create more than one DBMS object at a time, and they are
essentially all isolated <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17840	17950	
==>output data from it.

You can create more than one DBMS object at a time, and they are
essentially all isolated <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12555	12654	
==>things that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12555	12654	
==>things that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5846	5956	
==>ethod pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    retur <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5846	5956	
==>ethod pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	753	860	
==>oc
DOM tree.

It has one property - content.

The constructor for this class has a special shortcut syntax c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	753	860	
==>oc
DOM tree.

It has one property - content.

The constructor for this class has a special shortcut syntax c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	556	817	
==>724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	556	817	
==>724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Ros <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1095	1276	
==>roxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1095	1276	
==>roxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &u <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1072	1193	
==>ns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>steva <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1072	1193	
==>ns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>steva <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1480	1617	
==>an out the builddir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "Coul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8459	8616	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8459	8616	
==>cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4850	5040	
==>n { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4699	4884	
==>n { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1037	1159	
==>\\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*Func <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1037	1159	
==>\\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*Func <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1573	1676	
==>:PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1573	1676	
==>:PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1768	1891	
==>::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1768	1891	
==>::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	19	121	
==>ime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	19	121	
==>ime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01 <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	275	424	
==>unc( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    } <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	275	424	
==>unc( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	612	712	
==>(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	612	712	
==>(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1652	1801	
==>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1652	1801	
==>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7684	7818	
==>apture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7877	8011	
==>apture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capt <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1499	1600	
==>urn Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is cop <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1499	1600	
==>urn Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is cop <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	880	985	
==>ive
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Pe <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	880	985	
==>ive
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Pe <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11021	11115	
==>tr>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utilit <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11021	11115	
==>tr>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utilit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4160	4286	
==>er( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4160	4286	
==>er( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33297	33396	
==>age is found.  Since a
program or library may wish to override the user text of another library
whic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33297	33396	
==>age is found.  Since a
program or library may wish to override the user text of another library
whic <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5071	5175	
==>m) returns list>

=item B<length () returns num>

=item B<elem () returns num>

=item B<join (?str) retur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	903	1023	
==>ume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/] <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	903	1023	
==>ume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28214	28329	
==>$capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28493	28608	
==>$capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6920	7064	
==>E PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PThunk ($pThunk) {
    "(do{ ".DOWN($pThunk)."})";
}
NODE PCode ($pType, $p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3426	3557	
==>inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3426	3557	
==>inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2325	2444	
==>et($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operato <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2325	2444	
==>et($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operato <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1837	1976	
==>onstruct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    E <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1837	1976	
==>onstruct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    E <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16188	16284	
==>gstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else to <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20614	20710	
==>gstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25329	25425	
==>ocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29881	29977	
==>ocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complement of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4036	4163	
==>ale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4036	4163	
==>ale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1968	2085	
==>mpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1968	2085	
==>mpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	942	1087	
==>turn unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	903	1043	
==>turn unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18088	18217	
==>ets attached to the op tree.  The struct is used
variously to return the compiled regexp, to give input to a search,
and to get ba <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	557	673	
==>) err die "Stack underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3842	3951	
==>};

    if ($self->invocant) {
	croak 'invocant missing'
	    if !defined $args->{invocant};

	$self->invocant <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1040	1200	
==>-'" unless $doc;
            $doc->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry, nesting not supported: $_\n";
        die "can't pars <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6537	6648	
==>t => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5890	6027	
==>hod next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5890	6027	
==>hod next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4686	4897	
==>pts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16390	16484	
==>e macros C<\w>, C<\d>, etc.  Then this
example would be reversed into something like C</(\w+(?< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23266	23367	
==>ute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  L <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27818	27919	
==>ute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  L <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	985	1190	
==>tem|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buf <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	985	1190	
==>tem|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buf <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15321	15421	
==>so an
application written to it should behave identically no matter which
conforming "Engine" is in u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15321	15421	
==>so an
application written to it should behave identically no matter which
conforming "Engine" is in u <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	573	711	
==>tput)) 
                unless defined __('$:singleton');
            __('$:singleton');
        },
        'create' => sub { shift; $::CLA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5556	5737	
==>on inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5556	5737	
==>on inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16739	16882	
==>package Dumper;
use base qw/Reducer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32765	32861	
==>ted from the tree because of the stacked nature of the
tree.  However, having them returned while <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5456	5710	
==>ion) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5456	5710	
==>ion) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$k <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23774	23873	
==>ultiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, and doesn't kno <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23774	23873	
==>ultiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, and doesn't kno <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5387	5486	
==>channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5387	5486	
==>channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<fro <==
2	/Users/nnunley/pugs/util/version_h.pl	1055	1220	
==>Writing version from `svk info` to $version_h\n";
    if (my ($line) = grep /(?:file|svn|https?)\b/, @info) {
        ($revision) = $line =~ / (\d+)$/;
    } elsif (m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15612	15730	
==>$self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15278	15373	
==>s that deal with dates/times always convert their value to system
time (seconds since Jan 1, 197 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15278	15373	
==>s that deal with dates/times always convert their value to system
time (seconds since Jan 1, 197 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1928	2046	
==>tall {
    my $self = shift;
    msg("Package already installed");
    return $self;
}    

=head2 $bool = $inst_pkg->u <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8227	8316	
==>ead>
  <title>Pugs Smoke Reports</title>
  <meta http-equiv="Content-Type" content="text/h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1539	1670	
==>hase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1539	1670	
==>hase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6088	6198	
==><block>
        { return { sub_decl => $() ,} }
RULE
*{'sub_defin'} = Pugs::Compiler::Rule->compile(<<'RULE')-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8012	8126	
==>turn -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contai <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8012	8126	
==>turn -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	594	693	
==>e it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	594	693	
==>e it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10101	10225	
==>eturn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10380	10504	
==>eturn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1636	1763	
==>m$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCR <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1636	1763	
==>m$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCR <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14343	14456	
==>code I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>& <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14343	14456	
==>code I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>& <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52338	52430	
==>ing

# < Class is subclass of Object >
$::Class->set_attr(symbol->new('@:superclasses') => li <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7584	7713	
==>lication/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7584	7713	
==>lication/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($co <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	186	294	
==>e_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	186	294	
==>e_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node_filter   ($self:) returns Code <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8537	8671	
==>atchTest $test ;   *@values --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item joi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1799	1944	
==>e ."' is already installed --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10379	10493	
==>>object(quant => 0, 1);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4006	4114	
==>"compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4223	4331	
==>"compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die " <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7028	7148	
==>e   (Str: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule)\
\\n   List      pre     Str::s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3875	3964	
==>---------------------------------------------------------------
## removing children

meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3875	3964	
==>---------------------------------------------------------------
## removing children

meth <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9779	9895	
==>ng).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc-pkg; please set it in your GHC_PKG environmen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1142	1246	
==>n "package $ident;\n";
}
sub node::require_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4444	4569	
==>nitial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4444	4569	
==>nitial space for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5555	5715	
==>e v6\n";
            }
            # use module::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{b <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4412	4548	
==>NDLES';
    $args{base}     ||= $base_path;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  | <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2031	2169	
==>eatures by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3623	3757	
==>eatures by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6917	7018	
==>oterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backslash_digit:
    parse_error( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4348	4449	
==>s::Internals::install_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9067	9183	
==>_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9067	9183	
==>_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	147	256	
==>));

multi sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2059	2170	
==>t';

    package Blondie::App;
    use base 'Blondie::Node::List';

    package Blondie::Val;
    use base 'Blon <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26492	26589	
==>ver 4

=item my $obj = $parser->object(TYPE => ARGS...)

This creates a node of package C<TYPE> an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1774	1878	
==>er_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub * <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1774	1878	
==>er_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub * <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2391	2487	
==>ent>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2391	2487	
==>ent>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14878	15015	
==>_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14878	15015	
==>_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	727	827	
==>lice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this clas <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	727	827	
==>lice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this clas <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9303	9403	
==>or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are ti <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9303	9403	
==>or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are ti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15486	15585	
==>ave, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15486	15585	
==>ave, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4796	4917	
==>xport {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4796	4917	
==>xport {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7650	7756	
==>eturn $Result4;
}

# 9.8

# 9.9





class JSX::Value::Array;
submethod BUILD {
    $.property_attributes{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6800	6935	
==>s - not document ?

...



- rule()



### internals - move to module documentation



Rules, just like other Perl 6 values, exists in ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6571	6699	
==>s - not document ?
...

- rule()

### internals - move to module documentation

Rules, just like other Perl 6 values, exists in ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	629	753	
==>w { bless \(my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpP <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	393	490	
==>::Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cut

$V <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3554	3649	
==>:Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3554	3649	
==>:Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buff <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10167	10295	
==>ew(
        $::ENV, 
        closure::signature->new(
            closure::params->new(
                symbol->new("&dispatcher" <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7656	7757	
==>=> sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/incl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31419	31518	
==>ue when given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35969	36068	
==>ue when given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2669	2780	
==>erwise something false.

=cut

sub create {
    my $self = shift;
    my $conf = $self->config;

    $self->root <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12503	12827	
==>al.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encodin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12503	12827	
==>al.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encodin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3796	3892	
==>r> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3796	3892	
==>r> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7431	7556	
==>um ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7431	7556	
==>um ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11764	11869	
==>ting gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11822	11927	
==>ting gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wai <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16114	16219	
==>he argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a l <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16114	16219	
==>he argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2272	2418	
==>l};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2272	2418	
==>l};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	779	895	
==>nd intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	779	895	
==>nd intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uni <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1597	1684	
==>------------------------------------------------------------
## informational methods

m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1597	1684	
==>------------------------------------------------------------
## informational methods

m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14420	14525	
==>r.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14420	14525	
==>r.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3751	3901	
==>f->fetch;            
        }
        elsif ($closure->isa('block')) {
            my $ref = reference->new($val);  
            $closure->env->set(' <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	463	574	
==>new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	463	574	
==>new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1039	1137	
==>The C<:all> 
option will cause the module to shift across all byte values, not just the ones 
corre <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1039	1137	
==>The C<:all> 
option will cause the module to shift across all byte values, not just the ones 
corre <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	144	259	
==>geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
sub func( $arg is copy <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1634	1739	
==>engths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1634	1739	
==>engths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6863	7020	
==>revious ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6863	7020	
==>revious ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5553	5648	
==>d on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yaho <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5553	5648	
==>d on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yaho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8430	8589	
==>rn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8430	8589	
==>rn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1961	2084	
==>msg("Package already installed");
    return $self;
}    

=head2 $bool = $inst_pkg->uninstall

=cut

sub uninstall {
    my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1460	1574	
==>fe::Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER::new(type => $type);
	}

}

{
	pac <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11902	12013	
==>ve is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12305	12416	
==>ve is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12255	12388	
==>he previous element in the recurrence.

- `contains( $x )`

Returns true if the parameter is a member of the recurrence set.

- `close <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12255	12388	
==>he previous element in the recurrence.

- `contains( $x )`

Returns true if the parameter is a member of the recurrence set.

- `close <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	163	261	
==>eve freeze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1347	1491	
==>n { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1358	1502	
==>n { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2565	2666	
==>en

method get_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2565	2666	
==>en

method get_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6761	6885	
==>elf->{how}, ($self->{neg} ? '^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	392	490	
==>close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	392	490	
==>close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5545	5645	
==>oad a Rosetta Engine which will implement database access requests.
    my Rosetta::Interface::Engine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5545	5645	
==>oad a Rosetta Engine which will implement database access requests.
    my Rosetta::Interface::Engine <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15553	15693	
==>eturn $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on separate lines on VMS.
        # We catch this and remember we <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	163	252	
==>s", "PGE::Exp::Cut");
    $optable->addToken("term::::", "term:", "nows", "PGE::Exp::Cut") <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13282	13376	
==>_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13282	13376	
==>_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5146	5258	
==>ILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	900	992	
==>st::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	900	992	
==>st::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7109	7241	
==>ype_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7109	7241	
==>ype_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6400	6547	
==>h->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6400	6547	
==>h->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11206	11305	
==>) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2206	2300	
==>rg/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by usin <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2206	2300	
==>rg/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by usin <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10914	11018	
==>>
    Also note that, depending on the backend, the
    <code>ext/</code> tests may or may not be run, ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	368	465	
==>code, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	368	465	
==>code, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12930	13033	
==>ss (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12930	13033	
==>ss (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9075	9249	
==>8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9075	9249	
==>8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6971	7126	
==>, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6971	7126	
==>, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'nam <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2804	2900	
==>ugs_version osname duration summary runcore>) {
    print "The submitted smoke has an invalid for <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12473	12565	
==></span>,</td>
	      <td class="num tests_skipped"><span title="<tmpl_var name=skipped> skipp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15604	15746	
==>$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = spli <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15598	15740	
==>$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = spli <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5517	5675	
==>t',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5517	5675	
==>t',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5614	5733	
==>evious( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5614	5733	
==>evious( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5885	5990	
==>retry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5885	5990	
==>retry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1744	1844	
==>2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") doe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2066	2166	
==>2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") doe <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	536	683	
==>er_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => jo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	437	584	
==>er_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => jo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28049	28146	
==>ribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32601	32698	
==>ribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10436	10598	
==>t_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10715	10877	
==>t_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@gr <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3239	3375	
==>r, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $ke <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3239	3375	
==>r, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12155	12263	
==>jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12155	12263	
==>jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1898	2044	
==>l(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11116	11210	
==>y

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$loc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11116	11210	
==>y

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$loc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	384	486	
==>@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	384	486	
==>@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(? <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4516	4649	
==>ddot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4516	4649	
==>ddot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	141	264	
==>is document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.(' <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	141	264	
==>is document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7536	7723	
==>per; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workarou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7536	7723	
==>per; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workarou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3416	3509	
==>rl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module must be properly installed.

An impr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9329	9423	
==>ESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9329	9423	
==>ESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers con <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1425	1529	
==>ure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1425	1529	
==>ure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_prev <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3838	3981	
==>), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_comma <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3838	3981	
==>), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_comma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11587	11744	
==>heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Here <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11587	11744	
==>heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Here <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	168	299	
==>@_);
  }

  sub flags {
    my $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22586	22769	
==>'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method class (opaque $self:) retur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5403	5532	
==>.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5403	5532	
==>.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	0	117	
==>module Net::IRC-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	0	117	
==>module Net::IRC-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9409	9714	
==>ied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @lis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10886	11191	
==>ied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @lis <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	955	1070	
==>oin(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	955	1070	
==>oin(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4399	4510	
==>ment;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4399	4510	
==>ment;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13370	13480	
==>IX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7579	7689	
==>IX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38772	38876	
==>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38772	38876	
==>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4634	4735	
==>-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 "-Iinc"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iin <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1	95	
==>!/usr/local/bin/pugs
BEGIN {unshift @*INC, "/home/eric256/auto/pugs/ext/CGI/lib" };
use CGI;
#u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3005	3128	
==>"emitting grammar in perl6\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38971	39074	
==>n R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the same terms a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43785	43888	
==>n R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the same terms a <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1494	1606	
==>d_scalar_alias     {  \$\<<name>\>  \:\=  <construct>  }
rule array_alias            {  \@\<<name>\>  \:\=  <cons <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8488	8585	
==>s exist.
multi Array::max(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List::max $cmp, *@se <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8363	8481	
==>)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8363	8481	
==>)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13060	13208	
==>sub { "". @{$_[0]} },
      hash  => sub { "". %{$_[0]} },
      code  => sub { "". $_[0] },
      ref   => sub { "". $_[0] },
      glob  => sub { " <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1124	1242	
==>escribe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6487	6606	
==>).
p5_elemental(negSet(X)) --> "[^", !, p5_charset_def(X), "]".
p5_elemental(posSet(X)) --> "[", p5_charset_def(X), "]". <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4828	4928	
==>. $Foo is the fourth id');
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	331	432	
==>s );

# ----- the following were included only for performance reasons,
# because they are too frequen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	342	443	
==>s );

# ----- the following were included only for performance reasons,
# because they are too frequen <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	606	754	
==>tack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 construct that can avoid
        # long if/elsif/else chains
        g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1974	2070	
==>(lex only) or a dynamic lookup. 



This object-serialization format is shared across all runtime <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1900	1994	
==>(lex only) or a dynamic lookup. 

This object-serialization format is shared across all runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1163	1268	
==>ce of symbols and has

a main body closure. 



the Package part of the Module is simply a hash from strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1111	1213	
==>ce of symbols and has
a main body closure. 

the Package part of the Module is simply a hash from strin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3812	3907	
==>egins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5714	5809	
==>egins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	49	192	
==>weise Addition
@a>>--;              # alle Elemente decrementieren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # und als <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	926	1021	
==>ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	926	1021	
==>ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	258	359	
==>_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	258	359	
==>_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFA <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4940	5066	
==>10),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4940	5066	
==>10),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14774	14873	
==>onment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14774	14873	
==>onment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rose <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4666	4774	
==>$list;
}

1;

__END__

=pod

=head1 NAME

list - the core list type

=head1 METHODS

=over 4

=item B<new (@x <==
2	/Users/nnunley/pugs/util/package-osx.pl	313	410	
==>cal/bin/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @fi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16159	16260	
==>w.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	265	363	
==>peSafe;
use Set::Object ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinder;
	use base qw <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9020	9124	
==>urn $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9020	9124	
==>urn $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @u <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	483	587	
==>, q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	483	587	
==>, q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31036	31127	
==>ion or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35586	35677	
==>ion or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns Rel <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	289	402	
==>d
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	240	342	
==>d
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Co <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2338	2437	
==>s a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the fir <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2338	2437	
==>s a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the fir <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14096	14192	
==>ing GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  using  => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4862	5038	
==>x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4862	5038	
==>x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9370	9486	
==>ode::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9358	9474	
==>ode::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3454	3543	
==>-----------------------------------------------------------------
## BOOTSTRAPPING COMPLET <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5356	5445	
==>-----------------------------------------------------------------
## BOOTSTRAPPING COMPLET <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2547	2643	
==>od end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns B <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2547	2643	
==>od end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns B <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	961	1140	
==>mbers,
                             $class->associations->members,
                             # 2-way associations won't work without
                             # MM support (o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15972	16082	
==>er   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15972	16082	
==>er   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2302	2470	
==>lly happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest path f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2302	2470	
==>lly happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest path f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1314	1438	
==>gnature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1314	1438	
==>gnature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1198	1352	
==>vely
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $serverna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1198	1352	
==>vely
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $serverna <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2448	2574	
==>( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2448	2574	
==>( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12454	12621	
==>min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max eq '') { 'plus' }
    else { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10732	10829	
==>ype::operator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::operator::pair- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	848	982	
==>urn $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	848	982	
==>urn $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	958	1082	
==>string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $st <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	958	1082	
==>string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1805	1956	
==>prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ':',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12922	13019	
==>Hash::delete (   $key --> Scalar ) is default

Deletes the elements specified by C<$key> or C<$key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	183	279	
==>e grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	183	279	
==>e grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2966	3069	
==>ket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Thin <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2966	3069	
==>ket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Thin <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10463	10562	
==>20050502192508.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$lay <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3286	3424	
==>> $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3479	3617	
==>> $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gram <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19664	19772	
==>erver or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This method is used to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19664	19772	
==>erver or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This method is used to <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	101	205	
==>the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the pla <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	101	205	
==>the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the pla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	735	889	
==>'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	735	889	
==>'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5608	5711	
==>essed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have kno <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5608	5711	
==>essed as
# number of seconds from now), so we don't provide an easy way to
# access it until we have kno <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	839	934	
==>f present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrac <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	839	934	
==>f present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8525	8697	
==>{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8525	8697	
==>{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1484	1597	
==>ram<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $cla <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1484	1597	
==>ram<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $cla <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1934	2048	
==>set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1934	2048	
==>set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($sel <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5921	6041	
==>output();
close $fh;

# Generating design doc index
unless($no_designdocs) { 
    my $syn_index = catfile($output_dir,"Sy <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21436	21537	
==>s_pos(word)      ,C) :- !,    char_type(C,csym).
class_member(class_neg(word)      ,C) :- !, \+(char_t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4738	4863	
==>thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utiliti <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4796	4921	
==>thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utiliti <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	693	799	
==>step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempting to f <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	693	799	
==>step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempting to f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3166	3294	
==><[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } els <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3712	3840	
==><[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } els <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	240	351	
==>host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	276	386	
==>host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	110	212	
==>n/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaMod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19955	20045	
==>reconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19955	20045	
==>reconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37279	37405	
==>@{ $S->{next} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We've added a handler, and added an argument to th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	541	662	
==>educe_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6665	6786	
==>" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6665	6786	
==>" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8769	8895	
==>length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8769	8895	
==>length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11508	11636	
==>current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11508	11636	
==>current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2973	3095	
==>ep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) returns Set {
    $self.difference($other). <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2973	3095	
==>ep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) returns Set {
    $self.difference($other). <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1505	1612	
==>rl_version_from($file);

    # The remaining probes read from POD sections; if the file
    # has an accompa <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9753	9842	
==>%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2289	2410	
==>IB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 or e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12719	12817	
==>es of the "across" values.  Also, it maybe probably be
in terms of longest non-infinite.  -law]

=b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22507	22604	
==>ract with the outside
environment at all.

A Relation object has 2 main attributes (implementation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27059	27156	
==>ract with the outside
environment at all.

A Relation object has 2 main attributes (implementation <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11130	11229	
==>ntext.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not change th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11130	11229	
==>ntext.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not change th <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5693	5804	
==>t document headers. Depending on the context, C<head> returns
the following values:

=over 4

=item Boolean Cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5693	5804	
==>t document headers. Depending on the context, C<head> returns
the following values:

=over 4

=item Boolean Cont <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	655	758	
==>b is_promise($a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6197	6298	
==>| die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6197	6298	
==>| die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_childr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13417	13556	
==>, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13411	13550	
==>, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4948	5056	
==>ric
    rxmods are recognized by fallback macros defined with an empty operator
    name.)
------------------ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3792	3890	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3792	3890	
==>ren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1410	1520	
==>wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1410	1520	
==>wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6206	6300	
==>sufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6206	6300	
==>sufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	453	540	
==>JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalValue::Reference  is JSX::Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1083	1195	
==>ass, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1083	1195	
==>ass, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8326	8454	
==>rn unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8519	8647	
==>rn unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2829	2930	
==>(Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.translate_message( $messa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2829	2930	
==>(Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.translate_message( $messa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9662	9789	
==>>
    | <NonEscapeCharacter>
}
rule SingleEscapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	440	563	
==>put_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	440	563	
==>put_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = gra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12007	12100	
==>em C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document obj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12007	12100	
==>em C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12164	12293	
==>@_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4807	4936	
==>@_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1671	1805	
==>e( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1671	1805	
==>e( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6557	6644	
==>r|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19194	19286	
==>nd C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19194	19286	
==>nd C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	888	1005	
==>k;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	888	1005	
==>k;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	45	142	
==>r = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	45	142	
==>r = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pug <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9309	9413	
==>!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9309	9413	
==>!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconn <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18667	18773	
==>f[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    unless_null exp0, <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1727	1827	
==>p`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own me <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1727	1827	
==>p`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own me <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2357	2479	
==>'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, ced <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2357	2479	
==>'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, ced <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9173	9283	
==>ubmethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encipheri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9173	9283	
==>ubmethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <encipheri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3997	4117	
==>if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3997	4117	
==>if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5935	6044	
==>$_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5935	6044	
==>$_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2294	2439	
==>->new(
					Blondie::TypeSafe::Annotation->new(
						type => [$from => $to],
						struct_equiv => Blondie::Backend::C::Prim->new(
							arity = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	837	958	
==>st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	837	958	
==>st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22458	22569	
==>w scope is
entered and then exited.  The general concept is:

  if (into_scope) {
    push STACK, TREE;
    TREE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1056	1160	
==>$b;
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	232	337	
==>ta::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	232	337	
==>ta::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XX <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8020	8159	
==>7),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8020	8159	
==>7),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => ch <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4709	4837	
==>es"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4709	4837	
==>es"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    " <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14957	15060	
==>fy the type of the parameter with the type to the left of the arrow in the function's type,
	# this caus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5600	5709	
==>/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actua <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5407	5512	
==>/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actua <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8552	8705	
==>mplemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assert <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8552	8705	
==>mplemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assert <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9796	9905	
==>anted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub depen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11273	11382	
==>anted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub depen <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5742	5867	
==>>{instance} = shift;
	bless $self, "type::variable::instantiated";
}

sub splat {
	my $self = shift;
	my $accum = shift;

	pus <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	15	121	
==>ss Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_blo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	15	121	
==>ss Cipher::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_blo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2498	2594	
==>use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2498	2594	
==>use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9025	9205	
==>plice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9025	9205	
==>plice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3661	3776	
==>, 'type::equivalence';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('symbol'))
        || c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24706	24791	
==>,Ex), set_modifiers(Ex,M,E1).
set_modifiers(E0,[],E0).
set_flag(E0,i,E1)  :- set_flag_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3703	3796	
==>ily for reading human written files, and anything we
write shouldn't need to have documentatio <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3703	3796	
==>ily for reading human written files, and anything we
write shouldn't need to have documentatio <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4293	4391	
==>ntation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4293	4391	
==>ntation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<enc <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2499	2618	
==>kens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket contains at lea <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2499	2618	
==>kens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket contains at lea <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16685	16792	
==>ompile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16685	16792	
==>ompile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7840	7946	
==>w did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7840	7946	
==>w did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5886	6005	
==>ment->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5886	6005	
==>ment->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12500	12623	
==>ce::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actual <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12500	12623	
==>ce::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actual <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	132	226	
==>Metadata;
use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.04';

use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	168	274	
==>y $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	168	274	
==>y $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23645	23750	
==>Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23645	23750	
==>Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	213	342	
==>ARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remot <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	213	342	
==>ARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remot <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1229	1331	
==>d'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1229	1331	
==>d'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2165	2258	
==>uest::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2165	2258	
==>uest::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9508	9699	
==>odo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $res <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2593	2692	
==>return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2593	2692	
==>return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	234	342	
==>::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	234	342	
==>::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6193	6285	
==>ead2 C<analyze_fh>

  my %results = $strap->analyze_fh($name, $test_filehandle);

Like C<anal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9434	9526	
==>r::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3259	3351	
==>r::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
pu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2098	2211	
==>d_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2098	2211	
==>d_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2877	2985	
==>Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all ::fglock thin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2773	2877	
==>Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all ::fglock thin <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	200	332	
==>bug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	200	332	
==>bug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3258	3363	
==>$matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alnum {
  my ( $matchObj ) = @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14283	14387	
==>opaque $class: str $repr, hash %params) returns opaque {
    my %attrs = hash();
    my &dispatcher = $cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8323	8429	
==>ake too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security exper <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8323	8429	
==>ake too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security exper <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19016	19122	
==>olution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19016	19122	
==>olution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $ha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5158	5310	
==>f there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5622	5774	
==>f there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6176	6312	
==>s>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6176	6312	
==>s>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3365	3472	
==>es($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one w <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3365	3472	
==>es($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one w <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21185	21283	
==>ther tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping whe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25737	25835	
==>ther tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping whe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3406	3499	
==>'$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$da <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3406	3499	
==>'$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14351	14447	
==>IS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14351	14447	
==>IS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2626	2771	
==>q[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$contro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1293	1433	
==>q[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2313	2431	
==>oo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2313	2431	
==>oo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	133	259	
==>ar.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	133	259	
==>ar.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	342	476	
==>dd_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9760	9894	
==>dd_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $ <==
2	/Users/nnunley/pugs/util/func_refact.pl	266	376	
==>.pl. Will print initial set sizes for all functions
by default, or use -initial <fname>, possibly many times, t <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1729	1876	
==>egex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

= <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1729	1876	
==>egex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

= <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	504	606	
==>t($variable) {
    return %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

sub SessionC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17402	17498	
==>hat
inherits from that class.

There are no longer I<star>, I<plus>, and I<curly> classes; they h <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5675	5801	
==>_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr,"regexp_setup ");
    Safef <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2219	2351	
==>ss',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instan <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2424	2556	
==>ss',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instan <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6077	6186	
==>ic - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6077	6186	
==>ic - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3431	3540	
==>n.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3431	3540	
==>n.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1547	1659	
==>ode $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submet <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1547	1659	
==>ode $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4620	4743	
==>r->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4462	4580	
==>r->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emit <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2072	2173	
==>is gives the impression of lexically scoped marks (but it may also
limit the engine semantically, we s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2072	2173	
==>is gives the impression of lexically scoped marks (but it may also
limit the engine semantically, we s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12444	12561	
==>ay *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @l <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2994	3106	
==>ay *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4116	4217	
==>ompile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4333	4434	
==>ompile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15195	15290	
==>exts, the encoded or
decoded string is returned (without changing the input string).

If you pre <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15195	15290	
==>exts, the encoded or
decoded string is returned (without changing the input string).

If you pre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21732	21872	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22011	22151	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13446	13548	
==>hat refers to another file or test which must be
made to pass before this test can pass (or before an i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13504	13606	
==>hat refers to another file or test which must be
made to pass before this test can pass (or before an i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	371	470	
==>_test_junction;

# for running the test suite multiple times in the same process
$Test::testing_star <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	429	528	
==>_test_junction;

# for running the test suite multiple times in the same process
$Test::testing_star <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	729	845	
==>ecipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used to 
select a different num <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	729	845	
==>ecipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used to 
select a different num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6247	6362	
==>(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it return until <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6046	6156	
==>(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it return until <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9179	9325	
==>rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9179	9325	
==>rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @l <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	63	197	
==>:Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $c = PIL::Run::Container::Scalar->new_instance() <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3958	4068	
==>size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3958	4068	
==>size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24551	24649	
==>l of their attributes are private, so you must use accessor methods.
Locale::KeyedText does not dec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24551	24649	
==>l of their attributes are private, so you must use accessor methods.
Locale::KeyedText does not dec <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2209	2310	
==>$self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2209	2310	
==>$self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($chi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	735	857	
==>pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	735	857	
==>pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14964	15092	
==>sion */
  U32 nparens;            /* number of parentheses */

The match result:

  I32 sublen;             /* Length of string p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	235	351	
==>.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=f <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	235	351	
==>.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=f <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	413	507	
==>_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	413	507	
==>_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2798	2944	
==>xists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2798	2944	
==>xists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3317	3449	
==>rd'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3510	3642	
==>rd'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4083	4189	
==>C, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", resname => "<precompiled>", };

    $f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	207	309	
==>ess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $signature, $body) <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	1	106	
==>!/usr/bin/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	1	106	
==>!/usr/bin/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21784	21888	
==>eir own resource files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21784	21888	
==>eir own resource files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3899	3996	
==>ed rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4083	4180	
==>ed rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $clas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4190	4383	
==>mber_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4190	4383	
==>mber_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3947	4086	
==>e ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        prin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3947	4086	
==>e ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        prin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3623	3726	
==>( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( ' <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3623	3726	
==>( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5514	5672	
==>ction works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circui <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5978	6136	
==>ction works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circui <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2158	2264	
==>l known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basic <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2158	2264	
==>l known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basic <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6895	6998	
==>.return (mob)

  err_noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_backslash_dig <==
2	/Users/nnunley/pugs/util/importgraph.pl	38	131	
==>rtgraph.pl [--layout=neato]
# produces importgraph.ps in the current directory
# it expects to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13283	13387	
==>fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13283	13387	
==>fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that contains the
r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16454	16552	
==>mplement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16454	16552	
==>mplement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20038	20144	
==>$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfun = $fun;
    if($param =~ /\ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19894	19996	
==>);

# we can't get app_to_str to apply something of a bad type to a str
my $app_plus_ten_to_str = comb( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2840	2943	
==>of prelude replacement relevant to the perl backend

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Bu <==
2	/Users/nnunley/pugs/util/version_h.pl	1215	1315	
==>sif (my ($source_line) = grep /^(Copied|Merged) From/, @info) {
        if (my ($source_depot) = $sou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1227	1354	
==>am ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - writ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1227	1354	
==>am ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - writ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11365	11466	
==>as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11365	11466	
==>as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12165	12273	
==>+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12165	12273	
==>+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4255	4405	
==>mment {  # see 7.4
      <'//'> <SingleLineCommentChars>?
}
rule SingleLineCommentChars {  # see 7.4
      <SingleLineCommentChar> <SingleLineCommentCh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1017	1160	
==>$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= length \$&; 1 }
$_[1]     : 0
$_[1] )";
}

sub emit {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	963	1083	
==>ts that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	963	1083	
==>ts that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	983	1109	
==>nfix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => <==
2	/Users/nnunley/pugs/util/config_h.pl	847	960	
==>ndif
#define PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you have cywin, you're still using ghc-msys
if ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10599	10695	
==>airs, which
means that you can update several fields with a single invocation.

The $value argume <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10599	10695	
==>airs, which
means that you can update several fields with a single invocation.

The $value argume <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6425	6548	
==>le in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6209	6329	
==>le in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9027	9135	
==>ck

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

steva <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9027	9135	
==>ck

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

steva <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23558	23674	
==>ject(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19979	20095	
==>ject(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6589	6716	
==>atch->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6589	6716	
==>atch->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13795	13917	
==>ope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1275	1397	
==>ope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7440	7563	
==>) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base6 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7440	7563	
==>) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base6 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2754	2878	
==>ent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2754	2878	
==>ent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5148	5261	
==>ro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5370	5483	
==>ro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $val <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8025	8139	
==>)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8025	8139	
==>)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %chan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21598	21699	
==>ation
attributes may be individually addressed only by their names, and all
Relation tuples may be ind <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26150	26251	
==>ation
attributes may be individually addressed only by their names, and all
Relation tuples may be ind <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2893	3040	
==>);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2893	3040	
==>);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	142	251	
==>Pugs::Grammar::Expression;
use Pugs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15288	15377	
==>hiftExpression> <'<<'> <AdditiveExpression>
    | <ShiftExpression> <'>>'> <AdditiveExpres <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	283	396	
==>ptimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	265	374	
==>ptimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Gramma <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9018	9129	
==>rence doesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9018	9129	
==>rence doesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22970	23068	
==>e Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  Eac <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27522	27620	
==>e Relation; each Set member is a Mapping whose keys and values are
attribute names and values.  Eac <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20896	21070	
==>(
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43820	43994	
==>(
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1550	1719	
==>il =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1496	1660	
==>il =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1753	1867	
==>>() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $sourc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1753	1867	
==>>() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $sourc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1420	1520	
==>esc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1478	1578	
==>esc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2908	3009	
==>o see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2908	3009	
==>o see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	531	656	
==>return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	531	656	
==>return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6071	6191	
==>reof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6071	6191	
==>reof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_ <==
2	/Users/nnunley/pugs/util/drift.pl	89	175	
==>tup = File::Spec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10026	10142	
==>my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws>? ) )\n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	967	1087	
==>trict 'refs';
        my $code = eval($program);
        print "Error in statement:\n", $program if $@;
        die "erro <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9378	9518	
==>s} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $tex <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9378	9518	
==>s} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $tex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5252	5369	
==>'$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2794	2911	
==>'$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_[0], '$<op> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	76	189	
==>rint "$test";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{a}";

# Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2717	2810	
==>= 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1902	2005	
==>ert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1902	2005	
==>ert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1271	1379	
==>ethod parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1271	1379	
==>ethod parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33754	33851	
==>neric relational operator that takes a single Relation
in its C<$other> argument, where <$other> h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38304	38401	
==>neric relational operator that takes a single Relation
in its C<$other> argument, where <$other> h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11250	11397	
==>$.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11250	11397	
==>$.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3857	3983	
==>e => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4050	4176	
==>e => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	135	238	
==>><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> ( <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	135	238	
==>><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15677	15801	
==>channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "M <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15677	15801	
==>channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "M <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	214	331	
==>eturns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	214	331	
==>eturns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $d <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3616	3822	
==>defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readli <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3616	3822	
==>defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readli <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1856	1971	
==>sh {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1856	1971	
==>sh {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11518	11617	
==>';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11518	11617	
==>';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18308	18408	
==>o deal with it.  But for displaying to users, easy messages are
better.

I have found that when it co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18308	18408	
==>o deal with it.  But for displaying to users, easy messages are
better.

I have found that when it co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1669	1832	
==>eady absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1669	1832	
==>eady absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3420	3536	
==>t flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wa <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3420	3536	
==>t flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8411	8559	
==>celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8411	8559	
==>celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value: <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2988	3082	
==>elf->{admin} or die << "END";
The '$method' method does not exist in the '$self->{prefix}' path <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1587	1700	
==>end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1587	1700	
==>end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, d <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2772	2887	
==>Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	777	871	
==>";
Can't determine a NAME for this distribution.
Please use the 'name' function in Makefile.PL. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2506	2606	
==>LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 Fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2506	2606	
==>LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 Fi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25304	25409	
==>tributes is identical; they do not
interact with the outside environment at all.

A Message object has two <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25304	25409	
==>tributes is identical; they do not
interact with the outside environment at all.

A Message object has two <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3694	3803	
==>pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3694	3803	
==>pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8432	8531	
==>atch[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8420	8519	
==>atch[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9820	9925	
==>w C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parameters to the constru <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9820	9925	
==>w C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parameters to the constru <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	653	783	
==>+/, $_[0] ]}

my %by_digest = (
	map { native($_) } (
		{
			arity => 0,
			name => '$*OUT',
			body => 'stdout',
			fixity => "nul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2093	2191	
==>te every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->compile( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20266	20371	
==>local string cname
    .local int cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3688	3879	
==>king - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3574	3759	
==>king - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3588	3778	
==>est;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3588	3778	
==>est;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19095	19222	
==>len}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20453	20580	
==>len}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7231	7352	
==>t_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7231	7352	
==>t_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37750	37846	
==>e (a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37750	37846	
==>e (a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	949	1141	
==>t)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	949	1141	
==>t)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3213	3341	
==>>{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3353	3481	
==>>{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21235	21334	
==>ompilers installed
themselves. So you don't need to make the compiler modules be
prerequisites.

=he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21235	21334	
==>ompilers installed
themselves. So you don't need to make the compiler modules be
prerequisites.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	671	793	
==>iption ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	671	793	
==>iption ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14842	14947	
==>es will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most freque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14842	14947	
==>es will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most freque <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4225	4353	
==>]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4213	4341	
==>]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3905	4031	
==>?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3905	4031	
==>?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1957	2083	
==>> $type, '^');
  });

  # sbol (beginning of line in single-line mode)
  $self->add_handler('\A' => sub {
    my ($S, $cc) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30186	30282	
==>bject.  See the object's documentation for
possible values for its type.

=item my $v = $obj->vis <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12256	12374	
==>line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12256	12374	
==>line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	622	746	
==>(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	622	746	
==>(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignor <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	450	543	
==>the C<source> property, and adds nothing else.

More specialised processing instructions may s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	450	543	
==>the C<source> property, and adds nothing else.

More specialised processing instructions may s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19635	19734	
==>than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set dat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24187	24286	
==>than one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3721	3837	
==>d argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo if ref($next) e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40962	41059	
==>n you need to
throw a warning that can only be figured out the second pass.

=item $parser->error( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20828	20920	
==>ompiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need to d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20828	20920	
==>ompiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need to d <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3493	3665	
==>:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>).add_children(
                    Tree.new(:node<PkgTrait>)
                ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8063	8175	
==>e (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec say <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7792	7899	
==>e (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec say <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3488	3601	
==>" unless &RxLEN;
  $self->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7368	7538	
==>dency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7832	8002	
==>dency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10882	11031	
==>trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10882	11031	
==>trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10608	10716	
==>for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10608	10716	
==>for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5338	5435	
==>thod the file for the properties, and writes it
to disk.  Returns boolean value of success or fail <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5338	5435	
==>thod the file for the properties, and writes it
to disk.  Returns boolean value of success or fail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2662	2828	
==>rammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2855	3021	
==>rammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	693	817	
==>:Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	693	817	
==>:Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1942	2050	
==>elayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1942	2050	
==>elayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5860	5955	
==>urn Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5860	5955	
==>urn Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () ret <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2380	2472	
==>N_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regexp* <==
2	/Users/nnunley/pugs/util/package-osx.pl	1267	1386	
==>r/local/lib/libhistory.a
    );
}
if ($bundle =~ /pugs/) {

    %symlinks = qw(
        /usr/local/bin/pugs ../../bin/pu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6087	6231	
==>o tests

    files           Number of test files ran
    good            Number of test files passed
    bad             Number of test files fa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48773	48914	
==>('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19129	19236	
==>s already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19129	19236	
==>s already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2066	2165	
==>represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2066	2165	
==>represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8601	8701	
==>s share the same namespace; any incompat will be caught later.
    return ::($module_name).does(Packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8601	8701	
==>s share the same namespace; any incompat will be caught later.
    return ::($module_name).does(Packa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1841	1989	
==>>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1841	1989	
==>>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -I <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	871	1004	
==>ize = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	871	1004	
==>ize = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16493	16599	
==>"FAILED--no tests were run for some reason.\n";
    } elsif (!$tot->{max}) {
        my $blurb = $tot->{tes <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	297	396	
==>y $option = %para{'x'} // "wert";

#!\pause
# er kann auch sehr einfach verkettet werden:
my $option <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1205	1332	
==>nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is no <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2104	2229	
==>_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2104	2229	
==>_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14084	14198	
==>e connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic > <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14084	14198	
==>e connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic > <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15598	15702	
==>dation for data and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15598	15702	
==>dation for data and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2580	2682	
==>int "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2720	2822	
==>int "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flag <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	261	372	
==>ion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtrac <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	261	372	
==>ion($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtrac <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1892	2038	
==>d?
            {   my $info = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadF <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7176	7292	
==>::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CO <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7176	7292	
==>::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10524	10633	
==>ate everything except
well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10524	10633	
==>ate everything except
well-formedness, such as that Rosetta::Model Nodes are arranged correctly
depending on t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2677	2775	
==>GE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie::Backend:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16500	16597	
==>he other difficulty is complex regexes with if-then assertions.  I
don't want to think about that. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7844	7954	
==>1 : 0;
    my @inv = defined($pInv) ? (DOWN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	378	487	
==>s swi-prolog be
installed with non-default settings, and so is not intended for
"general" use.  It's more of a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16788	16903	
==>returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20265	20380	
==>returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some source attributes ar <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7542	7653	
==>ass->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7542	7653	
==>ass->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21249	21352	
==>t provides a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21249	21352	
==>t provides a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	848	964	
==>,
        '{ return { op => "ternary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1603	1741	
==>ete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1603	1741	
==>ete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!pa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12216	12312	
==>of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $x )` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12216	12312	
==>of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( $x )` <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8061	8156	
==>etta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8061	8156	
==>etta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'nam <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5500	5602	
==>r message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5500	5602	
==>r message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25780	25874	
==>teract with the outside
environment at all.

A Relation::Example object has 2 main attributes ( <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	879	1003	
==>>+? }

rule term { <comment> | <alternation> | <non_alternation> }

rule comment { \# \N* }

rule alternation     { <non_alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2165	2278	
==>ument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'.$regex.' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22377	22493	
==>ree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3984	4084	
==>mmar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4168	4268	
==>mmar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12679	12784	
==>(
		%$orig,
		$.param => type::variable::free->new()
	);
	\%new;
}

# inherit the set of generic vars to o <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	126	224	
==>extabhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in Perl 6 nur noch vo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1522	1628	
==>nt-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1522	1628	
==>nt-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Pe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23489	23627	
==>le Program :words {  # see clause 14
      <SourceElements>
}
rule SourceElements :words {  # see clause 14
      <SourceElement>
    | <So <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	340	460	
==>averse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1875	1991	
==>y $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper: <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1875	1991	
==>y $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12948	13042	
==>set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12948	13042	
==>set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7776	7904	
==>cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7776	7904	
==>cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	234	334	
==>push (@array is rw ; *@values) returns Int {
   Array::splice(@array, @array.elems, 0, @values);
   @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6572	6718	
==>}
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6630	6776	
==>}
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5657	5777	
==>@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5645	5765	
==>@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11172	11271	
==>"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END




__END_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10437	10525	
==>"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1051	1163	
==>) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.wid <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1051	1163	
==>) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.wid <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5019	5135	
==>my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5019	5135	
==>my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 <==
2	/Users/nnunley/pugs/util/package-osx.pl	7947	8054	
==>al/man/man3/Perl6::Spec::Overload.3pm
        /usr/local/man/man3/Perl6::Spec::Overview.3pm
        /usr/loc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	830	924	
==>pler, ast.  Regexp::Parser's
# Perl6::Rule::Parser does NOT look like it's mature enough to bea <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	153	253	
==>y $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	153	253	
==>y $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24105	24202	
==>program code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24105	24202	
==>program code itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedTex <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	134	253	
==>05 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Export <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1237	1370	
==>ps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed fi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	797	930	
==>ps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed fi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	138	243	
==>w[LoadFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	353	449	
==>rely functional" aspects of it in favor of 
a more practical closure based system, similar to wha <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2369	2469	
==>s port does it's best to work with those limitations and 
still produce a working version of File::Sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2369	2469	
==>s port does it's best to work with those limitations and 
still produce a working version of File::Sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9753	9911	
==>ERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9753	9911	
==>ERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12770	12966	
==>$re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12770	12966	
==>$re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class-> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5061	5157	
==>the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The following funct <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5061	5157	
==>the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The following funct <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	911	1033	
==>l C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecir <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	911	1033	
==>l C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32789	32881	
==>nistic because it
invokes user-defined external files for reading, mainly in the
C<translate_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32789	32881	
==>nistic because it
invokes user-defined external files for reading, mainly in the
C<translate_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7716	7821	
==>parser->errnum will return the numerical value
of the message.  If you use new() the F<Regexp::Parser> obj <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	878	1067	
==>l_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_var_CODE
       p6_var
       p6_assign
       p6_setq
       p6_bind
       p6_mangle
       p6_app <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1019	1151	
==>=> $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loade <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4169	4283	
==>arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v[0];

    $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12018	12119	
==><tmpl_loop name=summary>
	      <td class="leftsep num tests_total"><span title="<tmpl_var name=total> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1063	1161	
==>t");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->add <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2762	2858	
==>$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()) <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	241	402	
==>> {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                my ($sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3336	3482	
==>rt
                #print "checking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runti <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6605	6705	
==>tr`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6605	6705	
==>tr`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File:: <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	362	558	
==>ized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	362	558	
==>ized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1606	1702	
==>5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLeng <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1606	1702	
==>5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLeng <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	732	845	
==>};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buff <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	732	845	
==>};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buff <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21144	21240	
==>k

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionall <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21144	21240	
==>k

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionall <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2093	2195	
==>od add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2093	2195	
==>od add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1660	1897	
==>}
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1660	1897	
==>}
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3183	3313	
==>= @_;

    my $pass;
    if( !defined $got || !defined $expected ) {
        # undef only matches undef
        $pass = !defined $g <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	923	1062	
==>oot of the path
        # then we have failed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	923	1062	
==>oot of the path
        # then we have failed already and so return
        return unless $func($current_tree, @path[0]);
        # if we do <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	153	252	
==>t for them.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystrea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	153	252	
==>t for them.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystrea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2170	2302	
==>return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2170	2302	
==>return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))- <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	542	635	
==>DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Ha <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	542	635	
==>DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5022	5129	
==>nt "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5022	5129	
==>nt "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15949	16048	
==>her
Perl modules.

Modules that use these compilation modules get compiled into some
altered form th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15949	16048	
==>her
Perl modules.

Modules that use these compilation modules get compiled into some
altered form th <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	453	600	
==>nfig{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	354	501	
==>nfig{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26002	26103	
==>etta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the imp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26002	26103	
==>etta is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the imp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33869	33970	
==>that each says what
language they prefer to communicate in, and what their backup choices are,
in orde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33869	33970	
==>that each says what
language they prefer to communicate in, and what their backup choices are,
in orde <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8963	9143	
==>ULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8963	9143	
==>ULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1047	1179	
==>,
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1047	1179	
==>,
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => ' <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2151	2394	
==>erl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = " <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2151	2394	
==>erl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = " <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2232	2329	
==>es in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In sh <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2232	2329	
==>es in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In sh <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	235	340	
==>n
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular referenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	235	340	
==>n
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular referenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2325	2454	
==>ce => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { nu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2325	2454	
==>ce => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { nu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9562	9663	
==>subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
exce <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9562	9663	
==>subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
exce <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8024	8153	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8217	8346	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variab <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16500	16593	
==>imply
copying files), often even while the program is executing.

Locale::KeyedText gives your <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16500	16593	
==>imply
copying files), often even while the program is executing.

Locale::KeyedText gives your <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1780	1920	
==>:debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1780	1920	
==>:debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cooki <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2710	2824	
==>nonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2710	2824	
==>nonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8843	9001	
==>n;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8843	9001	
==>n;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	517	617	
==>gs->fetch(num->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocant m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33350	33449	
==>or

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</s> on, C< <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17618	17810	
==>syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're skipping forward till we find a regex
                    my @st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3419	3515	
==>ure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument to &ea <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4702	4809	
==>ight;
}

package type::operator::nary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	185	320	
==>hread 1 finished: $a is >5 and reset to -1000';
}

my $thr2 = async {
    say "Thread 2 started";
    atomically {
        { $a > 100 or <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	764	883	
==>f @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	764	883	
==>f @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7970	8069	
==>an ordered set of spans.

The problem this class solves is when you need do perform "set" operations <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7970	8069	
==>an ordered set of spans.

The problem this class solves is when you need do perform "set" operations <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3347	3445	
==>p:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3347	3445	
==>p:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $other) retu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4271	4419	
==>nt!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4271	4419	
==>nt!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	307	426	
==>$from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  $matchObj->position($matchObj->from());
  return $matchO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5395	5509	
==>ef);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5395	5509	
==>ef);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17350	17449	
==>rl_re_dup will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9232	9349	
==>quantifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] ) <==
2	/Users/nnunley/pugs/util/drift.pl	810	913	
==>src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	82	212	
==>use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

sub _mangle_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8305	8417	
==>ame of this category 
(a namespace or a Grammar name).

=head2 add_op ()

Instance method.  Adds a new opera <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1203	1308	
==>get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1203	1308	
==>get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	833	929	
==>pt-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	833	929	
==>pt-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6614	6738	
==>$path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6614	6738	
==>$path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7268	7377	
==>rg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7268	7377	
==>rg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2885	3014	
==>ELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'AR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2885	3014	
==>ELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'AR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5166	5306	
==>d");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5166	5306	
==>d");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2556	2681	
==>kies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2556	2681	
==>kies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7979	8107	
==>ELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7979	8107	
==>ELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'A <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5029	5137	
==>ght method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7697	7805	
==>ght method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11473	11717	
==>terface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11473	11717	
==>terface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3843	3971	
==>{
        die "bug - invalid hint $hint";
    }
}

# 8.7 The Reference Type
class JSX::InternalValue::Reference {
    has $.base_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15371	15488	
==>1970) and they also expect this kind of
value when the header value is set.

=over 4

=item $h.date

This header repre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15371	15488	
==>1970) and they also expect this kind of
value when the header value is set.

=over 4

=item $h.date

This header repre <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6207	6319	
==>) returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6207	6319	
==>) returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2256	2372	
==>), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2256	2372	
==>), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1111	1279	
==>XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1111	1279	
==>XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	270	389	
==>il { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $result = $self->SUPER::isa(@_);
#     return $result ? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	489	592	
==>UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	500	603	
==>UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	155	268	
==>getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad ide <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	155	268	
==>getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad ide <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5972	6075	
==>ormalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5972	6075	
==>ormalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35759	35857	
==>1, close2 ... closeN (C<)> when in C<(...>)

Omitted

=head2 tail

Family: close

Types: tail (C<)> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	475	579	
==>e
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	475	579	
==>e
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar-> <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	67	176	
==>File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.se <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	67	176	
==>File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21662	21802	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_sim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21941	22081	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_sim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6317	6427	
==>> 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6317	6427	
==>> 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	858	1100	
==>tion_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8017	8113	
==>ed element; C<kv> returns 
a 2 element list in (index, value) order, C<pairs> a C<Pair(index, val <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31919	32018	
==>and wants it shown to the user, the main program would check each
of the 3 Template module sets in t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31919	32018	
==>and wants it shown to the user, the main program would check each
of the 3 Template module sets in t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1774	1878	
==>ok like, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1774	1878	
==>ok like, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20781	20876	
==>e ':' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20781	20876	
==>e ':' intact for
$h->header_field_names and the $h->scan callback, but the colons do
not show in <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15713	15853	
==>or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c B <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15713	15853	
==>or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8195	8299	
==>on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.j <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8195	8299	
==>on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.j <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9515	9602	
==>,3],[0],[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{
  print STDER <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8685	8820	
==>};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9520	9655	
==>};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14104	14228	
==>list() -> $attr {
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38273	38375	
==>turns Relation::Example>

This method is a generic relational operator that returns the complement of
C <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24646	24750	
==>f p6_is_perl6_object($x);
    return 1;
}

sub p6_declare_package {
    my($pkg,$kind)=@_;
    p6_initial <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3209	3339	
==>ule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3349	3479	
==>ule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4592	4714	
==>"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4592	4714	
==>"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = su <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17392	17506	
==>ng = CALLER::<$_> --> Str )

Performs a Unicode "titlecase" operation on the first character of the string.


=item <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5002	5098	
==>elude.pm [options]
       $0 --precompile src/perl6/Prelude.pm --pugs ./pugs.exe [options]

Creat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2371	2464	
==>:Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signatur <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2371	2464	
==>:Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signatur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1717	1842	
==>re} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1717	1842	
==>re} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	27	130	
==>se strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

u <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	27	130	
==>se strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

u <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1379	1475	
==>ype $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1379	1475	
==>ype $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	416	542	
==>2 $src = JIB::Source->new( dir => /path/to/source )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1154	1252	
==>he full package
name (C<Type--Perl6>) disambiguates this case.

Types have a dispatch table; this i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	63	170	
==>ings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	63	170	
==>ings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	146	252	
==>y $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	146	252	
==>y $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2787	2936	
==>elude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3004	3153	
==>elude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* co <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3419	3515	
==>ype' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8245	8369	
==>chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8245	8369	
==>chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2453	2575	
==>y @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2453	2575	
==>y @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5099	5232	
==>if this test run is overall successful or not.

=cut

sub _all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4420	4539	
==>an only add symbol types to a param list"
            foreach @_;
    $self->SUPER::push(@_);
}

sub equal_to {
    my ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1528	1622	
==>ndie::List are defined

=head1 DESCRIPTION

These ADTs are the implementation classes of all th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19487	19584	
==>nd not change
your main program.

I<Note that an update is planned for Locale::KeyedText that will <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19487	19584	
==>nd not change
your main program.

I<Note that an update is planned for Locale::KeyedText that will <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6747	6859	
==>ence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6747	6859	
==>ence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21099	21209	
==>ray"]
    isarray |= padarray
    self["isarray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto unsc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4797	4893	
==>t>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1768	1867	
==>interesting to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1768	1867	
==>interesting to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C< <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	92	223	
==>ss {}, shift }

sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	422	536	
==>sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	422	536	
==>sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3018	3132	
==>$quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3006	3120	
==>$quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	13	148	
==>e Array--Perl6;

does Map;
does List;

# push @foo, self



&Array::pop<Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1)) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11350	11512	
==>0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11344	11506	
==>0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17892	18000	
==>:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14313	14421	
==>:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5776	5887	
==>bject>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handler("P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5776	5887	
==>bject>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handler("P <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17643	17755	
==>represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17643	17755	
==>represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4984	5142	
==>celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4984	5142	
==>celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	512	616	
==>e which stack frame points to the code we are filtering.
# This is a method in case it needs to be overri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	512	616	
==>e which stack frame points to the code we are filtering.
# This is a method in case it needs to be overri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1480	1600	
==>,  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1480	1600	
==>,  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	243	342	
==>q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1101	1200	
==>q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): arg <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1210	1317	
==>st results difficult for anything but a human.  To
make it easier for programs to work with test results, we <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5612	5719	
==>bject>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5612	5719	
==>bject>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{n <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1322	1469	
==>sults.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1322	1469	
==>sults.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3377	3529	
==>a proper module version, or '0.0' if none was available.

=cut

sub _version_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18626	18754	
==>son}
              unless defined $totals->{skip_reason};
            $totals->{skip_reason} = 'various reasons'
              if <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3160	3269	
==>ment_next, $set.complement_previous ),
        complement_previous => $self._get_intersection( $self.complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3160	3269	
==>ment_next, $set.complement_previous ),
        complement_previous => $self._get_intersection( $self.complemen <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17427	17553	
==>ring
    $P0 = "\n.namespace [ \""
    $P0 .= grammar
    $P0 .= "\" ]\n\n"
    code = exp."as_pir"(name)
    code = concat $P0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	191	293	
==>nerate the same data structure as
the 'ratchet' version.

- It currently passes all it's tests.

- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2960	3073	
==>e a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2960	3073	
==>e a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17723	17819	
==>lary->new("str")),
);

# the polymorphic snd function takes any pair and returns it's second thin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1302	1385	
==>rl6::Run::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc->as_pil_tr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5280	5400	
==>or error("Could not create installed package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24738	24849	
==>tuple must be distinct from the other tuples.  All Relation::Example
attributes may be individually addressed on <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3032	3141	
==>mpty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3032	3141	
==>mpty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3491	3607	
==>d( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3491	3607	
==>d( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_i <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1041	1214	
==>t;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5671	5804	
==>path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval { req <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17658	17755	
==>ODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted param <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17658	17755	
==>ODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted param <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9981	10103	
==>e {  # see 7.8.4
      <'x'> <HexDigit> <HexDigit>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexD <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16381	16482	
==>rror',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) error <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18110	18214	
==>ou've
specified in the constructor. If the nickname is already used, this module
will try to use a permut <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18110	18214	
==>ou've
specified in the constructor. If the nickname is already used, this module
will try to use a permut <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1320	1444	
==>h;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1320	1444	
==>h;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	103	216	
==>og::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Installation;

use ba <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1490	1629	
==>an> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1490	1629	
==>an> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1958	2053	
==>gs, it will intuit one by extracting the 
last component of the calling function's package name. <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1958	2053	
==>gs, it will intuit one by extracting the 
last component of the calling function's package name. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5185	5317	
==>ined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5185	5317	
==>ined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5683	5781	
==>rate "processes" from actual module documentation?



=head2 Grammar engine



* Pugs::Grammar::Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5486	5580	
==>rate "processes" from actual module documentation?

=head2 Grammar engine

* Pugs::Grammar::Rul <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2985	3117	
==>um.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2985	3117	
==>um.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14387	14488	
==>rgets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14387	14488	
==>rgets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11621	11740	
==>ect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11621	11740	
==>ect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found f <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6141	6241	
==>t

All headers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6141	6241	
==>t

All headers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3321	3494	
==>&& defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3461	3634	
==>&& defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17827	17936	
==>a to it, and output data from it.

You can create more than one DBMS object at a time, and they are
essentiall <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17827	17936	
==>a to it, and output data from it.

You can create more than one DBMS object at a time, and they are
essentiall <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30941	31049	
==>es next and is what distinguishes each module from others in
its set. For maximum flexibility in their use, t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30941	31049	
==>es next and is what distinguishes each module from others in
its set. For maximum flexibility in their use, t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6486	6586	
==>de_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6486	6586	
==>de_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34424	34521	
==>> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a ge <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38974	39071	
==>> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a ge <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2369	2502	
==>"reduce\n" if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9178	9271	
==>ile) = @_;

    my @existing_switches = $self->_cleaned_switches( $Test::Harness::Switches, $E <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10815	10910	
==>tem B<content_length returns Str>

=back

B<The following informational functions are fetched on <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10815	10910	
==>tem B<content_length returns Str>

=back

B<The following informational functions are fetched on <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2606	2715	
==>S is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2606	2715	
==>S is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR. <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	861	974	
==>lf_odd (Num $x) {
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31819	31931	
==>regex($regex)) {
    reject_regex(...);
  }

Any regex containing those assertions will fail to compile and throw <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38805	38901	
==>will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38805	38901	
==>will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIG <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	682	783	
==>OPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	682	783	
==>OPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5584	5728	
==>ompatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5596	5740	
==>ompatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2682	2785	
==>uest::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The request method u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2682	2785	
==>uest::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The request method u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6971	7069	
==>ckage types;

use Class::Multimethods::Pure;
use Data::Dumper;


# The unification of the various t <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14516	14609	
==>ault 0
timeout 0
color light-blue/black black/light-gray
hiddenmenu

title    $pugs_version
ro <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1577	1699	
==>are ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1577	1699	
==>are ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18105	18221	
==>ror(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14526	14642	
==>ror(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	648	778	
==>ax_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f, $fprime);

        say " <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1566	1687	
==>s export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :se <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1835	1956	
==>s export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :se <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12005	12112	
==>.. testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12063	12170	
==>.. testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14092	14216	
==>defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl' aliased properly
	return $Perl if $^O eq 'VMS';

	my $exe;
	eval "r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	702	806	
==>rstand) the modula 2 code, so
# the impl is probably different)


use utf8;
use strict;
use warnings;

us <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1812	1961	
==>to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1812	1961	
==>to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6382	6491	
==>-Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6382	6491	
==>-Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8390	8501	
==>::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23189	23280	
==>ides full generic implementations of all other necessary
operators (over said accessors), wh <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1486	1630	
==>) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = ' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1453	1597	
==>) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12645	12781	
==>ocument $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12645	12781	
==>ocument $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7717	7831	
==>$.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an order <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7717	7831	
==>$.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an order <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2976	3071	
==>vailable or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigate <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2976	3071	
==>vailable or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigate <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25844	25939	
==>m C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25844	25939	
==>m C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11781	11900	
==>&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4424	4543	
==>&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9727	9832	
==>object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9727	9832	
==>object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5947	6063	
==>_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5947	6063	
==>_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	889	1055	
==>atch,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	882	1048	
==>atch,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1491	1615	
==>g "# Failed $where\n";
    }

    # Ensure that the message is properly escaped.
    _diag @mess;

    $test++;

    return $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12098	12203	
==>otenially dangerous. Uses the shell.
    # Please remember to update t/pugsrun/11-safemode.t if you change <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1329	1433	
==>lf->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1469	1573	
==>lf->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7306	7416	
==>nnels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7306	7416	
==>nnels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from> <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2113	2228	
==>Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{si <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2091	2206	
==>Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{si <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	977	1075	
==>($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	977	1075	
==>($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15748	15879	
==>ion> <'instanceof'> <ShiftExpression>
    | <RelationalExpression> <'in'> <ShiftExpression>
}
rule RelationalExpressionNoIn :words { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	381	553	
==>f ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	381	553	
==>f ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../pa <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5390	5491	
==>isk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> method returns the l <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5390	5491	
==>isk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> method returns the l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6458	6555	
==>one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6458	6555	
==>one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5643	5781	
==>tches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5643	5781	
==>tches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7354	7492	
==>from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7354	7492	
==>from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22713	22809	
==>e Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22713	22809	
==>e Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Inter <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16355	16497	
==>e;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16355	16497	
==>e;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6461	6555	
==>thod fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11519	11613	
==>thod fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7714	7852	
==>code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7907	8045	
==>code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4768	4877	
==>ame ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->clear;
         
is( <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3131	3236	
==>d week returns Int { int (./doy / 7) }

method day_of_month returns Int { $.day }
method day_of_month_0 re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11823	11953	
==>nd => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($on <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11823	11953	
==>nd => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($on <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1080	1214	
==>',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1080	1214	
==>',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17873	17978	
==>oad since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17873	17978	
==>oad since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11434	11575	
==>ent = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.curren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11434	11575	
==>ent = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.curren <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1275	1371	
==>tta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1275	1371	
==>tta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4476	4599	
==>claim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4534	4657	
==>claim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7069	7279	
==>ch = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6832	7032	
==>ch = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for exampl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9111	9217	
==>, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6_undef()" }
NODE VBool ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2415	2514	
==>ders () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2415	2514	
==>ders () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } - <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3494	3593	
==>rbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3494	3593	
==>rbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $o <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7199	7304	
==>?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CAL <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7257	7362	
==>?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CAL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35009	35110	
==>isting Translator object, you must create a new
object that is a clone of the first but for the change <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35009	35110	
==>isting Translator object, you must create a new
object that is a clone of the first but for the change <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1541	1640	
==>ix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCI <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1541	1640	
==>ix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCI <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2444	2566	
==>turns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2444	2566	
==>turns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9243	9417	
==>the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9243	9417	
==>the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	510	619	
==>--------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## -------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	510	619	
==>--------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## -------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10733	10839	
==>ce to an array
of strings for a multi-valued field. If the $value is undefined or not
given, then that head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10733	10839	
==>ce to an array
of strings for a multi-valued field. If the $value is undefined or not
given, then that head <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	129	233	
==>ts are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New method: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	129	233	
==>ts are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New method: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5932	6024	
==>{'sub_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6ws> $<fix> := (i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	975	1090	
==>LD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closur <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	975	1090	
==>LD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1387	1486	
==>ublic), the current
time and the text they said is saved.

If the (optional) role parameter C<public <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1387	1486	
==>ublic), the current
time and the text they said is saved.

If the (optional) role parameter C<public <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14795	14889	
==>eporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implemen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14853	14947	
==>eporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implemen <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11600	11755	
==>.
            if ($test{'next'} <= $test{max}) {
                push @{$test{failed}}, $test{'next'}..$test{max};
            }
            # List overruns <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4086	4203	
==>../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4086	4203	
==>../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19480	19583	
==>o Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19480	19583	
==>o Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7223	7339	
==>en message key from the
        # successfully loaded template module; on a function call
        # death, assume mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7223	7339	
==>en message key from the
        # successfully loaded template module; on a function call
        # death, assume mod <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2725	2808	
==>L<http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2725	2808	
==>L<http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2178	2332	
==>pl = {
        repository_set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REPOSITORY_SET <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	266	369	
==>n;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	266	369	
==>n;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4689	4822	
==>ise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4689	4822	
==>ise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!childr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2754	2876	
==>e( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "Q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2742	2864	
==>e( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "Q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2434	2553	
==>6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { return { assign_hash_to_scalar => $() } }
RULE
*{'assign_slurp_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4476	4589	
==>);
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6378	6491	
==>);
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18458	18567	
==>anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14879	14988	
==>anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1820	1926	
==>et( $self.all_superclasses, $self ).members.map:{ .get_methods }
       );
}

method all_assocs($self:) ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	475	579	
==>iables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19058	19174	
==>len} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20416	20532	
==>len} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	158	271	
==>er

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	146	253	
==>er
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1303	1417	
==>sage( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1303	1417	
==>sage( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Int <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5978	6090	
==>28+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        w <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5978	6090	
==>28+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4998	5104	
==>";

  if ($ref ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Regexp:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1164	1292	
==>mediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1369	1497	
==>mediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ], <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23457	23559	
==>dencies; Locale::KeyedText has no non-trivial
external dependencies (it is very simple).

There are oth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23457	23559	
==>dencies; Locale::KeyedText has no non-trivial
external dependencies (it is very simple).

There are oth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3951	4081	
==>] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3951	4081	
==>] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2605	2709	
==>pen }
method end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ()     retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2605	2709	
==>pen }
method end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ()     retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	699	801	
==>te variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	699	801	
==>te variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8608	8735	
==>"sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8608	8735	
==>"sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10012	10122	
==>nted = join '-',  $inst_pkg->prefix, $inst_pkg->name;

            ### find all packages that provide: a <prefi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4872	5072	
==>fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4872	5072	
==>fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	943	1056	
==>he command line
	$dumper = $format{$Pugs::Utils::Interface::format};

	# load the required module
	eval "require $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9702	9802	
==>ie_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9702	9802	
==>ie_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_modul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12407	12525	
==>$from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12407	12525	
==>$from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	124	219	
==>ad1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backend::Perl:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4915	5010	
==>_str () returns str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) returns nil <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15034	15161	
==>ch result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original st <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19209	19336	
==>ch result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18432	18533	
==>ion
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18432	18533	
==>ion
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18570	18676	
==>ld not share
Rosetta objects between multiple threads, nor have objects in separate
threads try to access t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18570	18676	
==>ld not share
Rosetta objects between multiple threads, nor have objects in separate
threads try to access t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4671	4770	
==>ed features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4921	5020	
==>ed features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@per <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2667	2771	
==>ll;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_na <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2667	2771	
==>ll;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6070	6183	
==>operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6070	6183	
==>operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8057	8208	
==>] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7783	7926	
==>] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7246	7363	
==>blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7246	7363	
==>blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code b <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6806	6936	
==>of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6806	6936	
==>of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20798	20890	
==>$h->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20798	20890	
==>$h->header_field_names and the $h->scan callback, but the colons do
not show in $h->as_string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3431	3545	
==>ere does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compiler.pm



### how abo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3309	3418	
==>ere does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compiler.pm

### how abo <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6309	6432	
==>"; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMulti">;
        dbg <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9302	9402	
==>arset_items_opt([])                --> {true}.
p5_charset_item(class_neg(X)) --> "[:^", charset_ident <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13879	13991	
==>) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs support <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13879	13991	
==>) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs support <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1752	1862	
==>] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@stri <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1752	1862	
==>] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@stri <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1072	1176	
==>$key) && $key->isa('type'))
        || confess "Key must be a str type";
    return $self->{$key->to_str- <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1357	1459	
==>'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '" <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1357	1459	
==>'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19385	19477	
==>definition statements are structured as
standard data manipulation statements but that the ta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19385	19477	
==>definition statements are structured as
standard data manipulation statements but that the ta <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	303	437	
==>ake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	254	368	
==>ake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Config;
	return unless (
		$ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1090	1197	
==>se of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
" <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1090	1197	
==>se of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed for so-called 
" <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11489	11611	
==>fe {
        die "Pipe::open is unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	869	983	
==>, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	869	983	
==>, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17152	17253	
==>pan object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is emp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17152	17253	
==>pan object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is emp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6148	6250	
==>Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6148	6250	
==>Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,' <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1543	1642	
==>t.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1543	1642	
==>t.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4421	4514	
==>or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4671	4764	
==>or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3117	3226	
==>e called with a string, and should be called at the 
end of enciphering with zero arguments.

=item C<decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3117	3226	
==>e called with a string, and should be called at the 
end of enciphering with zero arguments.

=item C<decipher <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19079	19176	
==>e that
the removal does I<not> happen automatically if using the header(),
push_header() or init_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19079	19176	
==>e that
the removal does I<not> happen automatically if using the header(),
push_header() or init_h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5288	5424	
==>ld_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5288	5424	
==>ld_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14360	14455	
==>itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14360	14455	
==>itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	437	570	
==>quire ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $sea <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	437	570	
==>quire ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $sea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11896	12030	
==>ub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12175	12309	
==>ub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3068	3168	
==>ning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3068	3168	
==>ning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9946	10071	
==>$I1 <= pos goto err_closure
    $S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, po <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Role.pm	49	142	
==>Array of Perl::Roles @.super_roles;

has Hash of Str, Perl::Meta::Property %.properties;
has H <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2331	2443	
==>ernal packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2879	2991	
==>ernal packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14021	14115	
==>ers in $string with their entity
representation. A second argument can be given to specify whic <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14021	14115	
==>ers in $string with their entity
representation. A second argument can be given to specify whic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7593	7696	
==>uthorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7593	7696	
==>uthorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2238	2420	
==>y $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2238	2420	
==>y $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1706	1819	
==>o_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1766	1879	
==>o_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	310	449	
==>over 4

=item root

The root directory of the repository

=item pool

Path to the pool directory of the repository. $root/jibs if not specif <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3670	3779	
==>INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_extensions { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1267	1362	
==>[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9965	10073	
==>ld.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9965	10073	
==>ld.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2877	3045	
==>density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2877	3045	
==>density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9339	9438	
==>s->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ / <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9339	9438	
==>s->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ / <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21540	21633	
==>bind {my($o,$v)=@_; $o->BIND($v);}


my %space_from_sigil;
my %sigil_from_space;
BEGIN{
%space <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6613	6712	
==>vent is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6613	6712	
==>vent is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1937	2038	
==>king mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1937	2038	
==>king mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2240	2330	
==>certainly would have punted.
Also to iblech, and Michael Schilli of JavaScript::SpiderMonke <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11616	11747	
==>.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11616	11747	
==>.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1431	1560	
==>$1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1431	1560	
==>$1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5562	5672	
==>refix} } @INC ) {
        unshift @INC, $self->{prefix};
    }

    foreach my $rv ( $self->find_extensions($pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2080	2179	
==>e.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2080	2179	
==>e.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1200	1290	
==>=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1200	1290	
==>=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10877	10990	
==>lf};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\(([^\) <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	682	797	
==>"Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	682	797	
==>"Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	554	673	
==>h, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	521	640	
==>h, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6761	6890	
==>lue', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6761	6890	
==>lue', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3069	3270	
==>or" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3069	3270	
==>or" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6391	6501	
==>self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6391	6501	
==>self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	484	675	
==>tr;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	484	675	
==>tr;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($sta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	4	107	
==>d1 NAME

Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	4	107	
==>d1 NAME

Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caes <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10467	10600	
==>ult = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Bec <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10467	10600	
==>ult = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Bec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	614	753	
==>ule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	614	753	
==>ule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() , <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19329	19432	
==>EBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19329	19432	
==>EBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	328	436	
==>gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifte <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	328	436	
==>gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6405	6543	
==>$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_with_f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1139	1250	
==>pe {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	981	1106	
==>Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	981	1106	
==>Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	187	292	
==>t values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	187	292	
==>t values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings i <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1492	1645	
==>$o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1026	1131	
==>r
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement'
# statements <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1026	1131	
==>r
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement'
# statements <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	21	121	
==>urn the last statement evaluated in the .pm, in this case
# 42. See thread "What do use and require e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13927	14027	
==>e
value (a string).  If a header field is multi-valued, then the
routine is called once for each valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13927	14027	
==>e
value (a string).  If a header field is multi-valued, then the
routine is called once for each valu <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2226	2320	
==>ity or memory problems.

Tainting information is discarded.

The perl5 regexp engine is entangl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	921	1032	
==>pe = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Type;
	use base qw/Blondie::Map/;
	
	packa <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7943	8036	
==>teration varies with function.
C<values> returns the value of the associated element; C<kv> re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5591	5715	
==>hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5591	5715	
==>hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18767	18939	
==>\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::opti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19046	19218	
==>\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::opti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10844	10977	
==>"' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to transl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10994	11127	
==>"' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to transl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23812	23906	
==>enerally a simpler solution
than alternatives, and doesn't know about language specific details <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23812	23906	
==>enerally a simpler solution
than alternatives, and doesn't know about language specific details <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11868	11969	
==>es - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&arin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11868	11969	
==>es - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&arin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	84	209	
==>Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die ' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	89	214	
==>Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16899	17047	
==>$match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17178	17326	
==>$match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	754	881	
==>..
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensiona <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	754	881	
==>..
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensiona <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8689	8789	
==>e).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8689	8789	
==>e).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	570	678	
==>.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	570	678	
==>.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7266	7405	
==>) }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7266	7405	
==>) }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.he <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29972	30064	
==>(they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34524	34616	
==>(they just vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19606	19699	
==>sse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19606	19699	
==>sse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::IRC <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7846	7946	
==>Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DE <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7846	7946	
==>Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7669	7788	
==>= shift;
    my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    return $self;
  }
}


{
  package Regexp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2297	2394	
==>method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2297	2394	
==>method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_A <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24930	25024	
==>f this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29482	29576	
==>f this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) return <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4523	4680	
==>oken {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<stri <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4523	4680	
==>oken {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<stri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1735	1869	
==>( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1735	1869	
==>( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16138	16297	
==>"        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16132	16291	
==>"        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21139	21232	
==>our program would use
associated keys internally.

It is strongly suggested (but not required) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21139	21232	
==>our program would use
associated keys internally.

It is strongly suggested (but not required) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2918	3028	
==>he
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2918	3028	
==>he
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1951	2071	
==>print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1951	2071	
==>print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = po <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8843	8971	
==>Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8843	8971	
==>Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	79	229	
==>1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	79	229	
==>1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33559	33652	
==>m C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ary version <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38109	38202	
==>m C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ary version <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7154	7307	
==>p::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7347	7500	
==>p::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	29	125	
==>-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all ele <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	29	125	
==>-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all ele <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5052	5160	
==>e hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5052	5160	
==>e hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2353	2479	
==>efined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2353	2479	
==>efined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1083	1218	
==>ix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }",
    postfix_non =>       
        "exp 'name'         \n" .
        "\t{ \$_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5218	5315	
==>Text library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5218	5315	
==>Text library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AN <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	627	784	
==>'-' .
                        package_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5200	5309	
==>oad the existing index file
        my $index_content = YAML::LoadFile($index);
        my $meta = $pkg->meta- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36285	36390	
==>p::AndBranch;
  my $parser = Regexp::AndBranch->new;

  # matches the first number found in a string
  # t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1876	1981	
==>'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_parser {
  my($ws,$operators,$tokens)= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3431	3629	
==>cat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3678	3876	
==>cat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20675	20770	
==>ou
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20675	20770	
==>ou
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>cha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	1	110	
==>package Perl6::Core::Type;

package type;

use strict;
use warnings;

## Define the basic interface for all ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	763	856	
==>ch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	763	856	
==>ch unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11873	12010	
==>$code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11873	12010	
==>$code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8850	8999	
==>, \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9043	9192	
==>, \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	517	613	
==>s, { "...$^n..." }, which might tilt
the balance.

Clutter:: is a package for macros declared and <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4833	4938	
==>{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $self = shift;
	my $node <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5733	5834	
==>rge, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5733	5834	
==>rge, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7162	7288	
==>sl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7162	7288	
==>sl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10669	10775	
==>hose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10669	10775	
==>hose 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7055	7157	
==>f; more often it is used by 
a block cipher mode role to add some information to the output.

A default <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7055	7157	
==>f; more often it is used by 
a block cipher mode role to add some information to the output.

A default <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5153	5263	
==>sub _all_ok {
    my($tot) = shift;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17790	17887	
==>closing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	400	498	
==>- Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	400	498	
==>- Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2645	2762	
==>tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2645	2762	
==>tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	552	650	
==>y $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	552	650	
==>y $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data:: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6374	6470	
==>s is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6374	6470	
==>s is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML fo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2215	2326	
==>port {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2215	2326	
==>port {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3859	3955	
==>is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIA <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3859	3955	
==>is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIA <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1984	2153	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1984	2153	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	592	723	
==>ther',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	592	723	
==>ther',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31669	31766	
==>program is run, it would
determine either from a user config file or a user interface that the
cur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31669	31766	
==>program is run, it would
determine either from a user config file or a user interface that the
cur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3048	3142	
==>her) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::H <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3048	3142	
==>her) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::H <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6372	6484	
==>nt :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6372	6484	
==>nt :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6033	6127	
==>r Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5824	5917	
==>r Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9035	9159	
==>Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	493	604	
==>Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2082	2175	
==>rAttrType
    (Relation::AttrName $attr_name) {...}

proto method attr_name_exists of Bool (Re <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	788	895	
==>routines defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- u <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	788	895	
==>routines defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1471	1590	
==>= $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @header <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1471	1590	
==>= $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @header <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8119	8222	
==>descr  => "Checking if we have to rebuild the initrd",
  ensure => sub { defined $rebuild },
  using  => <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	177	284	
==>::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() re <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	177	284	
==>::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3815	3928	
==>mport error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3873	3986	
==>mport error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	941	1038	
==>= Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	941	1038	
==>= Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2685	2784	
==>e_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2685	2784	
==>e_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1226	1317	
==>------------------------------

Since you are using Microsoft Windows, you will need the 'nm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1066	1157	
==>------------------------------

Since you are using Microsoft Windows, you will need the 'nm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8685	8784	
==>ldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$old <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8685	8784	
==>ldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$old <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2794	2897	
==>ng children

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2794	2897	
==>ng children

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9578	9682	
==>F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$c01[1]);
    system("diff -u --mini <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3425	3578	
==>/header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3425	3578	
==>/header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20913	21010	
==>e other (near term) third party Engines will likely just map
Rosetta's rigorously defined API onto <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20913	21010	
==>e other (near term) third party Engines will likely just map
Rosetta's rigorously defined API onto <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15132	15273	
==>('add_method' => (
    # method label
        symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV,
            me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2968	3121	
==>ad
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2968	3121	
==>ad
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3034	3408	
==>> $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # Exte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3034	3408	
==>> $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # Exte <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10888	10982	
==>unctions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10888	10982	
==>unctions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7415	7526	
==>t = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.strin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7415	7526	
==>t = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.strin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18568	18671	
==>expression compilation and execution) to
parasitize the regexp struct - attempting to make it look suffi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2858	2961	
==>expression compilation and execution) to
parasitize the regexp struct - attempting to make it look suffi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	639	733	
==>($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	639	733	
==>($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_fi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2729	2834	
==>skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<pugs_version osname duration sum <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4754	4852	
==>{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4754	4852	
==>{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	237	345	
==>ator->new(\*TEST);
  my $it = Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

=head1 DESCRIP <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3005	3104	
==>plice(@array, @array.elems, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649.
&Arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16850	16947	
==>ncoding

The Content-Encoding header field is used as a modifier to the
media type.  When present, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16850	16947	
==>ncoding

The Content-Encoding header field is used as a modifier to the
media type.  When present, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7199	7327	
==>$n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7199	7327	
==>$n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	128	283	
==>l 5 Pugs::Compiler::Rule syntax

# TODO - in order to Grammar.pm to self-compile:
#    unshift @rule_terms, 'dot';

package Pugs::Compiler::Grammar;

use Pu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5238	5338	
==>hild->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self->declare($node);

		my $retu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21486	21651	
==>',
             failed => $failed, 
             percent => $percent,
             estat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8988	9107	
==>a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $len <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8988	9107	
==>a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $len <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2812	2910	
==>lises the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2812	2910	
==>lises the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a l <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	833	1011	
==>(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sec <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	833	1011	
==>(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3068	3171	
==>fer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3068	3171	
==>fer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	271	422	
==>} cmp $b->{package} } 
                 LoadFile( $Available ) 
) {
    print "$struct->{package} -- $struct->{description}\n";

    ### XXX yaml this f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33587	33688	
==>r
scope, and C<sub{ +1 }> is used to come up out of it.  In between these
is C<< $self->{data} >>, whi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3295	3402	
==>], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3295	3402	
==>], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'P <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5222	5317	
==>s-path"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+)\r?$/ } f <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	341	449	
==>"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ? <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	341	449	
==>"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10472	10583	
==>:str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10630	10741	
==>:str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1224	1335	
==>a to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1224	1335	
==>a to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1165	1285	
==>y ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1165	1285	
==>y ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	581	679	
==>retty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	581	679	
==>retty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Da <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2672	2762	
==>somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2672	2762	
==>somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18680	18779	
==>rds {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpression> <AssignmentOperator> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3624	3729	
==>s ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3624	3729	
==>s ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parame <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3667	3781	
==>my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3667	3781	
==>my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	266	381	
==>nd download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	217	323	
==>nd download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_fi <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1365	1463	
==>e at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ft <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1205	1303	
==>e at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ft <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8901	9028	
==>e's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    }) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8901	9028	
==>e's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    }) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3840	3948	
==>$module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3898	4006	
==>$module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1226	1333	
==>or common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (how <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1226	1333	
==>or common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (how <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	910	1026	
==>^v.[1] }, ?$u) is exported(:all) {
  ## XXX - orig: $wanted = [$wanted] unless ref $wanted;
  my $wp := $wanted.isa(A <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21031	21142	
==>ay = 1
  setreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray |= padarray
    self["isar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4131	4236	
==>n1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4131	4236	
==>n1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set:: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2201	2313	
==>d2 Configuration variables.

These variables can be used to configure the behavior of
Test::Harness.  They are ex <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	690	904	
==>t>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	690	904	
==>t>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2425	2572	
==>ription, $reason) = @_;
            $self->report_test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.todo'        => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18768	18870	
==>like many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is less exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18768	18870	
==>like many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is less exp <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1843	1948	
==>@ret !! *@ret;
}


# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# X <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	938	1049	
==>= $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	938	1049	
==>= $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	638	762	
==>n)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	638	762	
==>n)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2810	2931	
==>n $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2810	2931	
==>n $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.d <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9352	9467	
==>c $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        g <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9352	9467	
==>c $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22482	22618	
==>ring group constructs.

=back

=head2 0.01 -- June 29, 2004

=over 4

=item First Release

Documentation not complete, etc.

=back

=head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1390	1514	
==>ead2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 if shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1002	1118	
==>gs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1002	1118	
==>gs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2569	2672	
==>),

If you reduce this AST the code inside the thunk won't be run - it must be the
first child of an App <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	627	724	
==>il}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	627	724	
==>il}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	65	163	
==>egies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Med <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	65	163	
==>egies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Med <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5548	5682	
==>expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        package st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5548	5682	
==>expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        package st <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	27	135	
==>se v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	27	135	
==>se v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1780	1911	
==>header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1780	1911	
==>header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6220	6360	
==>->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6220	6360	
==>->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1020	1141	
==>@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1493	1614	
==>@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	565	815	
==>en version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	565	815	
==>en version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::Ke <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24235	24327	
==>ntrol('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Ex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	317	469	
==>$name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name => $name,
        type => $type || 'type',
    } => $clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7336	7445	
==>perator precedence

=head1 SYNOPSIS

  use Pugs::Grammar::Precedence;

  # example definition for "sub r <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3477	3592	
==>til($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3477	3592	
==>til($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3664	3790	
==>\n" .
        "    require Runtime::Perl5::RuleInit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runtime <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34913	35027	
==>d will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation.  This method
degene <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39463	39577	
==>d will fail if the heading of <$other>
is not a subset of the heading of the invocant Relation.  This method
degene <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12424	12525	
==>ent.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12424	12525	
==>ent.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($cla <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1948	2065	
==>perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1948	2065	
==>perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1599	1740	
==>etween 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1599	1740	
==>etween 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6657	6803	
==>ch...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6442	6579	
==>ch...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13833	13930	
==>ing;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13833	13930	
==>ing;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $strin <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6639	6775	
==>osure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6639	6775	
==>osure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12487	12586	
==>These functions will eval a code snippet, and then pass the result to is or ok
on success, or report <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12545	12644	
==>These functions will eval a code snippet, and then pass the result to is or ok
on success, or report <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4681	4822	
==>eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4669	4810	
==>eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 } <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5725	5888	
==>d.keys;

        my $scope =      %pad<"pScope">[0][0];
        dbg "# Scope:      $scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9197	9292	
==>>> <-[\"\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule SingleStringChara <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28221	28350	
==>e_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28500	28629	
==>e_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18016	18129	
==>spatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->crea <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41281	41394	
==>spatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->crea <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15404	15499	
==>= HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15404	15499	
==>= HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entiti <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1779	1882	
==>port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some featur <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1779	1882	
==>port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some featur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39924	40015	
==>e the C<RPe_BADESC> warning takes two arguments: the character
that was unexpectedly escaped <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13451	13556	
==>efers to another file or test which must be
made to pass before this test can pass (or before an implement <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13509	13614	
==>efers to another file or test which must be
made to pass before this test can pass (or before an implement <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3683	3782	
==>,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).memb <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3683	3782	
==>,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).memb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3648	3768	
==>ammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3841	3961	
==>ammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4589	4718	
==>ath} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{pr <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2330	2458	
==>ath}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1773	1913	
==>{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].unio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1773	1913	
==>{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].unio <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3149	3270	
==>$c) = ($1, $2);
    $c =~ s/^\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$con <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6485	6585	
==>info } }
sub name { '$name' }
END
    }
$code .= "package ${pkg_root}::Node;\n".<<'END';
sub is_slurp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10683	10778	
==>elf.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10683	10778	
==>elf.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3622	3730	
==>x, 100, '... still got the right x for p2');
is($p2->get_y, 200, '... still got the right y for p2');
is($p1- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5018	5122	
==>$ok;
}

=begin _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run is over <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	24	120	
==>::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	24	116	
==>::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23936	24038	
==>ates and returns a new Relation object, whose Heading and
Body attributes are set respectively from the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28488	28590	
==>ates and returns a new Relation object, whose Heading and
Body attributes are set respectively from the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3709	3808	
==>class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3709	3808	
==>class represents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1086	1231	
==>me    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (* <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1086	1231	
==>me    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (* <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	339	441	
==>nt SUBFILE_OF_META    => sub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5027	5169	
==>l,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5220	5362	
==>l,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2220	2314	
==>/tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bibl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2220	2314	
==>/tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bibl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17460	17582	
==>, I<plus>, and I<curly> classes; they have been
combined into one class, I<quantifier>.  You pass it the min and max,
and t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6660	6812	
==>R',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6660	6812	
==>R',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_da <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20818	20949	
==>k-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17239	17370	
==>k-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &R <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	749	859	
==>ule code { <?Perl6.prog> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1588	1723	
==>ig{"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hits = ();

    local *DH <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6363	6464	
==>Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6363	6464	
==>Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8692	8796	
==>er:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8692	8796	
==>er:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7285	7406	
==>=> chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7285	7406	
==>=> chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	342	537	
==>iven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	342	537	
==>iven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp3.pl	5	130	
==>erp3.pl - Interpolation in Perl 6
sub hallo {
	"Hallo, @_[0]!" # $_ würde aber auch gehen!
}

say "Otto sagt: &hallo('Hund')" <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1159	1257	
==>str\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	419	519	
==>ct values from all letters), and an 
unnamed similar cipher where all bytes are changed, not just let <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	419	519	
==>ct values from all letters), and an 
unnamed similar cipher where all bytes are changed, not just let <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10050	10172	
==>F',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10050	10172	
==>F',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12677	12777	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12735	12835	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	290	413	
==>r internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- imp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	272	391	
==>r internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- imp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8323	8433	
==>>{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36193	36294	
==>ith Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEn <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36193	36294	
==>ith Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEn <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1474	1736	
==>er ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1474	1736	
==>er ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3087	3195	
==>chunks);

    # $base now contains the directories the resulting relative path
    # must ascend out of befor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3087	3195	
==>chunks);

    # $base now contains the directories the resulting relative path
    # must ascend out of befor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19341	19504	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19620	19783	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15582	15712	
==>What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run cor <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33493	33587	
==>rce Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation *@ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38043	38137	
==>rce Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation *@ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23861	23955	
==>d doesn't know about language specific details like
encodings or plurality.

My understanding o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23861	23955	
==>d doesn't know about language specific details like
encodings or plurality.

My understanding o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	782	887	
==>rammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in perl 6 parser: '$rule_source' a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1415	1509	
==>alks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1415	1509	
==>alks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	521	649	
==>ne;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsin <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	521	649	
==>ne;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	200	305	
==>ies in a program's model (M1)

=head1 SYNOPSIS

 # class SomeClass { method ... { ... } }
 my $class = Cla <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9505	9601	
==><DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
}
rule Charact <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3519	3636	
==>::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3519	3636	
==>::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1592	1691	
==>returns $value

    $self->leave_scope; # deletes pads since last enter_scope

=head1 DESCRIPTION

A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	993	1084	
==>Backend::Foo->run($program);

=head1 DESCRIPTION

The runtime object is responsible for prov <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1691	1831	
==>..@commits_till_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Deve <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	520	657	
==>e "Stack underflow\n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq '+') {
            p <==
2	/Users/nnunley/pugs/util/package-osx.pl	7225	7323	
==>man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/local/man/man3/Perl6::S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2493	2622	
==>timize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2493	2622	
==>timize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3001	3093	
==>methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3001	3093	
==>methods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15138	15239	
==>ine" back-ends (usually provided by third
parties) implement.  This interface is rigorously defined, s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15138	15239	
==>ine" back-ends (usually provided by third
parties) implement.  This interface is rigorously defined, s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13170	13268	
==>my_bindir =  $self->dir->subdir( $inst_pkg->package )->subdir('bin');

    ### XXX doesn't return a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1713	1809	
==>multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1713	1809	
==>multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	315	418	
==>Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	315	418	
==>Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1179	1290	
==>)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1179	1290	
==>)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25784	25881	
==>d: %s>

If a single subtest decides that further testing will not make sense,
the script dies with <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7403	7516	
==>versal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_ord <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7403	7516	
==>versal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_ord <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5346	5478	
==>.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5346	5478	
==>.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
} <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5635	5790	
==>= +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $sto <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4135	4290	
==>= +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $sto <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22671	22765	
==>s to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22671	22765	
==>s to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	761	870	
==>rs for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$stru <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1245	1354	
==>rs for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$stru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1525	1634	
==>anything declared within

that scope.



the Sig contains a simply structure of the signature; it does

not al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1463	1568	
==>anything declared within
that scope.

the Sig contains a simply structure of the signature; it does
not al <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2905	3029	
==>s($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $R <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3450	3574	
==>s($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $R <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5888	6033	
==>hr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5888	6033	
==>hr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	364	527	
==>mplate     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	364	527	
==>mplate     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15592	15687	
==>har hashes,
which contain the mapping from all characters to the corresponding entities
(and vic <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15592	15687	
==>har hashes,
which contain the mapping from all characters to the corresponding entities
(and vic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1639	1759	
==>xt if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1639	1759	
==>xt if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	583	674	
==>----------------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# -------- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	606	697	
==>-----------------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2360	2472	
==>() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2360	2472	
==>() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstr <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	593	681	
==>------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# --------------- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	616	704	
==>-------
# Author: Yung-chung Lin (xern@cpan.org)
# -------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7487	7603	
==>et - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7487	7603	
==>et - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1308	1502	
==>lse {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            re <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1308	1502	
==>lse {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8747	8846	
==>es a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8747	8846	
==>es a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	3	107	
==>kage Pugs::Grammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	3	107	
==>kage Pugs::Grammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4178	4288	
==>T);

  my $category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} == 0 ? "release" : "repo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18132	18226	
==>osetta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18132	18226	
==>osetta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21113	21207	
==>adata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21113	21207	
==>adata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6289	6400	
==>hod content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6289	6400	
==>hod content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*m <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3320	3431	
==>, @{ $values{requires} || [] }, ];
    }

    warn "No license specified, setting license = 'unknown'\n"
      u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1247	1341	
==>nguage::AttributeGrammar;

# this attribute grammer pretty prints bare types (no foralll)
my $p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3988	4083	
==>ent_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3988	4083	
==>ent_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	868	978	
==>d not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	868	978	
==>d not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rule <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1269	1428	
==>";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2775	2878	
==>ict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2775	2878	
==>ict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::M <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20968	21065	
==>bring this sort of functionality to Perl packages
or programs.  Your package or program can be dis <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20968	21065	
==>bring this sort of functionality to Perl packages
or programs.  Your package or program can be dis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20801	20895	
==>>header_field_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20801	20895	
==>>header_field_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3587	3684	
==>iler
from bootstrapping. 

If that is the case, running C<Makefile.PL> and C<make> in
C<Pugs::Comp <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	150	262	
==>as Code @:events;

  submethod BUILD ($self:) {
    die "There can only be one instance of POE::Kernel."
      if <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	174	283	
==>en:

#!\begin{block}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\end{block}

Neu i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	862	975	
==><REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	862	975	
==><REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4948	5049	
==>2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4948	5049	
==>2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16439	16558	
==>way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyMo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16439	16558	
==>way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyMo <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	193	342	
==>returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        r <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	193	342	
==>returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33362	33481	
==>e user text of another library
which it uses, the Template module for the program or first library should
appear first i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33362	33481	
==>e user text of another library
which it uses, the Template module for the program or first library should
appear first i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25347	25592	
==>ol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->get('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16705	16851	
==>st>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16984	17130	
==>st>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6031	6153	
==>refix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { return { sub_decl => $() ,} }
RULE
*{'sub_defin' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8431	8590	
==>.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8431	8590	
==>.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                csta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4884	5009	
==>d if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4884	5009	
==>d if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3811	3927	
==>pe in a param list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, $inde <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2211	2325	
==>>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper $Z::oop{$id} if $debug;
      my $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4531	4627	
==>rint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4531	4627	
==>rint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Co <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12266	12371	
==>ew( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12266	12371	
==>ew( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1783	1903	
==>of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1783	1903	
==>of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doe <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	470	584	
==>r {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	470	584	
==>r {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2422	2541	
==>$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = shift;
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13951	14060	
==>w) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $sel <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6867	6959	
==>{
	my $self = shift->SUPER::new(@_);
	$self->{t} ||= type::operator::nullary->new("int");
	$s <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	343	449	
==>return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method crea <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	343	449	
==>return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method crea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2025	2169	
==>ht need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2025	2169	
==>ht need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (w <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	434	548	
==>time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($ <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	434	548	
==>time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5654	5757	
==>node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .expor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5654	5757	
==>node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .expor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1361	1498	
==>is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1361	1498	
==>is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) { <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8970	9074	
==>_on() {
  if(previous_comp_hook != NULL) { croak("Cant install twice"); }
  previous_comp_hook = PL_regco <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	0	114	
==>use v6;

use Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime:: <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	0	114	
==>use v6;

use Span;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	93	266	
==>{
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Lat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	93	266	
==>{
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Lat <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9340	9471	
==>r ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	736	866	
==>r ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	678	791	
==>tes

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we have a Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	646	750	
==>tes
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we have a Per <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10022	10123	
==>{load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10022	10123	
==>{load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16883	17012	
==>) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13304	13433	
==>) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1457	1576	
==>gated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1468	1587	
==>gated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ru <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21259	21479	
==>> comb(
                        fun => comb(
                            fun => ide("length'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs"),
							),
						),
						p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15593	15693	
==>y - This contains zero or more attribute names and values
that help to define this Node.

=item C<@!c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15593	15693	
==>y - This contains zero or more attribute names and values
that help to define this Node.

=item C<@!c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1354	1482	
==>e;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_auto <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1354	1482	
==>e;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_auto <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24088	24183	
==>un::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_CODE {
    "(th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5936	6054	
==>rator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5936	6054	
==>rator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	469	577	
==>KAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    operatorTable 
    whitespaceTermTable 
    white <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	764	903	
==>' => $params{'$.description'},
                '$.passed'      =>      $params{'$.passed'},
                '$.reason'      =>      $params{ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3065	3174	
==>e so callbacks can have them.
    $self->{totals}{$name}         = \%totals;
    while( defined(my $line = $it <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3236	3327	
==>t';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use Pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3236	3327	
==>t';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use Pa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3069	3201	
==>fer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3069	3201	
==>fer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Eleme <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6555	6662	
==>Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6555	6662	
==>Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR', <==
2	/Users/nnunley/pugs/util/config_h.pl	331	443	
==>ugs installation 
              (defaults to current directory)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$g <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	211	321	
==>l6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	211	321	
==>l6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1671	1789	
==>H_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1671	1789	
==>H_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value fo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31607	31704	
==>or False regardless of its
argument, in which case the new Relation has either all of the tuples o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36157	36254	
==>or False regardless of its
argument, in which case the new Relation has either all of the tuples o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9064	9170	
==>name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9064	9170	
==>name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	115	212	
==>d anew whenever you enter a new rule or parenthesized
group.  This is approximately the Match obje <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	115	212	
==>d anew whenever you enter a new rule or parenthesized
group.  This is approximately the Match obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	640	753	
==>h \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	640	753	
==>h \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8008	8155	
==>type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->{t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6368	6479	
==>LCALL(&$c,$noop);
    } if $re eq '\z';
    return sub{
      FAIL() if !($X::pos == (length($X::str)) || substr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	48	165	
==>s Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	48	165	
==>s Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2016	2113	
==>x = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=hea <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2016	2113	
==>x = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14258	14378	
==>$second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14258	14378	
==>$second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13987	14132	
==>em from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                . <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13987	14132	
==>em from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5565	5666	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 1) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	100	199	
==>symbols {
    stub('&printf', '$handle', '$format', '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&p <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	853	973	
==>ength, $clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1324	1435	
==>ttings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or die "open: $filenam <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5744	5952	
==>{
      pugs_version  => $1,
      pugs_revision => $2,
      osname        => $3,
      runcore       => runcore2human($4),
      timestamp     => [
        $5,
        do { 
          my $str = localtime($5) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24040	24143	
==>)))
     ($self: get_attr (symbol new @:superclasses)))

=cut

$::Class->send('add_method' => (
    # me <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7747	7838	
==>alue instead of itself
multi unify => ('type::variable::instantiated', 'type') => sub { unif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11229	11373	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11508	11652	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'gram <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6655	6881	
==>m runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6655	6881	
==>m runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4323	4439	
==>ous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4323	4439	
==>ous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        compl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7349	7445	
==>OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_TERNARY );
  goto expect_oper <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3629	3737	
==>h => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'tod <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3629	3737	
==>h => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'tod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2189	2309	
==>{
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2189	2309	
==>{
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	28	121	
==>rcumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::O <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	32	125	
==>rcumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::O <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	927	1045	
==>red in different ways.

=head2 Using the API

The Cipher API has functional, procedural, and object-oriented interfaces <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	927	1045	
==>red in different ways.

=head2 Using the API

The Cipher API has functional, procedural, and object-oriented interfaces <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7402	7515	
==>f.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7402	7515	
==>f.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	387	563	
==>{$stack}) {
                push @{$stack->[-1]} => $new_arr;
            }
            else {
                push @{$subexp} => $new_arr;
            }
            push @{$sta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25471	25572	
==>where the search
 * starts in the string, so if regback is >= 0, the regmust search is never
 * wasted <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8859	8968	
==>sh @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2684	2793	
==>sh @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @state <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	209	313	
==>erl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	209	313	
==>erl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1369	1483	
==>t {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1369	1483	
==>t {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	253	352	
==>'s it called?) test.  But
maybe not.  Either way, the current approach seems plausible, no?

Clutter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4832	4938	
==>> [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5025	5131	
==>> [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2129	2301	
==>users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2129	2301	
==>users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23493	23589	
==>n-trivial
external dependencies (it is very simple).

There are other differences.  Where other s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23493	23589	
==>n-trivial
external dependencies (it is very simple).

There are other differences.  Where other s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33499	33616	
==>h Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33499	33616	
==>h Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1073	1177	
==>Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1073	1177	
==>Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7839	7938	
==>on") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7839	7938	
==>on") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
metho <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6764	6903	
==>y $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12849	12983	
==>y $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6313	6439	
==>r(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6313	6439	
==>r(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12347	12448	
==>LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12347	12448	
==>LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17390	17491	
==>US.

=item $h.title

The title of the document.  In libwww-perl this header will be
initialized automa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17390	17491	
==>US.

=item $h.title

The title of the document.  In libwww-perl this header will be
initialized automa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11463	11560	
==>do not
interact with the outside environment at all.

A Document object has 2 main attributes:

=o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11463	11560	
==>do not
interact with the outside environment at all.

A Document object has 2 main attributes:

=o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	915	1028	
==>ere each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Chi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	915	1028	
==>ere each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Chi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2017	2159	
==>resis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2017	2159	
==>resis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1	100	
==>!/usr/bin/pugs
use v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1	100	
==>!/usr/bin/pugs
use v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10577	10673	
==>osetta::Model Nodes are arranged correctly
depending on their types, that their attributes have r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10577	10673	
==>osetta::Model Nodes are arranged correctly
depending on their types, that their attributes have r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5405	5507	
==>';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5405	5507	
==>';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is exp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19349	19447	
==>REFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines lik <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19349	19447	
==>REFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines lik <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3371	3481	
==>xact => "\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_obje <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2363	2465	
==>}        = $config{'jib_dir'}->subdir('build');
$config{'build_dir'}        = [ Path::Class::dir('root- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12269	12387	
==>/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12269	12387	
==>/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13798	13896	
==>a subroutine to each header field in turn.  The callback routine
is called with two parameters; the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13798	13896	
==>a subroutine to each header field in turn.  The callback routine
is called with two parameters; the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7473	7584	
==>unc)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7473	7584	
==>unc)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3401	3505	
==>oup of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3401	3505	
==>oup of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLA <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	307	425	
==>ules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $File::Find::name if /\.pm/i }, <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	319	433	
==>ules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $File::Find::name =~ /\.pm\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	127	245	
==>$class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = shift;

	Bl <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	0	123	
==>module Module::Pluggable::Fast-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	0	123	
==>module Module::Pluggable::Fast-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9808	9909	
==>xport
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9808	9909	
==>xport
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entiti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4009	4119	
==>n $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1316	1426	
==>n $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4162	4443	
==>g";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our othe <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2630	2729	
==>s.

=head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2630	2729	
==>s.

=head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	144	255	
==>be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	144	255	
==>be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7437	7591	
==>e} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7437	7591	
==>e} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6484	6607	
==>T nodes inherit from this

sub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16128	16232	
==>one
application may handle it internally, while another one displays it to the
user instead.

Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16128	16232	
==>one
application may handle it internally, while another one displays it to the
user instead.

Locale::Key <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1796	1900	
==>e class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Tuple obj <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3530	3630	
==>trig_func 'asin';
trig_func 'acos';
trig_func 'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func ' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2519	2614	
==>t inherit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be fla <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2519	2614	
==>t inherit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be fla <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5065	5176	
==>onnected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5065	5176	
==>onnected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	798	895	
==>utter mess.

The project objectives are nominally:
  1- Provide an environment in which p6 rules c <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7930	8023	
==>tamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newest_p_stamp and
  $ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	531	652	
==>",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	531	652	
==>",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1086	1240	
==>ete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1226	1380	
==>ete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2363	2489	
==>od: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2363	2489	
==>od: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1909	2067	
==>n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1897	2055	
==>n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1720	1834	
==>> join(' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16292	16378	
==>behind_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	217	324	
==>or TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	217	324	
==>or TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5028	5120	
==>es received, then you should use the full object-oriented
interface provided by the C<LWP::Us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5028	5120	
==>es received, then you should use the full object-oriented
interface provided by the C<LWP::Us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13497	13599	
==>rt_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13497	13599	
==>rt_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named par <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8801	8928	
==>968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8801	8928	
==>968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13027	13172	
==>race = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6502	6647	
==>race = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9596	9699	
==>this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9596	9699	
==>this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13647	13752	
==>n the recommended "Good Practice" order.

In scalar context return the number of distinct field names.

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13647	13752	
==>n the recommended "Good Practice" order.

In scalar context return the number of distinct field names.

=i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3414	3530	
==>ptimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting he <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3414	3530	
==>ptimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting he <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4135	4236	
==>rip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4135	4236	
==>rip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5599	5733	
==>previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5611	5745	
==>previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::g <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2183	2287	
==>/, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8218	8325	
==>$neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36551	36649	
==>ional
parameter $message and returns an equivalent human readable text message
string; this assumes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36551	36649	
==>ional
parameter $message and returns an equivalent human readable text message
string; this assumes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7209	7338	
==>return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7197	7326	
==>return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	209	306	
==>"Set", { companion => "class" });
Has($?CLASS, "associations", "Set", { companion => "class" });
H <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	754	867	
==>$msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	754	867	
==>$msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4317	4466	
==>. "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4305	4454	
==>. "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	450	576	
==>t -- mark we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged found matching '$package'\n" u <==
2	/Users/nnunley/pugs/util/version_h.pl	558	669	
==>stions when it has a STDIN and there is
# no repository.  Since we don't need a STDIN anyway, get rid of it.
clo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2714	2894	
==>{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $ <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	119	222	
==>use Blondie::TypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 15;

my $prog = Seq(
	App(
		Sym('&sa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2915	3016	
==>this would load Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2808	2908	
==>this would load Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9221	9325	
==>els{normalize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9221	9325	
==>els{normalize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21479	21581	
==>c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21479	21581	
==>c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15342	15465	
==>ue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15342	15465	
==>ue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5014	5182	
==>an($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub w <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4873	5041	
==>an($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1199	1299	
==>n::LaxPairAttrType
        (Relation::AttrName $attr_name) {
    return %!attrs{$attr_name};
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5375	5499	
==>rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11030	11154	
==>rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3795	3899	
==>riables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3979	4083	
==>riables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10328	10438	
==>next match (end+1)
    match - positional submatches
    named - named submatches
    capture - return'ed th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25268	25368	
==>* it anyway.
 * [regmust is now supplied always.  The tests that use regmust have a
 * heuristic that <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6584	6684	
==>eturn $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9418	9517	
==>bset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9418	9517	
==>bset of C<$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	424	536	
==>ere each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	424	536	
==>ere each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Ro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17567	17695	
==>my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17307	17418	
==>my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2255	2496	
==>t>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2255	2496	
==>t>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7580	7710	
==>IB::Utils->_vcmp( VERSION, VERSION );

Normalizes the versions passed and does a '<=>' on them, returning the result.

=cut

sub _v <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	170	269	
==>o do the job
* Some of this had not been specced yet (need S29 work).

When writing primitives, plea <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28214	28313	
==>lvable";
dies_ok { t($app_plus_ten_to_str) } "can't do a higher order app with uneq types";

# a hel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1680	1802	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1873	1995	
==>my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3060	3159	
==>ort {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, " <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3118	3217	
==>ort {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33793	33895	
==>items corresponds to
an individual user's (or user role's) preferences such that each says what
languag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33793	33895	
==>items corresponds to
an individual user's (or user role's) preferences such that each says what
languag <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20809	20898	
==>distribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC plu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20809	20898	
==>distribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC plu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	979	1099	
==>) {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	979	1099	
==>) {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22400	22515	
==>capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22679	22794	
==>capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data:: <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	571	719	
==>oon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else { <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	571	719	
==>oon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else { <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3035	3148	
==>Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_year ::= &Date::Gregorian::doy;
method week returns Int <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11256	11403	
==>type .= ' ';
                }            
                print("        $num_tests/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? "s" : "" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3161	3349	
==>else {
                    $eigenclass->superclass($class);
                }
                $class = $eigenclass;                
            }
            return ::create_opaque_instance <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	564	661	
==>rd Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	564	661	
==>rd Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor op <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2440	2555	
==>lock       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic P <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7915	8007	
==>le::instantiated') => sub { unify($_[1]{instance}, $_[0], @_[2, 3]) };
multi unify => ('type: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5727	5843	
==>mp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNO <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5727	5843	
==>mp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9393	9508	
==>ect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9393	9508	
==>ect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect( <==
2	/Users/nnunley/pugs/util/package-osx.pl	4756	4853	
==>/man/man3/Perl6::Bible::S09.3pm
        /usr/local/man/man3/Perl6::Bible::S10.3pm
        /usr/loc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28717	28811	
==>aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33269	33363	
==>aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation attri <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7060	7182	
==>ok...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16282	16422	
==>$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16276	16416	
==>$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13328	13449	
==>he elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13328	13449	
==>he elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1310	1407	
==>tests(@test_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do is write a test script, co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2597	2686	
==>le(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?slurp<?p6ws>?$<value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2227	2478	
==>t.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2227	2478	
==>t.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20449	20557	
==>rror(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16870	16978	
==>rror(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1017	1133	
==>_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1017	1133	
==>_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7208	7335	
==>TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7208	7335	
==>TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33844	33945	
==>role's) preferences such that each says what
language they prefer to communicate in, and what their ba <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33844	33945	
==>role's) preferences such that each says what
language they prefer to communicate in, and what their ba <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3638	3738	
==>erator/;

use Scalar::Util ();

sub new {
	my $class_that_should_be = shift;
	my $class = __PACKAGE__ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4008	4089	
==>A-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4008	4089	
==>A-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17566	17707	
==>>new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40835	40976	
==>>new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33399	33499	
==>it uses, the Template module for the program or first library should
appear first in the array.  Each <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33399	33499	
==>it uses, the Template module for the program or first library should
appear first in the array.  Each <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1326	1467	
==>de - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1337	1478	
==>de - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subru <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1352	1549	
==>> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1352	1549	
==>> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2903	3012	
==>closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2903	3012	
==>closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17092	17221	
==>ta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17092	17221	
==>ta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' = <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	598	698	
==>A::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) { <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	598	698	
==>A::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1740	1832	
==>t, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext ver <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1740	1832	
==>t, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext ver <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4991	5162	
==>ft_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4991	5162	
==>ft_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	134	225	
==>me { File::Spec->catfile($FindBin::Bin, @_) }
my $src_root = path_from_me();

sub compile_p6 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15455	15605	
==>tr $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    ki <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15455	15605	
==>tr $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    ki <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	678	783	
==>e[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark runni <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	678	783	
==>e[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark runni <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7915	8019	
==>method _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $.complement_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7915	8019	
==>method _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $.complement_pre <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	77	184	
==>_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %ne <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	77	184	
==>_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5772	5872	
==>lity is to return a negative value for
# relative seconds and a positive value for epoch based time v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5772	5872	
==>lity is to return a negative value for
# relative seconds and a positive value for epoch based time v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21251	21343	
==>_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21251	21343	
==>_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1133	1294	
==>1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30650	30743	
==>d of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> inside the F<__object__> class,
be <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	547	811	
==>osetta-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	547	811	
==>osetta-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4802	4903	
==>irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5052	5153	
==>irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http: <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1429	1533	
==>( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

Th <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1429	1533	
==>( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

Th <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3276	3410	
==>self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use thi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3276	3410	
==>self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use thi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22778	22885	
==>template will
choose to show less than all of the available details depending on the
intended viewer.

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22778	22885	
==>template will
choose to show less than all of the available details depending on the
intended viewer.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3644	3751	
==>$topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3644	3751	
==>$topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7885	8161	
==>$count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7885	8161	
==>$count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	459	583	
==>-1] }

use Regexp::Parser::Diagnostics;
use Regexp::Parser::Objects;
use Regexp::Parser::Handlers;


# this handles 'use base <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7312	7416	
==>_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7312	7416	
==>_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2367	2492	
==>\( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2614	2739	
==>\( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5932	6339	
==>/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5932	6339	
==>/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36450	36548	
==>C<translate_message( $message! )>

This method takes a (machine-readable) Message object as its pos <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36450	36548	
==>C<translate_message( $message! )>

This method takes a (machine-readable) Message object as its pos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7713	7812	
==>[-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7713	7812	
==>[-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normalize <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5177	5276	
==>elf) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $self->{_revisio <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15901	15995	
==>s_bail_out = $strap->_is_bail_out($line, \$reason);

Checks if the line is a "Bail out!".  Plac <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	652	755	
==>------------------------------------
## private methods

my method set_height ($self: Tree $child) retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	652	755	
==>------------------------------------
## private methods

my method set_height ($self: Tree $child) retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7466	7567	
==>$secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7466	7567	
==>$secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8032	8212	
==>f Str $mapping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24918	25033	
==>$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <Quantif <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15577	15672	
==>return $x if !p6_is_perl6_object($x);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = su <==
2	/Users/nnunley/pugs/util/grokprims.pl	820	973	
==>ng="UTF-8" ?><html><body><table border="1">';



foreach my $op (sort 
         {
           $a->{name} cmp $b->{name} or
             $a->{assoc} cmp $b- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	525	649	
==>compression() if $compression_wanted;

my %request = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1736	1873	
==>chor',
      type => $type,
      vis => $vis,
      zerolen => 1,
    }, $class;
    return $self;
  }
}


{
  # . \C
  package Regexp::P <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3885	4000	
==>ist::max(Code $cmp = &infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23395	23493	
==>future where "Relation" is a Role rather than a Class, and some
implementations are immutable rathe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27947	28045	
==>future where "Relation" is a Role rather than a Class, and some
implementations are immutable rathe <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3546	3668	
==>meters, this returns an object representing the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3546	3668	
==>meters, this returns an object representing the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7518	7623	
==>il> 
indicates that there is no more incoming data, and the remaining data should be 
padded and ciphered. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7518	7623	
==>il> 
indicates that there is no more incoming data, and the remaining data should be 
padded and ciphered. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10384	10481	
==>laintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10384	10481	
==>laintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5547	5661	
==>rmalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5547	5661	
==>rmalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2254	2437	
==>_op( {
        name => '+',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => '*',
        fixity => 'infix',
    } );
    $cat->add_op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4080	4198	
==>r in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4929	5047	
==>r in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8607	8703	
==>, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2432	2528	
==>, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14305	14470	
==>alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14584	14749	
==>alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35638	35731	
==>f the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40188	40281	
==>f the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1674	1806	
==>urn;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1674	1806	
==>urn;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4959	5061	
==>wing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4959	5061	
==>wing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1079	1182	
==>.}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "ible <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1079	1182	
==>.}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "ible <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11954	12079	
==>recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11954	12079	
==>recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1128	1237	
==>$table{$symbol}; # find the symbol
    }

    # and then

    my $reduced = My::ASTWalker->new->reduce($progra <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1755	1866	
==>ed by this module.

You may then resume the installation process described in README.

------------------------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1595	1706	
==>ed by this module.

You may then resume the installation process described in README.

------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12746	12875	
==>$path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12746	12875	
==>$path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5508	5691	
==>rap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8985	9168	
==>rap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1738	1852	
==>"\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@AR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1738	1852	
==>"\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@AR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3572	3666	
==>ptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE AL <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3572	3666	
==>ptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE AL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7464	7566	
==>t = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # le <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7464	7566	
==>t = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # le <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15471	15751	
==>, 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->create('$attrs' => hash->new());
                $e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	604	708	
==>))
        || confess "Class must be an instance of reference";
    (blessed($attrs) && $attrs->isa('hash <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	670	769	
==>lled while parsing source code to determine if the
# module/class in a use/no line is part of the Mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	670	769	
==>lled while parsing source code to determine if the
# module/class in a use/no line is part of the Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31354	31473	
==>UPER::init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ . <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6619	6732	
==>t ( %pad<"pType"> );
        $ret = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tree <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9476	9614	
==>ne go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2529	2667	
==>ne go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8631	8732	
==>Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, al <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8631	8732	
==>Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3618	3721	
==>rd_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3618	3721	
==>rd_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13341	13440	
==>'use' statements, you should never refer directly to "Locale::KeyedText" in
your code; instead refer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13341	13440	
==>'use' statements, you should never refer directly to "Locale::KeyedText" in
your code; instead refer <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	162	305	
==>approxfprime(Code $f, Num $x) {
    my Num $delta = 0.1;
    return ($f($x + $delta) - $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	748	850	
==>es which are of its type.

=item *

It serves as the basis for a method dispatch scope.  Note that meth <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5988	6080	
==>aybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5988	6080	
==>aybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	622	736	
==>odule, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	622	736	
==>odule, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Y <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	378	511	
==>};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	378	511	
==>};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8532	8660	
==>\n";
	return "";
    }
    if($kind eq 'Method') {
	$code_body = p6_catch_return_CODE($code_body);
	if(!defined $class) {
	    $c <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	874	974	
==>pied from S29draft.pod 8651.
multi  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when L <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	690	845	
==>> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	690	845	
==>> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5665	5903	
==>r this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain=" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5665	5903	
==>r this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain=" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3842	3934	
==>f.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ),
        c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3842	3934	
==>f.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ),
        c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	363	474	
==>[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	363	474	
==>[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	56	184	
==>has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      clo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	56	184	
==>has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      clo <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	110	279	
==>ip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            de <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	110	279	
==>ip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19338	19469	
==>n.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15759	15890	
==>n.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3947	4082	
==>$conf->compile_dir . q[ -xz] );

            ### preinst hook
            my $preinst = $meta_dir->file( $conf->preinst );
            i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3037	3140	
==>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3037	3140	
==>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age ( <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4108	4242	
==>kefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = shift;
    my $base = $self->is_extension_build
    ? '../..'
    : <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17336	17445	
==>_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] eq $expected : $expected } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5982	6098	
==>le_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6175	6291	
==>le_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3072	3178	
==>join('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must as <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3072	3178	
==>join('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must as <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19489	19629	
==>= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15910	16050	
==>= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	315	464	
==>=> '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC I <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	315	464	
==>=> '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26302	26425	
==>ute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30854	30977	
==>ute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9428	9552	
==>,
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_ze <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9428	9552	
==>,
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_ze <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	628	885	
==>ckages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	628	885	
==>ckages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21276	21376	
==>do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21276	21376	
==>do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4636	4742	
==>$self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub field_is_optional {
    my($sel <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4171	4271	
==>__END__

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2640	2851	
==>_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Mes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2640	2851	
==>_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Mes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	444	565	
==>if (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	444	565	
==>if (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4863	4960	
==>`spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4863	4960	
==>`spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2846	2969	
==>rl_version;
    ### special perl, or the one we are running under?
    if( $perl eq $^X ) {
        ### just load the config <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28527	28621	
==>dicating whether the argument C<$tuple> exists
in / is a member of this Relation::Example.

=it <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6561	6662	
==>peName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'Type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6561	6662	
==>peName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'Type <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	649	743	
==>onstructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot1 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	649	743	
==>onstructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6703	6801	
==>red when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6703	6801	
==>red when a '=cut' directive is reached.

=back

=head2 Element Events

For each POD element, an eve <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3879	3977	
==><[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3879	3977	
==><[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	222	355	
==>ms per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    ) <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	222	355	
==>ms per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31464	31568	
==>ead-only argument. The new
Relation has all of the same attributes as the original.  Trivial cases are
wh <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36014	36118	
==>ead-only argument. The new
Relation has all of the same attributes as the original.  Trivial cases are
wh <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1566	1666	
==>ead2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1566	1666	
==>ead2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	320	435	
==>um { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base) returns Num
    { ... };

multi sub pi is readonly () re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24149	24256	
==>te that permits the execute phase to run lots faster on
 * simple cases.  They are:
 *
 * regstart     sv th <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	23	136	
==>itor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	23	136	
==>itor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6114	6215	
==>f HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  u <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6114	6215	
==>f HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  u <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1129	1331	
==>etection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                e <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1129	1331	
==>etection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12007	12115	
==>xample $other!) returns Relation::Example {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&se <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25809	25898	
==>-----------------------------------------------------------

listify(X,L) :- atom(X), atom <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2630	2723	
==>$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2630	2723	
==>$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	730	825	
==>::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	730	825	
==>::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	326	439	
==>$output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

m <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	326	439	
==>$output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

m <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	696	803	
==>ning
# those files.
#
# Enjoy! -- asavige (aka mad golfer)

use strict;

# XXX: should make this tmp file un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14131	14267	
==>apture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14410	14546	
==>apture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	377	501	
==>cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	377	501	
==>cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6314	6412	
==>ons. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6314	6412	
==>ons. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8448	8557	
==>_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8506	8615	
==>_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	177	290	
==>my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # am <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	177	290	
==>my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # am <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20802	20898	
==>osetta DBMS natively, and be I<the> back-end which
I recommend above all others for production us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20802	20898	
==>osetta DBMS natively, and be I<the> back-end which
I recommend above all others for production us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3988	4107	
==>s), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3848	3963	
==>s), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1939	2064	
==>SA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    my $cwd  = Cwd::cwd();
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11599	11694	
==>"Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multipl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11599	11694	
==>"Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multipl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2354	2456	
==>f.new( spans => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2354	2456	
==>f.new( spans => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::In <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2518	2624	
==>-----------------------------
## getting children

method get_child ($self: Int $index) returns Tree { @!ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2518	2624	
==>-----------------------------
## getting children

method get_child ($self: Int $index) returns Tree { @!ch <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5480	5625	
==>ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" o <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5974	6117	
==>ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" o <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2100	2284	
==>Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3692	3872	
==>Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                r <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4994	5088	
==>> | <hexidecimal_escape_sequence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12503	12610	
==>et1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12503	12610	
==>et1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	781	900	
==>rn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	781	900	
==>rn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _st <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1420	1523	
==>ng) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1420	1523	
==>ng) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	829	940	
==>ay::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code *&test  ) re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1889	2010	
==>thod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1889	2010	
==>thod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4044	4183	
==>5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4044	4183	
==>5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13083	13180	
==>lds used to describe the content of
a message.  All header field names prefixed with C<Content-> f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13083	13180	
==>lds used to describe the content of
a message.  All header field names prefixed with C<Content-> f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23273	23383	
==>True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27825	27935	
==>True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28161	28255	
==>object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28161	28255	
==>object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified version of <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2105	2218	
==>');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPT <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2105	2218	
==>');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15900	15998	
==>- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15900	15998	
==>- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	477	597	
==>ause of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    } <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	477	597	
==>ause of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4314	4446	
==>lines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # init <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4314	4446	
==>lines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # init <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4089	4188	
==>ic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4089	4188	
==>ic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1010	1116	
==>/)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1010	1116	
==>/)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38991	39109	
==>on is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDG <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43805	43923	
==>on is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDG <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9644	9785	
==>t_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9644	9785	
==>t_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	874	1023	
==>n Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	874	1023	
==>n Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2188	2297	
==>params->length->to_native . ")";      
    # loop through the param keys
    for my $i (0 .. $params->elems->t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1121	1236	
==>n('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8047	8161	
==>nsue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $pr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8047	8161	
==>nsue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1669	1763	
==>implementation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11411	11562	
==>(?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11411	11562	
==>(?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13787	13908	
==>pan of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span repre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13787	13908	
==>pan of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span repre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2712	2878	
==>uper;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2917	3083	
==>uper;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3866	4052	
==>nd > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3866	4052	
==>nd > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4120	4222	
==>y default
to 1 if not given.

The value for day can also be the string "last", in which case the
object <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4120	4222	
==>y default
to 1 if not given.

The value for day can also be the string "last", in which case the
object <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13576	13673	
==>ch later than expected.

It may enter an infinite loop if the formula cannot be satisfied within a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13576	13673	
==>ch later than expected.

It may enter an infinite loop if the formula cannot be satisfied within a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2498	2598	
==>gs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2498	2598	
==>gs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like the
P <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1096	1188	
==>code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1096	1188	
==>code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6241	6379	
==>"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "up <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6241	6379	
==>"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "up <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16699	16797	
==>Val->new($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10627	10753	
==>r {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator fo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10627	10753	
==>r {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10848	10958	
==>SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10848	10958	
==>SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	429	547	
==>d .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	429	547	
==>d .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); me <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	146	266	
==>om_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NA <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	146	266	
==>om_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5370	5496	
==>ss, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11025	11151	
==>ss, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	344	459	
==>$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&join := &join.assuming:delimiter(' ');


# copied from S29d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	457	571	
==>start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	457	571	
==>start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	407	543	
==>$pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'ing until we need it
eval 
  q(
    use Fin <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2463	2552	
==>ppreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2463	2552	
==>ppreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22951	23137	
==>:alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23230	23416	
==>:alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10134	10291	
==>$@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10134	10291	
==>$@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3012	3232	
==>ho ] . $inst->dir . qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin comment

        {   
            ### dependencies satisfi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8907	9019	
==>velopment.
  no warnings "recursion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	560	654	
==>ond pass.

Primary configuration settings are read from the file `config.yml` in
the build root <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13306	13411	
==>-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Seq <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2564	2669	
==>($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} if 0;
test(sub{sub{undef}}) if $0 =~ /^re\d\d/;

1;
__EN <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	151	278	
==>ors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	445	543	
==>tforward, a more robust solution would be far more difficult.
# One basically has to reverse engine <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27638	27777	
==>stant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27917	28056	
==>stant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2234	2344	
==>nless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2234	2344	
==>nless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20062	20164	
==>ls C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20062	20164	
==>ls C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler(" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6192	6309	
==>"\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> "$". %"
p5_elemental(word_boundary)     --> "\\b", !.
p5_e <==
2	/Users/nnunley/pugs/util/package-osx.pl	1178	1288	
==>.3
        /usr/local/man/man3/history.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/libhistory <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1696	1806	
==>esented by a named parameter (pair).  (The value of the 
pair is currently unused, but for forward compatibilit <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1696	1806	
==>esented by a named parameter (pair).  (The value of the 
pair is currently unused, but for forward compatibilit <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2953	3146	
==>eq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4568	4675	
==>result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4568	4675	
==>result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3610	3710	
==>eturn ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_instance_class(s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1531	1633	
==>tive::select> function or by including them 
in the C<SELECT_LOGS> environment variable.  There is no f <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1531	1633	
==>tive::select> function or by including them 
in the C<SELECT_LOGS> environment variable.  There is no f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5967	6087	
==>ile};
        push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{extensions} ||= [];
}

sub fi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	895	1011	
==>lity with modules that
# do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	895	1011	
==>lity with modules that
# do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	913	1058	
==>{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '??',
        name2 => '!!',
        assoc => 'non',
        preced <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	687	780	
==>time - Base class for execution system (compiler + interpreter or equivalent).

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4712	4820	
==>$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $? <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4712	4820	
==>$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $? <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	758	904	
==>c)=@_;
    $name = "$name";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	380	480	
==>ormance reality check")
# spike has succeeded.  The most of the re_tests are passing.  While
# the sp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	449	619	
==>!defined $params{'$:expect'}) {
                confess "Invalid or missing plan";            
            }
        }
    },
    methods => {
        'header' => sub { '1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	226	333	
==>export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	226	333	
==>export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4921	5050	
==>ifference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    fo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4921	5050	
==>ifference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    fo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	531	651	
==>Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # cap <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	531	651	
==>Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # cap <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7110	7223	
==>c = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.cabal" or <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7556	7661	
==>results{'exit'} = _wait2exit($?);
    }
    $results{passing} = 0 unless $? == 0;

    $self->_restore_PER <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4482	4582	
==>urrent version of Pugs does not support OO, methods are
implemented as hash keys to code refs. The on <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4482	4582	
==>urrent version of Pugs does not support OO, methods are
implemented as hash keys to code refs. The on <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6928	7034	
==>rocess($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_con <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6928	7034	
==>rocess($real_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_con <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13010	13108	
==>ld.

=item $h.remove_content_headers

This will remove all the header fields used to describe the c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13010	13108	
==>ld.

=item $h.remove_content_headers

This will remove all the header fields used to describe the c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1093	1190	
==>($param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional(1)
		unless $param- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	715	815	
==>hod set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	715	815	
==>hod set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	703	853	
==>" . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($grammar, $ast) = @_;
    # runtime p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	223	360	
==>L;
use Scriptalicious 1.05;
use strict;

sub print_repl_help {
    print ":h             show this help\n";
    print ":q             quit <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4856	4993	
==>( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=pod JIB: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	214	331	
==>brule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	214	331	
==>brule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9233	9326	
==>1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9233	9326	
==>1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6172	6288	
==>type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6172	6288	
==>type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1151	1299	
==>am###\n";
        no strict 'refs';
        my $code = eval($program);
        warn "Error in statement:\n", $program if $@;
        die "error in im <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	528	623	
==>o reverse engineer an implicit abstraction
# "barrier" for the engine, from the entire perl5 sou <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6241	6325	
==>(?:Code|Routine|Sub|Method|Submethod|Macro|Rule|Block|Bare|Parametric)\z/) {
	my($nam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12998	13151	
==>[0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12998	13151	
==>[0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2868	2994	
==>))
        || confess "you can only add types to a list"
            foreach @_;
    CORE::unshift(@{$self} => @_); 
    nil->n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7305	7500	
==>er'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7498	7693	
==>er'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rul <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11644	11743	
==>$recurrence )`

Returns true if this recurrence intersects (has any element in common) with the give <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11644	11743	
==>$recurrence )`

Returns true if this recurrence intersects (has any element in common) with the give <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2866	3022	
==>de}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3050	3206	
==>de}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2220	2324	
==>rhaps define a macro gram ($name) { "rule $name :words" },
#     rather than having the clutter of lots o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14700	14804	
==>pl had problems loading File::Spec: $@";
		$Perl = "./$perl";
	    } else {
		$Perl = File::Spec->catfile <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	889	990	
==>seen{$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = revers <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	176	268	
==>hat einen $haustier\n";
print "$wer mag $obst[0] und $obst[1]\n";
print "${wer}s Lieblingsfar <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1960	2054	
==>onstructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision oper <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1960	2054	
==>onstructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision oper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24585	24728	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24864	25007	
==>:capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'ter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15211	15320	
==>.  Sometimes this is an error message of some kind, but it
could also be a prompt or response message for inte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15211	15320	
==>.  Sometimes this is an error message of some kind, but it
could also be a prompt or response message for inte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6147	6347	
==>ate subdir to copy to" );
                return;
            }                
        }        
        
        ### strip the leading dirs from the target so we don't get a silly
        ### deep di <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3535	3640	
==>[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  Thi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3535	3640	
==>[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  Thi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2020	2130	
==>ess = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  retur <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1006	1116	
==>ess = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1703	1896	
==>callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1703	1896	
==>callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15560	15655	
==>regarding access to information details, or their technical
skills.  For example, a native Frenc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15560	15655	
==>regarding access to information details, or their technical
skills.  For example, a native Frenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8205	8331	
==>$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8193	8319	
==>$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1678	1781	
==>{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PERL6LIB}||"";

my @yaml_harness_args;
push(@yaml_h <==
2	/Users/nnunley/pugs/util/package-osx.pl	8893	8997	
==>("$dest$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10462	10567	
==>_info.')]';
    my $namestr = $stringify->($name);
    my $code_args = "";
    $code_args .= "'\$.name'=>$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14781	14878	
==>fault is "\n".  Embedded "\n" characters in header field
values will be substituted with this line <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14781	14878	
==>fault is "\n".  Embedded "\n" characters in header field
values will be substituted with this line <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3765	3887	
==>$_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $ab <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3765	3887	
==>$_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $ab <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7662	7780	
==>ed;

        # We successfully got template text for the message key, so
        # interpolate the message vars into it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7662	7780	
==>ed;

        # We successfully got template text for the message key, so
        # interpolate the message vars into it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5255	5368	
==>opyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=he <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5255	5368	
==>opyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=he <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2814	2911	
==>TFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs cu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2814	2911	
==>TFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs cu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10120	10231	
==>pan1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10120	10231	
==>pan1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4406	4522	
==>al ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # subs <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4406	4522	
==>al ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # subs <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12316	12417	
==>eturns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the elemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12316	12417	
==>eturns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the elemen <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	311	475	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	311	475	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	3	107	
==>ass Perl::Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	3	107	
==>ass Perl::Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	89	188	
==>:Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

us <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	431	520	
==>($?CLASS, "superclasses", "Set", { companion => "subclasses" });
Has($?CLASS, "subclasses" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14652	14747	
==>es planned for this module.

- better error handling for cmp_ok

The error handling capabilities <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14710	14805	
==>es planned for this module.

- better error handling for cmp_ok

The error handling capabilities <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2307	2422	
==>[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2307	2422	
==>[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2437	2550	
==>ing: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2437	2550	
==>ing: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24426	24528	
==>_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28978	29080	
==>_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7085	7313	
==>vious( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7085	7313	
==>vious( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @ <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	172	279	
==>ll::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Mod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	560	672	
==>ent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <hea <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	560	672	
==>ent-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <hea <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2401	2509	
==>d1 SYNOPSIS

    use Blondie::Nodes;

    Val(1); # a node

=head1 DESCRIPTION

see L<Blondie> for a document <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11991	12095	
==>>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="leftsep num tests_total"><span titl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1981	2127	
==>roup {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1981	2127	
==>roup {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6335	6435	
==>2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6335	6435	
==>2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9498	9598	
==>> sub { `strings $initrd_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m", "0", <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	776	895	
==>6_meta_CODE
       p6_initialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1127	1227	
==>stion/answer format, to explain the design and implementation of Pugs.

=head2 Quick reference of Per <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1127	1227	
==>stion/answer format, to explain the design and implementation of Pugs.

=head2 Quick reference of Per <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	712	818	
==>re($_[1]) == 1  ? bit->new(1) : bit->new(0) }
sub less_than    { $_[0]->_compare($_[1]) == -1 ? bit->new(1) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15796	15898	
==>Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15796	15898	
==>Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13801	13957	
==>ute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sigil
            return $n->{op1}{op} . " '$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4641	4748	
==>l also show numbers for some uneeded cases, but will
        # definately be helpful for things such as == a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7131	7260	
==>osure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7131	7260	
==>osure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1784	1895	
==>Localization of Rosetta::Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en versio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1784	1895	
==>Localization of Rosetta::Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en versio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1800	1945	
==>eturn;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir( CLEANUP => 1 );
#         my $dirname = basename( $self->di <==
2	/Users/nnunley/pugs/util/func_refact.pl	2453	2583	
==>es->{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand)];  # new contri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3204	3330	
==>the repository.
# 
# =cut
# 
# sub add_packages {
#     my $self = shift;
#     my @ret;
# 
#     push @ret, $self->add_package <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22648	22738	
==>ce::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Comm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22648	22738	
==>ce::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Comm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1027	1118	
==>push @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	993	1125	
==>É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	993	1125	
==>É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1700	1859	
==>%param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<ob <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1700	1859	
==>%param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<ob <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	775	874	
==>ie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case the result is an AS <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12041	12132	
==>$self->_restore_PERL5LIB;

This restores the original value of the C<PERL5LIB> environment v <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1393	1496	
==>t::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1393	1496	
==>t::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_nex <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3902	3997	
==>=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3902	3997	
==>=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	71	164	
==>!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	71	164	
==>!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trun <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2915	3012	
==>e are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=ite <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2915	3012	
==>e are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5913	6015	
==>ve port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5913	6015	
==>ve port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns S <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12588	12701	
==>o
C<$comment> (sans #).

=cut

sub _is_comment {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.* <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	318	573	
==>packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Not <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	318	573	
==>packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Not <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3358	3493	
==>__PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}
=pod
.include "cclas <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	129	243	
==>__PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6173	6310	
==>s the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5976	6105	
==>s the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9789	9952	
==>array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9789	9952	
==>array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3016	3118	
==>en /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3016	3118	
==>en /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3614	3717	
==>etta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3614	3717	
==>etta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!par <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16656	16777	
==>list may have from zero to 2 spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16656	16777	
==>list may have from zero to 2 spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `inters <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10569	10687	
==>ol :$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO is primitive is unsafe is builtin {
        die "fancy op <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	3	97	
==>usr/bin/perl

package Blondie::Backend::Perl::Compiler;
use base qw/Blondie::Compiler/;

__PACK <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	987	1136	
==>ol  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	946	1090	
==>ol  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1321	1433	
==>lp

  Perl6 Documentation:
    You will need the Synopses checked out; try

    cd ..
    svn co $_PERL6_DOC ../p <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1274	1373	
==>nt to show the power of Perl 6 defaults and
Currying in a real context.

The newton function must re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9043	9146	
==>e start or end value of the set.

These methods may return nothing if the set is empty.

- `start_is_ope <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9043	9146	
==>e start or end value of the set.

These methods may return nothing if the set is empty.

- `start_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	849	946	
==>nts of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It does <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	849	946	
==>nts of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It does <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	225	317	
==>educer::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Object ();

{
	package Blondie::Back <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5740	5888	
==>le {
    my $class = shift;

    # tokenizer
    %hash = (
        %Pugs::Grammar::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs:: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	720	842	
==>efine the extra
# types for 1 to 1 correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtItem (Perl::T <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9310	9409	
==>ntities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9310	9409	
==>ntities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12502	12626	
==>}, $class;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my $ast = shift;

    Compiler->new->compile( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4566	4658	
==>. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1376	1535	
==>ure => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1321	1472	
==>ure => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14791	14940	
==>pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15070	15219	
==>pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13759	13859	
==>ble to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13817	13917	
==>ble to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4	109	
==>d

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4	109	
==>d

This file is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22297	22409	
==>text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22297	22409	
==>text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	5	121	
==>trict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Root <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4461	4566	
==>sn't able to find '$basename', aborting...\n";
        }

        unless( File::Spec->canonpath($candidate <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14814	14935	
==>t);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14814	14935	
==>t);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3721	3847	
==>test) = @_;
            (blessed($test) && $test->isa('TestBuilder::Test'))
                || confess "test argument must be a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15066	15168	
==>ss
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9265	9367	
==>ss
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_objec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1635	1766	
==>apture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were includ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1569	1694	
==>apture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were includ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3596	3743	
==>re";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3596	3743	
==>re";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14721	14858	
==>ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15000	15137	
==>ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5494	5588	
==>hift @children;
			if ($sub->struct_equiv->isa("Blondie::Param")) {
				push @params, $self->re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18800	18897	
==>e not prepared to
support (such as modification of the compiled re op tree the native
compiler cre <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3090	3187	
==>e not prepared to
support (such as modification of the compiled re op tree the native
compiler cre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6136	6265	
==>h->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6136	6265	
==>h->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	855	962	
==>ne multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	855	962	
==>ne multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10492	10598	
==>rpreter->new;
my $code = join "" => $i->parse($source), '';

warn "\n" . $code . "\n";

eval $code;
warn $@ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6564	6732	
==>ray.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so. <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5068	5236	
==>ray.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11822	11921	
==>rrently not implemented, so you will have to wait
a little while. Until then, you can just write you <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11880	11979	
==>rrently not implemented, so you will have to wait
a little while. Until then, you can just write you <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9451	9548	
==>t contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $obj <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9451	9548	
==>t contains lazy recurrences, it may not be possible to calculate the 
set size.

- `contains( $obj <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20992	21096	
==>distrbution's modules that use Module::Compile based modules
will automatically be compiled into .pmc fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20992	21096	
==>distrbution's modules that use Module::Compile based modules
will automatically be compiled into .pmc fil <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29072	29168	
==>ts, L<Benchmark> for
the underlying timing routines, and L<Devel::Cover> for test coverage
analys <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7454	7556	
==>p`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Impleme <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7454	7556	
==>p`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Impleme <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1933	2041	
==>ry of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DES <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1933	2041	
==>ry of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DES <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13346	13445	
==>ts the range of
  perl versions it will work with, and raises maintenance concerns.
  That said, the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	448	572	
==>sses')->to_native;
    my @seqs = (
        list->new($self->{class}),          # the class we are linearizing
        (map { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10338	10449	
==>ill
look:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $iter->(-depth)) {
      # this is as de <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	947	1055	
==>reate a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * sym <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	947	1055	
==>reate a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * sym <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9332	9459	
==>$is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9332	9459	
==>$is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37241	37350	
==>e of a Perl package in its positional parameter
$module_name (a string) and checks whether or not it has alrea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37241	37350	
==>e of a Perl package in its positional parameter
$module_name (a string) and checks whether or not it has alrea <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	273	389	
==>Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_tim <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	273	389	
==>Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_tim <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	157	271	
==>ort { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	157	271	
==>ort { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2831	3008	
==>if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2831	3008	
==>if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_conten <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1394	1498	
==>}

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1394	1498	
==>}

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1054	1172	
==>);
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1054	1172	
==>);
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12041	12154	
==>irname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1065	1240	
==>abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1065	1240	
==>abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	354	475	
==>_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<ob <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	354	475	
==>_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<ob <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12409	12502	
==>nding argument is undefined).  The new Document object's All Nodes
attribute starts out empty, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12409	12502	
==>nding argument is undefined).  The new Document object's All Nodes
attribute starts out empty, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	906	1022	
==>ceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	906	1022	
==>ceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	729	832	
==>nless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pug <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	174	300	
==>'', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descrip <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	174	300	
==>'', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descrip <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25292	25382	
==>ttp://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system foll <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25292	25382	
==>ttp://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system foll <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5828	5945	
==>pan.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5828	5945	
==>pan.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.sta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7673	7779	
==>ptional'}=1 if s/\?//;
	    $h{'slurpy'}=1 if s/\*//;
	    $h{'isNamed'}=1 if s/\+//;
	    $h{'isInvocant'} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	971	1067	
==>::Backend::Perl - an interpreting backend for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Bac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2162	2261	
==>s -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCOR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2162	2261	
==>s -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCOR <==
2	/Users/nnunley/pugs/util/func_refact.pl	700	833	
==>rint "Ignoring: $_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initial set: " . join(' ', @{$Con <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2296	2402	
==>tory of the output tree.
my $start_dir = cwd;

# ref to hash of information about links that we mean to ins <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10479	10572	
==>lf.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *% <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10479	10572	
==>lf.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *% <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9166	9284	
==>r.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way deco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9166	9284	
==>r.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way deco <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	971	1076	
==>ctory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> d <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	971	1076	
==>ctory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> d <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6292	6474	
==>rict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The headin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9769	9951	
==>rict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The headin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5277	5380	
==>cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5277	5380	
==>cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3805	3988	
==>\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3805	3988	
==>\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    retur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16233	16343	
==>_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        stru <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20659	20769	
==>_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        stru <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	431	582	
==>ew(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	431	582	
==>ew(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36255	36344	
==>e resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36255	36344	
==>e resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
in <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7517	7626	
==>unks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basech <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7517	7626	
==>unks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basech <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16344	16491	
==>$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16344	16491	
==>$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1011	1122	
==>rence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * pro <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1011	1122	
==>rence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1013	1131	
==>Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1013	1131	
==>Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1207	1340	
==>nshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1207	1340	
==>nshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5505	5632	
==>$.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5505	5632	
==>$.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6019	6189	
==>status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6019	6189	
==>status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6775	6903	
==>' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6775	6903	
==>' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15906	15995	
==>cument!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15906	15995	
==>cument!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20109	20205	
==>gE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20109	20205	
==>gE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	294	398	
==>e Perl6::Core::Bit;

# comparisons

# implement this and get the rest for free
# NOTE: 
# compare returns <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6228	6339	
==>et = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6228	6339	
==>et = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2250	2346	
==>h Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2339	2435	
==>h Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9787	9903	
==>set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9787	9903	
==>set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14911	15013	
==>target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:en <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14911	15013	
==>target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17871	17972	
==>reate more than one DBMS object at a time, and they are
essentially all isolated from each other, even <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17871	17972	
==>reate more than one DBMS object at a time, and they are
essentially all isolated from each other, even <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1720	1837	
==>> 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1720	1837	
==>> 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3786	3899	
==>tent needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   M <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3786	3899	
==>tent needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3474	3740	
==>Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3474	3740	
==>Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Inter <==
2	/Users/nnunley/pugs/util/version_h.pl	1424	1550	
==>to //svk/trunk
            if (my @info = qx/svk info $source_depot/ and $? == 0) {
                if (my ($line) = grep /(?:f <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5231	5343	
==>x} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @files = _globdir $dir;

Returns all the files in a di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15329	15430	
==>e_object(anyof_class => word => $neg, \$how);
  });

  # xdigit POSIX class
  $self->add_handler('POSI <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1523	1758	
==>e {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1523	1758	
==>e {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22551	22678	
==>$dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23053	23180	
==>$dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5663	5799	
==>_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5663	5799	
==>_[0]->() /sgx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	905	1080	
==>def;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	905	1080	
==>def;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1404	1518	
==>st_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1404	1518	
==>st_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13117	13240	
==>print "prefix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$v <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7258	7365	
==>alues %$o) { rebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13315	13508	
==>>get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canidate' => s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3756	3862	
==>u call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to return any lef <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3756	3862	
==>u call the cipher() method repeatedly 
with your data.  Finally, call the finish() method to return any lef <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5855	5956	
==>t_oper_empty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whitespaceP <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	376	515	
==>events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.rea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	376	515	
==>events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.rea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22695	22799	
==>n Heading>

Set of Str - This contains zero or more Relation attribute names that
define the heading of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27247	27351	
==>n Heading>

Set of Str - This contains zero or more Relation attribute names that
define the heading of t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3596	3824	
==>em' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3596	3824	
==>em' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6144	6247	
==>e data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6144	6247	
==>e data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14441	14556	
==>ble_file, @avail ) };
    $@ and error( "Could not write available file: $@" ), return;
    
    my @alts = map { $_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16403	16533	
==>, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16403	16533	
==>, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5952	6072	
==>ure} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set insi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5765	5879	
==>ure} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set insi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	921	1027	
==>c, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	979	1085	
==>c, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5161	5280	
==>y $new = $type->type;
			return $type if ref $new and $new == $type;
			$type = $new;
		}
		$type;
	}

	sub display_type <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3315	3423	
==>new $p1->class->(100, 200);
is($p2->class, \&Point, '... got the right class name');

is($p2->get_x, 100, '.. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	642	739	
==>mputer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	642	739	
==>mputer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6565	6682	
==>get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $fh   = get_str( $_[0], '$<indirect_obj <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24344	24439	
==>ll the other tuples.

For purposes of the Relation::Example class' API, a tuple is represented b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5189	5297	
==>that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $remove <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5189	5297	
==>that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $remove <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13038	13151	
==>gs{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you're running under -T, you really m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4476	4581	
==>= shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $self-> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	85	197	
==>Multi;

has Str $.subName;

# SubType is SubMethod | SubRoutine | SubBlock | SubPrim
enum SubType «SubMethod Sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6050	6158	
==>d
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = substr targe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20275	20370	
==>ult of the compilation
is replaced by a single line containing the hexadecimal digest of the
res <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20275	20370	
==>ult of the compilation
is replaced by a single line containing the hexadecimal digest of the
res <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	55	163	
==>() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17783	17888	
==>exp)
.end

.namespace [ "PGE::Exp" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = defined self[" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17213	17320	
==>r the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for some ki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17213	17320	
==>r the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for some ki <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2240	2357	
==>param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2240	2357	
==>param<start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	285	462	
==>run {
    my $self = shift;
	my $prog = shift;

    my $c = $self->compile($prog);

    $self->execute($c);
}

sub interpreter {
    my $self = shift;
    my $class = $self->inte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4151	4248	
==>d by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vil <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4151	4248	
==>d by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vil <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1721	1833	
==>clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method eq <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1721	1833	
==>clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method eq <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2820	2928	
==>normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2820	2928	
==>normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.r <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4565	4678	
==>n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	302	408	
==>og<>.assuming:base(10);

multi sub rand (; Num ?$x = 1, Num :$seed )
    returns Num { ... }

multi sub sig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15023	15203	
==>stant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15302	15482	
==>stant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3533	3680	
==>el} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3533	3680	
==>el} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - M <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11585	11729	
==>$initrd_mnt/lib6/$_" or return for @modfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@modfiles) {
        if(- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15547	15684	
==>mage
      "-boot-load-size" => 4,              # Set numbers of load sectors
      "-boot-info-table",                  # Patch boot imag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12003	12100	
==>return "$_[1] alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( ma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15894	15993	
==>rovides a system for writing modules that I<compile> other
Perl modules.

Modules that use these com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15894	15993	
==>rovides a system for writing modules that I<compile> other
Perl modules.

Modules that use these com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5612	5782	
==>will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6076	6246	
==>will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9999	10108	
==>elf.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9999	10108	
==>elf.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5123	5232	
==>o bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5345	5454	
==>o bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12301	12408	
==>);
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, y <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12301	12408	
==>);
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, y <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13826	13945	
==>MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytests --> Int|(List of Pair) )
 multi Ha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	515	644	
==>ef,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a H <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	515	644	
==>ef,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a H <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1076	1365	
==>= 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' is not readable ].
                                           q[or does not exist]);
                                    return;
                            };    
u <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11481	11585	
==>f->can($type)
        ? $self->$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduce <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	185	314	
==>her(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	185	314	
==>her(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<en <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9205	9338	
==>name;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} else {
	    push(@names5,'$'.p6_mangle($pname));
	}
	my $aname = $pname;
	$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	784	879	
==>...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	784	879	
==>...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compil <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1101	1230	
==>capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.captur <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1101	1230	
==>capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.captur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	589	734	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Eac <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4067	4212	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Eac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1892	2016	
==>ixity => 'infix', op1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non =>       
        "exp 'name' exp 'n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6664	6752	
==>test_on_object'
});

is($Object->singleton_test_on_object(), 
   '&Object::singleton_test <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2776	2893	
==>> $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import" <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	951	1067	
==>> $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import" <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7709	7816	
==>thod post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7709	7816	
==>thod post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $ch <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5188	5308	
==>on.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8665	8785	
==>on.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map:{
            ma <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1662	1759	
==>head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix vers <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1662	1759	
==>head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix vers <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21051	21144	
==>s
will automatically be compiled into .pmc files and shipped with your
distribtution precompil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21051	21144	
==>s
will automatically be compiled into .pmc files and shipped with your
distribtution precompil <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2816	2932	
==>$set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2816	2932	
==>$set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_nex <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	127	236	
==>r;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLeng <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	127	236	
==>r;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLeng <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	33	134	
==>osition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code & <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	33	134	
==>osition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code & <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	484	589	
==>sion to native value
sub to_native { shift }

# keep this here for a consistent interface
sub to_str { str <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6485	6604	
==>al') {
	warn "global PPad may not be doing the right thing\n";
	$decl = "no strict; ($varlist)$init; use strict;";
    } <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3623	3912	
==>($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3623	3912	
==>($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8585	8697	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8778	8890	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21930	22146	
==>oncat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22209	22425	
==>oncat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7573	7682	
==>y $a = $_[0];
   $a =~ s/^(.)\*(.+)$/$1$2/;
   return $a;
}
sub node::variable {
    return $_[0];
}
*node::va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3615	3777	
==>efined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3615	3777	
==>efined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6386	6519	
==>t Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6386	6519	
==>t Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3797	3899	
==>say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3797	3899	
==>say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2546	2646	
==>eam.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can compr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2546	2646	
==>eam.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can compr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6869	7024	
==>s ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6869	7024	
==>s ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17270	17373	
==>ite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an itera <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17270	17373	
==>ite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an itera <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14161	14259	
==>enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14161	14259	
==>enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1060	1170	
==>lidate_params();
  add_smoke();
  clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  if(not $CG <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20416	20520	
==>including the
'_' to '-' translation.  There are some application where this is not
appropriate.  Prefixi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20416	20520	
==>including the
'_' to '-' translation.  There are some application where this is not
appropriate.  Prefixi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4469	4617	
==>her => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'or',
        assoc => 'left',
        precedence => 'looser',
        other => ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4956	5109	
==>ss' => sub ($) {
            return ::opaque_instance_class(shift)->superclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8228	8394	
==>thing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No pack <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8692	8858	
==>thing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No pack <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3124	3264	
==>just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3124	3264	
==>just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5658	5778	
==>dir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5658	5778	
==>dir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34816	34962	
==>);

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      fam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12241	12358	
==>e = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4884	5001	
==>e = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6316	6421	
==>h/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6316	6421	
==>h/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	234	351	
==>$param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	234	351	
==>$param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $cla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1023	1181	
==>ey {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1023	1181	
==>ey {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %* <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3255	3372	
==>nt STDERR $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $warn = $@ ? "Eval of -CPerl5 code failed: $@ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7208	7335	
==>4),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "ale <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7208	7335	
==>4),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "ale <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15886	15986	
==>module provides a system for writing modules that I<compile> other
Perl modules.

Modules that use th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15886	15986	
==>module provides a system for writing modules that I<compile> other
Perl modules.

Modules that use th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1982	2094	
==>f the tokenizer rules.
#     So it isnt entirely clear we are doing an fully correct parse.
#
#  Todo:
#   * Crea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33735	33826	
==>eading!, Code $transformer!) returns Relation::Example>

This method is a short-hand or alte <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2070	2167	
==>esents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2070	2167	
==>esents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2985	3127	
==>";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    print " <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	939	1044	
==>ed($callback);
  my $r_address;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7823	7932	
==>$match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7560	7662	
==>$match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2446	2548	
==>covering all the roots of a
function (not that Newton's method is ever really good at that).

=head2 Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12593	12687	
==>$S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6068	6162	
==>$S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3214	3370	
==>t => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3461	3617	
==>t => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2103	2233	
==><start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2103	2233	
==><start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $sta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19557	19661	
==>e.
n=0 is the whole match.  $1 is n=1, etc.
A -1 in both indicates the capture didn't happen.

  U32 last <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3573	3687	
==>, 0);
  my $position = $matchObjPos;
  my $lastPosition = length $target;
  my @bsrStack = [];
  #XXX
  my $operato <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4959	5059	
==>eviated to uniqueness.

Author:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael Ha <==
2	/Users/nnunley/pugs/util/drift.pl	1340	1467	
==>, $in or die $!;
open OUT, "> $out" or die $!;
while (<IN>) {
    /OPTION/ or last;
	s{\Q../}{../../}; # Hack to fix includes (I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26725	26854	
==>apture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27004	27133	
==>apture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	463	612	
==>->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$Root/;
        print "\t$_\n";
    }
 
    ### show alterna <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1454	1550	
==>antifiers are implemented by passing a C<Result> object that has a
$.backtrack closure that calls <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1454	1550	
==>antifiers are implemented by passing a C<Result> object that has a
$.backtrack closure that calls <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5201	5295	
==>l=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2045	2136	
==>if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post) = ($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	19	118	
==>l::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	19	118	
==>l::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3860	3957	
==>ions )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule synt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4044	4141	
==>ions )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule synt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25880	25991	
==>s>

Hash(Str) of Any - This contains zero or more variable names and values
that are associated with the message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25880	25991	
==>s>

Hash(Str) of Any - This contains zero or more variable names and values
that are associated with the message <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9702	9823	
==>constant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12539	12645	
==>>add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6014	6120	
==>>add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5249	5380	
==>en = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end o <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3749	3880	
==>en = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3232	3333	
==>the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3232	3333	
==>the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17014	17163	
==>\G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13435	13584	
==>\G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1338	1462	
==>hod end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An obj <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1338	1462	
==>hod end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An obj <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11967	12068	
==>)`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11967	12068	
==>)`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Retu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4024	4131	
==>@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4024	4131	
==>@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2 <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1261	1379	
==>...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0- <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1261	1379	
==>...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11667	11756	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@a <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11667	11756	
==>ad1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3075	3195	
==>(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end i <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3075	3195	
==>(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end i <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1817	1914	
==>ibrary.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free softw <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1817	1914	
==>ibrary.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free softw <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7688	7797	
==>ully got template text for the message key, so
        # interpolate the message vars into it and return that. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7688	7797	
==>ully got template text for the message key, so
        # interpolate the message vars into it and return that. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23873	24096	
==>@canon, $last;
                } else {
                    push @canon, "$min-$last";
                }
                $min = $_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @resul <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	461	559	
==>ERSION

Version 2.46

=cut

$VERSION = "2.46";

# Backwards compatibility for exportable variable n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4534	4627	
==>$S->force_object(anyof_char_comp => "\r", '\R') if $cc;
    return $S->object(exact_comp => "\ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1234	1330	
==>ind modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curren <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1234	1330	
==>ind modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curren <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7484	7582	
==>te(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7484	7582	
==>te(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18585	18683	
==>setta objects between multiple threads, nor have objects in separate
threads try to access the same <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18585	18683	
==>setta objects between multiple threads, nor have objects in separate
threads try to access the same <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8626	8735	
==>ub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8622	8731	
==>ub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1168	1284	
==>%{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{out}= { named_only => 1, %{$_[2]} } }
    |   '*' signature <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2078	2287	
==>x)->scalar_store($value);
            },

            'array_fetchSize' => sub { # $int
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                scal <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1384	1527	
==>td";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondie::TypeSafe::Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6341	6499	
==>(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24562	24654	
==>se (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either versio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24562	24654	
==>se (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either versio <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1661	1867	
==>s is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1350	1471	
==>$struct;
    
    ### if it has a dependency list, transform it into an object
    if( $obj->can('depends') ) {
        $o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	756	926	
==>:code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	756	926	
==>:code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3240	3348	
==>rom http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_cor <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3240	3348	
==>rom http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_cor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	240	363	
==>$param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	240	363	
==>$param = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3176	3297	
==>)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ym <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3176	3297	
==>)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ym <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13072	13195	
==>ommand => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13072	13195	
==>ommand => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4519	4619	
==>atements, you should never refer directly to "Rosetta" in your
code; instead refer to other above-nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4519	4619	
==>atements, you should never refer directly to "Rosetta" in your
code; instead refer to other above-nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3151	3301	
==>);
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3151	3301	
==>);
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14346	14444	
==>-1]->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self->{min} == 0 and $self->{max} == <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4577	4707	
==>',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "ti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4577	4707	
==>',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "ti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	504	674	
==>$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	504	674	
==>$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fixity};
    }
    $h{$_} = $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6507	6615	
==>lf.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $closure2, $direc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6507	6615	
==>lf.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $closure2, $direc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24626	24729	
==>);

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21047	21150	
==>);

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S <==
2	/Users/nnunley/pugs/util/version_h.pl	908	1081	
==>mmitted-rev=.(\d+)./ or next;
        $revision = $1;
        last;
    }
    close FH;
} elsif (my @info = qx/svk info/ and $? == 0) {
    print "Writing version from `svk i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13770	13889	
==>LED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;
  sub emit {
    my($ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	213	315	
==>ecced yet (need S29 work).

When writing primitives, please do *not* use `return()`, because
that messe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3703	3821	
==>m:
  goto null_term if $position >= $lastPosition;
 
  my $currentTermTable = $self->whitespaceTermTable();
  (substr $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6396	6495	
==>es %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a->{name} cmp $b->{name} } (va <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5612	5713	
==>u should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5612	5713	
==>u should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. D <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3919	4027	
==>tended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3919	4027	
==>tended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<v <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15233	15337	
==>identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18710	18814	
==>identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2166	2280	
==>ment_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2166	2280	
==>ment_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19379	19509	
==>split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on | <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15800	15930	
==>split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on | <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2601	2718	
==>le(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2601	2718	
==>le(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $< <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7651	7754	
==>end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7651	7754	
==>end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11512	11613	
==>ll.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11512	11613	
==>ll.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Ro <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2169	2290	
==>path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Sinc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2169	2290	
==>path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Sinc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6501	6668	
==>rse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6501	6668	
==>rse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.mat <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	154	263	
==>me;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1062	1163	
==>r was
# working and robust, it would make sense to continue for a while on
# Regexp::Parser.  But it's <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30249	30345	
==>t order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34801	34897	
==>t order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	103	199	
==>REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::Clas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	635	839	
==>:constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	636	840	
==>:constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" ) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3172	3318	
==>@_)
            foreach @_;
    CORE::push(@{$self} => @_); 
    nil->new();
}

sub reverse {
    my $self = shift;
    list->new(CORE::reverse(@{$ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1882	1989	
==>.exists($P) {
        my $attr = $O.property_attributes{$P};
        return JSX::false if $attr && $attr.Rea <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2434	2545	
==>ething else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2434	2545	
==>ething else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3919	4036	
==>VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX cle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3919	4036	
==>VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX cle <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	660	762	
==>m<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TOD <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	660	762	
==>m<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TOD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5910	6010	
==>->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5910	6010	
==>->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4751	4874	
==>fset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4751	4874	
==>fset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17947	18045	
==>st.

=item $h.from

This header should contain an Internet e-mail address for the human
user who co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17947	18045	
==>st.

=item $h.from

This header should contain an Internet e-mail address for the human
user who co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	444	580	
==>args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{ <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	464	588	
==>args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6469	6597	
==>number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule UnicodeCombiningMark {  # see 7.6
      # any character in the <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6852	6951	
==>and find no closing match, I should
ignore the opening one. However, this means I should defer event <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6852	6951	
==>and find no closing match, I should
ignore the opening one. However, this means I should defer event <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4560	4687	
==>}
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @he <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4560	4687	
==>}
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @he <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	981	1074	
==>=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>autrijus@aut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6956	7053	
==>d' versions. 



The rule() constructor provides an interface between the 

low-level functional o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6719	6813	
==>d' versions. 

The rule() constructor provides an interface between the 
low-level functional o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2260	2412	
==>.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2260	2412	
==>.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify w <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3505	3627	
==>ccent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3505	3627	
==>ccent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yac <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1922	2098	
==>ble;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1922	2098	
==>ble;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        fo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	543	646	
==>";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	543	646	
==>";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10813	10978	
==>rns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods')) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47491	47639	
==>l
        symbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3691	3806	
==>w {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('symbol'))
        || confess "You must store a symbo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5716	5823	
==>n::Example {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20141	20236	
==>od will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20141	20236	
==>od will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4783	4923	
==>rs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unsh <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4783	4923	
==>rs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unsh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24583	24692	
==>om >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21004	21113	
==>om >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1212	1328	
==>os('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1212	1328	
==>os('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18666	18788	
==>ence";
    }
    else {
        # We can't use UNIVERSAL::isa because we want to honor isa() overrides
        local($@, $! <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	109	209	
==>:X1::Compile;
require Perl6::Run::OnPerl5::X1::Prelude;

sub initialize {
    Perl6::Run::OnPerl5::X1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9383	9480	
==>re group, pass its numerical
value:

  my $capture_2 = $parser->captures(2);

=head2 Walking the T <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8109	8253	
==>,
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8109	8253	
==>,
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746) <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	200	325	
==>s : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!suc <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	200	325	
==>s : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!suc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	698	805	
==>eturn $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $hea <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	698	805	
==>eturn $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $hea <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2275	2404	
==>~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2275	2404	
==>~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4086	4185	
==>le backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4270	4369	
==>le backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29549	29649	
==>t need
to match it; it has already been consumed.

If you created a handle for '&&' without a predece <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1087	1199	
==>[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1087	1199	
==>[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2890	3028	
==>accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2890	3028	
==>accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # sma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22048	22172	
==>/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') {
	$mn .= "::META";
    } else {
	my $space = $space_from_sig <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2101	2234	
==>t" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2101	2234	
==>t" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13006	13115	
==>t =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13006	13115	
==>t =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24953	25051	
==>Text::Message Class

A Message object is a simple container which stores data to be used or
display <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24953	25051	
==>Text::Message Class

A Message object is a simple container which stores data to be used or
display <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10500	10612	
==>rmed at all.  They validate everything except
well-formedness, such as that Rosetta::Model Nodes are arranged cor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10500	10612	
==>rmed at all.  They validate everything except
well-formedness, such as that Rosetta::Model Nodes are arranged cor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4475	4600	
==>ll in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We hav <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4475	4600	
==>ll in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We hav <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	938	1058	
==>ub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	938	1058	
==>ub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1412	1511	
==>tead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1412	1511	
==>tead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16982	17081	
==>self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:descendant);
    for WALKME <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2447	2586	
==>else {
		    print "ok\n";
		}
	    }
	}
    }
}

do {
    # $use_native_ui = 1;
    test(sub{my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17023	17147	
==>w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are other p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9116	9204	
==>em1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charse <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9220	9305	
==>em1|MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charse <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35360	35501	
==>>new('add_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2976	3090	
==>s, these functions are not "correct" :)
method doy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7206	7312	
==>&& return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7194	7300	
==>&& return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30927	31032	
==>ember Name comes next and is what distinguishes each module from others in
its set. For maximum flexibilit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30927	31032	
==>ember Name comes next and is what distinguishes each module from others in
its set. For maximum flexibilit <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4911	5014	
==>ects. These
methods can be called with the following syntax:

  $config<read>('config.ini');
  
where C< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4911	5014	
==>ects. These
methods can be called with the following syntax:

  $config<read>('config.ini');
  
where C< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4815	5018	
==>NV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6577	6780	
==>NV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3920	4030	
==>:grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4137	4247	
==>:grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	206	331	
==>e::Simple        qw[:STD];
use Module::Load::Conditional   qw[can_load];
use File::Basename              qw[dirname];

=pod

= <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22310	22400	
==>ar_type(Ca,to_lower(C)), char_type(Cb,to_lower(C)).

charset_member(_E,C,[char(C)|_]) :- !. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	658	761	
==>TE>. When it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmid <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	658	761	
==>TE>. When it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmid <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26486	26633	
==>ock = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26765	26912	
==>ock = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1605	1746	
==>$_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1540	1674	
==>$_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4449	4590	
==>'looser',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'or',
        assoc => 'left',
        precedence => ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24296	24397	
==>ay be an Set with a single member that is an empty Mapping.

=back

A Relation object has these method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28848	28949	
==>ay be an Set with a single member that is an empty Mapping.

=back

A Relation object has these method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5887	6000	
==>rpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5875	5988	
==>rpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18466	18571	
==>orld-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18466	18571	
==>orld-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	714	811	
==>h (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	714	811	
==>h (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $pa <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	346	466	
==>ad1 NAME

Type - Perl 6 types

=head1 SYNOPSIS

 my $class = Class.new("SomeClass");
 my $type = Type.new(Class.new("Some <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3011	3163	
==>p = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3011	3163	
==>p = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8279	8382	
==>found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<start_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8279	8382	
==>found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<start_elem <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7355	7455	
==>lti sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *inf <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7355	7455	
==>lti sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi sub *inf <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5519	5614	
==>() if ( $whitespacePosition <= $position );

  expect_oper_1:
  $key = $$currentOperatorTable->l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1614	1763	
==>s in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1614	1763	
==>s in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xF <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6945	7051	
==>ponse code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6945	7051	
==>ponse code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3105	3208	
==>meter named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3105	3208	
==>meter named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will r <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	967	1064	
==>::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of mes <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	967	1064	
==>::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of mes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1887	2025	
==>) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1947	2085	
==>) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            ret <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11151	11246	
==>ns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11151	11246	
==>ns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3250	3352	
==><rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means that t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3250	3352	
==><rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means that t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1456	1559	
==>l, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1514	1617	
==>l, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8328	8431	
==>dex{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8316	8419	
==>dex{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24953	25053	
==>ype::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → β → γ", "pr <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2514	2636	
==>le ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return @{ $self->{'val <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7351	7458	
==>e_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7351	7458	
==>e_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14845	14940	
==>reates a span with "integer" semantics.

- `new( :density($day_duration), start => $first_day, e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14845	14940	
==>reates a span with "integer" semantics.

- `new( :density($day_duration), start => $first_day, e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1364	1475	
==>y;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param<objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1364	1475	
==>y;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param<objec <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6860	7050	
==>se) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6917	7107	
==>se) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14985	15161	
==>( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15264	15440	
==>( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	2103	2224	
==>($_ - $_[0]) / ONE_DAY);

    if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || 0
        while $#till_d <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25432	25530	
==>al> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

Th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29984	30082	
==>al> with the same argument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

Th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3885	3987	
==>*infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3885	3987	
==>*infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	142	247	
==>emote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	142	247	
==>emote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14292	14386	
==>(C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14292	14386	
==>(C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_string <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1682	1811	
==>) =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

# Local variab <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2220	2323	
==>t creates a initrd and copies your pugs binary and the shared libraries
it needs on it. Finally, it will <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1784	1895	
==>maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"} <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1784	1895	
==>maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13213	13311	
==>),
  and is thus not very portable to broken (no compiler) microsoft systems.

  The implementation <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11728	11832	
==>er('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11728	11832	
==>er('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field v <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1236	1337	
==>code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1236	1337	
==>code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6464	6610	
==>msp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6464	6610	
==>msp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	424	534	
==>();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	424	534	
==>();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	233	359	
==>{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # print Dum <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	136	235	
==>ore::List;

package closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'bless <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6454	6580	
==>tring($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6454	6580	
==>tring($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multi <==
2	/Users/nnunley/pugs/util/run-smoke.pl	556	655	
==>ugs_sandbox    = $ARGV[0] or die "Need pugs sandbox location";
my $html_location   = $ARGV[1] or die <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24896	24992	
==>:operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3261	3387	
==>y $self = shift;
#     my @ret;
# 
#     push @ret, $self->add_package(package => $_) for @_;
# 
#     return @ret;
# }

=head2 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26506	26602	
==>og::Yaswi qw(:query :interactive :load :assert :context :run);
#$Language::Prolog::Yaswi::swi_con <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	436	571	
==>in;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	436	571	
==>in;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7998	8108	
==>_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7998	8108	
==>_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15056	15194	
==>-' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8	107	
==>ct;
use warnings;

no warnings 'recursion';

use Scalar::Util ();
use String::Escape ();
use Term::R <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11794	11900	
==>rnal caching of keys that is expected to happen,
but wishes to compare them with something other than C<E<l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19863	19960	
==>@_;
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn)->get_p6_file;
    p6_eval <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	181	294	
==>ARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub serv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	181	294	
==>ARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub serv <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1729	1840	
==>join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1729	1840	
==>join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1171	1322	
==>',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5252	5354	
==>ape_sequence {
    \\ <[xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdig <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15815	15915	
==>han joe public would.

Alternately, sometimes a program will raise a condition or error that,
while r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15815	15915	
==>han joe public would.

Alternately, sometimes a program will raise a condition or error that,
while r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14832	14937	
==>turing
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1048	1161	
==>WP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1015	1128	
==>WP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13246	13369	
==>atch '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13246	13369	
==>atch '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5949	6054	
==>n->{'type'};
	my $pkg_this = "${pkg_root}::$name";
	my $pkg_type = "${pkg_root}::$type";
	my $pkg_rep  = " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19160	19279	
==>up
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "") <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15581	15700	
==>up
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "") <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	584	715	
==>hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	584	715	
==>hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22407	22503	
==>$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22407	22503	
==>$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1393	1518	
==>cted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1393	1518	
==>cted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2287	2380	
==>se> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2376	2469	
==>se> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2	104	
==>generated file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2	104	
==>generated file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36655	36749	
==>(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm going to r <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	302	400	
==>ocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Serve <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	302	400	
==>ocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Serve <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	667	761	
==>---------------------
## private methods

my method set_height ($self: Tree $child) returns Voi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	667	761	
==>---------------------
## private methods

my method set_height ($self: Tree $child) returns Voi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1905	2062	
==>os;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1893	2050	
==>os;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4175	4281	
==>Compiler::Rule->compile(<<'RULE')->code();

    <@Grammar::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16303	16405	
==>$@;

    my $r = $self->runtime;

    if ($builtin->can("digest") and my $native = $r->provides($builti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1312	1415	
==>$expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1370	1473	
==>$expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10562	10692	
==>st{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$stri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10562	10692	
==>st{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$stri <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	825	960	
==>egate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $str <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	825	960	
==>egate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21043	21138	
==>ng
parenthesis or after 'atom' matches.  This makes things flow more
cleanly.

=item Flag Handle <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7101	7236	
==>oflush {
    my $flushy_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @ <==
2	/Users/nnunley/pugs/util/package-osx.pl	456	586	
==>g
        /usr/local/bin/pbc_merge
        /usr/local/bin/disassemble
        /usr/local/bin/parrot
        /usr/local/bin/pbc_info <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22879	22970	
==>et it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22879	22970	
==>et it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25937	26028	
==>= type::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26180	26271	
==>= type::variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	210	320	
==>d

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	210	320	
==>d

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12658	12798	
==>ment .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12658	12798	
==>ment .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'dat <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	731	835	
==>ry|n --concurrent|j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38495	38595	
==>use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+)) <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	417	515	
==>tions to dispatch themselves

# the code tries to provide reusable code for driving events, and imp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37448	37543	
==>false value determining whether this is a positive
assertion.  Here's the new class for the obje <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3769	3945	
==>ref = []?
            },

            'array_push' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                push @{$self->g <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11568	11662	
==>dy(L), !.
p5_comment_body([])    --> {true}.

p6_comment --> "#", rest_of_line(_).
rest_of_line <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5900	6020	
==>us ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5900	6020	
==>us ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previou <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	944	1093	
==>rnative installation] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->pack <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3289	3390	
==>?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3347	3448	
==>?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object i <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6898	7008	
==>and return "JSPERL5 (Perl 6 on JavaScript with Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	803	931	
==>RIPTION

Provides runtime routines for the Perl6-in-Perl5 compiled code

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3621	3728	
==>f arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures should put themselve <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3621	3728	
==>f arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures should put themselve <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17850	17958	
==>if $Verbose;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $type, $totals) if $meth;
};


sub h <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	590	696	
==>returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

method i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	590	696	
==>returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open }

method i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1024	1147	
==>atch($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1193	1316	
==>atch($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2448	2588	
==>s Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        pu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2448	2588	
==>s Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        pu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	260	508	
==>= (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	260	508	
==>= (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) retur <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1277	1390	
==>be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1277	1390	
==>be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19716	19852	
==>$t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation::Example $other!) returns Relation::E <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4420	4525	
==>_bit {$_[0]?1:0}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0]}
sub p6_str {"".$_[0]}
#sub p6_ref {ref($_[0] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	226	378	
==>ue ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	226	378	
==>ue ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted val <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6048	6159	
==>ce $message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # curren <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6048	6159	
==>ce $message param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # curren <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9050	9170	
==>tor
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9050	9170	
==>tor
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	842	1070	
==>r);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2836	2945	
==>de,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2836	2945	
==>de,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5245	5381	
==>ned( $details->{actual_ok} ) );

            # We don't want these to be undef because they are often
            # checked and don't wan <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20153	20285	
==>path    =~ s/\.t$/\.html/;
    return $outpath;
}


# Takes one hash argument which is modified
# try to 'collapse' useless directory <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9942	10045	
==>hstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9942	10045	
==>hstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3774	3876	
==>) method repeatedly 
with your data.  Finally, call the finish() method to return any leftover data 
an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3774	3876	
==>) method repeatedly 
with your data.  Finally, call the finish() method to return any leftover data 
an <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2062	2157	
==>xample, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would l <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2062	2157	
==>xample, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1002	1147	
==>DIR_OF_ROOT ];
$config{'compile_dir'}      = [ _builddir               => 
                                sub { shift()->temp_dir->subdir( shift( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6195	6301	
==>ss;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6706	6831	
==>fy>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	376	488	
==>ay is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $vol <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	376	488	
==>ay is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $vol <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	693	808	
==>elf->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $op <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11763	11877	
==>!! $in);
    }

    # Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6580	6681	
==>UGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to st <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6580	6681	
==>UGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7222	7348	
==>heck->last_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat::stat( $fi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10236	10344	
==>itches, @derived_switches );
}

=head2 C<_cleaned_switches>

  my @switches = $self->_cleaned_switches( @swit <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24106	24237	
==>D tests @canon\n";
        $canon = join ' ', @canon;
    } else {
        push @result, "FAILED test $last\n";
        $canon = $la <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	396	521	
==>l est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1924	2049	
==>l est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ pa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4906	5009	
==>also be suitable for one-liners.  If
you need more control or access to the header fields in the request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4906	5009	
==>also be suitable for one-liners.  If
you need more control or access to the header fields in the request <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	855	967	
==>dentity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	855	967	
==>dentity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22269	22363	
==>ot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> ".. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22269	22363	
==>ot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> ".. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13203	13375	
==>semijoin;

###########################################################################

multi method product (Relation::Example $other!) returns Relation::Example {

    die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12198	12358	
==>(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] capture( '$name', \n" . $pr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14453	14571	
==>om/regex/  While the code has diverged,
  at least the library has some documentation, which can help point you
  in th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7719	7859	
==>$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7731	7871	
==>$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23720	23817	
==>an be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is general <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23720	23817	
==>an be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is general <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2850	2966	
==>rent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2850	2966	
==>rent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14890	15007	
==>SIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9090	9207	
==>SIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5248	5354	
==>filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5248	5354	
==>filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4510	4647	
==>self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4650	4787	
==>self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1228	1357	
==>l5}\n" if $@;
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__EN <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7791	7896	
==>ve();

is_deeply(
    [ sort $FooBar->get_method_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4941	5038	
==>led with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4941	5038	
==>led with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9542	9704	
==>);    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9542	9704	
==>);    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($ve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27111	27249	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'liter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27390	27528	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'liter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2293	2423	
==>tifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2304	2434	
==>tifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7770	7915	
==>);
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7963	8108	
==>);
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use D <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	13	113	
==>s Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	13	113	
==>s Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.densit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20791	20968	
==>capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21070	21247	
==>capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 , <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9075	9206	
==>(id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9075	9206	
==>(id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'pro <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2522	2623	
==>VEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::Spec::Functio <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2522	2623	
==>VEATS

Since we don't yet have object support, this module is more like the
Perl 5 File::Spec::Functio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3980	4098	
==>$S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_RBRACE, 'N') if ${&Rx} !~ m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6609	6734	
==>eading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) returns Relation {

    for @others -> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10086	10211	
==>eading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) returns Relation {

    for @others -> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2562	2669	
==>{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2702	2809	
==>{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", D <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	676	769	
==>to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/pe <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	676	769	
==>to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7518	7649	
==>.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7518	7649	
==>.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2285	2424	
==>$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2285	2424	
==>$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20980	21069	
==>ormalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20980	21069	
==>ormalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14093	14257	
==>n;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14087	14251	
==>n;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9162	9286	
==>t );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_prop <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9162	9286	
==>t );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_prop <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2765	2911	
==>d is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2765	2911	
==>d is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	58	173	
==>(Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `. <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	58	173	
==>(Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16480	16589	
==>" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16480	16589	
==>" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7573	7828	
==>bj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7573	7828	
==>bj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7746	7847	
==>ach of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7746	7847	
==>ach of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1167	1275	
==>@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method membe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1167	1275	
==>@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method membe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	899	1027	
==>re2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::O <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3116	3226	
==>span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3116	3226	
==>span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21610	21704	
==>e(C, X),_,fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19268	19363	
==>s_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % mat <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2571	2688	
==>e1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st li <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3007	3124	
==>e1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st li <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1299	1392	
==>re queried during dispatch (which includes attribute
lookup as well as method lookup, as attri <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1736	1863	
==>le( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $Real <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1736	1863	
==>le( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $Real <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15809	15901	
==>in web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also writte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15809	15901	
==>in web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also writte <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3109	3238	
==>p->id, '!=', $p1->id, '... got different ids');

my $old_p_id = $p->id;

$p->set_x(100);
is($p->get_x, 100, '... got the right x f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	705	839	
==>( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1593	1691	
==>encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

mult <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1593	1691	
==>encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

mult <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5624	5732	
==>096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5624	5732	
==>096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8764	8885	
==>=> chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8764	8885	
==>=> chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9971	10156	
==>ed & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{prov <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11448	11633	
==>ed & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{prov <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2861	2984	
==>| \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 3 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2861	2984	
==>| \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 3 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	986	1135	
==>_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	997	1146	
==>_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8259	8357	
==>g = JIB::Package->new( file => $file );

    return $self->add_package(package => $pkg, force => $f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5289	5392	
==>position >= $lastPosition );
  my $currentOperatorTable = $self->whitespaceOperatorTable();
  
  (substr <==
2	/Users/nnunley/pugs/util/config_h.pl	384	483	
==>directory)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base || <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35136	35233	
==>ranch>,
which is used when two of the same node are matched in succession.  We
also inherit visual <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3897	4000	
==>nt: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, In <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3897	4000	
==>nt: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, In <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1968	2200	
==>) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1968	2200	
==>) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1115	1207	
==>ver_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1115	1207	
==>ver_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	850	982	
==>|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	850	982	
==>|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:per <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1358	1499	
==>thod // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1358	1499	
==>thod // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12257	12384	
==>ified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12251	12378	
==>ified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	388	555	
==>.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
} <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	388	555	
==>.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3743	3931	
==>- match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3628	3810	
==>- match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{sta <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3122	3248	
==>ub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3122	3248	
==>ub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3762	3952	
==>s{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = map { $_->{filename} => 1 } @smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $del <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	692	809	
==>oderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	692	809	
==>oderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2098	2212	
==>', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DE <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2098	2212	
==>', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DE <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8230	8353	
==>aram pmc mob
    .local pmc newfrom
    .local string target
    .local pmc mfrom, mpos
    .local int pos, len
    $P0 = fi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3998	4096	
==>ameter stack and binding
it to $x. Then the app is reduced. First its children will be reduced -
Sy <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1179	1276	
==>Plan

=head1 SYNOPSIS

  use TestBuilder::TestPlan;

=head1 DESCRIPTION

B<NOTE:>
This is a Perl6- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23204	23302	
==>"...")>

Sends a command to the server. The command is not modified by this module,
aside from appe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23204	23302	
==>"...")>

Sends a command to the server. The command is not modified by this module,
aside from appe <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	826	1002	
==>!$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAM <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	826	1002	
==>!$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAM <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1404	1540	
==>.30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1404	1540	
==>.30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $sp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1855	2048	
==>) }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1855	2048	
==>) }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1613	1740	
==>nt
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1613	1740	
==>nt
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2948	3044	
==>esent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2948	3044	
==>esent in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16694	16807	
==>t_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16694	16807	
==>t_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; ve <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1157	1276	
==>arge',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range No <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1157	1276	
==>arge',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range No <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	485	594	
==>print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	485	594	
==>print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	567	683	
==>rn $self->{'values'}{$key} unless @_;
        $self->{'values'}{$key} = shift;
        return $self;
    };
}

sub si <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4738	4863	
==>( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4738	4863	
==>( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	929	1048	
==>n <  2**'~$n~' };
   subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter: <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2245	2351	
==>x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ? <==
2	/Users/nnunley/pugs/util/drift.pl	701	833	
==>h);

system(
    'ghc',
    '--make',
    '-o' => $setup,
    "-i$Bin/../src/DrIFT",
    "-i$Bin/../../DrIFT/src",
    "$Bin/../../Dr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2174	2302	
==>$_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2174	2302	
==>$_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless d <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6098	6229	
==>o-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6098	6229	
==>o-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2880	3003	
==>spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2880	3003	
==>spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shi <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	88	200	
==>y $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to c <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	88	200	
==>y $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5668	5774	
==>s{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5668	5774	
==>s{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the cha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4531	4695	
==>(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4531	4695	
==>(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2885	2999	
==>T_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2885	2999	
==>T_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	431	538	
==>nge {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	431	538	
==>nge {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9337	9441	
==>o be generalized, and the anchor should only

###   work when needed (or if there is a switch telling so) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9031	9134	
==>o be generalized, and the anchor should only
###   work when needed (or if there is a switch telling so) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21118	21217	
==>nt (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21118	21217	
==>nt (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1576	1687	
==>new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1576	1687	
==>new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $roo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2255	2396	
==>t_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2255	2396	
==>t_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_elemen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11543	11652	
==>vert more tests

A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor cla <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11543	11652	
==>vert more tests

A good amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor cla <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6167	6299	
==>E_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto end if $tokenCat == PGE_OPTABLE_CLOSE;
    goto oper_shift;
  }

  shift_redu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5280	5374	
==>arren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 AC <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5280	5374	
==>arren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 AC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3556	3658	
==>es ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3556	3658	
==>es ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($sel <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2234	2326	
==>rg/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command l <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2234	2326	
==>rg/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2139	2241	
==>ne, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.sup <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2139	2241	
==>ne, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.sup <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5807	5927	
==>::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34737	34826	
==>is method returns the identity-one Relation::Example or the invocant relation,
respectivel <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	748	845	
==>NG A Perldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Nor <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	748	845	
==>NG A Perldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Nor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6114	6255	
==>path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6114	6255	
==>path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9006	9108	
==>static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure obj <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8709	8809	
==>static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7328	7467	
==>eader("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7328	7467	
==>eader("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15628	15728	
==>g from all characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

G <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15628	15728	
==>g from all characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

G <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1689	1847	
==>g);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1689	1847	
==>g);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2227	2342	
==>:Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2227	2342	
==>:Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box( <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	901	1011	
==><elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	901	1011	
==><elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18237	18342	
==>asses, so the class
C<[\w\d:4-65:]> will render as C<[\w\d:4-6]>.  If you want to prevent
characters and r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6948	7062	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6948	7062	
==>match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	303	416	
==>rom...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	303	416	
==>rom...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3285	3389	
==>lf.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3285	3389	
==>lf.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $uni <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14822	14927	
==>ies_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can alw <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14822	14927	
==>ies_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can alw <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1299	1427	
==>:Event $event) {
        grep { .match($event) }, gather {
            take $.subscriptions.members;

            # FIXME this is <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	254	357	
==>8, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLe <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	254	357	
==>8, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLe <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1136	1280	
==>AULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    m <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1136	1280	
==>AULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15932	16128	
==>re(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15926	16122	
==>re(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrul <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4747	4859	
==>::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The foll <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4747	4859	
==>::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The foll <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3351	3445	
==>me>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

De <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3351	3445	
==>me>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

De <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1998	2151	
==>turn unless $debug_traverse;
        say '  ' x $depth, @s 
    }
    
    if $tree.ref ne 'Array' {
        dbg "  # -- unknown: <$tree>";
        return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31074	31217	
==>her_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5115	5310	
==>ture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5127	5322	
==>ture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ ma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	211	315	
==>akeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Bas <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	105	209	
==>akeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Bas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9323	9413	
==>:Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3148	3238	
==>:Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @stat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6404	6580	
==>m, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return joi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6404	6580	
==>m, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return joi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18407	18532	
==>@_;

    my $diag;
    $obj_name = 'The object' unless defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !defi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	861	961	
==>:Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {} <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	835	933	
==>:Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY {} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1669	1763	
==>tate of Regexp::Parser's Perl6::Rules: it looks like early
# phase development.  There's a "ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	309	475	
==>rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	309	475	
==>rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OF <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	273	377	
==>upport args atm

## Chapter 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, Code $make <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1043	1168	
==>ool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1054	1179	
==>ool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3531	3676	
==>@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3995	4140	
==>@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3333	3472	
==>s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ". <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3333	3472	
==>s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ". <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31821	31920	
==>tem neg

Whether this object is negated (like a look-ahead or a character class).

=item nparen

The <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2305	2408	
==>n JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	918	1034	
==>et::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From " <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	918	1034	
==>et::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12021	12116	
==>ties($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12021	12116	
==>ties($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2078	2193	
==>rld was young, the mountains green,
>   No stain yet on the Moon was seen,
>   No words were laid on stream or stone <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6533	6648	
==>t>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handl <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6533	6648	
==>t>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handl <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	555	684	
==>t) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	555	684	
==>t) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4884	5027	
==>$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$self,
		param => $self->{param}->splat($accum),
	}, (ref $self);
}

s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22542	22654	
==>";
    return p6_from_b(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XX <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	764	874	
==>ys %indexed;

    if( scalar @metas > 1 ) {
        warn "More than one result found, using highest versioned\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2419	2578	
==>);
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fix <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	271	372	
==>rn values from our methods.  Just for internal 
# clarification.
my $TRUE  = (1==1);
my $FALSE = !$TRU <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	457	612	
==>rs),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	457	612	
==>rs),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1710	1806	
==>ar

(variable lookup), App (application) and Lit (literal).



App is divided to Multiple, Single <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1642	1735	
==>ar
(variable lookup), App (application) and Lit (literal).

App is divided to Multiple, Single <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5667	5869	
==>::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                }, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5667	5869	
==>::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                }, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	590	688	
==>n $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the dependency declaration from the MET <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3366	3487	
==>pan::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3366	3487	
==>pan::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2655	2759	
==>->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Bl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6342	6443	
==>ets a special case Does
# to avoid endless recursion
$Class->add_method('does' => sub {
    return $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3345	3449	
==>for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3345	3449	
==>for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedText i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1642	1742	
==>tr *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1642	1742	
==>tr *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8848	8985	
==>erations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8848	8985	
==>erations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1382	1507	
==>oding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1382	1507	
==>oding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently is <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11366	11465	
==>ewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11424	11523	
==>ewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (St <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3277	3374	
==>Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3277	3374	
==>Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	473	590	
==>boutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2001	2118	
==>boutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_te <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1348	1473	
==>'' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1348	1473	
==>'' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16837	16935	
==>ierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16837	16935	
==>ierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2204	2390	
==>hen 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.prin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2204	2390	
==>hen 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.prin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4015	4163	
==>age->new( meta => $_, installation => $obj) }
                map { JIB::Meta->new_from_struct( struct => $_ ) }
                    LoadFile( $obj-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15763	15901	
==>d );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15757	15895	
==>d );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18928	19025	
==>right
thing on the wire.

When setting the referrer, this method removes the fragment from the
giv <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18928	19025	
==>right
thing on the wire.

When setting the referrer, this method removes the fragment from the
giv <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11602	11702	
==>not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=bac <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11602	11702	
==>not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=bac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1239	1353	
==>p_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	450	563	
==>p_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14832	14983	
==>(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15111	15262	
==>(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4377	4512	
==>ode() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No except <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4435	4570	
==>ode() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No except <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6871	6969	
==>modified-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6871	6969	
==>modified-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1184	1284	
==>mpile;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28633	28729	
==>prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? (RX <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3799	3914	
==>$self->{right} = shift;
	
	# FIXME - this is a hack for L::AG, since it doesn't know about @ISA
	$self->{symbol} = $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5247	5349	
==>l_escape_sequence {
    \\ <[xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14031	14130	
==>Can't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=item RPe_NEST <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4239	4326	
==>v.perl.org/perl6/doc/synopsis.html>.

The Pugs homepage at L<http://pugscode.org/>.

The <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9365	9506	
==>ntext->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9365	9506	
==>ntext->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3753	3852	
==>x;
	return 'num';
    }
    return lc($ref) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVALUE) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2634	2729	
==>cs.

=head2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is currently the most complete <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3152	3267	
==>pan );
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3152	3267	
==>pan );
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7367	7467	
==>y$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$si <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7367	7467	
==>y$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7306	7425	
==>e',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7306	7425	
==>e',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8298	8408	
==>ersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11775	11885	
==>ersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3199	3518	
==>'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	43	164	
==>er::Rule::VERSION = '0.03';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	896	991	
==>er
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	896	991	
==>er
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1304	1404	
==>!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Ob <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1304	1404	
==>!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Ob <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3958	4075	
==>8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3958	4075	
==>8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£', <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4574	4767	
==>q $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # create dir for target
            copy($candidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' fai <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3836	3931	
==>ion, $lastPosition) =~ m/[^\s]/;
  my $whitespacePosition = $-[0];
  $currentTermTable = $self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	433	561	
==>, %opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $op <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1563	1659	
==>ate a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1563	1659	
==>ate a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22022	22123	
==>int(C).
class_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 12 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9198	9307	
==>s .end is undefined

=cut



### current implementation is always anchored at ^

### because it was specialize <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8897	9002	
==>s .end is undefined
=cut

### current implementation is always anchored at ^
### because it was specialize <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	730	834	
==>ect(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm h <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	730	834	
==>ect(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm h <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23370	23480	
==>e $@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$@) {
    my($max,$skipped,@failed) = @_;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32351	32450	
==>ray reference of arguments to object() that will produce
its ending node:

  # the 'open' node's end <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	92	191	
==>l6::Core::Str;

package num;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'looks <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	83	184	
==>-------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	83	184	
==>-------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20741	20847	
==>sual way that Relation indicates a failure is to throw an exception;
most often this is due to invalid inpu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25293	25399	
==>sual way that Relation indicates a failure is to throw an exception;
most often this is due to invalid inpu <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24523	24613	
==>es_set_if_undef(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n_if_undef(N,X,C0,C1).
match_captu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	668	769	
==>reduce($_) } $app->values;

    $self->prepare_scope(@params);

    # profiling actually slows this do <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	949	1041	
==>ple::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	949	1041	
==>ple::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIP <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15989	16084	
==>e compilation modules get compiled into some
altered form the first time they are run. The resul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15989	16084	
==>e compilation modules get compiled into some
altered form the first time they are run. The resul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1596	1710	
==>e is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = So <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1596	1710	
==>e is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = So <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3638	3735	
==>e only dirty part is C<reduce_sym> which must handle recursive calls.

The compiler inherits L<Blo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3441	3539	
==>ulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3441	3539	
==>ulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $cod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4891	5038	
==>age )

=cut

sub register {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        packag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1598	1776	
==>($.query_string);
            } else {
                $.query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1598	1776	
==>($.query_string);
            } else {
                $.query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2614	2725	
==>where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2614	2725	
==>where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1604	1709	
==>m ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1604	1709	
==>m ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19028	19127	
==>used with user text that is
associated with hard-coded program conditions.  In other words, this use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19028	19127	
==>used with user text that is
associated with hard-coded program conditions.  In other words, this use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9525	9702	
==>umper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self = shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15959	16067	
==>ar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub { p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11228	11328	
==>terion can take a few different forms:

=over 8

=item Comparator

A closure with arity of 2, which r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16587	16715	
==>ta,
      raw => '(',
      down => 1,
    }, $class;
    $self->{rx}{captures}[$nparen - 1] = $self;
    return $self;
  }

  su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5932	6055	
==>} elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5932	6055	
==>} elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1586	1698	
==>me  - an exact first derivative of f (which Newton's method
              uses to update its guess at each iterat <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7935	8044	
==>alar.
# \\n   List      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	11	106	
==>rl6::Core::Ref;

use Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4045	4184	
==>tical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypot <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4057	4196	
==>tical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6964	7077	
==>mit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6976	7089	
==>mit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = ev <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3412	3506	
==>--grub-local=$grub_local
    Locally, the GRUB tarball is saved as --grub-local.
  --pugs=$pugs <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2892	2987	
==>lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributor <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2892	2987	
==>lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21844	21938	
==>in the
main program, Locale::KeyedText can be given input that says what resource
files it shou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21844	21938	
==>in the
main program, Locale::KeyedText can be given input that says what resource
files it shou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7684	7807	
==>3);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7684	7807	
==>3);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2419	2541	
==>eresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "eci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2419	2541	
==>eresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "eci <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8198	8308	
==>em I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8198	8308	
==>em I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
=item I<end_elemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	982	1085	
==>a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	982	1085	
==>a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4312	4431	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4370	4489	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12168	12320	
==>length $v;
            $v = "";
          }
          elsif ($v > $S->{maxpar}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, " <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7452	7567	
==>pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traver <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7452	7567	
==>pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traver <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3072	3168	
==>tion, the following request headers are set on the HTTP::Headers object,
if they are present:

=o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3072	3168	
==>tion, the following request headers are set on the HTTP::Headers object,
if they are present:

=o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7907	8117	
==>->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $del <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1208	1418	
==>->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $del <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7404	7535	
==>chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7404	7535	
==>chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1966	2079	
==>le,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1977	2090	
==>le,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3670	3918	
==>s Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3670	3918	
==>s Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages use <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	152	265	
==>kg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FIL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	152	265	
==>kg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FIL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2849	2949	
==>and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fgl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2745	2842	
==>and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fgl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3345	3446	
==>/equiv
  is assoc left/right/non/chain/list
  (is parsed)
  (will do)
  
  my $cat = Pugs::Grammar::Ca <==
2	/Users/nnunley/pugs/util/package-osx.pl	3975	4072	
==>ble::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/local/man/man3/Perl6:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7145	7245	
==>= @_;
    $S->warn(RPe_BADESC, "Z", " in character class") if $cc;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13820	13917	
==>ash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@keytests --> In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2464	2684	
==>-> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2464	2684	
==>-> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11512	11614	
==>inclination is to wait until objects are done for this, but maybe I will
figure out a good way to do th <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11512	11614	
==>inclination is to wait until objects are done for this, but maybe I will
figure out a good way to do th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2143	2266	
==>} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$remainder) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2060	2177	
==>} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$remainder) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1582	1683	
==>h the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<enci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1582	1683	
==>h the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<enci <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5718	5869	
==>-$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5718	5869	
==>-$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7892	8033	
==>_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exists ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7892	8033	
==>_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exists ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4502	4616	
==>$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already initia <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4502	4616	
==>$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already initia <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	539	776	
==>'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	539	776	
==>'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2175	2287	
==>want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2175	2287	
==>want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11848	11969	
==>ift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol coul <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	257	373	
==>ift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol coul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15474	15571	
==>ing implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15474	15571	
==>ing implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12390	12487	
==>gs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Unt <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12390	12487	
==>gs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Unt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1132	1226	
==>il>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1132	1226	
==>il>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11461	11598	
==>);
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and proces <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11461	11598	
==>);
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and proces <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20667	20778	
==>ys %{$val->{_dirs}})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7294	7442	
==>d +wx for a dir
    my $x       = File::stat::stat( $file );
    my $mask    = -d $file ? 0100 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	510	639	
==>) }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	510	639	
==>) }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	115	209	
==>ondie::ADTs;
use Blondie::Nodes;
use Blondie::TypeSafe;

{
    package Blondie::Backend::Perl:: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1110	1240	
==>e( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @list ) {
        print "\n*** $entry->{package} de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	273	390	
==>os:

    macro quote:<qX> (*%adverbs) {...}

=head1 See also

S02

=cut

# TODO - implement the "magic hash" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3060	3196	
==>otoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3524	3660	
==>otoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (de <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30664	30834	
==>onfess 'Unsupported dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_di <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5739	5844	
==>rt'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <ReservedWord>> <IdentifierName>
}
rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2149	2247	
==>::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2238	2336	
==>::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	985	1092	
==>_is_closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	985	1092	
==>_is_closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41317	41410	
==>21, provided feedback towards improving this module's
documentation, particularly towards usin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41317	41410	
==>21, provided feedback towards improving this module's
documentation, particularly towards usin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16426	16542	
==>ight?
      perl6_object => sub { $_[0] },
     );
sub p6_perl6_objects_from_whatever {
    return (map{p6_perl6_obje <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1334	1454	
==>cted.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_pe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1392	1512	
==>cted.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_pe <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12128	12227	
==>ent variable.
Necessary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = sh <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	846	995	
==>iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27293	27390	
==>lag, $code)

This method creates a method of the parser C<FLAG_$flag>, and sets it to
the code ref <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6327	6453	
==>traverse_ast ( %pad<"pBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pIsMulti">;
        dbg "# LValue:     "; my <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37635	37732	
==>=item C<difference (Relation::Example $other!) returns Relation::Example>

This method is a generi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7395	7545	
==>an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7395	7545	
==>an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13032	13156	
==>take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13090	13214	
==>take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5489	5609	
==>pe);
	}

	sub unify_type {
		my $self = shift;

		my $node = shift;
		my $expected_type = shift;

		my $de_facto_type = $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7711	7833	
==>$span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7711	7833	
==>$span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	634	733	
==>ormance is quite plausible.

# Next steps:

# Create a clean backtracking library (basically a set o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34378	34470	
==>rite the supporting class for the F<Regexp::AndBranch::and> object it
creates!

A method call <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11510	11640	
==>rrent = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11510	11640	
==>rrent = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    metho <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1492	1607	
==>ink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Config::Config{_exe}";
    print STDERR "done.\n" if $Config{verb <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2162	2248	
==>e>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2162	2248	
==>e>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3900	4055	
==>[$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3900	4055	
==>[$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5184	5282	
==>orted) by this module:

=over 3

=item get($url)

The get() function will fetch the document identi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5184	5282	
==>orted) by this module:

=over 3

=item get($url)

The get() function will fetch the document identi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5370	5533	
==>or @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5592	5755	
==>or @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9653	9751	
==>inite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9653	9751	
==>inite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3124	3234	
==>ace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3112	3222	
==>ace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14648	14747	
==>he header fields.  Long header
values are not folded.

The optional $eol parameter specifies the lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14648	14747	
==>he header fields.  Long header
values are not folded.

The optional $eol parameter specifies the lin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9169	9294	
==>sual, @$_), @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3458	3554	
==>ODO

=over
=item Scoping

You should be able to do both lexically and dynamically scoped
overridi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	266	366	
==>ts_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	324	424	
==>ts_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11358	11459	
==>y didn't want to be sucking in from the upstream stdin
	die "test.pl:runperl(): none of prog, progs, p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7089	7211	
==>, params=>$pams,
		       lvalue=>$lval, body=>$body);
}
sub code_for_code_CODE {
    my(%c)=@_;
    my($name,$kind,$params <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	882	998	
==>y subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	882	998	
==>y subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&] <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1820	1923	
==>$type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeCompile->new($t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5829	5925	
==>n 1;
}

=head2 @index_files = $repo->index_files(package => $pkg)

Returns a list of all index_fi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18221	18316	
==>k (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18221	18316	
==>k (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11866	12066	
==>ys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11866	12066	
==>ys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7231	7398	
==>emit( $n->{method}, '  ' ) . " " .
                    _emit( $n->{self}, '  ' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scal <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	710	810	
==>if $self->module_name;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME for this <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26178	26299	
==>$class, $rx, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'fl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8316	8421	
==>@$x).']';
    } elsif($ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2349	2470	
==>can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2349	2470	
==>can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9387	9495	
==>rusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9387	9495	
==>rusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2379	2544	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2572	2737	
==>p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7867	8071	
==>pture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7867	8071	
==>pture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    } <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2976	3083	
==>ule_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $g <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2976	3083	
==>ule_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7037	7136	
==>VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7037	7136	
==>VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34543	34640	
==>ator that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a su <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39093	39190	
==>ator that takes a single Relation
in its C<$other> argument, where the heading of <$other> is a su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	622	776	
==>erl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	622	776	
==>erl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15540	15644	
==>iginated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15540	15644	
==>iginated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2862	3003	
==>0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2767	2905	
==>0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3960	4051	
==>multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3960	4051	
==>multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	567	709	
==>in program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	567	709	
==>in program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6661	6759	
==>.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 El <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6661	6759	
==>.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 El <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2045	2172	
==>%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	886	1013	
==>%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19080	19181	
==>ed program conditions.  In other words, this user
text is *part of the program*, and not the program's <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19080	19181	
==>ed program conditions.  In other words, this user
text is *part of the program*, and not the program's <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4483	4774	
==>aph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4483	4774	
==>aph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2945	3074	
==>r Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$titl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2945	3074	
==>r Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$titl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6445	6543	
==>opcat == PGE_OPTABLE_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABLE_POSTCIRCUMFIX );
  #$te <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	164	265	
==>Term::ANSIColor qw<:constants>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	326	459	
==>dy>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	326	459	
==>dy>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, c <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2103	2196	
==>r-supplied regular expression may lead to execution of arbitrary code;
each alternate engine m <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3500	3595	
==>le to do both lexically and dynamically scoped
overriding.  You currently can't do lexical.  It' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	140	258	
==>return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represente <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	140	258	
==>return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represente <==
2	/Users/nnunley/pugs/util/build_pugs.pl	334	433	
==>-help') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	734	864	
==>b atomic { '' }

    sub fmap {
        Carp::croak "virtual method fmap called on @_";
    }

    sub str {
        Carp::croak "v <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	321	466	
==>es => [ 'IHash' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	119	222	
==>); 

use Pugs::Utils::Interface;
my $dumper;

# which modules do diffrent formats use
my %format = (
	ya <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4520	4634	
==>child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4520	4634	
==>child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	782	899	
==>intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.jo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	782	899	
==>intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.jo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20362	20471	
==>rforms quite slowly; you should only use Example
for testing, development, and study; you should not use it in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20362	20471	
==>rforms quite slowly; you should only use Example
for testing, development, and study; you should not use it in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11738	11923	
==>lag toggled?
               map  { $_->package eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	72	164	
==>ross-referenced html for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sanity and other <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8846	8996	
==>ble', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9039	9189	
==>ble', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2601	2699	
==>rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2741	2839	
==>rule->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3951	4077	
==>{$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3951	4077	
==>{$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1708	1842	
==>$self ).members.map:{ .get_attributes }
       );
}

method all_methods($self:) returns Set {
    set(
        set( $self.all_superclas <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29640	29737	
==>st names are not truncated as badly.
(Partially done with new skip test styles)

Add option for co <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	725	845	
==>cket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	692	812	
==>cket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24620	24817	
==>s'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24899	25096	
==>s'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11478	11585	
==>at involve perl_root, the install location
        @inc = grep !/perl_root/i, @inc;

    } elsif ( $self->{_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	86	194	
==>Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal array turns th <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	86	194	
==>Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal array turns th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2226	2336	
==>ite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.star <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2226	2336	
==>ite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.star <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1593	1717	
==>it //, $file;

    open STDOUT, "> $fname.tex" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14256	14356	
==>unk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

Th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14314	14414	
==>unk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

Th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2085	2207	
==>ueue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2085	2207	
==>ueue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2483	2587	
==>return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1095	1199	
==>return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' cap <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13721	13825	
==>rements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13721	13825	
==>rements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14290	14390	
==>WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @target <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14290	14390	
==>WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @target <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7005	7134	
==>x eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7005	7134	
==>x eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14066	14179	
==>'s fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14066	14179	
==>'s fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1454	1590	
==><QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1454	1590	
==><QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22334	22438	
==>',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn if !$is_absolute_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1785	1929	
==>absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1785	1929	
==>absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($base) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28737	28838	
==>, or any C<$mapping> value set members do not match invocant
Relation attribute names, or duplicate an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33289	33390	
==>, or any C<$mapping> value set members do not match invocant
Relation attribute names, or duplicate an <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19412	19512	
==>tus);
}


 multi Control::Basic::nothing ()


 multi Control::Basic::sleep ( Num $for = Inf --> Num ) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3207	3329	
==>nator>
    | <Comment>
    | <Token> <DivPunctuator>
}
rule InputElementRegExp {  # see clause 7
      <WhiteSpace>
    | < <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11284	11401	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11284	11401	
==>DEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_AR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6503	6599	
==>te $data) returns Array of byte {...}>

Performs the actual ciphering.  This method should operat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6503	6599	
==>te $data) returns Array of byte {...}>

Performs the actual ciphering.  This method should operat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1408	1701	
==>ine {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1408	1701	
==>ine {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2187	2301	
==>alue.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2187	2301	
==>alue.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1019	1121	
==>turns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1077	1179	
==>turns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14606	14725	
==>nnection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14606	14725	
==>nnection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9931	10033	
==>Quote the argument if there's any whitespace in it, or if
    # we're VMS, since VMS requires all parms <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22279	22365	
==>ensitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type(Cb,to_lower(C)).

cha <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19033	19208	
==>ps
    .local pmc exp0, exp1

    reps = pad["reps"]
    savereps = new .Hash
    $P0 = new .Iterator, reps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13400	13498	
==>07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13400	13498	
==>07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	565	809	
==>SE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	565	809	
==>SE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	340	461	
==>es) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	340	461	
==>es) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1587	1714	
==>leHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ft <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1554	1681	
==>leHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ft <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3942	4131	
==>->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4733	4877	
==>WithReason') ],
    methods => {
        'report' => sub {
            my $ok          = _('$.passed') ? 'ok' : 'not ok';
            my $descrip <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5606	5711	
==>t>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD pars <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5606	5711	
==>t>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD pars <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1734	1835	
==>w class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1734	1835	
==>w class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23402	23497	
==>where "Relation" is a Role rather than a Class, and some
implementations are immutable rather th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27954	28049	
==>where "Relation" is a Role rather than a Class, and some
implementations are immutable rather th <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9419	9506	
==>!.
p5_charset_item(class_pos(X)) --> "[:",  charset_identifier(X), ":]", !.
p5_charset_i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15274	15358	
==>P|A1], !.
re_rewrite(X,X,RW0,RW0).
re_rewrite_list([],[],RW0,RW0).
re_rewrite_list([T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20997	21089	
==>fined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20997	21089	
==>fined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5593	5758	
==>= shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5415	5575	
==>= shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4079	4177	
==>A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4079	4177	
==>A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2505	2615	
==>ill go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2505	2615	
==>ill go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	365	460	
==>e_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	423	518	
==>e_todo_test_junction;

# for running the test suite multiple times in the same process
$Test::te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21304	21403	
==>re unique across all Perl packages
(perhaps the key name can start with the package name?).  An adva <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21304	21403	
==>re unique across all Perl packages
(perhaps the key name can start with the package name?).  An adva <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	136	231	
==>nter a new rule or parenthesized
group.  This is approximately the Match object that userland fo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	136	231	
==>nter a new rule or parenthesized
group.  This is approximately the Match object that userland fo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1268	1367	
==>(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Map/;
}

__P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7310	7442	
==>b
    .local int pos, lastpos
    .local string target, value
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10420	10521	
==>everse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10420	10521	
==>everse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5038	5237	
==>->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4882	5071	
==>->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1396	1504	
==>atement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ------ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1396	1504	
==>atement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ------ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10747	10839	
==>B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_length retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10747	10839	
==>B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_length retu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3909	4007	
==><pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3909	4007	
==><pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4417	4520	
==>= Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4417	4520	
==>= Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	598	758	
==>~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my St <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	598	758	
==>~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my St <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19051	19140	
==>ic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19051	19140	
==>ic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	785	906	
==>wrap {
    return "sub { my \@match; my \$s = shift; $_[0]; return \$s, \\\@match; }";
}

{
my $r = capture( 'cap', c <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	682	796	
==>) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	682	796	
==>) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1642	1769	
==>fined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1642	1769	
==>fined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23894	24024	
==>*/
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29071	29172	
==>*/
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20		/* $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3724	3844	
==>l';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3941	4061	
==>l';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub com <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3336	3433	
==>re complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3336	3433	
==>re complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2060	2173	
==>t

sub uninstall {
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( pa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5251	5376	
==>lement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5251	5376	
==>lement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16743	16850	
==>line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16743	16850	
==>line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2262	2372	
==>p1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2262	2372	
==>p1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1003	1113	
==>ile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1003	1113	
==>ile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	771	869	
==>s defines this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21938	22031	
==>use of class() is deprecated" warning.

Quantifiers of the form C<{n}> were being misrepresent <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8358	8498	
==>ser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = join("",$o->data);
    my $len = length($s);
    if($o->{'flags'} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	120	250	
==>rns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	120	250	
==>rns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is expor <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	116	244	
==>my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	116	244	
==>my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "= <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	59	148	
==>:Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	59	148	
==>:Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6709	6841	
==>s Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6709	6841	
==>s Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15041	15160	
==>ods can both be used to read
and to set the value of a header.  The header value is set if you pass
an argument to the m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15041	15160	
==>ods can both be used to read
and to set the value of a header.  The header value is set if you pass
an argument to the m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11248	11335	
==>cape_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_sequence(char(C)) -- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5093	5246	
==>- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5557	5710	
==>- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1543	1662	
==>inite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    my @tmp;
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1543	1662	
==>inite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    my @tmp;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9067	9179	
==>tures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"." <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9055	9167	
==>tures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"." <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3310	3416	
==>PTION

This class represents a date /without a time/.

Because it is just a date, it does not handle time z <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3310	3416	
==>PTION

This class represents a date /without a time/.

Because it is just a date, it does not handle time z <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30593	30700	
==>(close =>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre-consumptive, which <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10470	10571	
==>mmand line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CG <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10470	10571	
==>mmand line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CG <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4755	4845	
==>?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4755	4845	
==>?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3544	3657	
==>ersion";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($sel <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2587	2697	
==>ersion";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6342	6475	
==>$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5264	5389	
==>e_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.substi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7338	7438	
==>egin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' direct <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7338	7438	
==>egin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' direct <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3121	3217	
==>$set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3121	3217	
==>$set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1896	2058	
==>_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1896	2058	
==>_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation s <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1382	1476	
==>does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ bas <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1382	1476	
==>does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ bas <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1218	1336	
==>) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1218	1336	
==>) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19730	19839	
==>t data type, the Relation data type is immutable.  The value of
a Relation object is determined when it is con <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24282	24391	
==>t data type, the Relation data type is immutable.  The value of
a Relation object is determined when it is con <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1930	2044	
==>ethod, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1930	2044	
==>ethod, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1004	1091	
==>for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'Di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1656	1748	
==>e>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1656	1748	
==>e>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4637	4751	
==>>include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods expli <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4496	4610	
==>>include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods expli <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	789	919	
==>ew
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "imp <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	789	919	
==>ew
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "imp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	999	1100	
==>tever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (iden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	999	1100	
==>tever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (iden <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4292	4403	
==>eturn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4292	4403	
==>eturn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3845	3972	
==>sh:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3857	3984	
==>sh:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexic <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1269	1398	
==>nt   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socke <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1269	1398	
==>nt   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socke <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8286	8393	
==>i method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11763	11870	
==>i method intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5699	5841	
==>terator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5699	5841	
==>terator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19114	19246	
==>:) (hash %params)) returns nil 
    ((%params keys) apply 
        ($self: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5755	5856	
==>$X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token {    def_token($X::cap->[-2],"<ws>?(?x)".$: <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1427	1586	
==>curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1427	1586	
==>curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10760	10880	
==>s $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10760	10880	
==>s $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24808	24907	
==>amed
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24808	24907	
==>amed
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1209	1350	
==>n
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    re <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13735	13870	
==>n possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    re <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	157	261	
==>m pretty much
# unchanged from the original p5 Santa golf game of 2001.
# Also for future historical amus <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4054	4145	
==>:pi ( --> Num )
 {
     3.141592653589793238462643383279502884197169399375105820974944592307 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27184	27332	
==>_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27184	27332	
==>_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4137	4290	
==>fere with $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pass) {
        # It s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3491	3582	
==>> role 'TestBuilder::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test')->F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7235	7338	
==>ds(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7235	7338	
==>ds(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9948	10046	
==>ite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9948	10046	
==>ite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1858	1973	
==>hod FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1858	1973	
==>hod FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$na <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8803	8919	
==>}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-12 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8803	8919	
==>}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-12 <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	521	628	
==>e) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	521	628	
==>e) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4107	4241	
==>$<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4119	4253	
==>$<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and ca <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30655	30753	
==>ading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding trans <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35206	35304	
==>ading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding trans <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1609	1726	
==>signature; it does

not allocate containers.



the Body is just a structure with three node forms: Var

(variable loo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1544	1657	
==>signature; it does
not allocate containers.

the Body is just a structure with three node forms: Var
(variable loo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10035	10146	
==>elf<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $ho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10035	10146	
==>elf<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $ho <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6985	7149	
==>if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6985	7149	
==>if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multid <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1138	1237	
==>Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1138	1237	
==>Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1422	1568	
==>unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1422	1568	
==>unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39126	39241	
==>lass.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class specific c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1669	1777	
==>ional methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1669	1777	
==>ional methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16481	16649	
==>,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16760	16928	
==>,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2950	3057	
==>ub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6133	6231	
==>ata}[1]->visual;
  }
}


{
  package Regexp::Parser::anyof_class;
  push @ISA, qw( Regexp::Parser:: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3819	3925	
==>OD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3819	3925	
==>OD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1324	1429	
==>@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!membe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1324	1429	
==>@items.map:{ $self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!membe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7998	8103	
==>ush @termStack, $temp1;
  reduce_end:
  goto (pop @bsrStack);

  token_match:
  $matchObjPos = $whitespace <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1755	1902	
==>t Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1755	1902	
==>t Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	214	326	
==>o_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	214	326	
==>o_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $gr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15656	15752	
==>er which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15656	15752	
==>er which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodifi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5774	5879	
==>?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5774	5879	
==>?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5155	5270	
==>( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8632	8747	
==>( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1200	1321	
==>e {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1211	1332	
==>e {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3597	3815	
==>) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	154	328	
==>_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	154	328	
==>_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3594	3697	
==>->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2635	2737	
==>->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3718	3850	
==>.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3586	3713	
==>.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1772	1899	
==>eturn { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1965	2092	
==>eturn { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5452	5580	
==>) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimensi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5452	5580	
==>) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimensi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2430	2530	
==>/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", " <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2430	2530	
==>/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", " <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8730	8832	
==>s( catdir($path, $_), $index->{_dirs}->{$_});
    }
} 

# Note: modfies $index
sub handle_t_file {
  re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21000	21091	
==>ed API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21000	21091	
==>ed API onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20752	20870	
==>->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17173	17291	
==>->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2426	2558	
==>PUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2426	2558	
==>PUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	8	105	
==>in/perl

package Blondie::Prelude::Control;

use strict;
use warnings;

use Blondie::Nodes;

sub s <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1826	1948	
==>( @_ );
    for @end   { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1538	1647	
==>j.
# Just  prove regexp_engine_demo.t   or somesuch.

# Test status:
# Currently at 92% pass. 3sec run on my m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7976	8102	
==>iv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq- <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18592	18723	
==>rsion,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11725	11829	
==>din} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is_netware || $is_vms) {
	    $runpe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7444	7541	
==>which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7444	7541	
==>which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This ev <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7436	7576	
==>ed $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7436	7576	
==>ed $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1453	1583	
==>/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1453	1583	
==>/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18740	18855	
==>ation as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18740	18855	
==>ation as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40771	40865	
==>ould appreciate being informed any time you create a
modified version of Locale::KeyedText that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40771	40865	
==>ould appreciate being informed any time you create a
modified version of Locale::KeyedText that <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1885	1986	
==>checks standard output for the expected strings
in TAP format.

The F<prove> utility is a thin wrapper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1135	1282	
==>s; better use TABLE instead of 'literal'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3237	3345	
==>_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO our <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3237	3345	
==>_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO our <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7649	7767	
==>ode_c = '';
    if ($ghc_version =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/UnicodeC.c';
    }

    my $perl5_c = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1858	1970	
==>ake sure to create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6289	6470	
==>g;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3521	3856	
==>$meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

clas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3521	3856	
==>$meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

clas <==
2	/Users/nnunley/pugs/util/config_h.pl	568	663	
==>/Perl6/Pugs.pm" or die $!;
open OUT, "> $base/src/Pugs/pugs_config.h" or die $!;

while (<IN>) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5204	5325	
==>ind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5426	5547	
==>ind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	765	881	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\a", '\a') if $cc;
    return $S->object(exac <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1387	1502	
==>ess_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\n";
    my $file = slurp($fname);
    # remo <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6553	6654	
==>bly okay to keep a few
# zombies around for a relatively short while.
sub gather_results {
    my($sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22038	22162	
==>d_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18459	18583	
==>d_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	189	286	
==>o smartmatch can be
implemented using some is_subtype? (QQQ what's it called?) test.  But
maybe no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6728	6836	
==>sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6728	6836	
==>sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unles <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3277	3373	
==><value1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3277	3373	
==><value1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	346	447	
==>rsion, but the complexity is the same.

TODO

- The structure generated by concat() still looks li <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7572	7672	
==>rim") and ($orig_thunk->fixity || "") eq "infix") {
		return "( $params[0] $thunk $params[1] )";
	} e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2742	2878	
==>_provides {
    my $self = shift;
    return $self unless $self->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2659	2765	
==><?p6ws>?slurp<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { slurp => $() } }
RULE
*{'assign_open_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19301	19435	
==>thod label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39753	39887	
==>thod label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	835	931	
==>rface.

Normally, they will be constructed as a series of events fired in by
something that C<.do <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	835	931	
==>rface.

Normally, they will be constructed as a series of events fired in by
something that C<.do <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3688	3855	
==>) }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2414	2521	
==>t <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2414	2521	
==>t <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $sp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14378	14483	
==>ring with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This modul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14436	14541	
==>ring with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This modul <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2618	2740	
==>ll e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2618	2740	
==>ll e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4654	4830	
==>/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4654	4830	
==>/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1460	1577	
==>pture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1460	1577	
==>pture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	534	655	
==>ues !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC has <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	534	655	
==>ues !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC has <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	394	513	
==>de_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMai <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4877	4984	
==>App', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
nod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4877	4984	
==>App', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
nod <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15501	15593	
==>s::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15501	15593	
==>s::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_cha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15177	15283	
==>l likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15235	15341	
==>l likely look something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3767	3875	
==>).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3767	3875	
==>).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	992	1117	
==>t =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6081	6181	
==>ex.t> test 
actually roundtrip parses this document successfully. However, more complex POD 
document <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6081	6181	
==>ex.t> test 
actually roundtrip parses this document successfully. However, more complex POD 
document <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	239	350	
==>k of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	239	350	
==>k of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1912	2014	
==>r returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1912	2014	
==>r returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9256	9356	
==>e same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9256	9356	
==>e same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1181	1314	
==>od) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1181	1314	
==>od) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	510	657	
==>directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	510	657	
==>directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	315	425	
==>l5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
} <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	315	425	
==>l5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	129	246	
==>port { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	129	246	
==>port { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7702	7809	
==>ective) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7702	7809	
==>ective) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6220	6338	
==>essage.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6220	6338	
==>essage.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3200	3288	
==>Builder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3386	3474	
==>Builder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')->STORE( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11885	12012	
==>ord
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11879	12006	
==>ord
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2112	2220	
==>it[$#nameSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = % <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12857	12959	
==>r($line);

Checks if the given line is a header (1..M) line.  If so, it places how
many tests there wil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	953	1083	
==>s defined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	964	1094	
==>s defined $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5160	5284	
==>t);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    } <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5160	5284	
==>t);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	491	614	
==>$.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	491	614	
==>$.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.star <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	97	216	
==>p {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"( <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	97	216	
==>p {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14410	14600	
==>head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14689	14879	
==>head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4526	4642	
==>o the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4526	4642	
==>o the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_ch <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	24	120	
==>all/Base.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Base.pm"
package Module::Instal <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5270	5372	
==>::Object $o) {$o.<[[DefaultValue]]>}
multi sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
multi sub ToBoole <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	317	442	
==>eturns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly
    # and callin <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	317	442	
==>eturns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly
    # and callin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5077	5180	
==>->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7745	7848	
==>->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	129	229	
==>as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !! <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	129	229	
==>as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !! <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	923	1033	
==>[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{__WARN__} = $SIG{__WARN__}->() <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	662	795	
==>d 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	662	795	
==>d 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10610	10717	
==>s method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10610	10717	
==>s method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7383	7487	
==>$?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $nega <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7441	7545	
==>$?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $nega <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1134	1244	
==>}

our Int multi Num::round_half_down_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, up <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17819	17960	
==>return MatchX->new()->set_as_failed;
}
sub match_re {
  my($re,$s)=@_;
  my $r = compile($re);
  my $m = match($r,$s);
  return $m;
}

if(@ARG <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	123	223	
==>stBuilder->STORE('::Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attribut <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3775	3874	
==>ous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3775	3874	
==>ous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.closure <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14146	14248	
==>e (i.e., which to escape). The default set
of characters to encode are control chars, high-bit chars, a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14146	14248	
==>e (i.e., which to escape). The default set
of characters to encode are control chars, high-bit chars, a <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	653	780	
==>ption ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	653	780	
==>ption ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1413	1676	
==>s Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1413	1676	
==>s Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	692	800	
==>rn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	780	888	
==>rn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12133	12236	
==>eter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurrence.
Ot <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12133	12236	
==>eter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurrence.
Ot <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8006	8116	
==>k>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8006	8116	
==>k>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick <==
2	/Users/nnunley/pugs/util/grokprims.pl	2403	2503	
==>td>";
  }
  print "</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}< <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2076	2195	
==>r my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3445	3560	
==>r my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1365	1463	
==>module, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those mod <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1365	1463	
==>module, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those mod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2826	2960	
==>nt cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2826	2960	
==>nt cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::C <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9998	10098	
==>export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9998	10098	
==>export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40194	40292	
==>St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40194	40292	
==>St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify an <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6484	6578	
==>paque_instance_attrs($_[0])->{'%:methods'}->{'does'}->(@_);
});

# now Class does Role

## ---- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5193	5330	
==>sage;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stal <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5193	5330	
==>sage;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stal <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2777	2887	
==>t are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2777	2887	
==>t are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19276	19375	
==>d>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19276	19375	
==>d>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	272	403	
==>s Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extra <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	272	403	
==>s Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	186	300	
==>doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your bro <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	186	300	
==>doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your bro <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10977	11073	
==>ethod decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<decipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10977	11073	
==>ethod decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<decipherin <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5744	5840	
==>d> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5744	5840	
==>d> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	924	1034	
==>Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	924	1034	
==>Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8303	8410	
==>_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8361	8468	
==>_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8888	9005	
==>ick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8888	9005	
==>ick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5652	5814	
==>m[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5471	5630	
==>m[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3471	3643	
==>@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3471	3643	
==>@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2661	2804	
==>j->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call the objects ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39000	39128	
==>)
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attributes'),
    # method b <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13269	13410	
==>} $app->values;

    $self->prepare_scope(@params);

    my $v = $self->reduce($thunk);

    #warn "applying @params to " . Dumper->reduce($th <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1577	1679	
==>round_toward_zero },
		{ $^a.round_away_from_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	247	380	
==>>mk_accessors(qw/
    target
    from
    position
    coroutine
    capture
    hash
    integer
    number
    /
}

sub new {
  my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15115	15219	
==>kage Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2045	2154	
==>ts called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $p <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2045	2154	
==>ts called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38063	38152	
==>key, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38063	38152	
==>key, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5755	5858	
==>sed.  One possibility is to return a negative value for
# relative seconds and a positive value for epoc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5755	5858	
==>sed.  One possibility is to return a negative value for
# relative seconds and a positive value for epoc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10006	10128	
==>g, "$test{skipped}/$test{max} skipped: $test{skip_reason}")
                    if $test{skipped};
                push(@ms <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	747	848	
==>t(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

mu <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	747	848	
==>t(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

mu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3582	3731	
==>ed in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3594	3743	
==>ed in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4441	4534	
==>nt to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4441	4534	
==>nt to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<de <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12003	12117	
==>t .= "<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4877	5016	
==>e> 
        {
	 eval Emitter::Perl5::emit({macro => $()});
	 return { macro => $() ,}
	}
RULE
*{'empty_list'} = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6525	6632	
==>}->{'does'}->(@_);
});

# now Class does Role

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3870	4036	
==>e this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4334	4500	
==>e this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8192	8294	
==>.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
=ite <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8192	8294	
==>.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is found.
    
=ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2842	2937	
==>URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2842	2937	
==>URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_ <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	127	232	
==>pl
# Only handles operators: + - * /

# Pugs note: change "die" to "fail" when "fail" is implemented.

# I <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11256	11377	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11256	11377	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1908	2044	
==>"P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1908	2044	
==>"P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::P <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1752	1895	
==>ed(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7937	8042	
==>reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop
# wi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7937	8042	
==>reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop
# wi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1516	1648	
==>0 [options] -- smoke1.html smoke2.html ...

Available options:
  --smokeserv=http://path/to/smokeserv.pl
    Sets the path to the smo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9966	10076	
==>()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9966	10076	
==>()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9422	9534	
==>ode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9422	9534	
==>ode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5647	5762	
==>$param[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = $no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5466	5579	
==>$param[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = $no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1445	1574	
==><[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1445	1574	
==><[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2331	2435	
==>ully functioning modules in 
Pugs, this port does it's best to work with those limitations and 
still pro <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2331	2435	
==>ully functioning modules in 
Pugs, this port does it's best to work with those limitations and 
still pro <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3721	3820	
==>elf);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3721	3820	
==>elf);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_d <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4039	4140	
==>ll(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4039	4140	
==>ll(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13348	13443	
==>TTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will remove a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13348	13443	
==>TTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will remove a <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9707	9829	
==>};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{skip};

        my($estatus, $wstatus <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	763	878	
==>|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|false|False|FALSE|off|Off|OFF)/;
            $val = und <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35800	35892	
==>r> has the same heading as
the invocant Relation::Example, and returns a new Relation::Exampl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37832	37924	
==>r> has the same heading as the
invocant Relation::Example, and returns a new Relation::Exampl <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1602	1764	
==>hift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return undef unless $c;
                $c->scalar_fetc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15823	15937	
==>he length of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    forea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7266	7359	
==>nt-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF-- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7266	7359	
==>nt-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF-- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26374	26474	
==>y time you create a modified version of Rosetta
that you are willing to distribute, because that is a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26374	26474	
==>y time you create a modified version of Rosetta
that you are willing to distribute, because that is a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2861	2959	
==>m count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from t <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2861	2959	
==>m count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37123	37235	
==>turn $S->object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handler(' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1788	1888	
==>laintext string, returning the ciphertext version.  Most 
algorithms will have a key, which will be s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1788	1888	
==>laintext string, returning the ciphertext version.  Most 
algorithms will have a key, which will be s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	628	736	
==>mc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	628	736	
==>mc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35799	35934	
==>.>)

Omitted

=head2 tail

Family: close

Types: tail (C<)> when not in C<(...>)

Omitted

=head2 ref

Family: ref

Types: ref1, ref2 .. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17963	18068	
==>d with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
reg <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2322	2427	
==>d with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
reg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	609	763	
==>name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	609	763	
==>name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24901	25028	
==>b { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25180	25307	
==>b { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2845	2976	
==>ocket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2845	2976	
==>ocket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6054	6174	
==>lf->{extensions} ||= [];
}

sub find_extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14216	14311	
==>-18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Missing braces on \%s{}

=item RPe_RBR <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4707	4812	
==>[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]> <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4707	4812	
==>[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6711	6871	
==>rrent = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6711	6871	
==>rrent = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4434	4539	
==>$Object got the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $O <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6336	6441	
==>$Object got the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $O <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4163	4266	
==>("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4163	4266	
==>("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	61	158	
==>::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	61	158	
==>::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	435	529	
==>hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Remove <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	435	529	
==>hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Remove <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	451	561	
==>l_version);

    $self->set_makefile_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13153	13249	
==>is broken because something is not implemented yet. So
in order to still allow that to be tested, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13211	13307	
==>is broken because something is not implemented yet. So
in order to still allow that to be tested, <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	55	150	
==>trict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestProgram <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19238	19359	
==>$1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15659	15780	
==>$1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22592	22687	
==>ays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22592	22687	
==>ays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28699	28797	
==>8_set(prog, t)	((t) \
			 ? (RX_MATCH_UTF8_on(prog), (PL_reg_match_utf8 = 1)) \
			 : (RX_MATCH_UTF <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	455	557	
==>is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	455	557	
==>is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6292	6447	
==>' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6567	6721	
==>' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n- <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	990	1090	
==>utput =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    ret <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	990	1090	
==>utput =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    ret <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1936	2050	
==>ig = $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class->env_override($conf);
    $c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28507	28610	
==>ere's how Test::Harness tests itself

  $ cd ~/src/devel/Test-Harness
  $ perl -Mblib -e 'use Test::Harn <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	507	630	
==>f = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	408	531	
==>f = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28237	28339	
==>(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #define RX_MATCH_COPY_FREE(rx) \ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	688	814	
==>ndard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=hea <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	688	814	
==>ndard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=hea <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9045	9169	
==>ession ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expr <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	503	614	
==>ession ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, $expr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	922	1036	
==>e_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === n <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	922	1036	
==>e_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1381	1480	
==>r::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1381	1480	
==>r::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11960	12061	
==>xt( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11960	12061	
==>xt( $x )`

Returns the element in the recurrence that is right after the parameter.

- `previous( $x ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6386	6534	
==>_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_pri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19173	19305	
==>little wary of making them
objects in their own right, even if it would create a better sense of
uniformity.

=item Documentation

Fi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30273	30378	
==>ed at run-time before the text
is shown to the user.

Each Template module ideally comes as part of a set, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30273	30378	
==>ed at run-time before the text
is shown to the user.

Each Template module ideally comes as part of a set, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4900	5046	
==>nore it and go to the next one
            next if $self->has_method($method_name);
            # otherwise ... add the method in 
            $sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1501	1630	
==>t;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless {
	value => $value,
	warnings => $warnings,
	has_failed => $h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7491	7623	
==>( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7503	7635	
==>( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6385	6482	
==>f ref($f);
	my $code = code_for_code_CODE(name=>$name,kind=>$cls,params=>$argl,
				      body=>$b <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	47	146	
==>o {...}", so it returns the Foo
# module object, see thread "What do use and require evaluate to?" o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9081	9250	
==>\$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9916	10085	
==>\$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_ru <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	47	153	
==>ub is_prim { 
	... # teste ob $prim prim ist
}

sub search_prim_within( $count ) {
	my @numbers := $prim... <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9117	9238	
==>:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^befo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9117	9238	
==>:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^befo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15326	15444	
==>eop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15605	15723	
==>eop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	288	424	
==>d new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $out <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	288	424	
==>d new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $out <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	44	145	
==>thods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	44	145	
==>thods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2464	2557	
==>s.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2464	2557	
==>s.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1044	1147	
==>urn $class->no_match;
};

sub substitution {
    my $grammar = shift;
    return $grammar->no_match unle <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6797	6888	
==>ass now does Role');
ok($Class->has_method('resolve'), '... we now have the resolve method') <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4338	4442	
==>'Object', '... $Object got the right method return value');
is($Object->superclass, undef, '... $Object g <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6240	6344	
==>'Object', '... $Object got the right method return value');
is($Object->superclass, undef, '... $Object g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10228	10353	
==>emp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10228	10353	
==>emp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %su <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	62	143	
==>perl5/site_perl/5.8.7/Module/Install/Makefile/Name.pm"
package Module::Install::Ma <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6410	6510	
==>> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each lin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6410	6510	
==>> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each lin <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	919	1150	
==>NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find cur <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	919	1150	
==>NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find cur <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15592	15701	
==>ometimes the "not " and "ok" will be on separate lines on VMS.
        # We catch this and remember we saw it. <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	252	356	
==>nt typed to the
Role it is attached to (however, this is a trend and not a rule).

=item *

A method is b <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	217	343	
==>ify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	217	343	
==>ify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # g <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2448	2545	
==>piler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archive <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2448	2545	
==>piler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archive <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30288	30390	
==>before the text
is shown to the user.

Each Template module ideally comes as part of a set, at least on <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30288	30390	
==>before the text
is shown to the user.

Each Template module ideally comes as part of a set, at least on <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13493	13584	
==>export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13493	13584	
==>export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20080	20177	
==>ost general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20080	20177	
==>ost general order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose t <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	254	383	
==>nfig::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	254	383	
==>nfig::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11006	11104	
==>$got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11064	11162	
==>$got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4151	4256	
==>144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4151	4256	
==>144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1008	1111	
==>L::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1008	1111	
==>L::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4348	4452	
==>[A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory st <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4348	4452	
==>[A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory st <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	343	461	
==>our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUI <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	343	461	
==>our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21162	21281	
==>ject(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17583	17702	
==>ject(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?< <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7281	7389	
==>se);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7281	7389	
==>se);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22595	22728	
==>add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19016	19149	
==>add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&R <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3290	3442	
==>), return;
                }
        
                ### set up the files
                for my $meth (qw[registered_alternatives_file available_file]) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1658	1750	
==>bjects.

They provide stringification, fmapping and value encapsulation features.

They are d <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	461	570	
==>", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	461	570	
==>", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1783	1913	
==>der('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1783	1913	
==>der('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3355	3487	
==>rator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3355	3487	
==>rator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1326	1438	
==>unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1326	1438	
==>unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7708	7817	
==>0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cclass .CCLASS_WORD, target, po <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8769	8904	
==>$string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8769	8904	
==>$string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3202	3327	
==>ion;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Ta <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3202	3327	
==>ion;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Ta <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1188	1331	
==>~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ($chr =~ /([\[\]])/) {
#	    print "\\" if $col == 1;
	    print "{$1}";
	    retu <==
2	/Users/nnunley/pugs/util/version_h.pl	1146	1266	
==>tps?)\b/, @info) {
        ($revision) = $line =~ / (\d+)$/;
    } elsif (my ($source_line) = grep /^(Copied|Merged) From <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14253	14348	
==>hod who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14253	14348	
==>hod who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("W <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12679	12780	
==>field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12679	12780	
==>field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9719	9842	
==>mbers },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9719	9842	
==>mbers },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4002	4106	
==>his Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4002	4106	
==>his Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2090	2192	
==>rs instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2090	2192	
==>rs instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2976	3083	
==>available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2976	3083	
==>available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the fo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28681	28767	
==>sing /home/schwern/src/devel/Test-Harness/blib
  t/base..............ok
  t/nonumbers.. <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2686	2818	
==>r @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    while (scalar @file) {
			$chr = shift @fi <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1060	1168	
==>:import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4813	4966	
==>fix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4813	4966	
==>fix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3114	3216	
==>t on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3114	3216	
==>t on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	195	312	
==>func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

s <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	195	312	
==>func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16912	17050	
==>} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13333	13471	
==>} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6557	6667	
==>ocument Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directive is reached.

=ite <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6557	6667	
==>ocument Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directive is reached.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5554	5669	
==>child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5554	5669	
==>child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4954	5074	
==>Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8431	8551	
==>Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3081	3198	
==>t5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3627	3744	
==>t5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3288	3527	
==>n_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readl <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3288	3527	
==>n_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh.readl <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2192	2373	
==>on} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2192	2373	
==>on} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28475	28614	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28754	28893	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18520	18651	
==>m'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14941	15072	
==>m'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	967	1071	
==>d quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	967	1071	
==>d quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1504	1627	
==>" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text-> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1504	1627	
==>" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7828	7931	
==>}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.<[[CanPut]]>($P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14909	15074	
==>rate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14903	15068	
==>rate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10159	10260	
==>w sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10159	10260	
==>w sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16363	16452	
==>pression> <'!='> <RelationalExpression>
    | <EqualityExpression> <'==='> <RelationalExpr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6525	6631	
==>$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Le <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6525	6631	
==>$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Le <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19040	19183	
==>>can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15461	15604	
==>>can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12476	12614	
==>apture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12023	12138	
==>g  => sub {
      utime undef, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$parrot_path/runtime/parrot/i <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15960	16146	
==>@tm[2],
            hour    => @tm[3],
            min     => @tm[4],
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @tm[7],
            yday    => @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2712	2910	
==>efined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2712	2910	
==>efined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4413	4526	
==>if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4425	4538	
==>if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2284	2383	
==>d the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L< <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2284	2383	
==>d the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	624	778	
==>superclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4239	4331	
==>::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> <?p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11233	11338	
==>_name:
    $I0 = pos
  subrule_name_1:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $S <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15999	16135	
==>= $link->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a rep <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4360	4458	
==>d blank lines are ignored.

When writing back to the config file, any comments are discarded.

=hea <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4360	4458	
==>d blank lines are ignored.

When writing back to the config file, any comments are discarded.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14716	14843	
==>method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14716	14843	
==>method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3890	4050	
==>->env->set('$_' => $ref);          
            $closure->do();
            $val = $ref->fetch;            
        }
    }
    return nil->new();
}

sub apply { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	74	175	
==>-------------------------------------------------
## Mini Meta-Model with explicit EigenClasses
## --- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22812	22948	
==>"),
					param => comb(
						fun => ide("listify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("leng <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19318	19407	
==>r wording, and documented the problem with using F<SUPER::>
inside F<MyClass::__object__>. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	676	782	
==>*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	676	782	
==>*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15507	15624	
==>n>
    | <RelationalExpression> <'<'> <ShiftExpression>
    | <RelationalExpression> <'>'> <ShiftExpression>
    | <Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1145	1387	
==>t( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::constant( "\%" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1152	1287	
==>P requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1152	1287	
==>P requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2345	2497	
==>ort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2271	2414	
==>ort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23726	23828	
==>used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simple <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23726	23828	
==>used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simple <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10058	10159	
==>ue::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10058	10159	
==>ue::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1413	1543	
==>?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $pr <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1413	1543	
==>?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27829	27933	
==>rue if the flag is going to be turned on, and false if
it's going to be turned off.  For C<(?i-s)>, C<FLA <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13645	13749	
==>ssion>
    | <'new'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <Mem <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	129	265	
==>e Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	129	265	
==>e Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1450	1561	
==>ist - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to cr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1450	1561	
==>ist - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to cr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19383	19486	
==>e F<MyClass::__object__>.

=item Bug Fixes

Character classes weren't closing properly in the tree.  Fix <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5345	5466	
==>ay, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice  safe <==
2	/Users/nnunley/pugs/util/func_refact.pl	1401	1512	
==>dsize = keys %$set;
    my $debug = $new eq ($Conf{debug}||="");

    return 0 if $ignoring{$new};

    my $size <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5446	5606	
==>efine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5446	5606	
==>efine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () retur <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	95	200	
==>$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(St <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	95	200	
==>$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(St <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1286	1390	
==>ch.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does above in C<quant <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1286	1390	
==>ch.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does above in C<quant <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4819	4970	
==>er.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions them <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4819	4970	
==>er.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions them <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37005	37115	
==>>new('@:MRO')             => attribute->new('@:MRO'             => 'list')));
$::Class->send('add_attribute', ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28868	28966	
==>r
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle names that have no "pr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10130	10240	
==>> 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$str <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	410	509	
==>find_immediate_dyn_sym {
	my $self = shift;
	my $symbol = shift;

	foreach my $pad (@{ ($self->scope <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5364	5475	
==>ld all of
    # the other data structures used by the Rosetta framework, as used by
    # the current process/ap <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5364	5475	
==>ld all of
    # the other data structures used by the Rosetta framework, as used by
    # the current process/ap <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	470	628	
==>block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	470	628	
==>block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1204	1336	
==>ess $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1204	1336	
==>ess $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $de <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4387	4544	
==>finite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4387	4544	
==>finite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	22053	22152	
==>ex($file, 'Test.pm') == -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NAME~ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1821	1941	
==>f $file eq File::Spec->updir || $file eq File::Spec->curdir;
            next if $file eq ".svn";
            next if $fi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4003	4104	
==>le.
  --linuxrc=$linuxrc
    --linuxrc is the first script to run after the kernel has started.
  --we <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3944	4061	
==>_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3944	4061	
==>_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        complement_previous => $self <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	237	354	
==>O existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	237	354	
==>O existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4883	4984	
==>rl library.  It should also be suitable for one-liners.  If
you need more control or access to the hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4883	4984	
==>rl library.  It should also be suitable for one-liners.  If
you need more control or access to the hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7261	7375	
==>$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7261	7375	
==>$_}<channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7210	7315	
==>gate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7268	7373	
==>gate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4773	4877	
==>OTE: To avoid name collisions, we use a fully qualified function name.

=back

The following are the (pse <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4773	4877	
==>OTE: To avoid name collisions, we use a fully qualified function name.

=back

The following are the (pse <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	419	530	
==>ltiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	477	588	
==>ltiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_t <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	729	840	
==>=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1313	1424	
==>=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5938	6055	
==>args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5938	6055	
==>args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5113	5250	
==>rent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the removed child is aligned correctl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5113	5250	
==>rent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the removed child is aligned correctl <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	263	376	
==>ub determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Fi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26734	26829	
==>new object is set from the named parameter
$msg_key (a string); the optional named parameter %ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26734	26829	
==>new object is set from the named parameter
$msg_key (a string); the optional named parameter %ms <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	3	107	
==>odule Foo {...} returns the Foo module object,
# see thread "What do use and require evaluate to?" on p6l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22199	22300	
==>ibutes are private, so you must use accessor methods.  Rosetta
does not declare any subroutines or exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22199	22300	
==>ibutes are private, so you must use accessor methods.  Rosetta
does not declare any subroutines or exp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2273	2414	
==>f a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2273	2414	
==>f a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_va <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9358	9468	
==>("int"),
			type::operator::nullary->new("int"),
		),
	),
	sub => type::operator::arrow->new(
		type::operator: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16197	16299	
==>hiftExpression>
}
rule EqualityExpression :words {  # see 11.9
      <RelationalExpression>
    | <Equa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1901	2005	
==>cted, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1959	2063	
==>cted, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3377	3495	
==>erface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3594	3712	
==>erface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Gramma <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3851	3966	
==>symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3851	3966	
==>symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1025	1144	
==>_our ); ???

# note: alternation is first match (not longest). 
# note: the list in @$nodes can be modified at runtim <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7507	7647	
==>$module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7507	7647	
==>$module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	264	373	
==>tre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nomb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1792	1901	
==>tre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nomb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6990	7096	
==>} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7002	7108	
==>} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2142	2245	
==>ol, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2130	2233	
==>ol, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2265	2379	
==>ons -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin wit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2182	2291	
==>ons -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin wit <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2184	2316	
==>ied dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisfi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3549	3673	
==>ied dependencies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisfi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1283	1387	
==>rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{sou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1423	1527	
==>rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{sou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6010	6154	
==>ethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6010	6154	
==>ethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2032	2141	
==>ust be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1714	1819	
==>ust be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	500	641	
==>le 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	500	641	
==>le 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { retu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13087	13204	
==>o addchar
  backslash:
    inc pos
    $S0 = substr target, pos, 1
    $I0 = index "nrtfae0", $S0
    if $I0 == -1 got <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31997	32093	
==>plate module sets in turn, looking at just the set member for
each that corresponds to language A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31997	32093	
==>plate module sets in turn, looking at just the set member for
each that corresponds to language A <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1751	1894	
==>output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep { <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1751	1894	
==>output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1317	1442	
==>> 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # ca <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1317	1442	
==>> 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6262	6370	
==>we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6262	6370	
==>we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1068	1172	
==>right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NAME

symbol - the core symb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21550	21649	
==>t being raised
until the second pass.  Figured out how to improve the grammar to get
it to work prop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8647	8749	
==>tchfail still be returning something?

maybe just overload bool to false ;)

(I mean, seriously, becaus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8359	8459	
==>tchfail still be returning something?
maybe just overload bool to false ;)
(I mean, seriously, becaus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14554	14655	
==>e case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering the heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14554	14655	
==>e case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering the heade <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4422	4520	
==>/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4269	4366	
==>/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24856	24954	
==>an assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24856	24954	
==>an assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedTe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3581	3682	
==>self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3581	3682	
==>self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2155	2257	
==>k

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := ev <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2213	2315	
==>k

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := ev <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11574	11676	
==>ybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11574	11676	
==>ybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21010	21121	
==>le times.  The result of doing so,
it that only the last of these fields will be present in the header
after the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21010	21121	
==>le times.  The result of doing so,
it that only the last of these fields will be present in the header
after the <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16460	16559	
==>nt()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16460	16559	
==>nt()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a single <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6694	6848	
==>is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6694	6848	
==>is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7786	7900	
==>n -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7786	7900	
==>n -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	583	719	
==>rns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	583	719	
==>rns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17457	17550	
==>as `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17457	17550	
==>as `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuous", t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7235	7336	
==>ut: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order ope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6989	7086	
==>ut: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order ope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1483	1579	
==>$<value>'));
    return "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth_call_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2882	2995	
==>grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3022	3135	
==>grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10924	11049	
==>tr $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10982	11107	
==>tr $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33953	34050	
==>oices are,
in order, if preferred ones aren't supported by a program or its libraries.
When transl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33953	34050	
==>oices are,
in order, if preferred ones aren't supported by a program or its libraries.
When transl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9039	9165	
==>s = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $conte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9039	9165	
==>s = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $conte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22722	22859	
==>data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23224	23361	
==>data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11588	11708	
==>ction (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11588	11708	
==>ction (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9547	9649	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other is not a full subs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13024	13126	
==>Relation $other!) returns Relation {

    die "The heading of the relation in $other is not a full subs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16667	16764	
==>ever outputs anything by itself to the user, but
rather returns its results for calling code to ou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16667	16764	
==>ever outputs anything by itself to the user, but
rather returns its results for calling code to ou <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1227	1369	
==>say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1227	1369	
==>say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3387	3485	
==>ni' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration fi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3387	3485	
==>ni' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6000	6365	
==>$port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6000	6365	
==>$port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, al <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	351	510	
==>tok (split ' ', $expr) {
        if ($tok =~ /^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop @stack;
        defined <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9863	10010	
==>ew             
            (($::ENV)
             (closure::signature new 
                ((params  (closure::params new (symbol new ("&dispatcher <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5432	5531	
==>lean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	115	246	
==>x/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33188	33308	
==>lf->{data},
      sub { +1 },
    ) if $depth;
  }

The two additional arguments sent are the walking stack and the curre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20564	20663	
==>u
open a program, it will search for language files specific to the program
in the order you chose s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20564	20663	
==>u
open a program, it will search for language files specific to the program
in the order you chose s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2722	2907	
==>print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2722	2907	
==>print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5277	5394	
==>x('Undef',@_) if $cls eq 'Undef';
    return new_box('Bool',(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	471	575	
==>from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	471	575	
==>from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9122	9218	
==>ush @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2947	3043	
==>ush @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3479	3645	
==>> $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3479	3645	
==>> $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $requ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1434	1549	
==>] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST provide an e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11662	11767	
==>(not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTY <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4305	4410	
==>(not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTY <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3368	3454	
==>*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3368	3454	
==>*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]* <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6472	6578	
==>>reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	529	634	
==>die "virtual method 'provides' called on @_";
}

sub run {
	die "virtual method 'run' called on @_";
}

__ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16772	16929	
==>t_nil;
                    })
                );
                return opaque->new(reference->new($e->get('$class:')), $e->get('$attrs'));     
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11955	12064	
==>ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $min, $max, $data) = @_;
    my $self <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3263	3397	
==>-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirname($ghc) . $Config{path_sep} . $ENV{PATH};

    unlink $a_file;
    $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7210	7321	
==>_flags .= " -I../../src -i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1116	1234	
==>e;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1116	1234	
==>e;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> < <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	23	122	
==>is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub conte <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	23	122	
==>is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub conte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3721	3821	
==>ub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3721	3821	
==>ub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2696	2825	
==>join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{\\}{\\\\}g;
        qq{("$nam <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3955	4063	
==>ind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defined $args->{inv <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	783	901	
==>tr");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	803	914	
==>tr");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } els <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5281	5427	
==>TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5281	5427	
==>TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2092	2204	
==>SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2092	2204	
==>SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6172	6276	
==>pher::Stream> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the cryp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6172	6276	
==>pher::Stream> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the cryp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1055	1164	
==>g; each key of that Mapping is the name
        # of one of this Relation's attributes and the value correspon <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4533	4642	
==>g; each key of that Mapping is the name
        # of one of this Relation's attributes and the value correspon <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5745	5928	
==>~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5745	5928	
==>~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18329	18441	
==>e
requested resource address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18329	18441	
==>e
requested resource address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
w <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	453	541	
==>-----------------------------------------------------------------
## accessors and mutato <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	453	541	
==>-----------------------------------------------------------------
## accessors and mutato <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	842	1011	
==>{
		my $self = shift;
		my $key = shift;

		exists $self->{$key} || $self->SUPER::can($key);
	}

	sub get {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shi <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6023	6140	
==>atements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3137	3253	
==>>{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3125	3241	
==>>{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32096	32195	
==>ose body contains all of the tuples that are in either or both of the
invocant Relation and C<$other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36646	36745	
==>ose body contains all of the tuples that are in either or both of the
invocant Relation and C<$other <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3015	3151	
==>$r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3015	3151	
==>$r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5592	5695	
==>e same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinterac <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5592	5695	
==>e same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinterac <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5799	5896	
==>96)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/10737 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5799	5896	
==>96)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/10737 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2111	2215	
==>.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2200	2304	
==>.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3736	3878	
==>setta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3736	3878	
==>setta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5778	5891	
==>m_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

met <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5778	5891	
==>m_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

met <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1465	1672	
==>storeElem($idx, $c);
                }
                $c;
            },
            hash_fetchVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->h <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7158	7267	
==>ormal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37931	38029	
==>name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template text
stri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37931	38029	
==>name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template text
stri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2168	2277	
==>TCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offse <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2168	2277	
==>TCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8812	8949	
==>term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8808	8945	
==>term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	143	244	
==>r::Token;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19710	19833	
==>$self->{rx};

    do {
      $rx->{tree} = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1239	1337	
==>hing but a human.  To
make it easier for programs to work with test results, we provide
Test::Harne <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5549	5669	
==>tart_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5549	5669	
==>tart_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5017	5178	
==>har;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	0	105	
==>module Log::Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:per <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	0	105	
==>module Log::Selective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:per <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3255	3347	
==>\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILE <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1740	1846	
==>ard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1740	1846	
==>ard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	263	397	
==>=> $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	263	397	
==>=> $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16499	16595	
==>or::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($.then), type($.else <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	492	604	
==>es of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	492	604	
==>es of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1108	1242	
==>ebug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1108	1242	
==>ebug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $ur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10905	11001	
==>ust be set if this recurrence is a "universal set".
Otherwise the program will emit warnings duri <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10905	11001	
==>ust be set if this recurrence is a "universal set".
Otherwise the program will emit warnings duri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	770	862	
==>nterface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "instal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	770	862	
==>nterface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "instal <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3443	3558	
==>s $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3443	3558	
==>s $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	927	1024	
==>Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AU <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	927	1024	
==>Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AU <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1010	1105	
==>atch

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1010	1105	
==>atch

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13169	13283	
==>t2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13169	13283	
==>t2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7527	7648	
==>ction gets as argument a list:



### we don't need a "high" level interface (named args) 

###    because the actual rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7271	7389	
==>ction gets as argument a list:

### we don't need a "high" level interface (named args) 
###    because the actual rule <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	414	518	
==>ict;

use Getopt::Long;
use Best 0.05 [ [ qw/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harnes <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	155	269	
==>$.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 3 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	155	269	
==>$.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 3 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3418	3522	
==>BEGIN {
#our &Date::Gregorian::duration ::= &Duration::Gregorian::duration;
#}

# operations with Duratio <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2742	2842	
==>riptions<$name> ||= Set.new ).insert($subscription);
            $subscriber.note_subscription($subsc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22035	22146	
==>_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is CO <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16937	17047	
==>_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is CO <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7449	7553	
==>- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Impl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7449	7553	
==>- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Impl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7324	7423	
==>oundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boun <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7324	7423	
==>oundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40394	40499	
==>OBAR => 1, 'You broke the %s';
  use constant err_TOOBIG => 2, 'Regex too large';

Then you can access the <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24095	24193	
==>xp.h are present to pass info from
 * compile to execute that permits the execute phase to run lots <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8105	8268	
==>t.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8105	8268	
==>t.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    met <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6322	6447	
==>omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6322	6447	
==>omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13343	13445	
==>t2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13343	13445	
==>t2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8496	8599	
==>= 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8496	8599	
==>= 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7356	7464	
==>ly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7356	7464	
==>ly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normali <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4456	4551	
==>ring>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=ite <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4456	4551	
==>ring>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12927	13036	
==>s $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12927	13036	
==>s $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	754	880	
==>t;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	754	880	
==>t;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1352	1479	
==>able => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1352	1479	
==>able => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variabl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1850	2014	
==>rint $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $str = '';
    return $str unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } el <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7883	7985	
==>ush @statements, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1708	1810	
==>ush @statements, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1127	1242	
==>superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1127	1242	
==>superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3781	3885	
==>d repeatedly 
with your data.  Finally, call the finish() method to return any leftover data 
and clear t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3781	3885	
==>d repeatedly 
with your data.  Finally, call the finish() method to return any leftover data 
and clear t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3040	3154	
==>le', 'lib', 'Perl6', 'Bible'),catdir('..', 'perl6_doc', 'design' ))) {
        $syn_src_dir = $_ and last if -f cat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6207	6303	
==>%full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24775	24879	
==>=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29327	29431	
==>=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2200	2304	
==>ld);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.pus <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2200	2304	
==>ld);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.pus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15281	15388	
==>hat deal with dates/times always convert their value to system
time (seconds since Jan 1, 1970) and they als <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15281	15388	
==>hat deal with dates/times always convert their value to system
time (seconds since Jan 1, 1970) and they als <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	968	1079	
==>ncies( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\t$obj->{packag <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1237	1334	
==>r details.
This implementation is meant to show the power of Perl 6 defaults and
Currying in a rea <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1337	1440	
==>cludes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@items) re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1337	1440	
==>cludes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@items) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2735	2867	
==>urn { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2982	3114	
==>urn { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<t <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1455	1558	
==>looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - tolerance (how accurate t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4032	4148	
==>program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4249	4365	
==>program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7806	8000	
==>0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7806	8000	
==>0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4917	5023	
==>than rules or macros. (The numeric
    rxmods are recognized by fallback macros defined with an empty opera <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	758	867	
==>ack
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	758	867	
==>ack
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	313	583	
==>londie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sy <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	757	867	
==>_compare {
    my ($left, $right) = @_;
    return $left->to_native cmp $right->to_str->to_native;
}

# methods <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3061	3192	
==>p_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_version\n" . 
                    ($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4111	4242	
==>p_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_version\n"
        . ($ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14339	14446	
==>m(['use charnames ":full";unpack("U*","\\N{',AName,'}\n")'],Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - wa <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4777	4896	
==>ready set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4636	4755	
==>ready set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2723	2830	
==>pherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2723	2830	
==>pherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print ci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5348	5537	
==>2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5348	5537	
==>2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $ <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	260	365	
==>py qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	260	365	
==>py qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	379	496	
==>"quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Lat <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	379	496	
==>"quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Lat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13501	13612	
==>a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13501	13612	
==>a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.inter <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	204	316	
==>TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	204	316	
==>TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Spa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	258	376	
==>_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_clo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	258	376	
==>_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_clo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	565	689	
==>om this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title>< <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	565	689	
==>om this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title>< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9991	10113	
==>ify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9991	10113	
==>ify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	846	957	
==>IL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	846	957	
==>IL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11914	12048	
==>rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12193	12327	
==>rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1331	1439	
==>ata and clear the cipher's state.

=back 4

The procedural interface does the same thing within a single call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1331	1439	
==>ata and clear the cipher's state.

=back 4

The procedural interface does the same thing within a single call <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6733	6838	
==>ass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6733	6838	
==>ass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<P <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6606	6764	
==>ethod = method->new(
            $::ENV,
            method::signature->new(
                params => method::params->new(
                              symbo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18877	18967	
==>e)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::debug && !$eval_log_file) {
	open($eval_log_fil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	20	124	
==>v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	20	124	
==>v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3040	3170	
==>$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3040	3170	
==>$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$da <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6908	7055	
==>map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6908	7055	
==>map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	160	290	
==>nfix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => T <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2087	2216	
==>nfix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => T <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3889	4038	
==>rg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	156	254	
==>head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Nada;

=head1 DES <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	830	934	
==>perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	830	934	
==>perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1353	1454	
==>str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1353	1454	
==>str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22491	22589	
==>indicate a
condition, often it will also provide some variable values to be
interpolated into the u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22491	22589	
==>indicate a
condition, often it will also provide some variable values to be
interpolated into the u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33424	33535	
==>der they are to be encountered
with unshift().  The two code references are used to go deeper and
shallower in s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2574	2683	
==>(@{$role->roles}) {
        $output .= _draw_role($subrole);
        #$output .= "node_" . $subrole->id . " -- <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	655	807	
==>rm>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    whil <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	655	807	
==>rm>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    whil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29235	29352	
==>tem my $m = $obj->merge()

Merges this node with the previous one, if they are of the same type. If
it is called I<aft <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	783	938	
==>age Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	783	938	
==>age Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$gram <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	395	500	
==>id is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	395	500	
==>id is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2787	3049	
==>ine)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2787	3049	
==>ine)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2450	2557	
==>f $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2450	2557	
==>f $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4790	4925	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4983	5118	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negate <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3919	4013	
==>ate.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( yea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3919	4013	
==>ate.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( yea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5496	5601	
==>rammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5305	5408	
==>rammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	358	486	
==>ilt match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	358	486	
==>ilt match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to mat <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14167	14291	
==>ie. 'ok/not ok').  Reports the
result back in C<%test> which will contain:

  ok            did it succeed?  This is the lite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1806	1943	
==>s () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1806	1943	
==>s () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	433	537	
==>f %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "chara <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	433	537	
==>f %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "chara <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1204	1320	
==>SIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1204	1320	
==>SIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.).).');
  # or
  Foo->gra <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6473	6569	
==>atting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6473	6569	
==>atting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3677	3778	
==>pan2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3677	3778	
==>pan2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19933	20040	
==>ard practice for Mac OS X programs, including
the operating system itself, to have the user language data in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19933	20040	
==>ard practice for Mac OS X programs, including
the operating system itself, to have the user language data in <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6864	6957	
==>pec::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is wr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6864	6957	
==>pec::Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is wr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3611	3760	
==>x\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 le <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3611	3760	
==>x\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 le <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17487	17637	
==>== \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13908	14058	
==>== \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	46	210	
==>rg/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	46	210	
==>rg/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11455	11590	
==>$arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11455	11590	
==>$arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'M <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3143	3253	
==>::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3992	4102	
==>::_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_pr <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	726	838	
==>, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	726	838	
==>, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17521	17639	
==>n();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17521	17639	
==>n();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4175	4270	
==>--------------------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## --------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4198	4293	
==>---------------
## BOOTSTRAPPING Class/Object COMPLETE
## -------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1136	1243	
==>t with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1136	1243	
==>t with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or de <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5790	5915	
==>nd values are this:

    bonus           Number of individual todo tests unexpectedly passed
    max             Number of ind <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2858	3013	
==>urn unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2747	2897	
==>urn unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1772	1994	
==>ent>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1772	1994	
==>ent>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11201	11295	
==>set, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decod <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11201	11295	
==>set, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8533	8634	
==>malize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8533	8634	
==>malize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Chan <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19137	19280	
==>eps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = reps[$P1]
    savereps[$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15188	15288	
==>ay contexts, the encoded or
decoded string is returned (without changing the input string).

If you p <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15188	15288	
==>ay contexts, the encoded or
decoded string is returned (without changing the input string).

If you p <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3658	3790	
==>athname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $basename =~ s!.*/!!;

        # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	665	774	
==>of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	665	774	
==>of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13258	13347	
==>es( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13258	13347	
==>es( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3891	4034	
==>w (*@.args) { super }
}

class Class::Events::Event::Named {
    has $.name;

    method new ($.name, *@args) {
        super *@args;
    }
}

c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1471	1605	
==>s in 'expected' order should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angle <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11296	11423	
==>'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11296	11423	
==>'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2903	3132	
==>le_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3150	3379	
==>le_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4016	4129	
==>equest) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4016	4129	
==>equest) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_prox <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23076	23314	
==>x" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23355	23593	
==>x" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ru <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23402	23543	
==>un => ide("f"),
						param => comb(
							fun => ide("head"),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18515	18628	
==>you want to go even further and remove
any embedded class that is I<entirely> redundant (that is, I<every>
charact <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5560	5672	
==>nt =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5560	5672	
==>nt =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7498	7608	
==>ay "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7498	7608	
==>ay "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2635	2731	
==>d1 API METHODS

These methods must be implemented by subclasses... though a default
implementatio <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2635	2731	
==>d1 API METHODS

These methods must be implemented by subclasses... though a default
implementatio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1551	1670	
==>::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18826	18912	
==>als::substr($s,undef,$start,$length,undef,$replace) }
 multi substr(Str $s, StrLen $off <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10486	10598	
==>commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10486	10598	
==>commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	375	470	
==>$type_annotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9714	9864	
==>> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @va <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	937	1063	
==>> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @va <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15448	15567	
==>se Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15448	15567	
==>se Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2450	2570	
==>ecover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return u <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2450	2570	
==>ecover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14797	14900	
==>orting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we wil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14855	14958	
==>orting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we wil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2255	2355	
==>es.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2344	2444	
==>es.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<P <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9032	9144	
==>w( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9032	9144	
==>w( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23393	23498	
==>Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41002	41099	
==>ENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41002	41099	
==>ENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5610	5725	
==>hen>'));
    return "$op ($condition) $then\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9123	9216	
==>xp_hook_off() { /* aka "abandon regexps", aka "please segfault" */
  PL_regcompp = previous_co <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3612	3764	
==>k if we're the 'prefered' package
                my $link_this   = 1;
                my $unlink_this = '';
                {   my $prefix  = package_pr <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12794	12876	
==>lass="expander" onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1716	1810	
==>our also includes several attributes which might be interesting to 
people interested in the al <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1716	1810	
==>our also includes several attributes which might be interesting to 
people interested in the al <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30548	30651	
==>anguage" (or "user type") for each distinct Message; each file can be
shared by multiple Messages but th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30548	30651	
==>anguage" (or "user type") for each distinct Message; each file can be
shared by multiple Messages but th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26798	26894	
==>ocant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31350	31446	
==>ocant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4024	4126	
==>, month => $month, day => $day )`

Returns a date object for the given values.  The month and day defau <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4024	4126	
==>, month => $month, day => $day )`

Returns a date object for the given values.  The month and day defau <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16099	16200	
==>ical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16099	16200	
==>ical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union( $s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4741	4876	
==>est number seen [test $result{number}]\n";
            warn "Can't detailize, too big.\n";
        }
        else {
            #Generat <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14137	14240	
==>$.fun) + generic($.param) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.param);

	types::u <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2229	2355	
==>s > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2229	2355	
==>s > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11147	11239	
==>ens C<@INC> by removing redundant and unnecessary entries.
Necessary for OSes with limited co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35135	35244	
==>atching>.

=item C<product (Relation $other!) returns Relation>

This multi-method is a generic binary relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39685	39794	
==>atching>.

=item C<product (Relation $other!) returns Relation>

This multi-method is a generic binary relatio <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	429	631	
==>.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	429	631	
==>.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2022	2152	
==>\$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2010	2140	
==>\$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6434	6584	
==>m.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ precedence => 'tighter',
        #~ other => '*',
    #~ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	217	330	
==>r;
use Blondie::TypeSafe;

sub new {
	my $class = shift;

	bless {
		seen => undef,
	}, $class;
}

sub string {
	m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2116	2215	
==>erldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Differ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2116	2215	
==>erldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Differ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3632	3752	
==>,
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3825	3945	
==>,
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9529	9633	
==>passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9587	9691	
==>passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6673	6824	
==>_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_ind <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6673	6824	
==>_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_ind <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3848	3947	
==>gs "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other string will b <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3848	3947	
==>gs "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other string will b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	281	540	
==>Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation::Exampl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	272	523	
==>Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

class Relation <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4763	4864	
==>iler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5013	5114	
==>iler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5154	5242	
==>od if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5154	5242	
==>od if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
metho <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3239	3325	
==>t_intersection( $self.complement_previous, $self.complement_next, $set.complement_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3239	3325	
==>t_intersection( $self.complement_previous, $self.complement_next, $set.complement_previ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3680	3794	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $span1 );
}

method u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3680	3794	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $span1 );
}

method u <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1503	1636	
==>widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    re <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1503	1636	
==>widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3227	3326	
==>ince the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3227	3326	
==>ince the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8466	8564	
==>ub {
			Blondie::TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::TypeSaf <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25714	25809	
==>ith one of the
above messages.

=item C<FAILED--Further testing stopped: %s>

If a single subtes <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1006	1104	
==>r modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of ` <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1006	1104	
==>r modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of ` <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7807	7933	
==>(
    [ sort $FooBar->get_method_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... got the right method list (resolved) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7644	7755	
==>assed and does a '<=>' on them, returning the result.

=cut

sub _vcmp {
    my $self = shift;
    my ($x, $y) = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3982	4088	
==>mbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3982	4088	
==>mbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14093	14191	
==>ces = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17570	17668	
==>ces = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23958	24050	
==>he L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITAT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23958	24050	
==>he L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITAT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2067	2194	
==>iveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2067	2194	
==>iveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	411	541	
==>ndef } 
        qw/
        num bit str symbol nil type  
        list hash reference block 
        closure closure::env closure:: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11832	11957	
==>to happen,
but wishes to compare them with something other than C<E<lt>=E<gt>> or
C<cmp>.

=back

Any Criterion may recieve ei <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	158	261	
==>l Hacker'; # $x ist nun auch 'Perl Hacker'
	
#=Bindung (statisch)
my $y ::= $x # Bindung zur Compile-Zei <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	474	578	
==>Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	474	578	
==>Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21624	21718	
==>abase Independence".  However, the level of DBI's provided independence
is I<Database Driver In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21624	21718	
==>abase Independence".  However, the level of DBI's provided independence
is I<Database Driver In <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22883	22976	
==>:Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22883	22976	
==>:Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This docu <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	289	418	
==>l=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	289	418	
==>l=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1207	1343	
==>rgs[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1207	1343	
==>rgs[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5990	6112	
==>_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5978	6100	
==>_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42769	42994	
==>aque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

$::Object->send('a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4167	4290	
==>ub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), "]";
  }

  sub visual {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19557	19670	
==>defined
relation variables.  In SQL terms, you create or alter tables by adding or
updating their "information sch <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19557	19670	
==>defined
relation variables.  In SQL terms, you create or alter tables by adding or
updating their "information sch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2433	2554	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2626	2747	
==>eop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8129	8249	
==>\&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8322	8442	
==>\&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12721	12824	
==>eturn 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpages ye <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11795	11897	
==>:Dumper::Terse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8617	8757	
==>tch ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8810	8950	
==>tch ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8922	9018	
==>m I<newline>

This event handles newlines in the text, it is a specialization of the 'string' eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8922	9018	
==>m I<newline>

This event handles newlines in the text, it is a specialization of the 'string' eve <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4527	4624	
==>to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4527	4624	
==>to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2882	3156	
==>ls:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2882	3156	
==>ls:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta:: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	927	1025	
==>read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	927	1025	
==>read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2951	3050	
==>nt in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2951	3050	
==>nt in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

= <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	334	469	
==>str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	334	469	
==>str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4615	4747	
==>ldren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $remo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4615	4747	
==>ldren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $remo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19110	19222	
==>OCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    PO <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19110	19222	
==>OCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    PO <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6219	6328	
==>results = $strap->analyze_fh($name, $test_filehandle);

Like C<analyze>, but it reads from the given filehandl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	263	397	
==>BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	263	397	
==>BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.* <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10890	10995	
==>ctions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=ite <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10890	10995	
==>ctions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34810	34941	
==>ranch );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	290	557	
==>ed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	290	557	
==>ed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	169	313	
==>= $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	169	313	
==>= $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19205	19327	
==>ol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->send('add_method' => (
    # method label
        symbol-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3259	3366	
==>' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	402	509	
==>*infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the di <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	402	509	
==>*infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6978	7110	
==>\$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6966	7098	
==>\$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13910	14012	
==>rr_hyphen:
    parse_error(mob, pos, "Unescaped '-' in charlist (use '..' or '\-')")
    goto end
  err <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	109	214	
==>ew methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array pac <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	109	214	
==>ew methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::List out of the Array pac <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5219	5402	
==>top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off .. <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5219	5402	
==>top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top off .. <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20610	20727	
==>, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    +$m;
  }
}



sub Pugs::Int <==
2	/Users/nnunley/pugs/util/version_h.pl	800	914	
==>n from $svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21217	21309	
==>normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21217	21309	
==>normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	369	473	
==>traction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicod <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	369	473	
==>traction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicod <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1160	1259	
==>r $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1160	1259	
==>r $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19281	19425	
==>ethod' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39733	39877	
==>ethod' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10745	10961	
==>$context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10745	10961	
==>$context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$co <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4346	4521	
==>s failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we incre <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4346	4521	
==>s failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we incre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2509	2611	
==>g and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2509	2611	
==>g and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	55	156	
==>od

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it bac <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	55	156	
==>od

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it bac <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3980	4092	
==>::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::membe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3980	4092	
==>::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::membe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18465	18554	
==>t.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18465	18554	
==>t.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9501	9622	
==>named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9489	9610	
==>named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10746	10882	
==>s = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10740	10876	
==>s = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1273	1375	
==>t size because the
algorithm is based on statistics. This was my main motivation to
implement it. Other <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1273	1375	
==>t size because the
algorithm is based on statistics. This was my main motivation to
implement it. Other <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5224	5333	
==>ibrary.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5224	5333	
==>ibrary.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12365	12458	
==>efaults to empty if the parameter's
corresponding argument is undefined).  The new Document ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12365	12458	
==>efaults to empty if the parameter's
corresponding argument is undefined).  The new Document ob <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10109	10208	
==>e features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `pla <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10167	10266	
==>e features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `pla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1299	1416	
==>odname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1288	1396	
==>odname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7986	8094	
==>ls{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7986	8094	
==>ls{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16578	16683	
==>it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16578	16683	
==>it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5047	5153	
==>is should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.fi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5047	5153	
==>is should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	441	694	
==>leop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	442	695	
==>leop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   rule <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30089	30187	
==>alue contains the user-readable message text associated with the
Message; this user string may also <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30089	30187	
==>alue contains the user-readable message text associated with the
Message; this user string may also <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	730	846	
==>get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	730	846	
==>get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3223	3406	
==>$ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3223	3406	
==>$ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Pe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14351	14462	
==>close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14351	14462	
==>close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6201	6305	
==>e_facto_type->set($expected_type);
			return $node;
		} else {
			warn "casting";
			return $self->runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	978	1136	
==>dd_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'tighter',
        other => '*',
    );
    __PACKAGE__->rec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10362	10456	
==>r(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10362	10456	
==>r(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2257	2353	
==>multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2257	2353	
==>multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27283	27382	
==>w Relation
which has a superset of the original's attributes; the new Relation has as
many additiona <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31835	31934	
==>w Relation
which has a superset of the original's attributes; the new Relation has as
many additiona <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18166	18285	
==>'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $where = "root namespace" if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15132	15241	
==>how) = @_;
    return $S->force_object(anyof_class => upper => $neg, \$how);
  });

  # word POSIX class
  $se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34542	34647	
==>ef).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => [ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34542	34647	
==>ef).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_names => [ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2898	2995	
==>le_name.hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_n <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2898	2995	
==>le_name.hs

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3061	3186	
==>start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3061	3186	
==>start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2020	2148	
==>re like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3612	3740	
==>re like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11364	11535	
==>select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11364	11535	
==>select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1188	1315	
==>instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13714	13835	
==>instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2249	2364	
==>lse{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2249	2364	
==>lse{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveE <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5902	6045	
==>),
    ),
    '&say' => Thunk->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1561	1718	
==>tem);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

metho <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1561	1718	
==>tem);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4560	4700	
==>1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4548	4688	
==>1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	858	981	
==>RY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	858	981	
==>RY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its el <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6998	7114	
==>osetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6998	7114	
==>osetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2013	2110	
==>> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2013	2110	
==>> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3864	4015	
==>prec = "P000";
    my %seen;
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels} <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4215	4319	
==>e_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4215	4319	
==>e_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $t <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	837	942	
==>s?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variab <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	837	942	
==>s?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variab <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3766	3865	
==>ldn't need to have documentation/comments. If you need something
with more power, move up to Config: <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3766	3865	
==>ldn't need to have documentation/comments. If you need something
with more power, move up to Config: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15475	15574	
==>s header represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15475	15574	
==>s header represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = tim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	616	789	
==>eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $paren;
    }

    #my $rule = Run <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	655	779	
==>les
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir compile_dir ]),
          $INSTALLATION_DIR  
    ) {
        pr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4042	4204	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4042	4204	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15424	15543	
==>->val => undef);

    return $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    $self->ente <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25463	25575	
==>')'>
    | <'(?!'> <Disjunction> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #Sour <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16217	16322	
==>a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it contains two sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16217	16322	
==>a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it contains two sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16333	16461	
==>ig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16333	16461	
==>ig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1989	2106	
==>l($code) };
            when 'perl5'   { Pugs::Internals::eval_perl5($code) };
            when 'haskell' { Pugs::Inte <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3701	3814	
==>) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3701	3814	
==>) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4546	4709	
==>s Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4546	4709	
==>s Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7337	7442	
==>(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7337	7442	
==>(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4212	4333	
==>{
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    & <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4212	4333	
==>{
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    & <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6178	6288	
==>^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6166	6276	
==>^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12219	12319	
==>set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12219	12319	
==>set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32571	32664	
==>nfiguration, its
main purpose is to convert Message objects on demand into user-readable
messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32571	32664	
==>nfiguration, its
main purpose is to convert Message objects on demand into user-readable
messa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6250	6373	
==>h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7248	7371	
==>h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19675	19909	
==>alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19954	20188	
==>alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22673	22773	
==>ge that contains all possibly useful details, so
that each Template can optionally use them; but ofte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22673	22773	
==>ge that contains all possibly useful details, so
that each Template can optionally use them; but ofte <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1995	2108	
==>Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1995	2108	
==>Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6530	6660	
==>lf->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7153	7266	
==>alled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	454	567	
==>alled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1853	1958	
==>my $str = Data::Dumper::Dumper($node);
		chomp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9352	9465	
==>e($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9352	9465	
==>e($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $ret <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	272	378	
==>!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	272	378	
==>!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40835	40936	
==>rsion of Locale::KeyedText that you are willing to distribute,
because that is a practical way of sugg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40835	40936	
==>rsion of Locale::KeyedText that you are willing to distribute,
because that is a practical way of sugg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2358	2519	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2551	2712	
==>p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19965	20136	
==>$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40425	40596	
==>$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14757	14867	
==>eric") },
      non_numeric => sub { $as_hash_complain->("non_numeric") },
      scalar_numeric     => sub { $a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3279	3397	
==>ew, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3279	3397	
==>ew, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2005	2122	
==>return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2005	2122	
==>return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5301	5413	
==>ush @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10956	11068	
==>ush @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9571	9677	
==>es or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9571	9677	
==>es or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most of <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2042	2192	
==>$_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2042	2192	
==>$_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@l <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3882	3968	
==>t>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assign <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3882	3968	
==>t>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assign <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6850	6949	
==>n(Carp::longmess($e))};# XXX doesnt work yet.
    my sub warning($e){warn("Warning: $e\n")};
    for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8223	8387	
==>:Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8223	8387	
==>:Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7158	7381	
==>reedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7351	7574	
==>reedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
* <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4491	4751	
==>->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->n <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6339	6460	
==>sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it = Test::Harness::Iterator->new($fh);
    return $self->_analy <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10823	10926	
==>Rosetta::Model code,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10823	10926	
==>Rosetta::Model code,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1016	1176	
==>ame, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1016	1176	
==>ame, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7129	7241	
==>elect ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation::Example {
    return $?SELF.pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	375	495	
==>t are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	375	495	
==>t are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end o <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1930	2034	
==>is_admin;

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {}) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	55	158	
==>xported methods
has Code--Perl6 %.methods;

# private use methods
has Code--Perl6 %:methods;

method new <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7158	7406	
==>obj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7158	7406	
==>obj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6785	6894	
==>x error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6797	6906	
==>x error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1691	1790	
==><?p6ws>?
        { return { sub_call_term => $() } }
RULE
*{'sub_call_statement'} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4381	4488	
==>equest);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4381	4488	
==>equest);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	109	198	
==>rp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	109	198	
==>rp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4384	4526	
==>uct(struct => $meta)) or return;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    return $meta;
}

=head2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4167	4256	
==>= Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <@Grammar::Perl6::terms>
RULE
*{'l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9993	10151	
==>\$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # regi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10829	10987	
==>\$match->{tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # regi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31377	31484	
==>irectory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library cou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31377	31484	
==>irectory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library cou <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7186	7344	
==>List      pre     Str::split   safe   (Str: Pugs::Internals::VRule, Int)\
\\n   List      pre     split   safe   (Str, Str)\
\\n   List      pre     split   sa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4668	4772	
==>ump =~ s/!perl\//!/g;
    $dump;
}


package Perl6::Run::OnPerl5::X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4384	4570	
==>f $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4251	4431	
==>f $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4289	4387	
==>ptures as match objects.

=head2 %{}

When used as a hash reference, the match object returns named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4289	4387	
==>ptures as match objects.

=head2 %{}

When used as a hash reference, the match object returns named <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6652	6748	
==>o a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6652	6748	
==>o a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3480	3583	
==>, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3538	3641	
==>, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$dep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4572	4682	
==>_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD <==
2	/Users/nnunley/pugs/util/testgraph.pl	566	667	
==>y $tap = My::Model->new_with_struct(delete $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Du <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24882	24984	
==>e () returns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C<exi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29434	29536	
==>e () returns Int>

This method returns a count of this Relation's member tuples as an Int.

=item C<exi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5098	5227	
==>which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5098	5227	
==>which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1562	1668	
==>r pluggable regular expression
engines.  It affects all regular expressions I<defined> within its scope;
wh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15645	15741	
==>ters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Po <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15645	15741	
==>ters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Po <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24488	24582	
==>and is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24488	24582	
==>and is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6359	6468	
==>apture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6359	6468	
==>apture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p. <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	457	549	
==>w/YAML::Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harness;
use Test::TAP::Model;
use Fi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2471	2565	
==>C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(In <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2471	2565	
==>C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(In <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1346	1438	
==>_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1346	1438	
==>_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11005	11126	
==>op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	836	952	
==>pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	836	952	
==>pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(), <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13466	13571	
==>a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13466	13571	
==>a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15038	15143	
==>on::Example {

    # First look for trivial cases that are more efficient to do different.
    if ($!body. <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	925	1043	
==>{base};
}

sub is_extension_build {
    my $self = shift;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub se <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	882	978	
==>m args that take multiple space-seperated args,
# append an argument to the current list.
sub mak <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1506	1616	
==>",
  x_label      => "Days",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_value  => (i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1632	1737	
==>ef
    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	788	887	
==>eturns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	788	887	
==>eturns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $des <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3437	3537	
==>vent::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  us <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3437	3537	
==>vent::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18354	18461	
==><add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18354	18461	
==><add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17080	17222	
==>e

  max               total tests which should have been run
  seen              total tests actually seen
  skip_all          if the whole te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23833	23965	
==>&RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20254	20386	
==>&RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4	106	
==>sr/bin/perl

use strict;
use warnings;

use Perl6::Runtime;
use Perl6::Util::SExpParser;

=pod

NOTE:
T <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7952	8066	
==>t      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression --> Scalar )
{
    Li <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33654	33748	
==>of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This method is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38204	38298	
==>of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This method is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1219	1349	
==>unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1359	1489	
==>unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Gra <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19095	19209	
==>umn.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19095	19209	
==>umn.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first c <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1577	1688	
==>Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= CO <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1577	1688	
==>Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= CO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8360	8458	
==>->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2185	2283	
==>->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16918	17014	
==>osetta D (as
either named modules or anonymous routines) and write the rest of the
application in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16918	17014	
==>osetta D (as
either named modules or anonymous routines) and write the rest of the
application in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10573	10681	
==>mplemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10731	10839	
==>mplemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $nam <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	354	461	
==>$pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."us <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5000	5107	
==>ccum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	$self->{param}->free_vars;
}


package type:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5045	5147	
==>e"),
    ),

will yield "moose".

Inherits List.

=item Param

Shifts a parameter from the parameter st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14157	14304	
==>,
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14436	14583	
==>,
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4188	4319	
==>rl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4188	4319	
==>rl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_pro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12915	13012	
==>method Hash::delete (   $key --> Scalar ) is default

Deletes the elements specified by C<$key> or <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2002	2108	
==>2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2002	2108	
==>2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1343	1484	
==>d $relativePrecedence ne "" )
  {
    if ( substr $relativePrecedence, 0, 1 =~ m/[\=\<\>]/ )
    {
      my $tokenTableKey = substr $relativeP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6471	6572	
==>ss, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as Test::More::like().

sub like   ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4182	4303	
==>te () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4182	4303	
==>te () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method i <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4115	4225	
==>terpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> \}\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1503	1588	
==>m_size 32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128'},'Clutter::num_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16287	16446	
==>h[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16281	16440	
==>h[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	219	356	
==>:Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	307	444	
==>:Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	188	293	
==>encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	188	293	
==>encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	285	385	
==>:P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	285	385	
==>:P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3236	3398	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3236	3398	
==>event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1023	1116	
==>= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::int_size 2;
Clutter::int_size 4;
Clutter::int_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1980	2084	
==>urn $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1980	2084	
==>urn $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34750	34856	
==>nslator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34750	34856	
==>nslator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Tra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12202	12298	
==>"image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12202	12298	
==>"image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5218	5383	
==>this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return - <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5218	5383	
==>this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3342	3444	
==>rators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa('cl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1074	1196	
==>turn if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1074	1196	
==>turn if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	369	471	
==>r
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprint <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	369	471	
==>r
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprint <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15186	15285	
==>s) implement.  This interface is rigorously defined, such that there
should be no ambiguity when try <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15186	15285	
==>s) implement.  This interface is rigorously defined, such that there
should be no ambiguity when try <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3351	3476	
==>ature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3351	3476	
==>ature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6375	6466	
==>e($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6375	6466	
==>e($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1167	1267	
==>nsions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1167	1267	
==>nsions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14311	14474	
==>ation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14590	14753	
==>ation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	181	287	
==>rcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	181	287	
==>rcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4651	4752	
==>erl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


package Perl6::Run::OnPerl5::X1::PilToPerl5;
BEG <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10411	10532	
==>}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	789	902	
==>f = shift;

    $self->runtime(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({}) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11179	11265	
==>ple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9961	10067	
==>ringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9961	10067	
==>ringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6602	6831	
==>his is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6602	6831	
==>his is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6835	6944	
==>oken{eqiv} > $$top{eqiv} )
  {
    goto oper_shift if ( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_red <==
2	/Users/nnunley/pugs/util/grokprims.pl	2340	2445	
==>r>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td></tr></table>";
  p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1800	1931	
==>($self, $passed, $description) = @_;
            $description ||= '';
            $self->report_test(
                $::TestBuilder <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24782	24879	
==>itable starting points
 * for a match, cutting down the work a lot.  Regmust permits fast rejectio <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13957	14054	
==>(%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent or <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	249	346	
==>se Config;
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_all('src', 'blib6/arch/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1824	1925	
==>( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1824	1925	
==>( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start ! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23304	23407	
==>r text data to be stored in a format other than Perl
files.  Or alternately they have a compiled C compo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23304	23407	
==>r text data to be stored in a format other than Perl
files.  Or alternately they have a compiled C compo <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15871	15984	
==>, $bin or die "Couldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1487	1591	
==>nd_half_alternate },
#		{ $^a.round_half_random },

		{ $^a.round_half_ceiling },
		{ $^a.round_toward_ze <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	119	215	
==>opy-prefix" if it is.
#

use Config;
use File::Spec;

my $setup = File::Spec->catfile(File::Spec- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	700	825	
==>| \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	700	825	
==>| \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1116	1213	
==>_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1116	1213	
==>_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16031	16138	
==>::Node object, that
lives in the Document object given in the named parameter $document, and
whose Node Type <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16031	16138	
==>::Node object, that
lives in the Document object given in the named parameter $document, and
whose Node Type <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1791	1884	
==>Multiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1720	1812	
==>Multiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, in <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1225	1338	
==>' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $deli <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1225	1338	
==>' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $deli <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4611	4715	
==>);
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."->{".$key."}";
}
s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	991	1089	
==>name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	991	1089	
==>name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4033	4187	
==>$quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4021	4175	
==>$quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9476	9651	
==>.= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1287	1438	
==>.= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2122	2271	
==>/= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method el <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2122	2271	
==>/= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method el <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6040	6185	
==>ed
    todo            Number of individual todo tests

    files           Number of test files ran
    good            Number of test files pass <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6475	6571	
==>ool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6475	6571	
==>ool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5046	5160	
==>_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5046	5160	
==>_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3181	3352	
==>g<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Sav <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3181	3352	
==>g<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Sav <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	349	453	
==>n} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_[0]{t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13810	13927	
==>}
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
    return $result;
}

*run_perl = \&runper <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1348	1457	
==>);

  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1578	1678	
==>dreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This pro <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1578	1678	
==>dreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This pro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	439	557	
==>atch nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	439	557	
==>atch nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5624	5736	
==>vious }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5624	5736	
==>vious }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        un <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1933	2082	
==>{
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * floor( abs($x) ) }
                when $_ == 1 { $x_r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1741	1842	
==>t($return_value) expected(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_par <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7798	7906	
==>r' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=back' directive is reac <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7798	7906	
==>r' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=back' directive is reac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6076	6185	
==>);

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16953	17056	
==>FAILED($v);
    unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for inline code, on <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5018	5124	
==>ingle_quoted => $/{'Pugs::Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4418	4514	
==>ss, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_prec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6320	6416	
==>ss, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_prec <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5732	5859	
==>urrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5732	5859	
==>urrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19840	19957	
==>re on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19840	19957	
==>re on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref de <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12191	12393	
==>>{$linkfile}}, $link;
      $links++;
    }
    
    if ($rest) {
       $rest = encode_entities($rest);
#      $body->push_content($rest);
      my $test_class = {
                      0 => 'test_fail' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18808	18914	
==>C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DAT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18808	18914	
==>C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DAT <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	132	230	
==>t' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ide <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	132	230	
==>t' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ide <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10655	10759	
==>h a single invocation.

The $value argument may be a plain string or a reference to an array
of strings f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10655	10759	
==>h a single invocation.

The $value argument may be a plain string or a reference to an array
of strings f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8375	8485	
==>op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5917	6021	
==>op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5012	5227	
==>ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5012	5227	
==>ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33193	33290	
==>turns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersecti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37743	37840	
==>turns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersecti <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4898	5016	
==>_tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4898	5016	
==>_tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9070	9169	
==>regcompp;
  PL_regcompp = &hook_regcompp;
}
void regexp_hook_off() { /* aka "abandon regexps", aka " <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2088	2190	
==>dex(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F) <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2088	2190	
==>dex(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1561	1676	
==>but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1561	1676	
==>but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15134	15240	
==>sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into origi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15134	15240	
==>sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into origi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	452	563	
==>required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	936	1047	
==>required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4766	4910	
==>{
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4754	4898	
==>{
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16575	16675	
==>e, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from z <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16575	16675	
==>e, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from z <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2770	2891	
==>$tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    my $perl_version;
    ### special perl, or the one w <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2652	2759	
==>ce>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminato <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5021	5123	
==>t the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7689	7791	
==>t the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Objec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8152	8259	
==>nd update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8152	8259	
==>nd update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8587	8699	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8780	8892	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5412	5541	
==>pen {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5412	5541	
==>pen {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9191	9366	
==>rams->{name},
    )
}

my $x = 15;
my $prog = AST->new(
    Seq->new(
        map {
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'), <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23142	23245	
==>> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> <Identifier>? <'('> <Form <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	429	584	
==>=> 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	429	584	
==>=> 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3434	3537	
==>nvalid trig function base: $base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
trig_fun <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4060	4157	
==>head1 COPYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free software; you can <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2981	3114	
==>le->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3121	3254	
==>le->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3949	4092	
==>= 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3949	4092	
==>= 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	776	873	
==>e property - content.

The constructor for this class has a special shortcut syntax compared
to no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	776	873	
==>e property - content.

The constructor for this class has a special shortcut syntax compared
to no <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7819	7969	
==>ncy_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1120	1270	
==>ncy_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $de <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4868	4983	
==>ram} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$self,
		param => $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4215	4308	
==>);

    <@Grammar::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1508	1612	
==>ILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^l <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1508	1612	
==>ILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2102	2220	
==>ar,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2113	2231	
==>ar,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1748	1863	
==>e a core type";    
    ($right->to_num->to_native != 0)
        || confess "Division by zero error";
    return num <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40665	40773	
==>p::croak().  The argument list is used to fill in
the format string for sprintf().

=over 4

=item $parser->w <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2242	2393	
==>h @ret, traverse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~@ret;
    }

    $depth++;
    dbg "# $tree[0] start";
    my $ret;

    if $t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3046	3188	
==>r   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $build <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1030	1139	
==>ass MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1030	1139	
==>ass MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	339	460	
==>= 1),
  "version"     => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit },
) or usage();
@ARGV == 1 or usage() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	273	392	
==>ess { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3160	3282	
==>= %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3160	3282	
==>= %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_op <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4520	4646	
==>SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	412	522	
==>mplements OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supporte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	390	496	
==>mplements OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supporte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3360	3465	
==>ented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3544	3649	
==>ented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-cla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1319	1653	
==>turn;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1319	1653	
==>turn;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packag <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	839	936	
==>e.

Normally, they will be constructed as a series of events fired in by
something that C<.does(Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	839	936	
==>e.

Normally, they will be constructed as a series of events fired in by
something that C<.does(Pe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19365	19490	
==>efore the first block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Whe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19365	19490	
==>efore the first block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Whe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1846	2019	
==>" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1834	2007	
==>" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9012	9131	
==>)
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9000	9119	
==>)
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1632	1739	
==>rl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1632	1739	
==>rl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PIL <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12177	12290	
==>(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12177	12290	
==>(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ] <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17805	17913	
==>[ "PGE::Exp" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = defined self["value"]
    if $I0 goto e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10373	10491	
==>ix' if $args{stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # doublequotes because of VMS
	}
    }
    if ($args{s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8997	9130	
==>nick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8997	9130	
==>nick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8027	8122	
==>tements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1852	1947	
==>tements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1983	2166	
==>le::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1983	2166	
==>le::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	879	1000	
==>.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Has <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	879	1000	
==>.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Has <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	196	304	
==>RGV or die 'Need at least one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to.. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	442	572	
==>odifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <ty <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	442	572	
==>odifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <ty <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1658	1777	
==>l ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		my $node = shift;
	
		my $h = Devel::STDERR::I <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	262	392	
==>timization          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => '',
    inline_prelude_source => 0,
    p <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3097	3214	
==>[ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "3rd line\n4th line\n5th l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3523	3661	
==>o precedence like ", $opt->{other};
}


sub add_to_list {
    my ( $op, $x, $y ) = @_;
    my @x = ($x);
    @x = @{$x->{list}} if e <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1373	1482	
==>->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $! <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1373	1482	
==>->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $! <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	681	930	
==>quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	681	930	
==>quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta <==
2	/Users/nnunley/pugs/util/package-osx.pl	7130	7238	
==>ocal/man/man3/Perl6::Pugs.3
        /usr/local/man/man3/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8560	8679	
==>$how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12176	12274	
==>et2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12176	12274	
==>et2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3217	3325	
==>ul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3205	3313	
==>ul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11116	11202	
==>ple_escape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !.
p6_simple_escape_sequence(char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16342	16438	
==>ed mainly in terms of a new high-level
programming language named "Rosetta D", which is computati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16342	16438	
==>ed mainly in terms of a new high-level
programming language named "Rosetta D", which is computati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	595	710	
==>ET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.fil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	595	710	
==>ET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.fil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11340	11513	
==>native {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        al <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3672	3772	
==>: can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3672	3772	
==>: can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAM <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	575	682	
==>sting_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	633	740	
==>sting_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2460	2574	
==>-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2460	2574	
==>-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37181	37291	
==>odule_is_loaded( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37181	37291	
==>odule_is_loaded( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$mo <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	588	730	
==>(
                Tree.new(:node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree.ne <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2782	2906	
==>hDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2782	2906	
==>hDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($ <==
2	/Users/nnunley/pugs/util/importgraph.pl	86	186	
==>ph.ps in the current directory
# it expects to run from the top pugs directory with src present
# arr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3533	3692	
==>vail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3997	4156	
==>vail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        m <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2226	2330	
==>re a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $path <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2226	2330	
==>re a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $path <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2842	2956	
==>self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Inf <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2842	2956	
==>self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4425	4523	
==><Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eva <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4675	4773	
==><Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eva <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2754	2882	
==>$.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2754	2882	
==>$.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4370	4457	
==>method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>). <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4620	4707	
==>method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>). <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2051	2199	
==>query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2051	2199	
==>query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Reque <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23767	23861	
==>setta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23767	23861	
==>setta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Roset <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1377	1474	
==>s encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1377	1474	
==>s encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7890	7989	
==>ld assume that if this method is being called, the Secret 
Police are breaking down the door and Our <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7890	7989	
==>ld assume that if this method is being called, the Secret 
Police are breaking down the door and Our <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9994	10125	
==>dure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9994	10125	
==>dure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16699	16813	
==>e eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16699	16813	
==>e eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version= <==
2	/Users/nnunley/pugs/util/config_h.pl	987	1090	
==>|cygwin/i) {
    print OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3549	3644	
==>Match::newfrom($matchObj, 0);
  my $position = $matchObjPos;
  my $lastPosition = length $target <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1805	1923	
==>st')     ];
$config{'_control'}         = [ control         => SUBDIR_OF_META   ];
$config{'_alternatives'}    = [ alte <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52410	52502	
==>:superclasses') => list->new($::Module));

$::Module->set_attr(symbol->new('@:subclasses') => <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2216	2314	
==>sult;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} "${runtime_class}->run($prog->{name}) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19769	19868	
==>EFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19769	19868	
==>EFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
a <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1673	1796	
==>tory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.

You may then resume th <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1513	1636	
==>tory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.

You may then resume th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4952	5083	
==>te")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4952	5083	
==>te")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_sin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6616	6732	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6616	6732	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1862	1989	
==>FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1862	1989	
==>FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32361	32456	
==>but in the future they may alternately be something
else, such as XML or tab-delimited plain tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32361	32456	
==>but in the future they may alternately be something
else, such as XML or tab-delimited plain tex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12477	12583	
==>ns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on success, or rep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12535	12641	
==>ns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on success, or rep <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3071	3190	
==>at ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3071	3190	
==>at ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &con <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26548	26644	
==>C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it returns th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31100	31196	
==>C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it returns th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	860	982	
==>rn { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	860	982	
==>rn { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10374	10485	
==>ly defined, non-blank, trimmed switches from the parms passed.

=cut

sub _cleaned_switches {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26189	26317	
==>, $on, $off) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	364	452	
==>t<Array> := &Array::splice<Array>.assuming(:offset(0) :length(1));

 multi sub Array::shi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5070	5201	
==>erl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5070	5201	
==>erl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13502	13632	
==>S

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13502	13632	
==>S

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6713	6857	
==>emit( $n->{param} ) . ', "\n"';
            }
            return " print '', $s" . ', "\n"';
        }
        if ( $n->{method}{bareword} eq <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2849	2969	
==>Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $* <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2849	2969	
==>Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21246	21349	
==>rl package which
uses this would come up with keys which are unique across all Perl packages
(perhaps th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21246	21349	
==>rl package which
uses this would come up with keys which are unique across all Perl packages
(perhaps th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5868	5973	
==>::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5868	5973	
==>::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1405	1508	
==>claim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1463	1566	
==>claim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4474	4604	
==>e "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4474	4604	
==>e "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1739	1877	
==>b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = sh <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1739	1877	
==>b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	631	731	
==>match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	837	937	
==>match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $matc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7460	7559	
==>`unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7460	7559	
==>`unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15664	15764	
==>r F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15664	15764	
==>r F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2843	2943	
==>=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they wer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2843	2943	
==>=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they wer <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3646	3753	
==>ccurate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3646	3753	
==>ccurate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    % <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14760	14859	
==>ta" DBMS framework is a powerful but elegant system, which makes
it easy to create and use relationa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14760	14859	
==>ta" DBMS framework is a powerful but elegant system, which makes
it easy to create and use relationa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11034	11179	
==><clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11034	11179	
==><clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1249	1372	
==>HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1249	1372	
==>HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./head <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14333	14467	
==>.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14333	14467	
==>.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1386	1513	
==>this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12049	12170	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12049	12170	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15869	16053	
==>'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16148	16332	
==>'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15260	15368	
==>OSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9458	9563	
==>OSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25979	26076	
==>h the message, and can be interpolated into the
human-readable version.  Each variable name is a m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25979	26076	
==>h the message, and can be interpolated into the
human-readable version.  Each variable name is a m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4408	4528	
==>&Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4466	4586	
==>&Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$d <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2910	3112	
==>f) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shift;
                my $size = $idx + 1;
                if ($self->ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4823	4914	
==>LF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4823	4914	
==>LF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6944	7124	
==>e
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6944	7124	
==>e
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29124	29232	
==>same as the invocant Relation::Example but that some of its attributes
are renamed.  The argument C<$mapping> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7758	7885	
==>nt<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7758	7885	
==>nt<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<fro <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	265	418	
==>_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	265	418	
==>_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31372	31472	
==>isk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31372	31472	
==>isk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15089	15190	
==>name}, my $control) = $extra ? split(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $test->{reason}) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	846	978	
==>eturns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	846	978	
==>eturns Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), find_description( $description ) );
} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2930	3096	
==>$^X ) {
        ### just load the config        
        require Config;
        $perl_version = $Config::Config{version};
        
    } else {
        my $cmd  = $pe <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4382	4478	
==>]>+ \> | <metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1992	2101	
==>TTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MAN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1992	2101	
==>TTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MAN <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3693	3791	
==>r>

=back

Please read the HTTP::Query documentation for more information on these methods.

=head1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3693	3791	
==>r>

=back

Please read the HTTP::Query documentation for more information on these methods.

=head1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40708	40860	
==>nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # me <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	495	610	
==>rgs, @_ ) if @_;
    $args;
}

sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{D <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5094	5194	
==>e provided by the C<LWP::UserAgent> module.

The following functions are provided (and exported) by t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5094	5194	
==>e provided by the C<LWP::UserAgent> module.

The following functions are provided (and exported) by t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12464	12627	
==>"$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12458	12621	
==>"$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	150	249	
==>nite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	150	249	
==>nite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8298	8409	
==>c says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8298	8409	
==>c says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2279	2377	
==>is until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2279	2377	
==>is until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7807	7918	
==>sionLiteral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9999	10099	
==>namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[1] ruleop::capture( '$_[0]', \\&{'$name'} )\n" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11811	11937	
==>lcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11811	11937	
==>lcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2471	2595	
==>tringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2471	2595	
==>tringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4916	5036	
==>rn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^mul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4916	5036	
==>rn @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^mul <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	773	886	
==>>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that is using your CGI. 
It a <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	773	886	
==>>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that is using your CGI. 
It a <==
2	/Users/nnunley/pugs/util/config_h.pl	311	426	
==>e directory of the Pugs installation 
              (defaults to current directory)

=cut

my ($ghc_line, $base) = @ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	455	624	
==>my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # au <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2172	2281	
==>ass, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2172	2281	
==>ass, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25631	25740	
==>payload).  The key is intended to be read by a machine and
mapped to a user-readable message; the key itself i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25631	25740	
==>payload).  The key is intended to be read by a machine and
mapped to a user-readable message; the key itself i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2446	2566	
==>::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2586	2706	
==>::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gram <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22975	23074	
==>ation; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27527	27626	
==>ation; each Set member is a Mapping whose keys and values are
attribute names and values.  Each Mapp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7126	7216	
==>Type, $pParams, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, $pSubParam <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7574	7675	
==>peration (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7574	7675	
==>peration (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference to arr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6400	6667	
==>ent_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6400	6667	
==>ent_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	221	386	
==>t(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	221	386	
==>t(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'e <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1395	1508	
==>te::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  us <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1395	1508	
==>te::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  us <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4455	4587	
==>als->{bonus}++ if $result{ok}
        }
        elsif( $result{type} eq 'skip' ) {
            $totals->{skip}++;
            $pass = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17287	17387	
==>s any param and returns a function that takes any param
# that function will return a pair with the f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45685	45969	
==>::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$name' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3311	3461	
==>ather {
                given $event.name {
                    when '*' { take %.subscription.values».members };
                    default { take % <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2062	2189	
==>my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2062	2189	
==>my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23217	23324	
==>s a command to the server. The command is not modified by this module,
aside from appending the correct newl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23217	23324	
==>s a command to the server. The command is not modified by this module,
aside from appending the correct newl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34963	35062	
==>bset of the heading of the invocant Relation.  This method
degenerates into an C<intersection> if th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39513	39612	
==>bset of the heading of the invocant Relation.  This method
degenerates into an C<intersection> if th <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2593	2696	
==>t $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2593	2696	
==>t $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12001	12094	
==>r

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12001	12094	
==>r

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Docume <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1391	1490	
==>~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inli <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	90	186	
==>ethods;

# private use methods
has Code--Perl6 %:methods;

method new(Str $name) returns Class--P <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2003	2112	
==>log($x)   if !defined $base;
    return Pugs::Internals::log10($x) if $base == 10;
    return (Pugs::Internals <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	14	118	
==>ype;

# from src/Pugs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inheritance or a jun <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32813	32906	
==>uples.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37363	37456	
==>uples.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2877	2983	
==>k +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didge <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2877	2983	
==>k +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didge <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8273	8421	
==>CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8273	8421	
==>CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15736	15838	
==>r the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15736	15838	
==>r the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2321	2458	
==>lse {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2321	2458	
==>lse {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1124	1226	
==>ssed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1124	1226	
==>ssed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	668	799	
==>ing, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	668	799	
==>ing, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21279	21381	
==>$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21279	21381	
==>$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the serve <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5946	6065	
==>eral")
    litstart = pos
    litlen = 0
  term_literal_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33910	34007	
==>to communicate in, and what their backup choices are,
in order, if preferred ones aren't supported <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33910	34007	
==>to communicate in, and what their backup choices are,
in order, if preferred ones aren't supported <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4145	4259	
==>en.

The value for day can also be the string "last", in which case the
object returned represents the last day for <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4145	4259	
==>en.

The value for day can also be the string "last", in which case the
object returned represents the last day for <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1812	1932	
==>ub  Perl6::List::reduce (Code $expression ; *@values) returns Scalar {
   my $res;
   for @values -> $cur {
        FIRST <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7206	7332	
==>T_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_ME <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7206	7332	
==>T_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_ME <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7875	8091	
==>m => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7875	8091	
==>m => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5895	6009	
==>n strings (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5691	5801	
==>n strings (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	382	492	
==>$class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	382	492	
==>$class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, whe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	303	405	
==>b *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	303	405	
==>b *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *inf <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1884	2009	
==>{ init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$F <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1884	2009	
==>{ init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1971	2130	
==>6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	336	622	
==>\n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:.)*   
                
            |
                # normal space
                \s            
            |
                # a comment until end-of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8797	8905	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, $how);
  } <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6249	6345	
==>name, $test_filehandle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub ana <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11553	11676	
==>if $S0 == ": " goto subrule_text
    $S0 = substr target, pos, 1
    if $S0 != " " goto subrule_end
    inc pos
    mpos = p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12637	12742	
==>pecified names.

The header field names ($field) are not case sensitive and '_'
can be used as a replaceme <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12637	12742	
==>pecified names.

The header field names ($field) are not case sensitive and '_'
can be used as a replaceme <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1792	1926	
==>{desc}\\texttt\n{";

    while ( defined(my $chr = shift @file) ) {
	++$col;
	
	if ( $chr =~ /([\'\"])/ ) {
	    my $end = $1;
	    pri <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	604	719	
==>y primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13330	13441	
==>>
}
rule MemberExpression :words {  # see 11.2
      <PrimaryExpression>
    | <FunctionExpression>
    | <Membe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1488	1647	
==>currence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1488	1647	
==>currence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3926	4023	
==>AGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibil <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3926	4023	
==>AGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1137	1253	
==>_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return "*{'Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1000	1105	
==>_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    return "*{' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2550	2664	
==>$.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Exp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2550	2664	
==>$.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Exp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3949	4048	
==>g children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3949	4048	
==>g children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	18	198	
==>r::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	18	198	
==>r::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24710	24850	
==>>new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α → β) → γ", "pretty print (a -> b) -> c");
}
{
	my $type = type::operator::arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7913	8033	
==>_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7901	8021	
==>_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$has <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6891	7010	
==>@parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6891	7010	
==>@parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1662	1783	
==>tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1662	1783	
==>tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	152	245	
==>the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	152	245	
==>the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	267	370	
==>lf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	386	489	
==>lf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non', <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	55	167	
==>quire '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFil <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	55	167	
==>quire '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFil <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4982	5074	
==>ape_sequence> | <hexidecimal_escape_sequence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	85	178	
==>TTP::Headers $!headers handles «
    header push_header init_header remove_header remove_cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	85	178	
==>TTP::Headers $!headers handles «
    header push_header init_header remove_header remove_cont <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3728	3855	
==>$uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3728	3855	
==>$uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6375	6470	
==>e, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6375	6470	
==>e, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%ev <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10703	10826	
==>hile $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elem <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10703	10826	
==>hile $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elem <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1094	1255	
==>? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

m <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1094	1255	
==>? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1671	1806	
==>w( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1671	1806	
==>w( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14931	15039	
==>rst_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span wi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14931	15039	
==>rst_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span wi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	242	382	
==>ning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	242	382	
==>ning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	388	514	
==>{'$.output'}       || \*STDOUT);
            _('$.error_output' => $params{'$.error_output'} || \*STDERR);           
        } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5991	6095	
==>)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when ' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5991	6095	
==>)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4146	4268	
==>al( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4001	4120	
==>al( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3251	3368	
==>ro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignat <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3251	3368	
==>ro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignat <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1376	1511	
==>ym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym->{$pwd}) {
            go <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14064	14231	
==>plemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14058	14225	
==>plemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10270	10378	
==>structor arguments are provided and that they are of the correct
container type (eg, hash vs array).  The def <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10270	10378	
==>structor arguments are provided and that they are of the correct
container type (eg, hash vs array).  The def <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12639	12756	
==>he database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12639	12756	
==>he database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1540	1715	
==>pan );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce() <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1540	1715	
==>pan );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce() <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1562	1653	
==>ang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@au <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1562	1653	
==>ang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@au <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6028	6126	
==>ding on when C<want> gets implemented. Currently, the headers
are returned as one long string.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6028	6126	
==>ding on when C<want> gets implemented. Currently, the headers
are returned as one long string.

=it <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6164	6346	
==>de ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yiel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6164	6346	
==>de ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yiel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13596	13704	
==>veral times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13596	13704	
==>veral times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4829	5026	
==>.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4679	4870	
==>.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7650	7799	
==>= read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7650	7799	
==>= read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	655	768	
==>~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	655	768	
==>~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1623	1743	
==>an.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersecti <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1623	1743	
==>an.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersecti <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2716	2831	
==>$universe );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2716	2831	
==>$universe );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    ret <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1195	1319	
==>8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) re <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1195	1319	
==>8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) re <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15753	15861	
==>jectify_text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13802	13898	
==>omplete

=item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1253	1367	
==>$grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1253	1367	
==>$grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4614	4799	
==>ing - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4614	4799	
==>ing - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	674	781	
==>end_is_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	674	781	
==>end_is_open }

method intersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3164	3259	
==><< '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.o <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3164	3259	
==><< '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	257	360	
==>londie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Ba <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	330	433	
==>londie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Ba <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	938	1034	
==>bugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	938	1034	
==>bugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_address ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3538	3640	
==>ted
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3538	3640	
==>ted
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10393	10513	
==>e_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos
  end:
    mob["min"] = min
    mob <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10148	10260	
==>_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10148	10260	
==>_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3631	3744	
==>ying the compiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3501	3609	
==>ying the compiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - y <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3466	3565	
==>aptures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an arr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3466	3565	
==>aptures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an arr <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	949	1047	
==>b document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	949	1047	
==>b document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11319	11417	
==>ernate regexp engine,
  using calls to p5 subs,
  which can be defined differently in different pac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13117	13217	
==>ut TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13175	13275	
==>ut TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in order t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1107	1225	
==>return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === an <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1107	1225	
==>return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === an <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2596	2723	
==>C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2596	2723	
==>C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18651	18749	
==>nto your application or package, with one or more
text strings to show human users.  This associati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18651	18749	
==>nto your application or package, with one or more
text strings to show human users.  This associati <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12172	12280	
==>re => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12172	12280	
==>re => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17285	17377	
==>llbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_priv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17285	17377	
==>llbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_priv <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2731	2912	
==>e = $_;
        my $value = $config->{$name};
        $value =~ s{\\}{\\\\}g;
        qq{("$name", "$value")};
    } sort keys %$config;
    $template =~ s/#all_definitions#/$all_def <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11971	12084	
==>$initrd_mnt/$_" or return for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	848	945	
==>{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload();
} els <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	501	594	
==><new (*native*) returns nil>

=item B<to_native () returns *native*>

=item B<to_bit () return <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1927	2147	
==>ents<start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when r <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1927	2147	
==>ents<start_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10952	11094	
==>port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10952	11094	
==>port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_d <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	942	1061	
==>mit recommencing writing a grammar for perl6.
  This will likely be pure p5/prolog, with no p6 runtime associated.
Then, <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	303	396	
==>the current approach seems plausible, no?

Clutter::int_sizes 1,2,4... doesnt add much clarity <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	372	631	
==>r $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	372	631	
==>r $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Eng.pm	6	263	
==>/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Welcome to MyApp.],
    'M <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1050	1178	
==>d!\n" unless $topic ~~ $wikiwords;
        %wiki{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki. <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	118	221	
==>x:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:«{ }»($a, 'foo'); # $a.circumfix: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3901	4084	
==>D( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        retu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3901	4084	
==>D( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3997	4140	
==>lready?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4461	4604	
==>lready?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4444	4549	
==>ch::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/reg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4694	4799	
==>ch::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/reg <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29130	29224	
==><Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a way of running tests quietly <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9260	9365	
==>turn;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9260	9365	
==>turn;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8998	9108	
==>>singleton_test_on_object } '... instance calling metaclass singleton method fails';

is($iFoo->foo, 'Foo->foo' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11447	11537	
==>>singleton_test_on_object } '... instance calling metaclass singleton method fails';

is($i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6085	6201	
==>{
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $cha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6073	6189	
==>{
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $cha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2851	2955	
==>abel)))
         (= $current (&dispatcher do))))
     ($method))

=cut

$::ENV->create('WALKMETH' => clos <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	612	714	
==>re perl5 source.

# The exploratory effort was abandoned as insufficiently tractable.
# By requiring fa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3316	3468	
==>_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3304	3456	
==>_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: qu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5598	5696	
==>nel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5598	5696	
==>nel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_ni <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	411	555	
==>re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execute($re, $_[0], 0);
            my @rv = ((@$match ? <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2699	2806	
==>($self) = @_;
    $self->{_timing}{end} = time;
    $self->{_timing}{duration} =
        $self->{_timing}{en <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40476	40583	
==>ocale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40476	40583	
==>ocale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	768	906	
==>d;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	768	906	
==>d;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3460	3570	
==>self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3460	3570	
==>self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    retu <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2481	2632	
==>[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the target though
    #
    pop @revisions;
    $target->{more_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2273	2407	
==>rand($x);
 }


 multi  Num::sign (  Num  $x             --> Int )
 {
     Math::Basic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32945	33044	
==>tor object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32945	33044	
==>tor object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33441	33538	
==>tion contains only tuples that are in
all of the source Relations.  This method has an alias named <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37991	38088	
==>tion contains only tuples that are in
all of the source Relations.  This method has an alias named <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	749	914	
==>ure>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	749	914	
==>ure>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4418	4531	
==>ame eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4430	4543	
==>ame eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $mat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	20	115	
==>kage Blondie::Runtime;

use strict;
use warnings;

use UNIVERSAL::require;

use Blondie::Prelude <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14239	14345	
==>attrs);
    return $self;
}

method CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1930	2043	
==>s Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1930	2043	
==>s Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9148	9294	
==>t ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9136	9282	
==>t ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9231	9359	
==>~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9231	9359	
==>~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33914	34012	
==>w Relation that has the same heading and
whose body contains all of the tuples that are in the invo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38464	38562	
==>w Relation that has the same heading and
whose body contains all of the tuples that are in the invo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	705	869	
==>new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->runtime(shift);
    $self->env(my $env = shift);

    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2253	2404	
==>&& exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2253	2404	
==>&& exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1738	1839	
==>ke.exe' file needed by this module.

You may then resume the installation process described in README. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1578	1679	
==>ke.exe' file needed by this module.

You may then resume the installation process described in README. <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17500	17645	
==>str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $len) if $len > <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12293	12425	
==>print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' &&
         $n->{op2}{op} eq ']' ) {

        if ( ! e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	387	482	
==>= Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	387	482	
==>= Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1886	2030	
==>$engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1886	2030	
==>$engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => ' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6193	6406	
==>bad             Number of test files failed
    tests           Number of test files originally given
    skipped         Number of test files skipped

If C<< $total->{bad} == 0 >> and C<< $total->{max} > 0 >>, you <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5544	5637	
==>on <= $position );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey($target, $whitespac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7595	7711	
==>_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7788	7904	
==>_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3654	3819	
==>tent = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3654	3819	
==>tent = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requi <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	83	214	
==>s export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	83	214	
==>s export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6590	6696	
==>start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6590	6696	
==>start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25952	26053	
==>s original copyright notice and other credits.
Rosetta is distributed in the hope that it will be usef <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25952	26053	
==>s original copyright notice and other credits.
Rosetta is distributed in the hope that it will be usef <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5505	5610	
==>oved_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    fo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5505	5610	
==>oved_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    fo <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	861	991	
==>return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic wid <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	861	991	
==>return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic wid <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2088	2216	
==>$self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2228	2356	
==>$self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16829	16916	
==>:-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30341	30446	
==>module ideally comes as part of a set, at least one member
large, with each set member being an an exclusi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30341	30446	
==>module ideally comes as part of a set, at least one member
large, with each set member being an an exclusi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3221	3457	
==>mbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->cre <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2480	2598	
==>illa
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2480	2598	
==>illa
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2496	2618	
==>effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_nam <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2496	2618	
==>effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_nam <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1277	1378	
==>($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns In <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1277	1378	
==>($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() returns In <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2224	2353	
==>.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be so <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2224	2353	
==>.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be so <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6605	6707	
==>$test_file> and parses its
results.  It will also use that name for the total report.

=cut

sub analyz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	268	366	
==>'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	268	366	
==>'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DB <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5345	5449	
==>ve joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5345	5449	
==>ve joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13677	13774	
==>easonable range of values.

You should consider using a Set::Infinite object if you want to exclud <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13677	13774	
==>easonable range of values.

You should consider using a Set::Infinite object if you want to exclud <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6928	7082	
==>s( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7392	7546	
==>s( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	14	103	
==>ule::Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategie <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	14	103	
==>ule::Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategie <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19335	19474	
==>string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

Length is nparens+1.
startp[n] is the s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	752	856	
==>HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	752	856	
==>HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3279	3379	
==>ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3279	3379	
==>ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config- <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20006	20120	
==>rnals::string_as_number(8,$octstr) }
 multi prefix:<:2> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4669	4799	
==>' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4669	4799	
==>' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8164	8319	
==>}

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub visual {
    my $self = shift;
    sprintf "\\%s{%s}", $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	108	218	
==>s HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	108	218	
==>s HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3066	3234	
==>p1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35002	35105	
==>e an existing Translator object, you must create a new
object that is a clone of the first but for the c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35002	35105	
==>e an existing Translator object, you must create a new
object that is a clone of the first but for the c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3128	3237	
==>_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3128	3237	
==>_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the pa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5371	5490	
==>!! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5371	5490	
==>!! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3021	3168	
==>) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3021	3168	
==>) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11254	11350	
==>s>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11254	11350	
==>s>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4230	4370	
==>dd_rule( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12651	12763	
==>$orig = env($$);
	my %new = (
		%$orig,
		$.param => type::variable::free->new()
	);
	\%new;
}

# inherit the set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	633	742	
==>oin(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( $const <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	420	542	
==>.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	420	542	
==>.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14362	14468	
==>aram,
	);

	# first of all the type of the thing we're appling must be a function
	die "Can't apply non fun <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3735	3849	
==>, 1) =~ / / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7474	7606	
==>ef($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7486	7618	
==>ef($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1420	1516	
==>sane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in parti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1420	1516	
==>sane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in parti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9558	9654	
==>any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to thro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9558	9654	
==>any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to thro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8763	8885	
==>\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8751	8873	
==>\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11286	11393	
==>parator

A closure with arity of 2, which returns negative/zero/positive,
signaling the first arguement shou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19431	19554	
==>ested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Proxy Authentication Required>
response.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19431	19554	
==>ested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Proxy Authentication Required>
response.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3181	3411	
==>cure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3181	3411	
==>cure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15196	15303	
==>l combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 . <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18673	18780	
==>l combination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26238	26335	
==>If the match fails, the C<pos()> value won't be reset (due to the C</c>
modifier).  Remember to us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	0	98	
==>role Net::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	0	98	
==>role Net::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRI <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1136	1272	
==>eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->lo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1103	1239	
==>eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->lo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4446	4609	
==>ound, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4910	5073	
==>ound, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	796	918	
==>> '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl", topic => $topic, entry => $entry );
    }
    when <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1010	1127	
==>'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Skip')->new(
                '$.description' => $par <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	71	174	
==>{ return "Otto"; } # überflüssig
}
class Welt {
	method hallo ( Person $person ) {
		"Hallo, {name $pe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7612	7733	
==>('for')>

This event is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7612	7733	
==>('for')>

This event is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	432	535	
==>MS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	432	535	
==>MS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9269	9453	
==>dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10746	10930	
==>dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8244	8351	
==>s fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbat <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8244	8351	
==>s fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	769	863	
==>teral("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the comb <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	769	863	
==>teral("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the comb <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2393	2519	
==>self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2393	2519	
==>self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7184	7388	
==>uleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7377	7581	
==>uleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5043	5146	
==>unless $self->{extensions};

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16044	16198	
==>p::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16323	16477	
==>p::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10899	11003	
==>of the last of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10899	11003	
==>of the last of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	120	374	
==>Text-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	120	374	
==>Text-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9100	9198	
==>n nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9100	9198	
==>n nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_ <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	485	633	
==>$loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timei <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	485	633	
==>$loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timei <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21197	21295	
==>trongly suggested (but not required) that each Perl package which
uses this would come up with keys <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21197	21295	
==>trongly suggested (but not required) that each Perl package which
uses this would come up with keys <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2175	2277	
==>lf.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.unive <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2175	2277	
==>lf.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.unive <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9648	9745	
==>e_ ($pat) is builtin is safe {
    rx_common_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12353	12511	
==>ader('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (UR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12353	12511	
==>ader('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (UR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3437	3555	
==>s = shift;
    %hash = (
        '$' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8300	8424	
==>pec would have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # X <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1836	1938	
==>$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !d <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	832	934	
==>$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5933	6039	
==>PGE::Exp::Literal")
    litstart = pos
    litlen = 0
  term_literal_loop:
    if pos >= lastpos goto term_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6348	6451	
==>hift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1475	1595	
==>end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1475	1595	
==>end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6141	6267	
==>: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6141	6267	
==>: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	179	290	
==>search_path => [__PACKAGE__],
    require => 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42868	42960	
==>t also requires these Perl 6 classes that are in the current distribution:
L<Relation-(0.1.0) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2104	2218	
==>kTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
nod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8728	8833	
==>te_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8728	8833	
==>te_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11688	11826	
==>NG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my meth <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11688	11826	
==>NG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my meth <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4989	5116	
==>em( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$scr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4205	4328	
==>em( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$scr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24227	24323	
==>rk.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24227	24323	
==>rk.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20478	20592	
==>ethod {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self:) (hash %params)) returns nil
    ( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11018	11120	
==>ausing durations and the ok
    percentage to not be comparable.<br />
    The percentage of passed tes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3310	3407	
==>ler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3194	3287	
==>ler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Par <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	237	347	
==>r = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	237	347	
==>r = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2597	2733	
==>%acc = map { $_ => $acc->{$_}->{allow} } keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $ob <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1469	1592	
==>lf) );
        };

        $sha1->hexdigest;
    }
}

{
	package Blondie::Node::Atomic;
	use base qw/Blondie::Node/;

	sub d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6865	6962	
==>src -Ldist/build/src -o pugs src/Main.hs), @libs);
    print "*** Building: ", join(' ', $ghc, @_) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1511	1622	
==>ue }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) returns int {
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1511	1622	
==>ue }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) returns int {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32061	32160	
==>ch that corresponds to language A, looking for a match to said error
message.  If it finds one, then <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32061	32160	
==>ch that corresponds to language A, looking for a match to said error
message.  If it finds one, then <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1069	1194	
==>, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23143	23241	
==>m captures

An array reference to the 'open' nodes.

=item flags

An array reference of flag values <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9960	10130	
==>.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = unde <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9960	10130	
==>.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = unde <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34337	34433	
==>:KeyedText::Translator object.
The Set Names property of the new object is set from the named par <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34337	34433	
==>:KeyedText::Translator object.
The Set Names property of the new object is set from the named par <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10058	10147	
==>ned($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10793	10882	
==>ned($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7053	7172	
==>e(), @_);
}

sub curr_test {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# Note: can't p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4139	4249	
==>yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1476	1692	
==>in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                } <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3277	3409	
==>p $fname;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s*(.*)\n//m) {
#	$desc = $1;
#    }
#    # backslash
#    $file =~ s/\\/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2788	2889	
==>->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclarati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2788	2889	
==>->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclarati <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	554	682	
==>_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $a <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	44	162	
==>e() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Hallo, $name!".say; }
	method hallo ( Person $p <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	263	374	
==>nce;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	263	374	
==>nce;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	241	362	
==>s inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	232	351	
==>s inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20009	20146	
==>flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf | <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16430	16567	
==>flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf | <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	777	935	
==>"Index must be a num type";
    my $val = $self->[$index->to_native];
    # NOTE:
    # if you ask for something which is 
    # not there, then you need to ge <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	926	1042	
==>o->{'from'}  = $from;
    $$o->{'to'}    = $to;
    return $o;
}
sub set_as_failed {
    my($o)=@_;
    $o->set(0,"", <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2433	2535	
==>}
method quarter returns Int { int(($.month+2)/3) }
method month_0 returns Int { $.month - 1 }
method y <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12669	12780	
==>y $self = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = shift <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	549	652	
==>alue is
### a subroutine that build the return value based on the objects /current/
### value.. this all <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	368	489	
==>r {
    my $self = shift;
    $self->visual(@_);
  }

  sub visual {
    my $self = shift;
    exists $self->{vis} ? $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12352	12464	
==>};
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove this package fr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3797	3903	
==>values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.valu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7274	7380	
==>values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.valu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20270	20367	
==>andler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20270	20367	
==>andler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10418	10598	
==>other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    di <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13895	14075	
==>other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	213	343	
==>> 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	213	343	
==>> 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Con <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11386	11479	
==>icode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented u <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11386	11479	
==>icode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented u <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4886	5030	
==>f ( not $isnegated and (length $initchar < 2))
        {
          goto term_literal;
        }
        $matchObj->{value} = $initchar;
        $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2659	2802	
==>y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1954	2102	
==>AGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7238	7377	
==>@values ;      Code *&test   --> Lazy )
{
    gather {
	for @values -> $x {
	    take $x if &test($x);
	}
    }
}
# signature from S29draft. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	728	831	
==>e/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	728	831	
==>e/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15002	15086	
==>plus(R))),R1,RW0,RW1) :-
  re_rewrite(cap(plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),ca <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3577	3811	
==>ne;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3577	3811	
==>ne;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18778	18882	
==>e behavior which we are not prepared to
support (such as modification of the compiled re op tree the nati <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3068	3172	
==>e behavior which we are not prepared to
support (such as modification of the compiled re op tree the nati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	47	146	
==>ad1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	47	146	
==>ad1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Gra <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	696	824	
==>y $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	696	824	
==>y $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	279	393	
==>ammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11393	11498	
==>arams returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11393	11498	
==>arams returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I< <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6106	6241	
==>, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6106	6241	
==>, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3167	3340	
==>}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3066	3234	
==>}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $match <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9342	9460	
==>dren -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9342	9460	
==>dren -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $max_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3969	4088	
==>.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4186	4305	
==>.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3697	3826	
==>amily;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  package Reg <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2231	2345	
==>{
    my $self = shift;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2774	2912	
==>l} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2774	2912	
==>l} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4240	4379	
==>ue_instance_attrs($self)->{'$:superclass'};
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2640	2744	
==>Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not sure... I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2542	2642	
==>Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not sure... I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23861	23998	
==>fthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36200	36303	
==>ad2 unlessm

Family: assertion

Types: unlessm (C<(?!>, C<< (?<! >>)

Data: array reference of any numbe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	29	135	
==>k
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

requi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	29	135	
==>k
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

requi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7847	7948	
==>func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return co <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7847	7948	
==>func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return co <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	812	1089	
==>rl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_d <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	812	1089	
==>rl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8350	8498	
==>}
    } else {
      print STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  f <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1298	1396	
==>@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This p <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1298	1396	
==>@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23936	24067	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen',
      data => [],
      dow <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28568	28666	
==>-Harness
  $ perl -Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose=0; runtests @AR <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35155	35247	
==>roduct (Relation $other!) returns Relation>

This multi-method is a generic binary relational <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39705	39797	
==>roduct (Relation $other!) returns Relation>

This multi-method is a generic binary relational <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2220	2326	
==>determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1326	1431	
==>determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	12	109	
==>i Num::round_toward_nearest (Num $x, int $symmetrical? = 1) {
# XXX -- Not implemented
# How shoul <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	182	272	
==>Has($?CLASS, "attributes", "Set", { companion => "class" });
Has($?CLASS, "associations", " <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1422	1518	
==>urn '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1422	1518	
==>urn '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7634	7746	
==>rogram . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7622	7734	
==>rogram . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$bool, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13880	13992	
==>]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dts <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13880	13992	
==>]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dts <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3453	3594	
==>for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3331	3466	
==>for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20767	20876	
==>REC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17188	17297	
==>REC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2167	2278	
==>e_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $sour <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2167	2278	
==>e_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $sour <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24538	24636	
==>GNU General Public License (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24538	24636	
==>GNU General Public License (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	854	1017	
==>y {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	854	1017	
==>y {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	10	107	
==>for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to norma <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	10	107	
==>for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to norma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2147	2268	
==>P::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2147	2268	
==>P::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2376	2479	
==>is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify} <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2376	2479	
==>is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify} <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	29	145	
==>ENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub selec <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	29	145	
==>ENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub selec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4702	4807	
==>::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4702	4807	
==>::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interfa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19105	19215	
==>AREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19105	19215	
==>AREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5846	5945	
==>e) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5846	5945	
==>e) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All hea <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	896	985	
==>nts fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	896	985	
==>nts fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	61	161	
==>me;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	61	161	
==>me;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3242	3348	
==>sn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3242	3348	
==>sn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3254	3372	
==>IB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package') }; 
use constant ISA_JIB_PACKAG <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2954	3061	
==>n $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf') <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1072	1176	
==>return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1072	1176	
==>return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2805	2928	
==>w method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_object;

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	717	828	
==>eturn { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10430	10583	
==>atement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10709	10862	
==>atement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::al <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16524	16620	
==>s also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16524	16620	
==>s also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new N <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2866	3031	
==>("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2866	3031	
==>("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	877	1044	
==>$class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plu <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	877	1044	
==>$class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9307	9429	
==>ed for subrules

### - needs to be generalized, and the anchor should only

###   work when needed (or if there is a switch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9002	9122	
==>ed for subrules
### - needs to be generalized, and the anchor should only
###   work when needed (or if there is a switch <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	915	1062	
==>ict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	915	1062	
==>ict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	532	711	
==>\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	532	711	
==>\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1693	1816	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1886	2009	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2469	2586	
==>ob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5383	5641	
==>E>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($tex <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5383	5641	
==>E>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($tex <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	801	911	
==>ned from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your ow <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	801	911	
==>ned from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your ow <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1029	1264	
==>normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 A <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1029	1264	
==>normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 A <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5325	5468	
==>lly_passed"} = _('$.passed');
            return $status;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=h <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2211	2301	
==>or die "Could not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_harness.pl),@yaml_ha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28037	28139	
==>uplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32589	32691	
==>uplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4220	4355	
==>bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4413	4548	
==>bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1110	1227	
==>s
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1110	1227	
==>s
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1222	1350	
==>--------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1222	1350	
==>--------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8596	8701	
==>=> -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8596	8701	
==>=> -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd <==
2	/Users/nnunley/pugs/util/grokprims.pl	1327	1426	
==>', map {"\$$_"} @{$op->{args}}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". join(', ', m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	723	867	
==>p::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	723	867	
==>p::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $mat <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	104	263	
==>n;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	104	263	
==>n;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4371	4475	
==>l.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4371	4475	
==>l.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6060	6490	
==>is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             })))) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7822	8252	
==>is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             })))) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5520	5651	
==>atch2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5520	5651	
==>atch2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	490	615	
==>retty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	490	615	
==>retty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4849	5025	
==>re new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6611	6787	
==>re new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	846	945	
==>0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	846	945	
==>0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3787	4050	
==>ute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3787	4050	
==>ute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3118	3240	
==>sufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3118	3240	
==>sufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	209	331	
==>or die 'Need at least one package';

for my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not inst <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1001	1114	
==>hift)->[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str like ref
sub to_bit { bit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2022	2180	
==>.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2022	2180	
==>.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5985	6097	
==>y $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5985	6097	
==>y $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1721	1882	
==>.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1721	1882	
==>.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	361	464	
==>ks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally ove <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	361	464	
==>ks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally ove <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	127	229	
==>se strict 'vars';

my @scalar_keys = qw{
    name module_name abstract author version license
    distr <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	245	355	
==>(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( S <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2245	2359	
==>*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shi <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2245	2359	
==>*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13176	13297	
==>load()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 peopl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13176	13297	
==>load()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 peopl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19072	19175	
==>ing
over more than one argument"), which is also the basis of the relational
data model proposed by Edga <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22722	22825	
==>ing over more than one
argument"), which is also the basis of the relational data model proposed
by Edga <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2910	3045	
==>hod))

=cut

$::ENV->create('WALKMETH' => closure->new(
        $::ENV,
        closure::signature->new(
            params => closure:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6921	7091	
==>t = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6921	7091	
==>t = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	669	777	
==>ugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20957	21053	
==>xt aims to bring this sort of functionality to Perl packages
or programs.  Your package or progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20957	21053	
==>xt aims to bring this sort of functionality to Perl packages
or programs.  Your package or progra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6995	7195	
==>ed) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6995	7195	
==>ed) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetc <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	746	849	
==>and return the result.
  # The session's event handler won't be executed until @:events[0] =:= the
  # c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3347	3450	
==>String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti metho <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3347	3450	
==>String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21081	21173	
==>PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, F <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21081	21173	
==>PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, F <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6712	6826	
==>ly the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I ge <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6712	6826	
==>ly the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4804	4918	
==>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4804	4918	
==>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35117	35213	
==>ack

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35117	35213	
==>ack

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method return <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8394	8504	
==>ob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = subst <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1030	1133	
==>e)
# all so that we can parse a scheme-like syntax 
# with Attribute Grammers (stolen from Haskell (I th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31576	31677	
==>se, and a program which uses both libraries
could have yet another set for itself.  When the program i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31576	31677	
==>se, and a program which uses both libraries
could have yet another set for itself.  When the program i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	208	447	
==>" )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	209	448	
==>" )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7407	7508	
==>list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" list <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7407	7508	
==>list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" list <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20459	20562	
==>5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container_for_var_CODE {
    my($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13372	13495	
==>ou can create an identical Document (with member
Nodes) to the one you first invoked export_as_hash() on.

Specifically, exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13372	13495	
==>ou can create an identical Document (with member
Nodes) to the one you first invoked export_as_hash() on.

Specifically, exp <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	646	851	
==>rsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	646	851	
==>rsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1761	1907	
==>'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1761	1907	
==>'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_s <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4026	4136	
==>t>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23876	23976	
==>ding?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation object, w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28428	28528	
==>ding?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation object, w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34886	34999	
==>perty (C<\p{NAME}>, C<\P{NAME}>); any Unicode property
defined by Perl or elsewhere

Neg: 1 if negated

=head2 clu <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	71	174	
==>'>index.html';
print { $fh } <<'END';
<html>
<head>
<title>Public HTML</title>
</head>
<script>
function <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3762	3857	
==>shouldn't need to have documentation/comments. If you need something
with more power, move up to <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3762	3857	
==>shouldn't need to have documentation/comments. If you need something
with more power, move up to <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1506	1618	
==>ect that has a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1506	1618	
==>ect that has a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rul <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16288	16431	
==>ing =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/i;

#               pri <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26107	26204	
==>SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1
      <DecimalIntegerLiteral> <!before <Dec <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	1	96	
==>=einfache reduzierungs-Operatoren
sub prefix:<Σ> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1183	1280	
==>Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1183	1280	
==>Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2342	2461	
==>}

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2342	2461	
==>}

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3814	3911	
==>class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3814	3911	
==>class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6361	6498	
==>{
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6361	6498	
==>{
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3810	3962	
==>5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3810	3962	
==>5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	174	269	
==>ethod assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method emp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	174	269	
==>ethod assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method emp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2402	2523	
==>runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent;
		my $node = shift;
		warn "redu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7632	7736	
==>a compilation-stopping error>, $parser->errmsg will return
that error message, and $parser->errnum will r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4988	5144	
==>3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4988	5144	
==>3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	786	971	
==>@current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	786	971	
==>@current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	445	591	
==>f);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        map { "$_ => $_[0]{$_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7542	7673	
==>,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7542	7673	
==>,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3241	3360	
==>onstant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package') }; 
use constant IS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1316	1403	
==>all_term => $() } }
RULE
*{'meth_call_statement'} = Pugs::Compiler::Rule->compile(<<'RUL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50989	51194	
==>'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51600	51805	
==>'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identif <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	822	957	
==>elf->get_value('@:slots')} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16007	16120	
==>)[0];
    }

  return @so;
}

# This is a kludge. But for now, as a simple script, it suffices.
# This script does <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7448	7562	
==>rence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7448	7562	
==>rence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2247	2377	
==>ssage.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2247	2377	
==>ssage.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18970	19074	
==>the real world accurately, and it
can support a complete SQL emulation layer on top of it, so that your
l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18970	19074	
==>the real world accurately, and it
can support a complete SQL emulation layer on top of it, so that your
l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24682	24781	
==>your option) any later version.  You should have received a
copy of the GPL as part of the Rosetta d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24682	24781	
==>your option) any later version.  You should have received a
copy of the GPL as part of the Rosetta d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	342	599	
==>ed by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version appli <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	342	599	
==>ed by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version appli <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8680	8820	
==>( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8680	8820	
==>( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integer <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1771	1938	
==>f;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1771	1938	
==>f;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open => <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	418	559	
==>kage;

        ### and install it -- mark we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged found matchin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1140	1276	
==>( shift() ) }
                            ];

### repository dirs/files
$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24630	24734	
==>see 15.10.1
      <Alternative>
    | <Alternative> <'|'> <Disjunction>
}
rule Alternative {  # see 15.10 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	96	195	
==>PSIS



=head1 DESCRIPTION

Methods are bindings of Code objects to a particular Type.

=over

=item <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7755	8007	
==>newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7755	8007	
==>newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22937	23061	
==>]
    pad[mname] = value
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4644	4768	
==>t( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4784	4908	
==>t( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2878	2995	
==>arsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFil <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3342	3459	
==>arsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFil <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4719	4841	
==>'×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scar <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4719	4841	
==>'×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scar <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13690	13792	
==>d to represent continuous measurements, such as times, temperatures, or price ranges.

Create a span of <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13690	13792	
==>d to represent continuous measurements, such as times, temperatures, or price ranges.

Create a span of <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	282	396	
==>rant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	282	396	
==>rant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1116	1231	
==>size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1116	1231	
==>size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2242	2341	
==>n the strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $.Pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2242	2341	
==>n the strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $.Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12377	12535	
==>ir>0) {
      sub {
        my $c = $_[0];
        { local($X::pos)=($X::pos);
          my $v = $f->($noop);
          FAIL_IF_FAILED($v);
        }
        T <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2699	2811	
==>ss->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2699	2811	
==>ss->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit! <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5641	5731	
==>ex')->new('$.real'=>$_[0],'$.imag'=>$_[1]) if $cls eq 'Complex';
    return new_box('Str',@ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	160	276	
==>can recieve them
# two kinds of things that can do subscriber:
# - Code
# - Object

# The notification process involv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14944	15054	
==>=> $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single ele <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14944	15054	
==>=> $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single ele <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1821	1949	
==>cription) = @_;
            $description ||= '';
            $self->report_test(
                $::TestBuilder->FETCH('::Test')- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17932	18041	
==>otals) if $meth;
};


sub header_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test header s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4025	4147	
==>ass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5927	6049	
==>ass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2245	2343	
==>msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2245	2343	
==>msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7716	7815	
==>ut_dir, $path);
    my $index_file =  catfile($output_path,"index.html");
    eval { mkpath( $output <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2295	2395	
==>.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2295	2395	
==>.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2044	2164	
==>mutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2044	2164	
==>mutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $! <==
2	/Users/nnunley/pugs/util/version_h.pl	108	203	
==>_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/entries";

my $old_re <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	219	337	
==>rences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	219	337	
==>rences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5969	6061	
==>dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    gi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5969	6061	
==>dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    gi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10498	10643	
==>al $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $switch =~ s/^\s+//;
        $swi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4876	5017	
==>List      pre     grep    safe   (Code, List)\
\\n   List      pre     sort    safe   (Code, List)\
\\n   List      pre     reduce  safe   (Co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5921	6036	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5921	6036	
==>ke a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return c <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15969	16090	
==>next;
      push @so, "/" . (split " ")[0];
    }

  return @so;
}

# This is a kludge. But for now, as a simple script, i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4926	5043	
==>ren one by one and reduces to the value of it's last child.
Reducing this:

    Seq(
        Val(10),
        Val("moo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2477	2589	
==>STRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::V <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1634	1737	
==>STRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::V <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	619	820	
==>{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	619	820	
==>{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16452	16551	
==>te
(and industrial strength) and has fully integrated database functionality;
this language, which s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16452	16551	
==>te
(and industrial strength) and has fully integrated database functionality;
this language, which s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13010	13107	
==>rns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structures <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13010	13107	
==>rns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structures <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6762	6928	
==>ndary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6762	6928	
==>ndary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRL <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	285	405	
==>$self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ? <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	285	405	
==>$self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3227	3384	
==>ant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3474	3631	
==>ant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> : <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4189	4294	
==>ng position to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is signifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4373	4478	
==>ng position to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is signifi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14600	14718	
==>plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14600	14718	
==>plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	167	261	
==>ed, and
# this brute-force, simplistic, and extremely foolish
# script, ignoring deeper context <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	414	513	
==>$encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	414	513	
==>$encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic ci <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19069	19169	
==>2616.  Note that
the removal does I<not> happen automatically if using the header(),
push_header() or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19069	19169	
==>2616.  Note that
the removal does I<not> happen automatically if using the header(),
push_header() or <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	981	1089	
==>is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5: <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	981	1089	
==>is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	432	605	
==>ry: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	432	605	
==>ry: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => - <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13427	13527	
==>ity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are left alo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13427	13527	
==>ity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are left alo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8145	8279	
==>e !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8145	8279	
==>e !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_coo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1348	1446	
==>? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1348	1446	
==>? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14627	14729	
==>e => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14627	14729	
==>e => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5119	5265	
==>trict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5119	5265	
==>trict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1164	1278	
==>mpiler->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24862	24950	
==>E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), !.
set_fl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	788	945	
==>= $Cwd . '/fakeroot';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3806	3931	
==>ill got the right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prototype
        prototype => new Point($x <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	341	471	
==>this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represen <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	341	471	
==>this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12971	13115	
==>} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      & <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6446	6590	
==>} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      & <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27810	27906	
==>_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27810	27906	
==>_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10862	10970	
==>$root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10862	10970	
==>$root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7918	8076	
==>ep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11574	11674	
==>this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11574	11674	
==>this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	171	277	
==>'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	164	267	
==>'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bind1.pl	1	106	
==>=Äquivalenz-Operator
"sind gleich".say if $x == $y # Äquivalenz-Test

#=Identitäts-Operator
"sind ident <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3374	3511	
==>key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3374	3511	
==>key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	550	666	
==>1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	550	666	
==>1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => substr( $s, $pos+ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17627	17800	
==>fi, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	383	508	
==>t"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HT <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	383	508	
==>t"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HT <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2564	2682	
==>method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2564	2682	
==>method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.st <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2131	2264	
==>$.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2131	2264	
==>$.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21723	21818	
==>lass_pos(xdigit)    ,C) :- !,    char_type(C,xdigit(_)).
class_member(class_neg(xdigit)    ,C) : <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38979	39085	
==>can.

Relation is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43793	43899	
==>can.

Relation is free software; you can redistribute it and/or modify it under
the same terms as Perl 6 it <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	943	1065	
==>ape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esc <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	943	1065	
==>ape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esc <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	390	501	
==>ently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $c <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	390	501	
==>ently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10586	10690	
==>)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package Foo;

ev <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1202	1307	
==>'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type=" <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1202	1307	
==>'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type=" <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	246	346	
==>fully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	246	346	
==>fully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5848	5968	
==>hod pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5848	5968	
==>hod pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7229	7519	
==>$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7229	7519	
==>$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? mult <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17958	18144	
==>op::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18237	18423	
==>op::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	274	369	
==>BLE_PREFIX => 4;
use constant PGE_OPTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4099	4235	
==>.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4099	4235	
==>.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2390	2485	
==>method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2390	2485	
==>method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3763	3898	
==>s
    # in library code. Do either! Let your caller decide!
    # instead of "die             'file not found';"
    #         or "retur <==
2	/Users/nnunley/pugs/util/importgraph.pl	2069	2152	
==>setup_rank('parser_program', 'Pugs.Parser.Program');
setup_rank('prim', qr/^Pugs\.Pr <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	650	760	
==>my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	650	760	
==>my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12313	12418	
==>$self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12313	12418	
==>$self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        deb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15183	15281	
==>oot Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15183	15281	
==>oot Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the Doc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8168	8296	
==>if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8156	8284	
==>if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	615	735	
==>iversal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  M <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	615	735	
==>iversal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3506	3652	
==>return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3494	3640	
==>return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $qu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27446	27554	
==>you want to
conceptually change an existing Message object, you must create a new
object that is a clone of t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27446	27554	
==>you want to
conceptually change an existing Message object, you must create a new
object that is a clone of t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18555	18693	
==>{
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14976	15114	
==>{
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19305	19444	
==>e contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $obj <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1450	1554	
==>Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1450	1554	
==>Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	993	1120	
==>%result;
 }

 multi sub reverse (; *@values) returns List|Str {
   given want {
     when List {
       gather {
         1 whil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15794	15960	
==>op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n->{exp3} ) ;
    }

    return _not_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	957	1115	
==>@:results')} );
            _('$.output')->write($footer) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5862	6004	
==>a_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            retur <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5862	6004	
==>a_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            retur <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5964	6069	
==>ps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->reduce($thunk->val);
	}
}

sub r <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1300	1388	
==>}(\??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_alias>|<numbered_scalar_alias>|<a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2444	2545	
==>eplace p5 ones with p6 ones _without_ changings its name.



of course that has the problem of supplyi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2351	2450	
==>eplace p5 ones with p6 ones _without_ changings its name.

of course that has the problem of supplyi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3811	3905	
==>rl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3811	3905	
==>rl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22918	23120	
==>ure( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23197	23399	
==>ure( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7675	7779	
==>child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7675	7779	
==>child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2167	2276	
==>lf);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2167	2276	
==>lf);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	831	958	
==>ature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Vari <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	831	958	
==>ature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Vari <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3738	3995	
==>Text Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3738	3995	
==>Text Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2582	2691	
==>y @forall;

	# allocate letters for type variables
	# it's ok to destroy the objects since they're copies
	for <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4312	4406	
==>ms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()` <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4312	4406	
==>ms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()` <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14259	14407	
==>\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14253	14401	
==>\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negate <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	88	191	
==>igger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi metho <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	88	191	
==>igger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi metho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	82	184	
==>azy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	82	184	
==>azy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a normal arra <==
2	/Users/nnunley/pugs/util/package-osx.pl	10590	10707	
==>/usr/local/bin';\n
        my \@files = qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $heade <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15705	15819	
==>rr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9448	9552	
==>ects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Model does not dec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9448	9552	
==>ects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Model does not dec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11798	11906	
==>$EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11798	11906	
==>$EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_with_msg <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8106	8202	
==>ap(sub { $self->reduce($_[0]) });
		
		return Blondie::TypeSafe::Annotation->new(
			type => ($rs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37718	37811	
==>hod is a generic relational operator that takes a single Relation::Example
in its C<$other> ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38558	38651	
==>hod is a generic relational operator that takes a single Relation::Example
in its C<$other> ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2927	3043	
==>fess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, %options) = @_;
    (exi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10363	10489	
==>(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');
    
## does Bar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6106	6230	
==>(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');

## make insta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12712	12850	
==>do => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12712	12850	
==>do => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	49	148	
==>use base qw/Blondie::Map Blondie::Node::Atomic/;

use strict;
use warnings;



__PACKAGE__;

__END__ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	746	920	
==>{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Sym('$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2), <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21505	21621	
==>"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8461	8570	
==>= $$token{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25861	25958	
==>it returns a
I<reference> to a scalar, makes it work (!).

B<These functions can only work if call <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3871	3966	
==>al 'require '.$()->[2]{ident}[0]{ident};
		return { require_bareword => $() ,} 
	}
RULE
*{'use_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1230	1341	
==>->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' => q( <before <Pugs::Grammar::Te <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5870	6001	
==>.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5870	6001	
==>.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21082	21272	
==>arams->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44006	44179	
==>arams->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4551	4744	
==>s );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4551	4744	
==>s );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1387	1491	
==>,' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1387	1491	
==>,' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3951	4049	
==>pan1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3951	4049	
==>pan1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22638	22764	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22917	23043	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	139	237	
==>b select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	139	237	
==>b select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32273	32391	
==>hen an object does have an ending node, its ender() method should
return an array reference of arguments to object() th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3561	3666	
==>er->FETCH('::Test')->FETCH('::Base') ],
    attributes => [ '$.reason' ],
    methods => {
        'reason <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12355	12454	
==>ttribute defaults to empty if the parameter's
corresponding argument is undefined).  The new Documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12355	12454	
==>ttribute defaults to empty if the parameter's
corresponding argument is undefined).  The new Documen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1229	1332	
==>m;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		ne <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3874	3977	
==>nt $hint";
    }
}

# 8.7 The Reference Type
class JSX::InternalValue::Reference {
    has $.base_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	324	451	
==>body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	324	451	
==>body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5814	5902	
==>R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental(condition(Rk,R1, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3894	3994	
==>ompiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4078	4178	
==>ompiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $cl <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12291	12422	
==>nv($$);

	Set::Object->new(
		grep { $_->free_vars }
			map { $_->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# enteri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3277	3384	
==>hod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signat <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3277	3384	
==>hod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9547	9647	
==>field names are cases insensitive.

Instances of this class are usually created as member variables o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9547	9647	
==>field names are cases insensitive.

Instances of this class are usually created as member variables o <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16668	16797	
==>fe {
        Num::round_gen($n, &Num::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our & <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4945	5073	
==>[
      map {{
        catname => $_,
        smokes  => $runcores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18114	18212	
==>a compiler is called it only gets the source code that it should be
looking at.

This section descr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18114	18212	
==>a compiler is called it only gets the source code that it should be
looking at.

This section descr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7455	7629	
==>defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7455	7629	
==>defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	982	1103	
==>__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( { return { stmt <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5747	5833	
==>'s Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/T <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5747	5833	
==>'s Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/T <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4642	4755	
==>ss) = @_;

    # Read original module source code instead of taking from filter,
    # because we need all the lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4642	4755	
==>ss) = @_;

    # Read original module source code instead of taking from filter,
    # because we need all the lin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11249	11344	
==>(Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_enco <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11249	11344	
==>(Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_enco <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2368	2520	
==>turn on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _sho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2368	2520	
==>turn on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _sho <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1975	2075	
==>if $perl_version == 6;
    $self->makemaker_args->{MAN3PODS} = {} if $perl_version == 6;
    $self->{ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1484	1580	
==>method dispatch need not look at the meta
objects; each dispatch table points directly to its "su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3815	3914	
==>@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns A <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3815	3914	
==>@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns A <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9864	9981	
==>($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    } <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9864	9981	
==>($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4759	4887	
==>"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4759	4887	
==>"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376), <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11654	11763	
==>s

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.com <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11654	11763	
==>s

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8905	9018	
==>optional available list
    ### and check if the package is available/provided by any installed pkg
    sub depend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10382	10495	
==>optional available list
    ### and check if the package is available/provided by any installed pkg
    sub depend <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1215	1309	
==>me> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1215	1309	
==>me> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	513	611	
==>rence - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	513	611	
==>rence - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5020	5227	
==>$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    pus <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4236	4427	
==>$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            pus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3149	3402	
==>osetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3149	3402	
==>osetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the R <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7618	7778	
==>nds, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherw <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	919	1079	
==>nds, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherw <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9876	9989	
==>er( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.strin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9876	9989	
==>er( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4156	4255	
==>ode::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5005	5104	
==>ode::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7326	7442	
==>)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7384	7500	
==>)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4429	4589	
==>()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $match.m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4429	4589	
==>()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $match.m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1034	1173	
==>((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1034	1173	
==>((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	496	603	
==>der) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	496	603	
==>der) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17032	17137	
==>accessable manner, such that would not be possible if its
functionality was subsumed into a larger package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17032	17137	
==>accessable manner, such that would not be possible if its
functionality was subsumed into a larger package <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6208	6360	
==>me) = @_;
    (defined $name) 
        || confess "You must supply a name to get";    
    my $current = $self;
    while ($current) {
        return $cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29634	29733	
==>ithout a predecessor, you would have
to add it explicity to the queue for it to ever be executed.  A <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8060	8197	
==>ot yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8060	8197	
==>ot yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $blo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10606	10713	
==>uccessfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10606	10713	
==>uccessfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.user <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37900	38011	
==>d removed both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	720	819	
==>ilehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $stra <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4054	4281	
==>@args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'lis <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4054	4281	
==>@args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'lis <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3903	4000	
==>b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Ar <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3903	4000	
==>b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2796	2963	
==>matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2704	2866	
==>matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            ret <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	382	490	
==>CRIPTION

An `element'.

All meta-information provided by dialects should be stored in this
tree as an attrib <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	382	490	
==>CRIPTION

An `element'.

All meta-information provided by dialects should be stored in this
tree as an attrib <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9821	9938	
==>bject, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11298	11415	
==>bject, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	309	422	
==>ion
    my @c = caller();
    if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt in <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	36	136	
==>.pm - /usr/local/lib/perl5/site_perl/5.8.8/Module/Install/Compiler.pm"
package Module::Install::Compi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1690	1834	
==>new {
        my $class = shift;
        my %hash  = @_;
        
        ### might get params for underlying classes
        local $Params::Chec <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3189	3323	
==>"3rd line\n4th line\n5th line\n6th line\n7th line\n".
        "8th line\n9th line\n10th line\n11th line\n12th line\n" ],
      [ 'file2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1864	2006	
==>/x-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1864	2006	
==>/x-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21174	21274	
==>d as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21174	21274	
==>d as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14674	14774	
==>entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14674	14774	
==>entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	759	921	
==>mar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	921	1083	
==>mar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	658	846	
==>s{'str'};
    return $o;
}
sub init {
    my($o)=@_;
    $o->set(1,"",[],{});
    return $o;
}
sub set {
    my($o,$b,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_st <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13014	13114	
==>ameAndValueList> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15079	15173	
==>privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15079	15173	
==>privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16746	16906	
==>a;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real he <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21844	22004	
==>a;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17581	17735	
==>:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14002	14156	
==>:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19337	19440	
==>r POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19337	19440	
==>r POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for li <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	92	247	
==>toring of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	92	247	
==>toring of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8981	9144	
==>~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8981	9144	
==>~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7714	7805	
==>deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7772	7863	
==>deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_is <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	877	1012	
==>os.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	877	1012	
==>os.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5986	6110	
==>e, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5974	6098	
==>e, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6407	6521	
==>t to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6407	6521	
==>t to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns A <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	39027	39129	
==>ibute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None yet.

= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43841	43943	
==>ibute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None yet.

= <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7820	7923	
==>ing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7820	7923	
==>ing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	706	812	
==>/sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	706	812	
==>/sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4591	4711	
==>=> 'method_call', self => $_[1], method => $_[3], param => $_[5], } }
    | exp '.' BAREWORD exp   %prec P003
        { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15080	15181	
==>d_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9279	9380	
==>d_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10584	10777	
==>ternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10863	11056	
==>ternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	450	566	
==>>{out}= { 'pointy_block' => $_[4], signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36633	36727	
==>))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final ex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15223	15331	
==>enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $targe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15223	15331	
==>enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $targe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13540	13687	
==>n();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator .= new(
            set_names => ['MyLib <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13540	13687	
==>n();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $translator .= new(
            set_names => ['MyLib <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	285	380	
==>thod new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::ne <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	285	380	
==>thod new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Class.SUPER::ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	725	909	
==>0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29335	29430	
==>es.
This method will fail if any C<$mapping> keys do not match invocant
Relation::Example attrib <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18492	18588	
==>e perl regcompp and regexecp hooks (C functions
which get called on regular expression compilatio <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2782	2878	
==>e perl regcompp and regexecp hooks (C functions
which get called on regular expression compilatio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	316	409	
==>annotated = $self->annotate($c);
	my $c_code = $self->emit($type_annotated);
	my $main = $self <==
2	/Users/nnunley/pugs/util/importgraph.pl	2023	2106	
==>etup_rank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs.Par <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6901	7009	
==>text_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6959	7067	
==>text_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11906	12083	
==>ush($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11906	12083	
==>ush($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4665	4790	
==>?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4858	4983	
==>?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2, <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	822	1007	
==>h(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plug <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	822	1007	
==>h(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plug <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1650	1751	
==>ell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1490	1591	
==>ell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3963	4094	
==>omething that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4427	4558	
==>omething that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6193	6289	
==>duce the implementation of most block and stream ciphers to a constructor, 
the cryptographic cor <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6193	6289	
==>duce the implementation of most block and stream ciphers to a constructor, 
the cryptographic cor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10916	11065	
==>rsion, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10916	11065	
==>rsion, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6926	7029	
==>le") }
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6926	7029	
==>le") }
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method cont <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1527	1630	
==>}

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1527	1630	
==>}

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1934	2034	
==>self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1934	2034	
==>self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2895	3038	
==>'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '&&',
        assoc => 'ri <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	649	750	
==>y run this program in the same directory containing
# those files.
#
# Enjoy! -- asavige (aka mad golf <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15599	15696	
==>0,B0,B0,E0,E0).

rm(standalone(Re),F0,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4681	4798	
==>regexp_hook_exec failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32397	32514	
==>ll produce
its ending node:

  # the 'open' node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $self->np <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18807	18946	
==>SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosetta D is very different from SQL, it
is fully capable of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18807	18946	
==>SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosetta D is very different from SQL, it
is fully capable of <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	872	987	
==>ne dimensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11058	11155	
==>iteSpace>? <StrNumericLiteral> <StrWhiteSpace>?
}
rule StrWhiteSpace {  # see 9.3.1
      <StrWhit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13012	13124	
==>s a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structures (hash refs, arra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13012	13124	
==>s a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structures (hash refs, arra <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9993	10090	
==>in progress. As new features are
added to Pugs, new test functions will be defined to facilitate t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10051	10148	
==>in progress. As new features are
added to Pugs, new test functions will be defined to facilitate t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2042	2190	
==>t}();
          return { named_capture => $body, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< b <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4848	4947	
==>xup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if gr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	581	687	
==>this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to str <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	581	687	
==>this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1298	1411	
==>h };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1298	1411	
==>h };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{captu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23730	23837	
==>onDeclaration>
}

# A.6 Universal Resource Identifier Character Classes

rule uri {  # see 15.1.3
      <uri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9601	9699	
==>way that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to inv <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9601	9699	
==>way that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to inv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5228	5345	
==>Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5228	5345	
==>Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8153	8257	
==>set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8153	8257	
==>set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will b <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8903	9029	
==>59-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8903	9029	
==>59-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9200	9293	
==>ion is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriente <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9200	9293	
==>ion is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-oriente <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	804	948	
==>( qq[mkdir -p $builddir/$path] )          and die "$?";
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) and die "$?";
        chdir $buil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5507	5636	
==>Stmts) {
    my(@vars);
    for (@$pSyms) {
	my($var)=@$_;
        push(@vars,$var);
    }

    my @varsm = map{p6_mangle($_)} @va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1076	1176	
==>odified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1076	1176	
==>odified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_head <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4586	4728	
==>ch.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4586	4728	
==>ch.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11604	11692	
==>expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() tho <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11662	11750	
==>expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() tho <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14574	14679	
==>t` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14574	14679	
==>t` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5540	5658	
==>p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5540	5658	
==>p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14219	14469	
==>!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14219	14469	
==>!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $dig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2081	2196	
==>al, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.tr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2081	2196	
==>al, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.tr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8457	8569	
==>ng complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8457	8569	
==>ng complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10489	10578	
==>$plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%option <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10489	10578	
==>$plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%option <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11139	11245	
==>pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11139	11245	
==>pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3776	3897	
==>can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3776	3897	
==>can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The fil <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	188	295	
==>eleased June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World! <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	188	295	
==>eleased June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3962	4055	
==>lti sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3962	4055	
==>lti sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11288	11384	
==>tem ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

U <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11288	11384	
==>tem ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

U <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6100	6204	
==>{pkg_root}::Node";
	$pkg_type = "" if $pkg_type eq $pkg_this;
	$used{$pkg_type}=1 if $pkg_type;
	$used{$p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17980	18092	
==>, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17980	18092	
==>, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1316	1416	
==>he Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for conta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1258	1356	
==>he Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for conta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33252	33347	
==>tional arguments sent are the walking stack and the current
depth in the walking stack.  Element <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17551	17671	
==>$P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	319	430	
==>xtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	319	430	
==>xtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1436	1534	
==>s saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1436	1534	
==>s saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3291	3398	
==>:opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_att <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3993	4092	
==>:opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_att <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16358	16454	
==>ales or user types simultaneously, and that allows any end users to add
support for new languages <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16358	16454	
==>ales or user types simultaneously, and that allows any end users to add
support for new languages <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3258	3367	
==>dist_version => $self->{version},
        license      => $self->{license},
    );
    $self->provides(%{ $bui <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1959	2065	
==>~ /[:space:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub print { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	653	787	
==>'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	653	787	
==>'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8952	9131	
==>max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8952	9131	
==>max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5344	5444	
==>e type::variable::free;
use base qw/type::variable/;

# a free variable is a placeholder
# when going <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2871	2970	
==>re::signature;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9120	9226	
==>quire Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Modul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9178	9284	
==>quire Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Modul <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5470	5644	
==>$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@h <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5470	5644	
==>$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2676	2768	
==>xtracted,$remainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extract <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3047	3136	
==>(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \$__v__ }) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	524	641	
==>ler.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Se <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	524	641	
==>ler.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6630	6745	
==>o_index_groups, '');
}

sub _index_files {
    my ($self, $pkg, $groups, $cur) = @_;
    return unless $groups && @$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2003	2159	
==>or 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2003	2159	
==>or 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2042	2141	
==>+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postfix:*", "left", &pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2114	2211	
==>?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfix:*", "left", " <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2645	2742	
==>se it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fraction <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2645	2742	
==>se it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fraction <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8563	8681	
==>e::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8551	8669	
==>e::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1517	1645	
==>r::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1517	1645	
==>r::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	281	394	
==>-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	281	394	
==>-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29882	29983	
==>ry simple, consisting mainly of a data-stuffed hash
and an accessor method to read values from it by k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29882	29983	
==>ry simple, consisting mainly of a data-stuffed hash
and an accessor method to read values from it by k <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	269	366	
==>, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain n <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	269	366	
==>, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certain n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6789	6919	
==>everse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal lis <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6789	6919	
==>everse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal lis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3559	3666	
==>f_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  # gpos (last gl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	825	924	
==>ckages now require synchronised versions.
    # This will be used to ensure we don't accidentally lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7052	7181	
==>stfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7052	7181	
==>stfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9504	9705	
==>g {
    return sub {
        $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21474	21570	
==>set
 #define float_max_offset substrs->data[1].max_offset
 #define check_substr     substrs->data <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3058	3225	
==>ubmatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3058	3225	
==>ubmatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	188	303	
==>finite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit er <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	188	303	
==>finite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit er <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11297	11410	
==>me;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11297	11410	
==>me;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9171	9301	
==>:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unles <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9171	9301	
==>:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unles <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1094	1187	
==>_args = join(" ",map{"-I$_"}@inc_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1737	1853	
==>hod clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1737	1853	
==>hod clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7376	7476	
==>ror(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char_comp => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7298	7393	
==>Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7298	7393	
==>Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $even <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4751	4858	
==>tr { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4751	4858	
==>tr { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27168	27333	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27447	27612	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7378	7483	
==>"KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7378	7483	
==>"KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq norm <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1073	1201	
==>$wikiwords;
        %wiki{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.clos <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3644	3766	
==>{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3837	3959	
==>{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        ma <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15649	15754	
==>start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15649	15754	
==>start` bigger than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1607	1707	
==>rds( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1607	1707	
==>rds( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2026	2137	
==>ames must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $nam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1708	1815	
==>ames must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $nam <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2041	2170	
==>ss.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2041	2170	
==>ss.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      r <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2905	3018	
==>xtensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "END";
T <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3672	3774	
==>XX
  my $operator;
  expect_term:
  goto null_term if $position >= $lastPosition;
 
  my $currentTermTa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4856	4961	
==>and that some of those
    things are subs or methods rather than rules or macros. (The numeric
    rxmods <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8694	8856	
==>p->( @_ );
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8694	8856	
==>p->( @_ );
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# exp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20058	20154	
==>annels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20058	20154	
==>annels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14022	14136	
==>w);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8227	8341	
==>w);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1269	1378	
==>m<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1269	1378	
==>m<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1218	1357	
==>ed
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	778	917	
==>ed
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16769	16898	
==>elf->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $self = shift;
    join "", $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22186	22277	
==>xed errant "Quantifier unexpected" warning raised by a zero-width
assertion followed by C<?> <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1142	1237	
==><Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This program i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3621	3726	
==>malize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3621	3726	
==>malize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3662	3801	
==>$open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3662	3801	
==>$open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4112	4225	
==>recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4112	4225	
==>recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1857	1972	
==>cal $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2074	2189	
==>cal $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38948	39063	
==>pyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43762	43877	
==>pyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16436	16540	
==>alar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the lis <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16436	16540	
==>alar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the lis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	609	725	
==>ed};
        $category =~ s/^(\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->ad <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16196	16303	
==>between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8101	8344	
==>op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8565	8808	
==>op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3144	3281	
==>if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3144	3281	
==>if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1768	1906	
==>0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT : <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1768	1906	
==>0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT : <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15143	15246	
==>pan )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, creates an e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15143	15246	
==>pan )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, creates an e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	61	164	
==>t_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	61	164	
==>t_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10375	10478	
==>ding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10375	10478	
==>ding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26983	27140	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27262	27419	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18622	18756	
==>rn;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15043	15177	
==>rn;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12203	12325	
==>{&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4846	4968	
==>{&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27845	28001	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28124	28280	
==>pture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             rul <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9241	9359	
==>urse($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = join( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13630	13729	
==>he rest of perl.]

  The regexp engine and the perl compiler have an overly friendly
  relationship. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11631	11758	
==>onnected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11631	11758	
==>onnected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2369	2509	
==>{ $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2369	2509	
==>{ $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  d <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	348	468	
==>l 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	348	468	
==>l 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2821	2917	
==>$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request URI. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2821	2917	
==>$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request URI. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1056	1161	
==>on will cause the module to shift across all byte values, not just the ones 
corresponding to letters.

=h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1056	1161	
==>on will cause the module to shift across all byte values, not just the ones 
corresponding to letters.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2241	2385	
==>0 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2241	2385	
==>0 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3103	3213	
==>rmation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3103	3213	
==>rmation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickn <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32096	32201	
==>looking for a match to said error
message.  If it finds one, then that is displayed; if not, it then check <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32096	32201	
==>looking for a match to said error
message.  If it finds one, then that is displayed; if not, it then check <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2177	2341	
==>ys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        } <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2177	2341	
==>ys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        } <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16244	16355	
==>t to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_subst <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20670	20781	
==>t to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_subst <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	213	330	
==>ile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::Mak <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	213	330	
==>ile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::Mak <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16737	16854	
==>te($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8933	9067	
==>osure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8933	9067	
==>osure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11878	12074	
==>[ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11878	12074	
==>[ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9199	9311	
==>E' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9199	9311	
==>E' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	725	876	
==>:capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	725	876	
==>:capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20811	20916	
==>eld_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the arg <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20811	20916	
==>eld_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the arg <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	491	602	
==>f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } }
}

{
	package Blondie::Map <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16079	16173	
==>evan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16137	16231	
==>evan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bes <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	801	907	
==>binmode OUT;
}

# XXX: with yaml precompilation, this may be bogus.
sub touch {
    # XXX: *ugly* hack! ghc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26279	26389	
==>it is by no means required, the copyright holders of Rosetta would
appreciate being informed any time you creat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26279	26389	
==>it is by no means required, the copyright holders of Rosetta would
appreciate being informed any time you creat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5899	6096	
==>lation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9376	9573	
==>lation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15037	15136	
==>password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15037	15136	
==>password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$te <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9034	9165	
==>ep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .details  { display: none; }
    .expander { color: blue; c <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6837	6951	
==>d, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($file)";
        push @{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16174	16270	
==>l
not spend much time in providing rationales; you can read TTM itself and
various other external <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16174	16270	
==>l
not spend much time in providing rationales; you can read TTM itself and
various other external <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3696	3807	
==>ecode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENC <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3696	3807	
==>ecode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENC <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12271	12379	
==>st of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12271	12379	
==>st of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single l <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1239	1409	
==>+< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @by <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1239	1409	
==>+< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @by <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2030	2137	
==>ation format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1954	2057	
==>ation format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	760	929	
==>:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Cou <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	760	929	
==>:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Cou <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16283	16399	
==>touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20709	20825	
==>touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20097	20255	
==>{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16518	16676	
==>{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4454	4601	
==>)
 { ... } # XXX


 multi method Array::exists (@array ; Int *@indices --> Bool )
 { ... } # XXX
 

 &Array::pop<Array> := &Array::splice<Array>.ass <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1892	2142	
==>:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_mod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1892	2142	
==>:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23547	23652	
==>turn $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19968	20073	
==>turn $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10586	10686	
==>=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $ke <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10586	10686	
==>=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $ke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10217	10317	
==>elf._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($sel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10217	10317	
==>elf._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($sel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12804	12919	
==>or *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12804	12919	
==>or *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5694	5814	
==>wd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5694	5814	
==>wd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir retu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	22	123	
==>01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/C <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	22	123	
==>01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3505	3628	
==>vent {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3505	3628	
==>vent {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1036	1145	
==>C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stor <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1036	1145	
==>C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stor <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3226	3339	
==>.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3226	3339	
==>.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.memb <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23481	23564	
==>lace_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) :- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9187	9303	
==>led matche's .end is undefined

=cut



### current implementation is always anchored at ^

### because it was specia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8886	8998	
==>led matche's .end is undefined
=cut

### current implementation is always anchored at ^
### because it was specia <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3109	3249	
==>= 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

T <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3109	3249	
==>= 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5947	6055	
==>$S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36003	36099	
==>nrolled contents of the
array reference as the contents of the look-ahead, and we're done.  Now
w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2358	2484	
==>NV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = ' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2358	2484	
==>NV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8836	8987	
==>}
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the package is available/provided by a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8881	9020	
==>ly => 'branch',
      type => 'branch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22314	22405	
==>sion 0.1.0.

It also describes the same-number versions of Relation::Heading ("Heading")
and <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2536	2647	
==>est )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report( <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2536	2647	
==>est )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3743	3852	
==>riz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10607	10711	
==>ich
means that you can update several fields with a single invocation.

The $value argument may be a plai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10607	10711	
==>ich
means that you can update several fields with a single invocation.

The $value argument may be a plai <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4164	4324	
==>>get_value('@:slots')}, mk_containers(@$values);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7301	7401	
==>sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31585	31694	
==>> simply returns True or False regardless of its
argument, in which case the new Relation has either all of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36135	36244	
==>> simply returns True or False regardless of its
argument, in which case the new Relation has either all of th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1972	2071	
==>arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1972	2071	
==>arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4280	4391	
==>($node, "$type $symbol () {\n\t$body;\n}");
	return $symbol . "()";
}

sub define_val {
	my $self = shift;
	my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	299	410	
==>version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	299	410	
==>version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	252	358	
==>xtra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 'submetho <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	252	358	
==>xtra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 'submetho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22706	22835	
==>h @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22985	23114	
==>h @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20274	20370	
==>er("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20274	20370	
==>er("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a corr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3156	3326	
==>es[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3055	3220	
==>es[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20151	20249	
==>oak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20151	20249	
==>oak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2040	2169	
==>,
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2040	2169	
==>,
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7838	7980	
==>\n   List      spre    <==     safe   (List)\
\\n   List      left    ==>     safe   (List, Code)\
\\n   List      spre    prefix:[,]  safe   ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	306	444	
==>tors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	306	444	
==>tors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## --- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1022	1209	
==>e Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1022	1209	
==>e Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9029	9124	
==>:Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9029	9124	
==>:Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	200	310	
==>mar::Perl6;
use Pugs::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10125	10340	
==>wn into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2140	2254	
==>hings

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?



I propose: no lib6/ and lib/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2060	2171	
==>hings
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?

I propose: no lib6/ and lib/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16578	16674	
==>to think about that.  This module is more of a theoretical
exercise, a jump-start to built-in rev <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2796	2953	
==>hod header returns Str
      {
          return '';
      }
  
      method footer returns Str (Int $run)
      {
          return "1..$run";
      }
  }


=c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14278	14373	
==>//cvs.perl.org/viewcvs/perl5/mirror/

  And of course man perlapi, etc.

  The perl regexp engin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4983	5079	
==>eyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4983	5079	
==>eyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14217	14317	
==>compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the oppos <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14275	14375	
==>compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the oppos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8843	8947	
==>ical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8550	8652	
==>ical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6676	6782	
==>ariable or by making a 
copy internally, and should return the copy once it has been encrypted or 
decrypte <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6676	6782	
==>ariable or by making a 
copy internally, and should return the copy once it has been encrypted or 
decrypte <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1688	1783	
==>ent is to
continue cleaning and adding p6, tuck it into the pugs distribution
somewhere with tes <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3079	3208	
==>p > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3079	3208	
==>p > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6233	6409	
==>ents
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            all <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8243	8359	
==>ommand $switches $file";

    return $line;
}


=head2 C<_command>

  my $command = $self->_command();

Returns the c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	83	332	
==>n't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant valu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	83	332	
==>n't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant valu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17748	17839	
==>Zero additional runtime penalty after compilation, because C<perl> has
already been doing th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17748	17839	
==>Zero additional runtime penalty after compilation, because C<perl> has
already been doing th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6330	6448	
==>ame}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL::PIL1CPerl5::NodesInfo:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1705	1803	
==>n $S->object(exact => join("", $S->nchar(@names)), "\\c[$n]");
    }

    $S->error(0, "Missing rig <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2303	2405	
==>bj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::M <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7299	7405	
==>e is ignored - use proxy?

    my $hybrid_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\s*\(? <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3841	3946	
==>->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin->pos <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5201	5305	
==>->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin->pos <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	187	317	
==>~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	187	317	
==>~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, <==
2	/Users/nnunley/pugs/util/func_refact.pl	1588	1722	
==>{$new} = 1;
    while (scalar(keys %$set) > $size) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for my $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5284	5413	
==>print "created operator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # pr <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	338	437	
==>$codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $opti <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	338	437	
==>$codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $opti <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1309	1434	
==>t {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1309	1434	
==>t {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $di <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5896	6001	
==>atus code is returned

=item Item Context

All headers are returned as one long string, or maybe as a L<HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5896	6001	
==>atus code is returned

=item Item Context

All headers are returned as one long string, or maybe as a L<HT <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3812	3915	
==>Finally, call the finish() method to return any leftover data 
and clear the cipher object.

The methods <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3812	3915	
==>Finally, call the finish() method to return any leftover data 
and clear the cipher object.

The methods <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2287	2423	
==>::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2287	2423	
==>::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	772	866	
==>tta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	772	866	
==>tta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Roset <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6927	7057	
==>skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6927	7057	
==>skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_mo <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	983	1155	
==>ast;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	862	1034	
==>ast;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1714	1991	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1714	1991	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # cl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	680	776	
==>E</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	680	776	
==>E</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perldoc::DOM <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10203	10306	
==>turns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set ar <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10203	10306	
==>turns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	427	536	
==>requent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	438	547	
==>requent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

su <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3250	3515	
==>');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3250	3515	
==>');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5201	5338	
==>e::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5201	5338	
==>e::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	763	864	
==>een(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	763	864	
==>een(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9525	9625	
==>size.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9525	9625	
==>size.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7287	7427	
==>H>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpac <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7287	7427	
==>H>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpac <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8857	8974	
==>elf:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8857	8974	
==>elf:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3902	4023	
==>\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3902	4023	
==>\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19908	20017	
==>ates an
object no matter what pass the parser is making; object() will return
immediately if it's just the fir <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1508	1662	
==>r         = $Root . '/tmp';                   # temp dir for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Ro <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2443	2550	
==>se to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, the <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2443	2550	
==>se to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	442	574	
==>benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	539	671	
==>benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	10	140	
==>gs;







1;





### There is too much in this file 

### separate into:

- Introduction

- Documentation Index

- Compiler inter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	10	129	
==>gs;



1;


### There is too much in this file 
### separate into:
- Introduction
- Documentation Index
- Compiler inter <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	129	256	
==>ependency.
### This is a bug and will be fixed.
use File::Spec ();
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGI <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16785	16877	
==>rm(intersection(Re1,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4604	4779	
==>unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5068	5243	
==>unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5984	6112	
==>ests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo thi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6042	6170	
==>ests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo thi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8403	8508	
==>>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 7.8.3
      <[0..9]>
}
rule ExponentIn <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5148	5245	
==>wing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() fu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5148	5245	
==>wing functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() fu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5199	5327	
==>eate ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6961	7089	
==>eate ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11798	11917	
==>er digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11798	11917	
==>er digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7370	7469	
==>RLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7370	7469	
==>RLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1972	2079	
==>PSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1972	2079	
==>PSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1600	1752	
==>]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1545	1693	
==>]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11165	11258	
==>m B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11165	11258	
==>m B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7495	7649	
==>ends .= ', plugins -any, haskell-src -any';
    }

    if (grep /^-DPUGS_HAVE_READLINE$/, @_) {
        $depends .= ', readline -any';
    }

    my $unico <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2973	3074	
==>ode->struct_equiv;
		my $type = Scalar::Util::blessed($struct) ? $struct->moniker : "const";
		join("_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1590	1722	
==>rms, 'match_variable';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12004	12135	
==>prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11998	12129	
==>prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	177	287	
==>s $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	177	287	
==>s $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	523	626	
==>loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19349	19446	
==>Basic::exit ( Int $status = 0)
{
    Pugs::Internals::exit($status);
}


 multi Control::Basic::no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10692	10799	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10692	10799	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	286	413	
==>,
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1144	1271	
==>,
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"], <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	405	560	
==>ry, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am p <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	405	560	
==>ry, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12387	12510	
==>tails and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $sho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11511	11645	
==>tr eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11505	11639	
==>tr eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36880	36976	
==>mple contains only tuples that are in
exactly one of the source Relations.  This method has alias <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2492	2639	
==>+$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2492	2639	
==>+$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ <==
2	/Users/nnunley/pugs/util/package-osx.pl	11697	11806	
==>d 0755, "$dest$files[-1]";
    print "Made $dest$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    sys <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	620	720	
==>nstall.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Install lo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1871	1996	
==>is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1871	1996	
==>is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	332	458	
==>lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	332	458	
==>lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die $!;
    m <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2150	2253	
==>n,
>   No words were laid on stream or stone,
>   When Durin woke and walked alone.

-}

--------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6262	6383	
==>'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6262	6383	
==>'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2421	2559	
==>@_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2561	2699	
==>@_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	86	188	
==>cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process comman <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	86	188	
==>cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process comman <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37841	37942	
==>that a Perl module by the given module name
is already loaded, it tries to invoke $module_name.get_tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37841	37942	
==>that a Perl module by the given module name
is already loaded, it tries to invoke $module_name.get_tex <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6743	6857	
==>s text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and fi <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6743	6857	
==>s text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6856	6968	
==>h->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6868	6980	
==>h->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5584	5698	
==>t
# at this point it reblesses itself

sub new {
	my $class = shift;
	bless {
		instance => undef,
	}, $class;
}

s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19988	20093	
==>hatever) {
    die "Can't load perl5 modules via js when not running under PIL2JS!";
}
our &PIL2JS::Intern <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23768	23853	
==>place,[],[Replace]) :- !.
replace_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- !, var <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15245	15341	
==>ithout changing the input string).

If you prefer not to import these routines into your namespac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15245	15341	
==>ithout changing the input string).

If you prefer not to import these routines into your namespac <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33426	33522	
==>e returned Relation contains only tuples that are in
all of the source Relations.  This method ha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37976	38072	
==>e returned Relation contains only tuples that are in
all of the source Relations.  This method ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19038	19138	
==>ot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timesta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19038	19138	
==>ot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timesta <==
2	/Users/nnunley/pugs/util/package-osx.pl	8851	8954	
==>t$change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "Copied $orig to $dest$change_fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22466	22562	
==>ou can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22466	22562	
==>ou can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9962	10060	
==>$string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9962	10060	
==>$string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21598	21697	
==>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21598	21697	
==>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1665	1758	
==>s::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1665	1758	
==>s::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20208	20310	
==>n a simple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20208	20310	
==>n a simple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17260	17367	
==>six)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13681	13788	
==>six)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      } <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7382	7491	
==>ype::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive let expr a gener <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20712	20812	
==>nk listen 
# lstat mkdir open opendir pipe print printf read readdir readline
# readlink readpipe rec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	732	827	
==>ulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_diff <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	732	827	
==>ulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_diff <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	605	712	
==>::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	605	712	
==>::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1326	1447	
==>\w+\+\S+) $ # authority
                /smx;

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5895	6011	
==>);

  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5145	5407	
==>o do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5145	5407	
==>o do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1712	1828	
==>l"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1712	1828	
==>l"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2220	2333	
==>$_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2220	2333	
==>$_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5407	5529	
==>};

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    ### build a from => to mapping
    ### not <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26421	26520	
==>but only if you're sure the
match succeeded.

=head2 Parser Methods

=over 4

=item my $obj = $parse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23538	23634	
==>imple).

There are other differences.  Where other solutions take variables, they
seem to be posi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23538	23634	
==>imple).

There are other differences.  Where other solutions take variables, they
seem to be posi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	593	707	
==>y {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	593	707	
==>y {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2993	3107	
==>].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2993	3107	
==>].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50518	50659	
==>'identifier'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19591	19693	
==>:
    .return (self)
.end

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10262	10365	
==>eld $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTOR <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10262	10365	
==>eld $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTOR <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1619	1783	
==>ILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1619	1783	
==>ILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12166	12331	
==>&semidifference;

###########################################################################

method semijoin (Relation::Example $other!) returns Relation::Example { <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	498	594	
==>method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA: <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	498	594	
==>method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA: <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	712	821	
==>ut) ?? () !! (undef, undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Siglet) syntax works better
# sub p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5973	6066	
==>orce_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5661	5754	
==>orce_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum = <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1344	1446	
==>n.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $dstart <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1344	1446	
==>n.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $dstart <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8189	8310	
==>export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8189	8310	
==>export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1209	1307	
==>, "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1203	1296	
==>, "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4560	4671	
==>han}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4560	4671	
==>han}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	138	235	
==>pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	138	235	
==>pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13012	13164	
==>9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13012	13164	
==>9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9138	9377	
==>$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->fetch($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method remove_method (opaque $self: symb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21552	21647	
==>ases before, especially given that the Perl DBI purports to provide
"Database Independence".  Ho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21552	21647	
==>ases before, especially given that the Perl DBI purports to provide
"Database Independence".  Ho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	977	1107	
==>rint "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	988	1118	
==>rint "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6416	6522	
==>--- rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6428	6534	
==>--- rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the ge <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5349	5465	
==>hod negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5349	5465	
==>hod negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( - <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13698	13799	
==>st_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; di <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13698	13799	
==>st_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; di <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	189	306	
==>o_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	189	306	
==>o_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3360	3454	
==>erl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method do <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3360	3454	
==>erl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method do <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2363	2483	
==>submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2363	2483	
==>submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4189	4290	
==>terface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Interface::Variable (" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4189	4290	
==>terface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Interface::Variable (" <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2585	2684	
==>ram is Free Software, and may be used, distributed and modified under 
the same terms as Perl itself <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2585	2684	
==>ram is Free Software, and may be used, distributed and modified under 
the same terms as Perl itself <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2370	2527	
==>->rel2abs( $dir ) );

        ### singleton
        return $cache{$dir} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9834	9945	
==>@results{qw(exit wait)};

        if ($results{passing}) {
            if ($test{max} and $test{skipped} + $test <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18321	18415	
==>e Engines will employ appropriate measures
such as system-managed locks so that resource corrup <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18321	18415	
==>e Engines will employ appropriate measures
such as system-managed locks so that resource corrup <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3534	3635	
==>on = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3534	3635	
==>on = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5652	5783	
==>) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5652	5783	
==>) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18525	18647	
==>ow made it into the {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18525	18647	
==>ow made it into the {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9558	9727	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9837	10006	
==>,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	929	1018	
==>ckend::Foo->execute($compiled);

    my $same_result = Blondie::Backend::Foo->run($program <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3815	3915	
==>ns testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5717	5817	
==>ns testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1269	1398	
==>_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      // <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1269	1398	
==>_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      // <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4979	5134	
==>ave one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4979	5134	
==>ave one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = po <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	291	416	
==>h.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	291	416	
==>h.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	677	793	
==>fields accessors for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1161	1277	
==>fields accessors for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2474	2615	
==>l {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2474	2615	
==>l {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8252	8381	
==>arks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8252	8381	
==>arks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3	104	
==>package Pugs::Grammar::Precedence;

# Documentation in the __END__
use 5.006;
use strict;
use war <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	930	1119	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	930	1119	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUI <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4617	4749	
==>ren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $remove <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4617	4749	
==>ren) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $remove <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8522	8617	
==>sing it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take respo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8522	8617	
==>sing it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take respo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11455	11579	
==>m_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11455	11579	
==>m_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2533	2627	
==>pr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2533	2627	
==>pr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Vari <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28373	28563	
==>new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                # if it is empty ... 
                $e->get('$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1687	1793	
==>get = (char *)GC_MALLOC(sizeof(char) * 100);
	(void)sprintf(target, "%d", x);
	return target;
}
C
}

__PACK <==
2	/Users/nnunley/pugs/util/addauthors.pl	1474	1592	
==>"<:utf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4931	5048	
==>";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4931	5048	
==>";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3016	3148	
==>y ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3016	3148	
==>y ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Ca <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7862	7972	
==>an is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7862	7972	
==>an is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5690	5791	
==>($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joine <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5690	5791	
==>($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joine <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12040	12154	
==>erminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12040	12154	
==>erminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1376	1498	
==>();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1376	1498	
==>();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Ha <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	83	172	
==>decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	83	172	
==>decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21381	21479	
==>lue.

Every Relation attribute has a name that is distinct from the other
attributes, though severa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25933	26031	
==>lue.

Every Relation attribute has a name that is distinct from the other
attributes, though severa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17611	17707	
==>ndard.>

=item $h.user_agent

This header field is used in request messages and contains informat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17611	17707	
==>ndard.>

=item $h.user_agent

This header field is used in request messages and contains informat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	96	219	
==>strict;
use warnings;

use Set::Object;

sub new {
    my $class = shift;

    bless {
        seen => undef,
		dups => unde <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26019	26133	
==>tor::nary->new(list => $a),
		$a,
	);
	is($type->stringify, "∀α. list α → α", "pretty print list a -> a");
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18381	18480	
==>I have found that when it comes to getting the most accurate program text
for users, we still get th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18381	18480	
==>I have found that when it comes to getting the most accurate program text
for users, we still get th <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1368	1473	
==>$str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	388	493	
==>$str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9756	9865	
==>) {
    return unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9756	9865	
==>) {
    return unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close } <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	130	254	
==>IL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	130	254	
==>IL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3417	3548	
==>ame ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3417	3548	
==>ame ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1451	1560	
==><=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1451	1560	
==><=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1072	1209	
==>>{package}\n";       
    }
    
}

sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, plus whatever / <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23054	23150	
==>ED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKB <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2393	2486	
==>generate_keystream> with a number of bytes and throwing the return value away.
Encryptions aft <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2393	2486	
==>generate_keystream> with a number of bytes and throwing the return value away.
Encryptions aft <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10507	10651	
==>:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10507	10651	
==>:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4631	4779	
==>low => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5283	5431	
==>low => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26860	26996	
==>e = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27139	27275	
==>e = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6952	7082	
==>$/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6940	7070	
==>$/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) | <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3194	3336	
==>bname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @ca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4305	4407	
==>y $self = shift;
	$self->{class_that_should_be}->is_arrow;
}

sub splat { # recursive splatting happens <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	391	520	
==>ng is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negat <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	391	520	
==>ng is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negat <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3650	3948	
==>ym->new('&infix:</>'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5468	5565	
==>F!body;
}

method not_equal (Relation::Example $other!) returns Bool {
    return !$?SELF.equal( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1340	1467	
==>rave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1340	1467	
==>rave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1775	1886	
==>mitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1915	2026	
==>mitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13086	13188	
==>ey live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13144	13246	
==>ey live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1347	1480	
==>\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1347	1480	
==>\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27417	27512	
==>e object is constructed.  If you want to
conceptually change an existing Message object, you mus <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27417	27512	
==>e object is constructed.  If you want to
conceptually change an existing Message object, you mus <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6944	7073	
==>c>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7815	7923	
==>t_path ) };
    die "Failed to create directory $output_path" if $@;
    open (my $fh,'>', $index_file) or di <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20642	20789	
==>de("r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb(
			fun => comb(
				fun => ide("fac'"),
				param => i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24515	24611	
==>ou'll probably not be adding handlers that have to parse flags, but if
you do, remember to follow <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2460	2584	
==>tures;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->featur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4048	4172	
==>tures;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->featur <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8560	8658	
==>the harness under.
This might be to run a threaded Perl, for example.

You can also overload this m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2955	3062	
==>d $p5;
	    $warn = "Pil to p5 compile failed: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10394	10538	
==>keys;
}

(method get_method_list ((opaque $self:)) returns list
    ((($self: get_attr (symbol new (%:methods))) keys)))

=cut

$::Class->send('a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6265	6408	
==>{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                r <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	917	1018	
==>ation> | <non_alternation> }

rule comment { \# \N* }

rule alternation     { <non_alternation> \| <te <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3544	3641	
==>d memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionality
w <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3544	3641	
==>d memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionality
w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2285	2574	
==>Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_ac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	893	1021	
==>RD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1], exp2 => $_[3] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3277	3439	
==>inding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5826	5950	
==>ors return Rule objects, which are "matcher" things.

Rules operate on strings (normally) and return Match objects.



### ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5623	5744	
==>ors return Rule objects, which are "matcher" things.
Rules operate on strings (normally) and return Match objects.

### ex <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4532	4630	
==>$0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4532	4630	
==>$0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23434	23538	
==>-trivial external dependencies; Locale::KeyedText has no non-trivial
external dependencies (it is very si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23434	23538	
==>-trivial external dependencies; Locale::KeyedText has no non-trivial
external dependencies (it is very si <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29380	29476	
==>to the queue (C<< $parser->{next} >>).

The handle '|' is post-consumptive.  It happens to be exe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3727	3826	
==>tersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3727	3826	
==>tersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23999	24110	
==>< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20420	20531	
==>< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11251	11371	
==>his page would report 100 % test passes.)
  </p>

  <table>
    <tmpl_loop name=runcores>
      <tr><th colspan="11" clas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12043	12203	
==>e "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12043	12203	
==>e "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be ca <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2091	2224	
==>archive =~ s|^$Repodir|.|;
        $archive =~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9868	9970	
==>es($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9868	9970	
==>es($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5539	5659	
==>en <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5539	5659	
==>en <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $spa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17013	17112	
==>st fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will al <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17013	17112	
==>st fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will al <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13364	13486	
==>$rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13364	13486	
==>$rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1147	1288	
==>age -- subclass/inherit!
my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8285	8537	
==>osetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8285	8537	
==>osetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24568	24684	
==>, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20989	21105	
==>, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $sel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4769	4953	
==>METH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("& <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6531	6715	
==>METH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("& <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20327	20424	
==>as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24879	24976	
==>as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15146	15246	
==>method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $com <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15146	15246	
==>method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $com <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2920	3095	
==>ool (Relation::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} # role R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5787	5893	
==>dary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::pars <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5787	5893	
==>dary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::pars <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1536	1680	
==>le Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1331	1473	
==>le Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1540	1646	
==>e()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{$relativePrec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18754	18885	
==>REN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15175	15306	
==>REN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25821	25915	
==>This method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30373	30467	
==>This method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43327	43451	
==>with Relation and
provides a reference implementation of a Relation class.

These other Perl 6 packages also work in the prob <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1761	1872	
==>_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,' <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	712	856	
==>next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	712	856	
==>next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8908	9077	
==>^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %has <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8908	9077	
==>^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %has <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2577	2677	
==>ity's C<-v>
flag will set this.

=item C<$Test::Harness::switches>

The package variable C<$Test::Har <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2273	2388	
==>m named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::conca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2284	2399	
==>m named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::conca <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6876	6978	
==>(header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired on <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6876	6978	
==>(header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired on <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1354	1461	
==>, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have b <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1354	1461	
==>, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have b <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	643	746	
==>ou to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Curre <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	643	746	
==>ou to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS

Curre <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6030	6150	
==>or_from {
    my ( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1030	1151	
==>me;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1030	1151	
==>me;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTT <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14183	14312	
==>0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X::pos)=($X::pos);
        $v = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39902	39996	
==>undation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39902	39996	
==>undation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12024	12144	
==>from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12024	12144	
==>from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5350	5457	
==>undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5350	5457	
==>undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .con <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1689	1783	
==>zy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of juncti <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1689	1783	
==>zy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of juncti <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2601	2703	
==>sults, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for b <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2601	2703	
==>sults, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for b <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1941	2093	
==>g\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1941	2093	
==>g\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19358	19450	
==>indicates the
authentication scheme and parameters applicable to the requested URI.

=item $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19358	19450	
==>indicates the
authentication scheme and parameters applicable to the requested URI.

=item $h <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22274	22383	
==>nil"),
	),
);

my $length_and_first_p = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	760	868	
==>cumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <equal>', 
    infix_right => <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	583	694	
==>$.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.ch <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	583	694	
==>$.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.ch <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4699	4825	
==>Stub(
                'Addition must be implemented as a runtime primitive.' .
                'No, Blondie will not have churc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35725	35841	
==>To
make an object, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3152	3258	
==>e references, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters are bound, n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3152	3258	
==>e references, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters are bound, n <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	512	615	
==>th) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, versi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	512	615	
==>th) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, versi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10124	10247	
==>h(@msg, "$test{bonus}/$test{max} unexpectedly succeeded")
                    if $test{bonus};
                print "$test{ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4890	4986	
==>Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserv <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4890	4986	
==>Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserv <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	321	429	
==>ackage ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq an <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	321	429	
==>ackage ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2888	3025	
==>\''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1510	1647	
==>\''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	350	472	
==>oplan;
    $planned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $planned != $ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1305	1414	
==>iners)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1249	1354	
==>iners)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for con <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4756	4882	
==>d = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) . <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4756	4882	
==>d = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) . <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4972	5124	
==>dered to be a passed test.  C<%test> is the results
            #of the test you're summarizing.
            my $details = {
                ok         = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3891	3987	
==>a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4075	4171	
==>a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	653	777	
==>emaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makema <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	554	678	
==>emaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makema <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5947	6064	
==>n"'
            if $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1308	1392	
==>un::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7142	7293	
==>vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7142	7293	
==>vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots o <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	199	322	
==>so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	199	322	
==>so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22255	22346	
==>.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "..." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22255	22346	
==>.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "..." <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4568	4709	
==>[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4568	4709	
==>[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # W <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	93	195	
==>---------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	93	195	
==>---------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	723	842	
==>nfix:<' . $opt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAGE__->add_rule( 
        name => '*',
        assoc => 'left', <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8508	8634	
==>s{$name} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8508	8634	
==>s{$name} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6502	6600	
==>n $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6502	6600	
==>n $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closure1, $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9102	9221	
==>match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9090	9209	
==>match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6245	6358	
==>tringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6245	6358	
==>tringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3313	3440	
==>]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3313	3440	
==>]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	568	677	
==>"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	568	677	
==>"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8842	8964	
==>ys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8842	8964	
==>ys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11123	11266	
==>f defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTR <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11123	11266	
==>f defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	514	646	
==>lse {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	514	646	
==>lse {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2312	2448	
==>ble; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2228	2355	
==>ble; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replac <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3072	3172	
==>er::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3072	3172	
==>er::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6378	6588	
==>n sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6378	6588	
==>n sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1721	1828	
==>lso includes several attributes which might be interesting to 
people interested in the algorithm itself.  T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1721	1828	
==>lso includes several attributes which might be interesting to 
people interested in the algorithm itself.  T <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6488	6592	
==>the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some b <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6488	6592	
==>the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6228	6321	
==>p5_elemental(eol)   --> "$". %"
p5_elemental(word_boundary)     --> "\\b", !.
p5_elemental(wor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8578	8702	
==>v_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8578	8702	
==>v_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1101	1222	
==>l  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1112	1233	
==>l  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $ta <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12965	13061	
==>am = type($$)->left;
	my $prev_generic = generic($.body);

	if ($t_of_param->free_vars) {
		retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8490	8586	
==>get_method ((opaque $self:) (symbol $label)) returns method
    ((($self: get_attr (symbol new (% <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15546	15654	
==>ed. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and time af <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15546	15654	
==>ed. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and time af <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3158	3254	
==>, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3351	3447	
==>, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/s <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	932	1054	
==>rs are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $doc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9075	9178	
==>ou can return the same failure object always

then there's absolutely no overhead

I'm not sure about th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8776	8877	
==>ou can return the same failure object always
then there's absolutely no overhead
I'm not sure about th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1977	2074	
==>phy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=hea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1977	2074	
==>phy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=hea <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	471	569	
==>ake} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' executable no <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2994	3105	
==>ds[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2994	3105	
==>ds[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $co <==
2	/Users/nnunley/pugs/util/version_h.pl	1976	2081	
==>TDIN reopened...", because
  # our handle for $version_h got slot #0, like STDIN.
  no warnings "io";
  op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18510	18685	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18789	18964	
==>(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3253	3360	
==>.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expressi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3253	3360	
==>.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expressi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14828	14929	
==>he function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1319	1416	
==>ift;
    return $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'}{'sig <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18864	18954	
==>rsection (Relation::Example $other!) returns Relation::Example {
    return Relation::Examp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27997	28121	
==>s of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation::Example's "is mutable" boolean attribut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7605	7708	
==>y @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $kille <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7605	7708	
==>y @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $kille <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23087	23190	
==>th the other packages like "gettext" it looks like you
are supposed to pass in english text and they tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23087	23190	
==>th the other packages like "gettext" it looks like you
are supposed to pass in english text and they tra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	929	1051	
==>]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	938	1060	
==>]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30401	30499	
==>arge, with each set member being an an exclusive alternative for the rest
of the set. There is a se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30401	30499	
==>arge, with each set member being an an exclusive alternative for the rest
of the set. There is a se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5941	6040	
==>rnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5941	6040	
==>rnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14462	14563	
==>ndlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_hash_compla <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6110	6208	
==>rrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYR <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6110	6208	
==>rrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3558	3651	
==>of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3558	3651	
==>of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4 <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	751	867	
==>NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Ben <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	751	867	
==>NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Ben <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17279	17385	
==>eturns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17279	17385	
==>eturns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1529	1639	
==>solute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1529	1639	
==>solute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, maybe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2478	2581	
==>rguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps may not r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2478	2581	
==>rguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps may not r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2989	3102	
==>= $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 't <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2989	3102	
==>= $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 't <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	201	342	
==>LF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	201	342	
==>LF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	267	377	
==>}
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	267	377	
==>}
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9466	9564	
==>odule_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9466	9564	
==>odule_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2399	2522	
==>join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2399	2522	
==>join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6516	6624	
==>d add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6516	6624	
==>d add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argume <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1254	1355	
==>--

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1094	1195	
==>--

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14705	14809	
==>he case of m'pattern'.
  Which might come in hand when doing p6 regex.



Notes on struct regex:

  typed <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10993	11088	
==>$res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val), "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1520	1637	
==>atch_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';
    
    rule named_captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1520	1633	
==>atch_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rule named_captu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2634	2762	
==>ace
    Module      Perl 6 standard namespace
    Class       Perl 6 standard class namespace
    Object      Perl 6 object
    G <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15075	15224	
==>Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works foreve <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19250	19399	
==>Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works foreve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17014	17121	
==>n their other language(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17014	17121	
==>n their other language(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2760	2863	
==>et($self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2760	2863	
==>et($self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16330	16510	
==>"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16324	16504	
==>"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	363	457	
==>ontiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	363	457	
==>ontiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1481	1629	
==>',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Ser <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1481	1629	
==>',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Ser <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16087	16176	
==>tle <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16145	16234	
==>tle <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23244	23344	
==>e>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27796	27896	
==>e>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29254	29360	
==>} # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEX <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29254	29360	
==>} # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEX <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6374	6489	
==>se);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6374	6489	
==>se);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	715	861	
==>ee Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	715	861	
==>ee Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4602	4710	
==>$data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4602	4710	
==>$data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11885	12003	
==>s){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	294	407	
==>s) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17353	17448	
==>any source filterish modules in a much more sane manner.
Module::Compile controls the compilatio <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17353	17448	
==>any source filterish modules in a much more sane manner.
Module::Compile controls the compilatio <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6791	7019	
==>e'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol->new('$method' => 'method')
                          ),
                returns => 'nil'
            ),
            su <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	149	288	
==>rter;
use Benchmark;
use Config;
use strict;

use vars qw(
    $VERSION 
    @ISA @EXPORT @EXPORT_OK 
    $Verbose $Switches $Debug
    $ver <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	442	552	
==>immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	648	758	
==>immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4812	4912	
==>s a number, the match object returns the numified version
of the result object (usually the entire ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4812	4912	
==>s a number, the match object returns the numified version
of the result object (usually the entire ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12435	12564	
==>=> strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12435	12564	
==>=> strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handl <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3801	3940	
==>t your caller decide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file not found"
    #  say thi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6568	6667	
==>, 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6568	6667	
==>, 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16378	16500	
==>imultaneously, and that allows any end users to add
support for new languages easily and without a recompile (such as by si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16378	16500	
==>imultaneously, and that allows any end users to add
support for new languages easily and without a recompile (such as by si <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2477	2585	
==>ead/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2477	2585	
==>ead/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8999	9111	
==>rse => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero inte <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8999	9111	
==>rse => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero inte <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4836	4965	
==>ch %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $versi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4695	4824	
==>ch %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $versi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3043	3145	
==>s Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3043	3145	
==>s Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1731	1841	
==>ile") or die "open $compile: $!\n";
    my $f = do{local $/=undef; <F>}; close F;
    my $type = $compile =~ /\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10203	10308	
==>$node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4690	4822	
==>modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modifie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4690	4822	
==>modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modifie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5950	6082	
==>>parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator glob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5950	6082	
==>>parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator glob <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4874	4984	
==>sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4932	5042	
==>sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	260	391	
==>mmar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to work



{

  packa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	251	377	
==>mmar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to work

{
  packa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1377	1474	
==>e procedural interface does the same thing within a single call, hiding the 
full complexity.

=he <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1377	1474	
==>e procedural interface does the same thing within a single call, hiding the 
full complexity.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10533	10645	
==>m through this function. This is primarily a release
tool, but can be useful in other contexts as well.

== Testi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10591	10703	
==>m through this function. This is primarily a release
tool, but can be useful in other contexts as well.

== Testi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1314	1423	
==>KeyExtractor, Comparator);

# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30846	30943	
==>ld the torch for many years, and then
Michael G Schwern.

Current maintainer is Andy Lester C<< <a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	330	434	
==>? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable - a comparable type

=cut <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9068	9175	
==>encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9068	9175	
==>encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.heade <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16973	17088	
==>can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16973	17088	
==>can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	477	595	
==>my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $pm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7748	7848	
==>unks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7748	7848	
==>unks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2413	2540	
==>oisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2413	2540	
==>oisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	246	358	
==>de
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-lik <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	246	358	
==>de
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-lik <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10004	10107	
==>1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10004	10107	
==>1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	250	370	
==>d';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not en <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11604	11728	
==>Design:

  The comp hook sub should return a subref, which gets written onto a
  hopefully otherwise unused section of a rege <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25789	25884	
==>f Rosetta that you modify and distribute must carry prominent
notices stating that you changed t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25789	25884	
==>f Rosetta that you modify and distribute must carry prominent
notices stating that you changed t <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3296	3406	
==>ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a date, it does not han <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3296	3406	
==>ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a date, it does not han <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23418	23515	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23418	23515	
==>ead1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1569	1668	
==>strip away everything except status and headers
  # This should all be done better so the response d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1569	1668	
==>strip away everything except status and headers
  # This should all be done better so the response d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7046	7145	
==>tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of sib <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7046	7145	
==>tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of sib <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	13	133	
==>gs::Grammar::Str;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7294	7400	
==>lvalue is ignored - use proxy?

    my $hybrid_kludge;
    if(!ref($params)) { # a string
	$params =~ s/\A\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1207	1319	
==>_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1207	1319	
==>_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	717	844	
==>match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	728	855	
==>match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-captur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	359	458	
==>uctors should emit error messages if there are unknown parameters
    * Lazy lists are not implement <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	359	458	
==>uctors should emit error messages if there are unknown parameters
    * Lazy lists are not implement <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26854	26950	
==>>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31406	31502	
==>>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1830	1929	
==>e->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, wit <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1830	1929	
==>e->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, wit <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state1.pl	15	121	
==>state" in Perl 5
{
	my $var = new MeineKlasse;
	# $var wird nur einmal erzeugt
	sub singleton {
		return $v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40763	40857	
==>h case the returned Relation::Example is identical to the
invocant.  Another trivial case is wh <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1630	1782	
==>+@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30608	30739	
==>1 AUTHORS

Either Tim Bunce or Andreas Koenig, we don't know. What we know for
sure is, that it was inspired by Larry Wall's TEST sc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27725	27816	
==>COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_on(prog)	((prog)-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17163	17269	
==>he natural language(s) of the intended audience for the message
content.  The value is one or more language <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17163	17269	
==>he natural language(s) of the intended audience for the message
content.  The value is one or more language <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2342	2452	
==>check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$?;
}

1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2320	2430	
==>check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$?;
}

1 <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	878	1031	
==>,	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user sub as value",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Par <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3423	3556	
==>ss what to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	263	363	
==>($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	263	363	
==>($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DEFAULT) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6939	7079	
==>ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6939	7079	
==>ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    pri <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2015	2118	
==>ss->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2015	2118	
==>ss->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35826	35924	
==>defined as the implicit handler when
coercing this object to a string.

=item C<get_set_member_comb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35826	35924	
==>defined as the implicit handler when
coercing this object to a string.

=item C<get_set_member_comb <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1674	1785	
==>hod clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.inse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1674	1785	
==>hod clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.inse <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	90	202	
==>i
#  This code is totally free, use it as you want
# -----------------------------------------------
#  !!WARNING <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	90	202	
==>i
#  This code is totally free, use it as you want
# -----------------------------------------------
#  !!WARNING <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13720	13818	
==>join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17197	17295	
==>join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Rel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2476	2588	
==>ntime

    # update: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2394	2503	
==>ntime
    # update: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	956	1091	
==>ig.push({Name => $0});
			next;
		} elsif ($line ~~ rx:perl5/^(.*?)\s*?=\s*(.*)$/) {
			@config.push({Name => ''}) unless +@config;
			@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1399	1495	
==>CRIPTION

This module provides an implementation for Perl 6 regexes that use the "Perl5" switch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1385	1512	
==>{
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1961	2088	
==>{
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7938	8063	
==>eq_hash {
  my ($orig, $suspect) = @_;
  my $fail;
  while (my ($key, $value) = each %$suspect) {
    # Force a hash recompute <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	18	118	
==>Trait
sub storage is rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is read <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5119	5221	
==>name)

The C<read> method reads a config file, and returns a boolean value
of success or failure

=item <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5119	5221	
==>name)

The C<read> method reads a config file, and returns a boolean value
of success or failure

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3855	3973	
==>$new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3718	3833	
==>$new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implem <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7254	7531	
==>,
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7311	7588	
==>,
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	868	979	
==>le spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	868	979	
==>le spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6925	7053	
==>sa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6925	7053	
==>sa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5761	5872	
==>tainer::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._po <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5761	5872	
==>tainer::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._po <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1168	1278	
==>f->do();
    }
}

sub do_until {
    my ($self, $condition) = @_;
    (blessed($condition) && $condition->isa(' <==
2	/Users/nnunley/pugs/util/drift.pl	1945	2050	
==>m[0] =~ /Look, but Don't Touch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22856	22971	
==>g in the world can be modelled.

The provided roles (Relation, Tuple, Heading) are intended to be composed
into sepa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13023	13121	
==>e is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13023	13121	
==>e is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurrenc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2074	2219	
==>argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3666	3807	
==>argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16242	16340	
==>lf and
various other external documentation for much of that.

The Rosetta Native Interface is defi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16242	16340	
==>lf and
various other external documentation for much of that.

The Rosetta Native Interface is defi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3842	3953	
==>een}++;
        $result{number} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' and th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14291	14418	
==>pan, because the "separation" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterat <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14291	14418	
==>pan, because the "separation" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3510	3606	
==>-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    re <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3510	3606	
==>-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	877	1053	
==>plit(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	877	1053	
==>plit(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = u <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	287	408	
==>alf_down

}

our Int multi Num::round_half_up (Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symm <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7677	7789	
==>) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	353	500	
==>sts $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $params{'$:expect'}) {
                conf <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3058	3189	
==>te username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3058	3189	
==>te username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username h <==
2	/Users/nnunley/pugs/util/package-osx.pl	9460	9575	
==>int "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        print `rm -rf $dir/.svn`;
        print "Removed <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2591	2734	
==>Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 & <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2591	2734	
==>Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 & <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2056	2198	
==>$_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2116	2258	
==>$_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17425	17551	
==>);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17425	17551	
==>);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2094	2222	
==>lse {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2094	2222	
==>lse {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	274	385	
==>) {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

met <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	274	385	
==>) {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

met <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5406	5520	
==>_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in $rea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5406	5520	
==>_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in $rea <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1277	1381	
==>RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5274	5377	
==><[xX]>
      [ <hexdigit><hexdigit><hexdigit><hexdigit>
      | <hexdigit><hexdigit>
      | <bracket_op <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3185	3294	
==>rt => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for " <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3185	3294	
==>rt => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for " <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7365	7490	
==>rom S29draft.pod 8655.  In the List section.
multi Array::grep (@values ;  MatchTest $test   --> Lazy )
{
    List::grep $test <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1117	1228	
==>hift;
    my $param = shift;

    $self->new_pad($param->val => undef);

	$self->count_param;

    return $param <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3087	3265	
==>on $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6564	6742	
==>on $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4396	4499	
==>nion($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4396	4499	
==>nion($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13017	13136	
==>/a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colspan="11" cla <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13572	13683	
==>nitrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by entering the followi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14527	14644	
==>l :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14527	14644	
==>l :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	160	284	
==>flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-wor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	160	284	
==>flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-wor <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	349	482	
==>rule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents position <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	349	482	
==>rule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents position <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4637	4758	
==>value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- diffe <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4637	4758	
==>value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- diffe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	824	987	
==>Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	817	980	
==>Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            re <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	390	496	
==>ctually make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I think we have the same p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20394	20530	
==>ding );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation::Example.new(
        heading => $!heading.union <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19242	19346	
==>ion>
    | <Expression> <','> <AssignmentExpression>
}
rule ExpressionNoIn :words {  # see 11.14
      <A <==
2	/Users/nnunley/pugs/util/package-osx.pl	9353	9507	
==>r_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2671	2888	
==>'*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2682	2899	
==>'*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1269	1392	
==>> \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and ! <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10225	10375	
==>()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='te <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10225	10375	
==>()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='te <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3055	3254	
==>shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list {
		take shift @list;
	    }
	}
    }
}
## tweaked from PIL2JS Array.pm r8593.
#multi List::zip (Array *@arrays --> List) {
#  my $max <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	261	406	
==>o put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_ty <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	261	406	
==>o put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_ty <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2166	2328	
==>for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TR <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2166	2328	
==>for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TR <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7923	8048	
==>=> chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(873 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7923	8048	
==>=> chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(873 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2368	2482	
==>_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringif <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2368	2482	
==>_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringif <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17998	18098	
==>ome of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets attache <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2357	2457	
==>ome of the interaction is via global variables.  A lot of it uses a
regexp struct, which gets attache <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1733	1932	
==>cument => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1733	1932	
==>cument => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'roo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	478	606	
==>ature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subint <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	478	606	
==>ature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subint <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	403	532	
==>Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	403	532	
==>Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32141	32265	
==>d('add_method' => (
    # method label
        symbol->new('_make_descendant_dispatcher'),
    # method body
        method-> <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4845	4942	
==>test results from yml file
my $tests = LoadFile("tests.yml");

# Reading and processing .t files
m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1581	1700	
==>nts is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1581	1700	
==>nts is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLA <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4361	4477	
==>Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4361	4477	
==>Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12526	12628	
==>t, and then pass the result to is or ok
on success, or report that the eval was not successful on failu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12584	12686	
==>t, and then pass the result to is or ok
on success, or report that the eval was not successful on failu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2717	2827	
==>er::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2717	2827	
==>er::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PIL <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	295	443	
==>eturns Date {
    ...
}

method subtract($self: Duration $duration) returns Date {
    $self.add(-$duration);
}

method difference($self: Date $other <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34300	34398	
==>hod creates and returns a new Locale::KeyedText::Translator object.
The Set Names property of the n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34300	34398	
==>hod creates and returns a new Locale::KeyedText::Translator object.
The Set Names property of the n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4127	4246	
==>ormalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4127	4246	
==>ormalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9602	9720	
==>_vms      = $^O eq 'VMS';

sub _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$args) {
	# In VMS protect w <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18651	18751	
==>rule AssignmentExpression :words {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2077	2180	
==>, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2077	2180	
==>, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3700	3810	
==>le
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3700	3810	
==>le
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13116	13220	
==>ou're running under -T, you really mean to
	# run a fresh perl, so we'll brute force launder everything f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12996	13094	
==>is method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12996	13094	
==>is method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl da <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	541	670	
==>data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	541	670	
==>data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	888	1045	
==>push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	888	1045	
==>push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2924	3028	
==>epends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2982	3086	
==>epends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	806	901	
==>oject was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.n <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	806	901	
==>oject was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1524	1635	
==>ment;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1524	1635	
==>ment;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $stat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7985	8085	
==>alidate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7985	8085	
==>alidate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	130	231	
==>tal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kw <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	130	231	
==>tal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26498	26620	
==>self = shift;
    $self->{off};
  }

  sub visual {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $se <==
2	/Users/nnunley/pugs/util/version_h.pl	2142	2242	
==>VN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $revision\n";
  close OUT;

  if ($revision != <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	79	230	
==>export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	79	230	
==>export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26814	26910	
==>lready.

=item $parser->init()

This method installs all the flags and handlers.  F<Regexp::Parse <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2436	2555	
==>$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$construc <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2436	2555	
==>$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$construc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35536	35629	
==>ely.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation::Example $o <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4055	4161	
==>)`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The value fo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4055	4161	
==>)`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The value fo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4892	4996	
==>ks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4892	4996	
==>ks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6734	6831	
==>->new(@args);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	903	1018	
==>s, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	903	1018	
==>s, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has St <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4694	4987	
==>.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    cele <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4694	4987	
==>.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    cele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	565	720	
==>ub {
        my $m;
        my $whitespace_before = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27458	27552	
==>:t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → list α", " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	449	583	
==>lete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	449	583	
==>lete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46579	46834	
==>l->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                m <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15031	15135	
==>extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $extra ? split(/(?:[^\\]| <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25322	25418	
==>ree-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25322	25418	
==>ree-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Roset <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	533	630	
==>lass Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	533	630	
==>lass Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2160	2259	
==>k for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" will b <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2160	2259	
==>k for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" will b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3230	3355	
==>.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 p <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3230	3355	
==>.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2123	2234	
==>code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2123	2234	
==>code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3840	3948	
==>start} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my($self) = @_;
    if (!$Config{anonymo <==
2	/Users/nnunley/pugs/util/run-smoke.pl	446	540	
==>e to install at Bundle::Pugs::SmokeKit.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7587	7736	
==>ey ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7587	7736	
==>ey ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2188	2283	
==>eturn $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2188	2283	
==>eturn $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4628	4745	
==>ntent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4628	4745	
==>ntent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("mult <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7077	7189	
==>print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7077	7189	
==>print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32882	32977	
==>message()> method, but it has no other side effects.

A Translator object has 2 main attributes: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32882	32977	
==>message()> method, but it has no other side effects.

A Translator object has 2 main attributes: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	767	869	
==>nless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $ext <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	767	869	
==>nless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $ext <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16061	16155	
==>.  The difficulty
rating is so high because of cases like C</(\d+)(\w+)/> which, when
reversed, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2946	3081	
==>,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3493	3628	
==>,
    }, $class;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21339	21450	
==>E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21339	21450	
==>E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4296	4401	
==>hod complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complemen <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4296	4401	
==>hod complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complemen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3504	3648	
==>se do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3504	3648	
==>se do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!chil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2238	2349	
==>'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed proper to use this ;(
#$confi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10114	10267	
==>e' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10114	10267	
==>e' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2153	2387	
==>e ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2153	2387	
==>e ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.p <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1877	1984	
==>features are still missing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wan <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1877	1984	
==>features are still missing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wan <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11831	11931	
==>i.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11831	11931	
==>i.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1092	1201	
==>mar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1092	1201	
==>mar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31600	31706	
==>uses both libraries
could have yet another set for itself.  When the program is run, it would
determine eit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31600	31706	
==>uses both libraries
could have yet another set for itself.  When the program is run, it would
determine eit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8006	8113	
==>eturn ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7732	7835	
==>eturn ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3921	4035	
==>sername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3921	4035	
==>sername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a cha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6666	6780	
==>Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6666	6780	
==>Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	883	1054	
==>cat {
    my ($left, $right) = @_;
    (blessed($right))
        || confess "The right hand side must be a core type";
    return str->new($left->to_native . $right->to_str <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1828	1952	
==>!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1828	1952	
==>!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11801	11932	
==>digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # P <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11801	11932	
==>digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31987	32083	
==>rences).

=item off

The flags specifically turned off for this object (for flag assertions
and C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25463	25629	
==>et('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->new('@:superclas <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7121	7320	
==>pture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $ne <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7121	7320	
==>pture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5109	5217	
==>d %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5109	5217	
==>d %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1999	2097	
==>, or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1999	2097	
==>, or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Although A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3022	3131	
==>e($runtime, $env, $program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->new;
    my $comp <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1618	1708	
==>Compress::Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke"));
}

sub requi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1895	2014	
==>$self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $.complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1895	2014	
==>$self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_next;
        $.complem <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	629	733	
==>ace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type ke <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	629	733	
==>ace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type ke <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	310	458	
==>value('$:value');
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self->set_value('$:val <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8628	8757	
==>-any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNICO <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1524	1677	
==>.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1524	1677	
==>.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	355	447	
==>e = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	355	447	
==>e = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_file <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	538	636	
==>eturns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	596	694	
==>eturns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4775	4899	
==>@path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq upd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4775	4899	
==>@path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq upd <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21441	21548	
==>eta('Scalar')->new();
    $$mn->ASSIGN($v);
}
sub p6_assign {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2173	2268	
==>un with taint mode on.

=head2 Configuration variables.

These variables can be used to configur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10444	10576	
==>$text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10444	10576	
==>$text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	382	499	
==>sh @modules, $File::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MOD <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	225	340	
==>" }

	sub fmap {
		my $self = shift;
		my $f = shift;
		my $res = (ref $self)->new($f->($self->val));
	}
}

{
	packa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12297	12404	
==>d each heredoc, pod section, comment block and data section, each
# into a single line containing a digest o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12297	12404	
==>d each heredoc, pod section, comment block and data section, each
# into a single line containing a digest o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23777	23907	
==>_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28978	29083	
==>_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13867	13984	
==>l5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13861	13978	
==>l5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14006	14159	
==>{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trai <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8373	8486	
==>lf.span.union( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8373	8486	
==>lf.span.union( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5853	5956	
==>use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix modul <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5853	5956	
==>use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix modul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2887	3016	
==>k.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2887	3016	
==>k.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	148	264	
==>t<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	148	264	
==>t<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($e <==
2	/Users/nnunley/pugs/util/importgraph.pl	680	785	
==>open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^modul <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2966	3059	
==>ct = $node->struct_equiv;
		my $type = Scalar::Util::blessed($struct) ? $struct->moniker : "co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21678	21777	
==>tion tuples may be individually addressed only by their values; neither
may be addressed by any ordi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26230	26329	
==>tion tuples may be individually addressed only by their values; neither
may be addressed by any ordi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15949	16062	
==>lution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2342	2455	
==>lution {
    my $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17716	17833	
==>e"
    $P1 = subclass $P0, grammar 
  end:
    .return (sub, code, exp)
.end

.namespace [ "PGE::Exp" ]

.sub "p6analy <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15759	15865	
==>ymbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2156	2262	
==>ymbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6913	7066	
==>->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6913	7066	
==>->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10729	10842	
==>5
      <'\\'> <NonTerminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <LineTerminator>> <SourceCharact <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9112	9243	
==>st    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify prope <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10589	10720	
==>st    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify prope <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1943	2035	
==>rticle on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources wri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1943	2035	
==>rticle on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources wri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	778	877	
==>rrently defined as subs, which we can get away with since
   this is currently simply a code generat <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	778	877	
==>rrently defined as subs, which we can get away with since
   this is currently simply a code generat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17045	17146	
==>nner, such that would not be possible if its
functionality was subsumed into a larger package that wou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17045	17146	
==>nner, such that would not be possible if its
functionality was subsumed into a larger package that wou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6364	6459	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6364	6459	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	638	729	
==>horization Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	638	729	
==>horization Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5729	5817	
==>over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2 <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5729	5817	
==>over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	262	364	
==>ses would be in one file,
   and the defining macros, for each of various class hierarchies,
   in othe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	262	364	
==>ses would be in one file,
   and the defining macros, for each of various class hierarchies,
   in othe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2989	3097	
==>my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2989	3097	
==>my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1517	1696	
==>ase');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1517	1696	
==>ase');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	259	380	
==>sing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lex <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	259	380	
==>sing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5956	6060	
==>nslate_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $message p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5956	6060	
==>nslate_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $message p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3149	3259	
==>le to related-key attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
fu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3149	3259	
==>le to related-key attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
fu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7620	7718	
==>return $a;
}
sub node::variable {
    return $_[0];
}
*node::varscalar = *node::varhash = *node::va <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9465	9656	
==>ine (\d+)(?:.*line (\d+))?/s;
      my @lines;
      if (defined $end && $end > 0) {
         @lines = $start .. $end;
      } else {
         @lines = ($start);
      }
      next unless $sta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24335	24443	
==>is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns H <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28887	28995	
==>is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns H <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	296	426	
==>e node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	296	426	
==>e node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13174	13330	
==>'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10156	10263	
==>while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2... <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2934	3051	
==>eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2934	3051	
==>eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15001	15109	
==>`new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15001	15109	
==>`new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10335	10439	
==>an "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to rea <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10335	10439	
==>an "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to rea <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1741	1842	
==>lue of the 
pair is currently unused, but for forward compatibility it should always be the 
value C<1 <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1741	1842	
==>lue of the 
pair is currently unused, but for forward compatibility it should always be the 
value C<1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5449	5605	
==>ap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5461	5617	
==>ap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previou <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4819	4961	
==>too big.\n";
        }
        else {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true if it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	544	669	
==>add_op {
    # name=>'*', precedence=>'>', other=>'+', rule=>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4990	5166	
==>ady?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5454	5630	
==>ady?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4002	4177	
==>s $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4002	4177	
==>s $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1281	1400	
==>ame 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1271	1381	
==>ame 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15951	16054	
==>mple: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / `inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15951	16054	
==>mple: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / `inters <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3187	3323	
==>IS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3187	3323	
==>IS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17825	18005	
==>},
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17825	18005	
==>},
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16595	16706	
==>$self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13016	13127	
==>$self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2898	3017	
==>b node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2898	3017	
==>b node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18238	18338	
==>gister callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18238	18338	
==>gister callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3949	4060	
==>I users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3949	4060	
==>I users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enci <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4967	5093	
==>e[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5239	5399	
==>::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5239	5399	
==>::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $di <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2773	2889	
==>0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2773	2889	
==>0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2954	3088	
==>if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2954	3088	
==>if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!par <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3994	4102	
==>hitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3994	4102	
==>hitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1922	2027	
==>ate($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1922	2027	
==>ate($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22014	22276	
==>" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22293	22555	
==>" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18540	18651	
==>officially is not and you should not share
Rosetta objects between multiple threads, nor have objects in separat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18540	18651	
==>officially is not and you should not share
Rosetta objects between multiple threads, nor have objects in separat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3815	3950	
==>e object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is someth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3827	3962	
==>e object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is someth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13235	13357	
==>me() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13235	13357	
==>me() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2005	2217	
==>n rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2005	2217	
==>n rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9483	9614	
==>"<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to te <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9483	9614	
==>"<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to te <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	626	727	
==>or correctness,
# simply run this program in the same directory containing
# those files.
#
# Enjoy! - <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18611	18731	
==>ly the names you specified in the constructor. For example,
this module automatically tries to use slight variations of t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18611	18731	
==>ly the names you specified in the constructor. For example,
this module automatically tries to use slight variations of t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7269	7394	
==>$span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7269	7394	
==>$span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15059	15166	
==>SIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9258	9365	
==>SIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5287	5396	
==>iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14344	14486	
==>" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14338	14480	
==>" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	381	507	
==>regcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execute( <==
2	/Users/nnunley/pugs/t/packages/Test.pm	5	121	
==>ge t::packages::Test;

sub ns  { "t::packages::Test" }

sub pkg { $?PACKAGE }

sub test_export is export { "party isl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1197	1316	
==>fy($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exis <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1197	1316	
==>fy($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exis <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16106	16197	
==>ctive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval K <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16164	16255	
==>ctive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval K <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10712	10803	
==>B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_type retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10712	10803	
==>B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_type retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4949	5076	
==>"tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4949	5076	
==>"tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18706	18803	
==>strings to show human users.  This association would normally be
stored in a Perl file that define <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18706	18803	
==>strings to show human users.  This association would normally be
stored in a Perl file that define <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4537	4638	
==>7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4537	4638	
==>7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6158	6257	
==>re complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6158	6257	
==>re complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parse <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2246	2352	
==>NCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new functio <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2246	2352	
==>NCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new functio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5931	6085	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6124	6278	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capt <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7007	7148	
==>SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	37	139	
==>ucer::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6471	6570	
==>ents> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6471	6570	
==>ents> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2934	3108	
==>:AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} # role Relation::Head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	75	180	
==>nfig;
use JIB::Utils;
use JIB::Package;

use File::chdir;
use File::Basename          qw[basename];
use Fi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2242	2361	
==>) }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2242	2361	
==>) }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	110	229	
==>s = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	110	229	
==>s = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6584	6705	
==>ious () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*re <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6584	6705	
==>ious () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*re <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1330	1430	
==>th zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1330	1430	
==>th zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	984	1083	
==>em B<new (~type) returns reference>

=item B<to_native () returns *native*>

=item B<to_bit () retur <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2546	2633	
==>d at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<n <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2546	2633	
==>d at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<n <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1674	1924	
==>s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        % <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1674	1924	
==>s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        % <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6716	6827	
==>it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6716	6827	
==>it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	907	1003	
==>ass Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	907	1003	
==>ass Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	558	704	
==>sh @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        uns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	558	704	
==>sh @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        uns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9667	9787	
==>{ $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9667	9787	
==>{ $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2407	2531	
==>or error( "Could not remove metadir from '$tmpdir" ), return;
# 
#         ### copy these sources to a build dir
#         JI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	109	236	
==>concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	109	236	
==>concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2221	2333	
==>use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2361	2473	
==>use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flag <==
2	/Users/nnunley/pugs/util/package-osx.pl	4702	4805	
==>ocal/man/man3/Perl6::Bible::S06.3pm
        /usr/local/man/man3/Perl6::Bible::S09.3pm
        /usr/local <==
2	/Users/nnunley/pugs/util/version_h.pl	379	477	
==>use SVN keyword expansion (like $Rev$), because
# that is only updated when the file in which the k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1029	1137	
==>op::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate longest <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	988	1094	
==>op::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	590	749	
==>e->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	590	749	
==>e->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30461	30567	
==>f ($order->equal_to(str->new(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $self->send( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7981	8085	
==>does rFoo');
ok($FooBar->does('rBar'), '... FooBar does rBar');

# and our instances do the roles as well <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2723	2856	
==>s only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all chars impleme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2907	3040	
==>s only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all chars impleme <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15973	16075	
==>? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in the Document obj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15973	16075	
==>? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in the Document obj <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2438	2535	
==>pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2438	2535	
==>pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	14	111	
==>l
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	14	111	
==>l
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6pri <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7309	7453	
==>');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4589	4730	
==>');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7765	7861	
==>This event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7765	7861	
==>This event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14072	14235	
==>d";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14066	14229	
==>d";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9780	9916	
==>eturn;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9780	9916	
==>eturn;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46384	46525	
==>ol->new('FETCH'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8718	8847	
==>_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8718	8847	
==>_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3827	3948	
==>') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8493	8590	
==>Annotation->new(
				struct_equiv => $_[0],
				type => Blondie::TypeSafe::Type::Bottom->new,
			) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7326	7461	
==>h->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7326	7461	
==>h->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- ar <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2055	2153	
==>a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Per <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2055	2153	
==>a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25643	25748	
==>he key is intended to be read by a machine and
mapped to a user-readable message; the key itself is not me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25643	25748	
==>he key is intended to be read by a machine and
mapped to a user-readable message; the key itself is not me <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2109	2213	
==>elf: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2109	2213	
==>elf: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18815	18914	
==>to
support (such as modification of the compiled re op tree the native
compiler creates, but which w <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3105	3204	
==>to
support (such as modification of the compiled re op tree the native
compiler creates, but which w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11079	11277	
==>is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13933	14025	
==>)

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13933	14025	
==>)

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14399	14500	
==>cter appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14457	14558	
==>cter appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5318	5406	
==>mc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5318	5406	
==>mc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1583	1710	
==>ze; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1583	1710	
==>ze; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2538	2653	
==>ls->_copy( file => $tmpsrc, to => $builddir )
#             or error( "Could not copy sources to '$builddir'" ), ret <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1101	1218	
==>truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num::int ::= &Num::truncate;

 # XX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15571	15691	
==>ler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10427	10547	
==>ler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1899	1999	
==>ns => $options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/, $n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9309	9398	
==>oo::test_iFoo_singleton_method' 
});

is($iFoo->test_iFoo_singleton_method(), 
   '$iFoo:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	688	821	
==>_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule speci <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	688	821	
==>_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule speci <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4664	4788	
==>ntersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stri <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4664	4788	
==>ntersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15135	15235	
==>ment, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string is re <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15135	15235	
==>ment, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string is re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	875	1007	
==>o { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	875	1007	
==>o { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	403	521	
==>since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	403	521	
==>since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6572	6698	
==>($$@) { like_yn (0,@_) }; # 0 for -
sub unlike ($$@) { like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32726	32842	
==>he class, and it's a good idea to do so I<inside> the class as well.

=head1 OBJECTS

All objects are prefixed with F <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6192	6309	
==>do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving about whitespace in some sit <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6192	6309	
==>do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving about whitespace in some sit <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6587	6706	
==>f $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6587	6706	
==>f $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14601	14766	
==>::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregorian dates are inaccurate" - GHC
                        # System.Time
    has Int  $.month;   # 1 to 12 - NO <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4245	4348	
==>ass);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_that_should_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18011	18101	
==>x),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18322	18412	
==>x),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0, <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4186	4328	
==>ist      pre     sort    safe   (Array)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3912	4008	
==>MC support.

  Can't locate object method "compile" via package "Pugs::Compiler::Perl6"

Please s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15919	16103	
==>w($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$c')
                      ->send('get_attr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10419	10559	
==>$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $progra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10413	10553	
==>$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $progra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3982	4095	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1289	1402	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1909	2048	
==>ode = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1909	2048	
==>ode = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17446	17542	
==>ww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17446	17542	
==>ww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9882	10024	
==>$!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9882	10024	
==>$!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3147	3298	
==>, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3147	3298	
==>, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14369	14486	
==>expanded:\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1485	1573	
==>UGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	451	555	
==>,
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	451	555	
==>,
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.] <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10945	11039	
==>fo returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<docume <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10945	11039	
==>fo returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<docume <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2433	2542	
==>join $delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice(num->new(0), $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7822	7921	
==>ect will
still be returned, but if you use regex() then it will return false.

  if (! $parser->rege <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13192	13291	
==>fier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier unex <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12315	12430	
==>lation::Example {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the headi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	864	964	
==>str => \\$s, from => \\(0+$-[0]), to => \\(0+$+[0]),
    bool => \\$bool, match => \\@match, named = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17389	17518	
==>=~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13810	13939	
==>=~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17396	17501	
==>andler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17396	17501	
==>andler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main e <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22728	22846	
==>> comb(
				fun => ide("pair"),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2939	3069	
==>is or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2939	3069	
==>is or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4301	4401	
==>ens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @toke <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4301	4401	
==>ens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @toke <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4042	4229	
==>m=>'"'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of lin <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	656	755	
==>_Input($input) is exported(:all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chapter 8 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1119	1221	
==>t
data for stubs and other thingies.

It also gives the compiler the default environment to work with ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5752	5854	
==>implemented within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5752	5854	
==>implemented within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16192	16291	
==>it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2601	2700	
==>it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symb <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6930	7057	
==>Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6930	7057	
==>Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13226	13324	
==>allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named paramet <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13284	13382	
==>allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named paramet <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3417	3558	
==>mization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3417	3558	
==>mization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!chil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5765	5862	
==>possibility is to return a negative value for
# relative seconds and a positive value for epoch ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5765	5862	
==>possibility is to return a negative value for
# relative seconds and a positive value for epoch ba <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4218	4428	
==>5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4218	4428	
==>5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1916	2050	
==>$dirname = basename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $tmpdir, $dirname );
# 
#         
#         ### copy ov <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	276	379	
==>ame = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	276	379	
==>ame = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2679	2772	
==>u can also read the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2679	2772	
==>u can also read the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9785	9909	
==>_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9785	9909	
==>_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	325	477	
==>aw_role_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = ora <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4684	4811	
==>idates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1915	2054	
==>L::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::U <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1915	2054	
==>L::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::U <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4197	4293	
==>_to_scalar {
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9110	9221	
==>e v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9168	9279	
==>e v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32209	32354	
==>scendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32864	33009	
==>scendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20804	20894	
==>dule distribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20804	20894	
==>dule distribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2809	2908	
==>turns Str { @months[./month_0] }

our @months_abbr = <Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov De <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4256	4348	
==>_ng(W)) --> "+?", !.
p56_quantified_op(W, ques(W))    --> "?", !.
p56_quantified_op(W, star(W <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5675	5776	
==>eturn ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.ite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5675	5776	
==>eturn ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.ite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	822	957	
==>$match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	822	957	
==>$match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2578	2761	
==>);
            },
            hash_isEmpty => sub {
                my $self = shift;
                # FIXME context should be propagated to methods
                scalar(() = $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38363	38483	
==>t($type => 1, @$_);
    }

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a samp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2995	3209	
==>tim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbati <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2995	3209	
==>tim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbati <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9695	9833	
==>nels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9695	9833	
==>nels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel)} },
    user          => -> Str $nic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	691	816	
==>d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	691	816	
==>d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $status_l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18758	18858	
==>ts $document and optional
$parent_node though; you can produce a direct clone like this:

    my $clo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18758	18858	
==>ts $document and optional
$parent_node though; you can produce a direct clone like this:

    my $clo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2013	2186	
==>FILE_OF_META  ];
$config{'_registered_alternatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7847	7949	
==>rce_object(anyof_class => alnum => $neg, $how);
  });

  # ascii POSIX class
  $self->add_handler('POSI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2927	3037	
==>nds);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2985	3095	
==>nds);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depend <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	57	164	
==>::Run::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $c = PIL::Run:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	434	522	
==>clude "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_intege <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15384	15499	
==>tifies what kind of Node this is, and by extension
what kinds of attributes or relative Nodes it can have, as well a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15384	15499	
==>tifies what kind of Node this is, and by extension
what kinds of attributes or relative Nodes it can have, as well a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2607	2737	
==>oY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2607	2737	
==>oY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	448	555	
==>t up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( q <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	183	290	
==>t up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   system( q <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4279	4438	
==>,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep  => $rep,
        type => $type,
        pairs => $pai <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1459	1590	
==>graph->set(
  title        => "Pugs development",
  x_label      => "Days",
  y_label      => "Commits/Developers",
  x_label_skip = <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	257	380	
==>d footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run" <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	257	380	
==>d footer returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7921	8059	
==>e" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was a <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7921	8059	
==>e" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6310	6556	
==>s_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::WALKMETH"
        (closure new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38461	38569	
==>me);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  my @RX = ( <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1739	1906	
==>me ( $arg ) {
            $.name ||= $arg.name;
            push @.names, $arg.name;
        }
        
        method append_value ( $arg ) {
            $.string = $a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10812	10921	
==>package => $new_alt );
    }

    ### remove this package from the available list
    $self->remove_available( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4828	4924	
==>match object returns the numified version
of the result object (usually the entire match string). <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4828	4924	
==>match object returns the numified version
of the result object (usually the entire match string). <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6302	6409	
==>);
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insuf <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6302	6409	
==>);
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insuf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27041	27162	
==>e $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27041	27162	
==>e $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23230	23330	
==>Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = join(",",@ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4808	4963	
==>= @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4808	4963	
==>= @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11921	12143	
==>k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11921	12143	
==>k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n") <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3929	4031	
==>stributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3929	4031	
==>stributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	595	752	
==>tem( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	877	1022	
==>tem( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8241	8352	
==>object.

options:

=item * grammar => $category_name - the name of this category 
(a namespace or a Grammar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3423	3524	
==>ift;
  my $object = bless {}, $class;
  $object;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P6R <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15337	15441	
==>wfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto err_close
  name <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	171	268	
==>tails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, Str ?$fil <==
2	/Users/nnunley/pugs/util/func_refact.pl	3170	3265	
==>[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
sub ::YY { require Carp; Carp::confess(::Y(@_)) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4179	4281	
==>se Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4179	4281	
==>se Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMP <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1631	1729	
==>SCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1631	1729	
==>SCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19060	19164	
==>_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19060	19164	
==>_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1988	2092	
==>ent { num->new((shift)->to_native - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num type


=head <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1083	1183	
==>antify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Instead
of c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1083	1183	
==>antify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  Instead
of c <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	664	792	
==>hen is a sexy new P6 construct that can avoid
        # long if/elsif/else chains
        given $tok {
            when '+' { @st <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7590	7700	
==>Returns a lazy list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7590	7700	
==>Returns a lazy list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1270	1432	
==>esterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand wav <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1270	1432	
==>esterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand wav <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1003	1130	
==>, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1003	1130	
==>, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	829	927	
==>rates at the byte level, not the character level, so different 
character encodings may be encipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	829	927	
==>rates at the byte level, not the character level, so different 
character encodings may be encipher <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9904	10001	
==>e referred to as "immediate" and "deferred".  The immediate validations
are performed at the momen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9904	10001	
==>e referred to as "immediate" and "deferred".  The immediate validations
are performed at the momen <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	68	194	
==>Blondie::Backend::Perl/;

use strict;
use warnings;

use Term::ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } gr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3387	3563	
==>$line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3387	3563	
==>$line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24096	24196	
==>into the program code itself, so it then becomes a version of that
language.  By contrast, Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24096	24196	
==>into the program code itself, so it then becomes a version of that
language.  By contrast, Locale::Ke <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2099	2212	
==>al 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3007	3130	
==>time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3485	3608	
==>time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	611	711	
==>e ciphers simply by changing the class name used.

Ciphers used with the Cipher API must operate on b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	611	711	
==>e ciphers simply by changing the class name used.

Ciphers used with the Cipher API must operate on b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10050	10153	
==>t
fails immediate evaluation will not be set at all.  The scope of immediate
validation is kept to the m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10050	10153	
==>t
fails immediate evaluation will not be set at all.  The scope of immediate
validation is kept to the m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3389	3523	
==>out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header(' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3389	3523	
==>out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header(' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7985	8106	
==>($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8043	8164	
==>($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "u <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1572	1657	
==>:Zlib::memGunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBunzip($CGI->param(" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2737	2880	
==>ar($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2737	2880	
==>ar($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fo <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1638	1741	
==>ule::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.pl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1638	1741	
==>ule::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.pl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27277	27370	
==>ser->add_flag($flag, $code)

This method creates a method of the parser C<FLAG_$flag>, and set <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9976	10085	
==>py, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9976	10085	
==>py, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2415	2519	
==>rs));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method pro <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2415	2519	
==>rs));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method pro <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3390	3528	
==>ed, setting license = 'unknown'\n"
      unless $values{license};

    $values{license}           ||= 'unknown';
    $values{distribution_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4120	4250	
==>> $_[1], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { o <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3923	4014	
==>::Spec->catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21810	21931	
==>ect(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18231	18352	
==>ect(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18986	19184	
==>eader, when there is no regex
                # or if the regex failed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17085	17196	
==>/^((.{1,50}).*)/;
        $name .= '...' if length $first_line > length $name;
    }

    _ok($pass, _where(), " <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26351	26456	
==>> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null>
    | <NonemptyClassRanges>
}
rule NonemptyClassR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14789	14900	
==>[-1] = $self;
    }
  }
}


{
  # ( non-capturing
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::Pars <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10526	10675	
==>ined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10526	10675	
==>ined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2233	2334	
==>astian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library i <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2233	2334	
==>astian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9573	9673	
==>ip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some mi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9631	9731	
==>ip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some mi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3132	3253	
==>352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3132	3253	
==>352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        split " " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24927	25019	
==>1)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24927	25019	
==>1)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18203	18347	
==>anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14624	14768	
==>anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6515	6615	
==>val($code);
	Carp::confess("p6_new($cls,$name,...):\n$@\n") if $@;
	return $ret;
    }
    if($cls =~ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6151	6249	
==>die::TypeSafe::Flatten->new->reduce($node));
			$de_facto_type->set($expected_type);
			return $nod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48399	48488	
==>ule = $::Class->send('new');
$::Module->send('superclasses' => list->new($::Package));


$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7494	7642	
==>ns[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7494	7642	
==>ns[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            u <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9719	9872	
==>y|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	942	1071	
==>y|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25808	25912	
==>e new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation attribute names <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30360	30464	
==>e new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation attribute names <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	162	258	
==>= Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	162	258	
==>= Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5198	5293	
==>ing");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5198	5293	
==>ing");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1832	1933	
==>ter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1832	1933	
==>ter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add l <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	310	416	
==>->add_node($fn); next }
	if($fn) { $funcs{$fn} .= $_ }
}

our %nodes;
for my $key (keys %funcs) {
	for my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8765	8858	
==>gest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8765	8858	
==>gest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1468	1575	
==>epresenting a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a sing <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1468	1575	
==>epresenting a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a sing <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15427	15531	
==>esc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Becaus <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15485	15589	
==>esc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Becaus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2753	2964	
==>$path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2753	2964	
==>$path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3340	3500	
==>concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3340	3500	
==>concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'an <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28442	28556	
==>); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((prog)->reganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11772	11875	
==>and handles them properly.  The nchar() method takes
a named character's name, and returns the actual ch <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8746	8846	
==>is the fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26804	26898	
==>tional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the cor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26804	26898	
==>tional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the cor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9237	9365	
==>ifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3056	3173	
==>n    {\n" . emit($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' );
    my $b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3401	3497	
==>osition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alnu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1104	1198	
==>osition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:al <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23483	23621	
==>lf["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	335	443	
==>s::Compiler::RegexPerl5;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $so <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1511	1634	
==>nal $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1511	1634	
==>nal $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7466	7577	
==>y($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7466	7577	
==>y($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19296	19393	
==>is information is in separate resource files used by the
program, so that if you wanted to upgrade <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19296	19393	
==>is information is in separate resource files used by the
program, so that if you wanted to upgrade <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23406	23501	
==>ponent or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23406	23501	
==>ponent or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1549	1640	
==>h  = $parent.depth() + 1;
}

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1549	1640	
==>h  = $parent.depth() + 1;
}

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4927	5026	
==>pletes ciphering of any leftover data and returns it as an array of bytes, 
then clears the object's <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4927	5026	
==>pletes ciphering of any leftover data and returns it as an array of bytes, 
then clears the object's <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2487	2593	
==>to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps may not return all (o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2487	2593	
==>to finish the ciphering and clear the cipher's state.  
Remember that ciphering steps may not return all (o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	942	1052	
==>r a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that cont <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	942	1052	
==>r a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that cont <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5531	5639	
==>ure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5531	5639	
==>ure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23416	23534	
==>p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	58	156	
==>od - functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code obje <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25258	25354	
==>he Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25258	25354	
==>he Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and d <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3232	3337	
==>y this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3232	3337	
==>y this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is co <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12801	12900	
==>ch can be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12801	12900	
==>ch can be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15729	15841	
==>());
                $e->create('&dispatcher' => $e->get('$class:')->send('dispatcher' => (symbol->new(':descenda <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	835	937	
==>mpilation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit fro <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	835	937	
==>mpilation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit fro <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14444	14537	
==>($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14444	14537	
==>($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $strin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2889	2997	
==>{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀${_}." } @forall),
		   $pretty->app <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6414	6515	
==>----- rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6426	6527	
==>----- rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1390	1560	
==>al
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1378	1548	
==>al
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2292	2389	
==>s the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> convert <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2381	2478	
==>s the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> convert <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4254	4355	
==>ound by the Param object).

Then the thunk for + will be reduced, with 1 and 10 in the parameter stack <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5502	5623	
==>y have them in $real_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5502	5623	
==>y have them in $real_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24158	24251	
==>that
language.  By contrast, Locale::KeyedText does no compile time binding and
will support m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24158	24251	
==>that
language.  By contrast, Locale::KeyedText does no compile time binding and
will support m <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	115	228	
==>};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	115	228	
==>};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	129	260	
==>missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method fo <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	129	260	
==>missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3185	3309	
==>-- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional paramet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3369	3493	
==>-- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional paramet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	755	868	
==>], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratchet';
  }
  return bless \\{
    str = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	371	490	
==>, $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->war <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21740	21833	
==>from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);
}
sub p6_mangle {
    my( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5182	5306	
==>>add_method($label, $method);
        },          
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18598	18758	
==>pture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18877	19037	
==>pture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3041	3189	
==>my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3041	3189	
==>my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23622	23747	
==>andler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20043	20168	
==>andler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13120	13219	
==>s are returned.

If called in void context the arguments are decoded in-place.

This routine is expo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13120	13219	
==>s are returned.

If called in void context the arguments are decoded in-place.

This routine is expo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	572	689	
==>an) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing failure diagnostic
# mes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	398	563	
==>request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	398	563	
==>request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $pro <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2460	2598	
==>>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2460	2598	
==>>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8154	8255	
==>nless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8212	8313	
==>nless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1609	1701	
==>y::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1609	1701	
==>y::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8021	8119	
==>lves is when you need do perform "set" operations on 
Span objects, that return lists of spans.

In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8021	8119	
==>lves is when you need do perform "set" operations on 
Span objects, that return lists of spans.

In <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3509	3615	
==>s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Env <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3509	3615	
==>s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Env <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9913	10014	
==>load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_L <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9913	10014	
==>load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_L <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4417	4530	
==>, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4417	4530	
==>, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dir <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1221	1325	
==>repo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path::Class::dir('d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	651	755	
==>tent interface
sub to_bit { shift }

# conversion to other native types
sub to_str { (shift)->to_native ? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3637	3748	
==>rnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3854	3965	
==>rnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27787	27892	
==>new().

=item C<get_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27787	27892	
==>new().

=item C<get_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2838	2978	
==>k => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => '+',
        fixity => 'infix',
    } );

    print "c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2681	2800	
==>e {
    my ($in, $out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "open: $in: $!";
    open my <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14179	14263	
==>{true}.

uncode_charname_to_char(Name,C) :- cached_uncode_charname_to_char(Name,C), ! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17356	17466	
==>lish the
way it is written in the US.

=item $h.title

The title of the document.  In libwww-perl this header w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17356	17466	
==>lish the
way it is written in the US.

=item $h.title

The title of the document.  In libwww-perl this header w <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1547	1662	
==>the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1547	1662	
==>the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's childre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13628	13736	
==>ou can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$orig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13628	13736	
==>ou can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$orig <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	449	551	
==>e) {
    %Session{$variable} = $value;
}

sub SessionGet($variable) {
    return %Session{$variable};
} <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18572	18663	
==>m(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18045	18154	
==>ultiple DBMS objects will not
have references to each other at a level visible in the Rosetta Native
Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18045	18154	
==>ultiple DBMS objects will not
have references to each other at a level visible in the Rosetta Native
Interface <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22599	22693	
==>ntation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22599	22693	
==>ntation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7951	8049	
==>ar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('rBar'), '... FooBar does rBar');

# an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8836	8975	
==>re( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9029	9168	
==>re( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4029	4188	
==>ntime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4029	4188	
==>ntime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2116	2245	
==>aults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a directory is ad <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2116	2245	
==>aults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a directory is ad <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6434	6615	
==>t ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature ne <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15007	15140	
==>1
    has Int  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # variatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3479	3581	
==>-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3663	3765	
==>-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1805	2210	
==>bject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Comma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1805	2210	
==>bject:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Comma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4679	4834	
==>lf.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4679	4834	
==>lf.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	379	490	
==>> $params{'$.output'}       || \*STDOUT);
            _('$.error_output' => $params{'$.error_output'} || \*STDER <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	167	276	
==>edu/gnu/doc/html/bison_[6,8].html

# notes:
#  'assoc' is one of:  nonassoc / right / left

my $g = <<'EO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19240	19345	
==>st autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currentl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19240	19345	
==>st autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currentl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9641	9757	
==>otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9641	9757	
==>otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20947	21043	
==>or header() method, the same
field name should not occur multiple times.  The result of doing so, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20947	21043	
==>or header() method, the same
field name should not occur multiple times.  The result of doing so, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2996	3099	
==>of a lot of Perl 5 modules,
it is completely independent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28307	28405	
==>e)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsucce <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	170	263	
==>has $.width;

has $!parent;
has @!children;

## ---------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	170	263	
==>has $.width;

has $!parent;
has @!children;

## ---------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	931	1040	
==>$self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	931	1040	
==>$self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	465	574	
==>g_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	523	632	
==>g_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22416	22515	
==>nstalled in.

Generally, when a program package would return a code-key to indicate a
condition, oft <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22416	22515	
==>nstalled in.

Generally, when a program package would return a code-key to indicate a
condition, oft <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	241	349	
==>r;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	241	349	
==>r;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7282	7424	
==>LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7282	7424	
==>LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5852	6003	
==>0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24221	24347	
==>G_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26413	26510	
==>ch are references will be passed by reference, so you
may store references to other objects in the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26413	26510	
==>ch are references will be passed by reference, so you
may store references to other objects in the <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	130	253	
==>search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @pat <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	130	253	
==>search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @pat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	444	564	
==>ts<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Per <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	444	564	
==>ts<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5974	6085	
==>malize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5974	6085	
==>malize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4567	4753	
==>gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.sta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4567	4753	
==>gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.sta <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11184	11283	
==>il a non-zero (tie) result is achieved.

Criterion can take a few different forms:

=over 8

=item C <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6107	6214	
==>rray
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_map (@array:) returns <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23824	23925	
==>tta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shel <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23824	23925	
==>tta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10809	10923	
==>t )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@g <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10809	10923	
==>t )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@g <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3074	3181	
==>backs can have them.
    $self->{totals}{$name}         = \%totals;
    while( defined(my $line = $it->next) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26285	26380	
==>default to 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> for this <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8422	8520	
==>page contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCI <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8422	8520	
==>page contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCI <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25728	25826	
==>a-z].foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #define ROPT_ANCH		(ROPT_ANCH_B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1288	1413	
==>n, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1288	1413	
==>n, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', g <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	143	248	
==>ll.
  has Code @:events;

  submethod BUILD ($self:) {
    die "There can only be one instance of POE::Ker <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27124	27235	
==>join "", $self->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3829	3944	
==>$module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that might <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3829	3944	
==>$module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that might <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3501	3655	
==>$age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3501	3655	
==>$age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2752	2911	
==>kslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprintf "\\%0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6029	6151	
==>this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5836	5954	
==>this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6389	6499	
==>never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6173	6281	
==>never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7733	7836	
==>> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional "continu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7471	7571	
==>> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional "continu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1595	1724	
==>is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1595	1724	
==>is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # T <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5719	5840	
==>erclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' } <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10030	10151	
==>erclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3489	3614	
==>todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $calle <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3547	3672	
==>todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $calle <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5620	5729	
==>to a native type";
    $self->{env}->{$name} = reference->new($value);      
}

sub set {
    my ($self, $name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1242	1336	
==>d1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1242	1336	
==>d1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8798	8951	
==>l5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eva <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9633	9786	
==>l5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eva <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6489	6653	
==>s in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6489	6653	
==>s in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cook <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5151	5267	
==>- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5151	5267	
==>- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27572	27673	
==>the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27572	27673	
==>the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3097	3194	
==>o send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that yo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3097	3194	
==>o send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that yo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1404	1522	
==>"/" . $remainder, "/" );
    $extracted2 = substr( $extracted2, 1, -1 ) if length($extracted2) > 1;
    return Pugs::Ru <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12929	13013	
==>,"}"). brackets("(",")"). brackets("[","]").
brackets("<",">"). brackets(">","<").
br <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	991	1099	
==>on
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	991	1099	
==>on
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# c <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1918	2097	
==>Bool>),
                        Tree.new(:node<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tree.new(:n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5874	5978	
==>e->new('@:subclasses')      => list->new(),
            attribute->new('@:superclasses')    => list->new( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13668	13859	
==>son );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            el <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13668	13859	
==>son );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4487	4596	
==>od.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4737	4846	
==>od.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experime <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	53	173	
==>_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	53	173	
==>_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_optio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16027	16134	
==>rg>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16085	16192	
==>rg>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4586	4710	
==>);



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4430	4548	
==>);

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2400	2501	
==>ave it enciphered or deciphered; when you're done, call the closure 
with no arguments to finish the c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2400	2501	
==>ave it enciphered or deciphered; when you're done, call the closure 
with no arguments to finish the c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2618	2727	
==>ype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2618	2727	
==>ype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2039	2200	
==>tem( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3569	3725	
==>tem( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1924	2026	
==>B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2013	2115	
==>B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3367	3475	
==>f: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3367	3475	
==>f: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15292	15393	
==>lf is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies wha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15292	15393	
==>lf is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies wha <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1052	1149	
==>B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=ba <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1052	1149	
==>B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=ba <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2141	2313	
==>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2141	2313	
==>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	848	945	
==>seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	848	945	
==>seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41830	42093	
==>(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

$:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3627	3771	
==>akefile' or die $!;
    print MAKEFILE "$preamble$makefile$postamble";
    close MAKEFILE;
}

sub preamble {
    my ($self, $text) = @_;
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1130	1271	
==>q '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' & <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1130	1271	
==>q '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' & <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7424	7528	
==>er order operators take a list of match operators, and return a new 

match operator.



A ruleop() funct <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7171	7272	
==>er order operators take a list of match operators, and return a new 
match operator.

A ruleop() funct <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23653	23806	
==>grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23932	24085	
==>grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1567	1684	
==>headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1567	1684	
==>headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2097	2217	
==>ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2108	2228	
==>ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1022	1126	
==>ethods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1022	1126	
==>ethods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::B <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1583	1690	
==>r class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1583	1690	
==>r class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1373	1470	
==>rser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are imp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1373	1470	
==>rser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are imp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2252	2366	
==>irst), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2252	2366	
==>irst), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5190	5293	
==>okenCat == PGE_OPTABLE_CIRCUMFIX );
  push @termStack, $operator;

  expect_oper:
  goto end if ( $posit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4696	4790	
==>s::Grammar::Category - Engine for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7521	7611	
==>)      --> p5_elemental(lookahead(R)).
p5_condition_test(lookahead_not(R))  --> p5_elementa <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	308	434	
==>ray
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %par <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	308	434	
==>ray
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23129	23229	
==>ng lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23129	23229	
==>ng lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	719	848	
==>tch => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	730	859	
==>tch => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture fl <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3078	3196	
==>ata>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3078	3196	
==>ata>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7576	7689	
==>cate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7576	7689	
==>cate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenti <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2462	2571	
==>File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, thi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2462	2571	
==>File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, thi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7615	7776	
==>) {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*AR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7615	7776	
==>) {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*AR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8788	8896	
==>/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6315	6419	
==>/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5017	5110	
==>Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5017	5110	
==>Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@pe <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	201	297	
==>Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	201	297	
==>Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	749	905	
==>ative ? str->new('1') : str->new('')  }
sub to_num { (shift)->to_native == 0 ? num->new(0) : num->new(1) }

# methods 

sub not {
    my $self = shift;
    i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3518	3933	
==>erface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3518	3933	
==>erface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21310	21423	
==>ght 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21310	21423	
==>ght 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1085	1187	
==>:Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1085	1187	
==>:Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!roo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1207	1332	
==>_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wn <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17659	17772	
==>LED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m}, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11405	11503	
==>children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11405	11503	
==>children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	948	1066	
==>$.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper aroun <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	948	1066	
==>$.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper aroun <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3862	4212	
==>t;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3862	4212	
==>t;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30359	30455	
==>resentation of any children of the object.

=item $obj->walk()

"Walks" the object.  This is used <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1854	1974	
==>r) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the correct return valu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1854	1974	
==>r) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the correct return valu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3443	3552	
==>_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3443	3552	
==>_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	978	1092	
==>le::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquel <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	978	1092	
==>le::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquel <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	934	1046	
==>count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	934	1046	
==>count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20868	21127	
==>::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21147	21406	
==>::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6296	6398	
==>iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class meth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11142	11244	
==>iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class meth <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	21	136	
==>c;

my $SID;
my %Session;
my $Path = catfile( tmpdir(), "pugs-session" );
mkdir($Path) unless -e $Path;

sub Session <==
2	/Users/nnunley/pugs/util/importgraph.pl	1216	1314	
==>e_name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore;
for my $mod (values % <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1326	1455	
==>ler = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15988	16080	
==>along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Not <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15988	16080	
==>along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Not <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12899	12993	
==>rams by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It als <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12899	12993	
==>rams by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It als <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	475	578	
==>a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	475	578	
==>a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2898	3022	
==>ift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2898	3022	
==>ift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10205	10317	
==>ntersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10205	10317	
==>ntersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	57	204	
==>s;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	57	204	
==>s;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	863	971	
==>binator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method qua <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	863	971	
==>binator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method qua <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8008	8143	
==>recase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignoreca <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2146	2249	
==>$base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( Num $x = 1 --> Num )
 { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24683	24785	
==>ute.

=item C<heading () returns Set of Str>

This method returns this Relation's heading.

=item C<bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29235	29337	
==>ute.

=item C<heading () returns Set of Str>

This method returns this Relation's heading.

=item C<bod <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5649	5759	
==>nd ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5649	5759	
==>nd ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4647	4755	
==>{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \% <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2387	2494	
==>{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\% <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9085	9185	
==>arsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9085	9185	
==>arsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33879	33975	
==>says what
language they prefer to communicate in, and what their backup choices are,
in order, if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33879	33975	
==>says what
language they prefer to communicate in, and what their backup choices are,
in order, if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16210	16307	
==>r instead.

Locale::KeyedText provides a simple but effective mechanism for
applications and packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16210	16307	
==>r instead.

Locale::KeyedText provides a simple but effective mechanism for
applications and packa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	632	995	
==>raph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_typ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	632	995	
==>raph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_typ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3304	3412	
==>nce_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4006	4106	
==>nce_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4613	4701	
==>ight->isa('closure::params'));
    return bit->new(0) if $left->length->not_equal_to($rig <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	868	971	
==>= ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	868	971	
==>= ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15541	15632	
==>lso export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping fro <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15541	15632	
==>lso export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping fro <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	354	456	
==>V<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant {
  VERSION     => 0.4,
  MAX_S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8047	8148	
==>t).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8047	8148	
==>t).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36602	36707	
==>case the returned Relation is identical to the
invocant.  Another trivial case is where any any source rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41151	41256	
==>case the returned Relation is identical to the
invocant.  Another trivial case is where any any source rel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1361	1513	
==>() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1361	1513	
==>() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5696	5803	
==>or the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class itself; in f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5696	5803	
==>or the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class itself; in f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	292	382	
==>PTION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	292	382	
==>PTION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	97	364	
==>bols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	97	364	
==>bols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1674	1789	
==>)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1734	1849	
==>)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_cl <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1581	1691	
==>~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VER <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1581	1691	
==>~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VER <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29340	29484	
==>FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define FBMcf_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30578	30673	
==>ride these methods (as objects often do).

=head3 Using F<NEXT::> instead of F<SUPER::>

You can <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5694	5819	
==>an) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Upda <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5694	5819	
==>an) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Upda <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5182	5296	
==>n> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_sequence {
    \\ <[xX]>
      [ <hexdigi <==
2	/Users/nnunley/pugs/util/grokprims.pl	739	827	
==>ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" encoding="UTF- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	184	287	
==>non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitra <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	184	287	
==>non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitra <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2562	2699	
==>ub { _('$.diagnostic') },        
        'description' => sub { _('$.description') },        
        'status' => sub {
            retur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	76	182	
==>UG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (* <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	76	182	
==>UG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (* <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	893	1001	
==>d 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<encipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	893	1001	
==>d 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<encipherin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1011	1257	
==>:constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1010	1211	
==>:constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3999	4078	
==>8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3999	4078	
==>8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	238	341	
==>mes.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	238	341	
==>mes.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message he <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	214	347	
==>uilder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    retur <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	214	347	
==>uilder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14376	14474	
==>h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Sinc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14376	14474	
==>h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Sinc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1855	1953	
==>are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on R <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1855	1953	
==>are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2328	2441	
==>_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3109	3222	
==>_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4464	4570	
==>eturn value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object clas <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6366	6472	
==>eturn value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object clas <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1198	1301	
==>based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1198	1301	
==>based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35155	35252	
==>one
alternation, holding any number of objects

Branched

=head2 exact

Family: exact

Types: exac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	728	862	
==>}
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	728	862	
==>}
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @p <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11838	11960	
==>ymbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $sy <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	247	364	
==>ymbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $sy <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6864	6970	
==>y data the cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended to the ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6864	6970	
==>y data the cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended to the ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9657	9758	
==>e, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9657	9758	
==>e, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10387	10488	
==>ree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>), <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10387	10488	
==>ree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>), <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4429	4548	
==>ten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4429	4548	
==>ten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4978	5123	
==>porter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exists $n- <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7452	7603	
==>te($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && substr($k,-2,2) eq ("th"|"st"|"nd"|"rd")
                 && pugs_internal <==
2	/Users/nnunley/pugs/util/importgraph.pl	1965	2051	
==>ex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parser', qr/^Pugs\ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3918	4022	
==>cotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::Internals::atan2( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15068	15170	
==>E
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15068	15170	
==>E
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, St <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12183	12297	
==>er::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1143	1245	
==>ed for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1143	1245	
==>ed for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17309	17464	
==>$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17309	17464	
==>$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1695	1795	
==>:Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages used by the Relation::Example::Tupl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14380	14490	
==>y {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$reftyp};
    die "bug <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1040	1135	
==>rfaces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
albei <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1040	1135	
==>rfaces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
albei <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5687	5786	
==>cess it until we have know how both these interfaces can be
# addressed.  One possibility is to retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5687	5786	
==>cess it until we have know how both these interfaces can be
# addressed.  One possibility is to retu <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	400	535	
==>3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    proc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	400	535	
==>3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    proc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2833	2932	
==>e, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2730	2825	
==>e, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24768	24885	
==>\| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21189	21306	
==>\| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2032	2144	
==>b *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2032	2144	
==>b *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11549	11644	
==>"text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11549	11644	
==>"text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22618	22715	
==>xt would also handle
this.

A program generates a Message that contains all possibly useful detail <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22618	22715	
==>xt would also handle
this.

A program generates a Message that contains all possibly useful detail <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6567	6666	
==>e and message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6567	6666	
==>e and message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2519	2624	
==>e .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2519	2624	
==>e .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	146	245	
==>Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	146	245	
==>Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2470	2595	
==>all c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2470	2595	
==>all c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egr <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3832	3947	
==>gument_list { [ <-[\\\(\)]> | \\ . | \( <argument_list> \) ]* }
rule capturing_group        { \( <pattern> \) }
rule <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1710	1803	
==>ove_subscription<remove> .= new;
}

class Class::Events::Subscription {
    has Class::Events: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3348	3458	
==>piler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) <p6ws> <variable> <p6ws>? \, <p6ws>?
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1501	1591	
==>nform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from ht <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1501	1591	
==>nform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from ht <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16769	16884	
==>like union, intersection, and
subtraction.

=item Regexp::Optimize

Eliminates redundancy from a regex.  It should h <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27209	27303	
==>_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REINT_AUTORITATIVE	(REINT_AUTORITATIVE_NOML|REINT_AUTOR <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15703	15831	
==>de = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2100	2228	
==>de = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15432	15613	
==>', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15711	15892	
==>', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constan <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	884	1096	
==>>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_children(
                                Tree.new(:node<Hash <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	757	909	
==>f = shift;
                my $repl = shift;
                @{$self->get_value('@:slots')} = @$repl;
            },

            'array_fetchKeys' => su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2849	2956	
==>age';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2849	2956	
==>age';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my me <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	685	783	
==>e a clean backtracking library (basically a set of simple
# macros) to make writing this kind of ap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8487	8589	
==>the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6023	6123	
==>the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27831	27946	
==>$rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8805	8918	
==>$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16351	16455	
==>ct => sub { $as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - what's right?
      perl6_object => su <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19454	19552	
==>unction that takes a function and applies it to a string
# thiss tests that the inferrence of highe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3667	3766	
==>face;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>valu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3884	3983	
==>face;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>valu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5176	5306	
==>Param',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TC <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5176	5306	
==>Param',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TC <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6824	6926	
==>tion ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6824	6926	
==>tion ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3395	3556	
==>ned $totals{skip_all}) ||
                 ($totals{max} && $totals{seen} &&
                  $totals{max} == $totals{seen} && 
                  $totals{max} == <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1586	1698	
==>e interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1586	1698	
==>e interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $cip <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2439	2536	
==>ou're done, call the closure 
with no arguments to finish the ciphering and clear the cipher's sta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2439	2536	
==>ou're done, call the closure 
with no arguments to finish the ciphering and clear the cipher's sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	356	474	
==>Error in rule: unknown parameter '$_'" 
        for keys %$param;
    my $self = { source => $rule_source };
    $se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3219	3335	
==>ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3219	3335	
==>ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5215	5387	
==>n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5215	5387	
==>n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2410	2535	
==>t specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2410	2535	
==>t specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1379	1494	
==>01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1379	1494	
==>01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1708	1821	
==>: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1708	1821	
==>: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8241	8351	
==>{PATH}> that can be used to execute F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return imm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7543	7638	
==>d has_method ((opaque $self:) (symbol $label)) returns bit
    ((($self: get_attr (symbol new (% <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7299	7420	
==>efore' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7051	7170	
==>efore' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "mat <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5785	5895	
==>tils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5267	5377	
==>tils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18154	18273	
==>TCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $where = "root nam <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15112	15204	
==>eclaration saying either exactly what language
we're going into, or what environmental parame <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3955	4109	
==>ee}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3955	4109	
==>ee}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    } <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23952	24147	
==>$last";
                }
                $min = $_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @result, "FAILED tests @canon\n";
        $canon = join ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7372	7559	
==>pan < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7372	7559	
==>pan < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( In <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7960	8151	
==>=> {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS
        },
        force => {
            store   => \$force,
            default = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5640	5739	
==>cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns Li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5640	5739	
==>cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13073	13207	
==>keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13073	13207	
==>keys = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            const <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	230	447	
==>s { @EXPORT };

use constant IS_CODEREF     => sub { ref $_[-1] eq 'CODE' };

use constant IS_FILE        => sub { return 1 if -e $_[-1] };                                            

use constant FILE_EXISTS    => su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3928	4045	
==>->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4145	4262	
==>->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21402	21509	
==>vantage of
this is that, for example, your package could come with a set of user
messages, but another packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21402	21509	
==>vantage of
this is that, for example, your package could come with a set of user
messages, but another packa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12274	12374	
==>cute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in prog <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12274	12374	
==>cute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in prog <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10728	10828	
==>ference to an array
of strings for a multi-valued field. If the $value is undefined or not
given, the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10728	10828	
==>ference to an array
of strings for a multi-valued field. If the $value is undefined or not
given, the <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6730	6841	
==>y $file = "tests.$pid.yml";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	314	489	
==>t
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2119	2244	
==>$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$sect <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2119	2244	
==>$section]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$sect <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6274	6476	
==>name2 name );
                    $t =~ s/\{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%prec $prec\n" .
                        "\t/* $op->{name} $op- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4747	4876	
==>} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5880	6003	
==>type => 'anyof_range',
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $self- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36795	36888	
==>nary relational operator that is like
C<union> except that the returned Relation::Example cont <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37295	37388	
==>nary relational operator that is like
C<union> except that the returned Relation::Example cont <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1328	1434	
==>pt the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1328	1434	
==>pt the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	270	384	
==>s Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	270	384	
==>s Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	795	903	
==>t(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augus <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	795	903	
==>t(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augus <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9430	9652	
==>urrent")
                      ->is_not_nil()
                      ->and(
                          block->new($e, sub { 
                              my $e = shift; 
                              $e->get("$method")->is_n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6305	6419	
==>rrent = $self;
    while ($current) {
        return $current->{env}->{$name}->fetch
            if exists $current <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45456	45573	
==>e' => 'hash')));


$::Package->send('add_method' => (
    # method label
        symbol->new('name'),
    # method bod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19196	19294	
==><<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This should never happ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	768	866	
==>dget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $return <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	768	866	
==>dget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export {
    my $return <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	512	622	
==>= ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || f <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	512	622	
==>= ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7038	7173	
==>p compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parser::space;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6000	6104	
==>$S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handler('\x' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1255	1351	
==>anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1255	1351	
==>anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17652	17851	
==>");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14073	14272	
==>");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22250	22349	
==>ach attribute is a column, but a Relation is not a table.

The Relation class is pure and determinis <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26802	26901	
==>ach attribute is a column, but a Relation is not a table.

The Relation class is pure and determinis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	25	128	
==>glock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	25	128	
==>glock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10232	10335	
==>ield )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10232	10335	
==>ield )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields. <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8128	8300	
==>(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2), grep /^-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $g <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5507	5634	
==>-size=i"  => \$initrd_size,
  "initrd-mnt=s"   => \$initrd_mnt,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20712	20868	
==>y'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20991	21147	
==>y'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19040	19139	
==>er text that is
associated with hard-coded program conditions.  In other words, this user
text is *p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19040	19139	
==>er text that is
associated with hard-coded program conditions.  In other words, this user
text is *p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1649	1745	
==>ods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Laz <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1649	1745	
==>ods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Laz <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20296	20404	
==>RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16717	16825	
==>RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2893	3005	
==>mpiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LVal <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2893	3005	
==>mpiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LVal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5111	5269	
==>P000";
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            pus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	579	830	
==>lies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	579	830	
==>lies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2517	2647	
==>@cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2517	2647	
==>@cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($co <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8335	8478	
==>(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8335	8478	
==>(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => ch <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6486	6633	
==>e($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_param <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6486	6633	
==>e($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	924	1078	
==>sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	886	1034	
==>sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captur <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5188	5291	
==>d) by this module:

=over 3

=item get($url)

The get() function will fetch the document identified by t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5188	5291	
==>d) by this module:

=over 3

=item get($url)

The get() function will fetch the document identified by t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8071	8176	
==>y;
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8071	8176	
==>y;
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    retur <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1291	1390	
==>dows, you will need the 'nmake' utility
before installation. It's available at:

  http://download.m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1131	1230	
==>dows, you will need the 'nmake' utility
before installation. It's available at:

  http://download.m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35085	35192	
==>e first but for the changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35085	35192	
==>e first but for the changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1878	1988	
==>$source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1878	1988	
==>$source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2827	2921	
==>omp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

= <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2827	2921	
==>omp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4413	4536	
==>ptimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the numbe <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4413	4536	
==>ptimization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the numbe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3149	3275	
==>s($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise T <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3695	3821	
==>s($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise T <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1124	1303	
==>+ @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1124	1303	
==>+ @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6951	7059	
==>{ $self->{meat}{test_files} }, @{$chunk->{test_files}};
        unlink $file or die "unlink: $!";
    }
    w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10542	10637	
==>ass $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10542	10637	
==>ass $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14707	14818	
==>elf->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @params = @_;
    push @{ $self->{para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	379	518	
==>an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	358	492	
==>an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39202	39286	
==>el>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39202	39286	
==>el>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2326	2430	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2326	2430	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16977	17084	
==>itional
encoding mechanism has been applied to the resource.

=item $h.content_length

A decimal number indi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16977	17084	
==>itional
encoding mechanism has been applied to the resource.

=item $h.content_length

A decimal number indi <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1076	1224	
==>st;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1076	1224	
==>st;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6934	7041	
==>,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6934	7041	
==>,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8142	8249	
==>ay contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8142	8249	
==>ay contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1090	1194	
==>rgs->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    my ($self, $script_file) = @ <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1771	1874	
==>ation($iso8601_dur);
#}

##multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duratio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16351	16452	
==>echschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audre <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16409	16510	
==>echschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audre <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3140	3269	
==>yntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    dele <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3140	3269	
==>yntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    dele <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4704	4834	
==>vy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4704	4834	
==>vy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($in <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4342	4421	
==>6777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))} <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4342	4421	
==>6777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4977	5112	
==>{
            # create the directory an index file lives in (ignores errors)
            # and touch the index file.
            $index- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4822	4943	
==>= \$fs[$i]; ";
      $code1 .= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6572	6825	
==>} else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just retu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7036	7289	
==>} else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17678	17771	
==>nspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statem <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17678	17771	
==>nspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statem <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6599	6703	
==>pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10995	11094	
==>lass $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10995	11094	
==>lass $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(S <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	547	660	
==>::More tests => 46;

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $insta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6930	7032	
==>ad1 USAGE

=head2 Creating an Instance

To use this module as is, load it, and create an instance:

  u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7292	7425	
==>adFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	593	726	
==>adFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dep <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6985	7119	
==>permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(82 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6985	7119	
==>permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(82 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7165	7324	
==>d_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7165	7324	
==>d_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7452	7569	
==>st of match operators, and return a new 

match operator.



A ruleop() function gets as argument a list:



### we do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7199	7311	
==>st of match operators, and return a new 
match operator.

A ruleop() function gets as argument a list:

### we do <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2420	2524	
==>ame =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name. <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2420	2524	
==>ame =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6034	6133	
==>e";
	my $pkg_rep  = "${pkg_root}::NodeRep$rep";
	my $pkg_node = "${pkg_root}::Node";
	$pkg_type = "" <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1374	1487	
==>};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</texta <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1374	1487	
==>};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</texta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5658	5832	
==>};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5658	5832	
==>};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	984	1094	
==>}

sub install_script {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_files = $args-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5722	5819	
==>umentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5525	5616	
==>umentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule con <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2706	2815	
==>regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <z <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2706	2815	
==>regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <z <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2020	2130	
==>e calling function's package name.  (For example, if 
a function in C<Some::Module> called C<note> without prov <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2020	2130	
==>e calling function's package name.  (For example, if 
a function in C<Some::Module> called C<note> without prov <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20930	21064	
==>head2 The Relation Class

A Relation object is an unordered set of tuples, each of which is an
unordered set of named attributes; all t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25482	25616	
==>head2 The Relation Class

A Relation object is an unordered set of tuples, each of which is an
unordered set of named attributes; all t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	620	723	
==>t character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	620	723	
==>t character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2036	2143	
==>en = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enque <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2036	2143	
==>en = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enque <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15436	15554	
==>floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_siz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15436	15554	
==>floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_siz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15187	15283	
==>ue is always returned.
If the given header did not exist then C<undef> is returned.

Methods that <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15187	15283	
==>ue is always returned.
If the given header did not exist then C<undef> is returned.

Methods that <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20500	20610	
==>GV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16282	16400	
==>ass Num {
    multi sub round_gen(Int $n, Code $corner) returns Int is primitive is safe {
        $n
    }
    multi s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1145	1246	
==>pil, how regexp modification macros work, etc.
  Working with a p5 accessible runtime (pil2js or pilru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2310	2419	
==>g.

Both of these functions return a closure.  Call the closure with a block of 
data to have it enciphered or <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2310	2419	
==>g.

Both of these functions return a closure.  Call the closure with a block of 
data to have it enciphered or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9924	10049	
==>malDigit>
    | <'x'>
    | <'u'>
}
rule HexEscapeSequence {  # see 7.8.4
      <'x'> <HexDigit> <HexDigit>
}
rule UnicodeEsca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13922	14021	
==>single
value (a string).  If a header field is multi-valued, then the
routine is called once for eac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13922	14021	
==>single
value (a string).  If a header field is multi-valued, then the
routine is called once for eac <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10460	10555	
==>g>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: St <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10460	10555	
==>g>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7626	7768	
==>le'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7819	7961	
==>le'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	127	228	
==>ver you enter a new rule or parenthesized
group.  This is approximately the Match object that userland <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	127	228	
==>ver you enter a new rule or parenthesized
group.  This is approximately the Match object that userland <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	423	540	
==>=> $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check i <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	423	540	
==>=> $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1803	1905	
==>Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1803	1905	
==>Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for 120s
    Bool $floodcontr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2482	2618	
==>b {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10863	11029	
==>undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10863	11029	
==>undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $q <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	575	670	
==>{...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_results ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	575	670	
==>{...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_results ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4231	4337	
==>o exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4289	4395	
==>o exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depend <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1844	1945	
==>le task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Write methods which return the <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26905	27005	
==>itch in the F<prove> utility.

=item C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1849	1945	
==>o various intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1777	1871	
==>o various intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Va <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32492	32582	
==>Text::Translator Class

While a Translator object stores some attributes for configuration, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32492	32582	
==>Text::Translator Class

While a Translator object stores some attributes for configuration, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13296	13391	
==>set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set c <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13296	13391	
==>set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	481	612	
==>se as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Cons <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	481	612	
==>se as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Cons <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2626	2819	
==>:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2873	3066	
==>:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1231	1347	
==>:Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler::PIL::Util::Context {
    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1231	1347	
==>:Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler::PIL::Util::Context {
    h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13104	13207	
==>the content of
a message.  All header field names prefixed with C<Content-> falls
into this category, as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13104	13207	
==>the content of
a message.  All header field names prefixed with C<Content-> falls
into this category, as <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20321	20417	
==>=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20321	20417	
==>=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	775	914	
==>_dirs,
    'pugs=s'    => \$Perl6::Run::OnPerl5::X1::BB::pugs,
    'w'         => \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	224	338	
==>ub { 0x8 });

  # (useless) /g, /c, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S->warn(R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	660	758	
==>q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	660	758	
==>q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.], <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5484	5605	
==>match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5484	5605	
==>match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1466	1571	
==>cwd = Cwd::cwd();
    unless( chdir $args->{dir} ) {
        error( q[Could not chdir into '$args->{dir}'] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1845	1964	
==>_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1845	1964	
==>_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1553	1682	
==>{
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1470	1575	
==>{
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9116	9221	
==>rs }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9116	9221	
==>rs }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channe <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1733	1824	
==>/catalog_tests.pl --p6design_dir=../p6/docs/design
     perl util/catalog_tests.pl --test_di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	275	403	
==>2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	275	403	
==>2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	271	390	
==>:Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dumper;

use ba <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1461	1589	
==>/) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1461	1589	
==>/) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15268	15390	
==>r $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @target <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15268	15390	
==>r $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @target <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	580	684	
==>headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $dat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	780	880	
==>b lower {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3996	4090	
==>SION

This document describes Rosetta version 0.724.0.

It also describes the same-number versi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3996	4090	
==>SION

This document describes Rosetta version 0.724.0.

It also describes the same-number versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1916	2065	
==>ate = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1916	2065	
==>ate = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13091	13192	
==>ve or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not imple <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13149	13250	
==>ve or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not imple <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2851	2943	
==>l::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2851	2943	
==>l::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4311	4496	
==>1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4180	4359	
==>1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18058	18198	
==>$code .= $hlp->(shift @classes);
    $code .= '  exists($META->FETCH("{}")->{$_[1]}) ? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18422	18534	
==>m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14843	14955	
==>m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3866	3958	
==>ile =~ s/\$\(UNINST\)/0/g;

    my $canonical_base = File::Spec->catdir(split(/[\\\/]/, $base <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9315	9423	
==>er{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9315	9423	
==>er{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3876	3972	
==>onfig::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not pres <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3876	3972	
==>onfig::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not pres <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15996	16117	
==>=> $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19473	19594	
==>=> $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	65	163	
==>se::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a positi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	65	163	
==>se::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a positi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2107	2224	
==>ist { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2107	2224	
==>ist { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PI <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5888	6197	
==>t ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5888	6197	
==>t ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12481	12580	
==>lue argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12481	12580	
==>lue argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, . <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1373	1477	
==>r.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1373	1477	
==>r.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @header <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9279	9371	
==>ce (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12756	12848	
==>ce (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $othe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2903	3059	
==>$x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2903	3059	
==>$x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11524	11632	
==>is to wait until objects are done for this, but maybe I will
figure out a good way to do this without. Either <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11524	11632	
==>is to wait until objects are done for this, but maybe I will
figure out a good way to do this without. Either <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1952	2071	
==>message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1952	2071	
==>message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1802	1910	
==>$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1802	1910	
==>$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () } <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2781	2888	
==>nforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub re <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2781	2888	
==>nforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1999	2166	
==>re => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2246	2413	
==>re => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8740	8843	
==>tr $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', $modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8740	8843	
==>tr $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', $modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4570	4693	
==>"\r", '\R') if $cc;
    return $S->object(exact_comp => "\r", '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22987	23104	
==>test->{wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curt <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2335	2434	
==>ity.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2335	2434	
==>ity.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5821	5962	
==>{
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5821	5962	
==>{
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8119	8218	
==>for example, it should not merely set arrays to C<()>, but loop 
through them setting all the elemen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8119	8218	
==>for example, it should not merely set arrays to C<()>, but loop 
through them setting all the elemen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5400	5516	
==>ta->{archive} =
            $self->pool_rel->file( file($pkg->file)->basename )->stringify();
        
        # appe <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8255	8365	
==>rom PIL2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::min(@self; Code $cmp = &infix: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2785	2906	
==>b quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2773	2894	
==>b quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $qu <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	728	830	
==>elect(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	728	830	
==>elect(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1509	1608	
==>ondie::Unit and Blondie::List are defined

=head1 DESCRIPTION

These ADTs are the implementation cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8280	8399	
==>!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8280	8399	
==>!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1834	2020	
==>ith blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statemen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3841	3957	
==>=cut

sub _whoami { my $name = (caller 1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1649	1763	
==>ms{'$.passed'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Fail')->new(
                '$.descr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	381	483	
==>it in favor of 
a more practical closure based system, similar to what is described
in here (note: same <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	856	947	
==>erl5 compiled code

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	100	199	
==>ext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	100	199	
==>ext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8647	8780	
==>perator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            wa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8647	8780	
==>perator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            wa <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1467	1567	
==>$str) returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18615	18710	
==>h ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18615	18710	
==>h ref whose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12879	12999	
==>ace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6354	6474	
==>ace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	455	566	
==>w using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	466	577	
==>w using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1305	1410	
==>ring {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1305	1410	
==>ring {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	223	339	
==>V;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TASKS file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	429	545	
==>V;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TASKS file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10745	10855	
==>ay
of strings for a multi-valued field. If the $value is undefined or not
given, then that header field will re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10745	10855	
==>ay
of strings for a multi-valued field. If the $value is undefined or not
given, then that header field will re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11416	11510	
==>mples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Clie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11416	11510	
==>mples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Clie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6538	6649	
==>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6538	6649	
==>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	229	379	
==>^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	229	379	
==>^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51747	52057	
==>identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51136	51417	
==>identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9981	10135	
==>xpanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1::statements> ]* <?ws> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	723	822	
==>n creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	723	822	
==>n creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CL <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	275	389	
==>The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	275	389	
==>The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::P <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2636	2739	
==>( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.ye <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2636	2739	
==>( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.ye <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	165	261	
==>anted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	165	261	
==>anted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1567	1674	
==>ins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.sear <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1567	1674	
==>ins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.sear <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3517	3664	
==>ol,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3710	3857	
==>ol,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6394	6502	
==>::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => B <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6394	6502	
==>::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7856	7964	
==>$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7844	7952	
==>$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1292	1444	
==>$quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff00 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1292	1444	
==>$quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff00 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4576	4689	
==>ersion

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Package_re };

    sub prefi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12779	12873	
==>!.
p6_named_character_tail([],Close)    --> [Close], !.
p6_named_character_tail([C,T],Close) -- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4453	4598	
==>ool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4646	4791	
==>ool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramm <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6915	7025	
==>L5 (Perl 6 on JavaScript with Perl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	439	536	
==>) in this file need to have the
`is primitive` trait.

Please also declare whether the function ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30664	30760	
==>at means it is
pre-consumptive, which is why it must match the right parenthesis
itself.  The han <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1240	1387	
==>ription,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1240	1387	
==>ription,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	557	701	
==>sh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	557	701	
==>sh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4121	4242	
==>D($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroiz <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4121	4242	
==>D($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroiz <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6905	7061	
==>:Perl6::perl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3624	3740	
==>"yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some ext <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3624	3740	
==>"yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some ext <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	367	461	
==>compiled class (a L<Type>), which is used for
dispatching private methods.

=back

Normally, wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2731	2855	
==>gex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        boo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12389	12510	
==>ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12389	12510	
==>ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4851	4975	
==>lse {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true if it was considere <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4655	4767	
==>lt{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous test number seen [test $resu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1307	1425	
==>9;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1296	1405	
==>9;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24077	24177	
==>preferred
language into the program code itself, so it then becomes a version of that
language.  By c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24077	24177	
==>preferred
language into the program code itself, so it then becomes a version of that
language.  By c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1144	1238	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<wor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1364	1458	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<wor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8297	8419	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8490	8612	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10067	10160	
==>WN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE MkParam ($isInvocant, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1052	1153	
==>tent-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1052	1153	
==>tent-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my %entit <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10024	10131	
==>ference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10024	10131	
==>ference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	925	1016	
==>elation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::AttrName <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5484	5639	
==>( $n->{param}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            return " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4533	4653	
==>ds);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4591	4711	
==>ds);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20388	20486	
==>face of Relation is entirely object-oriented; you use it by
creating objects from its member classe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24940	25038	
==>face of Relation is entirely object-oriented; you use it by
creating objects from its member classe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2993	3098	
==>$self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2993	3098	
==>$self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Spa <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	374	481	
==>x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2114	2220	
==>der (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2114	2220	
==>der (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2387	2494	
==>n>
  | <subrule>
  | <capturing_group> | <noncapturing_group>
  | <literal> | <interpolated_literal>
  | <cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32196	32295	
==>o ending node, and most don't need to to do
anything to the walking stack.

When an object does have <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16700	16812	
==>bution.

While it is possible that one could write a self-contained application in
Rosetta D and compile that int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16700	16812	
==>bution.

While it is possible that one could write a self-contained application in
Rosetta D and compile that int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6794	6899	
==>, an event is fired, the first argument to all these events is
the C<$event_type> (header, list, item, etc <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6794	6899	
==>, an event is fired, the first argument to all these events is
the C<$event_type> (header, list, item, etc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10520	10653	
==>,
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10520	10653	
==>,
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9587	9708	
==>s->send('add_method' => (
    # method label
        symbol->new('remove_method'), 
    # method body
        method->new( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2025	2205	
==>rt => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2025	2205	
==>rt => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	12	128	
==>:Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value En <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	12	128	
==>:Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value En <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	117	221	
==>onal;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	117	221	
==>onal;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TO <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2038	2152	
==>Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2038	2152	
==>Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14931	15022	
==>'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpression>
}
rule Additiv <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8054	8193	
==>0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7780	7911	
==>0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3147	3273	
==>Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Val <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3147	3273	
==>Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8677	8788	
==>ething?

maybe just overload bool to false ;)

(I mean, seriously, because that's what p6 does)

and also you ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8389	8497	
==>ething?
maybe just overload bool to false ;)
(I mean, seriously, because that's what p6 does)
and also you ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10161	10262	
==>to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->header( $fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10161	10262	
==>to the C<header> method which is
described below.

=item $h->header( $field )

=item $h->header( $fiel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5655	5839	
==>ethod" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7417	7601	
==>ethod" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4784	4898	
==>t1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4784	4898	
==>t1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11317	11496	
==>eturn if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('do <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11317	11496	
==>eturn if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('do <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1588	1704	
==>ok at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1588	1704	
==>ok at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1181	1290	
==>nings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40487	40581	
==>an access them via C<< $parser->err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors

There <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18957	19087	
==>s the 
        # correct syntax for fetching
        # an attribute symbolically
        $.($key) = $value if $.($key);
    }
}

(m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28008	28103	
==>object, no warnings will be issued.

=head2 The F<__object__> Base Class

All nodes inherit from <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12452	12571	
==>sg() and errnum() methods to get the error information.

To see if an error is a particular one, use the error_is() meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8104	8209	
==>nspecting the Parsing

To intercept each node as it is parsed, use the next() method:

  while (my $node = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12351	12445	
==>at attribute defaults to empty if the parameter's
corresponding argument is undefined).  The ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12351	12445	
==>at attribute defaults to empty if the parameter's
corresponding argument is undefined).  The ne <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	156	252	
==>r

=head1 SYNOPSIS

  use Test::Harness::Iterator;
  my $it = Test::Harness::Iterator->new(\*TEST <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2132	2246	
==>n the Moon was seen,
>   No words were laid on stream or stone,
>   When Durin woke and walked alone.

-}

-------- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25308	25410	
==>e identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29860	29962	
==>e identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3909	4003	
==>urns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3909	4003	
==>urns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24029	24182	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24308	24461	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13857	13989	
==>2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13857	13989	
==>2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16362	16468	
==>ee spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16362	16468	
==>ee spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Re <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9357	9538	
==>le extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ m{^(?:/cygdrive|[A-Za-z]:)/.*$Config{_exe}$}
            ) {

                # Smells like a Windows e <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	711	805	
==>tes, which are actually just accessor methods
for variables.

=item *

unbound private attribut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1671	1762	
==>Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1671	1762	
==>Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	1	259	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	1	259	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8767	8894	
==>dex{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8755	8882	
==>dex{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident} <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2568	2740	
==>($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - 1);
                }
            },

            'array_extendSize' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19392	19484	
==>y method _product (Relation::Example $other!) returns Relation::Example {
    return Relation <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5686	5781	
==>rl)

Get document headers. Depending on the context, C<head> returns
the following values:

=ove <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5686	5781	
==>rl)

Get document headers. Depending on the context, C<head> returns
the following values:

=ove <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35484	35574	
==>ed
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40034	40124	
==>ed
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@othe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10777	10931	
==>_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10777	10931	
==>_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $va <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11511	11610	
==>A closure with arity of 1, which returns the "key" by which to sort. If
the closure returns a Num, C <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	198	297	
==>ed Perl6 extensions outside of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Pat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1942	2089	
==>extension
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2803	2907	
==>lf->is_admin;

    unless (-e 'MANIFEST') {
        warn "Cannot deduce auto_provides without a MANIFEST, <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14434	14557	
==>y $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUP <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1914	2037	
==>y $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUP <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4671	4782	
==>rg_node_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4671	4782	
==>rg_node_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13784	13914	
==>qq[ln -fs $alt $bin ] )                 and die $?;
        push @bins, $script;
    }

    my $alt = JIB::Alternative->new_from_st <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9899	9993	
==>p::StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END'; print $@ if $@;
my $m = "asdf" = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1053	1150	
==>Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::B <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1053	1150	
==>Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::B <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	797	889	
==>>export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	797	889	
==>>export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $i <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	75	202	
==>T $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKA <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2573	2670	
==>my nodes that contain only source representation.

=back

=head1 API METHODS

These methods must b <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2573	2670	
==>my nodes that contain only source representation.

=back

=head1 API METHODS

These methods must b <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5103	5205	
==>d by the C<LWP::UserAgent> module.

The following functions are provided (and exported) by this module: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5103	5205	
==>d by the C<LWP::UserAgent> module.

The following functions are provided (and exported) by this module: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	964	1105	
==>g_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	964	1105	
==>g_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule cl <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2298	2443	
==>output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=p <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2298	2443	
==>output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6113	6224	
==>jects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () returns String { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6113	6224	
==>jects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () returns String { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11670	11815	
==>ion."
        if !($other!heading === $!heading);

    return Relation::Example.new(
        heading => $!heading,
        body => $!body.differen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3530	3641	
==>$.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Ex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3530	3641	
==>$.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Ex <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4751	4849	
==>ap:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4751	4849	
==>ap:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25567	25657	
==>type::operator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		), <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3966	4075	
==>t ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3966	4075	
==>t ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15044	15212	
==>[-1],
      family => 'group',
      type => 'group',
      data => \@data,
      on => $on,
      off => $off,
      down => 1,
    }, $class;
  }

  sub on {
    my $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	346	465	
==>1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pmc = $file.'c <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	397	555	
==>^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack underflow\n";
        my $y <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2309	2428	
==>+)$/ or die "Cannot autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11668	11817	
==>h @{$test{failed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $details = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8804	8897	
==>ok { $iFoo->name } '... instance calling metaclass method fails';

fails_ok { $iFoo->another_s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	802	903	
==>$head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	802	903	
==>$head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	933	1083	
==>port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	933	1083	
==>port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	513	611	
==>ust letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher AP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	513	611	
==>ust letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher AP <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15085	15194	
==>b { copy $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M $is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33765	33884	
==>French.  The order of these items corresponds to
an individual user's (or user role's) preferences such that each says w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33765	33884	
==>French.  The order of these items corresponds to
an individual user's (or user role's) preferences such that each says w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2100	2197	
==>Pe_BADESC, "A", " in character class") if $cc;
    return $S->force_object(anyof_char => 'A') if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1195	1294	
==>Pe_BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2360	2459	
==>Pe_BADESC, "B", " in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1691	1817	
==>my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1691	1817	
==>my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies") <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	607	736	
==>filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	607	736	
==>filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6803	6924	
==>lement $re"
  }
}
{
  # \w \W
  package Regexp::Parser::alnum;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	325	451	
==>grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	325	451	
==>grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1227	1453	
==>list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1227	1453	
==>list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1344	1439	
==>presentations of @header_order.  This is used
# for sorting and case matching.
our %header_order <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1344	1439	
==>presentations of @header_order.  This is used
# for sorting and case matching.
our %header_order <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3129	3236	
==>SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3129	3236	
==>SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5797	5898	
==>n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5797	5898	
==>n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4654	4754	
==>duce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv->val);
}

sub add_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5957	6078	
==>} ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5770	5885	
==>} ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside cap <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	552	664	
==>}

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	552	664	
==>}

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5362	5478	
==>s the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5362	5478	
==>s the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5181	5307	
==>ode for usage inside a grammar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<catego <==
2	/Users/nnunley/pugs/util/package-osx.pl	2821	2901	
==>no/dev/pugs/src/pge/run_pge.pir /System/Library/Perl6/darwin-thread-multi-2level/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1333	1474	
==>le(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1333	1474	
==>le(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	844	942	
==>is currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
B <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	844	942	
==>is currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
B <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5194	5304	
==>eturns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5194	5304	
==>eturns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6135	6272	
==>ators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4637	4774	
==>ators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6703	6796	
==>ton_test_on_object(), 
   '&Object::singleton_test_on_object',
   '... got the right return va <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8618	8748	
==>lap'};
    my $ex = %mods{'ex'} || %mods{'exhaustive'};
    my $adverbs = join("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XX <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10341	10438	
==>d_list (opaque $self:) returns list { 
    %:methods.keys;
}

(method get_method_list ((opaque $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21223	21312	
==>ized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21223	21312	
==>ized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22629	22725	
==>so handle
this.

A program generates a Message that contains all possibly useful details, so
that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22629	22725	
==>so handle
this.

A program generates a Message that contains all possibly useful details, so
that <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2058	2169	
==>$.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2058	2169	
==>$.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8908	9014	
==>strings.

=item I<newline>

This event handles newlines in the text, it is a specialization of the 'string' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8908	9014	
==>strings.

=item I<newline>

This event handles newlines in the text, it is a specialization of the 'string' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7588	7741	
==>dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	889	1042	
==>dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1431	1607	
==>4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $va <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1431	1607	
==>4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $va <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7991	8120	
==>st once
        my($leader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{file <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16818	16917	
==>(plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16818	16917	
==>(plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10457	10552	
==>n set, and could potentially
never be performed at all.  They validate everything except
well-fo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10457	10552	
==>n set, and could potentially
never be performed at all.  They validate everything except
well-fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	350	481	
==>er('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9768	9899	
==>er('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2608	2798	
==>| 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2855	3045	
==>| 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4667	4791	
==>rray 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'inser <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4667	4791	
==>rray 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'inser <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21605	21725	
==>nt :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier>? <';'>
}
rule BreakStatement :words {  # s <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	371	481	
==>(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annota <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2359	2464	
==>t.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2359	2464	
==>t.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16255	16361	
==>ithout looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20681	20787	
==>ithout looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1244	1397	
==>" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1244	1397	
==>" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	14	113	
==>p{chomp;/\.js$/ ? ($_) : ()} sort `find mozilla_js_tests`;
print "plan ".@jsfiles."\n";
foreach $jsf <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2413	2642	
==>= $new_x;
        },                  
        set_y => sub {
            my ($self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x = 0; $y = 0;
        },   
        class => sub { \&P <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3099	3199	
==>UPLOAD};
    system("$^X $ENV{PUGS_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke upload c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11098	11234	
==>$ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11098	11234	
==>$ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return $self.finishs <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1108	1208	
==>out of a tree (to gain strong typing)
#	::free - an unbound type variable
#	::instantiated - points t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7797	7893	
==>e() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7797	7893	
==>e() returns Void {...}>

Clears the cipher object's internal structures.

Cipher authors should a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5862	5959	
==>n Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5862	5959	
==>n Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9050	9166	
==>can't use +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35828	35934	
==>{
      $_ = $self->{rx}->object(ifmatch => 1, @$_);
    }

The 'ifmatch' object is a positive looking asse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	100	518	
==>s:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	100	518	
==>s:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package L <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	230	344	
==>.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A map of dige <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	230	344	
==>.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A map of dige <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7609	7741	
==>Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7609	7741	
==>Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $sp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4514	4792	
==>print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4514	4792	
==>print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	345	472	
==>=> 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do thin <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	345	472	
==>=> 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do thin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	55	155	
==>6-ish perl 5
# (makes use of attribute grammars and multimethods)

# first part is a type pretty prin <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	415	541	
==>y $class = shift;
    my $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9728	9847	
==>{
    my($fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::rebless <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2447	2573	
==>dex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2447	2573	
==>dex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	379	511	
==>l !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	379	511	
==>l !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9338	9431	
==>l(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3163	3256	
==>l(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1303	1429	
==>ype="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<te <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1303	1429	
==>ype="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<te <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	100	519	
==>s:
# (None Yet)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Re <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27987	28095	
==>re using the F<prove> utility, you can use the C<--perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value w <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5881	6020	
==>he latest
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _norma <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	87	192	
==>6) {
	...
}
#=In Perl 6 geht das eleganter:
if any(wurf(), wurf(), wurf()) == 6 {
	... # aber: wurf() wird <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6013	6145	
==>emented";
    # die "no submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6025	6157	
==>emented";
    # die "no submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print " <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3566	3708	
==>:PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expressio <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3566	3708	
==>:PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expressio <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1770	1870	
==>rray of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# T <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1770	1870	
==>rray of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9645	9737	
==>s of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The follow <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9645	9737	
==>s of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The follow <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5390	5490	
==>m  # configuration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5201	5299	
==>m  # configuration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18427	18522	
==>lication
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18427	18522	
==>lication
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1048	1178	
==>Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1048	1178	
==>Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11257	11386	
==>ubrule_name_1:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $S0 = substr target, pos, 2
    if $S0 != "::" got <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16680	16783	
==>his "Rosetta" distribution.

While it is possible that one could write a self-contained application in
R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16680	16783	
==>his "Rosetta" distribution.

While it is possible that one could write a self-contained application in
R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21190	21306	
==>odule distribtution do not need to have the compilers installed
themselves. So you don't need to make the compiler mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21190	21306	
==>odule distribtution do not need to have the compilers installed
themselves. So you don't need to make the compiler mo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1096	1345	
==>$size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $bu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1096	1345	
==>$size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $bu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	161	354	
==>$self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $a <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	226	385	
==>$self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6254	6382	
==>atch->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6254	6382	
==>atch->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #p <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	501	625	
==>$\%])/\\$1/;
#        return "\\synvar\{$segil$name$space}";
#	
#    # digits
#    } elsif ($name =~ m/\d+/) {
#        retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13009	13123	
==>~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13009	13123	
==>~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	286	397	
==>rings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	286	397	
==>rings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1723	1869	
==>ildren() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the curren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1723	1869	
==>ildren() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the curren <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7200	7525	
==>'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $licen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7257	7582	
==>'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $licen <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	855	959	
==>$F <<'EOT';
@rem = @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4373	4480	
==>hod.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instanc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4623	4730	
==>hod.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instanc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1520	1623	
==>st

A list is a a node with multiple children.

C<App> is a type of value - it applies its first child t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7308	7508	
==>an = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7308	7508	
==>an = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_sp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5938	6060	
==>d_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5938	6060	
==>d_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	587	694	
==>st C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is no <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	587	694	
==>st C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is no <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10947	11076	
==>nless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submeth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10947	11076	
==>nless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submeth <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10323	10453	
==>}
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10323	10453	
==>}
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4860	4968	
==>d view of the
libwww-perl library.  It should also be suitable for one-liners.  If
you need more control or a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4860	4968	
==>d view of the
libwww-perl library.  It should also be suitable for one-liners.  If
you need more control or a <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	517	649	
==>else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @result <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	517	649	
==>else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @result <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2035	2128	
==><variable>:=(<varscalar>)\{$<key>:=(<term1>)\}
        { return { access_hashref_element => $( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22329	22424	
==>gnized escape" warnings to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags now evo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24848	24944	
==>this Relation's body.

=item C<size () returns Int>

This method returns a count of this Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29400	29496	
==>this Relation's body.

=item C<size () returns Int>

This method returns a count of this Relation <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	519	665	
==>ne;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	519	665	
==>ne;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %ev <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	398	530	
==>/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	398	530	
==>/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8892	8996	
==>ckage and an optional available list
    ### and check if the package is available/provided by any instal <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10369	10473	
==>ckage and an optional available list
    ### and check if the package is available/provided by any instal <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	475	572	
==>s Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	475	572	
==>s Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7574	7697	
==>~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7574	7697	
==>~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7532	7664	
==>dtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7532	7664	
==>dtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6443	6558	
==>_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6443	6558	
==>_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9987	10083	
==>representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9987	10083	
==>representation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33201	33301	
==>late modules will be searched in the order
they appear in this array until a match for that message i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33201	33301	
==>late modules will be searched in the order
they appear in this array until a match for that message i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6387	6484	
==>tion of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6387	6484	
==>tion of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19093	19202	
==>error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-z <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15514	15623	
==>error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-z <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	650	763	
==>ied from S29draft.pod 8651.
multi  List::reduce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7364	7479	
==>$version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7364	7479	
==>$version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8464	8569	
==>union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8464	8569	
==>union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3374	3460	
==>?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3374	3460	
==>?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2547	2672	
==>rvername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("logged <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2547	2672	
==>rvername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("logged <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16339	16467	
==>_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX-> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8818	8958	
==>d to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8818	8958	
==>d to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2784	3043	
==>$_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2784	3043	
==>$_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1439	1561	
==>turn 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1439	1561	
==>turn 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2563	2658	
==>ring portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2563	2658	
==>ring portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2269	2368	
==><Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2358	2457	
==><Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1204	1305	
==>d1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1204	1305	
==>d1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This docum <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	880	1005	
==>rom S29draft.pod 8651.
multi  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while t <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2019	2144	
==>Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCrit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1994	2113	
==>tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1994	2113	
==>tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19850	19962	
==>= substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16271	16383	
==>= substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }x <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20617	20727	
==>exists $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the argument
	    del <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1509	1604	
==>multi sub time_t( Int $time_t ) returns Date::Gregorian is export {
    Date::Gregorian.new( :ye <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	18	115	
==>eTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duratio <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	18	115	
==>eTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duratio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	607	710	
==>IS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	607	710	
==>IS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12015	12127	
==>n't do two more, so
	    # write to temp file
	    my $stdin = qq{$^X -e 'print qq(} . $args{stdin} . qq{)' > tes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	328	451	
==>e TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	534	657	
==>e TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8939	9075	
==>t    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures cre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8927	9063	
==>t    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures cre <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	839	963	
==>IBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	740	864	
==>IBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	284	407	
==>nd ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict ' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	284	407	
==>nd ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4393	4601	
==>method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1536	1721	
==>$_[3]}->{abort};
        }
        return unless $_[3];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5815	5959	
==>',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5815	5959	
==>',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36278	36375	
==>yAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by translate_message() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36278	36375	
==>yAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by translate_message() <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10084	10186	
==>ent_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10084	10186	
==>ent_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method wh <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8724	8845	
==>scr  => "Checking which shared libraries pugs, parrot and bash require",
    ensure => sub { @libs > 1 },
    using  => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2089	2187	
==>licate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Regex->comp <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2609	2761	
==>"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  => $5,
    unexpect => $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1181	1288	
==>ewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1148	1255	
==>ewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7730	7867	
==>rse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7730	7867	
==>rse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14116	14212	
==>d the headers
will be visited in the recommended "Good Practice" order.

Any return values of the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14116	14212	
==>d the headers
will be visited in the recommended "Good Practice" order.

Any return values of the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6813	6924	
==>f %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6813	6924	
==>f %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12911	13021	
==>y method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12911	13021	
==>y method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1330	1453	
==>pital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, ti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1330	1453	
==>pital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, ti <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	821	928	
==>e ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7813	7956	
==>}
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7813	7956	
==>}
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30892	30989	
==>stack, and returns an object.

Finally, if you want to add a new POSIX character class, its handle <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4799	4905	
==>span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4799	4905	
==>span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2199	2315	
==>could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2339	2455	
==>could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35495	35603	
==>es elements in this object as an array
ref.

=item C<as_debug_string()>

This method returns a stringified ve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35495	35603	
==>es elements in this object as an array
ref.

=item C<as_debug_string()>

This method returns a stringified ve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	981	1106	
==>d $rx;
  return $self;
}


sub regex {
  my ($self, $rx) = @_;
  %$self = (
    regex => \"$rx",
    len => length $rx,
    tr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	187	309	
==>= class 'TestBuilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attribu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16488	16590	
==>ype::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($.then), type($ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	564	716	
==>sish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::S <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	564	716	
==>sish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4781	4898	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4974	5091	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16194	16304	
==>s" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey001" =~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4997	5177	
==>..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4997	5177	
==>..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	825	950	
==>ertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method en <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	825	950	
==>ertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15041	15146	
==>word") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15041	15146	
==>word") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  m <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	426	673	
==>s, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0 <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	426	673	
==>s, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4386	4506	
==>time or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4386	4506	
==>time or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	944	1073	
==>he values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	944	1073	
==>he values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	569	666	
==>pher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor options <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	569	666	
==>pher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor options <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21439	21555	
==>- 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17860	17976	
==>- 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	456	561	
==>Create an iterator.

=head2 next()

Iterate through it, of course.

=cut

sub new {
    my($proto, $thing) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1396	1501	
==>self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3659	3820	
==>unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @r <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3659	3820	
==>unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3147	3254	
==>path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- ` <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3147	3254	
==>path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- ` <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1820	1956	
==>leop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&nega <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1831	1967	
==>leop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&nega <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1160	1273	
==>es (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1160	1273	
==>es (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1256	1355	
==>l, Match:\n", Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	357	454	
==>{dups} = Set::Object->new;

    $self->reduce($program);

	$self->{dups}->members;
}

sub generic_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7512	7620	
==>syncat};
  if ( $temp2 == PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @operatorSta <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8086	8209	
==>or @pfiles;

my $rebuild;
step
  descr  => "Checking if we have to rebuild the initrd",
  ensure => sub { defined $rebuild } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2813	2917	
==>($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2813	2917	
==>($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$co <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3648	3771	
==>mments
#    $file =~ s/#(.*)$/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2683	2778	
==>ample.  For fprime, the
example goes on step further and Curries approxfprime with the user supp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5166	5384	
==>=> -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5166	5384	
==>=> -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3910	4023	
==>!' unless _('$.testplan');
            push @{_('@:results')} => $test;
            _('$.output')->write( $test->r <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2872	2964	
==>the time outdated) image is available at
      http://m19s28.vlinux.de/iblech/pugs/livecd.iso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2952	3096	
==>d );
    return sub {
        my $bool = $const eq substr( $_[0], $_[5], $lconst );
        $_[3] = bless \{ 
                bool  => \$bool <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22652	22757	
==>ator_here><Expression> <';'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7296	7441	
==>le( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	597	742	
==>le( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8419	8622	
==>alue),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$orig) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $_ = "" . $_;
    n <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1038	1137	
==>header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1038	1137	
==>header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11001	11093	
==>(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	824	976	
==>erl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	824	976	
==>erl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	551	647	
==>C4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphered <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	551	647	
==>C4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphered <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9650	9747	
==>Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9650	9747	
==>Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersec <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8215	8316	
==>turned will be array references to the sub
array.

In Scalar context, they all return the count of ele <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3749	4083	
==>}          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3749	4083	
==>}          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $e <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1918	2023	
==>:today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

metho <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1918	2023	
==>:today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

metho <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	374	484	
==>),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annotate( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1130	1264	
==>capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1130	1264	
==>capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1143	1252	
==>@items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1143	1252	
==>@items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3618	3811	
==>\$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%arg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47127	47272	
==>ol->new('%:namespace')));
                  }))
                  ->or(block->new($e, sub {
                      $e->set('$return' => $e->get('$s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	501	624	
==>LG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1100	1197	
==>nt or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments and r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1100	1197	
==>nt or '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments and r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6516	6616	
==><pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6516	6616	
==><pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	213	319	
==>at least one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2197	2300	
==>-e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hello>. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14930	15044	
==>PERL5LIB;

    return(\%tot, \%failedtests);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1283	1380	
==>eturns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1283	1380	
==>eturns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method member( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8157	8303	
==>t( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7877	8015	
==>t( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = sh <==
2	/Users/nnunley/pugs/util/func_refact.pl	484	598	
==>a function to print more
information about as components are computed.
END
    exit 0;
}
 
our $nodes = YAML::LoadF <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3933	4044	
==>ttributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3933	4044	
==>ttributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13719	13821	
==>sider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set:: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13719	13821	
==>sider using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7407	7520	
==>der("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7407	7520	
==>der("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticat <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4430	4538	
==>comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
i <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4430	4538	
==>comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1743	1897	
==>:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1743	1897	
==>:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12244	12369	
==>in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12238	12363	
==>in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4732	4855	
==>n 'file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12093	12197	
==>2 Using the Tree

If you want to work with the parse tree independently, use the root()
method to get it. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4619	4712	
==>span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4619	4712	
==>span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6740	6866	
==>self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert sib <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6740	6866	
==>self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert sib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24253	24432	
==>1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24532	24711	
==>1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2387	2492	
==>est to work with those limitations and 
still produce a working version of File::Spec for use as we develo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2387	2492	
==>est to work with those limitations and 
still produce a working version of File::Spec for use as we develo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22570	22700	
==>);

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18991	19121	
==>);

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25414	25509	
==>Rosetta and the licenses
of the other components concerned, provided that you include the source <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25414	25509	
==>Rosetta and the licenses
of the other components concerned, provided that you include the source <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2826	2935	
==>h);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2826	2935	
==>h);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6277	6399	
==>.0)?$/;
    }
    else {
        push @pkgs, -package => 'unix';
    }
    push @pkgs, -package => 'readline' if grep /^-DP <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29695	29802	
==>eneric relational operator that returns a new Relation::Example
which has a subset of the original's attribu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34913	35012	
==>eneric relational operator that returns a new Relation::Example
which has a subset of the original's <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19720	19832	
==>sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19720	19832	
==>sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a <==
2	/Users/nnunley/pugs/misc/S29_round.pl	777	905	
==>( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_symmetric ( Num $x ) {
    my $x_round;

    # rou <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15312	15415	
==>b, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22550	22643	
==>The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22550	22643	
==>The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	682	790	
==>e a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	682	790	
==>e a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	718	817	
==>r multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	718	817	
==>r multi-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cip <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1347	1444	
==>ly work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1347	1444	
==>ly work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	418	601	
==>$.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	418	601	
==>$.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	774	874	
==>fix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# compa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	774	874	
==>fix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# compa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11073	11180	
==>:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11073	11180	
==>:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the ti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8385	8504	
==>op::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8093	8208	
==>op::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6513	6619	
==>tpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_directories), $path_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6513	6619	
==>tpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_directories), $path_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	569	704	
==>) : bit->new(0) }
sub to_num { 
    # eventually must deal with Inf and NaN
    no warnings 'numeric';
    return num->new((shift)->to_n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	2	97	
==>ckage Match;
package Match::Subrule;

package MatchX;
package MatchX::Subrule;
@ISA=qw(MatchX Ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17155	17265	
==>0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17312	17422	
==>0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9961	10064	
==>te validations
are performed at the moment the user tries to set the input, and input that
fails immedia <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9961	10064	
==>te validations
are performed at the moment the user tries to set the input, and input that
fails immedia <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4089	4221	
==>names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4089	4221	
==>names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10325	10425	
==>method get_method_list (opaque $self:) returns list { 
    %:methods.keys;
}

(method get_method_list <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	729	825	
==>returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", ne <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	729	825	
==>returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", ne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4146	4270	
==>ath eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4146	4270	
==>ath eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1828	1969	
==>ule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    }
    @rule_te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1828	1969	
==>ule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    }
    @rule_te <==
2	/Users/nnunley/pugs/util/func_refact.pl	847	975	
==>. "\n";
	doUnion (@{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	726	843	
==>$span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	726	843	
==>$span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.star <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4137	4260	
==>eck the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "In <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4137	4260	
==>eck the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "In <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15360	15472	
==>$self = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9357	9462	
==>T, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "can't clo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5733	5848	
==>(split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5791	5906	
==>(split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3458	3569	
==>$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3458	3569	
==>$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6508	6624	
==>s

sub new {
	my $class = shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22520	22615	
==>TION

This library provides a partial implementation, in the form of several
roles, for a Relati <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	54	147	
==>inal;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.ar <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	54	147	
==>inal;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.ar <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1239	1361	
==>t "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5250	5341	
==>with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (print|say|warn| <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4084	4218	
==>match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4084	4218	
==>match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3867	3983	
==>ect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3867	3983	
==>ect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @sp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11405	11563	
==>.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undef <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11405	11563	
==>.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undef <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18915	19011	
==>t => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persisten <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18915	19011	
==>t => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a persisten <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4036	4162	
==>count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of our chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4036	4162	
==>count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of our chil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3515	3673	
==>} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6220	6331	
==>ing {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6220	6331	
==>ing {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    r <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6285	6387	
==>re are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document identified <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6285	6387	
==>re are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document identified <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2682	2864	
==>error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2682	2864	
==>error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message <==
2	/Users/nnunley/pugs/util/testgraph.pl	1094	1195	
==>-cssfile,  -c FILE  location of css. [default: $Config{cssfile}]

See also:
   util/yaml_harness.pl  - <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9097	9182	
==>5_charset_items([Item1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20246	20342	
==>o the program package.  No
recompilation necessary.  This is something that end users could do,
a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20246	20342	
==>o the program package.  No
recompilation necessary.  This is something that end users could do,
a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2686	2794	
==>l :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    metho <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2686	2794	
==>l :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8554	8660	
==>erator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or terna <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6088	6193	
==>erator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or terna <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2791	2893	
==>lf->{_timing}{end} - $self->{_timing}{start};
    DumpFile($Config{"output-file"}, {
            meat = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1217	1323	
==>my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return ' <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1217	1323	
==>my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return ' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19376	19480	
==>ch_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order function that takes a functi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9262	9364	
==>= $self->remove_registered_alternative( package => $inst_pkg );

        ### this package didn't provid <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	940	1078	
==>ile @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	940	1078	
==>ile @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	10	108	
==>/perl

package Blondie::Backend::C::Builtins;

use strict;
use warnings;

use Blondie::Nodes;

{
	p <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5674	5770	
==>\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    and return {
      pugs_version  => $1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2370	2490	
==>t;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15977	16096	
==>t;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7280	7408	
==>rogram = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7268	7396	
==>rogram = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4320	4501	
==>e}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4189	4364	
==>e}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matche <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28630	28730	
==>les, but it expects you
to make modules having a specific simple API that will serve their role.

For <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28630	28730	
==>les, but it expects you
to make modules having a specific simple API that will serve their role.

For <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2766	2902	
==>',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2766	2902	
==>',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	117	217	
==>ns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	117	217	
==>ns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13344	13470	
==>b walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27177	27303	
==>b walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38565	38662	
==>example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38565	38662	
==>example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	47	138	
==>::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	375	631	
==>Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	375	631	
==>Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15908	16009	
==>)`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15908	16009	
==>)`

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will be a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3894	3994	
==>Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $ho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3894	3994	
==>Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $ho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	257	358	
==>@\%\&][\.\:][a-zA-Z0-9_]+$/)
        || confess "bad attribute name ($name)";
    $class->SUPER::new($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21360	21453	
==>(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specifically, ma <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4417	4548	
==>_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4417	4548	
==>_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	967	1072	
==>kage Blondie::TypeSafe::Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	us <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	215	317	
==>qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3933	4043	
==>}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq 'Disp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4127	4230	
==>ool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4127	4230	
==>ool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14216	14332	
==>rs from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and thei <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14216	14332	
==>rs from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and thei <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6855	6955	
==>t insert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insert <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6855	6955	
==>t insert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insert <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20063	20162	
==>guments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20063	20162	
==>guments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7285	7418	
==>per(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7297	7430	
==>per(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1526	1659	
==>$RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = file_n <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1526	1659	
==>$RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = file_n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9993	10096	
==>) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'Lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9993	10096	
==>) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'Lis <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	202	332	
==>loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($coun <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	202	332	
==>loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($coun <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13337	13423	
==>span class="tests_failed"><tmpl_var name=failed> failed</span>,
		<span class="tests_to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13410	13550	
==>ct),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13410	13550	
==>ct),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3170	3281	
==>{ $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3170	3281	
==>{ $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	676	801	
==>ssed($attrs) && $attrs->isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OB <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9821	9925	
==>first module written for Pugs.

It provides a simple set of common test utility functions, and is
an impl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9879	9983	
==>first module written for Pugs.

It provides a simple set of common test utility functions, and is
an impl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41295	41384	
==>ive.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41295	41384	
==>ive.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5201	5333	
==>est::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5259	5391	
==>est::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10433	10544	
==>tor:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10433	10544	
==>tor:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2924	3023	
==>osure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2924	3023	
==>osure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.clos <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9276	9404	
==>nciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9276	9404	
==>nciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6906	7051	
==>grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6906	7051	
==>grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print po <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11786	11950	
==>!~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4429	4593	
==>!~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	210	343	
==>fix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1718	1816	
==>if ((index $options, "nows") >= 0);

  #print "name: $name - eq: $equivalence - rp: $relativePreced <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6105	6245	
==>1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6105	6245	
==>1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-. <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3155	3274	
==>e but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3155	3274	
==>e but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2775	2917	
==>s->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2915	3057	
==>s->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	634	738	
==>ode;

*grammar_name = Pugs::Compiler::Token->compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2562	2666	
==>mmar::Base';\n" .
            "use Pugs::Runtime::Match::Ratchet; # overload doesn't work without this ?? <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1617	1749	
==>:Kernel.post($session, "say_hello", "Ingo");
  # "Hello, Ingo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2926	3077	
==>smoke{pugs_revision} ||= 0;
  $smoke{timestamp}       = time;
  $smoke{id}              = $id;
  my $filename            = pack_smoke(%smoke);

  open m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22088	22187	
==>is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26640	26739	
==>is analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	44	137	
==>::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	44	137	
==>::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10044	10143	
==>=> 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor argu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10044	10143	
==>=> 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor argu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3265	3367	
==>t)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5369	5476	
==>e)
  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3466	3568	
==>t)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8413	8526	
==>$.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8413	8526	
==>$.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	124	244	
==>Dir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PR <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	124	244	
==>Dir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1047	1216	
==>lt = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1187	1356	
==>lt = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3712	3834	
==>tr is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3712	3834	
==>tr is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3701	3905	
==>port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3701	3905	
==>port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = " <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2031	2124	
==>tandard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2031	2124	
==>tandard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8985	9093	
==>t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepen <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8985	9093	
==>t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20137	20235	
==>core to be completely testable on its own.  It is
coded intentionally in a simple fashion so that i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20137	20235	
==>core to be completely testable on its own.  It is
coded intentionally in a simple fashion so that i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3133	3245	
==>[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigsp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3121	3233	
==>[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigsp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7110	7220	
==>o add some information to the output.

A default implementation of this method is provided which returns nothin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7110	7220	
==>o add some information to the output.

A default implementation of this method is provided which returns nothin <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2810	2897	
==>gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pug <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2810	2897	
==>gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pug <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9870	9967	
==>ple set of common test utility functions, and is
an implementation of the TAP protocol.

This modu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9928	10025	
==>ple set of common test utility functions, and is
an implementation of the TAP protocol.

This modu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10697	10874	
==>>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.travers <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10697	10874	
==>>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.travers <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	67	170	
==>tor:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
say PI;
s <==
2	/Users/nnunley/pugs/util/package-osx.pl	6352	6453	
==>3/Perl6::Overview::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/local <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12046	12160	
==>ler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12046	12160	
==>ler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3313	3430	
==>ee.new(:node<Type>).add_children(
                Tree.new(:node<Package>).add_children(
                    Tree.new( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3764	3906	
==>ts   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    print "Tests                 : Proces <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10192	10304	
==>)) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2493	2613	
==>ts name.



of course that has the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2400	2517	
==>ts name.

of course that has the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	498	631	
==>)
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	498	631	
==>)
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6014	6114	
==>asic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6014	6114	
==>asic parsing functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip par <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	271	384	
==>osures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	271	384	
==>osures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32321	32498	
==>>new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32976	33153	
==>>new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8426	8517	
==>push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2251	2342	
==>push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7444	7559	
==>, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Litt <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4814	4956	
==>elf->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURES
}
    else {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2033	2210	
==>_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2280	2457	
==>_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39190	39273	
==>Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<R <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39190	39273	
==>Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<R <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8865	8975	
==>][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")";
}
sub PIL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	606	714	
==>$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token->compile(q( [ \w | \d | \: ]+ ))->cod <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	333	438	
==>, "> $out" or die $!;
print OUT "module $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** N <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12050	12160	
==>ect(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4693	4803	
==>ect(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1145	1255	
==>tems -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1145	1255	
==>tems -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1457	1568	
==>ord>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	996	1099	
==>Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	996	1099	
==>Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4467	4599	
==>atch = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4467	4599	
==>atch = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+> <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4899	4999	
==>R "done.\n" if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1097	1194	
==>afe::Type/;
	sub type { $_[0] }

	package Blondie::TypeSafe::Type::Placeholder;
	use base qw/Blond <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	179	301	
==>.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	179	301	
==>.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3475	3603	
==>er + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3463	3591	
==>er + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4259	4382	
==>where?
  sub flag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1521	1614	
==>atement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1521	1614	
==>atement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings q <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24726	24847	
==>have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free So <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24726	24847	
==>have received a
copy of the GPL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free So <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13811	13934	
==>is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autoping secon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13811	13934	
==>is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $autoping secon <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1519	1727	
==>sg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1519	1727	
==>sg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8403	8630	
==>sfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### st <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8867	9094	
==>sfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20681	20820	
==>sh @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20960	21099	
==>sh @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1158	1257	
==>er::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1158	1257	
==>er::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have para <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26092	26186	
==>ading of this Relation::Example.  Each attribute name is a character
string.

=item C<$!body> - <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	199	284	
==>.org/group/perl.perl6.language/20985
  docs/quickref/rules
  http://search.cpan.org/di <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5160	5283	
==>_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastcloseparen = SvOK(lcp) ? SvIV(lcp) : r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17540	17642	
==>har* xend, PMOP* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ regexp* prog, char* stringarg, ch <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	583	703	
==>n is export {
    Duration::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8454	8543	
==>spec_neg(L), !.
p5_modifier_spec_neg([-m|L]) --> "m", p5_modifier_spec_neg(L), !.
p5_modif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12536	12654	
==>= $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / ta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12536	12654	
==>= $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / ta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4080	4263	
==>eta        => $pkg->meta,
                    file        => $pkg->file,
                    repository  => $self,
                ) or return;              

    File::Copy::copy( $pk <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12048	12166	
==>an = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12048	12166	
==>an = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	380	482	
==>It is very much in a state of flux.

=cut

class JSX::PseudoValue;
class JSX::InternalValue is JSX::Pse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13343	13437	
==>w C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13343	13437	
==>w C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12497	12598	
==>pe variable)
# this new env is passed down to the body, but is also reused in the 'type' attr
fun: env <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	562	660	
==>this handles 'use base "Regexp::Parser"'
# which wouldn't call 'import'
{
  my ($level, $prev, $pkg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8460	8571	
==>pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8460	8571	
==>pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSI <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3269	3367	
==>$self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3269	3367	
==>$self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2780	2880	
==>ars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2780	2880	
==>ars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	571	739	
==>mp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	571	739	
==>mp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return ' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1132	1287	
==>eth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1132	1287	
==>eth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20621	20722	
==>panded again.

Every bit of the default process described above is overridable by
various methods.

=h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20621	20722	
==>panded again.

Every bit of the default process described above is overridable by
various methods.

=h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	879	992	
==>($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }

    unless( $meta or $meta = $self->extract_meta <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27478	27581	
==>o a true value, forces it to behave as though STDOUT were
not a console.  You may need to set this if yo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3059	3159	
==>et_y, 16, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids');

my <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17769	17868	
==>.11
      <BitwiseORExpression>
    | <LogicalANDExpression> <'&&'> <BitwiseORExpression>
}
rule Log <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1660	1768	
==>plate'.  I will merge them in memory, but
    you may wish to check for new settings and edit the old
    con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5763	5873	
==>lize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5763	5873	
==>lize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6007	6106	
==>ie "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($inde <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6007	6106	
==>ie "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($inde <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4848	5010	
==>{ # XXX - should be enum
   has $.normal;
   has $.break;
   has $.continue;
   has $.return;
   has $.throw;
}
class JSX::InternalValue::Completion {
   submethod <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1851	2011	
==>nt.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1851	2011	
==>nt.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	739	841	
==>buggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   thi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	739	841	
==>buggy, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   thi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2084	2197	
==>e == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2084	2197	
==>e == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: S <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	262	390	
==>arg;
    die usage() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $may <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1842	1941	
==>for @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1842	1941	
==>for @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11249	11378	
==>trol';
    
            $res .= "    push \@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expand <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26474	26578	
==>>stringify, "∀α. ∀β. list α → list β → list (α × β)", "pretty print :t zip");
}




# test <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5959	6065	
==>d content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5959	6065	
==>d content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-T <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8268	8364	
==>estrian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8268	8364	
==>estrian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28486	28630	
==>y $self = shift;
    $self->SUPER::init();

    $self->add_handler('&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5447	5595	
==>$n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5669	5817	
==>$n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8271	8402	
==>,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8464	8595	
==>,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  mat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4201	4302	
==>[/*]> #SourceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'//'> <SingleLineComme <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1935	2034	
==>e!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return % <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1935	2034	
==>e!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return % <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2368	2487	
==>ro       Perl compile-time subroutine
    Rule        Perl pattern
    Block       Base class for all unnameable executa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8951	9055	
==>th seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\\#/#g;

  $relative_file =~ s/t$/ht <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11466	11559	
==>r $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11524	11617	
==>r $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17477	17580	
==>gether with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17477	17580	
==>gether with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3034	3138	
==>= join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3034	3138	
==>= join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directories t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1960	2046	
==>ayout($$) }

type::operator::binary: parenthesize($$) = { $$->isa("type::operator::pair <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4501	4623	
==>pan1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4501	4623	
==>pan1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26088	26187	
==>em C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational operator th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30640	30739	
==>em C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational operator th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	19	121	
==>ar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	19	121	
==>ar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtim <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3607	3780	
==>epends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLV <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4071	4244	
==>epends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLV <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14568	14733	
==>n;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14562	14727	
==>n;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cm <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1735	1838	
==>n Pugs.Prim.hs
    # (maybe :lang<YAML> doesn't quite belong here?)
    multi sub eval (Str $code = $CAL <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5119	5214	
==>shift if ( $tokenCat == PGE_OPTABLE_PREFIX );
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_CI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6205	6329	
==>urn $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6205	6329	
==>urn $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a si <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4687	4815	
==>> \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5339	5467	
==>> \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_e <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2860	2969	
==>ll, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	eval {
	   join(" ",
		   (map { "∀${_}." } <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	795	896	
==>$t6 - $t5;

print "C code:\n$res\n";

#print "Compiled: " . $pretty->string($c) . "\n";
#print "Type s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18137	18248	
==>cendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is su <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18137	18248	
==>cendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is su <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1257	1389	
==>kemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shi <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	595	726	
==>kemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	640	771	
==>{
    my $self = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2383	2502	
==>nf->archive_control;

        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy later if a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15530	15622	
==>egexp::QuantAttr

Removes quantifiers as objects, and makes 'min' and 'max' attributes of
oth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2402	2512	
==>value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2402	2512	
==>value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_AR <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1996	2127	
==>Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int multi Num::round_toward_zero (Num $x) {
	return(int $x);
}

our I <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	267	429	
==>class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$class\::$method"} = sub {
            +shift->_top->$method(@_);
        } unless defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1873	2059	
==>t @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2120	2306	
==>t @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3598	3742	
==>.. }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3610	3754	
==>.. }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	65	181	
==>ntrol:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	65	181	
==>ntrol:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \& <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1242	1361	
==>',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable En <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1242	1361	
==>',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable En <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1439	1544	
==>t.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1439	1544	
==>t.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Gramm <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28332	28433	
==>,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsuccessful capture.
(a\1) isnt ha <==
2	/Users/nnunley/pugs/util/run-smoke.pl	393	488	
==>it from the CPAN and try again.

A bundle is available to install at Bundle::Pugs::SmokeKit.
EOF <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	666	1027	
==>r ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	666	1027	
==>r ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5484	5597	
==>= ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there has to be a b <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4959	5062	
==>d{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $self->{'field_type'}{$fname} <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4712	4809	
==>$1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4712	4809	
==>$1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4779	4930	
==>if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4791	4942	
==>if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5639	5747	
==>e_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5639	5747	
==>e_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.ma <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3133	3231	
==>_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub check_prereq <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8586	8733	
==>$file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8586	8733	
==>$file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12597	12709	
==>warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6072	6184	
==>warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4700	4830	
==>es = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.uni <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4700	4830	
==>es = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.uni <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	135	242	
==>he
# "source" property of the object fallback to "content"
method source($self:) {
    $.source || $.content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	135	242	
==>he
# "source" property of the object fallback to "content"
method source($self:) {
    $.source || $.content <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15145	15241	
==>e this attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15145	15241	
==>e this attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4688	4809	
==>tch = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4688	4809	
==>tch = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	503	624	
==>FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	503	624	
==>FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3322	3439	
==>d( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3322	3439	
==>d( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  def <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	153	258	
==>::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	153	258	
==>::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36441	36537	
==>.

=item C<translate_message( $message! )>

This method takes a (machine-readable) Message object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36441	36537	
==>.

=item C<translate_message( $message! )>

This method takes a (machine-readable) Message object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1377	1472	
==>contains My/State/Temp markers for container

allocation, as well as the compile-time-bound valu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1317	1411	
==>contains My/State/Temp markers for container
allocation, as well as the compile-time-bound valu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42469	42615	
==>'$self:')->id;
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('class'),
    # method bo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8598	8690	
==>s Rosetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8598	8690	
==>s Rosetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4071	4177	
==>_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(anyof_ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18599	18697	
==>member in a set of key-codes,
which are hard-coded into your application or package, with one or mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18599	18697	
==>member in a set of key-codes,
which are hard-coded into your application or package, with one or mo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3265	3361	
==>pherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3265	3361	
==>pherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of enc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8480	8609	
==>$Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8538	8667	
==>$Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2321	2437	
==>turn Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2321	2437	
==>turn Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6249	6387	
==>' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6307	6445	
==>' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5024	5210	
==>$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6786	6972	
==>$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$meth <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	445	553	
==>:pos,$X::cap) if defined $v;
      }
      if(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1228	1357	
==>_->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24126	24239	
==>(var(H0), H1 = D ; ground_list(H0,D,H1) ; H1 = H0), !, ground_list(T0,D,T1).

initialE(amat([],flgs(-,-,-,-,-,-,-, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24994	25118	
==>gexp::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11683	11862	
==>d}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3143	3259	
==>ter> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %pa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3143	3259	
==>ter> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2650	2759	
==>/:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2650	2759	
==>/:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2181	2280	
==>multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2181	2280	
==>multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6491	6608	
==>k

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match obje <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6274	6386	
==>k
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match obje <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8739	8871	
==>52; }
    .indent1 { padding-top:  10px; border-bottom: 1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padd <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4780	4889	
==>) . " with " . Data::Dumper::Dumper($node);
			$self->unify_type($node, $expected);
		});

		return Blondie::T <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11790	11932	
==>n = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11790	11932	
==>n = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36095	36218	
==>Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: tail

=head2 unlessm

Family <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36270	36380	
==>Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: tail

=head2 su <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11585	11708	
==>_is_win32} ) {
        # Lose any trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my % <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1235	1345	
==>ad1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1235	1345	
==>ad1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15411	15531	
==>argets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15411	15531	
==>argets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	318	584	
==>p::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	319	585	
==>p::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10188	10298	
==>ch is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10188	10298	
==>ch is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set th <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2033	2131	
==>6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_yml = "blib6/lib/Prelude.pm.yml" <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5851	5940	
==>x)".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X::cap->[-2],"<ws>?(?x)".$::X::cap->[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7766	7892	
==>" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7766	7892	
==>" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1212	1306	
==>ortcut");
    $optable->addToken("term:\\n", "term:", "nows", "PGE::Exp::CCShortcut");
    $opt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20430	20528	
==>t want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20430	20528	
==>t want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7764	7893	
==>calar, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     safe   (List)\
\\n   List <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30682	30779	
==>-consumptive, which is why it must match the right parenthesis
itself.  The handler throws an erro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4862	4970	
==>::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNOPSIS T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4862	4970	
==>::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNOPSIS T <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3254	3385	
==>open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3254	3385	
==>open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cm <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	979	1079	
==>$p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	979	1079	
==>$p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11371	11476	
==>t of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11371	11476	
==>t of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.hea <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6424	6580	
==>82),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6424	6580	
==>82),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3899	4003	
==>sp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3899	4003	
==>sp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	368	468	
==>digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally overrid <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	368	468	
==>digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally overrid <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	47	160	
==>2;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	47	160	
==>2;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2553	2683	
==>rait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <ite <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2553	2683	
==>rait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <ite <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1521	1616	
==>r links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory there' <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1521	1616	
==>r links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory there' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22259	22373	
==>bute is a column, but a Relation is not a table.

The Relation class is pure and deterministic, such that all of it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26811	26925	
==>bute is a column, but a Relation is not a table.

The Relation class is pure and deterministic, such that all of it <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3656	3764	
==>s still being developed.

This module is primarily for reading human written files, and anything we
write sho <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3656	3764	
==>s still being developed.

This module is primarily for reading human written files, and anything we
write sho <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1936	2050	
==>{
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_assocations }
       );
}

# sigh ... ho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1254	1357	
==>es that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1254	1357	
==>es that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to s <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	328	433	
==>f_up (Num $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	862	965	
==>eplacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package M <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	862	965	
==>eplacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package M <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8626	8727	
==>y for any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8626	8727	
==>y for any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Ci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8014	8130	
==>d}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8002	8118	
==>d}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37546	37652	
==>:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1189	1328	
==>_left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_right  { $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30866	30959	
==>ational operator that returns a new Relation::Example
which has a superset of the original's a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3102	3231	
==>en($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3102	3231	
==>en($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9527	9637	
==>e form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9527	9637	
==>e form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	505	601	
==>ate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
time <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	505	601	
==>ate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
time <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	816	1005	
==>turn $self->evaluate($sexpr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($self, $sexpr) = @_;
        
        $depth++;
        
        # flags
        my $in_string <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2542	2636	
==>ntdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed a <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2542	2636	
==>ntdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1739	1836	
==>Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role pa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1739	1836	
==>Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role pa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7914	8042	
==>rod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7914	8042	
==>rod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	262	441	
==>ams) = @_;
            $params{'$.passed'}      = 1  unless exists $params{'$.passed'};
            $params{'$.skip'}        = 0  unless exists $params{'$.skip'};
            $para <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13733	13858	
==>y $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	708	806	
==>o other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1298	1396	
==>o other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8975	9118	
==>gs );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8662	8801	
==>gs );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19757	19863	
==>arnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my($fn)=@ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3514	3619	
==>mple's attributes and the value corresponding
        # to that is the value for that attribute for that t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	882	1005	
==>ntent = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    lo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	882	1005	
==>ntent = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    lo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2827	2945	
==>rent send (get_method $label)))
         (= $current (&dispatcher do))))
     ($method))

=cut

$::ENV->create('WALKMET <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1257	1370	
==>a->package );
    
    return $self;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4670	4846	
==>atch: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4670	4846	
==>atch: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5621	5763	
==>ve match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5621	5763	
==>ve match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])) <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	238	334	
==>pples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bayesia <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18276	18372	
==>l render as C<[\w\d:4-6]>.  If you want to prevent
characters and ranges from being display if th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1586	1719	
==>',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1586	1719	
==>',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2577	2721	
==>LE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2794	2938	
==>LE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8276	8394	
==>the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8276	8394	
==>the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3508	3922	
==>setta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encodi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3508	3922	
==>setta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encodi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5398	5536	
==>t.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstri <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5398	5536	
==>t.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	29	116	
==>:easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_St <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	29	116	
==>:easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_St <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4770	4898	
==>list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4770	4898	
==>list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5925	6062	
==>r::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5925	6062	
==>r::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1369	1522	
==>/, $string);
        
        my @args = $string.split;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # E <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18054	18161	
==>(int x str) this should be int
my $fst = comb(
	fun => ide("fst"),
	param => $pair,
);

# this makes sure th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16090	16184	
==>e Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spend <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16090	16184	
==>e Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spend <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10915	11024	
==>) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10915	11024	
==>) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1211	1357	
==>_path(),
    };

    add_path(archlib            => $config); 
    add_path(privlib            => $config); 
    add_path(sitearch           => $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	676	805	
==>rule( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternar <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1853	1963	
==>$class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1853	1963	
==>$class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22057	22155	
==>tain code, it
returns the first one it finds.  This also works for the multiple language
or permiss <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22057	22155	
==>tain code, it
returns the first one it finds.  This also works for the multiple language
or permiss <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4611	4725	
==>$totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} ) {
            w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	501	645	
==>level
my %rule_templates = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'prefix', op1 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18948	19061	
==>ignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	511	598	
==>/var/www/iblech/stuff/pugs-smokes/",
  BASEHTTPDIR => "/iblech/stuff/pugs-smokes/",
  BU <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1795	1926	
==>lue {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Numb <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1795	1926	
==>lue {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Numb <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	518	628	
==>:Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	518	628	
==>:Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1523	1629	
==>backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1523	1629	
==>backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Pa <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	689	814	
==>!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	689	814	
==>!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15870	15983	
==>=> $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10726	10839	
==>=> $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1752	1892	
==>ient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1752	1892	
==>ient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1016	1126	
==>ype'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native + <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	337	447	
==>fined $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "req <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40034	40258	
==>mbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->key <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19583	19798	
==>mbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->key <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30550	30694	
==>her = $self->send('_make_ascendant_dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch or <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16114	16238	
==>6obj_complain->("code") }, # XXX - unimplemented.
      ref   => sub { $as_p6obj_complain->("ref") },
      glob  => sub { $a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1243	1353	
==>ype'))
        || confess "The right hand side must be a core type";    
    return num->new($left->to_native - <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8233	8335	
==>rror), return;

    my $pkg = JIB::Package->new( file => $file );

    return $self->add_package(packag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1551	1698	
==>>add_rule( 
        name => '|',
        assoc => 'left',
        precedence => 'looser',
        other => '..',
    );

    # XXX - BUG - collision <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5457	5544	
==><\>\/\!\=\?\#\x[abd]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1903	2028	
==>me => 'eq',
        assoc => 'left',
        precedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21749	21851	
==>ith a new user message in
one of their own resource files.  At some appropriate place, usually in the
m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21749	21851	
==>ith a new user message in
one of their own resource files.  At some appropriate place, usually in the
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	22	128	
==>:Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	22	128	
==>:Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::D <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1256	1373	
==>, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1256	1373	
==>, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1409	1551	
==>har eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escapi <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1409	1551	
==>har eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escapi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	362	498	
==>for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	351	477	
==>for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4157	4274	
==>hars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4157	4274	
==>hars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5459	5564	
==>urrent process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5459	5564	
==>urrent process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	392	493	
==>GI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pug <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	392	493	
==>GI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2054	2199	
==>[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub qua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2054	2199	
==>[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub qua <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	185	325	
==>],
    class_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exis <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8803	8929	
==>XXX need status dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg->package )
                          ->file( $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7474	7612	
==>) = $P0(mob, 0, "PGE::Exp::Modifier")
    pos = mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13634	13750	
==>/span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Full smoke report">View f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	316	420	
==>}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15485	15601	
==>rs, such as their preferred language of communication, or their
privileges regarding access to information details, o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15485	15601	
==>rs, such as their preferred language of communication, or their
privileges regarding access to information details, o <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	464	575	
==>source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	464	575	
==>source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1320	1437	
==>}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc fo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9171	9276	
==>d($v) && $v eq $_[0]; # where does this recursion arise?
	my $v2 = recurse($v);
	$v2 = "\"$v\"" if $k eq ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4132	4254	
==>:Test')->FETCH('::WithReason') ],
    methods => {
        'report' => sub { "not ok " . _('$.number') . " #skip " . _('$.r <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4609	4724	
==>, -C => 'Parse-YAML', $TEMP_PRELUDE);
    $lines += print OUT while <$rh>;
    #my $program = do { local $/; <$rh> } <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	520	664	
==>0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            return reverse(@rv);
        });
    };
}

1;

__END__

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1860	1963	
==>l have a key, which will be specified in the options; check your 
cipher's documentation for details.

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1860	1963	
==>l have a key, which will be specified in the options; check your 
cipher's documentation for details.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14505	14606	
==>m encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This ro <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14505	14606	
==>m encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This ro <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	613	734	
==>he match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-lo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	613	734	
==>he match (also holds the
                  string that is being matched against).
    $.match     - State that is scope-lo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50091	50260	
==>ority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27689	27794	
==>, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation::Example o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8211	8340	
==>);
  ($operator) = newfrom($matchObj, $whitespacePosition, $match);
  #What does this line 
  #$temp1 = length $key + $whitespaceP <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8135	8229	
==>imalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalIntegerL <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	714	825	
==>ub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2944	3046	
==>ct {!p6_is_native(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30043	30137	
==>er!) returns Relation>

This method is a short-hand or alternative for the functionality provid <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34595	34689	
==>er!) returns Relation>

This method is a short-hand or alternative for the functionality provid <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14354	14476	
==>elf->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1834	1956	
==>elf->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2438	2554	
==>(Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2438	2554	
==>(Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10254	10369	
==>my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10254	10369	
==>my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3472	3562	
==>e must be properly installed.

An improperly installed C<Pugs::Compiler::Rule> module would <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16341	16473	
==>::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16341	16473	
==>::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16632	16766	
==>e methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      whil <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16632	16766	
==>e methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      whil <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	605	728	
==>erty is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	605	728	
==>erty is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	886	1012	
==>cing base class for fmapping nodes.

=head1 SYNOPSIS

    package My::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11733	11846	
==>]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14918	15015	
==>y.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14918	15015	
==>y.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic int <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7423	7541	
==>unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7423	7541	
==>unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31482	31664	
==>block'
            ),                
            sub {
                my $e = shift;
                $e->create('$counter' => num->new(0));
                return block->new($e, sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5847	5975	
==>' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:methods'}};
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5326	5433	
==>print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5326	5433	
==>print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18051	18203	
==>lsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14472	14624	
==>lsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7418	7547	
==>reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was kil <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7418	7547	
==>reason) = $event<object rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was kil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2504	2643	
==>my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0]. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2504	2643	
==>my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0]. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8890	8998	
==>'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8890	8998	
==>'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2590	2716	
==>h @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2590	2716	
==>h @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3541	3651	
==>OT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3758	3868	
==>OT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22952	23053	
==>s approach over similar packages is that
text is always looked up by a key which is not meant to be me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22952	23053	
==>s approach over similar packages is that
text is always looked up by a key which is not meant to be me <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10431	10545	
==>safe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unl <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10431	10545	
==>safe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16401	16525	
==>ap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"" <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15463	15579	
==>ap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6519	6620	
==>s Array of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6519	6620	
==>s Array of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17606	17703	
==>P
standard.>

=item $h.user_agent

This header field is used in request messages and contains info <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17606	17703	
==>P
standard.>

=item $h.user_agent

This header field is used in request messages and contains info <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	43	151	
==>::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	43	151	
==>::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13119	13231	
==>, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13119	13231	
==>, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1165	1277	
==>un::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5686	5803	
==>{
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5674	5791	
==>{
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7466	7565	
==>ead1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1694	1793	
==>ead1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15829	15956	
==>my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15823	15950	
==>my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14395	14496	
==>te_menulst },
  using  => sub { open my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16367	16461	
==>oves trailing chars that match C</\n/>. In
either case, it returns the number of chars removed. <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	858	1194	
==>c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	858	1194	
==>c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2874	2988	
==>ee above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2874	2988	
==>ee above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1178	1367	
==>ckage_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	461	650	
==>ckage_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10360	10477	
==>}

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10360	10477	
==>}

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logg <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3229	3329	
==>(Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3287	3387	
==>(Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is exp <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2908	3010	
==>if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2908	3010	
==>if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8149	8270	
==>return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8161	8282	
==>return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4231	4339	
==>ject is the second id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'O <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6133	6241	
==>ject is the second id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'O <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	899	998	
==>g on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	899	998	
==>g on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4646	4751	
==>normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4646	4751	
==>normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing % <==
2	/Users/nnunley/pugs/util/package-osx.pl	6559	6647	
==>l/man/man3/Perl6::Overview::Smartmatch.3
        /usr/local/man/man3/Perl6::Overview::Sma <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26174	26292	
==>N		0x00040	/* Check-string always at start. */
 #define ROPT_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #defi <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1845	1980	
==>pdir || $file eq File::Spec->curdir;
            next if $file eq ".svn";
            next if $file eq "CVS";
            my $currfile = <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1531	1665	
==>e_symbol})\)\s*\{/for $1 {/g;
    $_
}


my $conv = <<'CONVERSION_SUBS';
conv_array {
    s/\$(${re_symbol}\[.+])/\@$1/g;
    s/\$#(${r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12396	12489	
==>`eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

The <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12454	12547	
==>`eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

The <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13601	13706	
==>=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to an <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13601	13706	
==>=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equivalent to an <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7213	7311	
==>..


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7213	7311	
==>..


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9018	9130	
==>n $self->raw, map join("", map $_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $self = shift;
    jo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32797	32890	
==>head1 OBJECTS

All objects are prefixed with F<Regexp::Parser::>, but that is omitted
here for <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2919	3039	
==>t);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     or <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2919	3039	
==>t);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     or <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17509	17664	
==>send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::si <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40778	40933	
==>send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11712	11892	
==>uery_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11712	11892	
==>uery_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	84	183	
==>specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An obj <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	84	183	
==>specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An obj <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1507	1610	
==>1 DESCRIPTION

This module provides a Perl interface for pluggable regular expression
engines.  It affec <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	247	347	
==>e.defined;
    return $:tree;
}

method show_tree ($self:) returns Void {
    $self.tree().traverse(- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9744	9849	
==>t1.union($set2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9744	9849	
==>t1.union($set2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	299	426	
==>LIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1827	1954	
==>LIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	233	328	
==>ld names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	233	328	
==>ld names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HT <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4251	4392	
==>== -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4251	4392	
==>== -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	596	711	
==>ch failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "ass <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	596	711	
==>ch failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "ass <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2895	3025	
==>&& $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2895	3025	
==>&& $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35810	35905	
==>her> argument and combines it with the
invocant relation into a new Relation, such that all comm <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40360	40455	
==>her> argument and combines it with the
invocant relation into a new Relation, such that all comm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1625	1722	
==>turn "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1625	1722	
==>turn "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	310	405	
==>arMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	310	405	
==>arMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1775	1899	
==>);
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	886	1008	
==>);
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6492	6611	
==>) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6492	6611	
==>) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4665	4792	
==>g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $class );
}

sub call {
	my ($s <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2405	2529	
==>g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	43	154	
==>::Type::Comparable;
use Perl6::Core::Num;
use Perl6::Core::Bit;

package str;

use strict;
use warnings;

use Ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14283	14397	
==>r {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14283	14397	
==>r {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_au <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	859	1020	
==>),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	826	978	
==>),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6w <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	894	999	
==>$dev}++;
  $num_commits++;
}

# $commits[0] should be first commit, not last
@commits    = reverse @commit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3562	3732	
==>\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3550	3720	
==>\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5243	5410	
==>evel]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52909	53035	
==>);    
    $meta->add_attr(symbol->new('$:version'   => 'str'));        
    $meta->add_attr(symbol->new('$:authority' => 'str' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21363	21468	
==>ead2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21363	21468	
==>ead2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	457	582	
==>match->();
    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#us <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24921	25007	
==>set_flag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_flag_s(E0,s,E1), !.
set_flag(E0,-s,E1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15713	15832	
==>ethod _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19190	19309	
==>ethod _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21694	21882	
==>b(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2144	2250	
==>eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	254	421	
==>ame) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	254	421	
==>ame) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4884	4990	
==>at is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4884	4990	
==>at is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	794	895	
==>nt.

The constructor for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::N <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	794	895	
==>nt.

The constructor for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::N <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1496	1615	
==>{
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1496	1615	
==>{
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	380	472	
==>S, "methods", "Set", { companion => "class" });
Has($?CLASS, "superclasses", "Set", { compani <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4943	5055	
==>e PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4943	5055	
==>e PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'p <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1293	1430	
==>,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimenta <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1293	1430	
==>,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimenta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2442	2582	
==>ort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2442	2582	
==>ort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	966	1065	
==>compare($_[1]) <= 0  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16049	16205	
==>pture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16328	16484	
==>pture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	997	1258	
==>< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=h <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	997	1258	
==>< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2610	2724	
==>to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2610	2724	
==>to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5323	5465	
==>atch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5335	5477	
==>atch, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1123	1242	
==>load;

    # Unregister loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2963	3082	
==>load;

    # Unregister loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3466	3641	
==>he current match, even if there is another
        match inside the closure
    $/()  
        just the capture - what''s returned in { return ... }
    $/0
        the first s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3455	3573	
==>he current match, even if there is another
        match inside the closure
    $/()  
        just the capture - what' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1866	1984	
==>eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	822	932	
==>estdir/$plxname.bat: $!";
print $F <<'EOT';
@rem = @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7255	7350	
==>ader("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7255	7350	
==>ader("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34602	34703	
==>, where the heading of <$other> is a subset of the
heading of the invocant Relation, and returns a new <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39152	39253	
==>, where the heading of <$other> is a subset of the
heading of the invocant Relation, and returns a new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9797	9892	
==>rs.new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-value p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9797	9892	
==>rs.new

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-value p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3118	3269	
==>ble {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2996	3141	
==>ble {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7088	7216	
==>(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7088	7216	
==>(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15377	15479	
==>L::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15377	15479	
==>L::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $en <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7630	7735	
==>nt is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=ite <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7630	7735	
==>nt is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=ite <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6225	6384	
==>TA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6225	6384	
==>TA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5338	5449	
==>$result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5338	5449	
==>$result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20623	20717	
==>butes are private, so you must use accessor
methods.  Relation does not declare any subroutines <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25175	25269	
==>butes are private, so you must use accessor
methods.  Relation does not declare any subroutines <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15457	15552	
==>=item $h.date

This header represents the date and time at which the message was
originated. I<E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15457	15552	
==>=item $h.date

This header represents the date and time at which the message was
originated. I<E <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6258	6349	
==>"
p5_elemental(word_boundary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", ! <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6559	6686	
==>sh representing
how that script failed.  Its keys are these:

    name        Name of the test which failed
    estat       Scri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2180	2295	
==>flex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accen <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2180	2295	
==>flex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12012	12195	
==>&product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15489	15672	
==>&product;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48572	48674	
==>rsion'   => 'str')));
$::Module->send('add_attribute', (symbol->new('$:authority') => attribute->new('$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28578	28667	
==>reganch |= ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MA <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2996	3125	
==>shness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2996	3125	
==>shness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $modu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1206	1305	
==>) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1206	1305	
==>) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12284	12395	
==>rror(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4927	5038	
==>rror(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13764	13889	
==>hunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub red <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1244	1369	
==>hunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub red <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	620	806	
==>satisfied   dependency_satisfied_by               
        ];


$Cwd            = cwd();
$Pms            = '_jib';                           # meta dir
$Root           = $Cwd . '/fakeroot <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12205	12312	
==>ntegerLiteral {  # see 9.3.1
      <'0x'> <HexDigit>
    | <'0X'> <HexDigit>
    | <HexIntegerLiteral> <HexD <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6243	6367	
==>$_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6243	6367	
==>$_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	755	960	
==>+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	755	960	
==>+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22040	22139	
==>=over 4

=item regex

A reference to the original string representation of the regex.

=item len

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1269	1372	
==>get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1269	1372	
==>get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27970	28062	
==>ing) associated with
the variable name specified in the positional parameter $var_name (a
str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27970	28062	
==>ing) associated with
the variable name specified in the positional parameter $var_name (a
str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24138	24249	
==>n ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20559	20670	
==>n ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2131	2233	
==>{
    return !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2131	2233	
==>{
    return !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10219	10323	
==>f._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10219	10323	
==>f._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.ciph <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3489	3584	
==>ion;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: St <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1631	1726	
==>ion;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	249	345	
==>RANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	249	345	
==>RANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP message header <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	634	750	
==>tput {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die "open: $Config{output}: $! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1209	1326	
==>->add_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' => q( <before <Pu <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2167	2280	
==>$file12 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5774	5875	
==>mplate->param(updated => localtime() . "");
$template->param(files => $total_files);
$template->param( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	539	640	
==>ecurity's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	539	640	
==>ecurity's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12137	12274	
==>n("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # particular instan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12137	12274	
==>n("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # particular instan <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6944	7047	
==>ill be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6944	7047	
==>ill be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by the ciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1927	2042	
==>t( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1938	2053	
==>t( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <su <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	351	487	
==>s{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loo <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	351	487	
==>s{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10119	10278	
==>working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10119	10278	
==>working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22616	22708	
==>seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22616	22708	
==>seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	453	559	
==>($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	453	559	
==>($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4277	4395	
==>from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	563	662	
==>recomp(), exit 0 if $Config{precompile};
usage();
exit 1;

sub setup_output {
    if ($Config{output <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17190	17310	
==>1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        el <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13611	13731	
==>1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        el <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	211	314	
==>ub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	211	314	
==>ub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1607	1726	
==>le-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1814	1933	
==>le-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18933	19081	
==>_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15354	15502	
==>_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else { <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1445	1540	
==>gs"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^X $F <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	15	141	
==>lder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	15	141	
==>lder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7776	7877	
==>rn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pug <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7776	7877	
==>rn canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pug <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32970	33068	
==>ributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32970	33068	
==>ributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	307	417	
==>lass, $rule_source, $param ) = @_;
    my $self = { source => $rule_source };

    $self->{grammar}  = delet <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1256	1359	
==>V => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code =~ s/([ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11371	11591	
==>stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11371	11591	
==>stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5574	5672	
==>erl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Littl <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5574	5672	
==>erl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Littl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	466	575	
==>1, allow => FILE_EXISTS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3357	3472	
==>iable {

    # External packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3357	3472	
==>iable {

    # External packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2994	3101	
==>opt2<value2>);

Create an encipherer closure, which can be called repeatedly to encipher data.
The enciphere <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2994	3101	
==>opt2<value2>);

Create an encipherer closure, which can be called repeatedly to encipher data.
The enciphere <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16475	16570	
==>t(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16475	16570	
==>t(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1699	1835	
==>str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1699	1835	
==>str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2857	2963	
==>s.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2857	2963	
==>s.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	368	506	
==>te "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $di <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	368	506	
==>te "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $di <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7651	7773	
==>$func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7651	7773	
==>$func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13533	13629	
==>as "say" and
database queries, may occur much later than expected.

It may enter an infinite loop <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13533	13629	
==>as "say" and
database queries, may occur much later than expected.

It may enter an infinite loop <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1674	1767	
==>};

Helpers::macif(%?CONFIG{'int_width'} == 32,'subset int of int32 where { true }');
Helpers: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19362	19453	
==>sing F<SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Character classes weren't c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	771	871	
==>a program.

=head1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_finder = Blondie <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34537	34625	
==>first, then in F<Regexp::MyRx::__object__> (if it exists), then
in F<Regexp::Parser::THIN <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3363	3460	
==>s\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4499	4596	
==>s\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	564	658	
==>PTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVIT <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	564	658	
==>PTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVIT <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1611	1729	
==>ms{'$.number'},
            ) if $params{'$.passed'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Fai <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4293	4407	
==>ER::unshift(@_);
}

sub push : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3944	4092	
==>match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4084	4232	
==>match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8641	8826	
==>shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8641	8826	
==>shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	978	1075	
==>] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is exp <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	978	1075	
==>] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6461	6568	
==>l() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6254	6356	
==>l() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7010	7144	
==>lf->{neg} = shift if @_;
      $self->{neg};
    }
  }

  sub visual {
    my $self = shift;
    if (ref $self->{data}) {
      $self-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16971	17065	
==>L (opaque $self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:descendant) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5500	5603	
==>ormalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5500	5603	
==>ormalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3019	3123	
==>/WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3019	3123	
==>/WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_h <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3479	3601	
==>l($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3479	3601	
==>l($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22676	22771	
==>change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22676	22771	
==>change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27230	27351	
==>od is a generic relational operator that returns a new Relation
which has a superset of the original's attributes; the new <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31782	31903	
==>od is a generic relational operator that returns a new Relation
which has a superset of the original's attributes; the new <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7158	7273	
==>) {
        for (@$o) { rebless_with_prefix($_,$prefix) }
    } elsif($s =~ /HASH/) {
        for (values %$o) { reb <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3690	3796	
==>ternative->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_fi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26912	27028	
==>er but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4610	4713	
==>dump =~ s/Perl6::Run::OnPerl5::X1::PilToPerl5:://g;
    $dump =~ s/!perl\//!/g;
    $dump;
}


package P <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	846	970	
==>tring'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_hash'}   = $h;
    $$o->{'from'}  = $from;
    $$o->{'to'}    = $t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17164	17255	
==>e =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Rege <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4336	4454	
==>:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4336	4454	
==>:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22030	22142	
==>rl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16932	17043	
==>rl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10732	10834	
==>:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- ` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10790	10892	
==>:* This function currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14097	14195	
==>not fit into one of the standard
testing functions. In that case, you can use the rather blunt pass <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14155	14253	
==>not fit into one of the standard
testing functions. In that case, you can use the rather blunt pass <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	447	549	
==>:L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	447	549	
==>:L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ms <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19030	19158	
==>ten_polymorphic = fun(
	param => "f",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("f"), <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	265	378	
==>PRELUDE = "Prelude.pm"; # XXX: move this to config.yml?
END { unlink $TEMP_PRELUDE unless $Config{keep} };

GetOpt <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3402	3529	
==>nescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3402	3529	
==>nescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	554	667	
==>that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	554	667	
==>that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $mat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2074	2180	
==>a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $fla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2074	2180	
==>a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $fla <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10315	10420	
==>g/pugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pre class <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	458	562	
==>);
}
Parrot_Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $ms <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	643	749	
==>fined $prompt) {
        my $script_name = File::Basename::basename($script_file);
        $prompt = "Do yo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2623	2748	
==>elf->family;
  }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\W' : '\w';
  }
}


{
  # \s \S
  package Regexp::P <==
2	/Users/nnunley/pugs/util/importgraph.pl	2548	2660	
==>k'),
    (defined $cluster ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	301	412	
==>8);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	301	412	
==>8);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32576	32671	
==>to, after it has
been walk()ed, it will insert the matching 'close' node into the
walking stack. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4332	4437	
==>day')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yester <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4332	4437	
==>day')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yester <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4529	4642	
==>5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <NumericLiteral>
    | <StringLiteral>
}
rule R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7284	7413	
==>am = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7272	7401	
==>am = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	948	1096	
==>\\@match, named => {}, capture => \\undef,
  }, 'Pugs::Runtime::Match::Ratchet';
};
);
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	559	657	
==>new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	559	657	
==>new XML::Generator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1295	1389	
==>orithm is based on statistics. This was my main motivation to
implement it. Other rate limiters <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1295	1389	
==>orithm is based on statistics. This was my main motivation to
implement it. Other rate limiters <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5578	5680	
==>$op]);
  $r;
}

# so Regexp::Parser doesn't have to struggle with the {?{...})
sub hlp_ws {  def_whites <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	577	697	
==>ig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	577	697	
==>ig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8037	8151	
==>s;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8037	8151	
==>s;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %han <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1420	1529	
==>r

allocation, as well as the compile-time-bound values for them.

It includes the parameters as well as anyth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1360	1467	
==>r
allocation, as well as the compile-time-bound values for them.
It includes the parameters as well as anyth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9730	9827	
==>dule was built to facilitate the Pugs test suite. It has the
distinction of being the very first m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9788	9885	
==>dule was built to facilitate the Pugs test suite. It has the
distinction of being the very first m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3183	3300	
==>xpected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3241	3358	
==>xpected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	761	858	
==>rogram = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matchi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	967	1064	
==>rogram = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matchi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	344	463	
==>:Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Packa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33201	33295	
==>lation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37751	37845	
==>lation>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24929	25056	
==>_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25208	25335	
==>_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	125	238	
==>use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one packag <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	127	240	
==>use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one packag <==
2	/Users/nnunley/pugs/util/addauthors.pl	1540	1668	
==>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3085	3172	
==>x.de/iblech/pugs/livecd-kernel.config.

Available options and defaults:
  --kernel-uri=$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	255	408	
==>strict;

sub print_repl_help {
    print ":h             show this help\n";
    print ":q             quit\n";
    print ":v             toggles verbose o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19902	19999	
==>has been parsed into blocks and the blocks have been
marked for various compilers, Module::Compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19902	19999	
==>has been parsed into blocks and the blocks have been
marked for various compilers, Module::Compile <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	927	1022	
==>rl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	927	1022	
==>rl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2466	2560	
==>away.
Encryptions after this point will be using stronger portions of the keystream.
(Just reme <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2466	2560	
==>away.
Encryptions after this point will be using stronger portions of the keystream.
(Just reme <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20835	20933	
==>an callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20835	20933	
==>an callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16327	16425	
==>tes the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16327	16425	
==>tes the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15728	15846	
==>, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s#/de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	841	952	
==>city.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9414	9575	
==> $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9414	9575	
==> $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7629	7795	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7822	7988	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1961	2142	
==>capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1949	2130	
==>capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$boo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13291	13382	
==>=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13291	13382	
==>=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37833	37930	
==>ssuming that a Perl module by the given module name
is already loaded, it tries to invoke $module_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37833	37930	
==>ssuming that a Perl module by the given module name
is already loaded, it tries to invoke $module_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19183	19293	
==>= MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19183	19293	
==>= MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3368	3502	
==>en;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3368	3502	
==>en;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    } <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5118	5220	
==>=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = M <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5118	5220	
==>=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2467	2582	
==>code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_err <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2467	2582	
==>code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_err <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20835	20925	
==>y $mn = p6_mangle($name);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1572	1689	
==>rs {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1572	1689	
==>rs {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1077	1213	
==>S.new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role Getopt::Argument::Normalizer::Null { }

    role <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27851	27952	
==>() returns Hash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
element <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3290	3440	
==>[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3290	3440	
==>[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7920	8083	
==>tegory>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DES <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	346	452	
==>Duration {
    #$self.subtract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Duratio <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20942	21043	
==>pen sysread sysseek syswrite tell telldir truncate umask
# unlink utime warn


# chroot crypt exec get <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17463	17556	
==>er will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML docum <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17463	17556	
==>er will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML docum <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7792	7956	
==>if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7792	7956	
==>if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8036	8165	
==>$pre ~= ":i";
            %mods.delete("i"); # avoid haskell handling it.
            %mods.delete("ignorecase");
#           warn <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	446	546	
==>::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(... <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	446	546	
==>::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(... <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1889	1998	
==>g)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1889	1998	
==>g)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	50	158	
==>CMA-262, ECMAScript Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes to specification gramma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	277	392	
==>ence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	277	392	
==>ence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11872	11993	
==>hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We rec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11872	11993	
==>hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We rec <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23535	23638	
==>urceElements>
}
rule SourceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElement <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14509	14608	
==>but that does getcwd()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3905	4259	
==>"";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3905	4259	
==>"";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::d <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	481	582	
==>!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	481	582	
==>!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3396	3524	
==>sionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6294	6399	
==>nd a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6294	6399	
==>nd a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers w <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	405	515	
==>att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_ty <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	405	515	
==>att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_ty <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16752	16867	
==>eate new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (opti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16752	16867	
==>eate new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (opti <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	283	403	
==>, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 3 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	283	403	
==>, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 3 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9723	9879	
==>(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is exp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9723	9879	
==>(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3428	3523	
==>ok.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is fre <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3428	3523	
==>ok.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is fre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3829	4025	
==>ength;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () { <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3829	4025	
==>ength;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5024	5131	
==>ath}", $self
    ) unless $self->{extensions};

    foreach my $obj (@{$self->{extensions}}) {
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3174	3274	
==>name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3232	3332	
==>name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23711	23839	
==>02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define RE <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28924	29026	
==>02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define RE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	260	359	
==>mar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	260	359	
==>mar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26208	26304	
==>gnored).  Each variable name can be any
defined and non-empty string, and each variable value can <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26208	26304	
==>gnored).  Each variable name can be any
defined and non-empty string, and each variable value can <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19003	19099	
==>dy => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation::Example $other <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2235	2336	
==>'s keystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
appli <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2235	2336	
==>'s keystreams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
appli <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2720	2837	
==>a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2720	2837	
==>a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11985	12083	
==>or method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11985	12083	
==>or method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1466	1583	
==>quest( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away ever <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1466	1583	
==>quest( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away ever <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8342	8469	
==>{
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8342	8469	
==>{
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discar <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1271	1414	
==>&& $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1271	1414	
==>&& $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15906	16003	
==>ation about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Ta <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15964	16061	
==>ation about the TAP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Ta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8249	8396	
==>q 'SubRoutine';
    $kind = 'Sub' if $kind eq 'SubPrim';
    $kind =~ s/^Sub(\w+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	war <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1545	1685	
==>turns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1545	1685	
==>turns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3095	3193	
==>uest headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3095	3193	
==>uest headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-L <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	433	538	
==>ized with a [ default_value => return value ] pair
### the default_value is the value of initalization, th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31915	32014	
==>compile and throw an
error (specifically, B<RPe_NOTREC>, "Sequence (?xx not recognized").  If
you wa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1218	1321	
==>ragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with white <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1218	1321	
==>ragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with white <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17377	17501	
==>ift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17377	17501	
==>ift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1486	1611	
==>path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1486	1611	
==>path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6227	6340	
==>har = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6215	6328	
==>har = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1421	1522	
==>ext they said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1421	1522	
==>ext they said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32550	32644	
==>ome attributes for configuration, its
main purpose is to convert Message objects on demand into <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32550	32644	
==>ome attributes for configuration, its
main purpose is to convert Message objects on demand into <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12278	12390	
==>shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	858	994	
==>esis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	858	994	
==>esis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6815	6965	
==>undary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $bou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6815	6965	
==>undary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $bou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7327	7447	
==>which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7079	7197	
==>which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" }, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5615	5724	
==>itself

sub new {
	my $class = shift;
	bless {
		instance => undef,
	}, $class;
}

sub instantiate {
	my $self <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3228	3342	
==>nt "processing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fname";

#    if ($file =~ s/^\#\s*(.* <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	591	732	
==>efined $kludge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1164	1260	
==>ots or
cube roots (as in the example above).  Read a Calculus textbook for details.
This implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7983	8083	
==>ll_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::gree <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7710	7806	
==>ll_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::gree <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4980	5159	
==>};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4980	5159	
==>};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6798	6913	
==>ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    .return (mob)

  er <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9332	9443	
==>_size" },
    help   => "We're now creating a zeroed image we will later mount.";

  step
    descr  => "Creatin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1959	2126	
==>ontent);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1959	2126	
==>ontent);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10440	10653	
==>_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10440	10653	
==>_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7324	7440	
==>n;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7324	7440	
==>n;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($st <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8796	8894	
==>4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This event p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8796	8894	
==>4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This event p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33236	33343	
==>-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37786	37893	
==>-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20419	20540	
==>=~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16840	16961	
==>=~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4880	4988	
==>recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4880	4988	
==>recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3694	3812	
==>() { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3694	3812	
==>() { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4436	4545	
==>lly, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4436	4545	
==>lly, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4617	4723	
==>named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::Ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4617	4723	
==>named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::Ke <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	468	612	
==>ule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	468	612	
==>ule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1725	1886	
==>n { named_capture => {
                ident => $_[0]{ident}(),
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, <==
2	/Users/nnunley/pugs/util/run-smoke.pl	115	208	
==>::Spec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YA <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	849	959	
==>pen;
}
method start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	849	959	
==>pen;
}
method start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28970	29066	
==>apping(Str) of Str $mapping! ) returns Relation::Example>

This method is a generic relational op <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37716	37808	
==>ethod is a generic relational operator that takes a single Relation::Example
in its C<$other> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38556	38648	
==>ethod is a generic relational operator that takes a single Relation::Example
in its C<$other> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	898	1009	
==>t::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	956	1067	
==>t::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	534	641	
==>ade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authori <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	534	641	
==>ade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authori <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11432	11545	
==>f %*ENV entries, so
        # toss the ones that involve perl_root, the install location
        @inc = grep !/per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41290	41382	
==>eractive.com>)

On 2005.03.21, provided feedback towards improving this module's
documentatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41290	41382	
==>eractive.com>)

On 2005.03.21, provided feedback towards improving this module's
documentatio <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18193	18316	
==>r::split (      Str $input ;  Str $delimiter          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1284	1377	
==>h @ISA, qw( Regexp::Parser::__object__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  pus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20643	20744	
==>w up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20643	20744	
==>w up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

Th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1571	1690	
==>grave"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1571	1690	
==>grave"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3637	4054	
==>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3637	4054	
==>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	871	972	
==>::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4958	5085	
==>rimental
    __PACKAGE__->add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tighter',
        othe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3990	4270	
==>lit(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3990	4270	
==>lit(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   po <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7704	7929	
==>};
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7704	7929	
==>};
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25218	25311	
==>version
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTH <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25218	25311	
==>version
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTH <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	837	936	
==>bout the remote user that is using your CGI. 
It also attempts to provide some useful defaults for d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	837	936	
==>bout the remote user that is using your CGI. 
It also attempts to provide some useful defaults for d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8927	9029	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Summary of Perl 6 Operators: L<http:// <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33120	33215	
==>>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37670	37765	
==>>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2998	3106	
==>can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will string <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2998	3106	
==>can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will string <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	11	146	
==>n" von Code-Objekten
$id = &subname.wrap (sub (*@args) {
	# Argumente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbei <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3793	3972	
==>\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3793	3972	
==>\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	686	815	
==>{ # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	686	815	
==>{ # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2163	2264	
==>niverse = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2163	2264	
==>niverse = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3452	3569	
==>cent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3452	3569	
==>cent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18674	18786	
==>es. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18674	18786	
==>es. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Li <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1686	1911	
==>} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1686	1911	
==>} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_eleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10094	10212	
==>$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10088	10206	
==>$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$name <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2036	2141	
==>turn $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2504	2621	
==>ned $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2644	2761	
==>ned $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28726	28891	
==>ture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29005	29170	
==>ture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2077	2186	
==>eaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag) = @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2077	2186	
==>eaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag) = @ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3246	3391	
==>s things in a hash to reduce algorithmic complexity
            gather {
                given $event.name {
                    when '*' { take % <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	418	522	
==>ootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tole <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	418	522	
==>ootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tole <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7746	7888	
==>ew('has_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	218	325	
==>s;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	218	325	
==>s;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50389	50519	
==>>new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6581	6694	
==>ise, root through the file to locate the case-preserved
        # version of the package name.
        if ( $subpa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12695	12853	
==>c method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12695	12853	
==>c method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9174	9291	
==>le, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9174	9291	
==>le, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4792	4911	
==>is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tm <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4792	4911	
==>is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1859	1988	
==>tack};
  return $self->{nparen};
}


sub captures {
  my ($self, $n) = @_;
  $self->parse if $self->{stack};
  return $self->{capt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	677	789	
==>een $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	677	789	
==>een $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3064	3208	
==>=> 'looser',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '||',
        assoc => 'right',
        precedence => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34943	35042	
==>e object is constructed.  If you want to
conceptually change an existing Translator object, you must <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34943	35042	
==>e object is constructed.  If you want to
conceptually change an existing Translator object, you must <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1950	2165	
==>rrent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1950	2165	
==>rrent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5491	5652	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5684	5845	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	493	636	
==>tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	493	636	
==>tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14101	14470	
==>??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11489	11600	
==>type)
        ? $self->$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduce {
    my $self <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8564	8695	
==>Pugs addition
        # This addition analyzes the reason for the TODO    
        my %todos;
        foreach my $detail (@{$results <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4897	4998	
==>. got the right cleared x for p3d');
is($p3d->get_y, 0, '... got the right cleared y for p3d');
is($p3 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1793	1888	
==>e will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all function <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1793	1888	
==>e will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all function <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1326	1419	
==>:Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1326	1419	
==>:Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1000	1098	
==>ing> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across al <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1000	1098	
==>ing> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across al <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1178	1280	
==>ubdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3018	3120	
==>ubdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1008	1139	
==>= shift;
    my $name = shift;
    my $args = $self->makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2061	2181	
==>v =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method no <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2061	2181	
==>v =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37430	37530	
==>odule( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37430	37530	
==>odule( $module_name! )>

This method takes the name of a Perl package in its positional parameter
$mo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2937	3056	
==>@basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2937	3056	
==>@basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	499	664	
==>x ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	499	664	
==>x ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7293	7439	
==>n bug";
  }
}
{
  # \d \D
  package Regexp::Parser::digit;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\d') <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5687	5873	
==>ay of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5687	5873	
==>ay of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::Key <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1068	1168	
==>."
        ?? Perl6::Internals::compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pug <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15446	15558	
==>ol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15446	15558	
==>ol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1726	1887	
==>-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1726	1887	
==>-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10492	10608	
==>b["min"] = min
    mob["max"] = max
    mob["islazy"] = islazy
    mpos = pos
    .return (mob)
  err_closure:
    pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4136	4234	
==>$newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4136	4234	
==>$newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is r <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	47	182	
==>nt $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    meth <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	47	182	
==>nt $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    meth <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	319	463	
==>);
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plug <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	319	463	
==>);
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plug <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1241	1374	
==>$resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	242	493	
==>RINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	242	493	
==>RINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18151	18249	
==>face, if at all.  To account for situations where multiple DBMS
objects want to use the same extern <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18151	18249	
==>face, if at all.  To account for situations where multiple DBMS
objects want to use the same extern <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15266	15371	
==>rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3316	3414	
==>e resolvable symbols into values

=item *

Replacing all values which the runtime provides builtins <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17881	17989	
==>}
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($fmt,$start,$fi - $start <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9215	9328	
==>avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile => perl script
#   stdin    => string to <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1205	1423	
==>ader', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1205	1423	
==>ader', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21826	21944	
==>l to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this distribution for that compar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21826	21944	
==>l to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this distribution for that compar <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4693	4789	
==>t_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8170	8266	
==>t_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.difference <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21421	21552	
==>tr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17842	17973	
==>tr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6104	6204	
==>q '^';
    return $o->mk_eater_for_re('\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1798	1912	
==>ilable for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.b <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1798	1912	
==>ilable for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1996	2124	
==>xpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1996	2124	
==>xpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7365	7492	
==>ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7116	7241	
==>ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14401	14595	
==>nstant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14680	14874	
==>nstant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5799	6044	
==>e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7561	7806	
==>e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	362	479	
==>] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	394	511	
==>] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->comp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20985	21078	
==>f your distrbution's modules that use Module::Compile based modules
will automatically be comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20985	21078	
==>f your distrbution's modules that use Module::Compile based modules
will automatically be comp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2370	2477	
==>e, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2370	2477	
==>e, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi sub *infix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8733	8847	
==>quiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/righ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6263	6372	
==>quiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/righ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15718	15869	
==>iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11084	11208	
==>12]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11084	11208	
==>12]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6001	6099	
==>ethod return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10258	10356	
==>ethod return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2778	2888	
==>.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2778	2888	
==>.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	507	641	
==>s because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if( <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	507	641	
==>s because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5213	5343	
==>m(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5271	5401	
==>m(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5605	5712	
==>urns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5605	5712	
==>urns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2729	2855	
==>ted( '<' . $_[0], '<..>' );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3487	3579	
==>n' => role 'TestBuilder::Test::WithReason' => {
    does => [ $::TestBuilder->FETCH('::Test') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2704	2815	
==>) {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2704	2815	
==>) {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5428	5549	
==>turn $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5428	5549	
==>turn $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6622	6720	
==>The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::Spec::Functions <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6622	6720	
==>The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::Spec::Functions <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1265	1371	
==>nothing is in MRO, we take the superclasses
    # because we know that is there ...
    $supers = $class->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3753	3982	
==>'params'  ) {
                my $type = pop @t;
                @t = ($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #war <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2029	2125	
==>l.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to chec <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2029	2125	
==>l.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to chec <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17088	17188	
==>spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17088	17188	
==>spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2930	3047	
==><SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule CR   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12887	13025	
==>os
  scan:
    if pos >= lastpos goto err_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endclass
    if $S0 == "-" goto err_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1663	1766	
==>onse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1663	1766	
==>onse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015? <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1131	1230	
==>f.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1131	1230	
==>f.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!m <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3829	3930	
==>g
with more power, move up to Config::Simple, Config::General or one of the
many other Config:: module <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3829	3930	
==>g
with more power, move up to Config::Simple, Config::General or one of the
many other Config:: module <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4234	4376	
==>ap.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4234	4376	
==>ap.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	716	907	
==>= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	716	907	
==>= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buff <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17642	17849	
==>>visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14063	14270	
==>>visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8966	9065	
==>ds are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end value of <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8966	9065	
==>ds are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end value of <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2393	2504	
==>@children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ---------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2393	2504	
==>@children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ---------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18422	18538	
==>f)
  cutatom:
    $P0 = self[0]
    $P0 = $P0.reduce(pad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	413	514	
==>\n"; exit },
) or usage();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started.\n <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	269	376	
==>y);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	269	376	
==>y);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2619	2727	
==>_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2759	2867	
==>_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    m <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	444	562	
==>st) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	444	562	
==>st) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	397	505	
==>since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	397	505	
==>since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5465	5606	
==>"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Bind( $to, $from );
    }
    el <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2048	2186	
==>q = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2928	3066	
==>q = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	598	706	
==>Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	113	202	
==>londie::Backend::Perl::Builtins;

use UNIVERSAL::require;

sub compiler_class { __PACKAGE_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7229	7331	
==>ta about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher orde <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6983	7081	
==>ta about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher orde <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7320	7494	
==>ut;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation::Example {

    if ($attrs.size <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7428	7581	
==>at(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7621	7774	
==>at(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1934	2047	
==>on't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permuta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1934	2047	
==>on't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permuta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7805	7935	
==>ontent;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7805	7935	
==>ontent;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2678	2890	
==>less ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1236	1436	
==>lue ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1236	1436	
==>lue ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4791	4921	
==>=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4791	4921	
==>=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10800	10958	
==>e<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10800	10958	
==>e<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=h <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5933	6107	
==>new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	625	741	
==>lus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	936	1060	
==>match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	936	1060	
==>match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGra <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11432	11551	
==>name=categories>
        <tr><th colspan="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name= <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	70	177	
==>data VJunc'

has Perl::JuncType $.juncType;

has Set of Val $.juncDup;
has Set of Val $.juncSet;

does Eq;
d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3	105	
==>usr/bin/perl

use strict;
use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	0	93	
==>﻿package Pugs::Grammar::Str;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13507	13614	
==>$self->{rx};

    # quantifiers must follow something
    $rx->error($rx->RPe_EQUANT)
      if @$tree == 0 o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2027	2158	
==>r;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19478	19590	
==>e clause 12
      <Block>
    | <VariableStatement>
    | <EmptyStatement>
    | <ExpressionStatement>
    | <IfS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6317	6477	
==>get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target =~ s/^$base//;
                      $_ => File::Spec->catfile( $to, $t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11226	11333	
==>=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree> <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11226	11333	
==>=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6983	7180	
==>-> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10460	10657	
==>-> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2021	2120	
==>y - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2021	2120	
==>y - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Q <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1621	1736	
==>UT, "> $fname.tex" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $col = 0;
#    print <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3087	3208	
==>ields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3087	3208	
==>ields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1284	1433	
==>";
            }
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>',
    my ( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9947	10051	
==>y $args = "[".join(",",@args)."]";
	push(@param_info,$args);
    }
    my $code_param_info = join(",",@pa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21727	21840	
==>= " Stat Wstat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest name stri <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1722	1823	
==>class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1722	1823	
==>class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7752	7861	
==>) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1344	1471	
==>TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1344	1471	
==>TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2018	2116	
==>ression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2018	2116	
==>ression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compi <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	83	183	
==>r $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

mul <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	83	183	
==>r $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

mul <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2534	2647	
==>1);
  }
  return $matchObj;
}

sub blank {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11238	11333	
==>as for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11238	11333	
==>as for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7308	7453	
==>, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7296	7441	
==>, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4662	4783	
==>tch->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4662	4783	
==>tch->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12199	12292	
==>eter is a member of the recurrence.
Otherwise, returns the previous element in the recurrence. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12199	12292	
==>eter is a member of the recurrence.
Otherwise, returns the previous element in the recurrence. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3682	3784	
==>buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3682	3784	
==>buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HT <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6599	6737	
==>$closure2, $direction ) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6599	6737	
==>$closure2, $direction ) {
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2038	2229	
==>boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehandle
    Code        Base class for all executable objects
    Routine     Base class for all nameable e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5356	5517	
==>_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5578	5739	
==>_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	956	1078	
==>->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2556	2678	
==>->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5754	5881	
==>d in path.  Looking in $ghc_root\n";

        if (-d $ghc_root) {
            # Looks like we've found a GHC directory.  Find th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	481	614	
==>./parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	481	614	
==>./parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .met <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23461	23555	
==>ad1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::La <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23461	23555	
==>ad1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::La <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34068	34275	
==>ew($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e->create('$dispatcher' => $e-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1565	1676	
==>e qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{
    package Blondie::Node::Unit;
    use base qw <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	834	937	
==>ifferent number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	834	937	
==>ifferent number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9572	9736	
==>.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found (which could be <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7285	7391	
==>, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code_helper {
    my($name,$pType, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	333	589	
==>values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	333	589	
==>values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given ver <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4977	5092	
==>hod expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4977	5092	
==>hod expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3179	3295	
==>>{levels}[$level]} ) {
            #print "pos $level at $opt->{precedence} $opt->{other}\n";
            $relative <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1662	1763	
==>file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1662	1763	
==>file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub pat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9236	9342	
==>and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9236	9342	
==>and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8500	8617	
==>ammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9335	9452	
==>ammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \$a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1050	1155	
==>erly, using it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1050	1155	
==>erly, using it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1527	1634	
==>le::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\. <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1527	1634	
==>le::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	809	907	
==>ur operates on whole bytes, XORing elements of a constantly-transforming 
state table with each byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	809	907	
==>ur operates on whole bytes, XORing elements of a constantly-transforming 
state table with each byt <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	306	418	
==>($value) && $value->isa('type'))
        || confess "You must provide a value to reference";
    bless \$value => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1202	1315	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1260	1373	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $exp <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	75	386	
==>lue Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	75	386	
==>lue Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	157	261	
==>as $.height;
has $.width;

has $!parent;
has @!children;

## -------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	157	261	
==>as $.height;
has $.width;

has $!parent;
has @!children;

## -------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1527	1645	
==>t, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1527	1645	
==>t, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10694	10872	
==>1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.trave <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10694	10872	
==>1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.trave <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12005	12096	
==>item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12005	12096	
==>item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6391	6492	
==>ck>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6391	6492	
==>ck>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$cha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	487	602	
==>ributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at lea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	487	602	
==>ributes of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at lea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4480	4613	
==>ires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4480	4613	
==>ires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.de <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1192	1400	
==>self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a real type system :-P
# there are more types ... but this will do fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3478	3606	
==>p { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3478	3606	
==>p { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3497	3616	
==>", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3497	3616	
==>", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6036	6169	
==>inue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6036	6169	
==>inue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2428	2547	
==>>{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = shift;
    my $self = { <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	76	182	
==>tring $gruß, String $name ) { "$gruß, $name!".say; }
}
#=Aufruf
$welt.hallo("Hallo", "Mike");
$welt.hallo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6342	6446	
==>}
	unshift@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (within "._q($range). <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11673	11771	
==>arnings 'redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8" <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21136	21250	
==>d}}, $test->{'next'}..$test->{max};
            $failed = @{$test->{failed}};
            (my $txt, $canon) = _cano <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1718	1817	
==>k;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_regexp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7953	8103	
==>$argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ /^is macrop5 (.+)$/) {
	return p6_macrop5($1)->(@args);
    }
    if($has_inv) {
	my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4567	4715	
==>=> \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfile, $href );
    }

    ### remove this package from the av <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3269	3365	
==>ti sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3269	3365	
==>ti sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2824	2941	
==>) if $cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13702	13797	
==>nt continuous measurements, such as times, temperatures, or price ranges.

Create a span of real <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13702	13797	
==>nt continuous measurements, such as times, temperatures, or price ranges.

Create a span of real <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9457	9577	
==>g";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize() <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9457	9577	
==>g";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize() <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	140	271	
==>ie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => Thunk(
		Seq(
			(map { Param($_) } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	957	1076	
==>e {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "use base 'Pugs::Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5335	5469	
==>oot, whose attributes will hold all of
    # the other data structures used by the Rosetta framework, as used by
    # the current proc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5335	5469	
==>oot, whose attributes will hold all of
    # the other data structures used by the Rosetta framework, as used by
    # the current proc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2943	3083	
==>my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2943	3083	
==>my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11207	11316	
==>ry (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11207	11316	
==>ry (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $me <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11341	11480	
==>{
        $output .= "$text <a href='$linkfile'>$whole</a>";
        $links++;
        next;
      }
      
      $linkhead = $1 if ($linkhe <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1035	1144	
==>tf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6419	6511	
==>um.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::Fals <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6419	6511	
==>um.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::Fals <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	381	486	
==>ilename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	381	486	
==>ilename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14330	14462	
==>ol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1810	1942	
==>ol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	805	939	
==>p called on @_";
    }

    sub str {
        Carp::croak "virtual method str called on @_";
    }

    my %DIGEST_CACHE;

    sub dige <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15329	15435	
==>rget  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15329	15435	
==>rget  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4282	4395	
==>Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4282	4395	
==>Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16224	16336	
==>nd possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12645	12757	
==>nd possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17541	17632	
==>e Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17541	17632	
==>e Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Ro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4287	4384	
==>captures as match objects.

=head2 %{}

When used as a hash reference, the match object returns na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4287	4384	
==>captures as match objects.

=head2 %{}

When used as a hash reference, the match object returns na <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14823	14926	
==>() function.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14881	14984	
==>() function.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6250	6364	
==>( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6250	6364	
==>( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $m <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4562	4725	
==>or($x);
    }
    elsif $x > 0 {
        $x_round = round_ceiling($x);
    }
    else {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::roun <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10101	10201	
==>://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
describe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10101	10201	
==>://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
describe <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3122	3255	
==>..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3122	3255	
==>..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16601	16705	
==>f8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup j <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21027	21131	
==>f8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup j <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2626	2755	
==>->{allow} } keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1065	1212	
==>emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixity}\n" if exists $n->{fixity};
    
    # 'undef' exam <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7985	8100	
==>to test I<$file>.

=cut

sub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self-> <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4984	5125	
==>"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      trave <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16946	17061	
==>ve is safe {
        Num::round_gen($n, &Num::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6255	6362	
==>k_this;

        ### remove the registered alternative
        $self->remove_registered_alternative( package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7951	8051	
==>null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7681	7777	
==>null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8571	8671	
==>ION

This document describes Rosetta::Model version 0.724.0.

It also describes the same-number versi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8571	8671	
==>ION

This document describes Rosetta::Model version 0.724.0.

It also describes the same-number versi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10877	10991	
==>-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<ne <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10877	10991	
==>-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<ne <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1750	1877	
==>rse?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1750	1877	
==>rse?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.univ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	78	183	
==>r == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " ~ 4 <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2135	2278	
==>b ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a directory is added to the queue.
Should return 1 <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2135	2278	
==>b ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets called before a directory is added to the queue.
Should return 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9193	9305	
==>%char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9193	9305	
==>%char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	264	366	
==>The test passing was simply to
permit refactoring with confidence.

It uses Language::Prolog::Yaswi, wh <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	40	136	
==>d::C::Builtins;

use strict;
use warnings;

use Blondie::Nodes;

{
	package Blondie::Backend::C:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9753	9875	
==>turn $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11230	11352	
==>turn $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	468	574	
==>Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	468	574	
==>Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = subs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1488	1604	
==>. '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1488	1604	
==>. '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	826	932	
==>expression($res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  List::reverse ( *@value <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17842	18047	
==>s' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41110	41312	
==>s' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self:')-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18916	19056	
==>{
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      & <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15337	15477	
==>{
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      & <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4105	4205	
==>for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracte <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4105	4205	
==>for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22571	22663	
==>the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22571	22663	
==>the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick") <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2613	2700	
==>em C<$Test::Harness::switches>

The package variable C<$Test::Harness::switches> is expo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9177	9271	
==>} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9177	9271	
==>} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3201	3334	
==>! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3201	3334	
==>! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1560	1679	
==>opy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMon <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1560	1679	
==>opy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMon <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1467	1572	
==>:Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1467	1572	
==>:Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2438	2548	
==>t work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2438	2548	
==>t work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if both se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15068	15166	
==>ogram's operation, the program (or a package it uses)
will need to display a message to the user, o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15068	15166	
==>ogram's operation, the program (or a package it uses)
will need to display a message to the user, o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	963	1109	
==>];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	963	1109	
==>];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8881	8990	
==>work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8881	8990	
==>work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!user <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17042	17151	
==>inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my($ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1815	1913	
==>ve.

If anyone would like to help out, let me know, and I'll upload more of
the development environ <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1330	1430	
==>opic, entry => $entry, entry_html => $entry_html );
}

sub template ($filename, *%params) {
    my $t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6843	6962	
==>::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6843	6962	
==>::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6434	6552	
==>, { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6434	6552	
==>, { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model <==
2	/Users/nnunley/pugs/util/version_h.pl	2392	2495	
==>ion.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $version_h because $old_revision == $re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	753	858	
==>no distinction between them.)  The C<:shift(N)> option can be used to 
select a different number of letter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	753	858	
==>no distinction between them.)  The C<:shift(N)> option can be used to 
select a different number of letter <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2593	2725	
==>) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2593	2725	
==>) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2626	2738	
==>flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2766	2878	
==>flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5195	5308	
==>_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5388	5501	
==>_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	285	398	
==>+ { return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'Inf' ,} } ) );
    __PACK <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2864	2980	
==>ta
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2864	2980	
==>ta
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:op <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18145	18248	
==>.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18145	18248	
==>.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5205	5331	
==>ns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5205	5331	
==>ns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9004	9161	
==>T NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9004	9161	
==>T NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_pers <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26141	26232	
==>0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_list(C1,'und <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	425	536	
==>$_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

package Pugs::Runtime::Perl6::Scalar::Alias;

sub TIES <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1303	1398	
==>cfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1303	1398	
==>cfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20255	20360	
==>is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20255	20360	
==>is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the b <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7695	7926	
==>newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7695	7926	
==>newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	92	189	
==>ugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, rel <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	92	189	
==>ugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, rel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	385	574	
==>^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7277	7382	
==>There are 2 kinds of ruleop operators:



- higher order operators: alternation, concatenation.

- "plain" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7029	7131	
==>There are 2 kinds of ruleop operators:

- higher order operators: alternation, concatenation.
- "plain" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1125	1232	
==>ion's attributes and the value corresponding
        # to that is the value for that attribute for that tupl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4603	4710	
==>ion's attributes and the value corresponding
        # to that is the value for that attribute for that tupl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	446	555	
==>=> sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc") <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13034	13131	
==>ty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13034	13131	
==>ty set.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34156	34253	
==>ed and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34156	34253	
==>ed and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	325	437	
==>() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $ <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	325	437	
==>() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3812	3982	
==>has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3812	3982	
==>has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attr <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13368	13464	
==>failed: $@)" if $@;
  $total_links += $links;
  $total_files++;
  $outfile->print($template->outp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29941	30043	
==>accessor method to read values from it by key.  Each template hash
key corresponds to the Message Key a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29941	30043	
==>accessor method to read values from it by key.  Each template hash
key corresponds to the Message Key a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9587	9708	
==>'MacOS';
my $is_vms      = $^O eq 'VMS';

sub _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$args) {
	# In V <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3964	4074	
==>if $1 eq $self->{dispatch};

        $file = "$self->{path}/$1.pm";
        my $pkg = "$self->{name}::$1"; $pkg <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2214	2383	
==>(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2214	2383	
==>(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %even <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10939	11063	
==>return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10939	11063	
==>return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	466	561	
==>milar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the stan <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	466	561	
==>milar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the stan <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1732	1848	
==>Array *@p) is exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10776	10878	
==>since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10834	10936	
==>since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6178	6321	
==>l => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6178	6321	
==>l => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0] <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5008	5119	
==>res{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$runcore} }
    ];
  }

  $tmpl->param(ru <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10906	11097	
==>Criterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )

Returns C<@values> sorted, using criteria C<$by> or C<@by> for
co <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5094	5188	
==>Creates a Prelude.hs fallback or a Prelude.pm.yml file (written to stdout),
to be loaded by Run <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6240	6340	
==>, 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6240	6340	
==>, 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1869	1983	
==>each my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data: <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1869	1983	
==>each my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3183	3308	
==>Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3183	3308	
==>Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1801	1999	
==>gin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when r <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1801	1999	
==>gin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17276	17386	
==>().
#

sub fresh_perl_is {
    my($prog, $expected, $runperl_args, $name) = @_;
    local $Level = 2;
    _fres <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5454	5591	
==>elf->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    l <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5960	6083	
==>elf->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	279	433	
==>> '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	279	433	
==>> '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3523	3726	
==>eft'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3523	3726	
==>eft'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15607	15754	
==>end_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $sobj->deobje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18328	18449	
==>x = $self->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9839	9954	
==>t();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_wid <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9839	9954	
==>t();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_wid <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18137	18296	
==>hs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14558	14717	
==>hs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13723	13833	
==>ds {  # see 11.2
      <MemberExpression> <Arguments>
    | <CallExpression> <Arguments>
    | <CallExpression> <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20865	20953	
==>ol::True,$module);
}
sub Pugs::Internals::Disabled::require ($module=$+_) is builtin is u <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2706	2816	
==>or,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($da <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2706	2816	
==>or,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5819	5928	
==>ate %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5819	5928	
==>ate %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1918	2018	
==>k your 
cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.deciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1918	2018	
==>k your 
cipher's documentation for details.

=item C<decipher>

    $plaintext = Some::Cipher.deciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1427	1565	
==>\n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1427	1565	
==>\n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4857	4950	
==>ollowing are the (pseudo) methods for Config::Tiny objects. These
methods can be called with t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4857	4950	
==>ollowing are the (pseudo) methods for Config::Tiny objects. These
methods can be called with t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21727	21866	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22006	22145	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/util/config_h.pl	397	495	
==>cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd() <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1550	1724	
==>.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1550	1724	
==>.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16017	16117	
==>on.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16017	16117	
==>on.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

The a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5559	5698	
==>ete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5559	5698	
==>ete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23701	23785	
==>is N - 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15517	15622	
==>f given no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $runperl_args, $name) = @_;

    $runpe <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	99	197	
==>ccessor - all it's doing is making the
# "source" property of the object fallback to "content"
meth <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	99	197	
==>ccessor - all it's doing is making the
# "source" property of the object fallback to "content"
meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8030	8144	
==>t {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Perl 6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5432	5545	
==>t {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Rule <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1502	1595	
==>o the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1502	1595	
==>o the unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15700	15794	
==>is case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15700	15794	
==>is case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1078	1215	
==>ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1081	1209	
==>ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "para <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20196	20316	
==>bject($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, subst <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16617	16737	
==>bject($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, subst <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18954	19075	
==>A__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18954	19075	
==>A__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2825	2926	
==>LASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLAS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2825	2926	
==>LASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLAS <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4603	4735	
==>,
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4603	4735	
==>,
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17868	17969	
==>ule load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17868	17969	
==>ule load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3663	3776	
==>turn $depth if @_ and $_[0] eq -depth;
    carp "unexpected argument ($_[0]) to iterator" if @_;

    {
      $nex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14389	14520	
==>tor );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14389	14520	
==>tor );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23327	23431	
==>rds {  # see clause 13
      <Identifier>
    | <FormalParameterList> <','> <Identifier>
}
rule FunctionB <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2640	2760	
==>averse_ast ( %pad<"pilMain"> );
        $ret = emit_Main( $global, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PEx <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2916	3026	
==>sion = $self->_top->VERSION;
    my %values  = %{ $self->{'values'} };

    delete $values{sign};
    if ( my $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	939	1059	
==>er::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	939	1059	
==>er::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use F <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2388	2490	
==>.

=head1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGH <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2388	2490	
==>.

=head1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGH <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8161	8384	
==>h @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        di <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8625	8848	
==>h @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        di <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3022	3135	
==>prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ while <$if <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1082	1182	
==>ted by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed f <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1082	1182	
==>ted by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is designed f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6703	6839	
==>_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6703	6839	
==>_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4318	4493	
==>[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4318	4493	
==>[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $ma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1014	1119	
==>ass JSX::Value::Object is JSX::Value;
class JSX::Value::Array is JSX::Value::Object;

class JSX::PropertyA <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1476	1584	
==>:($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1476	1584	
==>:($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1653	1807	
==>lf.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1653	1807	
==>lf.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3506	3611	
==>ion::Example's attributes and the value corresponding
        # to that is the value for that attribute fo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	857	989	
==>\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((? <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	857	989	
==>\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((? <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2443	2540	
==>ld);
    }
    $self;
}

## ---------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2443	2540	
==>ld);
    }
    $self;
}

## ---------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21752	21851	
==>_LineTerminator_here><Identifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'return' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17055	17167	
==>descendant);
    for WALKMETH($dispatcher, 'BUILD') -> $method {
        $method.($self, %params);
    }
}

(meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10094	10195	
==>} )\n";
}
sub node::non_capturing_subrule {
    return "$_[1] \\&{'$namespace$_[0]'}\n";
}
sub node::n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17038	17144	
==>> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17038	17144	
==>> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is u <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	365	486	
==>etimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    m <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	365	486	
==>etimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	245	352	
==>rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	245	352	
==>rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	406	501	
==>}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	406	501	
==>}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	394	541	
==>ym('&repeatedly_apply_and_accum'),
                Sym('&infix:<*>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2259	2390	
==>'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=' <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	425	563	
==>lternate concatenate star list_of 
#                 operator T 
#                 error action test);
# %EXPORT_TAGS = ('all' => \@EXPORT_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1137	1274	
==>PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1137	1274	
==>PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PIL <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6873	7057	
==>tself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD licens <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6930	7114	
==>tself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD licens <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7860	7974	
==>ex{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7848	7962	
==>ex{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5992	6108	
==>ng the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5784	5898	
==>ng the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1349	1467	
==>}
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1349	1467	
==>}
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36940	37036	
==>my Str $user_text_string = $translator.translate_message( $message );

=back

The Translator clas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36940	37036	
==>my Str $user_text_string = $translator.translate_message( $message );

=back

The Translator clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12913	13023	
==>->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27052	27162	
==>->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32058	32156	
==>ation that has the same heading
and whose body contains all of the tuples that are in either or bot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36608	36706	
==>ation that has the same heading
and whose body contains all of the tuples that are in either or bot <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1929	2030	
==>( (substr $target, $from, 1) =~ /[:space:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11614	11737	
==>( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11608	11731	
==>( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

u <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16907	17015	
==>ALLER::<$_> --> Str )

Like C<lc>, but only affects the first character.


=item uc

 multi Str::uc         ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16798	16938	
==>add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13219	13359	
==>add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1413	1536	
==>eaders.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1413	1536	
==>eaders.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4579	4726	
==>n $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4579	4726	
==>n $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	970	1051	
==>ath ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	970	1051	
==>ath ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10282	10374	
==>e 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionChars>
}
rule RegularExpressionC <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	717	843	
==>he file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1201	1327	
==>he file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $str <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	570	697	
==>diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	570	697	
==>diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16974	17090	
==>"x"),	
	),
);

# fun(x) x	-  takes any value and returns it
# x stays free, and thus becomes generic (id is polymorph <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1650	1807	
==>ame' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Fai <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1650	1807	
==>ame' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Fai <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3858	4057	
==>($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3858	4057	
==>($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13838	13983	
==>],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13838	13983	
==>],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21167	21291	
==>unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17588	17712	
==>unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6657	6766	
==>or(abs($Result1));
    return $Result4;
}

# 9.5
multi sub ToInt32(JSX::Value $v) {
    use Math qw(sign floor <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	32	115	
==>ude.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Mod <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2258	2378	
==>will contain all the free type variables in the type at the end of the pass, and the original object they had
	# this let <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	398	571	
==>BUILD => sub {
            my $self = shift;
            $self->set_value('%:slots', {});
        },
        methods => {
            hash_fetch => sub {
                my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9829	9941	
==>port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9829	9941	
==>port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connect <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36783	36881	
==>a generic binary relational operator that is like
C<union> except that the returned Relation::Examp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37283	37381	
==>a generic binary relational operator that is like
C<union> except that the returned Relation::Examp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4679	4780	
==>a; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4679	4780	
==>a; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4616	4717	
==>ss 'TestBuilder::Test::TODO' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1539	1642	
==>ding Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1746	1849	
==>ding Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prel <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1254	1412	
==>re the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1254	1412	
==>re the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3392	3488	
==>-> {true}.
p5_concatenation_more(W, Z) --> p5_quantified(X), p5_concatenation_more(conc(W,X), Z), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5866	5966	
==>ale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5866	5966	
==>ale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_mess <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11727	11879	
==>}
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach my $overrun ($test <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8994	9101	
==>ve_file;
  $file_key =~ s#\\#/#g;

  $relative_file =~ s/t$/html/;
  
  my $output_path   = inpath_to_outpat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	581	770	
==>ble
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	581	770	
==>ble
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6043	6429	
==>et ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7805	8191	
==>et ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14709	14811	
==>inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14709	14811	
==>inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_mess <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	477	599	
==>rol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	477	599	
==>rol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	647	753	
==>if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_bareword {
    my $class = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13319	13416	
==>s into perlguts, which limits the range of
  perl versions it will work with, and raises maintenan <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9023	9239	
==>6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9023	9239	
==>6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9943	10106	
==>ed, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{pro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11420	11583	
==>ed, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3800	3917	
==>be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3800	3917	
==>be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10071	10209	
==>f;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traff <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10071	10209	
==>f;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traff <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6605	6714	
==>e categories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      <Mn> | <Mc>
}
rule Unicode <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1896	1995	
==>tions => $options, equiv => $equivalence, match => $match, arity => 1 );
  my @nameSplit = split /:/ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	820	936	
==>}

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	820	936	
==>}

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9452	9547	
==>superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_sub <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9452	9547	
==>superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20516	20646	
==>] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unscoped

  capture:
    $I0 = exists self["cname"]
    if $I0 goto <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2627	2749	
==>ename, $lang);
    }
}


class Control::Caller {
    has Str $.package;
    has Str $.file;
    has Int $.line;
    has Str <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11726	11826	
==>mon) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that define t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11726	11826	
==>mon) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that define t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	567	692	
==>::Check->last_error), return );

    my $struct = eval { LoadFile( $file ) } or error( $@ ), return; 

    return $class->new_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	534	638	
==>n, the return value is
### a subroutine that build the return value based on the objects /current/
### va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8813	8925	
==>Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8813	8925	
==>Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.he <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1407	1517	
==>);
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&Ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1328	1433	
==>);
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&Ex <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8984	9093	
==>by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package require <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10461	10570	
==>by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package require <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6381	6480	
==>h %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
whi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6381	6480	
==>h %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
whi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1735	1874	
==>_";
        $rule_name = "parse" if $_ == $#{$self->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{i <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1326	1425	
==>>new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_T <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9792	9894	
==>ings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9792	9894	
==>ings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	48	152	
==>tation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	48	152	
==>tation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Du <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4751	4860	
==>d, '... not the same ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got the right x for p3d');

$p3d->cle <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2874	3002	
==>oesn't exist yet, this is a 'clean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d $ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	959	1076	
==>stallman3dir     => $Config{installman3dir},
        installsiteman1dir => $Config{installsiteman1dir} || $Config{inst <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8630	8727	
==>>block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2455	2552	
==>>block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	569	667	
==>st::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	627	725	
==>st::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7534	7692	
==>opy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == In <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7534	7692	
==>opy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == In <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5254	5352	
==>");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5254	5352	
==>");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14067	14171	
==>n. A second argument can be given to specify which
characters to consider unsafe (i.e., which to escape). <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14067	14171	
==>n. A second argument can be given to specify which
characters to consider unsafe (i.e., which to escape). <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2732	2852	
==>/WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2732	2852	
==>/WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2445	2535	
==>urn $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2445	2535	
==>urn $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	403	541	
==>Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	403	541	
==>Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4197	4321	
==>n        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4197	4321	
==>n        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3338	3431	
==>e accessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object (a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3338	3431	
==>e accessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object (a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4090	4202	
==>$match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4307	4419	
==>$match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flag <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3331	3442	
==>(package => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_package(package => $pkg)

=cut

sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26692	26788	
==>n respectively.  This method will fail if
any members of C<$attrs> do not match attribute names o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31244	31340	
==>n respectively.  This method will fail if
any members of C<$attrs> do not match attribute names o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25082	25215	
==>{
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zero <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1515	1675	
==>'+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1515	1675	
==>'+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!p <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1021	1226	
==>given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'lis <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1021	1226	
==>given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'lis <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2874	3009	
==>hift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3079	3214	
==>hift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_instance <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40797	40891	
==>rmed any time you create a
modified version of Locale::KeyedText that you are willing to distri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40797	40891	
==>rmed any time you create a
modified version of Locale::KeyedText that you are willing to distri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15788	15889	
==>ll this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15788	15889	
==>ll this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2285	2394	
==>) { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $se <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2285	2394	
==>) { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2532	2634	
==>request.  It also contains extra
information passed on by the HTTP server, useful to the authors of CGI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2532	2634	
==>request.  It also contains extra
information passed on by the HTTP server, useful to the authors of CGI <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8304	8406	
==>ymmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8304	8406	
==>ymmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16070	16177	
==>file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16070	16177	
==>file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta itself works, and will
no <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	11	114	
==>perl

use warnings;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7826	7924	
==>ACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emitter - 

=head1 SYNOPSIS

	use Blond <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	483	733	
==>fer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbat <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	483	733	
==>fer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3881	3982	
==>2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3881	3982	
==>2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; the <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21843	21944	
==>les.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no
more <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26395	26496	
==>les.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no
more <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21878	21972	
==>setta::Overview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21878	21972	
==>setta::Overview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12722	12825	
==>ee->new()
	);
	\%new;
}

# inherit the set of generic vars to our body
fun: generic_in($.body) = { gener <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4005	4162	
==>{

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3882	4034	
==>{
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12282	12381	
==>2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12282	12381	
==>2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19416	19532	
==>blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19416	19532	
==>blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2735	2848	
==>I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2735	2848	
==>I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4760	4891	
==>e'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4953	5084	
==>e'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9727	9846	
==>( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9707	9826	
==>( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1592	1687	
==>s> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1592	1687	
==>s> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4680	4879	
==>rec" .
                    "\n";
                # $seen{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" .
        "statement:  exp { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	286	375	
==>Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	319	408	
==>Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20294	20394	
==>ion
is replaced by a single line containing the hexadecimal digest of the
result in double quotes fol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20294	20394	
==>ion
is replaced by a single line containing the hexadecimal digest of the
result in double quotes fol <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11381	11512	
==>array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2218	2322	
==>repare_scope {
    my $self = shift;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{par <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3750	3861	
==>ame

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die "Enter a one <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3005	3114	
==>::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2897	3004	
==>::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9359	9477	
==>debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9359	9477	
==>debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8166	8310	
==>ing "PGE doesn't actually do :ignorecase yet.";
        }
        if %mods<s> || %mods<sigspace> {      
            $pre ~= ":s";
            %m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1411	1521	
==>or ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Criterion    ::= KeyExtr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7351	7454	
==>n' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7351	7454	
==>n' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24012	24160	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24291	24439	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2598	2718	
==>n ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2598	2718	
==>n ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6898	7008	
==>$rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6898	7008	
==>$rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1062	1380	
==>LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod new (Relation::LaxAttrLi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3487	3723	
==>%args = @_;
    my ($pkg, $force);

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27174	27296	
==>BLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27174	27296	
==>BLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16902	17024	
==>=> comb(
			fun => ide("add"),
			param => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any value and re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9008	9147	
==>.depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9008	9147	
==>.depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	713	1125	
==>osetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	713	1125	
==>osetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10685	10831	
==>ner)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10685	10831	
==>ner)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a se <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2685	2913	
==>ulti sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7838	7949	
==>start = new Benchmark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	220	334	
==>port(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	220	334	
==>port(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1131	1244	
==>sed to add extra directories to Pugs's 
search path so that later `use` or `require` statements 
will find modules <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1131	1244	
==>sed to add extra directories to Pugs's 
search path so that later `use` or `require` statements 
will find modules <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19706	19820	
==>hese headers.

=item $h.authorization_basic

This method is used to get or set an authorization header that use the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19706	19820	
==>hese headers.

=item $h.authorization_basic

This method is used to get or set an authorization header that use the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9240	9422	
==>erson' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'ca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9240	9422	
==>erson' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'ca <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10912	11018	
==>demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10912	11018	
==>demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26917	27074	
==>val" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27196	27353	
==>val" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6861	6972	
==>ail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6873	6984	
==>ail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	154	250	
==>Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	154	250	
==>Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	51	156	
==>as Str $.content;

# this should really be an acccessor - all it's doing is making the
# "source" property <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	51	156	
==>as Str $.content;

# this should really be an acccessor - all it's doing is making the
# "source" property <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1843	1970	
==>bs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYN <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1843	1970	
==>bs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18553	18650	
==>_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18553	18650	
==>_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3661	3812	
==>ate = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3661	3812	
==>ate = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	933	1060	
==>V -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body => 'prel_cat',
			type => type("PV -> PV -> PV") <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3932	4034	
==>_file_contents( file => $file );

Returns the contents of a file

=cut

sub _get_file_contents {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4698	4816	
==>mmar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4698	4816	
==>mmar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1317	1459	
==>le::forgive_me = 1;
            local $Storable::canonical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nf <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27323	27432	
==>rns a new Relation::Example object, whose Heading and
Body attributes are set respectively from the optional n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10200	10304	
==>bed below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10200	10304	
==>bed below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the valu <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2504	2618	
==>TELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{prefix} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10629	10729	
==>"Error in closure quantifier")
.end

.sub "parse_subrule"
    .param pmc mob
    .local string target <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	651	762	
==>less @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	651	762	
==>less @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1837	1957	
==>nvocant,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    retur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16715	16808	
==>alExpressionNoIn>
    | <EqualityExpressionNoIn> <'==='> <RelationalExpressionNoIn>
    | <Equ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	966	1134	
==>$ast, '' );
        #"do{\n" .
        #_emit( $ast, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2652	2775	
==>to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2652	2775	
==>to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($sta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2004	2117	
==>per_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub * <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2004	2117	
==>per_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub * <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1845	1954	
==>rns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1845	1954	
==>rns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5734	5834	
==>t<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5734	5834	
==>t<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update % <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7643	7746	
==>hen a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7643	7746	
==>hen a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1517	1778	
==>NGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1517	1778	
==>NGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13493	13602	
==>/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13493	13602	
==>/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1779	1890	
==>er::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1919	2030	
==>er::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule per <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3931	4081	
==>scripts/manpages to $new_alt->{package}...\n";
        for ( qx[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	313	417	
==>Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	313	417	
==>Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3302	3409	
==>], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3302	3409	
==>], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Ru <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	587	683	
==>equire::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$self->annotat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6049	6179	
==>ord} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "method_call: " <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5665	5775	
==>_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot fin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5665	5775	
==>_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot fin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2747	2866	
==>o";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Builtins - table of prelude replacement rele <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2902	3001	
==>ess($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir,'design') <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1761	1863	
==>return" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5 <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	26	139	
==>use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	26	139	
==>use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12527	12665	
==>/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12527	12665	
==>/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2368	2485	
==>turns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2368	2485	
==>turns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	54	169	
==>cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	54	169	
==>cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28096	28197	
==><wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet bee <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32648	32749	
==><wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet bee <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23939	24030	
==>ndef(N1,Replace,[],T1).
replace_at_n_if_undef(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, rep <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12179	12275	
==>r value if the parameter is a member of the recurrence.
Otherwise, returns the previous element i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12179	12275	
==>r value if the parameter is a member of the recurrence.
Otherwise, returns the previous element i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2415	2540	
==>'' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2323	2445	
==>'' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	945	1040	
==>ied, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  Th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	945	1040	
==>ied, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  Th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1949	2105	
==>shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1949	2105	
==>shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23991	24115	
==>XEC_ML        0x20            /* $* was set. */



 regcomp.h:
 * The "internal use only" fields in regexp.h are present to p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	102	201	
==>Str;

package num;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'looks_like_numb <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7306	7425	
==>hod');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:meth <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15821	15932	
==>>find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2218	2325	
==>>find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2933	3046	
==>dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2933	3046	
==>dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2516	2757	
==>lon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2763	3004	
==>lon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1699	1800	
==>returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1699	1800	
==>returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method c <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	362	470	
==>w.open(href);
    }
}
</script>
<body>
<h1>~</h1>
<p>(<a href="/">Back to /</a>)</p>
<p>
These users have som <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2969	3049	
==>\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	262	350	
==>.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_vari <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	262	350	
==>.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_vari <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13291	13410	
==>sub { "". $_[0] },
      perl6_object => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($x)=@_;
    my $ref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1912	2031	
==>1 => \$_[2], exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non =>       
        "exp 'name' exp 'name2' exp \n" . <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10595	10703	
==>node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10595	10703	
==>node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2540	2695	
==>s } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) ! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2540	2695	
==>s } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) ! <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1913	2110	
==>t>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1913	2110	
==>t>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1111	1213	
==>ex->match($str)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($str) for 1..40} <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3572	3671	
==>using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being de <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3572	3671	
==>using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being de <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6310	6409	
==>uations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6310	6409	
==>uations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7123	7240	
==>ting the removal of siblings 
# as I think in general it is a bad idea

## ------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7123	7240	
==>ting the removal of siblings 
# as I think in general it is a bad idea

## ------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16908	17039	
==>";
        _diag "# STATUS: $status\n";
    }

    # Use the first line of the program as a name if none was given
    unless( $name <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	0	105	
==>use v6;

class Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skip <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	0	105	
==>use v6;

class Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skip <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2810	2905	
==>module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name. <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2810	2905	
==>module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27501	27600	
==>tributes, and
the values provide values applied to each tuple.  The new Relation has all
of the tupl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32053	32152	
==>tributes, and
the values provide values applied to each tuple.  The new Relation has all
of the tupl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	256	365	
==>"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimpor <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	256	365	
==>"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimpor <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	137	244	
==>back;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	137	244	
==>back;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16512	16611	
==>pan if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `differe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16512	16611	
==>pan if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `differe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1980	2086	
==>ed to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the im <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1980	2086	
==>ed to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the im <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1500	1701	
==>= $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1500	1701	
==>= $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	883	992	
==>able $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	883	992	
==>able $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1813	1910	
==>ules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1813	1910	
==>ules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3858	4022	
==>nt to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4322	4486	
==>nt to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                fo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3359	3466	
==>le psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3359	3466	
==>le psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10418	10513	
==>`reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10418	10513	
==>`reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1305	1414	
==>->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1232	1336	
==>->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1660	1753	
==>(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List' <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1660	1753	
==>(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1189	1346	
==>en(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1189	1346	
==>en(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1225	1320	
==>ptures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:mi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1225	1320	
==>ptures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:mi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	86	178	
==>------------------------------------------------------------------
## Mini Meta-Model with Se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	57	146	
==>------------------------------------------------------------------
## Mini Meta-Model with <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7965	8094	
==>g("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8023	8152	
==>g("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	616	728	
==>tent = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	616	728	
==>tent = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7350	7443	
==>n("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7350	7443	
==>n("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2121	2227	
==>r *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2121	2227	
==>r *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1031	1172	
==>as Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1031	1172	
==>as Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34980	35087	
==>ng of the invocant Relation.  This method
degenerates into an C<intersection> if the two source headings are <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39530	39637	
==>ng of the invocant Relation.  This method
degenerates into an C<intersection> if the two source headings are <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1551	1659	
==>::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some hi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1551	1659	
==>::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some hi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2763	2912	
==>er,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 ret;
    IV matched;
    U32 start;
    int newstr;

    if(st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4600	4694	
==>tcher) returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	858	959	
==>l5/^\s*//;

		next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9149	9246	
==>or %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9149	9246	
==>or %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_en <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4490	4588	
==>rypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4490	4588	
==>rypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26117	26221	
==>d variable names you can have depend on the Message Key
it is being used with (others are ignored).  Each <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26117	26221	
==>d variable names you can have depend on the Message Key
it is being used with (others are ignored).  Each <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5861	5976	
==>nts!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9338	9453	
==>nts!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	135	542	
==>);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	135	542	
==>);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Ros <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1477	1710	
==>'{' { 
                    return parse( << { >>, 'hash', << } >>, @_ ) 
                };
                if @_[0] eq '[' { 
                    return parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.sh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13568	13682	
==>e field names have case as suggested by HTTP spec, and the
names are returned in the recommended "Good Practice" or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13568	13682	
==>e field names have case as suggested by HTTP spec, and the
names are returned in the recommended "Good Practice" or <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22670	22785	
==>_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				param => comb(
					fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26818	26950	
==>ess {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6069	6177	
==>inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5876	5980	
==>inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16572	16687	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16851	16966	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::ge <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8582	8687	
==>new,
			);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9695	9792	
==>asses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9695	9792	
==>asses, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::H <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2248	2356	
==>$Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Rie <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2248	2356	
==>$Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Rie <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1337	1446	
==>n('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1337	1446	
==>n('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1808	1928	
==>hift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	919	1037	
==>hift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2518	2655	
==>et>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Def <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2518	2655	
==>et>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Def <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	596	701	
==>ammer to 
change ciphers simply by changing the class name used.

Ciphers used with the Cipher API must op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	596	701	
==>ammer to 
change ciphers simply by changing the class name used.

Ciphers used with the Cipher API must op <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2424	2531	
==>COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $ou <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2424	2531	
==>COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $ou <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7860	7972	
==>eeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7860	7972	
==>eeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8964	9075	
==>eader('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8964	9075	
==>eader('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	164	282	
==>s::Compiler::Regex';
use Pugs::Grammar::Perl6;
use Pugs::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

su <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12903	12993	
==>pan></td>
	    <td><a style="text-decoration: none" href="<tmpl_var name=link>" title="Full <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19673	19772	
==>vely acts as a C<no> statement for any compile sections in
that block. C<use> statements in a PREFAC <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19673	19772	
==>vely acts as a C<no> statement for any compile sections in
that block. C<use> statements in a PREFAC <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	470	595	
==>ent<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	470	595	
==>ent<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	343	453	
==>ete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy lists are not impl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	343	453	
==>ete
    * Constructors should emit error messages if there are unknown parameters
    * Lazy lists are not impl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27927	28043	
==>, C<FLAG_i> would be called
with a true argument, and C<FLAG_s> would be called with a false one.

If the flag handle <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6015	6122	
==>str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6015	6122	
==>str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML ev <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14537	14656	
==>m $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first pos <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14537	14656	
==>m $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first pos <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3359	3481	
==>ree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3359	3481	
==>ree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23140	23303	
==>n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3108	3210	
==>are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3108	3210	
==>are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17521	17615	
==>ne the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17521	17615	
==>ne the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3350	3460	
==>matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3350	3460	
==>matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1278	1412	
==>pen my $fh, $file or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4649	4768	
==>rint "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4661	4780	
==>rint "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9338	9468	
==>oper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9338	9468	
==>oper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1841	2014	
==>e::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1841	2014	
==>e::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2257	2362	
==>have different properties,
you should see the subclasses for more.

In short, those subclasses are;

=over <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2257	2362	
==>have different properties,
you should see the subclasses for more.

In short, those subclasses are;

=over <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7265	7407	
==>_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7277	7419	
==>_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8716	8821	
==>E ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8716	8821	
==>E ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2316	2417	
==>ss . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19273	19417	
==>d('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39725	39869	
==>d('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            metho <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11882	11982	
==>hile. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11940	12040	
==>hile. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	690	817	
==>gify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	690	817	
==>gify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9858	9957	
==>ass Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
mu <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9858	9957	
==>ass Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
mu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2380	2503	
==>ethod zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.ta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2380	2503	
==>ethod zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.ta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5521	5631	
==>previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5521	5631	
==>previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurren <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2446	2576	
==>$arg        = $args->fetch(num->new($i));
        unless ($arg->isa('nil') && $param->to_str->to_native =~ /^\?/) {
            (bl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2207	2308	
==>:Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2296	2397	
==>:Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Gramma <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	633	735	
==>h is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

= <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	633	735	
==>h is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25737	25865	
==>ist {
    @:subclasses;
}

(method subclasses ((opaque $self:)) returns list 
    ($self: get_attr (symbol new @:subclasses)))

= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	104	203	
==>erl6::Core::Symbol;
use Perl6::Core::List;

package closure;

use strict;
use warnings;

use Carp 'c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26521	26619	
==>.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31073	31171	
==>.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2534	2666	
==>e->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2534	2666	
==>e->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7011	7135	
==>of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7069	7193	
==>of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17838	17941	
==>the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FU <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17838	17941	
==>the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FU <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2120	2240	
==>path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very pr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2120	2240	
==>path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17660	17770	
==>se systems often refer to an error condition by an
internal code which is guaranteed to be unique for a situati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17660	17770	
==>se systems often refer to an error condition by an
internal code which is guaranteed to be unique for a situati <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7711	7843	
==>art"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7711	7843	
==>art"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9266	9379	
==>tr $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9266	9379	
==>tr $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4403	4529	
==>type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_type => \%field_type,
    };
    bless $self, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27958	28057	
==>h a true argument, and C<FLAG_s> would be called with a false one.

If the flag handler returns 0, t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11701	11835	
==>_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11701	11835	
==>_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1182	1296	
==>ri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_une <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1182	1296	
==>ri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_une <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	785	908	
==>s(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	686	809	
==>s(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7555	7685	
==>,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7748	7878	
==>,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6163	6289	
==>:find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpa <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3840	3959	
==>:find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        ret <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1484	1580	
==>DTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are defined

=head1 DESCRIPTION

These ADT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1029	1141	
==>) gets it, emit a Module object

that defines ::Main.  A Module object mixes in both Package

and Code -- because <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	979	1089	
==>) gets it, emit a Module object
that defines ::Main.  A Module object mixes in both Package
and Code -- because <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1356	1456	
==>Map/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::ADTs - Reused abstract data types.

=head <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8082	8220	
==>rams:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $se <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8082	8220	
==>rams:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $se <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17694	17814	
==>end, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4212	4313	
==>metimes also 
parameters for block size and so on; see the cipher module's documentation for 
details. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4212	4313	
==>metimes also 
parameters for block size and so on; see the cipher module's documentation for 
details. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1847	1971	
==>pital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave acc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1847	1971	
==>pital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave acc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36173	36292	
==>rn join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample execution:

  use Regexp::AndBr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34510	34610	
==>de properties and user-defined POSIX classes)

Data: 'POSIX' if C<[:NAME:]>, C<[^:NAME:]> (or other P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18071	18173	
==>p{Print}>.

=item Character Class Rendering

The visual() method of I<anyof> objects will quell the rep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	647	777	
==>$what ) = @_;
    return "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26554	26662	
==>rs> is either empty or equal to
the invocant Relation's header, in which case it returns the identity-one
Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31106	31214	
==>rs> is either empty or equal to
the invocant Relation's header, in which case it returns the identity-one
Rel <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10572	10758	
==>ns_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$kl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10572	10758	
==>ns_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$kl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4162	4262	
==>ariable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5011	5111	
==>ariable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<per <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	567	784	
==>dent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	567	784	
==>dent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_el <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31046	31150	
==>e, the full name of a module
consists of the two parts concatenated without any delimiter.  This means,
f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31046	31150	
==>e, the full name of a module
consists of the two parts concatenated without any delimiter.  This means,
f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5178	5306	
==>}
        
        # load the existing index file
        my $index_content = YAML::LoadFile($index);
        my $meta = $pkg->me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4673	4782	
==>' BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	152	250	
==>obals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	210	308	
==>obals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6123	6278	
==>ns;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6123	6278	
==>ns;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3131	3263	
==>sub { return };

    require Module::Build;
    my $build = Module::Build->new(
        dist_name    => $self->{name},
        dist_v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4237	4329	
==>l6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> < <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	662	764	
==>s_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - em <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	662	764	
==>s_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - em <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1695	1794	
==>ports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is test <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1695	1794	
==>ports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is test <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18793	18890	
==>h we are not prepared to
support (such as modification of the compiled re op tree the native
compi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3083	3180	
==>h we are not prepared to
support (such as modification of the compiled re op tree the native
compi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19728	19832	
==>o edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19728	19832	
==>o edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I w <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1172	1307	
==>.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $value.($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12692	12795	
==>t case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12692	12795	
==>t case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7357	7447	
==>grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1182	1272	
==>grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @sta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6393	6516	
==>lf.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6393	6516	
==>lf.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previou <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1693	1847	
==>ils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1586	1695	
==>ils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13221	13323	
==>$num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6696	6798	
==>$num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19679	19782	
==>y, may do so by including these headers.

=item $h.authorization_basic

This method is used to get or se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19679	19782	
==>y, may do so by including these headers.

=item $h.authorization_basic

This method is used to get or se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6977	7072	
==>rule() constructor provides an interface between the 

low-level functional operators, and the h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6738	6832	
==>rule() constructor provides an interface between the 
low-level functional operators, and the h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5640	5748	
==>es



=head1 Compiler processes



### separate "processes" from actual module documentation?



=head2 Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5447	5549	
==>es

=head1 Compiler processes

### separate "processes" from actual module documentation?

=head2 Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27267	27377	
==>hat returns a new Relation
which has a superset of the original's attributes; the new Relation has as
many addi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31819	31929	
==>hat returns a new Relation
which has a superset of the original's attributes; the new Relation has as
many addi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1456	1578	
==>nly, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6351	6460	
==>ode();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := ( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10661	10854	
==>y $rest = <$infile>) {
    chomp $rest;
    $output .= "<a name='line_$.'></a>";
    while ( $rest =~ $link ) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $lin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	512	602	
==>y>, L<JIB::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>k <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6425	6528	
==>ul test.

$failed is a hash ref of all the test scripts which failed.  Each key
is the name of a test sc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1569	1730	
==>l5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(jo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1569	1730	
==>l5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(jo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1044	1153	
==>orks:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1044	1153	
==>orks:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module:: <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1532	1649	
==>The following methods are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

F <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1532	1649	
==>The following methods are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1244	1423	
==>= $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pair <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1244	1423	
==>= $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pair <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6557	6677	
==>ady loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by tran <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6557	6677	
==>ady loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by tran <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9020	9140	
==>@_);
};

multi unify => ('type', 'type') => sub {
	die "trying to unify incompatible types:\n" . Dumper(@_);
};


# these <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4350	4460	
==>se lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConfig->get_config;
}

sub p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9121	9218	
==>n @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns Li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9121	9218	
==>n @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns Li <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1587	1720	
==>ts a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1587	1720	
==>ts a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17194	17300	
==>he 2*len+1 length of the array.
Other than that, we can do anything we want with it.
This is perhaps the mo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22294	22400	
==>he 2*len+1 length of the array.
Other than that, we can do anything we want with it.
This is perhaps the mo <==
2	/Users/nnunley/pugs/util/testgraph.pl	1790	1914	
==>::Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1678	1930	
==>?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1678	1930	
==>?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16423	16519	
==>opyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you ca <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16481	16577	
==>opyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you ca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10612	10709	
==>rrectly
depending on their types, that their attributes have reasonable values, and
that attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10612	10709	
==>rrectly
depending on their types, that their attributes have reasonable values, and
that attribute <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1080	1205	
==>e the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1080	1205	
==>e the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14447	14549	
==>nput, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $string )

=item e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14447	14549	
==>nput, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $string )

=item e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1801	1960	
==>"  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1789	1948	
==>"  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17546	17648	
==>endent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17546	17648	
==>endent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern program <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6885	7126	
==>erl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artisti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6942	7183	
==>erl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artisti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9264	9377	
==>anchored at ^

### because it was specialized for subrules

### - needs to be generalized, and the anchor should o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8960	9071	
==>anchored at ^
### because it was specialized for subrules
### - needs to be generalized, and the anchor should o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5706	5844	
==>ment->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no war <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5706	5844	
==>ment->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no war <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3115	3215	
==>d C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will return t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3115	3215	
==>d C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will return t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3280	3395	
==>ethod' => sub ($$) {
            my ($self, $label) = @_;
            exists ::opaque_instance_attrs($self)->{'%:met <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2154	2265	
==>use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointed to by substrs :( */

#define RECOGNITIO <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7457	7574	
==>lation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22886	22980	
==>.

The provided roles (Relation, Tuple, Heading) are intended to be composed
into separate (and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2475	2583	
==>r contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2475	2583	
==>r contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14692	14808	
==>e user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14692	14808	
==>e user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8217	8337	
==>}
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8205	8325	
==>}
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1676	1795	
==>d clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1676	1795	
==>d clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1982	2135	
==>File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extrac <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3512	3660	
==>File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extrac <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9513	9646	
==>Digit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
}
rule CharacterEscapeSequence {  # see 7.8.4
      <Single <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4925	5026	
==>ill be --iso.

Options may be abbreviated to uniqueness.

Author:         Ingo Blechschmidt <iblech\@w <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13127	13223	
==>tersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set contain <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13127	13223	
==>tersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set contain <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	214	323	
==>@_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	287	396	
==>@_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5105	5220	
==>admin;
    $self->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    requi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3056	3208	
==>>{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3196	3348	
==>>{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$r <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3275	3382	
==>his should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3275	3382	
==>his should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4815	4916	
==>tes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.fini <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4815	4916	
==>tes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.fini <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7464	7638	
==>name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7464	7638	
==>name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7622	7755	
==>{
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7622	7755	
==>{
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2853	2958	
==>ced}{-parens=>'()'})\s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	344	456	
==>et our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	344	456	
==>et our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22805	22908	
==>w less than all of the available details depending on the
intended viewer.

=head2 Compared to Other Sol <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22805	22908	
==>w less than all of the available details depending on the
intended viewer.

=head2 Compared to Other Sol <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	982	1083	
==>export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	982	1083	
==>export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2726	2838	
==>rer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($te <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2726	2838	
==>rer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10237	10350	
==>e_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10237	10350	
==>e_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_v <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	416	529	
==>lti method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	416	529	
==>lti method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4068	4200	
==>d as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4080	4212	
==>d as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11791	11887	
==>ands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11791	11887	
==>ands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4243	4349	
==>art_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4243	4349	
==>art_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	848	948	
==>lly, they will be constructed as a series of events fired in by
something that C<.does(Perldoc::Sende <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	848	948	
==>lly, they will be constructed as a series of events fired in by
something that C<.does(Perldoc::Sende <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2417	2549	
==>ap -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2417	2549	
==>ap -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$co <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11357	11486	
==>]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38595	38692	
==>" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occuranc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38595	38692	
==>" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occuranc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	380	524	
==>)
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unles <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17292	17410	
==>rst

 multi Str::ucfirst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $string = CALLER::<$_> - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11231	11347	
==>) (hash ?%params)) returns opaque
    (((?%params is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10190	10284	
==>t ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10925	11019	
==>t ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4560	4671	
==>rence ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list oper <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4560	4671	
==>rence ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list oper <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5398	5511	
==>dard
Prelude is precompiled and stored in YAML format in a (conjecturally)
well-defined location for latter runs o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23055	23273	
==>eop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23334	23552	
==>eop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3921	4026	
==>], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3921	4026	
==>], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3244	3337	
==>param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the paramete <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3244	3337	
==>param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the paramete <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5421	5556	
==>1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'wo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5614	5749	
==>1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'wo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11501	11649	
==>ker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible righ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11501	11649	
==>ker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible righ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5830	5935	
==>ndling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 F <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5830	5935	
==>ndling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 F <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	451	571	
==>= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	451	571	
==>= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16403	16592	
==>')->instantiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')->do(list->new($e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1171	1274	
==>ugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1171	1274	
==>ugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1257	1358	
==>g)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1257	1358	
==>g)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    re <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	863	995	
==>ion 3.1

sub lookfor($wanted, Code $value = { $^v.[1] }, ?$u) is exported(:all) {
  ## XXX - orig: $wanted = [$wanted] unless ref $wa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13059	13157	
==>ole test was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6361	6483	
==>)\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6361	6483	
==>)\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9662	9782	
==>rd into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9662	9782	
==>rd into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26819	26976	
==>al_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27098	27255	
==>al_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             rule <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	127	251	
==>ray $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	127	251	
==>ray $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4733	4842	
==>he new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4570	4676	
==>he new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1684	1785	
==>em new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of info <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1684	1785	
==>em new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of info <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5122	5258	
==>d_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5122	5258	
==>d_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27546	27650	
==>doesn't mean you can use them on C<qr//>, but rather
that you can write C<(?u:...)> or C<(?u)>.  The valu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9477	9591	
==>);
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9477	9591	
==>);
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27903	27997	
==>var_name! )>

This method returns the Message Variable value (a string) associated with
the var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27903	27997	
==>var_name! )>

This method returns the Message Variable value (a string) associated with
the var <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21454	21554	
==>ould come with a set of user
messages, but another package or program which uses yours may wish to
ov <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21454	21554	
==>ould come with a set of user
messages, but another package or program which uses yours may wish to
ov <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3177	3304	
==>mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/360 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3177	3304	
==>mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/360 <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	273	430	
==>5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "- <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	273	430	
==>5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12749	12851	
==>ce, be easier to create, and be more portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1702	1817	
==>"    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2482	2597	
==>"    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], '$<id> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3593	3693	
==>NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3593	3693	
==>NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_tex <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2701	2842	
==>turns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $pr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3165	3306	
==>turns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18746	18874	
==>der as C<[\w:]>.

=back

=head2 0.021 -- July 3, 2004

=over 4

=item I<anyof_class> Changed

If an I<anyof_class> element is a U <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3353	3447	
==>s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3353	3447	
==>s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3368	3465	
==>:Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3368	3465	
==>:Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33133	33223	
==>etric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37683	37773	
==>etric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	115	224	
==>> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	115	224	
==>> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22427	22553	
==>,
		in => comb(
			fun => ide("length_and_first"),
			param => comb(
				fun => ide("listify"),
				param => val(10),
			),
		) <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	214	332	
==>ces from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	214	332	
==>ces from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29236	29353	
==>y};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29236	29353	
==>y};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1500	1596	
==>}
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1500	1596	
==>}
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [< <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	240	356	
==>:$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wa <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	240	356	
==>:$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2973	3109	
==>infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $sel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2973	3109	
==>infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32698	32798	
==>nal Template modules as a template.
The Translator class as a whole is not pure and deterministic bec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32698	32798	
==>nal Template modules as a template.
The Translator class as a whole is not pure and deterministic bec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	324	426	
==>OS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<EN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	324	426	
==>OS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<EN <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20630	20726	
==>ain.

Every bit of the default process described above is overridable by
various methods.

=head1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20630	20726	
==>ain.

Every bit of the default process described above is overridable by
various methods.

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15373	15573	
==>s -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18850	19050	
==>s -> $r2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $ot <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	964	1075	
==>EOT;
"$^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'E <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	955	1093	
==>rol';               # dir to store control MD
$Available      = $Meta . '/available';             # available packages MD
$Altfile        = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7793	7899	
==>();

is_deeply(
    [ sort $FooBar->get_method_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... go <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12914	13014	
==>iterating through the span range, the unit is added to the current value to get the next value.
The u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12914	13014	
==>iterating through the span range, the unit is added to the current value to get the next value.
The u <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14720	14846	
==>dx];
      FAIL() if !$m;
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1802	1929	
==>y $subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('sup <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	739	838	
==>_bind_params($args);
    my $inv = $args->fetch(num->new(0));
    $self->{env}->set('$?SELF'    => $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1192	1301	
==>script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script) <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1192	1301	
==>script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7278	7378	
==>1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `spl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7278	7378	
==>1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `spl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1502	1625	
==>ng_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1513	1636	
==>ng_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5723	5914	
==>[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5723	5914	
==>[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12573	12707	
==>st {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the definition of each() now.  The zip function needs
to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	571	701	
==>ubmatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	571	701	
==>ubmatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( '', m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3149	3248	
==>-f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 'syn', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24786	24910	
==>rror(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21207	21331	
==>rror(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12017	12137	
==>$rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12017	12137	
==>$rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11721	11952	
==>ce_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11721	11952	
==>ce_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'E <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4264	4366	
==>ee the cipher module's documentation for 
details.  The C<mode> value indicates the operation to be per <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4264	4366	
==>ee the cipher module's documentation for 
details.  The C<mode> value indicates the operation to be per <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5441	5550	
==>nt $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5441	5550	
==>nt $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7824	7920	
==>oxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7824	7920	
==>oxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Autho <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4453	4572	
==>trd suitable for GRUB.
  --initrd-img=$initrd_img
    --initrd-img is the temporary image of the initrd, which will be m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	767	893	
==>tory



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it int <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	728	847	
==>tory

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it int <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3796	3923	
==>open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3796	3923	
==>open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8234	8394	
==>t',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8234	8394	
==>t',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20353	20449	
==>AMES

The header field name spelling is normally canonicalized including the
'_' to '-' translati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20353	20449	
==>AMES

The header field name spelling is normally canonicalized including the
'_' to '-' translati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6858	7125	
==>\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6858	7125	
==>\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.he <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10580	10682	
==>mplement_previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10580	10682	
==>mplement_previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a rec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2261	2374	
==>n "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2261	2374	
==>n "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4992	5118	
==>start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4992	5118	
==>start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26167	26266	
==>e Key
it is being used with (others are ignored).  Each variable name can be any
defined and non-emp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26167	26266	
==>e Key
it is being used with (others are ignored).  Each variable name can be any
defined and non-emp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	491	586	
==>not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	491	586	
==>not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25882	25979	
==>nce> to a scalar, makes it work (!).

B<These functions can only work if called with ampersands, a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12606	12707	
==>)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12606	12707	
==>)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2464	2588	
==>h);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2464	2588	
==>h);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13212	13316	
==>{ -c "$initrd_mnt/dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img }, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2811	2918	
==>kages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2811	2918	
==>kages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attribute <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	657	757	
==>ou want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	657	757	
==>ou want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	733	836	
==>zy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - d <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	733	836	
==>zy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1524	1664	
==>ge() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4727	4867	
==>ge() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22868	22968	
==>!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27420	27520	
==>!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26995	27097	
==>ample usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' ) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26995	27097	
==>ample usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' ) <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	130	233	
==>otstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	130	233	
==>otstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24917	25017	
==>10-1301, USA.

Linking Rosetta statically or dynamically with other components is making a
combined w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24917	25017	
==>10-1301, USA.

Linking Rosetta statically or dynamically with other components is making a
combined w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4773	4905	
==>ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't op <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4773	4905	
==>ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't op <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4198	4301	
==>art_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:per <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4198	4301	
==>art_element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:per <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8549	8658	
==>h => $neg, $how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37122	37212	
==>quant> family

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUT <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9897	10013	
==>= 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading, bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13374	13490	
==>= 0) {
        # Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading, bo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	864	1018	
==>irs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_une <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	864	1018	
==>irs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_une <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2176	2302	
==>||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VE <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1011	1148	
==>ers.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1011	1148	
==>ers.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8136	8237	
==>es('rFoo'), '... iFooBar does rFoo');
ok($iFooBar->does('rBar'), '... iFooBar does rBar');     
    
1 <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3616	3717	
==>ified Pugs.Version

config :: Map.Map String String
config = Map.fromList
    [#all_definitions#
    , <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2202	2310	
==>ostfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=hea <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2202	2310	
==>ostfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4719	4818	
==>__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4859	4958	
==>__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8516	8612	
==>) (symbol $label)) returns method
    ((($self: get_attr (symbol new (%:methods))) fetch ($label) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	318	567	
==>adFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->config;
    my %hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	316	507	
==>adFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->config;
    my %hash    = @_;
    
    my $meta; my $inst;
    my $tmpl = {
        me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1053	1164	
==>S>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Arra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1053	1164	
==>S>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Arra <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6381	6527	
==>r at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we only allow compilatio <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6381	6527	
==>r at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we only allow compilatio <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1891	1995	
==>ess "No method found for '$label'";
    }
}

# The 'Class' class -- placed here so ::create_class can ref <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24495	24591	
==>t_n(N,X,C0,C1).
match_captures_set_if_undef(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n_if_undef(N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3037	3197	
==>e( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3048	3208	
==>e( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    rule <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4835	4971	
==>dex - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_hei <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4835	4971	
==>dex - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_hei <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2008	2140	
==>code);
        die $@ if $@;
        exit 0;
    }
}

1;

__END__

=head1 NAME 

v6-pugs - an experimental Perl 6 implementation

=he <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8379	8489	
==>($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	485	600	
==>ES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # cap <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	485	600	
==>ES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # cap <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	125	246	
==>ILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fus <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	125	246	
==>ILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20553	20653	
==>e.  When you
open a program, it will search for language files specific to the program
in the order y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20553	20653	
==>e.  When you
open a program, it will search for language files specific to the program
in the order y <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7174	7266	
==>al it is a bad idea

## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7174	7266	
==>al it is a bad idea

## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1894	2034	
==>s export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_s <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1894	2034	
==>s export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	970	1160	
==>p {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	970	1160	
==>p {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11592	11691	
==>header("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11592	11691	
==>header("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get mult <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7537	7703	
==>it( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1} ) {
            # %var<i <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3307	3405	
==>,/ } @{ $Config{exclude} };
    $Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5400	5494	
==>current value itself, which means 
you it is essentially read-only, however, all the return val <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6888	6987	
==>and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6888	6987	
==>and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHA <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5794	5896	
==>Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5794	5896	
==>Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9899	10022	
==>) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9899	10022	
==>) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	422	534	
==>ad1 NAME

CGI::Remote - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	422	534	
==>ad1 NAME

CGI::Remote - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4145	4271	
==>\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        post <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4145	4271	
==>\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        post <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	726	822	
==>utput_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$ou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	726	822	
==>utput_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$ou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19074	19181	
==>nal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19074	19181	
==>nal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6613	6708	
==>--------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## ---------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6636	6731	
==>---------------
## BOOTSTRAPPING Roles COMPLETE
## --------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3641	3750	
==>s copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3641	3750	
==>s copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1036	1143	
==>t;
    my $args = $self->makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12465	12616	
==>ray[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]" <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19073	19211	
==>t ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, $line, $type, $totals) = @_;

    die "FAILED--Further testing stopped <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13269	13362	
==>T (-1)

Quantifier unexpected on zero-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.* <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14069	14178	
==>rgumentList> <','> <AssignmentExpression>
}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpress <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	272	367	
==>: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_contig <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	272	367	
==>: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_contig <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1049	1153	
==>multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stri <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1049	1153	
==>multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stri <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4550	4734	
==>ess @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) {
        if ($Config{shuffle}) {
            shuffle(@tests)
        } else {
            # defau <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1677	1838	
==>.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1677	1838	
==>.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5321	5427	
==>ta Interface root, whose attributes will hold all of
    # the other data structures used by the Rosetta fr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5321	5427	
==>ta Interface root, whose attributes will hold all of
    # the other data structures used by the Rosetta fr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19876	19980	
==>y by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, including
th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19876	19980	
==>y by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, including
th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	224	333	
==>ings;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7009	7181	
==>ctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | < <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18460	18605	
==>::sprintf($conversion,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs::Internals::sprintf($conversion,1.0*$arg <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3756	3888	
==>lit_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3756	3888	
==>lit_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    " <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7827	7944	
==>cate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$bucket->state] => $fh or
    die "Co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18147	18257	
==>volved.
By contrast, if a program simply returned words for the user, such as
'error opening file', programs wo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18147	18257	
==>volved.
By contrast, if a program simply returned words for the user, such as
'error opening file', programs wo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	271	396	
==>qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1156	1272	
==>nt('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dum <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15831	15933	
==>ression>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <Relational <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9296	9441	
==>et = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9296	9441	
==>et = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3088	3221	
==>sure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3272	3405	
==>sure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1786	1985	
==>" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13385	13493	
==>ce =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13385	13493	
==>ce =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5624	5723	
==>return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5624	5723	
==>return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11547	11657	
==>R ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11547	11657	
==>R ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5558	5675	
==>pen;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5558	5675	
==>pen;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <= <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9901	10025	
==>:StructHook::make_qr_regexp_pair("a",1,$foo);

eval <<'END'; print $@ if $@;
my $m = "asdf" =~ $qr;
print "match? ",$m ? "yes <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4122	4244	
==>we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15751	15890	
==>ar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15751	15890	
==>ar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2188	2282	
==>setta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2188	2282	
==>setta::Interface::Command {

    # External packages used by the Rosetta::Interface::Command cl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	192	293	
==>"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	192	293	
==>"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1715	1818	
==>of(char) * 100);
	(void)sprintf(target, "%d", x);
	return target;
}
C
}

__PACKAGE__;

__END__

=pod

=h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21446	21603	
==>&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44353	44510	
==>&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(l <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1434	1534	
==>s in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information ra <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1434	1534	
==>s in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information ra <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2239	2346	
==>, make sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2239	2346	
==>, make sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3623	3772	
==>_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3870	4019	
==>_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}() <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	514	648	
==>ft;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	415	549	
==>ft;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3364	3486	
==>niverse =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3364	3486	
==>niverse =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3494	3747	
==>es of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::V <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3494	3747	
==>es of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::V <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7895	7997	
==>clude -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10300	10420	
==>";
  my $outfile = IO::File->new($output_path, ">:utf8")
                         or die "Can't open output test file $ou <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	927	1038	
==>rintf STDERR "\b\b\b\b\b   %s:%s Press a key to continue... ", BOLD . BLUE, RESET;
      <STDIN>;
      printf S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3226	3355	
==>{
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3226	3355	
==>{
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4512	4653	
==>lf->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4652	4793	
==>lf->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18138	18283	
==>grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18417	18562	
==>grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5725	5864	
==>capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5543	5678	
==>capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2286	2401	
==>ch), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2503	2618	
==>ch), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5490	5591	
==>_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5490	5591	
==>_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Ty <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1034	1349	
==>:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thun <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1656	1760	
==>ependency.  Please wait...\n\n";

        system("../../Setup$Config{_exe}", 'build');
        system(".. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5385	5524	
==>ubstitution>
            { return { 
                    substitution => $/{'Pugs::Grammar::Term.substitution'}->(),
                    opt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8833	8934	
==>->object(exact => chr(oct $1), "\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignored", su <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2040	2178	
==>y passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3632	3766	
==>y passing in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4770	5038	
==>y $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infin <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4770	5038	
==>y $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size },
                    cis_infin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10656	10760	
==>b
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10656	10760	
==>b
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2143	2270	
==>pDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' , <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2545	2671	
==>$self->array_extendSize($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	537	667	
==>rite;
    }
    else {
	$self->check_nmake if $args{check_nmake};
        $self->makemaker_args( PL_FILES => {} )
            unles <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4623	4743	
==>>error(RPe_NOTERM);
    }
    &Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27761	27877	
==>ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28040	28156	
==>ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7246	7339	
==>hatever it is combined with (except instantiated variables, which delegate. see below)
multi u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14546	14727	
==>ed";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14540	14721	
==>ed";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6231	6350	
==>eturn $o->mk_eater_for_re('\Z') if $re eq '\Z';
    return sub{
      FAIL() if !($X::pos == (length($X::str)));
      m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3411	3527	
==>.pm r8593.
# not in S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     min     safe   (List)\
multi List::min(Co <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	176	290	
==>back to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	176	290	
==>back to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26951	27048	
==>y if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26951	27048	
==>y if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $messa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11805	11940	
==>$_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx];
      my $s = "$m";
      my $pat = $s;
      $pat =~ s/(\W)/\\$ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1363	1459	
==>s can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1363	1459	
==>s can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1330	1456	
==>=> [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1330	1456	
==>=> [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15909	16025	
==>ject(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10765	10881	
==>ject(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	804	942	
==>le( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5224	5331	
==>se warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my $class = s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9522	9626	
==>_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m", "0", "-F", $initrd_img };

  ste <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36674	36769	
==>)))

=head2 Extending the Extension

Here's a final example.  I'm going to rewrite F<Regexp::And <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13168	13268	
==>somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13168	13268	
==>somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2689	2916	
==>0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2689	2916	
==>0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4328	4440	
==>83648 and 2147483648
        # that stringify to the same thing but are acutally numerically
        # different. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8324	8436	
==>set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8324	8436	
==>set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1868	1965	
==>code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Sy <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1868	1965	
==>code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Sy <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2917	3049	
==>r = shift @file;
		last if $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4275	4382	
==>lease" : "repository snapshot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } glob " <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	288	413	
==>atch.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	288	413	
==>atch.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                po <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3062	3272	
==>s($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass->superclass($class);
                }
                $class = $eigencla <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	88	213	
==>rl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	88	213	
==>rl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3812	4018	
==>turn;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4083	4213	
==>[ 'file3',  $file3,  "2nd line\n" ],
      [ 'file4',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6554	6653	
==><pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6554	6653	
==><pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15940	16033	
==>l return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modifie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15940	16033	
==>l return a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modifie <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	210	329	
==>acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $CALLER::_, :$base)
            returns Num { ... } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27397	27496	
==>t all be set when the object is constructed.  If you want to
conceptually change an existing Message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27397	27496	
==>t all be set when the object is constructed.  If you want to
conceptually change an existing Message <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6396	6493	
==>e main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6396	6493	
==>e main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1821	2066	
==>r ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1821	2066	
==>r ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4080	4186	
==>);
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_prec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5982	6088	
==>);
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_prec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8391	8511	
==>f;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8391	8511	
==>f;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9844	9940	
==>s input validation is performed over 2 main phases, which
are referred to as "immediate" and "def <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9844	9940	
==>s input validation is performed over 2 main phases, which
are referred to as "immediate" and "def <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	682	786	
==>rectory containing
# those files.
#
# Enjoy! -- asavige (aka mad golfer)

use strict;

# XXX: should make <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18752	18849	
==>s native API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18752	18849	
==>s native API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7376	7482	
==>~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "x <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7376	7482	
==>~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "x <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2366	2532	
==>nt "not ok\n  \# Expected: >$valuex<\n  \#      Got: >$res<  from  $expr\n";
		} else {
		    print "ok\n";
		}
	    }
	}
    }
}

do {
    # $use_native_ui = 1;
    t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2130	2236	
==>tation

=head1 SYNOPSIS

Command line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10422	10536	
==>)\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10580	10694	
==>)\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1251	1379	
==>() returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - c <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1251	1379	
==>() returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9986	10086	
==>a work in progress. As new features are
added to Pugs, new test functions will be defined to facilita <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10044	10144	
==>a work in progress. As new features are
added to Pugs, new test functions will be defined to facilita <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7652	7763	
==>re alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_string("\n");
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7652	7763	
==>re alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_string("\n");
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6275	6431	
==>if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31999	32094	
==>tem off

The flags specifically turned off for this object (for flag assertions
and C<(?:...)>). <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10034	10167	
==>g( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10034	10167	
==>g( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6120	6240	
==>@x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.spl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6120	6240	
==>@x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.spl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1362	1468	
==>fix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1362	1468	
==>fix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8226	8315	
==>ments, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2051	2140	
==>ments, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	614	749	
==>{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	614	749	
==>{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	29	139	
==>::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	29	139	
==>::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is co <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7102	7199	
==>module only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7102	7199	
==>module only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5377	5474	
==>. 
This is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there ma <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5377	5474	
==>. 
This is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but there ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15650	15786	
==>}xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10506	10642	
==>}xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1271	1374	
==>ping - a base class (probably a role) for
implementing dynamic scopes (not really a reduer).

=head1 SYN <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1396	1499	
==>Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "dis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2944	3057	
==>le->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3084	3197	
==>le->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3622	3746	
==>\@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3622	3746	
==>\@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3967	4127	
==>eady exists in this repository");
        return;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta,
                    fi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10062	10184	
==>onnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10062	10184	
==>onnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = conn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14396	14496	
==>self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8599	8699	
==>self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3048	3171	
==>>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3048	3171	
==>>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	870	974	
==>:L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	870	974	
==>:L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This d <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2251	2361	
==>es the output of a single test, assigning it the given C<$name>
for use in the total report.  Returns the C<%re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	194	292	
==>ommon/lrep*
# ***************

use strict;
use warnings;
no warnings 'redefine';

use FindBin '$Bin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1290	1383	
==>ds that are queried during dispatch (which includes attribute
lookup as well as method lookup, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1171	1343	
==>} else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1171	1343	
==>} else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4582	4729	
==>satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{versio <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5046	5193	
==>satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{versio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15823	15924	
==>r TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
several books and pap <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15823	15924	
==>r TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
several books and pap <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1771	1877	
==>:$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1829	1935	
==>:$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	651	750	
==>creteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	651	750	
==>creteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1770	1889	
==>es?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1770	1889	
==>es?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1075	1191	
==>rule>' ), '' );
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	30	129	
==>ct;
use warnings;

use JIB::Meta;
use JIB::Config;
use JIB::Utils;
use JIB::Package;

use File::chdi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	377	485	
==>ucer::DuplicateFinder/;

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		my $struct = $node- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28518	28612	
==>a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation::Exam <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2182	2468	
==>en $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI] <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2182	2468	
==>en $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11256	11399	
==>eturn ' do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3183	3296	
==>= emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3171	3284	
==>= emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19984	20091	
==>o_str = comb(
	fun => $app_to_str,
	param => $plus_ten,
);

my $fac = fun(
	param => "x",
	body => let(
		id <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	467	593	
==>store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX chec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	951	1077	
==>store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX chec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1330	1465	
==>::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b](b)');
my $rpcr2 = Pugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } ) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1104	1217	
==>my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1104	1217	
==>my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3086	3195	
==>'::Test')->STORE('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21952	22052	
==>'> <'('> <Expression> <')'> <Statement>
}
rule SwitchStatement :words {  # see 12.11
      <'switch'> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39466	39563	
==>lower and upper side of the range, objects must be created during
the first pass.  To accomplish t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24012	24108	
==>!, N1 is N - 1, replace_at_n_if_undef(N1,Replace,T,T1).
ground_list([],_,[]).
ground_list([H0|T0] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1974	2079	
==>returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1974	2079	
==>returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
} <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	90	190	
==>ic methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object rep <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	90	190	
==>ic methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object rep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2603	2767	
==>ng cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2603	2767	
==>ng cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	506	633	
==>eck( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $ob <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	990	1117	
==>eck( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	97	200	
==>scapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	97	200	
==>scapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1491	1593	
==>a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our class Par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1491	1593	
==>a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our class Par <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25788	25881	
==>ssage Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25788	25881	
==>ssage Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2949	3098	
==>%*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2949	3098	
==>%*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::S <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2812	2922	
==>al( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2812	2922	
==>al( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37868	37969	
==>'ve added a C<neg> attribute, and removed both C<type> and C<raw>.  We
will replace them with methods: <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	765	871	
==>, :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB i <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	765	871	
==>, :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21713	21842	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18134	18263	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9019	9138	
==>s"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9019	9138	
==>s"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6259	6371	
==>ethod is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6259	6371	
==>ethod is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	342	438	
==>eturn a value, arrange for
it to be the last evaluated expression.

All functions (but not macros <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	252	355	
==>ime_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	252	355	
==>ime_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1900	2055	
==>e, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1900	2055	
==>e, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1784	1899	
==>rmance reasons,

# because they are too frequent and they are too slow using the basic 

# rule parser



sub code { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1712	1823	
==>rmance reasons,
# because they are too frequent and they are too slow using the basic 
# rule parser

sub code { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25357	25451	
==>elation $other!) returns Bool>

This method returns the complement of C<equal> with the same ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29909	30003	
==>elation $other!) returns Bool>

This method returns the complement of C<equal> with the same ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5941	6060	
==>$content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5941	6060	
==>$content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HT <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1153	1268	
==>* superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%para <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1153	1268	
==>* superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%para <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2833	2976	
==><trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 20 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2833	2976	
==><trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 20 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	257	360	
==>keep track of which files have already been filtered
my $filtered = {};

# A map of digests to code bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	257	360	
==>keep track of which files have already been filtered
my $filtered = {};

# A map of digests to code bloc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	486	584	
==>m cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	486	584	
==>m cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3313	3450	
==>stem( qq[mkdir -p $builddir] )                and error($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1857	1963	
==>xpr = "\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match.\n" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	498	618	
==>is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	498	618	
==>is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2902	3029	
==>_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2902	3029	
==>_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!h <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1982	2110	
==>istinct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	139	258	
==>tch);
use overload
    'bool' => 'as_bool',
    '""'   => 'as_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	229	333	
==>'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	229	333	
==>'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21066	21178	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17487	17599	
==>= @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4042	4154	
==>is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4042	4154	
==>is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $ke <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1966	2076	
==>an.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1966	2076	
==>an.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1516	1650	
==>hod invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1516	1650	
==>hod invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17248	17378	
==>",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shif <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17248	17378	
==>",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shif <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	697	795	
==>::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here a <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	697	795	
==>::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16152	16421	
==>p::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16431	16700	
==>p::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4838	5026	
==>EFAULT_FATALITY {
            die $e;
        } else {
            $! = $e;
            return undef; # this is probably the one place we can return
                          # in the Prelu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2427	2531	
==>b FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2427	2531	
==>b FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possi <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5186	5281	
==>ncode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<M <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5186	5281	
==>ncode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1194	1296	
==>ody closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to object <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1141	1240	
==>ody closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to object <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	14	110	
==>pan;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	14	110	
==>pan;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2225	2325	
==>unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2137	2235	
==>unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8386	8490	
==>m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class','Mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8386	8490	
==>m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class','Mod <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5532	5675	
==>l <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ' <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5532	5675	
==>l <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1463	1583	
==>thod size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1463	1583	
==>thod size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18509	18629	
==>g from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14930	15050	
==>g from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  }) <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1647	1814	
==>t multi Num::round_half_even ( Num $x ) {
    my $x_round;

    # round .5 to the nearest even number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	764	859	
==>Conjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	764	859	
==>Conjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1860	1973	
==>E'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_parser {
  my($ws,$operators,$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8826	8924	
==>EQUIRE_OK;
require $require;
REQUIRE_OK
    _ok(!$@, _where(), "require $require");
}

sub use_ok ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6021	6145	
==>d_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6214	6338	
==>d_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       , <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5403	5509	
==>or a reference to a URI object.

You will not be able to examine the response code or response headers
(lik <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5403	5509	
==>or a reference to a URI object.

You will not be able to examine the response code or response headers
(lik <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4907	5053	
==>iption');
            return join(' ', $ok, _('$.number'), $description);            
        },
        'status' => sub {
            my $status_s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3714	3944	
==>/) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3714	3944	
==>/) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1300	1441	
==>~',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '..' <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8713	8817	
==>step
    descr  => "Checking which shared libraries pugs, parrot and bash require",
    ensure => sub { @ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5003	5099	
==>ject, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_lis <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7671	7767	
==>ject, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_lis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28933	29193	
==>->get('$self:')->send('_merge')
                            );                          
                      })
                  );
                return $e->get('$self:')->get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15054	15217	
==>blen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19229	19392	
==>blen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14004	14171	
==>f ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13998	14165	
==>f ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40147	40243	
==>ad1 ERROR HANDLING

=head2 Creating Custom Messages

It is probably easiest to follow my module w <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27193	27282	
==>r), "(int × str)", ":t id(pair(id(10))(id('foo')))");
is(t($app_to_str), "∀α. (str → <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7754	8008	
==>lue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7754	8008	
==>lue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	686	816	
==>ts <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	686	816	
==>ts <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5492	5595	
==>_op( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Gramm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13111	13208	
==>of strings are returned.

If called in void context the arguments are decoded in-place.

This rout <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13111	13208	
==>of strings are returned.

If called in void context the arguments are decoded in-place.

This rout <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21291	21442	
==>$test->{failed}});
            $percent = 100*(scalar @{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { c <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	773	888	
==>try => '', entry_html => '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl", topic => $topic, ent <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10033	10229	
==>,
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->remove($e->get('$label <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1195	1392	
==>val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" an <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1195	1392	
==>val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1666	1759	
==>s->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1666	1759	
==>s->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4807	4944	
==>time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4807	4944	
==>time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1988	2091	
==>b_call_term {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<para <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22396	22520	
==>[":s"]
    if $I0 goto ws
    null $P0
    .return ($P0)
  ws:
    self["subname"] = "ws"
    self["iscapture"] = 0
    .retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	798	904	
==>ngNumericLiteral, are not used in parsing JavaScript,
#     but rather in implementing it (eg, by ToNumber) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	954	1059	
==>\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::B <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	954	1059	
==>\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::B <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	855	985	
==>$url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	855	985	
==>$url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	404	494	
==>ethod set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_functi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	404	494	
==>ethod set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_functi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5934	6043	
==>g ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5934	6043	
==>g ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1283	1380	
==>complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1283	1380	
==>complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16349	16451	
==>sponding argument is not provided).  If the optional named parameter
$parent_node (a Node) is set, then <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16349	16451	
==>sponding argument is not provided).  If the optional named parameter
$parent_node (a Node) is set, then <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5051	5148	
==>es a file or directory to the target, recursively

Returns true on success, false on failure.

=cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16765	16897	
==>ge (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13186	13318	
==>ge (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    pus <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5112	5220	
==>lf, $label, $method) = @_;
            ::opaque_instance_class($self)->add_method($label, $method);
        } <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	106	209	
==>var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " ~ 4;

#=Zahlen-Kontext: +
say <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	135	284	
==>arams;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	135	284	
==>arams;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!para <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7371	7479	
==>ers should buffer input data until they have an entire block, then cipher 
the block and return the new ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7371	7479	
==>ers should buffer input data until they have an entire block, then cipher 
the block and return the new ciphe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1970	2102	
==>ed::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1892	2020	
==>ed::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	280	393	
==>ID = num->new(0);

# create a null object to 
# be used in bootstrapping
our $NULL_OBJECT = bless [ 
    $OBJECT_I <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25737	25836	
==>ssages.

=item C<FAILED--Further testing stopped: %s>

If a single subtest decides that further test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	316	429	
==>,
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4940	5044	
==>aybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4940	5044	
==>aybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LVa <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	956	1057	
==>IPTION

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	956	1057	
==>IPTION

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	393	495	
==>Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QU <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	393	495	
==>Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QU <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2122	2246	
==>ile((defined $index_file
                    ? file($index_file)
                    : $obj->index->file($config->repo_index_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22023	22138	
==>a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') {
	$mn .= "::META";
    } e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12351	12470	
==>or that field is set.

The header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12351	12470	
==>or that field is set.

The header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27023	27129	
==>:KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27023	27129	
==>:KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1882	1983	
==>d clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1882	1983	
==>d clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($fiel <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7987	8093	
==>irective is reached, the next event fired will be
any text which follows the item.

=item I<end_element ('i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7987	8093	
==>irective is reached, the next event fired will be
any text which follows the item.

=item I<end_element ('i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1207	1289	
==>ss>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1427	1509	
==>ss>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>? <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1616	1722	
==>::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1616	1722	
==>::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $lin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1800	1941	
==>ngify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1800	1941	
==>ngify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7091	7229	
==>}
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7284	7422	
==>}
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4569	4666	
==>e refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny: <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4569	4666	
==>e refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	833	961	
==>::Dumper ();
use Storable ();

use Devel::STDERR::Indent;

package type;
use base qw/Clone/;

### the types of types we have are: <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2031	2142	
==>he default Event/Subscriber pair really means that all notifications are sent everywhere
        1;
    }

    m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15505	15599	
==>ncode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hash <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15505	15599	
==>ncode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hash <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7294	7419	
==>e_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $self->generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1309	1406	
==>d the 'nmake' utility
before installation. It's available at:

  http://download.microsoft.com/dow <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1149	1246	
==>d the 'nmake' utility
before installation. It's available at:

  http://download.microsoft.com/dow <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2902	3069	
==>> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::De <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2902	3069	
==>> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::De <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	776	890	
==>.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	796	903	
==>.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say " <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6287	6417	
==>self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gather_results() <==
2	/Users/nnunley/pugs/util/package-osx.pl	11325	11490	
==>m removing \$file\: \$_\\n";
            \}
            else \{
                print "Successfully removed \$file\\n";
            \}
        \}
    );
    @footer = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9910	10011	
==>:List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.en <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9910	10011	
==>:List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.en <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2381	2508	
==>arter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $? <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2381	2508	
==>arter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	640	748	
==>$S->warn(RPe_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	6	101	
==>arse::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	6	101	
==>arse::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4891	5008	
==>r die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4891	5008	
==>r die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1580	1692	
==><Perl6> is the
    # only required language, but supporting C<Perl5> is I<strongly>
    # recommended.

    # saf <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6910	7030	
==>od('does'), '... we now have the does() method');
ok($Role->does('Role'), '... Role now does Role');

## create some role <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16234	16348	
==>e negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12655	12769	
==>e negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1218	1333	
==>, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1276	1391	
==>, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	856	952	
==>ribes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	856	952	
==>ribes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	325	429	
==>.


role rArray {}


class Array is List does rArray;

# signature from S29draft.pod r8593.
# XXX Prim.hs <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20773	20884	
==>atus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == $test->{ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7110	7289	
==>e.goto;
            return 
                " \@_ = (" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit( $n->{method}, '  ' ) . " " .
                    _em <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23294	23401	
==>d1 Execution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SEEN_ZERO_LEN        1
 #define R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1904	2012	
==>$.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1904	2012	
==>$.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28087	28188	
==>$r->('xxx')->describe,"\n";
print $rx->('abc')->('abc')->describe,"\n";
print $rx->('(a+|b)*')->('ab') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4117	4245	
==>method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4324	4452	
==>method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a par <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11226	11322	
==>e the semantic of a header field, but
in practice there are cases like old-style Netscape cookies <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11226	11322	
==>e the semantic of a header field, but
in practice there are cases like old-style Netscape cookies <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7676	7774	
==>this.)

A default implementation of this method is provided which returns nothing.

=item C<zeroize <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7676	7774	
==>this.)

A default implementation of this method is provided which returns nothing.

=item C<zeroize <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1333	1439	
==>{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1473	1579	
==>{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38663	38777	
==>ex($_) or die $parser->errmsg;
    print "VISUAL: ", $parser->visual, "\n";
    print "REGEX:  ", $parser->qr, "\n" <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	483	594	
==>ion.new( days => 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_du <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	483	594	
==>ion.new( days => 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_du <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	248	363	
==>eck];
use Log::Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             () <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20375	20492	
==>Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# localtime 

# time


# study

# def <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20730	20829	
==>uch.

The usual way that Relation indicates a failure is to throw an exception;
most often this is d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25282	25381	
==>uch.

The usual way that Relation indicates a failure is to throw an exception;
most often this is d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6349	6445	
==><object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6349	6445	
==><object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(norm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10417	10585	
==>r_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented( $n, "statement" );
}

sub i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	108	207	
==>nfig;
use JIB::Repository;

use Path::Class ();
use Cwd;
use vars qw[$REPO];

$REPO = JIB::Repositor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1062	1191	
==>0},
        P6_Regex   => sub{ $match = $rpc_regex->match($str)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20449	20543	
==><logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20449	20543	
==><logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10601	10710	
==>'re successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10601	10710	
==>'re successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5462	5656	
==>>{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{name}' exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2229	2393	
==>s;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2158	2313	
==>s;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	683	832	
==>$pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	683	832	
==>$pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15250	15352	
==>y span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `end()` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15250	15352	
==>y span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `end()` <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8287	8396	
==>lsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8345	8454	
==>lsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $T <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	793	903	
==>map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sort keys %ccset;
}

if ($Conf{allcc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1370	1473	
==>_;
  push @Regexp::Parser::bound::ISA, __PACKAGE__;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  pu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7016	7203	
==>( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10493	10680	
==>( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relatio <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5153	5238	
==>e_bounds(Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(Min,Max), !.
p6_range_bo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6657	6753	
==>nix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <steva <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6657	6753	
==>nix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <steva <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2214	2311	
==>erent types of nodes in a Perldoc DOM tree have different properties,
you should see the subclasse <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2214	2311	
==>erent types of nodes in a Perldoc DOM tree have different properties,
you should see the subclasse <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	124	241	
==>t::Harness dist.
# (And some stuff stolen from prove, too.)

# Please improve me!
#
# TODO:
# 1. Modularize this.
# 2. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14549	14664	
==>zip(keys %hash; values %hash)>

In Scalar context, they all return the count of elements that would have
been iterat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	168	309	
==>rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	168	309	
==>rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	268	360	
==>t dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	268	360	
==>t dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5548	5653	
==>ack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5548	5653	
==>ack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1820	1917	
==><burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_ch <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1820	1917	
==><burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_ch <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3958	4061	
==>ardSlashOrAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule MultiLin <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2688	2792	
==>t should work on other *nix
      systems, too. For now, I made the script stop if you aren't running und <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8096	8207	
==>ists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8096	8207	
==>ists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routin <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11870	11982	
==>pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be reso <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	279	386	
==>pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be reso <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1069	1188	
==>x   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/aut <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1069	1188	
==>x   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/aut <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12901	13024	
==>$result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12901	13024	
==>$result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1431	1569	
==>it
$Site           = $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17782	17873	
==>twiseORExpression>
    | <LogicalANDExpression> <'&&'> <BitwiseORExpression>
}
rule LogicalA <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13205	13320	
==>[10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13205	13320	
==>[10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9627	9754	
==>t + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9627	9754	
==>t + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order t <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2490	2608	
==>t = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    retu <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2490	2608	
==>t = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1393	1507	
==>rn if $@;

  # reset things, define tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	916	1067	
==>',
    );
    __PACKAGE__->add_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2618	2769	
==>',
    );
    __PACKAGE__->add_rule(
        name => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13328	13426	
==>fic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13328	13426	
==>fic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservernam <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5262	5401	
==>c % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(19 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5262	5401	
==>c % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(19 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20338	20456	
==>);

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16759	16877	
==>);

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4174	4292	
==>=> $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $app = shift;

		my $rapp = $app->fmap(s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	27	129	
==>gs;
use strict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug($);

our <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6770	6909	
==>license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU pu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6827	6966	
==>license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU pu <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	491	607	
==>t? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	491	607	
==>t? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12003	12113	
==>gnedInteger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9.3. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10372	10481	
==>rns the number of items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10372	10481	
==>rns the number of items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	940	1049	
==>t ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime:: <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	940	1049	
==>t ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	530	627	
==>eturns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	530	627	
==>eturns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	430	579	
==>V_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1288	1437	
==>V_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_tex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20921	21016	
==>em easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20921	21016	
==>em easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11843	11961	
==>{
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11843	11961	
==>{
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $li <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16108	16197	
==>pressionNoIn> <'>='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'instanceof'> <Sh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	630	732	
==>handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invited
to.

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	630	732	
==>handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invited
to.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3434	3585	
==>'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3627	3778	
==>'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16778	16888	
==>e Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automaticall <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16778	16888	
==>e Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automaticall <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5666	5756	
==>s {  def_whitespace($X::cap->[-2],"(?x)".$::X::cap->[-1]) }
sub hlp_stmt { def_statement($X <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22188	22283	
==>> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22188	22283	
==>> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	301	423	
==>s classes";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40049	40311	
==>ams' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    bloc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19598	19851	
==>ams' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    bloc <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1044	1194	
==>grep (MatchTest $test ;   *@values) returns Lazy {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }
 multi sub Array: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8376	8469	
==>ok_match_sub:
  $operator = &$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$token <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4840	4974	
==>b { $.blah };

SUPPORTED_FEATURES
}
    else {
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24703	24799	
==>hat Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to inv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24703	24799	
==>hat Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to inv <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2471	2596	
==>results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2471	2596	
==>results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21376	21490	
==>$n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17797	17911	
==>$n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler(' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14044	14149	
==>00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14044	14149	
==>00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4150	4250	
==>);

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4150	4250	
==>);

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	571	700	
==>TDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = <==
2	/Users/nnunley/pugs/util/drift.pl	1538	1645	
==>while (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $module.In <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3158	3344	
==>onstant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for refere <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3169	3355	
==>onstant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for refere <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	186	291	
==>COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	186	291	
==>COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5890	6006	
==>cted?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $con <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5948	6064	
==>cted?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4015	4128	
==>XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4027	4140	
==>XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named captur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10925	11022	
==>n_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo sing <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8447	8542	
==>n_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo sing <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	313	441	
==>->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	313	441	
==>->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - version i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11114	11218	
==>age ) ) and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metadata removed");

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	989	1092	
==>olon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	989	1092	
==>olon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gramm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2492	2594	
==>d () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2492	2594	
==>d () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26453	26581	
==>ss $match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26732	26860	
==>ss $match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28473	28612	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28752	28891	
==>lock->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8004	8149	
==>(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    mob["value"] = $S0
    in <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2216	2337	
==>our C compiler?\n"
         ."1..0 # skipped: can't build test executable\n";
    exit(0);
    }
    unless (-f "$exen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21063	21159	
==>ter 'atom' matches.  This makes things flow more
cleanly.

=item Flag Handlers

Flag handlers now <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5293	5461	
==>n?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5293	5461	
==>n?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            } <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31743	31837	
==>spectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36293	36387	
==>spectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $othe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13355	13484	
==>ip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13355	13484	
==>ip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26618	26716	
==>_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #defin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	616	709	
==>erence implementation of all the things the
language must provide, including stuff for what ca <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3395	3539	
==>tinue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized".  That is, /[ foo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3395	3539	
==>tinue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized".  That is, /[ foo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29756	29877	
==>ey!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29756	29877	
==>ey!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2239	2358	
==>s();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2239	2358	
==>s();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2431	2569	
==>ine ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2431	2569	
==>ine ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	220	328	
==>r::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9347	9471	
==>s = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.dele <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9347	9471	
==>s = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.dele <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4054	4179	
==>now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class cla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5956	6081	
==>now a subclass of $Object');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class cla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8461	8589	
==>[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $pre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8461	8589	
==>[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $pre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25622	25727	
==>xception payload).  The key is intended to be read by a machine and
mapped to a user-readable message; the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25622	25727	
==>xception payload).  The key is intended to be read by a machine and
mapped to a user-readable message; the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1627	1753	
==>}
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1627	1753	
==>}
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13614	13719	
==>we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13614	13719	
==>we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2812	2948	
==>match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3005	3141	
==>match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dump <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	296	413	
==>b Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
}

sub makemaker_args {
    my $ <==
2	/Users/nnunley/pugs/util/config_h.pl	765	865	
==>UGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endif
#define PUGS_D <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	733	855	
==>eturn '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	733	855	
==>eturn '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	69	165	
==>6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	69	165	
==>6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*par <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10212	10320	
==>=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10212	10320	
==>=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3686	3792	
==>my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3686	3792	
==>my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7835	7944	
==>);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7835	7944	
==>);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2279	2377	
==>.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2279	2377	
==>.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self.size < $othe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	193	294	
==>join( ', ', Data::Dumper::Dumper( @_ ) );
}

package Pugs::Runtime::Perl6::Scalar;

sub isa {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11817	11923	
==>t define the recurrences are exactly the same.

This method tests the closures identities using the '===' o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11817	11923	
==>t define the recurrences are exactly the same.

This method tests the closures identities using the '===' o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52515	52609	
==>::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO') => lis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	340	454	
==>kg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	340	454	
==>kg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5825	5935	
==>1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5813	5923	
==>1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unles <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	856	946	
==>p-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	856	946	
==>p-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4192	4294	
==>eded or not.

=head2 @{}

When used as an array reference, the match object returns positional
captures <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4192	4294	
==>eded or not.

=head2 @{}

When used as an array reference, the match object returns positional
captures <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28295	28403	
==>$parser->add_handler($seq, $code)

This method creates a method of the parser named $seq, and set it to
the c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3084	3179	
==>rm1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/util/func_refact.pl	1886	2033	
==>{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$set, new=>$new}});
    print "union: whi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6997	7119	
==>Term.bareword> 
            #    { return $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER::r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	80	184	
==>uest;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	80	184	
==>uest;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_C <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1812	1905	
==>regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens) <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	808	901	
==>regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1846	1945	
==>t_equiv } || "(not an object)");

		Scalar::Util::blessed($node) ? $self->SUPER::reduce($node->struc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22471	22575	
==>eturn a code-key to indicate a
condition, often it will also provide some variable values to be
interpola <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22471	22575	
==>eturn a code-key to indicate a
condition, often it will also provide some variable values to be
interpola <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	26	127	
==>Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	26	123	
==>Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7196	7303	
==>die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sys <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1515	1622	
==>ts_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns Void is e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5383	5483	
==>ds
compatibility on systems where C<glob()> doesn't work right.

=cut

sub _globdir { 
    opendir DI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6835	6996	
==>( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6610	6762	
==>( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $o <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	486	592	
==>my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	486	592	
==>my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8316	8426	
==>down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tree you are <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8316	8426	
==>down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tree you are <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13520	13617	
==>)

Sequence (?{...}) not terminated or not {}-balanced

=item RPe_SWNREC (-6)

Switch condition no <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	349	487	
==>n case there's more than one package matching,
    ### sort by highest version
    ### XXX this should be a policy decision
    my @metas = <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3272	3363	
==>term  { \< null \> }

rule assertion  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol>| <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4901	5000	
==>,
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4901	5000	
==>,
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6875	6972	
==>til/catalog_tmpl/error.tmpl');
$template->param(unresolved => \@unresolved);
print $error $templat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6024	6117	
==>ng functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6024	6117	
==>ng functionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4079	4182	
==>> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4079	4182	
==>> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl:: <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	589	711	
==>str $str, -1, 1;
        $str = substr $str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) return <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	450	609	
==>-Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 . <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	450	609	
==>-Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 . <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1864	1971	
==>seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1864	1971	
==>seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9776	9881	
==>e_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); } <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9776	9881	
==>e_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7164	7270	
==>\$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7152	7258	
==>\$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10960	11070	
==>ry hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11110	11220	
==>ry hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5131	5230	
==><read> method reads a config file, and returns a boolean value
of success or failure

=item data

Th <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5131	5230	
==><read> method reads a config file, and returns a boolean value
of success or failure

=item data

Th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28375	28487	
==>ng C<$Test::Harness::verbose> will override this,
or you can use the C<-v> switch in the F<prove> utility.

=back <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3298	3408	
==>=> class 'TestBuilder::Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21909	22024	
==>sh @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eva <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18330	18445	
==>sh @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eva <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9894	10012	
==>s, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any whitespace in it, or if
    # we're VMS, since V <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	767	877	
==>my($o,$b,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9289	9392	
==>tent-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9289	9392	
==>tent-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15043	15148	
==>n

Many times during a program's operation, the program (or a package it uses)
will need to display a mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15043	15148	
==>n

Many times during a program's operation, the program (or a package it uses)
will need to display a mess <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2181	2303	
==>atus $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't build test executable\n";
    exit <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4962	5073	
==>from( $matchObj, $whitespacePosition, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	294	399	
==>a'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	294	399	
==>a'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37047	37134	
==>=item C<exclusion (Relation::Example *@others) returns Relation::Example>

This multi-me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	226	330	
==>te('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	226	330	
==>te('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a l <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4117	4322	
==>'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4117	4322	
==>'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3402	3503	
==>vents;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3402	3503	
==>vents;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Ev <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9215	9307	
==><$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9215	9307	
==><$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33587	33687	
==>Names>

Array of Str - This stores an ordered list one or more elements where each
element is a Templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33587	33687	
==>Names>

Array of Str - This stores an ordered list one or more elements where each
element is a Templ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10954	11064	
==>t, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10954	11064	
==>t, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code i <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1811	1936	
==>ile::Spec->catfile($path, "man1");
    $self->makemaker_args->{INST_MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2634	2737	
==>ial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2634	2737	
==>ial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2376	2477	
==>does it's best to work with those limitations and 
still produce a working version of File::Spec for u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2376	2477	
==>does it's best to work with those limitations and 
still produce a working version of File::Spec for u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	163	312	
==>sing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Infor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	163	312	
==>sing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Infor <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10936	11044	
==>depending on the backend, the
    <code>ext/</code> tests may or may not be run, causing durations and the ok <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	99	269	
==>= 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	100	270	
==>= 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	436	547	
==>$args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	403	514	
==>$args{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4054	4162	
==>size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4054	4162	
==>size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	17	149	
==>se v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is expo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	17	149	
==>se v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is expo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14894	15041	
==>el, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14894	15041	
==>el, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $ch <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11013	11110	
==>ions) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11013	11110	
==>ions) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2571	2818	
==>lass Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2571	2818	
==>lass Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages us <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3022	3127	
==>:$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::procl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3080	3185	
==>:$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::procl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5093	5199	
==>nce_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7761	7867	
==>nce_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5068	5179	
==>ected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5068	5179	
==>ected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11810	11906	
==>2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11810	11906	
==>2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5011	5205	
==>symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6773	6967	
==>symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create (" <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3986	4082	
==>k keys %delete;
}

sub process_list {
  my $tmpl = HTML::Template->new(filehandle => *DATA, die_o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7671	7822	
==>me) {
    return "is macrop5 $pVarName" if p6_macrop5($pVarName);
    p6_var_CODE($pVarName);
}
NODE PApp ($pCxt, $pFun, $pInv, $pArgs) {
    my $has_in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12654	12771	
==>$min == 0 and $max eq '') { '*' }
    elsif ($min == 1 and $max eq '') { '+' }
    elsif ($min == 0 and $max == 1) { ' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	622	723	
==>lso addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And beca <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	622	723	
==>lso addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And beca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12602	12711	
==>body) = { new_env($$) }
fun: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		$.param => type::va <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	418	514	
==>sitory. $root/jibs if not specified.

=item pool_rel

The path to the pool directory that will be <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	306	416	
==>ers:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores ba <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	306	416	
==>ers:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores ba <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16605	16707	
==>malize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16605	16707	
==>malize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1025	1146	
==>. '/available';             # available packages MD
$Altfile        = $Meta . '/registered-alts';       # registered alter <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16541	16665	
==>ef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEE <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15595	15711	
==>ef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25565	25674	
==>res distribution of
source code.  However, for an additional fee, the copyright holders of
Rosetta can sell yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25565	25674	
==>res distribution of
source code.  However, for an additional fee, the copyright holders of
Rosetta can sell yo <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	283	395	
==>s[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied from S29draft.pod 86 <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	637	743	
==>~ "=" ~ %Cookies{$_} ~ "; expires=Sat, 01-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub Cook <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10552	10674	
==>t);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10552	10674	
==>t);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3084	3191	
==>$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3084	3191	
==>$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1880	1973	
==>n->new(
		type => $type,
		struct_equiv => Blondie::Val->new(
			Blondie::TypeSafe::Annotation <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18086	18208	
==>ication can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18086	18208	
==>ication can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7640	7748	
==>$S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4251	4356	
==>... somewhere?
  sub flag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val_x <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	810	938	
==>ol $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	810	938	
==>ol $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_star <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14988	15091	
==>emantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14988	15091	
==>emantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10864	11001	
==>ntext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10864	11001	
==>ntext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3526	3861	
==>, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3526	3861	
==>, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Loc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12628	12724	
==>eals with encoding and decoding of strings with HTML
character entities.  The module provides the <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12628	12724	
==>eals with encoding and decoding of strings with HTML
character entities.  The module provides the <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3053	3263	
==>adline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3053	3263	
==>adline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_ele <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3406	3508	
==>th the 
key, not merely appended to it; appending can create precisely the sort of weak 
keying that ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3406	3508	
==>th the 
key, not merely appended to it; appending can create precisely the sort of weak 
keying that ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12898	13007	
==>ivecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12898	13007	
==>ivecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21666	21779	
==>$self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{fla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18087	18200	
==>$self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{fla <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2265	2365	
==>ks resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2265	2365	
==>ks resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1822	1970	
==>es->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1761	1906	
==>es->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5431	5567	
==>op::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $labe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5257	5390	
==>op::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	217	343	
==>ls}}, $_[1], 0, [ $_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	389	496	
==>re returns a native boolean though,
# so it should be considered a protected 
# method, which is used to imp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9224	9339	
==>dule', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9282	9397	
==>dule', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3391	3600	
==>rint("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3391	3600	
==>rint("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	266	377	
==>{
    ### XXX can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Meta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26593	26728	
==>This attribute is True if the Relation::Example is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7786	7895	
==>ure }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7774	7883	
==>ure }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1465	1641	
==>ion')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::schem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1465	1641	
==>ion')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::schem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1097	1218	
==>"ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1100	1212	
==>"ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	937	1051	
==>s:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	937	1051	
==>s:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8010	8107	
==>ion, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8010	8107	
==>ion, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.k <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9866	9988	
==>self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9866	9988	
==>self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15895	16077	
==>to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15889	16071	
==>to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@mat <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3176	3297	
==>per(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    *** NOTE ***
    DO NOT EDIT THIS FIL <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22552	22644	
==>Relation object has 2 main attributes (implementation details subject to
change) plus 1 extra <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27104	27196	
==>Relation object has 2 main attributes (implementation details subject to
change) plus 1 extra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	404	499	
==>= $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Ty <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	404	499	
==>= $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Ty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12592	12693	
==>_nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12592	12693	
==>_nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17404	17507	
==>title

The title of the document.  In libwww-perl this header will be
initialized automatically from the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17404	17507	
==>title

The title of the document.  In libwww-perl this header will be
initialized automatically from the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	606	714	
==>int($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  < <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	606	714	
==>int($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  < <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24796	24918	
==>$self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub visual {
    my $s <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5348	5472	
==><hexdigit>
      | <bracket_open> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16275	16385	
==>ti Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Related to C<chop>, only removes trailing chars <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	102	222	
==>ck_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	102	222	
==>ck_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17944	18041	
==>quest.

=item $h.from

This header should contain an Internet e-mail address for the human
user wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17944	18041	
==>quest.

=item $h.from

This header should contain an Internet e-mail address for the human
user wh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	681	777	
==>ift }

# conversion to other native types
sub to_str { (shift)->to_native ? str->new('1') : str-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6685	6845	
==>t>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16290	16532	
==>lternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16569	16811	
==>lternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27224	27324	
==>s method is a generic relational operator that returns a new Relation
which has a superset of the ori <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31776	31876	
==>s method is a generic relational operator that returns a new Relation
which has a superset of the ori <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15629	15727	
==>bute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Arra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15629	15727	
==>bute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Arra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13968	14126	
==>$attr )";
    }

    if ( $n->{op1}{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTR <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1292	1398	
==>alues) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	483	608	
==>usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	483	608	
==>usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8008	8137	
==>path(substr($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Spec->canonpath(substr($_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1452	1558	
==>um_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    print dum <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6440	6550	
==>path($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6440	6550	
==>path($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	291	398	
==>concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	291	398	
==>concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2889	2983	
==>tation is currently at a comparable state as v6.pm.

Although running C<v6-pugs> requires the i <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1084	1219	
==>rsion =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($vers <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	963	1098	
==>rsion =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($vers <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6836	6934	
==>end of the line and find no closing match, I should
ignore the opening one. However, this means I s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6836	6934	
==>end of the line and find no closing match, I should
ignore the opening one. However, this means I s <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1201	1299	
==>p = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1168	1266	
==>p = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	769	890	
==>class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to other types
sub to_str { str->new('' . (shift) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19518	19626	
==>es_get(I,E0,M), nonvar(M), %# XXX - excess caution
  M = [Str|_], %# XXX - need api
  re_parse(Str,Re), %# XX <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7937	8062	
==>expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $dis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7937	8062	
==>expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $dis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9209	9334	
==>ndefined

=cut



### current implementation is always anchored at ^

### because it was specialized for subrules

### - needs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8908	9028	
==>ndefined
=cut

### current implementation is always anchored at ^
### because it was specialized for subrules
### - needs <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	330	428	
==>nthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	330	428	
==>nthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3947	4058	
==>lose",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3947	4058	
==>lose",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	356	450	
==>est::force_todo_test_junction;

# for running the test suite multiple times in the same process <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	414	508	
==>est::force_todo_test_junction;

# for running the test suite multiple times in the same process <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6201	6319	
==>: "pBody""pIsMulti""pLValue""pParams""pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; my $body <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8874	8983	
==>!$@, _where(), "require $require");
}

sub use_ok ($) {
    my ($use) = @_;
    eval <<USE_OK;
use $use;
USE_O <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	286	433	
==>does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10633	10744	
==>reset itself, and will start from the beginning the next
time it is called.

=head2 Viewing the Regex

You can g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23431	23527	
==>IBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23431	23527	
==>IBILITIES

None reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	427	552	
==>&& 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    return <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18447	18574	
==>engineering perl source.

We basically use the perl regcompp and regexecp hooks (C functions
which get called on regular express <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2737	2864	
==>engineering perl source.

We basically use the perl regcompp and regexecp hooks (C functions
which get called on regular express <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7105	7226	
==>rest {
    $head = $head[shift @rest];
  }
  $head;
}


# signature from S29draft.pod 8651.  In the List section.
multi Ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6383	6487	
==>orm - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6167	6270	
==>orm - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1654	1751	
==>.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase development.  Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4843	4978	
==>TTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4843	4978	
==>TTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3644	3808	
==>ix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3644	3808	
==>ix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13566	13677	
==>er('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7774	7885	
==>er('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alnum => $neg <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	959	1055	
==>e->new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10294	10409	
==>_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10294	10409	
==>_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1301	1406	
==>is plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by ch <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1301	1406	
==>is plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by ch <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2050	2175	
==>self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2050	2175	
==>self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' un <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4548	4666	
==>e ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4548	4666	
==>e ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1770	1885	
==>rying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1770	1885	
==>rying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	490	585	
==>pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	490	585	
==>pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4303	4420	
==>m_empty:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $key = "";
    $whitespacePosition = $position;
    push <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8851	8966	
==>$ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPathName( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5893	5983	
==>073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($n <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5893	5983	
==>073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24282	24376	
==>imultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely ob <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24282	24376	
==>imultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely ob <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4156	4257	
==>> constructor generally include some sort of key, and sometimes also 
parameters for block size and so <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4156	4257	
==>> constructor generally include some sort of key, and sometimes also 
parameters for block size and so <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	516	623	
==>xpected types of those objects (or possibly
    # the default values too)
    (blessed($signature) && ($sign <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39577	39667	
==>-------------------------------------------
## now build Object, so we can create something <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15028	15145	
==>ing.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($te <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15028	15145	
==>ing.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12072	12179	
==>TH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12072	12179	
==>TH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11385	11480	
==>x of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11385	11480	
==>x of a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13525	13656	
==>s for the fields present in the
header.  The field names have case as suggested by HTTP spec, and the
names are returned in the reco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13525	13656	
==>s for the fields present in the
header.  The field names have case as suggested by HTTP spec, and the
names are returned in the reco <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12306	12410	
==>( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12306	12410	
==>( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1015	1119	
==>Exp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1015	1119	
==>Exp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	314	421	
==>, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	314	421	
==>, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7410	7539	
==>c.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7410	7539	
==>c.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_pers <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4540	4688	
==>ms => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4540	4688	
==>ms => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11938	12045	
==>ew( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11938	12045	
==>ew( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10124	10216	
==>$rhs));
}

NODE MkParam ($isInvocant, $isOptional, $isNamed, $isLValue, $isWritable, $isLazy, <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	566	657	
==>uration::Gregorian is export {
    Duration::Gregorian.new( :year($year), :month($month), :d <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1552	1647	
==>TML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 c <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1552	1647	
==>TML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 c <==
2	/Users/nnunley/pugs/util/package-osx.pl	2746	2850	
==>/local/bin/pugscc
        blank /System/Library/Perl6/
        /Users/dromano/dev/pugs/src/pge/run_pge.pi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5674	5810	
==>ackage statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5674	5810	
==>ackage statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21464	21614	
==>atch;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21743	21893	
==>atch;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	583	687	
==>valbot) using `is safe` or `is unsafe`.

For functions exported to the global `*` namespace, please use
t <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3299	3382	
==>assertion  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol>|<lookahead>|<lookbe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6098	6207	
==>to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6098	6207	
==>to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8778	8889	
==>mar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2603	2714	
==>mar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5467	5578	
==>rocess/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will im <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5467	5578	
==>rocess/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will im <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1085	1183	
==>st to check for circular superclasses?
# I guess that we're not the superclass of any superclass

m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7691	7805	
==>"$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	}
    } elsif( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5552	5664	
==>ories.  

The module is still very unstable, and the algorithm is not optimized for speed yet.

=head1 METHODS

= <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	165	283	
==>urns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	165	283	
==>urns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is expo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25785	25879	
==>t with the outside
environment at all.

A Relation::Example object has 2 main attributes (imple <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5313	5439	
==>us( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5313	5439	
==>us( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	682	939	
==>Carp::CarpLevel+2;
                                    error(qq[File '$file' does not exist]);
                                    return;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14527	14642	
==>ric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routine works just like encode_entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14527	14642	
==>ric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routine works just like encode_entitie <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1584	1732	
==>th);
            last unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! ca <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1584	1732	
==>th);
            last unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4456	4579	
==>{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4456	4579	
==>{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12921	13016	
==>ERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the same-nu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12921	13016	
==>ERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the same-nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1051	1226	
==>> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1051	1226	
==>> 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$p <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	569	663	
==>lutter:: is a package for macros declared and used locally.
Helpers:: is for more generally use <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2014	2121	
==>c} $Config{ccflags} $exename.c\n";
    if (system("$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	34	131	
==>arnings;

use Perl6::Runtime;
use Perl6::Util::SExpParser;

=pod

NOTE:
This is a very basic first <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15054	15149	
==>is causes the type variables in the cloned function to be instantiated to the concrete values as <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5568	5683	
==>eturn $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5568	5683	
==>eturn $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18509	18604	
==>nd regexecp hooks (C functions
which get called on regular expression compilation and execution) <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2799	2894	
==>nd regexecp hooks (C functions
which get called on regular expression compilation and execution) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5728	5824	
==>e context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5728	5824	
==>e context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11322	11436	
==>ils_ok { $iBar->another_singleton_test_on_object } '... instance calling metaclass singleton method fails';
fails_o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1731	1828	
==>t::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1731	1828	
==>t::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14130	14254	
==>sion:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14130	14254	
==>sion:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sen <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	587	694	
==>ork well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stringify) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	587	694	
==>ork well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stringify) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26998	27092	
==>rectory, harness will check after each
test whether new files appeared in that directory, and r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3886	3980	
==>>class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the rig <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5788	5882	
==>>class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the rig <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	997	1103	
==>SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	997	1103	
==>SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3175	3270	
==>IPTION

The compiler reduces an AST into an executable program. This process has three
main aspe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7738	7827	
==>ntiated value instead of itself
multi unify => ('type::variable::instantiated', 'type') => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17023	17152	
==>eop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17302	17431	
==>eop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6348	6456	
==>ough not technically part of the API, most ciphers will want to implement 
a constructor with C<BEGIN>.

=ite <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6348	6456	
==>ough not technically part of the API, most ciphers will want to implement 
a constructor with C<BEGIN>.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	40	137	
==>s $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_fu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	40	137	
==>s $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_fu <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	89	194	
==>TE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_A <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	89	194	
==>TE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_A <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2572	2697	
==>( $attr_name )) {
            return Bool::false;
        }
    }
    return Bool::true;
}

method any_names_exist of Bool (Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8036	8145	
==>s => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5065	5154	
==>elf->{param}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator::bi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15091	15206	
==>Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15091	15206	
==>Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2536	2643	
==>le_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(IN <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2536	2643	
==>le_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(IN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20305	20425	
==>C, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16726	16846	
==>C, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3315	3449	
==>{PATH} = dirname($ghc) . $Config{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1708	1861	
==>:URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1708	1861	
==>:URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6503	6616	
==>span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6503	6616	
==>span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	380	496	
==>a->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/ <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	411	515	
==>a->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	305	576	
==>in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	305	576	
==>in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3614	3714	
==>andard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3614	3714	
==>andard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key { <==
2	/Users/nnunley/pugs/util/testgraph.pl	487	586	
==>e "binmode: $!";
local $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model->n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1941	2059	
==>MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        ext <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1941	2059	
==>MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        ext <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13785	13939	
==>\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14064	14218	
==>\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	378	476	
==>ch}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1105	1200	
==>ch}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16339	16464	
==>le::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and giv <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16339	16464	
==>le::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and giv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5037	5138	
==>sition of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIG <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5037	5138	
==>sition of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIG <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3068	3199	
==>:Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (depen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3532	3663	
==>:Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (depen <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4116	4218	
==>tent-Type: text/html\n\n";
  #$tmpl->output(print_to => *STDOUT);

  my $category = sub {
    return sp <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1879	1987	
==>.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extr <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1879	1987	
==>.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1182	1286	
==>racted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1182	1286	
==>racted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extrac <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14277	14400	
==>step
  descr  => "Creating \"$cdroot/boot/grub/menu.lst\"",
  ensure => sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_men <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	334	439	
==>tion"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	334	439	
==>tion"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - T <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17080	17183	
==>s polymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applied to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	476	583	
==>} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	476	583	
==>} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5931	6095	
==>l::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5931	6095	
==>l::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9105	9227	
==>ch, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9093	9215	
==>ch, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17202	17303	
==>(F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re),F0,F1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8940	9051	
==>the bareword semantics, where 'require'
    # will munge the package name into file system paths.
    eval "requ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8940	9051	
==>the bareword semantics, where 'require'
    # will munge the package name into file system paths.
    eval "requ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	896	994	
==>iler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5249	5456	
==>{
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # ma <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5249	5456	
==>{
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # ma <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9500	9680	
==>esults{todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7225	7336	
==>$closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7225	7336	
==>$closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10413	10583	
==>trol';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            return $res;
};

1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28690	28810	
==>urn $S->object('and');
    });
  }

There is a specific scheme to how you must name your handlers.  If you
want to instal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10722	10824	
==>ng the Regex

You can get the regex back from the parser with the visual() method:

  my $rx = $parser- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10839	10961	
==>3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the opening delimiter (provided only <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	255	365	
==>l],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator' => \&xml ],
);

# dump data as yaml
sub y <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7372	7543	
==>y_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $v <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7836	8007	
==>y_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34283	34387	
==>mes! )>

This method creates and returns a new Locale::KeyedText::Translator object.
The Set Names proper <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34283	34387	
==>mes! )>

This method creates and returns a new Locale::KeyedText::Translator object.
The Set Names proper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10854	11008	
==>mediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11133	11287	
==>mediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30695	30800	
==>uage.

The name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30695	30800	
==>uage.

The name of each Template module has two parts, the Set Name and the Member
Name.  The Set Name com <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1934	2149	
==>efined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    me <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1934	2149	
==>efined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11588	11714	
==>h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11588	11714	
==>h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16303	16403	
==>packages that empowers single binaries to support N
locales or user types simultaneously, and that al <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16303	16403	
==>packages that empowers single binaries to support N
locales or user types simultaneously, and that al <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9571	9694	
==>v -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array::reverse (   @values --> Lazy|Str) {
 multi  List::re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35583	35673	
==>d C<grep>.

=item C<union (Relation::Example $other!) returns Relation::Example>

This mult <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	784	885	
==>C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	784	885	
==>C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to succeed as s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1202	1313	
==>> [0],
    next => ['atom'],
  );

  # do the initial scan (populates maxpar)
  # because tree is undef, nothing <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6458	6552	
==>tart_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represent <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6458	6552	
==>tart_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represent <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14378	14498	
==>d, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14378	14498	
==>d, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Tr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2172	2300	
==>the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYP <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2172	2300	
==>the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1549	1686	
==>:constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1560	1697	
==>:constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	635	794	
==>er '$_'" 
        for keys %$param;
    #print 'rule source: ', $self->{source}, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7736	7850	
==>ckage, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@unins <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1037	1151	
==>ckage, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@unins <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	303	425	
==>export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	303	425	
==>export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1296	1430	
==>ting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1296	1430	
==>ting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19980	20091	
==>d"> as a single string value.

When used to set the header value, it expects two arguments.  I<E.g.>:

  $h->aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19980	20091	
==>d"> as a single string value.

When used to set the header value, it expects two arguments.  I<E.g.>:

  $h->aut <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1388	1477	
==>d.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.micros <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1228	1317	
==>d.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.micros <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2189	2320	
==>lement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2189	2320	
==>lement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2457	2557	
==>r) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2457	2557	
==>r) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    retu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2386	2566	
==>>{package} };
                }

                ### write the data into the available list
                ### XXX temp file, then mv
                my @list = LoadFile( $Availabl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7394	7532	
==>0;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        error("Failed to 'chmod +w' '$fil <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1475	1606	
==>) {
        return ([+] $:superclasses,
                $:superclasses.map:{ .all_superclasses });
    } else {
        return set() <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5644	5752	
==>rr last;
            $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.lin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	74	184	
==>Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub ge <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	79	186	
==>Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4474	4572	
==>ing methods are available for Date objects:

- `year()`

Returns the year for the object.

- `month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4474	4572	
==>ing methods are available for Date objects:

- `year()`

Returns the year for the object.

- `month <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37003	37114	
==>age );

=back

The Translator class also has these utility methods, which are all used by
translate_message() to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37003	37114	
==>age );

=back

The Translator class also has these utility methods, which are all used by
translate_message() to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	354	505	
==>/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	354	505	
==>/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6394	6489	
==>The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it use <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6394	6489	
==>The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14900	15061	
==>:p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15179	15340	
==>:p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8185	8300	
==>tch[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8173	8288	
==>tch[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	500	626	
==>umfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	516	642	
==>umfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7863	7977	
==>der ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7596	7704	
==>der ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11234	11394	
==>rg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'resu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11234	11394	
==>rg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'resu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1630	1731	
==>l 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1630	1731	
==>l 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5325	5514	
==>ock new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7087	7276	
==>ock new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3454	3561	
==>ary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{na <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4736	4843	
==>ary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4093	4196	
==>generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3949	4050	
==>generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12151	12249	
==>ly on checks with ref() since we do not yet have
object support. Once object support is created, we <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12209	12307	
==>ly on checks with ref() since we do not yet have
object support. Once object support is created, we <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2835	2930	
==>name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2835	2930	
==>name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1869	1973	
==>ns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_ar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1869	1973	
==>ns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6109	6194	
==>t<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6109	6194	
==>t<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($event <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	632	773	
==>method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	632	773	
==>method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $ <==
2	/Users/nnunley/pugs/util/addauthors.pl	536	662	
==>qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$auth <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4466	4747	
==>,
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        Ap <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1009	1106	
==>reference>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1064	1224	
==>Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1064	1224	
==>Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1699	1835	
==>hits = ();

    local *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $file eq File <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	118	221	
==>::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$ty <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7061	7177	
==>ent<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7061	7177	
==>ent<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!use <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8710	8803	
==>f File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8710	8803	
==>f File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	798	917	
==>initialize_package
       p6_wrap_code_with_package
       p6_eval
       p6_eval_file
       p6_macrop5
       p6_def_m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8092	8206	
==>p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8092	8206	
==>p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.pa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5176	5280	
==>s C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5176	5280	
==>s C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $ciph <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1237	1339	
==>t => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1237	1339	
==>t => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $spa <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	962	1233	
==>count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=h <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	962	1233	
==>count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=h <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	775	877	
==>>{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2610	2712	
==>>{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6885	6983	
==>(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7903	8001	
==>(0, "Illegal hexadecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_obje <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3051	3164	
==>{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die < <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3051	3164	
==>{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die < <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17816	17922	
==>x = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_rep <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3303	3407	
==>> $perl_version ], @{ $values{requires} || [] }, ];
    }

    warn "No license specified, setting licens <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10031	10130	
==>ix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10031	10130	
==>ix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8915	9053	
==>ev_');
        my $code = "Rul.new(:f(sub($str)\{
           my $re = $hook$adverbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $pre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1265	1373	
==>closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .string <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1265	1373	
==>closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .string <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6428	6543	
==>_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6428	6543	
==>_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Roset <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	80	192	
==>delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fuseby <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	80	192	
==>delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fuseby <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6326	6443	
==>e);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6326	6443	
==>e);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1318	1431	
==>est_files);

=head1 DESCRIPTION

B<STOP!> If all you want to do is write a test script, consider
using Test::Simpl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1176	1282	
==>mar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3037	3143	
==>mar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2409	2505	
==>ut meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2409	2505	
==>ut meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9202	9352	
==>) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9202	9352	
==>) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27676	27844	
==>op::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27955	28123	
==>op::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11661	11767	
==>ternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12019	12125	
==>ternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3614	3710	
==>array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures sh <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3614	3710	
==>array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures sh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12778	12906	
==>e => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %has <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	350	471	
==>e, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	350	471	
==>e, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5568	5839	
==>n {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9045	9316	
==>n {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $head <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2522	2652	
==>cute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2522	2652	
==>cute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9442	9583	
==>]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9430	9571	
==>]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21749	21899	
==>->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44656	44806	
==>->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	20	125	
==>r::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.par <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	20	125	
==>r::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.par <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1365	1522	
==>e (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1365	1522	
==>e (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	810	911	
==>vel(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	810	911	
==>vel(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	476	585	
==>e //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $nod <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	476	585	
==>e //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $nod <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	791	917	
==>LLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	791	917	
==>LLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Pe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10267	10365	
==>lan. A plan is simply the number of tests which are
expected to run. This should be specified at th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10325	10423	
==>lan. A plan is simply the number of tests which are
expected to run. This should be specified at th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15298	15393	
==>sponse message for interactive systems.

If the program or any of its components are intended fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15298	15393	
==>sponse message for interactive systems.

If the program or any of its components are intended fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3660	3811	
==>quest.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $ag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3660	3811	
==>quest.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $ag <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	47	156	
==>Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

Da <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	47	156	
==>Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

Da <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2708	2829	
==>ON || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2708	2829	
==>ON || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19232	19368	
==>:Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19232	19368	
==>:Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5825	5973	
==>code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5825	5973	
==>code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20740	20832	
==>hannels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. It <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20740	20832	
==>hannels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. It <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9524	9697	
==>{
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", map <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1327	1480	
==>{
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	17	114	
==>ngeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	17	114	
==>ngeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15102	15265	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alterna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15381	15544	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alterna <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	502	604	
==>kage to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	502	604	
==>kage to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5000	5136	
==>>{value} = $initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term_literal <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7028	7134	
==>Thunk)."})";
}
NODE PCode ($pType, $pParams, $pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pP <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1681	1781	
==>}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1574	1662	
==>}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	435	570	
==>:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	435	570	
==>:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20244	20360	
==>ation_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20244	20360	
==>ation_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

Th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	729	834	
==>expr = Perl6::Util::SExpParser->parse($source);
        #warn Dumper $sexpr;
        return $self->evaluat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	447	540	
==>ced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not recognized';
use constant RPe_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	140	551	
==>e Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	140	551	
==>e Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2395	2495	
==>d1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Co <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2395	2495	
==>d1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25031	25171	
==>g
 * potentially expensive (at present, the only such thing detected is * or +
 * at the start of the r.e., which can involve a lot of backup <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	393	494	
==>of existing p5 programs instead of doing
# full conversions. :-/
#
# c.f. Mini HowTo: How to port Perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32610	32703	
==>vert Message objects on demand into user-readable
message strings, using data from external Te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32610	32703	
==>vert Message objects on demand into user-readable
message strings, using data from external Te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8546	8738	
==>all_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8546	8738	
==>all_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routin <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	189	288	
==>g containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
s <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	245	344	
==>g containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	700	803	
==>Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	700	803	
==>Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofi <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	332	433	
==>_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	332	433	
==>_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11368	11538	
==>r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation::Example $other!) returns Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	460	569	
==>");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2600	2703	
==>lti Math::Basic::srand ( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num::sqrt (  Num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	37	137	
==>erl5 compiler and creates a .pmc file

use strict;
use warnings;

my $filename = (caller)[1];
my $pmc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1142	1264	
==>subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *% <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1142	1264	
==>subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *% <==
2	/Users/nnunley/pugs/util/testgraph.pl	76	167	
==>AML/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::V <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13586	13687	
==>nth_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13586	13687	
==>nth_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9127	9222	
==>ta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9127	9222	
==>ta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15980	16072	
==>,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0,E1). <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22970	23084	
==>= self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	153	247	
==>londie::TypeSafe;

{
    package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::P <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1478	1588	
==>ad1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1478	1588	
==>ad1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2194	2298	
==>t($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2194	2298	
==>t($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!childr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21923	22040	
==>ce
files it should use and in what order they should be consulted.  When
Locale::KeyedText is told to fetch the user m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21923	22040	
==>ce
files it should use and in what order they should be consulted.  When
Locale::KeyedText is told to fetch the user m <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	490	634	
==>/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "Y <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	490	634	
==>/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "Y <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4178	4289	
==>else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4236	4347	
==>else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17232	17333	
==>ue` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Inf <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17232	17333	
==>ue` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Inf <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8005	8139	
==>f ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8005	8139	
==>f ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHT <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51433	51660	
==>)
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:authority'))
                  ->to_bit()
                  ->and(bloc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1007	1121	
==>fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat $pilfn.err`.$e <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	340	482	
==>.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	340	482	
==>.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2410	2537	
==>d ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2318	2442	
==>d ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6133	6232	
==>et, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6133	6232	
==>et, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2170	2280	
==>&dispatcher, symbol $label, hash %opts) returns method {
    while (my $current = &dispatcher.()) {
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33094	33181	
==>disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation * <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37644	37731	
==>disjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation * <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4062	4200	
==>ree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4062	4200	
==>ree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10212	10306	
==>e well-formedness of the input, such as that mandatory
constructor arguments are provided and t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10212	10306	
==>e well-formedness of the input, such as that mandatory
constructor arguments are provided and t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8481	8585	
==>on_Foo',
  '... still got the right return value from Foo singleton/class method');  
  
fails_ok { $Obje <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state1.pl	4	107	
==>ate1.pl - "state" in Perl 5
{
	my $var = new MeineKlasse;
	# $var wird nur einmal erzeugt
	sub singleton <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3281	3386	
==>c_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archl <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3281	3386	
==>c_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3422	3521	
==>cific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): ca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3422	3521	
==>cific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): ca <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1515	1653	
==>, @values);
    for @p {
      ($v, $input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7187	7298	
==>e $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3257	3357	
==>t>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4886	5070	
==>ch => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4734	4913	
==>ch => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { boo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	729	871	
==>le.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	729	871	
==>le.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15197	15296	
==>ts, the encoded or
decoded string is returned (without changing the input string).

If you prefer no <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15197	15296	
==>ts, the encoded or
decoded string is returned (without changing the input string).

If you prefer no <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1987	2093	
==>mbol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit::T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1669	1771	
==>mbol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10603	10698	
==>ranged correctly
depending on their types, that their attributes have reasonable values, and
tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10603	10698	
==>ranged correctly
depending on their types, that their attributes have reasonable values, and
tha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	751	866	
==>& $value->isa('type'))
        || confess "You must provide a value to reference";    
    ${$self} = $value;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1855	1983	
==>{
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.joi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1855	1983	
==>{
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.joi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	610	708	
==>fy($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	610	708	
==>fy($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5817	5912	
==>pdate %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5817	5912	
==>pdate %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9981	10086	
==>erformed at the moment the user tries to set the input, and input that
fails immediate evaluation will not <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9981	10086	
==>erformed at the moment the user tries to set the input, and input that
fails immediate evaluation will not <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2091	2194	
==>ure => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2091	2194	
==>ure => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6075	6176	
==>ific - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6075	6176	
==>ific - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span.de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3473	3590	
==>{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3690	3807	
==>{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generate <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8704	8880	
==>&intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12181	12357	
==>&intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19976	20070	
==>etta::Engine::Example> is the self-contained and pure-Perl reference
implementation of an Engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19976	20070	
==>etta::Engine::Example> is the self-contained and pure-Perl reference
implementation of an Engin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3446	3576	
==>key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3446	3576	
==>key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, nph => $nph, extra => <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7117	7231	
==>ll the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_T <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7117	7231	
==>ll the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_T <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1561	1665	
==>erldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan L <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1561	1665	
==>erldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan L <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4812	4974	
==>ew;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4812	4974	
==>ew;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24618	24713	
==>.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24618	24713	
==>.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that Locale: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7384	7488	
==>, -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7384	7488	
==>, -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normalize <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24730	24846	
==>) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21151	21267	
==>) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3770	3894	
==>rl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3635	3755	
==>rl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1790	1930	
==>($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp(input => $g);
    $p=$p->Output(classname => 'Test');

        $DEBUG
    and pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3913	4023	
==>ammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4130	4240	
==>ammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7500	7626	
==>\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7512	7638	
==>\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it do <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2895	3020	
==>e @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { sh <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2895	3020	
==>e @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { sh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1309	1446	
==>~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1309	1446	
==>~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5892	6090	
==>ix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2005	2151	
==>? }\n";
        }
    }
    return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dump <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2556	2764	
==>tent unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2556	2764	
==>tent unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3790	3894	
==>entation/comments. If you need something
with more power, move up to Config::Simple, Config::General or o <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3790	3894	
==>entation/comments. If you need something
with more power, move up to Config::Simple, Config::General or o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4185	4301	
==>e index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4185	4301	
==>e index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5722	5852	
==>ch.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5722	5852	
==>ch.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10678	10770	
==>dule, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requir <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10736	10828	
==>dule, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requir <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2993	3091	
==>\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7590	7760	
==>~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7590	7760	
==>~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11107	11241	
==>$Bar->new;
is($iBar->id, 12, '... $iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3743	3848	
==>y $self = $class->SUPER::new;

	$self->{left} = shift;
	$self->{right} = shift;
	
	# FIXME - this is a hac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	72	176	
==>use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping::Pad;
    use base q <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19865	19964	
==>.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19865	19964	
==>.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describin <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3049	3154	
==>sect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3049	3154	
==>sect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_spa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	780	928	
==>> 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 => \$_[2],} }\n" .  
        "\t | 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	755	893	
==>her} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( @{$self->{levels}}, $_-1, 0, <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	670	881	
==>s{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.pu <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	670	881	
==>s{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.pu <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1328	1440	
==>rently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loade <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1328	1440	
==>rently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loade <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7372	7475	
==>iled test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7430	7533	
==>iled test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wa <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	711	822	
==>orks.

#rule name { <?Perl6.name> }
#rule code { <?Perl6.prog> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10447	10539	
==>[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	488	617	
==>s(qw/
    tokenTable 
    termTable 
    operatorTable 
    whitespaceTermTable 
    whitespaceOperatorTable/)
}

sub new {
  my $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	193	285	
==>next type(s) for dispatchable lookup (inheritance)
has Type @.supers;

multi method isa($self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8024	8123	
==>e exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8024	8123	
==>e exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5365	5490	
==>rgument can
be either a simple string or a reference to a URI object.

You will not be able to examine the response code or re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5365	5490	
==>rgument can
be either a simple string or a reference to a URI object.

You will not be able to examine the response code or re <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10200	10322	
==>($input_path, "<:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $outfile = IO:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5096	5185	
==>'_open'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <vars <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	15	110	
==>hangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	15	110	
==>hangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30206	30336	
==>'atom' there
    &RxPOS--;             # this does pos(regex)--
    return;
  });

This handler un-consumes the ')' (via C<&RxPOS-- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20000	20098	
==>To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20000	20098	
==>To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>la <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8431	8551	
==>_code;
      SV* expr_result;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(stderr,"api 14 v <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8693	8835	
==>ew('get_method'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4446	4565	
==>lay the numbers if $type isn't a string operator,
        # and the numbers are stringwise the same.
        # (all stri <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5370	5637	
==>.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5370	5637	
==>.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7238	7330	
==>s into whatever it is combined with (except instantiated variables, which delegate. see below <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	233	344	
==>heme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	269	379	
==>heme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33679	33775	
==>a} >>, which is the node's child.

=head2 Creating an Object

Ok, back to our F<Regexp::AndBranch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7371	7496	
==>::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $_[0]->{bool} ? pri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7122	7245	
==>::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $_[0]->{bool} ? pri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1147	1304	
==>:= (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1147	1304	
==>:= (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$val <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18267	18362	
==>h as a repository file
on disk, it is expected that the Engines will employ appropriate measures <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18267	18362	
==>h as a repository file
on disk, it is expected that the Engines will employ appropriate measures <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	578	697	
==>bdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub cle <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1240	1359	
==>bdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub cle <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16413	16604	
==>tiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&disp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7653	7744	
==>uiv->isa("Blondie::Param") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotation-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1968	2091	
==>and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a refe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3560	3683	
==>and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a refe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15774	15921	
==>d $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $ta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15774	15921	
==>d $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5415	5587	
==>{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5427	5599	
==>{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	308	404	
==>guments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	308	404	
==>guments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9667	9844	
==>op::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9946	10123	
==>op::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4472	4576	
==>set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4472	4576	
==>set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1277	1404	
==>efs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1277	1404	
==>efs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1413	1516	
==>nd the text they said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1413	1516	
==>nd the text they said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Ne <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10416	10511	
==>g iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10416	10511	
==>g iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {. <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	871	1010	
==>urn $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10684	10867	
==>ns          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10684	10867	
==>ns          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2823	2954	
==>variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appea <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2823	2954	
==>variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	419	536	
==>os, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	419	536	
==>os, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub consta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24747	24923	
==>:term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25026	25202	
==>:term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4732	4839	
==>ent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4732	4839	
==>ent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_ha <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2946	3058	
==>:Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2946	3058	
==>:Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1915	2045	
==>($input);
      ## XXX - this is teh b0rk: (($v, $newinput) = $_->($input))
      return($v, $newinput)
        if ?$v;
    }
    r <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6150	6245	
==>| <UnicodeDigit>
    | <UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEscapeSequence>
}
rule <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12546	12648	
==>anges of things that can be counted, such as beats per minute, 
wags per second, or holidays per month. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12546	12648	
==>anges of things that can be counted, such as beats per minute, 
wags per second, or holidays per month. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	610	703	
==>hods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	610	703	
==>hods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2190	2290	
==>urn $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2190	2290	
==>urn $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1067	1278	
==>my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-li <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1067	1278	
==>my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10804	10927	
==>cess it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_ps <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10804	10927	
==>cess it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_ps <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5195	5315	
==>it> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_sequence {
    \\ <[xX]>
      [ <hexdigit><hexdigit><hexdig <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2918	3020	
==>ib/build
    my $path     = $self->meta->package;
    my $builddir = Path::Class::dir( $conf->build_dir <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26986	27142	
==>re( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27265	27421	
==>re( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4276	4382	
==>tatus' => sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FET <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5014	5118	
==>tatus' => sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FET <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12185	12294	
==>Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient to do differe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15662	15771	
==>Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient to do differe <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	164	272	
==>n;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3934	4028	
==>rsection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_diff <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3934	4028	
==>rsection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_diff <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9665	9788	
==>&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9665	9788	
==>&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20413	20529	
==>r testing, development, and study; you should not use it in production.

For production use, there should be a wide v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20413	20529	
==>r testing, development, and study; you should not use it in production.

For production use, there should be a wide v <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1560	1677	
==>}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{$relativePrecedence}{equiv};
    }
  }

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15080	15190	
==>@\n";
  }
}
{
  # (??{ ... })
  package Regexp::Parser::logical;
}
{
  package Regexp::Parser::flags;
  sub emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	950	1082	
==>[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'inf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4861	5039	
==>};
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4861	5039	
==>};
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4019	4148	
==>- E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4031	4160	
==>- E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    l <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1332	1433	
==>($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$ob <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1332	1433	
==>($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$ob <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2742	2837	
==>ntersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2742	2837	
==>ntersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	613	730	
==>self->makemaker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7147	7250	
==>ings 
# as I think in general it is a bad idea

## ----------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7147	7250	
==>ings 
# as I think in general it is a bad idea

## ----------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11082	11179	
==>concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that join <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11082	11179	
==>concatenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that join <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13406	13520	
==>m;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13406	13520	
==>m;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $sourc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9305	9413	
==>my @derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't open $file. $!\n";
    my $sheb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16575	16696	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16854	16975	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	354	482	
==>=> '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTI <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	354	482	
==>=> '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTI <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10999	11101	
==>e?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10999	11101	
==>e?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10355	10467	
==>ified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which yo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10413	10525	
==>ified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which yo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	495	654	
==>atch' \n";
    my $p;
    my $last = length( $match );
    my $lex = sub {
        my $m;
        my $whitespace_before = 0;

        for ( 1 ) {
            $m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2056	2152	
==>press::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4021	4197	
==>{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4021	4197	
==>{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25780	25876	
==>ersions of Rosetta that you modify and distribute must carry prominent
notices stating that you c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25780	25876	
==>ersions of Rosetta that you modify and distribute must carry prominent
notices stating that you c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6806	6917	
==>e "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $conte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6864	6975	
==>e "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $conte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2957	3124	
==>STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3174	3341	
==>STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38655	38755	
==>l return "Hello World!".  All
occurances of any given variable name will be replaced, non-recursively <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38655	38755	
==>l return "Hello World!".  All
occurances of any given variable name will be replaced, non-recursively <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13694	13797	
==>n>
}
rule CallExpression :words {  # see 11.2
      <MemberExpression> <Arguments>
    | <CallExpression <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4986	5101	
==>ystem( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$scri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4202	4313	
==>ystem( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$scri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10101	10230	
==>f;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10101	10230	
==>f;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	444	558	
==>ut the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	444	558	
==>ut the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18965	19062	
==>ion data type that corresponds to the
"relation" of logic and mathematics and philosophy ("a predi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22615	22712	
==>ion data type that corresponds to the "relation" of logic
and mathematics and philosophy ("a predi <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3442	3559	
==>$mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $m <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3442	3559	
==>$mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12561	12676	
==>$fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12561	12676	
==>$fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1747	1872	
==>"$tail - (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1688	1811	
==>"$tail - (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4558	4718	
==>my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5220	5314	
==>erator::pair;
use base qw/type::operator::binary/;

sub symbol { "×" }


package type::variabl <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1066	1182	
==>);
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 't <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1066	1182	
==>);
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 't <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14231	14348	
==>utoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14231	14348	
==>utoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5613	5729	
==>hod tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp" <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5613	5729	
==>hod tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5710	5884	
==>e   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\\n   Scalar    pre     min     safe   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pr <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6068	6191	
==>e ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5576	5699	
==>e ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14593	14769	
==>p;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx];
      FAIL() if !$m;
      TAILCALL(&$c,$noop <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11745	11874	
==>p;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$idx] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	384	478	
==>ESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	384	478	
==>ESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2530	2665	
==>ide++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2530	2665	
==>ide++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16527	16622	
==>lso stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16527	16622	
==>lso stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28555	28694	
==>turn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28834	28973	
==>turn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8198	8330	
==>main}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8198	8330	
==>main}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13028	13137	
==>T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you're running under -T <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8112	8206	
==>alue)>.

C<@array> is considered single dimensional. If it is in fact multi-
dimensional, the v <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10165	10290	
==>times.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10165	10290	
==>times.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, clos <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5714	5851	
==>t => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5714	5851	
==>t => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2658	2788	
==>DERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id}{'ops'}}]; local $Z::oop{$id}{'ops'} = $ops;
        my $cmp = (!define <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1314	1412	
==>rgely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1314	1412	
==>rgely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	12	140	
==>lock_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	12	140	
==>lock_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return bl <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6083	6209	
==>_size;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	639	745	
==>ers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	639	745	
==>ers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!head <==
2	/Users/nnunley/pugs/util/package-osx.pl	5052	5159	
==>ocal/man/man3/Perl6::Bible::S22.3pm
        /usr/local/man/man3/Perl6::Bible::S26.3pm
        /usr/local/man <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6467	6572	
==>ared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6250	6353	
==>ared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5872	6163	
==>nd start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            defaul <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5872	6163	
==>nd start an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            defaul <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24256	24357	
==>ion has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28808	28909	
==>ion has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mapping.

= <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15513	15610	
==>turns Bool;

Because these functions will be mutually recursive, they will easily be
able handle a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15571	15668	
==>turns Bool;

Because these functions will be mutually recursive, they will easily be
able handle a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2992	3100	
==>le_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --v <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2992	3100	
==>le_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2800	2920	
==>le->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2940	3060	
==>le->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	222	335	
==>_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	186	299	
==>_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7000	7098	
==>2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7000	7098	
==>2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) Th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1902	2028	
==>('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1902	2028	
==>('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16133	16237	
==>heck if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16133	16237	
==>heck if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14	112	
==>l
=pod
2005 September 7

This file is a development snapshot of the prolog regex engine I
started o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2378	2511	
==>)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2625	2758	
==>)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4492	4587	
==>ELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4492	4587	
==>ELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	465	575	
==>$self = shift;
    my $node = shift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime;
		if (my $re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9323	9446	
==>">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subs <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9323	9446	
==>">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subs <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1435	1614	
==>2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) re <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1435	1614	
==>2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5468	5578	
==>client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is du <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5468	5578	
==>client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is du <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1622	1731	
==>pen_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1622	1731	
==>pen_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10385	10523	
==>t(quant => 0, 1);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12774	12943	
==>::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13053	13222	
==>::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4122	4244	
==>: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4339	4461	
==>: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tre <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	113	246	
==>:Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $me <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	113	246	
==>:Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2914	3039	
==>n arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2914	3039	
==>n arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7892	8079	
==>mit( $_ ) } ( $n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	23	130	
==>e P6RulesInP5::Match;
use base qw/Class::Accessor/;
use overload
    'bool'  => 'as_bool',
    '""'    => 'a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2091	2196	
==>def';
};

# keys are the codes \n etc map to, values are 2 char strings such as \n
my %backslash_escape;
f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2945	3097	
==>},

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2831	2978	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2713	2816	
==>us versions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2613	2713	
==>us versions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd l <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	198	305	
==>infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair co <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	198	305	
==>infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35656	35754	
==>ed.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic binary relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40206	40304	
==>ed.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic binary relat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9933	10048	
==>$l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

P <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9933	10048	
==>$l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

P <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	51	148	
==>SION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	51	148	
==>SION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	696	814	
==>e> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_le <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3439	3544	
==>tta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3439	3544	
==>tta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9864	9966	
==>= split(/::/,$name); pop(@parts);
	    $class = join("::",@parts) if @parts;
	}

	my $args = "[".join(" <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39614	39702	
==>ct>, C<cross_product>, C<cross_join>.

=item C<product (Relation::Example *@others) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	292	407	
==>ings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performance reasons,
# bec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	303	418	
==>ings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performance reasons,
# bec <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15779	15899	
==>Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19256	19376	
==>Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ),
    );
}

my meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6292	6459	
==>ase = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2] <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6292	6459	
==>ase = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1566	1707	
==>char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1502	1639	
==>char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17076	17179	
==>id is polymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applie <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2170	2343	
==>ol (Relation::AttrName $attr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33529	33634	
==>er in scope; C<sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is used to come up out <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14001	14112	
==>fore => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hour <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14001	14112	
==>fore => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hour <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11341	11436	
==>encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11341	11436	
==>encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (S <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	17	118	
==>use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	17	118	
==>use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7707	7831	
==>ext for the message key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7707	7831	
==>ext for the message key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8334	8555	
==>try;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            so <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8798	9019	
==>try;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            so <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2961	3062	
==>e bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLE <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2961	3062	
==>e bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLE <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	748	850	
==>ns Array is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	748	850	
==>ns Array is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4633	4744	
==>elf->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call method <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4492	4603	
==>elf->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call method <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3137	3239	
==><-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3137	3239	
==><-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	561	816	
==>le Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for Engl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	561	816	
==>le Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for Engl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25849	25947	
==>_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT_ANCH_GPOS)
 #define ROPT_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3989	4098	
==>lder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Test::Skip' => {
    is   => [ $::Object ],
    d <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	266	371	
==>lt => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			App( Sym('&infix:<+>') <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14881	15032	
==>after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14875	15026	
==>after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1557	1685	
==>your platform\n";
        $Config{"concurrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11509	11615	
==>| <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsignedDecimalLiteral>
}
rule StrUnsignedDecimalLitera <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9066	9172	
==>s.

=head2 Getting the OPEN Count

You can access the number capture groups with the nparen() method:

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13927	14052	
==>h =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14206	14331	
==>h =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26163	26259	
==>R PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26163	26259	
==>R PURPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	58	172	
==>D__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	58	172	
==>D__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}'    => <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4543	4646	
==>left->splat($accum),
		right => $self->right->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $se <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4794	4904	
==>::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4852	4962	
==>::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depen <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	788	888	
==>t($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.fin <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	788	888	
==>t($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.fin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2232	2328	
==>me) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2232	2328	
==>me) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	61	161	
==>s @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	61	161	
==>s @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functi <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	612	743	
==>/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	612	743	
==>/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14098	14235	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14377	14514	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5086	5273	
==>&continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5086	5273	
==>&continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5230	5374	
==>name of longmess.
    multi sub longmess (; $e = '') returns Str is primitive is safe {
        my($mess, $i);
        $mess = "$e at $?CALLER::P <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3256	3351	
==>line\n9th line\n10th line\n11th line\n12th line\n" ],
      [ 'file21', $file21, "12th line\n\n\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1292	1421	
==>x accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Nti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1292	1421	
==>x accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Nti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18369	18473	
==>my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14790	14894	
==>my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => " <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2282	2387	
==>libraries
it needs on it. Finally, it will call mkisofs to create a ISO9660 image.

You can stop this prog <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	132	245	
==>aults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $j <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	132	245	
==>aults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $j <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10663	10759	
==>specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10663	10759	
==>specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, clo <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	59	186	
==>and other collections
# like Bags, ordered hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXM <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1585	1700	
==>he file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2247	2362	
==>he file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10203	10347	
==>f $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$t <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4689	4812	
==>ber} > $self->{max} ) {
            warn "Enormous test number seen [test $result{number}]\n";
            warn "Can't detai <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17014	17129	
==>.
    # why twice: once for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3067	3181	
==>uffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3067	3181	
==>uffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3133	3318	
==>nt_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $respon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3133	3318	
==>nt_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $respon <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2715	2877	
==>t these 2 first, the other methods rely on it
            $obj->dir( $dir );
            $obj->config( $config );
            
            ### if the metadir doesn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10385	10496	
==>n "$_[0] ruleop::constant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # prin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1390	1493	
==>$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1390	1493	
==>$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5331	5450	
==>' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5331	5450	
==>' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1693	1802	
==>gins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Plug <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1693	1802	
==>gins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Plug <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2362	2472	
==>the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

us <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2362	2472	
==>the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7489	7601	
==>egex to make sure it
is well-formed -- any warnings or errors will be determined during this
initial pass.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2857	2965	
==>ut any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2857	2965	
==>ut any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initi <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	130	271	
==>g {
    my $config = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	302	426	
==>sts};
    }
    print STDOUT "1..$n\n" unless $noplan;
    $planned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1286	1405	
==>9;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1276	1386	
==>9;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3245	3345	
==>[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3245	3345	
==>[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10678	10794	
==>(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10678	10794	
==>(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use the `+=' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	890	1009	
==>ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	890	1009	
==>ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3603	3807	
==>=> 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3459	3656	
==>=> 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1350	1480	
==>t
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1350	1480	
==>t
    "Iuml"     => 'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1759	1870	
==>lf->{stack};
  return $self->{tree};
}


sub nparen {
  my ($self) = @_;
  $self->parse if $self->{stack};
  ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3692	3801	
==>{  # see 7.4
      <'/*'> <MultiLineCommentChars>? <'*/'>
}
rule MultiLineCommentChars {  # see 7.4
      <Mul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19544	19641	
==>urned as I<exact>
nodes instead of I<anyof_char> nodes when inside character classes.  Fixed.
(Mik <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12935	13031	
==>ject has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12935	13031	
==>ject has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21424	21518	
==>ve relational database engines with minimal effort.

This might seem strange to somebody who ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21424	21518	
==>ve relational database engines with minimal effort.

This might seem strange to somebody who ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10964	11109	
==>spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10964	11109	
==>spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1568	1723	
==>{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1568	1723	
==>{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $st <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3500	3635	
==>@.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3500	3635	
==>@.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5830	5982	
==>ar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   List      p <==
2	/Users/nnunley/pugs/util/func_refact.pl	2897	3008	
==>_cand {
    my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total, $new ne <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20636	20737	
==>vate, so you must use accessor
methods.  Relation does not declare any subroutines or export such.

Th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25188	25289	
==>vate, so you must use accessor
methods.  Relation does not declare any subroutines or export such.

Th <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14332	14500	
==>me of the test (if any)
  number        test number (if any)

  type          'todo' or 'skip' (if any)
  reason        why is it todo or skip? (if any)

It will also ca <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	85	186	
==>ict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_TERM => 1;
use consta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11220	11317	
==>,defined($^N)?"\"$^N\"":"undef","\n";
END




__END__

=pod
Objective:

  Permit swapping in an al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9804	9925	
==>b insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1782	1893	
==>redefine just those
#  rules.  See JavaScript::ECMAScript3::Grammar.
#
#  Bugs:
#   * This grammar has never yet <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4635	4800	
==>rs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item fr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4635	4800	
==>rs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item fr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17462	17570	
==>elf;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17462	17570	
==>elf;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  return $s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9219	9309	
==>t
	add => type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type::opera <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30644	30752	
==>as Koenig, we don't know. What we know for
sure is, that it was inspired by Larry Wall's TEST script that cam <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3179	3277	
==>.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
use b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2867	3001	
==>print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($te <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2867	3001	
==>print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18940	19043	
==>nal_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18940	19043	
==>nal_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4853	5001	
==>x( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4853	5001	
==>x( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $mat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5693	5789	
==>X::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi su <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	57	158	
==>compare the result of all the listed cookbook files
# to some expected set of results
# later it can b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	167	301	
==>ompiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	154	283	
==>ompiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17096	17233	
==>},
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17096	17233	
==>},
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	120	210	
==>mpiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
*{'immediate_statement_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18472	18589	
==>air = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => comb(
			fun => comb (
				fun => ide <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	47	140	
==>/Install/Can.pm"
package Module::Install::Can;
use Module::Install::Base; @ISA = qw(Module::In <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6435	6582	
==>-> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6435	6582	
==>-> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4452	4657	
==>$maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XX <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4916	5121	
==>$maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XX <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	854	957	
==>nstall::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTRO <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	828	929	
==>nstall::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTRO <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1916	2033	
==>st'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delet <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1916	2033	
==>st'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delet <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6454	6550	
==>CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkTyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6454	6550	
==>CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkTyp <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1640	1752	
==>_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$tar <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1640	1752	
==>_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$tar <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	749	846	
==>self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteracti <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	749	846	
==>self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteracti <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	694	798	
==>od BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = in <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	694	798	
==>od BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = in <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	214	314	
==>defined $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17230	17393	
==>IC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17230	17393	
==>IC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerat <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	11	144	
==>plate-0.0.1;
use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0.. <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	11	144	
==>plate-0.0.1;
use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0.. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28104	28210	
==>f: get_attr (symbol new @:MRO)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1143	1242	
==>$match  = Grammar::Compiler->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4825	4929	
==>ue>'));
   return $var.' = '.$lit.";\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_dat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10541	10678	
==>:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10541	10678	
==>:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7880	7980	
==>ss;
}
{
  package Regexp::Parser::anyof_close;
}
{
  package Regexp::Parser::prop;
}
{
  package Rege <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8460	8554	
==>s C<$^X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl than what you're run <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	374	525	
==>ontinue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.back <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	374	525	
==>ontinue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.back <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29888	29979	
==>cks.  (experimentally implemented)

Straps->analyze_file() not taint clean, don't know if it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19460	19543	
==>usernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Ret <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19460	19543	
==>usernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	872	993	
==>_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	872	993	
==>_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	464	583	
==>s bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'value <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23501	23606	
==>face of Relation::Example is entirely object-oriented; you use it by
creating objects from its member clas <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12810	12924	
==>handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12810	12924	
==>handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4994	5144	
==>ck ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifie <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4994	5144	
==>ck ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifie <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3437	3540	
==>setta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3437	3540	
==>setta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	508	624	
==>Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argum <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	508	624	
==>Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13164	13329	
==>s = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13158	13323	
==>s = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quo <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13007	13131	
==>">&raquo;</a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td colspan="11 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	472	568	
==>truct = $node->struct_equiv;
		my $orig = $node->orig;

		if (defined($orig) and $self->{seen}->i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12214	12324	
==>grave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<N <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12214	12324	
==>grave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<N <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4586	4724	
==>ow a fatal error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Add <==
2	/Users/nnunley/pugs/util/munge_haddock.pl	91	196	
==>the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s*$/;
  s/^#(.*)/{- $1 -}/;
  p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2996	3115	
==>e( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3460	3579	
==>e( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3902	4001	
==>s, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3902	4001	
==>s, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4726	4912	
==>for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar::Category;

  # example definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Category->new( 
    name => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14965	15054	
==>es qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14965	15054	
==>es qw(encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	121	236	
==>face;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	121	236	
==>face;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['D <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1183	1278	
==>compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1183	1278	
==>compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2490	2588	
==>self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2490	2588	
==>self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	398	522	
==>rate_p6mm {
    my $self = shift;

    my $schema = $self->schema;

    for my $class ( $schema->classes ) {

        class($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5414	5516	
==>::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5472	5574	
==>::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	393	502	
==>ack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	393	502	
==>ack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47040	47147	
==>w($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47207	47314	
==>w($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4141	4252	
==>nd Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C<undef>.

=it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4325	4436	
==>nd Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C<undef>.

=it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	559	675	
==>AL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	559	675	
==>AL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14415	14521	
==>argets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14415	14521	
==>argets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4405	4606	
==>apture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4272	4466	
==>apture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capt <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	841	963	
==>n to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4319	4441	
==>n to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6535	6643	
==>ls>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6535	6643	
==>ls>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4567	4702	
==>| $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4579	4714	
==>| $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2543	2682	
==>/NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flus <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2543	2682	
==>/NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flus <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12441	12540	
==>the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not be upda <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12441	12540	
==>the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not be upda <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6364	6482	
==>ed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_en <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6364	6482	
==>ed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	104	350	
==>se Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by pac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	104	350	
==>se Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by pac <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13202	13302	
==>ly.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 6 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13202	13302	
==>ly.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 6 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	690	792	
==>];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	690	792	
==>];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7527	7621	
==>reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7527	7621	
==>reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16147	16239	
==>>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren D <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16205	16297	
==>>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5198	5311	
==>r::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5018	5126	
==>r::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1246	1345	
==>eturn $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1246	1345	
==>eturn $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5893	6004	
==>od unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5893	6004	
==>od unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1585	1676	
==>($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns B <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1585	1676	
==>($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns B <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10149	10281	
==>st{max} unexpectedly succeeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg). <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12123	12209	
==>r->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12123	12209	
==>r->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8154	8501	
==>f $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8154	8501	
==>f $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4705	4811	
==>he File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4705	4811	
==>he File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6573	6669	
==>message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6573	6669	
==>message are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	65	183	
==>trict;
use warnings;

use Blondie::Prelude;
use Blondie::ADTs;
use Blondie::Nodes;
use Blondie::TypeSafe;

{
    packag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5438	5549	
==>define';
  *{ ref($self) . "::FLAG_$seq" } = $func;
}


sub del_flag {
  my ($self, @flags) = @_;
  no strict 'r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16655	16781	
==>ub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16934	17060	
==>ub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1874	1999	
==>ent nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1874	1999	
==>ent nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23929	24055	
==>erclasses)))
          ($self: set_attr ((symbol new @:MRO) (list new)))          
          ($self: send (MRO))))
     ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1630	1787	
==>not specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1630	1787	
==>not specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	651	757	
==><CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	651	757	
==><CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9498	9590	
==>$iFoo->add_singleton_method('another_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4444	4569	
==>t_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4444	4569	
==>t_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7505	7620	
==>("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VERSION, VERSION );

No <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	563	659	
==>on. All rights reserved.

This program is free software; you can redistribute it and/or modify it <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	876	1008	
==>) or warn "opendir failed for $src: $!", return;
    my @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21572	21703	
==>at => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed_str = "Failed Tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	971	1100	
==>@_;
    $self->{omit};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merged = 0;
    return if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1869	2056	
==>,
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'), <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3697	3806	
==>}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!("-MExtUtils::Comm <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	927	1048	
==>scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unles <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	190	299	
==>ock}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\end{block}

Neu in Perl 6 ist, da <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25193	25285	
==>ingle tuple.  A zero-attribute Relation::Example with zero tuples or
one tuple respectively h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2126	2298	
==>he users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2126	2298	
==>he users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores th <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2026	2126	
==>tem wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1) <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2026	2126	
==>tem wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1) <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	730	894	
==>:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	730	894	
==>:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfil <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2195	2325	
==>@list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2195	2325	
==>@list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else { <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2233	2397	
==>my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2233	2397	
==>my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  } <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	741	867	
==><$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::floor (  Num  $x            --> Int )
 { Pugs::Internals::floor($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8574	8699	
==>symbol new (%:methods))) fetch ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10310	10442	
==>le {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] negate( sub{ $name(\@_) } )\n";
} <==
2	/Users/nnunley/pugs/util/importgraph.pl	2561	2673	
==>ined $cluster ? (cluster => $cluster) : ()),
    (defined $rank ? (rank => $rank) : ()),
    );
  $nodes++;

  wh <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16662	16765	
==>le is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merg <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16662	16765	
==>le is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merg <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3482	3608	
==>ame> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trait {
          is <identZZ> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3482	3608	
==>ame> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trait {
          is <identZZ> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3296	3402	
==>rameters

The parameters of the request are accessible through the HTTP::Query object that
is part of every <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3296	3402	
==>rameters

The parameters of the request are accessible through the HTTP::Query object that
is part of every <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18323	18441	
==>lass
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14744	14862	
==>lass
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3503	3631	
==>mp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $? <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1973	2097	
==>mp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $? <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35790	35886	
==>elation as its C<$other> argument and combines it with the
invocant relation into a new Relation, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40340	40436	
==>elation as its C<$other> argument and combines it with the
invocant relation into a new Relation, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1204	1331	
==>um //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

ou <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1204	1331	
==>um //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

ou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9331	9444	
==>hift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9524	9637	
==>hift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8316	8420	
==>ference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8316	8420	
==>ference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1552	1657	
==>e a feature added or something change or just have
comments.

=head1 Construction

=head2 C<new>

  my $st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1203	1292	
==>bject associated with this package

=head2 $pkg->install( installation => INSTALLATION_OBJ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34267	34357	
==>es!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34267	34357	
==>es!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5060	5193	
==>How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5060	5193	
==>How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on per <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26831	26937	
==>mNoDash>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but not ...
    | <'\\' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3660	3768	
==>.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3660	3768	
==>.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	219	321	
==>d, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.back <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	219	321	
==>d, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.back <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14417	14536	
==>lf = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1897	2016	
==>lf = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2317	2448	
==>å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "cce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2317	2448	
==>å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "cce <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5737	5852	
==>rence->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->new(), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5232	5340	
==>gs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'Y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5051	5155	
==>gs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'Y <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	115	208	
==>M::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	115	208	
==>M::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21598	21706	
==>ut how to improve the grammar to get
it to work properly.  Also added tests for the new captures() method.

I <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11010	11135	
==>ator::pair->new( $a, $b ),
			$a,
		);
	},
	# (a x b) -> b
	snd => do {
		my $a = type::variable::free->new;
		my $b = type::v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8769	8911	
==>ool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'afte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8769	8911	
==>ool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'afte <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	756	857	
==>s';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages now require synchronised v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13988	14087	
==>ve
  implausible to realloc the regexp struct to create one?

Possible next steps:

  Get per-packag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14048	14148	
==>th n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=item RPe_NESTED (-16)

Nested q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33854	33948	
==>ad2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I<anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6934	7052	
==>, { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6934	7052	
==>, { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	948	1059	
==>";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1085	1196	
==>";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33313	33413	
==>ince a
program or library may wish to override the user text of another library
which it uses, the Te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33313	33413	
==>ince a
program or library may wish to override the user text of another library
which it uses, the Te <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	528	676	
==>d($klass) && $klass->isa('reference')) &&
     ($klass->fetch->isa('opaque')))
        || confess "Class must be an instance of reference";
    (bles <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16239	16333	
==>$.else) = { env($$) }

cond: generic_in($.if) = { generic_in($$) }
cond: generic_in($.then) = { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1444	1550	
==>nfix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1444	1550	
==>nfix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6133	6228	
==>ttrs($Class)->{'@:roles'} = [ $Role ];
$_resolve->($Class);

# Bootstrap -> Role does Role
::opa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5974	6094	
==>$message!', $message );

    # This Perl-6 specific workaround is done since $message param can oft
    # be set from a c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5974	6094	
==>$message!', $message );

    # This Perl-6 specific workaround is done since $message param can oft
    # be set from a c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16576	16689	
==>t_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Wil <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16576	16689	
==>t_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Wil <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	381	494	
==>bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CR <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	381	494	
==>bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CR <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7955	8096	
==>t = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $le <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10492	10623	
==>(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10492	10623	
==>(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14755	14858	
==>g sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14755	14858	
==>g sequence to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8920	9023	
==>s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\0[0]") if $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2077	2201	
==>trings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2077	2201	
==>trings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=q <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3636	3832	
==>nvoke build code here

    ### build an archive file
    my $archive = $path . $conf->archive_ext;
    {   my $data    = $conf->archive_data;
        my $control = $conf->archive_control;
        m <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	539	657	
==>del;
use File::Spec;
use Benchmark;
our @ISA = qw(Test::TAP::Model);
our $SMOKERFILE = ".smoker.yml";

$| = 1;

$ENV{TE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13981	14113	
==>t of the four
        # languages that has a matching template available.
        print $translator.translate_message(
            Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13981	14113	
==>t of the four
        # languages that has a matching template available.
        print $translator.translate_message(
            Lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	681	856	
==>EQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	681	856	
==>EQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3013	3112	
==>for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@ar <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3013	3112	
==>for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@ar <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19586	19686	
==>> statement
are marked to be passed to that compiler. The end of an inner block
effectively acts as a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19586	19686	
==>> statement
are marked to be passed to that compiler. The end of an inner block
effectively acts as a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2129	2274	
==>',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    precede <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	162	278	
==>fess';

use base 'type';

# equality

sub equal_to     { confess 'You must override equal_to in ' . (shift) }
sub not <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7382	7479	
==>@statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1207	1304	
==>@statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16544	16646	
==>ase of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation::Example * <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9298	9398	
==>ed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9298	9398	
==>ed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` a <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1858	1957	
==>for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any ta <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1858	1957	
==>for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any ta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	352	523	
==>e) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = orange, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30963	31066	
==>stinguishes each module from others in
its set. For maximum flexibility in their use, the full name of a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30963	31066	
==>stinguishes each module from others in
its set. For maximum flexibility in their use, the full name of a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1301	1421	
==>name 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1290	1401	
==>name 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	322	419	
==>exp::Parser.

# It looks like the ("A feasibility and performance reality check")
# spike has succ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30838	30940	
==>ule name; it
must be the same for every module in the same set as the current one.  The
Member Name com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30838	30940	
==>ule name; it
must be the same for every module in the same set as the current one.  The
Member Name com <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4494	4638	
==>"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac1 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4494	4638	
==>"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5144	5252	
==>s ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ), <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8621	8729	
==>s ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ), <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	663	795	
==>|| $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	663	795	
==>|| $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9453	9564	
==>export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9453	9564	
==>export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5823	5926	
==>file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5823	5926	
==>file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3379	3537	
==>cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4228	4386	
==>cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4233	4349	
==>w( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4233	4349	
==>w( 
        closure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_com <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2262	2360	
==>(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? undef : shift @{$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7891	8002	
==>nt()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7891	8002	
==>nt()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16958	17111	
==>ge);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13379	13532	
==>ge);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2619	2809	
==>umfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2619	2809	
==>umfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4447	4550	
==>yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4294	4395	
==>yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Comp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19298	19438	
==>xp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    self[0] = exp0

    $I1 = pad["subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps <==
2	/Users/nnunley/pugs/util/package-osx.pl	5156	5262	
==>/man/man3/Perl6::Bible::S27.3pm
        /usr/local/man/man3/Perl6::Bible::S28.3pm
        /usr/local/man/ma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	447	542	
==>CRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	447	542	
==>CRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8659	8769	
==>how) = @_;
    return $S->force_object(anyof_class => lower => $neg, $how);
  });

  # print POSIX class
  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6539	6630	
==>s (?:looser|tighter|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2048	2224	
==>kdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3578	3749	
==>kdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3196	3322	
==>al>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4045	4171	
==>al>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_da <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4087	4195	
==>if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4304	4412	
==>if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5833	5942	
==>( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @it <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5833	5942	
==>( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @it <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	213	383	
==>=> 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->w <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	271	414	
==>=> 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->w <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1796	1908	
==>my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

su <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	907	1017	
==>my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3205	3351	
==>eturn &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop);
      if($tok) {
        $tok = pop(@$X::cap);
        my $va <==
2	/Users/nnunley/pugs/util/fixauthors.pl	173	281	
==>@a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  map {my $x=$_; $x=~tr/A-Za <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8845	8985	
==>e a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8845	8985	
==>e a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15165	15258	
==>vided by third
parties) implement.  This interface is rigorously defined, such that there
shou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15165	15258	
==>vided by third
parties) implement.  This interface is rigorously defined, such that there
shou <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	257	410	
==>my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        re <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	257	410	
==>my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	135	371	
==>urn block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	135	371	
==>urn block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3757	3859	
==>pan0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3757	3859	
==>pan0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3247	3384	
==>)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3440	3577	
==>)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11285	11400	
==>gfile}) {
	$runperl .= qq( "$args{progfile}");
    } else {
	# You probaby didn't want to be sucking in from the ups <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34215	34311	
==>C<semidifference (Relation $other!) returns Relation>

This method is a generic relational operat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38765	38861	
==>C<semidifference (Relation $other!) returns Relation>

This method is a generic relational operat <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	303	424	
==>_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4672	4785	
==>hat uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4512	4621	
==>hat uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	245	373	
==>'type';

sub new {
    my ($class, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confess "You must provid <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21921	22028	
==>bsolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9 <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1110	1214	
==>urn %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1110	1214	
==>urn %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11392	11499	
==>ethod is used to produce
the Perl regex implementation of the new node.

=head2 Named Character Support

Per <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5006	5172	
==>thin the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5006	5172	
==>thin the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2113	2220	
==>ity );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2113	2220	
==>ity );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5808	5957	
==>e   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17551	17645	
==>Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17551	17645	
==>Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2183	2281	
==>f!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2183	2281	
==>f!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	309	411	
==>lessed($env) && $env->isa('closure::env'))
        || confess "env must be a closure::env";
    (ref($b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9508	9620	
==>return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9508	9620	
==>return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26801	26906	
==>nt
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31353	31458	
==>nt
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2593	2699	
==>tem Encrypting with the exact same key twice can compromise both encryptions.

If two different data stream <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2593	2699	
==>tem Encrypting with the exact same key twice can compromise both encryptions.

If two different data stream <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	297	404	
==>ter> that an
upcoming closing node is to be represented in a certain non-normative
way in the source.

=head <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	297	404	
==>ter> that an
upcoming closing node is to be represented in a certain non-normative
way in the source.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9691	9792	
==>ocumentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
di <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9749	9850	
==>ocumentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
di <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6049	6204	
==>t ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6049	6204	
==>t ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $span = @ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1617	1727	
==>?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1617	1727	
==>?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20075	20219	
==>path, $start_dir); 
    $outpath    = rel2abs($outpath, $output_dir);
    $outpath    =~ s/\.t$/\.html/;
    return $outpath;
}


# Takes one has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26864	26992	
==>ags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    return $sel <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	496	630	
==>is is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also hol <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	496	630	
==>is is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also hol <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	786	884	
==>.
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	786	884	
==>.
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10134	10237	
==>ode and its depth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::Parser::* object <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	590	682	
==>lar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    rule <p6ws <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8715	8813	
==>setta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8715	8813	
==>setta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10209	10309	
==>turns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10209	10309	
==>turns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	723	847	
==>>compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	723	847	
==>>compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1675	1798	
==>-> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1675	1798	
==>-> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %eve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5900	5993	
==>gine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5900	5993	
==>gine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model docu <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2353	2449	
==>ve method always uses a starting guess which is half
the target.  This does not facilitate recove <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20396	20494	
==>ly use Example
for testing, development, and study; you should not use it in production.

For produ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20396	20494	
==>ly use Example
for testing, development, and study; you should not use it in production.

For produ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37514	37623	
==>arguments is not significant to the result;
the new Relation is the result of combining all of the source Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42063	42172	
==>arguments is not significant to the result;
the new Relation is the result of combining all of the source Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37477	37572	
==>d C<intersect>.

=item C<intersection (Relation::Example *@others) returns Relation::Example>

T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31388	31489	
==>In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31388	31489	
==>In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7912	8000	
==>th("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7912	8000	
==>th("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3558	3654	
==>et::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3558	3654	
==>et::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2372	2476	
==>e>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is free softw <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2372	2476	
==>e>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is free softw <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20666	20772	
==>ss described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20666	20772	
==>ss described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	802	927	
==>mes;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduc <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1352	1498	
==>Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = split <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1352	1498	
==>Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = split <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	704	818	
==>( struct => $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( struct => $struct );

=cut

sub new_fr <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	821	914	
==>ify (Class::Events::Event $event) {
        (.get_subscriptions($event) ==> .mk_notifications) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3052	3148	
==>ble.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3052	3148	
==>ble.

=back

In addition, the following request headers are set on the HTTP::Headers object,
if t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1614	1750	
==>n );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1614	1750	
==>n );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1607	1743	
==>p',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> lite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1618	1754	
==>p',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> lite <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3711	3814	
==>_child is really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3711	3814	
==>_child is really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5006	5154	
==>return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cT <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5006	5154	
==>return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cT <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2374	2516	
==>xpect;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20352	20467	
==>ue $self:) returns nil {
    my $dispatcher = $self.dispatcher(:descendant);
    for WALKMETH($dispatcher, 'DESTROYA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1792	1922	
==>k, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1792	1922	
==>k, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	767	883	
==>eturn $class->no_match unless $_[0];
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3285	3453	
==>array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'a <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1182	1297	
==>| 80;
$Columns--;             # Some shells have trouble with a full line of text.

=head1 SYNOPSIS

  use Test::Har <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30746	30846	
==>select_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation::Example>

This meth <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	599	744	
==>e-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	599	744	
==>e-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3573	3677	
==>l6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "pugs -CP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15009	15117	
==>lass => space => $neg, \$how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1337	1489	
==>ipt);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @pat <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1337	1489	
==>ipt);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @pat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9194	9282	
==>ub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3019	3107	
==>ub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7066	7226	
==>tch ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7259	7419	
==>tch ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6250	6372	
==>)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it return until the start <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6049	6166	
==>)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it return until the start <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	856	1010	
==>() ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	823	968	
==>() ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38730	38826	
==>et>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Du <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1566	1683	
==>];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1566	1683	
==>];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7065	7175	
==>my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7077	7187	
==>my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5705	5835	
==>r',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->b <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10016	10146	
==>r',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2901	3062	
==>$keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2901	3062	
==>$keep);
                
                return $old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!con <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11904	12012	
==>ir own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11904	12012	
==>ir own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1447	1540	
==>_array_alias>|<external_hash_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  <cons <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2634	2744	
==>t ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2634	2744	
==>t ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $univ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9078	9178	
==>"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9078	9178	
==>"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12966	13093	
==>>pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12966	13093	
==>>pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1902	2013	
==>'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1902	2013	
==>'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', as <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	123	253	
==>od BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_reg <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	123	253	
==>od BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_reg <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1294	1442	
==>$version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17903	18052	
==>_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17903	18052	
==>_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4189	4290	
==>rt or end value of the span.

These methods may return nothing if the span is empty.

- `start_is_open <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4189	4290	
==>rt or end value of the span.

These methods may return nothing if the span is empty.

- `start_is_open <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15353	15456	
==>) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15411	15514	
==>) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi su <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	437	536	
==>, keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	437	536	
==>, keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7371	7480	
==>sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in character class") if $cc;
    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37165	37253	
==>arser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1844	1979	
==>opy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1844	1979	
==>opy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code } <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20641	20759	
==>\tTest returned status $estatus ".
           "(wstat %d, 0x%x)\n",
           $wstatus,$wstatus;
    print "\t\t(VMS s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6372	6488	
==>$sym = shift;

	require charnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12349	12454	
==>T_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12349	12454	
==>T_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1207	1306	
==>ly trivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1207	1306	
==>ly trivial security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and e <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1835	1940	
==>rt()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1835	1940	
==>rt()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1184	1360	
==>day }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1184	1360	
==>day }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4744	4853	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4744	4853	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3685	3770	
==>section( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3685	3770	
==>section( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	600	740	
==>= -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = c <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	166	262	
==>serDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, Str <==
2	/Users/nnunley/pugs/util/addauthors.pl	483	590	
==>int "$c: $comitters{$c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{who <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11200	11298	
==>a removed");

    return 1;
}

=head2 $alt = $inst->remove_registered_alternative( package => $inst <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4074	4222	
==>$key};
        $dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3035	3145	
==>p?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3035	3145	
==>p?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	598	866	
==>plies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	598	866	
==>plies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	559	684	
==>s numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0] <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	559	684	
==>s numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24650	24747	
==>ion's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29202	29299	
==>ion's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method returns <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7714	7805	
==>le will unify it's instantiated value instead of itself
multi unify => ('type::variable::ins <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5945	6039	
==>class');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->supercla <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1183	1274	
==>:Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1183	1274	
==>:Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4677	4984	
==>f;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4677	4984	
==>f;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    c <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12767	12850	
==><td><span title="Details" class="expander" onclick="toggle_visibility('<tmpl_var nam <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2660	2778	
==>porated into the match.  XXX it is not clear
that this is the optimal interface for this combinator.

=cut

method subr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2660	2778	
==>porated into the match.  XXX it is not clear
that this is the optimal interface for this combinator.

=cut

method subr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5497	5616	
==>{
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5497	5616	
==>{
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8167	8299	
==>efined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8179	8311	
==>efined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8655	8762	
==>still be returning something?

maybe just overload bool to false ;)

(I mean, seriously, because that's what <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8367	8472	
==>still be returning something?
maybe just overload bool to false ;)
(I mean, seriously, because that's what <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9925	10034	
==>l;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi method ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9925	10034	
==>l;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

multi method ciphe <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3276	3398	
==>nt ("*** Could not locate (syn/S12.pod). Setting --no-designdocs.\n");
        $no_designdocs = 1;
    }
}

$output_dir ||= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12739	12837	
==>ing and error messages.  Their values are all
negative; positive values are left available for exte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2914	3025	
==>enum, $err, @args);
}


sub next {
  my ($self) = @_;
  croak "no regex defined" unless &RxLEN;

  while (my $tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3460	3568	
==>r::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3460	3568	
==>r::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25129	25233	
==>the r.e., which can involve a lot of backup).  Regmlen is
 * supplied because the test in pregexec() need <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27908	28003	
==>ifferent executable, such as
a threading perl, or a different version.

If you're using the F<pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34609	34734	
==>anslator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34609	34734	
==>anslator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5572	5688	
==>nst'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'protected' <==
2	/Users/nnunley/pugs/util/build_pugs.pl	64	157	
==>se File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use File::Find qw(find);
use File::B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	746	924	
==>:params or closure::signature type";
    (ref($body) eq 'CODE')
        || confess "body must be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	556	722	
==>uptodate) {
            local $@; do $pmc; die $@ if $@; exit 0;
        }
    }

    require Pugs::Compiler::Perl6;

    my $p6 = Pugs::Compiler::Perl6->compile( $sou <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	736	848	
==>emand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	736	848	
==>emand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	28	140	
==>ugs::Utils::Interface;

#options
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pre <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10513	10620	
==>.}, closure_previous => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Create <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10513	10620	
==>.}, closure_previous => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Create <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9107	9209	
==>ng if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed() <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9107	9209	
==>ng if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed() <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	585	702	
==>";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 construct that can <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4725	4846	
==>ist
    ### XXX temp file, then mv
    DumpFile( $Available, @uninstalled );
    
    ### unisntall metadata
    system(qq <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1576	1684	
==>{$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1576	1684	
==>{$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1565	1703	
==>,
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1576	1714	
==>,
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1649	1803	
==>if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list w <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13441	13546	
==>e=todo> todo</span>,<br />
                <span class="tests_skipped"><tmpl_var name=skipped> skipped</sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6074	6201	
==>=> 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6074	6201	
==>=> 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	758	967	
==>}
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when r <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	758	967	
==>}
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32673	32771	
==>gs, using data from external Template modules as a template.
The Translator class as a whole is not <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32673	32771	
==>gs, using data from external Template modules as a template.
The Translator class as a whole is not <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10866	10977	
==>t.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10866	10977	
==>t.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1157	1309	
==>w;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1157	1309	
==>w;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2345	2465	
==>^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2345	2465	
==>^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20462	20586	
==>RM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16883	17007	
==>RM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	993	1084	
==>ilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $description <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	993	1084	
==>ilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $description <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4330	4429	
==>]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2966	3068	
==>ther is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2966	3068	
==>ther is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1943	2070	
==>KEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1943	2070	
==>KEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	665	781	
==>ware() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on th <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	665	781	
==>ware() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on th <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16489	16610	
==>'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_arra <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15545	15658	
==>'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_arra <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2700	2805	
==>lear
that this is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# v <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2700	2805	
==>lear
that this is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1728	1998	
==>:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1728	1998	
==>:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Ros <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9566	9666	
==>$_[1];close F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$c01[1]);
    system <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5532	5620	
==>uiv->isa("Blondie::Param")) {
				push @params, $self->resolve_type($sub->accepts_type) . <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	715	831	
==>!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standar <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	715	831	
==>!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11543	11671	
==>', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11543	11671	
==>', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	935	1072	
==>::Perl::Silly->new; # might or might not have some builtins
                                        # instead of prelude functions

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13980	14091	
==>_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23899	23995	
==>d implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23899	23995	
==>d implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1799	1901	
==>i sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1799	1901	
==>i sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17583	17748	
==>$syn_indexs->{ substr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($regex) {
                    # we're sk <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25676	25783	
==>)
    )
);

=pod

method subclasses (opaque $self:) returns list {
    @:subclasses;
}

(method subclasses ( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3884	3997	
==>b decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @stri <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3884	3997	
==>b decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @stri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23233	23327	
==>esults or associations.  Or alternately, the other
packages require your text data to be stored <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23233	23327	
==>esults or associations.  Or alternately, the other
packages require your text data to be stored <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	381	509	
==>is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	381	509	
==>is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36624	36716	
==>e Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation:: <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	884	1004	
==>}
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) returns Str is ex <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	884	1004	
==>}
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9987	10082	
==>$.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_ind <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9987	10082	
==>$.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_ind <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14698	14847	
==>=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14977	15126	
==>=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4375	4501	
==>d from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4375	4501	
==>d from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1428	1527	
==>es are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use t <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1428	1527	
==>es are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	594	692	
==>xAttrScalarSubType of Any where {
    .does(Package) or (.does(Str) and $^n ne $EMPTY_STR)
};

subt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4047	4197	
==>atches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3923	4068	
==>atches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	660	816	
==>");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$Perl6::Run::On <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	416	551	
==>int i;
#ifdef __BORLANDC__
    char *s = GetCommandLine();
    int j=0;
    av[0] = s;
    if (s[0]=='"') {
    for(;s[++j]!='"';) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4708	4824	
==>rns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quar <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4708	4824	
==>rns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	497	618	
==>ircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	513	634	
==>ircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21070	21172	
==>rated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21070	21172	
==>rated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5252	5347	
==>rns a hash reference representing the configuration data

=item write

The C<write> method the f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5252	5347	
==>rns a hash reference representing the configuration data

=item write

The C<write> method the f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2396	2519	
==>^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2396	2519	
==>^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - s <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1433	1533	
==>EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download th <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1273	1373	
==>EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10534	10646	
==>ulti method product (Relation $other!) returns Relation {

    die "The relation in $other has attributes in comm <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14011	14123	
==>ulti method product (Relation $other!) returns Relation {

    die "The relation in $other has attributes in comm <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21561	21663	
==>tinct from the other tuples.  All Relation
attributes may be individually addressed only by their names <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26113	26215	
==>tinct from the other tuples.  All Relation
attributes may be individually addressed only by their names <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20073	20172	
==>es I think) from the main program binary.  Each user
language is in a separate file, and adding a lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20073	20172	
==>es I think) from the main program binary.  Each user
language is in a separate file, and adding a lo <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	518	635	
==>stall_dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($filename);
}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7936	8090	
==>options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	259	378	
==>';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemak <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	160	279	
==>';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemak <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12175	12274	
==>ommand(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12175	12274	
==>ommand(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13397	13499	
==>er('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alph <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7606	7708	
==>er('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alph <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	173	379	
==>t;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Met <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	238	410	
==>t;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Met <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	994	1110	
==>bers = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	994	1110	
==>bers = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    retu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	353	462	
==>e base qw/Blondie::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce {
    m <==
2	/Users/nnunley/pugs/util/config_h.pl	1197	1306	
==>ne "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) => m ()
ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16252	16373	
==>f->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12673	12794	
==>f->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20583	20682	
==>.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20583	20682	
==>.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1798	1960	
==>recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5063	5177	
==>ie $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if d <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24221	24302	
==>flgs(-,-,-,-,-,-,-,-,-,-))).
match_captures(amat(C0,_G),C0).
match_captures(amat(_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	248	373	
==>inators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	248	373	
==>inators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4649	4753	
==>ms' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PV <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4649	4753	
==>ms' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PV <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3430	3606	
==>ew

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Obj;
        
        my $self = shift;
        $Obj     = $self->SUPER::new();
    
    
        fo <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3709	3815	
==>d infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix: <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1809	1915	
==>d infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	562	689	
==>y $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir - <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	562	689	
==>y $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2247	2342	
==>lash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A way to display scalars containing control chara <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27609	27723	
==>put more frequent progress messages using carriage returns.  Some
consoles may not handle carriage returns properly <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3109	3212	
==>rr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3109	3212	
==>rr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2582	2683	
==>d on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2582	2683	
==>d on by the HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Reque <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22489	22586	
==>as succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22489	22586	
==>as succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7849	7947	
==>thod authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7849	7947	
==>thod authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1185	1300	
==>$pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1185	1300	
==>$pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9162	9276	
==>n interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9162	9276	
==>n interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1891	2012	
==>~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1891	2012	
==>~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1958	2083	
==>er::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1958	2083	
==>er::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ] <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16740	16861	
==>mc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if has_gram <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	697	817	
==>$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	697	817	
==>$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1320	1432	
==>lf->SUPER::enter_scope;	
}

sub leave_scope {
	my $self = shift;

	$self->SUPER::leave_scope;

	pop @{ $self->{pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9841	9969	
==>ther package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2873	3001	
==>ther package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	0	125	
==>use v6;

use Span;

class Set::Infinite::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	0	125	
==>use v6;

use Span;

class Set::Infinite::Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	10	115	
==>d file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	10	115	
==>d file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4449	4568	
==>y ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4449	4568	
==>y ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1710	1815	
==>n if it is non-empty.

Returns true on success, false on failure.

=cut

sub _rmdir {
    my $self = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4577	4753	
==>> $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4438	4604	
==>> $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13342	13470	
==>t      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13342	13470	
==>t      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($even <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	715	819	
==>?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	715	819	
==>?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Sp <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1617	1738	
==>nt(@commits / 500) + 1) * 500,
) or die $graph->error;

my @data = (
  [ 0..@commits_till_day ],              # Day#
  [ 0 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5577	5726	
==>eft_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:<?? !!>'), <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1561	1662	
==>ate the characteristics
#  of particular regex engines.  Its structure follows the spec.  If for
#  in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4536	4680	
==>llowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4536	4680	
==>llowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	661	823	
==>ss->methods->members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we represent them <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3658	3776	
==>for a Relation::Example to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Rela <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12582	12693	
==>eport that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12640	12751	
==>eport that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11042	11177	
==>rot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest and
        - <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7732	7900	
==>get, $I0, $I1
    $I0 = pos
  name:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat " <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2442	2543	
==>ich gets attached to the op tree.  The struct is used
both to return a compiled regexp, and to provide <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	424	537	
==>ting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    req <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	424	537	
==>ting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    req <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2465	2592	
==>eturns method {
    { (&dispatcher.() // return).get_method($label, %opts) || redo }       
}



(closure *WALKMETH ((block &dis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1093	1201	
==>( constant('a'), constant('b') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", w <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1939	2144	
==>pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.back <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1939	2144	
==>pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.back <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2970	3087	
==>nd;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a singl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2970	3087	
==>nd;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a singl <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2349	2443	
==>tian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LI <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2349	2443	
==>tian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35844	35987	
==>licit handler when
coercing this object to a string.

=item C<get_set_member_combinations()>

This method returns an array ref having all combin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35844	35987	
==>licit handler when
coercing this object to a string.

=item C<get_set_member_combinations()>

This method returns an array ref having all combin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1488	1597	
==>r shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed interna <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1488	1597	
==>r shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed interna <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10077	10166	
==>ndef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10812	10901	
==>ndef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20838	20969	
==>_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17259	17390	
==>_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	995	1092	
==>nt-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	995	1092	
==>nt-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my % <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9841	9962	
==>%users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code, Code $cb { %handler{$cod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9841	9962	
==>%users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code, Code $cb { %handler{$cod <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18661	18783	
==>10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => "foo", t => type::operator::nullary->new("s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1549	1658	
==>ic command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to que <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1549	1658	
==>ic command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to que <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8399	8497	
==>en reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your own se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8399	8497	
==>en reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your own se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6976	7133	
==>new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class La <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6976	7133	
==>new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class La <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36686	36791	
==>e Message could be
found using the Translator object's Set and Member properties; if none
could be matched <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36686	36791	
==>e Message could be
found using the Translator object's Set and Member properties; if none
could be matched <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	836	1014	
==>\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	836	1014	
==>\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19218	19323	
==>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19218	19323	
==>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	386	489	
==>tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	386	489	
==>tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5743	5857	
==>ush @exps, $self->reduce($sub);
			}
		}
		$self->leave_scope;
		
		my $last_exp = pop @exps;
	
		$self->add_defini <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2108	2213	
==>_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1217	1319	
==>_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7162	7256	
==>rs share a common API, which permits the intercommunication 

of data about: backtracking, abor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6917	7010	
==>rs share a common API, which permits the intercommunication 
of data about: backtracking, abor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3620	3734	
==>head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3490	3600	
==>head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4055	4201	
==>/)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4055	4201	
==>/)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Re <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3769	3878	
==>uration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) } <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1869	1978	
==>uration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	201	466	
==>by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	201	466	
==>by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	244	357	
==>ical hash to keep track of which files have already been filtered
my $filtered = {};

# A map of digests to code b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	244	357	
==>ical hash to keep track of which files have already been filtered
my $filtered = {};

# A map of digests to code b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	873	1008	
==>($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	873	1008	
==>($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39215	39307	
==>a>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39215	39307	
==>a>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND L <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15139	15233	
==>+ 1, RWx = rewr(N1),
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15539	15635	
==>sal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database managemen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15539	15635	
==>sal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database managemen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3796	3913	
==>ore a symbol type in a param list"
            foreach @values;
    $class->SUPER::new(@values);
}

sub store {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	3	86	
==>ne 1 "inc/Module/Install/Scripts.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/In <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	476	570	
==>d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	476	570	
==>d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4420	4556	
==>ntent_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4420	4556	
==>ntent_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8494	8597	
==>urns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elem <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8494	8597	
==>urns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elem <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	52	149	
==>(sub (*@args) {
	# Argumente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeitun <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2850	2947	
==>tem C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2850	2947	
==>tem C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15357	15468	
==>any of its components are intended for widespread use
then it needs to account for a variance of needs between i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15357	15468	
==>any of its components are intended for widespread use
then it needs to account for a variance of needs between i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28178	28273	
==>) } "all identifiers need to be resolvable";
dies_ok { t($app_plus_ten_to_str) } "can't do a hig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11231	11365	
==>s) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	357	488	
==>(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3173	3276	
==>Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3173	3276	
==>Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is int <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5355	5484	
==>chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5355	5484	
==>chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11950	12061	
==>($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11950	12061	
==>($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29798	29896	
==>se of the right parenthesis ')'.  There cannot
be one without a matching left parenthesis '('; if t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2106	2204	
==>less $self->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The rem <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3804	3901	
==>diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_dif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3804	3901	
==>diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_dif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1433	1569	
==>s_empty == $bit::TRUE;    
        
    push @classes => $supers->to_native;    
        
    foreach my $class (@classes) {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10818	10973	
==>od run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10818	10973	
==>od run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line fr <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1172	1306	
==>vanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () u <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1172	1306	
==>vanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5224	5421	
==>IL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6986	7183	
==>IL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get (" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1219	1377	
==>qual',
        other => '+',
    );
    __PACKAGE__->add_rule( 
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => ' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2046	2156	
==>smome.pl     - automate the smoke process

__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input parameters
my $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5408	5503	
==>:false }
multi sub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::V <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2828	2966	
==>sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1450	1588	
==>sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34776	34884	
==>w(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not perm <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34776	34884	
==>w(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does not perm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23728	23851	
==>list ?@superclasses)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclasses apply 
          ($_ send (add_sub <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	629	739	
==>to other native types
sub to_bit { bit->new(1)           }
sub to_num { num->new((shift) + 0) }

# methods

sub <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4838	4961	
==>1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4838	4961	
==>1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18454	18552	
==>ed.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18454	18552	
==>ed.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	32	132	
==>::Backend::Perl;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

use Blondie::Backend::Per <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	472	583	
==>{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	472	583	
==>{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6927	7128	
==>rray; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6927	7128	
==>rray; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2464	2593	
==>new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2604	2733	
==>new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: gr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2893	3000	
==>ail, analyze the summary report:

  t/base..............ok
  t/nonumbers.........ok
  t/ok................ok <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2130	2242	
==>', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very prim <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2130	2242	
==>', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very prim <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	707	811	
==>ersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	707	811	
==>ersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $on <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6803	6960	
==>rases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6860	7017	
==>rases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	15	106	
==>e::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	15	106	
==>e::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7133	7311	
==>er,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $may <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7597	7775	
==>er,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $may <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3360	3457	
==>em C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3360	3457	
==>em C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14286	14392	
==>returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14344	14450	
==>returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12835	12935	
==>mber of fields removed is returned.

Note that if you pass in multiple field names then it is general <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12835	12935	
==>mber of fields removed is returned.

Note that if you pass in multiple field names then it is general <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5528	5642	
==>ent-Date')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5528	5642	
==>ent-Date')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1955	2063	
==>piler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<Ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1955	2063	
==>piler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<Ad <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1218	1326	
==>turn $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.s <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1218	1326	
==>turn $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	181	335	
==>&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	181	335	
==>&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12629	12768	
==>edin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12629	12768	
==>edin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!ha <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2409	2514	
==>t multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_toward_zero
		!! $x.ro <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3245	3370	
==>t if $self->{saw_bailout};
    }

    $totals{skip_all} = $self->{skip_all} if defined $self->{skip_all};

    my $passed = ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3211	3328	
==>ance_attrs($self)->{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($self, $labe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4114	4223	
==>r. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4298	4407	
==>r. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zer <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16758	16854	
==>contained application in
Rosetta D and compile that into its own executable, in practice one woul <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16758	16854	
==>contained application in
Rosetta D and compile that into its own executable, in practice one woul <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2143	2251	
==>gs, it 
would look for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2143	2251	
==>gs, it 
would look for a tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24361	24456	
==>t is entirely object-oriented; you use it
by creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24361	24456	
==>t is entirely object-oriented; you use it
by creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	106	214	
==>};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub get_file {
    my ($self, %args) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23999	24094	
==>y|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23999	24094	
==>y|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7793	7903	
==>inite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7793	7903	
==>inite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infi <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1868	2031	
==>ent tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1868	2031	
==>ent tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3217	3361	
==>ol = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3410	3554	
==>ol = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1837	1978	
==>hod(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    }
    @rule_terms;
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1837	1978	
==>hod(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        }
    }
    @rule_terms;
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3341	3471	
==>$open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3341	3471	
==>$open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13708	13831	
==>s result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15233	15356	
==>s result.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	740	841	
==>s = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	740	841	
==>s = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37675	37770	
==>ther!) returns Relation::Example>

This method is a generic relational operator that takes a sin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38515	38610	
==>ther!) returns Relation::Example>

This method is a generic relational operator that takes a sin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6883	6989	
==>, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6883	6989	
==>, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=he <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4040	4160	
==>p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = P <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2231	2331	
==>>build_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11240	11339	
==>redirect (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11240	11339	
==>redirect (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40745	40839	
==>ers of
Locale::KeyedText would appreciate being informed any time you create a
modified version <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40745	40839	
==>ers of
Locale::KeyedText would appreciate being informed any time you create a
modified version <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	667	781	
==>b { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule firs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	667	781	
==>b { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule firs <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1665	1794	
==>ule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1665	1794	
==>ule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7114	7227	
==>e all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7114	7227	
==>e all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4807	4906	
==>data($_[0], '$<value>'));
   return $var.' = '.$lit.";\n";
}
sub node::sub_application_term {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8227	8378	
==>$x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8227	8378	
==>$x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18463	18558	
==>you can create an identical Node (with
child Nodes) to the one you first invoked export_as_hash( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18463	18558	
==>you can create an identical Node (with
child Nodes) to the one you first invoked export_as_hash( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33689	33796	
==>te module Member Name and usually corresponds to a
language like English or French.  The order of these item <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33689	33796	
==>te module Member Name and usually corresponds to a
language like English or French.  The order of these item <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2425	2533	
==>d proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2425	2533	
==>d proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1347	1448	
==>), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::Coro <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1347	1448	
==>), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::Coro <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	19	156	
==>l_running = 2;
my $thr1 = async {
    say "Thread 1 started";
    atomically {
        $a > 5 or retry;
        $a = -1000;
        $still <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1796	1896	
==>e, a second order centered difference is provided
as a curried default.

All of the optional paramete <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4503	4602	
==>tring that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4753	4852	
==>tring that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1065	1157	
==>and object-oriented interfaces both follow the same basic steps, 
albeit with different inter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1065	1157	
==>and object-oriented interfaces both follow the same basic steps, 
albeit with different inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2520	2775	
==>{
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2767	3022	
==>{
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9885	9995	
==>();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9885	9995	
==>();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	683	795	
==>{
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a nu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1365	1477	
==>{
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a nu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7889	7988	
==>set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7889	7988	
==>set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	161	271	
==>nt getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	161	271	
==>nt getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22834	22988	
==>stant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23113	23267	
==>stant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   rul <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14440	14533	
==>ties($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14440	14533	
==>ties($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric( $s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7713	7814	
==>his method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7713	7814	
==>his method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	798	982	
==>$event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	798	982	
==>$event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5922	6038	
==>ers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionalit <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5922	6038	
==>ers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionalit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14990	15096	
==>name) ($_ instantite_container)))
             (= $c (WALKCLASS (&dispatcher)))))))
     (opaque new (\$cla <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1258	1359	
==>me as the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title- <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1258	1359	
==>me as the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4138	4249	
==>astPosition = length $target;

  if matches( /\s/, $target, $pos )
  {
    goto term_ws;
  }

  $initchar = subs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	279	380	
==>s>? <@Grammar::Perl6::statements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3271	3375	
==>r-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the HTTP::Query o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3271	3375	
==>r-Agent

=back

=head2 Parameters

The parameters of the request are accessible through the HTTP::Query o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14791	14904	
==>eue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14791	14904	
==>eue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8804	8907	
==>ubtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's dep <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8804	8907	
==>ubtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's dep <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8020	8112	
==>sh @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1845	1937	
==>sh @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1097	1200	
==>termine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile bas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1097	1200	
==>termine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6033	6154	
==>2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6033	6154	
==>2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8059	8192	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8252	8385	
==>ure_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $ru <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	0	105	
==>module lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@ <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	0	105	
==>module lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4454	4579	
==>> 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4454	4579	
==>> 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2963	3082	
==>...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3812	3931	
==>...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8182	8300	
==>Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8182	8300	
==>Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	31	149	
==>e::Backend::Perl::Silly;
use base qw/Blondie::Backend::Perl/;

use strict;
use warnings;

use Term::ReadKey;

my %maske <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	11	116	
==>l/bin/pugs
BEGIN {unshift @*INC, "/home/eric256/auto/pugs/ext/CGI/lib" };
use CGI;
#use perl5:HTML::Templa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	215	339	
==>aker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}


# check if we ca <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	109	221	
==>aker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub M <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5870	6031	
==>, Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5882	6043	
==>, Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4013	4137	
==>>[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4013	4137	
==>>[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3489	3590	
==>nfinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An obj <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3489	3590	
==>nfinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An obj <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13817	13958	
==>n $e->get('$self');                  
            }
        )
    )
);

=pod

method CREATE (opaque $class: str $repr, hash %params) returns o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4828	4939	
==>me' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(M <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4828	4939	
==>me' ,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(M <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2591	2693	
==>$_[1] . $_[0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config{'archive_cont <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6489	6597	
==>} } (values %{ $syn_indexs->{A} }) ] );
    print $fh $template->output();
    close $fh;
}

# Generating dir <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1131	1280	
==>}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17017	17114	
==>ied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17017	17114	
==>ied to the resource.

=item $h.content_length

A decimal number indicating the size in bytes of th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1098	1256	
==>L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1098	1256	
==>L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_na <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	75	196	
==>me];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	80	201	
==>me];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3783	3951	
==>s Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3783	3951	
==>s Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Ha <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21275	21376	
==>st->{skipped},@{$test->{failed}});
            $percent = 100*(scalar @{$test->{failed}})/$test->{max} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6320	6458	
==>Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... fu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3313	3409	
==>ameters of the request are accessible through the HTTP::Query object that
is part of every HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3313	3409	
==>ameters of the request are accessible through the HTTP::Query object that
is part of every HTTP:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1419	1536	
==>} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_config {
	my $self = shift;
	unless ( @_ ) {
		warn "You MUST <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1186	1290	
==>areword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "require $ident;\n";
}
sub node::use_b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1155	1283	
==>_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1155	1283	
==>_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    retu <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2789	2902	
==>se_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	106	200	
==>:CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	106	200	
==>:CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18625	18732	
==>nor have objects in separate
threads try to access the same external resources.>

Rosetta does not use any d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18625	18732	
==>nor have objects in separate
threads try to access the same external resources.>

Rosetta does not use any d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	88	191	
==>::Num;

package bit;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed', 'looks_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9863	9962	
==></h1>

  <p>
    Here's a list of recently submitted <a
    href="http://www.pugscode.org/">Pugs</a> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13006	13128	
==>$_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step
    de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2466	2559	
==>keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2466	2559	
==>keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete( <==
2	/Users/nnunley/pugs/util/package-osx.pl	5625	5713	
==>r/local/man/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4884	4983	
==>object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial posit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4884	4983	
==>object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial posit <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	179	281	
==>head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	179	281	
==>head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10728	10841	
==>( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10728	10841	
==>( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2454	2568	
==>npath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2454	2568	
==>npath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7203	7390	
==>gent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7203	7390	
==>gent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22801	22890	
==>ta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22801	22890	
==>ta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interfa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6190	6294	
==>event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6190	6294	
==>event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handle <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5016	5235	
==>+) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5016	5235	
==>+) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_heade <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12662	12811	
==>path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12662	12811	
==>path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	446	557	
==>$Metactrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$Root <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6627	6738	
==>like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $name, @mess) = @_;
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	263	352	
==>ler::Grammar;

use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1917	2015	
==>Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1917	2015	
==>Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2162	2269	
==>>{NAME}     = $self->module_name || $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1272	1374	
==>>{NAME} = $self->module_name || $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $se <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5708	5892	
==>f 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4208	4392	
==>f 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 { <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5234	5324	
==>decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder fo <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5234	5324	
==>decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder fo <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1230	1344	
==>eturn $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   my $tot = 0;
   for my $s (@scr) { $tot += GolfScore($s) } <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24728	24814	
==>,M,E1).
set_modifiers(E0,[],E0).
set_flag(E0,i,E1)  :- set_flag_i(E0,i,E1), !.
set_flag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4971	5081	
==>LASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4971	5081	
==>LASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23722	23817	
==>dule won't simply
send all commands immediately to the server, but creates a queue, which is the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23722	23817	
==>dule won't simply
send all commands immediately to the server, but creates a queue, which is the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37371	37468	
==>tion::Example contains only tuples that are in
all of the source Relations.  This method has an al <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5298	5392	
==>a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTION <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5298	5392	
==>a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=head1 FUNCTION <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1677	1890	
==>return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1677	1890	
==>return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $! <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14414	14526	
==>$self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1894	2006	
==>$self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10003	10126	
==>') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} };
      $ifthen->{data} = [ [ @{ $ifthen-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	402	517	
==>:Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8904	9040	
==>_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8904	9040	
==>_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integer <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1119	1263	
==>lts.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the cur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1119	1263	
==>lts.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the cur <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6575	6678	
==>= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6575	6678	
==>= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5462	5569	
==>.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5462	5569	
==>.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1171	1272	
==>search path so that later `use` or `require` statements 
will find modules which are not located on Pu <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1171	1272	
==>search path so that later `use` or `require` statements 
will find modules which are not located on Pu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1698	1798	
==>eturn &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1698	1798	
==>eturn &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    ret <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1038	1131	
==>"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	219	364	
==>{ }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	219	364	
==>{ }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7121	7218	
==>ls{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7121	7218	
==>ls{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	57	198	
==>Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	57	198	
==>Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4087	4200	
==>ite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.interse <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4087	4200	
==>ite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.interse <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	724	825	
==>odule/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class suppor <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	724	825	
==>odule/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class suppor <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6932	7089	
==>alue));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6932	7089	
==>alue));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADE <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1737	1844	
==>you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Another good so <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1737	1844	
==>you want to see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Another good so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2761	2892	
==>>',
    );

    # experimental
    __PACKAGE__->add_rule(
        name => 'do',
        assoc => 'non',
        precedence => 'equal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5860	5982	
==>mpiler::Regex->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Gram <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9229	9349	
==>SSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9229	9349	
==>SSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_comp <==
2	/Users/nnunley/pugs/util/importgraph.pl	600	709	
==>ind sub {
  return unless /\.hs$/;

  my ($module_name, $exports, %imports);

  open my $fh, '<', $_
    or di <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5608	5716	
==>epends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5666	5774	
==>epends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	225	380	
==>ode,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	225	380	
==>ode,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2900	3002	
==>ters as a list.  The order in which they were
present in the query string is preserved.

=item C<$q.par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2900	3002	
==>ters as a list.  The order in which they were
present in the query string is preserved.

=item C<$q.par <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17732	17855	
==>("str")),
);

# the polymorphic snd function takes any pair and returns it's second thingy
# (a x b) -> b
# applied to $pair <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11927	12095	
==>unless ref $details->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $fail <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3211	3347	
==>:opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Cl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3930	4041	
==>:opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4123	4306	
==>ules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    }
    if ( $i != $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = lengt <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7054	7177	
==>t.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7054	7177	
==>t.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4325	4461	
==>start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4325	4461	
==>start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	175	270	
==>e Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	175	270	
==>e Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	284	404	
==>3 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partia <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	284	404	
==>3 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partia <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1049	1153	
==>ackage MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1049	1153	
==>ackage MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5348	5467	
==>$.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5348	5467	
==>$.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	859	959	
==>PSIS

    use Blondie::Backend::Perl::Silly; # prompts

    Blondie::Backend::Perl::Silly->new; # mig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24244	24359	
==>\G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20665	20780	
==>\G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->ca <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9751	9879	
==>er to rectify any issues with height
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9751	9879	
==>er to rectify any issues with height
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11816	11934	
==>>{data} };
    push @{ $prev->{vis} }, @{ $self->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package Regexp::Par <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6620	6725	
==>qiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	828	931	
==>ct a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a sh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	828	931	
==>ct a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a sh <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2058	2177	
==>f" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2058	2177	
==>f" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18986	19136	
==>ntOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>=' <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	180	302	
==>okie('sid'); $SID ~~ s:perl5:g/[^A-Z]//;
    if !(-e catfile($Path, $SID)) { $SID=''; }
    $SID=IDGenerate() if $SID eq '' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9362	9464	
==>s Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9362	9464	
==>s Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2411	2530	
==>ame}",
		);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TestPrograms - 

=head1 SYNOPSIS

	use Blondie::Tes <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3799	3899	
==>.

=item B<Wstat>

The wait status of the test.

=item B<Total>

Total number of tests expected to ru <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32397	32574	
==>> 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_itera <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33052	33229	
==>> 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_itera <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1517	1605	
==>uncompress_smoke {
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->param("smok <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4397	4514	
==>tml";
  my %runcores;
  push @{ $runcores{$_->{runcore}}{$category->($_)} }, $_ for @smokes;

  foreach my $runcore (k <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2311	2396	
==>) } }
RULE
*{'assign_hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17641	17735	
==>RC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17641	17735	
==>RC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11658	11806	
==>run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11658	11806	
==>run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15735	15875	
==>r $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15735	15875	
==>r $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      } <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1836	1941	
==>e' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1836	1941	
==>e' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    m <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9683	9841	
==>ti  List::reverse ( *@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scal <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	906	1042	
==>ti  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scal <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4427	4591	
==>l
                my $self = shift;
                (shift @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_splice' => sub { # $idx_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14913	15048	
==>{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	761	864	
==>- emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has additional par <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	761	864	
==>- emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has additional par <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3829	3970	
==>'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3829	3970	
==>'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decode <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7097	7211	
==>rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix($_,$prefix <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16353	16442	
==>EqualityExpression> <'!='> <RelationalExpression>
    | <EqualityExpression> <'==='> <Rela <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8351	8453	
==>tim section.

=item I<start_element ('line_interpolation')>

This event is begun when any block of char <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8351	8453	
==>tim section.

=item I<start_element ('line_interpolation')>

This event is begun when any block of char <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	853	970	
==>matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no stric <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1059	1176	
==>matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no stric <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2469	2608	
==>input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2469	2608	
==>input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2244	2400	
==>or link management
    LINKING: {   
        ### load in the alternatives collection
        my $href = LoadFile( $Altfile );

        ### this package didn' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2432	2542	
==>e) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 50 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2432	2542	
==>e) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 50 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23728	23841	
==>check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REXE <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28931	29028	
==>check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REXE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5857	5985	
==>define );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5857	5985	
==>define );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19280	19438	
==>bbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

Len <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15105	15257	
==>bbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12400	12517	
==>'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12400	12517	
==>'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	208	319	
==>ams = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	281	392	
==>ams = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18672	18770	
==>ject". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18672	18770	
==>ject". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	157	278	
==>st "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfile <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	157	278	
==>st "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfile <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24916	25066	
==>ing
    sub Rx :lvalue          { $_[0]{regex} }

    # the position in the regex string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex st <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4144	4258	
==>sc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4202	4316	
==>sc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1763	1856	
==>@upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1763	1856	
==>@upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14979	15081	
==>h "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14979	15081	
==>h "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as ` <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3112	3211	
==>amed C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3112	3211	
==>amed C<$name>.  If called in List context,
it will return a list of values.  Otherwise, it will retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	547	656	
==>n";
    print "P5: ",$p6->{perl5}, "\n";
    exit;
}

warn "no code";
__END__

#use Test::More 'no_plan';
prin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6102	6216	
==>uest;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6102	6216	
==>uest;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1678	2001	
==>ym('$x'),
                                    Sym('$y'),
                                ),
                                Sym('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and_accum' => Thunk(
        Seq <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7914	8008	
==>thod list (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->doe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16126	16214	
==>gerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16184	16272	
==>gerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16934	17071	
==>($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13355	13492	
==>($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1123	1222	
==>r::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1123	1222	
==>r::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13349	13474	
==>k {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27182	27307	
==>k {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9763	9865	
==>+@a,"\n";

0;
__END__
=cut
$foo = sub{
    print STDERR "hi\n";
    return reverse(1,undef,undef,1,3,2, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13601	13707	
==>o such identifier " . $.v unless defined $t;
	
	$t;
}

# values also pass the set of generics unchanged
val <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8145	8239	
==>irective, followed by any text on the same line.

=item I<start_element ('verbatim')>

This eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8145	8239	
==>irective, followed by any text on the same line.

=item I<start_element ('verbatim')>

This eve <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11077	11173	
==>=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_le <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11077	11173	
==>=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_le <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13516	13633	
==>g \"$initrd_img\"",
    ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Ple <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11971	12091	
==>l($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11971	12091	
==>l($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13387	13496	
==>>add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7596	7705	
==>>add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8698	8843	
==>bclass,
such as a PHP interpreter for a PHP-based strap.

=cut

sub _command {
    my $self = shift;

    return $ENV{HARNESS_PERL}           if d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2072	2213	
==>{ \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my $cat = Pugs::Grammar::Category->new( {
        n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	971	1090	
==>ic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrav <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	971	1090	
==>ic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrav <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2082	2230	
==>nt?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2082	2230	
==>nt?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.de <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	682	797	
==>on-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	682	797	
==>on-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1323	1443	
==>shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1323	1443	
==>shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1786	1896	
==><decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

re <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1786	1896	
==><decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24714	24817	
==>:KeyedText indicates a failure is to throw an
exception; most often this is due to invalid input.  If an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24714	24817	
==>:KeyedText indicates a failure is to throw an
exception; most often this is due to invalid input.  If an <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5711	5827	
==>s = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._sh <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5711	5827	
==>s = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._sh <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	424	550	
==>] \s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1115	1231	
==>d BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1115	1231	
==>d BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # I <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4248	4353	
==>ize and so on; see the cipher module's documentation for 
details.  The C<mode> value indicates the operat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4248	4353	
==>ize and so on; see the cipher module's documentation for 
details.  The C<mode> value indicates the operat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3100	3265	
==>ML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3100	3265	
==>ML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	343	551	
==>"\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	343	551	
==>"\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/t/packages/Test.pm	170	278	
==>);
}

our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see_pkg {
    return My::Package::pk <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16307	16442	
==>{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16307	16442	
==>{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22239	22331	
==>a zero-width
assertion followed by C<?>, which doesn't warrant the warning.

Added "Unrecogni <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	883	1024	
==>for 1..40},
        P6_Token_x1   => sub{ $match = $rpc_token->match($str) for 1..40},
        P6_Regex_x1   => sub{ $match = $rpc_regex->ma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	0	102	
==>=head1 NAME

Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	0	102	
==>=head1 NAME

Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	321	473	
==>_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, t <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	321	473	
==>_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1638	1761	
==>fter"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1638	1761	
==>fter"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	584	679	
==>both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code direc <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	584	679	
==>both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code direc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3084	3185	
==>@!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 ver <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3084	3185	
==>@!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 ver <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19078	19173	
==>cy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19078	19173	
==>cy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10104	10240	
==>*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10104	10240	
==>*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7110	7226	
==>ry;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7110	7226	
==>ry;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_he <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7376	7490	
==>e:       "; my $name =     emit_Variable( %pad<"pSubName"> );
        $ret = emit_Sub( $name, $body, $is_multi, $lv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2953	3065	
==>CORE::unshift(@{$self} => @_); 
    nil->new();
}

sub push : method { 
    my $self = shift;
    (blessed($_) && <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1115	1221	
==>d :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragm <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1115	1221	
==>d :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13159	13279	
==>\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13159	13279	
==>\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4173	4315	
==>{

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7650	7792	
==>{

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1445	1546	
==>ere.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, containin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1445	1546	
==>ere.  See those modules for details.

The C<new> constructor takes only one option, C<:key>, containin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1869	2277	
==>ery Relation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	388	511	
==>maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11647	11745	
==>cepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11647	11745	
==>cepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # g <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1507	1618	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1565	1676	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1073	1243	
==>ick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1073	1243	
==>ick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.au <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4444	4566	
==>attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7921	8043	
==>attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map: <==
2	/Users/nnunley/pugs/util/package-osx.pl	7191	7297	
==>::Pugs.3pm
        /usr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2899	3063	
==>closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3083	3247	
==>closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	147	271	
==>DO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _tim <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	147	271	
==>DO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _tim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1236	1350	
==>mmar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1224	1338	
==>mmar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27640	27810	
==>ant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27919	28089	
==>ant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1822	1920	
==>sa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1822	1920	
==>sa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	519	635	
==>($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	519	635	
==>($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $meth <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	278	403	
==>ire or die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub compile {
    my $self = shift;
    my $prog = shift;

    $sel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4886	5024	
==>ERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_en <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5350	5488	
==>ERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_en <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1403	1548	
==>f ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($esc <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1403	1548	
==>f ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($esc <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8102	8235	
==>ing it.
            %mods.delete("ignorecase");
#           warning "PGE doesn't actually do :ignorecase yet.";
        }
        if % <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6722	6841	
==>m body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6722	6841	
==>m body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17473	17581	
==>compiler
at the right time with the right data.

=item *

Ability to ship precompiled modules without shippin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17473	17581	
==>compiler
at the right time with the right data.

=item *

Ability to ship precompiled modules without shippin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9341	9445	
==>>pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9341	9445	
==>>pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17472	17566	
==>e, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17472	17566	
==>e, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4978	5083	
==>art) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4978	5083	
==>art) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new( <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	822	963	
==>een 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # then we have fa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	822	963	
==>een 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # then we have fa <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3030	3123	
==>' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' dir <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5232	5325	
==>' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' dir <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2025	2142	
==>s export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2025	2142	
==>s export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	672	860	
==>ents<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_lis <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	672	860	
==>ents<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_lis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	939	1060	
==>xpected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	939	1060	
==>xpected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6644	6806	
==>w ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6644	6806	
==>w ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33540	33629	
==>C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38090	38179	
==>C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi-meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31310	31410	
==>object.

=item data

The data or children of this object.

=item dir

The direction of this object (f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19205	19309	
==>utoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19205	19309	
==>utoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3572	3681	
==>st if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3572	3681	
==>st if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18913	18998	
==>pression> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2507	2612	
==>, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2424	2527	
==>, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30014	30106	
==>tr $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34566	34658	
==>tr $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternati <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3047	3172	
==>\\\\n";
	    $col = 0;
	} else {
	    printlatex $chr, $col;
	}
    }
    print "}\n\\end{block}\n" if $inblock;
#    print "} <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5074	5173	
==>ew> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and retu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5074	5173	
==>ew> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4874	4963	
==>eld_type'}{$fname} =~ /^(\w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo::node_named{$1} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24290	24390	
==>ody> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28842	28942	
==>ody> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3645	3761	
==>ead1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3645	3761	
==>ead1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7368	7490	
==>splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7368	7490	
==>splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_di <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2144	2255	
==>mbers)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2144	2255	
==>mbers)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9425	9549	
==>f },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9425	9549	
==>f },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19488	19600	
==>ogged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, y <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19488	19600	
==>ogged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, y <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1260	1358	
==>e {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File: <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1260	1358	
==>e {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2828	2932	
==>err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax be <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2828	2932	
==>err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax be <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7840	7938	
==>/ `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7840	7938	
==>/ `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1900	2006	
==>ne, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1900	2006	
==>ne, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	512	634	
==>ns
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_en <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	512	634	
==>ns
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_en <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30337	30437	
==>ate module ideally comes as part of a set, at least one member
large, with each set member being an a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30337	30437	
==>ate module ideally comes as part of a set, at least one member
large, with each set member being an a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7357	7471	
==>ts.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7357	7471	
==>ts.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @l <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3064	3161	
==>elf->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
EN <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5266	5363	
==>elf->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
EN <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	584	711	
==>ad1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1 <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	584	711	
==>ad1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1551	1661	
==>$.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submetho <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1551	1661	
==>$.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submetho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1165	1315	
==>'-',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    __PACKAGE__->add_rule( 
        name => '~',
        asso <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20521	20630	
==>nt

# caller


# tie tied untie


# -X accept alarm bind binmode chown close closedir connect eof fcntl
# file <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26884	26979	
==>bute if the corresponding argument is
provided (it defaults to empty if the argument is not prov <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26884	26979	
==>bute if the corresponding argument is
provided (it defaults to empty if the argument is not prov <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21182	21279	
==>, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for acc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21182	21279	
==>, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for acc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12756	12857	
==>t2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper sub <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12756	12857	
==>t2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2480	2596	
==>e

    # update: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2398	2511	
==>e
    # update: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3081	3183	
==>ne, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3081	3183	
==>ne, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24139	24246	
==>he
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  I <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28691	28798	
==>he
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  I <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3094	3217	
==>en = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3094	3217	
==>en = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6272	6379	
==>itlen
    goto term_literal_loop
  term_literal_end:
    if litlen < 1 goto term_literal_one
    dec pos
  t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9197	9373	
==>ing 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9197	9373	
==>ing 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3437	3572	
==>eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3437	3572	
==>eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11914	12099	
==>%rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            }) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11914	12099	
==>%rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10145	10265	
==>];
      $rx->{tree} = $ifthen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and @{ $st <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2175	2269	
==>elf->_stages) {
	my $result = $self->{$stage};
	return 1 if defined $result && $result->has_fai <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5236	5328	
==>code("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pu <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5236	5328	
==>code("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19739	19868	
==>tion_basic

This method is used to get or set an authorization header that use the
"Basic Authentication Scheme".  In array contex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19739	19868	
==>tion_basic

This method is used to get or set an authorization header that use the
"Basic Authentication Scheme".  In array contex <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10175	10275	
==>pos, 1
    if $S0 == '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, po <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	363	482	
==>OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1007	1119	
==>$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1065	1177	
==>$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $go <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	591	718	
==>5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	591	718	
==>5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4436	4597	
==>ny                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4436	4597	
==>ny                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1821	1916	
==>ss "Division by zero error";
    return num->new(int($left->to_native / $right->to_num->to_nativ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18430	18525	
==>ation
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18430	18525	
==>ation
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	399	511	
==>And since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Err <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	399	511	
==>And since macros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Err <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	967	1074	
==>d it should not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	967	1074	
==>d it should not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    labe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8446	8555	
==>operator{type} = $$token{name};
  goto (pop @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrSta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2688	2788	
==>:=(<term1>)<?p6ws>?\;
        { return { slurp => $() } }
RULE
*{'assign_open_to_variable'} = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3446	3540	
==><$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3446	3540	
==><$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	498	622	
==>il'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	498	622	
==>il'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1503	1648	
==>)) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARRAY') {
            $vs = "[\n".$o->_indent(join(",\n",map{$_->descri <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1402	1497	
==>::variable::instantiated: layout($$) = { $.instance }
type::operator::nullary: layout($$) = { $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10895	10993	
==>es) of the last of the header fields is returned.
If no such field exists C<undef> will be returned <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10895	10993	
==>es) of the last of the header fields is returned.
If no such field exists C<undef> will be returned <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3728	3877	
==>force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_error), return;

    if (-e $self- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8124	8253	
==>force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1472	1572	
==>) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1472	1572	
==>) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.sta <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	37	136	
==>use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	37	136	
==>use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXP <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	270	380	
==>sible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	270	380	
==>sible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2363	2475	
==>n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2580	2692	
==>n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11375	11535	
==>ar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11654	11814	
==>ar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4049	4169	
==>er::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4049	4169	
==>er::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2278	2372	
==>blech, and Michael Schilli of JavaScript::SpiderMonkey, whose
successful work got me thinking a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20449	20565	
==>f the node.

The init() method has been moved to another file to help keep I<this>
file as abstract as possible.  F<R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27429	27525	
==>NTED_SEEN)
 #define RX_MATCH_TAINTED_on(prog) ((prog)->reganch |= ROPT_TAINTED_SEEN)
 #define RX_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5175	5307	
==>r taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5175	5307	
==>r taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14424	14532	
==>) }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14424	14532	
==>) }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17269	17414	
==>, "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17269	17414	
==>, "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3452	3621	
==>e "ERROR: perl: Version $] is installed, "
                . "but we need version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($ar <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2493	2660	
==>e "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18216	18353	
==>> $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14637	14774	
==>> $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce] <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	320	439	
==>support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DB <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	320	439	
==>support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DB <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3233	3322	
==>turn $self->define_literal(@_) unless $self->can_reduce($node);

	my $kind = $node->struct <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4208	4313	
==>Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4208	4313	
==>Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note tha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3077	3183	
==>1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3077	3183	
==>1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3302	3407	
==>e>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<usern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3302	3407	
==>e>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<usern <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	268	376	
==>ld!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	268	376	
==>ld!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3639	3764	
==>lags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3639	3764	
==>lags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5062	5181	
==>Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5062	5181	
==>Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11856	11974	
==>$S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4499	4617	
==>$S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1983	2136	
==>up {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1983	2136	
==>up {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1785	1880	
==>ed to Multiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object types <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1714	1808	
==>ed to Multiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object types <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1628	1757	
==>5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1628	1757	
==>5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7030	7236	
==>0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7030	7236	
==>0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cook <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9399	9534	
==>her decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# Wh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9399	9534	
==>her decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# Wh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	222	331	
==>DO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there are un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	222	331	
==>DO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there are un <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1070	1198	
==>:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitel <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1070	1198	
==>:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20612	20715	
==>bject attributes are private, so you must use accessor
methods.  Relation does not declare any subroutin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25164	25267	
==>bject attributes are private, so you must use accessor
methods.  Relation does not declare any subroutin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	115	209	
==>untime::Match;

use Pugs::Grammar::Var;
use Pugs::Grammar::Num;
use Pugs::Grammar::Str;

# TODO <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9542	9664	
==>te: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9542	9664	
==>te: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4345	4436	
==>match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4595	4686	
==>match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runti <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1325	1421	
==>>mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(O <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1325	1421	
==>>mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(O <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1700	1807	
==>) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub spac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	741	846	
==>lowest possible scalar value

		# simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into [" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2141	2252	
==>list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.fi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2141	2252	
==>list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3239	3352	
==>ameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3239	3352	
==>ameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3020	3278	
==>t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # variables
            elsif ($t =~ /^\$|\%|\@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46591	46846	
==>f:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	853	949	
==>nformation about the server your CGI is running on. It also 
attempts to provide some useful defa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	853	949	
==>nformation about the server your CGI is running on. It also 
attempts to provide some useful defa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1218	1327	
==>a::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1218	1327	
==>a::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15809	15976	
==>(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16088	16255	
==>(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14741	14855	
==>Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14741	14855	
==>Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5701	5834	
==>=> !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "");
$template->param( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1380	1486	
==>e} = eval 
        $self->{perl5};
    carp "Error in perl 5 evaluation: $@\nSource:\n$self->{perl5}\n" i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1231	1332	
==>") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nboun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2396	2497	
==>") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nboun <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2574	2733	
==>ar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2574	2733	
==>ar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pa <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	478	581	
==>notate($c);
my $t3 = times;
my $res  = $r->emit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10706	10802	
==>$m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\ <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1412	1519	
==>pty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJE <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1412	1519	
==>pty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15300	15400	
==>onse message for interactive systems.

If the program or any of its components are intended for wides <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15300	15400	
==>onse message for interactive systems.

If the program or any of its components are intended for wides <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8876	9004	
==>"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(98 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8876	9004	
==>"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(98 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3311	3410	
==>ns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3311	3410	
==>ns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	266	510	
==>( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	267	511	
==>( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	13	117	
==>:Compiler::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	13	117	
==>:Compiler::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	283	412	
==>~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	319	445	
==>~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4701	4808	
==>ammar::Category - Engine for Perl 6 Rule categories

=head1 SYNOPSIS

  use Pugs::Grammar::Category;

  # ex <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7030	7221	
==>[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7030	7221	
==>[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.cu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34454	34551	
==>n array ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34454	34551	
==>n array ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3323	3445	
==>_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3323	3445	
==>_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3427	3542	
==>urnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_ph <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3427	3542	
==>urnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_ph <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2051	2159	
==>t {
	my $class = shift;
	my $node = shift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2599	2738	
==>r};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2599	2738	
==>r};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2507	2668	
==>(Int $run)
      {
          return '' if $run == $:expect;
          return "Expected $.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similari <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5268	5379	
==>{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. U <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5268	5379	
==>{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. U <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	663	784	
==>agnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostic <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	663	784	
==>agnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostic <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3723	3872	
==>=> $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3723	3872	
==>=> $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2578	2700	
==>rray ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2578	2700	
==>rray ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3816	3913	
==>0 into the parameter stack and reduce the
Thunk.

Inside the Thunk the Seq will reduce its childre <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5983	6107	
==>es { #TODO: When using two properties (A and B) to group the dists
                  #      tree A/A_val/B/B_val.gz and B/B_v <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8553	8672	
==>Stack, "bsr_reduce_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto end_2 if @termStack < 1;
  $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8843	8964	
==>tra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8843	8964	
==>tra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17066	17171	
==>ain
application is written in Perl, it is this "Rosetta" file which provides
the glue between your Perl co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17066	17171	
==>ain
application is written in Perl, it is this "Rosetta" file which provides
the glue between your Perl co <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4711	4833	
==>2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @in <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4711	4833	
==>2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3136	3304	
==>map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3136	3304	
==>map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12220	12327	
==>05-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12220	12327	
==>05-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10412	10512	
==>s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10412	10512	
==>s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$v <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3784	3906	
==>($program);
        print $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#::#/#g <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5401	5502	
==>',(shift()?1:0),@_) if $cls eq 'Bit';
    return new_box('Int',@_) if $cls eq 'Int';
    return new_bo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	716	835	
==>ems);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: * <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	716	835	
==>ems);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: * <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13946	14059	
==>ompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13946	14059	
==>ompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4729	4830	
==>s an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified fu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4729	4830	
==>s an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified fu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1892	1987	
==>my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($module, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1892	1987	
==>my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($module, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15796	15897	
==>ake a request conditional.  If the requested
resource has (or has not) been modified since the time sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15796	15897	
==>ake a request conditional.  If the requested
resource has (or has not) been modified since the time sp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7894	8003	
==>y ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7894	8003	
==>y ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8722	8832	
==>$neg, $how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1799	1910	
==>}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX::String $P) {
    if $O.property_value.exists($P) {
        my $att <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	725	818	
==>ty.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	725	818	
==>ty.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3351	3446	
==>LE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3351	3446	
==>LE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7854	8090	
==>led ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1155	1391	
==>led ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5424	5540	
==>o properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5424	5540	
==>o properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2873	2978	
==>are {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig} ||= do {
		my $struct = $node->s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12914	13052	
==>($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6389	6527	
==>($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	513	611	
==>s.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created when you
decla <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6229	6472	
==>cuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfie <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6693	6936	
==>cuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfie <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3840	3941	
==>|GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $ref ne 'Dispatchable';
    return $ref->ref();
}
sub p6_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18677	18794	
==>lowed to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18677	18794	
==>lowed to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7401	7530	
==>= $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7401	7530	
==>= $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15725	15822	
==>ation of the execution of a regex.  Will
be able to produce HTML output that color-codes the eleme <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11798	11895	
==>s.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11798	11895	
==>s.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode string <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8329	8430	
==>&continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8329	8430	
==>&continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5155	5279	
==>e the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5155	5279	
==>e the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1310	1660	
==>hen 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1310	1660	
==>hen 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            } <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1854	1963	
==>turn m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use T <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1854	1963	
==>turn m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1379	1498	
==>is is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1379	1498	
==>is is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $hea <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5966	6076	
==>at($accum);
}

sub free_vars { $_[0] }

package type::variable::instantiated;
use base qw/type::variable/;

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14837	14934	
==>reate and use relational databases in a very reliable,
portable, and efficient way.  This "Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14837	14934	
==>reate and use relational databases in a very reliable,
portable, and efficient way.  This "Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1850	1987	
==>:Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1850	1987	
==>:Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2102	2199	
==>ically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2102	2199	
==>ically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24257	24357	
==>le languages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24257	24357	
==>le languages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21143	21241	
==>program would use
associated keys internally.

It is strongly suggested (but not required) that eac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21143	21241	
==>program would use
associated keys internally.

It is strongly suggested (but not required) that eac <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2555	2655	
==>m conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is al <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2555	2655	
==>m conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1289	1397	
==>o objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Tem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1233	1337	
==>o objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Tem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13641	13739	
==>rned in the recommended "Good Practice" order.

In scalar context return the number of distinct fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13641	13739	
==>rned in the recommended "Good Practice" order.

In scalar context return the number of distinct fie <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6547	6650	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6103	6211	
==>index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insuffic <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6103	6211	
==>index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insuffic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8486	8588	
==>capturing_group {
    return "$_[1] ruleop::capture( 'capturing_group',\n" .
           emit_rule( $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2564	2679	
==>brule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2748	2863	
==>brule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1082	1197	
==>tring is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 ( <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1082	1197	
==>tring is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4629	4736	
==>ce_attrs($self)->{'@:roles'}}) {
        # make a note of the role for does()
        $roles{::opaque_instan <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4401	4503	
==>: undef; }
sub as_p6_file { $_[0]{'p6_file'}->value }

sub as_pil_tree_yaml {
    my $pil_tree = $_[0]- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5282	5392	
==>self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5282	5392	
==>self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6310	6489	
==>restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9787	9966	
==>restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8238	8371	
==>turn $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8238	8371	
==>turn $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3669	3797	
==>ire $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $mo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3727	3855	
==>ire $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25398	25501	
==>ject has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifie <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25398	25501	
==>ject has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifie <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8875	9034	
==>} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9068	9227	
==>} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8435	8550	
==>ule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] capture( 'capturing_group <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2731	2819	
==>atenation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, Z) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5493	5667	
==>al (Relation::Example $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18829	18923	
==>val_log_file;
sub eval_p5_log_code {
    my($code)=@_;
    if($Perl6::Run::OnPerl5::X1::BB::deb <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7070	7244	
==>e_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7070	7244	
==>e_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11142	11254	
==>_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod sec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11142	11254	
==>_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod sec <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15429	15550	
==>$a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15429	15550	
==>$a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3369	3488	
==>se =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3369	3488	
==>se =>            $universe,
    )
}

method intersection ($self: $set ) {
    my $universe = $self.get_universe;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19601	19725	
==>t to be stored in non-Perl external files, such as a 2-column
plain-text format that will be much easier for a non-programmer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19601	19725	
==>t to be stored in non-Perl external files, such as a 2-column
plain-text format that will be much easier for a non-programmer <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3898	4026	
==>hift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4312	4429	
==>$r->[0], $r->[1], $r->[2]) }
}

sub CheckWc {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "0000000001\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3506	3609	
==>code-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(clos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3690	3793	
==>code-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(clos <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8244	8351	
==>epth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually not a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8244	8351	
==>epth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually not a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1003	1131	
==>e, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1003	1131	
==>e, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2864	2971	
==>lar::Util::blessed($node) and $node->can("type")){
			return Blondie::TypeSafe::Annotation->new(
				type => <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9631	9715	
==>rset_item(char(A)), "-", p5_charset_range_x(B).
p5_charset_range_x(_) --> p5_charset_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15216	15326	
==>R "# Couldn't unlink '$file': $!\n" if -f $file;
    }
}


my $tmpfile = "misctmp000";
1 while -f ++$tmpfile;
E <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4289	4396	
==>on, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs all the given I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19669	19789	
==>for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16090	16210	
==>for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19921	20011	
==>ace and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19921	20011	
==>ace and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10933	11038	
==>&SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11362	11467	
==>&SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8784	8917	
==>:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8784	8917	
==>:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5738	5903	
==>s %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6587	6752	
==>s %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # prin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	24	114	
==>::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Func <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	24	114	
==>::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Func <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6627	6730	
==>arser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6627	6730	
==>arser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or you can <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3151	3302	
==>matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3050	3197	
==>matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38046	38304	
==>'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self <==
2	/Users/nnunley/pugs/util/addauthors.pl	148	245	
==>omitter, $date) = split /[|:]/, $_;
  $comitter=trim($comitter);
  $comitters{$comitter}++;
}

#fo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9839	9949	
==>ms }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.el <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9839	9949	
==>ms }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.el <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	36	134	
==>l6::Core::Closure;

package method;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Uti <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20472	20564	
==>s %{$dir_index->{_dirs}}) {
	my $val = $dir_index->{_dirs}->{$subdir};
	while( ( exists $val- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	498	609	
==>ADFLG, $plus ? "" : "-", "c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1554	1662	
==>tement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1554	1662	
==>tement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{t <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	79	192	
==>:Install::Can;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';

use strict;
use Co <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13227	13323	
==>y}> in all it's forms. Below are some
example translations. This list is I<not> exhaustive.

 del <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12666	12801	
==>new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12666	12801	
==>new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	361	486	
==>pher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    method _tail() { return ma <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	361	486	
==>pher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    method _tail() { return ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	814	929	
==>e
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Rat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	814	929	
==>e
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Rat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4151	4303	
==>eader
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4151	4303	
==>eader
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-a <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	988	1080	
==>my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	988	1080	
==>my $pilresult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $descrip <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16192	16292	
==>union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16192	16292	
==>union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single
span. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2602	2835	
==>n
                    # x<1    --- starts angle-quote
                    unless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11362	11491	
==>']) \$ \( \) /$1 \$_[0]->() /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3535	3638	
==>ut any parameters, this returns an object representing the
current /local/ date.

- `new( epoch => Int|R <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3535	3638	
==>ut any parameters, this returns an object representing the
current /local/ date.

- `new( epoch => Int|R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12664	12815	
==>th = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12664	12815	
==>th = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should thi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8497	8601	
==>hc_pkg not cached, and called without path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ghc_pk <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5522	5609	
==>>struct_equiv->isa("Blondie::Param")) {
				push @params, $self->resolve_type($sub->acce <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	816	913	
==>ub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($con <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	874	971	
==>ub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5264	5369	
==>{ # FIXME if (has_params)
		my $symbol = $self->declare($node);

		my $return_type = $node->type->[-1]->ty <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1777	1877	
==>ds($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_met <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1848	1971	
==>{
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_admin;

    # merge both kinds of requi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	128	226	
==>aders::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class varia <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	128	226	
==>aders::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class varia <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39982	40081	
==>r option) any later version.  You
should have received a copy of the LGPL as part of the Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39982	40081	
==>r option) any later version.  You
should have received a copy of the LGPL as part of the Locale::Key <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	71	171	
==>6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict;
use warnings;

use Carp 'confess';
use <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2677	2769	
==>hat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

= <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2677	2769	
==>hat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18065	18174	
==>ng user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18065	18174	
==>ng user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <k <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17255	17355	
==>n($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13676	13776	
==>n($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3789	3921	
==>o either! Let your caller decide!
    # instead of "die             'file not found';"
    #         or "return ENOENT; # file not fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	713	1129	
==>or object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Vali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	713	1129	
==>or object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Vali <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19731	19829	
==>uthorization_basic

This method is used to get or set an authorization header that use the
"Basic A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19731	19829	
==>uthorization_basic

This method is used to get or set an authorization header that use the
"Basic A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18406	18499	
==>rce corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18406	18499	
==>rce corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8104	8198	
==>ts, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1929	2023	
==>ts, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	406	509	
==>add or subtract values from all letters), and an 
unnamed similar cipher where all bytes are changed, no <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	406	509	
==>add or subtract values from all letters), and an 
unnamed similar cipher where all bytes are changed, no <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	153	264	
==>= object but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	153	264	
==>= object but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18460	18694	
==>nless /(.*)($regex)(.*)/;
                      
                      $h->splice_content($i, 1, $1, $2, $backlink, $3);
                      $found = 1;
                      last;
                    }

                    if (!$fou <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11179	11273	
==>turns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11179	11273	
==>turns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns T <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4730	4874	
==>$code0 = "my \$f0 = \$fs[0]; ";
    for my $i (reverse(1..$#a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $code1 .= "sub{\@_=";
      $cod <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1452	1555	
==>It looks for an x such that f(x) is y.

You may optionally supply:

    epsilon - tolerance (how accurat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14182	14296	
==>ared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.si <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17659	17773	
==>ared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.si <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	774	948	
==>around for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	774	948	
==>around for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4433	4531	
==>equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4433	4531	
==>equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C <==
2	/Users/nnunley/pugs/misc/S29_round.pl	482	608	
==>hen ($_ <  .5) && ($x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1071	1169	
==>ction kludge would be
# unsustainable, and unsuitable for anything but throwaway code.
# However, t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	858	957	
==>e combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more.

=c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	858	957	
==>e combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching more.

=c <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2598	2722	
==>,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2598	2722	
==>,3;

      take encode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1507	1759	
==>::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2015	2141	
==>t yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:pe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2015	2141	
==>t yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18560	18683	
==>ag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2502	2602	
==>&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errmsg} = sprintf $err, @args;
  croak <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1501	1597	
==>erl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, thi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1501	1597	
==>erl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, thi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4604	4721	
==>ter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4604	4721	
==>ter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3687	3803	
==>,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3687	3803	
==>,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1970	2080	
==>);
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1970	2080	
==>);
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	551	656	
==>{
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	551	656	
==>{
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24292	24394	
==>y> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28844	28946	
==>y> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has these met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18100	18219	
==>S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14521	14640	
==>S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30412	30514	
==>each set member being an an exclusive alternative for the rest
of the set. There is a separate template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30412	30514	
==>each set member being an an exclusive alternative for the rest
of the set. There is a separate template <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36756	36852	
==>properties; if none
could be matched, this method returns undef.  This method could be
considered <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36756	36852	
==>properties; if none
could be matched, this method returns undef.  This method could be
considered <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2585	2695	
==>turn ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2585	2695	
==>turn ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $univ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2585	2718	
==>e
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2585	2718	
==>e
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	13	136	
==>:Grammar::Category;
use warnings;
use strict;

# TODO 
#  ok - is tighter/looser/equiv 
#  infix/prefix/circumfix/postcircum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	252	366	
==>er   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_att <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	252	366	
==>er   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_att <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18221	18326	
==>0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVM <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18221	18326	
==>0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVM <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1180	1274	
==>nt::Normalizer::Null { }

    role Getopt::Argument::Coercer::Null { }
}

module Getopt::Emitte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	280	431	
==>!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	280	431	
==>!params{$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($que <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3730	3860	
==>\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3718	3848	
==>\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$ru <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2326	2426	
==>cing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2326	2426	
==>cing messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8158	8314	
==>rray[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8158	8314	
==>rray[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3206	3342	
==>art = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3206	3342	
==>art = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1195	1299	
==>le based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1195	1299	
==>le based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4617	4741	
==>iler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new em <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4459	4578	
==>iler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new em <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25674	25775	
==>y a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25674	25775	
==>y a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a u <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1399	1495	
==>ort `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1399	1495	
==>ort `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5115	5236	
==>e to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5115	5236	
==>e to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9543	9641	
==>es not declare any subroutines or export such.

The usual way that Rosetta::Model indicates a failu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9543	9641	
==>es not declare any subroutines or export such.

The usual way that Rosetta::Model indicates a failu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7095	7215	
==><object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7095	7215	
==><object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4394	4510	
==>l('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($se <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13538	13634	
==>before an implementation
could be started).  This is most useful when writing modules and you
fin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13596	13692	
==>before an implementation
could be started).  This is most useful when writing modules and you
fin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	237	352	
==>r';

for my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & error checking
    my $struct  = Load <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13050	13145	
==>the value(s) that were associated to those keys.

=over

=item Unary Form

Implementations shoul <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33704	33797	
==>h).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation::Example>

This m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25625	25723	
==>e invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> says whi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30177	30275	
==>e invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> says whi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1069	1179	
==>Text->new("foo");

(also, the latter form is slightly more efficient, though this is
marginal in string COW env <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1069	1179	
==>Text->new("foo");

(also, the latter form is slightly more efficient, though this is
marginal in string COW env <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	836	936	
==>::Pretty; # in case the result is an AST
    
    print Blondie::Emitter::Pretty->new->string($result <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3386	3483	
==>the runtime provides builtins for with the replacement nodes

=item *

Ensuring that there is no c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7581	7806	
==>eys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8045	8270	
==>eys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	329	437	
==>_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_IN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1187	1295	
==>_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_IN <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10345	10463	
==>"$test{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                print "skip <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6090	6201	
==>= Pugs::Grammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5880	5988	
==>= Pugs::Grammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1232	1349	
==>routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1232	1349	
==>routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	746	853	
==>y_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::Homer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	746	853	
==>y_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::Homer <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6438	6585	
==>$val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6438	6585	
==>$val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1595	1703	
==>limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1595	1703	
==>limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10872	10974	
==>d = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'func <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10872	10974	
==>d = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'func <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5879	6020	
==>$.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5879	6020	
==>$.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4942	5044	
==>ght (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute i <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4942	5044	
==>ght (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5970	6145	
==>lues.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9447	9622	
==>lues.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27951	28043	
==>riable value (a string) associated with
the variable name specified in the positional paramet <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27951	28043	
==>riable value (a string) associated with
the variable name specified in the positional paramet <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	18	122	
==>re::Type::Comparable;

use Perl6::Core::Type::Equivalence;

package type::comparable;

use strict;
use wa <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	544	642	
==>er order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl::Cxt is CxtVo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16525	16671	
==>ant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { blo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16804	16950	
==>ant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { blo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10560	10658	
==>ust be an ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY";
	_quote_args(\$runperl, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13033	13188	
==>. 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13027	13182	
==>. 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12168	12271	
==>he parameter value if the parameter is a member of the recurrence.
Otherwise, returns the previous eleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12168	12271	
==>he parameter value if the parameter is a member of the recurrence.
Otherwise, returns the previous eleme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10321	10431	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10600	10710	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_stat <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6355	6483	
==>/ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5863	5991	
==>/ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	23	140	
==>:Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	23	140	
==>:Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27491	27610	
==>or your regex, and creates the method
C<FLAG_u>.  This doesn't mean you can use them on C<qr//>, but rather
that you can <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	256	351	
==>rnings 'redefine';

use FindBin '$Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26386	26485	
==>ut, any
variable values which are references will be passed by reference, so you
may store reference <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26386	26485	
==>ut, any
variable values which are references will be passed by reference, so you
may store reference <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18595	18691	
==>ach member in a set of key-codes,
which are hard-coded into your application or package, with one <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18595	18691	
==>ach member in a set of key-codes,
which are hard-coded into your application or package, with one <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25679	25777	
==>achine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25679	25777	
==>achine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a use <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9282	9398	
==>multi  List::reduce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2187	2305	
==>al($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2187	2305	
==>al($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $ot <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1244	1346	
==>istered_alternatives );
}

=head2 $file = $inst->available_file

=cut

sub available_file {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15957	16054	
==>Not Modified> response instead of
the document itself.

=item $h.last_modified

This header indica <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15957	16054	
==>Not Modified> response instead of
the document itself.

=item $h.last_modified

This header indica <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	409	517	
==>d from_dates ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	409	517	
==>d from_dates ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	834	934	
==>C::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	834	934	
==>C::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35851	35951	
==>l (C<)> when not in C<(...>)

Omitted

=head2 ref

Family: ref

Types: ref1, ref2 .. refN (C<\1>, C<\ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	124	228	
==>der           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPla <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	124	228	
==>der           $singleton;
has Test::Builder::Output   $.output handles 'diag';
has Test::Builder::TestPla <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4437	4563	
==>iteral;
  {
  }
  else
  {
    if (matches(/\d/, $target, $pos))
    {
      goto err_backslash_digit;
    }
    $initchar = su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33473	33569	
==></m> on), eos (C<\z>)

=head2 reg_any

Family: reg_any

Types: reg_any (C<.>), sany (C<.> with C< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	946	1053	
==>ad = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	946	1053	
==>ad = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3207	3335	
==>$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $fla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3347	3475	
==>$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $fla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	872	998	
==>ername = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	872	998	
==>ername = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	270	453	
==>ef
       p6_bool
       p6_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31855	31950	
==>t been implemented.>

This method is a generic relational operator that returns a new Relation:: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32902	32997	
==>t been implemented.>

This method is a generic relational operator that returns a new Relation:: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6060	6151	
==>ht now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. Howev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6060	6151	
==>ht now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. Howev <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	176	286	
==>2 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hell <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	176	286	
==>2 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hell <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4247	4380	
==>f $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4117	4247	
==>f $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	970	1072	
==>ributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	970	1072	
==>ributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2391	2501	
==>ugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(< <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2391	2501	
==>ugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17239	17352	
==>e::KeyedText, that is a terse way of saying that it subscribes to the
localization methodology that is described h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17239	17352	
==>e::KeyedText, that is a terse way of saying that it subscribes to the
localization methodology that is described h <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13748	13856	
==>bject if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $sp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13748	13856	
==>bject if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $sp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3586	3692	
==>=> $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{di <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2627	2732	
==>=> $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{di <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11184	11284	
==>my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11184	11284	
==>my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4164	4307	
==>/;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # traili <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4164	4307	
==>/;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # traili <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12970	13085	
==>ent) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12970	13085	
==>ent) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5059	5206	
==>urs according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5059	5206	
==>urs according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1823	1930	
==>pwd;
    }
    print "*** Finished building dependencies.\n\n";

    $run_setup = sub { system($setup, @_) } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	507	682	
==>TCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	507	682	
==>TCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8158	8261	
==>ion.
multi Array::reverse (   @values --> Lazy|Str) {
    List::reverse *@values;
}


# derived from PIL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	778	898	
==>: = ();  # clear stash
    
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_li <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3356	3457	
==>join "-",
      (map { $_[0]->{$_} } qw<pugs_version osname runcore>),
      $_[0]->{pugs_revision} == <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12821	12966	
==>> $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12821	12966	
==>> $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_( <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	495	609	
==>s+(.*)/;
        $default = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstra <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2756	2857	
==>$self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2756	2857	
==>$self.members, $other.members);
}
method intersection($self: Set $other) returns Set {
    set($self.m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15809	15940	
==>rget $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INV <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15809	15940	
==>rget $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INV <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11268	11370	
==>t in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence and fro <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11268	11370	
==>t in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence and fro <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4766	4887	
==>$set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4766	4887	
==>$set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1769	1922	
==>1..2000},
});

}

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### ab <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8877	8992	
==>(0);
    }
    fprintf(stderr,"hook_regcompp done.\n");
    return r;
  }
}

void regexp_hook_on() {
  if(previous_c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3727	3905	
==>efined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3727	3905	
==>efined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4154	4309	
==>ey.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..25 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4154	4309	
==>ey.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..25 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15198	15294	
==>.  This interface is rigorously defined, such that there
should be no ambiguity when trying to in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15198	15294	
==>.  This interface is rigorously defined, such that there
should be no ambiguity when trying to in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28830	28930	
==>lump, digit, exact, flags, group, groupp, minmod, prop, open, quant, ref,
reg_any.

=item my $f = $ob <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1008	1105	
==>ng to reduce a stub: " . Blondie::Emitter::Pretty->new->string($node);
}

sub reduce_param {
    m <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	458	575	
==>key;
		print "$key -> $func\n" if $Conf{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4958	5057	
==>{defined_nodes}->insert($node);
}

sub node_is_defined {
	my $self = shift;
	my $node = shift;
	$sel <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	623	762	
==>q 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inject($.p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	623	762	
==>q 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inject($.p <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	74	216	
==>ng_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wild <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	74	216	
==>ng_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wild <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27035	27141	
==>Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27035	27141	
==>Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	143	265	
==>th;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 3 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	143	265	
==>th;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 3 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23169	23384	
==>e')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

meth <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4624	4732	
==>th(1));

 multi Array::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Array::push (@array is rw ; *@va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2575	2747	
==>concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2490	2657	
==>concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8800	8903	
==>hod difference (Relation $other!) returns Relation {

    die "The heading of the relation in $other doe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12277	12380	
==>hod difference (Relation $other!) returns Relation {

    die "The heading of the relation in $other doe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1168	1273	
==>deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1226	1331	
==>deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2123	2227	
==>vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2123	2227	
==>vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	157	285	
==>b rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	157	285	
==>b rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14428	14526	
==>$self->available_file, @avail ) };
    $@ and error( "Could not write available file: $@" ), return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23770	23883	
==>ce Identifier Character Classes

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharacters {  # see 15. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1750	1843	
==>lue>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1750	1843	
==>lue>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12355	12456	
==>NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12355	12456	
==>NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10603	10706	
==>b {...} )`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SE <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10603	10706	
==>b {...} )`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SE <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1108	1277	
==>returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1108	1277	
==>returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	586	711	
==>ges used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Valida <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	586	711	
==>ges used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Valida <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	470	580	
==>n $x->ast(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	75	225	
==>rule;
@ISA=qw(MatchX Match::Subrule);
package MatchX;
@ISA=qw(Match);
use overload
    'bool' => 'as_bool',
    '""'   => 'as_string',
    '@{}'  => 'a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5931	6028	
==>mmar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::Ternar <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5477	5670	
==>erl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5477	5670	
==>erl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10037	10145	
==>[] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10031	10139	
==>[] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1893	1988	
==>e => $type,
		struct_equiv => Blondie::Val->new(
			Blondie::TypeSafe::Annotation->new(
				type <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	416	512	
==>de_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	416	512	
==>de_filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15914	16041	
==>exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10770	10897	
==>exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod => <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24108	24214	
==>],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H0,D,H1) ; H1 = H0), !, ground_list(T0,D,T1).

initialE(am <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24628	24728	
==>e::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25600	25700	
==>e::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2833	2965	
==>ETH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2833	2965	
==>ETH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14019	14144	
==>im {
    my $self = shift;
    my $prim = shift;

    # the body is a code ref
    $self->enter_scope;
    my @params = $self- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17494	17599	
==>pair is b -> (int x b)
my $half_pair = comb(
	fun => ide("pair"),
	param => val(10),
);

# a fully constru <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	333	573	
==>buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	333	573	
==>buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	21	116	
==>e::Install::Deprecated;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEG <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	928	1035	
==>> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swea <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	928	1035	
==>> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swea <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20346	20452	
==>,B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
rm(bo <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	254	344	
==>w($self.length - $duration.length);
}

#method infix:<->($self: Duration $duration) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4961	5144	
==>d $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4961	5144	
==>d $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4020	4185	
==>'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4020	4185	
==>'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XX <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5776	5911	
==>[0];
        dbg "# Scope:      $scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10348	10472	
==>ndef, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10348	10472	
==>ndef, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	591	704	
==>source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	753	866	
==>source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	280	425	
==>e?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counte <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	280	425	
==>e?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counte <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9874	9972	
==>set of common test utility functions, and is
an implementation of the TAP protocol.

This module, l <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9932	10030	
==>set of common test utility functions, and is
an implementation of the TAP protocol.

This module, l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35532	35626	
==>y
ref.

=item C<as_debug_string()>

This method returns a stringified version of this object wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35532	35626	
==>y
ref.

=item C<as_debug_string()>

This method returns a stringified version of this object wh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4391	4548	
==>$class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4391	4548	
==>$class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	735	838	
==>e, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	735	838	
==>e, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	761	878	
==>m;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	761	878	
==>m;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

me <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14577	14675	
==>ring, $unsafe_chars )

This routine works just like encode_entities, except that the replacement
en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14577	14675	
==>ring, $unsafe_chars )

This routine works just like encode_entities, except that the replacement
en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2797	2914	
==>lue;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:80 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2797	2914	
==>lue;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:80 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	784	897	
==>g) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $irc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	784	897	
==>g) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $irc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3466	3619	
==>_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3466	3619	
==>_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($reque <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2262	2410	
==>1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2262	2410	
==>1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15054	15158	
==>es during a program's operation, the program (or a package it uses)
will need to display a message to the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15054	15158	
==>es during a program's operation, the program (or a package it uses)
will need to display a message to the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3857	4044	
==>[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2458	2554	
==>$O.property_value.exists($P);
    my $attr = $O.property_attributes{$P};
    return JSX::false if <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	896	996	
==>d1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	896	996	
==>d1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2257	2426	
==>t> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 200 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2257	2426	
==>t> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 200 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16896	16998	
==>ns a single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `strin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16896	16998	
==>ns a single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `strin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4602	4720	
==>d;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec pl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4602	4720	
==>d;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec pl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	378	485	
==>METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	378	485	
==>METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): arg <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6839	6940	
==>identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6839	6940	
==>identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>.  Returns
the HTTP <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17190	17289	
==>imestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers give <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17190	17289	
==>imestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers give <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4328	4433	
==>Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4328	4433	
==>Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) retu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7513	7622	
==>_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7513	7622	
==>_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!childre <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	964	1061	
==>head1 DESCRIPTION

Useful as a first pass in the code emission process, in order to compile all
re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9547	9663	
==>bject )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a Set::Infinite, a Sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9547	9663	
==>bject )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a Set::Infinite, a Sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3374	3495	
==>0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3374	3495	
==>0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2950	3075	
==>t mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2950	3075	
==>t mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6334	6563	
==>shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6334	6563	
==>shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6564	6701	
==>);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6564	6701	
==>);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @ <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	696	800	
==>l_encode(%Session{$_}));
    }
    return @coded.join('&');
}
 
sub SessionDecode($data) {
    for(split( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5127	5225	
==>he C<read> method reads a config file, and returns a boolean value
of success or failure

=item dat <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5127	5225	
==>he C<read> method reads a config file, and returns a boolean value
of success or failure

=item dat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2118	2293	
==>!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2118	2293	
==>!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5607	5714	
==>r/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual mod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5414	5517	
==>r/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual mod <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6770	6880	
==>ts

For each POD element, an event is fired, the first argument to all these events is
the C<$event_type> (head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6770	6880	
==>ts

For each POD element, an event is fired, the first argument to all these events is
the C<$event_type> (head <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2665	2762	
==>transmit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2665	2762	
==>transmit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15715	15825	
==>f_modified_since

=item $h.if_unmodified_since

These header fields are used to make a request conditional.  If <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15715	15825	
==>f_modified_since

=item $h.if_unmodified_since

These header fields are used to make a request conditional.  If <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3230	3452	
==>new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3230	3452	
==>new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3194	3345	
==>{
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3194	3345	
==>{
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	234	350	
==>dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  | <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	234	350	
==>dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  | <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	339	441	
==>E_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remot <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	339	441	
==>E_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remot <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11165	11292	
==>p1} ) . ' .= ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '//' ) {
        return ' do { my $_tmp_ = ' . _emit( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35736	35849	
==>object, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	993	1121	
==>Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4471	4599	
==>Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5576	5817	
==>'$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6425	6666	
==>'$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3817	3938	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4010	4131	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5618	5742	
==>turns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5676	5800	
==>turns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	35	139	
==>ssehen:
if (wurf() == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 geht das eleganter:
if any(wu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5281	5381	
==>MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=hea <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5281	5381	
==>MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Base64.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5393	5510	
==>ot implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_str($_[0],'$<op>') <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2281	2379	
==>Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2281	2379	
==>Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1084	1198	
==>e
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1084	1198	
==>e
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_h <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3473	3618	
==>e or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while (<$ifh>) {
            $module ||= $1 if /^(?: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6021	6122	
==>tual semantics.

Please note that most of the time, it will not be necessary to write these 
methods y <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6021	6122	
==>tual semantics.

Please note that most of the time, it will not be necessary to write these 
methods y <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24565	24660	
==>ery Relation::Example attribute has a name that is distinct from the other
attributes, though se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15630	15726	
==>agement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15630	15726	
==>agement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2743	2869	
==>is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2743	2869	
==>is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3113	3217	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submet <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3113	3217	
==>::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submet <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7398	7490	
==>_assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7398	7490	
==>_assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4355	4493	
==>=~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4355	4493	
==>=~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	400	506	
==>ie 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	400	506	
==>ie 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3838	4072	
==>d++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3838	4072	
==>d++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16037	16143	
==>bject )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a Span obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16037	16143	
==>bject )` / `intersects( $object )`

These methods return a logical value. 

The argument can be a Span obje <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	367	469	
==>:C::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7985	8090	
==>_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7712	7813	
==>_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12521	12626	
==>ment for each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12521	12626	
==>ment for each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2952	3114	
==>osure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3136	3298	
==>osure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1076	1173	
==>as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  In <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1076	1173	
==>as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captures differently.  In <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2590	2687	
==>er_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" " <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2590	2687	
==>er_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1561	1681	
==>art !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1561	1681	
==>art !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1473	1593	
==>as Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1473	1593	
==>as Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8479	8582	
==>_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6015	6116	
==>_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	530	639	
==>ist - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	530	639	
==>ist - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38920	39040	
==>ion library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43734	43854	
==>ion library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software; you can redistribute it and/o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	684	786	
==>Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $tr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	684	786	
==>Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $tr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1442	1549	
==>@.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1442	1549	
==>@.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1773	1868	
==>>from}\@\$m).\"/g;
	$expr =~ s/\@\+/\".join(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$ex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	865	968	
==>eople spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	865	968	
==>eople spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new( <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	516	676	
==>unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '( <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	516	676	
==>unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2815	2903	
==>.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2815	2903	
==>.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7452	7558	
==>nts, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1277	1383	
==>nts, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1562	1671	
==>L_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1562	1671	
==>L_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13923	14050	
==>_push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14202	14329	
==>_push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26948	27042	
==>answer */
 #define REINT_AUTORITATIVE_ML	0x0800000 
 #define REINT_ONCE_NOML		0x1000000 /* Intu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9861	9962	
==>($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9861	9962	
==>($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6184	6284	
==>> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the cryptographi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6184	6284	
==>> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the cryptographi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3144	3262	
==>rint and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3608	3726	
==>rint and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4161	4257	
==>o S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vilain

=cut <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4161	4257	
==>o S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vilain

=cut <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1488	1596	
==>"PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $_[2] }' || die <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6526	6715	
==>if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6526	6715	
==>if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	299	411	
==>q 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	299	411	
==>q 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9573	9801	
==>">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9573	9801	
==>">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2517	2618	
==>ate()

Creates a new repository on the filesystem. Wipes out an existing one with the
same root path i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	573	674	
==>de special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	573	674	
==>de special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48065	48317	
==>et('$self:')
                  ->get_attr(symbol->new('%:namespace'))
                  ->store(
                      $e->get('$label'),
                      $e->get('$value')
                  );
            }
        )
    )
);

## ----------------- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8512	8620	
==>=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8512	8620	
==>=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8311	8451	
==>_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8311	8451	
==>_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10507	10699	
==>e\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10507	10699	
==>e\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_v <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	20	141	
==>?' liefert true oder false
my $var = 0;
say "ist 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3164	3335	
==>ate}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3063	3229	
==>ate}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	339	447	
==>x = Pugs::Compiler::Regex->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4715	4853	
==>ush(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = sh <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4715	4853	
==>ush(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = sh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21510	21609	
==>s->data[1].max_offset
 #define check_substr     substrs->data[2].substr
 #define check_utf8       su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	254	336	
==>ypeSafe::Flatten->new->reduce(
		Blondie::TypeSafe::Annotator->new->annotate($runti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	283	387	
==>ile,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do tha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	283	387	
==>ile,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16683	16808	
==>metimes
        $results =~ s/\n\n/\n/g;
    }

    my $pass = $resolve->($results);
    unless ($pass) {
        _diag "# PRO <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6799	6951	
==>- signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6799	6951	
==>- signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Val <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1468	1586	
==>%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $ret <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1468	1586	
==>%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	382	479	
==>event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	382	479	
==>event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6610	6700	
==>-----------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## -------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6633	6723	
==>------------------
## BOOTSTRAPPING Roles COMPLETE
## ------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7241	7357	
==>ers{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7241	7357	
==>ers{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	970	1066	
==>ray[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code & <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	970	1066	
==>ray[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code & <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1013	1164	
==>last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1013	1164	
==>last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14723	14853	
==>_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14723	14853	
==>_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5245	5347	
==>unction will fetch the document identified by the given URL
and return it.  It returns C<undef> if it f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5245	5347	
==>unction will fetch the document identified by the given URL
and return it.  It returns C<undef> if it f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13013	13112	
==>ese functions both take blocks of code, run the code, and test whether they live or die.

=== A Note <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13071	13170	
==>ese functions both take blocks of code, run the code, and test whether they live or die.

=== A Note <==
2	/Users/nnunley/pugs/util/drift.pl	1012	1116	
==>ram[0..2] = @program[2,0,1];
my @scary_header = split /^/m, << "SCARY";




{- 
-- WARNING WARNING WARNIN <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3446	3630	
==>add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>).add_children(
                    Tree.new( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3306	3433	
==>}

#------ match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3317	3444	
==>}

#------ match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7154	7257	
==>tant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7154	7257	
==>tant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Comp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11153	11251	
==>ds) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11211	11309	
==>ds) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13105	13234	
==>1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6580	6709	
==>1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1938	2098	
==>>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1938	2098	
==>>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2579	2688	
==>ub angle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3547	3647	
==>'rule'} = Pugs::Compiler::Rule->compiled(
sub {
    
}
});
*{'rule'} = sub {
    ${'rule'}->match(@_) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9378	9591	
==>'';       
        return $str unless $deps;

        for my $entry ( @$deps ) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( U <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2516	2624	
==>est cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1508	1619	
==>_show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1508	1619	
==>_show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_v <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3922	4014	
==>----------------
## removing children

method remove_child_at ($self: Int $index) returns Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3922	4014	
==>----------------
## removing children

method remove_child_at ($self: Int $index) returns Tre <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	795	916	
==>÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { re <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	795	916	
==>÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3267	3432	
==>',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighte <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13550	13642	
==>s_array_complain = sub { Carp::carp("p6_as_array called on $_[0]"); undef };
my %as_array_han <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10067	10179	
==>- implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10067	10179	
==>- implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8000	8102	
==>5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8000	8102	
==>5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1845	1974	
==>space_before]\n";
                $m = Pugs::Grammar::Term->angle_quoted( substr($match, 1), { p => 1 } );
                if ( $m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3843	3967	
==>k_exec failed - didnt return anything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13164	13304	
==>e_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13164	13304	
==>e_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $sourc <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3950	4064	
==>e",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($hos <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3950	4064	
==>e",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($hos <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4676	4811	
==>256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 256 ];
        }
    } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4676	4811	
==>256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 256 ];
        }
    } <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5113	5242	
==>can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4972	5101	
==>can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self-> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	108	200	
==>Methoden mit einem Argument aufrufen
$welt.hallo "Mike";
hallo $welt: "Mike";
hallo($welt: "M <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2328	2427	
==>ur 
application allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2328	2427	
==>ur 
application allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number o <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1024	1143	
==>args.perl; # XXX delme
        Pugs::Internals::exec(@args[0], Bool::True, @args);
    }
    multi sub exec($string) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16342	16547	
==>tch[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16336	16541	
==>tch[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8076	8232	
==>comp => "\0", "\\X[0]");
  }

  $self->add_handler('\0' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $o = subs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9267	9408	
==><\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13255	13344	
==>ities( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $al <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13255	13344	
==>ities( $string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $al <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23571	23667	
==>tta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23571	23667	
==>tta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2046	2150	
==>---------------------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2046	2150	
==>---------------------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $chil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9466	9562	
==>r attributes are private, so you must use accessor methods.
Rosetta::Model does not declare any s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9466	9562	
==>r attributes are private, so you must use accessor methods.
Rosetta::Model does not declare any s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1527	1624	
==>l interface is good enough for many purposes.  
Although the interface is said to be procedural, i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1527	1624	
==>l interface is good enough for many purposes.  
Although the interface is said to be procedural, i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2812	2924	
==>return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    l <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2812	2924	
==>return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	104	220	
==>agic.
# It goes something like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
#     1. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6020	6132	
==>endence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 4, '... $Ob <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4118	4223	
==>endence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 2, ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7035	7182	
==>my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6799	6942	
==>my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3696	3856	
==>if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3696	3856	
==>if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :en <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	734	880	
==>bname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Poin <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	734	880	
==>bname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Poin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	448	576	
==>ark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	545	673	
==>ark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (subs <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	322	474	
==>ta       $Control    $Fileslist
            $Build_prefix   $Preinst    $Postinst   $Prerm      $Postrm
            $Alternatives   $Altfile    $Repoinde <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1614	1717	
==>ocedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1614	1717	
==>ocedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cip <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4046	4157	
==>ipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4046	4157	
==>ipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	863	979	
==>ide;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	863	979	
==>ide;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2096	2192	
==>of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2096	2192	
==>of lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	454	555	
==>print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	454	555	
==>print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prel <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	287	403	
==>is is an extension of the Mini-MetaModel which adds a self-bootstrapping
## implementation of Roles into the model. S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21981	22086	
==>ntifiers of the form C<{n}> were being misrepresented as C<{n,}>.
It's been corrected.  (Mike Lambert)

C< <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2629	2746	
==>ole);
        #$output .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, style = solid, color = or <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12731	12834	
==>dy->push_content("\n");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4376	4480	
==>erl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4225	4326	
==>erl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8640	8739	
==>ecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8640	8739	
==>ecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2770	2876	
==>name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flag <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2770	2876	
==>name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flag <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7921	8021	
==>> $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class sol <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7921	8021	
==>> $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class sol <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1997	2151	
==>dir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3527	3676	
==>dir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12412	12529	
==>0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num(${$_[0]}) },
      perl5_object => sub { 0+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14006	14117	
==>x->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} = $q;
      push @$tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4599	4733	
==>n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4739	4873	
==>n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20860	20955	
==>ile installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20860	20955	
==>ile installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2266	2406	
==>->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2193	2326	
==>->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2775	2868	
==>em B<source($new_source)>

Returns the representation of this node in the original text, or at <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2775	2868	
==>em B<source($new_source)>

Returns the representation of this node in the original text, or at <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	928	1050	
==>ler::Rule->compile(<<'RULE')->code();\n";
    print $source;
    print "RULE\n";
}
print <<'PUSH';
push @terms, sub { Gramm <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	164	276	
==>e Config;
$VERSION = '0.20';

use Test::Harness::Assert;
use Test::Harness::Iterator;

# Flags used as return val <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8962	9090	
==>y.html?id=16375 fixes this,
        # but we can't rely upon everyone having it.  As such, we have
        # a very special cygwi <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1919	2015	
==>-----------------------------------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GR <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4012	4108	
==>nd binding
it to $x. Then the app is reduced. First its children will be reduced -
Sym('&infix:<+ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16257	16371	
==>haracters.\n"
      if /[ <>;&\\\$'"]/;
  }
}

sub get_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12375	12477	
==>urn $S->force_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5018	5120	
==>urn $S->force_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13447	13562	
==>her above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13447	13562	
==>her above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38001	38096	
==>which is a Template text
string if the module recognizes $msg_key, and the undefined value if no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38001	38096	
==>which is a Template text
string if the module recognizes $msg_key, and the undefined value if no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1113	1232	
==>ignature_term
        { $_[0]->{out}= { type => $_[1], %{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{out}= { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10525	10609	
==>class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(horizontal_ <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1722	1907	
==>vents->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tr <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3154	3313	
==>op_version\n" . 
                    ($self->postamble || '');

    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10043	10140	
==>w test functions will be defined to facilitate the
testing of those features. For more information <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10101	10198	
==>w test functions will be defined to facilitate the
testing of those features. For more information <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3055	3213	
==>ifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3066	3224	
==>ifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'te <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8167	8286	
==>mpos = pos
    .return (mob)
.end


.sub "parse_closure"
    .param pmc mob
    .local pmc newfrom
    .local string tar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4499	4685	
==>ches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4362	4539	
==>ches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1042	1148	
==>es Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) : <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1042	1148	
==>es Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) : <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1721	1859	
==>([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

meth <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1721	1859	
==>([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

meth <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4220	4527	
==>e_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8584	8689	
==>, "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2633	2739	
==>l6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2633	2739	
==>l6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	892	993	
==>ability with modules that
# do not inherit from Module::Compile but still want to do this sort
# of th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	892	993	
==>ability with modules that
# do not inherit from Module::Compile but still want to do this sort
# of th <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8589	8696	
==>rees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will recurs <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8589	8696	
==>rees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will recurs <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2851	2956	
==>ort Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTION <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2851	2956	
==>ort Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTION <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10682	10807	
==>ld matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10682	10807	
==>ld matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1863	1972	
==>at_hash hash ihash)),
        (map { $_ => '@' } qw(flat_array array iarray)),
      );

sub generate_attribut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	241	355	
==>= ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	241	355	
==>= ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class-> <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1049	1175	
==>LD_CONFIG} || $config_default;
    my $stream;
    
    if (!-e $filename) {
        require File::Copy;
        File::Copy::co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5483	5588	
==>", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5483	5588	
==>", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<user <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3723	3829	
==>sure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3723	3829	
==>sure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_inters <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	80	221	
==>d disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	80	221	
==>d disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	779	911	
==>Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	779	911	
==>Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17048	17144	
==>e.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17048	17144	
==>e.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19431	19523	
==>rd data manipulation statements but that the target relation
variables are system catalog rel <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19431	19523	
==>rd data manipulation statements but that the target relation
variables are system catalog rel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10518	10706	
==>lue_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10518	10706	
==>lue_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16556	16670	
==>tr, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16556	16670	
==>tr, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Ne <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27668	27795	
==>die "bug $@\n$ret" if $@;
	    #use Data::Dumper;
	    #print Dumper($res);
	    mkMatch(length($s),$res);
	}
	else { MatchX->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1983	2069	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)\{$<key>:= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38239	38333	
==>in
its positional parameter $text (a string), and a Message Variables hash ref
in its positiona <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38239	38333	
==>in
its positional parameter $text (a string), and a Message Variables hash ref
in its positiona <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2068	2202	
==>{ @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prer <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2948	3082	
==>{ @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prer <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12216	12336	
==><gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to the given value, but only if no pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12216	12336	
==><gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to the given value, but only if no pr <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2227	2328	
==>ctorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) > <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2227	2328	
==>ctorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) > <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1725	1994	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1725	1994	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6343	6438	
==>arsm);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($varlist)$ini <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2658	2778	
==>es the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3122	3242	
==>es the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4049	4161	
==>NFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=v <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4049	4161	
==>NFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	39	193	
==>t;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	39	193	
==>t;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13863	13982	
==>K/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13863	13982	
==>K/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $ch <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1600	1705	
==>vironment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1600	1705	
==>vironment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	156	254	
==>ad1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	156	254	
==>ad1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cip <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8674	8767	
==>er API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Diges <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8674	8767	
==>er API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Diges <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3460	3604	
==>ed into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3460	3604	
==>ed into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub ca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16798	16891	
==>ompile that into its own executable, in practice one would
normally just write some components <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16798	16891	
==>ompile that into its own executable, in practice one would
normally just write some components <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4761	4883	
==>case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($ke <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4620	4742	
==>case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($ke <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5033	5174	
==>efined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check fo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5033	5174	
==>efined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check fo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2510	2662	
==>multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primitive is unsafe {
        eval(slurp $filename, $lang);
    }
}


class Contr <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2319	2450	
==>t;
    }

    $depth++;
    dbg "# $tree[0] start";
    my $ret;

    if $tree[0] eq '"PIL_Environment"' {
        my %pad = $tree[1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22080	22185	
==>he first one it finds.  This also works for the multiple language
or permissions issue; simply order the f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22080	22185	
==>he first one it finds.  This also works for the multiple language
or permissions issue; simply order the f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3312	3416	
==>malize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3312	3416	
==>malize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	820	923	
==>t(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\a", '\a');
  });

  $self->add_hand <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9180	9285	
==>ction ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9180	9285	
==>ction ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ($s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3577	3711	
==>_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3577	3711	
==>_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1069	1215	
==>on_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1069	1215	
==>on_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	383	493	
==>:BaseCategory::ws;

sub ast {
    my $match = shift;
    $match .= '';
    # print "Grammar::Expression::AST '$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	64	196	
==>ugh the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	122	254	
==>ugh the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1505	1616	
==>or name prefix)] ];


### meta dirs/files
### These are dependant on the installation, so they are 
### marked p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4153	4255	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\n", '\N') if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2215	2323	
==>> are virtual classes within the strategy.  They're
done like this until pugs gets support for virtual classe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2215	2323	
==>> are virtual classes within the strategy.  They're
done like this until pugs gets support for virtual classe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18823	18929	
==>exists as an alias for this method so you
can avoid this misspelling in your programs and still send the ri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18823	18929	
==>exists as an alias for this method so you
can avoid this misspelling in your programs and still send the ri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12419	12527	
==>e_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a unicode clum <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1485	1596	
==>{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_;
  $self->regex($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3280	3381	
==>do { local $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17393	17484	
==>ssionNoIn> <'^'> <BitwiseANDExpressionNoIn>
}
rule BitwiseORExpression :words {  # see 11.10 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9360	9466	
==>) { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9360	9466	
==>) { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16026	16140	
==>R $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to : <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16026	16140	
==>R $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to : <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	546	661	
==>Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix=> $Config{siteprefix},

        installscript <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1196	1303	
==>erl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl5_t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1271	1381	
==>t( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1271	1381	
==>t( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<ex <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	490	630	
==>ween> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last character <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	490	630	
==>ween> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last character <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8668	8769	
==>rning something?

maybe just overload bool to false ;)

(I mean, seriously, because that's what p6 doe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8380	8479	
==>rning something?
maybe just overload bool to false ;)
(I mean, seriously, because that's what p6 doe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2592	2692	
==>RI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2592	2692	
==>RI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	70	177	
==>main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	70	177	
==>main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use T <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19010	19189	
==>ee 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3388	3485	
==>ed_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3388	3485	
==>ed_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	453	544	
==>zation_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	453	544	
==>zation_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2334	2498	
==>$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self->{(${re_symbol})}/\$.$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2601	2719	
==>ft;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} else {
		die "can't perform runtime c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2193	2323	
==>bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2193	2323	
==>bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.par <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	833	952	
==>is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require l <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	833	952	
==>is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1245	1344	
==>ability if created, and in perhaps accepting
# patches to remove roadblocks if encountered.  The lat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1022	1118	
==>ie ASTs

=head1 SYNOPSIS

    use Blondie::Backend::Perl;

=head1 DESCRIPTION

L<Blondie::Backend <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4983	5078	
==>ore (num, ~type) returns nil>

=item B<remove (num) returns nil>

=item B<slice (num, num) retur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5570	5695	
==>);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8065	8192	
==>s
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    mob["value"] = $S0
    inc pos
  end:
    mpos = pos
    .return (mo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	463	721	
==>r ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	463	721	
==>r ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=it <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10251	10401	
==>-> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10251	10401	
==>-> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYP <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3419	3566	
==>e";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3419	3566	
==>e";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13081	13179	
==>er they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13139	13237	
==>er they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6892	7010	
==>return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::En <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7451	7569	
==>return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::En <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3039	3157	
==>returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create refe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3039	3157	
==>returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create refe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9371	9492	
==>urnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9371	9492	
==>urnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	136	256	
==>:_, Num :$base )
    returns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    retu <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6651	6790	
==>t = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tree[0] eq '"PSub"' {
        my %pad = $tree[1];  # keys: "pS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2113	2226	
==>>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2113	2226	
==>>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3115	3329	
==>::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             ) returns Array

 multi s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1772	1901	
==>e=>$filename)->get_p6_file;
	    $eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub numbe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2950	3069	
==>nfix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1604	1718	
==>en;
	use base qw/Blondie::Reducer/;
	
	use Scalar::Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $sel <==
2	/Users/nnunley/pugs/util/package-osx.pl	8906	9017	
==>);
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($dest, %sym <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3100	3205	
==>al to three-dot version
        $perl_version =~
          s{^(\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2), <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1482	1652	
==>rams{'$.description'},
                '$.passed'      =>                        1,
                '$.number'      =>      $params{'$.number'},
            ) if $params{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1798	1904	
==>e, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, including

intrinsic C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1727	1831	
==>e, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, including
intrinsic C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19852	19948	
==>ed.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19852	19948	
==>ed.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	628	739	
==>al
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	628	739	
==>al
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1598	1728	
==>substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1533	1658	
==>substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1689	1788	
==>, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1747	1846	
==>, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7576	7677	
==>ket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- please wait <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1657	1773	
==>{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18697	18818	
==>val($code);
    } else {
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl") if -e "deleteme_code.p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7248	7362	
==>ethod _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Blo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7248	7362	
==>ethod _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Blo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11169	11273	
==>$EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11169	11273	
==>$EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	900	1004	
==>[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	356	461	
==>se Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	356	461	
==>se Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInv <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12179	12278	
==>)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12179	12278	
==>)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1199	1315	
==>e for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4677	4793	
==>e for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2066	2179	
==>AL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2066	2179	
==>AL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the valu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7725	7860	
==>r(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7725	7860	
==>r(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27343	27430	
==>_ONCE_NOML|REINT_ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12323	12423	
==>n, comment block and data section, each
# into a single line containing a digest of the original cont <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12323	12423	
==>n, comment block and data section, each
# into a single line containing a digest of the original cont <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11118	11218	
==>e defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11118	11218	
==>e defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document cla <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34571	34672	
==>ation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invoc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39121	39222	
==>ation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of the invoc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2128	2231	
==>nds, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2186	2289	
==>nds, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is exp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17316	17464	
==>TH (&dispatcher (symbol new BUILD))))
     (while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatche <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2233	2353	
==>new(1);
}

sub join {
    my ($self, $delimiter) = @_;
    (blessed($delimiter) && $delimiter->isa('str'))
        || con <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2414	2590	
==>d,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2414	2590	
==>d,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8746	8854	
==>:Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8742	8850	
==>:Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	279	412	
==>Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the us <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	279	412	
==>Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	791	901	
==>g tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	791	901	
==>g tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9886	9997	
==>unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9886	9997	
==>unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { un <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13561	13653	
==>) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3), {numb <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12276	12360	
==>ass="num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl_var name=fai <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1095	1242	
==>method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 1 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1095	1242	
==>method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15029	15133	
==>(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed as the first arg <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15029	15133	
==>(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed as the first arg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6371	6494	
==>() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6371	6494	
==>() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15439	15613	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6817	6934	
==>d/ if $flip;
    unless ($pass) {
	unshift(@mess, "#      got '$got'\n",
		"# expected /$expected/\n");
    }
    loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12204	12339	
==>d =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12198	12333	
==>d =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1509	1622	
==>my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

submet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1509	1622	
==>my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

submet <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35192	35290	
==>ation>

This multi-method is a generic binary relational operator that is identical
to C<join> exce <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39742	39840	
==>ation>

This multi-method is a generic binary relational operator that is identical
to C<join> exce <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24681	24786	
==>s (or "rules") to try to match next.

=back

=head2 Devices and Standards

I made a few C-macro-style func <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14295	14398	
==>s: str $repr, hash %params) returns opaque {
    my %attrs = hash();
    my &dispatcher = $class.dispatc <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3911	4141	
==>se {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_u <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	916	1027	
==>ft @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $sp <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	916	1027	
==>ft @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $sp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10186	10273	
==>new(
		type::operator::nary->new(list => type::variable::free->new),
		type::operator::n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2019	2187	
==>],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2212	2380	
==>],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4584	4684	
==>'::Test')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => [ $::Object ],
    does <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8890	9004	
==>MENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIA <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8890	9004	
==>MENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIA <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3530	3640	
==>ion >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$a <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2573	2679	
==>ion >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2941	3055	
==>Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
cl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2941	3055	
==>Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
cl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16538	16633	
==>list contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16538	16633	
==>list contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12539	12689	
==>*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 00 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12539	12689	
==>*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 00 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17591	17684	
==>:DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17591	17684	
==>:DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8729	8879	
==>ect__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [[]],
      fam <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9048	9163	
==>uch, we have
        # a very special cygwin work-around.  Ugh!


        if (not $ghc_exe and $Config{osname} eq 'c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10015	10155	
==>ram_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10015	10155	
==>ram_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19820	19928	
==>e
"Basic Authentication Scheme".  In array context it will return two
values; the user name and the password. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19820	19928	
==>e
"Basic Authentication Scheme".  In array context it will return two
values; the user name and the password. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4902	5001	
==>:Tiny objects. These
methods can be called with the following syntax:

  $config<read>('config.ini') <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4902	5001	
==>:Tiny objects. These
methods can be called with the following syntax:

  $config<read>('config.ini') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1899	2028	
==>copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1899	2028	
==>copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13270	13374	
==>knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("strin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13328	13432	
==>knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("strin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6060	6162	
==>::variable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub splat { # this sim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5199	5353	
==>] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5187	5341	
==>] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13631	13753	
==>ator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13631	13753	
==>ator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18447	18532	
==>ot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18447	18532	
==>ot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15363	15462	
==>as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities:: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15363	15462	
==>as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10696	10849	
==>elf;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree->[-1]{data}[0] }) {
        last unless $tree->[-1]{zerolen} &&= $_->{zerolen};
      }
      pus <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10957	11054	
==>todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11015	11112	
==>todo, Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1827	1928	
==>mar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1967	2068	
==>mar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8151	8247	
==>le(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1976	2072	
==>le(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13397	13504	
==>skip with optional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( my($max, $extra) = $li <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	232	338	
==>efine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.compare is inc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	232	338	
==>efine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.compare is inc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5405	5507	
==>e as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5405	5507	
==>e as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8796	8947	
==>_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8784	8935	
==>_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3213	3322	
==>grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3213	3322	
==>grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13318	13437	
==>erator::arrow->new(
		new_env($$)->{ $.param },
		type($.body),
	),
}

# identifiers pass the generic variables unchange <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5990	6097	
==>:Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5990	6097	
==>:Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Co <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1084	1271	
==>,
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3718	3828	
==>>get_smoker;
    $self->get_revision;
    
    $Config{shuffle}+=0;
    $self->{_config} = \%Config;
    $self- <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10684	10826	
==>y open modes not supported yet" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	237	348	
==>use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	237	348	
==>use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7540	7678	
==>[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted liter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7540	7678	
==>[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted liter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5652	5838	
==>_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5652	5838	
==>_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1720	1851	
==>d header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1720	1851	
==>d header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10685	10801	
==>~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10843	10959	
==>~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    retu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3753	3875	
==>keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7230	7352	
==>keys ) ) );

    my %full_map = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3032	3147	
==>$.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYN <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3032	3147	
==>$.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYN <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18233	18331	
==>pening file', programs would have a harder time figuring out the
best way to deal with it.  But for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18233	18331	
==>pening file', programs would have a harder time figuring out the
best way to deal with it.  But for <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4845	5023	
==>nature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6607	6785	
==>nature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new (" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3036	3155	
==>{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3036	3155	
==>{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6675	6776	
==>start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6675	6776	
==>start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23966	24065	
==>etta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23966	24065	
==>etta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This do <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	442	599	
==>ig::Config{make}                   and
        $Config::Config{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        and
        !$self- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4675	4782	
==>dule source code instead of taking from filter,
    # because we need all the lines including the ones befor <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4675	4782	
==>dule source code instead of taking from filter,
    # because we need all the lines including the ones befor <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3702	3801	
==>self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol " . $sym->val . " to $type";

		Blon <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22783	22887	
==>nfess "Error: Application of undef.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@args)=@_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17222	17344	
==>sage
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17222	17344	
==>sage
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	400	532	
==>sh that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  imple <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	400	532	
==>sh that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  imple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27537	27718	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27816	27997	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	34	146	
==>::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSC <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	34	146	
==>::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSC <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10541	10628	
==>horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\H", <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2910	3024	
==>tproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2910	3024	
==>tproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2363	2451	
==>xp::Concat");
    $optable->addToken("infix:&", "<infix:", "left,nows", "PGE::Exp::Conj") <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10155	10262	
==>nimum possible, and is essentially just
concerned with the well-formedness of the input, such as that mandat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10155	10262	
==>nimum possible, and is essentially just
concerned with the well-formedness of the input, such as that mandat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6497	6594	
==>return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6497	6594	
==>return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $closur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3200	3305	
==>nd => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3200	3305	
==>nd => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" u <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	190	310	
==>in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %me <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	190	310	
==>in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7748	7865	
==>::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $capture       - ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7486	7599	
==>::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $capture       - ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	725	901	
==>f $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FET <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	725	901	
==>f $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FET <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	715	830	
==>RL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk/';
    my $_PERL6_BIBLE =  'http://tpe.freepan.org/repos/iblech/Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	53	148	
==>arnings;

#use Pugs::Compiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9321	9434	
==>>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder::Test-0.2.1
  {
      me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2133	2225	
==>>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::Test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7742	7847	
==>rammar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7480	7581	
==>rammar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4177	4319	
==>'symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER::unshift(@_);
}

sub pus <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4384	4517	
==>'symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER::push(@_);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	815	936	
==>b request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_RE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	815	936	
==>b request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_RE <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15559	15654	
==>ar_to_entity and the %entity_to_char hashes,
which contain the mapping from all characters to th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15559	15654	
==>ar_to_entity and the %entity_to_char hashes,
which contain the mapping from all characters to th <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1856	2065	
==>=> sub { # $idx -> $value -> ()
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_f <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13740	13840	
==>y end up being a gotcha, where one needs
  something to happen or not happen, but the relevant line o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16105	16205	
==>b { $as_p6obj_complain->("code") }, # XXX - unimplemented.
      ref   => sub { $as_p6obj_complain->( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4792	4915	
==>e`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't open $module <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4792	4915	
==>e`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't open $module <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	300	421	
==>n.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/gro <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	300	421	
==>n.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/gro <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	491	657	
==>> $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	491	657	
==>> $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14746	14862	
==>mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14746	14862	
==>mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target") <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4418	4522	
==>long to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if ` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4418	4522	
==>long to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if ` <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2161	2273	
==>n $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() o <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2161	2273	
==>n $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27752	27847	
==>spond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27752	27847	
==>spond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Messa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7827	7959	
==>k = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8020	8152	
==>k = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37169	37256	
==>:superclasses'    => 'list')));
$::Class->send('add_attribute', (symbol->new('@:subclass <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1487	1609	
==>area>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.f <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1487	1609	
==>area>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	912	1033	
==>nt!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	912	1033	
==>nt!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23519	23625	
==>do not
want to accidentally affect the previous scope's flag values.  

Here is example code from the handl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2419	2538	
==>$SEEN{$class} = 1;       
    return $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_role_node( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9317	9419	
==>([])                --> {true}.
p5_charset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", ! <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3004	3116	
==>d, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3004	3116	
==>d, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.star <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	887	995	
==>te "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 modul <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	887	995	
==>te "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 modul <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10157	10300	
==>= 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=he <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10157	10300	
==>= 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=he <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	340	437	
==>art + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	340	437	
==>art + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { ret <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	186	298	
==>se FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inl <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	186	298	
==>se FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17256	17353	
==>TS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix ma <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17256	17353	
==>TS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix ma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10758	10877	
==>lf = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10758	10877	
==>lf = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2352	2459	
==>nfinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2352	2459	
==>nfinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11626	11775	
==>, return;

    my $alt; 
    my @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19719	19818	
==>Like the Set data type, the Relation data type is immutable.  The value of
a Relation object is dete <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24271	24370	
==>Like the Set data type, the Relation data type is immutable.  The value of
a Relation object is dete <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2749	2954	
==>ath $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($versio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2749	2954	
==>ath $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($versio <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	866	972	
==>->target($target);
  $me->from($from);
  my $position = -1;
  $me->position($position);

  $from = $fromd i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	603	701	
==>me") && exists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33158	33260	
==>translate a
message, the corresponding Template modules will be searched in the order
they appear in th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33158	33260	
==>translate a
message, the corresponding Template modules will be searched in the order
they appear in th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13542	13655	
==>ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin or !((sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2019	2117	
==>->code();

    $<variable>:=(<varscalar>)\{$<key>:=(<term1>)\}
        { return { access_hashref_el <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2023	2118	
==>erialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1947	2038	
==>erialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16350	16449	
==>y in terms of a new high-level
programming language named "Rosetta D", which is computationally comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16350	16449	
==>y in terms of a new high-level
programming language named "Rosetta D", which is computationally comp <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8196	8371	
==>ignorecase yet.";
        }
        if %mods<s> || %mods<sigspace> {      
            $pre ~= ":s";
            %mods.delete("s"); # avoid haskell handling it.
            %mo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2407	2519	
==>tracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2407	2519	
==>tracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the mat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2046	2216	
==>@for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.* <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2046	2216	
==>@for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.* <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3257	3379	
==>,  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3257	3379	
==>,  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ' <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1154	1263	
==>ories to Pugs's 
search path so that later `use` or `require` statements 
will find modules which are not loca <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1154	1263	
==>ories to Pugs's 
search path so that later `use` or `require` statements 
will find modules which are not loca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	142	233	
==>init_header remove_header remove_content_headers header_field_names scan
    date expires if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	142	233	
==>init_header remove_header remove_content_headers header_field_names scan
    date expires if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3687	3775	
==>dle recursive calls.

The compiler inherits L<Blondie::Reducer::DynamicScoping> to assist <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3250	3404	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3443	3597	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1478	1600	
==>sh  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1478	1600	
==>sh  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4657	4785	
==>t ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4657	4785	
==>t ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32444	32540	
==>ted plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32444	32540	
==>ted plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5520	5666	
==>neralize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5344	5485	
==>neralize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unles <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	501	600	
==>-----------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!par <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	501	600	
==>-----------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8491	8635	
==>ymbol->new("$label", q<symbol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            returns => q<method> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2503	2612	
==>ype::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $fro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5101	5219	
==>hange its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5101	5219	
==>hange its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1322	1447	
==>ed,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1322	1447	
==>ed,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_A <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9323	9433	
==>tr $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9323	9433	
==>tr $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_modu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10304	10400	
==>=> sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions ar <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10304	10400	
==>=> sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23605	23698	
==>e L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23605	23698	
==>e L<Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6470	6600	
==>uthor($author); 
    }
    else {
        warn "Cannot determine author info from $file\n";
    }
}

sub license_from {
    my ( $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39205	39288	
==>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39205	39288	
==>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	667	799	
==>param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	667	799	
==>param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17417	17513	
==>tle of the document.  In libwww-perl this header will be
initialized automatically from the E<lt> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17417	17513	
==>tle of the document.  In libwww-perl this header will be
initialized automatically from the E<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32197	32298	
==>checks
each set's member for language B and displays that; and so on.

I<For the present, Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32197	32298	
==>checks
each set's member for language B and displays that; and so on.

I<For the present, Locale::Keye <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11411	11561	
==>[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11405	11555	
==>[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s <==
2	/Users/nnunley/pugs/util/package-osx.pl	6367	6471	
==>ew::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/local/man/man3/Perl6::O <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7354	7500	
==>rsion =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = ', unix -any';
    }

    if (grep /^-DPUGS_HAVE_HSPLUGINS$/, @_) {
        $depends . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	914	1047	
==>out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	19	130	
==>( $a, $b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9296	9385	
==>---------------------------------------
package main;
Regexp::StructHook::import();

1;
#_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10329	10442	
==>re_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10608	10721	
==>re_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10611	10732	
==>ns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "cr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10611	10732	
==>ns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "cr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	730	843	
==>bug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \$Perl6::Run::OnPerl5::X1::BB::pugs,
    'w <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6606	6697	
==>---------------------------------------------
## BOOTSTRAPPING Roles COMPLETE
## ----------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6629	6720	
==>----------------------
## BOOTSTRAPPING Roles COMPLETE
## ---------------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3703	3911	
==>state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3589	3790	
==>state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2806	2929	
==>Meta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3270	3393	
==>Meta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{de <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5333	5441	
==><undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI object.

You wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5333	5441	
==><undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI object.

You wi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	246	342	
==>::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	246	342	
==>::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10249	10366	
==>ethod next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10249	10366	
==>ethod next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5059	5167	
==>dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5059	5167	
==>dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30128	30220	
==>or equal to
the invocant Relation::Example's header, in which case it returns the identity-on <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3399	3537	
==>},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet- <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3399	3537	
==>},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	19	120	
==>e was taken from src/Pugs/Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3366	3494	
==>or($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), return;
        system( qq[ cp -R $srcd <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	822	924	
==>pports PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# do no <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	822	924	
==>pports PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# do no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19931	20036	
==>In scalar context it will
return I<"uname:password"> as a single string value.

When used to set the heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19931	20036	
==>In scalar context it will
return I<"uname:password"> as a single string value.

When used to set the heade <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6459	6584	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6652	6777	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    s <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3801	3914	
==>->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5161	5273	
==>->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2816	2915	
==>, Z) --> "|", p5_concatenation(X), p5_alternatives(union(W,X), Z), !.
p5_alternatives(W, W) --> {tru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12899	12993	
==>the messages.

These are all constants in the F<Regexp::Parser> package, which means
you can ac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	967	1057	
==>Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	967	1057	
==>Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18448	18563	
==>referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18448	18563	
==>referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10636	10749	
==>nd returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10636	10749	
==>nd returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1247	1361	
==>ation};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unle <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1247	1361	
==>ation};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unle <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	134	250	
==>per;
use strict;
our @EXPORT_OK = qw(rule);

sub compiled {
    my $class = shift;
    my $code = shift;
    my ($gra <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6502	6650	
==>=> chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6502	6650	
==>=> chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40714	40808	
==>ns required, the copyright holders of
Locale::KeyedText would appreciate being informed any tim <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40714	40808	
==>ns required, the copyright holders of
Locale::KeyedText would appreciate being informed any tim <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28910	29010	
==>t can consume an ampersand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6907	7005	
==>E::Regex> modules.

=head1 USAGE

=head2 Creating an Instance

To use this module as is, load it, a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23208	23324	
==>ody => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide("nil"),
			else = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1678	1774	
==>ENUM, 'POSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] bel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23364	23472	
==>.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
implementation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27916	28024	
==>.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
implementation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6915	7115	
==>rl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autobox"
        
        if ( exists $n->{self}{code} ) {
            # &code.goto <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	733	875	
==>st {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }

 multi sub <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17317	17518	
==>er of tests which passed 
                      (including todo and skips)

  todo              number of todo tests seen
  bonus             number of todo tests which 
                      unexpected <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2254	2405	
==>nd .5 to the nearest odd number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > . <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33440	33540	
==>ram or first library should
appear first in the array.  Each Set Name can be any defined and non-empt <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33440	33540	
==>ram or first library should
appear first in the array.  Each Set Name can be any defined and non-empt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5667	5821	
==>undary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5667	5821	
==>undary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2072	2188	
==>ery strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2072	2188	
==>ery strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params(' <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2840	2946	
==>( --> Scalar ) {
multi Array::pop (  ) {
    Array::pop @+_;
}

# copied from S29draft.pod r8593.
multi Arr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1181	1316	
==>{
    my $self = shift;
        my $sha1 = Digest->new("SHA-1");

        {
			local $SIG{__WARN__} = sub { };
            local $Storab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	938	1037	
==>:string_concat {
    my $a = emit(get_data($_[0], '$<a>'));
    my $b = emit(get_data($_[0], '$<b>') <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1952	2049	
==>the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1952	2049	
==>the correct return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15849	15948	
==>metric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19326	19425	
==>metric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2912	3025	
==>ate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2912	3025	
==>ate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7627	7751	
==>rot include files",
  ensure => sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1316	1424	
==>cr) { $tot += GolfScore($s) }
   print "You shot a round of $tot strokes.\n";
}

sub BuildFile {
   my ($fnam <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21834	21941	
==>if $seen {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17000	17097	
==>::Example @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my Relation::Exa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25228	25376	
==>{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags}[-1] }

  # access to the tree
    # is this <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5705	5945	
==>art => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5705	5945	
==>art => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	833	933	
==>><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which yo <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	833	933	
==>><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which yo <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	501	593	
==>bjs/", 'blib6/pugs/js') for <perl5/*>;
}

print "*** Successfully built!  Type '$Config{make} <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2300	2448	
==>trs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instanc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2505	2653	
==>trs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque_instanc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3588	3699	
==>( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3588	3699	
==>( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5060	5179	
==>les} };

if($#t_dirs < 0) {    
    for(keys %$files) { handle_t_file( catdir(split /\/+/, $_) ); }
} else {
    for(@t_ <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	122	223	
==>-prefix" if it is.
#

use Config;
use File::Spec;

my $setup = File::Spec->catfile(File::Spec->curdir, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1379	1471	
==>'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5::X1::Root";

=pod
https://sv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29847	29950	
==>pp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29847	29950	
==>pp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27718	27822	
==>ash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27718	27822	
==>ash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20590	20695	
==>12.2
      <'='> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <Assignmen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5017	5213	
==>2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4861	5048	
==>2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1677	1780	
==>:Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1677	1780	
==>:Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9014	9136	
==>ers.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method user(St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9014	9136	
==>ers.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method user(St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5744	5875	
==>$n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3767	3927	
==>t 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3767	3927	
==>t 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2314	2446	
==>str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2454	2586	
==>str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6458	6566	
==>or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule UnicodeCombiningMark {  # see 7 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12953	13056	
==>e.  In that event, it may not
  be possible to get a plausibly scoped alternative working.

  Using $/ m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2121	2229	
==>temeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2902	3010	
==>temeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3256	3392	
==>);
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=hea <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3256	3392	
==>);
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1320	1420	
==>S_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encodin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1320	1420	
==>S_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encodin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4503	4660	
==>}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4503	4660	
==>}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7545	7687	
==>used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7557	7699	
==>used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22664	22806	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22943	23085	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4266	4393	
==>features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{values}{no_index}{$type <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3351	3453	
==>\n\n\n\n\n\n\n\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub Chec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1339	1484	
==>equest = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1339	1484	
==>equest = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = tim <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14906	14999	
==>Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $pas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14906	14999	
==>Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $pas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	591	747	
==>rn = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	584	740	
==>rn = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2387	2531	
==>e ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    return $output;
}

sub _draw_role {
    my ($role) = @_;
    my $output = _draw_rol <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1977	2086	
==>}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap. 

>   The world was y <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5664	5772	
==>void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stder <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2087	2201	
==>$bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1765	1871	
==>$bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    return $s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3174	3275	
==>Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  Failed  List of Failed
  ------- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	390	486	
==>has Perl::JuncType $.junc_type where { $_ =:= one«JAny JAll» };

has Perl::Type $.one;
has Perl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23740	23867	
==>ion>
}

# A.6 Universal Resource Identifier Character Classes

rule uri {  # see 15.1.3
      <uriCharacters>?
}
rule uriCharact <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6765	6883	
==>/$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshift(@mess, "#      got '$got <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9931	10024	
==>ich are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9931	10024	
==>ich are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1405	1512	
==>e MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	667	772	
==>not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	667	772	
==>not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9940	10042	
==>t::Infinite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Comp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9940	10042	
==>t::Infinite.

- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7565	7692	
==>f $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7565	7692	
==>f $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14881	14972	
==>in->("scalar_numeric") },
      scalar_non_numeric => sub { $as_hash_complain->("scalar_non_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16659	16771	
==>ile that comes
with this "Rosetta" distribution.

While it is possible that one could write a self-contained appl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16659	16771	
==>ile that comes
with this "Rosetta" distribution.

While it is possible that one could write a self-contained appl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	686	801	
==>cessors for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_acce <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1170	1285	
==>cessors for all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_acce <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	475	610	
==>cdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000}, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	572	707	
==>cdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000}, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	203	339	
==>ruct => STRUCT )

=cut

sub new_from_struct {
    my $class = shift;
    my %hash  = @_;
    
    my $struct;
    my $tmpl = {
        st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	230	334	
==>all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	221	324	
==>all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written l <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2710	2945	
==>tim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %even <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2710	2945	
==>tim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %even <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	94	207	
==>::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Boo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	94	207	
==>::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Boo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8439	8600	
==>,
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8439	8600	
==>,
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	158	285	
==>ay; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 3 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	158	285	
==>ay; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 3 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16370	16472	
==>web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16428	16530	
==>web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2117	2257	
==>r = back, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class->roles}) {
        $output .= _d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6166	6273	
==>ed{$pkg_type}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8714	8818	
==>pParam, $tpDefault) {
    #my $type = defined $tpDefault ? DOWN($tpDefault)." " : "";
    #$type." ".DOWN <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4231	4325	
==>~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{ch <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4231	4325	
==>~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5818	5992	
==>rn alternation( [ null(), $_[0] ] );
}

sub greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	713	818	
==>ards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operate <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	713	818	
==>ards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operate <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5750	5863	
==>ummary of all the tests
run.  Its keys and values are this:

    bonus           Number of individual todo tests u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1091	1224	
==>re => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1047	1174	
==>re => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29404	29506	
==>nt
Relation::Example attribute names, or any C<$mapping> values duplicate each other,
or duplicate attr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4746	4885	
==>ching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4597	4733	
==>ching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 mat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2876	2973	
==>he perl backend

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Builtins;

=head1 DESCRIPTION

T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2078	2194	
==>name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1756	1864	
==>name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    re <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3587	3694	
==>lude );
    $Config{include_re} = qr/\.($include_re)$/;
}

sub _init {
    my($self) = shift;
    $self->set <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4009	4135	
==>ns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4009	4135	
==>ns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2403	2520	
==>ile-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Gen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2620	2737	
==>ile-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Gen <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2689	2793	
==>it is not clear
that this is the optimal interface for this combinator.

=cut

method subrule (Code $code <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2689	2793	
==>it is not clear
that this is the optimal interface for this combinator.

=cut

method subrule (Code $code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9837	9962	
==>son.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.bu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9837	9962	
==>son.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.bu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4817	5023	
==>\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4667	4867	
==>\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capt <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	481	581	
==>n?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod B <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	481	581	
==>n?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod B <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20984	21082	
==>of functionality to Perl packages
or programs.  Your package or program can be distributed with one <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20984	21082	
==>of functionality to Perl packages
or programs.  Your package or program can be distributed with one <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5131	5239	
==>rn $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die <<"END_DIE";
The '$method' method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5881	5980	
==>kage => $pkg)

Returns a list of all index_files that a given package belongs to.

=cut

sub index_f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26231	26393	
==>t;
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'));                
            }
        )
    )
);

=pod

method add_subclass (opaque $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3166	3290	
==>[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3166	3290	
==>[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6577	6695	
==>an1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6577	6695	
==>an1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8277	8385	
==>en the regex is finished being parsed, next() returns false, and will
return false if called again.

=head2 B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7026	7163	
==>s $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7026	7163	
==>s $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_ma <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11133	11265	
==>ek (Int $position, Int $whence = $File::SEEK_START)
            returns Bool is primitive is unsafe is builtin {
        Pugs::Intern <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19119	19218	
==>-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(Re,F0,F1,B0,B1,E0,Ex),
  appe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1945	2041	
==>icle on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1945	2041	
==>icle on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2103	2231	
==>ATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2103	2231	
==>ATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDA <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	377	476	
==>ve
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	377	476	
==>ve
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	924	1034	
==>ot inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	924	1034	
==>ot inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6974	7117	
==>p::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6741	6879	
==>p::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7971	8058	
==>{ Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1796	1883	
==>{ Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	837	955	
==>?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	837	955	
==>?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8420	8529	
==>s/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8420	8529	
==>s/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4066	4181	
==>ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4250	4365	
==>ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14076	14186	
==>eate a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14076	14186	
==>eate a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1223	1353	
==>$param;
}

sub enter_scope {
	my $self = shift;

	push @{ $self->{param_count_stack} }, 0;
	
	$self->SUPER::enter_scope;	
}

sub le <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	957	1055	
==>t)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	957	1055	
==>t)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17300	17394	
==>add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17300	17394	
==>add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5359	5536	
==>rn $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5359	5536	
==>rn $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    met <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11795	11898	
==>eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11795	11898	
==>eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1169	1319	
==>te_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1374	1524	
==>te_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # lo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12918	13019	
==>ating through the span range, the unit is added to the current value to get the next value.
The unit s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12918	13019	
==>ating through the span range, the unit is added to the current value to get the next value.
The unit s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16318	16415	
==>ld indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16318	16415	
==>ld indicates the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

Th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5110	5273	
==>on')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6619	6765	
==>n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\
\\n   List      pre     keys    safe   (r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4628	4738	
==>r, $post_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4628	4738	
==>r, $post_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10980	11135	
==>n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10980	11135	
==>n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8204	8315	
==>reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your tree in a top- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8204	8315	
==>reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your tree in a top- <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5925	6206	
==>nts<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token) <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5925	6206	
==>nts<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1335	1447	
==>copes (not really a reduer).

=head1 SYNOPSIS

    use base qw/Blondie::Reducer::DynamicScoping/;

    ...

    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3430	3534	
==>right->params) == bit->new(1) && 
     $left->returns eq $right->returns) ? 
        bit->new(1) : bit->n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14843	14942	
==>$!document> - B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14843	14942	
==>$!document> - B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1174	1259	
==>s::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1174	1259	
==>s::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	892	1002	
==>essage class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message ob <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	892	1002	
==>essage class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message ob <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	112	221	
==>mitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filena <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	112	221	
==>mitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filena <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5470	5667	
==>en rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @line <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5470	5667	
==>en rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @line <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2207	2328	
==>me: $config->{osname}

Please notify the maintainer of this code. (Brian Ingerson for now)
.
# XXX Not sure about the abov <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	647	744	
==>osure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	647	744	
==>osure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1874	1975	
==>lse{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1874	1975	
==>lse{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8406	8552	
==>ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8406	8552	
==>ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21656	21769	
==>t in which they are using your package.  One
can override simply by using the same key code with a new user messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21656	21769	
==>t in which they are using your package.  One
can override simply by using the same key code with a new user messag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1381	1475	
==>f->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1521	1615	
==>f->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{as <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4268	4409	
==>= Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4268	4409	
==>= Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16256	16342	
==>:-    rm(Re,B0,_,F0,_,E0,_).
rm(lookbehind_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3480	3582	
==>{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3480	3582	
==>{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$param_name} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18408	18519	
==>e corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the fut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18408	18519	
==>e corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the fut <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	916	1028	
==>G> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	916	1028	
==>G> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1260	1367	
==>ent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1260	1367	
==>ent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) return <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3587	3684	
==>\$\@\&\%]?)([a-zA-Z0-9_]+)(\s?)/&syn($1,$2,$3)/gme;
#    # comments
#    $file =~ s/#(.*)$/XXX$1YY <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	575	687	
==>PI; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor options

With no options, Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	575	687	
==>PI; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Constructor options

With no options, Ci <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7012	7153	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7205	7346	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32983	33083	
==>er

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more el <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32983	33083	
==>er

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more el <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7724	7833	
==>re?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional "cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7463	7568	
==>re?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional "cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8648	8754	
==>"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8648	8754	
==>"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4108	4213	
==>2 bool

When used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4108	4213	
==>2 bool

When used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7673	7791	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_method'), 
    # method body
        m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	534	806	
==>TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validato <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	534	806	
==>TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validato <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	465	639	
==>ntcolor = orange, " . 
                    "color = orange, " . 
                    "style = rounded, " .
                    "label = \"" . $node->name . "(" . $node->id . " <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	586	697	
==>n=();
}

sub SessionCode(@variables) {
    my(@coded);
    for(@variables) {
        push(@coded,$_ ~ "=" ~ url_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5255	5356	
==>ll fetch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5255	5356	
==>ll fetch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  Th <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1029	1160	
==>type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1029	1160	
==>type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1483	1709	
==>"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        el <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1483	1709	
==>"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        el <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1081	1183	
==>The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1081	1183	
==>The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	723	1033	
==>hen 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	723	1033	
==>hen 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6686	6807	
==>ort.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $self->{error} = "$file does n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5140	5253	
==>:Placeholder")){
			my $new = $type->type;
			return $type if ref $new and $new == $type;
			$type = $new;
		}
		$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10349	10453	
==>NS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10349	10453	
==>NS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21625	21772	
==>h => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18046	18193	
==>h => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	796	910	
==>sts, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	854	968	
==>sts, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1982	2089	
==>protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Boo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1982	2089	
==>protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Boo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7393	7558	
==>ethod in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7393	7558	
==>ethod in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4728	4849	
==>p1 => 'method_call', self => $_[1], method => $_[3], param => $_[4], } }
        

    | MY NUM attr 
        { $_[0]->{ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5136	5302	
==>atch2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5136	5302	
==>atch2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9130	9228	
==>:Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9130	9228	
==>:Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10138	10247	
==>kg,$name)=@_;
    $package_name = $pkg || '__PACKAGE__';
    $method_name = $name || 'emit';
}
sub gen {
    m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2210	2310	
==>).
Then, it creates a initrd and copies your pugs binary and the shared libraries
it needs on it. Fin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3685	3786	
==>, '... still got the right y for p2');
is($p1->get_x, 15, '... still got the right x for p1');
is($p1- <==
2	/Users/nnunley/pugs/util/claim_drift.pl	572	675	
==>T directory found. Make sure you are in the top level of a pugs
    working directory, and that you have <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12685	12780	
==>acter entities.  The module provides the following functions:

=over 4

=item decode_entities( $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12685	12780	
==>acter entities.  The module provides the following functions:

=over 4

=item decode_entities( $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2265	2402	
==>r 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2265	2402	
==>r 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = re <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5851	5943	
==>%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5851	5943	
==>%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22861	22957	
==>>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22861	22957	
==>>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2749	2884	
==>ernary( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    return statement( $n )
        if ref $n->{op1} && exists $n- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34195	34288	
==>s the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names! ) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34195	34288	
==>s the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names! ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5517	5645	
==>pan.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5517	5645	
==>pan.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1183	1278	
==>Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1183	1278	
==>Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15025	15126	
==>xpression :words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpression> <'+'> <Mult <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13568	13679	
==>\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by entering the fol <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	46	168	
==>e strict;
use warnings;

use UNIVERSAL::moniker;
use Scalar::Util ();

sub reduce {
    my $self = shift;
    my $node = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11414	11512	
==>die "test.pl:runperl(): none of prog, progs, progfile, args, "
	    . " switches or stdin specified <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10371	10470	
==>class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10371	10470	
==>class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9794	9891	
==>if the return
value is undefined.

Rosetta::Model's input validation is performed over 2 main phas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9794	9891	
==>if the return
value is undefined.

Rosetta::Model's input validation is performed over 2 main phas <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10283	10411	
==>span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10283	10411	
==>span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3581	3698	
==>s' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::opaque_inst <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9696	9807	
==>t` =~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount \"$initrd_img\" into \"$initr <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	528	650	
==>>makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	429	551	
==>>makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17097	17267	
==>ammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17376	17546	
==>ammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6820	6964	
==>Junction)\
\\n   List      pre     Pair::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3121	3211	
==>:Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $ba <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10467	10567	
==>he => operator, you can use
'_' as a replacement for '-' in header names.

The header() method accept <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10467	10567	
==>he => operator, you can use
'_' as a replacement for '-' in header names.

The header() method accept <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1759	1896	
==>se;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        els <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1759	1896	
==>se;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        els <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1617	1729	
==>start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1617	1729	
==>start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34594	34689	
==>argument, where the heading of <$other> is a subset of the
heading of the invocant Relation, and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39144	39239	
==>argument, where the heading of <$other> is a subset of the
heading of the invocant Relation, and <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2405	2508	
==>\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2405	2508	
==>\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7736	7829	
==>lement(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @term <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1561	1654	
==>lement(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6225	6364	
==>reword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8043	8151	
==>orce a hash recompute if this perl's internals can cache the hash key.
    $key = "" . $key;
    if (exists $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20434	20555	
==>}xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16855	16976	
==>}xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->ad <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2653	2759	
==>- see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BU <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2653	2759	
==>- see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BU <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5715	5951	
==>o {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5715	5951	
==>o {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2404	2558	
==>{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    me <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2404	2558	
==>{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9203	9312	
==>d is undefined

=cut



### current implementation is always anchored at ^

### because it was specialized for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8902	9007	
==>d is undefined
=cut

### current implementation is always anchored at ^
### because it was specialized for <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6868	6967	
==>ings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6868	6967	
==>ings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35104	35196	
==>s method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39654	39746	
==>s method has an alias named C<matching>.

=item C<product (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2037	2155	
==>1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was i <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2037	2155	
==>1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23595	23707	
==>f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20016	20128	
==>f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1090	1201	
==>rns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1090	1201	
==>rns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	594	705	
==>his module does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# T <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	594	705	
==>his module does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2254	2376	
==>rm>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2265	2387	
==>rm>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22535	22652	
==>2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18956	19073	
==>2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12492	12606	
==>0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_B <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5967	6081	
==>0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_B <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	84	192	
==>Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should defa <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	84	192	
==>Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should defa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3510	3642	
==>s( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3974	4106	
==>s( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18435	18545	
==>t the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18435	18545	
==>t the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2505	2638	
==>, -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2505	2638	
==>, -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8252	8358	
==>field is not always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8252	8358	
==>field is not always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7771	7899	
==>ty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7771	7899	
==>ty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2334	2438	
==>sages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the auth <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2334	2438	
==>sages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the auth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2756	2879	
==>OKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2756	2879	
==>OKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2281	2400	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2281	2400	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (No <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4341	4446	
==>rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a mem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4341	4446	
==>rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a mem <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1	95	
==>class Perl::Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1	95	
==>class Perl::Compiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	0	100	
==>module Perl::Compiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	0	100	
==>module Perl::Compiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	461	564	
==>tring   returns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_ME <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	461	564	
==>tring   returns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_ME <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7736	7941	
==>newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newname <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7736	7941	
==>newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newname <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2885	2995	
==>b removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does not return a meanin <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2885	2995	
==>b removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does not return a meanin <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1186	1333	
==>say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2 <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1186	1333	
==>say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2 <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	244	359	
==>nted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wante <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	244	359	
==>nted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wante <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13474	13574	
==>>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

True if invocan <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	36	129	
==>---------------------------------
# This script converts p5 source to p6. Currently,
# only re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12947	13075	
==>code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_comma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12947	13075	
==>code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_comma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1157	1254	
==>mote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./han <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1157	1254	
==>mote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./han <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20360	20467	
==>my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	eval_p5_log_code($code);
	$mfun = eval($code);
	eval_p5_log_err <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1423	1521	
==>Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1423	1521	
==>Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	965	1120	
==>{
        return $TRUE;
    }    
}

sub and : method {
    my ($self, $block) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "AND t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22273	22378	
==>clare any subroutines or export such.

The usual way that Rosetta indicates a failure is to throw an excep <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22273	22378	
==>clare any subroutines or export such.

The usual way that Rosetta indicates a failure is to throw an excep <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21492	21630	
==>ock = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21771	21909	
==>ock = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	286	392	
==>,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do that yet <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	286	392	
==>,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do that yet <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2062	2284	
==>der' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2062	2284	
==>der' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	681	798	
==>er,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	681	798	
==>er,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1425	1526	
==>n a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's procedura <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1425	1526	
==>n a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's procedura <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20481	20606	
==>~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16902	17027	
==>~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S-> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27500	27621	
==>print "s>$s<\n";
	#use Data::Dumper; print Dumper($s);
	my $ret = swi_find_one(domatch($rem,$s,L),L);
	if ($ret) {
	    #p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2040	2160	
==>ng

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = spl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2040	2160	
==>ng

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = spl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14182	14310	
==>ointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree->[-1]- <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2765	2885	
==>b gen_source {
    my($target) = @_;
    open my $ofh, ">", $target or die "open: $target: $!";

    {
        my $prelud <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2673	2798	
==>e);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2673	2798	
==>e);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4184	4309	
==>ometimes resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pass) {
        # It seems Irix long doub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18977	19079	
==>er, this method removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18977	19079	
==>er, this method removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6449	6567	
==>bclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6449	6567	
==>bclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1110	1204	
==>s, written
in question/answer format, to explain the design and implementation of Pugs.

=head2 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1110	1204	
==>s, written
in question/answer format, to explain the design and implementation of Pugs.

=head2 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8352	8457	
==>$x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2554	2670	
==>elete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is cop <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2554	2670	
==>elete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is cop <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15937	16049	
==>my $v;
  { local $X::current_match = $m1;
    local $X::cap = [];
    $v = $ru->($rest);
  }
  FAIL_IF_FAILED($v) <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2132	2226	
==>$html =~ /pugs_versnum: ([\d.]+)/ and $smoke{pugs_version}  = $1;
  $html =~ /pugs_revision: (\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37239	37333	
==>ame of a Perl package in its positional parameter
$module_name (a string) and checks whether or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37239	37333	
==>ame of a Perl package in its positional parameter
$module_name (a string) and checks whether or <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19200	19321	
==>a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &Rx <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15621	15742	
==>a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &Rx <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6343	6479	
==>,
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6343	6479	
==>,
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1726	1851	
==>,  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1726	1851	
==>,  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1776	2197	
==>setta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1776	2197	
==>setta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Int <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14195	14292	
==>turn values of the callback routine are ignored.  The loop can
be broken by raising an exception ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14195	14292	
==>turn values of the callback routine are ignored.  The loop can
be broken by raising an exception ( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10370	10466	
==>itting your own smoke is easy,
  </p>

  <pre class="indent2">$ make smoke
$ ./util/smokeserv/smo <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	245	337	
==>e historical amusement, I've inserted unchanged
# my original first attempts, head.p6, tail.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	165	302	
==>}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	165	302	
==>}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	821	933	
==>e($_) . ";\n\n";
	} @nodes, $program);

	$out;
}

sub make_name {
	my $self = shift;
	my $node = shift;

	$self-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3697	3797	
==>tions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3697	3797	
==>tions.

= AUTHOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6789	6926	
==>'^' : ''),
               $self->{type}, $self->{how};
    }
  }

  sub neg {
    my $self = shift;
    if (ref $self->{data}) {
      $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	207	347	
==>}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	207	347	
==>}'    => \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46602	46873	
==>que'),                
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->creat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1944	2056	
==>_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1944	2056	
==>_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3278	3419	
==>{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3278	3419	
==>{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Confi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3752	3897	
==>ool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3945	4090	
==>ool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2093	2196	
==>op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2093	2196	
==>op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4485	4610	
==>{
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $lengt <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4485	4610	
==>{
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $lengt <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12485	12591	
==>types of spans.

- Discrete span

This is used to represent ranges of things that can be counted, such as b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12485	12591	
==>types of spans.

- Discrete span

This is used to represent ranges of things that can be counted, such as b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3457	3555	
==>icode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3641	3739	
==>icode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   ( <==
2	/Users/nnunley/pugs/util/func_refact.pl	2634	2748	
==>}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) for
        sort {s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4188	4286	
==>16, 17, 18, 19 and
20 failed).

=back


=head2 Functions

Test::Harness currently only has one func <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7899	8032	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'prop',
      type => $type,
      data <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37379	37467	
==>ods') => attribute->new('%:private_methods' => 'hash')));
$::Class->send('add_attribute', <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4923	5174	
==>n rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4923	5174	
==>n rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	719	859	
==>em) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	719	859	
==>em) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22958	23143	
==>ation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23237	23422	
==>ation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfi <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1211	1353	
==>(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{
		ast => App(
			Val(
				Th <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1471	1563	
==>r($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$cwd/win32/$ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2172	2285	
==>pt      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $Real <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2172	2285	
==>pt      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $Real <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32562	32691	
==>patcher_iterator' => $e->get('$self:')->send('MRO')->reverse);
            }
        )
    )
);

=pod

method _make_ascendant_disp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17770	17887	
==>sub strap_callback {
    my($self, $line, $type, $totals) = @_;
    print $line if $Verbose;

    my $meth = $Handlers <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1944	2044	
==>ns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1944	2044	
==>ns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	913	1044	
==>lib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	790	897	
==>lib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	590	703	
==>Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	590	703	
==>Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20872	20964	
==>],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_bound <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2560	2653	
==>Declaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2560	2653	
==>Declaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	172	270	
==>ng = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	172	270	
==>ng = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Vari <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10847	10951	
==>1,2,3,4);

Note that in this instance, the information about how many members
were actually new is discar <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10847	10951	
==>1,2,3,4);

Note that in this instance, the information about how many members
were actually new is discar <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31600	31701	
==>s True or False regardless of its
argument, in which case the new Relation has either all of the tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36150	36251	
==>s True or False regardless of its
argument, in which case the new Relation has either all of the tuple <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2895	3007	
==>r('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	926	1038	
==>r('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14022	14123	
==>h value.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14022	14123	
==>h value.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the he <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8904	9052	
==>:constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9097	9245	
==>:constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10058	10235	
==>, { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10058	10235	
==>, { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3220	3339	
==>($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_perl_type {
		my $self = shift;
		my $no <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5792	5931	
==>til::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5792	5931	
==>til::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1108	1204	
==>d1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1108	1204	
==>d1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5921	6053	
==>urn $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5921	6053	
==>urn $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.en <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1961	2052	
==>LF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1961	2052	
==>LF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1320	1445	
==>ns have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last tra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1320	1445	
==>ns have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last tra <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1354	1485	
==>if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNO <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1354	1485	
==>if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNO <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9798	9917	
==>parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9798	9917	
==>parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2726	2823	
==>'non'    unless defined $opt->{assoc};
    $opt->{fixity} = 'prefix' unless defined $opt->{fixity <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7643	7739	
==>variable {
    return $_[0];
}
*node::varscalar = *node::varhash = *node::variable;
sub node::emp <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	335	447	
==>)
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method cr <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	335	447	
==>)
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method cr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	415	530	
==>cope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexi <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	415	530	
==>cope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17268	17368	
==>Compile compilers gives you the following benefits:

=over

=item *

Ability to mix many source filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17268	17368	
==>Compile compilers gives you the following benefits:

=over

=item *

Ability to mix many source filte <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4338	4439	
==>it(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4338	4439	
==>it(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1956	2092	
==>{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2016	2152	
==>{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3328	3437	
==>lue or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utili <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3328	3437	
==>lue or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utili <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4064	4179	
==>s Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4064	4179	
==>s Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7929	8041	
==>mplement_previous ($self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7929	8041	
==>mplement_previous ($self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_u <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	983	1370	
==>olor = grey60, "
                            :
                            "color = green, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8716	8803	
==>rset_def([char(45)|L]) --> "-", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), !. % 4 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23450	23551	
==>orted.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23450	23551	
==>orted.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1464	1605	
==>{
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } els <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1464	1605	
==>{
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } els <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8474	8579	
==>arp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ / <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8474	8579	
==>arp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ / <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15567	15723	
==>"TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15567	15723	
==>"TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mod <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2791	2892	
==>ex (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2791	2892	
==>ex (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3314	3429	
==>->{extensions}};
    unless ( @exts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensi <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1865	1979	
==>ubscriber;

    method match ($notification) {
        # this is really up to your subscription and event subclasse <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13075	13190	
==>, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13075	13190	
==>, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23193	23305	
==>inct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27745	27857	
==>inct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5915	6078	
==>_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5915	6078	
==>_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8783	8895	
==>span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8783	8895	
==>span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14092	14186	
==>be given to specify which
characters to consider unsafe (i.e., which to escape). The default se <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14092	14186	
==>be given to specify which
characters to consider unsafe (i.e., which to escape). The default se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	933	1036	
==>e types of types we have are:
# type::operator
#	::binary - takes 2 params (e.g. ->, x)
#	::nullary - ta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33513	33616	
==>eper and
shallower in scope; C<sub { -1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4922	5062	
==>circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "D <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4922	5062	
==>circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	616	759	
==>nless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	627	770	
==>nless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6734	6833	
==>no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6734	6833	
==>no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8290	8459	
==>urn abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8290	8459	
==>urn abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24781	24898	
==>$S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21202	21319	
==>$S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2431	2555	
==>nal $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2431	2555	
==>nal $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3726	3824	
==>gn :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3726	3824	
==>gn :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34142	34245	
==>n be any defined and non-empty string.

=back

This is the main Translator constructor method:

=over

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34142	34245	
==>n be any defined and non-empty string.

=back

This is the main Translator constructor method:

=over

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	593	712	
==>mar)->( $_[0], undef, $tree, $tree )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	394	477	
==>Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L<JIB::Package::Installed>, L<JIB:: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12374	12554	
==>x}) {
                    my ($txt, $canon) = _canonfailed($test{max},$test{skipped},
                                                    @{$test{failed}});
                    prin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5748	5866	
==>mpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5748	5866	
==>mpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9287	9403	
==>nless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11602	11718	
==>nless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15646	15781	
==>hrottling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15646	15781	
==>hrottling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5716	5824	
==>n}.keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5716	5824	
==>n}.keys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18353	18450	
==>ress was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<ref <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18353	18450	
==>ress was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<ref <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13264	13359	
==>, and the type of the body
fun: type($$) = {
	type::operator::arrow->new(
		new_env($$)->{ $.par <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10230	10327	
==>t.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Ins <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10230	10327	
==>t.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Ins <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11786	11881	
==>$Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11786	11881	
==>$Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31813	31914	
==>:Example>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational op <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32860	32961	
==>:Example>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3358	3476	
==>0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3358	3476	
==>0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3147	3328	
==>e(
    #        name => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PAC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34049	34148	
==>slating a message, a match in found in the most preferred language
is used.  Each Set Name can be an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34049	34148	
==>slating a message, a match in found in the most preferred language
is used.  Each Set Name can be an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1056	1188	
==>ule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1056	1188	
==>ule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9365	9513	
==>n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $self = shift;';
        # method clear {
        #warn " <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3382	3468	
==>\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3382	3468	
==>\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1519	1627	
==>_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1519	1627	
==>_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.en <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5686	5792	
==>_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5686	5792	
==>_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @span <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8025	8128	
==>FooBar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iFoo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7379	7491	
==>del::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7379	7491	
==>del::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'int <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1503	1651	
==>turn TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file nam <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1503	1651	
==>turn TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11628	11730	
==>Node - This stores a collection of Node objects,
which are all of the Nodes that live in this Document. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11628	11730	
==>Node - This stores a collection of Node objects,
which are all of the Nodes that live in this Document. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3953	4086	
==>) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1353	1469	
==>->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<item>',
    my ($self, $op) = @_;
    print "emittin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16461	16554	
==>ket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16461	16554	
==>ket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(r <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1447	1543	
==>nd are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1447	1543	
==>nd are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<bu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4282	4393	
==>rn $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4282	4393	
==>rn $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2971	3073	
==>is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning u <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2971	3073	
==>is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning u <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3822	3924	
==>oin "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSIO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3822	3924	
==>oin "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSIO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2471	2686	
==>le_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2718	2933	
==>le_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8156	8257	
==>) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1981	2082	
==>) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	258	395	
==>tems max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to proc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	258	395	
==>tems max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to proc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	356	623	
==>pe {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	356	623	
==>pe {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	873	991	
==>my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload();
} else {
  process_list();
}

exit;

sub process_up <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35887	35993	
==>Example that has the same heading
and whose body contains all of the tuples that are in either or both of t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34459	34556	
==>ijoin (Relation $other!) returns Relation>

This method is a generic relational operator that take <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39009	39106	
==>ijoin (Relation $other!) returns Relation>

This method is a generic relational operator that take <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15796	15952	
==>m0->{$name}||[]}];
    push(@{$m0->{$name}},$m1); #see below
    $X::cap = $cap;
    $X::current_match = $m0;
    TAILCALL(&$cn,$c);
  };

  my $v;
  { local <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	690	795	
==>a rootdir gets changed

### base dirs
### XXX touch the 'root' entry and the tests will run somewhere quit <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	661	769	
==>is node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	661	769	
==>is node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13142	13235	
==>ocale::KeyedText" package serves only as the name-sake
representative for this whole file, whi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13142	13235	
==>ocale::KeyedText" package serves only as the name-sake
representative for this whole file, whi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7640	7751	
==>ontains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arith <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7640	7751	
==>ontains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arith <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18350	18447	
==>address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18350	18447	
==>address was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I< <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3289	3387	
==>pt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3289	3387	
==>pt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6684	6785	
==>flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6696	6797	
==>flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3104	3213	
==>EBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.g <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3104	3213	
==>EBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7639	7801	
==>ocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7639	7801	
==>ocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21287	21383	
==>head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21287	21383	
==>head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22151	22375	
==>constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22430	22654	
==>constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6557	6657	
==>{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	674	776	
==>u give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	674	776	
==>u give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns S <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	18	127	
==>-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need thes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	18	127	
==>-0.0.1;
use v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need thes <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1413	1516	
==>::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1413	1516	
==>::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1840	1967	
==>ther {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1840	1967	
==>ther {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	438	573	
==>ngine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	438	573	
==>ngine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1241	1337	
==>ules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently thi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1241	1337	
==>ules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently thi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1684	1813	
==>r 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1684	1813	
==>r 
    # trait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	631	735	
==>ule allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAV <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	631	735	
==>ule allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAV <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25672	25765	
==><${&Rx}> everywhere, it's because an lvalued subroutine returning a
normal scalar doesn't work <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	30	138	
==>ine;

# - fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::Perl5::Ratchet for the fin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18133	18246	
==>val { $proto->can($method) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2120	2213	
==><new (*native*) returns num>

=item B<to_native () returns *native*>

=item B<to_bit () return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28759	28870	
==>mplate file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28759	28870	
==>mplate file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10647	10775	
==>th {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10647	10775	
==>th {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $pat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	958	1059	
==>S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	958	1059	
==>S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37718	37863	
==>s => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      branch => 1,
      neg => !$pos,
    }, $class;
    return $self;
  } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	726	836	
==>~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	726	836	
==>~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is exp <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4619	4700	
==>ed ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4619	4700	
==>ed ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12083	12179	
==>c?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12141	12237	
==>c?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() since <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5245	5342	
==>/type::operator::binary/;

sub symbol { "×" }


package type::variable;
use base qw/type/;

packa <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	75	187	
==>} # geht leider nicht!
sub PoundToEuro { @_[0] * 1.4656 }

# interpolierter Funktions-Aufruf
print "100£ sind @{ <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1367	1475	
==>sub concatenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p[0]
    if +@p = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17145	17247	
==>p to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17145	17247	
==>p to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1254	1356	
==>ly compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1254	1356	
==>ly compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11694	11807	
==>sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11688	11801	
==>sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } q <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	360	471	
==>AP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	360	471	
==>AP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8017	8128	
==>ation") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8017	8128	
==>ation") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	975	1094	
==>ruct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1639	1758	
==>ruct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16578	16677	
==>dText gives your application the maximum amount of control as
to what the user sees; it never output <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16578	16677	
==>dText gives your application the maximum amount of control as
to what the user sees; it never output <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4915	5021	
==>$char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4915	5021	
==>$char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9175	9274	
==>IPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is enti <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9175	9274	
==>IPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is enti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43376	43473	
==>tion of a Relation class.

These other Perl 6 packages also work in the problem domain of managing <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1727	1817	
==>= Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1727	1817	
==>= Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27340	27436	
==>e parser C<FLAG_$flag>, and sets it to
the code reference in $code.  Example:

  $parser->add_fla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4996	5100	
==>ompiler::Rule->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23401	23526	
==>"$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19822	19947	
==>"$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{f <==
2	/Users/nnunley/pugs/util/grokprims.pl	2307	2402	
==><table border='1' width='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	44	135	
==>:Type;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3035	3143	
==>o we can provide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3035	3143	
==>o we can provide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11136	11286	
==>=> sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->ca <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2117	2247	
==>og 2>&1") != 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10319	10434	
==>( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10319	10434	
==>( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3019	3127	
==>dl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3019	3127	
==>dl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15226	15329	
==>OSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9424	9527	
==>OSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19630	19724	
==>d C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashre <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19630	19724	
==>d C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashre <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10897	11052	
==>range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10897	11052	
==>range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4495	4598	
==>ce ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_p <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4495	4598	
==>ce ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2261	2438	
==>art,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2261	2438	
==>art,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9778	9893	
==>normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler regi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9778	9893	
==>normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler regi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4571	4682	
==>umber of caps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10171	10283	
==>and is essentially just
concerned with the well-formedness of the input, such as that mandatory
constructor argum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10171	10283	
==>and is essentially just
concerned with the well-formedness of the input, such as that mandatory
constructor argum <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	4	104	
==>ss Meta::Class;

use Set;
use Meta::Assoc;
use Meta::Attrib;
use Meta::Method;

use Meta::Util;

Has( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30840	30936	
==>nig held the torch for many years, and then
Michael G Schwern.

Current maintainer is Andy Lester <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2147	2274	
==>rnal {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2147	2274	
==>rnal {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	607	714	
==>>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	607	714	
==>>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3100	3431	
==>}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3100	3431	
==>}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by t <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	784	907	
==>$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13449	13546	
==><$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - back <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13449	13546	
==><$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - back <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7102	7230	
==>$@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7114	7242	
==>$@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3488	3591	
==>isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pug <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3488	3591	
==>isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pug <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3909	4012	
==>elf->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5268	5371	
==>elf->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9775	9903	
==>n;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into quant.
  package Regexp::Parser::minmod;
  sub emit { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6791	6903	
==>d an external Perl template module; on a require
        # failure, we assume that module intentionally doesn't e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6791	6903	
==>d an external Perl template module; on a require
        # failure, we assume that module intentionally doesn't e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	33	142	
==>ar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	33	142	
==>ar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	190	311	
==>ed nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexica <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	190	311	
==>ed nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexica <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4375	4495	
==>d this message).
AD
        }
    }
    #$self->{_smoker} ||= { name => "anonymous" };
}

sub get_tests {
    my($self) = <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2417	2513	
==>ns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2417	2513	
==>ns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	163	263	
==>URITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	163	263	
==>URITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10046	10159	
==>string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10046	10159	
==>string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1238	1330	
==>recurrence set.

These methods are disabled: complement(), difference($set)

  -------------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1238	1330	
==>recurrence set.

These methods are disabled: complement(), difference($set)

  -------------- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	804	943	
==>0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	804	943	
==>0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 + <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8145	8272	
==>ion', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8145	8272	
==>ion', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => ' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12573	12675	
==>ess, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12631	12733	
==>ess, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $expected, S <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1861	2020	
==>part with metadata
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'files.list';                     # .packlist equiv <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	397	499	
==>> 0;

	$symmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_h <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3212	3349	
==>zing lookup for named events stores things in a hash to reduce algorithmic complexity
            gather {
                given $event.na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	362	481	
==>. join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20079	20194	
==>p::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20358	20473	
==>p::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15766	15903	
==>ernal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19999	20136	
==>ernal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11878	11977	
==>ests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11878	11977	
==>ests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3454	3564	
==>file =~ s/([\$])/\\$1/gm;
#    # latex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlight <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1371	1467	
==>turn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1371	1467	
==>turn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1953	2072	
==>gex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1953	2072	
==>gex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	953	1236	
==>/
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	953	1236	
==>/
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35766	35861	
==>s C<$other> argument, where <$other> has the same heading as
the invocant Relation::Example, and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37798	37893	
==>s C<$other> argument, where <$other> has the same heading as the
invocant Relation::Example, and <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	245	361	
==>d

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> }, <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	245	361	
==>d

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2933	3140	
==>ch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2933	3140	
==>ch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m-> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	45	306	
==>t;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	45	306	
==>t;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16060	16157	
==>e they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> file <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16060	16157	
==>e they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> file <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	149	242	
==>::Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.02';
use strict;
use File::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	321	445	
==>up circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	321	445	
==>up circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	372	604	
==>n: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	372	604	
==>n: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3137	3262	
==>$m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3137	3262	
==>$m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_capture <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2292	2475	
==>";
    exit(0);
    }
    unless (-f "$exename.exe") {
    if (open(LOG,'log'))
         {
          while(<LOG>) {
         print "# ",$_;
          }
         }
        els <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	444	553	
==>d $planned && $planned != $ran) {
	    print STDERR
		"# Looks like you planned $planned tests but ran $ran.\n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4499	4611	
==>erse =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4499	4611	
==>erse =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7712	7826	
==>for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7712	7826	
==>for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and % <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3495	3597	
==>as little code as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-0 <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3495	3597	
==>as little code as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-0 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5279	5379	
==>' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END_DIE

    my $o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3615	3708	
==>(positional invocant named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2724	2816	
==>e::Reducere> that performs the actions denoted by
the AST, ultimately flattenning the tree do <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20884	20970	
==>__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__object__>.

=item Cleaner Grammar Flow <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3997	4105	
==>, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3997	4105	
==>, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	361	470	
==>::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	361	470	
==>::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13140	13238	
==>r field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13140	13238	
==>r field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1702	1790	
==>once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1702	1790	
==>once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15742	15838	
==>g an error message, the
application's developer should see more details than joe public would.

A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15742	15838	
==>g an error message, the
application's developer should see more details than joe public would.

A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	879	992	
==>use Data::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rul <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17056	17161	
==>lti Str::uc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after converting each <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21120	21253	
==>h @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17541	17674	
==>h @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1789	1888	
==>s tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1789	1888	
==>s tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice( <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	260	366	
==>ep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Compari <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	260	366	
==>ep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Compari <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3212	3326	
==>6Rule::optable = $optable;





package P6RulesInP5::P6Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6038	6151	
==>ubmatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6050	6163	
==>ubmatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: " <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1961	2218	
==>ode<Str>),
                        Tree.new(:node<Ref>),
                        Tree.new(:node<IO>),
                        Tree.new(:node<Socket>),
                        Tree.new(:node<Thread>),
                        Tree.new(:node<Code>).add_children <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9429	9536	
==>o the perl program ]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netw <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9571	9677	
==>divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9571	9677	
==>divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $cl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32699	32798	
==>ult;
the new Relation contains all the tuples of the source Relations, including
one copy each of an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37249	37348	
==>ult;
the new Relation contains all the tuples of the source Relations, including
one copy each of an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6246	6364	
==>ar eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6234	6352	
==>ar eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1332	1443	
==>ool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1332	1443	
==>ool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2564	2662	
==>rl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Int <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1793	1905	
==>f.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1793	1905	
==>f.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5833	5952	
==>l $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5891	6010	
==>l $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37146	37276	
==>1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handler('!' => sub {
      my ($S) = @_;
      pus <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	370	471	
==>b reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	370	471	
==>b reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   ret <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9894	9991	
==>tility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9952	10049	
==>tility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9084	9208	
==>rray

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9072	9196	
==>rray

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8450	8550	
==>ate
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8450	8550	
==>ate
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3159	3290	
==>esult1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3705	3836	
==>esult1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24863	24964	
==>me that it has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24863	24964	
==>me that it has succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2692	2809	
==>ound => bound => '\b');
  });

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->w <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	418	546	
==>ew = (ref $self)->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } } <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1473	1571	
==>ed", either by giving 
them to the unexported C<Log::Selective::select> function or by including th <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1473	1571	
==>ed", either by giving 
them to the unexported C<Log::Selective::select> function or by including th <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2218	2318	
==>t types of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for m <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2218	2318	
==>t types of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13388	13565	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13667	13844	
==>capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18466	18621	
==>t( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18745	18900	
==>t( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gramm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2162	2262	
==>SS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2162	2262	
==>SS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_ke <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4995	5137	
==>f: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4995	5137	
==>f: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.sp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	357	533	
==>h    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	351	527	
==>h    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	54	156	
==>se CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<store_fd fd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	137	259	
==>c = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
die "this is not a .pl, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16108	16257	
==>call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16102	16251	
==>call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7122	7268	
==>ch = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7122	7268	
==>ch = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4109	4277	
==>undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4249	4417	
==>undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  " <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	921	1017	
==>t (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	921	1017	
==>t (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8428	8533	
==>n::Example.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9733	9832	
==>t /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9733	9832	
==>t /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6982	7160	
==>odule_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6982	7160	
==>odule_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1148	1258	
==>}= { type => $_[1], %{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{out}= { named_only => 1, %{$_[2]} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6652	6767	
==>return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? . <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6652	6767	
==>return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? . <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10480	10613	
==>de<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10480	10613	
==>de<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_childr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3016	3134	
==>will need to be sent to the other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3016	3134	
==>will need to be sent to the other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9231	9331	
==>ize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $call <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9231	9331	
==>ize $channel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $call <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1597	1717	
==>, @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1597	1717	
==>, @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4738	4848	
==>cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4738	4848	
==>cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7039	7137	
==>of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the remova <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7039	7137	
==>of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the remova <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11983	12131	
==>%as_num_handlers =
    ( undef => sub { Carp::carp("p6_as_num called on undef"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub <==
2	/Users/nnunley/pugs/util/package-osx.pl	1494	1614	
==>%change_files = qw(
        /usr/local/lib/perl5/site_perl/jspugs.pl /Library/Perl/5.8.6/jspugs.pl
        /usr/local/lib <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18101	18254	
==>er ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        giv <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4831	4950	
==>);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4889	5008	
==>);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclai <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12358	12443	
==>n], brackets(Open,Close), p6_hex_chars(R), [Close].
p6_hex_chars(R) --> hexdigits_int( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1427	1543	
==>od BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1427	1543	
==>od BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6905	7014	
==>erson = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6905	7014	
==>erson = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9987	10092	
==>stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return ga <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9987	10092	
==>stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return ga <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	502	598	
==>) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_durati <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	502	598	
==>) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_durati <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1077	1185	
==>$one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1077	1185	
==>$one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32460	32556	
==>his
method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37010	37106	
==>his
method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21873	21972	
==>KeyedText can be given input that says what resource
files it should use and in what order they shou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21873	21972	
==>KeyedText can be given input that says what resource
files it should use and in what order they shou <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16914	17046	
==>r skipped), false if its a failure

  exit              the exit code of the test run, if from a file
  wait              the wait co <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14950	15081	
==>s
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2930	3046	
==>rn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3779	3895	
==>rn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9872	9991	
==>w_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9872	9991	
==>w_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'pro <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6480	6577	
==>e';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6480	6577	
==>e';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16959	17060	
==>nce object, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16959	17060	
==>nce object, or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compa <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26341	26438	
==>AL_SEEN		0x00400
 #define ROPT_CANY_SEEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	189	337	
==>- redefine <ws> to test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'sing <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1231	1352	
==>st->files_list( $meta->package );
            open my $fh, $file or die "Could not open '$file': $!";
            map { ch <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5386	5487	
==>xrc,
  "welcome-p6=s"   => \$welcome_p6,
  "initrd-gz=s"    => \$initrd_gz,
  "initrd-img=s"   => \$in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2320	2457	
==>>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2320	2457	
==>>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	111	214	
==>es (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.new();  	# (fas <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2321	2412	
==>e->struct_equiv);
	(ref $node)->new(%$node, struct_equiv => $reduced_struct);
}

sub can_red <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2004	2132	
==>},
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = t <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2004	2132	
==>},
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = t <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	221	319	
==>, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
mult <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	221	319	
==>, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
mult <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1257	1395	
==>~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8515	8618	
==>se a different Perl than what you're running the harness under.
This might be to run a threaded Perl, fo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4911	5012	
==>j.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then clear <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4911	5012	
==>j.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then clear <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26198	26296	
==>free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a),
		type: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25955	26045	
==>free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1393	1495	
==>);
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1533	1635	
==>);
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	474	575	
==>ction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@item <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	474	575	
==>ction $!members;

method members() returns List {
    $!members.values;
}

method insert($self: *@item <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16132	16229	
==>ainly on how Rosetta itself works, and will
not spend much time in providing rationales; you can r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16132	16229	
==>ainly on how Rosetta itself works, and will
not spend much time in providing rationales; you can r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14106	14213	
==>e("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14106	14213	
==>e("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	745	1141	
==>43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	745	1141	
==>43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	842	941	
==>:PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	842	941	
==>:PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2444	2566	
==>od

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2444	2566	
==>od

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7728	7876	
==>turn ${$match<category>}.add_op( 
            name => $match<name>, 
            fixity => ..., 
            precedence => ...,
        );
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8654	8751	
==>head2 Setting and Parsing Together

You can also use parse() instead of regex() to set the regex a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	809	913	
==>eturn ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	897	1001	
==>eturn ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1747	1887	
==>delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1747	1887	
==>delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4840	4955	
==>, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4840	4955	
==>, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date") <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	397	514	
==>ator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1422	1530	
==>otype]]>;
    return JSX::undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18949	19045	
==>odelling anything in the real world accurately, and it
can support a complete SQL emulation layer <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18949	19045	
==>odelling anything in the real world accurately, and it
can support a complete SQL emulation layer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7583	7678	
==>b { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1408	1503	
==>b { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17636	17757	
==>ead1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17636	17757	
==>ead1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4428	4616	
==>return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4293	4476	
==>return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $ca <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	616	741	
==>eturns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results }

# it is abstract
method v <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	616	741	
==>eturns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results }

# it is abstract
method v <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8864	8964	
==>::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8922	9022	
==>::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junct <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9915	10064	
==>isfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11392	11541	
==>isfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6855	7002	
==>sc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6913	7060	
==>sc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Te <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5744	5959	
==>eck
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6208	6423	
==>eck
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	838	942	
==>ple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	838	942	
==>ple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	909	1034	
==>table',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        4 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	909	1034	
==>table',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        4 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12783	12879	
==>t2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12783	12879	
==>t2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17349	17443	
==>ix many source filterish modules in a much more sane manner.
Module::Compile controls the compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17349	17443	
==>ix many source filterish modules in a much more sane manner.
Module::Compile controls the compi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	356	457	
==>y () returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	356	457	
==>y () returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1257	1370	
==>ume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1257	1370	
==>ume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (sub <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1134	1247	
==>r::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1134	1247	
==>r::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1753	1858	
==>ew(map { str->new($_) } keys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1998	2098	
==>$1${2}6$3/i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	346	438	
==>input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	346	438	
==>input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1828	1929	
==>ntersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1828	1929	
==>ntersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span ) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	227	341	
==>is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{} <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	227	341	
==>is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21450	21548	
==>ther
attributes, though several attributes may store values of the same class;
every Relation tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26002	26100	
==>ther
attributes, though several attributes may store values of the same class;
every Relation tuple <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16964	17085	
==>new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16964	17085	
==>new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @q <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5530	5674	
==>)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6027	6166	
==>) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14254	14391	
==>= 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14248	14385	
==>= 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4172	4299	
==>}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4172	4299	
==>}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 in <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1056	1176	
==>ld::Config->pretty_print;

    my ($version, $ghc, $ghc_version, $setup, @args) = @{$opts->{GHC}};
    write_buildinfo($v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1297	1411	
==>thodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1286	1392	
==>thodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1634	1750	
==>ontent_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1634	1750	
==>ontent_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	847	974	
==>urns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	847	974	
==>urns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1456	1557	
==>ALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1436	1533	
==>ALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25473	25575	
==>ere the search
 * starts in the string, so if regback is >= 0, the regmust search is never
 * wasted ef <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1592	1703	
==>$bash         = "/bin/bash";
my $inputrc      = "/etc/inputrc";
my $terminfo     = "/etc/terminfo/l/linux";
my $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	528	638	
==>case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	528	638	
==>case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7294	7388	
==>d traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7294	7388	
==>d traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	33	200	
==>e functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $noplan;

$TODO = 0;
$NO_ENDING = 0;

sub plan {
    my $n;
    if (@_ == 1) {
	$n = shift <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2999	3244	
==>nts<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2999	3244	
==>nts<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15419	15550	
==>sses are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15413	15544	
==>sses are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]] <==
2	/Users/nnunley/pugs/util/claim_drift.pl	956	1116	
==>$orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or die "unlink: $!" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	804	926	
==>CT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2017	2141	
==>------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1618	1734	
==>struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $se <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2152	2260	
==>n the same for different tests.
    #
    my $target = $_[-1];
    for my $file (@{ $target->{meat}{test_file <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	764	880	
==>my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	764	880	
==>my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6955	7095	
==>loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6955	7095	
==>loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.cu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5361	5474	
==>of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5361	5474	
==>of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2209	2314	
==>connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2209	2314	
==>connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	59	168	
==>use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" func <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	55	159	
==>use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" func <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22616	22701	
==>type(C,to_lower(Cx)), code_type(C1,to_lower(C1x)), code_type(C2,to_lower(C2x)),
   C1x <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1690	1825	
==>rn;
        
        my $obj = $class->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20676	20767	
==>gth and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo.com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20676	20767	
==>gth and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo.com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14	125	
==>::Parser;

$VERSION = '0.21';

use 5.006;
use Carp qw( carp croak );
use base 'Exporter';
use strict;
use warnin <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12653	12788	
==>s($f);
        TAILCALL(&$c,$noop);
      }
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::po <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24773	24872	
==>ons on suitable starting points
 * for a match, cutting down the work a lot.  Regmust permits fast r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3094	3263	
==>defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2994	3158	
==>defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2131	2245	
==>rns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2131	2245	
==>rns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $chi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1054	1302	
==>} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Loc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1054	1302	
==>} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Loc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19176	19268	
==>ermuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19176	19268	
==>ermuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9595	9703	
==>st of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9595	9703	
==>st of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1268	1370	
==>( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($wo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1268	1370	
==>( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($wo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4744	4852	
==>}

sub add_definition {
	my $self = shift;
	my $node = shift;
	my $body = shift;

	push @{ $self->{defs} }, $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12593	12695	
==>_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12593	12695	
==>_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15320	15426	
==>$got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15378	15484	
==>$got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	413	521	
==>ars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	413	521	
==>ars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	205	318	
==>TFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREFIX => 4;
use constant PGE_OPTABLE_INF <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1725	1823	
==>scope is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method captu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1725	1823	
==>scope is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method captu <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1736	1833	
==>ructor takes as parameters at least C<rate of information> in
items per second and C<burst size> i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1736	1833	
==>ructor takes as parameters at least C<rate of information> in
items per second and C<burst size> i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1281	1410	
==>'$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1281	1410	
==>'$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6613	6723	
==>n);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6613	6723	
==>n);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18421	18520	
==>ng the most accurate program text
for users, we still get the best results by having a human being w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18421	18520	
==>ng the most accurate program text
for users, we still get the best results by having a human being w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10955	11103	
==>t, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardabl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10955	11103	
==>t, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardabl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4210	4304	
==>shift;
	my ($node, $symbol, $body, $type) = @_;
	$self->add_definition($node, "$type $symbol () <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24618	24724	
==>=>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21039	21145	
==>=>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    m <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	976	1094	
==>(sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15438	15539	
==>s_hash_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

sub p6_as <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8168	8281	
==>ects to
be called with a path (relative, absolute, or a command in
C<$ENV{PATH}> that can be used to execute F<ghc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3589	3730	
==>ngth;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tm <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3589	3730	
==>ngth;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tm <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3161	3284	
==>low_clone {
	my $self = shift;
	bless {%$self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	639	760	
==>\(my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6::Util::SExpParser-> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37288	37384	
==>to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41837	41933	
==>to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10167	10274	
==>NV{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15082	15176	
==>ssion>
    | <AdditiveExpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExpression> < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	324	441	
==>ace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	324	441	
==>ace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subru <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14130	14245	
==>tion @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17607	17722	
==>tion @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9325	9442	
==>$term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9313	9430	
==>$term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3110	3225	
==>functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3110	3225	
==>functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTI <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11860	11973	
==>reach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could no <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	269	377	
==>reach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	797	919	
==>message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.spl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	797	919	
==>message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.spl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	0	93	
==>package Pugs::Compiler::Perl6;
$Pugs::Compiler::Perl6::VERSION = '0.05';

# Documentation i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	374	496	
==>lf->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
        name => 'postfix <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13110	13232	
==>s->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$res <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13110	13232	
==>s->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$res <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	171	273	
==>enerate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	171	273	
==>enerate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rul <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12004	12127	
==>b new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    push @{ $self->{scopes}[-1] }, Pad->n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8408	8513	
==>Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2233	2338	
==>Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1675	1789	
==>ngo!"

=head1 DESCRIPTION

This is an port of Perl 5's POE to Perl 6. It is only an experiment, it's not
API compat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12536	12640	
==>n pass the result to is or ok
on success, or report that the eval was not successful on failure.

- `thro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12594	12698	
==>n pass the result to is or ok
on success, or report that the eval was not successful on failure.

- `thro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25368	25465	
==>h a system following the terms of the GPL for Rosetta and the licenses
of the other components con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25368	25465	
==>h a system following the terms of the GPL for Rosetta and the licenses
of the other components con <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1102	1215	
==>e {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemake <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1993	2106	
==>e {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemake <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4616	4715	
==>e rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4616	4715	
==>e rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the str <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1060	1185	
==>ch key of that Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to tha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4538	4663	
==>ch key of that Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to tha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8212	8336	
==>op::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8405	8529	
==>op::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42898	42987	
==>lasses that are in the current distribution:
L<Relation-(0.1.0)|Relation>.

=head1 INCOMPA <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9276	9399	
==>');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9334	9457	
==>');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10814	10917	
==>`use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10872	10975	
==>`use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12760	12861	
==>return value is the values of the fields removed.  In scalar
context the number of fields removed is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12760	12861	
==>return value is the values of the fields removed.  In scalar
context the number of fields removed is r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26811	26956	
==>n;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27090	27235	
==>n;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8782	9021	
==>"&dispatcher")->do()); 
            block->new($e, sub { 
                my $e = shift; 
                $e->get("$current")
                  ->send("has_method", $e->get("$label"))
                  ->and(
                      block->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	101	208	
==>_END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compiler::Regex';
use Pugs::Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24300	24416	
==>$S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20721	20837	
==>$S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4235	4359	
==>os1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub conca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4223	4347	
==>os1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub conca <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6244	6344	
==>Val' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6244	6344	
==>Val' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3202	3324	
==>i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3202	3324	
==>i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14420	14524	
==>s[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14420	14524	
==>s[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $chan <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2461	2559	
==>ad1 NAME

Blondie::TestPrograms - 

=head1 SYNOPSIS

	use Blondie::TestPrograms;

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2053	2153	
==>erators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2053	2153	
==>erators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16585	16695	
==>ains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16585	16695	
==>ains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2638	2741	
==>can compromise both encryptions.

If two different data streams are enciphered with the same key, the en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2638	2741	
==>can compromise both encryptions.

If two different data streams are enciphered with the same key, the en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22832	22948	
==>c")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22832	22948	
==>c")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2660	2807	
==>'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2853	3000	
==>'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3185	3280	
==>es => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test') <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3371	3466	
==>es => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test') <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1676	1778	
==>rive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_comma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1569	1659	
==>rive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_comma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3222	3318	
==>st value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3222	3318	
==>st value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@va <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5551	5706	
==>chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "g <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5551	5706	
==>chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5451	5554	
==>/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5261	5362	
==>/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitt <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23782	23890	
==>OWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one can look l <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22298	22406	
==>OWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one can look l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19389	19550	
==>my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}


sub p6_eval {
    my($p6,$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5227	5385	
==>quire Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5227	5385	
==>quire Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2835	3011	
==>ny($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6312	6488	
==>ny($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35330	35427	
==>=item C<get_set_names()>

This method returns all Set Names elements in this object as an array re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35330	35427	
==>=item C<get_set_names()>

This method returns all Set Names elements in this object as an array re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9370	9510	
==>te('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9370	9510	
==>te('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2158	2269	
==>eturn;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2136	2247	
==>eturn;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3516	3614	
==>butes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3516	3614	
==>butes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rose <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4317	4442	
==>tch::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4329	4454	
==>tch::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	340	455	
==>nted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @sta <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	340	455	
==>nted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @sta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13850	13949	
==>numeric     => sub { $as_array_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23855	23950	
==>es, and doesn't know about language specific details like
encodings or plurality.

My understand <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23855	23950	
==>es, and doesn't know about language specific details like
encodings or plurality.

My understand <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1009	1164	
==>lti sub reverse (; *@values) returns List|Str {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     whe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8874	8971	
==>string>

This event processes raw strings.

=item I<newline>

This event handles newlines in the t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8874	8971	
==>string>

This event processes raw strings.

=item I<newline>

This event handles newlines in the t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2640	2737	
==>pts.

=head2 Request Details

An HTTP::Request::CGI object has the following public attributes:

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2640	2737	
==>pts.

=head2 Request Details

An HTTP::Request::CGI object has the following public attributes:

= <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2698	2812	
==>self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2698	2812	
==>self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1244	1374	
==>FAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1244	1374	
==>FAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4454	4559	
==>],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4454	4559	
==>],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	281	413	
==>rom
    position
    coroutine
    capture
    hash
    integer
    number
    /
}

sub new {
  my $class = shift;
  my $object = ble <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50265	50384	
==>bol->new('$:authority'), $e->get('?$authority'));
                  }));
                $e->get('$self:')->get_attr(sym <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1194	1335	
==><+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{
		ast => A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15839	16006	
==>( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16118	16285	
==>( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4640	4773	
==>alue:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Addition must be implemented as a runtime primitive. <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5009	5121	
==>e, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep /\.a$/, @_) {
        # Do some very sneaky t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2737	2875	
==>eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2737	2875	
==>eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3267	3361	
==>l2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3267	3361	
==>l2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8152	8285	
==>inue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8152	8285	
==>inue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4242	4375	
==>ze();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 2 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4242	4375	
==>ze();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5202	5337	
==>e;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5395	5530	
==>e;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { ' <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2160	2287	
==>@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2160	2287	
==>@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6286	6424	
==>ircumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6286	6424	
==>ircumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7602	7745	
==>isfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	903	1046	
==>isfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4569	4677	
==>, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4569	4677	
==>, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a st <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19577	19684	
==>bj );
}
multi as (Hash $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $k,$v { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2472	2606	
==>nal {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].int <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2472	2606	
==>nal {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].int <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23985	24140	
==>],
      family => 'assertion',
      type => 'ifthen',
      data => [],
      down => 1,
      ifthen => 1,
    }, $class;
    return $self;
  }

  sub ra <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	31	131	
==>sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("C <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	31	131	
==>sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("C <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4312	4462	
==>th ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4312	4462	
==>th ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19207	19316	
==>errer.

=item $h.www_authenticate

This header must be included as part of a C<401 Unauthorized> response.
The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19207	19316	
==>errer.

=item $h.www_authenticate

This header must be included as part of a C<401 Unauthorized> response.
The <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4479	4574	
==>rl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4479	4574	
==>rl archive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5887	6025	
==>classes')      => list->new(),
            attribute->new('@:superclasses')    => list->new(),
            attribute->new('%:private_method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	514	614	
==>$dir  = $self->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19434	19564	
==>ol::Basic::nothing ()


 multi Control::Basic::sleep ( Num $for = Inf --> Num )
{
    Pugs::Internals::sleep($for);
}


# die 

# f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	714	821	
==>{xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump data as p5
sub p5 {
	local $Data::Dumper::Va <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2029	2233	
==>s => sub {
                my $self = shift;
                keys %{ $self->hash_fetch };
            },
            hash_deleteElem => sub {
                my $self = shift;
                my $idx = shi <==
2	/Users/nnunley/pugs/util/drift.pl	484	606	
==>{-!\s*global/) {
        print TMP $_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13507	13610	
==>s that side effects, such as "say" and
database queries, may occur much later than expected.

It may ent <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13507	13610	
==>s that side effects, such as "say" and
database queries, may occur much later than expected.

It may ent <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18541	18753	
==>_content($i, 1, $1, $2, $backlink, $3);
                      $found = 1;
                      last;
                    }

                    if (!$found) {
                      # Part of the content is inside <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25655	25754	
==>y. %s>

If not all tests were successful, the script dies with one of the
above messages.

=item C<F <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10188	10303	
==>5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $code_body = (' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1384	1484	
==>rces:
#   http://www.ecma-international.org/publications/standards/Ecma-262.htm
#   http://bclary.com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	104	353	
==>se Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	104	353	
==>se Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in thi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4916	5022	
==>self = shift;
	my $node = shift;

	$self->{defined_nodes}->insert($node);
}

sub node_is_defined {
	my $sel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3636	3759	
==>d == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3636	3759	
==>d == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	992	1089	
==>turn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	992	1089	
==>turn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2206	2346	
==>f $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2135	2272	
==>f $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abor <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	77	185	
==>rotoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	77	185	
==>rotoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	122	244	
==>files) {
    print STDERR "# $jsfile\n";
    my $cmd = '../../pugs -I . -e \'use Grammar; if slurp("'.$jsfile.'") ~~ /^<Jav <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	417	518	
==>_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 versi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	417	518	
==>_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 versi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	178	279	
==>rl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_n <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	178	279	
==>rl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6060	6146	
==>channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6060	6146	
==>channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22040	22135	
==>et> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22040	22135	
==>et> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6366	6483	
==>ef( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6378	6495	
==>ef( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flag <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	372	492	
==>$!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Per <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	372	492	
==>$!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Per <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35706	35798	
==>ational operator that takes a single
Relation::Example in its C<$other> argument, where <$oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37738	37830	
==>ational operator that takes a single Relation::Example
in its C<$other> argument, where <$oth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2957	3074	
==>> '\C');
  });

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2952	3064	
==>my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing da <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2952	3064	
==>my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing da <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1554	1657	
==>ck into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule:: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1554	1657	
==>ck into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4391	4487	
==>:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4391	4487	
==>:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	382	480	
==>l5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1239	1364	
==>s_list( $meta->package );
            open my $fh, $file or die "Could not open '$file': $!";
            map { chomp; $_ } <$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22539	22639	
==>amespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .param pmc pad
    .local string mnam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9585	9721	
==>ecause the
  # nextchar() method skips whitespace and comments


  ### '$'

  $self->add_handler('$' => sub {
    my ($S) = @_;

    if ( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1406	1512	
==>oto = $O.<[[Prototype]]>;
    return JSX::undefined if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1841	2103	
==>Yet)

    # Attributes of every Relation::Example::Tuple object:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Exa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25317	25397	
==>,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A,_,C <==
2	/Users/nnunley/pugs/util/func_refact.pl	1106	1219	
==>keys %ccset;
        print "doUnion: initial set size is " . scalar(keys %ccset) . "\n";

        print "\nFinding <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24312	24412	
==>int a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	50	143	
==>Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!out <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	50	143	
==>Test::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!out <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12596	12695	
==>recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `star <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12596	12695	
==>recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `star <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1654	1742	
==>ests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1654	1742	
==>ests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8191	8330	
==>s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8191	8330	
==>s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21494	21591	
==>ut another package or program which uses yours may wish to
override some of your messages, showing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21494	21591	
==>ut another package or program which uses yours may wish to
override some of your messages, showing <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2289	2388	
==>em B<add (x as num) returns num>

=item B<subtract (x as num) returns num>

=item B<mulitply (x as n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3699	3835	
==>tribute' => \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ($param) = \@_;\n" <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1345	1440	
==>emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2241	2367	
==>);
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2241	2367	
==>);
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an ar <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1955	2077	
==>ate {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1955	2077	
==>ate {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	799	893	
==>ed_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	799	893	
==>ed_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1239	1364	
==>s = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1239	1364	
==>s = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30973	31066	
==>ginal, in which case
this method returns the identity-one Relation or the invocant relation,
r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35523	35616	
==>ginal, in which case
this method returns the identity-one Relation or the invocant relation,
r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4398	4553	
==>ate'
            my $name = $ast->{op};
            if (   defined $name 
                && $name =~ /[[:alnum:]]$/ 
                && defined $$m->{tail} <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2211	2309	
==>}
}

class Class::Events::Subscription::Named {
    is Class::Events::Subscription;

    has $.name <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1698	1800	
==>ODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Inf <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1698	1800	
==>ODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Inf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1094	1234	
==>ers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.rem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1094	1234	
==>ers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.rem <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15776	15878	
==>n's developer should see more details than joe public would.

Alternately, sometimes a program will rai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15776	15878	
==>n's developer should see more details than joe public would.

Alternately, sometimes a program will rai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20699	20798	
==>est to your
preference.  Presumably the messages in these files are looked up by the
program using k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20699	20798	
==>est to your
preference.  Presumably the messages in these files are looked up by the
program using k <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1142	1236	
==>);
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3029	3148	
==>mper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3507	3626	
==>mper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_name <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3459	3596	
==>children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3459	3596	
==>children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17953	18070	
==>e"; any application receiving such a code can identify
it easily in its conditional logic, using a simple 'equals', an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17953	18070	
==>e"; any application receiving such a code can identify
it easily in its conditional logic, using a simple 'equals', an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24599	24696	
==>le () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=item C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29151	29248	
==>le () returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=item C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12969	13101	
==>Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6444	6576	
==>Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// an <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	11	110	
==>perl

package Blondie::Prelude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbol <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4589	4721	
==>fset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "ite <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4589	4721	
==>fset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "ite <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37299	37398	
==>join>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41848	41947	
==>join>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1034	1174	
==>eference) that contains 'return'
    label - the capture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1034	1174	
==>eference) that contains 'return'
    label - the capture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	744	873	
==>substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	744	873	
==>substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old ve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16662	16813	
==>ping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20139	20290	
==>ping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22049	22175	
==>(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18470	18596	
==>(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4580	4687	
==>y $i; my $unified_app = $rapp->fmap(sub {
			my $node = shift;
			return $node unless $i++; # skip the thunk <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17917	18017	
==>nd"),
	param => $pair,
);

# the polymorphic fst function takes any pair and returns it's first thing <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2927	3040	
==>: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = ca <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2927	3040	
==>: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = ca <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12150	12256	
==>};
  }
}
{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8862	8964	
==>ters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule DoubleStringCharacters {  # see 7.8.4 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2620	2728	
==><sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <si <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2620	2728	
==><sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <si <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11134	11237	
==>t.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not change the semant <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11134	11237	
==>t.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not change the semant <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14285	14496	
==>person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14285	14496	
==>person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	312	420	
==>MS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	312	420	
==>MS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engin <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1178	1292	
==>t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7106	7239	
==>a_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7106	7239	
==>a_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'nam <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3818	4149	
==>.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3818	4149	
==>.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4842	4960	
==>r is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# me <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4842	4960	
==>r is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5450	5608	
==>e don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, whi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5914	6072	
==>e don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, whi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3381	3476	
==>> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3381	3476	
==>> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	407	508	
==>.

All functions (but not macros) in this file need to have the
`is primitive` trait.

Please also dec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11387	11513	
==>sg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11387	11513	
==>sg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27180	27290	
==>it();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $parser->add_flag( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	687	840	
==>e_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my <==
2	/Users/nnunley/pugs/util/config_h.pl	1005	1108	
==>rint OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	343	504	
==>nd die $?;
    system( qq[mkdir -p $Meta $Site $Tmpdir $Bindir $Builddir $Alternatives ] .
            qq[$Repodir] )                                      and die <==
2	/Users/nnunley/pugs/util/drift.pl	375	486	
==>.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN, $in or die $!;
while (<IN>) {
    if (/\{-! <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5731	5829	
==>ontext, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5731	5829	
==>ontext, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	394	512	
==>g);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	394	512	
==>g);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2738	2832	
==>ts, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2738	2832	
==>ts, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4237	4342	
==>ption thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4295	4400	
==>ption thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11492	11633	
==>me * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11492	11633	
==>me * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($conn <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6812	6940	
==>dquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6812	6940	
==>dquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9276	9393	
==>gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9264	9381	
==>gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8967	9175	
==>ms )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8967	9175	
==>ms )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9761	9882	
==>tisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the want <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11238	11359	
==>tisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the want <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41021	41112	
==>Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41021	41112	
==>Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5386	5497	
==>nfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we al <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5386	5497	
==>nfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13975	14076	
==>valued, then the
routine is called once for each value.  The field name passed to the
callback routine <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13975	14076	
==>valued, then the
routine is called once for each value.  The field name passed to the
callback routine <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7522	7622	
==>nt ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

T <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7522	7622	
==>nt ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5121	5267	
==>ict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5121	5267	
==>ict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	52	142	
==>se Perl6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Core::Ref;

use Perl6::MM::Attribute <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11942	12045	
==>R FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11942	12045	
==>R FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10864	10961	
==>iverse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Other <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10864	10961	
==>iverse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Other <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10288	10400	
==>e}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10288	10400	
==>e}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        return <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15275	15381	
==>ng).

If you prefer not to import these routines into your namespace, you can
call them as:

  use HTML::En <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15275	15381	
==>ng).

If you prefer not to import these routines into your namespace, you can
call them as:

  use HTML::En <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	855	954	
==>y simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	855	954	
==>y simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2033	2149	
==>what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2033	2149	
==>what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6149	6279	
==>rn $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6149	6279	
==>rn $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3957	4067	
==>= ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamb <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2910	3018	
==>= ref($self->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self->preamb <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8549	8686	
==>le = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8549	8686	
==>le = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5317	5418	
==>port {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).ma <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5317	5418	
==>port {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9355	9457	
==>=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.supers <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9355	9457	
==>=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.supers <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35204	35300	
==>ranched

=head2 exact

Family: exact

Types: exact (C<abc>), exactf (C<abc> with C</i> on)

Data: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	251	364	
==>>compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	284	397	
==>>compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4936	5082	
==>efined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0]->{out}= \$_[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8778	8923	
==>atch->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8778	8923	
==>atch->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8728	8875	
==>~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8728	8875	
==>~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?( <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1273	1384	
==>gin("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1240	1351	
==>gin("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($fi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4709	4810	
==>pPos, my $tempPos2) = newfrom( $matchObj, $whitespacePosition, "PGE::Match");
    my $temp2 = $whitesp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19867	19987	
==>$old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16288	16408	
==>$old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	828	942	
==>han one result found, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2906	3008	
==>d 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time random number <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2906	3008	
==>d 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time random number <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12824	12928	
==>ntities found in the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12824	12928	
==>ntities found in the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9222	9317	
==>logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open") <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9222	9317	
==>logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open") <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4149	4265	
==>$field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4149	4265	
==>$field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8795	8905	
==>load @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8504	8611	
==>load @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2682	2784	
==>of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2682	2784	
==>of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6456	6561	
==>ust be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6239	6342	
==>ust be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19633	19727	
==><part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19633	19727	
==><part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21125	21250	
==>ray
    self["isarray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto unscoped

  scoped:
    subpats = pad["subpat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	684	789	
==>et $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	684	789	
==>et $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $on <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	324	512	
==>');
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self->set_value('$:value' => $value);                        
            }, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3812	3902	
==>steriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule PostAs <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3609	3709	
==>.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.di <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3609	3709	
==>.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.di <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8958	9073	
==>t_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test suppor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9016	9131	
==>t_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test suppor <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1962	2057	
==>onfusing synopsis, you should
be left with nothing but questions about what this object represen <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1962	2057	
==>onfusing synopsis, you should
be left with nothing but questions about what this object represen <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9059	9168	
==>n1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

met <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9059	9168	
==>n1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5096	5230	
==>f $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5096	5230	
==>f $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3873	4007	
==>() ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4066	4200	
==>() ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	106	201	
==>see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	106	201	
==>see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

us <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1493	1642	
==>uce_prim {
    my $self = shift;
    my $prim = shift;

    $self->enter_scope;
    my @params = $self->params;

    # the body is a code ref
    my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1462	1559	
==>dent = $indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($node->isa("Blondie::Node")){
			m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6756	6885	
==>->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax err <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6768	6897	
==>->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax err <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8313	8532	
==>Sym->new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10800	10903	
==>hod:

  my $rx = $parser->visual;

This will not return a F<Regexp> object, but the regex; it might be
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5916	6033	
==>lnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7463	7562	
==>shift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements th <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7463	7562	
==>shift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8005	8219	
==>mbol->new('$label' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16856	16956	
==>s_gram goto p6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6417	6522	
==>method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6417	6522	
==>method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12688	12787	
==>er entities.  The module provides the following functions:

=over 4

=item decode_entities( $string, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12688	12787	
==>er entities.  The module provides the following functions:

=over 4

=item decode_entities( $string, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2727	2836	
==>(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run { <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2727	2836	
==>(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run { <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1533	1657	
==>nd.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1533	1657	
==>nd.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18635	18729	
==><new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18635	18729	
==><new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot w <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15829	15995	
==>@ids, @tm );

        $res = Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    => @tm[3 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1143	1242	
==>mon comprehensive test suite to run against all Engines

=head1 VERSION

This document describes Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1143	1242	
==>mon comprehensive test suite to run against all Engines

=head1 VERSION

This document describes Ros <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4318	4417	
==>_code { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27510	27601	
==>$one_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $one_elem_list <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3195	3331	
==>, <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3195	3331	
==>, <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7196	7334	
==>) if $re eq '\s';
    return $o->mk_eater_for_re('\S') if $re eq '\S';
    die "Regexp compilation bug";
  }
}
{
  # \d \D
  package Regexp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8882	9026	
==>>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8882	9026	
==>>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5887	6002	
==>, it is modeled after XML SAX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5887	6002	
==>, it is modeled after XML SAX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3461	3562	
==>arameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3461	3562	
==>arameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2686	2852	
==>ory') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6570	6675	
==>, "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1") if ${&Rx} =~ m{ \G ([[({ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39918	40010	
==>at takes
another Relation::Example as its C<$other> argument and combines it with the
invocan <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4382	4481	
==>orrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following meth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4382	4481	
==>orrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1183	1297	
==>123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1179	1286	
==>123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.met <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11163	11314	
==>}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11163	11314	
==>}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4369	4466	
==>rmed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
whi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4369	4466	
==>rmed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
whi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1344	1456	
==>does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<ca <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1344	1456	
==>does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<ca <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	296	394	
==>rl::Type;

# junctive types can only be disjunctions and conjunctions, so
# sub-type JuncType
has P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9390	9483	
==>'*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed'};
	push(@args,"name=>".$stringify <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10830	10962	
==>ntext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10830	10962	
==>ntext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17709	17826	
==>n
internal code which is guaranteed to be unique for a situation, and this is
mapped to a user-readable message at som <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17709	17826	
==>n
internal code which is guaranteed to be unique for a situation, and this is
mapped to a user-readable message at som <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15211	15337	
==>t") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15211	15337	
==>t") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4533	4646	
==>nt "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4533	4646	
==>nt "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unl <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9510	9610	
==>ings $initrd_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "-m", "0", "-F", $init <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10753	10853	
==>ently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10811	10911	
==>ently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1300	1402	
==>kref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1300	1402	
==>kref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2207	2383	
==>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2207	2383	
==>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8510	8615	
==>ldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8510	8615	
==>ldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1275	1401	
==>($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1275	1401	
==>($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my me <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10113	10243	
==>return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10113	10243	
==>return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29473	29571	
==>the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj->omit(VA <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22126	22222	
==>is documentation is pending.>

=head1 DESCRIPTION

Relation::Example provides a minimal in-RAM
st <==
2	/Users/nnunley/pugs/util/importgraph.pl	1906	1996	
==>\b/);
setup_cluster('IMC', qr/^IMC\b/);
setup_cluster('RRegex', qr/^RRegex\b/);
setup_clust <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22530	22733	
==>>new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42319	42514	
==>>new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4047	4157	
==>al inc class to
    # interface %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", resnam <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5016	5111	
==>config> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item read <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5016	5111	
==>config> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item read <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8617	8741	
==>oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8617	8741	
==>oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2728	2853	
==>name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2380	2470	
==>util/testgraph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .y <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1786	1916	
==>@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1786	1916	
==>@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11771	11877	
==>tities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11771	11877	
==>tities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1327	1427	
==>ell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1327	1427	
==>ell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1440	1549	
==>rg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1440	1549	
==>rg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	349	453	
==>IS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::J <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	349	453	
==>IS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::J <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	602	770	
==>$Available );
        if ( grep { $_->{package} eq $path } @list ) {
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6385	6504	
==>om_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # So <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6385	6504	
==>om_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # So <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3861	3976	
==>data}->visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$how 's.
	#join "", "[", $self <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	96	187	
==>=$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant CO <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	96	187	
==>=$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant CO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3367	3467	
==>r untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3551	3651	
==>r untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7508	7631	
==>r")
    pos = mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2753	2897	
==>ame> ||= Set.new ).insert($subscription);
            $subscriber.note_subscription($subscription);
        }

        method remove_subscription <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	744	849	
==>_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::H <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	744	849	
==>_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyApp::L::H <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6834	6954	
==>',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefau <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6834	6954	
==>',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefau <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1508	1684	
==>0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1508	1670	
==>0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17799	17962	
==>p::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18078	18241	
==>p::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18430	18538	
==>}xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14851	14959	
==>}xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4244	4346	
==>ee($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4461	4563	
==>ee($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3074	3200	
==>.. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3575	3701	
==>.. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6346	6443	
==>m);
	$decl = ("no strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($varlist)$init; us <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19721	19841	
==>,
	),
);

# we can apply a polymorphic function to a string by giving it as a param to a higher order function
my $app_id <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7185	7301	
==>k( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    ### set the mode to +w for a file and +wx fo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5938	6055	
==>se MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($varlist)$init;";
    }
    elsif($sn eq 'our') {
	warn "our PPad n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	141	254	
==>tty_print  = 0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub import {
	return if $got_opt <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	336	439	
==>"]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	336	439	
==>"]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14091	14201	
==>uggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" order.

Any return va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14091	14201	
==>uggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" order.

Any return va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11833	12010	
==>,
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation::Examp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	86	184	
==>angeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Va <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	86	184	
==>angeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Va <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4573	4671	
==>fs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new> <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4573	4671	
==>fs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4065	4178	
==>t,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4065	4178	
==>t,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1312	1456	
==>le>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1312	1456	
==>le>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21739	21855	
==>at Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest name string for formatti <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1232	1333	
==>to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) }


 multi  Num: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6490	6746	
==>->new('$n'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19853	20074	
==>nt( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20132	20353	
==>nt( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1108	1259	
==>e => undef,
    stack => [],
    maxpar => 0,
    nparen => 0,
    captures => [],
    flags => [0],
    next => ['atom'],
  );

  # do the initial scan <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5168	5291	
==>x0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    if $I2 < 0 goto term_bx1
    $S2 = substr "] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5985	6144	
==>cumfix::hash,
        %Pugs::Grammar::Ternary::hash,
    );
    $class->SUPER::recompile;

    # operator-precedence
    my $g = $operator->emit_yapp;
    #prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	411	529	
==>atch;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	411	529	
==>atch;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11124	11250	
==>ndlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeric => sub { $_[0] ? 1 : u <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1499	1638	
==>::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1499	1638	
==>::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20536	20648	
==>ROYALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :ascenda <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3733	3839	
==>',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Cxt', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8776	8879	
==>nn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8776	8879	
==>nn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2615	2815	
==>stant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2626	2826	
==>stant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::consta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16602	16725	
==>add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13023	13146	
==>add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	579	685	
==>$verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1975	2163	
==>ge( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1975	2163	
==>ge( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7921	8008	
==>>access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scala <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1746	1833	
==>>access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scala <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10458	10551	
==>ing>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10458	10551	
==>ing>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18850	18942	
==>B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(_Re,_,F0,F0,B0,B0,E0, <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11915	12020	
==>duration></td>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23074	23176	
==>variable in it, that '$' will be interpreted as
an anchor. If you want to include variables, use C<qr// <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6091	6212	
==>h( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: sl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6091	6212	
==>h( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: sl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3113	3228	
==>rom_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3113	3228	
==>rom_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	255	351	
==>}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	255	351	
==>}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14494	14610	
==>attributes().map:{
            %attrs{$_.meta.name()} = $_.meta.instantite_container();
        };
        $c = WALKC <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	75	187	
==>is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	75	187	
==>is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2207	2407	
==>tent unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2207	2407	
==>tent unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4917	5035	
==>r("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4917	5035	
==>r("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normalize (split " ", $event<res <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5957	6083	
==>s to.

=cut

sub index_files { #TODO: When using two properties (A and B) to group the dists
                  #      tree A/A_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1926	2021	
==>e=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run::OnPerl5::X1:: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10747	10873	
==>t($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in thi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10747	10873	
==>t($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in thi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6679	6789	
==>ray.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::re <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6679	6789	
==>ray.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3214	3311	
==>em C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3214	3311	
==>em C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6366	6468	
==>== 0 >> and C<< $total->{max} > 0 >>, you've
got a successful test.

$failed is a hash ref of all the t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25402	25482	
==>,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	188	291	
==>- use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> re inheritanc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	180	281	
==>- use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> re inheritanc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5121	5289	
==>, but I don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5121	5289	
==>, but I don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1532	1643	
==>st_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1532	1643	
==>st_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7687	7832	
==>ame',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7687	7832	
==>ame',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3474	3568	
==>s particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.strin <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3474	3568	
==>s particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10438	10577	
==>ext} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push <==
2	/Users/nnunley/pugs/util/fixauthors.pl	514	613	
==>alname {
  my $uid = shift;
  
  my $html=get("http://search.cpan.org/~$uid");
  my $tree=HTML::Tree <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29961	30060	
==>n, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4025	4115	
==>>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>, <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4025	4115	
==>>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>, <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3633	3734	
==>r add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3633	3734	
==>r add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2838	3000	
==>6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2728	2884	
==>6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	604	732	
==>description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	604	732	
==>description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8557	8681	
==>\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8553	8677	
==>\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2630	2730	
==>f CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following public attribu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2630	2730	
==>f CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the following public attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15422	15611	
==>re( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15701	15890	
==>re( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	78	193	
==>y of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	78	193	
==>y of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17517	17618	
==>distribution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17517	17618	
==>distribution.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4094	4193	
==>%*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!ht <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4094	4193	
==>%*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!ht <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	786	890	
==>@.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns b <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	786	890	
==>@.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3635	3858	
==>nd;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3635	3858	
==>nd;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	492	634	
==>nd !$tz.isa("Time::Zone");
    return
        Date::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7702	7814	
==>$_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(file => $file, [force => BOOL])

Adds a giv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2771	2881	
==>ed before any other methods, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2771	2881	
==>ed before any other methods, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8613	8707	
==>r notes about fail()

shouldn't matchfail still be returning something?

maybe just overload bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8326	8418	
==>r notes about fail()
shouldn't matchfail still be returning something?
maybe just overload bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16373	16535	
==>\^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12794	12956	
==>\^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->obj <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	877	998	
==>nst->alternatives_dir

=cut

sub alternatives_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	125	244	
==>ub slurp {
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file' for reading";
    l <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2373	2466	
==>ge is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe b <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2373	2466	
==>ge is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4300	4412	
==>t<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4300	4412	
==>t<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8880	8999	
==>>( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8569	8685	
==>>( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10154	10260	
==>ex = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10154	10260	
==>ex = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && return $in <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7291	7392	
==>ar->does('Role'), '... rBar now does Role');

# create a class to put the roles in ...
my $FooBar = $C <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1020	1119	
==>*?)\s*?=\s*(.*)$/) {
			@config.push({Name => ''}) unless +@config;
			@config[-1]{"Features"}{$0} = <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	343	502	
==>{
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    retu <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	343	502	
==>{
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4146	4245	
==>.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4146	4245	
==>.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7738	7863	
==>ck} };
    return $self;
  }
}


{
  package Regexp::Parser::prop;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11006	11115	
==>he execution of some methods, 
because it will try to iterate to find a "complement set" that is empty.

= SET <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11006	11115	
==>he execution of some methods, 
because it will try to iterate to find a "complement set" that is empty.

= SET <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	546	660	
==>methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	546	660	
==>methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	343	580	
==>"<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	343	580	
==>"<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "< <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4124	4320	
==>l5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4124	4320	
==>l5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:p <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1650	1792	
==>t = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = r <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1650	1792	
==>t = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8438	8545	
==>ith 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you migh <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8438	8545	
==>ith 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you migh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8566	8686	
==>inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err_noclos <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2364	2492	
==>?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2364	2492	
==>?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2905	3030	
==>er("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2905	3030	
==>er("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselv <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2962	3066	
==>nitialization vector, a 
one-time random number.  (It will need to be sent to the other end along with 
t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2962	3066	
==>nitialization vector, a 
one-time random number.  (It will need to be sent to the other end along with 
t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7808	7949	
==>oin('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7808	7949	
==>oin('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9267	9358	
==>simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3092	3183	
==>simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1712	1821	
==>f( $inst->is_installed( package => $self ) ) {
        error("Package '". $self->package ."' is already instal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30692	30798	
==>UPER::method() >> inside the F<__object__> class,
because F<__object__> doesn't inherit from anywhere.  You <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	330	424	
==>socs", "Set", { companion => "dest" });
Has($?CLASS, "methods", "Set", { companion => "class" } <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7123	7256	
==>= &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7123	7256	
==>= &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3776	3931	
==>path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3776	3931	
==>path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	643	892	
==>xt

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	643	892	
==>xt

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5555	5821	
==>r>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5555	5821	
==>r>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9125	9224	
==>thod user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9125	9224	
==>thod user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7072	7175	
==>context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7130	7233	
==>context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, S <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5497	5614	
==>lf, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self->{prefi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20901	21012	
==>et socketpair stat symlink
# syscall sysopen sysread sysseek syswrite tell telldir truncate umask
# unlink utime <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16259	16354	
==>sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
correspondi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16259	16354	
==>sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's
correspondi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1920	2045	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1920	2045	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.], <==
2	/Users/nnunley/pugs/util/build_pugs.pl	428	526	
==>.";
$0 - build a pugs executable

This script calls GHC to build a pugs exectuable, optionally inli <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22826	22924	
==>self).class
}

(method class ((opaque $self:)) returns opaque 
    ($self: class))

=cut

$::Class- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3963	4081	
==>ent;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3963	4081	
==>ent;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13284	13376	
==>ier unexpected on zero-length expression

=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not impl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13497	13625	
==>NOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13497	13625	
==>NOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7538	7678	
==>t( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7731	7871	
==>t( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         rule <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8204	8353	
==>se.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8204	8353	
==>se.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	123	228	
==>fix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	123	228	
==>fix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1926	2061	
==>|pil_tree|p5)\z/;
    bless {
	stages => [qw(p6_file p6 pil_code pil_tree p5)],
	$datatype => Perl6::Run::OnPerl5::X1::Result->new($data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9331	9454	
==>elf->add_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7832	8053	
==>one(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7832	8053	
==>one(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	784	884	
==>ss Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	784	884	
==>ss Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
} <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	0	97	
==>use v6;

class DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific metho <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	0	97	
==>use v6;

class DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6183	6324	
==>substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6183	6324	
==>substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8771	8880	
==>ly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_ba <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8829	8938	
==>ly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_ba <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4140	4252	
==>rn $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4989	5101	
==>rn $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5692	5801	
==>force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # alnum (a word character)
  $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2149	2274	
==>umper;

{
    my $cat = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_op( {
        name = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1286	1402	
==>uest {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(? <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1286	1402	
==>uest {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1784	1911	
==>=~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	515	619	
==>le;
sub import {
	$regex = $_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{
		$orgin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17626	17720	
==>$h.user_agent

This header field is used in request messages and contains information
about the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17626	17720	
==>$h.user_agent

This header field is used in request messages and contains information
about the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5472	5647	
==>"\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5472	5647	
==>"\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1383	1550	
==>s) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1383	1550	
==>s) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8747	8857	
==>e").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representative for this whole file, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8747	8857	
==>e").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representative for this whole file, <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1235	1331	
==>cket has a memory footprint of constant size because the
algorithm is based on statistics. This w <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1235	1331	
==>cket has a memory footprint of constant size because the
algorithm is based on statistics. This w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4960	5088	
==>mpare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4960	5088	
==>mpare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16767	16934	
==>a. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21865	22032	
==>a. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	287	390	
==>rs should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ < <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	287	390	
==>rs should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ < <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7786	7915	
==>709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "pro <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7786	7915	
==>709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5552	5689	
==>( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5745	5882	
==>( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3499	3624	
==>if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3499	3624	
==>if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6724	6829	
==>ert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'MET <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6724	6829	
==>ert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'MET <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6263	6384	
==>my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      f <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	529	635	
==>..." }, which might tilt
the balance.

Clutter:: is a package for macros declared and used locally.
Helpers <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	126	228	
==>.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename = sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	126	228	
==>.pl';
use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename = sh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2299	2410	
==>}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2299	2410	
==>}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4874	5042	
==>((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6636	6804	
==>((params  (closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3009	3106	
==>are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3009	3106	
==>are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.uni <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	47	162	
==>se warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	47	162	
==>se warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller <==
2	/Users/nnunley/pugs/util/testgraph.pl	1648	1762	
==>::link;
        $link =~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$link);
    }

    package My::Subtest <==
2	/Users/nnunley/pugs/util/claim_drift.pl	12	177	
==>erl -w

use strict;
use Getopt::Long;
use Config;
use File::Spec;

# If you have several working directories and they all use a shared DrIFT,
# you need to point syml <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16216	16317	
==>ule EqualityExpression :words {  # see 11.9
      <RelationalExpression>
    | <EqualityExpression> <' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6001	6105	
==>] }

package type::variable::instantiated;
use base qw/type::variable/;

sub is_arrow {
	my $self = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15222	15398	
==>rn;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15216	15392	
==>rn;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XX <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13226	13316	
==>y default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13226	13316	
==>y default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13887	13986	
==>m "gzip -vvv -9 -c $initrd_img > $initrd_gz" };
}

step
  descr  => "Creating directory \"$cdroot\"" <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14567	14666	
==>-gray
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw init= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38792	38990	
==>'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39319	39463	
==>'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))-> <==
2	/Users/nnunley/pugs/util/func_refact.pl	2133	2257	
==>ug} eq $new;
    return $size - $oldsize; # new member count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    fo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2223	2350	
==>$tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $toke <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2223	2350	
==>$tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $toke <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26624	26735	
==>>{off} ? "-" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser::minmod;
  push @ISA, qw( Regexp::Pars <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7504	7607	
==>);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7504	7607	
==>);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<chan <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5092	5194	
==>lready initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make su <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5092	5194	
==>lready initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make su <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11426	11549	
==>y>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert mo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11426	11549	
==>y>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3329	3437	
==>s tighter/looser/equiv
  is assoc left/right/non/chain/list
  (is parsed)
  (will do)
  
  my $cat = Pugs::Gr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10641	10771	
==>e<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ), <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10641	10771	
==>e<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ), <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12167	12295	
==>ss methods
    # these may also be called on an instance, but they are not tied to a
    # particular instance
    my method host <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12167	12295	
==>ss methods
    # these may also be called on an instance, but they are not tied to a
    # particular instance
    my method host <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3172	3403	
==>re && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expire <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3172	3403	
==>re && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expire <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	774	892	
==>.isa(Array) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $label)
          if defined $to <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6519	6651	
==>icense_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6576	6708	
==>icense_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9796	9922	
==>d_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpol <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9796	9922	
==>d_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpol <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2810	2905	
==>you'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2707	2799	
==>you'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49978	50198	
==>'str'
            ),            
            sub {
                my $e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my <==
2	/Users/nnunley/pugs/util/importgraph.pl	2944	3032	
==>dges\n";

#$g->as_canon("importgraph.dot");
#$g->as_png("importgraph.png");
$g->as_ps("im <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12689	12835	
==>:Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12689	12835	
==>:Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attribu <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11560	11655	
==>" by which to sort. If
the closure returns a Num, C<E<lt>=E<gt>> is used for comparison,
otherwi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22475	22566	
==>C,X), !.
charset_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36168	36282	
==>he output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36168	36282	
==>he output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1767	1863	
==>er is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1767	1863	
==>er is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	798	897	
==>($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	798	897	
==>($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9998	10105	
==>ion of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9998	10105	
==>ion of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4422	4534	
==>(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4480	4592	
==>(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3676	3775	
==>==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3676	3775	
==>==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3591	3734	
==>th;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3591	3734	
==>th;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	738	903	
==>l  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	708	868	
==>l  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	285	463	
==>',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results',
    ],
    class_methods => {
        'new'    => sub { 
            my ($class, $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28107	28224	
==>oolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation::Example's heading.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2766	2871	
==>is will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2766	2871	
==>is will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18164	18285	
==>= shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub inse <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25508	25619	
==>ing, so if regback is >= 0, the regmust search is never
 * wasted effort.  The regback variable says how many ch <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1807	1921	
==>y it should always be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1807	1921	
==>y it should always be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5420	5541	
==>(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5420	5541	
==>(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2523	2617	
==>h!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representat <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2523	2617	
==>h!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4325	4478	
==>) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_bool {$_[0]?1:undef}
sub p6_bit {$_[0]?1:0}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1861	1963	
==>mit($safe);
}

sub provides {
	my $self = shift;
	my $node = shift;
    Blondie::Backend::C::Builtins-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1595	1709	
==>t_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute nam <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	333	439	
==>ss::Assert;

  assert( EXPR, $name );

=head1 DESCRIPTION

A simple assert routine since we don't have Carp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22382	22507	
==>atch;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22661	22786	
==>atch;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10939	11041	
==>ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11368	11470	
==>ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16869	16990	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17148	17269	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	436	551	
==>: $a is now < -100'
}
while ($still_running) {
    say $a;
    sleep 1;
    atomically { $a++; }
}
$thr1.join;
$thr2 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8444	8553	
==>the dependency line based on Cabal version
        if ($has_new_cabal) {
            s/hs-source-dir/hs-source <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7420	7529	
==>n tests and store results in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store results in FILE [defa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5573	5700	
==>pdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5573	5700	
==>pdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3751	3932	
==>ned( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3751	3932	
==>ned( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9099	9245	
==>non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9099	9245	
==>non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2701	2804	
==>= Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2701	2804	
==>= Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6317	6447	
==>e returned match, 

that makes it return until the start of the rule, which unsets the flag before returning.

- this can also be u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6112	6240	
==>e returned match, 
that makes it return until the start of the rule, which unsets the flag before returning.
- this can also be u <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7248	7360	
==>s = '';
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        $depends = ', Win32 -any' unless $ghc_version = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	975	1066	
==>result = Blondie::Backend::Foo->run($program);

=head1 DESCRIPTION

The runtime object is re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2967	3081	
==>ctional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2967	3081	
==>ctional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2524	2709	
==>ith_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z::oop{$id}{'op_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8776	8873	
==>nt32($P);
    return if $uint < $A.property_value{'length'};
    $A.property_value{'length'} = $ui <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5083	5221	
==>,
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5083	5221	
==>,
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	240	342	
==>*{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	240	342	
==>*{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21281	21385	
==>ss to those databases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21281	21385	
==>ss to those databases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4149	4256	
==>erl 6 program runnable by Pugs which will
    introduce Pugs.
  --splashscreen=$splashscreen
    The file re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	849	971	
==>rait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	849	971	
==>rait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1427	1578	
==>nt => "Int",
        real => "Num",
        string => "Str",
        flat_hash => "Hash",   # of Scalar
        flat_array => "Array", # ditto
        r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2685	2823	
==>t;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2685	2823	
==>t;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $ <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	106	203	
==>ree($testdir);
mkdir($testdir);
die "Could not create '$testdir':$!" unless -d $testdir;

open <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1474	1579	
==>eturns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8794	8902	
==>hen 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree' <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8794	8902	
==>hen 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11543	11659	
==>_bool(${$_[0]}) ?
      glob  => sub { ${$_[0]} ? 1 : undef },
      lvalue => sub { p6_as_bool(${$_[0]}) },
      pe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3681	3786	
==>h::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj->position( $matchObj <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	861	973	
==>int, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selec <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	861	973	
==>int, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selec <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	816	906	
==>EXITCODE};

my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::Stra <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8040	8215	
==>ile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            p <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	724	824	
==>le_name;

    my $name = MM->guess_name or die <<"END";
Can't determine a NAME for this distribution. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16215	16312	
==>ales; you can read TTM itself and
various other external documentation for much of that.

The Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16215	16312	
==>ales; you can read TTM itself and
various other external documentation for much of that.

The Rose <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2463	2589	
==>{ &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2463	2589	
==>{ &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4313	4423	
==>r('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1439	1549	
==>r('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14319	14482	
==>lues;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{$_} // $_ }, self.split('');
    }
}


sub Pugs::Internals::but_block ($obj, Code <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13745	13866	
==>) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13745	13866	
==>) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $s <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2347	2486	
==>tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    f <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2347	2486	
==>tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    f <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5073	5334	
==>en);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @mo <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5073	5334	
==>en);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @mo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2259	2374	
==>_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user may be running
        # `make unoptimzed` wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1148	1249	
==>tant RPe_NESTED => --$ENUM, 'Nested quantifiers';
use constant RPe_LBRACK => --$ENUM, 'Unmatched [';
u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48564	48650	
==>ew('$:version'   => 'str')));
$::Module->send('add_attribute', (symbol->new('$:authorit <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1602	1703	
==>p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $num or $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1602	1703	
==>p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $num or $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4617	4736	
==>r )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4839	4958	
==>r )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1346	1488	
==>gspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1334	1476	
==>gspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18680	18782	
==>orresponds exactly to the named
parameters of Node.new(); you need to supply its $document and optional <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18680	18782	
==>orresponds exactly to the named
parameters of Node.new(); you need to supply its $document and optional <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	799	892	
==>xport_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	799	892	
==>xport_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $inte <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5354	5651	
==>(($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7116	7413	
==>(($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ( <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4789	4896	
==>e year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Ro <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4789	4896	
==>e year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Ro <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10656	10749	
==>(vertical_space))    --> "\\v", !.
p6_char_class(class_neg(vertical_space))    --> "\\H", !.
p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1296	1390	
==>quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/qui <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1296	1390	
==>quickref/>
directory, similar to L<perlcheat>. The table of contents can be found at
F<docs/qui <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	750	903	
==>[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	750	903	
==>[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1793	1889	
==>ltiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object types, includi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1722	1817	
==>ltiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object types, includi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1347	1449	
==>sentations of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1347	1449	
==>sentations of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %sta <==
2	/Users/nnunley/pugs/util/config_h.pl	1670	1847	
==>= "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        print TMP $code;
        close TMP;
        system(
            $ghc, @ghc_args,
            "--make", "-v0", <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	144	256	
==>13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	144	256	
==>13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4645	4883	
==>) {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # pus <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4645	4883	
==>) {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # pus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12625	12745	
==>y connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12625	12745	
==>y connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13383	13521	
==>ect    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # H <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13383	13521	
==>ect    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # H <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19740	19837	
==>the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19740	19837	
==>the current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18603	18712	
==>er in a set of key-codes,
which are hard-coded into your application or package, with one or more
text strings <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18603	18712	
==>er in a set of key-codes,
which are hard-coded into your application or package, with one or more
text strings <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17155	17251	
==>20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22255	22351	
==>20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2463	2588	
==>nsity };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2463	2588	
==>nsity };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	793	1180	
==>7 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        171615141312 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	793	1180	
==>7 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        171615141312 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4412	4533	
==>e[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(In <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4412	4533	
==>e[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(In <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10484	10628	
==>.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10484	10628	
==>.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          T <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4944	5064	
==>n $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simpl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4944	5064	
==>n $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simpl <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17830	18038	
==>(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or earlier matches.
                    @stuf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6077	6174	
==>ion B<0.022b>.  The documentation is (still) incomplete.  It
may be a little jumbled or hard to un <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15122	15228	
==>gest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded cod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15122	15228	
==>gest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded cod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2229	2370	
==>[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2229	2370	
==>[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14560	14670	
==>is module will be the code support for those needs. The
following is a list of future features planned for this <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14618	14728	
==>is module will be the code support for those needs. The
following is a list of future features planned for this <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13535	13630	
==>or before an implementation
could be started).  This is most useful when writing modules and you <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13593	13688	
==>or before an implementation
could be started).  This is most useful when writing modules and you <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24875	24969	
==>as succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Cla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24875	24969	
==>as succeeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Cla <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	677	829	
==>]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( scalar @metas > 1 ) {
        warn "More tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32095	32191	
==>Object

Most objects inherit their ender() and walk() methods from the base
object class; most ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22882	22999	
==>ogical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19303	19420	
==>ogical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }x <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2823	2923	
==>e.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2823	2923	
==>e.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1279	1375	
==>ed: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1279	1375	
==>ed: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	612	714	
==>xpression.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::reduce (Code $expression <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28730	28856	
==>_MATCH_UTF8_on(prog), (PL_reg_match_utf8 = 1)) \
			 : (RX_MATCH_UTF8_off(prog), (PL_reg_match_utf8 = 0)))

 #define REXEC_COPY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	181	277	
==>can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	181	277	
==>can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLA <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16926	17040	
==>iling($n) is primitive is safe {
        Num::round_gen($n, &Num::do_ceil)
    }
    our &ceil ::= &ceiling;

    s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14106	14211	
==>any times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [

=item RPe_EQUA <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17804	17908	
==>se C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSI <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17804	17908	
==>se C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSI <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1640	1749	
==>$intmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8858	8964	
==>tring.

=item I<string>

This event processes raw strings.

=item I<newline>

This event handles newlines i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8858	8964	
==>tring.

=item I<string>

This event processes raw strings.

=item I<newline>

This event handles newlines i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5101	5265	
==>Param

Shifts a parameter from the parameter stack and binds it to a symbol.

    App(
        Val(
            Thunk(
                Seq(
                    Param <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	260	371	
==>he relevant files to the repo
    for my $archive ( qx[find root-* -type f | grep '$Ext\$'] ) {
        chomp $a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8065	8161	
==>------------------------------------------
## utility methods

# NOTE:
# Occasionally one wants t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8065	8161	
==>------------------------------------------
## utility methods

# NOTE:
# Occasionally one wants t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	528	649	
==>re $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEX <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2056	2177	
==>re $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEX <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17512	17606	
==>t>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17512	17606	
==>t>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10117	10213	
==>::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10117	10213	
==>::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1083	1194	
==>($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1083	1194	
==>($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1212	1317	
==>param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1206	1305	
==>param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1556	1669	
==>dentZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natu <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1556	1669	
==>dentZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15766	15896	
==>me
      $cdroot;
  };

sub ldd {
  my $bin = shift;
  my @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or die "Couldn't op <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	234	335	
==>\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "wert";

#!\p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20699	20805	
==>d
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20699	20805	
==>d
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Roset <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1071	1181	
==>e );
    
    return $self;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg-> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14601	14709	
==>Ra1), re_reverse(Rb0,Rb1), !.
%# XXX - not quite right... need some symetric op pairs.
re_reverse(bos,eos).
r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1132	1245	
==>($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	235	347	
==>($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13124	13227	
==>sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13124	13227	
==>sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15343	15442	
==>he program or any of its components are intended for widespread use
then it needs to account for a v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15343	15442	
==>he program or any of its components are intended for widespread use
then it needs to account for a v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8588	8822	
==>ion } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9052	9286	
==>ion } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8022	8137	
==>port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8022	8137	
==>port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.p <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	669	763	
==>><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	669	763	
==>><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23732	23831	
==>Engine::Example> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23732	23831	
==>Engine::Example> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7019	7146	
==>sy.  I'm working on it.

=cut

# Turns on autoflush for the handle passed
sub _autoflush {
    my $flushy_fh = shift;
    my $ol <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14035	14142	
==>template available.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14035	14142	
==>template available.
        print $translator.translate_message(
            Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6417	6544	
==>s, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6417	6544	
==>s, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1179	1305	
==>=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTI <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1179	1305	
==>=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9407	9535	
==>tatement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9407	9535	
==>tatement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1811	1920	
==>m
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1871	1980	
==>m
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8287	8386	
==>s inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8287	8386	
==>s inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9843	9988	
==>$context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9843	9988	
==>$context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5360	5459	
==>$real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5360	5459	
==>$real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18694	18795	
==>core expects to avoid problems.  While simultaneously
trying to avoid triggering core behavior which w <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2984	3085	
==>core expects to avoid problems.  While simultaneously
trying to avoid triggering core behavior which w <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12466	12601	
==>test --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @lis <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3016	3139	
==>test --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list {
		take shift @lis <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12566	12685	
==>';
      if (exists $lines->{$.}) {
        $class = $test_class->{$lines->{$.}};
      }
      $output .= "<span class= <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6662	6763	
==>Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6662	6763	
==>Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	451	563	
==>is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	451	563	
==>is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13957	14408	
==>= { canon       => '??',
                                         max         => '??',
                                         failed      => '??',
                                         name        => $tfile,
                                         percent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1734	1865	
==>tem);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1734	1865	
==>tem);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    m <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1759	1871	
==>ry to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreac <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1759	1871	
==>ry to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6272	6382	
==>perators

  # Domain-specific-language-like syntax, contained in a package

### rule must ever use Rule::rule f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6058	6166	
==>perators
  # Domain-specific-language-like syntax, contained in a package
### rule must ever use Rule::rule f <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1054	1206	
==>'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	933	1085	
==>'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5549	5669	
==>til::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<bound <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5549	5669	
==>til::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<bound <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7996	8107	
==>c123', :capture );



  # returns a Match object that has no capture (but the 'bool' field is still true)

  mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7727	7835	
==>c123', :capture );

  # returns a Match object that has no capture (but the 'bool' field is still true)
  mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20109	20210	
==>= ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20109	20210	
==>= ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_auth <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5102	5202	
==>E

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local= <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1287	1399	
==>$.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1287	1399	
==>$.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7369	7516	
==>ip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4721	4817	
==>.8 The List Type
class JSX::InternalValue::List is Array;

# 8.9 The Completion Type
class JSX::I <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	663	781	
==>eful stuff, and need not be
  implemented immediately.  Assume the existence of what would
  be useful, and we'll do it <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4790	4923	
==>my (@unresolved, @bad_regex, @bad_heading);

# Loading test results from yml file
my $tests = LoadFile("tests.yml");

# Reading and pr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3996	4100	
==>an either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a fileha <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3996	4100	
==>an either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a fileha <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	372	485	
==>makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_in <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	273	386	
==>makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	321	442	
==>in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	321	442	
==>in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $. <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	131	233	
==>_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	131	233	
==>_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	569	681	
==>lass.  It is what is created when you
declare a new class.

A class is a role with the enhancement that is it I<t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25216	25308	
==>tribute Relation::Example with zero tuples or
one tuple respectively have a special meaning i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21267	21354	
==>te('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascenda <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44174	44261	
==>te('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascenda <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6483	6585	
==>hars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6483	6585	
==>hars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_do <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23697	23821	
==>C_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream tabl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28912	29009	
==>C_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream tabl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6200	6334	
==>_this
        }      

        last LINKING unless $link_this;

        ### remove the registered alternative
        $self->remove_reg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2263	2385	
==>ates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2274	2396	
==>ates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1369	1481	
==>::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1369	1481	
==>::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12664	12766	
==>$expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12722	12824	
==>$expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code a <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9571	9722	
==>art .. $end;
      } else {
         @lines = ($start);
      }
      next unless $start;
      for my $line (@lines) {
          if (exists $lines->{$l <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	772	885	
==>ile) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	772	885	
==>ile) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1242	1364	
==>{};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($inp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1242	1364	
==>{};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($inp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1443	1580	
==>);
    }
    
    return @rv;
}    

__END__





    ### XXX can be custom file & nicer object & error checking
    my $struct  = LoadFil <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16878	16979	
==>eANDExpression :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpression> <'&'> <Eq <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21469	21567	
==>mn->ASSIGN($v);
}
sub p6_assign {my($o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$v)=@_; $o->BIND <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7894	8013	
==>ed \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7882	8001	
==>ed \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	22	128	
==>::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	22	128	
==>::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warni <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3394	3514	
==>r ||= 't_index';
for(@t_dirs) {
    die("Test directory '$_' does not exist. Try --help. ") unless -d $_;
}
$_ = rel2abs( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	136	279	
==>lt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.new();  	# (fast) wie in Perl 5
my $welt = new Welt();  	# wie in Perl 5
my Welt <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18118	18230	
==>details is test #1.  I tried it with element 1 being
#1 and 0 being empty, this is less awkward.

=head1 EXAMPLES <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1116	1220	
==>ot present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chroma <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1116	1220	
==>ot present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chroma <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4881	5022	
==>$wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usage();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	985	1084	
==>- provide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	985	1084	
==>- provide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5960	6066	
==>n::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5960	6066	
==>n::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Sp <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	617	743	
==>) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	617	743	
==>) {
        say "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4212	4353	
==>exp1 => $_[3], 
            exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREWORD exp   %prec P003
        { $_[0]->{out}= { op1 => 'ca <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	486	600	
==>e_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pugs_fix_makefile;
}

sub set_make <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8205	8340	
==>path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8205	8340	
==>path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3056	3182	
==>span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3056	3182	
==>span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22764	22918	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23043	23197	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	383	700	
==>l(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie: <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	649	788	
==>$Config{output}) {
        open OUT, "> $Config{output}" or
            die "open: $Config{output}: $!";
    } else {
        *OUT = *STDOUT <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3499	3702	
==>rpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3499	3702	
==>rpolate($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16734	16847	
==>),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20211	20324	
==>),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5209	5342	
==>t;
    return $self unless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            wh <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1286	1437	
==>bsolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linkt <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1286	1437	
==>bsolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linkt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23190	23342	
==>nlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = s <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8846	8982	
==>_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8482	8609	
==>is) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'clump',
      type => 'clump <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2562	2687	
==>!! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_strin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2562	2687	
==>!! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_strin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2121	2261	
==>G> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2121	2261	
==>G> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	558	656	
==>standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Construct <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	558	656	
==>standard Cipher API; see L<Cipher/Using the 
Cipher API> for general information.

=head2 Construct <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11957	12051	
==>2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11957	12051	
==>2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29207	29334	
==>ess $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29486	29613	
==>ess $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15649	15774	
==>m possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19882	20007	
==>m possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	17	130	
==>AML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use li <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	17	130	
==>AML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10357	10479	
==>2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10357	10479	
==>2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10951	11081	
==>e: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10951	11081	
==>e: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3480	3667	
==>r( $_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	605	708	
==>anches';
use constant RPe_SWUNKN => --$ENUM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5754	5871	
==>ry of all the tests
run.  Its keys and values are this:

    bonus           Number of individual todo tests unexpecte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3677	3835	
==>[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3677	3835	
==>[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dump <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1014	1138	
==>reated as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1014	1138	
==>reated as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	492	593	
==>> q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Ente <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	492	593	
==>> q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Ente <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	31	133	
==>-------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as yo <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	31	133	
==>-------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it as yo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18950	19067	
==>_DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on it <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18950	19067	
==>_DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9312	9417	
==>captures = $parser->captures();

If you want to access a specific capture group, pass its numerical
value: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8869	8993	
==>tate->{op}->( $tail, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8558	8679	
==>tate->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        retu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	695	805	
==>cts appear to "flatten" in
the classes which they are included; unlike the "mix-in" effect of
adding more super <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1082	1205	
==>s an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1082	1205	
==>s an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contai <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	255	349	
==>---------------------------------------
## constructors

submethod BUILD ($node?) {
    $.depth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	255	349	
==>---------------------------------------
## constructors

submethod BUILD ($node?) {
    $.depth <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1008	1113	
==>rver_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<se <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1008	1113	
==>rver_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8357	8461	
==>4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs and 
vul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8357	8461	
==>4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs and 
vul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2601	2709	
==>self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method u <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2601	2709	
==>self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method u <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2220	2374	
==>STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime/) }

	sub annotate {
		my $self = shift;
		my $runtime = shift;
		my $prog = shift <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	664	766	
==>ft;
		my $type = $self->SUPER::type;

		# this method always returns the shallowest possible scalar val <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14403	14503	
==>dd_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8606	8706	
==>dd_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	0	102	
==>use v6;

class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	0	102	
==>use v6;

class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.en <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3944	4047	
==>t::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3944	4047	
==>t::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedTe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2165	2284	
==>$last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    }, <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2165	2284	
==>$last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    }, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23740	23834	
==>elation library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	853	988	
==>$x) }
            when '*' { @stack.push($y * $x) }
            when '/' { @stack.push(int($y / $x)) }
            default  { die "Inval <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1736	1841	
==>veral attributes which might be interesting to 
people interested in the algorithm itself.  The attributes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1736	1841	
==>veral attributes which might be interesting to 
people interested in the algorithm itself.  The attributes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14734	14890	
==>d eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14728	14884	
==>d eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12768	12939	
==>all method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12762	12933	
==>all method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5242	5385	
==>p1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5242	5385	
==>p1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6375	6508	
==>fore {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6375	6508	
==>fore {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	291	414	
==>en::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	291	414	
==>en::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method <==
2	/Users/nnunley/pugs/util/package-osx.pl	3346	3443	
==>/usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/histo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24548	24651	
==>l Public License (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24548	24651	
==>l Public License (GPL) as published by the Free
Software Foundation (L<http://www.fsf.org/>); either ver <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3848	4003	
==>try, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already? <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4312	4467	
==>try, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already? <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1088	1202	
==>has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. usi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24189	24286	
==>red set of named attributes; all tuples in a Relation::Example are of the same
degree, and the att <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1345	1463	
==>) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{$key->to_str->to_na <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3549	3682	
==>d;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3549	3682	
==>d;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2520	2708	
==>~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2520	2708	
==>~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22183	22285	
==>ion can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26735	26837	
==>ion can look like a table, where each of its tuples is
a row, and each attribute is a column, but a Rel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2933	3043	
==>ed $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2921	3031	
==>ed $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	599	716	
==>imes, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	599	716	
==>imes, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12439	12544	
==>( Array *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2989	3091	
==>( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9734	9870	
==>rgument:

  my $iter = $parser->walker(0);  # top-level
  my $iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->w <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	551	679	
==>controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	551	679	
==>controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6810	6954	
==>ew);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encodin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6810	6954	
==>ew);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
method content_encodin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9914	10011	
==>osetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9914	10011	
==>osetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6440	6612	
==>odo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6498	6670	
==>odo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7412	7566	
==>nds ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	713	867	
==>nds ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14094	14201	
==>ntation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14094	14201	
==>ntation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6074	6209	
==>pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6074	6209	
==>pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9328	9464	
==>-;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9316	9452	
==>-;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16932	17028	
==>y do a lot
internally; it exists mainly to document a certain localization methodology
in an easi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16932	17028	
==>y do a lot
internally; it exists mainly to document a certain localization methodology
in an easi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10088	10279	
==>|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10088	10279	
==>|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass-> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1545	1676	
==>$Repodir/$file] )             and die $?;
    }

    print "\n\n\n";

    ### start aggregating their metainfo to one file
    my @m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13647	13741	
==>N (-7)

Switch (?(condition)... contains too many branches

=item RPe_SWUNKN (-8)

Unknown swit <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1244	1357	
==>out => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->bi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1211	1324	
==>out => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->bi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	528	657	
==>$msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	528	657	
==>$msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14950	15064	
==>complain->("scalar_non_numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { $_[0] },
      code  => <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	888	990	
==>ge: perl tsanta.pl
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub Go <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2297	2420	
==>*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2297	2420	
==>*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7463	7565	
==>thchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7463	7565	
==>thchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29039	29140	
==>t are enabled at the time.

=item $obj->insert()

Inserts this object into the tree.  It returns a val <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1313	1412	
==>ed module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled ve <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21025	21143	
==>result of doing so,
it that only the last of these fields will be present in the header
after the call.  All values oug <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21025	21143	
==>result of doing so,
it that only the last of these fields will be present in the header
after the call.  All values oug <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20917	21020	
==>to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20917	21020	
==>to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that us <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2747	2885	
==>dmin->preop;
    }

    ExtUtils::MakeMaker::WriteMakefile(%args);

    $self->fix_up_makefile();
}

sub fix_up_makefile {
    my $self = s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13524	13634	
==>~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13524	13634	
==>~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	298	407	
==>}
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	298	407	
==>}
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9766	9865	
==>=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pass som <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9766	9865	
==>=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pass som <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7178	7301	
==>tant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Pa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7178	7301	
==>tant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6813	6928	
==>plate module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so sk <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6813	6928	
==>plate module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so sk <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	485	668	
==>val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	485	668	
==>val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s* <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4042	4142	
==>{how}, "]";
	join "", "[", ${$self->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$self-> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12400	12501	
==>> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12400	12501	
==>> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6887	7013	
==>:Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6887	7013	
==>:Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4251	4368	
==>d BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = unde <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4251	4368	
==>d BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = unde <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4944	5056	
==>dule_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hid <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4944	5056	
==>dule_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hid <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	987	1082	
==>ss::Events::Event.new(*@args));
    }

    method mk_notifications (*@subscriptions of Class::Ev <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23845	23952	
==>add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@superclasses)))
          ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3517	3606	
==>installed C<Pugs::Compiler::Rule> module would prevent the Perl 6 compiler
from bootstrapp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2525	2649	
==>";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2525	2649	
==>";
        
        return ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9665	9767	
==>n object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `di <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9665	9767	
==>n object, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	438	545	
==>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	438	545	
==>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why y <==
2	/Users/nnunley/pugs/util/package-osx.pl	2811	2891	
==>sers/dromano/dev/pugs/src/pge/run_pge.pir /System/Library/Perl6/darwin-thread-mul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	547	695	
==>data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_inv <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	547	695	
==>data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_inv <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	512	659	
==>require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	512	659	
==>require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5551	5655	
==>ache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5551	5655	
==>ache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2231	2334	
==>) { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2231	2334	
==>) { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1634	1737	
==>ec run on my machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5970	6139	
==>ntry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avai <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6434	6603	
==>ntry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avai <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	445	552	
==>e quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE dip <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	445	552	
==>e quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE dip <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10321	10421	
==>ntation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10321	10421	
==>ntation)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5098	5230	
==>idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->nparens <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	130	234	
==>JIB Is Brilliant' and is a suite of modules that will be used
as the base for Perl6's CPAN, also known as <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11416	11547	
==>0] } }\n"
        unless $code =~ /return/;
    return "#return-block#" . $code;
}
sub node::runtime_alternation {
    my $code = ma <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15009	15101	
==>er, $ml) = _mk_leader($test_file, $width);

Generates the 't/foo........' leader for the give <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20078	20173	
==>oined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20078	20173	
==>oined as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4699	4828	
==>,
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(35 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4699	4828	
==>,
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(35 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18279	18381	
==>e figuring out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18279	18381	
==>e figuring out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22786	22948	
==>e = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23065	23227	
==>e = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleo <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	312	448	
==>instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('@:slots' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12297	12413	
==>', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .return (mob)
.end 


.sub "parse_enumclass"
    . <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9338	9458	
==>children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $ma <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9338	9458	
==>children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height if $ma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21954	22057	
==>ingle tuple.  A zero-attribute Relation with zero tuples or
one tuple respectively have a special meanin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26506	26609	
==>ingle tuple.  A zero-attribute Relation with zero tuples or
one tuple respectively have a special meanin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1050	1151	
==>test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1108	1209	
==>test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## i <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3820	3935	
==>nd;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6144	6259	
==>nd;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\E/(. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6288	6410	
==>ub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6288	6410	
==>ub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11441	11587	
==>.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.curre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11441	11587	
==>.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.curre <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5667	5768	
==>x(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5667	5768	
==>x(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	871	993	
==>param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       nam <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	871	993	
==>param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       nam <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3378	3501	
==>}
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # other <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3378	3501	
==>}
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # other <==
2	/Users/nnunley/pugs/util/addauthors.pl	1055	1199	
==>l.*$last/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$au <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16351	16460	
==>smsg = _bonusmsg($tot);

    if (_all_ok($tot)) {
        print "All tests successful$bonusmsg.\n";
    } elsi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7115	7210	
==>channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7115	7210	
==>channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.d <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17857	18182	
==>gex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or earlier matches.
                    @stuff = sort {$b->depth   <=> $a->depth    or
                                   $a->address cmp $b->address
                                  } @st <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2681	2794	
==>output_dir,
       'p6design_dir=s' => \$syn_src_dir,
       'no_designdocs' => \$no_designdocs,
        'help' => <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	639	740	
==>.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	639	740	
==>.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15883	15985	
==>r not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are time <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15883	15985	
==>r not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are time <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1092	1281	
==>e by factoring out the "not ".
    # VMS will avenge.
    my $out;
    if ($name) {
        # escape out '#' or it will interfere with '# skip' and such
        $name =~ s/#/\\#/g;
	$out = $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14081	14211	
==>translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14081	14211	
==>translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	272	424	
==>s $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ML_Print
    $Strap
);

=head1 NAME

Test::Harness - Run Perl standard te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24254	24386	
==>my $h = $S->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ($v) { &Rf &= ~$v }  # turn the flag off <==
2	/Users/nnunley/pugs/util/importgraph.pl	2270	2358	
==>egens', 'Pugs.Compile.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGen\.\w+$/);

my ($n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11883	11984	
==>the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the el <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11883	11984	
==>the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the el <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5512	5685	
==>h.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5512	5685	
==>h.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1802	1888	
==>le(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3178	3264	
==>le(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7952	8061	
==>ser::prop;
}
{
  package Regexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	365	459	
==>ode>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	365	459	
==>ode>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5008	5130	
==>e_class(shift)->superclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($self, $label, $method <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3704	3830	
==>$seen{$method}++;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort keys %seen ) {
        *{"${who}:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1378	1516	
==>h as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1378	1516	
==>h as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5871	5998	
==>rns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9348	9475	
==>rns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1925	2082	
==>my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1913	2070	
==>my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11168	11278	
==>l is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11226	11336	
==>l is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4642	4753	
==>" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("htt <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4642	4753	
==>" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("htt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11893	12003	
==>:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11893	12003	
==>:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the ti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29984	30131	
==>n of this object.  It does not look at the
children of the object, just itself.  This is used primarily when
inspecting the parsing of the regex.

= <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	147	277	
==>|Junction $test ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 mul <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	472	581	
==>ations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	472	581	
==>ations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_sp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	306	408	
==>grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->compiled(su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16515	16611	
==>iles), often even while the program is executing.

Locale::KeyedText gives your application the m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16515	16611	
==>iles), often even while the program is executing.

Locale::KeyedText gives your application the m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1169	1283	
==>er 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
result <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1169	1283	
==>er 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
result <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2610	2714	
==>ammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2750	2854	
==>ammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8192	8304	
==>y $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8192	8304	
==>y $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14684	14821	
==>, pos, lastpos
    if $I0 > pos goto scalar
  eos_anchor:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Anchor")
    mob["value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4029	4141	
==>er chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3887	3996	
==>er chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3604	3698	
==>n algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3604	3698	
==>n algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream> <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3978	4081	
==>WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3978	4081	
==>WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18590	18674	
==>AssignmentExpressionNoIn> <':'> <AssignmentExpressionNoIn>
}
rule AssignmentExpressio <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	719	830	
==>erldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	719	830	
==>erldoc::DOM::Node representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6070	6167	
==>', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6070	6167	
==>', 'SubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVa <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3180	3415	
==>$in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3180	3415	
==>$in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4145	4244	
==>atch object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array refer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4145	4244	
==>atch object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array refer <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2564	2736	
==>Size($size - $orig);
                } else {
                    $#{$self->get_value('@:slots')} = ($size - 1);
                }
            },

            'array_extendS <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	83	232	
==>class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'unde <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	83	232	
==>class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'unde <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14871	14972	
==>ctures are implemented, we will need an easy way
to test them. So we will implement the Test::More fun <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14929	15030	
==>ctures are implemented, we will need an easy way
to test them. So we will implement the Test::More fun <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3942	4056	
==>atch of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3942	4056	
==>atch of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, : <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6649	6808	
==>n $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6649	6808	
==>n $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13814	13920	
==>each header field in turn.  The callback routine
is called with two parameters; the name of the field and a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13814	13920	
==>each header field in turn.  The callback routine
is called with two parameters; the name of the field and a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5520	5635	
==>$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5520	5635	
==>$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$de <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1550	1687	
==>";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1550	1687	
==>";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	210	343	
==>e Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only calle <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	208	341	
==>e Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only calle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20347	20445	
==>ugh program package installers usually do it.  An os-level preference
/ control-panel displays a li <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20347	20445	
==>ugh program package installers usually do it.  An os-level preference
/ control-panel displays a li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1361	1489	
==>($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Func <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1361	1489	
==>($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Func <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	773	868	
==>f8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	773	868	
==>f8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11054	11152	
==>in list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11054	11152	
==>in list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spec ( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	461	622	
==>$input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            m <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	461	622	
==>$input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2654	2802	
==>~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2654	2802	
==>~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8619	8720	
==>e set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8619	8720	
==>e set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2133	2264	
==>nfix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7046	7212	
==>$_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6810	6971	
==>$_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30913	31011	
==>nt one.  The
Member Name comes next and is what distinguishes each module from others in
its set. F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30913	31011	
==>nt one.  The
Member Name comes next and is what distinguishes each module from others in
its set. F <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5281	5426	
==>..},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5281	5426	
==>..},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	668	764	
==>It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.o <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	668	764	
==>It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2672	2789	
==>);
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub qua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2660	2777	
==>);
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub qua <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6878	7100	
==>' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => ' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6935	7157	
==>' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8013	8115	
==>class solves is when you need do perform "set" operations on 
Span objects, that return lists of spans. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8013	8115	
==>class solves is when you need do perform "set" operations on 
Span objects, that return lists of spans. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23169	23267	
==>ther automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not modif <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23169	23267	
==>ther automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not modif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	390	507	
==>ailed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	372	483	
==>ailed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6496	6596	
==>y of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method should ope <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6496	6596	
==>y of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method should ope <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3688	3785	
==>od2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3688	3785	
==>od2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Ev <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10496	10627	
==>); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10496	10627	
==>); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21716	21809	
==>ead2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks someb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21716	21809	
==>ead2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks someb <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2406	2536	
==>e_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTok <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1104	1234	
==>_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7600	7726	
==>bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7588	7714	
==>bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%na <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14754	14851	
==>to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

On <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14812	14909	
==>to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

On <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4953	5048	
==>ore control or access to the header fields in the requests
sent and responses received, then you <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4953	5048	
==>ore control or access to the header fields in the requests
sent and responses received, then you <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	880	982	
==>g 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	880	982	
==>g 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	316	421	
==>unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	316	421	
==>unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} || <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25945	26043	
==>variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26188	26286	
==>variable::free->new;
	my $type = type::operator::arrow->new(
		type::operator::nary->new(list => $a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7315	7426	
==>st( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7315	7426	
==>st( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4354	4465	
==>ect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4354	4465	
==>ect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4363	4480	
==>ous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4363	4480	
==>ous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1419	1540	
==>ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexported C<Log::Selective::sele <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1419	1540	
==>ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexported C<Log::Selective::sele <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7280	7390	
==>->object(eol => seol => '\Z');
  });

  # eos (end of string)
  $self->add_handler('\z' => sub {
    my ($S, $c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23247	23339	
==>perators (over said accessors), which can be employed when objects of
multiple different Rela <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25841	25936	
==>item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variabl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25841	25936	
==>item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variabl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18147	18250	
==>e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41412	41515	
==>e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block- <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	932	1038	
==>tput =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($site <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	932	1038	
==>tput =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($site <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25952	26069	
==>em C<$!heading> - B<Relation::Example Heading>

Set of Str - This contains zero or more Relation::Example attribute na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32697	32795	
==>n ending node to the walking stack is that ending
nodes are all omitted from the tree because of th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2977	3086	
==>de &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3035	3144	
==>de &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11217	11360	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11496	11639	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'ru <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1688	1812	
==>D = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1138	1283	
==>$.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1138	1283	
==>$.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_tim <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9544	9684	
==>, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9544	9684	
==>, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my <==
2	/Users/nnunley/pugs/util/combine_tests.pl	510	607	
==>is added to each member of the more_events[].
#
# more_revisions[] is added with revision number o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	235	328	
==>NOTERM => --$ENUM, 'Sequence (?#... not terminated';
use constant RPe_LOGDEP => --$ENUM, '(?p{ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2518	2642	
==>not call "TAILCALL" "GOTO"?  So you can easily search on both.
 Why LET but not TEMP?  LET is non-trivial, TEMP isn't.  Minim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3753	3942	
==>->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Gra <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	31003	31104	
==>2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< <andy at petdance.com> >>.

T <==
2	/Users/nnunley/pugs/util/package-osx.pl	1002	1099	
==>sr/local/share/doc/parrot
        /usr/local/info/readline.info
        /usr/local/info/rluserman. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1495	1625	
==>is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1495	1625	
==>is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3092	3203	
==>stat 768, 0x300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% oka <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	669	765	
==>onfig{installscript},
        sitescript     => $Config{installsitescript} || $Config{installscri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2173	2298	
==>sage = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2173	2298	
==>sage = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $stat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	333	432	
==>ns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAM <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	333	432	
==>ns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAM <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	587	691	
==>erence()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	587	691	
==>erence()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12862	12987	
==>e' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12862	12987	
==>e' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_has <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3528	3613	
==>TRAPPING COMPLETE
## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5430	5515	
==>TRAPPING COMPLETE
## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15807	15900	
==>-codes the elements of the regex
according to a style-sheet (syntax highlighting).

=item Rege <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39812	39911	
==>terms of the GNU Lesser General Public License (LGPL) as
published by the Free Software Foundation ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39812	39911	
==>terms of the GNU Lesser General Public License (LGPL) as
published by the Free Software Foundation ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18551	18654	
==>ily eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19909	20012	
==>ily eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1747	1904	
==>/) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1747	1904	
==>/) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5676	5852	
==>returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5676	5852	
==>returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19233	19351	
==>d, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19233	19351	
==>d, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4885	4998	
==>dex ( $self->index_file, $self->index_files(package => $pkg) ) {
        unless (-e $index) {
            # create <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7883	8001	
==>nless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7871	7989	
==>nless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1788	1892	
==>) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1846	1950	
==>) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $go <==
2	/Users/nnunley/pugs/util/func_refact.pl	2712	2832	
==>d($_, $cands{$_}) for
        sort {score(@{$cands{$b}}) <=> score(@{$cands{$a}})}
        keys %cands;

    # prompt the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3396	3507	
==>l {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_param <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3396	3507	
==>l {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_param <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3098	3202	
==>sending application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3098	3202	
==>sending application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13461	13563	
==>te that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13461	13563	
==>te that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3200	3403	
==>t(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3200	3403	
==>t(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when : <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	159	272	
==>ct but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	159	272	
==>ct but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6387	6497	
==>th non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6387	6497	
==>th non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13278	13375	
==>hese fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13278	13375	
==>hese fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object that co <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15968	16104	
==>file};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{rege <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3976	4080	
==>my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_RBRACE, ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26094	26197	
==>hort
string; the allowed variable names you can have depend on the Message Key
it is being used with (ot <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26094	26197	
==>hort
string; the allowed variable names you can have depend on the Message Key
it is being used with (ot <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1044	1162	
==>ne',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1044	1162	
==>ne',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Large', <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9813	9909	
==>TDERR "hi\n";
    return reverse(1,undef,undef,1,3,2,3);
};
=pod
=cut

my($qr) = Regexp::StructHo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1075	1202	
==>de => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1086	1213	
==>de => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	335	593	
==>lues used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	335	593	
==>lues used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1465	1569	
==>ole parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler ma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1465	1569	
==>ole parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler ma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7319	7433	
==>sult4 = $Result3 % $n2_32;
    return $Result4;
}

# 9.7
multi sub ToUint16(JSX::Value $v) {
    use Math qw(sign f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5051	5151	
==>,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15408	15593	
==>$r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18885	19070	
==>$r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	405	529	
==>VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1263	1387	
==>VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13855	13972	
==>e_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1335	1452	
==>e_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	453	557	
==>et::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	453	557	
==>et::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4327	4439	
==>o, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4385	4497	
==>o, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27521	27615	
==>the
Relation::Example has zero attributes.  If C<$body> is undefined or an empty Set,
the Relat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10079	10203	
==>($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*::WALKCLASS", 
    closure->new(
        $::ENV, 
        closure: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7286	7446	
==>n 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7286	7446	
==>n 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2654	2767	
==>Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that as Pugs matures this <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2654	2767	
==>Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
hope that as Pugs matures this <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3728	3840	
==>$Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var > 1) {
        &$reduce_help <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22734	22829	
==>ontain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36901	36999	
==>::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36901	36999	
==>::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5622	5729	
==>he lexer
        #q(<) => Pugs::Compiler::Regex->compile( q(
        #    <Pugs::Grammar::Term.angle_quoted> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28065	28150	
==>>describe,"\n";
print $r->('xxx')->describe,"\n";
print $rx->('abc')->('abc')->describ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15749	15844	
==>r_width(@test_files);

Calculates how wide the leader should be based on the length of the
longe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2139	2257	
==>ath, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2139	2257	
==>ath, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9104	9233	
==>es and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LI <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2139	2268	
==>es and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LI <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9013	9140	
==>ub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9013	9140	
==>ub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $blo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34817	34922	
==>espectively.

=item C<restrict (Code $predicate!) returns Relation::Example>

This method is a generic rel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17735	17838	
==>uaranteed to be unique for a situation, and this is
mapped to a user-readable message at some point.  Fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17735	17838	
==>uaranteed to be unique for a situation, and this is
mapped to a user-readable message at some point.  Fo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5849	5951	
==>is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All headers a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5849	5951	
==>is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All headers a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7325	7424	
==>er order operators: alternation, concatenation.

- "plain" match operators: like 'literal'.



Highe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7075	7171	
==>er order operators: alternation, concatenation.
- "plain" match operators: like 'literal'.

Highe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2129	2230	
==>turns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2129	2230	
==>turns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7241	7375	
==>th,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7241	7375	
==>th,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9676	9794	
==>erl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10512	10630	
==>erl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2627	2755	
==>ty} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return ternary( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	403	520	
==>, $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self)->new( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19767	19865	
==>PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19767	19865	
==>PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9500	9817	
==>and(
                          block->new($e, sub { 
                              my $e = shift; 
                              $e->get("$method")->is_nil(); 
                          })
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) cr <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	96	205	
==>ch;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	96	205	
==>ch;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18455	18557	
==>e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41720	41822	
==>e->get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->d <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8301	8428	
==>tring ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8301	8428	
==>tring ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1497	1628	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but ra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1497	1628	
==>): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13530	13635	
==>ntifiers must follow something
    $rx->error($rx->RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5952	6053	
==>', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all-packages -package stm -package n <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7257	7356	
==>th non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
mult <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7257	7356	
==>th non-sets
multi sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
mult <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	264	362	
==>d keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths h <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10546	10713	
==>') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                els <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10546	10713	
==>') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                els <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45087	45199	
==>-----------
## now build Package & Module, so we can create something here

$::Package = $::Class->send('new');
$ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	416	521	
==>t => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	416	521	
==>t => $output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5563	5662	
==>te that calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefined re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5563	5662	
==>te that calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefined re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2506	2645	
==>erl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id shou <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2506	2645	
==>erl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id shou <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3164	3272	
==>span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3164	3272	
==>span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.spa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	147	243	
==>ty encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meani <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	147	243	
==>ty encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meani <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12990	13113	
==>code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12990	13113	
==>code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8589	8702	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8782	8895	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2500	2735	
==>t;
                    }
                    # expects an op
                    # x < 1  --- less than
                    # x<1    --- starts angle-quote
                    unless ( $whitespace_before ) {
                        $m = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11481	11571	
==>, p5_comment_body(L), ")".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3517	3627	
==>odule Pugs.Config (
    config,
    getConfig
) where

import qualified Data.Map as Map
import qualified Pugs.V <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5884	6015	
==>=> chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5884	6015	
==>=> chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1339	1497	
==>vents<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1339	1497	
==>vents<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2084	2188	
==>:Grammar::Rule::$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5560	5660	
==>'\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	368	491	
==>s than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Adde <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	368	491	
==>s than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Adde <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9794	9898	
==>tinction of being the very first module written for Pugs.

It provides a simple set of common test utilit <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9852	9956	
==>tinction of being the very first module written for Pugs.

It provides a simple set of common test utilit <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4883	5006	
==>return 1;
    } else {
        error("Failed to move '$from' to '$to': $!");
        return;
    }
}

=pod JIB::Utils->_copy <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2907	3010	
==>ranslate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2907	3010	
==>ranslate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26335	26440	
==>etta would
appreciate being informed any time you create a modified version of Rosetta
that you are willin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26335	26440	
==>etta would
appreciate being informed any time you create a modified version of Rosetta
that you are willin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21143	21237	
==>Flag handlers now receive an additional argument that says whether
they're being turned on or o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11351	11447	
==>r $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11351	11447	
==>r $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1796	1903	
==>s Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1854	1961	
==>s Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expecte <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12624	12776	
==>=~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12624	12776	
==>=~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	881	982	
==>urn &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	881	982	
==>urn &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	119	224	
==>er;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	119	224	
==>er;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1885	1979	
==>gs::Internals::log_base($x,$base);
 }

sub Pugs::Internals::log_base(Num $x, Num $base) {
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	53	158	
==>s::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	53	158	
==>s::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11044	11148	
==>:$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11102	11206	
==>:$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	635	766	
==>opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label";
    
    $label = str->new($label) 
        u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17346	17446	
==>ribed here, and hence provides these
benefits to developers and users alike.

For some practical exam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17346	17446	
==>ribed here, and hence provides these
benefits to developers and users alike.

For some practical exam <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2764	2960	
==>h.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($v <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2764	2960	
==>h.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	634	761	
==>sitory->new( dir => $dir )
            or error( "Could not create JIB::Repository object from '$dir'" );
        push @inst, $i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5247	5368	
==>ocale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5247	5368	
==>ocale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3321	3460	
==>nsions}};
    unless ( @exts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    f <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	907	1038	
==>mpt, ($default || 'n')) =~ /^[Yy]/;
    $self->install_script($script_file);
}

sub install_script {
    my $self = shift;
    my $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	410	507	
==>D__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This mod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	410	507	
==>D__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This mod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3946	4105	
==>r::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecognized token '",s <==
2	/Users/nnunley/pugs/util/package-osx.pl	9629	9755	
==>dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my $from (@fil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4073	4181	
==>(?=\w)//s;
	return if $ref eq $cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL::isa($x,$cls);
    }
    r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7818	7919	
==>ries on test include list
    --incude=I1,[I2,...]    Include files
    --exclude=E1,[E2,...]   Exclud <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2116	2225	
==>r (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2116	2225	
==>r (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $fie <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4483	4584	
==>ds are available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4483	4584	
==>ds are available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9611	9771	
==>shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n-> <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1974	2068	
==>you need a real implementation
consult a book, like Numerical Recipies.)  In particular, it suf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17064	17157	
==>A decimal number indicating the size in bytes of the message content.

=item $h.content_langua <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17064	17157	
==>A decimal number indicating the size in bytes of the message content.

=item $h.content_langua <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2144	2244	
==>C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 F <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2144	2244	
==>C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 F <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14040	14151	
==>or WALKCLASS($dispatcher) -> $c {
        for $c->get_attribute_list() -> $attr {
            %attrs{$attr->name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35697	35796	
==>ts

Ender: I<close>

=head2 close

Family: close

Types: close1, close2 ... closeN (C<)> when in C<( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7149	7243	
==>$meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7149	7243	
==>$meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	119	238	
==>Str  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	119	238	
==>Str  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9233	9349	
==>ue, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9233	9349	
==>ue, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	736	833	
==>des from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	736	833	
==>des from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	426	531	
==>PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	426	531	
==>PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1835	1965	
==>rds;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1835	1965	
==>rds;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!pa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3696	3799	
==>small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-M <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3696	3799	
==>small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-M <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	285	416	
==>),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22491	22579	
==>_member(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrange(C <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1883	2122	
==>fix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						),
					),
				),
			),
		),
		result => 120,
		name => "recursion via dynamic scope",
	},
);

sub smoke_runtime {
	my $ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	36	129	
==>'0.36';
use FindBin;

die << "." unless $INC{join('/', inc => split(/::/, __PACKAGE__)).'.pm'} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	458	570	
==>less $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	458	570	
==>less $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1295	1454	
==>ad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1295	1454	
==>ad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9865	9965	
==>ities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9865	9965	
==>ities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $str <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11865	11973	
==>o wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11923	12031	
==>o wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1623	1761	
==>rx;
  croak "no regex defined" unless &RxLEN;
  1 while $self->next;
  return 1;
}


sub root {
  my ($self) = @_;
  $self->parse if $self- <==
2	/Users/nnunley/pugs/util/package-osx.pl	344	448	
==>mlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = qw(
        /usr/local/bin/parro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3890	4025	
==>x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3902	4037	
==>x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 s <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	358	460	
==>$pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - slurpy magic doesn't work too well prese <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9209	9336	
==>found in path.  Testing $ghc_pkg\n";

            # If the file exists, and it looks like it's in windows
            # land, an <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8926	9027	
==>(L)            -->      p5_charset_items(L0), p5_charset_def_x(L0,L).
p5_charset_def_x(L0,L1) --> "-", <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3959	4068	
==>he outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3971	4080	
==>he outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16905	17004	
==>::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certain localizatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16905	17004	
==>::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certain localizatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20316	20410	
==>ack

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonical <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20316	20410	
==>ack

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonical <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6019	6135	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/opera <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6409	6525	
==>The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/opera <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3511	3670	
==>);
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3511	3670	
==>);
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7567	7710	
==>d")
                 && pugs_internals_m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20951	21085	
==>rn $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref') . $self->nparen;
  }

  s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4027	4139	
==>izer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3885	3994	
==>izer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14481	14620	
==>fined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14481	14620	
==>fined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $cha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	108	203	
==>$n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Arr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	108	203	
==>$n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Arr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11737	11837	
==>&infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not impl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11795	11895	
==>&infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently not impl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19021	19124	
==>on:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19021	19124	
==>on:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4534	4641	
==>se,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# ---- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4534	4641	
==>se,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# ---- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2619	2746	
==>match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2619	2746	
==>match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2295	2401	
==>e currently do not have objects or fully functioning modules in 
Pugs, this port does it's best to work wit <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2295	2401	
==>e currently do not have objects or fully functioning modules in 
Pugs, this port does it's best to work wit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10780	10879	
==>eld. If the $value is undefined or not
given, then that header field will remain unchanged.

The old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10780	10879	
==>eld. If the $value is undefined or not
given, then that header field will remain unchanged.

The old <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10737	10838	
==>THODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from th <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10737	10838	
==>THODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from th <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3963	4084	
==>um $x ; Num :$base --> Num )
 {
     Pugs::Internals::atan2($y,$x);
 }


 multi Math::Trig::pi ( --> Num )
 {
     3.14159 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	686	790	
==>Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - co <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	686	790	
==>Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	581	717	
==>3 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	581	717	
==>3 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Req <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7404	7533	
==>y ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19424	19553	
==>y ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      type <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16331	16428	
==>ce is defined mainly in terms of a new high-level
programming language named "Rosetta D", which is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16331	16428	
==>ce is defined mainly in terms of a new high-level
programming language named "Rosetta D", which is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2595	2698	
==>>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2779	2882	
==>>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11929	12027	
==>he header() method, the field name ($field) is not case
sensitive and '_' can be used as a replacem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11929	12027	
==>he header() method, the field name ($field) is not case
sensitive and '_' can be used as a replacem <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8069	8184	
==>$stringify = sub {
	my($s)=@_;
	$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    return "" if $kind e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7623	7720	
==>r (symbol new (%:methods))) exists ($label))))

=cut

$::Class->send('add_method' => (
    # metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19844	19941	
==>d Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19844	19941	
==>d Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour con <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	163	262	
==>e object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fiel <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	163	262	
==>e object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fiel <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	775	954	
==>( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet. <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	775	954	
==>( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2941	3063	
==>lemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3790	3912	
==>lemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $na <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3088	3189	
==>ay_of_year ::= &Date::Gregorian::doy;
method week returns Int { int (./doy / 7) }

method day_of_month <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23898	23998	
==>ample indicates a failure is to throw an exception;
most often this is due to invalid input.  If an i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	483	582	
==>.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	483	582	
==>.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5762	5932	
==>$len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4262	4432	
==>$len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6801	6903	
==>$n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6801	6903	
==>$n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2071	2174	
==>__

=head1 NAME 

v6-pugs - an experimental Perl 6 implementation

=head1 SYNOPSIS

Command line:

    $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1357	1549	
==>see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SEL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1357	1549	
==>see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SEL <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1083	1191	
==>th(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1083	1191	
==>th(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8886	9025	
==>(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8886	9025	
==>(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1308	1407	
==>( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1308	1407	
==>( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4061	4171	
==>h( "xyzw" );
    is( "$match", "x", 'stringify 1' );
}


__END__

Operator precedence parser

--- from S05 ---- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10284	10386	
==>ult = DOWN($paramDefault) if defined($paramDefault);
    return { isInvocant=>$isInvocant, isOptional=> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1764	1903	
==>h( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OU <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1764	1903	
==>h( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OU <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2656	2794	
==>ck => sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity => 'infix',
    } );
    $cat->a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	373	457	
==>nstallation>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L<JIB::Package: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4082	4226	
==>{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4082	4226	
==>{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20638	20742	
==>er :ascendant)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY))))
     (while ($method is_n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6486	6596	
==>}
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6486	6596	
==>}
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5113	5251	
==>anup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5113	5251	
==>anup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $match2- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18137	18239	
==>a Native
Interface, if at all.  To account for situations where multiple DBMS
objects want to use the s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18137	18239	
==>a Native
Interface, if at all.  To account for situations where multiple DBMS
objects want to use the s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4909	5008	
==>ch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4909	5008	
==>ch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27488	27588	
==>g Message object, you must create a new
object that is a clone of the first but for the changes.

=ba <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27488	27588	
==>g Message object, you must create a new
object that is a clone of the first but for the changes.

=ba <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	944	1071	
==>ug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	944	1071	
==>ug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	979	1110	
==>nt "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	990	1121	
==>nt "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tai <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8766	8875	
==>unicode_c/;
        s/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS__/@include_dirs/;
        s/__LIBS__/@li <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29024	29118	
==>le>

This method is a generic relational operator that returns a new Relation::Example
which is <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3916	4013	
==>ray { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3916	4013	
==>ray { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25852	25953	
==>$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> values duplicate eac <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30404	30505	
==>$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> values duplicate eac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1338	1437	
==>self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1338	1437	
==>self._stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4460	4564	
==>1 METHODS

Since the current version of Pugs does not support OO, methods are
implemented as hash keys to <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4460	4564	
==>1 METHODS

Since the current version of Pugs does not support OO, methods are
implemented as hash keys to <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1317	1416	
==>ACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $E <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4339	4449	
==>ate[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4339	4449	
==>ate[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11	121	
==>:IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11	121	
==>:IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes" bot and queue, t <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1093	1203	
==>) returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime:: <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1093	1203	
==>) returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8369	8510	
==>\$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::imm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9124	9277	
==>n_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 ! <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9124	9277	
==>n_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12841	13004	
==>return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12835	12998	
==>return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1] <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2570	2666	
==>te: The only option you'll have to specify is probably --initrd-mnt.

Note: I only tested this pr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	652	759	
==>given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<qu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	652	759	
==>given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<qu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4363	4470	
==>p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural inte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4363	4470	
==>p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural inte <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3319	3422	
==>y @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {c <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3319	3422	
==>y @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	125	234	
==>CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::Fals <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	125	234	
==>CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::Fals <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11565	11687	
==>t for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11565	11687	
==>t for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6448	6716	
==>le @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop whil <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6448	6716	
==>le @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop whil <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10794	10903	
==>' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information ab <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10794	10903	
==>' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information ab <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18871	19007	
==>kage> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top lev <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18871	19007	
==>kage> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top lev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	472	558	
==>ler::Rule->compile(q(<'rule'> <rule_name><?ws>?<block>{
	my $body = substr($<block>, 1, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11226	11322	
==>c?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11284	11380	
==>c?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4382	4538	
==>id infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner mu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4382	4538	
==>id infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner mu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2234	2373	
==>));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2234	2373	
==>));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8175	8296	
==>( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_line($tfile), "\n";
        }
        my %re <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2570	2696	
==>@PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2570	2696	
==>@PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7077	7304	
==>span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7077	7304	
==>span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8538	8654	
==>you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8538	8654	
==>you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10403	10501	
==>rformed
on demand at some time after the input has been set, and could potentially
never be perform <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10403	10501	
==>rformed
on demand at some time after the input has been set, and could potentially
never be perform <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4946	5125	
==>e different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4946	5125	
==>e different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15092	15197	
==>OSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9291	9396	
==>OSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $ne <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4865	4973	
==>pans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4865	4973	
==>pans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19021	19138	
==>c and mathematics and philosophy ("a predicate ranging
over more than one argument"), which is also the basis of the r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22671	22788	
==>c
and mathematics and philosophy ("a predicate ranging over more than one
argument"), which is also the basis of the r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14118	14210	
==>]; TAILCALL(&$c,$noop);};
    $f_else = $o->data->[1]->data->[1][0]->emit if @{$o->data->[1]- <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4740	4863	
==>ethods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4599	4722	
==>ethods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35817	35917	
==>eading as
the invocant Relation::Example, and returns a new Relation::Example that has the same headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37849	37949	
==>eading as the
invocant Relation::Example, and returns a new Relation::Example that has the same headi <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3426	3557	
==>e "Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3669	3784	
==>ub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3669	3784	
==>ub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $val <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3631	3742	
==>ment
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3631	3742	
==>ment
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1681	1785	
==>ture with three node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divide <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1613	1714	
==>ture with three node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divide <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5241	5336	
==>KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5241	5336	
==>KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Loca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33223	33325	
==>earched in the order
they appear in this array until a match for that message is found.  Since a
progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33223	33325	
==>earched in the order
they appear in this array until a match for that message is found.  Since a
progra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	649	759	
==>ucture that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	617	720	
==>ucture that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	233	358	
==>t;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non', <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16687	16805	
==>run, ".
            "alas--no output ever seen\n";
    } else {
        $pct = sprintf("%.2f", $tot->{good} / $tot->{te <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10589	10690	
==>l, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10647	10748	
==>l, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	145	240	
==>e real YAML.pm
use PugsBuild::MiniYAML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	985	1102	
==>edText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	985	1102	
==>edText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	898	1012	
==>H>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	898	1012	
==>H>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12926	13037	
==>N

This document describes Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12926	13037	
==>N

This document describes Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Loca <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3304	3411	
==>ns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3304	3411	
==>ns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	936	1045	
==>ilter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also wor <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	936	1045	
==>ilter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also wor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1067	1190	
==>$@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: COD <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1272	1395	
==>$@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: COD <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5828	5929	
==>handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5828	5929	
==>handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Pe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5329	5429	
==>ify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" -> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	10	108	
==>ugs::Runtime::Perl6;

use strict;
use warnings;

use Data::Dumper;

# TODO - see Pugs::Runtime::Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7383	7532	
==>'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7576	7725	
==>'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1776	1879	
==>t seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1776	1879	
==>t seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic for <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23559	23672	
==>an be used to see if a Relation-doing object
can mutate.  Depending on the implementing class, it can default to T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28111	28224	
==>an be used to see if a Relation-doing object
can mutate.  Depending on the implementing class, it can default to T <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8281	8396	
==>l {  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <DecimalDigits>?
}
rule DecimalDigits {  # see 7.8.3
      <Decima <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8443	8585	
==>tmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8443	8585	
==>tmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	531	624	
==>le the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	531	624	
==>le the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14298	14408	
==>st_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14298	14408	
==>st_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = ti <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17106	17228	
==>al tests which should have been run
  seen              total tests actually seen
  skip_all          if the whole test was <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2013	2115	
==>() if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2013	2115	
==>() if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4570	4723	
==>y $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4570	4723	
==>y $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(ma <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2033	2158	
==>sa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $de <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5703	5892	
==>turns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9180	9369	
==>turns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	713	811	
==>er native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1303	1401	
==>er native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6595	6824	
==>uck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6595	6824	
==>uck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $m <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1497	1601	
==>ubmethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx: <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1497	1601	
==>ubmethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16060	16162	
==>mentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta itself wor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16060	16162	
==>mentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta itself wor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6220	6337	
==>xp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx = <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3290	3399	
==>elf, $path, $top_obj) = @_;
    $path = "$self->{base}/$path";

    unshift @INC, $self->{prefix}
        unle <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	94	261	
==>rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	95	262	
==>rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3403	3572	
==>t _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3867	4036	
==>t _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	211	334	
==>lf:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_att <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	211	334	
==>lf:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_att <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	275	369	
==>doc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>. <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	275	369	
==>doc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6056	6154	
==>plemented. Currently, the headers
are returned as one long string.

=item List Context

All headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6056	6154	
==>plemented. Currently, the headers
are returned as one long string.

=item List Context

All headers <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10592	10725	
==>d $switch;
        $switch =~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $switch ) if $switch ne "";
    }

    r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	116	227	
==>ORE('::Test' => class 'TestBuilder::Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2831	2931	
==><METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2831	2931	
==><METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<M <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2267	2436	
==>e from S29draft.pod 8651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	973	1123	
==>ule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" . $() ,} }
            ' );
    __PACKAGE__->recom <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2710	2831	
==>e\n" ],
      [ 'file12', $file12,
        "1st line\n2nd line\n3rd line\n4th line\n5th line\n".
        "6th line\n7th li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43697	43863	
==>$e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('DE <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	82	178	
==>::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use war <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4917	5101	
==>rt => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4917	5101	
==>rt => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20063	20172	
==>ost specific to most general order.
So inner blocks get compiled first, then outer blocks.

A compiler may cho <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20063	20172	
==>ost specific to most general order.
So inner blocks get compiled first, then outer blocks.

A compiler may cho <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10894	10999	
==>rmation about how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the sp <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10894	10999	
==>rmation about how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2531	2628	
==>is class represents the query string portion of a requested URI.
It provides the following methods <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2531	2628	
==>is class represents the query string portion of a requested URI.
It provides the following methods <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8928	9030	
==>def;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8986	9088	
==>def;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_e <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3896	3999	
==>string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3896	3999	
==>string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20505	20599	
==>val = $dir_index->{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4979	5149	
==>is dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5443	5613	
==>is dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4445	4599	
==>"class: ",Dumper $n;
            my $id;
            $id = exists $n->{param}{cpan_bareword} 
                  ? _mangle_ident( $n->{param}{cpan_barewo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13131	13231	
==>ot stick.

  The implementation is at best an XS-based module (currently Inline::C),
  and is thus no <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10099	10223	
==>s) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    . <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1181	1272	
==>L::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1181	1272	
==>L::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	549	731	
==>w
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as_num
       p6_as_str
       p6_as_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_o <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2942	3045	
==>) returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns S <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2942	3045	
==>) returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6358	6469	
==>until the start of the rule, which unsets the flag before returning.

- this can also be used to do fail() and a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6152	6262	
==>until the start of the rule, which unsets the flag before returning.
- this can also be used to do fail() and a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1767	1861	
==>::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document desc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1767	1861	
==>::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document desc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20237	20334	
==>vent {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20237	20334	
==>vent {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17027	17169	
==>cs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($ho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13448	13590	
==>cs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($ho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18471	18569	
==>create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Spec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18471	18569	
==>create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Spec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4126	4230	
==>e options passed to the 
C<new> constructor generally include some sort of key, and sometimes also 
param <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4126	4230	
==>e options passed to the 
C<new> constructor generally include some sort of key, and sometimes also 
param <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	801	936	
==>@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8646	8756	
==>ng_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8642	8752	
==>ng_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5597	5693	
==>eroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5597	5693	
==>eroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	162	288	
==>d on
# this way the other mini-meta-model can be experimented
# on without loosing this code as a reference point.

use Test::M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2679	2788	
==>val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2679	2788	
==>val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9656	9775	
==> 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contain <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9656	9775	
==> 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contain <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1495	1594	
==>onpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1495	1594	
==>onpath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4488	4602	
==>aram]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'Su <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4488	4602	
==>aram]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'Su <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2916	3024	
==>hift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2916	3024	
==>hift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5985	6096	
==>g  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5985	6096	
==>g  => -> ($str)  { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2978	3090	
==>rser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2978	3090	
==>rser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12766	12870	
==>spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12766	12870	
==>spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19832	19935	
==>etta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behavio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19832	19935	
==>etta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behavio <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2882	3012	
==>ch my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "E <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5081	5210	
==>ch my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die <<"E <==
2	/Users/nnunley/pugs/util/package-osx.pl	7835	7923	
==>sr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3/Perl6::Spec::Operat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1000	1113	
==>0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize by factoring out the <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25260	25362	
==>puting
 * it anyway.
 * [regmust is now supplied always.  The tests that use regmust have a
 * heuristi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2195	2301	
==>ar=>[],op_ahead=>undef};
    my($step);
    $step = sub{
      print STDERR Data::Dumper::Dumper $Z::oop{$i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14134	14228	
==>od quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14134	14228	
==>od quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1702	1825	
==>e a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $self->_init;

    return $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2367	2479	
==>->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missin <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1466	1557	
==>gs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1466	1557	
==>gs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, P <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1085	1187	
==>->isa('type'))
        || confess "Key must be a str type";
    return $self->{$key->to_str->to_native} <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1199	1297	
==>nt64'},'Clutter::int_size 64;');

#XXX- rename $n or $^n.  having the two of them "n" is confusing. <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16618	16720	
==>X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos)) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15666	15764	
==>X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$pos)) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2671	2789	
==>val { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule paramet <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2671	2789	
==>val { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule paramet <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18696	18800	
==>more
text strings to show human users.  This association would normally be
stored in a Perl file that def <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18696	18800	
==>more
text strings to show human users.  This association would normally be
stored in a Perl file that def <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26066	26162	
==>ch others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a gener <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30618	30714	
==>ch others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a gener <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2684	2816	
==>= PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6104	6201	
==>'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6104	6201	
==>'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5525	5667	
==>if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5525	5667	
==>if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14016	14114	
==>or each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14016	14114	
==>or each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	42	153	
==>*-
# $Id: Straps.pm 450 2004-12-20 04:51:42Z andy $

package Test::Harness::Straps;

use strict;
use vars qw($VE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6970	7094	
==>y //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6970	7094	
==>y //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_i <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15573	15713	
==>alse, $sec, $pico);

        # FIXME: this is how it oughta look, with @ids being class level.
        #my @ids = <year month day hour min se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1240	1401	
==>atement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1240	1401	
==>atement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	172	282	
==>ule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14848	14966	
==>}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return q <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14848	14966	
==>}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return q <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	76	183	
==>ich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkettung ist möglich: <==
2	/Users/nnunley/pugs/util/version_h.pl	206	310	
==>sion = -1;
open IN, "< $version_h" and do {
  while (<IN>) {
    /#define PUGS_SVN_REVISION (\d+)/ or nex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4197	4390	
==>mes;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4197	4390	
==>mes;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2100	2196	
==>ss / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2189	2285	
==>ss / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16596	16701	
==>ans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argum <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16596	16701	
==>ans.

- `difference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argum <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5963	6069	
==>-although they should be careful to avoid changing the 
actual semantics.

Please note that most of the tim <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5963	6069	
==>-although they should be careful to avoid changing the 
actual semantics.

Please note that most of the tim <==
2	/Users/nnunley/pugs/util/version_h.pl	2023	2148	
==>version_h got slot #0, like STDIN.
  no warnings "io";
  open OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVI <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8026	8112	
==>os(L).
p5_modifier_spec_pos([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p5_modifier_sp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7434	7564	
==>revious_comp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I32 api;

    nulpat = sa <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1276	1394	
==>r = @_;
   my $tot = 0;
   for my $s (@scr) { $tot += GolfScore($s) }
   print "You shot a round of $tot strokes.\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6971	7083	
==>e
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling with []

=cut <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6971	7083	
==>e
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling with []

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3346	3456	
==>g => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3346	3456	
==>g => -> ($str) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7528	7641	
==>Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7528	7641	
==>Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10476	10587	
==>( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10634	10745	
==>( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18879	19007	
==>...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15300	15428	
==>...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	506	607	
==>ub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	564	665	
==>ub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1773	1950	
==>$current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($cur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1773	1950	
==>$current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($cur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5176	5308	
==>_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5176	5308	
==>_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Cr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19749	19857	
==>> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19749	19857	
==>> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18846	18942	
==>ule will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> infor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18846	18942	
==>ule will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> infor <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3847	3948	
==>b matches {
  my ( $regularExpression, $target, $pos, $length) = @_;
  $length = 1 if not defined $len <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	100	197	
==>Prelude;
use Blondie::ADTs;
use Blondie::Nodes;
use Blondie::TypeSafe;

{
    package Blondie::Bac <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4689	4814	
==>ook_exec failed - paren info broken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      f <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	192	304	
==>span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	192	304	
==>span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2524	2786	
==>in', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2524	2786	
==>in', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6369	6482	
==>n = 0;
    r->reganch = 0;
    /* Make sure environment is set up (also helps scare off perl) */
    r->reganch |= <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7904	7999	
==>rintf(stderr,"calling out...\n");*/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr,". <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3896	4018	
==>iltering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect again <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3896	4018	
==>iltering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect again <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15090	15244	
==>g pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19265	19419	
==>g pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4113	4277	
==>eq $basename;
            push @candidates, $File::Find::name;
        };
        find $wanted, "dist";

        if (@candidates > 1) {
            # This is harmles <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	348	449	
==>ags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	348	449	
==>ags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3483	3609	
==>";

		my $flags = $obj->flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $nod <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	849	966	
==>BOLD . BLUE, RESET;
    }
    $args{using}->();
    if($args{pause}) {
      printf STDERR "\b\b\b\b\b   %s:%s Press a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8719	8824	
==>emp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  end_2:
  $matchOb <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10099	10190	
==>"http://svn.openfoundry.org/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3693	3790	
==>SCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" us <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3693	3790	
==>SCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" us <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	138	248	
==>essed';

$::TestBuilder = undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2693	2798	
==>2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "1st line\n2nd line\n3rd line\n4th line\n5th l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	620	756	
==>method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    < <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	620	756	
==>method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    < <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29359	29454	
==>rinting its output returns raw data
on the state of the tests.  (Partially done in Test::Harness <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	398	489	
==>$class = Class.new("SomeClass");
 my $type = Type.new(Class.new("SomeClass"));

 $class.appl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1385	1511	
==>your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1385	1511	
==>your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17456	17550	
==>is header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17456	17550	
==>is header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1847	1988	
==>ail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1786	1924	
==>ail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	248	417	
==>FFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	248	417	
==>FFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20590	20700	
==>) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest returned status $estatus ".
           "(wstat %d, 0x <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8696	8797	
==>-top:  30px; border-bottom: 2px solid #313052; }
    .indent1 { padding-top:  10px; border-bottom: 1px <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	268	369	
==>my %hash = {a=>'b'}; print "nach a kommt $hash{a}";
Perl 6: my %hash = {a=>'b'}; print "nach a kommt % <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	596	691	
==>f an object model object called the
# schema
Has($?CLASS, "schema", "Ref", { companion => "class <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	459	559	
==>me", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	459	559	
==>me", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35275	35379	
==>efine our own qr() method, because we don't want
to have &'s in our I<real> regex.  We need to convert C< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2177	2283	
==>$flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $fl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2177	2283	
==>$flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $fl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38387	38481	
==>dified
by interpolating the %msg_vars into it, where each variable value is
substituted for any <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38387	38481	
==>dified
by interpolating the %msg_vars into it, where each variable value is
substituted for any <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2726	2915	
==>t("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2726	2915	
==>t("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3983	4090	
==>ands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the gi <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3983	4090	
==>ands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the gi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1564	1682	
==>rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1564	1682	
==>rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	761	852	
==>::Value::Undefined is JSX::ValuePrimitive;
class JSX::Value::Null      is JSX::ValuePrimitiv <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	227	334	
==>t;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	227	334	
==>t;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15758	15858	
==>Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This libra <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15758	15858	
==>Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This libra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5308	5405	
==>';
    return new_box('Bool',(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_box('Bit',(sh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	109	221	
==>:Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@ARGV ) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19330	19436	
==>ive { die "Cannot 'pop' scalar"; };

multi as (Scalar $obj; $fmt) is builtin is primitive is safe {
    spr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13628	13736	
==>turns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13628	13736	
==>turns all items that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1  <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4686	4801	
==>X - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4698	4813	
==>X - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36594	36695	
==>n which case the returned Relation is identical to the
invocant.  Another trivial case is where any an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41143	41244	
==>n which case the returned Relation is identical to the
invocant.  Another trivial case is where any an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5598	5706	
==>::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5598	5706	
==>::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1101	1221	
==>f (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($ho <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1068	1188	
==>f (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($ho <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22075	22187	
==>L_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16976	17087	
==>L_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know. <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	456	566	
==>C, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposf <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	456	566	
==>C, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1112	1240	
==>> $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_ad <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1112	1240	
==>> $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_ad <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	699	810	
==>>SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . $opt{name} . '> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12112	12223	
==>s) returns Bool`

This function currently on checks with ref() since we do not yet have
object support. Once obj <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12170	12281	
==>s) returns Bool`

This function currently on checks with ref() since we do not yet have
object support. Once obj <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8264	8370	
==>@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2089	2195	
==>@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15639	15737	
==>e, a native French or Chinese speaker often prefers to
communicate in those languages.  Or, when vi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15639	15737	
==>e, a native French or Chinese speaker often prefers to
communicate in those languages.  Or, when vi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4620	4719	
==>omplement );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4620	4719	
==>omplement );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1258	1356	
==>C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1258	1356	
==>C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2679	2774	
==>Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2679	2774	
==>Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The reque <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27839	27941	
==>ort_as_hash () returns Hash>

This method returns a deep copy of this Relation::Example as a Hash ref o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2162	2358	
==>shift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2162	2358	
==>shift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1066	1168	
==>.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print(" <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1066	1168	
==>.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.print(" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1152	1267	
==>@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1152	1267	
==>@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $d <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6838	6961	
==>Params""pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pSubBo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9172	9287	
==>ename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my $test_results = $files->{$file_key} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	434	532	
==>ace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	434	532	
==>ace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	321	435	
==>$Available ) 
) {
    print "$struct->{package} -- $struct->{description}\n";

    ### XXX yaml this file?
    open <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8640	8761	
==>r numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8640	8761	
==>r numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	113	218	
==>5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	113	218	
==>5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7164	7315	
==>als;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7164	7315	
==>als;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17510	17603	
==><lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17510	17603	
==><lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the H <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	421	539	
==>e, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	421	539	
==>e, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23312	23422	
==>t> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23312	23422	
==>t> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5653	5754	
==>defined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is imp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5653	5754	
==>defined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is imp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1458	1561	
==>es them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1458	1561	
==>es them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2813	2941	
==>self->{_timing}{start};
    DumpFile($Config{"output-file"}, {
            meat => $self->structure,
            map { $_ => $sel <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2634	2754	
==>REFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    my $base = $self->{_top}{b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10779	10911	
==>T s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10779	10911	
==>T s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::N <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3406	3515	
==>uffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3406	3515	
==>uffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: A <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5152	5290	
==>\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5152	5290	
==>\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20993	21085	
==>y defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Postg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20993	21085	
==>y defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Postg <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1498	1601	
==>tructor takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number betw <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1498	1601	
==>tructor takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number betw <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30971	31072	
==>hes each module from others in
its set. For maximum flexibility in their use, the full name of a modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30971	31072	
==>hes each module from others in
its set. For maximum flexibility in their use, the full name of a modul <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	44	150	
==>r::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
h <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	44	150	
==>r::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14889	14985	
==>nted, we will need an easy way
to test them. So we will implement the Test::More function is_deep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14947	15043	
==>nted, we will need an easy way
to test them. So we will implement the Test::More function is_deep <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13846	13973	
==>e is
  off in perl runtime guts where it can't plausibly be reached to
  change.

  There may be no place to put the flag value? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14292	14421	
==>match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14286	14415	
==>match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32735	32837	
==>he Translator class as a whole is not pure and deterministic because it
invokes user-defined external f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32735	32837	
==>he Translator class as a whole is not pure and deterministic because it
invokes user-defined external f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2545	2647	
==>member that ciphering steps may not return all (or any) of the data you 
passed in, and that the finish <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2545	2647	
==>member that ciphering steps may not return all (or any) of the data you 
passed in, and that the finish <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3514	3686	
==>$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3514	3686	
==>$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10435	10547	
==>node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10435	10547	
==>node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1059	1193	
==>ined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1059	1193	
==>ined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3296	3431	
==>s" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3284	3419	
==>s" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8592	8690	
==>w elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8592	8690	
==>w elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existin <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	114	213	
==>de.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger -- <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	114	213	
==>de.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger -- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	44	146	
==>D() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	44	146	
==>D() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11205	11302	
==>_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11205	11302	
==>_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3016	3129	
==>less $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $prelude: $!";
        print $ofh $_ whil <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	33	183	
==>gs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inheritance or a junctive type?  hmm..
# type Perl::Type is Perl::Type::Regular | Per <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1226	1325	
==>can be put to other uses as well.

Log::Selective exports a single function, C<note>, which is calle <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1226	1325	
==>can be put to other uses as well.

Log::Selective exports a single function, C<note>, which is calle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13816	13919	
==>tion:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13816	13919	
==>tion:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $has <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1812	1912	
==>an define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

= <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1812	1912	
==>an define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	347	450	
==>PSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	347	450	
==>PSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1188	1278	
==>>code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1408	1498	
==>>code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws> <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	807	912	
==>eated using the C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	807	912	
==>eated using the C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
s <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	366	488	
==>'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	366	488	
==>'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7229	7370	
==>difier :$k is not yet supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && substr($k,-1,1) eq "x"
               && <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	621	710	
==>%results = $strap->analyze($name, \@test_output);
  my %results = $strap->analyze_fh($name <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	666	762	
==>oes Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	666	762	
==>oes Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11771	11876	
==>{
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11765	11870	
==>{
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	708	808	
==>standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	708	808	
==>standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3914	4112	
==>else fails, they are messages
            else {
                #warn "compiling args for $t";
                my $args = '';
                foreach my $arg (@t) {
                    if (!$args) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1774	1908	
==>=> $vis,
      zerolen => 1,
    }, $class;
    return $self;
  }
}


{
  # . \C
  package Regexp::Parser::reg_any;
  push @ISA, qw( Re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1221	1317	
==>e caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1221	1317	
==>e caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largel <==
2	/Users/nnunley/pugs/util/package-osx.pl	6198	6295	
==>w::Object.3pm
        /usr/local/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7633	7737	
==>FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method list (unresolved)');

# resol <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6390	6487	
==>)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it u <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6390	6487	
==>)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11803	11904	
==>d, $value )

Add a new field value for the specified header field.  Previous values
for the same field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11803	11904	
==>d, $value )

Add a new field value for the specified header field.  Previous values
for the same field <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2546	2644	
==>ents the query string portion of a requested URI.
It provides the following methods:

=over 8

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2546	2644	
==>ents the query string portion of a requested URI.
It provides the following methods:

=over 8

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26082	26180	
==>.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational oper <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30634	30732	
==>.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relational oper <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16793	16888	
==>and compile that into its own executable, in practice one would
normally just write some compone <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16793	16888	
==>and compile that into its own executable, in practice one would
normally just write some compone <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1356	1483	
==>urlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|" <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1356	1483	
==>urlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	417	513	
==>sure based system, similar to what is described
in here (note: same author as the first scheme co <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20079	20167	
==>ALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(2,$binstr) }
 multi prefix:<:10 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5022	5165	
==>p{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the defau <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5022	5165	
==>p{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the defau <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	475	584	
==>ecause of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        ret <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	475	584	
==>ecause of the lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18127	18223	
==>gicalANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      <LogicalANDExpress <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1177	1281	
==>-------------------------------------------------------------------------------

Since you are using Micr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1017	1121	
==>-------------------------------------------------------------------------------

Since you are using Micr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	419	518	
==>OPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specialised proc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	419	518	
==>OPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specialised proc <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20760	20856	
==>+_) is builtin is unsafe {
    #Pugs::Internals::use($module);
    Pugs::Internals::require_use_h <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5037	5183	
==>bly matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5037	5183	
==>bly matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15310	15416	
==>ly (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expect <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15368	15474	
==>ly (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expect <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1370	1469	
==>hod member($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1370	1469	
==>hod member($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method si <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18734	18841	
==>xp1.p6analyze(pad)
    unless_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	218	313	
==>se 'Pugs::Grammar::Base';
use Carp;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23560	23744	
==>\&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23839	24023	
==>\&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	975	1155	
==>ery Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # Thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	975	1155	
==>ery Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # Thi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1522	1662	
==>},
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and retu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1522	1662	
==>},
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and retu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	792	903	
==>size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defin <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	792	903	
==>size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defin <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9347	9433	
==>.
p5_charset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41094	41192	
==>and provided sample usage and patch
code, that supports embedding of Template modules into the same <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41094	41192	
==>and provided sample usage and patch
code, that supports embedding of Template modules into the same <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	168	260	
==>::Hash;
use Perl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3413	3509	
==>nation_more(W, Z) --> p5_quantified(X), p5_concatenation_more(conc(W,X), Z), !.
p5_concatenation_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3454	3595	
==>ool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3647	3788	
==>ool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{cap <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1643	1747	
==>out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1643	1747	
==>out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8617	8729	
==>$passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8617	8729	
==>$passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10590	10703	
==>rator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Cod <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10590	10703	
==>rator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Cod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	104	206	
==>6::Core::Ref;

use Perl6::MM::Attribute;

package opaque;

use strict;
use warnings;

use Carp 'confess <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2346	2473	
==>::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2346	2473	
==>::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15094	15192	
==>voke and which
multiple interchangeable "Engine" back-ends (usually provided by third
parties) impl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15094	15192	
==>voke and which
multiple interchangeable "Engine" back-ends (usually provided by third
parties) impl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17756	17867	
==>Rosetta D statements and routines
within the virtual machine, input data to it, and output data from it.

You ca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17756	17867	
==>Rosetta D statements and routines
within the virtual machine, input data to it, and output data from it.

You ca <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2617	2725	
==>f it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    # fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2265	2371	
==>mpiler::Rule->compile(q( <'grammar'> <grammar_name> \;[ [<rule>|<token>|<regex>]]* {
        return "packag <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6471	6575	
==>ethod end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6471	6575	
==>ethod end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17940	18057	
==>gexp engine is entangled with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2299	2416	
==>gexp engine is entangled with the rest of the perl core.
Some of the interaction is via global variables.  A lot of it <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3668	3782	
==>esign documents\n";
} else {    
    read_designdocs($syn_src_dir);
    print "P6 design documents   : $syn_src_dir <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18994	19090	
==>oginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18994	19090	
==>oginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19541	19641	
==>>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19541	19641	
==>>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authen <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9194	9304	
==>`end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9194	9304	
==>`end_is_closed()`

Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15567	15672	
==>te = time;  # set current date

=item $h.expires

This header gives the date and time after which the enti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15567	15672	
==>te = time;  # set current date

=item $h.expires

This header gives the date and time after which the enti <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4579	4681	
==>e only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The cons <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4579	4681	
==>e only function this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The cons <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3257	3378	
==>-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3257	3378	
==>-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	700	1121	
==>etta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	700	1121	
==>etta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Roset <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12553	12658	
==>urce =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12553	12658	
==>urce =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22670	22812	
==>tch ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22949	23091	
==>tch ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7163	7294	
==>erent type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7163	7294	
==>erent type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18298	18430	
==>->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10966	11060	
==>t operate
differently.

The string representation is built by calling the visual() method of
ea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2330	2529	
==>ld if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2330	2529	
==>ld if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2864	3111	
==>se constant ISA_JIB_REPOSITORY_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository::Set') };
use constant ISA_JIB_INSTALLATION_SET
                            => sub { U <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10465	10558	
==>char_class(class_neg(word))          --> "\\W", !.

p6_char_class(class_pos(horizontal_space)) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10567	10682	
==>xt, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10567	10682	
==>xt, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15595	15743	
==>nt($beg_n, $end_n-$beg_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1115	1240	
==>body => '+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6338	6440	
==>(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1249	1363	
==>Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and P <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1249	1363	
==>Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6349	6456	
==>odel::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6349	6456	
==>odel::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10245	10390	
==>oflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10245	10390	
==>oflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        deb <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	713	810	
==>e grammar, intended for a tokenizer, are not actually used.
#   * Some rules, eg StringNumericLite <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20462	20561	
==>2beec15";

The rationale of this is that randoms strings are usally left alone by
compilers. After a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20462	20561	
==>2beec15";

The rationale of this is that randoms strings are usally left alone by
compilers. After a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17029	17124	
==>anguage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" fi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17029	17124	
==>anguage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	263	379	
==>rl6::Scalar;

sub isa {
    my $self = $_[0];
    return 1 if $_[1] eq 'Str'  && defined $_[0];
    return 1 if $_[1] <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15625	15717	
==>lone(Re),F0,F1,B0,B1,E0,E1) :- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cut is semantic.

rm(co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18764	18863	
==>cument and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18764	18863	
==>cument and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1998	2128	
==>h my $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__END__

=p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30576	30682	
==>return $S->object(close =>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21408	21508	
==>ort
to alternative relational database engines with minimal effort.

This might seem strange to someb <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21408	21508	
==>ort
to alternative relational database engines with minimal effort.

This might seem strange to someb <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2660	2763	
==>s

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal param <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2660	2763	
==>s

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal param <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	514	639	
==>1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding norm <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	514	639	
==>1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding norm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17658	17812	
==>> 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17658	17812	
==>> 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'va <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1209	1351	
==>hift;
                $self->get_value('@:slots')->[$idx]; # type == Container::Scalar
            },
            
            'array_storeElem <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	883	989	
==>^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($o <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	883	989	
==>^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($o <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	916	1088	
==>H { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.requ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	916	1088	
==>H { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.requ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1059	1305	
==>odule Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Locali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1059	1305	
==>odule Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Locali <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2544	2659	
==>en ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2544	2659	
==>en ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11570	11691	
==>ug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11570	11691	
==>ug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8768	8866	
==>bject(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21343	21445	
==>t.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests added (specific <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5335	5467	
==>ex->compile( q(
            <Pugs::Grammar::Term.substitution>
            { return { 
                    substitution => $/{'Pugs:: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4122	4227	
==>_p6
    --welcome-p6 is a Perl 6 program runnable by Pugs which will
    introduce Pugs.
  --splashscreen= <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1006	1218	
==>nless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = c <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1006	1218	
==>nless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	318	490	
==>~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	318	490	
==>~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10063	10186	
==>pan0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10063	10186	
==>pan0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12433	12533	
==>Error

Use the errmsg() and errnum() methods to get the error information.

To see if an error is a p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	127	225	
==>d1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	127	225	
==>d1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5182	5299	
==>atch->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5182	5299	
==>atch->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	318	428	
==>f there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	318	428	
==>f there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	97	201	
==>s;

sub symbols {
    stub('&ternary:<?? !!>', '$cond', '$true', '$false'), # non short circuiting

    ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11256	11402	
==>) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11388	11534	
==>) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4035	4164	
==>d, and the spans must not intersect with each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4035	4164	
==>d, and the spans must not intersect with each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3011	3133	
==>attrs($self)->{'%:methods'}->{$label};
        }
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5085	5170	
==>----------------------------------------------------------------
## now begin creating <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14860	14968	
==>t");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  meth <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14860	14968	
==>t");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29678	29955	
==>ymbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	8	99	
==>.pl. Santa Claus golf game test program.
# For more detail: http://www.perlmonks.org/?node_i <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1367	1544	
==>set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1367	1544	
==>set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # ge <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1255	1352	
==>piler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junc <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1255	1352	
==>piler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4487	4622	
==>se( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4487	4622	
==>se( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* lo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3963	4076	
==>uter lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3975	4088	
==>uter lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6385	6476	
==>ection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatti <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6385	6476	
==>ection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatti <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5839	5955	
==>t ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

met <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5839	5955	
==>t ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27001	27114	
==>usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27001	27114	
==>usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1831	1922	
==>ad1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1831	1922	
==>ad1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7732	7823	
==>ef_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1557	1648	
==>ef_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7744	7854	
==>(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7744	7854	
==>(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36550	36662	
==>the result;
the new Relation::Example contains all the tuples of the source Relations, including
one copy each of <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10192	10292	
==>mpty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10192	10292	
==>mpty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14457	14561	
==>p { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1937	2041	
==>p { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER:: <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	699	1123	
==>9 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	699	1123	
==>9 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6657	6781	
==>1),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6657	6781	
==>1),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    " <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1091	1237	
==>{
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f($self->val));
    }

    package Thunk;
    use base 'Unit';

    s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4797	4928	
==>, Blondie will not have church integers any time soon.',
            ),
        ),

Inherits Unit.

=item Seq

Applies it's children <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1915	2033	
==>ent.

Recognition is due
  Salvador Fandino Garcia  for Language::Prolog::Yaswi,
    http://search.cpan.org/~salva/Lang <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25518	25623	
==>Relation>

This method is a generic relational operator that returns a new Relation
which is the same as t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30070	30175	
==>Relation>

This method is a generic relational operator that returns a new Relation
which is the same as t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22540	22662	
==>lass, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23042	23164	
==>lass, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14956	15063	
==>$neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, \$how);
  });

  # upper POSIX c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	285	404	
==>s %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	285	404	
==>s %!members;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12184	12291	
==>head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12184	12291	
==>head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6165	6432	
==>take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6165	6432	
==>take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17897	18052	
==>d it literally say 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15487	15623	
==>-boot",                     # Boot image is 'no emulation' image
      "-boot-load-size" => 4,              # Set numbers of load sectors <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4748	4894	
==>last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4748	4894	
==>last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2680	2786	
==>ample:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2680	2786	
==>ample:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3037	3150	
==>ue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3037	3150	
==>ue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.par <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7044	7272	
==>n];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7044	7272	
==>n];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span--
                }
                else <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2748	2883	
==>lf->{dispatch}"->new( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	924	1057	
==>lf->{dispatch}"->new(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4680	4903	
==>Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&repeatedly_apply_and_accum'),
                            Sym->new('&f'),
                            App->ne <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3291	3390	
==>, 'VType' , 'value' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5527	5711	
==>( $match->from ),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

# ------- higher-order rule <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1601	1729	
==>Lazy {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3980	4081	
==>$pos, $length) =~ $regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $match <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	11	128	
==>dule File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	11	128	
==>dule File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is ex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	656	753	
==>..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	714	811	
==>..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3232	3345	
==>e> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3232	3345	
==>e> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.cur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13711	13832	
==>ment.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13711	13832	
==>ment.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21353	21451	
==>go Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
mo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21353	21451	
==>go Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4395	4485	
==>::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4645	4735	
==>::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet>).

=head2 perl5

Instance met <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4714	4828	
==>'META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4573	4687	
==>'META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11855	11979	
==>$m = $X::cap->[$idx];
      my $s = "$m";
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))" if <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3552	3760	
==>et(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3552	3760	
==>et(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8290	8386	
==>{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8278	8374	
==>{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24669	24766	
==>s or export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
excepti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24669	24766	
==>s or export such.

The usual way that Locale::KeyedText indicates a failure is to throw an
excepti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	164	389	
==>( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	165	390	
==>( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10421	10604	
==>er );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13898	14081	
==>er );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30096	30197	
==>ntains the user-readable message text associated with the
Message; this user string may also contain v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30096	30197	
==>ntains the user-readable message text associated with the
Message; this user string may also contain v <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1363	1522	
==>litbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1363	1522	
==>litbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15401	15500	
==>t, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15459	15558	
==>t, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8787	8912	
==>tr $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8787	8912	
==>tr $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $stat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4325	4435	
==>E

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document desc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4325	4435	
==>E

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document desc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1232	1379	
==>em( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink $Control
    }
    
    pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14575	14685	
==>$p6 = Pugs::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1266	1373	
==>=>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1266	1373	
==>=>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	509	640	
==>p:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	509	640	
==>p:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	465	573	
==>m> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	465	573	
==>m> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13013	13100	
==>e-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13013	13100	
==>e-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2738	2834	
==>---------------------------------------------
## inserting children

method insert_children ($sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2738	2834	
==>---------------------------------------------
## inserting children

method insert_children ($sel <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	267	394	
==>imeter
        T? \s*
        # time - optional, defaults to 0:00
        (\d\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2440	2532	
==>{ return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2440	2532	
==>{ return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1754	1888	
==>re_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1947	2081	
==>re_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10667	10768	
==>ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10725	10826	
==>ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `requ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20949	21098	
==>all the subtests completed successfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        el <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	140	241	
==>'::TestPlan' => class 'TestBuilder::TestPlan' => {
    is => [ $::Object ],
    attributes => [ '$:exp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	291	412	
==>fixed with macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => und <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7106	7228	
==>ta_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Bre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7106	7228	
==>ta_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Bre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1397	1552	
==>.defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protoco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1397	1552	
==>.defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protoco <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17351	17470	
==>Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20828	20947	
==>Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	102	201	
==>m(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	102	201	
==>m(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5288	5397	
==>er



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5105	5208	
==>er

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # con <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18857	18948	
==>d _intersection (Relation::Example $other!) returns Relation::Example {
    return Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12360	12463	
==>the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the par <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12360	12463	
==>the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the par <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7295	7421	
==>6),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "ra <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7295	7421	
==>6),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "ra <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9527	9802	
==>ef $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11004	11279	
==>ef $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4653	4777	
==>ildren.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index] <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4653	4777	
==>ildren.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7314	7413	
==>vent is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7314	7413	
==>vent is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11603	11705	
==>ept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11603	11705	
==>ept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	506	658	
==>phering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	506	658	
==>phering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3409	3533	
==>lt.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3409	3533	
==>lt.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9669	9801	
==>1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9649	9781	
==>1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23542	23639	
==>e).

There are other differences.  Where other solutions take variables, they
seem to be positiona <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23542	23639	
==>e).

There are other differences.  Where other solutions take variables, they
seem to be positiona <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	443	571	
==>no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	443	571	
==>no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6482	6686	
==>_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6482	6686	
==>_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_spa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	789	911	
==>$code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	789	911	
==>$code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12091	12219	
==>> sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[0]} },
      scalar_non_numeric => <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2616	2709	
==>le via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Go <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2616	2709	
==>le via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Go <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4665	4785	
==>->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4665	4785	
==>->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4124	4224	
==>$topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOP <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4124	4224	
==>$topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOP <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1751	1866	
==>ms;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1751	1866	
==>ms;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2881	3005	
==>vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args h <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2881	3005	
==>vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args h <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15666	15790	
==>ym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2063	2187	
==>ym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18020	18118	
==>B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18331	18429	
==>B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Ma <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11008	11110	
==>cute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val), "\n";
printf"Run took: % <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12715	12811	
==>dulo memory issues),
  might suffice, be easier to create, and be more portable.
  http://www.per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12699	12836	
==>\&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12978	13115	
==>\&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11716	11836	
==>sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4359	4479	
==>sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	573	687	
==>get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyLib::L::En <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	585	697	
==>get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module MyLib::L:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8398	8504	
==>t1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an emp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8398	8504	
==>t1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an emp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5111	5229	
==>$o->noop;
    sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13869	13988	
==>f available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13869	13988	
==>f available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of the <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	615	718	
==>a new class.

A class is a role with the enhancement that is it I<typable>.

This means;

=over

=item * <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	999	1134	
==>urns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	999	1134	
==>urns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	216	317	
==>ode>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	216	317	
==>ode>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2186	2323	
==>ey is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2186	2323	
==>ey is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3944	4040	
==>ame, 'Class', '... $Class got the right method return value');
is($Class->superclass, $Object, '. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5846	5942	
==>ame, 'Class', '... $Class got the right method return value');
is($Class->superclass, $Object, '. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6792	6932	
==>atch;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6985	7125	
==>atch;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3780	3888	
==>/NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3780	3888	
==>/NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8332	8490	
==>rn { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8332	8490	
==>rn { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3539	3654	
==>n_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3539	3654	
==>n_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate u <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	320	439	
==>s export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	320	439	
==>s export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5514	5641	
==>ick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5514	5641	
==>ick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6304	6414	
==>nguage-like syntax, contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6089	6198	
==>nguage-like syntax, contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	451	646	
==>*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	451	646	
==>*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3366	3478	
==>nature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3366	3478	
==>nature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1982	2126	
==>e of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1982	2126	
==>e of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2399	2500	
==>pr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2399	2500	
==>pr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1622	1716	
==>ck)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last see <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1622	1716	
==>ck)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last see <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	78	181	
==>}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	78	181	
==>}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21779	21885	
==>al value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to ha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26331	26437	
==>al value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relation to ha <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2347	2566	
==>ildren(
                                    Tree.new(:node<Method>),
                                    Tree.new(:node<Submethod>),
                                ),
                                Tree.new(:node<Macro <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4379	4482	
==>$request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4379	4482	
==>$request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	469	578	
==>perations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	469	578	
==>perations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1348	1482	
==>ne of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1348	1482	
==>ne of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2016	2152	
==>& ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2016	2152	
==>& ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	923	1034	
==>tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    infix_list =>      '<tight> [ <op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15235	15334	
==>odes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15235	15334	
==>odes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20359	20484	
==>The header field name spelling is normally canonicalized including the
'_' to '-' translation.  There are some application whe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20359	20484	
==>The header field name spelling is normally canonicalized including the
'_' to '-' translation.  There are some application whe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14315	14420	
==>tion" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14315	14420	
==>tion" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40039	40279	
==>>new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19588	19819	
==>>new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  - <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24408	24502	
==>on.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24408	24502	
==>on.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	834	943	
==>prog args"; # XXX delme
        Pugs::Internals::exec($prog, Bool::False, @args);
    }
    multi sub exec(@ar <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	985	1148	
==>e($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (! <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	854	979	
==>e($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (! <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16177	16276	
==>eter $node_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16177	16276	
==>eter $node_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attribut <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7590	7838	
==>ry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8054	8302	
==>ry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	353	462	
==>ts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	353	462	
==>ts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    me <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1947	2062	
==>$self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1947	2062	
==>$self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5923	6034	
==>ever, to override 
any method for speed--although they should be careful to avoid changing the 
actual semantics <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5923	6034	
==>ever, to override 
any method for speed--although they should be careful to avoid changing the 
actual semantics <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1120	1224	
==>odes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1120	1224	
==>odes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5023	5118	
==>sponses received, then you should use the full object-oriented
interface provided by the C<LWP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5023	5118	
==>sponses received, then you should use the full object-oriented
interface provided by the C<LWP:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1924	2059	
==>rnatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBFILE_OF_META  ];
$config{'_registered_alternati <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2643	2741	
==>bute{$P};
    return JSX::true;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14858	14958	
==>ituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14858	14958	
==>ituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used h <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6100	6218	
==>f.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6100	6218	
==>f.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	168	273	
==>S;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	168	273	
==>S;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	863	1067	
==>mar::Var.ident>
                { return { array => "\@" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => " <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6061	6165	
==>nted. Currently, the headers
are returned as one long string.

=item List Context

All headers are return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6061	6165	
==>nted. Currently, the headers
are returned as one long string.

=item List Context

All headers are return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2764	2853	
==>odule_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --mak <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2764	2853	
==>odule_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --mak <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18227	18321	
==>r complex algorithm that
Module::Compile uses.

First, the source module is preprocessed to hid <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18227	18321	
==>r complex algorithm that
Module::Compile uses.

First, the source module is preprocessed to hid <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	616	748	
==>ot Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	616	748	
==>ot Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	343	442	
==>b splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	343	442	
==>b splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1179	1288	
==>$got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_pe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1237	1346	
==>$got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	210	332	
==>e};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller() <==
2	/Users/nnunley/pugs/util/grokprims.pl	1253	1359	
==>~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} @{$op->{args}}[1. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4074	4165	
==>lue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4074	4165	
==>lue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21105	21289	
==>'$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44029	44196	
==>'$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28565	28756	
==>elf:')
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new($e, sub {
                          my $e = shi <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	279	397	
==>MakeMaker ();

sub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt;
}

sub makemaker <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	557	658	
==>bj->struct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_print

Pretty prints the depen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	998	1103	
==>bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# categ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	998	1103	
==>bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# categ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7493	7611	
==>intext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining data should be 
padded a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7493	7611	
==>intext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining data should be 
padded a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	351	459	
==>P::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	351	459	
==>P::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERS <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1530	1643	
==>self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $from = $self->from() <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9500	9584	
==>arset_item(R) --> p56_char_class(R).
p5_charset_item(R) --> p5_simple_escape_sequence <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	349	517	
==>s a given $callback to @:events.
  my method enqueue (Code $callback) {
    push @:events, $callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6084	6195	
==>urn value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10341	10452	
==>urn value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15434	15530	
==>t for a variance of needs between its different
users, such as their preferred language of commun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15434	15530	
==>t for a variance of needs between its different
users, such as their preferred language of commun <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9361	9503	
==> $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other compa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9361	9503	
==> $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other compa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3429	3523	
==>I is fundamentally object-oriented; the procedural and functional 
interfaces are layers on top <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3429	3523	
==>I is fundamentally object-oriented; the procedural and functional 
interfaces are layers on top <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15131	15227	
==>le "Engine" back-ends (usually provided by third
parties) implement.  This interface is rigorousl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15131	15227	
==>le "Engine" back-ends (usually provided by third
parties) implement.  This interface is rigorousl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9675	9781	
==>_;

    foreach (@$args) {
	# In VMS protect with doublequotes because otherwise
	# DCL will lowercase -- u <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2369	2536	
==>ndow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2369	2536	
==>ndow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7635	7804	
==>{
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7635	7804	
==>{
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	839	1183	
==>11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        171615141312111 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	839	1183	
==>11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        171615141312111 <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	227	347	
==>rom Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	227	347	
==>rom Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12723	12860	
==>do,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12723	12860	
==>do,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30416	30515	
==>alk()

"Walks" the object.  This is used to dive into the node's children
when using a walker (see L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	264	379	
==>inOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	264	379	
==>inOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net:: <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	456	556	
==>n) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method resul <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	456	556	
==>n) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method resul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6933	7040	
==>xt.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6933	7040	
==>xt.  This will be prepended to the return value of the first call to 
C<_cipher>.  This is rarely used by th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	108	209	
==>e::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	108	209	
==>e::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35923	36017	
==>mbinations()>

This method returns an array ref having all combinations of this object's
Set Na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35923	36017	
==>mbinations()>

This method returns an array ref having all combinations of this object's
Set Na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6099	6210	
==>rn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6087	6198	
==>rn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3460	3570	
==>ring \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3460	3570	
==>ring \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7399	7505	
==>`push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7399	7505	
==>`push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" l <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4953	5200	
==>ift CALLER::<@_>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                -- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24548	24649	
==>lers that have to parse flags, but if
you do, remember to follow this model correctly.

=item next

An <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	61	169	
==>port {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	61	169	
==>port {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11601	11710	
==>mmar;

{
	# please forgive me
	my $orig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test::Builder::o <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7411	7528	
==>SITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7469	7586	
==>SITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	865	994	
==>_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::rule_decl {
    my $name = get_s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15509	15605	
==>) returns Bool;

Because these functions will be mutually recursive, they will easily be
able han <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15567	15663	
==>) returns Bool;

Because these functions will be mutually recursive, they will easily be
able han <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5045	5253	
==>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e cre <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6807	7015	
==>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e cre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2356	2444	
==>rn ($self.size < $other.size && $other.includes($self.members));
}
method superset($self: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2356	2444	
==>rn ($self.size < $other.size && $other.includes($self.members));
}
method superset($self: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	154	255	
==>class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$.error_out <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4045	4221	
==>tion => $obj) }
                map { JIB::Meta->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->available_file ) 
            };
            $@ and error( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27495	27595	
==>new attributes, and
the values provide values applied to each tuple.  The new Relation has all
of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32047	32147	
==>new attributes, and
the values provide values applied to each tuple.  The new Relation has all
of the <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4103	4226	
==>lass $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_version <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3053	3163	
==>lass $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_version <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	476	615	
==>($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get rea <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	476	615	
==>($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get rea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	452	658	
==>'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	452	658	
==>'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         ) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13598	13701	
==>eful when writing modules and you
find there is some language feature missing, or core bug that needs to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13656	13759	
==>eful when writing modules and you
find there is some language feature missing, or core bug that needs to <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1493	1673	
==>ndex--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/" <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1493	1673	
==>ndex--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20682	20792	
==>ve is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20682	20792	
==>ve is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24614	24708	
==>n (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later vers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24614	24708	
==>n (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later vers <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	795	903	
==>w ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::g <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1030	1173	
==>ion formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration($/[1..7]);
        if ( defined $8 ) {
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9350	9487	
==>:' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_hand <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	285	405	
==>ail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	285	405	
==>ail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::C <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28013	28107	
==>x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->describe,"\n";
print $r->('xxx')->describe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	647	762	
==>capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	647	762	
==>capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $. <==
2	/Users/nnunley/pugs/util/build_pugs.pl	117	223	
==>ee);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs;
use Config;
use FindBin;
BE <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10542	10642	
==>";

our $regexp_compile_hook = sub{
  my($re)=@_;
  print STDERR "compiling pattern '$re'.\n";
  retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	852	1029	
==>le( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                } <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	852	1029	
==>le( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7654	7779	
==>lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name:
    pos = fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5505	5624	
==><op>');
    my $condition = emit(get_data($_[0],'$<condition>'));
    my $then = emit(get_data($_[0],'$<then>'));
    re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17647	17780	
==>strend,
                  char* strbeg, I32 minend, SV* screamer,
                  void* data, U32 flags)

retval
 0 failure
 1 succe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2984	3082	
==>ridges between perl and Blondie, by providing implementations of
some math, string and IO operation <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1446	1596	
==>('depends') ) {
        $obj->depends( 
            JIB::Dependency->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	634	734	
==>s must be strings, and values must be native types";
        $values{$key->to_str->to_native()} = $va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15620	15758	
==>[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15614	15752	
==>[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\(\)]/, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4197	4330	
==>tch.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progres <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4197	4330	
==>tch.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progres <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10805	10911	
==>efined or not
given, then that header field will remain unchanged.

The old value (or values) of the last o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10805	10911	
==>efined or not
given, then that header field will remain unchanged.

The old value (or values) of the last o <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1088	1184	
==>.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_foreach is moved <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30617	30711	
==>).

=head3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4805	4957	
==>]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4805	4957	
==>]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if def <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1965	2108	
==>_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1965	2108	
==>_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $new <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1731	1917	
==>document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1731	1917	
==>document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4249	4392	
==>>[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep  => $rep <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19902	19994	
==>s::string_as_number(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7303	7406	
==>se the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Red <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7303	7406	
==>se the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Red <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	475	568	
==>ntrol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	475	568	
==>ntrol Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_he <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3488	3591	
==>se specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing th <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3488	3591	
==>se specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this returns an object representing th <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5456	5543	
==>$mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.lin <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16092	16194	
==>lf->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefined global it' <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1716	1827	
==>e_ext}");

    ($config->{file_sep}) =
      ($Config{sitelib} =~ /([\/\\])/)
        or die "Can't determine fi <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	389	485	
==>essionID() { return $SID; }

sub SessionSet($variable, $value) {
    %Session{$variable} = $value <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27958	28054	
==>ect you create isn't
a modification of a standard object, no warnings will be issued.

=head2 The <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	234	377	
==>hen '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0" <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	234	377	
==>hen '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2973	3079	
==>$self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2973	3079	
==>$self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1667	1756	
==></SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes whic <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1667	1756	
==></SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes whic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5736	5869	
==>] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5736	5869	
==>] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitia <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8002	8101	
==>oblem this class solves is when you need do perform "set" operations on 
Span objects, that return l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8002	8101	
==>oblem this class solves is when you need do perform "set" operations on 
Span objects, that return l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2866	2969	
==>it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2866	2969	
==>it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9123	9269	
==>e->get("$current")->send("get_method", $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current", $e- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	43	143	
==>-

package Test::Harness;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7420	7534	
==>nt_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7420	7534	
==>nt_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2560	2676	
==>$f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2560	2676	
==>$f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1038	1148	
==>ented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4516	4626	
==>ented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	7	122	
==>est::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Inval <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	7	122	
==>est::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Inval <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1245	1605	
==>laced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1245	1605	
==>laced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1766	1869	
==>lre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1826	1929	
==>lre'
    for my $char_class ( qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	261	368	
==>nt returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	261	368	
==>nt returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14595	14722	
==>s = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14595	14722	
==>s = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2265	2370	
==>turn $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2265	2370	
==>turn $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5089	5216	
==>er
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5089	5216	
==>er
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1816	1955	
==>}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1816	1955	
==>}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5339	5447	
==>::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5339	5447	
==>::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	705	803	
==>GIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	911	1009	
==>GIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{captu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	83	185	
==>BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	83	185	
==>BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1352	1520	
==>);
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1352	1520	
==>);
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9756	9855	
==>l() returns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns Arr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9756	9855	
==>l() returns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns Arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4699	4819	
==>ammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4538	4654	
==>ammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3048	3143	
==>ailable.

=back

In addition, the following request headers are set on the HTTP::Headers object, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3048	3143	
==>ailable.

=back

In addition, the following request headers are set on the HTTP::Headers object, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4187	4298	
==>$span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4187	4298	
==>$span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8862	8996	
==>will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8862	8996	
==>will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13399	13497	
==>ers only.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13399	13497	
==>ers only.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Return <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	513	623	
==>s_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	513	623	
==>s_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	441	547	
==>P/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	441	547	
==>P/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4409	4518	
==>my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4409	4518	
==>my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11945	12180	
==>c' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11945	12180	
==>c' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'ex <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10157	10254	
==>low sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- ` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10157	10254	
==>low sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTORS

- ` <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1239	1346	
==>e with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1239	1346	
==>e with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4515	4624	
==>sult>
object; this is normally the entire match string, but may be arbitrary
objects returned from the rule us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4515	4624	
==>sult>
object; this is normally the entire match string, but may be arbitrary
objects returned from the rule us <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36743	36930	
==>t; 
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13351	13445	
==>terminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash mu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13351	13445	
==>terminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash mu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22313	22435	
==>lause>
}
rule CaseClause :words {  # see 12.11
      <'case'> <Expression> <':'> <StatementList>?
}
rule DefaultClause :wor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4083	4198	
==>(exact => "\n", '\n');
  });

  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	979	1083	
==>not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	979	1083	
==>not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14449	14582	
==>n_Dir) {
            my @new_dir_files = _globdir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f <==
2	/Users/nnunley/pugs/util/run-smoke.pl	540	641	
==>ile.html
#
my $pugs_sandbox    = $ARGV[0] or die "Need pugs sandbox location";
my $html_location   = $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2269	2367	
==>nt properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=it <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2269	2367	
==>nt properties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4652	4788	
==>ub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4640	4776	
==>ub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3540	3638	
==>v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3540	3638	
==>v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2po <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11030	11156	
==>tring);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11030	11156	
==>tring);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_ent <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2014	2105	
==>e base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	46	136	
==>e base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Scalar:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6302	6404	
==>.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == In <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6302	6404	
==>.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == In <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15108	15252	
==>};
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso and -M $iso <= -M $initrd_gz and -M $iso <= -M "$cdroot/boot/grub/me <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2327	2439	
==>"{}\n";
		next;
	    } elsif ($file[0] eq '=') {
		print '}\end{block}' if $inblock;
		$inblock = 1;
		print '\be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3211	3305	
==>better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3098	3189	
==>better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	392	495	
==>q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini par <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1920	2023	
==>q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15765	15876	
==>es an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15765	15876	
==>es an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8502	8624	
==>if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types of
    # packages share the same namespa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8502	8624	
==>if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types of
    # packages share the same namespa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	493	595	
==>Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	493	595	
==>Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4285	4394	
==>unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hd <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4285	4394	
==>unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hd <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27887	27981	
==>C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) associa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27887	27981	
==>C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string) associa <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1962	2073	
==>ave two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is ad <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1962	2073	
==>ave two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is ad <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1250	1371	
==>n ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1250	1371	
==>n ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7376	7477	
==>($name,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    my @pams = map{DO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6210	6341	
==>oc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6210	6341	
==>oc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Ros <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4112	4221	
==>Safe::Annotation->new(
			type => $sub->type,
			struct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1517	1709	
==>!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1517	1709	
==>!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $! <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5518	5628	
==>p = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5518	5628	
==>p = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1737	2012	
==>d) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:per <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1737	2012	
==>d) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:per <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	869	991	
==>tosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	869	991	
==>tosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $reque <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	989	1091	
==>utoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connectio <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	989	1091	
==>utoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connectio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1882	2006	
==>$expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1882	2006	
==>$expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2310	2428	
==>$code";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2310	2428	
==>$code";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14302	14404	
==>his is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14360	14462	
==>his is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1241	1347	
==>andler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chu <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1241	1347	
==>andler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	96	206	
==>::Base};

$VERSION = '0.61';

use strict 'vars';

my @scalar_keys = qw{
    name module_name abstract author ve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16543	16647	
==>arent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16543	16647	
==>arent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in it <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12699	12828	
==>get
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	316	431	
==>n infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following method <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	316	431	
==>n infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following method <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5465	5579	
==>emit {
    my $cls = ref($_[0]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10010	10136	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10289	10415	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1537	1661	
==>maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1453	1554	
==>maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($fi <==
2	/Users/nnunley/pugs/util/addauthors.pl	602	748	
==>$re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for some hurestics: Try matching _ as space -- Darren_Duncan for exam <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	609	728	
==>5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" wo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28466	28608	
==>pture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28745	28887	
==>pture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	174	273	
==>er '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	174	273	
==>er '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15421	15547	
==>f}, ":";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8401	8509	
==>my $noop = $o->noop;
    my $s = join("",$o->data);
    my $len = length($s);
    if($o->{'flags'} & $o->flag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11344	11488	
==>eop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11623	11767	
==>eop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ ) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13264	13367	
==>mpiler) microsoft systems.

  The implementation reaches into perlguts, which limits the range of
  perl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6858	6988	
==>.6
      # any character in the Unicode category "Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25886	25979	
==>nt
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30438	30531	
==>nt
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate attr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2559	2689	
==>thod to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2559	2689	
==>thod to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3180	3313	
==>y $build = Module::Build->new(
        dist_name    => $self->{name},
        dist_version => $self->{version},
        license      = <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1227	1389	
==>'$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher order function",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	547	665	
==>te $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	547	665	
==>te $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	258	366	
==>ti method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An e <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	258	366	
==>ti method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4866	4971	
==>, %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4866	4971	
==>, %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!documen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5364	5568	
==>= bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->from ),
                named = <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6588	6758	
==>e     none    safe   (List)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\
\\n   List      pre     keys    sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	394	511	
==>,
    ### sort by highest version
    ### XXX this should be a policy decision
    my @metas = sort { $b->{version} cm <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6467	6568	
==><%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6467	6568	
==><%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Even <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4341	4478	
==>tart ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4341	4478	
==>tart ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $sta <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5477	5578	
==>(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5477	5578	
==>(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2214	2313	
==>!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2214	2313	
==>!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!children.push($child) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3921	4022	
==>used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
cla <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3921	4022	
==>used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
cla <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7689	7818	
==>an0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7689	7818	
==>an0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => $span1, end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4022	4140	
==>] =~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $rules[$i] =~ /^$ite <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2710	2816	
==>Value]]> ($O: ?$hint = 'Number') {
    if $hint eq 'String' {
        my $Result1 = $O.<[[Get]]>('toString' <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	514	618	
==>('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => "simple concatenation" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5525	5673	
==>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5525	5673	
==>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new operator globally
    {
        p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17900	18021	
==>dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14321	14442	
==>dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $re <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1584	1707	
==>num_size 128;');


subset bit  of uint1 where { true };
subset byte of uint8 where { true };

Helpers::macif(%?CONFIG{'int_w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4251	4406	
==>_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5100	5255	
==>_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $ru <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21548	21640	
==>($o,$v)=@_; $o->BIND($v);}


my %space_from_sigil;
my %sigil_from_space;
BEGIN{
%space_from_s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3366	3496	
==>eys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3366	3496	
==>eys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7024	7153	
==>= canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7024	7153	
==>= canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	394	506	
==>rce.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More spec <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	394	506	
==>rce.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More spec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17982	18084	
==>than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have refer <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17982	18084	
==>than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have refer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8331	8442	
==>tional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8042	8148	
==>tional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19989	20097	
==>:Example> is the self-contained and pure-Perl reference
implementation of an Engine and is included in the "R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19989	20097	
==>:Example> is the self-contained and pure-Perl reference
implementation of an Engine and is included in the "R <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1469	1757	
==>>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            giv <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1469	1757	
==>>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            giv <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10262	10361	
==>:operator::nullary->new("bool"),
	),
	# list a -> a
	head => do {
		my $a = type::variable::free->ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21558	21652	
==>ide some of your messages, showing other messages instead which are
more appropriate to the con <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21558	21652	
==>ide some of your messages, showing other messages instead which are
more appropriate to the con <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1059	1166	
==>ty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captures different <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1059	1166	
==>ty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stores captures different <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7837	7932	
==>er object's internal structures.

Cipher authors should assume that if this method is being call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7837	7932	
==>er object's internal structures.

Cipher authors should assume that if this method is being call <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1028	1170	
==>ub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6355	6435	
==>ent_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/(.*?)/\)\s+{[^}]*}(?{ &: <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1208	1317	
==>" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" na <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1208	1317	
==>" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" na <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1710	1878	
==>Test')->FETCH('::Fail')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        0,
                ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	305	426	
==>-M $pmc <= -M $filename));
# print "up to date: $pmc_is_uptodate\n";
if ( $pmc_is_uptodate ) {
    do $pmc 
        unless <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18955	19051	
==>his shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18955	19051	
==>his shouldn't be a problem
because Locale::KeyedText is only meant to be used with user text that <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11929	12069	
==>e   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11929	12069	
==>e   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4793	4945	
==>sion number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers hav <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4793	4945	
==>sion number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers hav <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2505	2637	
==>tent-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2505	2637	
==>tent-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24318	24424	
==>ngle member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28870	28976	
==>ngle member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5123	5214	
==>r("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5123	5214	
==>r("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7	113	
==>bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7	113	
==>bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str> <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	618	721	
==>ine::Pugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or modul <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	618	721	
==>ine::Pugs module allows you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or modul <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7280	7384	
==>at >= PGE_OPTABLE_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_ter <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4898	4998	
==>RL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HAVE_PARROT$/, @_;

    # system($ar, r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	922	1065	
==>config and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file => Fi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3889	3983	
==>rday" return the appropriate date.

Any other string will be passed to `Date::Something::WaveHa <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3889	3983	
==>rday" return the appropriate date.

Any other string will be passed to `Date::Something::WaveHa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13924	14030	
==>urn $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13924	14030	
==>urn $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4216	4309	
==>plashscreen=$splashscreen
    The file referenced by --splashscreen will be displayed before b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1509	1619	
==>ass, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1509	1619	
==>ass, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8179	8277	
==>ls he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8179	8277	
==>ls he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	452	589	
==>ethod"};
    }

    bless( \%args, $class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1633	1758	
==>ub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4836	4961	
==>ub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13005	13101	
==>h field.

=item $h.remove_content_headers

This will remove all the header fields used to describ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13005	13101	
==>h field.

=item $h.remove_content_headers

This will remove all the header fields used to describ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2893	2999	
==>turn $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2893	2999	
==>turn $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5769	5909	
==>@param );

        return unless $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5586	5722	
==>@param );
        return unless $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2291	2444	
==>exp block 'else' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2153	2293	
==>exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], exp3 => $_[5] } }
    | IF exp block 'elsif' exp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3999	4130	
==>own PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3999	4130	
==>own PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16423	16534	
==>m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15483	15588	
==>m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$p <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	315	425	
==>ests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	315	425	
==>ests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	416	521	
==>"ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=he <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	416	521	
==>"ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11832	11987	
==>mit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::captur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19192	19319	
==>/

=head2 The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* sav <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4737	4908	
==>$a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'AR <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5201	5372	
==>$a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'AR <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1039	1139	
==>s (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1039	1139	
==>s (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an arr <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	817	922	
==>$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsanta.pl
   or: perl tsan <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27634	27732	
==>, ":t listify(5)");
is(t($length_and_first), "∀α. list α → (α × int)", ":t length_and_first <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5785	5901	
==>n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5773	5889	
==>n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23653	23781	
==>l"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6729	6831	
==>an pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6729	6831	
==>an pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17815	17915	
==>ture::Util qw/signature/;;
    return  signature($thunk);
    Digest::SHA1::sha1_hex($class->reduce($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8262	8382	
==>( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8262	8382	
==>( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.un <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16216	16306	
==>@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.or <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16274	16364	
==>@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.or <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15952	16048	
==>he subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta::Se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15952	16048	
==>he subject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta::Se <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5137	5240	
==><octaldigit><octaldigit>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	61	221	
==>@a
123 ~~ @a       # ?@a[123]
123 ~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
% <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18022	18119	
==>d2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
spec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18022	18119	
==>d2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
spec <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8282	8395	
==>>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediately if we've cached this.
    return $s <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2022	2129	
==>$args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bun <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15972	16119	
==>uleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16251	16398	
==>uleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7589	7703	
==>evel interface (named args) 

###    because the actual rule object will be full OO



:(Str $match_against, :$next <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7331	7442	
==>evel interface (named args) 
###    because the actual rule object will be full OO

:(Str $match_against, :$next <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2615	2724	
==>ncode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2615	2724	
==>ncode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6202	6353	
==>nt";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6715	6866	
==>nt";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	945	1154	
==>results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	945	1154	
==>results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	412	533	
==>ete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	412	533	
==>ete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	268	384	
==>} );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	268	384	
==>} );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3710	3826	
==>]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3894	4010	
==>]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10039	10184	
==>rn             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10039	10184	
==>rn             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22667	22768	
==>tem C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute nam <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27219	27320	
==>tem C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5591	5851	
==>r( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6440	6700	
==>r( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $pre <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4842	4948	
==>);
    _show_results($tot, $failedtests);

    my $ok = _all_ok($tot);

    assert(($ok xor keys %$failedte <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7203	7334	
==>or(mob, pos, "Missing close bracket for \\x...")
    goto end
.end

.sub "parse_modifier"
    .param pmc mob
    .local int pos, las <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10871	10982	
==>e.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend, the
    <code>ext/</c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36972	37096	
==>s->send('add_attribute', (symbol->new('@:MRO')             => attribute->new('@:MRO'             => 'list')));
$::Class->send <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8008	8109	
==>::reduce (@values ; Code *&expression --> Scalar )
{
    List::reduce *&expression, *@values;
}

# sig <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4411	4540	
==>se;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4411	4540	
==>se;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11286	11401	
==>*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    #p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1130	1251	
==>ts that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1130	1251	
==>ts that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	870	989	
==>al_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	870	989	
==>al_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3060	3185	
==>emove_subscription($subscription);
        }
        
        method get_subscriptions (Class::Publisher::Event::Named $event) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1158	1320	
==>d1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1158	1320	
==>d1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7377	7698	
==>x:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postfix:<!>' => Thunk->new(
        Se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8582	8711	
==>ub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8582	8711	
==>ub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1127	1273	
==>eturns **CONTAINER**
                my $self = shift;
                my $idx = shift;
                $self->get_value('@:slots')->[$idx]; # type <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	202	316	
==>if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	202	316	
==>if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10650	10761	
==>ef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10650	10761	
==>ef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8091	8202	
==>on_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8091	8202	
==>on_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1795	2201	
==>xception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1795	2201	
==>xception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interfa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2381	2600	
==>f, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => sub {
            my ($self, $new_y) = @_;
            $y = $new_y;
        },    
        clear => sub {
            $x = 0; $y = 0 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9511	9704	
==>},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	32	159	
==>leCompiler;
use Perl6::Slurp;
my $filename = shift;
my $tail = slurp($filename);

print <<PRELUDE;
package Grammar::Perl6;
use b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18248	18348	
==>=item $h.referer

Used to specify the address (URI) of the document from which the
requested resource <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18248	18348	
==>=item $h.referer

Used to specify the address (URI) of the document from which the
requested resource <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2808	2930	
==>ode); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $ti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2808	2930	
==>ode); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $ti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1995	2092	
==>er::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1995	2092	
==>er::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9551	9706	
==>ot bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9551	9706	
==>ot bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8015	8105	
==>};
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1840	1930	
==>};
push @statements, sub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19633	19839	
==>eop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19912	20118	
==>eop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27598	27696	
==>sage object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27598	27696	
==>sage object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy o <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	396	521	
==>e - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mode ;))

our $iso8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2039	2166	
==>$@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2179	2306	
==>$@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4469	4575	
==>rl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4719	4825	
==>rl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

=head1 CAVEATS <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2684	2790	
==>it work automagically for platforms is really bad. I 
hope that as Pugs matures this will change, but for n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2684	2790	
==>it work automagically for platforms is really bad. I 
hope that as Pugs matures this will change, but for n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15747	15879	
==>( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25495	25592	
==>entifies the type of message that the object
represents (or gives the name of a condition being re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25495	25592	
==>entifies the type of message that the object
represents (or gives the name of a condition being re <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23645	23733	
==>e,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	818	927	
==>native cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (bless <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7309	7420	
==>ls>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7309	7420	
==>ls>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3065	3192	
==>urn 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( key <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3065	3192	
==>urn 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( key <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5104	5202	
==>tem C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5104	5202	
==>tem C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7117	7299	
==>ol};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'be <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6879	7051	
==>ol};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'be <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1799	1917	
==>e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0.. <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1799	1917	
==>e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0.. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39989	40099	
==>n) any later version.  You
should have received a copy of the LGPL as part of the Locale::KeyedText
distributio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39989	40099	
==>n) any later version.  You
should have received a copy of the LGPL as part of the Locale::KeyedText
distributio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5685	5812	
==>s);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' sub <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5743	5870	
==>s);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' sub <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	269	422	
==>rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	269	422	
==>rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12383	12482	
==>r field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12383	12482	
==>r field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18857	18974	
==>some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15278	15395	
==>some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7929	8026	
==>Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7929	8026	
==>Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17708	17807	
==>w bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn' <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17708	17807	
==>w bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn' <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1835	1919	
==>ADME.

------------------------------------------------------------------------------ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1675	1759	
==>ADME.

------------------------------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3382	3500	
==>a..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3382	3500	
==>a..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8681	8788	
==>Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	121	225	
==>g = sprintf "\\%03o", ord "!"; # \41 would not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	146	252	
==>side.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	146	252	
==>side.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2834	2953	
==>r>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2834	2953	
==>r>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3158	3266	
==>\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3146	3254	
==>\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4036	4159	
==>a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4048	4171	
==>a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	766	869	
==>ry, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	766	869	
==>ry, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5696	5876	
==>sult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4196	4376	
==>sult;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	567	707	
==>d',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	567	707	
==>d',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12812	12919	
==>ither `:int` or `:density($size)`.

The unit specifier is used for several things. 
For example, when iterat <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12812	12919	
==>ither `:int` or `:density($size)`.

The unit specifier is used for several things. 
For example, when iterat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10410	10530	
==>ure;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10689	10809	
==>ure;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12770	12939	
==>o, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12770	12939	
==>o, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12811	13054	
==>op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13090	13333	
==>op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5124	5263	
==>t if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = revers <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5124	5263	
==>t if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = revers <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	205	453	
==>ackages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en- <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	205	453	
==>ackages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1789	1904	
==>::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1789	1904	
==>::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7081	7401	
==>s %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7081	7401	
==>s %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	28	134	
==>ock is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	28	134	
==>ock is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $dat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20768	20938	
==>ncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21047	21217	
==>ncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16185	16303	
==>st_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16185	16303	
==>st_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	481	601	
==>: argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	481	601	
==>: argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4592	4700	
==>allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5077	5185	
==>allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18126	18240	
==>s called it only gets the source code that it should be
looking at.

This section describes the rather complex algo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18126	18240	
==>s called it only gets the source code that it should be
looking at.

This section describes the rather complex algo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2549	2672	
==>nfix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $tok <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25717	25818	
==>α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36665	36765	
==>e corresponding to the Message could be
found using the Translator object's Set and Member properties <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36665	36765	
==>e corresponding to the Message could be
found using the Translator object's Set and Member properties <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	547	673	
==>,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	525	647	
==>,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3846	3977	
==>eturn Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7323	7454	
==>eturn Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_.pai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	107	362	
==>Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{} <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2311	2420	
==>e21 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7292	7390	
==>:Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1117	1215	
==>:Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2310	2454	
==>ms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2557	2701	
==>ms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7318	7433	
==>ub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variabl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7070	7183	
==>ub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variabl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10809	10995	
==>else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if len <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10809	10995	
==>else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if len <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7690	7812	
==>ly (unavailable on MSWin)
    --shuffle, -s           Run tests in random order
    --recurse, -r           Recurse into di <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29847	29943	
==>ute names in the argument C<$attrs>.  The new Relation::Example has all
of the tuples of the orig <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3000	3261	
==>n't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # modu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3000	3261	
==>n't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # modu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5146	5293	
==>rectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $rea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5204	5351	
==>rectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $rea <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10712	10857	
==>et" if $a and ($r or $w or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7403	7506	
==>il they have an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7403	7506	
==>il they have an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3009	3119	
==>of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3009	3119	
==>of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3677	3875	
==>.5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18878	18975	
==>s misspelling in your programs and still send the right
thing on the wire.

When setting the refer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18878	18975	
==>s misspelling in your programs and still send the right
thing on the wire.

When setting the refer <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	990	1087	
==>e<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shif <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	990	1087	
==>e<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3538	3639	
==>d1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3538	3639	
==>d1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentati <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1381	1550	
==>{
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1381	1550	
==>{
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	72	344	
==>le, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	72	344	
==>le, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11291	11420	
==>\@$grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            return $res;
};

1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13579	13676	
==>ow_unterminated is TRUE then we also unterminated named
entities will also be expanded.  The longe <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13579	13676	
==>ow_unterminated is TRUE then we also unterminated named
entities will also be expanded.  The longe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18812	18939	
==>n->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20170	20297	
==>n->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{dat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5622	5761	
==>ber of seconds from now), so we don't provide an easy way to
# access it until we have know how both these interfaces can be
# addressed.  O <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5622	5761	
==>ber of seconds from now), so we don't provide an easy way to
# access it until we have know how both these interfaces can be
# addressed.  O <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8444	8548	
==>nd update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8444	8548	
==>nd update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<fr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14097	14217	
==>:Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14097	14217	
==>:Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	569	685	
==>n 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	569	685	
==>n 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_const <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	315	441	
==>remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<dele <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	315	441	
==>remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<dele <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1112	1214	
==>al($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringif <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1112	1214	
==>al($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringif <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1162	1299	
==>ethod type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1162	1299	
==>ethod type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	176	308	
==>eturns List {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; * <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4581	4701	
==>aps is nparens+1 */
      if(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec fail <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	719	821	
==>e $node is a piece of a Blondie program.";

   	$node->fmap(sub { $self->reduce($_[0]) });
}

__PACKAGE <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	367	489	
==>ue"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	367	489	
==>ue"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6719	6828	
==>end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6719	6828	
==>end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, F <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2419	2524	
==>/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2419	2524	
==>/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8488	8591	
==>,
  '... still got the right return value from Foo singleton/class method');  
  
fails_ok { $Object->si <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3075	3175	
==>$Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3621	3721	
==>$Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3263	3514	
==>e Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3263	3514	
==>e Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3038	3150	
==>te.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3038	3150	
==>te.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPS <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2810	2941	
==>shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	518	634	
==>-- TODO

    my ( $class, $rule_source, $param ) = @_;

    my $self = { source => $rule_source };

    #print Dumper <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25454	25558	
==>nction> <')'>
    | <'(?!'> <Disjunction> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\.*+ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8004	8114	
==>ny sensitive data still 
in the cipher to be deleted immediately.  This method should be as thorough as 
possib <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8004	8114	
==>ny sensitive data still 
in the cipher to be deleted immediately.  This method should be as thorough as 
possib <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1903	2039	
==>$rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1963	2099	
==>$rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14210	14313	
==>nick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14210	14313	
==>nick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	976	1081	
==>=~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match;
};

sub substitu <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24372	24459	
==>tch_captures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL,C1).
match_captures_set(N,X, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17103	17213	
==>ly. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `is_emp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17103	17213	
==>ly. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `is_emp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1390	1567	
==>s? = {}) {
    return $?CLASS->bless( attrs =>
        { %attrs.pairs.map:{ ( .key => 
            (.value.does(Pair)
                ?? ( .value.key =>
                    (.val <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3401	3496	
==>'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2464	2557	
==>----------------------------------

preludeStr :: String
.
    print OUT qq<preludeStr = "$pro <==
2	/Users/nnunley/pugs/util/package-osx.pl	1304	1413	
==>($bundle =~ /pugs/) {

    %symlinks = qw(
        /usr/local/bin/pugs ../../bin/pugs
        /usr/local/bin/p <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1731	1839	
==>lit('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  ga <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1731	1839	
==>lit('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  ga <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	604	718	
==>nce($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	604	718	
==>nce($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3112	3299	
==>urn $S->force_object(anyof_char_comp => "\e", '\E') if $cc;
    return $S->object(exact_comp => "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15241	15341	
==>artp;
  I32 *endp;

for $n (eg $1 => n=1), 1<=n<=nparens,
startp[n] is the starting offset in subbeg, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2707	2832	
==>,  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, cir <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2707	2832	
==>,  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, cir <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	926	1033	
==>provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	926	1033	
==>provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=i <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	984	1080	
==>e details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> direc <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	984	1080	
==>e details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> direc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1187	1286	
==>mar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(ba <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1187	1286	
==>mar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(ba <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13980	14098	
==>etch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13980	14098	
==>etch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	989	1258	
==>ey!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	989	1258	
==>ey!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	443	542	
==>e.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	443	542	
==>e.difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14321	14438	
==>nds and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14321	14438	
==>nds and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4332	4443	
==>rn;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system( "rm -rf $my <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	549	647	
==>tr;
# fix the typemap to make all those stuff live in Inline::Parrot::PMC
our $interpreter;
use ove <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3783	3901	
==>};
      while(@$ops && @$var > 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumper::Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7289	7409	
==>ule; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7289	7409	
==>ule; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41907	42154	
==>ift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        sym <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	209	345	
==>ill do)

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	663	774	
==>_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	663	774	
==>_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5328	5453	
==>e_rep_type_pairs_list();
    my $code = "";
    for (@$list) {
        my($name,$rep,$type,@pairs)=@$_;
        my $o = PIL::P <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	331	464	
==>rr_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $inp <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	331	464	
==>rr_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $inp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4930	5043	
==>e sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4930	5043	
==>e sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6283	6381	
==>Val' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6283	6381	
==>Val' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a ' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9897	9997	
==>decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9897	9997	
==>decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3281	3382	
==>on;
    return;
}

=pod

=head2 JIB::Utils->_version_to_number( version => $version );

Returns a prop <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9769	9873	
==>d a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9769	9873	
==>d a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2077	2175	
==>Bzip2 compression on\n" } and
    return $compress = sub { Compress::Bzip2::memBzip(shift) };
  eva <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1899	2007	
==>target tree and add anomalies
    # to each event.
    # Note that I use the test number for reference, which <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1366	1479	
==>, zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or tw <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1366	1479	
==>, zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or tw <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6705	6821	
==>ur) = @_;
    return unless $groups && @$groups;

    my @index_files;
    my %copy = map { $_ => $_ ne $cur } @$grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1293	1426	
==>less defined $n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
        
    return _mangle_iden <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	699	800	
==>n to other native types
sub to_str { (shift)->to_native ? str->new('1') : str->new('')  }
sub to_num { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9321	9437	
==>s

### - needs to be generalized, and the anchor should only

###   work when needed (or if there is a switch telling <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	9016	9130	
==>s
### - needs to be generalized, and the anchor should only
###   work when needed (or if there is a switch telling <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9970	10063	
==>returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9970	10063	
==>returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32798	32913	
==>('add_method' => (
    # method label
        symbol->new('_make_ascendant_dispatcher'),
    # method body
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	740	861	
==>e} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                spli <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3065	3153	
==>rintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fpri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5251	5376	
==>!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5251	5376	
==>!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            doc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	611	716	
==>tart_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/last_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	611	716	
==>tart_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/last_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8248	8377	
==>(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8248	8377	
==>(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27424	27527	
==>rser->add_flag("u" => sub { 0x10 });

This makes 'u' a valid flag for your regex, and creates the method <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6081	6238	
==>butes')      => hash->new(),
            attribute->new('%:methods')         => hash->new(),                     
        )
    );
    
# link Class back to C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	231	389	
==>est   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	231	389	
==>est   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2068	2170	
==>erl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pa <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2068	2170	
==>erl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4781	4889	
==>_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4781	4889	
==>_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9237	9338	
==>he interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects from its me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9237	9338	
==>he interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects from its me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40654	40754	
==>POSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40654	40754	
==>POSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
Loc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1727	2009	
==>=> -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1727	2009	
==>=> -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7525	7662	
==>629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7525	7662	
==>629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	546	972	
==>{
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	546	972	
==>{
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_el <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7090	7189	
==>(TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does not support pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7090	7189	
==>(TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does not support pr <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	225	340	
==>$self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wan <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	225	340	
==>$self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wan <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	535	725	
==>e' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	535	725	
==>e' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	234	331	
==>-----------------------------------------------
## This is an extension of the Mini-MetaModel whic <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	202	299	
==>-----------------------------------------------
## This is an extension of the Mini-MetaModel whic <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8861	8962	
==>put_path    = rel2abs($_);
  my $relative_file = abs2rel($input_path,$start_dir); 

  # Path seperator <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17948	18092	
==>5 => 1, 66
=> 2, 67 => 2, 68 => 1, 69 => 1} >>.  This will reflect ranges and embedded
classes (such as C<[:cntrl:]> or C<\p{Print}>.

=item Char <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10802	10899	
==><!before <LineTerminator>> <SourceCharacter>
}
rule RegularExpressionFlags {  # see 7.8.5
      <n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3609	3705	
==>rse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3609	3705	
==>rse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17582	17683	
==>g Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17582	17683	
==>g Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	69	181	
==>';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARG <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	69	181	
==>';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARG <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10378	10481	
==>$root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10378	10481	
==>$root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13114	13235	
==>te a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13114	13235	
==>te a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33995	34092	
==>n't supported by a program or its libraries.
When translating a message, a match in found in the m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33995	34092	
==>n't supported by a program or its libraries.
When translating a message, a match in found in the m <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	668	792	
==>g;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	668	792	
==>g;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8912	9009	
==><Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expression --> La <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	157	250	
==>l::Base; @ISA = qw(Module::Install::Base);

sub include { +shift->admin->include(@_) };
sub in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	82	206	
==>Pugs::Grammar::BaseCategory);

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	613	726	
==>';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Arra <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	613	726	
==>';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8545	8661	
==>k.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8545	8661	
==>k.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11431	11571	
==>t;
      }
      
      $linkhead = $1 if ($linkhead =~ /^"(.*)"$/);
#     $body->push_content(HTML::Element->new('pre')->push_content($text) <==
2	/Users/nnunley/pugs/util/func_refact.pl	473	576	
==><fname> is a function to print more
information about as components are computed.
END
    exit 0;
}
 
ou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20260	20357	
==>package.  No
recompilation necessary.  This is something that end users could do,
although program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20260	20357	
==>package.  No
recompilation necessary.  This is something that end users could do,
although program <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2053	2169	
==>IS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2053	2169	
==>IS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	100	210	
==>er::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	100	210	
==>er::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16058	16151	
==>cumentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16058	16151	
==>cumentation file).  Note that the Rosetta
documentation will be focusing mainly on how Rosetta <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2226	2334	
==>{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2204	2312	
==>{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4280	4380	
==>.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('to <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4280	4380	
==>.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('to <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20779	20893	
==>) :- !, char_type(C,csym).
rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16242	16345	
==>raey001" =~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means character classes should store a hash of w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16813	16909	
==>o its own executable, in practice one would
normally just write some components of their applicat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16813	16909	
==>o its own executable, in practice one would
normally just write some components of their applicat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1026	1124	
==>e a recurrence set with full bidirectional functionality.

The complementary functions are emulated <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1026	1124	
==>e a recurrence set with full bidirectional functionality.

The complementary functions are emulated <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3223	3321	
==>ed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3223	3321	
==>ed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!content ~= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52027	52235	
==>t('$self:')->get_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identifier');
            }
        )
    )
);

## ---- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6006	6092	
==>::cap->[-1]) }

my $x1 = def_stmt_prim('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9322	9478	
==>$pos += {$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits worki <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11180	11325	
==>er was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $linkfile = $1 if ($linkfile =~ /^"(.*)"$/);
 
      if ($linkfi <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2285	2392	
==>he special tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags match.

=h <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2285	2392	
==>he special tag C<:all> will cause all tracing messages to be 
printed, even if none of their tags match.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	111	233	
==>s::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	198	301	
==>n = ((dirname(__FILE__) || '.') . "/..") };

sub pmc_can_output { 1 }

sub pmc_compile {
    my ($class, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6513	6615	
==>of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6513	6615	
==>of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This even <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16624	16815	
==>,
    }, $class;
    $self->{rx}{captures}[$nparen - 1] = $self;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	310	415	
==>run_bytecode(Parrot_Interp i,char *bcfile) {
    Parrot_PackFile pf = Parrot_readbc(i,bcfile);
    Parrot_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3711	3851	
==>truct( struct => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Could n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10762	10918	
==>= undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10762	10918	
==>= undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_tr <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3333	3469	
==>"' {
        $ret = emit_Variable( $tree[1][0][1] );
    }
    elsif $tree[0] eq '"VInt"' {
        $ret = emit_Int( $tree[1][0] );
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	872	988	
==>r, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return _emit( $ast, '' );
        #" <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	29	119	
==>::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	29	119	
==>::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Par <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21203	21302	
==>purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25755	25854	
==>purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	890	991	
==>closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	890	991	
==>closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, un <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3387	3492	
==>3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the procedural and functiona <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3387	3492	
==>3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the procedural and functiona <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23427	23561	
==>n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19848	19982	
==>n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17664	17759	
==>lf_pair,
	param => val(v => "foo", t => type::operator::nullary->new("str")),
);

# the polymorp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2112	2239	
==>ument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2112	2239	
==>ument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11454	11554	
==>) = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11454	11554	
==>) = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	124	222	
==>bexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	438	593	
==>pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.ne <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	438	593	
==>pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5298	5507	
==>o))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7060	7269	
==>o))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5800	5934	
==>l::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5800	5934	
==>l::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::C <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	666	1092	
==>25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	666	1092	
==>25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2280	2386	
==>sg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2280	2386	
==>sg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3009	3121	
==>yncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5181	5291	
==>x {get_meta($_[0])->new('$.unboxed'=>$_[1])}
sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13167	13264	
==>use something is not implemented yet. So
in order to still allow that to be tested, and those test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13225	13322	
==>use something is not implemented yet. So
in order to still allow that to be tested, and those test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4989	5157	
==>s::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4816	4977	
==>s::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # u <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	853	1073	
==>( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

mu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	853	1073	
==>( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

mu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2552	2677	
==>= $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2552	2677	
==>= $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5826	5923	
==>im (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5884	5981	
==>im (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5850	5948	
==>----------------------------------------------
## sibling methods

method get_sibling ($self: Int $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5850	5948	
==>----------------------------------------------
## sibling methods

method get_sibling ($self: Int $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7364	7482	
==>y `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7364	7482	
==>y `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9561	9652	
==>C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9561	9652	
==>C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1764	1866	
==>TION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1764	1866	
==>TION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9368	9477	
==>chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9368	9477	
==>chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9155	9308	
==>sion');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.dele <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9155	9308	
==>sion');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.dele <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15281	15386	
==>be a prompt or response message for interactive systems.

If the program or any of its components are inte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15281	15386	
==>be a prompt or response message for interactive systems.

If the program or any of its components are inte <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6631	6738	
==>rams (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6631	6738	
==>rams (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1217	1316	
==>tr is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1217	1316	
==>tr is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, S <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1497	1591	
==>\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $1 {/g;
    $_
}


my $conv = <<'CONVER <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6050	6173	
==>t ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6050	6173	
==>t ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15291	15433	
==>> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15285	15427	
==>> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not in <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	733	855	
==>'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7376	7475	
==>er's memory and sets $regex as the regex to be parsed.

=back

These two approaches do an initial pa <==
2	/Users/nnunley/pugs/util/package-osx.pl	4823	4920	
==>Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6 <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6451	6544	
==>lf->_analyze_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = $strap->analyze_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5168	5268	
==>e if $expected is 0, then $range is an absolute value
# otherwise $range is a fractional error.
# Her <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8328	8424	
==>self->_command();

Returns the command that runs the test.  Combine this with _switches()
to buil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1469	1578	
==>am {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $self = shift;
    my $a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4275	4382	
==>Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4275	4382	
==>Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($req <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1770	1865	
==>map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»... <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1770	1865	
==>map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	647	825	
==>0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	623	792	
==>0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9331	9483	
==>.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        defau <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9331	9483	
==>.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        defau <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11826	11948	
==>efault_inc {
    my $self = shift;

    local $ENV{PERL5LIB};
    my $perl = $self->_command;
    my @inc =`$perl -le "prin <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12367	12466	
==>urrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the parame <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12367	12466	
==>urrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the parame <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	49	158	
==>ntation in the __END__
use 5.006;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2912	3018	
==>e if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2912	3018	
==>e if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	910	1026	
==>ch was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	910	1026	
==>ch was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block <==
2	/Users/nnunley/pugs/util/grokprims.pl	142	277	
==>x',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'right-associative infix',
    non   =>   'non-associat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27575	27672	
==>nce

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Parser::__object__>, the global objec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	656	757	
==>DO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	656	757	
==>DO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21092	21210	
==>t} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17513	17631	
==>t} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	469	566	
==>declare a Method on a Class, it is bound to that
Class' C<Type> object immediately; however, in th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6221	6337	
==>p { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6233	6349	
==>p { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13413	13614	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13692	13893	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           , <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4720	4818	
==>fied version
of the result object (usually the entire match string).

=head2 0+

When used as a num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4720	4818	
==>fied version
of the result object (usually the entire match string).

=head2 0+

When used as a num <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1102	1250	
==>rl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   print "Writ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	472	586	
==>≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# M <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	472	586	
==>≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# M <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26544	26641	
==>e main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method cr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26544	26641	
==>e main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method cr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2511	2635	
==>~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2511	2635	
==>~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10050	10163	
==>functions will be defined to facilitate the
testing of those features. For more information see the FUTURE PLANS
s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10108	10221	
==>functions will be defined to facilitate the
testing of those features. For more information see the FUTURE PLANS
s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2883	3020	
==>tems = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2883	3020	
==>tems = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2465	2603	
==>rn;
# 
#         ### copy these sources to a build dir
#         JIB::Utils->_copy( file => $tmpsrc, to => $builddir )
#             or err <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1008	1106	
==>y $node = shift;

	my $h = Devel::STDERR::Indent::indent;
	warn "annotation: $node";
	warn "reducin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2742	2878	
==>de_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filenam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2959	3095	
==>de_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filenam <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4385	4510	
==>is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4385	4510	
==>is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4304	4419	
==>code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4362	4477	
==>code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.go <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30150	30262	
==>when there's an overrun.

Fix so perls with spaces in the filename work.

Keeping whittling away at _run_all_test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	125	217	
==>gs-Utils/lib",
    "$Bin/../Pugs-Compiler-Precedence/lib",
;

use Pugs::Compiler::Perl6;
#use <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4959	5055	
==>ntrol or access to the header fields in the requests
sent and responses received, then you should <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4959	5055	
==>ntrol or access to the header fields in the requests
sent and responses received, then you should <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2131	2219	
==>".
    http://www.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg.html
Without t <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6180	6330	
==>}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5688	5838	
==>}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10616	10737	
==>method_name} {";

    my $rep = $info->rep_type;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17037	17141	
==>s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17037	17141	
==>s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file which provides <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1900	2057	
==>f $file eq ".svn";
            next if $file eq "CVS";
            my $currfile = File::Spec->catfile( $start, $file );
            next if $Config{exclude_re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1633	1742	
==>method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Cl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1838	1947	
==>method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Cl <==
2	/Users/nnunley/pugs/util/package-osx.pl	7743	7840	
==>n/man3/Perl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Spec::Module.3pm
        /usr/loc <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	267	363	
==>end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gleichheitszeichen keine lee <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10328	10497	
==>oping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10328	10497	
==>oping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting f <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1073	1271	
==>$.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1073	1271	
==>$.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21788	21882	
==>>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(targ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21788	21882	
==>>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(targ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	288	468	
==>cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	288	468	
==>cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $E <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1840	1947	
==>elf: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1840	1947	
==>elf: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2325	2435	
==>not autoload $who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8549	8638	
==>ts, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2374	2463	
==>ts, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23545	23643	
==>return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19966	20064	
==>return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => su <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	358	466	
==>ge}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[ <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	358	466	
==>ge}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1078	1219	
==>O - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1078	1219	
==>O - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5567	5675	
==>s HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5567	5675	
==>s HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27651	27753	
==>_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which corresp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27651	27753	
==>_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which corresp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5229	5367	
==>$o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X::str;
      pos($s) = $X::pos;
      my $x = $s =~ $qr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2389	2512	
==>h @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2389	2512	
==>h @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23273	23411	
==>1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = exp1.p6analyze(pad)
    .return (exp1)
.end

.namespace [ "PGE::Exp::Closure" ]

.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34490	34602	
==>Rx::THING> object will look in its own
package first, then in F<Regexp::MyRx::__object__> (if it exists), then
in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6552	6653	
==>accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6552	6653	
==>accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<res <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5460	5557	
==>examine the response code or response headers
(like 'Content-Type') when you are accessing the web <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5460	5557	
==>examine the response code or response headers
(like 'Content-Type') when you are accessing the web <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2179	2278	
==>path

field name: $name
osname: $config->{osname}

Please notify the maintainer of this code. (Brian <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13486	13600	
==>r{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13486	13600	
==>r{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4344	4450	
==>>value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->value : undef; }
sub as_p6_file { $_[0]{'p6_file'}->valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4236	4330	
==>ray reference, the match object returns positional
captures as match objects.

=head2 %{}

When <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4236	4330	
==>ray reference, the match object returns positional
captures as match objects.

=head2 %{}

When <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1671	1901	
==>,          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1671	1901	
==>,          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6900	7014	
==>e'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'Str <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6900	7014	
==>e'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'Str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14627	14732	
==>Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14627	14732	
==>Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18545	18673	
==>ackage ${ROOT}::$pkg; $code";
}


sub eval_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1386	1483	
==>ee_yaml;
	exit(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11644	11783	
==>eset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11644	11783	
==>eset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18816	18922	
==>duce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18816	18922	
==>duce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $do <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25075	25174	
==>e Message class is pure and deterministic,
such that all of its class and object methods will each r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25075	25174	
==>e Message class is pure and deterministic,
such that all of its class and object methods will each r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	222	335	
==>serland folks will
see, but it has some other clutter because of unclear design.

    $.from         - The place w <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	222	335	
==>serland folks will
see, but it has some other clutter because of unclear design.

    $.from         - The place w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4264	4372	
==>terpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)} <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4264	4372	
==>terpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9139	9238	
==>ode $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9139	9238	
==>ode $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29270	29379	
==>::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29270	29379	
==>::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readon <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18764	18872	
==>triggering core behavior which we are not prepared to
support (such as modification of the compiled re op tre <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3054	3162	
==>triggering core behavior which we are not prepared to
support (such as modification of the compiled re op tre <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3501	3617	
==>= @_;

	return $body;
}

sub define_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2084	2188	
==>eady submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+)/ and $smoke{pugs_version <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3260	3391	
==>? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3260	3391	
==>? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1669	1867	
==>h {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1669	1867	
==>h {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2796	2891	
==>operability.

Parrot Perl 6 is the best performing implementation by far.
The Parrot implementat <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	71	162	
==>xport { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	71	162	
==>xport { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	286	399	
==>my $src = shift;
    my ( $ast, $tail ) = Pugs::Grammar::Expression::ast( $src );
    return Pugs::Runtime::Match- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	505	606	
==>faults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6801	6945	
==>1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    .return (mob)

  err_noterm:
    parse_error(mob, p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16291	16395	
==>+misctmp\d+\s+aborted/of - aborted/g;

    # bison says 'parse error' instead of 'syntax error',
    # va <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11104	11204	
==>mpty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11104	11204	
==>mpty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `comple <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6734	6838	
==>ngs ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient A <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6734	6838	
==>ngs ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20188	20305	
==>rn $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16609	16726	
==>rn $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6591	6703	
==>@_) }; # 0 for -
sub unlike ($$@) { like_yn (1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3848	3962	
==>ter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Proto <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3711	3822	
==>ter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Proto <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11613	11721	
==>en recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence intersects (has any element in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11613	11721	
==>en recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence intersects (has any element in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1595	1696	
==>>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1595	1696	
==>>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7697	7817	
==>move(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7697	7817	
==>move(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19879	19977	
==>return two
values; the user name and the password.  In scalar context it will
return I<"uname:passw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19879	19977	
==>return two
values; the user name and the password.  In scalar context it will
return I<"uname:passw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16603	16705	
==>then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type eq 't <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16603	16705	
==>then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type eq 't <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5819	5955	
==>e($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $min <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5819	5955	
==>e($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $min <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3522	3621	
==>thods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3522	3621	
==>thods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10100	10260	
==>a->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-inden <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1232	1327	
==>ispatch table; this is a collection of functions and
methods that are queried during dispatch (w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2445	2544	
==>$<Pugs::Grammar::Rule::rule>' ));
    return "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_de <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	672	765	
==>ect->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object->white <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3857	4004	
==>efined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3857	4004	
==>efined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4576	4677	
==>le;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4576	4677	
==>le;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	795	906	
==>rule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	806	917	
==>rule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5138	5297	
==>= Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $res <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5138	5297	
==>= Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $res <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	295	442	
==>nt, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	295	442	
==>nt, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2313	2420	
==>h @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2313	2420	
==>h @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32348	32454	
==>erl modules, but in the future they may alternately be something
else, such as XML or tab-delimited plain t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32348	32454	
==>erl modules, but in the future they may alternately be something
else, such as XML or tab-delimited plain t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1964	2082	
==>ass->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaning <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1964	2082	
==>ass->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaning <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2301	2402	
==>ANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 40 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2301	2402	
==>ANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 40 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1680	1781	
==>map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<g <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1680	1781	
==>map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<g <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	907	1038	
==>r($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	907	1038	
==>r($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19096	19205	
==>or(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15517	15626	
==>or(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17453	17562	
==>return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17453	17562	
==>return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) eq ":";
  r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3000	3126	
==>r
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2988	3114	
==>r
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36754	36852	
==>ample>

This multi-method is a generic binary relational operator that is like
C<union> except that <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37254	37352	
==>ample>

This multi-method is a generic binary relational operator that is like
C<union> except that <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1446	1558	
==>}
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1446	1558	
==>}
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5118	5235	
==>t(prop => $name, 0);
  });

  # nspace (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42820	42919	
==>version of Perl 6.x.y that is at least 6.0.0.

It also requires these Perl 6 classes that are in the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4511	4651	
==>1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules),"]\n";
    }
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22203	22297	
==>.

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22203	22297	
==>.

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(chan <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16690	16821	
==>brary for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "bl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16690	16821	
==>brary for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "bl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	486	589	
==>ting, always use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        l <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	98	196	
==>*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => r <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	98	196	
==>*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20920	21025	
==>nt list to the constructor or header() method, the same
field name should not occur multiple times.  The r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20920	21025	
==>nt list to the constructor or header() method, the same
field name should not occur multiple times.  The r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11131	11247	
==>sted gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11131	11247	
==>sted gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2782	2893	
==>ect { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2782	2893	
==>ect { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22254	22384	
==>object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18675	18805	
==>object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20680	20778	
==>ve to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20680	20778	
==>ve to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15358	15486	
==>urn the start or end value of the span.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15358	15486	
==>urn the start or end value of the span.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1633	1761	
==>l} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1633	1761	
==>l} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    di <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4061	4188	
==>erl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () { <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4061	4188	
==>erl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () { <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18683	18777	
==>e what the core expects to avoid problems.  While simultaneously
trying to avoid triggering cor <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2973	3067	
==>e what the core expects to avoid problems.  While simultaneously
trying to avoid triggering cor <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4410	4525	
==>_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4410	4525	
==>_h 'PIL_Expr',             'PCode', 
  'pType'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20872	20970	
==>e simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation obje <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25424	25522	
==>e simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	591	718	
==> " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	591	718	
==> " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8871	9003	
==>te the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8871	9003	
==>te the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	645	750	
==>uire Pugs::Compiler::Perl6;

    my $p6 = Pugs::Compiler::Perl6->compile( $source );
    my $perl5 = $p6-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5625	5784	
==>natives };
        
        ### check if we're the 'prefered' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15301	15412	
==>dth of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2777	2891	
==>}
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($resul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2835	2949	
==>}
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($resul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7743	7841	
==>$reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.cl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7743	7841	
==>$reason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.cl <==
2	/Users/nnunley/pugs/util/grokprims.pl	1681	1781	
==>ssociative/ and $arity==2) {
    $example = "HUH: left-associative with arity $arity";
  } elsif (/ri <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	440	527	
==>Value;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalValue::Reference <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1557	1666	
==>False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1557	1666	
==>False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1705	1893	
==>=> $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1705	1893	
==>=> $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8814	8932	
==>eil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8814	8932	
==>eil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	741	897	
==>) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	741	897	
==>) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6170	6286	
==>t_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6170	6286	
==>t_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15911	16019	
==>ile resembling a message that would be shown to a user, is in fact meant
to be interpreted by the machine its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15911	16019	
==>ile resembling a message that would be shown to a user, is in fact meant
to be interpreted by the machine its <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	961	1084	
==>ed from '$filename'\n";
    open FILE, "<", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	511	610	
==>up_output();

inline(), exit 0 if $Config{inline};
precomp(), exit 0 if $Config{precompile};
usage() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2788	2945	
==>f $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2681	2831	
==>f $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 } <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6918	7001	
==>_metachar("+").
p5_metachar("\.").
p5_metachar("[").
p5_metachar("^").
p5_metachar(" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20915	21015	
==>ks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20915	21015	
==>ks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14556	14666	
==>an.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, tha <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14556	14666	
==>an.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, tha <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7505	7606	
==>dren_of_seq = $child->values; # the children of the seq child of the thunk
			my $last = pop @children <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16050	16161	
==>v($$) }

let: type($$) = {
	types::unify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in) <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	162	256	
==>ation.length);
}

method subtract($self: Duration $duration) returns Duration {
    $self.new($ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6538	6686	
==>/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5042	5190	
==>/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13346	13478	
==>() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13346	13478	
==>() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22101	22214	
==>.  This also works for the multiple language
or permissions issue; simply order the files appropriately in the sea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22101	22214	
==>.  This also works for the multiple language
or permissions issue; simply order the files appropriately in the sea <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4495	4600	
==>n of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only function this m <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4495	4600	
==>n of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only function this m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33382	33483	
==>he
walking stack, so we add them in the order they are to be encountered
with unshift().  The two code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19120	19215	
==>omatically if using the header(),
push_header() or init_header() methods to set the referrer.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19120	19215	
==>omatically if using the header(),
push_header() or init_header() methods to set the referrer.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1846	1944	
==>ittle and others.

This program is free software; you can redistribute it and/or modify it
under th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1846	1944	
==>ittle and others.

This program is free software; you can redistribute it and/or modify it
under th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1223	1389	
==>{
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1223	1389	
==>{
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1985	2094	
==>Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Althoug <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1985	2094	
==>Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 SECURITY

Althoug <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	206	307	
==>oc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	206	307	
==>oc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18571	18686	
==>tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19929	20044	
==>tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->obj <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9209	9363	
==>dure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9209	9363	
==>dure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1436	1552	
==>lf._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1436	1552	
==>lf._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($self: *@items) returns in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12778	12902	
==>eudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livech <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12778	12902	
==>eudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livech <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2744	2864	
==>Z> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2744	2864	
==>Z> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13945	14045	
==>.  If a header field is multi-valued, then the
routine is called once for each value.  The field name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13945	14045	
==>.  If a header field is multi-valued, then the
routine is called once for each value.  The field name <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3417	3544	
==>if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3417	3544	
==>if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$p <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1093	1192	
==>ersion, $ghc, $ghc_version, $setup, @args) = @{$opts->{GHC}};
    write_buildinfo($version, $ghc, $g <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2873	2967	
==>W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2048	2220	
==>ence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2048	2220	
==>ence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5201	5314	
==>{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator table\n <==
2	/Users/nnunley/pugs/util/drift.pl	118	215	
==>n, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at all <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11435	11531	
==>tributes is identical; they do not
interact with the outside environment at all.

A Document obje <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11435	11531	
==>tributes is identical; they do not
interact with the outside environment at all.

A Document obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4061	4233	
==>alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4049	4221	
==>alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4107	4205	
==>=> $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4107	4205	
==>=> $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.comp <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14689	14787	
==>$initrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15746	15843	
==>nmodified_since

These header fields are used to make a request conditional.  If the requested
res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15746	15843	
==>nmodified_since

These header fields are used to make a request conditional.  If the requested
res <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13943	14057	
==>If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14001	14115	
==>If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool` <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13608	13719	
==>intersection( $recurrence_holidays );

- Continuous span

This type os span is used to represent continuous meas <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13608	13719	
==>intersection( $recurrence_holidays );

- Continuous span

This type os span is used to represent continuous meas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4812	4908	
==>t(@_);
}


sub force_object {
  Carp::croak("class name passed where object required") unless ref <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1693	1817	
==>'type'))
        || confess "The right hand side must be a core type";    
    ($right->to_num->to_native != 0)
        || co <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5835	5931	
==>cess/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5835	5931	
==>cess/failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4178	4285	
==>urn the start or end value of the span.

These methods may return nothing if the span is empty.

- `start_is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4178	4285	
==>urn the start or end value of the span.

These methods may return nothing if the span is empty.

- `start_is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5875	6035	
==>per( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5887	6047	
==>per( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	28	125	
==>urrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_tim <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	28	125	
==>urrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_tim <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1735	1845	
==>t even number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16672	16781	
==>::Example {

    # First do some optimizing of the order that source relations are
    # combined, so to try a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4530	4686	
==>_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $la <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4530	4686	
==>_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $la <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13515	13635	
==>w);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7723	7843	
==>w);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S- <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1340	1454	
==>value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1340	1454	
==>value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1930	2037	
==>hod tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1930	2037	
==>hod tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	938	1076	
==>tch->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	938	1076	
==>tch->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2194	2291	
==>.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2194	2291	
==>.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delet <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2918	3035	
==>y>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<sect <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2918	3035	
==>y>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<sect <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13272	13359	
==>%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminate <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13272	13359	
==>%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminate <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3191	3315	
==>eys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3191	3315	
==>eys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tre <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	812	912	
==>th, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	812	912	
==>th, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7393	7600	
==>, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # res <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7857	8064	
==>, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # res <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7271	7384	
==>s.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7271	7384	
==>s.
# Fold out heredocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	624	727	
==>d = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	682	785	
==>d = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is ex <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16799	16898	
==>ng the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<M <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16799	16898	
==>ng the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<M <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	428	656	
==>Package
sub new {
    my $self    = shift;
    my %hash    = @_;
    
    my $file; my $meta;
    my $tmpl = {
        file    => { required => 1, allow => FILE_EXISTS, store => \$file },
        meta    => { store => \$meta, all <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15882	15999	
==>nshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15882	15999	
==>nshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3529	3628	
==>};
1;
package main;
use Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1712	1881	
==>t side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz';                    # part with metadata
$E <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2006	2108	
==>:Runtime::get_top_level_env();

## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2834	2923	
==>oncatenation(X), p5_alternatives(union(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3098	3242	
==>ent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "oum <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3098	3242	
==>ent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "oum <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6528	6654	
==>=> -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6528	6654	
==>=> -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) { <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8947	9106	
==>ew(:f(sub($str)\{
           my $re = $hook$adverbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; my $m;
           while 1 \{
              my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1164	1258	
==>:Utils::Dump->export_to_level(1,@_);
}

sub dump_tree {
	my ($tree,$name) = @_;
	return $dumper <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2055	2229	
==>rnatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source package dirs
$config{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8480	8595	
==>lder::Output.new()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19437	19537	
==>nly have to update said separate resource files, and not change
your main program.

I<Note that an up <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19437	19537	
==>nly have to update said separate resource files, and not change
your main program.

I<Note that an up <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	411	516	
==>wn parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return a Set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	411	516	
==>wn parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return a Set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	146	264	
==>export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	146	264	
==>export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6546	6650	
==>users accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6546	6650	
==>users accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7838	7935	
==>thod compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7838	7935	
==>thod compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12412	12508	
==>t of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12412	12508	
==>t of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1  <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8592	8714	
==>$_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8588	8710	
==>$_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node:: <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	53	157	
==>le::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUIL <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	53	157	
==>le::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUIL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5661	5796	
==>=~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'H <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5673	5808	
==>=~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'H <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1057	1171	
==>TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1057	1171	
==>TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	343	459	
==>cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	343	459	
==>cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7741	7855	
==>, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalle <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1042	1156	
==>, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1864	1963	
==>nsic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1792	1889	
==>nsic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a stat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3147	3249	
==>code.org/Public/UNIDATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $optable;





packag <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8124	8219	
==>s example, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8124	8219	
==>s example, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10562	10721	
==>ant to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $serverna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10562	10721	
==>ant to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $serverna <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2090	2271	
==>e_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $currfile ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $cu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	558	693	
==>{ required => 1, allow => FILE_EXISTS, store => \$file },
        meta    => { store => \$meta, allow => ISA_JIB_META },
    };
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5527	5645	
==>mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # comb <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5527	5645	
==>mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # comb <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3233	3353	
==>am<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   % <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3233	3353	
==>am<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   % <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1209	1322	
==>or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm is based on statistic <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1209	1322	
==>or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm is based on statistic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12883	12999	
==>lf = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27022	27138	
==>lf = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	794	896	
==>te a store for single elements (Span::Singleton)
    * use binary search instead of linear search

  Fr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	794	896	
==>te a store for single elements (Span::Singleton)
    * use binary search instead of linear search

  Fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1889	1993	
==>recedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1889	1993	
==>recedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => ' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3251	3465	
==>gs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3251	3465	
==>gs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15013	15127	
==>ntainer)))
             (= $c (WALKCLASS (&dispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12832	12939	
==>f the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12832	12939	
==>f the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25722	25825	
==>e; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25722	25825	
==>e; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-e <==
2	/Users/nnunley/pugs/util/package-osx.pl	1102	1210	
==>fo
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/hi <==
2	/Users/nnunley/pugs/util/package-osx.pl	3412	3520	
==>fo
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/hi <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	274	371	
==>($self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	274	371	
==>($self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1503	1662	
==>> $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1503	1662	
==>> $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1501	1629	
==>file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args h <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1501	1629	
==>file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14086	14194	
==>n representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14086	14194	
==>n representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1705	1860	
==>p { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1705	1860	
==>p { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #wa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3436	3611	
==>_file]) {
                    system( qw[touch], $obj->$meth )    and error($?), return;
                }
            }
            
            ### do alts first, package;:in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	213	351	
==>$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_down = $c;
      my($str,$pos,$cap); my $v;
      { local($X::str,$X::pos,$X::cap) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	418	544	
==>ot build source package from '$dir'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Lo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16496	16592	
==>rator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type($.then), type($.e <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4407	4627	
==>t("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4407	4627	
==>t("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1531	1669	
==>as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1531	1669	
==>as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2971	3075	
==>pherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, which can be called repeatedly to en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2971	3075	
==>pherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, which can be called repeatedly to en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5191	5323	
==>che353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5191	5323	
==>che353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2578	2689	
==>to

do it Right As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2483	2589	
==>to
do it Right As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11838	11937	
==>for the specified header field.  Previous values
for the same field are retained.

As for the header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11838	11937	
==>for the specified header field.  Previous values
for the same field are retained.

As for the header <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2743	2890	
==>'+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'left',
        precede <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10059	10157	
==>[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub node::non_capturing_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18144	18268	
==>ional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18144	18268	
==>ional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_han <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3888	3997	
==>ign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (secti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3888	3997	
==>ign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (secti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4103	4215	
==>[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4952	5064	
==>[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	892	994	
==>nto a AST node (the API is

specified in Perl6::API::AST - so maybe the implementation

lives there too <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	846	946	
==>nto a AST node (the API is
specified in Perl6::API::AST - so maybe the implementation
lives there too <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	662	765	
==>tions

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinctio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	662	765	
==>tions

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinctio <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3318	3411	
==>code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$cons <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3318	3411	
==>code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$cons <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3224	3343	
==>ILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3224	3343	
==>ILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# P <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2423	2533	
==>an.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2423	2533	
==>an.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1927	2060	
==>b );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1927	2060	
==>b );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22086	22180	
==>E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(usernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22086	22180	
==>E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(usernam <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10254	10395	
==>n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$test{ml}ok\n";
            } elsif (defined $test <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9272	9369	
==>ule SingleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\'\\]> #SourceCharact <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16371	16471	
==>$floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16371	16471	
==>$floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12347	12464	
==>, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, $out, $err, $pid);
    }
}


rol <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2920	3062	
==>s error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.el <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2920	3062	
==>s error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3590	3688	
==>item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3590	3688	
==>item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	226	315	
==>se 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	226	315	
==>se 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10093	10206	
==>$_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10093	10206	
==>$_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.int <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2796	2899	
==>$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2796	2899	
==>$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8740	8843	
==>>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8740	8843	
==>>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2378	2473	
==>er::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2378	2473	
==>er::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3324	3452	
==>$.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3324	3452	
==>$.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11296	11460	
==>y $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc mark <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11296	11460	
==>y $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc mark <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2849	2973	
==>:Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2849	2973	
==>:Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14458	14563	
==>= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14516	14621	
==>= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This m <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1513	1617	
==>te::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Witho <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1513	1617	
==>te::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Witho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1514	1766	
==>when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1514	1766	
==>when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	509	618	
==>ompile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    return Pu <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	581	682	
==>al behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<op <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	581	682	
==>al behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2664	2791	
==>o("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2664	2791	
==>o("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1589	1721	
==>tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1524	1652	
==>tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    ret <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8480	8618	
==>ersion
        if ($has_new_cabal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/pugs-fps -any, pug <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5155	5256	
==>); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading synopses
infest_syns($link_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1286	1391	
==>ce for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for exam <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1286	1391	
==>ce for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for exam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4654	4843	
==>backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4654	4843	
==>backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2312	2420	
==>eturns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2312	2420	
==>eturns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4452	4588	
==>=> '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raq <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4452	4588	
==>=> '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raq <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33413	33526	
==>emplate module for the program or first library should
appear first in the array.  Each Set Name can be any define <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33413	33526	
==>emplate module for the program or first library should
appear first in the array.  Each Set Name can be any define <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2602	2708	
==>ex) returns Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!children }

## -- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2602	2708	
==>ex) returns Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!children }

## -- <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	888	996	
==>OE::Session $session, Str $event, *@args) {
    # Push our callback on @:events.
    ./:enqueue({
      my $r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	964	1068	
==>');
@EXPORT    = qw(&runtests);
@EXPORT_OK = qw($verbose $switches);

$Verbose  = $ENV{HARNESS_VERBOSE} | <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9583	9862	
==>my $e = shift; 
                              $e->get("$method")->is_nil(); 
                          })
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) create 
    ("*::WALKCLASS" 
        (closure n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	411	526	
==>l );
my $rpc_regexP5 = Pugs::Compiler::RegexPerl5->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    prin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4570	4757	
==>es    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4570	4757	
==>es    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19014	19110	
==>y meant to be used with user text that is
associated with hard-coded program conditions.  In othe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19014	19110	
==>y meant to be used with user text that is
associated with hard-coded program conditions.  In othe <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	496	600	
==>type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 has a type.  This type can b <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17779	17945	
==>,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7235	7340	
==>i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	996	1085	
==>-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	996	1085	
==>-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7601	7705	
==>nd_element ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=for' directi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7601	7705	
==>nd_element ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=for' directi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13833	13946	
==>set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are over <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13833	13946	
==>set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are over <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3729	3832	
==>bout 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3729	3832	
==>bout 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22643	22735	
==>terface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22643	22735	
==>terface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13437	13566	
==>ndler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13437	13566	
==>ndler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9938	10064	
==>.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; versio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9938	10064	
==>.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; versio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2418	2534	
==>tal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2476	2592	
==>tal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	913	1005	
==>enticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	913	1005	
==>enticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1724	1828	
==>) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callb <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1724	1828	
==>) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callb <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13386	13502	
==>work with, and raises maintenance concerns.
  That said, the use of internals is rather limited, and in a rather
  st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	841	949	
==>n/../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data::Dumper;

    # pri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5563	5666	
==>fter field is dual format (can also be a expressed as
# number of seconds from now), so we don't provide <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5563	5666	
==>fter field is dual format (can also be a expressed as
# number of seconds from now), so we don't provide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1206	1305	
==>tch = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $sour <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1206	1305	
==>tch = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $sour <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	155	258	
==>rldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	155	258	
==>rldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1259	1349	
==>}
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1239	1334	
==>trName $attr_name) {
    return %!attrs{$attr_name};
}

method attr_name_exists of Bool (Relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	41	158	
==>object__;  

  sub class {
    my $self = shift;
    Carp::carp("class() deprecated; use family() instead");
    $self <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1624	1724	
==>% pass. 3sec run on my machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like ear <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18520	18627	
==>-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19878	19985	
==>-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5683	5792	
==>{
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = "";
    my(%create <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18977	19097	
==>teme_code.pl") or die $!;
    }
    print $eval_log_file $code,"\n" if $eval_log_file;
    print $code if 0;
}
sub eval_p <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1171	1264	
==>I->param("version") or $CGI->param("version") != VERSION) {
    print "Versions do not match!" <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1430	1542	
==>/) {
    print "The submitted smoke does not look like a smoke!";
    exit;
  }
}

sub uncompress_smoke {
  $CGI- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12712	12806	
==>ed_character_tail(Name,Close), !, uncode_charname_to_char(Name,C), !.
p6_named_character_tail([ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	648	917	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	648	917	
==>ols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4290	4390	
==>pile(<<'RULE')->code();

    [ <term1> <?p6ws>? \, <?p6ws>? ]* <term1>?
RULE
*{'block'} = Pugs::Compi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27784	27878	
==>::Example object has these methods:

=over

=item C<export_as_hash () returns Hash>

This metho <==
2	/Users/nnunley/pugs/util/package-osx.pl	7566	7660	
==>r/local/man/man3/Perl6::Spec::Documentation.3pm
        /usr/local/man/man3/Perl6::Spec::Functi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11673	11796	
==>ode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4316	4439	
==>ode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2382	2481	
==>ues;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %ent <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2382	2481	
==>ues;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %ent <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	904	1004	
==>le;\nuse base 'Pugs::Grammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10773	10880	
==>or';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10773	10880	
==>or';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19299	19397	
==>ve feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definition st <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19299	19397	
==>ve feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definition st <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	676	812	
==>_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	676	812	
==>_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12736	12872	
==>t_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12736	12872	
==>t_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOL <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1237	1430	
==>push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NA <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1237	1430	
==>push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NA <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	814	911	
==>ath) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	814	911	
==>ath) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns St <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11498	11596	
==>$expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11556	11654	
==>$expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3165	3285	
==>l = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4014	4134	
==>l = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13658	13768	
==>xpanded.  The longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13658	13768	
==>xpanded.  The longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17896	17996	
==>object at a time, and they are
essentially all isolated from each other, even if more than one uses t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17896	17996	
==>object at a time, and they are
essentially all isolated from each other, even if more than one uses t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	893	1005	
==>ssed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</htm <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	893	1005	
==>ssed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</htm <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	486	602	
==>pure functions.  They only
# represent transformations between PIL node types; out-of-band data is not listed.

sub t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	486	602	
==>pure functions.  They only
# represent transformations between PIL node types; out-of-band data is not listed.

sub t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47469	47613	
==>=> (
    # method label
        symbol->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4908	5016	
==>ti Array::shift ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Array::splice (       @array is rw <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	347	446	
==>.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	347	446	
==>.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return Bool: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7667	7877	
==>on them, returning the result.

=cut

sub _vcmp {
    my $self = shift;
    my ($x, $y) = @_;
    
    s/_//g foreach $x, $y;

    return $x <=> $y;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12840	12977	
==>sults->{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ok} - $tres->{todo} - $tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	49	159	
==>to perl5 emitter

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

sub _mangle_id <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12679	12813	
==>d shift   () is primitive { self.readline() }
    method next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	938	1063	
==>th             }
sub to_bit { (shift)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    ( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3979	4116	
==>(
            File::Spec->catfile(qw< dist build src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17897	18004	
==>s C<[A-CB-E]> would have a character map of C<< { 65 => 1, 66
=> 2, 67 => 2, 68 => 1, 69 => 1} >>.  This wil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14153	14251	
==>hat case, you can use the rather blunt pass()
functions and its compliment the flunk() function.

- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14211	14309	
==>hat case, you can use the rather blunt pass()
functions and its compliment the flunk() function.

- <==
2	/Users/nnunley/pugs/util/package-osx.pl	1081	1190	
==>cal/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /u <==
2	/Users/nnunley/pugs/util/package-osx.pl	3391	3500	
==>cal/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6226	6350	
==>atch::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6238	6362	
==>atch::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28752	28859	
==>text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_H <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28752	28859	
==>text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_H <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2208	2348	
==>temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2208	2348	
==>temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11679	11798	
==>t;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11679	11798	
==>t;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9367	9534	
==>alues -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }


=item reverse

 multi Hash::reverse (%hash --> Hash ) is def <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7408	7512	
==>_OPTABLE_TERNARY );
  goto expect_oper;

  reduce:
  my $temp1 = pop @tokenStack;
  my $temp2 = $$temp1{s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1385	1478	
==>stant RPe_RBRACE => --$ENUM, 'Missing right brace on \%s{}';
use constant RPe_BGROUP => --$ENU <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2793	2893	
==>, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is wh <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2793	2893	
==>, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is wh <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	601	700	
==>r $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne ' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	601	700	
==>r $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	513	661	
==>cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tm <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1057	1179	
==>e
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

= <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1057	1179	
==>e
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2138	2327	
==>the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2138	2327	
==>the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6486	6602	
==>Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'R <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6486	6602	
==>Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'R <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4023	4138	
==>ermTable->lkey($target, $whitespacePosition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4806	4907	
==>= compile($re) || die;
  $r = mk_Match_appender($r,$name) if $match_hack;
  push(@$aref,$r);
  $r;
}
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2787	2932	
==>undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2787	2932	
==>undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, be <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	687	787	
==>ift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1277	1377	
==>ift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1413	1541	
==>pper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1413	1541	
==>pper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4252	4407	
==>= shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4793	4948	
==>= shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21053	21154	
==>am can be distributed with one or more
resource files containing text for users, and your program woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21053	21154	
==>am can be distributed with one or more
resource files containing text for users, and your program woul <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2935	3039	
==>s }

# copied from S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    ga <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1488	1581	
==>exe}", 'configure', '--user', '--prefix', "$pwd/dist");
        system("../../Setup$Config{_ex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12804	12901	
==>~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12862	12959	
==>~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9930	10029	
==>s export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9930	10029	
==>s export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entitie <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4451	4548	
==>ECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the year f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4451	4548	
==>ECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the year f <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24664	24834	
==>rintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3692	3806	
==>ext_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3692	3806	
==>ext_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7062	7165	
==>lume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7062	7165	
==>lume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5020	5125	
==>quence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ < <==
2	/Users/nnunley/pugs/util/munge_haddock.pl	70	167	
==>ot maintained during the munging
while (<>) {
  $_ = '' if /^#ifndef\s+HADDOCK\s*$/ .. /^#endif\s* <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	567	716	
==>.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	567	716	
==>.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27113	27218	
==>iled() if !defined $a;
    my($strA,$npos,$A)=@$a;
    my $str = join("",map{chr($_)} @$strA);
    my $cap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37413	37508	
==>ructor.  The
argument is a true or false value determining whether this is a positive
assertion. <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13835	13960	
==>synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $sy <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2011	2123	
==>Perl {
        multi method as (--> Num) { defined($.string) ?? Num $.string !! $.count }
        multi method as <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12197	12295	
==>ap { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12197	12295	
==>ap { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified hea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3595	3696	
==>entication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Strea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3595	3696	
==>entication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Strea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29095	29193	
==>lation::Example
which is the same as the invocant Relation::Example but that some of its attributes <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31943	32041	
==>lation::Example
which is the same as the invocant Relation::Example but that some of its attributes <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13304	13408	
==>initrd_img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by entering the followi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20465	20559	
==>od instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20465	20559	
==>od instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22761	22859	
==>hem; but often a template will
choose to show less than all of the available details depending on t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22761	22859	
==>hem; but often a template will
choose to show less than all of the available details depending on t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3535	3687	
==>ub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3394	3540	
==>ub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3166	3280	
==>re than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = n <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3166	3280	
==>re than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11940	12088	
==>cat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ide <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12219	12367	
==>cat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ide <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4985	5122	
==>self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;
    $self-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5126	5257	
==>self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_admin;

  ME <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	682	811	
==>i  List::reduce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; nex <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9286	9413	
==>i  List::reduce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; nex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8298	8400	
==>e = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8010	8108	
==>e = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5804	5936	
==>an.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5804	5936	
==>an.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4515	4615	
==>le: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4515	4615	
==>le: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This met <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9878	9974	
==>er 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate validations <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9878	9974	
==>er 2 main phases, which
are referred to as "immediate" and "deferred".  The immediate validations <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5479	5575	
==>f ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5479	5575	
==>f ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.he <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13634	13729	
==>the formula cannot be satisfied within a 
reasonable range of values.

You should consider using <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13634	13729	
==>the formula cannot be satisfied within a 
reasonable range of values.

You should consider using <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4348	4433	
==>-----------------------------------------------------------------
## BOOTSTRAPPING Rol <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6586	6671	
==>-----------------------------------------------------------------
## BOOTSTRAPPING Rol <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7315	7431	
==>if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7315	7431	
==>if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11799	11996	
==>> undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11799	11996	
==>> undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	714	870	
==>:Var.ident>
                { return { scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => '
                <Pugs::Grammar::Var <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3844	3968	
==>');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6593	6749	
==>agment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6593	6749	
==>agment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10040	10141	
==>ype => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10040	10141	
==>ype => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2710	2871	
==>gs->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2850	3011	
==>gs->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #prin <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2557	2672	
==>plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2557	2672	
==>plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4179	4337	
==>ml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '° <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4179	4337	
==>ml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '° <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	938	1084	
==>os};
    $self->{p}        = delete $param->{p}    unless defined $self->{p};
                        # default = undef;
    $self->{sigspace} = de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3795	4046	
==><REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3795	4046	
==><REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1008	1107	
==>ompiler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mixes in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	958	1056	
==>ompiler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mixes in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15461	15645	
==>oin;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18938	19122	
==>oin;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!h <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1441	1569	
==>nless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODI <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1441	1569	
==>nless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODI <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3981	4060	
==>l5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3981	4060	
==>l5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5993	6126	
==>64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $enco <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5993	6126	
==>64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $enco <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1159	1454	
==>n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1159	1454	
==>n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	133	261	
==>L::Run::Container::Scalar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12530	12655	
==>nd} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_ps <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12530	12655	
==>nd} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_ps <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6299	6485	
==>grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9776	9962	
==>grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10864	10978	
==>an
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10864	10978	
==>an
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	317	453	
==>ed to be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	307	434	
==>ed to be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3485	3593	
==>ne, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3485	3593	
==>ne, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7407	7573	
==>ame {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subob <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7407	7573	
==>ame {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10240	10342	
==>=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10240	10342	
==>=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5031	5140	
==>O - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5031	5140	
==>O - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17666	17815	
==>)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9574	9682	
==>( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9574	9682	
==>( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'pe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	253	345	
==>)
* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	253	345	
==>)
* Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New L <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6666	6832	
==>ight|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'un <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6723	6889	
==>ight|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'un <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6960	7064	
==>lass $cls\n");
}

sub p6_code_mk_CODE {
    my($name,$kind,$pams,$lval,$body)=@_;
    code_for_code_CODE( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3721	3821	
==>urn false values to signal error conditions
    # in library code. Do either! Let your caller decide! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	722	839	
==>$len = length( $const );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( su <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4416	4539	
==>mization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4416	4539	
==>mization    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2060	2171	
==>rs or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it has several known 
probl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2060	2171	
==>rs or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it has several known 
probl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8046	8151	
==>perform "set" operations on 
Span objects, that return lists of spans.

In this example, @span may contain <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8046	8151	
==>perform "set" operations on 
Span objects, that return lists of spans.

In this example, @span may contain <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	38	136	
==>g of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) no <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	38	136	
==>g of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12665	12802	
==>}; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12944	13081	
==>}; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15030	15127	
==>>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15030	15127	
==>>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Node <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6233	6337	
==>ebug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6233	6337	
==>ebug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1849	1956	
==>$other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the c <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1849	1956	
==>$other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8020	8169	
==>s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8032	8181	
==>s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32976	33079	
==>s:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or mor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32976	33079	
==>s:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or mor <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1588	1682	
==>ition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1588	1682	
==>ition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30805	30936	
==>irst and makes up most of the module name; it
must be the same for every module in the same set as the current one.  The
Member Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30805	30936	
==>irst and makes up most of the module name; it
must be the same for every module in the same set as the current one.  The
Member Name <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4729	4857	
==>"divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4729	4857	
==>"divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11587	11741	
==>r and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11587	11741	
==>r and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	289	397	
==>erver \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	289	397	
==>erver \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7731	7838	
==>ided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7731	7838	
==>ided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7810	7927	
==>ize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7810	7927	
==>ize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4730	4933	
==>h");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4730	4933	
==>h");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10890	11013	
==>er($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%opti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10890	11013	
==>er($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%opti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34566	34657	
==>::__object__> (if it exists), then
in F<Regexp::Parser::THING> (if it exists), and finally i <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2350	2461	
==>{$_->[0]} for @{$self->bundles};
    }

    if (my $perl_version = $self->perl_version) {
        eval "use $per <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1777	1880	
==>Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28553	28673	
==>'&' => sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	982	1098	
==>r( qq[Could not create directory '$args->{dir}': $@"] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Ut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13751	13913	
==>$_) . "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$//;  # remove sig <==
2	/Users/nnunley/pugs/util/version_h.pl	490	596	
==>rs
# is modified.
my $revision = 0;

# SVK tries to ask the user questions when it has a STDIN and there is <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1512	1658	
==>end( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2895	3027	
==>ngle array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2895	3027	
==>ngle array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38045	38141	
==>e recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_template_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38045	38141	
==>e recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_template_te <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1822	1924	
==>$test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1880	1982	
==>$test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## u <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	622	729	
==>T_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less used values <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	622	729	
==>T_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less used values <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	692	803	
==>s;

    $self->prepare_scope(@params);

    # profiling actually slows this down by around 30%
    #my $t = time <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	259	348	
==>ie::TypeSafe;
use Set::Object ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinde <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	341	482	
==>rl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleIni <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5566	5689	
==>first if it's a dir -> dir
    ### move. Which means a bit more work, as file::copy doesn't do it for
    ## us :(
    my %f <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2184	2288	
==>f exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2162	2266	
==>f exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1	120	
==>lass Test::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Inv <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1	120	
==>lass Test::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Inv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	202	318	
==>s;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	179	295	
==>s;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3053	3153	
==>False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3053	3153	
==>False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_ <==
2	/Users/nnunley/pugs/util/testgraph.pl	248	339	
==>|h);
$Config{cssfile} ||= Test::TAP::HTMLMatrix->css_file();
usage() if $Config{help};

my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4904	5003	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the maj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4904	5003	
==>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the maj <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5362	5501	
==>),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5362	5501	
==>),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1329	1529	
==>omparator);

# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$in <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7643	7795	
==>ent; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7643	7795	
==>ent; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            m <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5657	5760	
==>{
    my ($self, $child_count, $all_tests) = @_;
    my $chunk_size = POSIX::ceil(@$all_tests / ($child_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12260	12364	
==>-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a wo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12260	12364	
==>-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a wo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3087	3201	
==>an::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3087	3201	
==>an::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2160	2303	
==>,
    submethods => { 
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.number'     => 0)     unless exists $para <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35192	35286	
==>en given the tuple/Mapping as its sole read-only argument. The new
Relation::Example has all of <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1183	1300	
==>n Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1183	1300	
==>n Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10540	10654	
==>mpile_routine( $prd_add_person );

    # Define and compile a function that will select a record from the
    # 'pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10540	10654	
==>mpile_routine( $prd_add_person );

    # Define and compile a function that will select a record from the
    # 'pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2578	2730	
==>MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
        $args <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1726	1877	
==>MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24005	24105	
==>openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24005	24105	
==>openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8463	8584	
==>my ($class, $rx, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'clu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14460	14566	
==>y non function type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arrow;
	
	
	my $p_f = $f->lef <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1171	1264	
==>elf-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document desc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1171	1264	
==>elf-contained reference implementation of a Rosetta Engine

=head1 VERSION

This document desc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1889	2003	
==>n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing synopsis, you should
be left with <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1889	2003	
==>n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing synopsis, you should
be left with <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3535	3777	
==>h.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3535	3777	
==>h.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7088	7228	
==>= {
        file    => { required => 1, allow => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) or error(Params::Check->l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8821	8955	
==>rn @maybe;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9585	9732	
==>capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10421	10568	
==>capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} ) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12211	12305	
==>ead2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subs <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12211	12305	
==>ead2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subs <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4371	4466	
==>(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4371	4466	
==>(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12663	12761	
==>sed when the objects represent "chunks" of data, such as date objects without the time part.

Discr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12663	12761	
==>sed when the objects represent "chunks" of data, such as date objects without the time part.

Discr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4357	4555	
==>] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4898	5096	
==>] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	594	695	
==>th "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coder <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	594	695	
==>th "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coder <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48033	48198	
==>e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:namespace'))
                  ->store(
                      $e->get('$label <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8845	9003	
==>currence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8845	9003	
==>currence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	78	178	
==>he original MiniMetaModel here
# for reference purposes, as this is what 2.0 is based on
# this way t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3480	3599	
==>der_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3480	3599	
==>der_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4193	4346	
==>',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "p <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4193	4346	
==>',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3474	3573	
==>back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3474	3573	
==>back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1837	1931	
==>is divided to various intrinsic object types, including

intrinsic Code (which then has Pad/Sig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1765	1858	
==>is divided to various intrinsic object types, including
intrinsic Code (which then has Pad/Sig <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1927	2030	
==>e;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1927	2030	
==>e;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2284	2399	
==>d start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end } <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2284	2399	
==>d start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6582	6774	
==>lf.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6582	6774	
==>lf.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4235	4344	
==>t dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4452	4561	
==>t dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1171	1277	
==>Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1171	1277	
==>Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent N <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15194	15296	
==>ething
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  mult <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15252	15354	
==>ething
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  mult <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9593	9707	
==>same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9593	9707	
==>same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2  <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3188	3292	
==>on?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_content (Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3188	3292	
==>on?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_content (Str <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	901	1027	
==>buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	901	1027	
==>buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modifi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23848	23962	
==>_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@superclasses)))
          ($self: set <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10996	11090	
==>$ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtered <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3166	3320	
==>time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3166	3320	
==>time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7024	7230	
==>nly = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extrac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7024	7230	
==>nly = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extrac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3296	3401	
==>ess_perl_type {
		my $self = shift;
		my $node = shift;
		
		my $obj = B::svref_2object(ref($node) ? $node <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2752	2848	
==>e compiled version of the builtin
    $val->set($self->reduce($builtin));
}

__PACKAGE__;

__END_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1626	1748	
==>odes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1626	1748	
==>odes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24319	24419	
==>> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = typ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13991	14104	
==>}
rule ArgumentList :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <AssignmentExpres <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3504	3617	
==>eturn 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2271	2399	
==>,  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2271	2399	
==>,  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	918	1007	
==>ing that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	918	1007	
==>ing that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1600	1740	
==>bstr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1535	1668	
==>bstr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	410	511	
==>>compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'rege <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	410	511	
==>>compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'rege <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	450	543	
==>'dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DE <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	450	543	
==>'dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	624	764	
==>ignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	624	764	
==>ignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8544	8688	
==>on not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8544	8688	
==>on not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3844	3945	
==>closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3844	3945	
==>closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15337	15479	
==>}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15337	15479	
==>}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10600	10709	
==>uous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10600	10709	
==>uous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2910	3008	
==>\x0c\x0d\x85\u2028\u2029"
    ,"h" => unicode:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u20 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5196	5318	
==>ng
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5418	5540	
==>ng
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4474	4553	
==>-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4474	4553	
==>-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3844	3941	
==>er, move up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephr <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3844	3941	
==>er, move up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7620	7728	
==>comp(aTHX_ nulpat,nulpat,pm);
    /*XXX - can free nulpat now? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5597	5698	
==>= $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5597	5698	
==>= $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5282	5390	
==>$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [- <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5282	5390	
==>$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8947	9066	
==>_;
    eval <<USE_OK;
use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpret <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	217	336	
==>ndef,
    }, $class;
}

sub duplicate_nodes {
    my $self = shift;
    my $program = shift;

    $self->{seen} = Set::O <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3893	3995	
==>est::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code & <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3951	4053	
==>est::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code & <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19335	19487	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19614	19766	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9835	9936	
==>.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9835	9936	
==>.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1044	1189	
==>val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1044	1189	
==>val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMO <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	515	629	
==>list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	515	629	
==>list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13390	13490	
==>to most of the functions is a way
to provide a comment that refers to another file or test which must <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13448	13548	
==>to most of the functions is a way
to provide a comment that refers to another file or test which must <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25717	25822	
==>essage; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25717	25822	
==>essage; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6304	6401	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8751	8884	
==>ap.

=cut

sub _command {
    my $self = shift;

    return $ENV{HARNESS_PERL}           if defined $ENV{HARNESS_PERL};
    return "MC <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7202	7326	
==>self->_command_line($file);
    unless( open(FILE, "$line|") ) {
        print "can't run $file. $!\n";
        return;
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3445	3660	
==>{
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => 1,
                        match => '{',
                        tail  => substr( $match, 1 ),
                        capture <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7180	7294	
==>doc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = {}; # Table for design d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6597	6820	
==>my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data u <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6597	6820	
==>my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3335	3458	
==>hing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile {
    my $class = shift;
    %hash = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6304	6416	
==>L() if !($X::pos == (length($X::str)));
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\z';
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5412	5526	
==>mes: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5412	5526	
==>mes: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14335	14436	
==>`diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14393	14494	
==>`diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1526	1633	
==>st = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1526	1633	
==>st = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	499	604	
==>members() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	499	604	
==>members() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7074	7213	
==>( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7062	7201	
==>( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && retur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13410	13509	
==>elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13410	13509	
==>elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2766	2924	
==>) ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2661	2810	
==>) ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        matc <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3442	3538	
==>l methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without a <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3442	3538	
==>l methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38090	38333	
==>new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_a <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8656	8768	
==>nitrd_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checking which shared libraries pugs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12877	13019	
==>o,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # H <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12877	13019	
==>o,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # H <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	935	1085	
==>push(int($y / $x)) }
            default  { die "Invalid token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die "Invalid stack:[@stack[]]\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10682	10782	
==>he next
time it is called.

=head2 Viewing the Regex

You can get the regex back from the parser with <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5054	5181	
==>lt'>
    | <'if'>
    | <'throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'typeof'> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6412	6548	
==>^$base//;
                      $_ => File::Spec->catfile( $to, $target ) 
                } File::Find::Rule->file->in( $from );
    } e <==
2	/Users/nnunley/pugs/util/grokprims.pl	1776	1874	
==>f (/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2684	2790	
==>__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie::Backend::C;

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	216	344	
==>eturn map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	216	344	
==>eturn map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mode<encrypt>);
    print $encrypt.ci <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4213	4336	
==>match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4430	4553	
==>match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{cap <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1162	1266	
==>lf: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1162	1266	
==>lf: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28958	29056	
==>for this object.  This value is a number created by OR'ing
together the flags that are enabled at t <==
2	/Users/nnunley/pugs/util/package-osx.pl	5850	5947	
==>an3/Perl6::Overview::Data.3pm
        /usr/local/man/man3/Perl6::Overview::File.3
        /usr/loc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2785	2895	
==>l.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2785	2895	
==>l.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2269	2381	
==>-- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2186	2293	
==>-- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3267	3429	
==>response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3267	3429	
==>response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2347	2486	
==>ive_data;
        my $control  = $conf->archive_control;

        ### extract the meta info
        ### XXX extract to $Builddir first, THEN <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4549	4651	
==>item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  M <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4549	4651	
==>item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23833	23928	
==>e.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23833	23928	
==>e.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1373	1465	
==>sert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1373	1465	
==>sert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_var <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	385	501	
==>@modules, $File::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODUL <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	543	645	
==>logfile
while(<>) {
  # Only process headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18563	18683	
==>kg; $code";
}


sub eval_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7524	7632	
==>MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4550	4670	
==>ostfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4550	4670	
==>ostfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4907	5056	
==>ample: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4738	4881	
==>ample: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => [ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2224	2320	
==>s of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for mor <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2224	2320	
==>s of nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for mor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	464	572	
==>the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	464	572	
==>the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	1	104	
==>!/usr/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { .. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	1	104	
==>!/usr/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { .. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1267	1382	
==>atch;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1267	1382	
==>atch;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $p <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1521	1622	
==>information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net/gl/tcng/node6 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1521	1622	
==>information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net/gl/tcng/node6 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3076	3199	
==>signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3076	3199	
==>signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8959	9052	
==>ush @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2784	2877	
==>ush @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1334	1450	
==>alue ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1334	1450	
==>alue ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5985	6088	
==>>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5985	6088	
==>>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1837	1953	
==>they are too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$remainder <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1764	1875	
==>they are too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$remainder <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11671	11790	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11671	11790	
==>LF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1497	1615	
==>Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1497	1615	
==>Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.us <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6018	6161	
==>child == 1;

        my @own_tests = splice @$all_tests, 0, $this_size;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8955	9083	
==>( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8642	8767	
==>( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{stat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30746	30868	
==>ts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30746	30868	
==>ts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23684	23811	
==>n(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20105	20232	
==>n(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1113	1215	
==>the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inhe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1113	1215	
==>the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inhe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2717	2819	
==>\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3290	3392	
==>\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7260	7602	
==>return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7260	7602	
==>return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13309	13410	
==>nately $path will not be available in the index (eval $loc failed: $@)" if $@;
  $total_links += $link <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7947	8034	
==>e($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7947	8034	
==>e($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @ch <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11926	12047	
==>ead1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11926	12047	
==>ead1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5884	6019	
==>hile (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5884	6019	
==>hile (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8170	8301	
==>',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working because the language
    # spec sa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8170	8301	
==>',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working because the language
    # spec sa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2272	2397	
==>y $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_na <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2272	2397	
==>y $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14249	14357	
==>loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have to trap the exceptio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14249	14357	
==>loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have to trap the exceptio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2550	2669	
==>.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2550	2669	
==>.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4893	5043	
==>}{$cat} }
      ];
    }

    $runcores{$runcore} = [
      map {{
        catname => $_,
        smokes  => $runcores{$runcore}{$_},
      }} sort { l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6763	6888	
==>, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6538	6652	
==>, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Ru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1609	1728	
==>s );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1609	1728	
==>s );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10733	10834	
==>: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10733	10834	
==>: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2832	2967	
==>ror    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2832	2967	
==>ror    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10611	10729	
==>bash"],
    [$inputrc              => "$initrd_mnt/etc/inputrc"],
    [$terminfo             => "$initrd_mnt/etc/termin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4716	4850	
==>do, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4774	4908	
==>do, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3986	4105	
==>CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3986	4105	
==>CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3045	3156	
==>rns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3103	3214	
==>rns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1354	1467	
==>$grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1354	1467	
==>$grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3908	4050	
==>evel ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5132	5274	
==>evel ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1896	2024	
==>g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1896	2024	
==>g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16031	16144	
==>ername $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$tex <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16031	16144	
==>ername $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$tex <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10719	10813	
==>R

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Create <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10719	10813	
==>R

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Create <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6654	6760	
==>I, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Fla <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6654	6760	
==>I, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Fla <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	402	501	
==>nt_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	402	501	
==>nt_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5946	6096	
==>=~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5946	6096	
==>=~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4153	4266	
==>g back into the oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5.8.5)?!?
    retur <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1163	1265	
==>ns: $options - match: $match\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Match" if ! define <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4972	5102	
==>}

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    el <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4972	5102	
==>}

method set_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    el <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12019	12150	
==>n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12019	12150	
==>n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1243	1429	
==>sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    } <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1243	1429	
==>sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12296	12408	
==>ute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12296	12408	
==>ute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31963	32072	
==>gram would check each
of the 3 Template module sets in turn, looking at just the set member for
each that corr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31963	32072	
==>gram would check each
of the 3 Template module sets in turn, looking at just the set member for
each that corr <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	381	506	
==>on(:second($seconds));
}

multi sub duration( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3587	3693	
==>=> \$version },
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34338	34438	
==>uple/Mapping whose attributes match
those of C<$heading>.  The new Relation::Example has all of the t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7644	7739	
==>b { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_eleme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1469	1564	
==>b { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_eleme <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12716	12848	
==>umeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12716	12848	
==>umeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	77	181	
==>age`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.0 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	77	181	
==>age`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.0 <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1436	1554	
==>= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1436	1554	
==>= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/util/combine_tests.pl	561	666	
==>ore_revisions[] is added with revision number of the older versions.
#
sub combine_tests{
    #
    # Coll <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1460	1580	
==>P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SY <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1460	1580	
==>P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SY <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13905	14040	
==>eference
        );

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13905	14040	
==>eference
        );

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a matching templa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4796	4979	
==>or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5018	5201	
==>or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3016	3132	
==>{
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3016	3132	
==>{
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7489	7589	
==>directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunk <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7489	7589	
==>directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunk <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20340	20443	
==>d reliably, it also performs quite slowly; you should only use Example
for testing, development, and stu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20340	20443	
==>d reliably, it also performs quite slowly; you should only use Example
for testing, development, and stu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2663	2775	
==>@_;
    #print "adding $opt->{name}\n";
    $opt->{assoc}  = 'non'    unless defined $opt->{assoc};
    $opt-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8599	8697	
==>head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is enc <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8599	8697	
==>head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is enc <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3398	3561	
==>value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $int -> $bool;
                my $self = shift;
                my $idx = shift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4912	5019	
==>return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4912	5019	
==>return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17442	17552	
==>eset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17442	17552	
==>eset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($str, 0, 1) e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12610	12708	
==>an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12610	12708	
==>an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1842	1962	
==>re, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1842	1962	
==>re, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3121	3230	
==>d_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3121	3230	
==>d_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircna <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	605	694	
==>erl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	605	694	
==>erl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35777	35875	
==>kes
another Relation as its C<$other> argument and combines it with the
invocant relation into a ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40327	40425	
==>kes
another Relation as its C<$other> argument and combines it with the
invocant relation into a ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4384	4498	
==>set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4384	4498	
==>set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_as <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10945	11089	
==>_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "don <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10945	11089	
==>_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "don <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34695	34795	
==>rns a new Relation that has the
same heading as the invocant and whose body contains all of the tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39245	39345	
==>rns a new Relation that has the
same heading as the invocant and whose body contains all of the tuple <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2216	2308	
==>lf->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine_VERSION <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1322	1413	
==>lf->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine_VERSION <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2507	2630	
==>base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolut <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2507	2630	
==>base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1076	1200	
==>PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1118	1242	
==>PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2972	3121	
==>n $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3519	3668	
==>n $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2142	2294	
==>d();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2235	2369	
==>@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	2045	2171	
==>yify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur_day != $#till_day) {
      push <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1063	1184	
==>[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1063	1184	
==>[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16765	16869	
==>e.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16765	16869	
==>e.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't inters <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1074	1174	
==>d;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1132	1232	
==>d;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply( <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	363	473	
==>he main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $ma <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	363	473	
==>he main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	578	713	
==>s       - The current position of the match (also holds the
                  string that is being matched against).
    $.match     - S <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	578	713	
==>s       - The current position of the match (also holds the
                  string that is being matched against).
    $.match     - S <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1211	1306	
==>`

Creates a bidirectional recurrence set.

These methods are disabled: complement(), difference <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1211	1306	
==>`

Creates a bidirectional recurrence set.

These methods are disabled: complement(), difference <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2320	2431	
==>ool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method prope <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2320	2431	
==>ool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    return $rv;
}
method prope <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3743	3844	
==>t($x) == $x;
	return 'num';
    }
    return lc($ref) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	110	204	
==>r of Pugs::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementation <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4857	5017	
==>ods' => {
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            return ::opaque_instance_class(sh <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13482	13586	
==>{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

True if invocant has an ele <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2862	2956	
==>-Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --externa <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2862	2956	
==>-Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --externa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12631	12763	
==>, $self->max);
    if ($min == 0 and $max eq '') { '*' }
    elsif ($min == 1 and $max eq '') { '+' }
    elsif ($min == 0 and $max = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1593	1702	
==>ttr(symbol->new('%:methods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($me <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1181	1297	
==>nput name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<in <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1181	1297	
==>nput name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	739	867	
==>de },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	750	878	
==>de },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturin <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1252	1372	
==>00);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1219	1339	
==>00);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	387	558	
==>r ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	387	558	
==>r ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23619	23731	
==>e handler for C<(?ismx)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <- <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5408	5512	
==>ean value of success or failure;

=item err_str

The C<err_str> method returns the last error message

=b <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5408	5512	
==>ean value of success or failure;

=item err_str

The C<err_str> method returns the last error message

=b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2414	2563	
==>alue of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2414	2563	
==>alue of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29812	29923	
==>_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29812	29923	
==>_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1429	1533	
==>F!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1429	1533	
==>F!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2239	2341	
==>.}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see ab <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2239	2341	
==>.}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<mark> (see ab <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	29	135	
==>t-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.cal <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	29	135	
==>t-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.cal <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12224	12360	
==>r line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, eac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12224	12360	
==>r line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, eac <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2266	2376	
==>:dir('_jib') ];
### XXX need cp -R functionality fixed proper to use this ;(
#$config{'build_dir'}        = $co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2475	2582	
==>.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2533	2640	
==>.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27873	27978	
==>d false if
it's going to be turned off.  For C<(?i-s)>, C<FLAG_i> would be called
with a true argument, an <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12236	12341	
==>te;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the cur <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12236	12341	
==>te;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the cur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5209	5364	
==>next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5209	5364	
==>next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4584	4757	
==>,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching consta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4445	4608	
==>,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching consta <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	836	975	
==>ol::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Ru <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	836	975	
==>ol::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Ru <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	693	801	
==>perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understanding of wh <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	693	801	
==>perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive understanding of wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1102	1242	
==>_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1307	1447	
==>_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9355	9471	
==>self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9355	9471	
==>self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	505	623	
==>efault
    install_dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($file <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30840	30952	
==>her_iterator (opaque $self: list @values) returns block {
    my $counter = 0;
    return sub {
        return @v <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1151	1248	
==>o very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a mem <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1151	1248	
==>o very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a mem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1679	1782	
==>oken> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1679	1782	
==>oken> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5813	5917	
==>ule constructors return Rule objects, which are "matcher" things.

Rules operate on strings (normally) an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5610	5713	
==>ule constructors return Rule objects, which are "matcher" things.
Rules operate on strings (normally) an <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12841	12935	
==>the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characte <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12841	12935	
==>the $string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characte <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1983	2083	
==>$t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of th <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1983	2083	
==>$t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	829	930	
==>, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
back <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	829	930	
==>, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
back <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	823	922	
==>head2 package

Set the name of the full package package. For example:

    p5-foo-1-cpan+kane

=head <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4645	4756	
==>F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4645	4756	
==>F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25960	26060	
==>al copyright notice and other credits.
Rosetta is distributed in the hope that it will be useful, but <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25960	26060	
==>al copyright notice and other credits.
Rosetta is distributed in the hope that it will be useful, but <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6953	7059	
==>epended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; mo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6953	7059	
==>epended to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; mo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1508	1629	
==>grep { $_->package eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alterna <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	384	472	
==>Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1::BB::pugs_args);
BEGIN{
G <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	275	409	
==>-------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	275	409	
==>-------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2046	2194	
==>d ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1966	2109	
==>d ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2468	2579	
==>turn'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2468	2579	
==>turn'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11718	11838	
==>b {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4361	4481	
==>b {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4287	4435	
==>::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4287	4435	
==>::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	208	373	
==>ix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            Ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12024	12137	
==>uires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the Tree

If you want to work with th <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10874	10966	
==>cr  => "Copying Pugs, Parrot, Bash, inputrc, the terminfo description, linuxrc, and welcome.p <==
2	/Users/nnunley/pugs/util/package-osx.pl	8102	8194	
==>sr/local/man/man3/Perl6::Spec::Rule.3pm
        /usr/local/man/man3/Perl6::Spec::Structure.3p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1267	1401	
==>f, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::RegexPerl5 - Compiler for Perl 6 style "Perl5" regex

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4994	5126	
==>art_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns Strin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4994	5126	
==>art_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns Strin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8457	8584	
==>) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8457	8584	
==>) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19470	19606	
==>->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15891	16027	
==>->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxP <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1742	1854	
==>dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1742	1854	
==>dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25103	25250	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25382	25529	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8067	8172	
==>Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8067	8172	
==>Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	348	457	
==>lf->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit->new(0);
# }

1;

__END__

=pod

=head1 NAME 

ty <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18495	18661	
==>uleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18774	18940	
==>uleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8674	8815	
==>ce.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8674	8815	
==>ce.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	330	594	
==>TY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	330	594	
==>TY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1817	1915	
==>e ciphertext version.  Most 
algorithms will have a key, which will be specified in the options; ch <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1817	1915	
==>e ciphertext version.  Most 
algorithms will have a key, which will be specified in the options; ch <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5545	5682	
==>en - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $le <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4045	4182	
==>en - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $le <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5113	5217	
==>a("Blondie::TypeSafe::Type::Placeholder")){
			my $new = $type->type;
			return $type if ref $new and $ne <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	363	478	
==>parision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	363	478	
==>parision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4329	4419	
==>t->name, 'Object', '... $Object got the right method return value');
is($Object->superclass <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6231	6321	
==>t->name, 'Object', '... $Object got the right method return value');
is($Object->superclass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22350	22489	
==>ler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18771	18910	
==>ler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	248	349	
==>t::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.prin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	248	349	
==>t::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.prin <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2374	2470	
==>$spacePresent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->tokenT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1015	1142	
==>my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1015	1142	
==>my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16606	16731	
==>ifference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16606	16731	
==>ifference( $span )`

Returns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Re <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2820	2934	
==>t to change that.

Note: A precompiled (but most of the time outdated) image is available at
      http://m19s28.vl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6796	6931	
==>mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7260	7395	
==>mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3157	3295	
==>Pugs::Compiler::Rule' );

=for pod
  sub rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}() <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	325	458	
==>in    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support her <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	325	458	
==>in    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support her <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33823	33917	
==>dual user's (or user role's) preferences such that each says what
language they prefer to commu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33823	33917	
==>dual user's (or user role's) preferences such that each says what
language they prefer to commu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1792	1897	
==>turns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1850	1955	
==>turns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4445	4552	
==>this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4445	4552	
==>this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	228	334	
==>'0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	228	334	
==>'0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {};

# A m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11981	12100	
==>nd => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [- <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11981	12100	
==>nd => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1108	1227	
==>one of this Relation's attributes and the value corresponding
        # to that is the value for that attribute for that <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4586	4705	
==>one of this Relation's attributes and the value corresponding
        # to that is the value for that attribute for that <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18346	18450	
==>ntent
inside heredocs can possibly confuse further parsing.

Next, the source module is divided into a sh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18346	18450	
==>ntent
inside heredocs can possibly confuse further parsing.

Next, the source module is divided into a sh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17671	17767	
==>n DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D st <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17671	17767	
==>n DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2933	3072	
==>-f $my_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $pac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7992	8094	
==>hile (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this perl's internals can c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6662	6771	
==>ex_files {
    my ($self, $pkg, $groups, $cur) = @_;
    return unless $groups && @$groups;

    my @index_fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	168	267	
==>r::Terse = 1;
    return join( ', ', Data::Dumper::Dumper( @_ ) );
}

package Pugs::Runtime::Perl6:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	596	715	
==>(shift)->{name}) }

# conversion to other native types
sub to_bit { bit->new(1)           }
sub to_num { num->new((shift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7577	7734	
==>,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7577	7734	
==>,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6615	6731	
==>e_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6627	6743	
==>e_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19894	19988	
==>out is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19894	19988	
==>out is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	301	458	
==>my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	79	183	
==>odule::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install install <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15535	15652	
==>e = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0 + 1
    goto end
  err_clos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	275	372	
==>use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	275	372	
==>use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3760	3907	
==>e to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_ti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3760	3907	
==>e to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_ti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37766	37878	
==>d a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37766	37878	
==>d a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl module by the given module <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4330	4468	
==>ld_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4330	4468	
==>ld_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3882	4036	
==>object__ );

  sub new {
    my ($class, $rx, $neg, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4009	4115	
==>::Package->new( meta => $_, installation => $obj) }
                map { JIB::Meta->new_from_struct( struc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1674	1766	
==>s::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1674	1766	
==>s::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	344	444	
==>one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	344	444	
==>one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4608	4710	
==>f(ret < 1+2+2 || ret > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec failed - pare <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22064	22171	
==><$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.ope <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22064	22171	
==><$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2573	2696	
==>tch, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2573	2696	
==>tch, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	347	540	
==>u must provide a name for your symbol";
    bless { 
        name => $name,
        type => $type || 'type',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	959	1230	
==>t = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	959	1230	
==>t = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9644	9773	
==>erwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issue <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9644	9773	
==>erwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issue <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12779	12951	
==>cat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13058	13230	
==>cat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1491	1591	
==>e;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1491	1591	
==>e;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5349	5444	
==>reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5407	5502	
==>reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	113	213	
==>Perl5::Ratchet for the final implementation

use strict;
use warnings;
use Data::Dumper;
use Pad <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2057	2191	
==>{
            dir => { required => 1, allow => DIR_EXISTS, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error( P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	173	271	
==>gine, aiming to generate the same data structure as
the 'ratchet' version.

- It currently passe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19592	19731	
==>it => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do { <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15471	15567	
==>owever, attempting to stuff something into
the string at a higher level that doesn't map to the l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1230	1329	
==>will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - list <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1230	1329	
==>will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - list <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15423	15516	
==>ecode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15423	15516	
==>ecode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8786	8946	
==>file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8786	8946	
==>file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38656	38753	
==>ast 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LI <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5639	5718	
==>d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3227	3427	
==>fier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        In <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3238	3438	
==>fier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9839	9949	
==>module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9839	9949	
==>module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3109	3219	
==>ect
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is co <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3109	3219	
==>ect
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is co <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	468	572	
==>1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	468	572	
==>1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6629	6742	
==>n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6641	6754	
==>n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	765	878	
==>ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	765	878	
==>ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    retu <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2475	2586	
==>init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Ru <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2475	2586	
==>init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Ru <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4530	4653	
==>e number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4530	4653	
==>e number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!chi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3317	3423	
==>my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3317	3423	
==>my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1181	1290	
==>ned reference implementation of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1181	1290	
==>ned reference implementation of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3905	4028	
==>at has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimiz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3766	3886	
==>at has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimiz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2723	2971	
==>?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2734	2982	
==>?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	657	757	
==>ngs 'numeric';
    return num->new((shift)->to_native() + 0);
}

# implement comparitor method

sub _ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4790	4922	
==>kage ' . $a[0] .
                ( $version ? ";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{bareword} eq 'c <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4292	4399	
==>lit(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory sta <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4292	4399	
==>lit(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory sta <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1942	2053	
==>_varname})/$1 = $2/g;
}

conv_self {
    my $sub_context;
    # Check if it's now in 'sub' context
    if(/\bsub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17965	18108	
==>>visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14386	14529	
==>>visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5957	6049	
==>f(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5957	6049	
==>f(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $ev <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1201	1365	
==>ave found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1201	1365	
==>ave found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2026	2206	
==>bject>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2026	2206	
==>bject>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	946	1065	
==>ple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	946	1065	
==>ple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7295	7396	
==>led as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input da <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7295	7396	
==>led as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input da <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20375	20502	
==>'(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16796	16923	
==>'(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	24	119	
==>@ARGV) {
  die "Usage: $0 [STRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4188	4293	
==>gories
    For writing your own backslash and assertion rules or macros, you may
    use the following syn <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	92	200	
==>XME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	92	200	
==>XME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17784	17889	
==>k = shift;

    use Data::Structure::Util qw/signature/;;
    return  signature($thunk);
    Digest::SHA1: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10670	10776	
==>hertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10670	10776	
==>hertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	636	751	
==>ell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	636	751	
==>ell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2858	2971	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2858	2971	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (N <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	630	745	
==>ay "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are run <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	630	745	
==>ay "You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are run <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4674	4799	
==>copy($candidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        sys <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4044	4174	
==>ght { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = shift;
	my $class = shift;

	if (Scalar::Util: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	912	1051	
==>message-map';        
        
        # alias prototype to some common names for super
        return $table->{prototype}
            if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5434	5540	
==>ilure;

=item err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This mo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5434	5540	
==>ilure;

=item err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This mo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2208	2300	
==>e || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1314	1405	
==>e || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7565	7703	
==>uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7565	7703	
==>uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704), <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12195	12320	
==>} else {
          copy "$parrot_path/runtime/parrot/include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = ma <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1275	1399	
==>de_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s->run;
$s->emit;
exit 0;


sub fixup_concurrency {
    $Config{"co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	109	356	
==>cale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	109	356	
==>cale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33664	33758	
==>rementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a generic <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38214	38308	
==>rementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a generic <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3774	3889	
==>c_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3774	3889	
==>c_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17426	17574	
==>a type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17426	17574	
==>a type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' = <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3340	3440	
==>Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { split / <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35212	35313	
==>rns a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named parame <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35212	35313	
==>rns a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named parame <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3921	4009	
==>ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3921	4009	
==>ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	410	525	
==>ontaining:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    match - the "match" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	390	501	
==>ontaining:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6168	6270	
==>channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6168	6270	
==>channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %user <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5816	5931	
==>inue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$mi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5816	5931	
==>inue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$mi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21380	21474	
==>ritten to it should easily port
to alternative relational database engines with minimal effort. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21380	21474	
==>ritten to it should easily port
to alternative relational database engines with minimal effort. <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2689	2815	
==>ix_makefile {
    my $self = shift;
    my $base = $self->{_top}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_bl <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21899	22012	
==>failed_str);
    foreach my $script (keys %$failedtests) {
        my $namelen = length $failedtests->{$script}->{ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8691	8866	
==>03.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8691	8866	
==>03.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$l <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2992	3207	
==>rbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verba <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2992	3207	
==>rbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verba <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3542	3633	
==>rn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3542	3633	
==>rn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3626	3914	
==>line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3626	3914	
==>line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %eve <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13739	13841	
==>e.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Mis <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13797	13899	
==>e.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Mis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8789	8917	
==>CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $pre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8789	8917	
==>CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4945	5058	
==>thod add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4945	5058	
==>thod add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	374	492	
==>plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15831	16000	
==>:capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16110	16279	
==>:capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	74	176	
==>JIB::Config;
use JIB::Source;

use Path::Class ();
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls -1 s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8745	8911	
==>ookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8745	8911	
==>ookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9882	9988	
==>ail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9882	9988	
==>ail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11137	11253	
==>ather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11137	11253	
==>ather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40979	41080	
==>n.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggeste <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40979	41080	
==>n.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggeste <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32488	32581	
==>d C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37038	37131	
==>d C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13624	13720	
==>he
names are returned in the recommended "Good Practice" order.

In scalar context return the num <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13624	13720	
==>he
names are returned in the recommended "Good Practice" order.

In scalar context return the num <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	979	1084	
==>use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	979	1084	
==>use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4889	5058	
==>{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4089	4210	
==>result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4089	4210	
==>result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle h <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1844	1947	
==>ug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYN <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1844	1947	
==>ug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYN <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10705	10893	
==>hildren(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10705	10893	
==>hildren(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35427	35542	
==>ef.

=item C<get_member_names()>

This method returns all Member Names elements in this object as an array
ref.

=it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35427	35542	
==>ef.

=item C<get_member_names()>

This method returns all Member Names elements in this object as an array
ref.

=it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7216	7351	
==>l,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a debug m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6975	7103	
==>l,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12338	12436	
==>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12338	12436	
==>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3962	4085	
==>ethod remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3962	4085	
==>ethod remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	832	970	
==>( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	799	930	
==>( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4125	4302	
==>rn int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_co <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4125	4302	
==>rn int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3623	3774	
==>s them
            my @alts = eval { 
                map { JIB::Alternative->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->regi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2617	2731	
==>,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2617	2731	
==>,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1007	1100	
==>::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1007	1100	
==>::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36769	36873	
==>f none
could be matched, this method returns undef.  This method could be
considered to implement the 'ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36769	36873	
==>f none
could be matched, this method returns undef.  This method could be
considered to implement the 'ma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6877	7081	
==>: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6877	7081	
==>: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5221	5350	
==>'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCx <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5221	5350	
==>'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3749	3874	
==>capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3749	3874	
==>capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2457	2571	
==>{$symbol};

    my $val = $self->{cache}{$symbol} = Blondie::Compiler::Placeholder->new(undef);

    # if the symbo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4673	4761	
==>',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Nu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1521	1635	
==>utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $con <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1521	1635	
==>utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	951	1073	
==>so maybe the implementation

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	904	1022	
==>so maybe the implementation
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1385	1487	
==>";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional programming
te <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1385	1487	
==>";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional programming
te <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2550	2650	
==>end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2550	2650	
==>end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14294	14395	
==>XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hier <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14294	14395	
==>XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hier <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	377	533	
==>vents{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        l <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	377	533	
==>vents{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7480	7589	
==>eturn a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7227	7331	
==>eturn a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" le <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1279	1376	
==>w () {
    print template( "wiki.tmpl", topic => $topic, entry => $entry, entry_html => $entry_htm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12765	12912	
==>tr $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12765	12912	
==>tr $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($re <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2044	2169	
==>}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_p <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2044	2169	
==>}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19507	19646	
==>n |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15928	16067	
==>n |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	14	117	
==>::Core::Nil;

use Perl6::Core::Type;

package nil;

use strict;
use warnings;

use base 'type';

our $NI <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2244	2338	
==>autotags" will be too.

When activated, the special tag C<:all> will cause all tracing messages <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2244	2338	
==>autotags" will be too.

When activated, the special tag C<:all> will cause all tracing messages <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	481	668	
==>> $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_quoted => $1 }, value => { single_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11850	11983	
==>>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 9.3.1
      <[0..9]>
}
rule ExponentPart {  # see 9.3.1
      <Exp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4711	4871	
==>);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4711	4871	
==>);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7615	7767	
==>List      non     ..      safe   (Scalar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^..     safe   (Scala <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4878	4980	
==>rns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4878	4980	
==>rns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11740	11827	
==>ne([]).


p6_octidecimal_escape_sequence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4579	4781	
==>set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        's <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4579	4781	
==>set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        's <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1686	1804	
==>lf->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel.. <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1686	1804	
==>lf->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel.. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3971	4072	
==>ocale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3971	4072	
==>ocale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	421	552	
==>ng:delimiter(' ');


# copied from S29draft.pod 8651.
multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15774	15873	
==>lculates how wide the leader should be based on the length of the
longest test name.

=cut

sub _lea <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	780	960	
==>ue);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	780	960	
==>ue);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2830	2956	
==>$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2830	2956	
==>$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1540	1642	
==>ect> function or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1540	1642	
==>ect> function or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10895	11028	
==>laintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10895	11028	
==>laintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1502	1598	
==>\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add_ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1502	1598	
==>\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13992	14094	
==>an use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test doe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14050	14152	
==>an use this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test doe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1393	1490	
==>ref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Loo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1393	1490	
==>ref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Loo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13046	13144	
==>ent's member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13046	13144	
==>ent's member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
wh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3169	3301	
==>'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "sz <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3169	3301	
==>'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "sz <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2365	2501	
==>ults as far as we got,
    # so that the user can maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2365	2501	
==>ults as far as we got,
    # so that the user can maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	508	612	
==>}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	508	612	
==>}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{matc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2688	2796	
==>py, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2688	2796	
==>py, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10073	10198	
==>_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(",",@names5)
		    ." <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3533	3651	
==>turn $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3533	3651	
==>turn $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5667	5784	
==>) if $cc;
    return $S->object(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    retur <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20676	20787	
==>et|proto|serv|sock].*/ glob ioctl link listen 
# lstat mkdir open opendir pipe print printf read readdir readlin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9960	10126	
==>hile (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1741	1895	
==>hile (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2095	2206	
==>OPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2095	2206	
==>OPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux') <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13358	13464	
==>set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13358	13464	
==>set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13938	14045	
==>sion:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13938	14045	
==>sion:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6161	6332	
==>_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7278	7402	
==>l"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7278	7402	
==>l"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1140	1243	
==>file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code wit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1140	1243	
==>file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code wit <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2168	2281	
==>hromatic.

=head1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submetho <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16807	16936	
==>owing
information:

  passing           true if the whole test is considered a pass 
                    (or skipped), false if it <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	796	891	
==>ool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	796	891	
==>ool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descrip <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4072	4160	
==>][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4072	4160	
==>][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	897	993	
==>ing on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	897	993	
==>ing on. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2305	2441	
==>e') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2305	2441	
==>e') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8737	8850	
==>::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8733	8846	
==>::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2809	2919	
==>/terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3056	3166	
==>/terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $< <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15792	15929	
==>elf->{lone_not_line} = $self->{line};
        }

        return $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bail_out = $strap->_is_bail <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	356	473	
==>ine (@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnings;
	my($ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2749	2845	
==>pproxfprime with the user supplied
f.  Such things are possible in Perl 5, but simply saying .ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1561	1695	
==>eturn Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1561	1695	
==>eturn Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	809	969	
==>Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = del <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1713	1940	
==>!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_ele <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1713	1940	
==>!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_ele <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2288	2390	
==>ce => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2288	2390	
==>ce => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compa <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1216	1401	
==>rrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a h <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1216	1401	
==>rrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10031	10128	
==>nput, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10031	10128	
==>nput, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
va <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1476	1597	
==>{ name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7634	7774	
==>],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7634	7774	
==>],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11869	12100	
==>e->get('?%params')
                  ->is_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('?%params' => hash->new()); 
                  }));
                $e->ge <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3399	3515	
==>epo->add_package(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48356	48464	
==>---------------------
## add Module

$::Module = $::Class->send('new');
$::Module->send('superclasses' => lis <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14828	14920	
==>.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"],
  [$kernel_local => "$cdroot/boot/vmli <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5007	5193	
==>Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4223	4401	
==>Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3213	3341	
==>ndler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3213	3341	
==>ndler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15034	15151	
==>f $Perl;

	# For subcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15829	15942	
==>e requested
resource has (or has not) been modified since the time specified in this field,
then the server will r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15829	15942	
==>e requested
resource has (or has not) been modified since the time specified in this field,
then the server will r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16553	16685	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16832	16964	
==>)
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	674	815	
==>( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	667	808	
==>( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture w <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2185	2293	
==>';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_pugs_config;
    $self->makem <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5817	6061	
==>((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7579	7823	
==>((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7966	8066	
==>), '... FooBar does rFoo');
ok($FooBar->does('rBar'), '... FooBar does rBar');

# and our instances d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9082	9179	
==>med packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9082	9179	
==>med packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15081	15187	
==>rt  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15081	15187	
==>rt  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12742	12843	
==>he time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12742	12843	
==>he time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6523	6630	
==>b node::_print_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33448	33553	
==>irst library should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33448	33553	
==>irst library should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7374	7477	
==>- "plain" match operators: like 'literal'.



Higher order operators take a list of match operators, and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7123	7224	
==>- "plain" match operators: like 'literal'.

Higher order operators take a list of match operators, and <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8079	8175	
==>$fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8079	8175	
==>$fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_ex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16317	16415	
==>two spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16317	16415	
==>two spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21628	21731	
==>dually addressed only by their names, and all
Relation tuples may be individually addressed only by thei <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26180	26283	
==>dually addressed only by their names, and all
Relation tuples may be individually addressed only by thei <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12659	12766	
==>> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <El <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21052	21153	
==>ibutes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25604	25705	
==>ibutes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20815	20919	
==>and the previous non-Unix Mac OS) handles
lots of other program resources as data files as well, making t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20815	20919	
==>and the previous non-Unix Mac OS) handles
lots of other program resources as data files as well, making t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8397	8539	
==>dy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8105	8241	
==>dy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21803	21898	
==>s somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick| <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21803	21898	
==>s somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick| <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3037	3148	
==>on><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax bel <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3037	3148	
==>on><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax bel <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1234	1330	
==>l2js or pilrun), and/or
  motivating implementations in p5/p6/haskell.
  - perhaps serve as a ref <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13545	13636	
==>ckslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13545	13636	
==>ckslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10699	10791	
==>rray>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<conten <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10699	10791	
==>rray>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<conten <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7742	7839	
==>thenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorizatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7742	7839	
==>thenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorizatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5443	5553	
==>as been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5443	5553	
==>as been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# Th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2230	2361	
==>-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or missing plan" unless <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1485	1601	
==>s => $supers->to_native;    
        
    foreach my $class (@classes) {
        my $methods = $class->get_attr(symbo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1642	1755	
==>}

PV type_convert_IV_PV (IV x) {
	char * target = (char *)GC_MALLOC(sizeof(char) * 100);
	(void)sprintf(target, " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3413	3515	
==>arams->equal_to($right->params) == bit->new(1) && 
     $left->returns eq $right->returns) ? 
        b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	522	614	
==>rig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{dups}->insert($or <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2675	2787	
==>ultidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2675	2787	
==>ultidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16039	16132	
==>optimized to C</^\s+/>.  The difficulty
rating is so high because of cases like C</(\d+)(\w+)/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	776	896	
==>"Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	776	896	
==>"Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3676	3873	
==>( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3529	3720	
==>( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5427	5563	
==>Type' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCx <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5427	5563	
==>Type' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCx <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3324	3508	
==>me - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3324	3508	
==>me - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	628	738	
==>t {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	628	738	
==>t {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9832	9934	
==>elf.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9832	9934	
==>elf.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13534	13642	
==>ring:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_ms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8776	8886	
==>d also you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8485	8592	
==>d also you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I u <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21039	21142	
==>of named attributes; all tuples in a Relation are of the same
degree, and the attribute names of each tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25591	25694	
==>of named attributes; all tuples in a Relation are of the same
degree, and the attribute names of each tu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15886	15990	
==>elf->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $sym <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2279	2383	
==>elf->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $sym <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	736	857	
==>y
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	736	857	
==>y
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14535	14656	
==>});

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8737	8858	
==>});

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3851	3952	
==>e
latter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3851	3952	
==>e
latter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7697	7808	
==>q;
			
			return Blondie::TypeSafe::Annotation->new(
				type => [ ( map { $_->accepts_type } @params ) => $last <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	279	376	
==>iler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been change <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	532	643	
==>ink");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Comp <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	532	643	
==>ink");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1159	1283	
==>ethod status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1159	1283	
==>ethod status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2754	2906	
==>rl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2754	2906	
==>rl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16700	16808	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16700	16808	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4259	4363	
==>/synopsis.html>.

The Pugs homepage at L<http://pugscode.org/>.

The Parrot homepage at L<http://www.parr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5587	5685	
==>database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_en <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5587	5685	
==>database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_en <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2768	2878	
==>ass $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2768	2878	
==>ass $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3675	3801	
==>an't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3675	3801	
==>an't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2581	2685	
==>/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2581	2685	
==>/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ <==
2	/Users/nnunley/pugs/util/drift.pl	134	233	
==>{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at all portable.

$ENV{D <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10414	10521	
==>string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10414	10521	
==>string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2354	2451	
==>lved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values w <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2354	2451	
==>lved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values w <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9730	9826	
==>is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend f <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9730	9826	
==>is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	440	539	
==>: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class La <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	440	539	
==>: is_contiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class La <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1752	1867	
==>er_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1752	1867	
==>er_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $conten <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8093	8184	
==>$template = HTML::Template->new(filename => 'util/catalog_tmpl/directory.tmpl');
    my $i = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8910	9014	
==>tes an empty set.

= OBJECT METHODS

The following methods are available for Set::Infinite objects:

- `s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8910	9014	
==>tes an empty set.

= OBJECT METHODS

The following methods are available for Set::Infinite objects:

- `s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6859	6962	
==>(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) {
    SV* sv;
    sv = eval_pv("$re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	734	830	
==>ackage::Source
    JIB::Package::Binary
    JIB::Package::Installed

=head1 ACCESSORS 

=head2 pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8177	8288	
==>urns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8177	8288	
==>urns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1825	1940	
==>e = shift || $val->type;

	Blondie::TypeSafe::Annotation->new(
		type => $type,
		struct_equiv => Blondie::Val->new( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1723	1830	
==>create the
'nmake.exe' file needed by this module.

You may then resume the installation process described i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1563	1670	
==>create the
'nmake.exe' file needed by this module.

You may then resume the installation process described i <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	768	873	
==>) {
    %Cookies{$variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$variable};
}

Cooki <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	6	104	
==>/bin/perl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	6	104	
==>/bin/perl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	367	481	
==>sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	399	513	
==>sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compil <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4404	4499	
==>64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4404	4499	
==>64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	992	1092	
==>nce
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	992	1092	
==>nce
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6514	6643	
==>ar expressions (regexes).  Its default "grammar"
is Perl 5.8.4's regex set.  Grammar is quoted because the module does
not so much <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18686	18789	
==>th one or more
text strings to show human users.  This association would normally be
stored in a Perl fi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18686	18789	
==>th one or more
text strings to show human users.  This association would normally be
stored in a Perl fi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	244	383	
==>b ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	244	383	
==>b ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1100	1237	
==>if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1100	1237	
==>if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $valu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15100	15201	
==>the string passed as the first argument, if
called in a void context.  In scalar and array contexts, t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15100	15201	
==>the string passed as the first argument, if
called in a void context.  In scalar and array contexts, t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12596	12716	
==>ebug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_nu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12596	12716	
==>ebug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_nu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15459	15578	
==>Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Per <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15459	15578	
==>Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	577	682	
==>n|$] |
    [^|\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler::Token->comp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1803	1932	
==>t"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.comp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1803	1932	
==>t"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.comp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6325	6449	
==>ga"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6325	6449	
==>ga"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2227	2346	
==>I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    pack <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2144	2260	
==>I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    pack <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6387	6730	
==>next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } el <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6851	7194	
==>next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1005	1097	
==>Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1005	1097	
==>Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %entit <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13974	14083	
==>{ $synpod = catfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6602	6699	
==>nt>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6602	6699	
==>nt>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12922	13019	
==>s Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These fun <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12980	13077	
==>s Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These fun <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	982	1077	
==>r API has functional, procedural, and object-oriented interfaces.  The 
functional and object-or <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	982	1077	
==>r API has functional, procedural, and object-oriented interfaces.  The 
functional and object-or <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13993	14112	
==>($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile($syn_src_dir, 'exe', "$syn <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	829	974	
==>esized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUI <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	829	974	
==>esized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUI <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	411	505	
==>oin.assuming:delimiter(' ');


# copied from S29draft.pod 8651.
multi  List::map (Code $express <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	248	390	
==>n join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq '(') {
            my $new_arr = [];
            if (@{$st <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	543	653	
==>_[1];	
}
FILTER_ONLY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{
		$orginal = $1;
		$sub = $2;
		if ($sub = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14690	14799	
==>:{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14690	14799	
==>:{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4235	4389	
==>ency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4699	4853	
==>ency
                for my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entr <==
2	/Users/nnunley/pugs/util/package-osx.pl	2685	2832	
==>gs /usr/local/bin/pugs
        /usr/local/usr/bin/pugscc /usr/local/bin/pugscc
        blank /System/Library/Perl6/
        /Users/dromano/dev/pugs/ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2091	2195	
==>},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog (@progs) {
		my $r = $runtime_c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1095	1199	
==>turn num->new($left->to_native + $right->to_num->to_native());
}

sub subtract {
    my ($left, $right) = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1273	1379	
==>th($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1273	1379	
==>th($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10123	10351	
==>'$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->remove($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method_list (opa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14983	15087	
==>ay" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14983	15087	
==>ay" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16762	16864	
==>alue.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16762	16864	
==>alue.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20629	20735	
==>lf unless $self->omit;
  }
}


{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22906	22987	
==>charset_member(E0,C,T).

%-------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4150	4257	
==>_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4367	4474	
==>_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'mat <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	123	235	
==>ION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub get_file {
    my ($self, %args) = @_;
    my ($schem <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18273	18366	
==>example of use.

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>, currently mainta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12456	12573	
==>,
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12456	12573	
==>,
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_pers <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2197	2306	
==>}

rule simple_term  {
    <metasyntactic_token> | <commit_something>
  | <match_var>
  | <psuedo_scalar_liter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5938	6040	
==>g_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5938	6040	
==>g_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18881	18985	
==>b), and a is both an int and a str
# while this could seem to make sense for e.g. the 'id' function, this <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13552	13668	
==>b { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by enter <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1869	1973	
==>tialize the internal state of a strap to make it ready for parsing.

=cut

sub _init {
    my($self) = sh <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4556	4704	
==>oken {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4556	4704	
==>oken {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5581	5719	
==>"Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5581	5719	
==>"Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.conte <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3376	3494	
==>'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, ci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3376	3494	
==>'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, ci <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2268	2379	
==>quire HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2268	2379	
==>quire HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8941	9049	
==>pan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't rely upon everyone having it.  As suc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2515	2621	
==>o the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAG <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2515	2621	
==>o the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAG <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4613	4784	
==>^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we don <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4613	4784	
==>^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we don <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3569	3692	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3762	3885	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4989	5111	
==>n here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(bac <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4989	5111	
==>n here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(bac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2176	2270	
==>=> $to,
		struct_equiv => Blondie::App->new(
			$class->build_indirect_typed_value(
				Blondie <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	687	777	
==>ions handles :add_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3318	3481	
==>nse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3318	3481	
==>nse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3816	3932	
==>e generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4033	4149	
==>e generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7155	7286	
==>open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($^O =~ /(?:MSWin32|ming <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26247	26355	
==>COLUMNS>. If this is not set, it will
default to 80. Note that users of Bourne-sh based shells will need to
C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	358	625	
==>n this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	358	625	
==>n this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	614	740	
==>ruct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we ca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1098	1224	
==>ruct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we ca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4515	4663	
==>othing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX shou <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4979	5127	
==>othing satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX shou <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4946	5075	
==>the right method return value');
is($Foo->superclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Fo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7614	7743	
==>the right method return value');
is($Foo->superclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9404	9531	
==>er::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9392	9519	
==>er::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10866	10961	
==>t in this instance, the information about how many members
were actually new is discarded.

=hea <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10866	10961	
==>t in this instance, the information about how many members
were actually new is discarded.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	432	549	
==>ch}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creatin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1158	1272	
==>ch}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creatin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1335	1489	
==>(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1335	1489	
==>(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6953	7080	
==>ods.keys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warnin <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13184	13293	
==>t/dev\"",
    ensure => sub { -c "$initrd_mnt/dev/console" },
    pause  => 1,
    using  => sub { utime undef <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3174	3308	
==>= ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3174	3308	
==>= ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!header <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6849	6998	
==>"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ ur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6849	6998	
==>"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ ur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6724	6839	
==>object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # eol, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13249	13353	
==>object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3646	3820	
==>( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3646	3820	
==>( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	559	652	
==>t seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	559	652	
==>t seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<te <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	575	684	
==>mpty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :prev <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	575	684	
==>mpty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :prev <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5452	5558	
==>o skip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_cont <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5452	5558	
==>o skip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_cont <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10617	10738	
==>n::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10617	10738	
==>n::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13708	13848	
==>[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13708	13848	
==>[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a- <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12372	12496	
==>{ $self->{scopes} };
}

package Runtime;

sub new {
    my $class = shift;

    bless {
        map { $_->equals => $_  } @_, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	250	356	
==>5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeri <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	250	356	
==>5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range() is a numeri <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16276	16389	
==>_show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if (_all_o <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	665	758	
==>ges");
    system("pugs naive_bayesian.p6 add grapes grapes");
}
system("pugs naive_bayesian.p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21000	21103	
==><$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21000	21103	
==><$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3478	3592	
==>he sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/au <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3478	3592	
==>he sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/au <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2795	2978	
==>\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2795	2978	
==>\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9167	9265	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9167	9265	
==>d1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41671	41794	
==>)
operator, and the order of its arguments is not significant to the result;
the new Relation::Example is the result of comb <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36485	36588	
==>)
operator, and the order of its arguments is not significant to the result;
the new Relation::Example c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2816	2943	
==>,  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2816	2943	
==>,  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18810	18938	
==>resets $!
        my $rslt = eval { $object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20685	20785	
==>ou might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20685	20785	
==>ou might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1072	1344	
==>}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "E <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	14	118	
==>::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	14	118	
==>::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2154	2256	
==>ars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2154	2256	
==>ars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9447	9559	
==>('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9447	9559	
==>('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7351	7469	
==>ged and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7351	7469	
==>ged and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .g <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28093	28191	
==>m C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not y <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32645	32743	
==>m C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7714	7805	
==>erl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1539	1630	
==>erl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1001	1108	
==>root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1001	1108	
==>root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	677	811	
==>s Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4155	4289	
==>s Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3985	4102	
==>n.

=item B<Failed>

Percentage of the total tests which failed.

=item B<List of Failed>

A list of the tests which f <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1299	1397	
==>950288419716939937510;
}

sub lcfirst (Str $str) returns Str is builtin is primitive {
    lc(subst <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19282	19387	
==>=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19282	19387	
==>=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1157	1295	
==>uests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1157	1295	
==>uests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4933	5079	
==>ss ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4945	5091	
==>ss ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $cap <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18905	19021	
==>it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18905	19021	
==>it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37296	37410	
==>qw< atom >;
      return $S->object(and => 0);
    });
  }

We've added a handler, and added an argument to the con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12400	12501	
==>);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) (hash %params)) returns opaque <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11350	11460	
==>!@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11350	11460	
==>!@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	6	109	
==>/bin/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	6	109	
==>/bin/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9047	9141	
==>ilCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $tL <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6996	7088	
==>E {
    my($name,$kind,$pams,$lval,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	431	546	
==>lf = shift;
	my $node = shift;
	die "generic reductions don't make sense while interpreting ($node)";
}

sub reduce_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	278	362	
==>eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Perl6::Run::OnPerl5: <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1804	1948	
==>@.names, $arg.name;
        }
        
        method append_value ( $arg ) {
            $.string = $arg.value;
            push @.strings, $arg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5368	5495	
==>ES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5368	5495	
==>ES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = normalize (split " ", $event<res <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20210	20351	
==>fun => comb(
							fun => ide("=="),
							param => ide("x"),
						),
						param => val(0),
					),
					then => ide("r"),
					else => co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5678	5789	
==>eturn $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5678	5789	
==>eturn $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($chi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3504	3635	
==>h";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3504	3635	
==>h";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12769	12894	
==>turn $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatib <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12769	12894	
==>turn $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatib <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36348	36441	
==>nally by translate_message() to produce the list of Template module
names that it will search. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36348	36441	
==>nally by translate_message() to produce the list of Template module
names that it will search. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	546	710	
==>n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	539	703	
==>n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$matc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1164	1268	
==>: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

metho <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1164	1268	
==>: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	342	443	
==>[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	342	443	
==>[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	230	353	
==>gic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada

our %hash;

sub recompile {
    my $class = shift;
    %hash = ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6035	6139	
==>(M,X).
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_elemental(bos)   --> "\\A".
p5_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14790	14903	
==>nfinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14790	14903	
==>nfinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	410	503	
==>node if $node.defined;   
}

## -------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	410	503	
==>node if $node.defined;   
}

## -------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16578	16684	
==>return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16578	16684	
==>return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - I <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13167	13294	
==>:int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13167	13294	
==>:int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8013	8143	
==>ader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	29	125	
==>ule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	29	125	
==>ule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	325	436	
==>!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	325	436	
==>!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities into a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7753	7851	
==>hing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7753	7851	
==>hing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's int <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8561	8712	
==>ues --> Lazy ) {
   gather {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }


=item join

 multi Array::join (@values,   Str $de <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4663	4806	
==>fle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # helps dif <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2722	2825	
==>the same key, the encryption 
can be removed by XORing them together; you might not be able to derive th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2722	2825	
==>the same key, the encryption 
can be removed by XORing them together; you might not be able to derive th <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3910	4035	
==>ats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub process_list {
  my $tmpl = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	892	1003	
==>IL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	892	1003	
==>IL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9324	9503	
==>undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9324	9503	
==>undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39024	39126	
==>x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39024	39126	
==>x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 pa <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2102	2229	
==>ays => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2102	2229	
==>ays => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1162	1300	
==>');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1162	1300	
==>');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6886	7034	
==>urn 'Pugs::Runtime::Perl6::perl(' . _emit( $n->{self} ) . ")\n";
        }
        #warn "method_call: ", Dumper( $n );
        
        # "autob <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8747	8866	
==>mbers = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operations
  my $unio <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8747	8866	
==>mbers = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operations
  my $unio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15610	15725	
==>if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10466	10581	
==>if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unle <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2407	2523	
==>cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Genera <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2624	2740	
==>cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Genera <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15937	16039	
==>_type!, :%attributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15937	16039	
==>_type!, :%attributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node ob <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12259	12381	
==>mit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13069	13191	
==>mit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1743	1856	
==>or @start { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token}( @_ );
    for @end   { @_.shi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3271	3383	
==>ng!) returns Relation {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6748	6860	
==>ng!) returns Relation {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3807	3916	
==>todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3865	3974	
==>todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2008	2105	
==>the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexical <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2008	2105	
==>the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexical <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1165	1262	
==>.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1165	1262	
==>.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	600	694	
==>->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Ind <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	600	694	
==>->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Ind <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	284	389	
==>w( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	284	389	
==>w( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	188	295	
==>creating author mode ) {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Inst <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	83	171	
==>at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	83	171	
==>at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7233	7330	
==>ords(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7233	7330	
==>ords(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30047	30140	
==>ibute of a Message object, and each
hash value contains the user-readable message text associa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30047	30140	
==>ibute of a Message object, and each
hash value contains the user-readable message text associa <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	522	639	
==>ts and call it.
  my method step () {
    return unless @:events;

    my $callback = shift @:events;
    return $call <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4007	4138	
==>ch => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4200	4331	
==>ch => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	222	324	
==>ler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	222	324	
==>ler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9131	9241	
==>ap:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9131	9241	
==>ap:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # retu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19693	19800	
==>et of the Set operators.

Like the Set data type, the Relation data type is immutable.  The value of
a Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24245	24352	
==>et of the Set operators.

Like the Set data type, the Relation data type is immutable.  The value of
a Relat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6541	6815	
==>ther error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7005	7279	
==>ther error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	284	387	
==>y ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newfrom( $matchObj );
  $matchObj->positi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4777	4889	
==>ch string).

=head2 0+

When used as a number, the match object returns the numified version
of the result object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4777	4889	
==>ch string).

=head2 0+

When used as a number, the match object returns the numified version
of the result object <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4698	4891	
==>eaders;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if wan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4698	4891	
==>eaders;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if wan <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	794	912	
==>eginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	794	912	
==>eginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1720	1873	
==>nd command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our curr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1720	1873	
==>nd command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our curr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	855	962	
==>ns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	855	962	
==>ns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7082	7231	
==>|| 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7070	7219	
==>|| 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub ca <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	984	1114	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
} <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	984	1114	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3381	3489	
==>E\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LI <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4517	4625	
==>E\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LI <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6710	6827	
==>e(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6710	6827	
==>e(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2385	2486	
==>&& $other.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2385	2486	
==>&& $other.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1145	1253	
==>ontains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1145	1253	
==>ontains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nod <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2207	2304	
==>.

Different types of nodes in a Perldoc DOM tree have different properties,
you should see the su <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2207	2304	
==>.

Different types of nodes in a Perldoc DOM tree have different properties,
you should see the su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20611	20714	
==>iles specific to the program
in the order you chose so to pick a supported language closest to your
pref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20611	20714	
==>iles specific to the program
in the order you chose so to pick a supported language closest to your
pref <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8953	9057	
==>th $y->{name} in " . Dumper(@_);

	unify($x->{param}, $y->{param}, @_);
};

multi unify => ('type', 'type <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4261	4451	
==>mber Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4261	4451	
==>mber Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	554	668	
==>ram) unless @nodes;

	$self->{seen} = { map { $_ => $_ } @nodes };
	$self->{names} = { $program => '$main' };

	$se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3461	3583	
==>s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3461	3583	
==>s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12773	12879	
==>is the values of the fields removed.  In scalar
context the number of fields removed is returned.

Note tha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12773	12879	
==>is the values of the fields removed.  In scalar
context the number of fields removed is returned.

Note tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25336	25470	
==>b qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25895	26029	
==>b qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3271	3404	
==>$mod) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependenc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	874	1006	
==>sa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	887	1014	
==>sa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9616	9716	
==>lue. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9616	9716	
==>lue. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	121	267	
==>::Repository;

use Path::Class ();
use Cwd;
use vars qw[$REPO];

$REPO = JIB::Repository->new( root => $REPOSITORY_ROOT )
                or die "N <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5932	6052	
==>ions from highest to lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12462	12565	
==>t's All Nodes
attribute starts out empty, but gains one element for each Node in the Node
hierarchies cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12462	12565	
==>t's All Nodes
attribute starts out empty, but gains one element for each Node in the Node
hierarchies cr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3933	4150	
==>turn $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3933	4150	
==>turn $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2193	2315	
==>t($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internal <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2509	2626	
==>str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2649	2766	
==>str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $f <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26961	27056	
==>g::Types qw(:ctors);
use Benchmark qw(:all);
require "m02.pl";
require "re05.pl";

sub mkMatch { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10518	10618	
==>p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10518	10618	
==>p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	590	742	
==>} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	590	742	
==>} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19598	19686	
==>e::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19598	19686	
==>e::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITI <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16806	16907	
==>result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16806	16907	
==>result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2479	2582	
==>my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2479	2582	
==>my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method superset <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	897	1004	
==>'t iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harness::Iterator::FH;
sub next { <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6746	6852	
==>)?$/)) {
        die << ".";
*** Cannot find GHC 6.4.1 or above from path (we have $ghc_version).
*** Pleas <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	280	404	
==>s 'PIL::Run::Container::Hash' => {
    does => [ 'IHash' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD = <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13147	13264	
==>plitdir($path);
  my $loc  = 'push @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1905	2031	
==>oro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1905	2031	
==>oro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5072	5233	
==>l6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5072	5233	
==>l6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1484	1644	
==>$self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5144	5264	
==>y %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5144	5264	
==>y %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7501	7627	
==>e'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7694	7820	
==>e'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21848	22002	
==>le = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22127	22281	
==>le = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::con <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8926	9018	
==>my @args;

	my $default = $op{'paramDefault'};
	push(@args,"default=>sub{$default}") if defin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21710	21842	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21989	22121	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9462	9582	
==>op::constant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1107	1204	
==>" ",map{"-I$_"}@inc_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4284	4395	
==>}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4284	4395	
==>}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	448	556	
==>e, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	480	588	
==>e, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2544	2662	
==>s PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'E <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2544	2662	
==>s PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'E <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3494	3627	
==>ormalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3494	3627	
==>ormalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	78	187	
==>er);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAM <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	78	187	
==>er);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAM <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	930	1062	
==>thon-list/2005-March/270531.html
# and converted to Ruby, ...
# and then converted to perl (see above)
# all so that we can parse a s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	335	460	
==>'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	335	460	
==>'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1807	1937	
==>:Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1807	1937	
==>:Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14964	15059	
==>s can also be accessed through the
following convenience methods.  These methods can both be use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14964	15059	
==>s can also be accessed through the
following convenience methods.  These methods can both be use <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15587	15702	
==>educe($thunk->val));
    $self->leave_scope;

    return $node;
}

sub reduce_sym {
    my $self = shift;
    my $no <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4079	4212	
==>dder
        return $v;
      }
      die "we're not set up yet for failing back into the oop";
    };
    #goto &$step; # $Z::oop{$id <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1753	1869	
==>get?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $heade <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1753	1869	
==>get?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $heade <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3843	3948	
==>]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3843	3948	
==>]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6 <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2120	2223	
==>eturn `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or die "Could <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15696	15790	
==>n> <'>='> <ShiftExpression>
    | <RelationalExpression> <'instanceof'> <ShiftExpression>
    | <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3681	3798	
==>,
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of on <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3681	3798	
==>,
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of on <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1752	1868	
==>ss ( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args without setti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	678	773	
==>ion between Perl and C";
	shift()->cc_lib_links(@_);
}

sub optimize_flags {
	warn "optimize_fla <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7101	7192	
==>call>/) {$m}

multi infix:<*> ($a,$b) {...}
multi infix:<+> ($a,$b) is looser(infix:<*>) {.. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5935	6069	
==>}, $class;
  }

  sub qr {
    my $self = shift;
    join "-", $self->{data}[0]->qr, $self->{data}[1]->qr;
  }

  sub visual {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	626	762	
==>code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Resp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	626	762	
==>code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Resp <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2236	2371	
==>Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2594	2729	
==>Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7035	7223	
==>newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7035	7223	
==>newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5914	6028	
==>) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5710	5819	
==>) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12380	12480	
==>ader field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12380	12480	
==>ader field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

The $va <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1098	1193	
==>piler with replacement
data for stubs and other thingies.

It also gives the compiler the defaul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1827	1922	
==>TYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17825	17919	
==>imes that character appeared in the character class.  The
character class C<[A-CB-E]> would hav <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	827	932	
==>rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	827	932	
==>rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	47	146	
==>Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed aroun <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	47	146	
==>Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed aroun <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17066	17170	
==>span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17066	17170	
==>span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recur <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	519	644	
==>line;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_p <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	519	644	
==>line;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2284	2407	
==>ome point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2284	2407	
==>ome point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	791	934	
==>ntent-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'Use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	791	934	
==>ntent-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'Use <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5844	5980	
==>tch.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5844	5980	
==>tch.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8755	8858	
==>push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2580	2683	
==>push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
pu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5390	5567	
==>start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5390	5567	
==>start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16931	17046	
==>hat
attribute defaults to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a un <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16931	17046	
==>hat
attribute defaults to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13591	13697	
==>ly several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13591	13697	
==>ly several times). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.la <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24249	24351	
==>=> 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-t <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	662	810	
==>$package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	662	810	
==>$package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6672	6839	
==>= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6672	6839	
==>= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3975	4074	
==>ition);

  expect_term_1:
  my $key = $$currentTermTable->lkey($target, $whitespacePosition);
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2120	2236	
==>ND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2120	2236	
==>ND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5687	5799	
==>@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5687	5799	
==>@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~a <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3613	3709	
==>en to provide functionality
while Perl 6 was still being developed.

This module is primarily for <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3613	3709	
==>en to provide functionality
while Perl 6 was still being developed.

This module is primarily for <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9305	9413	
==>rmalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9305	9413	
==>rmalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $sel <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22323	22438	
==>n < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Columns = $max_namelen + len <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1182	1311	
==>ps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	742	871	
==>ps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1614	1730	
==>qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1614	1730	
==>qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21373	21488	
==>p.p6analyze(pad)
    self[0] = exp
    pad["reps"] = reps
    pad["subpats"] = subpats
    pad["isarray"] = padarray <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2146	2292	
==>).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN C <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2146	2292	
==>).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33550	33682	
==>-1 }> is used to go down into a deeper
scope, and C<sub{ +1 }> is used to come up out of it.  In between these
is C<< $self->{data} > <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1774	1904	
==>ename.exe: $!";
    binmode $EOUT;
    print $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = '';
    if ($Config{cc} e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11536	11658	
==>LF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15013	15135	
==>LF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7888	8044	
==>e prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2369	2496	
==>_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

sub import {
    my $class = shift;
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	188	305	
==>nd it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	188	305	
==>nd it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	233	393	
==>e File::Basename ();

sub prompt_script {
    my ($self, $script_file) = @_;
    my ($prompt, $abstract, $default);

    foreach my $line ( $self->_read_script($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1004	1097	
==>\n";
}
print <<'PUSH';
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @stateme <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	357	454	
==>::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	357	454	
==>::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	196	307	
==>tax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	196	307	
==>tax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16325	16509	
==>air

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/i;

#               print STDERR "Trying to get heading >$heading<\n";

                my $h = $sobj <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22406	22539	
==>= $pkg."::".$mn if !$is_absolute_name && $pkg;
    $mn;
}    

sub p6_apply {
    my($f,@args)=@_;
    #print STDERR "\n<$f,",@args,"> <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	386	516	
==>t() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) u <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	386	516	
==>t() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshift($path) u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3910	4067	
==>) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3910	4067	
==>) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5399	5675	
==>)
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwra <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8876	9152	
==>)
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6981	7087	
==>>{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($progra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6993	7099	
==>>{capture} );
    print "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($progra <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2100	2204	
==>library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2100	2204	
==>library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2521	2640	
==>de as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2521	2640	
==>de as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4425	4564	
==>_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4425	4564	
==>_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17555	17654	
==>RC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 M <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17555	17654	
==>RC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 M <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11331	11466	
==>sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15082	15181	
==>$class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15082	15181	
==>$class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	887	988	
==>t or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inher <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	887	988	
==>t or lazy array as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inher <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3470	3705	
==>nts);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpo <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3470	3705	
==>nts);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2235	2468	
==>statement =~ /^\-\>/) {
                            #warn "hello there";
                            $body[-1] .= $statement;
                        }
                        else {
                            #warn "our other args $ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2240	2337	
==>ad1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Return <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2240	2337	
==>ad1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4450	4567	
==>needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

met <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4450	4567	
==>needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

met <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18440	18537	
==>everse engineering perl source.

We basically use the perl regcompp and regexecp hooks (C function <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2730	2827	
==>everse engineering perl source.

We basically use the perl regcompp and regexecp hooks (C function <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3441	3601	
==>index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3441	3601	
==>index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	573	670	
==>ub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	573	670	
==>ub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is expo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	254	400	
==>E eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $scrip <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	254	400	
==>E eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $scrip <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1657	1779	
==>revious, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1657	1779	
==>revious, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16069	16170	
==>)`

These methods return a logical value. 

The argument can be a Span object, a Recurrence object, or <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16069	16170	
==>)`

These methods return a logical value. 

The argument can be a Span object, a Recurrence object, or <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3681	3807	
==>lass::Events::Event::Named.new($name));
        }
    }
}

class Class::Events::Event {
    # pretty much an abstract baseclass <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2386	2503	
==>s num) returns num>

=item B<divide (x as num) returns num>

=item B<increment () returns num>

=item B<decrement () r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40693	40791	
==>While it is by no means required, the copyright holders of
Locale::KeyedText would appreciate being <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40693	40791	
==>While it is by no means required, the copyright holders of
Locale::KeyedText would appreciate being <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11404	11550	
==>e
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left q <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11404	11550	
==>e
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left q <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7924	8105	
==>sion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "The heading of the relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11401	11582	
==>sion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "The heading of the relat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10750	10847	
==>{...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10750	10847	
==>{...}, closure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The compleme <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12530	12642	
==>list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header fields with the specifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12530	12642	
==>list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header fields with the specifi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1806	1901	
==>he "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

= <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1806	1901	
==>he "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

= <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4564	4664	
==>re LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4564	4664	
==>re LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $conte <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11113	11220	
==>SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11113	11220	
==>SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	525	660	
==>s = (
    prefix_non =>        
        "'name' exp         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'prefix', op1 => \$_[1], exp <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	130	236	
==>ALLER::_, Num :$base )
    returns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3523	3635	
==>' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if ! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33745	33836	
==>ode $transformer!) returns Relation::Example>

This method is a short-hand or alternative fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1955	2080	
==>{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1955	2080	
==>{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3061	3154	
==>erl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3061	3154	
==>erl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15680	15829	
==>{
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15680	15829	
==>{
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2838	2950	
==>request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2838	2950	
==>request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16424	16640	
==>iner
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8966	9085	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9159	9278	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::g <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	178	274	
==>change "die" to "fail" when "fail" is implemented.

# Input a string containing a rpn expression. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23808	23904	
==>:Example does not declare any subroutines or export such.

The usual way that Relation::Example i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	206	360	
==>one package';

my @List = LoadFile( $Repoindex );

for my $package (@ARGV ) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21411	21531	
==>ile_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.yml";
      if -e $yml && prefix_M($yml) < prefix_M($ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8577	8683	
==>is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8577	8683	
==>is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6054	6195	
==>s up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6054	6195	
==>s up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5489	5613	
==>= $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# meth <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5489	5613	
==>= $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# meth <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9447	9572	
==>deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9447	9572	
==>deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zero <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	763	992	
==>iven $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	763	992	
==>iven $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18455	18581	
==>w tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18455	18581	
==>w tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	667	812	
==><alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	667	812	
==><alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10485	10606	
==>sconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10485	10606	
==>sconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4250	4401	
==>e-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4262	4413	
==>e-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5877	6003	
==>ally enciphers the data.  They may choose, however, to override 
any method for speed--although they should be careful to avoid <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5877	6003	
==>ally enciphers the data.  They may choose, however, to override 
any method for speed--although they should be careful to avoid <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24870	24967	
==>., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynami <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24870	24967	
==>., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynami <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2554	2671	
==>debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2554	2671	
==>debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	50	152	
==>ngs they need to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implemen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	50	152	
==>ngs they need to implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implemen <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20849	20943	
==>F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17679	17770	
==>(I<anyof> objects) now have another attribute, C<charmap>,
which is a hash reference holding <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5038	5145	
==>tate.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5038	5145	
==>tate.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $ciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	861	966	
==>all $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	861	966	
==>all $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shi <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1387	1490	
==>parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span th <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1387	1490	
==>parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span th <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	767	886	
==>$location.defined) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3552	3650	
==>o put on the CD.
  --parrot-path=$parrot_path
    mklivecd.pl takes --parrot-path as the root of an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12259	12382	
==>ame eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4902	5025	
==>ame eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20797	20921	
==>"' goto setreps
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  setreps:
    isarray = 0
    reps = pad["reps"]
    $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8191	8311	
==>endencies
    {   open my $fh, $self->files_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	760	854	
==>::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	760	854	
==>::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interface.

Normally, th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18712	18826	
==>st browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18712	18826	
==>st browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<referrer> exis <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20739	20867	
==>ds {  # see 12.3
      <';'>
}
rule ExpressionStatement :words {  # see 12.4
      <!before <'function'>><Expression> <';'> #look <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13498	13589	
==>is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_differenc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13498	13589	
==>is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_differenc <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	180	303	
==>andle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	180	303	
==>andle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14226	14362	
==>e user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14226	14362	
==>e user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9832	9940	
==>ick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code, Co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9832	9940	
==>ick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $code, Co <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2715	2821	
==>' => \$syn_src_dir,
       'no_designdocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7340	7513	
==>lete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	641	814	
==>lete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	614	722	
==>erl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as de <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	614	722	
==>erl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
specification, as de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1343	1483	
==>->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1343	1483	
==>->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} } <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	542	650	
==>parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0 <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	542	650	
==>parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2847	3013	
==>le( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2847	3013	
==>le( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6771	6876	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6771	6876	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3804	3961	
==>{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3804	3961	
==>{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fix <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2846	2957	
==>ks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or las <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2846	2957	
==>ks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or las <==
2	/Users/nnunley/pugs/util/package-osx.pl	10628	10769	
==>= qw\(
    );
    @header = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $header[0];

    my @footer = qq(
        \ 
        \);\n
        f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1165	1293	
==>b { _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confess "Plan alrea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4213	4315	
==>b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4213	4315	
==>b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Spa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2839	2977	
==>em( qq[tar -f $my_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' . $Pre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17910	18054	
==>,
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17910	18054	
==>,
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<e <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3183	3286	
==>mplementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array.splice(0,1);
#}

# c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	622	739	
==>corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node rep <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	622	739	
==>corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node rep <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Runtime.pm	21	151	
==>me;

use strict;
use warnings;

use Perl6::Core::Closure;

$::ENV = closure::env->new();

sub get_top_level_env { $::ENV } 

1;

__ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	561	678	
==>nt_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	767	884	
==>nt_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "im <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	185	281	
==>y turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.ne <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	185	281	
==>y turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1045	1149	
==>a Module object

that defines ::Main.  A Module object mixes in both Package

and Code -- because it is b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	995	1097	
==>a Module object
that defines ::Main.  A Module object mixes in both Package
and Code -- because it is b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	98	226	
==>erl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	98	226	
==>erl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6794	6902	
==>te($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. U <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6794	6902	
==>te($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. U <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6307	6427	
==>: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6307	6427	
==>: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	614	720	
==>sh containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	614	720	
==>sh containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2434	2532	
==>hen you're done, call the closure 
with no arguments to finish the ciphering and clear the cipher's <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2434	2532	
==>hen you're done, call the closure 
with no arguments to finish the ciphering and clear the cipher's <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1288	1399	
==>);
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1288	1399	
==>);
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13334	13447	
==>$self->reduce($thunk);

    #warn "applying @params to " . Dumper->reduce($thunk) . " yielded $v";

    $v;
}

sub <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	20	118	
==>de = sub {say "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von Code-Obj <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17584	17745	
==>TR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17584	17745	
==>TR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_typ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1638	1730	
==>_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1638	1730	
==>_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10614	10797	
==>nts )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10893	11076	
==>nts )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4807	4926	
==>}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4807	4926	
==>}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", - <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14170	14270	
==>im->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1650	1750	
==>im->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15874	15983	
==>!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15874	15983	
==>!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1146	1259	
==>s using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1146	1259	
==>s using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10301	10387	
==>har_class(class_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg(space_perl)) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	198	338	
==>'/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	198	338	
==>'/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12133	12240	
==>the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12133	12240	
==>the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Retur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2869	3041	
==>lf, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self->report_test(
                    $:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	349	465	
==>le Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	349	465	
==>le Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13351	13461	
==>), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13351	13461	
==>), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7405	7519	
==>scope;
		
		my $child = $rthunk->val->struct_equiv;

		if ($child->isa("Blondie::Seq")){
			my @children_of_seq = $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8685	8794	
==>erbs = join("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3038	3159	
==>? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3026	3147	
==>? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12016	12136	
==>traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12016	12136	
==>traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7917	8039	
==>"mname"] = $S0
    mob["value"] = value
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    po <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6831	6936	
==>Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::N <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6831	6936	
==>Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::N <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2404	2814	
==>Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External package <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2404	2814	
==>Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1829	1928	
==>h.

Lit is divided to various intrinsic object types, including

intrinsic Code (which then has Pad/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1758	1855	
==>h.
Lit is divided to various intrinsic object types, including
intrinsic Code (which then has Pad/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4115	4211	
==>as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4115	4211	
==>as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3210	3322	
==>str $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2601	2763	
==>);
    $cat->add_op( {
        name => '-',
        block => sub {},
        assoc => 'left',
        precedence => 'equal',
        other => '+',
        fixity = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26012	26124	
==>.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart>> <SourceCharacter>
} <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3111	3220	
==>cation. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = n <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3111	3220	
==>cation. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = n <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	6	109	
==>oden mit mehreren Parametern definieren
class Welt {
	method hallo ( String $gruß, String $name ) { "$g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20591	20704	
==>) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17012	17125	
==>) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3624	3716	
==>> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3808	3900	
==>> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17588	17738	
==>[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14009	14159	
==>[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1054	1177	
==>object

that defines ::Main.  A Module object mixes in both Package

and Code -- because it is both a namespace of symbols a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1004	1125	
==>object
that defines ::Main.  A Module object mixes in both Package
and Code -- because it is both a namespace of symbols a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1122	1232	
==>statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1122	1232	
==>statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2683	2795	
==>[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2683	2795	
==>[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT <==
2	/Users/nnunley/pugs/util/func_refact.pl	2909	3017	
==>my ($cand, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", sc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2694	2808	
==>name}\n";
    $opt->{assoc}  = 'non'    unless defined $opt->{assoc};
    $opt->{fixity} = 'prefix' unless define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8635	8738	
==>shouldn't matchfail still be returning something?

maybe just overload bool to false ;)

(I mean, seriou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8347	8448	
==>shouldn't matchfail still be returning something?
maybe just overload bool to false ;)
(I mean, seriou <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4822	5001	
==>< $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we ar <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4822	5001	
==>< $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8650	8786	
==>ator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8650	8786	
==>ator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14662	14767	
==>\$class, %attrs)
}

(method CREATE ((opaque $class:) (str $repr) (hash %params)) returns opaque
    ((= %a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1807	1919	
==>$worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1807	1919	
==>$worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4919	5042	
==>'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4919	5042	
==>'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16572	16685	
==>..some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16572	16685	
==>..some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11916	12119	
==>est{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11916	12119	
==>est{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2149	2259	
==>ge ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2149	2259	
==>ge ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5767	5889	
==>. hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5755	5877	
==>. hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3596	3848	
==>) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3596	3848	
==>) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $por <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2257	2387	
==>e',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  ' <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7082	7203	
==>ted.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self->{_child_nu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12791	12941	
==>my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12791	12941	
==>my $event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%hand <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6683	6783	
==>t>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6683	6783	
==>t>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

For each P <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3396	3501	
==>ass Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3396	3501	
==>ass Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    h <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4657	4775	
==>rget
            copy($candidates[0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8552	8665	
==>nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\". <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8552	8665	
==>nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\". <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	642	756	
==>s $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	848	962	
==>s $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4141	4376	
==>rn "our first arg $arg";
                        $args .= $arg
                    }
                    elsif ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9083	9182	
==>g the OPEN Count

You can access the number capture groups with the nparen() method:

  my $captgrou <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	51	160	
==>l::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	51	160	
==>l::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3801	3942	
==>i method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} el <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1901	2042	
==>i method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} el <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8793	8897	
==>erload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8502	8603	
==>erload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Gr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	765	899	
==>sses
sub new ($) {
    my ($table) = @_;
    my $self;
    $self = bless sub {
        my $message = shift;
        return $table  if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11216	11353	
==>s1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11210	11347	
==>s1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19671	19772	
==>ema" records, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19671	19772	
==>ema" records, which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	895	1023	
==>ed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $lengt <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	895	1023	
==>ed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $lengt <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1340	1460	
==>n ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1340	1460	
==>n ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	921	1063	
==>g) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	921	1063	
==>g) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2287	2395	
==>class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2287	2395	
==>class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	101	230	
==>x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	101	230	
==>x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14676	14780	
==>ic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14676	14780	
==>ic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecti <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4346	4601	
==>$unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                }      

                last LINKI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1738	1852	
==>=> --$ENUM, 'POSIX syntax [%s %s] belongs inside character classes';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18218	18311	
==>ead1 EXAMPLES

See F<examples/mini_harness.plx> for an example of use.

=head1 AUTHOR

Michael <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10457	10564	
==>ts which you would like to force into being TODO tests
then you can pass them through this function. This is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10515	10622	
==>ts which you would like to force into being TODO tests
then you can pass them through this function. This is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2328	2429	
==>iler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2328	2429	
==>iler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8129	8267	
==>\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8117	8255	
==>\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1657	1804	
==>d.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1864	2011	
==>d.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2247	2380	
==>ls::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals::eval_yaml($code) };

            die "Language \"$lang\" unkno <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8574	8670	
==>hors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8574	8670	
==>hors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1034	1130	
==>le;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($sourc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2889	2985	
==>le;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($sourc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8976	9157	
==>kie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('versio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8976	9157	
==>kie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('versio <==
2	/Users/nnunley/pugs/util/testgraph.pl	1524	1648	
==>e::Visual/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift;
        my $link = $self->SUPER: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	414	516	
==>t::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	414	516	
==>t::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2174	2290	
==>trol:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2174	2290	
==>trol:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6805	6906	
==><=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6805	6906	
==><=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3008	3130	
==>open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3008	3130	
==>open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $op <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12414	12511	
==>y need a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discrete <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12414	12511	
==>y need a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discrete <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35739	35833	
==>gle
Relation::Example in its C<$other> argument, where <$other> has the same heading as
the inv <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37771	37865	
==>gle Relation::Example
in its C<$other> argument, where <$other> has the same heading as the
inv <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3974	4077	
==>the right method return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5876	5979	
==>the right method return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Objec <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	681	789	
==>density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration synt <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	681	789	
==>density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration synt <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1619	1731	
==>my $cmd = "pugs $scr $intmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   pr <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2489	2623	
==>my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return @{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4077	4208	
==>my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1872	1996	
==>ACKAGE__->add_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'looser',
        other => 'infix:< <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5074	5171	
==>o-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: file '$tail' n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14554	14674	
==>ly several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14554	14674	
==>ly several times). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2944	3054	
==>or error($!), return;
    }

    return 1;
}

### these plural functions seem more confusion than helpful curre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10284	10445	
==>ls       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # In <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10284	10445	
==>ls       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # In <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4869	4998	
==>die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack .. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4869	4998	
==>die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack .. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1877	1987	
==>any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10788	10933	
==>todo}/$test{max} TODO test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begin Pugs <==
2	/Users/nnunley/pugs/util/config_h.pl	450	566	
==>e ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_line;

open IN, "< $base/li <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2953	3087	
==>ark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2953	3087	
==>ark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2733	2876	
==>0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[1], <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2052	2248	
==>r_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2052	2248	
==>r_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8530	8673	
==>ge' is checked for instead of 'Module' since all types of
    # packages share the same namespace; any incompat will be caught later.
    return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8530	8673	
==>ge' is checked for instead of 'Module' since all types of
    # packages share the same namespace; any incompat will be caught later.
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	229	350	
==>ne of:  nonassoc / right / left

my $g = <<'EOT';
%{ my $out; %}

%left   ';'
%left   '-' '«+»'
%left   'infix:<t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	185	287	
==>ant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	185	287	
==>ant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32439	32533	
==>elimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32439	32533	
==>elimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21155	21393	
==>am => ide("xs"),
                    ),
                    then => val("n"),
                    else => comb(
                        fun => comb(
                            fun => ide("length'"),
                            param => co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2628	2753	
==>mplemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2628	2753	
==>mplemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12087	12244	
==>e
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12081	12238	
==>e
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14993	15115	
==>name = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0
    goto end
  numeric:
    ( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3043	3152	
==>er($kind, $skip, $label);

    # FIXME: why doesn't this work?
    # this is here just because of an icky pugs <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	148	260	
==>Gen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	148	260	
==>Gen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3265	3414	
==>depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3729	3878	
==>depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depend <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	697	800	
==>h, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	697	800	
==>h, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1476	1585	
==>eturns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @item <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1476	1585	
==>eturns int {
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @item <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	653	760	
==>structor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	653	760	
==>structor :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4178	4305	
==>y ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy setting <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4178	4305	
==>y ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy setting <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	415	858	
==>1 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	415	858	
==>1 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	686	802	
==>ingleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a stor <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	686	802	
==>ingleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a stor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	208	316	
==>>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a requ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	208	316	
==>>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a requ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2072	2201	
==>}

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{siz <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2050	2179	
==>}

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{siz <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11189	11290	
==>cessary entries.
Necessary for OSes with limited command line lengths, like VMS.

=cut

sub _filtered_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3226	3342	
==>H_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3226	3342	
==>H_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the valu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1594	1691	
==>1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1594	1691	
==>1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1397	1544	
==>|| 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1397	1544	
==>|| 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	140	263	
==>e::Basename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2177	2290	
==>turn 1;
    }

=item wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defa <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2177	2290	
==>turn 1;
    }

=item wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1211	1316	
==>ule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1211	1316	
==>ule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8879	9003	
==>t: 80px; padding-bottom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28471	28610	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28750	28889	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	582	730	
==>' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	582	730	
==>' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7473	7609	
==>,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7666	7802	
==>,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_grou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3316	3415	
==>yway, though.)  It 
also means that the nonce or initialization vector should be hashed with the 
ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3316	3415	
==>yway, though.)  It 
also means that the nonce or initialization vector should be hashed with the 
ke <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6904	7087	
==>);
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6904	7087	
==>);
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2865	3143	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2865	3143	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # cl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16075	16202	
==>rmutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16075	16202	
==>rmutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14178	14287	
==>rl if $^O eq 'VMS';

	my $exe;
	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had probl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3839	3937	
==>ack and reduce the
Thunk.

Inside the Thunk the Seq will reduce its children one by one. First Para <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	490	600	
==>tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    i <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	490	600	
==>tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1671	1785	
==>urns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1671	1785	
==>urns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is exp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2179	2285	
==>lag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2179	2285	
==>lag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1665	1811	
==>y results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1665	1811	
==>y results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            m <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3754	3869	
==>ults and memory exhaustion when running against
some of the perl5 t/op/ test files.  Use of the perl api has to be
c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12290	12405	
==>ce.

- `contains( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12290	12405	
==>ce.

- `contains( $x )`

Returns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5032	5142	
==>,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5032	5142	
==>,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.conte <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14032	14130	
==>(Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14090	14188	
==>(Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
t <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	707	840	
==>e bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	707	840	
==>e bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23798	23894	
==>KeyedText is generally a simpler solution
than alternatives, and doesn't know about language spec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23798	23894	
==>KeyedText is generally a simpler solution
than alternatives, and doesn't know about language spec <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2559	2665	
==>$.year < 0; $.year % 100 }
method century returns Int { die if $.year < 0; int($.year / 100) }

our @months <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	891	998	
==>S>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	891	998	
==>S>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10020	10116	
==>? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10755	10851	
==>? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5588	5724	
==>il));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5588	5724	
==>il));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3711	3832	
==>ler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3711	3832	
==>ler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname servername nickname umode _ ircname> =
      split " " <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14346	14443	
==>=> sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  using  => sub { open my $fh, ">", <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8088	8212	
==>new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8088	8212	
==>new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3160	3279	
==>vername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("logge <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3160	3279	
==>vername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("logge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6105	6224	
==>t;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Messag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6105	6224	
==>t;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Messag <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17968	18064	
==>odule::Compile attempts to make source filtering a sane process, by
parsing up your module's sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17968	18064	
==>odule::Compile attempts to make source filtering a sane process, by
parsing up your module's sour <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8058	8153	
==>Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8058	8153	
==>Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6060	6171	
==>x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6060	6171	
==>x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4470	4702	
==>_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4470	4702	
==>_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::D <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2484	2711	
==>efined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbati <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2484	2711	
==>efined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4996	5110	
==>{
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4996	5110	
==>{
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .c <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	569	688	
==>edness of %ENV, this could perturbate tests
$ENV{PERL_CORE} = 1 unless ${^TAINT};

$0 ~~ s/\.dp$//; # for the test.de <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3399	3507	
==>s_version osname runcore>),
      $_[0]->{pugs_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my @sm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5111	5215	
==>_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5111	5215	
==>_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36005	36123	
==>ject's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  All combinations having the same <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36005	36123	
==>ject's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  All combinations having the same <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4799	4958	
==>is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4799	4958	
==>is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	1	94	
==>package Perl6::Core::Type::Comparable;

use Perl6::Core::Type::Equivalence;

package type::com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9307	9528	
==>defaults to not satisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10784	11005	
==>defaults to not satisfied, if we got dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3666	3775	
==>_error), return;

    return $version if $version =~ /^\.?\d/;
    return '0.0';
}

=pod

=head2 JIB::Utils->_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16359	16462	
==>_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucke <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16359	16462	
==>_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucke <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3828	3927	
==>lech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3828	3927	
==>lech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1460	1589	
==>ed_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1471	1600	
==>ed_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9599	9693	
==>universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, define <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9599	9693	
==>universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, define <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7541	7683	
==>"\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7734	7876	
==>"\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	671	780	
==>add a fields accessors for all the fields in the file
    ### so we can have other accessors for other meta da <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1155	1264	
==>add a fields accessors for all the fields in the file
    ### so we can have other accessors for other meta da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	46	162	
==>) {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	46	162	
==>) {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5439	5584	
==>k when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5439	5584	
==>k when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3330	3446	
==>m<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3330	3446	
==>m<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	706	830	
==>esh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	706	830	
==>esh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1829	1955	
==>t}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || def <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1829	1955	
==>t}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || def <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10910	11038	
==>art;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10910	11038	
==>art;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19271	19373	
==>Pro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19271	19373	
==>Pro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18846	18987	
==>$object->isa($class) };
        if( $@ ) {
            if( $@ =~ /^Can't call method "isa" on unblessed reference/ ) {
                if( !UN <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3677	3804	
==>s or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3677	3804	
==>s or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6638	6846	
==>b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6638	6846	
==>b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domai <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1397	1558	
==>0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_el <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1397	1558	
==>0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_el <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1942	2096	
==>.'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15809	15963	
==>().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15809	15963	
==>().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { p <==
2	/Users/nnunley/pugs/util/package-osx.pl	134	268	
==>target_base_dir
        Run after make install'ing pugs and parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14678	14777	
==>ating it's type variables in the function body
	# for this reason the function needs to be cloned (s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25318	25449	
==>ata}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25877	26008	
==>ata}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6328	6428	
==>->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11174	11274	
==>->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	530	631	
==>$pad if $pad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved in the last scope by $se <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16208	16320	
==>else {
        return $NO;
    }
}

=head2 C<_reset_file_state>

  $strap->_reset_file_state;

Resets things like <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	447	563	
==>ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	447	563	
==>ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14327	14437	
==>ymbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1807	1917	
==>ymbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $s <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1273	1395	
==>ter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2796	2917	
==>bjects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14191	14316	
==>w);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8395	8520	
==>w);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28917	29045	
==>em my $f = $obj->flags()

The flag value for this object.  This value is a number created by OR'ing
together the flags that are e <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4266	4359	
==>UPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_that_should_be}->is_arr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21118	21200	
==>[C|F1],F1,B0,[C|B0],E0,E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1182	1297	
==>=> $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1182	1297	
==>=> $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	836	938	
==>two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	836	938	
==>two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	508	691	
==>";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	508	691	
==>";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2695	2873	
==>ed( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2695	2873	
==>ed( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :densit <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7833	7977	
==>ository.

=cut

sub add_file {
    my $self = shift;
    my %args = @_;
    my ($file, $force);

    my $tmpl = {
        file => {
            r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2772	2902	
==>UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2772	2902	
==>UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3403	3554	
==>ontent.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3403	3554	
==>ontent.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Pro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17122	17224	
==>a larger package that would otherwise use
it.  Hereafter, if any other package or application says that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17122	17224	
==>a larger package that would otherwise use
it.  Hereafter, if any other package or application says that <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6527	6639	
==>Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6527	6639	
==>Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12021	12143	
==>t),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12021	12143	
==>t),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOI <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5642	5746	
==>s Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5642	5746	
==>s Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7914	8014	
==>spans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7914	8014	
==>spans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this cl <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6493	6629	
==>}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2002	2115	
==>s.
#     So it isnt entirely clear we are doing an fully correct parse.
#
#  Todo:
#   * Create a second grammar w <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3419	3553	
==>p {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet- <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3419	3553	
==>p {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2474	2605	
==>l => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2614	2745	
==>l => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16842	16946	
==>es, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
inte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16842	16946	
==>es, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
inte <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35907	35999	
==>et_set_member_combinations()>

This method returns an array ref having all combinations of th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35907	35999	
==>et_set_member_combinations()>

This method returns an array ref having all combinations of th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5174	5265	
==>sers>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5174	5265	
==>sers>.delete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache3 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	252	357	
==>$caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$packa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	252	357	
==>$caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$packa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	952	1062	
==>pe

=head1 METHODS

=over 4

=item B<new (~type) returns reference>

=item B<to_native () returns *native*>

=i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3879	3988	
==>ild a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3740	3848	
==>ild a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9298	9425	
==>complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9298	9425	
==>complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5160	5333	
==>e #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Vari <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5148	5321	
==>e #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Vari <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5326	5462	
==>ps_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_exec <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5880	5995	
==>'name'};
        my $rep = ucfirst $n->rep_type;
        my $type = $n->{'type'};
	my $pkg_this = "${pkg_root}::$nam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1439	1541	
==>r anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often used for o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1439	1541	
==>r anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often used for o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23294	23383	
==>ployed when objects of
multiple different Relation-implementing classes are used together, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6938	7074	
==>rn $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 . <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6938	7074	
==>rn $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 . <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25566	25670	
==>e above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% okay. %s>

If not a <==
2	/Users/nnunley/pugs/util/grokprims.pl	2316	2417	
==>rder='1' width='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td>$arg</td>";
  }
  pri <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5114	5242	
==>=      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5438	5566	
==>=      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	81	171	
==>mmar::Operator);
use Pugs::Grammar::Operator;
use base qw(Pugs::Grammar::BaseCategory);

su <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4115	4224	
==>st::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4173	4282	
==>st::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $to <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1466	1645	
==>0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1466	1645	
==>0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	266	366	
==>orld!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line) <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	266	366	
==>orld!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1578	1687	
==>ate {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLength <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1578	1687	
==>ate {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLength <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20832	20936	
==>non-Unix Mac OS) handles
lots of other program resources as data files as well, making them easy to
upgra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20832	20936	
==>non-Unix Mac OS) handles
lots of other program resources as data files as well, making them easy to
upgra <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6527	6681	
==>ors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $siz <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5031	5185	
==>ors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $siz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	663	759	
==>st
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	663	759	
==>st
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Aut <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	887	981	
==>210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	887	981	
==>210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3250	3455	
==>events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3250	3455	
==>events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('pa <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	284	393	
==>.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $ <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	284	393	
==>.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21448	21548	
==>kage could come with a set of user
messages, but another package or program which uses yours may wish <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21448	21548	
==>kage could come with a set of user
messages, but another package or program which uses yours may wish <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	194	315	
==>ay is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMont <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	194	315	
==>ay is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10355	10455	
==>name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10355	10455	
==>name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20851	20951	
==>ndles
lots of other program resources as data files as well, making them easy to
upgrade.

Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20851	20951	
==>ndles
lots of other program resources as data files as well, making them easy to
upgrade.

Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1472	1583	
==>e

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $p <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1472	1583	
==>e

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6739	6880	
==>r(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6739	6880	
==>r(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11771	11920	
==>mnt/lib6/$_";
        } else {
          copy "$lib6/$_" => "$initrd_mnt/lib6/$_";
        }
      }
    };

  step
    descr  => "Copying Parrot incl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15724	15840	
==>TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	659	765	
==>:do($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $self->SUPER::_bind_params($args);
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	298	401	
==>e_demo.pl';

#my $m = match_re($re,$str);
my $r = compile($re) || die "Compile failed";
my $m;
if($bench <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3381	3489	
==>{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -is <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3381	3489	
==>{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -is <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14901	14999	
==>y($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14901	14999	
==>y($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11592	11696	
==>test will not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11592	11696	
==>test will not be relevant though.

=item Create a Visitor class

This would also be a good use for Roles. <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	755	873	
==>bless $self, 'Test::Harness::Iterator::ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing;
    }
    e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9098	9210	
==>=> [ command-line switches ]
#   nolib    => 1 # don't use -I../lib (included by default)
#   prog     => one-lin <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1492	1610	
==>ensity < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1492	1610	
==>ensity < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15946	16044	
==>r example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15946	16044	
==>r example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $object )` <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9564	9702	
==>self, $ws, $d) = @_;
    if ($d) {
      my $br = $self->{rx}->object($self->type);
      $br->omit(1);
      for (reverse @{ $self->data } <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5446	5541	
==>runcore timestamp duration>),
    (map { $smoke{summary}{$_} } qw<total ok failed todo skipped u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19796	19891	
==>ation header that use the
"Basic Authentication Scheme".  In array context it will return two
va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19796	19891	
==>ation header that use the
"Basic Authentication Scheme".  In array context it will return two
va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11330	11505	
==>card && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11330	11505	
==>card && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $d <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	919	1017	
==>de>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", sour <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	919	1017	
==>de>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", sour <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16620	16798	
==>lues -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20097	20275	
==>lues -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Rel <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13536	13636	
==>"say" and
database queries, may occur much later than expected.

It may enter an infinite loop if the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13536	13636	
==>"say" and
database queries, may occur much later than expected.

It may enter an infinite loop if the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4767	4941	
==>LKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((sy <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6529	6703	
==>LKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((sy <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16783	16884	
==>t.  It
also does not make direct use of environment variables, which can aid in
portability.

Practica <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16783	16884	
==>t.  It
also does not make direct use of environment variables, which can aid in
portability.

Practica <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5180	5334	
==>nt mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5180	5334	
==>nt mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17736	17840	
==>ginating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17736	17840	
==>ginating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header fie <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2159	2271	
==>',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2159	2271	
==>',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à', <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24445	24619	
==>| <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
}

# A.7 Regular Expressions

rule Pattern {  # see 15.10.1
      <Disjunction>
}
rule Disjunc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25549	25663	
==><-[^$\\.*+?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | < <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12071	12167	
==>example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12071	12167	
==>example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_ <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1386	1535	
==>ay *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {

    my($v, @values);
    for @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9063	9180	
==>s_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9063	9180	
==>s_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10970	11129	
==>$secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10970	11129	
==>$secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17050	17192	
==>")";
  }

  sub ender {
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $h <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14614	14725	
==>); undef };
my %as_hash_handlers =
    ( undef => sub { $as_hash_complain->("undef"); [] },
      numeric     => <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	82	192	
==>e Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handle <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	82	192	
==>e Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handle <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11087	11217	
==>rn sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11087	11217	
==>rn sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	288	398	
==>zer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	270	376	
==>zer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20844	20942	
==>nd which
I recommend above all others for production use.

Most of the other (near term) third part <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20844	20942	
==>nd which
I recommend above all others for production use.

Most of the other (near term) third part <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7246	7398	
==>ponse) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7246	7398	
==>ponse) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14152	14323	
==>" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14146	14317	
==>" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25066	25230	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25345	25509	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1079	1171	
==>lman1dir},
        installsiteman3dir => $Config{installsiteman3dir} || $Config{installman3di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	135	542	
==>);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

packa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	135	542	
==>);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

packa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9959	10204	
==>} = 2;
          } else {
          $lines->{$line} = ($test->{ok}||0 ==1 ? 1 : 0);
          }
          }
      }
  }
                                                                                           
  my $infile  = IO::File->new($inp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17495	17617	
==>ut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5644	5747	
==>le->compile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { retur <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15926	16063	
==>";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (split " ")[0];
    }

  return @so;
}

# This is a kludge. But for <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6656	6751	
==>ever be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6656	6751	
==>ever be loaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20571	20682	
==>er :words {  # see 12.2
      <'='> <AssignmentExpression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'= <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6344	6447	
==>am("exe", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2902	3046	
==>me eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3119	3263	
==>me eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $file <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	275	390	
==>multi sub join (Str $delimiter ; *@values) returns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $st <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23364	23467	
==>p1)
.end

.namespace [ "PGE::Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16410	16508	
==>osetta D", which is computationally complete
(and industrial strength) and has fully integrated dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16410	16508	
==>osetta D", which is computationally complete
(and industrial strength) and has fully integrated dat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1625	1730	
==>t rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1625	1730	
==>t rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4969	5156	
==>es[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4969	5156	
==>es[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7175	7273	
==>arrot" and -s "$parrot_path/parrot" };

my @modfiles;
step
  descr  => "Searching for module files" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1061	1174	
==>$_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1061	1174	
==>$_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	706	798	
==>ate.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger) <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	706	798	
==>ate.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1852	2011	
==>,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1852	2011	
==>,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10479	10588	
==>his is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  whil <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10479	10588	
==>his is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  whil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3189	3331	
==>}
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3189	3331	
==>}
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21780	21867	
==>class_member(class_neg(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(cla <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1636	1767	
==>stead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($fi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3063	3159	
==>e_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3063	3159	
==>e_tolerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	753	848	
==>//dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	753	848	
==>//dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1720	1861	
==>if ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'applicati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1720	1861	
==>if ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'applicati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8148	8290	
==>variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8341	8483	
==>variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3447	3554	
==>ader_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3447	3554	
==>ader_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12311	12407	
==>s stored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12311	12407	
==>s stored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3411	3515	
==>e 
key, not merely appended to it; appending can create precisely the sort of weak 
keying that can be ex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3411	3515	
==>e 
key, not merely appended to it; appending can create precisely the sort of weak 
keying that can be ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19311	19437	
==>or non-captures
  package Regexp::Parser::tail;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13744	13850	
==>_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some opt <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17221	17327	
==>_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some opt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1342	1440	
==>s export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1342	1440	
==>s export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) re <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2274	2413	
==>,
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&in <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2632	2771	
==>,
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	354	455	
==>$X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::ca <==
2	/Users/nnunley/pugs/util/addauthors.pl	732	856	
==>n_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/i;
    foreach my $a (@$authors) {
      if ($a->{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5213	5313	
==>nfo;
our %node_named;
our @nodes;
our %nodes_of_type;
sub init {
    my $list = PIL::PIL1CPerl5::Node <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1695	1785	
==>ngs { $_[0]{'warnings'} }
sub has_failed { $_[0]{'has_failed'} }

package Perl6::Run::OnPer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1906	2093	
==>( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1906	2093	
==>( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4820	4959	
==>ldren[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4820	4959	
==>ldren[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1016	1125	
==>er_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1016	1125	
==>er_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	848	954	
==>";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	848	954	
==>";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8714	8824	
==>m_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8714	8824	
==>m_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	214	330	
==>GV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	420	536	
==>GV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see T <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5956	6086	
==>rn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5956	6086	
==>rn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14585	14697	
==>print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14585	14697	
==>print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, if the user <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	459	571	
==>soc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5432	5574	
==>fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_life <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5432	5574	
==>fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_life <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3294	3391	
==>tr $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3294	3391	
==>tr $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, St <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14663	14769	
==>>{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2144	2250	
==>>{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	662	769	
==>prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- do <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	662	769	
==>prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3192	3320	
==>imple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3192	3320	
==>imple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3214	3315	
==>LE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3431	3532	
==>LE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		prin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16743	16857	
==>aracter to it's lowercase
form, if uppercase.


=item lcfirst

 multi Str::lcfirst    (  Str $string              - <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1521	1885	
==>erbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1521	1885	
==>erbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                w <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	399	502	
==>&::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	399	502	
==>&::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1386	1520	
==>turn $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1386	1520	
==>turn $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	846	957	
==>ode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    f <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	846	957	
==>ode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	525	660	
==>"<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	525	660	
==>"<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15080	15183	
==>ble to handle structures of arbitrary depth and of
an arbitrary type. The function signatures will likel <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15138	15241	
==>ble to handle structures of arbitrary depth and of
an arbitrary type. The function signatures will likel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3997	4093	
==>_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method con <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3997	4093	
==>_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22540	22663	
==>bstr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18961	19084	
==>bstr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14669	14773	
==>"KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14669	14773	
==>"KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mod <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2037	2134	
==>p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2037	2134	
==>p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2460	2570	
==>cribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.pe <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2460	2570	
==>cribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8168	8275	
==>se the next() method:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* object
  }

W <==
2	/Users/nnunley/pugs/util/version_h.pl	608	714	
==>itory.  Since we don't need a STDIN anyway, get rid of it.
close STDIN;

if (-e "$base/MANIFEST") {
    # T <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1150	1261	
==>block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <nam <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1150	1261	
==>block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <nam <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4258	4370	
==>2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4258	4370	
==>2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2836	2997	
==>h) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2836	2997	
==>h) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6473	6596	
==>ations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It may have been e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6473	6596	
==>ations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It may have been e <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8441	8550	
==>antial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supplied ne <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8441	8550	
==>antial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supplied ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21631	21740	
==>appropriate to the context in which they are using your package.  One
can override simply by using the same ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21631	21740	
==>appropriate to the context in which they are using your package.  One
can override simply by using the same ke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2586	2685	
==>s!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two differe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2586	2685	
==>s!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two differe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7542	7631	
==>eth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1367	1456	
==>eth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
pus <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1106	1232	
==>rchlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $post <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1106	1232	
==>rchlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $post <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4220	4337	
==>rom, 1) =~ />/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27757	27863	
==>first,
then from the F<Regexp::Parser::*> object of the same name, and finally
from F<Regexp::Parser::__obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	178	296	
==>my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	178	296	
==>my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!], <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	770	925	
==>r
$Root           = $Cwd . '/fakeroot';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Me <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3279	3417	
==>rithmic complexity
            gather {
                given $event.name {
                    when '*' { take %.subscription.values».mem <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19638	19734	
==>xt> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19638	19734	
==>xt> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Ros <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4524	4666	
==>ackslash_digit;
    }
    $initchar = substr $target, $pos, 1;
    $isnegated = matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	205	336	
==>er' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	49	163	
==>.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token co <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	49	163	
==>.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18220	18319	
==>ts want to use the same external resources, such as a repository file
on disk, it is expected that t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18220	18319	
==>ts want to use the same external resources, such as a repository file
on disk, it is expected that t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14359	14488	
==>PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14359	14488	
==>PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22556	22720	
==>"%-${max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26234	26329	
==>_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x00200
 #def <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1913	2013	
==>cs($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_ass <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1620	1714	
==>on) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1270	1398	
==>ange Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        42 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1270	1398	
==>ange Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        42 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9378	9482	
==>_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9378	9482	
==>_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $str <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16597	16771	
==>t('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_no <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1818	1910	
==>d is possibly very unstable.

=head1 METHODS ON C<$POE::Kernel>

=head2 C<post(POE::Session $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18775	18874	
==>optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18775	18874	
==>optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Roset <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	69	174	
==>015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header remove_header remove_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	69	174	
==>015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header remove_header remove_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2414	2545	
==>pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2631	2762	
==>pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3082	3255	
==>my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3082	3255	
==>my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $ma <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1737	1846	
==>l turn on per iteration printing
    
If you omit the fprime, a second order centered difference is provided
a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15554	15659	
==>methods may raise a warning if the new value would put the span 
in an invalid state, such as `start` bigg <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15554	15659	
==>methods may raise a warning if the new value would put the span 
in an invalid state, such as `start` bigg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1563	1680	
==>>[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1563	1680	
==>>[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18235	18336	
==>ning file', programs would have a harder time figuring out the
best way to deal with it.  But for disp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18235	18336	
==>ning file', programs would have a harder time figuring out the
best way to deal with it.  But for disp <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2341	2472	
==>isher is extended {
        use Set;
        has %.subscriptions of Set;

        # when you say add_subscription("foo", ...) then " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25743	25843	
==>not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=ite <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25743	25843	
==>not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8446	8682	
==>', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8446	8682	
==>', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	362	489	
==>T   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to kwid? - e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	341	463	
==>T   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to kwid? - e <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	741	887	
==>| $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? " <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	741	887	
==>| $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5860	6000	
==>ve\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If ex <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3788	3883	
==>tern> | <null> ] [\>\>|\>|\x[bbd]] }
rule argument_list { [ <-[\\\(\)]> | \\ . | \( <argument_li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21289	21397	
==>th keys which are unique across all Perl packages
(perhaps the key name can start with the package name?).  A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21289	21397	
==>th keys which are unique across all Perl packages
(perhaps the key name can start with the package name?).  A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2665	2783	
==>, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2653	2771	
==>, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9708	9807	
==>hod _head() returns Array { return }
method _tail() returns Array { return }

# What we implement fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9708	9807	
==>hod _head() returns Array { return }
method _tail() returns Array { return }

# What we implement fo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3005	3111	
==>fer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3005	3111	
==>fer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($stat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1296	1414	
==>is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1296	1414	
==>is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1056	1181	
==>h . $Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[tar -f $Control <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28200	28294	
==>"\n";

print "----\n";
}if(1);

Language::Prolog::Yaswi::swi_toplevel;

__END__
% :- use_module <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	542	635	
==>::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

2 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	542	635	
==>::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

2 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16051	16144	
==>man Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16109	16202	
==>man Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4594	4688	
==>$self.intersection( $set.complement );
}

# --------- arithmetic and list operations ---------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4594	4688	
==>$self.intersection( $set.complement );
}

# --------- arithmetic and list operations ---------- <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	899	1025	
==>($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	899	1025	
==>($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11400	11516	
==>en (Str $command, Bool :$r is copy, Bool :$w) returns IO
            is primitive is unsafe {
        die "Pipe::open <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2500	2607	
==>urns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2500	2607	
==>urns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5697	5786	
==>",",map{'$'.$_}@varsm); 
    my $init = '=('.join(",",map{p6_container_for_var_CODE($_)}@v <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13287	13410	
==>This list is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key}
 delete %hash<key>                 %h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29024	29213	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29303	29492	
==>nal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3946	4057	
==>omething in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3958	4069	
==>omething in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variabl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1596	1698	
==>}
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1596	1698	
==>}
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3252	3536	
==>a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3252	3536	
==>a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7275	7388	
==>P_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7275	7388	
==>P_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7325	7433	
==>$path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7325	7433	
==>$path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2493	2627	
==>ue // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<"" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2493	2627	
==>ue // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<"" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1321	1422	
==>ne.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1321	1422	
==>ne.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16029	16135	
==>dified

This header indicates the date and time at which the resource was last
modified. I<E.g.>:

  # chec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16029	16135	
==>dified

This header indicates the date and time at which the resource was last
modified. I<E.g.>:

  # chec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4163	4260	
==>que_instance_attrs($self)->{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8758	8914	
==>\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8758	8914	
==>\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1846	1992	
==>.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1846	1992	
==>.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15456	15587	
==>ould be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$dire <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15450	15581	
==>ould be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$dire <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37042	37137	
==>o has these utility methods, which are all used by
translate_message() to handle the trickier pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37042	37137	
==>o has these utility methods, which are all used by
translate_message() to handle the trickier pa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4604	4786	
==>);
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4604	4786	
==>);
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2820	2917	
==>entation of this node in the original text, or at
least a valid representation of it that "honours <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2820	2917	
==>entation of this node in the original text, or at
least a valid representation of it that "honours <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1091	1227	
==>in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1091	1227	
==>in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1739	1844	
==>, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1739	1844	
==>, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6621	6725	
==>ase 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6621	6725	
==>ase 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2898	3011	
==>$span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2898	3011	
==>$span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4427	4531	
==>e) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4427	4531	
==>e) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2413	2509	
==>ETH (block &dispatcher, symbol $label, hash %opts) returns method {
    { (&dispatcher.() // retu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5343	5454	
==>content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5343	5454	
==>content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12157	12274	
==>ert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12157	12274	
==>ert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9523	9646	
==>rh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that wil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9523	9646	
==>rh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that wil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13089	13197	
==>ed to describe the content of
a message.  All header field names prefixed with C<Content-> falls
into this ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13089	13197	
==>ed to describe the content of
a message.  All header field names prefixed with C<Content-> falls
into this ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1243	1365	
==>utoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1243	1365	
==>utoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!c <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	905	1032	
==>list ($x){
    " $x,";    
}

sub append_last ($x,$string is rw,$pass){
    if $pass > 2 {
        chop $string;
        "$strin <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22046	22148	
==>melen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - length($middle_str) - $max_namel <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8394	8487	
==>> {true}.
p5_modifier_spec_neg([-i|L]) --> "i", p5_modifier_spec_neg(L), !.
p5_modifier_spec_n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13508	13606	
==>ar
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13508	13606	
==>ar
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1448	1559	
==>RY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1448	1559	
==>RY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1230	1352	
==>&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# se <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1230	1352	
==>&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3337	3460	
==>ther, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactore <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3337	3460	
==>ther, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactore <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7939	8050	
==>.
# \\n   List      pre     reduce  safe   (Array: Code)\
multi Array::reduce (@values ; Code *&expression --> S <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2211	2347	
==>age (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2211	2347	
==>age (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15963	16055	
==>b),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23559	23649	
==>T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[], <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3896	4005	
==>et1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3896	4005	
==>et1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	539	649	
==>ctor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_en <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	539	649	
==>ctor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_en <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6524	6655	
==>e_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6581	6712	
==>e_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licen <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	58	178	
==>/auto/pugs/ext/CGI/lib" };
use CGI;
#use perl5:HTML::Template;
#use perl5:Text::Textile qw(textile);

print header();
#my <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3392	3506	
==>nc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4528	4642	
==>nc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8281	8430	
==>-Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary lim <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8281	8430	
==>-Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary lim <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8026	8138	
==>section (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11503	11615	
==>section (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20876	21005	
==>end('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43800	43929	
==>end('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3538	3956	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Ri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3538	3956	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Ri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	933	1058	
==>t $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyG <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	933	1058	
==>t $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyG <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1035	1146	
==>tion->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1268	1379	
==>tion->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	22	127	
==>se 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	22	127	
==>se 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2141	2249	
==>, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2141	2249	
==>, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4051	4180	
==>Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4051	4180	
==>Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23141	23274	
==>1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10867	10971	
==>rse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherwise the p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10867	10971	
==>rse is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherwise the p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17199	17361	
==>(
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17199	17361	
==>(
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6290	6400	
==>, but it reads from the given filehandle.

=cut

sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it = <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	25	127	
==>5 Programmen verbreitet (aber fehleranfällig!):
my $option = $para{'x'} || "wert";

#!\pause
# Etwas b <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16576	16686	
==>$.then), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs that need to be type <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4955	5074	
==>art ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4955	5074	
==>art ($self: ::?CLASS $part) returns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?C <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2883	2984	
==>irectory, check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2168	2300	
==>2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      t <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2168	2300	
==>2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3892	4045	
==>ident>
                { return { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	282	374	
==>ini-MetaModel which adds explicit Eigenclasses
## to all Classes created. See Method_Dispatch <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1499	1646	
==>'no_plan') {
                _('$.testplan' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1226	1324	
==>my $s = overload::StrVal($o);
    $s .= "[".$$o->{'RULE'}."]" if exists $$o->{'RULE'}; # REMOVE THI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3481	3622	
==>n $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3481	3622	
==>n $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1431	1550	
==>ives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1638	1757	
==>ives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prelude <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1871	2021	
==>tively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1871	2021	
==>tively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1788	1900	
==>:PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1788	1900	
==>:PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4841	5037	
==>e: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5063	5259	
==>e: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4807	4951	
==>+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4819	4963	
==>+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7405	7524	
==>ING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7405	7524	
==>ING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	839	950	
==>ation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit from Module::Com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	839	950	
==>ation.
#
# The hope is that this will allow interoperability with modules that
# do not inherit from Module::Com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2414	2539	
==>:Package::Installed->Object::Accessor::new        :
            JIB::Package::Binary->Object::Accessor::new;
    
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3798	3943	
==>$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3798	3943	
==>$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13897	14036	
==>//;  # remove sigil
            return $n->{op1}{op} . " '$name' => ( $attr )";
    }

    if ( $n->{op1}{op} eq 'try' ) {
        #war <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	842	991	
==>=> [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	809	950	
==>=> [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19412	19502	
==>head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19412	19502	
==>head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3904	4002	
==>tem B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eith <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3904	4002	
==>tem B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eith <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1666	1789	
==>\) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { rule => $_[0]{rule}(), } } ]
        | [ <met <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6478	6586	
==>askell-src' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @libs = "-lHSPugs-$version";
    push @libs, grep / <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10729	10830	
==>vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10729	10830	
==>vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_k <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7520	7636	
==>= mfrom
    lastpos = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMER <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14530	14638	
==>urns the same as C<zip(keys %hash; values %hash)>

In Scalar context, they all return the count of elements t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1765	1871	
==>:str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m->{'RULE'} = $o->{' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8257	8473	
==>ency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX shoul <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8721	8937	
==>ency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX shoul <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1899	2007	
==>if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1899	2007	
==>if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	799	917	
==>capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, ce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	799	917	
==>capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, ce <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3219	3407	
==>~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3219	3407	
==>~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1934	2065	
==>number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1934	2065	
==>number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => pe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1154	1255	
==>ery easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory foo <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1154	1255	
==>ery easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory foo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6118	6212	
==>_decl => $() ,} }
RULE
*{'sub_defin'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1729	1843	
==>$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1729	1843	
==>$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	730	837	
==>recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	730	837	
==>recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9988	10103	
==>ntities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX temp does not ye <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9988	10103	
==>ntities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX temp does not ye <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18240	18339	
==>file', programs would have a harder time figuring out the
best way to deal with it.  But for display <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18240	18339	
==>file', programs would have a harder time figuring out the
best way to deal with it.  But for display <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10769	10871	
==>ire()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10827	10929	
==>ire()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5444	5558	
==>$cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5444	5558	
==>$cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_op <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3370	3495	
==>self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3370	3495	
==>self, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2204	2327	
==>s = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<tok <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2204	2327	
==>s = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<tok <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4559	4690	
==>en use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwis <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4559	4690	
==>en use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwis <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6969	7083	
==>);
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6969	7083	
==>);
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3288	3436	
==>me => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => ' <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	90	187	
==>R_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	90	187	
==>R_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22922	23054	
==>ss->send('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1829	1951	
==>)=new Parse::Yapp(input => $g);
    $p=$p->Output(classname => 'Test');

        $DEBUG
    and print $p;

    eval $ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2733	2825	
==>\${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condition {
    if(/(${ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	898	1061	
==>x:</>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_structure:<if>'),
                App <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2661	2759	
==>}

method any_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3632	3731	
==>6 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Crypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3632	3731	
==>6 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Crypt <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4104	4270	
==>by($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe ( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4568	4734	
==>by($entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2819	2938	
==>curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2819	2938	
==>curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	445	580	
==>should be a policy decision
    my @metas = sort { $b->{version} cmp $a->{version} }
                map  { $_->[1] } 
                g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	138	240	
==>: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	138	240	
==>: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2283	2408	
==>| $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g;
    if ( $self->tests ) {
        $args->{test} = { TEST <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	109	218	
==>r;
use vars qw($VERSION @EXPORT @ISA);

$VERSION = '0.02';

@ISA = qw(Exporter);
@EXPORT = qw(assert);


=head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2929	3076	
==>{
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
} <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2929	3076	
==>{
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3339	3434	
==>ta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable clas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3339	3434	
==>ta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable clas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7609	7748	
==>'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'tab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7609	7748	
==>'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'tab <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1899	2008	
==>}
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach my $superclass (@{ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	261	363	
==>}.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> li <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	261	363	
==>}.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> li <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1269	1411	
==>s
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1269	1411	
==>s
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2073	2196	
==>ans that all notifications are sent everywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	496	612	
==>ode);
	return if $node->atomic;

	return 1;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

	ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	111	212	
==>SION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	111	212	
==>SION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4675	4786	
==>p3d->get_z, 7, '... got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	58	161	
==>sigils)
$, %, @ gekennzeichnet.
#=Kontextunabhängigkeit
Da die kontextabhängige Sigil-Wahl in Perl 5 N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4232	4331	
==>ters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> valu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4232	4331	
==>ters for block size and so on; see the cipher module's documentation for 
details.  The C<mode> valu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3179	3339	
==>nt_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # ap <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3179	3339	
==>nt_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # ap <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	388	523	
==>$glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	388	523	
==>$glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $ <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1129	1262	
==>$next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1769	1857	
==>t'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1937	2052	
==>$uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1937	2052	
==>$uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2198	2305	
==>w( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2198	2305	
==>w( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10529	10712	
==>'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10808	10991	
==>'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39131	39221	
==>es are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<R <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39131	39221	
==>es are the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2671	2857	
==>!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2671	2857	
==>!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2073	2193	
==>ead
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2073	2193	
==>ead
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	150	266	
==>t;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	150	266	
==>t;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a h <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3040	3136	
==>NAME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3040	3136	
==>NAME

Span::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1685	1800	
==>cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstrin <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1685	1800	
==>cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstrin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10002	10141	
==>ct methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10002	10141	
==>ct methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting t <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4788	4916	
==>ome values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'H <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4647	4775	
==>ome values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'H <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11654	11797	
==>ote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not anoth <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11654	11797	
==>ote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not anoth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	656	762	
==>ethods

sub fetch { ${$_[0]} }
sub store { 
    my ($self, $value) = @_;
    (blessed($value) && $value->is <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2585	2693	
==>= common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($dat <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2585	2693	
==>= common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a ($dat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12205	12306	
==>s a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12205	12306	
==>s a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `contains( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12902	13020	
==>},
      non_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { "". ${$_[0]} },
      scalar_non_numeric = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5563	5673	
==>ra diagnostics
    } elsif ($got !~ tr/0-9// or $expected !~ tr/0-9// or $range !~ tr/0-9//) {
        # This i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14130	14228	
==>eneric($.fun) + generic($.param) }

comb: type($$) = {
	my $f = type($.fun);
	my $p = type($.param) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5990	6126	
==>);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30365	30466	
==>ation of any children of the object.

=item $obj->walk()

"Walks" the object.  This is used to dive in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12124	12255	
==>c => sub { 0+ $_[0] },
      scalar_numeric     => sub { ${$_[0]} },
      scalar_non_numeric => sub { 0+ ${$_[0]} },
      array => <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2537	2635	
==>ulti Num::truncation (Num $x) {
	...
}

# Other math functions.
our bool multi Num::is_odd (Num $x) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	318	414	
==>ine is unfortunately entangled with the rest of
# the p5 implementation.  So while limited superf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13988	14101	
==>-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null stri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9835	9940	
==>ritten for Pugs.

It provides a simple set of common test utility functions, and is
an implementation of t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9893	9998	
==>ritten for Pugs.

It provides a simple set of common test utility functions, and is
an implementation of t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19237	19336	
==>l_p5_log_code($code);    
    my @res = eval_wa($code,wantarray);
    eval_p5_log_error($code,$@) if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1517	1646	
==>rint $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1517	1646	
==>rint $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9459	9667	
==>,
            ),
            App->new(
                Sym->new('&say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App->new(
                        Sym->new('&i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8798	8894	
==>@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2623	2719	
==>@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->var <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26828	26929	
==>:overload;
use Language::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    vars => [qw ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	410	505	
==>int $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptogr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	410	505	
==>int $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptogr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19943	20033	
==>orm to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19943	20033	
==>orm to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2968	3164	
==>t, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2968	3164	
==>t, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24924	25020	
==>ount of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29476	29572	
==>ount of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6166	6270	
==>ex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser is not very <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6166	6270	
==>ex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
parser is not very <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	480	594	
==>tring ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&qu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	480	594	
==>tring ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&qu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14570	14679	
==>"TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14570	14679	
==>"TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $chan <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2396	2490	
==>erate_keystream> with a number of bytes and throwing the return value away.
Encryptions after t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2396	2490	
==>erate_keystream> with a number of bytes and throwing the return value away.
Encryptions after t <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1507	1610	
==>use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()` <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1507	1610	
==>use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()` <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7828	7951	
==>: ", @args.elems;
        dbg "# Function:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9505	9588	
==>ndef,3,4,3,3],[0],[0]);
my($qr) = Regexp::StructHook::make_qr_regexp_pair("a",1,sub{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8516	8623	
==>}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8516	8623	
==>}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13527	13715	
==>_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13806	13994	
==>_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6181	6301	
==>d_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6181	6301	
==>d_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	793	906	
==>->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4749	4862	
==>le)->{'$:name'}} = undef;
        foreach my $method_name ($role->get_method_list) {
            # if we already h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12536	12637	
==>ode in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12536	12637	
==>ode in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16404	16502	
==>ct, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16404	16502	
==>ct, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10399	10495	
==>ce_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10457	10553	
==>ce_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1799	1908	
==>efine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1799	1908	
==>efine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7717	7808	
==>will unify it's instantiated value instead of itself
multi unify => ('type::variable::instan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1412	1554	
==>\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1412	1554	
==>\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_stat <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3083	3206	
==>open: $prelude: $!";
        print $ofh $_ while <$ifh>;
    }

    # manhandle the rest of the inlined modules.
    # we ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15206	15325	
==>statements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15485	15604	
==>statements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       rul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2573	2830	
==>ss Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2573	2830	
==>ss Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Ro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	850	986	
==>1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '-' exp %prec NEG   { $out= [ $_[1], <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10901	11013	
==>lf->remove_available( package => $inst_pkg );
    
    ### move this all to Installation.pm
    $self->write or r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4153	4250	
==>ve_type($node));
}

sub define_named_block {
	my $self = shift;
	my ($node, $symbol, $body, $type) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2217	2326	
==><start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2217	2326	
==><start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $densit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11478	11585	
==>n-block#" . $code;
}
sub node::runtime_alternation {
    my $code = match::str( match::get( 
        { captu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	862	958	
==>sh

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SY <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	862	958	
==>sh

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SY <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4505	4618	
==>,
    };
    bless $self,$cls;
    $self;
}
sub rep_type  { $_[0]{'rep'} } # string array1 array2 hash
sub field_i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3750	3880	
==>a    = $conf->archive_data;
        my $control = $conf->archive_control;
        my $jibdir  = $conf->jib_dir;
    
        ### XX <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13980	14088	
==>pod = catfile($syn_src_dir, 'apo', "$syn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile($s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10805	10907	
==>`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_universe` must <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10805	10907	
==>`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_universe` must <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1399	1509	
==>tring $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    for %x.kv <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2495	2604	
==>$attr = $O.property_attributes{$P};
    return JSX::false if $attr && $attr.ReadOnly;
    delete $O.property_v <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3870	3975	
==>id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5772	5877	
==>id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15213	15315	
==>the given header did not exist then C<undef> is returned.

Methods that deal with dates/times always co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15213	15315	
==>the given header did not exist then C<undef> is returned.

Methods that deal with dates/times always co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2873	2995	
==>e auto_provides without a MANIFEST, skipping\n";
        return $self;
    }

    # Avoid spurious warnings as we are not c <==
2	/Users/nnunley/pugs/util/run-smoke.pl	276	380	
==>($_) or $failed++;
}

die <<"EOF" if $failed;

You don't seem to have the required modules installed.
Ple <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	888	1008	
==>'', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	888	1008	
==>'', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17410	17528	
==>h {
  my($r,$s)=@_;
  my $len = length($s);
  for my $start (0..$len) {
    local $X::str = $s;
    local $X::pos = $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5510	5619	
==>S->object(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_ob <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17613	17768	
==>ngth'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17613	17768	
==>ngth'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_v <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	598	699	
==>return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::S <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	598	699	
==>return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7048	7146	
==>xt of the header, that will be processed as a interpolated string (to allow for
any modifiers).

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7048	7146	
==>xt of the header, that will be processed as a interpolated string (to allow for
any modifiers).

=i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	58	156	
==>at holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	58	156	
==>at holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or pa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4347	4465	
==>eturn 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4347	4465	
==>eturn 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	281	426	
==>an be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could no <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1506	1651	
==>an be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could no <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2625	2723	
==>ut.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test librari <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2625	2723	
==>ut.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test librari <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8956	9079	
==>..
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8956	9079	
==>..
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2300	2427	
==>t = %param<after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2300	2427	
==>t = %param<after> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	645	800	
==>],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	621	768	
==>],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2, <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1742	1875	
==>ealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
} <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1742	1875	
==>ealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
} <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11824	11954	
==>ift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	233	358	
==>ift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1340	1589	
==>)
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1467	1716	
==>)
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2683	2840	
==>[ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2930	3087	
==>[ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1388	1488	
==>g on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::M <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1309	1405	
==>g on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::M <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6472	6568	
==>king / as-they-come, because
# we want to preserve ordering anyway and it's probably okay to keep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10980	11080	
==>ll be returned.

A multi-valued field will be returned as separate values in list
context and will be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10980	11080	
==>ll be returned.

A multi-valued field will be returned as separate values in list
context and will be <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1032	1144	
==>~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1032	1144	
==>~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16303	16434	
==>eading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19780	19911	
==>eading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1447	1573	
==>uation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1204	1330	
==>uation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4513	4647	
==>ree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s/Perl6::Run::OnPerl5::X1::Pil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3899	4024	
==>ering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against dis <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3899	4024	
==>ering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against dis <==
2	/Users/nnunley/pugs/util/package-osx.pl	523	638	
==>le
        /usr/local/bin/parrot
        /usr/local/bin/pbc_info
        /usr/local/bin/pbc_merge
        /usr/local <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16217	16331	
==>ts, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    my $r = $self->runti <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11332	11429	
==>em B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11332	11429	
==>em B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6242	6392	
==>{slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    w <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	16	141	
==>ator
$x = $y; # wie bei Perl 5, erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selbe Container wie $y

#=Bindung <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8110	8221	
==>nt is fired once the last '=item' directive, followed by any text on the same line.

=item I<start_element ('ver <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8110	8221	
==>nt is fired once the last '=item' directive, followed by any text on the same line.

=item I<start_element ('ver <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1725	1821	
==>{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM" <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1725	1821	
==>{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	370	544	
==>{
    my $self    = shift;
    my $conf    = $self->config;
    my %hash    = @_;
    
    my $meta; my $inst;
    my $tmpl = {
        meta => { 
            required    => 1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3526	3627	
==>sub define_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5694	5809	
==>V* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr,"regexp_setup ");
    Safefree(r->p <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3076	3205	
==>e {
	    printlatex $chr, $col;
	}
    }
    print "}\n\\end{block}\n" if $inblock;
#    print "}";
    close STDOUT;
}

#    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1739	1836	
==>value of the 
pair is currently unused, but for forward compatibility it should always be the 
val <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1739	1836	
==>value of the 
pair is currently unused, but for forward compatibility it should always be the 
val <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14857	14957	
==>sted data structures are implemented, we will need an easy way
to test them. So we will implement the <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14915	15015	
==>sted data structures are implemented, we will need an easy way
to test them. So we will implement the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	375	492	
==>zes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change to kwid? - easi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	354	466	
==>zes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change to kwid? - easi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9482	9601	
==>this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9482	9601	
==>this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $uni <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2101	2224	
==>re sent everywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Cla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19402	19492	
==>s used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19402	19492	
==>s used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3036	3171	
==>ves a symbol into a value. Could be a global or a dynamic symbol:

    App(
        Sym('&func'), # Sym is reduced to the Thunk mapped f <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2	97	
==>/usr/bin/perl

use strict;
use warnings;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump LoadFil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21617	21710	
==>de
"Database Independence".  However, the level of DBI's provided independence
is I<Database D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21617	21710	
==>de
"Database Independence".  However, the level of DBI's provided independence
is I<Database D <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12472	12574	
==>des
attribute starts out empty, but gains one element for each Node in the Node
hierarchies created fro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12472	12574	
==>des
attribute starts out empty, but gains one element for each Node in the Node
hierarchies created fro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6121	6233	
==>cate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.valu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9598	9710	
==>cate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.valu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1938	2047	
==>is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1938	2047	
==>is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4484	4601	
==>ompatible with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4496	4613	
==>ompatible with previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	93	197	
==>l "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_fun <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	93	197	
==>l "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_fun <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4967	5121	
==>n ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4826	4980	
==>n ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1781	1887	
==>ren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1781	1887	
==>ren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3293	3402	
==>ther) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3293	3402	
==>ther) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
}

method s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	275	383	
==>::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*blo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	275	383	
==>::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*blo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34166	34308	
==>=> bit->new(1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher', <==
2	/Users/nnunley/pugs/util/config_h.pl	929	1025	
==>you're still using ghc-msys
if ($^O =~ /MSWin32|mingw|msys|cygwin/i) {
    print OUT "#undef PUGS <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2049	2192	
==>hods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_clas <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2254	2397	
==>hods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_clas <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7050	7177	
==>compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	866	972	
==>rser: '$rule_source' at: '$self->{ast}{tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36078	36189	
==>>, C<< (?<= >>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6164	6266	
==>d1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6164	6266	
==>d1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	714	811	
==>ed by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	714	811	
==>ed by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1528	1628	
==>es? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1528	1628	
==>es? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_node <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10656	10765	
==>lf.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $cl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10656	10765	
==>lf.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%options) {
    my $self = $cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19645	19841	
==>( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19924	20120	
==>( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   rul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23804	23901	
==>ext is generally a simpler solution
than alternatives, and doesn't know about language specific de <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23804	23901	
==>ext is generally a simpler solution
than alternatives, and doesn't know about language specific de <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16521	16641	
==>(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15575	15687	
==>(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6668	6771	
==>ich seem to still be inside a list?

Basically the item body, much like this text is.

- how should I ha <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6668	6771	
==>ich seem to still be inside a list?

Basically the item body, much like this text is.

- how should I ha <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20511	20621	
==>strings are usally left alone by
compilers. After all the compilers have finished, the digest lines will
be exp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20511	20621	
==>strings are usally left alone by
compilers. After all the compilers have finished, the digest lines will
be exp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2413	2535	
==><\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\~\> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2413	2535	
==><\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\~\> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4205	4303	
==>Q(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(new <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3952	4141	
==>ss) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2898	2999	
==>str;

    if(stringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);}
    start = string <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3757	3862	
==>command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next un <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3757	3862	
==>command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next un <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10120	10257	
==>YNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10120	10257	
==>YNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7757	7877	
==>0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7745	7865	
==>0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#matc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19966	20065	
==>on.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19966	20065	
==>on.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>la <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20107	20210	
==>binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20107	20210	
==>binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3338	3521	
==>eta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3802	3985	
==>eta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2821	2961	
==>, return;
    
    my $perl_version;
    ### special perl, or the one we are running under?
    if( $perl eq $^X ) {
        ### just load th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	849	1029	
==>?!#)/\n# /g;
            print {_('$.error_output')} $message, "\n";            
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Output

=head1 SYNOPSIS

  use T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2190	2351	
==>n [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2250	2411	
==>n [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4888	4986	
==>Cxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4888	4986	
==>Cxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	756	873	
==>ift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	657	774	
==>ift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23025	23128	
==>p
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :meth <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1229	1344	
==>down above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <= .5) && ($x >= 0) { $x_round = si <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	624	744	
==>urns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	624	744	
==>urns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () retu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4320	4405	
==>])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4320	4405	
==>])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	768	874	
==>, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, '')) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	768	874	
==>, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, '')) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8811	8947	
==>exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8811	8947	
==>exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id I <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5608	5812	
==>y: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$cod <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5608	5812	
==>y: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$cod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1274	1386	
==>rhaps accepting
# patches to remove roadblocks if encountered.  The latter would of
# course not help people runn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5747	5856	
==>eturn { angle_quoted => $/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	189	326	
==>s);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	189	326	
==>s);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6187	6316	
==>h ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6199	6328	
==>h ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9406	9512	
==>urn $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9406	9512	
==>urn $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	252	376	
==>h';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	252	376	
==>h';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5902	6034	
==>elf: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5902	6034	
==>elf: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35283	35393	
==>orrespond to the 2 named parameters of new().

=item C<get_set_names()>

This method returns all Set Names elem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35283	35393	
==>orrespond to the 2 named parameters of new().

=item C<get_set_names()>

This method returns all Set Names elem <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7311	7408	
==>: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7311	7408	
==>: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6617	6725	
==>calar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6617	6725	
==>calar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1727	1836	
==>::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1727	1836	
==>::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5797	6031	
==>ield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5797	6031	
==>ield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32393	32561	
==>'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33048	33216	
==>'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dis <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7179	7305	
==>0),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "tr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7179	7305	
==>0),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "tr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1886	2079	
==>ash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my met <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1886	2079	
==>ash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my met <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	145	246	
==>d_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wante <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	145	246	
==>d_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wante <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1041	1210	
==>\' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1041	1210	
==>\' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23992	24085	
==>pository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo B <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23992	24085	
==>pository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1117	1212	
==>Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VERSIO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1117	1212	
==>Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VERSIO <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	149	253	
==>om_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 ve <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	149	253	
==>om_coro( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 ve <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	965	1064	
==>y::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved f <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	965	1064	
==>y::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3381	3485	
==>gnature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3381	3485	
==>gnature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3311	3438	
==>efined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3311	3438	
==>efined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            u <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3269	3377	
==>.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($confi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3269	3377	
==>.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($confi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7614	7716	
==>s($bucket->conform(1)) {
    print "Rate limiting -- please wait a bit and try again, thanks.";
    $ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6166	6258	
==>osetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6166	6258	
==>osetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1569	1677	
==>piler::Perl6 - An experimental compiler for Perl 6

=head1 DESCRIPTION

This module provides an implement <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3204	3300	
==>>get_x, 100, '... got the right x for p2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3468	3576	
==>infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3468	3576	
==>infix:<+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2805	2909	
==>mon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2805	2909	
==>mon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1661	1756	
==>o
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1501	1596	
==>o
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3216	3353	
==>>{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3680	3817	
==>>{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1289	1408	
==>ource: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Erro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1429	1548	
==>ource: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Erro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16451	16544	
==>::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16451	16544	
==>::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::ne <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12329	12431	
==>et1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=hea <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12329	12431	
==>et1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3169	3293	
==>amily { 'space' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	336	442	
==>r::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch} <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	336	442	
==>r::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1630	1744	
==>im($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Ru <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1688	1802	
==>im($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Ru <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5587	5679	
==>resolve_type($sub->accepts_type) ." ". (my $sym = $self->reduce($sub));
				$self->new_pad($s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20328	20432	
==>ontaining the hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20328	20432	
==>ontaining the hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2 <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	12	110	
==>:Glob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_sla <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	12	110	
==>:Glob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_sla <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9219	9336	
==>'&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $as <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9219	9336	
==>'&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $as <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	786	884	
==>e C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	786	884	
==>e C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Ca <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4522	4638	
==>al to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $remove <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4522	4638	
==>al to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $remove <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11288	11385	
==>.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the given rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11288	11385	
==>.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the given rec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6441	6561	
==>parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6441	6561	
==>parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_ty <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	568	667	
==>d1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	568	667	
==>d1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	493	585	
==>se.

More specialised processing instructions may sub-class this module or
provide special be <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	493	585	
==>se.

More specialised processing instructions may sub-class this module or
provide special be <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4662	4772	
==>=@_;
  #$match_hack - Match creation is one thing which is very cruft in this spike.
  # 0- dont create one, 1- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7353	7456	
==>ensity if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7353	7456	
==>ensity if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	470	582	
==>o->{'from'}}
sub to   {my($o)=@_;$$o->{'to'}}

sub new {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bles <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2814	2911	
==>ay want to change that.

Note: A precompiled (but most of the time outdated) image is available at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19857	19957	
==>array context it will return two
values; the user name and the password.  In scalar context it will
r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19857	19957	
==>array context it will return two
values; the user name and the password.  In scalar context it will
r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2816	2929	
==>ata,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2816	2929	
==>ata,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	36	168	
==>:Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XX <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	36	168	
==>:Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XX <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1687	1781	
==>Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junc <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1687	1781	
==>Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11296	11401	
==>tility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split(' <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11296	11401	
==>tility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12781	12916	
==>f (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12781	12916	
==>f (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1344	1453	
==>uctor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1344	1453	
==>uctor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.clos <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	782	893	
==>, $t5 - $t4, $t6 - $t5;

print "C code:\n$res\n";

#print "Compiled: " . $pretty->string($c) . "\n";
#print "Typ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13836	13970	
==>p'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13836	13970	
==>p'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers' i <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	841	942	
==>e provides information about the server your CGI is running on. It also 
attempts to provide some usef <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	841	942	
==>e provides information about the server your CGI is running on. It also 
attempts to provide some usef <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9424	9535	
==>n => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9424	9535	
==>n => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2391	2506	
==>esult = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2391	2506	
==>esult = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1986	2094	
==>ocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $ke <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1986	2094	
==>ocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $ke <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8229	8355	
==>..

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7953	8074	
==>..
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6097	6184	
==>users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6097	6184	
==>users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4194	4297	
==>if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4411	4514	
==>if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1973	2105	
==>:extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1895	2023	
==>:extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3834	4001	
==>n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3822	3989	
==>n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    di <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	76	166	
==>lts;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	76	166	
==>lts;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1060	1163	
==>C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME") <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1060	1163	
==>C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME") <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12462	12569	
==>arameter.
If both previous and next elements are at the same distance, returns the previous one.

- `is_empt <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12462	12569	
==>arameter.
If both previous and next elements are at the same distance, returns the previous one.

- `is_empt <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1669	1770	
==>{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->may <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1562	1651	
==>{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->may <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6882	7048	
==>=> $/{'Pugs::Grammar::Term.ident'}->() } }
            #|
            #    ### v6
            #    <Pugs::Grammar::Term.bareword> 
            #    { return $/{'Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18811	18905	
==>item I<anyof_class> Changed

If an I<anyof_class> element is a Unicode property or a Perl class <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10240	10384	
==>or param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10240	10384	
==>or param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24565	24672	
==>} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20986	21093	
==>} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1250	1371	
==>$match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1250	1371	
==>$match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13770	13866	
==>ocess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13770	13866	
==>ocess_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9408	9541	
==>username },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $servername },
    con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9408	9541	
==>username },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => { $servername },
    con <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8899	8995	
==>sses raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializat <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8899	8995	
==>sses raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20831	20932	
==>iled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need to do is add thi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20831	20932	
==>iled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need to do is add thi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9399	9516	
==>2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9457	9574	
==>2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4524	4665	
==>r_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4524	4665	
==>r_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0 <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	712	826	
==>n ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	712	826	
==>n ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4683	4805	
==>special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4683	4805	
==>special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6096	6208	
==>$self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6096	6208	
==>$self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19507	19607	
==>n Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exist <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24059	24159	
==>n Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exist <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1168	1326	
==>S

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `ma <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1168	1326	
==>S

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21815	21908	
==>ad1 NAME

Relation::Example -
Simple in-memory implementation of the Relation role

=head1 VER <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1574	1735	
==>lPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan')->header() <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6099	6226	
==>efined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } el <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2645	2788	
==>nt $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2645	2788	
==>nt $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1200	1349	
==>"This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1200	1349	
==>"This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	879	982	
==>{
my $r = capture( 'cap', constant('a') );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32569	32668	
==>hor).

=back

If there is a method with the name of one of these attributes, it is
I<imperative> you <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3896	4010	
==>spatchable';
    return $ref->ref();
}
sub p6_isa {
    my($x,$cls)=@_;
    my $ref = ref($x);
    if($ref) {
	retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	2003	2141	
==>$seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__END__

=pod

=head1 NA <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4936	5041	
==>quence { <simple_escape_sequence> | <octal_escape_sequence> | <hexidecimal_escape_sequence> }
rule simple_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3869	3977	
==>',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities list <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3869	3977	
==>',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities list <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	550	671	
==>$path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	517	638	
==>$path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5957	6088	
==>"\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5957	6088	
==>"\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5416	5520	
==>e to a URI object.

You will not be able to examine the response code or response headers
(like 'Content- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5416	5520	
==>e to a URI object.

You will not be able to examine the response code or response headers
(like 'Content- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35970	36067	
==>it's a look-ahead.  We send the unrolled contents of the
array reference as the contents of the lo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2074	2180	
==>ing children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2074	2180	
==>ing children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	751	873	
==>a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    ha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4229	4351	
==>a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1172	1279	
==>cludes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1172	1279	
==>cludes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	408	513	
==>p} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7559	7661	
==>map chr(hex), @hex), "\\X[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "X$1") if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29823	30012	
==>turns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order' <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	518	636	
==>?$second #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian.new( :year($year <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2444	2544	
==>...}


# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   L <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14692	14800	
==>s C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14692	14800	
==>s C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4554	4797	
==>_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11093	11209	
==>f the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11093	11209	
==>f the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Doc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11324	11422	
==>tr>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11324	11422	
==>tr>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<un <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5275	5370	
==>presenting the configuration data

=item write

The C<write> method the file for the properties, <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5275	5370	
==>presenting the configuration data

=item write

The C<write> method the file for the properties, <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6766	6891	
==>and return "pilrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore2human {
  local $_ = shift;

  $_ eq "js <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12666	12772	
==>play = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11022	11123	
==>lt by calling the visual() method of
each node in the tree.

=head2 Using the Regex

You can use the q <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3326	3414	
==>"\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constru <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3326	3414	
==>"\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20725	20832	
==>Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS natively, and be I< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20725	20832	
==>Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS natively, and be I< <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4928	5024	
==>o', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7596	7692	
==>o', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20449	20547	
==>of all the languages your programs do or
might have, and lets you arrange the list in order of pref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20449	20547	
==>of all the languages your programs do or
might have, and lets you arrange the list in order of pref <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2338	2443	
==>s to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2338	2443	
==>s to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9484	9611	
==>$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9472	9599	
==>$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\ <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	578	675	
==>e '$Config{make} install' to install.\n";

# make an educated guess of whether we'll need root per <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1514	1607	
==>Inline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	935	1229	
==>6 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +-- <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	935	1229	
==>6 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +-- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26097	26200	
==>rser::flags;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3260	3357	
==>f defined $perl_version;
    return;
}

=pod

=head2 JIB::Utils->_version_to_number( version => $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2956	3101	
==>alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2956	3101	
==>alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alter <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8619	8716	
==>=> ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8619	8716	
==>=> ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5690	5794	
==>ll_tests) = @_;
    my $chunk_size = POSIX::ceil(@$all_tests / ($child_count * 3 - 1));
    for my $child <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1466	1581	
==>E'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1466	1581	
==>E'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19831	19942	
==>words {  # see 12.1
      <'{'> <StatementList>? <'}'>
}
rule StatementList :words {  # see 12.1
      <Statemen <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3070	3173	
==>prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to load it.
END

    my $o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4174	4283	
==>-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21077	21174	
==>t would be plausible places to hide data.
Perl_re_dup just copies them.

Aliases:

 #define anchor <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	648	770	
==>_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	648	770	
==>_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8519	8644	
==>$node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster ba <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8223	8341	
==>$node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster ba <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5237	5369	
==>f $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5237	5369	
==>f $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16877	16991	
==>Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the corresponding argument <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16877	16991	
==>Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the corresponding argument <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2471	2595	
==>$n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfix( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1035	1133	
==>e: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1035	1133	
==>e: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2436	2530	
==>and throwing the return value away.
Encryptions after this point will be using stronger portion <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2436	2530	
==>and throwing the return value away.
Encryptions after this point will be using stronger portion <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1878	1982	
==>($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1878	1982	
==>($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18750	18848	
==>ying to avoid triggering core behavior which we are not prepared to
support (such as modification o <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3040	3138	
==>ying to avoid triggering core behavior which we are not prepared to
support (such as modification o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1753	1969	
==>,
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_asser <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1753	1969	
==>,
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_asser <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25918	26014	
==>ges, in
addition to preserving this original copyright notice and other credits.
Rosetta is distr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25918	26014	
==>ges, in
addition to preserving this original copyright notice and other credits.
Rosetta is distr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14394	14528	
==>c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Pa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6874	6994	
==>ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7433	7553	
==>ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22529	22624	
==>so provide some variable values to be
interpolated into the user strings; Locale::KeyedText woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22529	22624	
==>so provide some variable values to be
interpolated into the user strings; Locale::KeyedText woul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3208	3405	
==>.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Cannot skill_all with a plan' if defined _('$.testpla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4286	4433	
==>et $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4298	4445	
==>et $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4991	5135	
==>t';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v6-pugs
            if ( exists $n->{param}{cpa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9247	9368	
==>ailed   { color: #500; }
    .tests_todo     { color: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8270	8367	
==>trian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 D <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8270	8367	
==>trian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 D <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4470	4602	
==>current_pragma_value or caller_pragma_value?
    #      I'm guessing "current" because this "is primitive".
    #      If I'm wrong t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	924	1032	
==>>{body}->($self->{env});
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition) && $con <==
2	/Users/nnunley/pugs/util/fixauthors.pl	554	667	
==>l=get("http://search.cpan.org/~$uid");
  my $tree=HTML::TreeBuilder->new_from_content($html);
  my $realname = $tr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4510	4626	
==>tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4703	4819	
==>tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2758	2858	
==>em B<source>

=item B<source($new_source)>

Returns the representation of this node in the original t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2758	2858	
==>em B<source>

=item B<source($new_source)>

Returns the representation of this node in the original t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8008	8143	
==>$!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8008	8143	
==>$!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2759	2885	
==>($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2759	2885	
==>($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so we permute our ni <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22675	22772	
==>heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27227	27324	
==>heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4855	5043	
==>ool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4704	4887	
==>ool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2219	2323	
==>get_data( $_[0], '$<params>' ) );
    return "$ident($list);\n";
}
sub node::rule_decl {
    my $name = g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3751	3850	
==>e match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_sour <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3935	4034	
==>e match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_sour <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3366	3483	
==>ersion = $self->perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is in <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2408	2524	
==>ersion = $self->perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is in <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11165	11311	
==>.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11165	11311	
==>.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	559	755	
==>str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	559	755	
==>str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTT <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1993	2126	
==>{
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1993	2126	
==>{
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9253	9380	
==>fine the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9253	9380	
==>fine the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37258	37354	
==>ge in its positional parameter
$module_name (a string) and checks whether or not it has already b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37258	37354	
==>ge in its positional parameter
$module_name (a string) and checks whether or not it has already b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8150	8275	
==>returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match failed    



    stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7876	7996	
==>returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match failed    

    stat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20238	20347	
==>M ($file) is builtin is primitive is unsafe {
  if not -e $file {
    undef;
  }
  elsif $file ~~ rx:perl5/[^- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4526	4639	
==>t_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# -- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4526	4639	
==>t_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# -- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2341	2474	
==>capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2588	2721	
==>capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	999	1104	
==>> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bar <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	999	1104	
==>> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29820	29965	
==>r()

The regex representation of this object.  It includes the regex
representation of any children of the object.

=item my $r = $obj->raw()

The <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1767	1873	
==>ct
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1767	1873	
==>ct
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1039	1174	
==>ur class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod B <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1039	1174	
==>ur class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod B <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	809	912	
==>ct was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#per <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	809	912	
==>ct was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#per <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12087	12206	
==>able( package => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $inst_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16249	16345	
==>various other external documentation for much of that.

The Rosetta Native Interface is defined m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16249	16345	
==>various other external documentation for much of that.

The Rosetta Native Interface is defined m <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1003	1165	
==>ze        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	866	996	
==>ze      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        di <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5123	5229	
==>currence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5123	5229	
==>currence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12798	12946	
==>ta_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12798	12946	
==>ta_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	127	311	
==>int "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	127	311	
==>int "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1205	1307	
==>odules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_me <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1205	1307	
==>odules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_me <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5971	6062	
==>x
unless($no_designdocs) { 
    my $syn_index = catfile($output_dir,"Synopsis", "index.html" <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7176	7290	
==>mk_eater_for_re('\s') if $re eq '\s';
    return $o->mk_eater_for_re('\S') if $re eq '\S';
    die "Regexp compilat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1154	1295	
==>?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1108	1242	
==>?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2273	2396	
==>E__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$des <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2273	2396	
==>E__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$des <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20863	21040	
==>am => "xs",
    body => let(
        ide => "length'",
        is => fun(
            param => "xs",
            body => fun(
                param => "n",
                body = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9909	9998	
==>metachar([C]))}.
p5_charset_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - sho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7945	8070	
==>the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object that has no capture (but t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7677	7799	
==>the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object that has no capture (but t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27895	27990	
==>don't define
a base class for your module's objects, or the object you create isn't
a modificati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1066	1191	
==>h => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1077	1202	
==>h => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21824	21918	
==>ful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this di <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21824	21918	
==>ful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this di <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7596	7694	
==>uld be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7596	7694	
==>uld be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6895	6997	
==>amName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posN <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6895	6997	
==>amName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posN <==
2	/Users/nnunley/pugs/util/version_h.pl	322	437	
==>_revision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# that is o <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12295	12405	
==>{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
}

package Ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2169	2270	
==>::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    requi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2169	2270	
==>::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    requi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8010	8107	
==>is class solves is when you need do perform "set" operations on 
Span objects, that return lists o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8010	8107	
==>is class solves is when you need do perform "set" operations on 
Span objects, that return lists o <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2936	3084	
==>">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2936	3084	
==>">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $li <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1099	1230	
==>esults
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1099	1230	
==>esults
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1159	1351	
==>e ) 
                        ) or return;

        $obj->config( $config   );
        $obj->meta(   $meta     );
        $obj->dir(    $dir      );
    }        
    
    return $obj;
}

=head2 <==
2	/Users/nnunley/pugs/util/addauthors.pl	1074	1217	
==>each my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn " <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1403	1503	
==>my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1403	1503	
==>my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _se <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4609	4706	
==>t.

sub def_thing {
  my($aref,$match_hack,$name,$re)=@_;
  #$match_hack - Match creation is one t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24467	24568	
==>ns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameter <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29019	29120	
==>ns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameter <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7053	7149	
==>export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7053	7149	
==>export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3044	3149	
==>intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3044	3149	
==>intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5768	5881	
==>$event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5768	5881	
==>$event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_hand <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1746	1840	
==>t<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  M <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1746	1840	
==>t<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11789	11885	
==>:Model::Node - This stores an ordered list of all this
Document's Node objects that do not have p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11789	11885	
==>:Model::Node - This stores an ordered list of all this
Document's Node objects that do not have p <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2203	2356	
==>fix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&re <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4526	4686	
==>n {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4526	4686	
==>n {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3906	4037	
==>ason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9340	9464	
==>e_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9533	9657	
==>e_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8251	8375	
==>elf.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8251	8375	
==>elf.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15757	15938	
==>1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15757	15938	
==>1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    metho <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1768	1889	
==>),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIB <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	879	998	
==>),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIB <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19633	19734	
==>nal files, such as a 2-column
plain-text format that will be much easier for a non-programmer to edit. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19633	19734	
==>nal files, such as a 2-column
plain-text format that will be much easier for a non-programmer to edit. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14444	14579	
==>atcher);
    while (!$c.defined) {
        $c.get_attributes().map:{
            %attrs{$_.meta.name()} = $_.meta.instantite_container() <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12166	12269	
==>all back to the
  original comp and exec (not implemented).  The C hooks call for the
  sub hooks in the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12942	13045	
==>s these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12942	13045	
==>s these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Docum <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	495	608	
==>rt unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	462	575	
==>rt unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17183	17361	
==>ure( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17462	17640	
==>ure( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4142	4249	
==>desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown" <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4200	4307	
==>desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4837	4939	
==>rsect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4837	4939	
==>rsect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @inter <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	499	629	
==>e {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	499	629	
==>e {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	788	875	
==>head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	788	875	
==>head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2331	2508	
==>( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix';
        return prefix( $n )
            if $n->{fixity} eq 'prefix';
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15740	15859	
==>$other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_diff <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19217	19336	
==>$other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_diff <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6385	6562	
==>ist      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     any     safe   (List)\
\\n   Junction  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10404	10498	
==>","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)? <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11139	11233	
==>","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)? <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20322	20422	
==>east as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24874	24974	
==>east as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1464	1568	
==>::Run::OnPerl5::X1::Result;
use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11510	11601	
==>_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_body(L), !.
p5_comment_body([])    - <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20549	20680	
==>( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 ) &&  ! exists $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1304	1400	
==>Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1304	1400	
==>Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20643	20742	
==>o you must use accessor
methods.  Relation does not declare any subroutines or export such.

The usu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25195	25294	
==>o you must use accessor
methods.  Relation does not declare any subroutines or export such.

The usu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23421	23520	
==>wise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
external dependenc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23421	23520	
==>wise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
external dependenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5177	5309	
==>if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5177	5309	
==>if ( defined $match2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2715	2845	
==>g public attributes:

=over 8

=item C<$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2715	2845	
==>g public attributes:

=over 8

=item C<$r.method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1945	2089	
==>[ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1945	2089	
==>[ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node, <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1089	1201	
==>shift;
        delete $DIGEST_CACHE{overload::StrVal($self)};
    }

    sub compute_digest {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3777	3911	
==>ree[1][0] );
    }	
    elsif $tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	574	669	
==>et::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. When it <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	574	669	
==>et::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. When it <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3941	4150	
==>es
            else {
                #warn "compiling args for $t";
                my $args = '';
                foreach my $arg (@t) {
                    if (!$args) {
                        #warn "our fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	435	540	
==>($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use defaults
    if ( $ENV{AUTOMATED_TESTI <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2015	2118	
==>ROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $file4 = <<'GROK <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4356	4543	
==>ess dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4820	5007	
==>ess dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenen <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8676	8801	
==>$code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8676	8801	
==>$code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($matc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	130	260	
==>r, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	130	260	
==>r, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8648	8747	
==>caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8648	8747	
==>caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cip <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24394	24563	
==>else { ... }            # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

You'll probably not be adding handlers that have t <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2110	2253	
==>bs($x) ) + 1) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # rou <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4444	4546	
==>iscarded.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
implement <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4444	4546	
==>iscarded.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
implement <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15627	15720	
==>erl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_objects_from_whatever c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	835	960	
==>r($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	835	960	
==>r($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	813	909	
==>inimal> argument, which, if present, tells
the combinator to succeed as soon as it has matched C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	813	909	
==>inimal> argument, which, if present, tells
the combinator to succeed as soon as it has matched C< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6505	6610	
==>>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6517	6622	
==>>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1999	2194	
==>essage.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    whil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1999	2194	
==>essage.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    whil <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8440	8546	
==>st   --> Lazy )
 multi Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (MatchTest $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5943	6086	
==>chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5943	6086	
==>chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1670	1766	
==>rectory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1510	1606	
==>rectory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9665	9766	
==>uest> and C<HTTP::Response> classes, internal to the
library.

The following methods are available:

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9665	9766	
==>uest> and C<HTTP::Response> classes, internal to the
library.

The following methods are available:

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5654	5786	
==>ndary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boun <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5654	5786	
==>ndary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boun <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5033	5175	
==>$set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generat <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5033	5175	
==>$set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generat <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1353	1471	
==>rns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object repre <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1353	1471	
==>rns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object repre <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	435	553	
==>rns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsaf <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	435	553	
==>rns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsaf <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2270	2381	
==>jects arent being created for capture groups which are never reached.
# No lookbehind as been implemented at all <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3328	3424	
==>e closure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3328	3424	
==>e closure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Ciphe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1925	2038	
==>sts {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1043	1164	
==>s = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1043	1164	
==>s = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6233	6352	
==>ty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6233	6352	
==>ty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18284	18385	
==>uring out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I hav <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18284	18385	
==>uring out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I hav <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22463	22579	
==>ct with the same arguments; they do not interact with the outside
environment at all.

A Relation object has 2 main a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27015	27131	
==>ct with the same arguments; they do not interact with the outside
environment at all.

A Relation object has 2 main a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1941	2053	
==>t->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1941	2053	
==>t->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2505	2608	
==>SCRIPTION

An object of this class represents the query string portion of a requested URI.
It provides t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2505	2608	
==>SCRIPTION

An object of this class represents the query string portion of a requested URI.
It provides t <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3971	4082	
==>= map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3971	4082	
==>= map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9041	9242	
==>if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9876	10077	
==>if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20516	20613	
==>ld be a wide variety of third party Engine
modules that become available over time.  One plan whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20516	20613	
==>ld be a wide variety of third party Engine
modules that become available over time.  One plan whic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10572	10678	
==>hods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10572	10678	
==>hods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21353	21463	
==>turn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17774	17884	
==>turn $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-be <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2808	2914	
==>s the representation of this node in the original text, or at
least a valid representation of it that "hono <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2808	2914	
==>s the representation of this node in the original text, or at
least a valid representation of it that "hono <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4183	4273	
==>------------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ------------------ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4206	4296	
==>-------
## BOOTSTRAPPING Class/Object COMPLETE
## ----------------------------------------- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12759	12877	
==>e set of generic vars to our body
fun: generic_in($.body) = { generic_in($$) }

# possibly amend the list of generic va <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	70	169	
==>say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11352	11456	
==>ay of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11352	11456	
==>ay of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	120	215	
==>currently unused
# XXX - see Pugs::Grammar::BaseCategory ws()

# placeholder for the Pod grammar <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6993	7090	
==>n)' directive is reached. This does not include 
the text of the header, that will be processed as <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6993	7090	
==>n)' directive is reached. This does not include 
the text of the header, that will be processed as <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5464	5563	
==>duration>),
    (map { $smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>),
    $smoke{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3046	3144	
==>'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'v <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	116	235	
==>IN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one pac <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	118	237	
==>IN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one pac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14817	14922	
==>h makes
it easy to create and use relational databases in a very reliable,
portable, and efficient way.  T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14817	14922	
==>h makes
it easy to create and use relational databases in a very reliable,
portable, and efficient way.  T <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7689	7842	
==>= Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Ar <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7689	7842	
==>= Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Ar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32849	32947	
==>ading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Translator <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32849	32947	
==>ading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Translator <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1124	1242	
==>or 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1124	1242	
==>or 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1050	1142	
==>iteman1dir} || $Config{installman1dir},
        installsiteman3dir => $Config{installsiteman3 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	582	686	
==>in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->new(0) }

sub gre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	0	100	
==>=head1 NAME

Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	0	100	
==>=head1 NAME

Cipher::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Ciphe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3260	3376	
==>st_version => $self->{version},
        license      => $self->{license},
    );
    $self->provides(%{ $build->find_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12320	12414	
==>tp://www.nntp.perl.org/group/perl.perl6.language/16578> for more
details and examples.



=item <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4059	4193	
==>, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4071	4205	
==>, referred as $0<a>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical v <==
2	/Users/nnunley/pugs/util/version_h.pl	1686	1805	
==>evision ||= 0;
print "Current version is $revision\n";

if ($revision != $old_revision) {
  # As we've closed STDIN (fil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2172	2288	
==>$q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2172	2288	
==>$q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1652	1773	
==>rams{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1652	1773	
==>rams{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.key <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6615	6729	
==>}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pai <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6615	6729	
==>}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pai <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	226	326	
==>NG = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	226	326	
==>NG = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10205	10303	
==>quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3208	3316	
==>);
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3196	3304	
==>);
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2582	2709	
==>t if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2582	2709	
==>t if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29422	29563	
==>ew('dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => met <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2840	2961	
==>c' in the Env, executing this tree will invoke
'&func':

    App(
        Sym('&func'),
        Val(1),
    ),

And also p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12185	12310	
==>_info->{$linkfile}}, $link;
      $links++;
    }
    
    if ($rest) {
       $rest = encode_entities($rest);
#      $body->p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12498	12611	
==>,
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5_num },
     );
sub p6_as_num <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6476	6577	
==><method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  Thi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6476	6577	
==><method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  Thi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10219	10321	
==>_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10219	10321	
==>_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5920	6045	
==>al ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5920	6045	
==>al ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($matc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5129	5258	
==>> chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "L <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5129	5258	
==>> chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "L <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10544	10643	
==>.}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10544	10643	
==>.}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29483	29588	
==>as merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj->omit(VALUE)

Whether thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8379	8499	
==>:Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8367	8487	
==>:Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10038	10155	
==>ipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._he <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10038	10155	
==>ipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11800	11900	
==>ield, $value )

Add a new field value for the specified header field.  Previous values
for the same f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11800	11900	
==>ield, $value )

Add a new field value for the specified header field.  Previous values
for the same f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11560	11657	
==>e elements in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11560	11657	
==>e elements in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )` <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8791	8899	
==>eSet0::NodeRepArray2::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	135	224	
==>ken("term:::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term::::", "term <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	837	941	
==>statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1043	1147	
==>statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$pr <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3777	3889	
==>ine\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { Chec <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3373	3476	
==>config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre - <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3373	3476	
==>config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8627	8735	
==>"" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8627	8735	
==>"" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirec <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5744	5860	
==>0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $da <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5744	5860	
==>0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $da <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2347	2442	
==>PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2347	2442	
==>PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4619	4718	
==>ule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4619	4718	
==>ule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the string <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22642	22741	
==>ter the tree has been created, this key is deleted; this gives the
code a way to be sure compilation <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1224	1322	
==>ts 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1224	1322	
==>ts 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40646	40745	
==>ULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40646	40745	
==>ULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16093	16209	
==>ource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16093	16209	
==>ource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32101	32205	
==>ody contains all of the tuples that are in either or both of the
invocant Relation and C<$other>; any dup <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36651	36755	
==>ody contains all of the tuples that are in either or both of the
invocant Relation and C<$other>; any dup <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6546	6642	
==>Please install GHC (6.4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9537	9671	
==>ocket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9537	9671	
==>ocket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      deb <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	105	213	
==>r - all it's doing is making the
# "source" property of the object fallback to "content"
method source($self: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	105	213	
==>r - all it's doing is making the
# "source" property of the object fallback to "content"
method source($self: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19124	19219	
==>ically if using the header(),
push_header() or init_header() methods to set the referrer.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19124	19219	
==>ically if using the header(),
push_header() or init_header() methods to set the referrer.

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	536	692	
==>}'        
        { $_[0]->{out}= { 'bare_block' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10	112	
==>gs::Emitter::Perl6::Perl5;

# p6-ast to perl5 emitter

use strict;
use warnings;
use Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1156	1258	
==>es/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1156	1258	
==>es/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4183	4308	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4183	4308	
==>ex[1],4,@index[2],2,0xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2662	2770	
==>rns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2662	2770	
==>rns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2072	2237	
==>atch}[0]->to, @_[6,7] );
            $state[0] = $st unless $state[1];
            
            
        } while !   $_[3]->{match}[1] && 
                ! ${$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2433	2566	
==>here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	425	509	
==>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_na <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2384	2497	
==>::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return undef };
   if $x < 0       { return <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1156	1252	
==>inting out its results.  This makes
analysis of the test results difficult for anything but a hum <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7128	7224	
==>t binary",
  ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @modfil <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10878	10992	
==>mpty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherwise the program will emit warn <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10878	10992	
==>mpty set.

`:is_universe` must be set if this recurrence is a "universal set".
Otherwise the program will emit warn <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6206	6303	
==>-> Role does Role
::opaque_instance_attrs($Role)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Rol <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8980	9075	
==>nts, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other ab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8980	9075	
==>nts, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other ab <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	618	742	
==>mise($s.[1]);
  return $s.[1];
}


sub is_promise($a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub prom <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1126	1229	
==>+ $right->to_num->to_native());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($right) && $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2583	2743	
==>bug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2583	2743	
==>bug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5348	5490	
==>{
        env  => {},
        next => undef
    } => $class;
}

sub create {
    my ($self, $name, $value) = @_;
    (defined $name) 
        | <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5607	5773	
==>hich will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6071	6237	
==>hich will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	627	740	
==>= timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=po <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	627	740	
==>= timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=po <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5962	6083	
==>ontent_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5962	6083	
==>ontent_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1711	1856	
==>e;
        }
        $s .= "\n  $k => " .$o->_indent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11736	11831	
==>Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11736	11831	
==>Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	843	999	
==>ule should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not cr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3105	3225	
==>False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if define <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3105	3225	
==>False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if define <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16390	16489	
==><gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This pr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16448	16547	
==><gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25790	25885	
==>age Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25790	25885	
==>age Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Ha <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4073	4188	
==>( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

metho <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4073	4188	
==>( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1982	2105	
==>uml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1982	2105	
==>uml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16283	16402	
==>$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11838	12071	
==>WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11838	12071	
==>WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'L <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1528	1632	
==>s from makemaker_args.

    $args->{test} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	427	555	
==>= shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($node);
	return if $node->atomic;

	return 1;
}

sub generic_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1996	2103	
==>, name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1996	2103	
==>, name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5976	6074	
==>y should be careful to avoid changing the 
actual semantics.

Please note that most of the time, it <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5976	6074	
==>y should be careful to avoid changing the 
actual semantics.

Please note that most of the time, it <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2232	2400	
==>_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%met <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2232	2400	
==>_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	974	1081	
==>e



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alternation is first match ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	937	1039	
==>e

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alternation is first match ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45370	45486	
==>ckage->send('add_attribute', (symbol->new('%:namespace') => attribute->new('%:namespace' => 'hash')));


$::Package-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3338	3446	
==>= $O.<[[Get]]>('valueOf');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5448	5557	
==>turn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5448	5557	
==>turn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3141	3239	
==>ed to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3141	3239	
==>ed to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the para <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	432	534	
==>rldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	432	534	
==>rldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8183	8283	
==>vailable for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# I <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8183	8283	
==>vailable for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# I <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9922	10028	
==>=> -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9922	10028	
==>=> -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	850	941	
==>or for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	850	941	
==>or for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22258	22360	
==>ting from multiple packages which
have the same method names as you or each other, or having multiple s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22258	22360	
==>ting from multiple packages which
have the same method names as you or each other, or having multiple s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6722	6827	
==><from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %users{~norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6722	6827	
==><from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %users{~norma <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21069	21341	
==>if => comb(
                        fun => ide("is_nil?"),
                        param => ide("xs"),
                    ),
                    then => val("n"),
                    else => comb(
                        fun => comb(
                            fun => ide <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29654	29766	
==>, you would have
to add it explicity to the queue for it to ever be executed.  As such,
it would be pre-consumpti <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6347	6460	
==>,
  using  => sub { getstore $grub_uri => $grub_local };

step
  descr  => "Fetching kernel from \"$kernel_uri\"", <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15635	15742	
==>ok, with @ids being class level.
        #my @ids = <year month day hour min sec picosec wday yday tzname tz <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	515	638	
==>---
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## --------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	515	638	
==>---
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## --------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4813	4972	
==>x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4825	4984	
==>x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35591	35819	
==>), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => 'attribute'),                                 
                          ),
                retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1358	1479	
==>et   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1358	1479	
==>et   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10567	10667	
==>N

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=it <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10567	10667	
==>N

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=it <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	957	1060	
==>( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrence set with full bidire <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	957	1060	
==>( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrence set with full bidire <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10092	10190	
==>The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10092	10190	
==>The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16016	16153	
==>d};
            my $source  = $link->{sourcepath};
            my $regex   = $link->{regex};

            # create a representation that i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2544	2652	
==>tory on the filesystem. Wipes out an existing one with the
same root path if it exists.

Returns a true value <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8751	8873	
==>un passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8809	8931	
==>un passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16376	16467	
==>evel
programming language named "Rosetta D", which is computationally complete
(and industri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16376	16467	
==>evel
programming language named "Rosetta D", which is computationally complete
(and industri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3005	3124	
==>onnected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %handler<001> = [ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3005	3124	
==>onnected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful login
  %handler<001> = [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4628	4790	
==>emit( $n->{param}{sub} );
            my @a = split "-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'pack <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22659	22766	
==>"length_and_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => ide("pair"),
				par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12466	12574	
==>rl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12466	12574	
==>rl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9677	9854	
==>nt( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9956	10133	
==>nt( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	647	801	
==>em("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs,
    'pugs=s'    => \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	117	256	
==>Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Quoting con <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1355	1458	
==>ection: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1355	1458	
==>ection: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12784	12902	
==>n $NO;
    }
}

=head2 C<_is_header>

  my $is_header = $strap->_is_header($line);

Checks if the given line is a heade <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24488	24602	
==>$s = eval {p6_as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined {
    my($x)=@_;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3747	3851	
==>thing we
write shouldn't need to have documentation/comments. If you need something
with more power, move <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3747	3851	
==>thing we
write shouldn't need to have documentation/comments. If you need something
with more power, move <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9139	9252	
==>ub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, $how);
  });

  # upp <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6374	6476	
==>e $grub_uri => $grub_local };

step
  descr  => "Fetching kernel from \"$kernel_uri\"",
  help   => "Re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21368	21524	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _my =>  matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21647	21803	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _my =>  matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14585	14714	
==>OSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8787	8894	
==>OSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3237	3348	
==>omplement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3237	3348	
==>omplement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	121	265	
==>:Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	121	265	
==>:Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUI <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1980	2132	
==>lse {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1958	2110	
==>lse {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9750	9885	
==>s->{$line} = 0 if $test->{ok}||0 == 0;
          } else { 
              # skipped tests do not carry the a line number, so leave them o <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22158	22273	
==>f ($list_len < length($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $Columns - length( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4829	4960	
==>2),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4829	4960	
==>2),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7624	7735	
==>];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7624	7735	
==>];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($k <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1808	1952	
==>unk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1808	1952	
==>unk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7391	7518	
==>*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq ' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7391	7518	
==>*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7764	7900	
==>($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7764	7900	
==>($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1535	1663	
==>@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1535	1663	
==>@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($ <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	733	863	
==>undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Siglet) syntax works better
# sub parser (Code $f) { $f }

## Chapter 8 secti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	429	544	
==>shift;
    $match .= '';
    # print "Grammar::Expression::AST '$match' \n";
    my $p;
    my $last = length( $matc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11702	11808	
==>s
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header( $field, $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11702	11808	
==>s
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header( $field, $va <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9050	9232	
==>n ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }


=item reduce

 multi Array::r <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	508	641	
==>n ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, $expression.arity) );
	}
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	375	479	
==>dy>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remo <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	375	479	
==>dy>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3320	3442	
==>$set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3320	3442	
==>$set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31939	32043	
==>ated to this object (like for OPEN and back
references).

=item off

The flags specifically turned off fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10765	10862	
==>which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could pot <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10765	10862	
==>which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could pot <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3609	3705	
==>orithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3609	3705	
==>orithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce <==
2	/Users/nnunley/pugs/util/testgraph.pl	1321	1432	
==>he smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	820	911	
==>etermine a VERSION for this distribution.
Please call the 'version' or 'version_from' functi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4114	4215	
==>.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4114	4215	
==>.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 ) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16589	16699	
==>tr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21015	21125	
==>tr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9443	9575	
==>return $S->$n;
    }
  });

  $self->add_handler(':::' => sub {
    my ($S) = @_;
  });


  ### '#'

  # I don't think I need to hand <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1892	2019	
==>ol $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1892	2019	
==>ol $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20169	20275	
==>n its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20169	20275	
==>n its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10426	10527	
==>, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10426	10527	
==>, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13297	13423	
==>is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key}
 delete %hash<key>                 %hash.delete{'k <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8273	8380	
==>);
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks lik <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8331	8438	
==>);
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks lik <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	665	789	
==>thod end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

meth <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	665	789	
==>thod end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8551	8649	
==>, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2376	2474	
==>, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3346	3472	
==>xts ) {
        my $admin = $self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $o <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6568	6681	
==>p a few
# zombies around for a relatively short while.
sub gather_results {
    my($self) = @_;
    my $kid;
    f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4	147	
==>age Perl6::Rule::Parser;

use base 'Regexp::Parser';


our $non_nest_brack = qr{
  \[ [^]]* \] |
   { [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
} <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2043	2143	
==>);

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glo <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2043	2143	
==>);

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5025	5128	
==>tta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and whe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5025	5128	
==>tta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and whe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2510	2601	
==>scribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compile <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2510	2601	
==>scribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compile <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13950	14050	
==>eredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13950	14050	
==>eredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	172	304	
==>nu/doc/html/bison_[6,8].html

# notes:
#  'assoc' is one of:  nonassoc / right / left

my $g = <<'EOT';
%{ my $out; %}

%left <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7693	7800	
==>ub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1509	1653	
==>$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6246	6347	
==>pdate %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6246	6347	
==>pdate %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $even <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8221	8351	
==>lf.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</& <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8221	8351	
==>lf.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</& <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16558	16690	
==>t = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(subs <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15610	15734	
==>t = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(subs <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4402	4621	
==>.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4402	4621	
==>.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</P <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7220	7357	
==>ulti Array::grep (@values ;      Code *&test   --> Lazy )
{
    gather {
	for @values -> $x {
	    take $x if &test($x);
	}
    }
}
# sign <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2226	2340	
==>\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ /osname: ([\w\d]+)/      and $smoke{osname}        = $1;
  $html <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26298	26398	
==>lue can be anything at
all.  Note that while the Hash itself is copied on input and output, any
varia <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26298	26398	
==>lue can be anything at
all.  Note that while the Hash itself is copied on input and output, any
varia <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	67	174	
==>pt Language Specification, 3rd Edition
#    Appendix A.
#
#  Changes to specification grammar.
#   * Regular <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4426	4565	
==>/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4619	4758	
==>/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	293	399	
==>nstall.pm} set to installed version of inc::Module::Install
#     3. The installed version of inc::Module:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40657	40757	
==>E.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40657	40757	
==>E.  See the LGPL for more
details.

While it is by no means required, the copyright holders of
Locale <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17045	17208	
==>0 = find_global "PGE::Rule", "p6rule"
    exp = $P0(exp)
    unless exp goto end
    $S0 = exp
    if $S0 != pattern goto end
    pad = new .Hash
    $P0 = new .Has <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6515	6655	
==>r), return;

    return
        map { $self->index->file($_) }
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

su <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5399	5500	
==>ing or a reference to a URI object.

You will not be able to examine the response code or response hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5399	5500	
==>ing or a reference to a URI object.

You will not be able to examine the response code or response hea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3460	3563	
==>method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3460	3563	
==>method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::In <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	758	963	
==>op::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	759	964	
==>op::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1026	1135	
==>s Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1026	1135	
==>s Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9177	9268	
==>sh @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_si <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3002	3093	
==>sh @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10768	10897	
==>Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10768	10897	
==>Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Ros <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5772	5884	
==>he C<Cipher> 
class itself; in fact, the only method that truly must be implemented is the 
one that actually enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5772	5884	
==>he C<Cipher> 
class itself; in fact, the only method that truly must be implemented is the 
one that actually enc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2313	2435	
==>ave a rel2abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) );

        ### singleton
        return $cache{ <==
2	/Users/nnunley/pugs/util/testgraph.pl	185	280	
==>Spec;

GetOptions \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20820	20926	
==>dispatcher (symbol new DESTROY)))))))

=cut

$::Class->send('add_method' => (
    # method label
        sy <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9696	9794	
==>or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9696	9794	
==>or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1018	1129	
==>pl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessors( qw[reposi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	233	329	
==>cc_files to reduce confusion and keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15202	15298	
==>listed in their Document's Root Nodes property; in a
manner of speaking, the Document itself is t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15202	15298	
==>listed in their Document's Root Nodes property; in a
manner of speaking, the Document itself is t <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3179	3328	
==>pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq '"PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '" <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14309	14443	
==>) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{$_} // $_ }, self.split('');
    }
}


sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20619	20716	
==>cific to the program
in the order you chose so to pick a supported language closest to your
prefer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20619	20716	
==>cific to the program
in the order you chose so to pick a supported language closest to your
prefer <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22463	22560	
==>, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22463	22560	
==>, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8347	8457	
==>greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8058	8163	
==>greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1537	1677	
==>}
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{out}= { attribute => [
                [$_[2], $_[3],],
            ], %{$_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5492	5588	
==>s_exec_hook != NULL) { croak("can't install twice"); }
  previous_exec_hook = PL_regexecp;
  PL_r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19797	20031	
==>" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20076	20310	
==>" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9599	9713	
==>= undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9599	9713	
==>= undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34202	34295	
==>ept>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38752	38845	
==>ept>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13380	13485	
==>dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13380	13485	
==>dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, <==
2	/Users/nnunley/pugs/util/package-osx.pl	3969	4066	
==>l6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/local/man/man3/P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	920	1044	
==>lla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	920	1044	
==>lla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => ' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1342	1444	
==>er;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unles <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1342	1444	
==>er;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unles <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1683	1859	
==>ack} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push(' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1683	1859	
==>ack} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push(' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2517	2641	
==>lean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2517	2641	
==>lean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is_absolute($base)) { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6682	6781	
==>value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6682	6781	
==>value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1034	1127	
==>guration:\n" . PugsBuild::Config->pretty_print;

    my ($version, $ghc, $ghc_version, $setup, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14920	15043	
==>IRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14920	15043	
==>IRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7493	7598	
==>ctories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7493	7598	
==>ctories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	289	391	
==>arnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performanc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	300	402	
==>arnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for performanc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	310	413	
==>DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	310	413	
==>DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9955	10090	
==>ess defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9955	10090	
==>ess defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1204	1305	
==>rray of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1204	1305	
==>rray of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14521	14638	
==>channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14521	14638	
==>channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10789	10928	
==>id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10789	10928	
==>id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_pers <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2184	2292	
==>map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2184	2292	
==>map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1018	1126	
==>ft;
    my $struct  = $self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_from_struc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19432	19530	
==>you only have to update said separate resource files, and not change
your main program.

I<Note tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19432	19530	
==>you only have to update said separate resource files, and not change
your main program.

I<Note tha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17116	17246	
==>ermutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17116	17246	
==>ermutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10024	10209	
==>use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10024	10209	
==>use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3124	3259	
==>9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3124	3259	
==>9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4506	4592	
==>[8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+& <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4506	4592	
==>[8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+& <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1661	1773	
==>e;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1661	1773	
==>e;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3960	4067	
==>of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3960	4067	
==>of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6926	7094	
==>py) {
        my $path = dir($key)->subdir($pkg->meta->$key);
        
        # maybe use another mechanism to call arbitrary stuff on the package
        # obj? otherw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20671	20768	
==>r, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20671	20768	
==>r, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2402	2499	
==>s($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2402	2499	
==>s($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5519	5645	
==>tract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6016	6137	
==>tract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2285	2396	
==>int IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2285	2396	
==>int IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37714	37826	
==>its positional parameter
$module_name (a string), and a Message Key in its positional parameter
$msg_key (a strin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37714	37826	
==>its positional parameter
$module_name (a string), and a Message Key in its positional parameter
$msg_key (a strin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17634	17733	
==>s.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17634	17733	
==>s.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want to s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3282	3394	
==>a }
        map { split /,/ } @{ $Config{exclude} };
    $Config{exclude_re} = qr/($excl)/ if $excl;
}

sub _buil <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4416	4511	
==>automatically generates a gzipped initrd suitable for GRUB.
  --initrd-img=$initrd_img
    --ini <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	225	337	
==>le {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	189	301	
==>le {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29983	30091	
==>key.  Each template hash
key corresponds to the Message Key attribute of a Message object, and each
hash valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29983	30091	
==>key.  Each template hash
key corresponds to the Message Key attribute of a Message object, and each
hash valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3556	3703	
==>\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3544	3691	
==>\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	83	205	
==>ket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stre <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	83	205	
==>ket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4819	4912	
==>odule provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4959	5052	
==>odule provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentati <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1614	1728	
==>header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str : <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1614	1728	
==>header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str : <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2744	2878	
==>'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst'}         = [ 'POSTINST.pl'   ];
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3306	3403	
==>all => $() } }
RULE
*{'_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6757	6862	
==>$got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshift(@me <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3333	3447	
==>r section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3333	3447	
==>r section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3020	3120	
==>rloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3020	3120	
==>rloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9948	10047	
==>w
other operations.

This class also provides methods for iterating through the set, and for queryin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9948	10047	
==>w
other operations.

This class also provides methods for iterating through the set, and for queryin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11871	11971	
==>Previous values
for the same field are retained.

As for the header() method, the field name ($field) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11871	11971	
==>Previous values
for the same field are retained.

As for the header() method, the field name ($field) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37138	37228	
==>head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1608	1725	
==>be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1608	1725	
==>be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25233	25328	
==>mponents, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25233	25328	
==>mponents, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7764	7888	
==>previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7764	7888	
==>previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating comple <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2401	2492	
==>lice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2401	2492	
==>lice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12229	12332	
==>ue $class: str $canidate, hash %params) returns opaque {
    $canidate //= 'P6opaque';
    my $self = $c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	462	566	
==>as Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	462	566	
==>as Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	59	166	
==>cape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	59	166	
==>cape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTT <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2989	3082	
==>@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2989	3082	
==>@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12787	12980	
==>al $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12781	12974	
==>al $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5331	5439	
==>cks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the numbe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5331	5439	
==>cks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calculate the numbe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18785	18886	
==>parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18785	18886	
==>parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1827	1949	
==>ase is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1827	1949	
==>ase is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21247	21340	
==>g the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("rea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21247	21340	
==>g the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("rea <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7568	7690	
==>ed -e ccopts,ldopts`));
    }
    chomp $ghc_flags;

    return ($ghc, $ghc_version, $ghc_flags, $self->assert_ghc_pkg($ghc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21467	21563	
==>though several attributes may store values of the same class;
every Relation tuple must be distin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26019	26115	
==>though several attributes may store values of the same class;
every Relation tuple must be distin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18886	19006	
==>lling in your programs and still send the right
thing on the wire.

When setting the referrer, this method removes the fr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18886	19006	
==>lling in your programs and still send the right
thing on the wire.

When setting the referrer, this method removes the fr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7020	7161	
==>},
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7020	7161	
==>},
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Pe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2404	2518	
==>1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2404	2518	
==>1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15300	15411	
==>or implement it, and so an
application written to it should behave identically no matter which
conforming "Engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15300	15411	
==>or implement it, and so an
application written to it should behave identically no matter which
conforming "Engin <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2032	2123	
==>("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postf <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2104	2195	
==>("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postf <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3681	3792	
==>ption. See links or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3681	3792	
==>ption. See links or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3837	3982	
==>s -> ()
                my $self = shift;
                my $values = shift;
                push @{$self->get_value('@:slots')}, mk_containers(@ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6074	6206	
==>$_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6074	6206	
==>$_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $ba <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11843	12019	
==>\n" : print "no match\n" },
        },
        \&variable
    )
=cut

=for later
sub wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{be <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6857	6975	
==>d: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($file)";
        push @{ $self->{meat}{test_file <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7136	7259	
==>ap { m|^.*/(\D\d\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $sy <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5834	5930	
==>_meta('Pair')->new('$.key' => $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scala <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	851	951	
==>l, not the character level, so different 
character encodings may be enciphered in different ways.

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	851	951	
==>l, not the character level, so different 
character encodings may be enciphered in different ways.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1854	1971	
==>, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1994	2111	
==>, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $self->{c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1628	1728	
==>s Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1628	1728	
==>s Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25240	25332	
==>.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25240	25332	
==>.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1669	1770	
==>p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

P <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1669	1770	
==>p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9164	9335	
==>@ if \$\@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $gra <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14257	14383	
==>e;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->va <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1737	1863	
==>e;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11235	11449	
==>rn abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $str = $_[0];
        my $match = $op->( @ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3301	3453	
==>$a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    }) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3301	3453	
==>$a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20619	20722	
==>TREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17040	17143	
==>TREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1275	1409	
==>ge($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1275	1409	
==>ge($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6936	7056	
==>);
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6936	7056	
==>);
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5074	5168	
==>dified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodifie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5074	5168	
==>dified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodifie <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	209	308	
==>self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	209	308	
==>self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12524	12635	
==>lass, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12524	12635	
==>lass, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35528	35623	
==>array
ref.

=item C<as_debug_string()>

This method returns a stringified version of this object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35528	35623	
==>array
ref.

=item C<as_debug_string()>

This method returns a stringified version of this object <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1003	1116	
==>xtasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textasciitilde{}";
	    return;
	} elsif ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	51	145	
==>s is questionable.


# verbatim from perl-5.9.2/t/op/regexp.t
our $bang = sprintf "\\%03o", ord <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3160	3272	
==>averse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq '"PNi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11727	11835	
==>my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data::Dumper::Terse = 1; # no need for pointle <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	911	1035	
==>,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	911	1035	
==>,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	450	554	
==>ge #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	450	554	
==>ge #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1760	1864	
==>d contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1760	1864	
==>d contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1404	1521	
==>e );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1404	1521	
==>e );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3597	3696	
==>diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_dif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3597	3696	
==>diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_dif <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5836	5987	
==>-Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5836	5987	
==>-Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	152	355	
==>:alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	153	356	
==>:alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 , <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34438	34548	
==>er
@set_names (an array ref), and Member Names is set from the named parameter
@member_names (an array ref).

S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34438	34548	
==>er
@set_names (an array ref), and Member Names is set from the named parameter
@member_names (an array ref).

S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20312	20430	
==>substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16733	16851	
==>substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2024	2278	
==>n

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface::Comman <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2024	2278	
==>n

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface::Comman <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2934	3043	
==>ow is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2934	3043	
==>ow is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1993	2106	
==>ersion of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1993	2106	
==>ersion of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3560	3664	
==>et_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5327	5437	
==>xact_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11	115	
==>pl - most of Test::More functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $nopl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5288	5435	
==>talled packages. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5752	5899	
==>talled packages. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### h <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7793	7891	
==>'=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=back' di <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7793	7891	
==>'=over' directive is reached.

=item I<end_element ('list')>

This event is fired when a '=back' di <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14480	14585	
==>000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14480	14585	
==>000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6211	6333	
==>n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _emit( $n->{sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17266	17384	
==>fined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2877	2990	
==>foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5076	5189	
==>foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	396	513	
==>Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	396	513	
==>Server - A CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3800	3979	
==>@$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that sat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4264	4443	
==>@$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that sat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2517	2642	
==>we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2434	2555	
==>we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1425	1536	
==>cktracking parsers such
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack clos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1425	1536	
==>cktracking parsers such
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack clos <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12949	13066	
==>he unit is added to the current value to get the next value.
The unit specifier is also used internally when joining t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12949	13066	
==>he unit is added to the current value to get the next value.
The unit specifier is also used internally when joining t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5328	5566	
==>keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( @{$assoc{$_}} ) {
                    if ( $op->{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	463	573	
==>cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	463	573	
==>cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<Vari <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14504	14617	
==>ssion>
    | <'void'> <UnaryExpression>
    | <'typeof'> <UnaryExpression>
    | <'++'> <UnaryExpression>
    | <' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1095	1249	
==>a::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1095	1249	
==>a::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        me <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8094	8196	
==>tem')>

This event is fired once the last '=item' directive, followed by any text on the same line.

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8094	8196	
==>tem')>

This event is fired once the last '=item' directive, followed by any text on the same line.

=i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13533	13667	
==>_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_per <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13533	13667	
==>_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2535	2659	
==>)     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2535	2659	
==>)     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_gramm <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	392	498	
==>$val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	392	498	
==>$val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5352	5540	
==>h;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$le <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5352	5540	
==>h;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$le <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16792	16907	
==>self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13213	13328	
==>self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1813	1909	
==>rimitive dispatch.

Lit is divided to various intrinsic object types, including

intrinsic Code ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1742	1836	
==>rimitive dispatch.
Lit is divided to various intrinsic object types, including
intrinsic Code ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2634	2767	
==>nted: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2634	2767	
==>nted: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	226	367	
==>lback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantia <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	226	367	
==>lback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantia <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22636	22734	
==>s 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains z <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27188	27286	
==>s 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains z <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8140	8238	
==>ew()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifien <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8140	8238	
==>ew()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifien <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6488	6641	
==>2f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

su <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	243	334	
==>package');
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("main",'package');
    Pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18019	18119	
==>s for the human
user who controls the requesting user agent.  The address should be
machine-usable, a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18019	18119	
==>s for the human
user who controls the requesting user agent.  The address should be
machine-usable, a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9345	9453	
==>size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9345	9453	
==>size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4579	4691	
==>t implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4579	4691	
==>t implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4171	4271	
==>96+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4171	4271	
==>96+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3083	3197	
==>start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3083	3197	
==>start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_is_open = Boo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3486	3582	
==>nctional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, yo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3486	3582	
==>nctional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, yo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12313	12435	
==>din };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (defined $a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7743	7840	
==>_var_CODE($pVarName);
}
NODE PApp ($pCxt, $pFun, $pInv, $pArgs) {
    my $has_inv = defined($pInv) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8771	8998	
==>if ($detail->{reason}) {            
                    $todos{$detail->{reason}}++
                }
                else {
                    $todos{'__'}++
                }   
            }
        }
        ## XXX - End P <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	227	344	
==>} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# su <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	227	344	
==>} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2345	2473	
==>$_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2345	2473	
==>$_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7215	7377	
==>_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7215	7377	
==>_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11096	11222	
==>scardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11096	11222	
==>scardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10100	10207	
==>class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10100	10207	
==>class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $lis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4324	4436	
==>1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4517	4629	
==>1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19982	20073	
==>eadonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_traff <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19982	20073	
==>eadonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_traff <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4796	4891	
==>ESCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl librar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4796	4891	
==>ESCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl librar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3150	3288	
==>!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3367	3505	
==>!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22240	22344	
==>row, and each attribute is a column, but a Relation is not a table.

The Relation class is pure and deter <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26792	26896	
==>row, and each attribute is a column, but a Relation is not a table.

The Relation class is pure and deter <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9345	9479	
==>0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - tes <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9345	9479	
==>0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - tes <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4441	4542	
==>ed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4441	4542	
==>ed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1023	1139	
==>rent_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1023	1139	
==>rent_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($current_tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1169	1286	
==>sure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1169	1286	
==>sure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <varia <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4389	4515	
==>azy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.is <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4389	4515	
==>azy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.is <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7032	7150	
==>242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7032	7150	
==>242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2868	2976	
==>:PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2868	2976	
==>:PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3842	3942	
==>diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::c <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3842	3942	
==>diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7795	7914	
==>at.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        las <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7795	7914	
==>at.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        las <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4983	5085	
==>tion of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4983	5085	
==>tion of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Te <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	622	726	
==>$CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	622	726	
==>$CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26422	26524	
==>ferences will be passed by reference, so you
may store references to other objects in them if you wish. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26422	26524	
==>ferences will be passed by reference, so you
may store references to other objects in them if you wish. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1721	1832	
==>toping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # D <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1721	1832	
==>toping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # D <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7692	7824	
==>et () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7692	7824	
==>et () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	276	395	
==>ename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	276	395	
==>ename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') || <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	768	881	
==>ef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	768	881	
==>ef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of capture <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17805	17901	
==>(Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21584	21688	
==>opic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21584	21688	
==>opic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's to <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	435	531	
==>Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	435	531	
==>Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11437	11550	
==>NV entries, so
        # toss the ones that involve perl_root, the install location
        @inc = grep !/perl_roo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22046	22159	
==>a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from origin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16948	17060	
==>a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from origin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1166	1283	
==>od BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Li <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1166	1283	
==>od BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4180	4279	
==>ch has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns posi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4180	4279	
==>ch has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns posi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2654	2776	
==>ong type for " . $param->to_str->to_native . " got($arg) -> expected($param_type)"
                    if $param_type ne '' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11927	12031	
==>d>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop nam <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3104	3224	
==>}
    
    ### takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_depend <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2539	2641	
==>de = shift;

	$self->resolve_type($node->type);
}

sub resolve_type {
	my $self = shift;
	my $type = sh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7515	7762	
==>val "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### fin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7979	8226	
==>val "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### fin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	190	298	
==>d; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	190	298	
==>d; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4473	4576	
==>t to STDOUT (details above).  It prints
out each individual test which failed along with a summary repor <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1497	1592	
==>FILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1337	1432	
==>FILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8118	8216	
==>mar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1943	2041	
==>mar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
pu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7323	7453	
==>];
    }, $path ) if -d $path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1034	1147	
==>local $@;   # don't care if there are errors here
      local @ARGV = ();  # "You may not specify any filenames .. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	654	783	
==>y \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	647	776	
==>y \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Du <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	428	564	
==>r $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	428	564	
==>r $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14941	15100	
==>t( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15220	15379	
==>t( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20572	20672	
==>become available over time.  One plan which I favor is that
the new (under development) enterprise-st <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20572	20672	
==>become available over time.  One plan which I favor is that
the new (under development) enterprise-st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17779	17888	
==>d routines
within the virtual machine, input data to it, and output data from it.

You can create more than on <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17779	17888	
==>d routines
within the virtual machine, input data to it, and output data from it.

You can create more than on <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5695	5802	
==>trict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10653	10747	
==>tions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10711	10805	
==>tions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13970	14110	
==>= $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5477	5579	
==>1 DESCRIPTION

This module provides an implementation for Perl 6 Rule categories.  

The module is stil <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9264	9369	
==>(Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9264	9369	
==>(Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	750	860	
==>ool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	750	860	
==>ool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
metho <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	301	419	
==>filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed wit <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	301	419	
==>filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23131	23234	
==>s like you
are supposed to pass in english text and they translate it, which could
produce ambiguous res <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23131	23234	
==>s like you
are supposed to pass in english text and they translate it, which could
produce ambiguous res <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14771	14869	
==>r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

Th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14771	14869	
==>r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

Th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21294	21388	
==>atabases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21294	21388	
==>atabases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	402	501	
==>FIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    toke <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9867	9965	
==>::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9867	9965	
==>::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7201	7302	
==>TP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7201	7302	
==>TP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10315	10514	
==>} @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find the alterna <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14361	14500	
==>v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
}
{
  # the N in (?(N)t|f) when N is a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2715	2816	
==>ver)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2715	2816	
==>ver)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7225	7349	
==>extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7225	7349	
==>extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method se <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	97	194	
==>acccessor - all it's doing is making the
# "source" property of the object fallback to "content"
m <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	97	194	
==>acccessor - all it's doing is making the
# "source" property of the object fallback to "content"
m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18944	19047	
==>ation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18944	19047	
==>ation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_tr <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2552	2655	
==>s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

conv_open {
    s/open (${re_scopeop}? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8559	8704	
==>cktrack or whatever

                            

=for notes about fail()

shouldn't matchfail still be returning something?

maybe just overload <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8274	8415	
==>cktrack or whatever
                            
=for notes about fail()
shouldn't matchfail still be returning something?
maybe just overload <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11452	11543	
==>n") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11452	11543	
==>n") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10858	10980	
==><The following informational functions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10858	10980	
==><The following informational functions are fetched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	502	593	
==>is module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for docum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	502	593	
==>is module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for docum <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9022	9120	
==>ied under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <encipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9022	9120	
==>ied under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <encipherin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37036	37133	
==>ss also has these utility methods, which are all used by
translate_message() to handle the trickie <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37036	37133	
==>ss also has these utility methods, which are all used by
translate_message() to handle the trickie <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4069	4160	
==>l>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodCo <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4069	4160	
==>l>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodCo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2443	2529	
==>6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt> <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2443	2529	
==>6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12863	12960	
==>ext -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12863	12960	
==>ext -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25649	25745	
==>nd thus why I'm using
C<${&Rx}> everywhere, it's because an lvalued subroutine returning a
normal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14096	14231	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14375	14510	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       rul <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5804	5909	
==>s_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5804	5909	
==>s_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2226	2328	
==>a\\\'"') {
    $backslash_escape{ord eval "\"\\$x\""} = "\\$x";
}
# A way to display scalars containing <==
2	/Users/nnunley/pugs/util/package-osx.pl	5182	5283	
==>7.3pm
        /usr/local/man/man3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Perl6::Bible::S29. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	338	445	
==>il::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	338	445	
==>il::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3868	3970	
==>::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3868	3970	
==>::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6976	7073	
==>e same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6976	7073	
==>e same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibli <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14178	14296	
==>if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14178	14296	
==>if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18352	18479	
==>sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($conversio <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7846	7943	
==>ices match
C<$index ~~ any(@indextests)> are iterated.

What is returned at each element of the it <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3791	3888	
==>s a bash-compatible shell.
  --inputrc=$inputrc
    The readline library likes to have a /etc/inpu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3569	3674	
==>n $matchObj;
}

sub sp {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5 <==
2	/Users/nnunley/pugs/util/package-osx.pl	9857	9976	
==>-d "$dest$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copying $from to $dest$f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21758	21855	
==>$space_from_sigil{$_},$_} keys(%space_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)=@_;
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5409	5559	
==>turn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5409	5559	
==>turn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38161	38284	
==>od:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self->{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20430	20520	
==>1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings ar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20430	20520	
==>1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings ar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6328	6438	
==>thod store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6328	6438	
==>thod store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4255	4371	
==>~$x & $x) eq 0);
    return ($cls eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8090	8223	
==>w(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8090	8223	
==>w(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25211	25297	
==>ugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25211	25297	
==>ugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5781	5912	
==>{
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->raw();
    return sub{
      FAIL() if !($X::pos == 0);
      my $c = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4429	4536	
==>w('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects:

- `year()`

Return <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4429	4536	
==>w('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects:

- `year()`

Return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6829	6952	
==>{ 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6829	6952	
==>{ 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15977	16074	
==>tion.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16035	16132	
==>tion.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6069	6174	
==>hereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6069	6174	
==>hereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5618	5743	
==>ldren -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5618	5743	
==>ldren -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2120	2338	
==>on,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1119	1239	
==>.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->coroutine() )
  {
    #execute co <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1721	1821	
==>my $sym_flag = (int(rand() * 10)) % 2;
	my $selector = (int(rand() * 100)) % @l.elems;

	@l[$selector <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25580	25662	
==>,J)),X,amat(C0,flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6305	6465	
==>s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl versi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5813	5973	
==>s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl versi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11985	12081	
==>n b&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11985	12081	
==>n b&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18789	18908	
==>s beginning with a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - T <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18789	18908	
==>s beginning with a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3838	3947	
==>sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4055	4164	
==>sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2110	2218	
==>_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2110	2218	
==>_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17878	17985	
==>ore than one DBMS object at a time, and they are
essentially all isolated from each other, even if more than <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17878	17985	
==>ore than one DBMS object at a time, and they are
essentially all isolated from each other, even if more than <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	578	701	
==>:

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	578	701	
==>:

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1781	1883	
==>, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comp <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1781	1883	
==>, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comp <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	851	981	
==>('=',$_);
        %Session{$variable} = url_decode($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7331	7455	
==>_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bless {
      r <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7414	7514	
==>n terms of kv, and leave kv a stub {...}.
 multi Array::keys   (@array ; MatchTest *@indextests --> I <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5791	5887	
==>le.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5791	5887	
==>le.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1296	1428	
==>or die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not load files list <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1677	1776	
==>>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is cons <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1677	1776	
==>>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is cons <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1480	1582	
==>^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date { <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1480	1582	
==>^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6295	6400	
==>n $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6295	6400	
==>n $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2436	2563	
==>" .
            "use Pugs::Compiler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "use base 'Pugs::Gramm <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8270	8380	
==>tor::nullary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "can't unify $x->{na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3868	3968	
==>eyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator class, that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3868	3968	
==>eyedText::Translator {

    # External packages used by the Locale::KeyedText::Translator class, that <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23211	23308	
==>s_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27763	27860	
==>s_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Relation is allowed to a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6099	6191	
==>self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  package Regexp::Parser::anyof_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10009	10097	
==>) { pil_diff($c0,$c1) }
}

package PIL::PIL1CPerl5::Util::FilterNodeDefs;
our($package_na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7129	7245	
==>er work on a specific regex, you can do use any of the
following methods:

=over 4

=item $parser = Regexp::Parser->n <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	714	817	
==>::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3." <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	714	817	
==>::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3." <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3841	4011	
==>ble #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3841	4011	
==>ble #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3378	3475	
==>me)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3378	3475	
==>me)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=ba <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3113	3207	
==>eturns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3113	3207	
==>eturns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5551	5738	
==>t} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsif ( $ast->{stmt} eq '{' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            els <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2770	2862	
==>quoted})/$1 = open $2/g;
}

conv_condition {
    if(/(${re_condition})\s*($RE{balanced}{-pare <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23508	23612	
==>"...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMS <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23508	23612	
==>"...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMS <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2112	2215	
==>pport for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message ( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2112	2215	
==>pport for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4515	4594	
==>dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4515	4594	
==>dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5587	5692	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5645	5750	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	222	328	
==>ile:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	222	328	
==>ile:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1494	1599	
==>udes the parameters as well as anything declared within

that scope.



the Sig contains a simply structur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1432	1534	
==>udes the parameters as well as anything declared within
that scope.

the Sig contains a simply structur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33975	34074	
==>f preferred ones aren't supported by a program or its libraries.
When translating a message, a match <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33975	34074	
==>f preferred ones aren't supported by a program or its libraries.
When translating a message, a match <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1402	1513	
==>=> --$ENUM, 'Missing right brace on \%s{}';
use constant RPe_BGROUP => --$ENUM, 'Reference to nonexistent group' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2235	2340	
==>macro gram ($name) { "rule $name :words" },
#     rather than having the clutter of lots of explicit :word <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1032	1172	
==>r) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1201	1341	
==>r) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #pr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5631	5744	
==>( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5631	5744	
==>( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe = <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	70	187	
==>eading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	70	187	
==>eading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2425	2525	
==>sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2425	2525	
==>sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code as <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8565	8665	
==>terpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8565	8665	
==>terpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	727	838	
==>ht ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.height >= $child_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	727	838	
==>ht ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.height >= $child_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	115	222	
==>pherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	115	222	
==>pherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3428	3540	
==>ub_local
    Locally, the GRUB tarball is saved as --grub-local.
  --pugs=$pugs
    mklivecd.pl takes --pugs as t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23990	24100	
==>β. α → β", "pretty print a -> b");

	$b->instantiate( type::operator::nullary->new("int") );
	is($type-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3612	3698	
==>e-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3796	3882	
==>e-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :fl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	101	222	
==>ig;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	110	231	
==>ig;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3553	3650	
==>Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Reg <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	107	203	
==>ame;

# SubType is SubMethod | SubRoutine | SubBlock | SubPrim
enum SubType «SubMethod SubRoutin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2882	2980	
==>ethod union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2882	2980	
==>ethod union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$othe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1255	1384	
==>6 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # Web <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1255	1384	
==>6 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # Web <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5606	5726	
==>l: $!";
    print META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10682	10849	
==>:p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10961	11128	
==>:p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19963	20060	
==>ation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19963	20060	
==>ation.

This is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE< <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8975	9109	
==>tring ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newli <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8975	9109	
==>tring ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newli <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	91	220	
==>ananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

say "$wer hat einen $haustier";
say "$wer mag @obst[0] und @o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4748	4856	
==>class' => $Class,
);

# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10686	10783	
==>lues, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10686	10783	
==>lues, and
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1510	1630	
==>() { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1510	1630	
==>() { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has P <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1050	1146	
==>tware returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1050	1146	
==>tware returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str>

=back <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11004	11104	
==>L5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtered_INC>

  my @f <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	190	284	
==>tp.perl.org/group/perl.perl6.language/22258">.

module t::packages::RequireAndUse1 {
  23;
}

4 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6017	6166	
==>4)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6017	6166	
==>4)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9654	9754	
==>ndles an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9654	9754	
==>ndles an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1238	1389	
==>{
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1238	1389	
==>{
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # What is the IRC server <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5499	5629	
==>pture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @para <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5324	5449	
==>pture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @para <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26101	26194	
==>this Relation::Example.  Each attribute name is a character
string.

=item C<$!body> - B<Relat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5562	5651	
==>um < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5562	5651	
==>um < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24844	24965	
==>> sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21265	21386	
==>> sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13593	13728	
==>se  => 1,
    help   => <<HELP;
      Please umount \"$initrd_img\" by entering the following command as root:
      # umount $initrd_im <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10291	10390	
==>t C<-depth>, it returns the depth to which it will
look:

  while (my ($node, $depth) = $iter->()) { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2280	2390	
==>af(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    fo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2280	2390	
==>af(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    fo <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3635	3735	
==>$iso8601_dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<->( $self: Int|Rea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24076	24182	
==>}

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20497	20603	
==>}

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2708	2884	
==>&& defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2708	2884	
==>&& defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11933	12029	
==>eader() method, the field name ($field) is not case
sensitive and '_' can be used as a replacemen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11933	12029	
==>eader() method, the field name ($field) is not case
sensitive and '_' can be used as a replacemen <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	373	484	
==>ly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.n <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	373	484	
==>ly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28286	28436	
==>eral>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28565	28715	
==>eral>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match, <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1578	1713	
==>. ' $_[2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = shif <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8792	8900	
==>" : "";
    #$type." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE T <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4569	4669	
==>6($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4569	4669	
==>6($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6199	6293	
==>@array:) returns Hash {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4390	4495	
==>113
}

 multi method Array::delete (@array ; *@indices --> List )
 { ... } # XXX


 multi method Array::ex <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1234	1329	
==>rator

use Language::AttributeGrammar;

# this attribute grammer pretty prints bare types (no fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	810	911	
==>@.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	810	911	
==>@.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4535	4706	
==>s depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sort <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4999	5170	
==>s depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sort <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26211	26319	
==>red).  Each variable name can be any
defined and non-empty string, and each variable value can be anything at <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26211	26319	
==>red).  Each variable name can be any
defined and non-empty string, and each variable value can be anything at <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20748	20856	
==>e =~ /\%/;
    Carp::confess "bug >$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mangle($nam <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1325	1432	
==>n't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # part of spec.  eew.

    ($pi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13126	13221	
==>returned.

If called in void context the arguments are decoded in-place.

This routine is export <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13126	13221	
==>returned.

If called in void context the arguments are decoded in-place.

This routine is export <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10468	10559	
==>could potentially
never be performed at all.  They validate everything except
well-formednes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10468	10559	
==>could potentially
never be performed at all.  They validate everything except
well-formednes <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1359	1461	
==>on: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _mak <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1359	1461	
==>on: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _mak <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10088	10197	
==>e the
testing of those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10146	10255	
==>e the
testing of those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTI <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	152	259	
==>%test{a}";   # print "$test{a}";

# Array Referenz:
say "$test[1]";   # print "$test->[1]";

# Hash Referenz <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17924	18007	
==>at_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5411	5516	
==>imestamp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5411	5516	
==>imestamp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6564	6675	
==>ift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6564	6675	
==>ift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	839	1003	
==>$event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	839	1003	
==>$event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1300	1395	
==>el (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1300	1395	
==>el (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_pat <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	33	232	
==>earest (Num $x, int $symmetrical? = 1) {
# XXX -- Not implemented
# How should I implement this? As in
# http://www.pldesignline.com/howto/showArticle.jhtml?articleID=175801189
# says, This may be con <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5735	5877	
==>lf->{pathnames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('new') };
        unless ( $new ) {
            war <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6942	7040	
==>response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6942	7040	
==>response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simp <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10976	11076	
==>r returns Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10976	11076	
==>r returns Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2071	2216	
==><FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2288	2433	
==><FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23859	23990	
==>{&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20280	20411	
==>{&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1192	1307	
==>rec = $op->{'nprec'} + $increment;
      }
      elsif($prec =~ /is equiv\((.*?)\)/) {
        my $op = $dict{$1} or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2322	2418	
==>caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2539	2635	
==>caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	410	521	
==>eta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Buil <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	430	532	
==>eta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Buil <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	656	780	
==>re_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	656	780	
==>re_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3931	4027	
==>s. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of your co <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3931	4027	
==>s. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of your co <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4689	4777	
==>$stringTemp, my $tempPos, my $tempPos2) = newfrom( $matchObj, $whitespacePosition, "PGE:: <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	193	295	
==>>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	193	295	
==>>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4400	4508	
==>->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4412	4520	
==>->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	4	108	
==>ackage Pugs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4	104	
==>ackage Pugs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use P <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1841	1980	
==>PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { & <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1841	1980	
==>PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { & <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	842	955	
==>ub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$hash ) {
    print "$desc: $k => $v\n";
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11709	11834	
==>\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4352	4477	
==>\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2827	2944	
==>ta::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2827	2944	
==>ta::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6825	6936	
==>e', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6825	6936	
==>e', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	386	532	
==>->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	386	532	
==>->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2776	2875	
==>er
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n) <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2776	2875	
==>er
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	28	128	
==>ndie::Prelude::Control;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&ter <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8097	8190	
==>C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is in fact multi-
di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14922	15047	
==>E METHODS

The most frequently used headers can also be accessed through the
following convenience methods.  These methods can <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14922	15047	
==>E METHODS

The most frequently used headers can also be accessed through the
following convenience methods.  These methods can <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3229	3372	
==>d(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Obje <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3948	4066	
==>d(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Obje <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3634	3762	
==>PL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3634	3762	
==>PL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedText Template module '<TM <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5630	5777	
==>tlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        wh <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4130	4277	
==>tlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        wh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20221	20327	
==>.param pmc pad
    .local pmc reps, exp
    .local string cname
    .local int cutnum, padarray, isarray, s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3700	3858	
==>l   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we wan <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4164	4322	
==>l   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we wan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9015	9113	
==>VERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure object a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8718	8814	
==>VERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure object a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	77	325	
==>hat don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Consta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	77	325	
==>hat don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Consta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	623	739	
==>hod) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.def <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	623	739	
==>hod) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.def <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12853	12950	
==>oved is returned.

Note that if you pass in multiple field names then it is generally not
possible <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12853	12950	
==>oved is returned.

Note that if you pass in multiple field names then it is generally not
possible <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29017	29201	
==>::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29296	29480	
==>::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10563	10691	
==>een = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) { <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10563	10691	
==>een = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19645	19752	
==>nd of an inner block
effectively acts as a C<no> statement for any compile sections in
that block. C<use> st <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19645	19752	
==>nd of an inner block
effectively acts as a C<no> statement for any compile sections in
that block. C<use> st <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	870	962	
==>p($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	870	962	
==>p($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descrip <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9920	10020	
==>n implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9978	10078	
==>n implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2217	2310	
==>e> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2306	2399	
==>e> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2288	2433	
==>list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2288	2433	
==>list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16154	16259	
==>rrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16154	16259	
==>rrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5840	5977	
==>$done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5840	5977	
==>$done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	303	416	
==>od members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	303	416	
==>od members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4082	4177	
==>&Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set { <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4082	4177	
==>&Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	418	522	
==>^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	418	522	
==>^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9172	9280	
==>eader('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9172	9280	
==>eader('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_hea <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10497	10596	
==>ing TODO tests
then you can pass them through this function. This is primarily a release
tool, but c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10555	10654	
==>ing TODO tests
then you can pass them through this function. This is primarily a release
tool, but c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	37	136	
==>all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $C <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	37	136	
==>all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $C <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7790	7891	
==>wind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \"@{[ BUCKET ]}\": $!\n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1989	2090	
==>::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1989	2090	
==>::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_cod <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18050	18279	
==>b->depth   <=> $a->depth    or
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STD <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11174	11260	
==>6_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11729	11871	
==>exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n->{exp2} );
    }

    return _emit( $n->{exp1} ) . ' ' . 
        $n <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	19	120	
==>okenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SY <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	19	120	
==>okenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SY <==
2	/Users/nnunley/pugs/util/importgraph.pl	2330	2438	
==>ugs\.CodeGen\.\w+$/);

my ($nodes, $edges) = (0, 0);
while (my ($name, $module) = each %modules) {
  my $clus <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10820	10930	
==>es into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many members
were a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10820	10930	
==>es into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many members
were a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17656	17748	
==>THODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepte <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17656	17748	
==>THODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1336	1461	
==>new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1336	1461	
==>new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3673	3853	
==>or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4137	4317	
==>or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, w <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3411	3506	
==>py' , 'type' ,'Type';

node_a 'Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr' <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1060	1168	
==>without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1060	1168	
==>without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6716	6858	
==>s export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6716	6858	
==>s export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with ' <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3642	3748	
==>shift @array, @$cmp;
    $cmp := &infix:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::mi <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	502	603	
==>nshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, versio <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	502	603	
==>nshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, versio <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10645	10738	
==>ram returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10645	10738	
==>ram returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4651	4752	
==>thmetic and list operations ----------------

method grep ($set: Code $select ) {
    return $set.new( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4651	4752	
==>thmetic and list operations ----------------

method grep ($set: Code $select ) {
    return $set.new( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4301	4403	
==>ards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_nam <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4301	4403	
==>ards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	720	893	
==>"";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mods = $1;
	}
        my $qr = eval{ $f->($mods,$re) };
	if (!defined $qr) {
            my $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15382	15492	
==>$param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduce_thunk {
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	164	292	
==>_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	164	292	
==>_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_el <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26097	26193	
==>ect (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30649	30745	
==>ect (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2395	2505	
==>r `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DES <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2395	2505	
==>r `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DES <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	502	603	
==>lease note that this is nothingmuch's first article that he read from cover
# to cover with no hand ho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8708	8807	
==>(${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(oct $1), "\\0$1" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	117	218	
==>four.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    pri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	117	218	
==>four.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    pri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33794	33898	
==>Types: digit (C<\d>), ndigit (C<\D>)

Neg: 1 if negated

=head2 anyof

Family: anyof

Types: anyof (C<[>) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2431	2567	
==>ars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2431	2567	
==>ars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	410	565	
==>~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	410	565	
==>~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9808	9907	
==>e sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined with u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9808	9907	
==>e sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combined with u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	162	268	
==>returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	162	268	
==>returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1525	1647	
==>> 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1525	1647	
==>> 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	99	197	
==>ing)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	99	197	
==>ing)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12103	12218	
==>0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12103	12218	
==>0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4992	5128	
==>atchObj->{value} = $initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else
      {
        goto term <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6574	6667	
==>}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*');

my $source = `cat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19233	19335	
==>nticate

This header must be included as part of a C<401 Unauthorized> response.
The field value consis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19233	19335	
==>nticate

This header must be included as part of a C<401 Unauthorized> response.
The field value consis <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4736	4840	
==>))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4736	4840	
==>))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23131	23250	
==>:X1::Api::Exception::LoopControl;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1600	1697	
==>ation classes of all the L<Blondie::Nodes> and some
more objects.

They provide stringification, f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4596	4701	
==>e have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4596	4701	
==>e have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16328	16433	
==>nition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16328	16433	
==>nition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22561	22657	
==>to be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program ge <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22561	22657	
==>to be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program ge <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8735	8851	
==>closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8735	8851	
==>closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6990	7189	
==>{
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10467	10666	
==>{
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1484	1675	
==>r {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1484	1675	
==>r {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	79	212	
==>File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	79	212	
==>File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19583	19684	
==>ll enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text format that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19583	19684	
==>ll enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text format that <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6841	6946	
==>rom_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6841	6946	
==>rom_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %h <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10438	10533	
==>ions, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method dec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10438	10533	
==>ions, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method dec <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12913	13006	
==>d earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left al <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12913	13006	
==>d earlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left al <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14950	15073	
==>second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14950	15073	
==>second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14604	14715	
==>ew( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14604	14715	
==>ew( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19420	19522	
==>to the requested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Proxy Authe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19420	19522	
==>to the requested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Proxy Authe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1425	1557	
==>extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1425	1557	
==>extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'me <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3208	3307	
==>nd );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3208	3307	
==>nd );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" use <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6721	6818	
==>ource);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe,"\n";

__END__
my $m = matc <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3860	3976	
==>nd copy it into
        # dist/build/src/Data/Yaml/.
        my @candidates;
        my $target = File::Spec->canonpa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23175	23290	
==>body => fun(
		param => "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1806	1928	
==>ld} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1806	1928	
==>ld} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_head <==
2	/Users/nnunley/pugs/util/package-osx.pl	5751	5852	
==>:Overview::Control.3pm
        /usr/local/man/man3/Perl6::Overview::Data.3
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11270	11389	
==>into the code #print "Compiled AST: " . Dumper->reduce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12914	13040	
==>ethod normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12914	13040	
==>ethod normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3336	3482	
==>d'
        ),
        sub {
            my $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->create('$current' => $e->get <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1752	1883	
==>cess, false on failure.

=cut

sub _rmdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10211	10317	
==>(Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10269	10375	
==>(Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17737	17899	
==>&RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14158	14320	
==>&RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3264	3373	
==>e C<v6.pm> module.

This is an invalid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to execute C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13038	13138	
==>_headers

This will remove all the header fields used to describe the content of
a message.  All head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13038	13138	
==>_headers

This will remove all the header fields used to describe the content of
a message.  All head <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	209	316	
==>ction 1.1

sub Lexer::import { }

## XXX - is exported doesn't support args atm

## Chapter 8 section 1.3

s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25766	25861	
==>onents.

Any versions of Rosetta that you modify and distribute must carry prominent
notices sta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25766	25861	
==>onents.

Any versions of Rosetta that you modify and distribute must carry prominent
notices sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	835	953	
==>{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	835	953	
==>{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    e <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5339	5437	
==>-%d-%d--%d-%d-%d-%d-%d-%d--%s.html",
    (map { $smoke{$_}          } qw<pugs_version pugs_revision <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2297	2421	
==>s->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 or error( "Coul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5342	5450	
==>t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8277	8435	
==>il { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8277	8435	
==>il { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13947	14044	
==>h::values (%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	268	351	
==>:Compiler::Rule->compile(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13088	13199	
==>($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13088	13199	
==>($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2590	2719	
==>) {
        $output .= _draw_role($subrole);
        #$output .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4040	4141	
==>bject }
    method GetPropertyName ($O:) { $.property_name }
}
# 8.7.1
method GetValue (JSX::PsuedoVal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12815	12920	
==>calar
context the number of fields removed is returned.

Note that if you pass in multiple field names the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12815	12920	
==>calar
context the number of fields removed is returned.

Note that if you pass in multiple field names the <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6777	6898	
==>AYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6835	6956	
==>AYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	813	938	
==>ompile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	813	938	
==>ompile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1104	1203	
==>str - the core str type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_na <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2026	2122	
==>ources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2026	2122	
==>ources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3024	3169	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3217	3362	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_ru <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16000	16097	
==>on modules get compiled into some
altered form the first time they are run. The result is cached i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16000	16097	
==>on modules get compiled into some
altered form the first time they are run. The result is cached i <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6672	6782	
==>seem to still be inside a list?

Basically the item body, much like this text is.

- how should I handle *, / a <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6672	6782	
==>seem to still be inside a list?

Basically the item body, much like this text is.

- how should I handle *, / a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	863	961	
==>type () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	863	961	
==>type () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7548	7653	
==>$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7548	7653	
==>$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8343	8496	
==>> 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8343	8496	
==>> 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5853	5948	
==>4); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5853	5948	
==>4); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11720	11866	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11999	12145	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3604	3746	
==>]->() ,} }
            ) ),
        '$.' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2254	2367	
==>turn $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2254	2367	
==>turn $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           ret <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	482	590	
==>$b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	482	590	
==>$b) { $a != $b }
multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6615	6721	
==>truct_equiv;
	join("\n\t", "", map { "$_;" } $seq->values);
}

sub emit {
	my $self = shift;
	my $prog = sh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5204	5305	
==>('$.unboxed'=>$_[1])}
sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cls eq 'Und <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4607	4724	
==>s defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4607	4724	
==>s defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7791	7921	
==>debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7529	7651	
==>debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3798	3890	
==>OR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3798	3890	
==>OR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20081	20193	
==>ncluded in the "Rosetta" core
distribution to allow the core to be completely testable on its own.  It is
coded i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20081	20193	
==>ncluded in the "Rosetta" core
distribution to allow the core to be completely testable on its own.  It is
coded i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2669	2808	
==>-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/]) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2669	2808	
==>-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/]) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2657	2779	
==>r.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2657	2779	
==>r.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19862	19974	
==>de in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have been
marked for various c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19862	19974	
==>de in
all PACKAGES.

After all the code has been parsed into blocks and the blocks have been
marked for various c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4160	4278	
==>s && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4160	4278	
==>s && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return P <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1698	1789	
==>{ level($$) + 1 }
type::operator::binary: level($.right) = { level($$) }

type::operator::bi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21269	21358	
==>", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21269	21358	
==>", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11742	11842	
==>!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11742	11842	
==>!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4611	4765	
==>=> $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4471	4616	
==>=> $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1390	1491	
==>w', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1390	1491	
==>w', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6207	6306	
==>hould be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-langu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5994	6091	
==>hould be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-langu <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	542	720	
==>+j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    printf("[%s]", av[i]);
    pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23023	23134	
==>to Perl's regex compiler does the
same thing.)

=item nparen

The number of OPENs (capturing groups) in the rege <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1284	1388	
==>::use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub node::sl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1779	1912	
==>ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1779	1912	
==>ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5329	5509	
==>t when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This abov <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5793	5973	
==>t when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to install it
                    ### This abov <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13017	13119	
==>& grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will assume that if you'r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30621	30713	
==>=head3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER::method() >> insi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3053	3149	
==>called repeatedly to encipher data.
The encipherer closure can be called with a string, and shoul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3053	3149	
==>called repeatedly to encipher data.
The encipherer closure can be called with a string, and shoul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23268	23377	
==>ied by this module,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logge <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23268	23377	
==>ied by this module,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logge <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2047	2170	
==>BUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2047	2170	
==>BUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	644	761	
==>ile

Path to the main index file. default: $root/dists/index

=back

=cut

{
    my $config = JIB::Config->new;

    s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6886	7013	
==>d
ignore the opening one. However, this means I should defer events until I get to the
end of the line. I could probably do that <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6886	7013	
==>d
ignore the opening one. However, this means I should defer events until I get to the
end of the line. I could probably do that <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27429	27524	
==>constructed.  If you want to
conceptually change an existing Message object, you must create a n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27429	27524	
==>constructed.  If you want to
conceptually change an existing Message object, you must create a n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7302	7404	
==>part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7302	7404	
==>part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	67	179	
==>-----------------------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.widt <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	67	179	
==>-----------------------------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.widt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4803	4964	
==>opy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4803	4964	
==>opy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13181	13278	
==>decoded in-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13181	13278	
==>decoded in-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26572	26667	
==>package C<TYPE> and sends the constructor whatever
other arguments are included.  This method ta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7055	7213	
==>_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7055	7213	
==>_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'ro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4799	4946	
==>= (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4799	4946	
==>= (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10495	10613	
==>used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10495	10613	
==>used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10108	10209	
==>perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
described below. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10108	10209	
==>perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
described below. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10351	10456	
==>ay "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10351	10456	
==>ay "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2894	3002	
==>$ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2894	3002	
==>$ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5040	5174	
==>nt_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5040	5174	
==>nt_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $doc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3700	3833	
==>names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3700	3833	
==>names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10105	10203	
==>can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10105	10203	
==>can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37720	37813	
==>d is a generic relational operator that takes a single Relation::Example
in its C<$other> argu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38560	38653	
==>d is a generic relational operator that takes a single Relation::Example
in its C<$other> argu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6010	6129	
==>($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6010	6129	
==>($num/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8974	9082	
==>/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted pack <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10451	10559	
==>/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted pack <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7607	7756	
==>ignal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7607	7756	
==>ignal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	535	677	
==>&readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $scr <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	535	677	
==>&readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $scr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32400	32497	
==>n't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation::Example at <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1053	1187	
==>i sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esc <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1053	1187	
==>i sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_esc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3816	3913	
==>ODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4000	4097	
==>ODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8587	8688	
==>right holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or indiv <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8587	8688	
==>right holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or indiv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48388	48475	
==>ule

$::Module = $::Class->send('new');
$::Module->send('superclasses' => list->new($::P <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11804	11905	
==>ec(X), !.
p6_oct_spec(char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2499	2608	
==>'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1111	1220	
==>'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = g <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18315	18417	
==>Rule $delimiter          , Int $limit = inf --> List )
 &split<> := &split<Str>.assuming:delimiter(' ') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	311	399	
==>ammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1243	1337	
==>ecipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data and <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1243	1337	
==>ecipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3481	3593	
==>age Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3698	3810	
==>age Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8120	8234	
==>de_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8120	8234	
==>de_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8992	9085	
==>$iFoo->singleton_test_on_object } '... instance calling metaclass singleton method fails';

is <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23396	23508	
==>sses (opaque $self: list ?@superclasses) returns list {
    if (@superclasses.defined) {
        for @superclasse <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4103	4200	
==>ang and others.

This program is free software; you can redistribute it and/or modify it
under the <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1450	1544	
==>);
    $optable->addToken("<commit>", "term:", "nows", "PGE::Exp::Commit");
    $optable->addTo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	282	399	
==>ined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	282	399	
==>ined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8583	8698	
==>he the hash key.
    $_ = "" . $_;
    next if (exists $suspect->{$_});
    print STDOUT "# key ", _qq($_), " was ", <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14186	14291	
==>nt pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .local string cname
    newfrom = find_global "PGE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35802	35917	
==>m.  This method is also defined as the implicit handler when
coercing this object to a string.

=item C<get_set_memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35802	35917	
==>m.  This method is also defined as the implicit handler when
coercing this object to a string.

=item C<get_set_memb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	941	1086	
==>f( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	941	1086	
==>f( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2980	3096	
==>"    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3829	3945	
==>"    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<variable> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	870	1123	
==>ule MyLib

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37034	37130	
==>attribute->new('@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16473	16630	
==>e"
    .param string pattern
    .param string grammar      :optional
    .param int has_gram        :opt_flag
    .param string name         :optional
    .p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19808	19963	
==>fcnt;

What invariants?  Don'T know.


  I32 minlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks too much. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	621	724	
==>dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	621	724	
==>dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $pat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19235	19329	
==>(@array) is builtin is primitive { List::pop(@array) };
multi pop ($array) is builtin is primit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1065	1183	
==>ne-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1065	1183	
==>ne-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13981	14088	
==>, then the
routine is called once for each value.  The field name passed to the
callback routine has case as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13981	14088	
==>, then the
routine is called once for each value.  The field name passed to the
callback routine has case as <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4549	4691	
==>$) {
    my ($self) = @_;
    my %roles;
    foreach my $role (@{::opaque_instance_attrs($self)->{'@:roles'}}) {
        # make a note of the r <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1030	1125	
==>method mk_notifications (*@subscriptions of Class::Events::Subscription) {
        map { Class:: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2186	2321	
==>rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $se <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2186	2321	
==>rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6477	6602	
==>CH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6477	6602	
==>CH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19926	20022	
==>cks and the blocks have been
marked for various compilers, Module::Compile dispatches the code bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19926	20022	
==>cks and the blocks have been
marked for various compilers, Module::Compile dispatches the code bl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2346	2454	
==>_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2346	2454	
==>_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9950	10052	
==>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C<$set1> wh <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9950	10052	
==>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C<$set1> wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6707	6832	
==>tters need to know what you want (str, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6482	6600	
==>tters need to know what you want (str, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24168	24267	
==>es.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28720	28819	
==>es.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24103	24201	
==>ing> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28655	28753	
==>ing> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1863	2048	
==>s @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1863	2048	
==>s @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alt <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	560	690	
==>le) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	527	657	
==>le) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1081	1185	
==>to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1081	1185	
==>to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ci <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	618	717	
==>county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	618	717	
==>county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4444	4586	
==>{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4584	4726	
==>{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{per <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14734	14896	
==>as Int  $.month;   # 1 to 12 - NOTE 1-based
    has Int  $.day;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 to 59
    has Int  $.se <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16207	16313	
==>If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4553	4810	
==>to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4553	4810	
==>to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of coo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	954	1119	
==>P::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FET <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	954	1119	
==>P::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FET <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3804	3913	
==>, $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$mod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3862	3971	
==>, $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$mod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2604	2771	
==>ERSAL::isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNIVER <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9918	10013	
==>ator returned is a function reference.  When called in scalar
context, it returns the next node: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	272	397	
==>my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not exist\n" unless -d $meta;
    
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41747	41908	
==>->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shif <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1955	2072	
==>amble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{i <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1955	2072	
==>amble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	194	317	
==>].html

# notes:
#  'assoc' is one of:  nonassoc / right / left

my $g = <<'EOT';
%{ my $out; %}

%left   ';'
%left <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6383	6490	
==>elf, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6383	6490	
==>elf, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	117	224	
==>adonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] } <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6558	6662	
==>ll GHC (6.4.1 or above) from http://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3014	3120	
==>he IP address of the client, if available.

=back

In addition, the following request headers are set on th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3014	3120	
==>he IP address of the client, if available.

=back

In addition, the following request headers are set on th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1649	1799	
==>le-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1856	2006	
==>le-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6639	6740	
==>';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInv <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6639	6740	
==>';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5340	5469	
==>uture extension. (eg %)
sub within ($$$@) {
    my ($got, $expected, $range, $name, @mess) = @_;
    my $pass;
    if (!defined $g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3465	3600	
==>: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3453	3588	
==>: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7140	7336	
==>mat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7140	7336	
==>mat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17145	17245	
==>e glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17145	17245	
==>e glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23227	23360	
==>);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${& <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19648	19781	
==>);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${& <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	18	128	
==>mple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	18	128	
==>mple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2829	2972	
==>IL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2829	2972	
==>IL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5312	5415	
==>e a Rosetta Interface root, whose attributes will hold all of
    # the other data structures used by th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5312	5415	
==>e a Rosetta Interface root, whose attributes will hold all of
    # the other data structures used by th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	71	199	
==>il::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	71	199	
==>il::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4974	5092	
==>rn $S->object(space => 1);
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5873	5992	
==>$return_type $symbol (" . join(", ", @params) . ") {" . join("\n\t", "", (map { "$_;" } @exps), "return $last_exp;") . " <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1336	1481	
==>efined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "Did not understand '$name' '$prec'"; }
    }
    my $o = { name <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13068	13177	
==>o spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13068	13177	
==>o spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	790	880	
==>ad1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	790	880	
==>ad1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for En <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4557	4658	
==>63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4557	4658	
==>63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	709	807	
==>me, $test_filehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12425	12546	
==>rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12425	12546	
==>rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1021	1119	
==>eturn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1021	1119	
==>eturn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19962	20051	
==>ptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
impleme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19962	20051	
==>ptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
impleme <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	338	514	
==>?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            st <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	338	514	
==>?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1945	2089	
==>ct 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@grammar1::ops, ::com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20078	20219	
==>&Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16499	16640	
==>&Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => $r_on, $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6372	6484	
==>ule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6156	6267	
==>ule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1025	1144	
==>gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1025	1144	
==>gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27491	27590	
==>essage object, you must create a new
object that is a clone of the first but for the changes.

=back <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27491	27590	
==>essage object, you must create a new
object that is a clone of the first but for the changes.

=back <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	414	523	
==>ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	414	523	
==>ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1539	1667	
==>str .= ')';
            
        } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36589	36711	
==>e's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

H <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9021	9202	
==>ie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.dele <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9021	9202	
==>ie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.dele <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3025	3120	
==>herer closure, which can be called repeatedly to encipher data.
The encipherer closure can be ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3025	3120	
==>herer closure, which can be called repeatedly to encipher data.
The encipherer closure can be ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1259	1368	
==>::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1259	1368	
==>::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5392	5496	
==>ple string or a reference to a URI object.

You will not be able to examine the response code or response <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5392	5496	
==>ple string or a reference to a URI object.

You will not be able to examine the response code or response <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9967	10087	
==>h;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9961	10081	
==>h;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         pus <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6256	6381	
==>66),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6256	6381	
==>66),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8517	8620	
==>[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8505	8608	
==>[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4356	4459	
==>ass name for Point3D');
is($p3d->prototype->class, \&Point, '... go the right superclass name for Point3 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3580	3692	
==>BUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3580	3692	
==>BUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4567	4824	
==>of regex block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_h <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3112	3211	
==>o->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

The compiler reduces an AST i <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	351	462	
==>{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @ <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	351	462	
==>{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5590	5685	
==>confess "You must set '$name' to a native type";
    $self->{env}->{$name} = reference->new($val <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	695	826	
==>ding;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4173	4304	
==>ding;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2120	2212	
==>prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2120	2212	
==>prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30408	30507	
==>ith each set member being an an exclusive alternative for the rest
of the set. There is a separate t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30408	30507	
==>ith each set member being an an exclusive alternative for the rest
of the set. There is a separate t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13480	13615	
==>hr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isrange goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ". <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7602	7702	
==>zy list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7602	7702	
==>zy list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1335	1477	
==>n @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1335	1477	
==>n @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1064	1184	
==>Foo>
#   * "lookahead is not an element of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #look <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3101	3218	
==>gn' ))) {
        $syn_src_dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6842	7045	
==>h;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = de <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6842	7045	
==>h;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13134	13280	
==>erson_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13134	13280	
==>erson_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for d <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3565	3668	
==>gs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3565	3668	
==>gs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19837	19932	
==>o are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19837	19932	
==>o are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("nick <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7891	8001	
==>isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \% <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18042	18143	
==>es.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The struct is used
various <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20379	20479	
==>ly; you should only use Example
for testing, development, and study; you should not use it in product <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20379	20479	
==>ly; you should only use Example
for testing, development, and study; you should not use it in product <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	96	231	
==>'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	96	231	
==>'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5689	5791	
==>(my|our|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statemen <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19372	19474	
==>us = 0)
{
    Pugs::Internals::exit($status);
}


 multi Control::Basic::nothing ()


 multi Control::B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	901	1045	
==>od parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	901	1045	
==>od parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6722	6908	
==>b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6722	6908	
==>b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4614	4748	
==>alternatives again
        DumpFile( $Altfile, $href );
    }

    ### remove this package from the available list
    ### XXX temp fil <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	108	235	
==>Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	108	235	
==>Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6717	6817	
==>event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6717	6817	
==>event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2668	2772	
==>ends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2668	2772	
==>ends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2365	2470	
==>ts> of the test.
See L<Results>.

C<@test_output> should be the raw output from the test, including
newlin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	409	518	
==>, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 2 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	409	518	
==>, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 2 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3399	3523	
==>Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.rec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3399	3523	
==>Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.rec <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6861	6992	
==>pan1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6861	6992	
==>pan1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	161	260	
==>ally
forms a linked list through the rule as it is executed, but the linked
list is done in code (i. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	161	260	
==>ally
forms a linked list through the rule as it is executed, but the linked
list is done in code (i. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19645	19742	
==>if $pkg eq '';
    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
    print <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22412	22508	
==>be installed in.

Generally, when a program package would return a code-key to indicate a
conditi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22412	22508	
==>be installed in.

Generally, when a program package would return a code-key to indicate a
conditi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36160	36276	
==>en:

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample execution:

  u <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12374	12473	
==>> for more
details and examples.



=item zip

 multi Lists::zip ( Array *@lists, Bit :$shortest --> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	396	509	
==>YAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	396	509	
==>YAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".], <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11891	12044	
==>r $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11891	12044	
==>r $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!han <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3241	3339	
==>rl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3458	3556	
==>rl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $interface: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24213	24314	
==>compile time binding and
will support multiple languages or locales simultaneously at run time.

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24213	24314	
==>compile time binding and
will support multiple languages or locales simultaneously at run time.

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24300	24479	
==>->(0);        # 0 means this is 'off'
      if ($v) { &Rf &= ~$v }  # turn the flag off
      else { ... }            # the flag's value is 0
      next;
    }
    # throw an error <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	526	650	
==>has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	526	650	
==>has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.ur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6177	6355	
==>@ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6177	6355	
==>@ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3606	3702	
==>object of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering") <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3606	3702	
==>object of the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering") <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18718	18814	
==>ters of Node.new(); you need to supply its $document and optional
$parent_node though; you can pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18718	18814	
==>ters of Node.new(); you need to supply its $document and optional
$parent_node though; you can pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	566	680	
==>>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    rule <p6 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4473	4580	
==>\Q$args{prefix}\E:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12465	12591	
==>idate) (hash %params)) returns opaque
    ((($canidate to_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17838	18037	
==>arams' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41106	41302	
==>arams' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get(' <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	894	1014	
==>eenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATIO <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	894	1014	
==>eenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATIO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17995	18090	
==>n Internet e-mail address for the human
user who controls the requesting user agent.  The addres <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17995	18090	
==>n Internet e-mail address for the human
user who controls the requesting user agent.  The addres <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4256	4362	
==>is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object go <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6158	6264	
==>is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object go <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	994	1102	
==>{ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latt <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	994	1102	
==>{ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6993	7120	
==>ime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6993	7120	
==>ime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3336	3474	
==>$m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3336	3474	
==>$m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2344	2474	
==>atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2344	2474	
==>atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8990	9086	
==>s_comp_hook != NULL) { croak("Cant install twice"); }
  previous_comp_hook = PL_regcompp;
  PL_re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1190	1346	
==>table->{prototype};      
        
        my $_table = $table;  
    TRY_AGAIN:
        if (my $method = $_table->{$message}) {
            return $method-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	483	631	
==>{ 
    my $class   = shift;
    my %hash    = @_;
    
    my $dir;
    my $tmpl = {
        dir     => { required => 1, allow => sub { -d shift() }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22445	22570	
==>ent =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22724	22849	
==>ent =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18543	18655	
==>e {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18543	18655	
==>e {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1644	1793	
==>ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1644	1793	
==>ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2369	2504	
==>nline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_nam <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2369	2504	
==>nline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_nam <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4768	4866	
==>array, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Arr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	297	393	
==>array, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Arr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5218	5309	
==>removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_l <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5218	5309	
==>removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2327	2470	
==>t = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2327	2470	
==>t = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_in <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3403	3523	
==>iglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopeds <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3403	3523	
==>iglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopeds <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	949	1053	
==>lib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	949	1053	
==>lib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3510	3631	
==>XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Lat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3510	3631	
==>XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Lat <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4962	5048	
==>quence> | <octal_escape_sequence> | <hexidecimal_escape_sequence> }
rule simple_escape_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12750	12846	
==>turns negative infinite if the recurrence is infinite.
Returns positive infinite if the recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12750	12846	
==>turns negative infinite if the recurrence is infinite.
Returns positive infinite if the recurrenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	489	602	
==>>compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	489	602	
==>>compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	159	277	
==>ess {

    }, $class;
}

sub compiler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->requ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3609	3709	
==>averse the node
structure. The only dirty part is C<reduce_sym> which must handle recursive calls.

T <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2277	2391	
==>ndency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{pack <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3634	3744	
==>ndency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{pack <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35453	35554	
==>mes()>

This method returns all Member Names elements in this object as an array
ref.

=item C<as_debu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35453	35554	
==>mes()>

This method returns all Member Names elements in this object as an array
ref.

=item C<as_debu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	741	837	
==>ymmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	741	837	
==>ymmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($tw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	372	519	
==>o work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	361	497	
==>o work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        matc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6065	6174	
==>s too specific - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6065	6174	
==>s too specific - it only applies to Span::Int objects
# method density () returns Object {
#    return $.span. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9490	9609	
==>my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # De <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9490	9609	
==>my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # De <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5341	5479	
==>AML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5156	5289	
==>AML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar fil <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	425	526	
==>match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %pa <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	425	526	
==>match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	353	457	
==>auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	353	457	
==>auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10419	10578	
==>mmediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10698	10857	
==>mmediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14917	15020	
==>ay
to test them. So we will implement the Test::More function is_deeply.
The plan currently is to implem <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14975	15078	
==>ay
to test them. So we will implement the Test::More function is_deeply.
The plan currently is to implem <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14166	14267	
==>ation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17643	17744	
==>ation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1317	1428	
==>e provide
Test::Harness::Straps.  Instead of printing the results, straps
provide them as raw data.  You can als <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2176	2277	
==>rver (which can be specified below).
Then, it creates a initrd and copies your pugs binary and the sha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1190	1335	
==>rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1190	1335	
==>rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # I <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	371	493	
==>ML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re = qr/^(\w+)     - # pref <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	263	355	
==>ength - $duration.length);
}

#method infix:<->($self: Duration $duration) returns Duration { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3297	3443	
==>\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            prin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3761	3907	
==>\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            prin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2468	2650	
==>able list
                ### XXX temp file, then mv
                my @list = LoadFile( $Available );
                push @list, $info;                
                DumpFile( $A <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1704	1819	
==>gate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1762	1877	
==>gate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	722	874	
==>ss Process {
    multi sub exec($prog, @args) returns Bool is builtin is primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Int <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12015	12141	
==>( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document object.  If
the optional named parameter @ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12015	12141	
==>( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document object.  If
the optional named parameter @ro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10532	10718	
==>: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10532	10718	
==>: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) { <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	543	652	
==>}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively c <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	543	652	
==>}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3599	3710	
==>tchObjPos;
  my $lastPosition = length $target;
  my @bsrStack = [];
  #XXX
  my $operator;
  expect_term:
  got <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2681	2787	
==>t_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21976	22075	
==>terface of Rosetta is entirely object-oriented; you use it by
creating objects from its member class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21976	22075	
==>terface of Rosetta is entirely object-oriented; you use it by
creating objects from its member class <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2107	2292	
==>ate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3699	3880	
==>ate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5658	5763	
==>:Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $ite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5658	5763	
==>:Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $ite <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1774	1888	
==>egex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1774	1888	
==>egex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21789	22021	
==>OY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44696	44928	
==>OY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3376	3476	
==>ck 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the procedur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3376	3476	
==>ck 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; the procedur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1973	2064	
==>->FETCH('::Test')->STORE('::Base' => role 'TestBuilder::Test::Base' => {
    attributes => [ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12362	12459	
==>, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12420	12517	
==>, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	2	108	
==>e v6;

class DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	2	108	
==>e v6;

class DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9830	9935	
==>$nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $cod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9830	9935	
==>$nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $cod <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15091	15195	
==>s modify the string passed as the first argument, if
called in a void context.  In scalar and array conte <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15091	15195	
==>s modify the string passed as the first argument, if
called in a void context.  In scalar and array conte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1921	2031	
==>onstant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <clo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1932	2042	
==>onstant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <clo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2763	2894	
==>:Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    whil <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2763	2894	
==>:Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    whil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6864	6976	
==>sume that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6864	6976	
==>sume that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1257	1390	
==>port {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1257	1390	
==>port {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1474	1582	
==>ace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1474	1582	
==>ace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9481	9578	
==>e private, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9481	9578	
==>e private, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4419	4510	
==>encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4419	4510	
==>encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3384	3513	
==>egularExpressionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6451	6577	
==>= $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state ] );
    }
}

# interface to the internal rul <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20237	20364	
==>_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2398	2486	
==>n("infix:&", "<infix:", "left,nows", "PGE::Exp::Conj");
    $optable->addToken("infix:|", <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5071	5183	
==>he353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.dele <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5071	5183	
==>he353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.dele <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1824	1917	
==>ossibly very unstable.

=head1 METHODS ON C<$POE::Kernel>

=head2 C<post(POE::Session $session <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9183	9327	
==>vailable ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10660	10804	
==>vailable ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7359	7475	
==>head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7359	7475	
==>head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8572	8664	
==>6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2397	2489	
==>6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13754	13859	
==>n( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17231	17336	
==>n( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9490	9603	
==>, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or export such.

The usual way <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9490	9603	
==>, so you must use accessor methods.
Rosetta::Model does not declare any subroutines or export such.

The usual way <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7146	7278	
==>but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.den <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7146	7278	
==>but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.den <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5396	5558	
==>$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$re;
  my $op = Op->new($name,$prec);
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name);
  p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4243	4346	
==>wstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      Safefree(r->subbeg);*/ /* fa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3130	3244	
==>$path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3130	3244	
==>$path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33096	33185	
==>sjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37646	37735	
==>sjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@oth <==
2	/Users/nnunley/pugs/util/grokprims.pl	208	321	
==>,
    right => 'right-associative infix',
    non   =>   'non-associative infix',
    list  => 'list infix',
    c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	183	288	
==>::Grammar::StatementControl;
use base 'Pugs::Grammar::Base';
use Carp;

use Data::Dumper;
$Data::Dumper::I <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13266	13361	
==>{...}`

This method returns a recurrence set containing only the elements that 
satisfy the give <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13266	13361	
==>{...}`

This method returns a recurrence set containing only the elements that 
satisfy the give <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51709	52026	
==>hift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51098	51386	
==>hift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3028	3146	
==>ault (passive) handlers
  # First event we get, indicating a successful login
  %handler<001> = [-> $event {
    $insid <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3028	3146	
==>ault (passive) handlers
  # First event we get, indicating a successful login
  %handler<001> = [-> $event {
    $insid <==
2	/Users/nnunley/pugs/util/package-osx.pl	10091	10192	
==>s are all files that will be removed. The last one passed in is the
# remover that will be installed o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5411	5540	
==>);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in $real_content.
    my @l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5411	5540	
==>);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them in $real_content.
    my @l <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3289	3409	
==>l $/; <MAKEFILE> };
    close MAKEFILE;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makef <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3675	3782	
==>}
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3675	3782	
==>}
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue
class Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1162	1272	
==>e );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1162	1272	
==>e );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6302	6417	
==>join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#----- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6314	6429	
==>join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#----- <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3097	3247	
==>t)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3097	3247	
==>t)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15140	15245	
==>ex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15140	15245	
==>ex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	292	425	
==>--
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.de <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	292	425	
==>--
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.de <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	861	977	
==>ing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	861	977	
==>ing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4748	4853	
==>f the data given.
The data may be either a string or an array of bytes; the array of bytes will 
be slight <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4748	4853	
==>f the data given.
The data may be either a string or an array of bytes; the array of bytes will 
be slight <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	434	539	
==>my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	438	550	
==>], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_erro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	432	544	
==>], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_erro <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4644	4741	
==>--- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4644	4741	
==>--- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	449	560	
==>te_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	655	766	
==>te_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_stateme <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9548	9650	
==>0',
		  'NaN' => '100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4878	4978	
==>ed($node);
}

sub mark_defined {
	my $self = shift;
	my $node = shift;

	$self->{defined_nodes}->inse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8007	8178	
==>ad = '    ' x 2;
            local $Data::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9205	9315	
==>nd the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_le <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9205	9315	
==>nd the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_le <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16553	16660	
==>(!$tot->{max}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot->{te <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10514	10600	
==>.

p6_char_class(class_pos(horizontal_space))  --> "\\h", !.
p6_char_class(class_neg(ho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14114	14212	
==>ass

A Node object is a simple container which stores data to be used or
displayed by your program. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14114	14212	
==>ass

A Node object is a simple container which stores data to be used or
displayed by your program. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4571	4675	
==>:Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4571	4675	
==>:Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3488	3615	
==>_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3488	3615	
==>_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5788	5890	
==>Pugs::Grammar::Match



Rule constructors return Rule objects, which are "matcher" things.

Rules opera <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5587	5686	
==>Pugs::Grammar::Match

Rule constructors return Rule objects, which are "matcher" things.
Rules opera <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3337	3444	
==>bmodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubva <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3337	3444	
==>bmodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubva <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11597	11778	
==>ry_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11597	11778	
==>ry_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] <==
2	/Users/nnunley/pugs/util/combine_tests.pl	137	248	
==>$_) } @ARGV;
#
#my $combined = combine_tests(@data);
#
#print YAML::Dump($combined);
print Dump(combine_tests(ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26333	26442	
==>hat while the Hash itself is copied on input and output, any
variable values which are references will be pass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26333	26442	
==>hat while the Hash itself is copied on input and output, any
variable values which are references will be pass <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37723	37827	
==>s a generic relational operator that takes a single Relation::Example
in its C<$other> argument, where <$ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38563	38664	
==>s a generic relational operator that takes a single Relation::Example
in its C<$other> argument, where <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	714	828	
==>er::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	714	828	
==>er::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    < <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2801	2900	
==>rsection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2801	2900	
==>rsection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5860	5953	
==>repo->index_files(package => $pkg)

Returns a list of all index_files that a given package bel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1396	1513	
==>$expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1396	1513	
==>$expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3354	3480	
==>, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3354	3480	
==>, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3540	3634	
==>0 of 20 tests and
exited with non-zero status indicating something dubious happened.

The colum <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13188	13318	
==>c_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13188	13318	
==>c_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2304	2423	
==>_assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'MET <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2304	2423	
==>_assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'MET <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34955	35054	
==>not a subset of the heading of the invocant Relation.  This method
degenerates into an C<intersectio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39505	39604	
==>not a subset of the heading of the invocant Relation.  This method
degenerates into an C<intersectio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22687	22827	
==>}; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22966	23106	
==>}; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10527	10676	
==>ir, 
                     'util','catalog_tmpl','code.tmpl');  
  $template->param("file" => $file);
  my $output = ""; 
  
  while (my $rest = <$infi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21424	21516	
==>('> <LeftHandSideExpression> <'in'> <Expression> <')'> <Statement>
    | <'for'> <'('> <'var' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4769	4941	
==>ack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4991	5163	
==>ack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7509	7608	
==>_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7509	7608	
==>_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	992	1098	
==>iverse => $universal_set )`

Create a recurrence set with full bidirectional functionality.

The complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	992	1098	
==>iverse => $universal_set )`

Create a recurrence set with full bidirectional functionality.

The complement <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11246	11424	
==>'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11246	11424	
==>'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	63	157	
==>use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_word <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	63	157	
==>use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_word <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4286	4424	
==>E;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAK <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11512	11642	
==>time_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11878	12008	
==>time_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11804	11901	
==>nchar() method takes
a named character's name, and returns the actual character:

  my $R = $parse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1508	1639	
==>tocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1508	1639	
==>tocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1574	1673	
==>an be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECUR <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1574	1673	
==>an be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SECUR <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	731	839	
==>! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	731	839	
==>! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3006	3154	
==>uffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3006	3154	
==>uffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2html (IO $fh) returns Hash <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12694	12822	
==>abase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12694	12822	
==>abase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Local <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	276	422	
==>state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.cou <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	276	422	
==>state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.cou <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18670	18768	
==>daries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18670	18768	
==>daries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> statement. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6270	6372	
==>f;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6270	6372	
==>f;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11130	11264	
==>f defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11130	11264	
==>f defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	262	391	
==>{ %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	262	391	
==>{ %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1437	1575	
==>[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state[1];
            last if $_[3] || ${$_[3]}->{abort};
        }
        ret <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10615	10722	
==>compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10615	10722	
==>compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7084	7219	
==>od
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10422	10511	
==>$class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.fin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10422	10511	
==>$class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.fin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	148	246	
==>ing and a position
within that string, and it provides the fundamental operations on strings as
com <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	148	246	
==>ing and a position
within that string, and it provides the fundamental operations on strings as
com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18451	18537	
==>urnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the curr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18451	18537	
==>urnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the curr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2935	3151	
==>ues is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28597	28719	
==>use Test::Harness qw(&runtests $verbose);
    $verbose=0; runtests @ARGV;' t/*.t
  Using /home/schwern/src/devel/Test-Harne <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5903	6009	
==>ds?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $contex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5961	6067	
==>ds?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $contex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2258	2394	
==>$_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2258	2394	
==>$_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8184	8303	
==>r is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $stri <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8184	8303	
==>r is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $stri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1817	1923	
==>» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1817	1923	
==>» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1591	1691	
==>" if $Config{verbose};
}

sub inline {
    print STDERR "Generating inlined source Prelude... " if $C <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3013	3150	
==>_version     { $_[0] =~ $re; $3 }
        sub package_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the metadata object of 1 p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	47	143	
==>ty;
use base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::Escape qw/quote printa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	604	706	
==>OPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	604	706	
==>OPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13112	13235	
==>>pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13112	13235	
==>>pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14193	14294	
==>$tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14193	14294	
==>$tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16997	17134	
==>if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13418	13555	
==>if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1819	1931	
==>cuments
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1819	1931	
==>cuments
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     }, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17490	17613	
==>_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_len <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17490	17613	
==>_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_len <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8178	8303	
==>} =~ m{ \G ($non_nest_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illeg <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17614	17732	
==>as_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 = subc <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20442	20545	
==>:- !.
rm(bol,         [X|Fx],[X|Fx],[10|Bx],[10|Bx],E0,E0) :- flag_m(E0), !.
rm(eol,         [],[],B0,B0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29239	29377	
==>block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29518	29656	
==>block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7204	7309	
==>arrot" };

my @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @modfiles > 0 }, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3130	3223	
==>_v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_end <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23754	23855	
==>is class defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28306	28407	
==>is class defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1576	1670	
==>les

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cook <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1576	1670	
==>les

In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cook <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	738	867	
==><' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        prec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	862	992	
==>< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	862	992	
==>< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.k <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2082	2201	
==>esults.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item want <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2082	2201	
==>esults.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item want <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4868	5002	
==>ks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4868	5002	
==>ks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6470	6567	
==>lass_precendence_list');

## test adding a class method (as a signleton method on the class instan <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4880	5016	
==>( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5344	5480	
==>( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2847	2948	
==>m C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they were
pre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2847	2948	
==>m C<$q.params()>

Returns the names of all the parameters as a list.  The order in which they were
pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	295	410	
==>} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	295	410	
==>} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	74	320	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	74	320	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4642	4746	
==>n flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4892	4996	
==>n flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19038	19147	
==>on layer on top of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
tr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19038	19147	
==>on layer on top of it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16841	16944	
==>content_encoding

The Content-Encoding header field is used as a modifier to the
media type.  When prese <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16841	16944	
==>content_encoding

The Content-Encoding header field is used as a modifier to the
media type.  When prese <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42941	43074	
==>:
L<Relation-(0.1.0)|Relation>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Relation> for the majority of refe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3753	3876	
==>ce );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3753	3876	
==>ce );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

me <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2828	2941	
==>rig}} = $assigned;
			push @forall, $assigned;
		}
		$entry->{new}->instantiate($assigned);
	}

	eval {
	   join(" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2437	2545	
==>new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2437	2545	
==>new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $t <==
2	/Users/nnunley/pugs/util/combine_tests.pl	825	965	
==>->{revision};
        push @revisions, $revision;
        for my $file (@{ $data->{meat}{test_files} }) {
            my $fname = $file->{fil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23225	23318	
==>C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23225	23318	
==>C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nic <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12584	12680	
==>t1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12584	12680	
==>t1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E< <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	861	971	
==>or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	828	938	
==>or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	167	260	
==>'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	167	260	
==>'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	865	962	
==>k

Note that methods are bound into the compiled Class (the Type object)
when they are included in <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14322	14411	
==>me),
  concat_atom(['use charnames ":full";unpack("U*","\\N{',AName,'}\n")'],Cmd),
  !, pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16282	16380	
==>=~ s/of\s+misctmp\d+\s+aborted/of - aborted/g;

    # bison says 'parse error' instead of 'syntax e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21811	21906	
==>gure out our longest name string for formatting purposes.
    my $max_namelen = length($failed_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2152	2261	
==>e> . " = Pugs::Compiler::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9800	9973	
==>h if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9800	9973	
==>h if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	730	880	
==>"ws: $grammar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2412	2541	
==>us_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regexp* r, char* stringarg, char* strend,
                          char* st <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7978	8074	
==>ement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7978	8074	
==>ement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18489	18702	
==>> "id",
	is => $id,
	in => comb(
		fun => ide("id"),
		param => comb(
			fun => comb (
				fun => ide("pair"),
				param => comb(
					fun => ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1542	1665	
==>__PACKAGE__->add_rule(
        name => 'eval',
        assoc => 'left',
        precedence => 'equal',
        other => 'pre <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8433	8565	
==>0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19809	19912	
==>), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24817	24964	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25096	25243	
==>$match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3113	3228	
==>e "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3113	3228	
==>e "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4404	4519	
==>ol, $body, $type) = @_;
	return $body;
}

sub symbolic_representation {
	my $self = shift;
	my $node = shift;

	$sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4602	4724	
==>timized: [",join(",",@rules),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs::Grammar::Category - Engine <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	348	446	
==>@_); }
sub node_a2{ hlp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environm <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3883	3995	
==>ion ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3883	3995	
==>ion ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2978	3076	
==>reserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2978	3076	
==>reserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

R <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2749	2867	
==>de the script stop if you aren't running under
      Linux, you may want to change that.

Note: A precompiled (but most <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12655	12754	
==>e="<tmpl_var name=unexpect> unexpectedly succeeded"><tmpl_var name=unexpect></span></td>
	    </tmpl <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5574	5717	
==>'$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21544	21634	
==>Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21544	21634	
==>Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan" <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9045	9148	
==>O

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9045	9148	
==>O

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9099	9217	
==>ry_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9087	9205	
==>ry_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3879	3993	
==>section ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3879	3993	
==>section ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4358	4507	
==>cat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $dir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4346	4495	
==>cat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $dir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27953	28055	
==>able value (a string) associated with
the variable name specified in the positional parameter $var_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27953	28055	
==>able value (a string) associated with
the variable name specified in the positional parameter $var_name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14623	14726	
==>el, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14623	14726	
==>el, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2091	2216	
==>e;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2091	2216	
==>e;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22819	22936	
==>t(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19240	19357	
==>t(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	285	387	
==>turns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_func <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	285	387	
==>turns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_func <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2229	2349	
==>\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2240	2360	
==>\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7663	7753	
==>est::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt & <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7721	7811	
==>est::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt & <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	214	318	
==>fore every fully qualified subroutine.
* takes a rexep as the only argument
* not tested much
* read this <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1896	1996	
==>and how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schnei <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1896	1996	
==>and how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schnei <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10367	10474	
==>e;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.ne <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10367	10474	
==>e;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree.ne <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	494	596	
==>ons for Blondie runtimes

=head1 SYNOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelude i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1057	1191	
==>{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1057	1191	
==>{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + le <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6682	6834	
==>@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1125	1225	
==>:Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1125	1225	
==>:Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3314	3488	
==>atch.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantifi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3314	3488	
==>atch.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2331	2524	
==>{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26893	27005	
==>\-]> #SourceCharacter but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      <Dec <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4747	4865	
==>$!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4805	4923	
==>$!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	441	549	
==>pside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	441	549	
==>pside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you l <==
2	/Users/nnunley/pugs/util/build_pugs.pl	39	134	
==>nings;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use File::Fin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14984	15131	
==>hannel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14984	15131	
==>hannel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1505	1618	
==>} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1505	1618	
==>} = $db_param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19595	19699	
==>r = fun(
	param => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12212	12326	
==>elation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15689	15803	
==>elation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body.size() == 0 o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19038	19154	
==>aving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19038	19154	
==>aving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restor <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10212	10312	
==>ns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10212	10312	
==>ns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.in <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3474	3576	
==>iguration files
with as little code as possible, reducing load time and memory overhead.

Written using <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3474	3576	
==>iguration files
with as little code as possible, reducing load time and memory overhead.

Written using <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	155	292	
==>ords join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	155	292	
==>ords join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cooki <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7413	7589	
==>'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7470	7646	
==>'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	904	1058	
==>) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	904	1058	
==>) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9416	9526	
==>and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9474	9584	
==>and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This tes <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3041	3129	
==>xechook_hook\n");
    fprintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,str <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1733	1919	
==>ars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1733	1919	
==>ars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12709	12825	
==>seudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12709	12825	
==>seudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37926	38016	
==>dule_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37926	38016	
==>dule_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Templ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	387	506	
==>rint "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnings;
	my($pat,$str,$ok,$thing,$value,@rest) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5573	5676	
==>fetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_age + time }
}

1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5573	5676	
==>fetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_age + time }
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2030	2130	
==>-------------------------------------
## adding children 

method add_child ($self: Tree $child) retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2030	2130	
==>-------------------------------------
## adding children 

method add_child ($self: Tree $child) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4908	5015	
==>\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4908	5015	
==>\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] const <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	548	674	
==>::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><titl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	548	674	
==>::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><titl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2132	2247	
==>n( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# not <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2143	2258	
==>n( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# not <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18631	18729	
==>struct - attempting to make it look sufficiently
like what the core expects to avoid problems.  Whi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2921	3019	
==>struct - attempting to make it look sufficiently
like what the core expects to avoid problems.  Whi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2434	2529	
==>|| confess "Attribute (" . $name->to_str->to_native . ") already exists";
    return $self->[2]- <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4479	4769	
==>ragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        st <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4479	4769	
==>ragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15705	15810	
==>een as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15705	15810	
==>een as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2450	2649	
==>$v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2450	2649	
==>$v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1973	2118	
==>n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13585	13684	
==>("p6_as_array called on $_[0]"); undef };
my %as_array_handlers =
    ( undef => sub { $as_array_com <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5287	5409	
==>rns Str is primitive is safe {
        my($mess, $i);
        $mess = "$e at $?CALLER::POSITION";

        #while Control:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2056	2167	
==>($data,"",0),
    }, $cls;
}
sub _stages {@{$_[0]{'stages'}}}

sub has_failed {
    my($self)=@_;
    for my $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7172	7317	
==>bel}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = lengt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7172	7317	
==>bel}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = lengt <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3715	3823	
==>ompiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3715	3823	
==>ompiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23177	23275	
==>be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is Tru <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27729	27827	
==>be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is Tru <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11010	11142	
==>Internals::hSetBinaryMode($fh, Bool::True) if
            $layer ~~ rx:P5/:raw\b/;

        $fh;
    }

    multi method seek (Int $p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15570	15664	
==>y and the %entity_to_char hashes,
which contain the mapping from all characters to the correspo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15570	15664	
==>y and the %entity_to_char hashes,
which contain the mapping from all characters to the correspo <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1241	1365	
==>:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1241	1365	
==>:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34378	34488	
==>mes property of the new object is set from the named parameter
@set_names (an array ref), and Member Names is s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34378	34488	
==>mes property of the new object is set from the named parameter
@set_names (an array ref), and Member Names is s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4510	4618	
==>ang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4356	4460	
==>ang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9861	10004	
==>ose }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9861	10004	
==>ose }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5601	5703	
==>recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5601	5703	
==>recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31056	31160	
==>l name of a module
consists of the two parts concatenated without any delimiter.  This means,
for example <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31056	31160	
==>l name of a module
consists of the two parts concatenated without any delimiter.  This means,
for example <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	667	799	
==>SS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	667	799	
==>SS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Typ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15112	15219	
==>t has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are listed in their Do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15112	15219	
==>t has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are listed in their Do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7945	8066	
==>= time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7945	8066	
==>= time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24068	24181	
==>al use only" fields in regexp.h are present to pass info from
 * compile to execute that permits the execute phase <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1704	1816	
==>${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9274	9414	
==>mar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10110	10250	
==>mar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5923	6033	
==>ns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5981	6091	
==>ns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, s <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6457	6590	
==>value =   %pad<"pLValue">;
        dbg "# Parameters: "; my @params =   traverse_ast ( %pad<"pParams"> );
        dbg "# Type:       " <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	884	975	
==>is JSX::ValuePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1	108	
==>ackage Inline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1	108	
==>ackage Inline::Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1 <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	722	829	
==>) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $durat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	722	829	
==>) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $durat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1097	1204	
==>ssed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($value) && $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	53	137	
==>/perl5/site_perl/5.8.7/Module/Install/Fetch.pm"
package Module::Install::Fetch;
use M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11758	11874	
==>(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRAC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4401	4517	
==>(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRAC <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16677	16799	
==>f @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<confor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16677	16799	
==>f @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<confor <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1480	1610	
==>elf = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

	my $sent = scalar( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25813	25909	
==>date its target's C<pos()>.  This method, where it returns a
I<reference> to a scalar, makes it w <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	57	171	
==>Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	57	171	
==>Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1889	2033	
==>e
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7289	7379	
==>ar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1114	1204	
==>ar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
pus <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4311	4417	
==>}];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4311	4417	
==>}];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	987	1122	
==>f a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the g <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	987	1122	
==>f a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the g <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4967	5063	
==>tax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4967	5063	
==>tax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Confi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6489	6662	
==>n  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List)\
\\n   Junction  pre     none    safe   (List)\
\\n   Int       pre     List::elems   safe   ( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	49	163	
==>"$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-Met <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2004	2164	
==>%param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2004	2164	
==>%param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12195	12335	
==>_|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12195	12335	
==>_|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment bl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13385	13510	
==>erver.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13385	13510	
==>erver.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4563	4690	
==>t');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4346	4468	
==>t');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18695	18799	
==>d
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18695	18799	
==>d
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1499	1612	
==>o);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1499	1612	
==>o);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great uni <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1296	1436	
==>topt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int $count = 0;
        has Array of Str @stri <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1066	1164	
==>- aid in prototyping the regexp system - the regexp tree, its
  compilation to pil, how regexp modi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	9	114	
==>l - Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	9	114	
==>l - Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	485	619	
==>le =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	485	619	
==>le =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2837	2950	
==>);

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2837	2950	
==>);

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31761	31859	
==>he
current user is fluent in (and prefers) language A but also understands
language B.  Later on, i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31761	31859	
==>he
current user is fluent in (and prefers) language A but also understands
language B.  Later on, i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11172	11287	
==>eue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler ca <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11172	11287	
==>eue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler ca <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2614	2742	
==>need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2614	2742	
==>need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pa <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	578	671	
==>ode $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $t <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	578	671	
==>ode $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6242	6370	
==>ce( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6242	6370	
==>ce( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	339	440	
==>h
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	339	440	
==>h
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

su <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11332	11438	
==>ments both from this recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11332	11438	
==>ments both from this recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns on <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2723	2901	
==>urn;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $transla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2723	2901	
==>urn;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $transla <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1598	1729	
==>= @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_all_children( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1598	1729	
==>= @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_all_children( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8164	8289	
==>t::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8222	8347	
==>t::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	966	1064	
==>p { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::R <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1341	1439	
==>ere ...
    $supers = $class->get_attr(symbol->new('@:superclasses')) 
        if $supers->is_empty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13512	13725	
==>f ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = join( ', ', 
                map { 
                    join( ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	157	280	
==>nt;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	157	280	
==>nt;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9560	9682	
==>hod complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9560	9682	
==>hod complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16313	16417	
==>self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16313	16417	
==>self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19558	19655	
==>Locale::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19558	19655	
==>Locale::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3946	4047	
==>modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3946	4047	
==>modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cip <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28150	28268	
==>n
each test.  For example, setting C<HARNESS_PERL_SWITCHES> to C<-W> will
run all tests with all warnings enabled.

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7760	7857	
==>ue
of the message.  If you use new() the F<Regexp::Parser> object will
still be returned, but if y <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13087	13317	
==>ew('%params'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->ge <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12358	12464	
==>ge/*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the initrd",
    ensure => sub { -r "$initrd_mnt/$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3464	3562	
==>object;
}
=pod
.include "cclass.pasm"

.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .lo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18652	18760	
==>d end on line boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> st <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18652	18760	
==>d end on line boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37810	37907	
==>$msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37810	37907	
==>$msg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2445	2570	
==>tidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2445	2570	
==>tidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	822	920	
==>n whole bytes, XORing elements of a constantly-transforming 
state table with each byte of plaintex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	822	920	
==>n whole bytes, XORing elements of a constantly-transforming 
state table with each byte of plaintex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4194	4298	
==>s bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4194	4298	
==>s bool { 
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	879	982	
==>return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	879	982	
==>return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7053	7238	
==>{
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7517	7702	
==>{
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5773	6001	
==>($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5773	6001	
==>($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2188	2284	
==>e C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2188	2284	
==>e C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3392	3503	
==>ed by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3392	3503	
==>ed by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3887	3988	
==>ormalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3887	3988	
==>ormalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostnam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4606	4707	
==>lopment version.  The API is still in flux.

The set of implemented features depends on the C<ratchet> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4856	4957	
==>lopment version.  The API is still in flux.

The set of implemented features depends on the C<ratchet> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	965	1063	
==>he API

The Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	965	1063	
==>he API

The Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8794	8916	
==>perations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $interse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8794	8916	
==>perations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $interse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6153	6291	
==>it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5956	6086	
==>it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36512	36604	
==>e-readable) Message object as its positional
parameter $message and returns an equivalent hum <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36512	36604	
==>e-readable) Message object as its positional
parameter $message and returns an equivalent hum <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13969	14063	
==>was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_sa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13969	14063	
==>was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_sa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	968	1120	
==>edence} eq 'looser' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precede <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19566	19672	
==>on
  M = [Str|_], %# XXX - need api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  rm(Re,F0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19295	19433	
==>en.  Please contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2902	3028	
==>ser',
        other => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	96	204	
==>sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loo <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	96	204	
==>sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1327	1429	
==>ivePrecedence and $relativePrecedence ne "" )
  {
    if ( substr $relativePrecedence, 0, 1 =~ m/[\=\<\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8249	8464	
==>.
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $bl <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	502	600	
==>ers::join_map ns, { "...$^n..." }, which might tilt
the balance.

Clutter:: is a package for macros <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	57	159	
==>ntime;

use Perl6::Core::Nil;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Per <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11523	11667	
==>n.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11523	11667	
==>n.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	704	804	
==>ariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	704	804	
==>ariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2108	2282	
==>s.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2108	2282	
==>s.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookie <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22799	22901	
==><Block> <Catch> <Finally>
}
rule Catch :words {  # see 12.14
      <'catch'> <'('> <Identifier> <')'> < <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	101	210	
==>Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document diffe <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	101	210	
==>Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document diffe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6480	6576	
==>rent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6480	6576	
==>rent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15023	15125	
==>nt Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15023	15125	
==>nt Node>

Rosetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  No <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3894	4039	
==>no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3894	4039	
==>no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	134	254	
==>y @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile t <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	134	254	
==>y @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7035	7156	
==>ers_supported_p5.{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } e <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1901	2010	
==>ewinput) = $_.($input);
      ## XXX - this is teh b0rk: (($v, $newinput) = $_->($input))
      return($v, $ne <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10011	10125	
==>",
               "etc", "etc/terminfo", "etc/terminfo/l";
  step
    descr  => "Creating directories " . join(", " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1081	1235	
==>_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1081	1235	
==>_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8460	8576	
==>complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8460	8576	
==>complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2985	3103	
==>$msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful logi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2985	3103	
==>$msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a successful logi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5447	5558	
==>een received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5447	5558	
==>een received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	283	435	
==>> $dir ) 
        or die "Could not create JIB::Source object from '$dir'";
        
    my $pkg = $src->build 
        or die "Could not build source pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40200	40306	
==>fth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40200	40306	
==>fth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35772	35868	
==>at takes
another Relation as its C<$other> argument and combines it with the
invocant relation in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40322	40418	
==>at takes
another Relation as its C<$other> argument and combines it with the
invocant relation in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18462	18577	
==>rs, we still get the best results by having a human being write out
that text themselves.

What Locale::KeyedText do <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18462	18577	
==>rs, we still get the best results by having a human being write out
that text themselves.

What Locale::KeyedText do <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	995	1091	
==>ay)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).ma <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	995	1091	
==>ay)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19658	19783	
==>6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P0
    $P1 = self[1]
    $P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19197	19297	
==>C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true val <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19197	19297	
==>C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true val <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9951	10053	
==>handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9951	10053	
==>handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() }, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4761	4918	
==>n;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4761	4918	
==>n;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2509	2666	
==>,
                (map { ('-i' => $_) } @{ PugsBuild::Config->lookup('precompile_modules') }),
                '-p', $thispugs, '--output', $ppc_yml);
    }
} <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6540	6679	
==>lyze_file($test_file);

Like C<analyze>, but it runs the given C<$test_file> and parses its
results.  It will also use that name for the tot <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2525	2653	
==>$.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2525	2653	
==>$.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7577	7669	
==>ts, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1402	1494	
==>ts, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_ca <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9725	9841	
==> $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9725	9841	
==> $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3152	3276	
==>lib';
    $self->{_build_info} = join '', qx{$executable -V};
}

sub _build_exclude_re {
    my $excl = join "|", # map { quo <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1408	1518	
==>, *%params) {
    my $template = slurp $filename;
    $template ~~ s:g:perl5/\[\%(.+)\%\]/{ %params{$0} || '' } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	991	1095	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1049	1153	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10585	10785	
==>e when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10585	10785	
==>e when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnic <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	115	250	
==>mbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wron <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	115	250	
==>mbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wron <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19686	19780	
==>le,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login phase <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19686	19780	
==>le,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login phase <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3444	3553	
==>-Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPERL = .*)/$1 -Iin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4580	4683	
==>-Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL = .*)/$1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19318	19421	
==>OUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19318	19421	
==>OUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	163	301	
==>parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	163	301	
==>parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	495	617	
==>re()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	495	617	
==>re()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_cl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4481	4609	
==>us },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersecti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4481	4609	
==>us },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersecti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2918	3026	
==>turn Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2918	3026	
==>turn Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9021	9154	
==>:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9021	9154	
==>:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1175	1282	
==>Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1233	1340	
==>Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3213	3318	
==>uess about what to put in %*INC. it's not perfect.
    # When module return values are specced, we can mak <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6174	6269	
==>mental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> "$". %"
p5_element <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1083	1206	
==>at uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1083	1206	
==>at uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5176	5338	
==>$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @b <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5176	5338	
==>$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1422	1561	
==>roups'}= [ [map {Path::Class::dir($_)} 
                                    qw(author name prefix)] ];


### meta dirs/files
### These are d <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1068	1206	
==>Elem' => sub { # $idx -> $container # autovivification! - returns **CONTAINER**
                my $self = shift;
                my $idx = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2355	2478	
==>ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <v <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2355	2478	
==>ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23010	23245	
==>" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23289	23524	
==>" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12004	12100	
==>es";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12004	12100	
==>es";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "vis <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	407	521	
==>CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CG <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	407	521	
==>CGI module to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CG <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6608	6720	
==>nt parse.
multi method Array::as_str (@array:) returns Str {
    join(" ",@array.values);
}

# speculative?
# beh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33938	34045	
==>>, I<anyof_range>, I<anyof_class>

Neg: 1 if negated

Ender: I<anyof_close>

=head2 anyof_char

Family: anyo <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1289	1513	
==>');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %ev <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1289	1513	
==>');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %ev <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11287	11418	
==>, '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11287	11418	
==>, '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	738	986	
==>ecute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	738	986	
==>ecute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	791	972	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:per <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	791	972	
==>=> -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:per <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25054	25165	
==>a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29606	29717	
==>a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1860	2004	
==>re ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15509	15621	
==>nyof_class => xdigit => $neg, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	121	216	
==>of lrep only compiles Grammar sections
# The full version is on misc/pX/Common/lrep*
# ********* <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	202	313	
==>t is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	202	313	
==>t is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3317	3467	
==>ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3564	3714	
==>ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6283	6404	
==>capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6283	6404	
==>capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5419	5545	
==>se( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5419	5545	
==>se( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statemen <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1931	2026	
==>ture...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=it <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1931	2026	
==>ture...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11341	11441	
==>ies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("M <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11341	11441	
==>ies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("M <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4631	4740	
==>$self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call me <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4490	4599	
==>$self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call me <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14352	14450	
==>ction.
C<keys> only returns the key; C<values> the value; C<kv> returns both as
a 2 element list in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2897	3016	
==>);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2885	3004	
==>);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39536	39629	
==>3-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug report <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39536	39629	
==>3-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug report <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	773	926	
==>,
            name => '&ternary:<?? !!>',
            body => sub {
                $_[1] ? $_[2] : $_[3]
            },
			type => [map { Blondie::TypeSa <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	401	521	
==>:Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODULE, $modules[0] or di <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13029	13128	
==>is also used internally when joining two spans, and when getting the span size.

Create a span of 10 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13029	13128	
==>is also used internally when joining two spans, and when getting the span size.

Create a span of 10 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31225	31316	
==>ng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy usef <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31225	31316	
==>ng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy usef <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6936	7159	
==>e {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6936	7159	
==>e {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9782	9876	
==>sor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9782	9876	
==>sor" 
function.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	611	741	
==>=> 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	611	741	
==>=> 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'U <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5043	5128	
==>ta::Dumper;
    PIL::PIL1CPerl5::Util::rebless_with_prefix_and_cleanup($pil_tree,__PAC <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7639	7733	
==>dextests --> Int|(List of Pair) )
 multi Array::values (@array ; MatchTest *@indextests --> Int <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	864	999	
==>ut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks / <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	864	999	
==>ut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	289	393	
==>s::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
#print $rp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	322	420	
==>s::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	439	535	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	439	535	
==>rammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	522	654	
==>inite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * const <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	522	654	
==>inite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * const <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17328	17442	
==>fined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $len = l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10529	10672	
==>d_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10146	10269	
==>d_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 1, '');
  }) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	60	186	
==>has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $d <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	60	186	
==>has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	142	264	
==>n AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep tra <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	142	264	
==>n AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep tra <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	359	479	
==>= sub {
            +shift->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3130	3244	
==>1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50.00% okay
  Failed Test  Stat Wstat Total Fail  F <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	154	272	
==>lf:) returns Float {
    ...
}

# return a unix time_t
method time_t($self:) returns Int {
    ...
}

method add($self: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8617	8720	
==>... Object cannot call singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15024	15192	
==>d $end) {
              $beg->tag('div');
              $beg->attr('class', 'empty_head '.$tag);

              next;
            }

            $end = $end->right until <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1906	2114	
==>t unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1906	2114	
==>t unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delet <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	598	734	
==>for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Bench <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	695	831	
==>for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Bench <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17647	17741	
==>eader field is used in request messages and contains information
about the user agent originati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17647	17741	
==>eader field is used in request messages and contains information
about the user agent originati <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23241	23326	
==>,Fx,F1,[C|B0],B1,E0,E1).

rmGlobal(Re,F0,F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,F0,Fx,B0, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2099	2218	
==>st files.  So if you begin a test with:

    #!perl -T

the test will be run with taint mode on.

=head2 Configuration v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2277	2395	
==>P::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2277	2395	
==>P::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Reque <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33058	33160	
==>red list of one or more elements where
each element is a Template module Set Name.  When we have to tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33058	33160	
==>red list of one or more elements where
each element is a Template module Set Name.  When we have to tra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1041	1155	
==>atch($str)   for 1..40},
        P6_Regex   => sub{ $match = $rpc_regex->match($str)   for 1..40},
        P6_Reg <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1506	1601	
==>.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$\+\[0\]/\".\$m->to.\"/g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9933	10173	
==>symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9365	9450	
==>class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_item(class_pos(X)) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	543	664	
==>nking of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Num <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	543	664	
==>nking of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Num <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16902	17052	
==>attrs'));     
            }
        )
    )
);

=pod

method BUILDALL (opaque $self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15744	15838	
==>_unmodified_since

These header fields are used to make a request conditional.  If the requeste <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15744	15838	
==>_unmodified_since

These header fields are used to make a request conditional.  If the requeste <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4335	4435	
==>s_that_should_be}->is_arrow;
}

sub splat { # recursive splatting happens in parametrized type operat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19814	19912	
==>when not running under PIL2JS!";
}
our &PIL2JS::Internals::use_jsan_module_noimp := &PIL2JS::Intern <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9077	9173	
==>gleStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      < <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13778	13881	
==>thod join (Relation *@others) returns Relation {

    # First do some optimizing of the order that sourc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17255	17358	
==>thod join (Relation *@others) returns Relation {

    # First do some optimizing of the order that sourc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3865	4027	
==>o
            system( qq[tar -f $my_tmp_dir/$data -C ] . 
                        $conf->compile_dir . q[ -xz] );

            ### preinst hook
            my $pre <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1392	1550	
==>system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $archive $Repod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9812	9908	
==>the very first module written for Pugs.

It provides a simple set of common test utility function <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9870	9966	
==>the very first module written for Pugs.

It provides a simple set of common test utility function <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4656	4814	
==>c expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4656	4814	
==>c expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19388	19484	
==>pgrade or localize what text the user
sees, you only have to update said separate resource files, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19388	19484	
==>pgrade or localize what text the user
sees, you only have to update said separate resource files, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1866	2047	
==>n};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1866	2047	
==>n};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $cook <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	337	502	
==>'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Ch <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	337	502	
==>'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Ch <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	855	953	
==>revious($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- ` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	855	953	
==>revious($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- ` <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2231	2356	
==>$q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2231	2356	
==>$q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1764	1870	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1822	1928	
==>desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proclaim($t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11765	11868	
==>ode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11765	11868	
==>ode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entitie <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31129	31230	
==>imiter.  This means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31129	31230	
==>imiter.  This means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8913	9043	
==>ranch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $self->raw, map join("", <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30520	30614	
==>bugs, fixes and enhancements to 
C<< <bug-test-harness >> at C<< rt.cpan.org> >>.

=head1 AUTHO <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9734	9831	
==>efined by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from " <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9734	9831	
==>efined by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16604	16800	
==>patcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    }) <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4821	4919	
==>character_set>+ \> }
rule character_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3720	3851	
==>er::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3720	3851	
==>er::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	171	275	
==>ata::Dumper;

use JIB::Repository;

use base 'Object::Accessor';

=head2 $set = JIB::Repository::Set->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5425	5572	
==>ch2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5425	5572	
==>ch2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14717	14814	
==>nn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14717	14814	
==>nn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, wh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9381	9645	
==>0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10858	11122	
==>0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	52	147	
==>@.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns Ar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	52	147	
==>@.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns Ar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27252	27379	
==>ble_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit changes to its att <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27252	27379	
==>ble_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit changes to its att <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12654	12833	
==>rce =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12654	12833	
==>rce =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1285	1430	
==>d $code;
    # print "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1296	1441	
==>d $code;
    # print "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22405	22502	
==>d Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	280	409	
==>tring
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	280	409	
==>tring
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1976	2098	
==>Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$char <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1976	2098	
==>Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8287	8449	
==>return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8287	8449	
==>return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27607	27709	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27607	27709	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Messag <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2549	2655	
==>parator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2549	2655	
==>parator is
    # there, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1606	1711	
==>luggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlu <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1606	1711	
==>luggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1144	1246	
==>his is not yet 
    # populated with anything, so ....
    my $supers = $class->get_attr(symbol->new('@ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13177	13276	
==>ing is not implemented yet. So
in order to still allow that to be tested, and those tests to knowing <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13235	13334	
==>ing is not implemented yet. So
in order to still allow that to be tested, and those tests to knowing <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20541	20642	
==>by
compilers. After all the compilers have finished, the digest lines will
be expanded again.

Every b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20541	20642	
==>by
compilers. After all the compilers have finished, the digest lines will
be expanded again.

Every b <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8913	9014	
==>ts_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

EN <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8971	9072	
==>ts_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

EN <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22130	22250	
==>L, SV which is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotati <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17031	17150	
==>L, SV which is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotati <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3424	3573	
==>('$.output')->write('1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= ' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25938	26040	
==>fine ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBOL	 	0x00004
 #defi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2697	2837	
==>l  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2697	2837	
==>l  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9142	9245	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9142	9245	
==>tation is pending.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interf <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2718	2819	
==>ith the same key, the encryption 
can be removed by XORing them together; you might not be able to der <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2718	2819	
==>ith the same key, the encryption 
can be removed by XORing them together; you might not be able to der <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15884	15983	
==>ots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20117	20216	
==>ots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	710	818	
==>oto &{"re::override::${flavor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub make_qr_regexp_pair <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32527	32628	
==>his object does is zero-width (like an anchor).

=back

If there is a method with the name of one of t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1530	1630	
==>n used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1530	1630	
==>n used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I< <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15638	15752	
==>uctures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15696	15810	
==>uctures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14578	14680	
==>dler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8780	8882	
==>dler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6370	6610	
==>ency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6834	7074	
==>ency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1512	1602	
==>ver C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1512	1602	
==>ver C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4522	4660	
==>_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4522	4660	
==>_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@ba <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	196	310	
==>ly the Match object that userland folks will
see, but it has some other clutter because of unclear design.

    $.f <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	196	310	
==>ly the Match object that userland folks will
see, but it has some other clutter because of unclear design.

    $.f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22526	22623	
==>de
environment at all.

A Relation object has 2 main attributes (implementation details subject to <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27078	27175	
==>de
environment at all.

A Relation object has 2 main attributes (implementation details subject to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3736	3925	
==>acking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3621	3804	
==>acking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35139	35242	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35139	35242	
==>ct has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Transla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14499	14619	
==>anslator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14499	14619	
==>anslator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8915	9035	
==>); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared libraries (*.so) pugs
      req <==
2	/Users/nnunley/pugs/util/func_refact.pl	454	548	
==>an iterate. -debug <fname> is a function to print more
information about as components are comp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9303	9440	
==>ackage => $inst_pkg );

        ### this package didn't provide any alternatives
        last LINKING unless $alt;
        
        ### XX <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9501	9622	
==>::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2399	2522	
==>]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/)) <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2399	2522	
==>]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/)) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14069	14191	
==>fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14069	14191	
==>fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and time() - $last_tr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5829	5947	
==>method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5829	5947	
==>method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9026	9127	
==>ry

the only overhead is a SVMG (i.e. bless())

you can return the same failure object always

then th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8729	8827	
==>ry
the only overhead is a SVMG (i.e. bless())
you can return the same failure object always
then th <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	213	320	
==>th & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLeng <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	213	320	
==>th & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLeng <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15077	15169	
==>h applications invoke and which
multiple interchangeable "Engine" back-ends (usually provided <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15077	15169	
==>h applications invoke and which
multiple interchangeable "Engine" back-ends (usually provided <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3744	3865	
==>,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3744	3865	
==>,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14516	14613	
==>o build the string, the result
will use case as suggested by HTTP spec, and it will follow
recomme <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14516	14613	
==>o build the string, the result
will use case as suggested by HTTP spec, and it will follow
recomme <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	662	777	
==>$removed;
    }
}

sub sleep (Num $seconds) returns Num is builtin is primitive {
    my $time = time;
    Perl6::In <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6041	6144	
==>is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this document successfully <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6041	6144	
==>is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this document successfully <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4293	4430	
==>inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack() <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4293	4430	
==>inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack() <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5219	5335	
==>eturn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5219	5335	
==>eturn '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	226	368	
==>return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# thin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	226	368	
==>return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# thin <==
2	/Users/nnunley/pugs/util/package-osx.pl	1096	1205	
==>man.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/ma <==
2	/Users/nnunley/pugs/util/package-osx.pl	3406	3515	
==>man.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	291	406	
==>=> sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    r <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	48	134	
==>l/lib/perl5/site_perl/5.8.7/Module/Install/Win32.pm"
package Module::Install::Win32;
us <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1744	1858	
==>_PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
u <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1897	2017	
==>ig{cc} eq 'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3002	3102	
==>LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3002	3102	
==>LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl <==
2	/Users/nnunley/pugs/util/grokprims.pl	1412	1509	
==>". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{args}}) .")";
  } elsif (/(list|chaining) in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9895	10019	
==>rs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GM <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9895	10019	
==>rs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GM <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31158	31253	
==>ple, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31158	31253	
==>ple, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10070	10175	
==>Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10070	10175	
==>Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5339	5578	
==>{
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5339	5578	
==>{
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9382	9513	
==>hild_height = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if ther <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9382	9513	
==>hild_height = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if ther <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12195	12312	
==>other!) returns Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15672	15789	
==>other!) returns Relation {

    # First look for trivial cases that are more efficient to do different.
    if ($!body <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2146	2291	
==>}
        multi method as (--> Bool) { true }
        multi method as (--> Array) { @.strings }
        multi method as (--> Named) { $.name => se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	952	1041	
==>rm:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\S", "term:", "nows", <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9873	10017	
==>see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
rule HexEscapeSequence {  # see 7.8.4
      <'x'> <HexDigi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	499	598	
==>t is bound to that
Class' C<Type> object immediately; however, in the case of a Role, it
is not boun <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	997	1279	
==>$root
            },
            config => {
                no_override => 1,
                default     => $config
            },
            pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1790	1896	
==>b splice (@a is rw, $offset=0, $length?, *@list) is builtin is primitive {
    my $off = +$offset;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13691	13885	
==>{
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13691	13885	
==>{
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11266	11365	
==>C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11266	11365	
==>C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1507	1629	
==>die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1507	1629	
==>die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17252	17351	
==>e or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17252	17351	
==>e or more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8485	8583	
==>m your own security analysis before using it in any 
sensitive application.>

B<I<The authors and c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8485	8583	
==>m your own security analysis before using it in any 
sensitive application.>

B<I<The authors and c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1152	1346	
==>s -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1152	1346	
==>s -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4087	4289	
==>t $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4087	4289	
==>t $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1027	1134	
==>& $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1260	1367	
==>& $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do()->to_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7041	7238	
==>n $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The heading of the re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10518	10715	
==>n $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Relation {

    die "The heading of the re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1378	1477	
==>pected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1436	1535	
==>pected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3570	3660	
==>:= [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3754	3844	
==>:= [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	98	200	
==>mars and multimethods)

# first part is a type pretty printer and the type object model
# it emits gree <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	234	338	
==>n";
print "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}\n";
print "{$wer}s Lieblingsdrink ist %liebling <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	390	482	
==>pt>
<body>
<h1>~</h1>
<p>(<a href="/">Back to /</a>)</p>
<p>
These users have something in th <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	205	339	
==>__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	200	334	
==>__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	211	357	
==>mal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	211	357	
==>mal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	119	221	
==>uest::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	119	221	
==>uest::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	128	227	
==>s: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	128	227	
==>s: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5193	5322	
==>ing () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5193	5322	
==>ing () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3473	3571	
==>til::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3473	3571	
==>til::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9072	9168	
==>et.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9072	9168	
==>et.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13369	13464	
==>h you can create an identical Document (with member
Nodes) to the one you first invoked export_a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13369	13464	
==>h you can create an identical Document (with member
Nodes) to the one you first invoked export_a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17275	17371	
==>ation and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, which <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17275	17371	
==>ation and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, which <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5456	5587	
==>return $self if -s FH;
        }
    }

    print "Writing META.yml\n";

    local *META;
    open META, "> META.yml" or warn "Canno <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1538	1736	
==>$0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1538	1736	
==>$0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3910	4017	
==>ect, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specify which nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4094	4201	
==>ect, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specify which nam <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1559	1663	
==>ethod diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $se <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1559	1663	
==>ethod diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1183	1278	
==>rm:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\n", "term:", "nows", "PGE: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20845	20928	
==>':
F<YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	136	231	
==>har_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	136	231	
==>har_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2928	3054	
==>= "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide def <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2928	3054	
==>= "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide def <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14713	14809	
==>d never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C< <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14713	14809	
==>d never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C< <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23678	23804	
==>xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_te <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	953	1057	
==>have are:
# type::operator
#	::binary - takes 2 params (e.g. ->, x)
#	::nullary - takes 0 params (e.g. in <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21328	21416	
==>. %\v chr(11)
class_member(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11 <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	660	757	
==>refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13211	13325	
==>b_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the databa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13211	13325	
==>b_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the databa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1487	1586	
==>ing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our cl <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1487	1586	
==>ing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

our cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	827	982	
==>w {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	827	982	
==>w {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4695	4812	
==>tead of taking from filter,
    # because we need all the lines including the ones before the `use`
    # statement, s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4695	4812	
==>tead of taking from filter,
    # because we need all the lines including the ones before the `use`
    # statement, s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5555	5654	
==>us_exec_hook = PL_regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5884	6001	
==>}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5884	6001	
==>}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21483	21577	
==>ad2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21483	21577	
==>ad2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6302	6431	
==>fix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6302	6431	
==>fix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16163	16264	
==>nally, while another one displays it to the
user instead.

Locale::KeyedText provides a simple but eff <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16163	16264	
==>nally, while another one displays it to the
user instead.

Locale::KeyedText provides a simple but eff <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6598	6703	
==>== (+0|-0|Inf|-Inf);
    my $Result4 = sign($Result1) * floor(abs($Result1));
    return $Result4;
}

# 9. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11953	12096	
==>.*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11953	12096	
==>.*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28241	28368	
==>rn { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28520	28647	
==>rn { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1448	1592	
==>n;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1390	1527	
==>n;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	329	467	
==>n('', @a);
    my $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11529	11630	
==>et called for regexp comp and exec.
  The hooks are not package-specific.

Design:

  The comp hook su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2246	2365	
==>my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2386	2505	
==>my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub matc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8351	8572	
==>ys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8815	9036	
==>ys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3713	3850	
==>ore       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_error), <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8113	8238	
==>ore   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3587	3684	
==>ing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3587	3684	
==>ing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16733	16829	
==>t one could write a self-contained application in
Rosetta D and compile that into its own executa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16733	16829	
==>t one could write a self-contained application in
Rosetta D and compile that into its own executa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8661	8762	
==>s in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8661	8762	
==>s in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L< <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2340	2478	
==>+;
    dbg "# $tree[0] start";
    my $ret;

    if $tree[0] eq '"PIL_Environment"' {
        my %pad = $tree[1];  # keys: "pilGlob", "pilM <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17348	17482	
==>> {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_col <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17348	17482	
==>> {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_col <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	265	384	
==>vent<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	265	384	
==>vent<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $eve <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2930	3044	
==><METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2930	3044	
==><METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16335	16477	
==>}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16335	16477	
==>}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  } <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1527	1699	
==>m) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1527	1699	
==>m) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!member <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20231	20328	
==>e as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20231	20328	
==>e as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12992	13091	
==>ies are left alone.

If multiple strings are provided as argument they are each decoded
separately a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12992	13091	
==>ies are left alone.

If multiple strings are provided as argument they are each decoded
separately a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1185	1291	
==>urn _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is expor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1185	1291	
==>urn _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is expor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12506	12674	
==>th (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12506	12674	
==>th (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	850	943	
==>il::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	850	943	
==>il::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	197	294	
==>sed by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	197	294	
==>sed by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	431	540	
==>s bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	431	540	
==>s bool {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12070	12178	
==>toping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12070	12178	
==>toping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	469	567	
==>s Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	469	567	
==>s Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($self <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	810	918	
==>{ $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { retu <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	810	918	
==>{ $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { retu <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2795	2906	
==><N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2795	2906	
==><N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3204	3334	
==>n;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3204	3334	
==>n;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7177	7292	
==>r $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7235	7350	
==>r $got?, Str $expected?, Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5272	5380	
==>* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5089	5191	
==>* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	203	319	
==>e
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Genera <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	172	271	
==>Or spec code which doesnt actually
# run yet.  The immediate goal is simply to permit a piln backend <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1587	1682	
==>multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value] <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1587	1682	
==>multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	317	417	
==>n::Code.compare is incomplete
    * Constructors should emit error messages if there are unknown para <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	317	417	
==>n::Code.compare is incomplete
    * Constructors should emit error messages if there are unknown para <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17220	17353	
==>ot a Unicode "titlecase" operation, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> St <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1784	1889	
==>n{block}{desc}\\texttt\n{";

    while ( defined(my $chr = shift @file) ) {
	++$col;
	
	if ( $chr =~ /([\' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4154	4287	
==>ngth $target;

  if matches( /\s/, $target, $pos )
  {
    goto term_ws;
  }

  $initchar = substr $target, $pos, 1;
  if (( index "<> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4698	4825	
==>->{".$key."}";
}
sub node::assign {
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<valu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4105	4217	
==>] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4954	5066	
==>] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statem <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10433	10566	
==>onnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10433	10566	
==>onnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1724	1855	
==>ase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strate <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1724	1855	
==>ase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strate <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	61	157	
==>-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	61	157	
==>-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	908	1049	
==>:NullPlan' => {
    is => [ $::Object ],    
    methods => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5741	5865	
==>.join(",",map{p6_container_for_var_CODE($_)}@vars).')';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12749	12850	
==>ror messages.  Their values are all
negative; positive values are left available for extensions.  Plea <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7757	7898	
==>e to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t** <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1058	1199	
==>e to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t** <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1137	1258	
==>vlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1137	1258	
==>vlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefi <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2521	2641	
==>elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2521	2641	
==>elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4923	5059	
==>s; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1865	1966	
==>d.gz";
my $initrd_img   = "initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2161	2258	
==>H (block &dispatcher, symbol $label, hash %opts) returns method {
    while (my $current = &dispat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34966	35072	
==>ere

Neg: 1 if negated

=head2 clump

Family: clump

Types: clump (C<\X>)

=head2 branch

Family: branch

T <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24933	25029	
==>his Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Boo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29485	29581	
==>his Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2842	2955	
==>new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2842	2955	
==>new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closur <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5748	5910	
==>stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4248	4410	
==>stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2231	2328	
==>asses within the strategy.  They're
done like this until pugs gets support for virtual classes.

= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2231	2328	
==>asses within the strategy.  They're
done like this until pugs gets support for virtual classes.

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3845	3943	
==>he error below, it may happen that your perl was compiled without PMC support.

  Can't locate obje <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3058	3269	
==>m->();
                        last;
                    }
                }
            }
            
            # XXX temporary hack - matching options in 'expected' order should fix this
            if ( $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13748	13867	
==>$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes someti <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4472	4571	
==>amic_alt(\@tokens));
# tokens should be longest-match-first, but that's simple too, and the
# differ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4742	4845	
==>t1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4742	4845	
==>t1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34735	34832	
==>ding as the invocant and whose body contains all of the tuples that
are in the invocant Relation a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39285	39382	
==>ding as the invocant and whose body contains all of the tuples that
are in the invocant Relation a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4526	4623	
==>s, you should never refer directly to "Rosetta" in your
code; instead refer to other above-named p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4526	4623	
==>s, you should never refer directly to "Rosetta" in your
code; instead refer to other above-named p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6467	6573	
==>'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'Str <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6467	6573	
==>'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'Str <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6358	6472	
==>_normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6358	6472	
==>_normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	258	361	
==>argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1116	1219	
==>argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is no <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34384	34477	
==>his method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38934	39027	
==>his method has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $ot <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6650	6792	
==>y ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6650	6792	
==>y ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6705	6815	
==>Basically the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6705	6815	
==>Basically the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One idea is t <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	867	964	
==>ss, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')> <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	867	964	
==>ss, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18349	18455	
==>stence
solutions.  Moreover, these data structures are in exactly the right input
format for Node.new(), by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18349	18455	
==>stence
solutions.  Moreover, these data structures are in exactly the right input
format for Node.new(), by <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9461	9593	
==>_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9449	9581	
==>_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1458	1566	
==>Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *Ext <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1378	1477	
==>Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*Ext <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11502	11606	
==>nment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Arra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11502	11606	
==>nment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Arra <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4513	4636	
==>ex is equal to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $remo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4513	4636	
==>ex is equal to the number of children
    # then use this optimization    
    elsif ($index == +@!children) {
        $remo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6379	6477	
==>b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a->{name} cm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7905	8017	
==>mine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7905	8017	
==>mine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13974	14066	
==>aved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13974	14066	
==>aved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	497	600	
==>YNOPSIS

  use Test::Harness::Straps;

  my $strap = Test::Harness::Straps->new;

  # Various ways to in <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11340	11529	
==>/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs addition
                    
            $tot{good}+ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2536	2649	
==>le {
    my($self)=@_;
    my @todo;
    for my $stage (reverse $self->_stages) {
	last if defined $self->{$stage} <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9325	9437	
==>harset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9325	9437	
==>harset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	696	804	
==>ams::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        erro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1977	2085	
==>ams::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5057	5174	
==>subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        post <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5057	5174	
==>subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        post <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	634	740	
==>Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	634	740	
==>Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell mo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	759	854	
==>perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is un <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	759	854	
==>perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is un <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1004	1102	
==>xport { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=h <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1004	1102	
==>xport { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1025	1143	
==>n ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1025	1143	
==>n ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1949	2082	
==>$deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5521	5637	
==>ows-ish system, without GHC
        # in our path.   Let's hunt around for it.

        my $slash = ( $Config{osname} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7991	8109	
==>defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "unde <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8049	8167	
==>defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "unde <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11965	12105	
==>he F<charnames> pragma installed, but since
this module requires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the T <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14630	14729	
==>ncode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entn <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14630	14729	
==>ncode_entities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entn <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7282	7530	
==>nump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7282	7530	
==>nump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	103	205	
==>PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	103	205	
==>PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6871	6985	
==>y $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7430	7544	
==>y $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1609	1758	
==>0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1554	1699	
==>0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9311	9424	
==>in    => string to feed the stdin
#   stderr   => redirect stderr to stdout
#   args     => [ command-line argumen <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15519	15631	
==>t or end value of the span.

These methods may raise a warning if the new value would put the span 
in an invalid <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15519	15631	
==>t or end value of the span.

These methods may raise a warning if the new value would put the span 
in an invalid <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	169	260	
==>emove_content_headers header_field_names scan
    date expires if_modified_since if_unmodifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	169	260	
==>emove_content_headers header_field_names scan
    date expires if_modified_since if_unmodifi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	904	1008	
==>urn Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	904	1008	
==>urn Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18755	18864	
==>n phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> it <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18755	18864	
==>n phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> it <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6897	6998	
==>lf.parent().insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6897	6998	
==>lf.parent().insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSibli <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1144	1242	
==>ind current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd() <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1144	1242	
==>ind current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd() <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2033	2199	
==>--------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

sub Point {
    my ($x, $y) = @_;
    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38224	38321	
==>m C<semidifference (Relation::Example $other!) returns Relation::Example>

This method is a generi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8251	8353	
==>hitespacePosition, $match);
  #What does this line 
  #$temp1 = length $key + $whitespacePosition;
  go <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38330	38423	
==>ional parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38330	38423	
==>ional parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5190	5288	
==>e("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Ba <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5190	5288	
==>e("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Ba <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9605	9803	
==>"<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $stri <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9605	9803	
==>"<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $stri <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2174	2273	
==>h is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different pr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2174	2273	
==>h is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1496	1622	
==>roto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    w <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1496	1622	
==>roto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16110	16225	
==>dified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16110	16225	
==>dified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1235	1363	
==>ec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1235	1363	
==>ec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1885	1989	
==>ice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1885	1989	
==>ice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16739	16897	
==>ta *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave somethin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21837	21995	
==>ta *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave somethin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8323	8417	
==>ush @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2148	2242	
==>ush @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3886	4010	
==>urn. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Prote <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3886	4010	
==>urn. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Prote <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16236	16344	
==>wing benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16236	16344	
==>wing benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Co <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	75	181	
==>ourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method do <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	75	181	
==>ourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method do <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19632	19727	
==>mpiler. The end of an inner block
effectively acts as a C<no> statement for any compile sections <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19632	19727	
==>mpiler. The end of an inner block
effectively acts as a C<no> statement for any compile sections <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5023	5132	
==>=> $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5245	5354	
==>=> $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind var <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4635	4717	
==>i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&6 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4635	4717	
==>i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7216	7330	
==>lf->{neg} ? '^' : ''),
           $self->{type}, $self->{how}, "]";
    }
  }
}


{
  package Regexp::Parser::anyof <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12330	12431	
==>f no previous
value for that field is set.

The header field name ($field) is not case sensitive and ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12330	12431	
==>f no previous
value for that field is set.

The header field name ($field) is not case sensitive and ' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1758	1873	
==>$fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1758	1873	
==>$fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11743	11882	
==>e span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = D <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11743	11882	
==>e span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4992	5113	
==>elf: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4992	5113	
==>elf: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1536	1644	
==>ILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1536	1644	
==>ILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8543	8664	
==>$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8531	8652	
==>$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1100	1220	
==>recondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1100	1220	
==>recondition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'U <==
2	/Users/nnunley/pugs/util/func_refact.pl	2942	3042	
==>total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", score($total, $new);
}

sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	163	256	
==>e; @ISA = qw(Module::Install::Base);

sub include { +shift->admin->include(@_) };
sub include_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1308	1523	
==><++>',
    );
    __PACKAGE__->add_rule( 
        name => '{',
        name2 => '}',
        assoc => 'non',
        precedence => 'equal',
        other => 'postcircumfix:<[ ]>',
    );
    __PACKAGE__->recompile;
} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3499	3622	
==>my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1969	2088	
==>my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2965	3079	
==>nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2965	3079	
==>nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1501	1597	
==>xit;
  }
}

sub uncompress_smoke {
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	425	528	
==>le Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	425	528	
==>le Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1348	1447	
==>tion for a while.  By
  sacrificing ease of installation and portability, we may have
  bought fairl <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	66	162	
==>ions \our %Conf, qw(--verbose|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7152	7273	
==>th!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7152	7273	
==>th!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'E <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	99	256	
==>e',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        20 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	99	256	
==>e',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        20 <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16322	16418	
==>C<< $strap->{max} >> , C<< $strap->{skip_all} >>,
etc. so it's ready to parse the next file.

=cu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27359	27453	
==>RE_EXITCODE>

Makes harness ignore the exit status of child processes when defined.

=item C<HA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21461	21571	
==>me with a set of user
messages, but another package or program which uses yours may wish to
override some of yo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21461	21571	
==>me with a set of user
messages, but another package or program which uses yours may wish to
override some of yo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1214	1366	
==>ot happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1214	1366	
==>ot happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	158	256	
==>n;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3803	3899	
==>ous =>    $self._get_intersection( $self.closure_previous, $self.closure_next, $set.closure_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3803	3899	
==>ous =>    $self._get_intersection( $self.closure_previous, $self.closure_next, $set.closure_previ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3183	3317	
==>t_data( $_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31653	31760	
==>self.  When the program is run, it would
determine either from a user config file or a user interface that t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31653	31760	
==>self.  When the program is run, it would
determine either from a user config file or a user interface that t <==
2	/Users/nnunley/pugs/misc/S29_round.pl	549	682	
==>) }
        when ($_ >= .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <  0) { $x_round = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2591	2715	
==>rgs;
  croak $self->{errmsg};
}


sub warn {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s < <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	11	110	
==>dule Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	11	110	
==>dule Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	431	541	
==>gexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	431	541	
==>gexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	780	902	
==>d;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 190 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	780	902	
==>d;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 190 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10085	10340	
==>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### tak <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2098	2224	
==>pe => $type,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6075	6177	
==>HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6075	6177	
==>HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3254	3366	
==>d> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3254	3366	
==>d> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or in <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7039	7138	
==>mple does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the prot <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7039	7138	
==>mple does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the prot <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3415	3513	
==>st::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The foll <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3415	3513	
==>st::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The foll <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1470	1572	
==>}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export { <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1528	1630	
==>}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13041	13143	
==>turn two
values, their numeric value, and a format string for use with sprintf().

  # for when you hav <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9688	9783	
==>$value; $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(". <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1308	1412	
==>timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1308	1412	
==>timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	694	817	
==>uld not create JIB::Installation object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::n <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6815	6901	
==>(@pkgs, qw(-idist/build -Ldist/build -idist/build/src -Ldist/build/src -o pugs src/Main <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	505	639	
==>enchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	602	736	
==>enchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11641	11734	
==>is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11641	11734	
==>is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12574	12708	
==>on );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12574	12708	
==>on );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't e <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4247	4378	
==>rt {
        Pugs::Internals::install_pragma_value($?CLASS, 1);
    }

    sub unimport {
        Pugs::Internals::install_pragma_va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28281	28381	
==>thod returns this Relation::Example's body.

=item C<size () returns Int>

This method returns a coun <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1475	1595	
==>}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1475	1595	
==>}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14687	14777	
==>always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14687	14777	
==>always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_entities("r\xF4le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1498	1597	
==>$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5870	5981	
==>:KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5870	5981	
==>:KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1643	1754	
==>--------------
## informational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_le <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1643	1754	
==>--------------
## informational methods

method is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_le <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2330	2445	
==>eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    pri <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2330	2445	
==>eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    pri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6980	7100	
==>, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6980	7100	
==>, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4329	4426	
==>ntified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8367	8489	
==>time::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8355	8477	
==>time::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3250	3373	
==>orld!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Ser <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3250	3373	
==>orld!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Ser <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	369	466	
==>n changed to cc_inc_paths due to confusion between Perl and C";
	shift()->cc_inc_paths(@_);
}

sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2535	2624	
==>$optable->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias");
    $optable->ad <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	442	593	
==>tr
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_C <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9482	9572	
==>X), ":]", !.
p5_charset_item(R) --> p56_char_class(R).
p5_charset_item(R) --> p5_simple_esc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9140	9245	
==>tely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current impleme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8840	8941	
==>tely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current impleme <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3540	3672	
==>nd = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3540	3672	
==>nd = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39099	39194	
==>d1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Roset <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39099	39194	
==>d1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Roset <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2213	2320	
==>aram<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2213	2320	
==>aram<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after> + $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	658	755	
==>eation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	658	755	
==>eation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1438	1569	
==>y \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1426	1557	
==>y \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2102	2228	
==>tr $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2102	2228	
==>tr $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22857	22953	
==>'s topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> ".. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22857	22953	
==>'s topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> ".. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2918	3155	
==>$<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3165	3402	
==>$<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { retur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11086	11181	
==>arent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11086	11181	
==>arent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf retur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21195	21294	
==>s.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Map <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25747	25846	
==>s.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each Map <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10350	10469	
==>?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10350	10469	
==>?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3955	4052	
==>Rigorous database portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3955	4052	
==>Rigorous database portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	820	942	
==>rn
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	829	951	
==>rn
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1053	1187	
==>ge MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1053	1187	
==>ge MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1653	1808	
==>um         native floating point
    ref         native pointer 
    bool        native boolean
    Bit         Perl single bit (allows traits, aliasing, et <==
2	/Users/nnunley/pugs/util/build_pugs.pl	350	452	
==>h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs exe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1213	1332	
==>) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1213	1332	
==>) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16856	16957	
==>ld Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16856	16957	
==>ld Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16302	16408	
==>\s+aborted/of - aborted/g;

    # bison says 'parse error' instead of 'syntax error',
    # various yaccs m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11810	11911	
==>ref_flavor($x);
    my $handler = $as_bool_handlers{$reftyp};
    die "bug $reftyp" if !defined $handl <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3427	3558	
==>p or down
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ >  . <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6524	6722	
==>new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6524	6722	
==>new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	684	786	
==>ans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	684	786	
==>ans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5116	5242	
==>n $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5116	5242	
==>n $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3521	3728	
==>rn;
                }
            }
            
            ### do alts first, package;:installed uses them
            my @alts = eval { 
                map { JIB::Alternative->new_from_struct( struct => $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5289	5429	
==>rens;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8454	8544	
==>mar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2279	2369	
==>mar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @stat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5057	5233	
==>f $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            e <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5057	5233	
==>f $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continue) }))
            }
            e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7437	7558	
==>ject rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7437	7558	
==>ject rest>;
      if(normalize($killee) eq normalize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6679	6802	
==>chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6679	6802	
==>chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1960	2069	
==>ction( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1960	2069	
==>ction( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	748	843	
==>::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	748	843	
==>::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11950	12045	
==>This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11950	12045	
==>This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2911	3046	
==>?
    if( $perl eq $^X ) {
        ### just load the config        
        require Config;
        $perl_version = $Config::Config{vers <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8927	9025	
==>d not appear" }
NODE TCxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should n <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12548	12666	
==>ame=skipped> skipped"><tmpl_var name=skipped></span>,</td>
	      <td class="num tests_unexpect"><span title="<tmpl_var <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3393	3540	
==>q '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3381	3528	
==>q '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$qu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	778	889	
==>l - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	778	889	
==>l - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14246	14363	
==>ray(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     ) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15900	15993	
==>ShiftExpression>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpression>
    | <RelationalExp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1256	1363	
==>ames => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1256	1363	
==>ames => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17077	17175	
==>mpares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17077	17175	
==>mpares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9038	9142	
==>1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9038	9142	
==>1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2019	2118	
==>r($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  ( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2019	2118	
==>r($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4353	4464	
==>al_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8323	8436	
==>$event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8323	8436	
==>$event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6973	7128	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7166	7321	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	198	308	
==>nctional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	198	308	
==>nctional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	272	387	
==>s, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_number($value)) 
        || co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21506	21637	
==>turn { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21785	21916	
==>turn { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7824	7927	
==>);  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7824	7927	
==>);  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 200 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11956	12070	
==>s the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11956	12070	
==>s the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a ne <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5711	5885	
==>smatch
    }
    elsif ( $self->_is_header($line) ) {
        $type = 'header';

        $self->{saw_header}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $sel <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9983	10096	
==>, "dev", "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  step
    descr  => "Creat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	44	206	
==>y @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	44	206	
==>y @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42099	42245	
==>t->send('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            meth <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5559	5652	
==>dam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.co <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5559	5652	
==>dam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1314	1413	
==>the message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1314	1413	
==>the message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	580	719	
==>t_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protoc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	580	719	
==>t_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protoc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2340	2454	
==>was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok() <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2398	2512	
==>was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok() <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4872	4970	
==>to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  A <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4872	4970	
==>to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  A <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	676	833	
==>y_store' => sub { # evaluated in lvalue context as a list
                my $self = shift;
                my $repl = shift;
                @{$self->get_val <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18459	18561	
==>ion>
}
rule ConditionalExpressionNoIn :words {  # see 11.12
      <LogicalORExpressionNoIn>
    | <Logi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49785	49975	
==>new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$authority' => 'str'),
                          ),
                returns = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1242	1395	
==>$mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1242	1395	
==>$mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1426	1568	
==>DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            ms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1426	1568	
==>DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            ms <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4136	4262	
==>Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7613	7739	
==>Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	480	587	
==>}

package Pugs::Runtime::Perl6::Scalar::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18565	18824	
==>(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6677	6800	
==>r target, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	562	694	
==>$tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!searc <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	562	694	
==>$tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!searc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6961	7053	
==>::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6973	7065	
==>::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3846	4201	
==>port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3846	4201	
==>port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3275	3404	
==>ce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3275	3404	
==>ce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21744	21844	
==>ither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26296	26396	
==>ither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuple <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	143	259	
==>LoadFile DumpFile];


@ARGV or die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    
    ### copy all t <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1132	1301	
==>ion };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_same = sub {
        my $first = shift;
        for my <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8865	8980	
==>_m_','$_m0_',
         '$_a_','$_s_','$_at_','$_prev_');
        my $code = "Rul.new(:f(sub($str)\{
           my $r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7301	7413	
==>irectories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove al <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7301	7413	
==>irectories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove al <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	782	881	
==>psis.html>.

The Pugs project was started on February 1st 2005.  It is under active
development on I <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	782	881	
==>psis.html>.

The Pugs project was started on February 1st 2005.  It is under active
development on I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9308	9456	
==>t_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9296	9444	
==>t_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$po <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10251	10410	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10530	10689	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_captu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10803	10906	
==>:

  my $rx = $parser->visual;

This will not return a F<Regexp> object, but the regex; it might be
slig <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8012	8112	
==>rBar'), '... FooBar does rBar');

# and our instances do the roles as well
my $iFooBar = $FooBar->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5722	5833	
==>-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5710	5821	
==>-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... ha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	761	861	
==>=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for Engli <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	761	861	
==>=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for Engli <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5632	5767	
==>=> chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5632	5767	
==>=> chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilo <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6829	6932	
==>tpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($file <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5921	6024	
==>open;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5921	6024	
==>open;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5507	5613	
==>tly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroed (and hence, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5507	5613	
==>tly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroed (and hence, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10459	10609	
==>fined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10459	10609	
==>fined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2329	2436	
==>$proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2329	2436	
==>$proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7470	7639	
==>not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7470	7639	
==>not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0] <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4547	4650	
==>le4,  "0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5905	6006	
==>shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5905	6006	
==>shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9202	9355	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9395	9548	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18473	18601	
==>a should be thread safe and/or saavy
in the future, but for now it officially is not and you should not share
Rosetta objects bet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18473	18601	
==>a should be thread safe and/or saavy
in the future, but for now it officially is not and you should not share
Rosetta objects bet <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16507	16608	
==>> 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16507	16608	
==>> 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7233	7352	
==>3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7233	7352	
==>3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	735	912	
==>l.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	735	912	
==>l.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $ol <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3338	3449	
==>{base}/$path";

    unshift @INC, $self->{prefix}
        unless grep { $_ eq $self->{prefix} } @INC;

    forea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1294	1403	
==>(.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1294	1403	
==>(.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17207	17308	
==>ngth of the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22307	22408	
==>ngth of the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexi <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	545	660	
==>'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param< <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	545	660	
==>'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10784	10913	
==>n the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10784	10913	
==>n the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7431	7548	
==>f Code $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16952	17054	
==>s to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 3 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16952	17054	
==>s to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 3 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5792	5932	
==>op { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5792	5932	
==>op { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3444	3556	
==>Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3444	3556	
==>Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2644	2748	
==>SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @P <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2644	2748	
==>SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5839	5935	
==>sers accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5839	5935	
==>sers accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normaliz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15078	15184	
==>et the value of a header.  The header value is set if you pass
an argument to the method.  The old header v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15078	15184	
==>et the value of a header.  The header value is set if you pass
an argument to the method.  The old header v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15461	15570	
==>m $h.date

This header represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15461	15570	
==>m $h.date

This header represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2958	3082	
==>b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2958	3082	
==>b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18948	19045	
==>iles, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18948	19045	
==>iles, this shouldn't be a problem
because Locale::KeyedText is only meant to be used with user tex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2708	2852	
==>end,strbeg,
                              minend,screamer,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1525	1662	
==>e eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alternative( $alt );
    }
    
    retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1519	1639	
==>=> 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unava <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1519	1639	
==>=> 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unava <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	629	729	
==>y changing the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	629	729	
==>y changing the class name used.

Ciphers used with the Cipher API must operate on bytes or multi-byte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19176	19290	
==>erolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20534	20648	
==>erolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13628	13728	
==>ames are returned in the recommended "Good Practice" order.

In scalar context return the number of d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13628	13728	
==>ames are returned in the recommended "Good Practice" order.

In scalar context return the number of d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3070	3172	
==>me)>

Returns the value of the parameter named C<$name>.  If called in List context,
it will return a l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3070	3172	
==>me)>

Returns the value of the parameter named C<$name>.  If called in List context,
it will return a l <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6274	6376	
==>rgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6274	6376	
==>rgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3274	3385	
==>.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3274	3385	
==>.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6726	6895	
==>$k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @part <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6726	6895	
==>$k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @part <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	478	598	
==>Y =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this sho <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	478	598	
==>Y =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this sho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	183	279	
==>n be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	183	279	
==>n be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE <==
2	/Users/nnunley/pugs/util/package-osx.pl	10311	10427	
==>];
    $dirs =~ s#/[^/]+$##;
    make_dir($dirs) unless (-d $dirs);
    
    open  REMOVER, '>', "$dest$files[-1]" or <==
2	/Users/nnunley/pugs/util/drift.pl	985	1098	
==>ange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary_header = split /^/m, << "SCARY";




{- 
-- WARN <==
2	/Users/nnunley/pugs/util/package-osx.pl	9314	9479	
==>!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn u <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7145	7242	
==>blings 
# as I think in general it is a bad idea

## --------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7145	7242	
==>blings 
# as I think in general it is a bad idea

## --------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13181	13284	
==>is not implemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13239	13342	
==>is not implemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4719	4841	
==>er,
    # because we need all the lines including the ones before the `use`
    # statement, so we can parse Perl into pack <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4719	4841	
==>er,
    # because we need all the lines including the ones before the `use`
    # statement, so we can parse Perl into pack <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26331	26427	
==>attrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding pro <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30883	30979	
==>attrs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding pro <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5630	5743	
==>',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5630	5743	
==>',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9389	9531	
==>superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operators available:  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9389	9531	
==>superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison operators available:  <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15642	15766	
==>\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10498	10622	
==>\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3573	3691	
==>rd};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], bl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8852	8957	
==>(@names5,@names6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $default = $op{'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1773	1930	
==>ate"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1714	1867	
==>ate"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3005	3152	
==>eturn code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3189	3336	
==>eturn code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- captu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28142	28241	
==>and values of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringif <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28142	28241	
==>and values of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringif <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3491	3589	
==>sturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3491	3589	
==>sturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4413	4509	
==>d divines whether they passed
or failed based on their output to STDOUT (details above).  It prin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7642	7747	
==>channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7642	7747	
==>channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(nor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3207	3321	
==>scend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Gl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3207	3321	
==>scend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Gl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14102	14206	
==>o specify which
characters to consider unsafe (i.e., which to escape). The default set
of characters to e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14102	14206	
==>o specify which
characters to consider unsafe (i.e., which to escape). The default set
of characters to e <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2967	3068	
==>8651.
multi List::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? al <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15307	15407	
==>eeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15365	15465	
==>eeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15567	15697	
==>ion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ), <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19044	19174	
==>ion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10290	10465	
==>, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10290	10465	
==>, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24134	24275	
==>(
    # method label
        symbol->new('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4115	4219	
==>welcome_p6
    --welcome-p6 is a Perl 6 program runnable by Pugs which will
    introduce Pugs.
  --splas <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4385	4481	
==>4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4385	4481	
==>4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1885	1979	
==>be specified in the options; check your 
cipher's documentation for details.

=item C<decipher> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1885	1979	
==>be specified in the options; check your 
cipher's documentation for details.

=item C<decipher> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	666	792	
==>atch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	666	792	
==>atch ), "\n";
    return join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $ma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4087	4187	
==>et1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4087	4187	
==>et1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34563	34659	
==>ngle Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39113	39209	
==>ngle Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1663	1764	
==>Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1663	1764	
==>Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @u <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15296	15407	
==>ds are available for Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These met <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15296	15407	
==>ds are available for Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These met <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9619	9713	
==>ret = shift(@returns);
  return reverse(@$ret);
});
my(@a)=split($qr,$str);
print STDERR "(",jo <==
2	/Users/nnunley/pugs/util/fixauthors.pl	211	349	
==>p {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  map {my $x=$_; $x=~tr/A-Za-z//cd; [$_, $x]} 
  @a;

foreach (@a) {
  next unless /\)$/;
  next <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21870	21965	
==>ile L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head1 INTERFA <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21870	21965	
==>ile L<Rosetta::Overview>
documentation in this distribution for that comparison.

=head1 INTERFA <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1521	1616	
==>" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1521	1616	
==>" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10481	10611	
==>= grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10481	10611	
==>= grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1148	1250	
==>stant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1148	1250	
==>stant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5781	5890	
==>er 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numeric Context

The HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5781	5890	
==>er 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=item Numeric Context

The HT <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2567	2658	
==>pop := &Array::splice.assuming(:offset(-1) :length(1));
## an alternate implementation:
#mul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	167	279	
==>at = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	167	279	
==>at = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generat <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	813	916	
==>ith($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	813	916	
==>ith($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1586	1698	
==>operator::nary: level($.param) = { level($$) }

ROOT: level($$) = { 0 }
type::operator::binary: level($.left) = { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	529	645	
==>) { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	529	645	
==>) { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.star <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1061	1185	
==>d binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1061	1185	
==>d binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24421	24520	
==>rt_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
ele <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28973	29072	
==>rt_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
ele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5182	5296	
==>e (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5002	5111	
==>e (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	460	560	
==>);
}

sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtual method 'provides' c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	229	334	
==>est</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	229	334	
==>est</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14825	14926	
==>=> 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14825	14926	
==>=> 1, end => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	782	882	
==>ort { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	782	882	
==>ort { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	159	265	
==>Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	159	265	
==>Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	525	661	
==>ym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10569	10732	
==>have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = un <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10569	10732	
==>have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = un <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1236	1330	
==>le = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs' <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1236	1330	
==>le = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs' <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	119	223	
==>L/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	119	223	
==>L/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilen <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5985	6094	
==>RIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistri <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5985	6094	
==>RIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15613	15738	
==>ll entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15613	15738	
==>ll entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1517	1642	
==>$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10209	10330	
==>g  => sub { utime undef, undef, $initrd_img; mkdir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9586	9694	
==>e_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9586	9694	
==>e_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10016	10168	
==>erion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array::sort(                 @v <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3755	3857	
==>_func 'asinh';
trig_func 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_func 'cosech';
trig_func 'c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10265	10433	
==>son' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10265	10433	
==>son' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ], <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	335	433	
==>=item *

A method is bound to a compiled class (a L<Type>), which is used for
dispatching private m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1289	1412	
==>$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuilder->FETCH(': <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1746	1841	
==>mport {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr_regexp_pair {
  my($pat,$npare <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5642	5758	
==>( src/pcre/pcre.o src/syck/bytecode.o src/syck/emitter.o src/syck/gram.o src/syck/handler.o src/syck/implicit.o src/s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3669	3775	
==>reop) {
        $args{dist} = $self->admin->preop;
    }

    my $mm = ExtUtils::MakeMaker::WriteMakefile(% <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	869	987	
==>ser gets it, turns it into a AST node (the API is

specified in Perl6::API::AST - so maybe the implementation

lives th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	823	939	
==>ser gets it, turns it into a AST node (the API is
specified in Perl6::API::AST - so maybe the implementation
lives th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4554	4692	
==>y $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last_mod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4554	4692	
==>y $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last_mod <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2072	2188	
==><FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basenam <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2072	2188	
==><FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basenam <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5028	5185	
==>lf, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub writ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4887	5044	
==>lf, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub writ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7644	7742	
==>ck> class takes care of much of this.)

A default implementation of this method is provided which r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7644	7742	
==>ck> class takes care of much of this.)

A default implementation of this method is provided which r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6665	6760	
==>oaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6665	6760	
==>oaded by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14663	14761	
==>s.  Long header
values are not folded.

The optional $eol parameter specifies the line ending seque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14663	14761	
==>s.  Long header
values are not folded.

The optional $eol parameter specifies the line ending seque <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2068	2187	
==>ital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex acc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2068	2187	
==>ital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex acc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	298	410	
==>my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	473	578	
==>ew {
    my ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($kl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	133	242	
==>re known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	133	242	
==>re known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7947	8126	
==>}

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7947	8126	
==>}

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF! <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5262	5399	
==>K(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5412	5532	
==>ta if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29378	29509	
==>cf_TAIL_Z            4
 #define FBMcf_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBM <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9442	9539	
==>ing an ext2 filesystem on \"$initrd_img\"",
    ensure => sub { `strings $initrd_img | grep lost+f <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	679	803	
==>getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is expo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	679	803	
==>getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is expo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19424	19535	
==>re scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19424	19535	
==>re scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The li <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27330	27423	
==>_id_to_str), "str", ":t (λx. (x 'str'))(id)");
is(t($fac), "int → int", ":t fac");
is(t($le <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2241	2353	
==>streams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
application allows, sk <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2241	2353	
==>streams are weak.

Basically, the first few bytes of data aren't encrypted well.  If your 
application allows, sk <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18992	19083	
==>>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
sp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18992	19083	
==>>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
sp <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1476	1585	
==>head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pat <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1476	1585	
==>head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pat <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5359	5493	
==>926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5359	5493	
==>926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6456	6594	
==>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6456	6594	
==>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1465	1576	
==>);
#print $rpcr2->perl5;
print "Benchmark:\n";
Benchmark::cmpthese(500, {
    PCR_x1       => sub{$rpcr->mat <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3305	3401	
==>t.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::shift ( --> Scalar ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	725	867	
==>::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	725	867	
==>::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1119	1228	
==>ODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object represen <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1119	1228	
==>ODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object represen <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1308	1413	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free so <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1308	1413	
==>E<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free so <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	954	1053	
==>M::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, l <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	954	1053	
==>M::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	28	146	
==>et;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	26	144	
==>et;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6642	6750	
==>n:



### Match actually contain getters for $() and such

### getters need to know what you want (str, bool, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6420	6525	
==>n:

### Match actually contain getters for $() and such
### getters need to know what you want (str, bool, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1125	1256	
==>egex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20781	20901	
==>lass, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'ref', <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4331	4430	
==>lude" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs to precompile the P <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	272	407	
==>x -> $x{
      if ++$iter == +@x {
          $str = append_last($x,$str,$iter);
        return $str;
      }else{
        $str ~= addtol <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1282	1392	
==>Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL {
    has Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1282	1392	
==>Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL {
    has Perl::Compi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2137	2251	
==>ance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2137	2251	
==>ance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	336	471	
==>age headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	336	471	
==>age headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3153	3277	
==>{
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4002	4126	
==>{
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2694	2790	
==>ipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($te <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2694	2790	
==>ipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5195	5300	
==>iler::YAML.pm)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5015	5115	
==>iler::YAML.pm)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1806	1952	
==>ule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?w <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	231	365	
==>Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => '',
    inline <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2395	2494	
==>iag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2453	2552	
==>iag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15527	15633	
==>essage was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15527	15633	
==>essage was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2042	2139	
==>not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2100	2197	
==>not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3539	3655	
==>set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3539	3655	
==>set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_ne <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19916	20058	
==>($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	767	877	
==>y be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= N <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	767	877	
==>y be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= N <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4479	4626	
==>'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4479	4626	
==>'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3851	3945	
==>erence(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3851	3945	
==>erence(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2533	2652	
==>headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $h <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2533	2652	
==>headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12700	12818	
==>=~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $runperl;
}

sub runperl {
    die "test.pl:runpe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6328	6435	
==>stcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ? <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1786	1901	
==>dur);
#}

##multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6201	6303	
==>\+|\-]?)0+(<[0..9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16529	16653	
==>separate value if in
an array context.  If there is no such header field, then the empty
string is returned.  This makes it s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16529	16653	
==>separate value if in
an array context.  If there is no such header field, then the empty
string is returned.  This makes it s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3830	3934	
==>" ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3830	3934	
==>" ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1596	1706	
==>mper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1596	1706	
==>mper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18246	18347	
==>ternal resources, such as a repository file
on disk, it is expected that the Engines will employ appro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18246	18347	
==>ternal resources, such as a repository file
on disk, it is expected that the Engines will employ appro <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15172	15305	
==>d = $end->right until (!$end->right or $end->right->tag eq $tag);
            
            my $end_n = $end->pindex;

            my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35181	35292	
==>de are matched in succession.  We
also inherit visual()Z and walk()Z<>.

However, we need to define our own qr() <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5846	5944	
==>oNumber(JSX::Value::Null $v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v)   { ?$v :: JSX: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3861	4065	
==>nd), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3861	4065	
==>nd), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13098	13215	
==>span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13098	13215	
==>span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	138	248	
==>tant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	138	248	
==>tant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1406	1510	
==>unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1406	1510	
==>unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($clas <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3381	3507	
==>me) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3381	3507	
==>me) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $even <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10846	10990	
==>cted {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10846	10990	
==>cted {
      $queue.run;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	111	200	
==>('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	111	200	
==>('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27171	27291	
==>'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27171	27291	
==>'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	90	191	
==>nicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	90	191	
==>nicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1606	1717	
==>se v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1606	1717	
==>se v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3253	3336	
==>( $self.complement_previous, $self.complement_next, $set.complement_previous, $set.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3253	3336	
==>( $self.complement_previous, $self.complement_next, $set.complement_previous, $set.c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10060	10174	
==>_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bool => 0 } - match failed

or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3165	3274	
==>ause 7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token> <DivPunctuator>
}
rule InputEle <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8771	8872	
==>head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8771	8872	
==>head2 Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7903	7999	
==>he right method list (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6416	6556	
==>"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_with_fh {
    my $o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5897	6019	
==>ormalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5897	6019	
==>ormalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34666	34771	
==>::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 . <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34666	34771	
==>::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7918	8019	
==>p::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7648	7745	
==>p::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23741	23872	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20162	20293	
==>{&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1746	1875	
==>') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1746	1875	
==>') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8751	8862	
==>lass: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8751	8862	
==>lass: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9334	9429	
==>_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3159	3254	
==>_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20758	20850	
==><$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20758	20850	
==><$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8854	8991	
==>ne that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VAR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8854	8991	
==>ne that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VAR <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7263	7370	
==>k {
		my $self = shift;
		my $thunk = shift;

		$self->enter_scope;
		my $rthunk = $thunk->fmap(sub { $self- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	367	623	
==>};                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3258	3356	
==>herits Unit.

=item Val

Encapsulates a perl value. Usually either a Thunk object, a number or a st <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	833	960	
==>ure>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variab <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	833	960	
==>ure>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variab <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	516	667	
==>\$1 } : 0 )";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_[0]', 
            match => do{ my \@match; $_[1 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26747	26840	
==>nt from C<HARNESS_VERBOSE>, which prints
the output from the test being run.  Setting C<$Test: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37962	38061	
==>) and return that subroutine's result, which is a Template text
string if the module recognizes $msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37962	38061	
==>) and return that subroutine's result, which is a Template text
string if the module recognizes $msg <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4469	4581	
==>ry {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $base = $self->{_top}{base};
    "$base/bli <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12099	12207	
==>$self->{scopes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = shift;
    map { @$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12659	12857	
==>~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12659	12857	
==>~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10421	10587	
==>st{skip_all}) {
                print "skipped\n        all skipped: $test{skip_all}\n";
                $tot{skipped}++;
            } else {
                print "s <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7889	8006	
==>t;
    $dir =~ /.*ghc-(.*)$/i or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+)}{sprintf('%09s', $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3741	3848	
==>l $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5643	5750	
==>l $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	195	300	
==>he rule as it is executed, but the linked
list is done in code (i.e. with closures).  It has the following <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	195	300	
==>he rule as it is executed, but the linked
list is done in code (i.e. with closures).  It has the following <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14274	14375	
==>gh a continuous span, because the "separation" 
between values would be very close to zero:

    $iter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14274	14375	
==>gh a continuous span, because the "separation" 
between values would be very close to zero:

    $iter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7162	7262	
==>w node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7174	7274	
==>w node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	595	723	
==>ce => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	757	885	
==>ce => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10858	10958	
==>d potentially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10858	10958	
==>d potentially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Docum <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5588	5705	
==>turn $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5588	5705	
==>turn $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3243	3399	
==>tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3243	3399	
==>tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18756	18853	
==>ld normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  While <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18756	18853	
==>ld normally be
stored in a Perl file that defines and returns an anonymous hash
definition.  While <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4681	4773	
==>structor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4681	4773	
==>structor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NO <==
2	/Users/nnunley/pugs/misc/S29_round.pl	32	150	
==>d_half_up_symmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, down below 0
    given abs($x) - floor( a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21163	21257	
==>t people who install your
module distribtution do not need to have the compilers installed
them <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21163	21257	
==>t people who install your
module distribtution do not need to have the compilers installed
them <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	454	575	
==>emented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * em <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	454	575	
==>emented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * em <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2482	2604	
==>ive . ") already exists";
    return $self->[2]->store($name, $nil::NIL);    
}

1;

__END__

=pod

=head1 NAME

opaque - t <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1455	1555	
==>END {
    #chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$cwd <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2703	2859	
==>t $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.j <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2703	2859	
==>t $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.j <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2088	2192	
==>st, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2146	2250	
==>st, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1670	1781	
==>onstruct>  }
rule numbered_scalar_alias  {  \$<number>    \:\=  <construct>  }
rule number  { \d+ }
rule externa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9327	9444	
==>leton_method' 
});

is($iFoo->test_iFoo_singleton_method(), 
   '$iFoo::test_iFoo_singleton_method',
   '... got the r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6587	6703	
==>]) : @_), # an easy constructor
	}, $class;
}

# functions are applied 
package fun;
use base qw/node/;

package comb <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6811	6914	
==>>
}
rule UnicodeConnectorPunctuation {  # see 7.6
      # any character in the Unicode category "Connect <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	725	814	
==>uePrimitive is JSX::Value;
class JSX::Value::Undefined is JSX::ValuePrimitive;
class JSX:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5610	5723	
==>>{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15956	16066	
==>ubject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15956	16066	
==>ubject over the last
35+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentati <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1107	1208	
==>alues, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1107	1208	
==>alues, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	322	441	
==>rns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &j <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13212	13314	
==>\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6687	6789	
==>\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17180	17280	
==>ge(s) of the intended audience for the message
content.  The value is one or more language tags as de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17180	17280	
==>ge(s) of the intended audience for the message
content.  The value is one or more language tags as de <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6016	6123	
==>evious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6016	6123	
==>evious( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

meth <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3445	3561	
==>foreach my $rv ($self->find_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6543	6675	
==>, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6736	6868	
==>, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14824	14924	
==>e_object(anyof_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_handler('POS <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1563	1767	
==>),
							App(
								Sym('&infix:<==>'),
								Sym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								),
							),
							Val(
								Thunk(
									App(
										S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3230	3335	
==>n_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3230	3335	
==>n_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14406	14509	
==>g( $eol )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<scan> me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14406	14509	
==>g( $eol )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<scan> me <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3582	3713	
==>) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3582	3713	
==>) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4401	4521	
==>ctic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_list> \) ]? \> }
rule symbolic_indirect_rule <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9084	9202	
==>> chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9084	9202	
==>> chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_e <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1968	2087	
==>s on C<split>, substitution, and/or other uses.

It is currently unsuitable for just about any use other than Pugs devel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13080	13220	
==>ammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	970	1126	
==>/) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	970	1126	
==>/) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4983	5120	
==>>add_rule( 
        name => 'IF',
        assoc => 'non',
        precedence => 'tighter',
        other => ';',
    );

    __PACKAGE__-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2069	2195	
==>is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=ite <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2069	2195	
==>is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=ite <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1426	1534	
==>d1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1426	1534	
==>d1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24276	24376	
==>tes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28828	28928	
==>tes, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation ob <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39526	39624	
==>ht (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39526	39624	
==>ht (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27149	27248	
==>but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31701	31800	
==>but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic rel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12468	12568	
==>'-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12468	12568	
==>'-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_heade <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21065	21160	
==>e operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21065	21160	
==>e operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6465	6580	
==>$S0 = concat initchar, $S0
    mob["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3060	3189	
==>HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3060	3189	
==>HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	589	694	
==>source code generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	589	694	
==>source code generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6557	6658	
==>status code and message are printed on STDERR.  The return value is
the HTTP response code.

=item get <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6557	6658	
==>status code and message are printed on STDERR.  The return value is
the HTTP response code.

=item get <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	796	931	
==>art;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	796	931	
==>art;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $op <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2376	2509	
==>path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2376	2509	
==>path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $bas <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1957	2060	
==>ker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  us <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1957	2060	
==>ker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  us <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	29	127	
==>---------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	29	127	
==>---------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use it <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1410	1547	
==>my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1410	1547	
==>my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6895	7007	
==>y $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6953	7065	
==>y $context_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22557	22681	
==>OS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18978	19102	
==>OS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19441	19552	
==>nipulation statements but that the target relation
variables are system catalog relation variables rather than u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19441	19552	
==>nipulation statements but that the target relation
variables are system catalog relation variables rather than u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	78	183	
==>k );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %loaded;
our @EXPORT = qw( Rx R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10588	10688	
==>t is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10588	10688	
==>t is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iterator: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28213	28310	
==>.  This might be an array reference (for a 'branch'
node), another object (for a 'quant' node), or <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9346	9483	
==>r('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1723	1812	
==>b has_failed { $_[0]{'has_failed'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4384	4519	
==>o empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4384	4519	
==>o empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g/\n/$ending/;             # s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16872	17004	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17151	17283	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8496	8602	
==>ing_group {
    return "$_[1] capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	942	1123	
==>None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	942	1123	
==>None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD ( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1826	1949	
==>"Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1826	1949	
==>"Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1755	1877	
==><')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1755	1877	
==><')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	83	207	
==>Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid fo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	83	207	
==>Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid fo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3876	3987	
==>ath ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unles <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3876	3987	
==>ath ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unles <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1673	1772	
==>ygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1566	1653	
==>ygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23290	23413	
==>),
			then => ide("nil"),
			else => comb(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun => ide("f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12122	12217	
==>set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12122	12217	
==>set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1641	1750	
==>one better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1641	1750	
==>one better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8258	8372	
==>nd "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8258	8372	
==>nd "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3574	3704	
==>pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3447	3572	
==>pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2556	2651	
==>p://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.or <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2556	2651	
==>p://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.or <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2736	2864	
==>>{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        g <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	912	1038	
==>>{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        g <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7572	7681	
==>); /*XXX - can be constant? */
    r = Perl_pregcomp(aTHX_ nulpat,nulpat,pm);
    /*XXX - can free nulpat now? <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9857	9962	
==>fix($p,'PIL::PIL1::NodeSet0::');
    return if !defined $p;
    my $c1 = $p->unparse;
    $c1 =~ s/PIL_Env <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6641	6739	
==>ring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6641	6739	
==>ring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4249	4376	
==>d = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4249	4376	
==>d = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@ne <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7048	7140	
==>de_for_code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$body <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	110	205	
==>uration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a dat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	110	205	
==>uration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a dat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20179	20269	
==>event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20179	20269	
==>event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_h <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9446	9582	
==>)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9446	9582	
==>)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10911	11003	
==>.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10911	11003	
==>.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%res <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	873	1030	
==>lass Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	873	1030	
==>lass Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9276	9387	
==>e_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9276	9387	
==>e_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8236	8366	
==>return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8236	8366	
==>return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8657	8792	
==>s{'exhaustive'};
    my $adverbs = join("",map {":"~$_}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str, <==
2	/Users/nnunley/pugs/util/addauthors.pl	292	413	
==>} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $authors = readauthors();
#print Dumper $authors;

foreach my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8494	8598	
==>g_group {
    return "$_[1] ruleop::capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21055	21157	
==>ly the last of these fields will be present in the header
after the call.  All values ought to be kept. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21055	21157	
==>ly the last of these fields will be present in the header
after the call.  All values ought to be kept. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1257	1365	
==>1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30559	30650	
==>but that the returned Relation::Example has
the complement subset of the original's attribut <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28569	28673	
==>Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
to make modules havi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28569	28673	
==>Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
to make modules havi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1686	1786	
==>thod is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1686	1786	
==>thod is_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1992	2101	
==>tput);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1992	2101	
==>tput);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	372	490	
==>ery $.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	372	490	
==>ery $.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12015	12119	
==>as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12015	12119	
==>as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $he <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5082	5179	
==>-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: file '$tail' not found <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2866	3096	
==>= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    re <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2866	3096	
==>= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	430	577	
==>ed' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0]{pair} ) {
        my $category = $_[0]{pair}{key}{single_quoted};
        my $name     = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2100	2207	
==>rent_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z::oop{$id} = {ops=>[undef],var=>[],op_ahe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9499	9599	
==>ble to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9499	9599	
==>ble to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods ret <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	433	533	
==>aram is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density> <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	433	533	
==>aram is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22828	22920	
==>topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22828	22920	
==>topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1637	1735	
==>ich can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUG <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1637	1735	
==>ich can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUG <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21457	21552	
==>tributes, though several attributes may store values of the same class;
every Relation tuple mus <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26009	26104	
==>tributes, though several attributes may store values of the same class;
every Relation tuple mus <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	296	400	
==>pen? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	296	400	
==>pen? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1115	1246	
==>\t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1115	1246	
==>\t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6034	6128	
==>n when C<want> gets implemented. Currently, the headers
are returned as one long string.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6034	6128	
==>n when C<want> gets implemented. Currently, the headers
are returned as one long string.

=item <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2201	2332	
==>ex
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2201	2332	
==>ex
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6430	6547	
==>ype', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6430	6547	
==>ype', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	788	897	
==>ring tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	788	897	
==>ring tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14632	14730	
==>classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

False [] range "%s-%s"

=item <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4038	4141	
==>>parse if $self->{stack};
  my $vis = join "", map($_->visual, @{ $self->{tree} });
  return $vis;
}


s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	283	384	
==>X => 4;
use constant PGE_OPTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_O <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5889	6016	
==>art_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object represent <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5889	6016	
==>art_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object represent <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22184	22279	
==>e operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22184	22279	
==>e operated (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6543	6655	
==>preserved
        # correctly.  Otherwise, root through the file to locate the case-preserved
        # version o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1941	2150	
==>s       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1941	2150	
==>s       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8934	9038	
==>er( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8934	9038	
==>er( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	712	832	
==>?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	712	832	
==>?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7309	7408	
==>(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1134	1233	
==>(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50171	50302	
==>b {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:authority'), $e->get('?$au <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36506	36764	
==>paque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20640	20753	
==>self->omit;
  }
}


{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2816	2943	
==>one>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# com <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2816	2943	
==>one>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list
#        ]
#}
# com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9040	9158	
==>verhead is a SVMG (i.e. bless())

you can return the same failure object always

then there's absolutely no overhead

I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8742	8857	
==>verhead is a SVMG (i.e. bless())
you can return the same failure object always
then there's absolutely no overhead
I <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15374	15490	
==>ents are intended for widespread use
then it needs to account for a variance of needs between its different
users, su <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15374	15490	
==>ents are intended for widespread use
then it needs to account for a variance of needs between its different
users, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2349	2453	
==>(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2349	2453	
==>(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10855	10962	
==>nd turns it into something suitable
for putting onto C<PERL5LIB>.

=cut

sub _INC2PERL5LIB {
    my($self) = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4024	4113	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4024	4113	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:1 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1772	1869	
==>p> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>). <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1772	1869	
==>p> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>). <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7432	7525	
==>@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1257	1350	
==>@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7410	7517	
==>t<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7410	7517	
==>t<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %user <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20358	20456	
==>VariableDeclarationNoIn>
}
rule VariableDeclaration :words {  # see 12.2
      <Identifier> <Initia <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5712	5808	
==>@varsm); 
    my $init = '=('.join(",",map{p6_container_for_var_CODE($_)}@vars).')';
    my $decl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9099	9224	
==>LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASO <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9099	9224	
==>LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2783	2956	
==>uantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2783	2956	
==>uantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9312	9411	
==>ities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

mul <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9312	9411	
==>ities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

mul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1346	1463	
==>ings
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1346	1463	
==>ings
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!chan <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2427	2529	
==>still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2427	2529	
==>still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	960	1133	
==>R_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	960	1133	
==>R_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.define <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	70	186	
==>e::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search shoul <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	70	186	
==>e::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search shoul <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	112	214	
==>lly free, use it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NO <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	112	214	
==>lly free, use it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NO <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13853	13975	
==>Parser::ifthen;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper::Dumper $o;

    my $f_test = $o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12730	12826	
==>owing functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12730	12826	
==>owing functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML enti <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13549	13666	
==>time has a hash for this
    # in the future the compiler might allow adding globals
    # right now this is a non iss <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16627	16801	
==>]+-[SIWEF]-[A-Z]+,.*//;

        # pipes double these sometimes
        $results =~ s/\n\n/\n/g;
    }

    my $pass = $resolve->($results);
    unless ($pass) {
        _diag <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1046	1155	
==>id->to_native;
    # we take the MRO first, however at some early
    # stages of the bootstrap, this is not y <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3689	3786	
==>= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3689	3786	
==>= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for "internal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4375	4533	
==>new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4375	4533	
==>new {
            my $content_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	691	783	
==>ce If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	691	783	
==>ce If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	980	1093	
==>method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	980	1093	
==>method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2754	2880	
==>_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the pars <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3218	3344	
==>_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the pars <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5998	6093	
==>ONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5998	6093	
==>ONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> test 
a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2397	2499	
==>It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are w <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2397	2499	
==>It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8652	8821	
==>t;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8652	8821	
==>t;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1121	1220	
==>ng utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1121	1220	
==>ng utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosett <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1366	1538	
==>path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1366	1538	
==>path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49051	49279	
==>str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$version')
                  ->is_not_nil
                  ->and(bloc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2179	2289	
==>e::Unit';

    package Blondie::Seq;
    use base 'Blondie::Node::List';

    package Blondie::Stub;
    use ba <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20655	20753	
==>u chose so to pick a supported language closest to your
preference.  Presumably the messages in the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20655	20753	
==>u chose so to pick a supported language closest to your
preference.  Presumably the messages in the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18636	18726	
==>('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18636	18726	
==>('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of N <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4652	4753	
==>f->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5378	5479	
==>f->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1580	1722	
==>t @rule_terms, 'match_variable';

    rule named_capture_body {
          [ \( <rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1125	1249	
==>al.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*EN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1125	1249	
==>al.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*EN <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	784	907	
==>_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need En <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	784	907	
==>_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need En <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9740	9839	
==>intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9740	9839	
==>intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26060	26161	
==>iable name is a machine-readable short
string; the allowed variable names you can have depend on the M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26060	26161	
==>iable name is a machine-readable short
string; the allowed variable names you can have depend on the M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12447	12550	
==>as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12447	12550	
==>as a replacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=it <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	717	824	
==>omething
like this can work" to "ok, this looks doable".  So yes, the code is
an utter mess.

The project ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4815	4967	
==>header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4815	4967	
==>header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7289	7462	
==>ammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7482	7655	
==>ammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7972	8066	
==>>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7972	8066	
==>>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_ni <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1369	1538	
==>nd die $?;
            system( qq[rm -rf $my_tmp_dir] )                    and die $?;
        }
        
        ### copy the .jib there too
        system( qq[cp -f $ar <==
2	/Users/nnunley/pugs/util/func_refact.pl	2650	2763	
==>d}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) for
        sort {score(@{$cands{$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8100	8205	
==>ntaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8100	8205	
==>ntaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.in <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8434	8533	
==>elf.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8434	8533	
==>elf.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	594	718	
==>eturns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	594	718	
==>eturns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32015	32104	
==>scendant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	982	1092	
==>sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	982	1092	
==>sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23423	23527	
==>h before you do any flag-parsing,
if you're adding a handle that might parse flags, because you do not
wa <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2002	2105	
==>$file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $fi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	224	331	
==>e:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any packag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	224	331	
==>e:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any packag <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8637	8727	
==>lso describes the same-number versions of Rosetta::Model::Document
("Document") and Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8637	8727	
==>lso describes the same-number versions of Rosetta::Model::Document
("Document") and Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2778	3003	
==>fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2778	3003	
==>fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11505	11600	
==>b-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11505	11600	
==>b-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, image/*";
 $header.header("A <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	175	283	
==>ie "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	175	283	
==>ie "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	958	1063	
==>s (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1016	1121	
==>s (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got e <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	492	615	
==>criptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin},
        siteprefix <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9632	9729	
==>rns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Ar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9632	9729	
==>rns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns Ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3750	3858	
==>ns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3750	3858	
==>ns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15224	15354	
==>this is an error message of some kind, but it
could also be a prompt or response message for interactive systems.

If the program o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15224	15354	
==>this is an error message of some kind, but it
could also be a prompt or response message for interactive systems.

If the program o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32682	32781	
==>ficant to the result;
the new Relation contains all the tuples of the source Relations, including
on <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37232	37331	
==>ficant to the result;
the new Relation contains all the tuples of the source Relations, including
on <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4403	4583	
==>st is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4403	4583	
==>st is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	911	1023	
==>::mkpath($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	181	279	
==>sion to native
sub to_native { undef }

# conversion to other native types
sub to_num { num->new(0) <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	274	383	
==>qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	175	284	
==>qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_ar <==
2	/Users/nnunley/pugs/util/build_pugs.pl	80	175	
==>(copy);
use File::Path qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3029	3158	
==>->emit_perl6_grammar({
        item => '<item>',
    } );
}



__END__

use Test::More tests => 33;
use Data::Dumper;

use_ok( 'Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5111	5235	
==>assoc => 'list', list => [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'list <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4232	4549	
==>test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1627	1755	
==>ile @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub Array::redu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	16	276	
==>use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	16	276	
==>use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4160	4280	
==>pends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4218	4338	
==>pends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1033	1144	
==>erse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2047	2151	
==>erse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3940	4045	
==>in->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__

#l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5299	5404	
==>in->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__

#l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1154	1632	
==>Sym('$y'),
                ),
                Val(
                    Thunk(
                        Val(0),
                    )
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&infix:<+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22461	22555	
==>elation;

I<This documentation is pending.>

=head1 DESCRIPTION

This library provides a partia <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	716	852	
==>::abs ( Num $x = CALLER::<$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::floor (  Num  $x            --> Int )
 { Pugs::Int <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	156	262	
==>elf:) returns Tree {
    # create the tree lazily ...
    $self.:create_tree() unless $:tree.defined;
    r <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2183	2318	
==>my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10854	10957	
==>remain unchanged.

The old value (or values) of the last of the header fields is returned.
If no such fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10854	10957	
==>remain unchanged.

The old value (or values) of the last of the header fields is returned.
If no such fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15761	15856	
==>d the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmani <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15761	15856	
==>d the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmani <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7533	7695	
==>ems
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	834	996	
==>ems
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	15	111	
==>Grammar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	15	111	
==>Grammar::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5119	5236	
==>se and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5119	5236	
==>se and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2107	2225	
==>stages'}}}

sub has_failed {
    my($self)=@_;
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	ret <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1965	2067	
==>will intuit one by extracting the 
last component of the calling function's package name.  (For example <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1965	2067	
==>will intuit one by extracting the 
last component of the calling function's package name.  (For example <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1061	1196	
==>e $?;
    
        my $meta_dir = $Metactrl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir first, TH <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3930	4033	
==>pm init() - the \$how 's.
	#join "", "[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $self->{type}, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11168	11267	
==><is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11168	11267	
==><is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10153	10258	
==>::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10153	10258	
==>::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16557	16671	
==>hild Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16557	16671	
==>hild Nodes
attribute; if $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1913	2025	
==>t $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.contex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1913	2025	
==>t $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.contex <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6981	7087	
==>e as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree:: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6981	7087	
==>e as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	16	290	
==>use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	16	290	
==>use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welc <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5068	5183	
==>::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64: <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5068	5183	
==>::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1230	1337	
==>e;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($director <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1230	1337	
==>e;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($director <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27368	27463	
==>))(id)");
is(t($fac), "int → int", ":t fac");
is(t($length), "∀α. list α → int", ":t len <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28635	28746	
==>but it expects you
to make modules having a specific simple API that will serve their role.

For example, inside <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28635	28746	
==>but it expects you
to make modules having a specific simple API that will serve their role.

For example, inside <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1379	1490	
==>d for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1379	1490	
==>d for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1602	1712	
==>th/to/smokeserv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this program a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14611	14713	
==>ngs inside character classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

False [] ran <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	911	1025	
==>op-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... } <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	911	1025	
==>op-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... } <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11596	11693	
==>eturns a Num, C<E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, C <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1763	1862	
==>ist / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

= <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1763	1862	
==>ist / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

= <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	690	785	
==>notate($self, @_);
}

sub emitter_class { "Blondie::Backend::C::Emitter" }

sub emitter {
	my $s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2200	2311	
==>es) returns Lazy|Str {
 multi sub  Perl6::List::reverse (; *@values) returns Lazy|Str {
   given want {
     whe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22396	22493	
==>ding")
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3860	4204	
==>ort;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3860	4204	
==>ort;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3722	3818	
==>emselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3722	3818	
==>emselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7494	7606	
==>if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser::anyof;
  sub emit {
    my($o <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	128	575	
==>ncoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	128	575	
==>ncoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6989	7087	
==>.header("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6989	7087	
==>.header("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2052	2165	
==>( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2052	2165	
==>( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'state <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20545	20646	
==>y plus an operand.

We don't care.


=head2 Internals:

  regnode *regstclass;

Points into ->data.
sv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46325	46453	
==>age->send('add_method' => (
    # method label
        symbol->new('FETCH'),
    # method body
        method->new(
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6212	6359	
==>),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6212	6359	
==>),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitia <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1979	2131	
==>TIME} and ($ENV{PUGS_RUNTIME} eq 'JS' or
                   $ENV{PUGS_RUNTIME} eq 'PERL5' or $ENV{PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Conf <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	93	215	
==>x engine I
started over the weekend.  A "look at what I'm up to".

It passes most (95%) of a perl 5.9 re test file (re_test <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1220	1368	
==>pen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1220	1368	
==>pen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_heade <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4219	4334	
==>terpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4219	4334	
==>terpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1539	1644	
==>class (@classes) {
        my $methods = $class->get_attr(symbol->new('%:methods'));
        #warn "lookin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16289	16380	
==>generic_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: generic_in($.else) = { g <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3279	3395	
==>urns Relation {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6756	6872	
==>urns Relation {

    die "Some keys of $mapping! do not match this relation's attributes."
        if !(all( $mapping <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7378	7520	
==>(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7378	7520	
==>(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12803	12984	
==>pture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13082	13263	
==>pture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 , <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16530	16664	
==>r;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be pla <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20956	21090	
==>r;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be pla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	761	912	
==>elf: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	761	912	
==>elf: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1346	1468	
==>Ts.

=over 4

=item Unit

A unit is an encapsulation of a single value and a type.

C<Val> is a type of unit because it enc <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	222	323	
==>KAGE__};

.

use strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Module::Insta <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2850	3203	
==>'$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Bl <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2154	2262	
==>it does in such cases is die with a complaint.  Real solvers usually do
a bit of algorithm switching.  When t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	132	236	
==>ery basic prototype based object system, it was inspired by
a purely functional prototype OO system writt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	27	153	
==>:Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	27	153	
==>:Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2024	2159	
==>tub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5802	6074	
==>$x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5802	6074	
==>$x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	763	887	
==>this down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1693	1795	
==>6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30048	30153	
==>t, just itself.  This is used primarily when
inspecting the parsing of the regex.

=item my $t = $obj->typ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	157	264	
==>t know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	157	264	
==>t know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	565	683	
==>$opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postfix:<" . <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3904	4011	
==>s copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3904	4011	
==>s copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather { <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1440	1544	
==>even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.round_half_random },

		{ $^ <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	623	724	
==>e($key, $func) if($funcs{$key} =~ $func)
	}
}

if ($Conf{leaves}) {
    print "$_\n" for grep { not de <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10383	10482	
==>erl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7716	7808	
==>dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7716	7808	
==>dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	93	243	
==>y @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	93	243	
==>y @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=* <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	878	974	
==>ing 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	878	974	
==>ing 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	842	969	
==>a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	842	969	
==>a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6266	6366	
==>al', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' , <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6266	6366	
==>al', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' , <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7567	7670	
==>' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' directive (whic <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7567	7670	
==>' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' directive (whic <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4367	4498	
==>ue::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ . <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4367	4498	
==>ue::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ . <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7705	7811	
==>slurpy'}=1 if s/\*//;
	    $h{'isNamed'}=1 if s/\+//;
	    $h{'isInvocant'}=1 if s/\s*:\s*$//;
	    $h{'isL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9444	9586	
==>\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9432	9574	
==>\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15385	15507	
==>targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15385	15507	
==>targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13028	13144	
==>phen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto addchar
  backslash:
    inc pos
    $S0 = substr target <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3131	3262	
==>en_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3131	3262	
==>en_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9678	9793	
==>ntity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9678	9793	
==>ntity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strin <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	955	1060	
==>ment { \# \N* }

rule alternation     { <non_alternation> \| <term>+? }
rule non_alternation { <conjunctio <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	304	413	
==>|| @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file | <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	304	413	
==>|| @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file | <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1420	1607	
==>.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1420	1607	
==>.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20937	21139	
==>tant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21216	21418	
==>tant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1406	1529	
==>sif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1406	1529	
==>sif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24106	24205	
==>> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an em <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28658	28757	
==>> is undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an em <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11709	11832	
==>vecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11709	11832	
==>vecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4069	4264	
==>val {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unli <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4069	4264	
==>val {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unli <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6575	6687	
==>handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6575	6687	
==>handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18776	18891	
==>G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15197	15312	
==>G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21465	21558	
==>].min_offset
 #define float_max_offset substrs->data[1].max_offset
 #define check_substr     s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1477	1595	
==>Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1477	1595	
==>Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	557	811	
==>This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	557	811	
==>This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6531	6710	
==>-> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = unde <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6531	6710	
==>-> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = unde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19516	19612	
==>y Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19516	19612	
==>y Authentication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4933	5066	
==>elf!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4933	5066	
==>elf!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
metho <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	316	424	
==>ltered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	316	424	
==>ltered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15847	15954	
==>eturn $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10703	10810	
==>eturn $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8414	8537	
==>e package name in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8414	8537	
==>e package name in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4684	4818	
==>$last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_mod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4684	4818	
==>$last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_mod <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	509	635	
==>vent_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

Se <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	509	635	
==>vent_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

Se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3354	3540	
==>\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3354	3540	
==>\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1519	1607	
==>C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.ne <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1519	1607	
==>C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13096	13241	
==><=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13096	13241	
==><=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5839	5941	
==>eturns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5839	5941	
==>eturns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3857	3987	
==>epends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3915	4045	
==>epends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1885	2011	
==>ize = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## --------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1885	2011	
==>ize = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## --------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15558	15649	
==>mutually recursive, they will easily be
able handle arbitrarily complex data structures auto <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15616	15707	
==>mutually recursive, they will easily be
able handle arbitrarily complex data structures auto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3609	3764	
==>less defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3609	3764	
==>less defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5518	5617	
==>?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5518	5617	
==>?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19706	19802	
==>-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the complete <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19706	19802	
==>-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the complete <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7302	7412	
==><channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7302	7412	
==><channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1127	1251	
==>ts')}) + 1 },
        'testplan' => sub { _('$.testplan') },
        'plan' => sub {
            my ($self, $explanation, $te <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2187	2313	
==>ame of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all l <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2187	2313	
==>ame of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14298	14399	
==>DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarch <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14298	14399	
==>DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12609	12746	
==>ler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12609	12746	
==>ler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5492	5614	
==><rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5492	5614	
==><rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7683	7806	
==>1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7683	7806	
==>1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	680	812	
==>'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(tim <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	680	812	
==>'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(tim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26323	26427	
==>lders of Rosetta would
appreciate being informed any time you create a modified version of Rosetta
that y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26323	26427	
==>lders of Rosetta would
appreciate being informed any time you create a modified version of Rosetta
that y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11574	11669	
==>@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11574	11669	
==>@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node ob <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3980	4076	
==>Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.stat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3980	4076	
==>Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.stat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	785	902	
==>ight) = @_;
    return $left->to_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	813	922	
==>->to_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11143	11237	
==>tr :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11201	11295	
==>tr :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1063	1175	
==>here are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	83	186	
==>O - see Pugs::Runtime::Grammar for metaclass stuff

sub perl {
    local $Data::Dumper::Terse = 1;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	548	651	
==>class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	548	651	
==>class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31790	31884	
==>ere> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36340	36434	
==>ere> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8632	8730	
==>any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8632	8730	
==>any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4673	4802	
==>tions ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4673	4802	
==>tions ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	294	398	
==>grammar => $grammar }, $class;
}

sub rule(&) {
    my $rule = shift;
    return Runtime::RuleCompiler->c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	186	341	
==>mar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	186	341	
==>mar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1566	1703	
==>cape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_e <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1566	1703	
==>cape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7755	7877	
==>q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7755	7877	
==>q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1980	2104	
==>"$@\n";

    $p=new Test(yylex => $lex, yyerror => sub {});

    $out=$p->YYParse;

    print Dumper $out;

    undef <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10504	10592	
==>singleton methods ..

is($Bar->another_singleton_test_on_object(), 
   '&Object::another_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3802	3945	
==>e}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3802	3945	
==>e}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my $fixit <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3648	3894	
==>x:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('parag <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3648	3894	
==>x:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('parag <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1854	1960	
==>Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1854	1960	
==>Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10054	10180	
==>returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10054	10180	
==>returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8899	8992	
==>e(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2724	2817	
==>e(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1432	1543	
==>ck->last_error), return;

    my $cwd = Cwd::cwd();
    unless( chdir $args->{dir} ) {
        error( q[Could no <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13214	13449	
==>k, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             fail <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19016	19123	
==>ta} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20374	20481	
==>ta} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17986	18145	
==>RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visua <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14407	14566	
==>RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visua <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3067	3268	
==>ator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3067	3268	
==>ator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rose <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27829	27926	
==>d returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27829	27926	
==>d returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5386	5491	
==>her data structures used by the Rosetta framework, as used by
    # the current process/application.
    m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5386	5491	
==>her data structures used by the Rosetta framework, as used by
    # the current process/application.
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2250	2360	
==>perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions return a closure.  Call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2250	2360	
==>perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions return a closure.  Call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1617	1762	
==>& $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1617	1762	
==>& $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2870	2964	
==>hc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $modul <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2870	2964	
==>hc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $modul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3628	3926	
==>ne)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3628	3926	
==>ne)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_elem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6204	6321	
==>nt Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6204	6321	
==>nt Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41085	41177	
==>feature, and provided sample usage and patch
code, that supports embedding of Template module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41085	41177	
==>feature, and provided sample usage and patch
code, that supports embedding of Template module <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36907	37001	
==>dText.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36907	37001	
==>dText.

Some example usage:

    my Str $user_text_string = $translator.translate_message( $mes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2735	2825	
==>n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2735	2825	
==>n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3581	3686	
==>::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3581	3686	
==>::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This doc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	172	263	
==>_cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.ele <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	172	263	
==>_cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.ele <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15105	15194	
==>ich
multiple interchangeable "Engine" back-ends (usually provided by third
parties) implem <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15105	15194	
==>ich
multiple interchangeable "Engine" back-ends (usually provided by third
parties) implem <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5271	5401	
==>tart_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5271	5401	
==>tart_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( S <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1702	1809	
==>ck = 0;
    my $col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{" <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14733	14840	
==>clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$splashscreen => "$cdroot/boot/splashscreen.txt"],
  [$i <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1816	1933	
==>n;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate director <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1816	1933	
==>n;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate director <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5136	5278	
==>(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5136	5278	
==>(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7089	7192	
==>verload 

runtime. 



- internal rule operators



Internal rule operators share a common API, which pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6849	6947	
==>verload 
runtime. 

- internal rule operators

Internal rule operators share a common API, which pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5929	6033	
==>{
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5929	6033	
==>{
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_ke <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1223	1331	
==>s import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1223	1331	
==>s import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{$clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2268	2373	
==>= Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2179	2282	
==>= Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    ret <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	829	979	
==>tok eq '/') {
            push @stack, int($y / $x);
        } else {
            die "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 or di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15926	16095	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16205	16374	
==>'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11789	11917	
==>=> sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    my $code = match: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5131	5228	
==>mc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5131	5228	
==>mc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1041	1146	
==>$pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @ite <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1041	1146	
==>$pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @ite <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6092	6207	
==>e');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10349	10464	
==>e');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14787	14904	
==>translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14787	14904	
==>translator.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1022	1149	
==>class: " . $inv->class->id->to_native;
    # we take the MRO first, however at some early
    # stages of the bootstrap, this is <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	87	214	
==>set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export { <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	87	214	
==>set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export { <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10993	11131	
==>nt TODO types
            foreach my $todo_type (keys %todos) {
                my $num_tests = $todos{$todo_type};
                if ($to <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17653	17785	
==>pe grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $P1 = subclass $P0, grammar 
  end:
    .return (sub, code, exp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4857	4971	
==>\) <?p6ws>?
    <code> 
        {
	 eval Emitter::Perl5::emit({macro => $()});
	 return { macro => $() ,}
	}
RULE
* <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16621	16719	
==>ode is instead stored
in its Document's "Root Nodes" attribute.  If the optional named parameter
@c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16621	16719	
==>ode is instead stored
in its Document's "Root Nodes" attribute.  If the optional named parameter
@c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10940	11075	
==>~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10940	11075	
==>~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8440	8534	
==>rs must have the same symbol, and are also unified recursively
multi unify => ('type::operator: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12729	12948	
==>urce =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_da <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12729	12948	
==>urce =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_da <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	434	551	
==>ie $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   syste <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	169	286	
==>ie $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{   syste <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9591	9848	
==>ovides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the met <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11068	11325	
==>ovides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the met <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1033	1172	
==>}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1033	1172	
==>}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21933	22154	
==>at(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22212	22433	
==>at(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3471	3733	
==>ne Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3471	3733	
==>ne Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	33	150	
==>= sub

    {
 $_[0] * $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15224	15320	
==>eader did not exist then C<undef> is returned.

Methods that deal with dates/times always convert <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15224	15320	
==>eader did not exist then C<undef> is returned.

Methods that deal with dates/times always convert <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26025	26127	
==>ue in C<@_>.>  I made sure of this in
my code; you should make sure in yours.

Matching against the reg <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20296	20456	
==>usmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23327	23482	
==>_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19748	19903	
==>_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3579	3697	
==>turn $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3579	3697	
==>turn $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $sel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2855	2989	
==>es) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        | <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2855	2989	
==>es) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        | <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1103	1234	
==>struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $Package_re = qr/^(\w+)     - # prefix
                    ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6862	6975	
==>5_metachar("\|").
p5_metachar("?").
p5_metachar("*").
p5_metachar("+").
p5_metachar("\.").
p5_metachar("[").
p5_me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12255	12357	
==>( $field, $value )

Set the specified header to the given value, but only if no previous
value for that <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12255	12357	
==>( $field, $value )

Set the specified header to the given value, but only if no previous
value for that <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7872	7986	
==>eturn 0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($orig, $suspect) = @_;
  my $fail <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15909	16008	
==>al books and papers and taught classes on the subject over the last
35+ years, along with Codd himse <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15909	16008	
==>al books and papers and taught classes on the subject over the last
35+ years, along with Codd himse <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3073	3172	
==>union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3073	3172	
==>union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	407	532	
==>= sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	128	238	
==>stuff

sub perl {
    local $Data::Dumper::Terse = 1;
    return join( ', ', Data::Dumper::Dumper( @_ ) );
}

p <==
2	/Users/nnunley/pugs/util/func_refact.pl	42	150	
==>le;
use Getopt::Long;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initial=s@ debug=s except=s@);

i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11100	11240	
==>dables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11100	11240	
==>dables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $po <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11263	11386	
==>::str,$from,$to-$from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2644	2762	
==>ult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2702	2820	
==>ult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7178	7350	
==>,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7178	7350	
==>,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'perso <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1726	1897	
==>se);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1726	1897	
==>se);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12803	12909	
==>moved.  In scalar
context the number of fields removed is returned.

Note that if you pass in multiple fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12803	12909	
==>moved.  In scalar
context the number of fields removed is returned.

Note that if you pass in multiple fiel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11374	11465	
==>returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11374	11465	
==>returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10185	10297	
==>end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESC <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10185	10297	
==>end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESC <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10923	11043	
==>t_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10923	11043	
==>t_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { ' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3280	3407	
==>e;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescap <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3280	3407	
==>e;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13448	13616	
==>eturn $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7711	7798	
==>::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1536	1623	
==>::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_ha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5528	5672	
==>@tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5528	5672	
==>@tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	322	443	
==>mpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or error( Params::C <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14712	14816	
==>unction body
	# for this reason the function needs to be cloned (so it will stay generic when we leave th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1072	1188	
==>at Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4550	4666	
==>at Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that i <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4720	4815	
==>cal_grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3442	3560	
==>pected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3500	3618	
==>pected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2317	2430	
==>get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_applica <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3098	3211	
==>get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_applica <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2112	2316	
==>lement>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2112	2316	
==>lement>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10583	10702	
==>-> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10583	10702	
==>-> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9318	9409	
==>mmar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3143	3234	
==>mmar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1902	2037	
==>{ box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1902	2037	
==>{ box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13582	13685	
==>er than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13582	13685	
==>er than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18634	18750	
==>se blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18634	18750	
==>se blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14811	14932	
==>ode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14811	14932	
==>ode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	988	1085	
==>T.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	988	1085	
==>T.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17657	17811	
==>og,
		sub { @_ ?
			  $_[0] =~ (ref $expected ? $expected : /$expected/) :
		          $expected },
		$runperl_args, $name);
}

sub can_ok ($@) {
    my($p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7085	7200	
==>oto end
  err_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    goto end
  err_close:
    parse_e <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17094	17189	
==>iseANDExpressionNoIn> <'&'> <EqualityExpressionNoIn>
}
rule BitwiseXORExpression :words {  # see <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7116	7233	
==>est lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precede <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7116	7233	
==>est lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precede <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3086	3228	
==>eedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3097	3239	
==>eedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12782	12949	
==>lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12776	12943	
==>lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtime::Rul <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1851	1953	
==>he start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flav <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1851	1953	
==>he start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flav <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4519	4647	
==>kg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5004	5132	
==>kg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4979	5100	
==>$char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4979	5100	
==>$char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1096	1198	
==>aram->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional(1)
		unless $param->{requir <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2449	2578	
==>x ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2449	2578	
==>x ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	465	574	
==>pod 8651.
multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2307	2446	
==>match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2233	2364	
==>match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3371	3475	
==>verything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3252	3353	
==>verything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	677	804	
==>for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) {
            if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1627	1737	
==>for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$self->{levels}[$_]} ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21285	21387	
==>> $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->creat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44192	44294	
==>> $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->creat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	853	966	
==>!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6::API::AST - so maybe the imp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	809	919	
==>!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6::API::AST - so maybe the imp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16984	17089	
==>alue.

- `stringify()`

Return a string representation of the span.

- `compare( $span )`

Compares the sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16984	17089	
==>alue.

- `stringify()`

Return a string representation of the span.

- `compare( $span )`

Compares the sp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6361	6464	
==>eturn $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6361	6464	
==>eturn $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12406	12502	
==>s the element in the recurrence that is closest to the parameter.
If both previous and next eleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12406	12502	
==>s the element in the recurrence that is closest to the parameter.
If both previous and next eleme <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26634	26753	
==>ethod creates and returns a new Locale::KeyedText::Message object.
The Message Key attribute of the new object is set fr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26634	26753	
==>ethod creates and returns a new Locale::KeyedText::Message object.
The Message Key attribute of the new object is set fr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3209	3330	
==>ample to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # E <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5485	5586	
==>le) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5485	5586	
==>le) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8698	8810	
==>ccepts_type => $placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub can_reduce {
		my $self <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	369	470	
==>for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskell <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	369	470	
==>for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskell <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8293	8438	
==>re4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8293	8438	
==>re4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	604	712	
==>?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	604	712	
==>?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set where only me <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16120	16223	
==>e focusing mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16120	16223	
==>e focusing mainly on how Rosetta itself works, and will
not spend much time in providing rationales; you <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	9	122	
==>n/perl

package Blondie::Emitter::Pretty;
use base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::E <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	439	567	
==>thod output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:output;

        my $output = @:output <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9498	9625	
==>@_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14839	14951	
==>is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. So we will impleme <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14897	15009	
==>is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. So we will impleme <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2249	2358	
==>ult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2307	2416	
==>ult := eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$d <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1903	2157	
==>/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1903	2157	
==>/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29696	29997	
==>r' => 'symbol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3450	3551	
==>$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 w <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3450	3551	
==>$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26741	26837	
==>00000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best to intuit before match <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2325	2481	
==>^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2325	2481	
==>^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6427	6537	
==>ules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6427	6537	
==>ules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $par <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36598	36700	
==>ent human readable text message
string; this assumes that a Template corresponding to the Message could <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36598	36700	
==>ent human readable text message
string; this assumes that a Template corresponding to the Message could <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2845	2972	
==>true;
        }
    }
    return Bool::false;
}

method no_names_exist of Bool (Relation::AttrName *@attr_names) {
    return !$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12178	12318	
==>q '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12172	12312	
==>q '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2245	2342	
==>x with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2334	2431	
==>x with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8420	8621	
==>le => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2154	2267	
==>and};
    my $equal = "r$level";
    $equal = "parse" if $level == $#{$self->{levels}};
    for my $op ( @{$self-> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10536	10648	
==>@to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10536	10648	
==>@to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	746	844	
==>t became uninteresting
# as a perl6 bootstrap path, which was the objective.

# Interest was expres <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33258	33348	
==>orementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37808	37898	
==>orementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7650	7748	
==>Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authentic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7650	7748	
==>Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authentic <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4093	4201	
==>w( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4093	4201	
==>w( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2292	2401	
==>S by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.or <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2292	2401	
==>S by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.or <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5499	5597	
==>n $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $inde <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5499	5597	
==>n $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $inde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	698	801	
==>LD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./loa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	698	801	
==>LD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./loa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13044	13150	
==>ternally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13044	13150	
==>ternally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8544	8657	
==>sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8244	8354	
==>sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1955	2076	
==>x Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,: <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1955	2076	
==>x Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3753	3845	
==>rl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self->ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6124	6245	
==>stfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6124	6245	
==>stfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        pos <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13553	13670	
==>e queries, may occur much later than expected.

It may enter an infinite loop if the formula cannot be satisfied withi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13553	13670	
==>e queries, may occur much later than expected.

It may enter an infinite loop if the formula cannot be satisfied withi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3730	3818	
==>stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Darre <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3730	3818	
==>stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@Darre <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	899	989	
==>e.does(Relation::Heading|Relation::LaxAttrList))
    )
};

subtype Relation::LaxAttrList of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	245	372	
==>atch->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	245	372	
==>atch->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3169	3268	
==>an alternate implementation:
#multi method Array::shift (@array is rw : --> Scalar) {
#    @array.sp <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3150	3272	
==>oc") == 0 or die "couldn't run user smoke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1003	1120	
==>t[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(dat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1003	1120	
==>t[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(dat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2955	3106	
==>if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2955	3106	
==>if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8446	8589	
==>_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($fil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8446	8589	
==>_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($fil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25703	25813	
==>ser-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25703	25813	
==>ser-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key can be any defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5314	5491	
==>len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5314	5491	
==>len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13074	13170	
==>g representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LI <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13074	13170	
==>g representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15165	15269	
==>to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($com <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15165	15269	
==>to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6275	6399	
==>infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6275	6399	
==>infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print Dumper $matc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3267	3349	
==>ment_previous, $self.complement_next, $set.complement_previous, $set.complement_nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3267	3349	
==>ment_previous, $self.complement_next, $set.complement_previous, $set.complement_nex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9409	9553	
==>'method' ) {
        # Moose: sub clear { my $self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4298	4417	
==>n = length( $item );
        my @r = map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4735	4834	
==>n = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4735	4834	
==>n = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12508	12831	
==>es(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12508	12831	
==>es(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3775	3969	
==>Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                f <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11347	11438	
==>ro/positive,
signaling the first arguement should be before/tied with/after the
second in th <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3358	3473	
==>ed one.
#multi Array::shift ( --> Scalar ) {
multi Array::shift (  ) {
    Array::shift @+_;
}


# signature from S2 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6407	6516	
==>r $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Determ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6407	6516	
==>r $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Determ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38399	38502	
==>terpolating the %msg_vars into it, where each variable value is
substituted for any occurance of its cor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38399	38502	
==>terpolating the %msg_vars into it, where each variable value is
substituted for any occurance of its cor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16816	16913	
==>o a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
wh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16816	16913	
==>o a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
wh <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10160	10257	
==>ntaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10160	10257	
==>ntaining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also retu <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	135	233	
==>hour;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $iso8601_re_anchored = rx:per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	970	1062	
==>$format{$Pugs::Utils::Interface::format};

	# load the required module
	eval "require $dumper <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5447	5573	
==>ir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5447	5573	
==>ir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmp <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	43	141	
==>ead1 NAME

Method - functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindin <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2266	2356	
==>-------------------------------------
-- Do not modify this file; it is generated automatic <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12522	12617	
==>urns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12522	12617	
==>urns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10789	10891	
==>es not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10847	10949	
==>es not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	665	769	
==>sity>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - nor <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	665	769	
==>sity>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - nor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2783	2894	
==>le_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3030	3141	
==>le_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13381	13475	
==>ce replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13381	13475	
==>ce replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entitie <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1191	1288	
==>verse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1191	1288	
==>verse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10157	10292	
==>closure->new(
        $::ENV, 
        closure::signature->new(
            closure::params->new(
                symbol->new("&dispatch <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4707	4820	
==>o") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4707	4820	
==>o") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2216	2333	
==>ed;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!sock <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2216	2333	
==>ed;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!sock <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6883	6989	
==>eeds to add at the beginning, before the 
ciphertext.  This will be prepended to the return value of the fi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6883	6989	
==>eeds to add at the beginning, before the 
ciphertext.  This will be prepended to the return value of the fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1085	1182	
==>interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1085	1182	
==>interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=item 1. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10567	10697	
==>okies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10567	10697	
==>okies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11513	11610	
==>return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3104	3201	
==>return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	213	333	
==>$Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	301	421	
==>$Data::Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! def <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11344	11494	
==>'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $stri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11344	11494	
==>'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $stri <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2310	2477	
==>'TCxtItem',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'type' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28300	28397	
==>ary(time)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7461	7598	
==>b pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7461	7598	
==>b pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	511	622	
==>lanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	511	622	
==>lanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25557	25705	
==>r::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6890	7001	
==>ile($file) or die "can't parse chunk ($file)";
        push @{ $self->{meat}{test_files} }, @{$chunk->{test_file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	972	1080	
==>l.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n") <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	972	1080	
==>l.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3707	3983	
==>]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3707	3983	
==>]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10150	10275	
==>$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10150	10275	
==>$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1674	1781	
==>ss Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External packages used by the Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3562	3882	
==>exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3562	3882	
==>exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	278	385	
==>5 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicals <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	278	385	
==>5 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicals <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4719	4841	
==>method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4719	4841	
==>method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@! <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1642	1741	
==>s tests and expects output from the test in a
certain format.  That format is called TAP, the Test A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1415	1602	
==>TTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1415	1602	
==>TTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23726	23818	
==>etta::Engine::Example> is bundled with Rosetta and
implements a reference implementation of a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23726	23818	
==>etta::Engine::Example> is bundled with Rosetta and
implements a reference implementation of a <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2180	2280	
==>product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >> <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2180	2280	
==>product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1971	2059	
==>return $size;
}

## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1971	2059	
==>return $size;
}

## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3162	3272	
==>, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3162	3272	
==>, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1766	2002	
==>/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1766	2002	
==>/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8570	8683	
==>ince all types of
    # packages share the same namespace; any incompat will be caught later.
    return ::($modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8570	8683	
==>ince all types of
    # packages share the same namespace; any incompat will be caught later.
    return ::($modul <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6776	6921	
==>t('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6776	6921	
==>t('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10775	10874	
==>ed field. If the $value is undefined or not
given, then that header field will remain unchanged.

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10775	10874	
==>ed field. If the $value is undefined or not
given, then that header field will remain unchanged.

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4347	4484	
==>h->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4347	4484	
==>h->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35461	35571	
==>This method returns all Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35461	35571	
==>This method returns all Member Names elements in this object as an array
ref.

=item C<as_debug_string()>

This <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3723	3837	
==>f);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Sy <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3723	3837	
==>f);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Sy <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5777	5877	
==>k/syck.o src/syck/syck_st.o src/syck/token.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2306	2452	
==>' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6], <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15437	15541	
==>it' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg, \$h <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2537	2624	
==>s archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NN <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2537	2624	
==>s archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NN <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9358	9455	
==>turns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9358	9455	
==>turns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8308	8416	
==>>
    | <NonZeroDigit> <DecimalDigits>?
}
rule DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <Decim <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	12	110	
==>replacement for the old BEGIN preamble which heads (or
# should head) up every core test program t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	688	794	
==>ture')))
        || confess "signature must be an closure::params or closure::signature type";
    (ref($bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4103	4212	
==>Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4287	4396	
==>Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string position to match. St <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11767	11881	
==>inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shift;

    local $ENV{PERL5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1003	1125	
==>qw( peek_my );  # peek_our ); ???

# note: alternation is first match (not longest). 
# note: the list in @$nodes can be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6211	6330	
==>ocal variable '$out' inside the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$self\)=/;

    #print $p;
    eval $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	55	166	
==>_END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	55	166	
==>_END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array,
    '%{}' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3699	3811	
==>dler('\G' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8140	8356	
==>if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        print STDOUT "# key ", _qq($key), " was ", _qq($orig->{$key}),
                     " now ", _qq($value), "\n";
        $fail = 1;
      }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1129	1296	
==>her {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1129	1296	
==>her {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14151	14261	
==>les;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17628	17738	
==>les;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24037	24148	
==>based approach to substitute the user's preferred
language into the program code itself, so it then becomes a ve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24037	24148	
==>based approach to substitute the user's preferred
language into the program code itself, so it then becomes a ve <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	295	399	
==>xtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we could actually ma <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1539	1640	
==>as if it were code written in C<$lang>. C<Perl6> is the
    # only required language, but supporting C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1352	1438	
==>erl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1352	1438	
==>erl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16888	17015	
==>c;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13309	13436	
==>c;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2317	2449	
==>mp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2317	2449	
==>mp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1496	1601	
==>finite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop ord <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1496	1601	
==>finite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop ord <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8555	8658	
==>g'} || %mods{'global'};
    my $ov = %mods{'ov'} || %mods{'overlap'};
    my $ex = %mods{'ex'} || %mods{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	544	641	
==>tr($<block>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "* <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1394	1522	
==>, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    return @rv;
}    

__END__





    ### XXX can be custom file <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22451	22554	
==>l_re_dup() will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	42	142	
==>ver_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	42	142	
==>ver_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software retu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11920	12013	
==>t.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11920	12013	
==>t.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Return <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2060	2178	
==>e a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        retu <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2060	2178	
==>e a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7677	7835	
==>n $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            w <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7677	7835	
==>n $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	558	721	
==>am($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	558	721	
==>am($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3031	3162	
==>\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $le <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	266	373	
==>Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision op <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	266	373	
==>Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision op <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21950	22044	
==>- !, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(cl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1954	2055	
==>Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2012	2113	
==>Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $e <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16242	16348	
==>($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5144	5240	
==>se = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $use <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18928	19080	
==>:
                # insert just a normal link, after the header, when there is no regex
                # or if the regex failed
                unless ( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5225	5333	
==>res
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-% <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1449	1555	
==>mark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1449	1555	
==>mark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abx <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	888	1029	
==>\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ? <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	888	1029	
==>\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6933	7069	
==>o the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6933	7069	
==>o the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2199	2305	
==>, other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2199	2305	
==>, other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	436	542	
==>L>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	436	542	
==>L>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Wh <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23584	23683	
==>ee clause 14
      <SourceElement>
    | <SourceElements> <SourceElement>
}
rule SourceElement :word <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31659	31766	
==>he new Relation has either all of the tuples of
the original, or has zero tuples, respectively.  This method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36209	36316	
==>he new Relation has either all of the tuples of
the original, or has zero tuples, respectively.  This method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2212	2313	
==>)) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2212	2313	
==>)) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4395	4538	
==>= $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4395	4538	
==>= $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6137	6267	
==>(/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6137	6267	
==>(/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3553	3738	
==>roxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3553	3738	
==>roxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	764	894	
==>t, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	764	894	
==>t, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8000	8100	
==>delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody qui <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8000	8100	
==>delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody qui <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12991	13087	
==>gative infinite if the recurrence is an empty set.

- `stringify()`

Return a string representati <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12991	13087	
==>gative infinite if the recurrence is an empty set.

- `stringify()`

Return a string representati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1792	1969	
==>king $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delaylo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1792	1969	
==>king $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delaylo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8527	8622	
==>perator::binary', 'type::operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14977	15076	
==>k and defines a common programmatic interface (API), called
the Rosetta Native Interface (RNI), whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14977	15076	
==>k and defines a common programmatic interface (API), called
the Rosetta Native Interface (RNI), whic <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2322	2418	
==>ects or fully functioning modules in 
Pugs, this port does it's best to work with those limitatio <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2322	2418	
==>ects or fully functioning modules in 
Pugs, this port does it's best to work with those limitatio <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16048	16177	
==>other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19525	19654	
==>other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!he <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1146	1259	
==>for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1146	1259	
==>for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically com <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	175	287	
==>lass;
}

sub compiler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->require or die <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4837	4941	
==>infix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	851	974	
==>it>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A0 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	851	974	
==>it>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8394	8514	
==>reedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_pl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8102	8218	
==>reedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_pl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12614	12731	
==>mpty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Returns the start element in t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12614	12731	
==>mpty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

Returns the start element in t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8230	8403	
==>ing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8694	8867	
==>ing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satis <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1011	1117	
==>PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1011	1117	
==>PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILT <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2494	2600	
==>yle files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproper <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2494	2600	
==>yle files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproper <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6508	6641	
==>nly allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6508	6641	
==>nly allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5288	5390	
==>zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
This is aut <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5288	5390	
==>zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
This is aut <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17298	17425	
==>start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17298	17425	
==>start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	699	789	
==>ne-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE Us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	699	789	
==>ne-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE Us <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4492	4641	
==>.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4492	4641	
==>.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.span;
        }
        elsif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2803	2908	
==>term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2791	2896	
==>term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28304	28398	
==>e as the invocant Relation but that some of its attributes
have been combined/wrapped into tupl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32856	32950	
==>e as the invocant Relation but that some of its attributes
have been combined/wrapped into tupl <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	4	106	
==>ss Perl::Type;

# from src/Pugs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inherita <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1859	2260	
==>~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else {
                        take $k;
                    }
                }
            }
        }
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1859	2260	
==>~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else {
                        take $k;
                    }
                }
            }
        }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2568	2776	
==>>add_rule( 
        name => '>',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        pr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4094	4213	
==>by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3044	3150	
==>by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7696	7791	
==>, sub { Grammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->ac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1521	1616	
==>, sub { Grammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->ac <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	352	461	
==>Method.new(...))
 $class.apply;

 # my SomeClass $foo does Foo;
 my $role = Role.new("Foo");
 my $newclass = C <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4412	4516	
==>};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4412	4516	
==>};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4912	5039	
==>02),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4912	5039	
==>02),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11683	11809	
==>dline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11683	11809	
==>dline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the serve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6275	6396	
==>$rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11373	11473	
==>of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14850	14950	
==>of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7866	7973	
==>n_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7866	7973	
==>n_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17410	17509	
==>self %params))
        (= $method (WALKMETH (&dispatcher (symbol new BUILD)))))))

=cut

$::Class->s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	164	258	
==>"$wer hat einen $haustier";
say "$wer mag @obst[0] und @obst[1]";
say "{$wer}s Lieblingsfarbe i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1059	1172	
==>me, $relativePrecedence, $options, $match) = @_;
  #print "name: $name - rp: $relativePrecedence - options: $optio <==
2	/Users/nnunley/pugs/util/claim_drift.pl	895	1002	
==>Spec->canonpath(File::Spec->rel2abs($_[0])) };

    $clean->($orig);
    $clean->($real);

    print "rm $or <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3806	4059	
==>>) 
    [
        \| 
        $<q2> := (<self>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1}() } 
    ' );
    my $match = $rule->mat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6750	6910	
==>a( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @may <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7214	7374	
==>a( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @may <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1899	2100	
==>param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1899	2100	
==>param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %par <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7522	7697	
==>nt these roles
    '%:methods' => {
        'foo_bar' => sub { 'FooBar::foo_bar' }
    }
);

is_deeply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the ri <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4071	4201	
==>s %main::;
        print "\n---- Conversion subs ----\n";
        print $conv;
    }
    elsif  ($arg eq '-s'){
        print <<'SU <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3816	4117	
==>fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3816	4117	
==>fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18865	19035	
==>ash %params) returns nil {
    for %params.kv -> $key, $value {
        # not sure if this is the 
        # correct syntax for fetching
        # an attribute symbolicall <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8965	9061	
==>) { "should not appear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	521	676	
==>($class->name =>
              { instance =>
                { methods => { map { $_->name => $_->code }
                               $class->methods->mem <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19196	19309	
==>:eval($code,$lang);
}


 multi Control::Basic::evalfile (Str $filename ; Grammar :$lang = Perl6)
{
    eval(slurp( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2593	2700	
==>e->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variab <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2593	2700	
==>e->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variab <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6789	6898	
==>= map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups minus the curre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29561	29660	
==>tch it; it has already been consumed.

If you created a handle for '&&' without a predecessor, you w <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1169	1288	
==>ch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File: <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1169	1288	
==>ch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2939	3078	
==>ostrm'}           = [ 'POSTRM.pl'     ];




### generate a list of methods
### see above for details
for my $func ( keys %config ) {
    no <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2595	2694	
==>esolve_type {
	my $self = shift;
	my $type = shift;

	$type = $type->type while Scalar::Util::blesse <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4761	4902	
==>"*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6523	6664	
==>"*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2976	3122	
==>y $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'H <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2976	3122	
==>y $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'H <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1896	2009	
==>capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1896	2009	
==>capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1171	1275	
==>child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1171	1275	
==>child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8769	8860	
==>"Rosetta::Model" package serves only as the name-sake
representative for this whole file, wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8769	8860	
==>"Rosetta::Model" package serves only as the name-sake
representative for this whole file, wh <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6066	6181	
==>::as_seq (@array:) returns List {
    *@array
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi metho <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5463	5577	
==>hook_insert ()
{
  if(previous_exec_hook != NULL) { croak("can't install twice"); }
  previous_exec_hook = PL_regex <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2326	2488	
==>ail "Invalid or missing plan" unless defined $:expect;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method f <==
2	/Users/nnunley/pugs/util/version_h.pl	700	807	
==>EST") {
    # This is a release -- do nothing!
}
elsif (-r $svn_entries) {
    print "Writing version from $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2290	2439	
==>unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2278	2427	
==>unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2435	2535	
==>ild($child);
    }
    $self;
}

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2435	2535	
==>ild($child);
    }
    $self;
}

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	949	1091	
==>Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	949	1091	
==>Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Ros <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	485	593	
==>$output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    T <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	485	593	
==>$output? )
{
    return $Class.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    T <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7086	7274	
==>) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep alr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7550	7738	
==>) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep alr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32398	32502	
==>y be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32398	32502	
==>y be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	164	280	
==>non/chain/list
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my $self = { levels = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	812	926	
==>torTable({}); 
  $object;
}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$hash ) {
    p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3605	3718	
==>eturn ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3605	3718	
==>eturn ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	238	405	
==>\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	238	405	
==>\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($val <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6093	6199	
==>lies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stri <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6093	6199	
==>lies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stri <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	574	709	
==>et = $matchObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $gr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	873	1003	
==>ass = $inv->class;
    
    # gather all the classes to look through
    my @classes = ($class);
    
    #warn "inv: " . $inv->id- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2309	2488	
==>:True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2309	2488	
==>:True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	982	1087	
==>) inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	982	1087	
==>) inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18353	18460	
==>e server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18353	18460	
==>e server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10400	10522	
==>es () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10400	10522	
==>es () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	343	476	
==>t;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs }, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	337	470	
==>t;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs }, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5759	5860	
==>~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5759	5860	
==>~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1571	1674	
==>rip away everything except status and headers
  # This should all be done better so the response doesn't <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1571	1674	
==>rip away everything except status and headers
  # This should all be done better so the response doesn't <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2593	2701	
==>or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &cipher := <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2593	2701	
==>or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &cipher := <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2864	2981	
==>, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2864	2981	
==>, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18427	18531	
==>ect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18427	18531	
==>ect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21102	21218	
==>c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17523	17639	
==>c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9372	9492	
==>e::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9360	9480	
==>e::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4779	4881	
==>ay.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.assuming(of <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	308	409	
==>ay.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Array>.assuming(:of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25873	25974	
==>ariables>

Hash(Str) of Any - This contains zero or more variable names and values
that are associated <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25873	25974	
==>ariables>

Hash(Str) of Any - This contains zero or more variable names and values
that are associated <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6051	6154	
==>... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $B <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10308	10411	
==>... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9599	9714	
==>= :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9599	9714	
==>= :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23348	23447	
==>han>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23348	23447	
==>han>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30817	30919	
==>the I<object>'s inheritance tree.  Use Damian Conway's F<NEXT> module
instead.  This module is standard <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	321	434	
==>dir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	321	434	
==>dir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	368	477	
==>ent, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	368	477	
==>ent, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4636	4793	
==>> [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5288	5445	
==>> [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9614	9702	
==>l => type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		type::operator <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10211	10332	
==>bling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ar <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10211	10332	
==>bling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ar <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3924	4038	
==>,
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3924	4038	
==>,
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        compl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5456	5559	
==>$chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5456	5559	
==>$chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	113	226	
==>ttributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## --------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	113	226	
==>ttributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## --------- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	277	373	
==>ype() returns a string that represents the 
node type, which are checked against each other for a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	277	373	
==>ype() returns a string that represents the 
node type, which are checked against each other for a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4484	4628	
==>m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4484	4628	
==>m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($con <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1921	2335	
==>)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relation;

    # External <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4758	4871	
==>->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURE <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9193	9313	
==>*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # If the file exists, and it looks like it's in windows <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8764	8870	
==>cation, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8764	8870	
==>cation, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20534	20631	
==>e if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20534	20631	
==>e if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16637	16733	
==>guage> documentation file that comes
with this "Rosetta" distribution.

While it is possible that <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16637	16733	
==>guage> documentation file that comes
with this "Rosetta" distribution.

While it is possible that <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4668	4795	
==>ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4522	4645	
==>ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21865	21955	
==>the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21865	21955	
==>the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

=hea <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	236	348	
==>GIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Config;
    my $se <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3575	3669	
==>ort qualified Data.Map as Map
import qualified Pugs.Version

config :: Map.Map String String
co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6049	6212	
==>[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6049	6212	
==>[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ) <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1223	1365	
==>scaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unl <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1223	1365	
==>scaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2780	2882	
==>m together; you might not be able to derive the 
plaintext from the result, but any cryptographer worth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2780	2882	
==>m together; you might not be able to derive the 
plaintext from the result, but any cryptographer worth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10397	10511	
==>f ($depth == $iter->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other argument, it <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2482	2581	
==>e(Any) returns Any;
 type Comparator    ::= Code(Any, Any) returns Int;
 type SortCriterion ::= KeyE <==
2	/Users/nnunley/pugs/util/package-osx.pl	11521	11637	
==>$_ } split /$/m, $footer[0];

    print REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    pri <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25890	25989	
==>. list α", "pretty print list a");
}
{
	my $a = type::variable::free->new;
	my $type = type::operat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18601	18711	
==>tween multiple threads, nor have objects in separate
threads try to access the same external resources.>

Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18601	18711	
==>tween multiple threads, nor have objects in separate
threads try to access the same external resources.>

Roset <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	317	434	
==>!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Bu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	317	434	
==>!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Bu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9003	9104	
==>ckage name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9003	9104	
==>ckage name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7430	7540	
==>$Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS does <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7488	7598	
==>$Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS does <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1603	1705	
==>ex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <n <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1603	1705	
==>ex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1006	1122	
==>tial things



sub ruleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	967	1079	
==>tial things

sub ruleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3524	3610	
==>OOTSTRAPPING COMPLETE
## -------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5426	5512	
==>OOTSTRAPPING COMPLETE
## -------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4644	4751	
==>bParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4644	4751	
==>bParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5190	5303	
==>gated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5383	5496	
==>gated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18486	18581	
==>t results by having a human being write out
that text themselves.

What Locale::KeyedText does i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18486	18581	
==>t results by having a human being write out
that text themselves.

What Locale::KeyedText does i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37812	37914	
==>sg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it tries to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37812	37914	
==>sg_key (a string).  Assuming that a Perl module by the given module name
is already loaded, it tries to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1623	1752	
==>n is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1623	1752	
==>n is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7025	7136	
==>os, "\\1 and \\012 illegal, use $1, \\o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "N <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	430	535	
==>ged with
#     #SourceCharacter but not ...
#     But <SourceCharacter> isnt called for all characters any <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1868	2008	
==>s Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1868	2008	
==>s Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2694	2819	
==>rol'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl' <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1846	1937	
==>---------------------------------------------------------------------------
.
    }
}

1;

_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2193	2365	
==>zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an a <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2193	2365	
==>zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10095	10205	
==>at all.  The scope of immediate
validation is kept to the minimum possible, and is essentially just
concerned w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10095	10205	
==>at all.  The scope of immediate
validation is kept to the minimum possible, and is essentially just
concerned w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4972	5085	
==>t = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4972	5085	
==>t = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5557	5641	
==>f ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5557	5641	
==>f ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex( <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	51	152	
==>aModel;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of a Tangram schema structur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17107	17239	
==>sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17107	17239	
==>sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1013	1171	
==>t] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1013	1171	
==>t] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4615	4723	
==>m 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4615	4723	
==>m 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	509	629	
==>-

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_counter = 0;

    # I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20368	20474	
==>INTERFACE

The interface of Relation is entirely object-oriented; you use it by
creating objects from its m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24920	25026	
==>INTERFACE

The interface of Relation is entirely object-oriented; you use it by
creating objects from its m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2700	2842	
==>lf: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2700	2842	
==>lf: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7265	7392	
==>72),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "ua <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7265	7392	
==>72),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "ua <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1723	1840	
==>ping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1723	1840	
==>ping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop conn <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	66	186	
==>ubmethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method h <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	66	186	
==>ubmethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19328	19430	
==>e server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19328	19430	
==>e server
dies. To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	232	323	
==>gs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	265	356	
==>gs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9275	9500	
==>er the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @list <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9275	9500	
==>er the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @list <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5312	5458	
==>bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5505	5651	
==>bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1925	2019	
==>superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1925	2019	
==>superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5461	5597	
==>me },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local * <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5967	6089	
==>me }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local * <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15162	15267	
==>er, or generate a message to be
shown to the user.  Sometimes this is an error message of some kind, but i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15162	15267	
==>er, or generate a message to be
shown to the user.  Sometimes this is an error message of some kind, but i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3589	3728	
==>} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) = @_;
            keys %{::opaque_instance_attrs($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3783	3879	
==>bal match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3967	4063	
==>bal match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	686	784	
==>rce_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', ' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	744	842	
==>rce_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16293	16423	
==>( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19770	19900	
==>( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14466	14561	
==>s routine is exported by default.

=item encode_entities_numeric( $string )

=item encode_entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14466	14561	
==>s routine is exported by default.

=item encode_entities_numeric( $string )

=item encode_entiti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36890	36986	
==>y of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36890	36986	
==>y of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28643	28769	
==>f_close> node.

=item my $c = $obj->family()

The general family of this object.  These are any of: alnum, anchor,
anyof, anyof <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	750	856	
==>f = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	651	757	
==>f = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	425	577	
==>ss $class =~ /^Blondie::(\w+)$/;
        next if __PACKAGE__->can($1);

        no strict 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19393	19490	
==>he C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19393	19490	
==>he C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1485	1597	
==>rc . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: synta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1485	1597	
==>rc . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: synta <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	689	799	
==>TH }

# make some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_I <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	689	799	
==>TH }

# make some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_I <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3805	3902	
==>fix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3805	3902	
==>fix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1198	1316	
==>ss: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1198	1316	
==>ss: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19836	19934	
==>ck is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19836	19934	
==>ck is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<use <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	524	628	
==>ub upper {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2373	2580	
==>};
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2373	2580	
==>};
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14893	15000	
==>ortable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14893	15000	
==>ortable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7212	7348	
==>$tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a debu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6971	7100	
==>$tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3964	4080	
==>a( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3964	4080	
==>a( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.st <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8974	9063	
==>ails';
fails_ok { $iFoo->singleton_test_on_object } '... instance calling metaclass single <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34808	34909	
==>n the invocant Relation and that match any tuples of C<$other> along
their common attributes.  This me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39358	39459	
==>n the invocant Relation and that match any tuples of C<$other> along
their common attributes.  This me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18546	18675	
==>' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14967	15096	
==>' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4987	5084	
==>Text> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4987	5084	
==>Text> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14705	14875	
==>= sort keys %f;
                print "LEAKED FILES: @f\n";
                @dir_files = @new_dir_files;
            }
        }
    } # foreach test
    $tot{bench} = tim <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14191	14327	
==>tml);
        
        # and parse it into a tree
        my $sobj = HTML::TreeBuilder->new_from_file($synhtml);

        # this makes it <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	786	886	
==>l bits.  Also note that the 
Cipher API operates at the byte level, not the character level, so diffe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	786	886	
==>l bits.  Also note that the 
Cipher API operates at the byte level, not the character level, so diffe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	28	131	
==>ndie::Prelude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub '&infix: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35803	35904	
==>has the same heading as
the invocant Relation::Example, and returns a new Relation::Example that has t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37835	37936	
==>has the same heading as the
invocant Relation::Example, and returns a new Relation::Example that has t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6031	6150	
==>, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6089	6208	
==>, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5503	5608	
==>alize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5503	5608	
==>alize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$even <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2841	3143	
==>_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2841	3143	
==>_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8332	8521	
==>entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8796	8985	
==>entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2282	2395	
==>hod start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2282	2395	
==>hod start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7575	7691	
==>, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7575	7691	
==>, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1182	1300	
==>'t flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1182	1300	
==>'t flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set() <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20068	20154	
==>_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20068	20154	
==>_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<las <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	366	533	
==>late     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.sta <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	366	533	
==>late     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.sta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14007	14136	
==>ve later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17484	17613	
==>ve later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	170	295	
==>ub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => Thunk(
		Seq(
			(map { Param($_) } @params),
			Stub($name <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	697	800	
==>GMT\n";
    }
    return($header);
}
 
sub CookiesAdd($variable, $value) {
    %Cookies{$variable}=$valu <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2221	2320	
==>>>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< con <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2221	2320	
==>>>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< con <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32154	32256	
==>both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the result.  Wit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36704	36806	
==>both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the result.  Wit <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1365	1503	
==>s POE::Session {
    method dispatch (Str $event, *@args) {
        given $event {
            when "say_hello" {
                return "H <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	203	332	
==>control_structure:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$left_thunk'),
            Param('$r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7495	7627	
==>ace_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7495	7627	
==>ace_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6732	6836	
==>e ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
use base qw/node/;

package val <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21522	21665	
==>prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::compile_file_to_yml($path);
        }
      }
      return opRe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2815	2910	
==>C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 Failure

When tests fail, analyze the s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4808	4944	
==>Pugs::Compiler::Regex->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler::Regex->compile( q( <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1948	2069	
==>------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2407	2503	
==>nify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2407	2503	
==>nify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S* <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27169	27273	
==>d (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relational operator that ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31721	31825	
==>d (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relational operator that ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15651	15773	
==>n? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if define <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15651	15773	
==>n? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if define <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4076	4182	
==>each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4076	4182	
==>each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1771	1870	
==>struct_equiv->moniker)) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce($no <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1725	1822	
==>e_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1725	1822	
==>e_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::pa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15732	15829	
==>I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+(match_captur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22554	22652	
==>lation object has 2 main attributes (implementation details subject to
change) plus 1 extra attribu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27106	27204	
==>lation object has 2 main attributes (implementation details subject to
change) plus 1 extra attribu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	701	854	
==>RL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	19	113	
==>ipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	19	113	
==>ipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23686	23818	
==>';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20107	20239	
==>';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	385	488	
==>essages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	385	488	
==>essages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set:: <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3749	3865	
==>ciicircum\{\}/g;
#    $file =~ s/\~/\\textasciitilde\{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6521	6667	
==>zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "md <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6521	6667	
==>zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "md <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14946	15051	
==>mplement the Test::More function is_deeply.
The plan currently is to implement this as a mutually recursiv <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15004	15109	
==>mplement the Test::More function is_deeply.
The plan currently is to implement this as a mutually recursiv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	614	728	
==>teger or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	614	728	
==>teger or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::Keye <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9297	9424	
==>-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9285	9412	
==>-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	31	133	
==>.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filte <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	31	133	
==>.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2926	3064	
==>op {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = % <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2926	3064	
==>op {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = % <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1026	1150	
==>uration formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration($/[1..7]);
        if ( defin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1133	1233	
==>beit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1133	1233	
==>beit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encip <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2940	3051	
==>(Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SEL <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6417	6528	
==>(Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?SEL <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34559	34656	
==>a single Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39109	39206	
==>a single Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
head <==
2	/Users/nnunley/pugs/util/package-osx.pl	4054	4163	
==>al/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bible::A20.3pm
        /usr/local/man/man <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7582	7697	
==>(@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7582	7697	
==>(@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1178	1297	
==>cense.  See the F<LICENCE> file for details.

This program is free software; you can redistribute it and/or modify it
un <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	142	242	
==>olierter Funktions-Aufruf
print "100£ sind @{[PoundToEuro(100)]}€\n";
# gibt '100£ sind 146.56€ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21914	22017	
==>at resource
files it should use and in what order they should be consulted.  When
Locale::KeyedText is t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21914	22017	
==>at resource
files it should use and in what order they should be consulted.  When
Locale::KeyedText is t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2876	2972	
==>er.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.gr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2876	2972	
==>er.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.gr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8002	8151	
==>$got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8060	8209	
==>$got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23125	23324	
==>::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23404	23603	
==>::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	391	535	
==>rn ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	360	464	
==>c => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8633	8753	
==>{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8633	8753	
==>{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20418	20546	
==>_print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20697	20825	
==>_print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17360	17473	
==>while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20724	20837	
==>while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	215	307	
==>::p6_initialize_package("",'package');
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_packag <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15948	16037	
==>ndition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(Ra,F0,F1,B0,B1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14202	14325	
==>nd_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14202	14325	
==>nd_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_p <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4931	5054	
==>();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(S <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6275	6382	
==>$self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6275	6382	
==>$self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == - <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1570	1703	
==>urn $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1570	1703	
==>urn $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36802	36970	
==>et_attr(symbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Cla <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9828	9955	
==>ODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($typename) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5996	6101	
==>span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5996	6101	
==>span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45814	46132	
==>' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$name')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1509	1603	
==>roup';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RPe_BADESC => --$ENUM, ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2718	2937	
==>( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2718	2937	
==>( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4194	4290	
==>$name), "\\N{$name}") if $cc;
    return $S->object(exact => $S->nchar($name), "\\N{$name}");
  } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2796	2908	
==>= $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2796	2908	
==>= $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # generate a %standard_case e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4853	4976	
==>ch.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4853	4976	
==>ch.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3223	3335	
==>eturn $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4072	4184	
==>eturn $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1679	1793	
==>guess at each iteration)
    verbose - a boolean which will turn on per iteration printing
    
If you omit the fpr <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	187	299	
==>ok
###

## Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXPORT_OK = qw(node head tail drop upto <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1252	1384	
==>all_superclasses;
    die "Uh-oh, there's a super in my duper!"
        if $supers.includes($self);

    $self.SUPER::set_superclasse <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48418	48517	
==>d('new');
$::Module->send('superclasses' => list->new($::Package));


$::Module->send('add_attribute <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1429	1522	
==>= &join<Str>.assuming:delimiter(' ');

 multi sub Array::map (@values,   Code $expression) ret <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18434	18530	
==>, we
reverse engineering perl source.

We basically use the perl regcompp and regexecp hooks (C f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	272	386	
==>die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	272	386	
==>die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5768	5881	
==>:Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5768	5881	
==>:Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9835	10010	
==>es{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method cl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9835	10010	
==>es{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method cl <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	69	160	
==>thod addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	69	160	
==>thod addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4350	4470	
==>~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4350	4470	
==>~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuati <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8497	8603	
==>{
	warn "Coroutine not implemented.\n";
	return "";
    }
    if($kind eq 'Method') {
	$code_body = p6_catc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11113	11261	
==>xt () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11113	11261	
==>xt () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25173	25275	
==>e->new,
	);
	is($type->stringify, "∀α. ∀β. (α × β)", "pretty print a x b");
}
{
	my $type = ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17688	17804	
==>sh @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  packa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1855	1966	
==>ame => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1855	1966	
==>ame => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10516	10636	
==>ph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do some <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10516	10636	
==>ph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do some <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	289	389	
==>ged
# my original first attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very ea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	199	308	
==>the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the plaintext from... <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	199	308	
==>the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the plaintext from... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	792	934	
==>GE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PAC <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1182	1287	
==>.).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1182	1287	
==>.).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gramm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	641	741	
==>d, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Para <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	641	741	
==>d, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Para <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1548	1803	
==>g

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_F is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2932	3085	
==>y $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2932	3085	
==>y $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	205	355	
==>ethod, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	205	355	
==>ethod, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	596	714	
==>ion => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  debug "Reading smoke \"$file\" to upload... ";

  open my <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11386	11534	
==>@$X::cap];
        $X::cap->[$idx] = $m;
        my $v = $f->($close);
        $m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14970	15065	
==>function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15028	15123	
==>function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub w <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9781	9877	
==>(".join(",",map{DOWN($_)}@$value).")" } # XXX
NODE VType ($value) { die "VType $value" } # XXX

N <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3562	3718	
==>ess $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ { ident <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3420	3571	
==>ess $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ { ident <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	283	381	
==>returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filte <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	283	381	
==>returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	384	469	
==>ugs::Compiler::Rule->compile(q(\{[<block>|<-[}]>|\\\\\}]*\}))->code;
*rule = Pugs::Com <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25751	25833	
==>.
flag_x(amat(_,flgs(_,_,_,x,_,_,_,_,_,_))).

%------------------------------------ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2031	2149	
==>f $@;
        exit 0;
    }
}

1;

__END__

=head1 NAME 

v6-pugs - an experimental Perl 6 implementation

=head1 SYNOP <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp3.pl	47	147	
==>o {
	"Hallo, @_[0]!" # $_ würde aber auch gehen!
}

say "Otto sagt: &hallo('Hund')"; # Funktionsaufr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	554	669	
==>$uri, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	554	669	
==>$uri, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23153	23252	
==>d to pass in english text and they translate it, which could
produce ambiguous results or associatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23153	23252	
==>d to pass in english text and they translate it, which could
produce ambiguous results or associatio <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2654	2766	
==>0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2654	2766	
==>0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20648	20750	
==>as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20648	20750	
==>as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These fi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12190	12322	
==>},
      scalar_non_numeric => sub { 0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      cod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10873	10984	
==>The old value (or values) of the last of the header fields is returned.
If no such field exists C<undef> will be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10873	10984	
==>The old value (or values) of the last of the header fields is returned.
If no such field exists C<undef> will be <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1192	1307	
==>ld_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	533	645	
==>ld_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8081	8222	
==>],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8274	8415	
==>],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10997	11092	
==>snt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11055	11150	
==>snt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (St <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3687	3791	
==>r
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROX <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3687	3791	
==>r
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROX <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	422	520	
==>($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %p <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	422	520	
==>($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %p <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1315	1421	
==>h whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::El <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1315	1421	
==>h whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::El <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8948	9061	
==>blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8948	9061	
==>blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $bloc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	98	195	
==>tream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	98	195	
==>tream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6529	6652	
==>rmine author info from $file\n";
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4301	4427	
==>rl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it he <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4301	4427	
==>rl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it he <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15148	15241	
==>= rewr(N1),
  re_rewrite(R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewr <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9709	9860	
==>es --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	932	1059	
==>es --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6675	6827	
==>py( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return;
        }
    }
    
    return 1;
    
}

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	9	127	
==>e Pugs::Grammar::BaseCategory;
use strict;
use warnings;
use Pugs::Compiler::Rule;
use base qw(Pugs::Grammar::Base) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2301	2396	
==>e Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2390	2485	
==>e Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7301	7433	
==>n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7313	7445	
==>n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4060	4172	
==>' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4643	4755	
==>' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    met <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3054	3235	
==>.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        els <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3054	3235	
==>.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        els <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1026	1111	
==>class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1026	1111	
==>class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1715	1837	
==>ture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1715	1837	
==>ture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@gram <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3562	3666	
==>l.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual al <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3562	3666	
==>l.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8671	8776	
==>::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8671	8776	
==>::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18016	18125	
==>tion is via global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The stru <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2375	2484	
==>tion is via global variables.  A lot of it uses a
regexp struct, which gets attached to the op tree.  The stru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4068	4170	
==>>);

This class method constructs a new cipher object.  The options passed to the 
C<new> constructor g <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4068	4170	
==>>);

This class method constructs a new cipher object.  The options passed to the 
C<new> constructor g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3720	3818	
==>options to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3720	3818	
==>options to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Finally <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5310	5461	
==>atch::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5322	5473	
==>atch::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1631	1730	
==>as_failed,
    }, $cls;
}
sub value { $_[0]{'value'} }
sub warnings { $_[0]{'warnings'} }
sub has_fa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1982	2085	
==>er::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fiel <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1982	2085	
==>er::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fiel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12139	12311	
==>ference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation::Example $other!) returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10281	10435	
==>$n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{sig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12647	12756	
==>ames.

The header field names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12647	12756	
==>ames.

The header field names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

T <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18968	19104	
==>n>
}
rule AssignmentOperator :words {  # see 11.13
      <'='>
    | <'*='>
    | <'/='>
    | <'%='>
    | <'+='>
    | <'-='>
    | <'< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8341	8466	
==>md) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8341	8466	
==>md) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7894	8005	
==>X - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_blo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7906	8017	
==>X - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_blo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	371	498	
==>ill we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # proces <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	371	498	
==>ill we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # proces <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17203	17344	
==>predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17203	17344	
==>predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9392	9490	
==>g_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9392	9490	
==>g_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF! <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	663	895	
==>%events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_doc <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	663	895	
==>%events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_doc <==
2	/Users/nnunley/pugs/util/claim_drift.pl	292	401	
==>t until
# we do, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	736	838	
==>e of a Blondie program.";

   	$node->fmap(sub { $self->reduce($_[0]) });
}

__PACKAGE__;

__END__

=po <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1473	1573	
==>Perl5::X1::Result;
use strict;
sub new {
    my($cls,$value,$warnings,$has_failed)=@_;
    bless {
	v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10834	10940	
==>t header field will remain unchanged.

The old value (or values) of the last of the header fields is return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10834	10940	
==>t header field will remain unchanged.

The old value (or values) of the last of the header fields is return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35642	35739	
==>e aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a gener <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40192	40289	
==>e aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a gener <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8698	8796	
==>hers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8698	8796	
==>hers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35834	35930	
==>as the implicit handler when
coercing this object to a string.

=item C<get_set_member_combinatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35834	35930	
==>as the implicit handler when
coercing this object to a string.

=item C<get_set_member_combinatio <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13796	13925	
==>n *@others) returns Relation {

    # First do some optimizing of the order that source relations are
    # combined, so to try an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17273	17402	
==>n *@others) returns Relation {

    # First do some optimizing of the order that source relations are
    # combined, so to try an <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3172	3278	
==>as Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.ta <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3172	3278	
==>as Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.ta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2299	2414	
==>d($delimiter) && $delimiter->isa('str'))
        || confess "delimiter must be a string type";    
    return str->n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1534	1633	
==>it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1534	1633	
==>it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5305	5441	
==>( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5527	5663	
==>( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Du <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10009	10111	
==>or::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type::operator::nary->new(list => type::var <==
2	/Users/nnunley/pugs/util/package-osx.pl	5073	5170	
==>Bible::S22.3pm
        /usr/local/man/man3/Perl6::Bible::S26.3pm
        /usr/local/man/man3/Perl6 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2154	2264	
==>Attribute grammars can't eat DAGs, so we have to recursively make shallow copies of the nodes
	# \@free will co <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8369	8464	
==>m I<start_element ('line_interpolation')>

This event is begun when any block of characters is i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8369	8464	
==>m I<start_element ('line_interpolation')>

This event is begun when any block of characters is i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8910	9049	
==>am = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8898	9037	
==>am = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3503	3631	
==><433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3503	3631	
==><433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	953	1055	
==>ption( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	953	1055	
==>ption( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6439	6545	
==>$range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fancy as Test:: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21958	22074	
==>d["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12729	12833	
==>sues),
  might suffice, be easier to create, and be more portable.
  http://www.perlmonks.org/index.pl?no <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4296	4396	
==>o_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4296	4396	
==>o_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12794	12899	
==>fields removed.  In scalar
context the number of fields removed is returned.

Note that if you pass in mul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12794	12899	
==>fields removed.  In scalar
context the number of fields removed is returned.

Note that if you pass in mul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4934	5040	
==>odes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($paren <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4934	5040	
==>odes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($paren <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17206	17323	
==>Hash
    pad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36549	36778	
==>mbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$self:' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	120	219	
==>e Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use warnings;

use Carp 'conf <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5708	5829	
==>];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5708	5829	
==>];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is expo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2128	2253	
==>lds) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2128	2253	
==>lds) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_U <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4164	4281	
==>ase create a file named $SMOKERFILE
either in this directory or under your home. You can use the
skeleton in util/smok <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	853	956	
==>Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import {
	# get the format specified on the command lin <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21918	22013	
==>ember(class_neg(ascii)     ,C) :- !, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	908	1032	
==>ick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	908	1032	
==>ick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4676	4870	
==>@matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4676	4870	
==>@matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! def <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8774	8902	
==>d}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8762	8890	
==>d}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7171	7261	
==>neral it is a bad idea

## ---------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7171	7261	
==>neral it is a bad idea

## ---------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13505	13600	
==>_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRU <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13505	13600	
==>_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRU <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1649	1764	
==>if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1709	1824	
==>if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1531	1637	
==>{
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1531	1637	
==>{
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3212	3375	
==>ame>
            ### implementation;
            my @list = LoadFile( $Available );
            
            my @maybe;
            for my $test ( grep { $_->{packa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8317	8443	
==>yze_file($tfile) or
          do { warn $Strap->{error}, "\n";  next };

        # state of the current test.
        my @faile <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5033	5183	
==>warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5033	5183	
==>warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1737	1830	
==>ing utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1737	1830	
==>ing utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=he <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4097	4219	
==>($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4155	4277	
==>($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2196	2441	
==>($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh. <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2196	2441	
==>($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	828	951	
==>$path] )          and die "$?";
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) and die "$?";
        chdir $builddi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15371	15465	
==>se HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::enc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15371	15465	
==>se HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::enc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22858	22982	
==>ify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				param => comb( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11561	11702	
==>.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11561	11702	
==>.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3511	3655	
==>old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3511	3655	
==>old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!conte <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17970	18068	
==>onNoIn> <'&&'> <BitwiseORExpressionNoIn>
}
rule LogicalORExpression :words {  # see 11.11
      <Lo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1342	1468	
==>hile unlink $Control
    }
    
    print -e $archive && -s _ 
        ?   "\n\tCreated '$builddir/$archive' from sourcedir '$s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6429	6527	
==>w($fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	267	383	
==>OODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button inste <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	267	383	
==>OODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button inste <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5820	5926	
==>annel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5820	5926	
==>annel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = norm <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4708	4817	
==>dFile('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4567	4676	
==>dFile('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25438	25518	
==>E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5193	5294	
==>o_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5193	5294	
==>o_upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	20	134	
==>e::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	20	134	
==>e::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	212	335	
==>int "Inline::Parrot::PMC\n";
use Exporter 'import';
our @EXPORT=qw(get_int);
use Inline C=>'Config',
	INC => `pkg-config --c <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1811	1896	
==>ugsBuild::Config->lookup('smoke_concurrent') || 1);
push(@yaml_harness_args,'--exclude <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1297	1405	
==>onal> also takes a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

me <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1297	1405	
==>onal> also takes a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

me <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	211	368	
==>en $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized op <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	211	368	
==>en $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6379	6477	
==>e rule, which unsets the flag before returning.

- this can also be used to do fail() and assert(), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6173	6270	
==>e rule, which unsets the flag before returning.
- this can also be used to do fail() and assert(), <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5966	6066	
==>development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5966	6066	
==>development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	530	620	
==>->includes($node)){
		$self->{dups}->insert($node);
	} else {
		$self->{seen}->insert($node <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4998	5131	
==>),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4998	5131	
==>),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2831	2986	
==>$match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2831	2986	
==>$match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8904	9005	
==>rr,"hook_regcompp done.\n");
    return r;
  }
}

void regexp_hook_on() {
  if(previous_comp_hook != N <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	152	253	
==>age closure;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'ty <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4052	4160	
==>head1 NAME

Set::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4052	4160	
==>head1 NAME

Set::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2913	3112	
==>o", $c if $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5251	5510	
==>Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5251	5510	
==>Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12652	12800	
==>) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12931	13079	
==>) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4027	4123	
==>onfig file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for exam <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4027	4123	
==>onfig file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for exam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5737	5853	
==>e (closed) database connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5737	5853	
==>e (closed) database connection handle we will work with;
    # this does not talk to the underlying dbms.
    my Rose <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1986	2120	
==>R::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1986	2120	
==>R::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12858	12954	
==>pecifier is used for several things. 
For example, when iterating through the span range, the uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12858	12954	
==>pecifier is used for several things. 
For example, when iterating through the span range, the uni <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1883	1984	
==>h.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1883	1984	
==>h.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1976	2096	
==>non =>       
        "exp 'name' exp 'name2' exp \n" .
        "\t{ \$_[0]->{out}= {fixity => 'ternary', op1 => \$_[2] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12838	12975	
==>server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12838	12975	
==>server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8788	8935	
==>arn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8788	8935	
==>arn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8124	8223	
==>xample, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8124	8223	
==>xample, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	984	1095	
==>maker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

su <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1875	1986	
==>maker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2799	2903	
==>ce, and if you'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2696	2797	
==>ce, and if you'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9822	9935	
==>$host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9822	9935	
==>$host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1333	1482	
==>ectory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1333	1482	
==>ectory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5302	5403	
==>.. $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call the Clas <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13900	14002	
==>pan representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, befo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13900	14002	
==>pan representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, befo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18513	18611	
==>the future, but for now it officially is not and you should not share
Rosetta objects between multi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18513	18611	
==>the future, but for now it officially is not and you should not share
Rosetta objects between multi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1324	1438	
==>able_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_avai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7420	7533	
==>ping(Str) of Code $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2962	3092	
==>antiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2962	3092	
==>antiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3664	3826	
==>][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0] );
    }	
    elsif $tree[0] eq '"pExpr" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6154	6307	
==>__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6154	6307	
==>__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1997	2086	
==>= Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1997	2086	
==>= Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deci <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	755	909	
==>=> 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	755	909	
==>=> 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7218	7310	
==>--------------------------------------------------------
## traversal

method traverse ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7218	7310	
==>--------------------------------------------------------
## traversal

method traverse ($self <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20825	20915	
==>h compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20825	20915	
==>h compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you need <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	259	355	
==>y $it = Test::Harness::Iterator->new(\@array);

  my $line = $it->next;

=head1 DESCRIPTION

B<FO <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14440	14535	
==>p://arglist.com/regex/  While the code has diverged,
  at least the library has some documentati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5917	6039	
==>:Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2187	2298	
==>ol $label, hash %opts) returns method {
    while (my $current = &dispatcher.()) {
        return $current.get_m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2556	2659	
==>ach node type a function named for its class (without the prefix) is
exported. This is very convenient f <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	959	1084	
==>@:events.
    ./:enqueue({
      my $result = $session.dispatch($event, *@args);
      $result;
    });
    
    # And enter t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16301	16412	
==>ngs = (CALLER::<$_>) is rw --> Int )

Related to C<chop>, only removes trailing chars that match C</\n/>. In
eit <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3907	4085	
==>erl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to clean <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3907	4085	
==>erl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to clean <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1605	1741	
==>oup',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1616	1752	
==>oup',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> li <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21511	21647	
==>_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::compile_file_to_yml($path);
        }
      } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	23	130	
==>::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6048	6182	
==>{$name}->store($value);
            return;
        }
        $current = $current->next;
    }
    $self->create($name, $value);
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4529	4652	
==>turn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4517	4640	
==>turn "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8615	8724	
==>acktrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, & <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8615	8724	
==>acktrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($match, & <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2028	2131	
==>rces written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when us <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2028	2131	
==>rces written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when us <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11853	11959	
==>E

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11853	11959	
==>E

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a <==
2	/Users/nnunley/pugs/util/package-osx.pl	10227	10351	
==>ile[-1]).
sub create_remover {
    my ($dest, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1635	1795	
==>pecify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1635	1795	
==>pecify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6548	6667	
==>e is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6548	6667	
==>e is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be load <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3959	4066	
==>r 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has B <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3959	4066	
==>r 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has B <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1482	1600	
==>') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility fu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1482	1600	
==>') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility fu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35837	35933	
==>it with the
invocant relation into a new Relation, such that all common attribute names
and corre <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40387	40483	
==>it with the
invocant relation into a new Relation, such that all common attribute names
and corre <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14559	14676	
==>Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(Rb0,Rb1), !.
%# XXX - not quite right... need some symetric <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1805	1917	
==>die "Can't determine file_sep";

    return $config;
}

sub add_path {
    my ($name, $config) = @_;
    my $path <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	433	634	
==>ft;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	433	634	
==>ft;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8109	8478	
==>G' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8109	8478	
==>G' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3649	3763	
==><<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3833	3947	
==><<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match varia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5527	5791	
==>t is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6376	6640	
==>t is an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	652	778	
==>ext>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	652	778	
==>ext>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6635	6732	
==>ot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_sibl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6635	6732	
==>ot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_sibl <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	777	883	
==>ead1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	777	883	
==>ead1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1355	1466	
==>ign'} if defined wantarray and !@_;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	216	305	
==>e base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q([\w|\d|\:]+ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2354	2465	
==>inite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { & <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2354	2465	
==>inite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { & <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1985	2083	
==>ionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1985	2083	
==>ionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2607	2835	
==>LT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2607	2835	
==>LT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11930	12032	
==>($x);
}

my $nan = 100**100**100 / 100**100**100;
my %as_num_handlers =
    ( undef => sub { Carp::carp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9442	9543	
==>e right return value from $iFoo singleton method');
   
$iFoo->add_singleton_method('another_test_iFoo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1352	1455	
==>letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything more t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1352	1455	
==>letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything more t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15799	15904	
==>e's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15799	15904	
==>e's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	312	405	
==>/lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	979	1175	
==>ader|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	979	1175	
==>ader|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => - <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2183	2306	
==>t) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2183	2306	
==>t) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16579	16697	
==>p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16579	16697	
==>p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28450	28546	
==>This method is also defined as the implicit handler when
coercing this object to a string.

=back <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28450	28546	
==>This method is also defined as the implicit handler when
coercing this object to a string.

=back <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1407	1595	
==>1, %{$_[1]} } }
        
    # XXX - infinite loop
    # |   signature_term attr
    #     { $_[0]->{out}= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7417	7545	
==>n");
    return previous_comp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    char *nulpat;
    regexp* r;
    I32 ret;
    I32 ap <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	819	915	
==>ample::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	819	915	
==>ample::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This documen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	689	791	
==>t }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1279	1381	
==>t }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((sh <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11724	11820	
==>ommon) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that de <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11724	11820	
==>ommon) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2106	2207	
==>Util ();
	use B ();
	use B::Flags ();

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Indent <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28436	28531	
==>led properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful match.
//x isnt being handled (re_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14161	14263	
==>f_class => digit => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4270	4428	
==>mc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4270	4428	
==>mc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1443	1541	
==>lf->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1583	1681	
==>lf->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2257	2419	
==>het';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2245	2407	
==>het';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20733	20847	
==>ethod is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new DESTR <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17369	17477	
==>ethod is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16683	16781	
==>thing by itself to the user, but
rather returns its results for calling code to output as it sees f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16683	16781	
==>thing by itself to the user, but
rather returns its results for calling code to output as it sees f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2110	2234	
==>obj->index_file((defined $index_file
                    ? file($index_file)
                    : $obj->index->file($config- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5541	5651	
==>lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5349	5456	
==>lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9971	10077	
==>th();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9971	10077	
==>th();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method ge <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21321	21416	
==>ame and each Mapping value
is the corresponding attribute value.

Every Relation attribute has a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25873	25968	
==>ame and each Mapping value
is the corresponding attribute value.

Every Relation attribute has a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6069	6170	
==>e";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6069	6170	
==>e";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14905	15036	
==>sg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Intro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14905	15036	
==>sg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Intro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	459	569	
==>$1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9877	9987	
==>$1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5239	5343	
==>ned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths remove <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5239	5343	
==>ned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths remove <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	870	1027	
==>ript = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	870	1027	
==>ript = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	989	1154	
==>X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	858	985	
==>X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	62	159	
==>olds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or paren <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	62	159	
==>olds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or paren <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4003	4190	
==>?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4467	4654	
==>?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3167	3303	
==>);
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3167	3303	
==>);
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2543	2662	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3498	3617	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3187	3301	
==>moke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26920	27012	
==>foo') )");
is(t($snd), "str", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3189	3316	
==>::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3189	3316	
==>::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21644	21757	
==>E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21644	21757	
==>E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	837	957	
==>_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- subclass/inherit
=head2 $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11959	12053	
==>have the F<charnames> pragma installed, but since
this module requires Perl 5.6 or better, I do <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5253	5435	
==>eate ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7015	7197	
==>eate ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) se <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1657	1769	
==>eturn $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.ne <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1657	1769	
==>eturn $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.ne <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4589	4697	
==>splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	map { $_->free_vars} $self->left, $sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3305	3406	
==>alue' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'type' ,'Type';
node_a 'Cxt', 'Cxt <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4455	4596	
==>'´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4455	4596	
==>'´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7725	7920	
==>$count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7725	7920	
==>$count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2523	2649	
==>es = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cook <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2523	2649	
==>es = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cook <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1193	1393	
==>se {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1193	1393	
==>se {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3332	3435	
==>lit('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, dec <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3332	3435	
==>lit('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, dec <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16265	16367	
==>tin = $self->env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest") <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32352	32453	
==>type of this object.

=item up

Whether this object goes into a shallower scope (like a CLOSE).

=item <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2563	2660	
==>urn a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2563	2660	
==>urn a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	243	346	
==>ontinuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever matches'



it re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	231	330	
==>ontinuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever matches'

it re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7435	7536	
==>rective (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

Th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7435	7536	
==>rective (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7260	7402	
==>Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7260	7402	
==>Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	505	623	
==>6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        lo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	505	623	
==>6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        lo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1768	1868	
==>nstructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI-> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1768	1868	
==>nstructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3144	3288	
==>e->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3284	3428	
==>e->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	54	154	
==>E

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	54	154	
==>E

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28579	28696	
==>ll be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1856	1956	
==>_dir=t_test --no_designdocs

   See also:
     util/yaml_harness.pl  - produce the data for this tool <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8527	8715	
==>$count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                }, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8527	8715	
==>$count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                }, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23059	23152	
==>1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6694	6843	
==>i.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6694	6843	
==>i.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer : <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	30	143	
==>doc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) { <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	30	143	
==>doc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	66	196	
==>.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fake <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1976	2073	
==>sis, you should
be left with nothing but questions about what this object represents.

It represen <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1976	2073	
==>sis, you should
be left with nothing but questions about what this object represents.

It represen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9053	9153	
==>rl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9053	9153	
==>rl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7166	7292	
==>capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7154	7280	
==>capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3503	3604	
==>.namespace [ "PGE::P6Rule" ]
=
.sub "__onload" :load
    .local pmc optable
    $P0 = getclass "PGE::E <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27651	27743	
==>t__>, the global object base class.  All
user-defined F<MyRx::*> objects inherit from F<MyRx: <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	709	830	
==>[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #! <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	709	830	
==>[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #! <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1703	1851	
==>rent_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1703	1851	
==>rent_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # w <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19764	19861	
==>e is immutable.  The value of
a Relation object is determined when it is constructed, and the obje <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24316	24413	
==>e is immutable.  The value of
a Relation object is determined when it is constructed, and the obje <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13621	13723	
==>ding globals
    # right now this is a non issue since even higher order functions get prims instead of <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	124	222	
==>eSpace;

=head1 DESCRIPTION

This type is not used directly; however, it adds the "name" property
w <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9215	9334	
==>lest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9215	9334	
==>lest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2171	2269	
==>ttern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based up <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2171	2269	
==>ttern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based up <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8661	8765	
==>umber versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8661	8765	
==>umber versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that t <==
2	/Users/nnunley/pugs/util/config_h.pl	1958	2063	
==>nlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi");
    unlink("$temp.o");

    return $ok <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	732	841	
==>ooter = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	732	841	
==>ooter = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23391	23488	
==>724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23391	23488	
==>724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These document <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11983	12115	
==>might be backref
        if (!&SIZE_ONLY and !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \G (\d) }xgc;
          if ($v <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	242	351	
==>Val(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym('&infix:<+>'),
			Ap <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1948	2049	
==>ALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets ca <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1948	2049	
==>ALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets ca <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2428	2526	
==>pt the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2428	2526	
==>pt the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2468	2574	
==>t rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2468	2574	
==>t rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5294	5421	
==>ir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdir '.. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8755	8868	
==>s(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7988	8089	
==>of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7988	8089	
==>of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16235	16334	
==>TM itself and
various other external documentation for much of that.

The Rosetta Native Interface i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16235	16334	
==>TM itself and
various other external documentation for much of that.

The Rosetta Native Interface i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29211	29342	
==>$match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29490	29621	
==>$match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2643	2792	
==><Block>).add_children(
                                Tree.new(:node<Bare>).add_children(
                                    Tree.new(:node<Parametr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11839	11952	
==>$prev->{vis} }, @{ $self->{vis} };
    pop @$tree;
    return 1;
  }
}


{
  package Regexp::Parser::quant;
  push <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18025	18165	
==>,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18336	18453	
==>,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9983	10094	
==>1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9983	10094	
==>1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4361	4482	
==>th newstr==1*/
      r->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	664	765	
==>phers used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	664	765	
==>phers used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	800	915	
==>r::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	800	915	
==>r::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5678	5829	
==>- $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i] <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4178	4329	
==>- $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i] <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2127	2242	
==>dle
    Code        Base class for all executable objects
    Routine     Base class for all nameable executable obj <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	389	485	
==>d);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe::An <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23455	23566	
==>pped,@failed) = @_;
    my %seen;
    @failed = sort {$a <=> $b} grep !$seen{$_}++, @failed;
    my $failed = @f <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2852	2960	
==>th}", $self);
    }

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	947	1054	
==>has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	947	1054	
==>has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1264	1368	
==>the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daug <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1264	1368	
==>the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daug <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2268	2386	
==>', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2268	2386	
==>', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11327	11485	
==>e_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11327	11485	
==>e_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	421	555	
==>:Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            ) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	421	555	
==>:Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            ) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	37	141	
==>ion
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { su <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	37	141	
==>ion
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { su <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1234	1353	
==>urns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1292	1411	
==>urns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3123	3262	
==>sult = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3123	3262	
==>sult = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	268	396	
==>> \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	268	396	
==>> \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XX <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2943	3054	
==>rs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2943	3054	
==>rs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.re <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3226	3329	
==>at to put in %*INC. it's not perfect.
    # When module return values are specced, we can make this much <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4528	4659	
==>();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4528	4659	
==>();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	31	135	
==>use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
use File:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3047	3145	
==>vide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3047	3145	
==>vide accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $even <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5224	5371	
==>e index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5688	5835	
==>e index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1134	1262	
==>_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1088	1210	
==>_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2369	2475	
==>rt(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 50 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2369	2475	
==>rt(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 50 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5629	5751	
==>>
    | <'debugger'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38747	38842	
==>ple, and returns a new Relation::Example that has the
same heading as the invocant and whose bod <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6117	6209	
==>:Emitter::Pretty->new->string(Blondie::TypeSafe::Flatten->new->reduce($node));
			$de_facto_t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	22	113	
==>ge P6RulesInP5::Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warni <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4186	4277	
==>---------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ---------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4209	4300	
==>----
## BOOTSTRAPPING Class/Object COMPLETE
## --------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16995	17088	
==>ocalization methodology
in an easily accessable manner, such that would not be possible if its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16995	17088	
==>ocalization methodology
in an easily accessable manner, such that would not be possible if its <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4751	4863	
==>my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4587	4696	
==>my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21124	21220	
==>le, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21124	21220	
==>le, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1718	1883	
==>pported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1718	1883	
==>pported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2541	2697	
==>instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2458	2608	
==>instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5369	5511	
==>e ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5887	6008	
==>e ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->pa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1800	1908	
==>ExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    prin <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1800	1908	
==>ExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    prin <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2108	2229	
==>ed C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capit <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2108	2229	
==>ed C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	766	893	
==>_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	766	893	
==>_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	297	401	
==>ant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Seq <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5463	5565	
==>e_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# Th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5463	5565	
==>e_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# Th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50803	50926	
==>ft;
                $e->create('$identifier' => $e->get('$self:')->get_attr(symbol->new('$:name')));
                $e->get <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16198	16306	
==>,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_M <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5153	5265	
==>_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $fold <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5153	5265	
==>_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $fold <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3597	3789	
==>ree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3597	3789	
==>ree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4760	4922	
==>, $class );
}

sub call {
	my ($self, $method) = @_;
	my $obj = $self->load($method) or return;
        splice(@_, 0, 2, $obj);
	goto &{$obj->can($method)};
}

sub <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2755	2875	
==>ld *build* things here too
            print "Unpacking code...\n";
            system( qq[tar -f $my_tmp_dir/$Data -C $B <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3476	3600	
==>:operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self;
}

package type::o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4758	4862	
==>:operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9488	9614	
==>]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9476	9602	
==>]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7448	7553	
==>le.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7448	7553	
==>le.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14011	14146	
==>e line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14011	14146	
==>e line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18744	18843	
==>ed to supply its $document and optional
$parent_node though; you can produce a direct clone like thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18744	18843	
==>ed to supply its $document and optional
$parent_node though; you can produce a direct clone like thi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20090	20193	
==>l order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20090	20193	
==>l order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36239	36326	
==>'Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36239	36326	
==>'Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	723	902	
==>kip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	723	902	
==>kip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28812	28904	
==>cant.

=item C<not_equal (Relation::Example $other!) returns Bool>

This method returns the c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11747	11900	
==>:get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12105	12258	
==>:get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4188	4288	
==>will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the Param object).

Then th <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2494	2602	
==>ethod report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!resu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2494	2602	
==>ethod report_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!resu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8333	8441	
==>embers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8333	8441	
==>embers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12047	12174	
==>($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      pu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27822	27915	
==>nd_first_gen), "((int × int) × (str × int))", ":t (length_and_first ['foo'], length_and_fir <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	958	1056	
==>lement->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	958	1056	
==>lement->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2360	2463	
==>se v6-pugs;
    "hello, world".say;

    $ perl hello_world.pl

=head1 DESCRIPTION

The C<v6-pugs> modul <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11161	11253	
==>class.bless(undef, %params // hash());
}

(method new ((opaque $class:) (hash ?%params)) retu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8428	8538	
==>limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8428	8538	
==>limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	372	466	
==>=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stored i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	372	466	
==>=head1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stored i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	610	753	
==>,
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	707	850	
==>,
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33164	33257	
==>lusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the af <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37714	37807	
==>lusion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the af <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4406	4547	
==>ype = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4406	4547	
==>ype = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9867	9965	
==>)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9867	9965	
==>)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13090	13213	
==>F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6565	6688	
==>F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13604	13707	
==>mes). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13604	13707	
==>mes). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27459	27574	
==>nt "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($s);
	my $ret = swi_find_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7686	7796	
==>};

# an instantiated variable will unify it's instantiated value instead of itself
multi unify => ('type::vari <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4144	4262	
==>$path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4144	4262	
==>$path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	135	273	
==>has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method di <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	135	273	
==>has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7284	7405	
==>han) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7284	7405	
==>han) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10085	10183	
==>ot be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10085	10183	
==>ot be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essent <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23072	23288	
==>refix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23351	23567	
==>refix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	996	1104	
==>inv->id->to_native . " => class: " . $inv->class->id->to_native;
    # we take the MRO first, however at some <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20654	20751	
==>efault process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20654	20751	
==>efault process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Mo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18638	18744	
==>cts in separate
threads try to access the same external resources.>

Rosetta does not use any dialect of SQ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18638	18744	
==>cts in separate
threads try to access the same external resources.>

Rosetta does not use any dialect of SQ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2310	2430	
==>ild);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.ad <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2310	2430	
==>ild);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.ad <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	472	588	
==>match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3] <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	472	588	
==>match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15614	15730	
==>${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10470	10586	
==>${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21598	21729	
==>als::compile_file_to_yml($path);
        }
      }
      return opRequire();
    }
    die "Can't find " ~ $file ~ ' in @*INC (@*INC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2772	3003	
==>= $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2772	3003	
==>= $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	143	244	
==>::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	143	244	
==>::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	989	1093	
==>non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	989	1093	
==>non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1527	1784	
==>ey};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1527	1784	
==>ey};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
L <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31397	31500	
==>rst example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be distribute <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31397	31500	
==>rst example, the Set Name is
"Foo::L::" and in the second it is "L::Foo".

A library could be distribute <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2749	2876	
==>->{abort},
        }, 'Pugs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1512	1649	
==>IL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1512	1649	
==>IL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1898	2020	
==>D () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expres <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1898	2020	
==>D () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expres <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2690	2796	
==>lessed($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$type;
}

sub has_symbol {
	my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1434	1535	
==>aphy are there.  See those modules for details.

The C<new> constructor takes only one option, C<:key> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1434	1535	
==>aphy are there.  See those modules for details.

The C<new> constructor takes only one option, C<:key> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11132	11223	
==>m B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11132	11223	
==>m B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) return <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1461	1571	
==>s Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1461	1571	
==>s Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25321	25452	
==>}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25880	26011	
==>}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10146	10302	
==>$rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10146	10302	
==>$rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5557	5657	
==>e.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5557	5657	
==>e.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18065	18180	
==>ash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitiv <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18065	18180	
==>ash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitiv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4094	4348	
==>};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4094	4348	
==>};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10280	10391	
==>ield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10280	10391	
==>ield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2123	2299	
==>vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2123	2299	
==>vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9961	10067	
==>ode}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9961	10067	
==>ode}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20395	20508	
==>type
nodes has been abstracted to the ender() method of the node.

The init() method has been moved to another fil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	24	124	
==>pm (perl6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options available through <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2815	2929	
==>->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2803	2917	
==>->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	765	925	
==>|| 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	927	1087	
==>|| 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delet <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13351	13484	
==>ripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bindir -type f] ) {
        chomp;
        
        ### link from <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2324	2462	
==>escendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2324	2462	
==>escendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2764	2863	
==>$S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3337	3436	
==>$S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => <==
2	/Users/nnunley/pugs/util/addauthors.pl	958	1060	
==>ess first initial, last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$la <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24571	24664	
==>s are private, so you must use accessor methods.
Locale::KeyedText does not declare any subrou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24571	24664	
==>s are private, so you must use accessor methods.
Locale::KeyedText does not declare any subrou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8020	8120	
==>bject(anyof_class => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	321	432	
==>use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map & <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	321	432	
==>use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map & <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3863	3969	
==>lt{number} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' and the 'ok' are on di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	342	445	
==>unty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	342	445	
==>unty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16287	16413	
==>== any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19764	19890	
==>== any( $other!heading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation $oth <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1715	1817	
==>parameter (pair).  (The value of the 
pair is currently unused, but for forward compatibility it should <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1715	1817	
==>parameter (pair).  (The value of the 
pair is currently unused, but for forward compatibility it should <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9066	9159	
==>o other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9066	9159	
==>o other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1853	1956	
==>) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1853	1956	
==>) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3581	3685	
==>compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3581	3685	
==>compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5416	5514	
==>e of success or failure;

=item err_str

The C<err_str> method returns the last error message

=bac <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5416	5514	
==>e of success or failure;

=item err_str

The C<err_str> method returns the last error message

=bac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4593	4694	
==>ompiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $<id> := (.*? <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	843	961	
==>he remote user that is using your CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	843	961	
==>he remote user that is using your CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18751	18845	
==>upply its $document and optional
$parent_node though; you can produce a direct clone like this: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18751	18845	
==>upply its $document and optional
$parent_node though; you can produce a direct clone like this: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14452	14623	
==>eop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14731	14902	
==>eop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3268	3370	
==>s not good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initia <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3268	3370	
==>s not good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initia <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5904	5994	
==>//tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Cop <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5904	5994	
==>//tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Cop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2661	2824	
==>constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2672	2835	
==>constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	433	556	
==>ybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of the k <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	685	773	
==>= $strap->analyze_fh($name, $test_filehandle);
  my %results = $strap->analyze_file($test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1650	1775	
==>f defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1638	1763	
==>f defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	381	493	
==>usMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	381	493	
==>usMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8038	8136	
==>_on_object',
   '... got the right return value from another Object singleton/class method called b <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10607	10705	
==>_on_object',
   '... got the right return value from another Object singleton/class method called b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2927	3048	
==>ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2927	3048	
==>ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @node <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8141	8273	
==>while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8141	8273	
==>while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2817	2916	
==>derive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, ma <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2817	2916	
==>derive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, ma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1141	1264	
==>class SExpParser     
    def parse (source)
        stack = Array.new
        subexp = Array.new
        source.scan(/\(|\) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13468	13568	
==>h<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($key --> Bool )

True if i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16882	16983	
==>Expression :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpression> <'&'> <Equali <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5064	5206	
==>ad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    travers <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5388	5530	
==>ad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    travers <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3062	3173	
==>self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8677	8785	
==>~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12351	12463	
==>{ $_->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (the para <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5970	6079	
==>ist->new(),
            attribute->new('%:private_methods') => hash->new(),
            attribute->new('%:attr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	643	763	
==>@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	643	763	
==>@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4495	4646	
==>,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^mu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4495	4646	
==>,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^mu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4899	5035	
==>entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$ent <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5363	5499	
==>entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$ent <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13564	13663	
==>.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14398	14493	
==>chy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14398	14493	
==>chy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node class <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3538	3673	
==>$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3538	3673	
==>$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2689	2812	
==>tringify ()     returns String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

subm <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2689	2812	
==>tringify ()     returns String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

subm <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1349	1448	
==>ib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1349	1448	
==>ib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	293	395	
==>de { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = u <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	293	395	
==>de { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = u <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	813	944	
==>turn;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	780	911	
==>turn;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17093	17224	
==>ift;

    our $indent ||= 0;
    local $indent = $indent + 1;
    
    our $seen;
    local $seen = $seen || {};

    if ($seen->{$n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15033	15142	
==>| die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... })
  package Regexp::Parser::logical <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5282	5428	
==>$1 if /pugs_revision: (\d+)\r?$/ } for `@{[$rev_get_cmd]}`;
    $self->{_revision} ||= "unknown";
    print "$rev_get_cmd returns revision '@{[$sel <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	451	548	
==>le need to have the
`is primitive` trait.

Please also declare whether the function can be used in <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2154	2267	
==>= ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_tim <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2154	2267	
==>= ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_tim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2954	3374	
==>e object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Ext <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2954	3374	
==>e object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Ext <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8937	9054	
==>rsion";

  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@$o{'min','max'});
    $min = 0 if $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19012	19116	
==>ce solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.pu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19012	19116	
==>ce solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.pu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11007	11123	
==>ou might want to strip pugs and parrot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, $de <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	801	913	
==>= $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  List <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5493	5603	
==>}

    print "Writing META.yml\n";

    local *META;
    open META, "> META.yml" or warn "Cannot write to META. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11618	11743	
==>pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11612	11737	
==>pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use var <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1716	1816	
==>/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> l <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1716	1816	
==>/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> l <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1212	1429	
==>$size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1212	1429	
==>$size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^= <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5668	5785	
==>move) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5668	5785	
==>move) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26707	26803	
==>00
 #define ROPT_MATCH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1928	2046	
==>\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2145	2263	
==>\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	651	773	
==>$_[1], exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	224	340	
==>~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	224	340	
==>~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $content <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19583	19670	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19583	19670	
==>n CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7448	7549	
==>h is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7448	7549	
==>h is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15126	15259	
==>} . _emit( $n->{exp1} );
    }
    
    return _not_implemented( $n, "prefix" );
}

sub postfix {
    my $n = $_[0];
    # pri <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21947	22053	
==>edtests) {
        my $namelen = length $failedtests->{$script}->{name};
        $max_namelen = $namelen if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4657	4783	
==>= @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4657	4783	
==>= @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6580	6680	
==>_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6580	6680	
==>_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16781	16877	
==>n
Rosetta D and compile that into its own executable, in practice one would
normally just write s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16781	16877	
==>n
Rosetta D and compile that into its own executable, in practice one would
normally just write s <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	94	232	
==>an
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Strea <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	93	210	
==>an
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 sect <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	94	211	
==>an
### Kaufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 sect <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	42	134	
==>:Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	42	134	
==>:Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4505	4610	
==>@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4505	4610	
==>@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3431	3528	
==>de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free sof <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3431	3528	
==>de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free sof <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3276	3519	
==>tim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3276	3519	
==>tim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %event <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8731	8846	
==>e(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8731	8846	
==>e(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5408	5516	
==>ed by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Interface $ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5408	5516	
==>ed by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta::Interface $ros <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4744	4905	
==>$set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x== <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4744	4905	
==>$set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x== <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1990	2169	
==>ndef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2195	2374	
==>ndef,
            '%:attributes'  => [],
            '%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2356	2488	
==>ash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<V <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2356	2488	
==>ash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<V <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22964	23114	
==>bel
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42567	42717	
==>bel
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1191	1355	
==>ion
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1191	1355	
==>ion
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5878	5983	
==>on $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5878	5983	
==>on $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7515	7647	
==>ern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7572	7704	
==>ern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6646	6745	
==>plete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6646	6745	
==>plete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checking. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1825	2006	
==>'control.tgz';                    # part with metadata
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'files.list';                     # . <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3703	3809	
==>'status' => sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH('::Base')->FETCH <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13155	13300	
==>my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X::pos);
          $v = $f->( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4581	4681	
==>top = $tokenStack[-1];
    goto missing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2434	2566	
==>$end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2434	2566	
==>$end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3664	4051	
==>X - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $en <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3664	4051	
==>X - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $en <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	983	1090	
==>pan::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subs <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	983	1090	
==>pan::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	852	961	
==>ernal packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	852	961	
==>ernal packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14086	14177	
==>=> "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2086	2176	
==>his "Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Faculty/cam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12603	12720	
==>o handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12603	12720	
==>o handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17586	17762	
==>',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17586	17762	
==>',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1521	1637	
==>tes a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* ne <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1521	1637	
==>tes a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* ne <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	395	501	
==>ly make it a real junctive type.

type CxtVoid;  # is that enough?

# here, I think we have the same proble <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1278	1423	
==>curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1278	1423	
==>curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1702	1802	
==>ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExt <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1702	1802	
==>ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15399	15499	
==>his kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15399	15499	
==>his kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6028	6140	
==>:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6028	6140	
==>:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7179	7302	
==>$self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf & <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7179	7302	
==>$self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21120	21240	
==>he call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of the convenience
methods, does n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21120	21240	
==>he call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of the convenience
methods, does n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	995	1117	
==>> sub{ $match = $rpc_regex->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] = <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3781	3901	
==>nts($program);
        print $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	365	477	
==>sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6416	6514	
==>de_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6416	6514	
==>de_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2240	2348	
==>t rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2240	2348	
==>t rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	643	756	
==>\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a call <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	643	756	
==>\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a call <==
2	/Users/nnunley/pugs/util/drift.pl	352	456	
==>$out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN, $in or die $! <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10839	10948	
==>Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10897	11006	
==>Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	934	1069	
==>t => 4,
		name => "user sub as value",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sym('&f'), <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6946	7080	
==>e on failure.

=cut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    require File::stat;
    
    my $file;
    my <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6562	6662	
==>s code and message are printed on STDERR.  The return value is
the HTTP response code.

=item getstor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6562	6662	
==>s code and message are printed on STDERR.  The return value is
the HTTP response code.

=item getstor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1005	1139	
==>Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1005	1139	
==>Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $. <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6474	6582	
==>Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) { seems a pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2943	3057	
==>ror Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2943	3057	
==>ror Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	495	608	
==>heck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	489	602	
==>heck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11288	11406	
==>tion, $whence);
    }
}


class Pipe {
    # Easy to use, unidirectional pipe. Uses the shell.

    multi sub open (Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3172	3279	
==>e that it is valid for a Relation::Example to have zero attributes.
    has Set of Mapping(Str) of Any $!bod <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3472	3576	
==>f POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3472	3576	
==>f POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41078	41180	
==>.)

Throws a fatal error.

=back

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Objects>.

=hea <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1419	1519	
==>n(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable t <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1419	1519	
==>n(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22423	22551	
==>eturn { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22702	22830	
==>eturn { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9324	9415	
==>ad1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9324	9415	
==>ad1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5122	5218	
==>:Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4333	4556	
==>odel::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4333	4556	
==>odel::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3503	3606	
==>ional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object representing <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3503	3606	
==>ional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object representing <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	126	241	
==>ent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	126	241	
==>ent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1777	1910	
==>g.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5 <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1777	1910	
==>g.ret(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16086	16190	
==>nify(
		new_env($$)->{ $.ide }, type($.is),
		$.ide, $.is,
	);


	type($.in);
}

cond: env($.if) = { env( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1148	1264	
==>ts is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1148	1264	
==>ts is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12418	12532	
==>ed a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discrete span

This is used t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12418	12532	
==>ed a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discrete span

This is used t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18568	18699	
==>nternals::sprintf($conversion,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4546	4710	
==>w( 
                file => File::Spec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c-inde <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15840	15967	
==>longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        my $suf    = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	275	369	
==>move "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	275	369	
==>move "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2387	2494	
==>of 
data to have it enciphered or deciphered; when you're done, call the closure 
with no arguments to finis <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2387	2494	
==>of 
data to have it enciphered or deciphered; when you're done, call the closure 
with no arguments to finis <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14260	14364	
==>HTML::TreeBuilder->new_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down(_t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8350	8444	
==>= find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::C <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2767	2996	
==>eadline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2767	2996	
==>eadline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2117	2271	
==>rol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $ms <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2117	2271	
==>rol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $ms <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16054	16224	
==>[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16048	16218	
==>[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	570	687	
==>= (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..40 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	667	784	
==>= (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..40 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3708	3831	
==>mc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3708	3831	
==>mc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19140	19264	
==>or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15561	15685	
==>or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3752	3848	
==>m>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEME <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3752	3848	
==>m>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEME <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	208	314	
==>Need at least one archive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distille <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27895	27992	
==>it run by a different executable, such as
a threading perl, or a different version.

If you're usi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6315	6460	
==>elf;
    while ($current) {
        return $current->{env}->{$name}->fetch
            if exists $current->{env}->{$name};  
        $current = $c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14763	14868	
==>ack


=head2 Str

General notes about strings:

A Str can exist at several Unicode levels at once. Which l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8220	8370	
==>stant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2246	2376	
==>ded to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2246	2376	
==>ded to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17744	17902	
==>+;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14165	14323	
==>+;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9960	10082	
==>rs.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9960	10082	
==>rs.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3911	4018	
==>grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4128	4235	
==>grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syn <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6297	6407	
==>dren();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Ins <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6297	6407	
==>dren();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Ins <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11755	11854	
==>@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=h <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11755	11854	
==>@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35505	35594	
==>t>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40055	40144	
==>t>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9581	9694	
==>d_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9581	9694	
==>d_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    chan <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1796	1899	
==>vailable for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1796	1899	
==>vailable for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4764	4939	
==>:WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                (( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6526	6701	
==>:WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                (( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2014	2158	
==>->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3387	3523	
==>->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split de <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4964	5092	
==>hr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Eps <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4964	5092	
==>hr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Eps <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8082	8207	
==>}
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8070	8195	
==>}
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6279	6407	
==>s Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TOD <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6279	6407	
==>s Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TOD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7490	7605	
==>}
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(ra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7490	7605	
==>}
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(ra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1350	1447	
==>all_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7145	7240	
==>=item I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's acc <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7145	7240	
==>=item I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's acc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3232	3332	
==>ght x for p2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids');

my $p2 = new $p1->class->(1 <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3957	4056	
==>name.tex" or die "can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$de <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1614	1720	
==>able.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parame <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1614	1720	
==>able.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parame <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1118	1212	
==>sses?
# I guess that we're not the superclass of any superclass

method set_superclasses($self: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24746	24857	
==>ns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29298	29409	
==>ns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relat <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	411	546	
==>e || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($ab <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	411	546	
==>e || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($ab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4447	4571	
==>ersion > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4447	4571	
==>ersion > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3795	3932	
==>if(ret < 1) {
        fprintf(stderr,"regexp_hook_exec failed - didnt return anything\n"); exit(0);
    }
    pops_left = ret;
    matched <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	150	259	
==>EDED
# please commit - pmurias
package Inline::Parrot::PMC;
print "Inline::Parrot::PMC\n";
use Exporter 'impor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8324	8442	
==>$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code ass <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8324	8442	
==>$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code ass <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	933	1057	
==>1) =~ /[:lower:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub alpha {
  my ( $match <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	661	757	
==>ass;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $objec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	184	279	
==>eaders header_field_names scan
    date expires if_modified_since if_unmodified_since last_modif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	184	279	
==>eaders header_field_names scan
    date expires if_modified_since if_unmodified_since last_modif <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4782	4937	
==>rrent_pragma_value($?CLASS) //
                $fatal::DEFAULT_FATALITY {
            die $e;
        } else {
            $! = $e;
            return undef <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5003	5120	
==>stance_class(shift)->superclass;
        },
        'add_singleton_method' => sub ($$$) {
            my ($self, $labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	111	229	
==>tation Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	101	213	
==>tation Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7678	7803	
==>ral ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7678	7803	
==>ral ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return " <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	677	801	
==>type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	677	801	
==>type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8223	8361	
==>5),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8223	8361	
==>5),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1767	1950	
==>ntry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else {
            error(" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24796	24896	
==>ns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns In <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29348	29448	
==>ns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns In <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2588	2715	
==>ebug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2588	2715	
==>ebug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21825	21939	
==>n to have zero tuples.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26377	26491	
==>n to have zero tuples.  It is also valid
for a Relation to have zero attributes, though such a Relation can have no <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	263	396	
==>ie one from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode(0);
        print '' . ($y ? "com <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9084	9178	
==>= find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Q <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3543	3658	
==>as Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3543	3658	
==>as Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32114	32211	
==>all of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicate <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36664	36761	
==>all of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicate <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10368	10474	
==>turns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10368	10474	
==>turns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1176	1285	
==>=> 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1176	1285	
==>=> 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfi <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	108	200	
==>1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand( <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	108	200	
==>1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6572	6710	
==>,
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6572	6710	
==>,
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21336	21431	
==>SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative relat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21336	21431	
==>SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative relat <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	349	454	
==>s.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	349	454	
==>s.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12391	12587	
==>il',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2803	2905	
==>>{env}->set($param->to_str->to_native, $arg);
    }
}

package closure::signature;

use strict;
use war <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	955	1111	
==>lue) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	955	1111	
==>lue) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8002	8088	
==>) --> p5_modifier_spec_pos(L).
p5_modifier_spec_pos([i|L])  --> "i", p5_modifier_spec_p <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	8	119	
==>module Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_elem <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	8	119	
==>module Kwid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_elem <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1720	1818	
==>uction to source.
 # represented as processing instructions, or maybe comments
 # in the "normative <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1720	1818	
==>uction to source.
 # represented as processing instructions, or maybe comments
 # in the "normative <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	466	581	
==>ty> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method fro <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	466	581	
==>ty> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method fro <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	724	864	
==>e ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $no <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	724	864	
==>e ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4213	4324	
==>p => "\n", '\N') if $cc;
    return $S->object(exact_comp => "\n", '\N');
  });

  $self->add_handler('\r' => su <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1802	1908	
==>s/\@\+/\".join(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9223	9321	
==>};
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3048	3146	
==>};
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3575	3673	
==>ctional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3575	3673	
==>ctional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functio <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4127	4233	
==>lt
to 1 if not given.

The value for day can also be the string "last", in which case the
object returned r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4127	4233	
==>lt
to 1 if not given.

The value for day can also be the string "last", in which case the
object returned r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1639	1755	
==>sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1639	1755	
==>sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8653	8743	
==>tements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2478	2568	
==>tements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4561	4681	
==>ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4344	4459	
==>ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11317	11416	
==>ub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub strin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11317	11416	
==>ub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub strin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3018	3122	
==>2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3018	3122	
==>2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19604	19702	
==>have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19604	19702	
==>have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#cha <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20790	20909	
==>q 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == $test->{max} + 1 and not @{$test->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	317	474	
==>is modules source before using
* examine the proccesed source code by hand if getting strange results by passin
	all => sub {print}
to FILTER_ONLY

=cut

pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26401	26499	
==>he digit variables, but only if you're sure the
match succeeded.

=head2 Parser Methods

=over 4

= <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2426	2621	
==>my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2426	2621	
==>my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13304	13410	
==>ference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the e <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13304	13410	
==>ference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3905	4064	
==>_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3905	4064	
==>_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./hea <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2403	2511	
==>ray) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except t <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2403	2511	
==>ray) >>

Returns all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15380	15481	
==>o matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromising impl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15380	15481	
==>o matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromising impl <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1736	1830	
==>}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1736	1830	
==>}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28719	28843	
==>op::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28998	29122	
==>op::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4500	4635	
==>nc
META
    }

    $dump .= "generated_by: $package version $version\n";
    return $dump;
}

sub read {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26021	26122	
==>BOL	 	0x00004
 #define ROPT_ANCH_GPOS	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLICIT		0x <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17100	17225	
==>odule will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17100	17225	
==>odule will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1497	1635	
==>ir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "Could not clean out '$ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	417	539	
==>\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of Array]* of Str

sub parse (@start, $token, @end, @_ is rw) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4248	4386	
==>w();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4248	4386	
==>w();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3548	3659	
==>1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    print MAK <==
2	/Users/nnunley/pugs/util/version_h.pl	2118	2214	
==>print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $revision\n";
  cl <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	186	347	
==>ld default to caller namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn q <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	186	347	
==>ld default to caller namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn q <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8100	8329	
==>ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        y <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8100	8329	
==>ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        y <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2748	2903	
==>lf }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2748	2903	
==>lf }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	712	804	
==>o Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* N <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	712	804	
==>o Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* N <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4757	4880	
==>ference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4757	4880	
==>ference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1904	2052	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2097	2245	
==>r( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	38	137	
==>:Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	38	137	
==>:Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1322	1437	
==>h @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clea <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	660	774	
==>h @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9970	10076	
==>t1.difference($set2)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9970	10076	
==>t1.difference($set2)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4394	4599	
==>maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4858	5063	
==>maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	390	513	
==>os;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	390	513	
==>os;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1256	1375	
==>t match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smok <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17731	17833	
==>void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _is_ intuit, a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1204	1302	
==>match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1204	1302	
==>match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9127	9217	
==>ms])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9231	9318	
==>ms]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25451	25552	
==>"∀α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x c");
}
{
	my $type = type::operator:: <==
2	/Users/nnunley/pugs/util/package-osx.pl	10841	10945	
==>and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29101	29207	
==>he relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet be <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33653	33759	
==>he relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5252	5426	
==>>{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5252	5426	
==>>{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9326	9506	
==>def, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9326	9506	
==>def, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Inter <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10607	10709	
==>ad2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=ite <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10607	10709	
==>ad2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2739	2871	
==>ity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2739	2871	
==>ity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2000	2177	
==>->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1283	1393	
==>tringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1283	1393	
==>tringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15964	16060	
==>ified> response instead of
the document itself.

=item $h.last_modified

This header indicates th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15964	16060	
==>ified> response instead of
the document itself.

=item $h.last_modified

This header indicates th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23771	23900	
==>y $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24050	24179	
==>y $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pri <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1946	2087	
==>->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class->env_override($conf);
    $class->defaults($conf);
    return $co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7350	7446	
==>nk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		my $child = $rthunk->val->stru <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2824	2950	
==>mize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2824	2950	
==>mize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersec <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3377	3581	
==>e} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->{provides} || [] };
            }
        
            ### find the <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23454	23594	
==>de("head"),
							param => ide("xs"),
						),
					),
				),
				param => comb(
					fun => comb(
						fun => ide("map"),
						param => i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5317	5403	
==>',mk_operator_precedence_parser($ws,$ops,$tok));
sub def_operator {
  my($name,$re,$pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11239	11346	
==>port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_dis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11239	11346	
==>port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_dis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6445	6558	
==>cher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alterna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6228	6339	
==>cher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alterna <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12647	12765	
==>}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17872	17971	
==>meth = $Handlers{$type};
    $meth->($self, $line, $type, $totals) if $meth;
};


sub header_handler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1660	1803	
==>>( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar references
    # $source =~ s/\$grammar/$gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6043	6172	
==>{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "method_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30110	30210	
==>t results to a hash.

Fix stats display when there's an overrun.

Fix so perls with spaces in the fil <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10399	10496	
==>f discussion but no final
    # spec, see the thread rooted at <20050502192508.GF24107@sike.forum2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15735	15840	
==>he execution of a regex.  Will
be able to produce HTML output that color-codes the elements of the regex
a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	766	868	
==>> $class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to other types
sub to_str { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10361	10471	
==><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the comm <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10361	10471	
==><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the comm <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7846	7955	
==>k,
				orig => $thunk,
			);
		} else {
			return Blondie::TypeSafe::Annotation->new(
				type => [ $child->ty <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1720	1823	
==>$to = $args[-1]->to;
    my $str = substr($X::str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str, <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	146	247	
==>) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	146	247	
==>) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1437	1583	
==>ess
        while 
        sub multi method submethod
        my our has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22355	22468	
==>);
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22634	22747	
==>);
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4713	4812	
==>return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $time { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4713	4812	
==>return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $time { <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2018	2228	
==>raverse;
        say '  ' x $depth, @s 
    }
    
    if $tree.ref ne 'Array' {
        dbg "  # -- unknown: <$tree>";
        return; 
    }
    if $tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	438	581	
==>error_output' => $params{'$.error_output'} || \*STDERR);           
        }
    },
    methods => {
        'write' => sub {
            my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	217	325	
==>space = 'grammar1::';

{
  package grammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16304	16433	
==>"__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!per <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16304	16433	
==>"__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!per <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3568	3689	
==>e );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersecti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3568	3689	
==>e );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersecti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	908	1023	
==>atch was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	908	1023	
==>atch was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the bl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3829	3927	
==>ore complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3829	3927	
==>ore complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42955	43088	
==>}
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('can'),
    # method body
        metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3227	3340	
==>n $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4076	4189	
==>n $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	401	508	
==>art of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	401	508	
==>art of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	398	537	
==>if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	398	537	
==>if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5371	5491	
==>PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  }
}

void regexp_exechook_insert ()
{
  if(previou <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14353	14453	
==>look_down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "stylesheet <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19267	19380	
==>g them.  At
the same time, this information is in separate resource files used by the
program, so that if you want <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19267	19380	
==>g them.  At
the same time, this information is in separate resource files used by the
program, so that if you want <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17255	17365	
==>r more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17255	17365	
==>r more language tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3121	3219	
==>::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3179	3277	
==>::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27371	27520	
==>('add_method' => (
    # method label
        symbol->new('_merge'),
    # method body
        method->new(
            $::ENV,
            method::si <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37566	37659	
==>ple>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1678	1768	
==>ompiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1678	1768	
==>ompiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6478	6572	
==>parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6478	6572	
==>parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	205	345	
==>to test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quote <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6126	6225	
==>self; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6126	6225	
==>self; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most b <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	112	206	
==>mentation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 20 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	112	206	
==>mentation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 20 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8205	8294	
==>malize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8205	8294	
==>malize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $even <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14777	14879	
==>ent at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14777	14879	
==>ent at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1253	1373	
==>re not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime sinc <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1253	1373	
==>re not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime sinc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	574	703	
==>ems) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($! <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	574	703	
==>ems) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($! <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6045	6176	
==>x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6045	6176	
==>x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13956	14083	
==>>
    | <'('> <ArgumentList> <')'>
}
rule ArgumentList :words {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1580	1695	
==>->{name}:<$_->{name}>>"} @{$self->{levels}[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $pre <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2289	2400	
==>$1;
	} else {
		return $class . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Prett <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	996	1156	
==>eturn "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	996	1156	
==>eturn "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25168	25261	
==>n $other!) returns Bool>

This method returns a Bool indicating whether the immutable identity <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29720	29813	
==>n $other!) returns Bool>

This method returns a Bool indicating whether the immutable identity <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16913	17026	
==>ext doesn't actually do a lot
internally; it exists mainly to document a certain localization methodology
in an ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16913	17026	
==>ext doesn't actually do a lot
internally; it exists mainly to document a certain localization methodology
in an ea <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8374	8484	
==>});
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8374	8484	
==>});
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22035	22129	
==><target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invit <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22035	22129	
==><target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41220	41328	
==>her than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41220	41328	
==>her than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	855	980	
==>d versions.
    # This will be used to ensure we don't accidentally load old or
    # different versions of modules.
    # Thi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2244	2340	
==>FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2244	2340	
==>FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1389	1555	
==>export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1389	1555	
==>export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10869	11026	
==>$! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars} <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10869	11026	
==>$! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1316	1432	
==>e message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1316	1432	
==>e message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21999	22098	
==>nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21999	22098	
==>nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	115	230	
==>tub('&printf', '$handle', '$format', '$string'),

    '$*OUT' => Stub('$*OUT'),

	'&print' => Thunk(
		Seq(
			Param <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5324	5437	
==>ilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmt <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	182	292	
==>RING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# infor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	182	292	
==>RING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# infor <==
2	/Users/nnunley/pugs/util/package-osx.pl	938	1044	
==>lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/parrot
        /usr/loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11703	11809	
==>ets the '\N' as a needlessly backslashed 'N'.  My
module parses them and handles them properly.  The nchar( <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	371	508	
==>or (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (ti <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	371	508	
==>or (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (ti <==
2	/Users/nnunley/pugs/util/func_refact.pl	2234	2392	
==>y $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "trying: $cand\n";
        next if exists $ccset->{$cand} or $ignoring{$cand};
        #prin <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9258	9366	
==>_results = $files->{$file_key}; 

  my $lines = {};
  for my $test (@{$test_results->{events}} ) {
      next <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1558	1646	
==>*{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ide <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34944	35042	
==>$other>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39494	39592	
==>$other>
is not a subset of the heading of the invocant Relation.  This method
degenerates into an C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8127	8241	
==>lf!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8127	8241	
==>lf!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1011	1123	
==>@res = eval($p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_hel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1121	1235	
==>my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1121	1235	
==>my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	721	820	
==>hen creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	721	820	
==>hen creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8647	8743	
==>ader($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8647	8743	
==>ader($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7952	8091	
==>e') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'ME <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7952	8091	
==>e') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'ME <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21634	21730	
==>pendence".  However, the level of DBI's provided independence
is I<Database Driver Independence>, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21634	21730	
==>pendence".  However, the level of DBI's provided independence
is I<Database Driver Independence>, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10739	10864	
==>ODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10739	10864	
==>ODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Spa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5277	5394	
==>epth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5277	5394	
==>epth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16586	16690	
==>ch header field, then the empty
string is returned.  This makes it safe to do the following:

  if $h.con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16586	16690	
==>ch header field, then the empty
string is returned.  This makes it safe to do the following:

  if $h.con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	774	872	
==>_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	774	872	
==>_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extrac <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	330	435	
==>stall_version =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $self->s <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	707	809	
==>pt     => $Config{installsitescript} || $Config{installscript},
        installbin     => $Config{insta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15319	15508	
==>=> method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('$repr'   => 'str'), 
                              symbo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1937	2056	
==>$str unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) { <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1995	2097	
==>and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should r <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1995	2097	
==>and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18781	18881	
==>al
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18781	18881	
==>al
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Mod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4287	4395	
==>b dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($! <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4345	4453	
==>b dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($! <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6279	6416	
==>substr = SvREFCNT_inc(callback);

    /* Try to scare off the rest of perl */
    r->minlen = 0;
    r->reganch = 0;
    /* Make sure envi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28239	28325	
==>e::Prolog::Yaswi::swi_toplevel;

__END__
% :- use_module(library(time)). call_with_time <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20678	20774	
==>elation does not declare any subroutines or export such.

The usual way that Relation indicates a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25230	25326	
==>elation does not declare any subroutines or export such.

The usual way that Relation indicates a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3151	3276	
==>ot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Valida <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3151	3276	
==>ot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Valida <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2996	3122	
==>od set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX doe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2996	3122	
==>od set_content (Str $content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX doe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4694	4798	
==>ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4834	4938	
==>ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13928	14034	
==>returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13986	14092	
==>returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (St <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22703	22815	
==>g>

Set of Str - This contains zero or more Relation attribute names that
define the heading of this Relation.  E <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27255	27367	
==>g>

Set of Str - This contains zero or more Relation attribute names that
define the heading of this Relation.  E <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8635	8758	
==>re record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8635	8758	
==>re record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20163	20265	
==>er may choose to declare that its result not be recompiled by
some other containing parser. In this cas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20163	20265	
==>er may choose to declare that its result not be recompiled by
some other containing parser. In this cas <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	425	540	
==>fundamental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Do <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6985	7095	
==>$base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6985	7095	
==>$base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10684	10803	
==>span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Ite <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10684	10803	
==>span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Ite <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	208	319	
==>));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	208	319	
==>));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6552	6647	
==>-----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6552	6647	
==>-----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6549	6678	
==>ay "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6549	6678	
==>ay "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	637	734	
==>f.subtract($duration);
#}

#method infix:<+>($self: Duration $duration) returns Date {
    #$self. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5296	5391	
==>ULE')->code();
 
    $<op> := (print|say|warn|die) <p6ws> <indirect_object> <p6ws> <list> <p6ws> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11355	11470	
==>t, pos, 2
    if $S0 != "::" goto subrule_name_2
    pos += 2
    goto subrule_name_1
  subrule_name_2:
    $I1 = po <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9158	9241	
==>m1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems]) --> p5 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7024	7143	
==>=> chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7024	7143	
==>=> chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3037	3136	
==>e, which can be called repeatedly to encipher data.
The encipherer closure can be called with a stri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3037	3136	
==>e, which can be called repeatedly to encipher data.
The encipherer closure can be called with a stri <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	864	957	
==>e constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	864	957	
==>e constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24382	24526	
==>Z]>
}
rule uriMark {  # see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\''>
    | <'('>
    | <')'>
} <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	661	760	
==>t  => $Config{installscript},
        sitescript     => $Config{installsitescript} || $Config{instal <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	837	933	
==>ace.

Normally, they will be constructed as a series of events fired in by
something that C<.does <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	837	933	
==>ace.

Normally, they will be constructed as a series of events fired in by
something that C<.does <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12201	12303	
==>out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=h <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12201	12303	
==>out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	273	395	
==>class, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confess "You must provide a value to reference <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26559	26655	
==>constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26559	26655	
==>constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4994	5112	
==>cument!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4994	5112	
==>cument!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	326	441	
==>block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <subm <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	326	441	
==>block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <subm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14571	14672	
==>ed by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14571	14672	
==>ed by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4055	4259	
==>));
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$current')
                      ->is_not_nil
                      ->and( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12506	12612	
==>l eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was not suc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12564	12670	
==>l eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was not suc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6828	6931	
==>( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6828	6931	
==>( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Sp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1314	1425	
==>rieve any final data and clear the cipher's state.

=back 4

The procedural interface does the same thing within <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1314	1425	
==>rieve any final data and clear the cipher's state.

=back 4

The procedural interface does the same thing within <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2066	2217	
==>etchElem($idx)->scalar_store($value);
            },

            'array_fetchSize' => sub { # $int
                my $self = shift;
                my <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	466	581	
==>s Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	466	581	
==>s Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1805	1903	
==>s

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1894	1992	
==>s

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14908	15001	
==>r $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $passw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14908	15001	
==>r $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $passw <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23859	23966	
==>setta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23859	23966	
==>setta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rose <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15282	15388	
==>C<$width> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4382	4478	
==>($p3d->prototype->class, \&Point, '... go the right superclass name for Point3D');
is($p3d->proto <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16094	16302	
==>tar(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16373	16581	
==>tar(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3793	3966	
==>--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @str <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3793	3966	
==>--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @str <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1735	1834	
==>Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1735	1834	
==>Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3504	3621	
==>& !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3504	3621	
==>& !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Boo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5838	5954	
==>[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    ret <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5838	5954	
==>[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	498	593	
==>vnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_toleran <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	498	593	
==>vnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_toleran <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13430	13542	
==>vide a comment that refers to another file or test which must be
made to pass before this test can pass (or befor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13488	13600	
==>vide a comment that refers to another file or test which must be
made to pass before this test can pass (or befor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3250	3345	
==>_->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3250	3345	
==>_->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1390	1503	
==>brule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1390	1503	
==>brule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementation for Perl 6 R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12051	12174	
==>o we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12051	12174	
==>o we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9408	9510	
==>isconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9408	9510	
==>isconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4686	4781	
==>FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4908	5003	
==>FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18033	18192	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18312	18471	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "p <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	132	233	
==>Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	132	233	
==>Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10158	10304	
==>nexpectedly succeeded")
                    if $test{bonus};
                print "$test{ml}ok\n        ".join(', ', @msg)."\n";
            } els <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18401	18495	
==>ion> <'?'> <AssignmentExpression> <':'> <AssignmentExpression>
}
rule ConditionalExpressionNoIn <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1672	1778	
==>/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi en <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1672	1778	
==>/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi en <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2246	2375	
==>sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2246	2375	
==>sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32967	33065	
==>t the returned Relation contains only tuples that are in
exactly one of the source Relations.  This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37517	37615	
==>t the returned Relation contains only tuples that are in
exactly one of the source Relations.  This <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5528	5638	
==>nt.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5528	5638	
==>nt.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3108	3207	
==>.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set:: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3108	3207	
==>.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3650	3788	
==>time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3650	3788	
==>time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14931	15055	
==>irst, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14931	15055	
==>irst, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26767	26873	
==>parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "Message Variab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26767	26873	
==>parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "Message Variab <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2176	2313	
==>XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        gi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2176	2313	
==>XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        gi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7454	7579	
==>xt;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_lim <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7454	7579	
==>xt;
    $self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_lim <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	815	916	
==>_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	815	916	
==>_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	644	765	
==>e();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule {
    pack <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1355	1458	
==>6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the use <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1355	1458	
==>6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the use <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27824	27919	
==>by C<$^X>, the currently-executing Perl.
However, you may want to have it run by a different exe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23410	23515	
==>self: list ?@superclasses) returns list {
    if (@superclasses.defined) {
        for @superclasses -> $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2326	2461	
==>" . $class->id . " [ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    return $outpu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1543	1667	
==>sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1543	1667	
==>sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	305	411	
==>ng macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since mac <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	305	411	
==>ng macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since mac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1214	1332	
==>y $sha1 = Digest->new("SHA-1");

        {
			local $SIG{__WARN__} = sub { };
            local $Storable::forgive_me = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9531	9628	
==>mbol new (%:methods))) delete ($label))))

=cut

$::Class->send('add_method' => (
    # method lab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5909	6053	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6102	6246	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33153	33282	
==>hor

Types: bol (C<^>), sbol (C<^> with C</s> on, C<\A>), mbol (C<^> with
C</m> on)

=head2 bound

Family: anchor

Types: bound (C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5421	5519	
==>?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation::Example $othe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1333	1431	
==>ile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	exit(0);
    }
}

use Perl6::Run::On <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10543	10716	
==>e };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10543	10716	
==>e };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $ser <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6749	6903	
==>->() }
            |
                ### Test::More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs::Grammar:: <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	356	454	
==>ym('&infix:<+>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 1 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	81	200	
==>::Basename;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4873	4959	
==>p6_new('Pair',@_)}
sub p6_Array {p6_new('Array',@_)}
sub p6_Hash {p6_new('Hash',@_)}
su <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35703	35795	
==>relational operator that takes a single
Relation::Example in its C<$other> argument, where <$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3521	3669	
==>\@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3985	4133	
==>\@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27017	27119	
==>ocale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27017	27119	
==>ocale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3931	4065	
==>s => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must be ordered, and the spans must not inter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3931	4065	
==>s => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must be ordered, and the spans must not inter <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7468	7648	
==>ion good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RE <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7932	8112	
==>ion good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15582	15722	
==>n$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15576	15716	
==>n$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2123	2229	
==>table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2123	2229	
==>table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	332	490	
==>et = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident = <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	332	490	
==>et = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4184	4313	
==>er = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4038	4164	
==>er = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27223	27370	
==>$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) returns list {
    ...
}

=cut

$::Class->send <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1795	1941	
==>hod keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1795	1941	
==>hod keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($nam <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13188	13284	
==>negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13188	13284	
==>negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4829	4934	
==>%!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4829	4934	
==>%!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15962	16065	
==>ser, is in fact meant
to be interpreted by the machine itself and not any human user.  In some
situation <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15962	16065	
==>ser, is in fact meant
to be interpreted by the machine itself and not any human user.  In some
situation <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6232	6382	
==>er definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->new(
                Sym->new('&control_struc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22946	23049	
==>more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute nam <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27498	27601	
==>more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute nam <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1280	1378	
==>fault
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pug <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1280	1378	
==>fault
search path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pug <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6699	6881	
==>ield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6699	6881	
==>ield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { <==
2	/Users/nnunley/pugs/util/func_refact.pl	798	941	
==>t "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doUnion (@{$Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3363	3474	
==>ss => $S->force_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  # digit (a digit)
  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15020	15200	
==>constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15299	15479	
==>constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7323	7435	
==>t )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7323	7435	
==>t )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5021	5124	
==>Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5021	5124	
==>Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	14	122	
==>s Set::Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	14	122	
==>s Set::Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9155	9262	
==>erl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2980	3087	
==>erl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1627	1726	
==>Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1627	1726	
==>Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13539	13657	
==>c entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13539	13657	
==>c entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8283	8385	
==>If you create your tree in a top-down
# manner, this is usually not an issue
# since each time you eith <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8283	8385	
==>If you create your tree in a top-down
# manner, this is usually not an issue
# since each time you eith <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	354	456	
==>blessed';

# create our basic variables/functions for 
# the metamodel that the runtime needs to 
# hav <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11661	11792	
==>', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('disc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11661	11792	
==>', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('disc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1671	1844	
==>, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1671	1844	
==>, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box("P5::PIL: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	649	756	
==>educe($node);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::DuplicateFinder - find dupli <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7855	7960	
==>$v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cleanup($v,$prefix);
	    } elsif(defined $v) { <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	578	691	
==>.}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	578	691	
==>.}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7214	7344	
==>item $parser = Regexp::Parser->new($regex)

You can send the regex to be parsed as the argument to the constructor.

=item $parser- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	242	350	
==>urns Object;
multi method delete (*@index ) returns List of Object;
multi method exists ($index ) returns Obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	873	1053	
==>'    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	873	1053	
==>'    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unles <==
2	/Users/nnunley/pugs/util/combine_tests.pl	620	749	
==>versions.
#
sub combine_tests{
    #
    # Collect all the test results indexed on filename/number
    # into %sum
    #
    my %s <==
2	/Users/nnunley/pugs/util/package-osx.pl	3633	3730	
==>an3/Perl6::API.3
        /usr/local/man/man3/Perl6::API.3pm
        /usr/local/man/man3/Perl6::Bib <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12776	12871	
==>t. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12834	12929	
==>t. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &co <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19832	19978	
==>' : '').
                   " TODO)")
            if $tot->{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} tes <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4731	4848	
==>res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4731	4848	
==>res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4314	4508	
==>f ($closure->isa('closure')) {
            $list->push(
                $closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10082	10186	
==>* object
  }

In list context, it returns the next node and its depth:

  while (my ($node, $depth) = $it <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	806	926	
==>ello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This module provides a Perl interface to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37294	37383	
==>sses'      => 'list')));
$::Class->send('add_attribute', (symbol->new('%:private_methods') <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3090	3203	
==>INC{"$self->{path}.pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15482	15580	
==>Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, the <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15540	15638	
==>Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, the <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9933	10026	
==>S.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9933	10026	
==>S.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13615	13786	
==>y $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13615	13786	
==>y $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Ch <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	162	267	
==>t $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs that get declared fir <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15357	15448	
==>'>>'> <AdditiveExpression>
    | <ShiftExpression> <'>>>'> <AdditiveExpression>
}
rule Relat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	911	1003	
==>f plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering oper <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	911	1003	
==>f plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering oper <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29944	30040	
==>However, the nature of 'atom' is to match a
character, see if there's a handler installed, and ca <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1166	1273	
==>[tar -f $Control -C $path/$Pms -cz .] )   and die $?;
        system( qq[tar -czf $archive $Control $Data] ) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28670	28760	
==>' t/*.t
  Using /home/schwern/src/devel/Test-Harness/blib
  t/base..............ok
  t/nonu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13857	13972	
==>n call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13851	13966	
==>n call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13472	13581	
==>ities not found in the %entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13472	13581	
==>ities not found in the %entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6461	6561	
==>.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6461	6561	
==>.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14882	14985	
==>may be absorbed into the core functionality of F<Regexp::Parser>
in the future.  Module names are merely <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10185	10285	
==>nt.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10243	10343	
==>nt.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2399	2507	
==>e = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2399	2507	
==>e = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5408	5538	
==>f the identity function, or

    sub { my $x = shift; $x }

applied to the value 10 (ultimately reducing to 10).

Inherits Unit.

= <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3375	3473	
==>lues which the runtime provides builtins for with the replacement nodes

=item *

Ensuring that the <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	553	675	
==>r $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	553	675	
==>r $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2101	2200	
==>of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2101	2200	
==>of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional int <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31267	31371	
==>g, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31267	31371	
==>g, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34476	34567	
==>a F<Regexp::MyRx::THING> object will look in its own
package first, then in F<Regexp::MyRx:: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10560	10651	
==>arch.cpan.org/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href= <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2957	3068	
==>LF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buff <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2957	3068	
==>LF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buff <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16603	16708	
==>val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15651	15752	
==>val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1610	1708	
==>nterface::Exception {

    # External packages used by the Rosetta::Interface::Exception class, tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1610	1708	
==>nterface::Exception {

    # External packages used by the Rosetta::Interface::Exception class, tha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8335	8447	
==>al( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8046	8153	
==>al( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alte <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1476	1594	
==>Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1476	1594	
==>Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6496	6622	
==>get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in cas <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6496	6622	
==>get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in cas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2253	2365	
==>ROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2253	2365	
==>ROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8192	8310	
==>on_nest_brack) }xgc) {
      my $o = substr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octa <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2574	2683	
==>irect_rule>
  | <character>
}

# XXX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in :z( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5006	5092	
==>echschmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <michael.hartmann\@as-netz <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1201	1314	
==>above).  Read a Calculus textbook for details.
This implementation is meant to show the power of Perl 6 defaults a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3369	3470	
==>.. got the right class name');

is($p2->get_x, 100, '... got the right x for p2');
is($p2->get_y, 200, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14929	15047	
==>$first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14929	15047	
==>$first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Ma <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2202	2323	
==>};
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals::eval_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2703	2805	
==>t from TestPlan because of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method header <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19771	19917	
==>0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16192	16338	
==>0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7121	7210	
==>\+\?\#\\").
p6_metachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchref(I) --> "\\", digi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4171	4284	
==>riskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'//' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1889	2034	
==>x:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1889	2034	
==>x:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2660	2765	
==>e;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2718	2823	
==>e;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $dep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7033	7130	
==>ow-level functional operators, and the higher level OO/Overload 

runtime. 



- internal rule ope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6793	6887	
==>ow-level functional operators, and the higher level OO/Overload 
runtime. 

- internal rule ope <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11947	12097	
==>os
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, pos, $I0
    mob["arg"] = $S0
    pos += $I0
    $S0 = substr target, pos, 1
  subru <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3934	4032	
==>r &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our & <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3934	4032	
==>r &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our & <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	32	136	
==>s a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	32	136	
==>s a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8909	9058	
==>tant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9102	9251	
==>tant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runti <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1657	1852	
==>perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        } <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1657	1852	
==>perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18786	18888	
==>ines beginning with a C<package statement and continuing
        until the next C<package> or C<DATA> s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18786	18888	
==>ines beginning with a C<package statement and continuing
        until the next C<package> or C<DATA> s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11750	11876	
==>, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11750	11876	
==>, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %va <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8731	8842	
==>h fields appropriately.
# This method is called automatically when 
# a subtree is added to a child array
method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8731	8842	
==>h fields appropriately.
# This method is called automatically when 
# a subtree is added to a child array
method <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14574	14707	
==>ex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14574	14707	
==>ex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	361	489	
==>lds"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	345	466	
==>lds"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" ( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3762	3866	
==>nd($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3762	3866	
==>nd($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        next unless <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6830	6933	
==>s Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6830	6933	
==>s Array of byte {...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertex <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10609	10836	
==>asses, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10609	10836	
==>asses, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16191	16286	
==>class;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20617	20712	
==>class;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8419	8517	
==>urity expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysis befo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8419	8517	
==>urity expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysis befo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41161	41259	
==>f Template modules into the same files as
program code, rather than requiring separate files.

=ite <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41161	41259	
==>f Template modules into the same files as
program code, rather than requiring separate files.

=ite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	936	1069	
==>x', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5067	5173	
==>ft;
    return $self unless $self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub version <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3525	3625	
==>of the object-oriented backend.

To use the Cipher API, you must first create an object of the approp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3525	3625	
==>of the object-oriented backend.

To use the Cipher API, you must first create an object of the approp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3436	3549	
==>opedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3436	3549	
==>opedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14928	15033	
==>ueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $usernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14928	15033	
==>ueue("INVITE $target $channel") },
  method oper(Str $username, Str $password) { ./:enqueue("OPER $usernam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2135	2232	
==>$code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2135	2232	
==>$code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1697	1816	
==>ctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1697	1816	
==>ctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22661	22758	
==>er

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27213	27310	
==>er

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation att <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	868	1040	
==>R',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	868	1040	
==>R',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3079	3256	
==>];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3079	3256	
==>];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15708	15849	
==>n core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? * <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19941	20082	
==>n core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? * <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32431	32583	
==>rns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33086	33238	
==>rns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16198	16308	
==>ding a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16198	16308	
==>ding a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7572	7693	
==>$self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($fun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7572	7693	
==>$self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($fun <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	445	573	
==>', 
        assoc => 'non',
        name => 'postfix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5835	5926	
==>ny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5835	5926	
==>ny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38521	38624	
==>e name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38521	38624	
==>e name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => ' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5546	5685	
==>";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err last;
            $mess ~= "\n\t{$calle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31620	31727	
==>could have yet another set for itself.  When the program is run, it would
determine either from a user confi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31620	31727	
==>could have yet another set for itself.  When the program is run, it would
determine either from a user confi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20770	20909	
==>c'"),
				param => ide("x"),
			),
			param => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        ide => "le <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3148	3246	
==>(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from htt <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3148	3246	
==>(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from htt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13877	14037	
==>h;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14156	14316	
==>h;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	722	818	
==>en(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinit <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	722	818	
==>en(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17603	17710	
==>eturns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17603	17710	
==>eturns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26196	26293	
==>others are ignored).  Each variable name can be any
defined and non-empty string, and each variabl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26196	26293	
==>others are ignored).  Each variable name can be any
defined and non-empty string, and each variabl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9359	9459	
==>et.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set contain <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9359	9459	
==>et.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set contain <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3368	3471	
==>pe/;

sub new {
	my $class = shift;
	bless {}, $class;
}

package type::operator::nullary;
use base qw/t <==
2	/Users/nnunley/pugs/util/drift.pl	1870	1975	
==>t if (/DrIFT/);
		print OUT;
	}
}

close IN;

shift(@program) until $program[0] =~ /Look, but Don't Touch/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8576	8697	
==>ecurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8576	8697	
==>ecurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1388	1489	
==>subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1388	1489	
==>subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2132	2283	
==>l5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2349	2500	
==>l5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2181	2320	
==>:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9648	9755	
==>bool => \\\$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \${\$hash-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6487	6587	
==>($self: get_attr (symbol new (%:methods))) store ($label $method))))

=cut

{
    # add the first met <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1370	1467	
==>cated, and has been alocated $symbol" if defined $symbol;

	my $result = $self->inner_reduce($node <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15797	15897	
==>ode's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15797	15897	
==>ode's child Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1521	1671	
==>'/'. $Fileslist                         or die $!;
    
    my $prerm = $meta . '/' . $Prerm;
    if( -e $prerm && -s _ ) {
        system( qq[ $^X $pr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	377	491	
==>apply;

 # my SomeClass $foo does Foo;
 my $role = Role.new("Foo");
 my $newclass = Class.new($class);
 $newclass.d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27802	27924	
==>arguments.
The boolean is true if the flag is going to be turned on, and false if
it's going to be turned off.  For C<(?i-s <==
2	/Users/nnunley/pugs/util/package-osx.pl	4127	4224	
==>e::A20.3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17771	17869	
==>on, and this is
mapped to a user-readable message at some point.  For example, Oracle
databases oft <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17771	17869	
==>on, and this is
mapped to a user-readable message at some point.  For example, Oracle
databases oft <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2542	2757	
==>t ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1502	1601	
==>ight hand side must be a core type";    
    return num->new($left->to_native * $right->to_num->to_n <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	241	347	
==>}
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	241	347	
==>}
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3900	4024	
==>:newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4093	4217	
==>:newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'= <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	880	973	
==><Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	880	973	
==><Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perl <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1736	1858	
==>',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1736	1858	
==>',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1699	1849	
==>) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1699	1849	
==>) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12145	12243	
==>", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12145	12243	
==>", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=item $h. <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4253	4370	
==>ex[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take i <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4253	4370	
==>ex[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	288	386	
==>:Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	288	386	
==>:Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32632	32764	
==>ing 'close' node into the
walking stack.

The purpose of adding an ending node to the walking stack is that ending
nodes are all omit <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3056	3156	
==>ong with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3056	3156	
==>ong with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to re <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	710	805	
==>lder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file c <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	710	805	
==>lder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file c <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	380	549	
==>tr
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	380	549	
==>tr
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6854	6985	
==>r;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6854	6985	
==>r;

method title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10953	11057	
==>ON

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10953	11057	
==>ON

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<d <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30327	30421	
==>elation whose attributes
(provided in C<$heading>) may or may not resemble those of the origina <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34879	34973	
==>elation whose attributes
(provided in C<$heading>) may or may not resemble those of the origina <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21271	21386	
==>u don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21271	21386	
==>u don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20547	20646	
==>low you to force a
specific spelling.  For example if you really want a header field name
to show up <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20547	20646	
==>low you to force a
specific spelling.  For example if you really want a header field name
to show up <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2232	2364	
==>::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2232	2364	
==>::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	722	873	
==>p++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::RuleCompiler->compile($source);
    #print '*{\''.$rulename.'\'} = '.$rule->pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4681	4783	
==>cher)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create('WALKCLASS' => closure->new(
        $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7197	7303	
==>urns Relation::Example {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but :: <==
2	/Users/nnunley/pugs/util/config_h.pl	486	582	
==>Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_line;

open IN, "< $base/lib/Perl6/Pugs.pm" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7956	8049	
==>annels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7956	8049	
==>annels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normali <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12682	12806	
==>ass='$class'>$rest</span>";
      
    }
#    $body->push_content("\n");
     $output .= "\n";
  }
  $template->param("tests" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15880	16001	
==>_Str($_[0]) },
      scalar_numeric     => sub { p6_Num(${$_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) }, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4420	4531	
==>et::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4420	4531	
==>et::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infin <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4446	4584	
==>problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4446	4584	
==>problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	31	126	
==>ls is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

cla <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	31	126	
==>ls is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

cla <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4104	4243	
==>\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5655	5759	
==>_;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	829	947	
==>ol  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	829	947	
==>ol  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  h <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1671	1894	
==>+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.by <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1671	1894	
==>+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.by <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6068	6162	
==>ime, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6068	6162	
==>ime, it will not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	263	374	
==>FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	263	374	
==>FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2220	2326	
==>term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2231	2337	
==>term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4487	4585	
==>ead1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4487	4585	
==>ead1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $con <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1094	1210	
==>y, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string i <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1094	1210	
==>y, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11670	11781	
==>( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12028	12139	
==>( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2932	3033	
==>emote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2932	3033	
==>emote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8079	8218	
==>),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8079	8218	
==>),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5527	5663	
==>933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5527	5663	
==>933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23636	23755	
==>last = $min = shift @failed;
    my $canon;
    if (@failed) {
        for (@failed, $failed[-1]) { # don't forget the l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	550	643	
==>akefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8699	8803	
==>swd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8699	8803	
==>swd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 <==
2	/Users/nnunley/pugs/util/package-osx.pl	1038	1139	
==>sr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.inf <==
2	/Users/nnunley/pugs/util/package-osx.pl	3348	3449	
==>sr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.inf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18203	18308	
==>for the user, such as
'error opening file', programs would have a harder time figuring out the
best way to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18203	18308	
==>for the user, such as
'error opening file', programs would have a harder time figuring out the
best way to <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6724	6823	
==>"$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6782	6881	
==>"$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	364	497	
==>:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	560	679	
==>opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "infix:<" . $op <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18869	18953	
==>at_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(_Re,_,F0,F0,B0,B0,E0,E0).
rm_rep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5068	5255	
==>tch->to ),
                named => {},
                match => [ $match ],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub before { 
    my $op = sh <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	563	673	
==>s.
*verbose  = *Verbose;
*switches = *Switches;
*debug    = *Debug;

$ENV{HARNESS_ACTIVE} = 1;

END {
    # For <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9979	10104	
==>S0 = substr target, pos
    min = $S0
    max = $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto quan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10896	11020	
==>a}[-1];
    }
  }
}


{
  package Regexp::Parser::exact;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3891	4000	
==>ip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3891	4000	
==>ip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4853	4986	
==>ndency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5317	5450	
==>ndency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	87	176	
==>::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

ha <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	87	176	
==>::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

ha <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9999	10109	
==>ds for iterating through the set, and for querying 
set properties.

Note that all set functions may end up bei <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9999	10109	
==>ds for iterating through the set, and for querying 
set properties.

Note that all set functions may end up bei <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38633	38730	
==>erl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	430	552	
==>e_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	430	552	
==>e_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	423	521	
==>mc_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine which st <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	423	521	
==>mc_ so subclasses don't
# accidentally override things they didn't intend to.

# Determine which st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15459	15554	
==>tem $h.date

This header represents the date and time at which the message was
originated. I<E.g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15459	15554	
==>tem $h.date

This header represents the date and time at which the message was
originated. I<E.g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7825	7962	
==>d) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7825	7962	
==>d) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"...\"> not i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14440	14598	
==>er::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ???
            'my $p6 = Pugs::Compiler::Pe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4707	4856	
==>$n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4707	4856	
==>$n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6731	6837	
==>n =~ /^6.4(?:.0)?$/)) {
        die << ".";
*** Cannot find GHC 6.4.1 or above from path (we have $ghc_vers <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23115	23212	
==>OS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 RO <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7342	7453	
==>ts = $self->analyze_fh($file, \*FILE);
    my $exit = close FILE;
    $results{'wait'} = $?;
    if( $? && $self <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9324	9414	
==>-----------
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp::StructHook::re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4258	4360	
==>ch object returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4258	4360	
==>ch object returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12079	12239	
==>mar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12073	12233	
==>mar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call met <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1572	1668	
==>y Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1572	1668	
==>y Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	633	735	
==>d be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	633	735	
==>d be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5157	5302	
==>il = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            whil <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5157	5302	
==>il = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            whil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13292	13397	
==>}

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13292	13397	
==>}

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	504	624	
==>(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pu <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	504	624	
==>(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17593	17688	
==>ompile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17593	17688	
==>ompile and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1880	2023	
==>ncoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1880	2023	
==>ncoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5366	5471	
==>h'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_abso <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5366	5471	
==>h'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_abso <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9295	9404	
==>_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, $how) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15096	15199	
==>_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2971	3086	
==>nal ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2971	3086	
==>nal ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Sp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1611	1707	
==>nicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1611	1707	
==>nicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1410	1576	
==>d',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemente <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1410	1576	
==>d',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemente <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3502	3679	
==>(; SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             ) returns List
 multi sub Perl6::Lists::zip (; Array *@l <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	343	471	
==>g   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	343	471	
==>g   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5262	5382	
==>LoadFile($index);
        my $meta = $pkg->meta->to_struct;
        
        # add the archive path to the package's meta <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1136	1311	
==>polate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1136	1311	
==>polate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13660	13807	
==>tifiers must NOT follow quantifiers
    $rx->error($rx->RPe_NESTED)
      if $tree->[-1]->family eq "quant";

    # on /abc+/, we extract the 'c' fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41014	41108	
==>ed out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

=bac <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2152	2268	
==>!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2152	2268	
==>!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4641	4760	
==>e.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differe <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4641	4760	
==>e.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- differe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2205	2368	
==>fter => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2452	2615	
==>fter => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13941	14080	
==>efined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13941	14080	
==>efined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4528	4697	
==>l =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4390	4550	
==>l =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6468	6600	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6661	6793	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	444	542	
==>s), and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caesar c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	444	542	
==>s), and an 
unnamed similar cipher where all bytes are changed, not just letters.

Cipher::Caesar c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3317	3421	
==>[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3317	3421	
==>[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14145	14250	
==>erl' aliased properly
	return $Perl if $^O eq 'VMS';

	my $exe;
	eval "require Config; Config->import";
	i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3105	3203	
==>Test::More tests => 33;
use Data::Dumper;

use_ok( 'Pugs::Compiler::Rule' );

=for pod
  sub rxinfi <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	290	414	
==>ll::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	191	315	
==>ll::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2281	2392	
==>($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2498	2609	
==>($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", " <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20407	20513	
==>on :words {  # see 12.2
      <Identifier> <Initialiser>?
}
rule VariableDeclarationNoIn :words {  # see 12 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13358	13465	
==>rs> object that contains the
removed headers only.

=item $h.clear

This will remove all header fields.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13358	13465	
==>rs> object that contains the
removed headers only.

=item $h.clear

This will remove all header fields.

=it <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	398	489	
==>main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeSafe::Annota <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15465	15606	
==>k
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15459	15600	
==>k
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26616	26723	
==>ngesNoDash {  # see 15.10.1
      <ClassAtom>
    | <ClassAtomNoDash> <NonemptyClassRangesNoDash>
    | <Cla <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23308	23460	
==>$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $self: list ?@superclasses) returns list {
    if (@ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1961	2110	
==>ken: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2033	2231	
==>S_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2033	2231	
==>S_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9912	10025	
==>$o)=@_;
    my $noop = $o->noop;
    my($min,$max)= (@{$o->data}{'min','max'});
    $min = 0 if $min eq "";
    $m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1763	1874	
==>Config{sitelib} =~ /([\/\\])/)
        or die "Can't determine file_sep";

    return $config;
}

sub add_path { <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	284	384	
==>h, $name;
my $data = uc("__${name}__");

open OUT, "> $out" or die $!;
print OUT "module $fullname ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3892	4011	
==>";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4109	4228	
==>";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25580	25696	
==>eturns a new Relation
which is the same as the invocant Relation but that some of its attributes
are renamed.  The ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30132	30248	
==>eturns a new Relation
which is the same as the invocant Relation but that some of its attributes
are renamed.  The ar <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1409	1509	
==>ost,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1409	1509	
==>ost,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_req <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11783	11887	
==>class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11777	11881	
==>class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	355	469	
==>ecary because the hash 
    # does not seem to get initialized properly
    # and calling members before any values <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	355	469	
==>ecary because the hash 
    # does not seem to get initialized properly
    # and calling members before any values <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3824	3913	
==>t>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=hea <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3824	3913	
==>t>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1517	1642	
==>has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1517	1642	
==>has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2357	2459	
==>ethod register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicati <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2357	2459	
==>ethod register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicati <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1488	1602	
==>ins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 CO <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1488	1602	
==>ins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 CO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9291	9393	
==>xt_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9291	9393	
==>xt_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12817	12911	
==>value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12875	12969	
==>value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depen <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1592	1701	
==>ro },
		{ $^a.round_away_from_zero },

#		{ $^a.round_up: symmetrical => $^b },
#		{ $^a.round_down: symmetric <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16776	16874	
==>ion in
Rosetta D and compile that into its own executable, in practice one would
normally just writ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16776	16874	
==>ion in
Rosetta D and compile that into its own executable, in practice one would
normally just writ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7879	7987	
==>tire match. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7613	7718	
==>tire match. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_w <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8981	9119	
==>$set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_differenc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8981	9119	
==>$set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_differenc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5380	5580	
==>( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TOD <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8857	9057	
==>( CALLER::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TOD <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	636	843	
==>s_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	636	843	
==>s_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{^=cut} { 
                        $is_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	532	655	
==>->{fixity} || "listy",
    );
}

sub type { [ map { Blondie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12270	12361	
==>specified, the array is sorted in place.

See L<http://www.nntp.perl.org/group/perl.perl6.la <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5929	6057	
==>e {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub author_from {
    my ( $self, $f <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20994	21122	
==>mask
# unlink utime warn


# chroot crypt exec getlogin /[get|set][pw|gr].*/ kill setpgrp setpriority
# system times


# fork loc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2009	2096	
==>f Blondie::TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		return quote(printable <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17615	17770	
==>seen == ok.


There is one final item, the details.

  details           an array ref reporting the result of 
                    each test looks like this <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5666	5773	
==>r {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5666	5773	
==>r {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3485	3602	
==>all_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3485	3602	
==>all_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name do <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5487	5612	
==>4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5487	5612	
==>4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $dec2hex(240+$num/262144)~$dec2hex( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	836	973	
==>y},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	836	973	
==>y},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28266	28364	
==>eturns a new Relation
which is the same as the invocant Relation but that some of its attributes
ha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32818	32916	
==>eturns a new Relation
which is the same as the invocant Relation but that some of its attributes
ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6795	6935	
==>r("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6795	6935	
==>r("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.header("Title") }
met <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37851	37946	
==>l module by the given module name
is already loaded, it tries to invoke $module_name.get_text_by <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37851	37946	
==>l module by the given module name
is already loaded, it tries to invoke $module_name.get_text_by <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5122	5246	
==>ult if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5122	5246	
==>ult if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1266	1441	
==>|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xf <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1266	1441	
==>|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xf <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9376	9752	
==>x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    met <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9376	9752	
==>x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17030	17161	
==>zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => /\w/

There are other possibilities a <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11414	11533	
==>nd, Bool :$r is copy, Bool :$w) returns IO
            is primitive is unsafe {
        die "Pipe::open is unidirectiona <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6727	6872	
==>pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $li <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6727	6872	
==>pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $li <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3411	3700	
==>hunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Wi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4433	4593	
==>new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4433	4593	
==>new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2790	3004	
==>ersion
                     (\w+\+\S+) $   # the authority
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4178	4325	
==>=> {
        'report' => sub { "not ok " . _('$.number') . " #skip " . _('$.reason') },
        'status' => sub {
            my $status_sub    = $: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10665	10790	
==>penfoundry.org/pugs/util/smokeserv/README">smokeserv's
    README</a> for details.
  </p>

  <p>
    Note that old smoke repor <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1450	1539	
==>tBuilder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Builder <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7607	7698	
==>mental(lookahead_not(R)).
p5_condition_test(lookbehind(R))     --> p5_elemental(lookbehind(R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	581	709	
==>{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "infix:<" . $opt{name} . ">",
        '{ retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2154	2260	
==>n $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7886	7984	
==>should assume that if this method is being called, the Secret 
Police are breaking down the door an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7886	7984	
==>should assume that if this method is being called, the Secret 
Police are breaking down the door an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4667	4774	
==>$_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4667	4774	
==>$_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1300	1414	
==>ugs::Runtime::Match::Ratchet';
        while ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state <==
2	/Users/nnunley/pugs/util/importgraph.pl	2151	2243	
==>Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^Pugs\.Embe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4887	4982	
==>-> {true}.

%# XXX - spaces permitted around **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7066	7199	
==>package
        # obj? otherwise all data we index after must be a toplevel element of
        # the meta file
        push @index_fil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4965	5093	
==>ct_equiv => $unified_app,
		);
	}

	sub simplify_type {
		my $self = shift;
		my $type = shift;
		while (Scalar::Util::blessed($t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1022	1130	
==>ime in the next few
    # releases once we can make sure it won't clash with custom
    # Module::Install ext <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15084	15186	
==>ndler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9283	9385	
==>ndler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6609	6715	
==>es), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6609	6715	
==>es), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6754	6942	
==>n;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        P <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6754	6942	
==>n;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        P <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32930	33053	
==>ator that is like
C<union> except that the returned Relation contains only tuples that are in
exactly one of the source Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37480	37603	
==>ator that is like
C<union> except that the returned Relation contains only tuples that are in
exactly one of the source Rela <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	572	692	
==>h[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %paramet <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	572	692	
==>h[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %paramet <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29748	29842	
==>lysis.

Trap STDERR.

Implement Straps total_results()

Remember exit code

Completely redo the <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7346	7443	
==>rective is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7346	7443	
==>rective is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1999	2206	
==>s) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1999	2206	
==>s) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1816	1928	
==>t=0, $length?, *@list) is builtin is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9787	9906	
==>elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9787	9906	
==>elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Val <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	794	899	
==>into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref $type eq 'ARRAY' and <==
2	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	28	141	
==>ub import (Str $pkg, Int $arg = 0 is copy) returns Void {
    my $newarg = [~] $arg.split("").grep:{ $_ ~~ rx:Perl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19614	19723	
==>nd

.namespace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1806	1921	
==>nt>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1806	1921	
==>nt>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11703	11805	
==>an@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Bart <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11703	11805	
==>an@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Bart <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4855	4968	
==>\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4855	4968	
==>\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3455	3731	
==>mbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3455	3731	
==>mbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Roset <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	574	705	
==>nostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!dia <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	574	705	
==>nostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!dia <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1812	1908	
==>method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1812	1908	
==>method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8460	8566	
==>nd not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8460	8566	
==>nd not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# when a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7670	7769	
==>ethod proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7670	7769	
==>ethod proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	261	393	
==>ge::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = sh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	259	391	
==>ge::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = sh <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16680	16793	
==>to 2 spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16680	16793	
==>to 2 spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	349	453	
==>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $m <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	349	453	
==>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $match_in<elem> ?? $m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25026	25124	
==>d on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25026	25124	
==>d on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1625	1731	
==>eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$compi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3678	3774	
==>rig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
trig_func 'asinh';
trig_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3619	3741	
==>$1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3812	3934	
==>$1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2822	2943	
==>}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2822	2943	
==>}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we ca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1288	1421	
==>: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1288	1421	
==>: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11005	11108	
==>s: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11005	11108	
==>s: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7603	7700	
==>sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1428	1525	
==>sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	333	452	
==>ert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1191	1310	
==>ert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4422	4519	
==>=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4422	4519	
==>=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4025	4164	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4218	4357	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2225	2326	
==>capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will cause all trac <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2225	2326	
==>capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will cause all trac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14752	14855	
==>with the outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14752	14855	
==>with the outside
environment at all.

A Node object has 5 main attributes:

=over

=item C<$!document> - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	461	595	
==>pare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	461	595	
==>pare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3988	4109	
==>_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { op1 => 'ca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12091	12216	
==>( package => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	563	666	
==>f = "";   # set to undef to when input is exhausted
  my $split := { (split rx:perl5/($pattern)/, $^str) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	695	792	
==>0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	695	792	
==>0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15805	15904	
==>he binding contains the env with the the symbols of our outer scope
let: new_env($$) = {
	my $orig = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1461	1617	
==>CKAGE__;
  push @Regexp::Parser::eol::ISA, __PACKAGE__;

  sub new {
    my ($class, $rx, $type, $vis) = @_;
    Carp::croak("anchor is an abstract class") i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2048	2167	
==>) || level($$) }
#'EOG

sub stringify {
	my $dag = shift;

	my @free;

	my $tree = $dag->splat(\@free); # Attribute gram <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5021	5160	
==>if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5021	5160	
==>if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1907	2025	
==>$code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1907	2025	
==>$code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4692	4815	
==>or each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4692	4815	
==>or each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2008	2138	
==>"$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2008	2138	
==>"$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2448	2606	
==>d a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2448	2606	
==>d a temporary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4674	4788	
==>section( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4674	4788	
==>section( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2446	2555	
==>: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2446	2555	
==>: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2347	2446	
==>ows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2347	2446	
==>ows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17505	17608	
==>the right data.

=item *

Ability to ship precompiled modules without shipping Module::Compile and
the c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17505	17608	
==>the right data.

=item *

Ability to ship precompiled modules without shipping Module::Compile and
the c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4310	4422	
==>closure_previous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4310	4422	
==>closure_previous =>    &{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1890	2138	
==>rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1890	2138	
==>rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4010	4146	
==>iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4010	4146	
==>iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7802	7905	
==>rn $x <=> $y;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mod <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	221	326	
==>...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	221	326	
==>...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
node t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9434	9567	
==>** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9422	9555	
==>** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6594	6710	
==>n embedded in a core program file and hence
        # should never be loaded by translate_message().
        my $modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6594	6710	
==>n embedded in a core program file and hence
        # should never be loaded by translate_message().
        my $modu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3575	3703	
==>s Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3575	3703	
==>s Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10033	10123	
==>","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10768	10858	
==>","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9200	9315	
==>e "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           em <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3978	4071	
==>lf.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_unio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3978	4071	
==>lf.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_unio <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5525	5636	
==>";

    local *META;
    open META, "> META.yml" or warn "Cannot write to META.yml: $!";
    print META $self->_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21847	21942	
==>the
main program, Locale::KeyedText can be given input that says what resource
files it should u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21847	21942	
==>the
main program, Locale::KeyedText can be given input that says what resource
files it should u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7365	7499	
==>r"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7365	7499	
==>r"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596) <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	832	947	
==>bstract;
        $prompt .= '?';
    }
    return unless $self->prompt($prompt, ($default || 'n')) =~ /^[Yy]/;
    $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8662	8764	
==>$pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13378	13481	
==>` parameter to most of the functions is a way
to provide a comment that refers to another file or test w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13436	13539	
==>` parameter to most of the functions is a way
to provide a comment that refers to another file or test w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9494	9628	
==>sert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9494	9628	
==>sert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13036	13134	
==>cale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13036	13134	
==>cale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35319	35421	
==>of new().

=item C<get_set_names()>

This method returns all Set Names elements in this object as an ar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35319	35421	
==>of new().

=item C<get_set_names()>

This method returns all Set Names elements in this object as an ar <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2323	2428	
==>ie "Could not run yaml harness: $!";
system($^X, qw(-w ./util/testgraph.pl --inlinecss tests.yml), $html_l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	176	276	
==>_lib.pl';
require 'p5hacks.pl';

my $namespace = 'Pugs::Grammar::Rule::';

{
  package grammar1;

  u <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1941	2036	
==>ntation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1941	2036	
==>ntation for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10103	10228	
==>urn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10382	10507	
==>urn { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3751	3851	
==>e perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port t <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3751	3851	
==>e perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	390	493	
==>ders
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Da <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	390	493	
==>ders
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Da <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8671	8795	
==>\&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8864	8988	
==>\&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1794	1896	
==>time Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1883	1985	
==>time Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	439	546	
==>'.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywher <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	439	546	
==>'.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywher <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7224	7343	
==>re even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	525	644	
==>re even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1547	1779	
==>) 
                };
                if @_[0] eq '[' { 
                    return parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5845	5973	
==>t not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($expec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21129	21235	
==>opriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (opti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21129	21235	
==>opriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (opti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5099	5269	
==>}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5099	5269	
==>}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1500	1619	
==>h  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.userna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1500	1619	
==>h  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.userna <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51802	52063	
==>ntifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->new('$: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51191	51424	
==>ntifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->new('$:v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16501	16644	
==>offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20927	21070	
==>offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15252	15364	
==>uleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15531	15643	
==>uleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9077	9172	
==>These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / ` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9077	9172	
==>These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / ` <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	211	325	
==>= (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	211	325	
==>= (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3691	3797	
==>etta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if ther <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3691	3797	
==>etta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if ther <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10356	10462	
==>FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10356	10462	
==>FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15695	15819	
==>eason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15695	15819	
==>eason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target $mode" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1439	1567	
==>s/standards/Ecma-262.htm
#   http://bclary.com/2004/11/07/ecma-262
#
#  The SPEC grammar SHOULD NOT BE CHANGED to accommodate the <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	606	716	
==>M_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMaker:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19268	19368	
==>y @res = eval_wa($code,wantarray);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub num <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22058	22281	
==>leop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22337	22560	
==>leop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	129	291	
==>e lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package';

for my $pkg (@ARGV) {
    my $meta = $Metactrl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	127	240	
==>e lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12076	12187	
==>);

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EM <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4719	4830	
==>);

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EM <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9926	10053	
==>ementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test func <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9984	10111	
==>ementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test func <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5508	5605	
==>ike 'Content-Type') when you are accessing the web using this
function.  If you need that informat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5508	5605	
==>ike 'Content-Type') when you are accessing the web using this
function.  If you need that informat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5908	6058	
==>my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $alt;
}

sub greedy_star { 
    my $ <==
2	/Users/nnunley/pugs/util/importgraph.pl	485	591	
==>$g = GraphViz->new(
  layout => $layout,
  directed => 1,
  rankdir => 1,
  overlap => $overlap,
);

my %mo <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1000	1094	
==>is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(& <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1000	1094	
==>is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(& <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2198	2339	
==>e<Code>).add_children(
                            Tree.new(:node<Routine>).add_children(
                                Tree.new(:node<Sub>) <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	318	418	
==>ords = rx:P5/\b([A-Z]\w+[A-Z]\w+)/;
my $topic     = join("\n", param('topic')) || 'FrontPage';
my $en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1555	1670	
==>object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5539	5680	
==>length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tai <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5539	5680	
==>length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2233	2416	
==>{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most speci <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2233	2416	
==>{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most speci <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	486	581	
==>over 4

=item B<new (*native*) returns nil>

=item B<to_native () returns *native*>

=item B<to_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2208	2308	
==>al {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2121	2219	
==>al {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13371	13506	
==>d, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13365	13500	
==>d, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1399	1515	
==>tor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1399	1515	
==>tor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	298	390	
==>stant PGE_OPTABLE_INFIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABLE <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6139	6290	
==>s/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_chang <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4641	4792	
==>s/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_chang <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36845	36941	
==>nsidered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36845	36941	
==>nsidered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2638	2779	
==>\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "1st line\n2nd line\n3rd li <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3074	3189	
==>\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12,
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11816	11944	
==>}

    return _emit( $n->{exp1} ) . ' ' . 
        $n->{op1}{op} . ' ' . _emit( $n->{exp2} );
}

sub circumfix {
    my $n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7667	7773	
==>push @ret, $self->add_file(file => $_) for @_;
# 
#     return @ret;
# }

=head2 $bool = $repo->add_file(fi <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1825	1944	
==>x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29951	30049	
==>taint clean, don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO fa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	935	1032	
==>t.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although it is secu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	935	1032	
==>t.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although it is secu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3038	3166	
==>st;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3038	3166	
==>st;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4326	4609	
==>);
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4326	4609	
==>);
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18103	18201	
==>y of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structure <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18103	18201	
==>y of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structure <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	686	788	
==>S

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	686	788	
==>S

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1609	1708	
==>ue) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $st <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1609	1708	
==>ue) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $st <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10387	10503	
==>ned $test{skip_all} and length $test{skip_all}) {
                print "skipped\n        all skipped: $test{skip_all <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	441	539	
==>Prelude->env, $prog);
}

sub compiler_class { "Blondie::Compiler" }

sub provides {
    die "virtua <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4821	4953	
==>> chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tild <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4821	4953	
==>> chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tild <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11914	12008	
==>the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

R <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11914	12008	
==>the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4224	4367	
==>*@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4224	4367	
==>*@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38337	38441	
==>arameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into it, where ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38337	38441	
==>arameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into it, where ea <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2605	2747	
==>description' => sub { _('$.description') },        
        'status' => sub {
            return {
                passed      => _('$.passed') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12809	12950	
==>@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8096	8254	
==>b ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8096	8254	
==>b ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1481	1615	
==>ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1448	1582	
==>ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	714	827	
==>file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	714	827	
==>file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns S <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2019	2151	
==>ogram available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1997	2129	
==>ogram available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3096	3391	
==>okie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expire <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3096	3391	
==>okie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expire <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3469	3572	
==>mpare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3469	3572	
==>mpare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::F <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7530	7633	
==>d with it's still free variable
	$_[0]->instantiate($_[1]);
};
multi unify => ('type::operator', 'type:: <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6519	6617	
==>rve ordering anyway and it's probably okay to keep a few
# zombies around for a relatively short wh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26300	26446	
==>ses'));                
            }
        )
    )
);

=pod

method add_subclass (opaque $self: opaque $subclass) returns nil {
    @:subclasses <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4767	4887	
==>iled: $!";
        }

        system($ar, r => $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPU <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2383	2494	
==>>quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2383	2494	
==>>quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11392	11501	
==>ng metaclass singleton method fails';
fails_ok { $iBar->singleton_test_on_object } '... instance calling metac <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9025	9132	
==>self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9025	9132	
==>self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1702	1806	
==>version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1702	1806	
==>version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10190	10311	
==>:File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $out <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	19	156	
==>:Attribute;

use Perl6::Core::Symbol;

package attribute;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	482	610	
==>E__->can($1);

        no strict 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_construct <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	456	570	
==>er - creates an Array [of Array]* of Str

sub parse (@start, $token, @end, @_ is rw) {
    state %tok = (
        h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15550	15642	
==>moves quantifiers as objects, and makes 'min' and 'max' attributes of
other objects themselve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4533	4635	
==>piler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4378	4477	
==>piler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1594	1693	
==>Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1594	1693	
==>Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'state <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24587	24712	
==>d test$ender: $good okay, ";
        if ($max) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $skip <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1076	1187	
==>ondition must be a block";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

su <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	20	109	
==>r simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.p <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	38	127	
==>r simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12064	12185	
==>tart => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12064	12185	
==>tart => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26040	26149	
==>I made sure of this in
my code; you should make sure in yours.

Matching against the regex is done in scalar c <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3389	3493	
==><word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^\^ }
rule assert_e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8633	8736	
==>t call singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24340	24432	
==>= type::operator::arrow->new(
		my $a = type::variable::free->new,
		my $b = type::variable:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	426	545	
==>).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	426	545	
==>).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16629	16756	
==>0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Results

The C<%re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1713	1825	
==>eturn canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1713	1825	
==>eturn canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5654	5766	
==>= $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5654	5766	
==>= $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3957	4064	
==>en

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3957	4064	
==>en

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4134	4246	
==>match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4192	4304	
==>match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thro <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1264	1361	
==>en', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1264	1361	
==>en', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5405	5547	
==>e::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINKING unless -d $my_bindir;

        ### load <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10196	10339	
==>$port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10196	10339	
==>$port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3080	3246	
==>round = round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $r <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	66	179	
==>indungsoperator
$x := $y; # $x ist nun der selbe Container wie $y

#=Bindungsoperator (statisch)
$x ::= $y; # $x i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4675	4805	
==>ass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7398	7528	
==>ass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1773	1865	
==>D_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
qui <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	760	864	
==>here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	760	864	
==>here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	513	640	
==>ne");
    return
        Date::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hour <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	652	778	
==>.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	652	778	
==>.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26879	26986	
==>ut (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but that the returned Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31431	31538	
==>ut (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but that the returned Relat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31890	31992	
==>y generates an error
message and wants it shown to the user, the main program would check each
of the 3 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31890	31992	
==>y generates an error
message and wants it shown to the user, the main program would check each
of the 3 <==
2	/Users/nnunley/pugs/misc/Date/lib/Time/Zone.pm	9	109	
==>me::Zone;

has Str $.tz;

sub tz(Str $tz) returns Time::Zone is export {
    Time::Zone.new(:tz($tz)) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3013	3106	
==>class, %options) = @_;
    (exists $options{params} && blessed($options{params}) && $options{p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5248	5364	
==>mmar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compiler::Regex->compile( q(
            <P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3920	4015	
==>ength = 1 if not defined $length;
  return (substr $target, $pos, $length) =~ $regularExpression <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8028	8207	
==>,
            allow       => FILE_EXISTS
        },
        force => {
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or er <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	704	879	
==>ss;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(map { &$f($_) } @$self);
    }

    sub values { <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	352	468	
==>th:{ $a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 finished: $a is now < -100'
}
while ($sti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3240	3348	
==>} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser::digit;
  push @ISA, qw( Regexp::Parser::__obje <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1890	1993	
==>}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => tim <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1890	1993	
==>}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => tim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8255	8371	
==>"unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8267	8383	
==>"unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #retu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32705	32802	
==>he new Relation contains all the tuples of the source Relations, including
one copy each of any du <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37255	37352	
==>he new Relation contains all the tuples of the source Relations, including
one copy each of any du <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1891	2017	
==>hey
contain ASTs that are compiled by the compiler into a single AST.

A mapping from symbols to values:

    Blondie::Env->new <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2209	2312	
==>ce => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2209	2312	
==>ce => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_un <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	888	989	
==>ent 
character encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API ha <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	888	989	
==>ent 
character encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API ha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3398	3503	
==>ashed with the 
key, not merely appended to it; appending can create precisely the sort of weak 
keying th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3398	3503	
==>ashed with the 
key, not merely appended to it; appending can create precisely the sort of weak 
keying th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9287	9381	
==>NODE VRat ($value) { "p6_Rat($value->[0],$value->[1])" }
NODE VNum ($value) {
    return "p6_Nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16640	16740	
==>rcise, a jump-start to built-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19847	19947	
==>y to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks hav <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19847	19947	
==>y to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks hav <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1535	1637	
==>makemaker_args.

    $args->{test} ||= {TESTS => $self->tests};

    if ($] >= 5.005) {
	$args->{ABSTRA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	499	623	
==>'.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	499	623	
==>'.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$po <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9025	9172	
==>g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9025	9172	
==>g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4721	4844	
==>',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4721	4844	
==>',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron" <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4876	4976	
==>tests = LoadFile("tests.yml");

# Reading and processing .t files
my $files = {}; # mapping from test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1640	1769	
==>:Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1780	1909	
==>:Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4680	4776	
==>es depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4930	5026	
==>es depends on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7323	7453	
==>atch->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7323	7453	
==>atch->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # X <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	39	141	
==>ule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

ha <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	39	141	
==>ule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11419	11571	
==>tant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_dec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11698	11850	
==>tant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_dec <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1529	1633	
==>->tokenTable()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	5	102	
==>le Prelude::PIR-0.0.1;
# XXX -- for some reason, compilation doesn't work if the above line is unc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13195	13291	
==>)`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13195	13291	
==>)`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	547	721	
==>= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $dee <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	21	135	
==>e::Install;

# For any maintainers:
# The load order for Module::Install is a bit magic.
# It goes something like t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	227	348	
==>"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::Fal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	227	348	
==>"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::Fal <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3050	3207	
==>[ $^X $preinst ] )                and die $?;
            }
        
            print "Installing code...\n";
            system( qq[cp -R $Builddir/$path $S <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24138	24239	
==>ty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5524	5659	
==>indir;

        ### load in the alternatives collection
        my @alts = @{ $self->registered_alternatives };
        
        ### che <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19479	19598	
==>lation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20476	20595	
==>lation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7937	8046	
==>$self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7937	8046	
==>$self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    ret <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1907	2025	
==>'gcc')
     {
      $minus_o = "-o $exename.exe";
     }
    print "# Compiling $exename.c\n# $Config{cc} $Config{c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18109	18263	
==>"is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18388	18542	
==>"is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3973	4071	
==>fix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3973	4071	
==>fix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: Str $ending <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37125	37219	
==>e trickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37125	37219	
==>e trickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19039	19145	
==>,"\n" if $eval_log_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13107	13380	
==>ash')
                          ),
                returns => 'opaque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->o <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11723	11854	
==>$r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6705	6795	
==>ch($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $m;
print $m->describe,"\n" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22736	22840	
==>late can optionally use them; but often a template will
choose to show less than all of the available det <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22736	22840	
==>late can optionally use them; but often a template will
choose to show less than all of the available det <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3307	3437	
==>h => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3500	3630	
==>h => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12006	12129	
==>-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12006	12129	
==>-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4626	4828	
==>rom_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4626	4828	
==>rom_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	672	771	
==>`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	672	771	
==>`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25046	25146	
==>isplayed by your program.  The Message class is pure and deterministic,
such that all of its class an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25046	25146	
==>isplayed by your program.  The Message class is pure and deterministic,
such that all of its class an <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6456	6553	
==>tItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6456	6553	
==>tItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType', <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	921	1016	
==>nciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	921	1016	
==>nciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4014	4127	
==>_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4014	4127	
==>_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	741	839	
==>S, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XOR <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	741	839	
==>S, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XOR <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2018	2238	
==>iven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2018	2238	
==>iven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4984	5118	
==>:)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4984	5118	
==>:)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11174	11297	
==>ndler('.' => sub {
    my ($S) = @_;
    return $S->object(reg_any => sany => '.');
  });


  ### '|'

  $self->add_handler( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3093	3206	
==>', 'design' ))) {
        $syn_src_dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	578	694	
==>my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	740	856	
==>my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1835	1961	
==>ary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1835	1961	
==>ary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	215	304	
==>untime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	215	304	
==>untime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4995	5096	
==>return [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4995	5096	
==>return [@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2374	2472	
==>e v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2374	2472	
==>e v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1128	1283	
==>ure_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

ou <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1128	1283	
==>ure_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22327	22456	
==>refix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18748	18877	
==>refix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32301	32403	
==>ext expects its Template modules to come
from Perl modules, but in the future they may alternately be s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32301	32403	
==>ext expects its Template modules to come
from Perl modules, but in the future they may alternately be s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1856	1982	
==>method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1856	1982	
==>method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10525	10646	
==>d scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10525	10646	
==>d scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $pa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17369	17525	
==>));
                $h->push_content($backlink);
                my $t = HTML::Element->new('sup');
                $t->push_content('T');
                $b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2692	2801	
==>Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2692	2801	
==>Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $fie <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9997	10083	
==>hould permit \misc, no?
set_metachar("\\").
set_metachar("]").
set_metachar("-").
p5_ch <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	304	406	
==>) )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there are u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	304	406	
==>) )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there are u <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11042	11162	
==>de?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11042	11162	
==>de?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7606	7844	
==>ys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe ( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8070	8308	
==>ys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe ( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2785	2962	
==>ny $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6262	6439	
==>ny $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2141	2249	
==>= ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $mes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2141	2249	
==>= ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $mes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6278	6411	
==>my \$out; my\(\$self\)=/;

    #print $p;
    eval $p;
    die "$@\n" if $@;
}

BEGIN {
    #~ __PACKAGE__->add_rule( 
        #~ # to <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	597	705	
==>t needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to de <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	597	705	
==>t needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to de <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3159	3321	
==>r 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delet <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3159	3321	
==>r 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delet <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3147	3257	
==>=> {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestB <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3333	3443	
==>=> {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestB <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18237	18334	
==><bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18237	18334	
==><bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8511	8615	
==>is before using it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take res <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8511	8615	
==>is before using it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take res <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27760	27864	
==>PT_COPY_DONE)
 #define RX_MATCH_COPIED_on(prog)	((prog)->reganch |= ROPT_COPY_DONE)
 #define RX_MATCH_COP <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5199	5293	
==>d = $thunk->val->struct_equiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5711	5814	
==>. Depending on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5711	5814	
==>. Depending on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The H <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6149	6242	
==>ate = HTML::Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	825	936	
==>'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	782	889	
==>'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	101	260	
==>,
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	101	260	
==>,
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5475	5603	
==>CxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5475	5603	
==>CxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2013	2119	
==>ssoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postci <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2013	2119	
==>ssoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	493	604	
==>ss ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1217	1327	
==>ss ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	523	659	
==>ls::MM_Unix->parse_version($modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ". <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2814	2940	
==>ect required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3278	3404	
==>ect required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	239	357	
==>ly hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	239	357	
==>ly hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1197	1295	
==>er contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1197	1295	
==>er contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2314	2437	
==>:alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2325	2448	
==>:alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&ter <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2631	2911	
==>s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbati <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2631	2911	
==>s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbati <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2408	2538	
==>($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2408	2538	
==>($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15009	15122	
==>e into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15009	15122	
==>e into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Dig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10996	11160	
==>d, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10996	11160	
==>d, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17416	17515	
==>alike.

For some practical examples of Locale::KeyedText in use, see the /examples
directory of this <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17416	17515	
==>alike.

For some practical examples of Locale::KeyedText in use, see the /examples
directory of this <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2934	3040	
==>ep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2934	3040	
==>ep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12507	12625	
==>l>
    | <ObjectLiteral>
    | <'('> <Expression> <')'>
}
rule ArrayLiteral :words {  # see 11.1.4
      <'['> <Elision <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	202	311	
==>om_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1::BB::pugs;
    $pugs = $EN <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7320	7540	
==>ewnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_na <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7320	7540	
==>ewnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30040	30169	
==>all it if there is.
I don't want atom to handle ')', so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7359	7447	
==>tion_alternative(R2).
p5_condition_alternative(R)    --> "|", p5_concatenation(R), ")", ! <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4493	4585	
==>}
rule symbolic_indirect_rule { \<(!?)\:\:\( <code> \)\> }

rule character  { <a_dot>|<logica <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7359	7508	
==>my $mask    = -d $file ? 0100 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        error("Fa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2687	2782	
==>emainder) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extracted = substr( $ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	920	1069	
==>santa.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub GolfScore {
   my $script = shift;
   open(FF, $script) or die "error: open '$scr <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	402	527	
==>perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p,$v)=split('=',$_);
            CookiesAdd($p,$v);
        }
    }
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1152	1270	
==>e() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2043	2160	
==>e() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2221	2316	
==>ly 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will caus <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2221	2316	
==>ly 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> will caus <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3186	3315	
==>3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3186	3315	
==>3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20086	20184	
==>neral order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to decla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20086	20184	
==>neral order.
So inner blocks get compiled first, then outer blocks.

A compiler may choose to decla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18753	18857	
==>kage> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18753	18857	
==>kage> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1250	1378	
==>ort {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1308	1436	
==>ort {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $exp <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6770	6888	
==>5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e){warn(Carp::longmess($e))};# XXX doesnt wor <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3783	3959	
==>g.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $st <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3783	3959	
==>g.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $st <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4299	4415	
==>t is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs all the given I<@test_files> and d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	105	206	
==>POSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->root( Path::Class::dir( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16951	17045	
==>s value indicates what additional
encoding mechanism has been applied to the resource.

=item $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16951	17045	
==>s value indicates what additional
encoding mechanism has been applied to the resource.

=item $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21309	21435	
==>ique across all Perl packages
(perhaps the key name can start with the package name?).  An advantage of
this is that, for examp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21309	21435	
==>ique across all Perl packages
(perhaps the key name can start with the package name?).  An advantage of
this is that, for examp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4394	4506	
==>omplement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4394	4506	
==>omplement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1839	1940	
==>);

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset num of num32  where { true }');
Helpers::macif <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	183	279	
==>all::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERS <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	308	439	
==>for my $entry ( @List ) {

        ### find the entry to install
        next unless $entry->{package} eq $package;

        ### and <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30074	30171	
==>erbose.

Change internal list of test results to a hash.

Fix stats display when there's an overru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2462	2582	
==>$status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2462	2582	
==>$status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($ne <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3358	3460	
==>($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3416	3518	
==>($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    T <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37345	37451	
==>al_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41894	42000	
==>al_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2038	2164	
==><ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2038	2164	
==><ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2438	2558	
==>plemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2622	2742	
==>plemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1391	1485	
==>::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1391	1485	
==>::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	241	345	
==>?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* < <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	241	345	
==>?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* < <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17459	17585	
==>de $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17459	17585	
==>de $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5140	5320	
==>how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5140	5320	
==>how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                } <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	762	929	
==>ar eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_sl <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	762	929	
==>ar eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_sl <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1664	1781	
==>n';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what f <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1664	1781	
==>n';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5	148	
==>1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to z <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5	148	
==>1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to z <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	52	144	
==>ire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	52	144	
==>ire 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1321	1447	
==>rn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1321	1447	
==>rn $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20460	20565	
==>ot use it in production.

For production use, there should be a wide variety of third party Engine
modules <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20460	20565	
==>ot use it in production.

For production use, there should be a wide variety of third party Engine
modules <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19712	19813	
==>compile sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19712	19813	
==>compile sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<u <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10953	11069	
==>}

  # Read a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10953	11069	
==>}

  # Read a line from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3951	4051	
==>lass', '... $Class got the right method return value');
is($Class->superclass, $Object, '... $Class i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5853	5953	
==>lass', '... $Class got the right method return value');
is($Class->superclass, $Object, '... $Class i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12104	12212	
==>erty)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4747	4855	
==>erty)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18877	19001	
==>on...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15298	15422	
==>on...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2181	2286	
==>ROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2321	2426	
==>ROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th line
9th line
10th line
11th line <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5813	5918	
==>ft a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5813	5918	
==>ft a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $cha <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2844	2953	
==>t( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2844	2953	
==>t( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5226	5331	
==>$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5226	5331	
==>$_}<channels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16649	16742	
==>nalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | <Equ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2977	3084	
==>@a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2977	3084	
==>@a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16272	16400	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12693	12821	
==>> sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	288	433	
==>ery_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	288	433	
==>ery_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1337	1460	
==>ternal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1337	1460	
==>ternal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23230	23336	
==>tion Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27782	27888	
==>tion Is Mutable>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2904	3009	
==>to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2904	3009	
==>to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connec <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	277	412	
==>ecause of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	277	412	
==>ecause of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this su <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5707	5816	
==>%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Por <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5707	5816	
==>%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Por <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12884	12982	
==>ns the last element in the recurrence.

Returns positive infinite if the recurrence is infinite.
Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12884	12982	
==>ns the last element in the recurrence.

Returns positive infinite if the recurrence is infinite.
Re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4113	4223	
==>al_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4113	4223	
==>al_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6830	6928	
==>ent to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6830	6928	
==>ent to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9522	9645	
==>tem: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(D <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10606	10728	
==>returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10606	10728	
==>returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3454	3552	
==>:Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistri <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3454	3552	
==>:Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can redistri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3489	3607	
==>t::CGI object).  The following methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3489	3607	
==>t::CGI object).  The following methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=i <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	69	185	
==>from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * /

# Pugs note: change " <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	51	144	
==>from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * / <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4349	4441	
==>peration to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4349	4441	
==>peration to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3041	3176	
==>y $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3542	3677	
==>y $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8195	8376	
==>atch: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8195	8376	
==>atch: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# exp <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17151	17261	
==>B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),F <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17308	17418	
==>B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21391	21486	
==><gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21391	21486	
==><gt>("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receives a c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	943	1091	
==>ure->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24599	24723	
==>my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'groupp',
      nparen => $nparen,
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7170	7287	
==>Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7170	7287	
==>Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	661	752	
==>ernalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5195	5350	
==>eop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5031	5182	
==>eop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11644	11769	
==>g  => sub {
      utime undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_") {
          mkdir "$initrd <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1180	1274	
==>etition> | <alias> | <simple_term> }

rule repetition  { <simple_term> <quantifier> }
rule quan <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5013	5267	
==>vent ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # eq <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5013	5267	
==>vent ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # eq <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1751	1853	
==>iled'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	325	446	
==>, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	325	446	
==>, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10256	10349	
==>efined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10991	11084	
==>efined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20720	20847	
==>> sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17141	17268	
==>> sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12269	12419	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12548	12698	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { gramma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13736	13850	
==>debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # J <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13736	13850	
==>debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # J <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8783	8883	
==>ile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8783	8883	
==>ile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'perso <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1954	2082	
==>urn JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototype]]>;
    return JSX::tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10308	10412	
==>eturns the depth to which it will
look:

  while (my ($node, $depth) = $iter->()) {
    if ($depth == $it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15983	16082	
==>tead of
the document itself.

=item $h.last_modified

This header indicates the date and time at whi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15983	16082	
==>tead of
the document itself.

=item $h.last_modified

This header indicates the date and time at whi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4238	4410	
==>Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8708	8814	
==>=> sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8708	8814	
==>=> sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &continue) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9072	9235	
==>/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9072	9235	
==>/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3548	3730	
==>ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3548	3730	
==>ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	656	786	
==>i did not understand (or try very hard to understand) the modula 2 code, so
# the impl is probably different)


use utf8;
use stric <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6045	6158	
==>);
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $o->mk_eater_for_re('\B') if $re eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	96	201	
==>Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    pri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	96	201	
==>Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    pri <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	685	850	
==>os.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	685	850	
==>os.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9177	9289	
==>this - failed matche's .end is undefined

=cut



### current implementation is always anchored at ^

### because <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8876	8984	
==>this - failed matche's .end is undefined
=cut

### current implementation is always anchored at ^
### because <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10504	10687	
==>name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10504	10687	
==>name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18200	18297	
==>to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the mai <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18200	18297	
==>to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the mai <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8618	8754	
==>gs-HsSyck -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UN <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13496	13598	
==>. This means that side effects, such as "say" and
database queries, may occur much later than expected. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13496	13598	
==>. This means that side effects, such as "say" and
database queries, may occur much later than expected. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	680	783	
==>the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support enciphering individ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	680	783	
==>the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support enciphering individ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20756	20871	
==>::Install makes it terribly easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20756	20871	
==>::Install makes it terribly easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9616	9714	
==>that will traverse the entire parse tree,
to any depth.  To restrict the depth to which it reaches, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	805	934	
==>my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	805	934	
==>my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12379	12565	
==>subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12373	12559	
==>subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	342	610	
==>adonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	342	610	
==>adonly = q{};

###########################################################################
###########################################################################

package Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2641	2776	
==>quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2641	2776	
==>quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] captur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6302	6395	
==>an}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6302	6395	
==>an}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35485	35608	
==>ds = @{ $self->{data} };

Here, @kids is an array that holds array references; each of those array
references is the body of <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2906	3019	
==>( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PStmt"' {
        $ret = emit_Stmt( traverse_ast ( $tree[1][0][ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	24	123	
==>::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	24	123	
==>::Block is Cipher;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28990	29087	
==>mapping! ) returns Relation::Example>

This method is a generic relational operator that returns a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13234	13367	
==>eprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13234	13367	
==>eprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        r <==
2	/Users/nnunley/pugs/util/package-osx.pl	3245	3387	
==>/Pugs/.packlist
        /Library/Perl/5.8.6/v6.pm
        /Library/Perl/5.8.6/Inline/Pugs.pm
        /usr/local/info/readline.info
        /usr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4866	4962	
==>ounds_RHS(Min ,Min) --> {true}.

%# XXX - spaces permitted around **
p6_range(W, Z) --> "**{", !, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16796	16892	
==>aving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically lo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16796	16892	
==>aving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 will automatically lo <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5531	5635	
==>S

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Reg <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5531	5635	
==>S

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Reg <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4643	4776	
==>'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7366	7499	
==>'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2996	3140	
==>ule: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30022	30123	
==>r installed, and call it if there is.
I don't want atom to handle ')', so the handler is:

  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2935	3058	
==>ot implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3784	3907	
==>ot implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	169	274	
==>s(
  "smokeserv=s" =>
    \(my $smokeserv = "http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1957	2061	
==>s->id->to_native;             
}

$::ENV = Perl6::Runtime::get_top_level_env();

## --------------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	163	293	
==>re $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	163	293	
==>re $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	771	872	
==>$nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people sp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	771	872	
==>$nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people sp <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	118	224	
==>QUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCOD <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	118	224	
==>QUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCOD <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9101	9203	
==>rint_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2926	3028	
==>rint_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4178	4380	
==>has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4178	4380	
==>has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2928	3026	
==>n which they were
present in the query string is preserved.

=item C<$q.param()>

This exists as an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2928	3026	
==>n which they were
present in the query string is preserved.

=item C<$q.param()>

This exists as an <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6408	6558	
==>$ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please instal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1257	1371	
==>le perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20260	20400	
==>length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16681	16821	
==>length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4921	5060	
==>ocal $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18873	18968	
==>nalExpressionNoIn>
    | <LeftHandSideExpression> <AssignmentOperator> <AssignmentExpressionNoIn <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8938	9044	
==>Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8996	9102	
==>Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1011	1118	
==>export_attrs of Relation::LaxAttrList () {
    return %!attrs;
}

method export_attr_names of List of Relati <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3147	3250	
==>versal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3147	3250	
==>versal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1640	1734	
==>-----------------
## informational methods

method is_root returns Bool { $!parent.defined ?? 0 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1640	1734	
==>-----------------
## informational methods

method is_root returns Bool { $!parent.defined ?? 0 <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	539	638	
==>@dir = glob "/home/*/public_html/*";
my @users = keys %{ { map { (split m[/])[2] => undef } @dir } } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41593	41687	
==>le>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5387	5554	
==>e {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5387	5554	
==>e {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6671	6796	
==>"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6671	6796	
==>"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4889	5060	
==>d) . "\n";
        }
        unshift(@mess, "#      got "._q($got)."\n",
                       "# expected $type "._q($expected)."\n");
    }
    _ok($pass, _where(), $nam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40788	40881	
==>eing informed any time you create a
modified version of Locale::KeyedText that you are willing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40788	40881	
==>eing informed any time you create a
modified version of Locale::KeyedText that you are willing <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19763	20046	
==>t('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40223	40506	
==>t('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14520	14721	
==>nt( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14799	15000	
==>nt( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31840	31934	
==>) returns Relation>

This multi-method is a generic binary relational operator that takes a sin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36390	36484	
==>) returns Relation>

This multi-method is a generic binary relational operator that takes a sin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11221	11357	
==>numeric => sub { $_[0] ? 1 : undef },
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6180	6300	
==>\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6168	6288	
==>\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7738	7860	
==>print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7738	7860	
==>print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22327	22424	
==>tice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22327	22424	
==>tice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3107	3223	
==>self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3107	3223	
==>self.from_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4685	4789	
==>f the role for does()
        $roles{::opaque_instance_attrs($role)->{'$:name'}} = undef;
        foreach <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2732	2832	
==>ist} = $self->admin->preop;
    }

    ExtUtils::MakeMaker::WriteMakefile(%args);

    $self->fix_up_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13351	13618	
==>->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$canidate' => str->new('P6opaque'))
                  })); 
                # create and init the object
                $e-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6838	6946	
==>er = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulong)exp);

  if(handler == NULL) {
    SV* sv;
    s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1299	1410	
==>.');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1299	1410	
==>.');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($mat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1138	1271	
==>type";
    return $self->{$key->to_str->to_native};
}

sub store {
    my ($self, $key, $value) = @_;
    (blessed($key) && $key->isa( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6631	6732	
==>/, @_;
    push @libs, grep /^-[lL]/, @_;
    push @libs, grep /\.(?:a|o(?:bj)?|\Q$Config{so}\E)$/, @_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3428	3552	
==>LAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.re <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3428	3552	
==>LAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12376	12486	
==>span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This class implements both ty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12376	12486	
==>span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This class implements both ty <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9309	9405	
==>sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3134	3230	
==>sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
pu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6027	6193	
==>et ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6027	6193	
==>et ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3128	3254	
==>) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3128	3254	
==>) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7882	8026	
==>=> 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7882	8026	
==>=> 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2962	3166	
==>ass'}) {
                    $eigenclass->superclass(
                        ::opaque_instance_class($attrs{'$:superclass'})
                    );                
                }
                else { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8910	9026	
==>intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8910	9026	
==>intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doe <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1916	2038	
==>{ return };
}

sub add_smoke {
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "pugs-smoke-*-$id.ht <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2892	3007	
==>allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2892	3007	
==>allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $conn <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4781	4893	
==>thod add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4781	4893	
==>thod add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $spa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1373	1513	
==>($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1373	1513	
==>($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $no <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1390	1486	
==>/$1\\x{24}$2/g; # work around two uninteresting tests.
	$expr =~ s/\$&/\".\$m.\"/g;
	$expr =~ s/\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4601	4799	
==>r_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4601	4799	
==>r_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2419	2541	
==>ite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2419	2541	
==>ite::Functional $set ) returns Set::Infinite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @ <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	996	1138	
==>ss $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $topic ~~ $wikiwords;
        %wiki{$topic} = $entry;
        my $fh = open( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4001	4159	
==>a $path] )
                                                        and error($?), return;
        system( qq[tar -f $control --exclude .svn -C $path/$jibdir -c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13138	13229	
==>on>
    | <PropertyNameAndValueList> <','> <PropertyName> <':'> <AssignmentExpression>
}
rul <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4499	4624	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$foo] <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4891	5016	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$foo] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8527	8636	
==>(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2352	2461	
==>(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3499	3596	
==>erfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must first c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3499	3596	
==>erfaces are layers on top of the object-oriented backend.

To use the Cipher API, you must first c <==
2	/Users/nnunley/pugs/util/version_h.pl	1860	1959	
==>les again. If we opened a new file ($version_h) without turning
  # "io" warnings off, perl will pri <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14252	14347	
==>@keytests)> as true are iterated.

What is returned at each element of the iteration varies with <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11662	11777	
==>.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a single string

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11662	11777	
==>.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a single string

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8075	8164	
==>ariable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1900	1989	
==>ariable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1740	1860	
==>t, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1798	1918	
==>t, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::p <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7896	8002	
==>ive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reac <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7896	8002	
==>ive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reac <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	128	218	
==>->addToken("term:::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term::::", <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4337	4468	
==>atch =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4349	4480	
==>atch =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5529	5683	
==>$href );

                my $postinst = $meta_dir . '/'. $Postinst;
                if( -e $postinst && -s _ ) {
                    system( qq[ $^X $post <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4514	4719	
==>ebug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4514	4719	
==>ebug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23159	23257	
==>nctionExpression :words {  # see clause 13
      <'function'> <Identifier>? <'('> <FormalParameterL <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	676	805	
==>t
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	676	805	
==>t
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	299	406	
==>it error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compar <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	299	406	
==>it error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11425	11574	
==>tity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(spri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11425	11574	
==>tity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(spri <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	116	215	
==>das eleganter:
if any(wurf(), wurf(), wurf()) == 6 {
	... # aber: wurf() wird immer genau drei mal a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	13	143	
==>le File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	13	143	
==>le File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix' <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	78	183	
==>dras Barthazi
#  This code is totally free, use it as you want
# ----------------------------------------- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	78	183	
==>dras Barthazi
#  This code is totally free, use it as you want
# ----------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1353	1453	
==>4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases th <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1353	1453	
==>4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases th <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	158	256	
==>elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	158	256	
==>elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2831	2956	
==>.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2831	2956	
==>.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14859	14976	
==>fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14859	14976	
==>fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $dig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	979	1104	
==>field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	979	1104	
==>field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $fiel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2886	3010	
==>no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2886	3010	
==>no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5436	5555	
==>umber of lines to skip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5436	5555	
==>umber of lines to skip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	125	220	
==>ipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	125	220	
==>ipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26083	26188	
==>make sure in yours.

Matching against the regex is done in scalar context, globally, like so:

  if (${&Rx <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4610	4707	
==>n.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4610	4707	
==>n.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32845	32941	
==>r reading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Tran <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32845	32941	
==>r reading, mainly in the
C<translate_message()> method, but it has no other side effects.

A Tran <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	347	454	
==>- this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    % <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	347	454	
==>- this version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    % <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2885	3013	
==>ion

    Or add
        smoke_upload: 1 
    to your config.yml file if you want the reports to be uploaded
    automatically.
EO <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23884	23996	
==>at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29061	29161	
==>at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2538	2632	
==>6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class Per <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2538	2632	
==>6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class Per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14703	14815	
==>""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14703	14815	
==>""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $target $mode") <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	48	145	
==>sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing inst <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	48	145	
==>sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing inst <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1023	1135	
==>b) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1023	1135	
==>b) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12685	12789	
==>e.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if the recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12685	12789	
==>e.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if the recurrenc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15719	15878	
==>ks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the commen <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19952	20111	
==>ks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the commen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3630	3807	
==>od_list' => sub ($) {
            my ($self) = @_;
            keys %{::opaque_instance_attrs($self)->{'%:methods'}};
        },                             
    },
);
# The 'Obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7714	7836	
==>- workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7714	7836	
==>- workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7540	7676	
==>Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20076	20173	
==>.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname conta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20076	20173	
==>.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname conta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5788	5889	
==>n a negative value for
# relative seconds and a positive value for epoch based time values.
#sub retry <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5788	5889	
==>n a negative value for
# relative seconds and a positive value for epoch based time values.
#sub retry <==
2	/Users/nnunley/pugs/util/package-osx.pl	11752	11872	
==>-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    system("sudo -S chown -R root:wheel $dest < ~/.pass");
}

&change_fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1449	1561	
==>x:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM'=>{num=>'3'}], 
    [ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	584	833	
==>ven version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	584	833	
==>ven version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	910	1013	
==>o the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	910	1013	
==>o the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3683	3835	
==>new_alt) = sort { $b->{version} <=> $a->{version } } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6922	7015	
==>ew;
	$self->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $se <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2859	2957	
==>ack


=head2 Failure

When tests fail, analyze the summary report:

  t/base..............ok
  t/no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35590	35697	
==>ead2 open

Family: open

Types: open1, open2 ... openN (C<(>)

Data: array reference of any number of object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10786	10886	
==>e visual() method:

  my $rx = $parser->visual;

This will not return a F<Regexp> object, but the reg <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4293	4401	
==>`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterd <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4293	4401	
==>`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22744	22886	
==>down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23246	23388	
==>down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4647	4746	
==>l, \%hash ) or error( Params::Check->last_error ), return;

    for my $inst ( @{ $self->available } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5621	5709	
==>mmar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14528	14726	
==>" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14807	15005	
==>" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16968	17079	
==>tines) and write the rest of the
application in their other language(s) of choice.  Assuming the main
applicatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16968	17079	
==>tines) and write the rest of the
application in their other language(s) of choice.  Assuming the main
applicatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27092	27208	
==>t {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $self->SUPER::init();

    # now add your own <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16872	16984	
==>$_[0]);
    die("p6_meta: undefined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	599	721	
==>idity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the fi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1083	1205	
==>idity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the fi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5921	6030	
==>= normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5921	6030	
==>= normalize $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2392	2548	
==>ic'};
        }
    },
    methods => {
        'number'      => sub { _('$.number') },
        'passed'      => sub { _('$.passed') },        
        'diag <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	98	187	
==>} <<'END';
<html>
<head>
<title>Public HTML</title>
</head>
<script>
function openNewWindo <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1835	1950	
==>fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $ms <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14403	14504	
==>e thing we're appling must be a function
	die "Can't apply non function type (" . $.fun . " has type " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3398	3533	
==>PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right',
        precedence => 'looser',
        other => '||',
    );
    _ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4726	4828	
==>apheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <characte <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1503	1655	
==>Hello, @args[0]!";
            }

            ...;
        }
    }
  }

  my $session = MySession.new;
  say $POE::Kernel.post($session, "say_hello", "In <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1661	1770	
==>>to_native};
    nil->new();
}

sub keys { 
    my %native = (shift)->to_native;
    list->new(map { str->new( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3097	3186	
==>nion($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::H <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3097	3186	
==>nion($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::H <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19167	19263	
==>mulation layers for any other programming language can
be supported, such as Tutorial D or XQuery <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19167	19263	
==>mulation layers for any other programming language can
be supported, such as Tutorial D or XQuery <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1907	2001	
==>f $received != $sent and $reduced->isa("Blondie::Thunk"); # FIXME - enforce param checking on s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4351	4477	
==>ey[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4351	4477	
==>ey[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0. <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	418	597	
==>self = shift;

    my $schema = $self->schema;

    for my $class ( $schema->classes ) {

        class($class->name =>
              { instance =>
                { methods => { m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2553	2723	
==>ew(:node<Macro>)
                            ),
                            Tree.new(:node<Block>).add_children(
                                Tree.new(:node<Bare>).add_ <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	193	293	
==>ntaining a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub ev <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	249	349	
==>ntaining a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub ev <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8389	8484	
==>line_interpolation')>

This event is begun when any block of characters is interpolated for modi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8389	8484	
==>line_interpolation')>

This event is begun when any block of characters is interpolated for modi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26214	26322	
==>yright
holders of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright ho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26214	26322	
==>yright
holders of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright ho <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	262	368	
==>. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they fail (se <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	262	368	
==>. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they fail (se <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1499	1645	
==>pen || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1499	1645	
==>pen || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17945	18049	
==>s to be in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter ,  Str $input = CA <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17678	17771	
==>E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx <==
2	/Users/nnunley/pugs/util/package-osx.pl	3303	3406	
==>/Library/Perl/5.8.6/Inline/Pugs.pm
        /usr/local/info/readline.info
        /usr/local/info/rluserm <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2496	2622	
==>x
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(in <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2496	2622	
==>x
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	472	569	
==>C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	472	569	
==>C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to m <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	442	533	
==></p>
<p>
These users have something in their <tt>~/public_html</tt> directory:
</p>
<ul>
END <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7130	7276	
==>$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7130	7276	
==>$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12577	12680	
==>nted, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12577	12680	
==>nted, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the objec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15028	15136	
==>ad2 Introduction

Many times during a program's operation, the program (or a package it uses)
will need to di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15028	15136	
==>ad2 Introduction

Many times during a program's operation, the program (or a package it uses)
will need to di <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13359	13465	
==>you should never refer directly to "Locale::KeyedText" in
your code; instead refer to other above-named pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13359	13465	
==>you should never refer directly to "Locale::KeyedText" in
your code; instead refer to other above-named pac <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1068	1398	
==>reen, " .
                            "fontcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $node->name . "(" . $node <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	322	419	
==>t->next;

=head1 DESCRIPTION

B<FOR INTERNAL USE ONLY!>

This is a simple iterator wrapper for arr <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2124	2236	
==>irectory from where script was invoked
    $Script      - basename of script from which perl was invoked
    $Rea <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2124	2236	
==>irectory from where script was invoked
    $Script      - basename of script from which perl was invoked
    $Rea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20697	20799	
==>lf->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17118	17220	
==>lf->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13152	13251	
==>edText" package serves only as the name-sake
representative for this whole file, which can be refere <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13152	13251	
==>edText" package serves only as the name-sake
representative for this whole file, which can be refere <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18981	19107	
==>ata} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20339	20465	
==>ata} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4935	5088	
==>e Moose' : '' ) .
                ";use Exporter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} eq 'use' ) {
            # use v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1291	1388	
==>mple version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1291	1388	
==>mple version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19800	19907	
==>ly 1, 2004

=over 4

=item Better Abstracting

The object() method calls force_object().  force_object() cre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18155	18278	
==>ults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INV <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18155	18278	
==>ults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INV <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6395	6504	
==>Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6179	6286	
==>Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2185	2349	
==>r::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_op( {
        name => '+',
        block => sub {},
        assoc => 'left',
        precedence <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19313	19458	
==>eading )
            } ) === any( $other!body.values )
        } ),
    );
}

my method _product (Relation::Example $other!) returns Relation::Exa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7131	7236	
==>d" };
sub code  { die "not implemented" }
sub match { die "not implemented" }
sub perl5 { die "not impl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5523	5626	
==>le ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5523	5626	
==>le ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4399	4510	
==>le-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4399	4510	
==>le-time interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4762	4871	
==>IZE_ONLY;
  my $self = shift;
  $self->force_object(@_);
}


sub force_object {
  Carp::croak("class name pass <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3906	4010	
==>ference Type
class JSX::InternalValue::Reference {
    has $.base_object;
    has $.property_name;
    me <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6307	6420	
==>if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6307	6420	
==>if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22768	22901	
==>m => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("listify"),
						param => val(10),
					),
				) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22918	23029	
==>m => comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => ide("listify"),
					param => val( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11743	11845	
==>xponentPart>?
    | <DecimalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalD <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2696	2831	
==>octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bsh <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2696	2831	
==>octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bsh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	71	243	
==>ule;
use Cwd                         ();
use File::Copy                  ();
use Params::Check               qw[check];
use Log::Message::Simple        qw[:STD];
use Module: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4675	4797	
==>icks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4675	4797	
==>icks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$chan}< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	864	1001	
==>atch};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	864	1001	
==>atch};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13465	13560	
==>tem $h.header_field_names

Returns the list of distinct names for the fields present in the
head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13465	13560	
==>tem $h.header_field_names

Returns the list of distinct names for the fields present in the
head <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3025	3126	
==>se {
			my $type = $self->guess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17001	17101	
==>ule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpressionNoIn>
    | <BitwiseANDEx <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1491	1655	
==>rence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empt <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1491	1655	
==>rence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	562	662	
==>et_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	562	662	
==>et_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9956	10051	
==>p: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9956	10051	
==>p: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3299	3463	
==>tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3299	3463	
==>tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20369	20463	
==>esult in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20369	20463	
==>esult in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32b <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	443	578	
==>ess +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnosti <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	443	578	
==>ess +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnosti <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29549	29658	
==>gure a way to report test names in the failure summary.

Rework the test summary so long test names are not tr <==
2	/Users/nnunley/pugs/util/package-osx.pl	6247	6344	
==>Overview::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local/ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18668	18765	
==>undaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> stateme <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18668	18765	
==>undaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> stateme <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2631	2733	
==>$other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2631	2733	
==>$other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3458	3617	
==>if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3458	3617	
==>if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($req <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3823	3932	
==>$self->{_timing}{start} = time;

    $self->SUPER::_init(@_);
}

sub get_smoker {
    my($self) = @_;
    if ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13970	14068	
==>lue?  And then prove
  implausible to realloc the regexp struct to create one?

Possible next steps <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	970	1086	
==>lready and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	970	1086	
==>lready and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2543	2673	
==>c"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2543	2673	
==>c"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	359	478	
==>:AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### change t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	338	452	
==>:AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### change t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	426	627	
==>rgs.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $in <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	426	627	
==>rgs.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $in <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	92	202	
==>comparable;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type::equiva <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15016	15111	
==>erface (API), called
the Rosetta Native Interface (RNI), which applications invoke and which
mul <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15016	15111	
==>erface (API), called
the Rosetta Native Interface (RNI), which applications invoke and which
mul <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10036	10140	
==>\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
prin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10771	10875	
==>\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
prin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1824	1925	
==>f.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1824	1925	
==>f.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	719	849	
==>);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	719	849	
==>);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) return <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15795	15920	
==>prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2192	2313	
==>prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5157	5247	
==>if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method las <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5157	5247	
==>if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method las <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3753	3868	
==>($test) && $test->isa('TestBuilder::Test'))
                || confess "test argument must be a TestBuilder::Test in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11784	11907	
==>b " . _emit( $n->{exp2} );
    }

    return _emit( $n->{exp1} ) . ' ' . 
        $n->{op1}{op} . ' ' . _emit( $n->{exp2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2530	2636	
==>$template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14450	14545	
==>n (key, value) order, C<pairs> a C<Pair(key, value)>.

Note that C<kv %hash> returns the same as <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4412	4511	
==>perclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6314	6413	
==>perclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	726	859	
==>sub new {
    my($cls,$name,$prec)=@_;
    $name = "$name";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1123	1233	
==>\\n   List      pre     pairs   safe   (rw!Array)\
# signature doesnt parse. using simplified one.
#multi Array <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26458	26610	
==>atch;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26737	26889	
==>atch;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4464	4586	
==>tion
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4464	4586	
==>tion
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1530	1655	
==>defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1530	1655	
==>defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.spa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3877	3988	
==>egistered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc18 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3877	3988	
==>egistered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc18 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1146	1259	
==>self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1146	1259	
==>self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32632	32727	
==>n demand into user-readable
message strings, using data from external Template modules as a temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32632	32727	
==>n demand into user-readable
message strings, using data from external Template modules as a temp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2882	2999	
==>::false;
}

method no_names_exist of Bool (Relation::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_nam <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3836	3940	
==>$self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5196	5299	
==>$self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7094	7199	
==>e $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7106	7211	
==>e $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5100	5198	
==>ecoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A stri <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5100	5198	
==>ecoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A stri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6606	6832	
==>ie $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7070	7296	
==>ie $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2707	2860	
==>|
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2707	2860	
==>|
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	89	191	
==>t13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	89	191	
==>t13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7495	7605	
==>ift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7495	7605	
==>ift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1378	1477	
==>code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1378	1477	
==>code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2479	2616	
==>ven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this AST the code inside the t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	930	1056	
==>:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	930	1056	
==>:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31638	31736	
==>ther set for itself.  When the program is run, it would
determine either from a user config file or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31638	31736	
==>ther set for itself.  When the program is run, it would
determine either from a user config file or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1775	1891	
==>(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1775	1891	
==>(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1788	1920	
==>";
    print join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $str = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29513	29610	
==>TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1

pp_ctl.c
pp_regcomp
pp_substcont
Perl_rxres_sa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16206	16293	
==>othingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16264	16351	
==>othingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12696	12797	
==>ies.  The module provides the following functions:

=over 4

=item decode_entities( $string, ... )

Th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12696	12797	
==>ies.  The module provides the following functions:

=over 4

=item decode_entities( $string, ... )

Th <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2240	2409	
==>$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2240	2409	
==>$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36859	36967	
==>plement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36859	36967	
==>plement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1240	1356	
==>pe',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessab <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1240	1356	
==>pe',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessab <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17134	17246	
==>h $first_line > length $name;
    }

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3793	3899	
==>le(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11416	11536	
==>_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3007	3127	
==>_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13479	13579	
==>t which must be
made to pass before this test can pass (or before an implementation
could be started) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13537	13637	
==>t which must be
made to pass before this test can pass (or before an implementation
could be started) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12625	12802	
==>method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12625	12802	
==>method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX h <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2417	2514	
==>Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2417	2514	
==>Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5982	6083	
==>l::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5982	6083	
==>l::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19653	19748	
==>lf with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19653	19748	
==>lf with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7175	7346	
==>ame,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7175	7346	
==>ame,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	88	196	
==>64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	88	196	
==>64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	575	667	
==>YINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Do <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	575	667	
==>YINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27528	27715	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27807	27994	
==>ar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7549	7655	
==>od pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7549	7655	
==>od pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13411	13540	
==>07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13411	13540	
==>07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6414	6520	
==>self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outsi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6414	6520	
==>self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outsi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24474	24768	
==>'),                              
                          ),
                returns => 'list'
            ),             
            sub {
                my $e = shift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6020	6134	
==>n $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6020	6134	
==>n $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43395	43497	
==>class.

These other Perl 6 packages also work in the problem domain of managing
data or data definition <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28154	28255	
==>et of Str>

This method returns this Relation::Example's heading.

=item C<body () returns Set of Mapp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11126	11235	
==>ubclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matchi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11126	11235	
==>ubclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matchi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2735	2849	
==>$key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # E <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2735	2849	
==>$key));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # E <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5909	6013	
==>TH_UNICODEC/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31924	32025	
==>pture group related to this object (like for OPEN and back
references).

=item off

The flags specific <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3653	3764	
==>calar::Util ();

sub new {
	my $class_that_should_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	775	921	
==>ookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	775	921	
==>ookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11816	11913	
==>1/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11816	11913	
==>1/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entiti <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17567	17671	
==>his header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17567	17671	
==>his header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3954	4058	
==>us;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'TestBuilder::Test::Ski <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23216	23305	
==>on'> <Identifier>? <'('> <FormalParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule Fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18081	18186	
==>l->new(':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41346	41451	
==>l->new(':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3878	3981	
==>f->resolve_type($node); # unlike parametered thunks these thunk have no -> type

	$self->define_named_bl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1481	1577	
==>e %s::inline_bindings::%d;
		use Inline C => Config => LIBS => "-lgc"; # http://www.hpl.hp.com/pe <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	170	269	
==>t fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($sel <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	170	269	
==>t fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields($sel <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8686	8793	
==>ize} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8686	8793	
==>ize} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4700	4795	
==>)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4700	4795	
==>)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1068	1164	
==>Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1068	1164	
==>Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $ur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	845	959	
==>set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	845	959	
==>set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1377	1495	
==>trList :%attrs? = {}) {
    return $?CLASS->bless( attrs =>
        { %attrs.pairs.map:{ ( .key => 
            (.value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	7051	7166	
==>ammar::Term.bareword'}->() }
        ! ),
    );
    $class->SUPER::recompile;
}

BEGIN {
    __PACKAGE__->recompile <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7360	7480	
==>($params)) { # a string
	$params =~ s/\A\s*\(?\s*//;
	$params =~ s/\s*\)?\s*\z//;
	my @pn = split(/\s*[,:]\s*|(?<=:)\s*/, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43238	43334	
==>IES

None reported.

=head1 SEE ALSO

The Perl 6 package L<Relation::Example> is bundled with Rel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9835	9954	
==>:Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9829	9948	
==>:Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7491	7588	
==>laintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7491	7588	
==>laintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the remaining d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4654	4760	
==>d2 ""

When used as a string, the match object returns the stringified version
of the result object (usuall <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4654	4760	
==>d2 ""

When used as a string, the match object returns the stringified version
of the result object (usuall <==
2	/Users/nnunley/pugs/util/testgraph.pl	1642	1756	
==>>SUPER::link;
        $link =~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$link);
    }

    package My::S <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	234	336	
==>y $duration = shift || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5836	5946	
==>t( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_open
{
    my $var = emit(get_d <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1034	1268	
==>l => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHO <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1034	1268	
==>l => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1376	1523	
==>(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1376	1523	
==>(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1498	1645	
==>];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1437	1579	
==>];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	66	183	
==>has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	66	183	
==>has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3189	3322	
==>ash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3189	3322	
==>ash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13071	13192	
==>($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6546	6667	
==>($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	145	266	
==>et $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	145	266	
==>et $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2872	2993	
==>{
    # check the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || di <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2872	2993	
==>{
    # check the bounds of our children 
    # against the index given
    ($index <= $self.child_count()) 
        || di <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3093	3212	
==>on> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Fo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3093	3212	
==>on> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	236	330	
==>names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	236	330	
==>names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1896	2025	
==>RG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1896	2025	
==>RG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8387	8502	
==>';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8375	8490	
==>';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6351	6478	
==>t@mess, "#      got "._q($got)."\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _whe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1505	1605	
==>n "use Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth_call_term {
    my $ident = get <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1850	1945	
==>of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalyps <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1850	1945	
==>of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalyps <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10236	10341	
==>ead2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the speci <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10236	10341	
==>ead2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the speci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1039	1161	
==>\$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1039	1161	
==>\$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11488	11631	
==>);
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11767	11910	
==>);
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6288	6417	
==>re( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6288	6417	
==>re( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1816	1909	
==>L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1905	1998	
==>L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	773	897	
==>efined is JSX::ValuePrimitive;
class JSX::Value::Null      is JSX::ValuePrimitive;
class JSX::Value::Boolean   is JSX::ValueP <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15156	15246	
==>AdditiveExpression> <'-'> <MultiplicativeExpression>
}
rule ShiftExpression :words {  # see <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15459	15641	
==>&join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18936	19118	
==>&join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11245	11385	
==>o { warn "mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	779	872	
==>g utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Exampl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	779	872	
==>g utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5081	5223	
==>tch = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5081	5223	
==>tch = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircum <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1586	1705	
==>oot_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1586	1705	
==>oot_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11136	11275	
==>[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11130	11269	
==>[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@matc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17866	17963	
==>odule load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ** <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17866	17963	
==>odule load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ** <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	323	453	
==>$Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS suppor <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	323	453	
==>$Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS suppor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	815	931	
==>''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	903	1019	
==>''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2831	2938	
==>r,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2831	2938	
==>r,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5239	5391	
==>c / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5239	5391	
==>c / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15458	15592	
==>ld be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15452	15586	
==>ld be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12057	12182	
==>ile
	    my $stdin = qq{$^X -e 'print qq(} . $args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) {
		my $stdindispla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4647	4748	
==>.

=head2 ""

When used as a string, the match object returns the stringified version
of the result ob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4647	4748	
==>.

=head2 ""

When used as a string, the match object returns the stringified version
of the result ob <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8894	9001	
==>st case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8894	9001	
==>st case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15763	15862	
==>These header fields are used to make a request conditional.  If the requested
resource has (or has n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15763	15862	
==>These header fields are used to make a request conditional.  If the requested
resource has (or has n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2076	2210	
==>:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2076	2210	
==>:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <t <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2861	2967	
==>ties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2861	2967	
==>ties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15856	15946	
==>Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :% <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15856	15946	
==>Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :% <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35317	35459	
==>od' => (
    # method label
        symbol->new('add_attribute'),
    # method body
        method->new(
            $::ENV,
            method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2348	2494	
==>];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2348	2494	
==>];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8758	8870	
==>limiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @value <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	231	341	
==>limiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	249	361	
==>b parse {
    my $class = shift;
    my $src = shift;
    my ( $ast, $tail ) = Pugs::Grammar::Expression::ast( $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	703	811	
==>rg/ftp/Scheme/#pure-oo

=cut

# new() creates instances of classes
sub new ($) {
    my ($table) = @_;
    my <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2774	2899	
==>prefix::", "nows");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3553	3741	
==>ile &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3553	3741	
==>ile &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15369	15477	
==>how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9566	9674	
==>how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4037	4121	
==>plement_previous => $self._get_union( $self.complement_previous, $set.complement_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4037	4121	
==>plement_previous => $self._get_union( $self.complement_previous, $set.complement_prev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3808	3927	
==>tched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3808	3927	
==>tched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2979	3123	
==>- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3163	3307	
==>- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10524	10634	
==>ulti sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO is p <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	63	168	
==>een ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunate <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	63	168	
==>een ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunate <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2440	2536	
==>throwing the return value away.
Encryptions after this point will be using stronger portions of t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2440	2536	
==>throwing the return value away.
Encryptions after this point will be using stronger portions of t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8776	8921	
==>lose $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg->package )
                          - <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3352	3459	
==>mplified one.
#multi Array::shift ( --> Scalar ) {
multi Array::shift (  ) {
    Array::shift @+_;
}


# sig <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1354	1483	
==>te t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1354	1483	
==>te t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	665	774	
==>s export { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	665	774	
==>s export { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1696	1875	
==>$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $code = (length($ARGV[0]) ? $ARGV[0] : $ARGV[1]);
    }
    else {
        local $/;
        $code = <>;
    }

    if ($compi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19090	19197	
==>rray) is builtin is primitive { List::shift(@array) };
multi shift ($array) is builtin is primitive { die "C <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18315	18414	
==>ew api into the guts of the perl core, to permit the use
of alternate regexp engines.  There being l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5921	6027	
==>k>) eq normalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5921	6027	
==>k>) eq normalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2502	2622	
==>ive $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2502	2622	
==>ive $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (!file_name_is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3130	3240	
==>=    get_str( $_[0], '$<ident>' );
    my $block = get_data( $_[0], '$<block>' );
    # XXX - register fixity i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25426	25624	
==>it ..
                          $e->get('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->new('@:supe <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	486	611	
==>he lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method f <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	486	611	
==>he lack of $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12468	12564	
==>TML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12468	12564	
==>TML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2726	2850	
==>$args->{SIGN} = 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both kinds of requ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	336	431	
==>aptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	336	431	
==>aptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; retu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3008	3224	
==>m->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:<<>'),
                    Sym->new('$x'),
                    Sy <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4272	4424	
==>m->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('&infix:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	832	944	
==>$opt{name} . ">",
        '{ return { op => "ternary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN <==
2	/Users/nnunley/pugs/util/version_h.pl	2052	2154	
==>TDIN.
  no warnings "io";
  open OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1426	1537	
==>my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $fiel <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1426	1537	
==>my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $fiel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14456	14580	
==>erator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14456	14580	
==>erator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14856	14992	
==>ART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14856	14992	
==>ART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $k <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	168	268	
==>`pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	321	421	
==>`pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3803	3924	
==>elf, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _opti <==
2	/Users/nnunley/pugs/util/func_refact.pl	1992	2088	
==>>$set, new=>$new}});
    print "union: while adding $new, entered with $oldsize, leaving with $si <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5210	5316	
==>ered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5210	5316	
==>ered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<ch <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	4	98	
==>rl 5: Match-Operator
$var =~ /regex/;
#=Perl 6: generalisierter Smart-Match-Operator
$s ~~ 1978 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10640	10730	
==>$code_args .= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1347	1445	
==>- weaken self-referential things

sub alternation {
    # alternation is first match (not longest). <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1347	1445	
==>- weaken self-referential things

sub alternation {
    # alternation is first match (not longest). <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	58	197	
==>_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	58	197	
==>_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5973	6083	
==>r p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5767	5873	
==>r p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my $ma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8918	9036	
==>v = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8918	9036	
==>v = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1721	1819	
==>.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1721	1819	
==>.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	560	685	
==>b{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1.. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	657	782	
==>b{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1.. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33509	33611	
==>y

Family: reg_any

Types: reg_any (C<.>), sany (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Famil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6377	6475	
==>is_placeholder {
		my $self = shift;
		my $type = $self->simplify_type(shift);

		Scalar::Util::ble <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1908	2062	
==>$fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1908	2062	
==>$fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33546	33646	
==>ing.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33546	33646	
==>ing.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or mo <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7597	7767	
==>}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cann <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7654	7824	
==>}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cann <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4324	4436	
==>urns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4324	4436	
==>urns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9465	9561	
==>2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9465	9561	
==>2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32428	32577	
==>eturns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33083	33232	
==>eturns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8505	8619	
==>ting your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8505	8619	
==>ting your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6573	6679	
==>=over 4

=item I<start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_docu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6573	6679	
==>=over 4

=item I<start_document>

This event is fired when a '=pod' directive is reached.

=item I<end_docu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1161	1273	
==>'a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1161	1273	
==>'a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13149	13243	
==>ames prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13149	13243	
==>ames prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40817	40920	
==>eate a
modified version of Locale::KeyedText that you are willing to distribute,
because that is a pract <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40817	40920	
==>eate a
modified version of Locale::KeyedText that you are willing to distribute,
because that is a pract <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	977	1106	
==>ugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system($cmd)) {
	#$err = $!."\n";
	$err = `cat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21015	21133	
==>g)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17436	17554	
==>g)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3837	3932	
==>Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an excep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4021	4116	
==>Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an excep <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1028	1194	
==>$size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1028	1194	
==>$size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	783	893	
==>gth( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	783	893	
==>gth( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	944	1128	
==>ne Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str : <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	944	1128	
==>ne Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5657	5768	
==>iler processes



### separate "processes" from actual module documentation?



=head2 Grammar engine



* Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5462	5567	
==>iler processes

### separate "processes" from actual module documentation?

=head2 Grammar engine

* Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	648	778	
==>g " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	648	778	
==>g " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5412	5533	
==>ke CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5223	5342	
==>ke CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related fil <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15420	15512	
==>::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_nu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15420	15512	
==>::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_nu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1803	1906	
==>eval($ExtUtils::MakeMaker::VERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	97	197	
==>or debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	92	188	
==>or debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13860	13981	
==>all_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13854	13975	
==>all_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9477	9577	
==>ch
may be repeated, and which are printed in a particular order.  The
field names are cases insensiti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9477	9577	
==>ch
may be repeated, and which are printed in a particular order.  The
field names are cases insensiti <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	989	1104	
==>id token:\"$tok\"\n" }
        }
    }

    @stack.elems == 1 or die "Invalid stack:[@stack[]]\n";
    return @stack <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9477	9583	
==>INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_not_cclass .CCLASS_WHITESPACE, target, pos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3916	4028	
==>$curusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3916	4028	
==>$curusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20478	20595	
==>} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16899	17016	
==>} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29305	29417	
==>ate file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bien <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29305	29417	
==>ate file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bien <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14031	14132	
==>ring with their entity
representation. A second argument can be given to specify which
characters to c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14031	14132	
==>ring with their entity
representation. A second argument can be given to specify which
characters to c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6045	6148	
==>= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6045	6148	
==>= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $spa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3340	3457	
==>od content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3340	3457	
==>od content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	929	1138	
==>@_;
        
        $depth++;
        
        # flags
        my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        my @x = @{$sexpr};
        foreach my $i <==
2	/Users/nnunley/pugs/util/func_refact.pl	764	870	
==>f (+$Conf{initial}) {
        print "Initial set: " . join(' ', @{$Conf{initial}}) . "\n";
	doUnion (@{$Con <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	13	108	
==>E

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCR <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	13	108	
==>E

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= DESCR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5656	5752	
==>ircumfix;
use Pugs::Grammar::Postcircumfix;
use Pugs::Grammar::Ternary;

sub recompile {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40682	40778	
==>argument list is used to fill in
the format string for sprintf().

=over 4

=item $parser->warn(R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13115	13309	
==>def );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13109	13303	
==>def );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10211	10318	
==>%!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10211	10318	
==>%!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2485	2584	
==>.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2485	2584	
==>.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a requ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4863	4967	
==>e / of the CD.
  --iso=$iso
    The final ISO9660 image name will be --iso.

Options may be abbreviated t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1143	1262	
==>> $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile { <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1143	1262	
==>> $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21308	21395	
==>h @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp::Parser::unlessm::ISA, __PA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16737	16921	
==>@q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16737	16921	
==>@q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14125	14258	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14404	14537	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4108	4227	
==>f $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4957	5076	
==>f $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	556	668	
==>sts => 46;

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique ID
    my $instance_coun <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4349	4501	
==>ts')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_val <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3588	3693	
==>ory->($_)} }, $_ for @smokes;

  $cats{$_} = [
    (sort {
      $b->{pugs_revision} <=> $a->{pugs_revisio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1349	1472	
==>s
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1349	1472	
==>s
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6218	6321	
==>tring {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_em <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6218	6321	
==>tring {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_em <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3640	3745	
==>al $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 't <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3640	3745	
==>al $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 't <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1359	1456	
==>f @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1359	1456	
==>f @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	945	1066	
==>',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	945	1066	
==>',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32719	32814	
==>n contains all the tuples of the source Relations, including
one copy each of any duplicated tup <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37269	37364	
==>n contains all the tuples of the source Relations, including
one copy each of any duplicated tup <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11345	11514	
==>current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11345	11514	
==>current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5443	5640	
==>_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5443	5640	
==>_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3997	4132	
==>art, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3997	4132	
==>art, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10941	11047	
==>::openFile($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::T <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22020	22139	
==>e("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
);

my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	734	890	
==>ends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5-d

Into:

 p5-a AND (p5-b >= 3 OR p5- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	938	1035	
==>ttrList))
    )
};

subtype Relation::LaxAttrList of Mapping{Relation::AttrName}
    of Relation:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1276	1399	
==>ar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $self->{errmsg} = $@, return if $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6975	7082	
==>Prim.hs says \\n   Scalar    left    .[]     safe   (Array, Int)\.
sub prefix:<[.[]]> (*$head is copy, *@res <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8147	8291	
==>ult => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    my $pkg = JIB::Package->new( file => $f <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1801	1972	
==>object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1801	1972	
==>object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22775	22870	
==>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22775	22870	
==>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14388	14493	
==>ass.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1330	1420	
==>acted2;
    ($extracted2,$remainder) = Text::Balanced::extract_delimited( "/" . $remainder, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3045	3201	
==>', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3056	3212	
==>', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6537	6661	
==>plate module is already loaded.
        # It may have been embedded in a core program file and hence
        # should never b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6537	6661	
==>plate module is already loaded.
        # It may have been embedded in a core program file and hence
        # should never b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1512	1666	
==>e} 
        if exists $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2250	2372	
==>m>

=item B<to_str () returns str>

=item B<add (x as num) returns num>

=item B<subtract (x as num) returns num>

=item B< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4285	4435	
==>match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4826	4976	
==>match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12355	12461	
==>is is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12355	12461	
==>is is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Enti <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	609	727	
==>") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	609	727	
==>") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15021	15117	
==>ON

=head2 Introduction

Many times during a program's operation, the program (or a package it us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15021	15117	
==>ON

=head2 Introduction

Many times during a program's operation, the program (or a package it us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13805	13924	
==>ction is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $auto <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13805	13924	
==>ction is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least $auto <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2411	2533	
==>SA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2411	2533	
==>SA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
su <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7041	7163	
==>,"regexp_compile_hook...\n");
      handler = sv;
    }
  }  
  if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14722	14817	
==>s,bos).
re_reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont currently wo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22615	22744	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22894	23023	
==>%$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3846	3962	
==>UNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3846	3962	
==>UNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16300	16456	
==>ler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16300	16456	
==>ler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18988	19080	
==>the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

Th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18988	19080	
==>the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

Th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9170	9279	
==>l_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9170	9279	
==>l_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body' <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2446	2531	
==>ompiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2446	2531	
==>ompiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE<gt>>. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3087	3187	
==>ts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3087	3187	
==>ts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14654	14762	
==>hat the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14654	14762	
==>hat the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
example, C<escape_en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22558	22652	
==>d. Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22558	22652	
==>d. Note that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1378	1469	
==>arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1378	1469	
==>arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1040	1148	
==>ply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1040	1148	
==>ply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23898	24062	
==>flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          die "p6_loop_CODE: bug";
       }
      }'."\n";
}
sub p6_last_CO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1925	2039	
==>.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2142	2256	
==>.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	340	441	
==>returns Object;
multi method exists (*@index ) returns List of Bool;

multi sub keys   (@array ; Any|J <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	218	315	
==>e of 2001.
# Also for future historical amusement, I've inserted unchanged
# my original first att <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1862	1990	
==>pace
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1922	2050	
==>pace
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10090	10178	
==>rint ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10825	10913	
==>rint ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12465	12575	
==>ue => sub { p6_as_num(${$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8425	8530	
==>> <DecimalDigit>
}
rule DecimalDigit {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3985	4081	
==>mments, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files ar <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3985	4081	
==>mments, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1788	1900	
==>) {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1788	1900	
==>) {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1001	1119	
==><", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $src = jo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12204	12309	
==>lled on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12204	12309	
==>lled on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Reques <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2065	2167	
==>ex
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2065	2167	
==>ex
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9056	9160	
==>span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9056	9160	
==>span1.is_empty;
    my @union = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8371	8478	
==>add_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $operator <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5913	6014	
==>add_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $operator <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	437	637	
==>?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	437	637	
==>?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4405	4548	
==>> '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4405	4548	
==>> '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    = <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5207	5302	
==>my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a bas <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5207	5302	
==>my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a bas <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26757	26850	
==>olog;close F;} if 1;
swi_inline($prolog);

use Language::Prolog::Types::overload;
use Language <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2743	2829	
==>y $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars-1)));
  push(@let_stack,[$vars,$t <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	686	827	
==>$diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.c <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	686	827	
==>$diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	761	867	
==>nown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	849	955	
==>nown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_na <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2835	3087	
==>seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can have <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9274	9386	
==>S0 = substr target, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2655	2760	
==>$span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2655	2760	
==>$span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8820	8945	
==>kind eq 'Block') {
    }

    my(@names5,@names6,@param_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $defa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3866	3961	
==>tAsteriskCommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLineNotForwardS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2933	3340	
==>etta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2933	3340	
==>etta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1848	1954	
==>pan is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1848	1954	
==>pan is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4636	4812	
==>emit if @a == 1;
    my @fs = map { $_->emit } @a;
    my $code1 = ""; my $code2 = "";
    my $code0 = "my \$f0 = \$fs[0]; ";
    for my $i (reverse(1..$#a)) {
      $code0 .= " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13895	14011	
==>he name of the field and a single
value (a string).  If a header field is multi-valued, then the
routine is called on <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13895	14011	
==>he name of the field and a single
value (a string).  If a header field is multi-valued, then the
routine is called on <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1925	2036	
==>.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1925	2036	
==>.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	464	611	
==>ir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        s <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	464	611	
==>ir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7681	7818	
==>eading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&di <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11158	11295	
==>eading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&di <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7917	8013	
==>"calling out...\n");*/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr,"...back.\n");*/ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	232	361	
==>SCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a cert <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	232	361	
==>SCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a cert <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1103	1198	
==>functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1103	1198	
==>functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6042	6157	
==>String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar.StringNumericLiteral>$/;
    $s ~~ s:g/<TheGra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5152	5246	
==>${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_base <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11720	11814	
==>omE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11720	11814	
==>omE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4090	4178	
==>ions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4090	4178	
==>ions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22082	22193	
==>ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16983	17093	
==>ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3471	3584	
==>D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3471	3584	
==>D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7014	7121	
==>r>; }
macro statement_control:<a_call> (Match $m --> Match) is parsed(rx:perl5/<simple_call>/) {$m}

multi i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14402	14497	
==>group

=item RPe_ESLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s pass <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1294	1401	
==>xt
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1294	1401	
==>xt
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Pe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	127	223	
==>t stores a finite string and a position
within that string, and it provides the fundamental opera <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	127	223	
==>t stores a finite string and a position
within that string, and it provides the fundamental opera <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19605	19705	
==>ists
over N dimensions rather than one.  The Relation operators are somewhat of
a superset of the Set <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24157	24257	
==>ists
over N dimensions rather than one.  The Relation operators are somewhat of
a superset of the Set <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2728	2837	
==>:blank:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub cntrl {
  my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2748	2860	
==>$template;
    }
    push @rules, "<$tight>";
    @rules = _optimize( @rules );
    return $rules[0] unless $#rul <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18246	18354	
==>tive here is to see if it is possible to use the regexp
struct as a new api into the guts of the perl core, t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8014	8126	
==>rization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8014	8126	
==>rization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2366	2538	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2559	2731	
==>&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	595	695	
==>he same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	595	695	
==>he same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7443	7547	
==>sts.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list` <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7443	7547	
==>sts.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list` <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7491	7614	
==>chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7491	7614	
==>chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33215	33315	
==>ill be searched in the order
they appear in this array until a match for that message is found.  Sinc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33215	33315	
==>ill be searched in the order
they appear in this array until a match for that message is found.  Sinc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9426	9524	
==>ded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9426	9524	
==>ded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_tex <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5807	5925	
==>:unshift (@array is rw ; *@values --> Int ) {
    Array::splice(@array, 0, 0, @values);
    @array.elems;
}

# name fro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7273	7378	
==>:unshift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5515	5640	
==>.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5515	5640	
==>.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8257	8405	
==>ge )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16134	16241	
==>esis (maybe capturing paren)

  # any character

  # backslash

  # start of char class (and possible negati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8068	8209	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8261	8402	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	31	121	
==>CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	31	121	
==>CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2689	2829	
==>) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2689	2829	
==>) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2023	2119	
==>eader ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2023	2119	
==>eader ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defi <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	712	874	
==>|
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	712	874	
==>|
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	607	720	
==>hod footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestP <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	607	720	
==>hod footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13371	13477	
==>at contains the
removed headers only.

=item $h.clear

This will remove all header fields.

=item $h.header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13371	13477	
==>at contains the
removed headers only.

=item $h.clear

This will remove all header fields.

=item $h.header <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6725	6975	
==>.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6725	6975	
==>.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19976	20113	
==>test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub_skipped}) {
            $bonusmsg .= " and $tot->{s <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1562	1699	
==>f->get_value('@:slots')->[$idx] = $container;
            },

            'array_fetchVal' => sub { # $idx -> $value
                my $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	268	376	
==>) }
sub not_equal_to { $_[0]->equal_to($_[1]) == bit->new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=po <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7216	7347	
==>($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7216	7347	
==>($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1376	1475	
==>n_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1376	1475	
==>n_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler <==
2	/Users/nnunley/pugs/util/addauthors.pl	416	507	
==>c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1699	1922	
==>eop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17401	17503	
==>mp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    shift(@classes); # dont wan <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3377	3471	
==>or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3377	3471	
==>or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2290	2421	
==>%tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values - <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2290	2421	
==>%tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroize() {
    for %.table.values - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3055	3158	
==>d "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I thin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2946	3045	
==>d "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I thin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6267	6368	
==>vel operators

  # Domain-specific-language-like syntax, contained in a package

### rule must ever us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6053	6152	
==>vel operators
  # Domain-specific-language-like syntax, contained in a package
### rule must ever us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3127	3245	
==>ler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3127	3245	
==>ler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode _ ircname> =
        s <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	424	525	
==>int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half_down (Num $x, int $sym <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13775	13870	
==>EQINC (-9)

Sequence (? incomplete

=item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26814	26907	
==>ed parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the correspondin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26814	26907	
==>ed parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the correspondin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2496	2646	
==>ltidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$id <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2496	2646	
==>ltidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$id <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3334	3501	
==>ckage') }; 
use constant ISA_JIB_PACKAGE_SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Pack <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8118	8217	
==>y $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^". <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4759	4856	
==>tr2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4759	4856	
==>tr2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::tim <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3975	4110	
==>t satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($ent <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4439	4574	
==>t satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($ent <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10866	10983	
==>losure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11016	11133	
==>losure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10788	10885	
==>:is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10788	10885	
==>:is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty set <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	80	174	
==>e/Install/Base.pm"
package Module::Install::Base;

# Suspend handler for "redefined" warnings
B <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2149	2287	
==>X split depends: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3514	3644	
==>X split depends: lines and objectified dependencies
                ### for better diagnostics
                die "Dependency '$de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	269	406	
==>$.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	269	406	
==>$.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        para <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4530	4647	
==>with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4530	4647	
==>with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @result.join($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8789	8905	
==>}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8789	8905	
==>}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %cha <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2717	2831	
==>OF;
*** All done! Smoke matrix saved as '$html_location'.
    You may want to submit the report to the public smoke <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	766	860	
==>ffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_concurren <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11729	11920	
==>[1] } # flag toggled?
               map  { $_->package eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5162	5270	
==>a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2261	2373	
==>t\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2261	2373	
==>t\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4506	4768	
==>$args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = q|
($::ENV create 
    ("*::WALK <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2776	2886	
==>ules, "<$tight>";
    @rules = _optimize( @rules );
    return $rules[0] unless $#rules;
    return "[ " . join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12363	12578	
==>q '[' &&
         $n->{op2}{op} eq ']' ) {

        if ( ! exists $n->{exp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 war <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	590	720	
==>->provides($node)) {
			return $self->reduce($replacement);
		}
	}

    return $self->SUPER::reduce($node);
}

sub new {
    my $cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	603	880	
==>to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	603	880	
==>to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Ro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1606	1700	
==>!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1606	1700	
==>!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11472	11638	
==>f $match->{bool};
        return { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1537	1646	
==>($cc) {
        $S->error(0, "\\c[A;B] in character class") if @names > 1;
        return $S->force_object(any <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13922	14029	
==>to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13922	14029	
==>to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24354	24456	
==>.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28906	29008	
==>.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5706	5827	
==>JIB::Installation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7122	7241	
==>( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	423	542	
==>( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4542	4708	
==>dex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4542	4708	
==>dex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15213	15322	
==>or
decoded string is returned (without changing the input string).

If you prefer not to import these routines <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15213	15322	
==>or
decoded string is returned (without changing the input string).

If you prefer not to import these routines <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3468	3580	
==>get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3468	3580	
==>get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	643	780	
==>turn '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagno <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	643	780	
==>turn '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagno <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15608	15703	
==>t($x);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl6_object <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26230	26322	
==>ROPT_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROPT_LOOKBEHIND_SEEN	0x0020 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5535	5798	
==>array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6384	6647	
==>array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4984	5130	
==>= Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4811	4952	
==>= Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emit <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2132	2272	
==>n the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21958	22056	
==>Parser Internals

The parser object is a hash reference with the following keys:

=over 4

=item re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3465	3560	
==>ass> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3649	3744	
==>ass> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9265	9427	
==>fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10256	10418	
==>fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7295	7403	
==>of ruleop operators:



- higher order operators: alternation, concatenation.

- "plain" match operators: lik <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7047	7152	
==>of ruleop operators:

- higher order operators: alternation, concatenation.
- "plain" match operators: lik <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11791	11889	
==>odel::Node - This stores an ordered list of all this
Document's Node objects that do not have paren <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11791	11889	
==>odel::Node - This stores an ordered list of all this
Document's Node objects that do not have paren <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4548	4681	
==>join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4536	4669	
==>join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5508	5663	
==>iguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5508	5663	
==>iguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7397	7500	
==>rs: like 'literal'.



Higher order operators take a list of match operators, and return a new 

match o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7146	7246	
==>rs: like 'literal'.

Higher order operators take a list of match operators, and return a new 
match o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1812	1929	
==>andic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1812	1929	
==>andic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6811	6916	
==>thod _head() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, befo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6811	6916	
==>thod _head() returns Array of byte {...}>

Returns any data the cipher needs to add at the beginning, befo <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1650	1755	
==>pty span.

- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1650	1755	
==>pty span.

- `new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19891	19994	
==>alues; the user name and the password.  In scalar context it will
return I<"uname:password"> as a single <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19891	19994	
==>alues; the user name and the password.  In scalar context it will
return I<"uname:password"> as a single <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3250	3391	
==>l;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3250	3391	
==>l;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20114	20213	
==>tribution to allow the core to be completely testable on its own.  It is
coded intentionally in a si <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20114	20213	
==>tribution to allow the core to be completely testable on its own.  It is
coded intentionally in a si <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11677	11792	
==>ode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: En <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11677	11792	
==>ode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: En <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	919	1031	
==>he root of the path
        # then we have failed already and so return
        return unless $func($current_tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	919	1031	
==>he root of the path
        # then we have failed already and so return
        return unless $func($current_tree <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5341	5473	
==>names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5341	5473	
==>names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12873	13066	
==>msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12873	13066	
==>msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	291	461	
==>b {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $par <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	153	285	
==>ule for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DESCRIPTION

This purpose of this module is simply to be an exa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3204	3437	
==>erbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3204	3437	
==>erbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1612	1748	
==>pan );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Funct <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1612	1748	
==>pan );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Funct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4626	4784	
==>1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4614	4772	
==>1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1865	1969	
==>ta::Dumper::Dumper($node);
		chomp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		return "undef" u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35386	35487	
==>), plus (C<+>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one object

=head2 group

Family: group <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20697	20800	
==>oin> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20697	20800	
==>oin> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8280	8403	
==>$match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $nam <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8280	8403	
==>$match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $nam <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12990	13086	
==>get the next value.
The unit specifier is also used internally when joining two spans, and when g <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12990	13086	
==>get the next value.
The unit specifier is also used internally when joining two spans, and when g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4772	4946	
==>('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4994	5168	
==>('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $progr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10187	10306	
==>pan1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10187	10306	
==>pan1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	185	297	
==>ontents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEB <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	185	297	
==>ontents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEB <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4124	4213	
==>ed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$failed <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1524	1670	
==>::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1535	1681	
==>::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7303	7444	
==>? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16658	16790	
==>{ return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16937	17069	
==>{ return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14174	14279	
==>body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1654	1759	
==>body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7311	7418	
==>turns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.dif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7311	7418	
==>turns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.dif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1482	1633	
==>ders{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1482	1633	
==>ders{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21208	21311	
==>gested (but not required) that each Perl package which
uses this would come up with keys which are uniqu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21208	21311	
==>gested (but not required) that each Perl package which
uses this would come up with keys which are uniqu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	15	132	
==>stallation::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16295	16390	
==>of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programmin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16295	16390	
==>of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programmin <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8455	8567	
==>ting complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8455	8567	
==>ting complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an in <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2180	2269	
==>stfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->addToken("postfix:::", "pos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4816	4931	
==>nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4816	4931	
==>nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $ev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12621	12727	
==>ually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12621	12727	
==>ually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try to cr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3213	3317	
==>:includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.int <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3213	3317	
==>:includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.int <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1566	1670	
==>dule::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1566	1670	
==>dule::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pm <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9392	9545	
==>-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9392	9545	
==>-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	13	113	
==>HTTP::Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	13	113	
==>HTTP::Headers;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handle <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	409	520	
==>s;
my $c = $r->compile($prog);
my $t2 = times;
my $annotated = $r->annotate($c);
my $t3 = times;
my $res  = $r-> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28169	28257	
==>>('(a+|b)*')->('ab')->describe,"\n";

print "----\n";
}if(1);

Language::Prolog::Yaswi::s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15442	15535	
==>variance of needs between its different
users, such as their preferred language of communicati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15442	15535	
==>variance of needs between its different
users, such as their preferred language of communicati <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	445	545	
==>::Exp.  Maybe this needs to
# be an Array is shape() or another object or something like that.
type S <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21489	21688	
==>omb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				),
            ),
        ),
        in => comb(
            fun = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6503	6655	
==>1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2run <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6999	7152	
==>l_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $RE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6999	7152	
==>l_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $RE <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3001	3126	
==>e {
    my @caller = Pugs::Internals::caller($kind, $skip, $label);

    # FIXME: why doesn't this work?
    # this is here ju <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2277	2374	
==>);

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system.

These objects <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6000	6143	
==>return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(? <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6000	6143	
==>return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(? <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6476	6572	
==>s($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11534	11630	
==>s($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->bar', '... $iBa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6558	6666	
==>tual ciphering.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6558	6666	
==>tual ciphering.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4155	4278	
==>\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4372	4495	
==>\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4713	4853	
==>ied;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4713	4853	
==>ied;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	579	728	
==>unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() - <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	579	728	
==>unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() - <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	544	647	
==>rn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<dens <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	544	647	
==>rn $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<dens <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2911	3018	
==>, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2969	3076	
==>, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1630	1725	
==>sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1630	1725	
==>sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5987	6118	
==>"$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5987	6118	
==>"$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4967	5079	
==>lt assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	736	836	
==>rse(<<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8641	8752	
==>pturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8637	8748	
==>pturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23639	23765	
==>=> sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20060	20186	
==>=> sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21986	22104	
==>eps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  reps_1:
    reps[ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10924	11020	
==>ssionFlags> <IdentifierPart>
}

# A.2 Number Conversions

rule StringNumericLiteral {  # see 9.3. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2936	3054	
==>y $failed = !defined $p5;
	    $warn = "Pil to p5 compile failed: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::O <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4630	4755	
==>file';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f, 'file';  -->  our $f = open 'file';

    sub { $se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2904	2999	
==>up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2904	2999	
==>up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	197	447	
==>sed by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	197	447	
==>sed by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17829	17922	
==>r header field contains information about the software being
used by the originating server pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17829	17922	
==>r header field contains information about the software being
used by the originating server pr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5654	5762	
==>dy: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Conta <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5654	5762	
==>dy: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Conta <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12310	12421	
==>ell.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12368	12479	
==>ell.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3215	3342	
==>val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3215	3342	
==>val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5026	5150	
==>give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5026	5150	
==>give a warning if more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7442	7676	
==>seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $ar <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7442	7676	
==>seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21736	21891	
==>match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22015	22170	
==>match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13549	13647	
==>-> Bool )

True if invocant has an element whose key matches C<$key>, false
otherwise.

An unary fo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	423	544	
==>w'    => sub { 
            my ($class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4220	4352	
==>ammar::Term.ident>
                { return { code  => "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2989	3137	
==>'t work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3173	3321	
==>'t work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (cap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	194	295	
==>yntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	194	295	
==>yntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14333	14456	
==>ues would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $ite <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14333	14456	
==>ues would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $ite <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2657	2779	
==>ASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no eleme <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2657	2779	
==>ASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no eleme <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4164	4285	
==>s);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4222	4343	
==>s);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5808	5947	
==>tart_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5808	5947	
==>tart_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13165	13262	
==>cause something is not implemented yet. So
in order to still allow that to be tested, and those te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13223	13320	
==>cause something is not implemented yet. So
in order to still allow that to be tested, and those te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1794	1898	
==>];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( "'" . $_[0], "'" );
    $extracted <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17809	17911	
==>at exactly _is_ intuit, and do we care?


=cut


=pod

=head1 Perl5's struct regexp and its abuse

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3934	4049	
==>$d);
    return wantarray ? ($next, $depth-$d) : $next;
  }
}


sub visual {
  my ($self) = @_;
  $self->parse if $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8861	9003	
==>th);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8861	9003	
==>th);
        }
        push @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17065	17200	
==>acro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17344	17479	
==>acro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5475	5577	
==>e (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5475	5577	
==>e (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19785	19881	
==>an authorization header that use the
"Basic Authentication Scheme".  In array context it will ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19785	19881	
==>an authorization header that use the
"Basic Authentication Scheme".  In array context it will ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36499	36599	
==>kes a (machine-readable) Message object as its positional
parameter $message and returns an equivalen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36499	36599	
==>kes a (machine-readable) Message object as its positional
parameter $message and returns an equivalen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	56	157	
==>'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( onc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	56	157	
==>'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( onc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7596	7712	
==>ass->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7596	7712	
==>ass->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $bl <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	292	461	
==>y %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	292	461	
==>y %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20114	20210	
==>>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20114	20210	
==>>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic fro <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3612	3708	
==>thm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Sc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3612	3708	
==>thm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Sc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5369	5510	
==>' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5369	5510	
==>' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5647	5750	
==>$engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5647	5750	
==>$engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) dat <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	936	1091	
==>ces
                my $self = shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetchElem' => sub { # $idx -> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9723	9838	
==>todo}        += $results{todo};
        $tot{sub_skipped} += $results{skip};

        my($estatus, $wstatus) = @resu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2991	3158	
==>}
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10722	10889	
==>sts $n->{op1}{stmt} && (
           $n->{op1}{stmt} eq 'if'     ||
           $n->{op1}{stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	296	406	
==>T_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	296	406	
==>T_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9751	9854	
==>thod exclusion (Relation::Example $other!) returns Relation::Example {

    die "The heading of the rela <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27161	27263	
==>→ β", ":t snd");
is(t($id_pair), "(int × str)", ":t id(pair(id(10))(id('foo')))");
is(t($app_to_str <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	56	146	
==>etaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Outp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5184	5318	
==>ch, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5184	5318	
==>ch, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12255	12351	
==>set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12255	12351	
==>set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=he <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6445	6555	
==>$path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6445	6555	
==>$path, 1))[1,2];
        my ($base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5842	5951	
==>ve value for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5842	5951	
==>ve value for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); } <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2284	2431	
==>onfig{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hits;
}

sub shuffle {
    # Fisher-Yates sh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17214	17319	
==>n says that it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
localizatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17214	17319	
==>n says that it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
localizatio <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6107	6288	
==>ms()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6107	6288	
==>ms()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	73	177	
==>mpiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	73	177	
==>mpiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5678	5802	
==>$x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scal <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5678	5802	
==>$x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	260	438	
==>py) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	260	438	
==>py) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13537	13630	
==>ric entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated na <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13537	13630	
==>ric entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9043	9173	
==>not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9043	9173	
==>not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate ru <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9020	9121	
==>)` / `end()`

Return the start or end value of the set.

These methods may return nothing if the set i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9020	9121	
==>)` / `end()`

Return the start or end value of the set.

These methods may return nothing if the set i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4029	4139	
==>ur &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4029	4139	
==>ur &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
multi sub *infix:< <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2631	2742	
==>st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12 <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3067	3178	
==>st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', $file12 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24822	24932	
==>Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method returns a count of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29374	29484	
==>Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method returns a count of t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33535	33625	
==>amed C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38085	38175	
==>amed C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This multi- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	181	319	
==>submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	181	319	
==>submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	640	772	
==>5 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	640	772	
==>5 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'P <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3633	3751	
==>$ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3633	3751	
==>$ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3952	4060	
==>"compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4169	4277	
==>"compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $matc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5910	6048	
==>$status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5910	6048	
==>$status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3345	3456	
==>w[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3345	3456	
==>w[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	325	459	
==>line Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	325	459	
==>line Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20343	20457	
==>exadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20343	20457	
==>exadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94b <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	385	481	
==>t_readbc(i,bcfile);
    Parrot_loadbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp new_i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1787	1892	
==>nion( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1787	1892	
==>nion( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

method universal_set ($class: ) retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11211	11325	
==>erver was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11211	11325	
==>erver was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	158	261	
==>sub Array::pop () returns Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@value <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	84	176	
==>ar::BaseCategory);
use Pugs::Runtime::Match;

use Pugs::Grammar::Var;
use Pugs::Grammar::Num <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	487	638	
==>> 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_)
    returns Num { exp($x,0.5) } <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5048	5196	
==>,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($las <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5048	5196	
==>,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($las <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1485	1719	
==>,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28790	28920	
==>If you
want to install a handler for '&&', you must first install a handler for
'&' that calls the handler for '&&' if it can consu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6075	6214	
==>nless $match; # defined($t);

        #print "expect NUM \n" if grep { $_ eq 'NUM' } @expect;
        #print "expect '/' \n" if grep { $_ eq <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23612	23737	
==>fine REXEC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_subs <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28842	28940	
==>fine REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_subs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2590	2690	
==>sub resolve_type {
	my $self = shift;
	my $type = shift;

	$type = $type->type while Scalar::Util::bl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25800	25895	
==>n be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25800	25895	
==>n be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2618	2749	
==>ilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2835	2966	
==>ilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10711	10826	
==>$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10711	10826	
==>$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	998	1141	
==>in the future the compiler might allow adding globals
    # ought to check if the runtime has a hash for this right now this is a non
    # issu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12878	12975	
==>rom
# meaning the same as &readline to $obj.shift(), ="some_file" worked, so I
# added the .shift( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12319	12437	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12598	12716	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match:: <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	623	723	
==>Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selectiv <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	623	723	
==>Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selectiv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38418	38514	
==>g_vars into it, where each variable value is
substituted for any occurance of its corresponding v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38418	38514	
==>g_vars into it, where each variable value is
substituted for any occurance of its corresponding v <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1761	1933	
==>unc($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1761	1933	
==>unc($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16262	16361	
==>-> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Related to C<chop>, onl <==
2	/Users/nnunley/pugs/util/package-osx.pl	11387	11528	
==>{
                print "Successfully removed \$file\\n";
            \}
        \}
    );
    @footer = map { s/^(?:\s{9}|\s{5}$)//; $_ } spl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9812	9922	
==>t
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9812	9922	
==>t
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8670	8765	
==>fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=ba <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8670	8765	
==>fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=ba <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	113	220	
==>.6;
#!\pause
#=Perl 6: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1300	1391	
==>xp::Parser::__object__ );
  push @Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Regexp::Par <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7847	7955	
==>ary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7847	7955	
==>ary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5467	5650	
==>>{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5479	5662	
==>>{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5520	5625	
==>rns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5578	5683	
==>rns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3250	3425	
==>0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3250	3425	
==>0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns L <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	372	532	
==>ir -p $Meta $Site $Tmpdir $Bindir $Builddir $Alternatives ] .
            qq[$Repodir] )                                      and die $?;
    system( qq[touch $A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19592	19779	
==>le = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19871	20058	
==>le = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7435	7606	
==>( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfie <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	736	907	
==>( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfie <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2234	2356	
==>f $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solve <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2234	2356	
==>f $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1213	1315	
==>nced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1213	1315	
==>nced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11198	11304	
==>s in this way will not change the semantic of a header field, but
in practice there are cases like old-styl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11198	11304	
==>s in this way will not change the semantic of a header field, but
in practice there are cases like old-styl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7348	7448	
==>base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7348	7448	
==>base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12952	13049	
==>>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a ne <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12952	13049	
==>>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a ne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2953	3078	
==>r last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2953	3078	
==>r last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2701	2805	
==>ally for platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2701	2805	
==>ally for platforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2050	2185	
==>}

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2050	2185	
==>}

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12755	12893	
==>le = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13034	13172	
==>le = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "pus <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11992	12077	
==>s_more(char(C),R).
p6_oct_chars_more(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3629	3731	
==>elf: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3629	3731	
==>elf: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_paramete <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7137	7239	
==>o digits found in \\x...")
    goto end
  err_close:
    parse_error(mob, pos, "Missing close bracket f <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2183	2284	
==>ersion}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ /osname: <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1893	1993	
==>ph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# O <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4838	4963	
==>_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4838	4963	
==>_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1045	1146	
==>p, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1045	1146	
==>p, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1826	1947	
==>pass, _where(), $name, @mess);
}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    my $q = $x;
    $q <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7990	8093	
==>te whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7990	8093	
==>te whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1667	1805	
==>e;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1667	1805	
==>e;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4571	4842	
==>hen 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4571	4842	
==>hen 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                whe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19181	19283	
==>s for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19181	19283	
==>s for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	337	468	
==>ert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1865	1996	
==>ert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	195	354	
==>nless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1, <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1280	1389	
==>conv_foreach {
    $_ = shift;
    my $foreach_kw = 'for(?:each)?';
    s/${foreach_kw}\s*${re_scopeop}?\s+(${ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19778	19885	
==>lso be kept due to its more
dynamic capabilities.>

I was inspired to have this organization partly by how M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19778	19885	
==>lso be kept due to its more
dynamic capabilities.>

I was inspired to have this organization partly by how M <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3790	3892	
==>PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3790	3892	
==>PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14888	14981	
==>t> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14888	14981	
==>t> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_enti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5441	5553	
==>xt( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5441	5553	
==>xt( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3512	3614	
==>r;
is($p->get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y for p');

is($p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4442	4557	
==><*stuff>
         macro rxmetachar:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { .. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8229	8358	
==>}
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8217	8346	
==>}
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'P <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26404	26511	
==>ll>
    | <NonemptyClassRanges>
}
rule NonemptyClassRanges {  # see 15.10.1
      <ClassAtom>
    | <ClassAt <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18178	18343	
==>w($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41443	41608	
==>w($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13267	13427	
==>s)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2151	2273	
==>od BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] - <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2151	2273	
==>od BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] - <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11066	11166	
==>e to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11066	11166	
==>e to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "univer <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10739	10854	
==>en.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10739	10854	
==>en.insert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18382	18495	
==>stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $s <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	874	1016	
==>p { $self->generate_attribute($_) }
                             $class->attributes->members,
                             $class->associations <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	770	878	
==>{
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5/^\s*//;

		next if <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	727	852	
==>ptures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	727	852	
==>ptures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12895	12992	
==>todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12953	13050	
==>todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20032	20121	
==>ick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

Th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20032	20121	
==>ick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

Th <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10424	10517	
==>ndent2">$ make smoke
$ ./util/smokeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    shou <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22717	22805	
==>2x, !.
charset_member(_,C,[class_pos(X)|_])    :- class_member(class_pos(X),C), !.
charse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	909	1024	
==>ent <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	909	1024	
==>ent <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELE <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3280	3470	
==>(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3280	3470	
==>(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5478	5628	
==>else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return B <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5478	5628	
==>else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return B <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8367	8489	
==>for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # characters.  They may n <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8367	8489	
==>for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # characters.  They may n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23774	23898	
==>w {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;

  sub new {
    my ($class, $r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3278	3382	
==>ss;
}

sub params  { (shift)->{params}  }
sub returns { (shift)->{returns} }

sub equal_to {
    my ($lef <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1717	1807	
==>pher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1717	1807	
==>pher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	545	698	
==>rn $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	545	698	
==>rn $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.para <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11262	11407	
==>h: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18870	19013	
==>>{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20228	20371	
==>>{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1963	2091	
==>lude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2180	2308	
==>lude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # pri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17261	17412	
==>'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') charac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17261	17412	
==>'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') charac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	428	564	
==>int "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	525	661	
==>int "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5199	5312	
==>},
    }} sort keys %runcores
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40451	40549	
==>=> 2, 'Regex too large';

Then you can access them via C<< $parser->err_FOOBAR >>, etc.

=head2 Thr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48501	48589	
==>nd('add_attribute', (symbol->new('$:version')   => attribute->new('$:version'   => 'str') <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14766	14855	
==>ies("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14766	14855	
==>ies("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23930	24052	
==>Pe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20351	20473	
==>Pe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->obj <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3181	3282	
==>t find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3181	3282	
==>t find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	492	603	
==>from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	492	603	
==>from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17848	17944	
==>turn  signature($thunk);
    Digest::SHA1::sha1_hex($class->reduce($thunk->val));
}

# vim:set ex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	43	134	
==>Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symbol;
use Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2386	2514	
==>m $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_si <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2386	2514	
==>m $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_si <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9841	9956	
==>);
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9841	9956	
==>);
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26914	27018	
==>ment is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26914	27018	
==>ment is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my Loc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3459	3569	
==>ady used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3459	3569	
==>ady used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($ni <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2181	2324	
==>d} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Can <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1943	2042	
==>ded with any tags, it will intuit one by extracting the 
last component of the calling function's pa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1943	2042	
==>ded with any tags, it will intuit one by extracting the 
last component of the calling function's pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1954	2068	
==>($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1954	2068	
==>($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	442	554	
==>$source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_sourc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	474	586	
==>$source, { p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_sourc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8999	9094	
==>ubleStringCharacters>?
}
rule SingleStringCharacters {  # see 7.8.4
      <SingleStringCharacter <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5759	5864	
==>ormalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5759	5864	
==>ormalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21394	21504	
==>->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17815	17925	
==>->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9034	9149	
==>->name;
    my @kv;
    for my $k (@{$_[0]->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	419	536	
==>RCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: che <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	419	536	
==>RCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: che <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	497	617	
==>, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "mul <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	497	617	
==>, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "mul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20048	20150	
==>te
files (usually XML files I think) from the main program binary.  Each user
language is in a separate <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20048	20150	
==>te
files (usually XML files I think) from the main program binary.  Each user
language is in a separate <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2726	2839	
==>igned = $map{$entry->{orig}};
		unless ($assigned) {
			$assigned = shift @letters;
			$map{$entry->{orig}} = $ass <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3359	3470	
==>Of');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[G <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4648	4766	
==>nion( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4648	4766	
==>nion( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15449	15697	
==>ew('$repr'   => 'str'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1627	1736	
==>:Bzip2::memBunzip($CGI->param("smoke")) ||
    $CGI->param("smoke"));
}

sub require_compression_modules {
  n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21948	22051	
==>\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14616	14716	
==>f->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{para <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2097	2197	
==>f->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{para <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40220	40314	
==>A  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40220	40314	
==>A  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10413	10558	
==>roc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10413	10558	
==>roc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11463	11564	
==>e 9.3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8612	8721	
==>ds are all out of whack.
# This is where this method comes into play
# it will recurse down the tree and fix t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8612	8721	
==>ds are all out of whack.
# This is where this method comes into play
# it will recurse down the tree and fix t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5001	5125	
==>self,$fname)=@_;
    my $ftype = $self->{'field_type'}{$fname};
    $ftype =~ s/Mabye //;
    $ftype =~ s/[\[\]]//g;
    $fty <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14219	14327	
==>wfrom, mfrom, mpos
    .local string cname
    newfrom = find_global "PGE::Match", "newfrom"
    $P0 = getatt <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8859	8967	
==>ter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Arra <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	538	730	
==>for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comm <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	538	730	
==>for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4614	4720	
==>xternal:<x> { ... } # define your own m:x()/stuff/

    As with any such syntactic shenanigans, the declara <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	368	473	
==>se constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	12	119	
==>ule HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	12	119	
==>ule HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1408	1564	
==>? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol if $proto. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1408	1564	
==>? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line ~= $protocol if $proto. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19766	19885	
==>r things the world messes with:


  I32 refcnt;

What invariants?  Don'T know.


  I32 minlen;             /* mininum po <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23674	23795	
==>..) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' affects the rest of this scope

  # so if we're a (?:. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15030	15131	
==>rname $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15030	15131	
==>rname $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3307	3406	
==>ault {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3307	3406	
==>ault {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14698	14810	
==>ndling for cmp_ok

The error handling capabilities need to be expanded more to handle the
error reporting needs o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14756	14868	
==>ndling for cmp_ok

The error handling capabilities need to be expanded more to handle the
error reporting needs o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3158	3330	
==>";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX symlink the man <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	869	969	
==>of Str where { rx/^Foo/ };

It is probably bad to have both a MetaClass called C<Type> and a
language <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25801	25897	
==>ne ROPT_ANCH		(ROPT_ANCH_BOL|ROPT_ANCH_MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SIN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4868	5004	
==>ne::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHA <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4868	5004	
==>ne::Example' );

    # TODO: Create or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	629	887	
==>ocale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	629	887	
==>ocale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedTex <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6703	6813	
==>b;
use base qw/node/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
use base <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3858	3955	
==>ptions )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule sy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4042	4139	
==>ptions )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule sy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7454	7583	
==>[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7442	7571	
==>[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1816	1913	
==>s in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F< <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1816	1913	
==>s in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F< <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3693	3796	
==>ct based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a s <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3693	3796	
==>ct based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3315	3430	
==>ion ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3315	3430	
==>ion ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5234	5328	
==><data> method returns a hash reference representing the configuration data

=item write

The C< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5234	5328	
==><data> method returns a hash reference representing the configuration data

=item write

The C< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8526	8682	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8719	8875	
==>e} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1256	1362	
==>ment describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1256	1362	
==>ment describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8891	8986	
==>>variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2716	2811	
==>>variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/util/claim_drift.pl	616	728	
==>top level of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    exit 1;
}

for m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11787	11885	
==>);

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11845	11943	
==>);

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15388	15498	
==>igit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9585	9695	
==>igit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6591	6756	
==>urp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6648	6813	
==>urp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    { <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3001	3102	
==>value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sendi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3001	3102	
==>value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sendi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	67	172	
==>::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	67	172	
==>::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8057	8156	
==>--------------------------------------------------
## utility methods

# NOTE:
# Occasionally one wa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8057	8156	
==>--------------------------------------------------
## utility methods

# NOTE:
# Occasionally one wa <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5401	5534	
==>md returns revision '@{[$self->{_revision}]}'\n";
}

sub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concu <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5177	5334	
==>it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion\s*(\S+)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4261	4393	
==>itialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.stat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4261	4393	
==>itialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.stat <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1394	1509	
==>aybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!def <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1315	1425	
==>aybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20324	20445	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20603	20724	
==>tch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match::get( $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	836	933	
==>methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	836	933	
==>methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4538	4640	
==>` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logical valu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4538	4640	
==>` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a logical valu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11092	11252	
==>(@files) {
        my ($src, $dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	769	876	
==>n Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authentica <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	769	876	
==>n Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authentica <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22287	22385	
==>nE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the speci <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22287	22385	
==>nE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the speci <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	47	152	
==>use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	47	152	
==>use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

submethod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1093	1189	
==>im($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1151	1247	
==>im($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1185	1283	
==>rn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1185	1283	
==>rn a C<Result> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8858	8999	
==>[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8854	8995	
==>[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10383	10485	
==>ntary functions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10383	10485	
==>ntary functions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12975	13069	
==>nrecognized
entities are left alone.

If multiple strings are provided as argument they are eac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12975	13069	
==>nrecognized
entities are left alone.

If multiple strings are provided as argument they are eac <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1935	2045	
==>pe, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1935	2045	
==>pe, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3871	3984	
==>ss method.  Returns a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4055	4168	
==>ss method.  Returns a compiled rule object, or throws an exception on
invalid rule syntax.

options:

=item * gram <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9726	9861	
==>1 while unlink $self->alternatives_dir->file( $script ); 
        }      
        
        ### see if there's any other package that's n <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7329	7464	
==>e     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\
\\n   List      pre     spli <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	138	272	
==>e strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereferences, and method calls

    @baz[3](1,2,3){$xy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2824	2926	
==>uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2824	2926	
==>uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	800	920	
==>NFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	800	920	
==>NFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6547	6663	
==>polation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of tex <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6547	6663	
==>polation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of tex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2347	2461	
==>ned( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2347	2461	
==>ned( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before> - $d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2334	2457	
==>me
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2334	2457	
==>me
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22797	22906	
==>f this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mappi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27349	27458	
==>f this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mappi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	495	589	
==>.

More specialised processing instructions may sub-class this module or
provide special behavi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	495	589	
==>.

More specialised processing instructions may sub-class this module or
provide special behavi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16374	16585	
==>)
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16653	16864	
==>)
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1523	1628	
==>use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= CO <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1523	1628	
==>use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= CO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	18	120	
==>mar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	18	120	
==>mar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10042	10211	
==>d: $test{skip_reason}")
                    if $test{skipped};
                push(@msg, "$test{bonus}/$test{max} unexpectedly succeeded")
                    if $test{b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	356	454	
==>($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	356	454	
==>($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	946	1055	
==>fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that contain <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	946	1055	
==>fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that contain <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1384	1490	
==>et $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1384	1490	
==>et $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.su <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	790	915	
==>t ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	790	915	
==>t ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10305	10415	
==>thod previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10305	10415	
==>thod previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5227	5339	
==>ray is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = % <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5227	5339	
==>ray is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = % <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2700	2834	
==>p < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2700	2834	
==>p < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.sta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10083	10228	
==>nick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10083	10228	
==>nick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.las <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	907	1022	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	907	1022	
==>ss, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2851	2952	
==>$__v__ ; my($tmpvars); { local($vars)=($vars); \$__v__ = do{ ";
}
sub let_end {
  my $e = shift(@let_s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24938	25036	
==>ts are costly enough
 * that pregcomp() supplies a regmust only if the r.e. contains something
 * p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15225	15349	
==>) returns Time::Local
        is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6140	6263	
==>);

  my $match = $matcher( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5930	6049	
==>);
  my $match = $matcher( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12616	12771	
==>$source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12616	12771	
==>$source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1080	1183	
==>y $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1080	1183	
==>y $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38641	38746	
==>g_vars, it will return "Hello World!".  All
occurances of any given variable name will be replaced, non-re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38641	38746	
==>g_vars, it will return "Hello World!".  All
occurances of any given variable name will be replaced, non-re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1162	1269	
==>idth += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1162	1269	
==>idth += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3163	3277	
==>" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3151	3265	
==>" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8655	8788	
==>8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8655	8788	
==>8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19437	19562	
==>r lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block be <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19437	19562	
==>r lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within a given block be <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	54	157	
==>loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head get <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	54	157	
==>loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head get <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	770	873	
==>l::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	770	873	
==>l::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16582	16696	
==>$_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15632	15740	
==>$_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X: <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	585	688	
==>de --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DF <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	585	688	
==>de --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DF <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3768	3888	
==>if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3768	3888	
==>if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	108	204	
==>e: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	108	204	
==>e: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3151	3282	
==>s) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12117	12313	
==>source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12117	12313	
==>source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	155	260	
==>ls to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	213	318	
==>ls to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16990	17093	
==>y Relation::Example @r_with_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13591	13686	
==>most useful when writing modules and you
find there is some language feature missing, or core bu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13649	13744	
==>most useful when writing modules and you
find there is some language feature missing, or core bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6198	6350	
==>$_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6198	6350	
==>$_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15485	15609	
==>c_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15485	15609	
==>c_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10403	10532	
==>ll} and length $test{skip_all}) {
                print "skipped\n        all skipped: $test{skip_all}\n";
                $tot{sk <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41750	41845	
==>e new Relation::Example is the result of combining all of the source Relations,
such that all co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23782	23919	
==>AM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIR <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28983	29095	
==>AM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17398	17508	
==>dler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event lo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17398	17508	
==>dler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1224	1355	
==>------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1224	1355	
==>------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<bo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	677	786	
==>ed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	677	786	
==>ed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2290	2408	
==>ix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2290	2408	
==>ix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	354	454	
==>ize() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	354	454	
==>ize() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33955	34075	
==>whose body contains all of the tuples that are in the invocant Relation but
that aren't in C<$other>.  This method will f <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38505	38625	
==>whose body contains all of the tuples that are in the invocant Relation but
that aren't in C<$other>.  This method will f <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5349	5450	
==>ils.  The $url argument can
be either a simple string or a reference to a URI object.

You will not be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5349	5450	
==>ils.  The $url argument can
be either a simple string or a reference to a URI object.

You will not be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13869	13974	
==>ntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8075	8180	
==>ntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6633	6729	
==>nnot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6633	6729	
==>nnot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28435	28580	
==>e:

  # continuing from above...
  sub init {
    my $self = shift;
    $self->SUPER::init();

    $self->add_handler('&' => sub {
      # $S will <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3195	3462	
==>{
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3195	3462	
==>{
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	702	825	
==>on: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./asse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	702	825	
==>on: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./asse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36304	36405	
==>Fre','MyLibFre'].  This method is used
internally by translate_message() to produce the list of Templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36304	36405	
==>Fre','MyLibFre'].  This method is used
internally by translate_message() to produce the list of Templa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52766	52871	
==>ct, $::Package, $::Module) {
    $meta->add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	22071	22171	
==>') == -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-YAML $fil <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3507	3639	
==>currence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3507	3639	
==>currence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	190	290	
==>ns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Ar <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	190	290	
==>ns the array into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Ar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1134	1263	
==>] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->pack <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	889	1055	
==>pt'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	889	1055	
==>pt'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	824	940	
==><-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+? }

rule term { <comment> | <alternation> | <non_alternatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14319	14457	
==>pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14319	14457	
==>pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6109	6206	
==>ese 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the imple <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6109	6206	
==>ese 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the imple <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2827	2923	
==>) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2827	2923	
==>) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: S <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17505	17604	
==>et()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- `span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17505	17604	
==>et()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- `span <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18524	18616	
==>ks (C functions
which get called on regular expression compilation and execution) to
parasiti <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2814	2906	
==>ks (C functions
which get called on regular expression compilation and execution) to
parasiti <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4403	4500	
==>the Seq will finish, the Thunk will
finish, the stacks will be popped once more, and the whole AST <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6608	6750	
==>D__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6608	6750	
==>D__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2036	2140	
==>tten in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used proper <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2036	2140	
==>tten in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used proper <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6803	6914	
==>t()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6803	6914	
==>t()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.parent().insert <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17356	17459	
==>er
itself, which provides a virtual machine in which Perl code runs).

The classes and methods of this " <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17356	17459	
==>er
itself, which provides a virtual machine in which Perl code runs).

The classes and methods of this " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11149	11261	
==>e {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11149	11261	
==>e {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13904	14034	
==>y?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13904	14034	
==>y?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOI <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4283	4409	
==>l::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::Fa <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4283	4409	
==>l::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::Fa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	712	809	
==>umper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	712	809	
==>umper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15012	15174	
==>ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15291	15453	
==>ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8014	8116	
==>r_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => "\0", "\\X[0]");
  }

  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2408	2524	
==>ix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2408	2524	
==>ix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'in <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6603	6714	
==>tively short while.
sub gather_results {
    my($self) = @_;
    my $kid;
    for my $pid (@{ $self->{_children} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1347	1452	
==>ue{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[Prototype]]>;
    return JSX::undef <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13179	13308	
==>class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13179	13308	
==>class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9581	9702	
==>module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9581	9702	
==>module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34792	34887	
==>uples that
are in the invocant Relation and that match any tuples of C<$other> along
their commo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39342	39437	
==>uples that
are in the invocant Relation and that match any tuples of C<$other> along
their commo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14301	14404	
==>tem RPe_RBRACE (-20)

Missing right brace on \%s{}

=item RPe_BGROUP (-21)

Reference to nonexistent gro <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1656	1756	
==>tion = $self->position();
  return ("") if $position < 0 or $position <= $from;
  return substr $targ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11724	11823	
==>gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11724	11823	
==>gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3079	3194	
==>syntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3067	3182	
==>syntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7142	7256	
==>y

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,- <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7142	7256	
==>y

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	47	176	
==>ngs;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub '&infix:<~>',
}



__PACKAGE__;

__END__

=pod

=head <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1826	1945	
==>ntal, pre-alpha development snapshot.  There are currently
no support for match flags; regexes constructed with this mod <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38904	39009	
==>art of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43718	43823	
==>art of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is free software <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8821	8937	
==>in;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8821	8937	
==>in;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	642	743	
==>role with the enhancement that is it I<typable>.

This means;

=over

=item *

You can construct new c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20838	20939	
==>callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the const <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20838	20939	
==>callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2239	2381	
==>[0];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
        #captu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3245	3342	
==>rocess has three
main aspects:

=over 4

=item *

Resolving compile time resolvable symbols into v <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9693	9808	
==>ed with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" 
function.

Recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9693	9808	
==>ed with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" 
function.

Recurrence <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1932	2032	
==>ead2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.or <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1932	2032	
==>ead2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23642	23767	
==><SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement> <FunctionDeclaration>
}

# A.6 Universal Reso <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3883	4016	
==>Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3883	4016	
==>Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7810	7914	
==>from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7810	7914	
==>from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $eve <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1222	1361	
==>apital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1222	1361	
==>apital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml" <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2432	2572	
==>1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




conv_package {
    s/package\s+((?:${re_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	16	110	
==>s Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	16	110	
==>s Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10901	11017	
==>vecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readli <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10901	11017	
==>vecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readli <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17001	17099	
==>fy()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans numeri <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17001	17099	
==>fy()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans numeri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15106	15211	
==>ring passed as the first argument, if
called in a void context.  In scalar and array contexts, the encoded <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15106	15211	
==>ring passed as the first argument, if
called in a void context.  In scalar and array contexts, the encoded <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1686	1786	
==>d ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1579	1667	
==>d ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16722	16826	
==>ossible that one could write a self-contained application in
Rosetta D and compile that into its own exec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16722	16826	
==>ossible that one could write a self-contained application in
Rosetta D and compile that into its own exec <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	660	805	
==>le::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Modu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4050	4171	
==>gc;
    $S->error(RPe_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2444	2560	
==>e eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2502	2618	
==>e eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9342	9481	
==>"$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9330	9469	
==>"$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( <==
2	/Users/nnunley/pugs/util/grokprims.pl	2113	2217	
==>rint "   <tr>";
  print "<td><tt>$example</tt></td>";
  print "<td>$op->{assoc}</td>";
  print "<td>$op-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32942	33041	
==>slator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - Thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32942	33041	
==>slator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	186	292	
==>t $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

use Benchmark;
require 'regexp_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7432	7603	
==>ies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	733	904	
==>ies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satis <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	202	321	
==>onal $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if th <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	202	321	
==>onal $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors should emit error messages if th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5441	5551	
==>gs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Em <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5251	5359	
==>gs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3486	3607	
==>piler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$' . $_[0]->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	476	577	
==>in' Match.

- There are no tests yet for <before>, hashes, end_of_string, and the rule wrapper.

- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1164	1270	
==>ns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1164	1270	
==>ns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1734	1892	
==>~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1734	1892	
==>~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8590	8693	
==>STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8590	8693	
==>STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6682	6812	
==>{
    my $self = shift;
    my $g = $self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2049	2157	
==>" ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2049	2157	
==>" ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1682	1787	
==>.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Litt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	493	591	
==>)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_toler <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	493	591	
==>)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_toler <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13425	13529	
==>/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13425	13529	
==>/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32896	32994	
==>The walk() method is used to modify the walking stack before the node
is returned.  Here is the wal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12195	12291	
==>[map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12195	12291	
==>[map { "image/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17307	17406	
==>o" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.tit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17307	17406	
==>o" for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.tit <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1229	1364	
==>.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5807	5908	
==>, the only method that truly must be implemented is the 
one that actually enciphers the data.  They m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5807	5908	
==>, the only method that truly must be implemented is the 
one that actually enciphers the data.  They m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4717	4819	
==>d');

cmp_ok($p3d->id, '!=', $p->id, '... not the same ids');

$p3d->set_x(200);
is($p3d->get_x, 200, ' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20158	20242	
==>.
rm(class_neg(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_neg(X),C), !.
rm(e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1351	1457	
==>nt $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1351	1457	
==>nt $depth) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6472	6604	
==>t)\
\\n   Junction  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List)\
\\n   Junction  pre     none    saf <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9898	10015	
==>item sort

 type KeyExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCrit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5265	5409	
==>5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5265	5409	
==>5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $gra <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4517	4625	
==>thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4575	4683	
==>thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns B <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12313	12425	
==>value, but only if no previous
value for that field is set.

The header field name ($field) is not case sensitive <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12313	12425	
==>value, but only if no previous
value for that field is set.

The header field name ($field) is not case sensitive <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10620	10725	
==>es} eq "ARRAY";
	_quote_args(\$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15403	15591	
==>oin( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18880	19068	
==>oin( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1530	1624	
==>d the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1370	1464	
==>d the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7006	7124	
==>data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7006	7124	
==>data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1460	1580	
==>tp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1427	1547	
==>tp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	349	453	
==>ingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	349	453	
==>ingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17944	18082	
==>{ 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This metho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17944	18082	
==>{ 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This metho <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12204	12302	
==>he same relative order they had in C<@values>.

If C<$inplace> is specified, the array is sorted in <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2956	3060	
==>me::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, which can be called r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2956	3060	
==>me::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, which can be called r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6909	7009	
==>ng, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6909	7009	
==>ng, before the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_ciph <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	19	147	
==>L            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	19	147	
==>L            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2158	2306	
==>( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24083	24226	
==>fthen => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join "", <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5242	5355	
==>f a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5242	5355	
==>f a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8950	9054	
==>rd semantics, where 'require'
    # will munge the package name into file system paths.
    eval "require <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8950	9054	
==>rd semantics, where 'require'
    # will munge the package name into file system paths.
    eval "require <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	335	449	
==>os { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	335	449	
==>os { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4129	4304	
==>lose $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't de <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4129	4304	
==>lose $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't de <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	274	412	
==>eturns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $in <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	274	412	
==>eturns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3249	3352	
==>POS, &RxCUR) if &RxPOS != &RxLEN;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ $self->{stack} } whi <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	908	1055	
==>code for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi s <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	908	1055	
==>code for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	238	383	
==>tart at a line start

BEGIN {
    __PACKAGE__->add_rule(
        "=begin" => q(
                #{ print "pod - $_[0]\n" }
                .* \n \ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10465	10562	
==>,"\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive\n";

our $regexp_compi <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1344	1451	
==>re strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1344	1451	
==>re strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16171	16302	
==>character
chopped.


=item chomp

 multi Str::chomp (  Str  $string is rw                 --> Int )
 multi Str::chomp ( Str *@string <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3455	3562	
==>oriented; the procedural and functional 
interfaces are layers on top of the object-oriented backend.

To us <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3455	3562	
==>oriented; the procedural and functional 
interfaces are layers on top of the object-oriented backend.

To us <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7597	7720	
==>s Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_or <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7597	7720	
==>s Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_or <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7397	7492	
==>->leave_scope;
		
		my $child = $rthunk->val->struct_equiv;

		if ($child->isa("Blondie::Seq")){ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2957	3064	
==>ject(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	988	1095	
==>ject(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3246	3431	
==>(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAss <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3246	3431	
==>(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAss <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4852	4953	
==>for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4992	5093	
==>for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2852	2956	
==>ue class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2852	2956	
==>ue class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4628	4833	
==>m_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 un <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4628	4833	
==>m_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 un <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14437	14541	
==>}


sub Pugs::Internals::but_block ($obj, Code $code) is primitive is safe {
    $code($obj);
    $obj;
} <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1897	1992	
==>setup = sub { system($setup, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @{$ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7380	7530	
==>s_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'x'} = $n;
        }
        elsif ($k.chars > 2 && s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1281	1382	
==>ults along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The proc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1281	1382	
==>ults along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The proc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1764	1873	
==>h returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1764	1873	
==>h returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6307	6434	
==>urn $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6307	6434	
==>urn $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24475	24571	
==>ver. The command is not modified by C<Net::IRC>,
aside from appending the correct newline charact <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24475	24571	
==>ver. The command is not modified by C<Net::IRC>,
aside from appending the correct newline charact <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4744	4937	
==>ltipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        }) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4744	4937	
==>ltipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        }) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3760	3885	
==>g=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3977	4102	
==>g=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$ <==
2	/Users/nnunley/pugs/util/package-osx.pl	4383	4509	
==>.3pm
        /usr/local/man/man3/Perl6::Bible::E07.3pm
        /usr/local/man/man3/Perl6::Bible::S01.3pm
        /usr/local/man <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1768	1872	
==>ON

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
S <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1768	1872	
==>ON

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20743	20835	
==>nels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20743	20835	
==>nels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its k <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1820	1935	
==>my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1820	1935	
==>my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6550	6678	
==>st_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6743	6871	
==>st_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3053	3144	
==>returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Has <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3053	3144	
==>returns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Has <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2812	2928	
==>superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3017	3133	
==>superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4525	4622	
==>right super-superclass name for Point3D');

is($p3d->get_x, 5, '... got the right x for p3d');
is( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6994	7083	
==>urn { eval_perl5 => $<literal> } }
RULE
*{'_return'} = Pugs::Compiler::Rule->compile(<<'RU <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15030	15183	
==>ue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$rea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15030	15183	
==>ue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$rea <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4881	4988	
==>:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4881	4988	
==>:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	39	157	
==>::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub ini <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	39	157	
==>::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub ini <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3115	3223	
==>@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3115	3223	
==>@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # T <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3714	3814	
==>d put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3714	3814	
==>d put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11596	11729	
==>nf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object represe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11596	11729	
==>nf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object represe <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7800	7891	
==>extests> are provided, only elements whose indices match
C<$index ~~ any(@indextests)> are i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20689	20790	
==>s not declare any subroutines or export such.

The usual way that Relation indicates a failure is to t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25241	25342	
==>s not declare any subroutines or export such.

The usual way that Relation indicates a failure is to t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1521	1634	
==>ft(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2028	2119	
==>oken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2100	2191	
==>oken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17361	17471	
==>VMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17361	17471	
==>VMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8692	8805	
==>y $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8692	8805	
==>y $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2689	2796	
==>dl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$ms <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2689	2796	
==>dl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$ms <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7279	7379	
==>byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers shoul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7279	7379	
==>byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers shoul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	413	544	
==>";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        subst <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	510	641	
==>";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        subst <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6155	6249	
==>from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Updat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6155	6249	
==>from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Updat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25128	25228	
==>f this Relation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29680	29780	
==>f this Relation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicati <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1812	1909	
==>r' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1812	1909	
==>r' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Arr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1008	1113	
==>when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1008	1113	
==>when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3963	4088	
==>col (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3823	3944	
==>col (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7451	7695	
==>= Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7451	7695	
==>= Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7359	7463	
==>d {
    if !$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7359	7463	
==>d {
    if !$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24745	24848	
==>urn if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21166	21269	
==>urn if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2443	2539	
==>dule_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_n <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2443	2539	
==>dule_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20576	20688	
==>[10],[10],B0,B0,E0,E0) :- !.
rm(eol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|F <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19624	19734	
==>uiltin is primitive is safe {
    join($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6517	6631	
==>Safe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my $y = shi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18703	18806	
==>n => ide("id"),
				param => val(v => "foo", t => type::operator::nullary->new("str")),
			),
		),
	),
) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2058	2154	
==>nger valid.
This gives the impression of lexically scoped marks (but it may also
limit the engine <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2058	2154	
==>nger valid.
This gives the impression of lexically scoped marks (but it may also
limit the engine <==
2	/Users/nnunley/pugs/util/config_h.pl	1813	1968	
==>_args,
            "--make", "-v0",
            -o => "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$tem <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1278	1368	
==>358979323846264338327950288419716939937510;
}

sub lcfirst (Str $str) returns Str is builti <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6029	6169	
==>tests skipped
    todo            Number of individual todo tests

    files           Number of test files ran
    good            Number of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25061	25186	
==>conditions of the GPL
cover the whole combination.  As a special exception, the copyright holders
of Rosetta give you permissi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25061	25186	
==>conditions of the GPL
cover the whole combination.  As a special exception, the copyright holders
of Rosetta give you permissi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8803	8920	
==>ub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, $how);
  });

  # punct P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1880	1982	
==>Perl6::Run::OnPerl5::X1::CodeCompile->new($type=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$co <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2479	2607	
==>ain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	128	251	
==>per;

# see also:
#  http://web.mit.edu/gnu/doc/html/bison_[6,8].html

# notes:
#  'assoc' is one of:  nonassoc / righ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2622	2759	
==>]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = ne <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2622	2759	
==>]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8470	8568	
==>se the
parse() method to explicitly build it:

  $parser->parse;

This is not necessary, though, be <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35699	35790	
==>ary relational operator that takes a single
Relation::Example in its C<$other> argument, whe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3868	3976	
==>the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3868	3976	
==>the file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	197	333	
==>_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{'$.passed'}      = 1  unless exists $para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4170	4267	
==>---
Syntactic categories
    For writing your own backslash and assertion rules or macros, you may <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6628	6733	
==>_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs - <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6628	6733	
==>_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs - <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	495	600	
==>: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	495	600	
==>: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39744	39847	
==>s free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Publ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39744	39847	
==>s free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Publ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16115	16213	
==>ill be focusing mainly on how Rosetta itself works, and will
not spend much time in providing ratio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16115	16213	
==>ill be focusing mainly on how Rosetta itself works, and will
not spend much time in providing ratio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	594	713	
==>t();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	594	713	
==>t();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11565	11705	
==>ined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11565	11705	
==>ined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4922	5022	
==>, ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4922	5022	
==>, ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	416	522	
==>es.

=cut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# represen <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	416	522	
==>es.

=cut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# represen <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1150	1251	
==>ectory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1150	1251	
==>ectory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3693	3819	
==>f->family;
  }

  sub family { 'digit' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\D' : '\d';
  }
}


{
  pack <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2844	2961	
==>ng implementation by far.
The Parrot implementation is currently at a comparable state as v6.pm.

Although running C<v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	271	387	
==>atch;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	271	387	
==>atch;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys % <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5820	5936	
==>e seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5820	5936	
==>e seconds and a positive value for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28428	28528	
==>the ending node for this object.
This is used by the walk() method.  Typically, a capturing group's e <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10588	10712	
==>le my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.pus <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10588	10712	
==>le my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.pus <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19617	19720	
==>Statement>
    | <ContinueStatement>
    | <BreakStatement>
    | <ReturnStatement>
    | <WithStatement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9409	9558	
==>ndent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9397	9546	
==>ndent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tm <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20065	20209	
==>ipped}) {
            $bonusmsg .= " and $tot->{sub_skipped} subtest"
                         . ($tot->{sub_skipped} != 1 ? 's' : '');
        } <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	819	929	
==>t {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code * <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6489	6615	
==>y>;
        %modifiers_supported_p6 = map {;($_ => 1)},
        <i ignorecase s sigspace g global  stringify>;
        %modifie <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	40	145	
==>oc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	40	145	
==>oc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5800	5943	
==>" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5800	5943	
==>" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $cod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3404	3515	
==>setta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3404	3515	
==>setta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::I <==
2	/Users/nnunley/pugs/util/grokprims.pl	1504	1604	
==>ng) infix/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0";
  } elsif (/left-associative/ and $arit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	378	517	
==>ber.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	378	517	
==>ber.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GI <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3753	3854	
==>n $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3753	3854	
==>n $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1578	1691	
==>gory;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1578	1691	
==>gory;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8690	8801	
==>e just overload bool to false ;)

(I mean, seriously, because that's what p6 does)

and also you can overload @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8401	8510	
==>e just overload bool to false ;)
(I mean, seriously, because that's what p6 does)
and also you can overload @{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14834	14965	
==>q '~' ) {
        return ' "" . ' . _emit( $n->{exp1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9786	9927	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10065	10206	
==>ammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rul <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3414	3525	
==>y %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3414	3525	
==>y %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6012	6130	
==>is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # becau <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6070	6188	
==>is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # becau <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7441	7543	
==>lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7441	7543	
==>lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4028	4146	
==>b"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4028	4146	
==>b"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the mat <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	831	939	
==>not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub regis <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	831	939	
==>not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub regis <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6079	6202	
==>hod previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6079	6202	
==>hod previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8749	8859	
==>tely.
# This method is called automatically when 
# a subtree is added to a child array
method fix_depth ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8749	8859	
==>tely.
# This method is called automatically when 
# a subtree is added to a child array
method fix_depth ($self <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2148	2417	
==>}
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3740	4005	
==>} else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9156	9372	
==>];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1569	1689	
==>file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.f <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1569	1689	
==>file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	814	910	
==>class supports PMC compilation.
#
# The hope is that this will allow interoperability with module <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	814	910	
==>class supports PMC compilation.
#
# The hope is that this will allow interoperability with module <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5946	6086	
==>rt;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method prev <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5946	6086	
==>rt;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method prev <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5681	5778	
==>ad($url)

Get document headers. Depending on the context, C<head> returns
the following values:

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5681	5778	
==>ad($url)

Get document headers. Depending on the context, C<head> returns
the following values:

= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11265	11382	
==>bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11265	11382	
==>bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3484	3595	
==>ir
        my $my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_di <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1954	2065	
==>ir
        my $my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3142	3260	
==>turn 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3142	3260	
==>turn 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data ) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11093	11340	
==>os{$todo_type};
                if ($todo_type eq '__') {
                    $todo_type = '' ;
                }
                else {
                    $todo_type .= ' ';
                }            
                print("        $num_tests/ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2257	2382	
==>( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $pos <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1671	1787	
==>harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1671	1787	
==>harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	394	511	
==>~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	394	511	
==>~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6908	7042	
==>osure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6908	7042	
==>osure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $clo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3348	3477	
==>rogram,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3565	3694	
==>rogram,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  p <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2667	2769	
==>) [] :: as in :z()not :z[]not :z::not
rule metasyntactic_token { \:\w\S+ }

rule commit_something { <co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	974	1114	
==>_->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'tighter',
        other => '*',
    ) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6020	6117	
==>)) {
			warn "filling " . $self->display_type($expected_type) . " for placeholder of " . Blondie:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	709	804	
==>>digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend::Perl::Builtins <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1244	1344	
==>xit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $g <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4328	4410	
==>(:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4328	4410	
==>(:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20014	20113	
==>n used to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20014	20113	
==>n used to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($u <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8502	8615	
==>ed correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "4 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8502	8615	
==>ed correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "4 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4083	4309	
==>event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4083	4309	
==>event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1905	2022	
==>( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $vis) = @_;
    my $self = bless {
      rx = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1965	2071	
==>o_native;             
}

$::ENV = Perl6::Runtime::get_top_level_env();

## ------------------------------- <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1658	1804	
==>h->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, << " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1625	1770	
==>h->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<" <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4643	4851	
==>`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4643	4851	
==>`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17494	17587	
==>cally from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no long <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17494	17587	
==>cally from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no long <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11305	11419	
==>t( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 \$_[0]->() /sgx;
    #print "Code: $code\ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5569	5667	
==>->get_tests;
    $self->run_children($Config{concurrent}, \@tests);
}

sub run_children {
    my ($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9694	9808	
==>e_pil0 deleteme_pil1");
}
sub p2p {
    my($fn)=@_;
    my $c0 = `cat $fn`;
    my $p = eval($c0); die "$fn: $@" if <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13520	13632	
==>E - ought to check if the runtime has a hash for this
    # in the future the compiler might allow adding globals <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6288	6407	
==>erm_literal_loop
  term_literal_end:
    if litlen < 1 goto term_literal_one
    dec pos
  term_literal_one:
    $I0 = p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8943	9038	
==>s([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13178	13300	
==>ad()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13178	13300	
==>ad()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people a <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	615	826	
==>s* M )? \s*
        (?: (\d+) \s* D )? \s*
        (?: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? \s*
            (?: (\d+) (?: \.(\d+))? \s* S )? \s* )?
        /;      #/x  # (go cp <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5937	6273	
==>difier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5937	6273	
==>difier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1996	2203	
==>args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1996	2203	
==>args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7830	7965	
==>GE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emitter - 

=head1 SYNOPSIS

	use Blondie::Backend::C::Emitter;

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24231	24338	
==>:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Confined to regcomp/regexec.

 * re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13113	13204	
==>slator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
represen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13113	13204	
==>slator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
represen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	617	714	
==>_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	675	772	
==>_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) retur <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4476	4580	
==>g methods are available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4476	4580	
==>g methods are available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3699	3935	
==>5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3699	3935	
==>5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	17	122	
==>fixes the config for us
BEGIN { require 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	96	222	
==>ry);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39691	39786	
==>ncan.net/> for more
information.

Locale::KeyedText is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39691	39786	
==>ncan.net/> for more
information.

Locale::KeyedText is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8345	8454	
==>un) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8403	8512	
==>un) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tes <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4341	4548	
==>) {
            $list->push(
                $closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $clos <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42839	42938	
==>.y that is at least 6.0.0.

It also requires these Perl 6 classes that are in the current distributi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	523	636	
==>END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	523	636	
==>END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	653	764	
==>deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	653	764	
==>deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2324	2433	
==>ol {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Sp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2324	2433	
==>ol {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Sp <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	648	788	
==>ute($minute), :second($second),
                             :tz($tz) );
}

# convert from an iso date
multi sub date( Str $iso8601 ) returns <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18733	18826	
==>:-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max(Re,N1,Fx,F1,Bx,B1,Ex,E1).
rm_rep <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3870	3998	
==>in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3882	4010	
==>in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #per <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2714	2812	
==>nto 'name' and 'value' pairs.  This
method should be called before any other methods, as it initial <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2714	2812	
==>nto 'name' and 'value' pairs.  This
method should be called before any other methods, as it initial <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1011	1133	
==>e tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4489	4611	
==>e tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's att <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3705	3822	
==>uest (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  jo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3705	3822	
==>uest (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  jo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	965	1095	
==>e_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCURLY => --$ENUM, 'Can\'t do {n,m} with n > m';
use constant RPe_NULNUL => -- <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1798	1903	
==>lf->_init;

    return $self;
}

=head2 C<_init>

  $strap->_init;

Initialize the internal state of a str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24550	24646	
==>bute value.

Every Relation::Example attribute has a name that is distinct from the other
attribu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9130	9239	
==>user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9130	9239	
==>user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $chan <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11812	11927	
==>y $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	221	331	
==>y $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6313	6413	
==>one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The document is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6313	6413	
==>one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The document is <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12178	12283	
==>1-safemode.t if you change the fully
    # qualified name of open3.

    multi sub open3 (Str $command) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12264	12399	
==>package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12258	12393	
==>package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1724	1861	
==>w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1724	1861	
==>w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	786	885	
==>.html>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC ( <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	786	885	
==>.html>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24081	24183	
==>uperclasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('supercla <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	728	832	
==>ead1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Buil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	728	832	
==>ead1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Buil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5364	5455	
==>nds) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5422	5513	
==>nds) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18364	18472	
==>er>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18364	18472	
==>er>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4829	4939	
==>ual_to on " . $left->fetch($i)->name->to_native . ' => ' . $left->fetch($i)->type->to_native;
        # warn "w <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7792	7894	
==>es_In_Dir if defined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5284	5395	
==>mpiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5101	5206	
==>mpiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14111	14200	
==>([C|T]) --> [C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncode_charna <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34399	34677	
==>->do());             
                block->new($e, sub {
                    $e->get('$next')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4214	4344	
==>f ( $i != $j ) {
        #print "optimize $item in @rules[$i..$j]\n";
        my $len = length( $item );
        my @r = map { $_ e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12439	12539	
==>akes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12439	12539	
==>akes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	81	172	
==>erldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
us <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	81	172	
==>erldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
us <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1711	1820	
==>}
    
    if ($class->can('subclasses')) { # roles don't have subclasses
        foreach my $subclass (@{$cla <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1341	1438	
==>CRIPTION

B<STOP!> If all you want to do is write a test script, consider
using Test::Simple.  Tes <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2950	3114	
==>it up for holding meta-data
            unless ( -d $obj->meta_dir ) {
                
                ### set up the dirs
                for my $subdir ($obj->met <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1797	1906	
==>xt";
my $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "initrd.img";
my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47954	48131	
==>urns => 'nil'
            ),            
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:namespace' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6516	6621	
==>mine if requested template module is already loaded.
        # It may have been embedded in a core program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6516	6621	
==>mine if requested template module is already loaded.
        # It may have been embedded in a core program <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9471	9571	
==>_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9471	9571	
==>_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg_key!', $ms <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7338	7444	
==>d   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7338	7444	
==>d   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1570	1757	
==>uleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24841	24956	
==>esult, "\n";
    my $txt = join "", @result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END__


=head1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2894	2997	
==>at
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2894	2997	
==>at
GHC and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir retur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33649	33743	
==>sion of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38199	38293	
==>sion of the aforementioned.

=item C<difference (Relation $other!) returns Relation>

This meth <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6432	6530	
==>Void';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6432	6530	
==>Void';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17441	17549	
==>mpilation process, calling each compiler
at the right time with the right data.

=item *

Ability to ship pre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17441	17549	
==>mpilation process, calling each compiler
at the right time with the right data.

=item *

Ability to ship pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3645	3765	
==>rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8230	8342	
==>ubstr($1, 1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octal digit '%s' ignored", $1) if $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1342	1452	
==>grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1342	1452	
==>grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22646	22749	
==>attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27198	27301	
==>attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Rel <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3948	4038	
==>vard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://l <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3948	4038	
==>vard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://l <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15063	15175	
==>e/ox ) {
        ($test->{name}, my $control) = $extra ? split(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25987	26082	
==>cuting the individual tests.  This allows
the tests to determine if they are being executed thro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1803	1911	
==>pha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1863	1971	
==>pha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20206	20295	
==>_authorization_basic

Same as authorization_basic() but will set the "Proxy-Authorization" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20206	20295	
==>_authorization_basic

Same as authorization_basic() but will set the "Proxy-Authorization" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1245	1363	
==>HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1245	1363	
==>HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4870	4982	
==>$char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $cha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4870	4982	
==>$char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $cha <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5056	5164	
==>1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $enc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5056	5164	
==>1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $enc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	9	113	
==>:IRC::JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	9	113	
==>:IRC::JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3469	3599	
==>nshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3469	3599	
==>nshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22356	22453	
==>ple search
directories in your path that packages could be installed in.

Generally, when a progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22356	22453	
==>ple search
directories in your path that packages could be installed in.

Generally, when a progra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7334	7476	
==>"Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7334	7476	
==>"Server") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4942	5120	
==>[ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4789	4962	
==>[ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	554	711	
==>f } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for Fi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	554	711	
==>f } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for Fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13114	13211	
==>t of
a message.  All header field names prefixed with C<Content-> falls
into this category, as wel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13114	13211	
==>t of
a message.  All header field names prefixed with C<Content-> falls
into this category, as wel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8629	8719	
==>0.

It also describes the same-number versions of Rosetta::Model::Document
("Document") and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8629	8719	
==>0.

It also describes the same-number versions of Rosetta::Model::Document
("Document") and <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15838	15957	
==>.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15896	16015	
==>.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Tes <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21309	21458	
==>p6_setq  {
    my($pkg,$n,$v)=@_;
    my $mn = p6_mangle($n,$pkg);
#    print STDERR $mn,"\n";
    no strict 'refs';
    $$mn = p6_meta('Scalar')->new <==
2	/Users/nnunley/pugs/util/testgraph.pl	50	146	
==>st 0.05 [ [qw/YAML::Syck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
us <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15771	15890	
==>exical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2168	2283	
==>exical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7001	7111	
==>real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7001	7111	
==>real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_lin <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1114	1213	
==>serv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7316	7611	
==>{
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7316	7611	
==>{
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1552	1652	
==>_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1552	1652	
==>_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_node <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4794	4924	
==>osname}     ||
          $b->{timestamp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores{$runcore}{$cat} }
      ];
    }

    $r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33206	33323	
==>('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut

$::Clas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1577	1726	
==>~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $strin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1577	1726	
==>~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1919	2035	
==>e_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2136	2252	
==>e_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2000	2089	
==>ome::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2000	2089	
==>ome::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17201	17326	
==>0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17201	17326	
==>0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1378	1472	
==>er($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1378	1472	
==>er($self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7461	7560	
==>d by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7461	7560	
==>d by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20371	20462	
==>ncoding of a nondeterministic
finite-state machine (aka syntax charts or "railroad normal fo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2737	2833	
==>\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2737	2833	
==>\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7063	7183	
==>rams {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_ME <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7063	7183	
==>rams {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_ME <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2636	2745	
==>ead1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2636	2745	
==>ead1 BUGS

This module is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9475	9571	
==>tes are private, so you must use accessor methods.
Rosetta::Model does not declare any subroutine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9475	9571	
==>tes are private, so you must use accessor methods.
Rosetta::Model does not declare any subroutine <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26129	26242	
==>x is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If th <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	977	1098	
==>admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . ":: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25202	25295	
==>le.  A zero-attribute Relation::Example with zero tuples or
one tuple respectively have a spec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4235	4450	
==>/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4235	4450	
==>/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13806	13931	
==>ents>
    | <CallExpression> <'['> <Expression> <']'>
    | <CallExpression> <'.'> <Identifier>
}
rule Arguments :words {  # s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4581	4704	
==>on    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heav <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4581	4704	
==>on    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heav <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3282	3383	
==>e1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3282	3383	
==>e1>, :opt2<value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=h <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4825	4968	
==>g.\n";
        }
        else {
            #Generates the details based on the last test line seen.  C<$pass> is
            #true if it was co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	919	1004	
==>'condition_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op>:=(if|unle <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1907	2024	
==>lass->pmc_template($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1907	2024	
==>lass->pmc_template($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_fi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1310	1407	
==>kes a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

meth <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1310	1407	
==>kes a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

meth <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3	112	
==>d

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3	112	
==>d

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	664	763	
==>f last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unle <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	664	763	
==>f last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() unle <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4508	4635	
==>);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4508	4635	
==>);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dir <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13070	13172	
==>_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13070	13172	
==>_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1190	1310	
==>mplate, $filename) or
            die "copy: $!";
        print <<".";
*** Default build config file created.
    You can <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3274	3500	
==>n $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3274	3500	
==>n $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9706	9840	
==>initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please mount \"$initrd_img\" into \"$initrd_mnt\" by entering the following <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	836	932	
==>, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	836	932	
==>, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	328	436	
==>C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	328	436	
==>C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1342	1441	
==>pan.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1342	1441	
==>pan.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1642	1777	
==>\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1642	1777	
==>\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $! <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21423	21590	
==>>do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44330	44497	
==>>do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3646	3744	
==>done by setting C<$match.multidex> to the index where
captures should put themselves.  In the forme <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3646	3744	
==>done by setting C<$match.multidex> to the index where
captures should put themselves.  In the forme <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	599	716	
==>gs, *@args ]) {
            my $normalizer = $arg but $.normalizer_role;
            return $normalizer but $.coercer_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4987	5126	
==>eturns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4987	5126	
==>eturns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9294	9395	
==>($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns tr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9294	9395	
==>($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns tr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6493	6589	
==>rray of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method sho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6493	6589	
==>rray of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method sho <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1778	1893	
==>mpiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "clas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1778	1893	
==>mpiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "clas <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4694	4799	
==>$V),$W);
    return;
}

# 8.8 The List Type
class JSX::InternalValue::List is Array;

# 8.9 The Completion <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2642	2848	
==>ed $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2642	2848	
==>ed $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14523	14634	
==>$S0 == '<' goto name
    $I0 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numer <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3787	3913	
==>start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3787	3913	
==>start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11106	11201	
==>s separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11106	11201	
==>s separator in scalar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19241	19347	
==>_log_code($code);    
    my @res = eval_wa($code,wantarray);
    eval_p5_log_error($code,$@) if $@;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3807	3925	
==>en_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3807	3925	
==>en_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.int <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3209	3311	
==>ash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3209	3311	
==>ash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7230	7341	
==>ure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7230	7341	
==>ure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersection( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13099	13230	
==>t)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13099	13230	
==>t)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$r <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3130	3250	
==>$version = shift;
    my $ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file = File::Spec->rel2abs("dist/bui <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	484	595	
==>key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	484	595	
==>key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8835	8983	
==>}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8823	8971	
==>}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16909	17010	
==>pan.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16909	17010	
==>pan.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Ret <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2473	2610	
==>= pop(@$ops);
        my $nont = $oper->make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z::oop{$id}{'op_ah <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10056	10164	
==>d (normal
    Haskell runcore, <a
    href="http://svn.openfoundry.org/pugs/perl5/PIL-Run/">Perl 6 on Perl 5< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5197	5320	
==>e if ref $new and $new == $type;
			$type = $new;
		}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $type = $sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	628	740	
==>RSION($ver || 0); 1 };
}

# check if we can run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12425	12582	
==>_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, unde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12419	12576	
==>_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, unde <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2526	2664	
==>lib},
        SITELIBEXP      => $libs->{sitelib},
        PERLPREFIX      => $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2026	2193	
==>e  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2273	2440	
==>e  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3462	3572	
==>x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3462	3572	
==>x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29839	29939	
==>dule MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed hash
and an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29839	29939	
==>dule MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed hash
and an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1304	1413	
==>t $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1304	1413	
==>t $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1991	2182	
==>dText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1991	2182	
==>dText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	313	432	
==>P5};
    delete $param->{Perl5};
    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;
    my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1787	1901	
==>::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1927	2041	
==>::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{u <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	909	1020	
==>y $self = shift;
	$self->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17321	17426	
==>nd of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title of the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17321	17426	
==>nd of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title of the <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3416	3539	
==>cks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto $1;/g;
  #print STDERR $_;
  $_;
};
1;
packa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37510	37599	
==>ibute->new('%:attributes'      => 'hash')));
$::Class->send('add_attribute', (symbol->new( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19106	19208	
==>ot> happen automatically if using the header(),
push_header() or init_header() methods to set the refer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19106	19208	
==>ot> happen automatically if using the header(),
push_header() or init_header() methods to set the refer <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15687	15794	
==>pers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15687	15794	
==>pers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1875	1986	
==>, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

su <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1875	1986	
==>, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1577	1714	
==>ime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1577	1714	
==>ime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2979	3104	
==>.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname inform <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2979	3104	
==>.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname inform <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11819	11915	
==>3 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11819	11915	
==>3 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6143	6252	
==>::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6143	6252	
==>::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  pa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15380	15489	
==>e - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15380	15489	
==>e - Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2146	2252	
==>odes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2146	2252	
==>odes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$mat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	350	461	
==>ies,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	350	461	
==>ies,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14574	14691	
==>o, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14574	14691	
==>o, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_time <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22595	22693	
==>ement :words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
}
rule TrySta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3665	3782	
==>ent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HT <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3665	3782	
==>ent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HT <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6738	6878	
==>= @_;

    unless( -e $file ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $sel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25632	25736	
==>ant Relation but that some of its attributes
are renamed.  The argument C<$mapping> says which attributes <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30184	30288	
==>ant Relation but that some of its attributes
are renamed.  The argument C<$mapping> says which attributes <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1580	1690	
==>pan.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Gi <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1580	1690	
==>pan.

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Gi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22528	22652	
==>aram => val(10),
			),
		),
	),
);

my $length_and_first_gen = let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2489	2587	
==>{ return { assign_hash_to_scalar => $() } }
RULE
*{'assign_slurp_to_variable'} = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11346	11542	
==>scardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11346	11542	
==>scardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1326	1425	
==>if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1326	1425	
==>if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($se <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	14	129	
==>l

# Simple YAML test harness written over Test::Harness::Straps.
# Hacked up from mini_harness.plx in the Test::Har <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6195	6300	
==><object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6195	6300	
==><object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16659	16760	
==>es; it never outputs anything by itself to the user, but
rather returns its results for calling code t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16659	16760	
==>es; it never outputs anything by itself to the user, but
rather returns its results for calling code t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1721	1868	
==>ODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1709	1856	
==>ODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%nam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	569	706	
==>s);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	569	706	
==>s);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zero <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1759	1863	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1817	1921	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ $expected;
    Test::proc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1062	1154	
==>?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{'meth_call_term'} = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1937	2065	
==>re_body>
        
        { my $body = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          return { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16357	16481	
==>$c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21708	21806	
==>rride simply by using the same key code with a new user message in
one of their own resource files. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21708	21806	
==>rride simply by using the same key code with a new user message in
one of their own resource files. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1819	1994	
==>. 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1807	1982	
==>. 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quan <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1661	1759	
==>sponse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1661	1759	
==>sponse doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9457	9549	
==>set($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9457	9549	
==>set($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7317	7400	
==>t("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7317	7400	
==>t("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8894	9023	
==>};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8882	9011	
==>};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1179	1313	
==>= 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @scr = @_;
   my $tot = 0;
   for my $s ( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	899	1019	
==>rting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending dat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15068	15173	
==>a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set are cons <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15068	15173	
==>a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set are cons <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16553	16665	
==>($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAM <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16553	16665	
==>($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAM <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15272	15418	
==>->values };
    my $ast = shift;

    $self->reduce($ast);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5475	5574	
==>d]\x[bbd]]> }
rule bracket_close { <[\}\)\]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	235	338	
==>het' version.

- It currently passes all it's tests.

- The algorithm is a bit simpler than the prev <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3940	4033	
==>s->name, 'Class', '... $Class got the right method return value');
is($Class->superclass, $Obj <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5842	5935	
==>s->name, 'Class', '... $Class got the right method return value');
is($Class->superclass, $Obj <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	860	959	
==>l parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - ch <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	860	959	
==>l parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - ch <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	629	717	
==>-----------------------------------------------------------
## private methods

my method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	629	717	
==>-----------------------------------------------------------
## private methods

my method <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3500	3597	
==>::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3500	3597	
==>::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7456	7598	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7444	7586	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4633	4788	
==>dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4633	4788	
==>dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4112	4206	
==>rs.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4112	4206	
==>rs.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5084	5185	
==>ructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a boolea <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5084	5185	
==>ructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a boolea <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7857	7966	
==>der::TestPlan;
  
  my  Test::Builder           $:singleton;
  has Test::Builder::Output   $.output handles 'd <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	5	106	
==>ipher;
class Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	5	106	
==>ipher;
class Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4551	4670	
==>name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4563	4682	
==>name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n" <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	267	363	
==>to, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certai <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	267	363	
==>to, eg, note to the L<Pod::Writer> that an
upcoming closing node is to be represented in a certai <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	112	204	
==>::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	112	204	
==>::Arcfour.encipher($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1162	1268	
==>my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2327	2433	
==>my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_object <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17299	17438	
==>$fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi < $flen) {
        # optional non-conversion text
        my $i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6038	6175	
==>ue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6038	6175	
==>ue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(pa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4624	4726	
==>deciphers the given data.  May return data which is part of the 
ciphertext, but is not necessarily the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4624	4726	
==>deciphers the given data.  May return data which is part of the 
ciphertext, but is not necessarily the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1015	1125	
==>e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => sub {
    my ($S, $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11177	11269	
==>returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11177	11269	
==>returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24185	24320	
==>sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20606	20741	
==>sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ift <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15446	15544	
==>ance of needs between its different
users, such as their preferred language of communication, or th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15446	15544	
==>ance of needs between its different
users, such as their preferred language of communication, or th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3582	3708	
==>h);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3582	3708	
==>h);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe 
    # replace th <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1148	1249	
==>to explain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference d <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1148	1249	
==>to explain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2279	2416	
==>es should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2196	2325	
==>es should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Fo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6937	7057	
==>lings);
}

# insertSibling is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6937	7057	
==>lings);
}

# insertSibling is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24068	24177	
==>n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_at <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20489	20598	
==>n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_at <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3559	3686	
==>s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4408	4535	
==>s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3097	3184	
==>( $self.complement_next, $self.complement_previous, $set.complement_next, $set.complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3097	3184	
==>( $self.complement_next, $self.complement_previous, $set.complement_next, $set.complemen <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	357	550	
==>ecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1 <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	357	550	
==>ecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15948	16065	
==>rget $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15948	16065	
==>rget $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17431	17529	
==>ument.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17431	17529	
==>ument.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7591	7727	
==>ption
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7591	7727	
==>ption
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2048	2155	
==>tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2048	2155	
==>tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3551	3649	
==>kend.

To use the Cipher API, you must first create an object of the appropriate 
class, passing th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3551	3649	
==>kend.

To use the Cipher API, you must first create an object of the appropriate 
class, passing th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4485	4677	
==>atch => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4348	4531	
==>atch => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9857	9973	
==>_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9857	9973	
==>_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1100	1195	
==>atter form is slightly more efficient, though this is
marginal in string COW environments)

=cut <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1100	1195	
==>atter form is slightly more efficient, though this is
marginal in string COW environments)

=cut <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23184	23280	
==>rmSomewhere(Re,[C|Fx],F1,B0,B1,E0,E1) :-
  rmSomewhere(Re,Fx,F1,[C|B0],B1,E0,E1).

rmGlobal(Re,F0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3377	3479	
==>RBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4513	4615	
==>RBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9952	10100	
==>ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10231	10379	
==>ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9597	9699	
==>ow');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9655	9757	
==>ow');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3433	3528	
==>oes Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3433	3528	
==>oes Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4572	4702	
==>rget, $pos, 1;
    $isnegated = matches (/[:upper:]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8793	8903	
==>$matchObj );
  end_2:
  $matchObjPos = -1;
  return ( $matchObj );

  ternary_error:
  $matchObjPos = -1;
  die <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	604	748	
==>.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Un <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	604	748	
==>.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Un <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1868	1964	
==>op level.
    delete $args{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindB <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28887	29057	
==>op::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29166	29336	
==>op::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5932	6246	
==>rt_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5932	6246	
==>rt_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4924	5084	
==>ed close modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop tha <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4924	5084	
==>ed close modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop tha <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19573	19685	
==>OT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6::Run::O <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26145	26247	
==>to ^.* */
 #define ROPT_NOSCAN		0x00040	/* Check-string always at start. */
 #define ROPT_GPOS_SEEN		0x <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	794	929	
==>start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	794	929	
==>start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3299	3436	
==>20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    whil <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3299	3436	
==>20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    whil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18002	18176	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18281	18455	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	718	827	
==>_]),
        bool => \\1, match => [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratc <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8992	9154	
==>dverbs$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; my $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	192	287	
==>mplementations).
# To contribute, just scroll down until pod lines start appearing, and
# contin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29640	29738	
==>$attrs!) returns Relation::Example>

This method is a generic relational operator that returns a ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30801	30899	
==>$attrs!) returns Relation::Example>

This method is a generic relational operator that returns a ne <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	575	691	
==>>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # fr <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	575	691	
==>>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # fr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14869	14990	
==>{
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14869	14990	
==>{
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# F <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	687	808	
==>ve to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    return .pad() <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	687	808	
==>ve to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    return .pad() <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	474	594	
==>tion; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference() <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	474	594	
==>tion; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2140	2245	
==>, @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self->{errnum} && $self->{errnum} == $enum;
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3726	3831	
==>Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

Thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3726	3831	
==>Query documentation for more information on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2260	2379	
==>.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2260	2379	
==>.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of value <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14878	14980	
==>are implemented, we will need an easy way
to test them. So we will implement the Test::More function is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14936	15038	
==>are implemented, we will need an easy way
to test them. So we will implement the Test::More function is <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9982	10077	
==>y is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CG <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9982	10077	
==>y is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CG <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2939	3054	
==>t $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3079	3194	
==>t $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	603	726	
==>/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	603	726	
==>/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub const <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17840	17929	
==>ar(Re),Fx,F1,Bx,B1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7320	7670	
==>>new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postfix:<! <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18068	18165	
==>gexp struct, which gets attached to the op tree.  The struct is used
variously to return the compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10628	10728	
==>n update several fields with a single invocation.

The $value argument may be a plain string or a ref <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10628	10728	
==>n update several fields with a single invocation.

The $value argument may be a plain string or a ref <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12703	12795	
==>$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12703	12795	
==>$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	559	661	
==>odule Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	559	661	
==>odule Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20283	20398	
==>ion necessary.  This is something that end users could do,
although program package installers usually do it.  An os <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20283	20398	
==>ion necessary.  This is something that end users could do,
although program package installers usually do it.  An os <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2968	3091	
==>data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsect <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2968	3091	
==>data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsect <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	719	825	
==>dule.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	719	825	
==>dule.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2470	2579	
==>gs->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::Ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1627	1727	
==>gs->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::Ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36593	36690	
==>uivalent human readable text message
string; this assumes that a Template corresponding to the Mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36593	36690	
==>uivalent human readable text message
string; this assumes that a Template corresponding to the Mes <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3764	3870	
==>f + duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date( <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1864	1970	
==>f + duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11985	12093	
==>=> $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4628	4736	
==>=> $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a un <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2282	2386	
==>,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2282	2386	
==>,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1491	1590	
==>has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1491	1590	
==>has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	261	388	
==>d_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	261	388	
==>d_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18993	19090	
==>ly, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applicatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18993	19090	
==>ly, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applicatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1599	1740	
==>ch );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1599	1740	
==>ch );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8969	9085	
==>= undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9027	9143	
==>= undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	643	886	
==>t( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	644	887	
==>t( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9057	9163	
==>module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9057	9163	
==>module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1234	1367	
==>.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4712	4845	
==>.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7530	7622	
==>ar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1355	1447	
==>ar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2483	2602	
==>{
    my ($role) = @_;
    my $output = _draw_role_node($role);   
    foreach my $subrole (@{$role->roles}) {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7040	7186	
==>turn 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7028	7174	
==>turn 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15100	15261	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15379	15540	
==>::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6407	6527	
==>/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Ut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6407	6527	
==>/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Ut <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6050	6184	
==>ck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6108	6242	
==>ck it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2508	2616	
==>epends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2566	2674	
==>epends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns B <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2111	2217	
==>head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=he <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2111	2217	
==>head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1766	1941	
==>sage.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _comma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1766	1941	
==>sage.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _comma <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1178	1287	
==>ost($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4802	4896	
==>orce_object(@_);
}


sub force_object {
  Carp::croak("class name passed where object required" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3346	3464	
==>nd =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3346	3464	
==>nd =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9556	9649	
==>2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9556	9649	
==>2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	689	802	
==>>parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa " <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7311	7485	
==>ect_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation::Example {

    if ($a <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2257	2366	
==>lf->bundles) {
        push @$dir, map "$_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} for @{$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	275	395	
==>name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	275	395	
==>name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

cla <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17234	17362	
==>dispatcher (($self: class) send (dispatcher :descendant)))
     (= $method (WALKMETH (&dispatcher (symbol new BUILD))))
     (whi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3561	3658	
==>Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict;

if($Regexp::Par <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6986	7108	
==>s \\n   Scalar    left    .[]     safe   (Array, Int)\.
sub prefix:<[.[]]> (*$head is copy, *@rest is copy) {
  while @rest <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	43	124	
==>usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm"
package Module::In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2157	2270	
==>e) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2157	2270	
==>e) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9761	9890	
==>nel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9761	9890	
==>nel { %channels{~normalize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1960	2128	
==>start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1960	2128	
==>start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24851	24978	
==>ibutes:

  # access to the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{regex} }

    # the pos <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1008	1125	
==>ult stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1008	1125	
==>ult stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2985	3131	
==>ewline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2htm <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2985	3131	
==>ewline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub pod2htm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3238	3327	
==>ecipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3238	3327	
==>ecipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16023	16129	
==>treatment will be needed if utf8 is
to be supported.

  regnode program[1];     /* Unwarranted chumminess w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27017	27116	
==>2.pl";
require "re05.pl";

sub mkMatch {
    my($len,$a)=@_;
    return MatchX->new()->set_as_failed <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2266	2384	
==>-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->q <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2266	2384	
==>-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	354	518	
==>s>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[1] }
        |   STMT                { $ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31726	31821	
==>or quantifiers).

=item min

The minimum repetition count of this object (for quantifiers).

=it <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7007	7121	
==>ipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mode role to add some i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7007	7121	
==>ipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mode role to add some i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	659	758	
==>s barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	659	758	
==>s barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.today() <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5468	5594	
==>>package, 'bin' );

        last LINKING unless -d $my_bindir;

        ### load in the alternatives collection
        my @alt <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9805	9927	
==>n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalD <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3	172	
==>ss Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3	172	
==>ss Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38918	39086	
==>('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        sym <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1685	1784	
==>list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list)";
}
sub node::meth_c <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1825	1992	
==>h, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change ou <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1825	1992	
==>h, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change ou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	293	396	
==>our.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	293	396	
==>our.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

A <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6691	6866	
==>_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5195	5370	
==>_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	462	569	
==>ipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	462	569	
==>ipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3067	3185	
==>v;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Ser <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3067	3185	
==>v;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Ser <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21500	21596	
==>ther package or program which uses yours may wish to
override some of your messages, showing othe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21500	21596	
==>ther package or program which uses yours may wish to
override some of your messages, showing othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34924	35027	
==>Unicode property
defined by Perl or elsewhere

Neg: 1 if negated

=head2 clump

Family: clump

Types: cl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3762	3863	
==>bol " . $sym->val . " to $type";

		Blondie::TypeSafe::Annotation->new(
			type => $type,
			struct_eq <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11603	11740	
==>h, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11603	11740	
==>h, 'ARG' => $arg } )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2287	2432	
==>er = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2287	2432	
==>er = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3741	3937	
==>e;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        my $my_bindir = "$Site/$new_alt->{package}/bin";
    
        my @bins;
        print "\nRelinking scripts <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4845	4941	
==>arp::croak("class name passed where object required") unless ref $_[0];
  my $type = splice @_, 1 <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	364	463	
==>Add('sid',$SID);
}

sub SessionID() { return $SID; }

sub SessionSet($variable, $value) {
    %Sessi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	158	265	
==>ion from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::Join <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	158	265	
==>ion from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::Join <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4654	4784	
==>"get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4666	4796	
==>"get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4717	4835	
==>timizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4555	4669	
==>timizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      op <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1449	1544	
==>as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closure that <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1449	1544	
==>as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closure that <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	578	718	
==>m += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	578	718	
==>m += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5824	5921	
==>s code (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5824	5921	
==>s code (success/failure) is returned

=item Numeric Context

The HTTP status code is returned

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2030	2141	
==>losure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2041	2152	
==>losure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10271	10430	
==>rn  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp1} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13914	14016	
==>ue $class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = $class.dispatc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10385	10506	
==>_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10385	10506	
==>_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_nam <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2112	2211	
==>make { return `$Config{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24188	24301	
==>'t supported
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6602	6752	
==>ow;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->type;
    }
    else {
      joi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1186	1300	
==>int \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1186	1300	
==>int \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5962	6366	
==>) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                }) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7724	8128	
==>) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3216	3344	
==>erl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3356	3484	
==>erl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33320	33416	
==>program or library may wish to override the user text of another library
which it uses, the Templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33320	33416	
==>program or library may wish to override the user text of another library
which it uses, the Templ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9214	9312	
==>$other );
}

multi method union (Relation::Example *@others) returns Relation::Example {

    for @ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3200	3431	
==>ts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3200	3431	
==>ts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %e <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	971	1067	
==>erldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	971	1067	
==>erldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM: <==
2	/Users/nnunley/pugs/util/package-osx.pl	4186	4298	
==>m
        /usr/local/man/man3/Perl6::Bible::E03.3pm
        /usr/local/man/man3/Perl6::Bible::E04.3pm
        /us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8629	8729	
==>has not been made yet.

=head2 Setting and Parsing Together

You can also use parse() instead of rege <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1251	1477	
==>ey} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $in <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1251	1477	
==>ey} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $in <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2308	2410	
==>o not have objects or fully functioning modules in 
Pugs, this port does it's best to work with those l <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2308	2410	
==>o not have objects or fully functioning modules in 
Pugs, this port does it's best to work with those l <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2643	2747	
==>port() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  m <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2643	2747	
==>port() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2756	2900	
==>.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2973	3117	
==>.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1677	1785	
==>r} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1677	1785	
==>r} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7119	7236	
==>ile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allow <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	420	537	
==>ile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allow <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8443	8549	
==>ock of characters is interpolated for modifiers.

=item I<end_element ('line_interpolation')>

This event i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8443	8549	
==>ock of characters is interpolated for modifiers.

=item I<end_element ('line_interpolation')>

This event i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5589	5721	
==>dir
    ### move. Which means a bit more work, as file::copy doesn't do it for
    ## us :(
    my %from;
    if( IS_DIR->( $from ) ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1715	1821	
==>method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1715	1821	
==>method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2415	2529	
==>maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2415	2529	
==>maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) {
    # if we <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4040	4146	
==>will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4040	4146	
==>will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3792	3933	
==>le)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3792	3933	
==>le)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	577	711	
==>ree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	577	711	
==>ree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3654	3769	
==>, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are lis <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3654	3769	
==>, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are lis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16539	16632	
==>the program is executing.

Locale::KeyedText gives your application the maximum amount of cont <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16539	16632	
==>the program is executing.

Locale::KeyedText gives your application the maximum amount of cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15676	15801	
==>ange, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCU <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10532	10657	
==>ange, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCU <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6749	6856	
==>k_eater_for_re('.') if $re eq '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp::Parser <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22290	22382	
==>t describes Relation version 0.1.0.

It also describes the same-number versions of Relation:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13738	13850	
==>nal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13738	13850	
==>nal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my $h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30083	30196	
==>ndle ')', so the handler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # ther <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16359	16463	
==>' instead of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^( <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	374	497	
==>ns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.push($to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18177	18351	
==>$self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9267	9382	
==>rators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9267	9382	
==>rators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12866	12970	
==>esponding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replace <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12866	12970	
==>esponding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replace <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	135	240	
==>llback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($c <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	135	240	
==>llback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3439	3543	
==>ed upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3439	3543	
==>ed upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free software . You can <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1357	1464	
==>ub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1357	1464	
==>ub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4105	4228	
==>ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, i <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4105	4228	
==>ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7939	8123	
==>st;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7939	8123	
==>st;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SE <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25621	25717	
==>s the invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> sa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30173	30269	
==>s the invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping> sa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4763	4937	
==>); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4985	5159	
==>); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        pri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	877	989	
==>{ return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semico <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	877	989	
==>{ return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semico <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16791	16925	
==>::cap},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [];
      $v = $f-> <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	422	547	
==>> $Config{exe_ext},
        path_sep  => $Config{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	700	832	
==>e parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	700	832	
==>e parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$ma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7474	7615	
==>='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
ru <==
2	/Users/nnunley/pugs/util/importgraph.pl	2648	2763	
==>,
    );
  $nodes++;

  while(my ($k, $edge) = each %{$module->[0]}) {
    next unless exists $modules{$k}; # only p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13861	14005	
==>e {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the databas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13861	14005	
==>e {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the databas <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5071	5170	
==>::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5071	5170	
==>::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5309	5456	
==>stalled package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = File::Spec->catdir( 
                            $self- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	34	145	
==>::Core::List;
use Perl6::Core::Bit;

package C3;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Uti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3370	3478	
==>$span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3370	3478	
==>$span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4787	4883	
==>he Completion Type
class JSX::InternalValue::Completion_type { # XXX - should be enum
   has $.no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7730	7843	
==>%!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7730	7843	
==>%!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4064	4184	
==>get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4064	4184	
==>get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5005	5226	
==>art an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5005	5226	
==>art an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22155	22288	
==>ext_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  end:
    .r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7981	8089	
==>mpty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7981	8089	
==>mpty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	694	789	
==>ns->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	Blondie::Backend: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16947	17097	
==>$before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13368	13518	
==>$before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsi <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	455	560	
==>A::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $t <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	455	560	
==>A::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8261	8362	
==>or 
pedestrian events like object destruction, but let's not make too many 
assumptions.

=back 4

=he <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8261	8362	
==>or 
pedestrian events like object destruction, but let's not make too many 
assumptions.

=back 4

=he <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8243	8343	
==>st calls will be for 
pedestrian events like object destruction, but let's not make too many 
assumpt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8243	8343	
==>st calls will be for 
pedestrian events like object destruction, but let's not make too many 
assumpt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4819	4961	
==>$_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4819	4961	
==>$_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1687	1797	
==>ne.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1687	1797	
==>ne.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
mul <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7419	7519	
==>ding components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechunk <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7419	7519	
==>ding components that are the same
    my @pathchunks = splitdir($path_directories);
    my @basechunk <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20316	20421	
==>it performs correctly
and reliably, it also performs quite slowly; you should only use Example
for testing <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20316	20421	
==>it performs correctly
and reliably, it also performs quite slowly; you should only use Example
for testing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	331	438	
==>ive me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	331	438	
==>ive me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2585	2682	
==>vides a small sample of
Perl 6 syntax and semantics.

=head2 Other Perl 6 implementations

The Pug <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2955	3080	
==>ookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2955	3080	
==>ookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	710	816	
==>eName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*Array <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	710	816	
==>eName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*Array <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21468	21613	
==>>new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44375	44520	
==>>new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5539	5652	
==>hy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5539	5652	
==>hy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1153	1272	
==>mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2027	2146	
==>mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rul <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1056	1152	
==>ugs::Internals::exec(@args[0], Bool::True, @args);
    }
    multi sub exec($string) returns Bool <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9920	10162	
==>'$label' => 'symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2012	2127	
==>ed";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	585	684	
==>air() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should t <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	585	684	
==>air() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9829	9935	
==>tions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.k <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9829	9935	
==>tions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.k <==
2	/Users/nnunley/pugs/util/func_refact.pl	1512	1630	
==>e = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1958	2078	
==>fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1958	2078	
==>fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15779	15957	
==>ass variable!
        #Time::Local.new( pairs zip @ids, @tm );

        $res = Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20889	20986	
==>n slurp socket socketpair stat symlink
# syscall sysopen sysread sysseek syswrite tell telldir tru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38021	38132	
==>text
string if the module recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38021	38132	
==>text
string if the module recognizes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_te <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2265	2405	
==>egin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2265	2405	
==>egin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	823	935	
==>move($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	823	935	
==>move($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	383	499	
==>ibs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	383	499	
==>ibs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13481	13591	
==>$source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $so <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13481	13591	
==>$source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1887	2064	
==>$_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22128	22248	
==>"isarray"] = isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1380	1493	
==>. $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1380	1493	
==>. $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18127	18224	
==>the Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
objects wa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18127	18224	
==>the Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
objects wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1554	1677	
==>t $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1554	1677	
==>t $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6211	6311	
==>d be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5998	6096	
==>d be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-l <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4601	4713	
==>SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stm <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4601	4713	
==>SubName',
  'pSubType'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8552	8661	
==>presenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8552	8661	
==>presenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $univers <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7167	7342	
==>person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7167	7342	
==>person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define th <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6960	7323	
==>',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7017	7380	
==>',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lg <==
2	/Users/nnunley/pugs/util/package-osx.pl	641	747	
==>in/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadline.5. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6050	6153	
==>k->val);
	}
}

sub reduce_sym {
	my $self = shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1490	1598	
==>switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7207	7305	
==>aders::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7207	7305	
==>aders::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1214	1308	
==>rameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
co <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1214	1308	
==>rameter).  If the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6392	6552	
==>rm.pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::Grammar::Term.sub_call> 
                #~ { return $/{'Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24894	25001	
==>ush @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21315	21422	
==>ush @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	392	540	
==>dispatcher
# TODO - generate AST

*ident = Pugs::Compiler::Rule->compile( '
            [
                [ \:\: ]?
                [ \_ | <aln <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23097	23188	
==>h(F0,NPos),
  match_captures(Ex,Cx),
  C1 = [Str,NPos,Cx],
  match_captures(Ex,C1,E1).
rmSom <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2223	2324	
==>External packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2223	2324	
==>External packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18943	19075	
==>};
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20301	20433	
==>};
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !gr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8261	8363	
==>an2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more pra <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8261	8363	
==>an2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more pra <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12767	12869	
==>nd runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code & <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12825	12927	
==>nd runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code & <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17150	17313	
==>efix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17429	17592	
==>efix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12704	12831	
==>n't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12704	12831	
==>n't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1190	1295	
==>expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1248	1353	
==>expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $g <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1588	1679	
==>orker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1588	1679	
==>orker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3877	3978	
==>pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3877	3978	
==>pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21025	21129	
==>unordered set of named attributes; all tuples in a Relation are of the same
degree, and the attribute nam <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25577	25681	
==>unordered set of named attributes; all tuples in a Relation are of the same
degree, and the attribute nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5538	5679	
==>lag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5362	5498	
==>lag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17626	17727	
==>tive Rosetta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17626	17727	
==>tive Rosetta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1232	1337	
==>edy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("ab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1232	1337	
==>edy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("ab <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	110	203	
==>html>
<head>
<title>Public HTML</title>
</head>
<script>
function openNewWindows() {
    var l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5307	5460	
==>for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5307	5460	
==>for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1857	2010	
==>]\n";
                $m = Pugs::Grammar::Term->angle_quoted( substr($match, 1), { p => 1 } );
                if ( $m ) {
                    #print "Mat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10631	10739	
==>phering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10631	10739	
==>phering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(Class $class: *%opt <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	358	504	
==>b {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	358	504	
==>b {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13393	13524	
==>umper $n
            if @{$n->{attribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1} <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4773	4940	
==>ontinue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtra <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4773	4940	
==>ontinue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtra <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2524	2619	
==>erit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattene <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2524	2619	
==>erit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattene <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3574	3689	
==>zero status indicating something dubious happened.

The columns in the summary report mean:

=over 4

=item B<Failed <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	717	812	
==>estPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	717	812	
==>estPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14696	14856	
==>.     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        retu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29102	29198	
==>lying timing routines, and L<Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a wa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30072	30168	
==>, and each
hash value contains the user-readable message text associated with the
Message; this u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30072	30168	
==>, and each
hash value contains the user-readable message text associated with the
Message; this u <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21572	21667	
==>the other tuples.  All Relation
attributes may be individually addressed only by their names, an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26124	26219	
==>the other tuples.  All Relation
attributes may be individually addressed only by their names, an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2453	2547	
==>te (" . $name->to_str->to_native . ") already exists";
    return $self->[2]->store($name, $nil <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6011	6120	
==>resenting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6011	6120	
==>resenting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11684	11786	
==>d crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_msw <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20985	21085	
==>E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10229	10333	
==>sts) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10287	10391	
==>sts) returns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10389	10488	
==>s.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10447	10546	
==>s.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3444	3561	
==>ail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mai <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3444	3561	
==>ail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11836	11992	
==>rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2825	2926	
==>sub awarn {
  my ($self, $enum, $err, @args) = @_;
  local $self->{tree};
  $self->warn($enum, $err, @ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	422	515	
==>= Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	422	515	
==>= Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8582	8713	
==>n = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8582	8713	
==>n = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21763	21893	
==>}
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22042	22172	
==>}
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31958	32059	
==>n program would check each
of the 3 Template module sets in turn, looking at just the set member for
e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31958	32059	
==>n program would check each
of the 3 Template module sets in turn, looking at just the set member for
e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2077	2189	
==>h);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2077	2189	
==>h);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2396	2536	
==>th = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2396	2536	
==>th = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8502	8604	
==>reating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# dep <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8502	8604	
==>reating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your
# dep <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11047	11139	
==>e_sequence(char(C)) --> "\\t", {[C] = "\t"}, !. %# XXX - more

p6_simple_escape_sequence(char <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3657	3759	
==>e of the holy war about whether to raise
    # exceptions or return false values to signal error condit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8838	8968	
==>rs = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8838	8968	
==>rs = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8569	8756	
==>JECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8569	8756	
==>JECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1374	1552	
==>ttributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1374	1552	
==>ttributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10119	10254	
==>if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } el <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10119	10254	
==>if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } el <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6413	6519	
==>suming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Grammar: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6197	6301	
==>suming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Grammar: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25739	25833	
==>with non-free software components.

Any versions of Rosetta that you modify and distribute must <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25739	25833	
==>with non-free software components.

Any versions of Rosetta that you modify and distribute must <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23398	23495	
==>Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23398	23495	
==>Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2754	2861	
==>thod { CORE::pop(@{(shift)})   }

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	395	514	
==>ess [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4670	4788	
==>_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub object {
  return if &SIZE_ONLY;
  my $self = shif <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5298	5403	
==>PIL1CPerl5::NodesList::get_name_rep_type_pairs_list();
    my $code = "";
    for (@$list) {
        my($n <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8413	8560	
==>if $pre ne "" {
            $pre ~= "::" if substr($pat,0,1) ne (":"|"#");
            $pat = $pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11613	11710	
==>osetta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes that li <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11613	11710	
==>osetta::Model::Node - This stores a collection of Node objects,
which are all of the Nodes that li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	873	986	
==>rule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	884	997	
==>rule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_ <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	162	264	
==>/

# Pugs note: change "die" to "fail" when "fail" is implemented.

# Input a string containing a rpn e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4525	4664	
==>name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4525	4664	
==>name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2431	2532	
==>ry string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2431	2532	
==>ry string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a client's r <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	88	205	
==>port (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($pat <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	88	205	
==>port (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($pat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4152	4355	
==>ere are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4152	4355	
==>ere are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11615	11823	
==>e' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11615	11823	
==>e' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5427	5530	
==>parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5427	5530	
==>parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache3 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3656	3772	
==>thod found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5558	5674	
==>thod found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3212	3332	
==>> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

rege <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3212	3332	
==>> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

rege <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30989	31095	
==>om others in
its set. For maximum flexibility in their use, the full name of a module
consists of the two p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30989	31095	
==>om others in
its set. For maximum flexibility in their use, the full name of a module
consists of the two p <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2434	2563	
==>-= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2434	2563	
==>-= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2471	2573	
==>l {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2471	2573	
==>l {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
method <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	882	977	
==>, $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	882	977	
==>, $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1996	2139	
==>f ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1996	2139	
==>f ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=po <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2684	2804	
==>..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &conti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2684	2804	
==>..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &conti <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19676	19781	
==>ewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is immutable.  T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24228	24333	
==>ewhat of
a superset of the Set operators.

Like the Set data type, the Relation data type is immutable.  T <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	693	801	
==>ums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	693	801	
==>ums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52582	52672	
==>(symbol->new('@:MRO') => list->new($::Class, $::Module, $::Package, $::Object));
$::Object- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2340	2438	
==>tioning modules in 
Pugs, this port does it's best to work with those limitations and 
still produc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2340	2438	
==>tioning modules in 
Pugs, this port does it's best to work with those limitations and 
still produc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	501	626	
==>msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or deci <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	501	626	
==>msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or deci <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10309	10439	
==>object(bol => bol => '^^');
  });


  ### '&'


  ### '*'

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4668	4756	
==>'Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1529	1624	
==>Ext> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1529	1624	
==>Ext> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34051	34164	
==>ating a message, a match in found in the most preferred language
is used.  Each Set Name can be any defined and no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34051	34164	
==>ating a message, a match in found in the most preferred language
is used.  Each Set Name can be any defined and no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3181	3283	
==>alues.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3181	3283	
==>alues.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	594	726	
==>>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	605	737	
==>>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { <==
2	/Users/nnunley/pugs/util/package-osx.pl	1814	1911	
==>PIL2JS.pm
        /usr/local/lib/perl5/site_perl/pugs-smokejs.pl /Library/Perl/5.8.6/pugs-smokejs. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2614	2717	
==>Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!children }

## ----------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2614	2717	
==>Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!children }

## ----------- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1188	1306	
==>tch\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Match" if ! defined $match; 
  $options = "left" if not $op <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10779	10895	
==>$ENV{PERL5LIB} = $self->_INC2PERL5LIB;

Takes the current value of C<@INC> and turns it into something suitable
for p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9289	9390	
==>et ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9289	9390	
==>et ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3138	3265	
==>$self->bundles) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1011	1103	
==>n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1011	1103	
==>n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15428	15553	
==>not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15422	15547	
==>not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6030	6133	
==>my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6030	6133	
==>my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5103	5195	
==>igure out positional constructors.  At least it's isolated here. :(
sub new_box {get_meta($_[ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5657	5783	
==>(rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List)\
\\n   Scala <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11627	11736	
==>rd $c), "\\c$c");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1543	1714	
==>$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1543	1714	
==>$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4740	4922	
==>("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4740	4922	
==>("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27567	27733	
==>::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                C3 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13805	13972	
==>or_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 peopl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13805	13972	
==>or_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 peopl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5424	5551	
==>{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5424	5551	
==>{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5710	5828	
==>A__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5710	5828	
==>A__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        r <==
2	/Users/nnunley/pugs/util/drift.pl	1265	1400	
==>f HADDOCK









SCARY

# splice(@program, 2, 0, @scary_header);

open IN, $in or die $!;
open OUT, "> $out" or die $!;
while (<IN>) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8618	8792	
==>rson,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8618	8792	
==>rson,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9247	9359	
==>elf.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9247	9359	
==>elf.clone if $self.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32424	32522	
==>r scope (like a CLOSE).

=item vis

The visual representation of this object.

=item zerolen

Wheth <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9533	9653	
==>new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9533	9653	
==>new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7757	7847	
==>tatements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1582	1672	
==>tatements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2160	2272	
==>{ %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2160	2272	
==>{ %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2076	2173	
==>e, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=ba <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2076	2173	
==>e, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=ba <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5250	5348	
==>bmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a po <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5250	5348	
==>bmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a po <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5831	5932	
==>lying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %DB_CO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5831	5932	
==>lying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %DB_CO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4108	4308	
==>entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4572	4772	
==>entry, $maybe);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3360	3452	
==>ness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4496	4588	
==>ness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11952	12049	
==>is is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method cre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11952	12049	
==>is is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This method cre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	300	400	
==>(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	300	400	
==>(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	796	900	
==>nt
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 V <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	796	900	
==>nt
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 V <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	636	734	
==>hem C<:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	636	734	
==>hem C<:)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11021	11149	
==>chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11021	11149	
==>chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7769	7897	
==>ject(anyof_char_comp => chr(hex $1), "\\X$1") if $cc;
      return $S->object(exact_comp => chr(hex $1), "\\X$1");
    }

    $S- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7671	7777	
==>elation::Example.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9533	9699	
==>dows executable called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23190	23304	
==>exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    exp1 = self[1]
    exp1["cname"] = cname
    exp1["isc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29454	29560	
==>s::Straps)

Document the format.

Fix HARNESS_COMPILE_TEST without breaking its core usage.

Figure a way t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5780	5895	
==>me )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5768	5883	
==>me )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3797	3932	
==>,
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3990	4125	
==>,
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1102	1200	
==>se base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1102	1200	
==>se base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12336	12438	
==>e, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12394	12496	
==>e, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	271	419	
==>"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	271	419	
==>"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "a <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2470	2571	
==>.month+2)/3) }
method month_0 returns Int { $.month - 1 }
method yy returns Int { die if $.year < 0; $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3042	3132	
==>=(<term1>)<?p6ws>?\=<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RUL <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1511	1617	
==>) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy::Genera <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1511	1617	
==>) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy::Genera <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13679	13778	
==>D2,D3])}.
hexdigits2_int(I) -->
  hexdigit(D0), hexdigit(D1), {number_chars(I,[42,120,D0,D1])}.

oct <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13182	13277	
==>sed module (currently Inline::C),
  and is thus not very portable to broken (no compiler) micros <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12498	12608	
==>});

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BAD <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5973	6083	
==>});

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BAD <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7713	7808	
==>d $parser->errnum will return the numerical value
of the message.  If you use new() the F<Regexp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38294	38394	
==>sage Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38294	38394	
==>sage Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	792	918	
==>nt = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	792	918	
==>nt = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $str <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	524	620	
==>ethod returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	524	620	
==>ethod returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22717	22813	
==>elow.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22717	22813	
==>elow.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6963	7063	
==>rying Pugs for its version",
  ensure => sub { defined $pugs_version },
  using  => sub { $pugs_versi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6836	6967	
==>rn { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7029	7160	
==>rn { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3521	3648	
==>::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4905	5029	
==>::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            return ::opaque_instance_class(shift)->superc <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12203	12304	
==>"x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p6_hex_spec(char(C)) -- <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	137	235	
==>sults
# later it can be modifed to be somehow incorporated in the test suit

use File::Compare qw(c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11169	11290	
==>iner
in which Node objects live.  The Document class is pure and deterministic,
such that all of its class and object meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11169	11290	
==>iner
in which Node objects live.  The Document class is pure and deterministic,
such that all of its class and object meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14734	14830	
==>d1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it eas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14734	14830	
==>d1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it eas <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1026	1137	
==>ages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1026	1137	
==>ages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16202	16308	
==>start of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15003	15108	
==>o &$__c__}';
    eval($code) || die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1752	1848	
==>tp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Litt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1752	1848	
==>tp://dev.perl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Litt <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7200	7298	
==>= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUC <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7200	7298	
==>= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	115	264	
==>=> 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Ac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	115	264	
==>=> 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Ac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1792	1897	
==>er 4

=item Blondie::Env

Note that this is not a Blondie::Node! You cannot execute environments, they
con <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7047	7199	
==>e"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7047	7199	
==>e"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5112	5219	
==>nishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a strin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5112	5219	
==>nishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a strin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1653	1784	
==>e => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for perfor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1587	1712	
==>e => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for perfor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1417	1549	
==>er;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHO <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1417	1549	
==>er;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHO <==
2	/Users/nnunley/pugs/util/package-osx.pl	4434	4531	
==>3pm
        /usr/local/man/man3/Perl6::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S0 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5253	5353	
==>put;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-%s-%s--%d-%d--%d-%d-% <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24653	24738	
==>).

set_modifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modifiers(Ex,M,E1).
set <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12571	12684	
==>0]->as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26948	27042	
==>Example-doing object
can mutate.  Depending on the implementing class, it can default to True o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35909	36006	
==>is a positive looking assertion, and the argument
of 1 means it's a look-ahead.  We send the unrol <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15146	15247	
==>gument to the method.  The old header value is always returned.
If the given header did not exist then <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15146	15247	
==>gument to the method.  The old header value is always returned.
If the given header did not exist then <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	185	295	
==>as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    target
    from
    positio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7852	7953	
==>_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' ignored", subst <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14658	14757	
==>fields.  Long header
values are not folded.

The optional $eol parameter specifies the line ending s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14658	14757	
==>fields.  Long header
values are not folded.

The optional $eol parameter specifies the line ending s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6362	6451	
==>ects
that represent them.  See L<Regexp::Parser::Handlers> for information
about sub-class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7119	7276	
==>test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart messages since we try to
# be compatible with Test::More::skip().
sub skip {
    my $why = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8278	8379	
==>$ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe Cabal` <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7589	7703	
==>lize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7589	7703	
==>lize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	127	237	
==>);

use Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => T <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7912	8006	
==>submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7912	8006	
==>submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if defined $.c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36558	36662	
==>where C<@others> is an
empty list, in which case the returned Relation is identical to the
invocant.  Ano <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41107	41211	
==>where C<@others> is an
empty list, in which case the returned Relation is identical to the
invocant.  Ano <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14003	14098	
==>ces unsafe characters in $string with their entity
representation. A second argument can be give <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14003	14098	
==>ces unsafe characters in $string with their entity
representation. A second argument can be give <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	326	428	
==>_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	326	428	
==>_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => un <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	377	487	
==>usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	377	487	
==>usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8875	8993	
==>me    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8863	8981	
==>me    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13078	13174	
==>able exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13078	13174	
==>able exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	198	290	
==>PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	198	290	
==>PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14861	14950	
==>pression> <'*'> <UnaryExpression>
    | <MultiplicativeExpression> <'/'> <UnaryExpression> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14918	15007	
==>pression> <'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpression> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2082	2208	
==>cat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everyw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2093	2219	
==>cat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everyw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9625	9736	
==>turn \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10461	10572	
==>turn \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4758	4855	
==>et1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4758	4855	
==>et1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	292	416	
==>ar design.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	292	416	
==>ar design.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrul <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1390	1499	
==>b multiply {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2142	2308	
==>.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.clos <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2142	2308	
==>.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.clos <==
2	/Users/nnunley/pugs/util/package-osx.pl	7360	7462	
==>an3/Perl6::Spec::CPAN.3pm
        /usr/local/man/man3/Perl6::Spec::Concurrency.3
        /usr/local/man <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6042	6168	
==>& $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6042	6168	
==>& $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	559	687	
==>=> 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	559	687	
==>=> 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2449	2547	
==>of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2449	2547	
==>of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	708	821	
==>ule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	708	821	
==>ule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3075	3210	
==>ble );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3539	3674	
==>ble );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2845	2965	
==>n Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2845	2965	
==>n Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1006	1115	
==>$param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_par <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1006	1115	
==>$param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1099	1237	
==>$1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1055	1186	
==>$1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1212	1339	
==>sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <nam <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1212	1339	
==>sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <nam <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4089	4224	
==>entTermTable{$key};
  unless ($token)
  {
    push @bsrStack, "bsr_token_match_1";
    goto token_match;
    bsr_token_match_1:
    goto <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	300	434	
==>Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4213	4336	
==>ts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4213	4336	
==>ts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; ret <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12235	12359	
==>Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{ <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	70	210	
==>w = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        giv <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	70	210	
==>w = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        giv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12682	12783	
==>ld) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12682	12783	
==>ld) are not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the valu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2083	2180	
==>ethod not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2083	2180	
==>ethod not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subse <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1476	1604	
==>t added for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_INSTALL <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	853	972	
==>pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	853	972	
==>pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1331	1443	
==>eturn $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1331	1443	
==>eturn $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9563	9663	
==>ile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9563	9663	
==>ile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2653	2794	
==>";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2870	3011	
==>";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_fi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5755	5996	
==>.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5755	5996	
==>.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3815	3935	
==>o $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3679	3795	
==>o $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15356	15487	
==>:Exp::Scalar")
    $I0 = index target, ">", pos
    if $I0 < pos goto err_close
  name_1:
    $I1 = $I0 - pos
    cname = substr tar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22000	22112	
==>/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33641	33731	
==>-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38191	38281	
==>-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2283	2389	
==>le. Since 
we currently do not have objects or fully functioning modules in 
Pugs, this port does it's best <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2283	2389	
==>le. Since 
we currently do not have objects or fully functioning modules in 
Pugs, this port does it's best <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1869	1995	
==>n_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1880	2006	
==>n_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	216	321	
==>nfix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	216	321	
==>nfix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19391	19491	
==>ade or localize what text the user
sees, you only have to update said separate resource files, and no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19391	19491	
==>ade or localize what text the user
sees, you only have to update said separate resource files, and no <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18427	18540	
==>ule is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    P <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18427	18540	
==>ule is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    P <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7809	7912	
==>y_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Co <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7809	7912	
==>y_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1202	1294	
==>ead1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1202	1294	
==>ead1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	370	473	
==>pty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	370	473	
==>pty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns boo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21691	21784	
==>ence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To furthe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21691	21784	
==>ence
is I<Database Driver Independence>, and not I<Database Language
Independence>.  To furthe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1825	1947	
==>e', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'c');
  });

  $self->add_handler <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	820	954	
==>)", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (St <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	820	954	
==>)", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (St <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2126	2287	
==>ub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2126	2287	
==>ub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2590	2696	
==>Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2590	2696	
==>Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22983	23074	
==>cks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(targe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22983	23074	
==>cks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(targe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38540	38645	
==>ded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38540	38645	
==>ded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_var <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	257	349	
==>("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grapes <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1229	1344	
==>= $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API} <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1229	1344	
==>= $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2410	2551	
==>"a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2410	2551	
==>"a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Per <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	708	810	
==>e.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi m <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	708	810	
==>e.addarc($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3040	3151	
==>for p1');
is($p1->get_y, 16, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different id <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10933	11035	
==>);

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10933	11035	
==>);

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($sel <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	147	260	
==>];
    require '_inc.pl';
    protoconf->import();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15724	15812	
==>et_str(substr($X::str,$pos,$X::pos-$pos));
    local $m0->{$name} = [@{$m0->{$name}||[]}] <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1837	1932	
==>rs (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1837	1932	
==>rs (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5564	5682	
==>~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5564	5682	
==>~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that m <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9192	9317	
==>}
   }
 }


=item reduce

 multi Array::reduce (@values ; Code *&expression --> Scalar )
 multi  List::reduce (Code $expressio <==
2	/Users/nnunley/pugs/util/config_h.pl	1298	1420	
==>> m ()
main = $([| return () |])
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1938	2037	
==>() } }
RULE
*{'access_hashref_element'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32040	32137	
==>f for this object (for flag assertions
and C<(?:...)>).

=item omit

Whether this object is omitte <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2138	2254	
==>e {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_de <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2138	2254	
==>e {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($child);    
    $child.fix_de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2447	2562	
==>ges( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new repository on the filesys <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11786	11893	
==>ntPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	720	826	
==>sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	720	826	
==>sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7715	7822	
==>l :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an opt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7454	7557	
==>l :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an opt <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2034	2149	
==>is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.differenc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2034	2149	
==>is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.differenc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6674	6821	
==>$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6674	6821	
==>$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7571	7750	
==>'' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7583	7762	
==>'' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitt <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1473	1565	
==>icrosoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1313	1405	
==>icrosoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a di <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1774	1888	
==>($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $from = "" if !defin <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	799	918	
==>ON

This module provides information about the remote user that is using your CGI. 
It also attempts to provide some use <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	799	918	
==>ON

This module provides information about the remote user that is using your CGI. 
It also attempts to provide some use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11468	11557	
==>eader.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/htm <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11468	11557	
==>eader.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/htm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8442	8538	
==>, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2267	2363	
==>, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7006	7130	
==>),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7006	7130	
==>),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1052	1152	
==>is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stores capt <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1052	1152	
==>is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combinator because it stores capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1159	1265	
==>espace of symbols and has

a main body closure. 



the Package part of the Module is simply a hash from st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1107	1210	
==>espace of symbols and has
a main body closure. 

the Package part of the Module is simply a hash from st <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12337	12447	
==>["cname"] = $S0
  end:
    .return (mob)
.end 


.sub "parse_enumclass"
    .param pmc mob
    .local string ta <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8264	8372	
==>, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $has_new_cabal = (`$ghc_pkg describe <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	349	452	
==>[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $self->set_blib($install_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6475	6679	
==>,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6475	6679	
==>,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1406	1578	
==>odel::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1406	1578	
==>odel::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9224	9324	
==>gical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9224	9324	
==>gical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `s <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	498	620	
==>&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	498	620	
==>&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37697	37797	
==>n::Example>

This method is a generic relational operator that takes a single Relation::Example
in it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38537	38637	
==>n::Example>

This method is a generic relational operator that takes a single Relation::Example
in it <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2591	2718	
==>$self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method t <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2591	2718	
==>$self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	689	820	
==>k to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	656	777	
==>k to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2870	2988	
==>l = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2870	2988	
==>l = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	619	749	
==>n) {

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        update_guess($guess, $target, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2436	2532	
==>v/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2436	2532	
==>v/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7765	7900	
==>content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7765	7900	
==>content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and d <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	925	1150	
==>rn Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $str <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	925	1150	
==>rn Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $str <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2724	2830	
==>TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2724	2830	
==>TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	945	1037	
==>esn't distinguish 
between enciphering and deciphering operations.)

Although it is secure wh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	945	1037	
==>esn't distinguish 
between enciphering and deciphering operations.)

Although it is secure wh <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3381	3495	
==>rces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3381	3495	
==>rces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13747	13846	
==>s also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Fu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13805	13904	
==>s also possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Fu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38900	38998	
==>is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is fr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43714	43812	
==>is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relation is fr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3775	3946	
==>cted_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $respo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3775	3946	
==>cted_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $respo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1375	1475	
==>_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1375	1475	
==>_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9828	9949	
==>:Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9822	9943	
==>:Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	683	832	
==>rn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	694	843	
==>rn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3276	3381	
==>int_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print_match => $interfac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3493	3598	
==>int_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print_match => $interfac <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	574	674	
==>- %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	574	674	
==>- %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21372	21470	
==>ribute value.

Every Relation attribute has a name that is distinct from the other
attributes, thou <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25924	26022	
==>ribute value.

Every Relation attribute has a name that is distinct from the other
attributes, thou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21007	21116	
==>l packages
or programs.  Your package or program can be distributed with one or more
resource files containing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21007	21116	
==>l packages
or programs.  Your package or program can be distributed with one or more
resource files containing <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1005	1153	
==>$key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1005	1153	
==>$key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!param <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1387	1512	
==>rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @_;

    $self->version_from($file);
    $self->perl_versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17711	17824	
==>ted : /$expected/) :
		          $expected },
		$runperl_args, $name);
}

sub can_ok ($@) {
    my($proto, @method <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10378	10628	
==>rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw
                              ; SortCriterion :$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	410	519	
==>een\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	410	519	
==>een\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1595	1911	
==>ding)
                        ?? .value.value
                        !! $?CLASS.new( :attrs<.value.value> )
                    )
                )
                !! ( 'Scalar' => .value )
            )
        ) } }
    );
}

###########################################################################

proto metho <==
2	/Users/nnunley/pugs/util/package-osx.pl	7239	7345	
==>ec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/local/man/man3/Perl6::Spec::CPAN.3
        /u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11625	11715	
==>encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerica <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11625	11715	
==>encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerica <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	546	645	
==>method parent ($self:) returns Tree { 
    return $!parent;
}

## ---------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	546	645	
==>method parent ($self:) returns Tree { 
    return $!parent;
}

## ---------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3988	4154	
==>$prefix     eq package_prefix(  $test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this should be <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	19	155	
==>e::PCRE;
use 5.006;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10985	11090	
==>cipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10985	11090	
==>cipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6330	6439	
==>se letter (Lu)",
      # "Lowercase letter (Ll)", "Titlecase letter (Lt)",
      # "Modifier letter (Lm)", "Ot <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2090	2183	
==>}');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset complex of complex32  where { true } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1932	2080	
==>@{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1932	2080	
==>@{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11721	11847	
==>t representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11721	11847	
==>t representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8487	8576	
==>tatements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2312	2401	
==>tatements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->us <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	502	648	
==>lf.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.pre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	502	648	
==>lf.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.pre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	650	1085	
==>s:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	650	1085	
==>s:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	863	995	
==>]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	863	995	
==>]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19532	19635	
==>r to
the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24084	24187	
==>r to
the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1864	1992	
==>es %native);
}

sub length { (shift)->keys->length }

sub exists {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('ty <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	177	276	
==>ent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use strict;

sub print_rep <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2418	2518	
==>x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should no <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2418	2518	
==>x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should no <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4338	4517	
==>e same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4338	4517	
==>e same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2462	2585	
==>h p6 ones _without_ changings its name.



of course that has the problem of supplying Perl.pm itself - but I think to

do i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2369	2489	
==>h p6 ones _without_ changings its name.

of course that has the problem of supplying Perl.pm itself - but I think to
do i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5184	5286	
==>ean value
of success or failure

=item data

The C<data> method returns a hash reference representing t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5184	5286	
==>ean value
of success or failure

=item data

The C<data> method returns a hash reference representing t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7300	7405	
==>EFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= P <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7687	7919	
==>p = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            ca <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7687	7919	
==>p = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            ca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4643	4883	
==>: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4643	4883	
==>: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16614	16705	
==>y in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribution <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16614	16705	
==>y in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribution <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7741	7843	
==>t(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1566	1668	
==>t(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1869	1986	
==>x/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1869	1986	
==>x/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1258	1375	
==>Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1258	1375	
==>Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23373	23466	
==>nately they have a compiled C component or otherwise have
non-trivial external dependencies; L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23373	23466	
==>nately they have a compiled C component or otherwise have
non-trivial external dependencies; L <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3435	3549	
==>L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3435	3549	
==>L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24423	24517	
==>botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24423	24517	
==>botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	210	305	
==>scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	210	305	
==>scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type conte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2921	3069	
==>ins {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2921	3069	
==>ins {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10199	10334	
==>_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10199	10334	
==>_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23874	23999	
==>( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20295	20420	
==>( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1255	1376	
==>ored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1255	1376	
==>ored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $densi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22709	22805	
==>er than one.  The Relation::Example operators are somewhat of
a superset of the Set operators.

L <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	174	269	
==>ular | Perl::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class P <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1064	1316	
==>eader' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1064	1316	
==>eader' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11750	11945	
==>t( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12108	12303	
==>t( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23867	23960	
==>n't know about language specific details like
encodings or plurality.

My understanding of alt <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23867	23960	
==>n't know about language specific details like
encodings or plurality.

My understanding of alt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	742	872	
==>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	742	872	
==>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multid <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	99	191	
==>freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	99	191	
==>freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2507	2609	
==>otes:
 Why not call "TAILCALL" "GOTO"?  So you can easily search on both.
 Why LET but not TEMP?  LET i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1925	2041	
==>Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup. 



This object-serialization format <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1852	1965	
==>Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup. 

This object-serialization format <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2766	2899	
==>sure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Fin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2766	2899	
==>sure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Fin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8446	8553	
==>ons:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5984	6087	
==>ons:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $op <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8133	8272	
==>8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8133	8272	
==>8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1640	1732	
==>ame_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1640	1732	
==>ame_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4842	4948	
==>just a trait, and that some of those
    things are subs or methods rather than rules or macros. (The numer <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7055	7154	
==>object',
   '... got the right return value from another Object singleton/class method');
   
is($Ob <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16077	16166	
==>Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <je <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16135	16224	
==>Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <je <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	791	893	
==>d port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	791	893	
==>d port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI is r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1176	1294	
==>s() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1176	1294	
==>s() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1916	2033	
==>e;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1916	2033	
==>e;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4798	4924	
==>rn "Can't detailize, too big.\n";
        }
        else {
            #Generates the details based on the last test line seen. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2429	2551	
==>=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2613	2735	
==>=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2999	3102	
==>remote_addr>

The IP address of the client, if available.

=back

In addition, the following request hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2999	3102	
==>remote_addr>

The IP address of the client, if available.

=back

In addition, the following request hea <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	593	755	
==>TS, store => \$file },
        meta    => { store => \$meta, allow => ISA_JIB_META },
    };
    my $args = check( $tmpl, \%hash ) 
                or error( Param <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11917	12018	
==>() instead of fun->new()
	(my $class) = ((our $AUTOLOAD) =~ /([^:]+) $/x);
	$class->new(@_);
}


# thi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	182	269	
==>:Escape qw/quote printable/;
use Blondie::Reducer::DuplicateFinder;
use Blondie::TypeSaf <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	284	397	
==>ogram>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cmd,"\n";
    my $out = `$cmd`;
    print $out;
    exit <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	558	698	
==>earch -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	558	698	
==>earch -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7482	7580	
==>ist may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operatio <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7482	7580	
==>ist may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operatio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16386	16482	
==>If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16386	16482	
==>If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2540	2636	
==>y := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2540	2636	
==>y := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14203	14323	
==>ead two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14203	14323	
==>ead two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5994	6115	
==>< $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5994	6115	
==>< $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    retur <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8655	8752	
==>n't unify $x->{symbol} with $y->{symbol} in " . Dumper(@_);
	
	unify($x->left, $y->left, @_);
	uni <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1785	1882	
==>quivalence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my %token = ( name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1606	1712	
==>_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1810	1916	
==>_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2164	2271	
==>> 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2164	2271	
==>> 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', nam <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26107	26205	
==>f Str $attrs!) returns Relation>

This method is a generic relational operator that returns a new R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30659	30757	
==>f Str $attrs!) returns Relation>

This method is a generic relational operator that returns a new R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4664	4781	
==>pan0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4664	4781	
==>pan0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16014	16112	
==>item $h.last_modified

This header indicates the date and time at which the resource was last
modif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16014	16112	
==>item $h.last_modified

This header indicates the date and time at which the resource was last
modif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20200	20292	
==>.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Authorizati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20200	20292	
==>.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Authorizati <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2622	2769	
==>$.year < 0; int($.year / 100) }

our @months = <January February March     April   May      June
               July    August   September October N <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30481	30604	
==>ttp://rt.cpan.org/>.
You can also mail bugs, fixes and enhancements to 
C<< <bug-test-harness >> at C<< rt.cpan.org> >>.

=h <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7292	7438	
==>{ @modfiles > 0 },
  using  => sub {
    @modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000",
                `find $lib6 -pr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1200	1321	
==>(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	if (exists $self->{seen}{$node}){
		if ($self-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11599	11704	
==>not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence intersects (h <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11599	11704	
==>not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence intersects (h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1522	1639	
==>_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1510	1627	
==>_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25847	25941	
==><%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25847	25941	
==><%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable nam <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	635	757	
==>L_FILES => {} )
            unless $self->makemaker_args->{'PL_FILES'};

        if ($args{inline}) {
            $self->In <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6993	7095	
==>og) );

	my $main = $self->reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $self->{def <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	941	1050	
==>s bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	941	1050	
==>s bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3058	3167	
==>$!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, et <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3058	3167	
==>$!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, et <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6283	6469	
==>::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9760	9946	
==>::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The h <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	592	756	
==>e, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inje <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	592	756	
==>e, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inje <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3523	3723	
==>readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %even <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3523	3723	
==>readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %even <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1500	1616	
==>ers.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1500	1616	
==>ers.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	297	419	
==>Pugs::Runtime::Match;
PRELUDE

RULEMATCH:
while ($tail =~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1732	1833	
==>urce.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1732	1833	
==>urce.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->a <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1484	1594	
==>te span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRU <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1484	1594	
==>te span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRU <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5682	5865	
==>en;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4182	4365	
==>en;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	931	1034	
==>e_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	931	1034	
==>e_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3016	3129	
==>$content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3016	3129	
==>$content, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17681	17819	
==>st_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback} = \&strap_callback;
sub strap_callback {
    my($self, $line, $type, $ <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	739	870	
==>_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sor <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	196	285	
==>Roles
## ----------------------------------------------------------------------------
## T <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4431	4519	
==>Roles
## ----------------------------------------------------------------------------

my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31682	31787	
==>ion statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if it failed, reject <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1227	1344	
==>($self, $explanation, $tests) = @_;
            confess "Plan already set!" if _('$.testplan');
            if ($tests <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2349	2448	
==>to hash of information about links that we mean to insert.
# Top level index is file, second level i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4020	4149	
==>else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4020	4149	
==>else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3854	4054	
==>:end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3854	4054	
==>:end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5530	5669	
==>),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5530	5669	
==>),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5880	5983	
==>hat will parse operands.

=head2 add_op ()

Instance method.  Adds a new operator to the category.

opti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3574	3755	
==>bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3574	3755	
==>bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6987	7126	
==>key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the glo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6987	7126	
==>key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the glo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2632	2741	
==>un - it must be the
first child of an App for that to happen.

Inherits Unit.

=item App

An App makes a Thunk <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3257	3347	
==>end=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r->substrs->data[0].substr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2511	2693	
==>if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2511	2693	
==>if (want ~~ List) {
                    $!content unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29090	29186	
==>ew Relation::Example
which is the same as the invocant Relation::Example but that some of its att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31938	32034	
==>ew Relation::Example
which is the same as the invocant Relation::Example but that some of its att <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	964	1099	
==>ail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	964	1099	
==>ail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1776	1929	
==>);
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1776	1929	
==>);
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2416	2537	
==>ix:", "left,nows", "PGE::Exp::Conj");
    $optable->addToken("infix:|", "<infix:&", "left,nows", "PGE::Exp::Alt");
    $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24821	24942	
==>dd_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21242	21363	
==>dd_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9318	9433	
==>a_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9376	9491	
==>a_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', tod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1578	1714	
==>I;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1578	1714	
==>I;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6241	6360	
==>scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6241	6360	
==>scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26826	26980	
==>5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27105	27259	
==>5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop:: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11801	11920	
==>sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->nam <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	210	324	
==>sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->nam <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	132	228	
==>ter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	132	228	
==>ter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5129	5258	
==>ort multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5187	5316	
==>ort multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2229	2358	
==>d params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2369	2498	
==>d params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7198	7312	
==>tart = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7198	7312	
==>tart = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11384	11485	
==>join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14861	14962	
==>join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) returns Relati <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4033	4137	
==>method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4033	4137	
==>method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24647	24795	
==>new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α → β) → γ", "pretty pri <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25619	25738	
==>new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13621	13748	
==>xt::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13621	13748	
==>xt::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21016	21108	
==>e-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21016	21108	
==>e-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5743	5847	
==>rn $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSI <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5743	5847	
==>rn $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSI <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9412	9524	
==>elf.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9412	9524	
==>elf.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5340	5447	
==>d as a private LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5340	5447	
==>d as a private LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has be <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7357	7489	
==>)) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        el <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7357	7489	
==>)) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        el <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6992	7102	
==>rror;

print "Took: " . (time - $start) . " sec(s)\n";

# read @syn and $syn_indexs
sub read_designdocs {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7187	7325	
==>"euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7187	7325	
==>"euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22573	22664	
==>:DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22573	22664	
==>:DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Cla <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24554	24722	
==>x);
}

sub p6_defined {
    my($x)=@_;
    return 0 if !defined $x;
    return $x->defined if p6_is_perl6_object($x);
    return 1;
}

sub p6_declare_package {
    my($p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5672	5875	
==>q[ $^X $postinst ] )               and die $?;
                }    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1111	1217	
==>ter)
    --output_dir    Output Directory to put the html files (Default: ./t_index)
    --test_dirs     Di <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2936	3042	
==>template;
}

sub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3947	4118	
==>Output directory      : $output_dir\n";
print "\n";

my $quotable = qr/\w+|$RE{delimited}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leadi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3277	3402	
==>B BAREWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	622	730	
==>ole is included in the class.

This has the effect of making C<Role> objects appear to "flatten" in
the class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14983	15084	
==>n $S->force_object(anyof_class => space => $neg, \$how);
  });

  # upper POSIX class
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26658	26753	
==>of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x10000000 /* subb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14265	14366	
==>de" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14265	14366	
==>de" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attribut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19234	19333	
==>the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19234	19333	
==>the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13560	13661	
==>an class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly succeeded</span>
              </tmpl_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2813	2918	
==>ethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2813	2918	
==>ethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14766	14869	
==>MS framework is a powerful but elegant system, which makes
it easy to create and use relational database <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14766	14869	
==>MS framework is a powerful but elegant system, which makes
it easy to create and use relational database <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3494	3624	
==>) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3494	3624	
==>) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4153	4319	
==>urn;
    }
};

sub named {
    # return a named capture
    my $label = shift;
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8836	8957	
==>n unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relative_file = abs2rel($input_path,$start_dir); 

  # Path sepe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2604	2780	
==>string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2604	2780	
==>string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5991	6116	
==>i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arr <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4491	4616	
==>i >= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3053	3246	
==>bool} ) {

                return unless defined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2954	3141	
==>bool} ) {
                return unless defined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2358	2513	
==>ar', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2369	2524	
==>ar', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17650	17805	
==>oire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17650	17805	
==>oire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	272	385	
==>le = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	272	385	
==>le = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2614	2744	
==>e $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2614	2744	
==>e $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	232	332	
==>.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	232	332	
==>.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3378	3484	
==>A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3378	3484	
==>A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8939	9028	
==>alling metaclass singleton method fails';
fails_ok { $iFoo->singleton_test_on_object } '.. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52474	52568	
==>ymbol->new('@:subclasses') => list->new($::Class));

# NOTE:
# this is to avoid recursion
$::Cl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1459	1580	
==>revious;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1459	1580	
==>revious;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	241	338	
==>ed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FO <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	299	396	
==>ed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FO <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1176	1301	
==>s get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13702	13821	
==>s get prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11702	11798	
==>s that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11702	11798	
==>s that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::No <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3986	4161	
==>lues);
            },

            'array_unshift' => sub { # @values -> ()
                my $self = shift;
                my $values = shift;
                unshift @{$sel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	574	694	
==>ndex

Path to the index directory. default: $root/dists

=item index_file

Path to the main index file. default: $root/di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3562	3668	
==>ck/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you hav <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3435	3536	
==>ck/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you hav <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	922	1072	
==>'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	922	1072	
==>'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5118	5229	
==>ded to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5340	5451	
==>ded to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8375	8505	
==>urnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8375	8505	
==>urnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!user <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	734	853	
==>re {
    .key.does(Str) and (
        (.key eq 'Scalar' and .value.does(Relation::LaxAttrScalarSubType))
        or (.ke <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22576	22669	
==>MS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22576	22669	
==>MS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3137	3240	
==>ntersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) } <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3137	3240	
==>ntersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2414	2551	
==>t { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2414	2551	
==>t { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4598	4709	
==>fined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the Fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4598	4709	
==>fined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the Fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13429	13548	
==>s will remove all header fields.

=item $h.header_field_names

Returns the list of distinct names for the fields present <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13429	13548	
==>s will remove all header fields.

=item $h.header_field_names

Returns the list of distinct names for the fields present <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6534	6651	
==>elf: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6534	6651	
==>elf: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9235	9359	
==>, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9235	9359	
==>, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6508	6646	
==>ody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6508	6646	
==>ody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	335	451	
==>use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	335	451	
==>use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2796	2897	
==>nt $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ash <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2796	2897	
==>nt $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ash <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29980	30076	
==>by key.  Each template hash
key corresponds to the Message Key attribute of a Message object, and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29980	30076	
==>by key.  Each template hash
key corresponds to the Message Key attribute of a Message object, and <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3741	3845	
==>iff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3741	3845	
==>iff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	120	226	
==>:Backend::Perl::Builtins;

use UNIVERSAL::require;

sub compiler_class { __PACKAGE__ . "::Compiler" };

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1600	1758	
==>',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1600	1758	
==>',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedTe <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1676	1780	
==>A tag is always represented by a named parameter (pair).  (The value of the 
pair is currently unused, bu <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1676	1780	
==>A tag is always represented by a named parameter (pair).  (The value of the 
pair is currently unused, bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19391	19549	
==>n) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15812	15970	
==>n) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $ba <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3048	3150	
==>ers);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3048	3150	
==>ers);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14709	14810	
==>debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14709	14810	
==>debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconne <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1991	2183	
==>atch),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1991	2183	
==>atch),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26149	26273	
==>context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> val <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3229	3349	
==>ar => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /wit <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3229	3349	
==>ar => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /wit <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19268	19375	
==>ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19268	19375	
==>ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6159	6254	
==>_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6159	6254	
==>_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %ch <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15961	16094	
==>->{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepath};
            my $regex   = $l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10765	10866	
==>multi-valued field. If the $value is undefined or not
given, then that header field will remain unchan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10765	10866	
==>multi-valued field. If the $value is undefined or not
given, then that header field will remain unchan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24164	24264	
==>ibutes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has z <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28716	28816	
==>ibutes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has z <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1577	1697	
==>lf = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} || <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1577	1697	
==>lf = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} || <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5599	5730	
==>e $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5599	5730	
==>e $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10077	10251	
==>person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10077	10251	
==>person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9883	9997	
==>x;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9883	9997	
==>x;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15294	15390	
==>r response message for interactive systems.

If the program or any of its components are intended <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15294	15390	
==>r response message for interactive systems.

If the program or any of its components are intended <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9249	9357	
==>ty.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9249	9357	
==>ty.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17123	17253	
==>=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13544	13674	
==>=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8913	9019	
==>e

I'd _expect_ the match object returned to carry the same magic.



overload in p5 is just static %OVERLO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8619	8722	
==>e
I'd _expect_ the match object returned to carry the same magic.

overload in p5 is just static %OVERLO <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9743	9850	
==>}
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $self:) return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9743	9850	
==>}
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $self:) return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24177	24322	
==>uperclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49761	49906	
==>rams => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$authori <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6812	6948	
==>nue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6812	6948	
==>nue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4582	4699	
==>de, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4640	4757	
==>de, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9089	9198	
==>ssage headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'te <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9089	9198	
==>ssage headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'te <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7332	7456	
==>aversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7332	7456	
==>aversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36061	36159	
==>: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any number of objects

Dir: -1 if look-b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	452	569	
==>shift;
    exists $self->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shift;
    exists $self->{raw} ? $ <==
2	/Users/nnunley/pugs/util/package-osx.pl	4605	4704	
==>l/man/man3/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/loca <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16434	16532	
==>scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16434	16532	
==>scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14037	14189	
==>are();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_g <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14037	14189	
==>are();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5320	5466	
==>'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5542	5688	
==>'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	683	800	
==>til/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $outpu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	683	800	
==>til/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $outpu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7446	7614	
==>) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	747	915	
==>) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	423	536	
==>finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
confor <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	423	536	
==>finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
confor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2935	3045	
==>::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock

# as w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2828	2936	
==>::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeComponent::fglock
# as w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16585	16759	
==>->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6866	6981	
==>($e))};# XXX doesnt work yet.
    my sub warning($e){warn("Warning: $e\n")};
    for %mods.keys -> $k {
        if % <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2449	2614	
==>n PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2449	2614	
==>n PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	311	426	
==>port;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	517	632	
==>port;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7773	7888	
==>for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_ite <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7773	7888	
==>for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_ite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14346	14521	
==>stant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14625	14800	
==>stant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1956	2051	
==>fix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1956	2051	
==>fix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23042	23139	
==>ant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like yo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23042	23139	
==>ant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like yo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6437	6555	
==>=~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot determine author info from $fil <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14228	14354	
==>rity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1708	1834	
==>rity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33743	33840	
==>guage like English or French.  The order of these items corresponds to
an individual user's (or us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33743	33840	
==>guage like English or French.  The order of these items corresponds to
an individual user's (or us <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25091	25194	
==>t C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29643	29746	
==>t C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) returns Bool>

T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9104	9234	
==>=~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9104	9234	
==>=~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14431	14528	
==>der fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14431	14528	
==>der fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1609	1713	
==>y there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1609	1713	
==>y there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11321	11435	
==>@{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{flags} & $self->{rx}->FLAG_i ? "exactf" : "e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	777	878	
==>mt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	777	878	
==>mt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	962	1103	
==>ll {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	962	1103	
==>ll {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8676	8788	
==>my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8676	8788	
==>my @union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.s <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	94	208	
==>ph.pl > /tmp/graph.png   --or
#        svn log > /tmp/log; util/svnlog2graph /tmp/log > /tmp/graph.png

use warning <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5852	5974	
==>ned $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5852	5974	
==>ned $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6100	6231	
==>p($file);
    if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	830	960	
==>ed_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	830	960	
==>ed_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7803	7929	
==>r};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7541	7659	
==>r};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternati <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6737	6859	
==>us
    max         Number of individual tests
    failed      Number which failed
    percent     Percentage of tests which <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4429	4537	
==>PugsConfig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1195	1296	
==>r `use` or `require` statements 
will find modules which are not located on Pugs's default
search path <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1195	1296	
==>r `use` or `require` statements 
will find modules which are not located on Pugs's default
search path <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10186	10318	
==>get_all_children() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10186	10318	
==>get_all_children() -> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3479	3584	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model::D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3479	3584	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model::D <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	14	134	
==>pan;

class Date::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_durati <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	14	134	
==>pan;

class Date::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_durati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12886	13010	
==>= shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27025	27149	
==>= shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->vi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1868	2021	
==>f eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1868	2021	
==>f eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2928	3041	
==>warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3777	3890	
==>warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1822	1988	
==>atch, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we chang <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1822	1988	
==>atch, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we chang <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4365	4455	
==>tements;
def_rule('statement',mk_dynamic_alt(\@statements));

my @tokens;
my $tok = def_rul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3157	3309	
==>ods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_cl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3885	4011	
==>ods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31145	31262	
==>t.

=back

The following attributes may also be set:

=over 4

=item branch

Whether this object has branches (like C< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18038	18140	
==>rsing up your module's source code into various blocks; so that by the
time a compiler is called it onl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18038	18140	
==>rsing up your module's source code into various blocks; so that by the
time a compiler is called it onl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	490	617	
==>params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{type},
    );
}

my %p6p5 = (
    '~ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	414	511	
==>params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{type}, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6220	6346	
==>most block and stream ciphers to a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Alt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6220	6346	
==>most block and stream ciphers to a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Alt <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3706	3795	
==>.

The compiler inherits L<Blondie::Reducer::DynamicScoping> to assist in the
verification <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11423	11560	
==>entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11423	11560	
==>entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22299	22432	
==>OTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18720	18853	
==>OTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	295	403	
==>generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	295	403	
==>generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	891	1004	
==>-[0]), to => \\(0+$+[0]),
    bool => \\$bool, match => \\@match, named => {}, capture => \\undef,
  }, 'Pugs::R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20340	20438	
==>e hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20340	20438	
==>e hexadecimal digest of the
result in double quotes followed by a semicolon. Like:

    "f1d2d2f924 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11499	11630	
==>0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11499	11630	
==>0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	642	787	
==>ackage} eq $path } @list ) {
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### install the archiv <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3632	3744	
==>n}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3632	3744	
==>n}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<top <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17094	17201	
==>ble danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22194	22301	
==>ble danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*len <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7211	7345	
==>E   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('ge <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7211	7345	
==>E   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4445	4543	
==>/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."}";
}
sub node::access <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1641	1760	
==>mote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1641	1760	
==>mote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5896	6005	
==>evious ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5896	6005	
==>evious ( $x ) { 
    return $.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	413	508	
==>ASS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specia <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	413	508	
==>ASS PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More specia <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2435	2542	
==>sn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2435	2542	
==>sn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result if b <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1840	1983	
==>truct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1840	1983	
==>truct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	679	797	
==>agesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule an <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	679	797	
==>agesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3366	3508	
==>l 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3354	3496	
==>l 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10884	11029	
==>0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10878	11023	
==>0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1909	2093	
==>onfig->new;

    my %cache = ();

    sub new { 
        my $class   = shift;
        my %hash    = @_;
    
        my $dir;
        my $tmpl    = {
            dir => { required => 1, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1209	1310	
==>AttrType
        (Relation::AttrName $attr_name) {
    return %!attrs{$attr_name};
}

method attr_name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13763	13883	
==>{time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13763	13883	
==>{time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5720	5827	
==>eys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5720	5827	
==>eys;
  }];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %chan <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3010	3185	
==>new(
            params => closure::params->new(
                           symbol->new('&dispatcher' => 'block'),
                           symbol->new('$label'      => 'symb <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2655	2775	
==>ml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Zlib;
    open my $ifh, "<", $in  or die "op <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1075	1179	
==>.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18614	18703	
==>rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3741	3887	
==>ubmatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3753	3899	
==>ubmatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15338	15443	
==>e_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
what kind <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15338	15443	
==>e_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
what kind <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	644	759	
==>->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other access <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1128	1243	
==>->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other access <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	986	1115	
==>l  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	986	1115	
==>l  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1510	1607	
==>/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1510	1607	
==>/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1173	1285	
==>rt ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1173	1285	
==>rt ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1096	1215	
==>AME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimit <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1096	1215	
==>AME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18157	18253	
==>y) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitabl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18157	18253	
==>y) as a tree of primitive Perl data structures (hash refs,
array refs, scalars), which is suitabl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3432	3527	
==>(unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3432	3527	
==>(unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	192	300	
==>w;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    meth <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	192	300	
==>w;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1657	1780	
==>push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1657	1780	
==>push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) retur <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4691	4798	
==>_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, fr <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4691	4798	
==>_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, fr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7776	7875	
==>rn $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7776	7875	
==>rn $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3203	3361	
==>ection><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3203	3361	
==>ection><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a confi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11209	11358	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11488	11637	
==>uleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23729	23933	
==>-1]) { # don't forget the last one
            if ($_ > $last+1 || $_ == $last) {
                if ($min == $last) {
                    push @canon, $last;
                } else {
                    p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2333	2480	
==>$pool_rel)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        return $obj <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1783	1895	
==>n is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::Fal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1783	1895	
==>n is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::Fal <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5768	5887	
==>for_var_CODE($_)}@vars).')';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 's <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2289	2396	
==>2th line
GROK

my $file21 = <<'GROK';
1st line
2nd line
3rd line
4th line
5th line
6th line
7th line
8th lin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	694	820	
==>" });

# this code is a hashref from $LANG to auxilliary code in that
# language.
Has($?CLASS, "code", "Str");

# corresponding <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14606	14702	
==>eeds. The
following is a list of future features planned for this module.

- better error handlin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14664	14760	
==>eeds. The
following is a list of future features planned for this module.

- better error handlin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14477	14585	
==>f defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14477	14585	
==>f defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4593	4709	
==>sc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4651	4767	
==>sc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $des <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	248	346	
==>ase refer the documentation of the other Modules in the JIB namespace for
details.

=head1 SEE ALSO <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	545	642	
==>Blondie::Prelude;

=head1 DESCRIPTION

The prelude is essentially a reference implementation of al <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1190	1348	
==>description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method s <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1190	1348	
==>description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2411	2527	
==>:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2411	2527	
==>:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7462	7571	
==>members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_obje <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7462	7571	
==>members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_obje <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8415	8526	
==>rn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8415	8526	
==>rn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23988	24087	
==>ext" suggests that they
use a compile-time macro-based approach to substitute the user's preferred
l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23988	24087	
==>ext" suggests that they
use a compile-time macro-based approach to substitute the user's preferred
l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1972	2080	
==>tr( $_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'Pu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19295	19389	
==>horized> response.
The field value consist of a challenge that indicates the
authentication sch <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19295	19389	
==>horized> response.
The field value consist of a challenge that indicates the
authentication sch <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1664	1772	
==>A map is like a hash - it has keys and values.

C<Env> is a map - it contains symbol to value mappings.

=bac <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2745	2838	
==>e');
is($p->prototype->class, \&Object, '... got the right class name');

is($p->get_x, 5, '.. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31078	31187	
==>sists of the two parts concatenated without any delimiter.  This means,
for example, that the full module name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31078	31187	
==>sists of the two parts concatenated without any delimiter.  This means,
for example, that the full module name <==
2	/Users/nnunley/pugs/util/version_h.pl	2221	2328	
==>T;

  if ($revision != 0) {
    # rebuild Help.hs to show new revision number
    unlink "$base/dist/build/s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7438	7572	
==>y \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7426	7560	
==>y \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8587	8713	
==>%!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8587	8713	
==>%!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7687	7849	
==>{
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7699	7861	
==>{
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab , <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	598	749	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	598	749	
==>> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6480	6579	
==>False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6480	6579	
==>False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is int <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4453	4574	
==>ace for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4453	4574	
==>ace for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8265	8424	
==>== Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitra <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8265	8424	
==>== Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitra <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	361	454	
==>odel (M1)

=head1 SYNOPSIS

 my $role = Role.new("SomeRole");

 $role.addMethod(Method.new(... <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	566	667	
==>h;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    doe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	566	667	
==>h;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    doe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2440	2541	
==>se replace p5 ones with p6 ones _without_ changings its name.



of course that has the problem of sup <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2347	2446	
==>se replace p5 ones with p6 ones _without_ changings its name.

of course that has the problem of sup <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10040	10157	
==>her $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10040	10157	
==>her $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16034	16138	
==>ntersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19511	19615	
==>ntersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2805	2953	
==>auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "ca <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2805	2953	
==>auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	112	221	
==>$set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	112	221	
==>$set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    se <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12428	12524	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snipp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12486	12582	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snipp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1983	2126	
==>s to values:

    Blondie::Env->new(
        '&func' => Thunk(
            Stub("&func is not really implemented"),
        ),
    );

Use the d <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	7	126	
==>e T2::Perl6;

use T2::Schema;
use Perl6::MetaModel;

use base qw(Class::Tangram);

our $VERSION = 0.01;

# an example of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3950	4110	
==>_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3950	4110	
==>_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6317	6422	
==>end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6317	6422	
==>end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17324	17436	
==>\&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17324	17436	
==>\&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Conn <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7055	7157	
==>port the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7055	7157	
==>port the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7960	8074	
==>);

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7690	7797	
==>);
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10482	10604	
==>quant => 0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	870	985	
==>F'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	870	985	
==>F'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5121	5222	
==>ad1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIM <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5121	5222	
==>ad1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIM <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1716	1830	
==>ub authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

# Local variables:
# c-indentatio <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3471	3605	
==>right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3471	3605	
==>right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5326	5498	
==>' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5548	5720	
==>' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1517	1652	
==>sage( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1517	1652	
==>sage( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1724	1839	
==>on<remove> .= new;
}

class Class::Events::Subscription {
    has Class::Events::Publisher $.publisher;
    has Clas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39281	39378	
==>:Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39281	39378	
==>:Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3774	3905	
==>right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3774	3905	
==>right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21668	21758	
==>DBI's provided independence
is I<Database Driver Independence>, and not I<Database Language <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21668	21758	
==>DBI's provided independence
is I<Database Driver Independence>, and not I<Database Language <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22827	22965	
==>op::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23106	23244	
==>op::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10511	10624	
==>nsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile re <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10511	10624	
==>nsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compile re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	94	199	
==>odes;

sub symbols {
    stub '&infix:<~>',
}



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelud <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17594	17693	
==>apitalize ( Str $string = CALLER::<$_> --> Str )

Has the effect of first doing an C<lc> on the enti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5709	5839	
==>{ %{$param[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5527	5654	
==>{ %{$param[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3945	4067	
==>>add_handler('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error( <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	23	133	
==>r {
    class Getopt::Processor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normali <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3106	3211	
==>application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3106	3211	
==>application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2566	2843	
==>^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbat <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2566	2843	
==>^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2163	2273	
==>dir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2163	2273	
==>dir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11102	11226	
==>if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11096	11220	
==>if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24902	25016	
==>his method returns a count of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29454	29568	
==>his method returns a count of this Relation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple! <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13398	13510	
==>and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13398	13510	
==>and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1463	1581	
==>value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1463	1581	
==>value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1091	1195	
==>=head1 NAME

str - the core str type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10982	11141	
==>pires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10982	11141	
==>pires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25337	25440	
==>You may copy and distribute
such a system following the terms of the GPL for Rosetta and the licenses
of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25337	25440	
==>You may copy and distribute
such a system following the terms of the GPL for Rosetta and the licenses
of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1092	1198	
==>~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1092	1198	
==>~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2785	2905	
==>turn $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2785	2905	
==>turn $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.clo <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	443	552	
==>e), :r);
	unless ($fh) {
		XML::SAX.do_warn("could not open $file in $dir\n");
		return $class;
	}

	@.known_p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26726	26819	
==>,">deleteme_pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use Language::Prolog <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17136	17229	
==>item $h.content_language

The natural language(s) of the intended audience for the message
con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17136	17229	
==>item $h.content_language

The natural language(s) of the intended audience for the message
con <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19698	19806	
==>ement for any compile sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19698	19806	
==>ement for any compile sections in
that block. C<use> statements in a PREFACE apply to all the code in
a PACKA <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3102	3198	
==>$other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   : <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3102	3198	
==>$other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4197	4311	
==>($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4414	4528	
==>($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        pri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7357	7526	
==>nless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7821	7990	
==>nless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7762	7859	
==>>add_file(file => $file, [force => BOOL])

Adds a given file to the repository.

=cut

sub add_fil <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18247	18340	
==>/mini_harness.plx> for an example of use.

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17904	18027	
==>wWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14325	14448	
==>wWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	778	901	
==>mmar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	984	1107	
==>mmar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24023	24162	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24302	24441	
==>block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4437	4574	
==>turn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4630	4767	
==>turn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2210	2309	
==>itial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2210	2309	
==>itial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1938	2036	
==>tr;
	} else {
		return "undef" unless defined $node;
		return "$node" if Blondie::TypeSafe::Annotat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27649	27752	
==>CH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_COPIED(prog)		((prog)->regan <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4967	5066	
==>SX::InternalValue::Completion {
   submethod BUILD { $.type = JSX::InternalValue::Completion_type.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5312	5449	
==>add_op( name => $<name>, fixity => ..., precedence => ... );
            return ... ;
        }
    }

    rule statement {
        <categ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8288	8379	
==>s(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_modifier_spec_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8208	8345	
==>{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7926	8056	
==>{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9838	9950	
==>ch down into quant.
  package Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38431	38539	
==>ds),
      map($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Regexp: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3674	3764	
==>ipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3674	3764	
==>ipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1910	2000	
==>rm:", "nows", &parse_closure);
    $optable->addToken("postfix:*", "<term:", "left", $parse <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24457	24539	
==>,X,amat(C0,G),amat(C1,G)) :- replace_at_n(N,X,C0,C1).
match_captures_set_if_undef(N <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4217	4327	
==>ption.subscriber);
    }
    
    method dispatch (Code & Class::Events::Subscriber $subscriber) {
        $sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24264	24424	
==>->can("FLAG_$_")) {
      my $v = $h->(0);        # 0 means this is 'off'
      if ($v) { &Rf &= ~$v }  # turn the flag off
      else { ... }            # the f <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2117	2243	
==>hing failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2095	2221	
==>hing failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25081	25248	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25360	25527	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8857	8959	
==>_re_','$_m_','$_m0_',
         '$_a_','$_s_','$_at_','$_prev_');
        my $code = "Rul.new(:f(sub($st <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1206	1306	
==>rite ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) - <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1206	1306	
==>rite ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23611	23711	
==>es, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23611	23711	
==>es, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6407	6508	
==>unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6407	6508	
==>unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3602	3698	
==>ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Functi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3602	3698	
==>ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Functi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	833	934	
==>odel::Document {

    # External packages used by the Rosetta::Model::Document class, that do export s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	833	934	
==>odel::Document {

    # External packages used by the Rosetta::Model::Document class, that do export s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	395	494	
==>t ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

met <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	395	494	
==>t ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	420	621	
==>reedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	420	621	
==>reedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	710	824	
==>m :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	710	824	
==>m :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting f <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2159	2261	
==>$(INST_ARCHLIB)/$(FULLEXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->g <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	389	483	
==>LE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX => 8;

BEGIN {
  __PACKAGE__->mk_acce <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3854	4030	
==>";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3854	4030	
==>";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8738	8895	
==>s => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: imp <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8738	8895	
==>s => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: imp <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1188	1321	
==>alizer::Null { }

    role Getopt::Argument::Coercer::Null { }
}

module Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1288	1418	
==>A },
        config          => { allow => ISA_JIB_CONFIG },
        package         => { allow => $Package_re, no_override => 1 }, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	998	1110	
==>del::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	998	1110	
==>del::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	500	597	
==>-------------------------------------

use Test::More tests => 46;

{
    use Hash::Util 'lock_key <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3229	3344	
==>hould all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3229	3344	
==>hould all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3480	3580	
==>icularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEB <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3480	3580	
==>icularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEB <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6984	7136	
==>0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6797	6904	
==>an1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6797	6904	
==>an1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1521	1635	
==>, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1521	1635	
==>, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	721	841	
==>-specific-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	686	797	
==>-specific-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3810	3912	
==>|\>|\x[bbd]] }
rule argument_list { [ <-[\\\(\)]> | \\ . | \( <argument_list> \) ]* }
rule capturing_gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12319	12495	
==>ammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12313	12489	
==>ammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1355	1450	
==>object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1355	1450	
==>object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2153	2264	
==>has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have dif <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2153	2264	
==>has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have dif <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16427	16530	
==>reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $self->{line} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22001	22101	
==>itchStatement :words {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule Case <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18831	18933	
==>lone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18831	18933	
==>lone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{ <==
2	/Users/nnunley/pugs/util/func_refact.pl	2918	3023	
==>, $data) = @_;
    my ($total, $new) = @$data;
    printf "$cand: %s ($total total, $new new)\n", score($t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7846	7937	
==>{instance}, $_[1], @_[2, 3]) };
multi unify => ('type', 'type::variable::instantiated') => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	418	531	
==>ammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument lis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	418	531	
==>ammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument lis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17183	17281	
==>any other package or application says that it uses
Locale::KeyedText, that is a terse way of saying <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17183	17281	
==>any other package or application says that it uses
Locale::KeyedText, that is a terse way of saying <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1879	2013	
==>t_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1879	2013	
==>t_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17543	17651	
==>ON

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17543	17651	
==>ON

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4722	4835	
==>l');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = ea <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4581	4694	
==>l');

    # Call methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = ea <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5160	5270	
==>in creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclasses;
    ha <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5565	5697	
==>_mnt,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  "terminfo=s"     => \$terminfo,
  help             => \&usage,
) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1668	1783	
==>}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1668	1783	
==>}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.in <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5002	5141	
==>rwise ... add the method in 
            $self->add_method($method_name => $role->get_method($method_name));
        }
    }
    # this is o <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1243	1362	
==>t_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15
print "[$_]" for ($0, @ARGV);
prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	94	194	
==>s::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	94	194	
==>s::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
u <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1076	1166	
==>l::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1076	1166	
==>l::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    method <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3039	3164	
==>shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3586	3711	
==>shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19806	19912	
==>(Relation::Example $other!) returns Relation::Example {
    # This form takes the form of an ordinary natur <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	78	174	
==>rc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $nod <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	78	174	
==>rc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $nod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6834	6947	
==>he harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6892	7005	
==>he harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $context" !! <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	231	320	
==>bst[1]\n";
print "${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${wer}s Liebli <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9390	9510	
==>le>

  <script type="text/javascript">//<![CDATA[[
    function toggle_visibility (id) {
      var elem     = document.ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14033	14136	
==>n't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=item RPe_NESTED (-1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7021	7122	
==>th = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7021	7122	
==>th = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2151	2235	
==>Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2151	2235	
==>Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10482	10591	
==>oo
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10482	10591	
==>oo
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	492	668	
==>:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	492	668	
==>:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6909	7030	
==>er 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' directive is reached. This does no <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6909	7030	
==>er 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' directive is reached. This does no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22400	22528	
==>(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18821	18949	
==>(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	942	1092	
==>elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	942	1092	
==>elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5586	5691	
==>hods on a zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5586	5691	
==>hods on a zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22963	23091	
==>(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19384	19512	
==>(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	777	878	
==>dmin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	803	904	
==>dmin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22418	22544	
==>b { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22697	22823	
==>b { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12342	12448	
==>s
value for that field is set.

The header field name ($field) is not case sensitive and '_'
can be used as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12342	12448	
==>s
value for that field is set.

The header field name ($field) is not case sensitive and '_'
can be used as <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	473	604	
==>S

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	473	604	
==>S

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2044	2137	
==>-----------------------
## adding children 

method add_child ($self: Tree $child) returns Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2044	2137	
==>-----------------------
## adding children 

method add_child ($self: Tree $child) returns Tre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16225	16318	
==>ale::KeyedText provides a simple but effective mechanism for
applications and packages that em <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16225	16318	
==>ale::KeyedText provides a simple but effective mechanism for
applications and packages that em <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2140	2255	
==>e Data::Dumper;

{
    my $cat = Pugs::Grammar::Category->new( {
        name => 'rxinfix',
    } );
    $cat->add_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39423	39521	
==>equires knowledge of the characters
on the lower and upper side of the range, objects must be creat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1643	1769	
==>pe? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expir <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1643	1769	
==>pe? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expir <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3252	3348	
==>ion(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3252	3348	
==>ion(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36568	36663	
==>message and returns an equivalent human readable text message
string; this assumes that a Templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36568	36663	
==>message and returns an equivalent human readable text message
string; this assumes that a Templa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6172	6291	
==>is is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.ite <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6172	6291	
==>is is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.ite <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	852	966	
==>_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	852	966	
==>_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7426	7547	
==>dy)=@_;
    my $type = $pType;
    my @pams = map{DOWN($_)} @$pParams;
    my $lval = $pLValue; # XXX - ?
    my $body = D <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5432	5525	
==>>force_object(anyof_class => $S->force_object(vert => 0)) if $cc;
    return $S->object(vert = <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1609	1729	
==>n 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statisti <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1609	1729	
==>n 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statisti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1038	1208	
==>l( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1038	1208	
==>l( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10093	10207	
==>$ifthen->{data} = [ [ @{ $ifthen->{data} } ], $cond ];
      $rx->{tree} = $ifthen->{data};
    }

    # if this is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1066	1167	
==>use the module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1066	1167	
==>use the module to shift across all byte values, not just the ones 
corresponding to letters.

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6582	6687	
==>HTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to still be <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6582	6687	
==>HTS

Some basic notes here as I develop this.

- how should I handle blocks of text which seem to still be <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	54	165	
==>::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnos <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	54	165	
==>::Builder;
use Test::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	461	582	
==>ce };
    $self->{perl5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1333	1428	
==>rlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1333	1428	
==>rlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	752	850	
==>h_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	752	850	
==>h_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23229	23338	
==>e = exp0["cname"]
    exp1 = self[1]
    exp1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = exp1.p6ana <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4826	4963	
==>0; cap_idx <= r->nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? Sv <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	282	413	
==>welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufruf einer einfachen Methode
$welt.hallo;	# Perl 5:  $welt->hello;
hallo $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2232	2348	
==>ase;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2232	2348	
==>ase;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1129	1245	
==>on
    # issue since even higher order functions get prims instead of thunks when
    # possible

    my $body = $thu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13661	13765	
==>on issue since even higher order functions get prims instead of thunks when possible

    my $body = $thu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6238	6363	
==>}
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialize <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6238	6363	
==>}
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialize <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1156	1333	
==>ue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1156	1333	
==>ue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4570	4670	
==>{'rep'} } # string array1 array2 hash
sub field_is_array {
    my($self,$fname)=@_;
    $self->{'fiel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	458	550	
==>------------------------------------------------------------
## accessors and mutators

metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	458	550	
==>------------------------------------------------------------
## accessors and mutators

metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16495	16602	
==>set to it, and the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16495	16602	
==>set to it, and the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1282	1381	
==>gine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1282	1381	
==>gine::Example version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11613	11711	
==>p aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_nume <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11613	11711	
==>p aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_nume <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41167	41265	
==>late modules into the same files as
program code, rather than requiring separate files.

=item Stev <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41167	41265	
==>late modules into the same files as
program code, rather than requiring separate files.

=item Stev <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14840	14963	
==>r expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expres <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19008	19131	
==>r expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expres <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1319	1461	
==>ng ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1319	1461	
==>ng ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17234	17344	
==>";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13655	13765	
==>";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2229	2335	
==>n't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2229	2335	
==>n't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11103	11204	
==>=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11103	11204	
==>=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6782	6917	
==>ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(822 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6782	6917	
==>ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(822 <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	680	789	
==>ni_file(Class $class: IO $fh) {
	my @config;

	my $lineno = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$li <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	444	550	
==>ub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj not isa "P6RulesInP5: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1359	1460	
==>ontains both the TestBuilder::TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::N <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2832	2934	
==>e request URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2832	2934	
==>e request URI.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remo <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5189	5298	
==>$rev  or die "error: file '$rev' not found.\n";
-f $mid  or die "error: file '$mid' not found.\n";
-f $wc   or <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8484	8612	
==>oined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8484	8612	
==>oined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<obje <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1887	1987	
==>stuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1887	1987	
==>stuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1058	1183	
==>nce => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left', <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3219	3333	
==>te.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class repres <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3219	3333	
==>te.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class repres <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3477	3608	
==>}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3477	3608	
==>}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       retur <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2620	2719	
==>.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test lib <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2620	2719	
==>.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test lib <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12679	12798	
==>lastpos = length target
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr targ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	502	618	
==>new;
    $obj->mk_accessors( keys %$tmpl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12268	12369	
==>lue )

Set the specified header to the given value, but only if no previous
value for that field is se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12268	12369	
==>lue )

Set the specified header to the given value, but only if no previous
value for that field is se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	348	457	
==>=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	162	265	
==>=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	614	728	
==>thod($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	614	728	
==>thod($method) if $method.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3362	3479	
==>f<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3362	3479	
==>f<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12692	12925	
==>> $test{max},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             percent => 100*(scalar @{$tes <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10566	10652	
==>\\h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	6	115	
==>/bin/pugs
use v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	6	115	
==>/bin/pugs
use v6;

use URI;
use URI::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3572	3667	
==>s Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3572	3667	
==>s Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5202	5300	
==>ss or failure

=item data

The C<data> method returns a hash reference representing the configurati <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5202	5300	
==>ss or failure

=item data

The C<data> method returns a hash reference representing the configurati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1901	2020	
==>ets on \\%s", 'c');
  });

  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3252	3457	
==>ents<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('para <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3252	3457	
==>ents<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('para <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11808	11907	
==>alue )

Add a new field value for the specified header field.  Previous values
for the same field ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11808	11907	
==>alue )

Add a new field value for the specified header field.  Previous values
for the same field ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	420	542	
==>n finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	420	542	
==>n finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3526	3628	
==>s are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3526	3628	
==>s are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=ite <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2461	2576	
==>turn 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2461	2576	
==>turn 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1604	1696	
==>-----------------------------------------------------
## informational methods

method is_roo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1604	1696	
==>-----------------------------------------------------
## informational methods

method is_roo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	593	682	
==>-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	593	682	
==>-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4643	4722	
==>A-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4643	4722	
==>A-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11987	12130	
==>, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11981	12124	
==>, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alt <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1104	1260	
==>! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1104	1260	
==>! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4989	5140	
==>tors

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4989	5140	
==>tors

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return $result if $result != I <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	940	1045	
==>fn = "deleteme_$$";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn.err";
    my $er <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	958	1068	
==>sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_a <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	958	1068	
==>sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16834	16929	
==>tem $h.content_encoding

The Content-Encoding header field is used as a modifier to the
media ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16834	16929	
==>tem $h.content_encoding

The Content-Encoding header field is used as a modifier to the
media ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1013	1115	
==>rn - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Conti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1013	1115	
==>rn - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Conti <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4403	4529	
==>wo);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# uni <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4403	4529	
==>wo);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# uni <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	236	354	
==>ings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	236	354	
==>ings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14647	14785	
==>=
    ( undef => sub { $as_hash_complain->("undef"); [] },
      numeric     => sub { $as_hash_complain->("numeric") },
      non_numeric = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13073	13184	
==>d="details_<tmpl_var name=id>">
            <td colspan="11" class="indent3">
              <tmpl_loop name=summ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1161	1305	
==>ocale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_messag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1161	1305	
==>ocale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_messag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5064	5238	
==>{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = len <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5064	5238	
==>{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = len <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25122	25217	
==>o attributes, though such a Relation::Example can have no
more than a single tuple.  A zero-attr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27577	27671	
==>if you don't want harness to
output more frequent progress messages using carriage returns.  So <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10291	10393	
==>nd of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` obj <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10291	10393	
==>nd of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20468	20570	
==>e application where this is not
appropriate.  Prefixing field names with ':' allow you to force a
speci <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20468	20570	
==>e application where this is not
appropriate.  Prefixing field names with ':' allow you to force a
speci <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8442	8559	
==>$o->data);
    my $len = length($s);
    if($o->{'flags'} & $o->flag_val_i) {
      my $pat = $s;
      $pat =~ s/(\W) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11840	12002	
==>eredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (? <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11840	12002	
==>eredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (? <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8138	8284	
==>norecase");
#           warning "PGE doesn't actually do :ignorecase yet.";
        }
        if %mods<s> || %mods<sigspace> {      
            $p <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1151	1268	
==>int ::Y(\%allccs),"\n";
}
#print $g->as_png unless $Conf{no};

if ($Conf{nodes}) {
    print ::Y(\%nodes), "\n";
}

su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7831	7930	
==>horization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7831	7930	
==>horization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9452	9799	
==>d any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9452	9799	
==>d any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26362	26516	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26641	26795	
==>tant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_applic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7380	7592	
==>{
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7380	7592	
==>{
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            re <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10731	10870	
==>ode(3);
            my $y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skipping") . "... <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6100	6230	
==>s {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return un <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3777	3906	
==>s {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1382	1481	
==>s Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1382	1481	
==>s Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15614	15720	
==>o or more attribute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15614	15720	
==>o or more attribute names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19193	19323	
==>ne in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19193	19323	
==>ne in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	747	864	
==>r}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	747	864	
==>r}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9787	9891	
==>el
  my $iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->walker(2);  # top- thr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1264	1366	
==>ned $match; 
  $options = "left" if not $options;
  if ( $relativePrecedence and $relativePrecedence ne <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1525	1645	
==>{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1525	1645	
==>{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1068	1185	
==>kages MD
$Altfile        = $Meta . '/registered-alts';       # registered alternatives
$Alternatives   = $Meta . '/alt <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1964	2061	
==>PODS} = {} if $perl_version == 6;
    $self->makemaker_args->{MAN3PODS} = {} if $perl_version == 6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	412	508	
==>rot_loadbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp new_interpreter() {
   	Parrot_I <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6568	6655	
==>et(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_matchref(I).
p5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11824	11938	
==>ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11818	11932	
==>ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	132	248	
==>sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	858	974	
==>sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4013	4111	
==>f spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- univer <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4013	4111	
==>f spans must be ordered, and the spans must not intersect with each other.

- empty_set()

- univer <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24373	24511	
==>turn $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20794	20932	
==>turn $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1549	1660	
==>e_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1549	1660	
==>e_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5792	5895	
==>------ scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5792	5895	
==>------ scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10974	11100	
==>anslate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11124	11250	
==>anslate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	945	1085	
==>_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	945	1085	
==>_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@ma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5416	5655	
==>get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7178	7417	
==>get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3501	3606	
==>faces are layers on top of the object-oriented backend.

To use the Cipher API, you must first create an o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3501	3606	
==>faces are layers on top of the object-oriented backend.

To use the Cipher API, you must first create an o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24143	24243	
==>int a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arrow <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5999	6125	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i], s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6389	6515	
==>nal {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$i], s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13715	13870	
==>k>" title="Full smoke report">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </tabl <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3253	3344	
==>ist of Failed
  -----------------------------------------------------------------------
  t/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2397	2575	
==>ew( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2397	2575	
==>ew( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4742	4845	
==>ed all the lines including the ones before the `use`
    # statement, so we can parse Perl into packages <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4742	4845	
==>ed all the lines including the ones before the `use`
    # statement, so we can parse Perl into packages <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1084	1217	
==>golf = 0;
   while (<FF>) {
      $_ .= chomp; next unless length;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   clo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7716	7827	
==>ached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive is reached.

=ite <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7716	7827	
==>ached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive is reached.

=ite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3572	3680	
==>r.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a new Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3445	3548	
==>r.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a new Gram <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	381	471	
==>m referer
    www_authenticate authorization proxy_authorization authorization_basic proxy_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	381	471	
==>m referer
    www_authenticate authorization proxy_authorization authorization_basic proxy_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3336	3462	
==>e.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3336	3462	
==>e.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!chil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5261	5372	
==>ache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody jo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5261	5372	
==>ache353{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody jo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	589	697	
==>l packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	589	697	
==>l packages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attrib <==
2	/Users/nnunley/pugs/util/config_h.pl	1042	1143	
==>}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_readline = try_compile(<< '.');
impor <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9769	9863	
==>qc) is builtin is safe {
    rx_common_("pugs_internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17036	17144	
==>e for inline code, once for the final Match tree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub compile { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4024	4204	
==>\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4024	4204	
==>\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8993	9103	
==>if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8993	9103	
==>if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1272	1379	
==>path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1272	1379	
==>path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9537	9651	
==>cure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9537	9651	
==>cure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7092	7226	
==>Value">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params, traverse_ast ( $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30813	30912	
==>ibutors
exist.  Andreas Koenig held the torch for many years, and then
Michael G Schwern.

Current m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3804	3914	
==>_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0)) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3804	3914	
==>_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0)) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4363	4477	
==>:Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4363	4477	
==>:Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization
    for @ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1185	1299	
==>r $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1185	1299	
==>r $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	934	1052	
==>SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	934	1052	
==>SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5114	5239	
==>urn $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5114	5239	
==>urn $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5678	5833	
==>refered' package
        my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	244	384	
==>ng in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	244	384	
==>ng in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11414	11514	
==>recurrence )`

Returns only the elements in this recurrence that are also in the given recurrence.

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11414	11514	
==>recurrence )`

Returns only the elements in this recurrence that are also in the given recurrence.

- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4166	4269	
==>hether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4166	4269	
==>hether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match object re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9720	9829	
==>returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
method finish( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9720	9829	
==>returns Array { return }
method _tail() returns Array { return }

# What we implement for them.
method finish( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4305	4413	
==>0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4305	4413	
==>0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19284	19374	
==>s,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captures <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	765	869	
==>$_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	371	515	
==>- source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	371	515	
==>- source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9761	9870	
==>eturns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns Array {
    my @ta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9761	9870	
==>eturns Array { return }

# What we implement for them.
method finish(Cipher $self:) returns Array {
    my @ta <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22627	22733	
==>ower(Cx)), code_type(C1,to_lower(C1x)), code_type(C2,to_lower(C2x)),
   C1x =< Cx, Cx =< C2x, !.
charset_me <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2975	3072	
==>{privlib} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\sit <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4357	4503	
==>> '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4357	4503	
==>> '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6001	6104	
==>is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6001	6104	
==>is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applies to Span <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6175	6277	
==>ocuments may not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiv <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6175	6277	
==>ocuments may not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	755	853	
==>y-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Lo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	755	853	
==>y-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Lo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11246	11356	
==>oping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11246	11356	
==>oping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9265	9369	
==>d semidifference (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12742	12846	
==>d semidifference (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $ot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16288	16481	
==>:alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16567	16760	
==>:alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           , <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18081	18181	
==>eferences to each other at a level visible in the Rosetta Native
Interface, if at all.  To account fo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18081	18181	
==>eferences to each other at a level visible in the Rosetta Native
Interface, if at all.  To account fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33124	33230	
==>(!).

=head2 bol

Family: anchor

Types: bol (C<^>), sbol (C<^> with C</s> on, C<\A>), mbol (C<^> with
C</m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10870	10978	
==>) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::oper <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7890	7979	
==>=> ('type', 'type::variable::instantiated') => sub { unify($_[1]{instance}, $_[0], @_[2, 3 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	699	836	
==>::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! Th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1980	2117	
==>::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! Th <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2563	2687	
==>return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2563	2687	
==>return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($se <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	18	140	
==>ntainerTypes;

use strict;
use warnings;

use Perl6::MetaModel;

role 'IScalar' => {};

class 'PIL::Run::Container::Scalar' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14067	14175	
==>e  => sub { $as_array_complain->("code") },
      ref   => sub { $as_array_complain->("ref") },
      glob  = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16142	16241	
==>. */

I don't know.

Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	407	520	
==>ence->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ( <==
2	/Users/nnunley/pugs/util/package-osx.pl	5315	5420	
==>/Perl6::Doc.3
        /usr/local/man/man3/Perl6::Doc.3pm
        /usr/local/man/man3/Perl6::FAQ::Capture.3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2575	2682	
==>nk to

do it Right As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2480	2582	
==>nk to
do it Right As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	139	237	
==>Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	139	237	
==>Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5851	5968	
==>um = shift;

	push @$accum, my $entry = {
		orig => $self,
		new => undef,
	};
	
	$entry->{new} = $self->SUPER::splat( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2711	2829	
==>ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2711	2829	
==>ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2705	2824	
==>RSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2705	2824	
==>RSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14092	14196	
==>esenting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $ten <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14092	14196	
==>esenting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $ten <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22117	22226	
==>ick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22117	22226	
==>ick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4845	4948	
==>ck->last_error), return;

    for my $index ( $self->index_file, $self->index_files(package => $pkg) ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5329	5557	
==>new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7091	7319	
==>new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7393	7709	
==>> 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                b <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17234	17363	
==>> $link->{whole},
                         class => 'testlink');
                # $backlink->push_content(abs2rel($source, $outpu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4026	4127	
==>rence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.compl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4026	4127	
==>rence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.compl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	848	985	
==>q \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	848	985	
==>q \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4832	4956	
==>eturn "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4832	4956	
==>eturn "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16952	17053	
==>e other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16952	17053	
==>e other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
b <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4804	4906	
==>ON

This module is meant for people who want a simplified view of the
libwww-perl library.  It should a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4804	4906	
==>ON

This module is meant for people who want a simplified view of the
libwww-perl library.  It should a <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	389	507	
==>y Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' o <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	389	507	
==>y Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' o <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	814	922	
==>= @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or warn "opendir failed for $src: $!", return <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2152	2250	
==>or some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2152	2250	
==>or some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12328	12444	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12607	12723	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3253	3357	
==>me, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3253	3357	
==>me, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18989	19091	
==>hod removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18989	19091	
==>hod removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the re <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1206	1340	
==>($self: Set $super) {

    my $supers = $self.all_superclasses;
    die "Uh-oh, there's a super in my duper!"
        if $supers.includ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7480	7577	
==>@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" opera <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7480	7577	
==>@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" opera <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	653	816	
==>=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when 'new'   {
        print template( "wiki.tmpl", topic => '', entry => '', entry_html => '');
    }
    when <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13258	13386	
==>, digits(T), !.
digits([])    --> [].
digit(D) --> [D], { code_type(D, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4786	4941	
==>set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4786	4941	
==>set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5858	6020	
==>if( $pkg->prefix    eq $test->prefix    and
                $pkg->name      eq $test->name      and
                $pkg->version   <= $test->version
            ) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	638	744	
==>be an instance of reference";
    (blessed($attrs) && $attrs->isa('hash'))
        || confess "Attrs must b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3934	4036	
==>----
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3934	4036	
==>----
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_c <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	176	273	
==>Input a string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	232	329	
==>Input a string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11356	11464	
==>test_on_object } '... instance calling metaclass singleton method fails';
fails_ok { $iBar->singleton_test_on <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16276	16375	
==>mentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16276	16375	
==>mentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-l <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4333	4484	
==>get_value('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4445	4569	
==>ash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4445	4569	
==>ash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2009	2169	
==>n $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2009	2169	
==>n $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2856	2964	
==>roperties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $c <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2856	2964	
==>roperties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8764	8936	
==>n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9599	9771	
==>n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3725	3827	
==>preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $te <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5085	5187	
==>preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5161	5308	
==>, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7675	7777	
==>emp1 = pop @operatorStack;

  reduce_args:
  goto reduce_saveterm if $arity < 1;
  $temp2 = pop @termSt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3423	3520	
==>=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3423	3520	
==>=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	88	215	
==>_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is co <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	88	215	
==>_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3536	3629	
==>ead1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3536	3629	
==>ead1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	348	517	
==>(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	348	517	
==>(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2060	2170	
==>a T2::Association, but as they
    # both respond to ->type and ->name in the same way, we can use
    # them h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26439	26528	
==>bclasses.push($subclass);
}

(method add_subclass ((opaque $self:) (opaque $subclass)) ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21342	21441	
==>new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44249	44348	
==>new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->g <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3427	3518	
==>:= $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3485	3576	
==>:= $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2664	2765	
==>ule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal paramet <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2664	2765	
==>ule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal paramet <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1453	1544	
==>C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1453	1544	
==>C<capture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6459	6570	
==>-Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submet <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6459	6570	
==>-Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submet <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1863	1999	
==>eturns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## --------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1863	1999	
==>eturns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## --------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19975	20076	
==>ssword"> as a single string value.

When used to set the header value, it expects two arguments.  I<E. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19975	20076	
==>ssword"> as a single string value.

When used to set the header value, it expects two arguments.  I<E. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1270	1361	
==>tinuation (i.e. returns whatever the
continuation returns) with an updated C<Result> object. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1270	1361	
==>tinuation (i.e. returns whatever the
continuation returns) with an updated C<Result> object. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20265	20382	
==>->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipped} != <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	911	1050	
==>} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	936	1075	
==>} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'no <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21168	21270	
==>hose of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by a Per <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25720	25822	
==>hose of
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by a Per <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3929	4063	
==>{
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreach my $key (@tuple_keys) {
        next unless exist <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20976	21115	
==>ing
    my($name)=@_;
    my $mn = p6_mangle($name);
    my $pkg = (caller)[0];
    #my $ret = eval "package $pkg;".<<'    END';
    #  no s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4289	4413	
==>sult{type} = 'todo' if $self->{todo}{$result{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++ <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1082	1203	
==>~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => 1 }, @with_args;
} <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1082	1203	
==>~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => 1 }, @with_args;
} <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9957	10117	
==>e Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, C <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1171	1328	
==>e Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2485	2592	
==>ngings its name.



of course that has the problem of supplying Perl.pm itself - but I think to

do it Right <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2392	2496	
==>ngings its name.

of course that has the problem of supplying Perl.pm itself - but I think to
do it Right <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7886	8000	
==>m>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7886	8000	
==>m>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.d <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6112	6252	
==>d = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8632	8723	
==>tation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholde <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15083	15178	
==>msg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15083	15178	
==>msg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14534	14641	
==>> 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Cr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14534	14641	
==>> 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Cr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10095	10188	
==>ymmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This wi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10095	10188	
==>ymmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This wi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	678	780	
==>alue::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	678	780	
==>alue::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-s <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	235	359	
==>5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method fro <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	235	359	
==>5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method fro <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7359	7465	
==>t the roles in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar',
    '$:superclass' => $Object,
    ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	138	251	
==>an = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	138	251	
==>an = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6983	7130	
==>, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6983	7130	
==>, 1 );
    if ( $prefix eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17503	17594	
==>etta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17503	17594	
==>etta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBM <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	24	143	
==>print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	24	143	
==>print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9238	9378	
==>.
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = $grammar1::immediate_statement_rule( \$ret );\n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	861	976	
==>esult is an AST
    
    print Blondie::Emitter::Pretty->new->string($result); # works for all nodes


    # perl eq <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	329	455	
==>Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	329	455	
==>Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4147	4287	
==>ndidates, $File::Find::name;
        };
        find $wanted, "dist";

        if (@candidates > 1) {
            # This is harmless -- so we <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10112	10264	
==>ype' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'per <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10112	10264	
==>ype' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'per <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5865	5967	
==>ec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCT <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5865	5967	
==>ec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10977	11087	
==>y \$rule = Runtime::Perl5::RuleOps::concat( \n" .
                "        Runtime::Perl5::RuleOps::constant( ' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	282	392	
==>pdir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	282	392	
==>pdir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11410	11515	
==>ren returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11410	11515	
==>ren returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	335	450	
==>me_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_an <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	335	450	
==>me_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19104	19194	
==><not> happen automatically if using the header(),
push_header() or init_header() methods to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19104	19194	
==><not> happen automatically if using the header(),
push_header() or init_header() methods to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17019	17136	
==>, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17019	17136	
==>, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21856	21970	
==>eld.  There will still be a class() method in F<__object__>,
but it will throw a "use of class() is deprecated" war <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7282	7393	
==>nt_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7282	7393	
==>nt_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundar <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4745	4853	
==>6.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of th <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4745	4853	
==>6.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8530	8659	
==>rk with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

metho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8530	8659	
==>rk with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15544	15667	
==>);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16253	16364	
==>ous other external documentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16253	16364	
==>ous other external documentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	649	750	
==>e generally useful stuff, and need not be
  implemented immediately.  Assume the existence of what wou <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	524	643	
==>nd #)
                     )
    returns Duration::Gregorian is export {
    Duration::Gregorian.new( :year($year), :mon <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14990	15113	
==>Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14990	15113	
==>Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $dig <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7578	7704	
==>q 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7578	7704	
==>q 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_p <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1463	1611	
==>ipt) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1463	1611	
==>ipt) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1524	1641	
==>nternal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavail <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1524	1641	
==>nternal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavail <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	289	453	
==>o the value 4

    use Blondie::Nodes; # for easy constructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38508	38614	
==>ndBranch;
  my $parser = Regexp::AndBranch->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo! <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13452	13552	
==>ntersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13452	13552	
==>ntersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6656	6780	
==>$self = shift;
    if (ref $self->{data}) {
      $self->{data}->type;
    }
    else {
      join "", $self->{how}, ($self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2770	2866	
==>$opt->{fixity} = 'prefix' unless defined $opt->{fixity};
    $opt->{index}  = 'OP' . $op_count++ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	81	196	
==>ng.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of co <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	81	196	
==>ng.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12525	12632	
==>stance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12525	12632	
==>stance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19873	19973	
==>rtly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, inclu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19873	19973	
==>rtly by how Mac OS X manages its
resources.  It is the standard practice for Mac OS X programs, inclu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8058	8192	
==>::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8046	8180	
==>::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1000	1100	
==>tmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1000	1100	
==>tmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	41	146	
==>6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level str <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	41	146	
==>6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level str <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18111	18209	
==>sion> <'||'> <LogicalANDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      <Log <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5189	5282	
==>f->{admin} or die <<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8690	8797	
==><]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(oct $1 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10483	10587	
==>07@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w, B <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7444	7557	
==>$re eq '\d';
    return $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6372	6472	
==>represent them.  See L<Regexp::Parser::Handlers> for information
about sub-classing this module.

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3476	3615	
==>recedence => 'looser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        pre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	266	379	
==>ef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	472	585	
==>ef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warni <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6137	6243	
==>span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6137	6243	
==>span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6530	6653	
==>"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    re <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6530	6653	
==>"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5584	5705	
==>mp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5584	5705	
==>mp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method dif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37629	37726	
==>module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positiona <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37629	37726	
==>module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positiona <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	338	452	
==>of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for S <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	338	452	
==>of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for S <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2	107	
==>dule FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2	107	
==>dule FindBin-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7715	7837	
==>Y/) {
        for (@$o) {
	    rebless_with_prefix_and_cleanup($_,$prefix);
	}
    } elsif($s =~ /HASH/) {
        for (key <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	691	792	
==>e::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
} <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4728	4835	
==>.
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for peo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4728	4835	
==>.
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for peo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3868	3971	
==>em B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3868	3971	
==>em B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4901	5004	
==>$cipher_obj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4901	5004	
==>$cipher_obj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
th <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1055	1155	
==>on)";
our $re_varname = $re_sigil.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|ou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5238	5354	
==>mpiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5057	5167	
==>mpiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* F <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9660	9774	
==>5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub deco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9660	9774	
==>5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub deco <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17238	17335	
==>m Hierarchy Changes

There are now abstract classes I<anchor> and I<assertion>. You can't call
the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9131	9228	
==>ements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2956	3053	
==>ements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
pus <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3129	3258	
==>event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3129	3258	
==>event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12592	12687	
==>ent working features.

This module deals with encoding and decoding of strings with HTML
charact <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12592	12687	
==>ent working features.

This module deals with encoding and decoding of strings with HTML
charact <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3641	3824	
==>rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symme <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21174	21299	
==>use_
      ?? Pugs::Internals::use($module)
      !! Pugs::Internals::require($module);
  }
  my sub find() {
    my $file = j <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1463	1601	
==>hod set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## --------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1463	1601	
==>hod set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## --------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4514	4614	
==>c) = @_;
    return $S->force_object(anyof_char_comp => "\r", '\R') if $cc;
    return $S->object(exa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	683	795	
==>h {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[: <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4475	4576	
==>nt_list> \) ]? \> }
rule symbolic_indirect_rule { \<(!?)\:\:\( <code> \)\> }

rule character  { <a_dot <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	286	441	
==>ch my $token (@tokens) {
        if ($token eq '(') {
            my $new_arr = [];
            if (@{$stack}) {
                push @{$stack->[-1]} => $ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6079	6176	
==>l not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6079	6176	
==>l not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11660	11757	
==>er.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11660	11757	
==>er.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get values as <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	596	690	
==>Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	596	690	
==>Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($mat <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19738	19899	
==>write out the synopsis
        my $outfile = IO::File->new(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3986	4128	
==>goto &$c;
      my $v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      }
      die "we're n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8574	8700	
==>>param(files       => [sort {$a->{file} cmp $b->{file}} @files ]); 
    print $fh $template->output();
    close $fh;
    for ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5116	5215	
==>um>

=item B<elem () returns num>

=item B<join (?str) returns str>

=item B<each (closure) return n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20009	20179	
==>r(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          ) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40469	40639	
==>r(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4445	4540	
==>o C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4445	4540	
==>o C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<decipher <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2006	2156	
==>ef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, whic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2006	2156	
==>ef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, whic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13821	14003	
==>put( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the datab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13821	14003	
==>put( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the datab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	656	766	
==>l};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	862	972	
==>l};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5448	5554	
==>is
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5448	5554	
==>is
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7828	7933	
==>1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_paramete <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7828	7933	
==>1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_paramete <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2521	2634	
==>the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2521	2634	
==>the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11540	11632	
==>depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_fun <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11598	11690	
==>depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_fun <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	82	176	
==>r ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored P <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	82	176	
==>r ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	795	888	
==>if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	795	888	
==>if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2613	2710	
==>ec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagically for p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2613	2710	
==>ec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagically for p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	76	172	
==>leading-"x" field names are used in nameless (array-based) nodes
where I don't yet know an author <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	76	172	
==>leading-"x" field names are used in nameless (array-based) nodes
where I don't yet know an author <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4311	4438	
==>than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4311	4438	
==>than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($i <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	737	852	
==>@!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Bu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	737	852	
==>@!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Test::Bu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1829	2016	
==>eal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $stat <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	568	692	
==>tem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy;

# in fact, maybe the fo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14978	15092	
==>st\n};
}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $te <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14978	15092	
==>st\n};
}

# Fold a piece of code into a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $te <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2057	2203	
==>processing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this err <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2057	2203	
==>processing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this err <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2107	2204	
==>multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2107	2204	
==>multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3737	3910	
==>5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3737	3910	
==>5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	556	705	
==>ong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	556	705	
==>ong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1519	1634	
==>..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1519	1634	
==>..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14892	15055	
==>handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14886	15049	
==>handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1181	1321	
==>) {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1181	1321	
==>) {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3596	3707	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3789	3900	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8238	8417	
==>id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5612	5721	
==>d as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know how both <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5612	5721	
==>d as
# number of seconds from now), so we don't provide an easy way to
# access it until we have know how both <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	769	890	
==>telib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or warn "open <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	671	776	
==>ange' magically if a rootdir gets changed

### base dirs
### XXX touch the 'root' entry and the tests will <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3400	3755	
==>pires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3400	3755	
==>pires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4052	4186	
==>.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4052	4186	
==>.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4442	4564	
==>q '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4454	4576	
==>q '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture}  if $name eq '$/<>' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	756	867	
==>~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	756	867	
==>~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	244	343	
==>The type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are ch <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	244	343	
==>The type class for PIL nodes.  vtype() returns a string that represents the 
node type, which are ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13023	13119	
==>.remove_content_headers

This will remove all the header fields used to describe the content of
a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13023	13119	
==>.remove_content_headers

This will remove all the header fields used to describe the content of
a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4112	4357	
==>e Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4112	4357	
==>e Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Loc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2306	2407	
==>de;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2306	2407	
==>de;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5752	5865	
==>equire Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5752	5865	
==>equire Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2183	2316	
==>$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*EN <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2183	2316	
==>$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*EN <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2110	2275	
==>de\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2327	2492	
==>de\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16707	16811	
==>ser, but
rather returns its results for calling code to output as it sees fit.  It
also does not make dir <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16707	16811	
==>ser, but
rather returns its results for calling code to output as it sees fit.  It
also does not make dir <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14435	14526	
==>, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%----------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19365	19460	
==>es the
authentication scheme and parameters applicable to the requested URI.

=item $h.proxy_aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19365	19460	
==>es the
authentication scheme and parameters applicable to the requested URI.

=item $h.proxy_aut <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1114	1270	
==>ytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1114	1270	
==>ytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6295	6413	
==>return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6307	6425	
==>return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#- <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1160	1282	
==>d_half_down_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, up below 0
    given abs($x) - floor( ab <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3240	3345	
==>ns Int { $.day - 1 }
method day_0 returns Int { $.day - 1 }
method mday returns Int { $.day }
method mday_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30987	31084	
==>from others in
its set. For maximum flexibility in their use, the full name of a module
consists o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30987	31084	
==>from others in
its set. For maximum flexibility in their use, the full name of a module
consists o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	970	1149	
==>+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*? <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	970	1149	
==>+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s*(.*? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	747	875	
==>thod param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	747	875	
==>thod param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data. <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2100	2234	
==>{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14468	14582	
==>) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14468	14582	
==>) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $chann <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3259	3414	
==>tures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3259	3414	
==>tures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	539	666	
==>)" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $stri <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	539	666	
==>)" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $stri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	350	465	
==>number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1208	1323	
==>number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6031	6149	
==>here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/a <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6421	6539	
==>here is necessary to destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9228	9328	
==>l value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `size( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9228	9328	
==>l value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open").

- `size( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3905	4016	
==>}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array com <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3905	4016	
==>}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23053	23138	
==>@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	45	139	
==>publicly exported methods
has Code--Perl6 %.methods;

# private use methods
has Code--Perl6 %:m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	3	119	
==>erl 6 Rule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	3	119	
==>erl 6 Rule benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	81	188	
==>b($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperato <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	81	188	
==>b($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperato <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39394	39491	
==>e range checking (C<[a-z]>) requires knowledge of the characters
on the lower and upper side of th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6867	6974	
==>le documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



Th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6633	6735	
==>le documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

Th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9150	9324	
==>rence;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12627	12801	
==>rence;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5801	5906	
==>his does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5801	5906	
==>his does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2321	2413	
==>s::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2321	2413	
==>s::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->cod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	80	176	
==>rl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package list;

use strict;
use warni <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6448	6563	
==>' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdt <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6448	6563	
==>' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdt <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2090	2191	
==>uperset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub * <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2090	2191	
==>uperset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub * <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2193	2296	
==>plement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2193	2296	
==>plement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	714	830	
==>tate that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthes <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	714	830	
==>tate that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	231	331	
==>gs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	231	331	
==>gs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6354	6453	
==>hod capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6354	6453	
==>hod capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &continue <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	423	551	
==>s:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	423	551	
==>s:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3238	3334	
==>r.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3124	3217	
==>r.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compile <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	345	466	
==>sing 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	345	466	
==>sing 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	894	1000	
==>s builtin is primitive {
    Perl6::Internals::exit $status;
}

sub Perl6::Internals::eval_parrot (Str $cod <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	783	900	
==>n's event handler won't be executed until @:events[0] =:= the
  # callback we enqueue().
  method post (POE::Session $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5037	5138	
==>mple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6162	6268	
==>cher( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low leve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5951	6054	
==>cher( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low leve <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2930	3043	
==>s:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2930	3043	
==>s:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21341	21461	
==>1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17762	17882	
==>1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12702	12873	
==>ar} 
               ) 
               && exists $n->{exp1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3354	3453	
==>ee `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3354	3453	
==>ee `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4175	4302	
==>y $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimize <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4029	4153	
==>y $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimize <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5616	5775	
==>rt};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5616	5775	
==>rt};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4747	4875	
==>turing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4940	5068	
==>turing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	121	228	
==>l elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New me <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	121	228	
==>l elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13589	13700	
==>se as suggested by HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13589	13700	
==>se as suggested by HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	695	812	
==>non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	485	594	
==>SourceCharacter> isnt called for all characters anyway,
#     so no great loss.
#
#  Other notes:
#   * <ws> i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9887	10016	
==>$span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9887	10016	
==>$span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $sp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5846	5947	
==>SIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::U <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5846	5947	
==>SIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::U <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17405	17541	
==>($backlink);
                my $t = HTML::Element->new('sup');
                $t->push_content('T');
                $backlink->push_co <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	949	1048	
==>c::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are differe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	949	1048	
==>c::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are differe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2985	3104	
==>ernal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will stri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2985	3104	
==>ernal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the objects will stri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17329	17460	
==>_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17329	17460	
==>_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9360	9451	
==>> class encapsulates HTTP-style message headers.
The headers consist of attribute-value pair <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9360	9451	
==>> class encapsulates HTTP-style message headers.
The headers consist of attribute-value pair <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1639	1747	
==>tch.match> to fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1639	1747	
==>tch.match> to fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6276	6398	
==>=> chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6276	6398	
==>=> chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7502	7628	
==>->add_files($file1, $file2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16702	16828	
==>um::do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10920	11020	
==>method($namestr".
		 "=> ::make_${k}(do{my \$__f".
		 "= $code_val; sub{\$__f->(\@_)}})));");
    } e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6176	6292	
==>l: ", Dumper( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1887	1998	
==>iteral_value {
	my $self = shift;
	my $node = shift;
	
	my $t = $self->t($node);

	if ($t eq "IV") {
		return $n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3229	3378	
==>n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3693	3842	
==>n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1250	1343	
==>s document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1250	1343	
==>s document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This docume <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7268	7366	
==>-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7268	7366	
==>-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2643	2767	
==>ir'" ), return;
#     }
# 
#     my $cwd = JIB::Utils->_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15725	15841	
==>pos = pos
    .return (mob)
.end
    
.sub "parse_error"
    .param pmc mob
    .param int pos
    .param string mess <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9580	9717	
==>}
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9580	9717	
==>}
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1058	1193	
==>+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14904	15030	
==>:__object__ );

  sub new {
    my ($class, $rx, $on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => <==
2	/Users/nnunley/pugs/util/combine_tests.pl	272	375	
==>V));
#
# Annotates the last test tree with the earlier one's
# and returns the modified reference.
# Not <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1512	1625	
==>w_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1512	1625	
==>w_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1242	1376	
==>+>',
    );
    __PACKAGE__->add_rule(
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6628	6726	
==>does
not so much define a grammar as let each matched node state what it
expects to match next, but <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11558	11680	
==>ort.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11558	11680	
==>ort.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	536	659	
==>if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	536	659	
==>if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2018	2193	
==>ew( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2018	2193	
==>ew( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11705	11825	
==>f<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11705	11825	
==>f<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1241	1354	
==>';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{% <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1241	1354	
==>';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{% <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	95	194	
==>::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	95	194	
==>::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    < <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1267	1517	
==>ant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1394	1644	
==>ant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1480	1586	
==>o, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Remo <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1480	1586	
==>o, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Remo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6038	6141	
==>osed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6038	6141	
==>osed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5822	5931	
==>n = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5822	5931	
==>n = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2063	2173	
==>ur &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2063	2173	
==>ur &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	418	543	
==>ODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	418	543	
==>ODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1799	1908	
==>ers);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1799	1908	
==>ers);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10785	10881	
==>rily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be extende <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10785	10881	
==>rily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be extende <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4168	4262	
==>---------------------------------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4191	4285	
==>----------------------
## BOOTSTRAPPING Class/Object COMPLETE
## ------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	231	334	
==>p>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<- <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	231	334	
==>p>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3556	3660	
==>iler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3556	3660	
==>iler::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1053	1158	
==>oro definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1053	1158	
==>oro definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1731	1827	
==>_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Ii <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1731	1827	
==>_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Ii <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	498	605	
==>et_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	498	605	
==>et_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	653	747	
==>n.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This li <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2923	3032	
==>0, Str :$label)
        returns Control::Caller is primitive is builtin is safe {
    my @caller = Pugs::Inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35632	35739	
==>ll take the last one off
and keep it normal, but the others we will make to be look-aheads.  To
make an obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14319	14415	
==>eq "assertion" and $tree->[-1]->type eq "eval") or
        ($tree->[-1]->{zerolen} and !($self->{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28320	28415	
==>ody.

=item C<size () returns Int>

This method returns a count of this Relation::Example's memb <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	86	217	
==>ub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => ' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	86	217	
==>ub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19904	20108	
==>ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20183	20387	
==>ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14885	15039	
==>r" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14879	15033	
==>r" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7941	8048	
==>, ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( [ ruleop::null() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7671	7774	
==>, ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( [ ruleop::null() <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3321	3429	
==>le21', $file21, "12th line\n\n\n\n\n\n\n\n\n\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24229	24349	
==>ding and
will support multiple languages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24229	24349	
==>ding and
will support multiple languages or locales simultaneously at run time.

=head1 INTERFACE

The interface of Local <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1935	2039	
==>...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_fil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1935	2039	
==>...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_fil <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1181	1276	
==>lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($pat <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1181	1276	
==>lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($pat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	88	200	
==>niker;
use Scalar::Util ();

sub reduce {
    my $self = shift;
    my $node = shift;

	return $node unless $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3859	3960	
==>@stack = @{ $self->{tree} }, return unless $next;
    $next->walk(\@stack, $d);
    return wantarray ? <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2199	2344	
==>n rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2199	2344	
==>n rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	678	828	
==>ch },
        } }";
}

sub null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "sub { my \@match; my \$s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19369	19461	
==>S) is that data definition statements are structured as
standard data manipulation statements <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19369	19461	
==>S) is that data definition statements are structured as
standard data manipulation statements <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20130	20254	
==>JS::Internals::use_perl5_module_imp;


# In src/perl6/Prelude.pm, prefix:<-M> doesn't work. :(
multi prefix_M ($file) is buil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6181	6309	
==>}xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignore <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7179	7307	
==>}xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignore <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7628	7765	
==>> 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7628	7765	
==>> 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2806	2915	
==>T::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub :: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2806	2915	
==>T::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub :: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5677	5860	
==>+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5689	5872	
==>+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #prin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16923	17025	
==>ment can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16923	17025	
==>ment can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8922	9018	
==>ub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2747	2843	
==>ub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8331	8429	
==>false, and will
return false if called again.

=head2 Building the Tree

If you don't care to inter <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18271	18369	
==>s.

First, the source module is preprocessed to hide heredocs, since the content
inside heredocs ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18271	18369	
==>s.

First, the source module is preprocessed to hide heredocs, since the content
inside heredocs ca <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2293	2417	
==>ow the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can may <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2293	2417	
==>ow the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can may <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4020	4114	
==>-1 ),
        complement_previous => $self._get_union( $self.complement_previous, $set.compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4020	4114	
==>-1 ),
        complement_previous => $self._get_union( $self.complement_previous, $set.compleme <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	356	476	
==>h_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting informa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	356	476	
==>h_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting informa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2003	2112	
==>$class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2003	2112	
==>$class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12878	12976	
==>icode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12878	12976	
==>icode character.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	522	664	
==>elf) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	522	664	
==>elf) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3202	3324	
==>o!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10) <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3202	3324	
==>o!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7628	7744	
==>nks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7628	7744	
==>nks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @bas <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1290	1385	
==>ontext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1290	1385	
==>ontext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7909	7997	
==>.
p5_modifier_scope(M,group_modify(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21767	21892	
==>h @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18188	18313	
==>h @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4503	4615	
==>.. , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4349	4457	
==>.. , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $com <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3016	3172	
==>t(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $self->get_test_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8240	8353	
==>1, -1);
      my @oct = split /;/, $o;

      $S->warn(0, "Illegal octal digit '%s' ignored", $1) if $o =~ /([^0-7 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	864	1183	
==>{
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	864	1183	
==>{
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	954	1094	
==>for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	954	1094	
==>for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10106	10227	
==>_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, 1
    if $S0 == '.' goto quant_closure_end
    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1778	1871	
==>");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2906	3016	
==>ircumfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTCIRCUMFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2067	2173	
==>::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2067	2173	
==>::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	283	388	
==>y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix: <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	283	388	
==>y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4613	4736	
==>AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4613	4736	
==>AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dump <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6523	6627	
==>ype';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'x <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6523	6627	
==>ype';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13861	13974	
==>ICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13861	13974	
==>ICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8765	8887	
==>index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8753	8875	
==>index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14441	14547	
==>0000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Crea <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14441	14547	
==>0000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Crea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17136	17261	
==>ode_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17136	17261	
==>ode_type  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9208	9320	
==>the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9208	9320	
==>the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13360	13465	
==>a $initrd_mnt/dev/console by entering the following command
      as root:
      # mknod $initrd_mnt/dev/c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35470	35606	
==>oup

Family: group

Types: group (C<(?:>, C<(?i-s:>)

Data: array reference of any number of objects

Ender: I<tail>

=head2 open

Family <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21616	21704	
==>>data[2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define check <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10386	10493	
==>intext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plai <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10386	10493	
==>intext, *%options) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5792	5920	
==>const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5792	5920	
==>const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	195	322	
==>n;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUt <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	195	322	
==>n;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4100	4249	
==>tch, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4100	4249	
==>tch, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5509	5636	
==>an = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::Fal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5509	5636	
==>an = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::Fal <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12883	12986	
==>name=id>">&raquo;</span></td>
	    <td><a style="text-decoration: none" href="<tmpl_var name=link>" titl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	124	228	
==>is making the
# "source" property of the object fallback to "content"
method source($self:) {
    $.sourc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	124	228	
==>is making the
# "source" property of the object fallback to "content"
method source($self:) {
    $.sourc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	814	943	
==>en',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	814	943	
==>en',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authe <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1179	1357	
==>= 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$me <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1179	1357	
==>= 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$me <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	700	804	
==>y { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUT <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	700	804	
==>y { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19964	20071	
==>r various compilers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most speci <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19964	20071	
==>r various compilers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most speci <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2299	2418	
==>urrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XX <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2299	2418	
==>urrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XX <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	463	579	
==>ly ...
  $maketoken := { [ $^tok_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1089	1218	
==>ture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1045	1168	
==>ture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	647	750	
==>tructure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	615	711	
==>tructure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34185	34280	
==>ck

This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34185	34280	
==>ck

This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8659	8745	
==>-number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8659	8745	
==>-number versions of Rosetta::Model::Document
("Document") and Rosetta::Model::Node ("No <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15392	15603	
==>/^TODO$/i ? 'todo' :
                              $type =~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	255	395	
==>tput' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$.output'       => $params{'$.outp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2305	2404	
==>y do not have objects or fully functioning modules in 
Pugs, this port does it's best to work with t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2305	2404	
==>y do not have objects or fully functioning modules in 
Pugs, this port does it's best to work with t <==
2	/Users/nnunley/pugs/util/package-osx.pl	3582	3682	
==>/usr/local/man/man3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        /usr/local/man/man3/Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22850	22949	
==>string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27402	27501	
==>string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1540	1649	
==>$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[3], exp1 => \$_[1], } }", 
    infix_left <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	772	917	
==>ce);
        #warn Dumper $sexpr;
        return $self->evaluate($sexpr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        my ($self, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7290	7383	
==>sed as the argument to the constructor.

=item $parser->regex($regex)

Clears the parser's mem <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10425	10561	
==>);
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$chk\n";
    my $keys = join(" ", @{$info->{'fields'}});

    my $cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1950	2125	
==>}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1950	2125	
==>}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1	106	
==>se v6;

use Span;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1	106	
==>se v6;

use Span;
# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infini <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7840	7968	
==>TATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  my $command_line = $self->_command_line();

Returns the full command line t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2680	2789	
==>= "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $he <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2680	2789	
==>= "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $he <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15829	15939	
==>s `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15887	15997	
==>s `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	713	813	
==>ethod set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	713	813	
==>ethod set_height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4150	4284	
==>_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub}{bareword <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1249	1364	
==>s ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $value.($next, $u), tail($input);
  };
}

## Chapter 8 section 3.2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2384	2559	
==>p2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
                          exp5 => $_[8],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8828	8928	
==>::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = und <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8886	8986	
==>::num_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = und <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15331	15449	
==>noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  my $pos = $X: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14800	14919	
==>anslate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14800	14919	
==>anslate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'F <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1965	2067	
==>ynopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of u <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1965	2067	
==>ynopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1242	1393	
==>ist_right: exp                 { $out= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    [' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3874	3980	
==>t STDERR Data::Dumper::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7248	7351	
==>ject(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1073	1176	
==>ject(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4716	4857	
==>str($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4716	4857	
==>str($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	764	875	
==>s);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	764	875	
==>s);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2488	2628	
==>add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_log <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2488	2628	
==>add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_log <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	48	148	
==>cale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC_CTYPE,"de_DE.utf8");

sub slurp {
    my ($file <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10970	11055	
==>ODE\s+(\S+)\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2534	2683	
==>cale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input er <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2534	2683	
==>cale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input er <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6351	6450	
==>bject>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6351	6450	
==>bject>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20145	20240	
==>ill croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20145	20240	
==>ill croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as autho <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	948	1065	
==>lf = shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might allow adding globals
    # ought to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1134	1234	
==>1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=ite <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1187	1287	
==>1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32109	32209	
==>ains all of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplica <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36659	36759	
==>ains all of the tuples that are in either or both of the
invocant Relation and C<$other>; any duplica <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2479	2600	
==>";

    bless(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shift;
    my $obj = $self->load($me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10345	10441	
==>rn { isInvocant=>$isInvocant, isOptional=>$isOptional, isNamed=>$isNamed, isLValue=>$isLValue, is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18414	18519	
==>n
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18414	18519	
==>n
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18228	18332	
==>he HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18228	18332	
==>he HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	717	809	
==>If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	717	809	
==>If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @res <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1013	1183	
==>=> 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	874	1001	
==>=> 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        die <<' <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	174	314	
==>t /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, multiple documents not suppo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8957	9051	
==>rl.orgE<gt>.

=head1 SEE ALSO

Summary of Perl 6 Operators: L<http://dev.perl.org/perl6/doc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2096	2202	
==>density => $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2096	2202	
==>density => $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5074	5196	
==>od' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_class($self)->add_method($la <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22985	23076	
==>ally third-party) classes, which at the very least
must determine the storage representation <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1815	1936	
==>$.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1815	1936	
==>$.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	637	736	
==>ill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	637	736	
==>ill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23551	23654	
==>rule SourceElements :words {  # see clause 14
      <SourceElement>
    | <SourceElements> <SourceElemen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1434	1550	
==>ontext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.u <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1434	1550	
==>ontext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21688	21808	
==><!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18109	18229	
==><!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6044	6145	
==>ant> gets implemented. Currently, the headers
are returned as one long string.

=item List Context

Al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6044	6145	
==>ant> gets implemented. Currently, the headers
are returned as one long string.

=item List Context

Al <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15397	15522	
==>=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $div = HTML::Element->new('div', class=>$tag, name <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2673	2785	
==>eys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    ExtUtils::MakeM <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20958	21058	
==>L:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
will a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20958	21058	
==>L:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
will a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11663	11805	
==>ck} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) . ' ' . 
            $n->{op1}{op} . ' ' . "sub " . _emit( $n->{exp2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34143	34242	
==>>.  We can expand this
to any number of branches: C</a\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	812	912	
==>infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operation <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	812	912	
==>infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operation <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2508	2612	
==>n . $c . $';
    }
}




conv_package {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	493	614	
==>pare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	493	614	
==>pare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1468	1568	
==>relude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1675	1775	
==>relude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1162	1274	
==>t
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<obje <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1162	1274	
==>t
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<obje <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2640	2749	
==>cludes providing a default fprime in the example.  For fprime, the
example goes on step further and Curries ap <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23561	23659	
==>e>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23561	23659	
==>e>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3489	3602	
==>ontext;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3489	3602	
==>ontext;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13171	13267	
==>ST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13171	13267	
==>ST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16744	16860	
==>ect, or a scalar value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16744	16860	
==>ect, or a scalar value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	347	453	
==>- use (??{})';
use constant RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated or not {}-balanced';
u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3936	4156	
==>n $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3936	4156	
==>n $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2674	2871	
==>nd;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2674	2871	
==>nd;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :dens <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4807	4952	
==>$ok          = _('$.passed') ? 'ok' : 'not ok';
            my $description = "# TODO " . _('$.description');
            return join(' ', $ok, _( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	632	735	
==>et to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	156	293	
==>ms;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	156	293	
==>ms;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4569	4701	
==>) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4569	4701	
==>) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	53	152	
==>'FORCE';
# please help fill in this file
# a method of autogenrating bindings from vtable.h is NEEDE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5499	5610	
==>eturn $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method fr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5499	5610	
==>eturn $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method fr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3815	3938	
==>raise TypeError;
    } else {
        die "bug - invalid hint $hint";
    }
}

# 8.7 The Reference Type
class JSX::InternalV <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1968	2073	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2026	2131	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	569	665	
==>sion);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('grammar' => s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	569	665	
==>sion);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('grammar' => s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13486	13607	
==>$max, $extra) = $line =~ /^1\.\.(\d+)(.*)/ ) {
        $self->{max}  = $max;
        assert( $self->{max} >= 0,  'Max # of <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2463	2556	
==>lly) perlish text.

=head1 SYNOPSIS

	use Blondie::Emitter::Pretty;

	print Blondie::Emitter:: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8252	8387	
==><sigspace> {      
            $pre ~= ":s";
            %mods.delete("s"); # avoid haskell handling it.
            %mods.delete("sigsp <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2490	2610	
==>::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2490	2610	
==>::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$por <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7914	8023	
==>S

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 modu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7914	8023	
==>S

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 modu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1632	1726	
==>drey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1632	1726	
==>drey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17885	17981	
==>odes in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17885	17981	
==>odes in a format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9123	9239	
==>eded
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2158	2274	
==>eded
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKING: <==
2	/Users/nnunley/pugs/util/importgraph.pl	1673	1773	
==>ules{$mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_cluster { setup_mod( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19473	19563	
==>chref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - excess cau <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9930	10115	
==>n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@$grammar1:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9095	9269	
==>n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6225	6315	
==>/"AUTHOR"> know.

Documentation has been added and moved around. See
L<Regexp::Parser::Obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23285	23383	
==>=E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23285	23383	
==>=E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(u <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	635	1060	
==>58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	635	1060	
==>58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33436	33536	
==>program or first library should
appear first in the array.  Each Set Name can be any defined and non- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33436	33536	
==>program or first library should
appear first in the array.  Each Set Name can be any defined and non- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5468	5611	
==>resolve' => $_resolve,
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	818	917	
==>rn $subexp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http://mail.python.org/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7600	7727	
==>athchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7600	7727	
==>athchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1164	1313	
==>anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3314	3453	
==>anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	808	910	
==>his distribution.
Please use the 'name' function in Makefile.PL.
END

    $name =~ s/-/::/g;
    $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	218	321	
==>l5;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pug <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12428	12526	
==>cs if it is not present.

Risks:

  Trying to properly do (non-leaking) memory management, via reve <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1657	1746	
==>ass Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1657	1746	
==>ass Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18773	18874	
==>ored in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious that p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18773	18874	
==>ored in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious that p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4555	4652	
==>e match string, but may be arbitrary
objects returned from the rule using a C<return> clause.

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4555	4652	
==>e match string, but may be arbitrary
objects returned from the rule using a C<return> clause.

=he <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	335	433	
==>It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	335	433	
==>It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	852	998	
==>se {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	852	998	
==>se {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $pro <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1503	1623	
==>start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1503	1623	
==>start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $spa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6398	6495	
==>nt handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIO <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6398	6495	
==>nt handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIO <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3201	3406	
==>y, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start+ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3201	3406	
==>y, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start+ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2313	2418	
==>od is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2313	2418	
==>od is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4741	4870	
==>> '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4741	4870	
==>> '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	515	609	
==>request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	515	609	
==>request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is expo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2933	3087	
==>h: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2837	2987	
==>h: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15321	15424	
==>es into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::dec <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15321	15424	
==>es into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::dec <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6289	6401	
==>all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6289	6401	
==>all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9288	9414	
==>"\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9276	9402	
==>"\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	998	1118	
==>_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must be a block";
    while ($cond <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1231	1351	
==>_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must be a block";
    while ($cond <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1789	1910	
==>nick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1789	1910	
==>nick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	823	945	
==>ScalarSubType))
        or (.key eq 'Tuple'|'Relation'
            and .value.does(Relation::Heading|Relation::LaxAttrList) <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1370	1474	
==>6.";
    my $path = File::Spec->catdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	582	683	
==>wo) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	582	683	
==>wo) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, S <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3203	3333	
==>y ($fname) = @_;
#    print "processing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fname";

#    if ($file =~ s/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5594	5711	
==>instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8367	8460	
==>y("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8425	8518	
==>y("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13443	13549	
==>ject is intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13443	13549	
==>ject is intersected to a Recurrence object, the result is a discrete span:

    $month = Span.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10222	10320	
==>r_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10280	10378	
==>r_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tests which are
ex <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	80	177	
==>e strict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_TERM => 1;
u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8670	8801	
==>us"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(89 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8670	8801	
==>us"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(89 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2824	2955	
==>size = shift;
                push @{$self->get_value('@:slots')}, mk_containers((undef) x ($size));
            },

            '_e <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1609	1714	
==>n docs, and format those as HTML, linking to 
    the links, and inserting a names where needed.

   Examp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19136	19229	
==>th little
trouble.  Likewise, emulation layers for any other programming language can
be suppo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19136	19229	
==>th little
trouble.  Likewise, emulation layers for any other programming language can
be suppo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11794	11893	
==>written with a flag
  value, so a regexp* thus created can be recognized, and regexp*s
  created wit <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3185	3283	
==>od

=head1 NAME

Blondie::Prelude::Math - Math related builtins

=head1 SYNOPSIS

    use Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1809	1908	
==>Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1809	1908	
==>Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	549	663	
==>, "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $pl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	285	395	
==>-MetaModel which adds explicit Eigenclasses
## to all Classes created. See Method_Dispatch_w_EigenClasses.jpg i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19638	19738	
==>n => ide("x"),
		param => val(v => "foo", t => type::operator::nullary->new("str")),
	),
);

# we can <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16082	16235	
==>n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16076	16229	
==>n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4043	4172	
==>andler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4043	4172	
==>andler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~nor <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4509	4622	
==>ex[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4509	4622	
==>ex[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4172	4280	
==>also be the string "last", in which case the
object returned represents the last day for the specified month. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4172	4280	
==>also be the string "last", in which case the
object returned represents the last day for the specified month. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1381	1585	
==>t: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) { <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1381	1585	
==>t: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9490	9597	
==>my $is_mswin    = $^O eq 'MSWin32';
my $is_netware  = $^O eq 'NetWare';
my $is_macos    = $^O eq 'MacOS';
my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3543	3650	
==>}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 << <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3727	3834	
==>}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 << <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7996	8095	
==>ther the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7996	8095	
==>ther the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_ex <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4907	4996	
==>ng/winbuild.html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html
.
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8242	8355	
==>mmar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2067	2180	
==>mmar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14456	14555	
==>&"');

This routine is exported by default.

=item encode_entities_numeric( $string )

=item encode_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14456	14555	
==>&"');

This routine is exported by default.

=item encode_entities_numeric( $string )

=item encode_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13671	13767	
==>Practice" order.

In scalar context return the number of distinct field names.

=item $h.scan( \& <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13671	13767	
==>Practice" order.

In scalar context return the number of distinct field names.

=item $h.scan( \& <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2588	2821	
==>("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifie <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2588	2821	
==>("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifie <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1325	1423	
==>ed by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1325	1423	
==>ed by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	145	257	
==>ey($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	145	257	
==>ey($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print ciphe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7862	7958	
==>ation_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorizatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7862	7958	
==>ation_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method proxy_authorizatio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8266	8370	
==>ns the number of items inserted.

It is not fatal to insert an item which is already inserted.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8266	8370	
==>ns the number of items inserted.

It is not fatal to insert an item which is already inserted.

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2699	2823	
==>$value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2699	2823	
==>$value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1192	1312	
==>self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1192	1312	
==>self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2950	3095	
==>e from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3167	3312	
==>e from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9296	9412	
==>s, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    min = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8244	8341	
==>$span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8244	8341	
==>$span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3960	4091	
==>n my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3960	4091	
==>n my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5678	5776	
==>lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<ht <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5678	5776	
==>lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<ht <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2102	2231	
==>e ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2102	2231	
==>e ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5622	5725	
==>tor ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5622	5725	
==>tor ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25029	25139	
==>a to be used or
displayed by your program.  The Message class is pure and deterministic,
such that all of its c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25029	25139	
==>a to be used or
displayed by your program.  The Message class is pure and deterministic,
such that all of its c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2869	2993	
==>gnature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule pa <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2869	2993	
==>gnature> \]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule pa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1132	1228	
==>ection for details.  (In particular, 
note that the serious insecurities plaguing WEP were caused <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1132	1228	
==>ection for details.  (In particular, 
note that the serious insecurities plaguing WEP were caused <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	222	316	
==>::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a J <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	280	374	
==>::num_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a J <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	223	344	
==>ub-types, default values,
# etc.
enum ExpType «Noop App Syn Cxt Pos Pad Sym Stmts Prim Val Var NonTerm»;

has ExpType $. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	58	166	
==>se warnings;

use Blondie::ADTs;
use Blondie::Nodes;


sub new {
	my $class = shift;
	bless { }, $class;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16329	16459	
==>$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      retu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16329	16459	
==>$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9648	9871	
==>s}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provid <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11125	11348	
==>s}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provid <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	686	838	
==>}
sub to_num { num->new((shift) + 0) }

# methods

sub name { str->new((shift)->{name}) }
sub type { str->new((shift)->{type}) }

sub equal_to {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4393	4509	
==>ule rxassertion:<*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... }    # define a new met <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2571	2681	
==>lookup('precompile_modules') }),
                '-p', $thispugs, '--output', $ppc_yml);
    }
}

sub gzip_file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10355	10494	
==>atch];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10349	10488	
==>atch];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $pos <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1703	1823	
==>sh",     #  └── "" ──┘
        array => "Array", iarray => "Array", #  └── "" ──┘
      );

our % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15698	15794	
==>ces a human-readable explanation of the execution of a regex.  Will
be able to produce HTML outpu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10508	10623	
==>ble::free->new;
		my $l = type::operator::nary->new(list => $a);
		type::operator::arrow->new( $l, $l );
	},
	# a -> <==
2	/Users/nnunley/pugs/util/func_refact.pl	2194	2315	
==>}

sub candidates {
    my %cands;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "trying: $cand\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4461	4574	
==>" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4461	4574	
==>" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $nam <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1945	2045	
==>lue) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard compari <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1945	2045	
==>lue) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard compari <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1090	1188	
==>serious insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the serio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1090	1188	
==>serious insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the serio <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1242	1352	
==>king soon,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is expressed as
#     <no_L <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34141	34235	
==>ge

Types: anyof_range (C<X-Y>)

Data: array reference of lower and upper bounds, both I<anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6780	6904	
==>::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6780	6904	
==>::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16497	16615	
==>name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15553	15663	
==>name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3428	3545	
==>',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3428	3545	
==>',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10457	10575	
==>defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10457	10575	
==>defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.key <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1382	1486	
==>win bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1303	1403	
==>win bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4114	4242	
==>, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it will be assi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4114	4242	
==>, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it will be assi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1431	1550	
==>{ Blondie::TypeSafe::Type::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1225	1378	
==>nless $struct;

    for my $entry ( @$struct ) {
        $str .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif <==
2	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	23	131	
==>e returns {
  has ReturnType $.returns;
  multi sub trait_verb:<returns>($container; ReturnType $arg) {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12600	12702	
==>rrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12600	12702	
==>rrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- `start()`

R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4465	4581	
==>_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4465	4581	
==>_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3358	3488	
==>s = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3358	3488	
==>s = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	46	148	
==>ct,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L<"http: <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	92	194	
==>ct, see thread "What do use and require evaluate to?" on p6l
# started by Ingo Blechschmidt,
# L<"http: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34568	34665	
==>Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39118	39215	
==>Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
heading of th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1727	1830	
==>is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9254	9378	
==>iner (avoid quotes) ]
#   progfile => perl script
#   stdin    => string to feed the stdin
#   stderr   => redirect stderr to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31119	31222	
==>ut any delimiter.  This means,
for example, that the full module names in a set could be either
[Foo::L: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31119	31222	
==>ut any delimiter.  This means,
for example, that the full module names in a set could be either
[Foo::L: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	456	602	
==>ntro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <su <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	456	602	
==>ntro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <su <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	518	617	
==>uest_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	518	617	
==>uest_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CO <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	87	174	
==>e Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5::X1::Prelude;

sub initi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2442	2552	
==>.union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2442	2552	
==>.union( $self );
    return $tmp.stringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $s <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1332	1432	
==>efore installation. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1172	1272	
==>efore installation. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	289	397	
==>ement.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	289	397	
==>ement.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2189	2287	
==>s.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2189	2287	
==>s.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few byt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2435	2557	
==>p::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2628	2750	
==>p::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14686	14783	
==>of C<keys> is not longer supported. Use the C<.buckets>
property instead.

=back


=head2 Str

Gen <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22918	23006	
==>rict 'vars';
package Perl6::Run::OnPerl5::X1::Api::Exception;
@ISA=qw(Error);
package Per <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1839	1947	
==>) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1839	1947	
==>) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5567	5696	
==>sh(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5567	5696	
==>sh(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@li <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	718	826	
==>lf->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$key = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8625	8723	
==>ree has not been made yet.

=head2 Setting and Parsing Together

You can also use parse() instead o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15367	15506	
==>class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15361	15500	
==>class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19289	19409	
==>($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15710	15830	
==>($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1096	1210	
==>t {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    } <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1096	1210	
==>t {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    } <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1289	1440	
==>= 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1289	1440	
==>= 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15977	16082	
==>hat use these compilation modules get compiled into some
altered form the first time they are run. The res <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15977	16082	
==>hat use these compilation modules get compiled into some
altered form the first time they are run. The res <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4167	4303	
==>y $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a qu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4167	4303	
==>y $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a qu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13714	13847	
==>ill be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will pr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13714	13847	
==>ill be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will pr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10876	11027	
==>test{todo};  
            
            ## XXX - Begin Pugs addition
            # this addition prints out the differnt TODO types
            foreach m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5132	5254	
==>re => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5325	5447	
==>re => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1526	1640	
==>'\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' => sub {
    my ($S, $cc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15263	15359	
==>r $n (eg $1 => n=1), 1<=n<=nparens,
startp[n] is the starting offset in subbeg,
endp[n] is the of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	522	660	
==>ompile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	522	660	
==>ompile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7085	7190	
==>ize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7085	7190	
==>ize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $ev <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9886	9989	
==>ct, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string rep <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9886	9989	
==>ct, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string rep <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4841	4943	
==>t.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4841	4943	
==>t.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	327	438	
==>aram->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	327	438	
==>aram->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6952	7064	
==>s until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL han <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6952	7064	
==>s until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL han <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1537	1661	
==>le: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'm <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1537	1661	
==>le: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'm <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	861	978	
==>.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./asserti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	861	978	
==>.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./asserti <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12618	12707	
==>rue}.

p6_named_character(char(C)) --> "\\", ("c","C"), [Open], brackets(Open,Close),
  p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1024	1150	
==>( $x->("abc") );
}

{
my $r = 
    concat( 
        alternation( constant('a'), constant('b') ),
        capture( '0', c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	52	148	
==>le::Install::Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.61';

use strict;

sub WriteA <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6755	6873	
==>RY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  if ( $$token{eqiv} > $$top{eqiv} )
  {
    goto <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4047	4152	
==>, "]";
	join "", "[", ${$self->{how}}, ($self->{neg} ? '^' : ''),
	     $self->{type}, ${$self->{how}}, "] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3002	3178	
==>ut
        my $new_alt;
        {   my $wanted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all pac <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17117	17240	
==>0,E0,E0).
rm(star_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1793	1892	
==>m * L<Pugs::Compiler::RegexPerl5> wraps Perl 5 Regexes to return a B<Match> object.

* Runtime Class <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	1	95	
==>package Date::Format::ISO8601;

# RULES GURUS APPLY HERE
our $iso8601_re is export = rx:perl5:i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	735	839	
==>y $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
	my $p5 = p6_wrap_code_with_package( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10851	11005	
==>:immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11130	11284	
==>:immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1627	1718	
==>Blondie::Nodes> and some
more objects.

They provide stringification, fmapping and value enc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9068	9164	
==>t

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9068	9164	
==>t

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3643	3747	
==>diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3643	3747	
==>diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7512	7660	
==>[
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_fie <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7512	7660	
==>[
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_fie <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22932	23030	
==>tains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and value <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27484	27582	
==>tains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and value <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1032	1146	
==>m "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subse <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1032	1146	
==>m "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * subse <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15607	15766	
==>s of load sectors
      "-boot-info-table",                  # Patch boot image with info table
      "-o" => $iso,                        # Set output file nam <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11155	11254	
==>ool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11155	11254	
==>ool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25714	25817	
==>lows you to link
Rosetta with non-free software components.

Any versions of Rosetta that you modify and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25714	25817	
==>lows you to link
Rosetta with non-free software components.

Any versions of Rosetta that you modify and <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15341	15451	
==>eue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15341	15451	
==>eue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3353	3454	
==>rough the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3353	3454	
==>rough the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	771	879	
==>A;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't act <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	771	879	
==>A;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't act <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9285	9411	
==>g encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decryptin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9285	9411	
==>g encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decryptin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1925	2025	
==>nteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder::Output-0.2.1;
  
  h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9462	9570	
==>led fields, which
may be repeated, and which are printed in a particular order.  The
field names are cases in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9462	9570	
==>led fields, which
may be repeated, and which are printed in a particular order.  The
field names are cases in <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2265	2388	
==>ator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2265	2388	
==>ator is there, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9636	9807	
==>"<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9636	9807	
==>"<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        # c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15514	15629	
==>!! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15514	15629	
==>!! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @qu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26330	26426	
==>e that while the Hash itself is copied on input and output, any
variable values which are referen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26330	26426	
==>e that while the Hash itself is copied on input and output, any
variable values which are referen <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	679	900	
==>art_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	679	900	
==>art_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4555	4697	
==>e "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4695	4837	
==>e "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39969	40072	
==>e, or (at your option) any later version.  You
should have received a copy of the LGPL as part of the Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39969	40072	
==>e, or (at your option) any later version.  You
should have received a copy of the LGPL as part of the Lo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7542	7740	
==>e{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newna <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7542	7740	
==>e{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newna <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1595	1716	
==>thod delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1595	1716	
==>thod delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    metho <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	424	556	
==>precompile_modules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub impo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	304	401	
==>tions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	304	401	
==>tions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Void is e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6444	6559	
==>);
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6444	6559	
==>);
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $arra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5328	5432	
==>rface root, whose attributes will hold all of
    # the other data structures used by the Rosetta framewo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5328	5432	
==>rface root, whose attributes will hold all of
    # the other data structures used by the Rosetta framewo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4495	4605	
==>'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4341	4447	
==>'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1381	1475	
==>$self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1381	1475	
==>$self: $item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3365	3498	
==>name, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3365	3498	
==>name, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15669	15792	
==>min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10525	10648	
==>min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->erro <==
2	/Users/nnunley/pugs/misc/S29_round.pl	826	943	
==>nt multi Num::round_half_down_symmetric ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20385	20481	
==>for stack-type
nodes has been abstracted to the ender() method of the node.

The init() method ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15180	15352	
==>"<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15174	15346	
==>"<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4268	4375	
==>me), "\\N{$name}");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2118	2226	
==>nt($list)";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1021	1113	
==>ut the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1021	1113	
==>ut the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, sub { $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20793	20904	
==>sing keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20793	20904	
==>sing keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30958	31053	
==>ical to the original, in which case
this method returns the identity-one Relation or the invocan <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35508	35603	
==>ical to the original, in which case
this method returns the identity-one Relation or the invocan <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3297	3398	
==>$file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3297	3398	
==>$file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22095	22217	
==>agous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can look like a table, where ea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26647	26769	
==>agous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can look like a table, where ea <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7155	7400	
==>subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7155	7400	
==>subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12871	12990	
==>numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numeric     => sub { "". ${$_[0]} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16052	16212	
==>$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16046	16206	
==>$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4253	4371	
==>erenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(GetPropertyName($V));
    return $Result4;
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	702	809	
==>y $out = join("\n\n", map {
		my $name = $self->{names}{$_};

		$self->{current_node} = $_;
		"$name = " . $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40928	41036	
==>y of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40928	41036	
==>y of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23401	23494	
==>C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23401	23494	
==>C component or otherwise have
non-trivial external dependencies; Locale::KeyedText has no non- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7692	7832	
==>}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7692	7832	
==>}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental! <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2657	2755	
==>corporated into the match.  XXX it is not clear
that this is the optimal interface for this combina <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2657	2755	
==>corporated into the match.  XXX it is not clear
that this is the optimal interface for this combina <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	647	780	
==>30,       # Allow a new smoke all 30s
  BURST       => 5,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2776	2870	
==>e test
script(s). The default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4382	4499	
==>($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      current_pragma_value or caller <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while3.pl	29	146	
==>in Perl 5
use strict;
my $i = 1;
do { # keine echte Schleife...
	print "$i\n"; $i++;
	# last if $i==3; # ... würde ni <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26921	27015	
==>ove> utility.

=item C<HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harness w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8025	8153	
==>t, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8025	8153	
==>t, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !define <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2109	2250	
==>my $self = shift;
    return num->new($#{$self});
}

sub is_empty {
    my $self = shift;
    @{$self} ? bit->new(0) : bit->new(1);
}

sub joi <==
2	/Users/nnunley/pugs/util/package-osx.pl	2168	2266	
==>r/local/lib/perl5/site_perl/PIL /Library/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10736	10900	
==>or $rw);

        my $mode;
        $mode = "a" if $a;
        $mode = "w" if $w;
        $mode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XXX f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4603	4711	
==>urned from the rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4603	4711	
==>urned from the rule using a C<return> clause.

=head2 ""

When used as a string, the match object returns the <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5439	5551	
==>tal(group(R))            --> "(?:",  !, p5_start(R), ")".
p5_elemental(standalone(R))       --> "(?>",  !, p5_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4068	4173	
==>RPe_RBRACE, 'N') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2674	2776	
==>mplemented by subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2674	2776	
==>mplemented by subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9870	9976	
==>ides the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & M <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11347	11453	
==>ides the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & M <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1265	1383	
==>d_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wan <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1265	1383	
==>d_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wan <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	593	695	
==>lice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::reduc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2404	2549	
==>lue for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2404	2549	
==>lue for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6498	6598	
==>char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6498	6598	
==>char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	705	827	
==>ust be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	705	827	
==>ust be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19574	19673	
==>se> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effectiv <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19574	19673	
==>se> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effectiv <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10477	10565	
==>self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphert <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10477	10565	
==>self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphert <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8745	8851	
==>members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operat <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8745	8851	
==>members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # various set operat <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1041	1204	
==>( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->per <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	920	1083	
==>( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->per <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3374	3501	
==>, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3374	3501	
==>, $args, $lv) = @_;
    $lv ||= 1;
    my %bound;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2353	2501	
==>file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effect <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2353	2501	
==>file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effect <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2794	2943	
==>ile-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* compiling <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3011	3160	
==>ile-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* compiling <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5012	5110	
==>rs the object's internal state.  This should be called as the last 
step of enciphering.

=item C<f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5012	5110	
==>rs the object's internal state.  This should be called as the last 
step of enciphering.

=item C<f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3455	3586	
==>old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3455	3586	
==>old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15981	16157	
==>ncat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::opt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16260	16436	
==>ncat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::opt <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14555	14646	
==>_entities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14555	14646	
==>_entities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9854	9952	
==>Foo_singleton_method',
 '... still got the right return value from $iFoo singleton method');

## ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26399	26506	
==>ble values which are references will be passed by reference, so you
may store references to other objects in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26399	26506	
==>ble values which are references will be passed by reference, so you
may store references to other objects in <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3180	3313	
==>out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3180	3313	
==>out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11245	11340	
==>$self: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11245	11340	
==>$self: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2	116	
==>dule fp-0.0.1;

# Function composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2	116	
==>dule fp-0.0.1;

# Function composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18816	18914	
==>s an anonymous hash
definition.  While it is obvious that people who would be writing the text
woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18816	18914	
==>s an anonymous hash
definition.  While it is obvious that people who would be writing the text
woul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38796	38889	
==>is:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:.*f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3053	3140	
==>mplement_next =>     $self._get_intersection( $self.complement_next, $self.complement_pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3053	3140	
==>mplement_next =>     $self._get_intersection( $self.complement_next, $self.complement_pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18522	18647	
==>POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18522	18647	
==>POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4644	4754	
==>e_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicit <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4503	4613	
==>e_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	350	462	
==>ot
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	350	462	
==>ot
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	939	1044	
==>ls:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	939	1044	
==>ls:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::N <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1850	2058	
==>, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1789	1990	
==>, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	317	457	
==>er 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	317	457	
==>er 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	442	540	
==>=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	442	540	
==>=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	865	1021	
==>k, int($y / $x);
        } else {
            die "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 or die "Invalid stack:[@stack]\n";
    return $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7116	7222	
==>n Parrot)";
  $_ eq "normal" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8197	8326	
==>$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8185	8314	
==>$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14371	14499	
==>rname");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14371	14499	
==>rname");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout seconds, <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	735	842	
==>\n", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

print "C code:\n$res\n";

#print "Co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	358	453	
==>t::force_todo_test_junction;

# for running the test suite multiple times in the same process
$T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	416	511	
==>t::force_todo_test_junction;

# for running the test suite multiple times in the same process
$T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	466	575	
==>CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	466	575	
==>CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28458	28594	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28737	28873	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1090	1207	
==>l::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1090	1207	
==>l::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10908	11028	
==>); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11058	11178	
==>); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	336	451	
==>on"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	336	451	
==>on"
2 - a partially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4613	4749	
==>"  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4753	4889	
==>"  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3923	4024	
==>ng utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3923	4024	
==>ng utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	561	660	
==>rn &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	561	660	
==>rn &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5761	5863	
==>$S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5840	5942	
==>$S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    ret <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20566	20675	
==>p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1117	1220	
==>$dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} + $incre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19545	19655	
==>n a given block between a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19545	19655	
==>n a given block between a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3397	3521	
==>ss $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3397	3521	
==>ss $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1506	1612	
==>nctional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1506	1612	
==>nctional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3434	3544	
==>".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3434	3544	
==>".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phas <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1382	1501	
==>Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    metho <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1382	1501	
==>Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	776	873	
==>TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	776	873	
==>TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Ar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	34	129	
==>Emitter::Pretty;
use base qw/Blondie::Emitter/;

use strict;
use warnings;

use String::Escape q <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1461	1652	
==>$escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1461	1652	
==>$escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2623	2788	
==>while $i >= $final {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2072	2221	
==>se
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2072	2221	
==>se
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<star <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1369	1471	
==>sult2 if defined $Result2;
    my $proto = $O.<[[Prototype]]>;
    return JSX::undefined if $proto ~~ J <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26333	26439	
==>e warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($L <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4424	4520	
==>her> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equiv <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4424	4520	
==>her> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equiv <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10663	10751	
==>ther Object singleton/class method called by Bar');

is($Bar->singleton_test_on_object(), <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4306	4410	
==>enerating precompiled Prelude" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7395	7485	
==>lternative(R)    --> "|", p5_concatenation(R), ")", !.
p5_condition_alternative(noop) --> " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10119	10233	
==>mediate
validation is kept to the minimum possible, and is essentially just
concerned with the well-formedness of t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10119	10233	
==>mediate
validation is kept to the minimum possible, and is essentially just
concerned with the well-formedness of t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4648	4743	
==>f = shift;
	map { $_->free_vars} $self->left, $self->right;
}

package type::operator::nary;
use <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8099	8225	
==>$name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8099	8225	
==>$name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1320	1431	
==>1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free software; you can re <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1320	1431	
==>1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This program is free software; you can re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4071	4194	
==>X

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a p <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4071	4194	
==>X

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8403	8507	
==>y $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8403	8507	
==>y $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3710	3855	
==>[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} = $_[1]{trait}; $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	348	447	
==>subParams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::E <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9922	10021	
==>Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9922	10021	
==>Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_pers <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1841	1942	
==>ovides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1930	2031	
==>ovides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12798	12943	
==>"    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::Rul <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2287	2409	
==>iption;

    has $.name;

    role Class::Events::Publisher is extended {
        use Set;
        has %.subscriptions of S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3366	3490	
==>rn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3366	3490	
==>rn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14593	14690	
==>t will follow
recommended "Good Practice" of ordering the header fields.  Long header
values are n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14593	14690	
==>t will follow
recommended "Good Practice" of ordering the header fields.  Long header
values are n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	958	1067	
==>ackage MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::S <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	958	1067	
==>ackage MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20076	20178	
==>I think) from the main program binary.  Each user
language is in a separate file, and adding a localiza <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20076	20178	
==>I think) from the main program binary.  Each user
language is in a separate file, and adding a localiza <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6126	6247	
==>_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6114	6235	
==>_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5646	5750	
==>d

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5646	5750	
==>d

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Po <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1463	1583	
==>nnels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1463	1583	
==>nnels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUI <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6800	6923	
==>key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6800	6923	
==>key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4244	4342	
==>ck size and so on; see the cipher module's documentation for 
details.  The C<mode> value indicates <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4244	4342	
==>ck size and so on; see the cipher module's documentation for 
details.  The C<mode> value indicates <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5212	5333	
==>.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5212	5333	
==>.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9638	9741	
==>k soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was bui <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9696	9799	
==>k soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was bui <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	705	809	
==>e (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0- <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	705	809	
==>e (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5582	5715	
==>ft(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5582	5715	
==>ft(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	625	738	
==>[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when 'new'   {
        print temp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	520	644	
==>';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) };
    }
}

mk_constructors();

{
    package Blondie::Nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1522	1632	
==>ub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1522	1632	
==>ub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7635	7734	
==>illee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7635	7734	
==>illee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!use <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21819	21912	
==>propriate place, usually in the
main program, Locale::KeyedText can be given input that says w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21819	21912	
==>propriate place, usually in the
main program, Locale::KeyedText can be given input that says w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1039	1266	
==>{
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</U <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1039	1266	
==>{
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</U <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4626	4727	
==>{ ... } # define your own m:x()/stuff/

    As with any such syntactic shenanigans, the declaration mu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2504	2655	
==>= 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2504	2655	
==>= 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = mult <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4410	4530	
==>.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4410	4530	
==>.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_uni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11654	11783	
==>ugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0], re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	263	349	
==>config->root->subdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root->sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5314	5431	
==><channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new paren <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5314	5431	
==><channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new paren <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2131	2225	
==>Internals::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi Math::Basic::rand ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20660	20750	
==>enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L<http: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20660	20750	
==>enterprise-strength and Perl implemented
database server named L<Genezzo> (see also L<http: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	518	623	
==>h stack frame points to the code we are filtering.
# This is a method in case it needs to be overridden.
s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	518	623	
==>h stack frame points to the code we are filtering.
# This is a method in case it needs to be overridden.
s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11711	11840	
==>check>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11711	11840	
==>check>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10191	10318	
==>$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10185	10312	
==>$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17816	17998	
==>' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17816	17998	
==>' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5307	5468	
==>,
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5307	5468	
==>,
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => ch <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3417	3520	
==>IL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3417	3520	
==>IL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3388	3498	
==>urns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normal <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3388	3498	
==>urns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normal <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	408	566	
==>sing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	408	566	
==>sing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1689	1810	
==>ort         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1689	1810	
==>ort         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9257	9358	
==>add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9257	9358	
==>add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15248	15361	
==>d_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9446	9559	
==>d_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3038	3155	
==>mp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3038	3155	
==>mp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1270	1380	
==>$publisher, Class::Publisher::Event $event) {
        grep { .match($event) }, gather {
            take $.subs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11938	12078	
==>ine,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11938	12078	
==>ine,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7079	7236	
==>] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7079	7236	
==>] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35120	35312	
==>bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23446	23584	
==>GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_SEEN_CANY /* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9620	9752	
==>scard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expire <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9620	9752	
==>scard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expire <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17234	17342	
==>` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17234	17342	
==>` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	708	801	
==>has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	708	801	
==>has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13636	13734	
==>e formula cannot be satisfied within a 
reasonable range of values.

You should consider using a Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13636	13734	
==>e formula cannot be satisfied within a 
reasonable range of values.

You should consider using a Se <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7035	7130	
==>ray of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7035	7130	
==>ray of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23605	23702	
==>ariables, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23605	23702	
==>ariables, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named v <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5126	5229	
==>], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instance meth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7794	7897	
==>], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instance meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7866	7974	
==>pture then entire match. For example:

  

  # returns a Match object that has the 'capture' field set to 'ab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7600	7706	
==>pture then entire match. For example:
  
  # returns a Match object that has the 'capture' field set to 'ab <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1412	1533	
==>a::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::Key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1412	1533	
==>a::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::Key <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22686	22783	
==>ins all possibly useful details, so
that each Template can optionally use them; but often a templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22686	22783	
==>ins all possibly useful details, so
that each Template can optionally use them; but often a templa <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21840	21947	
==>en {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_file_to_yml($file) is buil <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1612	1737	
==>anying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2274	2399	
==>anying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11277	11390	
==>>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11277	11390	
==>>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10532	10662	
==>(($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10532	10662	
==>(($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18489	18589	
==>l Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18489	18589	
==>l Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	744	857	
==>in);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	744	857	
==>in);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6800	6901	
==>cond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11932	12035	
==>S

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 enco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11932	12035	
==>S

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 enco <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6658	6788	
==>urn $inst_pkg;

}

=head2 $bool = $inst->unregister( package => $inst_pkg );

=cut

sub unregister {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6902	7017	
==>( $attrs ) === any( $!heading ));

    return Relation::Example.new(
        heading => $attrs,
        body => set( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2130	2233	
==>TNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1240	1339	
==>TNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23618	23741	
==>dd_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20039	20162	
==>dd_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19333	19437	
==>CK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19333	19437	
==>CK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	755	872	
==>" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	755	872	
==>" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3501	3604	
==>ns are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ wil <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3501	3604	
==>ns are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ wil <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25876	26003	
==>e>
}
rule ControlEscape {  # see 15.10.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # s <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	407	528	
==>vn log" or save "svn log" output in a file and
specify this file as parameter.
Output will go to STDOUT in PNG format.
INF <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10068	10175	
==>.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10068	10175	
==>.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4745	4898	
==>NV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6507	6660	
==>NV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closure::param <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4813	5011	
==>failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5035	5233	
==>failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1485	1583	
==>begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1485	1583	
==>begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7755	7861	
==>$killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7755	7861	
==>$killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2303	2441	
==>rn $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2229	2359	
==>rn $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8742	8851	
==>ork
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8742	8851	
==>ork
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23769	23871	
==>tta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23769	23871	
==>tta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6009	6100	
==>qw(-hide-all-packages -package stm -package network -package mtl -package template-haskell - <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14308	14449	
==>} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14308	14449	
==>} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't se <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2525	2649	
==>f (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0] <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2525	2649	
==>f (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0] <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2216	2335	
==>f (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octe <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2216	2335	
==>f (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1791	2081	
==>ir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    op <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3270	3438	
==>aise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('valueOf');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8626	8715	
==>24.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document") <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8626	8715	
==>24.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document") <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	289	403	
==>:add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6597	6725	
==>s ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6655	6783	
==>s ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	680	956	
==>/) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	680	956	
==>/) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3910	4038	
==>ift;
                push @{$self->get_value('@:slots')}, mk_containers(@$values);
            },

            'array_unshift' => <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11041	11141	
==>Resulting AST: " . Dumper->reduce($res->val), "\n";
printf"Run took: %.3f (%.3f compilation, %.3f exe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8127	8262	
==>rse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { % <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8127	8262	
==>rse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { % <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6120	6249	
==>path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3797	3925	
==>path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5258	5513	
==>="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"]) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5258	5513	
==>="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"]) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2129	2245	
==>$S->error(0, "\\C[A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char_comp => $S->nch <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	210	328	
==>t::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $ou <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	210	328	
==>t::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $ou <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1060	1164	
==>f->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/in <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1869	2006	
==>pec->curdir;
            next if $file eq ".svn";
            next if $file eq "CVS";
            my $currfile = File::Spec->catfile( $sta <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3390	3491	
==>is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3448	3549	
==>is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $tod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	479	574	
==>mmon interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchanga <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	479	574	
==>mmon interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchanga <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3249	3359	
==>rk?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3249	3359	
==>rk?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19552	19650	
==>user-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updating th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19552	19650	
==>user-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updating th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32424	32519	
==>as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

Whil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32424	32519	
==>as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

Whil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5383	5584	
==>H';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5395	5596	
==>H';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-co <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3838	3957	
==>name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dump .= "$key: $va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27118	27258	
==>onal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27397	27537	
==>onal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3907	4003	
==>packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3907	4003	
==>packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11716	11809	
==>ve.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11716	11809	
==>ve.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11845	11970	
==>it
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11839	11964	
==>it
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	836	933	
==>me

    my $compiled = Blondie::Backend::Foo->compile($program);
    my $result = Blondie::Backend <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6734	6848	
==>a::Dumper::Indent=1;
#print Dumper $m;
print $m->describe,"\n";

__END__
my $m = match($Perl_prog,<<'END'); print D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3919	4025	
==>d by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3919	4025	
==>d by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1852	2011	
==>d}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1852	2011	
==>d}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4656	4782	
==>oo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7379	7505	
==>oo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3600	3711	
==>!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3600	3711	
==>!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1911	2073	
==>y $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1911	2073	
==>y $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21578	21684	
==>logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1820	1922	
==>e dispatch.

Lit is divided to various intrinsic object types, including

intrinsic Code (which then ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1749	1849	
==>e dispatch.
Lit is divided to various intrinsic object types, including
intrinsic Code (which then ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1993	2128	
==>equest; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1993	2128	
==>equest; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1456	1573	
==>mainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1456	1573	
==>mainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BE <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4988	5098	
==>od next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4988	5098	
==>od next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1646	1761	
==>s_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.y <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1646	1761	
==>s_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.y <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	747	868	
==>urrent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	747	868	
==>urrent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13487	13588	
==>must be
made to pass before this test can pass (or before an implementation
could be started).  This i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13545	13646	
==>must be
made to pass before this test can pass (or before an implementation
could be started).  This i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	100	197	
==>headers handles «
    header push_header init_header remove_header remove_content_headers header_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	100	197	
==>headers handles «
    header push_header init_header remove_header remove_content_headers header_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10241	10341	
==>p56_char_class(class_neg(digit))         --> "\\D", !.
p56_char_class(class_pos(space_perl))    --> " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14195	14334	
==>urn $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    my $self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1810	1921	
==>normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

W <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1810	1921	
==>normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

W <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8053	8160	
==>$event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8053	8160	
==>$event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41200	41299	
==>as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41200	41299	
==>as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	790	887	
==>cludes some builtin operators to demonstrate dynamicity.

=head1 SYNOPSIS

    use Blondie::Backen <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9597	9689	
==>set_item(setrange(A,B)) --> p5_charset_item(char(A)), "-", p5_charset_range_x(B).
p5_charset_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5890	6001	
==>sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5890	6001	
==>sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19862	20077	
==>" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20141	20356	
==>" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rule <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3486	3617	
==>nd_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3486	3617	
==>nd_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1188	1294	
==>nish.  So, we
# bootstrap to something cleaner and simpler.  Even though it will
# likely lack R:P's nice e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22618	22712	
==>conds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22618	22712	
==>conds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3335	3433	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) <p6ws> <variable> <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	939	1040	
==>), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	939	1040	
==>), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descrip <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5751	5984	
==>$ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5751	5984	
==>$ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	603	708	
==>*abstract:\s+(.*)/;
    }
    unless (defined $prompt) {
        my $script_name = File::Basename::basenam <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21747	21856	
==>er
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is al <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26299	26408	
==>er
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1324	1428	
==>Pugs::Compiler::Regex->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCateg <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18183	18271	
==>ng(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	361	467	
==>hs[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Previo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	361	467	
==>hs[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Previo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9031	9136	
==>dd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9031	9136	
==>dd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	617	718	
==>ually it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	617	718	
==>ually it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($it <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21406	21510	
==>>get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44313	44417	
==>>get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8349	8449	
==>$event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and upd <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8349	8449	
==>$event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and upd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2592	2718	
==>s; 
}

our $op_count = '000';
sub add_op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{ass <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21174	21279	
==>f
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25726	25831	
==>f
all the other tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17258	17410	
==>ion'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') char <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17258	17410	
==>ion'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') char <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11434	11552	
==>ti method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14911	15029	
==>ti method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1625	1720	
==>roclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1683	1778	
==>roclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24328	24429	
==>r that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as_has <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28880	28981	
==>r that is an empty Mapping.

=back

A Relation object has these methods:

=over

=item C<export_as_has <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6572	6683	
==>eturn join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pair <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6572	6683	
==>eturn join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pair <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9535	9644	
==>_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9523	9632	
==>_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41049	41161	
==>er.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, that supports embedding of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41049	41161	
==>er.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, that supports embedding of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8618	8713	
==>sion 0.724.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8618	8713	
==>sion 0.724.0.

It also describes the same-number versions of Rosetta::Model::Document
("Document <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16459	16563	
==>>
    | <EqualityExpression> <'!=='> <RelationalExpression>
}
rule EqualityExpressionNoIn :words {  # see <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	982	1077	
==><remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	982	1077	
==><remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3310	3414	
==>ect(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1160	1264	
==>ect(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	476	589	
==>ring to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	476	589	
==>ring to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5592	5739	
==>e AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on tha <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6056	6203	
==>e AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on tha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23223	23409	
==>), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3531	3616	
==>PPING COMPLETE
## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5433	5518	
==>PPING COMPLETE
## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19205	19293	
==>E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPos,[]],Ex,E <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2610	2738	
==>n't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2610	2738	
==>n't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2032	2156	
==>s \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2020	2144	
==>s \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7679	7881	
==>$newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7679	7881	
==>$newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6022	6147	
==>if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6022	6147	
==>if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16550	16670	
==>f8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20976	21096	
==>f8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33324	33432	
==>ram or library may wish to override the user text of another library
which it uses, the Template module for t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33324	33432	
==>ram or library may wish to override the user text of another library
which it uses, the Template module for t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11383	11529	
==>{
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11383	11529	
==>{
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3524	3712	
==>_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_ou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3524	3712	
==>_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_ou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1797	1902	
==>ders{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1797	1902	
==>ders{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

method clear () { %!header <==
2	/Users/nnunley/pugs/util/func_refact.pl	2297	2424	
==>int "trying: $cand\n";
        next if exists $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $ca <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	314	433	
==>my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $may <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9753	9849	
==>u can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's inpu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9753	9849	
==>u can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's inpu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	271	421	
==>ery go
{   system( qq[rm -rf $Root] )                                  and die $?;
    system( qq[mkdir -p $Meta $Site $Tmpdir $Bindir $Builddir $Alter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	731	829	
==>tr { (shift)->to_native ? str->new('1') : str->new('')  }
sub to_num { (shift)->to_native == 0 ? nu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6033	6239	
==>>new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$string'),
                Val->new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user defin <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	950	1060	
==>on_build {
    my $self = shift;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9406	9598	
==>y $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9406	9598	
==>y $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4331	4423	
==>>name, 'Object', '... $Object got the right method return value');
is($Object->superclass, un <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6233	6325	
==>>name, 'Object', '... $Object got the right method return value');
is($Object->superclass, un <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9139	9255	
==>ub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to defin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9139	9255	
==>ub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to defin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10158	10275	
==>teral {  # see 7.8.5
      <'/'> <RegularExpressionBody> <'/'> <RegularExpressionFlags>
}
rule RegularExpressionBody { <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1565	1666	
==>dded or something change or just have
comments.

=head1 Construction

=head2 C<new>

  my $strap = Tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2865	2972	
==>eturn $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2865	2972	
==>eturn $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8566	8667	
==><The authors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8566	8667	
==><The authors and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15282	15400	
==>lass Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15282	15400	
==>lass Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11020	11114	
==>ected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11078	11172	
==>ected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1974	2068	
==>uivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1974	2068	
==>uivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 <==
2	/Users/nnunley/pugs/util/importgraph.pl	2210	2293	
==>setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs.Compile.Ha <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	858	965	
==>eight = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	858	965	
==>eight = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14106	14210	
==>:Node Class

A Node object is a simple container which stores data to be used or
displayed by your progra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14106	14210	
==>:Node Class

A Node object is a simple container which stores data to be used or
displayed by your progra <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2286	2503	
==>f($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shif <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3874	4091	
==>f($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22779	22888	
==>ighest number of parentheses.  It will end up being identical to
C<nparen>, but it is incremented during the i <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12271	12356	
==>td class="num tests_failed"><span title="<tmpl_var name=failed> failed"><tmpl_var name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1938	2028	
==>t.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2027	2117	
==>t.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	7	103	
==>bin/perl

package Blondie::Reducer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use Scala <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17131	17233	
==>thod.($self, %params);
    }
}

(method BUILDALL ((opaque $self:) (hash %params)) returns nil
    ((= & <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3995	4190	
==>p{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7472	7667	
==>p{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17287	17394	
==>ives you the following benefits:

=over

=item *

Ability to mix many source filterish modules in a much mor <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17287	17394	
==>ives you the following benefits:

=over

=item *

Ability to mix many source filterish modules in a much mor <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2733	2834	
==>);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3277	3378	
==>);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4278	4391	
==>rns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4278	4391	
==>rns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.sp <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13775	13895	
==>nitrd_img\"",
    ensure => sub { -r $initrd_gz and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip - <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4695	4809	
==>ges in the DIAGNOSTICS section.

=cut

sub runtests {
    my(@tests) = @_;

    local ($\, $,);

    my($tot, $fail <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16349	16449	
==>the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16349	16449	
==>the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3352	3487	
==>idx = shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $int - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36875	36995	
==>h;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if mat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2579	2692	
==>is primitive is unsafe {
        eval(slurp $filename, $lang);
    }
}


class Control::Caller {
    has Str $.pac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22325	22424	
==>.  Afterwards, it is an array
reference of (node) objects.

=item stack

Initially an array referenc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3154	3288	
==>set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.inter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3154	3288	
==>set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.inter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4992	5092	
==>document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4992	5092	
==>document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_no <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5805	6058	
==>("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7567	7820	
==>("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39277	39373	
==>tta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39277	39373	
==>tta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5469	5595	
==><=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5469	5595	
==><=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3319	3424	
==>y, though.)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3319	3424	
==>y, though.)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	141	238	
==>NDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	141	238	
==>NDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field nam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3285	3391	
==>t;
    list->new(CORE::reverse(@{$self}));
}

## list iterators

sub each : method {
    my ($self, $closur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12797	12964	
==>ent = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12797	12964	
==>ent = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1421	1528	
==>$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1561	1668	
==>$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumpe <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	676	794	
==>nd, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://downlo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	575	679	
==>nd, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://downlo <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	86	208	
==>5 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must c <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	86	208	
==>5 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1195	1328	
==>Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.prope <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1195	1328	
==>Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.prope <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11604	11711	
==>t be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back

=head1 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11604	11711	
==>t be relevant though.

=item Create a Visitor class

This would also be a good use for Roles.

=back

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1505	1655	
==>script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = fi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1505	1655	
==>script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $script = fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1056	1170	
==>, 1),
	       name          => substr($param->{var}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29118	29218	
==>other iteration of //g. */
 #define REXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((voi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1791	1933	
==>$match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1731	1870	
==>$match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10529	10628	
==>d decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10529	10628	
==>d decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<de <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9700	9830	
==>0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{
    @strings.ma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9700	9830	
==>0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{
    @strings.ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4542	4668	
==>re}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4554	4680	
==>re}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2288	2421	
==>n("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2288	2421	
==>n("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7059	7195	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7252	7388	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alter <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8019	8130	
==>}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	734	841	
==>ti method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	734	841	
==>ti method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2813	2912	
==><burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if th <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2813	2912	
==><burst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	295	394	
==>ur bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	295	394	
==>ur bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1979	2073	
==>>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1979	2073	
==>>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the s <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1927	2033	
==>irectory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=h <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1927	2033	
==>irectory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16479	16579	
==>compile (such as by simply
copying files), often even while the program is executing.

Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16479	16579	
==>compile (such as by simply
copying files), often even while the program is executing.

Locale::KeyedT <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	792	896	
==>$_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd));

    for my $dir (( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26623	26742	
==>_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x10000 <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3551	3673	
==>Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE "$preamb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	201	368	
==>)';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	201	368	
==>)';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	199	306	
==>d source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	199	306	
==>d source($self:) {
    $.source || $.content;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19494	19582	
==>cnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19494	19582	
==>cnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	49	150	
==>$ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	49	150	
==>$ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	617	715	
==>ompiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	617	715	
==>ompiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName> <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1327	1476	
==>" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1327	1476	
==>" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	541	653	
==>rams::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1025	1137	
==>rams::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::n <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	584	692	
==>obably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submet <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	584	692	
==>obably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submet <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39075	39176	
==>ES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39075	39176	
==>ES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5437	5676	
==>d ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$cu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7199	7438	
==>d ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$cu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3371	3512	
==>";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4220	4361	
==>";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_) <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	238	342	
==>($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	238	342	
==>($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1298	1388	
==>e Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b](b) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14929	15037	
==>hem. So we will implement the Test::More function is_deeply.
The plan currently is to implement this as a mut <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14987	15095	
==>hem. So we will implement the Test::More function is_deeply.
The plan currently is to implement this as a mut <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4336	4480	
==>nds) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4394	4538	
==>nds) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1284	1377	
==>->declare($node) if $self->is_duplicate($node);
	warn $node->struct_equiv . " is duplicated, a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7895	7986	
==>users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7895	7986	
==>users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normal <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13402	13509	
==>-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is a discret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13402	13509	
==>-15,2005-07-20]    6 days

When a Span object is intersected to a Recurrence object, the result is a discret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6249	6362	
==>ata_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6249	6362	
==>ata_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sd <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21716	21856	
==>>get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44623	44763	
==>>get('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->ne <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20578	20681	
==>binmode chown close closedir connect eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|pro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35882	35976	
==>tion, such that all common attribute names
and corresponding common tuple values are aligned an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40432	40526	
==>tion, such that all common attribute names
and corresponding common tuple values are aligned an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15821	15939	
==>) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10677	10795	
==>) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6970	7063	
==>st_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6970	7063	
==>st_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4771	4937	
==>st

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4622	4784	
==>st
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	908	1048	
==>er ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	908	1048	
==>er ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	309	417	
==>:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule iden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	309	417	
==>:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule iden <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10111	10216	
==>pan1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10111	10216	
==>pan1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10007	10169	
==>}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10843	11005	
==>}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1598	1697	
==><stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1598	1697	
==><stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

Thi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1698	1792	
==>"\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::No <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1698	1792	
==>"\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::No <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1757	1909	
==>f $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1757	1909	
==>f $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1099	1234	
==>$string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = ' <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1099	1234	
==>$string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18903	19045	
==>('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15324	15466	
==>('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11342	11487	
==>$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11336	11481	
==>$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10986	11083	
==>es;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->reduce($res->val <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3244	3440	
==>$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3244	3440	
==>$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	508	616	
==>:DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a li <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	508	616	
==>:DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1487	1595	
==>of_tests_planned;
say <angle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->();
    print "tail: " <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13804	13904	
==>Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%hash ; MatchTest *@ke <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6486	6609	
==>-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6279	6395	
==>-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2341	2569	
==>ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2341	2569	
==>ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $! <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9884	9986	
==>lti *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9884	9986	
==>lti *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::Li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3181	3281	
==>ated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3068	3166	
==>ated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere e <==
2	/Users/nnunley/pugs/util/grokprims.pl	1084	1191	
==>->{assoc};
  my $name = $op->{name};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{args}[1];
  my $arity = 0+@ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3119	3276	
==>}, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ j <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3119	3276	
==>}, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ j <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21142	21237	
==>piled. This means that people who install your
module distribtution do not need to have the comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21142	21237	
==>piled. This means that people who install your
module distribtution do not need to have the comp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1692	1790	
==>de ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1692	1790	
==>de ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4524	4632	
==>ember_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4524	4632	
==>ember_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	249	340	
==>us.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-leve <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	249	340	
==>us.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-leve <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4966	5100	
==>(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	400	519	
==>ie Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	400	519	
==>ie Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVE <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	620	767	
==>ith our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	620	767	
==>ith our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26964	27076	
==>ment is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26964	27076	
==>ment is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2982	3114	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2866	2992	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub va <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	263	384	
==>line C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_Interp i,char *bcfile) {
    Parrot_PackFile pf = Parro <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9381	9474	
==>1;
#__END__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,u <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17611	17725	
==>eturns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17611	17725	
==>eturns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $sp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3014	3135	
==>);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directorie <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3014	3135	
==>);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the directorie <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9143	9263	
==>TH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9143	9263	
==>TH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4448	4564	
==>p($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\?\# [^)]* }x <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4575	4699	
==>ice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4575	4699	
==>ice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6730	6834	
==>n the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a docum <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6730	6834	
==>n the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a docum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4015	4164	
==>pile( q(
                <?Pugs::Grammar::Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5005	5130	
==>ch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($right->fet <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6306	6403	
==>l', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6306	6403	
==>l', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9963	10081	
==>e}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9963	10081	
==>e}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1315	1416	
==>turn $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1315	1416	
==>turn $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	43	243	
==>s-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	43	243	
==>s-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1056	1265	
==>" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1056	1265	
==>" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9376	9475	
==>?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9376	9475	
==>?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	976	1117	
==>};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	976	1117	
==>};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5500	5668	
==>= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5500	5668	
==>= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinati <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19045	19140	
==>ilosophy ("a predicate ranging
over more than one argument"), which is also the basis of the rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22695	22790	
==>ilosophy ("a predicate ranging over more than one
argument"), which is also the basis of the rel <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15393	15518	
==>le Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15393	15518	
==>le Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6609	6833	
==>totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6609	6833	
==>totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5880	6067	
==>1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5880	6067	
==>1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8384	8590	
==>ie "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8848	9054	
==>ie "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8704	8831	
==>vPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10460	10563	
==>efore the => operator, you can use
'_' as a replacement for '-' in header names.

The header() method ac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10460	10563	
==>efore the => operator, you can use
'_' as a replacement for '-' in header names.

The header() method ac <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6809	6960	
==>our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6809	6960	
==>our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $bas <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2015	2135	
==>self->_caller;
    my $cwd  = Cwd::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = C <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2340	2464	
==>{
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2340	2464	
==>{
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7985	8125	
==>amily => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	301	419	
==>lf:) returns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2621	2778	
==>th");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2621	2778	
==>th");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10594	10702	
==>t can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10652	10760	
==>t can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3953	4113	
==>1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3941	4101	
==>1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2399	2552	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2592	2745	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1920	2039	
==>operty_attributes{$P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    my $pro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	29	135	
==>1';

1;

__END__
=pod

=head1 NAME

JIB - Perl6 Package Manager

=head1 DESCRIPTION

JIB stands for 'JIB Is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	640	756	
==>lass->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other acc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1124	1240	
==>lass->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have other acc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	692	800	
==>type Relation::LaxPairAttrType of Pair where {
    .key.does(Str) and (
        (.key eq 'Scalar' and .value. <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5232	5321	
==>::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5232	5321	
==>::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17556	17652	
==>N packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17556	17652	
==>N packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs or <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5153	5273	
==>,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5153	5273	
==>,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17204	17367	
==>mar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17483	17646	
==>mar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2302	2399	
==>unctionality fixed proper to use this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5266	5397	
==>%attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5266	5397	
==>%attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	274	385	
==>mc_compile {
    my ($class, $source) = @_;

    my $file = (caller(4))[1];
    if (defined $file and $file !~ / <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10042	10144	
==>nput that
fails immediate evaluation will not be set at all.  The scope of immediate
validation is kept <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10042	10144	
==>nput that
fails immediate evaluation will not be set at all.  The scope of immediate
validation is kept <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	665	757	
==>-----------------------
## private methods

my method set_height ($self: Tree $child) returns <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	665	757	
==>-----------------------
## private methods

my method set_height ($self: Tree $child) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11897	12012	
==>[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11897	12012	
==>[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the la <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	424	532	
==>tput
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testp <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	424	532	
==>tput
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	237	339	
==>gs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	237	339	
==>gs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note t <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	161	264	
==>rint header();
#my $template  = HTML::Template.new(filename => "wiki.html");

my $action    = param('act <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11886	12041	
==>qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod ter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11886	12041	
==>qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod ter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	35	158	
==>use strict;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @toke <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	537	649	
==>( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1021	1133	
==>( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPE <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3908	4032	
==>l not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3908	4032	
==>l not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full o <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2179	2283	
==>urn if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2157	2261	
==>urn if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2992	3229	
==>$expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2992	3229	
==>$expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4889	5015	
==>urn'>
    | <'void'>
    | <'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	320	425	
==>new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__END__

=pod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1815	1911	
==>UVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1815	1911	
==>UVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	769	873	
==>ug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	769	873	
==>ug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $user <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8481	8650	
==>k} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs addition
        # This addition analyzes the reason for the TODO    
        my % <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16264	16355	
==>nd: generic_in($.if) = { generic_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	546	649	
==>ile\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3986	4095	
==>te values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3986	4095	
==>te values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1338	1484	
==>,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1284	1423	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5508	5618	
==>d_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5508	5618	
==>d_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!chil <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7391	7576	
==>=> 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7448	7633	
==>=> 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pa <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7888	8017	
==>n Perl5 embedding.
    @_ = grep { !/^-W/ } @_;

    my @include_dirs = grep { -d $_ }
            map File::Spec->canonpath(subst <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2269	2370	
==>die::Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1508	1656	
==>TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' an <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1508	1656	
==>TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4540	4661	
==>ture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4552	4673	
==>ture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2641	2727	
==>atement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2641	2727	
==>atement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2171	2290	
==>T|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PO <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2171	2290	
==>T|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PO <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5870	5965	
==>cted_type);

		return $node if $self->types_eq($de_facto_type, $expected_type);

		warn "types d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1220	1313	
==>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { meth <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4905	5059	
==>th >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4905	5059	
==>th >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2260	2368	
==>tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2260	2368	
==>tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3119	3319	
==>::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3130	3330	
==>::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12113	12202	
==>.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12113	12202	
==>.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { " <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29324	29417	
==>invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33876	33969	
==>invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22078	22175	
==>bert)

C<\b> was being turned into "b" inside a character class, instead of
a backspace.  (Mike La <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8948	9042	
==>al(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2773	2867	
==>al(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2360	2459	
==>Pugs, this port does it's best to work with those limitations and 
still produce a working version o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2360	2459	
==>Pugs, this port does it's best to work with those limitations and 
still produce a working version o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20782	20888	
==>>$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;defined(\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	472	593	
==>"abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	569	690	
==>"abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq ' <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1203	1309	
==>.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num::round_random (Nu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3906	4006	
==>re, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3906	4006	
==>re, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cip <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4845	4971	
==>> [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4679	4798	
==>> [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *co <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2113	2234	
==>ywhere
        1;
    }

    method delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Class::Events <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	507	613	
==>e in $dir\n");
		return $class;
	}

	@.known_parsers = $class._parse_ini_file($fh);

	return $class;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4962	5073	
==>ew parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4962	5073	
==>ew parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %!cache3 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5327	5425	
==>_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calcu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5327	5425	
==>_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data);

    # Calcu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33853	33954	
==>references such that each says what
language they prefer to communicate in, and what their backup choi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33853	33954	
==>references such that each says what
language they prefer to communicate in, and what their backup choi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	223	352	
==>tput;
    has @:diagnostics;

    method write ( Str $message is copy )
    {
        push @:output, $message;
    }

    method d <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5278	5387	
==>).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(Max), !.
p6_range_bounds_RHS(_Min,-)   --> "...", !.
p6_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2741	2858	
==>LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2741	2858	
==>LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1849	1966	
==>print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1909	2026	
==>print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_clas <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4265	4388	
==>start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4265	4388	
==>start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21761	21943	
==>atcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44668	44850	
==>atcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$me <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4459	4581	
==>xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my In <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4459	4581	
==>xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my In <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	427	531	
==>than fifteen readable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible wit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	427	531	
==>than fifteen readable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible wit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2157	2272	
==>API/Code.pm # userland objects -- those are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2076	2189	
==>API/Code.pm # userland objects -- those are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18503	18604	
==>paren} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19861	19962	
==>paren} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3231	3356	
==>aluePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('val <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22103	22207	
==>lock :words {  # see 12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <C <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3150	3410	
==>w('&infix:<<>'),
                    Sym->new('$x'),
                    Sym->new('$y'),
                ),
                Val->new(
                    Thunk->new(
                        Val->new(0),
                    )
                ),
                V <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	537	632	
==>->code();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = Pugs::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9675	9771	
==>a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `differ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9675	9771	
==>a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `differ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	676	880	
==>required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        },
    };
    
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	466	588	
==>PARENMATCH:
    while ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tai <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16574	16697	
==>:opt_flag
    .param string name         :optional
    .param int has_name        :opt_flag
    .local pmc exp
    .local pm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11458	11592	
==>= $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11452	11586	
==>= $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4792	4922	
==>d( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4628	4753	
==>d( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3983	4079	
==>y

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3983	4079	
==>y

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14883	14991	
==>pace POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9083	9191	
==>pace POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34768	34865	
==>lose

Family: close

Types: anyof_close (C<]> when in C<[...>)

Omitted

=head2 prop

Family: prop <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	185	294	
==>d";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	185	294	
==>d";
    exit;
}

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4022	4128	
==>ewline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4022	4128	
==>ewline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($new <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3907	4034	
==>if $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2755	2870	
==>'s value (and also prepares a dynamic scope
for it).

If we have a Thunk inside '&func' in the Env, executing this t <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10496	10600	
==></pre>

  <p>
    should suffice. See the <a
    href="http://search.cpan.org/dist/Perl6-Pugs/lib/pugs/ha <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	1	96	
==>class Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	1	96	
==>class Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13017	13218	
==>l->new('$canidate' => 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                returns => 'opaque'
            ),            
            su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	721	1133	
==>Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	721	1133	
==>Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8005	8139	
==>.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $! <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8005	8139	
==>.complement_previous;
    $self.get_universe;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4392	4534	
==>n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4532	4674	
==>n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20162	20286	
==>&Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16583	16707	
==>&Rf &= ~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36760	36860	
==>erties; if none
could be matched, this method returns undef.  This method could be
considered to impl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36760	36860	
==>erties; if none
could be matched, this method returns undef.  This method could be
considered to impl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31796	31895	
==>refers) language A but also understands
language B.  Later on, if for example the first library gene <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31796	31895	
==>refers) language A but also understands
language B.  Later on, if for example the first library gene <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21108	21225	
==>m >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17529	17646	
==>m >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5341	5531	
==>y >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tai <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5341	5531	
==>y >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4023	4202	
==>isk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4023	4202	
==>isk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3927	4055	
==>rray => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1633	1755	
==>$self->control_dir( $pkg )
                ->file( $self->config->_files_list );
}

=head1 METHODS

=head2 $inst = JIB::Ins <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	693	797	
==>l and C";
	shift()->cc_lib_links(@_);
}

sub optimize_flags {
	warn "optimize_flags has been changed to c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	638	737	
==>$node->can("digest");
    Blondie::Backend::Perl::Builtins->find($node->digest || return);
}

sub ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1748	1884	
==>base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1748	1884	
==>base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4423	4548	
==>n    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4423	4548	
==>n    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of childre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1602	1694	
==>OPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free sof <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1602	1694	
==>OPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free sof <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20405	20531	
==>_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not impleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16826	16952	
==>_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not impleme <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	692	818	
==>{
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	692	818	
==>{
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	243	433	
==>*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	243	433	
==>*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18256	18362	
==>.referer

Used to specify the address (URI) of the document from which the
requested resource address was o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18256	18362	
==>.referer

Used to specify the address (URI) of the document from which the
requested resource address was o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1405	1516	
==>rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1405	1516	
==>rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1121	1214	
==>. $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableNa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1121	1214	
==>. $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableNa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8393	8496	
==>ged his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8393	8496	
==>ged his/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %han <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3000	3109	
==>expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3058	3167	
==>expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_func($got, $expected <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21547	21658	
==>o see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21547	21658	
==>o see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22179	22280	
==>.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does not declare an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22179	22280	
==>.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does not declare an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	316	438	
==>turn whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	302	416	
==>turn whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3123	3263	
==>> 33;
use Data::Dumper;

use_ok( 'Pugs::Compiler::Rule' );

=for pod
  sub rxinfix:<|> 
  { 
    return { alt => [ 
                $_[0]{q1} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12455	12557	
==>(the parameter is associated with a new type variable)
# this new env is passed down to the body, but i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14242	14356	
==>60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14242	14356	
==>60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2438	2560	
==>:Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statement <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2438	2560	
==>:Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statement <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8305	8415	
==>e in a top-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8305	8415	
==>e in a top-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3704	3894	
==>ix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3704	3894	
==>ix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            n <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	296	401	
==>ce.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	296	401	
==>ce.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7202	7339	
==>::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7202	7339	
==>::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11367	11476	
==>handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11367	11476	
==>handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18790	18885	
==>y => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation::Ex <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3160	3260	
==>nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3160	3260	
==>nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) returns Str`

- `catpat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	573	732	
==>Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	573	732	
==>Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shif <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1944	2151	
==>$.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1944	2151	
==>$.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2290	2448	
==>efined $pool_rel
                    ? dir($pool_rel)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10254	10359	
==>n "$_[1] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$grammar-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46928	47089	
==>abel')
                  ->to_str
                  ->is_equal(str->new('{}'))
                  ->and(block->new($e, sub {
                      $e->set('$return <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	339	441	
==>\w+[A-Z]\w+)/;
my $topic     = join("\n", param('topic')) || 'FrontPage';
my $entry      = join("\n", p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10013	10122	
==>ng through the set, and for querying 
set properties.

Note that all set functions may end up being calculated <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10013	10122	
==>ng through the set, and for querying 
set properties.

Note that all set functions may end up being calculated <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27044	27143	
==>erEscape>
    | <CharacterClassEscape>
}



grammar JavaScript::ECMAScript3::Grammar is JavaScript:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3287	3417	
==>efined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3287	3417	
==>efined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14984	15091	
==>> $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14984	15091	
==>> $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9419	9555	
==>urn and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9419	9555	
==>urn and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3417	3517	
==>on't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1) <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3417	3517	
==>on't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8669	8844	
==>ic/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8669	8844	
==>ic/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7002	7128	
==>es an interface between the 

low-level functional operators, and the higher level OO/Overload 

runtime. 



- internal rule o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6763	6885	
==>es an interface between the 
low-level functional operators, and the higher level OO/Overload 
runtime. 

- internal rule o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4805	4989	
==>hecksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5027	5211	
==>hecksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5325	5457	
==>~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5325	5457	
==>~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18821	18917	
==>port (such as modification of the compiled re op tree the native
compiler creates, but which we o <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3111	3207	
==>port (such as modification of the compiled re op tree the native
compiler creates, but which we o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8101	8249	
==>ged his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8101	8249	
==>ged his/her nick. Rename his/her entry in %users, and update
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2905	3062	
==>ther => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        name => 'try',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3327	3431	
==>rrays[$_][$i] } 0..@arrays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Array.pm r8593.
# not in S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3911	4016	
==>ages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3911	4016	
==>ages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attr <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3337	3437	
==>',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decod <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3337	3437	
==>',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decod <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21506	21616	
==>o,$v)=@_; $o->ASSIGN($v);}
sub p6_bind {my($o,$v)=@_; $o->BIND($v);}


my %space_from_sigil;
my %sigil_from_spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14171	14299	
==>'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a state <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14171	14299	
==>'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a state <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12776	12977	
==>d |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_da <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12776	12977	
==>d |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_da <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5541	5677	
==>"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5541	5677	
==>"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    " <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	227	328	
==>de) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() { <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	227	328	
==>de) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	395	517	
==>{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain' can't be mixed with other types in the same level
my %rule_t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3908	4036	
==>n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3908	4036	
==>n))}{/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2136	2242	
==>file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, ma <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2136	2242	
==>file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, ma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1061	1190	
==>?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1061	1190	
==>?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	942	1036	
==>alled C<Type> and a
language object called C<Type>.  Perhaps this module should be called
somet <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2672	2878	
==>$req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2672	2878	
==>$req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2295	2430	
==>h

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2212	2337	
==>h
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9865	9959	
==>l6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
mult <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9865	9959	
==>l6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
mult <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1056	1200	
==>.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            + <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1056	1200	
==>.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            + <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3179	3287	
==>$admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5385	5493	
==>$admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9310	9435	
==>xpression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expr <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	706	829	
==>xpression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1786	1919	
==>when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('beg <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1786	1919	
==>when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('beg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9128	9277	
==>atch);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9116	9265	
==>atch);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31656	31755	
==>here is are no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	520	609	
==>B::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3388	3530	
==>method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3388	3530	
==>method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @t <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3938	4061	
==>($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	967	1081	
==>d1 DESCRIPTION

Useful as a first pass in the code emission process, in order to compile all
reused nodes into thei <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14042	14140	
==>?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing fun <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14100	14198	
==>?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing fun <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19080	19190	
==>e
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19080	19190	
==>e
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (f <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1299	1397	
==>macro Clutter::num_size($n) {
  'subset num'~$n~'     of ValueType where { $^n ~~ Num and ...XXXfil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23037	23121	
==>eption::Return;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7981	8094	
==>ust do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7981	8094	
==>ust do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8398	8539	
==>.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8398	8539	
==>.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	222	344	
==>rations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

ou <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	222	344	
==>rations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

ou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11267	11378	
==>eeded.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numer <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11267	11378	
==>eeded.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10401	10523	
==>push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10395	10517	
==>push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	705	828	
==>in "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	985	1086	
==>ecurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
push @{$Config{"exclude"}} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	53	157	
==>6;
use Carp qw( carp croak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %load <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	764	869	
==>unction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	822	927	
==>unction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5844	5938	
==>accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5844	5938	
==>accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6453	6561	
==>next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ---------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6453	6561	
==>next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ---------- <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6312	6408	
==>"path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6312	6408	
==>"path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2211	2320	
==>s export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2211	2320	
==>s export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is first <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1215	1321	
==>s; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	318	420	
==>s;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12790	12945	
==>$name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . ']';
        }
        
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7320	7427	
==>s fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7320	7427	
==>s fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5359	5474	
==>extension.  The Client-Date header is
# added as a timestamp to a response when it has been received.
method client_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5359	5474	
==>extension.  The Client-Date header is
# added as a timestamp to a response when it has been received.
method client_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1051	1191	
==>*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1051	1191	
==>*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20498	20669	
==>),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("mul"),
								param => ide("r"),
							),
							pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2103	2205	
==>$msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2103	2205	
==>$msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12475	12598	
==>> strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12475	12598	
==>> strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1120	1269	
==>'Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$dom <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1120	1269	
==>'Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$dom <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	400	495	
==>vent_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	400	495	
==>vent_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5698	5820	
==>ag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5756	5878	
==>ag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1610	1740	
==>rns Void is export {
    say "1..$number_of_tests";
}

1 if 4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15642	15746	
==>ems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the desig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15642	15746	
==>ems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the desig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4982	5109	
==>xpires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4982	5109	
==>xpires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	96	198	
==>v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	96	198	
==>v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30086	30180	
==>h value contains the user-readable message text associated with the
Message; this user string m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30086	30180	
==>h value contains the user-readable message text associated with the
Message; this user string m <==
2	/Users/nnunley/pugs/util/package-osx.pl	2008	2108	
==>al/lib/perl5/site_perl/Class/Rebless.pm /Library/Perl/5.8.6/Class/Rebless.pm
        /usr/local/lib/p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	522	646	
==>sh ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1006	1130	
==>sh ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6316	6500	
==>ct;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relation in $othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9793	9977	
==>ct;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relation in $othe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3002	3144	
==>capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2886	3021	
==>capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2576	2706	
==>& !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2576	2706	
==>& !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2337	2458	
==>$state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2477	2598	
==>$state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9562	9706	
==>secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($vers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9562	9706	
==>secure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($vers <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	845	951	
==>d( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	845	951	
==>d( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1081	1181	
==>ver_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1081	1181	
==>ver_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<l <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	98	199	
==>A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	98	199	
==>A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8786	8881	
==>isting Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf.. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8786	8881	
==>isting Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf.. <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	970	1092	
==>py, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is co <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	970	1092	
==>py, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28563	28659	
==>plate Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
to mak <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28563	28659	
==>plate Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you
to mak <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	614	760	
==>ch, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	614	760	
==>ch, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1433	1628	
==>req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1433	1628	
==>req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15570	15671	
==>og, $resolve, $runperl_args, $name) = @_;

    $runperl_args ||= {};
    $runperl_args->{progfile} = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14190	14289	
==>ny return values of the callback routine are ignored.  The loop can
be broken by raising an exceptio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14190	14289	
==>ny return values of the callback routine are ignored.  The loop can
be broken by raising an exceptio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4844	4988	
==>($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4844	4988	
==>($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3276	3425	
==>ch, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3276	3425	
==>ch, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1391	1496	
==>$self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1391	1496	
==>$self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.densit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8794	8902	
==>( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # Lik <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8794	8902	
==>( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # Lik <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	886	1002	
==>> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6724	6850	
==>rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6724	6850	
==>rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21124	21224	
==>or users, and your program would use
associated keys internally.

It is strongly suggested (but not r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21124	21224	
==>or users, and your program would use
associated keys internally.

It is strongly suggested (but not r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	2	100	
==>ckage Regexp::Parser;

my $ENUM;
BEGIN { $ENUM = 0 }

use constant RPe_ZQUANT => --$ENUM, 'Quantifi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9738	9851	
==>smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9738	9851	
==>smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1389	1508	
==>\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1389	1508	
==>\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	470	574	
==>Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	return i;
}
C
our $msg = "not ok\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5697	5814	
==>ar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5697	5814	
==>ar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2370	2510	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2370	2510	
==>ected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11409	11550	
==>in_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Proce <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11409	11550	
==>in_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Proce <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5559	5693	
==>', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5752	5886	
==>', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2771	2873	
==>n( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2771	2873	
==>n( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3447	3559	
==>ection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3447	3559	
==>ection( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2202	2357	
==>{ after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2449	2604	
==>{ after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	624	731	
==>o addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And because macr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	624	731	
==>o addresses the problem that macros are currently
   quite slow (~10sec for this file).

   And because macr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22751	22855	
==>tion attribute names that
define the heading of this Relation.  Each attribute name is a character
string <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27303	27407	
==>tion attribute names that
define the heading of this Relation.  Each attribute name is a character
string <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5406	5526	
==>method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5406	5526	
==>method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	728	852	
==>t_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	816	940	
==>t_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub n <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1575	1668	
==>n %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1415	1508	
==>n %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16775	16882	
==>ersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16775	16882	
==>ersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2542	2641	
==>data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2542	2641	
==>data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1705	1807	
==>cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLM <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1705	1807	
==>cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLM <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	213	313	
==>-> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi me <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	213	313	
==>-> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	159	262	
==>zy list into a normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Rename <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	159	262	
==>zy list into a normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Rename <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8223	8364	
==>( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8416	8557	
==>( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10240	10329	
==>rint ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10975	11064	
==>rint ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4799	4896	
==>, $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_as <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4799	4896	
==>, $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_as <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1663	1792	
==>:Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # X <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1663	1792	
==>:Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # X <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2367	2468	
==>e of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appreci <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2367	2468	
==>e of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appreci <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6667	6810	
==>sure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6667	6810	
==>sure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10101	10216	
==>if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10101	10216	
==>if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($h <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2389	2534	
==>n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2389	2534	
==>n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8288	8419	
==>acktrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8288	8419	
==>acktrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parse <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17731	17830	
==>re and/or invoke/execute Rosetta D statements and routines
within the virtual machine, input data to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17731	17830	
==>re and/or invoke/execute Rosetta D statements and routines
within the virtual machine, input data to <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7613	7735	
==>"infix") {
		return "( $params[0] $thunk $params[1] )";
	} else {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8360	8465	
==>!.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg([-i|L]) --> "i", p5_modifier_spec_neg(L), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18787	18894	
==>_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself after login, so it can gi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18787	18894	
==>_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself after login, so it can gi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2513	2609	
==>g stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting wi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2513	2609	
==>g stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting wi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2545	2728	
==>rns Int;
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi sub Array::sort(                 @value <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2729	2855	
==>d S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    ¥       safe   (Array)\
#   ie, both return and ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8490	8590	
==>ME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8490	8590	
==>ME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4887	5065	
==>ching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4887	5065	
==>ching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12927	13095	
==>e_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12927	13095	
==>e_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and cr <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	184	279	
==>NV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	184	279	
==>NV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16888	16982	
==>ents of their application in Rosetta D (as
either named modules or anonymous routines) and writ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16888	16982	
==>ents of their application in Rosetta D (as
either named modules or anonymous routines) and writ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2509	2628	
==>\w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2509	2628	
==>\w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	444	561	
==>ven below, although Haskellesque, are not pure functions.  They only
# represent transformations between PIL node type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	444	561	
==>ven below, although Haskellesque, are not pure functions.  They only
# represent transformations between PIL node type <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	231	373	
==>q '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    e <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	231	373	
==>q '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    e <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	249	348	
==>%att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	249	348	
==>%att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13397	13519	
==>y Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13397	13519	
==>y Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4427	4555	
==>noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub concat {
    my($o,$aref)=@_;
    die "bug $aref" if ref($aref) ne <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3906	4004	
==>nical_base = File::Spec->catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1420	1612	
==>{
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character cla <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1420	1612	
==>{
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character cla <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2258	2398	
==>r that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2258	2398	
==>r that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5270	5383	
==>chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Updat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5270	5383	
==>chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Updat <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11454	11578	
==>ssed($node));
    
    $self->can($type)
        ? $self->$type($node)
        : $self->generic_reduce($node);
}

sub generic <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9122	9225	
==>k};
	die "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recursion arise <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6991	7128	
==>} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6991	7128	
==>} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5847	5940	
==>ordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5847	5940	
==>ordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($cu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16144	16245	
==>.
sub check_for_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contains potenti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	771	872	
==>ny non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-tran <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	771	872	
==>ny non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-tran <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	532	650	
==>xes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	532	650	
==>xes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2974	3083	
==>$token{arity} = 2;
  }
  elsif ( $syncat eq "ternary" )
  {
    $token{syncat} = PGE_OPTABLE_TERNARY;
    $tok <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	486	586	
==>arness ONLY!>

=head1 FUNCTIONS

=head2 C<assert()>

  assert( EXPR, $name );

If the expression is f <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8337	8578	
==>te->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->para <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5605	5785	
==>te->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->para <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9299	9442	
==>rypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9299	9442	
==>rypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	501	623	
==>, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input is exhausted
  my $spl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19004	19113	
==>$ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20362	20471	
==>$ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ift <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	277	384	
==>6 den // Operator:
my $option = %para{'x'} // "wert";

#!\pause
# er kann auch sehr einfach verkettet werden <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	487	587	
==>urn Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	487	587	
==>urn Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $sp <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1126	1222	
==>lly used to add extra directories to Pugs's 
search path so that later `use` or `require` stateme <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1126	1222	
==>lly used to add extra directories to Pugs's 
search path so that later `use` or `require` stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2735	2887	
==>match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be mod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2735	2887	
==>match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15786	15882	
==>per should see more details than joe public would.

Alternately, sometimes a program will raise a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15786	15882	
==>per should see more details than joe public would.

Alternately, sometimes a program will raise a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3703	3804	
==>n that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3703	3804	
==>n that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	31	126	
==>asy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	31	126	
==>asy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does <==
2	/Users/nnunley/pugs/util/grokprims.pl	2299	2396	
==>nt "<td><table border='1' width='100%'><tr>";
  foreach my $arg (@{$op->{args}}) {
    print "<td> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4015	4116	
==>ompatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersect <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4015	4116	
==>ompatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersect <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3818	3966	
==>{
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumper::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2804	2915	
==>e_object(digit => 1)) if $cc;
    return $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11210	11318	
==>$key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11210	11318	
==>$key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4361	4467	
==>6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4361	4467	
==>6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimization <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4127	4237	
==>(JSX::PsuedoValue $V) { $V }
method GetValue (JSX::InternalValue::Reference $V) {
    my $Result2 = GetBase($V) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7165	7383	
==>tar(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7358	7576	
==>tar(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	7	104	
==>t::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	7	104	
==>t::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5072	5165	
==>:?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5072	5165	
==>:?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24898	25037	
==>@{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21319	21458	
==>@{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	835	940	
==>turns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	835	940	
==>turns Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1782	1922	
==>ebug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1782	1922	
==>ebug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	591	686	
==>vite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	591	686	
==>vite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, th <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3914	4011	
==>ate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( y <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3914	4011	
==>ate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( y <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1064	1195	
==>: argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1064	1195	
==>: argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rat <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	769	873	
==>x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_half_odd (Num $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	516	615	
==>sses", "Set", { companion => "superclasses" });

# every Meta::Class is a part of an object model ob <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21118	21217	
==>our
distribtution precompiled. This means that people who install your
module distribtution do not n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21118	21217	
==>our
distribtution precompiled. This means that people who install your
module distribtution do not n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40110	40327	
==>returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19659	19867	
==>returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23961	24057	
==>L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23961	24057	
==>L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18321	18415	
==>de heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18321	18415	
==>de heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next, the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2799	2926	
==>icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2799	2926	
==>icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # sma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2138	2235	
==>perly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour' <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2138	2235	
==>perly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1164	1269	
==>";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1163	1260	
==>";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6540	6670	
==>rms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6733	6863	
==>rms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ru <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15516	15652	
==>st->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on separate lines on VMS <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1355	1463	
==>v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_wi <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1334	1469	
==>$path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1301	1436	
==>$path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6044	6155	
==>h like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6056	6167	
==>h like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4400	4502	
==>data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4585	4687	
==>data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20856	20963	
==>ecommend above all others for production use.

Most of the other (near term) third party Engines will likely <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20856	20963	
==>ecommend above all others for production use.

Most of the other (near term) third party Engines will likely <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10562	10660	
==>me'=>$namestr," if $name;
    $code_args .= "'\$.params'=>$code_params,";
    $code_args .= "'\$.bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36743	36845	
==>elation::Example>

This multi-method is a generic binary relational operator that is like
C<union> exce <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37243	37345	
==>elation::Example>

This multi-method is a generic binary relational operator that is like
C<union> exce <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1966	2063	
==>ity is a thin wrapper around Test::Harness.

=head2 Taint mode

Test::Harness will honor the C<-T> <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2145	2248	
==>_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <s <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2145	2248	
==>_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6775	6893	
==>decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6775	6893	
==>decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any data the cipher needs to add <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5574	5700	
==>-verbose, -v     print progress to stderr
    --touch,   -t     mark Run.hi and Run.o stale, triggering pugs rebuild
    --outp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9181	9307	
==>@{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11496	11622	
==>@{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2524	2644	
==>use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2441	2557	
==>use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @no <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4730	4827	
==>2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4730	4827	
==>2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17219	17390	
==>' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17219	17390	
==>' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enume <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6996	7106	
==>'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6996	7106	
==>'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5737	5952	
==>that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6201	6416	
==>that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3000	3104	
==>UG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DE <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3000	3104	
==>UG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DE <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15815	15924	
==>sed on the length of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6855	6968	
==>l => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6855	6968	
==>l => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10319	10431	
==>created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= A <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10319	10431	
==>created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= A <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8892	9005	
==>e the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8892	9005	
==>e the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4631	4733	
==>ay()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4631	4733	
==>ay()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11907	12006	
==>using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11907	12006	
==>using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrenc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3420	3551	
==>age => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        pack <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4289	4411	
==>$j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.stat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4289	4411	
==>$j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.stat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17871	17966	
==>s->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14292	14387	
==>s->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->v <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1384	1517	
==>add_children(
                        Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num>).add_chil <==
2	/Users/nnunley/pugs/util/claim_drift.pl	809	934	
==>FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = File::Spec->canonpath(File::Spec->rel2abs($_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	436	553	
==>LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contain <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	436	553	
==>LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contain <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21152	21250	
==>ould use
associated keys internally.

It is strongly suggested (but not required) that each Perl pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21152	21250	
==>ould use
associated keys internally.

It is strongly suggested (but not required) that each Perl pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8830	8922	
==>r::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2655	2747	
==>r::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8702	8820	
==>ch::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8690	8808	
==>ch::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1178	1342	
==>ent_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1383	1547	
==>ent_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4501	4641	
==>if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4489	4629	
==>if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1767	1881	
==>nfix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1767	1881	
==>nfix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16955	17109	
==>block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17234	17388	
==>block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1467	1597	
==>, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1467	1597	
==>, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$ma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	905	1030	
==>slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	905	1030	
==>slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1665	1824	
==>Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1665	1824	
==>Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1975	2078	
==>'Blondie::Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11247	11341	
==>includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11247	11341	
==>includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	233	359	
==>nly start at a line start

BEGIN {
    __PACKAGE__->add_rule(
        "=begin" => q(
                #{ print "pod - $_[0]\n" } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9193	9340	
==>%hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9193	9340	
==>%hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %hash.delete('port');
                my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10007	10184	
==>d clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10007	10184	
==>d clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20594	20689	
==>l of
their class/object attributes are private, so you must use accessor
methods.  Relation does <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25146	25241	
==>l of
their class/object attributes are private, so you must use accessor
methods.  Relation does <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1763	1877	
==>rn Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1763	1877	
==>rn Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4128	4248	
==>, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4128	4248	
==>, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines wi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20698	20866	
==>&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20977	21145	
==>&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1169	1273	
==>::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no pare <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1169	1273	
==>::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no pare <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1162	1264	
==>iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1162	1264	
==>iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5627	5772	
==>$v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5849	5994	
==>$v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22239	22332	
==>ace) ; C = 11), !. %\v chr(11)

case_insensitive_char_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)) <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1050	1174	
==>::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1017	1141	
==>::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get pa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5605	5700	
==>tion you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get docume <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5605	5700	
==>tion you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get docume <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28652	28749	
==>u
to make modules having a specific simple API that will serve their role.

For example, inside th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28652	28749	
==>u
to make modules having a specific simple API that will serve their role.

For example, inside th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23214	23335	
==>rn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19635	19756	
==>rn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	468	579	
==>---------------------------------------------------------------------

use Test::More tests => 46;

{
    use Ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2062	2169	
==>"' . display ($x) . '"' : 'undef';
};

# keys are the codes \n etc map to, values are 2 char strings such as <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2388	2479	
==>://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mai <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2388	2479	
==>://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mai <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8779	8878	
==>xt Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<strin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8779	8878	
==>xt Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<strin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17381	17478	
==>e
benefits to developers and users alike.

For some practical examples of Locale::KeyedText in use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17381	17478	
==>e
benefits to developers and users alike.

For some practical examples of Locale::KeyedText in use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6119	6245	
==>closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5924	6044	
==>closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2803	2924	
==>crypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2803	2924	
==>crypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C< <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	704	808	
==>, %.3f binding, %.3f execution)\n", $t6 - $t1, $t2 - $t1, $t3 - $t2, $t4 - $t3, $t5 - $t4, $t6 - $t5;

pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9325	9437	
==>ize()`

Return the "size" of the set.

For example: if `start` and `end` are times, then `size` will be a duratio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9325	9437	
==>ize()`

Return the "size" of the set.

For example: if `start` and `end` are times, then `size` will be a duratio <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1796	1923	
==>events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1796	1923	
==>events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25297	25409	
==>haracter>
    | <'.'>
    | <'\\'> <AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunction> <')'>
    | <'(? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8509	8608	
==>-
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8509	8608	
==>-
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rosetta:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2437	2532	
==>ess $self->author;
    $self->license_from($file)  unless $self->license;
    $self->abstract_fr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4508	4608	
==>r example: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

T <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4508	4608	
==>r example: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

T <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1558	1658	
==>e, layout($.param)) }
type::operator::nary: level($.param) = { level($$) }

ROOT: level($$) = { 0 }
t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1287	1387	
==>long the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedura <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1287	1387	
==>long the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedura <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1960	2079	
==>"\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1960	2079	
==>"\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3588	3706	
==>mall u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, di <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3588	3706	
==>mall u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5923	6044	
==>on( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in which we store some local
    # command def <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5923	6044	
==>on( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in which we store some local
    # command def <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	213	311	
==>::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
up <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	213	311	
==>::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
up <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23999	24124	
==>))          
          ($self: send (MRO))))
     ($self: get_attr (symbol new @:superclasses)))

=cut

$::Class->send('add_me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6232	6345	
==>ck to Class
$::Class->change_class($::Class);

=pod

method add_method (opaque $self: symbol $label, method $metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6573	6785	
==>ompatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6573	6785	
==>ompatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9730	9834	
==>e following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9730	9834	
==>e following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Heade <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	677	773	
==>ckwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	677	773	
==>ckwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16123	16221	
==>t chops each item in turn, and returns the last character
chopped.


=item chomp

 multi Str::chomp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	479	604	
==>nfess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# conversion to native value
sub to_nati <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1111	1226	
==>require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, P <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1078	1193	
==>require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3550	3660	
==>emplate]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLAS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3550	3660	
==>emplate]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLAS <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	486	605	
==>mport')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	486	605	
==>mport')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2455	2556	
==>y_string;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also contain <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2455	2556	
==>y_string;

=head1 DESCRIPTION

An object of this class represents a client's request.  It also contain <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2980	3080	
==>.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2980	3080	
==>.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $. <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19659	19847	
==>ding\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::File->new(">$synhtml") 
                             or die " <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2507	2609	
==>ss should not inherit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to b <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2507	2609	
==>ss should not inherit from Perl6::Value::List, because this would
# cause multi-dimensional arrays to b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10158	10311	
==>ation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $test ( grep { $_->package ne $inst_pkg->packa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2372	2488	
==>egin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ changin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2284	2395	
==>egin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ changin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7085	7187	
==>, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7143	7245	
==>, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, St <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	313	417	
==>on         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	313	417	
==>on         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13622	13743	
==>s and you
find there is some language feature missing, or core bug that needs to
be sorted out before you can continue.

I <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13680	13801	
==>s and you
find there is some language feature missing, or core bug that needs to
be sorted out before you can continue.

I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12197	12307	
==>o be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12197	12307	
==>o be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Requ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3629	3819	
==>1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3876	4066	
==>1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] , <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6742	6888	
==>s
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6799	6945	
==>s
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5867	5964	
==>l::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5867	5964	
==>l::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () returns Bool <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5951	6069	
==>eta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array') <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12245	12355	
==>c(char(C)) --> hexdigits4_int(C), !.
p6_hex_spec(char(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [O <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1146	1241	
==>over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1199	1294	
==>over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2832	2953	
==>rn "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2832	2953	
==>rn "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	99	195	
==>) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	99	195	
==>) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	98	221	
==>Y) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is expo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	98	221	
==>Y) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is expo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7469	7648	
==>t "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::varglobal {
   my $a = $_[0];
   $a =~ s/^(.)\*(.+)$/$1$2/;
   return $a;
}
sub node::variab <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	164	254	
==>a-Model with Self-Bootstrapping Roles
## -------------------------------------------------- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24816	24945	
==>kipmsg;
    }
    push @result, "\n";
    my $txt = join "", @result;
    ($txt, $canon);
}

=end _private

=back

=cut


1;
__END <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	268	373	
==>Emitters take a compiled program and serialize them into some format.

For example L<Blondie::Emitter::Pre <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10330	10436	
==>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:no <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10330	10436	
==>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1330	1459	
==>}
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1330	1459	
==>}
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3537	3679	
==>1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4386	4528	
==>1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1913	2039	
==>syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1913	2039	
==>syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	935	1051	
==>as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	935	1051	
==>as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3260	3363	
==>andle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3260	3363	
==>andle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1137	1246	
==>apture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3104	3262	
==>tion( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3104	3262	
==>tion( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, <==
2	/Users/nnunley/pugs/util/version_h.pl	1746	1854	
==>$revision != $old_revision) {
  # As we've closed STDIN (filehandle #0), slot #0 is available for new
  # fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22525	22657	
==>ew {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23027	23159	
==>ew {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	36	139	
==>ementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	36	139	
==>ementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14051	14161	
==>S($dispatcher) -> $c {
        for $c->get_attribute_list() -> $attr {
            %attrs{$attr->name} = $attr. <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	198	309	
==>nts : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our succes <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	198	309	
==>nts : You must specify a path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our succes <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19530	19628	
==>at an update is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19530	19628	
==>at an update is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7190	7300	
==>o fetch template text for the given message key from the
        # successfully loaded template module; on a fu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7190	7300	
==>o fetch template text for the given message key from the
        # successfully loaded template module; on a fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14076	14172	
==>-15)

%s matches null string many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LB <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	363	467	
==>fo name later? requires peeking in, might be a
    ### catch22 if we don't do it from repository metadata <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12981	13101	
==>handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12981	13101	
==>handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2181	2277	
==>lass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2181	2277	
==>lass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13326	13423	
==>affic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curserver <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13326	13423	
==>affic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curserver <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	124	221	
==>class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	124	221	
==>class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_se <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	325	450	
==>tent} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NA <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	325	450	
==>tent} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10871	11026	
==>e {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11021	11176	
==>e {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35624	35721	
==>en1, open2 ... openN (C<(>)

Data: array reference of any number of objects

Ender: I<close>

=hea <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11090	11184	
==>> for
comparisions. C<@by> differs from C<$by> in that each criteria is
applied, in order, unti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2125	2238	
==>::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2125	2238	
==>::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error" <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39713	39806	
==>n::Example>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Rela <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1901	2069	
==>grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2681	2849	
==>grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12345	12451	
==>t time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L< <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12345	12451	
==>t time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L< <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9095	9218	
==>ght; }

    .details  { display: none; }
    .expander { color: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17466	17605	
==>sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17466	17605	
==>sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30587	30683	
==>ust return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35138	35234	
==>ust return a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1806	1903	
==>ke_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparen <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	802	899	
==>ke_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26622	26722	
==>? )>

This method creates and returns a new Locale::KeyedText::Message object.
The Message Key attrib <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26622	26722	
==>? )>

This method creates and returns a new Locale::KeyedText::Message object.
The Message Key attrib <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4187	4285	
==>*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4187	4285	
==>*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3316	3475	
==>lags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3456	3615	
==>lags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	953	1082	
==>nsity, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	953	1082	
==>nsity, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	513	611	
==>pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::P <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	513	611	
==>pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	160	312	
==>ORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	160	312	
==>ORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5351	5458	
==>s.  The $url argument can
be either a simple string or a reference to a URI object.

You will not be able to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5351	5458	
==>s.  The $url argument can
be either a simple string or a reference to a URI object.

You will not be able to <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1545	1637	
==>::Node")){
			my $reduced = $self->SUPER::generic_reduce($node);
			return $self->constructor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10871	11019	
==>e = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::concat( <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	693	793	
==>implemented immediately.  Assume the existence of what would
  be useful, and we'll do it later.

=cu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2115	2221	
==>rt for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from P <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2115	2221	
==>rt for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from P <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6064	6159	
==>lback}->($self, $line, $type, $totals) if $self->{callback};

    $self->{'next'} = $result{numb <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17411	17514	
==>, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* reg <==
2	/Users/nnunley/pugs/util/package-osx.pl	6806	6903	
==>Perl6::Overview::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variable.3pm
        /usr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16362	16499	
==>);
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16362	16499	
==>);
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	958	1060	
==>tements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	958	1060	
==>tements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro defi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8853	8975	
==>harset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8853	8975	
==>harset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $st <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2936	3047	
==>PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2936	3047	
==>PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34045	34150	
==>herefore it would be represented in Perl with a
look-ahead around the left-hand branch: C</(?=x)y/>.  We c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14821	14940	
==>f ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14815	14934	
==>f ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq ' <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1126	1250	
==></) {
	    print "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    return;
	} elsif ( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	934	1022	
==>en("term:\\s", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21157	21274	
==>S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17578	17695	
==>S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15675	15774	
==>r often prefers to
communicate in those languages.  Or, when viewing an error message, the
applicati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15675	15774	
==>r often prefers to
communicate in those languages.  Or, when viewing an error message, the
applicati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22199	22409	
==>p::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22478	22688	
==>p::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2713	2828	
==>, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal an <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2771	2886	
==>, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal an <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9621	9742	
==>bership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smart <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9621	9742	
==>bership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smart <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21563	21661	
==>> <')'> <Statement>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><no_LineTermina <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	662	839	
==>\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone tok <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	662	839	
==>\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone tok <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	465	571	
==>meClass"));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every variable in Perl 6 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19877	19963	
==>jsan_module_noimp := &PIL2JS::Internals::use_jsan_module_imp;

sub PIL2JS::Internals::u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18530	18650	
==>AIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18530	18650	
==>AIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26183	26283	
==>g used with (others are ignored).  Each variable name can be any
defined and non-empty string, and ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26183	26283	
==>g used with (others are ignored).  Each variable name can be any
defined and non-empty string, and ea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8240	8361	
==>ef - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - the " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7963	8080	
==>ef - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - the " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19057	19157	
==>_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19057	19157	
==>_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4145	4229	
==>erface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4145	4229	
==>erface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::In <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	254	385	
==>:$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    m <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	254	385	
==>:$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	825	990	
==>t(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	825	990	
==>t(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	85	195	
==>de = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_f <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	85	195	
==>de = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22907	23006	
==>ng(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Mapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27459	27558	
==>ng(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Mapp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12070	12174	
==>METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12070	12174	
==>METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9463	9569	
==>azy recurrences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `intersects( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9463	9569	
==>azy recurrences, it may not be possible to calculate the 
set size.

- `contains( $object )` / `intersects( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1405	1521	
==>L $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expres <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1405	1521	
==>L $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expres <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2545	2650	
==>s));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2545	2650	
==>s));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	754	859	
==>s part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	754	859	
==>s part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8801	8923	
==>int "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8797	8919	
==>int "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7448	7547	
==>same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directori <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7448	7547	
==>same
    my @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directori <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25811	25912	
==>fined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This conta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25811	25912	
==>fined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This conta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29053	29235	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29332	29514	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4047	4182	
==>%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4047	4182	
==>%]?(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5584	5717	
==>35),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5584	5717	
==>35),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11880	11979	
==>or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norsk <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11880	11979	
==>or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norsk <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	659	789	
==>?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	659	789	
==>?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2573	2663	
==>.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2573	2663	
==>.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5121	5223	
==>$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5121	5223	
==>$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as p <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11815	11946	
==>self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	224	350	
==>self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    d <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4050	4154	
==>$day )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The v <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4050	4154	
==>$day )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

The v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	615	799	
==>value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	615	799	
==>value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1607	1735	
==>e accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1607	1735	
==>e accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23108	23207	
==>ays seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("... <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23108	23207	
==>ays seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("... <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	917	1047	
==>.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	917	1047	
==>.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an o <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1259	1369	
==>$self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1259	1369	
==>$self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5922	6028	
==>d get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argum <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5922	6028	
==>d get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4732	4847	
==>_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4732	4847	
==>_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30793	30905	
==>Name comes first and makes up most of the module name; it
must be the same for every module in the same set as th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30793	30905	
==>Name comes first and makes up most of the module name; it
must be the same for every module in the same set as th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4584	4743	
==>ken {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4584	4743	
==>ken {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	830	947	
==>_}\n" }
        sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $config_default    = 'config.ym <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36661	36756	
==>plate corresponding to the Message could be
found using the Translator object's Set and Member p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36661	36756	
==>plate corresponding to the Message could be
found using the Translator object's Set and Member p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13205	13335	
==>nstant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13205	13335	
==>nstant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_str <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6483	6622	
==>code($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6483	6622	
==>code($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7459	7703	
==>True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7459	7703	
==>True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9001	9112	
==>f the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=bac <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9001	9112	
==>f the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=bac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2117	2234	
==>> $_[2], exp2 => $_[3] } }
    | IF exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	848	953	
==>XX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	848	953	
==>XX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $on <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2140	2235	
==>self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1250	1341	
==>self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37633	37744	
==>le( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positional parameter
$modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37633	37744	
==>le( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its positional parameter
$modul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16464	16593	
==>, and potential
parameters will be chopped off and returned as a separate value if in
an array context.  If there is no such heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16464	16593	
==>, and potential
parameters will be chopped off and returned as a separate value if in
an array context.  If there is no such heade <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14655	14751	
==>planned for this module.

- better error handling for cmp_ok

The error handling capabilities nee <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14713	14809	
==>planned for this module.

- better error handling for cmp_ok

The error handling capabilities nee <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6259	6405	
==>num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit_chunk();
            exit 0;
        }
    }
    $self->gath <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11124	11233	
==>ce {  # see 9.3.1
      <StrWhiteSpaceChar> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <TA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9175	9300	
==>method BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encry <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9175	9300	
==>method BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encry <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8637	8732	
==>insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8637	8732	
==>insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12627	12784	
==>_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  step
    descr  => "Copying shared libraries to \"$initrd_mnt/l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7048	7151	
==>rit_grammar  { die "not implemented" };
sub merge_category   { die "not implemented" };
sub code  { di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3751	3902	
==>lay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($respon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3751	3902	
==>lay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($respon <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22755	22848	
==>chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22755	22848	
==>chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	138	241	
==>terface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || die "M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	138	241	
==>terface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || die "M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19785	19920	
==>.= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16206	16341	
==>.= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10460	10565	
==>serted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10460	10565	
==>serted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1017	1192	
==>s} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detectio <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1017	1192	
==>s} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detectio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4108	4355	
==>odule Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4108	4355	
==>odule Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
L <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1101	1212	
==>igest;

	$cache{$sha1} ||= $self->generate_inline_c($c_code);
}

my $i;
sub generate_inline_c {
	my $self = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1859	1997	
==>${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1859	1997	
==>${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exis <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13001	13098	
==>et a plausibly scoped alternative working.

  Using $/ might be non-trivial, as only some forms of <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1	84	
==>line 1 "inc/Module/Install/Makefile.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4178	4276	
==>atch has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4178	4276	
==>atch has
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1038	1151	
==>untime associated.
Then, 
  - aid in prototyping the regexp system - the regexp tree, its
  compilation to pil, ho <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2051	2151	
==>d1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_reg <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2051	2151	
==>d1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_reg <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7202	7393	
==>@params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pSubType"> );
            # types: SubMethod, ...
        dbg "# Name:       "; my $na <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20728	20849	
==>> comb(
			fun => comb(
				fun => ide("fac'"),
				param => ide("x"),
			),
			param => val(1),
		),
	),
);

my $length = <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2837	2942	
==>s a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> availab <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2837	2942	
==>s a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> availab <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2235	2335	
==>d, most "autotags" will be too.

When activated, the special tag C<:all> will cause all tracing messa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2235	2335	
==>d, most "autotags" will be too.

When activated, the special tag C<:all> will cause all tracing messa <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3034	3133	
==>thod does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5236	5335	
==>thod does not exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4661	4817	
==>op();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4661	4817	
==>op();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1874	2007	
==>ord
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1934	2067	
==>ord
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13236	13394	
==>!= 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13230	13388	
==>!= 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5222	5351	
==>"skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $rea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5280	5409	
==>"skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $rea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32315	32411	
==>s Template modules to come
from Perl modules, but in the future they may alternately be something <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32315	32411	
==>s Template modules to come
from Perl modules, but in the future they may alternately be something <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10412	10495	
==>Named, isLValue=>$isLValue, isWritable=>$isWritable, isLazy=>$isLazy, paramName=>$pa <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1984	2086	
==>nted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to result <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1984	2086	
==>nted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added to result <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	443	558	
==>rl} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	410	525	
==>rl} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10410	10511	
==>pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Fla <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10410	10511	
==>pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Fla <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13525	13643	
==>= Pod::PlainText->new(width => 1000);

    mkpath(my $syndir = catdir($output_dir, "Synopsis"));
    
    for my $syn ( <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	881	971	
==>der::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	881	971	
==>der::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20235	20325	
==>$event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callbac <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20235	20325	
==>$event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callbac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	313	417	
==>rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	313	417	
==>rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16915	17011	
==>des attribute (that
attribute defaults to empty if the corresponding argument is undefined).

Som <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16915	17011	
==>des attribute (that
attribute defaults to empty if the corresponding argument is undefined).

Som <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	52	151	
==>RSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	52	151	
==>RSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2911	3053	
==>,
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2922	3064	
==>,
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quan <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5991	6095	
==>if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applie <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5991	6095	
==>if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only applie <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23198	23290	
==>it, which could
produce ambiguous results or associations.  Or alternately, the other
package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23198	23290	
==>it, which could
produce ambiguous results or associations.  Or alternately, the other
package <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2601	2716	
==>= $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2601	2716	
==>= $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13343	13468	
==>->as_perl5_str },
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_str_handlers{$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7620	7731	
==>ass .CCLASS_NUMERIC, target, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr tar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12684	12840	
==>RI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12684	12840	
==>RI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12598	12700	
==>.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12598	12700	
==>.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	751	865	
==>:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        re <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	751	865	
==>:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2366	2496	
==>INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2366	2496	
==>INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6259	6366	
==>ls and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6259	6366	
==>ls and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4878	4983	
==>ms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5071	5176	
==>ms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	912	1043	
==>le',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Go <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	912	1043	
==>le',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Go <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11466	11562	
==>not
interact with the outside environment at all.

A Document object has 2 main attributes:

=ove <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11466	11562	
==>not
interact with the outside environment at all.

A Document object has 2 main attributes:

=ove <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	992	1120	
==>tput')->write($footer) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{_('@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	355	472	
==>= shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	355	472	
==>= shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4830	4987	
==>p{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4830	4987	
==>p{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6701	6854	
==>ent = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6701	6854	
==>ent = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7942	8060	
==>parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7942	8060	
==>parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CO <==
2	/Users/nnunley/pugs/util/func_refact.pl	105	206	
==>|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n filen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9203	9333	
==>}

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11518	11648	
==>}

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	659	804	
==>last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::RuleCompi <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1605	1706	
==>AND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1445	1546	
==>AND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	288	401	
==>ry_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloadi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	288	401	
==>ry_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloadi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1357	1450	
==>hmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1357	1450	
==>hmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2028	2153	
==>se);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2028	2153	
==>se);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5983	6120	
==>= "my($varlist)$init;";
    }
    elsif($sn eq 'our') {
	warn "our PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	war <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17601	17698	
==>and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error cond <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17601	17698	
==>and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error cond <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4572	4698	
==>ng => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4416	4537	
==>ng => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1112	1230	
==>,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1123	1241	
==>,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	672	828	
==>[] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attri <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16045	16148	
==>( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19522	19625	
==>( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relation <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19423	19505	
==>tE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19423	19505	
==>tE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36302	36424	
==>ber of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: tail

=head2 suspend

Family: assertion

Types: suspend (C< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5220	5316	
==>em get($url)

The get() function will fetch the document identified by the given URL
and return i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5220	5316	
==>em get($url)

The get() function will fetch the document identified by the given URL
and return i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2281	2384	
==>bug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2281	2384	
==>bug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6889	7015	
==>i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arr <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5393	5519	
==>i < $listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21644	21799	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21923	22078	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	805	925	
==>he capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	805	925	
==>he capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5534	5649	
==>ou are accessing the web using this
function.  If you need that information you should use the full OO
interface (se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5534	5649	
==>ou are accessing the web using this
function.  If you need that information you should use the full OO
interface (se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15668	15769	
==>ne this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15668	15769	
==>ne this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24441	24546	
==>tion.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of the GNU Gener <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24441	24546	
==>tion.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of the GNU Gener <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33481	33582	
==>in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Mem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33481	33582	
==>in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names> - B<Mem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	406	514	
==>eName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	406	514	
==>eName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1414	1533	
==>ad of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy Li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1414	1533	
==>ad of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy Li <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8254	8366	
==>-r $initrd_gz and
      -M $initrd_gz <= -M $pugs and
      -M $initrd_gz <= -M "$parrot_path/parrot" and
      - <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6897	7039	
==>some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6897	7039	
==>some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12010	12112	
==>his module requires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the Tree

If <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10026	10136	
==>d_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10026	10136	
==>d_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7003	7100	
==>t "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7015	7112	
==>t "generated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1295	1417	
==>nction, C<note>, which is called with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C< <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1295	1417	
==>nction, C<note>, which is called with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C< <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1585	1705	
==>maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1496	1598	
==>maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2248	2421	
==>ull',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10840	10941	
==>rst Object singleton/class method called by Bar');      
  
is($Bar->singleton_test_on_Foo(), 
   '&Fo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1366	1476	
==>se, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1366	1476	
==>se, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8674	8774	
==>something?

maybe just overload bool to false ;)

(I mean, seriously, because that's what p6 does)

a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8386	8483	
==>something?
maybe just overload bool to false ;)
(I mean, seriously, because that's what p6 does)
a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4829	5005	
==>roject_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.siz <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8306	8482	
==>roject_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.siz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3166	3422	
==>::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Interface::V <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3166	3422	
==>::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Interface::V <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	665	797	
==>D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.n <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	665	797	
==>D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.n <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	259	388	
==>set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	259	388	
==>set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	118	248	
==>turns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	118	248	
==>turns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is exp <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	353	462	
==>= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span o <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	353	462	
==>= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are available for Set::Span o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4004	4149	
==>)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4004	4149	
==>)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of Str
        # List of Template modu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8699	8824	
==>untered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8699	8824	
==>untered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This ev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6299	6415	
==>rn join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#--- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6311	6427	
==>rn join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#--- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15388	15502	
==>chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^O eq 'VMS') { $te =~ s/^.*\.t\./\[.t./s; }
    my $blank = (' ' x 77 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12404	12499	
==>HANDLING

=head2 Determining Error

Use the errmsg() and errnum() methods to get the error infor <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3898	4008	
==>e_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3898	4008	
==>e_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30598	30726	
==>a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rath <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35149	35277	
==>a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rath <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7992	8103	
==>ional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7719	7825	
==>ional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9518	9617	
==>&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9518	9617	
==>&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4795	4899	
==>etta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Cre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4795	4899	
==>etta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Cre <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2542	2641	
==>t yet have object support, this module is more like the
Perl 5 File::Spec::Functions module than the <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2542	2641	
==>t yet have object support, this module is more like the
Perl 5 File::Spec::Functions module than the <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9567	9683	
==>nfinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9567	9683	
==>nfinite object
    $non_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1839	1954	
==>. " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1839	1954	
==>. " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6061	6167	
==>ead1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 S <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6061	6167	
==>ead1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9587	9687	
==>h.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9587	9687	
==>h.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5232	5346	
==>annels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5232	5346	
==>annels>.delete($chan) for %!cache353{$chan}.keys;
    });

    # We track our status, especially the channels we've <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2658	2764	
==>$field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2658	2764	
==>$field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19978	20105	
==>$type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16399	16526	
==>$type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{ne <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11442	11533	
==>em>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11442	11533	
==>em>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.memb <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9992	10164	
==>+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { requ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9992	10164	
==>+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { requ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9530	9617	
==>C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9530	9617	
==>C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	981	1086	
==>, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quanti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	981	1086	
==>, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quanti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12479	12585	
==>o get the error information.

To see if an error is a particular one, use the error_is() method:

  if ($pa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17319	17435	
==>acklink->push_content(abs2rel($source, $output_dir));
                $h->push_content($backlink);
                my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7285	7374	
==>rammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1110	1199	
==>rammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35639	35734	
==>turns Relation::Example>

This multi-method is a generic binary relational operator that takes a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39832	39927	
==>turns Relation::Example>

This multi-method is a generic binary relational operator that takes
a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21155	21266	
==>ual {
    my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  package Regexp::Parser::assertion;
  push @ISA, <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	640	742	
==>Program path is @{[Cwd::abs_path($FindBin::Bin)]}
*** Please report this issue to <perl6-compiler\@perl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4847	4968	
==>ot ok';
            my $description = "# TODO " . _('$.description');
            return join(' ', $ok, _('$.number'), $de <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6517	6634	
==>@params =   traverse_ast ( %pad<"pParams"> );
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pType" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12185	12294	
==>{
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ? <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12185	12294	
==>{
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10287	10388	
==>or %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10287	10388	
==>or %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8378	8487	
==>you either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If how <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8378	8487	
==>you either add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If how <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19454	19550	
==>e said separate resource files, and not change
your main program.

I<Note that an update is plann <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19454	19550	
==>e said separate resource files, and not change
your main program.

I<Note that an update is plann <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21150	21244	
==>annels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21150	21244	
==>annels C<nick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	675	782	
==>>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	675	782	
==>>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3296	3434	
==>ree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3296	3434	
==>ree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9742	9874	
==>tmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9742	9874	
==>tmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	188	295	
==>Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	188	295	
==>Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5535	5648	
==>matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combina <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5535	5648	
==>matchy.multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combina <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3176	3281	
==>sect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3176	3281	
==>sect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2730	2838	
==>es );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2730	2838	
==>es );
}

method intersects ( Set::Infinite::Functional $set ) returns bool {
    # TODO - optimize
    my @re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1180	1328	
==>turn;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1180	1328	
==>turn;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6245	6377	
==>[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub befor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6245	6377	
==>[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub befor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16280	16380	
==>m for
applications and packages that empowers single binaries to support N
locales or user types simu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16280	16380	
==>m for
applications and packages that empowers single binaries to support N
locales or user types simu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8646	8752	
==>ch[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8634	8740	
==>ch[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20076	20163	
==>E<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20076	20163	
==>E<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4137	4248	
==>in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4354	4465	
==>in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5444	5604	
==>ndefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5444	5604	
==>ndefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open () ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1209	1307	
==>Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if lengt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1209	1307	
==>Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if lengt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	675	822	
==>)
        if exists $param->{P5} || exists $param->{Perl5};

    my $self = { source => $rule_source };

    #print Dumper @_;

    # XXX - should u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2339	2510	
==>new           :
            $args->{installation}   
                ? JIB::Package::Installed->Object::Accessor::new        :
            JIB::Package::Binary->Object::Acc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1323	1440	
==>tchet';
        while ( $state[0] <= $#$nodes ) {
            $state[1] = $nodes->[ $state[0] ]->( $_[0], $state[1], <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7388	7494	
==>[1];

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_direct <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7388	7494	
==>[1];

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path_direct <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1015	1163	
==>" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1023	1162	
==>" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12806	12904	
==>n be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For examp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12806	12904	
==>n be either `:int` or `:density($size)`.

The unit specifier is used for several things. 
For examp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13486	13659	
==>>{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2398	2517	
==>f->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

__PACKAGE__;

__END__

=pod

=head1 NA <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29271	29378	
==>) CALLREGFREE(aTHX_ re)

 #define FBMcf_TAIL_DOLLAR       1
 #define FBMcf_TAIL_DOLLARM      2
 #define FBMc <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	543	636	
==>thod addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$n <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	543	636	
==>thod addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	441	543	
==>xists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters" <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	441	543	
==>xists<source> and %att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1482	1607	
==>],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1493	1618	
==>],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2411	2567	
==>{(${re_symbol})}/\$.$1/g;
           $c =~ s/\$self->/\$./g;
       }
       $_ = $` . 'sub ' . $n . $c . $';
    }
}




conv_package {
    s/package\s+((?: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	366	506	
==>$n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45497	45638	
==>method' => (
    # method label
        symbol->new('name'),
    # method body
        method->new(
            $::ENV,
            method::si <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1261	1378	
==>on.';
  }
}

=head1 NAME

POE - Perl Object Environment for Perl 6

=head1 SYNOPSIS

  class MySession is POE::Session <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15828	15944	
==>min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10684	10800	
==>min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self-> <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2222	2343	
==>ld not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yam <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16423	16519	
==>ssion> <'==='> <RelationalExpression>
    | <EqualityExpression> <'!=='> <RelationalExpression>
} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3157	3263	
==>lled at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.dec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3157	3263	
==>lled at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.dec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10286	10382	
==>ata) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10286	10382	
==>ata) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3766	3895	
==>{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3766	3895	
==>{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10213	10333	
==>m{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32933	33030	
==>he walking stack before the node
is returned.  Here is the walk() method for all the quantifier an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15903	16004	
==>r $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $pa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15903	16004	
==>r $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7723	7839	
==>ent_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7723	7839	
==>ent_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4339	4485	
==>chet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4479	4625	
==>chet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspac <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	354	474	
==>gs');
    copy_all("$_/blib/", 'blib6/pugs/perl5') for <perl5/*>;
    copy_all("$_/blib6/", 'blib6/pugs/perl6') for <perl <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17808	17903	
==>::Structure::Util qw/signature/;;
    return  signature($thunk);
    Digest::SHA1::sha1_hex($cla <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	725	859	
==>date is now "2005-02-06 17:52:06"
  my $time = Time::Piece->strptime($date, "%Y-%m-%d %H:%M:%S");
  push @commits,    $time;
  push @de <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	97	228	
==>pm"
package Module::Install::Fetch;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	505	677	
==>\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5491	5665	
==>s(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5491	5665	
==>s(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	154	245	
==>Block | SubPrim
enum SubType «SubMethod SubRoutine SubBlock SubPrim»;
has SubType $.subTyp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18416	18510	
==>ine> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18416	18510	
==>ine> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.cur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	768	877	
==>de: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	856	965	
==>de: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8463	8613	
==>rif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      paddin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	264	373	
==>:Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

# XXX - PCR is not calling this
*ws = &Pugs: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8571	8680	
==>teger {  # see 7.8.3
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	197	313	
==>ml>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	197	313	
==>ml>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2282	2414	
==>a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2282	2414	
==>a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6606	6710	
==>" use by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or eq <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6606	6710	
==>" use by the Span class. 
For a more complete API, see `Span`.

The `start` value must be less than or eq <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2258	2408	
==>.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2258	2408	
==>.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15446	15576	
==>hannel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15446	15576	
==>hannel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $ch <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4778	4876	
==>=> $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $di <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4778	4876	
==>=> $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $di <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1734	1843	
==>s is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1734	1843	
==>s is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16946	17080	
==>ments, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17225	17359	
==>ments, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       , <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1021	1117	
==>bject-oriented interfaces.  The 
functional and object-oriented interfaces both follow the same b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1021	1117	
==>bject-oriented interfaces.  The 
functional and object-oriented interfaces both follow the same b <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	250	364	
==>porter;
# @EXPORT_OK = qw(node head tail drop upto upfrom show promise
#                 filter transform merge lis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3692	3944	
==>essage

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3692	3944	
==>essage

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2374	2469	
==>r.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns Bo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2374	2469	
==>r.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns Bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2873	2982	
==>_;
  local $self->{tree};
  $self->warn($enum, $err, @args);
}


sub next {
  my ($self) = @_;
  croak "no reg <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1173	1264	
==>:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\n", "term:", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2874	2975	
==>ariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))->co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2874	2975	
==>ariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))->co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	131	237	
==>::Util 'blessed';
use Carp 'confess';

use base 'type';

# equality

sub equal_to     { confess 'You must o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2197	2317	
==>quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2197	2317	
==>quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantif <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	600	704	
==>me keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	600	704	
==>me keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	989	1106	
==>ub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%stru <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1653	1770	
==>ub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%stru <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3259	3366	
==>erse {
    my $self = shift;
    list->new(CORE::reverse(@{$self}));
}

## list iterators

sub each : method <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	111	212	
==>K = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some norma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	111	212	
==>K = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some norma <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2377	2497	
==>ncludes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.siz <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2377	2497	
==>ncludes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.siz <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6463	6563	
==>ipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6463	6563	
==>ipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	476	582	
==>my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	476	582	
==>my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1237	1408	
==>$field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1237	1408	
==>$field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8439	8534	
==>y contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8439	8534	
==>y contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2331	2452	
==>], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3112	3233	
==>], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $te <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6905	7057	
==>nt
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6905	7057	
==>nt
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($pat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2164	2378	
==>ta[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2164	2378	
==>ta[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add c <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	495	604	
==>e. get an event from @:events and call it.
  my method step () {
    return unless @:events;

    my $callback <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31008	31106	
==>ccessible via
C<< $obj->{...} >>):

=over 4

=item rx

The parser object with which it was created. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16080	16231	
==>,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16074	16225	
==>,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21805	21902	
==>nStatement :words {  # see 12.9
      <'return'><no_LineTerminator_here><Expression>? <';'>
}
rule <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6322	6441	
==>}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6322	6441	
==>}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7335	7430	
==>'=begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7335	7430	
==>'=begin' directive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1675	1808	
==>ath[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # tak <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1675	1808	
==>ath[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # tak <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	164	266	
==>POD benutzen:

#!\begin{block}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	76	175	
==>.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	76	175	
==>.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cip <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	276	374	
==>odefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	276	374	
==>odefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2345	2477	
==>uring_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2592	2724	
==>uring_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_term <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	862	960	
==>that this will allow interoperability with modules that
# do not inherit from Module::Compile but s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	862	960	
==>that this will allow interoperability with modules that
# do not inherit from Module::Compile but s <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	858	1006	
==>'$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user sub as value",
	},
	{
		ast => App(
			Val(
				T <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1920	2023	
==>::Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Node::Unit';

    package Blondie::Para <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23989	24077	
==>place,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Replace,T,T1).
ground_lis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	402	523	
==>:add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5862	5947	
==>lementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/li <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5862	5947	
==>lementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/li <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2743	2845	
==>ryption 
can be removed by XORing them together; you might not be able to derive the 
plaintext from th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2743	2845	
==>ryption 
can be removed by XORing them together; you might not be able to derive the 
plaintext from th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19099	19211	
==>RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15520	15632	
==>RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }x <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7156	7267	
==>ME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7156	7267	
==>ME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23549	23669	
==>fect the previous scope's flag values.  

Here is example code from the handler for C<(?ismx)> and C<(?ismx:...)>:

  # ( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13139	13256	
==>="indent3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> tes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25198	25293	
==>6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25198	25293	
==>6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1222	1330	
==>hing cleaner and simpler.  Even though it will
# likely lack R:P's nice error messages.


# Test suite:
#  re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20853	20960	
==>f an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25405	25512	
==>f an invoked routine simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Rel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2576	2719	
==>holder parameters
    Package     Perl 5 compatible namespace
    Module      Perl 6 standard namespace
    Class       Perl 6 standard class na <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16647	16770	
==>re some sample ASTs that need to be typed

# this is a function that expects an int and will emit an int
# add (int -> int - <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	158	263	
==>would not be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @te <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5593	5691	
==>le, and the algorithm is not optimized for speed yet.

=head1 METHODS

=head2 new ()

Class method. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1094	1210	
==>urn { stmt => '{'} } ));
    __PACKAGE__->add_rule(
        '}' => q( { return { stmt => '}'} } ));
    __PACKAGE__-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10677	10795	
==>zy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10677	10795	
==>zy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3770	3868	
==>these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3770	3868	
==>these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4102	4206	
==>dle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4102	4206	
==>dle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parse <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	126	246	
==>} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi s <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	126	246	
==>} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8517	8634	
==>`new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8517	8634	
==>`new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $sp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3116	3253	
==>"<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3116	3253	
==>"<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15911	16046	
==>(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpf <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1135	1228	
==>::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6263	6405	
==>es invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6263	6405	
==>es invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6100	6206	
==>ammar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5890	5993	
==>ammar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23674	23769	
==>st Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23674	23769	
==>st Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Roset <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3182	3294	
==>et::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3182	3294	
==>et::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) ret <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1328	1446	
==>` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which e <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1328	1446	
==>` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33874	33978	
==>nyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I<anyof_range>, I<anyof_class>

Neg: 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5257	5365	
==>_object(anyof_char_comp => "\t", '\T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3818	3937	
==>$val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3818	3937	
==>$val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3437	3527	
==>a($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3495	3585	
==>a($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depend <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	101	207	
==>e Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

use Carp 'confess <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1174	1273	
==>param("version") or $CGI->param("version") != VERSION) {
    print "Versions do not match!";
    exi <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	497	650	
==>gex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	497	650	
==>gex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29506	29608	
==>ious one.

=item my $o = $obj->omit()

=item my $o = $obj->omit(VALUE)

Whether this node is omitted fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19074	19173	
==>s the string "POSIX".  POSIX classes don't exist in a
regex outside of a character class, so I'm a l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1938	2050	
==>($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    bit <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	193	306	
==>ec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @args = grep !/^--[-\w]*prefix=$/, @ARGV;
my $prompt_reg <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26062	26157	
==>e being executed through the harness
or by any other means.

=item C<HARNESS_COLUMNS>

This valu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1968	2084	
==>.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1968	2084	
==>.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3946	4088	
==>de = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3946	4088	
==>de = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1172	1281	
==>bols and has

a main body closure. 



the Package part of the Module is simply a hash from strings

(symbol n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1120	1225	
==>bols and has
a main body closure. 

the Package part of the Module is simply a hash from strings
(symbol n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4814	4923	
==>are

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4814	4923	
==>are

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2665	2779	
==>k($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2665	2779	
==>k($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12159	12270	
==>+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12159	12270	
==>+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9913	10009	
==>d to as "immediate" and "deferred".  The immediate validations
are performed at the moment the us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9913	10009	
==>d to as "immediate" and "deferred".  The immediate validations
are performed at the moment the us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	403	498	
==>::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	403	498	
==>::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8164	8288	
==>to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be for 
pedestrian events like o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8164	8288	
==>to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be for 
pedestrian events like o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6552	6762	
==>$m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6552	6762	
==>$m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3385	3492	
==>$closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4067	4174	
==>$closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa('block')))
        || c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14530	14627	
==>so will it's
testing needs. This module will be the code support for those needs. The
following is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14588	14685	
==>so will it's
testing needs. This module will be the code support for those needs. The
following is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19443	19543	
==>ve to update said separate resource files, and not change
your main program.

I<Note that an update i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19443	19543	
==>ve to update said separate resource files, and not change
your main program.

I<Note that an update i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1818	2228	
==>(None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # Extern <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1818	2228	
==>(None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # Extern <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7335	7448	
==>OD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRIN <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7335	7448	
==>OD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRIN <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18649	18739	
==>exclusion (Relation::Example $other!) returns Relation::Example {
    return Relation::Exam <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	175	291	
==>fail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!mem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	175	291	
==>fail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!mem <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12047	12165	
==>n, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12047	12165	
==>n, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5508	5637	
==>ix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5508	5637	
==>ix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2448	2562	
==>= canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2448	2562	
==>= canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1115	1225	
==>$two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# remo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1115	1225	
==>$two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# remo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12083	12203	
==>rver if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12083	12203	
==>rver if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<han <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5982	6089	
==>_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside capture_closur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5794	5896	
==>_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside capture_closur <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2081	2261	
==>the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2081	2261	
==>the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1647	1791	
==>p.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1647	1791	
==>p.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	679	778	
==>e me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	679	778	
==>e me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7683	7837	
==>f $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            war <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7683	7837	
==>f $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            war <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8930	9114	
==>nd("has_method", $e->get("$label"))
                  ->and(
                      block->new($e, sub { 
                          my $e = shift; 
                          $e->set("$me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4296	4401	
==>Irix long doubles can have 2147483648 and 2147483648
        # that stringify to the same thing but are ac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6726	6833	
==>.template_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6726	6833	
==>.template_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6613	6711	
==>rn value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6613	6711	
==>rn value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identified by a U <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	169	283	
==>end::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	242	356	
==>end::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2297	2402	
==>if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "faile <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2275	2380	
==>if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "faile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4430	4531	
==>r/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4277	4376	
==>r/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9950	10059	
==>d_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_ro <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9950	10059	
==>d_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_ro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17286	17393	
==>t it subscribes to the
localization methodology that is described here, and hence provides these
benefits to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17286	17393	
==>t it subscribes to the
localization methodology that is described here, and hence provides these
benefits to <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8525	8654	
==>@{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8525	8654	
==>@{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3665	3778	
==>ts $x->{list} && $x->{op1} eq $op;
    return { op1 => $op, list => [ @x, $y ], assoc => 'list' };
}

sub emit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36869	36978	
==>n

=head2 logical

Family: assertion

Types: logical (C<(??{>)

Data: string with contents of assertion

=head <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1516	1607	
==>ilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIG <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1516	1607	
==>ilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIG <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	818	916	
==>:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns In <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	818	916	
==>:perl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns In <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10085	10274	
==>:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($kl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10085	10274	
==>:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($kl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2625	2746	
==>r {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2625	2746	
==>r {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	183	282	
==>say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = new Person;
name $person = "Jens";
$welt <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7210	7309	
==>ms,$body,$lvalue,$class) =
	@c{qw(name kind params body lvalue class)};
    # XXX - lvalue is ignore <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	327	441	
==>circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	335	449	
==>circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => ' <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4624	4732	
==>nstructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4624	4732	
==>nstructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23287	23392	
==>lation is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the nea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27839	27944	
==>lation is allowed to and/or has the
ability to mutate, and it is false if not.  Looking forward to the nea <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4011	4123	
==>ype);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	$self->define_named_block($node, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11499	11625	
==>in', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11499	11625	
==>in', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2474	2606	
==>inder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2380	2506	
==>inder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8875	8990	
==>mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to carry the same magic.



overload <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8581	8693	
==>mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to carry the same magic.

overload <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6045	6171	
==>od end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - th <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6045	6171	
==>od end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - th <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3289	3395	
==>er happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]> <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3289	3395	
==>er happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30579	30676	
==>ach distinct Message; each file can be
shared by multiple Messages but the whole module must repre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30579	30676	
==>ach distinct Message; each file can be
shared by multiple Messages but the whole module must repre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12816	12914	
==>od

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12816	12914	
==>od

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16305	16409	
==>t defaults to empty if the parameter's
corresponding argument is not provided).  If the optional named pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16305	16409	
==>t defaults to empty if the parameter's
corresponding argument is not provided).  If the optional named pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21780	21874	
==>on =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21780	21874	
==>on =E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4969	5176	
==>nt("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4969	5176	
==>nt("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2334	2444	
==>ude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2551	2661	
==>ude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	681	777	
==>ed, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@we <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	681	777	
==>ed, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@we <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3964	4059	
==>i sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NA <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3964	4059	
==>i sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NA <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6558	6652	
==>e_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6558	6652	
==>e_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpath <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6481	6596	
==>sa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6481	6596	
==>sa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3319	3431	
==>lete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3319	3431	
==>lete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7270	7424	
==>atch->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7270	7424	
==>atch->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3184	3324	
==>ammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3377	3517	
==>ammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7331	7434	
==>locks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully redu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7331	7434	
==>locks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully redu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2314	2433	
==>tr $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2314	2433	
==>tr $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7560	7720	
==>f );
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7560	7720	
==>f );
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.cu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15146	15286	
==>=> (
    # method label
        symbol->new('CREATE'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
2	/Users/nnunley/pugs/util/claim_drift.pl	116	218	
==>ries and they all use a shared DrIFT,
# you need to point symlinks to the current one if you want to re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24055	24144	
==>::operator::nullary->new("int") );
	is($type->stringify, "∀α. α → int", "pretty prin <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	115	222	
==>ule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]> <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	115	222	
==>ule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1626	1769	
==>lly by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1626	1769	
==>lly by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "T <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9187	9292	
==>( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_sup <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9187	9292	
==>( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_sup <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	765	928	
==>ent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	765	928	
==>ent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25964	26068	
==>th ampersands, and only if
the parser object is the first value in C<@_>.>  I made sure of this in
my cod <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4165	4264	
==>ddition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13165	13262	
==>AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `gr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13165	13262	
==>AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `gr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2612	2770	
==>_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2612	2770	
==>_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7951	8058	
==>s class represents an ordered set of spans.

The problem this class solves is when you need do perform "set" <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7951	8058	
==>s class represents an ordered set of spans.

The problem this class solves is when you need do perform "set" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9484	9581	
==>unpack = ('inf' => '100**100**100',
		  '-inf' => '-100**100**100',
		  'NaN' => '100**100**100/10 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1101	1252	
==>ainer = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2667	2781	
==>rence( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2667	2781	
==>rence( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12029	12154	
==>the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12029	12154	
==>the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13408	13518	
==>ctions is a way
to provide a comment that refers to another file or test which must be
made to pass before this <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13466	13576	
==>ctions is a way
to provide a comment that refers to another file or test which must be
made to pass before this <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	293	401	
==>rt ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::Tru <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	293	401	
==>rt ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::Tru <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20965	21075	
==>'else'> <Statement>
    | <'if'> <'('> <Expression> <')'> <Statement>
}
rule IterationStatement :words {  # see <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6671	6778	
==>$_ = shift;

  /JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js";
  /PIL-RUN/i and return "p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19509	19645	
==>nk to the top?
                # this is what you get at the moment
                push @bad_heading, "link in $source to $target does n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20889	21002	
==>$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not quite the right thing
    my($name)=@_;
    m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7378	7495	
==>RY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7378	7495	
==>RY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10623	10731	
==>lect a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argumen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10623	10731	
==>lect a record from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argumen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2178	2287	
==>erl_version;

    # The remaining probes read from POD sections; if the file
    # has an accompanying .pod, u <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5015	5112	
==>the object's internal state.  This should be called as the last 
step of enciphering.

=item C<fin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5015	5112	
==>the object's internal state.  This should be called as the last 
step of enciphering.

=item C<fin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31324	31421	
==>ou want modules from multiple
sets in the same disk directory.  In the first example, the Set Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31324	31421	
==>ou want modules from multiple
sets in the same disk directory.  In the first example, the Set Name <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38461	38556	
==>s
substituted for any occurance of its corresponding variable name that is
bounded by '<' and '> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38461	38556	
==>s
substituted for any occurance of its corresponding variable name that is
bounded by '<' and '> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24085	24180	
==>ion::Example Class

A Relation::Example object is an unordered set of tuples, each of which is a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1473	1582	
==>(($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6742	6904	
==>new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6742	6904	
==>new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6590	6721	
==>fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemente <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6590	6721	
==>fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemente <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	234	355	
==>$x + $delta) - $f($x - $delta))/(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7180	7288	
==>able.
    my $line = $self->_command_line($file);
    unless( open(FILE, "$line|") ) {
        print "can't r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	364	514	
==>0);
        print '' . ($y ? "compiling" : "skipping") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $diges <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5392	5501	
==>c) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::FLAG_$seq" } = $func;
}


sub del_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19247	19347	
==>file (Str $filename ; Grammar :$lang = Perl6)
{
    eval(slurp($filename),$lang);
}


 multi Control: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21839	21938	
==>l name
for the field.  There will still be a class() method in F<__object__>,
but it will throw a "u <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15743	15880	
==>anch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19976	20113	
==>anch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1244	1348	
==>pe () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1244	1348	
==>pe () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30644	30751	
==>s but the whole module must represent a single
language.

The name of each Template module has two parts, th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30644	30751	
==>s but the whole module must represent a single
language.

The name of each Template module has two parts, th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	336	443	
==>e a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upsi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	336	443	
==>e a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upsi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	353	503	
==>os { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	353	503	
==>os { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16077	16246	
==>sec => @tm[6],
            wday    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40269	40368	
==>error messages for your sub-class.

  package Your::SubClass;
  # use constant NAME => VALUE, FMTSTR <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	606	703	
==>plit m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li>\n] for sort @ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1548	1787	
==>s);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1548	1787	
==>s);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    wh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3395	3490	
==>of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3395	3490	
==>of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	43	151	
==>o debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	43	151	
==>o debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_heade <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13647	13796	
==>pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13647	13796	
==>pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23209	23302	
==>ould
produce ambiguous results or associations.  Or alternately, the other
packages require yo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23209	23302	
==>ould
produce ambiguous results or associations.  Or alternately, the other
packages require yo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4466	4589	
==>_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is np <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5005	5124	
==>assert_ghc {
    my $self = shift;
    my $ghc = $self->can_run($ENV{GHC} || ( 'ghc' . $Config{_exe} ) );

    # This lo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7171	7280	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7171	7280	
==>l!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	64	172	
==>uilder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Outp <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	64	172	
==>uilder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Outp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2873	3019	
==>t = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinit <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2873	3019	
==>t = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	365	485	
==>use the hash 
    # does not seem to get initialized properly
    # and calling members before any values are
    # set r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	365	485	
==>use the hash 
    # does not seem to get initialized properly
    # and calling members before any values are
    # set r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6668	6772	
==>the match fields? */
}

/*
 * regexp_compile
 */

static regcomp_t previous_comp_hook = NULL;

regexp* ho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41731	41830	
==>t to the result;
the new Relation::Example is the result of combining all of the source Relations,
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21895	22007	
==>) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18316	18428	
==>) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7971	8085	
==>= @_;
  my $fail;
  while (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this perl's intern <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13239	13334	
==>nd
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13239	13334	
==>nd
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2570	2681	
==>less $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::B <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2570	2681	
==>less $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::B <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8085	8182	
==>NDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, use the next() m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9954	10080	
==>:Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9954	10080	
==>:Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       C <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7807	7906	
==>azy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIG <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7807	7906	
==>azy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIG <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16265	16375	
==>net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16323	16433	
==>net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3292	3423	
==>int "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3756	3887	
==>int "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1028	1161	
==>ild]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1028	1161	
==>ild]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KE <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21346	21566	
==>ngth'"),
                            param => comb(
								fun => ide("tail"),
								param => ide("xs"),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"), <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	228	341	
==>{
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	192	305	
==>{
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14911	15028	
==>ation), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Create <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14911	15028	
==>ation), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new( object => 1 )`

Create <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4902	5045	
==>()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4902	5045	
==>()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	810	933	
==>= $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6627	6738	
==>preserved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $subpath eq uc($subpat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1507	1609	
==>port) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1507	1609	
==>port) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class Lazy <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	184	290	
==>rtion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	184	290	
==>rtion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7460	7615	
==>. 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7460	7615	
==>. 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17131	17255	
==>?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13552	13676	
==>?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8420	8572	
==>");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8420	8572	
==>");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8011	8111	
==>->force_object(anyof_class => ascii => $neg, $how);
  });

  # cntrl POSIX class
  $self->add_handler <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38348	38468	
==>sg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into it, where each variable value is
substi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38348	38468	
==>sg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars into it, where each variable value is
substi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6239	6342	
==>Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6239	6342	
==>Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23962	24058	
==>6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this mod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23962	24058	
==>6> in the L<Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3279	3401	
==>rgs = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3419	3541	
==>rgs = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1862	1980	
==>i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1862	1980	
==>i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1985	2178	
==>::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPU <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1985	2178	
==>::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPU <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33522	33623	
==>as an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This mult <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38072	38173	
==>as an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Relation>

This mult <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1151	1267	
==>er and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2991	3107	
==>er and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6045	6156	
==>ar.", '>', ".$lit.";\n";
}
sub node::_print {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_dat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8333	8431	
==>tespacePosition;
  goto tok_match_end;

  tok_match_sub:
  $operator = &$$match($matchObj);
  tok_m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9724	9825	
==>ts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9724	9825	
==>ts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @clas <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7396	7494	
==>ata until they have an entire block, then cipher 
the block and return the new ciphertext (or plain <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7396	7494	
==>ata until they have an entire block, then cipher 
the block and return the new ciphertext (or plain <==
2	/Users/nnunley/pugs/util/importgraph.pl	2780	2878	
==>my $color = $edge->[1] ? 'green' : $edge->[0] ? "blue" : "black";
    $g->add_edge($name, $k, color <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28295	28415	
==>eq types";

# a helper that returns the stringified type of an AST
sub t {
	my $ast = shift;
	$i->apply($ast)->type->stri <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	509	606	
==>}
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	509	606	
==>}
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	413	561	
==>file;
    my $tmpl = {
        file => { required => 1, allow => FILE_EXISTS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( P <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11864	11984	
==>(Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::ru <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12267	12387	
==>(Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2168	2280	
==>object(anyof_char => 'A') if $cc;
    return $S->object(bol => 'sbol' => '\A');
  });

  # nbound (not a word bou <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12233	12325	
==>mpl_var name=ok></span>,</td>
	      <td class="num tests_failed"><span title="<tmpl_var name <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28095	28212	
==>This method returns all Message Variable names and values of this object as
a hash ref.

=item C<as_debug_string()>

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28095	28212	
==>This method returns all Message Variable names and values of this object as
a hash ref.

=item C<as_debug_string()>

T <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	790	905	
==>riables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	790	905	
==>riables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3317	3436	
==>my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule sco <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3317	3436	
==>my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule sco <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2196	2308	
==>e, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2196	2308	
==>e, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12730	12834	
==>ethod next    () is primitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure where this is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8692	8798	
==>l::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::Model" package serve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8692	8798	
==>l::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::Model" package serve <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10784	10884	
==>gs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10842	10942	
==>gs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11636	11729	
==>rsects( $recurrence )`

Returns true if this recurrence intersects (has any element in common) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11636	11729	
==>rsects( $recurrence )`

Returns true if this recurrence intersects (has any element in common) <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	964	1131	
==>if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $doc;
            $doc->{$key} = $val;
            next;
        };
        /^\s/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4598	4719	
==>w_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4440	4557	
==>w_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	461	636	
==>le( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21884	21979	
==>class() method in F<__object__>,
but it will throw a "use of class() is deprecated" warning.

Qu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1526	1697	
==>o server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbac <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1526	1697	
==>o server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10871	10968	
==>odo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10929	11026	
==>odo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	452	554	
==>n-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	452	554	
==>n-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	627	757	
==>= \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	620	750	
==>= \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16714	16875	
==>-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27768	27867	
==>he parser object and a boolean as arguments.
The boolean is true if the flag is going to be turned o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11764	11862	
==>Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node obj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11764	11862	
==>Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13271	13369	
==>enote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13271	13369	
==>enote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> object t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5854	6117	
==>ESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6318	6581	
==>ESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2909	3015	
==>InP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->po <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1174	1446	
==>rl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_ele <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1174	1446	
==>rl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_ele <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4315	4414	
==>mes) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4315	4414	
==>mes) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6013	6118	
==>l-6 specific workaround is done since $message param can oft
    # be set from a caught exception (aliased <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6013	6118	
==>l-6 specific workaround is done since $message param can oft
    # be set from a caught exception (aliased <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2612	2725	
==>eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(// <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2612	2725	
==>eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(// <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	383	487	
==>order to avoid
# problems when there are fundamental bugs in perl.

package TestInit;

$VERSION = 1. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5851	5946	
==>simplify_type($expected_type);

		return $node if $self->types_eq($de_facto_type, $expected_type <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6095	6211	
==>thod restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9572	9688	
==>thod restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        bo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	31	136	
==>8-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are k <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	31	136	
==>8-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if all elements are k <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	210	339	
==>2';

use strict;

# determine if the user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2017	2122	
==>line mode)
  $self->add_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3777	3886	
==>coded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3777	3886	
==>coded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	567	667	
==>) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	567	667	
==>) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17622	17731	
==>LLER::<$_> --> Str )

Has the effect of first doing an C<lc> on the entire string, then performing a
C<s:g/(\w <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6696	6794	
==>',$_[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5617	5714	
==>($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5617	5714	
==>($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3072	3421	
==>exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3072	3421	
==>exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1755	1852	
==>1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Ri <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1755	1852	
==>1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Ri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34016	34112	
==>ogram or its libraries.
When translating a message, a match in found in the most preferred langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34016	34112	
==>ogram or its libraries.
When translating a message, a match in found in the most preferred langua <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	958	1062	
==>ut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	958	1062	
==>ut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2554	2662	
==>iles;
my $syn_indexs;
my @syn;

my $help;
my $no_designdocs;
GetOptions('test_dirs=s@' => \@t_dirs,
       'o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22360	22467	
==>g we want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re_dup() will c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17260	17358	
==>g we want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re_dup <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3502	3612	
==>N;
  $self->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	34	130	
==>ly not too distant future.
# So this is all throw-away code.
use strict;
package PIL::PIL1CPerl5: <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	114	206	
==>ck}

Zum auskommentieren mehrerer Zeilen kann man POD benutzen:

#!\begin{block}{}\texttt{
=b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22764	22908	
==>olen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    j <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23266	23410	
==>olen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    j <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4390	4535	
==>span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4390	4535	
==>span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2083	2169	
==>oncapturing_group>|<quantified_construct> }
rule quantified_construct  {  <construct_bu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	854	994	
==>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	854	994	
==>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4438	4534	
==>e::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4688	4784	
==>e::Match::Ratchet>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26395	26508	
==>odified version of Rosetta
that you are willing to distribute, because that is a practical way of
suggesting impro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26395	26508	
==>odified version of Rosetta
that you are willing to distribute, because that is a practical way of
suggesting impro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4173	4287	
==>is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::Fa <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4173	4287	
==>is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::Fa <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1094	1207	
==>b validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modp <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1094	1207	
==>b validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	579	684	
==>> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$h <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	579	684	
==>> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$h <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18639	18721	
==>,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max(Re,N,F0,F1,B0 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	778	957	
==>nd for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:pe <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	778	957	
==>nd for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:pe <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	105	202	
==>:Install::Base; @ISA = qw(Module::Install::Base);
$VERSION = '0.01';

use strict;
use Config ();
u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	735	874	
==>:Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	735	874	
==>:Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module M <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16411	16539	
==>e) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16411	16539	
==>e) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4059	4192	
==>[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4908	5041	
==>[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27834	27942	
==>urns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27834	27942	
==>urns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Me <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9672	9792	
==>ax_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9672	9792	
==>ax_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with height
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1002	1104	
==>dd_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for yo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1002	1104	
==>dd_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for yo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4493	4598	
==>@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4493	4598	
==>@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1843	1941	
==>ed
as a curried default.

All of the optional parameters should be supplied by name.

Note that the <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4418	4530	
==>ten.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4418	4530	
==>ten.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a sourc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10455	10573	
==>].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10455	10573	
==>].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.k <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18546	18638	
==>port_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18546	18638	
==>port_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1769	2024	
==>very Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1769	2024	
==>very Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6766	6939	
==>le $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is ne <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5270	5443	
==>le $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is ne <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13033	13146	
==>lso used internally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13033	13146	
==>lso used internally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24986	25084	
==>ordinal value.

Note that it is valid for a Relation::Example to have zero tuples.  It is also vali <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3676	3820	
==>turn 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$qua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3664	3808	
==>turn 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$qua <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5229	5348	
==>{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5229	5348	
==>{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	703	803	
==>ion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1293	1393	
==>ion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') } <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18976	19082	
==>$offset,undef,$length,undef,$replace) }


# unpack

# vec # XXX - obsolete?


package Control::Basic {}

 m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1605	1721	
==>nal,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1605	1721	
==>nal,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift;
    retur <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16431	16534	
==>lse) }

cond: type($$) = {
	types::unify(
		type($.if), type::operator::nullary->new("bool"),
		$.if, "b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	417	520	
==>} }

# keep this here for a consistent interface
sub to_str { shift }

# conversion to other native type <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13459	13552	
==>port_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13459	13552	
==>port_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('ro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8581	8675	
==>le(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2406	2500	
==>le(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1259	1391	
==>@deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	819	951	
==>@deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2015	2108	
==>ched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / obje <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2104	2197	
==>ched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / obje <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1080	1280	
==>ents<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_elemen <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1080	1280	
==>ents<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_elemen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10123	10286	
==>@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10123	10286	
==>@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15228	15355	
==>ue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $tar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15228	15355	
==>ue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $tar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3402	3555	
==>atches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3294	3444	
==>atches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless d <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3857	3979	
==>s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "can n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	648	773	
==>),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::IO - IO related builtins

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9168	9280	
==>= @_;
    return $S->force_object(anyof_class => space => $neg, $how);
  });

  # upper POSIX class
  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10114	10213	
==>tures. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (In <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10172	10271	
==>tures. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (In <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7478	7574	
==>00; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12064	12298	
==>g' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12064	12298	
==>g' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2198	2307	
==>t.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2198	2307	
==>t.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	501	599	
==>g with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed red <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	501	599	
==>g with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed red <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	790	898	
==>tent = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	790	898	
==>tent = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18918	19045	
==>shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20276	20403	
==>shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4768	4861	
==>_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4768	4861	
==>_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attribut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19846	19952	
==>tion::Example {
    # This form takes the form of an ordinary natural join,
    # where some source attribu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11085	11190	
==>ubclasses

my $iBar = $Bar->new;
is($iBar->id, 12, '... $iBar is the sixth id');
is($iBar->class, $Bar, '. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3015	3146	
==>art, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3015	3146	
==>art, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3302	3418	
==>t, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3302	3418	
==>t, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
}

method inters <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7073	7175	
==>ing ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7073	7175	
==>ing ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5678	5808	
==>o src/syck/emitter.o src/syck/gram.o src/syck/handler.o src/syck/implicit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3557	3651	
==>cument describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3557	3651	
==>cument describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	281	398	
==>sing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1139	1256	
==>sing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "< <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5966	6092	
==>s;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->endp, nparens+1, I32);
    
    len = 1;
    if(r->offsets[0] < len) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1463	1569	
==>=> 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1463	1569	
==>=> 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2062	2189	
==>ndef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2062	2189	
==>ndef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Stat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10099	10194	
==>tp://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10099	10194	
==>tp://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which is
d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	635	768	
==>/normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	635	768	
==>/normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1177	1272	
==>ers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1177	1272	
==>ers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_hea <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9814	9927	
==>list a -> list a
	cons => do {
		my $a = type::variable::free->new;
		type::operator::arrow->new(
			$a,
			type:: <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2117	2274	
==>- unknown: <$tree>";
        return; 
    }
    if $tree[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	395	506	
==>t('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	395	506	
==>t('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13449	13552	
==>e of internals is rather limited, and in a rather
  stable are of the code, so this may not be a real pr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	275	390	
==>l is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	275	390	
==>l is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8904	9024	
==>s s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8904	9024	
==>s s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	420	542	
==>end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	420	542	
==>end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21442	21560	
==>));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17863	17981	
==>));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2909	3016	
==>p);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2909	3016	
==>p);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22939	23062	
==>0 ? '<' : ''), "=";
  }
}


{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @dat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1134	1241	
==>- rewrite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solv <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1134	1241	
==>- rewrite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solv <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	165	279	
==>mbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Con <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	165	279	
==>mbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40444	40553	
==>ight notice and other
credits. Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOU <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40444	40553	
==>ight notice and other
credits. Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOU <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8288	8409	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8481	8602	
==>y $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  match::get <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3538	3791	
==>rint("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3538	3791	
==>rint("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	328	483	
==>| -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	328	483	
==>| -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22000	22098	
==>m C<{n}> were being misrepresented as C<{n,}>.
It's been corrected.  (Mike Lambert)

C<\b> was bein <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35032	35162	
==>t, you must create a new
object that is a clone of the first but for the changes.

=back

A Translator object has these methods:

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35032	35162	
==>t, you must create a new
object that is a clone of the first but for the changes.

=back

A Translator object has these methods:

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	756	892	
==>P::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	756	892	
==>P::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	846	967	
==>ed
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	846	967	
==>ed
    capture - the tree of captured things
    abort - the match was stopped by a { return } or a fail(),
           and <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19000	19096	
==>, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19000	19096	
==>, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26732	26863	
==>Parser::__object__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22745	22852	
==>ool($f->defined())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11261	11407	
==>x;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11393	11539	
==>x;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23807	23932	
==>b_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24086	24211	
==>b_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	558	672	
==>uire Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and dest <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	558	672	
==>uire Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and dest <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1815	1951	
==>eth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub literal_value {
	my $self = shift;
	my $node = shift;
	
	my $t = $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1872	1965	
==>width'} == 32, 'subset num of num32  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8114	8224	
==>package PIL::PIL1CPerl5::Unparse_CPerl5;
sub recurse {
    my($x)=@_;
    my $s;
    return '(undef)' if !defin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	94	191	
==>ION_DIR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot dir
$config->root( Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1324	1434	
==>tail every time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first match (no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1324	1434	
==>tail every time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first match (no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9805	9907	
==>rn
value is undefined.

Rosetta::Model's input validation is performed over 2 main phases, which
are re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9805	9907	
==>rn
value is undefined.

Rosetta::Model's input validation is performed over 2 main phases, which
are re <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	784	882	
==>standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server yo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	784	882	
==>standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server yo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2879	3013	
==>]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2879	3013	
==>]     # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13300	13402	
==>nts or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to "Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13300	13402	
==>nts or Perl archive indexes.  Aside from
'use' statements, you should never refer directly to "Locale:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6536	6633	
==>my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6536	6633	
==>my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10484	10600	
==>',defined($^N)?"\"$^N\"":"undef","\n";
END

print "alive\n";

our $regexp_compile_hook = sub{
  my($re)=@_;
  print S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9644	9738	
==>e_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEX <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9644	9738	
==>e_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEX <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15255	15378	
==>is primitive is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # X <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2194	2305	
==>n, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume bli <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10246	10364	
==>ng;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # com <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10246	10364	
==>ng;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # com <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	662	762	
==>e form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1252	1352	
==>e form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0) <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1191	1280	
==>/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUN <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1402	1491	
==>/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4250	4345	
==>2.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4250	4345	
==>2.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9566	9672	
==>_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9566	9672	
==>_routine( $prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1647	1849	
==>as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1647	1849	
==>as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method g <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	496	595	
==>.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	496	595	
==>.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6608	6721	
==>"compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6620	6733	
==>"compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dum <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8821	8936	
==>s event handles the entire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

T <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8821	8936	
==>s event handles the entire verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

T <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5183	5378	
==>modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5183	5378	
==>modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6659	6796	
==>$span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6659	6796	
==>$span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5389	5532	
==>w( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5389	5532	
==>w( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	495	606	
==>r $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	495	606	
==>r $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2004	2107	
==>s (@{$class->superclasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5347	5455	
==>in to load it.
END_DIE

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	349	449	
==>Utils

=head1 METHODS

=head2 JIB::Utils->_mkdir( dir => '/some/dir' )

C<_mkdir> creates a full path <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6828	7076	
==>fix:<+>'),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3027	3193	
==>Set') };
use constant ISA_JIB_INSTALLATION_SET
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Inst <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6981	7148	
==>ned $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            el <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6981	7148	
==>ned $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	959	1104	
==>s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// | <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	959	1104	
==>s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// | <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2193	2290	
==>nce module names are typically 
capitalized, most "autotags" will be too.

When activated, the spe <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2193	2290	
==>nce module names are typically 
capitalized, most "autotags" will be too.

When activated, the spe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16270	16365	
==>tem $h.content_type

The Content-Type header field indicates the media type of the message
conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16270	16365	
==>tem $h.content_type

The Content-Type header field indicates the media type of the message
conte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	167	284	
==>r := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	167	284	
==>r := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Ciph <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	575	713	
==>tions++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	575	713	
==>tions++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1664	1807	
==>ngine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1664	1807	
==>ngine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_D <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14864	14980	
==>data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14864	14980	
==>data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7243	7355	
==>e('\S') if $re eq '\S';
    die "Regexp compilation bug";
  }
}
{
  # \d \D
  package Regexp::Parser::digit;
  su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5432	5534	
==>thesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5432	5534	
==>thesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3510	3616	
==>lf->parse if $self->{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $self <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	469	596	
==>g{path_sep},

        scriptdir => $Config{scriptdir},
        bin       => $Config{bin},
        sitebin   => $Config{sitebin}, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7437	7544	
==>superclass' => $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the class we want these roles
    '%:m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	135	243	
==>has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0] <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	135	243	
==>has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32268	32366	
==>I<For the present, Locale::KeyedText expects its Template modules to come
from Perl modules, but in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32268	32366	
==>I<For the present, Locale::KeyedText expects its Template modules to come
from Perl modules, but in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	208	304	
==>(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	208	304	
==>(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5153	5247	
==>isolated here. :(
sub new_box {get_meta($_[0])->new('$.unboxed'=>$_[1])}
sub p6_new {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15775	15886	
==>m to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15833	15944	
==>m to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7583	7710	
==>d;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7571	7698	
==>d;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6788	6934	
==>urrent != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6788	6934	
==>urrent != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	66	162	
==>rnings;

use Blondie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$format', '$string'), <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5454	5560	
==>.content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5454	5560	
==>.content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_h <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3123	3236	
==>) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This should al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3123	3236	
==>) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This should al <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1853	1983	
==>{ $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1853	1983	
==>{ $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($e <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	43	153	
==>:Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	43	153	
==>:Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

su <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5066	5166	
==>ME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encod <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5066	5166	
==>ME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encod <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1578	1684	
==>nv = <<'CONVERSION_SUBS';
conv_array {
    s/\$(${re_symbol}\[.+])/\@$1/g;
    s/\$#(${re_symbol})/\@$1.las <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21431	21537	
==>tional database engines with minimal effort.

This might seem strange to somebody who has not tried to port <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21431	21537	
==>tional database engines with minimal effort.

This might seem strange to somebody who has not tried to port <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6589	6731	
==>ent-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6589	6731	
==>ent-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8605	8737	
==>block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8798	8930	
==>block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6538	6675	
==>y ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6595	6732	
==>y ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	142	257	
==>CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	142	257	
==>CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.metho <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15251	15363	
==>t.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15251	15363	
==>t.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	534	659	
==>param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	534	659	
==>param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $gramm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1412	1536	
==>k
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1412	1536	
==>k
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5727	5814	
==>ub hlp_stmt { def_statement($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1116	1294	
==>es) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $qu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1116	1294	
==>es) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $qu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3064	3181	
==>level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3565	3682	
==>level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{l <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1154	1255	
==>ers.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
gr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1154	1255	
==>ers.

=head1 SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
gr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9519	9624	
==>n.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9519	9624	
==>n.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1646	1760	
==>d not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1704	1818	
==>d not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, St <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	189	304	
==>\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Spli <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	189	304	
==>\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Spli <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19136	19232	
==>e relational
data model proposed by Edgar. F. Codd, upon which anything in the world can
be model <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22786	22882	
==>e relational data model proposed
by Edgar. F. Codd, upon which anything in the world can be model <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17579	17702	
==>ew();
    local $X::current_match = $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7959	8072	
==>ze bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version="1.0" encoding="UTF-8"?>
<!DOCT <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	223	359	
==>path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter fu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	223	359	
==>path";
    @!search_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter fu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4271	4373	
==>ied month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4271	4373	
==>ied month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2917	3018	
==>self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmet <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2917	3018	
==>self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmet <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1955	2104	
==>Elem($idx)->scalar_store($value);
            },
            hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1797	1913	
==>od child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children - <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1797	1913	
==>od child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7715	7835	
==>neg, $how);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    re <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	835	933	
==>es_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3187	3323	
==>SH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3187	3323	
==>SH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @ne <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8891	9018	
==>locks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8891	9018	
==>locks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	40	141	
==>:Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	40	141	
==>:Functional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	19	119	
==>::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my % <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	19	119	
==>::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my % <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6921	7130	
==>ethod')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new(' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7408	7521	
==>K_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4479	4575	
==>e current version of Pugs does not support OO, methods are
implemented as hash keys to code refs. <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4479	4575	
==>e current version of Pugs does not support OO, methods are
implemented as hash keys to code refs. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	677	798	
==>>       '<op> <parse> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18133	18240	
==>r ambiguity involved.
By contrast, if a program simply returned words for the user, such as
'error opening f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18133	18240	
==>r ambiguity involved.
By contrast, if a program simply returned words for the user, such as
'error opening f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4082	4279	
==>"unrecognized token '",substr($match,0,10),"'\n"
                if $match;
            
        } # /for
            
        my $ast = $m->();

        {
            # XXX temporary hack - check i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	273	373	
==>tead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	273	373	
==>tead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors should e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	999	1163	
==>.= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Loca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	999	1163	
==>.= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Loca <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2338	2432	
==>THOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2338	2432	
==>THOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3477	3593	
==>m;
#    # latex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6860	6987	
==>',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6860	6987	
==>',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9247	9365	
==>k(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 an <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9305	9423	
==>k(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3003	3144	
==>check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3003	3144	
==>check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1409	1655	
==>class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1409	1655	
==>class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2132	2238	
==>heritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2132	2238	
==>heritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	118	212	
==>Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	118	212	
==>Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16540	16710	
==>->reduce($builtin);
        }
        $val->set($builtin);
    }

    return $val;
}

sub reduce_val {
    my $self = shift;
    my $node = shift;

    return Val->new($se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	911	1026	
==>f',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body => 'prel_cat', <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7475	7569	
==>ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>st <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1703	1797	
==>ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>st <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2881	2994	
==>s::Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    while (<$ifh>) {
        $g <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4816	4913	
==>y_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@ur <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4816	4913	
==>y_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@ur <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	730	853	
==>nix->parse_version($file)) if -f $file;
    }

    $self->version or die << "END";
Can't determine a VERSION for this distri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2132	2230	
==>my $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2132	2230	
==>my $code = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown cod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15501	15609	
==>`

Change the start or end value of the span.

These methods may raise a warning if the new value would put t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15501	15609	
==>`

Change the start or end value of the span.

These methods may raise a warning if the new value would put t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1590	1702	
==>set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unle <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1590	1702	
==>set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unle <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10969	11066	
==>DS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10969	11066	
==>DS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12631	12753	
==>".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12631	12753	
==>".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, S <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1171	1268	
==>ne several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of con <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1171	1268	
==>ne several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6549	6650	
==>path($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6549	6650	
==>path($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4507	4649	
==>}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4507	4649	
==>}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %! <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6010	6207	
==>nd one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6474	6671	
==>nd one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to o <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	657	784	
==>is program in the same directory containing
# those files.
#
# Enjoy! -- asavige (aka mad golfer)

use strict;

# XXX: should ma <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3385	3495	
==>ation.

>   Alive without breath;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in mail, n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	477	575	
==>$code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	477	575	
==>$code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch( <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1549	1681	
==>tr.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1549	1681	
==>tr.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4200	4321	
==>,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{'p5'}->value }
sub as_pil_tree { $_[0]{'pil_tree'}->value }
sub as_pil_cod <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	2	96	
==>Typen-Konvertierung ('coerce')
multi sub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# De <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6826	6945	
==>r(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(82 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6826	6945	
==>r(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(82 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3743	3838	
==>of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.de <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3743	3838	
==>of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	518	614	
==>s.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	518	614	
==>s.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ci <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19773	20051	
==>')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40233	40511	
==>')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->ne <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1475	1671	
==>ts<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1475	1671	
==>ts<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    whe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4128	4248	
==>e' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3983	4100	
==>e' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15746	15847	
==>ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE A <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15804	15905	
==>ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE A <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21509	21648	
==>> <'var'> <VariableDeclarationNoIn> <'in'> <Expression> <')'> <Statement>
}
rule ContinueStatement :words {  # see 12.7
      <'continue'><n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1460	1552	
==>ule that reads the
output from Test::Simple, Test::More and other modules based on
Test::Buil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7461	7569	
==>_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7461	7569	
==>_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4111	4264	
==>struct => $_ ) }
                    LoadFile( $obj->available_file ) 
            };
            $@ and error( "Could not load available file: $@" ), ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	804	906	
==>ator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This document describes R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	804	906	
==>ator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This document describes R <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33575	33778	
==>l->new('$self:' => 'opaque'), 
                              symbol->new('$class' => 'opaque'),                
                          ),
                returns => 'bit'
            ),
            sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	608	735	
==>dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shift;
    my $pkg  = shift;       return unless d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	290	393	
==>ns => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans } <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	290	393	
==>ns => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6160	6266	
==>atcher( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5949	6052	
==>atcher( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low le <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1172	1294	
==>ted with anything, so ....
    my $supers = $class->get_attr(symbol->new('@:MRO'));
    # if nothing is in MRO, we take the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19135	19242	
==>tion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15556	15663	
==>tion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4058	4244	
==>tart + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4058	4244	
==>tart + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6627	6732	
==>ss;
}

# functions are applied 
package fun;
use base qw/node/;

package comb;
use base qw/node/;

package <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28843	28957	
==>cessful.
  Files=4, Tests=24, 2 wallclock secs ( 0.61 cusr + 0.41 csys = 1.02 CPU)

=head1 SEE ALSO

The included F <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	205	315	
==>ex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	205	315	
==>ex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> <code> <[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5929	6047	
==>$label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5742	5854	
==>$label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4770	4889	
==>) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl libr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4770	4889	
==>) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
libwww-perl libr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22275	22391	
==>um 
    ($self: id))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('id'),
    # meth <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1074	1165	
==>'EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13015	13150	
==>eric => sub { "". ${$_[0]} },
      array => sub { "". @{$_[0]} },
      hash  => sub { "". %{$_[0]} },
      code  => sub { "". $_[0] } <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4366	4481	
==>all_pragma_value($?CLASS, 0);
    }

    # XXX: here's my doubt. In Preluded code, do I need
    #      current_prag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8785	8894	
==>'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8781	8890	
==>'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19205	19298	
==>ot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19205	19298	
==>ot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only e <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	495	596	
==>SessionGet($variable) {
    return %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31321	31420	
==>tem data

The data or children of this object.

=item dir

The direction of this object (for look-ah <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	830	918	
==>uilder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPl <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	830	918	
==>uilder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	374	500	
==>ash 
    # does not seem to get initialized properly
    # and calling members before any values are
    # set results in a err <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	374	500	
==>ash 
    # does not seem to get initialized properly
    # and calling members before any values are
    # set results in a err <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16359	16463	
==>s of a new high-level
programming language named "Rosetta D", which is computationally complete
(and indu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16359	16463	
==>s of a new high-level
programming language named "Rosetta D", which is computationally complete
(and indu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	910	1028	
==>to_num { (shift)->keys->length             }
sub to_bit { (shift)->keys->length->to_bit     }

# methods ...

sub fetch <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	197	297	
==>ng of p6 and js objects.
   (Even though this impairs 1?)
Please note efficiency isnt currently on th <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	408	505	
==>ge results by passin
	all => sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12831	12956	
==>{&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6306	6431	
==>{&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17298	17390	
==>t.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17298	17390	
==>t.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7167	7278	
==>0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7167	7278	
==>0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fol <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4100	4199	
==>andle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4100	4199	
==>andle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13618	13715	
==>dules and you
find there is some language feature missing, or core bug that needs to
be sorted out <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13676	13773	
==>dules and you
find there is some language feature missing, or core bug that needs to
be sorted out <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3458	3634	
==>indir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we're the 'prefere <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1599	1708	
==>ts> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1599	1708	
==>ts> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3831	3936	
==>gram
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4048	4153	
==>gram
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2032	2171	
==>d line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd line
GROK

my $file4 = <<'GROK';
1st line
2nd line
3rd line
4th line
GROK

my $file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11032	11132	
==>ing the visual() method of
each node in the tree.

=head2 Using the Regex

You can use the qr() metho <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3158	3275	
==>ise cygwin absolute paths.  This kludge includes the
    # win32ified path as well.

    if ($Config{osname} eq q{cygw <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	610	725	
==>es used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	610	725	
==>es used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Ro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18897	18994	
==>ermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>lo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18897	18994	
==>ermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>lo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16373	16475	
==>The argument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16373	16475	
==>The argument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4460	4555	
==>:L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4460	4555	
==>:L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3084	3180	
==>llowing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3084	3180	
==>llowing request headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1091	1196	
==>)->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1091	1196	
==>)->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1231	1387	
==>e'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1231	1387	
==>e'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	603	700	
==>lag, in order to implement <after>.

- Captures need an internal 'counter', see the ratchet vers <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8419	8547	
==>exp::Parser::__object__ );

  sub new {
    my ($class, $rx, $vis) = @_;
    my $self = bless {
      rx => $rx,
      flags => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2952	3068	
==>>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl6\n";
    my $s = "";
    for my $level <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5190	5294	
==>ckage closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5267	5399	
==>--- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18829	18926	
==>> Changed

If an I<anyof_class> element is a Unicode property or a Perl class (like
C<\w> or C<\S> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18701	18808	
==>ollows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18701	18808	
==>ollows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5362	5483	
==>$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Object,
    '%:methods' => {
        'resolve' => $_re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5810	5907	
==>gs::Grammar::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::h <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11969	12070	
==>OAD) =~ /([^:]+) $/x);
	$class->new(@_);
}


# this is the actual inferrence engine
my $i = Language:: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	662	795	
==>ge_name( $_->[1]->{package} ) eq $pkg } 
                map  { [ $_, $indexed{$_} ] } 
            keys %indexed;

    if( scalar @me <==
2	/Users/nnunley/pugs/util/run-smoke.pl	82	187	
==>::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "..", "inc");
use PugsBuild::Config;

my $f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18082	18179	
==>application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18082	18179	
==>application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a program <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3104	3186	
==>.complement_next, $self.complement_previous, $set.complement_next, $set.complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3104	3186	
==>.complement_next, $self.complement_previous, $set.complement_next, $set.complement_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19743	19849	
==>matched */

=head2 Other things the world messes with:


  I32 refcnt;

What invariants?  Don'T know.


  I <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19788	19885	
==>],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how? <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5279	5409	
==>{...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5279	5409	
==>{...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2648	2761	
==>g the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not sure... I think Pugs::Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2550	2659	
==>g the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not sure... I think Pugs::Comp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24288	24389	
==>. α → α", "pretty print a -> a");
}
{
	my $type = type::operator::arrow->new(
		my $a = type::vari <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1520	1657	
==>pen;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

met <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1520	1657	
==>pen;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

met <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1495	1630	
==>"IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_} ? $p6p5{$_} : $_) . ' $_[2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4180	4269	
==>, !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> "+ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5734	5842	
==>il );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
} <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5734	5842	
==>il );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16768	16869	
==>application in
Rosetta D and compile that into its own executable, in practice one would
normally just <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16768	16869	
==>application in
Rosetta D and compile that into its own executable, in practice one would
normally just <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	133	250	
==>rator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	133	250	
==>rator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	196	289	
==>nd maybe subscripts, dereferences, and method calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1282	1383	
==>M, 'Quantifier follows nothing';
use constant RPe_BRACES => --$ENUM, 'Missing braces on \%s{}';
use co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	573	707	
==>/ $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	573	707	
==>/ $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12161	12264	
==>ethod handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12161	12264	
==>ethod handle_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2346	2514	
==>tic);
        },
        'todo' => sub { 
            my ($self, $passed, $description, $reason) = @_;
            $self->report_test(
                $::TestBuilder->FE <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4213	4447	
==>Normal bit of link 
                        (?:
                          \s+                                   # Whitespace before re
                          $RE{delimited}{-delim=>'/'}{-keep}    # Regex
                          ([ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1294	1417	
==>, substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2064	2159	
==>mple, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would loo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2064	2159	
==>mple, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would loo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7818	7925	
==>terpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7818	7925	
==>terpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21729	21846	
==>{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18150	18267	
==>{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspen <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6256	6423	
==>self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5764	5931	
==>self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3548	3663	
==>on";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->adm <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2591	2703	
==>on";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->adm <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	868	1004	
==>p    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	868	1004	
==>p    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4991	5093	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4991	5093	
==>dex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2821	2966	
==>ers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text h <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2821	2966	
==>ers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	915	1035	
==>list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	915	1035	
==>list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13068	13167	
==>-trivial, as only some forms of redefinition
  make its magic not stick.

  The implementation is at <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6906	7005	
==>RawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PThunk ($pThunk) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25899	26002	
==>y - This contains zero or more variable names and values
that are associated with the message, and can b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25899	26002	
==>y - This contains zero or more variable names and values
that are associated with the message, and can b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1042	1136	
==>Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2897	2991	
==>Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($source_file <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3491	3608	
==>, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3491	3608	
==>, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or u <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2395	2677	
==>ent>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $ve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2395	2677	
==>ent>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $ve <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12955	13061	
==>ds {  # see 11.1.5
      <'{'> <'}'>
    | <'{'> <PropertyNameAndValueList> <'}'>
}
rule PropertyNameAndVal <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	1	108	
==>=otto3.pl - Perl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %liebl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1497	1616	
==>Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $flood <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1497	1616	
==>Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $flood <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3205	3312	
==>rce = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3422	3529	
==>rce = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8598	8701	
==><DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12122	12225	
==><DecimalDigits>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # se <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27505	27604	
==>utes, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32057	32156	
==>utes, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5150	5251	
==>ng functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() function <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5150	5251	
==>ng functions are provided (and exported) by this module:

=over 3

=item get($url)

The get() function <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	74	189	
==>":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	74	189	
==>":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unus <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14405	14515	
==>ppended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. A <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14463	14573	
==>ppended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. A <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1482	1576	
==>ay::map (@values,   Code $expression) returns Lazy 
 multi sub  Perl6::List::map (Code $express <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13887	13979	
==>d by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13887	13979	
==>d by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8786	8887	
==>_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8786	8887	
==>_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will create the 'person' t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	164	270	
==>ormat = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	164	270	
==>ormat = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4199	4303	
==>proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code & <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4257	4361	
==>proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code & <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8208	8306	
==>@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2033	2131	
==>@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7941	8088	
==>"sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "in <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7941	8088	
==>"sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "in <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2214	2331	
==>));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_;
    do { $conf->{$_} = $DE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	127	232	
==>use Log::Message::Simple    qw[:STD];
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

= <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6074	6204	
==>indings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @ar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6464	6594	
==>indings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20977	21070	
==>etta's rigorously defined API onto a pre-existing (pseudo) relational
database manager (such a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20977	21070	
==>etta's rigorously defined API onto a pre-existing (pseudo) relational
database manager (such a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11649	11778	
==>[1] Pugs::Runtime::Rule::abort(\n" .
           "$_[1]     sub {\n" . 
           "$_[1]         return { bool => 1, tail => \$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	328	451	
==>{
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA: <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	328	451	
==>{
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2858	3000	
==>inue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2858	3000	
==>inue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3359	3485	
==>) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event ha <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3359	3485	
==>) { $fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event ha <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	630	785	
==>ipt ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $sc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	630	785	
==>ipt ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $sc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5200	5311	
==>'ve registered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5200	5311	
==>'ve registered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53171	53258	
==>$::Package->send('name' => str->new('Package'));
$::Module->send('name'  => str->new('Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7193	7310	
==>) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7181	7298	
==>) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $program, $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15496	15619	
==>ize => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15496	15619	
==>ize => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13115	13213	
==>trings are returned.

If called in void context the arguments are decoded in-place.

This routine i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13115	13213	
==>trings are returned.

If called in void context the arguments are decoded in-place.

This routine i <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9913	10008	
==>ed <a
    href="http://www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatic <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8945	9060	
==>ms to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8945	9060	
==>ms to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7804	7905	
==>object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7804	7905	
==>object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infini <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3655	3793	
==>return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3795	3933	
==>return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	568	660	
==>$<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	568	660	
==>$<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5905	6013	
==>ter XML SAX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

B <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5905	6013	
==>ter XML SAX 
parsers and is currently in the early stages of development.   

=head1 LIMITATIONS & CAVEATS

B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2569	2714	
==>leop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2484	2624	
==>leop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	665	764	
==>eric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.mu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	665	764	
==>eric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.mu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5534	5681	
==>caller.line}";
        #}
        loop (;;) {
            my $caller = Control::Caller::caller(skip => $i++) err last;
            $mess ~= "\n\t{$c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5579	5683	
==>- $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5579	5683	
==>- $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3826	3956	
==>er

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3690	3816	
==>er
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14186	14283	
==>blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14244	14341	
==>blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24201	24351	
==>) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20622	20772	
==>) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12273	12464	
==>var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12267	12458	
==>var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34247	34346	
==>in Perl.  We will support this with the '&'
metacharacter.

We have added a handler for the '&' meta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6401	6542	
==>$num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6389	6530	
==>$num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1983	2113	
==>ate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => { <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1983	2113	
==>ate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => { <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10418	10557	
==>$output_path: $!";
                         
  my $template = HTML::Template->new(filename => catdir $start_dir, 
                     'util <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10712	10816	
==>eg(vertical_space))    --> "\\H", !.
p6_char_class(class_pos(newline))           --> "\\n", !. %# XXX - n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2292	2415	
==>flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2292	2415	
==>flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13294	13388	
==><$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13294	13388	
==><$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2516	2616	
==>hat has the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more im <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2421	2520	
==>hat has the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more im <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1008	1201	
==>ct:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1008	1201	
==>ct:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15498	15625	
==>e => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15498	15625	
==>e => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2078	2196	
==>ch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2078	2196	
==>ch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2951	3057	
==>rce_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	982	1088	
==>rce_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->ad <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5104	5205	
==>alized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5104	5205	
==>alized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5284	5417	
==>!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5284	5417	
==>!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10782	10901	
==>ut from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:liv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10782	10901	
==>ut from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:liv <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7963	8063	
==>nels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7963	8063	
==>nels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normal <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23320	23420	
==>he
ability to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27872	27972	
==>he
ability to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6574	6757	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6767	6950	
==>} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1961	2128	
==>= &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10909	11031	
==>::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10909	11031	
==>::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2757	2864	
==>ex'}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    my $self    = shift <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4386	4485	
==>rn value');
is($Object->superclass, undef, '... $Object got the right method return value');
is_deep <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6288	6387	
==>rn value');
is($Object->superclass, undef, '... $Object got the right method return value');
is_deep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	829	952	
==>files in the tmp dir now
            ### get the meta.info out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1740	1842	
==>lopment.  There's a "return" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7918	8099	
==>capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7918	8099	
==>capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7113	7295	
==>>{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6875	7047	
==>>{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	502	622	
==>m Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	502	622	
==>m Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::timelocal( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9795	9959	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10074	10238	
==>6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2877	2977	
==>ableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))->code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2877	2977	
==>ableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Return>() }
))->code <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7418	7527	
==>> 'FooBar',
    '$:superclass' => $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the class we want the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1150	1252	
==>t { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1150	1252	
==>t { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	883	988	
==>=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	883	988	
==>=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10327	10420	
==>perl))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6975	7100	
==>f defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6975	7100	
==>f defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1509	1597	
==>e::operator::nary: layout($$) = { join(" ", $.name, layout($.param)) }
type::operator::na <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7986	8150	
==>"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ast ( %app<"pInv"> );
        $ret = emit_App( $function, @args, $context, $invocant );
    }
    els <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	634	731	
==>eturn "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }))->c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10176	10291	
==>@span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10176	10291	
==>@span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6148	6300	
==>|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - M <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6148	6300	
==>|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - M <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6232	6343	
==>_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, wit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6232	6343	
==>_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, wit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8423	8534	
==>$set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8423	8534	
==>$set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1358	1469	
==>match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1358	1469	
==>match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1013	1121	
==>_self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->aut <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11370	11468	
==>se of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14847	14945	
==>se of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@other <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11307	11405	
==>: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11307	11405	
==>: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18934	19028	
==>ick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18934	19028	
==>ick, the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1749	1904	
==>Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param< <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1749	1904	
==>Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param< <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3538	3636	
==>lf.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3538	3636	
==>lf.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6485	6596	
==>h failed.  Each key
is the name of a test script, each value is another hash representing
how that script failed <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3319	3425	
==>is class represents a date /without a time/.

Because it is just a date, it does not handle time zones or l <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3319	3425	
==>is class represents a date /without a time/.

Because it is just a date, it does not handle time zones or l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3193	3300	
==>rwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3193	3300	
==>rwise, it will return the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2843	2983	
==>->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1051	1154	
==>$code, 0, 1) eq "."
        ?? Perl6::Internals::compile_pir($code)
        !! Perl6::Internals::compile <==
2	/Users/nnunley/pugs/util/importgraph.pl	1302	1415	
==>mod (values %modules) {
  for my $ignore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some predefin <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12216	12366	
==>tus);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                if (@{$test{failed}} and $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3245	3334	
==>rsection( $self.complement_previous, $self.complement_next, $set.complement_previous, $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3245	3334	
==>rsection( $self.complement_previous, $self.complement_next, $set.complement_previous, $set <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1010	1135	
==>name->to_native && 
           $left->type->to_native eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18604	18701	
==>cessarily the names you specified in the constructor. For example,
this module automatically tries <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18604	18701	
==>cessarily the names you specified in the constructor. For example,
this module automatically tries <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6195	6326	
==>lf.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6195	6326	
==>lf.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

me <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15992	16094	
==>ompilation modules get compiled into some
altered form the first time they are run. The result is cache <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15992	16094	
==>ompilation modules get compiled into some
altered form the first time they are run. The result is cache <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8298	8428	
==>pan0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8298	8428	
==>pan0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1596	1706	
==>m =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        goto &{$self->can('c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6669	6821	
==>r->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6669	6821	
==>r->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	360	485	
==>_uptodate\n";
if ( $pmc_is_uptodate ) {
    do $pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17	117	
==>convert S29draft.pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or of Pug <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1598	1693	
==>4

=item B<new (*native*) returns bit>

=item B<to_native () returns *native*>

=item B<to_bit ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12435	12551	
==>t $v, sprintf("\\%03s", $v));
      }

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	677	783	
==>0 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
if key:<val> {
    10 + $a / "ab <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6176	6295	
==>rse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6176	6295	
==>rse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	30	151	
==>00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	30	151	
==>00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7240	7339	
==>acktracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order operat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6994	7089	
==>acktracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order operat <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1720	1864	
==>ommand')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1613	1712	
==>ommand')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14310	14450	
==>";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize the path: beware <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	849	937	
==>->addToken("term:\\D", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken(" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6027	6124	
==>pile or Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ". <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5818	5914	
==>pile or Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ". <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8655	8763	
==>ate!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading,
        bod <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5114	5215	
==>gs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decod <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5114	5215	
==>gs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decod <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	398	499	
==>ement'.

All meta-information provided by dialects should be stored in this
tree as an attribute.  The <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	398	499	
==>ement'.

All meta-information provided by dialects should be stored in this
tree as an attribute.  The <==
2	/Users/nnunley/pugs/util/package-osx.pl	3746	3834	
==>/usr/local/man/man3/Perl6::Bible::A01.3pm
        /usr/local/man/man3/Perl6::Bible::A02.3 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	711	824	
==>_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    my $val = $self- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25407	25487	
==>H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8209	8385	
==>turns Relation::Example {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) retu <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	52	191	
==>Getopt::Long;
use Config ();

# helper code to inline the Standard Prelude in pugs.

# Sets up either the inlined Perl 6 source Prelude fall <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1194	1432	
==>, too",
            "$x, to boot"
            ); 
    }elsif $pass > 1 {
        chop $string;
        "$string and " ~
        pick (
            "$x",
            "is $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ( <==
2	/Users/nnunley/pugs/util/package-osx.pl	3946	4047	
==>/usr/local/man/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /u <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2110	2227	
==>ti sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2110	2227	
==>ti sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	258	383	
==>------------------------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.wi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	258	383	
==>------------------------------------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.wi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32463	32575	
==>der {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

That means that when an 'open' node is walked in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	253	359	
==>_hash',
    ;

sub as_bool   {my($o)=@_;$$o->{'val_bool'}}
sub as_string {my($o)=@_;$$o->{'val_string'}}
su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18567	18677	
==>nd $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19925	20035	
==>nd $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	156	560	
==>.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Exam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	156	560	
==>.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Exam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9135	9245	
==>ders;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9135	9245	
==>ders;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Typ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	884	994	
==>port {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	942	1052	
==>port {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17693	17814	
==>IS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17693	17814	
==>IS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4951	5115	
==>>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4951	5115	
==>>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2023	2138	
==>lasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id . " [ dir = back, style = dash <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19518	19610	
==>t>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19518	19610	
==>t>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thesse a <==
2	/Users/nnunley/pugs/util/addauthors.pl	1618	1785	
==>([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick => $nick, wholeline => $_};
    push @authors, $author;
  }
  return \@authors <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	839	998	
==>ferer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	839	998	
==>ferer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        fo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31749	31843	
==>vely.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36299	36393	
==>vely.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18756	18856	
==>o avoid triggering core behavior which we are not prepared to
support (such as modification of the co <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3046	3146	
==>o avoid triggering core behavior which we are not prepared to
support (such as modification of the co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25821	25917	
==>non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains z <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25821	25917	
==>non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains z <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2174	2349	
==>e type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single a <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2174	2349	
==>e type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2648	2748	
==>mise both encryptions.

If two different data streams are enciphered with the same key, the encryptio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2648	2748	
==>mise both encryptions.

If two different data streams are enciphered with the same key, the encryptio <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2564	2777	
==>cro>)
                            ),
                            Tree.new(:node<Block>).add_children(
                                Tree.new(:node<Bare>).add_children(
                                    Tree.new <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6368	6488	
==>_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6368	6488	
==>_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Spa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1399	1491	
==>:L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1399	1491	
==>:L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2812	2946	
==>=> 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        other <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	972	1084	
==>r is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4450	4562	
==>r is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of that Mapping is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	67	188	
==>program prototype
# see Pugs::Emitter::Rule::Perl5::Ratchet for the final implementation

use strict;
use warnings;
u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10693	10791	
==>nd
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitrarily co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10693	10791	
==>nd
that attributes or Nodes are not missing.  The deferred validations, which
can be arbitrarily co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3325	3474	
==>2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3313	3462	
==>2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19942	20066	
==>x} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16363	16487	
==>x} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1687	1793	
==>ans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1687	1793	
==>ans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3183	3280	
==>gs);
    fprintf(stderr," start=%lu\n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	555	649	
==>le.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1024	1141	
==>hods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1024	1141	
==>hods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	354	484	
==>ge grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	560	690	
==>ge grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2540	2662	
==>match}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                ca <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	315	430	
==>:base(10);

multi sub rand (; Num ?$x = 1, Num :$seed )
    returns Num { ... }

multi sub sign (; Num ?$x = $CALLER <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6777	6918	
==>tests
    failed      Number which failed
    percent     Percentage of tests which failed
    canon       List of tests which failed (as stri <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9569	9686	
==>s, "-$1" ) if $taint;

    # When taint mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the comm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3517	3625	
==>r( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	411	671	
==>{
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= " <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	411	671	
==>{
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2111	2309	
==>,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2111	2309	
==>,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23648	23745	
==>with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23648	23745	
==>with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1370	1494	
==>'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1370	1494	
==>'Ï',  # capital I, dieresis or umlaut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1986	2154	
==>/' . $Postrm;
    if( -e $postrm && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	457	565	
==>nt_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	457	565	
==>nt_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1744	1838	
==>'has_failed'} }

package Perl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use Carp;

sub new { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9327	9453	
==>erm, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9315	9441	
==>erm, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4351	4449	
==>against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4601	4699	
==>against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ra <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3774	3872	
==>ed to have documentation/comments. If you need something
with more power, move up to Config::Simple <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3774	3872	
==>ed to have documentation/comments. If you need something
with more power, move up to Config::Simple <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4253	4351	
==>...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4253	4351	
==>...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5111	5209	
==>d ($filename)

The C<read> method reads a config file, and returns a boolean value
of success or fa <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5111	5209	
==>d ($filename)

The C<read> method reads a config file, and returns a boolean value
of success or fa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1400	1507	
==>q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1400	1507	
==>q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3117	3230	
==>e subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3581	3694	
==>e subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	858	987	
==>st.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	858	987	
==>st.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	309	418	
==>$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.w <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	309	418	
==>$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.w <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3	100	
==>usr/bin/perl
use strict;
use warnings;
use locale;
use utf8;
use POSIX qw(locale_h);

setlocale(LC <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15068	15162	
==>NI), which applications invoke and which
multiple interchangeable "Engine" back-ends (usually p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15068	15162	
==>NI), which applications invoke and which
multiple interchangeable "Engine" back-ends (usually p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8330	8437	
==>x{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8318	8425	
==>x{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7072	7260	
==>name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # succ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7072	7260	
==>name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # succ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	316	421	
==>r $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	316	421	
==>r $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1367	1487	
==>pile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1367	1487	
==>pile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an implementat <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13613	13759	
==>mit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9286	9409	
==>$callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./dis <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9286	9409	
==>$callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./dis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	66	165	
==>e Perl6::Util::SExpParser;

=pod

NOTE:
This is a very basic first attempt at a primitive 
s-expr co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	579	706	
==>e=>'>', other=>'+', rule=>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1662	1776	
==>^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1722	1836	
==>^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2079	2213	
==>'reg_any',
      type => $type,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	608	733	
==>t =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22678	22779	
==>ding> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names that
def <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27230	27331	
==>ding> - B<Relation Heading>

Set of Str - This contains zero or more Relation attribute names that
def <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5663	5758	
==>test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a hash ref summary of <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6894	7019	
==>listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5398	5523	
==>listlen {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @array[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12539	12676	
==>d->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12533	12670	
==>d->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1124	1253	
==>,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1124	1253	
==>,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27332	27435	
==>essage object does not permit changes to its attributes; they
must all be set when the object is constru <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27332	27435	
==>essage object does not permit changes to its attributes; they
must all be set when the object is constru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3023	3141	
==>t, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() nee <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3023	3141	
==>t, Bool $keep?) returns Void {
    $!content = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() nee <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17159	17269	
==>ect, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17159	17269	
==>ect, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1395	1553	
==>) ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1340	1489	
==>) ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	592	685	
==>ude is essentially a reference implementation of all the things the
language must provide, inc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	623	732	
==>e an opaque type";
    $self->SUPER::do($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $self->S <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1783	1898	
==>quite belong here?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = 'Perl6')
            is primitive is sa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1118	1211	
==>mulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1118	1211	
==>mulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )` <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40125	40418	
==>'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19674	19958	
==>'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4262	4398	
==>e   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	635	727	
==>KN => --$ENUM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Seque <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	945	1048	
==>et )`
- `new( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrence set with <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	945	1048	
==>et )`
- `new( closure_previous => sub {...}, universe => $universal_set )`

Create a recurrence set with <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1967	2084	
==>ping from symbols to values:

    Blondie::Env->new(
        '&func' => Thunk(
            Stub("&func is not really i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20174	20266	
==>),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member(class_neg(X),C), !.
rm(eos,         [],[],B0,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36715	36812	
==>g the Translator object's Set and Member properties; if none
could be matched, this method returns <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36715	36812	
==>g the Translator object's Set and Member properties; if none
could be matched, this method returns <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	71	168	
==>st::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostic <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	71	168	
==>st::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	677	828	
==>ub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	650	795	
==>ub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6091	6196	
==>re returned as one long string.

=item List Context

All headers are returned split into the respective
li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6091	6196	
==>re returned as one long string.

=item List Context

All headers are returned split into the respective
li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8021	8147	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8214	8340	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23060	23151	
==>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> com <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23060	23151	
==>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> com <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7761	7871	
==>scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7761	7871	
==>scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9945	10042	
==>set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9945	10042	
==>set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6473	6580	
==>$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $self = shift;
	my $node = $self->generic_r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2962	3067	
==>nt, '... got the right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3779	4002	
==>e attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3779	4002	
==>e attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24234	24341	
==>ro tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28786	28893	
==>ro tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2174	2295	
==>f @names > 1;
        return $S->force_object(anyof_char_comp => $S->nchar($n), "\\C[$n]");
      }

      return $S->obje <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1804	1920	
==>eturns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @st <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1804	1920	
==>eturns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2650	2757	
==>lue on success, otherwise something false.

=cut

sub create {
    my $self = shift;
    my $conf = $self->c <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6751	6869	
==>s.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closin <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6751	6869	
==>s.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7745	7848	
==>is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7745	7848	
==>is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compar <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1612	1781	
==>:PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1612	1781	
==>:PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6857	7026	
==>cense) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6914	7083	
==>cense) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license'                       => <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	514	626	
==>.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	514	626	
==>.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5943	6044	
==>ick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\". <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5943	6044	
==>ick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\". <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10320	10426	
==>= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10320	10426	
==>= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21842	21956	
==>uspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18263	18377	
==>uspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9550	9651	
==>is test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9608	9709	
==>is test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10440	10571	
==>=> {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to hav <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10440	10571	
==>=> {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to hav <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1650	1821	
==>hen rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1650	1821	
==>hen rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1260	1391	
==>=> [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31558	31663	
==>her library likewise, and a program which uses both libraries
could have yet another set for itself.  When <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31558	31663	
==>her library likewise, and a program which uses both libraries
could have yet another set for itself.  When <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21877	22006	
==>dText can be given input that says what resource
files it should use and in what order they should be consulted.  When
Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21877	22006	
==>dText can be given input that says what resource
files it should use and in what order they should be consulted.  When
Locale::Key <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4818	5030	
==>mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4818	5030	
==>mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	619	715	
==>i submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$ep <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	619	715	
==>i submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$ep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15491	15605	
==>nts the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15491	15605	
==>nts the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	386	505	
==>_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) un <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	386	505	
==>_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) un <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2351	2476	
==>n we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http:/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2351	2476	
==>n we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http:/ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1848	2009	
==>r header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1848	2009	
==>r header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	903	1066	
==>s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	868	1022	
==>s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22734	22835	
==>zero or more Relation attribute names that
define the heading of this Relation.  Each attribute name i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27286	27387	
==>zero or more Relation attribute names that
define the heading of this Relation.  Each attribute name i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19847	19947	
==>osetta D however it likes; all Rosetta cares about is that the user
interface and behaviour conform t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19847	19947	
==>osetta D however it likes; all Rosetta cares about is that the user
interface and behaviour conform t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	155	263	
==>d-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	155	263	
==>d-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	425	544	
==>me][$space]\n";
#    # var
#    if (length $segil != 0) {
#	$segil =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{$seg <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1819	1934	
==>d_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_keyed_int

sub get_hash {
  my ( $self ) =  @_;
  return $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2697	2831	
==>m
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2697	2831	
==>m
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1615	1734	
==>gs->{INST_SCRIPT} =
      File::Spec->catfile($path, "script");
    $self->makemaker_args->{INST_BIN} =
      File::Spec <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10461	10579	
==>rint $fh @_;
        }
    },
    map {{ arity => 2, name => "&infix:<$_>", body => eval 'sub { $_[1] '.$_.' $_[2] }' } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5608	5705	
==>sts.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'en <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5608	5705	
==>sts.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'en <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15384	15505	
==>Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15384	15505	
==>Perl Module Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6697	6793	
==>en(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6697	6793	
==>en(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$se <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3019	3133	
==>th::Trig::'~$func~' ( Num $x = CALLER::<$_>, :$base --> Num )
 {
     Pugs::Internals::arc_units(Pugs::Internals::' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3293	3396	
==>$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3351	3454	
==>$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The object is-a '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24039	24153	
==>return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20460	20574	
==>return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5503	5645	
==>s;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5503	5645	
==>s;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $match <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16178	16280	
==>efined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2587	2689	
==>efined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9108	9229	
==>hes necessary to run the test.

=cut

sub _switches {
    my($self, $file) = @_;

    my @existing_switches = $self->_clea <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20004	20167	
==>> $app_to_str,
	param => $plus_ten,
);

my $fac = fun(
	param => "x",
	body => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r", <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9295	9416	
==>olor: #030; }
    .tests_skipped  { color: #555; }
    .tests_unexpect { color: #550; }
  </style>

  <script type="text/j <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2703	2822	
==>'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # sm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2703	2822	
==>'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # sm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13353	13447	
==>rminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13353	13447	
==>rminated )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	107	202	
==>E

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	107	202	
==>E

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Pe <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1086	1265	
==>]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1086	1265	
==>]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8223	8338	
==>o 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let's not make too many 
as <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8223	8338	
==>o 0.  In reality, most calls will be for 
pedestrian events like object destruction, but let's not make too many 
as <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2774	2889	
==>*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can conne <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2774	2889	
==>*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can conne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7526	7642	
==>lize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody wa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7526	7642	
==>lize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody wa <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	146	237	
==>Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	146	237	
==>Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19527	19629	
==>ation Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wish <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19527	19629	
==>ation Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wish <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19145	19243	
==>a character class, so I'm a little wary of making them
objects in their own right, even if it would <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11942	12040	
==>ML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11942	12040	
==>ML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_en <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3560	3679	
==>{
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.po <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3560	3679	
==>{
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9303	9414	
==>alized for subrules

### - needs to be generalized, and the anchor should only

###   work when needed (or if th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8998	9107	
==>alized for subrules
### - needs to be generalized, and the anchor should only
###   work when needed (or if th <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	533	636	
==>rs;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' { <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	533	636	
==>rs;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8522	8628	
==>bottom-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8522	8628	
==>bottom-up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21070	21165	
==>y be compiled into .pmc files and shipped with your
distribtution precompiled. This means that p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21070	21165	
==>y be compiled into .pmc files and shipped with your
distribtution precompiled. This means that p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	148	280	
==>y.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	148	280	
==>y.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	344	467	
==>het};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $clas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	344	467	
==>het};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $clas <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16547	16655	
==>elsif (!$tot->{max}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3649	3772	
==>entZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex closure { yada c <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3649	3772	
==>entZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex closure { yada c <==
2	/Users/nnunley/pugs/util/func_refact.pl	566	678	
==>t 0;
}
 
our $nodes = YAML::LoadFile($Conf{nodes}) or
        die "can't load nodes data: $!";

our %ignoring;

$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13512	13610	
==>re this test can pass (or before an implementation
could be started).  This is most useful when wri <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13570	13668	
==>re this test can pass (or before an implementation
could be started).  This is most useful when wri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	63	157	
==>class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $string, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	63	157	
==>class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $string, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8192	8299	
==>them setting all the elements to 0.  In reality, most calls will be for 
pedestrian events like object destr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8192	8299	
==>them setting all the elements to 0.  In reality, most calls will be for 
pedestrian events like object destr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12902	12999	
==>ample, when iterating through the span range, the unit is added to the current value to get the ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12902	12999	
==>ample, when iterating through the span range, the unit is added to the current value to get the ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7723	7835	
==>age key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7723	7835	
==>age key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4838	4980	
==>e are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we hav <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4838	4980	
==>e are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we hav <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	142	256	
==>("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	142	256	
==>("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2793	2929	
==>::Ratchet';
        return \@state;
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no war <==
2	/Users/nnunley/pugs/util/claim_drift.pl	319	417	
==>ms" DrIFT links.
#
# usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sitelib} =~ /([ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27553	27642	
==>ser>.

=head2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Parser: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3650	3866	
==>le {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3897	4113	
==>le {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7401	7535	
==>or my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	702	836	
==>or my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	302	449	
==>)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (war <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	338	482	
==>)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (war <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8787	8908	
==>.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8787	8908	
==>.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $sp <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	603	738	
==>/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns St <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	603	738	
==>/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns St <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1864	1975	
==>$args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "Args must be a list";
    my $params <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22442	22541	
==>SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTION

This library pro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1322	1462	
==>endency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	882	996	
==>endency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_dependencies( $dep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2860	2984	
==>listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.a <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2860	2984	
==>listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2654	2767	
==>atus::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2654	2767	
==>atus::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7423	7515	
==>ion_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @term <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1248	1340	
==>ion_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @term <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2063	2160	
==>It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a ro <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2063	2160	
==>It represents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a ro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25515	25611	
==>ns Relation>

This method is a generic relational operator that returns a new Relation
which is t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30067	30163	
==>ns Relation>

This method is a generic relational operator that returns a new Relation
which is t <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	983	1253	
==>y @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cu <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	983	1253	
==>y @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	341	435	
==>($Perl6::Run::OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23049	23147	
==>C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23049	23147	
==>C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3737	3836	
==>( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3737	3836	
==>( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9939	10031	
==>.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically generated and show <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5539	5686	
==>ucc;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "conc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5539	5686	
==>ucc;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "conc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3066	3222	
==>n sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3066	3222	
==>n sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3111	3217	
==>type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3111	3217	
==>type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ] <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8836	8956	
==>rious set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8836	8956	
==>rious set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	813	939	
==>t of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	813	939	
==>t of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13115	13208	
==>ator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13115	13208	
==>ator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representati <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1257	1362	
==>) && $key->isa('type'))
        || confess "Key must be a str type";
    (blessed($value) && $value->isa(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5223	5327	
==>e_quoted => $/{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ),
        q(s:g/) => Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15765	15870	
==>qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10621	10726	
==>qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10934	11053	
==>$irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10934	11053	
==>$irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37161	37248	
==>->new('@:superclasses'    => 'list')));
$::Class->send('add_attribute', (symbol->new('@: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	791	911	
==>Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	791	911	
==>Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1783	1956	
==>n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1771	1944	
==>n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35926	36024	
==>hose body contains all of the tuples that are in either or both of the
invocant Relation::Example a <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20744	20860	
==>rint "\t\t(VMS status is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	199	303	
==>he same data structure as
the 'ratchet' version.

- It currently passes all it's tests.

- The algor <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1750	1844	
==>true }');
Helpers::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

He <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6116	6267	
==>th)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6116	6267	
==>th)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1303	1401	
==>bmethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1303	1401	
==>bmethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_k <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2695	2801	
==>self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stri <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2695	2801	
==>self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stri <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	206	336	
==>f, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	206	336	
==>f, end => undef, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	143	261	
==>ls:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	132	244	
==>ls:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16688	16828	
==>t( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16967	17107	
==>t( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        retu <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	552	665	
==>lf->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub admin {
    my $self = shift;
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6995	7094	
==>iblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6995	7094	
==>iblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	205	473	
==>ackages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	205	473	
==>ackages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_k <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12139	12341	
==>%tot, 
                                                       $estatus, $wstatus);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	355	477	
==>r "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - an " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	339	454	
==>r "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - an " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4112	4215	
==>t" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4112	4215	
==>t" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14226	14382	
==>rson_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14226	14382	
==>rson_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13001	13106	
==>inite if the recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13001	13106	
==>inite if the recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20894	21008	
==>=head1 BUGS

In the argument list to the constructor or header() method, the same
field name should not occur multi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20894	21008	
==>=head1 BUGS

In the argument list to the constructor or header() method, the same
field name should not occur multi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1920	2097	
==>le before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2167	2344	
==>le before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	953	1048	
==>:L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	953	1048	
==>:L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2938	3088	
==>") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2938	3088	
==>") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1790	1893	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1790	1893	
==>/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1166	1257	
==>me = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1166	1257	
==>me = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13235	13337	
==>params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4693	4823	
==>my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4546	4673	
==>my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$cons <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3013	3136	
==>s
### see above for details
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift <==
2	/Users/nnunley/pugs/util/run-smoke.pl	849	937	
==>il/smokeserv/smokeserv-client.pl'); 

chdir($pugs_sandbox) or die "Could change directory <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1370	1508	
==>0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1370	1508	
==>0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	946	1046	
==>ypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	946	1046	
==>ypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	400	530	
==>rray $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	400	530	
==>rray $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13488	13604	
==>$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13488	13604	
==>$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8019	8136	
==>ion") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8019	8136	
==>ion") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2366	2490	
==>rg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <tra <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2366	2490	
==>rg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <tra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5969	6072	
==>e', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param can oft <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5969	6072	
==>e', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param can oft <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16556	16679	
==>est = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15608	15723	
==>est = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2907	3045	
==>r   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2907	3045	
==>r   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10332	10438	
==>h @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });

  $self->add_handler('{' => s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6039	6133	
==>->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", optio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5830	5923	
==>->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", optio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3913	4042	
==>/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3913	4042	
==>/};            # xx/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	236	344	
==>Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	269	377	
==>Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1578	1764	
==>file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1578	1764	
==>file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12387	12483	
==>ue if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12387	12483	
==>ue if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28793	28907	
==>an have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GO <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28793	28907	
==>an have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5575	5706	
==>tion
        my @alts = @{ $self->registered_alternatives };
        
        ### check if we're the 'prefered' package
        my $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	246	355	
==>y %args = @_;
  local $_;

  $args{descr}  ||= "(no description)";
  $args{ensure} ||= sub { 1 };
  $args{usin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	693	820	
==>VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rathe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	693	820	
==>VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rathe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2733	2862	
==>e: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2950	3079	
==>e: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	23	134	
==>ict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	23	134	
==>ict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dum <==
2	/Users/nnunley/pugs/util/package-osx.pl	7688	7785	
==>n/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3/Perl6::Spec::Block.3pm
        /usr/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10944	11092	
==>omain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10944	11092	
==>omain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1057	1184	
==>METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1057	1184	
==>METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11090	11195	
==>t ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=ite <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11090	11195	
==>t ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7465	7571	
==>return $S->force_object(anyof_char => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1606	1751	
==>e {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1606	1751	
==>e {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($sel <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22508	22610	
==>= 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .param p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4548	4645	
==>name for Point3D');

is($p3d->get_x, 5, '... got the right x for p3d');
is($p3d->get_y, 6, '... go <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5543	5680	
==>=>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5543	5680	
==>=>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32961	33059	
==>pt that the returned Relation contains only tuples that are in
exactly one of the source Relations. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37511	37609	
==>pt that the returned Relation contains only tuples that are in
exactly one of the source Relations. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32910	33011	
==>s no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32910	33011	
==>s no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B< <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7633	7742	
==>is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7633	7742	
==>is fired when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7391	7509	
==>s rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7391	7509	
==>s rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	939	1187	
==>ngine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained ref <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	939	1187	
==>ngine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained ref <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27192	27327	
==>@:subclasses'))->push($e->get('$subclass'));                  
            }
        )
    )
);

=pod

method _merge (opaque $self:) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3446	3578	
==>' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3446	3578	
==>' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	737	884	
==>ock = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	730	877	
==>ock = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	613	741	
==>>add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11707	11835	
==>>add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14753	14879	
==>ft;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14753	14879	
==>ft;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3708	3896	
==>q[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $control  = $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	215	365	
==>ams::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	213	363	
==>ams::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15358	15458	
==>them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15358	15458	
==>them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entiti <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	698	819	
==>e_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	698	819	
==>e_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18530	18669	
==>->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an open <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14951	15090	
==>->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an open <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18697	18786	
==>::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, StrPos $start,   Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	26	131	
==>e;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime paramete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	26	131	
==>e;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime paramete <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8872	8967	
==>I<string>

This event processes raw strings.

=item I<newline>

This event handles newlines in t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8872	8967	
==>I<string>

This event processes raw strings.

=item I<newline>

This event handles newlines in t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	576	675	
==>RIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying " <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	576	675	
==>RIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying " <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6210	6317	
==>icient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6210	6317	
==>icient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5448	5556	
==>PIL::PIL1CPerl5::NodesInfo::Object->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2445	2530	
==>>build_indirect_typed_value($_->type, Blondie::TypeSafe::Type::Std->new("Type")) } $fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	244	340	
==>gs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	244	340	
==>gs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	710	814	
==>n/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	710	814	
==>n/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	512	608	
==>ed processing instructions may sub-class this module or
provide special behaviour when a property <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	512	608	
==>ed processing instructions may sub-class this module or
provide special behaviour when a property <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1693	1785	
==>%?CONFIG{'int_width'} == 32,'subset int of int32 where { true }');
Helpers::macif(%?CONFIG{'i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	108	217	
==>:DynamicScoping/;

use strict;
use warnings;
no warnings 'recursion';

sub new {
    my $class = shift;
    bl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1422	1802	
==><+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix:<->'),
                                    Sym('$x'),
                                    Sym('$y'),
                                ),
                                S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4367	4567	
==>ncy_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                di <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4831	5031	
==>ncy_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                di <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1158	1261	
==>Type::Placeholder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	326	429	
==>_terms );

# ----- the following were included only for performance reasons,
# because they are too freq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	337	440	
==>_terms );

# ----- the following were included only for performance reasons,
# because they are too freq <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7873	7974	
==>e the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This rou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7873	7974	
==>e the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This rou <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31281	31595	
==>'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4011	4099	
==>= $$currentTermTable->lkey($target, $whitespacePosition);
  my $token = $$currentTermTabl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8570	8770	
==>ion} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal tok <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9034	9234	
==>ion} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal tok <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1616	1717	
==>} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1756	1857	
==>} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21217	21318	
==>ut not required) that each Perl package which
uses this would come up with keys which are unique acros <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21217	21318	
==>ut not required) that each Perl package which
uses this would come up with keys which are unique acros <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16233	16335	
==>ears
  "sraey001" =~ /(\w+)(\d+)/;  # $1 = sraey00, $2 = 1

This means character classes should store a <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16456	16550	
==>moved.

Note: Most users should consider setting their I/O handles to autochomp
instead of this <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	729	829	
==>s_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# T <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	729	829	
==>s_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# T <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17498	17595	
==>nd `reset()` methods.

If the span is "continuous", this method emits a warning and returns undef. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17498	17595	
==>nd `reset()` methods.

If the span is "continuous", this method emits a warning and returns undef. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12562	12687	
==>y undocumented source), in the presence
  of copy-on-write and such complications, could be a bear.

  A source filter approac <==
2	/Users/nnunley/pugs/util/package-osx.pl	3140	3238	
==>ks/GMP.Framework
        /Library/Perl6
        /Library/Perl/5.8.6/darwin-thread-multi-2level/auto <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22735	22861	
==>m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_N <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19156	19282	
==>m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_N <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2676	2862	
==>verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  & <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2676	2862	
==>verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  & <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4444	4575	
==>ce, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4444	4575	
==>ce, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	821	932	
==>rl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	821	932	
==>rl5/^\<obj\:/; #/#cperl-mode--
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1540	1635	
==>other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1540	1635	
==>other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Ru <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17899	17998	
==>ead1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17899	17998	
==>ead1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13589	13697	
==>e named parameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13589	13697	
==>e named parameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12365	12464	
==>into a single line containing a digest of the original content.
#
# This makes further dividing of P <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12365	12464	
==>into a single line containing a digest of the original content.
#
# This makes further dividing of P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12895	12991	
==>programs by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12895	12991	
==>programs by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3380	3479	
==>ta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export sy <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3380	3479	
==>ta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do export sy <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1427	1540	
==>Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This module provide <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3131	3228	
==>V{PERL6LIB} = 'blib6/lib';
    $self->{_build_info} = join '', qx{$executable -V};
}

sub _build_e <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4896	4999	
==>olsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This pro <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4896	4999	
==>olsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This pro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14029	14148	
==>);

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8234	8353	
==>);

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1441	1535	
==>V<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <ang <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1421	1512	
==>V<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <ang <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2143	2270	
==>ub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACK <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2143	2270	
==>ub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACK <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	239	328	
==>";
print "${wer}s Lieblingsfarbe ist $lieblings{'Farbe'}\n";
print "${wer}s Lieblingsdrink <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13322	13461	
==>ngle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13316	13455	
==>ngle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2320	2447	
==>cedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2320	2447	
==>cedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { retu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10899	11007	
==>, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    lastpos = length target
    $S0 = subs <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	289	388	
==>ng an *event*
# getting the *subscriptions* for it, and converting them to *notifications* when they <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14378	14486	
==>er POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8581	8689	
==>er POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2979	3092	
==>ck things -- that is, Pugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2871	2983	
==>ck things -- that is, Pugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20982	21074	
==>malized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Current <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20982	21074	
==>malized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Current <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1644	1754	
==><VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1644	1754	
==><VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14967	15070	
==>relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14967	15070	
==>relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18	123	
==>.1;

use v6;


=kwid

There are a couple of things going on here.

* These are perl6 implementations of /b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1192	1301	
==>cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%par <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1192	1301	
==>cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%par <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14436	14529	
==>entities($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14436	14529	
==>entities($input, '<>&"');

This routine is exported by default.

=item encode_entities_numeric <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21196	21288	
==>he channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {.. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21196	21288	
==>he channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {.. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8104	8252	
==>reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8104	8252	
==>reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7440	7550	
==>_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't suppor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7498	7608	
==>_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't suppor <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2299	2425	
==>{$id} if $debug;
      my $reduce_helper = sub {
        print STDERR "reduce\n" if $debug;
        my($var,$ops)=@_;
        m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15993	16090	
==>erpreted by the machine itself and not any human user.  In some
situations, a shared program compo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15993	16090	
==>erpreted by the machine itself and not any human user.  In some
situations, a shared program compo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2008	2130	
==>efault_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2008	2130	
==>efault_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25513	25608	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30065	30160	
==>urns Relation>

This method is a generic relational operator that returns a new Relation
which i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	39	170	
==>worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	39	170	
==>worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $work <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3630	3749	
==>bugging information
    p5_source.pl  # Convert the file. The script appends
                  # '.p6' to the original n <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1145	1257	
==>.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1145	1257	
==>.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6069	6161	
==>~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6069	6161	
==>~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_ni <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5286	5440	
==>Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5286	5440	
==>Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26104	26198	
==>lied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an addition <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26104	26198	
==>lied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an addition <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1467	1614	
==>e/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER::new(type => $type);
	}

}

{
	package Blondie::TypeSafe::Flatten;
	use ba <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4951	5071	
==>of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8428	8548	
==>of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	61	185	
==>ation of a p6 compiler
# 

# ***************
# This version of lrep only compiles Grammar sections
# The full version is on m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1324	1432	
==>ted as one of three ADTs.

=over 4

=item Unit

A unit is an encapsulation of a single value and a type.

C<V <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6094	6183	
==>shift;
	my $node = shift;

	$self->find_immediate_dyn_sym($node->struct_equiv->val->struct <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25517	25615	
==>0]{tree}[-1] }

You may find it helpful to copy these to your sub-class.  If you're
curious why the <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5709	5922	
==>lse {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5709	5922	
==>lse {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event ..
                            %e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	327	442	
==>ype, which are checked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types g <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	327	442	
==>ype, which are checked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types g <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5194	5472	
==>nd die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for these links ###
                $href->{ $path } = { bin => \@bins, auto => 1 };
                    
                ### dump out <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4402	4564	
==>nd die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ $pkg } = { bi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	189	314	
==>($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	189	314	
==>($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20166	20256	
==>me contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20166	20256	
==>me contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4288	4424	
==>str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4428	4564	
==>str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "= <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1734	1868	
==>welcome_p6   = "welcome.p6";
my $splashscreen = "splashscreen.txt";
my $lib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1807	1914	
==>ib6         = "../../blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "initrd.img";
my $initrd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	551	720	
==>/parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	551	720	
==>/parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	504	636	
==>> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	504	636	
==>> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	16	127	
==>le.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	16	127	
==>le.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	89	198	
==>lter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	89	198	
==>lter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9484	9594	
==>rsection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns Li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9484	9594	
==>rsection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns Li <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	888	1003	
==>or
# real use.  It might, imaginably, perhaps, be possible to do this
# Maybe.  And perl5 might benefit from its exi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4957	5120	
==>ub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::Fal <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4957	5120	
==>ub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::Fal <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1577	1702	
==>le>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1577	1702	
==>le>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1870	1969	
==>bject types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static loo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1798	1895	
==>bject types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static loo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7432	7538	
==>).";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7432	7538	
==>).";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee) <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	87	174	
==>ete-overlay (overlays-in (point-min) (point-max)))";
say "(overlay-put (make-overlay {$m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1629	1771	
==>{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1617	1759	
==>{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8300	8400	
==>uction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8300	8400	
==>uction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	51	144	
==>Format::ISO8601;

our $iso8601_duration_re_anchored = rx:perl5/^$iso8601_duration_re$/;

has I <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7706	7831	
==>quire POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX <==
2	/Users/nnunley/pugs/util/package-osx.pl	2427	2546	
==>sr/local/share/doc/pugs/examples
        /Users/dromano/dev/pugs/docs /usr/local/share/doc/pugs/docs
        /Users/drom <==
2	/Users/nnunley/pugs/util/package-osx.pl	411	519	
==>les = qw(
        /usr/local/bin/parrot-config
        /usr/local/bin/pbc_merge
        /usr/local/bin/disass <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11801	11901	
==>e `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, yo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11859	11959	
==>e `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, yo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12998	13120	
==>e left alone.

If multiple strings are provided as argument they are each decoded
separately and the same number of strings <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12998	13120	
==>e left alone.

If multiple strings are provided as argument they are each decoded
separately and the same number of strings <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6101	6232	
==>859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6101	6232	
==>859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5226	5328	
==>ple who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5226	5328	
==>ple who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$cha <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2662	2814	
==>ar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2662	2814	
==>ar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2984	3099	
==>bject {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4938	5033	
==>Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4996	5091	
==>Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1720	1828	
==>azy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1720	1828	
==>azy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4454	4574	
==>lds => \@fields,
        field_type => \%field_type,
    };
    bless $self,$cls;
    $self;
}
sub rep_type  { $_[0]{'rep <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21523	21637	
==>:- !, \+(char_type(C,csym)).
class_member(class_pos(X)         ,C) :- catch(   char_type(C, X),_,fail), !.
class_me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4323	4421	
==>." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0], '$<variabl <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	78	212	
==>e' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_out <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	78	212	
==>e' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_out <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1283	1411	
==>nless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1283	1411	
==>nless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	681	815	
==>gory->ws( $match );
            # <ws> is nonstandard in that it returns a hashref instead of a Match
            # print "match is ",D <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11083	11177	
==>B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11083	11177	
==>B<parent ($self: Tree $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2077	2181	
==>urn map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_)), @_;
}


sub error_is {
  my ($self, $enu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6010	6152	
==>atus if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6010	6152	
==>atus if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7805	7907	
==>$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7793	7895	
==>$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rn <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4406	4516	
==>inc/BUNDLES';
    $args{base}     ||= $base_path;
    $class =~ s/^\Q$args{prefix}\E:://;
    $args{name}     | <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	236	337	
==>print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print "nach a kommt $hash{a}";
Perl 6: my %hash = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2707	2872	
==>| [] } ) {
            1 while unlink "$Bindir/$script";
            1 while unlink "$Alternatives/$script";
        }      
        
        ### see if there's any o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12213	12354	
==>n instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12213	12354	
==>n instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.head <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7466	7575	
==>ft( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" ope <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7466	7575	
==>ft( @list )`

@list may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15575	15693	
==>'{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10431	10549	
==>'{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3696	3815	
==>:flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METH <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3880	3999	
==>:flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METH <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	878	977	
==>GI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=it <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	878	977	
==>GI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=it <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6503	6663	
==>} File::Find::Rule->file->in( $from );
    } else {
        %from = ( $from => $to );
    }
   
    while( my($orig,$target) = each %from ) {
        unless( Fil <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7225	7343	
==>s {
    my @tests = @_;

    _autoflush(\*STDOUT);
    _autoflush(\*STDERR);

    my(%failedtests);

    # Test-wide to <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	265	352	
==>atten->new->reduce(
		Blondie::TypeSafe::Annotator->new->annotate($runtime, $prog)
	);
} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16856	16974	
==>s don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16856	16974	
==>s don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, a Recurrence object, or a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2705	2964	
==>lar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.Lis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2705	2964	
==>lar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.Lis <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	271	370	
==>mark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = compile($re) || die "Co <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1377	1475	
==>();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not l <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	341	428	
==>anguage::Prolog::Yaswi, which requires swi-prolog be
installed with non-default settings <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1194	1373	
==>quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1194	1373	
==>quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7921	8021	
==>alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7651	7747	
==>alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::al <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15932	16033	
==>age that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15932	16033	
==>age that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	777	926	
==>kie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	777	926	
==>kie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4938	5104	
==>ts, "" );
            exit 0;
        } else {
            print "# ", scalar @tests, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22879	22977	
==>@args)=@_;
    $o->$m(@args);
}


no strict 'vars';
package Perl6::Run::OnPerl5::X1::Api::Exception <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6430	6557	
==>s, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $ar <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6430	6557	
==>s, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1096	1215	
==>:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1096	1215	
==>:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) {
        if ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33284	33390	
==>for that message is found.  Since a
program or library may wish to override the user text of another librar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33284	33390	
==>for that message is found.  Since a
program or library may wish to override the user text of another librar <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6543	6697	
==>ss ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6601	6755	
==>ss ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1189	1287	
==>but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1189	1287	
==>but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1827	1961	
==>de, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1827	1961	
==>de, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) : <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9342	9464	
==>ors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9342	9464	
==>ors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    cur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2044	2186	
==>%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::creat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2249	2391	
==>%:methods'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::creat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5396	5505	
==>onfiguration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib/Pugs/Grammar/YAM <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5207	5314	
==>onfiguration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib/Pugs/Grammar/YAM <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29187	29309	
==>ns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29187	29309	
==>ns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template f <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1117	1219	
==>ainst a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C<OR> fa <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1117	1219	
==>ainst a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C<OR> fa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10965	11075	
==>xt}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into somethi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10965	11075	
==>xt}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into somethi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3633	3851	
==>ound;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3633	3851	
==>ound;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found++ if $port e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39772	39887	
==>istribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Fr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39772	39887	
==>istribute it and/or modify
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Fr <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2406	2549	
==>mkpath(dirname($ppc_yml));
        
        run($^X, qw<util/gen_prelude.pl -v -i src/perl6/Prelude.pm>,
                (map { ('-i' => $_) } @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14485	14588	
==>0002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14485	14588	
==>0002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11832	11933	
==>value for the specified header field.  Previous values
for the same field are retained.

As for the he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11832	11933	
==>value for the specified header field.  Previous values
for the same field are retained.

As for the he <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2875	2989	
==>t cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2875	2989	
==>t cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12452	12559	
==>dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12452	12559	
==>dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11964	12058	
==>t1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11964	12058	
==>t1.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23955	24062	
==>{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20376	20483	
==>{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5263	5400	
==>se @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5263	5400	
==>se @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method cu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15226	15332	
==>code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$diges <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15226	15332	
==>code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$diges <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24692	24797	
==>em C<heading () returns Set of Str>

This method returns this Relation's heading.

=item C<body () returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29244	29349	
==>em C<heading () returns Set of Str>

This method returns this Relation's heading.

=item C<body () returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1206	1458	
==>nt( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1333	1585	
==>nt( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1676	1824	
==>)) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $host
user <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11095	11194	
==>iteSpace>?
}
rule StrWhiteSpace {  # see 9.3.1
      <StrWhiteSpaceChar> <StrWhiteSpace>?
}
rule Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21569	21692	
==>push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17990	18113	
==>push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	45	146	
==>Type;
use Perl6::Core::Str;
use Perl6::Core::Num;

package bit;

use strict;
use warnings;

use Carp ' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18453	18536	
==>x_ng(Re,Left,Fx,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38280	38396	
==>lf->{neg} ? 'unlessm' : 'ifmatch';

    for (@kids) {
      $_ = $self->{rx}->object($type => 1, @$_);
    }

    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2744	2883	
==>apture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2639	2771	
==>apture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17392	17500	
==>l($prog,
		sub { @_ ? $_[0] eq $expected : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_like
#
# C <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	159	255	
==>Hallo, {name $person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = new Person;
n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1130	1275	
==>eys { keys %{ $_[0] } }

	sub str {
		map { "$_ => $_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $se <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24676	24802	
==>used currently]

Confined to regcomp/regexec.

 *
 * Regstart and reganch permit very fast decisions on suitable starting point <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	623	755	
==>mmar)
    {
      $grammar = "P6RulesInP5::Rule";
    }
  }
  else
  {
    if ( not $grammar)
    {
      $grammar = classname of mod <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10991	11087	
==>b} = $ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filte <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8528	8649	
==>8.3
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 7.8.3
      <DecimalDigits>
    | <'+'> <DecimalDigits>
    | <' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6920	7078	
==>t object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            cele <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6920	7078	
==>t object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            cele <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1454	1545	
==>able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burs <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1454	1545	
==>able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	264	513	
==>);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	264	513	
==>);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9910	10047	
==>s to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9910	10047	
==>s to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	588	854	
==>ll of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External pack <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	588	854	
==>ll of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1687	1791	
==>caller[1] line $caller[2]";
}

# DON'T use this for matches. Use like() instead.
sub ok ($@) {
    my ($p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11791	11888	
==>ctional pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) returns Li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27437	27533	
==>ted.  If you want to
conceptually change an existing Message object, you must create a new
object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27437	27533	
==>ted.  If you want to
conceptually change an existing Message object, you must create a new
object <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12424	12517	
==>ehave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, thes <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12424	12517	
==>ehave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, thes <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29151	29263	
==>st coverage
analysis.

=head1 TODO

Provide a way of running tests quietly (ie. no printing) for automated
valida <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3562	3668	
==>r.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3562	3668	
==>r.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringif <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	638	742	
==>he required 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv = $s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	537	635	
==>he required 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = $s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21019	21120	
==>ls::require_use_helper(Bool::False,$module);
}
sub Pugs::Internals::require_use_helper ($use_,$module) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13975	14114	
==>ason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap->_is_test($li <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4332	4457	
==>depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else { <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4390	4515	
==>depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else { <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17510	17657	
==>else {
            warn "weird - $node doesn't fmap but is an object";
            return "$node";
        }
    } else {
        return defined $no <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9441	9529	
==>'isNamed'};
	push(@args,"name=>".$stringify->($aname));

	push(@args,"invocant=>1") if $o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1899	2032	
==>or @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1899	2032	
==>or @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2823	2950	
==>$cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2823	2950	
==>$cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	629	829	
==>uleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	630	830	
==>uleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18369	18483	
==>loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18369	18483	
==>loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5602	5714	
==>\"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5602	5714	
==>\"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1735	1865	
==>() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1735	1865	
==>() eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8532	8626	
==>for the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.72 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8532	8626	
==>for the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.72 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5735	5945	
==>}    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Si <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1451	1560	
==>losure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1451	1560	
==>losure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurrence $.univ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9844	9961	
==>e_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9844	9961	
==>e_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (St <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16157	16244	
==>incent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16215	16302	
==>incent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8157	8265	
==>irectory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	867	963	
==>evelopment on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	867	963	
==>evelopment on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7614	7745	
==>@!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7614	7745	
==>@!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5738	5871	
==>t("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5796	5929	
==>t("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, St <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17384	17489	
==>virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file, together with t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17384	17489	
==>virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file, together with t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9094	9186	
==>ODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9094	9186	
==>ODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	427	543	
==>tch = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %pa <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	427	543	
==>tch = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8024	8155	
==>int header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8024	8155	
==>int header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1834	1949	
==>_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	945	1058	
==>_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4311	4420	
==>my $self = shift;
    my $type = shift;
    push @{ $self->{values}{no_index}{$type} }, @_ if $type;
    retur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16636	16724	
==>=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressi <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3352	3455	
==>de_re} = qr/($excl)/ if $excl;
}

sub _build_include_re {
    my @include = map { split /,/ } @{ $Config <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11781	11933	
==>},
            after  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut

=for later
sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41267	41376	
==>n Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback towards improving this module's
docume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41267	41376	
==>n Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback towards improving this module's
docume <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2094	2192	
==>qual($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2094	2192	
==>qual($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	624	761	
==>ss;
}
sub FETCH {
    my $self = shift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2058	2166	
==>.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2058	2166	
==>.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!qu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2000	2154	
==>x:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2000	2154	
==>x:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8711	8819	
==>ent") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8711	8819	
==>ent") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13131	13233	
==>sts

Sometimes a test is broken because something is not implemented yet. So
in order to still allow th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13189	13291	
==>sts

Sometimes a test is broken because something is not implemented yet. So
in order to still allow th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5526	5632	
==>tent.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5526	5632	
==>tent.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3385	3473	
==>5?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3385	3473	
==>5?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2619	2770	
==>> $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1696	1848	
==>eturn $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1696	1848	
==>eturn $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12344	12446	
==>( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12344	12446	
==>( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3083	3192	
==>basechunks);

    # $base now contains the directories the resulting relative path
    # must ascend out of be <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3083	3192	
==>basechunks);

    # $base now contains the directories the resulting relative path
    # must ascend out of be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	885	1061	
==>= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	885	1061	
==>= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	860	968	
==>ix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('li <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	860	968	
==>ix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9182	9311	
==>_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9170	9299	
==>_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16357	16458	
==>ew_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenB <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16357	16458	
==>ew_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenB <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4752	4876	
==>ex[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4752	4876	
==>ex[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index( <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	362	472	
==>1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	362	472	
==>1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3956	4180	
==>/$control -C $my_tmp_dir -xz] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File::Spec->catfile( 
                                    $my_tmp_dir <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11488	11725	
==>ndef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_fi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11488	11725	
==>ndef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_fi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1400	1532	
==>,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1400	1532	
==>,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3714	3834	
==>uage.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3582	3697	
==>uage.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9886	9988	
==>n test utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9944	10046	
==>n test utility functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18616	18734	
==>of whatever web page
     contains the link that the user followed to the current
     page.  Most browsers pass this i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18616	18734	
==>of whatever web page
     contains the link that the user followed to the current
     page.  Most browsers pass this i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18826	18946	
==>->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15247	15367	
==>->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1782	1907	
==>rl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1975	2100	
==>rl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	792	887	
==>-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-Af <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	792	887	
==>-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-Af <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1090	1222	
==>turn {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
} <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1090	1222	
==>turn {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19177	19273	
==>ayers for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19177	19273	
==>ayers for any other programming language can
be supported, such as Tutorial D or XQuery or FoxPro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1792	1880	
==>ule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<lis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3168	3256	
==>ule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<lis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	930	1034	
==>egory 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	930	1034	
==>egory 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - sub <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2739	2852	
==>));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2739	2852	
==>));  #Create the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encr <==
2	/Users/nnunley/pugs/util/importgraph.pl	648	748	
==>e_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $!\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10001	10124	
==>ng); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be workin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10001	10124	
==>ng); };
}

sub encode_entities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be workin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4044	4139	
==>lf = shift;
	my ($node, $symbol, $body) = @_;

	$self->define_named_block($node, $symbol, $body, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22201	22305	
==>a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26753	26857	
==>a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not a table <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4510	4644	
==>= ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must app <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4510	4644	
==>= ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must app <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7050	7227	
==>d $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7050	7227	
==>d $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8707	8828	
==>atchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8695	8816	
==>atchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3088	3258	
==>il  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3088	3258	
==>il  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $match <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1794	1949	
==>(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span unio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1794	1949	
==>(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span unio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3747	3863	
==>r target system runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3612	3726	
==>r target system runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emit <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1402	1528	
==>= 0;
        has Array of Str @strings;

        method subsume ( Getopt::Argument $arg ) { 
            $.append( $self.accept <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30874	30976	
==>operator that returns a new Relation::Example
which has a superset of the original's attributes; the ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26837	26939	
==>(a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
provided (it defau <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26837	26939	
==>(a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
provided (it defau <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	724	846	
==>return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "circumfix:<" . $opt{name} . " " . $opt{ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	119	221	
==>all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	119	221	
==>all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9584	9733	
==>, lastpos
    $S0 = substr target, $I0, 1
    if $S0 != "?" goto end
    islazy = 1
    pos = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10801	10940	
==>my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the opening del <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2846	2946	
==>t::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2846	2946	
==>t::Message $message!) {
    my Str $user_text = $translator.translate_message( $message );
    if (!$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37612	37704	
==>text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37612	37704	
==>text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4352	4496	
==>l is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4410	4554	
==>l is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4387	4488	
==>r = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<k <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4572	4673	
==>r = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	942	1055	
==>statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	942	1055	
==>statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, method, coro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4389	4487	
==>captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4389	4487	
==>captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16853	16956	
==>ding

The Content-Encoding header field is used as a modifier to the
media type.  When present, its valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16853	16956	
==>ding

The Content-Encoding header field is used as a modifier to the
media type.  When present, its valu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1620	1854	
==>multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4001	4159	
==>lse {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3878	4031	
==>lse {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20566	20680	
==>egexp::Parser> installs its handlers
in F<Regexp/Parser/Handlers.pm>.  That file might end up being where
documenta <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6055	6144	
==>twork -package mtl -package template-haskell -package base -package pugs-fps -package pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	248	372	
==>its from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	239	361	
==>its from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3153	3261	
==>pan, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3153	3261	
==>pan, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18649	18784	
==>= $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20007	20142	
==>= $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13002	13113	
==>esult =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13002	13113	
==>esult =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21241	21341	
==>s that it provides a
common API for access to those databases, each of which takes a different
SQL or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21241	21341	
==>s that it provides a
common API for access to those databases, each of which takes a different
SQL or <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4744	4891	
==>: 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = unde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4732	4879	
==>: 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = unde <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10640	10850	
==>0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curir <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10640	10850	
==>0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curir <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	962	1065	
==>lso specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	962	1065	
==>lso specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	516	612	
==>sfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Enco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	516	612	
==>sfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Enco <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1449	1600	
==>->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confes <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38662	38772	
==>0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMITATIONS

I<This d <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11054	11148	
==>>_filtered_INC;
}

=head2 C<_filtered_INC>

  my @filtered_inc = $self->_filtered_INC;

Shorten <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5336	5467	
==>r @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5336	5467	
==>r @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :)
    my $chan = norm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	802	899	
==>rt_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	802	899	
==>rt_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11645	11796	
==>~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11645	11796	
==>~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands ( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5139	5235	
==>\$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "grub-loc <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1100	1190	
==>compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2637	2759	
==>okie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2637	2759	
==>okie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $co <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7821	7929	
==>n_Dir;
    my $t_start = new Benchmark;

    my $width = _leader_width(@tests);
    foreach my $tfile (@tests <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10009	10139	
==>er" <block>))))
                 (returns <method>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3428	3554	
==>e} ) {
        push @{$self->{levels}}, [ $opt ];
        return;
    }
    die "there is no precedence like ", $opt->{othe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6917	7059	
==>$!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10394	10536	
==>$!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1571	1670	
==>r::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1571	1670	
==>r::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3606	3742	
==>aml.Syck"
        my $pathname = $module;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1904	2023	
==>relude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2121	2240	
==>relude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38206	38388	
==>bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->ex <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6764	6919	
==>F' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _pars <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7228	7383	
==>F' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _pars <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	869	977	
==>ingleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elemen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	869	977	
==>ingleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elemen <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22140	22252	
==>h is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotation <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17041	17152	
==>h is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotation <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	350	462	
==>against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	350	462	
==>against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	46	149	
==>mpatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	46	149	
==>mpatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($k <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18939	19034	
==>the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18939	19034	
==>the
channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	287	413	
==>me, $type) = @_;
    (defined $name) 
        || confess "You must provide a name for your symbol";
    bless { 
        name = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3780	3879	
==>t which point the App will put the 10 into the parameter stack and reduce the
Thunk.

Inside the Thu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12693	12808	
==>lass->send('add_method' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new( <==
2	/Users/nnunley/pugs/util/package-osx.pl	4905	5002	
==>l/man/man3/Perl6::Bible::S12.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/lo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9099	9199	
==>XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9099	9199	
==>XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	967	1091	
==>{
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' => q( { r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7445	7554	
==>rxinfix:<|> ..."
  
  my $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rx <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3513	3611	
==>s(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprint <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3592	3710	
==>nion ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3592	3710	
==>nion ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3710	3881	
==>s with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3710	3881	
==>s with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	27	147	
==>an-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unles <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	27	147	
==>an-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unles <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	969	1080	
==>) syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when st <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	969	1080	
==>) syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31096	31199	
==>arts concatenated without any delimiter.  This means,
for example, that the full module names in a set c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31096	31199	
==>arts concatenated without any delimiter.  This means,
for example, that the full module names in a set c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14470	14616	
==>tion type (" . $.fun . " has type " . $f->stringify
		unless $f->is_arrow;
	
	
	my $p_f = $f->left;
	my $ret = $f->right;
	
	my $generic_vars = gen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5956	6081	
==>'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5956	6081	
==>'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21216	21310	
==>oins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21216	21310	
==>oins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a cha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4044	4207	
==>ent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4044	4207	
==>ent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	879	1051	
==>writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy},
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2984	3124	
==>rn concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2984	3124	
==>rn concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1157	1253	
==>particular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1157	1253	
==>particular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	673	779	
==>d>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functi <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	673	779	
==>d>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4736	4868	
==>_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4736	4868	
==>_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18675	18870	
==>get('$method')->is_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: hash %p <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1077	1195	
==>d-alternate means.
# But in my understanding, The implemention below might be right.
	state $t;
	if $t {
		$t = 0;
		re <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4089	4190	
==>params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(print_to => *STDOUT);

  my $ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1067	1266	
==>uleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4531	4703	
==>>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4393	4556	
==>>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4461	4583	
==>presentation {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig};
}

sub is_duplicate {
	my $self = shift <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12279	12386	
==>!.
p6_hex_spec(char(C)) --> hexdigits2_int(C), !.
p6_hex_spec(R)       --> [Open], brackets(Open,Close), p6_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	6	98	
==>1
package Module::Install::WriteAll;

use Module::Install::Base;
@ISA = qw(Module::Install::B <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6728	6828	
==>t <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" conf <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6786	6886	
==>t <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" conf <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	913	1042	
==>NOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12713	12809	
==>Here are the standard warning and error messages.  Their values are all
negative; positive values <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24396	24487	
==>ttp://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24396	24487	
==>ttp://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redist <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	716	834	
==>och) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localti <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	716	834	
==>och) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localti <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	898	1011	
==>e>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo" <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	898	1011	
==>e>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22629	22720	
==>he Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22629	22720	
==>he Rosetta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2838	2956	
==>cument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2838	2956	
==>cument', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2032	2181	
==>tch} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2032	2181	
==>tch} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6869	7125	
==>p->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7226	7482	
==>p->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1148	1290	
==>ge recognition

=cut

{   my $acc = {
        file            => { allow => FILE_EXISTS },
        meta            => { allow => ISA_JIB_META } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45251	45341	
==>ct));

$::Package->send('add_attribute', (symbol->new('$:name')      => attribute->new('$:n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	714	873	
==>protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	714	873	
==>protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	913	1058	
==>inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	913	1058	
==>inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9641	9768	
==>last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9641	9768	
==>last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1023	1136	
==>LEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1023	1136	
==>LEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21109	21301	
==>lf:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44033	44208	
==>lf:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->get('$self: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9159	9349	
==>sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18945	19050	
==>ode.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18945	19050	
==>ode.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When saving.
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18833	18936	
==>ne like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18833	18936	
==>ne like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$or <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23820	23930	
==>ply 
          ($_ send (add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@super <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6557	6674	
==>path (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6557	6674	
==>path (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26242	26344	
==>n sell you a warranty for it.

While it is by no means required, the copyright holders of Rosetta would <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26242	26344	
==>n sell you a warranty for it.

While it is by no means required, the copyright holders of Rosetta would <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1049	1198	
==>ername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1049	1198	
==>ername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35712	35822	
==>ook-aheads.  To
make an object, we need to access C<< $self->{rx} >>.

    my $consume = pop @kids;
    for (@k <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8925	9039	
==>o date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8925	9039	
==>o date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34341	34437	
==>edText::Translator object.
The Set Names property of the new object is set from the named paramet <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34341	34437	
==>edText::Translator object.
The Set Names property of the new object is set from the named paramet <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8625	8725	
==>path (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Wi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8625	8725	
==>path (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Wi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16213	16309	
==>data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20639	20735	
==>data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9391	9526	
==>sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternativ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9391	9526	
==>sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternativ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2676	2823	
==>$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2676	2823	
==>$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1511	1642	
==>tion,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method t <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1511	1642	
==>tion,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2739	2842	
==>e... I think Pugs::Compiler could work as the

basic interface, and if you'd like to offer more, subclas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2637	2739	
==>e... I think Pugs::Compiler could work as the
basic interface, and if you'd like to offer more, subclas <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7571	7699	
==>_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7571	7699	
==>_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6998	7115	
==>han);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6998	7115	
==>han);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	418	625	
==>tring'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$string'),
                    Val(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	259	358	
==>ence (?#... not terminated';
use constant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- use (??{}) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2239	2398	
==>\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2239	2398	
==>\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11446	11567	
==>@h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11446	11567	
==>@h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.define <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3969	4085	
==>ng zero or more `Span` objects.

The array of spans must be ordered, and the spans must not intersect with each other <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3969	4085	
==>ng zero or more `Span` objects.

The array of spans must be ordered, and the spans must not intersect with each other <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	610	740	
==>ter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	610	740	
==>ter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15058	15175	
==>0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW0 = rewr(N), N1 is N + 1, RWx = rewr(N1),
  re_rewrite(R0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30988	31080	
==>ler
must start with "POSIX_".

=item $parser->del_handler(@handle_names)

This uninstalls the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5044	5160	
==>lowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5044	5160	
==>lowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15505	15682	
==>[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15499	15676	
==>[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2523	2680	
==>ype {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2523	2680	
==>ype {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3319	3422	
==>turn "grammar $self->{name} { \n$s}\n";
}

sub _quotemeta { my $s = shift; $s =~ s!'!\\'!g; $s }

sub em <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	193	301	
==>ug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the def <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	193	301	
==>ug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the def <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2832	2952	
==>intext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a n <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2832	2952	
==>intext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3203	3304	
==>ments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3203	3304	
==>ments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2<value2>);

T <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	500	610	
==>ew
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source code generator. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	500	610	
==>ew
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source code generator. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8624	8731	
==>ace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method load_template_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8624	8731	
==>ace; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method load_template_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1897	1999	
==>e {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1821	1921	
==>e {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4752	4903	
==>_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4752	4903	
==>_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1430	1586	
==>efined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1430	1586	
==>efined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4302	4574	
==>sub {
                              my $e = shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8636	8849	
==>ystem(qq[rm -rf $_])                          and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1786	1972	
==>ystem(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status dir like dpkg
    my $postr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1756	1867	
==>bj->from() + 1);
  }
  return $matchObj;
}

sub space {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1169	1262	
==>>compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1389	1482	
==>>compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16725	16861	
==>"]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13146	13282	
==>"]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7050	7211	
==>$sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7050	7211	
==>$sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4298	4416	
==>or + will be reduced, with 1 and 10 in the parameter stack, the
dynamic scope stack will be popped, then the Seq will f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3207	3310	
==>substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10080	10173	
==>head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are over <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10080	10173	
==>head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are over <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	382	536	
==>ts to construct a hash (must be an even number)";
    my %values;
    while (my ($key, $value) = splice(@values, 0, 2)) {
        ((blessed($key)   && $key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17715	17823	
==>@{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  package Regexp::Parser:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	443	551	
==>re not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	443	551	
==>re not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overl <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	905	1011	
==>l
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub GolfScore {
   my $scri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	931	1032	
==>UM, 'Unmatched (';
use constant RPe_RPAREN => --$ENUM, 'Unmatched )';
use constant RPe_BCURLY => --$EN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13978	14136	
==>bstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13972	14130	
==>bstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1938	2039	
==>ey, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard c <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1938	2039	
==>ey, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3325	3464	
==>path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3325	3464	
==>path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $pa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11740	11870	
==>->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14588	14718	
==>->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9377	9501	
==>) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9377	9501	
==>) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0.intersection( $span1 ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	984	1186	
==>ta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	984	1186	
==>ta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tes <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	92	188	
==>tr;
use Perl6::Core::Bit;
use Perl6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3561	3656	
==>ld prevent the Perl 6 compiler
from bootstrapping. 

If that is the case, running C<Makefile.PL> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1529	1637	
==>r; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1669	1777	
==>r; Dumper($self->{ast}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rul <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4095	4211	
==>? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4095	4211	
==>? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4449	4554	
==>ml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4296	4399	
==>ml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3615	3712	
==>O ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3615	3712	
==>O ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handle <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	369	481	
==>oid { $!filter_function = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	369	481	
==>oid { $!filter_function = undef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3339	3475	
==>$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        17161514131 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3339	3475	
==>$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        17161514131 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8730	8846	
==>n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9565	9681	
==>n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" . <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7951	8099	
==>{
        my $pre = "";
        if %mods<i> || %mods<ignorecase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid haskell han <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2827	2926	
==>shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")){
			return Bl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7485	7639	
==>[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7473	7627	
==>[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3870	3994	
==>Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3870	3994	
==>Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

meth <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4657	4799	
==>g{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # he <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1557	1667	
==>Key}{equiv};
    }
    else
    {
      $equivalence = $self->tokenTable()->{$relativePrecedence}{equiv};
    } <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3004	3104	
==>";
    }
}

CONVERSION_SUBS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{b <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14221	14318	
==>$.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::variable::free->new,
			typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	107	221	
==>(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${cla <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5610	5736	
==>(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "del <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5610	5736	
==>(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "del <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1691	1795	
==>my $filename = $1;
	    my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$filename)->get_p6_fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19091	19181	
==>emoval does I<not> happen automatically if using the header(),
push_header() or init_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19091	19181	
==>emoval does I<not> happen automatically if using the header(),
push_header() or init_header <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39753	39849	
==>ftware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39753	39849	
==>ftware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6119	6229	
==>[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6509	6619	
==>[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3466	3574	
==>> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

r <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3466	3574	
==>> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11863	12005	
==>rver, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11863	12005	
==>rver, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6469	6571	
==>ier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwi <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6469	6571	
==>ier_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwi <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3126	3256	
==>s: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19303	19411	
==>t_ml {
    print join '', $ML, @_ if $ML;
}


# For slow connections, we save lots of bandwidth by printing o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19196	19331	
==>urn { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19475	19610	
==>urn { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7554	7694	
==>key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully go <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7554	7694	
==>key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully go <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18289	18395	
==>ress (URI) of the document from which the
requested resource address was obtained.

The "Free On-line Dicti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18289	18395	
==>ress (URI) of the document from which the
requested resource address was obtained.

The "Free On-line Dicti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7724	7845	
==>st::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7782	7903	
==>st::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17061	17223	
==>$$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13482	13644	
==>$$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16336	16451	
==>f queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16336	16451	
==>f queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13834	13950	
==>=~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13834	13950	
==>=~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8728	8896	
==>bstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8728	8896	
==>bstr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3164	3317	
==>nc;
        
        ### set the new value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $config{$func}->[1];
        return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10283	10421	
==>%!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10283	10421	
==>%!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16681	16834	
==>2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the fo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20158	20311	
==>2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the fo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7971	8097	
==>minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7971	8097	
==>minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5953	6056	
==>elemental(X)                   --> "(?", p5_modifier_spec(M), !, p5_modifier_scope(M,X).
p5_elemental(ca <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17416	17515	
==>r )

Performs a Unicode "titlecase" operation on the first character of the string.


=item capitali <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	263	384	
==>tr $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	263	384	
==>tr $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4621	4741	
==>ue;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4621	4741	
==>ue;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27865	27961	
==>of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27865	27961	
==>of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable valu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2699	2804	
==>: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stringi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2699	2804	
==>: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method stringi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5007	5188	
==>t_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5007	5188	
==>t_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	420	543	
==>.'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6234	6351	
==>pture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6033	6145	
==>pture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3722	3837	
==>t mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copy <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3722	3837	
==>t mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copy <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	664	817	
==>nless $self->makemaker_args->{'PL_FILES'};

        if ($args{inline}) {
            $self->Inline->write;
        }
        else {
            $self->Mak <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5033	5184	
==>_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    metho <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5033	5184	
==>_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    metho <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1833	1940	
==>in = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of or <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1833	1940	
==>in = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of or <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1640	1740	
==>ll out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1640	1740	
==>ll out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($clas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2115	2234	
==>XX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2115	2234	
==>XX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated r <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	994	1115	
==>ts

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	994	1115	
==>ts

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15837	15945	
==>r `end` values belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

Fo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15837	15945	
==>r `end` values belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7523	7614	
==>{ Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1348	1439	
==>{ Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_sta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9403	9522	
==>";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9403	9522	
==>";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3081	3185	
==>oad all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2972	3072	
==>oad all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	444	745	
==>> sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28203	28298	
==>TCHES> to C<-W> will
run all tests with all warnings enabled.

=item C<HARNESS_VERBOSE>

If true <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40257	40357	
==>warning and
error messages for your sub-class.

  package Your::SubClass;
  # use constant NAME => VA <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1497	1597	
==>The right hand side must be a core type";    
    return num->new($left->to_native * $right->to_num-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7738	7849	
==>delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7738	7849	
==>delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_han <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32760	32863	
==>elations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37310	37413	
==>elations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3349	3463	
==>ulti }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexsco <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3349	3463	
==>ulti }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexsco <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10289	10411	
==>RRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10283	10405	
==>RRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3906	4016	
==>ch = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4123	4233	
==>ch = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1008	1144	
==>_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1008	1144	
==>_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2937	3055	
==>esis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "oci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2937	3055	
==>esis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "oci <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8507	8610	
==>{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8507	8610	
==>{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8123	8258	
==>tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8123	8258	
==>tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33839	33935	
==>user role's) preferences such that each says what
language they prefer to communicate in, and wha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33839	33935	
==>user role's) preferences such that each says what
language they prefer to communicate in, and wha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	657	805	
==>subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	668	816	
==>subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1392	1491	
==>te/Temp markers for container

allocation, as well as the compile-time-bound values for them.

It in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1332	1429	
==>te/Temp markers for container
allocation, as well as the compile-time-bound values for them.
It in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25920	26048	
==>,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26199	26327	
==>,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8728	8862	
==>ing.\n";
    $fail = 1;
  }
  !$fail;
}

sub require_ok ($) {
    my ($require) = @_;
    eval <<REQUIRE_OK;
require $require;
REQUIRE_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	307	427	
==>=<>;
    my $src = join('', @a);
    my $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $mat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	351	456	
==>gy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	351	456	
==>gy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and g <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1385	1488	
==>2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1385	1488	
==>2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1656	1782	
==>tml',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1656	1782	
==>tml',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5703	5829	
==>[2] = { %{$param[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5521	5644	
==>[2] = { %{$param[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10941	11054	
==>blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some sou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10941	11054	
==>blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some sou <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24075	24186	
==>list([],_,[]).
ground_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H0,D,H1) ; H1 = H0), !, ground <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3909	4004	
==>};
		return { require_bareword => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15208	15320	
==>`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following methods are available for Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15208	15320	
==>`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following methods are available for Span <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12951	13059	
==>ne" href="<tmpl_var name=link>" title="Full smoke report">&raquo;</a></td>
          </tr>
          <tr clas <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8489	8576	
==>d recursively
multi unify => ('type::operator::binary', 'type::operator::binary') => sub <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3393	3489	
==>t does not handle time zones or leap
seconds.

All methods take named parameters unless otherwise <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3393	3489	
==>t does not handle time zones or leap
seconds.

All methods take named parameters unless otherwise <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14167	14266	
==>can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14225	14324	
==>can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7900	7992	
==>{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7900	7992	
==>{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $e <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7232	7387	
==>| <'!=='>
    | <'+'>
    | <'-'>
    | <'*'>
    | <'%'>
    | <'++'>
    | <'--'>
    | <'<<'>
    | <'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5966	6061	
==>e, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar go <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10223	10318	
==>e, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Bar go <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19697	19791	
==>IRC> automatically tries to use slight variations of the nickname in the
login phase (for examp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19697	19791	
==>IRC> automatically tries to use slight variations of the nickname in the
login phase (for examp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5057	5200	
==>{
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5057	5200	
==>{
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6030	6145	
==>+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6030	6145	
==>+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1031	1170	
==>le}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1031	1170	
==>le}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8949	9061	
==>he invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12426	12538	
==>he invocant relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8816	8939	
==>l"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8816	8939	
==>l"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25544	25655	
==>esents (or gives the name of a condition being reported, if it is used
as an exception payload).  The key is int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25544	25655	
==>esents (or gives the name of a condition being reported, if it is used
as an exception payload).  The key is int <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3821	4016	
==>et >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3821	4016	
==>et >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method e <==
2	/Users/nnunley/pugs/util/package-osx.pl	6011	6132	
==>n3/Perl6::Overview::Functions.3
        /usr/local/man/man3/Perl6::Overview::Functions.3pm
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	810	915	
==>xport {

    $iso8601 ~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17530	17667	
==>if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC librar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17530	17667	
==>if substr($str, 0, 1) eq ":";
  return $str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC librar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	596	729	
==>ent position of the match (also holds the
                  string that is being matched against).
    $.match     - State that is sco <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	596	729	
==>ent position of the match (also holds the
                  string that is being matched against).
    $.match     - State that is sco <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	665	784	
==>t = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	665	784	
==>t = Test::Builder::Output.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	415	523	
==>120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 2 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	415	523	
==>120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6701	6836	
==>expected, $name, @mess) = @_;
    my $pass;
    $pass = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22696	22796	
==>is gives the
code a way to be sure compilation was successful.

=item maxpar

The highest number of p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16078	16188	
==>t given in the named parameter $document, and
whose Node Type attribute is set from the named parameter $node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16078	16188	
==>t given in the named parameter $document, and
whose Node Type attribute is set from the named parameter $node_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2030	2169	
==>match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2030	2169	
==>match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12512	12627	
==>{
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12512	12627	
==>{
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1366	1453	
==>e Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1366	1453	
==>e Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	524	617	
==>on *@indextests) returns List of Object|Object
multi sub pairs  (@array ; Any|Junction *@index <==
2	/Users/nnunley/pugs/util/importgraph.pl	2037	2122	
==>ser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs.Parser.Program');
s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4362	4463	
==>>_move( from => $file|$dir, to => $target );

Moves a file or directory to the target.

Returns true o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2939	3049	
==>::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [St <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2939	3049	
==>::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [St <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	773	880	
==>ize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	773	880	
==>ize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	270	397	
==>rns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	270	397	
==>rns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1347	1446	
==>eturn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1347	1446	
==>eturn @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3061	3158	
==>epeatedly to encipher data.
The encipherer closure can be called with a string, and should be call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3061	3158	
==>epeatedly to encipher data.
The encipherer closure can be called with a string, and should be call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8802	8957	
==>em to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8802	8957	
==>em to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5141	5263	
==>s correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5199	5321	
==>s correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5991	6139	
==>{
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fet <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5991	6139	
==>{
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14624	14761	
==>$n->{exp1} ) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	888	991	
==>osetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	888	991	
==>osetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Roset <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4473	4589	
==>for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $off <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4473	4589	
==>for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $off <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1940	2093	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2133	2286	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5042	5171	
==>h => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5235	5364	
==>h => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7254	7346	
==>--------------------
## traversal

method traverse ($self: Code $func, Str $traversal_order?) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7254	7346	
==>--------------------
## traversal

method traverse ($self: Code $func, Str $traversal_order?) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8857	8978	
==>et
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $strin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8857	8978	
==>et
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $strin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	118	221	
==>ctive, higher order
# nature of the Cxt type.  The below is expressive enough to do the
# same thing, bu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1888	1989	
==>pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# XXX Prim.hs has a different return type, S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	311	413	
==>t => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	311	413	
==>t => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2139	2253	
==>{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2139	2253	
==>{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11571	11666	
==>in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11571	11666	
==>in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9043	9143	
==>6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2868	2968	
==>6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6559	6678	
==>@_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6616	6735	
==>@_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing|copyright|legal)\b <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2542	2653	
==>e.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2542	2653	
==>e.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	964	1073	
==>cription ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	964	1073	
==>cription ) );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool
 {
  my $pil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2571	2711	
==>d_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2571	2711	
==>d_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12636	12883	
==>::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12636	12883	
==>::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user m <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1284	1425	
==>s ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1284	1425	
==>s ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13987	14105	
==>->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $crufty = $o->data->[1]->data;
    my $f_else = sub{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16558	16676	
==>->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->ne <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9276	9381	
==>ARNESS_PERL_SWITCHES} );
    my @derived_switches;

    local *TEST;
    open(TEST, $file) or print "can't <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5089	5218	
==>ssign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5413	5542	
==>ssign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4004	4101	
==>{
	return $x->isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)//s;
	return if $ref eq <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5717	5962	
==>abel"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7479	7724	
==>abel"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14890	14984	
==>e(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14890	14984	
==>e(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $use <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1183	1288	
==>odule::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1183	1288	
==>odule::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	240	347	
==>-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	240	347	
==>-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is expo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	357	472	
==>nt $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	357	472	
==>nt $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	528	629	
==>NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	528	629	
==>NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thing <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2646	2736	
==>_scopeop}?\s*${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	940	1089	
==>bject ],    
    methods => {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1..$run <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	626	760	
==>ert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert failed';
        $msg <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	773	901	
==>::Harness::Iterator::ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	908	999	
==>-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Le <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	908	999	
==>-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Le <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10154	10254	
==>/\s/ || $self->{_is_vms}) && !/^".*"$/ );
    }
    return join( " ", @existing_switches, @derived_sw <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19143	19268	
==>32 nparens;            /* number of parentheses */

=head2 The match result:

  I32 sublen;             /* Length of string po <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	832	932	
==>te dynamicity.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Silly; # prompts

    Blondie::Backe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9440	9570	
==>MIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_rout <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9440	9570	
==>MIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_rout <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8159	8262	
==>IT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8159	8262	
==>IT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4834	5058	
==>t_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "So <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8311	8535	
==>t_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "So <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18213	18349	
==>e => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14634	14770	
==>e => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3195	3361	
==>uleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3206	3372	
==>uleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Re <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6686	6774	
==>isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p5_elemental(c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	485	664	
==>erl6';
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
    warn "Error in compile: unknown parameter '$_'" 
        for keys %$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9246	9385	
==>le_rule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	603	737	
==>mbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4081	4215	
==>mbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each S <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8078	8465	
==>k->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App->new(
                                Sym->new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2	115	
==>od
XXX I suspect the where{true}'s are not the right thing.  What is?

The definition of these in terms of smartma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1946	2052	
==>data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callba <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1946	2052	
==>data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callba <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2175	2281	
==>ns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2175	2281	
==>ns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
met <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4813	4930	
==>'/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class att <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4813	4930	
==>'/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class att <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	217	321	
==>t $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DE <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	217	321	
==>t $0 is being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	646	737	
==>l@debian.orgE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11070	11177	
==>eria C<$by> or C<@by> for
comparisions. C<@by> differs from C<$by> in that each criteria is
applied, in orde <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5056	5183	
==>->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # nspace (not a space)
  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	918	1019	
==>desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	976	1077	
==>desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	104	231	
==>{ [^}]*  } |
   < [^>]*  > |
  \( [^)]* \)
}x;


sub nextchar {
  my ($self) = @_;

  ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc;
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1369	1460	
==>peSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondie::TypeSaf <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17331	17427	
==>em *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17331	17427	
==>em *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	329	432	
==>GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	329	432	
==>GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_N <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5001	5120	
==>f: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5001	5120	
==>f: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6843	6988	
==>ge of tests which failed
    canon       List of tests which failed (as string).

C<$failed> should be empty if everything passed.

B<NOTE> Curren <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	365	460	
==>turns Date {
    $self.add(-$duration);
}

method difference($self: Date $other) returns Duratio <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1160	1260	
==>B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1213	1313	
==>B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6553	6649	
==>d2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directive <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6553	6649	
==>d2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directive <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12937	13083	
==>:Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12931	13077	
==>:Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2519	2613	
==>$.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2519	2613	
==>$.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
met <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14299	14417	
==>SideExpression><no_LineTerminator_here><'++'>
    | <LeftHandSideExpression><no_LineTerminator_here><'--'>
}
rule Unary <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	685	781	
==>line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Base::FakeAdmin->new;
}

sub is <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7453	7582	
==>"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7453	7582	
==>"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11653	11788	
==>ined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11653	11788	
==>ined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4650	4819	
==>tamp => $_->{timestamp}[1] }}
        sort {
          $b->{pugs_revision} <=> $a->{pugs_revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2106	2205	
==>ly scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2106	2205	
==>ly scoped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	940	1041	
==>_or_equal_to    { $_[0]->_compare($_[1]) <= 0  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25990	26090	
==>or::arrow->new(
		type::operator::nary->new(list => $a),
		$a,
	);
	is($type->stringify, "∀α. list <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35703	35990	
==>new('$attribute' => 'attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10207	10331	
==>\$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10201	10325	
==>\$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	951	1070	
==>Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	951	1070	
==>Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15695	15791	
==>ild_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15695	15791	
==>ild_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1219	1325	
==>ue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1219	1325	
==>ue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1386	1503	
==>IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1386	1503	
==>IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  % <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7064	7166	
==>HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This mod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7064	7166	
==>HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This mod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19850	19953	
==>".  In array context it will return two
values; the user name and the password.  In scalar context it wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19850	19953	
==>".  In array context it will return two
values; the user name and the password.  In scalar context it wi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7968	8107	
==>lse;
    if $A.property_value.exists($P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint32($V);
            raise Ra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7347	7458	
==>han);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7347	7458	
==>han);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4171	4287	
==>nt !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4171	4287	
==>nt !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	129	290	
==>Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	129	290	
==>Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'N <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1312	1435	
==>hich chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1312	1435	
==>hich chans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8914	9011	
==>$v1 = recurse($v1);
    "bless([$v0,$v1] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unpar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12104	12197	
==>-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12104	12197	
==>-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints th <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	751	913	
==>lass ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CA <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	751	913	
==>lass ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CA <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1964	2089	
==>subclasses
        foreach my $superclass (@{$class->superclasses}) {
           $output .= "node_" . $superclass->id . " -- n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5439	5547	
==>it has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5439	5547	
==>it has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         } <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2670	2768	
==>mit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A buc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2670	2768	
==>mit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A buc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4531	4631	
==>C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4531	4631	
==>C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or decipher <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	367	464	
==>todo_test_junction;

# for running the test suite multiple times in the same process
$Test::testin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	425	522	
==>todo_test_junction;

# for running the test suite multiple times in the same process
$Test::testin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15487	15591	
==>resents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15487	15591	
==>resents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13698	13795	
==>s to
be sorted out before you can continue.

It is also possible to use the `force_todo()` functio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13756	13853	
==>s to
be sorted out before you can continue.

It is also possible to use the `force_todo()` functio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17184	17290	
==>) of the intended audience for the message
content.  The value is one or more language tags as defined by R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17184	17290	
==>) of the intended audience for the message
content.  The value is one or more language tags as defined by R <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26149	26248	
==>pend on the Message Key
it is being used with (others are ignored).  Each variable name can be any
d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26149	26248	
==>pend on the Message Key
it is being used with (others are ignored).  Each variable name can be any
d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9035	9243	
==>);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9035	9243	
==>);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	440	556	
==>in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_co <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	440	556	
==>in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21729	21834	
==>a[2].max_offset

data[0].substr, aka anchored_substr, is used only in
regcomp.c/regexec.c.


  struct reg_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8986	9095	
==>get if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8986	9095	
==>get if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message h <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10113	10205	
==>?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10848	10940	
==>?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10008	10102	
==>match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10743	10837	
==>match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4150	4242	
==>e::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Valu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4150	4242	
==>e::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta::Interface::Valu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1144	1272	
==>ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1144	1272	
==>ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8483	8614	
==>,

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8188	8311	
==>,
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - ne <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11867	11962	
==>is method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11867	11962	
==>is method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4747	4886	
==>ted as a runtime primitive.' .
                'No, Blondie will not have church integers any time soon.',
            ),
        ),

Inheri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	64	165	
==>te for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	64	165	
==>te for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24922	25052	
==>ication_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25201	25331	
==>ication_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7603	7728	
==>-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $cont <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7603	7728	
==>-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2553	2664	
==>mespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2737	2848	
==>mespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ra <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1005	1100	
==>multi Num::round_alternate (Num $x) {
# XXX I don't understand what round-alternate means.
# But <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22202	22299	
==>tifier unexpected" warning raised by a zero-width
assertion followed by C<?>, which doesn't warran <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14092	14192	
==>does not fit into one of the standard
testing functions. In that case, you can use the rather blunt p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14150	14250	
==>does not fit into one of the standard
testing functions. In that case, you can use the rather blunt p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11416	11529	
==>d you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11474	11587	
==>d you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$to <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	954	1070	
==>tr $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	954	1070	
==>tr $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	608	743	
==>ol  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2560	2664	
==>ess ( -f $self->{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7250	7371	
==>lize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7250	7371	
==>lize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_ha <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12439	12550	
==>"continuous" span.
This class implements both types of spans.

- Discrete span

This is used to represent ranges <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12439	12550	
==>"continuous" span.
This class implements both types of spans.

- Discrete span

This is used to represent ranges <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17304	17400	
==>handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17304	17400	
==>handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21067	21160	
==>ch as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21067	21160	
==>ch as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3646	3743	
==>n lacks the actual algorithm description. See links or read
the source (there are about 10 lines o <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3646	3743	
==>n lacks the actual algorithm description. See links or read
the source (there are about 10 lines o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9306	9395	
==>s, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3131	3220	
==>s, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4055	4168	
==>t($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4904	5017	
==>t($_[0]);
    print "Error in eval_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	226	344	
==>,
		App(
			Sym('&infix:<+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:< <==
2	/Users/nnunley/pugs/util/run-smoke.pl	132	227	
==>indBin::Bin, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YAML Test::TAP::Model <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33753	33845	
==>nsformer!) returns Relation::Example>

This method is a short-hand or alternative for the fun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	83	190	
==>--$ENUM, 'Quantifier unexpected on zero-length expression';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19509	19619	
==>n program.

I<Note that an update is planned for Locale::KeyedText that will enable
user text to be stored in n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19509	19619	
==>n program.

I<Note that an update is planned for Locale::KeyedText that will enable
user text to be stored in n <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	897	1007	
==>code($value) if ($variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open("$Path/$SID", :w);
    $f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23442	23559	
==>ram pmc pad
    $S0 = pad[":lang"]
    self["lang"] = $S0
    if $S0 != "PIR" goto end
    $S1 = self["value"]
    $I0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2416	2517	
==>{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol} = Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5547	5719	
==>ebug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5547	5719	
==>ebug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2704	2826	
==>d => '\b');
  });

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	541	688	
==>n' => $plan, '$.output'   => $output)) 
                unless defined __('$:singleton');
            __('$:singleton');
        },
        'create' <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3416	3557	
==>h;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in mail, never clinking.
-}


module Pugs.Config (
    config,
    getCo <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	282	409	
==>ION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub pos <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	282	409	
==>ION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub pos <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6635	6831	
==>sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6635	6831	
==>sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9200	9294	
==>)" }
NODE VBool ($value) { "p6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1309	1412	
==>previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1309	1412	
==>previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::T <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4477	4607	
==>und floor above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floor($x);
    }
    elsif $x > 0 {
        $x_ro <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2819	2912	
==>t_dirs = split(/,/,join(',',@t_dirs||()));


# Find design doc directory, check
unless($no_des <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9374	9514	
==>r "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison opera <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9374	9514	
==>r "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # other comparison opera <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19714	19819	
==>"str")),
	),
);

# we can apply a polymorphic function to a string by giving it as a param to a higher ord <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36614	36711	
==>unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp

Types <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	371	511	
==>unknown parameter '$_'" 
        for keys %$param;
    my $self = { source => $rule_source };
    $self->{perl5} = 
q(sub {
  my $s = $_ <==
2	/Users/nnunley/pugs/t/packages/Test.pm	22	124	
==>est;

sub ns  { "t::packages::Test" }

sub pkg { $?PACKAGE }

sub test_export is export { "party island <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2672	2786	
==>e;
}
# 8.6.2.6
multi method <[[DefaultValue]]> ($O: ?$hint = 'Number') {
    if $hint eq 'String' {
        my $Res <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10087	10201	
==>> sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fif <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	970	1064	
==>d file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	970	1064	
==>d file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	57	159	
==>se Carp qw( carp croak );
use base 'Exporter';
use strict;
use warnings;
use charnames ();

our %loaded <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	495	614	
==>f $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method foot <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	495	614	
==>f $!expect
class Test::Builder::NullPlan
{
    method header returns Str
    {
        return '';
    }

    method foot <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	926	1038	
==>eta::Class {

    $.name = $name;
    return $?SELF;

}

# takes the object and "builds" it into a class
method a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	247	342	
==>kage Pugs::Compiler::Grammar;

use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24632	24733	
==>y.

=item next

An array reference of what handles (or "rules") to try to match next.

=back

=head2 D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32524	32628	
==>Translator object stores some attributes for configuration, its
main purpose is to convert Message object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32524	32628	
==>Translator object stores some attributes for configuration, its
main purpose is to convert Message object <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3732	3822	
==>evan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDun <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3732	3822	
==>evan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDun <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15460	15562	
==>s::encode($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export the %char_t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15460	15562	
==>s::encode($a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export the %char_t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20340	20459	
==>erl5/[^-_a-zA-Z0-9\.\/\\\:]/ {
    warn "-M bug: avoided $file";
    undef;
  }
  else {
    my $cmd = %?CONFIG<perl5pat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8731	8830	
==>f not_an_array_index($P);
    my $uint = ToUint32($P);
    return if $uint < $A.property_value{'leng <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4313	4414	
==>_[0]) });
		my ($thunk_val, @params) = $rapp->values;

		my $thunk_type = $thunk_val->type;
		my @cont <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	533	626	
==>ited/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2229	2370	
==>term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2229	2370	
==>term'};
    my $quantifier = $_[0]->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1781	1889	
==>.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1781	1889	
==>.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7081	7204	
==>on\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7081	7204	
==>on\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normalize $kickee}<chann <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2799	2940	
==>l5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2799	2940	
==>l5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12844	13072	
==>ation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13123	13351	
==>ation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{ <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	781	891	
==>_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_fla <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	682	792	
==>_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_fla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8760	8877	
==>fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6288	6401	
==>fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$ru <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12350	12448	
==>member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12350	12448	
==>member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is clo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12551	12647	
==>em $h.remove_header( $field, ... )

This function removes the header fields with the specified na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12551	12647	
==>em $h.remove_header( $field, ... )

This function removes the header fields with the specified na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3207	3312	
==>houldn't be needed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3207	3312	
==>houldn't be needed since the parameters are bound, not copied.
method add_content (Str $content) {
    $!c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10335	10440	
==>.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
users who wants <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10335	10440	
==>.  The header field
name ($field) is not case sensitive.  To make the life easier for perl
users who wants <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11802	11901	
==>,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11802	11901	
==>,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31765	31863	
==>urrent user is fluent in (and prefers) language A but also understands
language B.  Later on, if fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31765	31863	
==>urrent user is fluent in (and prefers) language A but also understands
language B.  Later on, if fo <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	337	439	
==>OTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Rem <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	337	439	
==>OTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Rem <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5289	5420	
==>' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5289	5420	
==>' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11732	11836	
==>ith the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that define the recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11732	11836	
==>ith the given recurrence.

- `equal( $recurrence )`

Returns true if the closures that define the recurre <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1961	2079	
==>s Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1961	2079	
==>s Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6618	6722	
==>is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' di <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6618	6722	
==>is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' di <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9050	9162	
==>d_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9050	9162	
==>d_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1437	1562	
==>_[0] = '' unless defined \$_[0];\n" .
        #"    print 'GRAMMAR: \$grammar', \"\\n\";\n" .
        "    package Pugs::Runti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	435	535	
==>d, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	435	535	
==>d, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($se <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3953	4048	
==>::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 CO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3953	4048	
==>::Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 CO <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1086	1189	
==>way of imposing a rate limit
against a stream of items. It is also very easy to combine several
rate-lim <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1086	1189	
==>way of imposing a rate limit
against a stream of items. It is also very easy to combine several
rate-lim <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	127	243	
==>ft;
if($str eq '--file') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duratio <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	53	148	
==>vent_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	53	148	
==>vent_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1240	1382	
==>ch,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelud <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1445	1587	
==>ch,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelud <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1333	1469	
==>turn $method->($self, @_);
        }
        else {
            if (exists $_table->{prototype}) {
                $_table = $_table->{pr <==
2	/Users/nnunley/pugs/util/addauthors.pl	1212	1320	
==>warn "$c missing from AUTHORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1505	1624	
==>eys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.include <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1505	1624	
==>eys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.include <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	484	612	
==>5} = 
q(sub {
  my $s = $_[1];
  pos $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @match;
  for <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	220	319	
==>.
   (Even though this impairs 1?)
Please note efficiency isnt currently on the goal list.

CAVEAT - <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12328	12430	
==>>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave q <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12328	12430	
==>>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave q <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8404	8501	
==>ion')>

This event is begun when any block of characters is interpolated for modifiers.

=item I<e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8404	8501	
==>ion')>

This event is begun when any block of characters is interpolated for modifiers.

=item I<e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2053	2188	
==>self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent paramete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2193	2328	
==>self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent paramete <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38229	38331	
==>xt string in
its positional parameter $text (a string), and a Message Variables hash ref
in its positio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38229	38331	
==>xt string in
its positional parameter $text (a string), and a Message Variables hash ref
in its positio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9623	9728	
==>The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $ob <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9623	9728	
==>The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $ob <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4186	4360	
==>{
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    } <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4186	4360	
==>{
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18473	18560	
==>rname>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18473	18560	
==>rname>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13131	13225	
==>b_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prepar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13131	13225	
==>b_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.prepar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15263	15387	
==>"postfix: ", Dumper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ) {
        return _emit( $n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4170	4303	
==>my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$ftype)=($pairs->[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1029	1158	
==>lf, $rx) = @_;
  %$self = (
    regex => \"$rx",
    len => length $rx,
    tree => undef,
    stack => [],
    maxpar => 0,
    n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1376	1488	
==>ity = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1376	1488	
==>ity = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6377	6485	
==>) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6389	6497	
==>) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11902	12003	
==>ties using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11902	12003	
==>ties using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15681	15806	
==>nel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15681	15806	
==>nel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16854	17014	
==>ft().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16854	17014	
==>ft().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @q <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5813	5962	
==>result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4313	4462	
==>result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10725	10845	
==>erpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] ruleop::constant( '" . $value . "' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36939	37050	
==>ft;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->add_handler('&' => su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5411	5565	
==>rn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./fresh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5411	5565	
==>rn 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./fresh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4577	4707	
==>1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4577	4707	
==>1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7233	7341	
==>_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7233	7341	
==>_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and returns a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	897	1022	
==>= $t2-$t;
    #$v;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the future the compile <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15162	15279	
==>:Exp::Scalar")
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    mob["cname"] = cname
    pos = $I0
    goto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4371	4513	
==>@s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4359	4501	
==>@s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1110	1210	
==>ds can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still sup <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1110	1210	
==>ds can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still sup <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18084	18175	
==>in,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17587	17699	
==>lize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17587	17699	
==>lize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	504	626	
==>self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $se <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	405	527	
==>self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16544	16656	
==>if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

= <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16544	16656	
==>if substr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2364	2456	
==>Expr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2364	2456	
==>Expr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	145	248	
==>s Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	145	248	
==>s Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5640	5778	
==>$matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5640	5778	
==>$matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12878	13002	
==>},
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12878	13002	
==>},
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This meth <==
2	/Users/nnunley/pugs/util/claim_drift.pl	798	901	
==>g) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = File::Spec->c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3059	3154	
==>l5::X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my $pil_code = $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14046	14183	
==>e assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14040	14177	
==>e assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12576	12669	
==>d2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12576	12669	
==>d2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5225	5325	
==>ta

The C<data> method returns a hash reference representing the configuration data

=item write

The <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5225	5325	
==>ta

The C<data> method returns a hash reference representing the configuration data

=item write

The <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1332	1424	
==>previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of state <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1332	1424	
==>previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of state <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2979	3112	
==>te list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.f <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2979	3112	
==>te list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2043	2199	
==>k \# Match failed.\n";
	    } else {
		print STDERR "  eval $expr\n" if $debug_warnings;
		my $res = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15065	15170	
==>which will be able to handle structures of arbitrary depth and of
an arbitrary type. The function signatur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15123	15228	
==>which will be able to handle structures of arbitrary depth and of
an arbitrary type. The function signatur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5084	5187	
==>ce_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  $self-> <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2751	2849	
==>ndocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1368	1456	
==>tmp/JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4006	4128	
==>FILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            war <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3485	3688	
==>&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$current')
                  ->send('has_method' => $e->get <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	428	553	
==>$match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	428	553	
==>$match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	826	943	
==>Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backt <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	826	943	
==>Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backt <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2496	2606	
==>$tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket con <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2496	2606	
==>$tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7334	7438	
==>string)
  $self->add_handler('\z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in char <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1543	1643	
==>.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1543	1643	
==>.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8993	9103	
==>nfinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These methods may return no <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8993	9103	
==>nfinite objects:

- `start()` / `end()`

Return the start or end value of the set.

These methods may return no <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4650	4782	
==>',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4650	4782	
==>',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "o <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4815	4921	
==>a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	457	562	
==>ders = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	457	562	
==>ders = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @requ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5491	5595	
==>ion for latter runs of pugs to pick up and load quickly.

Additional options:
    --verbose, -v     print <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14344	14453	
==>p the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatt <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14344	14453	
==>p the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatt <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2310	2400	
==>vaScript::SpiderMonkey, whose
successful work got me thinking about trying a prolog plugin. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36926	37029	
==>e usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The Translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36926	37029	
==>e usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The Translat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14218	14333	
==>e() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14218	14333	
==>e() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	126	253	
==>RSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub c_files {
	warn "c_files has been changed to cc_files to reduce co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12313	12492	
==>r, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12307	12486	
==>r, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17341	17452	
==>ng );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20818	20929	
==>ng );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        heading => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	996	1142	
==>_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1007	1153	
==>_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_ca <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	322	433	
==>= $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities int <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	322	433	
==>= $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similarities int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1742	1862	
==>er::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime eng <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3017	3127	
==>t_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /G <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3017	3127	
==>t_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /G <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7181	7329	
==>$label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7181	7329	
==>$label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18045	18141	
==>sing a simple 'equals', and then the
application can "do the right thing".  No parsing or ambigui <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18045	18141	
==>sing a simple 'equals', and then the
application can "do the right thing".  No parsing or ambigui <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	763	908	
==>onse.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	763	908	
==>onse.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $stat <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5483	5598	
==>t;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests = $self->get_tests;
    $self->run_ch <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4982	5101	
==>st) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4982	5101	
==>st) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle tainting??
#     # { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17401	17500	
==>pers and users alike.

For some practical examples of Locale::KeyedText in use, see the /examples
di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17401	17500	
==>pers and users alike.

For some practical examples of Locale::KeyedText in use, see the /examples
di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1391	1540	
==>/uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1391	1540	
==>/uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protocol;
        
        $req_line <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4803	4942	
==>[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4803	4942	
==>[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{sta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11076	11191	
==>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        el <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11076	11191	
==>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        el <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4585	4690	
==>\$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_er <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5070	5175	
==>\$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_er <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8018	8168	
==>tch => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8018	8168	
==>tch => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7200	7330	
==>CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7200	7330	
==>CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3198	3382	
==>@ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3198	3382	
==>@ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9788	9912	
==>d;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9788	9912	
==>d;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we con <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1365	1480	
==>efined wantarray and !@_;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

sub dynamic_confi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4656	4786	
==>XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @ma <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5120	5250	
==>XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4339	4465	
==>x( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4339	4465	
==>x( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3433	3564	
==>r,$tok);
        return &$step;
      }
      my $op1 = $operators->($noop);
      if($op1) {
        print STDERR "new op\n" if $de <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18482	18606	
==>ExpressionNoIn :words {  # see 11.12
      <LogicalORExpressionNoIn>
    | <LogicalORExpressionNoIn> <'?'> <AssignmentExpress <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	960	1061	
==>)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	960	1061	
==>)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25321	25416	
==>any single script that has failing subtests statistics like the
above are printed.

=item C<Test <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17455	17577	
==>::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17455	17577	
==>::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => ' <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	979	1107	
==>rt @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16730	16813	
==>Re2),F0,F1,B0,B1,E0,E1) :- rm(Re2,F0,F1,B0,B1,E0,E1).

rm(intersection(Re1,Re2),F0,F <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3042	3138	
==>$Config{sitearch} = 'C:\usr\site\lib';
    $Config{sitelib} = 'C:\usr\site\lib';
    require Data <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7003	7090	
==>l_perl5 => $<literal> } }
RULE
*{'_return'} = Pugs::Compiler::Rule->compile(<<'RULE')->c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8912	9021	
==>) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8912	9021	
==>) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5258	5389	
==>(PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TC <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5258	5389	
==>(PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TC <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19490	19620	
==>=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40793	40888	
==>informed any time you create a
modified version of Locale::KeyedText that you are willing to dis <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40793	40888	
==>informed any time you create a
modified version of Locale::KeyedText that you are willing to dis <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7147	7397	
==>tidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if d <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7147	7397	
==>tidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if d <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	661	771	
==>_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	661	771	
==>_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1709	1846	
==>\$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1697	1834	
==>\$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	647	760	
==>h ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): ar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	647	760	
==>h ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): ar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1501	1595	
==>pture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1501	1595	
==>pture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_name{$name}> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3433	3539	
==>}

sub define_prim {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return $body;
}

sub define_lit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3384	3515	
==>:print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3601	3732	
==>:print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

su <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	729	828	
==>);
  my %results = $strap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $strap->total_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6123	6223	
==>();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6123	6223	
==>();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23072	23176	
==>r.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in english tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23072	23176	
==>r.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass in english tex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2271	2474	
==>eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2271	2474	
==>eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25029	25134	
==>n Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special exception <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25029	25134	
==>n Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a special exception <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9437	9535	
==>,
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9437	9535	
==>,
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_load <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	267	374	
==>self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	267	374	
==>self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4541	4643	
==>Spec->canonpath($candidates[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!)[0]); # crea <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1060	1165	
==>_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1060	1165	
==>_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8889	8985	
==>warn(0, "Illegal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_obje <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	395	536	
==>here's no prefix, we want an install.
        $args[0] = 'install';
    }
    else {
        # If this is merely a copy, tell the user to "mak <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1029	1160	
==>: $@"] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_chdir( dir => '/some/dir' )

C<_chdir> changes directory <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1157	1271	
==>);
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1157	1271	
==>);
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1859	1969	
==>en't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1859	1969	
==>en't seen traffic for 120s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.de <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4478	4608	
==>0]}
sub p6_str {"".$_[0]}
#sub p6_ref {ref($_[0])?$_[0]:die "bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('F <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34255	34348	
==>w( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34255	34348	
==>w( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	215	326	
==>use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    my @a=<>;
    my $src = j <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5149	5296	
==>nds see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed pa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5613	5760	
==>nds see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2690	2868	
==>etected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2690	2868	
==>etected by library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1736	1865	
==>ash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1736	1865	
==>ash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4849	5053	
==>my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4861	5065	
==>my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22079	22177	
==>annel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22079	22177	
==>annel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(user <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8228	8324	
==>nts, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2053	2149	
==>nts, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::Perl6->sub_call(@_) };
pus <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3001	3115	
==>m number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to send it in the cl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3001	3115	
==>m number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to send it in the cl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2609	2718	
==>Bool::false;
        }
    }
    return Bool::true;
}

method any_names_exist of Bool (Relation::AttrName *@at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1497	1613	
==>eader {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1497	1613	
==>eader {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7326	7482	
==>'>
    | <'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18793	18896	
==>ength  ; $replace)
{ Pugs::Internals::substr($s,undef,$start,$length,undef,$replace) }
 multi substr(Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4098	4214	
==>{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4315	4431	
==>{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_ma <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	981	1113	
==>nsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) retu <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	981	1113	
==>nsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) retu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1882	1976	
==>mprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1882	1976	
==>mprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	777	899	
==>s}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( @{$self->{levels}}, $_-1, 0, [ $op <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37133	37233	
==>perclasses')    => attribute->new('@:superclasses'    => 'list')));
$::Class->send('add_attribute', ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1869	2064	
==>sult.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1869	2064	
==>sult.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1783	1901	
==>r::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1783	1901	
==>r::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4169	4311	
==>e => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        precedence => 'equ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24854	24972	
==>antifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quanti <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4319	4414	
==>`Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synony <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4319	4414	
==>`Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synony <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4330	4447	
==>lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4180	4294	
==>lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.y <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29690	29786	
==>s a generic relational operator that returns a new Relation::Example
which has a subset of the or <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34908	35004	
==>s a generic relational operator that returns a new Relation::Example
which has a subset of the or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36112	36216	
==>ing the same Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','My <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36112	36216	
==>ing the same Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','My <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	505	631	
==>l, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = J <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	499	625	
==>l, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = J <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11190	11346	
==>_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11184	11340	
==>_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1493	1694	
==>g_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1493	1694	
==>g_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        ' <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3170	3328	
==>storeSize($size);
                }
            },

            'array_deleteElem' => sub { # $int -> (); # undef $array[$idx];
                my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1297	1397	
==>tever the
continuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1297	1397	
==>tever the
continuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1144	1275	
==>ength;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub PrintGolfScore {
   my @sc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1591	1848	
==>ment>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1591	1848	
==>ment>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24567	24677	
==>ers of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29119	29229	
==>ers of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13326	13467	
==>ick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13326	13467	
==>ick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($e <==
2	/Users/nnunley/pugs/util/package-osx.pl	1077	1176	
==>r/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readlin <==
2	/Users/nnunley/pugs/util/package-osx.pl	3387	3486	
==>r/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readlin <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	261	360	
==>"Blondie::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16103	16384	
==>ributes')
                      ->apply(
                          block->new($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7596	7709	
==>o_bar' }
    }
);

is_deeply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method l <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3198	3287	
==>d::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named na <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3198	3287	
==>d::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named na <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14171	14268	
==>UIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $tar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14171	14268	
==>UIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $tar <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5602	5711	
==>0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5602	5711	
==>0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_child_at($index <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2428	2526	
==>/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2428	2526	
==>/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3049	3153	
==>mmon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3049	3153	
==>mmon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1354	1461	
==>h time people say something (in public), the current
time and the text they said is saved.

If the (optional <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1354	1461	
==>h time people say something (in public), the current
time and the text they said is saved.

If the (optional <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18311	18421	
==>eal with it.  But for displaying to users, easy messages are
better.

I have found that when it comes to gettin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18311	18421	
==>eal with it.  But for displaying to users, easy messages are
better.

I have found that when it comes to gettin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3715	3815	
==>ulti sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3715	3815	
==>ulti sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2152	2257	
==>'}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2152	2257	
==>'}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5786	6008	
==>nds( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6250	6472	
==>nds( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we fo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21404	21499	
==>> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21404	21499	
==>> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick(" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	504	613	
==>val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	504	613	
==>val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	903	1081	
==>ode, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug } <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	903	1081	
==>ode, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6055	6169	
==>ject(alnum => 1);
  });

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10431	10528	
==>nChars> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!before <[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10137	10253	
==>ing to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10137	10253	
==>ing to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18127	18278	
==>visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14548	14699	
==>visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONL <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7381	7497	
==>iler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $class = shift <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7381	7497	
==>iler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub pmc_process {
    my $class = shift <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1036	1152	
==>ODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1036	1152	
==>ODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10880	11063	
==>urhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10880	11063	
==>urhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2918	3042	
==>ags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3058	3182	
==>ags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1411	1658	
==>ass Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1411	1658	
==>ass Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages us <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47343	47511	
==>);
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2687	2790	
==>::blessed($type);
	$type = $type->[0] while ref $type and @$type == 1;
	$type;
}

sub has_symbol {
	my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9385	9475	
==>->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3210	3300	
==>->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @sta <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13789	13906	
==>t2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13789	13906	
==>t2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	47	161	
==>stance attributes
has $.y;        # default "is readonly" 
method clear () {
    $.x = 0;  # accessible within th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1180	1307	
==>the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1180	1307	
==>the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1025	1282	
==>EXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1025	1282	
==>EXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6844	6994	
==>ace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6844	6994	
==>ace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = ca <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22495	22589	
==>pending.>

=head1 DESCRIPTION

This library provides a partial implementation, in the form of s <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	429	549	
==>s $line =~ /^#/;
        $prompt = $1   if $line =~ /^#\s*prompt:\s+(.*)/;
        $default = $1  if $line =~ /^#\s*defau <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	868	979	
==>|| $Config{installsbin},

        installman1dir     => $Config{installman1dir},
        installman3dir     => $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3349	3448	
==>PI, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Fla <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3349	3448	
==>PI, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Fla <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8579	8706	
==>ion $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12056	12183	
==>ion $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &in <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13889	14000	
==>duce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1369	1480	
==>duce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7699	7808	
==>ize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7699	7808	
==>ize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30468	30561	
==>system at L<http://rt.cpan.org/>.
You can also mail bugs, fixes and enhancements to 
C<< <bug- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5044	5130	
==>Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min,Max) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37464	37568	
==>od takes the name of a Perl package in its positional parameter
$module_name (a string) and tries to load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37464	37568	
==>od takes the name of a Perl package in its positional parameter
$module_name (a string) and tries to load <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7129	7221	
==>ode_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7129	7221	
==>ode_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYP <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25057	25153	
==>ero tuples.  It is also valid
for a Relation::Example to have zero attributes, though such a Rela <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14632	14805	
==>y'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14911	15084	
==>y'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11447	11566	
==>ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11447	11566	
==>ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDE <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10220	10316	
==>[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)? <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10955	11051	
==>[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)? <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7494	7626	
==>} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_flags;

    re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11565	11664	
==>ments in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11565	11664	
==>ments in this recurrence that are not in the given recurrence.

- `intersects( $recurrence )`

Retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	685	935	
==>.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::She <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	685	935	
==>.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::She <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	449	633	
==>\&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	449	633	
==>\&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	286	468	
==>r' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ } <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1339	1448	
==>egorian.new
        ( :year($year), :month($1),  :day($2),
          :hour($5),    :minute($6), :second( $seco <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4326	4524	
==>etta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4326	4524	
==>etta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	537	648	
==>ault)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	511	616	
==>ault)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4090	4240	
==>i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4090	4240	
==>i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = map &ord, $key.split }
    
    .zero <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1393	1530	
==>ry

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9506	9630	
==>ct($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9506	9630	
==>ct($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3684	3800	
==>", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    . <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3684	3800	
==>", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    . <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3966	4078	
==>name}};
  }

  unlink keys %delete;
}

sub process_list {
  my $tmpl = HTML::Template->new(filehandle => *DATA, d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1262	1400	
==>match) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1262	1400	
==>match) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13507	13611	
==>() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named parameters of
D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13507	13611	
==>() returns a Perl hash ref whose key list
('root_nodes') corresponds exactly to the named parameters of
D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27634	27775	
==>:constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27913	28054	
==>:constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1728	1818	
==>term => $() } }
RULE
*{'sub_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2401	2498	
==>th those limitations and 
still produce a working version of File::Spec for use as we develop 
Pug <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2401	2498	
==>th those limitations and 
still produce a working version of File::Spec for use as we develop 
Pug <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	299	415	
==>> time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	299	415	
==>> time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8650	8751	
==>re this method comes into play
# it will recurse down the tree and fix the
# depth fields appropriatel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8650	8751	
==>re this method comes into play
# it will recurse down the tree and fix the
# depth fields appropriatel <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6107	6217	
==>x);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient A <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6107	6217	
==>x);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient A <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13379	13478	
==>er directly to "Locale::KeyedText" in
your code; instead refer to other above-named packages in this <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13379	13478	
==>er directly to "Locale::KeyedText" in
your code; instead refer to other above-named packages in this <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	790	893	
==>ans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	790	893	
==>ans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2708	2849	
==>rm, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2708	2849	
==>rm, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	959	1060	
==>t, not last
@commits    = reverse @commits;
@developers = reverse @developers;

# Collect commits in d <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	884	989	
==>'$iso8601' to available ISO-8601 formats";

    my $year = $0;
    if ( $year.defined and $year.chars == 2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12509	12642	
==>sif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12509	12642	
==>sif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4716	4820	
==>> { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5368	5472	
==>> { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	612	735	
==>$v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	612	735	
==>$v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8804	8913	
==>module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8804	8913	
==>module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval str <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8132	8273	
==>ft;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8132	8273	
==>ft;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[C <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1101	1201	
==>>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractiv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1101	1201	
==>>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractiv <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1116	1292	
==>Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.deb <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1116	1292	
==>Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.deb <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2124	2224	
==>n;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remaining probes read f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34426	34519	
==>ranch::and> object it
creates!

A method call for a F<Regexp::MyRx::THING> object will look in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3700	3806	
==>captures should put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3] <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3700	3806	
==>captures should put themselves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3] <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	714	832	
==>}

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>ste <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	714	832	
==>}

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>ste <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13803	13933	
==>yn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn_src_dir, 'syn', "$syn.pod") <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23688	23781	
==>es a minimal in-RAM
storage implementation for the Relation library.

I<TODO: REWRITE THE FOLL <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6601	6698	
==>die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6601	6698	
==>die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	13	111	
==>s DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_dur <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	13	111	
==>s DateTime::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_dur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3497	3624	
==>t1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3497	3624	
==>t1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2810	2928	
==>> 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2810	2928	
==>> 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2641	2741	
==>print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2781	2881	
==>print "match: Variables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2278	2381	
==>(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2278	2381	
==>(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8325	8429	
==>nner, this is usually not an issue
# since each time you either add a child
# or create a tree you are do <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8325	8429	
==>nner, this is usually not an issue
# since each time you either add a child
# or create a tree you are do <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1993	2193	
==>ch),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1993	2193	
==>ch),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	568	663	
==>N

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	568	663	
==>N

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. W <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2106	2290	
==>the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2106	2290	
==>the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # S <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9544	9656	
==>> $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9544	9656	
==>> $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	938	1160	
==>ay::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_children(
                                Tree.new(:node<Hash::Const>),
                                Tree.new(:node<Hash:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16873	16973	
==>ill automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16873	16973	
==>ill automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20914	21011	
==>king them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20914	21011	
==>king them easy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl pac <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1409	1566	
==>ytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0x000 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1409	1566	
==>ytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            take $_ +& 0x000 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26574	26677	
==>hod:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26574	26677	
==>hod:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::Keye <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1034	1144	
==>sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is reverse <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1034	1144	
==>sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is reverse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11620	11749	
==>} )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11620	11749	
==>} )
            if !$val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2531	2636	
==>is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2531	2636	
==>is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2127	2280	
==>= @_;
    
    my($repo_set, $inst_set);
    my $tmpl = {
        repository_set => { 
            required    => 1, 
            store       => \$repo_se <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	429	525	
==>$o->{'val_hash'}}

sub from {my($o)=@_;$$o->{'from'}}
sub to   {my($o)=@_;$$o->{'to'}}

sub new { <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	647	757	
==>max > $try ?? $max !! $try; 
    }
    $max.int
}    

sub whisper_about (Int $sizeof_crowd, Array @x?) returns <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8887	9003	
==>e sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.pare <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8887	9003	
==>e sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.pare <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7232	7394	
==>, { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7232	7394	
==>, { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1650	1787	
==>ther => '..',
    );

    # XXX - BUG - collision with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    assoc => 'le <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8981	9083	
==>>{_is_win32};
    return $^X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Forma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18738	18849	
==>ftHandSideExpression> <AssignmentOperator> <AssignmentExpression>
}
rule AssignmentExpressionNoIn :words {  # se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25681	25781	
==>->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pretty print a x b -> c") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37382	37478	
==>if so and false if not.

=item C<load_template_module( $module_name! )>

This method takes the na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37382	37478	
==>if so and false if not.

=item C<load_template_module( $module_name! )>

This method takes the na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2493	2612	
==>? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2677	2796	
==>? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <be <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2764	2888	
==>ft;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2493	2592	
==>head2 $bool = $repo->create()

Creates a new repository on the filesystem. Wipes out an existing one <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19642	19743	
==>e is safe {
    join($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Internals <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7768	7890	
==>isInvocant'}=1 if s/\s*:\s*$//;
	    $h{'isLValue'}=1 if s/\s+is lvalue//;
	    $h{'isLazy'}=1 if s/\s+is lazy//;
	    $h{' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14255	14358	
==>rn $self;
}

method CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs = has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39441	39539	
==>of the characters
on the lower and upper side of the range, objects must be created during
the firs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	151	246	
==>ite of the matching engine, aiming to generate the same data structure as
the 'ratchet' version <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	924	1023	
==>sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	924	1023	
==>sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1707	1852	
==>ut = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FAL <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1707	1852	
==>ut = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FAL <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	212	321	
==>_ );

sub constants { @EXPORT };

use constant IS_CODEREF     => sub { ref $_[-1] eq 'CODE' };

use constant I <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2842	2941	
==>class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2842	2941	
==>class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1112	1208	
==>AME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1112	1208	
==>AME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VE <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14311	14419	
==>perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	792	918	
==>$string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for th <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	792	918	
==>$string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10602	10811	
==>ush @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            els <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10602	10811	
==>ush @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5425	5536	
==>b ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize to: set_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5251	5360	
==>b ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize to: set_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21335	21439	
==>ymbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44242	44346	
==>ymbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24046	24140	
==>sing this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This progr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24046	24140	
==>sing this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This progr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1105	1215	
==>en't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1105	1215	
==>en't seen traffic for 120s
  Bool $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5336	5433	
==>d]}`;
    $self->{_revision} ||= "unknown";
    print "$rev_get_cmd returns revision '@{[$self->{_ <==
2	/Users/nnunley/pugs/util/testgraph.pl	341	435	
==>amlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn't open $yamlfi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8049	8164	
==>n p6_macrop5($1)->(@args);
    }
    if($has_inv) {
	my $fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14607	14703	
==>belongs inside character classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (-27)

Fa <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5373	5484	
==>nd writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> method return <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5373	5484	
==>nd writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The C<err_str> method return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6282	6401	
==>( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6270	6389	
==>( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $ <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1877	1967	
==>nel>

=head2 C<post(POE::Session $session, Str $event, *@args)>

Calls C<$session>'s C<$eve <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4264	4369	
==>ion, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank li <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4264	4369	
==>ion, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20874	20989	
==>>send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43798	43913	
==>>send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	587	700	
==>y $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $para <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	587	700	
==>y $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $para <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	733	890	
==>$v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	733	890	
==>$v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8757	8861	
==>ed until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos_','$_re_' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9233	9343	
==>rrent implementation is always anchored at ^

### because it was specialized for subrules

### - needs to be ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8929	9037	
==>rrent implementation is always anchored at ^
### because it was specialized for subrules
### - needs to be ge <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	578	730	
==>I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	479	631	
==>I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1472	1575	
==>>{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1612	1715	
==>>{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2838	3022	
==>if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2838	3022	
==>if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2717	2845	
==>ameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2901	3029	
==>ameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11207	11309	
==>Document class is pure and deterministic,
such that all of its class and object methods will each retur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11207	11309	
==>Document class is pure and deterministic,
such that all of its class and object methods will each retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7525	7774	
==>e->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every pack <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7989	8238	
==>e->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every pack <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31543	31639	
==>fic
to it, another library likewise, and a program which uses both libraries
could have yet anoth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31543	31639	
==>fic
to it, another library likewise, and a program which uses both libraries
could have yet anoth <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2689	2783	
==>ubclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<sour <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2689	2783	
==>ubclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<sour <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16561	16683	
==>nparen,
      data => \@data,
      raw => '(',
      down => 1,
    }, $class;
    $self->{rx}{captures}[$nparen - 1] = $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4714	4821	
==>Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4714	4821	
==>Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11984	12135	
==>$to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11984	12135	
==>$to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14261	14466	
==>xp1} ) . "; " . 
            _mangle_var( '$!' ) . " = \$@;";
    }
    if ( $n->{op1}{op} eq 'eval' ) {
        return 
            'do { ' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4031	4156	
==>$ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)//s;
	return if $ref eq $cls;
	return if lc($ref) eq $cls;
	return UNIVERSAL:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	988	1087	
==>e_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	988	1087	
==>e_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3877	4157	
==>,
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&repeatedly_apply_and_accum' => Thunk->new(
        Seq->n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2917	3039	
==>acktrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2917	3039	
==>acktrack()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue( <==
2	/Users/nnunley/pugs/util/package-osx.pl	9566	9690	
==>t "Removed $dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	268	366	
==>py);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5245	5380	
==>r(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5245	5380	
==>r(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	920	1029	
==>scribes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	920	1029	
==>scribes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4542	4655	
==>children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4542	4655	
==>children
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!child <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	169	282	
==>use Scalar::Util 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = '' <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5749	5908	
==>result;
}


# copied from S29draft.pod r8593.
multi Array::unshift (@array is rw ; *@values --> Int ) {
    Array::splice(@array, 0, 0, @values);
    @array.ele <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7429	7541	
==>ame"> );
        $ret = emit_Sub( $name, $body, $is_multi, $lvalue, @params, $type );
    }
    elsif $tree[0] eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2158	2252	
==>arses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2247	2341	
==>arses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5318	5464	
==>& ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5318	5464	
==>& ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	409	539	
==>ile || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.p <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	409	539	
==>ile || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18780	18884	
==>ES - Lines beginning with a C<package statement and continuing
        until the next C<package> or C<DAT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18780	18884	
==>ES - Lines beginning with a C<package statement and continuing
        until the next C<package> or C<DAT <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5257	5385	
==>ngth;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of arr <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3757	3885	
==>ngth;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1221	1328	
==>->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signature => $sig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1221	1328	
==>->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signature => $sig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2329	2474	
==>acted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2239	2380	
==>acted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remai <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	48	154	
==>le which heads (or
# should head) up every core test program to prepare it for running.
# Now instead of: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20390	20589	
==>de("fac'"),
							param => comb(
								fun => comb(
									fun => ide("sub"),
									param => ide("x"),
								),
								param => val(1),
							),
						),
						param => comb(
							fun => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34308	34439	
==>, symbol->new(':canonical')));
                $e->create('$next' => $e->get('$dispatcher')->do());             
                blo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	51	146	
==>::Core::Type;

package type::equivalence;

use strict;
use warnings;

use Scalar::Util 'blessed' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3116	3236	
==>DIR} ||= []);
    if ($self->bundles) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11153	11254	
==>gexp> object:

  my $real_rx = $parser->qr;

The regex is formed by calling the qr() method of each no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26961	27058	
==>rgument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26961	27058	
==>rgument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1572	1690	
==>);
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1572	1690	
==>);
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6G <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4543	4696	
==>for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4543	4696	
==>for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	913	1011	
==>rently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	913	1011	
==>rently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13564	13655	
==><$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are onl <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13564	13655	
==><$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are onl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21759	21863	
==>dressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also vali <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26311	26415	
==>dressed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also vali <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	677	781	
==>multi Num::round_half_even (Num $x) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2305	2402	
==>tionality fixed proper to use this ;(
#$config{'build_dir'}        = $config{'jib_dir'}->subdir('b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25772	25867	
==>subclasses ((opaque $self:)) returns list 
    ($self: get_attr (symbol new @:subclasses)))

=cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5747	5876	
==>c\n";
    } elsif ($range < 0) {
        # This is also a fail
        unshift @mess, "# range must not be negative\n";
    } elsi <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	117	220	
==>stead

  ../../pugs -CPIL2-JSON -e ' say "hello" ' | \
    ../../pugs pil2_json_emit_p6.p6

  #! /usr/bi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7241	7334	
==>I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test(Rk), p5_con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34546	34636	
==>en in F<Regexp::MyRx::__object__> (if it exists), then
in F<Regexp::Parser::THING> (if it e <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15859	15968	
==>node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2256	2361	
==>node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $sel <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3999	4103	
==>alue');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Cla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5901	6005	
==>alue');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Cla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9352	9445	
==>@statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3177	3270	
==>@statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22715	22838	
==>ents, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22994	23117	
==>ents, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3977	4089	
==>isa('symbol'))
        || confess "You must store a symbol type in a param list";
    $self->SUPER::store($index, <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1505	1612	
==>FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   BuildFile($intmp, $data <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7145	7338	
==>ultidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $new <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7145	7338	
==>ultidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $new <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3873	4020	
==>}/bin";
    
        my @bins;
        print "\nRelinking scripts/manpages to $new_alt->{package}...\n";
        for ( qx[find $my_bindir -type f] ) <==
2	/Users/nnunley/pugs/util/testgraph.pl	290	397	
==>atrix->css_file();
usage() if $Config{help};

my $yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $y <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35841	35935	
==>ith the
invocant relation into a new Relation, such that all common attribute names
and corresp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40391	40485	
==>ith the
invocant relation into a new Relation, such that all common attribute names
and corresp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18143	18252	
==>? $META->FETCH($_[1]) :'."\n";
    for my $cls (@classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4118	4239	
==>ld is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4118	4239	
==>ld is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10200	10307	
==>_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10200	10307	
==>_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1771	1879	
==>.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1771	1879	
==>.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7136	7246	
==>rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7148	7258	
==>rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"nod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36331	36427	
==>hod is used
internally by translate_message() to produce the list of Template module
names that i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36331	36427	
==>hod is used
internally by translate_message() to produce the list of Template module
names that i <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	201	294	
==>en von Instanz-Variablen
Person $person = new Person;
name $person = "Jens";
$welt.hallo($pers <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15266	15363	
==>nput string).

If you prefer not to import these routines into your namespace, you can
call them a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15266	15363	
==>nput string).

If you prefer not to import these routines into your namespace, you can
call them a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2823	2946	
==>ick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2823	2946	
==>ick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15360	15479	
==>ns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15418	15537	
==>ns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2958	3068	
==>nite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows wh <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2958	3068	
==>nite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2987	3229	
==>] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3234	3476	
==>] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6802	6927	
==>0),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "b <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6802	6927	
==>0),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3833	3943	
==>ish() method to return any leftover data 
and clear the cipher object.

The methods intended to be used by Ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3833	3943	
==>ish() method to return any leftover data 
and clear the cipher object.

The methods intended to be used by Ciph <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6656	6796	
==>str( $_[0], '$<indirect_object>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26716	26814	
==>the node; it uses %Regexp::Parser::loaded to keep
track of which object classes have been loaded al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4987	5111	
==>et_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5209	5333	
==>et_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38571	38671	
==>e, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello W <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38571	38671	
==>e, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello W <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	339	460	
==>(undef, $value) = @_;
    (defined $value            && 
     looks_like_number($value) && 
     ($value == 1 || $value == <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7998	8118	
==>le>.

=cut

sub _command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_command();
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7976	8117	
==>ure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7988	8129	
==>ure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # pri <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3734	3856	
==>me: $file" unless $module;

        strip_comments($program);
        print $ofh $program;

        print STDERR ", $module <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2293	2395	
==>t($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.second - int($.second) ) * 1e3);
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	15	108	
==>::Grammar::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26850	26950	
==> str)", ":t pair(10)('foo')");
is(t($fst), "int", ":t fst( pair(10)('foo') )");
is(t($snd), "str", " <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1908	2008	
==>%Z::oop;
sub mk_operator_precedence_parser {
  my($ws,$operators,$tokens)=@_;
  my $noop = Hacks->noo <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	279	399	
==>dule::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJE <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	180	300	
==>dule::Install::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJE <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	872	968	
==>next if $line ~~ m:perl5/^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.push({Name <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22054	22152	
==>certain code, it
returns the first one it finds.  This also works for the multiple language
or perm <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22054	22152	
==>certain code, it
returns the first one it finds.  This also works for the multiple language
or perm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4118	4253	
==>previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4118	4253	
==>previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_n <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	499	612	
==>multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
mu <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	499	612	
==>multi *infix:<≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
mu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8231	8449	
==>x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8231	8449	
==>x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24186	24347	
==>pture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24465	24626	
==>pture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4684	4799	
==>tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4684	4799	
==>tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2919	3028	
==>hod mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2919	3028	
==>hod mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27207	27345	
==>)
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27486	27624	
==>)
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3114	3220	
==>efix}' directory and run $0 again to load it.
END

    my $obj = $admin->load($method, 1);
    push @{$self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8836	8934	
==>l6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2661	2759	
==>l6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8744	8854	
==>ther=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6273	6379	
==>ther=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15635	15730	
==>structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15693	15788	
==>structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environment <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22520	22614	
==>t will also provide some variable values to be
interpolated into the user strings; Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22520	22614	
==>t will also provide some variable values to be
interpolated into the user strings; Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14524	14623	
==>rows, so will it's
testing needs. This module will be the code support for those needs. The
followin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14582	14681	
==>rows, so will it's
testing needs. This module will be the code support for those needs. The
followin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3460	3562	
==>d1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3460	3562	
==>d1 NAME

Rosetta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	720	878	
==>0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	720	878	
==>0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] + <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4820	4917	
==>_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.o <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4820	4917	
==>_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.o <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25312	25392	
==>C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12453	12552	
==>eplacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12453	12552	
==>eplacement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10559	10665	
==>next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The complement set is spe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10559	10665	
==>next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The complement set is spe <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	516	695	
==>ailed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                + <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	516	695	
==>ailed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                + <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4295	4414	
==>riber $subscriber) {
        $subscriber.($.subscription, $.event.args);
    }

    method dispatch (Class::Events::Subs <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3431	3573	
==>to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2193	2357	
==>LD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2193	2357	
==>LD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11802	11900	
==>e. Potenially dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is primit <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	522	651	
==>od _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	522	651	
==>od _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12705	12811	
==>urns the start element in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12705	12811	
==>urns the start element in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16192	16308	
==>= $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16192	16308	
==>= $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type h <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3196	3303	
==>le 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3196	3303	
==>le 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9804	9902	
==>f being the very first module written for Pugs.

It provides a simple set of common test utility fu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9862	9960	
==>f being the very first module written for Pugs.

It provides a simple set of common test utility fu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5085	5225	
==>return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5085	5225	
==>return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ( <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	210	324	
==>e recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinit <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	210	324	
==>e recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinit <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20030	20149	
==>npath  = shift;
    my $outpath = abs2rel($inpath, $start_dir); 
    $outpath    = rel2abs($outpath, $output_dir);
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9115	9295	
==>ody ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12592	12772	
==>ody ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $oth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2272	2394	
==>.pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2189	2304	
==>.pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7085	7203	
==>->add_handler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = sub <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1717	1819	
==>nfix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can defin <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1717	1819	
==>nfix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can defin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37585	37688	
==>re'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37585	37688	
==>re'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7434	7539	
==>perators take a list of match operators, and return a new 

match operator.



A ruleop() function gets as <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7181	7283	
==>perators take a list of match operators, and return a new 
match operator.

A ruleop() function gets as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9029	9167	
==>ex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9029	9167	
==>ex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	517	625	
==>_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	517	625	
==>_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11690	11886	
==>ymbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e->get('?%params') <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4438	4546	
==>s, since they have children
	my $self = shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6418	6553	
==>eturn 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6418	6553	
==>eturn 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2933	3027	
==>er>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2933	3027	
==>er>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipher <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5786	5917	
==>vars).')';
    my $decl = "";

    my $sn = $pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	warn "state PPad not <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11037	11132	
==>le/Filter some source code into something else. This is almost
# always overridden in a subclass <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11037	11132	
==>le/Filter some source code into something else. This is almost
# always overridden in a subclass <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6062	6165	
==>s is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6062	6165	
==>s is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7198	7310	
==>iles, file($path.'.index');
        push @index_files, map { $path->file($_) }
                $self->_index_file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13235	13340	
==>p;

	eval "require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3962	4120	
==>xclude $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $con <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2229	2331	
==>Events::Subscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class::Eve <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3818	3912	
==>tempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropr <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3818	3912	
==>tempts to parse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6086	6204	
==>ndler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event:: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6086	6204	
==>ndler::HTML - A collection of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15707	15809	
==>ly).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15707	15809	
==>ly).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12391	12602	
==>ns

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier>
    | <Literal>
    | <ArrayLiteral>
    | <ObjectLiteral>
    | <'('> <Expression> <')'>
}
rule ArrayLiteral :words {  # see 11.1 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2297	2422	
==>de_" . $role->id . " -- node_" . $class->id . " [ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEE <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1424	1581	
==>s defined $o->{$k};
                return 0 unless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $ev <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	516	622	
==>Relation-0.0.1 {

    # External packages used by the Relation class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	688	833	
==>ile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	688	833	
==>ile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2341	2459	
==>arser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($contain <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2341	2459	
==>arser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($contain <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1458	1556	
==>e-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1458	1556	
==>e-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10633	10740	
==>ord from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10633	10740	
==>ord from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4541	4661	
==>f ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $a[0]->emit if @a == 1;
    my @f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7653	7809	
==>current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7653	7809	
==>current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3043	3197	
==>anted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14963	15069	
==>rl .= $exe;
	}

	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For subcommands to use. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16598	16683	
==>1,B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2775	2903	
==>pen: $in: $!";
    open my $ofh, ">", $out or die "open: $out: $!";
    binmode $ofh;
    my $gz = Compress::Zlib::gzopen($ofh, " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	76	181	
==>ase 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	76	181	
==>ase 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39242	39333	
==>L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39242	39333	
==>L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12990	13096	
==>elonged to which field.

=item $h.remove_content_headers

This will remove all the header fields used to de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12990	13096	
==>elonged to which field.

=item $h.remove_content_headers

This will remove all the header fields used to de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4241	4335	
==>eference, the match object returns positional
captures as match objects.

=head2 %{}

When used <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4241	4335	
==>eference, the match object returns positional
captures as match objects.

=head2 %{}

When used <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25828	25924	
==>thod will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30380	30476	
==>thod will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4515	4655	
==>method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },               
    },
);

# The 'Eige <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1990	2125	
==>r::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1990	2125	
==>r::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4094	4227	
==>re no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4094	4227	
==>re no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	209	319	
==>ckage::Installable;

use File::Spec;
use File::Basename          qw[basename];
use Params::Check           qw[c <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	324	425	
==>ns(Code *$input, Str *$label, Str $pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - slurp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1897	2003	
==>erl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Bas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1897	2003	
==>erl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Bas <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1846	2015	
==>storeVal' => sub { # $idx -> $value -> ()
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	981	1098	
==>n";
    open FILE, "<", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    close F <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3181	3296	
==>d"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3181	3296	
==>d"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13639	13733	
==>turned in the recommended "Good Practice" order.

In scalar context return the number of distin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13639	13733	
==>turned in the recommended "Good Practice" order.

In scalar context return the number of distin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2507	2629	
==>nt FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2724	2846	
==>nt FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5417	5592	
==>n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5429	5604	
==>n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5230	5374	
==>nless $self->is_admin;

  META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            while (<FH>) {
                las <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3087	3189	
==>arts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3087	3189	
==>arts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17716	17811	
==>ject. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17716	17811	
==>ject. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7829	7946	
==>hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7817	7934	
==>hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2175	2283	
==>al { require Compress::Zlib; debug "Gzip compression on\n" } and
    $compress = sub { Compress::Zlib::memGzi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	417	521	
==>multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	475	579	
==>multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $nu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9469	9596	
==>}
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {.. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9469	9596	
==>}
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {.. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4380	4478	
==>&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4380	4478	
==>&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB] <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1461	1582	
==>Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$lang>. C<Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4482	4620	
==>space " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4622	4760	
==>space " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10117	10255	
==>ch;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10111	10249	
==>ch;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7684	7779	
==>atch_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7423	7515	
==>atch_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	197	304	
==>and();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAM <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	197	304	
==>and();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAM <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7867	7999	
==>eld', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7867	7999	
==>eld', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	127	234	
==>ethod empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	127	234	
==>ethod empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13927	14041	
==>ve );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13927	14041	
==>ve );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1202	1326	
==>$_[0], '$<rule>' ), '     ' );
    return "*{'Pugs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$gra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23173	23258	
==>Perl6::Run::OnPerl5::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
use st <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7852	7991	
==>input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under CGI
        } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7852	7991	
==>input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under CGI
        } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1880	1986	
==>t splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with P <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1880	1986	
==>t splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with P <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2143	2261	
==>fference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2143	2261	
==>fference( $set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $inter <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11024	11126	
==>s;
}

# Compile/Filter some source code into something else. This is almost
# always overridden in a su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11024	11126	
==>s;
}

# Compile/Filter some source code into something else. This is almost
# always overridden in a su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37652	37749	
==>$msg_key! )>

This method takes the name of a Perl package in its positional parameter
$module_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37652	37749	
==>$msg_key! )>

This method takes the name of a Perl package in its positional parameter
$module_nam <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1482	1572	
==>com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1322	1412	
==>com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4007	4147	
==>rn $_[0]{q1}() } 
    ' );
    my $match = $rule->match( "xyzw" );
    is( "$match", "x", 'stringify 1' );
}


__END__

Operator precedence p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	432	557	
==>->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	452	565	
==>->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5679	5834	
==>ined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5679	5834	
==>ined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7454	7546	
==>$newest_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1345	1454	
==>mmar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1345	1454	
==>mmar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1643	1765	
==>te.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1643	1765	
==>te.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1078	1252	
==>:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1078	1252	
==>:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = mat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2368	2486	
==>) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ---------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2368	2486	
==>) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ---------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1226	1330	
==>= @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' unles <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1226	1330	
==>= @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' unles <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22660	22761	
==>ck")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22660	22761	
==>ck")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")> <==
2	/Users/nnunley/pugs/util/run-smoke.pl	56	149	
==>svn);
use Config;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin::Bin, "..", <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	646	739	
==>://www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<S <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	646	739	
==>://www.haskell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11368	11518	
==>%char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11368	11518	
==>%char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	751	856	
==>}
sub set {
    my($o,$b,$s,$a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32510	32613	
==>f->nparen ];
  }

That means that when an 'open' node is walked into, after it has
been walk()ed, it wil <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2363	2465	
==>ze && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2363	2465	
==>ze && $other.includes($self.members));
    return $rv;
}
method proper_subset($self: Set $other) return <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3051	3147	
==>ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		w <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3051	3147	
==>ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7165	7264	
==>ode type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7177	7276	
==>ode type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4457	4550	
==>xt::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4457	4550	
==>xt::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17091	17203	
==>=> /^\s+/
  /[\w]/             => /\w/

There are other possibilities as well.

=back

=head1 HISTORY

=head2 0.0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16125	16232	
==>g parenthesis (maybe capturing paren)

  # any character

  # backslash

  # start of char class (and possib <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19649	19749	
==>ror messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19649	19749	
==>ror messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6874	6997	
==>elf: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6874	6997	
==>elf: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header(" <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	852	969	
==>, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code *&test  ) returns Lazy
 multi sub Array:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20009	20093	
==>],F1,B0,[C|B0],E0,E0) :- flag_i(E0), case_insensitive_char_eq(C,Ci), !.
rm(class_pos( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1090	1183	
==>omplementary functions are emulated using iterations.

- `new( closure_next => sub {...}, clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1090	1183	
==>omplementary functions are emulated using iterations.

- `new( closure_next => sub {...}, clos <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1714	1939	
==>art_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1714	1939	
==>art_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14597	14713	
==>e, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14597	14713	
==>e, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2588	2694	
==>subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2772	2878	
==>subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11104	11229	
==>x

You can use the qr() method to get back a F<Regexp> object:

  my $real_rx = $parser->qr;

The regex is formed by calling t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	608	729	
==>o code";
__END__

#use Test::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3735	3912	
==>= $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3875	4052	
==>= $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4785	4901	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4978	5094	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	647	774	
==>tracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	647	774	
==>tracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6655	6763	
==>${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7663	7771	
==>${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_objec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1807	1898	
==>::Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1807	1898	
==>::Model for English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6902	7001	
==>. 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' direc <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6902	7001	
==>. 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' direc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19879	19973	
==>he nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19879	19973	
==>he nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7274	7506	
==>{
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7274	7506	
==>{
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4214	4329	
==>return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7691	7806	
==>return Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3871	4055	
==>0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.is <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3871	4055	
==>0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	816	950	
==>method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	816	950	
==>method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1330	1435	
==>');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Mak <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1330	1435	
==>');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Mak <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	842	953	
==>rray, 0, 0, @values);
   @array.elems;
 }

 multi sub Array::grep (@values ;      Code *&test  ) returns Lazy
 m <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2282	2384	
==>ed.

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1161	1284	
==>rn { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1161	1284	
==>rn { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <var <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1592	1716	
==>ommand = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('mayb <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1503	1609	
==>ommand = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('mayb <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26206	26303	
==>e Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relation::Ex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23691	23816	
==>e REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28906	29004	
==>e REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4259	4432	
==>Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4259	4432	
==>Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF!_a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14896	15037	
==>ar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15175	15316	
==>ar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24116	24240	
==>flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

  for (map "FLAG_$_", split //, $of <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	538	630	
==>m = $self->SUPER::provides($digest);
    ($prim && $prim->can("name") && exists $masked_ops{$ <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	966	1076	
==>self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	966	1076	
==>self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2642	2746	
==>t[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2642	2746	
==>t[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10025	10132	
==>tities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10025	10132	
==>tities_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8371	8494	
==>to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8371	8494	
==>to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, retu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10305	10396	
==>defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11040	11131	
==>defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]" <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	181	304	
==>eading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my In <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	181	304	
==>eading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my In <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3648	3748	
==>erl 6 was still being developed.

This module is primarily for reading human written files, and anyth <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3648	3748	
==>erl 6 was still being developed.

This module is primarily for reading human written files, and anyth <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3980	4129	
==>open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3980	4129	
==>open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22727	22831	
==>each Template can optionally use them; but often a template will
choose to show less than all of the avai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22727	22831	
==>each Template can optionally use them; but often a template will
choose to show less than all of the avai <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	59	187	
==>ction; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't sho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	59	187	
==>ction; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't sho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12182	12306	
==>RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4825	4949	
==>RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5995	6098	
==>re_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5995	6098	
==>re_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10049	10163	
==>ing) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %te <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10049	10163	
==>ing) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %te <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15198	15372	
==>ented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15192	15366	
==>ented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12724	12823	
==>used as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12724	12823	
==>used as a replacement for '-'.

The return value is the values of the fields removed.  In scalar
con <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	221	337	
==>d ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	221	337	
==>d ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	624	768	
==>nue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clon <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	624	768	
==>nue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clon <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1208	1318	
==><perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1208	1318	
==><perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1330	1427	
==>self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1330	1427	
==>self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28735	28829	
==>ed, or any C<$mapping> value set members do not match invocant
Relation attribute names, or dup <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33287	33381	
==>ed, or any C<$mapping> value set members do not match invocant
Relation attribute names, or dup <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while4.pl	22	134	
==>hleife in Perl 6
use v6;
my $i = 1;
loop { # dies ist eine echte Schleife, daher...
	say $i; $i++;
	# last if $i= <==
2	/Users/nnunley/pugs/util/config_h.pl	426	526	
==>@ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) = split <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	524	631	
==>%parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	524	631	
==>%parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1552	1688	
==>end($end) );
        }
    } else {
        !!!
    }

=cut


    return $duration;
}

# operations with Duration::Gregorian constructors <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10594	10714	
==>, qw< minmod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my ($S) = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	177	282	
==>arnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $va <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13480	13590	
==>bject, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_h <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13480	13590	
==>bject, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_h <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4605	4707	
==>bject, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4605	4707	
==>bject, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	662	762	
==>x/) {
			"warn 'Filtered:$sub';\nuse Smart::Comments;\n" . $orginal
		} else {
			"no Smart::Comments <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3950	4047	
==>ule syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
bel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4134	4231	
==>ule syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
bel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22681	22776	
==>contains all possibly useful details, so
that each Template can optionally use them; but often a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22681	22776	
==>contains all possibly useful details, so
that each Template can optionally use them; but often a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2109	2288	
==>return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2109	2288	
==>return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	873	1020	
==>include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so return
        return unless $func($c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	873	1020	
==>include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so return
        return unless $func($c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4997	5109	
==>INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4997	5109	
==>INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2197	2298	
==>tc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we cu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2197	2298	
==>tc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we cu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4520	4657	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4713	4850	
==>2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3363	3470	
==>signature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <ty <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3363	3470	
==>signature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <ty <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2137	2254	
==>ke} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or die "Could not update pugs tree: $!";
sys <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15323	15426	
==>heir value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15323	15426	
==>heir value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11552	11655	
==>utes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collect <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11552	11655	
==>utes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collect <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4622	4726	
==>ubs might not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is primit <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3620	3722	
==>= $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrenc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3620	3722	
==>= $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrenc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37680	37782	
==>) returns Relation::Example>

This method is a generic relational operator that takes a single Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38520	38622	
==>) returns Relation::Example>

This method is a generic relational operator that takes a single Relation <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	305	434	
==>target,
    Code $f,
    Code +$fprime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  + <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4588	4704	
==>ice<Array>.assuming(offset(-1) :length(1));

 multi Array::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Arra <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2736	2850	
==>or error( "Could not chdir to '$builddir'" ), return;

### XXX perl-ify
sub build {
    my $self = shift;
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4756	4859	
==>ter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quar <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4756	4859	
==>ter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	801	902	
==>ore for single elements (Span::Singleton)
    * use binary search instead of linear search

  From Per <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	801	902	
==>ore for single elements (Span::Singleton)
    * use binary search instead of linear search

  From Per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4492	4611	
==>!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4492	4611	
==>!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %!channels{$chan}<users>.keys;
      }

      # We have already i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5611	5741	
==>he recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5611	5741	
==>he recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15642	15743	
==>e and time after which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15642	15743	
==>e and time after which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1331	1430	
==>nsists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp markers for container

allocati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1273	1369	
==>nsists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp markers for container
allocati <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5497	5606	
==>Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec pl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5497	5606	
==>Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec pl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2045	2148	
==>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
distinctio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2045	2148	
==>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
distinctio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40082	40177	
==>edText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, In <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40082	40177	
==>edText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30597	30697	
==>ge; each file can be
shared by multiple Messages but the whole module must represent a single
languag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30597	30697	
==>ge; each file can be
shared by multiple Messages but the whole module must represent a single
languag <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8653	8771	
==>a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` obje <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8653	8771	
==>a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4022	4131	
==>ring("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field is copy, $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4022	4131	
==>ring("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field is copy, $v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6439	6549	
==>{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6439	6549	
==>{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %user <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25050	25148	
==>rns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

=it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29602	29700	
==>rns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation.

=it <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1052	1194	
==>h {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1052	1194	
==>h {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3978	4058	
==>perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3978	4058	
==>perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11677	11857	
==>[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->package eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	988	1087	
==>lsif|else|unless|while|unless)';
our $re_reserved = "(?:$re_condition)";
our $re_varname = $re_sigil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18258	18360	
==>rces, such as a repository file
on disk, it is expected that the Engines will employ appropriate measur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18258	18360	
==>rces, such as a repository file
on disk, it is expected that the Engines will employ appropriate measur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	885	989	
==>imple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	885	989	
==>imple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26761	26899	
==>}; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27040	27178	
==>}; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	309	460	
==>brule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	309	460	
==>brule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	764	874	
==>e::Binary
    JIB::Package::Installed

=head1 ACCESSORS 

=head2 package

Set the name of the full package pack <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1896	2004	
==>omp($str);
		$str =~ s/^\s*//;
		return $str;
	} else {
		return "undef" unless defined $node;
		return "$nod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	783	916	
==>n $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	783	916	
==>n $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	527	654	
==>codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	527	654	
==>codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22238	22335	
==>-
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0.1.0.

It also d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2043	2167	
==>unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2043	2167	
==>unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - univer <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9089	9201	
==>move alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO fla <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2124	2236	
==>move alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO fla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12282	12389	
==>w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^E <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12282	12389	
==>w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^E <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23538	23658	
==>define REG_SEEN_SANY           REG_SEEN_CANY /* src bckwrd cmpt */


  #define REXEC_COPY_STR  0x01            /* Need to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9691	9825	
==>e => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \${\$hash->{'bool'}};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3425	3548	
==>:PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3425	3548	
==>:PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1240	1359	
==>> $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns Lis <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1240	1359	
==>> $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns Lis <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10522	10620	
==>greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informatio <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10522	10620	
==>greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informatio <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13849	13947	
==>nt "foo bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13849	13947	
==>nt "foo bar"

This routine is exported by default.

=item encode_entities( $string )

=item encode <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2063	2228	
==>].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2063	2228	
==>].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24605	24710	
==>returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=item C<heading () ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29157	29262	
==>returns Bool>

This method returns this Relation's "is mutable" boolean attribute.

=item C<heading () ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6298	6405	
==>Value::Object $v) {
    my $Result1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    re <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18151	18249	
==>ith element 1 being
#1 and 0 being empty, this is less awkward.

=head1 EXAMPLES

See F<examples/mi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10257	10362	
==>e->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10257	10362	
==>e->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12320	12423	
==>ns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12320	12423	
==>ns true if the parameter is a member of the recurrence set.

- `closest( $x )`

Returns the element in t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35996	36089	
==>f this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>". <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35996	36089	
==>f this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>". <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5643	5767	
==>ds))         (hash)))    

=cut

# create the basic Class
$::Class = opaque->new(
        reference->new($opaque::NULL_OBJECT <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7298	7389	
==>iables, which delegate. see below)
multi unify => ( 'type::variable::free', any(qw/type::var <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25886	25973	
==>atom(X), atom_codes(X,L), !.
listify(X,L) :- string_to_list(X,L), !.
listify(L,L).
listi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4711	4815	
==>t
    --initrd-img will be mounted to --initrd-mnt in order to copy files to it.
  --cdroot=$cdroot
    - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10312	10457	
==>e(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10312	10457	
==>e(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3055	3172	
==>" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3055	3172	
==>" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2066	2206	
==>\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could ju <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2206	2346	
==>\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could ju <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8731	8838	
==>Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8789	8896	
==>Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2079	2199	
==>ry', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], exp3 => \$_[5],} }",
        
    # XXX
    #infix_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16230	16338	
==>contains potential unsafe characters.\n"
      if /[ <>;&\\\$'"]/;
  }
}

sub get_version {
  my $bin = shift <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1520	1643	
==>, sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    return $r <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1520	1643	
==>, sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    return $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7625	7729	
==>right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1629	1742	
==>kemaker_args->{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2840	2942	
==>bscription);
        }

        method remove_subscription (Class::Events::Subscription::Named $subscri <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	944	1056	
==>require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simpl <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	944	1056	
==>require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simpl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15728	15819	
==>| <RelationalExpression> <'instanceof'> <ShiftExpression>
    | <RelationalExpression> <'in' <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6712	6895	
==>doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $li <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5216	5399	
==>doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $li <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1994	2247	
==>s Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1994	2247	
==>s Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15206	15314	
==>:$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.flood <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15206	15314	
==>:$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.flood <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1720	1827	
==>m',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1720	1827	
==>m',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	903	1037	
==>rc = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eva <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	903	1037	
==>rc = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eva <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7359	7451	
==>ammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1184	1276	
==>ammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @stateme <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11818	11910	
==>ct_spec(char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	414	521	
==>e Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	414	521	
==>e Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	640	742	
==>tersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is sym <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	640	742	
==>tersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is sym <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2256	2375	
==>msg {
  my ($self) = @_;
  return $self->{errmsg};
}


sub errnum {
  my ($self) = @_;
  return $self->{errnum};
}


sub <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5054	5154	
==>STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "erro <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29583	29677	
==>utes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation::Example>

T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20822	21013	
==>leop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21101	21292	
==>leop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2117	2236	
==>tcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2117	2236	
==>tcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19626	19729	
==>sarily the names you specified in the constructor. For example,
C<Net::IRC> automatically tries to use s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19626	19729	
==>sarily the names you specified in the constructor. For example,
C<Net::IRC> automatically tries to use s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2707	2837	
==>nstant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2891	3021	
==>nstant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9016	9115	
==>art()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9016	9115	
==>art()` / `end()`

Return the start or end value of the set.

These methods may return nothing if the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7483	7611	
==>",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7495	7623	
==>",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not ha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26465	26561	
==>}

(method add_subclass ((opaque $self:) (opaque $subclass)) returns nil 
    (($self: get_attr ( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	681	798	
==>etching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	580	683	
==>etching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.m <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	174	270	
==>t
Probleme bereitet, wird sie in Perl 6 nur noch vom Datentyp
und nicht mehr vom Kontext abhängi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3303	3428	
==>match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3496	3621	
==>match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1238	1331	
==>------------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
b <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1078	1171	
==>------------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2391	2615	
==>le ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2391	2615	
==>le ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1628	1730	
==>s invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1628	1730	
==>s invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2327	2425	
==>he total report.  Returns the C<%results> of the test.
See L<Results>.

C<@test_output> should be t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1151	1269	
==>start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1151	1269	
==>start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2434	2537	
==>stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that has the problem of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2341	2442	
==>stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that has the problem of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	115	230	
==>b str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAU <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	115	230	
==>b str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAU <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7645	7754	
==>] $thunk $params[1] )";
	} else {
		return "$thunk( " . join(", ", @params) . " )";
	}
}

sub reduce_prim {
	m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19102	19193	
==>F1,B0,B1,E0,E1) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(Re,F <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2868	2972	
==>tographer worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initializati <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2868	2972	
==>tographer worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initializati <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3571	3687	
==>s = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $ar <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2614	2727	
==>s = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $ar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9961	10077	
==>join(",",@args)."]";
	push(@param_info,$args);
    }
    my $code_param_info = join(",",@param_info);
    my $my_args <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4881	4984	
==>ffset(0) :length(1));

 multi Array::shift ( --> Scalar ) {
   Array::shift CALLER::<@_>;
 }


 multi Ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4449	4553	
==>ut}= { op1 => 'method_call', self => $_[1], method => $_[3], } }
    | exp '.' BAREWORD '(' exp ')'  %pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21737	21854	
==>ext} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18158	18275	
==>ext} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15745	15845	
==>el::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15745	15845	
==>el::Node - This stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12505	12606	
==>iscrete span

This is used to represent ranges of things that can be counted, such as beats per minute <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12505	12606	
==>iscrete span

This is used to represent ranges of things that can be counted, such as beats per minute <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2734	2872	
==>ure} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2629	2761	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3560	3741	
==>w(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3560	3741	
==>w(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                retur <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	246	347	
==>'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	246	347	
==>'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	834	951	
==>es ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	834	951	
==>es ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9182	9295	
==>ault)
#   prog     => one-liner (avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile => perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2509	2639	
==>($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export(:DEFAULT)   { 600 <= $code < 700 }
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2509	2639	
==>($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export(:DEFAULT)   { 600 <= $code < 700 }
} <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5621	5741	
==>als->{details}[$result{number} - 1] = $details;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4229	4358	
==>embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4229	4358	
==>embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3821	3962	
==>am;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<prec <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12673	12773	
==>th HTML
character entities.  The module provides the following functions:

=over 4

=item decode_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12673	12773	
==>th HTML
character entities.  The module provides the following functions:

=over 4

=item decode_enti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10758	10974	
==>lass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10758	10974	
==>lass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@cla <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5	116	
==>6;

# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symb <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5	116	
==>6;

# Set::Symbols is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symb <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5327	5428	
==>ce, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5142	5239	
==>ce, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	9	119	
==>t;
use YAML            qw[LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Cwd;
use Config;

BEGIN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23612	23707	
==>etta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23612	23707	
==>etta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Pe <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2430	2526	
==>ot facilitate recovering all the roots of a
function (not that Newton's method is ever really goo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15824	15942	
==>nd $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10680	10798	
==>nd $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1874	2016	
==>)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1874	2016	
==>)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8911	9033	
==>atus;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8911	9033	
==>atus;
    $h.header('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	596	847	
==>Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	596	847	
==>Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7856	7989	
==>otin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(87 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7856	7989	
==>otin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(87 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13037	13134	
==>}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5928	6069	
==>ft(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5928	6069	
==>ft(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6780	6892	
==>syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6792	6904	
==>syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3349	3452	
==>at the nonce or initialization vector should be hashed with the 
key, not merely appended to it; appendi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3349	3452	
==>at the nonce or initialization vector should be hashed with the 
key, not merely appended to it; appendi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	290	385	
==>_" . $node->moniker))) {
		return $self->$meth($node);
	} else {
		return $self->generic_reduce( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	845	947	
==>) has additional parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail() <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	845	947	
==>) has additional parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7912	8056	
==>roto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule statement {
        <category.pars <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7472	7606	
==>foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is the fourth id');
is($Foo->name, 'Foo', '... $F <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1656	1825	
==>< ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16171	16282	
==>ifferently.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey001" =~ /(\w+)(\d+)/;  # $1 = sraey00 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6685	6840	
==>, pos, 1
    if $S0 != "#" goto end
    $I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = get <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42980	43111	
==>Object->send('add_method' => (
    # method label
        symbol->new('can'),
    # method body
        method->new(
            $:: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12299	12424	
==>her!) returns Relation::Example {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4590	4683	
==>::Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word>) \: \< $< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	176	309	
==>y = 0;
}

# use v5;
# package Point;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => 'ro');
#
# sub clear {
#  my $self = sh <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	412	509	
==>ft
of wrapping a map and join around the macro string.  But perhaps there
should be a Helpers::joi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24709	24884	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24988	25163	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5469	5567	
==>bsolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5469	5567	
==>bsolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19180	19272	
==>"FAILED--Further testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_reaso <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3476	3575	
==>test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3534	3633	
==>test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$tod <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	885	996	
==>sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	885	996	
==>sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3885	4025	
==>precedence => 'equal',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	125	218	
==>per;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namesp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	125	218	
==>per;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namesp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5865	5987	
==>ty:
  goto end unless $operatorEmpty;
  $token = $operatorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4190	4305	
==>g => $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $app = shift;

		my $rapp = $app->fmap(sub { $self->r <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	139	250	
==>T = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	139	250	
==>T = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12640	12738	
==>erbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runpe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3654	3771	
==>an_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd)) <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3654	3771	
==>an_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd)) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	563	710	
==>{ $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1156	1266	
==>$os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::StrVal($o);
    $s .= " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8631	8747	
==>de::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8627	8743	
==>de::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5565	5699	
==>not a word character)
  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ob <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3936	4033	
==>leteness

\G, pos(), etc, are not yet supported.

=back

=head1 AUTHORS

The Pugs Team E<lt>perl6- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8692	8784	
==>al ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneie <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8692	8784	
==>al ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce Schneie <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7702	7794	
==>tderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mort <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14009	14095	
==>3_int(I) -->
  octdigit(D0), octdigit(D1), octdigit(D2), {number_chars(I,[42,111,D0,D1, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12097	12193	
==>o, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12155	12251	
==>o, Str :$depends) returns Bool`

This function currently on checks with ref() since we do not yet <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3953	4052	
==>Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3953	4052	
==>Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	422	543	
==>bang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	422	543	
==>bang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	564	682	
==>],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	564	682	
==>],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4676	4773	
==>fined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a hash <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4676	4773	
==>fined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a hash <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11158	11259	
==>if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11158	11259	
==>if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_d <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1128	1224	
==>s library by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for details.

T <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4742	4863	
==>ted to --initrd-mnt in order to copy files to it.
  --cdroot=$cdroot
    --cdroot is the directory which will later be the <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	160	260	
==>nate regexp engines to be used without
# requiring changes to user p5 code.  It was explored as a pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4609	4794	
==>tracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4609	4794	
==>tracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", D <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2666	2803	
==>", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2806	2943	
==>", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1703	1800	
==>'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1703	1800	
==>'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7701	7812	
==>less $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next     if !defined $ra->[$i] && !defined $rb->[$i];
	return 0 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1946	2037	
==>es, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/per <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1946	2037	
==>es, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/per <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22817	22963	
==>b dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "=";
  }
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23319	23458	
==>b dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 ? '<' : ''), "!" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14306	14421	
==>is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14364	14479	
==>is the opposite of pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7920	8013	
==>ist (resolved)');
    
ok($FooBar->does('rFoo'), '... FooBar does rFoo');
ok($FooBar->does('rB <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13531	13628	
==>ss (or before an implementation
could be started).  This is most useful when writing modules and y <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13589	13686	
==>ss (or before an implementation
could be started).  This is most useful when writing modules and y <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3580	3691	
==>gs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being developed.

This modul <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3580	3691	
==>gs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still being developed.

This modul <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1404	1552	
==>), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        requi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1371	1519	
==>), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        requi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8697	8792	
==>Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'loa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8697	8792	
==>Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'loa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	993	1187	
==>*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	993	1187	
==>*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18588	18684	
==>se are I<not>
necessarily the names you specified in the constructor. For example,
this module au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18588	18684	
==>se are I<not>
necessarily the names you specified in the constructor. For example,
this module au <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1500	1629	
==>if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1707	1836	
==>if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6706	6827	
==>$module_is_loaded = .template_module_is_loaded( $module_name );

        # Try to load an external Perl template module; o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6706	6827	
==>$module_is_loaded = .template_module_is_loaded( $module_name );

        # Try to load an external Perl template module; o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	103	218	
==>ugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	98	207	
==>ugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1994	2130	
==>when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1994	2130	
==>when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5831	5941	
==>t {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5831	5941	
==>t {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13711	13829	
==>ms'))));
                $e->get('$self')->send('BUILDALL' => ($e->get('%params')));
                return $e->get('$s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11461	11564	
==>,
);


package main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2183	2269	
==>AN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if y <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2183	2269	
==>AN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if y <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5109	5222	
==>s parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the remov <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5109	5222	
==>s parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth 
    # of the remov <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	905	1002	
==>this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->ad <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	905	1002	
==>this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->ad <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15921	16026	
==>eld labeled "Internal use only" is one of the most widely used. ;)
Zero seems safe.  But more nuanced trea <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5031	5134	
==>received, then you should use the full object-oriented
interface provided by the C<LWP::UserAgent> modul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5031	5134	
==>received, then you should use the full object-oriented
interface provided by the C<LWP::UserAgent> modul <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2148	2242	
==>ant);
    $optable->addToken("postfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7648	7753	
==>{$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithme <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7648	7753	
==>{$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithme <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7177	7286	
==>UEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7177	7286	
==>UEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGT <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2587	2724	
==>an::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2587	2724	
==>an::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	69	192	
==>ribute;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3104	3223	
==>}
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $go <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9166	9271	
==>method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_emp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9166	9271	
==>method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_emp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24521	24614	
==>>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logged <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24521	24614	
==>>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logged <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1160	1297	
==>*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1114	1244	
==>*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3979	4085	
==>decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = sp <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3979	4085	
==>decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = sp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11240	11338	
==>o, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, but give <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11298	11396	
==>o, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, but give <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1929	2033	
==>);
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1929	2033	
==>);
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20552	20703	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20831	20982	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_prin <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16345	16440	
==>C<< $strap->{skip_all} >>,
etc. so it's ready to parse the next file.

=cut

sub _reset_file_sta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10238	10331	
==>ntext, $paramDefault) {
    my $default; $default = DOWN($paramDefault) if defined($paramDefau <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20681	20777	
==>nd Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20681	20777	
==>nd Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
e <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13908	14012	
==>un) = { env($$) }
comb: env($.param) = { env($$) }

# combs combine the generic values from their childre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8584	8687	
==>ument describes Rosetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8584	8687	
==>ument describes Rosetta::Model version 0.724.0.

It also describes the same-number versions of Rosetta:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9673	9848	
==>nstant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9952	10127	
==>nstant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14056	14212	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14335	14491	
==>ture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	416	512	
==>tract values from all letters), and an 
unnamed similar cipher where all bytes are changed, not j <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	416	512	
==>tract values from all letters), and an 
unnamed similar cipher where all bytes are changed, not j <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25823	25920	
==>is method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30375	30472	
==>is method will fail if any C<$mapping> keys do not match invocant
Relation attribute names, or any <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2091	2198	
==>--------------------------
## some metamodel tools

=pod

sub *WALKMETH (block &dispatcher, symbol $label, h <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	260	363	
==>sts_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	260	363	
==>sts_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9541	9717	
==>ident'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4836	4933	
==>in,-)   --> ",", !.
p5_range_bounds_RHS(Min ,Min) --> {true}.

%# XXX - spaces permitted around ** <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	0	104	
==>module Benchmark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $c <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	0	104	
==>module Benchmark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1003	1125	
==>,
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1003	1125	
==>,
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13811	13985	
==>ely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13811	13985	
==>ely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4772	4910	
==>1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4784	4922	
==>1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) { <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3592	3693	
==>>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See li <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3592	3693	
==>>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2890	3008	
==>ied at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2890	3008	
==>ied at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8687	8801	
==>};
	}
    }
    if($kind eq 'Sub') {
	$code_body = p6_catch_return_CODE($code_body);
    }
    if($kind eq 'Pointy' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1297	1407	
==>turns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1297	1407	
==>turns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1041	1140	
==>e C<:all> 
option will cause the module to shift across all byte values, not just the ones 
correspo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1041	1140	
==>e C<:all> 
option will cause the module to shift across all byte values, not just the ones 
correspo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	329	465	
==>al > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	329	465	
==>al > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8888	9005	
==>ODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8888	9005	
==>ODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @lis <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10357	10454	
==>er );

Returns only defined, non-blank, trimmed switches from the parms passed.

=cut

sub _cleane <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3342	3439	
==>eans that the nonce or initialization vector should be hashed with the 
key, not merely appended t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3342	3439	
==>eans that the nonce or initialization vector should be hashed with the 
key, not merely appended t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2918	3084	
==>_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2918	3084	
==>_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	246	348	
==>pan::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	246	348	
==>pan::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurren <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9285	9385	
==>e 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9285	9385	
==>e 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	315	435	
==>( qw(call load) ) {
        *{"$class\::$method"} = sub {
            shift()->_top->$method(@_);
        } unless define <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22526	22622	
==>- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   code_type(C, <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2498	2614	
==>files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2498	2614	
==>files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [ <==
2	/Users/nnunley/pugs/util/claim_drift.pl	1080	1228	
==>ink  $orig        or die "unlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	547	662	
==>,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	547	662	
==>,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    sta <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6167	6266	
==>d split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6167	6266	
==>d split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping t <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	399	511	
==>nless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	399	511	
==>nless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5479	5674	
==>l5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = spl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5479	5674	
==>l5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = spl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3164	3331	
==>ame => $_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAG <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2443	2547	
==>laces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19984	20083	
==>donly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19984	20083	
==>donly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	62	184	
==>amisch)
my $x = 'Just Another';
# $x wird nun zur Laufzeit an $y gebunden
my $y := $x;
$y = 'Perl Hacker'; # $x ist nun auc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2822	2985	
==>turn;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2714	2869	
==>turn;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2] <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10269	10379	
==>.'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2148	2264	
==>$_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' paramete <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2148	2264	
==>$_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with 'is copy' paramete <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8291	8417	
==>curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8291	8417	
==>curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = no <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3437	3587	
==>de(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3437	3587	
==>de(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4933	5029	
==>... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the rig <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7601	7697	
==>... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the rig <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2211	2338	
==>se Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2211	2338	
==>se Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (ca <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	321	795	
==>3 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	321	795	
==>3 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10480	10590	
==>[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10638	10748	
==>[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	934	1094	
==>er-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	934	1094	
==>er-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!heade <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	33	135	
==>ict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use Ex <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	33	135	
==>ict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use Ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7125	7254	
==>le operators



Internal rule operators share a common API, which permits the intercommunication 

of data about: backtracking, ab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6882	7008	
==>le operators

Internal rule operators share a common API, which permits the intercommunication 
of data about: backtracking, ab <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2312	2472	
==>SA_JIB_REPOSITORY_SET,
        },
        installation_set => { 
            required    => 1, 
            store       => \$inst_set,
            allow       => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	311	419	
==>::Base};
}


# check if we can load some module
### Upgrade this to not have to load the module if possible
s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24473	24580	
==>eep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29025	29132	
==>eep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1466	1583	
==>lse {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1466	1583	
==>lse {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24109	24210	
==>:Exception::LoopControl('-text' => 'last'))";
}
sub p6_next_CODE {
    "(throw Perl6::Run::OnPerl5::X1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27606	27699	
==>bjects inherit from
F<Regexp::Parser::__object__>, the global object base class.  All
user-def <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6093	6180	
==>>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6093	6180	
==>>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~no <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1448	1630	
==>s = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now chec <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1448	1630	
==>s = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now chec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1352	1497	
==>:Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1352	1497	
==>:Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4110	4212	
==>h> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4110	4212	
==>h> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=b <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1828	1929	
==>hod equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expression <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1828	1929	
==>hod equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expression <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	513	624	
==>6/pugs/js') for <perl5/*>;
}

print "*** Successfully built!  Type '$Config{make} install' to install.\n";

# ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10190	10288	
==>_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10190	10288	
==>_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2549	2639	
==>t
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp:// <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2549	2639	
==>t
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp:// <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	489	626	
==>he default_value is the value of initalization, the return value is
### a subroutine that build the return value based on the objects /cur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1012	1136	
==>returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1012	1136	
==>returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3283	3428	
==>= %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3423	3568	
==>= %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4987	5123	
==>nd ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4987	5123	
==>nd ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	445	639	
==>NUM                 { $out= $_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27712	27804	
==>ine RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_on(pro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12800	12907	
==>t) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12800	12907	
==>t) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19786	19888	
==>alue of
a Relation object is determined when it is constructed, and the object can
not be changed after <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24338	24440	
==>alue of
a Relation object is determined when it is constructed, and the object can
not be changed after <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6723	6827	
==>nsert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Ins <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6723	6827	
==>nsert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Ins <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	234	399	
==>P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	234	399	
==>P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2011	2250	
==>erl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= " <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2011	2250	
==>erl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11336	11464	
==>return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $.curren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11336	11464	
==>return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( $.curren <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4167	4269	
==>ethod is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4167	4269	
==>ethod is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5162	5274	
==>s);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan}< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5162	5274	
==>s);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan}< <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	886	1052	
==>quire;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$cl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	886	1052	
==>quire;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26942	27046	
==>s to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26942	27046	
==>s to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $mes <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6829	6914	
==>$template = HTML::Template->new(filename => 'util/catalog_tmpl/error.tmpl');
$template <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3036	3156	
==>cute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3036	3156	
==>cute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7700	7803	
==>next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $nex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7439	7538	
==>next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $nex <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2868	3071	
==>new('$y'),
            ),
        ),
    ),
    '&infix:</>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3393	3488	
==>pen \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3393	3488	
==>pen \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filte <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2349	2492	
==>kens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2349	2492	
==>kens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1661	1762	
==>Body is just a structure with three node forms: Var

(variable lookup), App (application) and Lit (lit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1593	1693	
==>Body is just a structure with three node forms: Var
(variable lookup), App (application) and Lit (lit <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1675	1785	
==>_start, end =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1675	1785	
==>_start, end =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4413	4568	
==>class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{param}{cpan_bareword} 
                  ? _mangle <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	102	234	
==>ore than one.

Design goals:
 1 Correctness - mirror the spec.
 2 Interoperation - allow blending of p6 and js objects.
   (Even thou <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1931	2044	
==>$name)) . '.pm';
        $file =~ s{.*/}{} unless -e $file;
        die "all_from: cannot find $file from $name" u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7870	8082	
==>, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7870	8082	
==>, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (S <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2862	2980	
==>commit_alternation { \:\: }
rule commit_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ } # XXX - $/<ba <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14546	14646	
==>can help point you
  in the right direction.

  The regexp compiler hook generally gets the pattern _ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13011	13110	
==>he recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For mos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13011	13110	
==>he recurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For mos <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1614	1717	
==>C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< in <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1614	1717	
==>C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26575	26669	
==>r equal to
the invocant Relation's header, in which case it returns the identity-one
Relation o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31127	31221	
==>r equal to
the invocant Relation's header, in which case it returns the identity-one
Relation o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17492	17596	
==>ter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17492	17596	
==>ter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5856	5965	
==>is the 
one that actually enciphers the data.  They may choose, however, to override 
any method for speed--al <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5856	5965	
==>is the 
one that actually enciphers the data.  They may choose, however, to override 
any method for speed--al <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24705	24813	
==>version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24705	24813	
==>version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in the file named
" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8905	9055	
==>ttribute}} ) {
            if ( $attr->[0]{bareword} eq 'is' &&
                 $attr->[1]{bareword} eq 'export' ) {
                $export = "pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3529	3663	
==>rl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $le <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	358	468	
==>=$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	358	468	
==>=$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher A <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13200	13309	
==>), { number_chars(I, [D0|D]) }.
digits([D|T]) --> digit(D), digits(T), !.
digits([])    --> [].
digit(D) --> [ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12427	12528	
==>recurrence that is closest to the parameter.
If both previous and next elements are at the same distan <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12427	12528	
==>recurrence that is closest to the parameter.
If both previous and next elements are at the same distan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3152	3269	
==>$got, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $expected ) {
        # undef on <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35547	35653	
==>rray references; each of those array
references is the body of one and-branch.  We will take the last one o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3148	3278	
==>nt
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3148	3278	
==>nt
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5222	5331	
==>?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5222	5331	
==>?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_bloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17090	17193	
==>g the size in bytes of the message content.

=item $h.content_language

The natural language(s) of the i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17090	17193	
==>g the size in bytes of the message content.

=item $h.content_language

The natural language(s) of the i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9872	9972	
==>ue::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9872	9972	
==>ue::List

multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11699	11794	
==>odes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11699	11794	
==>odes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7595	7694	
==>}

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7595	7694	
==>}

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19778	19895	
==>a Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares abou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19778	19895	
==>a Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares abou <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	719	816	
==>tPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains bot <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	719	816	
==>tPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains bot <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16919	17069	
==>< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13340	13490	
==>< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1966	2075	
==>turn value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1966	2075	
==>turn value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4319	4416	
==>d2 %{}

When used as a hash reference, the match object returns named captures
as match objects, k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4319	4416	
==>d2 %{}

When used as a hash reference, the match object returns named captures
as match objects, k <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2301	2418	
==>nd) ) * 1e6);
}
method millisecond returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5195	5304	
==>f ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5195	5304	
==>f ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_conten <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21176	21271	
==>ntBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21176	21271	
==>ntBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1809	1946	
==>) {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1809	1946	
==>) {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	174	288	
==>ammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> re inherit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	167	278	
==>ammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> re inherit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	733	842	
==><tight> <op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <eq <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20588	20743	
==>=> comb(
								fun => ide("mul"),
								param => ide("r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb(
			fun = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8231	8410	
==>efix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$bod <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17226	17338	
==>my($pkg,$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22745	22842	
==>icE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22745	22842	
==>icE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retri <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2379	2512	
==>h)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2379	2512	
==>h)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8910	9039	
==>WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8910	9039	
==>WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7470	7577	
==>y $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->add_op( 
    na <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	264	364	
==>n Perl 5
my Welt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufruf einer einfachen Meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15746	15845	
==>gn of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15746	15845	
==>gn of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12671	12909	
==>/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12671	12909	
==>/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9988	10105	
==>=> 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://ww <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9988	10105	
==>=> 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://ww <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28420	28519	
==>his,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3189	3317	
==>= { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3189	3317	
==>= { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18965	19101	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15386	15522	
==>&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1424	1560	
==>t;
    my $tmpl = {
        installation => { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1830	1935	
==>e ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1830	1935	
==>e ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	365	509	
==>er::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1154	1298	
==>er::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", sub <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4252	4350	
==>he root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are com <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4252	4350	
==>he root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are com <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	940	1043	
==>l fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	940	1043	
==>l fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2863	3088	
==>r ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    ) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2863	3088	
==>r ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	813	928	
==>d_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Opti <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	813	928	
==>d_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Opti <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4871	4997	
==>enerates the details based on the last test line seen.  C<$pass> is
            #true if it was considered to be a passed test. <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1414	1536	
==><external_scalar_alias>|<external_array_alias>|<external_hash_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  < <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18904	19066	
==>\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19183	19345	
==>\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6650	6743	
==>Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Lit <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6650	6743	
==>Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Lit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29889	30001	
==>le, consisting mainly of a data-stuffed hash
and an accessor method to read values from it by key.  Each template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29889	30001	
==>le, consisting mainly of a data-stuffed hash
and an accessor method to read values from it by key.  Each template <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1266	1388	
==>/= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# v <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1266	1388	
==>/= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3551	3641	
==>his document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3551	3641	
==>his document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1718	1835	
==>::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class::file('files.list')     ];
$config{'_control'} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16354	16457	
==>error' instead of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	659	800	
==>atch = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	652	793	
==>atch = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6896	6999	
==>>( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6896	6999	
==>>( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12110	12231	
==>pes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = shift;
    map { @$_ } reverse @{ $self->{s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27357	27468	
==>];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objects for Perl 5 regexe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6374	6471	
==>id endless recursion
$Class->add_method('does' => sub {
    return $_[1] eq 'Role' if $_[0] == $Cl <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3621	3705	
==>@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; \@ARGV <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3318	3415	
==>truct_equiv->moniker;
	my $method = "define_$kind";
	warn "defining a new $kind (@_)";
	return $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26797	26922	
==>@_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod', <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29208	29305	
==>ing tests quietly (ie. no printing) for automated
validation of tests.  This will probably take th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6442	6541	
==>o be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6235	6330	
==>o be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9931	10043	
==>de $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9931	10043	
==>de $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10171	10271	
==>eader> method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10171	10271	
==>eader> method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2990	3198	
==>) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $x_round = round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_roun <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	332	460	
==>ract, $default);

    foreach my $line ( $self->_read_script($script_file) ) {
        last unless $line =~ /^#/;
        $prompt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4770	4873	
==>have any effect. It's possible the
    internal/external distinction is just a trait, and that some of t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10347	10465	
==>test{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                print "skippe <==
2	/Users/nnunley/pugs/util/package-osx.pl	7210	7307	
==>/usr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spec.3pm
        /usr/local/m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11706	11855	
==>_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11706	11855	
==>_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13376	13495	
==>g @params to " . Dumper->reduce($thunk) . " yielded $v";

    $v;
}

sub reduce_thunk {
    my $self = shift;
    my $th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20728	20836	
==>,$wstatus;
    print "\t\t(VMS status is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1480	1611	
==>_;
    my $output;
    if (not exists $SEEN{$class}) {
        $output .= _draw_class_node($class);
        $output .= "node_" . $cl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	244	365	
==>, but it has some other clutter because of unclear design.

    $.from         - The place where this subrule/group starte <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	244	365	
==>, but it has some other clutter because of unclear design.

    $.from         - The place where this subrule/group starte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19984	20123	
==>= $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16405	16544	
==>= $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	288	413	
==>------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	288	413	
==>------
## constructors

submethod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24314	24420	
==>d1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
by creating object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24314	24420	
==>d1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
by creating object <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6524	6638	
==>st script, each value is another hash representing
how that script failed.  Its keys are these:

    name        Na <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17372	17508	
==>$fi < $flen) {
        # optional non-conversion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= su <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	559	655	
==>$trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi meth <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	559	655	
==>$trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi meth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5233	5360	
==>p1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5233	5360	
==>p1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2294	2398	
==>qual ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2294	2398	
==>qual ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16769	16888	
==>ub p6_meta_CODE {
    my($pkg)=@_;
    "\$${ROOT}::${pkg}::META";
}
sub p6_meta {
    my $m = get_meta($_[0]);
    die(" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6538	6655	
==>od next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    retu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6538	6655	
==>od next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11194	11291	
==>etadata removed");

    return 1;
}

=head2 $alt = $inst->remove_registered_alternative( package = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4209	4307	
==>ase the
object returned represents the last day for the specified month.

- `today()`
- `now()`

Sy <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4209	4307	
==>ase the
object returned represents the last day for the specified month.

- `today()`
- `now()`

Sy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	387	520	
==>l[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	387	520	
==>l[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $nam <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2602	2715	
==>onthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2602	2715	
==>onthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @d <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6880	7010	
==>PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($va <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6880	7010	
==>PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($va <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5115	5382	
==>cript ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for these links ###
                $href->{ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4327	4550	
==>cript ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3286	3395	
==>say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a date, it d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3286	3395	
==>say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is just a date, it d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13923	14044	
==>ected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13923	14044	
==>ected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12854	12969	
==>`dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12912	13027	
==>`dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5790	5891	
==>x - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

T <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5790	5891	
==>x - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8974	9068	
==>tatements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8974	9068	
==>tatements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10005	10111	
==>tr {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10005	10111	
==>tr {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_te <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2372	2484	
==>NAME

Blondie::Emitter::Pretty - An emitter that reduces a program into a string of
(hopefully) perlish text.

=h <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1545	1648	
==>ally, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1385	1488	
==>ally, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1135	1228	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( "/" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1774	1865	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( " <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2203	2301	
==>n Durin woke and walked alone.

-}

--------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12147	12263	
==>(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _not_implemented( $n, "circumfix" );
}

sub postcircumfix <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1581	1680	
==>tallation, so they are 
### marked privata.. their public equivalents live in Installation.pm
$confi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	347	465	
==>http' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support u <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	382	498	
==>http' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18728	18832	
==>es before the first C<package> statement.
    PACKAGES - Lines beginning with a C<package statement and c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18728	18832	
==>es before the first C<package> statement.
    PACKAGES - Lines beginning with a C<package statement and c <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7251	7446	
==>supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && substr($k,-1,1) eq "x"
               && internals_m:perl5/\A(\d+)x\Z/) {
            my $n = +$0;
            %mods <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2494	2606	
==>entifiers for types. Let'shope we never need to print more than these ;-)
	
	my %map;
	my @forall;

	# allocate l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14935	15040	
==>sub { $as_hash_complain->("scalar_non_numeric") },
      array => sub { {@{$_[0]}} },
      hash  => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34818	34912	
==>cant Relation and that match any tuples of C<$other> along
their common attributes.  This metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39368	39462	
==>cant Relation and that match any tuples of C<$other> along
their common attributes.  This metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8696	8803	
==>e=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6227	6330	
==>e=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	757	852	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	757	852	
==>no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0] <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4738	4922	
==>zero ( Num $x ) {
    my $x_round;

    # round ceiling above 0, round floor below 0
    if $x < 0 {
        $x_round = round_ceiling($x);
    }
    elsif $x > 0 {
        $x_round = ro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14215	14310	
==>ts whose keys evaluate
C<$key ~~ any(@keytests)> as true are iterated.

What is returned at each <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1150	1261	
==>> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2315	2426	
==>> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3998	4112	
==>ndex) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3998	4112	
==>ndex) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6052	6168	
==>ad not implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11862	11953	
==>p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_oct_chars(R), [Close].
p6_oct_char <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7080	7172	
==>rocessed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7080	7172	
==>rocessed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	806	927	
==>line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq " <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	806	927	
==>line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2323	2478	
==>>{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2249	2396	
==>>{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runti <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2664	2859	
==>|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2664	2859	
==>|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3742	3868	
==>ol
        # Says whether this Relation::Example is mutable or not;
        # depending on the implementing class, it can defau <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	827	943	
==>accessors( qw[repositories] );
    
    $obj->repositories( \@inst );
    
    return $obj;
}

1;

# Local variables: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1163	1282	
==>sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1163	1282	
==>sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1794	1938	
==>ackage ."' is already installed --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3599	3698	
==>mething dubious happened.

The columns in the summary report mean:

=over 4

=item B<Failed Test>

T <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1620	1717	
==>om>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1620	1717	
==>om>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free so <==
2	/Users/nnunley/pugs/util/testgraph.pl	1671	1792	
==>~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$link);
    }

    package My::Subtest;
    use base qw/Test::TAP::M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3219	3337	
==>d $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1170	1312	
==>nk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./ge <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1170	1312	
==>nk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1450	1569	
==>urn the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1450	1569	
==>urn the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9725	9859	
==>result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9725	9859	
==>result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8620	8749	
==>nick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8620	8749	
==>nick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$newnick} = %users.delete($ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15590	15714	
==>lation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19067	19191	
==>lation {
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my met <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	359	486	
==>ift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	359	486	
==>ift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; pus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37898	37991	
==>aded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37898	37991	
==>aded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13639	13779	
==>tems that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13639	13779	
==>tems that are only in one of the two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7482	7580	
==>ext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the rem <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7482	7580	
==>ext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, and the rem <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3246	3444	
==>\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3246	3444	
==>\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5477	5580	
==>$event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5477	5580	
==>$event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	639	759	
==>\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->add_rule( 
            name => $name <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6454	6545	
==>e' if $_[0] == $Class;
    ::opaque_instance_attrs($_[0])->{'%:methods'}->{'does'}->(@_);
}) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1152	1266	
==>e( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	982	1096	
==>e( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	650	755	
==>cument.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> prop <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	650	755	
==>cument.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> prop <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9846	9946	
==>c);
}
macro m_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_m",%mods,$pat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11402	11559	
==>ey, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11402	11559	
==>ey, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $por <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2016	2142	
==>epl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my @res = p6_eval($l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	921	1026	
==>ght->isa('symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name->to_native & <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	591	709	
==>~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (ev <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	558	676	
==>~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14834	14967	
==>~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14828	14961	
==>~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7128	7243	
==>e = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code int <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7128	7243	
==>e = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1266	1397	
==>rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1266	1397	
==>rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1629	1749	
==>return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1629	1749	
==>return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.del <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	492	659	
==>il =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source .= $1;
        my $paren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7299	7419	
==>Precedence - Engine for Perl 6 Rule operator precedence

=head1 SYNOPSIS

  use Pugs::Grammar::Precedence;

  # exa <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	263	368	
==>qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($sr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	263	368	
==>qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($sr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3509	3834	
==>t;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3509	3834	
==>t;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $f <==
2	/Users/nnunley/pugs/util/grokprims.pl	1658	1756	
==>a1";
  } elsif (/left-associative/ and $arity==2) {
    $example = "HUH: left-associative with arit <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3315	3425	
==>( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        pac <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	746	850	
==>'root' entry and the tests will run somewhere quite different!
$config{'root'}             = [ $Cwd->subd <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3462	3586	
==>'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMP <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3462	3586	
==>'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3143	3273	
==>r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0, "PANIC! %d %s", &RxPOS, &RxCUR) if &RxPOS != <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2360	2524	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2553	2717	
==>ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/util/addauthors.pl	1243	1376	
==>ile\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shif <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12995	13111	
==>fied by C<$key> or C<$keys> from the invocant.
returns the value(s) that were associated to those keys.

=over

=item <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5569	5677	
==>an.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5569	5677	
==>an.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13404	13511	
==>ent (with member
Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13404	13511	
==>ent (with member
Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13769	13895	
==>)
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13769	13895	
==>)
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7477	7611	
==>"harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7477	7611	
==>"harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8 <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	20	123	
==>use strict;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1850	1944	
==>\%s{}';
use constant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	128	231	
==>leInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	128	231	
==>leInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18249	18345	
==>backs
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18249	18345	
==>backs
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	60	316	
==>s in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	60	316	
==>s in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1443	1544	
==>e "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1443	1544	
==>e "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10976	11164	
==>};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '['


  ### ']'


  ### '<'


  ### '>'


  ### '.'

  $sel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11667	11786	
==>ine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11667	11786	
==>ine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28084	28188	
==>on.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32636	32740	
==>on.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has no <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	76	177	
==>be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUER <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	76	177	
==>be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUER <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22507	22638	
==>ledStatement :words {  # see 12.12
      <Identifier> <':'> <Statement>
}
rule ThrowStatement :words {  # see 12.13
      <'throw'>< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	257	369	
==>des {
    my $self = shift;
    my $program = shift;

    $self->{seen} = Set::Object->new;
	$self->{dups} = Set: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7089	7224	
==>dary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7089	7224	
==>dary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4940	5101	
==>ack()();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4940	5101	
==>ack()();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15611	15709	
==>ires

This header gives the date and time after which the entity should be
considered stale.

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15611	15709	
==>ires

This header gives the date and time after which the entity should be
considered stale.

=item <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3915	4098	
==>\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3915	4098	
==>\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2718	2870	
==>namespace
    Object      Perl 6 object
    Grammar     Perl 6 pattern matching namespace
    List        Perl list
    Lazy        Lazily evaluated Perl <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2979	3082	
==>t return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2979	3082	
==>t return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21170	21285	
==>elf = shift;
    "\\$self->{nparen}";
  }
}


{
  package Regexp::Parser::assertion;
  push @ISA, qw( Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27474	27586	
==>nge an existing Message object, you must create a new
object that is a clone of the first but for the changes.

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27474	27586	
==>nge an existing Message object, you must create a new
object that is a clone of the first but for the changes.

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	704	816	
==>_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	704	816	
==>_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	306	403	
==>nt_encoding content_length content_language
    title user_agent server from referer
    www_authe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	306	403	
==>nt_encoding content_length content_language
    title user_agent server from referer
    www_authe <==
2	/Users/nnunley/pugs/util/package-osx.pl	418	546	
==>w(
        /usr/local/bin/parrot-config
        /usr/local/bin/pbc_merge
        /usr/local/bin/disassemble
        /usr/local/bi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10399	10497	
==>ions) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10399	10497	
==>ions) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5217	5362	
==>name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5229	5374	
==>name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next un <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9112	9209	
==>pposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9112	9209	
==>pposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4928	5025	
==>ds can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4928	5025	
==>ds can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	681	798	
==>e v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	681	798	
==>e v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2703	2825	
==>,
    todo     => $4,
    skipped  => $5,
    unexpect => $6,
  };

  if(grep { not $smoke{$_} } qw<pugs_version osname dur <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3287	3388	
==>IT THIS FILE.
    This module is generated by util/PugsConfig.pm.
-}

{-|
    Pugs System Configuratio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4415	4512	
==>N

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This docume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4415	4512	
==>N

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This docume <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5065	5175	
==>(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7733	7843	
==>(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3494	3635	
==>s Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3482	3623	
==>s Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4860	4975	
==>ue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Ex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4860	4975	
==>ue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1945	2049	
==>ion for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1945	2049	
==>ion for details.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12397	12491	
==>r's
corresponding argument is undefined).  The new Document object's All Nodes
attribute starts <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12397	12491	
==>r's
corresponding argument is undefined).  The new Document object's All Nodes
attribute starts <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5960	6080	
==>urn;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5972	6092	
==>urn;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $match->{ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20808	20950	
==>param => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        ide => "length'",
        is => fun(
            pa <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	66	193	
==>1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Ar <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	66	193	
==>1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Ar <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4193	4306	
==>sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's documentation for 
d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4193	4306	
==>sort of key, and sometimes also 
parameters for block size and so on; see the cipher module's documentation for 
d <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6384	6492	
==>r :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6384	6492	
==>r :$name) is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(mat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	569	676	
==>invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	569	676	
==>invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2542	2672	
==>rbeg, I32 minend, SV* screamer,
                          void* data, U32 flags)
{
  if(!CONTAINS_RECOGNITION_FLAG(r)) {
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3568	3688	
==>6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9693	9779	
==>("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat,$qo,$qc) is buil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10522	10680	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10801	10959	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'grammar1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22277	22383	
==>but a Relation is not a table.

The Relation class is pure and deterministic, such that all of its class
an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26829	26935	
==>but a Relation is not a table.

The Relation class is pure and deterministic, such that all of its class
an <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9176	9301	
==>art
        undef $kind, next if $_ eq "_-$kind";   # _-SEGMENT end
        
        s/^__(.*)__$/PugsBuild::Config->lookup($1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1587	1708	
==>pile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1587	1708	
==>pile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14891	15033	
==>annel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14891	15033	
==>annel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	774	890	
==>len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	774	890	
==>len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	414	522	
==>= $bit::FALSE)
        || confess "Your arg list must at least include the invocant";
    my $inv = $args->fe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2695	2795	
==>R "==",join(" ",@todo),"==\n";
    for my $stage (reverse @todo) {
	#print STDERR "--$stage--\n";
	if <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	60	163	
==>t::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Buil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	60	163	
==>t::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Buil <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15579	15682	
==>ng if the new value would put the span 
in an invalid state, such as `start` bigger than `end` (the span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15579	15682	
==>ng if the new value would put the span 
in an invalid state, such as `start` bigger than `end` (the span <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	940	1044	
==>matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optiona <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	940	1044	
==>matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optiona <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23760	23865	
==>ss defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28312	28417	
==>ss defaults it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17568	17713	
==>ew('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40837	40982	
==>ew('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2450	2579	
==>{
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2450	2579	
==>{
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3541	3668	
==>$_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3541	3668	
==>$_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersec <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11505	11600	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11563	11658	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8879	9017	
==>),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $stub = $params->{env}->get($params <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	76	172	
==>Andras Barthazi
#  This code is totally free, use it as you want
# ------------------------------ <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	76	172	
==>Andras Barthazi
#  This code is totally free, use it as you want
# ------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2980	3125	
==>ast newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2980	3125	
==>ast newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi sub p <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2360	2453	
==>nd_away_from_zero
		!! $x.round_ceiling
}

our Int multi Num::round_down (Num $x, int $symmetr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24216	24308	
==>::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Perl6::Run::O <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6106	6245	
==>o run correctly.",
  ensure => sub { $^O eq "linux" };

step
  descr  => "Fetching GRUB from \"$grub_uri\"",
  help   => "Remove \"$grub_loc <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2239	2340	
==>thod microsecond returns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millisecond retur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11296	11396	
==>rmit swapping in an alternate regexp engine,
  using calls to p5 subs,
  which can be defined differe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15834	15933	
==>descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14590	14697	
==>$class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n= <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14590	14697	
==>$class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n= <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4957	5117	
==>e, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4816	4976	
==>e, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3270	3384	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3270	3384	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2704	2872	
==>v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2704	2872	
==>v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARR <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22680	22890	
==>-" x $Columns
                  . "\n.\n";

    my $fmt = "format STDOUT =\n"
              . "@" . "<" x ($max_namelen - 1)
              . "  @>> @>>>> @>>>> @>>> ^##.##%  "
              . "^" . "<" x ($list_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15238	15384	
==>)?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $not ? 0 : 1;

        if( defined $type ) {
            $test->{type}   = $t <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	438	558	
==>e, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	438	558	
==>e, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2064	2352	
==>d ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2064	2352	
==>d ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1907	2035	
==>h @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1907	2035	
==>h @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20319	20459	
==>then => ide("r"),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb(
									fun => <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2120	2229	
==>->build_requires, $self->requires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9850	9959	
==>mmand as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20868	20962	
==>o{no strict;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not quite <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9876	9991	
==>= '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\'] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9876	9991	
==>= '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\'] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	443	553	
==>Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	443	553	
==>Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1547	1677	
==>s Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minu <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1816	1946	
==>s Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1948	2078	
==>essful match.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		print "not ok \# Match failed.\n";
	    } else { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10920	11027	
==>his recurrence is a "universal set".
Otherwise the program will emit warnings during the execution of some m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10920	11027	
==>his recurrence is a "universal set".
Otherwise the program will emit warnings during the execution of some m <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5445	5563	
==>format in a (conjecturally)
well-defined location for latter runs of pugs to pick up and load quickly.

Additional opti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	211	314	
==>es on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	211	314	
==>es on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1219	1341	
==>-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1219	1341	
==>-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2374	2472	
==>::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> returns the version of a c <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1208	1355	
==>rlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_c <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1208	1355	
==>rlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4513	4599	
==>reed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13606	13708	
==>s of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13606	13708	
==>s of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Do <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6423	6527	
==>ents : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6423	6527	
==>ents : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2391	2496	
==>ditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2391	2496	
==>ditiveExpr>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19813	19912	
==>etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19813	19912	
==>etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can g <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	90	233	
==>$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=head1 NAME

Class--Perl6 - Entities in a program's model (M1)

=he <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37213	37316	
==>nd('add_attribute', (symbol->new('@:subclasses')      => attribute->new('@:subclasses'      => 'list'))) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22958	23075	
==>lue
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.na <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8486	8679	
==>based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @mayb <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8950	9143	
==>based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @mayb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13936	14054	
==>>{data} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6740	6836	
==>-----------------------

ok($Class->does('Role'), '... Class now does Role');
ok($Class->has_meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4469	4631	
==>"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules)," <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1526	1650	
==>) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	521	613	
==>my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	521	613	
==>my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3715	3808	
==>self.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3715	3808	
==>self.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous => <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11121	11237	
==>s Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11121	11237	
==>s Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5999	6108	
==>)    { $v }
multi sub ToNumber(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGramm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	434	518	
==>\\\\}]*\}))->code;
*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name><?ws>? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12779	12929	
==>'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12779	12929	
==>'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Docume <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4412	4524	
==>e written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4412	4524	
==>e written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	556	664	
==>Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This n <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	556	664	
==>Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35172	35268	
==>e same node are matched in succession.  We
also inherit visual()Z and walk()Z<>.

However, we nee <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11810	11902	
==>, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Littl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11810	11902	
==>, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Littl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13807	13977	
==>_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13807	13977	
==>_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12855	12956	
==>ed is returned.

Note that if you pass in multiple field names then it is generally not
possible to te <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12855	12956	
==>ed is returned.

Note that if you pass in multiple field names then it is generally not
possible to te <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26705	26800	
==>elf as
it runs the tests.  This is different from C<HARNESS_VERBOSE>, which prints
the output fr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3249	3336	
==>ugmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3134	3219	
==>ugmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4865	4975	
==>sion
of the result object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4865	4975	
==>sion
of the result object (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18301	18429	
==>rule ConditionalExpression :words {  # see 11.12
      <LogicalORExpression>
    | <LogicalORExpression> <'?'> <AssignmentExpress <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15302	15392	
==>,RW0).
re_rewrite_list([],[],RW0,RW0).
re_rewrite_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rew <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	295	398	
==>is class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	295	398	
==>is class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26053	26160	
==>ributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a gen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30605	30712	
==>ributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a gen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16983	17115	
==>queue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16983	17115	
==>queue => -> Code $code { push @queue, $code },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12828	12951	
==>'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12828	12951	
==>'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these me <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7749	7855	
==>ome kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7749	7855	
==>ome kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method compare ($sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17398	17496	
==>em $h.title

The title of the document.  In libwww-perl this header will be
initialized automatical <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17398	17496	
==>em $h.title

The title of the document.  In libwww-perl this header will be
initialized automatical <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2309	2426	
==>Num  $x             --> Int )
 {
     Math::Basic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> I <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12083	12192	
==>t;

    push @{ $self->{scopes}[-1] }, Pad->new(name => $name, val => $val);
}

sub pads {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4545	4765	
==>tches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4545	4765	
==>tches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4762	4874	
==>sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4762	4874	
==>sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplified view of the
l <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3672	3770	
==>veloped.

This module is primarily for reading human written files, and anything we
write shouldn't <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3672	3770	
==>veloped.

This module is primarily for reading human written files, and anything we
write shouldn't <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2224	2356	
==>rn;
    
        ### make the path absolute
        ### XXX path::class doesn't seem to have a rel2abs
        $dir = Path::Class::di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	678	776	
==>', see the ratchet version for an implementation
and tests.

- Quantified matches could use less <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2978	3097	
==>return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, wi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2978	3097	
==>return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, wi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3257	3388	
==>n ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3257	3388	
==>n ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2967	3101	
==>return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3514	3648	
==>return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3762	3969	
==>i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3762	3969	
==>i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6649	6764	
==>er );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The headin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10126	10241	
==>er );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The headin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	812	906	
==>l { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) because <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	812	906	
==>l { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) because <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5990	6102	
==>ntent = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5990	6102	
==>ntent = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Requ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2433	2552	
==>$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$const <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2433	2552	
==>$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$const <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9730	9828	
==>plit /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9730	9828	
==>plit /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	49	143	
==>implementation's
# "regcomp hooks" (C functions called when regexps are compiled and
# applied) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14720	14824	
==>body
	# for this reason the function needs to be cloned (so it will stay generic when we leave the body o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18469	18558	
==>rusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, usernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18469	18558	
==>rusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, usernam <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16211	16307	
==>->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20637	20733	
==>->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7742	7862	
==>x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceed <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7742	7862	
==>x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceed <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6053	6180	
==>essage param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as gl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6053	6180	
==>essage param can oft
    # be set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as gl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	968	1084	
==>every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	968	1084	
==>every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6472	6589	
==>rmally STDOUT) as
data is received from the network.  If the request fails, then the
status code and message are print <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6472	6589	
==>rmally STDOUT) as
data is received from the network.  If the request fails, then the
status code and message are print <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4399	4496	
==>erday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are availab <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4399	4496	
==>erday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are availab <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24266	24361	
==>ges or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24266	24361	
==>ges or locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9757	9874	
==>shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9757	9874	
==>shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22605	22706	
==>n is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22605	22706	
==>n is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	83	182	
==>:Core::Num;

package bit;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	28	130	
==>t;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It st <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	28	130	
==>t;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9210	9351	
==>" .
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12008	12132	
==>07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12008	12132	
==>07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6259	6507	
==>ush @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6723	6971	
==>ush @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10346	10454	
==>.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closes <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10346	10454	
==>.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closes <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	623	783	
==>$m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
} <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	623	783	
==>$m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17696	17824	
==><.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty after compilation, because C<perl> has
alread <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17696	17824	
==><.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty after compilation, because C<perl> has
alread <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	998	1124	
==>ed compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    print "not ok  \# Expected compile to fail.\n";
	    ne <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13715	13813	
==>nner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17192	17290	
==>nner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) return <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1245	1342	
==>esn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1245	1342	
==>esn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17940	18037	
==>ermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17940	18037	
==>ermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11354	11489	
==>educe {
    my $self = shift;
    my $node = shift;

    my $type = "reduce_" . lc(Scalar::Util::blessed($node));
    
    $self->can($t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2528	2638	
==>m() + 1);
  }
  return $matchObj;
}

sub blank {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3604	3747	
==>ck = @{ $self->{tree} };
  my $next;

  return sub {
    return $depth if @_ and $_[0] eq -depth;
    carp "unexpected argument ($_[0]) to itera <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17646	17812	
==>,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17925	18091	
==>,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	747	853	
==>ic difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX def <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	747	853	
==>ic difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX def <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1835	1938	
==>al($self: Set $other) returns Bool {

    # for some reason, directly returning this expression does not <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1835	1938	
==>al($self: Set $other) returns Bool {

    # for some reason, directly returning this expression does not <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1268	1481	
==>ush @t => $self->evaluate($t);
                next;
            }         
            
            # deal with strings   
            if ($t eq '"') {
                if ($in_string) {
                    $in_str <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9987	10121	
==>'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5197	5357	
==>basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir $dir;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	987	1158	
==>ash_storeElem => sub {
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3198	3309	
==>t_comp => "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	185	289	
==>er::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	185	289	
==>er::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28390	28597	
==>opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                # if it is empty ... 
                $e->get('$self:')
                  ->get_at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2761	2859	
==>od>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2761	2859	
==>od>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.q <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7804	7923	
==>{
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7804	7923	
==>{
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) ret <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4966	5116	
==>s =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4966	5116	
==>s =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	568	813	
==>file);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' does not exist]);
                                    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1561	1675	
==>\n";
    $opt->{assoc} = 'left' unless defined $opt->{assoc};
    for ( 0 .. $#{$self->{levels}} ) {
        if ( g <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1058	1151	
==>te_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1058	1151	
==>te_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns Str>

=back <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7795	8032	
==>coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.ele <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7795	8032	
==>coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.ele <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6644	6745	
==>ective is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6644	6745	
==>ective is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=b <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	321	430	
==>nalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUIL <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	321	430	
==>nalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUIL <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8452	8551	
==>) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8440	8539	
==>) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4661	4786	
==>^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4854	4979	
==>^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7829	8045	
==>ture:<if>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->n <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	28	127	
==>b update_guess(Num $guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($target - $f($ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1632	1743	
==>hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", ord $char);
    } <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1632	1743	
==>hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", ord $char);
    } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	804	956	
==>oot';               # our makebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/contro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	568	695	
==>lled
    {   my @list = LoadFile( $Available );
        if ( grep { $_->{package} eq $path } @list ) {
            warn "$path i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9321	9413	
==>(Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9321	9413	
==>(Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_t <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2650	2764	
==>defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3611	3724	
==>defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	480	604	
==>sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	480	604	
==>sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7953	8088	
==>e if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7953	8088	
==>e if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4050	4152	
==>{
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2025	2149	
==>p \n" .
        "\t{ \$_[0]->{out}= {fixity => 'ternary', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], exp3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21712	21805	
==>:Parser> class,
which installs all the handlers for standard Perl 5 regexes.  This
documentati <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9911	10016	
==>ments of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set contai <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9911	10016	
==>ments of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a new set contai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16177	16292	
==>ot spend much time in providing rationales; you can read TTM itself and
various other external documentation for muc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16177	16292	
==>ot spend much time in providing rationales; you can read TTM itself and
various other external documentation for muc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2825	2928	
==>RT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (y <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2825	2928	
==>RT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (y <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3990	4091	
==>` objects.

The array of spans must be ordered, and the spans must not intersect with each other.

- e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3990	4091	
==>` objects.

The array of spans must be ordered, and the spans must not intersect with each other.

- e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2228	2380	
==>, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2216	2368	
==>, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18931	19055	
==>hen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{ze <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20289	20413	
==>hen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{ze <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25020	25201	
==>->send('add_subclass' => $e->get('$self:'));
                              })
                          );
                          $e->get('$self:')->set_attr(symbol->new('@:superc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1608	1716	
==>->bind(C => $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub compile <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29999	30105	
==>amned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add a test for verbose.

Change internal list of <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7007	7107	
==>duce_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  go <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	812	938	
==>uff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSI <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	812	938	
==>uff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSI <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26566	26668	
==>works when sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harness will p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7932	8047	
==>ect that has the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object tha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7664	7776	
==>ect that has the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object tha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4002	4113	
==>tring ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4002	4113	
==>tring ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1108	1265	
==>callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1108	1265	
==>callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21061	21149	
==>(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :- \+ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2284	2416	
==>'$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{package} };
                } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3641	3765	
==>'$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package} };
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13094	13223	
==>]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6569	6698	
==>]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $nu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2369	2507	
==>check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2369	2507	
==>check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2549	2706	
==>::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by librar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2549	2706	
==>::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by librar <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	195	295	
==>* document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this ver <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	195	295	
==>* document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this ver <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1234	1357	
==>re the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $dep <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1234	1357	
==>re the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $dep <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	707	813	
==>me[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	707	813	
==>me[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	530	665	
==>my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))? <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	530	665	
==>my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))? <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1347	1435	
==>has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyCon <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1347	1435	
==>has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyCon <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6003	6110	
==>tatements: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18943	19039	
==>E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_ <==
2	/Users/nnunley/pugs/util/func_refact.pl	2961	3120	
==>ta;
    printf "$cand: %s ($total total, $new new)\n", score($total, $new);
}

sub score {
    my ($total, $new) = @_;
    return 0 if $total == $new;
    ($tot <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42905	43051	
==>get('$self:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	59	150	
==>in/../../../../lib",
    "$Bin/../../Pugs-Compiler-Rule/lib",
    "$Bin/../../Pugs-Compile <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7661	7761	
==>are of much of this.)

A default implementation of this method is provided which returns nothing.

=i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7661	7761	
==>are of much of this.)

A default implementation of this method is provided which returns nothing.

=i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15824	15924	
==>s. All rights reserved.

This library is free software; you can redistribute it and/or
modify it unde <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15824	15924	
==>s. All rights reserved.

This library is free software; you can redistribute it and/or
modify it unde <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18337	18438	
==>_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18337	18438	
==>_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $b <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15341	15475	
==>{$_->attr('text')} 
                $beg->look_down(_tag=>'~text');

            $name = $1 if $name =~ m/^"(.*)"/;

            my $di <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4028	4138	
==>ffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be prin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4028	4138	
==>ffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be prin <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2738	2845	
==>ctional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boole <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2738	2845	
==>ctional) from the stream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boole <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	522	667	
==>= ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnos <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	522	667	
==>= ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnos <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3099	3189	
==>on($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3099	3189	
==>on($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set::Hash <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8279	8379	
==>text, they all return the count of elements that would have
been iterated.

=back



=head2 List

=ov <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28218	28333	
==>ture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28497	28612	
==>ture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dump <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18770	18889	
==>~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15191	15310	
==>~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	364	477	
==>ort {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	364	477	
==>ort {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $dir <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19785	19913	
==>::File->new(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $outfile->print <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22565	22675	
==>(0) if $f eq 'bit' && ! defined $args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see PApp in EvalX <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7446	7554	
==>ference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7446	7554	
==>ference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 2 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9217	9312	
==>set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9217	9312	
==>set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9877	10074	
==>) {
            return  " " . $n->{op1}{stmt} . 
                    ' my ' . _emit( $n->{exp2}{signature} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11915	12025	
==>Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11915	12025	
==>Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic fr <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2382	2563	
==>),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5030	5125	
==>ef_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9902	10005	
==>hod
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9902	10005	
==>hod
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6277	6393	
==>stant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6265	6381	
==>stant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	910	1034	
==>ion= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	919	1043	
==>ion= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$po <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18171	18288	
==>ebug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \& <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18171	18288	
==>ebug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \& <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5305	5444	
==>.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5305	5444	
==>.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18125	18418	
==>ss cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2843	2959	
==>n $S->object(digit => 1);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2383	2513	
==>LE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2600	2730	
==>LE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cached.pl - $!";
        print FILE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19240	19335	
==>tE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19240	19335	
==>tE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the server <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2305	2425	
==>rm2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_ap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3086	3206	
==>rm2 = emit( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_ap <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2623	2759	
==>_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leadi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2623	2759	
==>_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leadi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4309	4421	
==>y () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

meth <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4309	4421	
==>y () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3572	3672	
==>q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3572	3672	
==>q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4490	4592	
==>ference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4490	4592	
==>ference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2038	2155	
==>class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2038	2155	
==>class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19613	19710	
==>e passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for any <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19613	19710	
==>e passed to that compiler. The end of an inner block
effectively acts as a C<no> statement for any <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3569	3678	
==>anonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3569	3678	
==>anonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11195	11318	
==>affic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11195	11318	
==>affic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2007	2167	
==>urn $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2007	2167	
==>urn $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bo <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2055	2178	
==>our Int multi Num::round_toward_zero (Num $x) {
	return(int $x);
}

our Int multi Num::round_away_from_zero (Num $x) {
	retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38580	38682	
==>:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parser->regex($_) or die $parse <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2016	2126	
==>ift;

    # $attr may be a T2::Attribute or a T2::Association, but as they
    # both respond to ->type and ->n <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4056	4175	
==>||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD";
Smoker info not found. Please create a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2549	2652	
==>al>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $template =~ s/<op>/\$<op>:=(<'$op- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1253	1358	
==>imple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1253	1358	
==>imple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2836	2938	
==>set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2836	2938	
==>set(" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4323	4417	
==>ode> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4323	4417	
==>ode> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20011	20162	
==>ags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      & <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16432	16583	
==>ags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2075	2269	
==>e'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2075	2269	
==>e'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1237	1358	
==>e_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1237	1358	
==>e_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7496	7633	
==>],
      family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      up => 1,
    }, $class;
    return $self <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1309	1465	
==>./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1309	1465	
==>./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1468	1582	
==>file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1468	1582	
==>file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7758	7856	
==>S->force_object(anyof_char_comp => chr(hex $1), "\\X$1") if $cc;
      return $S->object(exact_comp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5406	5533	
==>>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | < <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4501	4607	
==>=cut

sub add_package_to_index { #TODO: compression of index files.
    my $self = shift;
    my %args = @_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	813	905	
==>se_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary W <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	813	905	
==>se_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary W <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5305	5481	
==>et.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5305	5481	
==>et.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3983	4094	
==>l itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
ha <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3983	4094	
==>l itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
ha <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5449	5570	
==>ure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5449	5570	
==>ure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	185	285	
==>::Spec ();
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18910	19032	
==>$cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20268	20390	
==>$cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $b <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1005	1156	
==>associations->members,
                             # 2-way associations won't work without
                             # MM support (or proxy accessor <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1293	1433	
==>::Std->new($_) } qw/GV PV/ => "IV"],
        },
        (
            map {{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12635	12744	
==>::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12635	12744	
==>::Model::Document $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes = <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2624	2730	
==>exename.exe") {
    print "# Could not build $exename.exe\n"
     ."1..0 # skipped: can't build test exec <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3653	3765	
==>osition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ / / )
  {
    $matchObj <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20056	20139	
==>sitive_char_eq(C,Ci), !.
rm(class_pos(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_member( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2952	3054	
==>s
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2952	3054	
==>s
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3261	3376	
==>t<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3261	3376	
==>t<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3383	3519	
==>) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3383	3519	
==>) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26444	26531	
==>age::Prolog::Yaswi::Low::args[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:query :inter <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6455	6590	
==>),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6455	6590	
==>),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(8204),
    "zwj"      => chr(8205),
    "lrm"      => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1025	1134	
==>use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: < <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1025	1134	
==>use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: < <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21152	21258	
==>urn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17573	17679	
==>urn $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1188	1311	
==>URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1188	1311	
==>URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Exp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10322	10420	
==>\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11057	11155	
==>\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2308	2440	
==>};
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2308	2440	
==>};
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14587	14697	
==>than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14587	14697	
==>than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8725	8868	
==>g ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$lat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8725	8868	
==>g ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$lat <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	704	807	
==>b whisper_about (Int $sizeof_crowd, Array @x?) returns Hash is
export{
    my %terms;
    for 1 .. $size <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9213	9327	
==>e(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9213	9327	
==>e(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11700	11796	
==>ues
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11700	11796	
==>ues
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_header( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30333	30427	
==>OS-->) and returns false, to
pretend it didn't actually match.  The real closing parenthesis ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10848	10983	
==>@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] constant( '" . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10690	10810	
==>@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11933	12078	
==>od starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11933	12078	
==>od starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	602	740	
==>= ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11656	11791	
==>y @alts = map  { $_->[0] } # return the object
               grep { $_->[1] } # flag toggled?
               map  { $_->package eq $ins <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3883	3980	
==>-------------------------------------------------------
## removing children

method remove_child_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3883	3980	
==>-------------------------------------------------------
## removing children

method remove_child_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9998	10167	
==>]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9998	10167	
==>]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1979	2118	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2172	2311	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	377	481	
==>aive_bayesian.p5 classify $test_file");

print(('-' x 80), "\n");
print "Testing perl6 naive bayesian scr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5884	6010	
==>You must set '$name' to a native type";
    my $current = $self;
    while ($current) {
        if (exists $current->{env}->{$n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27309	27421	
==>(opaque $self:) returns list {
    ...
}

=cut

$::Class->send('add_method' => (
    # method label
        symbo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7789	7932	
==>ure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7789	7932	
==>ure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_comple <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12301	12487	
==>( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12295	12481	
==>( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2487	2587	
==>\\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2487	2587	
==>\\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2329	2426	
==>plicit :words modifiers.
#
#  Thanks to Bob Clary, who created the HTML-ified ecma-262, without wh <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10026	10127	
==>t().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10026	10127	
==>t().fix_width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2884	2996	
==>rty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2884	2996	
==>rty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data< <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15830	15944	
==>th of the
longest test name.

=cut

sub _leader_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	445	554	
==>file and
specify this file as parameter.
Output will go to STDOUT in PNG format.
INFO

# Read the logfile
whil <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3057	3158	
==>() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3057	3158	
==>() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1991	2103	
==>e_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{par <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14511	14622	
==>e_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3008	3138	
==>$tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3008	3138	
==>$tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15612	15721	
==>chnical
skills.  For example, a native French or Chinese speaker often prefers to
communicate in those languag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15612	15721	
==>chnical
skills.  For example, a native French or Chinese speaker often prefers to
communicate in those languag <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1456	1572	
==>NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1456	1572	
==>NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	801	902	
==>ofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $vol <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	801	902	
==>ofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $vol <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4888	4996	
==>[0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4888	4996	
==>[0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) return <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2007	2105	
==>.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_unive <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2007	2105	
==>.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_unive <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	80	200	
==>06;
use strict;
use warnings;

use Parse::Yapp;

my %relative_precedences = (
    tighter => sub {
        splice <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2423	2535	
==>>to_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg->isa('nil') && $param->to_s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5851	5992	
==>isa('type'))
        || confess "You must set '$name' to a native type";
    my $current = $self;
    while ($current) {
        if (exists $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11429	11562	
==>nperl(): none of prog, progs, progfile, args, "
	    . " switches or stdin specified"
	    unless defined $args{args} or defined $args <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2707	2811	
==>ement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2707	2811	
==>ement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Exp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3848	3949	
==>. $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5750	5851	
==>. $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	564	682	
==>return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	564	682	
==>return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_co <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14861	14954	
==>ub { $as_hash_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_hash_compl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24700	24800	
==>ater version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24700	24800	
==>ater version.  You should have received a
copy of the GPL as part of the Rosetta distribution, in the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3539	3745	
==>e
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add respon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3539	3745	
==>e
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add respon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1729	1833	
==>XXX - 'hard' replace $grammar references
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7217	7319	
==>tion 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6972	7069	
==>tion 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	825	929	
==>e: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widge <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	825	929	
==>e: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1031	1147	
==>rl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1031	1147	
==>rl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value : <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9233	9328	
==>E

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9233	9328	
==>E

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating objects f <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8620	8740	
==>pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => ghc-pkg-6.5
            or $ghc_pkg = 'ghc-pk <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1272	1364	
==>Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang K <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1272	1364	
==>Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang K <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2886	3013	
==>e a .packlist equiv
            system( qq[tar -f $my_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I % echo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8239	8407	
==>fied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8703	8871	
==>fied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1726	1831	
==>th(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args he <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1726	1831	
==>th(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16783	16904	
==>ss) {
        _diag "# PROG: \n$prog\n";
        _diag "# EXPECTED:\n", $resolve->(), "\n";
        _diag "# GOT:\n$result <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	86	197	
==>arser;

=pod

NOTE:
This is a very basic first attempt at a primitive 
s-expr compiler to generate p5 code, it's <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3210	3314	
==>}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3210	3314	
==>}

method alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3161	3300	
==>ass MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MySe <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3161	3300	
==>ass MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MySe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4405	4604	
==>{ die => "not implemented" } 
            }
        ) ),
        Inf => Pugs::Compiler::Regex->compile( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex-> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25070	25163	
==>It is also valid
for a Relation::Example to have zero attributes, though such a Relation::Exam <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3686	3808	
==>l to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3686	3808	
==>l to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3212	3322	
==>an is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3212	3322	
==>an is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3460	3557	
==>ed parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3460	3557	
==>ed parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters, this <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2163	2276	
==>StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_succe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2163	2276	
==>StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_succe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5422	5524	
==>tta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5422	5524	
==>tta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_roo <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17171	17325	
==>ts actually seen
  skip_all          if the whole test was skipped, this will 
                      contain the reason.

  ok                number of tes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	332	550	
==>) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	332	550	
==>) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33011	33108	
==>t falls.

This is very sparse.  Future versions will have more complete
documentation.  For now, r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3176	3324	
==>or in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3316	3464	
==>or in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13516	13624	
==>his test can pass (or before an implementation
could be started).  This is most useful when writing modules a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13574	13682	
==>his test can pass (or before an implementation
could be started).  This is most useful when writing modules a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15187	15295	
==>Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the Document itself i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15187	15295	
==>Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the Document itself i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4371	4498	
==>n \w and \W
         rule rxassertion:<*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... }    # defin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35972	36079	
==>aving all combinations of this object's
Set Names and Member Names elements, concatenated in the form
"<Set> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35972	36079	
==>aving all combinations of this object's
Set Names and Member Names elements, concatenated in the form
"<Set> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	995	1124	
==>uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	995	1124	
==>uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6788	6951	
==>ndary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6788	6951	
==>ndary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3512	3611	
==>ayers on top of the object-oriented backend.

To use the Cipher API, you must first create an object <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3512	3611	
==>ayers on top of the object-oriented backend.

To use the Cipher API, you must first create an object <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24451	24548	
==>etta is free software; you can redistribute it and/or modify it under
the terms of the GNU General <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24451	24548	
==>etta is free software; you can redistribute it and/or modify it under
the terms of the GNU General <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1075	1174	
==>odule to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1075	1174	
==>odule to shift across all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	117	218	
==>it;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

use Carp 'confess';
use Scal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2604	2770	
==>t( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $fla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2519	2679	
==>t( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $fla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	969	1085	
==>g      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	969	1085	
==>g      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop con <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3004	3118	
==>ft @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Funct <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3004	3118	
==>ft @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns Set::Infinite::Funct <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4355	4447	
==>Localization of Locale::KeyedText for English

=head1 VERSION

This document describes Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4355	4447	
==>Localization of Locale::KeyedText for English

=head1 VERSION

This document describes Locale <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2930	3042	
==>ch_var             { \$ <[\/\.\d]>+ } # XXX - $/<bar> etc
rule psuedo_scalar_literal { \$ <name> } # $foo ==> <'$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18442	18552	
==>login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18442	18552	
==>login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9268	9385	
==>2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9326	9443	
==>2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21560	21662	
==>e some of your messages, showing other messages instead which are
more appropriate to the context in wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21560	21662	
==>e some of your messages, showing other messages instead which are
more appropriate to the context in wh <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1606	1721	
==>!= 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1606	1721	
==>!= 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10287	10389	
==>\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11022	11124	
==>\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4456	4539	
==>Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	211	317	
==>returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	211	317	
==>returns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    ret <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1577	1695	
==>Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1488	1588	
==>Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	99	197	
==>e::Emitter::Pretty;
use Blondie::TypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 15;

my $pro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21655	21749	
==>the level of DBI's provided independence
is I<Database Driver Independence>, and not I<Database <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21655	21749	
==>the level of DBI's provided independence
is I<Database Driver Independence>, and not I<Database <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11712	11824	
==>n;
    $seen{$_}++ foreach $self->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2509	2597	
==>die::Emitter::Pretty;

	print Blondie::Emitter::Pretty->new->string($program);

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34747	34848	
==>Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34747	34848	
==>Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14483	14583	
==>ernally uses the C<scan> method to build the string, the result
will use case as suggested by HTTP sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14483	14583	
==>ernally uses the C<scan> method to build the string, the result
will use case as suggested by HTTP sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5274	5375	
==>xp::Parser::anyof_char;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12642	12780	
==>database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12642	12780	
==>database / talk to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23759	23856	
==><TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22275	22372	
==><TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10484	10602	
==>);
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10642	10760	
==>);
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8149	8279	
==>erl5;
sub recurse {
    my($x)=@_;
    my $s;
    return '(undef)' if !defined $x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18336	18436	
==>playing to users, easy messages are
better.

I have found that when it comes to getting the most accu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18336	18436	
==>playing to users, easy messages are
better.

I have found that when it comes to getting the most accu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15366	15552	
==>test->{type}   = $type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^Skip/i  ? 'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5043	5178	
==>returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "br <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5101	5236	
==>returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "br <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4758	4852	
==>LF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ': <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4758	4852	
==>LF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ': <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8876	8978	
==>el2abs($_);
  my $relative_file = abs2rel($input_path,$start_dir); 

  # Path seperator hack
  my $file <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	94	182	
==>32.pm"
package Module::Install::Win32;
use Module::Install::Base; @ISA = qw(Module::Insta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2128	2231	
==>urn $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite () <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2128	2231	
==>urn $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite () <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8857	8974	
==>hannels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8857	8974	
==>hannels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant % <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	961	1054	
==>e_fh($output_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interfac <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23499	23584	
==>e,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) :- !.
replace_at_n(N,R <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	754	862	
==>urns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	754	862	
==>urns Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5395	5647	
==>e value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5395	5647	
==>e value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5752	5869	
==>m => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4433	4529	
==>erates a gzipped initrd suitable for GRUB.
  --initrd-img=$initrd_img
    --initrd-img is the tem <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11650	11753	
==>LETTER R}';
  my $qr = qr/$rx/;

Perl's regex interprets the '\N' as a needlessly backslashed 'N'.  My
m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21225	21339	
==>! Pugs::Internals::require($module);
  }
  my sub find() {
    my $file = join(%?CONFIG<file_sep>,split("::",$modul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2104	2224	
==>.
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2885	3005	
==>.
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_da <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	234	331	
==>ts_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	292	389	
==>ts_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	50	152	
==>ompiler;
use base qw/Blondie::Compiler/;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::P <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2140	2271	
==>$year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::F <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2140	2271	
==>$year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::F <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2928	3025	
==>an I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fil <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2928	3025	
==>an I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6918	7040	
==>ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6918	7040	
==>ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14351	14583	
==>( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14630	14862	
==>( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16519	16631	
==>Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16519	16631	
==>Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Retur <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5123	5249	
==>averse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5447	5573	
==>averse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10403	10534	
==>:operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::variable::free->new;
		my $l = t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13090	13179	
==>ackets("#","#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int(I) --> <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	72	166	
==>d addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	72	166	
==>d addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10569	10676	
==>ot implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10727	10834	
==>ot implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2961	3064	
==>~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2961	3064	
==>~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19486	19606	
==>:Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20483	20603	
==>:Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1669	1810	
==>_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1669	1810	
==>_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2602	2714	
==>de inside the thunk won't be run - it must be the
first child of an App for that to happen.

Inherits Unit.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15334	15429	
==>tion written to it should behave identically no matter which
conforming "Engine" is in use.

Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15334	15429	
==>tion written to it should behave identically no matter which
conforming "Engine" is in use.

Ros <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18970	19084	
==>C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18970	19084	
==>C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39942	40036	
==>n::Example as its C<$other> argument and combines it with the
invocant relation into a new Rela <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	160	289	
==>em {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< se <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	160	289	
==>em {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12753	12852	
==>t.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12753	12852	
==>t.

Discrete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The u <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17461	17577	
==>} @classes;
    shift(@classes); # dont want current class;
    push(@classes,$ROOT);

    my $code = "";
    $code . <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3796	3898	
==>ith your data.  Finally, call the finish() method to return any leftover data 
and clear the cipher obj <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3796	3898	
==>ith your data.  Finally, call the finish() method to return any leftover data 
and clear the cipher obj <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2211	2310	
==>nd {

    # External packages used by the Rosetta::Interface::Command class, that do export symbols: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2211	2310	
==>nd {

    # External packages used by the Rosetta::Interface::Command class, that do export symbols: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5665	5816	
==>^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5677	5828	
==>^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1239	1336	
==>ply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1239	1336	
==>ply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1150	1248	
==>prehensive test suite to run against all Engines

=head1 VERSION

This document describes Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1150	1248	
==>prehensive test suite to run against all Engines

=head1 VERSION

This document describes Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	289	388	
==>b server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	289	388	
==>b server_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	980	1078	
==>rch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+) <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	980	1078	
==>rch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16158	16258	
==>f works, and will
not spend much time in providing rationales; you can read TTM itself and
various ot <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16158	16258	
==>f works, and will
not spend much time in providing rationales; you can read TTM itself and
various ot <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8094	8223	
==>, !.
p5_modifier_spec_pos([m|L])  --> "m", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([s|L])  --> "s", p5_modifier_spec_pos( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3695	3799	
==>iff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3695	3799	
==>iff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3035	3143	
==>lf = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list got($_) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22746	22851	
==>Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> <Catch> <Finally>
}
rule Catch :words {  # se <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8217	8323	
==>n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_applym('$fun_name',$argl)" if $fun_name;
	ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17106	17227	
==>} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13527	13648	
==>} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	701	807	
==>l - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	701	807	
==>l - an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3168	3264	
==>:Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3354	3450	
==>:Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5758	5854	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5837	5933	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16999	17102	
==>ization methodology
in an easily accessable manner, such that would not be possible if its
functionality <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16999	17102	
==>ization methodology
in an easily accessable manner, such that would not be possible if its
functionality <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3468	3565	
==>= 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3468	3565	
==>= 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12455	12560	
==>, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the result to is o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12513	12618	
==>, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the result to is o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	833	942	
==>f 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	833	942	
==>f 'pos' is used
    capture - the tree of captured things
    abort - the match was stopped by a { return } or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23837	23931	
==>on
than alternatives, and doesn't know about language specific details like
encodings or plural <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23837	23931	
==>on
than alternatives, and doesn't know about language specific details like
encodings or plural <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5918	6027	
==>Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5918	6027	
==>Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.se <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4017	4120	
==>> $year, month => $month, day => $day )`

Returns a date object for the given values.  The month and day <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4017	4120	
==>> $year, month => $month, day => $day )`

Returns a date object for the given values.  The month and day <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1832	1951	
==>f this package is a registered alternative

=cut
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = sh <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	227	317	
==>('foo');
#=postcircumfix
postcircumfix:«{ }»($a, 'foo');
# $a.postcircumfix:«{ }»('foo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8969	9078	
==>use $use;
USE_OK
    _ok(!$@, _where(), "use $use");
}

# runperl - Runs a separate perl interpreter.
# Argume <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1591	1686	
==>r just have
comments.

=head1 Construction

=head2 C<new>

  my $strap = Test::Harness::Straps-> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	518	615	
==>[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2046	2143	
==>[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6360	6500	
==>GIN {
    #~ __PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1722	1831	
==>= 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30829	30938	
==>>'s inheritance tree.  Use Damian Conway's F<NEXT> module
instead.  This module is standard with Perl 5.8.

=h <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	143	243	
==>erator
[+] 1, 2, 3	# (1,2,3).prefix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät; ist kei <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	783	888	
==>ls::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5505	5688	
==>d wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of St <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8982	9165	
==>d wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5863	6014	
==>"cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5875	6026	
==>"cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implem <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17283	17398	
==>ns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17283	17398	
==>ns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6722	6832	
==>d";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6722	6832	
==>d";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11242	11352	
==>t?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardab <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11242	11352	
==>t?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardab <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3630	3750	
==>de-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3814	3934	
==>de-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14579	14675	
==>TP spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14579	14675	
==>TP spec, and it will follow
recommended "Good Practice" of ordering the header fields.  Long head <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22930	23023	
==>n is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22930	23023	
==>n is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AN <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5092	5204	
==>art_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5092	5204	
==>art_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.sp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	551	664	
==>iphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	551	664	
==>iphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3008	3167	
==>t( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3008	3167	
==>t( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @ma <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5055	5208	
==>}($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5055	5208	
==>}($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17242	17359	
==>e" operation, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str )
 m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1219	1343	
==>);
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1213	1330	
==>);
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25272	25367	
==>ple bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25272	25367	
==>ple bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17191	17300	
==>calar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17191	17300	
==>calar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the sta <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	899	1026	
==>hod

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1939	2058	
==>cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_is_win32} = ( $^O =~ /^ <==
2	/Users/nnunley/pugs/util/package-osx.pl	3068	3203	
==>ib
        /usr/local/lib/libhistory.5.1.dylib
        /Library/Frameworks/GMP.Framework
        /Library/Perl6
        /Library/Perl/5. <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1187	1303	
==>o-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective exports a single function, C <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1187	1303	
==>o-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective exports a single function, C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1654	1802	
==>ched.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recom <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1861	2009	
==>ched.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recom <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4818	4915	
==>of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4818	4915	
==>of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10652	10755	
==>d sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10652	10755	
==>d sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entit <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1844	1950	
==>iled);

	$self->emit($safe);
}

sub provides {
	my $self = shift;
	my $node = shift;
    Blondie::Backend:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10200	10303	
==>(class_pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> "\\D", !.
p56_char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21168	21267	
==>ase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21168	21267	
==>ase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3321	3505	
==>my @maybe;
            for my $test ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8439	8529	
==>nts, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2264	2354	
==>nts, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1411	1590	
==>eq '"') {
                if ($in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9528	9628	
==>_object(anyof_class => word => $neg, $how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	674	788	
==>?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	674	788	
==>?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13415	13577	
==>eric variables unchanged
ide: generic($$) = { generic_in($$) }

# if an identifier is not in the lexical scope we can't know it's type
ide: type($$) = {
	my $t = e <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	523	644	
==>« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $ <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	523	644	
==>« @s;
}

sub timethese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3855	3958	
==>vious, $self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3855	3958	
==>vious, $self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $s <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	839	1010	
==>x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	839	1010	
==>x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13595	13722	
==>e;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13595	13722	
==>e;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40} <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16284	16408	
==>heading =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                my $heading_re = qr/^\Q$heading\E$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18796	18902	
==>{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15217	15323	
==>{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8689	8826	
==>" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9524	9661	
==>" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$as <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8553	8667	
==>by.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8553	8667	
==>by.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23413	23507	
==>py-and-push before you do any flag-parsing,
if you're adding a handle that might parse flags, b <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	665	793	
==>') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESC <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	665	793	
==>') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6009	6117	
==>ging the 
actual semantics.

Please note that most of the time, it will not be necessary to write these 
meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6009	6117	
==>ging the 
actual semantics.

Please note that most of the time, it will not be necessary to write these 
meth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	114	225	
==>Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Repository;

use base 'Object::A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7184	7293	
==>b_main(); return 0; }";

	join("\n\n", Blondie::Backend::C::Builtins->prelude, @{$self->{defs}});
}

sub reduc <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20194	20301	
==>],E0,E0) :- class_member(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	1	94	
==>!/usr/bin/perl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	1	94	
==>!/usr/bin/perl
# Internal
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2106	2236	
==>ype,
      vis => $vis,
    }, $class;
    return $self;
  }
}


{
  # \w \W
  package Regexp::Parser::alnum;
  push @ISA, qw( Rege <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	153	254	
==>e::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	153	254	
==>e::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinit <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	486	612	
==>p {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	486	612	
==>p {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23108	23268	
==>->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($list_len - 1) . "\n"
              . '$C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15566	15709	
==>st likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Fo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15566	15709	
==>st likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Fo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2656	2758	
==>e = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2656	2758	
==>e = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33434	33531	
==>ed Relation contains only tuples that are in
all of the source Relations.  This method has an alia <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37984	38081	
==>ed Relation contains only tuples that are in
all of the source Relations.  This method has an alia <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1702	1814	
==>r->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1762	1874	
==>r->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
as <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1058	1155	
==>tional and object-oriented interfaces both follow the same basic steps, 
albeit with different int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1058	1155	
==>tional and object-oriented interfaces both follow the same basic steps, 
albeit with different int <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6372	6513	
==>handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we only al <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6372	6513	
==>handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that we only al <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1844	1952	
==>r @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1844	1952	
==>r @spans;
}

method universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( sta <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8192	8302	
==>substr($_, 2), grep /^-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5614	5729	
==>ee[0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "pStmts"
        dbg "# keys: ",%pad.key <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33004	33105	
==>e
which is the same as the invocant Relation::Example but that some of its
tuple/Mapping-valued attrib <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2694	2791	
==>aceholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2694	2791	
==>aceholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2406	2533	
==>lock;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18409	18502	
==>eing little documentation, we
reverse engineering perl source.

We basically use the perl regc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	244	371	
==>se Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24481	24575	
==>he command is not modified by C<Net::IRC>,
aside from appending the correct newline characters. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24481	24575	
==>he command is not modified by C<Net::IRC>,
aside from appending the correct newline characters. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9107	9216	
==>ans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9107	9216	
==>ans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!c <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20258	20366	
==>'collapse' useless directory entries
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # For all di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14519	14656	
==>son.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14519	14656	
==>son.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13097	13195	
==>die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13155	13253	
==>die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemen <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10648	10776	
==>$item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10648	10776	
==>$item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8692	8799	
==>ntime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8680	8787	
==>ntime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15646	15742	
==>tive French or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15646	15742	
==>tive French or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37535	37631	
==>_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_loaded_mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37535	37631	
==>_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_loaded_mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21795	21928	
==>documentation contains a sub-classing tutorial.

=head1 SUB-CLASSING

I will present two example sub-classes, F<Regexp::NoCode>, and
F <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23120	23221	
==>'. <'{'> <FunctionBody> <'}'>
}
rule FunctionExpression :words {  # see clause 13
      <'function'> < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7791	7901	
==>match

  $next_state    - an optional "continuation"

  $capture       - capture then entire match. For example <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7527	7635	
==>match
  $next_state    - an optional "continuation"
  $capture       - capture then entire match. For example <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1284	1386	
==>es with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenat <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1284	1386	
==>es with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1679	1791	
==>lf->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1819	1931	
==>lf->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14293	14400	
==>a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    } <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14293	14400	
==>a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16532	16627	
==>is language, which satisfies TTM's definition of a "D" language, is
described fully in the L<Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16532	16627	
==>is language, which satisfies TTM's definition of a "D" language, is
described fully in the L<Ros <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	838	982	
==>ar eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $ch <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	838	982	
==>ar eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $ch <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5275	5414	
==>923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5275	5414	
==>923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14658	14755	
==>(-26)

Empty \%s{}

=item RPe_FRANGE (-27)

False [] range "%s-%s"

=item RPe_IRANGE (-28)

Invali <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23158	23256	
==>riables, use C<qr//>, or mix single-
and double-quoted strings in building your regex.

=back

=hea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1790	1897	
==>{
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd() <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1790	1897	
==>{
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd() <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3383	3502	
==>ature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trai <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3383	3502	
==>ature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6659	6783	
==>g() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6659	6783	
==>g() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11497	11606	
==>my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3088	3197	
==>my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3875	3980	
==>t::Translator {

    # External packages used by the Locale::KeyedText::Translator class, that do export s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3875	3980	
==>t::Translator {

    # External packages used by the Locale::KeyedText::Translator class, that do export s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12103	12201	
==>t.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12103	12201	
==>t.  If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1610	1709	
==>( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1610	1709	
==>( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6635	6772	
==>or message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax erro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6635	6772	
==>or message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax erro <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1835	1949	
==>sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1835	1949	
==>sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5483	5609	
==>age}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        #}
        loop (;;) {
            my $caller = Contr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16100	16244	
==>.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16100	16244	
==>.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3056	3313	
==>ETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        's <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4617	4742	
==>ing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operator, my $stringTemp, my $tempPos, my $tempPos2) = newfrom( $ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33709	33800	
==>=item C<map (Set of Str $heading!, Code $transformer!) returns Relation::Example>

This meth <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11051	11189	
==>OWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #print;
    #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28204	28302	
==>ers for the flags -- you need only pass the flag names,
without the "FLAG_" prefix.

=item $parser- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6054	6160	
==>he capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5861	5963	
==>he capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9445	9535	
==>ub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3270	3360	
==>ub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4557	4667	
==>de that makes the runtime throw a fatal error. Used for thunks that cannot
have a value:

    Env(
        '&in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1454	1566	
==>M_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but on <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1454	1566	
==>M_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but on <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7438	7560	
==>ze) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7438	7560	
==>ze) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Ba <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1384	1500	
==>dependency list, transform it into an object
    if( $obj->can('depends') ) {
        $obj->depends( 
            JIB <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3583	3715	
==>t {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

re <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3583	3715	
==>t {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1214	1368	
==>"); die "bug $@\n$str\n" if $@;
	$strx = $str if $str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1420	1516	
==>within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1420	1516	
==>within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2953	3087	
==>e ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3431	3565	
==>e ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]-> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3243	3376	
==>$.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3243	3376	
==>$.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    } <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	36	131	
==>7:29Z andy $

package Test::Harness::Assert;

use strict;
require Exporter;
use vars qw($VERSION <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1536	1639	
==>The remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instea <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2198	2301	
==>The remaining probes read from POD sections; if the file
    # has an accompanying .pod, use that instea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	604	854	
==>:L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	604	854	
==>:L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Roset <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	324	461	
==>ads the results of this
#    to a server somewhere.


package Test::Harness::YAML;
use strict;

use Getopt::Long;
use Best 0.05 [ [ qw/YAM <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1125	1226	
==>name - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my $equivalence = "=";

  $m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2147	2253	
==>ethod is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2147	2253	
==>ethod is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	691	890	
==>ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	692	891	
==>ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1714	1902	
==>n  @by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	218	324	
==>proach to compilation.

=head1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::Node <==
2	/Users/nnunley/pugs/util/version_h.pl	1807	1913	
==>handle #0), slot #0 is available for new
  # filehandles again. If we opened a new file ($version_h) withou <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2032	2139	
==>r_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2032	2139	
==>r_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8337	8545	
==>ackage )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq[ $^X $prerm ] )                              and die $?;
        }
        
        while( <$f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3203	3366	
==>@s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3203	3366	
==>@s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23578	23673	
==>gration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to te <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23578	23673	
==>gration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11953	12087	
==>er => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11953	12087	
==>er => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5774	5887	
==>xport {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5774	5887	
==>xport {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12484	12602	
==>Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PH <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12484	12602	
==>Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37489	37583	
==>rl package in its positional parameter
$module_name (a string) and tries to load it using 'requ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37489	37583	
==>rl package in its positional parameter
$module_name (a string) and tries to load it using 'requ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6691	6794	
==>return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6691	6794	
==>return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14463	14566	
==>my $digest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14463	14566	
==>my $digest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12875	12985	
==>ll alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at le <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12875	12985	
==>ll alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3619	3723	
==>use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3836	3940	
==>use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	157	295	
==>se;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	157	295	
==>se;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            prog <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5387	5671	
==>R::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8864	9148	
==>R::<$_> ) } )
        }),
    );
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method u <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3585	3696	
==>{ require $file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = delete $INC{$file};
        push @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8694	8790	
==>(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2519	2615	
==>(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->v <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	677	831	
==>ript )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	677	831	
==>ript )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	21	116	
==>-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	21	116	
==>-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16220	16328	
==>s (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12641	12749	
==>s (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2087	2267	
==>P                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for that mat <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2087	2267	
==>P                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for that mat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2744	2859	
==>as Str $.subname;
    has Str $.subtype;
    has Code $.sub;
    has Str $.params;   # FIXME: needs attention; don't <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	652	764	
==>l});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	652	764	
==>l});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_file <==
2	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	108	203	
==>arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Int <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	469	562	
==>eneric reductions don't make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10797	10899	
==>e is undefined or not
given, then that header field will remain unchanged.

The old value (or values) o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10797	10899	
==>e is undefined or not
given, then that header field will remain unchanged.

The old value (or values) o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17642	17739	
==>tual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and/or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17642	17739	
==>tual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and/or <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	772	869	
==>e_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` ar <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	772	869	
==>e_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previous($x)` ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	909	1070	
==>file($dir, $_[1]);
		return $abs if (-x $abs or $abs = MM->maybe_command($abs));
	}

	return;
}

# can we locate a (the) C compiler
sub can_cc {
	my $self   = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	240	365	
==>erl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $rule_source, $param ) = @_;
    my $self = { source <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6552	6670	
==>cl = "no strict; ($varlist)$init; use strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9318	9408	
==>-----------------
package main;
Regexp::StructHook::import();

1;
#__END__
Regexp::StructHo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1535	1702	
==>n( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1535	1702	
==>n( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	658	831	
==>)
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	658	831	
==>)
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	326	425	
==>eneration.  To return a value, arrange for
it to be the last evaluated expression.

All functions (b <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1143	1241	
==>e not the superclass of any superclass

method set_superclasses($self: Set $super) {

    my $super <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16297	16386	
==>qualityExpression> <'=='> <RelationalExpression>
    | <EqualityExpression> <'!='> <Relati <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	451	536	
==>-------------------------------------------------------------------
## accessors and m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	451	536	
==>-------------------------------------------------------------------
## accessors and m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6551	6640	
==>tighter|equiv).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statem <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16920	17058	
==>-> Str )

Like C<lc>, but only affects the first character.


=item uc

 multi Str::uc         (  Str $string              --> Str )
 multi <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	53	146	
==>ver Test::Harness::Straps.
# Hacked up from mini_harness.plx in the Test::Harness dist.
# (And <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17772	17870	
==>ents and routines
within the virtual machine, input data to it, and output data from it.

You can c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17772	17870	
==>ents and routines
within the virtual machine, input data to it, and output data from it.

You can c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3827	3945	
==>we have to locate "Syck_stub.o" and copy it into
        # dist/build/src/Data/Yaml/.
        my @candidates;
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8900	9009	
==>legal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", " <==
2	/Users/nnunley/pugs/util/grokprims.pl	2179	2268	
==>>$op->{assoc}</td>";
  print "<td>$op->{ret}</td>";
  print "<td><tt>$op->{name}</tt></td> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12073	12198	
==>1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [200 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12073	12198	
==>1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [200 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6361	6534	
==>candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8297	8406	
==>p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_ <==
2	/Users/nnunley/pugs/util/testgraph.pl	1506	1614	
==>t::TAP::Model::File::Visual/;
    sub subtest_class { "My::Subtest" }
    sub link {
        my $self = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22192	22288	
==>rant "Quantifier unexpected" warning raised by a zero-width
assertion followed by C<?>, which doe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	179	275	
==>erate p5 code, it's really 
pretty bad actually, and the s-expr got quite messy
as well. Although <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3789	3885	
==>tch variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3973	4069	
==>tch variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11478	11626	
==>("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      whil <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11478	11626	
==>("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      whil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6903	7013	
==>xt_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6961	7071	
==>xt_out = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3290	3392	
==>ate[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3290	3392	
==>ate[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	368	466	
==>put };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surpris <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	368	466	
==>put };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surpris <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6871	7038	
==>$array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6871	7038	
==>$array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3388	3568	
==>ce_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => 1,
                        match = <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	546	656	
==>@tokens;
  my $buf = "";   # set to undef to when input is exhausted
  my $split := { (split rx:perl5/($pattern <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	872	977	
==>pment on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory f <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	872	977	
==>pment on IRC (C<irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1662	1763	
==>elf.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1662	1763	
==>elf.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11121	11222	
==>efined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document class i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11121	11222	
==>efined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document class i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	99	196	
==>::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	99	196	
==>::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1843	1946	
==>lf!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1843	1946	
==>lf!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9276	9371	
==>atement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3101	3196	
==>atement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13648	13746	
==>me language feature missing, or core bug that needs to
be sorted out before you can continue.

It i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13706	13804	
==>me language feature missing, or core bug that needs to
be sorted out before you can continue.

It i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	524	628	
==>k frame points to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	524	628	
==>k frame points to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20032	20135	
==>he compilers. It does so in a most specific to most general order.
So inner blocks get compiled first, t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20032	20135	
==>he compilers. It does so in a most specific to most general order.
So inner blocks get compiled first, t <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	703	805	
==>ion.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'd <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	703	805	
==>ion.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'd <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1031	1170	
==>pe     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1031	1170	
==>pe     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11325	11452	
==>' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11325	11452	
==>' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3891	4045	
==>n;
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            pus <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9856	9971	
==>red_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any whitesp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27186	27282	
==>f Code $attrs!) returns Relation>

This method is a generic relational operator that returns a ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31738	31834	
==>f Code $attrs!) returns Relation>

This method is a generic relational operator that returns a ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7641	7738	
==>Block> class takes care of much of this.)

A default implementation of this method is provided whi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7641	7738	
==>Block> class takes care of much of this.)

A default implementation of this method is provided whi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24259	24361	
==>result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf("%.2f",100*(1-$f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8306	8408	
==>\\%s{%s}", $self->{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser::clump;
  push @IS <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3493	3728	
==>dent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3493	3728	
==>dent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8977	9089	
==>:PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    my @kv;
    for my $k (@{$_[0]->info->{'fiel <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6013	6119	
==>lti sub ToNumber(JSX::Value::String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar.StringNu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5253	5364	
==>ames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5253	5364	
==>ames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Pa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	537	676	
==>nless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	537	676	
==>nless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10029	10187	
==>!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10029	10187	
==>!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif ( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	119	215	
==>::Internals:: subs,
# or implemented in p6 (S29 already defines some p6 implementations).
# To co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7230	7371	
==>we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependenc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7694	7835	
==>we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependenc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	520	631	
==>accessors( keys %$tmpl );
    
    $obj->struct( $struct );

    return $obj;
}

=head2 $str = $self->pretty_pri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3583	3708	
==>. "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4432	4557	
==>. "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3062	3200	
==>?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2944	3074	
==>?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2418	2578	
==>ing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2665	2825	
==>ing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4202	4301	
==>o match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4386	4485	
==>o match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. D <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5596	5698	
==>end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5596	5698	
==>end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27439	27595	
==>\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27718	27874	
==>\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2093	2290	
==>size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.prin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2093	2290	
==>size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.prin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6204	6375	
==>ction, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file hand <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6204	6375	
==>ction, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file hand <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4467	4584	
==>e command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4313	4428	
==>e command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18453	18549	
==>nick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18453	18549	
==>nick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6029	6145	
==>, it doesnt parse.
multi method Array::as_seq (@array:) returns List {
    *@array
}
# name from docs/notes/piln_obje <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7045	7198	
==>binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5546	5699	
==>binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1962	2064	
==>gram =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap. <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10579	10670	
==>Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http://svn.openfou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	444	552	
==>de down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you litt <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	444	552	
==>de down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you litt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7226	7361	
==>ool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7284	7419	
==>ool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2444	2603	
==>t.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2444	2603	
==>t.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1653	1795	
==>_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless ( defined($file) ) {
        my $name = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1768	1870	
==>mpiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	319	424	
==>sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	319	424	
==>sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3800	3921	
==>ues.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7277	7398	
==>ues.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2817	2931	
==>difiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.pr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2817	2931	
==>difiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.pr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7699	7807	
==>_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $la <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7699	7807	
==>_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $la <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4725	4853	
==>$idx_to = shift;
                my $replacement =     shift;
                map { $_->scalar_fetch } splice(@{$self->get_value( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	453	561	
==>ssed($_) } $dup_finder->duplicate_nodes($program);

	$self->{seen} = {};

	return $self->reduce($program) unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4406	4500	
==>t reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4253	4346	
==>t reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8311	8428	
==>{
    my $self = shift;

    # Return immediately if we've cached this.
    return $self->{ghc_pkg} if $self->{ghc_pkg <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35233	35334	
==>ad-only argument. The new
Relation::Example has all of the same attributes as the original.  Trivial c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2596	2735	
==>ave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or uml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2596	2735	
==>ave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or uml <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37309	37401	
==>is
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41858	41950	
==>is
method has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2024	2133	
==>en undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::Li <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2024	2133	
==>en undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::Li <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1482	1616	
==>d    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1482	1616	
==>d    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	230	352	
==>_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	230	352	
==>_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2297	2430	
==>er = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2308	2441	
==>er = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14692	14802	
==>n "test.pl had problems loading File::Spec: $@";
		$Perl = "./$perl";
	    } else {
		$Perl = File::Spec->catfi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4619	4770	
==>n) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4619	4770	
==>n) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	764	890	
==>rt {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	764	890	
==>rt {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7059	7180	
==>warn "all chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $k <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31036	31142	
==>} >>):

=over 4

=item rx

The parser object with which it was created.

=item flags

The flags for the obj <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18894	18989	
==>rthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18894	18989	
==>rthermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE< <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2130	2257	
==>upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2130	2257	
==>upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6587	6686	
==>DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6587	6686	
==>DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2660	2779	
==>ield is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2660	2779	
==>ield is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCO <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2379	2479	
==>x>.

=head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< init( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2379	2479	
==>x>.

=head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< init( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	899	1015	
==>51.
multi  List::reverse ( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @v <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	666	793	
==>$self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	666	793	
==>$self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.si <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	590	698	
==>our when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	590	698	
==>our when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23471	23587	
==>@_;
    my %seen;
    @failed = sort {$a <=> $b} grep !$seen{$_}++, @failed;
    my $failed = @failed;
    my @result <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1283	1384	
==>w the power of Perl 6 defaults and
Currying in a real context.

The newton function must receive at le <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7067	7204	
==>gs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7067	7204	
==>gs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	920	1054	
==>londie::Backend::Perl::Silly->new; # might or might not have some builtins
                                        # instead of prelude <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10485	10572	
==>amName=>$paramName, paramContext=>$paramContext, paramDefault=>$default };
}

NODE MkPos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12483	12612	
==>colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12483	12612	
==>colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo event <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1207	1427	
==>er', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1207	1427	
==>er', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9720	9888	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9720	9888	
==>) {
            warn "<$cmd> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $pa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4176	4275	
==>t tests 15, 16, 17, 18, 19 and
20 failed).

=back


=head2 Functions

Test::Harness currently only h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9407	9509	
==>.
The headers consist of attribute-value pairs also called fields, which
may be repeated, and which are <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9407	9509	
==>.
The headers consist of attribute-value pairs also called fields, which
may be repeated, and which are <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1609	1743	
==>Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4812	4946	
==>Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	766	895	
==>tidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional arrays of th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	766	895	
==>tidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional arrays of th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1757	1867	
==>'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArg <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1305	1393	
==>de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http://m19s28.vlinux.de/iblech/pug <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2796	2912	
==>might not be able to derive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2796	2912	
==>might not be able to derive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12053	12184	
==>= $I0
    $S0 = substr target, pos, 1
  subrule_end:
    if $S0 != ">" goto end
    inc pos
    mpos = pos
    mob["subname"] = subn <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13521	13620	
==>er as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13521	13620	
==>er as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15826	15926	
==>o F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15826	15926	
==>o F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20542	20644	
==>r_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\&/;
    ret <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	609	724	
==>Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { native($_) } (
		{
			arity => 0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25388	25493	
==>Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25388	25493	
==>Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19474	19641	
==>ents, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19753	19920	
==>ents, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3948	4060	
==>lass     = ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self- <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2905	3011	
==>lass = ref($self->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32792	32898	
==>tic because it
invokes user-defined external files for reading, mainly in the
C<translate_message()> method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32792	32898	
==>tic because it
invokes user-defined external files for reading, mainly in the
C<translate_message()> method <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18663	18761	
==>dy found in the class), set the
C<strict> attribute to 2; the class above would render as C<[\w:]>. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12342	12436	
==>nd does something to them (and their children).

=head1 ERROR HANDLING

=head2 Determining Erro <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1614	1706	
==>of all the L<Blondie::Nodes> and some
more objects.

They provide stringification, fmapping a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	722	833	
==>eturn '' unless +@:diagnostics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @:diagnostics   = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16845	16934	
==>1,B0,B1,E0,Ex),
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12645	12743	
==>e}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5501	5638	
==>urn $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5501	5638	
==>urn $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1209	1323	
==>?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_pe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1267	1381	
==>?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_pe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15949	16063	
==>ly" is one of the most widely used. ;)
Zero seems safe.  But more nuanced treatment will be needed if utf8 is
to be <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52360	52445	
==>lass of Object >
$::Class->set_attr(symbol->new('@:superclasses') => list->new($::Modu <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2071	2164	
==>D. Cameron for his "Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19586	19693	
==>.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19586	19693	
==>.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3375	3489	
==>nterface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3592	3706	
==>nterface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2629	2746	
==>ble> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2629	2746	
==>ble> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->cod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8593	8753	
==>:r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8593	8753	
==>:r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2141	2258	
==>$X::cap = [];
    local $Z::oop{$id} = {ops=>[undef],var=>[],op_ahead=>undef};
    my($step);
    $step = sub{
      p <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4622	4738	
==>k}++ if $pass;

        if( $result{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	114	215	
==>ctional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

= <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	114	215	
==>ctional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	478	578	
==>ass MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	478	578	
==>ass MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::I <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14638	14738	
==>that would have
been iterated.

The lvalue form of C<keys> is not longer supported. Use the C<.bucket <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3387	3495	
==>ock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fgloc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3268	3371	
==>ock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fgloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3688	3818	
==>orted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3688	3818	
==>orted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32101	32222	
==>m omit

Whether this object is omitted from the actual tree (like a CLOSE).

=item on

The flags specifically turned on fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29101	29195	
==>have a "predecessor" (that is, a '&&' with a
'&') are post-consumption: they have already match <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1733	1886	
==>:TRUE) {
            #warn "calling method (" . $label->to_native . ")";
            return $methods->fetch($label)->do($args);
        }
    }
    confes <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1893	1990	
==>lude','Disabled,^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} and ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	892	1134	
==>ant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	893	1135	
==>ant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4974	5079	
==>tial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4974	5079	
==>tial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2714	2827	
==>, "<prefix::", "nows");
    $optable->addToken("close:}", "<prefix::", "nows");

    my %escape = (
    "e" => "\e <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	216	336	
==>ontent =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $con <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	216	336	
==>ontent =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $con <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1332	1441	
==>e {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_availab <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1652	1745	
==>byte (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1652	1745	
==>byte (but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18300	18405	
==>st way to deal with it.  But for displaying to users, easy messages are
better.

I have found that when it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18300	18405	
==>st way to deal with it.  But for displaying to users, easy messages are
better.

I have found that when it <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2709	2849	
==>r $.file;
    has Int $.line;
    has Str $.subname;
    has Str $.subtype;
    has Code $.sub;
    has Str $.params;   # FIXME: needs attent <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13345	13467	
==>addrange:
    isrange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3952	4052	
==>ssed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3952	4052	
==>ssed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $da <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6555	6652	
==>r->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11613	11710	
==>r->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2611	2720	
==>y $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2611	2720	
==>y $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14142	14258	
==>attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10982	11078	
==>ently.

The string representation is built by calling the visual() method of
each node in the tre <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16212	16374	
==>polate($heading);
            $heading =~ s/^\s+|\s+$//g;;
            $heading =~ tr/`'//d; #`# DELME: emacs repair

            if ($heading) {
                m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2480	2589	
==>ect(bound => nbound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3220	3375	
==>_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3220	3375	
==>_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7410	7555	
==>93),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(865 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7410	7555	
==>93),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(865 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25288	25367	
==>flag_i(amat(C0,flgs(_,B,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))). <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9207	9293	
==>ght method return value');

$iFoo->add_singleton_method('test_iFoo_singleton_method' => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3942	4040	
==>nt_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3942	4040	
==>nt_next =>     $self._get_union( $self.complement_next, $set.complement_next, -1 ),
        complem <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5477	5581	
==>lication.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will imple <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5477	5581	
==>lication.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a Rosetta Engine which will imple <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11113	11208	
==>lity

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11113	11208	
==>lity

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17610	17723	
==>Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Crea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17610	17723	
==>Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Crea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9489	9608	
==>die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9489	9608	
==>die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	215	315	
==>:Rule::Perl5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_[1]-1, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	22	122	
==>er::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Arr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	22	122	
==>er::Stream is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Arr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11364	11497	
==>'re successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11364	11497	
==>'re successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14026	14150	
==>_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14026	14150	
==>_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2096	2196	
==>tead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2096	2196	
==>tead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional <==
2	/Users/nnunley/pugs/util/func_refact.pl	2578	2688	
==>contributions
        #print "$cand: totall $cands{$cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7677	7779	
==>") } @children_of_seq;
			
			return Blondie::TypeSafe::Annotation->new(
				type => [ ( map { $_->acce <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12608	12714	
==>DESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6083	6189	
==>DESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4650	4744	
==>sure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6759	6951	
==>> $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.captu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6759	6951	
==>> $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.captu <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1131	1255	
==>next unless length;
      s/^#!.*?perl// if $. == 1;
      $golf += length;
   }
   close(FF);
   return $golf;
}

sub PrintG <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1149	1245	
==>the tree reduction code.

L<Blondie::Backend::Perl::Builtins> contains the builtin operations and <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	329	430	
==>set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

met <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	329	430	
==>set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( %param );
}

met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6531	6623	
==>oo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11589	11681	
==>oo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3472	3581	
==>^\)]*)\);/\@_=($2);goto $1;/g;
  #print STDERR $_;
  $_;
};
1;
package main;
use Regexp::Parser;
use Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15776	15880	
==>rn Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19253	19357	
==>rn Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2719	2871	
==>3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2719	2871	
==>3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @node <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3075	3176	
==>et1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3075	3176	
==>et1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @inters <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	975	1239	
==>r => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 T <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	975	1239	
==>r => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7607	7764	
==>roup;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7800	7957	
==>roup;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9515	9620	
==>utine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9515	9620	
==>utine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and co <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3985	4195	
==>up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x_ro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31617	31733	
==>/false branch (like the C<(?(...)T|F)>
assertion).

=item max

The maximum repetition count of this object (for quant <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1712	1806	
==>&parse_enumclass);
    $optable->addToken("term:<-[", "term:", "nows", &parse_enumclass);
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	959	1099	
==>the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	959	1099	
==>the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3251	3407	
==>Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3715	3871	
==>Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1140	1248	
==>ent contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of al <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1140	1248	
==>ent contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of al <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5045	5204	
==>il = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = se <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5045	5204	
==>il = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	28	133	
==>ck
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	28	133	
==>ck
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19690	19788	
==>C<Net::IRC> automatically tries to use slight variations of the nickname in the
login phase (for ex <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19690	19788	
==>C<Net::IRC> automatically tries to use slight variations of the nickname in the
login phase (for ex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11438	11532	
==>ng
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11496	11590	
==>ng
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12822	12958	
==>le::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12822	12958	
==>le::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $c <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1533	1665	
==>parator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) returns List {
   gather {
     wh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5215	5347	
==>fy this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5215	5347	
==>fy this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	737	832	
==>ub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "requi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	737	832	
==>ub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "requi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13100	13233	
==>an size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Crea <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13100	13233	
==>an size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Crea <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	278	393	
==>mpiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	278	393	
==>mpiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11857	11961	
==>eader field.  Previous values
for the same field are retained.

As for the header() method, the field nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11857	11961	
==>eader field.  Previous values
for the same field are retained.

As for the header() method, the field nam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2366	2491	
==>array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2366	2491	
==>array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3129	3233	
==>ult7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::Valu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3675	3779	
==>ult7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::Valu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16457	16579	
==>eturn $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16457	16579	
==>eturn $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32685	32787	
==>ta from external Template modules as a template.
The Translator class as a whole is not pure and determ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32685	32787	
==>ta from external Template modules as a template.
The Translator class as a whole is not pure and determ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29762	29886	
==>eturns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29762	29886	
==>eturns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very si <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15240	15364	
==>Harness doesn't think you're
on TTY.

The C<$width> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4845	4943	
==>ar.' = '.$lit.";\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11539	11636	
==>2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11539	11636	
==>2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - Th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4936	5039	
==>{
    my($pil_tree)=@_;
    return (undef,"emit: pil_tree was undefined") if !defined $pil_tree;
    use <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25673	25770	
==>rliest possible start of the match.
 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regb <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1494	1615	
==>++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1494	1615	
==>++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6115	6212	
==>ses this document successfully. However, more complex POD 
documents may not do as well. Error rep <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6115	6212	
==>ses this document successfully. However, more complex POD 
documents may not do as well. Error rep <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20427	20538	
==>ped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, $estatus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3123	3230	
==>routines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], block => $_[7], %{$ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4933	5088	
==>modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that mo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4933	5088	
==>modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that mo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4828	4938	
==>new;
	$self->{name} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20019	20115	
==>d to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($una <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20019	20115	
==>d to set the header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($una <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1963	2067	
==>lied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1963	2067	
==>lied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2692	2794	
==>ata,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2692	2794	
==>ata,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6895	7030	
==>closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6895	7030	
==>closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2307	2403	
==>h all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Gra <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2307	2403	
==>h all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Gra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7060	7186	
==>ary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7060	7186	
==>ary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $con <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	463	646	
==>,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	463	646	
==>,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19692	19803	
==>e much easier for a non-programmer to edit.
But the current Perl-based solution will also be kept due to its mor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19692	19803	
==>e much easier for a non-programmer to edit.
But the current Perl-based solution will also be kept due to its mor <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4994	5170	
==>n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4994	5170	
==>n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4252	4361	
==>FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    return $contents;
}

=pod JIB::Utils- <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2551	2657	
==>l 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=p <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2551	2657	
==>l 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4220	4312	
==>TSTRAPPING Class/Object COMPLETE
## --------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8264	8364	
==>uleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7977	8075	
==>uleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1539	1636	
==>::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1539	1636	
==>::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6198	6315	
==>>code();

    sub <?p6ws>? <ident> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2'} = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9017	9199	
==>cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9017	9199	
==>cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1732	1827	
==>plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1732	1827	
==>plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertex <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15855	15956	
==>rn $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2252	2349	
==>rn $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution { <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	694	804	
==>y $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tup <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2449	2585	
==>ndex(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, spli <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2449	2585	
==>ndex(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, spli <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8452	8553	
==>e
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8452	8553	
==>e
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_ni <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	58	168	
==>the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	58	168	
==>the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1410	1511	
==>tr $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-88 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1410	1511	
==>tr $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-88 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10054	10157	
==>tml; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are pass <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10054	10157	
==>tml; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are pass <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7273	7381	
==>ub "parse_modifier"
    .param pmc mob
    .local int pos, lastpos
    .local string target, value
    .local <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8517	8624	
==>ent {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8517	8624	
==>ent {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      d <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	584	734	
==>th), :day($day),
                             :hour($hour), :minute($minute), :second($second),
                             :tz($tz) );
}

# convert f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1541	1713	
==>hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1541	1713	
==>hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric ( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2954	3081	
==>nd   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2954	3081	
==>nd   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2264	2367	
==>ct = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2264	2367	
==>ct = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $inter <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1307	1410	
==>f.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1307	1410	
==>f.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27649	27831	
==>'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaque $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4463	4570	
==>le_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compili <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4463	4570	
==>le_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get all the code for compili <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6678	6794	
==>n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($pPos, $pExp, $pN <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4106	4194	
==>32795028841971693993751058209749445923078164062;
     # http://www.research.att.com/~njas <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	4	101	
==>d1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	4	101	
==>d1 NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23300	23433	
==>. "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11346	11441	
==>e (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11346	11441	
==>e (Str $to_encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9637	9735	
==>ON

This class handles an infinite recurrence set, defined with closures. 

A recurrence set is def <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9637	9735	
==>ON

This class handles an infinite recurrence set, defined with closures. 

A recurrence set is def <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1641	1759	
==>s_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous / <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1641	1759	
==>s_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous / <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	963	1104	
==>$code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	974	1115	
==>$code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3198	3378	
==>zy>),
                    ),
                ),
            ),
            Tree.new(:node<Grammar>),
            Tree.new(:node<Type>).add_children(
                Tree.new(:node<P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2372	2487	
==>es );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2372	2487	
==>es );
}

method intersection ($self: Set::Infinite::Functional $set ) returns Set::Infinite::Functional {
    # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6626	6780	
==>_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6412	6557	
==>_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4844	4953	
==>ch will later be the / of the CD.
  --iso=$iso
    The final ISO9660 image name will be --iso.

Options may be <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3940	4059	
==>-> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3940	4059	
==>-> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	902	1006	
==>:Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	902	1006	
==>:Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	42	172	
==>.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	42	172	
==>.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1278	1410	
==>i;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1278	1410	
==>i;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? . <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5115	5224	
==>!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5115	5224	
==>!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2850	2973	
==>ncrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.enciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2850	2973	
==>ncrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.enciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6484	6608	
==>s:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6496	6620	
==>s:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13599	13734	
==>called on $_[0]"); undef };
my %as_array_handlers =
    ( undef => sub { $as_array_complain->("undef"); [] },
      numeric     => sub { <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1850	1954	
==>e_keyed_int
#defined_keyed_int

sub get_hash {
  my ( $self ) =  @_;
  return $self->hash();
}

sub get_a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2302	2481	
==>uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs';                  # remote repo root
$R <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5925	6035	
==>shift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5925	6035	
==>shift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12086	12207	
==>'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $? <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12086	12207	
==>'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $? <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8838	8958	
==>ous set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $di <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8838	8958	
==>ous set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16167	16356	
==>.
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16161	16350	
==>.
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', D <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3101	3211	
==>nd it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that you should strive t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3101	3211	
==>nd it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This means that you should strive t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16056	16151	
==>unley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Je <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16114	16209	
==>unley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Je <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	0	102	
==>role Parse::Rule::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Res <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	0	102	
==>role Parse::Rule::Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Res <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5047	5168	
==>{
    my $self = shift;
    return $self unless $self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub ve <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9411	9595	
==>($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCAL <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10402	10586	
==>($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCAL <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15548	15641	
==>ort the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15548	15641	
==>ort the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all cha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18047	18156	
==>ng a simple 'equals', and then the
application can "do the right thing".  No parsing or ambiguity involved.
By <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18047	18156	
==>ng a simple 'equals', and then the
application can "do the right thing".  No parsing or ambiguity involved.
By <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13495	13619	
==>d};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13495	13619	
==>d};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $ev <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1472	1579	
==>iler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1472	1579	
==>iler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $f <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3629	3754	
==>,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3629	3754	
==>,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_childr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1629	1923	
==>ee.new(:node<Int>).add_children(
                                        Tree.new(:node<Bit>)
                                    ),
                                ),
                            ),
                        ),                        
                        Tree.new(:node<Bool>) <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2086	2177	
==>UTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODIR} = '$(INST_ARCHLIB)/$(F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15518	15650	
==>ucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need thrott <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15518	15650	
==>ucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need thrott <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1493	1585	
==>YI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed f <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1493	1585	
==>YI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1946	2117	
==>nsion
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # builddir prefix
$Preinst        = 'PREINST <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2209	2315	
==>( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2209	2315	
==>( %param<start> )  { $start = %param<start> };
        if defined( %param<after> )  { $start = %param<after <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1636	1916	
==>pLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN_F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16452	16578	
==>{
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12873	12999	
==>{
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1717	1842	
==>::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1717	1842	
==>::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6380	6507	
==>$i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arra <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4882	5009	
==>$i <= $final {
            # The .delete here is necessary to destroy all possible bindings
            # user code has to @arra <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5762	5866	
==>$.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5762	5866	
==>$.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Boo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1989	2102	
==>nt_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1989	2102	
==>nt_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7140	7256	
==>lete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7140	7256	
==>lete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $k <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12251	12346	
==>will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12309	12404	
==>will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $des <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	41	139	
==>arse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	41	139	
==>arse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15698	15791	
==>unicate in those languages.  Or, when viewing an error message, the
application's developer sh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15698	15791	
==>unicate in those languages.  Or, when viewing an error message, the
application's developer sh <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2442	2706	
==>readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $ve <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2442	2706	
==>readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $ve <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1640	1750	
==>defined> within its scope;
when those regular expresisons are used, an alternate engine is invoked.

Currently, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29570	29667	
==>test names in the failure summary.

Rework the test summary so long test names are not truncated a <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3041	3200	
==>sif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1];  # keys: 
        dbg "# keys: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35409	35505	
==>C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one object

=head2 group

Family: group

Types: group (C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	118	251	
==>piler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	118	251	
==>piler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            prog <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15634	15746	
==>t $ENV{HARNESS_NOTTY} and not $Verbose;

    return($leader, $ml);
}

=item B<_leader_width>

  my($width) = _lea <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	189	402	
==>ype, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	189	402	
==>ype, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6947	7071	
==>didate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6947	7071	
==>didate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1875	2029	
==>rray' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1875	2029	
==>rray' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<objec <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	746	862	
==>b path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	746	862	
==>b path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4216	4337	
==>ement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5065	5186	
==>ement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, " <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	364	473	
==>i sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        m <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	364	473	
==>i sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1350	1452	
==>h::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1350	1452	
==>h::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	962	1070	
==>) 
        if $left->name->to_native eq $right->name->to_native && 
           $left->type->to_native eq $rig <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19345	19451	
==>t is we can't type it
my $no_such_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4804	4920	
==>ct(space => 0);
  });

  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_cl <==
2	/Users/nnunley/pugs/util/package-osx.pl	8926	9028	
==>pied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($dest, %symlinks) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3169	3274	
==>e.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3169	3274	
==>e.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2374	2489	
==>fault_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./ad <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2374	2489	
==>fault_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./ad <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9082	9190	
==>n the CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\"",
    ensure => sub { -r $initr <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	632	728	
==>pers:: is for more generally useful stuff, and need not be
  implemented immediately.  Assume the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14426	14521	
==>(-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passed through

=item RPe_BA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2332	2442	
==>oto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2332	2442	
==>oto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	609	732	
==>=> $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_barew <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1875	2026	
==>) },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1875	2026	
==>) },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $eve <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	97	210	
==><= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for m <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	97	210	
==><= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17511	17620	
==>methods.

If the span is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17511	17620	
==>methods.

If the span is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12000	12120	
==>mand($command);
        close $err;
        ($in, $out, $pid);
    }

    # Tridirectional pipe. Potenially dangerous. Us <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9499	9619	
==>ognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9499	9619	
==>ognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5234	5348	
==>) }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5234	5348	
==>) }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is used as a pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13695	13792	
==>tta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13695	13792	
==>tta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the us <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1405	1521	
==>b'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1405	1521	
==>b'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs =~ s{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1429	1545	
==>else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1429	1545	
==>else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Vari <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24319	24420	
==>::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17520	17617	
==>o one class, I<quantifier>.  You pass it the min and max,
and the object's C<type> is determined d <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2477	2583	
==>) returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2477	2583	
==>) returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17843	17938	
==>r appeared in the character class.  The
character class C<[A-CB-E]> would have a character map o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2760	2883	
==>0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2748	2871	
==>0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11261	11413	
==>comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11261	11413	
==>comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	204	322	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	204	322	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3334	3488	
==>le ) );
            
            my %avail = map { $_->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11214	11338	
==>, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11214	11338	
==>, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3398	3534	
==>}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3615	3751	
==>}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19153	19298	
==>atch;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19432	19577	
==>atch;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25207	25302	
==>ith other free software
components, as defined by the Free Software Foundation at
L<http://www.g <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25207	25302	
==>ith other free software
components, as defined by the Free Software Foundation at
L<http://www.g <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5640	5757	
==>ebugger'>
    | <'implements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	197	291	
==>mplistic, and extremely foolish
# script, ignoring deeper context, needs lots of
# improvement. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15381	15478	
==>dentifies what kind of Node this is, and by extension
what kinds of attributes or relative Nodes i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15381	15478	
==>dentifies what kind of Node this is, and by extension
what kinds of attributes or relative Nodes i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1715	1903	
==>odel::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1715	1903	
==>odel::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Has <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4478	4577	
==>o LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4478	4577	
==>o LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	349	469	
==>ns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split(" <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	349	469	
==>ns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split(" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	450	583	
==>return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	431	560	
==>return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0] <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3514	3625	
==>ile1,  "1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st line\n" ],
      [ 'file3',  $file3,  "3rd line <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	850	946	
==>self->{env}->set('$?CLASS'   => $inv->class);    
    $self->{env}->set('$?PACKAGE' => $inv->clas <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8066	8163	
==>at we have F<ghc_pkg> installed.  This caches its result,
any further calls to ghc_pkg This method <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1752	1866	
==>=> "Array", iarray => "Array", #  └── "" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8303	8404	
==>odes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15440	15539	
==>pan is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15440	15539	
==>pan is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1164	1358	
==>2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1164	1358	
==>2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1784	1941	
==>V
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1784	1941	
==>V
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	64	149	
==>nPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::OnPerl5 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11476	11595	
==>}/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11476	11595	
==>}/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5854	6106	
==>ec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5854	6106	
==>ec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3417	3588	
==>{ UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKAGE_BINARY
                            => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3392	3543	
==>n == 0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    'named_onl <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	446	625	
==>odules == 1) {
        local *MODULE;
        open MODULE, $modules[0] or die $!;
        while (<MODULE>) {
            next if /^\s*(?:#|$)/;
            $self->module_name($1) i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27146	27273	
==>->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5144	5236	
==>)   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5144	5236	
==>)   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") } <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4549	4694	
==>d = round_floor($x);
    }
    elsif $x > 0 {
        $x_round = round_ceiling($x);
    }
    else {
        $x_round = 0;
    }

    return $x_ro <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2066	2168	
==>ion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog (@pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11175	11300	
==>$prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	180	288	
==>Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	180	288	
==>Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strin <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1561	1680	
==>hile( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event = $events->[ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22687	22804	
==>name = self["mname"]
    value = self["value"]
    if mname == ":sigspace" goto words
    if mname == ":ignorecase" go <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	174	279	
==>table.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @tests = `cat re_te <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1295	1387	
==>node) if $self->is_duplicate($node);
	warn $node->struct_equiv . " is duplicated, and has bee <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11507	11651	
==>main);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.pus <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11507	11651	
==>main);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.pus <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13868	14009	
==>$reason = '' unless defined $skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YE <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1122	1247	
==>on->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    my ($self, $condition) = @_;
    (blessed($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	424	533	
==>kg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = call <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	424	533	
==>kg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = call <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3690	3788	
==>2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3690	3788	
==>2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::Event <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4303	4443	
==>e => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and',
        assoc => 'left',
        precedenc <==
2	/Users/nnunley/pugs/util/config_h.pl	991	1096	
==>win/i) {
    print OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3333	3443	
==>$self->{stack} } while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2333	2527	
==>begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2333	2527	
==>begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32574	32670	
==>guration, its
main purpose is to convert Message objects on demand into user-readable
message str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32574	32670	
==>guration, its
main purpose is to convert Message objects on demand into user-readable
message str <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	454	561	
==>r) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	530	656	
==>@!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	530	656	
==>@!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	794	933	
==>index".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	794	933	
==>index".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6347	6457	
==>nt_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_strin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6347	6457	
==>nt_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_strin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12842	13010	
==>ge)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12842	13010	
==>ge)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1161	1386	
==>}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1161	1386	
==>}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5998	6129	
==>}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5986	6117	
==>}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2666	2785	
==>etadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3130	3249	
==>etadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	367	533	
==>ix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	367	533	
==>ix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1044	1157	
==>->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented y <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1044	1157	
==>->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15817	15907	
==>ite for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
seve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15817	15907	
==>ite for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also written
seve <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4181	4293	
==>tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4181	4293	
==>tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	280	425	
==>ree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $fun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	280	425	
==>ree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $fun <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7981	8083	
==>ll validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7981	8083	
==>ll validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9309	9421	
==>xt;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9309	9421	
==>xt;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5743	5873	
==>ex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex))) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5743	5873	
==>ex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex))) <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	273	377	
==>y qw(copy);
use File::Path qw(mkpath);

{
#   copy_all('src', 'blib6/arch/CORE/pugs');
    copy_all("$_/b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25612	25693	
==>G,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_,_,_))).
flag_m(amat(_,flgs(_,m,_,_, <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1517	1621	
==>tter::num_size 64;
Helpers::macif(%?CONFIG{'has_num128'},'Clutter::num_size 128;');


subset bit  of uint <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4220	4360	
==>apture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4091	4228	
==>apture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	284	441	
==>s %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	284	441	
==>s %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cook <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2883	3021	
==>ig{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### generate a list of methods
### see <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21278	21371	
==>> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression>? <' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15137	15241	
==>xt") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15137	15241	
==>xt") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2919	3069	
==>}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2919	3069	
==>}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2177	2278	
==>::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => % <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2177	2278	
==>::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => % <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6994	7139	
==>n
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7458	7603	
==>n
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4152	4255	
==>pty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4152	4255	
==>pty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self.end == Inf
} <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1162	1269	
==>imiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimite <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1162	1269	
==>imiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8965	9083	
==>rogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8953	9071	
==>rogram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an A <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4450	4566	
==>ot ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4450	4566	
==>ot ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are times, then `size` will <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1052	1167	
==>m S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     pairs   safe   (rw!Ar <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	848	974	
==>$v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	848	974	
==>$v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum + <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	134	233	
==>aintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	134	233	
==>aintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) f <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18155	18256	
==>n all sources to it.
    my Relation::Example $r1 .= new( heading => set(), body => set( mapping() ) ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2891	3019	
==>ie_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2891	3019	
==>ie_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8764	8864	
==>thod is called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8764	8864	
==>thod is called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) re <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8509	8694	
==>abal) {
            s/hs-source-dir/hs-source-dirs/;
        }
        else {
            s/pugs-fps -any, pugs-HsSyck -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION_ <==
2	/Users/nnunley/pugs/util/fixauthors.pl	420	538	
==>realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = shif <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4709	4827	
==>) == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4709	4827	
==>) == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1136	1250	
==>on for details.  (In particular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
R <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1136	1250	
==>on for details.  (In particular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10021	10155	
==>pare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10021	10155	
==>pare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36765	36862	
==>s; if none
could be matched, this method returns undef.  This method could be
considered to implem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36765	36862	
==>s; if none
could be matched, this method returns undef.  This method could be
considered to implem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1831	1961	
==>= ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1831	1961	
==>= ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3648	3761	
==>the key, a mode (either "enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3648	3761	
==>the key, a mode (either "enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	118	249	
==>_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	118	249	
==>_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5957	6072	
==>return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5969	6084	
==>return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4453	4547	
==>edText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4453	4547	
==>edText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	845	986	
==>*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	845	986	
==>*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	862	989	
==>al
       p6_eval_file
       p6_macrop5
       p6_def_macrop5
       p6_container_for_var_CODE
       p6_var_CODE
       p6_var <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19296	19397	
==>IN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a packag <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19296	19397	
==>IN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a packag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18358	18456	
==>was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<referer>: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18358	18456	
==>was obtained.

The "Free On-line Dictionary of Computing" as this to say about the
word I<referer>: <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	119	258	
==>'steak'); }
	when .füttert     { schleiche_vorbei();  }
	when /grrr+/      { ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2013	2112	
==>t of the calling function's package name.  (For example, if 
a function in C<Some::Module> called C< <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2013	2112	
==>t of the calling function's package name.  (For example, if 
a function in C<Some::Module> called C< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5326	5495	
==>? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5158	5320	
==>? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20120	20213	
==>string_as_number(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	804	925	
==>here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	763	878	
==>here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specif <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	595	700	
==>s ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	595	700	
==>s ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10360	10484	
==>);
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10360	10484	
==>);
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	698	814	
==>tersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	698	814	
==>tersects ( Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1070	1170	
==>bject-oriented interfaces both follow the same basic steps, 
albeit with different interfaces:

=over <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1070	1170	
==>bject-oriented interfaces both follow the same basic steps, 
albeit with different interfaces:

=over <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	424	538	
==>ss $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	424	538	
==>ss $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	69	172	
==>r::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and gen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	69	172	
==>r::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and gen <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4643	4778	
==>dex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4643	4778	
==>dex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1745	1865	
==>op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1745	1865	
==>op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14846	14948	
==>$generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# no <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21976	22093	
==>ide("pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param => comb(
			fun => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3262	3392	
==>%args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3402	3532	
==>%args;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7811	7964	
==>type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7811	7964	
==>type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11977	12081	
==>b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12035	12139	
==>b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3527	3773	
==>line;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh. <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3527	3773	
==>line;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1267	1384	
==>ethod end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1267	1384	
==>ethod end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	577	691	
==>RG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	577	691	
==>RG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains ' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6528	6635	
==>gs ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : canno <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6528	6635	
==>gs ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : canno <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14124	14245	
==>llar"
    .param pmc mob
    .local string target
    .local int pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .loc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	896	994	
==>e_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, unive <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	896	994	
==>e_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, unive <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	953	1097	
==>urn {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub va <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	953	1097	
==>urn {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub va <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2165	2281	
==>($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2165	2281	
==>($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	269	364	
==>ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	269	364	
==>ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argum <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1520	1643	
==>n line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\n//;
    my @file = split //, $file;

    open STDOUT, "> $fname.tex" or d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21792	21893	
==>I figured it was a sign that I'd chosen an awful name
for the field.  There will still be a class() me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6688	6817	
==>->{data}) {
      $self->{data}->type;
    }
    else {
      join "", $self->{how}, ($self->{neg} ? '^' : ''),
               $se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6508	6617	
==>- prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6520	6629	
==>- prints the generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_r <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1485	1671	
==>r is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Ca <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1485	1671	
==>r is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7187	7298	
==>messages since we try to
# be compatible with Test::More::skip().
sub skip {
    my $why = shift;
    my $n    = <==
2	/Users/nnunley/pugs/util/version_h.pl	143	238	
==>d::cwd();
my $svn_entries = "$base/.svn/entries";

my $old_revision = -1;
open IN, "< $version_h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25231	25319	
==>components, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25231	25319	
==>components, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9659	9832	
==>nion;

###########################################################################

multi method exclusion (Relation::Example $other!) returns Relation::Example {

    die "T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34345	34441	
==>xt::Translator object.
The Set Names property of the new object is set from the named parameter
@ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34345	34441	
==>xt::Translator object.
The Set Names property of the new object is set from the named parameter
@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7737	7841	
==>gs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7475	7576	
==>gs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2352	2453	
==>hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <noncapturing_group>
  | < <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5944	6039	
==>y/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights re <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5944	6039	
==>y/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights re <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	592	715	
==>DERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6736	6850	
==>return "pil2js";
  /PIL-RUN/i and return "pilrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4898	5095	
==>sif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4898	5095	
==>sif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1272	1401	
==>($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1272	1401	
==>($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	526	643	
==>hod any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	526	643	
==>hod any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1341	1452	
==>mc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1341	1452	
==>mc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$cl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	581	686	
==>losed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	581	686	
==>losed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_is_open } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	475	633	
==>);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	475	633	
==>);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] + <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14546	14663	
==>else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14546	14663	
==>else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enq <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	21	133	
==>v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootst <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	21	133	
==>v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootst <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10941	11087	
==>::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $b ),
			$a,
		);
	},
	# (a x b) -> b
	snd => do {
		my $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11133	11253	
==>::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28335	28440	
==>ize () returns Int>

This method returns a count of this Relation::Example's member tuples as an Int.

=it <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6645	6750	
==>i => $kernel_local };

step
  descr  => "Checking for Pugs binary",
  help   => "Compile Pugs if you haven <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	915	1051	
==>isk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interprete <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	915	1051	
==>isk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interprete <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10848	10974	
==>if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10848	10974	
==>if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3697	3845	
==>{
            store       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last_er <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8097	8233	
==>{
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_er <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3625	3729	
==>ssible tools include get_sv, eval_pv, and %^H.  The first thing
needed is a scope.t test file.

=item Mem <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25520	25625	
==>acter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEscape {  # see <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	783	887	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    grammar <p6ws> <ident> <p6ws>? \;
        { return { g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8167	8309	
==>$cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8167	8309	
==>$cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2135	2274	
==>=~ s/$Metaext$/$Ext/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $Repoi <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1807	1910	
==>tpl, $config_template or die "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$tpl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	812	940	
==>type = [$type]; # and "Foo" into ["Foo"]
		while (ref $type and ref $type eq 'ARRAY' and @$type == 1){
			$type = $type->[1];
		} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	628	721	
==>nformation.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 encip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	628	721	
==>nformation.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 encip <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2743	2839	
==>et {
    set($self.members, $other.members);
}
method intersection($self: Set $other) returns Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2743	2839	
==>et {
    set($self.members, $other.members);
}
method intersection($self: Set $other) returns Set <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4124	4234	
==>to($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4182	4292	
==>to($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No ex <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2128	2243	
==>IL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expressi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2128	2243	
==>IL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expressi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4364	4483	
==>util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConfig->get_config;
}

sub pugs_binary {
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3813	3919	
==>e> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3813	3919	
==>e> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($cur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11975	12089	
==>art, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11975	12089	
==>art, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34012	34107	
==>>

=head2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14360	14494	
==>}";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14354	14488	
==>}";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	764	885	
==>ultidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional ar <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	764	885	
==>ultidex     - The "quantifier index".  This is an array that is an
                     index into the multidimensional ar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3535	3652	
==>e_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_type($node);
	
	$self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13154	13310	
==>";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13154	13310	
==>";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8451	8541	
==>rammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2276	2366	
==>rammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @s <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1274	1379	
==>ime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Witho <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1274	1379	
==>ime::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CONSTRUCTORS

- `new()`

Witho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8602	8715	
==>d2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is encountered.

=item I <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8602	8715	
==>d2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is encountered.

=item I <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10661	10826	
==>pped}++;
            }             
            
            # This was our old TODO handler
            #print("        $test{todo}/$test{max} TODO test" . ($test{to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19215	19315	
==>world can
be modelled.

A relation is essentially a set of mappings, or a set of logical tuples; a
pi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18681	18792	
==>ame external resources.>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS prod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18681	18792	
==>ame external resources.>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS prod <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8295	8412	
==>y }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8295	8412	
==>y }.join(",");

On the other hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1231	1355	
==>it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $ti <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1231	1355	
==>it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $ti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7017	7185	
==>span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.cur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7017	7185	
==>span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5224	5413	
==>] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5212	5401	
==>] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                return c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	49	157	
==>gs;

use JIB::Config;
use JIB::Utils;

use Params::Check           qw[check];
use Log::Message::Simple    qw[ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	376	473	
==>>

This is a simple iterator wrapper for arrays and filehandles.

=head2 new()

Create an iterator <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10934	11029	
==>C] = "\n"}, !. %# XXX - not really
p5_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, ! <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	148	280	
==>s defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (In <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	148	280	
==>s defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (In <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21250	21351	
==>onfailed($test->{max},$test->{skipped},@{$test->{failed}});
            $percent = 100*(scalar @{$test <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	144	246	
==>hod tree ($self:) returns Tree {
    # create the tree lazily ...
    $self.:create_tree() unless $:tre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8634	8808	
==>= $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8634	8808	
==>= $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1814	1927	
==>gs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1814	1927	
==>gs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            r <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	392	521	
==>tr $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2 <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	392	521	
==>tr $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9458	9546	
==>me!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9458	9546	
==>me!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module', <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	508	630	
==>) returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Ob <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	508	630	
==>) returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Ob <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10265	10377	
==>) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method curre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10265	10377	
==>) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method curre <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1129	1231	
==>d.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1419	1522	
==>l::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1419	1522	
==>l::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3761	3865	
==>ation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3761	3865	
==>ation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you ca <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6948	7145	
==>apture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.mu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6948	7145	
==>apture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21950	22067	
==>sh @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18371	18488	
==>sh @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16910	17020	
==>>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16910	17020	
==>>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	601	770	
==>rsion itself.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20326	20480	
==>} subtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program g <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	677	802	
==>matched against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you e <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	677	802	
==>matched against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3136	3260	
==>f as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3136	3260	
==>f as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8692	8807	
==>tems";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set operations
  my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8692	8807	
==>tems";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set operations
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3913	4055	
==>( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5137	5279	
==>( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2436	2547	
==>am into a string of
(hopefully) perlish text.

=head1 SYNOPSIS

	use Blondie::Emitter::Pretty;

	print Blondie:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2448	2569	
==>Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2588	2709	
==>Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2972	3142	
==>urselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1462	1566	
==>2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $1 {/g;
    $_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1139	1233	
==>rite B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additiona <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1139	1233	
==>rite B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additiona <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16424	16536	
==>ns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19901	20013	
==>ns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	151	309	
==>2 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative In <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	151	309	
==>2 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative In <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5816	5965	
==>ult,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $siz <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4316	4465	
==>ult,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $off + $siz <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12988	13079	
==>It also describes the same-number versions of Locale::KeyedText::Message
("Message") and Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12988	13079	
==>It also describes the same-number versions of Locale::KeyedText::Message
("Message") and Loc <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	913	1015	
==>file"} ||= "tests.yml";
$Config{"recurse"} = 1 if not defined $Config{"recurse"};
# Needed for smokeser <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	164	275	
==>ersion 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').sa <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	164	275	
==>ersion 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').sa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12254	12372	
==>l add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12312	12430	
==>l add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4068	4165	
==>PYRIGHT

Copyright 2006 by Audrey Tang and others.

This program is free software; you can redistr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3150	3492	
==>ser_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3150	3492	
==>ser_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interac <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2321	2450	
==>density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2321	2450	
==>density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11449	11541	
==>sion") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Acce <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11449	11541	
==>sion") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Acce <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1291	1415	
==>Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fiel <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1291	1415	
==>Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fiel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4957	5064	
==>t_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4957	5064	
==>t_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of S <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2596	2714	
==>X $smoke_upload_script $html_location") == 0
        or die "Couln't run smoke upload script: $!";
  }
} else {
print < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2626	2734	
==>riable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2626	2734	
==>riable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4160	4410	
==>args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4160	4410	
==>args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35025	35130	
==>r object, you must create a new
object that is a clone of the first but for the changes.

=back

A Transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35025	35130	
==>r object, you must create a new
object that is a clone of the first but for the changes.

=back

A Transla <==
2	/Users/nnunley/pugs/util/version_h.pl	2124	2220	
==>OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SVN_REVISION $revision\n";
  close OU <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5418	5577	
==>);
CheckRev($rev);
CheckMid($mid);
CheckWc($wc);
PrintGolfScore($head, $tail, $rev, $mid, $wc);
print "Hooray, you passed.\n";

END { defined($intmp) and unlink <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6965	7066	
==>ole->does('Role'), '... Role now does Role');

## create some roles
my $rFoo = $Role->new(
    '$:name <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2436	2576	
==>airs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2436	2576	
==>airs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&co <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6644	6844	
==>++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $list <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5148	5348	
==>++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $list <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3022	3167	
==>le( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3022	3167	
==>le( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3323	3456	
==>nick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3323	3456	
==>nick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5650	5742	
==>normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5650	5742	
==>normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22024	22116	
==>me to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22024	22116	
==>me to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8923	9062	
==>le};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8911	9050	
==>le};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26863	26974	
==>{  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEsc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3248	3337	
==>E__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3248	3337	
==>E__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14362	14462	
==>ributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14362	14462	
==>ributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA se <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5670	5768	
==>les> (as C<runtests()>) but does it
quietly (no report).  $total is a hash ref summary of all the t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2006	2271	
==>nterface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2006	2271	
==>nterface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the Rosetta::Interface: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2199	2332	
==>s_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2199	2332	
==>s_message($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $pro <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1363	1475	
==>$pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional pr <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1363	1475	
==>$pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases the use of functional pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3958	4075	
==>Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3818	3931	
==>Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2545	2669	
==>grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2738	2862	
==>grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16312	16419	
==>that empowers single binaries to support N
locales or user types simultaneously, and that allows any end use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16312	16419	
==>that empowers single binaries to support N
locales or user types simultaneously, and that allows any end use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22340	22480	
==>->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18761	18901	
==>->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11840	11965	
==>eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4483	4608	
==>eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10118	10215	
==>&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0]) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10853	10950	
==>&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0]) <==
2	/Users/nnunley/pugs/util/func_refact.pl	125	233	
==>=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n filename containing nodes data p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3132	3255	
==>::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmenta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3022	3140	
==>::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmenta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7110	7217	
==>TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7110	7217	
==>TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left', <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1186	1287	
==>m::int ::= &Num::truncate;

 # XXX - referred to, but not specced, in S29.
 multi int(Num $x = CALLER: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21149	21244	
==>m would use
associated keys internally.

It is strongly suggested (but not required) that each P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21149	21244	
==>m would use
associated keys internally.

It is strongly suggested (but not required) that each P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13740	13858	
==>to err_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  err_bracket:
    parse_error(mob, <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	34	165	
==>ict;
use warnings;
our $VERSION = '0.01';

use File::Copy;

# change these two lines if it turns out we need the real YAML.pm
use Pu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	817	933	
==>trap->total_results;

  # Altering the behavior of the strap  UNIMPLEMENTED
  my $verbose_output = $strap->dump_verbo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	239	334	
==>fied_since if_unmodified_since last_modified
    content_type content_encoding content_length co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	239	334	
==>fied_since if_unmodified_since last_modified
    content_type content_encoding content_length co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	387	497	
==>h,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::Var::hash,
    );
    $class->SUPER::recompile;
} <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	830	925	
==>( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	830	925	
==>( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18485	18594	
==>sspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s refere <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18485	18594	
==>sspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s refere <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1668	1760	
==>ompiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1668	1760	
==>ompiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

cla <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10456	10549	
==>ering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $cla <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10456	10549	
==>ering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $cla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13961	14075	
==>Numbers' in the first of the four
        # languages that has a matching template available.
        print $transl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13961	14075	
==>Numbers' in the first of the four
        # languages that has a matching template available.
        print $transl <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1411	1506	
==>f I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1411	1506	
==>f I<ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3603	3725	
==>EASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3603	3725	
==>EASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ L <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	245	361	
==>nfix:<+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42) <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	161	272	
==>orted to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported doesn't s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5700	5828	
==>d start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5700	5828	
==>d start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3650	3743	
==>ure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3650	3743	
==>ure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20169	20260	
==>contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20169	20260	
==>contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basic() but <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7956	8074	
==>Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8014	8132	
==>Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5766	5854	
==>everse(Rx,R)}, ")".
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_re <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4656	4789	
==>le';   -->  my $f = open 'file';
    open our $f, 'file';  -->  our $f = open 'file';

    sub { $self->blah }         --> sub { $.bla <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	27	148	
==>e{true}'s are not the right thing.  What is?

The definition of these in terms of smartmatch seem like the kind of
thing w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6723	6846	
==>ow what you want (str, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule()



### inte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6498	6612	
==>ow what you want (str, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule()

### inte <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15616	15732	
==>on.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19093	19209	
==>on.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7796	7906	
==>emove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7796	7906	
==>emove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normal <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14781	14889	
==>hat has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14781	14889	
==>hat has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semantics.

- `n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	552	697	
==>,

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	530	669	
==>,
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3899	4006	
==>MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3899	4006	
==>MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	69	188	
==>imental implementation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	67	180	
==>imental implementation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9794	9899	
==>gs is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub dec <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9794	9899	
==>gs is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub dec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1506	1615	
==>anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\t' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4380	4488	
==>anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_handler('\R <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1489	1611	
==>elf ) =  @_;

}

sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->targ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	158	254	
==>-expr compiler to generate p5 code, it's really 
pretty bad actually, and the s-expr got quite me <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3436	3580	
==>ailed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $modu <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1970	2077	
==>stgraph.pl     - Generates an HTML summary of a YAML test run
     util/run-smome.pl     - automate the smok <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	164	273	
==>ay',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    targe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4302	4398	
==>lue }
sub as_pil_code { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = $_[0]{'p6'}; $r ? $r->valu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	139	255	
==>RI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	139	255	
==>RI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.met <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1219	1318	
==>the captures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1219	1318	
==>the captures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	656	761	
==>ew(1) : bit->new(0) }
sub to_str { 
    # eventually must deal with Inf and NaN
    return str->new((shift <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	632	729	
==>XXX missing repodirs/files
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir compile_dir ]) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5278	5385	
==>rs>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5278	5385	
==>rs>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17384	17485	
==>y $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    shift(@cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6291	6410	
==>f.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6291	6410	
==>f.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $t <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11761	11875	
==>}

package DynamicScopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22425	22528	
==>e, used to store the tree as a new scope is
entered and then exited.  The general concept is:

  if (int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	948	1063	
==>},
    } )
        if $_[0] =~ /^ ([_\w\d]+ \- [_\w\d\-\.]+) ( (?: \(|\;|\s|$ ) .*)$/sx;
    return $class->no_match <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	875	999	
==>proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        alias <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	875	999	
==>proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        alias <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10382	10504	
==>e ];
      for (@{ $br->{data}[-1] }) {
        last unless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1190	1292	
==>except_top($os) if $os =~ /\n/;
    my $s = overload::StrVal($o);
    $s .= "[".$$o->{'RULE'}."]" if ex <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	743	874	
==>led';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg);
    }

}

=head1 AUTHOR

Michae <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17858	17984	
==>to || $proto;

    unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    for <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	228	347	
==>essor';

=head2 $set = JIB::Repository::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9043	9158	
==>bject(exact => "\0", "\\0[0]");
  });


  ### ':'

  $self->add_flag('i' =>  sub { 0x01 });

  $self->add_handler(': <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2858	2986	
==>n { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3051	3179	
==>n { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1602	1697	
==>hem ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and retur <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1602	1697	
==>hem ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and retur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15278	15394	
==>{ \%{$_[0]} },
      perl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my $re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2025	2136	
==>( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8299	8425	
==>c_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,nparens,exec_callback_sub);
    } else if(api == 14) {
      SV* <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27028	27145	
==>ckage Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Pars <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13815	13940	
==>e Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13815	13940	
==>e Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5679	5780	
==>ail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5679	5780	
==>ail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_l <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	68	230	
==>tr  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	68	230	
==>tr  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4697	4810	
==>= YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4556	4669	
==>= YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some values.
    while ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	665	781	
==>foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{values}{$key} unle <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14355	14467	
==>},
     );
sub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8344	8559	
==>eset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8808	9023	
==>eset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	848	944	
==>()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	848	944	
==>()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34061	34262	
==>lock->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e->create('$dispat <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9228	9433	
==>at = $pos + $m0.from;
              {$a}.push($m0) if $at > $prev; $prev = $at;
              $pos += {$m}.from + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        retu <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	421	545	
==>rns Date::Gregorian is export {
        #$tz = tz($tz) if $tz.defined and !$tz.isa("Time::Zone");
    return
        Date::Gr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3459	3555	
==>ne(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3459	3555	
==>ne(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12614	12710	
==>essful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12672	12768	
==>essful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depen <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9484	9614	
==>fix:<~~> .
    #'Rul.new(:f(sub($_s_){$_s_ ~~ '~"$hook$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cann <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5176	5416	
==>.

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ),

The above is the implementation of the ide <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2705	2847	
==>erl    => { required => 1, store => \$perl },
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;
    
    my $perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15470	15574	
==>s different
users, such as their preferred language of communication, or their
privileges regarding acces <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15470	15574	
==>s different
users, such as their preferred language of communication, or their
privileges regarding acces <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8746	8858	
==>tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8746	8858	
==>tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine th <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6059	6180	
==>elf, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5567	5688	
==>elf, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
} <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	943	1079	
==>orted: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unless $doc;
            $doc->{$key <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	575	709	
==>and
sub can_run {
    my ($self, $cmd) = @_;
    # XXX: what to do in native win32?
    my $mx = $^O eq 'cygwin' ?
        sub { -x $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	697	888	
==>are_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	697	888	
==>are_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29958	30056	
==>ature of 'atom' is to match a
character, see if there's a handler installed, and call it if there i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6455	6549	
==>, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class repres <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6455	6549	
==>, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class repres <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1338	1450	
==>nd_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1338	1450	
==>nd_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<de <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9583	9698	
==>) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9583	9698	
==>) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20175	20298	
==>f;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16596	16719	
==>f;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29740	29859	
==>_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29740	29859	
==>_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21711	21812	
==>t :words {  # see 12.8
      <'break'><no_LineTerminator_here><Identifier>? <';'>
}
rule ReturnStateme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3615	3725	
==>return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3615	3725	
==>return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5709	5837	
==>match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5709	5837	
==>match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	711	858	
==>) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_ <==
2	/Users/nnunley/pugs/util/testgraph.pl	1851	1980	
==>shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Spec->catdir("t_index",$link <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	148	251	
==>rk soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	148	251	
==>rk soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\& <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14873	14995	
==>join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14873	14995	
==>join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4157	4268	
==>eturns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( map <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7634	7745	
==>eturns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( map <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11147	11240	
==>eturns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11147	11240	
==>eturns Bool>

=item B<is_leaf returns Bool>

=item B<child_count returns Int>

=item B<add_chi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3210	3342	
==>r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{la <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3210	3342	
==>r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{la <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9230	9404	
==>" . 
                    _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3047	3146	
==>ll -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2938	3036	
==>ll -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc? <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	368	484	
==>mber,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1226	1342	
==>mber,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	202	335	
==>sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub isa {
#     my $self = shift;
#     my $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	63	171	
==>pl' }

use JIB::Config;
use JIB::Source;

use Path::Class ();
use Cwd;
use vars qw[@PKGS %PKGS];

for ( qx[ls <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15809	15911	
==>Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15809	15911	
==>Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9036	9152	
==>),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for % <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9036	9152	
==>),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5519	5698	
==>ly => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::anyof_range;
  push @ISA, qw( Regexp::Par <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	362	478	
==>ckage} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl/$struct->{package}/$Fil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4080	4287	
==>ray of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4080	4287	
==>ray of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3032	3144	
==>expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3032	3144	
==>expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no t <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	188	330	
==>{
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	188	330	
==>{
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3903	4081	
==>rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3903	4081	
==>rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3339	3437	
==>, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filena <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3339	3437	
==>, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filena <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8634	8769	
==>] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8634	8769	
==>] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ /^{/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3123	3222	
==>ti sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3123	3222	
==>ti sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5991	6088	
==>IMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> te <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5991	6088	
==>IMITATIONS & CAVEATS

Basic parsing functionality is fairly solid right now. The F<t/complex.t> te <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10091	10212	
==>ions may end up being calculated using iterations, 
which can be slow sometimes.
Set functions might also fail and emit wa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10091	10212	
==>ions may end up being calculated using iterations, 
which can be slow sometimes.
Set functions might also fail and emit wa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2213	2329	
==>',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2213	2329	
==>',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11464	11565	
==>n_object } '... instance calling metaclass singleton method fails';

is($iBar->foo, 'Foo->foo', '... $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15370	15456	
==>1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(P <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6472	6588	
==>_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

So <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6472	6588	
==>_stack) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

So <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	495	591	
==>the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	495	591	
==>the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $cla <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1751	1857	
==>);
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1751	1857	
==>);
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is exp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2067	2286	
==>d,
                    '$.description' =>  $description,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic | <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7684	7793	
==>... got the right method list (unresolved)');

# resolve the class and pull in all the roles
$FooBar->resolve( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37230	37327	
==>kes the name of a Perl package in its positional parameter
$module_name (a string) and checks whet <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37230	37327	
==>kes the name of a Perl package in its positional parameter
$module_name (a string) and checks whet <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	309	427	
==>g

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	309	427	
==>g

sub splitdir (Str $directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4072	4232	
==>che-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.spli <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4072	4232	
==>che-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.spli <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5158	5273	
==>!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8635	8750	
==>!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15126	15227	
==>d of
an arbitrary type. The function signatures will likely look something
like this:

  multi sub is_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15184	15285	
==>d of
an arbitrary type. The function signatures will likely look something
like this:

  multi sub is_ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1102	1246	
==>r # autovivification! - returns **CONTAINER**
                my $self = shift;
                my $idx = shift;
                $self->get_value <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2775	2906	
==>unctional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2775	2906	
==>unctional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19331	19437	
==>rce files used by the
program, so that if you wanted to upgrade or localize what text the user
sees, you on <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19331	19437	
==>rce files used by the
program, so that if you wanted to upgrade or localize what text the user
sees, you on <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1266	1379	
==>mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API} <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1266	1379	
==>mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless -d $self->{API} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3577	3675	
==>PI, you must first create an object of the appropriate 
class, passing the key, a mode (either "enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3577	3675	
==>PI, you must first create an object of the appropriate 
class, passing the key, a mode (either "enc <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	399	504	
==>e v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	399	504	
==>e v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10271	10375	
==>il, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10271	10375	
==>il, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10672	10950	
==>art;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10672	10950	
==>art;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11201	11296	
==>version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11201	11296	
==>version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1272	1388	
==>ll nodes as well as a few other objects are implemented as one of three ADTs.

=over 4

=item Unit

A unit is an enca <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23806	23913	
==>ain Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28358	28465	
==>ain Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) of Any :$bo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3855	3966	
==>ce(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3855	3966	
==>ce(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1386	1493	
==>rn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.den <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1386	1493	
==>rn ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.den <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2894	3000	
==>[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2882	2988	
==>[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5887	6033	
==>e::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5887	6033	
==>e::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7478	7577	
==>header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authentica <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7478	7577	
==>header("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authentica <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	425	539	
==>ault => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	419	533	
==>ault => [@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37348	37472	
==>);
  }

We've added a handler, and added an argument to the constructor.  The
argument is a true or false value determining w <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19444	19545	
==>er order function that takes a function and applies it to a string
# thiss tests that the inferrence o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16789	16885	
==>a D and compile that into its own executable, in practice one would
normally just write some comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16789	16885	
==>a D and compile that into its own executable, in practice one would
normally just write some comp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3285	3418	
==>-------------------------------------------------------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Faile <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2314	2414	
==>lass . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter::Pretty - An emitter <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6015	6145	
==>now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're prepar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6073	6203	
==>now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're prepar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3403	3500	
==>($p2->get_x, 100, '... got the right x for p2');
is($p2->get_y, 200, '... got the right y for p2') <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1463	1556	
==>tem("../../Setup$Config{_exe}", 'configure', '--user', '--prefix', "$pwd/dist");
        syste <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6112	6223	
==>:compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be document <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5902	6010	
==>:compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be document <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5797	6042	
==>($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7559	7804	
==>($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e g <==
2	/Users/nnunley/pugs/util/run-smoke.pl	793	915	
==>);
my $smoke_upload_script = File::Spec->canonpath('./util/smokeserv/smokeserv-client.pl'); 

chdir($pugs_sandbox) or die " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8123	8242	
==>match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     el <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8111	8230	
==>match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     el <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9382	9493	
==>do(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9440	9551	
==>do(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4288	4387	
==>ocumentation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4288	4387	
==>ocumentation for 
details.  The C<mode> value indicates the operation to be performed; the values 
C <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	756	874	
==>ULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $str <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	756	874	
==>ULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4356	4457	
==>n to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<encipheri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4356	4457	
==>n to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<encipheri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1075	1203	
==><ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather cont <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1075	1203	
==><ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14997	15093	
==>password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14997	15093	
==>password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2261	2363	
==>rsect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2261	2363	
==>rsect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16279	16402	
==>lare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16279	16402	
==>lare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4072	4168	
==>alues ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4072	4168	
==>alues ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2857	2979	
==>rt.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.soc <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2857	2979	
==>rt.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.soc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	831	951	
==>n.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	831	951	
==>n.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3946	4038	
==>osetta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta versi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3946	4038	
==>osetta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta versi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	277	385	
==>ze;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	277	385	
==>ze;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10225	10326	
==>her($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10225	10326	
==>her($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8263	8394	
==>$v if not FAILED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8737	8832	
==>Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8737	8832	
==>Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	852	999	
==>r('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$config{'bin_dir'}          = [ $Config{bin}            => S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13422	13559	
==>->{attribute}};
        return $n->{op1}{op} . ' ' . _emit( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10819	10943	
==>e_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11098	11222	
==>e_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3923	4028	
==>{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3923	4028	
==>{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10742	10834	
==>item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_length <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10742	10834	
==>item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_length <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3184	3306	
==>ver>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to kno <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3184	3306	
==>ver>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to kno <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5187	5293	
==>in), !, p6_range_bounds_RHS(Min,Max), !.
p6_range_bounds( 0 ,Max) --> "...", digits_int(Max).
p6_range_boun <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11892	11994	
==>rings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11892	11994	
==>rings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1065	1200	
==>$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1065	1200	
==>$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariab <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2025	2119	
==>------------------------------------------
## adding children 

method add_child ($self: Tree $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2025	2119	
==>------------------------------------------
## adding children 

method add_child ($self: Tree $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11669	11764	
==>rue if this recurrence intersects (has any element in common) with the given recurrence.

- `equ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11669	11764	
==>rue if this recurrence intersects (has any element in common) with the given recurrence.

- `equ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16060	16285	
==>t', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16339	16564	
==>t', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleo <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10625	10837	
==>grep {
            print "Implement &infix:<$_> in perl instead of the mini language? ";
            ReadMode(3);
            my $y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3035	3207	
==>losure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3219	3391	
==>losure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	637	740	
==>eturn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	637	740	
==>eturn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2075	2183	
==>rt, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2075	2183	
==>rt, end =>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless def <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12501	12601	
==>y, but gains one element for each Node in the Node
hierarchies created from a defined @root_nodes.

S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12501	12601	
==>y, but gains one element for each Node in the Node
hierarchies created from a defined @root_nodes.

S <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	324	448	
==>equire Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	225	349	
==>equire Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6889	6998	
==>el::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6889	6998	
==>el::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2022	2117	
==>C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2022	2117	
==>C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C< <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	212	344	
==>) | (\d{3}) | [wW](\d{2}) )
        # optional time delimeter
        T? \s*
        # time - optional, defaults to 0:00
        (\d\ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8013	8116	
==>ackage Regexp::Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } @{$o->da <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12620	12720	
==>econd, or holidays per month.

It is also used when the objects represent "chunks" of data, such as d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12620	12720	
==>econd, or holidays per month.

It is also used when the objects represent "chunks" of data, such as d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7208	7302	
==>------------------------------------------------------------------
## traversal

method travers <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7208	7302	
==>------------------------------------------------------------------
## traversal

method travers <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	100	215	
==>ntains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	100	215	
==>ntains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2177	2291	
==>PUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2177	2291	
==>PUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROM <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	861	953	
==>left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::Ty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	861	953	
==>left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::Ty <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8980	9087	
==>my $stub = $params->{env}->get($params->{name});
    my $digest = $stub->digest;

    Prim->new(
        equ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24258	24380	
==>s or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20679	20801	
==>s or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S- <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	369	495	
==>SITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	369	495	
==>SITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	113	246	
==>or TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = object but false"

=cut

submethod B <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	113	246	
==>or TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = object but false"

=cut

submethod B <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11932	12033	
==>tions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11990	12091	
==>tions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11030	11184	
==>tine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11030	11184	
==>tine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg' <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1219	1330	
==>atfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpat <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1219	1330	
==>atfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2387	2511	
==>"\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2387	2511	
==>"\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1861	2063	
==>1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{state};

            }

            else

            {

                $state- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1800	1995	
==>1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11480	11599	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11759	11878	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2669	2770	
==>_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2669	2770	
==>_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $univ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3564	3697	
==>( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3564	3697	
==>( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1121	1218	
==>ers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

ou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1121	1218	
==>ers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

ou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1223	1321	
==>$pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(al <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1223	1321	
==>$pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11600	11713	
==>s ? 'sany' :
      'reg_any';
    return $S->object(reg_any => $family, '.');
  });

  # backslash
  $self->add_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11816	11926	
==>a
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11810	11920	
==>a
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32451	32546	
==>in text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object store <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32451	32546	
==>in text files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object store <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	549	650	
==>hod parent ($self:) returns Tree { 
    return $!parent;
}

## --------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	549	650	
==>hod parent ($self:) returns Tree { 
    return $!parent;
}

## --------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9763	9861	
==>me that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input validation <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9763	9861	
==>me that it has succeeded, even if the return
value is undefined.

Rosetta::Model's input validation <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13137	13243	
==>But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13137	13243	
==>But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7129	7266	
==>$span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start + <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7129	7266	
==>$span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start + <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3680	3785	
==>ecode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3680	3785	
==>ecode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4558	4688	
==>_attrs($self)->{'%:methods'}->{$label} = $method;
        },               
    },
);

# The 'EigenClass' class
$EigenClass = ::cre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16067	16167	
==>are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It alwa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16067	16167	
==>are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It alwa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7800	7981	
==>e( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7812	7993	
==>e( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21075	21174	
==>compiled into .pmc files and shipped with your
distribtution precompiled. This means that people who <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21075	21174	
==>compiled into .pmc files and shipped with your
distribtution precompiled. This means that people who <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9309	9440	
==>f.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9309	9440	
==>f.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8659	8784	
==>`cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this version is more
akin to File::Spec::Func <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8659	8784	
==>`cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this version is more
akin to File::Spec::Func <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1620	1714	
==>{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1620	1714	
==>{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14286	14412	
==>blems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless defined $exe;

	# Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3408	3516	
==>med C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LIC <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3408	3516	
==>med C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LIC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3243	3473	
==>("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3243	3473	
==>("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5628	5736	
==>ive type";
    $self->{env}->{$name} = reference->new($value);      
}

sub set {
    my ($self, $name, $valu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12665	12774	
==>ecurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12665	12774	
==>ecurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	716	823	
==>on" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	716	823	
==>on" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't ne <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	145	253	
==>in];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package';

my %indexe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1258	1361	
==>rint of constant size because the
algorithm is based on statistics. This was my main motivation to
imple <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1258	1361	
==>rint of constant size because the
algorithm is based on statistics. This was my main motivation to
imple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9363	9504	
==>rnation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9556	9697	
==>rnation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         rule <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2835	2962	
==>ver:

        $^X $smoke_upload_script $html_location

    Or add
        smoke_upload: 1 
    to your config.yml file if you wa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2907	3053	
==>tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        whil <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2907	3053	
==>tests for this error message
        # fail "can't instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        whil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12515	12635	
==>h_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12515	12635	
==>h_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2748	2863	
==>{
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" )
  {
    $token{syncat} = PGE_OPTAB <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2597	2705	
==>>isa($param_type))
                || confess "got the wrong type for " . $param->to_str->to_native . " got($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7914	8011	
==>ent<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) fo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7914	8011	
==>ent<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) fo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2476	2637	
==>e sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2476	2637	
==>e sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2509	2754	
==>rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2756	3001	
==>rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	360	552	
==>gnized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.c <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	360	552	
==>gnized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10880	11018	
==>else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10880	11018	
==>else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	347	597	
==>y = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $^n ne $EMPTY_STR };

subtype Relation::LaxAtt <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3571	3677	
==>fy if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEB <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3571	3677	
==>fy if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEB <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32480	32575	
==>ias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37030	37125	
==>ias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is th <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10155	10253	
==>il?' => type::operator::arrow->new(
		type::operator::nary->new(list => type::variable::free->new), <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	410	516	
==>_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub cas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	410	516	
==>_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub cas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10803	10948	
==>ined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $args{progs}) {
	die "test.pl:runperl(): 'progs' must be an ARRAYREF <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	13	121	
==>ON generic code emitter
by fglock

This is a non-runnable module - use 'pil2_json_emit_<language>.p6' instead <==
2	/Users/nnunley/pugs/util/config_h.pl	786	893	
==>efine PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_DATE
#endif
#define PUGS_DATE "$2"

.
    last;
}

# F <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	326	427	
==>{ %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	326	427	
==>{ %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1472	1591	
==>header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1472	1591	
==>header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7494	7620	
==>r1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7687	7813	
==>r1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closu <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	337	452	
==>&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->compile($prog);
my $t2 = time <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	547	638	
==>untime::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    }) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3595	3702	
==>me =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\n";
}
sub nod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1114	1221	
==>dule::Install extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::Install is actually loaded <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1708	1812	
==>an alternate engine is invoked.

Currently, only the I<PCRE> flavor is supported.

=head1 CAVEATS

This i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15746	15844	
==>n of a regex.  Will
be able to produce HTML output that color-codes the elements of the regex
accor <==
2	/Users/nnunley/pugs/util/testgraph.pl	1221	1320	
==>s tool
   util/catalog_tests.pl - produce cross-linkable tests
   util/run-smome.pl     - automate t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1750	1854	
==>$_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1750	1854	
==>$_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9709	9828	
==>MS protect with doublequotes because otherwise
	# DCL will lowercase -- unless already doublequoted.
       $_ = q(").$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	531	637	
==>my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32257	32354	
==>nd so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32257	32354	
==>nd so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	413	544	
==>Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9831	9962	
==>Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    retur <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3429	3566	
==>)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     oct <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3429	3566	
==>)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     oct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6395	6525	
==>e: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6383	6513	
==>e: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7873	7974	
==>6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very pr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7873	7974	
==>6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very pr <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6917	7076	
==>h(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6917	7076	
==>h(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8261	8397	
==>g_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_bo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8261	8397	
==>g_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_bo <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2335	2505	
==>infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature from PIL2JS Array.pm and S29draft.pod's Lis <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17126	17220	
==>e input string after converting each character to it's uppercase
form, if lowercase. This is no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28840	29054	
==>'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29119	29333	
==>'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4649	4759	
==>malize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4649	4759	
==>malize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16087	16214	
==>> -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTIC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16087	16214	
==>> -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTIC <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4276	4374	
==>pp = $app->fmap(sub { $self->reduce($_[0]) });
		my ($thunk_val, @params) = $rapp->values;

		my $t <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	883	980	
==>---------------



our $re_sigil = '[\$\@\%]';
our $re_symbol = '\w[\w\d]*';
our $re_condition = ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	87	332	
==>export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant valu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	87	332	
==>export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant valu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	931	1037	
==>C::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	931	1037	
==>C::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBo <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	335	441	
==>um $x, int $symmetrical? = 1) {
	return int($x + 0.5)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.5) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	287	385	
==>L<Pod::Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	287	385	
==>L<Pod::Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2194	2319	
==>le (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2194	2319	
==>le (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $us <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1361	1493	
==>urrent_node} = '';
		} else {
			return $self->{names}{$node};
		}
	}

	our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8	110	
==>in/perl

use strict;
use warnings;

use Test::More tests => 13;

## ----------------------------------- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7677	7772	
==>},
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9516	9643	
==>de" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) returns Array {. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9516	9643	
==>de" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) returns Array {. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9455	9587	
==>probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2508	2640	
==>probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1378	1487	
==>one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1378	1487	
==>one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	690	791	
==>four are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	690	791	
==>four are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryp <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4759	4867	
==>1 unless length $lines;

    die "Pugs ".(($?&255)?"killed by signal $?"
         :"exited with error code ". <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3280	3380	
==>ed mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3280	3380	
==>ed mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	405	621	
==>conf    = $self->config;
    my %hash    = @_;
    
    my $meta; my $inst;
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_MET <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4421	4509	
==>(W, Z) --> "{", !, p5_range_bounds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14206	14368	
==>";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14200	14362	
==>";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1437	1550	
==>ry_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1437	1550	
==>ry_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30457	30555	
==>tive for the rest
of the set. There is a separate template module for each distinct "user
language" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30457	30555	
==>tive for the rest
of the set. There is a separate template module for each distinct "user
language" <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1993	2102	
==>:Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> lib <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1993	2102	
==>:Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> lib <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6518	6626	
==>cd.pl to refetch the kernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27812	27930	
==>ethod MRO (opaque $self:) returns list {
    unless (@:MRO) {
        @:MRO = $self._merge();
    }
    @:MRO;
}

(meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5519	5627	
==>rn $S->object(space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler('\W' => sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6679	6819	
==>eturn sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $d <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6679	6819	
==>eturn sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1005	1098	
==>round\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1005	1098	
==>round\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node: <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2093	2210	
==>btract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::Tr <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2093	2210	
==>btract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::Tr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11184	11285	
==>ue if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11184	11285	
==>ue if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C< <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2287	2387	
==>he
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2287	2387	
==>he
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6013	6173	
==>"xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6013	6173	
==>"xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	39	138	
==>me::Zone;
use Date::Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	507	599	
==>ator {
	my $self = shift;
	#$self->annotator_class->require || die $UNIVERSAL::require::ERROR <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35076	35223	
==>:FALSE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2212	2339	
==>e->Object::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Accessor::n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15567	15704	
==>hift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21738	21875	
==>hift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14041	14177	
==>te available.
        print $translator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14041	14177	
==>te available.
        print $translator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5016	5135	
==>p( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
    block => sub {...},   # XXX - the return block coul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18791	18900	
==>pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15212	15321	
==>pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	489	591	
==>n't make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41368	41462	
==>'s
documentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS.

=ba <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41368	41462	
==>'s
documentation, particularly towards using a much shorter and
non-intimidating SYNOPSIS.

=ba <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32477	32572	
==>e Locale::KeyedText::Translator Class

While a Translator object stores some attributes for conf <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32477	32572	
==>e Locale::KeyedText::Translator Class

While a Translator object stores some attributes for conf <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	324	427	
==>piler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::Po <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	324	427	
==>piler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::Po <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8814	8924	
==>}
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6124	6232	
==>= $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6124	6232	
==>= $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9925	10065	
==>or  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Com <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1140	1277	
==>or  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1766	1872	
==>if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1766	1872	
==>if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{mat <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6243	6342	
==>sh is returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item getpri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6243	6342	
==>sh is returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item getpri <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8826	8935	
==>=
        ('$_str_','$_pos_','$_re_','$_m_','$_m0_',
         '$_a_','$_s_','$_at_','$_prev_');
        my $co <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10207	10302	
==>rg/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http://svn.op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12242	12365	
==>par}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6305	6397	
==>arser::Objects> for documentation about nodes and the objects
that represent them.  See L<Reg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2867	3070	
==>ral...
                    $z = sprintf "\\%03o", $c if $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarra <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15172	15271	
==>n scalar and array contexts, the encoded or
decoded string is returned (without changing the input s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15172	15271	
==>n scalar and array contexts, the encoded or
decoded string is returned (without changing the input s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3558	3684	
==>ode ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buf <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3558	3684	
==>ode ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2253	2356	
==>ains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2253	2356	
==>ains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Ha <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11713	11820	
==>An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11713	11820	
==>An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7030	7137	
==>m" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7042	7149	
==>m" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_ru <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4783	4900	
==>{ $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $.blah };

SUPPORTED_FEATURES
}
    else {
        $srcfi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	116	212	
==>REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	116	212	
==>REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4985	5137	
==>e the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4985	5137	
==>e the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26097	26196	
==>s
or by any other means.

=item C<HARNESS_COLUMNS>

This value will be used for the width of the ter <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1242	1335	
==>capability if created, and in perhaps accepting
# patches to remove roadblocks if encountered. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4201	4350	
==>"ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4201	4350	
==>"ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13337	13436	
==>rmat for
Document.new(), by which you can create an identical Document (with member
Nodes) to the on <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13337	13436	
==>rmat for
Document.new(), by which you can create an identical Document (with member
Nodes) to the on <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1529	1655	
==>_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1529	1655	
==>_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applie <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	905	1010	
==>cument class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	905	1010	
==>cument class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1749	1845	
==>as parameters at least C<rate of information> in
items per second and C<burst size> in items.

=c <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1749	1845	
==>as parameters at least C<rate of information> in
items per second and C<burst size> in items.

=c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10252	10351	
==>that mandatory
constructor arguments are provided and that they are of the correct
container type (e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10252	10351	
==>that mandatory
constructor arguments are provided and that they are of the correct
container type (e <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2378	2512	
==>=> -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2378	2512	
==>=> -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10263	10363	
==>ory
constructor arguments are provided and that they are of the correct
container type (eg, hash vs a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10263	10363	
==>ory
constructor arguments are provided and that they are of the correct
container type (eg, hash vs a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26264	26370	
==>empty string, and each variable value can be anything at
all.  Note that while the Hash itself is copied on <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26264	26370	
==>empty string, and each variable value can be anything at
all.  Note that while the Hash itself is copied on <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12860	12984	
==>ype' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12860	12984	
==>ype' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	160	245	
==>l6/Bible/S05.pod
  http://www.nntp.perl.org/group/perl.perl6.language/20985
  docs/qui <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1554	1675	
==>e array_alias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias             {  \%\<<name>\>  \:\=  <constru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	430	524	
==>ugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	430	524	
==>ugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37101	37224	
==>, qw< atom >;
      return $S->object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->ad <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3055	3146	
==>turns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3055	3146	
==>turns Set {
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13878	14011	
==>[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13872	14005	
==>[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14297	14400	
==>>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " > <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14297	14400	
==>>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " > <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2327	2433	
==>C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

me <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2327	2433	
==>C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

me <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	484	599	
==>lf->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} does not exist!
    Current director <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34045	34142	
==>translating a message, a match in found in the most preferred language
is used.  Each Set Name can <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34045	34142	
==>translating a message, a match in found in the most preferred language
is used.  Each Set Name can <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1443	1552	
==>::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be u <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1443	1552	
==>::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4078	4182	
==>tent;
    
    return [~] ($!headers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4078	4182	
==>tent;
    
    return [~] ($!headers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3623	3749	
==>er().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3681	3807	
==>er().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5936	6073	
==>ch = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new oper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5936	6073	
==>ch = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new oper <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	66	229	
==>{
    my $self = shift;
    Carp::carp("class() deprecated; use family() instead");
    $self->family(@_);
  }

  sub flags {
    my $self = shift;
    $self->{flag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	133	267	
==>::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	133	267	
==>::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## A <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31268	31536	
==>->new('$self:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	390	511	
==>ion}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20183	20289	
==>lare that its result not be recompiled by
some other containing parser. In this case the result of the comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20183	20289	
==>lare that its result not be recompiled by
some other containing parser. In this case the result of the comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10934	11071	
==>turn;
  });

  # alternation branch
  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });

  # openi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6370	6481	
==>ight/non/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25287	25379	
==>t
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25287	25379	
==>t
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system f <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5583	5681	
==>]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharacter>> yet.
rule simple_character  { <-[\{\} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7371	7475	
==>=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7371	7475	
==>=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	725	898	
==>@{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shamelessly swiped from:
# - http <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	69	168	
==>n(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	69	168	
==>n(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	125	227	
==>---------------------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ----------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	148	243	
==>----
## Mini Meta-Model with Self-Bootstrapping Roles
## --------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1540	1656	
==>pan.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1540	1656	
==>pan.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $sel <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	638	753	
==>pan.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	638	753	
==>pan.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1797	1927	
==>bs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate di <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1797	1927	
==>bs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate di <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	310	409	
==>ill
run and install and have all the distribution components you need.

= WHY

You should use this m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3748	3839	
==>LE
*{'require'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ide <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13602	13698	
==>month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to repr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13602	13698	
==>month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to repr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1055	1155	
==>Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is
ma <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1055	1155	
==>Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is
ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2113	2251	
==>e { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2253	2391	
==>e { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	688	862	
==>d_children(
                        Tree.new(:node<Lazy>).add_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6352	6451	
==>ial case Does
# to avoid endless recursion
$Class->add_method('does' => sub {
    return $_[1] eq 'R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13650	13809	
==>= @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $mat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13650	13809	
==>= @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3330	3424	
==>ead1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3330	3424	
==>ead1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15238	15336	
==>rned (without changing the input string).

If you prefer not to import these routines into your nam <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15238	15336	
==>rned (without changing the input string).

If you prefer not to import these routines into your nam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6776	6917	
==>ift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12861	12997	
==>ift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15214	15329	
==>ewnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $tar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15214	15329	
==>ewnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $tar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7486	7586	
==>may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7486	7586	
==>may contain "Lazy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21859	21964	
==>n => $fac,
	param => val(5),
);

my $length_and_first = fun(
	param => "xs",
	body => comb(
		fun => comb( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1250	1349	
==>alidator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1250	1349	
==>alidator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1900	2013	
==>pan.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1900	2013	
==>pan.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10137	10338	
==>n->{signature} ) .
                        _emit( $n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        return  " " . $n->{op1}{stmt} . 
                ' (' . _emit( $n->{exp <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	539	637	
==>r}, RESET;

  if($args{ensure}->()) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2027	2167	
==>%.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2027	2167	
==>%.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3806	3925	
==>ar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3670	3785	
==>ar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Per <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4249	4369	
==>_('$.reason') },
        'status' => sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::With <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8325	8439	
==>vent<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8325	8439	
==>vent<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6781	6887	
==>hannels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6781	6887	
==>hannels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebod <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10123	10280	
==>PSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10123	10280	
==>PSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5078	5217	
==>];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5078	5217	
==>];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3737	3857	
==>module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3737	3857	
==>module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16995	17096	
==>tringify()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans num <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16995	17096	
==>tringify()`

Return a string representation of the span.

- `compare( $span )`

Compares the spans num <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	837	960	
==>ation to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Eac <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4315	4438	
==>ation to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Eac <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17236	17364	
==>, "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17236	17364	
==>, "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26392	26487	
==>a modified version of Rosetta
that you are willing to distribute, because that is a practical wa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26392	26487	
==>a modified version of Rosetta
that you are willing to distribute, because that is a practical wa <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1476	1580	
==>trictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borro <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1476	1580	
==>trictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borro <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4816	4910	
==>_range_bounds_RHS(_Min,-)   --> ",", !.
p5_range_bounds_RHS(Min ,Min) --> {true}.

%# XXX - spa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10523	10723	
==>xclusion;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation::Example $other!) returns Relation::Exa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	698	833	
==>e = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mods = $1;
	}
        my $qr = ev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2609	2775	
==>p::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2620	2786	
==>p::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33629	33741	
==>up out of it.  In between these
is C<< $self->{data} >>, which is the node's child.

=head2 Creating an Object

O <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4794	4916	
==>lf: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4794	4916	
==>lf: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2575	2686	
==>orrect?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2575	2686	
==>orrect?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4663	4802	
==>ackage_re };

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->packa <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1156	1258	
==>e non_conjunction { <repetition> | <alias> | <simple_term> }

rule repetition  { <simple_term> <quantif <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13321	13411	
==>> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed</span>,
		<span cla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3986	4101	
==>gs = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4203	4318	
==>gs = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tai <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39551	39650	
==>---------------------------------------------------------------------
## now build Object, so we can <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1552	1716	
==>w(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    els <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1552	1716	
==>w(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    els <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2843	2949	
==>face::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2843	2949	
==>face::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10573	10670	
==>..}, complement_previous => sub {...} )`

Creates a recurrence set. The complement set is specifie <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10573	10670	
==>..}, complement_previous => sub {...} )`

Creates a recurrence set. The complement set is specifie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2197	2323	
==>/bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVE <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2197	2323	
==>/bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10505	10628	
==>ata} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3094	3265	
==>$_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3094	3265	
==>$_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14416	14515	
==>es (it does not support any analogy of CDATA sections, though).
The Node class is pure and determini <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14416	14515	
==>es (it does not support any analogy of CDATA sections, though).
The Node class is pure and determini <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6049	6187	
==>, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 4, '... $Object is the second id');
is($Object->class, $Class, '.. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20890	21008	
==>nt :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <Statement> <'else'> <Statement>
    | <'if'> <'('> <Expr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13820	13918	
==>-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13878	13976	
==>-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6137	6331	
==>thod map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6137	6331	
==>thod map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $re <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19803	19906	
==>g_s(E0), !.
%#rm(ws(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3271	3380	
==>^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested fea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3455	3564	
==>^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested fea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4536	4704	
==>$n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4536	4704	
==>$n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3407	3514	
==>tric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symm <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3407	3514	
==>tric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7442	7625	
==>n;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7442	7625	
==>n;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3230	3332	
==>n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3218	3320	
==>n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11204	11311	
==>g_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11204	11311	
==>g_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14532	14671	
==>digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14532	14671	
==>digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3079	3179	
==>$.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3079	3179	
==>$.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17015	17130	
==>p($_->visual, @{ $self->{data} }), ")";
  }

  sub ender {
    my $self = shift;
    [ close => $self->nparen ];
  } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2237	2343	
==>_indirect_typed_value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&cast',
					b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16374	16480	
==>"$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ]

.sub "p6rule"
    . <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12665	12898	
==>={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12665	12898	
==>={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1134	1267	
==>ure => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1134	1267	
==>ure => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_ma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	421	523	
==>eded.  The most of the re_tests are passing.  While
# the spike "coded to the tests", and thus is far f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4453	4625	
==>@list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method f <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4453	4625	
==>@list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7891	8000	
==>For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_word( 'abc123' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7625	7731	
==>For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_word( 'abc123' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6147	6249	
==>pan );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6147	6249	
==>pan );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	11	155	
==>::Package::Binary;

1;




sub install {



    ### XXX return j::p::installed


}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-o <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9932	10022	
==>p://www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically generated <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4920	5054	
==>unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4920	5054	
==>unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5193	5307	
==>eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5193	5307	
==>eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9108	9216	
==>use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Ot <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9166	9274	
==>use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Ot <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16593	16767	
==>->get('&dispatcher'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2468	2573	
==>quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Pre <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2468	2573	
==>quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @Pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18789	18916	
==>9)

By popular demand C<referrer> exists as an alias for this method so you
can avoid this misspelling in your programs and stil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18789	18916	
==>9)

By popular demand C<referrer> exists as an alias for this method so you
can avoid this misspelling in your programs and stil <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	657	758	
==>e what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	657	758	
==>e what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5499	5631	
==>user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23364	23467	
==>s are used together, and
each doesn't know the others' internals.  Implementing classes can
optionally o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3914	4018	
==>s used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attrib <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3914	4018	
==>s used by the Locale::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attrib <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22187	22283	
==>les appropriately in the search
list.  The analogy is similar to inheriting from multiple package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22187	22283	
==>les appropriately in the search
list.  The analogy is similar to inheriting from multiple package <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1310	1422	
==>for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_depe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	870	982	
==>for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( list_depe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3478	3579	
==>l and functional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3478	3579	
==>l and functional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14899	14997	
==>annel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14899	14997	
==>annel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method oper(Str $username, Str $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	365	531	
==>mfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	365	531	
==>mfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9514	9613	
==>5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9514	9613	
==>5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3910	4023	
==>ty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans mus <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3910	4023	
==>ty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans mus <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	192	310	
==>trict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2900	3023	
==>_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3749	3872	
==>_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16794	16983	
==>g val(10) into int -> int
# x is inferred to be int
my $plus_ten = fun(
	param => "x",
	body => comb(
		fun => comb(
			fun => ide("add"),
			param => val(10),
		),
		param => ide("x"),	
	), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5417	5541	
==>arse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5417	5541	
==>arse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'stat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16229	16327	
==>:KeyedText provides a simple but effective mechanism for
applications and packages that empowers si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16229	16327	
==>:KeyedText provides a simple but effective mechanism for
applications and packages that empowers si <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1233	1333	
==>ue;
has $.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::String $P) {
    my $Result2 = $O <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	561	674	
==>ed with other types in the same level
my %rule_templates = (
    prefix =>          '<op> <equal>', 
    circumfix <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7390	7528	
==>len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7390	7528	
==>len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Da <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3786	3980	
==>Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3786	3980	
==>Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4493	4678	
==>}
        elsif( $result{type} eq 'skip' ) {
            $totals->{skip}++;
            $pass = 1;
        }

        $totals->{ok}++ if $pass;

        if( $result{number} > 100000 && $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13110	13258	
==>oop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { loca <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	673	839	
==>t this level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.na <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	673	839	
==>t this level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7115	7250	
==>_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7115	7250	
==>_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualif <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11224	11338	
==>e {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11224	11338	
==>e {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2183	2314	
==>method BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2183	2314	
==>method BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map -> $n,$t { " <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4310	4428	
==>:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $key = "";
    $whitespacePosition = $position;
    push @bsrSta <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1434	1547	
==>onst PV c) {
	return fprintf(f, format, c);
}

PV prel_cat (PV x, PV y) {
	char * target = (char *)GC_MALLOC(sizeo <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	296	405	
==>heck_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Confi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	247	345	
==>heck_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Confi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1256	1358	
==>wer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1256	1358	
==>wer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

meth <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	269	410	
==>Num ?$x = $CALLER::_, :$base)
            returns Num { ... };
}

multi sub atan (Num $x, Num $y ; Num :$base) returns Num
    { ... };

multi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8144	8280	
==>h, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8144	8280	
==>h, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11786	11929	
==>ck->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12065	12208	
==>ck->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2396	2515	
==>=> 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # smal <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2396	2515	
==>=> 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # smal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5658	5806	
==>m(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'privat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5716	5864	
==>m(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'privat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5075	5185	
==>) 
            if $left->fetch($i)->equal_to($right->fetch($i)) != bit->new(1);
    }
    return bit->new(1);
} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9926	10034	
==>port { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=k <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9926	10034	
==>port { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=k <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	797	924	
==>. '') }
sub to_bit { bit->new(1)            }

# methods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19467	19574	
==>ly in the tree.  Fixed.

Standard escapes (C<\a>, C<\e>, etc.) were being returned as I<exact>
nodes instead <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6496	6708	
==>ch => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6496	6708	
==>ch => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14439	14544	
==>000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

C <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14439	14544	
==>000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2114	2295	
==>te($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2114	2295	
==>te($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6132	6276	
==>iles ran
    good            Number of test files passed
    bad             Number of test files failed
    tests           Number of test files <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27910	28014	
==>DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15332	15450	
==>oncat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15611	15729	
==>oncat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22769	22917	
==>=> 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23271	23419	
==>=> 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6164	6272	
==>er( "hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low level op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5953	6058	
==>er( "hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low level op <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8159	8310	
==>n");*/
      if(ret != 4) {
        fprintf(stderr,"api 13 violation\n"); exit(0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10340	10458	
==>end+1)
    match - positional submatches
    named - named submatches
    capture - return'ed things
    
    stat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25953	26059	
==>es
that are associated with the message, and can be interpolated into the
human-readable version.  Each var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25953	26059	
==>es
that are associated with the message, and can be interpolated into the
human-readable version.  Each var <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16077	16204	
==>utation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16077	16204	
==>utation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method res <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1980	2146	
==>]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          return { named_capture => $body, } 
        }
    }
    unshift @rule_terms, 'named_captu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6467	6601	
==>rams.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @pac <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6467	6601	
==>rams.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @pac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12940	13089	
==>ntime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12934	13083	
==>ntime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7930	8036	
==>all to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7930	8036	
==>all to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1572	1663	
==>onstant RPe_BADESC => --$ENUM, 'Unrecognized escape \\%s%s passed through';
use constant RPe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	361	464	
==>wi, which requires swi-prolog be
installed with non-default settings, and so is not intended for
"genera <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	72	176	
==>s;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	72	176	
==>s;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6265	6386	
==>arn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7263	7384	
==>arn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1162	1259	
==>my ($extracted,$remainder) = Text::Balanced::extract_delimited( "/" . $_[0], "/" );
    $extracted <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1062	1157	
==>bject to change
in incompatible ways.  It is otherwise stable.

Test::Harness is limited to prin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1991	2088	
==>mpiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft=per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1991	2088	
==>mpiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: ft=per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1297	1453	
==>perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) {
    # We are the main program here
    my ($compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	590	731	
==>eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	687	828	
==>eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Be <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15246	15349	
==>relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18723	18826	
==>relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2004	2128	
==>ant() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2004	2128	
==>ant() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1832	1928	
==>attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1832	1928	
==>attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	513	609	
==>ut_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	513	609	
==>ut_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5668	5776	
==>ses



### separate "processes" from actual module documentation?



=head2 Grammar engine



* Pugs::Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5473	5575	
==>ses

### separate "processes" from actual module documentation?

=head2 Grammar engine

* Pugs::Grammar <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	565	692	
==>undef, undef, @$match);
            return reverse(@rv);
        });
    };
}

1;

__END__

=head1 NAME 

re::override::PCRE - P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4724	4823	
==>cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currentl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4724	4823	
==>cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currentl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2912	3049	
==>e &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2912	3049	
==>e &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handler <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6082	6170	
==>. " for placeholder of " . Blondie::Emitter::Pretty->new->string(Blondie::TypeSafe::Flatt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	885	987	
==>-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Languag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	885	987	
==>-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Languag <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	773	884	
==>akemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optim <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	674	785	
==>akemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optim <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14913	15021	
==>handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9113	9221	
==>handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3112	3248	
==>that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Ch <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3112	3248	
==>that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Ch <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31581	31677	
==>cate> simply returns True or False regardless of its
argument, in which case the new Relation has <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36131	36227	
==>cate> simply returns True or False regardless of its
argument, in which case the new Relation has <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1830	1927	
==><name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3206	3303	
==><name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1347	1440	
==>table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various tal <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1347	1440	
==>table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various tal <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1620	1735	
==>e hash_alias             {  \%\<<name>\>  \:\=  <construct>  }
rule numbered_scalar_alias  {  \$<number>    \:\=  <c <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1162	1262	
==>e html files (Default: ./t_index)
    --test_dirs     Directories containing the tests (Default: take <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1840	1951	
==>he api got cleaned up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLB <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1840	1951	
==>he api got cleaned up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLB <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2339	2468	
==>rm2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3120	3249	
==>rm2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1518	1654	
==>>package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4721	4857	
==>>package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15970	16068	
==>dules that use these compilation modules get compiled into some
altered form the first time they ar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15970	16068	
==>dules that use these compilation modules get compiled into some
altered form the first time they ar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2176	2278	
==>se;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done like th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2176	2278	
==>se;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done like th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	307	410	
==>ta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	307	410	
==>ta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	882	1012	
==>sh($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	882	1012	
==>sh($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5383	5518	
==>_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abs <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5901	6015	
==>_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abs <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11056	11156	
==>Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '2 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11056	11156	
==>Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '2 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4071	4254	
==>ss defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == - <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4071	4254	
==>ss defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5267	5420	
==>push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( @{$asso <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	230	331	
==>ss $class: Str ?$dir is copy, Str ?$file is copy) returns Class {
	@.known_parsers = ();

	$dir //= ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4200	4321	
==>ture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{capture} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4071	4190	
==>ture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{capture} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11194	11289	
==>tem B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<ad <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11194	11289	
==>tem B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<ad <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22799	22898	
==>to show less than all of the available details depending on the
intended viewer.

=head2 Compared to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22799	22898	
==>to show less than all of the available details depending on the
intended viewer.

=head2 Compared to <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1642	1747	
==>ns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has infinite size <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1642	1747	
==>ns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has infinite size <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1040	1137	
==>mpiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1040	1137	
==>mpiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6671	6769	
==>'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOption <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6671	6769	
==>'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOption <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32506	32599	
==>C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37056	37149	
==>C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of the a <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	671	789	
==>{
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %va <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	671	789	
==>{
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1881	1977	
==>, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1809	1903	
==>, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1772	2036	
==>$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1772	2036	
==>$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6021	6118	
==>, depending on when C<want> gets implemented. Currently, the headers
are returned as one long stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6021	6118	
==>, depending on when C<want> gets implemented. Currently, the headers
are returned as one long stri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7274	7363	
==>ts, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1099	1188	
==>ts, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18333	18429	
==>ters and ranges from being display if they are included in an embedded
class, set the I<anyof> ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10362	10461	
==>field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting bef <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10362	10461	
==>field) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting bef <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3095	3194	
==>ove the '$self->{prefix}' directory and run $0 again to load it.
END

    my $obj = $admin->load($me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11321	11439	
==>'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11321	11439	
==>'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1706	1828	
==>g attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no dir <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1706	1828	
==>g attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no dir <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3591	3695	
==>tr`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Fun <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3591	3695	
==>tr`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Fun <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1201	1319	
==>"%sfailed%s.\n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlinux.de/iblech/pugs/ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	817	915	
==>g the C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
some <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	817	915	
==>g the C<Tree> interface.

Normally, they will be constructed as a series of events fired in by
some <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7573	7681	
==>te attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation::Ex <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	193	293	
==>l based Perl6 extensions outside of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6103	6214	
==>ar::Rule::compile ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5893	6001	
==>ar::Rule::compile ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1610	1751	
==>class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1610	1751	
==>class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4930	5042	
==>an, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4930	5042	
==>an, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5752	5856	
==>($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5752	5856	
==>($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19610	19714	
==>are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::IRC> automatically <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19610	19714	
==>are I<not>
necessarily the names you specified in the constructor. For example,
C<Net::IRC> automatically <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17352	17448	
==>preter
itself, which provides a virtual machine in which Perl code runs).

The classes and method <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17352	17448	
==>preter
itself, which provides a virtual machine in which Perl code runs).

The classes and method <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24114	24219	
==>ode itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText does no compile <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24114	24219	
==>ode itself, so it then becomes a version of that
language.  By contrast, Locale::KeyedText does no compile <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15030	15144	
==>as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15088	15202	
==>as a mutually recursive multi-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17097	17195	
==>erically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17097	17195	
==>erically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2500	2699	
==>fined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2500	2699	
==>fined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10098	10204	
==>etric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10098	10204	
==>etric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28027	28120	
==>ositional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28027	28120	
==>ositional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22901	23010	
==>ther Solutions

One of the main distinctions of this approach over similar packages is that
text is always loo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22901	23010	
==>ther Solutions

One of the main distinctions of this approach over similar packages is that
text is always loo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4266	4416	
==>6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4118	4263	
==>6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10272	10388	
==>$klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10272	10388	
==>$klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blo <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3459	3574	
==>=~ s/([\$])/\\$1/gm;
#    # latex special chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32125	32228	
==>rror
message.  If it finds one, then that is displayed; if not, it then checks
each set's member for lan <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32125	32228	
==>rror
message.  If it finds one, then that is displayed; if not, it then checks
each set's member for lan <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6940	7045	
==>_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6940	7045	
==>_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	138	243	
==>er a new rule or parenthesized
group.  This is approximately the Match object that userland folks will
see <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	138	243	
==>er a new rule or parenthesized
group.  This is approximately the Match object that userland folks will
see <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13133	13238	
==>ne. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13133	13238	
==>ne. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9834	9935	
==>ers> object.  You might pass some initial
attribute-value pairs as parameters to the constructor.  I<E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9834	9935	
==>ers> object.  You might pass some initial
attribute-value pairs as parameters to the constructor.  I<E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	115	216	
==>ent<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	115	216	
==>ent<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2883	2997	
==>e to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub fresh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2883	2997	
==>e to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub fresh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27403	27510	
==>be set when the object is constructed.  If you want to
conceptually change an existing Message object, you m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27403	27510	
==>be set when the object is constructed.  If you want to
conceptually change an existing Message object, you m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1274	1366	
==>the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> wil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1274	1366	
==>the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> wil <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	46	183	
==>6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handl <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	46	183	
==>6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7810	7911	
==>irs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPO <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7810	7911	
==>irs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16425	16532	
==>yright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribut <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16483	16590	
==>yright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribut <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15491	15623	
==>ile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15491	15623	
==>ile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compile <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6061	6159	
==>ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Arra <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6061	6159	
==>ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9478	9580	
==>0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9478	9580	
==>0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9740	9840	
==>uilt to facilitate the Pugs test suite. It has the
distinction of being the very first module written <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9798	9898	
==>uilt to facilitate the Pugs test suite. It has the
distinction of being the very first module written <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3436	3556	
==>";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3436	3556	
==>";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5539	5646	
==>H; 

    return @f;
}

=item B<_run_all_tests>

  my($total, $failed) = _run_all_tests(@test_files);

Runs a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6397	6501	
==>|| die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6397	6501	
==>|| die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13802	13918	
==>nnection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13802	13918	
==>nnection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at least <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7155	7310	
==>")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `wher <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7155	7310	
==>")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `wher <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3927	4057	
==>aking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3927	4057	
==>aking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	939	1056	
==>=> 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	939	1056	
==>=> 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15786	15914	
==>t = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15780	15908	
==>t = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23923	24026	
==>is method creates and returns a new Relation object, whose Heading and
Body attributes are set respectiv <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28475	28578	
==>is method creates and returns a new Relation object, whose Heading and
Body attributes are set respectiv <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17559	17669	
==>E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,B <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17743	17853	
==>E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	342	475	
==>'infix:<times>' '/'
%left   NEG
%right  '^'

%%
statement:  exp { return($out) } ;

exp:        NUM                 { $out= $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	184	285	
==>hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

ou <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4838	4961	
==>ame';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pA <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4838	4961	
==>ame';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	709	851	
==>null {
    "1";
};

sub optional {
    alternation( @_, 1 );
}

sub wrap {
    return "sub { my \@match; my \$s = shift; $_[0]; return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	115	225	
==>$NIL = bless \(my $var) => __PACKAGE__;
sub new { $NIL }

# conversion to native
sub to_native { undef }

# con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15625	15748	
==>f @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15625	15748	
==>f @queue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7376	7508	
==>aller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $depth++;
        $call = cal <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4712	4810	
==>initialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, whic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4712	4810	
==>initialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, whic <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	646	767	
==>red 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        ur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	545	654	
==>red 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		ur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1749	1878	
==>t->$meth($list)";
}
sub node::meth_call {
    my $ident = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1749	1850	
==>tes which might be interesting to 
people interested in the algorithm itself.  The attributes in quest <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1749	1850	
==>tes which might be interesting to 
people interested in the algorithm itself.  The attributes in quest <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1531	1651	
==>sts first.  Collect links and format as HTML
    as we go.  Then get the design docs, and format those as HTML, linking t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12733	12852	
==>t :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | <ElementList> <','> <Elision>? <AssignmentExpress <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	287	407	
==>oadFile( $Repoindex ); 

for my $pkg (@ARGV ) {
    
    ### in case there's more than one package matching,
    ### sort <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	959	1087	
==>ned $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	970	1098	
==>ned $code;
    # print "non_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4505	4607	
==>s the I<result>
object; this is normally the entire match string, but may be arbitrary
objects returned <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4505	4607	
==>s the I<result>
object; this is normally the entire match string, but may be arbitrary
objects returned <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1738	1852	
==>capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1738	1852	
==>capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	385	492	
==>s;

    my $frob = sub{ my $n=$_[0];($n =~ /^perl5/ ? "" : "require $n;")."use_avoiding_pugs('$n');"};
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27832	27964	
==>elf:) returns list {
    unless (@:MRO) {
        @:MRO = $self._merge();
    }
    @:MRO;
}

(method MRO ((opaque $self:)) returns l <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5216	5395	
==>he top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5216	5395	
==>he top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the top <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	509	662	
==>{
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;
        $self->{'values'}{$key} = shift;
        return $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2204	2332	
==>ch my $role (@{$class->roles}) {
        $output .= _draw_role($role);
        $output .= "node_" . $role->id . " -- node_" . $cl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22047	22138	
==>ameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22047	22138	
==>ameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7411	7506	
==>omain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7411	7506	
==>omain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	923	1017	
==>e this listing, run <tt>perl gen.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for the autom <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4078	4169	
==>) --> p6_range(W, Z), !.
p6_quantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1609	1726	
==>headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1609	1726	
==>headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20291	20387	
==>lation
is replaced by a single line containing the hexadecimal digest of the
result in double quo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20291	20387	
==>lation
is replaced by a single line containing the hexadecimal digest of the
result in double quo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19139	19237	
==>part of the program*, and not the program's users' own data; only
someone already involved in makin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19139	19237	
==>part of the program*, and not the program's users' own data; only
someone already involved in makin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21996	22153	
==>t(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18417	18574	
==>t(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2955	3052	
==>n the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2955	3052	
==>n the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=it <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1666	1759	
==>er 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1666	1759	
==>er 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5977	6092	
==>sts passed
    sub_skipped     Number of individual tests skipped
    todo            Number of individual todo test <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6010	6152	
==>bsp;/g;
          # hack, to make the timestamps not break so the smoke reports look
          # good even on 640x480
          $str;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2581	2725	
==>sg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2581	2725	
==>sg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	845	941	
==>\"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("upload")) {
  process_upload();
} <==
2	/Users/nnunley/pugs/util/package-osx.pl	7286	7404	
==>m
        /usr/local/man/man3/Perl6::Spec::CPAN.3
        /usr/local/man/man3/Perl6::Spec::CPAN.3pm
        /usr/local/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4033	4134	
==>{ $_ !~ /^_/ } __PACKAGE__->ls_all_accessors }


1;

# Local variables:
# c-indentation-style: bsd
# c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7359	7486	
==>my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7347	7474	
==>my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	570	835	
==>a::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	570	835	
==>a::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	292	401	
==>) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	292	401	
==>) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1175	1344	
==>$Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # autho <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	458	627	
==>$Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # autho <==
2	/Users/nnunley/pugs/util/package-osx.pl	1117	1217	
==>/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3 <==
2	/Users/nnunley/pugs/util/package-osx.pl	3427	3527	
==>/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3209	3322	
==>d headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($buff <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3209	3322	
==>d headers
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($buff <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4708	4864	
==>ifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4708	4864	
==>ifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!child <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10690	10789	
==>Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10690	10789	
==>Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Loca <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	559	660	
==>odule or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you w <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	559	660	
==>odule or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you w <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	667	845	
==>char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '* <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	667	845	
==>char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '* <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5618	5721	
==>o a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5618	5721	
==>o a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Although the A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1933	2082	
==>t $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test(yylex => $lex, yyerror => sub {});

    $out=$p->YYParse;

    print Dum <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17550	17665	
==>F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17734	17849	
==>F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	137	250	
==>se Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	137	250	
==>se Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The typ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6909	7043	
==>ing === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10386	10520	
==>ing === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1361	1479	
==>y;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1328	1446	
==>y;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16414	16522	
==>rrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16414	16522	
==>rrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1446	1572	
==>e::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    ha <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1446	1572	
==>e::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1463	1610	
==>RING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1463	1610	
==>RING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_stri <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2008	2095	
==>as>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_group>|<noncapturing_g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17117	17224	
==>message content.

=item $h.content_language

The natural language(s) of the intended audience for the messag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17117	17224	
==>message content.

=item $h.content_language

The natural language(s) of the intended audience for the messag <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4943	5055	
==>1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4943	5055	
==>1],4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7578	7689	
==>sers{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users according <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7578	7689	
==>sers{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users according <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3491	3650	
==>$!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3491	3650	
==>$!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18176	18285	
==>gram simply returned words for the user, such as
'error opening file', programs would have a harder time figur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18176	18285	
==>gram simply returned words for the user, such as
'error opening file', programs would have a harder time figur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3937	4075	
==>>{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5161	5299	
==>>{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20744	20860	
==>L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recomm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20744	20860	
==>L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recomm <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12916	13015	
==>one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12916	13015	
==>one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=he <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5978	6164	
==>yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $cod <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5978	6164	
==>yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	839	957	
==>TDOUT : *STDERR;
    print $fh @mess;

}

sub skip_all {
    if (@_) {
	print STDOUT "1..0 # Skipped: @_\n";
    } else <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3063	3234	
==>my $size = $idx + 1;
                if ($self->array_fetchSize < $size){
                    $self->array_storeSize($size);
                }
            },

            ' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5599	5756	
==>p ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5599	5756	
==>p ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	655	773	
==>, $named_slurpy) = ({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26916	27012	
==>0400000 /* Can trust a positive answer */
 #define REINT_AUTORITATIVE_ML	0x0800000 
 #define REIN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32219	32315	
==>n for this object (for flag assertions
and C<(?:...)>).

=item raw

The raw representation of thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3021	3130	
==>L>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method cur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3021	3130	
==>L>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method cur <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	498	597	
==>se Regexp::Common qw/balanced delimited/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHas <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	111	232	
==>r::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	111	232	
==>r::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	474	565	
==>IB::Package::Source>,
L<JIB::Repository>, L<JIB::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	998	1140	
==>( 
        $rule, 
        { grammar => $class },
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    retu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	442	536	
==>params->{arity},
		name => $params->{name},
		type => $params->{type},
		fixity => $params->{fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	502	782	
==>) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	502	782	
==>) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6736	6835	
==>?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6794	6893	
==>?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14251	14341	
==>,
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24887	24977	
==>,
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->new, <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4653	4780	
==>onfig{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't guaranteed sorted; and sorti <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9837	9948	
==>$string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9837	9948	
==>$string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @str <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	428	547	
==>ndef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	428	547	
==>ndef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7977	8070	
==>ete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7977	8070	
==>ete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1165	1295	
==>'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'l <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5495	5622	
==>new(
        Seq->new(
            Param->new('$cond'),
            Param->new('$left_thunk'),
            Param->new('$right_th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1936	2064	
==>protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1936	2064	
==>protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	572	674	
==>ethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	572	674	
==>ethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7868	7978	
==>vent {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delet <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7868	7978	
==>vent {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8744	8907	
==>' ) {
        #warn "sub: ",Dumper $n;

        my $name = _mangle_ident( $n->{name}{bareword} );

        my $export = '';
        for my $attr ( @{$n->{attr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	472	590	
==>elimiter(' ');

 multi sub map (Code $expression ; *@values) returns List {
   gather {
     while @values {
       tak <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4352	4561	
==>rent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4352	4561	
==>rent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2035	2184	
==>oadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectifi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3408	3549	
==>oadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectifi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3491	3853	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3491	3853	
==>STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2548	2665	
==>et.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shif <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2548	2665	
==>et.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10662	10761	
==>from the beginning the next
time it is called.

=head2 Viewing the Regex

You can get the regex back <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21786	21880	
==>s.  This
documentation contains a sub-classing tutorial.

=head1 SUB-CLASSING

I will present t <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1904	2061	
==>$x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_floor (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5863	5991	
==>of_range',
      type => 'anyof_range',
      data => [$lhs, $rhs],
    }, $class;
  }

  sub qr {
    my $self = shift;
    join <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16892	16991	
==>oad F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16892	16991	
==>oad F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2589	2689	
==>mensional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2589	2689	
==>mensional arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4853	4943	
==>%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4853	4943	
==>%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4129	4232	
==>pan1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4129	4232	
==>pan1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	948	1084	
==>equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'lo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9213	9311	
==>Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not (" <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9213	9311	
==>Return a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not (" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3	107	
==>kage v6;
$v6::VERSION = '0.002';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	484	697	
==>::shift @CALLER::_;
 }
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ?$length,
                                       *@v <==
2	/Users/nnunley/pugs/util/build_pugs.pl	611	705	
==>from the file `config.yml` in
the build root. You may override these settings using the PUGS_BU <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4410	4506	
==>superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->cl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6312	6408	
==>superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2427	2526	
==>ered; when you're done, call the closure 
with no arguments to finish the ciphering and clear the ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2427	2526	
==>ered; when you're done, call the closure 
with no arguments to finish the ciphering and clear the ci <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3616	3721	
==>outine_names\n";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5823	5952	
==>t;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5823	5952	
==>t;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35264	35362	
==>2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

This me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35264	35362	
==>2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

This me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	113	246	
==>for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	113	246	
==>for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\ <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	122	255	
==>t for running.
# Now instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib';
# }
#
# t/TEST will use -MTestInit. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3037	3139	
==>than helpful currently
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo->add_packages($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3630	3772	
==>+ $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3770	3912	
==>+ $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17054	17151	
==>h that would not be possible if its
functionality was subsumed into a larger package that would ot <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17054	17151	
==>h that would not be possible if its
functionality was subsumed into a larger package that would ot <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9911	10006	
==>y Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9911	10006	
==>y Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'nam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1177	1273	
==>= $self->dir or return;

    return $dir->file( $self->config->_registered_alternatives );
}

=he <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8968	9062	
==>t'};
	push(@args,"default=>sub{$default}") if defined $default;

	my $slurpy = ref($op{'paramCo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12883	12979	
==>ral things. 
For example, when iterating through the span range, the unit is added to the current <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12883	12979	
==>ral things. 
For example, when iterating through the span range, the unit is added to the current <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	468	578	
==>tarted = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	526	636	
==>tarted = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1987	2124	
==>}

1;
__END__

sub original_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string("p5ugs> ");
        my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	554	664	
==>}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug;
    my $eval_p6 = sub {
        my($p6 <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	986	1155	
==>eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $reg <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	986	1155	
==>eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $reg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19344	19442	
==>tly connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot.log <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19344	19442	
==>tly connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot.log <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	75	228	
==>-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	75	228	
==>-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8691	8801	
==>edence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6222	6328	
==>edence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/pos <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	207	312	
==>.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	207	312	
==>.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns S <==
2	/Users/nnunley/pugs/t/builtins/system/dump_args.pl	1	117	
==>$out,$") = splice @ARGV, 0, 2;
$" = chr($");

open STDOUT, ">$out"
  or die "Couldn't create '$out' : $!";
binmo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	25	129	
==>ct;
use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for reference purpo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26711	26810	
==>", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), "∀α. α → (int × α) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19128	19230	
==>r
text is *part of the program*, and not the program's users' own data; only
someone already involved i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19128	19230	
==>r
text is *part of the program*, and not the program's users' own data; only
someone already involved i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4650	4746	
==>SX::global_object.<[[Put]]>(GetPropertyName($V),$W);
    return;
}

# 8.8 The List Type
class JSX <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3102	3205	
==>on_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3102	3205	
==>on_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6917	7071	
==>arse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7381	7535	
==>arse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                w <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	505	607	
==>$newclass.apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created when you
d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3468	3585	
==>:';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code gen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3685	3802	
==>:';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code gen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5235	5370	
==>me =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5247	5382	
==>me =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23533	23657	
==>y ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assert <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23886	24010	
==>y ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assert <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6077	6203	
==>{
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6077	6203	
==>{
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curren <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11754	11919	
==>$expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11754	11919	
==>$expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2274	2406	
==>: {   
        ### load in the alternatives collection
        my $href = LoadFile( $Altfile );

        ### this package didn't prov <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5965	6081	
==>f $n->{sub}{bareword} eq 'say';
        return ' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _emit( $n->{param} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2442	2562	
==>re done, call the closure 
with no arguments to finish the ciphering and clear the cipher's state.  
Remember that cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2442	2562	
==>re done, call the closure 
with no arguments to finish the ciphering and clear the cipher's state.  
Remember that cipher <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24634	24720	
==>),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13617	13754	
==>nd $_ ne "." and
		($is_mswin or !((stat$_)[2]&0020)) }
		    split quotemeta ($sep), $1;

	$runperl =~ /(.*)/s;
	$runperl = $1;

	$result <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	781	895	
==>$self->version or die << "END";
Can't determine a VERSION for this distribution.
Please call the 'version' or 'vers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	64	153	
==>use Pugs::Compiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2856	3157	
==>^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2856	3157	
==>^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1263	1367	
==>ident;\n";
}
sub node::use_bareword {
    my $ident = get_str( $_[0], '$<ident>' );
    return "use $iden <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8823	8921	
==>e 7.8.4
      <'"'> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19412	19509	
==>tem Bug Fixes

Character classes weren't closing properly in the tree.  Fixed.

Standard escapes ( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13182	13294	
==>self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	592	704	
==>self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16106	16217	
==>er!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.value <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19583	19694	
==>er!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.value <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13526	13644	
==>e pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13526	13644	
==>e pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	351	454	
==>struct->{package} -- $struct->{description}\n";

    ### XXX yaml this file?
    open my $fh, "$Metactrl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8534	8638	
==>],
				type => Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19299	19394	
==>ion

Fixed some poor wording, and documented the problem with using F<SUPER::>
inside F<MyClass: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7407	7506	
==>rn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7407	7506	
==>rn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4590	4731	
==>atch;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4590	4731	
==>atch;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15887	15989	
==>_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;)
Ze <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1394	1543	
==>')  ];
$config{'repo_index_groups'}= [ [map {Path::Class::dir($_)} 
                                    qw(author name prefix)] ];


### meta dirs/fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9258	9399	
==>[ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: synta <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	838	936	
==>);
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	838	936	
==>);
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, S <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	785	883	
==>er {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::newf <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4090	4260	
==>./xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4090	4260	
==>./xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since a <==
2	/Users/nnunley/pugs/util/func_refact.pl	1835	1994	
==>g $t on account of $f\n" if $Conf{verbose} or $Conf{debug} eq $new;
                $set->{$t} = 1;
            }
        }
    }
    #print ::Y({post=>{set=>$s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	130	245	
==>e in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	130	245	
==>e in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / set_end

=cut

class S <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15521	15614	
==>ariables, so the body has the generic variables created in the binding
let: generic_in($.is) = <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2394	2486	
==>.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .yml to testgraph: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4486	4637	
==>^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4486	4637	
==>^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	45	139	
==>nclude_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_func <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	45	139	
==>nclude_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_func <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15831	15940	
==>rights reserved.

This library is free software; you can redistribute it and/or
modify it under the same terms <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15831	15940	
==>rights reserved.

This library is free software; you can redistribute it and/or
modify it under the same terms <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10644	10753	
==>ns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10644	10753	
==>ns undef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1206	1323	
==>e::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$self->{type <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1228	1367	
==>_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1228	1367	
==>_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	476	588	
==>0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $cod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	476	588	
==>0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $cod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2966	3106	
==>ort, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2966	3106	
==>ort, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11421	11536	
==>her );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SEL <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14898	15013	
==>her );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SEL <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2992	3109	
==>start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2992	3109	
==>start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35132	35229	
==>or object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35132	35229	
==>or object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23973	24074	
==>eeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23973	24074	
==>eeAlso> file for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This documentati <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8680	8778	
==>osetta::Model::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8680	8778	
==>osetta::Model::Document
("Document") and Rosetta::Model::Node ("Node").

I<Note that the "Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3748	3871	
==>s.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= C <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3748	3871	
==>s.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5151	5301	
==>s see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed package <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5615	5765	
==>s see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed package <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23270	23374	
==>6_return_CODE {
    my(@args)=@_;
    my $argl = join(",",@args);
    "(throw Perl6::Run::OnPerl5::X1::Ap <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1704	1800	
==>&::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1704	1800	
==>&::($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4057	4302	
==>t if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4057	4302	
==>t if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12137	12245	
==>nction currently on checks with ref() since we do not yet have
object support. Once object support is created <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12195	12303	
==>nction currently on checks with ref() since we do not yet have
object support. Once object support is created <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4134	4322	
==>$end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4134	4322	
==>$end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18460	18577	
==>s defined $obj_name;
    my $name = "$obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name is <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3469	3566	
==>as Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3469	3566	
==>as Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4025	4140	
==><code> <'}'> }
rule literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6626	6731	
==>s its
results.  It will also use that name for the total report.

=cut

sub analyze_file {
    my($self, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31300	31405	
==>ter is mainy useful if you want modules from multiple
sets in the same disk directory.  In the first examp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31300	31405	
==>ter is mainy useful if you want modules from multiple
sets in the same disk directory.  In the first examp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10987	11087	
==>eturned.

A multi-valued field will be returned as separate values in list
context and will be concat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10987	11087	
==>eturned.

A multi-valued field will be returned as separate values in list
context and will be concat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10641	10744	
==>pes, that their attributes have reasonable values, and
that attributes or Nodes are not missing.  The de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10641	10744	
==>pes, that their attributes have reasonable values, and
that attributes or Nodes are not missing.  The de <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	792	932	
==>ex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	792	932	
==>ex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1036	1148	
==>tr $volume, Str $directory, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1036	1148	
==>tr $volume, Str $directory, Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $di <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8269	8392	
==>, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8269	8392	
==>, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10608	10702	
==>d correctly
depending on their types, that their attributes have reasonable values, and
that at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10608	10702	
==>d correctly
depending on their types, that their attributes have reasonable values, and
that at <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32922	33018	
==>ide effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32922	33018	
==>ide effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Nam <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8158	8262	
==>ional. If it is in fact multi-
dimensional, the values returned will be array references to the sub
array <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13154	13272	
==>}

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1946	2056	
==>ld.size();    
    }
    return $size;
}

## ------------------------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1946	2056	
==>ld.size();    
    }
    return $size;
}

## ------------------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20396	20498	
==>tly connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>log <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20396	20498	
==>tly connected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>log <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9985	10080	
==>s export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9985	10080	
==>s export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	678	794	
==>ONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<P <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	678	794	
==>ONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<P <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1745	1874	
==>universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1745	1874	
==>universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.u <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10430	10524	
==>">$ make smoke
$ ./util/smokeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    should suff <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7401	7507	
==>ow, remove all leading components that are the same
    my @pathchunks = splitdir($path_directories);
    m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7401	7507	
==>ow, remove all leading components that are the same
    my @pathchunks = splitdir($path_directories);
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15478	15616	
==>ame = _emit( $n->{exp1} );
        $name =~ s/^\%/\$/;
        return $name . '{ \'' . $n->{op1}{angle_quoted} . '\' }';
    }

    re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2950	3062	
==>index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2950	3062	
==>index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $sel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4062	4179	
==>ntersect with each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4062	4179	
==>ntersect with each other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Retur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2803	2930	
==>pace
    List        Perl list
    Lazy        Lazily evaluated Perl list
    Eager       Non-lazily evaluated Perl list
=cut

s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3041	3147	
==>uild_info {
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} || "pugs";
    $ENV{PERL6LIB} = 'bl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6320	6422	
==>is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->nam <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11166	11268	
==>is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15088	15190	
==>-> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15088	15190	
==>-> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" }, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	483	589	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	483	589	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::En <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4768	4942	
==>t;   TODO?
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	235	348	
==>';

use base 'type::comparable';

my $OBJECT_ID = num->new(0);

# create a null object to 
# be used in bootstrapp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2224	2323	
==>ue if $O.property_value.exists($P);
    my $proto = $O.<[[Prototype]]>;
    return JSX::false if $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4294	4390	
==>icant. Defaults to 1 in Rules.

=head2 match (Str $match_against)

Instance method.  Returns a L< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22709	22797	
==><nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22709	22797	
==><nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	816	933	
==>yTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	816	933	
==>yTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      retu <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	199	305	
==>e ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	566	770	
==>uleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	567	771	
==>uleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3724	3876	
==>nt>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->compile( q(
                <?Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8022	8133	
==>less \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$ind <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8010	8121	
==>less \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$ind <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1286	1387	
==>, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1286	1387	
==>, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20205	20302	
==>ot be recompiled by
some other containing parser. In this case the result of the compilation
is re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20205	20302	
==>ot be recompiled by
some other containing parser. In this case the result of the compilation
is re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2879	3009	
==>.passed') ? 'ok ' : 'not ok ';
            $ok    .= _('$.number');
            $ok    .= " - " . _('$.description') if _('$.descri <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	160	258	
==>s = qw{
    name module_name abstract author version license
    distribution_type perl_version tes <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	266	372	
==>copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	266	372	
==>copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8488	8584	
==>NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8488	8584	
==>NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11873	12019	
==>rammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12152	12298	
==>rammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18374	18506	
==>cut_1:
    self["cutnum"] = $I0
    .return (self)
  cutatom:
    $P0 = self[0]
    $P0 = $P0.reduce(pad)
    $P0["iscut"] = 1
    $P <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2964	3066	
==>_}." } @forall),
		   $pretty->apply($tree)->layout,
	   );
	} || die "$@\n" . Data::Dumper::Dumper($da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	738	863	
==>al> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	761	876	
==>al> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12520	12661	
==>~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12520	12661	
==>~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Hand <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	468	576	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	468	576	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	694	840	
==>rn unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	666	807	
==>rn unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17502	17649	
==>data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repert <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17502	17649	
==>data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repert <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	393	541	
==>'
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it P <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	393	541	
==>'
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it P <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7494	7723	
==>yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7494	7723	
==>yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1142	1248	
==>);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1200	1306	
==>);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is ex <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	559	653	
==>link($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	559	653	
==>link($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descrip <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33176	33282	
==>e, the corresponding Template modules will be searched in the order
they appear in this array until a match <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33176	33282	
==>e, the corresponding Template modules will be searched in the order
they appear in this array until a match <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1453	1558	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1453	1558	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8469	8639	
==>keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8469	8639	
==>keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	936	1031	
==>ed on the command line
	$dumper = $format{$Pugs::Utils::Interface::format};

	# load the require <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2692	2900	
==>n$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2692	2900	
==>n$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17145	17254	
==>F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17302	17411	
==>F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1278	1381	
==>odes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1278	1381	
==>odes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attribute <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1554	1660	
==>\"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1542	1648	
==>\"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13018	13117	
==>unctions both take blocks of code, run the code, and test whether they live or die.

=== A Note abou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13076	13175	
==>unctions both take blocks of code, run the code, and test whether they live or die.

=== A Note abou <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1947	2070	
==>,  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capita <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1947	2070	
==>,  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capita <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18808	18935	
==>fthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20166	20293	
==>fthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen-> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4447	4574	
==>noop);};
  sub noop {
    $noop;
  }
  sub concat {
    my($o,$aref)=@_;
    die "bug $aref" if ref($aref) ne 'ARRAY';
    my @a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8825	8947	
==>chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(900 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8825	8947	
==>chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(900 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16163	16268	
==>ject, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16163	16268	
==>ject, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4725	4883	
==>*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it breaks other MM-users
    # $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;

    op <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	840	968	
==>v);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs => [],
		defined_nodes => Set::Object->new,
		names => {},
	}, $class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5439	5575	
==>}
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5632	5768	
==>}
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34366	34472	
==>.
The Set Names property of the new object is set from the named parameter
@set_names (an array ref), and M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34366	34472	
==>.
The Set Names property of the new object is set from the named parameter
@set_names (an array ref), and M <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3106	3222	
==>) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.is <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3652	3768	
==>) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1988	2146	
==>Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3518	3671	
==>Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4493	4626	
==>Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4493	4626	
==>Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($par <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5815	5940	
==>iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5815	5940	
==>iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5687	5810	
==>:Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5687	5810	
==>:Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	129	245	
==>- elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cle <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	129	245	
==>- elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cle <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7668	7781	
==>annels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # So <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7668	7781	
==>annels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # So <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20394	20489	
==>ormally canonicalized including the
'_' to '-' translation.  There are some application where th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20394	20489	
==>ormally canonicalized including the
'_' to '-' translation.  There are some application where th <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2072	2167	
==>$ENV{PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $dev_null = File: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	21	113	
==>:Num;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

packag <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23266	23371	
==>nately, the other
packages require your text data to be stored in a format other than Perl
files.  Or alte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23266	23371	
==>nately, the other
packages require your text data to be stored in a format other than Perl
files.  Or alte <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	642	766	
==>k_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a use/no line is part of the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	642	766	
==>k_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a use/no line is part of the <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1443	1592	
==>th;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1443	1592	
==>th;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1023	1150	
==>',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1023	1150	
==>',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5660	5805	
==>e' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /packag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5882	6027	
==>e' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /packag <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	691	832	
==>egister) {
        print << ".";
*** Installed!  If you would like to make Pugs a system-wide GHC package
    for use with other Haskell progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	201	306	
==>iler::Perl6;
#use Pugs::Utils::Dump;
use Data::Dumper;
use strict;
use warnings;

if ( @ARGV ) {
    my @a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3293	3413	
==>te => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3293	3413	
==>te => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	479	587	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Vali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	479	587	
==>t_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Vali <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	448	558	
==>> 8;

BEGIN {
  __PACKAGE__->mk_accessors(qw/
    tokenTable 
    termTable 
    operatorTable 
    whitespaceT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4939	5069	
==>te_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4939	5069	
==>te_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11146	11258	
==>($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_alread <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11146	11258	
==>($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_alread <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3515	3762	
==>events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, % <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3515	3762	
==>events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, % <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3789	3886	
==>ead1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kap <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3789	3886	
==>ead1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kap <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	551	661	
==>arizing
        (map { $_->send('MRO') } @supers ), # the MRO of all the superclasses
        list->new(@supers <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8473	8722	
==>[
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8473	8722	
==>[
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24510	24640	
==>eturn if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20931	21061	
==>eturn if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3747	3851	
==>eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5649	5753	
==>eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21324	21432	
==>tcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44231	44339	
==>tcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2220	2328	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2220	2328	
==>xt::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25313	25445	
==>f->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25872	26004	
==>f->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	126	541	
==>1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	126	541	
==>1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Ro <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2238	2401	
==>elf, $diagnostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3355	3493	
==>$desc = $1;
#    }
#    # backslash
#    $file =~ s/\\/\\textbackslash\{\}/g;
#    # segils
##    $file =~ s/([\$])/\\$1/gm;
#    # latex s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8984	9103	
==>($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.differenc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12461	12580	
==>($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.differenc <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	230	381	
==>ateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	230	381	
==>ateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4305	4392	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4305	4392	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:1 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1511	1720	
==>%events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_lis <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1511	1720	
==>%events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_lis <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9137	9250	
==>et2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9137	9250	
==>et2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	670	789	
==>d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_R <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	670	789	
==>d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5490	5604	
==>1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5490	5604	
==>1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	166	298	
==>recursion';

sub new {
    my $class = shift;
    bless {
        params => undef,
        param_stack => [],
    }, $class;
}

sub e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5870	5976	
==>Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5928	6034	
==>Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19759	20006	
==>->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40219	40466	
==>->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	427	571	
==>ded.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking of these as numbers, th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	427	571	
==>ded.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking of these as numbers, th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9276	9391	
==>) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9276	9391	
==>) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	769	888	
==>ng
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	769	888	
==>ng
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	818	916	
==>ofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	818	916	
==>ofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15091	15197	
==>of a header.  The header value is set if you pass
an argument to the method.  The old header value is alway <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15091	15197	
==>of a header.  The header value is set if you pass
an argument to the method.  The old header value is alway <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7346	7455	
==>d set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::Fa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7346	7455	
==>d set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::Fa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18101	18255	
==>nstant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18380	18534	
==>nstant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1903	2014	
==>"compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1903	2014	
==>"compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $fi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5107	5207	
==>zed %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've regi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5107	5207	
==>zed %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've regi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	601	720	
==>\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	601	720	
==>\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15296	15402	
==>ti sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15354	15460	
==>ti sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	38	178	
==>l object.
our $POE::Kernel = ::POE::Kernel.new;

class POE::Kernel {
  # FIFO containing the events to call.
  has Code @:events;

  submetho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37627	37716	
==>ioned.

=item C<difference (Relation::Example $other!) returns Relation::Example>

This me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1208	1302	
==>supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1208	1302	
==>supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10071	10168	
==>luation will not be set at all.  The scope of immediate
validation is kept to the minimum possible <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10071	10168	
==>luation will not be set at all.  The scope of immediate
validation is kept to the minimum possible <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1481	1657	
==>ndex--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1481	1657	
==>ndex--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15773	15872	
==>.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15831	15930	
==>.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	894	1001	
==>op :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stm <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	894	1001	
==>op :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4026	4215	
==>};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4026	4215	
==>};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	805	967	
==>=> 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	805	967	
==>=> 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	619	719	
==>my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	619	719	
==>my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstor <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1073	1194	
==>tart;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

D <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1073	1194	
==>tart;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

D <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1821	1923	
==>oody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1821	1923	
==>oody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10741	10922	
==>:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10741	10922	
==>:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7992	8133	
==>_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7992	8133	
==>_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4030	4129	
==>od vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4030	4129	
==>od vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5701	5807	
==>G{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this doe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5701	5807	
==>G{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this doe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20763	20874	
==>E<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20763	20874	
==>E<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20515	20621	
==>refixing field names with ':' allow you to force a
specific spelling.  For example if you really want a hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20515	20621	
==>refixing field names with ':' allow you to force a
specific spelling.  For example if you really want a hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8469	8624	
==>tr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8469	8624	
==>tr( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3024	3189	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3024	3189	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub con <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3332	3432	
==>n_to_number( version => $version );

Returns a proper module version, or '0.0' if none was available. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3117	3208	
==>,X), Z), !.
p6_alternatives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_concatenati <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	906	1011	
==>y $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	873	978	
==>y $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1044	1150	
==>nt 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1044	1150	
==>nt 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	339	444	
==>ureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<Variable <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	339	444	
==>ureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<Variable <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	59	166	
==>TION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURIT <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	59	166	
==>TION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURIT <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2727	2879	
==>$header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2727	2879	
==>$header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $l <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10893	11001	
==>y(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10893	11001	
==>y(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3529	3648	
==>'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # sm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3529	3648	
==>'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # sm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	467	565	
==>erl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	467	565	
==>erl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pug <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12877	12981	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12935	13039	
==>tr $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14303	14435	
==>affic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14303	14435	
==>affic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13046	13141	
==>_vars) {
		return $prev_generic + Set::Object->new($t_of_param);
	} else {
		return $prev_generi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9848	9945	
==>nite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Inf <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9848	9945	
==>nite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Inf <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8351	8509	
==>} ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8351	8509	
==>} ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4729	4864	
==>, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4729	4864	
==>, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11524	11623	
==>ore docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant though <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11524	11623	
==>ore docs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant though <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	484	581	
==>eam cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys sho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	484	581	
==>eam cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys sho <==
2	/Users/nnunley/pugs/util/package-osx.pl	11215	11350	
==>"Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{
                print "Problem removing \$file\: \$_\\n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4036	4174	
==>$self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { required => 1, store => \$file }
    };

    check( $tm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30094	30191	
==>nspecting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this object. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	588	725	
==>rint "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	588	725	
==>rint "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub deb <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1941	2067	
==>ry!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1941	2067	
==>ry!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_param <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	719	895	
==>@_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2765	2895	
==>mmar     Perl 6 pattern matching namespace
    List        Perl list
    Lazy        Lazily evaluated Perl list
    Eager       Non <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4760	4885	
==>@!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4760	4885	
==>@!children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	38	147	
==>:Core::Type;

package nil;

use strict;
use warnings;

use base 'type';

our $NIL = bless \(my $var) => __PACK <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5673	5774	
==>g'=>$_[1]) if $cls eq 'Complex';
    return new_box('Str',@_) if $cls eq 'Str';
    return get_meta('R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12064	12259	
==>in        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivial cases th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15541	15736	
==>in        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivial cases th <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3708	3833	
==>kes --pge as the path of the PGE shipped with Pugs.
  --bash=$bash
    linuxrc needs a bash-compatible shell.
  --inputrc=$inp <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7887	8006	
==>has a different return type.  List instead of Scalar.
# \\n   List      pre     reduce  safe   (Array: Code)\
multi Arra <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	683	777	
==>$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a" <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	683	777	
==>$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5158	5276	
==>0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2700	2818	
==>0], '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9246	9400	
==>*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9246	9400	
==>*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1228	1334	
==>the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
continuation returns) with a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1228	1334	
==>the parser
succeeds, it tail-calls the continuation (i.e. returns whatever the
continuation returns) with a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16179	16406	
==>w($e, sub {
                                my $e = shift;
                                $e->get('$attrs')
                                  ->store(
                                      $e->get('$_')->name => $e->get('$_')-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23104	23225	
==>str(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19525	19646	
==>str(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11171	11281	
==>ord the time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11171	11281	
==>ord the time the last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.la <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3505	3643	
==>bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3698	3836	
==>bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4384	4517	
==>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4384	4517	
==>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2424	2522	
==>except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last ele <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2424	2522	
==>except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last ele <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2175	2281	
==>$code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (define <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2233	2339	
==>$code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (define <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3142	3268	
==>die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3142	3268	
==>die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6484	6618	
==>nction  pre     all     safe   (List)\
\\n   Junction  pre     one     safe   (List)\
\\n   Junction  pre     none    safe   (List)\
\\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17757	17908	
==>a_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17757	17908	
==>a_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5979	6079	
==>hould be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5979	6079	
==>hould be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15318	15419	
==>pan objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15318	15419	
==>pan objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	398	593	
==>)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	398	593	
==>)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	428	527	
==>PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_metho <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	428	527	
==>PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_metho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10006	10158	
==>t();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = un <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10006	10158	
==>t();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = un <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1786	1906	
==>clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1786	1906	
==>clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Pro <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	97	194	
==>", &parse_ws_lit);
    $optable->addToken("term:::", "term:", "nows", "PGE::Exp::Cut");
    $optab <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8036	8131	
==>eturns 
a 2 element list in (index, value) order, C<pairs> a C<Pair(index, value)>.

C<@array> i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8614	8703	
==>ie::TypeSafe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7498	7627	
==>6),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7498	7627	
==>6),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr" <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	527	663	
==>t

sub new {
    my($proto, $thing) = @_;

    my $self = {};
    if( ref $thing eq 'GLOB' ) {
        bless $self, 'Test::Harness::Itera <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25444	25577	
==>ree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	767	861	
==>than    { $_[0]->_compare($_[1]) == -1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equal <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42913	43066	
==>lf:')->class;                
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('can'),
    # met <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4680	4788	
==>ne of the messages in the DIAGNOSTICS section.

=cut

sub runtests {
    my(@tests) = @_;

    local ($\, $,) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1764	1901	
==>oncat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1775	1912	
==>oncat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	906	1010	
==>odings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	906	1010	
==>odings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1163	1264	
==>ular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 I <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1163	1264	
==>ular, 
note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 I <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2219	2347	
==>small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atil <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2219	2347	
==>small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atil <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3295	3409	
==>que_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3997	4103	
==>que_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	404	501	
==>used for
dispatching private methods.

=back

Normally, when you declare a Method on a Class, it i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1672	1787	
==>is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1672	1787	
==>is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1243	1420	
==>chlib            => $config); 
    add_path(privlib            => $config); 
    add_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6190	6304	
==>the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6190	6304	
==>the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4469	4607	
==>tes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4469	4607	
==>tes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $docum <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21334	21431	
==>l flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixes

More tests a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8193	8292	
==>:Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2018	2117	
==>:Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7039	7163	
==>);
  });

  # seol (end of line, in single-line mode)
  $self->add_handler('\Z' => sub {
    my ($S, $cc) = @_;
    $S->warn( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1086	1196	
==>nsity => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1086	1196	
==>nsity => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2106	2216	
==>) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2106	2216	
==>) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11314	11428	
==>class Pipe {
    # Easy to use, unidirectional pipe. Uses the shell.

    multi sub open (Str $command, Bool :$r is <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18483	18678	
==>$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs::Internals::sprintf($conversion,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17818	17940	
==>]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22763	22866	
==>m; but often a template will
choose to show less than all of the available details depending on the
inte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22763	22866	
==>m; but often a template will
choose to show less than all of the available details depending on the
inte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5416	5569	
==>tdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINKING unless -d $my_bindir;

        ### load in the alternatives c <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1562	1661	
==>as_num128'},'Clutter::num_size 128;');


subset bit  of uint1 where { true };
subset byte of uint8 w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14423	14530	
==>ext;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14423	14530	
==>ext;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start => 1.0, en <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2453	2580	
==>container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$co <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2453	2580	
==>container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	844	1020	
==>pture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	837	1013	
==>pture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13672	13808	
==>two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13672	13808	
==>two sets.  This is
equivalent to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7641	7789	
==>_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7641	7789	
==>_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10112	10232	
==>%$prog;

my $r = Runtime->new( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? ! <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18544	18646	
==>nd

.namespace [ "PGE::Exp::Concat" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp0, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2167	2313	
==>6];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2167	2313	
==>6];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7627	7731	
==>}
  reduce_1:
  my $arity = $$temp1{arity};
  $temp1 = pop @operatorStack;

  reduce_args:
  goto reduce_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4095	4215	
==>lass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance_attrs($self)->{'$:superclass'} = shift i <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1454	1573	
==>ens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	512	651	
==>nt_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	718	857	
==>nt_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20634	20742	
==>e new (under development) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20634	20742	
==>e new (under development) enterprise-strength and Perl implemented
database server named L<Genezzo> (see also <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1693	1798	
==>nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

packa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1693	1798	
==>nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

packa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8418	8534	
==>Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8418	8534	
==>Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurren <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38200	38295	
==>t possibly empty) Template text string in
its positional parameter $text (a string), and a Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38200	38295	
==>t possibly empty) Template text string in
its positional parameter $text (a string), and a Messa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	670	798	
==>art;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	670	798	
==>art;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	522	646	
==>eval 
  q(
    use FindBin '$Bin';
    use lib
        "$Bin/lib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin/.. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1591	1702	
==>gs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi  Num::log (  Num  $x             ; Num :$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7808	7947	
==>] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7808	7947	
==>] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3030	3176	
==>oc => 'right',
        precedence => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '||',
        assoc = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	52	152	
==>le::Perl5;
use base qw(Pugs::Compiler::Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
ou <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	305	431	
==>uccess flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	305	431	
==>uccess flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2772	2925	
==>',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12406	12541	
==>ail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2970	3079	
==>=> $node->type,
				struct_equiv => $node,
			);
		} else {
			my $type = $self->guess_perl_type($node);
			wa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43267	43370	
==>EE ALSO

The Perl 6 package L<Relation::Example> is bundled with Relation and
provides a reference imple <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18977	19070	
==>e that corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate ran <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22627	22720	
==>e that corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate ran <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11218	11330	
==>returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11218	11330	
==>returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	396	509	
==>ace where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	396	509	
==>ace where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so i <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4971	5079	
==>ess to the header fields in the requests
sent and responses received, then you should use the full object-ori <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4971	5079	
==>ess to the header fields in the requests
sent and responses received, then you should use the full object-ori <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2058	2166	
==>ected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2116	2224	
==>ected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8042	8132	
==>-----------------------------------------------------------------
## utility methods

# NOT <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8042	8132	
==>-----------------------------------------------------------------
## utility methods

# NOT <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	201	310	
==>requiring changes to user p5 code.  It was explored as a possible
# bootstrap path for perl6.

# The perl5 reg <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1142	1266	
==>art => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1142	1266	
==>art => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25452	25564	
==>components concerned, provided that you include the source
code of the other components when and as the GPL requi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25452	25564	
==>components concerned, provided that you include the source
code of the other components when and as the GPL requi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1178	1275	
==>= %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<RE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1178	1275	
==>= %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<RE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1035	1154	
==>racted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1035	1154	
==>racted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6011	6129	
==>rn value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_prec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10268	10386	
==>rn value');
is($Bar->superclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_prec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1966	2072	
==>$other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1966	2072	
==>$other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.member <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8391	8515	
==>mit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8391	8515	
==>mit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10632	10740	
==>s primitive is unsafe is builtin {
        die "fancy open modes not supported yet" if $a and ($r or $w or $r <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3454	3582	
==>next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3454	3582	
==>next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	768	975	
==>st_error ), return;

    ### make it a P::C item
    $args->{file} = Path::Class::file( $file );

    while( my($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }

    unless( $meta or $meta = $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5575	5667	
==>ams, $self->resolve_type($sub->accepts_type) ." ". (my $sym = $self->reduce($sub));
				$self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7479	7607	
==>_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7228	7350	
==>_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1569	1712	
==>100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1569	1712	
==>100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting mat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12832	12931	
==>node_id=531465

  It may not be possible to get Match objects (only strings) into
  $1,etal, or even <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	532	632	
==>h RSA Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
shoul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	532	632	
==>h RSA Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
shoul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	278	368	
==>Grammar::Rule;
use Pugs::Runtime::Match;
PRELUDE

RULEMATCH:
while ($tail =~ m/rule\s+(\S+) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1282	1404	
==>f: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1282	1404	
==>f: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1265	1358	
==>IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1265	1358	
==>IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each tim <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6712	6809	
==>RL and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $fil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6712	6809	
==>RL and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $fil <==
2	/Users/nnunley/pugs/util/version_h.pl	1917	2016	
==>urning
  # "io" warnings off, perl will print "Filehandle STDIN reopened...", because
  # our handle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12242	12542	
==>ne_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12242	12542	
==>ne_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2888	2991	
==>ext = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2888	2991	
==>ext = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal e <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6441	6596	
==>,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BA <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7322	7430	
==>bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefix_and_cleanup {
    my($o,$prefix)=@_;
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7221	7337	
==>volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1] <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7221	7337	
==>volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2294	2401	
==>tinuous ciphering.

Both of these functions return a closure.  Call the closure with a block of 
data to hav <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2294	2401	
==>tinuous ciphering.

Both of these functions return a closure.  Call the closure with a block of 
data to hav <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1267	1384	
==>n_zero_val 2>nul
goto endofperl
@rem ';
#!perl
#line 15
print "[$_]" for ($0, @ARGV);
print "\n";
__END__
:end <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	549	660	
==>hile @values {
	    take $expression
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S2 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3750	4016	
==>e module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3750	4016	
==>e module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21545	21643	
==>wish to
override some of your messages, showing other messages instead which are
more appropriate t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21545	21643	
==>wish to
override some of your messages, showing other messages instead which are
more appropriate t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6748	6889	
==>aded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we assume that module intention <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6748	6889	
==>aded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we assume that module intention <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	50	244	
==>fc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	50	244	
==>fc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24715	25012	
==>l
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses')
                            ->apply(
                              block->new($e, sub {
                                  my $e = shift;
                                  $e->ge <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2390	2498	
==>ify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2390	2498	
==>ify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method int <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22698	22792	
==>ng.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22698	22792	
==>ng.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35426	35533	
==>n,}>, C<{n,m}>)

Data: one object

=head2 group

Family: group

Types: group (C<(?:>, C<(?i-s:>)

Data: arra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	565	672	
==>ti submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	565	672	
==>ti submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	453	562	
==>elf.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $h <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	453	562	
==>elf.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3483	3649	
==>ge) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3483	3649	
==>ge) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39265	39357	
==>ple>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39265	39357	
==>ple>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	831	951	
==>=> 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	831	951	
==>=> 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10085	10182	
==>f Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10085	10182	
==>f Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9054	9246	
==>.
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9889	10081	
==>.
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	88	278	
==>return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	88	278	
==>return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8208	8334	
==>num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8266	8392	
==>num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7532	7639	
==>>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7532	7639	
==>>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fire <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4165	4285	
==>if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4165	4285	
==>if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10294	10412	
==>DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10294	10412	
==>DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3008	3130	
==>ubscription);
            $subscription.subscriber.remove_subscription($subscription);
        }
        
        method ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	75	171	
==>6::Core::Num;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
use warni <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5748	5920	
==>...], \000
    # goto term_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newfr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4701	4828	
==>= ""; my $code2 = "";
    my $code0 = "my \$f0 = \$fs[0]; ";
    for my $i (reverse(1..$#a)) {
      $code0 .= "my \$f$i = \$fs[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1297	1418	
==>>pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1297	1418	
==>>pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6302	6410	
==>coded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $val <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6302	6410	
==>coded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $val <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3446	3573	
==>up?)

        my $cygroot = $ENV{'!C:'};

        $cygroot =~ s{\\bin$}{};

        $full_blib .= join(q{}, q{:}, $cygroot, $ful <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2519	2645	
==>ll {
    my $self   = shift;
    my $method = shift;
    my $obj = $self->load($method) or return;

    unshift @_, $obj;
    g <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1805	2013	
==>s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1805	2013	
==>s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15650	15787	
==>ix" );
}

sub ternary {
    my $n = $_[0];
    # print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21739	21893	
==>st->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44646	44800	
==>st->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1560	1677	
==>rgs->{dir}'] );
        return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( dir => '/some/dir' );

Rem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2609	2722	
==>be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2609	2722	
==>be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2799	2908	
==>t.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2799	2908	
==>t.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7460	7558	
==>return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more inco <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7460	7558	
==>return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more inco <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3987	4130	
==>> $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4180	4323	
==>> $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	142	263	
==>sinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = multi su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17013	17115	
==>ology
in an easily accessable manner, such that would not be possible if its
functionality was subsumed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17013	17115	
==>ology
in an easily accessable manner, such that would not be possible if its
functionality was subsumed <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9912	10006	
==>, intersection, difference, and a few
other operations.

This class also provides methods for i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9912	10006	
==>, intersection, difference, and a few
other operations.

This class also provides methods for i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17654	17746	
==>METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accep <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17654	17746	
==>METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10936	11073	
==>{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _em <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11689	11810	
==>ub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12047	12168	
==>ub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21822	21921	
==>'d chosen an awful name
for the field.  There will still be a class() method in F<__object__>,
but i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12519	12685	
==>. ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{int} 
               || exists <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3518	3637	
==>ent {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3518	3637	
==>ent {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1522	1648	
==>lddir ) {
#             JIB::Utils->_rmdir( dir => $builddir )
#                 or error( "Could not clean out '$builddir'" ), <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	782	894	
==>/g)[0] } split "\n", $args{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    $args{using}->() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10698	10830	
==>pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10692	10824	
==>pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33252	33366	
==>ear in this array until a match for that message is found.  Since a
program or library may wish to override the use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33252	33366	
==>ear in this array until a match for that message is found.  Since a
program or library may wish to override the use <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1977	2075	
==>d $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1977	2075	
==>d $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11854	11951	
==>d header field.  Previous values
for the same field are retained.

As for the header() method, the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11854	11951	
==>d header field.  Previous values
for the same field are retained.

As for the header() method, the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	810	913	
==>the 
Cipher API operates at the byte level, not the character level, so different 
character encodings m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	810	913	
==>the 
Cipher API operates at the byte level, not the character level, so different 
character encodings m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16020	16281	
==>$e = shift;
                    $e->get('$c')
                      ->send('get_attributes')
                      ->apply(
                          block->new($e, sub {
                                my $e = shift;
                                $e->get('$at <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8349	8463	
==>de $cmp = &infix:«<=>» --> Scalar) {
    List::min $cmp, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	233	376	
==>=> 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	233	376	
==>=> 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	487	615	
==>h @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	487	615	
==>h @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1666	1821	
==>em);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1666	1821	
==>em);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11576	11708	
==>t if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11576	11708	
==>t if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5721	5863	
==>( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5733	5875	
==>( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print " <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5471	5594	
==>chy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5471	5594	
==>chy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the mult <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4946	5064	
==>e height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4946	5064	
==>e height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3203	3301	
==>Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3203	3301	
==>Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	911	1114	
==>~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	911	1114	
==>~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        }, <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	706	813	
==>.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 1 <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	706	813	
==>.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5135	5246	
==>d> method reads a config file, and returns a boolean value
of success or failure

=item data

The C<data> method <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5135	5246	
==>d> method reads a config file, and returns a boolean value
of success or failure

=item data

The C<data> method <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	291	423	
==>s version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	291	423	
==>s version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_time_zone

=cut

method from_dates ($ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	520	613	
==>etup_compression() if $compression_wanted;

my %request = (upload => 1, version => VERSION, sm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8078	8174	
==>able(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1903	1999	
==>able(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statemen <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2645	2745	
==>T_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = < <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2645	2745	
==>T_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = < <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	838	986	
==>in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            m <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	838	986	
==>in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2252	2348	
==>rl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 S <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2252	2348	
==>rl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6317	6445	
==>mit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6317	6445	
==>mit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21357	21457	
==>lechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21357	21457	
==>lechschmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	909	998	
==>etta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	909	998	
==>etta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	503	662	
==>f
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_as_bool
       p6_as_num
       p6_as_str
       p6_as_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2774	2859	
==>compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2774	2859	
==>compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6757	6900	
==>{
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { requi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12842	12980	
==>{
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { requi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11316	11425	
==>most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is suggested you don' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11374	11483	
==>most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is suggested you don' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30844	30946	
==>me; it
must be the same for every module in the same set as the current one.  The
Member Name comes nex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30844	30946	
==>me; it
must be the same for every module in the same set as the current one.  The
Member Name comes nex <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8255	8363	
==>L])  --> "x", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_modifier_spec_neg(L), !.
p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28919	29015	
==>sume an ampersand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
are pr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3249	3384	
==>rser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3249	3384	
==>rser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	143	263	
==>re;

package block;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15668	15805	
==>ethod run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.sh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15668	15805	
==>ethod run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.sh <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8693	8793	
==>s encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events

=ove <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8693	8793	
==>s encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Events

=ove <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	911	1024	
==>tcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	841	947	
==>head1 NAME

Newton - performs one dimensional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4967	5223	
==>_>;
 }


 multi Array::splice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8813	8940	
==>tatus dir like dpkg
        my $postrm = $self->control_dir( $inst_pkg->package )
                          ->file( $conf->postr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2904	3001	
==>e request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r.rem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2904	3001	
==>e request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r.rem <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8990	9092	
==>e used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8990	9092	
==>e used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#e <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	486	736	
==>0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        % <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	486	736	
==>0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        % <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2317	2422	
==>ALLARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36236	36343	
==>me);
  }

Here's a sample execution:

  use Regexp::AndBranch;
  my $parser = Regexp::AndBranch->new;

  # m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	19	120	
==>ammar::Infix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Oper <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2041	2144	
==>d, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2041	2144	
==>d, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @valu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2953	3137	
==>erl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [ma <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2953	3137	
==>erl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [ma <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2657	2763	
==>e above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2657	2763	
==>e above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3669	3807	
==>ath ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3669	3807	
==>ath ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7198	7295	
==>ods:

=over 4

=item $parser = Regexp::Parser->new($regex)

You can send the regex to be parsed as <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26409	26505	
==>.

=item C<HARNESS_COMPILE_TEST>

When true it will make harness attempt to compile the test usin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4533	4676	
==>,\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4673	4816	
==>,\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	404	522	
==>urn @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	404	522	
==>urn @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24150	24248	
==>t of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation::Examp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27020	27122	
==>le::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27020	27122	
==>le::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedTex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2993	3099	
==>eading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6470	6576	
==>eading === $?SELF!heading
        and $other!body === $?SELF!body;
}

method not_equal (Relation $other!) r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26679	26776	
==>);
is(t($plus_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14604	14699	
==>ion
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw init=/linuxrc ramdisk_size=$initrd_siz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8076	8217	
==>ch ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8269	8410	
==>ch ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2975	3092	
==>@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2975	3092	
==>@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1799	1902	
==>>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; you can <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1799	1902	
==>>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is free software; you can <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2962	3113	
==>ew(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol->new('&dispatcher' => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4771	4895	
==>ew(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol->new('&dispatcher' => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3407	3631	
==>:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'id <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3274	3486	
==>:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'id <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3052	3172	
==>, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .arg <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3052	3172	
==>, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .arg <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1850	2046	
==>gin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1850	2046	
==>gin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9549	9660	
==>) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9549	9660	
==>) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5167	5340	
==>ex\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5155	5328	
==>ex\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable ar <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15673	15774	
==>t is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15731	15832	
==>t is what I hope).

= ENVIRONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18206	18292	
==>,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11994	12106	
==>ord the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11994	12106	
==>ord the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1549	1704	
==>0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1549	1704	
==>0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HT <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11287	11389	
==>url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pac <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11287	11389	
==>url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34159	34256	
==>and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<new( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34159	34256	
==>and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C<new( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	67	169	
==>for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	67	169	
==>for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1383	1477	
==>>{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1523	1617	
==>>{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9491	9644	
==>lear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self = shift; " . 
                _emit <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4439	4550	
==>name => "anonymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unle <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	537	702	
==>$program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	530	695	
==>$program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unles <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4103	4293	
==>th if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4103	4293	
==>th if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	32	149	
==>P::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	32	149	
==>P::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1501	1678	
==>(new_arr)
                end
                stack.push(new_arr)
            elsif token == ')'
                stack.pop
            else 
                stack[-1].push(token) <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	515	615	
==>and have been in the Perl Monks
# thread mentioned above.
#
# To test head.p6, tail.p6, rev.p6, mid.p <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14201	14300	
==>ystem "tar", "-xvjf", $grub_local, "-C", $cdroot };

my $wrote_menulst = 0;
step
  descr  => "Creati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7739	7894	
==>print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7751	7906	
==>print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	0	96	
==>package Pugs::Runtime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	0	96	
==>package Pugs::Runtime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5020	5128	
==>bject's internal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    pus <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5020	5128	
==>bject's internal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    pus <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	295	391	
==>riter> that an
upcoming closing node is to be represented in a certain non-normative
way in the s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	295	391	
==>riter> that an
upcoming closing node is to be represented in a certain non-normative
way in the s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22803	22892	
==>::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22803	22892	
==>::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1397	1509	
==>tr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $str) returns Str is builtin is primitive { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2592	2705	
==>antifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2592	2705	
==>antifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7534	7653	
==>ee[0] eq '"PApp"' {   
        my %app = $tree[1];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32541	32641	
==>s is zero-width (like an anchor).

=back

If there is a method with the name of one of these attribut <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25705	25810	
==>ch.
 * For instance, /[a-z].foo/ has a regmust of 'foo' and a regback of 2.]

 [regexp.h]
 #define ROPT_AN <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	224	325	
==>ption;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my $option = %para{'x'} // "we <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2887	2986	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivale <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	151	250	
==>use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivale <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19644	19756	
==>nd need to quote.
  rm(Re,F0,F1,B0,B1,E0,E1).


rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- C \= 10, !. %\n
rm( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12857	12961	
==>pty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12857	12961	
==>pty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2515	2648	
==>arlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
} <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2515	2648	
==>arlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
} <==
2	/Users/nnunley/pugs/util/func_refact.pl	100	200	
==>(help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8293	8404	
==>d intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at l <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11770	11881	
==>d intersection (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at l <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17805	17953	
==>(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17382	17512	
==>${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13803	13933	
==>${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1931	2034	
==>und in \$::Class " . $class->id->to_native;             
}

$::ENV = Perl6::Runtime::get_top_level_env() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12604	12766	
==>ten as $a[1]"
        if (   (  exists $n->{exp2}{int} 
               || exists $n->{exp2}{scalar} 
               ) 
               && exists $n->{exp1}{arra <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12581	12678	
==>nt the
current working features.

This module deals with encoding and decoding of strings with HTM <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12581	12678	
==>nt the
current working features.

This module deals with encoding and decoding of strings with HTM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4132	4231	
==>oolean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4132	4231	
==>oolean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	400	496	
==>ectory of the repository. $root/jibs if not specified.

=item pool_rel

The path to the pool dire <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7894	8007	
==>ssume that if this method is being called, the Secret 
Police are breaking down the door and Our Heroes need any s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7894	8007	
==>ssume that if this method is being called, the Secret 
Police are breaking down the door and Our Heroes need any s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6522	6629	
==>f );
}

# --------- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6522	6629	
==>f );
}

# --------- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18885	18995	
==>:Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18885	18995	
==>:Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22830	22947	
==><This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22830	22947	
==><This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6235	6352	
==>Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-like syntax, contained in a package

### r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6022	6136	
==>Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-like syntax, contained in a package
### r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20986	21099	
==>red set of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation are of the same <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25538	25651	
==>red set of tuples, each of which is an
unordered set of named attributes; all tuples in a Relation are of the same <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17393	17509	
==>ted ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17393	17509	
==>ted ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	297	421	
==>ssage.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	297	421	
==>ssage.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24688	24790	
==>ption) any later version.  You should have received a
copy of the GPL as part of the Rosetta distributi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24688	24790	
==>ption) any later version.  You should have received a
copy of the GPL as part of the Rosetta distributi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	260	354	
==>amed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	260	354	
==>amed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List metho <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2183	2291	
==>anslates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Ri <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2183	2291	
==>anslates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Ri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2180	2291	
==>odel::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
} <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2180	2291	
==>odel::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	740	886	
==>ic { '' }

    sub fmap {
        Carp::croak "virtual method fmap called on @_";
    }

    sub str {
        Carp::croak "virtual method str call <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21215	21314	
==>re being turned on or off.  Also, if the flag handler returns 0,
that flag is removed from the resul <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4582	4728	
==>s_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart => <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4582	4728	
==>s_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6466	6565	
==>er>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6466	6565	
==>er>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual cip <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11426	11537	
==>header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11426	11537	
==>header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header(" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32831	32938	
==>ernal files for reading, mainly in the
C<translate_message()> method, but it has no other side effects.

A T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32831	32938	
==>ernal files for reading, mainly in the
C<translate_message()> method, but it has no other side effects.

A T <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25604	25700	
==>says how many characters back from
 * where regmust matched is the earliest possible start of the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16333	16438	
==>arameter's
corresponding argument is not provided).  If the optional named parameter
$parent_node (a Node) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16333	16438	
==>arameter's
corresponding argument is not provided).  If the optional named parameter
$parent_node (a Node) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9379	9543	
==>6 Code
  
  class Test::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	663	759	
==>s;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32179	32277	
==>tion and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36729	36827	
==>tion and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations, th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5101	5258	
==>=-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5101	5258	
==>=-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_p <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2252	2393	
==>last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2252	2393	
==>last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_ele <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15225	15357	
==>6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15504	15636	
==>6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9186	9337	
==>"    my \$final_ast = \n" .
                "        ::compile_rule( q( [ <?ws>? <\@grammar1::statements> ]* <?ws>? ) )\n" .
                "        -> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3049	3142	
==>Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif($stage eq 'pil_tree') {
	    my $pi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2191	2286	
==>ame || $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $s <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1297	1391	
==>ame || $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3575	3699	
==>if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3575	3699	
==>if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1261	1378	
==>->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1261	1378	
==>->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20715	20827	
==>rule EmptyStatement :words {  # see 12.3
      <';'>
}
rule ExpressionStatement :words {  # see 12.4
      <!befo <==
2	/Users/nnunley/pugs/util/claim_drift.pl	925	1072	
==>l2abs($_[0])) };

    $clean->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	498	604	
==>rsion of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8554	8664	
==>::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8254	8361	
==>::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	218	327	
==>my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1051	1150	
==>t hand side must be a core type";    
    return num->new($left->to_native + $right->to_num->to_nati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7942	8075	
==>x,
      flags => $rx->{flags}[-1],
      family => 'prop',
      type => $type,
      data => '',
      neg => ($neg ? 1 : 0),
    }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8281	8393	
==>$n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capt <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9943	10067	
==>-> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Compa <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1158	1279	
==>-> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Compa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2201	2343	
==>};
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2201	2343	
==>};
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What con <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	929	1029	
==>ts for debugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_addres <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	929	1029	
==>ts for debugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote_addres <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22065	22293	
==>onstant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22344	22572	
==>onstant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2136	2232	
==>= {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2136	2232	
==>= {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2378	2500	
==>ues>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2378	2500	
==>ues>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	215	327	
==>ct but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	215	327	
==>ct but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_i <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	390	516	
==>=> '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=h <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	390	516	
==>=> '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2032	2137	
==>_or_equal_to($params->length) == $bit::TRUE)
        || confess "too many arguments passed to closure got( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5140	5239	
==>$node = shift;

	my $thunk = $node->struct_equiv;
	my $child = $thunk->val->struct_equiv;

	if ($chi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3683	3793	
==>elf!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Arra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3683	3793	
==>elf!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Arra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19830	19930	
==>icks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19830	19930	
==>icks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.user("ni <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11776	11877	
==>wo strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a litt <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11834	11935	
==>wo strings');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a litt <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1595	1699	
==>e Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins My <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1595	1699	
==>e Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins My <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2408	2561	
==>ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2419	2572	
==>ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1566	1687	
==>lation    => { allow => ISA_JIB_INSTALLATION },
        repository      => { allow => ISA_JIB_REPOSITORY },
    };

    su <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17202	17308	
==>::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primitive is builtin is safe {
    my $flen = $fmt.chars <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1162	1303	
==>make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inn <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1162	1303	
==>make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1152	1255	
==>tory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1152	1255	
==>tory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6764	6878	
==>rror, '>', $error_file) or die "Failed to open $error_file: $!";
$template = HTML::Template->new(filename => 'util/ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2236	2335	
==>/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utili <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2236	2335	
==>/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utili <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1527	1654	
==>le::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NA <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1527	1654	
==>le::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NA <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26689	26785	
==>tion respectively.  This method will fail if
any members of C<$attrs> do not match attribute name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31241	31337	
==>tion respectively.  This method will fail if
any members of C<$attrs> do not match attribute name <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	409	545	
==>() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	409	545	
==>() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	841	976	
==>hunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2-$t;
    #$v;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3237	3469	
==>:debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3237	3469	
==>:debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   exp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12764	12872	
==>->($x);
}

my %as_str_handlers =
    ( undef => sub { Carp::carp("p6_as_str called on undef"); "" },
      nu <==
2	/Users/nnunley/pugs/util/fixauthors.pl	346	482	
==>next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @h <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2388	2518	
==>s %.subscriptions of Set;

        # when you say add_subscription("foo", ...) then "foo" is the name of the subscription
        m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15313	15422	
==>lf->reduce($ast);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($para <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7719	7860	
==>} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7912	8053	
==>} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  mat <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1339	1460	
==>OPSIS

  class MySession is POE::Session {
    method dispatch (Str $event, *@args) {
        given $event {
            w <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	720	847	
==>e accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	720	847	
==>e accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16336	16467	
==>cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12757	12888	
==>cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4176	4340	
==>@:slots')}, mk_containers(@$values);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @{$self->get_valu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2563	2680	
==>all e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelan <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2563	2680	
==>all e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	837	1022	
==>token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @cur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	837	1022	
==>token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @cur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14315	14416	
==>whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @tar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14315	14416	
==>whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @tar <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18674	18805	
==>str ~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28137	28237	
==>e following
methods:

=over 4

=item my $d = $obj->data()

The object's data.  This might be an array <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1482	1584	
==>l};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{rat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1622	1724	
==>l};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{rat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4512	4633	
==>t}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4295	4411	
==>t}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2939	3149	
==>:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2603	2709	
==>ty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2603	2709	
==>ty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.e <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10629	10715	
==>anpage and <a
    href="http://svn.openfoundry.org/pugs/util/smokeserv/README">smokeser <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7772	7868	
==>thorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7772	7868	
==>thorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method authorization_b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4331	4422	
==>2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4581	4672	
==>2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4576	4709	
==>q '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4588	4721	
==>q '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1724	1915	
==>e.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    retu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1724	1915	
==>e.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    retu <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	539	689	
==>n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq '+') {
            push @stack, $y + $x;
        } e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2073	2241	
==>y %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2073	2241	
==>y %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7603	7694	
==>unning under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7661	7752	
==>unning under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	551	686	
==>defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_docu <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	551	686	
==>defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_docu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1249	1391	
==>ta            => { allow => ISA_JIB_META },
        config          => { allow => ISA_JIB_CONFIG },
        package         => { allow => $Pack <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	135	272	
==>take $x if $x ~~ $test;
	}
    }
}


# copied from S29draft.pod 8651.
multi  List::join (Str $delimiter ; *@values --> Str ) {
    my $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	870	1040	
==>t, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	870	1040	
==>t, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9063	9172	
==>even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9063	9172	
==>even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20408	20505	
==>calized including the
'_' to '-' translation.  There are some application where this is not
approp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20408	20505	
==>calized including the
'_' to '-' translation.  There are some application where this is not
approp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1172	1282	
==>ons - match: $match\n" ;
  my $equivalence = "=";

  $match = "P6RulesInP5::Match" if ! defined $match; 
  $opt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11901	12004	
==>ou can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11959	12062	
==>ou can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13620	13718	
==>les and you
find there is some language feature missing, or core bug that needs to
be sorted out be <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13678	13776	
==>les and you
find there is some language feature missing, or core bug that needs to
be sorted out be <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	674	824	
==>r error( "Could not create JIB::Repository object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6220	6356	
==>}   @expect;

        # print "token: $$t[0] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	39016	39112	
==>can redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEME <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43830	43926	
==>can redistribute it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEME <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2672	2774	
==>ck/ to make it work automagically for platforms is really bad. I 
hope that as Pugs matures this will c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2672	2774	
==>ck/ to make it work automagically for platforms is really bad. I 
hope that as Pugs matures this will c <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1451	1610	
==>read the details
            #for $class ($self.meta.superclasses){
            #    take $class.subscriptions;
            #}
        }
    }
}

role Class::Ev <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19022	19145	
==>ut: test $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, $lin <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3201	3359	
==><section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3201	3359	
==><section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a con <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1708	1830	
==>OLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	241	346	
==>azy lists are not implemented
    * Constructors should emit error messages if there are unknown parameter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	241	346	
==>azy lists are not implemented
    * Constructors should emit error messages if there are unknown parameter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1927	2099	
==>re {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2174	2346	
==>re {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2947	3039	
==>p_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3005	3097	
==>p_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19444	19564	
==>ed_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has jo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19444	19564	
==>ed_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of channels the bot has jo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11917	12020	
==>e your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11975	12078	
==>e your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4949	5072	
==>eight
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4949	5072	
==>eight
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6672	6819	
==>s[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undef <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6672	6819	
==>s[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undef <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15012	15125	
==>t => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => $object )`.

- <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15012	15125	
==>t => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => $object )`.

- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5023	5150	
==>$bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5216	5343	
==>$bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13568	13671	
==>lanced

=item RPe_SWNREC (-6)

Switch condition not recognized

=item RPe_SWBRAN (-7)

Switch (?(conditi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3052	3183	
==>defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<p <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3052	3183	
==>defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<p <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8895	9026	
==>B_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    f <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9006	9105	
==>$^X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Formats and returns the swi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2135	2224	
==>RULE
*{'access_hash_element'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3489	3745	
==>ributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3489	3745	
==>ributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7779	7908	
==>epts_type } @params ) => $last->type, ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		} else {
			return Blondie::Type <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7112	7235	
==>> chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(84 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7112	7235	
==>> chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(84 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1168	1281	
==>s

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1168	1281	
==>s

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters
    my ( $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9930	10049	
==>.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'te <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9930	10049	
==>.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'te <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	2	102	
==>lass Duration;

has Date $.start;
has Date $.end;

has Num $.length;

method add($self: Duration $dur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10330	10435	
==>eturn $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10330	10435	
==>eturn $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2147	2269	
==>015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2147	2269	
==>015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16041	16135	
==>etta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16041	16135	
==>etta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1723	1824	
==>`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1723	1824	
==>`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3769	3879	
==>});

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3769	3879	
==>});

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1997	2118	
==>e {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $sel <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14517	14637	
==>e {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17996	18102	
==>the
same Engine class to implement it; that is, multiple DBMS objects will not
have references to each othe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17996	18102	
==>the
same Engine class to implement it; that is, multiple DBMS objects will not
have references to each othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24460	24578	
==>handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20881	20999	
==>handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10607	10814	
==>classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10607	10814	
==>classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else { <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1286	1383	
==>t Windows, you will need the 'nmake' utility
before installation. It's available at:

  http://dow <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1126	1223	
==>t Windows, you will need the 'nmake' utility
before installation. It's available at:

  http://dow <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4274	4423	
==>Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List      pre     list    s <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	225	321	
==>D  !!WARNING!!
# -----------------------------------------------

my %Cookies;

sub CookiesInit() <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1110	1212	
==>n good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate sou <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1110	1212	
==>n good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate sou <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5266	5369	
==>e document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argume <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5266	5369	
==>e document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argume <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15011	15111	
==>rule AdditiveExpression :words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3643	3749	
==>tr_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3643	3749	
==>tr_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11380	11474	
==>en recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11380	11474	
==>en recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3029	3122	
==>Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3029	3122	
==>Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14810	14934	
==>ssage(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14810	14934	
==>ssage(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15400	15522	
==>ue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15400	15522	
==>ue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $chann <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48447	48560	
==>perclasses' => list->new($::Package));


$::Module->send('add_attribute', (symbol->new('$:version')   => attribute <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	59	161	
==>Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3847	3946	
==>reduce the
Thunk.

Inside the Thunk the Seq will reduce its children one by one. First Param will
in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1174	1365	
==>Meta . '/alternatives';          # Alternative link dir                                                    
$Metaext        = '.info';                          # Extension for meta files
$Meta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	487	596	
==>TS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15729	15824	
==>, when viewing an error message, the
application's developer should see more details than joe pu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15729	15824	
==>, when viewing an error message, the
application's developer should see more details than joe pu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7463	7570	
==>urn the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7463	7570	
==>urn the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more incoming data, a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	686	801	
==>$AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$metho <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25131	25237	
==>variable::free->new,
		type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. (α × β)", "pr <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2226	2328	
==>s::Events::Subscription::Named {
    is Class::Events::Subscription;

    has $.name;

    role Class:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	838	966	
==>->new($inv, @args);
    
    my $class = $inv->class;
    
    # gather all the classes to look through
    my @classes = ($class <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	352	457	
==>B<FOR INTERNAL USE ONLY!>

This is a simple iterator wrapper for arrays and filehandles.

=head2 new()

Cr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16581	16672	
==>F!_inner_join( $other );
}

multi method join (Relation::Example *@others) returns Relation: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2689	2809	
==>"euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2689	2809	
==>"euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    = <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	712	811	
==>ription );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	712	811	
==>ription );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1250	1340	
==>::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the meanin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1250	1340	
==>::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the meanin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	9	133	
==>module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	9	133	
==>module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::S <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4041	4142	
==>(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1], <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4041	4142	
==>(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3265	3405	
==>her}\n";
            $relative_precedences{$opt->{precedence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	888	996	
==>Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	888	996	
==>Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	935	1067	
==>P::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named bindi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	935	1067	
==>P::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named bindi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	349	449	
==>r addition ciphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	349	449	
==>r addition ciphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), an <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4394	4550	
==>loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4394	4550	
==>loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2804	2896	
==>ondition {
    if(/(${re_condition})\s*($RE{balanced}{-parens=>'()'})\s*($RE{balanced}{-paren <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2456	2555	
==>hed to the op tree.  The struct is used
both to return a compiled regexp, and to provide match resul <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3351	3451	
==>ave a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3351	3451	
==>ave a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2135	2258	
==>thod vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2135	2258	
==>thod vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3578	3684	
==>odel::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3578	3684	
==>odel::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	958	1068	
==>Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4436	4546	
==>Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; each key of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1923	2018	
==>h_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1923	2018	
==>h_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8911	9038	
==>gs ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match->{s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8600	8723	
==>gs ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match->{s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	14	125	
==>e Klasse
class Welt {
	method hallo () { "Hallo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzieru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38008	38113	
==>s a Template text
string if the module recognizes $msg_key, and the undefined value if not.

=item C<inter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38008	38113	
==>s a Template text
string if the module recognizes $msg_key, and the undefined value if not.

=item C<inter <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6537	6797	
==>{
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6537	6797	
==>{
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12060	12152	
==>eturns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12060	12152	
==>eturns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nodes (a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2519	2619	
==>n \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2519	2619	
==>n \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1860	1958	
==>engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1949	2047	
==>engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	450	578	
==>k:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	547	675	
==>k:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7755	7900	
==>ex', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7755	7900	
==>ex', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ], <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21308	21416	
==>channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C</QUIT> command. No <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21308	21416	
==>channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C</QUIT> command. No <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1476	1573	
==>null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::Valu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36652	36743	
==>opy each of any duplicated tuples.

=item C<exclusion (Relation::Example $other!) returns Re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7400	7493	
==>ssert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7400	7493	
==>ssert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3533	3627	
==>::Compiler::Rule> module would prevent the Perl 6 compiler
from bootstrapping. 

If that is the <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15879	15969	
==>(X) )
  -> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	917	1059	
==>ignature = closure::signature->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $local_en <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3579	3719	
==>POK";

		die "what type is $node ($flags)?";
	}

	sub reduce_sym {
		my $self = shift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3137	3232	
==>ath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3137	3232	
==>ath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18890	19031	
==>->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15311	15452	
==>->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14007	14125	
==>nguages that has a matching template available.
        print $translator.translate_message(
            Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14007	14125	
==>nguages that has a matching template available.
        print $translator.translate_message(
            Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4638	4764	
==>ust apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.def <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4638	4764	
==>ust apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.def <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19110	19209	
==>. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19110	19209	
==>. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20968	21057	
==>knames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20968	21057	
==>knames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4257	4362	
==>line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z] <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4257	4362	
==>line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36739	36837	
==>s Set and Member properties; if none
could be matched, this method returns undef.  This method coul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36739	36837	
==>s Set and Member properties; if none
could be matched, this method returns undef.  This method coul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20947	21057	
==>return $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1637	1737	
==>es($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_att <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6975	7149	
==>name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _ok(0, _where(), @_);
}

sub curr_test {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $tes <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10088	10186	
==><HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule RegularExpressionLiteral {  # see 7.8.5
      <' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2779	2879	
==>ace::Value {

    # External packages used by the Rosetta::Interface::Value class, that do export sym <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2779	2879	
==>ace::Value {

    # External packages used by the Rosetta::Interface::Value class, that do export sym <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1442	1583	
==>urns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1442	1583	
==>urns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1494	1596	
==>Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1494	1596	
==>Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5519	5616	
==>lementation for Perl 6 Rule categories.  

The module is still very unstable, and the algorithm is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14732	14832	
==>pecifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14732	14832	
==>pecifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in header f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4264	4384	
==>_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $token = $termEmpty;
    $key = "";
    $whit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5465	5573	
==>ture' flag and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5290	5396	
==>ture' flag and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1577	1685	
==>eturn nil->new();
}

sub slice {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($start_index) & <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	683	784	
==>::PCRE - Perl-compatible regular expressions

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("He <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50686	50853	
==>'$self:' => 'opaque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->create('$identifier' => $e- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17464	17564	
==>:words {  # see 11.10
      <BitwiseXORExpression>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpre <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	313	407	
==>attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early version of Pug <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4122	4232	
==>p:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by make <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4122	4232	
==>p:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by make <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	129	237	
==>nd a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.ne <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	129	237	
==>nd a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.ne <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7258	7400	
==>e|") ) {
        print "can't run $file. $!\n";
        return;
    }

    my %results = $self->analyze_fh($file, \*FILE);
    my $exit = close <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2511	2652	
==>parator    ::= Code(Any, Any) returns Int;
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37305	37403	
==>string) and checks whether or not it has already been
loaded, returning true if so and false if not <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37305	37403	
==>string) and checks whether or not it has already been
loaded, returning true if so and false if not <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	222	337	
==>TODO - prefix:{'+'}
# TODO - ~ ? 

sub add_rule {
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar:: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	418	603	
==>?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10677	10779	
==>ckage Foo;

eval <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
print "match? ",$m ? "yes" : "no","\n";
prin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1509	1637	
==>e with a nil type
    $self->[$index->to_native] = nil->new();
    return nil->new();
}

sub slice {
    my ($self, $start_index, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	605	766	
==>llow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( error( Params::Che <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	874	1013	
==>{env} }

sub do {
    my $self = shift;
    $self->{body}->($self->{env});
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2310	2461	
==>t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @field <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2310	2461	
==>t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @field <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3150	3299	
==>rl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3290	3439	
==>rl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5048	5150	
==>t one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5048	5150	
==>t one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($modu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3176	3299	
==>vent<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3176	3299	
==>vent<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4776	4896	
==>concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4776	4896	
==>concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21734	22226	
==>m.pairs,
                            $t1common_m.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	824	937	
==>fig->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_dir

=cut

sub alternatives_dir {
    my $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3399	3488	
==>elf->{'pil_tree'} = Perl6::Run::OnPerl5::X1::Result->new($pil_tree,$warn,$failed);
	} elsi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2953	3032	
==>de:"\x09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u20 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28753	28848	
==>ing> value set members do not match invocant
Relation attribute names, or duplicate any other va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33305	33400	
==>ing> value set members do not match invocant
Relation attribute names, or duplicate any other va <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24489	24603	
==>ped) {
        my $good = $max - $failed - $skipped;
        my $skipmsg = " (less $skipped skipped test$ender: $go <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4769	4946	
==>) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4769	4946	
==>) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	573	669	
==>testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	631	727	
==>testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$number_of_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	644	903	
==>age Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta::Model::D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	644	903	
==>age Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta::Model::D <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2598	2710	
==>r is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2598	2710	
==>r is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1573	1707	
==>e integer
    str         native string (sequence of integers, no Unicode)
    num         native floating point
    ref         native <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2551	2679	
==>r1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_reg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2744	2872	
==>r1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_reg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	520	628	
==>le  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# (very primitive at the moment <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16011	16106	
==>(CALLER::<$_>) is rw --> Char )

Trims the last character from C<$string>, and returns it. Calle <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1194	1298	
==>\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1194	1298	
==>\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4446	4565	
==>ethod PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4720	4825	
==>p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9238	9337	
==>> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([])                - <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1812	1906	
==>mc_keyed_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_keyed_int

sub get_hash {
  my ( $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39035	39145	
==>our handler will
receive an additional argument which tells it if it's inside a character
class.

  $parser->ad <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	540	674	
==>re CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	540	674	
==>re CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1866	1984	
==>n;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1866	1984	
==>n;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of original perl script

=head1 SYNOPSIS

    use <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12830	12929	
==>utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12830	12929	
==>utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

T <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18439	18559	
==>ed into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PR <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18439	18559	
==>ed into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PR <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1638	1762	
==>he current tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $fun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1638	1762	
==>he current tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $fun <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1885	1992	
==>: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1885	1992	
==>: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21492	21613	
==>?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17913	18034	
==>?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2853	2952	
==>:Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2853	2952	
==>:Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	369	466	
==>ous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	369	466	
==>ous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11506	11620	
==>t;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliase <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11506	11620	
==>t;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliase <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1627	1724	
==>claim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1685	1782	
==>claim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## like

su <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3341	3457	
==>[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Caller.new(
        package => @caller[0],
        file <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	306	398	
==>ld be displayed as UTC (Time::Piece honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compressio <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	230	381	
==>k = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", " <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	230	381	
==>k = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13418	13523	
==>ce =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13418	13523	
==>ce =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19111	19205	
==>o use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programmi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19111	19205	
==>o use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programmi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11671	11776	
==>e if this recurrence intersects (has any element in common) with the given recurrence.

- `equal( $recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11671	11776	
==>e if this recurrence intersects (has any element in common) with the given recurrence.

- `equal( $recurre <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6446	6589	
==>continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Ee <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6446	6589	
==>continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Ee <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25354	25455	
==>distribute
such a system following the terms of the GPL for Rosetta and the licenses
of the other comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25354	25455	
==>distribute
such a system following the terms of the GPL for Rosetta and the licenses
of the other comp <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	260	373	
==>- Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($ <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	260	373	
==>- Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3064	3217	
==>urn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3064	3217	
==>urn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        wh <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3800	4037	
==>_round = round_down_symmetric($x);
                }
                $rand_up = 0;
            }
            else {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                e <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	116	211	
==>ional)
# FIXOTHERS (smoke): t/01-sanity and others have no pos field
# FIXOTHERS (smoke): skippe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7913	8119	
==>$file, $force);

    my $tmpl = {
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS
        },
        force => {
            store   = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11373	11476	
==>∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemente <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11373	11476	
==>∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemente <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	731	828	
==>SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	731	828	
==>SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems.

Arcfour operates on whole <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2261	2401	
==>\{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~joi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2261	2401	
==>\{"
          ~"\n    "~join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~joi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3211	3333	
==>$3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl_version ], @{ $values{r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13612	13721	
==>ow) = @_;
    return $S->force_object(anyof_class => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $se <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1549	1680	
==>$file =~ s/^#\s*(.*)\n//;
    my @file = split //, $file;

    open STDOUT, "> $fname.tex" or die "can not open '$fname.tex' for wri <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8323	8452	
==>, 
        closure::signature->new(
            params => closure::params->new(
                        symbol->new("&dispatcher", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1883	2073	
==>recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        lo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1676	1830	
==>recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9010	9100	
==>Operators: L<http://dev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT

Copy <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1089	1263	
==>.
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8379	8476	
==>e test.  Combine this with _switches()
to build a command line.

Typically this is C<$^X>, but you <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1677	1791	
==>=~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->abstract_from($file);
    $self->license_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2623	2728	
==>t.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2527	2626	
==>t.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24092	24230	
==>decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24371	24509	
==>decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12766	12861	
==>nfinite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12766	12861	
==>nfinite if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4353	4470	
==>0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4353	4470	
==>0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3215	3331	
==>plemented( $n->{op1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parameters <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1723	1828	
==>e)

The constructor takes as parameters at least C<rate of information> in
items per second and C<burst si <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1723	1828	
==>e)

The constructor takes as parameters at least C<rate of information> in
items per second and C<burst si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15243	15355	
==>perty; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15243	15355	
==>perty; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node T <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	282	396	
==>SCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= O <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	282	396	
==>SCRIPTION

This class represents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= O <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	921	1049	
==>1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.cha <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	921	1049	
==>1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.cha <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	712	834	
==>= $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variab <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	712	834	
==>= $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variab <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8739	8856	
==>ure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8739	8856	
==>ure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2577	2684	
==>= $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2577	2684	
==>= $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	511	643	
==>?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	511	643	
==>?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4702	4864	
==>ifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and sho <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4702	4864	
==>ifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and sho <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	742	849	
==>p<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duratio <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	742	849	
==>p<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duratio <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	74	169	
==>rt { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	74	169	
==>rt { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	337	452	
==>ent_language
    title user_agent server from referer
    www_authenticate authorization proxy_authorization authori <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	337	452	
==>ent_language
    title user_agent server from referer
    www_authenticate authorization proxy_authorization authori <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2073	2170	
==>t::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2131	2228	
==>t::proclaim($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9049	9168	
==>$_->qr, @$_), @{ $self->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map join("", map $_->vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31732	31827	
==>ntifiers).

=item min

The minimum repetition count of this object (for quantifiers).

=item neg <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	948	1071	
==>ing"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	948	1071	
==>ing"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4934	5037	
==>www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html
.
    }
}

sub assert_ghc {
    my $self = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	796	912	
==>snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	755	866	
==>snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	286	405	
==>xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	286	405	
==>xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($x, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4677	4806	
==>onstant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4531	4656	
==>onstant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12723	12821	
==>t($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12723	12821	
==>t($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1378	1500	
==>e IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1378	1500	
==>e IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Time <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17892	18002	
==>my $r = compile($re);
  my $m = match($r,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq '--test') {
  require './ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41150	41239	
==>Regexp::Parser::Objects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5179	5312	
==>me' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5179	5312	
==>me' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2283	2435	
==>tr {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> jo <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1052	1204	
==>tr {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> jo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2644	2760	
==>_

    ### takes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_depend <==
2	/Users/nnunley/pugs/util/package-osx.pl	8119	8216	
==>/Perl6::Spec::Rule.3pm
        /usr/local/man/man3/Perl6::Spec::Structure.3pm
        /usr/local/m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23557	23699	
==>elf);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasses;
}

(method su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5052	5154	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1635	1737	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9031	9143	
==>(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9031	9143	
==>(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_enti <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1567	1694	
==>- 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14811	14931	
==>text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14811	14931	
==>text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7984	8097	
==>y && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7984	8097	
==>y && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41299	41391	
==>com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, partic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41299	41391	
==>com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, partic <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	19	144	
==>::Basic;

multi sub abs (; Num ?$x = $CALLER::_ )
    returns Num { ... }

multi sub exp (; Num ?$exponent = $CALLER::_, Num : <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6	104	
==>/bin/perl -w

use strict;
use warnings;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2889	2996	
==>er($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quanti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2877	2984	
==>er($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quanti <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1416	1515	
==>C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexport <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1416	1515	
==>C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unexport <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3894	4006	
==>s[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3894	4006	
==>s[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21903	21999	
==>cii(C).
class_member(class_neg(ascii)     ,C) :- !, \+(isAscii(C)).
class_member(class_pos(print) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5059	5227	
==>egated;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = in <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3497	3646	
==>otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3497	3646	
==>otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9134	9233	
==>el::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'creat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9134	9233	
==>el::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'creat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12616	12714	
==>ge:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12616	12714	
==>ge:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $document <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5834	5960	
==>(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5834	5960	
==>(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	477	600	
==>d Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_op <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	477	600	
==>d Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_op <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8266	8371	
==>lways correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8266	8371	
==>lways correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since each <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5898	6024	
==>et::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5898	6024	
==>et::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3466	3596	
==>ntent;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; }, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3466	3596	
==>ntent;
    my $old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; }, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15513	15622	
==>at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15513	15622	
==>at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1597	1739	
==>to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1597	1739	
==>to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3594	3737	
==>, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $isnt ) {
        # undef only matches undef
        $pass = defined $got <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1539	1659	
==>lue eq $x { push @matches,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @matches
} 

sub pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17822	18001	
==>F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=bac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17822	18001	
==>F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=bac <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	597	707	
==>hould be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int| <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	597	707	
==>hould be done as "multi submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int| <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12308	12434	
==>results{seen}) {
                if (@{$test{failed}} and $test{max}) {
                    my ($txt, $canon) = _canonfailed($t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19382	19513	
==>it //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15803	15934	
==>it //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6062	6183	
==>) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2813	2899	
==>ne.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsb <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2813	2899	
==>ne.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsb <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8015	8116	
==>t event fired will be
any text which follows the item.

=item I<end_element ('item')>

This event is f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8015	8116	
==>t event fired will be
any text which follows the item.

=item I<end_element ('item')>

This event is f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4225	4340	
==>tion.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7702	7817	
==>tion.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SELF <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	531	673	
==>()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	531	673	
==>()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3483	3599	
==>, '$<op>' );
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4098	4196	
==>cts a new cipher object.  The options passed to the 
C<new> constructor generally include some sort <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4098	4196	
==>cts a new cipher object.  The options passed to the 
C<new> constructor generally include some sort <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5015	5117	
==>_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5015	5117	
==>_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1718	1859	
==>y  
        { $_[0]->{out}= { signature => [] } }
    |   signature_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signatu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35814	35906	
==>e heading as
the invocant Relation::Example, and returns a new Relation::Example that has the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37846	37938	
==>e heading as the
invocant Relation::Example, and returns a new Relation::Example that has the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8218	8353	
==>pture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8411	8546	
==>pture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1110	1228	
==>$file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1110	1228	
==>$file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4715	4881	
==>os < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4703	4869	
==>os < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $va <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6765	6974	
==>l->new('$self:'  => 'opaque'), 
                              symbol->new('$label'  => 'symbol'), 
                              symbol->new('$method' => 'method')
                          ),
                r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1197	1297	
==>de extremely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1197	1297	
==>de extremely trivial security; a cryptanalyst need only 
graph the letter frequency to crack the ciph <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2311	2418	
==>it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-backtracking eng <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2311	2418	
==>it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mean for
non-backtracking eng <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4009	4116	
==>($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_pre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5911	6018	
==>($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deeply(
    [ $Class->class_pre <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3550	3674	
==>art_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be l <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3550	3674	
==>art_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3264	3404	
==>_->add_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2048	2160	
==>ON

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invoke <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2048	2160	
==>ON

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invoke <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	916	1012	
==>"implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	916	1012	
==>"implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31028	31125	
==>ne Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35578	35675	
==>ne Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate!) returns R <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3846	3940	
==>port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.e <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3846	3940	
==>port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.e <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7320	7436	
==>c($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7320	7436	
==>c($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24389	24484	
==>ation::Example class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2562	2688	
==>$event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2562	2688	
==>$event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3380	3489	
==>figuration.

>   Alive without breath;
>   as cold as death;
>   never thirsting, ever drinking;
>   clad in m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5705	5895	
==>ted goto term_charlist                # \X[...], \000
    # goto term_literal                            # \x[...], \000

  term_literal:                                    # first char is in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6644	6753	
==>"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6644	6753	
==>"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~norm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21260	21356	
==>a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL dia <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21260	21356	
==>a
common API for access to those databases, each of which takes a different
SQL or pseudo-SQL dia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	439	605	
==>|| 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
    warn "Erro <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1420	1587	
==>ss flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $cur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1420	1587	
==>ss flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the path
        $cur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27647	27747	
==>port_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27647	27747	
==>port_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which c <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	528	629	
==>et;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($tri <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	528	629	
==>et;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($tri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25805	25903	
==>any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25805	25903	
==>any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - T <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	596	697	
==>>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not g <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	596	697	
==>>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not g <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3086	3199	
==>.join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPSIS

  use Dat <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3086	3199	
==>.join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time)

= SYNOPSIS

  use Dat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1148	1251	
==>er 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1201	1304	
==>er 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38680	38786	
==>PATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMITATIONS

I<This documentation i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19538	19679	
==>, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19817	19958	
==>, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25771	25869	
==>o a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25771	25869	
==>o a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Messag <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4441	4604	
==>sh @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" u <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4905	5068	
==>sh @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies '$entry'\n" u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32067	32170	
==>t corresponds to language A, looking for a match to said error
message.  If it finds one, then that is d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32067	32170	
==>t corresponds to language A, looking for a match to said error
message.  If it finds one, then that is d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	106	235	
==>(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23401	23496	
==>o do this copy-and-push before you do any flag-parsing,
if you're adding a handle that might par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16409	16522	
==>y $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16409	16522	
==>y $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7050	7152	
==>\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7050	7152	
==>\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normaliz <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3167	3275	
==>'.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3167	3275	
==>'.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2340	2439	
==>above) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2340	2439	
==>above) named C<$name>.  It's not clear what these mean for
non-backtracking engines.

=cut

method c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1507	1618	
==>so-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub heade <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1507	1618	
==>so-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub heade <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2913	3044	
==>pan.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2913	3044	
==>pan.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18241	18339	
==>_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18241	18339	
==>_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11435	11555	
==>b {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3026	3146	
==>b {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2280	2405	
==>ard compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2280	2405	
==>ard compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3427	3523	
==>t where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3305	3398	
==>t where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Comp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2480	2590	
==>gify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2480	2590	
==>gify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4139	4249	
==>colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4139	4249	
==>colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16849	16978	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17128	17257	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7260	7405	
==>age::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7260	7405	
==>age::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5844	5941	
==>is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is currently <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5844	5941	
==>is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is currently <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2214	2340	
==>k to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $wh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	574	682	
==>ant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	574	682	
==>ant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1473	1561	
==>num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1473	1561	
==>num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2832	2975	
==>latten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an inf <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2832	2975	
==>latten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an inf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33563	33684	
==>ember_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elements where each
element is a Te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33563	33684	
==>ember_names> - B<Member Names>

Array of Str - This stores an ordered list one or more elements where each
element is a Te <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/test.pl	40	203	
==>test
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 };
# sechs mal in Perl 5 würfeln
@a = 0; push @a, wurf() for 1..6;
sub <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4559	4672	
==>is "is primitive".
    #      If I'm wrong then the above two subs might not work?
    # XXX2: "fail" clashes with <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4892	5010	
==>f /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4892	5010	
==>f /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :)
      my $chan = normali <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10039	10161	
==>.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify fo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10039	10161	
==>.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17084	17181	
==>icating the size in bytes of the message content.

=item $h.content_language

The natural language <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17084	17181	
==>icating the size in bytes of the message content.

=item $h.content_language

The natural language <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2355	2485	
==>repeatedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                Sym->new('$x' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14535	14643	
==>$obj;
}

# (Unspecced) facade class supplying localtime
class Time::Local {
    has Int  $.year;    # eg., 20 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2316	2470	
==>fter';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2563	2717	
==>fter';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @ru <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10149	10240	
==>',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
pr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10884	10975	
==>',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1910	2040	
==>new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1910	2040	
==>new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be re <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2075	2165	
==>{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAUTODIR} = '$(INST_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13138	13250	
==>'-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13138	13250	
==>'-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	422	533	
==>lternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<q <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	422	533	
==>lternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<q <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2103	2230	
==>f: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2103	2230	
==>f: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9754	9888	
==>'ident', \&{'grammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34963	35093	
==>ily => 'branch',
      type => 'and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inherit the mer <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38551	38647	
==>and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38551	38647	
==>and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, <==
2	/Users/nnunley/pugs/util/version_h.pl	1757	1878	
==>= $old_revision) {
  # As we've closed STDIN (filehandle #0), slot #0 is available for new
  # filehandles again. If we op <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	18	129	
==>6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
ha <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	18	129	
==>6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5210	5311	
==>er("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5210	5311	
==>er("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9430	9566	
==>c' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9430	9566	
==>c' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2218	2331	
==>ool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2218	2331	
==>ool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6070	6183	
==>:Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6070	6183	
==>:Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2900	3007	
==>cted, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2958	3065	
==>cted, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23502	23600	
==>ags, because you do not
want to accidentally affect the previous scope's flag values.  

Here is ex <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9907	10005	
==>DED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9907	10005	
==>DED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9225	9349	
==>N' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9225	9349	
==>N' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1055	1164	
==>t $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNO <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1055	1164	
==>t $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNO <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15900	15996	
==>s a system for writing modules that I<compile> other
Perl modules.

Modules that use these compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15900	15996	
==>s a system for writing modules that I<compile> other
Perl modules.

Modules that use these compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17626	17807	
==>,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17905	18086	
==>,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18854	19043	
==>,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19133	19322	
==>,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1822	1937	
==>ine file_sep";

    return $config;
}

sub add_path {
    my ($name, $config) = @_;
    my $path = $Config{$name} || <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5240	5362	
==>circumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5240	5362	
==>circumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #pri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2442	2577	
==>R>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_reque <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2442	2577	
==>R>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_reque <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	851	984	
==>le(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	851	984	
==>le(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->cod <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4997	5163	
==>y) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the def <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4997	5163	
==>y) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the def <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1014	1110	
==>rray[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAM <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1014	1110	
==>rray[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAM <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15750	15845	
==>ified_since

These header fields are used to make a request conditional.  If the requested
resou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15750	15845	
==>ified_since

These header fields are used to make a request conditional.  If the requested
resou <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	763	859	
==>.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under a <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	763	859	
==>.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12097	12200	
==>tch objects.

  A set of hooks should be defined in CORE which just call back to the
  original comp and <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	4	113	
==>weisungsoperator
$x = $y; # wie bei Perl 5

#=Bindung (dynamisch)
my $x = 'Just Another';
# $x wird nun zur La <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1164	1272	
==>Placeholder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $self = shift;
		my $type = shift;

		wa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2464	2563	
==>me->to_str->to_native . ") already exists";
    return $self->[2]->store($name, $nil::NIL);    
}

1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3419	3511	
==>':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3419	3511	
==>':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9993	10098	
==>the moment the user tries to set the input, and input that
fails immediate evaluation will not be set at a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9993	10098	
==>the moment the user tries to set the input, and input that
fails immediate evaluation will not be set at a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1223	1345	
==>il ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1234	1356	
==>il ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    retu <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	5	99	
==>npacken" von Code-Objekten
$id = &subname.wrap (sub (*@args) {
	# Argumente vorbearbeiten
	$res <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	424	526	
==>o frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	435	537	
==>o frequent and they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18572	18669	
==>ically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18572	18669	
==>ically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4918	5042	
==>V==5 or Usage();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9015	9116	
==>n $S->force_object(anyof_class => punct => $neg, $how);
  });

  # space POSIX class
  $self->add_hand <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	885	1011	
==>{
	my $self = shift;
	my $node = shift;

	$self->{names}{$node} ||= '$node_' . ++$self->{node_counter};
}

sub layout {
	my $se <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2824	2920	
==>ray)\
#   ie, both return and argument types differ.
multi infix:«¥» (Array *@arrays --> Lazy) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5615	5725	
==>ement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) }, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5615	5725	
==>ement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11310	11451	
==>_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        unless $code =~ /r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7769	7866	
==>d $ra->[$i] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6868	6994	
==>le ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6868	6994	
==>le ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.heade <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6151	6247	
==>pher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6151	6247	
==>pher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream cipher <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23004	23093	
==>hannel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23004	23093	
==>hannel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$cha <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14308	14412	
==>om"
    $P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mob, "PGE <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5184	5314	
==>r_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $c = $_[0];
      my($s) = $X:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6701	6820	
==>}
rule UnicodeDigit {  # see 7.6
      # any character in the Unicode category "Decimal number (Nd)"
      <Nd>
}
rule U <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2719	2840	
==>}'>)/s;
        push @rules, $template;
    }
    push @rules, "<$tight>";
    @rules = _optimize( @rules );
    return $r <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	110	223	
==>b provides { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blon <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31644	31797	
==>rn block->new($e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e->get('$counter'));
                    $e->set('$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13984	14098	
==>s} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3160	3286	
==>unk mapped from '&func' in
                   # the env, which is then given to the App
    ),

Inherits Unit.

=item Val

Enca <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27269	27419	
==>REINT_AUTORITATIVE_NOML|REINT_AUTORITATIVE_ML)
 #define REINT_ONCE		(REINT_ONCE_NOML|REINT_ONCE_ML)

 #define RX_MATCH_TAINTED(prog)	((prog)->reganch & <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2680	2840	
==>as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$head <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2680	2840	
==>as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2001	2120	
==>_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2001	2120	
==>_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!ms <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4109	4212	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4109	4212	
==>$self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2645	2757	
==>lass->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Genera <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2645	2757	
==>lass->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Genera <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11640	11763	
==>c");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_E <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4300	4423	
==>shot",
      $_[0]->{osname};
  };

  my @smokes  = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  pus <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4700	4843	
==>hod grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4700	4843	
==>hod grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11989	12106	
==>d lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.* <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11989	12106	
==>d lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.* <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25429	25532	
==>')'>
    | <'(?='> <Disjunction> <')'>
    | <'(?!'> <Disjunction> <')'>
}
rule PatternCharacter {  # se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14586	14687	
==>ight;
	
	my $generic_vars = generic($.fun);

	# if the function is generic we'll be instantiating it's <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	534	634	
==>P++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	534	634	
==>P++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10260	10396	
==>_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10260	10396	
==>_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32431	32528	
==>or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32431	32528	
==>or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Class

While a Trans <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2993	3096	
==>if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stringif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2993	3096	
==>if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.stringif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1571	1688	
==>submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1571	1688	
==>submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5919	6023	
==>t of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- ` <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5919	6023	
==>t of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- ` <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2433	2656	
==>[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2680	2903	
==>[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \:\:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15309	15415	
==>ble for Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15309	15415	
==>ble for Span objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11374	11471	
==>he given recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11374	11471	
==>he given recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1451	1548	
==>ore than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscurin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1451	1548	
==>ore than obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscurin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	608	703	
==>_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	666	761	
==>_of_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_t <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1010	1107	
==>dules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*I <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1010	1107	
==>dules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13685	13783	
==>doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13685	13783	
==>doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstra <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1154	1300	
==>y $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key} }, @rv;
        @rv;
    };
}

sub sign { <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1095	1202	
==>fig[-1]{"Features"}{$0} = $1;
		} else {
			die "Invalid line in ini: $lineno\n>>> $line";
		}
	}

	return @ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24969	25065	
==>addressed by any ordinal value.

Note that it is valid for a Relation::Example to have zero tuple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8002	8167	
==>_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8014	8179	
==>_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless de <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5577	5693	
==>s Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5577	5693	
==>s Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remo <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1580	1682	
==>OR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1580	1682	
==>OR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	596	703	
==>|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	596	703	
==>|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	65	172	
==>, is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	65	172	
==>, is_lazy()
  - Lazy Array changes to normal Array if all elements are known;
  - pushing a lazy list into a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7052	7165	
==>st::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7110	7223	
==>st::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub report_failure (Str <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3874	3984	
==>gs;
    method new (*@.args) { super }
}

class Class::Events::Event::Named {
    has $.name;

    method new ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10583	10681	
==>$re)=@_;
  print STDERR "compiling pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3752	3866	
==>ce, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #print "com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3969	4083	
==>ce, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #print "com <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1824	1924	
==>s be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C< <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1824	1924	
==>s be the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4900	5057	
==>$length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._po <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4900	5057	
==>$length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._po <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8533	8702	
==>> chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8533	8702	
==>> chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10366	10470	
==>d) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting before the = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10366	10470	
==>d) is not case sensitive.  To make the life easier for perl
users who wants to avoid quoting before the = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	327	443	
==>er matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "conti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	313	421	
==>er matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "conti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	835	936	
==>at the byte level, not the character level, so different 
character encodings may be enciphered in dif <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	835	936	
==>at the byte level, not the character level, so different 
character encodings may be enciphered in dif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	553	670	
==>e(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N* [\n|$] <pod> |
    \s
  ]*
))->code;

*grammar_name = Pugs::Compiler: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5698	5814	
==>(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10264	10368	
==>ub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13135	13231	
==>header field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13135	13231	
==>header field names prefixed with C<Content-> falls
into this category, as well as C<Allow>, C<Exp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7341	7461	
==>er::digit;
  sub emit {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\d') if $re eq '\d';
    r <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11304	11430	
==>);
 
      if ($linkfile =~ /^http/) {
        $output .= "$text <a href='$linkfile'>$whole</a>";
        $links++;
        nex <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2331	2439	
==>EFAULTS{$_} unless defined $conf->{$_}; } for
        keys %DEFAULTS;
}

sub lookup {
    my($class, $what) = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8599	8694	
==>atements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2424	2519	
==>atements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4420	4583	
==>backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4420	4583	
==>backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my $matchy = $m <==
2	/Users/nnunley/pugs/util/grokprims.pl	2024	2157	
==>1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<td><tt>$example</tt <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4896	5002	
==>e::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unified_app,
		);
	}

	su <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31895	31990	
==>ary relational operator that takes a single
Relation in its C<$other> argument, where <$other> h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36445	36540	
==>ary relational operator that takes a single
Relation in its C<$other> argument, where <$other> h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10150	10254	
==>FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10208	10312	
==>FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All te <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2368	2663	
==>E>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2368	2663	
==>E>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5666	5795	
==>rentOperatorTable{$key};
  if ( $token )
  {
    push @bsrStack, "bsr_token_match2_1";
    goto token_match;
    bsr_token_match2_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	248	358	
==>q(
			(map { Param($_) } @params),
			Stub($name),
		)
	)
}

sub mk_constructors {
    foreach my $class (@{ Cl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8346	8457	
==>e(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8346	8457	
==>e(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14623	14727	
==>efore => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14623	14727	
==>efore => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3207	3329	
==>map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3207	3329	
==>map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14540	14706	
==>lemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14534	14700	
==>lemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5198	5348	
==>>{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5198	5348	
==>>{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8740	8862	
==>I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .return (mob)
 err_noclose:
    parse_error(mob, pos, "Mis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5219	5330	
==>ircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5219	5330	
==>ircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1342	1446	
==>r = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1342	1446	
==>r = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\] <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1178	1278	
==>path so that later `use` or `require` statements 
will find modules which are not located on Pugs's d <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1178	1278	
==>path so that later `use` or `require` statements 
will find modules which are not located on Pugs's d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6599	6712	
==>y.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6599	6712	
==>y.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11174	11314	
==>= $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.cur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11174	11314	
==>= $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.cur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27182	27275	
==>n::Example constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Mapping(Str) <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	97	188	
==>efile.pm"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12622	12776	
==>RL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12622	12776	
==>RL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $pa <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	501	652	
==>$abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $d <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	501	652	
==>$abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $d <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1793	1911	
==>el2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

Fin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1793	1911	
==>el2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

Fin <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1329	1472	
==>etchElem($idx);
                unless ($c){
                    $c = PIL::Run::Container::Scalar->new;
                    $self->hash_storeEle <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5311	5443	
==>ods;
    has %:attributes;
    has %:methods;
}

(class (Class)
    ((attribute new (@:MRO))             (list)
     (attribute new ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1228	1340	
==>TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1228	1340	
==>TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	179	272	
==>erwrite. So smartmatch can be
implemented using some is_subtype? (QQQ what's it called?) test. <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2217	2324	
==>ead1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2217	2324	
==>ead1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7671	7817	
==>$self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7728	7874	
==>$self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8417	8519	
==>event is begun when any block of characters is interpolated for modifiers.

=item I<end_element ('line_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8417	8519	
==>event is begun when any block of characters is interpolated for modifiers.

=item I<end_element ('line_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16634	16763	
==>ed.  This makes it safe to do the following:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16634	16763	
==>ed.  This makes it safe to do the following:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real hea <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5563	5667	
==>$desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5621	5725	
==>$desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1739	1844	
==>e = shift;
	
		my $h = Devel::STDERR::Indent::indent();

		warn "flattenning $node " . (eval { $node->stru <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1319	1431	
==>}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Voi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1319	1431	
==>}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my method remove_parent returns Voi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1108	1208	
==>e) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1108	1208	
==>e) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16128	16221	
==>rson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16186	16279	
==>rson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19493	19638	
==>$for = Inf --> Num )
{
    Pugs::Internals::sleep($for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10843	10975	
==>piling" : "skipping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	672	783	
==>elf = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule {
    package Pugs::Runtime: <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1782	1877	
==>ti sub epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1 <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5174	5289	
==>e loaded by Run.hs.

When pugs is built, a fallback Prelude.hs that contains only a quoted
version of the Prelude co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18201	18337	
==>t(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14622	14758	
==>t(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2434	2574	
==>.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#& <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2434	2574	
==>.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#& <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2542	2646	
==>bers));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2542	2646	
==>bers));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8686	8784	
==>will recurse down the tree and fix the
# depth fields appropriately.
# This method is called automa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8686	8784	
==>will recurse down the tree and fix the
# depth fields appropriately.
# This method is called automa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21117	21210	
==>a,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21117	21210	
==>a,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rose <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6621	6786	
==>change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_chang <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5125	5290	
==>change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_chang <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1367	1464	
==>n be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1367	1464	
==>n be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or P <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1466	1663	
==>ping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escapin <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1466	1663	
==>ping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escapin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4882	4982	
==>_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5226	5326	
==>_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2678	2783	
==>eturn "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2678	2783	
==>eturn "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18154	18259	
==>e, if at all.  To account for situations where multiple DBMS
objects want to use the same external resourc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18154	18259	
==>e, if at all.  To account for situations where multiple DBMS
objects want to use the same external resourc <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2725	2845	
==>multi Num::round_alternate ( Num $x ) {
    my $x_round;
    state $round_up = 1;

    # alternate rounding .5 up and dow <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1145	1230	
==>V{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	652	774	
==>const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	652	774	
==>const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1643	1762	
==>kage Dispatchable;
    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUT <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2767	2884	
==>f));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2767	2884	
==>f));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


meth <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	679	783	
==>}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DE <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	679	783	
==>}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8357	8468	
==>rom_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8357	8468	
==>rom_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	31	156	
==>re
    * size - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * docu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	31	156	
==>re
    * size - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * docu <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1378	1513	
==>0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is e <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1378	1513	
==>0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2554	2665	
==>status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_inf <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2554	2665	
==>status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_inf <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8208	8357	
==>))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10057	10211	
==>match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10893	11047	
==>match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3741	4010	
==>face::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3741	4010	
==>face::Variable

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29161	29282	
==>_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29161	29282	
==>_key (Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1716	1820	
==>pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1716	1820	
==>pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12415	12520	
==>, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12473	12578	
==>, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4341	4432	
==>tr $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4591	4682	
==>tr $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4484	4599	
==>'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   , <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4484	4599	
==>'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   , <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6447	6642	
==>s.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6447	6642	
==>s.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13874	14213	
==>tput arrived\n";
                $tot{bad}++;
                $failedtests{$tfile} = { canon       => '??',
                                         max         => '??',
                                         failed      => '??',
                                         name        => $tfile,
                                         per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7339	7445	
==>e the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7339	7445	
==>e the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7536	7638	
==>t there is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7536	7638	
==>t there is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1708	1813	
==>ePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1708	1813	
==>ePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21173	21265	
==>t)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset_member(E0,C,Set).

class_member( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14417	14617	
==>)
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14696	14896	
==>)
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \& <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9029	9153	
==>m paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'loa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9029	9153	
==>m paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'loa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6373	6482	
==>pos
  term_literal_one:
    $I0 = pos - litstart
    $S0 = substr target, litstart, $I0
    $S0 = concat initc <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7631	7795	
==>d|rd)\Z/) {
            my $n = +$0;
            %mods.delete($k);
            %mods{'nth'} = $n;
        }
        else {
            my $msg = "Unknown modifier :$ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1806	1933	
==>returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1806	1933	
==>returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8935	9069	
==>mplement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8935	9069	
==>mplement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6250	6355	
==>e %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6250	6355	
==>e %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6610	6709	
==>fficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6610	6709	
==>fficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1545	1647	
==>$protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1545	1647	
==>$protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3030	3132	
==>mbers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3030	3132	
==>mbers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
meth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7847	8037	
==>index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough versio <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8311	8501	
==>index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough versio <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	997	1116	
==>IBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1888	2007	
==>IBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $sel <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23326	23466	
==>top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$@) {
    my($max,$skipped,@failed <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7590	7762	
==>se {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7590	7762	
==>se {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	139	257	
==>Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	139	257	
==>Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1807	1926	
==>( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1807	1926	
==>( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2103	2273	
==>ookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unles <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2103	2273	
==>ookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unles <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1793	1893	
==>sted
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() wit <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1793	1893	
==>sted
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() wit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3414	3536	
==>b code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3414	3536	
==>b code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable {
    my <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16093	16210	
==>GE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $ <==
2	/Users/nnunley/pugs/util/func_refact.pl	1486	1597	
==>noring{$new};

    my $size = scalar(keys %$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1 <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	761	1169	
==>60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	761	1169	
==>60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1 <==
2	/Users/nnunley/pugs/util/addauthors.pl	266	364	
==>ers{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$_}\n";
#}

my $authors = r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1017	1127	
==>ndition) && $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1250	1360	
==>ndition) && $condition->isa('block'))
        || confess "Condition must be a block";
    while ($condition->do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11241	11344	
==>of a header field, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11241	11344	
==>of a header field, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6211	6338	
==>sh Context (if it exists?)

A hash is returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item ge <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6211	6338	
==>sh Context (if it exists?)

A hash is returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7694	7806	
==>ormalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7694	7806	
==>ormalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5023	5170	
==>entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5487	5634	
==>entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3007	3248	
==>element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('lis <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3007	3248	
==>element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('lis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12275	12421	
==>"\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12554	12700	
==>"\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	33	154	
==>TTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	33	154	
==>TTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3807	3905	
==>. If you need something
with more power, move up to Config::Simple, Config::General or one of the
m <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3807	3905	
==>. If you need something
with more power, move up to Config::Simple, Config::General or one of the
m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2202	2297	
==>rface

The Cipher API's functional interface is perhaps the easiest one that allows 
for continu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2202	2297	
==>rface

The Cipher API's functional interface is perhaps the easiest one that allows 
for continu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1276	1370	
==>rs{$attr_name};
}

method attr_name_exists of Bool (Relation::AttrName $attr_name) {
    return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	60	158	
==>6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document descri <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	60	158	
==>6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document descri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6831	6937	
==>ool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ct <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6831	6937	
==>ool',
  'isWritable'   ,'Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ct <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	302	450	
==>e calls will need to be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	292	431	
==>e calls will need to be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	813	907	
==>ne::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	813	907	
==>ne::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4630	4755	
==>in
        DumpFile( $Altfile, $href );
    }

    ### remove this package from the available list
    ### XXX temp file, then <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9352	9454	
==>m ($value) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf('-') is p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	684	790	
==>test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attemp <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	684	790	
==>test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attemp <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1644	1742	
==>ine shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1484	1582	
==>ine shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.ex <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5019	5145	
==>fig> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5019	5145	
==>fig> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14279	14380	
==>defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14279	14380	
==>defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6320	6437	
==>ontinue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6320	6437	
==>ontinue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28557	28717	
==>rn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28836	28996	
==>rn'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22602	22701	
==>ion details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27154	27253	
==>ion details subject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Headi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1514	1629	
==>-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1514	1629	
==>-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5134	5234	
==>tput, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5134	5234	
==>tput, $cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	862	993	
==>/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5758	5846	
==>play_type($expected_type);
		warn Data::Dumper::Dumper($expected_type) unless defined $se <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	440	535	
==>I.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

= <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	440	535	
==>I.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

= <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12621	12728	
==>et1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12621	12728	
==>et1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13949	14044	
==>entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with thei <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13949	14044	
==>entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with thei <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2075	2230	
==>y "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2075	2230	
==>y "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	176	302	
==>, 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descripti <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	176	302	
==>, 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.new(
            description => $descripti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18101	18205	
==>n work.
    # Start with identity-one relation and join all sources to it.
    my Relation::Example $r1 . <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	107	219	
==>6. Currently,
# only regexp matching and substitution are used, and
# this brute-force, simplistic, and extremely <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12001	12098	
==>30res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "v <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12001	12098	
==>30res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $input = "v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	626	743	
==>} }' );
    $self->SUPER::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2505	2740	
==>s<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readli <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2505	2740	
==>s<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readli <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1196	1296	
==>th B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1196	1296	
==>th B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6063	6148	
==>nnels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6063	6148	
==>nnels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8139	8238	
==>n may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8139	8238	
==>n may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @sp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3839	3955	
==>e test.

=item B<Total>

Total number of tests expected to run.

=item B<Fail>

Number which failed, either from "not <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32696	32791	
==>er (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::Class <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2828	2931	
==>$bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub de <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2828	2931	
==>$bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub de <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	148	249	
==>c{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger} <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	148	249	
==>c{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22852	23000	
==>uld include the
code you ran that contains the bug, and your opinion on what's wrong
with it.

=item * Variable interpolation

This module parses I<r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7347	7482	
==>$path;

    @found;
}

sub _caller {
    my $depth = 0;
    my $call  = caller($depth);
    while ( $call eq __PACKAGE__ ) {
        $de <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	419	525	
==>imilarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	419	525	
==>imilarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class Test::Builder: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6617	6790	
==>urn;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.curr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6617	6790	
==>urn;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.curr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1535	1632	
==>nt;
    $.depth  = $parent.depth() + 1;
}

## ---------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1535	1632	
==>nt;
    $.depth  = $parent.depth() + 1;
}

## ---------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2484	2584	
==>we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2484	2584	
==>we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is m <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6153	6308	
==>ys.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4655	4810	
==>ys.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3463	3595	
==>ls}}, [ $opt ];
        return;
    }
    die "there is no precedence like ", $opt->{other};
}


sub add_to_list {
    my ( $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16115	16255	
==>line =~ /^Bail out!\s*(.*)/i ) {
        $$reason = $1 if $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_re <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1254	1367	
==>ult: take tests from ./tests.yaml)
    --help          Show this help

  Perl6 Documentation:
    You will need th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7098	7211	
==>rpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This event is fired after the '=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7098	7211	
==>rpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This event is fired after the '=he <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1232	1406	
==>= 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavie <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1232	1406	
==>= 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3613	3706	
==><keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Ple <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3613	3706	
==><keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Ple <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7821	7940	
==>lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob[" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9418	9518	
==>e` will be a duration.

If the set contains lazy recurrences, it may not be possible to calculate the <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9418	9518	
==>e` will be a duration.

If the set contains lazy recurrences, it may not be possible to calculate the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7132	7223	
==>_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7132	7223	
==>_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5717	5918	
==>l";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5717	5918	
==>l";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5061	5177	
==>cript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5061	5177	
==>cript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	737	842	
==>);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenEx <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	737	842	
==>);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenEx <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16845	16968	
==>eta {
    my $m = get_meta($_[0]);
    die("p6_meta: undefined package '$_[0]'.\n") if !$m;
    $m;
}
sub get_meta {
    my( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21235	21328	
==>:Parser::assertion;
  push @ISA, qw( Regexp::Parser::__object__ );

  push @Regexp::Parser::if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8057	8191	
==>, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8057	8191	
==>, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cooki <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	329	520	
==>c;
            $doc = {};
            next;
        };
        /^(\S+?) \s* : \s* \[(.*?) \s* \] \s* $/x && do { # hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $do <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15628	15721	
==>ionalExpression> <'<='> <ShiftExpression>
    | <RelationalExpression> <'>='> <ShiftExpression <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1325	1450	
==>dd_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     => $co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8239	8346	
==>a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8239	8346	
==>a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15501	15607	
==>Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15501	15607	
==>Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17681	17773	
==>ired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statemen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17681	17773	
==>ired set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statemen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1499	1597	
==>a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1499	1597	
==>a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4217	4337	
==>urn Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7694	7814	
==>urn Relation.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?S <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3260	3378	
==>ram<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3260	3378	
==>ram<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_op <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21956	22054	
==>t order they should be consulted.  When
Locale::KeyedText is told to fetch the user message for a c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21956	22054	
==>t order they should be consulted.  When
Locale::KeyedText is told to fetch the user message for a c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2694	2788	
==><Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2694	2788	
==><Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	819	958	
==>hod parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	819	958	
==>hod parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15950	16059	
==>shown to a user, is in fact meant
to be interpreted by the machine itself and not any human user.  In some
sit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15950	16059	
==>shown to a user, is in fact meant
to be interpreted by the machine itself and not any human user.  In some
sit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6926	7041	
==>($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6926	7041	
==>($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5511	5671	
==>ous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5511	5671	
==>ous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Val <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	24	116	
==>:X1::PilUtil;

package Perl6::Run::OnPerl5::X1::Pugs;
use strict;
use FindBin;
use File::Spec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13457	13551	
==>lds.

=item $h.header_field_names

Returns the list of distinct names for the fields present in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13457	13551	
==>lds.

=item $h.header_field_names

Returns the list of distinct names for the fields present in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2921	3050	
==>\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3061	3190	
==>\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	524	622	
==>paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_links {
	warn "l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1545	1654	
==>eturn Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1545	1654	
==>eturn Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cm <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26764	26891	
==>_VERBOSE>, which prints
the output from the test being run.  Setting C<$Test::Harness::Debug> will
override this, or you can use <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5246	5357	
==>b ToPrimitive(JSX::Value::Object $o) {$o.<[[DefaultValue]]>}
multi sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
mu <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16234	16351	
==>ring is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Related to C< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1984	2087	
==>:Node::Unit';

    package Blondie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::App <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39976	40070	
==>nt and combines it with the
invocant relation into a new Relation::Example, such that all commo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24496	24593	
==>t and/or modify it under
the terms of the GNU General Public License (GPL) as published by the Fre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24496	24593	
==>t and/or modify it under
the terms of the GNU General Public License (GPL) as published by the Fre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12102	12205	
==>r :$depends) returns Bool`

This function currently on checks with ref() since we do not yet have
object <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12160	12263	
==>r :$depends) returns Bool`

This function currently on checks with ref() since we do not yet have
object <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3801	4052	
==>N>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3801	4052	
==>N>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3090	3233	
==>NTS

- The source file header must be valid perl5 I<and> perl6 code.

This is a valid header:

    #!/usr/bin/perl
    use v6-pugs;

* it execut <==
2	/Users/nnunley/pugs/util/package-osx.pl	2032	2133	
==>lass/Rebless.pm /Library/Perl/5.8.6/Class/Rebless.pm
        /usr/local/lib/perl5/site_perl/Perl6 /Lib <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4435	4538	
==>ns;
my $tok = def_rule('token',mk_dynamic_alt(\@tokens));
# tokens should be longest-match-first, but th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	96	340	
==>mbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	96	340	
==>mbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values u <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1395	1506	
==>ings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1395	1506	
==>ings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5419	5515	
==>f, which means 
you it is essentially read-only, however, all the return values of the
closure ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12438	12567	
==>],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_ge <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12438	12567	
==>],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fnd_ge <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2168	2283	
==>Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $Re <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2168	2283	
==>Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolved
    $Re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6999	7105	
==>ontent-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-Language") }
m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6999	7105	
==>ontent-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-Language") }
m <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1024	1139	
==>s Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1024	1139	
==>s Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<server_protocol returns Str> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16186	16280	
==>regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one els <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20612	20706	
==>regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one els <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9386	9518	
==>s => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - al <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9386	9518	
==>s => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5851	5956	
==>for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5851	5956	
==>for epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8077	8184	
==>});

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8077	8184	
==>});

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels he/ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	529	642	
==>ink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	529	642	
==>ink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pil <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	875	1011	
==>ensional arrays of the match
                     object, telling captures where in the deep structure
                     to store what <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	875	1011	
==>ensional arrays of the match
                     object, telling captures where in the deep structure
                     to store what <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2536	2670	
==>o not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2753	2887	
==>o not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16051	16147	
==>lives in the Document object given in the named parameter $document, and
whose Node Type attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16051	16147	
==>lives in the Document object given in the named parameter $document, and
whose Node Type attribut <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2047	2315	
==>ffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2047	2315	
==>ffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4417	4513	
==>... go the right superclass name for Point3D');
is($p3d->prototype->prototype->class, \&Object, ' <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4452	4554	
==>.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
implemented as ha <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4452	4554	
==>.

=head1 METHODS

Since the current version of Pugs does not support OO, methods are
implemented as ha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4921	5038	
==>epository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also lo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4921	5038	
==>epository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also lo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13753	13861	
==>";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13753	13861	
==>";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1543	1674	
==>tive bit
    int         native integer
    str         native string (sequence of integers, no Unicode)
    num         native floa <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7538	7644	
==>lit (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_flags;

    return ($ghc, $ghc_v <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	469	570	
==>ile
# the spike "coded to the tests", and thus is far from being a
# complete p5 compatible regex engi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	360	468	
==>.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	360	468	
==>.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	119	219	
==>on

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 S <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	119	219	
==>on

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21858	21958	
==>o valid
for a Relation to have zero attributes, though such a Relation can have no
more than a single <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26410	26510	
==>o valid
for a Relation to have zero attributes, though such a Relation can have no
more than a single <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39654	39741	
==>.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39654	39741	
==>.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24712	24808	
==>e::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid inpu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24712	24808	
==>e::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid inpu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14403	14530	
==>nd !($self->{min} == 0 and $self->{max} == 1))
      ) {
        $rx->awarn($rx->RPe_ZQUANT);
      }

      # unbounded quantif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5522	5645	
==><+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new opera <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5522	5645	
==><+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
}

{
    # define a new opera <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15919	16026	
==>rent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15919	16026	
==>rent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	92	203	
==>ilder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
h <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	92	203	
==>ilder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.output handles 'diag';
h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3284	3420	
==>"$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3272	3408	
==>"$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TO <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3147	3301	
==>%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3147	3301	
==>%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2239	2353	
==>rns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end () <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2239	2353	
==>rns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end () <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6827	6940	
==>le->compile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43378	43470	
==>for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relation> apply to this file <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	835	960	
==>] =:= the
  # callback we enqueue().
  method post (POE::Session $session, Str $event, *@args) {
    # Push our callback on @: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22579	22676	
==>exp;

=head2 Additional notes

Perl_re_dup() in sv.c is a useful source of information, as well as <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9182	9290	
==>ce = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9182	9290	
==>ce = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1659	1775	
==>this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the resulting object
is dis <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1659	1775	
==>this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the resulting object
is dis <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2482	2615	
==>m and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    Y       safe   (Array)\
#   ie, both return and argume <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	520	617	
==>omething like that.
type SlurpLimit is ( Int, Perl::Exp );

has SlurpLimit $.subSlurpLimit;

has P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13632	13772	
==>($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n= <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13632	13772	
==>($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10653	10770	
==>span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10653	10770	
==>span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23590	23702	
==>..)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20011	20123	
==>..)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4936	5033	
==>e reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 B <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4936	5033	
==>e reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 B <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7671	7785	
==>nd %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7671	7785	
==>nd %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(norm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19351	19449	
==>FACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines like: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19351	19449	
==>FACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines like: <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2426	2535	
==>OKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2426	2535	
==>OKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23879	23974	
==>ut language specific details like
encodings or plurality.

My understanding of alternate solutio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23879	23974	
==>ut language specific details like
encodings or plurality.

My understanding of alternate solutio <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3893	3978	
==>bler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3893	3978	
==>bler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17272	17401	
==>Expression>
}
rule BitwiseXORExpressionNoIn :words {  # see 11.10
      <BitwiseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1141	1262	
==>) {
        my $line = prompt_string("p5ugs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { print <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4014	4155	
==>ee {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4014	4155	
==>ee {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of o <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11516	11664	
==>e($node)
        : $self->generic_reduce($node);
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	508	606	
==>only
# represent transformations between PIL node types; out-of-band data is not listed.

sub type_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	508	606	
==>only
# represent transformations between PIL node types; out-of-band data is not listed.

sub type_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	432	533	
==>The types given below, although Haskellesque, are not pure functions.  They only
# represent transform <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	432	533	
==>The types given below, although Haskellesque, are not pure functions.  They only
# represent transform <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6249	6369	
==>returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6249	6369	
==>returned mapping the headers. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3156	3266	
==>art = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3156	3266	
==>art = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22783	22903	
==>lags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19204	19324	
==>lags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8397	8495	
==>et_method (opaque $self: symbol $label) returns method { 
    %:methods{$label};
}


(method get_me <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19156	19276	
==>"),
				param => val(3),
			),
		),
		param => comb(
			fun => ide("f"),
			param => val(v => "foo", t => type::operator: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8248	8365	
==>mand_line($tfile), "\n";
        }
        my %results = $Strap->analyze_file($tfile) or
          do { warn $Strap->{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6093	6224	
==>ext if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6093	6224	
==>ext if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28445	28542	
==>or this object.
This is used by the walk() method.  Typically, a capturing group's ender
is a C<cl <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	962	1063	
==>m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	962	1063	
==>m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	32	158	
==>has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	32	158	
==>has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12797	12904	
==>vent) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livechec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12797	12904	
==>vent) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livechec <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3544	3718	
==>l(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3544	3718	
==>l(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5805	5903	
==>ct, the only method that truly must be implemented is the 
one that actually enciphers the data.  T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5805	5903	
==>ct, the only method that truly must be implemented is the 
one that actually enciphers the data.  T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14075	14205	
==>lator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14075	14205	
==>lator.translate_message(
            Locale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4549	4647	
==>16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F]) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4549	4647	
==>16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F]) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2708	2810	
==>r::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt so <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2708	2810	
==>r::Arcfour.encipherer(:key($key));  #Create the cipher closure
    print cipher($text1);   # Encrypt so <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10469	10563	
==>return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10469	10563	
==>return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	685	788	
==>ow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently def <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	685	788	
==>ow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently def <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	144	246	
==>utput' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$. <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	88	189	
==>e lib 'lib';
use Inline::Parrot::PMC 'get_int';
use Inline C=>'Config',
	INC => `pkg-config --cflags p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3731	3880	
==>LBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3731	3880	
==>LBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12110	12203	
==>eyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12110	12203	
==>eyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34128	34235	
==>ch Set Name can be any defined and non-empty string.

=back

This is the main Translator constructor method: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34128	34235	
==>ch Set Name can be any defined and non-empty string.

=back

This is the main Translator constructor method: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15899	16001	
==>hod _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19376	19478	
==>hod _intersection (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!h <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1653	1754	
==>o the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1653	1754	
==>o the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7282	7381	
==>fix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $on <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7282	7381	
==>fix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $on <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16625	16751	
==>y $reftyp = ref_flavor($x);
    my $handler = $as_p6obj_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5737	5846	
==>*{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($self, @handles) = @_;
  no strict 'refs';
  m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2107	2280	
==>od 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{...}
# signature from S29draf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1240	1364	
==>'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1380	1504	
==>'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rul <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1023	1140	
==>t
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1023	1140	
==>t
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1673	1771	
==>nfix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<ma <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1673	1771	
==>nfix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2312	2428	
==>TTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2312	2428	
==>TTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Q <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3678	3980	
==>sc keywords
            elsif ($t eq 'returns' ||
                   $t eq 'params'  ) {
                my $type = pop @t;
                @t = ($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #w <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5751	5838	
==>ent($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_token {    def_token($X::cap->[ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2506	2626	
==>ke "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2506	2626	
==>ke "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2025	2117	
==>C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2114	2206	
==>C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Gr <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19282	19387	
==>ary->new("str")),
		),
	),
);

# if we don't know what symbol it is we can't type it
my $no_such_sym = fun <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	24	120	
==>atch::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	24	120	
==>atch::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use st <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1454	1554	
==>}
type::operator::nullary: layout($$) = { $.name }

type::operator::nary: layout($$) = { join(" ", $. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1	117	
==>use v6;
module Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1	117	
==>use v6;
module Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_el <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3435	3565	
==>LINKING unless -d $my_bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfil <==
2	/Users/nnunley/pugs/util/version_h.pl	2317	2414	
==>dist/build/src/Pugs/Version.hi";
    unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3155	3241	
==>{true}.

p6_conjunctions(W, Z) --> "&", p6_concatenation(X), p6_conjunctions(intersect( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	79	175	
==>relude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	79	175	
==>relude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# P <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1896	2030	
==>n Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when unde <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1896	2030	
==>n Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when unde <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10239	10356	
==>text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10239	10356	
==>text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	625	744	
==>thority
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for:

    JIB::Package::Sou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23099	23200	
==>h are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23099	23200	
==>h are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19818	20047	
==>,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20097	20326	
==>,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4798	4979	
==>d[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies thi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5262	5443	
==>d[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that satisfies thi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	412	535	
==>erficial success proved
# straightforward, a more robust solution would be far more difficult.
# One basically has to revers <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10129	10293	
==>me>
            ### implementation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $test ( grep { $_->package n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4337	4456	
==>fix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4337	4456	
==>fix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8399	8563	
==>y', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8399	8563	
==>y', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEP <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4226	4334	
==>take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @inde <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4226	4334	
==>take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @inde <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11942	12108	
==>ails->[$overrun-1];
                    push @{$test{failed}}, $overrun
                }
            }

            if ($wstatus) {
                $failedtests{$tfil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	802	911	
==>Pugs::Runtime::Match::Ratchet';
  }
  return bless \\{
    str => \\$s, from => \\(0+$-[0]), to => \\(0+$+[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6318	6482	
==>ay to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6318	6482	
==>ay to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	224	327	
==>)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	224	327	
==>)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1140	1247	
==>:DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1140	1247	
==>:DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12065	12184	
==>me, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4708	4827	
==>me, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1031	1165	
==>{ 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1042	1176	
==>{ 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $cod <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2491	2590	
==>T

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This program is <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2491	2590	
==>T

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This program is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5268	5384	
==>, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5268	5384	
==>, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10047	10187	
==>urn { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar categ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10883	11023	
==>urn { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar categ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	13066	13177	
==>en(self) }

    method trans (Pair *@intable) is primitive is safe {
        # Motto: If in doubt use brute forc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1721	1846	
==>:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    whil <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1721	1846	
==>:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    whil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2462	2563	
==>s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	36	130	
==>RulesInP5::OpTable;
    $optable->addToken("term:", "", "nows", &parse_ws_lit);
    $optable->a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1233	1328	
==>r = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1233	1328	
==>r = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	1019	1125	
==>section 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($_[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	487	612	
==>to be a bit more elegant, and not blow it away every go
{   system( qw[rm -rf], $config->root )                         and di <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	671	784	
==>is exported(:all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chapter 8 section 3.1

## XXX - the su <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9081	9204	
==>nion = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9081	9204	
==>nion = $span0.union( $span1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	374	493	
==>our basic variables/functions for 
# the metamodel that the runtime needs to 
# have available ...
$::Class   = undef;
$ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32417	32509	
==>, or any C<$mapping> value set members do not match invocant
Relation::Example attribute name <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16859	16981	
==>erence->new($e->get('$class:')), $e->get('$attrs'));     
            }
        )
    )
);

=pod

method BUILDALL (opaque $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2	100	
==>This file was an experiment in using the perl5 implementation's
# "regcomp hooks" (C functions call <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1664	1779	
==>lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 p <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1664	1779	
==>lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5333	5463	
==>terface'>
    | <'static'>
    | <'byte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30788	30885	
==>can't match the ')', because
if the 'c)' handler gets called, it's expected to match!  It pops the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7325	7426	
==>ers and returns any pending data.  Block 
ciphers should buffer input data until they have an entire b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7325	7426	
==>ers and returns any pending data.  Block 
ciphers should buffer input data until they have an entire b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2185	2321	
==>table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2185	2321	
==>table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %t <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1687	1796	
==>down: symmetrical => $^b },
		);
	my $sym_flag = (int(rand() * 10)) % 2;
	my $selector = (int(rand() * 100)) % <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9653	9741	
==>", p5_charset_range_x(B).
p5_charset_range_x(_) --> p5_charset_item(class_pos(_)), {!, fa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	49	151	
==>e;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_att <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	49	151	
==>e;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_att <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17054	17163	
==>oth works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17054	17163	
==>oth works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1171	1278	
==>fix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub * <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1171	1278	
==>fix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub * <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19431	19560	
==>h ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19710	19839	
==>h ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1418	1544	
==>ext unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1418	1544	
==>ext unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15150	15250	
==>ge to the user, or generate a message to be
shown to the user.  Sometimes this is an error message of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15150	15250	
==>ge to the user, or generate a message to be
shown to the user.  Sometimes this is an error message of <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	157	259	
==>Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	157	259	
==>Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	969	1092	
==>'--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_ru <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7332	7469	
==>"alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7332	7469	
==>"alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595 <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	777	917	
==>host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	744	884	
==>host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2538	2643	
==>ldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation.

=back

=head1 API ME <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2538	2643	
==>ldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation.

=back

=head1 API ME <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5063	5173	
==>ed %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5063	5173	
==>ed %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<u <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	583	712	
==>g ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	583	712	
==>g ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19350	19454	
==>nnected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Ret <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19350	19454	
==>nnected.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	104	213	
==>Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespa <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	104	213	
==>Int   $.require;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5434	5572	
==>($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5434	5572	
==>($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29947	30048	
==>or method to read values from it by key.  Each template hash
key corresponds to the Message Key attrib <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29947	30048	
==>or method to read values from it by key.  Each template hash
key corresponds to the Message Key attrib <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4040	4150	
==>h, day => $day )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

T <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4040	4150	
==>h, day => $day )`

Returns a date object for the given values.  The month and day default
to 1 if not given.

T <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4591	4695	
==>onth for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_y <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4591	4695	
==>onth for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_y <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2663	2799	
==>ch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:blank:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	947	1055	
==>g more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	947	1055	
==>g more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4491	4616	
==>everse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4479	4604	
==>everse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33262	33358	
==>uments sent are the walking stack and the current
depth in the walking stack.  Elements are taken <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	423	579	
==>samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	423	579	
==>samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5464	5579	
==>($pStmts);
}
NODE PPad ($pScope, $pSyms, $pStmts) {
    my(@vars);
    for (@$pSyms) {
	my($var)=@$_;
        push(@ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1784	1913	
==>t {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.pr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1784	1913	
==>t {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.pr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10585	10722	
==>ALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAILC <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19482	19603	
==>ion::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20479	20600	
==>ion::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!bo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2395	2528	
==>ding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars < <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2395	2528	
==>ding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars < <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39950	40051	
==>n 2.1 of the License, or (at your option) any later version.  You
should have received a copy of the L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39950	40051	
==>n 2.1 of the License, or (at your option) any later version.  You
should have received a copy of the L <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1521	1617	
==>se errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14827	14942	
==>::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedded_code = join("",$o->data);
    my $code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7654	7776	
==>ble_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'prim <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7654	7776	
==>ble_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'prim <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40662	40773	
==>ee the LGPL for more
details.

While it is by no means required, the copyright holders of
Locale::KeyedText woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40662	40773	
==>ee the LGPL for more
details.

While it is by no means required, the copyright holders of
Locale::KeyedText woul <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3961	4053	
==>3/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3961	4053	
==>3/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1108	1208	
==>eman3dir => $Config{installsiteman3dir} || $Config{installman3dir},

        sourcedir      => Cwd::a <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3733	3831	
==>B<Stat>

If the test exited with non-zero, this is its exit status.

=item B<Wstat>

The wait statu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1739	1848	
==>->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1739	1848	
==>->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'inf <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	316	484	
==>%spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	316	484	
==>%spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6541	6638	
==>d it's probably okay to keep a few
# zombies around for a relatively short while.
sub gather_resul <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5722	5831	
==>abel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Sco <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5722	5831	
==>abel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Sco <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10237	10345	
==>t
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the depth to which it will
look <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7020	7120	
==>o shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto end if $ke <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5537	5652	
==>open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5537	5652	
==>open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    retu <==
2	/Users/nnunley/pugs/util/package-osx.pl	566	672	
==>sr/local/bin/pbc_info
        /usr/local/bin/pbc_merge
        /usr/local/bin/pdb
        /usr/local/bin/pd <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15290	15405	
==>},
      perl6_object => sub { $_[0]->as_perl5_hash },
     );
sub p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2073	2252	
==>g_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2073	2252	
==>g_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2604	2731	
==>intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2604	2731	
==>intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14703	14825	
==>\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14703	14825	
==>\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2856	2979	
==>Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3401	3524	
==>Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2851	2955	
==>iginal text, or at
least a valid representation of it that "honours the spirit of the
dialect", if the or <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2851	2955	
==>iginal text, or at
least a valid representation of it that "honours the spirit of the
dialect", if the or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7587	7720	
==>exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7587	7720	
==>exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the me <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5174	5295	
==>y $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5174	5295	
==>y $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4252	4367	
==>_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4252	4367	
==>_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement_previous } <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3422	3519	
==>I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $make <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4558	4654	
==>I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $make <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	95	209	
==>tr $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	95	209	
==>tr $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	124	246	
==>y {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	124	246	
==>y {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_ke <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27306	27422	
==>This method creates a method of the parser C<FLAG_$flag>, and sets it to
the code reference in $code.  Example:

  $p <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5089	5195	
==>r.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5089	5195	
==>r.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6827	6930	
==>t to the end of the line and find no closing match, I should
ignore the opening one. However, this means <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6827	6930	
==>t to the end of the line and find no closing match, I should
ignore the opening one. However, this means <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3012	3112	
==>}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3012	3112	
==>}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1500	1600	
==>pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1500	1600	
==>pop support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3903	4010	
==>that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitives, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3764	3869	
==>that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitives, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2509	2777	
==>? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2509	2777	
==>? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} e <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1109	1226	
==>y ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1109	1226	
==>y ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24326	24431	
==>h are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24326	24431	
==>h are always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	372	484	
==>if $_[1] eq 'Num'  && defined $_[0];
    return 1 if $_[1] eq 'Code' && ref($_[0]) eq 'CODE';
    return 0;
}

pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5515	5640	
==>c pos
    goto term_bx1
  term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target, pos, 1
    if <==
2	/Users/nnunley/pugs/util/config_h.pl	320	430	
==>ry of the Pugs installation 
              (defaults to current directory)

=cut

my ($ghc_line, $base) = @ARGV <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22517	22684	
==>->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42306	42472	
==>->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3110	3233	
==>rgument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3110	3233	
==>rgument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EM <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1184	1296	
==>ess -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($sc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1184	1296	
==>ess -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($sc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	234	324	
==>_modified_since if_unmodified_since last_modified
    content_type content_encoding content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	234	324	
==>_modified_since if_unmodified_since last_modified
    content_type content_encoding content <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7469	7570	
==>ks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7469	7570	
==>ks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2446	2552	
==>w;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2446	2552	
==>w;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4346	4455	
==>e comments, and blank lines are ignored.

When writing back to the config file, any comments are discarded.

= <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4346	4455	
==>e comments, and blank lines are ignored.

When writing back to the config file, any comments are discarded.

= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	259	372	
==>nal   qw[can_load];
use File::Basename              qw[dirname];

=pod

=head1 NAME

JIB::Utils

=head1 METHODS

= <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4410	4525	
==>ate[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keys <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4410	4525	
==>ate[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keys <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8834	8949	
==>!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the barewo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8834	8949	
==>!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the barewo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	264	362	
==>3::Grammar::Spec::Program>$/ {say "ok"}else{say "not ok"}\' 2>&1';
    print $cmd,"\n";
    my $out <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1431	1609	
==>ies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1431	1609	
==>ies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $e <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	349	518	
==>eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	349	518	
==>eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34876	35011	
==>ess {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      type => 'and',
      raw = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10575	10762	
==>no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10575	10762	
==>no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass} <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1330	1426	
==>ch includes attribute
lookup as well as method lookup, as attribute fetching is actually
just a s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2000	2214	
==>eq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            Param('$y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    S <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	555	668	
==>I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm b <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	555	668	
==>I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8029	8130	
==>!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8029	8130	
==>!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/h <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1411	1519	
==>e =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code_with_package($1,'main');
            my @result = eval($co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	990	1093	
==>vide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are S <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	990	1093	
==>vide a better default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6731	6857	
==>you want (str, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - mov <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6506	6623	
==>you want (str, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - mov <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	41	177	
==>InP5::OpTable;
    $optable->addToken("term:", "", "nows", &parse_ws_lit);
    $optable->addToken("term:::", "term:", "nows", "PGE::Exp:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	2	111	
==>ckage Pugs::Grammar::Pod;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# XXX - this mo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7220	7339	
==>DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7220	7339	
==>DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may c <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	605	706	
==>e tests
$ENV{PERL_CORE} = 1 unless ${^TAINT};

$0 ~~ s/\.dp$//; # for the test.deparse make target\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23497	23601	
==>han mutable, this property and/or
same-named accessor method can be used to see if a Relation-doing objec <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28049	28153	
==>han mutable, this property and/or
same-named accessor method can be used to see if a Relation-doing objec <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2166	2272	
==>y ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAG <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2166	2272	
==>y ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAG <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3154	3261	
==>:Publisher::Event::Named $event) {
            # an optimizing lookup for named events stores things in a ha <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12810	12904	
==>onclick="toggle_visibility('<tmpl_var name=id>')" id="expander_<tmpl_var name=id>">&raquo;</spa <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17524	17627	
==>HX_ char* exp, char* xend, PMOP* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ regexp* prog, char <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14095	14199	
==>s = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17572	17676	
==>s = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	225	325	
==>pos point to the test library

use warnings;
use strict;

use Cwd;
use File::Find;
use File::Spec::Fu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5982	6182	
==>replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9459	9659	
==>replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        hea <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2168	2268	
==>>>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< ide <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2168	2268	
==>>>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< ide <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3806	3918	
==>ff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3806	3918	
==>ff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5023	5142	
==>); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MI <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5023	5142	
==>); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MI <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3882	3985	
==>my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3882	3985	
==>my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18004	18098	
==>,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18315	18409	
==>,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10295	10390	
==>previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary fu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10295	10390	
==>previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary fu <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9145	9251	
==>ive_file);
  my $file = basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7157	7287	
==>if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded template mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7157	7287	
==>if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully loaded template mo <==
2	/Users/nnunley/pugs/util/package-osx.pl	11169	11288	
==>rint "Removing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	580	679	
==>base "Regexp::Parser"'
# which wouldn't call 'import'
{
  my ($level, $prev, $pkg);
  while (my ($cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10163	10277	
==>defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10157	10271	
==>defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20973	21064	
==>s are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20973	21064	
==>s are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2292	2406	
==>()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2292	2406	
==>()         returns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5267	5369	
==>{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5267	5369	
==>{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4002	4110	
==>die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4219	4327	
==>die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8890	9012	
==>/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6278	6395	
==>refetch GRUB.",
  ensure => sub { -r $grub_local and -s $grub_local },
  using  => sub { getstore $grub_uri => $grub_l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8322	8495	
==>, { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8322	8495	
==>, { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6879	7001	
==>e' );

Sets the +w bit for the file.

Returns true on success, false on failure.

=cut

sub _mode_plus_w {
    my $self = s <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4492	4603	
==>emit_parameter( 
            %pad<"paramName">,  %pad<"isInvocant">,
            %pad<"isLValue">,   %pad<"isLaz <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1972	2093	
==>but have distinct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<= <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	842	946	
==>8601 ) returns Duration::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_dura <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8217	8318	
==>an1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8217	8318	
==>an1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the o <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7274	7635	
==>('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ), <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46187	46336	
==>e'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:name'));
            }
        )
    )
);

$::Package->send('a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7789	7932	
==>),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(871 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7789	7932	
==>),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(871 <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	261	379	
==>';

use ExtUtils::MakeMaker ();

sub Makefile { $_[0] }

sub prompt { 
    shift;
    goto &ExtUtils::MakeMaker::prompt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13938	14041	
==>nfinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13938	14041	
==>nfinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glock. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19195	19313	
==>get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19195	19313	
==>get();
    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6556	6673	
==>);      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which se <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6556	6673	
==>);      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blocks of text which se <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9545	9707	
==>ble called from cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executabl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2780	3041	
==>ned($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2780	3041	
==>ned($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_li <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2549	2650	
==>ail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() ) <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2549	2650	
==>ail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.report() ) <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1030	1136	
==>...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFA <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1030	1136	
==>...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6213	6333	
==>te($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6213	6333	
==>te($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	203	444	
==>( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	204	445	
==>( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6667	6792	
==>dash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6667	6792	
==>dash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3253	3379	
==>et_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3253	3379	
==>et_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( $m->{label} eq '*q <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5986	6086	
==>got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10243	10343	
==>got the right method return value');
is($Bar->superclass, $Foo, '... $Bar got the right method return <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	325	429	
==><sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	325	429	
==><sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1736	1879	
==>+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1736	1879	
==>+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9 <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7639	7801	
==>pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7696	7858	
==>pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11325	11423	
==>fy(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Ar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11325	11423	
==>fy(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3174	3317	
==>self->{levels}};
        $s = $s . "    rule $equal { " .
            emit_perl6_rule($self, $level, $default) .
            " }\n";
    }
    r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19700	19795	
==>> automatically tries to use slight variations of the nickname in the
login phase (for example C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19700	19795	
==>> automatically tries to use slight variations of the nickname in the
login phase (for example C <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34437	34531	
==>atching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38987	39081	
==>atching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic rela <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	190	319	
==>lt = Welt.new();  	# (fast) wie in Perl 5
my $welt = new Welt();  	# wie in Perl 5
my Welt $welt = new Welt(); 	# neu: Typen-Dekla <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8503	8608	
==>mpty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8503	8608	
==>mpty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `n <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8427	8541	
==>contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8427	8541	
==>contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are su <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1989	2089	
==>$tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1989	2089	
==>$tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.is <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4033	4206	
==>r whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4033	4206	
==>r whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10993	11096	
==>d.

A multi-valued field will be returned as separate values in list
context and will be concatenated wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10993	11096	
==>d.

A multi-valued field will be returned as separate values in list
context and will be concatenated wi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9595	9695	
==>usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9595	9695	
==>usual way that Rosetta::Model indicates a failure is to throw an
exception; most often this is due to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10172	10296	
==>$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10166	10290	
==>$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37627	37722	
==>d_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its posit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37627	37722	
==>d_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its posit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37668	37761	
==>mple $other!) returns Relation::Example>

This method is a generic relational operator that ta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38508	38601	
==>mple $other!) returns Relation::Example>

This method is a generic relational operator that ta <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1134	1254	
==>th = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1134	1254	
==>th = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4072	4211	
==>[i] = -1;
      }
      r->lastparen = r->lastcloseparen = 0;
    }

    newstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	642	733	
==>-$ENUM, 'Unknown switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24657	24828	
==>,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24936	25107	
==>,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $ru <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1883	2009	
==>NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1883	2009	
==>NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1550	1646	
==>ion or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to de <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1550	1646	
==>ion or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to de <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1085	1200	
==>od end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTim <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1085	1200	
==>od end () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTim <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3386	3490	
==>bug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3386	3490	
==>bug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1765	1856	
==>ta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1765	1856	
==>ta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7737	7909	
==>res;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7737	7909	
==>res;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26591	26686	
==>m C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26591	26686	
==>m C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5488	5639	
==>ous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5488	5639	
==>ous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16277	16396	
==>s a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spans.

The argument can be a Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16277	16396	
==>s a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spans.

The argument can be a Sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15891	15990	
==>also written
several books and papers and taught classes on the subject over the last
35+ years, alo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15891	15990	
==>also written
several books and papers and taught classes on the subject over the last
35+ years, alo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2935	3033	
==>6.pm.

Although running C<v6-pugs> requires the installation of a lot of Perl 5 modules,
it is comp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4610	4707	
==>or p3d');
is($p3d->get_y, 6, '... got the right y for p3d');
is($p3d->get_z, 7, '... got the right <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5985	6091	
==>nt<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<objec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5985	6091	
==>nt<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<objec <==
2	/Users/nnunley/pugs/util/config_h.pl	1149	1246	
==>tem.Console.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_compile(<< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3106	3202	
==>nd::Foo->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

The compiler reduces <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2396	2501	
==>self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2396	2501	
==>self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method inters <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2611	2713	
==>st;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building te <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2611	2713	
==>st;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building te <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	807	956	
==>{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	807	956	
==>{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18063	18165	
==>als', and then the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18063	18165	
==>als', and then the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	937	1038	
==>FERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	937	1038	
==>FERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2483	2617	
==>Package::Binary->Object::Accessor::new;
    
        return unless $obj;

        ### create accessors
        my %acc = map { $_ => $a <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3965	4064	
==>" or die "can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\tex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1751	1956	
==>an::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1751	1956	
==>an::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	600	718	
==>_env
    } => $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other nat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1198	1308	
==>_env
    } => $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other nat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3520	3625	
==>ad1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3520	3625	
==>ad1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11074	11258	
==>fe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11074	11258	
==>fe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2091	2179	
==>ble->addToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	300	422	
==>s:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements O <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	282	400	
==>s:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements O <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	618	781	
==>als {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	618	781	
==>als {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        retu <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	671	790	
==>t found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://do <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	570	675	
==>t found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://do <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	645	753	
==>ged to cc_lib_links due to confusion between Perl and C";
	shift()->cc_lib_links(@_);
}

sub optimize_flags { <==
2	/Users/nnunley/pugs/util/grokprims.pl	1362	1464	
==>arity-1]).")<br />";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2876	2977	
==>_y, 6, '... got the right y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22885	23036	
==>cal prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19306	19457	
==>cal prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2087	2191	
==><Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2176	2280	
==><Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	51	168	
==>xporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	51	168	
==>xporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14154	14267	
==>gistered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    my $self <==
2	/Users/nnunley/pugs/util/package-osx.pl	8396	8502	
==>pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        /u <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	68	172	
==>::Runtime/;

use strict;
use warnings;

sub provides { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blond <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11210	11313	
==>y will not change the semantic of a header field, but
in practice there are cases like old-style Netscap <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11210	11313	
==>y will not change the semantic of a header field, but
in practice there are cases like old-style Netscap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17068	17210	
==>o" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17347	17489	
==>o" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24695	24795	
==>any later version.  You should have received a
copy of the GPL as part of the Rosetta distribution, i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24695	24795	
==>any later version.  You should have received a
copy of the GPL as part of the Rosetta distribution, i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6933	7033	
==>method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6933	7033	
==>method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15599	15708	
==>is contains zero or more attribute names and values
that help to define this Node.

=item C<@!child_nodes> - B <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15599	15708	
==>is contains zero or more attribute names and values
that help to define this Node.

=item C<@!child_nodes> - B <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36574	36674	
==>e and returns an equivalent human readable text message
string; this assumes that a Template correspo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36574	36674	
==>e and returns an equivalent human readable text message
string; this assumes that a Template correspo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13415	13522	
==>> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, \$how);
  }) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9471	9574	
==>. $!\n";

    my $taint = ( $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16571	16667	
==>e::KeyedText gives your application the maximum amount of control as
to what the user sees; it ne <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16571	16667	
==>e::KeyedText gives your application the maximum amount of control as
to what the user sees; it ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4490	4631	
==>.  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4630	4771	
==>.  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9712	9831	
==>eturn emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9692	9811	
==>eturn emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3028	3122	
==>er closure, which can be called repeatedly to encipher data.
The encipherer closure can be call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3028	3122	
==>er closure, which can be called repeatedly to encipher data.
The encipherer closure can be call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18972	19070	
==>eferrer, this method removes the fragment from the
given URI if it is present, as mandated by RFC26 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18972	19070	
==>eferrer, this method removes the fragment from the
given URI if it is present, as mandated by RFC26 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4853	5019	
==>rt @tests;
        }
        if ( $Config{dry} ) {
            print join( "\n", @tests, "" );
            exit 0;
        } else {
            print "# ", scalar @tes <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2375	2476	
==>ut links that we mean to insert.
# Top level index is file, second level is an array ref of hash refs. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1051	1169	
==>port { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1051	1169	
==>port { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1381	1480	
==>egex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 regexes that use the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	78	172	
==>s::Compiler::Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
our @EXPORT_OK = qw(ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18483	18587	
==>misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18483	18587	
==>misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36968	37067	
==>translator.translate_message( $message );

=back

The Translator class also has these utility method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36968	37067	
==>translator.translate_message( $message );

=back

The Translator class also has these utility method <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14169	14272	
==>b: type($$) = {
	my $f = type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::ar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21552	21651	
==>r     substrs->data[2].substr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4462	4594	
==>before <LineTerminator>> <SourceCharacter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2083	2180	
==>f->{_is_macos} = ( $^O eq 'MacOS' );
}

=head1 Analysis

=head2 $strap->analyze( $name, \@output_l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1784	1922	
==>'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accen <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1784	1922	
==>'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1034	1162	
==>or in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1239	1367	
==>or in statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2974	3081	
==>map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2974	3081	
==>map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2062	2177	
==>SH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2062	2177	
==>SH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	648	762	
==>needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	648	762	
==>needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18832	18931	
==>sion 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9972	10096	
==>[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9966	10090	
==>[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2086	2265	
==>urns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2086	2265	
==>urns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23498	23640	
==>ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19919	20061	
==>ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9910	10004	
==>rred to as "immediate" and "deferred".  The immediate validations
are performed at the moment t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9910	10004	
==>rred to as "immediate" and "deferred".  The immediate validations
are performed at the moment t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19501	19637	
==>$rx->{flags}[-1],
      family => 'close',
      type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    ret <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1171	1281	
==>onfig{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1110	1214	
==>onfig{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9226	9412	
==>> 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'stateme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9226	9412	
==>> 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1183	1271	
==>LE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1403	1491	
==>LE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9067	9190	
==>die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10544	10667	
==>die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5987	6090	
==>nvoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in p5)

  my $matcher = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5779	5880	
==>nvoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in p5)
  my $matcher = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14216	14329	
==>t is analagous to a simplified version of the
"Node" interface defined in the XML DOM spec; it has a type (what th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14216	14329	
==>t is analagous to a simplified version of the
"Node" interface defined in the XML DOM spec; it has a type (what th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4322	4418	
==>%{}

When used as a hash reference, the match object returns named captures
as match objects, key <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4322	4418	
==>%{}

When used as a hash reference, the match object returns named captures
as match objects, key <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3816	3931	
==>@found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6140	6255	
==>@found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        return unless $file =~ m!^\Q$path\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	305	473	
==>=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	299	467	
==>=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	992	1117	
==>if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	992	1117	
==>if $protocol.defined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        } <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6184	6334	
==>ub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5692	5842	
==>ub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	461	571	
==>g the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	472	582	
==>g the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5061	5234	
==>port {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5119	5292	
==>port {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23163	23376	
==>'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12070	12170	
==>e
case sensitivity of C<cmp> as a Comparator.

If all criteria are exhausted when comparing two eleme <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3958	4041	
==>s143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3958	4041	
==>s143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8843	8960	
==>Param);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($type) { "should not appear" }
NODE TCxtItem   ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40743	40835	
==>lders of
Locale::KeyedText would appreciate being informed any time you create a
modified ver <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40743	40835	
==>lders of
Locale::KeyedText would appreciate being informed any time you create a
modified ver <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22678	22803	
==>'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2174	2276	
==>r::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17780	17926	
==>callback {
    my($self, $line, $type, $totals) = @_;
    print $line if $Verbose;

    my $meth = $Handlers{$type};
    $meth->($self, $line, $typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20642	20747	
==>file might end up being where
documentation on writing handlers goes.

The documentation on sub-classing i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17443	17544	
==>(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9062	9192	
==>alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9255	9385	
==>alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $mat <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13326	13429	
==>entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13326	13429	
==>entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	688	786	
==>tatement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	894	992	
==>tatement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emi <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1243	1462	
==>abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a dire <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1243	1462	
==>abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a dire <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1957	2078	
==>ble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline} <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1957	2078	
==>ble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2823	2921	
==>= 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2823	2921	
==>= 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1413	1516	
==>est, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1471	1574	
==>est, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	32	132	
==>ginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	32	132	
==>ginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3831	3962	
==>)-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3843	3974	
==>)-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the o <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9804	10032	
==>>new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1523	1627	
==>{
	package Blondie::Node::Atomic;
	use base qw/Blondie::Node/;

	sub digest { "" }
	sub atomic { 1 }
}

{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7424	7575	
==>eturn 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7424	7575	
==>eturn 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5413	5555	
==>r(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(9 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5413	5555	
==>r(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(9 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8433	8559	
==>> sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope" <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8433	8559	
==>> sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10005	10104	
==>S_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programmin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10005	10104	
==>S_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programmin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3049	3178	
==>adFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            prin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3513	3642	
==>adFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1725	1827	
==>> join("", $S->nchar(@names)), "\\c[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28605	28704	
==>efine any "Template" modules, but it expects you
to make modules having a specific simple API that w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28605	28704	
==>efine any "Template" modules, but it expects you
to make modules having a specific simple API that w <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35547	35647	
==>m C<product (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40097	40197	
==>m C<product (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1526	1653	
==>req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match appl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1526	1653	
==>req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match appl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	827	919	
==>ss has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Nod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	827	919	
==>ss has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26514	26640	
==>lication =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26793	26919	
==>lication =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	180	294	
==>is sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	180	294	
==>is sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	537	647	
==>ructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	537	647	
==>ructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9261	9355	
==>rl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3086	3180	
==>rl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @sta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4561	4665	
==>` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / int <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4561	4665	
==>` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16161	16254	
==>nt <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@Dar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16219	16312	
==>nt <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@Dar <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4777	4954	
==>>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4777	4954	
==>>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        clos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3868	3999	
==>d not be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5793	5900	
==>my $welcomed = 0;
step
  descr  => "Welcome",
  ensure => sub { $welcomed },
  using  => sub { $welcomed++ } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	686	789	
==>s[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	686	789	
==>s[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.sp <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	261	369	
==>d add($self: Duration $duration) returns Date {
    ...
}

method subtract($self: Duration $duration) returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25046	25143	
==>e to have zero tuples.  It is also valid
for a Relation::Example to have zero attributes, though s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3616	3725	
==>ntersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_pa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3616	3725	
==>ntersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1029	1150	
==>:Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1029	1150	
==>:Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implem <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3146	3266	
==>n.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3146	3266	
==>n.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8737	8841	
==>num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8795	8899	
==>num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6766	6871	
==>gs) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6766	6871	
==>gs) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	415	510	
==>S PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More speciali <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	415	510	
==>S PROPERTIES

This node type keeps the C<source> property, and adds nothing else.

More speciali <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1238	1334	
==>o other uses as well.

Log::Selective exports a single function, C<note>, which is called with ze <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1238	1334	
==>o other uses as well.

Log::Selective exports a single function, C<note>, which is called with ze <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5182	5299	
==>a = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5182	5299	
==>a = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9454	9571	
==>one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9512	9629	
==>one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5167	5264	
==>provided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5167	5264	
==>provided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19596	19695	
==>e that thesse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19596	19695	
==>e that thesse are I<not>
necessarily the names you specified in the constructor. For example,
C<Net: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1981	2109	
==>'/g;
    return "'$q'";
}

sub _qq {
    my $x = shift;
    return defined $x ? '"' . display ($x) . '"' : 'undef';
};

# keys ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5536	5653	
==>ce => 0);
  });

  # nalnum (not a word character)
  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19959	20128	
==>>get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40419	40588	
==>>get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3001	3098	
==>)) :
          (catdir('..', 'Perl6-Bible', 'lib', 'Perl6', 'Bible'),catdir('..', 'perl6_doc', 'de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2209	2306	
==>The Cipher API's functional interface is perhaps the easiest one that allows 
for continuous ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2209	2306	
==>The Cipher API's functional interface is perhaps the easiest one that allows 
for continuous ciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6766	6899	
==>led capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6766	6899	
==>led capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10446	10565	
==>|| (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10446	10565	
==>|| (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!c <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14372	14491	
==>$symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->value <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1852	1971	
==>$symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1666	1794	
==>_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1666	1794	
==>_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1446	1569	
==>};
    %$clean = (
        %$clean, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realclean_f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1462	1570	
==>proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::V <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7797	7896	
==>t_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6004	6192	
==>,
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9481	9669	
==>,
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading => $! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12435	12541	
==>nection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12435	12541	
==>nection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4246	4358	
==>ist' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4246	4358	
==>ist' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Pe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1100	1308	
==>size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1100	1308	
==>size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3076	3200	
==>indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3076	3200	
==>indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	802	961	
==>ethod uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	802	961	
==>ethod uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8386	8488	
==>stance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5926	6024	
==>stance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6217	6330	
==>-1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7215	7328	
==>-1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	543	679	
==>]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	803	939	
==>]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub var <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12599	12737	
==>t_pkg->package } @prev;
    
    ### no change!
    return if @avail == @prev;
    
    $self->available( \@avail );
    return 1;
}

=head <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5722	5814	
==>i sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNumber(JSX::Value::Un <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5532	5635	
==>tch_appender($r,$name);
  push(@operators,[$r,$op]);
  $r;
}

# so Regexp::Parser doesn't have to strugg <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	2	99	
==>/usr/bin/perl

package Blondie::Prelude;

use strict;
use warnings;

use Blondie::ADTs;

use Memoi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16717	16848	
==>PSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16717	16848	
==>PSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1893	1997	
==>g_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1893	1997	
==>g_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9717	9900	
==>stant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9996	10179	
==>stant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1623	1733	
==>is should all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1623	1733	
==>is should all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^H <==
2	/Users/nnunley/pugs/util/grokprims.pl	301	454	
==>> 'list infix',
    chain => 'chaining infix',
);

my @ops;

while (<>) {
  last unless /^\\\\n[^"]/;
  chomp;

  my (undef, $ret, $assoc, $name, $args) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8476	8578	
==>tor_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6012	6112	
==>tor_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10614	10735	
==>Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creat <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10614	10735	
==>Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35736	35828	
==>single
Relation::Example in its C<$other> argument, where <$other> has the same heading as
th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37768	37860	
==>single Relation::Example
in its C<$other> argument, where <$other> has the same heading as th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24613	24710	
==>thods.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24613	24710	
==>thods.
Locale::KeyedText does not declare any subroutines or export such.

The usual way that Loca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2109	2215	
==>loodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2109	2215	
==>loodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.connect <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5909	6025	
==>t "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5909	6025	
==>t "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13559	13755	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13838	14034	
==>mar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       , <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	225	333	
==>il 'blessed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env->isa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12026	12120	
==>e_PERL5LIB>

  $self->_restore_PERL5LIB;

This restores the original value of the C<PERL5LIB> e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	751	882	
==>ed',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	751	882	
==>ed',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2379	2511	
==>bstr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'prefix:<say>',
    #);
    
    __PACKAGE__->add_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	1135	1241	
==>y.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/lib/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16092	16188	
==>stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com> <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16150	16246	
==>stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9377	9473	
==>};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed'};
	push(@args,"name=>". <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	707	839	
==>=> 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	707	839	
==>=> 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not F <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13835	13942	
==>g;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $string )

=item e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13835	13942	
==>g;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $string )

=item e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	39	143	
==>/;
#=Perl 6: generalisierter Smart-Match-Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	324	447	
==>nstant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	324	447	
==>nstant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const. <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3787	3879	
==>=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3787	3879	
==>=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	169	272	
==>}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inlin <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	169	272	
==>}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inlin <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	546	692	
==>od header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	546	692	
==>od header returns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	837	963	
==>.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	837	963	
==>.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11970	12065	
==>, "$linkfile.html");
      $output .= "<a href='". abs2rel($syn_path, dirname($output_path)) . " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15084	15205	
==>w( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15084	15205	
==>w( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	484	642	
==>^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	484	642	
==>^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    ru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4635	4739	
==>he given data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphertext v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4635	4739	
==>he given data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphertext v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16975	17074	
==>document a certain localization methodology
in an easily accessable manner, such that would not be p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16975	17074	
==>document a certain localization methodology
in an easily accessable manner, such that would not be p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2694	2808	
==>a,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2694	2808	
==>a,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1132	1242	
==>lf.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1132	1242	
==>lf.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6393	6516	
==>ath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case package n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	269	400	
==>ns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	269	400	
==>ns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3502	3633	
==>se p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3719	3850	
==>se p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1927	2123	
==>> [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp block 
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2] <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	14	122	
==>erl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farb <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	14	122	
==>erl 6
use v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farb <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	417	584	
==>d::name =~ /\.pm\z/i }, 'lib');

    if (@modules == 1) {
        eval {
            $self->version(ExtUtils::MM_Unix->parse_version($modules[0]));
        };
        p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9788	9931	
==>= :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9788	9931	
==>= :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4345	4467	
==>hile unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $buildd <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1323	1431	
==>we know that is there ...
    $supers = $class->get_attr(symbol->new('@:superclasses')) 
        if $supers-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1640	1769	
==>infix_left =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14397	14512	
==>ilable };
    eval { DumpFile( $self->available_file, @avail ) };
    $@ and error( "Could not write available file: <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	402	512	
==>m('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => "nested addition",
	},
	{
		ast => App(
			Sy <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19188	19288	
==>' own data; only
someone already involved in making the program would be editing them.  At
the same t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19188	19288	
==>' own data; only
someone already involved in making the program would be editing them.  At
the same t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	355	467	
==>ms;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this need <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14380	14482	
==>_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
int <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14380	14482	
==>_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
int <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	550	650	
==>$self->{file} does not exist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Program pat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9208	9315	
==>..
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9208	9315	
==>..
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4407	4564	
==>pre     list    safe   (List)\
\\n   Hash      pre     hash    safe   (List)\
\\n   List      pre     pair    safe   (List)\
\\n   Any       pre     reverse s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	289	406	
==>return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'Inf' ,} } ) );
    __PACKAGE__->a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37522	37637	
==>%:attributes'      => 'hash')));
$::Class->send('add_attribute', (symbol->new('%:methods')         => attribute->new <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2545	2645	
==>ax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed and modifi <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2545	2645	
==>ax.com>. All Rights Reserved.

This program is Free Software, and may be used, distributed and modifi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5864	5953	
==>mentation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Conf <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5864	5953	
==>mentation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Conf <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2376	2500	
==>}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { % <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2376	2500	
==>}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { % <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5608	5878	
==>= 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and star <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5608	5878	
==>= 0 if $token eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and star <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16280	16392	
==>se touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20706	20818	
==>se touches it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1874	1969	
==>s the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synops <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1874	1969	
==>s the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synops <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4968	5107	
==>_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4968	5107	
==>_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2153	2277	
==>hod ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %* <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2153	2277	
==>hod ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32747	32870	
==>r class as a whole is not pure and deterministic because it
invokes user-defined external files for reading, mainly in the
C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32747	32870	
==>r class as a whole is not pure and deterministic because it
invokes user-defined external files for reading, mainly in the
C <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2067	2187	
==>ent_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2067	2187	
==>ent_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( sel <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3138	3326	
==>= 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_round;
}

our Int mult <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4362	4472	
==>m for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The follo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4362	4472	
==>m for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The follo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6801	6928	
==>copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6801	6928	
==>copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_bas <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1420	1526	
==>.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METH <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1420	1526	
==>.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20827	20925	
==>ious non-Unix Mac OS) handles
lots of other program resources as data files as well, making them ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20827	20925	
==>ious non-Unix Mac OS) handles
lots of other program resources as data files as well, making them ea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2225	2404	
==>,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2225	2404	
==>,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( star <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2214	2396	
==>art => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2214	2396	
==>art => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.n <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11150	11290	
==>t and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch: $src <=> $dest" ; return } <==
2	/Users/nnunley/pugs/util/version_h.pl	807	917	
==>$svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed-re <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1155	1281	
==>gex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curl <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1155	1281	
==>gex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curl <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5325	5435	
==>ipping conversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfile}.p6"
        or "Couldn't ope <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	430	529	
==>f: Date $other) returns Duration {
    ...
}

#method infix:<->($self: Date $other) returns Duration <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	764	947	
==>[ 
                [$_[1], $_[2],],
                @{$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12124	12229	
==>the shell.
    # Please remember to update t/pugsrun/11-safemode.t if you change the fully
    # qualified <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1741	1889	
==>if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for g <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1741	1889	
==>if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for g <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	876	1022	
==>push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift;
    map { @$_ } $self->scopes;
}

sub scopes {
    my $self = shift;
    @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1334	1430	
==>Regexp::Parser::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA, __PACKAGE__;
  push @R <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3927	4021	
==>elf->termTable() if ($whitespacePosition <= $position);

  expect_term_1:
  my $key = $$current <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12893	12998	
==>hod livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12893	12998	
==>hod livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1742	1848	
==>ub Array::reduce (@values ; Code *&expression) returns Scalar
 multi sub  Perl6::List::reduce (Code $expres <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	10	105	
==>B::Package::Installable;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6481	6605	
==>..7] );
        return concat( [ $node, $state ] );
    }
}

# interface to the internal rule functions
# - creates a ' <==
2	/Users/nnunley/pugs/util/grokprims.pl	348	457	
==>);

my @ops;

while (<>) {
  last unless /^\\\\n[^"]/;
  chomp;

  my (undef, $ret, $assoc, $name, $args) = sp <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	217	325	
==>t     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	217	325	
==>t     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is expo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17873	17976	
==>e software being
used by the originating server program handling the request.

=item $h.from

This heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17873	17976	
==>e software being
used by the originating server program handling the request.

=item $h.from

This heade <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1121	1286	
==>Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1121	1286	
==>Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3299	3439	
==>lid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to execute C</usr/bin/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2337	2425	
==>to_scalar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varsca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11471	11586	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11750	11865	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4690	4800	
==>c"/m;
    $makefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it break <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3794	3896	
==>union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normali <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3794	3896	
==>union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normali <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10959	11060	
==>ld exists C<undef> will be returned.

A multi-valued field will be returned as separate values in list <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10959	11060	
==>ld exists C<undef> will be returned.

A multi-valued field will be returned as separate values in list <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2082	2184	
==>" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2082	2184	
==>" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1217	1310	
==>ub pi () returns Num is builtin is primitive {
    3.14159265358979323846264338327950288419716 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7651	7758	
==>_list ],
    [ 'foo_bar' ],
    '... got the right method list (unresolved)');

# resolve the class and pull <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1947	2041	
==>\:\=  <construct>  }
rule construct  { <construct_but_not_alias>|<alias> }
rule construct_but_n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13647	13776	
==>= $o->noop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17072	17186	
==>) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > length $name;
    }

    _ok($pass, _ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3772	3867	
==>with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3772	3867	
==>with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=it <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2345	2485	
==>shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
}

__PACK <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14887	15019	
==>shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $self->{params} };
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22928	23062	
==>b {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19349	19483	
==>b {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n) <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	453	601	
==>0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	453	601	
==>0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6326	6493	
==>Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::G <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2167	2461	
==>statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn "hello there";
                            $body[-1] .= $statement;
                        }
                        else {
                            #warn "our other <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2904	3019	
==>set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2904	3019	
==>set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	918	1028	
==><==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	918	1028	
==><==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14233	14367	
==>ent_control';
    
            $res .= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4141	4254	
==>ine, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4141	4254	
==>ine, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @! <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6962	7057	
==>ass->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6962	7057	
==>ass->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1104	1205	
==>er = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1104	1205	
==>er = @entity_headers.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19387	19526	
==>, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15808	15947	
==>, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        nex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10678	10814	
==>ome arguments and returns a "rule".

=cut

=for later
# experimental!
sub try { 
    my $op = shift;
    return sub {
        my <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5121	5233	
==>e_t_file( catdir(split /\/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading syno <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	513	610	
==>ss.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::Tes <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	513	610	
==>ss.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::Tes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	486	592	
==>basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::He <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	486	592	
==>basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::He <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4772	4905	
==>st;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $lengt <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4772	4905	
==>st;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $lengt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18995	19114	
==>E - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18995	19114	
==>E - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4648	4804	
==>S_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Ch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5300	5456	
==>S_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21955	22052	
==>ad1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating object <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21955	22052	
==>ad1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it by
creating object <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6212	6342	
==>IsMulti""pLValue""pParams""pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( % <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	135	249	
==>Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	135	249	
==>Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	620	726	
==>n.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if the
# modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	620	726	
==>n.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determine if the
# modu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5085	5185	
==>($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4824	4912	
==>,@_)}
sub p6_Ref {p6_new('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6_new( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4159	4255	
==>eturn ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4159	4255	
==>eturn ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6486	6588	
==>/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $self = shift;
	my $node = $self->generic_reduce(sh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6265	6531	
==>t( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6265	6531	
==>t( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	688	836	
==>TA.info.
It will turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11390	11533	
==>method' => (
    # method label
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2818	2940	
==>lass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3023	3145	
==>lass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23162	23261	
==>h
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23162	23261	
==>h
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4651	4756	
==>defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http:/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4651	4756	
==>defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http:/ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	873	966	
==>expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	873	966	
==>expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1228	1326	
==>size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1228	1326	
==>size - $self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@it <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18714	18811	
==>rameters of Node.new(); you need to supply its $document and optional
$parent_node though; you can <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18714	18811	
==>rameters of Node.new(); you need to supply its $document and optional
$parent_node though; you can <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1184	1299	
==>.' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1184	1299	
==>.' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35899	35991	
==>item C<get_set_member_combinations()>

This method returns an array ref having all combinatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35899	35991	
==>item C<get_set_member_combinations()>

This method returns an array ref having all combinatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18577	18679	
==>e that thesse are I<not>
necessarily the names you specified in the constructor. For example,
this modu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18577	18679	
==>e that thesse are I<not>
necessarily the names you specified in the constructor. For example,
this modu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21479	21624	
==>OY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44386	44531	
==>OY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1608	1740	
==>',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1608	1740	
==>',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23624	23750	
==>OPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already ch <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28854	28953	
==>OPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already ch <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2554	2670	
==>$ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx] <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2554	2670	
==>$ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15827	15926	
==>ic would.

Alternately, sometimes a program will raise a condition or error that,
while resembling a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15827	15926	
==>ic would.

Alternately, sometimes a program will raise a condition or error that,
while resembling a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9027	9122	
==>a::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9027	9122	
==>a::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOP <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6469	6570	
==>sif($sn eq 'global') {
	warn "global PPad may not be doing the right thing\n";
	$decl = "no strict; ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4315	4406	
==>=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4315	4406	
==>=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3226	3373	
==>ate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3226	3373	
==>ate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	703	803	
==>l 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	703	803	
==>l 5 script or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3458	3583	
==>'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3675	3800	
==>'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11377	11552	
==>entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11377	11552	
==>entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $result;
    return $result;
}

sub num_entity($char) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3048	3199	
==>d $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3188	3339	
==>d $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	631	819	
==>{
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        els <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	631	819	
==>{
            $.parent // die "No parent at this level";
            if defined $.parent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        els <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15815	15942	
==>mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVIT <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15815	15942	
==>mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVIT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14302	14398	
==>) }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14302	14398	
==>) }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	174	293	
==>t {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Y <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	174	293	
==>t {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	547	642	
==>::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	547	642	
==>::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2947	3182	
==>s<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2947	3182	
==>s<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	630	747	
==>);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	630	747	
==>);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11737	11839	
==>t.  Another
  hopefully unused part of the struct is overwritten with a flag
  value, so a regexp* thus <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4658	4819	
==>@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4658	4819	
==>@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21765	21866	
==>essage in
one of their own resource files.  At some appropriate place, usually in the
main program, Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21765	21866	
==>essage in
one of their own resource files.  At some appropriate place, usually in the
main program, Lo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21529	21619	
==>he bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21529	21619	
==>he bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7364	7544	
==>f}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::Perl6::Scalar::" . _emit( $n->{method}, '  ' ) . 
                "(" . _emit( $n-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21576	21698	
==>ubstr
 #define check_utf8       substrs->data[2].utf8_substr
 #define check_offset_min substrs->data[2].min_offset
 #define <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24780	24895	
==>rule Term {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17395	17495	
==>hine in which Perl code runs).

The classes and methods of this "Rosetta" file, together with those o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17395	17495	
==>hine in which Perl code runs).

The classes and methods of this "Rosetta" file, together with those o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2444	2562	
==>acted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2351	2467	
==>acted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27737	27832	
==>ts, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27737	27832	
==>ts, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13665	13808	
==>gs   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connectio <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13665	13808	
==>gs   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connectio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2668	2787	
==>tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2656	2775	
==>tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub q <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8374	8531	
==>w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8374	8531	
==>w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    met <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1326	1548	
==>ist = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %eve <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1326	1548	
==>ist = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %eve <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	66	174	
==>>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo');

#=postcir <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	697	800	
==>M::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - content.

Th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	697	800	
==>M::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - content.

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34715	34849	
==>of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $r <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2241	2352	
==>[]);
    if ($self->bundles) {
        push @$dir, map "$_->[1]", @{$self->bundles};
        delete $prereq->{$_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3157	3329	
==>n $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3157	3329	
==>n $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7790	7918	
==>less $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7983	8111	
==>less $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9202	9333	
==>?  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9202	9333	
==>?  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	436	546	
==>c::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	436	546	
==>c::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4508	4618	
==>(@_);
}

sub equal_to {
    my ($left, $right) = @_;
    return bit->new(0) if not (blessed($right) && $right-> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	11	110	
==>mit einem Parameter definieren
class Welt {
	method hallo ( $name ) { "Hallo, $name!".say; }
}
#=Met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24223	24319	
==>uples in a Relation::Example are of the same
degree, and the attribute names of each tuple are al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5896	5993	
==>::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::h <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1806	1903	
==>])/\$$1$2/g;
    s/\$(${re_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4605	4721	
==>r_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimiz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4447	4559	
==>r_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimiz <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	594	728	
==>h;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	594	728	
==>h;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2348	2448	
==>rinted, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patche <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2348	2448	
==>rinted, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patche <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4259	4365	
==>re 'eval';

  if (@$rx == 1 and $rx->[0]->family eq 'group') {
    my $vis = join "", map $_->qr, @{ $rx->[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8064	8205	
==>: 0),
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub neg {
    my $self = shift;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4485	4588	
==>e index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @inde <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4485	4588	
==>e index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @inde <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	534	640	
==>05, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", bu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	534	640	
==>05, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", bu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5222	5315	
==>ME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/d <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5222	5315	
==>ME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1383	1482	
==>($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1383	1482	
==>($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	703	801	
==>ub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::spli <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	703	801	
==>ub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::spli <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8080	8189	
==>nd_element ('item')>

This event is fired once the last '=item' directive, followed by any text on the same li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8080	8189	
==>nd_element ('item')>

This event is fired once the last '=item' directive, followed by any text on the same li <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8107	8211	
==>nd();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file ! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17716	17826	
==>t the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The ser <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17716	17826	
==>t the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The ser <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	569	679	
==>up_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	569	679	
==>up_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10037	10212	
==>$file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10037	10212	
==>$file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ a <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15364	15469	
==>Rock Ridge directory information
      "-b" => "boot/grub/stage2_eltorito", # Set El Torito boot image nam <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2767	2857	
==>le_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -i <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2767	2857	
==>le_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35173	35269	
==>other!) returns Relation>

This multi-method is a generic binary relational operator that is iden <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39723	39819	
==>other!) returns Relation>

This multi-method is a generic binary relational operator that is iden <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2343	2460	
==>es used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation:: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2891	3008	
==>es used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5656	5750	
==>al'=>$_[0],'$.imag'=>$_[1]) if $cls eq 'Complex';
    return new_box('Str',@_) if $cls eq 'Str' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13069	13205	
==>?ws>? <\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compil <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1430	1530	
==>template = slurp $filename;
    $template ~~ s:g:perl5/\[\%(.+)\%\]/{ %params{$0} || '' }/;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5131	5300	
==>n't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 360 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5131	5300	
==>n't know how to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 360 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1753	1852	
==>ix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...] <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1753	1852	
==>ix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8713	8852	
==>';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8701	8840	
==>';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub name <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2246	2341	
==>ncat} = PGE_OPTABLE_CLOSE;
    $self->operatorTable()->{$spacePresent[1]} = %tokenClone;
    $se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17957	18059	
==>each other, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17957	18059	
==>each other, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS ob <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16504	16604	
==>of the span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16504	16604	
==>of the span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- ` <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20200	20308	
==>-> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2408	2523	
==>=> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2613	2728	
==>=> sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9007	9195	
==>} eq 'export' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31693	31801	
==>nts in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if it failed, reject it how you ch <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2416	2522	
==>E  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2416	2522	
==>E  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little code <==
2	/Users/nnunley/pugs/util/package-osx.pl	9162	9289	
==>or (keys %symlinks);
}


sub make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_di <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4695	4789	
==>fig::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid nam <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4695	4789	
==>fig::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid nam <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5346	5460	
==>method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5346	5460	
==>method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19952	20077	
==>type to a str
my $app_plus_ten_to_str = comb(
	fun => $app_to_str,
	param => $plus_ten,
);

my $fac = fun(
	param => "x",
	bod <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6957	7065	
==>1;
    my $Result4 = $Result3 % $n2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1799	1979	
==>omain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1799	1979	
==>omain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1215	1346	
==>ur

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1215	1346	
==>ur

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5801	5921	
==>arse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abs <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5283	5403	
==>arse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20935	21051	
==>rade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or programs.  Your package or prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20935	21051	
==>rade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or programs.  Your package or prog <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23253	23360	
==>ns.  Or alternately, the other
packages require your text data to be stored in a format other than Perl
file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23253	23360	
==>ns.  Or alternately, the other
packages require your text data to be stored in a format other than Perl
file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13682	13796	
==>how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7889	8003	
==>how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1701	1979	
==>Level+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    return;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23268	23387	
==>> <'{'> <FunctionBody> <'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Identifier>
    | <FormalParame <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6660	6779	
==>is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6660	6779	
==>is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5633	5754	
==>line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    requ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5633	5754	
==>line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    requ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	768	887	
==>tart and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	768	887	
==>tart and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8088	8206	
==>-------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various rea <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8088	8206	
==>-------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various rea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1959	2074	
==>d > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1959	2074	
==>d > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4347	4505	
==>.  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4487	4645	
==>.  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18870	18972	
==>pressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anything in the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18870	18972	
==>pressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anything in the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9754	9856	
==>$span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9754	9856	
==>$span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	470	591	
==>y $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	470	591	
==>y $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3695	3793	
==>pect_term:
  goto null_term if $position >= $lastPosition;
 
  my $currentTermTable = $self->whites <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2533	2628	
==>node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2533	2628	
==>node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9510	9625	
==>there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_heig <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9510	9625	
==>there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_heig <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9018	9149	
==>dency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @lis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10495	10626	
==>dency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @lis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26191	26289	
==>ith (others are ignored).  Each variable name can be any
defined and non-empty string, and each var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26191	26289	
==>ith (others are ignored).  Each variable name can be any
defined and non-empty string, and each var <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6720	6918	
==>ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6720	6918	
==>ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4405	4504	
==>h objects, keyed by their names.

=head2 &{}

When used as a code reference, the match object return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4405	4504	
==>h objects, keyed by their names.

=head2 &{}

When used as a code reference, the match object return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6054	6153	
==>s to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6054	6153	
==>s to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6382	6507	
==>t_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6382	6507	
==>t_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2590	2698	
==>a) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2590	2698	
==>a) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $cla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20267	20372	
==>.  No
recompilation necessary.  This is something that end users could do,
although program package instal <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20267	20372	
==>.  No
recompilation necessary.  This is something that end users could do,
although program package instal <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	147	302	
==>tead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = '../lib';
# }
#
# t/TEST will use -MTestInit.  You may "use TestInit" in the test
# program <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1139	1245	
==>DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime s <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1139	1245	
==>DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26587	26680	
==>he invocant Relation's header, in which case it returns the identity-one
Relation or the invoc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31139	31232	
==>he invocant Relation's header, in which case it returns the identity-one
Relation or the invoc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17941	18115	
==>ab = '$'.$cls.'::{$_[0]}';
		  "  exists $symtab\n     ? \${$symtab} : \n";};
    $code .= "sub p6__lookup {\n";
    $code .= $hlp->(shift @classes);
    $code .= '  exists($M <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11339	11469	
==>unless @inc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV entries, so
        # toss the <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12145	12266	
==>/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$parrot_path/runtime/parrot/include/$_" => "$in <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3346	3447	
==>{ multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3346	3447	
==>{ multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	797	933	
==>nonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <sig <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	797	933	
==>nonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <sig <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1290	1390	
==>le function, C<note>, which is called with zero or 
more strings, followed by zero or more tags.  The <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1290	1390	
==>le function, C<note>, which is called with zero or 
more strings, followed by zero or more tags.  The <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	393	538	
==>6 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Perman <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	393	538	
==>6 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Perman <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	330	444	
==>put? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	330	444	
==>put? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3571	3681	
==>r) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3939	4049	
==>r) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &infix: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1000	1266	
==>s Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1000	1266	
==>s Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8338	8458	
==>s }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unic <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8338	8458	
==>s }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	909	1015	
==>y $self = bless {}, $class;
  $self->init;
  $self->regex($rx) if defined $rx;
  return $self;
}


sub rege <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23170	23266	
==>ish text and they translate it, which could
produce ambiguous results or associations.  Or altern <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23170	23266	
==>ish text and they translate it, which could
produce ambiguous results or associations.  Or altern <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7722	7819	
==>urn $o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyof_char;
}
{
  package Regexp:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2786	2880	
==>--> {true}.

p5_alternatives(W, Z) --> "|", p5_concatenation(X), p5_alternatives(union(W,X), Z) <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	770	887	
==>e a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	770	887	
==>e a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	947	1112	
==>s = shift;
        my $value = shift;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3845	3989	
==>t3D {
    my ($x, $y, $z) = @_;
    {
    # prototype
        prototype => new Point($x, $y),  
    # rest of the class 
        get_z => sub { $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20056	20168	
==>xp = exp.p6analyze(pad)
    self[0] = exp
    pad["isarray"] = padarray
    .return (self)
.end
    
.namespace [ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3600	3725	
==>) {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3600	3725	
==>) {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22823	22957	
==>RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTENDED
 PMf_MULTILINE

 ROPT_ANCH 
 ROPT_ANCH_BOL 
 ROPT_ANCH_GPOS 
 ROPT_ANCH_MBOL 
 ROPT_ANCH <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	544	643	
==>from $in.
-}
EOF
print OUT "$data :: String\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	353	469	
==>sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	353	469	
==>sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1403	1593	
==>oin ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1403	1593	
==>oin ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1180	1278	
==>ult: ./t_index)
    --test_dirs     Directories containing the tests (Default: take tests from ./te <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2176	2285	
==>d C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

When activated, th <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2176	2285	
==>d C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

When activated, th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2674	2895	
==>' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2685	2906	
==>' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9738	9833	
==>ed by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9738	9833	
==>ed by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "ne <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1767	1939	
==>hild, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @result <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1767	1939	
==>hild, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @result <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	185	292	
==>, and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	185	292	
==>, and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18835	18942	
==>modification of the compiled re op tree the native
compiler creates, but which we obviously don't have).


= <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3125	3228	
==>modification of the compiled re op tree the native
compiler creates, but which we obviously don't have). <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9948	10110	
==>meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provide <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11425	11587	
==>meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2402	2506	
==>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2402	2506	
==>() }
))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15108	15212	
==>y $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# E <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15108	15212	
==>y $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7616	7751	
==>EMBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7616	7751	
==>EMBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17123	17223	
==>file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17123	17223	
==>file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a v <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8688	8800	
==>fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $index->{_dirs}->{$_});
    }
} 

# Note: modfies <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4543	4719	
==>n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4765	4941	
==>n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8521	8680	
==>il(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn't matchfail still be returning somethi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8237	8392	
==>il(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn't matchfail still be returning somethi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	818	916	
==>s supports PMC compilation.
#
# The hope is that this will allow interoperability with modules that <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	818	916	
==>s supports PMC compilation.
#
# The hope is that this will allow interoperability with modules that <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	835	936	
==>2/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	720	813	
==>2/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14312	14411	
==>element of the iteration varies with function.
C<keys> only returns the key; C<values> the value; C< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5047	5154	
==>tta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5047	5154	
==>tta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFI <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6045	6149	
==>al_end
    $I0 = is_cclass .CCLASS_WHITESPACE, target, pos
    if $I0 goto term_literal_end
    $S0 = sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1216	1328	
==>ute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4694	4806	
==>ute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5677	5861	
==>ributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5677	5861	
==>ributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	960	1073	
==>urircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	960	1073	
==>urircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.ni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8390	8511	
==>on_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8098	8215	
==>on_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8245	8412	
==>his depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8709	8876	
==>his depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18671	18768	
==>iciently
like what the core expects to avoid problems.  While simultaneously
trying to avoid trigg <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2961	3058	
==>iciently
like what the core expects to avoid problems.  While simultaneously
trying to avoid trigg <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2219	2316	
==>tions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypted w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2219	2316	
==>tions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encrypted w <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1	96	
==>=kwid

= NAME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's te <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1	96	
==>=kwid

= NAME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's te <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3246	3357	
==>check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3246	3357	
==>check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11341	11445	
==>returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns St <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11341	11445	
==>returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $array) returns St <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7644	7786	
==>),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(87 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7644	7786	
==>),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(87 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13718	13829	
==>_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13718	13829	
==>_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6042	6184	
==>($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6042	6184	
==>($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2193	2376	
==>rn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #pri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6293	6438	
==>"psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6293	6438	
==>"psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp" <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	199	341	
==>RN__}; $SIG{__WARN__} = sub { $w } };

#line 31

sub new {
    my ($class, %args) = @_;

    foreach my $method (qw(call load)) {
        *{"$c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	424	524	
==>est scripts with statistics

=head1 VERSION

Version 2.46

=cut

$VERSION = "2.46";

# Backwards comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10506	10603	
==>uotemeta( match::str( $literal ) );
    return "$_[0] constant( \"$name\" )\n";
}
sub node::variab <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4400	4501	
==>($Object->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6302	6403	
==>($Object->superclass, undef, '... $Object got the right method return value');
is_deeply(
    [ $Objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4289	4401	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4482	4594	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17276	17374	
==>nction takes any param and returns a function that takes any param
# that function will return a pa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25084	25183	
==>argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29636	29735	
==>argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $other!) retur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2278	2405	
==>, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2278	2405	
==>, reusing
    # whatever separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14229	14393	
==>ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14508	14672	
==>ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	455	601	
==>n unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	436	577	
==>n unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5917	6032	
==>nd return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5713	5823	
==>nd return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9020	9111	
==>ms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2845	2936	
==>ms, sub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24426	24569	
==>rl {
    my($x)=@_;
    return 'undef' if !defined $x;
    my $s = eval {p6_as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_de <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1694	1796	
==>n of this program and exits.
  --help
    Show this help.

Options may be abbreviated to uniqueness.
US <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	181	283	
==>e 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	181	283	
==>e 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2079	2187	
==>hildren 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2079	2187	
==>hildren 

method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4491	4637	
==>y %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    ch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4976	5122	
==>y %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    ch <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	301	431	
==>id is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	301	431	
==>id is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	554	648	
==>wercase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* R <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	554	648	
==>wercase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4224	4361	
==>);

        {
            # XXX temporary hack - check if an alphanumeric-ending token is actually 
            #     a longer-token barew <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	781	876	
==>ies{$variable}=$value;
}

sub GetCookie($variable) {
    return %Cookies{$variable};
}

CookiesI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1104	1202	
==>r '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments and return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1104	1202	
==>r '')

Continuations are used for backtracking.

A "ruleop" function gets some arguments and return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29979	30076	
==>ust vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34531	34628	
==>ust vanish).

=item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This metho <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16610	16715	
==>ay'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X::pos-$ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15658	15759	
==>ay'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X::pos-$ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4463	4543	
==>F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*2621 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4463	4543	
==>F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*2621 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1145	1248	
==>d.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine.
sub impo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1145	1248	
==>d.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine.
sub impo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1445	1631	
==>eader('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ < <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1445	1631	
==>eader('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3808	3958	
==>do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3796	3946	
==>do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15318	15438	
==>trol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.flo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15318	15438	
==>trol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.flo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2468	2595	
==>ler::Token;\n" .
            "use Pugs::Compiler::Regex;\n" .
            "use base 'Pugs::Grammar::Base';\n" .
            "use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	236	338	
==>mc =~ /\.pmc/;
# test file dates
my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $filename));
# print <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9119	9253	
==>, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9107	9241	
==>, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $prog <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1311	1471	
==>pectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1311	1471	
==>pectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34731	34832	
==>ale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['E <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34731	34832	
==>ale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['E <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8250	8367	
==>($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8250	8367	
==>($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next-> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5092	5191	
==>ng and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5092	5191	
==>ng and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	613	721	
==>ke')
    );

    print "The required 'nmake' executable not found, fetching it...\n";

    require File::Base <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	518	617	
==>ke')
	);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::Base <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	458	577	
==>d;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	458	577	
==>d;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class2.pl	56	183	
==>method hallo ( $name ) { "Hallo, $name!".say; }
}
#=Methoden mit einem Argument aufrufen
$welt.hallo "Mike";
hallo $welt: "Mike" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1867	1971	
==>tter::Pretty->new->string($reduced)
			if $received != $sent and $reduced->isa("Blondie::Thunk"); # FIXME <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11023	11128	
==>>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11023	11128	
==>>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	402	531	
==>rammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = delete $param-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15161	15268	
==>e} = shift;
    my $env = $self->{env} = shift;
    $self->{digests} = { map { Digest->compute($_) => $_ } $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	912	1015	
==>ew;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT_OK = qw($ver <==
2	/Users/nnunley/pugs/util/grokprims.pl	1755	1858	
==>ity $arity";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } els <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3884	3987	
==>self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.ne <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3884	3987	
==>self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.ne <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9851	9951	
==>y { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9851	9951	
==>y { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @string <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8725	8839	
==>e => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Create <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8725	8839	
==>e => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Create <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20891	20988	
==>ou can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25443	25540	
==>ou can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an unordered <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12336	12437	
==>revious
value for that field is set.

The header field name ($field) is not case sensitive and '_'
can <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12336	12437	
==>revious
value for that field is set.

The header field name ($field) is not case sensitive and '_'
can <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11687	11789	
==>for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11687	11789	
==>for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4805	4925	
==>eck->last_error), return;

    if( File::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Faile <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6629	6727	
==>: cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6629	6727	
==>: cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1583	1678	
==>d from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1583	1678	
==>d from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5515	5638	
==>_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6012	6130	
==>_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1802	1978	
==>art => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1802	1978	
==>art => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15071	15171	
==>am's operation, the program (or a package it uses)
will need to display a message to the user, or gen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15071	15171	
==>am's operation, the program (or a package it uses)
will need to display a message to the user, or gen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	315	539	
==>[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31390	31485	
==>ion of this object (for look-ahead/behind assertions).  If
less than 0, it is behind; otherwise, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18712	18810	
==>s to show human users.  This association would normally be
stored in a Perl file that defines and r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18712	18810	
==>s to show human users.  This association would normally be
stored in a Perl file that defines and r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3462	3586	
==>= -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3462	3586	
==>= -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1883	2047	
==>.= "$k $op $ver";
            }
        } else {
            error("Illegal token: $entry\n"), return;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1565	1682	
==>.

C<App> is a type of value - it applies its first child to the rest of its
children.

=item Map

A map is like a has <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1370	1454	
==>ed_scalar_alias>|<array_alias>|<hash_alias>|<external_scalar_alias>|<external_array_a <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	753	860	
==>: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

= <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	753	860	
==>: Tree $tree) returns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4359	4490	
==>span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4359	4490	
==>span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.spa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2985	3088	
==>todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2985	3088	
==>todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11168	11283	
==>$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match::get( \$_[0], '\$()' ) /sgx;
    #print "Code: $c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5908	6016	
==>entifierName> <IdentifierPart>
}
rule IdentifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	469	572	
==>e "not implemented" };
sub inherit_grammar { die "not implemented" };

sub add_op {
    # name=>'*', pre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	133	266	
==>ata) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	133	266	
==>ata) returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7271	7539	
==>PL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7328	7596	
==>PL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2655	2824	
==>f "\\x{%x}", $c;
                } elsif ($backslash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2520	2626	
==>ui = 1;
    test(sub{my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} if 0;
test(su <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4646	4840	
==>ins;
                print "Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link fro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10374	10495	
==>t case sensitive.  To make the life easier for perl
users who wants to avoid quoting before the => operator, you can use
' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10374	10495	
==>t case sensitive.  To make the life easier for perl
users who wants to avoid quoting before the => operator, you can use
' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	860	971	
==>" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	860	971	
==>" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7209	7356	
==>[ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' tab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7209	7356	
==>[ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' tab <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1016	1110	
==>e::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	use base qw/Blondie::TypeSafe::Type/;
	s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2587	2697	
==>>{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2587	2697	
==>>{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	795	895	
==>t $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/super <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	795	895	
==>t $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/super <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15934	16176	
==>patcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$c')
                      ->send('get_attributes')
                      ->apply(
                          block-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9854	10070	
==>>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->digest for gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14220	14325	
==>:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14220	14325	
==>:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1390	1716	
==>tr_name);
}

###########################################################################

} # class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    doe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3185	3389	
==>opy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3185	3389	
==>opy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14863	14998	
==>elen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            / <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19031	19166	
==>elen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3468	3574	
==>> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3652	3758	
==>> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16320	16432	
==>'> <RelationalExpression>
    | <EqualityExpression> <'!='> <RelationalExpression>
    | <EqualityExpression> <'= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2790	2917	
==>er {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an ar <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2790	2917	
==>er {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an ar <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4276	4382	
==>le at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lines are ignor <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4276	4382	
==>le at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lines are ignor <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	259	368	
==>v.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => sub { <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1784	1877	
==>og = split(/\n/, << ".");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23930	24040	
==>r the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23930	24040	
==>r the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS A <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	298	417	
==>ograms but it is not required.
#
# P.S. This documentation is not in POD format in order to avoid
# problems when the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	683	812	
==>rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	683	812	
==>rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1684	1786	
==>self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functi <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1684	1786	
==>self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	283	375	
==>OM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	283	375	
==>OM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	129	252	
==>mentieren mehrerer Zeilen kann man POD benutzen:

#!\begin{block}{}\texttt{
=begin COMMENT
 blah; # ist das so richtig?
 =en <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4242	4386	
==>n $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_singl <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4242	4386	
==>n $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_singl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1201	1365	
==>3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pa <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1201	1365	
==>3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4589	4706	
==>ted"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4589	4706	
==>ted"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13205	13341	
==>:
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13205	13341	
==>:
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $sour <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	553	654	
==>turn $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	553	654	
==>turn $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = pil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11689	11791	
==>l of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11689	11791	
==>l of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12797	12957	
==>op::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13076	13236	
==>op::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "un <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7329	7458	
==>, @rest);
    } );
    warn "    ".timestr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and store results in YAML

Usag <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while4.pl	9	118	
==>pl - while-Schleife in Perl 6
use v6;
my $i = 1;
loop { # dies ist eine echte Schleife, daher...
	say $i; $i++ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	454	578	
==>size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	454	578	
==>size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	446	618	
==>ch;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	446	618	
==>ch;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	492	595	
==>ool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	492	595	
==>ool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16068	16170	
==>and time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16068	16170	
==>and time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2739	2887	
==>\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location, <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2739	2887	
==>\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3264	3373	
==>hc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($c <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3264	3373	
==>hc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11411	11542	
==>S',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11411	11542	
==>S',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6371	6461	
==>alize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<obj <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6371	6461	
==>alize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<obj <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2996	3123	
==>uleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3007	3134	
==>uleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	51	188	
==>ulti sub pod2html (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	51	188	
==>ulti sub pod2html (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1142	1264	
==>mes ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::perltidy( sour <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10197	10305	
==>IONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10255	10363	
==>IONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the number of tes <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13376	13498	
==>v/console by entering the following command
      as root:
      # mknod $initrd_mnt/dev/console c 5 1
HELP

  step
    des <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	923	1041	
==>ement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	923	1041	
==>ement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile;
    FILTER { ... };

This way also <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	700	792	
==>:add_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at the cla <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12433	12540	
==>::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@l <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2983	3087	
==>::zip ( Array *@lists, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@l <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	1028	1137	
==>.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($_[0]);
  retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1826	2126	
==>"&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1826	2126	
==>"&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        }, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8025	8153	
==>N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8025	8153	
==>N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13517	13616	
==>nct names for the fields present in the
header.  The field names have case as suggested by HTTP spec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13517	13616	
==>nct names for the fields present in the
header.  The field names have case as suggested by HTTP spec <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1059	1157	
==>SX::Value::Array is JSX::Value::Object;

class JSX::PropertyAttributes {
    has $.ReadOnly;
    ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2405	2526	
==>m('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2405	2526	
==>m('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10	111	
==>require URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10	111	
==>require URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	301	427	
==>id is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	301	427	
==>id is export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @fo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6240	6339	
==>aram("syn", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{S} }) ] ); 
    $template- <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	718	904	
==>ec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	718	904	
==>ec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5719	5819	
==>ing on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5719	5819	
==>ing on the context, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1215	1334	
==>ems) === any($!members));
    return $answer;
}

method member($self: $item) returns Object {
    return $item if $self. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1215	1334	
==>ems) === any($!members));
    return $answer;
}

method member($self: $item) returns Object {
    return $item if $self. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15363	15473	
==>t of the last char within the capture.
n=0 is the total match?

  U32 lastparen;          /* last paren matched <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2453	2580	
==>n @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->fe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4041	4168	
==>n @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->fe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3393	3503	
==>se Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3273	3379	
==>se Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compil <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27145	27239	
==>all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a ge <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31697	31791	
==>all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a ge <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3476	3581	
==>&<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule tra <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3476	3581	
==>&<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule tra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	336	450	
==>ift;
    %hash = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::Va <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25880	25973	
==>invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30432	30525	
==>invocant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34661	34757	
==>of the invocant Relation, and returns a new Relation that has the
same heading as the invocant an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39211	39307	
==>of the invocant Relation, and returns a new Relation that has the
same heading as the invocant an <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5405	5532	
==>archive} =
            $self->pool_rel->file( file($pkg->file)->basename )->stringify();
        
        # append it to the exi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2212	2321	
==>p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 on <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2131	2237	
==>p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 on <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1351	1449	
==>uld of
# course not help people running existent versions of perl5.  Perhaps
# because the challeng <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	488	592	
==>rt { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	488	592	
==>rt { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4004	4116	
==>return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4144	4256	
==>return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' } <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2384	2512	
==>debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont = $oper-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5824	5921	
==>v) { NaN }
multi sub ToNumber(JSX::Value::Null $v)      { +0 }
multi sub ToNumber(JSX::Value::Bool <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17574	17672	
==>ibrary for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<N <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17574	17672	
==>ibrary for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4439	4579	
==>rn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4632	4772	
==>rn {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5860	5979	
==>) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5848	5967	
==>) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_constant( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1551	1667	
==>pture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1551	1667	
==>pture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6742	6873	
==>tr, bool, hash, array, match)



- compile()



### obvious - not document ?

...



- rule()



### internals - move to module docu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6517	6639	
==>tr, bool, hash, array, match)

- compile()

### obvious - not document ?
...

- rule()

### internals - move to module docu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10242	10355	
==>string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subs <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10242	10355	
==>string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subs <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2494	2619	
==>dex
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2494	2619	
==>dex
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4661	4802	
==>c34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4661	4802	
==>c34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	359	487	
==>n (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	359	487	
==>n (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2476	2611	
==>soc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>',
        ass <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	350	481	
==>, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns St <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10861	10986	
==>laintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method deci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10861	10986	
==>laintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method deci <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1449	1557	
==>:Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1449	1557	
==>:Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8871	8986	
==>ers>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8871	8986	
==>ers>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3062	3161	
==>Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2953	3048	
==>Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8339	8580	
==>->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5607	5787	
==>->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4395	4488	
==>);
is($Object->superclass, undef, '... $Object got the right method return value');
is_deeply( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6297	6390	
==>);
is($Object->superclass, undef, '... $Object got the right method return value');
is_deeply( <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3360	3586	
==>iterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::sort(; SortCriterion  $by = &infix:<cmp>,
                                              * <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3377	3475	
==>setta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do expor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3377	3475	
==>setta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, that do expor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3555	3684	
==>t<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3555	3684	
==>t<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3298	3416	
==>if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%ou <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3298	3416	
==>if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%ou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8949	9054	
==>e following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8949	9054	
==>e following methods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1837	1929	
==>=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3213	3305	
==>=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5077	5231	
==>/\.a$/, @_) {
        # Do some very sneaky things -- linking other .a with us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1224	1326	
==>x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );

use Benchmark;
use Pugs::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1456	1558	
==>han obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1456	1558	
==>han obscuring text from 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9821	9918	
==>nd C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9821	9918	
==>nd C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5473	5584	
==>ethod returns the last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 modul <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5473	5584	
==>ethod returns the last error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 modul <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7287	7415	
==>traverse_ast ( %pad<"pSubType"> );
            # types: SubMethod, ...
        dbg "# Name:       "; my $name =     emit_Variable <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26812	26939	
==>f = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14167	14264	
==>ood Practice" order.

Any return values of the callback routine are ignored.  The loop can
be brok <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14167	14264	
==>ood Practice" order.

Any return values of the callback routine are ignored.  The loop can
be brok <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4507	4641	
==>match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4507	4641	
==>match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.mult <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9449	9580	
==>hould probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2502	2633	
==>hould probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10032	10262	
==>verse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	516	633	
==>f ( $matchObj not isa "P6RulesInP5::Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $grammar)
    { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3812	3931	
==>age eq 'p6_file') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6599	6708	
==>ut not ROPT_CHECK_ALL */

    
    /* XXX Does regcomp.c zero any of the match fields? */
}

/*
 * regexp_comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2653	2762	
==>(Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2653	2762	
==>(Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1849	1977	
==>@mess);
}

sub _q {
    my $x = shift;
    return 'undef' unless defined $x;
    my $q = $x;
    $q =~ s/\\/\\\\/g;
    $q =~ s/' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	489	584	
==>$VERSION = "2.46";

# Backwards compatibility for exportable variable names.
*verbose  = *Verbos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5101	5228	
==>($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5101	5228	
==>($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	625	714	
==>---------------------------------------------------------------
## private methods

my met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	625	714	
==>---------------------------------------------------------------
## private methods

my met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	633	729	
==>!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $outpu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	633	729	
==>!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $outpu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13660	13758	
==>ke this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13660	13758	
==>ke this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_has <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7259	7382	
==>st::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7317	7440	
==>st::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	304	429	
==>match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	304	429	
==>match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9043	9146	
==>erms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9043	9146	
==>erms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	3	105	
==>package Pugs::Grammar::Perl6;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use P <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6282	6380	
==>there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document ide <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6282	6380	
==>there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document ide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3243	3363	
==>gspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3231	3351	
==>gspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9366	9474	
==>reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port.. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9366	9474	
==>reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port.. <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15018	15158	
==>nt  $.yday;    # 0 to 365 (up to one leap day)
    has Str  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # variation from UTC in seco <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5386	5491	
==>variable/;

# a free variable is a placeholder
# when going into an AST these are generated
# as the AST i <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1368	1467	
==>::set_superclasses($super);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasse <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	6	134	
==>rict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basenam <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	6	134	
==>rict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basenam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25811	25913	
==>st 
    ($self: get_attr (symbol new @:subclasses)))

=cut

$::Class->send('add_method' => (
    # meth <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9941	10039	
==>}
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%P <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9941	10039	
==>}
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%P <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1610	1719	
==>`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1610	1719	
==>`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2569	2696	
==>ookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $coo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2569	2696	
==>ookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $coo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20813	20913	
==>ribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you ne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20813	20913	
==>ribution
with compiled .pmc files. Module::Compile installs a
Module::Install::PMC plugin. All you ne <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6521	6635	
==>de a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method re <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6521	6635	
==>de a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1071	1194	
==>tbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $q <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1071	1194	
==>tbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $q <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44800	45043	
==>my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ---------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8900	9018	
==>the regex.

=head2 Getting the Tree

You can access the root of the tree with the root() method:

  my $root = $parser- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1428	1512	
==>6::Run::OnPerl5::X1::Root";

=pod
https://svn.perl.org/perl6/doc/trunk/design/syn/S06 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15194	15314	
==>urn $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15194	15314	
==>urn $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1326	1469	
==>str($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1272	1409	
==>str($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_ch <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4123	4235	
==>ation->new(
			type => $sub->type,
			struct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $se <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5002	5097	
==>fined") if !defined $pil_tree;
    use Data::Dumper;
    PIL::PIL1CPerl5::Util::rebless_with_pre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2395	2492	
==>e();

    $<variable>:=(<varscalar>)<?p6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13403	13503	
==>e functions is a way
to provide a comment that refers to another file or test which must be
made to p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13461	13561	
==>e functions is a way
to provide a comment that refers to another file or test which must be
made to p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5564	5670	
==>} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5564	5670	
==>} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1070	1199	
==>. '') } # get a str like ref
sub to_bit { bit->new(1)            } # we are always true

# comparitor

sub _compare {
    my ($lef <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3023	3116	
==>ipherer closure, which can be called repeatedly to encipher data.
The encipherer closure can b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3023	3116	
==>ipherer closure, which can be called repeatedly to encipher data.
The encipherer closure can b <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2012	2118	
==>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaul <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2012	2118	
==>.

=over 4

=item wanted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaul <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1158	1262	
==>ly
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # h <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1216	1320	
==>ly
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # h <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7347	7522	
==>$syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  file => $_ . ".html",
               name => $_,
            };
    }
}

sub build_indexes {
    my $p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6205	6306	
==>Val' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6205	6306	
==>Val' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1820	1932	
==>field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$cons <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1820	1932	
==>field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$cons <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21132	21214	
==>C|B0],E0,E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	668	786	
==>{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "pre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6181	6282	
==>ts may not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6181	6282	
==>ts may not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3067	3184	
==>ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3067	3184	
==>ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3451	3545	
==>uery>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3451	3545	
==>uery>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12917	13011	
==>d1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the sa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12917	13011	
==>d1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes the sa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1728	1824	
==>ead1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specif <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1728	1824	
==>ead1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
specif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9611	9751	
==>(
    # method label
        symbol->new('remove_method'), 
    # method body
        method->new(
            $::ENV,
            method::si <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1705	1817	
==>ugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1705	1817	
==>ugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))->code;

package main;
use IO::F <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4296	4395	
==>tion for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encrypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4296	4395	
==>tion for 
details.  The C<mode> value indicates the operation to be performed; the values 
C<encrypt <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2132	2234	
==>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial. <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2132	2234	
==>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial. <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	864	963	
==>about the server your CGI is running on. It also 
attempts to provide some useful defaults for debug <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	864	963	
==>about the server your CGI is running on. It also 
attempts to provide some useful defaults for debug <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5652	5766	
==>',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SS <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5652	5766	
==>',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	266	354	
==>+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	266	354	
==>+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	12	105	
==>l6::Core::Bit;

use Perl6::Core::Type;
use Perl6::Core::Str;
use Perl6::Core::Num;

package bi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1705	1835	
==>escribe;
        }
        $s .= "\n  $k => " .$o->_indent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9879	9997	
==>-o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin", "dev", "lib", <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	529	649	
==>value = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# sk <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2914	3018	
==>.  The order in which they were
present in the query string is preserved.

=item C<$q.param()>

This exis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2914	3018	
==>.  The order in which they were
present in the query string is preserved.

=item C<$q.param()>

This exis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7279	7372	
==>ntent_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7279	7372	
==>ntent_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	406	528	
==>sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	406	528	
==>sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12614	12729	
==>'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6089	6204	
==>'X', ' in character class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5694	5817	
==>b diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5752	5875	
==>b diag (Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20559	20665	
==>modules that become available over time.  One plan which I favor is that
the new (under development) enterp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20559	20665	
==>modules that become available over time.  One plan which I favor is that
the new (under development) enterp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19378	19485	
==>subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	433	580	
==>$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	433	580	
==>$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14486	14608	
==>KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SEC <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14486	14608	
==>KeyedText::Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SEC <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17913	18017	
==>ND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17913	18017	
==>ND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source filtering a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	476	655	
==>eqs = (
        list->new($self->{class}),          # the class we are linearizing
        (map { $_->send('MRO') } @supers ), # the MRO of all the superclasses
        list->new(@ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23075	23165	
==><Identifier> <'('> <FormalParameterList>? <')'. <'{'> <FunctionBody> <'}'>
}
rule FunctionE <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6165	6262	
==>".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> "$". %"
p5_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	242	400	
==>head2 $set = JIB::Installation::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26974	27087	
==>t provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26974	27087	
==>t provided).

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5471	5581	
==>object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add_handler('\V' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3050	3226	
==>round_up {
                $x_round = round_up_symmetric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25603	25720	
==>ule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | <CharacterEscape>
    | <CharacterClassEscape>
}
rule Char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8258	8370	
==>return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8258	8370	
==>return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22214	22314	
==>arch
list.  The analogy is similar to inheriting from multiple packages which
have the same method na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22214	22314	
==>arch
list.  The analogy is similar to inheriting from multiple packages which
have the same method na <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6723	6854	
==>&{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6723	6854	
==>&{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6227	6336	
==>- $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6227	6336	
==>- $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11795	11891	
==>ties.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode st <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11795	11891	
==>ties.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22123	22233	
==>x.

=item len

The length of the original string representation of the regex.

=item tree

During the first pas <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11450	11553	
==>urns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11450	11553	
==>urns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20299	20417	
==>_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16720	16838	
==>_NOTREC, $l, substr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1223	1338	
==>ub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1223	1338	
==>ub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($mat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36627	36724	
==>n is identical to the
invocant.  Another trivial case is where any any source relation has zero
tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41176	41273	
==>n is identical to the
invocant.  Another trivial case is where any any source relation has zero
tu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10196	10356	
==>nt header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<F <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10196	10356	
==>nt header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<F <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	732	831	
==>locks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API operat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	732	831	
==>locks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API operat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1121	1227	
==>r type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native* <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1653	1789	
==>de::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2433	2569	
==>de::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	272	394	
==>er is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1130	1252	
==>er is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5736	5836	
==>from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5736	5836	
==>from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %ch <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8220	8319	
==>== $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11697	11796	
==>== $!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	150	569	
==>(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	150	569	
==>(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Roset <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21639	21742	
==>essed only by their names, and all
Relation tuples may be individually addressed only by their values; n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26191	26294	
==>essed only by their names, and all
Relation tuples may be individually addressed only by their values; n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14592	14700	
==>lass = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14592	14700	
==>lass = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	459	570	
==>ions



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definitions to end <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	435	543	
==>ions

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definitions to end <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22994	23117	
==>wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2741	2867	
==>ark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2741	2867	
==>ark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2050	2187	
==>nless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2110	2247	
==>nless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8646	8750	
==>ton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '... $iFoo is th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3195	3282	
==>Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional nam <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3195	3282	
==>Bind::Sig;
use base 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional nam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4522	4630	
==>stitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4522	4630	
==>stitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  retu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1447	1554	
==>undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1447	1554	
==>undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3874	3980	
==>$DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   : <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3874	3980	
==>$DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   : <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	487	599	
==>Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.st <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	487	599	
==>Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19012	19108	
==>nly meant to be used with user text that is
associated with hard-coded program conditions.  In ot <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19012	19108	
==>nly meant to be used with user text that is
associated with hard-coded program conditions.  In ot <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2420	2536	
==>>reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent;
		my $node = shift;
		warn "reducing " . qpri <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1247	1366	
==>he program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1183	1287	
==>he program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	retur <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	341	450	
==>..
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is expor <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	341	450	
==>..
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is expor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2930	3037	
==>@_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e') <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	961	1068	
==>@_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e') <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16059	16186	
==>ail_out {
    my($self, $line, $reason) = @_;

    if( $line =~ /^Bail out!\s*(.*)/i ) {
        $$reason = $1 if $1;
        re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4046	4160	
==>fix:«<=>»;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max : <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2193	2294	
==>Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9646	9823	
==>parameter_binding( $n->{signature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9262	9409	
==>parameter_binding( $n->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20932	21076	
==>>new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43856	44000	
==>>new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => meth <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6340	6466	
==>is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6340	6466	
==>is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_pa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10027	10143	
==>ence( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10027	10143	
==>ence( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5290	5412	
==>)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8995	9144	
==>dd+dt { margin-top:  1em;  }
    .leftsep  { padding-left: 10px;  }
    .num      { text-align:   right; }

    .details  { display: none; }
    .expa <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10933	11037	
==>nternals::openFile($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19073	19198	
==>!grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20431	20556	
==>!grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !gr <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	587	724	
==>$.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	587	724	
==>$.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2928	3026	
==>ad Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler::SomeCompon <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2821	2918	
==>ad Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler::SomeCompon <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16261	16353	
==>can.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blech <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16319	16411	
==>can.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blech <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14376	14476	
==>string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

Thi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14434	14534	
==>string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9321	9445	
==>ent}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9321	9445	
==>ent}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6211	6316	
==>ndex($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6269	6374	
==>ndex($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	965	1085	
==>5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $dire <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	974	1094	
==>5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $dire <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1414	1517	
==>class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @arg <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1414	1517	
==>class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @arg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1463	1652	
==>vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1463	1652	
==>vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_has <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6565	6663	
==>submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6565	6663	
==>submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17503	17600	
==>eset()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17503	17600	
==>eset()` methods.

If the span is "continuous", this method emits a warning and returns undef.

- ` <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	514	740	
==>ur $iso8601_dur_re = rx:perl5:ix/\s*
        P \s*
        (?: (\d+) \s* Y )? \s*
        (?: (\d+) \s* M )? \s*
        (?: (\d+) \s* D )? \s*
        (?: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	739	829	
==>> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	739	829	
==>> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1078	1197	
==>ey that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1078	1197	
==>ey that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for me <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3881	3975	
==>d "yesterday" return the appropriate date.

Any other string will be passed to `Date::Something <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3881	3975	
==>d "yesterday" return the appropriate date.

Any other string will be passed to `Date::Something <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6964	7211	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6964	7211	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22318	22413	
==>ded "Unrecognized escape" warnings to I<all> escape sequence handlers.

The 'g', 'c', and 'o' fl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	338	459	
==>: argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_inv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1196	1317	
==>: argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_inv <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9808	9942	
==>>{_is_macos} ) {
        my @inc = $self->_filtered_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the ar <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3004	3119	
==>~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g;
    $full_blib =~ s{'}{\\'}g;

    # XXX - Pugs currently has issues u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	40	165	
==>n in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	40	165	
==>n in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use Pugs::Grammar::Base;  # not <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6142	6243	
==>de_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'x <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6142	6243	
==>de_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'x <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13611	13756	
==>fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13611	13756	
==>fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0 <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1610	1742	
==>/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10133	10235	
==>' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10133	10235	
==>' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_templa <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1457	1567	
==>turns Array is export{
    my @matches;
    for %x.kv->$key,$value{
        if $value eq $x { push @matches,$ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	708	796	
==>If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	708	796	
==>If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17136	17277	
==>) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17136	17277	
==>) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$ni <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11192	11293	
==>l given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11192	11293	
==>l given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20712	20811	
==>utines or export such.

The usual way that Relation indicates a failure is to throw an exception;
mo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25264	25363	
==>utines or export such.

The usual way that Relation indicates a failure is to throw an exception;
mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14715	14880	
==>want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        return ' "" . ' . _emit( $n- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7384	7484	
==>ory and sets $regex as the regex to be parsed.

=back

These two approaches do an initial pass over t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14818	14910	
==>ntities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default. <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14818	14910	
==>ntities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	263	387	
==>y::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	263	387	
==>y::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3049	3202	
==>s = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3049	3202	
==>s = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5279	5401	
==>',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data structu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5279	5401	
==>',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data structu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	725	856	
==>ap {
		my $name = $self->{names}{$_};

		$self->{current_node} = $_;
		"$name = " . $self->reduce($_) . ";\n\n";
	} @nodes, $program <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4408	4497	
==>&Point, '... go the right superclass name for Point3D');
is($p3d->prototype->prototype->cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9890	10026	
==>op::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10169	10305	
==>op::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11285	11473	
==>id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11285	11473	
==>id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'int <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	361	457	
==>ir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	361	457	
==>ir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17731	17892	
==>nge = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14152	14313	
==>nge = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21859	21971	
==>l = substr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)? <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2794	2894	
==>if($stage eq 'p5') {
	    my $pil_tree = $self->as_pil_tree;
	    my($p5,$warn) = Perl6::Run::OnPerl5 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3195	3298	
==>rt, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3195	3298	
==>rt, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "inte <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8577	8689	
==>archies of trees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8577	8689	
==>archies of trees, your
# depth fields are all out of whack.
# This is where this method comes into play
# it will <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8423	8535	
==>o the category.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5963	6069	
==>o the category.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3946	4049	
==>:Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3946	4049	
==>:Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	931	1040	
==>e    => sub{ $match = $rpc_rule->match($str)    for 1..40},
        P6_Token   => sub{ $match = $rpc_token->m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1658	1810	
==>move($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1658	1810	
==>move($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!memb <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	505	607	
==>my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a dir <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	505	607	
==>my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a dir <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18170	18292	
==>dy used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18170	18292	
==>dy used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts th <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7954	8275	
==>$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	574	707	
==>::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  sh <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	98	186	
==>ray::splice<Array>.assuming(:offset(-1) :length(1));

multi sub Array::pop () returns Sca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14241	14379	
==>t

sub write {
    my $self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7609	7708	
==>= Perl_pregcomp(aTHX_ nulpat,nulpat,pm);
    /*XXX - can free nulpat now? */

/*    fprintf(stderr," <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18189	18291	
==>tions where multiple DBMS
objects want to use the same external resources, such as a repository file
on <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18189	18291	
==>tions where multiple DBMS
objects want to use the same external resources, such as a repository file
on <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1876	1973	
==>.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime::Match:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1965	2062	
==>.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime::Match:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4625	4742	
==>$content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4625	4742	
==>$content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	441	551	
==>elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	441	551	
==>elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5485	5607	
==>n a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5310	5428	
==>n a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3202	3433	
==><verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3202	3433	
==><verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1496	1643	
==>from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1496	1643	
==>from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	656	787	
==>lation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4134	4265	
==>lation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation's attr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5832	5958	
==>umber of individual todo tests unexpectedly passed
    max             Number of individual tests ran
    ok              Numbe <==
2	/Users/nnunley/pugs/util/build_pugs.pl	445	544	
==>pugs executable

This script calls GHC to build a pugs exectuable, optionally inlining
precompiled m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1305	1443	
==>chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1305	1443	
==>chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1422	1516	
==>>compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1422	1516	
==>>compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4103	4199	
==>P_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4103	4199	
==>P_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	826	932	
==>ts PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# do not inheri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	826	932	
==>ts PMC compilation.
#
# The hope is that this will allow interoperability with modules that
# do not inheri <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	850	959	
==>sub identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is ex <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	850	959	
==>sub identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2018	2120	
==>aphy resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly sec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2018	2120	
==>aphy resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfectly sec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8738	8835	
==>(Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8738	8835	
==>(Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5477	5630	
==>*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5670	5823	
==>*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6740	6894	
==>areword'}->() }
            |
                ### Test::More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs:: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1824	1962	
==>deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = shift;
    
    my $str = '';
    return $str unless $deps;

    if <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	138	239	
==>@ISA     = qw{Module::Install::Base};
}

# determine if the user needs nmake, and download it if neede <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1415	1510	
==>hing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1415	1510	
==>hing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36344	36439	
==>nternally by translate_message() to produce the list of Template module
names that it will searc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36344	36439	
==>nternally by translate_message() to produce the list of Template module
names that it will searc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10560	10660	
==>reset()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- `laz <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10560	10660	
==>reset()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- `laz <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	680	839	
==>t )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	680	839	
==>t )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5986	6091	
==>alse if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only ap <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5986	6091	
==>alse if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it only ap <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15902	15995	
==>iftExpression>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpression>
    | <RelationalExpre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37824	37923	
==>ring).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37824	37923	
==>ring).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3664	3870	
==>2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3518	3717	
==>2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1499	1628	
==>o = ./protocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newli <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1499	1628	
==>o = ./protocol;
        
        $req_line ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newli <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1762	1900	
==>ush( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1762	1900	
==>ush( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11172	11272	
==>hat joining multiple
values in this way will not change the semantic of a header field, but
in practi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11172	11272	
==>hat joining multiple
values in this way will not change the semantic of a header field, but
in practi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2151	2282	
==>_command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2151	2282	
==>_command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3129	3293	
==>= (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3376	3540	
==>= (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10103	10241	
==>ing CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10103	10241	
==>ing CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25223	25348	
==>α × β)", "pretty print a x b");
}
{
	my $type = type::operator::arrow->new(
		type::variable::free->new,
		type::operator:: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	409	508	
==>per for arrays and filehandles.

=head2 new()

Create an iterator.

=head2 next()

Iterate through i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5392	5505	
==>blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already ha <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5392	5505	
==>blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already ha <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2650	2795	
==>r
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2650	2795	
==>r
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1733	1869	
==>rep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12044	12144	
==>_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12102	12202	
==>_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2647	2740	
==>head2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=ove <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2647	2740	
==>head2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=ove <==
2	/Users/nnunley/pugs/util/importgraph.pl	242	341	
==>rnings;
use File::Find;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2056	2186	
==>]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2067	2197	
==>]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14843	14961	
==>\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14843	14961	
==>\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    ret <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1085	1188	
==>oke();
  clean_obsolete_smokes();

  print "ok";
}

sub validate_params {
  if(not $CGI->param("version" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8057	8243	
==>Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ) <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	861	962	
==>tion::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2359	2447	
==>($self.size < $other.size && $other.includes($self.members));
}
method superset($self: Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2359	2447	
==>($self.size < $other.size && $other.includes($self.members));
}
method superset($self: Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8377	8491	
==>h::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8365	8479	
==>h::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1791	1902	
==>alias  {  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9510	9618	
==>ulate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9510	9618	
==>ulate the 
set size.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3248	3340	
==>m($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3248	3340	
==>m($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter n <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2826	2928	
==>g<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Synta <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2826	2928	
==>g<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Synta <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	104	210	
==>vate use methods
has Code--Perl6 %:methods;

method new(Str $name) returns Class--Perl6 {
    $.name = $nam <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16129	16232	
==>,_,B0,_,E0,_).
rm(lookahead_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,F0,_,B0,_,E0,_)).

rm(lookbehind(Re), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8481	8649	
==>);
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8481	8649	
==>);
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32756	32850	
==>ce Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37306	37400	
==>ce Relations, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation $o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12054	12218	
==>ie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an inst <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12054	12218	
==>ie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an inst <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	464	572	
==>[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	464	572	
==>[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1497	1596	
==>shift;
	unless ( @_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_config, ski <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1377	1470	
==>cribes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1377	1470	
==>cribes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19137	19237	
==>ray) };
multi shift ($array) is builtin is primitive { die "Cannot 'shift' scalar"; };

multi pop (@a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2876	3000	
==>"You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        . <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2876	3000	
==>"You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        . <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3443	3569	
==>als{max} && $totals{seen} &&
                  $totals{max} == $totals{seen} && 
                  $totals{max} == $totals{ok}) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7910	8022	
==>parser->regex($rx)) {
    my $errmsg = $parser->errmsg;
    my $errnum = $parser->errnum;
    # ...
  }

If you w <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8753	8864	
==>git>
    | <HexIntegerLiteral> <HexDigit>
}
rule StringLiteral {  # see 7.8.4
      <'"'> <DoubleStringCharacter <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	886	979	
==>licateFinder->new;

    my @nodes = $dup_finder->duplicate_nodes($program);

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10164	10261	
==>ection of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests nee <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10222	10319	
==>ection of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests nee <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31794	31907	
==>) returns Relation::Example>

I<TODO.  This method has not yet been implemented.>

This method is a generic relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32841	32954	
==>) returns Relation::Example>

I<TODO.  This method has not yet been implemented.>

This method is a generic relati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8925	9025	
==>ct_ the match object returned to carry the same magic.



overload in p5 is just static %OVERLOAD ent <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8630	8728	
==>ct_ the match object returned to carry the same magic.

overload in p5 is just static %OVERLOAD ent <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10189	10292	
==>Value, $isWritable, $isLazy, $paramName, $paramContext, $paramDefault) {
    my $default; $default = DOW <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19139	19236	
==>little
trouble.  Likewise, emulation layers for any other programming language can
be supported, s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19139	19236	
==>little
trouble.  Likewise, emulation layers for any other programming language can
be supported, s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	907	1022	
==>rintf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => '&infix:<~>',
			body => 'prel_c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2670	2795	
==>ole->id . " -- node_" . $role->id . " [ dir = back, style = solid, color = orange ];\n";       
    }       
    return $outpu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4457	4546	
==>('token',mk_dynamic_alt(\@tokens));
# tokens should be longest-match-first, but that's sim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1819	1924	
==>blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1879	1984	
==>blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3794	3904	
==>program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4011	4121	
==>program=>1 - prints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $ma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7142	7456	
==>True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7142	7456	
==>True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15017	15124	
==>ue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIV <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15017	15124	
==>ue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $text) { ./:enqueue("PRIV <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2283	2408	
==>w/runtime/) }

	sub annotate {
		my $self = shift;
		my $runtime = shift;
		my $prog = shift;
		
		$self->{runtime} = $runtime <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	318	428	
==>t is only
# expected to serve as a tool to somewhat speed up
# the rewrite of existing p5 programs instead of d <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5662	5765	
==>Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5662	5765	
==>Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parse <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1199	1293	
==>---------------------------------------------------------

Since you are using Microsoft Window <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1039	1133	
==>---------------------------------------------------------

Since you are using Microsoft Window <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15626	15718	
==>ing from all characters to the corresponding entities
(and vice versa, respectively).

=head1 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15626	15718	
==>ing from all characters to the corresponding entities
(and vice versa, respectively).

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27625	27729	
==>..)> or C<(?u)>.  The values 0x01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1756	1845	
==>split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2117	2234	
==>rr ? 1 : 0);
}

# Input parameters
my $syn_src_dir; # The root directory for perl6 Design POD 
my @t_dirs;      # Test <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7942	8047	
==>TION

This class represents an ordered set of spans.

The problem this class solves is when you need do pe <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7942	8047	
==>TION

This class represents an ordered set of spans.

The problem this class solves is when you need do pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18671	18792	
==>y $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20029	20150	
==>y $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1096	1261	
==>info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$Metaext/;
            ### XXX no hierarchy yet
            system( qq[mv $my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1170	1276	
==>includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<object <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1170	1276	
==>includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<object <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6152	6268	
==>r target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    in <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2002	2209	
==>{ 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2002	2209	
==>{ 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'l <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	582	681	
==>return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	582	681	
==>return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8019	8125	
==>killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8019	8125	
==>killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her from %u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7344	7447	
==>e {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7402	7505	
==>e {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_test <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8462	8574	
==>->{ghc} 
        or croak "assert_ghc_pkg not cached, and called without path to ghc";

    my $ghc_pkg = $ENV{GH <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15016	15133	
==>ence methods.  These methods can both be used to read
and to set the value of a header.  The header value is set if yo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15016	15133	
==>ence methods.  These methods can both be used to read
and to set the value of a header.  The header value is set if yo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4805	4923	
==>> $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4805	4923	
==>> $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	593	711	
==>head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.en <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	593	711	
==>head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.en <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4207	4346	
==>,              
        class => sub { \&Point3D },        
    };
}

my $p3d = new Point3D(5, 6, 7);
is($p3d->class, \&Point3D, '... go the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4906	5032	
==>le, $self->index_files(package => $pkg) ) {
        unless (-e $index) {
            # create the directory an index file lives <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5790	5885	
==>>force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5869	5964	
==>>force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21204	21307	
==>t, Rosetta's most prominant feature is that it provides a
common API for access to those databases, each <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21204	21307	
==>t, Rosetta's most prominant feature is that it provides a
common API for access to those databases, each <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23011	23108	
==>unctionDeclaration :words {  # see clause 13
      <'function'> <Identifier> <'('> <FormalParamete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5926	6023	
==>::Grammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::T <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6924	7063	
==>ng);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &un <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10401	10540	
==>ng);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &un <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	229	326	
==>f_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	287	384	
==>f_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	828	928	
==>turn $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	828	928	
==>turn $head.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5281	5476	
==>ength
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5281	5476	
==>ength
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2243	2366	
==>ss ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2243	2366	
==>ss ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1137	1289	
==>->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $self = shift;
                my $idx = shift <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6946	7048	
==>erl 5)";
  $_ eq "pil2js" and return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL- <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7969	8093	
==>verse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant = traverse_ast ( %app<"pInv"> );
        $ret = emit_Ap <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	400	502	
==>module if possible
sub can_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11816	12059	
==>clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11816	12059	
==>clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2396	2502	
==>rs));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2396	2502	
==>rs));
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20573	20674	
==>c spelling.  For example if you really want a header field name
to show up as C<foo_bar> instead of "F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20573	20674	
==>c spelling.  For example if you really want a header field name
to show up as C<foo_bar> instead of "F <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2798	2935	
==>s bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2798	2935	
==>s bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1905	2011	
==>b tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1905	2011	
==>b tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	340	480	
==>n    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dos <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	340	480	
==>n    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dos <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9947	10048	
==>trings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9947	10048	
==>trings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $str <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18541	18668	
==>ACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line bou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18541	18668	
==>ACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line bou <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12943	13043	
==>nge, the unit is added to the current value to get the next value.
The unit specifier is also used in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12943	13043	
==>nge, the unit is added to the current value to get the next value.
The unit specifier is also used in <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14633	14731	
==>ents that would have
been iterated.

The lvalue form of C<keys> is not longer supported. Use the C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29234	29343	
==>key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29234	29343	
==>key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8293	8396	
==>rted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8293	8396	
==>rted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6041	6135	
==>C<want> gets implemented. Currently, the headers
are returned as one long string.

=item List C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6041	6135	
==>C<want> gets implemented. Currently, the headers
are returned as one long string.

=item List C <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	403	530	
==>ddtolist($x);
      }
    }
}    

#Autrijus' "cls"
sub clear returns Void is export{
    system(($?OS eq any <MSWin32 mingw>) ? <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7064	7192	
==>}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7064	7192	
==>}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14587	14716	
==>p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers =
    ( undef => sub { $as_hash_complain->("undef"); [] },
      numer <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10039	10143	
==>od exclusion (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5219	5330	
==>modified-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5219	5330	
==>modified-Since") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# Th <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	568	697	
==>this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	568	697	
==>this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title><para>foo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	839	945	
==>t { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	839	945	
==>t { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	377	508	
==>val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETC <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	377	508	
==>val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7416	7509	
==>, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7416	7509	
==>, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6278	6394	
==>ort() sets a 'rule_finished' flag in the returned match, 

that makes it return until the start of the rule, which un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6073	6188	
==>ort() sets a 'rule_finished' flag in the returned match, 
that makes it return until the start of the rule, which un <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2579	2697	
==>($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2579	2697	
==>($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1451	1642	
==>ew', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method exp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1451	1642	
==>ew', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method exp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	729	833	
==>st be an closure::params or closure::signature type";
    (ref($body) eq 'CODE')
        || confess "body <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1091	1180	
==>"term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W", " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3836	4029	
==>null {
    return sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $_[5]) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1316	1414	
==>if ( $relativePrecedence and $relativePrecedence ne "" )
  {
    if ( substr $relativePrecedence, 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	940	1043	
==>t{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} - $increment <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	504	616	
==>tems because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<cou <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	504	616	
==>tems because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<cou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3537	3641	
==>= $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3537	3641	
==>= $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10942	11084	
==>$domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10942	11084	
==>$domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	407	536	
==>PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &r <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	407	536	
==>PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19848	19944	
==>y
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19848	19944	
==>y
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7214	7319	
==>(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin')>

This event i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7214	7319	
==>(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin')>

This event i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19414	19509	
==>uctured as
standard data manipulation statements but that the target relation
variables are syst <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19414	19509	
==>uctured as
standard data manipulation statements but that the target relation
variables are syst <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3208	3399	
==>ength;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3208	3399	
==>ength;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20806	20903	
==>rm(word_boundary,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> \+ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4923	5024	
==>set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4923	5024	
==>set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x <==
2	/Users/nnunley/pugs/util/combine_tests.pl	161	256	
==>ined = combine_tests(@data);
#
#print YAML::Dump($combined);
print Dump(combine_tests(map { Load <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38569	38665	
==>ple, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "H <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38569	38665	
==>ple, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "H <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12707	12811	
==>ata, such as date objects without the time part.

Discrete spans take a "units" specifier, which can be e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12707	12811	
==>ata, such as date objects without the time part.

Discrete spans take a "units" specifier, which can be e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1012	1112	
==>ler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mixes in both <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	962	1061	
==>ler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mixes in both <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	584	684	
==>behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaq <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	584	684	
==>behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaq <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7487	7585	
==>h_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basec <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7487	7585	
==>h_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15806	15906	
==>ld Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15806	15906	
==>ld Nodes, if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$doc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3457	3553	
==>line(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 whi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3457	3553	
==>line(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 whi <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	1022	1256	
==>8
              $iso8601_re \057 (?: ( # $28
                                 $iso8601_dur_re ) |
                                 ( # $36
                                 $iso8601_re ) ) )
        )/;      #/x?# yay, cperl-mode

#FIXM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	786	895	
==><parse> <op2>', 
    infix_left =>      '<tight> <op> <equal>', 
    infix_right =>     '<equal> <op> <tight>' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	255	399	
==>ubmethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	913	1034	
==>omit {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self->{omit};
  }

  sub insert {
    my ($self, $tree) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	43	138	
==>a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	43	138	
==>a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) node <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7467	7647	
==>e
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7467	7647	
==>e
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5420	5519	
==>x(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5420	5519	
==>x(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17527	17657	
==>ttributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17527	17657	
==>ttributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	832	933	
==>now require synchronised versions.
    # This will be used to ensure we don't accidentally load old or <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28514	28610	
==>uring group's ender
is a C<close> node, any other assertion's ender is a C<tail> node, and a
char <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9443	9572	
==>ld_height if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9443	9572	
==>ld_height if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20202	20312	
==>alyze" :method
    .param pmc pad
    .local pmc reps, exp
    .local string cname
    .local int cutnum, padar <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	18	160	
==>n
class Person {
	has $.name is rw;
	# method name() { return "Otto"; } # überflüssig
}
class Welt {
	method hallo ( Person $person ) {
		"Ha <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6874	6977	
==>t/build/src -o pugs src/Main.hs), @libs);
    print "*** Building: ", join(' ', $ghc, @_), $/;
    syste <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2024	2163	
==>eturn $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2084	2223	
==>eturn $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #wa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1450	1554	
==>ed_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1508	1612	
==>ed_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6573	6681	
==>method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6573	6681	
==>method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3864	3950	
==>ches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3864	3950	
==>ches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19965	20053	
==>ons.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implement <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19965	20053	
==>ons.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implement <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11016	11145	
==>an::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.curr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11016	11145	
==>an::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.curr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	613	717	
==>tives
    if( my $aref = $alts->{ $struct->{package} }->{bin} ) {
        print "\t*** Primary alternativ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16187	16284	
==>nceof'> <ShiftExpression>
}
rule EqualityExpression :words {  # see 11.9
      <RelationalExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1994	2138	
==>ect, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1994	2138	
==>ect, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on t <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	342	449	
==>efined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	342	449	
==>efined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11223	11318	
==>desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with mos <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11281	11376	
==>desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with mos <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2349	2452	
==>nfix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2349	2452	
==>nfix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for i <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	403	501	
==>_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote use <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	403	501	
==>_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote use <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1136	1248	
==>al" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1136	1248	
==>al" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	408	519	
==>\$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	408	519	
==>\$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2847	2960	
==>x, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2847	2960	
==>x, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $s <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3745	3869	
==>self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postambl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5105	5229	
==>self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postambl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11059	11169	
==>:get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11209	11319	
==>:get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$< <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9184	9328	
==>ome::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9242	9386	
==>ome::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5307	5437	
==>xtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5307	5437	
==>xtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Typ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12404	12538	
==>Runtime;

sub new {
    my $class = shift;

    bless {
        map { $_->equals => $_  } @_,
    }, $class;
}

sub compile {
    my $s <==
2	/Users/nnunley/pugs/util/importgraph.pl	858	995	
==>defined $2;
    } elsif (/^import \s+ (qualified \s+)? ([\w.]+) (\s* \()?/x) {
      $imports{$2} = [defined($1), defined($3)];
    } elsi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10182	10302	
==>ENV, 
        closure::signature->new(
            closure::params->new(
                symbol->new("&dispatcher", q<blo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12173	12270	
==>_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12173	12270	
==>_command(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_ni <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2411	2544	
==>ath);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2411	2544	
==>ath);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15799	15913	
==>}

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15799	15913	
==>}

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	595	720	
==>.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expectin <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	595	720	
==>.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expectin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6800	6957	
==>f;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6800	6957	
==>f;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	757	870	
==>p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it me <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	757	870	
==>p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4844	5041	
==>e last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4844	5041	
==>e last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14409	14510	
==>her Nodes (it does not support any analogy of CDATA sections, though).
The Node class is pure and dete <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14409	14510	
==>her Nodes (it does not support any analogy of CDATA sections, though).
The Node class is pure and dete <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	741	846	
==>$prev eq "base" and $curr ne "base";
    $prev = $curr;
  }
  Regexp::Parser->export_to_level($level, $pkg <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16403	16497	
==>fiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2312	2419	
==>::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2312	2419	
==>::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Pe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21774	21874	
==>l{$_},$_} keys(%space_from_sigil);
}
sub p6_mangle {
    my($n,$pkg)=@_;
    my $sigil = substr($n,0, <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	238	348	
==>$self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	202	312	
==>$self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6926	7063	
==>base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6926	7063	
==>base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = canonpath($_path);

    my ($path_volu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	0	130	
==>use v6;

module File::Spec::Unix-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	0	130	
==>use v6;

module File::Spec::Unix-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41043	41141	
==>in@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, that s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41043	41141	
==>in@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage and patch
code, that s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8157	8289	
==>:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match failed    



    state - a "next-st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7883	8010	
==>:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match failed    

    state - a "next-st <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1391	1489	
==>th }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1391	1489	
==>th }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tree <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25828	25926	
==>ty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25828	25926	
==>ty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or mo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1554	1667	
==>{
			my $reduced = $self->SUPER::generic_reduce($node);
			return $self->constructor($reduced) . $self->layout($re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8331	8458	
==>erl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8331	8458	
==>erl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1900	2028	
==>sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = ma <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1900	2028	
==>sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4044	4303	
==>eturns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=enco <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4044	4303	
==>eturns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=enco <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32321	32428	
==>late modules to come
from Perl modules, but in the future they may alternately be something
else, such as XM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32321	32428	
==>late modules to come
from Perl modules, but in the future they may alternately be something
else, such as XM <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22483	22575	
==>entation is pending.>

=head1 DESCRIPTION

This library provides a partial implementation, in <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3708	3866	
==>s(shift)->superclass;
        },                       
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	413	509	
==>sults by passin
	all => sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filter: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8884	8994	
==>k out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8884	8994	
==>k out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	90	223	
==>n of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> be <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	88	214	
==>n of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> be <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13174	13312	
==>know which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $failedtests{$tfile} = <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7289	7424	
==>sign documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $syn_indexs->{$1}{$_} = 
            {  file <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	25	147	
==>the last statement evaluated in the .pm, in this case
# 42. See thread "What do use and require evaluate to?" on p6l starte <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15859	15966	
==>rl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harnes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15917	16024	
==>rl 5 Test modules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harnes <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2495	2626	
==>nd_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2495	2626	
==>nd_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Spa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1007	1129	
==>ile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1, -1);
        my $mod = $<mod>[0] ? " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22256	22377	
==>@parts = split('::',$mn);
	$parts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6508	6653	
==>gs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6290	6429	
==>gs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	300	431	
==>'0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	300	431	
==>'0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19657	19762	
==>nformation schema" records, which in SQL are read-only,
not by using special 'create' or 'alter' statement <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19657	19762	
==>nformation schema" records, which in SQL are read-only,
not by using special 'create' or 'alter' statement <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37528	37621	
==>$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37528	37621	
==>$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_from_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15618	15758	
==>self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21789	21929	
==>self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38154	38278	
==>() method:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19824	20062	
==>ly(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40284	40522	
==>ly(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get(' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7374	7480	
==>ler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7374	7480	
==>ler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5872	5997	
==>zed );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5872	5997	
==>zed );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1428	1564	
==>il,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1439	1575	
==>il,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12490	12603	
==>ent may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function rem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12490	12603	
==>ent may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function rem <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1723	1822	
==>r (pair).  (The value of the 
pair is currently unused, but for forward compatibility it should alwa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1723	1822	
==>r (pair).  (The value of the 
pair is currently unused, but for forward compatibility it should alwa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14142	14263	
==>yload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14142	14263	
==>yload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Int <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5103	5200	
==>item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of succ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5103	5200	
==>item read ($filename)

The C<read> method reads a config file, and returns a boolean value
of succ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3315	3473	
==>sponse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3315	3473	
==>sponse_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6998	7098	
==>, $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7056	7156	
==>, $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $expected, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5981	6120	
==>match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5993	6132	
==>match variable $name is not implemented";
    # die "no submatch like $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	830	939	
==>d';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	787	892	
==>d';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31184	31275	
==>names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::Foo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31184	31275	
==>names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::Foo <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1867	1965	
==>>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constru <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1867	1965	
==>>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	380	492	
==>ngth( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	380	492	
==>ngth( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @mat <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4552	4655	
==>itrd, which will be mounted.
  --initrd-size=$initrd_size
    --initrd-size specifies the size of the (u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17670	17760	
==>x,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14766	14864	
==>bol).
%# XXX - captures in reverse dont currently work.
%# XXX - more...
re_reverse(R,R).

%------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39162	39260	
==>nts of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39162	39260	
==>nts of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8634	8751	
==>nged nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8634	8751	
==>nged nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15037	15128	
==>the Rosetta Native Interface (RNI), which applications invoke and which
multiple interchange <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15037	15128	
==>the Rosetta Native Interface (RNI), which applications invoke and which
multiple interchange <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1123	1236	
==>$self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1123	1236	
==>$self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12169	12353	
==>midifference;

###########################################################################

method semijoin (Relation::Example $other!) returns Relation::Example {

    die "The heading <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2989	3093	
==>e;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2989	3093	
==>e;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5313	5461	
==>=> Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.substitution>
            { return { 
                    substitution => $/{' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3606	3731	
==>le_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "pugs -CPerl5 failed: $warn\n" if $warn;
	    $self->{'pil_code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18200	18301	
==>eader is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18200	18301	
==>eader is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	679	795	
==>ay "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	679	795	
==>ay "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21918	22035	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18339	18456	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self-> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1574	1696	
==>ve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1574	1696	
==>ve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11312	11449	
==>current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.pre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11312	11449	
==>current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5365	5556	
==>ead;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5365	5556	
==>ead;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            d <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1544	1656	
==>t|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1544	1656	
==>t|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3071	3164	
==><value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10839	10985	
==>[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10833	10979	
==>[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    lo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2741	2849	
==>p{$id}{'ops'} = $ops;
        my $cmp = (!defined($ops->[-1])) ? -1 : $ops->[-1]->op_cmp($op);
        if($cm <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2542	2672	
==>$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2542	2672	
==>$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28407	28555	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28686	28834	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	604	723	
==>>$rule
    my ($self, $opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	873	987	
==>'::NullPlan' => class 'TestBuilder::NullPlan' => {
    is => [ $::Object ],    
    methods => {
        'header' = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	915	1020	
==>export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub scr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	915	1020	
==>export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub scr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4788	4905	
==>d ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4788	4905	
==>d ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15514	15611	
==>to" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15514	15611	
==>to" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for dat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3194	3401	
==>class->superclass($class);
                }
                $class = $eigenclass;                
            }
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18972	19068	
==>a type that corresponds to the
"relation" of logic and mathematics and philosophy ("a predicate r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22622	22718	
==>a type that corresponds to the "relation" of logic
and mathematics and philosophy ("a predicate r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	149	255	
==>E variable controls whether '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLAT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	149	255	
==>E variable controls whether '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLAT <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1423	1526	
==>osure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1423	1526	
==>osure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6785	6923	
==>" or die "find_extensions: Can't open $subpath.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18138	18234	
==>ariously to return the compiled regexp, to give input to a search,
and to get back match results. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	94	191	
==>an acccessor - all it's doing is making the
# "source" property of the object fallback to "content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	94	191	
==>an acccessor - all it's doing is making the
# "source" property of the object fallback to "content <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1891	1999	
==>turns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1891	1999	
==>turns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_se <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3699	3796	
==>recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3699	3796	
==>recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17377	17476	
==>ides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file, to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17377	17476	
==>ides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" file, to <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4563	4660	
==>5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_range_bounds(Min,Max) --> digits_int <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3075	3170	
==>($options{params}) && $options{params}->isa('closure::params'))
        || confess "Bad params i <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	591	724	
==>$guess) - $target) > $epsilon) {

        if ($count > $max_iterations) {
            die "excessive looping";
        }

        upda <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10658	10940	
==>ass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10658	10940	
==>ass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2735	2856	
==>laut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igra <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2735	2856	
==>laut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igra <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	558	698	
==>ename( $srcdir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $buil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	277	380	
==>url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LWP::Si <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	313	414	
==>url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LWP::Si <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14718	14822	
==>he error handling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14776	14880	
==>he error handling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12383	12478	
==>s true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<g <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12383	12478	
==>s true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	693	805	
==>f;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	693	805	
==>f;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1570	1710	
==>quire URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::UR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1570	1710	
==>quire URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::UR <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	737	903	
==>NSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8474	8574	
==>rator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6010	6108	
==>rator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the nam <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2120	2231	
==>ist';

    package Blondie::Val;
    use base 'Blondie::Node::Unit';

    package Blondie::Seq;
    use base 'Bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2156	2309	
==>e,state):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2086	2235	
==>e,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $mat <==
2	/Users/nnunley/pugs/util/package-osx.pl	5877	5976	
==>pm
        /usr/local/man/man3/Perl6::Overview::File.3
        /usr/local/man/man3/Perl6::Overview:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2917	3020	
==>ly run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2917	3020	
==>ly run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19205	19308	
==>ing language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19205	19308	
==>ing language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14970	15066	
==>d oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14970	15066	
==>d oper(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTI <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	286	458	
==>ap { $_ => \&$_ }
                   qw( generate_p6mm generate_attribute )
                 },
    };

sub generate_p6mm {
    my $self = shift;

    my $schema = $self->sc <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	478	602	
==>oken := { [ $^tok_label, $^tok ] }
    if !defined $maketoken;
  my @tokens;
  my $buf = "";   # set to undef to when input i <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	503	604	
==>rn VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all those stuff live in In <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	338	444	
==>ead1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	338	444	
==>ead1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25480	25580	
==>his uniquely identifies the type of message that the object
represents (or gives the name of a condit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25480	25580	
==>his uniquely identifies the type of message that the object
represents (or gives the name of a condit <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6343	6442	
==>nt($url)

Get and print a document identified by a URL. The document is printed
to the selected defa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6343	6442	
==>nt($url)

Get and print a document identified by a URL. The document is printed
to the selected defa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	322	433	
==>=> q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1180	1291	
==>=> q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15350	15487	
==>leop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15629	15766	
==>leop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5378	5519	
==>il => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5209	5343	
==>il => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - ge <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3210	3306	
==>isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3268	3364	
==>isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depen <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	119	222	
==>ass, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	119	222	
==>ass, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sourcefile <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13896	14010	
==>ram {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1376	1490	
==>ram {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub r <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	400	497	
==>.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	400	497	
==>.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16031	16144	
==>0 .= $S1
    $S0 .= ", found '"
    $P1 = getattribute mob, "PGE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27995	28092	
==>"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29')->describe,"\n";
print $r->(' <==
2	/Users/nnunley/pugs/util/package-osx.pl	5230	5327	
==>S28.3pm
        /usr/local/man/man3/Perl6::Bible::S29.3pm
        /usr/local/man/man3/Perl6::Doc.3 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5027	5162	
==>,
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5027	5162	
==>,
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6788	6898	
==>item mirror($url, $file)

Get and store a document identified by a URL, using
I<If-modified-since>, and checkin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6788	6898	
==>item mirror($url, $file)

Get and store a document identified by a URL, using
I<If-modified-since>, and checkin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	208	318	
==>mpdir];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accesso <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23275	23386	
==>he other
packages require your text data to be stored in a format other than Perl
files.  Or alternately they ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23275	23386	
==>he other
packages require your text data to be stored in a format other than Perl
files.  Or alternately they ha <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3363	3490	
==>ue_instance_attrs($self)->{'%:methods'}->{$label} ? 1 : 0;
        },        
        'add_method' => sub ($$$) {
            my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3745	3916	
==>$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3745	3916	
==>$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitia <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1161	1263	
==>ift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::Dyn <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3391	3495	
==>);

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration files
with a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3391	3495	
==>);

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration files
with a <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16108	16236	
==>s script doesn't run as root, anyway.
sub check_for_evil_chars {
  local $_;
  for(@_) {
    die "Error: Parameter \"$_\" contain <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2395	2524	
==>'Type';
node_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4062	4174	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4255	4367	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14196	14374	
==>[0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14196	14374	
==>[0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4438	4537	
==>_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4438	4537	
==>_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5308	5407	
==>e cipher object to clear its internal state as completely as possible. 
This is automatically done a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5308	5407	
==>e cipher object to clear its internal state as completely as possible. 
This is automatically done a <==
2	/Users/nnunley/pugs/util/drift.pl	1848	1951	
==>../<\/DrIFT>/) {
		next if (/DrIFT/);
		print OUT;
	}
}

close IN;

shift(@program) until $program[0] =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9361	9472	
==>ts, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3186	3297	
==>ts, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7031	7166	
==>tch->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7031	7166	
==>tch->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4424	4551	
==>le( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4412	4539	
==>le( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15129	15233	
==>HA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code int <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15129	15233	
==>HA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code int <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	179	296	
==>File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2657	2779	
==>1
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2657	2779	
==>1
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1961	2111	
==>($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1961	2111	
==>($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($pat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	725	847	
==>( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	931	1053	
==>( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_e <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7545	7656	
==>!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7545	7656	
==>!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5916	6013	
==>peratorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bsrStack, "bsr_token_match_3 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30927	31027	
==>ndy Lester C<< <andy at petdance.com> >>.

=head1 COPYRIGHT

Copyright 2002-2005
by Michael G Schwern <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16622	16753	
==>ch;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16901	17032	
==>ch;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5997	6135	
==>f expected is 0, treat range as absolute
        $pass = ($got <= $range) && ($got >= - $range);
    } else {
        my $diff = $got - $ex <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12131	12251	
==>parrot/include/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$parrot_path/runtime/parrot/incl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12001	12101	
==>atch
  information gets inserted in $1 etal.  These will be limited to
  strings, rather than Match o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17998	18106	
==>nternet e-mail address for the human
user who controls the requesting user agent.  The address should be
mach <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17998	18106	
==>nternet e-mail address for the human
user who controls the requesting user agent.  The address should be
mach <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2466	2593	
==>shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $self = shift;
    ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12251	12382	
==>postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' &&
         $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12510	12621	
==>te span

This is used to represent ranges of things that can be counted, such as beats per minute, 
wags per sec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12510	12621	
==>te span

This is used to represent ranges of things that can be counted, such as beats per minute, 
wags per sec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6990	7134	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7183	7327	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule' <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1361	1469	
==>}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1361	1469	
==>}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5986	6099	
==>ch;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside capture_closure:

  xx(x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5798	5905	
==>ch;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside capture_closure:
  xx(x <==
2	/Users/nnunley/pugs/util/addauthors.pl	1554	1675	
==>f /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $auth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1514	1624	
==>ile: $^X $pmc \n";
  );
warn "compilation error: ", $@ if $@;
eval $p6->{perl5}  
    unless $filename =~ /\.pm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4902	5002	
==>ects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4902	5002	
==>ects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32656	32755	
==>its arguments is not significant to the result;
the new Relation contains all the tuples of the sour <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37206	37305	
==>its arguments is not significant to the result;
the new Relation contains all the tuples of the sour <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36659	36758	
==>h>

Ender: tail

=head2 groupp

Family: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. <==
2	/Users/nnunley/pugs/util/package-osx.pl	1680	1769	
==>ocal/lib/perl5/site_perl/pil2js.pl /Library/Perl/5.8.6/pil2js.pl
        /usr/local/lib/pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	982	1095	
==>$abs));
	}

	return;
}

# can we locate a (the) C compiler
sub can_cc {
	my $self   = shift;
	my @chunks = split(/ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2877	2971	
==>, Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternatives <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37382	37480	
==>le contains only tuples that are in
all of the source Relations.  This method has an alias named C< <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2590	2690	
==>s Free Software, and may be used, distributed and modified under 
the same terms as Perl itself.

=cu <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2590	2690	
==>s Free Software, and may be used, distributed and modified under 
the same terms as Perl itself.

=cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4136	4240	
==>an, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4136	4240	
==>an, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23746	23858	
==>s)) returns list 
    ((?@superclasses is_nil) or 
     (?@superclasses apply 
          ($_ send (add_subclass $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1135	1232	
==>ldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1135	1232	
==>ldoc::DOM::Text->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5103	5211	
==>w { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5103	5211	
==>w { $self!date_header("If-Modified-Since")   }
method if_unmodified_since ($self: ) is rw { $self!date_header <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5389	5552	
==>lsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5611	5774	
==>lsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16810	16903	
==>irect use of environment variables, which can aid in
portability.

Practically speaking, Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16810	16903	
==>irect use of environment variables, which can aid in
portability.

Practically speaking, Local <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19636	19732	
==>Text> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19636	19732	
==>Text> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<R <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3595	3729	
==>}{'op_ahead'} = $op1;
        #goto &$step;
        return &$step;
      }
      print STDERR "cleanup\n" if $debug;
      my $ops = $Z <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31010	31117	
==>OSIX_".

=item $parser->del_handler(@handle_names)

This uninstalls the given handles.  You send the names ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1466	1558	
==>OUP => --$ENUM, 'Reference to nonexistent group';
use constant RPe_ESLASH => --$ENUM, 'Traili <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	35	141	
==>A is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	35	141	
==>A is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21095	21192	
==>iles and shipped with your
distribtution precompiled. This means that people who install your
modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21095	21192	
==>iles and shipped with your
distribtution precompiled. This means that people who install your
modu <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	762	865	
==>Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing i <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	762	865	
==>Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5903	6008	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5903	6008	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1300	1415	
==>e prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( li <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	860	975	
==>e prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolve( li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8367	8544	
==>if ($cc) {
        $S->error(0, "\\0[A;B] in character class") if @oct > 1;
        return $S->force_object(anyof_char => chr(oct $o), "\\0[$o]");
      }

      return $S->objec <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	722	843	
==>&& $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9892	10005	
==>pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 19 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9892	10005	
==>pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 19 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2246	2395	
==>= $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2246	2395	
==>= $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	70	175	
==>meGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	70	175	
==>meGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1148	1246	
==>:= $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1148	1246	
==>:= $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DE <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4611	4817	
==>);                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = q|
($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13977	14069	
==>d = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13977	14069	
==>d = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4210	4323	
==>:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4210	4323	
==>:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6394	6556	
==>s_multi = %pad<"pIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pLValue">;
        dbg "# Parameters: "; my @params =   traverse_ast ( %pad<"pParams <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22230	22412	
==>,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22509	22691	
==>,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	511	625	
==>n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	478	592	
==>n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	646	777	
==>ys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	734	865	
==>ys %$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dum <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12233	12494	
==>ll_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12233	12494	
==>ll_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::In <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8135	8371	
==>0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8135	8371	
==>0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2828	2979	
==>p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2968	3119	
==>p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1565	1888	
==>/PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1565	1888	
==>/PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4964	5071	
==>!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!par <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4964	5071	
==>!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!par <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2496	2591	
==>ize < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2496	2591	
==>ize < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: S <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5940	6037	
==>>{new} = $self->SUPER::splat($accum);
}

sub free_vars { $_[0] }

package type::variable::instanti <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17743	17858	
==>ute {
    my $class = shift;
    my $thunk = shift;

    use Data::Structure::Util qw/signature/;;
    return  signa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7699	7823	
==>lf: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7699	7823	
==>lf: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33665	33906	
==>ue'),                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;               
                $e->create('$return' => bit->new(0));
                $e->get(' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	613	718	
==>rt($node);
		$self->SUPER::generic_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4634	4830	
==>urn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4634	4830	
==>urn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_na <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7696	7794	
==>path = catfile($output_dir, $path);
    my $index_file =  catfile($output_path,"index.html");
    e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2039	2144	
==>symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1721	1822	
==>symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2689	2785	
==>" . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2689	2785	
==>" . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4901	5063	
==>)' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4913	5075	
==>)' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	285	379	
==>::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-sty <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	285	379	
==>::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-sty <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	158	314	
==>([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = GraphViz->new();

while (<>) {
	if($_ =~ $signature) { $fn = $1; next }
	#if($_ =~ $signature) { $fn = $1; $g->add <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22127	22238	
==>),
	),
);

my $one_elem_list = fun(
	param => "x",
	body => comb(
		fun => comb(
			fun => ide("cons"),
			param <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14725	14821	
==>();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which mak <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14725	14821	
==>();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which mak <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22320	22439	
==>gical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18741	18860	
==>gical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	231	336	
==>s:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there are unknown <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	231	336	
==>s:
    * Lazy lists are not implemented
    * Constructors should emit error messages if there are unknown <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	242	363	
==>thod pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	242	363	
==>thod pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cip <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3345	3474	
==>str;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strbeg,strend-strbeg)));
    XPUSHs(sv_2mortal(newSVuv(flags)));
    XPUSHs( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16665	16773	
==>s that need to be typed

# this is a function that expects an int and will emit an int
# add (int -> int -> i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15419	15515	
==>n use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Manifesto <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15419	15515	
==>n use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Manifesto <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18273	18411	
==>}

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx->error <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8195	8298	
==>$match == "Sub" );
  ($operator) = newfrom($matchObj, $whitespacePosition, $match);
  #What does this li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11227	11393	
==>vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    join "", @{ $self->{vis} };
  }

  sub type {
    my $self = shift;
    $self->{fl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1024	1135	
==>fig->_alternatives );
}

=head2 $file = $inst->registered_alternatives_file

=cut

sub registered_alternatives_f <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21189	21288	
==>ed = @{$test->{failed}};
            (my $txt, $canon) = _canonfailed($test->{max},$test->{skipped}, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1345	1464	
==>print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11473	11575	
==>1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but mayb <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11473	11575	
==>1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but mayb <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5598	5727	
==>=> [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

# ------- higher-order ruleops

sub optio <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	797	912	
==>w(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9592	9690	
==>w("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nullary->new("int"),	
		ty <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15319	15418	
==>rt their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15319	15418	
==>rt their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value wh <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	945	1052	
==>oes Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	945	1052	
==>oes Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	483	630	
==>ocal_env = closure::env->new();
    $local_env->next($env);
    bless {
        body => $body,
        env  => $local_env
    } => $class;        
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	40	131	
==>rammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	40	131	
==>rammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4209	4305	
==>the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None report <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4209	4305	
==>the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None report <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1686	1794	
==>find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1686	1794	
==>find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	267	362	
==>lease do *not* use `return()`, because
that messes up PIR generation.  To return a value, arrang <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	584	682	
==>wing a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	584	682	
==>wing a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with the <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12148	12254	
==>ary on VMS, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = shift;

    return unless $se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	464	565	
==>plit("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	464	565	
==>plit("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16485	16648	
==>,
      flags => $rx->{flags}[-1],
      family => 'open',
      nparen => $nparen,
      data => \@data,
      raw => '(',
      down => 1,
    }, $class;
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	883	1021	
==>1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	892	1030	
==>1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( subs <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3129	3230	
==>get_subscriptions (Class::Publisher::Event::Named $event) {
            # an optimizing lookup for nam <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1774	1884	
==>\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

*inc::Module: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12798	12911	
==>XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12798	12911	
==>XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1956	2121	
==>return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1956	2121	
==>return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6061	6189	
==>eturn { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6061	6189	
==>eturn { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1447	1584	
==>a",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with conten <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1447	1584	
==>a",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with conten <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30319	30414	
==>)' (via C<&RxPOS-->) and returns false, to
pretend it didn't actually match.  The real closing p <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	699	818	
==>multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	699	818	
==>multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	681	875	
==>em' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	681	875	
==>em' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'l <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5022	5171	
==>List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: Code)\
\\n   List      pre     grep    safe   (A <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	318	429	
==>gs{ensure} ||= sub { 1 };
  $args{using}  ||= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[B <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	253	379	
==>ned;
    return $:tree;
}

method show_tree ($self:) returns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6520	6625	
==>> | <Nl>
}
rule UnicodeCombiningMark {  # see 7.6
      # any character in the Unicode categories "Non-spa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	381	496	
==>stead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	381	496	
==>stead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18176	18293	
==>raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_in <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18176	18293	
==>raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_in <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	385	499	
==>nthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 9 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	385	499	
==>nthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 9 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5838	5963	
==>num => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4555	4663	
==>p_type  { $_[0]{'rep'} } # string array1 array2 hash
sub field_is_array {
    my($self,$fname)=@_;
    $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11876	11991	
==>, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4519	4634	
==>, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2980	3080	
==>or, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2980	3080	
==>or, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2129	2230	
==>unctional things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?



I pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2049	2147	
==>unctional things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perhaps?

I pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18445	18548	
==>n $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14866	14969	
==>n $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3607	3769	
==>$/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3619	3781	
==>$/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17777	17879	
==>d this is
mapped to a user-readable message at some point.  For example, Oracle
databases often have er <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17777	17879	
==>d this is
mapped to a user-readable message at some point.  For example, Oracle
databases often have er <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3984	4128	
==>ier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3972	4116	
==>ier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3390	3492	
==>variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3574	3676	
==>variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22725	22876	
==>imple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23004	23155	
==>imple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1333	1430	
==>Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
crypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1333	1430	
==>Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
crypt <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24075	24170	
==>g> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28627	28722	
==>g> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2870	2976	
==>e of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit runnin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2870	2976	
==>e of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit runnin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2880	2995	
==>nite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2880	2995	
==>nite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $span0 = $se <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	553	644	
==>n("\n");
}
my $entry_html = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20575	20673	
==>are.


=head2 Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26691	26786	
==>s_ten), "int → int", ":t (+ 10)");
is(t($fifteen), "int", ":t (+ 10) 5");
is(t($half_pair), " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7514	7667	
==>' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7514	7667	
==>' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single q <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4229	4370	
==>a_file )
                ) };
        $@ and error( "Could not load meta file from archive: $@" ), return;
    
        $self->meta(JIB::Meta- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6784	6895	
==>w( input => $g );
    return $p->Output( classname => $self->{grammar} );
}

sub exists_op { die "not implem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6242	6363	
==>} @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6254	6375	
==>} @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6525	6628	
==>nd

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	893	1040	
==>my @ret;
    for @array.keys -> $k {
	push(@ret, ($k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# si <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7317	7412	
==>pect_oper if ( $tokenCat >= PGE_OPTABLE_POSTFIX );
  goto expect_term if ( $tokenCat >= PGE_OPTA <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5745	5842	
==>Utils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_fro <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5227	5324	
==>Utils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_fro <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10024	10137	
==>de_param_info = join(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14238	14331	
==>harname_to_char(Name,C), !.
uncode_charname_to_char(Name,C) :-
  atom_codes(AName,Name),
  con <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13018	13113	
==>em $h.remove_content_headers

This will remove all the header fields used to describe the conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13018	13113	
==>em $h.remove_content_headers

This will remove all the header fields used to describe the conten <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1283	1433	
==>DR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1283	1433	
==>DR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6223	6437	
==>st.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6223	6437	
==>st.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9020	9175	
==>lete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9020	9175	
==>lete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nic <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2285	2416	
==>join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2285	2416	
==>join("\n    ",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36385	36481	
==>turns Relation::Example>

This multi-method is the N-ary version of the aforementioned binary uni <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41572	41664	
==>turns Relation::Example>

This multi-method is the N-ary version of the aforementioned binary <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11972	12100	
==>"grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12251	12379	
==>"grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'ident', \&{'gra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4726	4839	
==>stered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4726	4839	
==>stered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	624	730	
==>s to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	624	730	
==>s to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2753	2874	
==>fg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2753	2874	
==>fg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1371	1485	
==>Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1371	1485	
==>Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1745	1845	
==>thod is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1745	1845	
==>thod is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

metho <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27436	27558	
==>fined.

=item C<HARNESS_NOTTY>

When set to a true value, forces it to behave as though STDOUT were
not a console.  You may <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8829	8936	
==>e Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for development.
  no warnings "recu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	113	235	
==>lass = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "${ $_[0] }" }

	sub f <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2752	2847	
==>m S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::pop ( --> Sc <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2369	2462	
==>mepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscri <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2369	2462	
==>mepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscri <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3542	3652	
==>j->from() + 1);
  }
  return $matchObj;
}

sub sp {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2902	3042	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Reg <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	252	366	
==>cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	252	366	
==>cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3428	3540	
==>eys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3428	3540	
==>eys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method h <==
2	/Users/nnunley/pugs/util/version_h.pl	7	121	
==>bin/perl -w
use strict;
use warnings;
use Cwd;

my $version_h = shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4151	4263	
==>->output(print_to => *STDOUT);

  my $category = sub {
    return sprintf "%s / %s",
      $_[0]->{pugs_revision} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28483	28581	
==>e implicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28483	28581	
==>e implicit handler when
coercing this object to a string.

=back

=head2 The Template Modules

Loca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3828	3953	
==>rn()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3840	3965	
==>rn()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7610	7766	
==>happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7622	7778	
==>happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16089	16298	
==>edy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16368	16577	
==>edy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternatio <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5502	5619	
==>isses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recurs <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5502	5619	
==>isses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recurs <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3159	3254	
==>"&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3217	3312	
==>"&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4355	4499	
==>concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4343	4487	
==>concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2075	2204	
==>_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4545	4708	
==>ency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5009	5172	
==>ency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1229	1351	
==>}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1229	1351	
==>}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16627	16734	
==>ns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16627	16734	
==>ns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::I <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	798	936	
==>ernary:<?? !!>',
            body => sub {
                $_[1] ? $_[2] : $_[3]
            },
			type => [map { Blondie::TypeSafe::Type:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2958	3075	
==>esult3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14388	14561	
==>less defined $exe;

	# This doesn't absolutize the path: beware of future chdirs().
	# We could do File::Spec->abs2rel() but that does getcwd()s,
	# which is a bit heavyweigh <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13075	13214	
==>->{seen} || 0) -
              ($tres->{ok} || 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{$index';
  $loc .= "->{_dirs}-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7814	7930	
==>, pos, lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	348	457	
==>ping
our $NULL_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PA <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4677	4790	
==>e_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4677	4790	
==>e_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$nod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1173	1316	
==>.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1173	1316	
==>.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11852	11949	
==>ied header field.  Previous values
for the same field are retained.

As for the header() method, t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11852	11949	
==>ied header field.  Previous values
for the same field are retained.

As for the header() method, t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12750	12850	
==>'-'.

The return value is the values of the fields removed.  In scalar
context the number of fields r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12750	12850	
==>'-'.

The return value is the values of the fields removed.  In scalar
context the number of fields r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9937	10103	
==>($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11414	11580	
==>($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5749	5965	
==>}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('new') };
        unless ( $new ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8321	8421	
==>sert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8321	8421	
==>sert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6841	6965	
==>>();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6841	6965	
==>>();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $matc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1266	1377	
==>set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1266	1377	
==>set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1166	1273	
==>= { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	269	375	
==>= { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4523	4722	
==>ug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4523	4722	
==>ug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11413	11507	
==>sted you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11471	11565	
==>sted you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4009	4134	
==>./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4009	4134	
==>./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{ <==
2	/Users/nnunley/pugs/util/package-osx.pl	11660	11768	
==>@footer;

    close REMOVER;
    chmod 0755, "$dest$files[-1]";
    print "Made $dest$files[-1]\n";
}

sub ch <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1428	1537	
==>$data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   print FF $data;
   close(FF);
}

sub Ch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20092	20189	
==>E<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20092	20189	
==>E<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5775	5920	
==>ll;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5775	5920	
==>ll;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2737	2948	
==>::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2737	2948	
==>::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14514	14629	
==>TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14514	14629	
==>TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3811	3934	
==>"copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking sp <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3811	3934	
==>"copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking sp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1925	2062	
==>mber" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1925	2062	
==>mber" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	960	1141	
==>($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@ <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	960	1141	
==>($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14672	14772	
==>->awarn($rx->RPe_NULNUL, $tree->[-1]->visual . $self->raw);
      }

      $self->{data} = $tree->[-1 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	804	955	
==>{
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# V <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	804	955	
==>{
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# V <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8837	8984	
==>union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8837	8984	
==>union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20045	20163	
==>implementation of an Engine and is included in the "Rosetta" core
distribution to allow the core to be completely testa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20045	20163	
==>implementation of an Engine and is included in the "Rosetta" core
distribution to allow the core to be completely testa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2051	2171	
==>::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2051	2171	
==>::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2263	2386	
==>1;
  $html =~ /osname: ([\w\d]+)/      and $smoke{osname}        = $1;
  $html =~ /duration: (\d+)/        and $smoke{durati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10865	11044	
==>tement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11144	11323	
==>tement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1224	1328	
==>%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1224	1328	
==>%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{ <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	250	352	
==>h );
my $fullname = join '.', @path, $name;
my $data = uc("__${name}__");

open OUT, "> $out" or die $! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	213	318	
==>se warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	213	318	
==>se warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25771	25866	
==>do not interact with the outside
environment at all.

A Relation::Example object has 2 main attr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7009	7104	
==>n = $self->reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $self->{defs} }, "$t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6223	6333	
==>my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6223	6333	
==>my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11732	11833	
==>ntities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisl <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11732	11833	
==>ntities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32030	32130	
==>g at just the set member for
each that corresponds to language A, looking for a match to said error
m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32030	32130	
==>g at just the set member for
each that corresponds to language A, looking for a match to said error
m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8352	8500	
==>A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wrap $k?
            }
            $A.property_value{$P} = $Res <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23142	23237	
==>are supposed to pass in english text and they translate it, which could
produce ambiguous result <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23142	23237	
==>are supposed to pass in english text and they translate it, which could
produce ambiguous result <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	52	171	
==>urns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# pa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	52	171	
==>urns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# pa <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	485	594	
==>s
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archnam <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	485	594	
==>s
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archnam <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	585	712	
==>urn '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builde <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	585	712	
==>urn '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builde <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33976	34069	
==>order, and it works like Perl's
standard C<map> operator. It returns a new Relation::Example w <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	550	670	
==>in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$Fi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	550	670	
==>in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$Fi <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	670	911	
==>> sub {
                my $self = shift;
                my $hash = shift;
                $self->set_value('%:slots', $hash);
            },
            hash_fetchElem => sub {
                my $self = shift;
                my $idx = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6479	6595	
==>hex $h), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2865	2979	
==>onfig;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $buil <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1380	1553	
==>results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the nex <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1380	1553	
==>results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the nex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12348	12509	
==>$r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12348	12509	
==>$r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3234	3329	
==>l5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3451	3546	
==>l5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_program => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14228	14324	
==>fier follows nothing

=item RPe_BRACES (-19)

Missing braces on \%s{}

=item RPe_RBRACE (-20)

Mi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7662	7758	
==>rn $_[0];
}
*node::varscalar = *node::varhash = *node::variable;
sub node::empty_list {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17535	17647	
==>}xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visua <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13956	14068	
==>}xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visua <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10901	11061	
==>e: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Per <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10901	11061	
==>e: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3735	3990	
==>yedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3735	3990	
==>yedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L: <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1322	1497	
==>] ) {
            $duration = duration($/[29..35]);
            $duration.start = $start;
        } else {
            my $end = date($/[37..35]);
            $duration = Durat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5013	5128	
==>nstant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5013	5128	
==>nstant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1978	2096	
==>( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1978	2096	
==>( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15372	15489	
==>);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9569	9686	
==>);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24865	24962	
==>ody.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29417	29514	
==>ody.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	111	270	
==>eroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later.. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	111	270	
==>eroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later.. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11772	11871	
==>Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11772	11871	
==>Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6512	6619	
==>_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shift if $$token{e <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8094	8199	
==>led.  This caches its result,
any further calls to ghc_pkg This method expects to
be called with a path (r <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3107	3208	
==>die "Couldn't open \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3552	3651	
==>_func 'acos';
trig_func 'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func 'cotan';
trig_func 'as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8299	8553	
==>:Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D lang <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8299	8553	
==>:Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta D lang <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2219	2310	
==>eturn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2131	2221	
==>eturn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	945	1064	
==>as $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper aro <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	945	1064	
==>as $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper aro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6186	6327	
==>str( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6186	6327	
==>str( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	845	977	
==>->{named_only},
               is_writable   => $param->{is_rw},
               is_slurpy     => $param->{is_slurpy},
	       invocan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14579	14701	
==>f ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	314	427	
==>::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1.. <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	314	427	
==>::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1.. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7879	7981	
==>ent<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7879	7981	
==>ent<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7189	7294	
==>node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7201	7306	
==>node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2737	2860	
==>msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2737	2860	
==>msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5890	6024	
==>0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	866	996	
==>ined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3103	3212	
==>t, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3103	3212	
==>t, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $spa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	156	286	
==>ri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	156	286	
==>ri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	131	245	
==>.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </h <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	131	245	
==>.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </h <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4519	4658	
==>difier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4519	4658	
==>difier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13744	13874	
==>ge prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of avai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13744	13874	
==>ge prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of avai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20941	21034	
==>as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20941	21034	
==>as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Retur <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9853	9962	
==>ant.
  package Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my($min,$max)= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4952	5100	
==>atch (PCR "bug")
        }

        $ast->{pos} = $last - length( $match );
        my $t;
        if ( exists $ast->{stmt} ) {

            if ( $as <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9788	9912	
==>$channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9788	9912	
==>$channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15264	15416	
==>nation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15543	15695	
==>nation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17610	17711	
==>L.

=head2 How It Works

Modern programs or database systems often refer to an error condition by an
i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17610	17711	
==>L.

=head2 How It Works

Modern programs or database systems often refer to an error condition by an
i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1052	1159	
==>:False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1052	1159	
==>:False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6626	6735	
==>'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6626	6735	
==>'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  ' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21150	21246	
==>his means that people who install your
module distribtution do not need to have the compilers ins <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21150	21246	
==>his means that people who install your
module distribtution do not need to have the compilers ins <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13687	13789	
==>me() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13687	13789	
==>me() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9763	9949	
==>d);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method rev <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9763	9949	
==>d);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method rev <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11278	11428	
==>}
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11278	11428	
==>}
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1261	1367	
==>de = shift;

	if (exists $self->{seen}{$node}){
		if ($self->{current_node} eq $node) {
			$self->{current_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30094	30187	
==>e where C<$attrs> is either empty or equal to
the invocant Relation::Example's header, in whic <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2174	2269	
==>med C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

Wh <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2174	2269	
==>med C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too.

Wh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	287	435	
==>rs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@I <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	281	429	
==>rs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@I <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2240	2346	
==>n     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Seb <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2240	2346	
==>n     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Seb <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16198	16338	
==>z      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int $n, Code $corner) r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2581	2688	
==>right", "PGE::Exp::Alias");
    $optable->addToken("prefix::", "<infix:|", "nows", &parse_modifier);
    $op <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8121	8253	
==>new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       mar <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8121	8253	
==>new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       mar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6470	6561	
==>=head1 DESCRIPTION

This module parses regular expressions (regexes).  Its default "grammar" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	553	663	
==>export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$numbe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	611	721	
==>export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say "1..$numbe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13668	13771	
==>dition)... contains too many branches

=item RPe_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RP <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20447	20550	
==>fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left alone by
compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20447	20550	
==>fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left alone by
compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4979	5118	
==>YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4806	4941	
==>YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ], <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1098	1213	
==>tr $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is c <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1098	1213	
==>tr $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25779	25894	
==>ses ((opaque $self:)) returns list 
    ($self: get_attr (symbol new @:subclasses)))

=cut

$::Class->send('add_meth <==
2	/Users/nnunley/pugs/util/importgraph.pl	1784	1889	
==>ub setup_rank { setup_mod(3, @_) }

setup_cluster('Pugs.Rule', qr/^Pugs\.Rule\b/);
setup_cluster('Pugs.AST <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	505	609	
==>inOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role whi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	505	609	
==>inOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role whi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	475	595	
==>nguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type MatchTest ::= Item | Junction;

packag <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2897	2998	
==>ives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p6_alternatives(W, Z).

p6_conjunct(Z) --> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5946	6049	
==>the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5946	6049	
==>the early stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4806	5003	
==>ames],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4806	5003	
==>ames],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2033	2141	
==>ndard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >> <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2033	2141	
==>ndard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >> <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	679	809	
==>n OUT, "> $Config{output}" or
            die "open: $Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    binmode O <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	556	681	
==>my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# impl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	556	681	
==>my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# impl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10470	10572	
==>would like to force into being TODO tests
then you can pass them through this function. This is primari <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10528	10630	
==>would like to force into being TODO tests
then you can pass them through this function. This is primari <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7165	7303	
==>pad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10240	10355	
==>an1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10240	10355	
==>an1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2978	3086	
==>ilable or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigate the DAG.

=cut <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2978	3086	
==>ilable or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to navigate the DAG.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	550	661	
==>rs{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1] <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	550	661	
==>rs{'_content'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1] <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9184	9336	
==>te this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9184	9336	
==>te this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5827	5916	
==>n($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X::cap->[-2], <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4768	4867	
==>t.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The following ar <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4768	4867	
==>t.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The following ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2753	2877	
==>|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "Y <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2753	2877	
==>|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "Y <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	932	1046	
==>y},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{name <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	932	1046	
==>y},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18039	18222	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18318	18501	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5259	5411	
==>value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5481	5633	
==>value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HA <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14336	14441	
==>ould encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14336	14441	
==>ould encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entiti <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2409	2511	
==>urn $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.siz <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2409	2511	
==>urn $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.siz <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2	127	
==>ckage Pugs::Compiler::Regex;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2	127	
==>ckage Pugs::Compiler::Regex;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006;
use strict;
use warn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3987	4105	
==>r => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4171	4289	
==>r => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Mat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18871	18972	
==>at people who would be writing the text
would have to know how to edit Perl files, this shouldn't be a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18871	18972	
==>at people who would be writing the text
would have to know how to edit Perl files, this shouldn't be a <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4506	4644	
==>r (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4506	4644	
==>r (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18512	18642	
==>rom 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14933	15063	
==>rom 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1601	1701	
==>o_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1601	1701	
==>o_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17712	17811	
==>about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17712	17811	
==>about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5702	5817	
==>tval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5702	5817	
==>tval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	149	331	
==>ll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign( <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	214	377	
==>ll {
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2022	2160	
==>ge} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3395	3525	
==>ge} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9239	9331	
==>nts, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3064	3156	
==>nts, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10218	10323	
==>s in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10218	10323	
==>s in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, univer <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2458	2550	
==>ays appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2458	2550	
==>ays appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4451	4556	
==>&]> <ident> [ \( <argument_list> \) ]? \> }
rule symbolic_indirect_rule { \<(!?)\:\:\( <code> \)\> }

rule <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3082	3184	
==>=~ /(conv_\w+)\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my ($n, $c) = ($1, $2);
    $c =~ s/^\{[\s\n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	41	162	
==>ext;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	41	162	
==>ext;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19886	20018	
==>tot->{bonus};        

    if ($tot->{skipped}) {
        $bonusmsg .= ", $tot->{skipped} test"
                     . ($tot->{skippe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6904	7002	
==>hitespace> { \s+ }

rule identifier { \w+ }
token literal_int { \d+ }

rule simple_call { <identifi <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1393	1502	
==>ters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infin <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1393	1502	
==>ters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7544	7654	
==>h_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1369	1479	
==>h_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6612	6720	
==>lemental(matchref(I)) --> p5_matchref(I).
p5_elemental(ws(C))   --> [C], {isSpacePerl(C)}, !.
p5_elemental(ch <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1233	1334	
==>ouble with a full line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9148	9270	
==>> 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9148	9270	
==>> 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

me <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3247	3356	
==>:Caller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2891	3036	
==>);
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            & <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2891	3036	
==>);
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            & <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26660	26782	
==>Relation or the invocant Relation respectively.  This method will fail if
any members of C<$attrs> do not match attribute n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31212	31334	
==>Relation or the invocant Relation respectively.  This method will fail if
any members of C<$attrs> do not match attribute n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39449	39600	
==>attributes'))->values();                                 
            }
        )
    )
);

## --------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11672	11815	
==>s = pos
    $P0 = find_global "PGE::Rule", "p6rule"
    $P1 = $P0(mob)
    unless $P1 goto end
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5128	5277	
==>fs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5128	5277	
==>fs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2395	2542	
==>=> \$_[0],
                from  => \$_[3]{match}[0]->from,
                to    => \$_[3]{match}[1]->to,
                named => { %{$_[3]{mat <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3967	4069	
==>"[", $self->{how}, ($self->{neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1848	1952	
==>cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35710	35803	
==>nal operator that takes a single
Relation::Example in its C<$other> argument, where <$other> h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37742	37835	
==>nal operator that takes a single Relation::Example
in its C<$other> argument, where <$other> h <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1984	2084	
==>*=$/, @{$opts->{SETUP}});

    my $pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22824	22988	
==>@>> @>>>> @>>>> @>>> ^##.##%  "
              . "^" . "<" x ($list_len - 1) . "\n"
              . '{ $Curtest->{name}, $Curtest->{estat},'
              . '  $Curte <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18357	18486	
==>n};
    my $next = $self->{'next'};
    my $max  = $totals->{max};
    my $detail = $totals->{details}[-1];

    if( $detail->{ok} <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	125	268	
==>s.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%att <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	125	268	
==>s.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%att <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2232	2349	
==>nd the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2232	2349	
==>nd the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5326	5429	
==>turns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI obj <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5326	5429	
==>turns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a URI obj <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	18	113	
==>::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!su <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	18	113	
==>::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15889	15993	
==>nvite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $userna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15889	15993	
==>nvite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $userna <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	98	216	
==>rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	98	216	
==>rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	326	473	
==>\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; mayb <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1514	1626	
==>ethod invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1514	1626	
==>ethod invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26079	26179	
==>hine-readable short
string; the allowed variable names you can have depend on the Message Key
it is b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26079	26179	
==>hine-readable short
string; the allowed variable names you can have depend on the Message Key
it is b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1749	1877	
==>s or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucir <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1749	1877	
==>s or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1510	1627	
==>de $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1510	1627	
==>de $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1202	1301	
==>vel of arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1202	1301	
==>vel of arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> <==
2	/Users/nnunley/pugs/util/importgraph.pl	1045	1191	
==>import|module: $_";
    }
  }

  close $fh;

  unless (defined $module_name) {
    warn "couldn't find a module in $File::Find::name\n";
    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40225	40319	
==>110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40225	40319	
==>110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
pro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15698	15806	
==>_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Node's chil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15698	15806	
==>_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Node's chil <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9915	10017	
==>KeyExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriter <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1130	1230	
==>KeyExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriter <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2448	2578	
==>}

sub import {
    my $class = shift;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{fi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10408	10511	
==>6_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\\W", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	260	369	
==>param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	260	369	
==>param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4256	4369	
==>},        
    };
}

my $p3d = new Point3D(5, 6, 7);
is($p3d->class, \&Point3D, '... go the right class name for P <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	789	908	
==>tanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for additio <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	789	908	
==>tanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwid

= NAME

lib - A pragma for additio <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1636	1741	
==>Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILSt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1636	1741	
==>Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILSt <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49590	49730	
==>=> (
    # method label
        symbol->new('authority'),
    # method body
        method->new(
            $::ENV,
            method::sign <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28886	29115	
==>ew('@:MRO'),
                                $e->get('$self:')->send('_merge')
                            );                          
                      })
                  );
                return $e->get('$self:')->get_at <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2364	2453	
==>f.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2364	2453	
==>f.size < $other.size && $other.includes($self.members));
}
method superset($self: Set $oth <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3375	3503	
==>urn @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.it <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3375	3503	
==>urn @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.it <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6205	6336	
==>->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6717	6822	
==>lp   => "Compile Pugs if you haven't done so already (looked at $pugs).",
  ensure => sub { -r $pugs and - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17056	17152	
==>length

A decimal number indicating the size in bytes of the message content.

=item $h.content_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17056	17152	
==>length

A decimal number indicating the size in bytes of the message content.

=item $h.content_l <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2042	2196	
==>on {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} { <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2042	2196	
==>on {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7102	7233	
==>st        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even al <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	403	534	
==>st        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even al <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16881	16994	
==>first    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, but only affects the first character.


=item uc

 mu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9418	9529	
==>rs consist of attribute-value pairs also called fields, which
may be repeated, and which are printed in a partic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9418	9529	
==>rs consist of attribute-value pairs also called fields, which
may be repeated, and which are printed in a partic <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3521	3616	
==>difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.differe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3521	3616	
==>difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.differe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6117	6232	
==>rint postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6117	6232	
==>rint postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2023	2124	
==>eds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (bu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2023	2124	
==>eds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (bu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15926	16025	
==>a message that would be shown to a user, is in fact meant
to be interpreted by the machine itself an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15926	16025	
==>a message that would be shown to a user, is in fact meant
to be interpreted by the machine itself an <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31976	32090	
==>eck each
of the 3 Template module sets in turn, looking at just the set member for
each that corresponds to languag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31976	32090	
==>eck each
of the 3 Template module sets in turn, looking at just the set member for
each that corresponds to languag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4584	4696	
==>}

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For ea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4584	4696	
==>}

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For ea <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	529	647	
==>construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XM <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	529	647	
==>construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XM <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17491	17588	
==>t()`, and `reset()` methods.

If the span is "continuous", this method emits a warning and returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17491	17588	
==>t()`, and `reset()` methods.

If the span is "continuous", this method emits a warning and returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1215	1326	
==>my $perl5_tidy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl5_tidy );
        $perl5 = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	151	243	
==>UNIVERSAL::require;

sub compiler_class { __PACKAGE__ . "::Compiler" };

sub interpreter_clas <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8916	9027	
==>compp done.\n");
    return r;
  }
}

void regexp_hook_on() {
  if(previous_comp_hook != NULL) { croak("Cant ins <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5477	5584	
==>force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  });

  # nalnum (not a word character <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39714	39810	
==>ormation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39714	39810	
==>ormation.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6476	6597	
==>f you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method previous () { $arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6476	6597	
==>f you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# method previous () { $arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7370	7470	
==>$S->error(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char_c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5441	5593	
==>umper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5663	5815	
==>umper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2454	2575	
==>ge)" if $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2454	2575	
==>ge)" if $status_message ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	547	640	
==>ss->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	547	640	
==>ss->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2223	2329	
==>config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality fixed proper to <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	622	807	
==>d}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when r <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	622	807	
==>d}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15494	15601	
==>aren;     /* last paren matched */

Other things the world messes with:

  I32 refcnt;

What invariants?  Do <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2278	2374	
==>"${runtime_class}->run($prog->{name}) is non-fatal";

		cmp_deeply(
			$result,
			$prog->{result <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5033	5194	
==>',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4859	5014	
==>',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15141	15238	
==>$span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, crea <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15141	15238	
==>$span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, crea <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	585	690	
==>- test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(& <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	585	690	
==>- test with "density"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(& <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1438	1535	
==>st::Harness is the module that reads the
output from Test::Simple, Test::More and other modules ba <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3559	3668	
==>tr $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; requ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3617	3726	
==>tr $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; requ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1546	1648	
==>s) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1604	1706	
==>s) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1620	1723	
==>$open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1620	1723	
==>$open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.en <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4294	4388	
==>nt3D(5, 6, 7);
is($p3d->class, \&Point3D, '... go the right class name for Point3D');
is($p3d-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4155	4267	
==>_type;
    for(my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$ftype)=($pairs->[$i],$pairs->[$i+1]);
        p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	728	910	
==>_accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&infix:</>' => Thu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3151	3299	
==>%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3879	4001	
==>%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7442	7562	
==>= 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7454	7574	
==>= 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	286	455	
==>}
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	286	455	
==>}
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1785	1905	
==>icense_from($file);
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{'va <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12077	12197	
==>k) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      push @{$link_info->{$link <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	578	743	
==>") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	578	743	
==>") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4960	5067	
==>ethod _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4960	5067	
==>ethod _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5200	5326	
==>mplement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5200	5326	
==>mplement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.get_u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6106	6209	
==>nt $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6106	6209	
==>nt $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1154	1260	
==>a namespace of symbols and has

a main body closure. 



the Package part of the Module is simply a hash fr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1102	1205	
==>a namespace of symbols and has
a main body closure. 

the Package part of the Module is simply a hash fr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12363	12489	
==>$match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12642	12768	
==>$match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20873	20968	
==>ogram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20873	20968	
==>ogram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to b <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9318	9443	
==>n ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	714	837	
==>n ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12666	12776	
==>orce_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6141	6251	
==>orce_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11133	11297	
==>efined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11133	11297	
==>efined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4916	5083	
==>r
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4148	4295	
==>r
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1887	1990	
==>l parameters should be supplied by name.

Note that the above code is not robust.  (If you need a real i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13446	13544	
==>ression> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_re <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	569	702	
==>lech/stuff/pugs-smokes/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # Allow a new smoke all 30s
  BURST       => 5 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24958	25073	
==>>
}
rule Quantifier {  # see 15.10.1
      <QuantifierPrefix>
    | <QuantifierPrefix> <'?'>
}
rule QuantifierPrefix <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4848	4961	
==>l5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4848	4961	
==>l5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$c <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	452	594	
==>makemaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->ma <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	62	164	
==>re the result of all the listed cookbook files
# to some expected set of results
# later it can be modi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37398	37497	
==>if not.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl packag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37398	37497	
==>if not.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl packag <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8594	8693	
==>ck

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8594	8693	
==>ck

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifier is <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1959	2057	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2017	2115	
==>$expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $exp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5446	5686	
==>ethod" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7208	7448	
==>ethod" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9215	9315	
==>} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9215	9315	
==>} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entitie <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21823	21958	
==>e {
    my($n,$pkg)=@_;
    my $sigil = substr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1189	1315	
==>d excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1189	1315	
==>d excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	303	403	
==>'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=head1 ME <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19753	19850	
==>erl-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to hav <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19753	19850	
==>erl-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to hav <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23551	23645	
==>a::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23551	23645	
==>a::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with R <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5155	5258	
==>ishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5155	5258	
==>ishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3271	3404	
==>rt_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3271	3404	
==>rt_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1503	1602	
==>l 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1503	1602	
==>l 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9176	9299	
==>Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9176	9299	
==>Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39679	39773	
==>www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redis <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39679	39773	
==>www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33633	33731	
==>list one or more elements where each
element is a Template module Member Name and usually correspon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33633	33731	
==>list one or more elements where each
element is a Template module Member Name and usually correspon <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2886	2981	
==>tests fail, analyze the summary report:

  t/base..............ok
  t/nonumbers.........ok
  t/o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3928	4066	
==>$#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{asso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5152	5290	
==>$#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{asso <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14372	14508	
==>< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

This routine is exported by default.

=item en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14372	14508	
==>< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

This routine is exported by default.

=item en <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8669	8774	
==>s into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is cal <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8669	8774	
==>s into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method is cal <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	547	643	
==>lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	547	643	
==>lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3921	4037	
==>e.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $mo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3921	4037	
==>e.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `new( year => $year, month => $mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4800	4986	
==>!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4800	4986	
==>!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of St <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27434	27530	
==>ructed.  If you want to
conceptually change an existing Message object, you must create a new
obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27434	27530	
==>ructed.  If you want to
conceptually change an existing Message object, you must create a new
obj <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8863	8981	
==>s{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8863	8981	
==>s{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$ <==
2	/Users/nnunley/pugs/util/package-osx.pl	9392	9518	
==>r\n";
        }
    }
}

sub remove_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") { <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1214	1334	
==>ion == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Perl version '$ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10293	10405	
==>p://svn.openfoundry.org/pugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1711	1848	
==>ompilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1711	1848	
==>ompilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	391	495	
==>bBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3304	3413	
==>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username ho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3304	3413	
==>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username ho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	213	337	
==>(
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1741	1865	
==>(
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1215	1373	
==>rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1215	1373	
==>rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5582	5680	
==>k (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5640	5738	
==>k (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	610	727	
==>opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	67	151	
==>_perl/5.8.7/Module/Install/Makefile.pm"
package Module::Install::Makefile;
use Module <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	877	995	
==>reverse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6562	6692	
==>f->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{da <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	965	1079	
==>lsif ($chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print "\\textas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6629	6736	
==>Match) contain:



### Match actually contain getters for $() and such

### getters need to know what you wa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6407	6511	
==>Match) contain:

### Match actually contain getters for $() and such
### getters need to know what you wa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15149	15244	
==>nds (usually provided by third
parties) implement.  This interface is rigorously defined, such t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15149	15244	
==>nds (usually provided by third
parties) implement.  This interface is rigorously defined, such t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10733	10848	
==>");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connecte <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10733	10848	
==>");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connecte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7502	7636	
==>atched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7251	7378	
==>atched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $nod <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18236	18387	
==>r          , Int $limit = inf --> List )
 multi Str::split (      Str $input ; Rule $delimiter          , Int $limit = inf --> List )
 &split<> := &spli <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10037	10140	
==>e UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule Re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	62	161	
==>e;

package type::equivalence;

use strict;
use warnings;

use Scalar::Util 'blessed';
use Carp 'con <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1396	1622	
==>eturn FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'Y <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1396	1622	
==>eturn FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'Y <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3036	3161	
==>with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3036	3161	
==>with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7148	7259	
==>is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7148	7259	
==>is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2983	3083	
==>_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2983	3083	
==>_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16442	16563	
==>$cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16442	16563	
==>$cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15194	15310	
==>"NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15194	15310	
==>"NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.f <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18150	18273	
==>akes sure that ':t id(10)' is the same as ':t 10'
my $app_id = let(
	ide => "id",
	is => $id,
	in => comb(
		fun => ide("id" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6357	6469	
==>at};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOS <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	445	553	
==>difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	445	553	
==>difference($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6210	6311	
==>,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'V <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6210	6311	
==>,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'V <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10949	11079	
==>ode: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10949	11079	
==>ode: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_cha <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19149	19279	
==>i shift ($array) is builtin is primitive { die "Cannot 'shift' scalar"; };

multi pop (@array) is builtin is primitive { List::pop( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8605	8714	
==>$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    my $rhs = $pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE MkTParam ($tp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	184	283	
==>l 'looks_like_number', 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $value) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3325	3465	
==>turn;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = j <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3325	3465	
==>turn;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = j <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15612	15712	
==>a and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15612	15712	
==>a and database management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6335	6433	
==>node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6335	6433	
==>node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVo <==
2	/Users/nnunley/pugs/util/combine_tests.pl	919	1090	
==>files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $event->{num};
                push @{ $sum{$f <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2257	2383	
==>files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event->{num} <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1586	1693	
==>kip => 10,
  y_max_value  => (int(@commits / 500) + 1) * 500,
) or die $graph->error;

my @data = (
  [ 0..@ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2124	2263	
==>$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2124	2263	
==>$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2204	2383	
==>oted};
            
    return assoc_list( $n )
        if exists $n->{assoc}  && $n->{assoc}  eq 'list';
        
    if ( exists $n->{fixity} ) {
        return infix( $n ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	821	920	
==>.Pugs::Emitter::Rule::Perl5::emit_rule( $ast, '    ' )."}";
    s/\$_\[4\]/\$grammar/g;
    return $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	95	268	
==>r;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7758	7854	
==>$ghc_pkg = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /package-url/;
}

sub _norm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5495	5598	
==>( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Grammar: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	97	185	
==>adata.pm"
package Module::Install::Metadata;
use Module::Install::Base;
@ISA = qw(Module: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2153	2339	
==>after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2400	2586	
==>after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15612	15836	
==>ant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15891	16115	
==>ant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::captu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6151	6249	
==>ders are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6151	6249	
==>ders are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24339	24441	
==>ce of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from its member cla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24339	24441	
==>ce of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from its member cla <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3131	3333	
==>F.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6608	6810	
==>F.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8761	8871	
==>s
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will creat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8761	8871	
==>s
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that will creat <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8142	8255	
==>->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Running: ", $Strap->_command_lin <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6933	7042	
==>tweaked from PIL2JS Operators.pm r8593.
# Prim.hs says \\n   Scalar    left    .[]     safe   (Array, Int)\.
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	413	530	
==>:Num::hash,
        %Pugs::Grammar::Var::hash,
    );
    $class->SUPER::recompile;
}

BEGIN {
    __PACKAGE__->recomp <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18645	18737	
==>art  ; StrPos $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$repl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10755	10847	
==>t_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns Str> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10755	10847	
==>t_method returns Str>

=item B<content_type returns Str>

=item B<content_length returns Str> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1292	1398	
==>() returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1292	1398	
==>() returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38314	38408	
==>ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolatin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38314	38408	
==>ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolatin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2266	2388	
==>rnals::rand($x);
 }


 multi  Num::sign (  Num  $x             --> Int )
 {
     Math::Basic::sign($x);
 }
 multi Math::Bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	407	518	
==>eturn 0x0;
  });
  $self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : " <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1793	1902	
==>ALLER::<$_>, Num :$base --> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pugs::Internals::log <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1324	1467	
==>rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @_;

    $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1174	1275	
==>arp "Error in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25688	25798	
==>d
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25688	25798	
==>d
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  The Message Key c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5692	5809	
==>dir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5692	5809	
==>dir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1510	1622	
==>ti sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode opera <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1510	1622	
==>ti sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode opera <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	477	591	
==>1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	535	649	
==>1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1087	1184	
==>re a series of documents, written
in question/answer format, to explain the design and implementat <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1087	1184	
==>re a series of documents, written
in question/answer format, to explain the design and implementat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	329	432	
==>::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRang <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	329	432	
==>::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRang <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5110	5213	
==>[ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calli <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7778	7881	
==>[ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calli <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6562	6647	
==>oes Role

## ------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2700	2823	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2700	2823	
==>: argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18669	18767	
==>access the same external resources.>

Rosetta does not use any dialect of SQL in its native API (un <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18669	18767	
==>access the same external resources.>

Rosetta does not use any dialect of SQL in its native API (un <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1718	1812	
==>er;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQR <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1718	1812	
==>er;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQR <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	544	645	
==>:Validator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export sy <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	544	645	
==>:Validator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export sy <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	912	1018	
==>zy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	912	1018	
==>zy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3573	3694	
==>e if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3573	3694	
==>e if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6393	6507	
==>v) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6393	6507	
==>v) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2374	2516	
==>ls, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2374	2516	
==>ls, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	892	1003	
==>ol {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	892	1003	
==>ol {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1028	1167	
==>{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1028	1167	
==>{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { cl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2271	2365	
==>es($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2271	2365	
==>es($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($self. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8435	8539	
==>t with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then yo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8435	8539	
==>t with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then yo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27626	27729	
==>t) ((t) \
					? RX_MATCH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MATCH_COPIE <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1387	1477	
==>::TestPlan object and 
a subclass, TestBuilder::NullPlan. 

TestBuilder::NullPlan is roughl <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4157	4287	
==>t;

    method dispatch {
        dispatch($?SELF, $.subscription.subscriber);
    }
    
    method dispatch (Code & Class::Events <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	46	132	
==>uire Perl6::Run::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Pe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31816	31908	
==><union (Relation $other!) returns Relation>

This multi-method is a generic binary relational <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36366	36458	
==><union (Relation $other!) returns Relation>

This multi-method is a generic binary relational <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2625	2723	
==>$rv = $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2625	2723	
==>$rv = $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13823	13960	
==>= Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetim <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13823	13960	
==>= Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetim <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	166	272	
==>t be portable.
our $ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @tests = `ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15851	15964	
==>e "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15851	15964	
==>e "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" }, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33138	33231	
==>_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method is t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37688	37781	
==>_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-method is t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1568	1677	
==>le::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1568	1677	
==>le::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_b <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3248	3354	
==>r`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3248	3354	
==>r`

- `catpath (Str $volume, Str $directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3246	3364	
==><0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3430	3548	
==><0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12165	12259	
==>ot_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12165	12259	
==>ot_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2710	2807	
==>mple goes on step further and Curries approxfprime with the user supplied
f.  Such things are poss <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19200	19295	
==>e C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is onl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19200	19295	
==>e C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is onl <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27467	27564	
==>");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → list α", ":t listify(x <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	365	476	
==>ondie::Val/;
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce {
    my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1210	1318	
==>ate}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1210	1318	
==>ate}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	72	171	
==>Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Facto <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	72	171	
==>Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Facto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1369	1459	
==>ugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1369	1459	
==>ugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2175	2286	
==>f, $enum) = @_;
  return $self->{errnum} && $self->{errnum} == $enum;
}


sub errmsg {
  my ($self) = @_;
  retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3459	3565	
==>osure->isa('block')))
        || confess "argument to &each must be either a closure or a block";
    forea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3282	3401	
==>@_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1132	1251	
==>@_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5884	5988	
==>entifierStart>
    | <IdentifierName> <IdentifierPart>
}
rule IdentifierStart {  # see 7.6
      <Unicode <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5788	5898	
==>.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5788	5898	
==>.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4457	4583	
==>for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4457	4583	
==>for continuation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$fi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2502	2704	
==>= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2502	2704	
==>= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2490	2610	
==>t the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (! <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2490	2610	
==>t the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif (! <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10739	10836	
==>tions) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10739	10836	
==>tions) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub(Str $plaintext?) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45977	46146	
==>'?$name')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_at <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7102	7203	
==>ate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7160	7261	
==>ate) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	322	480	
==>$str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	322	480	
==>$str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8076	8178	
==>method should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, but l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8076	8178	
==>method should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, but l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9129	9273	
==>("$current")->send("get_method", $e->get("$label"))); 
                      })
                  ); 
                $e->set("$current", $e->get <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3450	3573	
==>tem *

Ensuring that there is no crap in the AST - no calls to stubs and no inexistant symbols

=back

The compiler inherits <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8913	9078	
==>TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8913	9078	
==>TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id) <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3426	3577	
==>>[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	729	833	
==>areword {
    my $class = shift;
    return $class->no_match unless $_[0];
    return Pugs::Runtime::Matc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	367	500	
==>ndex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub usage {
    return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23767	23879	
==>EWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22283	22395	
==>EWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tuples; a
picture of one <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2677	2789	
==>3]{match}[1]}->{capture},
                abort   => ${$_[3]{match}[1]}->{abort},
        }, 'Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1084	1190	
==>the runloop again.
    ./:step(); #/#--vim
  }
}

class POE::Session {
  method dispatch (Str $event, *@arg <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2205	2306	
==>he C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2205	2306	
==>he C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9247	9374	
==>');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9247	9374	
==>');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8596	8695	
==>ements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8596	8695	
==>ements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1341	1460	
==>lse {
	$out = $pass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5527	5633	
==>il/catalog_tmpl/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / 3)+1;
$template->param(directories => [ ma <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13331	13799	
==>,
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile, 
                                             percent => undef,
                                             estat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6170	6267	
==>e(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %modifi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	196	292	
==>se the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	196	292	
==>se the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve the p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1140	1235	
==>common comprehensive test suite to run against all Engines

=head1 VERSION

This document descri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1140	1235	
==>common comprehensive test suite to run against all Engines

=head1 VERSION

This document descri <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5637	5728	
==>on_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

= <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5637	5728	
==>on_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18106	18203	
==>e> you've
specified in the constructor. If the nickname is already used, this module
will try to u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18106	18203	
==>e> you've
specified in the constructor. If the nickname is already used, this module
will try to u <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2661	2772	
==>x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num::abs (Num <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3308	3426	
==>bj) = @_;
    $path = "$self->{base}/$path";

    unshift @INC, $self->{prefix}
        unless grep { $_ eq $self->{pre <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	544	651	
==>rds.db.p6") {
    system("pugs naive_bayesian.p6 add apples apples");
    system("pugs naive_bayesian.p6 add <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1501	1607	
==>od vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1501	1607	
==>od vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7416	7529	
==>cal $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7428	7541	
==>cal $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all node <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36385	36498	
==>ce the list of Template module
names that it will search.

=item C<translate_message( $message! )>

This method ta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36385	36498	
==>ce the list of Template module
names that it will search.

=item C<translate_message( $message! )>

This method ta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19279	19392	
==>ad["subpats"]
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    self[0] = exp0

    $I1 = pad["subpats"]
    p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1002	1101	
==>erations.)

Although it is secure when used properly, using it incorrectly can lead to 
serious inse <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1002	1101	
==>erations.)

Although it is secure when used properly, using it incorrectly can lead to 
serious inse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	196	314	
==>TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = shift;
    my ( $as <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5160	5262	
==>"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if $user_base;
    push @{ "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36402	36498	
==>s 'foo' somewhere init
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $parser->errm <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3606	3715	
==>-------------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5508	5617	
==>-------------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($co <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	503	619	
==>EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accen <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	503	619	
==>EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6702	6836	
==>grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what eve <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7166	7300	
==>grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4919	5027	
==>r eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4919	5027	
==>r eq '\\';
    return "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4835	4959	
==>ptimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4669	4788	
==>ptimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2325	2424	
==>x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all e <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2325	2424	
==>x) >>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all e <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	763	909	
==>y $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $d <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	763	909	
==>y $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $d <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7115	7216	
==>upports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 SEE A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7115	7216	
==>upports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 SEE A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5016	5126	
==>apture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5238	5348	
==>apture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22807	22903	
==>",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22807	22903	
==>",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8908	9009	
==>= abs2rel($input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21079	21198	
==>h @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17500	17619	
==>h @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-b <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1293	1387	
==>lgorithm is based on statistics. This was my main motivation to
implement it. Other rate limite <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1293	1387	
==>lgorithm is based on statistics. This was my main motivation to
implement it. Other rate limite <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4348	4455	
==>+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4348	4455	
==>+> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	254	361	
==>(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1782	1889	
==>(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	641	749	
==>"abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	843	942	
==>arp "Error in perl 6 parser: '$rule_source' at: '$self->{ast}{tail}'\n" 
        if $self->{ast}{ta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3154	3273	
==>rs+version';
        ($perl_version) = (`$cmd` =~ /version='(.*)'/);
    }
    
    return $perl_version if defined $per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2229	2332	
==>];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( '"' . $_[0], '"' );
    $extracte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9027	9131	
==>runperl - Runs a separate perl interpreter.
# Arguments :
#   switches => [ command-line switches ]
#   n <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	757	932	
==>ft err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skippe <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	757	932	
==>ft err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skippe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4024	4130	
==>ey (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4024	4130	
==>ey (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2269	2377	
==>\"\\$x\""} = "\\$x";
}
# A way to display scalars containing control characters and Unicode.
# Trying to avoi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14317	14417	
==>e_object(anyof_class => graph => $neg, \$how);
  });

  # lower POSIX class
  $self->add_handler('POS <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13246	13365	
==>0", $I0, 1
  addchar:
    inc pos
    if isrange goto addrange
    charlist .= $S0
    goto scan
  addrange:
    isrange <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9938	10053	
==>if $S->can($c);
    return $S->object(exact => $c);
  });

  $self->add_handler('*' => sub {
    my ($S) = @_;
    p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9451	9594	
==>per $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9439	9582	
==>per $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8205	8332	
==>sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::opti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7923	8043	
==>sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::opti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	906	996	
==>Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	906	996	
==>Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4875	4978	
==>diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4875	4978	
==>diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	513	608	
==>d the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_obj <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	513	608	
==>d the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_obj <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2501	2603	
==>will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2501	2603	
==>will be using stronger portions of the keystream.
(Just remember to do it at both ends!)

=item Encrypt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1443	1553	
==>evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAM <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1931	2078	
==>d to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1931	2078	
==>d to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2521	2645	
==>a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].en <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2521	2645	
==>a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19781	19875	
==>set an authorization header that use the
"Basic Authentication Scheme".  In array context it wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19781	19875	
==>set an authorization header that use the
"Basic Authentication Scheme".  In array context it wi <==
2	/Users/nnunley/pugs/util/combine_tests.pl	905	1046	
==>->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $e <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2243	2372	
==>->{meat}{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34047	34145	
==>anslating a message, a match in found in the most preferred language
is used.  Each Set Name can be <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34047	34145	
==>anslating a message, a match in found in the most preferred language
is used.  Each Set Name can be <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	760	858	
==>hat
# language.
Has($?CLASS, "code", "Str");

# corresponding reverse attributes
#has Meta::Assoc @ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4460	4585	
==>ue on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39707	39804	
==>ore
information.

Locale::KeyedText is free software; you can redistribute it and/or modify
it und <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39707	39804	
==>ore
information.

Locale::KeyedText is free software; you can redistribute it and/or modify
it und <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	413	509	
==>, to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	413	509	
==>, to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Started syncing with Pe <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	132	225	
==>xp matching and substitution are used, and
# this brute-force, simplistic, and extremely fooli <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	222	374	
==>,
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	112	357	
==>e::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	112	357	
==>e::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	668	780	
==>ently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   curre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	668	780	
==>ently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macros are
   curre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11082	11177	
==>- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11140	11235	
==>- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14971	15061	
==>encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14971	15061	
==>encode_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9735	9844	
==>ference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9735	9844	
==>ference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    my ($span <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2353	2466	
==>= $params->fetch(num->new($i));
        my $param_type = $param->type->to_native;
        my $arg        = $args-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8185	8279	
==>igits> <ExponentPart>?
    | <DecimalIntegerLiteral> <ExponentPart>?
}
rule DecimalIntegerLiter <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17559	17682	
==>e

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1310	1413	
==>lts and
Currying in a real context.

The newton function must receive at least:

    y - target value fo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19611	19716	
==>ver N dimensions rather than one.  The Relation operators are somewhat of
a superset of the Set operators. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24163	24268	
==>ver N dimensions rather than one.  The Relation operators are somewhat of
a superset of the Set operators. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24860	24960	
==>ermits fast rejection
 * of lines that cannot possibly match.  The regmust tests are costly enough
 * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	107	251	
==>sage;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	107	251	
==>sage;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	133	237	
==>mpile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	133	237	
==>mpile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	863	984	
==>f $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	876	992	
==>f $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	397	498	
==>}

sub can_reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($node <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1659	1759	
==>moke")) ||
    $CGI->param("smoke"));
}

sub require_compression_modules {
  no strict 'refs';
  eval <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3311	3455	
==>-> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3311	3455	
==>-> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1468	1607	
==>char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1408	1542	
==>char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8377	8475	
==>t_element ('line_interpolation')>

This event is begun when any block of characters is interpolated <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8377	8475	
==>t_element ('line_interpolation')>

This event is begun when any block of characters is interpolated <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2960	3093	
==>ke{timestamp}       = time;
  $smoke{id}              = $id;
  my $filename            = pack_smoke(%smoke);

  open my $fh, ">", $fil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5715	5838	
==>que->new(
        reference->new($opaque::NULL_OBJECT),
        hash->new(
            attribute->new('@:MRO')             = <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19519	19664	
==>top?
                # this is what you get at the moment
                push @bad_heading, "link in $source to $target does not have a heading\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10876	11001	
==>>nextchar;

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2727	2849	
==>t eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" )
  {
    $token{synca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	615	778	
==>*@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	615	778	
==>*@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        r <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	789	879	
==>----------------------------------------------
# Regexps
# -------------------------------- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	812	897	
==>-----------------------
# Regexps
# -------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2290	2411	
==>int    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2290	2411	
==>int    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	988	1095	
==>p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	988	1095	
==>p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3426	3622	
==>(<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3673	3869	
==>(<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2249	2374	
==>g) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_def <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2249	2374	
==>g) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15026	15220	
==>nt( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15305	15499	
==>nt( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5930	6052	
==>ass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolute
        $pass = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16445	16556	
==>space [ "PGE" ]

.sub "p6rule"
    .param string pattern
    .param string grammar      :optional
    .param int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3034	3148	
==>' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3022	3136	
==>' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18608	18737	
==>tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19966	20095	
==>tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ift <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4065	4153	
==>ibes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4065	4153	
==>ibes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::E <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2053	2160	
==>$content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $val <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2053	2160	
==>$content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $val <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2509	2636	
==>$self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2509	2636	
==>$self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1970	2103	
==>en Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    whe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1970	2103	
==>en Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    whe <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2079	2223	
==>ent as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$featu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3671	3811	
==>ent as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$featu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2901	3033	
==>g(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2901	3033	
==>g(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' = <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	844	986	
==>clude the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	844	986	
==>clude the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path
        # then we have failed already and so ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4367	4493	
==>+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4367	4493	
==>+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11221	11338	
==>e is unsafe is builtin {
        Pugs::Internals::hSeek(self, $position, $whence);
    }
}


class Pipe {
    # Easy t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2982	3122	
==>__->add_rule( 
        name => '&&',
        assoc => 'right',
        precedence => 'looser',
        other => 'eq',
    );
    
    __PACKA <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2895	2992	
==>w( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2895	2992	
==>w( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	374	470	
==>ding 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed similar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	374	470	
==>ding 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed similar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	561	668	
==>ries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
default <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	561	668	
==>ries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
default <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4693	4797	
==>s Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4693	4797	
==>s Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosett <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1951	2118	
==>rion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 mu <==
2	/Users/nnunley/pugs/util/package-osx.pl	6131	6228	
==>erl6::Overview::Object.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/loca <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5694	5800	
==>iv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->reduce($sub);
			}
		}
		$self->leave_sc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14990	15121	
==>}
    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1 <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	852	948	
==>push @developers, $time unless $devs_seen{$dev}++;
  $num_commits++;
}

# $commits[0] should be f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26986	27079	
==>tion has
the complement subset of the original's attributes to what C<project> would
return gi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31538	31631	
==>tion has
the complement subset of the original's attributes to what C<project> would
return gi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9843	9947	
==>ct.  You might pass some initial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9843	9947	
==>ct.  You might pass some initial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7514	7636	
==>1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7514	7636	
==>1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "The se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6094	6210	
==>sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return jo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6106	6222	
==>sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return jo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1275	1401	
==>lse
  {
    $self->position(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $self->position();
}

sub as_boo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3289	3406	
==>_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @caller.elems ?? Control::Call <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2829	2932	
==>t returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I< <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2829	2932	
==>t returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3328	3474	
==>lock-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pug <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7740	7857	
==>med'}=1 if s/\+//;
	    $h{'isInvocant'}=1 if s/\s*:\s*$//;
	    $h{'isLValue'}=1 if s/\s+is lvalue//;
	    $h{'isLazy <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21728	21835	
==>their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have z <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26280	26387	
==>their values; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have z <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20470	20567	
==>stead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20470	20567	
==>stead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2227	2387	
==>des;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2156	2309	
==>des;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	330	444	
==>s web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	330	444	
==>s web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3765	3863	
==>est::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3823	3921	
==>est::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1658	1786	
==>$year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1658	1786	
==>$year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14577	14700	
==>r();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(method CREATE ((op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	333	450	
==>:Grammar::Expression::ast( $src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	562	748	
==>name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	562	748	
==>name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1940	2082	
==>] };
            $state[1] = $nodes->[1]->( $_[0], $state[1], $_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16068	16202	
==>sults = runperl(%$runperl_args);
    my $status = $?;

    # Clean up the results into something a bit more predictable.
    $results = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13521	13621	
==>names for the fields present in the
header.  The field names have case as suggested by HTTP spec, and <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13521	13621	
==>names for the fields present in the
header.  The field names have case as suggested by HTTP spec, and <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10436	10550	
==>if $S0 != "}" goto err_closure
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["islazy"] = isl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1846	2032	
==>s = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1846	2032	
==>s = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	647	730	
==>erload '0+' => sub {Inline::Parrot::PMC::get_int($Inline::Parrot::PMC::interpreter,$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	759	920	
==>($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject(' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	759	920	
==>($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject(' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22803	22916	
==>ck> <Catch> <Finally>
}
rule Catch :words {  # see 12.14
      <'catch'> <'('> <Identifier> <')'> <Block>
}
rule F <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1729	1837	
==>self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1729	1837	
==>self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19682	19834	
==>, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16103	16255	
==>, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1607	1712	
==>er::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1607	1712	
==>er::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7002	7157	
==>h';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7002	7157	
==>h';
        return unless $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15266	15368	
==>peaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15266	15368	
==>peaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - T <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13248	13350	
==>d (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements that 
satis <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13248	13350	
==>d (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements that 
satis <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30355	30447	
==>RNESS_COMPILE_TEST currently assumes it's run from the Perl source
directory.

Please use the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2459	2551	
==>self;
}

## ----------------------------------------------------------------------------
## g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2459	2551	
==>self;
}

## ----------------------------------------------------------------------------
## g <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14135	14237	
==>gly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14135	14237	
==>gly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10941	11044	
==>ed.
If no such field exists C<undef> will be returned.

A multi-valued field will be returned as separat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10941	11044	
==>ed.
If no such field exists C<undef> will be returned.

A multi-valued field will be returned as separat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7058	7217	
==>rson_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7058	7217	
==>rson_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1189	1292	
==>ain body closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to ob <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1136	1236	
==>ain body closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to ob <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2953	3160	
==>'_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shift;
                my $size = $idx + 1;
                if ($self->array_fetchSize < $size){
                    $sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9447	9588	
==>_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n/g; s/\n*\z/\n/; }
    my $tof = sub { open(F,">$_[0]") or die; print F $_[1];close F;};
    $t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37268	37362	
==>positional parameter
$module_name (a string) and checks whether or not it has already been
load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37268	37362	
==>positional parameter
$module_name (a string) and checks whether or not it has already been
load <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5330	5440	
==>t_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6036	6145	
==>ass = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6036	6145	
==>ass = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $class.parse($conten <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2569	2675	
==>Cxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'Scope', 'SState';
nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	225	313	
==>:Compiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> < <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15353	15452	
==>call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML:: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15353	15452	
==>call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	358	475	
==>ew {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	358	475	
==>ew {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	967	1095	
==>y checker?
sub pretty_print {
    my $self    = shift;
    my $struct  = $self->struct;
    
    return $self->_pp_from_struct( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3219	3337	
==>!(exists $options{returns});
    bless { %options } => $class;
}

sub params  { (shift)->{params}  }
sub returns { (shi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1999	2094	
==>is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1999	2094	
==>is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5863	5961	
==>Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5863	5961	
==>Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5013	5130	
==>[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5013	5130	
==>[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1311	1495	
==>XX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4668	4855	
==>e policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR depende <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5132	5319	
==>e policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR depende <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	844	959	
==>e 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  i <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	844	959	
==>e 
# others to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  i <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	921	1021	
==>}

# $commits[0] should be first commit, not last
@commits    = reverse @commits;
@developers = rever <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27255	27371	
==>\&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27534	27650	
==>\&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1571	1677	
==>s",
  x_label_skip => 10,
  y_max_value  => (int(@commits / 500) + 1) * 500,
) or die $graph->error;

my @d <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	28	124	
==>t-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	28	124	
==>t-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	358	470	
==>'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_IN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	358	470	
==>'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_IN <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52786	52886	
==>odule) {
    $meta->add_attr(symbol->new('$:name'      => 'str'));
    $meta->add_attr(symbol->new('% <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1834	1940	
==>tributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1834	1940	
==>tributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28618	28714	
==>lass's ender is an C<anyof_close> node.

=item my $c = $obj->family()

The general family of this <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1244	1337	
==>if $Config{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s->ru <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6563	6689	
==>ee 7.6
      # any character in the Unicode categories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      < <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1460	1606	
==>script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last u <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1460	1606	
==>script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1255	1355	
==>g utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1255	1355	
==>g utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1749	1841	
==>ead1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1749	1841	
==>ead1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3272	3419	
==>} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3736	3883	
==>} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2401	2530	
==>',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute acce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2401	2530	
==>',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute acce <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	291	414	
==>ch anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	291	414	
==>ch anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8163	8306	
==>'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'sc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8163	8306	
==>'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'sc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3333	3432	
==>o we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3333	3432	
==>o we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17717	17859	
==>sult of 
                    each test looks like this:

    $results{details}[$test_num - 1] = 
            { ok        => is the test conside <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	986	1098	
==>n nil->new() unless defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (bless <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7706	7844	
==>( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7706	7844	
==>( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12481	12590	
==>bute starts out empty, but gains one element for each Node in the Node
hierarchies created from a defined @roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12481	12590	
==>bute starts out empty, but gains one element for each Node in the Node
hierarchies created from a defined @roo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10213	10306	
==>azy, $paramName, $paramContext, $paramDefault) {
    my $default; $default = DOWN($paramDefaul <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	241	362	
==>ulti sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    mul <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	241	362	
==>ulti sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    mul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8161	8285	
==>old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8161	8285	
==>old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Ite <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1526	1643	
==>ks to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1526	1643	
==>ks to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14529	14645	
==>tring, the result
will use case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14529	14645	
==>tring, the result
will use case as suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3276	3377	
==>tructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3276	3377	
==>tructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16118	16217	
==>tion, and one
application may handle it internally, while another one displays it to the
user instea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16118	16217	
==>tion, and one
application may handle it internally, while another one displays it to the
user instea <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2602	2708	
==>t contains at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> items (not
e <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2602	2708	
==>t contains at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> items (not
e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11529	11663	
==>urn "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11523	11657	
==>urn "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    di <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1829	1940	
==>e;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1829	1940	
==>e;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9194	9288	
==>nel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code $ca <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9194	9288	
==>nel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Code $ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24788	24900	
==>ions for easy access to the parser
object's most important attributes:

  # access to the regex
    # reference t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31059	31163	
==>)

This uninstalls the given handles.  You send the names (like '|' or
'atom').  Here is a very simple co <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3758	3851	
==>my $currentTermTable = $self->whitespaceTermTable();
  (substr $target, $position, $lastPositi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1764	1884	
==>Math::Basic::log ( Num $x = CALLER::<$_>, Num :$base --> Num )
 {
     fail "log of 0 is not defined" if $x == 0;
     Pu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13338	13432	
==>ar, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13338	13432	
==>ar, $allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1759	1915	
==>y $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1759	1915	
==>y $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.req <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32798	32894	
==>ion).

=item C<unwrap ( Set of Str $attrs! ) returns Relation::Example>

I<TODO.  This method has <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26993	27094	
==>example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26993	27094	
==>example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3646	3778	
==>t($block) . "    ;\n" .
        "    require Runtime::Perl5::RuleInit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8650	8785	
==>3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8650	8785	
==>3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7564	7668	
==>et, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7622	7726	
==>et, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9973	10121	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10252	10400	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19961	20132	
==>et('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40421	40592	
==>et('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22772	22870	
==>ten a template will
choose to show less than all of the available details depending on the
intended <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22772	22870	
==>ten a template will
choose to show less than all of the available details depending on the
intended <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13570	13679	
==>.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13570	13679	
==>.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6140	6246	
==>preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6198	6304	
==>preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1174	1284	
==>ults.  This makes
analysis of the test results difficult for anything but a human.  To
make it easier for progr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	148	273	
==>e Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span inst <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	148	273	
==>e Span::Int;
    use Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span inst <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1808	1935	
==>led to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1808	1935	
==>led to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4689	4786	
==>E__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4911	5008	
==>E__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5147	5319	
==>$n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5159	5331	
==>$n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3583	3694	
==>p_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3583	3694	
==>p_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $even <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6452	6573	
==>return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6452	6573	
==>return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24248	24349	
==>w($a, $a);

	is($type->stringify, "∀α. α → α", "pretty print a -> a");
}
{
	my $type = type::op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3392	3503	
==>is parsed)
  (will do)
  
  my $cat = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
  );
  $cat->add_op( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	717	834	
==>_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<V <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	717	834	
==>_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<V <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4986	5096	
==>urns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4986	5096	
==>urns Void {
    if ((.content_type // "") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_conte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9132	9249	
==>to work out a test case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9132	9249	
==>to work out a test case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	27	129	
==>M;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	27	129	
==>M;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1972	2134	
==>ingify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1972	2134	
==>ingify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1011	1162	
==>f {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1011	1162	
==>f {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1403	1688	
==>-> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1403	1688	
==>-> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10099	10222	
==>usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($arg <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7661	7760	
==>r ($pVarName) {
    return "is macrop5 $pVarName" if p6_macrop5($pVarName);
    p6_var_CODE($pVarNam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7518	7611	
==>use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7518	7611	
==>use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2862	2961	
==>ry_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostname of t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2862	2961	
==>ry_string>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostname of t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6134	6236	
==>def';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6134	6236	
==>def';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1973	2103	
==>/mge;
    $s;
}

1;
__END__

sub original_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line = prompt_string(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10454	10567	
==>s it will look
    }
  }

If passed any other argument, it will warn that it is ignoring it.

The iterator will re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15294	15390	
==>nvoke or implement it, and so an
application written to it should behave identically no matter wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15294	15390	
==>nvoke or implement it, and so an
application written to it should behave identically no matter wh <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7629	7739	
==>>visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29183	29281	
==>ing merged with the previous object in the tree.

=item my $m = $obj->merge()

Merges this node wit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	607	776	
==>';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20022	20127	
==>nd pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
distribution to a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20022	20127	
==>nd pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
distribution to a <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	866	980	
==>);
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2701	2806	
==>);
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30894	30992	
==>me set as the current one.  The
Member Name comes next and is what distinguishes each module from o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30894	30992	
==>me set as the current one.  The
Member Name comes next and is what distinguishes each module from o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1916	2040	
==>ess $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $ext <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1839	1960	
==>ess $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $ext <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6394	6499	
==>is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6394	6499	
==>is export {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3678	3768	
==>r>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, publi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3678	3768	
==>r>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, publi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5811	5927	
==>() {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5811	5927	
==>() {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8733	8834	
==>l6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2558	2659	
==>l6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20308	20403	
==>ead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20308	20403	
==>ead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally ca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1880	1998	
==>mpdir( CLEANUP => 1 );
#         my $dirname = basename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $tmp <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	164	260	
==>arserDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4331	4442	
==>onse
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4331	4442	
==>onse
  %handler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	109	239	
==>{
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $option <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	109	239	
==>{
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $code, Str $option <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2293	2510	
==>"=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2293	2510	
==>"=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30851	30989	
==>must be the same for every module in the same set as the current one.  The
Member Name comes next and is what distinguishes each module fro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30851	30989	
==>must be the same for every module in the same set as the current one.  The
Member Name comes next and is what distinguishes each module fro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14102	14201	
==>del::Node Class

A Node object is a simple container which stores data to be used or
displayed by yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14102	14201	
==>del::Node Class

A Node object is a simple container which stores data to be used or
displayed by yo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7249	7394	
==>().
sub skip {
    my $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13853	13962	
==>XX pipes sometimes double these
    return $result;
}

*run_perl = \&runperl; # Nice alias.

sub DIE {
    pri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2459	2591	
==>elds) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = commo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2459	2591	
==>elds) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = commo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44803	45045	
==>$e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17791	17911	
==>n_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7040	7167	
==>=>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::C <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7040	7167	
==>=>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::C <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2207	2322	
==>hich perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links reso <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2207	2322	
==>hich perl was invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links reso <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20280	20385	
==>name
    .local int cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27121	27213	
==>Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, usable gramma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1484	1603	
==>s
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

rege <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1484	1603	
==>s
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

rege <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9464	9605	
==>]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9452	9593	
==>]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4178	4329	
==>itory  => $self,
                ) or return;              

    File::Copy::copy( $pkg->file, $self->pool )     or error($!), return;
    $self->add_pa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8550	8657	
==>s fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

Th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8550	8657	
==>s fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

Th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5507	5613	
==>e($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<obj <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5507	5613	
==>e($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<obj <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4153	4261	
==>o, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4211	4319	
==>o, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends) <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	956	1058	
==>return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	956	1058	
==>return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18806	18902	
==>prepared to
support (such as modification of the compiled re op tree the native
compiler creates, <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3096	3192	
==>prepared to
support (such as modification of the compiled re op tree the native
compiler creates, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16554	16661	
==>nner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation::Example *@others) return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	966	1111	
==>>new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	966	1111	
==>>new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $gra <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1297	1415	
==>es to remove roadblocks if encountered.  The latter would of
# course not help people running existent versions of perl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9390	9537	
==>WS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9390	9537	
==>WS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22872	22968	
==>es to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22872	22968	
==>es to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11429	11527	
==>Returns only the elements in this recurrence that are also in the given recurrence.

- `difference( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11429	11527	
==>Returns only the elements in this recurrence that are also in the given recurrence.

- `difference( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2980	3087	
==>0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2980	3087	
==>0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3094	3214	
==>ser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

me <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3094	3214	
==>ser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2083	2262	
==>returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2083	2262	
==>returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7868	7971	
==>.

Cipher authors should assume that if this method is being called, the Secret 
Police are breaking dow <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7868	7971	
==>.

Cipher authors should assume that if this method is being called, the Secret 
Police are breaking dow <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16536	16631	
==>anguage, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16536	16631	
==>anguage, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1045	1149	
==>signdocs Do not generate html files for the perl6 design docs (faster)
    --output_dir    Output Directo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4579	4667	
==>me abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p6_new( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6990	7154	
==>fined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6990	7154	
==>fined $num {
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6659	6830	
==>g|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            ' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6716	6887	
==>g|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1339	1433	
==>nd-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1339	1433	
==>nd-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4237	4452	
==>s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4237	4452	
==>s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2546	2673	
==>[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13954	14082	
==>ies( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with their entity
representation. A second argu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13954	14082	
==>ies( $string, $unsafe_chars )

This routine replaces unsafe characters in $string with their entity
representation. A second argu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	997	1105	
==>~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        a <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	997	1105	
==>~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12386	12500	
==>essions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier>
    | <Literal>
    | <Array <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	14	123	
==>l

package Blondie::Reducer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use Scalar::Util ();

sub red <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	285	384	
==>tors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	285	384	
==>tors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2960	3087	
==>$self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        }
    },
);
# The 'Object' cla <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	204	334	
==>/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	204	334	
==>/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	793	889	
==>s Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	793	889	
==>s Bool {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16331	16429	
==>p->{max} >> , C<< $strap->{skip_all} >>,
etc. so it's ready to parse the next file.

=cut

sub _res <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3083	3205	
==>d
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname serverna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3083	3205	
==>d
    # ircname information.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname serverna <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1	129	
==>se v6;

module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'Fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1	129	
==>se v6;

module File::Spec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'Fil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36017	36242	
==>)
                  ->store(
                      $e->get('$label'), 
                      $e->get('$attribute')
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_metho <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	64	196	
==>cos atan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4033	4129	
==>et_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4033	4129	
==>et_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complem <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4575	4681	
==>sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module so <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4575	4681	
==>sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module so <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10285	10542	
==>ace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             --> Array )

 multi Array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	286	375	
==>::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use base 'Pugs::Gr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2340	2452	
==>mpare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2340	2452	
==>mpare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	278	381	
==>CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On the other hand, we <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12422	12546	
==>c mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local strin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1892	2011	
==>rgs) && $args->isa('list'))
        || confess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6426	6525	
==>s(R).
p5_elemental(R)         --> p5_simple_escape_sequence(R).
p5_elemental(negSet(X)) --> "[^", !, <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1273	1432	
==>mp_cc {
    my ($ccset) = @_;
    my $oldn = 0;
    #::YY(\%nodes);
    while ($oldn != keys %$ccset) {
        $oldn = keys %$ccset;
        for my $f (keys %$ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	648	743	
==>vailable on any type, boxed or unboxed.

These objects are what you get from C<::SomeClass> refe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	122	226	
==>t::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	122	226	
==>t::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20944	21041	
==>or or header() method, the same
field name should not occur multiple times.  The result of doing s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20944	21041	
==>or or header() method, the same
field name should not occur multiple times.  The result of doing s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4672	4810	
==>irection eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4660	4798	
==>irection eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$po <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while4.pl	4	108	
==>ile4.pl - while-Schleife in Perl 6
use v6;
my $i = 1;
loop { # dies ist eine echte Schleife, daher...
	sa <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	111	221	
==>Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	111	221	
==>Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29178	29302	
==>y!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Tem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29178	29302	
==>y!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Tem <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	217	323	
==>rint cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @outpu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	217	323	
==>rint cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @outpu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16017	16134	
==>ueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16017	16134	
==>ueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	774	885	
==>can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
co <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	774	885	
==>can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	443	585	
==>, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	443	585	
==>, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11154	11250	
==>ists as a container
in which Node objects live.  The Document class is pure and deterministic,
su <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11154	11250	
==>ists as a container
in which Node objects live.  The Document class is pure and deterministic,
su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1252	1377	
==>:Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1252	1377	
==>:Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2045	2162	
==>ler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in character class") if $cc;
    return $S->f <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8341	8457	
==>ually not an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8341	8457	
==>ually not an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4398	4554	
==>age => $package )

=cut

### XXX package name?
sub is_installed {
    my $self = shift;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2432	2532	
==>e, second level is an array ref of hash refs.
# FIXME: Document next level. ??
my $link_info;
my $tot <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37478	37580	
==>in()
operator, and the order of its arguments is not significant to the result;
the new Relation is the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42027	42129	
==>in()
operator, and the order of its arguments is not significant to the result;
the new Relation is the <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	683	789	
==>!= 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running tim <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	683	789	
==>!= 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running tim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	269	423	
==>e,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    ble <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	269	423	
==>e,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    ble <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	634	889	
==>.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	634	889	
==>.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Ros <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9076	9176	
==>ms"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $ke <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9076	9176	
==>ms"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $ke <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	999	1110	
==>->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_version = shift
      o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1435	1547	
==>uery_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1435	1547	
==>uery_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39033	39167	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39033	39167	
==>is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5445	5555	
==>$self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curren <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5445	5555	
==>$self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.curren <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40598	40696	
==>ranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

Whil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40598	40696	
==>ranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

Whil <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2428	2525	
==>f bytes and throwing the return value away.
Encryptions after this point will be using stronger po <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2428	2525	
==>f bytes and throwing the return value away.
Encryptions after this point will be using stronger po <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11582	11718	
==>.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An obj <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11582	11718	
==>.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An obj <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1075	1182	
==>a flexible way of imposing a rate limit
against a stream of items. It is also very easy to combine several
r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1075	1182	
==>a flexible way of imposing a rate limit
against a stream of items. It is also very easy to combine several
r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12686	12792	
==>unperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $runperl;
}

sub runper <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11396	11487	
==>mment_opt --> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6573	6725	
==>_call'}->() }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bareword> 
                { return $/{'Pugs::Gramma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14350	14460	
==>trs = hash();
    my &dispatcher = $class.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatcher);
    whil <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	1	99	
==>for notes
* synopsis
 BEGIN {require "Filtered-Comments.pm";import Filtered::Comments 'regex matchi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	736	833	
==>xt($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where onl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	736	833	
==>xt($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where onl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3515	3619	
==>t::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compiler::Rule->compiled(
sub {
    
}
});
*{'rule'} = su <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8019	8115	
==>files = (exists $index->{_files} ? sort @{$index->{_files}} : ());
    my $template = HTML::Templ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11633	11746	
==>lsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11633	11746	
==>lsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	726	827	
==>setta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	726	827	
==>setta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1769	1935	
==>h pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1757	1923	
==>h pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1008	1115	
==>rsal_set )`

Create a recurrence set with full bidirectional functionality.

The complementary functions are <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1008	1115	
==>rsal_set )`

Create a recurrence set with full bidirectional functionality.

The complementary functions are <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4382	4488	
==>);



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to impl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4231	4334	
==>);

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to impl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8648	8832	
==>ection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12125	12309	
==>ection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8132	8267	
==>last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f->($c) }LET;
        return $v if <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2590	2695	
==>functions.
our bool multi Num::is_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3810	3919	
==>ler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unles <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3810	3919	
==>ler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unles <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	134	236	
==>use warnings;

use Carp 'confess';
use Scalar::Util 'looks_like_number', 'blessed';

use base 'type::co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8234	8380	
==>', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8427	8573	
==>', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25859	25968	
==>s)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('subclasses'),
    # metho <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10844	10946	
==>r>
}
rule RegularExpressionFlags {  # see 7.8.5
      <null>
    | <RegularExpressionFlags> <Identifier <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32086	32184	
==>?:...)>).

=item omit

Whether this object is omitted from the actual tree (like a CLOSE).

=item o <==
2	/Users/nnunley/pugs/util/version_h.pl	94	185	
==>/src/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/ent <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22718	22845	
==>s, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22997	23124	
==>s, \&_simple_statement;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14282	14386	
==>_from_file($synhtml);

        # this makes it prettier
        $sobj->look_down(_tag=>"head")->push_cont <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12074	12172	
==>), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexidecimal_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6741	6849	
==>py once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {... <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6741	6849	
==>py once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {... <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4983	5123	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5176	5316	
==>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14120	14239	
==>,
  ensure => sub { -r "$cdroot/boot/grub/stage2_eltorito" },
  using  => sub { system "tar", "-xvjf", $grub_local, "-C" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	705	812	
==>t_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for sing <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	705	812	
==>t_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for sing <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	778	893	
==>=> 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	663	770	
==>=> 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	900	1005	
==>YNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	900	1005	
==>YNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Simple::Compile <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4901	5001	
==>ml");

# Reading and processing .t files
my $files = {}; # mapping from test-file-name to test-record <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16548	16658	
==>ubstr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=he <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16548	16658	
==>ubstr($str, 0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4351	4477	
==>],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4201	4323	
==>],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5370	5490	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5563	5683	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4667	4796	
==>e\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4679	4808	
==>e\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	455	568	
==>tch_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $m <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	455	568	
==>tch_in<elem> !! $match_in<block>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $m <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1013	1125	
==>with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1013	1125	
==>with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7524	7619	
==>ME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7524	7619	
==>ME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7464	7666	
==>\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8298	8500	
==>\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3007	3159	
==>ef eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3007	3159	
==>ef eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29329	29421	
==>ant Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapped i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33881	33973	
==>ant Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapped i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6386	6498	
==>, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6386	6498	
==>, $param ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	754	901	
==>scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => '
                <Pugs::Grammar::Var.ident>
                { retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39097	39190	
==>le.  This method
degenerates into an C<intersection> if the two source headings are
identical. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8045	8151	
==>c;
    return $S->object(exact_comp => "\0", "\\X[0]");
  }

  $self->add_handler('\0' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24271	24367	
==>r locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is en <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24271	24367	
==>r locales simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is en <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13657	13751	
==>atisfied within a 
reasonable range of values.

You should consider using a Set::Infinite objec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13657	13751	
==>atisfied within a 
reasonable range of values.

You should consider using a Set::Infinite objec <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1428	1581	
==>$filename: $!";
    { local $/; $stream = <$fh> }
    my $conf = $YAML->load($stream);
    
    if (-M $filename > -M $config_template) {
        print << <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	447	547	
==>ntiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Rang <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	447	547	
==>ntiguous( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Rang <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2235	2343	
==>:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v ! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2235	2343	
==>:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v ! <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6099	6217	
==>r code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @ar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6489	6607	
==>r code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @ar <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	863	978	
==>(@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # repla <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	863	978	
==>(@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # repla <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2475	2621	
==>, char* stringarg, char* strend,
                          char* strbeg, I32 minend, SV* screamer,
                          void* data, U32 flags) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14339	14443	
==>g (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored by the T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14397	14501	
==>g (Str $diag)`

This will print each string with a '#' character appended to it, this is
ignored by the T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20663	20756	
==>erprise-strength and Perl implemented
database server named L<Genezzo> (see also L<http://www. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20663	20756	
==>erprise-strength and Perl implemented
database server named L<Genezzo> (see also L<http://www. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14141	14287	
==>w(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14141	14287	
==>w(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11696	11855	
==>t of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminati <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11696	11855	
==>t of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	559	682	
==>turns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	559	682	
==>turns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	14	116	
==>le::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is tr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	14	116	
==>le::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is tr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3357	3450	
==>ession -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3357	3450	
==>ession -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2210	2325	
==>eSafe::Annotation->new(
				type => [$from => $to],
				struct_equiv => Blondie::Val->new(
					Blondie::TypeSafe::A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	529	637	
==>mentation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	529	637	
==>mentation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13638	13780	
==>$script );
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        syste <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1924	2014	
==>$event, *@args)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as argument <==
2	/Users/nnunley/pugs/util/package-osx.pl	168	273	
==>make install'ing pugs and parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2554	2698	
==>ut =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2554	2698	
==>ut =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2277	2396	
==>iles should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2194	2306	
==>iles should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Per <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4528	4629	
==>package_re

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogene <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1	116	
==>use v6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1	116	
==>use v6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6578	6688	
==>ntended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `start` value m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6578	6688	
==>ntended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The `start` value m <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	721	867	
==>mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1;
    }
} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1445	1543	
==>X1::Root";

=pod
https://svn.perl.org/perl6/doc/trunk/design/syn/S06.pod
    bit         single nat <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1135	1239	
==>url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1135	1239	
==>url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3293	3391	
==>value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Obj <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3293	3391	
==>value2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Obj <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	387	522	
==>rc );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1176	1311	
==>rc );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17842	17946	
==>d contains information about the software being
used by the originating server program handling the reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17842	17946	
==>d contains information about the software being
used by the originating server program handling the reque <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	238	362	
==>lan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton // <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	238	362	
==>lan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton // <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6104	6231	
==>' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18300	18484	
==>$r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation::Example $ot <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37758	37860	
==>ing), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl module b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37758	37860	
==>ing), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl module b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1578	1681	
==>_;
  $self->regex($rx) or return if defined $rx;
  croak "no regex defined" unless &RxLEN;
  1 while $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	18	118	
==>nOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	18	118	
==>nOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event< <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1471	1605	
==>ed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.ou <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1471	1605	
==>ed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2611	2714	
==>before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2795	2898	
==>before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20841	20939	
==>k-end which
I recommend above all others for production use.

Most of the other (near term) third p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20841	20939	
==>k-end which
I recommend above all others for production use.

Most of the other (near term) third p <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1295	1394	
==>for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1295	1394	
==>for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1536	1972	
==>infix:</>'),
                                App(
                                    Sym('&infix:<->'),
                                    Sym('$x'),
                                    Sym('$y'),
                                ),
                                Sym('$y'),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),

    '&repeatedly_apply_and <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15103	15208	
==>s of arbitrary depth and of
an arbitrary type. The function signatures will likely look something
like thi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15161	15266	
==>s of arbitrary depth and of
an arbitrary type. The function signatures will likely look something
like thi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8262	8372	
==>$Class: $plan?, $output? )
  {
      return $Class.new( testplan => $plan, output => $output );
  }
  
  submet <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20329	20483	
==>ubtest"
                     . ($tot->{sub_skipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11494	11597	
==>e environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11494	11597	
==>e environment at all.

A Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3535	3868	
==>> $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3535	3868	
==>> $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::Ke <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24027	24176	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24306	24455	
==>k->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1683	1784	
==>er::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1683	1784	
==>er::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . "\n" } ))-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2197	2291	
==>ERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20140	20291	
==>dy => fun(
				param => "r",
				body => cond(
					if => comb(
						fun => comb(
							fun => ide("=="),
							param => ide("x"),
						),
						par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	381	512	
==>Dumper::Indent = 1;

### only called from JIB::Package
sub new {
    my $self    = shift;
    my %hash    = @_;
    
    my $file; m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17784	17891	
==>r compilation, because C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17784	17891	
==>r compilation, because C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3529	3667	
==>{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3529	3667	
==>{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runti <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11607	11726	
==>in, $out, $err) =
            Pugs::Internals::runInteractiveCommand($command);
        close $err;
        close  ($r ? <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12047	12152	
==>These will be limited to
  strings, rather than Match objects.

  A set of hooks should be defined in CORE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1183	1306	
==>ine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1183	1306	
==>ine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12955	13061	
==>e recurrence is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12955	13061	
==>e recurrence is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	157	266	
==>m prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	157	266	
==>m prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2380	2493	
==>oesn't create it.
        mkpath(dirname($ppc_yml));
        
        run($^X, qw<util/gen_prelude.pl -v -i src/pe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25784	25879	
==>}
{
	my $type = type::operator::nary->new(list => type::variable::free->new);
	is($type->stringi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13691	13793	
==>at needs to
be sorted out before you can continue.

It is also possible to use the `force_todo()` funct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13749	13851	
==>at needs to
be sorted out before you can continue.

It is also possible to use the `force_todo()` funct <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8251	8390	
==>46),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8251	8390	
==>46),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5422	5561	
==>ss(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5940	6053	
==>ss( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4764	4885	
==>each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unles <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4764	4885	
==>each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unles <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	727	832	
==>}

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10360	10507	
==>) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10360	10507	
==>) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @clas <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	15	122	
==>mpiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	15	122	
==>mpiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5747	5844	
==>"Child Not Found : cannot find object ($child_to_remove) in self";
}

## ------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5747	5844	
==>"Child Not Found : cannot find object ($child_to_remove) in self";
}

## ------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10847	10987	
==>urircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10847	10987	
==>urircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18603	18862	
==>ub {
                        my $e = shift;
                        $e->get('$method')->is_not_nil;
                    })
                );
                return $nil::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11291	11412	
==>=~ /^"(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $output .= "$text <a href='$linkfile'>$whole</a>";
        $li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18022	18136	
==>and embedded
classes (such as C<[:cntrl:]> or C<\p{Print}>.

=item Character Class Rendering

The visual() method o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	508	667	
==>$path    =~ s/$Ext$//;

    ### check if it is already installed
    {   my @list = LoadFile( $Available );
        if ( grep { $_->{package} eq $path } @list ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	466	609	
==>" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\$(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	328	414	
==>min->auto_include(@_) };
sub auto_include_deps { +shift->admin->auto_include_deps(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6326	6405	
==>stmt_decl','\s*macro\s+statement_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	75	197	
==>ategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

# vim <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	75	197	
==>ategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

# vim <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33590	33695	
==>es>

Array of Str - This stores an ordered list one or more elements where each
element is a Template modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33590	33695	
==>es>

Array of Str - This stores an ordered list one or more elements where each
element is a Template modu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	852	1011	
==>t',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule(
        name => '--',
        assoc => 'left',
        prec <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7653	7754	
==>ues;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::map (@values ;  Code $e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1536	1628	
==>("Blondie::Node")){
			my $reduced = $self->SUPER::generic_reduce($node);
			return $self->co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5701	5806	
==>ave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5701	5806	
==>ave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filt <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2952	3057	
==>nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the other end alon <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2952	3057	
==>nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the other end alon <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3169	3276	
==>x = <package file line subname subtype params> Y 0 .. 5; # ugly.
    #Control::Caller.new( map { ; $_ => @ca <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5792	5901	
==>}
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5850	5959	
==>}
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	780	896	
==>e have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	739	850	
==>e have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9273	9400	
==>"$_[1] $sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Inden <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	595	708	
==>art_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	595	708	
==>art_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_sp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3649	3763	
==>all y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3649	3763	
==>all y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2437	2551	
==>alues');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2437	2551	
==>alues');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents t <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5403	5618	
==>.
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $tok <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5403	5618	
==>.
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $tok <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1759	1871	
==>eturns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns In <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1759	1871	
==>eturns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9594	9707	
==>text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_wit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9594	9707	
==>text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_wit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3966	4096	
==>' exp ')' 
        { $_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8653	8839	
==>n( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12130	12316	
==>n( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) return <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	187	288	
==>method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.fina <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	187	288	
==>method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.fina <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17639	17799	
==>char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17639	17799	
==>char_repertoire'  => 'UNICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attribu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6900	6997	
==>.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' d <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6900	6997	
==>.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n)' d <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	41	139	
==>vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	41	139	
==>vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9774	9891	
==>tart if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9774	9891	
==>tart if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4199	4313	
==>^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4199	4313	
==>^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'S <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2085	2263	
==>nature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )
{...}
# signa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3558	3666	
==>er::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.ar <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3558	3666	
==>er::PIL::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.ar <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3248	3402	
==>lem' => sub { # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self->get_value <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	509	619	
==>t {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.a <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	509	619	
==>t {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11247	11346	
==>:$depends) returns Bool is export`

These functions should work with most reg-exps, but given that t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11305	11404	
==>:$depends) returns Bool is export`

These functions should work with most reg-exps, but given that t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2999	3107	
==>});

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname informati <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2999	3107	
==>});

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname informati <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	218	335	
==>get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	218	335	
==>get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (I <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7551	7675	
==>ENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENG <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7551	7675	
==>ENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENG <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	376	470	
==>.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename") <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	376	470	
==>.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename") <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9542	9649	
==>t'};
	push(@args,"lvalue=>1") if $op{'isLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"name <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1145	1241	
==>_END__

=head1 NAME 

re::override - Override Perl regular expressions

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5828	5938	
==>ift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5828	5938	
==>ift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5823	5924	
==>end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5823	5924	
==>end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16340	16439	
==>elated to C<chop>, only removes trailing chars that match C</\n/>. In
either case, it returns the nu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1227	1320	
==>d

=head1 NAME

Blondie::Reducer::DynamicScoping - a base class (probably a role) for
implemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10672	10795	
==>}, [];
      @$tree = $self;
      $tree->[-1]{zerolen} = 1;
      for (@{ $tree->[-1]{data}[0] }) {
        last unless $tr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8788	8903	
==>c,$noop);
      };
    }
  }
}
{
  package Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1147	1287	
==>:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1101	1234	
==>:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { ' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11348	11455	
==>ey are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- ` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11406	11513	
==>ey are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38590	38690	
==>ace>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occura <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38590	38690	
==>ace>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occura <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	922	1044	
==>ig_default    = 'config.yml';
    my $config_template   = 'util/config-template.yml';
    $filename           ||= $ENV{PUGS <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6218	6313	
==>sh {
    hash(@array.pairs);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi me <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15224	15330	
==>art with identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18701	18807	
==>art with identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), bo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16032	16132	
==>any human user.  In some
situations, a shared program component may raise such a condition, and one
a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16032	16132	
==>any human user.  In some
situations, a shared program component may raise such a condition, and one
a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3765	3904	
==>antifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3753	3892	
==>antifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3974	4082	
==>vent::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appended to it, 
or you ca <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3974	4082	
==>vent::Parser>. 

You can either pass in a string C<$buffer> which will get the POD appended to it, 
or you ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14174	14282	
==>git => $neg, \$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $ne <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1573	1706	
==>th
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1573	1706	
==>th
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2243	2354	
==>ule_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2243	2354	
==>ule_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	233	402	
==>ethod parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	233	402	
==>ethod parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $reque <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11991	12108	
==>>force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4634	4751	
==>>force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1661	1755	
==>Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1661	1755	
==>Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
} <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10346	10444	
==>eates a recurrence set.

The complementary functions are emulated using iterations.

See also the s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10346	10444	
==>eates a recurrence set.

The complementary functions are emulated using iterations.

See also the s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3605	3710	
==>O

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Functions.

= AUTH <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3605	3710	
==>O

The Perl 5 version of File::Spec, although this version is more akin 
to File::Spec::Functions.

= AUTH <==
2	/Users/nnunley/pugs/t/packages/Test.pm	114	243	
==>arty island" }

sub get_our_pkg {
    Our::Package::pkg();
}

our package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10425	10532	
==>ject ], 
    '... $Bar class_precendence_list');
    
## does Bar get Object's singleton methods ..

is($Bar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17084	17203	
==>my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17084	17203	
==>my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	803	934	
==>nter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	803	934	
==>nter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $. <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2379	2508	
==>}
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type C <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	928	1066	
==>t

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suf <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	928	1066	
==>t

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suf <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12715	12826	
==>returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12773	12884	
==>returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11050	11160	
==>ptions, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11050	11160	
==>ptions, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16389	16484	
==>ent_type = 'text/html';

The value returned will be converted to lower case, and potential
param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16389	16484	
==>ent_type = 'text/html';

The value returned will be converted to lower case, and potential
param <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32554	32651	
==>attributes for configuration, its
main purpose is to convert Message objects on demand into user-r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32554	32651	
==>attributes for configuration, its
main purpose is to convert Message objects on demand into user-r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3159	3272	
==>) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3623	3736	
==>) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1261	1413	
==>eters
    return ''
        unless defined $n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
        
    return <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8439	8566	
==>Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	392	505	
==>r running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	450	563	
==>r running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1335	1437	
==>s Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1335	1437	
==>s Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1100	1197	
==>g a rate limit
against a stream of items. It is also very easy to combine several
rate-limiters in <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1100	1197	
==>g a rate limit
against a stream of items. It is also very easy to combine several
rate-limiters in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12976	13067	
==>on 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12976	13067	
==>on 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Messa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4967	5113	
==>lsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4967	5113	
==>lsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 section <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1021	1132	
==>ipt_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "opt <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1021	1132	
==>ipt_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "opt <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	31	129	
==>ivalence;

use Perl6::Core::Type;

package type::equivalence;

use strict;
use warnings;

use Scala <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19409	19494	
==>[]]],Cy), append(Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	759	882	
==>from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	759	882	
==>from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2193	2295	
==>onal interface

The Cipher API's functional interface is perhaps the easiest one that allows 
for conti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2193	2295	
==>onal interface

The Cipher API's functional interface is perhaps the easiest one that allows 
for conti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23352	23447	
==>Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial exter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23352	23447	
==>Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial exter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17792	17896	
==>thin the virtual machine, input data to it, and output data from it.

You can create more than one DBMS o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17792	17896	
==>thin the virtual machine, input data to it, and output data from it.

You can create more than one DBMS o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	161	256	
==>header remove_content_headers header_field_names scan
    date expires if_modified_since if_unmo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	161	256	
==>header remove_content_headers header_field_names scan
    date expires if_modified_since if_unmo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14588	14684	
==>and it will follow
recommended "Good Practice" of ordering the header fields.  Long header
values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14588	14684	
==>and it will follow
recommended "Good Practice" of ordering the header fields.  Long header
values <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3000	3114	
==>i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3000	3114	
==>i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.st <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28106	28208	
==>phic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_sym) } "all identifiers need to be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7210	7336	
==>efined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7210	7336	
==>efined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} ) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3552	3643	
==>)    --> p6_quantified(W), p6_concatenation_more(W, Z), !.
p6_concatenation_more(W, Z) --> p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6845	6931	
==>$x->isa("Blondie::TypeSafe::Type::Placeholder")) {
				return $self->types_eq($x->type, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	88	218	
==>late;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	88	218	
==>late;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	700	822	
==>.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	700	822	
==>.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2568	2704	
==><server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know ou <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2568	2704	
==><server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know ou <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11657	11754	
==>`

Returns true if this recurrence intersects (has any element in common) with the given recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11657	11754	
==>`

Returns true if this recurrence intersects (has any element in common) with the given recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8683	8873	
==>1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12160	12350	
==>1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	7	108	
==>.pl - Berechnung der Euler'schen Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	383	533	
==>ts:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	383	533	
==>ts:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39255	39345	
==>gine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39255	39345	
==>gine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10422	10524	
==>s rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.de <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10422	10524	
==>s rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.de <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7374	7483	
==>ed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7432	7541	
==>ed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1178	1272	
==>tained reference implementation of a Rosetta Engine

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1178	1272	
==>tained reference implementation of a Rosetta Engine

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1375	1475	
==>t $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1375	1475	
==>t $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6739	6837	
==>e. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6739	6837	
==>e. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	429	629	
==>ack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack underflow\n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14058	14150	
==>}
comb: generic_in($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + gener <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7037	7148	
==>guage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7037	7148	
==>guage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	609	712	
==>} @nodes };
	$self->{names} = { $program => '$main' };

	$self->make_name($_) for @nodes;

	my $out = jo <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1899	2066	
==>our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1899	2066	
==>our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	837	938	
==>dir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	837	938	
==>dir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7846	7942	
==>'s internal structures.

Cipher authors should assume that if this method is being called, the Se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7846	7942	
==>'s internal structures.

Cipher authors should assume that if this method is being called, the Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9637	9765	
==>d comments


  ### '$'

  $self->add_handler('$' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \$ }xgc) {
      my $n = '$$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	909	999	
==>thon.org/pipermail/python-list/2005-March/270531.html
# and converted to Ruby, ...
# and th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2268	2369	
==>one like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submeth <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2268	2369	
==>one like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submeth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11139	11235	
==>o, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11197	11293	
==>o, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool : <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	195	337	
==>s($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	195	337	
==>s($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26884	26977	
==>(t($fst), "int", ":t fst( pair(10)('foo') )");
is(t($snd), "str", ":t snd( pair(10)('foo') )") <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3867	3982	
==>=> 1 } @smokes;
  for(map { @$_ } values %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16800	16917	
==>w(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's B <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16800	16917	
==>w(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's B <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10562	10749	
==>mc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $cont <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10562	10749	
==>mc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4412	4532	
==>join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self-> <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16528	16644	
==>ne}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{l <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2798	2911	
==>mit the report to the public smokeserver:

        $^X $smoke_upload_script $html_location

    Or add
        smo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2155	2274	
==>invoked
    $Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolve <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2155	2274	
==>invoked
    $Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all links resolve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8192	8324	
==>ule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8385	8517	
==>ule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	940	1040	
==>token->match($str) for 1..40},
        P6_Regex_x1   => sub{ $match = $rpc_regex->match($str) for 1. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7069	7174	
==>it is used by 
a block cipher mode role to add some information to the output.

A default implementation o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7069	7174	
==>it is used by 
a block cipher mode role to add some information to the output.

A default implementation o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8335	8437	
==>e} eq $y->{name}
		or die "can't unify $x->{name} with $y->{name} in " . Dumper(@_);
};

# binary opera <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11143	11256	
==>take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11143	11256	
==>take
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12412	12531	
==>_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12412	12531	
==>_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38292	38387	
==>essage Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38292	38387	
==>essage Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text mod <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4116	4219	
==>d day default
to 1 if not given.

The value for day can also be the string "last", in which case the
obj <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4116	4219	
==>d day default
to 1 if not given.

The value for day can also be the string "last", in which case the
obj <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5222	5341	
==>instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its inter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5222	5341	
==>instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its inter <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9680	9856	
==>eld;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9680	9856	
==>eld;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8260	8367	
==>of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8318	8425	
==>of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18278	18373	
==>ify the address (URI) of the document from which the
requested resource address was obtained.

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18278	18373	
==>ify the address (URI) of the document from which the
requested resource address was obtained.

T <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4691	4819	
==>0] => $target)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_fil <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4479	4598	
==>items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4479	4598	
==>items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	140	250	
==>equire 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	346	456	
==>equire 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	299	404	
==>$value; # default to empty string
    bless \$value => $class;
}

# conversion to native value
sub to_nati <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1032	1130	
==>re::signature';

package method::params;

use strict;
use warnings;

use base 'closure::params';

1 <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12685	12809	
==>e zip function needs
to build tuples of the "across" values.  Also, it maybe probably be
in terms of longest non-infinite.  - <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1304	1405	
==>ink $fn or die "Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # pa <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7496	7593	
==>b6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
st <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10274	10383	
==>');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub->bind_params(@_); '
		  .$my_args.$cod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26808	26950	
==>tion;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27087	27229	
==>tion;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1087	1211	
==>he name
        # of one of this Relation's attributes and the value corresponding
        # to that is the value for that at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4565	4689	
==>he name
        # of one of this Relation's attributes and the value corresponding
        # to that is the value for that at <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18792	18932	
==>reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        print "Test output counter misma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7916	8119	
==>e} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delet <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1217	1420	
==>e} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delet <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14413	14519	
==>:

  $escaped = encode_entities($input, '<>&"');

This routine is exported by default.

=item encode_entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14413	14519	
==>:

  $escaped = encode_entities($input, '<>&"');

This routine is exported by default.

=item encode_entiti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11651	11764	
==>efined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11651	11764	
==>efined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27244	27363	
==>'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27523	27642	
==>'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1079	1213	
==>pp_from_struct( $struct );
}

sub _pp_from_struct {
    my $self    = shift;
    my $struct  = shift;
    my $str     = '';
    
    re <==
2	/Users/nnunley/pugs/util/package-osx.pl	5174	5273	
==>ible::S27.3pm
        /usr/local/man/man3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Perl6::B <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3273	3371	
==>sn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3273	3371	
==>sn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11863	12004	
==>nt
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11857	11998	
==>nt
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1099	1216	
==>it( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	21	120	
==>ent out things which end up defined in PILn
# (though one may wish to overwrite a limited piln versi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5829	6115	
==>&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7591	7877	
==>&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16487	16615	
==>);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12908	13036	
==>);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	933	1043	
==>IL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.for <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	933	1043	
==>IL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.for <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25111	25212	
==>* at the start of the r.e., which can involve a lot of backup).  Regmlen is
 * supplied because the te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16941	17096	
==>us\n";
    }

    # Use the first line of the program as a name if none was given
    unless( $name ) {
        ($first_line, $name) = $prog =~ /^((.{1,50}) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18013	18111	
==>,F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Lef <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18324	18422	
==>,F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  Lef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2456	2584	
==>OT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2374	2499	
==>OT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1380	1478	
==>cy {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($^O =~ /MSWin32|msys/) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9718	9813	
==>library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Construct <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9718	9813	
==>library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Construct <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3025	3123	
==>ss of the client, if available.

=back

In addition, the following request headers are set on the H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3025	3123	
==>ss of the client, if available.

=back

In addition, the following request headers are set on the H <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7132	7336	
==>s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, $pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3435	3547	
==>:Grammar::Category->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... }, <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1634	1756	
==>"Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] enc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1634	1756	
==>"Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] enc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5902	6002	
==>ne.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5902	6002	
==>ne.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in w <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	741	860	
==>lti ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identit <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	741	860	
==>lti ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7316	7443	
==>gth( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7316	7443	
==>gth( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6333	6495	
==>lf} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{param} );
            }
            return " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11550	11654	
==>eturns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. This will
eventual <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11608	11712	
==>eturns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. This will
eventual <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	601	749	
==>or(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    printf("[%s]", av[i]);
    printf("\n");
    return 0;
} <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	976	1127	
==>le {
        has $value;

        method ^string_to_arguments ( $string ) {
            return $?CLASS.new( $string );
        }
        
        method <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33126	33238	
==>dule Set Name.  When we have to translate a
message, the corresponding Template modules will be searched in the o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33126	33238	
==>dule Set Name.  When we have to translate a
message, the corresponding Template modules will be searched in the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40775	40873	
==>rn(RPe_ERRMSG, ARGS...)

Throws a warning I<only> during the first pass over the regex.

=item $par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14379	14477	
==>her = $class.dispatcher(:descendent);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) { <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13563	13673	
==>h for this
    # in the future the compiler might allow adding globals
    # right now this is a non issue sinc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3584	3678	
==>-----------------------------------------

# Utility to test that "No method found" error is ra <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5486	5580	
==>-----------------------------------------

# Utility to test that "No method found" error is ra <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	92	207	
==>ert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	92	207	
==>ert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

= <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6207	6352	
==>y[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $siz <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4709	4854	
==>y[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $siz <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5611	5714	
==>ce, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Althoug <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5611	5714	
==>ce, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the API

Althoug <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29034	29155	
==>t is, they have not matched something yet.
Handle names that I<do> have a "predecessor" (that is, a '&&' with a
'&') are p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3887	4000	
==>ig_func 'acosech';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12889	13024	
==>est   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12889	13024	
==>est   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	257	384	
==>$.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.templ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	257	384	
==>$.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.templ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15211	15330	
==>ments, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15490	15609	
==>ments, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1897	2020	
==>&Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

me <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1897	2020	
==>&Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	362	503	
==>le;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	362	503	
==>le;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	452	567	
==>') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	452	567	
==>') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1273	1372	
==>disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1273	1372	
==>disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15550	15670	
==>);

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($mi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10406	10526	
==>);

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($mi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33544	33642	
==>(C<.>), sany (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: alnum

Types: alnum (C<\w>), <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2499	2701	
==>r ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2499	2701	
==>r ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            fo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18086	18177	
==>,F0,Fx,B0,Bx,E0,Ex),
  Left is Max - Min,
  rm_repeat_max(Re,Left,Fx,F1,Bx,B1,Ex,E1).

rm(re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9585	9683	
==>ese methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9585	9683	
==>ese methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1267	1361	
==>> does the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1267	1361	
==>> does the same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14156	14256	
==>hich to escape). The default set
of characters to encode are control chars, high-bit chars, and the
C <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14156	14256	
==>hich to escape). The default set
of characters to encode are control chars, high-bit chars, and the
C <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2314	2428	
==>= $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2314	2428	
==>= $size;
#   }

# Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	388	508	
==>s     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used to <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	388	508	
==>s     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used to <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14738	14838	
==>ts>
property instead.

=back


=head2 Str

General notes about strings:

A Str can exist at several U <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15665	15774	
==>ain (pending, Jeff Pinyan)

Produces a human-readable explanation of the execution of a regex.  Will
be able t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4591	4696	
==>')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => [ $::Object ],
    does => [ $::Tes <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11923	12021	
==>operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11923	12021	
==>operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1564	1697	
==>d_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1500	1629	
==>d_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10977	11095	
==>the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # H <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10977	11095	
==>the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # H <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3793	3923	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3986	4116	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2215	2317	
==>if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2215	2317	
==>if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @va <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5609	5776	
==>ch will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6073	6240	
==>ch will
                    ### then not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _p <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4329	4467	
==>sult{number}};

        if( $result{type} eq 'todo' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}+ <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1643	1753	
==>!= \@values
    return \@values, $input;
  };
}

## Chapter 8 section 3.2

sub alternate(Array *@p) is exported <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1652	1912	
==>IN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24703	24806	
==>g () returns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of M <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29255	29358	
==>g () returns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of M <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4620	4825	
==>thod from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $siz <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4620	4825	
==>thod from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $siz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10499	10611	
==>"var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10657	10769	
==>"var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13423	13538	
==>ode; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13423	13538	
==>ode; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    ma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24229	24330	
==>as zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28781	28882	
==>as zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single member t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20478	20579	
==>ationale of this is that randoms strings are usally left alone by
compilers. After all the compilers h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20478	20579	
==>ationale of this is that randoms strings are usally left alone by
compilers. After all the compilers h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21770	21874	
==>any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26322	26426	
==>any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Rel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7459	7572	
==>:density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7459	7572	
==>:density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32951	33046	
==>amily" represents the general category into which that object falls.

This is very sparse.  Futu <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1665	1762	
==>at directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by th <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1505	1602	
==>at directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19051	19158	
==>hy ("a predicate ranging
over more than one argument"), which is also the basis of the relational
data model <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22701	22808	
==>hy ("a predicate ranging over more than one
argument"), which is also the basis of the relational data model <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14927	15053	
==>_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, \$how);
  });

  # upp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9127	9230	
==>_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1553	1670	
==>cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1553	1670	
==>cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18750	18874	
==>0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20108	20232	
==>0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{dat <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13230	13328	
==>l the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13230	13328	
==>l the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9633	9755	
==>e subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9633	9755	
==>e subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4424	4551	
==>},
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4424	4551	
==>},
        complement_previous => &{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3961	4058	
==>us database portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3961	4058	
==>us database portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6479	6575	
==>ve \"$kernel_local\" if you want mklivecd.pl to refetch the kernel.",
  ensure => sub { -r $kerne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13281	13437	
==>ys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13281	13437	
==>ys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21388	21487	
==>very Relation attribute has a name that is distinct from the other
attributes, though several attrib <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25940	26039	
==>very Relation attribute has a name that is distinct from the other
attributes, though several attrib <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2827	2956	
==>sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3032	3161	
==>sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5276	5472	
==>get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7038	7234	
==>get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1025	1125	
==>se IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2880	2980	
==>se IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source = slurp($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4263	4438	
==>matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4263	4438	
==>matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{sta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12395	12497	
==>a digest of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12395	12497	
==>a digest of the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pm <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5990	6102	
==>his_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$all_tests, 0, $this_size;
        defin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19596	19699	
==>ent>
    | <IterationStatement>
    | <ContinueStatement>
    | <BreakStatement>
    | <ReturnStatement> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19581	19676	
==>em $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19581	19676	
==>em $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
pr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	941	1030	
==>c::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Parser <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	941	1030	
==>c::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Parser <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1975	2107	
==>ol { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when Li <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1975	2107	
==>ol { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when Li <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8518	8626	
==>cts ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8518	8626	
==>cts ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $sp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13993	14093	
==>tine replaces unsafe characters in $string with their entity
representation. A second argument can be <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13993	14093	
==>tine replaces unsafe characters in $string with their entity
representation. A second argument can be <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9849	9963	
==>>_filtered_INC;
        push @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26717	26811	
==>do{open F,">deleteme_pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use Language <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	7	108	
==>Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorith <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	7	108	
==>Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorith <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1883	1987	
==>ss: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1883	1987	
==>ss: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8677	8783	
==>s {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various co <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8677	8783	
==>s {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various co <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9153	9256	
==>entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delet <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9153	9256	
==>entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delet <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1051	1150	
==>oesn't work so good on 5.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23416	23538	
==>eturn $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19837	19959	
==>eturn $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9218	9361	
==>bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9206	9349	
==>bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_mat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6553	6647	
==>::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6553	6647	
==>::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2836	2956	
==>: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index < <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2836	2956	
==>: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index < <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4246	4356	
==>losure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4246	4356	
==>losure_next =>        &{ $self._get_complement_next }, 
        closure_previous =>    &{ $self._get_complement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2936	3089	
==>ompiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3153	3306	
==>ompiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $file <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9847	9950	
==>ugs.

It provides a simple set of common test utility functions, and is
an implementation of the TAP pro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9905	10008	
==>ugs.

It provides a simple set of common test utility functions, and is
an implementation of the TAP pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2199	2308	
==>ace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2210	2319	
==>ace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1008	1108	
==>ule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1008	1108	
==>ule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_name, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1363	1473	
==>::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eva <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1363	1473	
==>::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eva <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7015	7117	
==>t inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7015	7117	
==>t inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3547	3677	
==>Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3547	3677	
==>Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17163	17307	
==>',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17163	17307	
==>',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        = <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	738	840	
==>=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/p <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	738	840	
==>=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1555	1703	
==>";
}
sub node::meth_call_term {
    my $ident = get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_da <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3968	4103	
==>mental(W), p6_quantified_op(W, Z).
p6_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1435	1540	
==>t => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The follo <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1435	1540	
==>t => $dstart )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The follo <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1258	1485	
==>$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.clos <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1258	1485	
==>$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.clos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1859	1956	
==>intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1787	1882	
==>intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10599	10715	
==>elf: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10599	10715	
==>elf: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4549	4661	
==>{

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4549	4661	
==>{

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF! <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47808	48076	
==>), 
                              symbol->new('$value' => 'type'),                               
                          ),
                returns => 'nil'
            ),            
            sub {
                my $e = shift;
                $e->get('$self:') <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	288	401	
==>to (however, this is a trend and not a rule).

=item *

A method is bound to a compiled class (a L<Type>), which i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8394	8493	
==>the Tree

If you don't care to intercept the building of the tree, you can use the
parse() method to <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1548	1792	
==>caping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $esc <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1548	1792	
==>caping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $esc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	303	415	
==>{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexsc <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	303	415	
==>{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexsc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8130	8264	
==>hr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8130	8264	
==>hr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int" <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4161	4279	
==>d<"tpParam"> ), traverse_ast( %pad<"tpDefault"> ) 
        );
    }
    elsif $tree[0] eq '"MkParam"' {
        my %pad <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8917	9020	
==>($input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14321	14528	
==>t;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$prefa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14321	14528	
==>t;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$result$prefa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2194	2298	
==>qual', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', ass <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2194	2298	
==>qual', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', ass <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	341	482	
==>{}


class Array is List does rArray;

# signature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      p <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10241	10380	
==>"$test{ml}ok\n        ".join(', ', @msg)."\n";
            } elsif ($test{max}) {
                print "$test{ml}ok\n";
            } elsif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11729	11862	
==>$self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11729	11862	
==>$self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = r <==
2	/Users/nnunley/pugs/misc/pX/Aside/trait_returns.pm	5	100	
==>batim from S12
role returns {
  has ReturnType $.returns;
  multi sub trait_verb:<returns>($cont <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40998	41092	
==>DGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40998	41092	
==>DGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28809	28901	
==>ion, branch, close,
clump, digit, exact, flags, group, groupp, minmod, prop, open, quant, ref <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1440	1530	
==>_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_symbol}\s*,\s*)*\@${r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	766	883	
==>new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	766	883	
==>new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!cont <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1456	1676	
==>./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $val <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1456	1676	
==>./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21177	21291	
==>f C<undef> to header() or any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21177	21291	
==>f C<undef> to header() or any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	196	287	
==>:Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	196	287	
==>:Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
u <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7486	7585	
==>e) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reac <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7486	7585	
==>e) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19408	19507	
==>hat text the user
sees, you only have to update said separate resource files, and not change
your ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19408	19507	
==>hat text the user
sees, you only have to update said separate resource files, and not change
your ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3336	3536	
==>gs->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'und <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3476	3676	
==>gs->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'und <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12899	13038	
==>{
      $X::pos = $i;
      my $v = $f->($at_pos);
      return 1 if not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  package Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	987	1105	
==>0},
        P6_Token   => sub{ $match = $rpc_token->match($str)   for 1..40},
        P6_Regex   => sub{ $match = $rp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6932	7041	
==>,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6932	7041	
==>,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8715	8821	
==>d fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is added to <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8715	8821	
==>d fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree is added to <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	667	775	
==>tiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error me <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	667	775	
==>tiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7193	7310	
==>::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7205	7322	
==>::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    re <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1958	2189	
==>ee);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1958	2189	
==>ee);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, th <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1661	1782	
==>ion
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub Array::reduce (@values ; Code *&expres <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5357	5460	
==>ble::free;
use base qw/type::variable/;

# a free variable is a placeholder
# when going into an AST the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3843	3970	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4036	4163	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	199	306	
==>5 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	199	306	
==>5 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5985	6088	
==>be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be n <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5985	6088	
==>be careful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6754	6862	
==>:Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $du <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2066	2229	
==>val' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2066	2229	
==>val' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19712	19918	
==>eop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19991	20197	
==>eop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1009	1141	
==>9 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1009	1141	
==>9 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Reque <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	857	958	
==>eturn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	857	958	
==>eturn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9699	9806	
==>s, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9699	9806	
==>s, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21957	22074	
==>=> comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("head"),
				param => ide("xs"),
			),
		),
		param = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6052	6149	
==>s implemented. Currently, the headers
are returned as one long string.

=item List Context

All he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6052	6149	
==>s implemented. Currently, the headers
are returned as one long string.

=item List Context

All he <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	361	480	
==>="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	361	480	
==>="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $st <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	225	313	
==>f (Scalar::Util::blessed($node) && (my $meth = $self->can("reduce_" . $node->moniker))) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1408	1539	
==>case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1408	1539	
==>case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %heade <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1885	1996	
==>argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1885	1996	
==>argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22787	22905	
==>} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19208	19326	
==>} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3670	3782	
==>handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NA <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3670	3782	
==>handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	678	807	
==>ll_constant {
    my $const = $_[0];
    my $len = length( $const );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - general <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	379	489	
==>depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1277	1442	
==>pect ) {
            $m = Pugs::Grammar::StatementControl->parse( $match, { p => 1 } );
            last if ( $m );
            #}
            
            # XXX temp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2040	2197	
==>create an object::accessor object, blessed in the right class
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Packa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	228	362	
==>sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $value; # default to empty string
    bless \$value => $class;
} <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	180	297	
==>ar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IHash' => {};

class 'PIL::Run::Conta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15060	15155	
==>rface (RNI), which applications invoke and which
multiple interchangeable "Engine" back-ends (us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15060	15155	
==>rface (RNI), which applications invoke and which
multiple interchangeable "Engine" back-ends (us <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3419	3529	
==>core>),
      $_[0]->{pugs_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_sm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14134	14264	
==>sage.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14134	14264	
==>sage.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1623	1755	
==>inktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linkt <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1623	1755	
==>inktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linkt <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3212	3326	
==>se) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radians / (2*pi) * 360 }
	/:i ^g/ { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3207	3318	
==>, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall there are no free vars inside <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	285	440	
==>$RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Inse <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	285	440	
==>$RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Inse <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28840	28945	
==>t first install a handler for
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle n <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1615	1710	
==>ng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, In <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1615	1710	
==>ng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2326	2473	
==>NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HO <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2326	2473	
==>NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HO <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33129	33218	
==>symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This mult <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37679	37768	
==>symmetric_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This mult <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7436	7755	
==>,
                                    Val->new(2),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    '&postfix:<!>' => Thunk->new(
        Seq->new(
            Param->new('$n'),
            App->ne <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	635	756	
==>ded);
    for(@variables) {
        push(@coded,$_ ~ "=" ~ url_encode(%Session{$_}));
    }
    return @coded.join('&');
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7408	7495	
==>::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1233	1320	
==>::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_stateme <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17704	17797	
==>type::operator::nullary->new("str")),
);

# the polymorphic snd function takes any pair and re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1636	1750	
==>=~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11923	12027	
==>-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@root_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11923	12027	
==>-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@root_node <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	477	921	
==>22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	477	921	
==>22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11044	11156	
==>line $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11044	11156	
==>line $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4857	4953	
==>__PACKAGE__,'emit');
}
use strict;
use Perl6::Run::OnPerl5::X1::Api;

sub emit {
    my($pil_tree <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	798	904	
==>~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESCRIPTION

This module provid <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	441	606	
==>.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	441	606	
==>.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => su <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4597	4699	
==>or the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4597	4699	
==>or the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year( <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3813	3945	
==>0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2515	2641	
==>] = @_[$j, $i];
    }
}

# concurrency temp-file. FIXME: use a real temp file?
sub emit_chunk {
    my($self) = @_;
    DumpFil <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	669	772	
==>ecause I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	669	772	
==>ecause I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20142	20241	
==>it isn't what's important;
the interface/behaviour is), this Relation data type is proposed to be
ge <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24694	24793	
==>it isn't what's important;
the interface/behaviour is), this Relation data type is proposed to be
ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	591	691	
==>return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	591	691	
==>return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5109	5300	
==>n $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5121	5312	
==>n $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        f <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	663	805	
==>n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	663	805	
==>n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18592	18704	
==>erer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the current
     pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18592	18704	
==>erer (sic) is the {URL} of whatever web page
     contains the link that the user followed to the current
     pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	884	992	
==>le ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	884	992	
==>le ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$self->rules->{$rule_name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1918	2014	
==>d push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method ini <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1918	2014	
==>d push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method ini <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17526	17619	
==>e balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a sin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17526	17619	
==>e balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represents a sin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	214	327	
==>{
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	214	327	
==>{
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3404	3502	
==>HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3404	3502	
==>HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15759	15854	
==>and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15759	15854	
==>and the language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4439	4556	
==>_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4439	4556	
==>_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8645	8757	
==>modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8645	8757	
==>modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This event closes a modifi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10783	10877	
==>rarily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be ext <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10783	10877	
==>rarily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be ext <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14348	14445	
==>s{}

=item RPe_BGROUP (-21)

Reference to nonexistent group

=item RPe_ESLASH (-22)

Trailing \

= <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	134	237	
==>,
	Drink => "Martini"
);

say "$wer hat einen $haustier";
say "$wer mag @obst[0] und @obst[1]";
say "{$w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3199	3298	
==>ould strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You should <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3199	3298	
==>ould strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You should <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6603	6719	
==>(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6603	6719	
==>(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25793	25891	
==>setta that you modify and distribute must carry prominent
notices stating that you changed the file <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25793	25891	
==>setta that you modify and distribute must carry prominent
notices stating that you changed the file <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	265	376	
==>%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	265	376	
==>%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6589	6842	
==>y:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6589	6842	
==>y:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($d <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4800	4936	
==>(($?&255)?"killed by signal $?"
         :"exited with error code ".($?>>8)) if $?;
    print STDERR "done.\n" if $Config{verbose};
}

su <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	201	333	
==>raph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "}\n";
    return $output;
}

my %SEEN;

sub _draw_role_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6688	6810	
==>$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6688	6810	
==>$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5046	5179	
==>)
        { return { empty_list => $() } }
RULE
*{'_open'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op> := (open) <p6ws> <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9336	9445	
==>l *TEST;
    open(TEST, $file) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8108	8216	
==>provides an implementation for Perl 6 operator precedence.  

=head1 METHODS

=head2 new ()

Class meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23754	23885	
==>$match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24033	24164	
==>$match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	988	1120	
==>nfig-template.yml';
    $filename           ||= $ENV{PUGS_BUILD_CONFIG} || $config_default;
    my $stream;
    
    if (!-e $filenam <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	253	360	
==>TER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub un <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	253	360	
==>TER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1206	1324	
==>ay of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1206	1324	
==>ay of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust th <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	857	959	
==>($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	857	959	
==>($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	879	967	
==>ilder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	879	967	
==>ilder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4769	4882	
==>POSIX features absent
   from an MSYS build. If you wish to fix this please refer to:

   http://www.haskell.org/g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15813	15914	
==>r' => (symbol->new(':descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(list <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	185	300	
==>'looks_like_number';

use base 'type';

our $TRUE  = bless \(my $t = 1) => __PACKAGE__;
our $FALSE = bless \(my $f = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4223	4329	
==>,r->sublen));
    newstr = 1; /*1-leak,(0 only for isolated devtest)*/
    if(newstr) {
/*      Safefree(r- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11146	11245	
==>:$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11204	11303	
==>:$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2856	2967	
==>returns a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2856	2967	
==>returns a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-b <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	33	152	
==>b timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: ha <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	33	152	
==>b timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: ha <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	164	270	
==>:Normalizer::Null;
        has $coercer_role = ::Getopt::Argument::Coercer::Null;

        method bind ( Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9368	9459	
==>encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs also c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9368	9459	
==>encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs also c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9698	9799	
==>ement less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the e <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9698	9799	
==>ement less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22789	22911	
==>elational data model proposed
by Edgar. F. Codd, upon which anything in the world can be modelled.

The provided roles (Rel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19139	19236	
==>elational
data model proposed by Edgar. F. Codd, upon which anything in the world can
be modelled. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2859	2993	
==>l ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2859	2993	
==>l ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30475	30580	
==>al_to(str->new(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascend <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6512	6616	
==>ethod add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficien <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6512	6616	
==>ethod add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficien <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1272	1405	
==>ge Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1272	1405	
==>ge Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9926	10033	
==>> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9926	10033	
==>> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10294	10452	
==>e $inst_pkg->package } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->provides || <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12986	13091	
==>e possible to get a plausibly scoped alternative working.

  Using $/ might be non-trivial, as only some f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11828	11933	
==>ist of all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11828	11933	
==>ist of all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-set of All <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2078	2179	
==>MPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2078	2179	
==>MPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	739	898	
==>e', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	739	898	
==>e', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    m <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	647	757	
==>ulti method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trig <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	647	757	
==>ulti method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi method next(Str $trig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	576	686	
==>ile?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generates

  (l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	549	653	
==>ile?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generates
  (l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3216	3343	
==>er {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3216	3343	
==>er {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27815	27913	
==>->reganch |= ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_off(prog)	((prog)->reganch &= ~ROPT_COPY_DONE <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39967	40060	
==>r> argument and combines it with the
invocant relation into a new Relation::Example, such that <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1487	1580	
==>unctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1487	1580	
==>unctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28432	28557	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28711	28836	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_retur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2454	2564	
==>mp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2454	2564	
==>mp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $se <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2166	2267	
==>erse = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2166	2267	
==>erse = self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4875	4974	
==>92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4875	4974	
==>92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46661	46886	
==>->new('$label' => 'symbol'),                                
                          ),
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create('$return' = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3749	3873	
==>al { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id') <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5651	5775	
==>al { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id') <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8938	9059	
==>$self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8938	9059	
==>$self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1101	1200	
==>byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1101	1200	
==>byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21369	21466	
==>t with the package name?).  An advantage of
this is that, for example, your package could come wit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21369	21466	
==>t with the package name?).  An advantage of
this is that, for example, your package could come wit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18931	19036	
==>fully capable of modelling anything in the real world accurately, and it
can support a complete SQL emulat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18931	19036	
==>fully capable of modelling anything in the real world accurately, and it
can support a complete SQL emulat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3378	3475	
==>al packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Ye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3378	3475	
==>al packages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Ye <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6946	7085	
==>::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $self->reduce($prog);
	my $type = $self->resolve_type($prog);

	push @{ $ <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	5	108	
==>r/bin/perl

use strict;
use warnings;

use Blondie::Nodes;
use Blondie::Backend::C;
use Blondie::Emitter <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2668	2779	
==>r {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know bet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2668	2779	
==>r {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at least until we know bet <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5418	5523	
==>ap:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5418	5523	
==>ap:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($fil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	585	714	
==>l = {
        dir     => { required => 1 },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_er <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8522	8643	
==>dex{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8510	8631	
==>dex{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33118	33248	
==>k, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) if $depth;
  }

The two a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10371	10465	
==>d($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef", <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11106	11200	
==>d($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef", <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17310	17409	
==>r("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("logged <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17310	17409	
==>r("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("logged <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	756	867	
==>ny(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	756	867	
==>ny(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15764	15862	
==>orce Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15822	15920	
==>orce Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8078	8188	
==>method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8078	8188	
==>method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1346	1440	
==><Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1346	1440	
==><Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11418	11552	
==>eq ':=' ) {
        #warn "bind: ", Dumper( $n );
        return " tie " . _emit( $n->{exp1} ) . 
            ", 'Pugs::Runtime::Per <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2413	2512	
==>: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr = $O.propert <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32491	32584	
==><plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37041	37134	
==><plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary v <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1525	1670	
==>cept( $arg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $.append_value <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3944	4041	
==>unt ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3944	4041	
==>unt ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elem <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10001	10172	
==>n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10001	10172	
==>n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1850	1987	
==>ents> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1850	1987	
==>ents> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{tail} . "'\n"
        if $final_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30256	30359	
==>, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provide <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34808	34911	
==>, and it works like Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provide <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2303	2407	
==>ush($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2303	2407	
==>ush($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children -> $c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6351	6475	
==>$item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6351	6475	
==>$item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	667	767	
==>ic captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	667	767	
==>ic captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5231	5330	
==>f,$r2);
  $r;
}

my @operators;
my $ops = mk_dynamic_alt(\@operators);

def_rule('expr',mk_operator_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	578	686	
==>l-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	578	686	
==>l-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14251	14387	
==>h != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14245	14381	
==>h != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5748	5940	
==> $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_asser <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5748	5940	
==> $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_asser <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8785	9082	
==>reason}) {            
                    $todos{$detail->{reason}}++
                }
                else {
                    $todos{'__'}++
                }   
            }
        }
        ## XXX - End Pugs addition        
        
        my %test = (
                    ok          = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23862	23949	
==>lace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n_if_undef(N1,Rep <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16741	16890	
==>mit an int
# add (int -> int -> int) is resolved using val(10) into int -> int
# x is inferred to be int
my $plus_ten = fun(
	param => "x",
	body => c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38459	38583	
==>}
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribute_list <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	292	393	
==>/ set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	292	393	
==>/ set_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34682	34784	
==>ion, and returns a new Relation that has the
same heading as the invocant and whose body contains all o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39232	39334	
==>ion, and returns a new Relation that has the
same heading as the invocant and whose body contains all o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10436	10536	
==>ter the input has been set, and could potentially
never be performed at all.  They validate everythin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10436	10536	
==>ter the input has been set, and could potentially
never be performed at all.  They validate everythin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4264	4452	
==>¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4264	4452	
==>¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1905	2017	
==>= Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1905	2017	
==>= Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3498	3607	
==>ing that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication al <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3498	3607	
==>ing that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication al <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28775	28866	
==>ls the immutable identity of the invocant.

=item C<not_equal (Relation::Example $other!) re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	170	302	
==>ent => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	170	302	
==>ent => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4502	4612	
==>ide from
'use' statements, you should never refer directly to "Rosetta" in your
code; instead refer to other ab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4502	4612	
==>ide from
'use' statements, you should never refer directly to "Rosetta" in your
code; instead refer to other ab <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31140	31238	
==>Here is a very simple complete sub-class that does not allow
the C<(?{ ... })> and C<(??{ ... })> a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15904	15998	
==>:Reverse (difficulty rating: ****)

Reverses a regex so it matches backwards.  Ex.: C</\s+$/> b <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6346	6467	
==>spatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!: <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2430	2629	
==>_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2430	2629	
==>_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6109	6230	
==>(Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9586	9707	
==>(Code $predicate!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.v <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1377	1545	
==>ng;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1377	1545	
==>ng;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4821	4950	
==>ng'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the Y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4656	4779	
==>ng'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the Y <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4275	4422	
==>_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4263	4410	
==>_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11190	11298	
==>st traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11190	11298	
==>st traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5271	5406	
==>til 'blessed';

use base 'type';

sub new {
    my $class = shift;
    bless {
        env  => {},
        next => undef
    } => $class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11655	11772	
==>_any => $family, '.');
  });

  # backslash
  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10454	10627	
==>[] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3529	3702	
==>[] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8791	8890	
==>over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8791	8890	
==>over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This eve <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2908	3078	
==>, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2908	3078	
==>, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debu <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	192	320	
==>dline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	192	320	
==>dline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7539	7639	
==>$class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7539	7639	
==>$class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8665	8789	
==>Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/& <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8665	8789	
==>Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/& <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13477	13634	
==>ink from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basename($_);
    
        my $alt = $self->alternatives_dir->fil <==
2	/Users/nnunley/pugs/util/package-osx.pl	10118	10217	
==>e removed. The last one passed in is the
# remover that will be installed on the target machine (hen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	766	877	
==>eck->last_error), return );

    my $obj = $class->SUPER::new;
    ### XXX add allow handlers
    $obj->mk_acces <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19446	19544	
==>Relation::Example {
    return Relation::Example.new(
        heading => $!heading.union( $other!he <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1215	1316	
==>ve it data to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. Retrie <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1215	1316	
==>ve it data to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3. Retrie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4710	4806	
==>witch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4960	5056	
==>witch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	45	160	
==>ar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_contro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	45	160	
==>ar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_contro <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17388	17492	
==>uch more sane manner.
Module::Compile controls the compilation process, calling each compiler
at the righ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17388	17492	
==>uch more sane manner.
Module::Compile controls the compilation process, calling each compiler
at the righ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4061	4191	
==>>preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# P <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3012	3128	
==>>preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25487	25588	
==>quely identifies the type of message that the object
represents (or gives the name of a condition bein <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25487	25588	
==>quely identifies the type of message that the object
represents (or gives the name of a condition bein <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3908	4012	
==>> "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iex <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3908	4012	
==>> "\240", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32073	32174	
==>esponds to language A, looking for a match to said error
message.  If it finds one, then that is displ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32073	32174	
==>esponds to language A, looking for a match to said error
message.  If it finds one, then that is displ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2644	2760	
==>-- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2828	2944	
==>-- implemented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1933	2053	
==>>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | .. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1944	2064	
==>>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | .. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4268	4362	
==>cified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4268	4362	
==>cified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1903	2060	
==>e
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdir( $conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4644	4746	
==>got the right y for p3d');
is($p3d->get_z, 7, '... got the right z for p3d');

cmp_ok($p3d->id, '!=', $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7781	7879	
==>pan0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7781	7879	
==>pan0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3924	4046	
==>$i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4064	4186	
==>$i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3684	3786	
==>h object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3684	3786	
==>h object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8089	8192	
==>Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8089	8192	
==>Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37559	37660	
==>he new Relation is the result of combining all of the source Relations,
such that all common attribute <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42108	42209	
==>he new Relation is the result of combining all of the source Relations,
such that all common attribute <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2461	2577	
==>le: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FIL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2678	2794	
==>le: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FIL <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	7	108	
==>NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	7	108	
==>NAME

Cipher::TestGuts - test cipher

=head1 DESCRIPTION

This fake cipher is used in testing the Ciph <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	929	1033	
==>verbose();
  $strap->dump_verbose_fh($output_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	87	187	
==><&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method assertio <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	87	187	
==><&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method assertio <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2277	2376	
==>t allows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure wit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2277	2376	
==>t allows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure wit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	330	445	
==>matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	316	423	
==>matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9865	10014	
==>the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wante <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2897	3046	
==>the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wante <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	796	947	
==>ess $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$cl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	796	947	
==>ess $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$cl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3915	4012	
==>-----------------------
## removing children

method remove_child_at ($self: Int $index) returns T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3915	4012	
==>-----------------------
## removing children

method remove_child_at ($self: Int $index) returns T <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1856	1978	
==>efs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1856	1978	
==>efs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3266	3387	
==>ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3254	3375	
==>ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantif <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4265	4360	
==>specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synon <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4265	4360	
==>specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synon <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1978	2070	
==>het> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2067	2159	
==>het> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13852	13980	
==>y $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13852	13980	
==>y $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4964	5108	
==>} elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4964	5108	
==>} elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26938	27036	
==>aults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26938	27036	
==>aults to empty if the argument is not provided).

Some example usage:

    my Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1342	1459	
==>s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1342	1459	
==>s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n? <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	242	345	
==>ss Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	242	345	
==>ss Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3854	3973	
==>ge::Installed')}; 
use constant ISA_JIB_PACKAGE_INSTALLABLE
                            => sub { UNIVERSAL::isa(shift(), <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	699	796	
==>class for execution system (compiler + interpreter or equivalent).

=head1 SYNOPSIS

    use Blond <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5691	5832	
==>om;
    if( IS_DIR->( $from ) ) {
        my $base = quotemeta dirname( $from );
        
        for my $dir ( File::Find::Rule->directory->i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	447	549	
==>->{levels}[$_[1]]}, $_[2] ) },
);

# parsed: - the rule replaces the right side
# note: S06 - 'chain' c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11062	11162	
==>=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11062	11162	
==>=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	841	947	
==>)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtrack <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	841	947	
==>)
    * use binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtrack <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	476	599	
==>s they didn't intend to.

# Determine which stack frame points to the code we are filtering.
# This is a method in case it n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	476	599	
==>s they didn't intend to.

# Determine which stack frame points to the code we are filtering.
# This is a method in case it n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	63	170	
==>er("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	63	170	
==>er("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9935	10029	
==>keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9935	10029	
==>keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3035	3163	
==>tails
for my $func ( keys %config ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$fu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10324	10422	
==>er(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10324	10422	
==>er(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10089	10214	
==>sconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10089	10214	
==>sconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8690	8797	
==>$P ~~ rx:perl5/\A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUint32($P);
    return i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24699	24803	
==>try to match next.

=back

=head2 Devices and Standards

I made a few C-macro-style functions for easy ac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23209	23326	
==>S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19630	19747	
==>S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	852	985	
==>}

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5141	5265	
==>o'>
    | <'instanceof'>
    | <'typeof'>
}
rule FutureReservedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6652	6778	
==>osure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6652	6778	
==>osure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5413	5557	
==>-d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5413	5557	
==>-d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9932	10117	
==>ASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1717	1886	
==>ASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2600	2707	
==>erver, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2600	2707	
==>erver, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI object has the f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1370	1474	
==>y something (in public), the current
time and the text they said is saved.

If the (optional) role parame <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1370	1474	
==>y something (in public), the current
time and the text they said is saved.

If the (optional) role parame <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5276	5421	
==>/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5469	5614	
==>/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8987	9109	
==>users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8987	9109	
==>users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7290	7409	
==>art != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7290	7409	
==>art != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4319	4405	
==>('ws',mk_dynamic_alt(\@whitespaces));

my @statements;
def_rule('statement',mk_dynamic_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1211	1354	
==>>isa('type'))
        || confess "Index must be a native type";            
    $self->[$index->to_native] = $value;
    return nil->new();
}

s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6364	6480	
==>npath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_v <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6364	6480	
==>npath($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_v <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13104	13235	
==>". %{$_[0]} },
      code  => sub { "". $_[0] },
      ref   => sub { "". $_[0] },
      glob  => sub { "". ${$_[0]} },
      lvalue <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13185	13328	
==>ncat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13185	13328	
==>ncat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25475	25573	
==>r - This uniquely identifies the type of message that the object
represents (or gives the name of a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25475	25573	
==>r - This uniquely identifies the type of message that the object
represents (or gives the name of a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7473	7559	
==>->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::B <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12548	12657	
==>vious one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Returns true i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12548	12657	
==>vious one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Returns true i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1625	1750	
==>$set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ... <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1625	1750	
==>$set1 = $self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ... <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2843	2967	
==>down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > . <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21419	21520	
==>H')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44326	44427	
==>H')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($e, su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14025	14122	
==>in $string with their entity
representation. A second argument can be given to specify which
chara <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14025	14122	
==>in $string with their entity
representation. A second argument can be given to specify which
chara <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13051	13186	
==>uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13051	13186	
==>uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2702	2814	
==>>:=(<'$op->{name2}'>)/s;
        push @rules, $template;
    }
    push @rules, "<$tight>";
    @rules = _optimiz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	524	671	
==>s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	524	671	
==>s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3637	3777	
==>e)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info;
    $self->get_smoker;
    $self->get_revision;
    
    $Config{shuff <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3892	4003	
==>rmalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3892	4003	
==>rmalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8721	8864	
==>$match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimenta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8721	8864	
==>$match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimenta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1773	1875	
==>esting to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1773	1875	
==>esting to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1114	1228	
==>elf: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1114	1228	
==>elf: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	24	160	
==>ec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "req <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	24	160	
==>ec-0.0.1;

my $worker_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "req <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	781	880	
==>name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern { <term>+ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2080	2187	
==>ode in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2080	2187	
==>ode in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3344	3482	
==>:postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3344	3482	
==>:postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1469	1610	
==>rototype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($message)";
    } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11743	11856	
==>5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_bool_hand <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	858	949	
==>in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	858	949	
==>in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10257	10352	
==>larExpressionBody {  # see 7.8.5
      <RegularExpressionFirstChar> <RegularExpressionChars>
}
r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	404	521	
==>ort { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	404	521	
==>ort { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2619	2740	
==>ift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} else {
		die "can't perform runtime cast of ($node)::$from <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3257	3353	
==>her.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3257	3353	
==>her.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instea <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3886	4026	
==>($arg eq '-d'){
        $DEBUG = 1;
    }
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5636	5750	
==>ext( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5636	5750	
==>ext( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2893	3005	
==>ile @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2893	3005	
==>ile @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8731	8863	
==>prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8731	8863	
==>prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32334	32441	
==>to come
from Perl modules, but in the future they may alternately be something
else, such as XML or tab-deli <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32334	32441	
==>to come
from Perl modules, but in the future they may alternately be something
else, such as XML or tab-deli <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6513	6622	
==>he network.  If the request fails, then the
status code and message are printed on STDERR.  The return value i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6513	6622	
==>he network.  If the request fails, then the
status code and message are printed on STDERR.  The return value i <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4899	4984	
==>l/building/winbuild.html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2666	2792	
==>EMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2666	2792	
==>EMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2537	2632	
==>ss represents the query string portion of a requested URI.
It provides the following methods:

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2537	2632	
==>ss represents the query string portion of a requested URI.
It provides the following methods:

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20661	20754	
==>process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20661	20754	
==>process described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Modul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1096	1307	
==>dent this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submeth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1096	1307	
==>dent this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submeth <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7947	8062	
==>_ML_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader($tfile, $width);
        l <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27396	27490	
==> int", ":t fac");
is(t($length), "∀α. list α → int", ":t length");
is(t($fac_5), "int", <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9961	10063	
==>$child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9961	10063	
==>$child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $self.is_root() <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9631	9744	
==>s ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broken, so it w <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13740	13856	
==>set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13740	13856	
==>set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7159	7267	
==>implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7159	7267	
==>implementation of this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	515	614	
==>int ":l <filename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13695	13807	
==>as root:
      # umount $initrd_img
HELP

  step
    descr  => "Compressing \"$initrd_img\"",
    ensure => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4372	4490	
==>returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4372	4490	
==>returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	41	163	
==>tus-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Process <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	41	163	
==>tus-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Process <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	539	651	
==>on => "superclasses" });

# every Meta::Class is a part of an object model object called the
# schema
Has($?CLASS <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3372	3472	
==>No license specified, setting license = 'unknown'\n"
      unless $values{license};

    $values{lice <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9072	9172	
==>ny height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9072	9172	
==>ny height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52871	53004	
==>r(symbol->new('%:namespace' => 'hash'));    
    $meta->add_attr(symbol->new('$:version'   => 'str'));        
    $meta->add_attr(sym <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6516	6647	
==>b license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6573	6704	
==>b license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4313	4415	
==>Lines starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4313	4415	
==>Lines starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the con <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7549	7688	
==>s && !ref($params->[0])) { # an array of strings
	my @p = map{
	    my %h;
	    s/\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2044	2138	
==>return quote(printable($node->struct_equiv));
	} else { die "don't know to make a literal out o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10242	10348	
==>=> coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or sub <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10242	10348	
==>=> coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1846	1939	
==>s: "
		. Blondie::Emitter::Pretty->new->string($reduced)
			if $received != $sent and $reduced <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12308	12422	
==>pes} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
}

package Runtime;

sub new { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6484	6596	
==>age => $inst_pkg );

    }

    ### update the available files
    $self->available( [ @{ $self->available }, $in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19597	19729	
==>TREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16018	16150	
==>TREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6426	6549	
==>= 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6414	6537	
==>= 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14817	14924	
==>d (dispatcher :descendent)))
     (= $c (WALKCLASS (&dispatcher)))
     (while ($c is_not_nil)
        ((($c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11551	11677	
==>) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $sec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11551	11677	
==>) if $port.defined;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $sec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9122	9222	
==>use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9122	9222	
==>use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28263	28355	
==>hout the "FLAG_" prefix.

=item $parser->add_handler($seq, $code)

This method creates a meth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10510	10611	
==>s
then you can pass them through this function. This is primarily a release
tool, but can be useful in <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10568	10669	
==>s
then you can pass them through this function. This is primarily a release
tool, but can be useful in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16939	17033	
==>amed modules or anonymous routines) and write the rest of the
application in their other langua <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16939	17033	
==>amed modules or anonymous routines) and write the rest of the
application in their other langua <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10825	10924	
==>n value from first Object singleton/class method called by Bar');      
  
is($Bar->singleton_test_o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4703	4809	
==>kefile =~ s/^(PERL = .*)/$1 "-Iinc"/m;

    # XXX - This is currently unused; not sure if it breaks other M <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30020	30122	
==>ading!, Code $transformer!) returns Relation>

This method is a short-hand or alternative for the funct <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34572	34674	
==>ading!, Code $transformer!) returns Relation>

This method is a short-hand or alternative for the funct <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5778	5975	
==>rse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6242	6439	
==>rse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4328	4442	
==>) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4521	4635	
==>) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5675	5789	
==>=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5675	5789	
==>=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty;
    my @s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10582	10762	
==>tate when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10582	10762	
==>tate when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	816	919	
==>-
Localization of Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Valid <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	816	919	
==>-
Localization of Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Valid <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3319	3439	
==>xt unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3319	3439	
==>xt unless exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27999	28092	
==>able name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars()> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27999	28092	
==>able name specified in the positional parameter $var_name (a
string).

=item C<get_msg_vars()> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1211	1307	
==>mple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Si <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1211	1307	
==>mple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Si <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2479	2638	
==>plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2479	2638	
==>plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26465	26567	
==>u
may store references to other objects in them if you wish.

=back

This is the main Message construct <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26465	26567	
==>u
may store references to other objects in them if you wish.

=back

This is the main Message construct <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7851	7966	
==>SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represen <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7851	7966	
==>SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represen <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1095	1200	
==>ry line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by c <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1095	1200	
==>ry line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4828	4965	
==>.. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4828	4965	
==>.. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.f <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	506	609	
==>();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	506	609	
==>();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18565	18657	
==>ar expression compilation and execution) to
parasitize the regexp struct - attempting to make <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2855	2947	
==>ar expression compilation and execution) to
parasitize the regexp struct - attempting to make <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	704	955	
==>ant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	705	956	
==>ant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3068	3234	
==>_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub arra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3068	3234	
==>_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub arra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	82	180	
==>ude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Proces <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	82	180	
==>ude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Proces <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6570	6683	
==>return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($Result1) * floor(abs($Result1));
    retu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	396	497	
==>$t.node()) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_children( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10158	10298	
==>();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10158	10298	
==>();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6911	7078	
==>chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6911	7078	
==>chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3647	3783	
==>st_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_init <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3647	3783	
==>st_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_init <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	232	353	
==>:new(@_);
    return $self;
} 

sub do {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14596	14776	
==>_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14875	15055	
==>_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9748	9844	
==>facilitate the Pugs test suite. It has the
distinction of being the very first module written for <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9806	9902	
==>facilitate the Pugs test suite. It has the
distinction of being the very first module written for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9365	9520	
==>ation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::capture( 'id <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9558	9702	
==>ation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3434	3556	
==>s_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3434	3556	
==>s_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $spa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12578	12691	
==>perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_han <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25580	25685	
==>n of
source code.  However, for an additional fee, the copyright holders of
Rosetta can sell you an altern <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25580	25685	
==>n of
source code.  However, for an additional fee, the copyright holders of
Rosetta can sell you an altern <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3677	3842	
==>},
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    check($tmpl, \%args) or error(Params::Check->last <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	958	1093	
==>b null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	958	1093	
==>b null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n} <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	375	476	
==>be the last evaluated expression.

All functions (but not macros) in this file need to have the
`is pr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1709	1797	
==>1).']->to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from,map{\$_->from}\@\$m).\"/g;
	$expr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3253	3357	
==>cept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3253	3357	
==>cept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessible through <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3504	3621	
==>el, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5554	5671	
==>el, $method) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label} = $method;
        },
        ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9265	9360	
==>ze.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9265	9360	
==>ze.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	363	504	
==>antiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	363	504	
==>antiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15608	15752	
==>]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15602	15746	
==>]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = split( /[\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2600	2704	
==>ler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list v <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2600	2704	
==>ler> and available via NNTP at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14752	14858	
==>3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14752	14858	
==>3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3212	3411	
==>=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3086	3278	
==>=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\: <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	104	211	
==>code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func( <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	104	211	
==>code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20552	20672	
==>->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16973	17093	
==>->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not i <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	562	715	
==>ar($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($second),
                             :tz($tz <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	629	745	
==>ar($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($second), <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3931	4047	
==>attern> \) }
rule noncapturing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule lit <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18076	18180	
==>_seen_header};

    $self->{_seen_header}++;

    warn "1..M can only appear at the beginning or end of t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9582	9680	
==>t such.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9582	9680	
==>t such.

The usual way that Rosetta::Model indicates a failure is to throw an
exception; most often <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	459	581	
==>ompare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	459	581	
==>ompare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19544	19715	
==>teral;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19823	19994	
==>teral;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3465	3584	
==>f a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3465	3584	
==>f a chan.
    ./add_handler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	480	621	
==>@!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack o <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	480	621	
==>@!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	226	378	
==>$::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13933	14046	
==>Nice alias.

sub DIE {
    print STDERR "# @_\n";
    exit 1;
}

# A somewhat safer version of the sometimes wrong <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3942	4039	
==>ss

\G, pos(), etc, are not yet supported.

=back

=head1 AUTHORS

The Pugs Team E<lt>perl6-compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2842	2946	
==>standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2842	2946	
==>standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1165	1253	
==>ule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1385	1473	
==>ule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21021	21117	
==>sting (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21021	21117	
==>sting (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29826	29948	
==>')'.  There cannot
be one without a matching left parenthesis '('; if there is an extra ')'
a fatal error is thrown.  Howev <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12978	13079	
==>nt value to get the next value.
The unit specifier is also used internally when joining two spans, and <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12978	13079	
==>nt value to get the next value.
The unit specifier is also used internally when joining two spans, and <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9479	9617	
==>go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2532	2670	
==>go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20950	21048	
==>ead sysseek syswrite tell telldir truncate umask
# unlink utime warn


# chroot crypt exec getlogin <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	652	770	
==>& do {
            my($key, $val) = ($1, $2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|O <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1404	1514	
==>{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1404	1514	
==>{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4068	4163	
==>:: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4068	4163	
==>:: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12194	12300	
==>omp and exec (not implemented).  The C hooks call for the
  sub hooks in the caller package, and thus get C <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1683	1763	
==>------------------------------------------------------------------------------
EN <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3557	3704	
==>XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4021	4168	
==>XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3607	3699	
==>item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3607	3699	
==>item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5030	5146	
==>)\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5030	5146	
==>)\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1047	1151	
==>s export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1047	1151	
==>s export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
s <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1979	2105	
==>[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3571	3697	
==>[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6937	7089	
==>et.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6937	7089	
==>et.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1000	1106	
==>todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1058	1164	
==>todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $des <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6842	6960	
==>quo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "helli <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6842	6960	
==>quo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "helli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29144	29243	
==>that says whether
or not it ended up being merged with the previous object in the tree.

=item my $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20660	20761	
==>se so to pick a supported language closest to your
preference.  Presumably the messages in these files <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20660	20761	
==>se so to pick a supported language closest to your
preference.  Presumably the messages in these files <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	191	293	
==>::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	191	293	
==>::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	31	153	
==>of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	31	153	
==>of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	378	498	
==>->_read_script($script_file) ) {
        last unless $line =~ /^#/;
        $prompt = $1   if $line =~ /^#\s*prompt:\s+(. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14316	14433	
==>) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5255	5378	
==>nt_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5255	5378	
==>nt_previous => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4617	4729	
==>returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An except <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4675	4787	
==>returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An except <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2013	2119	
==>but questions about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2013	2119	
==>but questions about what this object represents.

It represents a node in the Perldoc DOM tree (see L<Perld <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	555	699	
==>0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	555	699	
==>0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14694	14797	
==>eopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14694	14797	
==>eopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	360	505	
==>$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $path    = $struct->{package};
    
    ### create a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35586	35689	
==>ferences is the body of one and-branch.  We will take the last one off
and keep it normal, but the other <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3947	4142	
==>ined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3826	4014	
==>ined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1610	1714	
==>Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1610	1714	
==>Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($modu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	228	343	
==>ibs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::Write <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	228	343	
==>ibs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::Write <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3284	3426	
==>n =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3284	3426	
==>n =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $st <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3893	3985	
==>" return the appropriate date.

Any other string will be passed to `Date::Something::WaveHand <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3893	3985	
==>" return the appropriate date.

Any other string will be passed to `Date::Something::WaveHand <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17303	17400	
==>o the
localization methodology that is described here, and hence provides these
benefits to develo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17303	17400	
==>o the
localization methodology that is described here, and hence provides these
benefits to develo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5095	5196	
==>and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A st <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5095	5196	
==>and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A st <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	750	849	
==>trap->analyze_file($test_file);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Alterin <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	7	105	
==>are werden weiterhin mit # eingeleitet:

#!\begin{block}{}\texttt{
# dies ist ein Kommentar :-)
#!} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39875	39981	
==>hed by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at you <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39875	39981	
==>hed by the Free Software Foundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at you <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47036	47144	
==>->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47203	47311	
==>->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5869	6010	
==>= '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $sta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5869	6010	
==>= '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $sta <==
2	/Users/nnunley/pugs/util/package-osx.pl	9083	9192	
==>usr/bin");
    chdir("${dest}/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15436	15533	
==>tring that would be matched by the regex; provides
a front-end method for the parser.

=item Regex <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	249	378	
==>s;

    method write ( Str $message is copy )
    {
        push @:output, $message;
    }

    method diag ( Str $message is copy <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	793	921	
==>iled!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::ge <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	760	888	
==>iled!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::ge <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7143	7251	
==>" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1498	1588	
==><conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1498	1588	
==><conform>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22825	22956	
==>}
rule Catch :words {  # see 12.14
      <'catch'> <'('> <Identifier> <')'> <Block>
}
rule Finally :words {  # see 12.14
      <'fin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9181	9278	
==>oups = $parser->nparen;

=head2 Getting All Captures

You can access all the capture groups with t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8001	8122	
==>("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8001	8122	
==>("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2118	2247	
==>m<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2118	2247	
==>m<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<st <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5034	5150	
==>depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5092	5208	
==>depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs correctl <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2239	2370	
==>whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2239	2370	
==>whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13450	13654	
==>)
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13729	13933	
==>)
       ,
         ruleop::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	70	182	
==>ITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to joi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	70	182	
==>ITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to joi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9770	9884	
==>ray { return }

# What we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9770	9884	
==>ray { return }

# What we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4830	4930	
==>self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5174	5274	
==>self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10310	10426	
==>ntity = %temp;
    return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10310	10426	
==>ntity = %temp;
    return $result;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1081	1199	
==>embers = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $an <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1081	1199	
==>embers = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns Bool {
    my $an <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34958	35059	
==>structed.  If you want to
conceptually change an existing Translator object, you must create a new
obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34958	35059	
==>structed.  If you want to
conceptually change an existing Translator object, you must create a new
obj <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	634	776	
==>ipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	634	776	
==>ipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2555	2655	
==>ing children

method get_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2555	2655	
==>ing children

method get_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7980	8077	
==>item' directive is reached, the next event fired will be
any text which follows the item.

=item I <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7980	8077	
==>item' directive is reached, the next event fired will be
any text which follows the item.

=item I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1395	1502	
==>f, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1395	1502	
==>f, $span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1501	1605	
==>ntly iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functio <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1501	1605	
==>ntly iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functio <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1762	1862	
==>sing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1762	1862	
==>sing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8475	8661	
==>y $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8475	8661	
==>y $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    ret <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6030	6143	
==>instantiated;
use base qw/type::variable/;

sub is_arrow {
	my $self = shift;
	$self->{instance}->is_arrow;
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26372	26470	
==>CANY_SEEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reg <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	109	223	
==>alhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	109	223	
==>alhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     r <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	292	394	
==>nt $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endif
int
main(int ac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13847	13986	
==>);
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14126	14265	
==>);
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12864	12980	
==>urned.

Note that if you pass in multiple field names then it is generally not
possible to tell which of the returned <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12864	12980	
==>urned.

Note that if you pass in multiple field names then it is generally not
possible to tell which of the returned <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	829	975	
==>sif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsi <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	829	975	
==>sif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1555	1677	
==>'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1555	1677	
==>'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12462	12574	
==>shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3012	3119	
==>shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> @list <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7044	7233	
==>ASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7508	7697	
==>ASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	998	1106	
==>Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These me <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	998	1106	
==>Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15183	15289	
==>sage to be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be a prom <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15183	15289	
==>sage to be
shown to the user.  Sometimes this is an error message of some kind, but it
could also be a prom <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8969	9144	
==>&& -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink if needed
    ### XXX doesn <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4004	4103	
==>::Internals::atan2($y,$x);
 }


 multi Math::Trig::pi ( --> Num )
 {
     3.141592653589793238462643 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	327	431	
==>sion_wanted = 1),
  "version"     => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit },
) or u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18769	18941	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19048	19220	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4350	4446	
==>e copied to the CD, too.
  --initrd-gz=$initrd_gz
    mklivecd.pl automatically generates a gzipp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1288	1387	
==>ement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    do <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1288	1387	
==>ement(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	720	817	
==>Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	720	817	
==>Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_he <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	770	870	
==>og> }
rule name { [<word>|<[\.\:]>]+ }
rule code { ([ <-[{}]> | \{ <?code> <'}'> ]* ) }

rule pattern <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	56	161	
==>questionable.


# verbatim from perl-5.9.2/t/op/regexp.t
our $bang = sprintf "\\%03o", ord "!"; # \41 woul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1736	1856	
==>f->ls_accessors;

    return \%struct;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1849	1951	
==>orithms will have a key, which will be specified in the options; check your 
cipher's documentation for <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1849	1951	
==>orithms will have a key, which will be specified in the options; check your 
cipher's documentation for <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1197	1324	
==>t;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = sp <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1197	1324	
==>t;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = sp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17092	17193	
==>s numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17092	17193	
==>s numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15017	15114	
==>IPTION

=head2 Introduction

Many times during a program's operation, the program (or a package it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15017	15114	
==>IPTION

=head2 Introduction

Many times during a program's operation, the program (or a package it <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4022	4147	
==>y $preinst = $meta_dir->file( $conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $prein <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	950	1093	
==>return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

su <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	950	1093	
==>return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	967	1079	
==>d already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then stor <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	967	1079	
==>d already and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then stor <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2248	2408	
==>nostic) = @_;
            $diagnostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21216	21306	
==>ne anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1991	2331	
==>@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    return $fh if $fh;
                                    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	199	302	
==>compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	199	302	
==>compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	404	509	
==>sponse-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Traile <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	404	509	
==>sponse-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Traile <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22211	22314	
==>here each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26763	26866	
==>here each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22830	22947	
==>> $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19251	19368	
==>> $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3113	3216	
==>t := &Array::splice.assuming(:offset(0) :length(1));
## an alternate implementation:
#multi method Array <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1873	1966	
==>inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA     = __PACKAGE__;

sub a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32032	32127	
==>own error, see L</"ERROR HANDLING">.

=back

=head2 Walking an Object

Most objects inherit thei <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37827	37925	
==>g).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37827	37925	
==>g).  Assuming that a Perl module by the given module name
is already loaded, it tries to invoke $mo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1248	1351	
==>orts 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), ke <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1248	1351	
==>orts 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18077	18183	
==>t.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18077	18183	
==>t.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1896	2013	
==>'_alternatives'}    = [ alternatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBF <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3498	3604	
==>999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3498	3604	
==>999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names. <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	171	301	
==>gs
BEGIN { my $w = $SIG{__WARN__}; $SIG{__WARN__} = sub { $w } };

#line 31

sub new {
    my ($class, %args) = @_;

    foreach my <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2912	3006	
==>ist of Bool (Relation::AttrName *@attr_names) {
    return !$?SELF.all_exist( *@attr_names );
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12861	12960	
==>returned.

Note that if you pass in multiple field names then it is generally not
possible to tell w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12861	12960	
==>returned.

Note that if you pass in multiple field names then it is generally not
possible to tell w <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	60	163	
==>or TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some twe <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	60	163	
==>or TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some twe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1708	1903	
==>$!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1708	1903	
==>$!msg_key,
        'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

m <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1058	1181	
==>: open '$script'";
   my $golf = 0;
   while (<FF>) {
      $_ .= chomp; next unless length;
      s/^#!.*?perl// if $. == 1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8370	8513	
==>ious }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=k <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8370	8513	
==>ious }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=k <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16934	17056	
==>(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16934	17056	
==>(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4935	5046	
==>ompile( q(
            <Pugs::Grammar::Term.single_quoted>
            { return { single_quoted => $/{'Pugs::Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8747	8883	
==>ift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8735	8871	
==>ift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7184	7329	
==>") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: )                    is rw { $self.hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7184	7329	
==>") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: )                    is rw { $self.hea <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2349	2456	
==>l work got me thinking about trying a prolog plugin.

Fyi,
Yaswi apparently requires swi prolog be built ./c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17327	17443	
==>( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20804	20920	
==>( $other!heading );
    Set $r2only_h = $other!heading.difference( $!heading );

    return Relation.new(
        hea <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3626	3752	
==>).package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3684	3810	
==>).package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8944	9040	
==>acters {  # see 7.8.4
      <DoubleStringCharacter> <DoubleStringCharacters>?
}
rule SingleString <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11776	11876	
==>antage of the internal caching of keys that is expected to happen,
but wishes to compare them with so <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5264	5362	
==>nary/;

sub symbol { "×" }


package type::variable;
use base qw/type/;

package type::variable::f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7490	7588	
==>malize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7490	7588	
==>malize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~norma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20043	20247	
==>ymbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40503	40707	
==>ymbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3652	3771	
==>=> %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3652	3771	
==>=> %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18237	18336	
==>e same external resources, such as a repository file
on disk, it is expected that the Engines will e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18237	18336	
==>e same external resources, such as a repository file
on disk, it is expected that the Engines will e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	236	327	
==>s     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	236	327	
==>s     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6095	6193	
==>ubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6095	6193	
==>ubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', ' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2265	2393	
==>Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2265	2393	
==>Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	472	584	
==>b to_native { @{(shift)} }

# conversion to other types
sub to_str { (shift)->join(str->new('')) }
sub to_num { ( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	2	89	
==>ckage Perl6::Run::OnPerl5::X1::Repl;
use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	430	543	
==>ub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethe <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	430	543	
==>ub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4851	4959	
==>_pkg = $inst->register( package => $package )

=cut

sub register {
    my $self = shift;
    my $conf = $sel <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	285	383	
==>.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPE <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	285	383	
==>.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPE <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7519	7616	
==>ft`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list contain <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7519	7616	
==>ft`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list contain <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	690	817	
==>: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $nu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	690	817	
==>: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $nu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4153	4254	
==>es).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0.. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4153	4254	
==>es).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0.. <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1957	2050	
==>se
segfaults on C<split>, substitution, and/or other uses.

It is currently unsuitable for jus <==
2	/Users/nnunley/pugs/util/grokprims.pl	1009	1126	
==>rgs}} <=> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	295	407	
==>d_requires requires recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_key <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2665	2822	
==>index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2665	2822	
==>index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10014	10201	
==>my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal to <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2326	2473	
==>my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10948	11107	
==>toping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10948	11107	
==>toping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	310	415	
==>e vars qw( @rule_terms );

# ----- the following were included only for performance reasons,
# because the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	321	426	
==>e vars qw( @rule_terms );

# ----- the following were included only for performance reasons,
# because the <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3187	3309	
==>n('.', $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9340	9489	
==>);

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  us <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9398	9547	
==>);

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  us <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2483	2587	
==>_is_closed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2483	2587	
==>_is_closed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns Bool   { retu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7828	7921	
==>anyof_range;
}
{
  package Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_cl <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12629	12764	
==>s->{$lines->{$.}};
      }
      $output .= "<span class='$class'>$rest</span>";
      
    }
#    $body->push_content("\n");
     $outp <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	550	681	
==>DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME< <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	550	681	
==>DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME< <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5663	5789	
==>tval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5663	5789	
==>tval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1819	1958	
==>{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1819	1958	
==>{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Du <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	225	331	
==>te_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*EN <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	225	331	
==>te_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*EN <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	536	656	
==>ns may sub-class this module or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if y <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	536	656	
==>ns may sub-class this module or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if y <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5293	5423	
==>+/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5293	5423	
==>+/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( ' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8175	8299	
==>ks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }), <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8175	8299	
==>ks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }), <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1200	1303	
==>id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input ty <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1200	1303	
==>id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input ty <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1440	1534	
==>maker_args->{INST_LIB} =
      File::Spec->catfile($path, "lib");
    $self->makemaker_args->{I <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10484	10616	
==>rep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10484	10616	
==>rep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22626	22735	
==>=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22626	22735	
==>=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2357	2468	
==>te}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2357	2468	
==>te}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5120	5224	
==>= $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5120	5224	
==>= $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:_ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	108	235	
==>aths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.s <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	108	235	
==>aths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5902	6128	
==>n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fixity}_$op->{assoc}"};
                    unless ( defined $t ) {
                        warn "can't find templ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9353	9448	
==>name if $op{'isOptional'};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isNamed <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10971	11067	
==>pends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11029	11125	
==>pends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1626	1775	
==>~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1626	1775	
==>~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./reques <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4594	4673	
==>me>|<abbreviated_class>|<explicit_class>|<escape_sequence>|<named_character>|<si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13950	14064	
==>t 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13950	14064	
==>t 'Enter 2 Numbers' in the first of the four
        # languages that has a matching template available.
        pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17812	17966	
==>list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18091	18245	
==>list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	268	435	
==>hod diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	268	435	
==>hod diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1113	1215	
==>ame basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Giv <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1113	1215	
==>ame basic steps, 
albeit with different interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Giv <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3241	3361	
==>se = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $sel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3241	3361	
==>se = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	397	492	
==>ile limited superficial success proved
# straightforward, a more robust solution would be far mo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13519	13663	
==>6opaque'))
                  })); 
                # create and init the object
                $e->create('$self' => $e->get('$class:')->send('C <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1700	1807	
==>:Rules: it looks like early
# phase development.  There's a "return" halfway down the file to cut
# off cons <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3175	3295	
==>urn 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return ' <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	179	319	
==>thod write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	179	319	
==>thod write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1425	1520	
==>to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particula <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1425	1520	
==>to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particula <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1198	1303	
==>closure. 



the Package part of the Module is simply a hash from strings

(symbol names) to objects (cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1145	1247	
==>closure. 

the Package part of the Module is simply a hash from strings
(symbol names) to objects (cont <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	327	467	
==>val '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	327	467	
==>val '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1097	1203	
==>.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> obje <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1097	1203	
==>.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> obje <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23851	23946	
==>atives, and doesn't know about language specific details like
encodings or plurality.

My unders <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23851	23946	
==>atives, and doesn't know about language specific details like
encodings or plurality.

My unders <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17693	17790	
==>>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17693	17790	
==>>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the s <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2743	2900	
==>> sub { # $int -> () # +=?
                my $self = shift;
                my $size = shift;
                push @{$self->get_value('@:slots')}, mk_contain <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17004	17108	
==>lication in their other language(s) of choice.  Assuming the main
application is written in Perl, it is t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17004	17108	
==>lication in their other language(s) of choice.  Assuming the main
application is written in Perl, it is t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18286	18381	
==>address (URI) of the document from which the
requested resource address was obtained.

The "Free <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18286	18381	
==>address (URI) of the document from which the
requested resource address was obtained.

The "Free <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8539	8648	
==>3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Crea <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8539	8648	
==>3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Crea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	844	1017	
==>'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	844	1017	
==>'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $nam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2460	2587	
==>ct to $Builddir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->files_list( $self->pac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24940	25035	
==>Locale::KeyedText::Message Class

A Message object is a simple container which stores data to be <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24940	25035	
==>Locale::KeyedText::Message Class

A Message object is a simple container which stores data to be <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	285	404	
==>repo
    for my $archive ( qx[find root-* -type f | grep '$Ext\$'] ) {
        chomp $archive;
        my $file = basena <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6569	6671	
==>ing.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is cop <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6569	6671	
==>ing.  This method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is cop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21263	21359	
==>key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21263	21359	
==>key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3414	3519	
==>fference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3414	3519	
==>fference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	204	318	
==>ld return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cle <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	204	318	
==>ld return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cle <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1137	1246	
==>o_num->to_native());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15817	15914	
==>isle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15817	15914	
==>isle Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	47	156	
==>dition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $ju <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	47	156	
==>dition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $ju <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1640	1771	
==>[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1584	1712	
==>[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1757	1879	
==>,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1757	1879	
==>,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3175	3326	
==>$m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3175	3326	
==>$m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unles <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15722	15817	
==>es.  Or, when viewing an error message, the
application's developer should see more details than <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15722	15817	
==>es.  Or, when viewing an error message, the
application's developer should see more details than <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	221	337	
==>ar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $signature, $body) = @_;
    (blessed($env) && <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15010	15123	
==>$Perl from $^X" unless -f $Perl;

	# For subcommands to use.
	$ENV{PERLEXE} = $Perl;
    }
    return $Perl;
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18879	18975	
==>de property or a Perl class (like
C<\w> or C<\S>), the object's C<data> field points to the under <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	490	589	
==>ytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	490	589	
==>ytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Ciphe <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13833	13969	
==>ody);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1313	1449	
==>ody);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21435	21571	
==>pad["subpats"] = subpats
    pad["isarray"] = padarray
    pad["cutnum"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = ex <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1475	1584	
==>r::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1475	1584	
==>r::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6900	7018	
==>urn the internal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6900	7018	
==>urn the internal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { $ret.shift <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5499	5613	
==>mp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5499	5613	
==>mp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3080	3255	
==>(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3080	3255	
==>(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a se <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1400	1506	
==>DME>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/ta <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1400	1506	
==>DME>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/ta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	877	981	
==>an module for
# real use.  It might, imaginably, perhaps, be possible to do this
# Maybe.  And perl5 migh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9707	9856	
==>( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( exists $n->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23004	23142	
==>rser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1] <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10933	11041	
==>r );
}

multi method intersection (Relation::Example *@others) returns Relation::Example {

    for @others - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	870	985	
==>em;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	870	985	
==>em;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2251	2366	
==>niverse;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2251	2366	
==>niverse;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4955	5057	
==>t( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4955	5057	
==>t( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2273	2374	
==>:Stub;
    use base qw/Blondie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Nod <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	134	683	
==>g
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	134	683	
==>g
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6885	7007	
==>n::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6885	7007	
==>n::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13401	13529	
==>/raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13401	13529	
==>/raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1323	1425	
==>o &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1323	1425	
==>o &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2820	2942	
==>efined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2960	3082	
==>efined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2124	2224	
==>depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2182	2282	
==>depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19106	19204	
==>ctor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19106	19204	
==>ctor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16714	16824	
==>l 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyM <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16714	16824	
==>l 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyM <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21992	22088	
==>ta is entirely object-oriented; you use it by
creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21992	22088	
==>ta is entirely object-oriented; you use it by
creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2287	2410	
==>xtract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2198	2318	
==>xtract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2807	2926	
==>turn $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if define <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2807	2926	
==>turn $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if define <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1662	1810	
==>any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1662	1810	
==>any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2978	3090	
==>) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2978	3090	
==>) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14390	14488	
==>item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
internall <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14390	14488	
==>item $h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
internall <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2182	2287	
==>te->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2182	2287	
==>te->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24640	24743	
==>this Relation's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29192	29295	
==>this Relation's "is mutable" boolean attribute.

=item C<heading () returns Set of Str>

This method ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3552	3685	
==>ug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3692	3825	
==>ug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    for <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	393	496	
==>lit('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	393	496	
==>lit('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my $volume    = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	125	234	
==>CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	183	292	
==>CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_test <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5456	5566	
==>ip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ / <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5456	5566	
==>ip in the source filter, since
    # we already have them in $real_content.
    my @lines = ($real_content =~ / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7882	7977	
==>)       is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7882	7977	
==>)       is rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	61	183	
==>r::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	61	183	
==>r::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6911	7051	
==>g === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

& <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10388	10528	
==>g === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

& <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1483	1600	
==>n '$fname'";
   print FF $data;
   close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   BuildFile($ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4075	4183	
==>f $Config{verbose};
}

# Strip comments and docs while preserving the line counts
sub strip_comments {
    $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3551	3684	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3744	3877	
==>},
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1513	1615	
==>Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1513	1615	
==>Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15862	15959	
==>.com/>, and its authors have also written
several books and papers and taught classes on the subje <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15862	15959	
==>.com/>, and its authors have also written
several books and papers and taught classes on the subje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2664	2785	
==>c;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2664	2785	
==>c;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5742	5861	
==>cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5742	5861	
==>cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1891	1983	
==>lass Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1891	1983	
==>lass Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2267	2363	
==>cludes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2267	2363	
==>cludes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    return ($sel <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6160	6261	
==>returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6160	6261	
==>returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapp <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6917	7136	
==>cense'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6974	7193	
==>cense'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15859	15962	
==>ference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19336	19439	
==>ference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    retu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3990	4184	
==>z },
        set_z => sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18448	18577	
==>s::Internals::sprintf($conversion,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs::Internals:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10815	10956	
==>span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10815	10956	
==>span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	463	573	
==>hould be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_subm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	463	573	
==>hould be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_subm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8942	9057	
==>seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Insta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8942	9057	
==>seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Insta <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	482	601	
==>ntent>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	482	601	
==>ntent>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perl <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	881	1045	
==>of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'inte <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	881	1045	
==>of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'inte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1401	1536	
==>eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.quer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1401	1536	
==>eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.quer <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8527	8627	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8527	8627	
==>if(normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12653	12780	
==>_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseud <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12653	12780	
==>_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseud <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2762	2957	
==>$fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim> <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2762	2957	
==>$fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	59	164	
==>eam cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	59	164	
==>eam cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plaintext, :key($key));

    &cip <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5994	6089	
==>regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 WARNING

This is version B<0.022b> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20069	20165	
==>used to create stand-alone objects.

Each object now has an insert() method that defines how it g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1548	1661	
==>le> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1548	1661	
==>le> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef> { use v5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2280	2482	
==>y $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2280	2482	
==>y $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14107	14210	
==>van "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14107	14210	
==>van "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You m <==
2	/Users/nnunley/pugs/util/package-osx.pl	9810	9924	
==>/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1213	1318	
==>}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( Regexp::Parser::__objec <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8584	8677	
==>or.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-ht <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8584	8677	
==>or.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-ht <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13700	13802	
==>ard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17177	17279	
==>ard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@oth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4587	4695	
==>pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5072	5180	
==>pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10594	10704	
==>when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("US <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10594	10704	
==>when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("US <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13023	13113	
==>ersions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13023	13113	
==>ersions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Trans <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2119	2230	
==>THODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

S <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2119	2230	
==>THODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	332	451	
==>tches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	318	429	
==>tches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	780	900	
==>lde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	780	900	
==>lde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç', <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	193	319	
==>}
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub spli <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	193	319	
==>}
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub spli <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8676	8798	
==>iable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8869	8991	
==>iable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2052	2206	
==>s'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2257	2411	
==>s'     => {},
            # and override anything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	725	828	
==>xp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	830	925	
==>h/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	715	802	
==>h/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1165	1273	
==>($param->val => undef);

	$self->count_param;

    return $param;
}

sub enter_scope {
	my $self = shift;

	p <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	802	934	
==>epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SU <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	802	934	
==>epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SU <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	107	204	
==>n) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	107	204	
==>n) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".") <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22933	23090	
==>dd_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42536	42693	
==>dd_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21445	21574	
==>d)      ,C) :- !,    char_type(C,csym).
class_member(class_neg(word)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22368	22478	
==>e sequence handlers.

The 'g', 'c', and 'o' flags now evoke "Useless ..." warnings when used
in flag and non-ca <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29112	29221	
==>).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33664	33773	
==>).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2355	2494	
==>"' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2355	2494	
==>"' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33782	33903	
==>ple.  Let me explain what the
'&' metacharacter will mean.  If you've used F<vim>, you might know
about its '\&' regex ass <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6157	6252	
==>om_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6157	6252	
==>om_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update % <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	474	569	
==>and adds nothing else.

More specialised processing instructions may sub-class this module or
pr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	474	569	
==>and adds nothing else.

More specialised processing instructions may sub-class this module or
pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	806	954	
==>name => '*',
        assoc => 'left',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal', <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3885	3998	
==>n ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3885	3998	
==>n ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_star <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5213	5343	
==>> chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5213	5343	
==>> chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15522	15626	
==>the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15522	15626	
==>the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This heade <==
2	/Users/nnunley/pugs/misc/S29_round.pl	701	839	
==>bs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num:: <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3105	3235	
==>l;
	}
    }
    print "}\n\\end{block}\n" if $inblock;
#    print "}";
    close STDOUT;
}

#    my ($fname) = @_;
#    print "proc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18855	18960	
==>l the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18855	18960	
==>l the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7024	7133	
==>program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7036	7145	
==>program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22177	22294	
==>th($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $Columns - length($middle_str) - $list_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4549	4651	
==>ay is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4549	4651	
==>ay is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ e <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	149	260	
==>aker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	149	260	
==>aker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7239	7366	
==>s ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (Num $ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7239	7366	
==>s ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie (Num $ve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11894	12002	
==>return 1;
  }
}


{
  package Regexp::Parser::quant;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27431	27573	
==>merge'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	329	430	
==>y of Perl::Param @.subParams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tupl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5402	5557	
==>lems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cst <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5402	5557	
==>lems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cst <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4029	4127	
==>mmar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4213	4311	
==>mmar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1473	1587	
==>e is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1680	1794	
==>e is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	854	944	
==>rop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Si <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	854	944	
==>rop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Si <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	431	556	
==>=~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	550	666	
==>=~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8547	8695	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8740	8888	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22496	22593	
==>eeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22496	22593	
==>eeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14833	14930	
==>("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14833	14930	
==>("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	484	594	
==>use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	484	594	
==>use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13644	13755	
==>l.]

  The regexp engine and the perl compiler have an overly friendly
  relationship.  There may end up being a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15647	15747	
==>ues
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15647	15747	
==>ues
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2188	2310	
==>ctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2188	2310	
==>ctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
* <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	529	647	
==>Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Repository->new( d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	472	573	
==>ompiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


r <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	472	573	
==>ompiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7043	7139	
==>he text of the header, that will be processed as a interpolated string (to allow for
any modifier <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7043	7139	
==>he text of the header, that will be processed as a interpolated string (to allow for
any modifier <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1619	1778	
==>se {
                confess "Unknown plan";
            }
            _('$.output')->write(_('$.testplan')->header());            
        },
        'ok' => s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2548	2642	
==>otherwise.  The F<prove> utility's C<-v>
flag will set this.

=item C<$Test::Harness::switches> <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2620	2736	
==>ypes differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# signature from PIL2JS Array.pm and S29dra <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1788	1904	
==>s {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	899	1013	
==>s {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3665	3872	
==>:= (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3912	4119	
==>:= (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7395	7497	
==>usion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10872	10974	
==>usion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6280	6404	
==>q 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6292	6416	
==>q 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4809	4995	
==>sum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5031	5217	
==>sum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data { <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	390	503	
==>ersion tests
>;
my @tuple_keys = qw<
    build_requires requires recommends bundles
>;

foreach my $key (@scalar_k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11654	11768	
==>^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11648	11762	
==>^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2897	3021	
==>dd_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WH <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2897	3021	
==>dd_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26682	26787	
==>t::Message object.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26682	26787	
==>t::Message object.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15404	15511	
==>Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15462	15569	
==>Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7678	7786	
==>e successfully got template text for the message key, so
        # interpolate the message vars into it and r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7678	7786	
==>e successfully got template text for the message key, so
        # interpolate the message vars into it and r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	957	1076	
==>all_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	966	1085	
==>all_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1628	1734	
==>art && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1628	1734	
==>art && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1518	1650	
==>e_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1518	1650	
==>e_path($req_path) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	620	737	
==>debug;
    my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12271	12424	
==>::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12265	12418	
==>::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4430	4559	
==>postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4430	4559	
==>postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13519	13629	
==>rce =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13519	13629	
==>rce =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	288	395	
==>che env/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blondie::Val/;
    sub set { ${ $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13269	13363	
==>s.
Moreover, these data structures are in exactly the right input format for
Document.new(), by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13269	13363	
==>s.
Moreover, these data structures are in exactly the right input format for
Document.new(), by <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7677	7783	
==>nsert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7677	7783	
==>nsert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23823	23917	
==>ot declare any subroutines or export such.

The usual way that Relation::Example indicates a fa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27553	27725	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27832	28004	
==>,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6117	6221	
==>ed to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6117	6221	
==>ed to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12763	12858	
==>te spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12763	12858	
==>te spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The unit sp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3167	3282	
==>rn $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normali <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3167	3282	
==>rn $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normali <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	582	700	
==><count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # beca <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	582	700	
==><count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # beca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1330	1450	
==>} )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1330	1450	
==>} )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13752	13849	
==>o possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Funct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13810	13907	
==>o possible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Funct <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1671	1794	
==>) {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1671	1794	
==>) {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13806	13910	
==>"\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item enc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13806	13910	
==>"\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item enc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1706	1807	
==>:($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1706	1807	
==>:($worker_pkg)::file_name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	624	730	
==>ion = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $descript <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	624	730	
==>ion = undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $descript <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4704	4818	
==>parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4704	4818	
==>parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	620	773	
==>e Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4098	4251	
==>e Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3386	3529	
==>ifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3374	3517	
==>ifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] d <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10579	10663	
==>har_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_pos(vertica <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20735	20846	
==>UTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
with compiled .pmc files. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20735	20846	
==>UTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution
with compiled .pmc files. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16334	16543	
==>nt !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16328	16537	
==>nt !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9980	10149	
==>ture} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $n->{signature <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2605	2725	
==>bool multi Num::is_odd (Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7969	8078	
==>'>
}
rule NumericLiteral {  # see 7.8.3
      <DecimalLiteral>
    | <HexIntegerLiteral>
}
rule DecimalLiteral <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	735	832	
==>itz.

This library is free software; you may redistribute and/or modify it under the
same terms as <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4663	4769	
==>/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $class ) <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2403	2507	
==>/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2937	3190	
==>)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3184	3437	
==>)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{te <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8654	8763	
==>his method comes into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8654	8763	
==>his method comes into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	362	458	
==>phers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unn <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	362	458	
==>phers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unn <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2654	2753	
==>dule is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblec <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2654	2753	
==>dule is currently somewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblec <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10994	11085	
==>tem B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10994	11085	
==>tem B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9084	9230	
==>ge required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX ob <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10561	10707	
==>ge required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX ob <==
2	/Users/nnunley/pugs/util/package-osx.pl	6706	6803	
==>ubroutine.3
        /usr/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1015	1128	
==>is primitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? Perl6::Internals::compile_pir($code)
        !! <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4285	4386	
==>nction, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

This runs all t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3361	3488	
==>efore>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3361	3488	
==>efore>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8841	8933	
==>> <DoubleStringCharacters>? <'"'>
    | <'\''> <SingleStringCharacters>? <'\''>
}
rule Double <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17619	17752	
==>rog, char* stringarg, char* strend,
                  char* strbeg, I32 minend, SV* screamer,
                  void* data, U32 flags) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	250	363	
==>n!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	250	363	
==>n!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25349	25444	
==>pair->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2552	2781	
==>: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2799	3028	
==>: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	208	347	
==>test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2633	2765	
==>te_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=h <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2633	2765	
==>te_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32613	32716	
==>ll insert the matching 'close' node into the
walking stack.

The purpose of adding an ending node to the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16712	16816	
==>nyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13133	13237	
==>nyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	16	115	
==>oinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	16	115	
==>oinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $eve <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	719	836	
==>span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	719	836	
==>span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49997	50208	
==>,            
            sub {
                my $e = shift;
                $e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23948	24073	
==>> $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen',
      data => [],
      down => 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5759	5919	
==>$t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exi <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6119	6238	
==>ts );
    }	
    elsif $tree[0] eq '"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLValue""pParams"" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1985	2130	
==>ation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1985	2130	
==>ation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6863	7151	
==>) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6863	7151	
==>) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15425	15555	
==>L();
  }

  my $pos = $X::pos;
  my $cap = $X::cap;
  my $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $nam <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1696	1795	
==>ot returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1696	1795	
==>ot returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18658	18753	
==>For example,
this module automatically tries to use slight variations of the nickname in the
log <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18658	18753	
==>For example,
this module automatically tries to use slight variations of the nickname in the
log <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3238	3351	
==>{ 0 }; # or arrows
sub free_vars { () }; # typicall there are no free vars inside a thingy

package type::operator <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1042	1155	
==>er
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1042	1155	
==>er
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10908	11003	
==>how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the specif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10908	11003	
==>how many members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the specif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20342	20445	
==>ZED FIELD NAMES

The header field name spelling is normally canonicalized including the
'_' to '-' trans <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20342	20445	
==>ZED FIELD NAMES

The header field name spelling is normally canonicalized including the
'_' to '-' trans <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17357	17492	
==>) }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13778	13913	
==>) }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$l <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20873	20980	
==>a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

A <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20873	20980	
==>a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

A <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15913	16044	
==>lti Str::chop (  Str  $string is rw                 --> Char )
 multi Str::chop ( Str *@strings = (CALLER::<$_>) is rw --> Char )

T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1783	1938	
==>gify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1783	1938	
==>gify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1868	1982	
==>ssoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1868	1982	
==>ssoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix' <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5650	5750	
==>.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's P <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5650	5750	
==>.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's P <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11974	12078	
==>urns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the el <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11974	12078	
==>urns the element in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the el <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8162	8515	
==>lem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8162	8515	
==>lem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	804	993	
==>Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $transl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	804	993	
==>Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $transl <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2351	2447	
==>an Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENS <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2351	2447	
==>an Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENS <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1534	1622	
==>"$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_R <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	29	145	
==>on
use utf8;

# sub £to€ {  @_[0] * 1.4656 } # geht leider nicht!
sub PoundToEuro { @_[0] * 1.4656 }

# interpolie <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5196	5332	
==>bstr target, pos, 1
    $I2 = index "[{(<", $S0
    if $I2 < 0 goto term_bx1
    $S2 = substr "]})>", $I0
    inc pos
  term_bx1:
    $S0 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2785	2897	
==>se $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runti <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2785	2897	
==>se $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10218	10359	
==>l) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "don <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10218	10359	
==>l) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "don <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	624	722	
==>For functions exported to the global `*` namespace, please use
the `is builtin` trait.

=cut


clas <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	306	445	
==>AM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VM <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	306	445	
==>AM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9340	9480	
==>lse {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9328	9468	
==>lse {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@matc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22210	22301	
==>mal in-RAM
storage implementation for the L<Relation> library.

I<TODO: REWRITE THE FOLLOWIN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20267	20361	
==>d_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receiv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20267	20361	
==>d_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot receiv <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	975	1092	
==>y and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	975	1092	
==>y and so return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10450	10550	
==>d rooted at <20050502192508.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filenam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25762	25858	
==>ningful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25762	25858	
==>ningful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37556	37686	
==>ge Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bles <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11527	11643	
==>substr target, pos, 2
    if $S0 == ": " goto subrule_text
    $S0 = substr target, pos, 1
    if $S0 != " " goto sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32191	32290	
==>ave no ending node, and most don't need to to do
anything to the walking stack.

When an object does <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3329	3420	
==>_push'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (push|unshift) <p6w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1391	1495	
==>em) returns Object {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%! <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1391	1495	
==>em) returns Object {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%! <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10763	10871	
==>e_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10763	10871	
==>e_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10066	10239	
==>e' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'inser <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10066	10239	
==>e' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'inser <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18139	18245	
==>uctor. If the nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18139	18245	
==>uctor. If the nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4921	5044	
==>ST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not all <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4921	5044	
==>ST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not all <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4954	5081	
==>file or die "Could'nt open file $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv_self conv_array conv <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7938	8041	
==>die "Couldn't serialize bucket to \"@{[ BUCKET ]}\": $!\n";

  exit if $exit;
}

__DATA__
<?xml version= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	715	832	
==>ed
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	715	832	
==>ed
sub constant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len. <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2473	2577	
==>.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterator->ne <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1743	1838	
==>method is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children } <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1743	1838	
==>method is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	235	334	
==>dont have a separate tokenizer.
#   * <SourceCharacter> removals.
#     Several "SourceCharacter but <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34300	34398	
==>cter.

We have added a handler for the '&' metacharacter, but now we need to
write the supporting c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1795	1894	
==>multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1795	1894	
==>multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1326	1482	
==>quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1326	1482	
==>quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30309	30402	
==>il if
any members of C<$attrs> do not match attribute names of the invocant
Relation::Example. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2575	2686	
==>ar>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2759	2870	
==>ar>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31579	31672	
==>ifthen

Whether this object has a true/false branch (like the C<(?(...)T|F)>
assertion).

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3747	3922	
==>age Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $self->{data}) {
	$self->{data}->visual;
      }
      else {
	# The actual bug is in Ha <==
2	/Users/nnunley/pugs/util/package-osx.pl	4812	4909	
==>an3/Perl6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2967	3111	
==>ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if $debug;
          my $var = [@{$Z::oop{$id}{ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2602	2714	
==>hod) or return;

    unshift @_, $obj;
    goto &{$obj->can($method)};
}

sub load {
    my ($self, $method) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1990	2116	
==>es{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1990	2116	
==>es{'//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4822	4925	
==>tersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4822	4925	
==>tersect = @intersect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5915	6022	
==>te_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5915	6022	
==>te_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	34	132	
==>::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	34	132	
==>::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1257	1381	
==>atus::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1257	1381	
==>atus::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Conte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	151	270	
==>mangle_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _man <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12378	12503	
==>=> $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12378	12503	
==>=> $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$va <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1121	1223	
==>rl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1121	1223	
==>rl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8683	8811	
==>(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8683	8811	
==>(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4556	4653	
==>cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4556	4653	
==>cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16604	16718	
==>variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21030	21144	
==>variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies th <==
2	/Users/nnunley/pugs/util/version_h.pl	1995	2103	
==>because
  # our handle for $version_h got slot #0, like STDIN.
  no warnings "io";
  open OUT, "> $version_h" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1685	1816	
==>UG - collision with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    assoc => 'left',
    #    precedence => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22272	22365	
==>y C<?>, which doesn't warrant the warning.

Added "Unrecognized escape" warnings to I<all> esc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4240	4364	
==>) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4240	4364	
==>) 
        || die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4571	4670	
==>a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4571	4670	
==>a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / intersec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6890	7046	
==>ally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6890	7046	
==>ally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1674	1783	
==>2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $code = (length($ARGV[0]) ? $ARGV[ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3999	4093	
==>Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unico <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3999	4093	
==>Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unico <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1323	1449	
==>is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1323	1449	
==>is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  ha <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2719	2823	
==>( $syncat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "pref <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2490	2587	
==>t>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2490	2587	
==>t>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	790	909	
==>$prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser\((.* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16987	17081	
==>ertain localization methodology
in an easily accessable manner, such that would not be possible <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16987	17081	
==>ertain localization methodology
in an easily accessable manner, such that would not be possible <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3727	3824	
==>fix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3727	3824	
==>fix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4893	4993	
==>Safe::Annotation->new(
			type => $return_type,
			orig => $app,
			struct_equiv => $unified_app,
		) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1554	1670	
==>lex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1554	1670	
==>lex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1079	1181	
==>!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1079	1181	
==>!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@items) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4959	5067	
==>r new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4959	5067	
==>r new parenthesis rules! :)
      my $chan = normalize (split " ", $event<rest>)[0];

      unless defined %! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24976	25108	
==>.. })
  package Regexp::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	273	378	
==>tor = Pugs::Grammar::Precedence->new( 
        grammar => 'Pugs::Grammar::Operator',
        header  => q! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14119	14216	
==>he headers
will be visited in the recommended "Good Practice" order.

Any return values of the cal <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14119	14216	
==>he headers
will be visited in the recommended "Good Practice" order.

Any return values of the cal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18463	18619	
==>tant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18742	18898	
==>tant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'gra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9578	9681	
==>ve.

Instances of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9578	9681	
==>ve.

Instances of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6677	6778	
==>scr  => "Checking for Pugs binary",
  help   => "Compile Pugs if you haven't done so already (looked a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3845	3940	
==>'... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5747	5842	
==>'... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3293	3398	
==>cro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rul <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3293	3398	
==>cro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2965	3098	
==>e;
    my $builddir = Path::Class::dir( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff ove <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3093	3214	
==>);

    # $base now contains the directories the resulting relative path
    # must ascend out of before it can descend to <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3093	3214	
==>);

    # $base now contains the directories the resulting relative path
    # must ascend out of before it can descend to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13712	13810	
==>a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17189	17287	
==>a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12386	12480	
==>ce_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5029	5123	
==>ce_object(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23010	23130	
==>, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Perf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23010	23130	
==>, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Perf <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2148	2358	
==>d$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2148	2358	
==>d$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4033	4137	
==>:Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4033	4137	
==>:Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3566	3665	
==>ver 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3566	3665	
==>ver 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12238	12344	
==>turns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12238	12344	
==>turns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	391	544	
==>_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	875	1028	
==>_;
    
    my $struct;
    my $tmpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1321	1418	
==>efined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1321	1418	
==>efined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the methods used for a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21749	21883	
==>e Language
Independence>.  To further demonstrate the difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21749	21883	
==>e Language
Independence>.  To further demonstrate the difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1073	1176	
==>_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Run <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1073	1176	
==>_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Run <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	686	794	
==>big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	686	794	
==>big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6055	6163	
==>sual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visual;
  }
}


{
  pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3366	3466	
==>, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2380	2494	
==>string type";    
    return str->new(
        CORE::join $delimiter->to_native => 
        map { $_->to_str->to_na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6937	7049	
==>lang \< perl5 \> <p6ws>? 
    \) <p6ws>? \;
        { return { eval_perl5 => $<literal> } }
RULE
*{'_return'} = P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24189	24274	
==>erl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'next'))";
}
sub p6_red <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1632	1780	
==>GNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1599	1747	
==>GNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @d <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	291	404	
==>ift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $File::Fin <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	303	416	
==>ift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $File::Fin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14506	14622	
==>r $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <R <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14506	14622	
==>r $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8330	8462	
==>rn split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, pu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8330	8462	
==>rn split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, pu <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4197	4311	
==>LE
either in this directory or under your home. You can use the
skeleton in util/smoker-example. Alternatively, say <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22953	23050	
==>_ANCH_SBOL 
 ROPT_ANCH_SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	652	760	
==>_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30678	30767	
==>se C<< $obj->SUPER::method() >> inside the F<__object__> class,
because F<__object__> does <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9756	9854	
==>ailable:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You mig <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9756	9854	
==>ailable:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You mig <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	132	232	
==>s. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches not <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	132	232	
==>s. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches not <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14671	14777	
==>traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14671	14777	
==>traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconne <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	688	824	
==>ugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or d <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	688	824	
==>ugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or d <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	850	989	
==>{
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq ' <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	850	989	
==>{
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20715	20810	
==>ethods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20715	20810	
==>ethods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9333	9444	
==>me;
	$aname = '?'.$aname if $op{'isOptional'};
	$aname = '*'.$aname if $slurpy;
	$aname = '+'.$aname if $op{'isN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1410	1592	
==>::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1410	1592	
==>::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14690	14797	
==>eg, \$how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6466	6553	
==>:Util::blessed($type) and $type->isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub ty <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5763	5884	
==>er::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        wh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5763	5884	
==>er::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	223	329	
==>);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invit <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	223	329	
==>);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11951	12050	
==>e field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11951	12050	
==>e field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $valu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2198	2304	
==>elf->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = $inst->control_dir( $self->pac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7846	7951	
==>s

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7846	7951	
==>s

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	120	221	
==>kt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] %para{'x'}, %conf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17355	17459	
==>e, and hence provides these
benefits to developers and users alike.

For some practical examples of Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17355	17459	
==>e, and hence provides these
benefits to developers and users alike.

For some practical examples of Local <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	840	944	
==>zation of Rosetta::Engine::Example for English

=head1 VERSION

This document describes Rosetta::Engine:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	840	944	
==>zation of Rosetta::Engine::Example for English

=head1 VERSION

This document describes Rosetta::Engine:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5599	5704	
==>oed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the AP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5599	5704	
==>oed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=head2 Writing for the AP <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5279	5412	
==>a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5279	5412	
==>a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	866	992	
==>_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1072	1198	
==>_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24130	24240	
==>t then becomes a version of that
language.  By contrast, Locale::KeyedText does no compile time binding and
wil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24130	24240	
==>t then becomes a version of that
language.  By contrast, Locale::KeyedText does no compile time binding and
wil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2962	3376	
==>:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Exter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2962	3376	
==>:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # Exter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21476	21621	
==>STROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44383	44528	
==>STROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get(' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1315	1417	
==>ompile>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1315	1417	
==>ompile>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilte <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2208	2356	
==>:True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return B <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2208	2356	
==>:True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5979	6107	
==>( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5967	6095	
==>( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4984	5109	
==>= shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## ------------------------------------- <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2204	2318	
==>_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the nearest odd number
    given abs($x) - floor( abs($x <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1072	1162	
==>::Perl;

=head1 DESCRIPTION

L<Blondie::Backend::Perl::Interpreter> contains the tree reduc <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9833	9946	
==>ollowing
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6097	6194	
==>X), ")".
p5_elemental(bos)   --> "\\A".
p5_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16440	16530	
==>,F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,Ey),
  set_modifie <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7611	7851	
==>!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8075	8315	
==>!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5438	5538	
==>tr> and the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5438	5538	
==>tr> and the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3346	3445	
==>$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3346	3445	
==>$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards (*@filenames) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4240	4386	
==>ess {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4380	4526	
==>ess {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6517	6715	
==>:Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6517	6715	
==>:Match.new),
                   -> $m {
                        # XXX. Eeeeeeyuck!  This is totally awkward.
                        my $subobj = $m.match.clone(
                            from => $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2761	2858	
==>LD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2761	2858	
==>LD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21341	21451	
==>erhaps the key name can start with the package name?).  An advantage of
this is that, for example, your package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21341	21451	
==>erhaps the key name can start with the package name?).  An advantage of
this is that, for example, your package <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2848	2955	
==>GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2848	2955	
==>GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6972	7113	
==>eop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6739	6875	
==>eop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	90	238	
==>t {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when ' <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	90	238	
==>t {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	316	431	
==>rypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	316	431	
==>rypt>);
    print $encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10754	10853	
==>ar_class(class_pos(newline))           --> "\\n", !. %# XXX - not quite?
p6_char_class(class_neg(new <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	189	284	
==>list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pairs]) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14746	14846	
==>es need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deepl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14804	14904	
==>es need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deepl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4537	4736	
==>, @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4537	4736	
==>, @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38891	38982	
==>ocant Relation::Example and that match any tuples of C<$other> along
their common attributes <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	549	719	
==>und matching '$package'\n" unless $tried;
}                        

### XXX merge with pp_deps.pl            
sub _recurse_resolve {
    my @deps = @_;    
    
    ### w <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7656	7770	
==>gs'} & $o->flag_val_i) {
       $re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package R <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9987	10202	
==>ed";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{pro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11464	11679	
==>ed";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{pro <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	77	181	
==>* change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	77	181	
==>* change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23369	23463	
==><lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23369	23463	
==><lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8681	8815	
==>->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dumper $n;

        my $name = _mangle_id <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9801	9904	
==>ew

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9801	9904	
==>ew

Constructs a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as para <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	538	646	
==>ckage = undef;

# for sending messages to an opaque object 
# (very primitive at the moment)
sub opaque::send <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17505	17595	
==>pression>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3493	3634	
==>ser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        precedence => 'equal', <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	695	849	
==>de {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = cat <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	695	849	
==>de {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = cat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	617	717	
==>tr $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	617	717	
==>tr $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6604	6785	
==>s!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6604	6785	
==>s!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3631	3735	
==>, pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a c <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3631	3735	
==>, pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	579	784	
==>al;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	579	784	
==>al;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14617	14734	
==>als <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14617	14734	
==>als <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6640	6763	
==>urn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6640	6763	
==>urn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17356	17470	
==>)
 multi Str::ucfirst    ( Str $string = CALLER::<$_> --> Str )

Performs a Unicode "titlecase" operation on the fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	377	482	
==>>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	377	482	
==>>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote. <==
2	/Users/nnunley/pugs/util/grokprims.pl	665	766	
==>lse {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, ret=>$ret, assoc=>$assoc, args=>[@ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	232	318	
==>topt::Long qw(:config no_auto_version);

my (@eval,$repl,@inc_dirs,$compile,$as_yaml);m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1615	1716	
==>"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1615	1716	
==>"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SE <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5939	6044	
==>ous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method con <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5939	6044	
==>ous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method con <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11211	11332	
==>2!heading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_inter <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2653	2755	
==>ie "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix saved as <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	884	1039	
==>thod ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	884	1039	
==>thod ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2182	2314	
==>har => 'A') if $cc;
    return $S->object(bol => 'sbol' => '\A');
  });

  # nbound (not a word boundary)
  $self->add_handler('\B' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31755	31850	
==>The minimum repetition count of this object (for quantifiers).

=item neg

Whether this object i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	34	131	
==>ule;

package MatchX;
package MatchX::Subrule;
@ISA=qw(MatchX Match::Subrule);
package MatchX;
@IS <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1207	1362	
==>ng is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $st <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1207	1362	
==>ng is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $st <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	746	846	
==>e written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if presen <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	746	846	
==>e written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if presen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4163	4280	
==>rm2 );\n";
}
sub node::assign_hash_to_scalar {
   my $var = emit(get_data($_[0], '$<variable>'));
   my $lit = emit(ge <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13539	13639	
==>t be a real problem.
  [It was.  The regexp implementation is intimately entangled with
  the rest of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7042	7171	
==>::Parser;
  my $parser = Regexp::Parser->new;

=head2 Setting a Regex

To have the parser work on a specific regex, you can do use <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	227	344	
==>@ARGV ) {
    
    ### copy all the relevant files to the repo
    for my $archive ( qx[find root-* -type f | grep '$E <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	182	308	
==>lle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /regex/   # ein passender Hash-Key
%a ~~ %b        # gleiche Hashes
any($a,'b',/re <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20832	20924	
==>rmdir seek seekdir select(both)
# send setsockopt shutdown slurp socket socketpair stat symli <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2279	2447	
==>$fh if $fh;
                                    return;
                            };      

use constant ISA_JIB_META   => sub { UNIVERSAL::isa(shift(), 'JIB::Meta') } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5661	5763	
==>event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5661	5763	
==>event<object>}<users>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normal <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7228	7347	
==>> chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7228	7347	
==>> chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => ch <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2394	2506	
==>($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2394	2506	
==>($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	177	273	
==>pher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossibl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	177	273	
==>pher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossibl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7503	7609	
==>xtests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextests --> Int|List )
 multi Array::pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5279	5391	
==>s;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5279	5391	
==>s;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %chann <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	23	137	
==>Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	23	137	
==>Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8011	8119	
==>or @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. R <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8011	8119	
==>or @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. R <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10929	11031	
==>my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11121	11223	
==>my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	279	376	
==>, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @Pr <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	279	376	
==>, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @Pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8722	8832	
==>er/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6252	6358	
==>er/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20721	20821	
==>.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20721	20821	
==>.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14825	14948	
==>$prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14819	14942	
==>$prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) { <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1106	1204	
==>ile) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_ge <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1106	1204	
==>ile) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1376	1504	
==>' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1952	2080	
==>' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1582	1693	
==>$2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Packag <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4785	4896	
==>$2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Packag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7689	7792	
==>against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7428	7528	
==>against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to ma <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1186	1379	
==>y }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1186	1379	
==>y }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13951	14076	
==>user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13951	14076	
==>user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	5	110	
==>e Perl::Compiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	5	110	
==>e Perl::Compiler::CodeGen;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2800	2914	
==>: method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3013	3127	
==>: method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types t <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	899	1040	
==>k_notifications)».dispatch;
    }
    
    method notify (*@args) {
        .notify(Class::Events::Event.new(*@args));
    }

    method mk_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3427	3528	
==>0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3611	3712	
==>0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 < <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7727	7867	
==>hind_not(R)) --> p5_elemental(lookbehind_not(R)).
p5_condition_test(condi(I))          --> "(", digits_int(I1), ")", {I is I1 - 1}.

p5_modif <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10798	10898	
==>lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_meta(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4250	4593	
==>f ($arg =~ /^\-\>/) {
                        #warn "hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8064	8160	
==>a::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8064	8160	
==>a::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4021	4124	
==>lass Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4021	4124	
==>lass Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($k <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5860	6015	
==>ex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5860	6015	
==>ex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11574	11677	
==>intf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&enco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11574	11677	
==>intf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&enco <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16161	16263	
==>ing a bit more predictable.
    $results =~ s/\n+$//;
    $results =~ s/at\s+misctmp\d+\s+line/at - lin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1641	1762	
==>xport_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1641	1762	
==>xport_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars},
    };
} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27562	27665	
==>y(x)");
is(t(comb( fun => $one_elem_list, param => val(5) )), "list int", ":t listify(5)");
is(t($length <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	884	991	
==>-*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X" -x -S "%0" %1 %2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3059	3169	
==>NV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MySer <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3059	3169	
==>NV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MySer <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10955	11066	
==>ge Regexp::Parser::open;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    my $idx = $o->{'npa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8201	8303	
==>us reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8201	8303	
==>us reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create your tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	940	1059	
==>eed to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print(" <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	940	1059	
==>eed to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print(" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	717	832	
==>nctional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	717	832	
==>nctional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $c <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3528	3655	
==>caller[3],
        subtype => @caller[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10988	11085	
==>B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10988	11085	
==>B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	347	430	
==>le->compile(q(\w+))->code;
*block = Pugs::Compiler::Rule->compile(q(\{[<block>|<-[}] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20866	20967	
==>routine simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25418	25519	
==>routine simply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1432	1567	
==>mp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Sock <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1432	1567	
==>mp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Sock <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4531	4627	
==>ds are
implemented as hash keys to code refs. The only function this module
exports is the constr <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4531	4627	
==>ds are
implemented as hash keys to code refs. The only function this module
exports is the constr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2652	2762	
==>ode = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2640	2750	
==>ode = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	768	867	
==>rns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	768	867	
==>rns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	518	763	
==>( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	519	764	
==>( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	518	656	
==>turn);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    pri <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	485	623	
==>turn);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    pri <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21486	21585	
==>ibutes may store values of the same class;
every Relation tuple must be distinct from the other tupl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26038	26137	
==>ibutes may store values of the same class;
every Relation tuple must be distinct from the other tupl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6982	7195	
==>.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6982	7195	
==>.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	363	460	
==>* unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.com <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	363	460	
==>* unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7867	7988	
==>} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7855	7976	
==>} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         pus <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9080	9193	
==>le for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Modul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9138	9251	
==>le for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Modul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1359	1471	
==>hing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1359	1471	
==>hing
as it does above in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1036	1154	
==>none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method inclu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1036	1154	
==>none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method inclu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25714	25850	
==>n',
      type => 'logical',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9478	9590	
==>gnostic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	519	616	
==>_lib_paths due to confusion between Perl and C";
	shift()->cc_lib_paths(@_);
}

sub lib_links {
	w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12272	12376	
==>art => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12272	12376	
==>art => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	263	377	
==>=> 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	263	377	
==>=> 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	184	349	
==>s rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	184	349	
==>s rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2839	3008	
==>erbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_el <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2839	3008	
==>erbatim .= chomp;
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_el <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4348	4587	
==>ift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4167	4299	
==>\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4307	4439	
==>\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33537	33640	
==>empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33537	33640	
==>empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5428	5539	
==>bject.

You will not be able to examine the response code or response headers
(like 'Content-Type') when you are <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5428	5539	
==>bject.

You will not be able to examine the response code or response headers
(like 'Content-Type') when you are <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28823	28923	
==>h_utf8 = 0)))

 #define REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10169	10255	
==>onal, $isNamed, $isLValue, $isWritable, $isLazy, $paramName, $paramContext, $paramDefau <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17977	18080	
==>mpile attempts to make source filtering a sane process, by
parsing up your module's source code into var <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17977	18080	
==>mpile attempts to make source filtering a sane process, by
parsing up your module's source code into var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10006	10111	
==>94 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10006	10111	
==>94 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5795	5911	
==>%used);
    for my $n (@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $name = $n->{'name'};
        my $rep = ucfir <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2766	2858	
==>er November December>;
method month_name returns Str { @months[./month_0] }

our @months_abbr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15889	15987	
==>("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15889	15987	
==>("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15247	15408	
==>( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inline <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15241	15402	
==>( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inline <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27807	27900	
==>msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27807	27900	
==>msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10394	10503	
==>ects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10394	10503	
==>ects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8221	8311	
==>n">
<head>
  <title>Pugs Smoke Reports</title>
  <meta http-equiv="Content-Type" content="t <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	403	526	
==>oblems when there are fundamental bugs in perl.

package TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '.. <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6456	6561	
==>(@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@array: -- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4213	4310	
==>ur own backslash and assertion rules or macros, you may
    use the following syntactic categories <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7093	7183	
==>value from another Object singleton/class method');
   
is($Object->singleton_test_on_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4737	4849	
==>ible
    in the lexical scope to have any effect. It's possible the
    internal/external distinction is just a t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12811	12920	
==>s positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12811	12920	
==>s positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	216	322	
==>ed to load this here in 
# order for things to init 
# in the correct order
use Perl6::Core::Bit;

# compar <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1589	1685	
==>gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1589	1685	
==>gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9208	9342	
==>g") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9208	9342	
==>g") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6524	6640	
==>te the available files
    $self->available( [ @{ $self->available }, $inst_pkg ] );
        
    $self->write or ret <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3737	3836	
==>as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3737	3836	
==>as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1200	1320	
==>ity ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1200	1320	
==>ity ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($s <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4435	4546	
==>de\n"
        unless $Config{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2652	2770	
==>multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2652	2770	
==>multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29815	29925	
==>y};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuff <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29815	29925	
==>y};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuff <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1569	1680	
==>s HTML
    as we go.  Then get the design docs, and format those as HTML, linking to 
    the links, and inserti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2005	2147	
==>&name
    
    #~ __PACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => 'left',
        #~ precedence => 'equal',
        #~ other <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6943	7132	
==>erl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6943	7132	
==>erl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	694	792	
==>oins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=hea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	694	792	
==>oins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=hea <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5489	5583	
==>$tail, $rev, $mid, $wc);
print "Hooray, you passed.\n";

END { defined($intmp) and unlink($intm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10468	10658	
==>t
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10468	10658	
==>t
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31741	31834	
==>respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36291	36384	
==>respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	153	562	
==>del-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	153	562	
==>del-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4165	4323	
==>> '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "de <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4165	4323	
==>> '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	803	898	
==>ule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	803	898	
==>ule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1962	2105	
==>y_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            Param('$y') <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4391	4501	
==>ptures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the match object ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4391	4501	
==>ptures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the match object ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5421	5527	
==>r new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cac <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5421	5527	
==>r new parenthesis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1408	1580	
==>el::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1408	1580	
==>el::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2172	2272	
==>hod subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2172	2272	
==>hod subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $other.includes <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1276	1411	
==>("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1243	1378	
==>("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), retur <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6174	6287	
==>>new->reduce($node));
			$de_facto_type->set($expected_type);
			return $node;
		} else {
			warn "casting";
			re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14837	14948	
==>g
  package Regexp::Parser::group;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1697	1801	
==>rn;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1697	1801	
==>rn;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	518	659	
==>bs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.open <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	518	659	
==>bs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.open <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2330	2445	
==>f ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15048	15141	
==>CLASS (&dispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class->send('add_meth <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3659	3769	
==>ol {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3659	3769	
==>ol {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.intersec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6578	6720	
==>ltiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tm <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6578	6720	
==>ltiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21007	21107	
==>tiple times.  The result of doing so,
it that only the last of these fields will be present in the he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21007	21107	
==>tiple times.  The result of doing so,
it that only the last of these fields will be present in the he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35014	35119	
==>g Translator object, you must create a new
object that is a clone of the first but for the changes.

=back <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35014	35119	
==>g Translator object, you must create a new
object that is a clone of the first but for the changes.

=back <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8939	9104	
==>1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8939	9104	
==>1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	695	809	
==>) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	695	809	
==>) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3226	3326	
==>args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3226	3326	
==>args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	955	1058	
==>Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	955	1058	
==>Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3856	3962	
==>ter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner gro <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3856	3962	
==>ter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner gro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4034	4301	
==>sg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=en <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4034	4301	
==>sg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=en <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	764	885	
==>O

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary search instead of linear s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	764	885	
==>O

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary search instead of linear s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	720	824	
==>ch::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	720	824	
==>ch::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10344	10452	
==>r subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Gloc <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10344	10452	
==>r subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Gloc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31439	31539	
==>se of you that don't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3409	3504	
==>()->{""};
  my $operatorEmpty = $self->operatorTable()->{""};

  ($matchObj, my $target, my $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25512	25631	
==>}


{
  # (??{ ... })
  package Regexp::Parser::logical;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	45	151	
==>k
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	45	151	
==>k
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub altern <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13874	13999	
==>{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYR <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13874	13999	
==>{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2867	2970	
==>ring>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2867	2970	
==>ring>

The query string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27550	27664	
==>o each tuple.  The new Relation has all
of the tuples of the original (or rather, the corresponding extension of
ea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32102	32216	
==>o each tuple.  The new Relation has all
of the tuples of the original (or rather, the corresponding extension of
ea <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14616	14798	
==>es} = (1) x @new_dir_files;
                delete @f{@dir_files};
                my @f = sort keys %f;
                print "LEAKED FILES: @f\n";
                @dir_files = @new_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	381	494	
==>$self = shift;
    
    my @supers = $self->{class}->send('superclasses')->to_native;
    my @seqs = (
        lis <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5438	5545	
==>pose of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5438	5545	
==>pose of this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15399	15533	
==>X - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15393	15527	
==>X - inlined char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5923	6199	
==>vents<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5923	6199	
==>vents<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1359	1466	
==>:Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makef <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1359	1466	
==>:Spec->rel2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makef <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18356	18470	
==>=> sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14777	14891	
==>=> sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2894	3037	
==>ring closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing clos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3078	3221	
==>ring closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing clos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	702	838	
==>g send for $label";
    
    $label = str->new($label) 
        unless (blessed($label) && $label->isa('str'));
    
    my $args = list- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25278	25371	
==>\n\tFailed %d/%d tests, %.2f%% okay.>

For any single script that has failing subtests statist <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1820	1912	
==>untests(@tests)> runs all the testscripts named
as arguments and checks standard output for t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24654	24780	
==>>{flags}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $sel <==
2	/Users/nnunley/pugs/util/package-osx.pl	7466	7563	
==>n3/Perl6::Spec::Concurrency.3pm
        /usr/local/man/man3/Perl6::Spec::Documentation.3
        / <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3152	3246	
==>rintf(stderr," flags=%lu\n",flags);
    fprintf(stderr," start=%lu\n",start);
/*
    fprintf(st <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	20	123	
==>e v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	20	123	
==>e v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3296	3416	
==>=> 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it w <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3296	3416	
==>=> 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12011	12104	
==><new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document object. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12011	12104	
==><new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Document object. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14472	14582	
==>hough).
The Node class is pure and deterministic, such that all of its class and
object methods will each retur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14472	14582	
==>hough).
The Node class is pure and deterministic, such that all of its class and
object methods will each retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32501	32605	
==>e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33156	33260	
==>e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1265	1393	
==>ti int(Num $x = CALLER::<$_> --> Int) { Num::int($x) }


 multi  Num::exp (  Num  $exponent             ; Num :$base --> Num )
 { <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23971	24091	
==>iReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3078	3178	
==>l load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is ove <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2969	3065	
==>l load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is ove <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	492	669	
==>";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	485	662	
==>";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$ru <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	835	956	
==>Int )
 { Pugs::Internals::floor($x) }


 multi  Num::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18784	18892	
==>-- July 3, 2004

=over 4

=item I<anyof_class> Changed

If an I<anyof_class> element is a Unicode property or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6323	6457	
==>t( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{param} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6598	6731	
==>t( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{param} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	209	312	
==>mpiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	194	293	
==>mpiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1686	1813	
==>erl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1686	1813	
==>erl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	149	249	
==>\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	149	249	
==>\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1312	1423	
==>tive] = $value;
    return nil->new();
}

sub remove {
    my ($self, $index) = @_;
    (blessed($index) && $ind <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10321	10438	
==>ar finalized; it should
    # support asynch/exclusive/other stuff. For lots of discussion but no final
    # spec, se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11428	11580	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11707	11859	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5257	5355	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (print|say|warn|die) <p6ws> <i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5889	5995	
==>RT", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5889	5995	
==>RT", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq norma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11086	11227	
==>"done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11086	11227	
==>"done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5949	6101	
==>5),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5949	6101	
==>5),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1036	1201	
==>( $val );
    }
    
    $self->package( $self->meta->package );
    
    ### XXX flesh out this format better
    {   my @files = eval {
            ### XXX CONFIG!! <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/class.pl	9	115	
==>pl - Klassen in Perl 6
use v6;

class MeineKlasse {
	method grüße { say "Hallo :-)" }
}

my $var = new Me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25902	26041	
==>(
    # method label
        symbol->new('subclasses'),
    # method body
        method->new(
            $::ENV,
            method::signa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2497	2600	
==>f this class represents a client's request.  It also contains extra
information passed on by the HTTP se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2497	2600	
==>f this class represents a client's request.  It also contains extra
information passed on by the HTTP se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1533	1660	
==>$field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1533	1660	
==>$field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node:: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1774	1875	
==>tions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1774	1875	
==>tions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ s <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	759	861	
==>name or die <<"END";
Can't determine a NAME for this distribution.
Please use the 'name' function in Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6564	6659	
==>).*?)?){[^}]*}(?{ &::hlp_oper;})');

my $Perl_prog = def_rule('prog','<statement>*');

my $sourc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	371	505	
==>) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	371	505	
==>) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3594	3698	
==>}];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname informati <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3594	3698	
==>}];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname informati <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7310	7414	
==>CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7368	7472	
==>CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITI <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7749	7996	
==>6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7749	7996	
==>6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8512	8623	
==>, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operator pair, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6048	6156	
==>, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator in
an operator pair, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4664	4769	
==>:= (<word>) \: \< $<id> := (.*?) \> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1769	1860	
==><"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $fil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5473	5584	
==>o::Object->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        push <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1537	1686	
==>mp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1537	1686	
==>mp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8977	9084	
==>ovided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted packag <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10454	10561	
==>ovided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted packag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3123	3226	
==>() } }
RULE
*{'sub_call'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5002	5169	
==>new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the confi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4829	4989	
==>new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the confi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5434	5703	
==>l ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5434	5703	
==>l ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8706	8825	
==>prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8706	8825	
==>prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $cla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8583	8698	
==>{
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8583	8698	
==>{
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = norma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23332	23438	
==>a format other than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-triv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23332	23438	
==>a format other than Perl
files.  Or alternately they have a compiled C component or otherwise have
non-triv <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9152	9326	
==>nce;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12629	12803	
==>nce;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3214	3328	
==>vent<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and hos <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3214	3328	
==>vent<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and hos <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7710	7792	
==>ition_test(lookbehind_not(R)) --> p5_elemental(lookbehind_not(R)).
p5_condition_tes <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3131	3222	
==>plement_previous, $set.complement_next, $set.complement_previous ),
        complement_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3131	3222	
==>plement_previous, $set.complement_next, $set.complement_previous ),
        complement_previ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16461	16554	
==>pes::unify(
		type($.if), type::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1016	1103	
==>\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { cond <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6352	6457	
==>r refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11198	11303	
==>r refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8707	8829	
==>s
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .return (mob)
 err_noclos <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1059	1215	
==>' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	938	1094	
==>' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8546	8682	
==>$file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8546	8682	
==>$file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3976	4104	
==>rname hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3976	4104	
==>rname hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	722	825	
==>lf, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	722	825	
==>lf, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10348	10453	
==>method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10348	10453	
==>method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%options, :mode<enci <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6952	7069	
==>r<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6952	7069	
==>r<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = strip_colon($reason);
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3043	3139	
==>s well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2934	3029	
==>s well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitte <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9715	9817	
==>up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9715	9817	
==>up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13055	13156	
==>ber Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suita <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13055	13156	
==>ber Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suita <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	594	762	
==>*
        (?: (\d+) \s* M )? \s*
        (?: (\d+) \s* D )? \s*
        (?: T \s*
            (?: (\d+) \s* H )? \s*
            (?: (\d+) \s* M )? \s*
            (?: ( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2643	2756	
==>at eq "postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq "circumfix" )
  {
    $to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10353	10469	
==>e.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're curren <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10353	10469	
==>e.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're curren <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11303	11404	
==>perator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11303	11404	
==>perator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11745	11834	
==>t>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.hu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11745	11834	
==>t>autrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.hu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2451	2590	
==>ame => '*',
        block => sub {},
        assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infi <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	888	1019	
==>rm>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CP <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	888	1019	
==>rm>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	151	251	
==>ternal
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missing arg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	151	251	
==>ternal
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missing arg <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21507	21613	
==>es of the same class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26059	26165	
==>es of the same class;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	812	923	
==>runtime(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->reduce( <==
2	/Users/nnunley/pugs/misc/S29_round.pl	406	524	
==>d .5 up above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = si <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5756	5869	
==>d returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5756	5869	
==>d returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8754	8850	
==>et::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates an object <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8754	8850	
==>et::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates an object <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18312	18403	
==>(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13262	13354	
==>$string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13262	13354	
==>$string, \%entity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterm <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4851	4955	
==>et1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4851	4955	
==>et1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1648	1753	
==>ners.



the Body is just a structure with three node forms: Var

(variable lookup), App (application) and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1582	1684	
==>ners.

the Body is just a structure with three node forms: Var
(variable lookup), App (application) and <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3800	3904	
==>bal "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpression, $target, $pos, $len <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2314	2413	
==>oin("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6543	6703	
==>ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6332	6486	
==>ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16394	16520	
==>y ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16394	16520	
==>y ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModu <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	604	733	
==>har eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	604	733	
==>har eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13395	13539	
==>=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_str_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x) <==
2	/Users/nnunley/pugs/util/run-smoke.pl	361	460	
==>dules installed.
Please install it from the CPAN and try again.

A bundle is available to install at <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4657	4751	
==>$diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.ma <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4657	4751	
==>$diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_span.ma <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	597	697	
==>OM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast S <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	597	697	
==>OM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2002	2112	
==>p:{ .get_assocations }
       );
}

# sigh ... how you get used to infrastructure you've built up in Perl5

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10072	10181	
==>hen->{data} };
      $ifthen->{data} = [ [ @{ $ifthen->{data} } ], $cond ];
      $rx->{tree} = $ifthen->{data <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2413	2504	
==>ailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compile <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2413	2504	
==>ailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compile <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4134	4239	
==>eturn $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4134	4239	
==>eturn $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	351	468	
==>' and ! eval { require LWP::Simple; 1 } ) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unav <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	386	501	
==>' and !eval { require LWP::Simple; 1 }) {
        $args{url} = $args{ftp_url}
            or (warn("LWP support unav <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2362	2490	
==>multi method Array::exists (@array : Int *@indices --> Bool )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	578	680	
==>*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub ge <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	578	680	
==>*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub ge <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2637	2739	
==>eck = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n", <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2637	2739	
==>eck = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n", <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7929	8073	
==>EQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error gettin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7929	8073	
==>EQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error gettin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	776	872	
==>a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	776	872	
==>a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the combinator to <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	405	516	
==>YPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote user

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	405	516	
==>YPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the remote user

=head1 SYNOP <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5154	5282	
==>fined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5154	5282	
==>fined $.start;
    my $tmp1 = "$.start";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1000	1115	
==>)->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2855	2970	
==>)->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = shift(@ARGV);
my $source <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6778	6895	
==>ompile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Rules, ju <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6551	6659	
==>ompile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Rules, ju <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	188	298	
==>*$//;
my @path = grep {!/^src$|^$/} File::Spec->splitdir( $path );
my $fullname = join '.', @path, $name;
my $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29326	29422	
==>om' handle to be executed, you must
explicitly add it to the queue (C<< $parser->{next} >>).

The <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	710	819	
==>the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub req <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	710	819	
==>the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub req <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19718	19818	
==>ogrammer to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19718	19818	
==>ogrammer to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capab <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8701	8876	
==>:= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12178	12353	
==>:= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2804	2921	
==>p { "$_" } @{$<rule>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Rat <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	634	736	
==>ss is a role with the enhancement that is it I<typable>.

This means;

=over

=item *

You can construc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4086	4241	
==>[0]->{out}= { op1 => 'call', sub => $_[1], } }

    | BAREWORD 'IF' exp   %prec P003 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            ex <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3221	3314	
==>$node);

	return $self->define_literal(@_) unless $self->can_reduce($node);

	my $kind = $node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4827	4983	
==>my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4839	4995	
==>my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	739	871	
==>"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	739	871	
==>"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11610	11711	
==>Literal {  # see 9.3.1
      <'Infinity'>
    | <DecimalDigits> <'.'> <DecimalDigits>? <ExponentPart>? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52223	52316	
==>)
);

## ----------------------------------------------------------------------------
## finis <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5541	5682	
==>ngth;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5541	5682	
==>ngth;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4045	4201	
==>ess) = @_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $! <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4018	4121	
==>of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for ex <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4018	4121	
==>of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini files, for ex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13545	13640	
==>rt => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holiday <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13545	13640	
==>rt => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holiday <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5824	5930	
==>1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5824	5930	
==>1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1431	1526	
==>configure how the tests are to
be run.

The interface is currently incomplete.  I<Please> contac <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5369	5471	
==>html",
    (map { $smoke{$_}          } qw<pugs_version pugs_revision osname runcore timestamp duration <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3897	4004	
==>m_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Ha <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3897	4004	
==>m_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10425	10541	
==>.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can choose a di <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10425	10541	
==>.enqueue({
      # Indicate that we're currently logging in, so our nick_already_used
      # handler can choose a di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3483	3630	
==>ture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3471	3618	
==>ture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15189	15299	
==>ueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15189	15299	
==>ueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Queue {
    h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1439	1564	
==>ory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1439	1564	
==>ory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10138	10289	
==>r/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10138	10289	
==>r/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	482	707	
==>ec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } els <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	482	707	
==>ec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } els <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3222	3436	
==>s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3222	3436	
==>s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3274	3374	
==>good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initializa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3274	3374	
==>good enough.  (You should be doing this anyway, though.)  It 
also means that the nonce or initializa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6984	7121	
==>{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all th <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6984	7121	
==>{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8565	8687	
==>:Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using exis <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8565	8687	
==>:Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using exis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14105	14245	
==>face = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14105	14245	
==>face = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2636	2732	
==>an the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2636	2732	
==>an the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3906	4005	
==>set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3906	4005	
==>set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7696	7823	
==>ew_proto( $match ) {
        return ${$match<category>}.add_op( 
            name => $match<name>, 
            fixity => ... <==
2	/Users/nnunley/pugs/util/importgraph.pl	969	1085	
==>), defined($3)];
    } elsif (/^import|^module/) {
      warn "Unrecognised import|module: $_";
    }
  }

  close $f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7043	7192	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7236	7385	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::al <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21758	21884	
==>nt isarray, iscapture
    .local string cname
    .local pmc reps

    iscapture = self["iscapture"]
    if iscapture == 0 goto <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6875	7004	
==>.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6875	7004	
==>.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5397	5494	
==>he Class method
fails_ok { $iFoo->name } '... instance calling metaclass method fails';

is($iFoo- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9749	9898	
==>}
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is export { unless($IS_PA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9749	9898	
==>}
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is export { unless($IS_PA <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	324	449	
==>) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	157	260	
==>List;

package hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use ba <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	889	1036	
==>um +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	889	1036	
==>um +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7830	8025	
==>clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7830	8025	
==>clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8892	8992	
==>empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for Set::I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8892	8992	
==>empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for Set::I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17049	17154	
==>gned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17049	17154	
==>gned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17374	17471	
==>rovides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" fil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17374	17471	
==>rovides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23624	23774	
==>uleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23903	24053	
==>uleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6458	6561	
==>Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Docume <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6458	6561	
==>Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Docume <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38555	38677	
==>mbol->new('get_attribute_list'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7639	7732	
==>$ghc_version, $ghc_flags, $self->assert_ghc_pkg($ghc));
}

sub has_ghc_package {
    my ($self <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7189	7303	
==>is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as pa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7189	7303	
==>is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	782	886	
==>, '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	840	944	
==>, '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4238	4366	
==>ould build a binary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9986	10107	
==>> $a),
				type::operator::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type::operator::nary->new(list => type: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2223	2328	
==>efore a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pa <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2223	2328	
==>efore a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6089	6318	
==>/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- or symlinks to minimize storage
                  #      requirements
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11158	11275	
==>\$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match::get( \$_[0], '\$()' ) /sgx;
    #print " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6813	6908	
==>ture versions.

This module is designed as a replacement (though not drop-in) for my old
F<YAPE: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1568	1658	
==><ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1568	1658	
==><ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9860	10085	
==>= @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    mu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9860	10085	
==>= @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    mu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	491	612	
==>ference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	491	612	
==>ference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15553	15647	
==>l be mutually recursive, they will easily be
able handle arbitrarily complex data structures au <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15611	15705	
==>l be mutually recursive, they will easily be
able handle arbitrarily complex data structures au <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	278	385	
==>up of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	278	385	
==>up of strings is generic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8449	8564	
==>alculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8449	8564	
==>alculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	113	200	
==>---------------------------------------
## Mini Meta-Model with Self-Bootstrapping Roles <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2069	2241	
==>ay )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             -- <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	708	836	
==>name => "simple multiplication",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&inf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	512	632	
==>prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	523	643	
==>prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $co <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2715	2968	
==>re>).add_children(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        Tree.ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10097	10232	
==>clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10097	10232	
==>clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delet <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15417	15522	
==>when the header value is set.

=over 4

=item $h.date

This header represents the date and time at which t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15417	15522	
==>when the header value is set.

=over 4

=item $h.date

This header represents the date and time at which t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2725	3023	
==>hildren(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        Tree.new(:node<Match>),
                        Tree.new(:node <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	460	581	
==>tring.  But perhaps there
should be a Helpers::join_map ns, { "...$^n..." }, which might tilt
the balance.

Clutter:: is a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4042	4209	
==>l) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4506	4673	
==>l) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1313	1418	
==>addToken("circumfix:[ ]", "term:", "nows", "PGE::Exp::Group");
    $optable->addToken("circumfix:( )", "te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11846	11966	
==>tr $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11846	11966	
==>tr $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9364	9501	
==>set eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "a <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9364	9501	
==>set eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	177	284	
==>($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	177	284	
==>($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1418	1523	
==>actual 
cryptography are there.  See those modules for details.

The C<new> constructor takes only one opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1418	1523	
==>actual 
cryptography are there.  See those modules for details.

The C<new> constructor takes only one opt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7287	7399	
==>Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7287	7399	
==>Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15410	15508	
==>tests the first argument
# for success, or returns the definition of success (e.g. the
# expected s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28833	28925	
==>ual (Relation::Example $other!) returns Bool>

This method returns the complement of C<equal> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2514	2639	
==>_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2514	2639	
==>_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13327	13495	
==>nd_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0],
        };
    };
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13327	13495	
==>nd_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0],
        };
    };
}

1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23536	23712	
==>:optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23815	23991	
==>:optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $matc <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2553	2651	
==>tem conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2553	2651	
==>tem conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2195	2311	
==>})
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2195	2311	
==>})
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17377	17484	
==>ding.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20854	20961	
==>ding.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7113	7214	
==>parse_error(mob, pos, "No digits found in \\x...")
    goto end
  err_close:
    parse_error(mob, pos, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1482	1666	
==>/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1482	1666	
==>/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7771	7892	
==>ure => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7759	7880	
==>ure => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13679	13771	
==>span is used to represent continuous measurements, such as times, temperatures, or price rang <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13679	13771	
==>span is used to represent continuous measurements, such as times, temperatures, or price rang <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2772	2901	
==>urn $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2772	2901	
==>urn $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	910	1004	
==>currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug worka <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	910	1004	
==>currently define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug worka <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1140	1250	
==>ler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2305	2415	
==>ler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	998	1103	
==>y>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("C <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	998	1103	
==>y>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1229	1320	
==>L::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1229	1320	
==>L::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2222	2376	
==>put.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self }, <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2222	2376	
==>put.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self }, <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2353	2488	
==>"$start: $!\n";
    }

    return @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5344	5464	
==>tch->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5344	5464	
==>tch->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14002	14096	
==>my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14002	14096	
==>my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosett <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	256	356	
==>odified_since last_modified
    content_type content_encoding content_length content_language
    tit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	256	356	
==>odified_since last_modified
    content_type content_encoding content_length content_language
    tit <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	54	152	
==>t that holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	54	152	
==>t that holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3363	3481	
==>ub _quotemeta { my $s = shift; $s =~ s!'!\\'!g; $s }

sub emit_grammar_perl5 {
    # item=>'<item>',
    my ($self, $de <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1935	2042	
==>s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module Pugs.Prelude where

{- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1525	1646	
==>name { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

re <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1525	1646	
==>name { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1459	1555	
==>iers are implemented by passing a C<Result> object that has a
$.backtrack closure that calls back <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1459	1555	
==>iers are implemented by passing a C<Result> object that has a
$.backtrack closure that calls back <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	231	372	
==>False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	231	372	
==>False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Que <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3765	3859	
==>or use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=ove <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3765	3859	
==>or use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=ove <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45326	45415	
==>ribute->new('$:name'      => 'str')));
$::Package->send('add_attribute', (symbol->new('%:n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1444	1544	
==>iver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call a Match obj.
# Ju <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16001	16096	
==>strings = (CALLER::<$_>) is rw --> Char )

Trims the last character from C<$string>, and returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3180	3301	
==>m 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Paramete <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3180	3301	
==>m 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Paramete <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1782	1877	
==>ing $received parameters, while App is providing $sent parameters: "
		. Blondie::Emitter::Prett <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3247	3370	
==>s[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3142	3263	
==>s[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $mat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4446	4547	
==>the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6348	6449	
==>the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1488	1597	
==>uired, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1695	1804	
==>uired, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28132	28236	
==>ble names and values of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28132	28236	
==>ble names and values of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a str <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	16	138	
==>Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	16	138	
==>Pugs;

use strict;
use vars qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15946	16050	
==>d in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Nor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16004	16108	
==>d in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Nor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14825	14943	
==>urn qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14825	14943	
==>urn qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7518	7644	
==>an0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7518	7644	
==>an0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1230	1327	
==>ch bucket has a memory footprint of constant size because the
algorithm is based on statistics. Th <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1230	1327	
==>ch bucket has a memory footprint of constant size because the
algorithm is based on statistics. Th <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1854	1988	
==>hed building dependencies.\n\n";

    $run_setup = sub { system($setup, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	742	877	
==>can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module should be core!" );
        ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2023	2158	
==>can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module should be core!" );
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1026	1157	
==>e Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using clos <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1026	1157	
==>e Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using clos <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4683	4780	
==>hod project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8160	8257	
==>hod project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5622	5774	
==>b cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5622	5774	
==>b cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5049	5201	
==>xp:   NUM  { \$_[0]->{out}= \$_[1] }\n";
    }
    $prec = "P000";
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	20	108	
==>OnPerl5::X1::Repl;
use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Per <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5601	5687	
==>eratorTable->lkey($target, $whitespacePosition);
  $token = $$currentOperatorTable{$key <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31327	31426	
==>want modules from multiple
sets in the same disk directory.  In the first example, the Set Name is
" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31327	31426	
==>want modules from multiple
sets in the same disk directory.  In the first example, the Set Name is
" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4297	4455	
==>pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (Array)\


\\n   List      pre     list    safe   (List)\
\\n   Hash      pr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20008	20107	
==>rds {  # see 12.2
      <'var'> <?ws_required> <VariableDeclarationList> <';'>
}
rule VariableDeclar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20138	20233	
==>ethod will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20138	20233	
==>ethod will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12710	12873	
==>ame;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12989	13152	
==>ame;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ru <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1116	1265	
==>AND takes a block";
    if ($self == $TRUE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }
}

sub or : me <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9123	9268	
==>0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7052	7158	
==>f the header, that will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7052	7158	
==>f the header, that will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_el <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21327	21443	
==>t("::",$module)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if ! <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21243	21358	
==>["subpats"]
    pad["subpats"] = 0
    pad["isarray"] = 0
    $P0 = new .Hash
    pad["reps"] = $P0
    exp = self[0 <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19957	20047	
==>Str $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 mult <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5461	5613	
==>rms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5654	5806	
==>rms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2440	2562	
==>);

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4028	4150	
==>);

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8707	8816	
==>ss => lower => $neg, $how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12922	13030	
==>g through the span range, the unit is added to the current value to get the next value.
The unit specifier is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12922	13030	
==>g through the span range, the unit is added to the current value to get the next value.
The unit specifier is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19669	19767	
==>text format that will be much easier for a non-programmer to edit.
But the current Perl-based solut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19669	19767	
==>text format that will be much easier for a non-programmer to edit.
But the current Perl-based solut <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4801	4931	
==>on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4801	4931	
==>on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9272	9389	
==>s
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9272	9389	
==>s
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # or "<"
  my $is_s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4619	4927	
==></PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4619	4927	
==></PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10097	10202	
==>ame,$method_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg || '__PACKAGE__';
    $met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12789	12896	
==>nperl {
    die "test.pl:runperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4609	4711	
==>ref $self);
}

sub free_vars {
	my $self = shift;
	map { $_->free_vars} $self->left, $self->right;
}

p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1869	1961	
==>osetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1869	1961	
==>osetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	79	184	
==>ting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	79	184	
==>ting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2701	2806	
==>st via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://ne <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2701	2806	
==>st via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15486	15588	
==>tation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15486	15588	
==>tation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4327	4421	
==>a" package serves only as the name-sake
representative for this whole file, which can be refere <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4327	4421	
==>a" package serves only as the name-sake
representative for this whole file, which can be refere <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8866	8994	
==>@list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8866	8994	
==>@list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10754	10941	
==>)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10754	10941	
==>)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14643	14744	
==>arams} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2124	2225	
==>arams} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3217	3363	
==>arent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3217	3363	
==>arent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12894	13006	
==>C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12894	13006	
==>C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1723	1894	
==>$base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # jus <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1723	1894	
==>$base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # jus <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17738	17860	
==>ject"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ir <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17738	17860	
==>ject"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ir <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4813	4940	
==>ron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(71 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4813	4940	
==>ron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(71 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	990	1138	
==>| 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	990	1138	
==>| 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        capture = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8789	8931	
==>se(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8789	8931	
==>se(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	375	502	
==>to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> element <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	375	502	
==>to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between> element <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	721	823	
==>tive::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	721	823	
==>tive::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3623	3820	
==>{
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2470	2579	
==>unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Perl block with placehold <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	832	949	
==>] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	841	958	
==>] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22593	22731	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22872	23010	
==>return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	250	351	
==>S_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is export { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	250	351	
==>S_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is export { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2150	2263	
==>'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2150	2263	
==>'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18537	18631	
==>it officially is not and you should not share
Rosetta objects between multiple threads, nor hav <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18537	18631	
==>it officially is not and you should not share
Rosetta objects between multiple threads, nor hav <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	287	389	
==>5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	287	389	
==>5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7534	7680	
==>e actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7546	7692	
==>e actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARR <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2340	2470	
==>t single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <z <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2340	2470	
==>t single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <z <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1763	1914	
==>th($ARGV[0]) ? $ARGV[0] : $ARGV[1]);
    }
    else {
        local $/;
        $code = <>;
    }

    if ($compile_only) {
        print __PACKAGE__->p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	120	241	
==>e File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@ARGV ) {
    
    my($key, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12118	12204	
==>header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "im <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12118	12204	
==>header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "im <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13653	13749	
==>be satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite obj <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13653	13749	
==>be satisfied within a 
reasonable range of values.

You should consider using a Set::Infinite obj <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35309	35411	
==>arameters of new().

=item C<get_set_names()>

This method returns all Set Names elements in this objec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35309	35411	
==>arameters of new().

=item C<get_set_names()>

This method returns all Set Names elements in this objec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8155	8278	
==>ns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match failed    



    state - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7881	7999	
==>ns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match failed    

    state - <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27001	27108	
==>α. ∀β. α → β → (α × β)", ":t pair");
is(t(ide("fst")), "∀α. ∀β. (α × β) → α", ":t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	857	949	
==>\'} = '.$rule->perl5().";\n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule->compile(<<' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3170	3266	
==>ng is overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3057	3151	
==>ng is overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1434	1546	
==>sert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1434	1546	
==>sert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    re <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1063	1194	
==>sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1063	1194	
==>sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1287	1449	
==>key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $dat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1287	1449	
==>key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $dat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6716	6827	
==>cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event is fired, the first arg <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6716	6827	
==>cut' directive is reached.

=back

=head2 Element Events

For each POD element, an event is fired, the first arg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1529	1671	
==>, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    delete $self->{$key->to_str->to_native} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7627	7719	
==>'type::variable::free') => sub { $_[1]->instantiate($_[0]) };

# an instantiated variable wil <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11969	12073	
==>h of the traits C<is descending>
and C<is insensitive> to reverse the order of sort, or the adjust the
ca <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3865	3967	
==>otal number of tests expected to run.

=item B<Fail>

Number which failed, either from "not ok" or beca <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2292	2401	
==>!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2292	2401	
==>!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tree {
    for @children <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2530	2644	
==>eaders{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2530	2644	
==>eaders{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10312	10424	
==>evious ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.prev <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10312	10424	
==>evious ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.prev <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3476	3581	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3476	3581	
==>> (Set $one, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4584	4702	
==>lemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4584	4702	
==>lemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28459	28555	
==>ba  doesnt have $2 as an unsuccessful match.
//x isnt being handled (re_rewrite step?)
lots of st <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5935	6051	
==>{
	my $o = get_meta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	15	123	
==>e warnings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers {
    map {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1327	1422	
==>r( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1327	1422	
==>r( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule-> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	85	195	
==>{ ... }

multi sub exp (; Num ?$exponent = $CALLER::_, Num :$base )
    returns Num { ... }

multi sub log (; N <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	288	402	
==>deGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	288	402	
==>deGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    } <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2794	2895	
==>p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2794	2895	
==>p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16651	16752	
==>ers) returns Relation::Example {

    # First do some optimizing of the order that source relations ar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1359	1450	
==>londie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2392	2613	
==>= "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_li <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2392	2613	
==>= "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_li <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1981	2118	
==>prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2861	2998	
==>prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1833	1960	
==>( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1844	1971	
==>( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20229	20323	
==>E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20229	20323	
==>E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	929	1038	
==>port symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	929	1038	
==>port symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12582	12684	
==>. )

This function removes the header fields with the specified names.

The header field names ($field) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12582	12684	
==>. )

This function removes the header fields with the specified names.

The header field names ($field) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9650	9761	
==>mc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9650	9761	
==>mc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2827	2938	
==>d;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2827	2938	
==>d;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2129	2266	
==>_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2129	2266	
==>_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24917	25044	
==>_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25196	25323	
==>_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1800	1920	
==>>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1800	1920	
==>>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1950	2055	
==>ndie::Thunk"); # FIXME - enforce param checking on stubs or prims some how?

    return $reduced;
}

sub r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3754	3852	
==>exited with non-zero, this is its exit status.

=item B<Wstat>

The wait status of the test.

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2306	2449	
==>_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2217	2356	
==>_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18979	19082	
==>world accurately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy ap <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18979	19082	
==>world accurately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy ap <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7355	7471	
==>and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7355	7471	
==>and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7212	7303	
==>ad(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7212	7303	
==>ad(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begin' <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1505	1633	
==>(!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1419	1535	
==>( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17573	17727	
==>/^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13994	14148	
==>/^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3222	3326	
==>ther.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3222	3326	
==>ther.includes($_) });
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = s <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	539	666	
==>me, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetchi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	506	633	
==>me, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetchi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4964	5083	
==>( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4964	5083	
==>( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6584	6682	
==>_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6584	6682	
==>_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Typ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10807	10903	
==>the bulk of the Rosetta::Model code,
and these could potentially be extended by third party add-o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10807	10903	
==>the bulk of the Rosetta::Model code,
and these could potentially be extended by third party add-o <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2127	2212	
==>olog".
    http://www.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg.html
Wi <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2099	2202	
==>ule> called C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Since module <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2099	2202	
==>ule> called C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Since module <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2402	2549	
==>program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2402	2549	
==>program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1027	1135	
==>lf->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, [];
}

sub leave_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	57	156	
==>lf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im Schafspelz:
my $böse = $wolf as Scha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2523	2648	
==>$remainder,
        capture => $extracted,
    } );
}

sub angle_quoted {
    my $grammar = shift;
    return $grammar->no_mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24907	24998	
==>ply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immed <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24907	24998	
==>ply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immed <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6585	6692	
==>.. );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually contain getters for $() an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6366	6468	
==>.. );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually contain getters for $() an <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1535	1667	
==>@p {
      ($v, $input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	597	707	
==>('o' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "o", $plus ? "" : "don't ", " <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4204	4341	
==>\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4204	4341	
==>\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38062	38172	
==>self = shift;
    $self->{neg} ? 'not' : 'and';
  }

And finally, the small change to the qr() method:

  sub q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15901	16019	
==>n $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10757	10875	
==>n $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4383	4588	
==>( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4847	5052	
==>( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	40	135	
==>ub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im Schafspelz:
my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6338	6480	
==>[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6338	6480	
==>[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11320	11477	
==>'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11320	11477	
==>'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interfa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12398	12499	
==>yof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5041	5142	
==>yof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  }) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1204	1330	
==>f->coroutine() )
  {
    #execute coroutine
    #&$coroutine();
  }
  else
  {
    $self->position(-1);
    return ();
  }
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1856	1962	
==>limited( "'" . $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4286	4392	
==>ls eq 'num' || $cls eq 'int') if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34642	34765	
==>s => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34642	34765	
==>s => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $transla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12862	13019	
==>ri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12862	13019	
==>ri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F] <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	248	363	
==>ct;

sub determine_NAME {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::F <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	154	252	
==>the inlined Perl 6 source Prelude fallback, or a real
# precompiled AST of Prelude.pm.

our %Config <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13726	13831	
==>) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13726	13831	
==>) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnec <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10752	10898	
==>ntity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn ra <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10752	10898	
==>ntity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn ra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	976	1137	
==>expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	976	1137	
==>expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21357	21457	
==>ame can start with the package name?).  An advantage of
this is that, for example, your package could <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21357	21457	
==>ame can start with the package name?).  An advantage of
this is that, for example, your package could <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10197	10326	
==>ne_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10197	10326	
==>ne_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4674	4804	
==>::constant { 

    my $const = shift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4528	4654	
==>::constant { 
    my $const = shift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21222	21320	
==>prominant feature is that it provides a
common API for access to those databases, each of which tak <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21222	21320	
==>prominant feature is that it provides a
common API for access to those databases, each of which tak <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5992	6100	
==>ode - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5992	6100	
==>ode - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code. <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	39	155	
==>1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	39	155	
==>1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'start <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11216	11314	
==>rns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: *@chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11216	11314	
==>rns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($self: *@chil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	647	832	
==>value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	647	832	
==>value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a l <==
2	/Users/nnunley/pugs/util/drift.pl	1804	1918	
==>ring as Buf

.

while (<IN>) {
	if(/<DrIFT>/../<\/DrIFT>/) {
		next if (/DrIFT/);
		print OUT;
	}
}

close IN;

shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	492	584	
==>(<'rule'> <rule_name><?ws>?<block>{
	my $body = substr($<block>, 1, -1);
	$body =~ s/\\\\/\\\ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22775	22877	
==>aque {
    # speculative syntax here :)
    unbox($self).class
}

(method class ((opaque $self:)) retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2454	2552	
==>ones with p6 ones _without_ changings its name.



of course that has the problem of supplying Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2361	2457	
==>ones with p6 ones _without_ changings its name.

of course that has the problem of supplying Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27877	28037	
==>s'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28156	28316	
==>s'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	307	409	
==>returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	307	409	
==>returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1073	1194	
==>ble key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1073	1194	
==>ble key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2125	2225	
==>}
rule quantified_construct  {  <construct_but_not_alias> <quantifier>  }

rule simple_term  {
    <m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6527	6672	
==>on on
                # the module content; not the DATA section. Because we
                # want to make sure that the program runs the same wa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6527	6672	
==>on on
                # the module content; not the DATA section. Because we
                # want to make sure that the program runs the same wa <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	740	851	
==>od

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	740	851	
==>od

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15009	15116	
==>c__}';
    eval($code) || die "Error compiling (?{$embedded_code}) :\n$@\n";
  }
}
{
  # (??{ ... })
  packa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	878	984	
==>lter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	878	984	
==>lter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Fi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5464	5588	
==>my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5464	5588	
==>my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20314	20410	
==>ng that end users could do,
although program package installers usually do it.  An os-level prefe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20314	20410	
==>ng that end users could do,
although program package installers usually do it.  An os-level prefe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16184	16286	
==>ue.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16184	16286	
==>ue.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a single <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2185	2313	
==>XX
    #infix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9872	9994	
==>ial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9872	9994	
==>ial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3039	3153	
==>param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3039	3153	
==>param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5712	5834	
==>v};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('new') } <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12545	12637	
==>(almost completely undocumented source), in the presence
  of copy-on-write and such complica <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14845	14967	
==>ression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19013	19135	
==>ression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4694	4823	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5420	5549	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 0)) if $cc;
    return $S->object(space => 0);
  }) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22311	22424	
==>($max_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Columns = $max <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	972	1083	
==>ft)->keys->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    (blessed($key) && $ke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26104	26211	
==>g; the allowed variable names you can have depend on the Message Key
it is being used with (others are ignor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26104	26211	
==>g; the allowed variable names you can have depend on the Message Key
it is being used with (others are ignor <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4308	4392	
==>status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&statu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5046	5128	
==>status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&statu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1042	1166	
==>b to_str { str->new((shift) . '') } # get a str like ref
sub to_bit { bit->new(1)            } # we are always true

# compar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18677	18767	
==>e)
{ Pugs::Internals::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2726	2823	
==>$other) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2726	2823	
==>$other) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $ot <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10062	10188	
==>Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10062	10188	
==>Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_enti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2107	2213	
==>iphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2107	2213	
==>iphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	226	394	
==>ables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	226	394	
==>ables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10901	11035	
==>ext .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10901	11035	
==>ext .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	787	929	
==>family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4510	4605	
==>e longest-match-first, but that's simple too, and the
# difference won't matter for the spike ta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28679	28779	
==>specific simple API that will serve their role.

For example, inside the text Template file "MyApp/L/ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28679	28779	
==>specific simple API that will serve their role.

For example, inside the text Template file "MyApp/L/ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1416	1513	
==>e insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in pa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1416	1513	
==>e insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in pa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4731	4830	
==>_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4731	4830	
==>_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6738	6881	
==>/ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6795	6938	
==>/ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4492	4618	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4685	4811	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	345	452	
==>einer einfachen Methode
$welt.hallo;	# Perl 5:  $welt->hello;
hallo $welt;	# wie in Perl 5
hallo($welt);	# w <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1503	1603	
==>Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::Value $V) {
    my $Result1 = $O.< <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5712	5846	
==>{
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5712	5846	
==>{
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2432	2567	
==>a info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->fi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2533	2631	
==>$self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2533	2631	
==>$self: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4668	4759	
==>new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseud <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4668	4759	
==>new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseud <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2744	2957	
==>me
                     ([\d.]+)   -   # the version
                     (\w+\+\S+) $   # the authority
                /smx;
                
        sub package_prefix      { $_[0] =~ $re; $1 }
        sub packa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	649	761	
==>iption'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.descripti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6714	6821	
==>ormalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6714	6821	
==>ormalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(norma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10231	10347	
==>ch;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10225	10341	
==>ch;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2053	2171	
==>value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2053	2171	
==>value2>);

Does the same, but deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3436	3561	
==>ndex == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3436	3561	
==>ndex == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!childre <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1376	1516	
==>ext);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node- <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1376	1516	
==>ext);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33527	33623	
==>d and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33527	33623	
==>d and non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11674	11795	
==>urrent;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11674	11795	
==>urrent;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Sp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3076	3208	
==>obal or a dynamic symbol:

    App(
        Sym('&func'), # Sym is reduced to the Thunk mapped from '&func' in
                   # t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9039	9147	
==>ers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9039	9147	
==>ers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6222	6330	
==>{$pkg_node}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18776	18884	
==>y
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  Whil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18776	18884	
==>y
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  Whil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	249	370	
==>represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because th <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	249	370	
==>represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26379	26474	
==>nd output, any
variable values which are references will be passed by reference, so you
may stor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26379	26474	
==>nd output, any
variable values which are references will be passed by reference, so you
may stor <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	396	511	
==>ss.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	396	511	
==>ss.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method si <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10712	10833	
==>) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1);
  });


  ### '('

  $self->add_hand <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2064	2170	
==>m->new(scalar(@{$self}));
}

sub elems {
    my $self = shift;
    return num->new($#{$self});
}

sub is_em <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15244	15349	
==>ot, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15302	15407	
==>ot, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2519	2630	
==>XX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2659	2770	
==>XX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	126	259	
==>$self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	248	366	
==>s rw ; *@values) returns Int {
   Array::splice(@array, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<A <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1235	1419	
==>tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight pars <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1235	1419	
==>tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight pars <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	501	606	
==>}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	501	606	
==>}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8316	8418	
==>ans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8316	8418	
==>ans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	716	819	
==>_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_close <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	716	819	
==>_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_close <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	15	122	
==>SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	15	122	
==>SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18216	18313	
==>s the rather complex algorithm that
Module::Compile uses.

First, the source module is preprocesse <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18216	18313	
==>s the rather complex algorithm that
Module::Compile uses.

First, the source module is preprocesse <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3350	3458	
==>hout a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All methods take na <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3350	3458	
==>hout a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All methods take na <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3011	3134	
==>n_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3011	3134	
==>n_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	657	791	
==>!! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	657	791	
==>!! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	495	641	
==>p = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	495	641	
==>p = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2556	2656	
==>rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2696	2796	
==>rule->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Va <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4290	4382	
==>[8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4290	4382	
==>[8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26105	26203	
==>pretty print list a -> a");
}
{
	my $a = type::variable::free->new;
	my $b = type::variable::free-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21131	21224	
==>ase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21131	21224	
==>ase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most pro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7684	7776	
==>return
that error message, and $parser->errnum will return the numerical value
of the message <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14359	14483	
==>two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14359	14483	
==>two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7793	7900	
==>.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7793	7900	
==>.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($spa <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1411	1582	
==>r eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1411	1582	
==>r eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7231	7357	
==>h Test::More::skip().
sub skip {
    my $why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5499	5630	
==>Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5499	5630	
==>Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1833	1932	
==>qual($self: Set $other) returns Bool {

    # for some reason, directly returning this expression do <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1833	1932	
==>qual($self: Set $other) returns Bool {

    # for some reason, directly returning this expression do <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3666	3773	
==>stname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username host <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3666	3773	
==>stname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username host <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5142	5242	
==>IME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("Q <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5142	5242	
==>IME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("Q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28570	28725	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28849	29004	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3669	3765	
==>er "enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3669	3765	
==>er "enciphering" or "deciphering"), and any 
other options to the constructor.  Then you call the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	387	496	
==>argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	387	496	
==>argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2246	2353	
==>ld.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2246	2353	
==>ld.fix_depth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29609	29712	
==>eated a handle for '&&' without a predecessor, you would have
to add it explicity to the queue for it to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20244	20338	
==>..})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be execu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20244	20338	
==>..})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be execu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15882	15997	
==>a condition or error that,
while resembling a message that would be shown to a user, is in fact meant
to be interpre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15882	15997	
==>a condition or error that,
while resembling a message that would be shown to a user, is in fact meant
to be interpre <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3491	3590	
==>n;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int| <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1633	1732	
==>n;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int| <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14656	14756	
==>riable
  interpolation has occured.  But not in the case of m'pattern'.
  Which might come in hand wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3687	3867	
==>p { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3687	3867	
==>p { $_ !~ /^(op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	174	279	
==>gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	165	266	
==>gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4519	4628	
==>substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4519	4628	
==>substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  re <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6929	7051	
==>ing: $e\n")};
    for %mods.keys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	474	567	
==>utomated testing, always use defaults
    if ( $ENV{AUTOMATED_TESTING} and ! $ENV{PERL_MM_USE_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	947	1046	
==>ivlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	947	1046	
==>ivlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ( <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	512	636	
==>$x or die "Stack underflow\n";
        my $y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7808	7931	
==>Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instance method fails';

## does Foo get Object <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5140	5251	
==>Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling instance method fails';

## make in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37109	37203	
==>e() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37109	37203	
==>e() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $modul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1839	1943	
==>) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1839	1943	
==>) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3700	3872	
==>op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3700	3872	
==>op|fix|list)/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12542	12641	
==>r one, use the error_is() method:

  if ($parser->error_is($parser->RPe_BCURLY)) {
    # there was a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	489	605	
==>,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		ret <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7702	7801	
==>}
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7702	7801	
==>}
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3855	3952	
==>\%options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4039	4136	
==>\%options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4011	4123	
==>ich namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Default <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4195	4307	
==>ich namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Default <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11409	11505	
==>uggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11467	11563	
==>uggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $expecte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5989	6145	
==>nstant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5989	6145	
==>nstant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	727	845	
==>str( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	727	845	
==>str( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	458	567	
==>ent_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	664	773	
==>ent_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3377	3466	
==>12)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3377	3466	
==>12)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1949	2052	
==>&::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOS <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1949	2052	
==>&::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOS <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25150	25256	
==>m C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whether the immutable ide <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29702	29808	
==>m C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating whether the immutable ide <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2561	2699	
==>od to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.e <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2561	2699	
==>od to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12220	12355	
==>) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4863	4998	
==>) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2318	2423	
==>rns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2318	2423	
==>rns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	359	463	
==>) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	359	463	
==>) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	140	237	
==>to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	140	237	
==>to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6410	6503	
==>ft;
		my $type = $self->simplify_type(shift);

		Scalar::Util::blessed($type) and $type->isa(" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4021	4111	
==>:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4021	4111	
==>:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new ciph <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3201	3296	
==>e it shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3201	3296	
==>e it shouldn't be needed since the parameters are bound, not copied.
method add_content (Str $co <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1344	1452	
==>* Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1344	1452	
==>* Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2713	2816	
==>tforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFO <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2713	2816	
==>tforms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	313	416	
==>ir(shift() ) };
use constant SUBFILE_OF_META    => sub { shift()->_meta_dir->file(  shift() ) };

### %c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2403	2492	
==>fix:&", "<infix:", "left,nows", "PGE::Exp::Conj");
    $optable->addToken("infix:|", "<inf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1613	1753	
==>hed.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1820	1960	
==>hed.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5175	5329	
==>heta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5175	5329	
==>heta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	186	299	
==>|| 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_pr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	186	299	
==>|| 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_pr <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	932	1099	
==>n't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $cla <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	932	1099	
==>n't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $cla <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9126	9233	
==>Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9184	9291	
==>Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', tod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25062	25230	
==>);
                              })
                          );
                          $e->get('$self:')->set_attr(symbol->new('@:superclasses') => $e->get('?@superc <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	861	983	
==>f;
}

sub read {
    my($class, $filename) = @_;
    my $config_default    = 'config.yml';
    my $config_template   = 'uti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	127	228	
==>her($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	127	228	
==>her($plaintext, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5621	5715	
==>osetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5621	5715	
==>osetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name' <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3205	3368	
==>tion><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3205	3368	
==>tion><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4293	4546	
==>s not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain ap <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4293	4546	
==>s not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain ap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1669	1793	
==>extracted, $extracted2 ],
    } );
};

sub single_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5493	5597	
==>st error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5493	5597	
==>st error message

=back

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17622	17717	
==>es themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17622	17717	
==>es themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3972	4121	
==>xists $n->{trait} ) {
            # BEGIN/END
            return $n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        }
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1450	1565	
==>=> $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1450	1565	
==>=> $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17538	17642	
==>ement
of HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17538	17642	
==>ement
of HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4393	4562	
==>0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4586	4755	
==>0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3097	3240	
==>"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3097	3240	
==>"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2727	2839	
==>rn join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2727	2839	
==>rn join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$d <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1370	1471	
==>>';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{' <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1370	1471	
==>>';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9324	9421	
==>et1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9324	9421	
==>et1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	803	968	
==>__PACKAGE__->add_rule( '@' => '
                <Pugs::Grammar::Var.ident>
                { return { array => "\@" . $() ,} }
            ' );
    __PACKAGE__->a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	158	275	
==>{ $w };
}

### This is the ONLY module that shouldn't have strict on
# use strict;

#line 41

sub new {
    my ($class <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18541	18639	
==>sionNoIn>
    | <LogicalORExpressionNoIn> <'?'> <AssignmentExpressionNoIn> <':'> <AssignmentExpress <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4234	4326	
==>as_p5 { $_[0]{'p5'}->value }
sub as_pil_tree { $_[0]{'pil_tree'}->value }
sub as_pil_code { $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	281	399	
==>ight goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	281	399	
==>ight goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18004	18100	
==>ify
it easily in its conditional logic, using a simple 'equals', and then the
application can "do <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18004	18100	
==>ify
it easily in its conditional logic, using a simple 'equals', and then the
application can "do <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15810	15906	
==>ils than joe public would.

Alternately, sometimes a program will raise a condition or error that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15810	15906	
==>ils than joe public would.

Alternately, sometimes a program will raise a condition or error that <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	392	540	
==>y @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	392	540	
==>y @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16240	16347	
==>ts it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20666	20773	
==>ts it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *substrs;

        struct r <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	393	510	
==>, $File::Find::name if /\.pm/i }, 'lib');

    if (@modules == 1) {
        local *MODULE;
        open MODULE, $modul <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20232	20327	
==>ng_as_number(10,$decstr) }
# etc. XXX - etc?  arbitrary n?  how arbitrary?

sub Pugs::Internals: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14277	14461	
==>)
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14556	14740	
==>)
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1371	1486	
==>rence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.comp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1371	1486	
==>rence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.comp <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	895	1006	
==>$x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is expo <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	895	1006	
==>$x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is expo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4046	4147	
==>ing[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xF <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4046	4147	
==>ing[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xF <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	914	1025	
==>export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	914	1025	
==>export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4779	4903	
==>ady set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4638	4762	
==>ady set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	540	634	
==>ter: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	540	634	
==>ter: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	4	117	
==>age Pugs::Runtime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	4	117	
==>age Pugs::Runtime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9576	9672	
==>superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9576	9672	
==>superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$ <==
2	/Users/nnunley/pugs/util/package-osx.pl	11604	11717	
==>ER "    $_\n" for @files; 
    print REMOVER "$_\n" for @footer;

    close REMOVER;
    chmod 0755, "$dest$files[ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20065	20163	
==>eclarationList> <';'>
}
rule VariableDeclarationList :words {  # see 12.2
      <VariableDeclaratio <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4397	4485	
==>(JSX::PsuedoValue $V) { raise ReferenceError; }
method PutValue (JSX::InternalValue::Refe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11562	11667	
==>gexp::Parser::close;
}
{
  # ) for non-captures
  package Regexp::Parser::tail;
}
{
  # \1 (backrefs)
  pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	914	1031	
==>as stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	914	1031	
==>as stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	872	995	
==>.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	885	1003	
==>.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } e <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	45	155	
==>Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

method tree ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7983	8133	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&clo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8176	8326	
==>re} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&clo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1531	1642	
==>s}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$self->{levels}[$_]} );
        $x = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7996	8097	
==>d of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7996	8097	
==>d of reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21243	21377	
==>ub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17664	17798	
==>ub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	707	814	
==>e new module functionality will not need it. Althoug this may be a 
# naive understanding of what this stuff <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	707	814	
==>e new module functionality will not need it. Althoug this may be a 
# naive understanding of what this stuff <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24765	24880	
==>\G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21186	21301	
==>\G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33755	33853	
==>nglish or French.  The order of these items corresponds to
an individual user's (or user role's) pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33755	33853	
==>nglish or French.  The order of these items corresponds to
an individual user's (or user role's) pr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1583	1693	
==>o1)=@_;
    $o->{'nprec'} <=> $o1->{'nprec'};
  }
  sub make_node_with_args {
    my($o,@args)=@_;
    my $from <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	282	378	
==>re 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = compile($re) || die "Compile fa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4660	4764	
==>for p3d');
is($p3d->get_z, 7, '... got the right z for p3d');

cmp_ok($p3d->id, '!=', $p->id, '... not th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25408	25509	
==>(?:'> <Disjunction> <')'>
    | <'(?='> <Disjunction> <')'>
    | <'(?!'> <Disjunction> <')'>
}
rule P <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2004	2161	
==>tml;
  if(glob "pugs-smoke-*-$id.html") {
    print "The submitted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.] <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1273	1386	
==>@scr = @_;
   my $tot = 0;
   for my $s (@scr) { $tot += GolfScore($s) }
   print "You shot a round of $tot stroke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	839	945	
==>ent number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specifi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	839	945	
==>ent number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specifi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8700	8818	
==>( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8700	8818	
==>( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elem <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2190	2299	
==>ment';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2190	2299	
==>ment';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my met <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10687	10825	
==>info             => "$initrd_mnt/etc/terminfo/l/linux"],
    [$linuxrc              => "$initrd_mnt/linuxrc"],
    [$welcome_p6           = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	171	285	
==>ngify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	171	285	
==>ngify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.re <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	289	421	
==>ucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($buc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	289	421	
==>ucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($buc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4907	5005	
==>);
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7575	7673	
==>);
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Objec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6338	6569	
==>t // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6338	6569	
==>t // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1482	1710	
==>c);
                }
                $c;
            },
            hash_fetchVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25529	25629	
==>the object
represents (or gives the name of a condition being reported, if it is used
as an exception <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25529	25629	
==>the object
represents (or gives the name of a condition being reported, if it is used
as an exception <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9101	9215	
==>tives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2136	2250	
==>tives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1468	1568	
==>, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1.. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1468	1568	
==>, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1.. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1268	1385	
==>SS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a Hash ref,] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1268	1385	
==>SS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a Hash ref,] <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4030	4140	
==>h => $month, day => $day )`

Returns a date object for the given values.  The month and day default
to 1 if not <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4030	4140	
==>h => $month, day => $day )`

Returns a date object for the given values.  The month and day default
to 1 if not <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	669	778	
==>y) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $para <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	669	778	
==>y) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $para <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24065	24175	
==>> $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20486	20596	
==>> $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16200	16462	
==>p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16479	16741	
==>p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8490	8586	
==>r own security analysis before using it in any 
sensitive application.>

B<I<The authors and copy <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8490	8586	
==>r own security analysis before using it in any 
sensitive application.>

B<I<The authors and copy <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25610	25736	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'logi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10613	10715	
==>ling pattern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
my $m = "wxyz <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8655	8782	
==>universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8655	8782	
==>universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5889	6028	
==>t->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5889	6028	
==>t->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3153	3254	
==>@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3153	3254	
==>@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	271	398	
==>',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	271	398	
==>',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => ' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	73	190	
==>pe Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check tha <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	73	190	
==>pe Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check tha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14408	14564	
==>_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14408	14564	
==>_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11326	11422	
==>ll elements both from this recurrence and from the given recurrence.

- `intersection( $recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11326	11422	
==>ll elements both from this recurrence and from the given recurrence.

- `intersection( $recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	28	139	
==>en;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	28	139	
==>en;

class Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	388	500	
==>(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	388	500	
==>(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "c <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2124	2262	
==>untime_class = shift;

	foreach my $prog (@progs) {
		my $r = $runtime_class->new;

		my $result;
		
		lives_ok {
			$result = $r->run($pro <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3340	3432	
==>b-uri=$grub_uri
    mklivecd.pl automatically fetches a GRUB tarball.
  --grub-local=$grub_lo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40084	40182	
==>Text
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 5 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40084	40182	
==>Text
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 5 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	166	283	
==>he below is expressive enough to do the
# same thing, but the conversion is a bit "lossy".
#
# has $.cxt enum« CxtVoi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf2.pl	52	167	
==>) == 6 || wurf() == 6 || wurf() == 6) {
	...
}
#=In Perl 6 geht das eleganter:
if any(wurf(), wurf(), wurf()) == 6 { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12821	12931	
==>ding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12821	12931	
==>ding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_pa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10072	10197	
==>ort
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    % <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10072	10197	
==>ort
{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    % <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	379	479	
==>.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att< <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	379	479	
==>.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	618	735	
==>_implemented {
    my ( $n, $what ) = @_;
    return "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	213	309	
==>r::Rule::Perl5;

my %relative_precedences = (
    tighter => sub { splice( @{$_[0]->{levels}}, $_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16598	16697	
==>not set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the optio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16598	16697	
==>not set, then the new Node is instead stored
in its Document's "Root Nodes" attribute.  If the optio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1223	1355	
==>,
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1223	1355	
==>,
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10409	10505	
==>";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11144	11240	
==>";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5842	6182	
==>) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7604	7944	
==>) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1300	1436	
==>ion
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1300	1436	
==>ion
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13122	13233	
==>],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int(I) --> digit(D0), digits(D), { number_chars(I, [D0|D]) }.
di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11863	11961	
==>the actual character:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R");

This means you must hav <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4538	4747	
==>ches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4400	4598	
==>ches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### match <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19351	19465	
==>e can't type it
my $no_such_sym = fun(
	param => "x",
	body => ide("y"),
);

# this is a higher order function that <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52509	52601	
==>>new($::Class));

# NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4367	4471	
==>ey = "";
    $whitespacePosition = $position;
    push @bsrStack, "bsr_token_match_2";
    goto token_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2	104	
==>ckage Pugs::Grammar::Expression;

use strict;
use warnings;

#use Pugs::Compiler::Rule;
use Pugs::Gramm <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5934	6032	
==>ey = "";
  $whitespacePosition = $position;
  push @bsrStack, "bsr_token_match_3";
  goto token_mat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17779	17883	
==>cess
yes?

XXX finish


XXX What exactly _is_ intuit, and do we care?


=cut


=pod

=head1 Perl5's struc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5406	5512	
==>s a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $self!d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5406	5512	
==>s a timestamp to a response when it has been received.
method client_date ($self: )         is rw { $self!d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9833	9936	
==>f $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14272	14369	
==>aising an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14272	14369	
==>aising an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6009	6115	
==>e store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6009	6115	
==>e store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_do <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3388	3495	
==>hould be hashed with the 
key, not merely appended to it; appending can create precisely the sort of weak 
k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3388	3495	
==>hould be hashed with the 
key, not merely appended to it; appending can create precisely the sort of weak 
k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	238	337	
==>use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	238	337	
==>use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9604	9742	
==>:alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1009	1105	
==>($me, $target, $from, $position)
}

#Tell a Match object to continue the previous match from wher <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2022	2131	
==>when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2022	2131	
==>when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3490	3583	
==>ractive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3490	3583	
==>ractive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::S <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1447	1561	
==>nable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub lo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1447	1561	
==>nable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub lo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10477	10579	
==>.GF24107@sike.forum2.org>
    # on p6-l.

    multi sub open (Str $filename, Str :$layer, Bool :$r, Boo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1178	1290	
==>'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolu <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1178	1290	
==>'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_absolu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6731	6855	
==>$pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($pPos, $pExp, $pNode) {
    (defined($pExp) ? DOWN($pExp) : "")."".DOWN($pNode <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	879	972	
==>.) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatched (';
use constant RPe_RPAREN <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9047	9159	
==>y @kv;
    for my $k (@{$_[0]->info->{'fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $_[0];
	nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5892	6012	
==>stash->{$_} for @handles;
}


1;

__END__

=cut

=head1 NAME

Regexp::Parser - base class for parsing regexes

=head1 SYN <==
2	/Users/nnunley/pugs/util/drift.pl	1541	1648	
==>le (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $module.Insta <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5863	5992	
==>Rul does Rule is builtin {
    has $.f;
}
# This infix:<~~> doesnt work yet.
multi sub infix:<~~> ($x, Rul $r) is primitive is saf <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3471	3570	
==>H|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6904	7027	
==>rts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6904	7027	
==>rts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	133	241	
==>ine-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	133	241	
==>ine-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18810	18917	
==>an produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18810	18917	
==>an produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2993	3094	
==>ie "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2993	3094	
==>ie "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1922	2022	
==>->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1922	2022	
==>->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4316	4412	
==>rn $var." = \\".$lit.";\n";
}
sub node::access_hash_element {
   my $var = emit(get_data($_[0], ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25968	26062	
==>ociated with the message, and can be interpolated into the
human-readable version.  Each variab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25968	26062	
==>ociated with the message, and can be interpolated into the
human-readable version.  Each variab <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	519	612	
==>balanced delimited/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.0 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18080	18184	
==>n_header};

    $self->{_seen_header}++;

    warn "1..M can only appear at the beginning or end of tests <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	402	506	
==>ed ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	402	506	
==>ed ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1389	1501	
==>now better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1389	1501	
==>now better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27622	27715	
==>, "list int", ":t listify(5)");
is(t($length_and_first), "∀α. list α → (α × int)", ":t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3267	3377	
==>Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3267	3377	
==>Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1862	1970	
==>die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_addre <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	858	966	
==>die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_addre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8723	8870	
==>atch unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8723	8870	
==>atch unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14017	14167	
==>y' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2849	2968	
==>) && $_->isa('type'))
        || confess "you can only add types to a list"
            foreach @_;
    CORE::unshift(@{ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1843	1945	
==>Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1843	1945	
==>Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15097	15193	
==>uctures of arbitrary depth and of
an arbitrary type. The function signatures will likely look som <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15155	15251	
==>uctures of arbitrary depth and of
an arbitrary type. The function signatures will likely look som <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20922	21034	
==>I0 = exists reps[cname]
    if $I0 == 0 goto setreps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4389	4479	
==>for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4389	4479	
==>for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12566	12660	
==>passing represent the
current working features.

This module deals with encoding and decoding o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12566	12660	
==>passing represent the
current working features.

This module deals with encoding and decoding o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7160	7256	
==>his module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7160	7256	
==>his module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1306	1460	
==>$n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $n ) eq 'HASH';
        
    return _mangle_ident( $n->{bareword} )
        if ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4592	4737	
==>_[:alnum:]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18118	18219	
==>sible in the Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
objec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18118	18219	
==>sible in the Rosetta Native
Interface, if at all.  To account for situations where multiple DBMS
objec <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7134	7225	
==>Params, $pLValue, $pIsMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, $pSubParams, $pSubL <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3743	3932	
==>my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $control  = $conf->archive_control;
        system <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16888	17041	
==>ct = sprintf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4381	4531	
==>} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4521	4671	
==>} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9439	9533	
==>rl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3264	3358	
==>rl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27000	27102	
==>all);
require "m02.pl";
require "re05.pl";

sub mkMatch {
    my($len,$a)=@_;
    return MatchX->new()- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	37	138	
==>trict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses the text inside <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11314	11469	
==>( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11593	11748	
==>( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $ma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1148	1292	
==>f == $TRUE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }
}

sub or : method {
    my ($self, $bloc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16591	16691	
==>essionNoIn>
    | <EqualityExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressio <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16260	16362	
==>$builtin = $self->env->get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("dig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32256	32380	
==>s
and C<(?:...)>).

=item raw

The raw representation of this object.

=item type

The specific type of this object.

=item u <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	526	623	
==>hod returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	526	623	
==>hod returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13636	13756	
==>roduce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13636	13756	
==>roduce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19895	19993	
==>anages its
resources.  It is the standard practice for Mac OS X programs, including
the operating s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19895	19993	
==>anages its
resources.  It is the standard practice for Mac OS X programs, including
the operating s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1244	1393	
==>tractor
                     | Comparator
                     | Pair(KeyExtractor, Comparator);

# signature from S29draft.pod 8651.
 multi Array::so <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8994	9095	
==>E TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1451	1578	
==>tr( $extracted2, 1, -1 ) if length($extracted2) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	916	1072	
==>n;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	880	1028	
==>n;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	537	627	
==>ead1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	537	627	
==>ead1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15010	15112	
==>ect => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15010	15112	
==>ect => 1 )`

Creates a span with a single element. This is the same as `new( start => $object, end => $ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1494	1606	
==>$config); 
    add_path(installsitearch    => $config); 
    add_path(installsitelib     => $config); 

    $conf <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11589	11696	
==>re out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11589	11696	
==>re out a good way to do this without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21546	21653	
==>ple must be distinct from the other tuples.  All Relation
attributes may be individually addressed only by t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26098	26205	
==>ple must be distinct from the other tuples.  All Relation
attributes may be individually addressed only by t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3198	3415	
==>), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), return;
                }
        
                ### set up the files
                for my $meth (qw[registered_alterna <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17188	17292	
==>here(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and is().
#

sub fresh_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14265	14368	
==>$desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will prin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14323	14426	
==>$desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9800	9922	
==>ss \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9794	9916	
==>ss \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	948	1112	
==>=> 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	948	1112	
==>=> 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3446	3547	
==>hObj );
  if ( (substr $target, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj->fro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7174	7300	
==>ackage} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	475	601	
==>ackage} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3432	3526	
==>ccessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3432	3526	
==>ccessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	915	1019	
==>ticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length Content-Locatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	915	1019	
==>ticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content-Length Content-Locatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12209	12315	
==>command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12209	12315	
==>command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12592	12698	
==>if !$args{stderr} &&  $is_macos;
    if ($args{verbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5742	5882	
==>> 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5742	5882	
==>> 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23372	23501	
==>G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19793	19922	
==>G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifth <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	190	291	
==><sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< serv <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	190	291	
==><sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< serv <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11316	11463	
==>rint("        $num_tests/$test{max} TODO ${todo_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XX <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8822	8924	
==>file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relative_file = abs2rel($input_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2984	3108	
==>() ),
    }
};
';
    return $program;
}
sub node::block {
    return "\n    {\n" . emit($_[0]) . "\n    }\n";
}
sub node::su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1373	1472	
==>rn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1373	1472	
==>rn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19587	19673	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 IN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19587	19673	
==>AN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 IN <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	295	397	
==>ush(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	295	397	
==>ush(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _ci <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2846	2944	
==>an value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2846	2944	
==>an value.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15740	15842	
==>e design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://ww <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15740	15842	
==>e design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<http://ww <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	152	277	
==>r::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	152	277	
==>r::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	251	359	
==>Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	251	359	
==>Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

me <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10080	10181	
==>acilitate the
testing of those features. For more information see the FUTURE PLANS
section of this doc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10138	10239	
==>acilitate the
testing of those features. For more information see the FUTURE PLANS
section of this doc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	139	288	
==>opy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	139	288	
==>opy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	500	603	
==>e  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	500	603	
==>e  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns boo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1254	1381	
==>pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20451	20562	
==>or(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16872	16983	
==>or(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handl <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3169	3278	
==>my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5375	5484	
==>my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2793	2920	
==>1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=ite <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2793	2920	
==>1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=ite <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13565	13662	
==>nded.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be expand <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13565	13662	
==>nded.

If $allow_unterminated is TRUE then we also unterminated named
entities will also be expand <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30635	30739	
==>e Messages but the whole module must represent a single
language.

The name of each Template module has t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30635	30739	
==>e Messages but the whole module must represent a single
language.

The name of each Template module has t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2003	2123	
==>|| confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attri <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1685	1801	
==>|| confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	7	107	
==>ated file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	7	107	
==>ated file - do not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36209	36301	
==>App','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36209	36301	
==>App','MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	588	690	
==>oduce the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcf <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	588	690	
==>oduce the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcf <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	854	965	
==>g highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_resolve( list_depen <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17539	17648	
==>,
           $tot->{files}, $tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \& <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25834	25933	
==>ing.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more vari <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25834	25933	
==>ing.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more vari <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	940	1115	
==>$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab ruleop::concat(\n" . 
               ( join '', @s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1905	2011	
==>($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1905	2011	
==>($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($self.size <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7658	7832	
==>SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7658	7832	
==>SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cooki <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20990	21103	
==>uld not occur multiple times.  The result of doing so,
it that only the last of these fields will be present in th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20990	21103	
==>uld not occur multiple times.  The result of doing so,
it that only the last of these fields will be present in th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5023	5176	
==>else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5023	5176	
==>else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31276	31377	
==>Fre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31276	31377	
==>Fre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	179	309	
==>e   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	179	309	
==>e   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14349	14433	
==>| <LeftHandSideExpression><no_LineTerminator_here><'--'>
}
rule UnaryExpression :word <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9455	9582	
==>},
    curhostname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9455	9582	
==>},
    curhostname   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9170	9276	
==>.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9170	9276	
==>.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6101	6198	
==>d as one long string.

=item List Context

All headers are returned split into the respective
line <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6101	6198	
==>d as one long string.

=item List Context

All headers are returned split into the respective
line <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20149	20242	
==>croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authori <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20149	20242	
==>croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authori <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12261	12372	
==>does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12261	12372	
==>does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	860	954	
==>ll be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	860	954	
==>ll be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, s <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	629	867	
==>f $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	629	867	
==>f $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	522	685	
==>le dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	522	685	
==>le dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10096	10216	
==>amed{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10090	10210	
==>amed{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21426	21541	
==>t Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21426	21541	
==>t Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	329	433	
==>le @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	329	433	
==>le @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9967	10074	
==>y, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9967	10074	
==>y, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	744	864	
==>'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw[installations] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	652	901	
==>ta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	652	901	
==>ta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBM <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1841	1941	
==>ens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	837	937	
==>ens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2001	2096	
==>proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2001	2096	
==>proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_superset <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9595	9688	
==>=> \\\$from, match => \\\@match, named => \\\%named, bool => \\\$bool, to => \\(0+\$pos), capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17139	17233	
==>m $h.content_language

The natural language(s) of the intended audience for the message
content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17139	17233	
==>m $h.content_language

The natural language(s) of the intended audience for the message
content <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1375	1516	
==>node->name . "(" . $node->id . ")\" " . 
                    "];\n";  
}

sub _draw {
    my ($class) = @_;
    my $output;
    if (not exists <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1354	1472	
==>okup as well as method lookup, as attribute fetching is actually
just a shorthand for calling an accessor).

Run-time i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15807	15898	
==>main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also wri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15807	15898	
==>main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also wri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6433	6583	
==>mar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6433	6583	
==>mar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1422	1518	
==>ne to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1422	1518	
==>ne to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in particu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3788	3915	
==>esponse
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3788	3915	
==>esponse
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3348	3465	
==>ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucir <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3348	3465	
==>ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucir <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2399	2506	
==>);
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2399	2506	
==>);
    return $rv;
}
method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $othe <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	41	151	
==>mote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_addr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	41	151	
==>mote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_addr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8243	8338	
==>eys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8243	8338	
==>eys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7024	7159	
==>ess $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7024	7159	
==>ess $match->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $ne <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1851	1959	
==>ther) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the corr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1851	1959	
==>ther) returns Bool {

    # for some reason, directly returning this expression does not
    # yield the corr <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3044	3163	
==>lete $values{perl_version} ) {

        # Always canonical to three-dot version
        $perl_version =~
          s{^(\ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3749	3854	
==>two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3749	3854	
==>two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	562	666	
==>ram );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<densi <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	562	666	
==>ram );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<densi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1344	1447	
==>stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self._stringif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1344	1447	
==>stringify($_) })));
}

method member($self: $item) returns Object {
    return %!members{$self._stringif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16872	16979	
==>ty.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to docum <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16872	16979	
==>ty.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to docum <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1397	1538	
==>perclasses')) 
        if $supers->is_empty == $bit::TRUE;    
        
    push @classes => $supers->to_native;    
        
    foreach my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2449	2579	
==>t (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2449	2579	
==>t (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2542	2655	
==>' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar (Int))';


node_s 'S <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	243	345	
==>--------------------------------------
## This is an extension of the Mini-MetaModel which adds a self- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	211	313	
==>--------------------------------------
## This is an extension of the Mini-MetaModel which adds explici <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1276	1370	
==>_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2a <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1276	1370	
==>_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1281	1408	
==>ecced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1281	1408	
==>ecced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	174	283	
==>use this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	174	283	
==>use this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14217	14318	
==>0.0,24:00:00.0]

It would not make sense to iterate through a continuous span, because the "separation <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14217	14318	
==>0.0,24:00:00.0]

It would not make sense to iterate through a continuous span, because the "separation <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4297	4431	
==>Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4297	4431	
==>Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_c <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	774	1040	
==>$line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_p <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	774	1040	
==>$line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1457	1569	
==>ompiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the l <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1457	1569	
==>ompiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	739	851	
==>q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	739	851	
==>q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1381	1516	
==>($1),  :day($2),
          :hour($5),    :minute($6), :second( $second ),
          :tz($tz) );
}

# convert from a unix time_t
multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26721	26838	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1748	1862	
==>ters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ") <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1748	1862	
==>ters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ") <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15120	15223	
==>e is set if you pass
an argument to the method.  The old header value is always returned.
If the given h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15120	15223	
==>e is set if you pass
an argument to the method.  The old header value is always returned.
If the given h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16618	16779	
==>values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20095	20256	
==>values -> $t2 {
                    take mapping( $t1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3991	4104	
==>ght.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3991	4104	
==>ght.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2452	2582	
==>i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::De <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2452	2582	
==>i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::De <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	230	344	
==>attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

S <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	230	344	
==>attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

S <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3444	3581	
==>ne_prim {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return $body;
}

sub define_literal {
	my $self = shift;
	my ($node, $sym <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12523	12622	
==>e to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12523	12622	
==>e to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the header fie <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37335	37426	
==>ed C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41884	41975	
==>ed C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-method i <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	219	394	
==>);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

sub import {
    $^H{regcompp} = su <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	214	355	
==>);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1804	1923	
==>ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1804	1923	
==>ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	21	117	
==>trict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	21	117	
==>trict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use in <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	249	354	
==>stInit.  You may "use TestInit" in the test
# programs but it is not required.
#
# P.S. This documentat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25130	25228	
==>ption, the copyright holders
of Rosetta give you permission to link Rosetta with other free softwar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25130	25228	
==>ption, the copyright holders
of Rosetta give you permission to link Rosetta with other free softwar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1934	2046	
==>rl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule sigl <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1934	2046	
==>rl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule sigl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26378	26477	
==>EEN		0x00800
 #define ROPT_SANY_SEEN		ROPT_CANY_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24882	24993	
==>'(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21303	21414	
==>'(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	133	253	
==>de");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhe <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	133	253	
==>de");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	978	1079	
==>regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	978	1079	
==>regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32194	32292	
==>en checks
each set's member for language B and displays that; and so on.

I<For the present, Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32194	32292	
==>en checks
each set's member for language B and displays that; and so on.

I<For the present, Locale <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2154	2260	
==>); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n/){ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5637	5766	
==>b ToBoolean(JSX::Value::String $v) {
    ~$v eq "" ?? JSX::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3135	3245	
==>s object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3135	3245	
==>s object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=ite <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17203	17302	
==>%params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :descendant)))
     (= $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8636	8744	
==>ext_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $ne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8636	8744	
==>ext_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	89	182	
==>:Headers $!headers handles «
    header push_header init_header remove_header remove_content_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	89	182	
==>:Headers $!headers handles «
    header push_header init_header remove_header remove_content_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	915	1122	
==>ders
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:pe <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	915	1122	
==>ders
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:pe <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4538	4815	
==>l->new(
                    Thunk->new(
                        Sym->new('$accum'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&repeatedly_apply_and_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	567	665	
==>) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_resu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	567	665	
==>) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub get_resu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3913	4012	
==>er Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the o <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3913	4012	
==>er Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10849	11014	
==>return a F<Regexp> object, but the regex; it might be
slightly different from the regex you passed it, but it will not operate
differently.

The string representation <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2846	2960	
==>Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2846	2960	
==>Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47197	47307	
==>(block->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:nam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4888	5082	
==>sure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6650	6844	
==>sure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2952	3358	
==>lue object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Varia <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2952	3358	
==>lue object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Varia <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8703	8829	
==>f !(substr($X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  package <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3633	3739	
==>ew( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3633	3739	
==>ew( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	82	187	
==>:Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	82	187	
==>:Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39192	39281	
==>setta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39192	39281	
==>setta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2841	2934	
==>edText::Message $message!) {
    my Str $user_text = $translator.translate_message( $message ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2841	2934	
==>edText::Message $message!) {
    my Str $user_text = $translator.translate_message( $message ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2432	2566	
==>" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2432	2566	
==>" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	777	903	
==>\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	786	912	
==>\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4639	4761	
==>ultidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $mul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4639	4761	
==>ultidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $mul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4737	4833	
==>d, '!=', $p->id, '... not the same ids');

$p3d->set_x(200);
is($p3d->get_x, 200, '... got the ri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3853	3973	
==>\n";
    }
    return $s;  #"package $self->{name};\n$s\n";
}

sub _optimize {
    my @rules = reverse sort @_;
    my $i <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1277	1384	
==>delimiter ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	621	732	
==>the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	621	732	
==>the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7706	7809	
==>push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7706	7809	
==>push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15247	15374	
==>},
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15247	15374	
==>},
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	241	356	
==>able';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like <==
2	/Users/nnunley/pugs/util/package-osx.pl	6984	7081	
==>erl5::Differences.3pm
        /usr/local/man/man3/Perl6::Perl5::Docfinder.3
        /usr/local/man <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4602	4727	
==>match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4614	4739	
==>match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previou <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3890	3989	
==>ion = $-[0];
  $currentTermTable = $self->termTable() if ($whitespacePosition <= $position);

  expe <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1473	1569	
==><docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1473	1569	
==><docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6773	6888	
==>s;
    my %copy = map { $_ => $_ ne $cur } @$groups;
    my @copy = grep { $copy{$_} } keys %copy; #all groups minus <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1205	1320	
==>aram is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1205	1320	
==>aram is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1527	1706	
==>$inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    call <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1527	1706	
==>$inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    call <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2090	2203	
==>ory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland objects -- those are wri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2012	2122	
==>ory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland objects -- those are wri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11162	11261	
==>val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11162	11261	
==>val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2002	2112	
==>hese are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramle <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2002	2112	
==>hese are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramle <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	16	123	
==>DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	16	123	
==>DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11067	11176	
==>e ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11067	11176	
==>e ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record th <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1377	1497	
==>ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @tokens.shift;
  };
}


## Chapter 8 section 1.3 <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5808	5925	
==>$scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSy <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2375	2482	
==>rldoc::DOM::Element>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2375	2482	
==>rldoc::DOM::Element>

It's all about meta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	417	521	
==>e(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	417	521	
==>e(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> < <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7550	7656	
==>);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7550	7656	
==>);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1614	1721	
==>elf, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2262	2369	
==>elf, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be s <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2900	3001	
==>(or all if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful v <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2900	3001	
==>(or all if there are less than I<N> available) tokens
from the bucket.  Does not return a meaningful v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17218	17337	
==>oaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

A <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17218	17337	
==>oaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

A <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10820	10919	
==>return value from first Object singleton/class method called by Bar');      
  
is($Bar->singleton_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1968	2111	
==>s($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newlin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1968	2111	
==>s($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newlin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16134	16249	
==>nly on how Rosetta itself works, and will
not spend much time in providing rationales; you can read TTM itself and
v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16134	16249	
==>nly on how Rosetta itself works, and will
not spend much time in providing rationales; you can read TTM itself and
v <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14639	14739	
==>ities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  F <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14639	14739	
==>ities, except that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  F <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10560	10720	
==>= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2869	2976	
==>print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2857	2964	
==>print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12018	12119	
==>le requires Perl 5.6 or better, I don't expect that to be a
problem.

=head2 Using the Tree

If you wa <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5135	5233	
==>f $tail or die "error: file '$tail' not found.\n";
-f $rev  or die "error: file '$rev' not found.\n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	857	956	
==>vious($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	857	956	
==>vious($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4423	4520	
==>e, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4423	4520	
==>e, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6242	6399	
==>'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6755	6912	
==>'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4469	4603	
==>cess, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        fil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	190	307	
==>ks_like_number', 'blessed';

use base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = 0 unle <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1394	1506	
==>use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop sup <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1394	1506	
==>use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop sup <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27039	27144	
==>l";

sub mkMatch {
    my($len,$a)=@_;
    return MatchX->new()->set_as_failed() if !defined $a;
    my($s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6571	6684	
==>gspace g global  stringify>;
        %modifiers_supported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5016	5125	
==>d)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

# Check that $got is within $range of $expected
# i <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	33	141	
==>e File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $Real <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	33	141	
==>e File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $Real <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2521	2615	
==>set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2521	2615	
==>set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8199	8334	
==>[ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8199	8334	
==>[ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_typ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17085	17182	
==>he spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17085	17182	
==>he spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence object <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5607	5736	
==>ch the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5607	5736	
==>ch the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2365	2458	
==>s homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Sub <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2365	2458	
==>s homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Sub <==
2	/Users/nnunley/pugs/util/testgraph.pl	709	840	
==>linecss});

my $fh;
if (my $out = shift) {
    open $fh, '>', $out or die $!;
}
else {
    $fh = \*STDOUT;
}
binmode $fh, ":utf8" or <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	910	1010	
==>t::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	910	1010	
==>t::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22767	22877	
==>ames that
define the heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27319	27429	
==>ames that
define the heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22995	23098	
==>-party) classes, which at the very least
must determine the storage representation of the roles' attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	547	649	
==>$<block>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
	return "*" . $<ru <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5479	5622	
==>->stringify();
        
        # append it to the existing content of the index
        push @$index_content, $meta;
        
        ### XXX d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24138	24274	
==>n = join ' ', @canon;
    } else {
        push @result, "FAILED test $last\n";
        $canon = $last;
    }

    push @result, "\tFaile <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16390	16485	
==>he optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16390	16485	
==>he optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3754	3897	
==>ome point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3754	3897	
==>ome point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1023	1121	
==>ciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1023	1121	
==>ciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not just <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6681	6782	
==>);

is($Object->singleton_test_on_object(), 
   '&Object::singleton_test_on_object',
   '... got the r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2068	2170	
==>oping Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags ();

	use String::Escape qw/qpr <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15333	15432	
==>s return value is a type variable that is present inside the function, if it was free it might be un <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	40	199	
==>::Constants;

use File::Find::Rule;
use Cwd                         ();
use File::Copy                  ();
use Params::Check               qw[check];
use Log:: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13706	13827	
==>rget, pos, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value"] = charlist
    goto end
  er <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	555	685	
==>302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	555	685	
==>302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Re <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	67	221	
==>il ();
use String::Escape ();
use Term::ReadKey;

{
    package Map;
    sub new {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AU <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4043	4169	
==>" } sort grep { /patt/ } keys %main::;
        print "\n---- Conversion subs ----\n";
        print $conv;
    }
    elsif  ($a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3969	4092	
==>ties listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3969	4092	
==>ties listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   = <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3073	3178	
==>e\lib';
    $Config{sitelib} = 'C:\usr\site\lib';
    require Data::Dumper;
    print Data::Dumper::Dumper <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2071	2168	
==>ugs/Prelude.hs";
    my $ppc_yml = "blib6/lib/Prelude.pm.yml";

    build_lib($version, $ghc, @arg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1479	1571	
==>C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler matc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1479	1571	
==>C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler matc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20502	20601	
==>and lets you arrange the list in order of preference.  When you
open a program, it will search for l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20502	20601	
==>and lets you arrange the list in order of preference.  When you
open a program, it will search for l <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	699	801	
==>used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	699	801	
==>used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptosystems. <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	27	233	
==>.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return : <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	27	233	
==>.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38253	38348	
==>nal parameter $text (a string), and a Message Variables hash ref
in its positional parameter %ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38253	38348	
==>nal parameter $text (a string), and a Message Variables hash ref
in its positional parameter %ms <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16346	16555	
==>-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16340	16549	
==>-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3910	4119	
==>BLE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installable')}; 

                            
1;

# Local variables:
# c-indenta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9793	9953	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10072	10232	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ru <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	777	888	
==>[0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx->($_cmd) or $_cmd = MM->maybe_command($_cmd));

    for my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1713	1841	
==>ct_equiv);

	if (my $meth = $self->can("reduce_" . $node->struct_equiv->moniker)) {
		return $self->$meth($node);
	} else {
		ret <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15799	15899	
==>y of the binding contains the env with the the symbols of our outer scope
let: new_env($$) = {
	my $o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5764	5907	
==>r = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5764	5907	
==>r = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infini <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	389	494	
==>ans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	389	494	
==>ans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == Inf
}

m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6128	6219	
==>ndex: $!";
    $template = HTML::Template->new(filename => 'util/catalog_tmpl/Synopsis.tmpl' <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	1	111	
==>se v6;

class FA::DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA:: <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	1	111	
==>se v6;

class FA::DFA::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA:: <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1662	1832	
==>e_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealB <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1662	1832	
==>e_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealB <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8261	8364	
==>f ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8249	8352	
==>f ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::R <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24797	24906	
==>t (a -> b) -> c");
}
{
	my $type = type::operator::arrow->new(
		type::variable::free->new,
		type::operator:: <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	749	839	
==>egexp::Common;
use Data::Dumper;

# --------------------------------------------------
# Re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4528	4676	
==>he inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[- <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4528	4676	
==>he inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10105	10203	
==>those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10163	10261	
==>those features. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1545	1649	
==>$?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1545	1649	
==>$?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8760	8933	
==>md =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8760	8933	
==>md =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	637	744	
==>_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	799	906	
==>_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11211	11354	
==>-s $dest == -s $src
          or do { warn "mismatch: $src <=> $dest" ; return };
      }
      1;
    },
    using  => sub {
      utime undef, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8412	8528	
==>pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1609	1755	
==>,
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1620	1766	
==>,
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3348	3473	
==>ername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3348	3473	
==>ername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	564	658	
==>re || die $UNIVERSAL::require::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	17	141	
==>se v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%% <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	17	141	
==>se v6;

module URI::Escape-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%% <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	515	626	
==>ned %param<density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    m <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	515	626	
==>ned %param<density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1601	1723	
==>Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supporte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1601	1723	
==>Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supporte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1782	1882	
==>= map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmn <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1782	1882	
==>= map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	280	450	
==>quest_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	280	450	
==>quest_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1601	1709	
==>= get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1805	1913	
==>= get_str( $_[0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5944	6078	
==>ackage belongs to.

=cut

sub index_files { #TODO: When using two properties (A and B) to group the dists
                  #      tree <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14626	14726	
==>} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2107	2207	
==>} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_stack} } <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	543	692	
==>! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi s <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	543	692	
==>! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3250	3378	
==>ller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{$_} ] ) }, keys %idx );

    @c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17512	17603	
==>n>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionNoIn : <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2360	2513	
==>oreSize' => sub { # $int -> ()
                my $self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2522	2649	
==>= shift;
    my $self = { levels => [], @_ };
    bless $self, $class; 
}

our $op_count = '000';
sub add_op {
    my ($s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18603	18727	
==>de,$wa)=@_;
    my(@a,$s);
    if($wa) {
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval($code);
    } else {
	eval( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15973	16070	
==>end` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15973	16070	
==>end` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )` <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5733	5838	
==>::NodeSet0' if !$pkg_root;
    my $code = "";
    my(%created,%used);
    for my $n (@PIL::PIL1CPerl5::Nod <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20993	21082	
==>module);
    Pugs::Internals::require_use_helper(Bool::False,$module);
}
sub Pugs::Interna <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	383	842	
==>54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	383	842	
==>54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1011	1126	
==>1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $direction= 1; 1 }    # XXX - get pos from reg <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	19	120	
==>rl 6 Version
use v6;

sub £to€ { $_ * 1.4656 }

# interpolierter Funktions-Aufruf
say "100£ sind { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4538	4686	
==>my %hash = @_;

    my $from; my $to;
    my $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6948	7067	
==>$size)>

This event is fired once the '=head(n)' directive is reached. This does not include 
the text of the header, th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6948	7067	
==>$size)>

This event is fired once the '=head(n)' directive is reached. This does not include 
the text of the header, th <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	337	431	
==>r_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	337	431	
==>r_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2060	2175	
==>?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POS <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2060	2175	
==>?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	283	406	
==>t_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	489	612	
==>t_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4854	4958	
==>ite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= C <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4854	4958	
==>ite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4464	4579	
==>f $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4464	4579	
==>f $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26042	26136	
==>version.  Each variable name is a machine-readable short
string; the allowed variable names you <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26042	26136	
==>version.  Each variable name is a machine-readable short
string; the allowed variable names you <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1520	1623	
==>lue); # shadows any previous "name"

    $self->find_dyn_sym("name"); # returns $value

    $self->leave <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1513	1660	
==>$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1513	1660	
==>$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule { <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	12	107	
==>oc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	12	107	
==>oc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14518	14646	
==>r!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14518	14646	
==>r!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5009	5223	
==>et_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5009	5223	
==>et_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $reque <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	695	870	
==>tack}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code was shame <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5960	6056	
==>::Parser - base class for parsing regexes

=head1 SYNOPSIS

See examples in L<"USAGE">.

=head1 W <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22336	22459	
==>self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18757	18880	
==>self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19068	19188	
==>s own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its ow <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19068	19188	
==>s own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its ow <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	33	125	
==>:PilUtil;
require Perl6::Run::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
req <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3366	3470	
==>ompiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3366	3470	
==>ompiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: P <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4672	4798	
==>) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4730	4856	
==>) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	0	119	
==>use strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
us <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	0	119	
==>use strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
us <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1498	1599	
==>ath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1498	1599	
==>ath( $_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1726	1822	
==>fix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1726	1822	
==>fix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	160	287	
==>tart_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	160	287	
==>tart_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        sta <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1792	1936	
==>s.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    my $msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    pr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6385	6485	
==>p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5_simple_escape_sequence( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	912	1023	
==>ternatives_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->subdir( $self->con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6720	6818	
==>shift;

	use Data::Dumper;
	$Data::Dumper::Maxdepth = 4;
	#$Data::Dumper::Indent = 1;
	$Data::Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2001	2092	
==>nk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2001	2092	
==>nk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	6	103	
==>--------------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	6	103	
==>--------------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3593	3696	
==>) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index whe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3593	3696	
==>) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index whe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1380	1473	
==>g_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1380	1473	
==>g_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %ms <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1555	1650	
==>udrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1555	1650	
==>udrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9608	9730	
==>t use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = sp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9608	9730	
==>t use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10640	10748	
==>m the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10640	10748	
==>m the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3643	3754	
==>piler



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your target <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3513	3619	
==>piler

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your target <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16348	16444	
==>t characters
they represent, as well as the macros C<\w>, C<\d>, etc.  Then this
example would be <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15512	15677	
==>OPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15512	15677	
==>OPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $c <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1439	1577	
==>self, $file ) = @_;

    $self->version_from($file);
    $self->perl_version_from($file);

    # The remaining probes read from POD section <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1834	1955	
==>s Class::Events::Subscriber $.subscriber;

    method match ($notification) {
        # this is really up to your subscrip <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13163	13267	
==>f the function the arrow operator, applied to the type of the parameter (as allocated in the new env), an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2095	2321	
==>ep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2095	2321	
==>ep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4148	4263	
==>ub->type,
			struct_equiv => $rval,
			orig => $val,
		);
	}

	sub reduce_app {
		my $self = shift;
		my $app = shif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7465	7563	
==>e $self: symbol $label) returns bit { 
    %:methods.exists($label);
}

(method has_method ((opaque <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	44	151	
==>arsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	44	151	
==>arsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6857	6971	
==>, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-nu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6857	6971	
==>, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-nu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1314	1427	
==>ous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1314	1427	
==>ous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21954	22221	
==>_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

method id (opaque $self:) returns num {
    # speculative syntax here :)
    unbo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3331	3428	
==>lti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3331	3428	
==>lti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1604	1710	
==>.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1604	1710	
==>.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Per <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	300	399	
==>t*
# getting the *subscriptions* for it, and converting them to *notifications* when they match
# as <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	699	859	
==>m($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	699	859	
==>m($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	543	649	
==>->new;
}

sub provides {
    my $self = shift;
	my $node = shift;

	warn Carp::longmess unless $node->can(" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	633	745	
==>er_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	691	803	
==>er_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15847	15947	
==>ly, sometimes a program will raise a condition or error that,
while resembling a message that would b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15847	15947	
==>ly, sometimes a program will raise a condition or error that,
while resembling a message that would b <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11068	11168	
==>eturns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11126	11226	
==>eturns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	47	147	
==>as %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	47	147	
==>as %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $even <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7755	7894	
==>my $perl5_c = '';
    if (grep /^-DPUGS_HAVE_PERL5$/, @_) {
        $perl5_c = 'src/perl5/p5embed.c';
    }

    # Remove -Wl flags in Perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	196	304	
==>e.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interfa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	402	510	
==>e.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interfa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9388	9496	
==>and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, it may not be pos <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9388	9496	
==>and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, it may not be pos <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19125	19227	
==>tta DBMS with little
trouble.  Likewise, emulation layers for any other programming language can
be sup <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19125	19227	
==>tta DBMS with little
trouble.  Likewise, emulation layers for any other programming language can
be sup <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5829	5964	
==>ss, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expected;
    } elsi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3088	3200	
==>e span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3088	3200	
==>e span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11730	11827	
==>.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11730	11827	
==>.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered l <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	789	893	
==>();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2124	2246	
==>ll($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::Interna <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12846	12953	
==>ce is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12846	12953	
==>ce is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10745	10861	
==>ert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10745	10861	
==>ert($_) });
      }
  }

You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23760	23855	
==>all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alternative <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23760	23855	
==>all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alternative <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1114	1208	
==>=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1114	1208	
==>=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	135	549	
==>);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	135	549	
==>);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::M <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1609	1705	
==>those modules.

Test::Harness runs tests and expects output from the test in a
certain format.  T <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21587	21681	
==>le ContinueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5151	5273	
==>ONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5151	5273	
==>ONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1830	1930	
==>2006 by Stevan Little and others.

This program is free software; you can redistribute it and/or modi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1830	1930	
==>2006 by Stevan Little and others.

This program is free software; you can redistribute it and/or modi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	198	292	
==>y $smokeserv = "http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&usage <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3361	3465	
==>esc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3419	3523	
==>esc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	942	1113	
==>e "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callba <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	942	1113	
==>e "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callba <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2315	2416	
==>ave objects or fully functioning modules in 
Pugs, this port does it's best to work with those limitat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2315	2416	
==>ave objects or fully functioning modules in 
Pugs, this port does it's best to work with those limitat <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4719	4998	
==>w(
                        App->new(
                            Sym->new('&repeatedly_apply_and_accum'),
                            Sym->new('&f'),
                            App->new(
                                Sym->new('&f'),
                                Sym->new('$a <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3729	3879	
==>{
        # XXX
        $ret = traverse_ast ( $tree[1][0] );
    }	
    elsif $tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7119	7313	
==>};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'afte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6881	7065	
==>};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'afte <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5158	5292	
==>t operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5158	5292	
==>t operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	629	734	
==>tta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Sh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	629	734	
==>tta::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Sh <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13162	13290	
==>educe_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	572	700	
==>educe_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14282	14381	
==>do) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14340	14439	
==>do) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each string <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4428	4609	
==>w($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->pus <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25165	25259	
==>tion $other!) returns Bool>

This method returns a Bool indicating whether the immutable identi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29717	29811	
==>tion $other!) returns Bool>

This method returns a Bool indicating whether the immutable identi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5795	5918	
==>&& ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5795	5918	
==>&& ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -In <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35068	35165	
==>f;
  }

We inherit the merge() method defined in F<Regexp::Parser::branch>,
which is used when two <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2505	2596	
==>lass should not inherit from Perl6::Value::List, because this would
# cause multi-dimensiona <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2505	2596	
==>lass should not inherit from Perl6::Value::List, because this would
# cause multi-dimensiona <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43182	43304	
==>erl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

The Perl 6 package L<Relation <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9186	9293	
==>eck the AUTO flag yet for link management
    LINKING: {   
        my $alt = $self->remove_registered_alter <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	842	951	
==>rsa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    re <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	842	951	
==>rsa.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    re <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	137	234	
==>t$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	137	234	
==>t$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	120	236	
==>cotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $f <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18441	18529	
==>rm_repeat_max_ng(Re,Left,Fx,F1,Bx,B1,Ex,E1).


rm_repeat_min(_Re,0,F0,F0,B0,B0,E0,E0).
rm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3749	3906	
==>...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3749	3906	
==>...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10530	10637	
==>= $conn.compile_routine( $prd_add_person );

    # Define and compile a function that will select a record f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10530	10637	
==>= $conn.compile_routine( $prd_add_person );

    # Define and compile a function that will select a record f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2583	2713	
==>Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11743	11863	
==>> $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11743	11863	
==>> $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3201	3342	
==>ency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta-> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3665	3806	
==>ency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16181	16283	
==>ned global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->g <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2590	2692	
==>ned global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9247	9365	
==>length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ($con <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9247	9365	
==>length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pmc_compile($text, ($con <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	688	962	
==>d    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPOSITORY,
        },
        ### XXX this won't work over http mirrors etc!
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11263	11387	
==>ample $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $r1;
}

&intersect :: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8358	8484	
==>=> chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8358	8484	
==>=> chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13687	13806	
==>b::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13687	13806	
==>b::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_nam <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2587	2700	
==>er separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2587	2700	
==>er separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4678	4777	
==>This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cw <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4678	4777	
==>This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cw <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	35	160	
==>se strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = call <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	35	160	
==>se strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8493	8608	
==>uthorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8493	8608	
==>uthorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $us <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2060	2156	
==>$other.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equal( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2060	2156	
==>$other.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equal( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	954	1061	
==>the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	954	1061	
==>the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	138	275	
==>returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	138	275	
==>returns Array {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	703	793	
==>atch If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	703	793	
==>atch If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-A <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2308	2446	
==>s failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2308	2446	
==>s failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5159	5261	
==>tr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5159	5261	
==>tr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C< <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2616	2775	
==>' => sub { _('$.description') },        
        'status' => sub {
            return {
                passed      => _('$.passed'),
                descriptio <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10238	10362	
==>f, $initrd_img; mkdir $_ for @dirs },
    help   => <<HELP;
      We need a temporary directory the initrd.gz will be built l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11544	11638	
==>n attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11544	11638	
==>n attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8309	8445	
==>ement {
    my $n = $_[0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	186	301	
==>ffrent formats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1621	1733	
==>+length $1,
    } )
        if $_[0] =~ /^.{$pos}((?:(?<!\w)|(?!\w)|\s)\s*)/s;
        #if $_[0] =~ /^.{$pos}(\s+ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1326	1424	
==>rns List
 &sort<> := &sort<Criterion>.assuming(by => &infix:<cmp>);

 type KeyExtractor ::= Code(An <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	449	620	
==>nt { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_)
    returns N <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3899	4011	
==>} values %cats) {
    next unless $_;

    delete $delete{$_->{filename}};
  }

  unlink keys %delete;
}

sub pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1409	1538	
==>S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1409	1538	
==>S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	537	630	
==>ot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	537	630	
==>ot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19969	20138	
==>f:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40429	40598	
==>f:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5015	5122	
==>split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5015	5122	
==>split " ", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channel <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3386	3478	
==>on::Gregorian;# qw(duration);

#BEGIN {
#our &Date::Gregorian::duration ::= &Duration::Gregor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7529	7632	
==>tes that there is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7529	7632	
==>tes that there is no more incoming data, and the remaining data should be 
padded and ciphered.  (The L< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	194	293	
==>rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	227	326	
==>rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7063	7182	
==>an0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7063	7182	
==>an0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $sel <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	252	370	
==>i_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	252	370	
==>i_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	220	338	
==>dule::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	220	338	
==>dule::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11613	11750	
==>value => sub { p6_as_bool(${$_[0]}) },
      perl5_object => sub { $_[0] ? 1 : undef },
      perl6_object => sub { $_[0]->as_perl5_bool } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	941	1055	
==>uce_stub {
    my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emitter::Prett <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6665	6779	
==>nf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6665	6779	
==>nf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2447	2551	
==>r $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3583	3751	
==>/request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response_del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3583	3751	
==>/request;
        
        if ($request) {
            my $request_time = $request.date;
            
            if ($request_time) {
                # Add response_del <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4697	4842	
==>)
        } else {
            # default FS order isn't guaranteed sorted; and sorting
            # helps diffing raw YAML results.
            @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2592	2712	
==>oin($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2592	2712	
==>oin($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { H <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19744	19842	
==>he Relation data type is immutable.  The value of
a Relation object is determined when it is constr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24296	24394	
==>he Relation data type is immutable.  The value of
a Relation object is determined when it is constr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	794	974	
==>r;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	794	974	
==>r;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1352	1460	
==>\A:v\s*\Z/) { $verbose = !$verbose; next;}
        if ($line =~ /\A:5\s+(.+)/) {
	    my $code = p6_wrap_code <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35662	35769	
==>ay reference of any number of objects

Ender: I<close>

=head2 close

Family: close

Types: close1, close2 . <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2192	2328	
==>lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^val <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2192	2328	
==>lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^val <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25888	26026	
==>ntrolEscape {  # see 15.10.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # see 15.10.1
      <[a..z <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7755	7861	
==>event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Wa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7755	7861	
==>event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Wa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14794	14959	
==>ional test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pulve <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	121	219	
==>Perl6::Core::Nil;

package reference;

use strict;
use warnings;

use Carp 'confess';
use Scalar::U <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	218	312	
==>ime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	218	312	
==>ime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::P <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1926	2023	
==>t and $reduced->isa("Blondie::Thunk"); # FIXME - enforce param checking on stubs or prims some how <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6652	6816	
==>_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6652	6816	
==>_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4503	4610	
==>ious versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4515	4622	
==>ious versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5036	5154	
==>tdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp sinc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5036	5154	
==>tdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp sinc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	646	782	
==>assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'Assert failed';
        $msg .= " - '$name'" if de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27234	27335	
==>r('&' => ...);  # see below
  }

=item $parser->add_flag($flag, $code)

This method creates a method o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19169	19294	
==>be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19169	19294	
==>be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending with C<=cut>.
    PL <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	435	584	
==>3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<co <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	435	584	
==>3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21255	21359	
==>e which
uses this would come up with keys which are unique across all Perl packages
(perhaps the key name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21255	21359	
==>e which
uses this would come up with keys which are unique across all Perl packages
(perhaps the key name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	1001	1095	
==>untime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIG <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	1001	1095	
==>untime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIG <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17164	17280	
==>method BUILDALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6054	6249	
==>$lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6054	6249	
==>$lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2766	2871	
==>}

sub has_symbol {
	my $self = shift;
	my $node = shift;

	exists $self->{names}{$node->orig};
}

sub dec <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19945	20039	
==>(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [Ci|F1],F1,B0,[C|B0],E0,E0) :- flag_i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1482	1739	
==>n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

mult <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1482	1739	
==>n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

mult <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9407	9497	
==>h @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3232	3322	
==>h @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7996	8106	
==>l {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7723	7828	
==>l {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $nod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1138	1250	
==>erset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1138	1250	
==>erset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22395	22524	
==>c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18816	18945	
==>c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RP <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8023	8126	
==>es is when you need do perform "set" operations on 
Span objects, that return lists of spans.

In this e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8023	8126	
==>es is when you need do perform "set" operations on 
Span objects, that return lists of spans.

In this e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3586	3706	
==>[A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3586	3706	
==>[A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19129	19238	
==>save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19129	19238	
==>save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9225	9341	
==>$cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9225	9341	
==>$cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5948	6046	
==>b/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved. <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5948	6046	
==>b/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1835	1959	
==>as Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1835	1959	
==>as Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46146	46264	
==>ttr(symbol->new('$:name'), $e->get('?$name'));
                  }));
                $e->get('$self:')->get_attr(symbo <==
2	/Users/nnunley/pugs/util/claim_drift.pl	482	582	
==>our %Conf, qw(--verbose|v --no|n);

if (! -d "..${FS}DrIFT") {
    warn <<".";
*** No DrIFT directory <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9950	10054	
==>The immediate validations
are performed at the moment the user tries to set the input, and input that
fai <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9950	10054	
==>The immediate validations
are performed at the moment the user tries to set the input, and input that
fai <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2584	2690	
==>more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2584	2690	
==>more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15584	15725	
==>direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15578	15719	
==>direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4857	4955	
==>faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any lefto <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4857	4955	
==>faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any lefto <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6046	6252	
==>this      = 0;  
                $unlink_this    = $test;
                last;
            }
            
            ### XXX clean up links from $unlink_this
        }      

        last LINKING unless $l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4488	4622	
==>wstr);

    if(matched) {
      SV* lp;
      SV* lcp; 
      int cap_idx = 0; /* number of caps is nparens+1 */
      if(ret < 1+2+2 | <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25608	25707	
==>is the same as the invocant Relation but that some of its attributes
are renamed.  The argument C<$m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30160	30259	
==>is the same as the invocant Relation but that some of its attributes
are renamed.  The argument C<$m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1900	2072	
==>undef' unless defined $x;
    my $q = $x;
    $q =~ s/\\/\\\\/g;
    $q =~ s/'/\\'/g;
    return "'$q'";
}

sub _qq {
    my $x = shift;
    return defined $x ? '"' . displa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4640	4777	
==>ta,
            );                
}



1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# En <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23962	24055	
==>ation object, whose Heading and
Body attributes are set respectively from the optional named p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28514	28607	
==>ation object, whose Heading and
Body attributes are set respectively from the optional named p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1588	1729	
==>shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4791	4932	
==>shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18651	18751	
==>te
threads try to access the same external resources.>

Rosetta does not use any dialect of SQL in it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18651	18751	
==>te
threads try to access the same external resources.>

Rosetta does not use any dialect of SQL in it <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10009	10125	
==>.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10009	10125	
==>.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17293	17409	
==>$how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13714	13830	
==>$how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) { <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2182	2342	
==>= 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    } <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2182	2342	
==>= 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7755	7879	
==>eturns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method tra <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7755	7879	
==>eturns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method tra <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12218	12358	
==>starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, e <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12218	12358	
==>starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22503	22600	
==>even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22503	22600	
==>even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This document <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	652	948	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	652	948	
==>export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	777	879	
==>:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	777	879	
==>:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	264	390	
==>\&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	264	390	
==>\&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5482	5600	
==>ode or response headers
(like 'Content-Type') when you are accessing the web using this
function.  If you need that inf <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5482	5600	
==>ode or response headers
(like 'Content-Type') when you are accessing the web using this
function.  If you need that inf <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7451	7541	
==>5_condition_alternative(noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_element <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13966	14058	
==>sh_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13966	14058	
==>sh_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1143	1231	
==>}
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1143	1231	
==>}
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20879	21007	
==>('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::EN <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43803	43931	
==>('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::EN <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4195	4479	
==>.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4195	4479	
==>.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'par <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1529	1638	
==>::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1529	1638	
==>::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12890	12991	
==>ass in multiple field names then it is generally not
possible to tell which of the returned values bel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12890	12991	
==>ass in multiple field names then it is generally not
possible to tell which of the returned values bel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4523	4621	
==>ent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4523	4621	
==>ent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18768	18871	
==>est.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18768	18871	
==>est.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avo <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4192	4290	
==>last", in which case the
object returned represents the last day for the specified month.

- `today <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4192	4290	
==>last", in which case the
object returned represents the last day for the specified month.

- `today <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11277	11459	
==>, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11277	11459	
==>, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14237	14405	
==>concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14516	14684	
==>concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constan <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11301	11409	
==>LASS_WORD, target, pos, lastpos
    $S0 = substr target, pos, 2
    if $S0 != "::" goto subrule_name_2
    po <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	351	457	
==>rom( $matchObj );
  $matchObj->position($matchObj->from());
  return $matchObj;
}

sub fail {
  my ( $match <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21491	21582	
==>, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  push @Regexp::Parser::logic <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2397	2492	
==>TML-ified ecma-262, without which
#  this grammar would likely not have been written. - Mitchell <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	911	1057	
==>CCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	911	1057	
==>CCEPT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$k <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12727	12840	
==>1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	4	91	
==>sr/bin/perl

package Blondie::Backend::Perl::Interpreter;
use base qw/Blondie::Reducer B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1047	1151	
==>Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_clo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1047	1151	
==>Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_is_clo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	421	615	
==>tatus_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	421	615	
==>tatus_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	941	1044	
==>R>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	941	1044	
==>R>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2407	2507	
==>enciphered or deciphered; when you're done, call the closure 
with no arguments to finish the cipheri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2407	2507	
==>enciphered or deciphered; when you're done, call the closure 
with no arguments to finish the cipheri <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6091	6187	
==>pan::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fgloc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6091	6187	
==>pan::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fgloc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39018	39119	
==>erl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Pe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39018	39119	
==>erl 6.x.y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Pe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1172	1279	
==>lume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' un <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1172	1279	
==>lume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' un <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6782	6879	
==>schein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6782	6879	
==>schein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	939	1082	
==>$class->attributes->members,
                             $class->associations->members,
                             # 2-way associations won't <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2106	2241	
==>ices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delete_key($k) );
    }
    *@ret;
}
# signature from S29dr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3158	3263	
==>@set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3158	3263	
==>@set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	527	642	
==>eyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # package Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	527	642	
==>eyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # package Locale::KeyedTe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	786	900	
==>seqences
        my @nonemptyseqs = (map { (($_->is_empty == $bit::FALSE) ? $_ : ()) } @seqs);
        # return the <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11615	11727	
==>kage Regexp::Parser::tail;
}
{
  # \1 (backrefs)
  package Regexp::Parser::ref;
  sub emit {
    my($o)=@_;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	361	473	
==>O - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	173	274	
==>O - implement the "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3555	3663	
==>difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3555	3663	
==>difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16062	16195	
==>}

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16062	16195	
==>}

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18783	18882	
==>Perl file that defines and returns an anonymous hash
definition.  While it is obvious that people wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18783	18882	
==>Perl file that defines and returns an anonymous hash
definition.  While it is obvious that people wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	577	669	
==>NV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	577	669	
==>NV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1011	1095	
==>6ws>?\(<?p6ws>?$<condition>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6284	6405	
==>}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6284	6405	
==>}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	970	1077	
==>ful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	970	1077	
==>ful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	687	833	
==>BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_[2],],
                @{$_[3]{attribute} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6383	6504	
==>ath}/$subpath.pm";
        my $pkg = "$self->{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1475	1594	
==>code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1486	1605	
==>code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'ca <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17091	17192	
==>on::Example @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4210	4326	
==>e_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5059	5175	
==>e_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3265	3347	
==>lement_previous, $self.complement_next, $set.complement_previous, $set.complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3265	3347	
==>lement_previous, $self.complement_next, $set.complement_previous, $set.complement_n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9818	9961	
==>ntry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                whi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	754	1017	
==>nd.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	754	1017	
==>nd.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10524	10715	
==>_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10524	10715	
==>_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14184	14296	
==>$last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14184	14296	
==>$last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4086	4193	
==>.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4086	4193	
==>.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2522	2631	
==>THOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_MET <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1672	1779	
==>THOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_MET <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2013	2139	
==>}

sub length {
    my $self = shift;
    return num->new(scalar(@{$self}));
}

sub elems {
    my $self = shift;
    return nu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	70	165	
==>::Subrule;
@ISA=qw(MatchX Match::Subrule);
package MatchX;
@ISA=qw(Match);
use overload
    'boo <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	398	506	
==>JECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTH <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	398	506	
==>JECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTH <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7231	7328	
==>_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$bounda <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7231	7328	
==>_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$bounda <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2435	2592	
==>\$inst_set,
            allow       => ISA_JIB_INSTALLATION_SET, 
        },
    };                             

    check( $tmpl, \%hash ) or error( Params: <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1791	1875	
==>gs,'--concurrent', PugsBuild::Config->lookup('smoke_concurrent') || 1);
push(@yaml_ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11831	11941	
==>andle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11831	11941	
==>andle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line, <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	5	113	
==>dule Foo; ..." is equivalent to "module Foo {...}", so it returns the Foo
# module object, see thread "What d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4268	4387	
==>($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4268	4387	
==>($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<353> = [-> $event {
    my ($chan, $nicks <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	759	869	
==>nchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Bench <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	759	869	
==>nchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Bench <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10083	10208	
==>rpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10083	10208	
==>rpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10262	10370	
==>p}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10262	10370	
==>p}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{matc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6761	6866	
==>ickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6761	6866	
==>ickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10422	10570	
==>es]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_me <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10422	10570	
==>es]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	41	145	
==>rammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 's <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	41	145	
==>rammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 's <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9243	9360	
==>ementation is always anchored at ^

### because it was specialized for subrules

### - needs to be generalized, and th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8939	9054	
==>ementation is always anchored at ^
### because it was specialized for subrules
### - needs to be generalized, and th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15279	15376	
==>e following methods are available for Span objects:

- `start()` / `end()`

Return the start or en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15279	15376	
==>e following methods are available for Span objects:

- `start()` / `end()`

Return the start or en <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	30	132	
==>ie::TypeSafe;

use strict;
use warnings;

use Blondie::ADTs;
use Blondie::Nodes;


sub new {
	my $class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7559	7695	
==>variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7306	7435	
==>variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7221	7334	
==>we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	522	635	
==>we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2760	2852	
==>(W, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, Z) --> "|", p5_concatenation(X), p5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12231	12362	
==>int STDERR "# $stdindisplay\n";
	    }
	    `$stdin`;
	    $runperl .= q{ < teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10781	10895	
==>)           --> "\\n", !. %# XXX - not quite?
p6_char_class(class_neg(newline))           --> "\\N", !.

p5_simple_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1087	1208	
==>r --exclude $Pms -czf $Data $path] )
            and die $?;
        system( qq[tar -f $Control -C $path/$Pms -cz .] )   a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2296	2383	
==>h_element => $() } }
RULE
*{'assign_hash_to_scalar'} = Pugs::Compiler::Rule->compile(<<' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1700	1804	
==>:Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Blon <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4714	4801	
==>p6_Int {p6_new('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3656	3804	
==>$index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4120	4268	
==>$index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$dep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7925	8025	
==>rnation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::altern <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7655	7751	
==>rnation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::altern <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17652	17753	
==>r database systems often refer to an error condition by an
internal code which is guaranteed to be uni <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17652	17753	
==>r database systems often refer to an error condition by an
internal code which is guaranteed to be uni <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2111	2219	
==>o ->type and ->name in the same way, we can use
    # them here.

    my $sigil = $sigils{$attr->type} || '$' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3967	4153	
==>te};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3846	4025	
==>te};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11599	11688	
==>nd `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11657	11746	
==>nd `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3603	3703	
==>count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or rea <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3603	3703	
==>count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or rea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9192	9314	
==>) = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9192	9314	
==>) = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # de <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7307	7590	
==>my(%failedtests);

    # Test-wide totals.
    my(%tot) = (
                bonus    => 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @te <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8950	9040	
==>class singleton method fails';
fails_ok { $iFoo->singleton_test_on_object } '... instance c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18377	18503	
==>bly confuse further parsing.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18377	18503	
==>bly confuse further parsing.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4223	4338	
==>[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4211	4326	
==>[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1676	1792	
==>niverse?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1676	1792	
==>niverse?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbi <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	291	746	
==>T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	291	746	
==>T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19441	19598	
==>AG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15862	16019	
==>AG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31553	31651	
==>deprecated, but is
still allowed, so I delete its handler too.  You can use this class to
ensure th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20700	20818	
==>>add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17121	17239	
==>>add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16173	16270	
==>le another one displays it to the
user instead.

Locale::KeyedText provides a simple but effective <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16173	16270	
==>le another one displays it to the
user instead.

Locale::KeyedText provides a simple but effective <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	763	899	
==>malizer.subsume( $_ ) } }, @args );
        }
        
        method create_arguments ( @strings )  {
            $.argument_class.strin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	242	338	
==>to reduce confusion and keep all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6398	6512	
==>$type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6398	6512	
==>$type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4301	4496	
==>ocument!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4301	4496	
==>ocument!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9571	9688	
==>s ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $co <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9571	9688	
==>s ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1	109	
==>odule Test-0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*E <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	59	167	
==>odule Test-0.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*E <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	217	326	
==>macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, for each of <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	217	326	
==>macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macros, for each of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8806	8915	
==>dule',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval strin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8806	8915	
==>dule',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval strin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10589	10729	
==>>new('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8825	8941	
==>, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8825	8941	
==>, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25142	25236	
==>sful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some statistics about the performa <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1786	1882	
==>rmation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1786	1882	
==>rmation> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $bu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23418	23516	
==>gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23418	23516	
==>gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", te <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3105	3229	
==>en my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << ".. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3105	3229	
==>en my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << ".. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5032	5160	
==>!$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Regexp::Parser::{$type . '::'};
    my $user_base = ${"${ref}::" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4464	4569	
==>----------------------------------------------------

my $Role;

my $_resolve = sub ($) {
    my ($self) = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1168	1390	
==>store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel,
            },
            index => {
                store => \$index
            },
            in <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14810	14910	
==>ently work.
%# XXX - more...
re_reverse(R,R).

%----------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1326	1476	
==>gspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1314	1464	
==>gspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2869	2981	
==>educe auto_provides without a MANIFEST, skipping\n";
        return $self;
    }

    # Avoid spurious warnings a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8434	8597	
==>ems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8434	8597	
==>ems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15984	16168	
==>S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # alternation branch

  # opening parenthesis (maybe capturing paren)

  # a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10840	11012	
==>S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # alternation branch
  $self->add_handler('|' => sub {
    my ($ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1913	2019	
==>ram);
    $program =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT <<'.';
module <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3670	3815	
==>d = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3670	3815	
==>d = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3851	3949	
==>ce, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4035	4133	
==>ce, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
invalid r <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2637	2749	
==>= 0
        or die "Couln't run smoke upload script: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix sa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2149	2260	
==>PSIS

Command line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ili <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7414	7517	
==>$params =~ s/\s*\)?\s*\z//;
	my @pn = split(/\s*[,:]\s*|(?<=:)\s*/,$params);
	$params = \@pn;
	$hybrid_k <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3224	3320	
==>oes(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3224	3320	
==>oes(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $cod <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	297	396	
==>_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	297	396	
==>_protocol returns Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12878	13078	
==>::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13157	13357	
==>::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'gramm <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17053	17162	
==>- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17053	17162	
==>- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	744	859	
==>rn Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	744	859	
==>rn Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	316	433	
==>rt(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) ret <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	316	433	
==>rt(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) ret <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	618	713	
==>ss Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has St <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	618	713	
==>ss Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has St <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5859	5983	
==>_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5859	5983	
==>_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11262	11447	
==>cure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11262	11447	
==>cure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15303	15413	
==>},
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15303	15413	
==>},
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4024	4163	
==>emented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4012	4151	
==>emented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2003	2102	
==>t component of the calling function's package name.  (For example, if 
a function in C<Some::Module> <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2003	2102	
==>t component of the calling function's package name.  (For example, if 
a function in C<Some::Module> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	810	932	
==>$S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12480	12602	
==>$S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7279	7422	
==>rver ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7279	7422	
==>rver ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
me <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38697	38810	
==>e reported.

=head1 SEE ALSO

L<Set>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTH <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5974	6071	
==>hey should be careful to avoid changing the 
actual semantics.

Please note that most of the time, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5974	6071	
==>hey should be careful to avoid changing the 
actual semantics.

Please note that most of the time, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4161	4341	
==>);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | und <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4161	4341	
==>);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | und <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4986	5091	
==>ke index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encodi <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4986	5091	
==>ke index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encodi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3652	3761	
==>}, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3652	3761	
==>}, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expression -> LValue <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	625	725	
==>($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger) <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	625	725	
==>($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7278	7373	
==>ex to be parsed as the argument to the constructor.

=item $parser->regex($regex)

Clears the pa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6408	6511	
==>ufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6408	6511	
==>ufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	281	386	
==>) returns a string that represents the 
node type, which are checked against each other for agreement at B <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	281	386	
==>) returns a string that represents the 
node type, which are checked against each other for agreement at B <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1110	1253	
==>vivification! - returns **CONTAINER**
                my $self = shift;
                my $idx = shift;
                $self->get_value('@:slo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2632	2750	
==>ut {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<Line <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31092	31191	
==>it was created.

=item flags

The flags for the object.

=back

The following attributes may also be <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3566	3665	
==>he Cipher API, you must first create an object of the appropriate 
class, passing the key, a mode (e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3566	3665	
==>he Cipher API, you must first create an object of the appropriate 
class, passing the key, a mode (e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33063	33176	
==>ist of one or more elements where
each element is a Template module Set Name.  When we have to translate a
message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33063	33176	
==>ist of one or more elements where
each element is a Template module Set Name.  When we have to translate a
message <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6255	6359	
==>constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not tec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6255	6359	
==>constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not tec <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5941	6053	
==>rule IdentifierStart {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24825	24927	
==>individually addressed only by their names, and all
Relation::Example tuples may be individually addres <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2453	2545	
==>e always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentda <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2453	2545	
==>e always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentda <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5129	5240	
==>re it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5129	5240	
==>re it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5168	5259	
==>ed_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modified ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5168	5259	
==>ed_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
method last_modified ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8903	9003	
==>0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8903	9003	
==>0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9289	9387	
==>0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9289	9387	
==>0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19151	19276	
==>. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending wi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19151	19276	
==>. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\w+> and ending wi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3523	3619	
==>(@t_dirs,$output_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    print "P6 design do <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10089	10181	
==>->new(list => type::variable::free->new),
	# list a -> bool
	'is_nil?' => type::operator::arr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26783	26910	
==>statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27062	27189	
==>statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::consta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20556	20707	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20835	20986	
==>} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
* <==
2	/Users/nnunley/pugs/util/version_h.pl	786	888	
==>Writing version from $svn_entries to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1105	1202	
==>chdir( dir => '/some/dir' )

C<_chdir> changes directory to a dir.

Returns old cwd on success, fa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8616	8742	
==>0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8616	8742	
==>0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3332	3451	
==>p s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute ac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3332	3451	
==>p s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute ac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	50	139	
==>-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-mor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	50	139	
==>-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-mor <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3372	3522	
==>und;
    state $rand_up = 1;

    # randomly round .5 up or down
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $x_round = sign($x) * f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14504	14613	
==>ss => lower => $neg, \$how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1551	1715	
==>.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1551	1715	
==>.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1556	1660	
==>$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1556	1660	
==>$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, empty C<$match.match> to fill (th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28175	28270	
==>sh ref.

=item C<as_debug_string()>

This method returns a stringified version of this object wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28175	28270	
==>sh ref.

=item C<as_debug_string()>

This method returns a stringified version of this object wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12329	12456	
==>mand>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12329	12456	
==>mand>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38618	38723	
==>e' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given variable name w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38618	38723	
==>e' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given variable name w <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14594	14753	
==>css/perl.css"
                                   ));
        if (exists $index->{$syn}) {
        # This makes later processing easier
        $sobj->objectify_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8515	8633	
==>3) {
        fprintf(stderr,"api 14 violation\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? * <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	754	865	
==>ET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34262	34355	
==>t_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34262	34355	
==>t_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Transla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21000	21175	
==>stant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21279	21454	
==>stant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32973	33070	
==>returned Relation contains only tuples that are in
exactly one of the source Relations.  This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37523	37620	
==>returned Relation contains only tuples that are in
exactly one of the source Relations.  This meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2888	3013	
==>nect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if . <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2888	3013	
==>nect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if . <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2108	2243	
==>t> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %para <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2108	2243	
==>t> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %para <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6814	6945	
==>ure_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7007	7138	
==>ure_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	373	647	
==>(None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	373	647	
==>(None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package R <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24637	24826	
==>e = shift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	782	965	
==>ush @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	782	965	
==>ush @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3097	3297	
==>ined $matches[0]{state};

                @state = ( $matches[0]{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2997	3192	
==>ined $matches[0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5162	5296	
==>mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5162	5296	
==>mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9520	9642	
==>my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9508	9630	
==>my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, nam <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2773	2924	
==>y       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this err <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2773	2924	
==>y       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $array;

        # TODO - add tests for this err <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12121	12237	
==>>" goto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = iscapture
    if iscapture <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1379	1477	
==>ng (in public), the current
time and the text they said is saved.

If the (optional) role parameter <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1379	1477	
==>ng (in public), the current
time and the text they said is saved.

If the (optional) role parameter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3753	3941	
==>matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, 0 ] i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3638	3820	
==>matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7325	7429	
==>ges, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7325	7429	
==>ges, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3489	3596	
==>ler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3489	3596	
==>ler("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	332	473	
==>tput',
        '$.testplan',
        '@:results',
    ],
    class_methods => {
        'new'    => sub { 
            my ($class, $plan, $out <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2681	2779	
==>role
  # cannot inherit from TestPlan because of the lack of $:expect
  class Test::Builder::NullPl <==
2	/Users/nnunley/pugs/util/package-osx.pl	322	436	
==>emove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = qw(
        /usr/loc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	494	595	
==>ake sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29352	29451	
==>ter> $obj has been added to the tree, $obj will be
removed from the tree.  Most node types don't mer <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4873	5032	
==>ue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4873	5032	
==>ue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1344	1479	
==>Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1344	1479	
==>Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13591	13688	
==>xpected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable ra <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13591	13688	
==>xpected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2623	2746	
==>fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3435	3569	
==>s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3435	3569	
==>s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5546	5681	
==>ture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $para <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5370	5500	
==>ture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $para <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2241	2347	
==>gram ($name) { "rule $name :words" },
#     rather than having the clutter of lots of explicit :words modif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1104	1232	
==>P::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1104	1232	
==>P::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8784	8924	
==>"$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8784	8924	
==>"$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35919	36013	
==>r_combinations()>

This method returns an array ref having all combinations of this object's
Se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35919	36013	
==>r_combinations()>

This method returns an array ref having all combinations of this object's
Se <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25634	25732	
==>/%d tests, %.2f%% okay. %s>

If not all tests were successful, the script dies with one of the
abov <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6280	6457	
==>/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5788	5965	
==>/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1686	1830	
==>pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1674	1818	
==>pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2519	2640	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2712	2833	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6743	6940	
==>ine = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6743	6940	
==>ine = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10070	10245	
==>e => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10906	11081	
==>e => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23254	23399	
==>return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19675	19820	
==>return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7570	7673	
==>Array::join (@values ;  Str $delimiter --> Str )
{
    List::join $delimiter, *@values;
}

# signature f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	35	139	
==>tch;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9523	9635	
==>ash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9523	9635	
==>ash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6233	6381	
==>e|licensing|copyright|legal)\b \s*
        .*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
        ([^\n]*)
    /ixms) {
        my $author = $1 | <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4582	4700	
==>_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module source code instead o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4582	4700	
==>_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module source code instead o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2825	2918	
==>er) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2825	2918	
==>er) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4360	4463	
==>st ) or return;

    return 1;
}

=head2 $bool = $repo->add_package_to_index(package => $pkg)

Adds a pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	933	1034	
==>position($position);

  $from = $fromd if ( $fromd and $from < 0)

  return ($me, $target, $from, $pos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20881	21031	
==>add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43805	43955	
==>add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1072	1173	
==>LExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1072	1173	
==>LExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1698	1832	
==>} else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1698	1832	
==>} else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22364	22458	
==>sions of Relation::Heading ("Heading")
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	750	843	
==>e constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10506	10625	
==>me: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10664	10783	
==>me: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6620	6720	
==>pan class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6620	6720	
==>pan class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `en <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	842	937	
==>resent, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	842	937	
==>resent, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	92	191	
==>::Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnings;

u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7710	7808	
==>=~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(anyof_char_comp => chr(hex $1), "\\ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13853	13957	
==>set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. Thi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13853	13957	
==>set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8395	8539	
==>776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8395	8539	
==>776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4490	4590	
==>available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the m <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4490	4590	
==>available for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17233	17391	
==>cript};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            print "$bonusmsg.\n" if $bonusmsg;
            di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37523	37619	
==>ew class for the object:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp::Parser::branch ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7606	7751	
==>ed_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's stil <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	907	1052	
==>ed_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's stil <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9067	9189	
==>T and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT start
        un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6111	6246	
==>code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6111	6246	
==>code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0 <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	238	343	
==>homp (Str $str) returns Str is builtin is primitive {
    # XXX return $str but newline("\n")
    if subst <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9335	9427	
==>:operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	sub => type <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22524	22633	
==>Pe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18945	19054	
==>Pe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6079	6209	
==>gs
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6469	6599	
==>gs
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7062	7168	
==>\o012, or \\x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    g <==
2	/Users/nnunley/pugs/util/grokprims.pl	1280	1373	
==>==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} @{$op->{args}}[1..$arity-1]).") <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13466	13570	
==>})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13466	13570	
==>})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2012	2176	
==>p_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        sys <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3542	3701	
==>p_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        sys <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14903	15047	
==>key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14903	15047	
==>key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel" <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7329	7545	
==>um] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7329	7545	
==>um] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1267	1370	
==>6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1267	1370	
==>6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of contents can be <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3277	3376	
==>infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3277	3376	
==>infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $o <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7807	7946	
==>, @_) {
        $perl5_c = 'src/perl5/p5embed.c';
    }

    # Remove -Wl flags in Perl5 embedding.
    @_ = grep { !/^-W/ } @_;

    my @in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6566	6663	
==>Perl 5.8.4's regex set.  Grammar is quoted because the module does
not so much define a grammar as <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2558	2689	
==>piler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2558	2689	
==>piler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1057	1195	
==>!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1057	1195	
==>!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file) <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	640	773	
==>my $self = shift;
    $self->_top->{admin} or Module::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/util/fixauthors.pl	365	495	
==>)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	693	809	
==>le
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	693	809	
==>le
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7300	7410	
==>::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::PO <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7358	7468	
==>::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::PO <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11435	11531	
==>∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11435	11531	
==>∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7546	7693	
==>lose',
      raw => ']',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my $self = shift;
    my $rx = $se <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	416	542	
==>e "Could not read $Metafile";

    my $path    = $struct->{package};
    
    ### create a buildroot
    my $builddir    = $Bui <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4323	4416	
==>y @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4323	4416	
==>y @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6489	6587	
==>er(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6489	6587	
==>er(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This method s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6668	6762	
==>ed by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6668	6762	
==>ed by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10389	10503	
==>>new(
			type::operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11174	11320	
==>$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11168	11314	
==>$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7490	7580	
==>st::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinter <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1718	1808	
==>st::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11577	11683	
==>ll_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node objects,
which a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11577	11683	
==>ll_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node objects,
which a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3530	3651	
==>y $tmpl = {
        version => { default => '0.0', store => \$version },
    };

    check( $tmpl, \%hash ) or error(Param <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11296	11391	
==>ns should work with most reg-exps, but given that they are still a
somewhat experimental feature <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11354	11449	
==>ns should work with most reg-exps, but given that they are still a
somewhat experimental feature <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	266	400	
==>code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	266	400	
==>code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10053	10287	
==>}
          }
      }
  }
                                                                                           
  my $infile  = IO::File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11207	11321	
==>he server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11207	11321	
==>he server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2157	2259	
==>me ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2157	2259	
==>me ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3091	3200	
==>my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3091	3200	
==>my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9724	9821	
==>e set is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can ext <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9724	9821	
==>e set is defined by a "successor" function and a "predecessor" 
function.

Recurrence sets can ext <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14161	14279	
==>s of interest in the perl sources:
    ./regexp.h ./regcomp.c ./regexec.c
    ./ext/re/re.xs ./ext/re/re.pm
    http:// <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6664	6767	
==>{
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return get_meta($cls)->new(@args);
    }
    if($cls =~ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3207	3331	
==>obviously don't have).

Whether this will all succeed or not is an open question.  But the
perl5 team has expressed interest, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15691	15812	
==>:{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15691	15812	
==>:{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqueue "MODE $target <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16455	16565	
==>GE" ]

.sub "p6rule"
    .param string pattern
    .param string grammar      :optional
    .param int has_gram <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32311	32408	
==>s its Template modules to come
from Perl modules, but in the future they may alternately be someth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32311	32408	
==>s its Template modules to come
from Perl modules, but in the future they may alternately be someth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4323	4481	
==>'...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => "not implemented" } 
            }
        ) ),
        Inf => Pugs: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2002	2142	
==>$env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>', <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	703	820	
==>t> represents a little slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	703	820	
==>t> represents a little slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3	105	
==>usr/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3	105	
==>usr/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4971	5090	
==>'s last child.
Reducing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits Lis <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	543	669	
==>$output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnosti <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	543	669	
==>$output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnosti <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26907	27174	
==>'),
                            symbol->new('$subclass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19704	19815	
==>et operators.

Like the Set data type, the Relation data type is immutable.  The value of
a Relation object is d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24256	24367	
==>et operators.

Like the Set data type, the Relation data type is immutable.  The value of
a Relation object is d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	546	672	
==>'';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	546	672	
==>'';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1602	1706	
==>cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Nu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1602	1706	
==>cmp != 0  ||  ( ! $open_start && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Nu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12876	12989	
==>get Match objects (only strings) into
  $1,etal, or even into the return value.  In that event, it may not
  be po <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14742	14844	
==>ol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont currently work.
%# XXX - more...
re_rev <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9348	9494	
==>$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10339	10485	
==>$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11917	12020	
==>d.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be used as a r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11917	12020	
==>d.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be used as a r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	903	1094	
==>ss @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	782	973	
==>ss @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6576	6678	
==>his method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> vari <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6576	6678	
==>his method should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8625	8761	
==>before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8625	8761	
==>before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        ret <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	236	398	
==>ods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                my ( <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	329	433	
==>q, Ord)
method Show {
    ...
}

method &infix:«==»($self, Perl::Param $other) {
    ...
}

method &inf <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5079	5206	
==>916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5079	5206	
==>916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2623	2763	
==>( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1290	1430	
==>( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2754	2883	
==>/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # ge <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2754	2883	
==>/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$field}.defined {
      # ge <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1552	1677	
==>ext element in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1552	1677	
==>ext element in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2550	2682	
==>nstructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2550	2682	
==>nstructor,*@fields) {
    my $code = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6866	6983	
==>me that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6866	6983	
==>me that module intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$mod <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18893	19081	
==>'%' {
                $str ~= '%';
            }
            default {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $str;
}

multi s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5514	5706	
==>print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5514	5706	
==>print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1374	1489	
==>hings

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1374	1489	
==>hings

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17783	17909	
==>,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18062	18188	
==>,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/util/build_pugs.pl	625	717	
==>`config.yml` in
the build root. You may override these settings using the PUGS_BUILD_OPTS
env <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3409	3560	
==>1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless define <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3301	3449	
==>1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless define <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1821	1948	
==>return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1821	1948	
==>return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6326	6524	
==>)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6326	6524	
==>)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tai <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15810	15911	
==>cher' => (symbol->new(':descendant'))));
                $e->create('$c' => $e->get('WALKCLASS')->do(l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2466	2572	
==>'foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string porti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2466	2572	
==>'foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string porti <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4683	4785	
==>{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4683	4785	
==>{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2559	2660	
==>e->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2699	2800	
==>e->{grammar};
    #print "match: grammar $rule->{grammar}, $_[0], $flags\n";
    #print "match: Variab <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3308	3418	
==>t.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3308	3418	
==>t.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4576	4694	
==>ush("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_header ($self: Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4576	4694	
==>ush("$field: $val");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_header ($self: Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3317	3421	
==>pan class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIG <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3317	3421	
==>pan class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIG <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7401	7492	
==>Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1226	1317	
==>Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_stat <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15380	15470	
==>) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1,RWx,RW1).

re_parse(Pat,Re) :-
  p5 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4742	4854	
==>ests {
    my(@tests) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	92	189	
==>warnings;

my $filename = (caller)[1];
my $pmc = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
die "th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15238	15339	
==>ity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18715	18816	
==>ity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => set(), body => set <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9614	9791	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9893	10070	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	607	712	
==>et_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	607	712	
==>et_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4863	4990	
==>er => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4696	4817	
==>er => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17631	17729	
==>s C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SY <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17631	17729	
==>s C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SY <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	742	850	
==>e} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	948	1056	
==>e} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6629	6726	
==>"Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6629	6726	
==>"Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9522	9628	
==>\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9522	9628	
==>\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14198	14292	
==>=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACES (-19)

Missing braces on \ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9919	10042	
==>pugs_internals_m",%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11764	11881	
==>g } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11764	11881	
==>g } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4600	4711	
==>todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4658	4769	
==>todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15401	15514	
==>s kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the date and time at <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15401	15514	
==>s kind of
value when the header value is set.

=over 4

=item $h.date

This header represents the date and time at <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21981	22105	
==>eturn $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18402	18526	
==>eturn $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	743	865	
==>ent-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	743	865	
==>ent-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFE <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3775	3944	
==>.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @ind <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3775	3944	
==>.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @ind <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2124	2264	
==>attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2329	2469	
==>attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1691	1794	
==>time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1691	1794	
==>time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2085	2234	
==>prefix
$Preinst        = 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after instal <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12853	12977	
==>nd the list of generic variables if the paramter type of the function is free
fun: generic($$) = {
	my $t_of_param = type($$) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4894	5029	
==>difier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this on <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4894	5029	
==>difier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this on <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31454	31554	
==>don't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })>.  Using the 'p' form is de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	622	759	
==>' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	622	759	
==>' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	97	193	
==>et::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	97	193	
==>et::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11506	11631	
==>if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11500	11625	
==>if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1350	1537	
==>_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1350	1537	
==>_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4939	5044	
==>n "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4939	5044	
==>n "$_[1] constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub mat <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3437	3544	
==>+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3437	3544	
==>+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1684	1803	
==>, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1684	1803	
==>, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8701	8834	
==>sion/;
        s/__DEPENDS__/$depends/;
        s/__UNICODE_C__/$unicode_c/;
        s/__PERL5_C__/$perl5_c/;
        s/__INCLUDE_DIRS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1558	1806	
==>Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1558	1806	
==>Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2005	2115	
==>lass: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2005	2115	
==>lass: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1562	1672	
==>elds -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1562	1672	
==>elds -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2413	2509	
==>B<divide (x as num) returns num>

=item B<increment () returns num>

=item B<decrement () returns <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2342	2434	
==>An example runtime is L<Blondie::Backend::Perl>, which happens to be
an interpreter.

=over 4 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2898	3036	
==>error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2898	3036	
==>error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
<HEAD><TITLE> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19932	20054	
==>d the blocks have been
marked for various compilers, Module::Compile dispatches the code blocks
to the compilers. It does s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19932	20054	
==>d the blocks have been
marked for various compilers, Module::Compile dispatches the code blocks
to the compilers. It does s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	593	842	
==>on applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	593	842	
==>on applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14213	14351	
==>pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14492	14630	
==>pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13123	13235	
==>thing's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13123	13235	
==>thing's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and tim <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9311	9449	
==>ypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "dec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9311	9449	
==>ypt> {
            $.mode = "enciphering";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "dec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17403	17528	
==>r);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17403	17528	
==>r);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1265	1380	
==>$ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1232	1347	
==>$ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get <==
2	/Users/nnunley/pugs/util/func_refact.pl	2372	2510	
==>$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	191	292	
==>fess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2049	2160	
==>.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2049	2160	
==>.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $he <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3720	3835	
==>bug fix/workaround
    package Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2350	2440	
==>);
    my $program = Pugs::Emitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_data( $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9354	9450	
==>nt to access a specific capture group, pass its numerical
value:

  my $capture_2 = $parser->capt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2556	2650	
==>ect support, this module is more like the
Perl 5 File::Spec::Functions module than the base Fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2556	2650	
==>ect support, this module is more like the
Perl 5 File::Spec::Functions module than the base Fil <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6723	6844	
==>or @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{" <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6723	6844	
==>or @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	716	817	
==>ie::Reducer::DuplicateFinder - find duplicate nodes in a program.

=head1 SYNOPSIS

    use Blondie::R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25829	25919	
==>lation::Example object has 2 main attributes (implementation details subject to
change) plu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11690	11817	
==>);
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and pr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11690	11817	
==>);
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and pr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	274	369	
==>ss = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	332	427	
==>ss = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_tod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1329	1476	
==>- $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1340	1487	
==>- $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $co <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20107	20198	
==>5_module_noimp := &PIL2JS::Internals::use_perl5_module_imp;


# In src/perl6/Prelude.pm, pre <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6336	6415	
==>,'\s*macro\s+statement_control:<(\w+)>\s+\([^\)]*\)\s+is\s+parsed\(rx:perl5/(.*? <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2208	2333	
==>f_odd ( Num $x ) {
    my $x_round;

    # round .5 to the nearest odd number
    given abs($x) - floor( abs($x) ) {
        w <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5960	6056	
==>s.pod r8593.
# while (@array: --> List) { seems a preferable phrasing, it doesnt parse.
multi met <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2731	2853	
==>l
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2731	2853	
==>l
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1049	1151	
==>ap, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doin <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1049	1151	
==>ap, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3432	3526	
==>od::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYN <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3432	3526	
==>od::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYN <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	921	1060	
==>ILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	798	913	
==>ILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2663	2770	
==>$v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2651	2758	
==>$v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3959	4059	
==>rs for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD app <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3959	4059	
==>rs for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the POD app <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4709	4824	
==>sc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4767	4882	
==>sc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2745	2858	
==>emove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2745	2858	
==>emove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	763	875	
==>($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sort key <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2976	3105	
==>ng checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        ope <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2976	3105	
==>ng checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4985	5098	
==>${ref}::$type";

  if ($ref ne __PACKAGE__ and !$loaded{$class}++) {
    no strict 'refs';
    my $orig_base = $Re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1653	1762	
==>bel";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1858	1967	
==>bel";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::create_c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15133	15238	
==>:$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15133	15238	
==>:$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10239	10344	
==>ns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This shou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10297	10402	
==>ns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This shou <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5070	5186	
==>ted to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5070	5186	
==>ted to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5762	5869	
==>d within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is the 
one th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5762	5869	
==>d within the C<Cipher> 
class itself; in fact, the only method that truly must be implemented is the 
one th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	338	627	
==>e:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	338	627	
==>e:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's pa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16234	16335	
==>sion :words {  # see 11.9
      <RelationalExpression>
    | <EqualityExpression> <'=='> <RelationalEx <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4894	5031	
==>ate ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4894	5031	
==>ate ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_he <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1565	1665	
==>&g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1565	1665	
==>&g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	791	952	
==>::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	791	952	
==>::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27854	27965	
==>o {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx(' +|([0-9]+|\\+|-)' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	39	143	
==>9Z andy $

package Test::Harness::Assert;

use strict;
require Exporter;
use vars qw($VERSION @EXPORT @IS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8644	8741	
==>!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8644	8741	
==>!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8085	8245	
==>es = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18591	18749	
==>eop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18870	19028	
==>eop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19489	19610	
==>ample.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.valu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20486	20607	
==>ample.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.valu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1026	1135	
==>uleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate longe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	985	1092	
==>uleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4694	4807	
==>object returns the stringified version
of the result object (usually the entire match string).

=head2 0+

When us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4694	4807	
==>object returns the stringified version
of the result object (usually the entire match string).

=head2 0+

When us <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4843	4966	
==>3))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4843	4966	
==>3))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3388	3526	
==>= $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3388	3526	
==>= $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6221	6408	
==>span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span+ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6221	6408	
==>span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1904	2036	
==>Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1904	2036	
==>Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to b <==
2	/Users/nnunley/pugs/util/package-osx.pl	3473	3591	
==>n/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local/man/man3/Inline::Pugs.3pm
        /usr/local <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	452	553	
==>while (my ($key, $value) = splice(@values, 0, 2)) {
        ((blessed($key)   && $key->isa('type')) && <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24529	24649	
==>m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20950	21070	
==>m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alte <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	730	882	
==>ar eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	730	882	
==>ar eq '+' || $char eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	439	548	
==>new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	125	231	
==>::X1::Compile;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Sc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33515	33610	
==>ethod has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38065	38160	
==>ethod has an alias named C<intersect>.

=item C<intersection (Relation *@others) returns Relatio <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	459	571	
==>doc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 D <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	459	571	
==>doc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 D <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3669	3779	
==>};
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3669	3779	
==>};
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*E <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	335	453	
==>+$fprime         = &approxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 5 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	484	578	
==>whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	484	578	
==>whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16092	16196	
==>n a logical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16092	16196	
==>n a logical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- `union <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37735	37843	
==>ter
$module_name (a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37735	37843	
==>ter
$module_name (a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming tha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7227	7337	
==>e and it's accompanying text has been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7227	7337	
==>e and it's accompanying text has been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=b <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	955	1071	
==>turn;
	} elsif ($chr =~ /\^/) {
	    print "\\textasciicircum{}";
	    return;
	} elsif ($chr =~ /\~/) {
	    print " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13926	14069	
==>ed {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13926	14069	
==>ed {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23883	23991	
==>Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation object, whose Heading an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28435	28543	
==>Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation object, whose Heading an <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3845	3993	
==>et_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $war <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9450	9535	
==>xc";
my(@returns) = ([1,undef,undef,1,2,1,2],[1,undef,undef,3,4,3,3],[0],[0]);
my($qr) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7793	7905	
==>Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7851	7963	
==>Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23437	23529	
==>to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> ".. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23437	23529	
==>to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> ".. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6180	6301	
==>e( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6180	6301	
==>e( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4667	4781	
==>"), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4807	4921	
==>"), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Per <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16020	16113	
==>rijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16078	16171	
==>rijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.co <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	618	715	
==>.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	618	715	
==>.addarc($trigger,$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3212	3353	
==>set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unle <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3212	3353	
==>set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unle <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11927	12057	
==>ine   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11927	12057	
==>ine   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3415	3565	
==>rt};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return unless defined $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3307	3454	
==>rt};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return unless defined $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9922	10035	
==>nperl { # Create the string to qx in runperl().
    my %args = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^ <==
2	/Users/nnunley/pugs/util/package-osx.pl	3958	4055	
==>an/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bible::A06.3pm
        /usr/local <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4946	5061	
==>le_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4946	5061	
==>le_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	804	908	
==>ead = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return B <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	804	908	
==>ead = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    return B <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4629	4709	
==>rl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4629	4709	
==>rl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3893	3999	
==>=~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $file );

Returns the contents of a file

=c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8337	8555	
==>air;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Va <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8337	8555	
==>air;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Va <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3571	3688	
==>f();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. S <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3571	3688	
==>f();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3471	3565	
==>setta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3471	3565	
==>setta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document de <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1318	1421	
==>r $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1318	1421	
==>r $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24908	25007	
==>value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple conta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24908	25007	
==>value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple conta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2781	2924	
==>turn @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2986	3129	
==>turn @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_met <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2532	2645	
==>ol {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2532	2645	
==>ol {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	477	574	
==>n

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	477	574	
==>n

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1206	1319	
==>p to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1206	1319	
==>p to the parent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3481	3582	
==>? \;
        { return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20088	20184	
==>d-alone objects.

Each object now has an insert() method that defines how it gets placed
into the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5933	6050	
==>el => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must return _only <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5746	5857	
==>el => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must return _only <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	495	617	
==>te should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * unive <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	495	617	
==>te should return a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * unive <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1608	1717	
==>('%:methods'));
        #warn "looking for method (" . $label->to_native . ")";
        if ($methods->exists($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12458	12578	
==>(\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12458	12578	
==>(\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2099	2205	
==>makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->n <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1208	1311	
==>makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	794	901	
==>::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	794	901	
==>::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	702	842	
==>cit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = del <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	864	1004	
==>cit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = del <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5304	5418	
==>data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Returns boolean value o <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5304	5418	
==>data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Returns boolean value o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14098	14200	
==>tExpression>
}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpression>
    | <CallExpres <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1565	1690	
==>_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1553	1678	
==>_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5662	5849	
==>Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5662	5849	
==>Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18617	18743	
==>]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19975	20101	
==>]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1310	1424	
==>_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cyg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1237	1346	
==>_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cyg <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2091	2198	
==>substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2091	2198	
==>substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1003	1109	
==>html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1003	1109	
==>html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7775	7866	
==>rammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1600	1691	
==>rammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	841	965	
==>tring = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	855	973	
==>tring = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	741	848	
==><op>', 
    postcircumfix =>   '<tight> <op> <parse> <op2>', 
    infix_left =>      '<tight> <op> <equal>', <==
2	/Users/nnunley/pugs/util/claim_drift.pl	1000	1151	
==>$orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $orig        or die "unlink: $!" }  unless $Conf{no};

    print "l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4032	4176	
==>rt;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4032	4176	
==>rt;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_sta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20005	20119	
==>ay"]
    pad["isarray"] = 1
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["isarray"] = p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8356	8467	
==>lse if called again.

=head2 Building the Tree

If you don't care to intercept the building of the tree, you can <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12973	13076	
==>t may not
  be possible to get a plausibly scoped alternative working.

  Using $/ might be non-trivial, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	927	1045	
==>rint "$desc: $k => $v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc: empty\n";
  }
}

sub addToken {
  m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8451	8565	
==>return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine not implemented.\n";
	return "";
    }
    if($kin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	626	757	
==>prefix =>          '<op> <equal>', 
    circumfix =>       '<op> <parse> <op2>',  
    postfix =>         '<tight> <op>', 
    postc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6569	6678	
==>./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6569	6678	
==>./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9966	10115	
==>nt( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10245	10394	
==>nt( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_c <==
2	/Users/nnunley/pugs/util/importgraph.pl	1362	1472	
==>ete $mod->[0]->{$ignore};
  }
}

# setup some predefined clusters
sub setup_mod {
  my $type = shift;
  my $nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19892	19988	
==>are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19892	19988	
==>are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	155	268	
==>d to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	155	268	
==>d to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)} <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14455	14559	
==>map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1935	2039	
==>map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	517	620	
==>s far from being a
# complete p5 compatible regex engine, that establishes feasiblity.
# Limited testing <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5735	5876	
==>ixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5735	5876	
==>ixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        ev <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4699	4826	
==>arget)
                or die "Copy '$candidates[0]' => '$target' failed: $!";
        }

        system($ar, r => $a_file, $tar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1309	1444	
==>.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1297	1432	
==>.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gra <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6096	6199	
==>y to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6096	6199	
==>y to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	188	294	
==>he "magic hash" dispatcher
# TODO - generate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3137	3348	
==>ves_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), return;
                }
        
                ### s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	863	963	
==>'.$rule->perl5().";\n";
    print "*{\'$rulename\'} = Pugs::Compiler::Rule->compile(<<'RULE')->code() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	304	424	
==>_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1162	1282	
==>_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1990	2090	
==>=> >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equiv <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1990	2090	
==>=> >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equiv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13507	13609	
==>t of distinct names for the fields present in the
header.  The field names have case as suggested by HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13507	13609	
==>t of distinct names for the fields present in the
header.  The field names have case as suggested by HT <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3809	3922	
==>ri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3809	3922	
==>ri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1419	1539	
==>_;
  push @Regexp::Parser::gpos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA, __PACKAGE__;

  sub new {
    my ($c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23476	23570	
==>handle that might parse flags, because you do not
want to accidentally affect the previous scop <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	478	571	
==>----------------------------------------
## accessors and mutators

method parent ($self:) ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	478	571	
==>----------------------------------------
## accessors and mutators

method parent ($self:) ret <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4619	4728	
==>ype'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4619	4728	
==>ype'   ,'SubType',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'P <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2988	3093	
==>iv;
		my $type = Scalar::Util::blessed($struct) ? $struct->moniker : "const";
		join("_", $type, ++$self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5813	5952	
==>"$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5813	5952	
==>"$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26229	26336	
==>of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright holders of Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26229	26336	
==>of Rosetta can sell you a warranty for it.

While it is by no means required, the copyright holders of Roset <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16518	16661	
==>n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) ?? int( $n - 0.5) !! int($n + 0.5);
    }
    sub round($n) is primitive <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20989	21096	
==>lf = shift;
    ($self->{flags} & $self->{rx}->FLAG_i ? 'reff' : 'ref') . $self->nparen;
  }

  sub nparen { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1152	1291	
==>tidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1152	1291	
==>tidex;

    submethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	621	723	
==>y it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	621	723	
==>y it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4875	4997	
==>emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4708	4824	
==>emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1988	2094	
==>p::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1988	2094	
==>p::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1265	1500	
==>vents<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interp <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1265	1500	
==>vents<end_element>('list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	932	1026	
==>text.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although it i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	932	1026	
==>text.  (It doesn't distinguish 
between enciphering and deciphering operations.)

Although it i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14854	14978	
==>/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14854	14978	
==>/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JO <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2106	2220	
==>Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    meth <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2106	2220	
==>Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    meth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16762	16920	
==>l data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21860	22018	
==>l data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	416	608	
==>::Dumper;

$Data::Dumper::Indent = 1;

my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35334	35442	
==>m C<get_set_names()>

This method returns all Set Names elements in this object as an array ref.

=item C<get <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35334	35442	
==>m C<get_set_names()>

This method returns all Set Names elements in this object as an array ref.

=item C<get <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8470	8685	
==>}, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8470	8685	
==>}, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ], <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	730	882	
==>^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	730	882	
==>^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	422	594	
==>5,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is export {
    my Num $guess  = $target / 2;
    my Int $count  = 1;

    while (abs($f($gue <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14778	14879	
==>tiveExpression :words {  # see 11.5
      <UnaryExpression>
    | <MultiplicativeExpression> <'*'> <Un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5560	5666	
==>ML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler proce <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5368	5471	
==>ML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler proce <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8647	8740	
==>be caught later.
    return ::($module_name).does(Package);
}

method load_template_module (St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8647	8740	
==>be caught later.
    return ::($module_name).does(Package);
}

method load_template_module (St <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8333	8438	
==>pplyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24625	24717	
==>type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25597	25689	
==>type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11393	11538	
==>MS has a 255-byte limit on the length of %*ENV entries, so
        # toss the ones that involve perl_root, the install location
        @inc = gre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5029	5132	
==>nternal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5029	5132	
==>nternal state.  This should be called as the last 
step of enciphering.

=item C<finishstr>

    push @o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1176	1267	
==>:Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1176	1267	
==>:Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11799	11954	
==>) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12078	12233	
==>) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6594	6731	
==>= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 {
    my $self = shift;
    my $g = $self->emit_ <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	407	537	
==>my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $match = execute($re, $_[0], 0);
            my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2944	3058	
==>(!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$messag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2944	3058	
==>(!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$messag <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	741	882	
==>zy>).add_children(
                            Tree.new(:node<Array>).add_children(
                                Tree.new(:node<Array::Cons <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3201	3304	
==>urns} = 'type' if !(exists $options{returns});
    bless { %options } => $class;
}

sub params  { (shift <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	860	968	
==>ght = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	860	968	
==>ght = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!se <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	298	428	
==>UG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	298	428	
==>UG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16188	16319	
==>text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $self;
} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16188	16319	
==>text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $self;
} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8981	9084	
==>and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8981	9084	
==>and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35856	35952	
==>e, and returns a new Relation::Example that has the same heading
and whose body contains all of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37888	37984	
==>e, and returns a new Relation::Example that has the same heading and
whose body contains all of t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	762	862	
==>rization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	762	862	
==>rization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Location Pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1667	1774	
==>eader($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1667	1774	
==>eader($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2233	2328	
==>zed, most "autotags" will be too.

When activated, the special tag C<:all> will cause all tracin <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2233	2328	
==>zed, most "autotags" will be too.

When activated, the special tag C<:all> will cause all tracin <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3803	3894	
==>ngo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambl <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3803	3894	
==>ngo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambl <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	630	770	
==>ug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	630	770	
==>ug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	242	336	
==>eChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*Ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	242	336	
==>eChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*Ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16685	16849	
==>. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16685	16849	
==>. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	635	738	
==>$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi me <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	635	738	
==>$node);
}

multi method addarc(Str $trigger --> FA::DFA::Node) {
  $.state.addarc($trigger);
}

multi me <==
2	/Users/nnunley/pugs/util/package-osx.pl	6828	6927	
==>ble.3
        /usr/local/man/man3/Perl6::Overview::Variable.3pm
        /usr/local/man/man3/Perl6::P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15150	15248	
==>spectively.  C<< /</ >> is equivalent to
C</(?!\w)(?=\w)/>, and C<< />/ >> is equivalent to C</(?<= <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15485	15597	
==>:Element->new('div', class=>$tag, name=>$name);
            
            my @kids = $beg->parent->splice_content( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	197	298	
==>y

sub equal_to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_[0]->e <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19470	19568	
==>es a function and applies it to a string
# thiss tests that the inferrence of higher order function <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1888	1977	
==>ddToken("term:{{", "term:", "nows", &parse_closure);
    $optable->addToken("postfix:*", " <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2303	2395	
==>ree, and can be executed by a
runtime. An example runtime is L<Blondie::Backend::Perl>, which <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27536	27622	
==>TED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINTED_set(pro <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	563	693	
==>method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnos <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	563	693	
==>method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnos <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9148	9244	
==>mmar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2973	3069	
==>mmar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20509	20609	
==>e to help keep I<this>
file as abstract as possible.  F<Regexp::Parser> installs its handlers
in F<Re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16325	16466	
==>strs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I3 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20751	20892	
==>strs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	574	676	
==>hod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	574	676	
==>hod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!content = $conten <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	612	744	
==>@rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	612	744	
==>@rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22823	22956	
==>ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23102	23235	
==>ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alter <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2375	2515	
==>smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{runcore}       = pugspath2runcore($1);
  $html =~ /summary="(\d+) t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4592	4727	
==>bel} = $method;
        },               
    },
);

# The 'EigenClass' class
$EigenClass = ::create_class(
    '$:name'       => 'Eigen <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7613	7758	
==>end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value:: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7613	7758	
==>end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14008	14110	
==>nsafe characters in $string with their entity
representation. A second argument can be given to specify <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14008	14110	
==>nsafe characters in $string with their entity
representation. A second argument can be given to specify <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9373	9536	
==>}
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9373	9536	
==>}
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8869	8970	
==>s.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match object returned to carry the sam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8576	8675	
==>s.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match object returned to carry the sam <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	190	287	
==>l6::Run::OnPerl5::X1::Api::p6_initialize_package("",'package');
    Perl6::Run::OnPerl5::X1::Api:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26106	26202	
==>ROPT_IMPLICIT		0x00020	/* Converted .* to ^.* */
 #define ROPT_NOSCAN		0x00040	/* Check-string al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	729	822	
==>ce (? incomplete';
use constant RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5575	5752	
==>);
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5575	5752	
==>);
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1879	2006	
==>IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1879	2006	
==>IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15924	16044	
==>et { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $passwo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15924	16044	
==>et { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $passwo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	57	166	
==>ourcefile;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	57	166	
==>ourcefile;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4221	4318	
==>distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4221	4318	
==>distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7577	7686	
==>e is reached.

=item I<end_element ('for')>

This event is fired when a '=end' directive (which is preceeded b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7577	7686	
==>e is reached.

=item I<end_element ('for')>

This event is fired when a '=end' directive (which is preceeded b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5856	6016	
==>1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5856	6016	
==>1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3047	3173	
==>art <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3047	3173	
==>art <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18597	18687	
==>returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') correspon <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18597	18687	
==>returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') correspon <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4928	5034	
==>3d');
is($p3d->get_y, 0, '... got the right cleared y for p3d');
is($p3d->get_z, 0, '... got the right clea <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10747	10865	
==>ator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10747	10865	
==>ator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6770	6866	
==>m;
print $m->describe,"\n";

__END__
my $m = match($Perl_prog,<<'END'); print Dumper $m; print $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21400	21496	
==>QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21400	21496	
==>QUIT> command. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nic <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4799	4909	
==>om 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarc <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4799	4909	
==>om 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20128	20226	
==>first, then outer blocks.

A compiler may choose to declare that its result not be recompiled by
so <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20128	20226	
==>first, then outer blocks.

A compiler may choose to declare that its result not be recompiled by
so <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4535	4623	
==>\( <code> \)\> }

rule character  { <a_dot>|<logical_grapheme>|<abbreviated_class>|<expli <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9745	9881	
==>'>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule EscapeCharacter {  # see 7.8.4 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4811	4940	
==>ck
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4811	4940	
==>ck
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modifier <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3050	3190	
==>sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%3 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3050	3190	
==>sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%3 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11324	11479	
==>tine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11324	11479	
==>tine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	102	202	
==>nfinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	102	202	
==>nfinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23143	23241	
==>nd up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23143	23241	
==>nd up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	971	1243	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=po <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	971	1243	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=po <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6325	6466	
==>($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6325	6466	
==>($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3009	3121	
==>ugs::Compiler::Grammar->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3567	3690	
==>}
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4416	4539	
==>}
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19379	19481	
==>nted to upgrade or localize what text the user
sees, you only have to update said separate resource fil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19379	19481	
==>nted to upgrade or localize what text the user
sees, you only have to update said separate resource fil <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9176	9306	
==>::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr target, pos, 2
    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	392	528	
==>eturn 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	392	528	
==>eturn 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(" <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5057	5149	
==>use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The followi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5057	5149	
==>use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The followi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	467	626	
==>s export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	467	626	
==>s export {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2247	2425	
==>message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2247	2425	
==>message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $sta <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5853	5941	
==>erl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-T <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5853	5941	
==>erl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-T <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6873	6986	
==>os"
    $P0 = pos
    .return (mob)

  err_noterm:
    parse_error(mob, pos, "Term expected")
    goto end
  err_b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	271	380	
==>s->require or die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub compile {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13493	13605	
==>5_final = Emitter::Perl5::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$pe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3641	3737	
==>s is done by setting C<$match.multidex> to the index where
captures should put themselves.  In th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3641	3737	
==>s is done by setting C<$match.multidex> to the index where
captures should put themselves.  In th <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1894	1990	
==>test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionall <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1894	1990	
==>test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionall <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	1	94	
==>class Perldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
} <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	1	94	
==>class Perldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1509	1676	
==>eader('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already abs <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1509	1676	
==>eader('Base');                 # HTTP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already abs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	264	363	
==>:Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	337	436	
==>:Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backe <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	159	272	
==>}

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	159	272	
==>}

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1454	1557	
==>{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Function <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1454	1557	
==>{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Function <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8385	8492	
==>ode has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8385	8492	
==>ode has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9338	9528	
==>nted";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9338	9528	
==>nted";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3019	3173	
==>:node<Junction>),
                        Tree.new(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	554	661	
==>hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	554	661	
==>hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{captu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1405	1504	
==>e () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1405	1504	
==>e () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5346	5470	
==>h->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5346	5470	
==>h->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23747	23844	
==>> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23747	23844	
==>> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14949	15049	
==>core of the
Rosetta framework and defines a common programmatic interface (API), called
the Rosetta N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14949	15049	
==>core of the
Rosetta framework and defines a common programmatic interface (API), called
the Rosetta N <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3147	3335	
==>,
                        Tree.new(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node<Grammar>),
            Tree.new(:node<Type>).add <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2605	2717	
==>ram_type))
                || confess "got the wrong type for " . $param->to_str->to_native . " got($arg) -> expe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18763	18861	
==>I (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18763	18861	
==>I (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and it is <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1123	1231	
==>ift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $ar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2014	2121	
==>ift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $ar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2913	3033	
==>> 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2913	3033	
==>> 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2035	2187	
==>elf->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

su <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2035	2187	
==>elf->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20745	20859	
==>g includes an ordered list of what
packages a method is looked up in for a given object of type 'OBJ':
F<YourMod::O <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	932	1073	
==>ub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   = <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	932	1073	
==>ub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   = <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3296	3419	
==>e world's ugliest cygwin variable gives us a hint to the
        # cygwin root.  There is probably a better way to find this <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	195	309	
==>eturns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	195	309	
==>eturns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3667	3831	
==>ate;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3667	3831	
==>ate;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5622	5719	
==>se the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Dependi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5622	5719	
==>se the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Dependi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1051	1155	
==>kage MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1051	1155	
==>kage MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Comp <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	305	425	
==>E

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	305	425	
==>E

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1 <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	579	667	
==>--------------------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# - <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	602	690	
==>---------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------------------ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20783	20877	
==>adline
# readlink readpipe recv rename rewinddir rmdir seek seekdir select(both)
# send setsock <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18086	18192	
==>blocks; so that by the
time a compiler is called it only gets the source code that it should be
looking at. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18086	18192	
==>blocks; so that by the
time a compiler is called it only gets the source code that it should be
looking at. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	308	406	
==>Array.splat() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	308	406	
==>Array.splat() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9647	9792	
==>scard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @arra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9647	9792	
==>scard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @arra <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24367	24464	
==>elation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28919	29016	
==>elation object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5104	5206	
==>$folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5104	5206	
==>$folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11644	11736	
==>@accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accep <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11644	11736	
==>@accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accep <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18913	19011	
==>uld have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText is o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18913	19011	
==>uld have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText is o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11118	11279	
==>sts($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11118	11279	
==>sts($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and ' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2567	2692	
==>e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "eum <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2567	2692	
==>e, circumflex accent
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "eum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2615	2785	
==>circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2615	2785	
==>circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4277	4397	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4470	4590	
==>,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16446	16542	
==>rithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16446	16542	
==>rithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16603	16740	
==>6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16603	16740	
==>6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3138	3232	
==>et::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicod <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3138	3232	
==>et::Hash::count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicod <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35696	35791	
==>urns Relation>

This multi-method is a generic binary relational operator that takes
another Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40246	40341	
==>urns Relation>

This multi-method is a generic binary relational operator that takes
another Rel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5061	5180	
==>s>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5061	5180	
==>s>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1749	1858	
==>Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1749	1858	
==>Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5715	5820	
==>ult ?? @result[-1] !! undef;
    @result;
}


# copied from S29draft.pod r8593.
multi Array::unshift (@arr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5414	5513	
==>er::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8985	9106	
==>%!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8985	9106	
==>%!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!ch <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	267	365	
==>hift;

	my $c = $self->compile($prog);
	my $type_annotated = $self->annotate($c);
	my $c_code = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2844	2957	
==>andard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2844	2957	
==>andard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6847	6961	
==>my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is one
    return Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6847	6961	
==>my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is one
    return Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7935	8036	
==>Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTI <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7935	8036	
==>Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FUNCTI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9602	9774	
==>=> '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - optimization - pass the string index around, 
# XXX - weaken self-r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7050	7174	
==>5.{$k} {
                warning "Modifier :$k is not (yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%mod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2441	2550	
==>nt we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2441	2550	
==>nt we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.server <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2037	2147	
==>file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $p <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2037	2147	
==>file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14565	14666	
==>numeric( $string, $unsafe_chars )

This routine works just like encode_entities, except that the repla <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14565	14666	
==>numeric( $string, $unsafe_chars )

This routine works just like encode_entities, except that the repla <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43329	43572	
==>l' => 'symbol'),                                
                          ),
                returns => 'method'
            ),
            sub {
                my $e = shift;
                $e->get('WALKMETH')
                  ->do(list->n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	667	809	
==>{
            my ($self, $run) = @_;
            return '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . " but ran <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8018	8140	
==>::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7744	7860	
==>::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5189	5415	
==>tion interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 36 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5189	5415	
==>tion interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 36 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2315	2426	
==>al classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2315	2426	
==>al classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parse <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5031	5334	
==>BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:pe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5031	5334	
==>BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13180	13302	
==>()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13180	13302	
==>()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	27	130	
==>ol ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	27	130	
==>ol ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15558	15697	
==>[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15552	15691	
==>[1]     ? do { $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, para <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8649	8756	
==>}
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	728	832	
==>ile or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  unless($smoke <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3411	3539	
==>d intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3411	3539	
==>d intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $s <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	555	647	
==>Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

mu <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	555	647	
==>Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

mu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1814	1943	
==>dic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1814	1943	
==>dic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6025	6152	
==>al
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6025	6152	
==>al
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data ty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3260	3507	
==>dule Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command sh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3260	3507	
==>dule Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6825	6975	
==>ch = $op->( @_ );

        ### aborting match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6600	6742	
==>ch = $op->( @_ );
        ### aborting match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19002	19125	
==>he fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal does I<not> happen automatic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19002	19125	
==>he fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal does I<not> happen automatic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6759	6865	
==>_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6759	6865	
==>_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2682	2785	
==>treatment to the Prelude,
# which is assumed to be the first module in the list.
sub gen_source {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	199	301	
==>= qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine_VERSION {
    my $self = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1397	1516	
==>. " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1397	1516	
==>. " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

* <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1220	1468	
==>en 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1220	1468	
==>en 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	196	297	
==>n = "wert" unless defined $option;

#!\pause
# zur Vereinfachung gibt es in Perl 6 den // Operator:
my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4899	5012	
==>j->can($method)};
}

sub load {
    my ($self, $method) = @_;

    $self->load_extensions(
        "$self->{prefix <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3665	3781	
==>elation::Example to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9251	9362	
==>ee = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11566	11677	
==>ee = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self;
    retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3756	3878	
==>@_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, j <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3756	3878	
==>@_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, j <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4722	4844	
==>r $f = open 'file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  --> sub my_sub { $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1688	1815	
==>e() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1688	1815	
==>e() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6955	7084	
==>0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6955	7084	
==>0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2966	3085	
==>ue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2966	3085	
==>ue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1414	1556	
==>$uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~~ m:P5/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1414	1556	
==>$uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path ~~ m:P5/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	179	294	
==>lass - not more than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRIPTION

Emitters take a compiled pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	216	322	
==>blessed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name) <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2147	2240	
==>ecution of arbitrary code;
each alternate engine may introduce additional security or memory p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	731	822	
==>Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	731	822	
==>Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1151	1255	
==>b get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1151	1255	
==>b get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_h <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2172	2319	
==>ar % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2172	2319	
==>ar % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7439	7611	
==>ntry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	740	912	
==>ntry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2011	2122	
==>ll
    # blow up in our faces when tests are inserted.
    # It is better then checking for the names of the tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30420	30522	
==>)

"Walks" the object.  This is used to dive into the node's children
when using a walker (see L<Regexp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3783	3919	
==>p {
    my ($self) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n";
    my $prec = "P000";
    my %seen;
    for my $level ( rever <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4090	4229	
==>'>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4090	4229	
==>'>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #prin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15537	15638	
==>the span.

These methods may raise a warning if the new value would put the span 
in an invalid state, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15537	15638	
==>the span.

These methods may raise a warning if the new value would put the span 
in an invalid state, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	311	410	
==>ents!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	311	410	
==>ents!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12866	12977	
==>on is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12866	12977	
==>on is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17213	17323	
==>$posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13634	13744	
==>$posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->erro <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	61	153	
==>p.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	61	153	
==>p.pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8293	8393	
==>nd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8281	8381	
==>nd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13528	13635	
==>h ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13528	13635	
==>h ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can p <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1193	1282	
==>IL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTI <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1404	1493	
==>IL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3234	3343	
==>l" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3222	3331	
==>l" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #prin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21295	21395	
==>")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21295	21395	
==>")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25564	25675	
==>]{}|]> #SourceCharacter but not ...
}
rule AtomEscape {  # see 15.10.1
      <DecimalEscape>
    | <CharacterEsc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6304	6441	
==>EXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leadin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6304	6441	
==>EXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and leadin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8014	8121	
==>h pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8014	8121	
==>h pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6665	6763	
==>item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6665	6763	
==>item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Elemen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2257	2394	
==>lass eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2257	2394	
==>lass eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$d <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1559	1683	
==>orian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1828	1952	
==>orian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4674	4772	
==>a string, the match object returns the stringified version
of the result object (usually the entire <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4674	4772	
==>a string, the match object returns the stringified version
of the result object (usually the entire <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8645	8777	
==>, ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6178	6304	
==>, ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+', 
 # fixity => 
 #  in <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5870	5956	
==>ion by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5870	5956	
==>ion by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5522	5641	
==>self = shift;

		my $node = shift;
		my $expected_type = shift;

		my $de_facto_type = $node->type;
		
		warn "attemptin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5161	5253	
==>thunk = $node->struct_equiv;
	my $child = $thunk->val->struct_equiv;

	if ($child->isa("Blond <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1318	1456	
==>ne = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1318	1456	
==>ne = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5424	5636	
==>}
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'he <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5424	5636	
==>}
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'he <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10777	10879	
==>ld smoke reports are automatically deleted, so you may not want
    to link directly to a smoke.
  </p> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2021	2135	
==>e) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2021	2135	
==>e) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1081	1238	
==>= delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1221	1378	
==>= delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1329	1431	
==>'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<text <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1329	1431	
==>'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<text <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21294	21399	
==>e compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21294	21399	
==>e compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autri <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10698	10805	
==>VERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10698	10805	
==>VERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )` <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1569	1693	
==>D sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2231	2355	
==>D sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20199	20306	
==>ionally in a simple fashion so that it is easy to maintain and
and easy for developers to study.  As a resul <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20199	20306	
==>ionally in a simple fashion so that it is easy to maintain and
and easy for developers to study.  As a resul <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5982	6082	
==>FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10202	10352	
==>st_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "don <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10202	10352	
==>st_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "don <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	285	385	
==>\< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_w <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	285	385	
==>\< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_w <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10932	11033	
==>tem B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10932	11033	
==>tem B<path_info returns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B< <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1643	1758	
==>}{'dynamic_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless ( de <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1356	1467	
==>ValueType where { $^n ~~ Num and ...XXXfill in... };
   subset complex'~$n~' of ValueType where { $^n ~~ Num and <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1007	1145	
==>not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1015	1145	
==>not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1204	1338	
==>de // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1204	1338	
==>de // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12053	12178	
==>ms - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12047	12172	
==>ms - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24750	24852	
==>the GPL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Softwar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24750	24852	
==>the GPL as part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Softwar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6013	6165	
==>' ' . _mangle_ident( $n->{sub}{bareword} ) . '(' . _emit( $n->{param} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn " <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30198	30294	
==>es in the filename work.

Keeping whittling away at _run_all_tests()

Clean up how the summary is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2093	2182	
==>eturn { access_hashref_element => $() } }
RULE
*{'access_hash_element'} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9084	9185	
==>turn the same failure object always

then there's absolutely no overhead

I'm not sure about this - fa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8785	8884	
==>turn the same failure object always
then there's absolutely no overhead
I'm not sure about this - fa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	682	794	
==>0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	682	794	
==>0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3027	3238	
==>$lconst );
        $_[3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + $lconst),
                nam <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1363	1492	
==>\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line . "\n";
    exit 1;
  }
}

sub usage { print STDERR < <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18305	18756	
==>.pairs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation - <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1915	2024	
==>~ s/^\s*//;
		return $str;
	} else {
		return "undef" unless defined $node;
		return "$node" if Blondie::TypeS <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13010	13122	
==>,

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13010	13122	
==>,

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, St <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4579	4729	
==>se_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4579	4729	
==>se_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4485	4601	
==>implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4331	4443	
==>implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13740	13858	
==>g "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13740	13858	
==>g "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	609	708	
==>ect(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	609	708	
==>ect(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3344	3458	
==>nt_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3561	3675	
==>nt_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4737	4840	
==>n} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4737	4840	
==>n} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on th <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2024	2117	
==>@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2024	2117	
==>@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	503	604	
==>e_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	709	810	
==>e_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8226	8336	
==>It is yet unknown whether this is working because the language
    # spec says it is supposed to, or whether is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8226	8336	
==>It is yet unknown whether this is working because the language
    # spec says it is supposed to, or whether is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1687	1876	
==>ot_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1687	1876	
==>ot_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29316	29411	
==>or the 'atom' handle to be executed, you must
explicitly add it to the queue (C<< $parser->{next <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1482	1606	
==>er.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1482	1606	
==>er.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %! <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3605	3722	
==>or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3605	3722	
==>or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12515	12625	
==>!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12515	12625	
==>!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, l <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	413	526	
==>::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	413	526	
==>::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	63	163	
==>returns the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started b <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	19	117	
==>returns the Foo module object,
# see thread "What do use and require evaluate to?" on p6l started b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21327	21421	
==>es.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ing <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21327	21421	
==>es.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ing <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	489	585	
==>$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	489	585	
==>$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2761	2860	
==>with the user supplied
f.  Such things are possible in Perl 5, but simply saying .assuming is
nicer. <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	309	477	
==>efined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	309	477	
==>efined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	808	903	
==>cale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	808	903	
==>cale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11088	11236	
==>RG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11088	11236	
==>RG_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	239	488	
==>_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	239	488	
==>_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_k <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37579	37671	
==>'require'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )>

This m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37579	37671	
==>'require'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! )>

This m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2415	2580	
==>d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2415	2580	
==>d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4690	4797	
==>Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STOR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4690	4797	
==>Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STOR <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8509	8683	
==>ap:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation::Examp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39232	39351	
==>specific code
    }
    else {
      # elsewhere
    }
  });

=head2 Character Classes

Character classes are not return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8792	8893	
==>turn if $uint < $A.property_value{'length'};
    $A.property_value{'length'} = $uint + 1; #XXX dont fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31075	31169	
==>consists of the two parts concatenated without any delimiter.  This means,
for example, that th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31075	31169	
==>consists of the two parts concatenated without any delimiter.  This means,
for example, that th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1214	1313	
==>s Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1214	1313	
==>s Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2722	2838	
==>me -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13656	13763	
==>t$_)[2]&0020)) }
		    split quotemeta ($sep), $1;

	$runperl =~ /(.*)/s;
	$runperl = $1;

	$result = `$runp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	334	444	
==>$encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 D <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	334	444	
==>$encrypt.cipher($_) for =$IN;     # Works with bytearrays and strings
    print $encrypt.finishstr();

=head1 D <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2112	2206	
==>o want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.or <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2112	2206	
==>o want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.or <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	332	446	
==>lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    loca <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4523	4629	
==>{_exe}";
    my $base = $self->{_top}{base};
    "$base/blib/script/$pugs";
}

sub warn_cygwin {
    if ($^ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4308	4517	
==>*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4308	4517	
==>*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10297	10396	
==>evious => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary function <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10297	10396	
==>evious => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary function <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12753	12894	
==>it maybe probably be
in terms of longest non-infinite.  -law]

=back



=head2 Hash

=over 4

=item delete

 multi method Hash::delete ( *@key <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5474	5581	
==>,
    (map { $smoke{summary}{$_} } qw<total ok failed todo skipped unexpect>),
    $smoke{id};
}

sub unpack <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3677	3790	
==>("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES resp <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3677	3790	
==>("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES resp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	83	178	
==>l6::MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$::TestBuilder = undef;

$::Test <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19316	19417	
==>BROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19316	19417	
==>BROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a package.

Next, all the bl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6725	6849	
==>[
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6725	6849	
==>[
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ], <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11464	11588	
==>ecurrence that are also in the given recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11464	11588	
==>ecurrence that are also in the given recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13384	13485	
==>meter to most of the functions is a way
to provide a comment that refers to another file or test which <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13442	13543	
==>meter to most of the functions is a way
to provide a comment that refers to another file or test which <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	734	834	
==>ns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => B <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	734	834	
==>ns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => B <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	114	251	
==>::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# p <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	114	251	
==>::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5190	5323	
==>message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5190	5323	
==>message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34356	34456	
==>tor object.
The Set Names property of the new object is set from the named parameter
@set_names (an a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34356	34456	
==>tor object.
The Set Names property of the new object is set from the named parameter
@set_names (an a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13234	13358	
==>lt' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13234	13358	
==>lt' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11529	11637	
==>ocs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant though.

=item Creat <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11529	11637	
==>ocs

=item Convert more tests

A good amount of Tree::Simple's test will not be relevant though.

=item Creat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1354	1453	
==>ons of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1354	1453	
==>ons of @header_order.  This is used
# for sorting and case matching.
our %header_order;
our %standar <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1382	1516	
==>uild_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unabl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1382	1516	
==>uild_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unabl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21230	21339	
==>ods, does not delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21230	21339	
==>ods, does not delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copy <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4671	4821	
==>e {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  && <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4671	4821	
==>e {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  && <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6786	6905	
==>` inside text? 

One idea is that if I get to the end of the line and find no closing match, I should
ignore the opening <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6786	6905	
==>` inside text? 

One idea is that if I get to the end of the line and find no closing match, I should
ignore the opening <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2760	2870	
==>ler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in character class") if $cc;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8370	8481	
==>Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Cl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8370	8481	
==>Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Cl <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10115	10204	
==>foundry.org/pugs/perl5/PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2406	2629	
==>tch => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	530	668	
==>not isa "P6RulesInP5::Match" )
  {
    $target = $matchObj;
    $from = -1;
    if ( not $grammar)
    {
      $grammar = "P6RulesInP5::Rul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10756	10857	
==>dations, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these coul <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10756	10857	
==>dations, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these coul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22192	22295	
==>ppropriately in the search
list.  The analogy is similar to inheriting from multiple packages which
have <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22192	22295	
==>ppropriately in the search
list.  The analogy is similar to inheriting from multiple packages which
have <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25291	25451	
==>term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25570	25730	
==>term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4784	4957	
==>@maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have someth <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5248	5421	
==>@maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have someth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36732	36832	
==>object's Set and Member properties; if none
could be matched, this method returns undef.  This method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36732	36832	
==>object's Set and Member properties; if none
could be matched, this method returns undef.  This method <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2594	2768	
==>&as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2594	2768	
==>&as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11364	11518	
==>shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12162	12316	
==>shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5198	5315	
==>y $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5198	5315	
==>y $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12696	12792	
==>ead2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12696	12792	
==>ead2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	796	888	
==>ME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	796	888	
==>ME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine::Example for English

= <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1304	1408	
==>self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1304	1408	
==>self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Boo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9613	9731	
==>test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9613	9731	
==>test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1161	1249	
==>r::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1381	1469	
==>r::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4822	4929	
==>| die;
  $r = mk_Match_appender($r,$name) if $match_hack;
  push(@$aref,$r);
  $r;
}
sub def_token      { de <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3255	3367	
==>',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3255	3367	
==>',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6730	6853	
==>t_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    return $p->Output( classname => $self->{grammar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4716	4852	
==>X

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4716	4852	
==>X

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14896	15019	
==>ecomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parenthes <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19064	19187	
==>ecomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parenthes <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2732	2841	
==>et.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2732	2841	
==>et.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8170	8268	
==>tements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1995	2093	
==>tements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) } <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1000	1176	
==>ss %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advance <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1000	1176	
==>ss %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advance <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12540	12635	
==>ated.  The tests that are passing represent the
current working features.

This module deals wit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12540	12635	
==>ated.  The tests that are passing represent the
current working features.

This module deals wit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	774	884	
==>ile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3893	4067	
==>if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4357	4531	
==>if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13803	13903	
==>S->force_object(anyof_class => ascii => $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_handl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	944	1070	
==>nshift @rv, _recurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $entry = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	262	413	
==>n optional "flags" hashref

    'capture'=>1 means 'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash conta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	249	393	
==>n optional "flags" hashref
    'capture'=>1 means 'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash conta <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4511	4660	
==>ir    safe   (List)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   List      post    ...     s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	267	381	
==>Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1432	1577	
==>e {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1432	1577	
==>e {
        $i_end       = $.end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19402	19511	
==>AssignmentExpressionNoIn>
}

# A.4 Statements

rule Statement :words {  # see clause 12
      <Block>
    | <V <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18298	18411	
==>0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_1:
    self["cutnum"] = $I0
    .r <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6042	6132	
==>m -package network -package mtl -package template-haskell -package base -package pugs-fps - <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1646	1737	
==>ethods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new cl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1646	1737	
==>ethods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11100	11222	
==>name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11250	11372	
==>name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3892	4005	
==>get_smoker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { LoadFile($SMOKER <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	927	1036	
==>rs( qw[files alternative installation] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12521	12624	
==>Checks if the given line is a comment.  If so, it will place it into
C<$comment> (sans #).

=cut

sub _i <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6261	6444	
==>>_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5769	5952	
==>>_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32121	32228	
==>the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated tuples appear o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36671	36778	
==>the tuples that are in either or both of the
invocant Relation and C<$other>; any duplicated tuples appear o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1204	1332	
==>e"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1204	1332	
==>e"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capit <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1007	1138	
==>footer) if $footer;            
        }
    },
    methods => {
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	677	794	
==>ix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1791	1897	
==>rt();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	210	311	
==>ON = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ();

sub Makefile { $_[ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6900	6985	
==>er::DuplicateFinder->new;
	$self->{dups} = Set::Object->new( $dup_finder->duplicate_no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13273	13396	
==>oreover, these data structures are in exactly the right input format for
Document.new(), by which you can create an identica <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13273	13396	
==>oreover, these data structures are in exactly the right input format for
Document.new(), by which you can create an identica <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1449	1709	
==>tr $msg_key!) returns Str {
        return %TEXT_STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	669	799	
==>B_META },
    };
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    ### mak <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4884	5046	
==>(closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>)) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6646	6808	
==>(closure::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>)) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3695	3806	
==>D';
    # Regexp::Parser bug fix/workaround
    package Regexp::Parser::anyof_class;
    sub visual {
      my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40188	40284	
==>m Messages

It is probably easiest to follow my module when creating warning and
error messages f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1762	1857	
==>die "Thunk is accepting $received parameters, while App is providing $sent parameters: "
		. Blo <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	18	110	
==>stall::Pugs;
use Module::Install::Base; @ISA = qw(Module::Install::Base);
use strict;
use Con <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19979	20073	
==>lers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specifi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19979	20073	
==>lers, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	993	1122	
==>} else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1001	1125	
==>} else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15169	15276	
==>The old header value is always returned.
If the given header did not exist then C<undef> is returned.

Metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15169	15276	
==>The old header value is always returned.
If the given header did not exist then C<undef> is returned.

Metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1991	2108	
==>->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1991	2108	
==>->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{ca <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26018	26123	
==>his allows
the tests to determine if they are being executed through the harness
or by any other means.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3663	3789	
==>_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3856	3982	
==>_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9750	9889	
==>lass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23828	23917	
==>|T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7550	7656	
==>ired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' d <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7550	7656	
==>ired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired when a '=end' d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3354	3501	
==>$cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4203	4350	
==>$cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21772	21897	
==>ush @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22051	22176	
==>ush @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4003	4143	
==>($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4003	4143	
==>($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # d <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3080	3261	
==>(Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6557	6738	
==>(Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6959	7073	
==>atch if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6959	7073	
==>atch if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24357	24473	
==>=> 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my($x)=@_;
    return 'undef' if !defin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6837	6950	
==>unctuation {  # see 7.6
      # any character in the Unicode category "Connector punctuation (Pc)"
      <Pc>
}
ru <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2830	2938	
==>($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2830	2938	
==>($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1257	1347	
==>includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stri <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1257	1347	
==>includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stri <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	458	598	
==>_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	425	565	
==>_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4634	4758	
==>)`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4634	4758	
==>)`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9344	9468	
==>rms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9537	9661	
==>rms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	338	465	
==>6, rev.p6, mid.p6,
# wc.p6, developed with a very early version of Pugs (6.0.10)
# and with very little knowledge of Perl 6. The <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6656	6772	
==>Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6656	6772	
==>Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11024	11168	
==>ator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.cur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11024	11168	
==>ator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.cur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3281	3381	
==>self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3281	3381	
==>self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    re <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4553	4656	
==>he object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4553	4656	
==>he object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1573	1678	
==>head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1573	1678	
==>head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11538	11627	
==>Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11538	11627	
==>Accept") = "text/html, text/plain, image/*";
 $header.header("Accept") = <text/html text/p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	433	573	
==>Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invoc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	433	573	
==>Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root]
           ~ q[ Node of the invoc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15571	15688	
==>2 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& */

Must be zero <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17716	17820	
==>.

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10883	10995	
==>{
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10883	10995	
==>{
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5096	5205	
==>_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metacla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7764	7873	
==>_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metacla <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1095	1190	
==>ies of documents, written
in question/answer format, to explain the design and implementation of <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1095	1190	
==>ies of documents, written
in question/answer format, to explain the design and implementation of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4139	4278	
==>].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4127	4266	
==>].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21151	21256	
==>d2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the spec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21151	21256	
==>d2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally using the spec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1915	2086	
==>quest.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1915	2086	
==>quest.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3114	3238	
==>($self->{neg} ? 'n' : '') . $self->family;
  }

  sub family { 'space' }

  sub visual {
    my $self = shift;
    $self->{ne <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9053	9153	
==>.local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31550	31644	
==>it, another library likewise, and a program which uses both libraries
could have yet another se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31550	31644	
==>it, another library likewise, and a program which uses both libraries
could have yet another se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7555	7751	
==>eturn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6:: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7555	7751	
==>eturn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12760	12854	
==>crete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12760	12854	
==>crete spans take a "units" specifier, which can be either `:int` or `:density($size)`.

The uni <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8882	9030	
==>son' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8882	9030	
==>son' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11278	11378	
==>rt`

These functions should work with most reg-exps, but given that they are still a
somewhat experim <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11336	11436	
==>rt`

These functions should work with most reg-exps, but given that they are still a
somewhat experim <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5148	5257	
==>-
## now begin creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subcl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12639	12782	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12918	13061	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10304	10414	
==>_subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] negat <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	69	165	
==>/5.8.7/Module/Install/Fetch.pm"
package Module::Install::Fetch;
use Module::Install::Base; @ISA = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	860	965	
==>us($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	860	965	
==>us($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1203	1303	
==>se?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1203	1303	
==>se?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel ( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3149	3272	
==>tart_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3149	3272	
==>tart_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2906	3005	
==>s a list.  The order in which they were
present in the query string is preserved.

=item C<$q.param( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2906	3005	
==>s a list.  The order in which they were
present in the query string is preserved.

=item C<$q.param( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3531	3745	
==>:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the children of the top level A <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13231	13334	
==>k, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    my $v = $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24818	24906	
==>,-i,E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1440	1536	
==>$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1580	1676	
==>$self->{ast}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumpe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10650	10750	
==>ulti method intersection (Relation::Example $other!) returns Relation::Example {

    die "The headin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27764	27925	
==>eop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28043	28204	
==>eop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4697	4995	
==>w(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4697	4995	
==>w(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13243	13336	
==>forms. Below are some
example translations. This list is I<not> exhaustive.

 delete %hash{$ke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9603	9699	
==>hod _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9603	9699	
==>hod _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11999	12188	
==>rsion);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11999	12188	
==>rsion);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25270	25366	
==>tests %s\n\tFailed %d/%d tests, %.2f%% okay.>

For any single script that has failing subtests st <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	25	134	
==>s, Objekte, ...)
Perl 5:  my $name="Jens"; print "Mein Name ist $name.";
Perl 6:  my $name="Jens"; print "Mein <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6128	6237	
==>() ,} }
RULE
*{'sub_defin'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6ws>? <ident> <?p6w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14011	14106	
==>d_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14011	14106	
==>d_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5568	5682	
==>at calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=he <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5568	5682	
==>at calling any methods on a zeroed (and hence, also a finished) cipher 
object has undefined results.

=back 4

=he <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4718	4835	
==>"items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $off <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4718	4835	
==>"items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $off <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6052	6174	
==>my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5560	5682	
==>my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	287	430	
==>{family};
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub vis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	756	933	
==>cale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str : <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	756	933	
==>cale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str : <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14513	14638	
==>= "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14513	14638	
==>= "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2936	3343	
==>a::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2936	3343	
==>a::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::I <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1745	1888	
==>Bin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { ini <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1745	1888	
==>Bin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { ini <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	765	888	
==>am = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	971	1094	
==>am = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1624	1733	
==>ub{$rpcr2->match('abc') for 1..20},
    fast_x10     => sub{$x->('abc')         for 1..200},
    P5regex_x10 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19443	19527	
==>tch_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22744	22911	
==>'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23023	23190	
==>'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	285	407	
==>ld be fixed with macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5141	5252	
==>});

  # nspace (not a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5764	5867	
==>5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5764	5867	
==>5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6675	6850	
==>l)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:te <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6732	6907	
==>l)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:te <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14327	14428	
==>ss()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14385	14486	
==>ss()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2894	3024	
==>hod error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2894	3024	
==>hod error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HTML>
< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4893	4992	
==>Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4893	4992	
==>Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3707	3921	
==>e

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3593	3800	
==>e
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	278	376	
==>LO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FA <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	278	376	
==>LO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26728	26857	
==>ure_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27007	27136	
==>ure_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3547	3689	
==>)
        },        
        'class' => sub ($) {
            return ::opaque_instance_class(shift) if $_[0] == $Class;
            return ::op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9996	10135	
==>m = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9996	10135	
==>m = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	215	339	
==>_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	215	339	
==>_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1398	1544	
==>art = $start;
        } else {
            my $end = date($/[37..35]);
            $duration = Duration::Gregorian.new
                ( :start($st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4651	4742	
==>urn bit->new(0) if $left->length->not_equal_to($right->length) == bit->new(1);
    foreach m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3778	3878	
==>"internal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUC <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3778	3878	
==>"internal" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUC <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2049	2152	
==>val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2049	2152	
==>val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3770	3911	
==>ier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3758	3899	
==>ier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18644	18744	
==>ype', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you nee <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18644	18744	
==>ype', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you nee <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	797	932	
==>f: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	797	932	
==>f: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, e <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	109	203	
==>plementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	109	203	
==>plementation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	702	941	
==>stant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	703	942	
==>stant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   r <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10382	10502	
==>or die "Can't open output test file $output_path: $!";
                         
  my $template = HTML::Template->new(fil <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13449	13556	
==>p:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
database qu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13449	13556	
==>p:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
database qu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3087	3259	
==>@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3227	3399	
==>@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4716	4820	
==>e );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4716	4820	
==>e );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @i <==
2	/Users/nnunley/pugs/util/testgraph.pl	262	362	
==>ssfile} ||= Test::TAP::HTMLMatrix->css_file();
usage() if $Config{help};

my $yamlfile = shift || 'te <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23587	23675	
==>lace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,[],T1).
replace_at_n(N,Replac <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3919	4019	
==>gs->{invocant};

	$self->invocant->bind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unex <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7160	7260	
==>ment ('header')>

This event is fired after the '=head(n)' directive and it's accompanying text has b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7160	7260	
==>ment ('header')>

This event is fired after the '=head(n)' directive and it's accompanying text has b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26696	26803	
==>ect.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a string); the op <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26696	26803	
==>ect.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a string); the op <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20363	20462	
==>l directory entries: while the entry only has one subdirectory and no files, collapse
    for my $su <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30907	30999	
==>ion::Example
which has a superset of the original's attributes; the new Relation::Example has <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5600	5717	
==>Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    ch <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5600	5717	
==>Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    ch <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	527	624	
==>ename>  run perl6 file\n";
}

sub run_repl {
    my $verbose = $Perl6::Run::OnPerl5::X1::BB::debug <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9701	9811	
==>eed to bubble up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9701	9811	
==>eed to bubble up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4317	4411	
==>);
is($Object->name, 'Object', '... $Object got the right method return value');
is($Object->su <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6219	6313	
==>);
is($Object->name, 'Object', '... $Object got the right method return value');
is($Object->su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	0	104	
==>role Net::IRC::JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	0	104	
==>role Net::IRC::JoinOnInvite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21062	21155	
==>r (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21062	21155	
==>r (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15669	15767	
==>end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15669	15767	
==>end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed( <==
2	/Users/nnunley/pugs/util/package-osx.pl	8342	8461	
==>torial.3
        /usr/local/man/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/loca <==
2	/Users/nnunley/pugs/util/package-osx.pl	4013	4124	
==>n3/Perl6::Bible::A06.3pm
        /usr/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9451	9568	
==>universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9451	9568	
==>universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Inf <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1456	1553	
==>port {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns A <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1456	1553	
==>port {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns A <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12773	12873	
==>ities( $string, ... )

This routine replaces HTML entities found in the $string with the
correspondin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12773	12873	
==>ities( $string, ... )

This routine replaces HTML entities found in the $string with the
correspondin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4313	4526	
==>int("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4313	4526	
==>int("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8389	8487	
==>method get_method (opaque $self: symbol $label) returns method { 
    %:methods{$label};
}


(metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	83	197	
==>O  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<htm <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	83	197	
==>O  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<htm <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	38	147	
==>);
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	467	578	
==>basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	478	589	
==>basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1859	1954	
==>:DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but ut <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1859	1954	
==>:DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but ut <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7	139	
==>ict;
package Perl6Grammar;
our %nodes;
sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49604	49738	
==>hod label
        symbol->new('authority'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5780	5932	
==>precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5780	5932	
==>precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7141	7236	
==>utput.

A default implementation of this method is provided which returns nothing.

=item C<_tai <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7141	7236	
==>utput.

A default implementation of this method is provided which returns nothing.

=item C<_tai <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9155	9272	
==>ol $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9155	9272	
==>ol $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	711	870	
==>l($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	711	870	
==>l($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	528	640	
==>ntains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	528	640	
==>ntains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6801	6909	
==>"$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasynt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6801	6909	
==>"$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasynt <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	95	196	
==>thods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object represent <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	95	196	
==>thods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object represent <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2847	2958	
==>e );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2847	2958	
==>e );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_spa <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3955	4056	
==>Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURAT <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3955	4056	
==>Tiny does not preserve
your comments, whitespace, or the order of your config file.

=head1 CONFIGURAT <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5013	5113	
==>ent and responses received, then you should use the full object-oriented
interface provided by the C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5013	5113	
==>ent and responses received, then you should use the full object-oriented
interface provided by the C< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13514	13613	
==>stinct names for the fields present in the
header.  The field names have case as suggested by HTTP s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13514	13613	
==>stinct names for the fields present in the
header.  The field names have case as suggested by HTTP s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3195	3293	
==>set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3195	3293	
==>set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $ot <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	229	344	
==>( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	229	344	
==>( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11426	11621	
==>'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11426	11621	
==>'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26954	27055	
==>f the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26954	27055	
==>f the argument is not provided).

Some example usage:

    my Locale::KeyedText::Message $message .= n <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	694	792	
==>Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm her <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	694	792	
==>Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm her <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	344	462	
==>ss "You must store a native type in a list"
            foreach @values;
    bless \@values => $class;
}

# native conv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26881	26980	
==>and handlers.  F<Regexp::Parser> does
this automatically, but if you are sub-classing it, you'll pro <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21475	21606	
==>ath.yml";
      if -e $yml && prefix_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::Internals::comp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15565	15668	
==>Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to defin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15565	15668	
==>Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27754	27851	
==>handler gets the parser object and a boolean as arguments.
The boolean is true if the flag is goin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10363	10463	
==>ompiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10363	10463	
==>ompiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1715	1810	
==>ipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1715	1810	
==>ipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOP <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9394	9501	
==>will later mount.";

  step
    descr  => "Creating an ext2 filesystem on \"$initrd_img\"",
    ensure => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2948	3047	
==>hift(@ARGV);
my $source = slurp($source_file);
my $match  = Pugs::Compiler::Grammar->grammar($source <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3082	3211	
==>$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./dat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3082	3211	
==>$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./dat <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	379	473	
==>DESCRIPTION

A simple assert routine since we don't have Carp::Assert handy.

B<For internal us <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	250	360	
==>code as a reference point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys';

    # Every instanc <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	87	190	
==>year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Zo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7628	7747	
==>o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7069	7183	
==>o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1759	1854	
==>t2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algorithm <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1759	1854	
==>t2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algorithm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	943	1056	
==>ule::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	943	1056	
==>ule::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bl <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1248	1360	
==>=> 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binar <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1215	1327	
==>=> 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path);
        $ftp->binar <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9018	9150	
==>~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9018	9150	
==>~ s:P5:g/\x8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13480	13571	
==>pecifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') correspo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13480	13571	
==>pecifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') correspo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5912	6034	
==>d optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5912	6034	
==>d optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20243	20339	
==>e to the program package.  No
recompilation necessary.  This is something that end users could do <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20243	20339	
==>e to the program package.  No
recompilation necessary.  This is something that end users could do <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2182	2278	
==>:reverse (   @values) returns Lazy|Str {
 multi sub  Perl6::List::reverse (; *@values) returns La <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3349	3500	
==>> -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressio <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3349	3500	
==>> -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressio <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1423	1605	
==>2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1423	1605	
==>2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42993	43091	
==>ITIES

None reported.

=head1 SEE ALSO

Go to L<Relation> for the majority of references.

=head1 B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5212	5311	
==>rn nil>

The closure here will be passed a reference to the current value, 
this allows r/w access t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5804	5899	
==>text

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5804	5899	
==>text

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15235	15340	
==>raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15235	15340	
==>raw(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5805	5903	
==>tch



Rule constructors return Rule objects, which are "matcher" things.

Rules operate on strings <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5604	5699	
==>tch

Rule constructors return Rule objects, which are "matcher" things.
Rules operate on strings <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2648	2764	
==>.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2648	2764	
==>.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5578	5693	
==>tter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler processes



### separate "proce <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5386	5496	
==>tter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler processes

### separate "proce <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1660	1832	
==>ring $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { b <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1660	1832	
==>ring $class, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { b <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	500	602	
==>ull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	500	602	
==>ull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19596	19697	
==>t
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> stat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19596	19697	
==>t
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> stat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	93	191	
==>se Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	93	191	
==>se Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infini <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13432	13555	
==>{ +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    # quantifiers must follow somet <==
2	/Users/nnunley/pugs/util/package-osx.pl	11175	11312	
==>Removing \$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{
                p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5295	5439	
==>::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5295	5439	
==>::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpd <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10380	10520	
==>.6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10380	10520	
==>.6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => concat( $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7571	7670	
==>" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7571	7670	
==>" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a reference t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24528	24627	
==>ms of the GNU General Public License (GPL) as published by the Free
Software Foundation (L<http://ww <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24528	24627	
==>ms of the GNU General Public License (GPL) as published by the Free
Software Foundation (L<http://ww <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1365	1459	
==>r_here>.
#
#  Resources:
#   http://www.ecma-international.org/publications/standards/Ecma-262. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4579	4727	
==>ge satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{vers <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5043	5191	
==>ge satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{vers <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13335	13443	
==>density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span obj <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13335	13443	
==>density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8075	8187	
==>return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8075	8187	
==>return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	490	592	
==>ision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	490	592	
==>ision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21971	22207	
==>[
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22250	22486	
==>[
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7641	7744	
==>.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7641	7744	
==>.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1852	1950	
==>on are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1852	1950	
==>on are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2725	2830	
==>s \S
  package Regexp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5170	5277	
==>sh @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5363	5470	
==>sh @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4075	4212	
==>{$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4075	4212	
==>{$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	562	667	
==>eck_nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15031	15157	
==>match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or origina <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19206	19332	
==>match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or origina <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9860	9962	
==>e_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9860	9962	
==>e_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2600	2711	
==>sMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    m <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2600	2711	
==>sMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1478	1670	
==>!! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 } <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1478	1670	
==>!! "|"
        }
        elsif ( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 } <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8291	8446	
==>":s";
            %mods.delete("s"); # avoid haskell handling it.
            %mods.delete("sigspace");
        }
        if $pre ne "" {
            $pre ~ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9930	10032	
==>}
NODE TypeOr ($lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6_type_or(DOWN($lhs),DOWN($rhs));
}
N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1849	1941	
==>nstant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUIL <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1849	1941	
==>nstant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUIL <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12288	12420	
==>nd thus get CORE if none are defined.

  The C hooks (except for comp, obviously) look for the flag value,
  and call the original Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7877	7995	
==>ch+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7865	7983	
==>ch+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1518	1612	
==>ter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1518	1612	
==>ter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	225	479	
==>:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	225	479	
==>:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13232	13329	
==>return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6707	6804	
==>return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3305	3428	
==>+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3305	3428	
==>+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty result.
    if ('' ne ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14907	15070	
==>parate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14901	15064	
==>parate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            wa <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8883	9020	
==>∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric differen <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8883	9020	
==>∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric differen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	630	791	
==>0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	630	791	
==>0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34360	34553	
==>reate('$next' => $e->get('$dispatcher')->do());             
                block->new($e, sub {
                    $e->get('$next')
                      ->id
                      ->equal_to <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5175	5281	
==>tegories => $runcores{$_},
    }} sort keys %runcores
  ]);
  print $tmpl->output;
}

sub pack_smoke {
  my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	263	375	
==>ll' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Arr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	263	375	
==>ll' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3863	4008	
==>n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3851	3996	
==>n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quan <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1808	1911	
==>is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1808	1911	
==>is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11613	11734	
==>) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11613	11734	
==>) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	209	307	
==>_to     { confess 'You must override equal_to in ' . (shift) }
sub not_equal_to { $_[0]->equal_to($ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15719	15816	
==>dition(condi(I),Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11463	11567	
==>nc) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11463	11567	
==>nc) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15812	15933	
==>ue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15812	15933	
==>ue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of t <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16982	17182	
==>he backlink <a href...>
                my $backlink = HTML::Element->new('a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$lin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20467	20565	
==>15";

The rationale of this is that randoms strings are usally left alone by
compilers. After all t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20467	20565	
==>15";

The rationale of this is that randoms strings are usally left alone by
compilers. After all t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10296	10413	
==>),
	# list a -> a
	head => do {
		my $a = type::variable::free->new;
		type::operator::arrow->new(
			type::operator:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15151	15263	
==>d notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15151	15263	
==>d notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7169	7290	
==>_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = L <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	470	591	
==>_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = L <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2186	2310	
==>, then we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match has f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2186	2310	
==>, then we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match has f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	48	151	
==>-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	48	151	
==>-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_heade <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1279	1389	
==>specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1279	1389	
==>specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	254	372	
==>d is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	254	372	
==>d is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3827	3951	
==>c( $config{$key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we don't give back the priv <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2990	3089	
==>unc, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3048	3147	
==>unc, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := compare_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9491	9579	
==>t1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_supe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9491	9579	
==>t1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_supe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	583	706	
==>s too)
    (blessed($signature) && ($signature->isa('closure::params') || $signature->isa('closure::signature')))
        || <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9367	9463	
==>a specific capture group, pass its numerical
value:

  my $capture_2 = $parser->captures(2);

=he <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2132	2234	
==>4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebas <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2132	2234	
==>4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3481	3612	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3481	3612	
==>bols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Ro <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	174	313	
==>Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $dige <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	247	386	
==>Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $dige <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4828	4919	
==>ssert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4828	4919	
==>ssert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17900	18013	
==>ct at a time, and they are
essentially all isolated from each other, even if more than one uses the
same Engine cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17900	18013	
==>ct at a time, and they are
essentially all isolated from each other, even if more than one uses the
same Engine cl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1053	1170	
==>i sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1053	1170	
==>i sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method pre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10348	10461	
==>bs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fgloc <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10348	10461	
==>bs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fgloc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5839	5956	
==>self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5839	5956	
==>self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2195	2313	
==>>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2195	2313	
==>>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3838	4013	
==>->set('$method' => $e->get('$current')->send('get_method' => $e->get('$label')));                    
                      })
                  );    
                $e->set( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12098	12214	
==>le_end:
    if $S0 != ">" goto end
    inc pos
    mpos = pos
    mob["subname"] = subname
    mob["iscapture"] = isc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	903	1009	
==>lly have a native type
sub to_native { shift }

# conversion to other native types
sub to_num { (shift)->[0 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	273	382	
==>, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi * <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	273	382	
==>, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi * <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38249	38342	
==>itional parameter $text (a string), and a Message Variables hash ref
in its positional paramet <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38249	38342	
==>itional parameter $text (a string), and a Message Variables hash ref
in its positional paramet <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2698	2818	
==>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2698	2818	
==>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        = <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	11	114	
==>eam.pm
###
### Originally from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5536	5636	
==>erl 6 Rule categories.  

The module is still very unstable, and the algorithm is not optimized for s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3614	3720	
==>-----------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5516	5622	
==>-----------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5378	5594	
==>ment    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5378	5594	
==>ment    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash <==
2	/Users/nnunley/pugs/util/addauthors.pl	1314	1428	
==>ers{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub reada <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2191	2278	
==>//www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2191	2278	
==>//www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22534	22636	
==>ovide some variable values to be
interpolated into the user strings; Locale::KeyedText would also handl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22534	22636	
==>ovide some variable values to be
interpolated into the user strings; Locale::KeyedText would also handl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4704	4805	
==>new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4704	4805	
==>new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18542	18646	
==>ich get called on regular expression compilation and execution) to
parasitize the regexp struct - attempt <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2832	2936	
==>ich get called on regular expression compilation and execution) to
parasitize the regexp struct - attempt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6420	6578	
==>text =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6478	6636	
==>text =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6209	6308	
==>uld be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-languag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5996	6093	
==>uld be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-languag <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4485	4594	
==>erence $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(G <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	53	168	
==>Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed around.  It essentially
for <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	53	168	
==>Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that is passed around.  It essentially
for <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	353	460	
==>in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<sourc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	353	460	
==>in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<sourc <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2576	2681	
==>("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($gh <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2576	2681	
==>("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($gh <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4389	4490	
==>`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are a <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4389	4490	
==>`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15100	15196	
==>$text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15100	15196	
==>$text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NO <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2663	2768	
==>nstall;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2663	2768	
==>nstall;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	764	862	
==>l as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a const <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	764	862	
==>l as many non-standard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a const <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21980	22086	
==>bute Relation with zero tuples or
one tuple respectively have a special meaning in relational algebra which <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26532	26638	
==>bute Relation with zero tuples or
one tuple respectively have a special meaning in relational algebra which <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7178	7280	
==>his method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of by <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7178	7280	
==>his method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of by <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	624	720	
==>ement <after>.

- Captures need an internal 'counter', see the ratchet version for an implement <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9923	10020	
==>ail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

mult <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9923	10020	
==>ail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

mult <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6468	6570	
==>ator($name, $it);
}

=head2 C<analyze_file>

  my %results = $strap->analyze_file($test_file);

Like C< <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	205	307	
==>ION = '0.02';
use strict;
use File::Basename ();

sub prompt_script {
    my ($self, $script_file) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26745	26886	
==>ch ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27024	27165	
==>ch ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	642	744	
==>}

    no strict 'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::imp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43535	43630	
==>, L<Rosetta>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Da <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20102	20200	
==>inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that its resu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20102	20200	
==>inner blocks get compiled first, then outer blocks.

A compiler may choose to declare that its resu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14873	15010	
==>MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14873	15010	
==>MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3596	3778	
==>SSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3596	3778	
==>SSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2971	3393	
==>None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2971	3393	
==>None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5246	5438	
==>l => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5080	5264	
==>l => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19093	19190	
==>oval does I<not> happen automatically if using the header(),
push_header() or init_header() method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19093	19190	
==>oval does I<not> happen automatically if using the header(),
push_header() or init_header() method <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6045	6145	
==>ken_match_3:
  goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_redu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	134	293	
==>cols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	134	293	
==>cols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2274	2471	
==>utine
    Method      Perl method
    Submethod   Perl subroutine acting like a method
    Macro       Perl compile-time subroutine
    Rule        Perl pattern
    Block       Base class for all un <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2887	2990	
==>tory, check
unless($no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_di <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4671	4767	
==>>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) objec <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4671	4767	
==>>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) objec <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7538	7656	
==>s = length target
    value = "1"
    inc pos
    $I0 = pos
    pos = find_not_cclass .CCLASS_NUMERIC, target, pos, las <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	421	524	
==>$output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::ne <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	421	524	
==>$output
    );
}

method create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::ne <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21154	21243	
==>rset_member(E0,C,Set)).
rm(posSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :-    charset_member(E0, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18028	18134	
==>nt it; that is, multiple DBMS objects will not
have references to each other at a level visible in the Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18028	18134	
==>nt it; that is, multiple DBMS objects will not
have references to each other at a level visible in the Rose <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2644	2741	
==>thod get_all_children returns Array of Tree { @!children }

## ----------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2644	2741	
==>thod get_all_children returns Array of Tree { @!children }

## ----------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7284	7389	
==>{...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7284	7389	
==>{...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers should buffer i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14746	14856	
==>l be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14746	14856	
==>l be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Message.n <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1428	1528	
==>split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1428	1528	
==>split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3544	3649	
==>raction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3544	3649	
==>raction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9772	9875	
==>(0);  # top-level
  my $iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->walker <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5812	5914	
==>s Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5812	5914	
==>s Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4296	4395	
==>layed before booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz=$initrd <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4923	5017	
==>rocessing .t files
my $files = {}; # mapping from test-file-name to test-record
$files->{$_->{f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3030	3253	
==>\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3277	3500	
==>\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7325	7450	
==>),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "da <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7325	7450	
==>),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "da <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14078	14194	
==>Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14078	14194	
==>Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29966	30069	
==>alues from it by key.  Each template hash
key corresponds to the Message Key attribute of a Message obje <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29966	30069	
==>alues from it by key.  Each template hash
key corresponds to the Message Key attribute of a Message obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7135	7240	
==>s>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7135	7240	
==>s>.delete(normalize $kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!us <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1259	1359	
==>'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1259	1359	
==>'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5882	6000	
==>tatement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5882	6000	
==>tatement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	557	817	
==>724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	557	817	
==>724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1869	1971	
==>ethod export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1869	1971	
==>ethod export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5957	6064	
==>od current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5957	6064	
==>od current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2700	2809	
==>",join(" ",@todo),"==\n";
    for my $stage (reverse @todo) {
	#print STDERR "--$stage--\n";
	if($stage eq 'p5 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14430	14525	
==>ncode_entities($input, '<>&"');

This routine is exported by default.

=item encode_entities_num <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14430	14525	
==>ncode_entities($input, '<>&"');

This routine is exported by default.

=item encode_entities_num <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4886	4986	
==>$iso
    The final ISO9660 image name will be --iso.

Options may be abbreviated to uniqueness.

Auth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	555	683	
==>],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to qui <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	555	683	
==>],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to qui <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4606	4726	
==>length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: " <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4606	4726	
==>length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1895	2002	
==>set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1895	2002	
==>set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    return (($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	980	1086	
==>ugs::Utils::Interface::format};

	# load the required module
	eval "require $dumper->[0]";
	die "install $d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5859	5985	
==>n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5859	5985	
==>n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5368	5470	
==>dy joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5368	5470	
==>dy joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(norm <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6014	6294	
==>e = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6014	6294	
==>e = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23436	23547	
==>:words {  # see clause 13
      <SourceElements>
}
rule Program :words {  # see clause 14
      <SourceElements> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	167	263	
==>*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	167	263	
==>*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	976	1092	
==>/i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remo <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	976	1092	
==>/i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21784	22251	
==>airs,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3542	3660	
==>... },
    assoc => 'left',
    precedence => { tighter => '+' },
    fixity => 'infix',
  );

    my $rule = Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24559	24651	
==>ir attributes are private, so you must use accessor methods.
Locale::KeyedText does not decla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24559	24651	
==>ir attributes are private, so you must use accessor methods.
Locale::KeyedText does not decla <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5667	5793	
==>us => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# ----- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5667	5793	
==>us => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# ----- <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	431	548	
==>> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	431	548	
==>> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	701	801	
==>:Backend::Perl; # something to run the program
    
    my $result = Blondie::Backend::Perl->new->run <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3190	3308	
==>livecd.pl automatically fetches a kernel from the Internet.
  --kernel-local=$kernel_local
    Locally, the kernel is s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23683	23771	
==>,[H|T1]) :- !, N1 is N - 1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6764	6851	
==>plication => $() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')->co <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	125	242	
==>%att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    r <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	125	242	
==>%att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10067	10209	
==>'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10061	10203	
==>'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5152	5375	
==>nd_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5152	5375	
==>nd_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6586	6695	
==>} = $env if defined $env;
    $self->{next};
}

1;

__END__

=pod

=head1 NAME

closure - the core closure typ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3564	3685	
==>"uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3564	3685	
==>"uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	516	657	
==>$pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $pmc; die $@ if $@; exit 0;
        }
    }

    require Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3682	3778	
==>ompiler::Rule> should fix the problem.

- The perl5 executable must have PMC support. 

PMC suppo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13724	13886	
==>n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13724	13886	
==>n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $dig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12289	12406	
==>RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4932	5049	
==>RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11806	11906	
==>-> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11806	11906	
==>-> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3005	3124	
==>atchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub punct {
  my ( $matchObj ) = @_
  my ($matchOb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4664	4790	
==>e . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4664	4790	
==>e . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4141	4263	
==>r 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3996	4115	
==>r 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6526	6632	
==>ode::_print_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0], '$<list>' <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	416	545	
==>Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! " <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	416	545	
==>Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9375	9476	
==>lates HTTP-style message headers.
The headers consist of attribute-value pairs also called fields, whi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9375	9476	
==>lates HTTP-style message headers.
The headers consist of attribute-value pairs also called fields, whi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9439	9579	
==>^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9439	9579	
==>^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1148	1299	
==>1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $versi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1027	1178	
==>1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $versi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19543	19660	
==>e;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3175	3292	
==>print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #pri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3639	3756	
==>print "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #pri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1502	1653	
==>pen my $fh, $meta .'/'. $Fileslist                         or die $!;
    
    my $prerm = $meta . '/' . $Prerm;
    if( -e $prerm && -s _ ) {
        s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9504	9808	
==>> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9504	9808	
==>> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	998	1089	
==>n_alternation> \| <term>+? }
rule non_alternation { <conjunction> | <non_conjunction> }

rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3221	3321	
==>e

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3221	3321	
==>e

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12269	12404	
==>ge::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12263	12398	
==>ge::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10250	10349	
==>ll tests need a plan. A plan is simply the number of tests which are
expected to run. This should be <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10308	10407	
==>ll tests need a plan. A plan is simply the number of tests which are
expected to run. This should be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	974	1134	
==>pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	974	1134	
==>pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        captu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13189	13316	
==>=> 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13189	13316	
==>=> 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9694	9812	
==>} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9694	9812	
==>} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is export <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3574	3664	
==>---------------------------------------------------

# Utility to test that "No method foun <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5476	5566	
==>---------------------------------------------------

# Utility to test that "No method foun <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4159	4363	
==>mes to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4159	4363	
==>mes to search.
    has Str @!member_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

sub <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23804	23921	
==>@superclasses apply 
          ($_ send (add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1096	1199	
==>bol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_foreach is moved out of CONVERS <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1446	1586	
==>\n " if @{$o};
    $s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARRAY') { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13026	13126	
==>s an empty set.

- `stringify()`

Return a string representation of the set.

For most recurrence set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13026	13126	
==>s an empty set.

- `stringify()`

Return a string representation of the set.

For most recurrence set <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3357	3478	
==>5 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3368	3489	
==>5 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1134	1235	
==>ize);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1134	1235	
==>ize);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!member <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18663	18786	
==>t the user followed to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18663	18786	
==>t the user followed to the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1140	1250	
==>d end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1140	1250	
==>d end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	368	511	
==>nless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	368	511	
==>nless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	979	1116	
==>'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub bui <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	979	1116	
==>'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub bui <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	58	168	
==>$.content;

# this should really be an acccessor - all it's doing is making the
# "source" property of the obje <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	58	168	
==>$.content;

# this should really be an acccessor - all it's doing is making the
# "source" property of the obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1122	1299	
==>ey)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1122	1299	
==>ey)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@! <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	191	335	
==>load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstr <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	186	330	
==>load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstr <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2998	3108	
==>ection><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' = <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2998	3108	
==>ection><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5645	5741	
==>get_set_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5645	5741	
==>get_set_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!set_name <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15349	15448	
==>s a type variable that is present inside the function, if it was free it might be unified to a concr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11399	11501	
==>s of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11399	11501	
==>s of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11019	11128	
==>{
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11019	11128	
==>{
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14230	14329	
==>NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $targ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14230	14329	
==>NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $targ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19617	19712	
==>he C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Retu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19617	19712	
==>he C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Retu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1232	1346	
==>ift;

	my %table = (
		IV => "int",
		PV => "char *",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2665	2767	
==>$data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method should be c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2665	2767	
==>$data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method should be c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2925	3049	
==>hunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2925	3049	
==>hunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join('/', @pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7264	7394	
==>ned $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len): <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7264	7394	
==>ned $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len): <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21017	21109	
==>t>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21017	21109	
==>t>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channel <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1016	1132	
==>nc($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($curr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1016	1132	
==>nc($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.push($curr <==
2	/Users/nnunley/pugs/util/grokprims.pl	427	532	
==>ret, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or die "B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16093	16196	
==>osetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spend much time i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16093	16196	
==>osetta
documentation will be focusing mainly on how Rosetta itself works, and will
not spend much time i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3839	3935	
==>e power, move up to Config::Simple, Config::General or one of the
many other Config:: modules. To <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3839	3935	
==>e power, move up to Config::Simple, Config::General or one of the
many other Config:: modules. To <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2705	2899	
==>:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2705	2899	
==>:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13457	13577	
==>r_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_array_complain = sub { Car <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	808	907	
==>otal = $strap->total_results;

  # Altering the behavior of the strap  UNIMPLEMENTED
  my $verbose_o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23983	24093	
==>le for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23983	24093	
==>le for the majority of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14686	14807	
==>d $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14686	14807	
==>d $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fol <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11179	11285	
==>urrence object.

- `complement()`

Returns everything (from the universal set) that is not in this recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11179	11285	
==>urrence object.

- `complement()`

Returns everything (from the universal set) that is not in this recurren <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5895	5995	
==>" . join(", ", @params) . ") {" . join("\n\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3957	4105	
==>h ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3957	4105	
==>h ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	156	249	
==>cktracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfull <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	156	249	
==>cktracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfull <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	925	1040	
==>s_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	925	1040	
==>s_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2340	2459	
==>n "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $valu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2340	2459	
==>n "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ ": " ~ $valu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1989	2113	
==>l = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1989	2113	
==>l = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25100	25207	
==>is * or +
 * at the start of the r.e., which can involve a lot of backup).  Regmlen is
 * supplied because t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	125	227	
==>Module::Pluggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    require => 1,
) <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2226	2338	
==>) { @.strings }
        multi method as (--> Named) { $.name => self }
    }

    class Getopt::Argument::Style:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	226	334	
==>nerate AST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return { num => $() ,} } ) );
    __PACKAGE__- <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1810	1917	
==>= $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date: <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1810	1917	
==>= $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1343	1486	
==>@args = split(rx:Perl5/\s+/, $string);
        
        my @args = $string.split;
        exec(@args);
    }
}

class Control::Basic {
    # mul <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2900	3030	
==>heckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckTail {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3913	4037	
==>while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3901	4025	
==>while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quan <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1979	2077	
==>( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1979	2077	
==>( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_var <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10110	10235	
==>)))


$::ENV->create(
    "*::WALKCLASS", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            clo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4873	5010	
==>3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4873	5010	
==>3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
} <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7281	7375	
==><start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7281	7375	
==><start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	784	899	
==>Obj->target();
    $from = $matchObj->position();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($fr <==
2	/Users/nnunley/pugs/util/addauthors.pl	322	442	
==>"$_: $comitters{$_}\n";
#}

my $authors = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2358	2580	
==>m' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2358	2580	
==>m' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12201	12307	
==>bject support. Once object support is created, we will add it here, and
maintain backwards compatibility as <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12259	12365	
==>bject support. Once object support is created, we will add it here, and
maintain backwards compatibility as <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	69	218	
==>alues) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	69	218	
==>alues) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9545	9820	
==>ield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9545	9820	
==>ield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	258	363	
==>rammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	258	363	
==>rammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34689	34791	
==>d returns a new Relation that has the
same heading as the invocant and whose body contains all of the t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39239	39341	
==>d returns a new Relation that has the
same heading as the invocant and whose body contains all of the t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14367	14490	
==>Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32819	32912	
==>ects are prefixed with F<Regexp::Parser::>, but that is omitted
here for brevity.  The heading <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3001	3105	
==>lural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =he <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7380	7483	
==>lural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# =he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23928	24030	
==>(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom > <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20349	20451	
==>(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom > <==
2	/Users/nnunley/pugs/util/package-osx.pl	11888	11978	
==>ge_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make_symlinks($dest, %s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13496	13588	
==>entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_untermi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13496	13588	
==>entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_untermi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2280	2404	
==>rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2280	2404	
==>rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15516	15619	
==>tart or end value of the span.

These methods may raise a warning if the new value would put the span 
i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15516	15619	
==>tart or end value of the span.

These methods may raise a warning if the new value would put the span 
i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8114	8266	
==>ft;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7836	7979	
==>ft;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub rule <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2816	2949	
==>ash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2816	2949	
==>ash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13690	13810	
==>Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13690	13810	
==>Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2060	2169	
==>de) eq "IV";
		return quote(printable($node)),
	}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14721	14816	
==>lose();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14721	14816	
==>lose();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, whic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3293	3408	
==>er( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3293	3408	
==>er( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11297	11434	
==>$.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.curre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11297	11434	
==>$.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.curre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9071	9165	
==>ck

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl6::MetaM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	360	469	
==>metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	360	469	
==>metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9190	9305	
==>L_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9190	9305	
==>L_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3924	4047	
==>.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3936	4059	
==>.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetic <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	928	1022	
==>V<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub scrip <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	928	1022	
==>V<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub scrip <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11746	11864	
==>qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11740	11858	
==>qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19655	19756	
==>-column
plain-text format that will be much easier for a non-programmer to edit.
But the current Perl- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19655	19756	
==>-column
plain-text format that will be much easier for a non-programmer to edit.
But the current Perl- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18281	18381	
==>ory file
on disk, it is expected that the Engines will employ appropriate measures
such as system-man <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18281	18381	
==>ory file
on disk, it is expected that the Engines will employ appropriate measures
such as system-man <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	30	133	
==>v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	30	133	
==>v6;

# use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	833	937	
==>ables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %v <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	833	937	
==>ables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22180	22274	
==>me =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.pri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22180	22274	
==>me =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.pri <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19321	19424	
==>$lang);
}


 multi Control::Basic::exit ( Int $status = 0)
{
    Pugs::Internals::exit($status);
}


 mu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5463	5615	
==>to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5927	6079	
==>to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	653	826	
==>tion => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_INSTALLATION ,
        },
    };
    
    my $args = check( $t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16317	16422	
==>o empty if the parameter's
corresponding argument is not provided).  If the optional named parameter
$pare <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16317	16422	
==>o empty if the parameter's
corresponding argument is not provided).  If the optional named parameter
$pare <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8145	8256	
==>tion returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match fai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7871	7979	
==>tion returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match fai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17740	17900	
==>de_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17740	17900	
==>de_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_ty <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19724	19821	
==>er to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabili <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19724	19821	
==>er to edit.
But the current Perl-based solution will also be kept due to its more
dynamic capabili <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	995	1099	
==>lf.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	995	1099	
==>lf.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > $self.ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17855	18013	
==>{
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17855	18013	
==>{
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node ob <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	526	631	
==>density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tm <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	526	631	
==>density>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tm <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	441	564	
==>rt VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dos <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	441	564	
==>rt VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6796	6911	
==>($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6796	6911	
==>($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %ch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1666	1774	
==>lf->position();
  return ("") if $position < 0 or $position <= $from;
  return substr $target, $from, $positi <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	21	127	
==>.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BU <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	21	127	
==>.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BU <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1033	1234	
==>se( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = ~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20499	20598	
==>e, and lets you arrange the list in order of preference.  When you
open a program, it will search fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20499	20598	
==>e, and lets you arrange the list in order of preference.  When you
open a program, it will search fo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7104	7232	
==>pan1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7104	7232	
==>pan1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $en <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5206	5416	
==>$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6968	7178	
==>$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6134	6270	
==>f $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6122	6258	
==>f $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return ca <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1869	2018	
==>}
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for so <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1869	2018	
==>}
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsbug ATM
            for so <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3957	4118	
==>$str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3957	4118	
==>$str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37262	37359	
==>n its positional parameter
$module_name (a string) and checks whether or not it has already been
l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37262	37359	
==>n its positional parameter
$module_name (a string) and checks whether or not it has already been
l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10622	10718	
==>ode_params,";
    $code_args .= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9350	9493	
==>g";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die " <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9350	9493	
==>g";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die " <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9701	9843	
==>( *@values --> Lazy|Str) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	924	1044	
==>( *@values --> Lazy|Str) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	242	364	
==>_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter functio <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	242	364	
==>_path = @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter functio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9203	9334	
==>lation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not impl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9203	9334	
==>lation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not impl <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4577	4712	
==>ings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4969	5104	
==>ings
            # user code has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8288	8438	
==>@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8288	8438	
==>@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16558	16676	
==>odule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16558	16676	
==>odule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	206	315	
==>is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.inser <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	206	315	
==>is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.inser <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	641	745	
==>an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<so <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	641	745	
==>an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<so <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7102	7264	
==>? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7102	7264	
==>? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14464	14563	
==>tions, though).
The Node class is pure and deterministic, such that all of its class and
object meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14464	14563	
==>tions, though).
The Node class is pure and deterministic, such that all of its class and
object meth <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	720	815	
==>nfinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:mini <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	720	815	
==>nfinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:mini <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49578	49721	
==>add_method' => (
    # method label
        symbol->new('authority'),
    # method body
        method->new(
            $::ENV,
            met <==
2	/Users/nnunley/pugs/util/drift.pl	1658	1747	
==>here
import $module
import Data.Yaml.Syck
import DrIFT.YAML
import DrIFT.JSON
import DrIFT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23008	23096	
==>el, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23008	23096	
==>el, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nick|$channe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	123	285	
==>nts = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	123	285	
==>nts = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13744	13877	
==>xample.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.siz <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15269	15402	
==>xample.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.siz <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4326	4428	
==>g with '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4326	4428	
==>g with '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14070	14168	
==>routine has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Goo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14070	14168	
==>routine has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Goo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15213	15325	
==>xpand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15213	15325	
==>xpand folded code into original content.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map-> <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1461	1554	
==>been "selected", either by giving 
them to the unexported C<Log::Selective::select> function o <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1461	1554	
==>been "selected", either by giving 
them to the unexported C<Log::Selective::select> function o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22727	22851	
==>&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19148	19272	
==>&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18538	18645	
==>if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19896	20003	
==>if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8210	8299	
==>e($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8210	8299	
==>e($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<fro <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2049	2198	
==>d/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $chr =~ /#/ ) {
	    # special comment? (embedded latex)
	    if ($file[0] eq '!') {
		shift @f <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	100	202	
==>|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#my $g = Gr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	594	685	
==>ttp://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	594	685	
==>ttp://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2882	3062	
==>=> $$m->{tail},
                            capture => { op => "ANGLE", angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->() <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3082	3173	
==>code:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA/Pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5055	5198	
==>4 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function inter <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5055	5198	
==>4 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function inter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18866	18963	
==>s expressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anythi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18866	18963	
==>s expressive.  While Rosetta D is very different from SQL, it
is fully capable of modelling anythi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4984	5120	
==>t_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4984	5120	
==>t_end ($self: Object $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1512	1640	
==>ackage Param;
    use base 'Unit';

    package App;
    use base 'Node';

    package Val;
    use base 'Unit';

    package Pla <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2195	2292	
==>|| $self->name || $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->d <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1301	1397	
==>|| $self->name || $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5089	5234	
==>body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5089	5234	
==>body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	274	427	
==>Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { defaul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	268	421	
==>Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { defaul <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2574	2850	
==>&& 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= c <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2574	2850	
==>&& 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3626	3748	
==>: () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3819	3941	
==>: () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1090	1256	
==>$param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1230	1396	
==>$param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for k <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1339	1459	
==>my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1339	1459	
==>my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9958	10072	
==>$gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9952	10066	
==>$gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10439	10607	
==>ure} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_implemented( $n, "statement" );
}

sub infix {
    my $n = $_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26076	26169	
==>-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16769	16913	
==>ducer/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3543	3640	
==>main;
use Regexp::Parser;
use Data::Dumper;
use Match;
BEGIN { BacktrackDev->import; };
use strict <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24891	24995	
==>ime.

If you supply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands im <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24891	24995	
==>ime.

If you supply C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands im <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9864	9986	
==>$! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, Any %ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9864	9986	
==>$! } )
        if $!;

    return $text;
}

method interpolate_vars_into_template_text
        (Str $text! is copy, Any %ms <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	417	602	
==>sh @{$stack->[-1]} => $new_arr;
            }
            else {
                push @{$subexp} => $new_arr;
            }
            push @{$stack} => $new_arr;
        }
        elsi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3933	4048	
==>mar with the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3793	3905	
==>mar with the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1856	2013	
==>n unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1856	2013	
==>n unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( def <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4589	4782	
==>=> Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$sta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4589	4782	
==>=> Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$sta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6186	6326	
==>filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to sim <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6186	6326	
==>filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to sim <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	449	547	
==>IPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	449	547	
==>IPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2436	2563	
==>etadir from '$tmpdir" ), return;
# 
#         ### copy these sources to a build dir
#         JIB::Utils->_copy( file => $tmpsrc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21832	21939	
==>,
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_and_first = fun(
	param => "xs",
	bod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10319	10432	
==>ar_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10319	10432	
==>ar_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$va <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19168	19268	
==>_;

    die "FAILED--Further testing stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1879	2009	
==>ME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1879	2009	
==>ME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new( <==
2	/Users/nnunley/pugs/util/importgraph.pl	1576	1681	
==>regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	63	194	
==>ata::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	63	194	
==>ata::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1715	1809	
==>ompiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1715	1809	
==>ompiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1769	1955	
==>n' => $params{'$.description'},
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3446	3551	
==>m live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Compiler.pm



### how about lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3324	3424	
==>m live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Compiler.pm

### how about lib <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5880	5987	
==>SCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5880	5987	
==>SCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	174	312	
==>ch = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	174	312	
==>ch = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19672	19777	
==>tor. For example,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login ph <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19672	19777	
==>tor. For example,
C<Net::IRC> automatically tries to use slight variations of the nickname in the
login ph <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15915	16095	
==>->new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$c')
                      ->send(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17731	17842	
==>}, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8515	8675	
==>sults{details}};
        
        ## XXX - Begin Pugs addition
        # This addition analyzes the reason for the TODO    
        my %todos;
        foreach my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1195	1328	
==>- expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1195	1328	
==>- expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1896	2000	
==>trinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic loo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1823	1926	
==>trinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic loo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	204	355	
==>body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	204	355	
==>body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )-> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9533	9653	
==>n we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ... <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9533	9653	
==>n we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ... <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13774	13901	
==>($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13768	13895	
==>($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $pr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5485	5590	
==>$initrd_img,
  "initrd-size=i"  => \$initrd_size,
  "initrd-mnt=s"   => \$initrd_mnt,
  "cdroot=s"       = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18621	18722	
==>ody ),
    );
}

my method _exclusion (Relation::Example $other!) returns Relation::Example {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	824	935	
==>ight >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we ar <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	824	935	
==>ight >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4193	4321	
==>.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4193	4321	
==>.intersection( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5101	5199	
==>th () returns num>

=item B<elem () returns num>

=item B<join (?str) returns str>

=item B<each (c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1671	1784	
==>, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1671	1784	
==>, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	662	767	
==>density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - n <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	662	767	
==>density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - n <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1580	1711	
==>events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event = $events->[$i];
            if($all_the_sa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20460	20569	
==>DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self:) (hash %par <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1351	1444	
==>lt> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1351	1444	
==>lt> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1429	1547	
==>o, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1487	1605	
==>o, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1339	1458	
==>ntation:
    You will need the Synopses checked out; try

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    svn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24893	25017	
==>erence to the regex string
    sub Rx :lvalue          { $_[0]{regex} }

    # the position in the regex string
    sub RxPOS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21222	21353	
==>dd_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17643	17774	
==>dd_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1637	1784	
==>x" or die "can not open '$fname.tex' for writing";

    my $inblock = 0;
    my $col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	521	625	
==>tent_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	521	625	
==>tent_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6353	6458	
==>e functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6353	6458	
==>e functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17469	17558	
==>l be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17469	17558	
==>l be
initialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30726	30828	
==>e module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30726	30828	
==>e module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4684	4782	
==>ch syntactic shenanigans, the declaration must be visible
    in the lexical scope to have any effe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12362	12486	
==>d on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19456	19573	
==>1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14666	14781	
==>pec";
	    if ($@) {
		warn "test.pl had problems loading File::Spec: $@";
		$Perl = "./$perl";
	    } else {
		$Per <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5019	5164	
==>he Prelude: we want to exit from the
                          # *caller*'s scope.
        }
    }
}

class Carp {
    # Please remember to update <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	297	440	
==>struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	781	924	
==>struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22597	22709	
==>$args[0];  # undef.bit() # XXX eep
    if(!ref($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(spli <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4710	4851	
==>$set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4710	4851	
==>$set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closur <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2048	2163	
==>';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $arg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	751	842	
==>en->compile(q( \w+ ))->code;

*block = Pugs::Compiler::Token->compile(q( \{ [ <block> | <-[} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15238	15342	
==>(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15238	15342	
==>(Str $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7353	7637	
==>t.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7353	7637	
==>t.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	244	348	
==>leanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	244	348	
==>leanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8624	8765	
==>,
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8817	8958	
==>,
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8291	8420	
==>here4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8291	8420	
==>here4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => ch <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5834	5938	
==>ION

This is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is curren <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5834	5938	
==>ION

This is a straightforward event based POD parser, it is modeled after XML SAX 
parsers and is curren <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9691	9808	
==>{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is ex <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9691	9808	
==>{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) is ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13161	13324	
==>$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # singl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13155	13318	
==>$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # singl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4547	4721	
==>cy
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5011	5185	
==>cy
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3289	3437	
==>eturn 'numeric';
    }
    if($ref eq 'SCALAR') {
	return 'scalar_non_numeric' if !((~$$x & $$x) eq 0);
	return 'scalar_numeric';
    }
    return lc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34596	34694	
==>gument, where the heading of <$other> is a subset of the
heading of the invocant Relation, and retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39146	39244	
==>gument, where the heading of <$other> is a subset of the
heading of the invocant Relation, and retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6543	6663	
==>rator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6543	6663	
==>rator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $g <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7007	7106	
==>f $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7007	7106	
==>f $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34747	34845	
==>invocant and whose body contains all of the tuples that
are in the invocant Relation and that match <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39297	39395	
==>invocant and whose body contains all of the tuples that
are in the invocant Relation and that match <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2838	3071	
==>mts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')), <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2838	3071	
==>mts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')), <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	181	293	
==>list through the rule as it is executed, but the linked
list is done in code (i.e. with closures).  It has the fo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	181	293	
==>list through the rule as it is executed, but the linked
list is done in code (i.e. with closures).  It has the fo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7822	7945	
==>)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7822	7945	
==>)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normali <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	983	1103	
==>te"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	983	1103	
==>te"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È', <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9194	9370	
==>ecking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*p <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9194	9370	
==>ecking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16146	16244	
==>ute is set from the named parameter $node_type (a
string); the optional named parameter %attributes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16146	16244	
==>ute is set from the named parameter $node_type (a
string); the optional named parameter %attributes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7329	7463	
==>ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_star, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9018	9146	
==>ulti  List::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	476	591	
==>ulti  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10311	10427	
==>Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10311	10427	
==>Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13873	13980	
==>son?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be ski <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13931	14038	
==>son?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be ski <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8137	8233	
==>t.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the spec <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8137	8233	
==>t.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the spec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2459	2552	
==>t_is_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method end <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2459	2552	
==>t_is_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method end <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11216	11360	
==>ee 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNumericLiter <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11566	11660	
==>is function will compare `$got` and `$expected` using `&compare_func`. This will
eventually all <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11624	11718	
==>is function will compare `$got` and `$expected` using `&compare_func`. This will
eventually all <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2799	2982	
==>turns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6276	6459	
==>turns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3443	3575	
==>d( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3443	3575	
==>d( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11760	11870	
==>s );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11754	11864	
==>s );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4981	5099	
==>ves with $failedtests});

    return $ok;
}

=begin _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11007	11111	
==>ta to be used or
displayed by your program.  It is analagous to a simplified version of the
"Document" in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11007	11111	
==>ta to be used or
displayed by your program.  It is analagous to a simplified version of the
"Document" in <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20964	21061	
==>dary_not,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2253	2373	
==>};
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2253	2373	
==>};
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> )    { $en <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3268	3401	
==>start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3268	3401	
==>start_is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1032	1171	
==>lue, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1032	1171	
==>lue, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	332	462	
==>.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	332	462	
==>.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14749	14835	
==>e, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14749	14835	
==>e, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4490	4614	
==>ds to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4490	4614	
==>ds to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1480	1612	
==>$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1468	1600	
==>$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"mat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	780	915	
==>{
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3] <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	780	915	
==>{
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3] <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9091	9209	
==>n work-around.  Ugh!


        if (not $ghc_exe and $Config{osname} eq 'cygwin') {

            warn "*** ghc-pkg not f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1193	1289	
==>xt::Balanced::extract_delimited( "/" . $_[0], "/" );
    $extracted = substr( $extracted, 1, -1 ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	763	911	
==>}
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	763	911	
==>}
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.ke <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	786	884	
==>andard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	786	884	
==>andard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15002	15096	
==>}

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15002	15096	
==>}

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation, the progra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4399	4526	
==>ponse from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4399	4526	
==>ponse from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache3 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16763	16862	
==>erge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16763	16862	
==>erge it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4758	4892	
==>?
        );
    }
    elsif $tree[0] eq '"PPos"' {
        my %pad = $tree[1];  # keys: "pExp""pNode""pPos"
        dbg "# keys: ",%pa <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13155	13260	
==>ntation is at best an XS-based module (currently Inline::C),
  and is thus not very portable to broken (no <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1622	1715	
==>-----------------------------------
## informational methods

method is_root returns Bool { $! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1622	1715	
==>-----------------------------------
## informational methods

method is_root returns Bool { $! <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	796	904	
==>s" if $verbose;
    }
    return $guess;
}

=head1 NAME

Newton - performs one dimensional Newton's method

= <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	627	765	
==>for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	627	765	
==>for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PI <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14399	14516	
==>the value; C<kv> returns both as
a 2 element list in (key, value) order, C<pairs> a C<Pair(key, value)>.

Note that C< <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22151	22243	
==>pace = $space_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if ! <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	983	1086	
==>itle" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	983	1086	
==>itle" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14264	14364	
==>ken by raising an exception (C<die>), but the caller of scan()
would have to trap the exception itsel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14264	14364	
==>ken by raising an exception (C<die>), but the caller of scan()
would have to trap the exception itsel <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3374	3474	
==>_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4510	4610	
==>_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1807	1912	
==>nfix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1807	1912	
==>nfix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3018	3387	
==>=> $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3018	3387	
==>=> $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15438	15564	
==>> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15438	15564	
==>> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	599	701	
==>thod ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set wh <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	599	701	
==>thod ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a recurrence set wh <==
2	/Users/nnunley/pugs/util/grokprims.pl	1822	1926	
==>0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $example = "\$$a0 $name \$$a1";
  } els <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11964	12062	
==>"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td class="le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27841	27999	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28120	28278	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3127	3258	
==>ne
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3591	3722	
==>ne
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            print Dump( $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5654	5851	
==>lly remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5654	5851	
==>lly remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22957	23074	
==>tat},'
              . '  $Curtest->{wstat}, $Curtest->{max},'
              . '  $Curtest->{failed}, $Curtest->{perce <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2002	2098	
==>t suite through it, yielding a
#more complete version of t/rules/rules.t.  This could either be d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23620	23717	
==>st too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, thi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23620	23717	
==>st too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4188	4313	
==>ch = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4188	4313	
==>ch = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	935	1072	
==>eader (HTTP::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	935	1072	
==>eader (HTTP::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39921	40029	
==>www.fsf.org/>); either
version 2.1 of the License, or (at your option) any later version.  You
should have re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39921	40029	
==>www.fsf.org/>); either
version 2.1 of the License, or (at your option) any later version.  You
should have re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	460	579	
==>surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	460	579	
==>surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10351	10462	
==>ious( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10351	10462	
==>ious( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1041	1184	
==>y $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1041	1184	
==>y $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remote_host = %*ENV <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7483	7589	
==>Stack;
  my $temp2 = $$temp1{syncat};
  if ( $temp2 == PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @tokenStack <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1458	1560	
==>time-bound values for them.

It includes the parameters as well as anything declared within

that scope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1397	1497	
==>time-bound values for them.
It includes the parameters as well as anything declared within
that scope <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1352	1480	
==>>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1352	1480	
==>>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	228	317	
==>-----------------------------------------------------
## This is an extension of the Mini- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	196	285	
==>-----------------------------------------------------
## This is an extension of the Mini- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16566	16664	
==>Locale::KeyedText gives your application the maximum amount of control as
to what the user sees; it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16566	16664	
==>Locale::KeyedText gives your application the maximum amount of control as
to what the user sees; it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5156	5268	
==>(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5156	5268	
==>(@nicks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6525	6651	
==>RE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6525	6651	
==>RE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1164	1277	
==>ethod start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1164	1277	
==>ethod start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3060	3198	
==>((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2942	3072	
==>((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        mat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1643	1747	
==>s Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($inpu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1643	1747	
==>s Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($inpu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7182	7297	
==>ode->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7170	7285	
==>ode->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15932	16027	
==>ol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.or <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15990	16085	
==>ol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.or <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6532	6647	
==>= shift;
	bless {
		t => undef,
		(@_ == 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	102	205	
==>section
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
mu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	102	205	
==>section
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
mu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18682	18826	
==>c Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            when any(<E G F>) {
                $str ~= uc Pugs::Internals:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1812	1916	
==>return_value;
} 

sub _bind_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list' <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	61	155	
==>::Harness::Straps.
# Hacked up from mini_harness.plx in the Test::Harness dist.
# (And some stu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15624	15745	
==>0 + 1
    goto end
  err_close:
    parse_error(mob, pos, "Missing close '>' in scalar")
  end:
    mpos = pos
    .return <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	855	950	
==>nd 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<pl <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	855	950	
==>nd 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<pl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2840	2980	
==>$print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3304	3444	
==>$print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2426	2554	
==>or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2426	2554	
==>or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38724	38828	
==>>visual, "\n";
    print "REGEX:  ", $parser->qr, "\n";
  }

The output is:

  VISUAL: ^(?:.*foo&\D*(\d+) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36501	36742	
==>=> 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	414	515	
==>ue => $class;
}

sub to_native { shift }

# conversion to other native types
sub to_num { num->new((sh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13342	13437	
==>$allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13342	13437	
==>$allow_unterminated )

This will in-place replace HTML entities in $string.  The %entity_to_char <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22346	22439	
==>ns a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Par <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22346	22439	
==>ns a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Par <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1175	1306	
==>e () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1175	1306	
==>e () {
        my $code = .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4633	4741	
==>ost_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we ne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4633	4741	
==>ost_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1777	1918	
==>ug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1777	1918	
==>ug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $coo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15056	15160	
==>This stores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15056	15160	
==>This stores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1153	1331	
==>tinue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1153	1331	
==>tinue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16523	16629	
==>le EqualityExpressionNoIn :words {  # see 11.9
      <RelationalExpressionNoIn>
    | <EqualityExpressionNo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3838	3957	
==>right sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO- <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3838	3957	
==>right sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2027	2140	
==>va/Language-Prolog-Yaswi-0.08/
and
  Robert D. Cameron for his "Perl Style Regular Expressions in Prolog".
    htt <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2275	2369	
==>----------------------------
-- Do not modify this file; it is generated automatically by  --
- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	651	766	
==>r;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	651	766	
==>r;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.n <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7869	7970	
==>rot_path/runtime/parrot/include -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$parrot_path/ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3671	3774	
==>:Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3671	3774	
==>:Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3049	3160	
==>ode, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3049	3160	
==>ode, $ng.fork('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6384	6485	
==>from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6384	6485	
==>from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2113	2200	
==>ef_element => $() } }
RULE
*{'access_hash_element'} = Pugs::Compiler::Rule->compile(<<'R <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	25	152	
==>$b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4919	5027	
==>ve;
        # warn "with " . $right->fetch($i)->name->to_native . ' => ' . $right->fetch($i)->type->to_native <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33554	33651	
==>ny (C<.> with C</s> on), cany (C<\C>)

=head2 alnum

Family: alnum

Types: alnum (C<\w>), nalnum ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17664	17761	
==>ed in request messages and contains information
about the user agent originating the request.  I<E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17664	17761	
==>ed in request messages and contains information
about the user agent originating the request.  I<E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16444	16548	
==>w languages easily and without a recompile (such as by simply
copying files), often even while the progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16444	16548	
==>w languages easily and without a recompile (such as by simply
copying files), often even while the progra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22825	22958	
==>leop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alterna <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23104	23237	
==>leop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alterna <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3051	3148	
==>'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3051	3148	
==>'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1094	1215	
==>code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1094	1215	
==>code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5873	5967	
==>actually enciphers the data.  They may choose, however, to override 
any method for speed--alth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5873	5967	
==>actually enciphers the data.  They may choose, however, to override 
any method for speed--alth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4260	4402	
==>{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4130	4269	
==>{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22927	23123	
==>', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23206	23402	
==>', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19682	19777	
==>n::OnPerl5::X1::CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	349	481	
==>) = @_;
#    
#
#    $space = "" if $space =~ /\n/;
#    print "[$segil][$name][$space]\n";
#    # var
#    if (length $segil != 0) { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17663	17750	
==>Fx,F1,Bx,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) : <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	238	335	
==>=@_;
    push(@$list,[$name,$rep,$type,@pairs]);
}
sub node_s { hlp('string',@_); }
sub node_a { h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11468	11576	
==>t
interact with the outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11468	11576	
==>t
interact with the outside environment at all.

A Document object has 2 main attributes:

=over

=item C<@!a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7270	7394	
==>loaded template module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7270	7394	
==>loaded template module; on a function call
        # death, assume module is damaged and say so; an undefined
        # ret v <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5414	5527	
==>le
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

method r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5414	5527	
==>le
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

method r <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1037	1136	
==>nfig{installsiteman1dir} || $Config{installman1dir},
        installsiteman3dir => $Config{installsi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4271	4445	
==>@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4735	4909	
==>@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @f <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	848	942	
==>bject and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	848	942	
==>bject and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	258	388	
==>ader => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	258	388	
==>ader => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5860	5966	
==>Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1137	1235	
==>shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1137	1235	
==>shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4192	4388	
==>er_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4192	4388	
==>er_names;
        # Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1174	1273	
==>Y

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter fre <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1174	1273	
==>Y

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter fre <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1115	1215	
==>dled with this library by I<Philip Hazel>,
under a BSD-style license.  See the F<LICENCE> file for de <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11873	11975	
==>Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re n <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11873	11975	
==>Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3213	3313	
==>r && -f catfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could not locate (syn/S12.pod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13474	13574	
==>r test which must be
made to pass before this test can pass (or before an implementation
could be sta <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13532	13632	
==>r test which must be
made to pass before this test can pass (or before an implementation
could be sta <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1131	1235	
==>om an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Laz <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1131	1235	
==>om an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Laz <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21902	22002	
==>es, though such a Relation can have no
more than a single tuple.  A zero-attribute Relation with zero <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26454	26554	
==>es, though such a Relation can have no
more than a single tuple.  A zero-attribute Relation with zero <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3446	3564	
==>ute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3446	3564	
==>ute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2054	2177	
==>d content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2054	2177	
==>d content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1038	1167	
==>ted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1038	1167	
==>ted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24198	24357	
==>1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24477	24636	
==>1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	146	286	
==>w {
        my $class = shift;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14420	14523	
==>_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8623	8726	
==>_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $neg, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21773	21886	
==>confused by it, so I figured it was a sign that I'd chosen an awful name
for the field.  There will still be a cla <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1401	1504	
==>s HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Config{_exe}", 'configure <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21193	21282	
==>t the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21193	21282	
==>t the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2920	3021	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	951	1052	
==>S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exac <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9831	9941	
==>ipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finis <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9831	9941	
==>ipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finis <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1625	1730	
==>> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1625	1730	
==>> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2146	2254	
==>hdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2124	2232	
==>hdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	694	824	
==>e);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->runtime(shift <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1545	1637	
==>$() } }
RULE
*{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<nam <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1651	1771	
==>p_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $ye <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1651	1771	
==>p_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $ye <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6296	6397	
==>:Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Nu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6296	6397	
==>:Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Nu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22155	22281	
==>gebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and each attribute is a column, but a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26707	26833	
==>gebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and each attribute is a column, but a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13713	13862	
==>ult.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15238	15387	
==>ult.
        return Relation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13252	13368	
==>use  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Please create a $initrd <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2152	2264	
==>native . ") does not exist";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12133	12260	
==>_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12133	12260	
==>_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'M <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	123	229	
==>eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC:: <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	123	229	
==>eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14059	14174	
==>SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17536	17651	
==>SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	973	1071	
==>->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	973	1071	
==>->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	600	746	
==>$" . $() ,} }
        ' )->code;

BEGIN {
    __PACKAGE__->add_rule( '$' => '
                <Pugs::Grammar::Var.ident>
                { re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7403	7666	
==>en{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    metho <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7403	7666	
==>en{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    metho <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	293	416	
==>use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $pkg = $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13500	13608	
==>=item exists
 
 multi method Hash::exists ($key --> Bool )

True if invocant has an element whose key matches <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9073	9169	
==>ead1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9073	9169	
==>ead1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19435	19545	
==>for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19435	19545	
==>for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines within <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9954	10065	
==>dler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9954	10065	
==>dler{$code}.push($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconne <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1235	1330	
==>t to other uses as well.

Log::Selective exports a single function, C<note>, which is called wit <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1235	1330	
==>t to other uses as well.

Log::Selective exports a single function, C<note>, which is called wit <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	988	1083	
==>(?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $vo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	988	1083	
==>(?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $vo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2832	2949	
==>atement( $n )
        if ref $n->{op1} && exists $n->{op1}{stmt};

    return default( $n );
}

sub assoc_list { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1622	1819	
==>ol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1622	1819	
==>ol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	576	701	
==>t Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	576	701	
==>t Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ wh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8338	8443	
==>$ref) {
	$s = $x->unparse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	831	928	
==>uire $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	831	928	
==>uire $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1406	1513	
==>}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3321	3443	
==>%out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3321	3443	
==>%out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	459	562	
==>s = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	459	562	
==>s = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5289	5433	
==>rn {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5482	5626	
==>rn {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7243	7349	
==>tracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order operators: alter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6997	7099	
==>tracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order operators: alter <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	67	188	
==>ms::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

us <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	65	186	
==>ms::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

us <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1723	1937	
==>unless $c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub {
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2403	2502	
==>$name) == $bit::FALSE)
        || confess "Attribute (" . $name->to_str->to_native . ") already exis <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4304	4411	
==>s_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::Fals <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4304	4411	
==>s_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::Fals <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9347	9487	
==>ring";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9347	9487	
==>ring";
        }
        when any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8553	8659	
==>that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where this me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8553	8659	
==>that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# This is where this me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12234	12342	
==>, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12234	12342	
==>, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6464	6595	
==>sion info from $file\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5417	5529	
==>eq '...';
    return "    $op;\n";
}
sub node::condition {
    my $op = get_str($_[0],'$<op>');
    my $condition <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1808	1959	
==>{";

    while ( defined(my $chr = shift @file) ) {
	++$col;
	
	if ( $chr =~ /([\'\"])/ ) {
	    my $end = $1;
	    print '\synstr{';
	    while (scalar <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	206	302	
==>serv = "http://m19s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&usage,
  "compr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9299	9415	
==>l $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9299	9415	
==>l $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18733	18829	
==>ialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18733	18829	
==>ialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1686	1840	
==>= 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4864	5017	
==>time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4864	5017	
==>time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3248	3398	
==>_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is z <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3248	3398	
==>_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is z <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17745	17840	
==>ke/execute Rosetta D statements and routines
within the virtual machine, input data to it, and o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17745	17840	
==>ke/execute Rosetta D statements and routines
within the virtual machine, input data to it, and o <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8385	8479	
==>t ('line_interpolation')>

This event is begun when any block of characters is interpolated for <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8385	8479	
==>t ('line_interpolation')>

This event is begun when any block of characters is interpolated for <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	321	420	
==>d exists ($index ) returns Object;
multi method exists (*@index ) returns List of Bool;

multi sub k <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7986	8123	
==>%mods<i> || %mods<ignorecase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoid haskell handling it.
            %m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3412	3541	
==>ernatives_file available_file]) {
                    system( qw[touch], $obj->$meth )    and error($?), return;
                } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3064	3210	
==>) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3204	3350	
==>) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12055	12147	
==>and returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12055	12147	
==>and returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_nod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3109	3235	
==>pm"};
}

sub preload {
    my ($self) = @_;

    unless ( $self->{extensions} ) {
        $self->load_extensions(
            " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1829	1952	
==>r}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    loca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1969	2092	
==>r}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    loca <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15464	15635	
==>'skip' : 0;
        }
        else {
            $test->{type} = '';
        }

        return $YES;
    }
    else{
        # Sometimes the "not " and "ok" will be on sepa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6979	7193	
==>ns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->store(
                      $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10008	10207	
==>ns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  -> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10368	10469	
==>ed encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10368	10469	
==>ed encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	266	403	
==>rnation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	768	888	
==>compile {
    my $self = shift;

    $self->runtime(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4163	4284	
==>/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4163	4284	
==>/       -> xx
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6613	6727	
==>ontext ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$ou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6671	6785	
==>ontext ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$ou <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2873	2994	
==>ondie::Compiler - the base compiler for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Compiler;

    my $c = Blondie::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24937	25070	
==>($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4339	4493	
==>,
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4339	4493	
==>,
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1771	1865	
==>s Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1771	1865	
==>s Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7010	7112	
==>Pure;
use Data::Dumper;


# The unification of the various types depends on their data...
# this is why <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1220	1321	
==>le repetition  { <simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\.]>+}(\??) | <[\?\*\+]>(\? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6608	6717	
==>($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6608	6717	
==>($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $e <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3471	3602	
==>cense}           ||= 'unknown';
    $values{distribution_type} ||= 'module';
    $values{name}              ||= do {
        my $nam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	808	916	
==>can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar us <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	808	916	
==>can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustus Caesar us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11120	11231	
==>s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11120	11231	
==>s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen, so we <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6088	6215	
==>\$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6088	6215	
==>\$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1858	1982	
==>alue is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1858	1982	
==>alue is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.u <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21872	21977	
==>Relation to have zero attributes, though such a Relation can have no
more than a single tuple.  A zero-att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26424	26529	
==>Relation to have zero attributes, though such a Relation can have no
more than a single tuple.  A zero-att <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1583	1714	
==>capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1594	1725	
==>capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	523	671	
==>rint "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	516	664	
==>rint "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14323	14458	
==>s and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14323	14458	
==>s and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $se <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3942	4067	
==>Mid {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39671	39767	
==><http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39671	39767	
==><http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3933	4054	
==>t that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3933	4054	
==>t that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    l <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2024	2119	
==>n
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2024	2119	
==>n
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1087	1215	
==>apture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1043	1165	
==>apture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10257	10371	
==>w( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

T <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10257	10371	
==>w( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1358	1534	
==>e Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Ser <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1358	1534	
==>e Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Ser <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9342	9473	
==>_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9342	9473	
==>_subset   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7510	7721	
==>\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (Any, Int)\
\\n   List      non     ..      safe   (Scalar, Scalar)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1456	1649	
==>':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1456	1649	
==>':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3436	3549	
==>le(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      } <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3436	3549	
==>le(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4644	4795	
==>post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scalar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     ga <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	882	984	
==>. (shift)->to_native) }
sub to_num { (shift)->keys->length             }
sub to_bit { (shift)->keys->le <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4453	4581	
==>=> $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4453	4581	
==>=> $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4216	4368	
==>ES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] --> @v[0];

    $v{0} --> %v{0};

    $#v   --> @v.last_index;

    $r = \@v --> $r = @v;
    $r = \%v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	460	576	
==>lanned != $ran) {
	    print STDERR
		"# Looks like you planned $planned tests but ran $ran.\n";
	} elsif ($noplan) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4395	4604	
==>unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4262	4464	
==>unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                ca <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	542	642	
==>t { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	542	642	
==>t { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1553	1660	
==>apture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1693	1800	
==>apture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4091	4243	
==>ft;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return $self->{values}->{features}
    	? <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6312	6451	
==>sh @pkgs, -package => 'unix';
    }
    push @pkgs, -package => 'readline' if grep /^-DPUGS_HAVE_READLINE$/, @_;
    push @pkgs, -package => <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	649	745	
==>{
    use Set;
    has Set $.subscriptions handles :add_subscription<insert> :remove_subscription <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	698	823	
==>~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);
      --&RxPOS;

      $S->warn(RPe_B <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	223	348	
==>b my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_N <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	223	348	
==>b my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_N <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1001	1122	
==>ile take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2131	2230	
==>ay also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2131	2230	
==>ay also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17627	17738	
==>nal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17627	17738	
==>nal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= S <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3169	3280	
==>eturns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3169	3280	
==>eturns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2155	2268	
==>ive . ") does not exist";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($self, $n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4523	4610	
==>,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) -- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	331	472	
==>er than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879- <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	331	472	
==>er than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	299	411	
==>an.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	299	411	
==>an.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infini <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1897	2042	
==>est(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.number'      => $self->get_test_number(),
                    '$ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22730	22825	
==>ation::Example operators are somewhat of
a superset of the Set operators.

Like the Set data typ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20800	20998	
==>'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21079	21277	
==>'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	13	120	
==>elective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$a <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	13	120	
==>elective-0.01-BRENTDAX;

my $active;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	747	853	
==>ssages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has add <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	747	853	
==>ssages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has add <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1857	2104	
==>turn;
                            };   

use constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10947	11068	
==>)
    pos = mfrom 
    lastpos = length target
    $S0 = substr target, pos, 2
    if $S0 == "<?" goto nocapture
    if $S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22294	22390	
==>ve the same method names as you or each other, or having multiple search
directories in your path <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22294	22390	
==>ve the same method names as you or each other, or having multiple search
directories in your path <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2946	3060	
==>ray::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @values);
    @array.elem <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4703	4815	
==>ray::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @values);
   @array.elem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2537	2648	
==>$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2537	2648	
==>$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method hea <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	174	262	
==>y $setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}");
my @args = grep <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2606	2738	
==>p { $_ => $acc->{$_}->{allow} } keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj->co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9929	10020	
==>perator::arrow->new(
				type::operator::nary->new(list => $a),
				type::operator::nary->ne <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5485	5580	
==>m/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5485	5580	
==>m/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 2097152) { $de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16000	16106	
==>ent itself.

=item $h.last_modified

This header indicates the date and time at which the resource was last <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16000	16106	
==>ent itself.

=item $h.last_modified

This header indicates the date and time at which the resource was last <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15858	15952	
==>de constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15858	15952	
==>de constructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attrib <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10423	10513	
==>',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"unde <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11158	11248	
==>',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"unde <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	128	260	
==>ILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($gl <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	128	260	
==>ILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($gl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1910	2107	
==>ment>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1910	2107	
==>ment>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8492	8589	
==>to explicitly build it:

  $parser->parse;

This is not necessary, though, because the following m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9171	9327	
==>=>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9171	9327	
==>=>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7727	7839	
==>key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7727	7839	
==>key, so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_te <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4101	4204	
==>span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersectio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4101	4204	
==>span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersectio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2006	2104	
==>_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2006	2104	
==>_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5584	5676	
==>le by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5584	5676	
==>le by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7806	7917	
==>> $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _no <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7806	7917	
==>> $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1631	1758	
==>ally "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1631	1758	
==>ally "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "un <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1912	2016	
==>ng this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1912	2016	
==>ng this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.stringify~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2541	2684	
==>= ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HT <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2541	2684	
==>= ./parse_headers or do { ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3619	3736	
==>:Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3619	3736	
==>:Model::Document
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Ros <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14105	14209	
==>sion>
}
rule LeftHandSideExpression :words {  # see 11.2
      <NewExpression>
    | <CallExpression>
}
r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2099	2211	
==>sity => $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2099	2211	
==>sity => $.density );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17680	17801	
==>printable($node) : "undef";
    }
}


package Digest;

sub compute {
    my $class = shift;
    my $thunk = shift;

    us <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	506	609	
==>0]} }

# keep this here for a consistent interface
sub to_num { shift }

# conversion to other native ty <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10579	10689	
==>nted: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10737	10847	
==>nted: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3118	3215	
==>rn $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.gre <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3118	3215	
==>rn $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.gre <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	474	587	
==>piler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	474	587	
==>piler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    has $.match;
}


role Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	804	939	
==>> 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	804	939	
==>> 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy A <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	625	752	
==>l_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:D <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	625	752	
==>l_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:D <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	316	429	
==>h @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	316	429	
==>h @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5554	5650	
==>() { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5554	5650	
==>() { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13729	13832	
==>_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7936	8039	
==>_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	248	523	
==>is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	248	523	
==>is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25243	25332	
==>as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25243	25332	
==>as defined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1943	2086	
==>) }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1921	2064	
==>) }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5023	5125	
==>path($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5023	5125	
==>path($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2021	2124	
==>er ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2021	2124	
==>er ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_header (Str *@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10161	10272	
==>rule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] sub{ $name <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36625	36721	
==>ion is identical to the
invocant.  Another trivial case is where any any source relation has zero <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41174	41270	
==>ion is identical to the
invocant.  Another trivial case is where any any source relation has zero <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8747	8858	
==>in (Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	220	329	
==>in (Str $delimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimi <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1702	1800	
==>rom there; that will create the
'nmake.exe' file needed by this module.

You may then resume the in <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1542	1640	
==>rom there; that will create the
'nmake.exe' file needed by this module.

You may then resume the in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11110	11254	
==>s {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    ret <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7992	8114	
==>ile::Spec->canonpath(substr($_, 2)),
            grep /^-I/, @_;
    my @lib_dirs = grep { -d $_ }
            map File::Sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8956	9058	
==>root of the tree with the root() method:

  my $root = $parser->root;

It will be an array reference of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25051	25156	
==>yed by your program.  The Message class is pure and deterministic,
such that all of its class and object m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25051	25156	
==>yed by your program.  The Message class is pure and deterministic,
such that all of its class and object m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9119	9225	
==>m"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = length tar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17345	17456	
==>= $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = "\n.namespace [ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37000	37099	
==>essage );

=back

The Translator class also has these utility methods, which are all used by
transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37000	37099	
==>essage );

=back

The Translator class also has these utility methods, which are all used by
transla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5091	5202	
==>ct(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  $self->add_handler('\T <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16242	16336	
==>can <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16300	16394	
==>can <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <corion@cpan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1372	1497	
==>s Relation is mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4850	4974	
==>s Relation is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5429	5530	
==>m%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(12 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5429	5530	
==>m%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(12 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3369	3492	
==>ut $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3369	3492	
==>ut $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	333	436	
==><-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $mat <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	333	436	
==><-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28835	29046	
==>term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29114	29325	
==>term1'} )
                 ,
                   ruleop::capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/util/combine_tests.pl	530	637	
==>ber of the more_events[].
#
# more_revisions[] is added with revision number of the older versions.
#
sub co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	367	480	
==>ile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	367	480	
==>ile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2626	2721	
==>ods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2626	2721	
==>ods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'nam <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	521	645	
==>size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	521	645	
==>size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15411	15502	
==>:Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15411	15502	
==>:Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13607	13710	
==>). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13607	13710	
==>). So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10	128	
==>class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10	128	
==>class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23752	23847	
==>used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alt <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23752	23847	
==>used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than alt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1700	1809	
==>ial case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1700	1809	
==>ial case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6080	6184	
==>ure_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5887	5987	
==>ure_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5277	5397	
==>identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argument can
be either a simple st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5277	5397	
==>identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argument can
be either a simple st <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1611	1751	
==>s to rules, so this
file may or may not go anywhere.  The plan as of this moment is to
continue cleaning and adding p6, tuck it into the pugs <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	613	740	
==>ol
       p6_as_num
       p6_as_str
       p6_as_array
       p6_as_hash
       p6_as_perl5_whatever
       p6_perl6_objects_fr <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7590	7765	
==>+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Ca <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7647	7822	
==>+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Ca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9261	9377	
==>XX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10738	10854	
==>XX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $satisfied <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34388	34596	
==>ispatcher')->do());             
                block->new($e, sub {
                    $e->get('$next')
                      ->id
                      ->equal_to(
                          $e->get('$class <==
2	/Users/nnunley/pugs/util/grokprims.pl	440	553	
==>$name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$1/g;

  $args =~ m/\((.*)\)/ or die "Bad args spec";
  $arg <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7295	7406	
==>prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_prefix_and_cleanup {
    m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6633	6726	
==>version of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= A <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6633	6726	
==>version of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= A <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	415	525	
==>le to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	415	525	
==>le to getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	230	353	
==>line>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        sa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	230	353	
==>line>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        sa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	887	991	
==>ar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	887	991	
==>ar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4667	4791	
==>rsection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4667	4791	
==>rsection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	200	310	
==>';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	406	516	
==>';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->im <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11346	11442	
==>m this recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns only t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11346	11442	
==>m this recurrence and from the given recurrence.

- `intersection( $recurrence )`

Returns only t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13804	13921	
==>rs:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13804	13921	
==>rs:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	903	1006	
==>!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for print <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	903	1006	
==>!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1700	1870	
==>with &name
    
    #__PACKAGE__->add_rule( 
    #    name => '&',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'infix:<|>',
    #);

    __ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2140	2295	
==>$');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0..$#s){
#          print "$i >> " <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1164	1391	
==>>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<Scalar>).add_chil <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16778	16887	
==>C<analyze()> contain the following
information:

  passing           true if the whole test is considered a pa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4	105	
==>le HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXP <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4	105	
==>le HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXP <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7916	8053	
==>t Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7916	8053	
==>t Type" if $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	874	1025	
==>$escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escapi <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	874	1025	
==>$escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escapi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2657	2820	
==>op::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2668	2831	
==>op::constant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2215	2360	
==>>[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2144	2285	
==>>[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	88	186	
==>de character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	88	186	
==>de character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5918	6168	
==>domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5918	6168	
==>domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5546	5655	
==>]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE doesnt do <-<metacharacter>> yet.
rule s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	698	824	
==>any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	698	824	
==>any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remo <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1877	1980	
==>h => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1877	1980	
==>h => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5261	5517	
==>"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5261	5517	
==>"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1991	2095	
==>nless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless subst <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1991	2095	
==>nless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless subst <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15093	15258	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15372	15537	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19342	19454	
==>sed by the
program, so that if you wanted to upgrade or localize what text the user
sees, you only have to update <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19342	19454	
==>sed by the
program, so that if you wanted to upgrade or localize what text the user
sees, you only have to update <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7235	7399	
==>>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUER <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7235	7399	
==>>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUER <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6177	6265	
==>s+{([^}]*)}(?{ &::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s*rule\s+(\w+)\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8571	8685	
==>::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8559	8673	
==>::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12432	12538	
==>ined).  The new Document object's All Nodes
attribute starts out empty, but gains one element for each Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12432	12538	
==>ined).  The new Document object's All Nodes
attribute starts out empty, but gains one element for each Node <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	385	556	
==>str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	385	556	
==>str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1272	1370	
==>v/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1272	1370	
==>v/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5144	5252	
==>name,$r);
  my $r2 = compile("<$name>") || die;
  my $aref = \@statements;
  push(@$aref,$r2);
  $r;
}

my @o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23070	23166	
==>g REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROP <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19009	19122	
==>l (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19009	19122	
==>l (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26956	27113	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27235	27392	
==>al(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10807	10921	
==>set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10807	10921	
==>set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7646	7769	
==>race', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39505	39599	
==>cts must be created during
the first pass.  To accomplish this, use force_object(), which creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24597	24712	
==>ember to follow this model correctly.

=item next

An array reference of what handles (or "rules") to try to match n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7143	7250	
==>de {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7155	7262	
==>de {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$ <==
2	/Users/nnunley/pugs/util/package-osx.pl	10026	10140	
==>print "Copied $from to $dest$from\n";
        }
    }
}


# @files are all files that will be removed. The last one <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	54	141	
==>erl5/site_perl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspend h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4282	4392	
==>riable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
representative for this wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4282	4392	
==>riable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
representative for this wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8468	8564	
==>els he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8468	8564	
==>els he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq nor <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22845	22928	
==>ass_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0,C,T). <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7044	7147	
==>does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7044	7147	
==>does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the protocol.

=i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	409	506	
==>c.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: tex <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	409	506	
==>c.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: tex <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4915	5037	
==>uitable for one-liners.  If
you need more control or access to the header fields in the requests
sent and responses receive <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4915	5037	
==>uitable for one-liners.  If
you need more control or access to the header fields in the requests
sent and responses receive <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	373	479	
==>hat are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extend <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	373	479	
==>hat are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar extend <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	311	471	
==>rt {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	311	471	
==>rt {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2529	2641	
==>f C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 B <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2529	2641	
==>f C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9254	9363	
==>lete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9254	9363	
==>lete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_enti <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1171	1300	
==>east the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	731	860	
==>east the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7259	7371	
==>$start += $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   != <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7259	7371	
==>$start += $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   != <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	756	872	
==>art <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	756	872	
==>art <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21244	21371	
==>lso, if the flag handler returns 0,
that flag is removed from the resulting object's visual flag set.  That
means C<(?gi-o)> bec <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	1032	1163	
==>n|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($sr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8739	8837	
==>::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8739	8837	
==>::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37668	37765	
==>is method takes the name of a Perl package in its positional parameter
$module_name (a string), an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37668	37765	
==>is method takes the name of a Perl package in its positional parameter
$module_name (a string), an <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	303	444	
==>te   or die "Creation failed";

for my $jib ( values %PKGS ) {
    $REPO->add_file( file => $jib->file ) or die "Could not add $jib";
}    

1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1481	1670	
==>ther {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently resu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1481	1670	
==>ther {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently resu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	477	584	
==>rization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	477	584	
==>rization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD ( <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	444	562	
==>f = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28577	28675	
==>nder is a C<tail> node, and a
character class's ender is an C<anyof_close> node.

=item my $c = $ob <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3668	3766	
==>time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3668	3766	
==>time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	813	952	
==>a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array) <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	813	952	
==>a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10355	10448	
==>ecurrence set.

The complementary functions are emulated using iterations.

See also the secti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10355	10448	
==>ecurrence set.

The complementary functions are emulated using iterations.

See also the secti <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	675	796	
==>1.
multi  List::reduce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1681	1794	
==>se?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1681	1794	
==>se?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4244	4355	
==>e.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4244	4355	
==>e.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my $spa <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	258	367	
==>nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	209	309	
==>nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	81	178	
==>accessors should be in here
has Method %.dispatch;

# private accessors, methods, etc
has Method % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13100	13219	
==>or use with sprintf().

  # for when you have a zero-width chunk
  # with a boundless quantifier on it
  my ($num, $fmt) <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1375	1488	
==>atenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17334	17477	
==>,
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub stri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17334	17477	
==>,
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub stri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6036	6158	
==>,
    );
    $class->SUPER::recompile;

    # operator-precedence
    my $g = $operator->emit_yapp;
    #print $g;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1428	1547	
==>_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1428	1547	
==>_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2223	2321	
==>cifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <spa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2312	2410	
==>cifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <spa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17729	17820	
==>pare and/or invoke/execute Rosetta D statements and routines
within the virtual machine, inp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17729	17820	
==>pare and/or invoke/execute Rosetta D statements and routines
within the virtual machine, inp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1386	1486	
==>ata,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1386	1486	
==>ata,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	902	1060	
==>e methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	902	1060	
==>e methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16714	16824	
==>t
rather returns its results for calling code to output as it sees fit.  It
also does not make direct use of en <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16714	16824	
==>t
rather returns its results for calling code to output as it sees fit.  It
also does not make direct use of en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4375	4507	
==>infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4375	4507	
==>infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	480	601	
==>tive types
sub to_num { num->new((shift)->fetch + 0)  }
sub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5829	5935	
==>ed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native type";
    my $curr <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1345	1476	
==>ULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unesca <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1345	1476	
==>ULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unesca <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3986	4087	
==>$node, $symbol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $body) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10519	10636	
==>:str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10677	10794	
==>:str( $_[0] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2638	2748	
==>the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Crea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2638	2748	
==>the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Crea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7149	7323	
==>,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub cal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6910	7075	
==>,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub cal <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	713	849	
==>:Installation object from '$dir'" );
        push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4783	4903	
==>$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    my($self,$fname)=@_;
    ($self->{'field_type'}{$fname} =~ /^(\w+)/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4513	4611	
==>mple: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4513	4611	
==>mple: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5950	6052	
==>S'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5950	6052	
==>S'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4241	4350	
==>nite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4241	4350	
==>nite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18790	18911	
==>t_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18790	18911	
==>t_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        docu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2499	2602	
==>e ciphering and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2499	2602	
==>e ciphering and clear the cipher's state.  
Remember that ciphering steps may not return all (or any) of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32780	32874	
==>d deterministic because it
invokes user-defined external files for reading, mainly in the
C<tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32780	32874	
==>d deterministic because it
invokes user-defined external files for reading, mainly in the
C<tra <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3521	3620	
==>top of the object-oriented backend.

To use the Cipher API, you must first create an object of the a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3521	3620	
==>top of the object-oriented backend.

To use the Cipher API, you must first create an object of the a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18153	18250	
==>nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18153	18250	
==>nickname is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	904	1007	
==>= $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	915	1018	
==>= $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	206	306	
==>Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_range() <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	206	306	
==>Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_range() <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19901	20009	
==>lized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19901	20009	
==>lized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1601	1732	
==>::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1601	1732	
==>::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6037	6168	
==>fix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6037	6168	
==>fix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5444	5557	
==>, -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5444	5557	
==>, -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $ev <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1885	2045	
==>th = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_elem <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1885	2045	
==>th = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %events);
                        %events<end_elem <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26296	26395	
==>value can be anything at
all.  Note that while the Hash itself is copied on input and output, any
va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26296	26395	
==>value can be anything at
all.  Note that while the Hash itself is copied on input and output, any
va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2540	2666	
==>upplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - see "Modifying the compiler" bel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2445	2568	
==>upplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - see "Modifying the compiler" bel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15	115	
==>re URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15	115	
==>re URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use MIME::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15258	15372	
==>ected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  mu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15316	15430	
==>ected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  mu <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1527	1741	
==>{
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1527	1741	
==>{
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5842	5954	
==>ist->new(),
            attribute->new('@:subclasses')      => list->new(),
            attribute->new('@:supercl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36364	36476	
==>te_message() to produce the list of Template module
names that it will search.

=item C<translate_message( $messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36364	36476	
==>te_message() to produce the list of Template module
names that it will search.

=item C<translate_message( $messa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9488	9597	
==>epeated, and which are printed in a particular order.  The
field names are cases insensitive.

Instances of th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9488	9597	
==>epeated, and which are printed in a particular order.  The
field names are cases insensitive.

Instances of th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7218	7372	
==>new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7218	7372	
==>new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21740	21871	
==>} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18161	18292	
==>} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	22	133	
==>um-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	22	133	
==>um-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5665	5814	
==>= $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9976	10125	
==>= $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1748	1844	
==>is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1748	1844	
==>is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5736	5879	
==>eys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6585	6728	
==>eys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28144	28296	
==>$::Class->send('add_method' => (
    # method label
        symbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24814	24918	
==>e parser
object's most important attributes:

  # access to the regex
    # reference to the regex string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	900	1017	
==>cmpthese(500, {
        P6_Rule    => sub{ $match = $rpc_rule->match($str)    for 1..40},
        P6_Token   => sub{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1937	2055	
==>p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run::OnPerl5::X1::Repl::run_repl();
}
exit(0);

__EN <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9286	9382	
==>ro", "of=$initrd_img", "bs=1K", "count=$initrd_size" },
    help   => "We're now creating a zeroe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5432	5536	
==>ndler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5432	5536	
==>ndler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2520	2625	
==>name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2520	2625	
==>name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7299	7420	
==>n)/) {
        $depends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = ', uni <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11578	11688	
==>c_reduce {
    my $self = shift;
    my $node = shift;
    
    Scalar::Util::blessed($node) && $node->can("fma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1630	1764	
==>flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1574	1705	
==>flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,sta <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2203	2307	
==>ther) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2203	2307	
==>ther) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4794	4904	
==>d2 0+

When used as a number, the match object returns the numified version
of the result object (usually the e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4794	4904	
==>d2 0+

When used as a number, the match object returns the numified version
of the result object (usually the e <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	878	975	
==>tml test catalog and synopses with hyperlinks to corresponding tests

  Options:
    --p6design_di <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	713	825	
==>pace}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1895	1992	
==>prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return $args{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1	93	
==>package Perl6::Core::Closure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1	93	
==>package Perl6::Core::Closure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12518	12638	
==>x eq '') { 'plus' }
    else { 'curly' }
  }

  sub raw {
    my $self = shift;
    my ($min, $max) = ($self->min, $self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3133	3262	
==>nd @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3133	3262	
==>nd @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2683	2845	
==>string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2683	2845	
==>string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	861	968	
==>kages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	861	968	
==>kages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15481	15583	
==>er represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15481	15583	
==>er represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9121	9207	
==>oreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9225	9308	
==>oreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4600	4709	
==>rameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4600	4709	
==>rameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	861	962	
==>=cut

use strict;
use warnings;
#use Smart::Comments; #for debugging, look also at Filtered-Commen <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19843	19940	
==>0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2747	2853	
==>type == 1;
	$type;
}

sub has_symbol {
	my $self = shift;
	my $node = shift;

	exists $self->{names}{$node- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7881	8015	
==>ing instance method fails';

## does Foo get Object's singleton methods ..

is($Foo->another_singleton_test_on_object(), 
   '&Object:: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10829	10923	
==>current value of C<@INC> and turns it into something suitable
for putting onto C<PERL5LIB>.

=c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2440	2566	
==>P_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2440	2566	
==>P_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_ARY_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1938	2083	
==>}
    else {
        local $@;
        eval __PACKAGE__->pmc_compile($code);
        die $@ if $@;
        exit 0;
    }
}

1;

__END__

=head1 NA <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6499	6593	
==>nalyze_file>

  my %results = $strap->analyze_file($test_file);

Like C<analyze>, but it runs t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2722	2839	
==>IL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2722	2839	
==>IL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8975	9090	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9168	9283	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24169	24280	
==>ror if the flag isn't supported
  }

  for (map "FLAG_$_", split //, $off) {
    if (my $h = $S->can("FLAG_$_")) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1881	1980	
==>functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalen <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1881	1980	
==>functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3123	3260	
==>odule
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3123	3260	
==>odule
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1125	1220	
==>ule lets you write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s AP <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1125	1220	
==>ule lets you write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s AP <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19358	19473	
==>xp0

    $I1 = pad["subpats"]
    pad["subpats"] = $I0
    pad["reps"] = savereps
    exp1 = self[1]
    exp1 = exp1 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5537	5637	
==>return get_meta('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4195	4317	
==>Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4049	4168	
==>Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3009	3117	
==>ious, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3009	3117	
==>ious, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1260	1370	
==>( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1260	1370	
==>( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6514	6620	
==>}

sub reduce_seq {
	my $self = shift;
	my $node = $self->generic_reduce(shift);

	my $seq = $node->struct_ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3459	3561	
==>:= &Duration::Gregorian::duration;
#}

# operations with Duration::Gregorian constructors..
#multi meth <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1195	1292	
==>if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6789	6915	
==>or chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9484	9692	
==>pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $f->($fagain) }LET;
        r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10475	10655	
==>pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $v = LET($X::pos){ $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	236	340	
==>ammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to be written like me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	227	330	
==>ammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to be written like me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	333	460	
==>params) = @_;
            _('$.output'       => $params{'$.output'}       || \*STDOUT);
            _('$.error_output' => $param <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17649	17778	
==>ents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17649	17778	
==>ents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4017	4125	
==>tr $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4017	4125	
==>tr $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1574	1855	
==>->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exist]);
                                    r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2342	2495	
==>)
                    : $config->repo_pool
        ));
        $obj->config($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	202	312	
==>Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	202	312	
==>Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6090	6240	
==>"" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      giv <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6090	6240	
==>"" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      giv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1414	1509	
==>r::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1414	1509	
==>r::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxx <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	530	628	
==>ingmuch's first article that he read from cover
# to cover with no hand holding, and actually under <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30715	30820	
==>ach Template module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30715	30820	
==>ach Template module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes u <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	410	524	
==>se perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pump <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	410	524	
==>se perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4869	5049	
==>ent:  exp { return(\$_[0]->{out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "ex <==
2	/Users/nnunley/pugs/util/package-osx.pl	9438	9551	
==>my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        print `rm -rf $dir/.svn` <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22690	22787	
==>all possibly useful details, so
that each Template can optionally use them; but often a template w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22690	22787	
==>all possibly useful details, so
that each Template can optionally use them; but often a template w <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10785	10881	
==>}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10785	10881	
==>}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1490	1750	
==>{
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1490	1750	
==>{
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1624	1738	
==>::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1764	1878	
==>::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    els <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2002	2103	
==>1;
  }
}

sub setup_compression {
  eval { require Compress::Bzip2; debug "Bzip2 compression on\n" } a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10703	10801	
==>lled.

=head2 Viewing the Regex

You can get the regex back from the parser with the visual() metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11392	11613	
==>esult' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11392	11613	
==>esult' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'na <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	762	868	
==>re", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tag <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	762	868	
==>re", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tag <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1164	1292	
==>odifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text han <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1164	1292	
==>odifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text han <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	918	1029	
==>urn -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array[0..@array.e <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	918	1029	
==>urn -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @array[0..@array.e <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3003	3111	
==>n><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => ' <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3003	3111	
==>n><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => ' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1432	1530	
==>ut($$) = { $.instance }
type::operator::nullary: layout($$) = { $.name }

type::operator::nary: lay <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1214	1329	
==>rguments had any hope of working soon,
#     I would have said <!lookahead x>.
#   * "[no LineTerminator here]" is e <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	372	470	
==>. doesnt add much clarity, given the cruft
of wrapping a map and join around the macro string.  But <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	595	712	
==>ule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	595	712	
==>ule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	437	538	
==>ADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	437	538	
==>ADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns S <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2032	2140	
==>nted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $f <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2032	2140	
==>nted_file

Gets called before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8959	9071	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9152	9264	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1859	1986	
==>_mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} . '"' 
        if exis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1698	1796	
==>))
        || confess "bad return value, got($return_value) expected(" . $self->{sig}->returns . ") <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25479	25595	
==>apping(Str) of Str $mapping! ) returns Relation>

This method is a generic relational operator that returns a new Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30031	30147	
==>apping(Str) of Str $mapping! ) returns Relation>

This method is a generic relational operator that returns a new Rel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	103	231	
==>t
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	103	231	
==>t
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2071	2174	
==>!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2071	2174	
==>!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3381	3511	
==>)($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3381	3511	
==>)($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18939	19045	
==>he line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18939	19045	
==>he line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending '}' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18688	18789	
==>escribed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18688	18789	
==>escribed
as follows:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1136	1319	
==>r 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1136	1319	
==>r 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	956	1088	
==>sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	956	1088	
==>sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7633	7757	
==>f;
  }

  sub insert {
    my $self = shift;
    my $rx = $self->{rx};
    $rx->{tree} = pop @{ $rx->{stack} };
    return $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16299	16390	
==>_objects_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6obj_complain->("perl5_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2480	2594	
==>::Value::List; 

# This class should not inherit from Perl6::Value::List, because this would
# cause multi-dimensio <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2480	2594	
==>::Value::List; 

# This class should not inherit from Perl6::Value::List, because this would
# cause multi-dimensio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4804	4907	
==>RIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for docume <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4944	5047	
==>RIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for docume <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2886	3032	
==>on-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3070	3216	
==>on-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1028	1165	
==>/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1028	1165	
==>/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12141	12241	
==>oot_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object (plu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12141	12241	
==>oot_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object (plu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3276	3365	
==>here else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3161	3246	
==>here else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11808	11910	
==>w( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11802	11904	
==>w( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metas <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2085	2195	
==>}
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a cop <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2085	2195	
==>}
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a cop <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10978	11097	
==>s]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almos <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10978	11097	
==>s]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10676	10813	
==>] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10670	10807	
==>] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7898	8014	
==>source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7910	8026	
==>source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	492	592	
==>g.pdf

# please note that this is nothingmuch's first article that he read from cover
# to cover with <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6744	6841	
==>e
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document ide <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6744	6841	
==>e
return value is the HTTP response code.

=item mirror($url, $file)

Get and store a document ide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	208	316	
==>all_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	208	316	
==>all_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11585	11694	
==>nnection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11585	11694	
==>nnection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0") <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3563	3661	
==>--------------------------------------------------------------

# Utility to test that "No method f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5465	5563	
==>--------------------------------------------------------------

# Utility to test that "No method f <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	677	841	
==>s( $assert ) {
        require Carp;
        my $msg = 'Assert failed';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30424	30517	
==>rectory.

Please use the CPAN bug ticketing system at L<http://rt.cpan.org/>.
You can also mai <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13436	13597	
==>) {
        chomp;
        
        ### link from altdir to install dir
        ### then from pathdir, to altdir
        my $script = basename($_);
    
        m <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19540	19665	
==>ep($for);
}


# die 

# fail


# bless 

# chr

# ord


 multi Conversions::List::list ( *@list --> List )
{
    @list; #XXX - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1278	1417	
==>$code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1278	1417	
==>$code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3622	3737	
==>, $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $dec <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3622	3737	
==>, $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $dec <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	411	522	
==>}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() returns List { <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	411	522	
==>}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() returns List { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5972	6129	
==>hr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5972	6129	
==>hr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11379	11542	
==>:rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11658	11821	
==>:rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2218	2333	
==>as invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2218	2333	
==>as invoked
    $RealBin     - $Bin with all links resolved
    $RealScript  - $Script with all links resolved

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4152	4287	
==>my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9153	9277	
==>= $P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6174	6294	
==>.density;
# }

method stringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6174	6294	
==>.density;
# }

method stringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	798	888	
==>s file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::Nul <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	798	888	
==>s file contains both the Test::Builder::TestPlan object and 
a subclass, Test::Builder::Nul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3130	3293	
==>ternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), r <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4168	4296	
==>$http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4168	4296	
==>$http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown prox <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1115	1233	
==>($chr =~ /\</) {
	    print "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\textgreater{}";
	    r <==
2	/Users/nnunley/pugs/util/drift.pl	1623	1731	
==><".";
module $module.Instances ()
where
import $module
import Data.Yaml.Syck
import DrIFT.YAML
import DrIFT.J <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14597	14701	
==>.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14597	14701	
==>.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	163	277	
==>rom \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - R <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	163	277	
==>rom \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - R <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8847	8976	
==>ame );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword semantics, where 'requir <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8847	8976	
==>ame );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword semantics, where 'requir <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36062	36174	
==>the look-ahead, and we're done.  Now
we just need to return the regex representation of our children:

    return <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13074	13178	
==>s {  # see 11.1.5
      <PropertyName> <':'> <AssignmentExpression>
    | <PropertyNameAndValueList> <',' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14075	14203	
==>b { $as_array_complain->("code") },
      ref   => sub { $as_array_complain->("ref") },
      glob  => sub { $as_array_complain-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3736	3846	
==>ecutable must have PMC support. 

PMC support is required for loading precompiled Perl 6 files.

If you see the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5766	5869	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5845	5948	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4635	4773	
==>gs::Runtime::Match::Ratchet';
        return;
    }
}

sub positional {
    # return a positional capture
    # my $num = shift;   T <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3201	3301	
==>de ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$const <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3201	3301	
==>de ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$const <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4999	5116	
==>IT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our data <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4999	5116	
==>IT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our data <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5577	5692	
==>hod export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5577	5692	
==>hod export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%! <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4756	4996	
==>) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[l <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4020	4212	
==>) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1971	2138	
==>ame { <r$prev> [ $x <$rule_name> ]? }\n";
        }
    }
    return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2231	2336	
==>ies of the nodes
	# \@free will contain all the free type variables in the type at the end of the pass, an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3811	3929	
==>le to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3675	3789	
==>le to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 G <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	993	1184	
==>ROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unle <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	993	1184	
==>ROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unle <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25799	25898	
==>side
environment at all.

A Relation::Example object has 2 main attributes (implementation details s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19948	20076	
==>m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16369	16497	
==>m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1116	1213	
==>t just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely triv <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1116	1213	
==>t just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely triv <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1584	1687	
==><SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is alw <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1584	1687	
==><SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is alw <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11457	11548	
==> $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11457	11548	
==> $set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1288	1389	
==>arch path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1288	1389	
==>arch path.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19547	19657	
==>ed use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  The Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24099	24209	
==>ed use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  The Relation <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10151	10247	
==>n be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTO <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10151	10247	
==>n be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= CONSTRUCTO <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19502	19603	
==>ndp[n] is the offset of the last char within the capture.
n=0 is the whole match.  $1 is n=1, etc.
A - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45055	45147	
==>-------------------------------------------
## now build Package & Module, so we can create s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20084	20176	
==>as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20084	20176	
==>as
keys. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1600	1686	
==>---------------------------------------------------------
## informational methods

met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1600	1686	
==>---------------------------------------------------------
## informational methods

met <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6950	7156	
==>n $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10427	10633	
==>n $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15136	15234	
==>pass
an argument to the method.  The old header value is always returned.
If the given header did n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15136	15234	
==>pass
an argument to the method.  The old header value is always returned.
If the given header did n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8452	8593	
==>8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8452	8593	
==>8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3043	3147	
==>ams>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3043	3147	
==>ams>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15889	15981	
==>est::More

Information about the TAP protocol can be found in the Test::Harness
distribution. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15947	16039	
==>est::More

Information about the TAP protocol can be found in the Test::Harness
distribution. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2673	2871	
==>h|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2673	2871	
==>h|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13191	13295	
==>ame> <':'> <AssignmentExpression>
}
rule PropertyName :words {  # see 11.1.5
      <Identifier>
    | <St <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12790	12887	
==>ession>
    | <ElementList> <','> <Elision>? <AssignmentExpression>
}
rule Elision :words {  # see <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1108	1258	
==>ment_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1313	1463	
==>ment_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            cap <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6978	7093	
==>ss($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6978	7093	
==>ss($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1395	1489	
==>ell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1395	1489	
==>ell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	830	931	
==>bytes, XORing elements of a constantly-transforming 
state table with each byte of plaintext or cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	830	931	
==>bytes, XORing elements of a constantly-transforming 
state table with each byte of plaintext or cipher <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1713	1821	
==>ng and adding p6, tuck it into the pugs distribution
somewhere with test files, and do objective 1 above.

If <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6866	6974	
==>esult3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9263	9365	
==>lf.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9263	9365	
==>lf.is_empty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10960	11067	
==>lcome.p6 to the initrd",
    help   => "Note: You might want to strip pugs and parrot to save space.",
    e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3145	3276	
==>> perl6 code.

This is a valid header:

    #!/usr/bin/perl
    use v6-pugs;

* it executes perl5

* perl5 will call the C<v6.pm> mo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8230	8340	
==>iles_list( $inst_pkg->package )        or die $!;
    
        my $prerm = $self->control_dir( $inst_pkg->packa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19197	19310	
==>? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15618	15731	
==>? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9908	10059	
==>', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10187	10338	
==>', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9201	9304	
==>-[\"\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule SingleStringCharacter {  # se <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7677	7767	
==>elemental(lookbehind(R)).
p5_condition_test(lookbehind_not(R)) --> p5_elemental(lookbehind_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2556	2648	
==>cause this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2556	2648	
==>cause this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::A <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7497	7647	
==>$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            undefi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7497	7647	
==>$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            undefi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7818	7924	
==>defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return 0 unless $ra->[$i] eq $rb->[$i];
    }
    retu <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5886	6024	
==>test
            # ghc inside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _normalize <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2621	2746	
==>index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      ta <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2621	2746	
==>index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      ta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	363	460	
==>ory

=item pool

Path to the pool directory of the repository. $root/jibs if not specified.

=item <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27539	27633	
==> list α", ":t listify(x)");
is(t(comb( fun => $one_elem_list, param => val(5) )), "list int" <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11678	11776	
==>good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11678	11776	
==>good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27932	28031	
==>dule's objects, or the object you create isn't
a modification of a standard object, no warnings will <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23495	23588	
==>.$code.' } catch Perl6::Run::OnPerl5::X1::Api::Exception::Return with { @{$_[0]{"-value"}} })' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	946	1060	
==>cking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	946	1060	
==>cking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8513	8641	
==>CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_le <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8513	8641	
==>CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_le <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1164	1262	
==>urn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1164	1262	
==>urn ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7848	7948	
==>get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7848	7948	
==>get here?!?";
}

# Analyze the remaining blocks and determine which compilers to call to reduce
# the <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1657	1763	
==>y::values (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1607	1708	
==>et, "%s%s", x, y);
	return target;
}

PV type_convert_IV_PV (IV x) {
	char * target = (char *)GC_MALLO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24864	24990	
==>= @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21285	21411	
==>= @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5526	5697	
==>cumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5526	5697	
==>cumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17959	18090	
==>' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17959	18090	
==>' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method return <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1159	1341	
==>[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1159	1341	
==>[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7604	7719	
==>sa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7604	7719	
==>sa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	945	1063	
==>ject created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	945	1063	
==>ject created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compile <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25101	25207	
==>:operator::pair->new(
		type::variable::free->new,
		type::variable::free->new,
	);
	is($type->stringify, " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1644	1738	
==>ome raw development notes appear after __END__.

package Regexp::StructHook;

our $inserted = 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	291	387	
==>meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	291	387	
==>meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' => ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6539	6684	
==>204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(82 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6539	6684	
==>204),
    "zwj"      => chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(82 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10701	10798	
==>p eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8669	8773	
==>{symbol} with $y->{symbol} in " . Dumper(@_);
	
	unify($x->left, $y->left, @_);
	unify($x->right, $y->rig <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4563	4678	
==>pan = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4563	4678	
==>pan = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5435	5673	
==>end ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7197	7435	
==>end ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get (" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6865	7014	
==>match: $match

        $match->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6639	6779	
==>match: $match
        $match->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5937	6068	
==>}
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5949	6080	
==>}
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11676	11882	
==>' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11676	11882	
==>' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	158	262	
==>"rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	149	249	
==>"rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8482	8586	
==>me - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the sec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6018	6120	
==>me - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the sec <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	432	590	
==>s => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	432	590	
==>s => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37488	37585	
==>ributes')      => attribute->new('%:attributes'      => 'hash')));
$::Class->send('add_attribute', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15914	16013	
==>oks and papers and taught classes on the subject over the last
35+ years, along with Codd himself (s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15914	16013	
==>oks and papers and taught classes on the subject over the last
35+ years, along with Codd himself (s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	135	261	
==>se vars qw[@PKGS %PKGS];

for ( qx[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1859	1978	
==>{<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'c');
  });

  $self->add_handler('\C' => sub {
    my ($S, $cc) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	779	886	
==>turn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	779	886	
==>turn _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3489	3611	
==>ap:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3489	3611	
==>ap:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7813	7919	
==>ray_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7813	7919	
==>ray_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14542	14660	
==>m = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possibl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14542	14660	
==>m = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possibl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15913	16037	
==>r writing modules that I<compile> other
Perl modules.

Modules that use these compilation modules get compiled into some
alte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15913	16037	
==>r writing modules that I<compile> other
Perl modules.

Modules that use these compilation modules get compiled into some
alte <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7150	7279	
==>4),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7150	7279	
==>4),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10878	10983	
==>ree} = $self->{data}[-1];
    }
  }
}


{
  package Regexp::Parser::exact;
  push @ISA, qw( Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21416	21518	
==>>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reser <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21416	21518	
==>>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reser <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1169	1295	
==>unctions get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13695	13815	
==>unctions get prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	320	435	
==>b constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	320	435	
==>b constant_at_pos { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1913	2029	
==>flex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umla <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1913	2029	
==>flex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umla <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	295	416	
==>fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	295	416	
==>fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	642	750	
==>phered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	642	750	
==>phered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, an <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2924	3037	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2924	3037	
==>LASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12653	12766	
==>::Exp::EnumCharList")
    lastpos = length target
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1395	1493	
==>:$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1395	1493	
==>:$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	456	599	
==>ol  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_quoted => $1 }, value => { singl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2078	2175	
==>his could either be done
#using Regexp::Parser Objects, or wait for the hypotetical new ast.

#XXX <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3843	3932	
==>sert_children;

## ----------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3843	3932	
==>sert_children;

## ----------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6002	6136	
==>o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6509	6640	
==>)}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6509	6640	
==>)}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36.
        if ( <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1472	1620	
==>y $code = $sym->{$pwd}) {
            goto &$code unless $cwd eq $pwd; # delegate back to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3351	3445	
==>item *

Replacing all values which the runtime provides builtins for with the replacement nodes <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10930	11061	
==>lags> <IdentifierPart>
}

# A.2 Number Conversions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteS <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1012	1109	
==>les ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1012	1109	
==>les ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5108	5253	
==>aving
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5572	5717	
==>aving
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	146	331	
==>uleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	147	332	
==>uleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7197	7285	
==>= HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7197	7285	
==>= HTTP::Headers::Util::join_header_words(@v);
    $self.header("Content-Type", $content_t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	965	1065	
==>h;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	965	1065	
==>h;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35197	35309	
==>his method returns a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35197	35309	
==>his method returns a deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named pa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16141	16258	
==>Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19618	19735	
==>Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.ma <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3009	3141	
==>>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syn <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3009	3141	
==>>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syn <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7753	7875	
==>lf.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7753	7875	
==>lf.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calcu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2085	2183	
==>, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2085	2183	
==>, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>' <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3399	3506	
==>) {
multi Array::shift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593.
# body from PIL <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16733	16823	
==>head1 Results

The C<%results> returned from C<analyze()> contain the following
information <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1502	1619	
==>s.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1502	1619	
==>s.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9485	9574	
==>sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3310	3399	
==>sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return(@_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2565	2662	
==>n a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorpor <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2565	2662	
==>n a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then incorpor <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11390	11490	
==>e versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode vers <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11390	11490	
==>e versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode vers <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11666	11795	
==>e undef, undef, $initrd_img;
      for(@modfiles) {
        if(-d "$lib6/$_") {
          mkdir "$initrd_mnt/lib6/$_";
        } e <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8998	9147	
==>{
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26324	26421	
==>trict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yasw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11460	11586	
==>*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11460	11586	
==>*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in conn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6144	6283	
==>ent);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6144	6283	
==>ent);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11233	11340	
==>ain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $sk <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11233	11340	
==>ain, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $sk <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22676	22786	
==>.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confes <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11812	11911	
==>lly dangerous. Uses the shell.

    multi sub open2 (Str $command) returns List is primitive is unsa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	813	915	
==>r for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	813	915	
==>r for this class has a special shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6698	6877	
==>( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6698	6877	
==>( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26044	26143	
==>rsion.  Each variable name is a machine-readable short
string; the allowed variable names you can ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26044	26143	
==>rsion.  Each variable name is a machine-readable short
string; the allowed variable names you can ha <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18712	18810	
==>oid problems.  While simultaneously
trying to avoid triggering core behavior which we are not prepa <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3002	3100	
==>oid problems.  While simultaneously
trying to avoid triggering core behavior which we are not prepa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2161	2264	
==>one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2161	2264	
==>one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1258	1387	
==>pture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1463	1592	
==>pture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_fil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24525	24623	
==>thods on those objects.
All of their attributes are private, so you must use accessor methods.
Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24525	24623	
==>thods on those objects.
All of their attributes are private, so you must use accessor methods.
Loca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8280	8508	
==>my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8280	8508	
==>my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37386	37480	
==>o and false if not.

=item C<load_template_module( $module_name! )>

This method takes the name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37386	37480	
==>o and false if not.

=item C<load_template_module( $module_name! )>

This method takes the name <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	837	937	
==>ge($cc->as_p5,'main');
	if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p5\n",number_t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5266	5376	
==>53{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5266	5376	
==>53{$chan}.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	85	193	
==>utput;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( St <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	85	193	
==>utput;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( St <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	411	531	
==>te
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	411	531	
==>te
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10881	11013	
==>eadline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10881	11013	
==>eadline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method re <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1660	1883	
==>l5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $de <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1660	1883	
==>l5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6355	6459	
==>// "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6355	6459	
==>// "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1343	1450	
==>ec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even thoug <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1343	1450	
==>ec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even thoug <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7202	7314	
==>, file($path.'.index');
        push @index_files, map { $path->file($_) }
                $self->_index_files($p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13651	13752	
==>b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13651	13752	
==>b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2228	2374	
==>x',
    } );
    $cat->add_op( {
        name => '+',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        oth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28082	28197	
==>the resulting
object's visual flag set, so C<(?ig-o)> becomes C<(?i)>.

=item $parser->del_flag(@flags)

Deletes the <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1205	1327	
==>,
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1205	1327	
==>,
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method union ($self: Sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31930	32050	
==>t shown to the user, the main program would check each
of the 3 Template module sets in turn, looking at just the set mem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31930	32050	
==>t shown to the user, the main program would check each
of the 3 Template module sets in turn, looking at just the set mem <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1672	1781	
==>ook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1672	1781	
==>ook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8515	8655	
==>} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8515	8655	
==>} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3583	3687	
==>e::Reducer> in order to traverse the node
structure. The only dirty part is C<reduce_sym> which must hand <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11593	11685	
==>got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11651	11743	
==>got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style cmp_o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5835	5952	
==>f $match->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match->{captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5650	5765	
==>f $match->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match->{captu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1987	2093	
==>}
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SY <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1987	2093	
==>}
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1345	1491	
==>q_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1345	1491	
==>q_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        m <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1116	1255	
==>esults.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1116	1255	
==>esults.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21121	21226	
==>rl_re_dup just copies them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37495	37596	
==>d the order of its arguments is not significant to the result;
the new Relation is the result of combi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42044	42145	
==>d the order of its arguments is not significant to the result;
the new Relation is the result of combi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6070	6190	
==>elf.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very ineffici <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6070	6190	
==>elf.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very ineffici <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2848	2994	
==>s implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't wor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3032	3178	
==>s implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't wor <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	716	836	
==>lse {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	716	836	
==>lse {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5070	5161	
==>object-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5070	5161	
==>object-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3121	3231	
==>IL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3121	3231	
==>IL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8025	8132	
==>infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shif <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8025	8132	
==>infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shif <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3690	3862	
==>\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3690	3862	
==>\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	131	253	
==>ReadKey;

my %masked_ops = (
    map { ("&infix:<$_>" => 1) } grep {
        print "Use perl version of &infix:<$_> instead <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	202	385	
==>.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	202	385	
==>.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7343	7455	
==>y => ( 'type::variable::free', any(qw/type::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1] <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3825	3942	
==>(): '$values{name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dum <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1521	1625	
==>ng re-override, intending to provide just such
# a usable module.  Any further efforts should likely take <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8903	9032	
==>k;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8903	9032	
==>k;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	343	474	
==>minute, Int|Real ?$second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Gregorian is export {
        #$tz = tz($tz) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3643	3737	
==>C<Makefile.PL> and C<make> in
C<Pugs::Compiler::Rule> should fix the problem.

- The perl5 exec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22869	22967	
==>2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22869	22967	
==>2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5066	5177	
==>Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5066	5177	
==>Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3470	3642	
==>& $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3470	3642	
==>& $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4046	4317	
==>urns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4046	4317	
==>urns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3573	3910	
==>TY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External pack <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3573	3910	
==>TY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External pack <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2001	2177	
==>oviding the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2001	2177	
==>oviding the methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4294	4434	
==>self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4434	4574	
==>self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2098	2212	
==>t( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2098	2212	
==>t( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10956	11071	
==>ile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my $t3 = times;
print "Resulting AST: " . Dumper->redu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4379	4668	
==>$test};
                            last;
                        }
                    }
                    
                    ### XXX clean up links from $unlink_this
                }      

                last LINKING unless $link_this;

                my @bins;
                pr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1638	1755	
==>$.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1638	1755	
==>$.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	833	936	
==>(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually wo <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	833	936	
==>(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually wo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3179	3276	
==>) $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_typ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3237	3334	
==>) $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expected_typ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27277	27395	
==>VEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
mu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27277	27395	
==>VEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
mu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3782	4045	
==>ttribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3782	4045	
==>ttribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6113	6262	
==>ammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6306	6455	
==>ammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4467	4560	
==>version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4467	4560	
==>version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1456	1574	
==>2 $file = $inst->files_list( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6157	6338	
==>ode $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6157	6338	
==>ode $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5355	5492	
==>lue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xTy <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5355	5492	
==>lue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xTy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	746	865	
==>} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ retur <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2792	2890	
==>n I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub remo <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2792	2890	
==>n I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Num $n)

This sub remo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1178	1303	
==>mpiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1178	1303	
==>mpiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$bo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6263	6365	
==>ubstrs->data[0].substr = SvREFCNT_inc(callback);

    /* Try to scare off the rest of perl */
    r->mi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27650	27751	
==>");
is(t($length_and_first), "∀α. list α → (α × int)", ":t length_and_first");
is(t($length_an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2305	2441	
==>ined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2305	2441	
==>ined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2990	3096	
==>dule_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2990	3096	
==>dule_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2301	2413	
==>lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2301	2413	
==>lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_he <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12401	12500	
==>_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These function <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12459	12558	
==>_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These function <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1358	1479	
==>dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        r <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1358	1479	
==>dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        r <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19974	20065	
==>LER::<$_> --> Num )
{ Pugs::Internals::string_as_number(8,$octstr) }
 multi prefix:<:2> ( St <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33622	33726	
==>an ordered list one or more elements where each
element is a Template module Member Name and usually corr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33622	33726	
==>an ordered list one or more elements where each
element is a Template module Member Name and usually corr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	822	922	
==>API operates at the byte level, not the character level, so different 
character encodings may be enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	822	922	
==>API operates at the byte level, not the character level, so different 
character encodings may be enc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15412	15544	
==>ad1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Con <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15412	15544	
==>ad1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4715	4826	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4965	5076	
==>.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2314	2434	
==>P::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2314	2434	
==>P::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11096	11191	
==>hat is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence objec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11096	11191	
==>hat is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence objec <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	121	236	
==>py>;
use File::Basename  qw<basename>;
use Term::ANSIColor qw<:constants>;

$ENV{PATH} .= ":/sbin:/usr/sbin";

sub s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21755	21857	
==>s.  I was getting
confused by it, so I figured it was a sign that I'd chosen an awful name
for the fiel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15189	15361	
==>ot implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15183	15355	
==>ot implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4208	4314	
==>ap:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () { <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4208	4314	
==>ap:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10806	10931	
==>erolen} &&= $_->{zerolen};
      }
      push @$st, $tree;
      $rx->{tree} = $self->{data}[-1];
    }
  }
}


{
  package Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19241	19336	
==>uld create a better sense of
uniformity.

=item Documentation

Fixed some poor wording, and docu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6428	6522	
==>::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2ht <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6428	6522	
==>::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2ht <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1336	1474	
==>ort(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unes <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1336	1474	
==>ort(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20936	21031	
==>nnel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20936	21031	
==>nnel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Re <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	223	339	
==>set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	223	339	
==>set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6671	6805	
==>by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_name );

        # Try to load an external P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6671	6805	
==>by translate_message().
        my $module_is_loaded = .template_module_is_loaded( $module_name );

        # Try to load an external P <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4063	4149	
==>54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorit <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4063	4149	
==>54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24489	24599	
==>::groupp;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen) = @_;
    m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11441	11542	
==>data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until ob <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11441	11542	
==>data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until ob <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9258	9366	
==>eHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9258	9366	
==>eHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30961	31058	
==>l to the original, in which case
this method returns the identity-one Relation or the invocant rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35511	35608	
==>l to the original, in which case
this method returns the identity-one Relation or the invocant rel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7788	7886	
==>span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7788	7886	
==>span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17284	17387	
==>ed by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17284	17387	
==>ed by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	886	992	
==>$<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	886	992	
==>$<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1238	1341	
==>ict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	515	617	
==>ict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3785	3906	
==>t($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering wi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3785	3906	
==>t($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filtering wi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30672	30791	
==>represent a single
language.

The name of each Template module has two parts, the Set Name and the Member
Name.  The Set <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30672	30791	
==>represent a single
language.

The name of each Template module has two parts, the Set Name and the Member
Name.  The Set <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	850	977	
==>y} = $thing;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harnes <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11844	11963	
==>= shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	253	367	
==>= shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7128	7245	
==>ilable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to del <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	429	546	
==>ilable ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to del <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	242	370	
==>s
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	242	370	
==>s
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16897	16998	
==>heir application in Rosetta D (as
either named modules or anonymous routines) and write the rest of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16897	16998	
==>heir application in Rosetta D (as
either named modules or anonymous routines) and write the rest of th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1850	1948	
==>e and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1850	1948	
==>e and others.

This program is free software; you can redistribute it and/or modify it
under the sa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10531	10632	
==>us => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10531	10632	
==>us => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurren <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7266	7361	
==>m if ( $tokenCat >= PGE_OPTABLE_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_POSTF <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7501	7598	
==>zy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7501	7598	
==>zy" lists.

- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39200	39283	
==>odel>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Sh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39200	39283	
==>odel>, L<Rosetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Sh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5658	5812	
==>err_close
    inc pos
  term_bx3:
    if isnegated goto term_charlist                # \X[...], \000
    # goto term_literal                            # \ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7405	7517	
==>E;
    $results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "status"; $results{'ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	694	826	
==>te or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	694	826	
==>te or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8711	8896	
==>ection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the relation in $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12188	12373	
==>ection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the relation in $ot <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	557	708	
==>.32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	557	708	
==>.32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.k <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3552	3659	
==>, *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3920	4027	
==>, *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7255	7392	
==>tisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7719	7856	
==>tisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11872	12073	
==>t -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11872	12073	
==>t -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	325	439	
==>gs::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2399	2510	
==>}
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2399	2510	
==>}
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	807	918	
==>footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? ) <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	807	918	
==>footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9845	9958	
==>nite" until "Infinite".

Recurrence sets can be combined with union, intersection, difference, and a few
other ope <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9845	9958	
==>nite" until "Infinite".

Recurrence sets can be combined with union, intersection, difference, and a few
other ope <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9080	9196	
==>t 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9080	9196	
==>t 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5100	5250	
==>us => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6:: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5100	5250	
==>us => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	555	688	
==>r.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	555	688	
==>r.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	935	1042	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	935	1042	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5218	5313	
==>item get($url)

The get() function will fetch the document identified by the given URL
and retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5218	5313	
==>item get($url)

The get() function will fetch the document identified by the given URL
and retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1159	1286	
==>art_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Te <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1159	1286	
==>art_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Te <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4100	4247	
==>, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4100	4247	
==>, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        clo <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5734	5827	
==>require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5216	5309	
==>require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1026	1124	
==>ue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1026	1124	
==>ue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	400	516	
==>where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you'r <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	400	516	
==>where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you'r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	561	670	
==>re interchangable, allowing a programmer to 
change ciphers simply by changing the class name used.

Ciphers u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	561	670	
==>re interchangable, allowing a programmer to 
change ciphers simply by changing the class name used.

Ciphers u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25172	25267	
==>have no
more than a single tuple.  A zero-attribute Relation::Example with zero tuples or
one tu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1820	1929	
==>:path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1820	1929	
==>:path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7341	7480	
==>") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7341	7480	
==>") }

method from ($self: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.hea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	277	381	
==>ve "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Te <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	277	381	
==>ve "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Te <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11709	11808	
==>umerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11709	11808	
==>umerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15879	15984	
==>ew_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\% <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26320	26418	
==>se strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language::Prolog::Y <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	460	579	
==>head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print hea <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	460	579	
==>head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print hea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14881	15006	
==>/* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19049	19174	
==>/* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	488	599	
==>perator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.dif <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	488	599	
==>perator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.dif <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2725	2868	
==>e of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method header returns Str
      {
          return '';
      }
  
      meth <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6250	6352	
==>stance}->splat(@_);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $self <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4228	4321	
==>it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines sta <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4228	4321	
==>it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32974	33085	
==>eneral category into which that object falls.

This is very sparse.  Future versions will have more complete
doc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	65	170	
==>JIB - Perl6 Package Manager

=head1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24393	24485	
==>L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24393	24485	
==>L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19970	20069	
==>me:password"> as a single string value.

When used to set the header value, it expects two arguments <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19970	20069	
==>me:password"> as a single string value.

When used to set the header value, it expects two arguments <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1827	1938	
==>e the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1827	1938	
==>e the 
value C<1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	74	203	
==>amic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift(@a);
      my $kludge_ret <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2786	2900	
==>ing under
      Linux, you may want to change that.

Note: A precompiled (but most of the time outdated) image is a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24587	24681	
==>m C<is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29139	29233	
==>m C<is_mutable () returns Bool>

This method returns this Relation's "is mutable" boolean attri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4185	4271	
==>::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4185	4271	
==>::Interface::Command ("Command"), Rosetta::Interface::Value
("Value"), and Rosetta::Int <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3694	3806	
==>nt {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3694	3806	
==>nt {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5852	6063	
==>spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5852	6063	
==>spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9273	9395	
==>urn "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Da <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12452	12562	
==>\\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast->{captur <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	394	521	
==>um  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is export {
    my N <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16073	16164	
==>rs

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent < <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16131	16222	
==>rs

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent < <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15621	15763	
==>inlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* I <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19854	19996	
==>inlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24063	24164	
==>rs
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28615	28716	
==>rs
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1222	1370	
==>n: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1222	1370	
==>n: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9899	10009	
==>y functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9957	10067	
==>y functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8084	8184	
==>r $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8084	8184	
==>r $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$mo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	511	775	
==>urns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=enco <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	511	775	
==>urns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=enco <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	118	223	
==><from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	118	223	
==><from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan) <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	461	574	
==>eturns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	461	574	
==>eturns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6128	6284	
==>.)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5933	6079	
==>.)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16047	16179	
==>queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16047	16179	
==>queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./res <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	327	438	
==>my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	327	438	
==>my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PI <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2482	2594	
==>"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2482	2594	
==>"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2305	2430	
==>= 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2305	2430	
==>= 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	570	684	
==>BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	776	890	
==>BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40720	40826	
==>uired, the copyright holders of
Locale::KeyedText would appreciate being informed any time you create a
mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40720	40826	
==>uired, the copyright holders of
Locale::KeyedText would appreciate being informed any time you create a
mod <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6548	6674	
==><"pParams"> );
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"pType"> );
        $ret = emit_Code( $body, $i <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5185	5292	
==>ft;

    return $tot->{bad} == 0 && ($tot->{max} || $tot->{skipped}) ? 1 : 0;
}

=item B<_globdir>

  my @fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35772	35890	
==>>{rx} >>.

    my $consume = pop @kids;
    for (@kids) {
      $_ = $self->{rx}->object(ifmatch => 1, @$_);
    }

The <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4940	5135	
==>state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4940	5135	
==>state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $m <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1942	2045	
==>ginal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1942	2045	
==>ginal perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIP <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1340	1448	
==>to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1340	1448	
==>to hide the letter frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3135	3255	
==>epresenting a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3135	3255	
==>epresenting a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9057	9160	
==>e') => sub {
	die "trying to unify incompatible types:\n" . Dumper(@_);
};


# these are the type signat <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4207	4368	
==>ues);
            },

            'array_pop' => sub { # $val
                my $self = shift;
                (pop @{$self->get_value('@:slots')})->scalar_fetch <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19048	19136	
==>ax_ng(Re,N1,Fx,F1,Bx,B1,Ex,E1).


rm(capture(N,Re),F0,F1,B0,B1,E0,E1) :-
  % match_captur <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9112	9198	
==>([Item1|MoreItems])    --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	432	544	
==>ormation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CG <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	432	544	
==>ormation about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CG <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4522	4637	
==>RGV = File::Spec->curdir unless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6489	6603	
==>dule_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6489	6603	
==>dule_name {
        # Determine if requested template module is already loaded.
        # It may have been embedded <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12583	12683	
==>= @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6058	6158	
==>= @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6958	7105	
==>_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6958	7105	
==>_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_dat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10478	10576	
==>ke to force into being TODO tests
then you can pass them through this function. This is primarily a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10536	10634	
==>ke to force into being TODO tests
then you can pass them through this function. This is primarily a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3598	3698	
==>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3598	3698	
==>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	362	465	
==>);

system( qw[rm -rf], $config->root, $config->build_dir .'*' )   and die $?;

### set up the 'fakeroot <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20312	20407	
==>[\@\%]/\$/g;
	my $code = "# macrop5 $name\n sub{my$argl=\@_; $modifyargs \$fun->$argl2}\n";
	eva <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	766	893	
==>to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5) <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	766	893	
==>to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5) <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1617	1729	
==>/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1617	1729	
==>/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10217	10369	
==>f (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TY <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10217	10369	
==>f (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TY <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6471	6588	
==>e($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6471	6588	
==>e($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13822	13955	
==>Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Ent <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13822	13955	
==>Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Ent <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10079	10172	
==>ef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10814	10907	
==>ef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4476	4603	
==>:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x() stuff/
         ma <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19608	19770	
==>ng, "link in $source to $target does not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30900	31009	
==>nd returns an object.

Finally, if you want to add a new POSIX character class, its handler
must start with "P <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	775	877	
==>=item *

It serves as the basis for a method dispatch scope.  Note that methods
differ from normal Code <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1838	1980	
==>}
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1838	1980	
==>}
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<objec <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4079	4199	
==>ie $!;
    print MAKEFILE $makefile;
    close MAKEFILE;
}

sub get_pugs_config {
    my $self = shift;
    my $base = $s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2075	2188	
==>tructure you've built up in Perl5

=head1 NAME

Meta::Class - Entities in the Perl 6 language model (M2)

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20328	20427	
==>)>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20328	20427	
==>)>

Returns a true value if the bot's socket to the server is currently connected.

Note that you mi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1066	1177	
==>ove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.de <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1066	1177	
==>ove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.de <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8238	8485	
==>new(
                            App->new(
                                Sym->new('&infix:<*>'),
                                Sym->new('$n'),
                                App->new(
                                    Sym->new('&postfix:<!>' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4146	4364	
==>should be a policy test!
                            $version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4472	4562	
==>decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4472	4562	
==>decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15745	15887	
==>ch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19978	20120	
==>ch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	113	223	
==>nt {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	113	223	
==>nt {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sen <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1750	1903	
==>N, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEMP_PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comme <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3273	3385	
==>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3273	3385	
==>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    de <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10828	10953	
==>ode = "rw" if $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pugs::Internals::openFile($f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3288	3392	
==>et $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3288	3392	
==>et $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) });
    return $rv;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	296	389	
==>use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
requi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1493	1655	
==>STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1493	1655	
==>STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.q <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7469	7620	
==>}, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'manda <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7469	7620	
==>}, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'manda <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	889	990	
==>nt unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - prov <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	889	990	
==>nt unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - prov <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3649	3760	
==>c;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3649	3760	
==>c;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<object>}<topic> = $event<res <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27476	27588	
==>$fac_5), "int", ":t fac 5");
is(t($one_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17797	17899	
==>, because C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17797	17899	
==>, because C<perl> has
already been doing the C<.pmc> check on every module load since 1999!

=back

=he <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	310	416	
==>key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) retu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	310	416	
==>key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	946	1090	
==>i = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	946	1090	
==>i = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4607	4737	
==>p5 = $compiler->( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4449	4574	
==>p5 = $compiler->( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18400	18526	
==>y of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18400	18526	
==>y of Computing" as this to say about the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	762	881	
==>ft;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	762	881	
==>ft;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $po <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	551	684	
==>gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1611	1743	
==>gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }
 multi sub <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12858	12957	
==>the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 rang <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12858	12957	
==>the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in the Latin-1 rang <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1221	1321	
==>ize 64;');

#XXX- rename $n or $^n.  having the two of them "n" is confusing.
macro Clutter::num_size <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2519	2610	
==>rl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and av <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2519	2610	
==>rl.orgE<gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and av <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9063	9174	
==>Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9063	9174	
==>Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9736	9834	
==>return }
method _tail() returns Array { return }

# What we implement for them.
method finish(Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9736	9834	
==>return }
method _tail() returns Array { return }

# What we implement for them.
method finish(Ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11653	11752	
==>ection of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11653	11752	
==>ection of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7829	7971	
==>ied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $dele <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1130	1272	
==>ied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $dele <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2724	2842	
==>~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2724	2842	
==>~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	198	314	
==>ides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset f <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	198	314	
==>ides the fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	877	981	
==>ed.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	877	981	
==>ed.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3730	3867	
==>the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3742	3879	
==>the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23425	23537	
==>---------------------------------------------------

replace_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10507	10659	
==>sses;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10507	10659	
==>sses;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klas <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1294	1410	
==>hey are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolv <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	854	970	
==>hey are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_resolv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30322	30425	
==>er.

Each Template module ideally comes as part of a set, at least one member
large, with each set membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30322	30425	
==>er.

Each Template module ideally comes as part of a set, at least one member
large, with each set membe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	383	478	
==>notated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class { "Blondie::TypeS <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	797	897	
==>defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	797	897	
==>defined from the
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22173	22274	
==>bjects.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does not decl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22173	22274	
==>bjects.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does not decl <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7862	7974	
==>unction:  "; my $function = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6777	6920	
==>_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public licens <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6834	6977	
==>_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public licens <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16901	17025	
==>{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13322	13446	
==>{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }x <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13240	13352	
==>pan of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13240	13352	
==>pan of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3342	3460	
==>.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3342	3460	
==>.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The top <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3929	4101	
==>state}, 0 ] if defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3808	3974	
==>state}, 0 ] if defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $c <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1065	1158	
==>int $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %err <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	486	635	
==>ther {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	486	635	
==>ther {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cip <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3151	3264	
==>Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3151	3264	
==>Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2994	3123	
==>ilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2994	3123	
==>ilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35129	35224	
==>lator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35129	35224	
==>lator object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1006	1147	
==>e '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1006	1147	
==>e '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21495	21607	
==>range to somebody who has not tried to port between
databases before, especially given that the Perl DBI purports <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21495	21607	
==>range to somebody who has not tried to port between
databases before, especially given that the Perl DBI purports <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17748	17845	
==>execute Rosetta D statements and routines
within the virtual machine, input data to it, and output <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17748	17845	
==>execute Rosetta D statements and routines
within the virtual machine, input data to it, and output <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20882	20975	
==>fined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - not quite the right th <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5775	5893	
==>ype = 'header';

        $self->{saw_header}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $self->_is_b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8616	8750	
==>rence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8616	8750	
==>rence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21356	21450	
==>alect.  An application written to it should easily port
to alternative relational database engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21356	21450	
==>alect.  An application written to it should easily port
to alternative relational database engi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16239	16358	
==>ation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12660	12779	
==>ation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5401	5610	
==>...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5401	5610	
==>...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9395	9494	
==>tr( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_ass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9395	9494	
==>tr( 'get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_ass <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6061	6171	
==>iven $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6061	6171	
==>iven $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14845	14981	
==>each test
    $tot{bench} = timediff(new Benchmark, $t_start);

    $Strap->_restore_PERL5LIB;

    return(\%tot, \%failedtests);
}

=ite <==
2	/Users/nnunley/pugs/util/package-osx.pl	6946	7043	
==>3
        /usr/local/man/man3/Perl6::Perl5::Differences.3pm
        /usr/local/man/man3/Perl6::Per <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23398	23498	
==>ext =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11069	11173	
==><script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11069	11173	
==><script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	163	298	
==>d _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	163	298	
==>d _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23092	23201	
==>TREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19513	19622	
==>TREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24917	25047	
==>< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21338	21468	
==>< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2318	2437	
==>+ $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2318	2437	
==>+ $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8062	8189	
==>error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8062	8189	
==>error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8460	8557	
==>RAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8448	8545	
==>RAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19493	19612	
==>e.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20490	20609	
==>e.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            for $!body.values <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	929	1081	
==>::Type::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&print',
            b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2115	2235	
==>my $to = shift;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blondie::App->new(
			$class->buil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	740	867	
==>> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	763	880	
==>> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5139	5287	
==>parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### ins <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5603	5751	
==>parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### ins <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2230	2329	
==>s $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2142	2239	
==>s $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	531	629	
==><VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	531	629	
==><VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34093	34198	
==>look-ahead around the left-hand branch: C</(?=x)y/>.  We can expand this
to any number of branches: C</a\& <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	267	371	
==>rep,$type,@pairs]);
}
sub node_s { hlp('string',@_); }
sub node_a { hlp('array1',@_); }
sub node_a2{ hlp( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6371	6478	
==>f.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method en <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6371	6478	
==>f.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method en <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15806	15912	
==>ression> <'in'> <ShiftExpression>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpressi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6324	6425	
==>Stack[-1];
  $topcat = $$top{syncat};
  goto oper_reduce if ( $topcat == PGE_OPTABLE_POSTFIX );
  goto <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	554	657	
==>my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $args{'str'} if defined $arg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6695	6791	
==>EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6695	6791	
==>EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ms <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3368	3505	
==>r;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3368	3505	
==>r;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3386	3484	
==>annot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3386	3484	
==>annot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use F <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1338	1470	
==>w(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1338	1470	
==>w(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	347	448	
==>--?h(?:elp)?/i;
build(classify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3618	3779	
==>.isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &* <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3618	3779	
==>.isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &* <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	318	432	
==>eanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	318	432	
==>eanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	457	586	
==>ams<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	457	586	
==>ams<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27616	27709	
==>ion::Example has zero tuples.  If a Relation::Example has zero attributes, then
C<$body> may b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8540	8653	
==>$event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8540	8653	
==>$event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$even <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5093	5269	
==>FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $st <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4357	4494	
==>FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $status->{"skip"} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	914	1014	
==>d, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	972	1072	
==>d, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2129	2238	
==>r class") if $cc;
    return $S->force_object(anyof_char => 'A') if $cc;
    return $S->object(bol => 'sbol' = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8862	8969	
==>d($pugs), ldd("$parrot_path/parrot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21783	21877	
==>=E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21783	21877	
==>=E<gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	22	163	
==>6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	22	163	
==>6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2821	3043	
==>+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2832	3054	
==>+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'ter <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27962	28063	
==>|-)');
print $r->('12 + 4 - 29'),"\n";
print $r->('x12 blah + 4 - 29'),"\n";
print $r->('12 + 4 - 29') <==
2	/Users/nnunley/pugs/util/package-osx.pl	929	1026	
==>sr/local/lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc/parrot <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1217	1316	
==>ence of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
directory, <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1217	1316	
==>ence of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
directory, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	372	478	
==>y_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	372	478	
==>y_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7080	7231	
==>rbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7080	7231	
==>rbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closur <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2724	2822	
==>push @{ $self->{'values'}{'no_index'}{$type} }, @_ if $type;
    return $self->{'values'}{'no_index <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2811	2935	
==>); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2811	2935	
==>); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1000	1108	
==>iler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1000	1108	
==>iler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9427	9531	
==>5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test pas <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9485	9589	
==>5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test pas <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5365	5492	
==>quire ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5883	5986	
==>quire ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	800	903	
==>tpe.freepan.org/repos/iblech/Perl6-Bible/';
    print <<__HELP__;
$0 - Build html test catalog and synop <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	339	447	
==>"$class\::$method"} = sub {
            +shift->_top->$method(@_);
        } unless defined &{"$class\::$meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	690	815	
==>ct',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	690	815	
==>ct',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1325	1454	
==>]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1325	1454	
==>]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1042	1151	
==>);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for st <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1042	1151	
==>);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24885	24980	
==>ed, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24885	24980	
==>ed, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Messa <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3836	3933	
==>.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http: <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3836	3933	
==>.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9795	9890	
==>lf.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_wi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9795	9890	
==>lf.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_wi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6405	6511	
==>ch;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6417	6523	
==>ch;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - pr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1498	1597	
==>g.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SE <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1498	1597	
==>g.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16258	16395	
==>_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12679	12816	
==>_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4710	4900	
==>= sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $en <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5174	5364	
==>= sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $en <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	724	812	
==>ailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project w <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	724	812	
==>ailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12562	12691	
==>s created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12562	12691	
==>s created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13304	13416	
==>ce =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $sou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13304	13416	
==>ce =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $sou <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2184	2289	
==>equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2184	2289	
==>equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subse <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5670	5772	
==>pen <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5670	5772	
==>pen <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return $self if $self.is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3488	3587	
==>tional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you mus <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3488	3587	
==>tional 
interfaces are layers on top of the object-oriented backend.

To use the Cipher API, you mus <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6622	6725	
==>n class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6622	6725	
==>n class. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3081	3184	
==>ns the value of the parameter named C<$name>.  If called in List context,
it will return a list of value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3081	3184	
==>ns the value of the parameter named C<$name>.  If called in List context,
it will return a list of value <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21715	21819	
==>r Independence>, and not I<Database Language
Independence>.  To further demonstrate the difference, it is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21715	21819	
==>r Independence>, and not I<Database Language
Independence>.  To further demonstrate the difference, it is <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2444	2554	
==>$cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2444	2554	
==>$cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    return $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	173	272	
==>e_content_headers header_field_names scan
    date expires if_modified_since if_unmodified_since las <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	173	272	
==>e_content_headers header_field_names scan
    date expires if_modified_since if_unmodified_since las <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20497	20608	
==>words {  # see 12.2
      <Identifier> <InitialiserNoIn>?
}
rule Initialiser :words {  # see 12.2
      <'='> <A <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1891	2025	
==>) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1891	2025	
==>) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13584	13686	
==>ference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13584	13686	
==>ference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4035	4146	
==>the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tok <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4219	4330	
==>the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tok <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5446	5549	
==>this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5446	5549	
==>this
    # child (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4635	4747	
==>on( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4635	4747	
==>on( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_span = @set1_spa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	709	861	
==>talled"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$ <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	384	497	
==>d);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_type = 'text/html', 
    +$charset, 
    +$locatio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4511	4639	
==>eturn;

    return JIB::Package->new( 
                file => File::Spec->rel2abs( $archive ),
                meta => $self->me <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	309	432	
==>$str but newline("\n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10184	10300	
==>e'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10178	10294	
==>e'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21200	21293	
==>0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  sub <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9705	9826	
==>2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arra <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9705	9826	
==>2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29446	29544	
==>sumptive.  It happens to be executed when
'atom' matches a '|'.  This means the handler for '|' doe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1267	1426	
==>'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array.new
                if !stack.empty?
                    st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14553	14660	
==>eavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require Fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8325	8435	
==>w) = @_;
    return $S->force_object(anyof_class => digit => $neg, $how);
  });

  # graph POSIX class
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11657	11759	
==>which gets written onto a
  hopefully otherwise unused section of a regexp struct.  Another
  hopefully <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8603	8735	
==>[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8603	8735	
==>[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36609	36733	
==>eadable text message
string; this assumes that a Template corresponding to the Message could be
found using the Translator ob <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36609	36733	
==>eadable text message
string; this assumes that a Template corresponding to the Message could be
found using the Translator ob <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2697	2790	
==>s... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($new <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2697	2790	
==>s... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($new <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2352	2485	
==>r simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2352	2485	
==>r simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_S <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9964	10086	
==>(@{$o->data}{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my <==
2	/Users/nnunley/pugs/util/drift.pl	1556	1671	
==>f (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $module.Instances ()
where
import $m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	259	360	
==>head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	259	360	
==>head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8982	9077	
==>s, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other abov <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8982	9077	
==>s, you should never refer directly to "Rosetta::Model" in
your code; instead refer to other abov <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26270	26370	
==>bset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30822	30922	
==>bset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
of the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7490	7631	
==>$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7490	7631	
==>$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32816	32916	
==>es.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic binary re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37366	37466	
==>es.

=item C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic binary re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2448	2565	
==>es with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2448	2565	
==>es with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50153	50284	
==>(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:authorit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5593	5702	
==>@_;
    return $S->force_object(anyof_class => $S->force_object(vert => 1)) if $cc;
    return $S->object(vert <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	317	482	
==>{
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	317	482	
==>{
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13840	13965	
==>isc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13898	14023	
==>isc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a te <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7972	8074	
==>n the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7972	8074	
==>n the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8518	8635	
==>lly omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # < <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8518	8635	
==>lly omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # < <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10334	10458	
==>y Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	419	538	
==>t unless $class =~ /^Blondie::(\w+)$/;
        next if __PACKAGE__->can($1);

        no strict 'refs';
        push @EX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2373	2496	
==>le> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2620	2743	
==>le> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11651	11768	
==>$queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11651	11768	
==>$queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3337	3440	
==>t iterators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1464	1563	
==>1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1464	1563	
==>1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') fo <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5247	5358	
==>rsion\s*(\S+)/s)[0]; 
    };

    my ($ghc_version) = $test_ghc_ver->($ghc);

    if (!$ghc_version and (    $Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12913	13017	
==>ames then it is generally not
possible to tell which of the returned values belonged to which field.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12913	13017	
==>ames then it is generally not
possible to tell which of the returned values belonged to which field.

=it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16869	16967	
==>t-Encoding header field is used as a modifier to the
media type.  When present, its value indicates <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16869	16967	
==>t-Encoding header field is used as a modifier to the
media type.  When present, its value indicates <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9640	9751	
==>my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9640	9751	
==>my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7802	7909	
==>result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNO <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7802	7909	
==>result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1770	1876	
==>xists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1770	1876	
==>xists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15454	15585	
==>should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15448	15579	
==>should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1]     ? do { $direction$di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1712	1822	
==>t seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
spec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1712	1822	
==>t seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see thread "Syntax for
spec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3696	3834	
==>[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3889	4027	
==>[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2717	2880	
==>te = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2627	2785	
==>te = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4916	5022	
==>ish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then clears the obje <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4916	5022	
==>ish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then clears the obje <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12886	12989	
==>aracter.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12886	12989	
==>aracter.  Under perl 5.6 and earlier only
characters in the Latin-1 range are replaced. Unrecognized
ent <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3248	3511	
==>st');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3248	3511	
==>st');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1481	1629	
==>ons on : @_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1430	1573	
==>ons on : @_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2178	2266	
==>ron/Teaching/383/regexp-plg.html
Without their work, I almost certainly would have punted <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2957	3095	
==>lass;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3504	3642	
==>lass;
    return $self;
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3256	3372	
==>ad.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3256	3372	
==>ad.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expre <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	44	140	
==>:Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use strict;
use war <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3183	3276	
==>p->set_x(100);
is($p->get_x, 100, '... got the right x for p2');
cmp_ok($p->id, '==', $old_p_i <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1033	1148	
==>$self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->w <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1924	2039	
==>$self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19651	19785	
==>f =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16072	16206	
==>f =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off . <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2856	3011	
==>length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2856	3011	
==>length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Val <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7307	7426	
==>eded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7307	7426	
==>eded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16610	16847	
==>r'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaq <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	968	1073	
==>revious => sub {...}, universe => $universal_set )`

Create a recurrence set with full bidirectional funct <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	968	1073	
==>revious => sub {...}, universe => $universal_set )`

Create a recurrence set with full bidirectional funct <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12738	12835	
==>ut the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12738	12835	
==>ut the time part.

Discrete spans take a "units" specifier, which can be either `:int` or `:densit <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1590	1753	
==>t->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YAML::Dump(@_) }
sub ::YY { require Carp; Carp::conf <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	705	808	
==>%Session{$_}));
    }
    return @coded.join('&');
}
 
sub SessionDecode($data) {
    for(split('&',$dat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2734	2839	
==>, the encryption 
can be removed by XORing them together; you might not be able to derive the 
plaintext f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2734	2839	
==>, the encryption 
can be removed by XORing them together; you might not be able to derive the 
plaintext f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4858	4973	
==>( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4858	4973	
==>( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.spa <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	783	890	
==>at the class level too

    method notify (Class::Events::Event $event) {
        (.get_subscriptions($event <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13404	13536	
==>($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13404	13536	
==>($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo ev <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5013	5197	
==>atives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4229	4405	
==>atives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3013	3122	
==>n $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3013	3122	
==>n $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3676	3820	
==>}

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3816	3960	
==>}

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $sta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23244	23348	
==>.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23244	23348	
==>.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#ch <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1	99	
==>!/usr/bin/perl -CDS

# A typed lambda calculus in perl6-ish perl 5
# (makes use of attribute gramma <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11647	11740	
==>,
otherwise C<cmp>.

=item Pair(KeyExtractor, Comparator)

A combination of the two methods ab <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13815	13916	
==>itrd_gz and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_img <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2855	2970	
==>url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- mak <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2855	2970	
==>url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- mak <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8824	8929	
==>1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8824	8929	
==>1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_par <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2752	2862	
==>sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::T <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	58	163	
==>catfile( tmpdir(), "pugs-session" );
mkdir($Path) unless -e $Path;

sub SessionInit() {
    my %Session=() <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1946	2071	
==>sion';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1946	2071	
==>sion';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5092	5190	
==>phering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, bu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5092	5190	
==>phering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16838	16990	
==>"# EXPECTED:\n", $resolve->(), "\n";
        _diag "# GOT:\n$results\n";
        _diag "# STATUS: $status\n";
    }

    # Use the first line of the prog <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	14	112	
==>::MM::Attribute;

use Perl6::Core::Symbol;

package attribute;

use strict;
use warnings;

use Carp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	810	941	
==>ture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	803	934	
==>ture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	147	285	
==>g = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $Config{osname} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17312	17413	
==>oIn :words {  # see 11.10
      <BitwiseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <Bit <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3404	3522	
==>dic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3404	3522	
==>dic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33089	33210	
==>k {
    my ($self, $walk_stack, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5726	5841	
==>G \Z \z $
  package Regexp::Parser::anchor;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $re = $o->ra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2241	2360	
==>s.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2241	2360	
==>s.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request me <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18581	18672	
==>xport_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18581	18672	
==>xport_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14165	14300	
==>" {\n" . _emit( $n->{bare_block} ) . "\n }";
        #}
        return 'eval ' . _emit( $n->{exp1} ) . "; " . 
            _mangle_va <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31756	31918	
==>counter'));
                    $e->set('$counter' => $e->get('$counter')->increment);                        
                    return $e->get('@values')->fetch <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9995	10116	
==>info,$args);
    }
    my $code_param_info = join(",",@param_info);
    my $my_args = "";
    if(@$params) {
        my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15825	15982	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16104	16261	
==>uleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::conc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	581	690	
==>nt_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	581	690	
==>nt_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16375	16500	
==>compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16375	16500	
==>compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3439	3556	
==>nless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, n <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3439	3556	
==>nless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cookie, n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4372	4499	
==>thod from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   su <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4372	4499	
==>thod from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   su <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	438	529	
==>::TreeBuilder;
use HTML::Entities;
use List::Util 'first';
use Regexp::Common qw/balanced de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	654	760	
==>tr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	654	760	
==>tr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2634	2724	
==>val $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2634	2724	
==>val $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_gramma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2700	2808	
==>ow our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2700	2808	
==>ow our username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servernam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	84	197	
==>{
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	84	197	
==>{
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4587	4719	
==><*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4587	4719	
==><*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7078	7183	
==>:= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it is a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7078	7183	
==>:= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in general it is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	720	832	
==>Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	720	832	
==>Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9563	9670	
==>d');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9621	9728	
==>d');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16179	16285	
==>if) = { env($$) }
cond: env($.then) = { env($$) }
cond: env($.else) = { env($$) }

cond: generic_in($.if) = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	406	502	
==>th non-default settings, and so is not intended for
"general" use.  It's more of a pugs bootstrap <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	492	602	
==>");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source code ge <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	492	602	
==>");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source code ge <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12814	12909	
==>!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12872	12967	
==>!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$dep <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2406	2518	
==>to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varle <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2406	2518	
==>to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varle <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	969	1083	
==>ne(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	969	1083	
==>ne(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!memb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17697	17877	
==>odes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17697	17877	
==>odes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	884	1066	
==>pping :%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    return %! <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	393	492	
==>if($bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
  $m = match($r,$str);
} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2536	2639	
==>the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2536	2639	
==>the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7660	7799	
==>ts $n->{self}{op1} ) {
            # %var<item>.++;
            #warn "method: ", Dumper( $n );
            return " " . _emit( $n->{meth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17792	17901	
==>X finish


XXX What exactly _is_ intuit, and do we care?


=cut


=pod

=head1 Perl5's struct regexp and its a <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3226	3455	
==>vents<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpola <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3226	3455	
==>vents<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpola <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7057	7181	
==>op },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7057	7181	
==>op },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Arra <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10807	10928	
==>or.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10807	10928	
==>or.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3488	3662	
==>er::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
... <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3488	3662	
==>er::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	672	780	
==>::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$string.isa( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15203	15300	
==>such).  C<$ml> may be empty if Test::Harness doesn't think you're
on TTY.

The C<$width> is the wi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2799	2921	
==>@pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2799	2921	
==>@pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18326	18421	
==>ines will employ appropriate measures
such as system-managed locks so that resource corruption o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18326	18421	
==>ines will employ appropriate measures
such as system-managed locks so that resource corruption o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12232	12327	
==>eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12232	12327	
==>eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9568	9695	
==>_macos    = $^O eq 'MacOS';
my $is_vms      = $^O eq 'VMS';

sub _quote_args {
    my ($runperl, $args) = @_;

    foreach (@$ar <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1381	1484	
==>ted_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1439	1542	
==>ted_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20172	20270	
==>oose to declare that its result not be recompiled by
some other containing parser. In this case the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20172	20270	
==>oose to declare that its result not be recompiled by
some other containing parser. In this case the <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28042	28140	
==>t int", ":t map (\\x -> 10 + x)");

dies_ok { t($flatten_polymorphic) } "can't type λf.(pair (f 3) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6809	6957	
==>nd of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6809	6957	
==>nd of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::Li <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1023	1146	
==>ect {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1023	1146	
==>ect {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3385	3481	
==>.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuratio <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3385	3481	
==>.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style configuratio <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6318	6437	
==>ins.

=back

=item getprint($url)

Get and print a document identified by a URL. The document is printed
to the selected <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6318	6437	
==>ins.

=back

=item getprint($url)

Get and print a document identified by a URL. The document is printed
to the selected <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4152	4324	
==>$a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4164	4336	
==>$a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12034	12135	
==>code_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12034	12135	
==>code_entities($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5146	5283	
==>f (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5146	5283	
==>f (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! S <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5228	5341	
==>t_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5228	5341	
==>t_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4742	4893	
==>en rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@mo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4742	4893	
==>en rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should die
                (+@mo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8032	8149	
==>ers.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8032	8149	
==>ers.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10539	10669	
==>callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10539	10669	
==>callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1163	1256	
==>rint("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handl <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1163	1256	
==>rint("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handl <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	750	864	
==>e.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	750	864	
==>e.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27157	27251	
==>item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31709	31803	
==>item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relati <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	494	607	
==>This object represents a Role.

A Role is a composable unit of behaviour; which includes;

=over

=item *

unbound <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2710	2814	
==>ns String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submet <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2710	2814	
==>ns String { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submet <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14915	15070	
==>,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15194	15349	
==>,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::option <==
2	/Users/nnunley/pugs/util/run-smoke.pl	916	1018	
==>Could change directory: $!";

# '.' needs to be at the front of the path for everything to find the cor <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5655	5776	
==>->{$name} = reference->new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11249	11354	
==>th_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardable <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11249	11354	
==>th_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardable <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4136	4240	
==>return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4985	5089	
==>return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return g <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1841	1985	
==>method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1841	1985	
==>method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10319	10441	
==>expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If yo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10377	10499	
==>expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If yo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15790	15900	
==>should see more details than joe public would.

Alternately, sometimes a program will raise a condition or erro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15790	15900	
==>should see more details than joe public would.

Alternately, sometimes a program will raise a condition or erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23887	24007	
==>}xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen| <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20308	20428	
==>}xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen| <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	733	838	
==>ss in a use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	733	838	
==>ss in a use/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11651	11875	
==>que'), 
                              symbol->new('?%params' => 'hash')
                          ),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                $e->get( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10475	10564	
==>sLazy, paramName=>$paramName, paramContext=>$paramContext, paramDefault=>$default };
}

NO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19171	19270	
==>tion layers for any other programming language can
be supported, such as Tutorial D or XQuery or Fox <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19171	19270	
==>tion layers for any other programming language can
be supported, such as Tutorial D or XQuery or Fox <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1153	1430	
==>size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1153	1430	
==>size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3640	3738	
==>ntation lacks the actual algorithm description. See links or read
the source (there are about 10 li <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3640	3738	
==>ntation lacks the actual algorithm description. See links or read
the source (there are about 10 li <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12457	12561	
==>)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12457	12561	
==>)>

=head2 C<$set1 E<gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4494	4597	
==>F!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4494	4597	
==>F!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8733	8842	
==>seriously, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be mag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8443	8549	
==>seriously, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be mag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1797	1908	
==>kage main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1797	1908	
==>kage main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $match  = Gr <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	230	375	
==>our
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till w <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	230	375	
==>our
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till w <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	6008	6106	
==>05 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistribute it
and/ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	6008	6106	
==>05 Joshua Gatcomb. All rights reserved.
This program is free software; you can redistribute it
and/ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5801	6043	
==>t_thunk'),
                    Sym->new('$right_thunk'),
                ),  
            ),
        ),
    ),
    '&say' => Thunk->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7605	7707	
==>atal Errors

B<If there is a compilation-stopping error>, $parser->errmsg will return
that error messag <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	636	778	
==>iphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	636	778	
==>iphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    met <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3872	3991	
==>}

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$k <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	102	201	
==>ackage Module::Install::Win32;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSIO <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3181	3285	
==>[<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | reg <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3181	3285	
==>[<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | reg <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1417	1512	
==>/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1257	1352	
==>/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.ex <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6838	6986	
==>ist      pre     Pair::kv      safe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::split   safe   (Str)\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	116	235	
==>{
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	116	235	
==>{
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a chann <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1122	1249	
==>ib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub f <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1122	1249	
==>ib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6657	6776	
==>ing() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6657	6776	
==>ing() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7337	7565	
==>ewnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7337	7565	
==>ewnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24735	24900	
==>&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25014	25179	
==>&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = su <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	930	1042	
==>izations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_eq <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	930	1042	
==>izations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_eq <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8293	8519	
==>und ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sort <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8757	8983	
==>und ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sort <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8328	8430	
==>ers.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8328	8430	
==>ers.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3278	3387	
==>rmalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3278	3387	
==>rmalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7341	7476	
==>( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7329	7464	
==>( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22990	23084	
==>ebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22990	23084	
==>ebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2550	2648	
==>ve object support, this module is more like the
Perl 5 File::Spec::Functions module than the base F <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2550	2648	
==>ve object support, this module is more like the
Perl 5 File::Spec::Functions module than the base F <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16660	16760	
==>dule is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16660	16760	
==>dule is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31263	31360	
==>ooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31263	31360	
==>ooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
sets in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3763	3858	
==>losure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3763	3858	
==>losure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previou <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25358	25453	
==>btests statistics like the
above are printed.

=item C<Test returned status %d (wstat %d)>

Scri <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	22	122	
==>er;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakef <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	22	122	
==>er;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakef <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	19	116	
==>0 2003-09-11 15:57:29Z andy $

package Test::Harness::Assert;

use strict;
require Exporter;
use v <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18461	18595	
==>('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do_while(
                    block->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41726	41824	
==>('WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	832	957	
==>ail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17020	17138	
==>Exp")
    $P0 = 0

    $P0 = find_global "PGE::Rule", "p6rule"
    exp = $P0(exp)
    unless exp goto end
    $S0 = exp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2288	2482	
==>rint("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_ty <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2288	2482	
==>rint("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_ty <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1506	1603	
==>ath );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1506	1603	
==>ath );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_u <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	382	493	
==>∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	382	493	
==>∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22999	23100	
==>s always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22999	23100	
==>s always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12766	12906	
==>ay} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{exp2} ) . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6788	6917	
==>'', $s" . ', "\n"';
        }
        if ( $n->{method}{bareword} eq 'perl' ) {
            return 'Pugs::Runtime::Perl6::perl( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6726	6841	
==>t_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6726	6841	
==>t_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12225	12345	
==>ject, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12225	12345	
==>ject, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
    my $event = {
      line <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	258	359	
==>r();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	258	359	
==>r();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2185	2289	
==>nce => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2185	2289	
==>nce => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6345	6460	
==>$self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -I <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6345	6460	
==>$self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -I <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2063	2168	
==>ir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2063	2168	
==>ir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40349	40448	
==>AME => VALUE, FMTSTRING
  use constant err_FOOBAR => 1, 'You broke the %s';
  use constant err_TOOBI <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20415	20515	
==>g_code($code);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1366	1481	
==>et( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1366	1481	
==>et( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20337	20435	
==>as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; yo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24889	24987	
==>as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; yo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5403	5547	
==>efined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5403	5547	
==>efined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir. <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	113	225	
==>equire;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.cal <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	113	225	
==>equire;
has Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.cal <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	558	657	
==>UEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	558	657	
==>UEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length return <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11553	11691	
==>se {
            # List unrun tests as failures.
            if ($test{'next'} <= $test{max}) {
                push @{$test{failed}}, $tes <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6203	6328	
==>e also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

met <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6203	6328	
==>e also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

met <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11678	11824	
==>failed}}, $test{'next'}..$test{max};
            }
            # List overruns as failures.
            else {
                my $details = $resul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31288	31389	
==>eneral family of this object.

=item data

The data or children of this object.

=item dir

The direct <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22217	22344	
==>, so you must use accessor methods.  Rosetta
does not declare any subroutines or export such.

The usual way that Rosetta indica <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22217	22344	
==>, so you must use accessor methods.  Rosetta
does not declare any subroutines or export such.

The usual way that Rosetta indica <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	951	1061	
==>_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	918	1028	
==>_dir} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	158	281	
==>~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	158	281	
==>~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1419	1566	
==>.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1419	1566	
==>.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %header <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14724	14855	
==>ic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14724	14855	
==>ic seen for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/P <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18968	19077	
==>id' function, this won't work if we pass in $plus_ten
my $flatten_polymorphic = fun(
	param => "f",
	body => c <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1059	1169	
==>makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no argum <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1950	2060	
==>makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no argum <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47794	48063	
==>l' => 'symbol'), 
                              symbol->new('$value' => 'type'),                               
                          ),
                returns => 'nil'
            ),            
            sub {
                my $e = shift;
                $e-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	424	575	
==>*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	424	575	
==>*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2035	2131	
==>est := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2093	2189	
==>est := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	909	1026	
==>from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	909	1026	
==>from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26485	26586	
==>y tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation::Example Is Mutable>

B <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6726	6846	
==>I0 = index target, "\n", pos
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattrib <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25892	25988	
==>scalar, makes it work (!).

B<These functions can only work if called with ampersands, and only i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9034	9182	
==>h->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op} ),

        };

        return $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8719	8863	
==>h->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op} ),
        };
        return $match <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3065	3158	
==>{
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::count ::= & <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3065	3158	
==>{
    $self.difference($other).union($other.difference($self));
}

our &Set::Hash::count ::= & <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10426	10543	
==>it.
HELP

  my @files = (
    [$pugs                 => "$initrd_mnt/bin/pugs"],
    ["$parrot_path/parrot" => "$initr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18943	19051	
==>le) {
	open($eval_log_file,">>deleteme_code.pl") or die $!;
    }
    print $eval_log_file $code,"\n" if $eva <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1957	2082	
==>STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1957	2082	
==>STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
method content ($self: Str $conten <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	272	393	
==>d($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	272	393	
==>d($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1994	2128	
==>erse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym( <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1994	2128	
==>erse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4399	4503	
==>n($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4399	4503	
==>n($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12019	12139	
==>est),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12019	12139	
==>est),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6887	7007	
==>ization - return the internal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6887	7007	
==>ization - return the internal list object, if there is one
    return Perl6::Value::List.new(
            cstart => sub { <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15812	15923	
==>Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20045	20156	
==>Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20691	20786	
==>he C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20691	20786	
==>he C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22312	22420	
==>= let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22589	22697	
==>= let(
	ide => "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4997	5130	
==>return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5190	5323	
==>return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23760	23891	
==>f this scope

  # so if we're a (?:...), copy-and-push
  if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{ne <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	88	183	
==>stall/Compiler.pm"
package Module::Install::Compiler;

use strict;
use Module::Install::Base;
us <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	234	345	
==>rride
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	234	345	
==>rride
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	606	708	
==>\%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	606	708	
==>\%named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23749	23843	
==>ot used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23749	23843	
==>ot used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution
than <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	475	581	
==>rn &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	475	581	
==>rn &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22548	22668	
==>a partial implementation, in the form of several
roles, for a Relation data type that corresponds to the "relation" of lo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1057	1150	
==>directional functionality.

The complementary functions are emulated using iterations.

- `new <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1057	1150	
==>directional functionality.

The complementary functions are emulated using iterations.

- `new <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	452	563	
==>@*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purp <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	452	563	
==>@*INC, but do not allow duplicates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11236	11360	
==>_any => sany => '.');
  });


  ### '|'

  $self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7500	7608	
==>ted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7558	7666	
==>ted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25944	26037	
==>ving this original copyright notice and other credits.
Rosetta is distributed in the hope that <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25944	26037	
==>ving this original copyright notice and other credits.
Rosetta is distributed in the hope that <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6331	6449	
==>is' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6331	6449	
==>is' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1inf <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7874	7979	
==>if(ref($v)) {
		rebless_with_prefix_and_cleanup($v,$prefix);
	    } elsif(defined $v) {
		$$o{$_} = "$pref <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	532	629	
==>$body = substr($<block>, 1, -1);
	$body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6373	6481	
==>name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6373	6481	
==>name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3942	4048	
==>->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__

#line <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5301	5407	
==>->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END__

#line <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6039	6149	
==>not get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6039	6149	
==>not get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2364	2493	
==>H_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %* <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2364	2493	
==>H_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2667	2783	
==>het mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for arra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2851	2967	
==>het mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for arra <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	933	1031	
==>ponding tests

  Options:
    --p6design_dir  Directory containing the perl6 design docs apo/exe/sy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1595	1723	
==>=> substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1530	1654	
==>=> substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    retur <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1039	1133	
==>->new("SHA-1");
	$digest->add($c_code);
	my $sha1 = $digest->digest;

	$cache{$sha1} ||= $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3294	3420	
==>]+
    |   <before \< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->code;

sub recompil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2230	2368	
==>ecedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '!=',
        assoc => 'left',
        prece <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	900	1051	
==>lse { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	913	1055	
==>lse { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1043	1178	
==>il  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1000	1131	
==>il  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7882	7987	
==>ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7613	7714	
==>ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19770	19879	
==>xed.

=back

=head2 0.02 -- July 1, 2004

=over 4

=item Better Abstracting

The object() method calls force_o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10759	10900	
==>$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn rang <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10759	10900	
==>$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34205	34298	
==>and upper bounds, both I<anyof_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10356	10461	
==>= ' -MMac::err=unix' if $args{stderr};
	}
	else {
	    $runperl .= ' "-I../lib"'; # doublequotes because o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3494	3593	
==>talled.

An improperly installed C<Pugs::Compiler::Rule> module would prevent the Perl 6 compiler
fr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5034	5135	
==>so loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5034	5135	
==>so loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3865	3977	
==>er

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with the Meta Object Protocol (implemente <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3728	3837	
==>er
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with the Meta Object Protocol (implemente <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2759	2875	
==>removed by XORing them together; you might not be able to derive the 
plaintext from the result, but any cryptographe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2759	2875	
==>removed by XORing them together; you might not be able to derive the 
plaintext from the result, but any cryptographe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	115	244	
==>t.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	115	244	
==>t.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6179	6276	
==>node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6179	6276	
==>node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6157	6288	
==>%!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6157	6288	
==>%!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        % <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22232	22328	
==>ation -
Relations for Perl 6

=head1 VERSION

This document describes Relation version 0.1.0.

It <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6110	6203	
==>led to open $syn_index: $!";
    $template = HTML::Template->new(filename => 'util/catalog_tmp <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1596	1695	
==>~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @Mo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1596	1695	
==>~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1198	1309	
==>ule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "neg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1209	1320	
==>ule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "neg <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	255	376	
==>opy, Str ?$file is copy) returns Class {
	@.known_parsers = ();

	$dir //= catfile((splitpath(%*INC<XML/SAX.pm>))[1], 'SAX <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	761	864	
==>t_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	819	922	
==>t_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1664	1781	
==>, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1664	1781	
==>, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	840	957	
==>ound',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	840	957	
==>ound',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Requ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2692	2803	
==>g} ? '\W' : '\w';
  }
}


{
  # \s \S
  package Regexp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22562	22654	
==>ote that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22562	22654	
==>ote that the
socket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>(" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4371	4461	
==>------------------------------------------
## BOOTSTRAPPING Roles
## ---------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4394	4484	
==>-------------------
## BOOTSTRAPPING Roles
## --------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1884	2007	
==>=> 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1884	2007	
==>=> 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4536	4663	
==>ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4536	4663	
==>ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix( $matc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	309	458	
==>e => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    my $tmpl = {
        file => { requi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4256	4371	
==>e "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4256	4371	
==>e "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14068	14199	
==>charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .local string target
    .local int pos, lastpo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3821	3926	
==>ss "test argument must be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.te <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24108	24249	
==>ass->send('add_method' => (
    # method label
        symbol->new('superclasses'),
    # method body
        method->new(
            $::ENV, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8679	8792	
==>sh, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8667	8780	
==>sh, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6788	6893	
==>load an external Perl template module; on a require
        # failure, we assume that module intentionally <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6788	6893	
==>load an external Perl template module; on a require
        # failure, we assume that module intentionally <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20612	20709	
==>want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20612	20709	
==>want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1266	1398	
==>$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1266	1398	
==>$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	883	1010	
==>, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	883	1010	
==>, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.define <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8995	9104	
==>d, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher:: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8995	9104	
==>d, distributed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher:: <==
2	/Users/nnunley/pugs/util/func_refact.pl	1028	1147	
==>ub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8068	8172	
==>.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, followed by any te <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8068	8172	
==>.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, followed by any te <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2749	2888	
==>n && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2749	2888	
==>n && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16651	16756	
==>self = shift;
    my $node = shift;

    return Val->new($self->reduce($node->val));
}

package Dumper;
us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14662	14765	
==>nqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14662	14765	
==>nqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2753	2897	
==>'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./ge <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2753	2897	
==>'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./ge <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3350	3437	
==>d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3350	3437	
==>d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	945	1055	
==>'.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM->ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8631	8724	
==>--> "x", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([])     --> {true}.

p5_charset_def( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1295	1407	
==>show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1295	1407	
==>show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Ro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7850	7952	
==>c($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7850	7952	
==>c($child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1742	1845	
==>Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connectio <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1742	1845	
==>Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connectio <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5727	5828	
==>ems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5727	5828	
==>ems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only method that <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16152	16311	
==>aram ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16146	16305	
==>aram ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18544	18671	
==>')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an openin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14965	15092	
==>')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an openin <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6660	6778	
==>hat name for the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4670	4805	
==>ction( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4670	4805	
==>ction( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7918	8005	
==>l6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_sc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1743	1830	
==>l6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_sc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33306	33404	
==>rrent
depth in the walking stack.  Elements are taken from the I<front> of the
walking stack, so we <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7006	7153	
==>print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6994	7141	
==>print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7595	7749	
==>n
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # inter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7595	7749	
==>n
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the message key, so
        # inter <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4052	4183	
==>GURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=val <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4052	4183	
==>GURATION FILE SYNTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=val <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	447	549	
==>hange #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	447	549	
==>hange #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	119	218	
==>ar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement the "magic hash" dispatcher
o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	76	173	
==>', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	207	304	
==>', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
use Pugs::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27814	27917	
==>()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27814	27917	
==>()>

This method returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3421	3534	
==>aders.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3421	3534	
==>aders.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4920	5056	
==>e next one
            next if $self->has_method($method_name);
            # otherwise ... add the method in 
            $self->add_met <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9150	9275	
==>{osname} eq 'cygwin') {

            warn "*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # If the file exi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	867	1001	
==>}
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    return $self;
}

package Test::Harness::Iterator::FH;
sub nex <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6369	6484	
==>($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volum <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6369	6484	
==>($_base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volum <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4193	4340	
==>variable
                (\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4205	4352	
==>variable
                (\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2080	2178	
==>ad1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2002	2097	
==>ad1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	401	506	
==>ven the cruft
of wrapping a map and join around the macro string.  But perhaps there
should be a Helpers:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23697	23810	
==>es.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implements a reference implementat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23697	23810	
==>es.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with Rosetta and
implements a reference implementat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1526	1685	
==>nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1474	1627	
==>nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1619	1754	
==>ls}[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name = "r$_";
        $rule_na <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1916	2030	
==>Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return $args{_self} if $args{_self};

    $args{dis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	730	843	
==>down}) {
      Carp::carp("ender() ignored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tai <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	97	193	
==>ching subs you want to debug'}
* adds use Smart::Comments (if it matches the supplied regex) or
n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4721	4858	
==>d    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4721	4858	
==>d    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1581	1686	
==>}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1581	1686	
==>}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23334	23435	
==><nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23334	23435	
==><nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21608	21812	
==>),
					),
				),
            ),
        ),
        in => comb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16087	16209	
==>t, it suffices.
# This script doesn't run as root, anyway.
sub check_for_evil_chars {
  local $_;
  for(@_) {
    die "Erro <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3492	3592	
==>nite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3492	3592	
==>nite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An objec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10236	10369	
==>ing  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10236	10369	
==>ing  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21102	21210	
==>the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21102	21210	
==>the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header() or any of t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5074	5164	
==>ct-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5074	5164	
==>ct-oriented
interface provided by the C<LWP::UserAgent> module.

The following functions ar <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	638	739	
==>d guess of whether we'll need root permission.
print "    (You may need to do that as the 'root' user. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	171	304	
==>yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	171	304	
==>yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21569	21687	
==>estat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed_s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1318	1436	
==>ator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "Did not understand <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6566	6698	
==>parsing error in Expression: ..." . substr($match,0,30) . "... "; },
    );

    my $out=$p->YYParse;
    #print Dumper $out;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1348	1456	
==>f ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1348	1456	
==>f ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10912	11056	
==>,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11191	11335	
==>,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::captur <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	955	1051	
==>lti sub Array::grep (@values,   MatchTest $test  ) returns Lazy
 multi sub  Perl6::List::grep (Ma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	229	321	
==>er::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Object ();

{
	package Blondie::Backend: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6977	7106	
==>ole'), '... Role now does Role');

## create some roles
my $rFoo = $Role->new(
    '$:name' => 'rFoo',
    '%:methods' => { foo => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2065	2207	
==>ir($config->repo_index)
        ));
        $obj->index_file((defined $index_file
                    ? file($index_file)
                    : <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1151	1249	
==>:Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1151	1249	
==>:Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may h <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	850	951	
==>tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching mor <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	850	951	
==>tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matching mor <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	606	712	
==>_links {
	warn "lib_links has been changed to cc_lib_links due to confusion between Perl and C";
	shift()-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3399	3526	
==>";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3399	3526	
==>";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variabl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1110	1212	
==>s two parameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1110	1212	
==>s two parameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15567	15677	
==>ng access to information details, or their technical
skills.  For example, a native French or Chinese speaker o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15567	15677	
==>ng access to information details, or their technical
skills.  For example, a native French or Chinese speaker o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2483	2609	
==>a
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2483	2609	
==>a
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17194	17317	
==>lts to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVIT <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17194	17317	
==>lts to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVIT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3092	3447	
==>cts will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encodin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3092	3447	
==>cts will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encodin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2102	2209	
==>O - add support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error mes <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2102	2209	
==>O - add support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error mes <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	138	235	
==>it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	138	235	
==>it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16207	16299	
==>user instead.

Locale::KeyedText provides a simple but effective mechanism for
applications a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16207	16299	
==>user instead.

Locale::KeyedText provides a simple but effective mechanism for
applications a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3810	3946	
==>e = 'test';

        $totals->{seen}++;
        $result{number} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5315	5455	
==>r, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*"));
        chdir '..';
        chdir '..';
        rmd <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9704	9820	
==>"&laquo;";
      } else {
	elem.className = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	634	755	
==>_WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	634	755	
==>_WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10814	10930	
==>leted, so you may not want
    to link directly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note t <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	511	611	
==>erated by util/file_to_hs.pl
    from $in.
-}
EOF
print OUT "$data :: String\n";
print OUT "$data = \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3774	3900	
==>as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3786	3912	
==>as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Name <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5816	5911	
==>128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5816	5911	
==>128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1868	2097	
==>~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15928	16123	
==>apture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15922	16117	
==>apture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	712	825	
==>fy ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	712	825	
==>fy ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:perl5/^ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14795	14917	
==>"MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14795	14917	
==>"MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9450	9540	
==>plication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3275	3365	
==>plication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2205	2300	
==>ce

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuous <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2205	2300	
==>ce

The Cipher API's functional interface is perhaps the easiest one that allows 
for continuous <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5398	5549	
==>f->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _sl <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5916	6041	
==>f->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _sl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6529	6733	
==>> $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6529	6733	
==>> $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7750	7850	
==>end);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn(exp,xend-exp)));
    XPUSHs(sv_2mortal(newSV <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3973	4083	
==>pe, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3973	4083	
==>pe, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LVa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1720	1910	
==>elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_bloc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4996	5121	
==>ight->fetch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3480	3609	
==>capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3468	3597	
==>capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4895	4993	
==>'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4895	4993	
==>'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6604	6719	
==>ile to locate the case-preserved
        # version of the package name.
        if ( $subpath eq lc($subpath) || $su <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2226	2396	
==>say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2226	2396	
==>say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20595	20698	
==>le if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20595	20698	
==>le if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set i <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2665	2760	
==>compiler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/grou <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2665	2760	
==>compiler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/grou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	491	656	
==>:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	491	656	
==>:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40960	41058	
==>the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

O <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40960	41058	
==>the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

O <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2344	2443	
==>w function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first ele <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2344	2443	
==>w function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first ele <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16270	16371	
==>l documentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new hi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16270	16371	
==>l documentation for much of that.

The Rosetta Native Interface is defined mainly in terms of a new hi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6063	6177	
==>my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6063	6177	
==>my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_b <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11425	11572	
==>_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initrd",
    ensure = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	259	366	
==>elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    return $class->no_match unless $_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12970	13069	
==>1.5
      <'{'> <'}'>
    | <'{'> <PropertyNameAndValueList> <'}'>
}
rule PropertyNameAndValueList : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4569	4673	
==>{'macro_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> $<prefix> := (<word> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2475	2598	
==>ge ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)).join($ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2475	2598	
==>ge ne $message;
        $status_line ~= " $message";
        
        return ($status_line, ../as_string($newline)).join($ne <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5674	5770	
==>pan.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5674	5770	
==>pan.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5700	5800	
==>lex';
    return new_box('Str',@_) if $cls eq 'Str';
    return get_meta('Ref')->new('$.referred',@_) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	652	772	
==>::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	652	772	
==>::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29110	29244	
==>get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (opaque $self: symbol $order) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3635	3736	
==>_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6089	6200	
==>().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6089	6200	
==>().get_child($index);
}

method  get_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	562	679	
==>ns to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generate <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	535	647	
==>ns to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generate <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15891	15996	
==>open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15891	15996	
==>open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are times, then `si <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27215	27315	
==>ion>

This method is a generic relational operator that returns a new Relation
which has a superset o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31767	31867	
==>ion>

This method is a generic relational operator that returns a new Relation
which has a superset o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5463	5573	
==>(and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5463	5573	
==>(and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5571	5807	
==>me = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6420	6656	
==>me = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3252	3367	
==>1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3436	3551	
==>1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	375	504	
==>$rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	472	601	
==>$rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    B <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8336	8436	
==>ts, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2161	2261	
==>ts, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8200	8318	
==>", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([x|L])  --> "x", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos(L <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35098	35304	
==>xt') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	451	553	
==>nes) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security's 
RC4( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	451	553	
==>nes) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Security's 
RC4( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7360	7468	
==>iles;
}

### these plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7745	7853	
==>eason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7745	7853	
==>eason) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      d <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1235	1346	
==>o find out the program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), nex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1171	1273	
==>o find out the program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), nex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5543	5667	
==>turn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5555	5679	
==>turn;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27977	28071	
==>sociated with
the variable name specified in the positional parameter $var_name (a
string).

=i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27977	28071	
==>sociated with
the variable name specified in the positional parameter $var_name (a
string).

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5730	5877	
==>gs = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6579	6726	
==>gs = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper( <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4837	5001	
==>{
        $x_round = round_ceiling($x);
    }
    elsif $x > 0 {
        $x_round = round_floor($x);
    }
    else {
        $x_round = 0;
    }

    return $x_roun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35942	36052	
==>and the argument
of 1 means it's a look-ahead.  We send the unrolled contents of the
array reference as the con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6079	6219	
==>am} ) . ')';
    }
    
    if ( $n->{op1} eq 'method_call' ) {    
        #warn "method_call: ", Dumper( $n );
        if ( $n->{metho <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17631	17735	
==>(
    header => \&header_handler,
    test => \&test_handler,
    bailout => \&bailout_handler,
);

$Stra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2143	2252	
==>$self)=@_;
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	return 1 if defined $result && <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10999	11113	
==>ub {
    my ($S) = @_;
    return $S->object(branch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8408	8518	
==>_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8466	8576	
==>_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14241	14343	
==>d.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have to tra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14241	14343	
==>d.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have to tra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16296	16393	
==>ns and packages that empowers single binaries to support N
locales or user types simultaneously, a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16296	16393	
==>ns and packages that empowers single binaries to support N
locales or user types simultaneously, a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1978	2077	
==>local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1978	2077	
==>local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8551	8652	
==>:operator::binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5833	5948	
==>it(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5833	5948	
==>it(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9376	9493	
==>f $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quan <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16892	17038	
==>st;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16892	17038	
==>st;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	49	147	
==>s;

use Params::Check   qw[check];

use JIB::Constants;
use JIB::Config;

use base 'Object::Accesso <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2851	2958	
==>0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2839	2946	
==>0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8642	8752	
==>'(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6175	6281	
==>'(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/looser/equiv 
 # other=>'+' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2338	2459	
==>$who - $sym";
        unshift @_, ($self, $1);
        goto &{$self->can('call')} unless uc($1) eq $1;
    };
}

sub impor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11544	11681	
==>ck = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11823	11960	
==>ck = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6907	7011	
==>{ $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Content-Encodi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6907	7011	
==>{ $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Content-Encodi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2469	2727	
==>{
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2469	2727	
==>{
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4606	4838	
==>)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_heading);

# Lo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6364	6466	
==>s{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6364	6466	
==>s{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3910	4016	
==>ethods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3910	4016	
==>ethods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8744	8868	
==>revious => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8744	8868	
==>revious => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5234	5366	
==>fset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() off <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3734	3866	
==>fset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() off <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17209	17310	
==>pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the following b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17209	17310	
==>pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the following b <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	464	602	
==>", 1, sub {
            my $match = execute($re, $_[0], 0);
            my @rv = ((@$match ? 1 : 0), undef, undef, @$match);
            re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14042	14150	
==>wrong $^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl' a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2919	3020	
==>e less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill() <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2919	3020	
==>e less than I<N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill() <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1006	1129	
==>t:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %!m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1006	1129	
==>t:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message.
    has Any %!m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21589	21706	
==>}, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18010	18127	
==>}, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16274	16363	
==>0,_,E0,_).
rm(lookbehind_not(Re),F0,F0,B0,B0,E0,E0) :- \+(rm(Re,B0,_,F0,_,E0,_)).

rm(modi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15724	15823	
==>blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15724	15823	
==>blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23104	23228	
==>),
);

my $map = let(
    ide => "map",
    is => fun(
	param => "f",
	body => fun(
		param => "xs",
		body => cond(
			if => <==
2	/Users/nnunley/pugs/util/build_pugs.pl	107	202	
==>kpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPrefs;
use Co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3923	4025	
==>et1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3923	4025	
==>et1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25054	25153	
==>ms and conditions of the GPL
cover the whole combination.  As a special exception, the copyright hol <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25054	25153	
==>ms and conditions of the GPL
cover the whole combination.  As a special exception, the copyright hol <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13364	13497	
==>lse {
	    $sep = $Config{path_sep};
	}

	my @keys = grep {exists $ENV{$_}} qw(CDPATH IFS ENV BASH_ENV);
	local @ENV{@keys} = ();
	# U <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4390	4487	
==>gleLineCommentChars>?
}
rule SingleLineCommentChar {  # see 7.4
      <!before <LineTerminator>> < <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4182	4311	
==>) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4182	4311	
==>) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2392	2489	
==>et.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_is_clo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2392	2489	
==>et.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_is_clo <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	162	262	
==>e PugsBuild::MiniYAML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    opt <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11270	11367	
==>((?%params is_nil) and (= ?%params (hash new)))
     ($class: send (bless (NIL ?%params)))))

=cut <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20913	21016	
==>eed to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules tha <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20913	21016	
==>eed to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules tha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7454	7589	
==>int "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7466	7601	
==>int "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XX <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1217	1326	
==>it this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1217	1326	
==>it this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    goto &{ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	161	274	
==>ie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	234	347	
==>ie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelude->e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20676	20777	
==>o-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20676	20777	
==>o-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	182	274	
==>rl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use P <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29833	30054	
==>block'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8075	8186	
==>rl's internals can cache the hash key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5603	5704	
==>t._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5603	5704	
==>t._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_comple <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5823	5936	
==>> $rx->{flags}[-1],
      family => 'anyof_range',
      type => 'anyof_range',
      data => [$lhs, $rhs],
    }, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5510	5661	
==>e section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5974	6125	
==>e section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9414	9517	
==>ext_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9414	9517	
==>ext_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_templ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	31	157	
==>I::Escape <uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	31	157	
==>I::Escape <uri_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5606	5761	
==>lgorithm is not optimized for speed yet.

=head1 METHODS

=head2 new ()

Class method.  Returns a category object.

options:

=item * name => $category_name <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2362	2496	
==>tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2362	2496	
==>tt;
    }    
}

method zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2645	2744	
==>ract the useful similarities into a role
  # cannot inherit from TestPlan because of the lack of $:e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1852	1948	
==>ant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1852	1948	
==>ant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7273	7382	
==>>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7273	7382	
==>>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28261	28358	
==>tr) of Any>

This method returns this Relation::Example's body.

=item C<size () returns Int>

Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6454	6548	
==>g this module.

=head1 DESCRIPTION

This module parses regular expressions (regexes).  Its defa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4625	4750	
==>ame eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4637	4762	
==>ame eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33634	33729	
==>s the N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38184	38279	
==>s the N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11089	11244	
==>ne.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11089	11244	
==>ne.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2409	2521	
==>be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2409	2521	
==>be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15054	15147	
==>e Interface (RNI), which applications invoke and which
multiple interchangeable "Engine" back- <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15054	15147	
==>e Interface (RNI), which applications invoke and which
multiple interchangeable "Engine" back- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5410	5557	
==>ay, Int, Int)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int, List)\
\\n   Int       pre     push    safe   (rw!Array, List)\
\\n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6963	7120	
==>ut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    require File::stat;
    
    my $file;
    my $tmpl = {
        file    => { required <==
2	/Users/nnunley/pugs/util/package-osx.pl	1025	1133	
==>ot
        /usr/local/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/histo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2528	2678	
==>am->to_str->to_native =~ /^\?/) {
            (blessed($arg) && $arg->isa($param_type))
                || confess "got the wrong type for " . $param-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8875	9008	
==>_info);
    for my $p (@$params) {
	my %op = %$p;
	my @args;

	my $default = $op{'paramDefault'};
	push(@args,"default=>sub{$default}" <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1067	1173	
==>::variable - a placeholder to make a DAG out of a tree (to gain strong typing)
#	::free - an unbound type v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14015	14165	
==>(exact => $d, $v);
      $q->{flags} = $tree->[-1]->{flags};
      $self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25970	26064	
==>$type = type::operator::arrow->new(
		type::operator::nary->new(list => $a),
		$a,
	);
	is($typ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4425	4553	
==>rence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4425	4553	
==>rence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    m <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1184	1337	
==>nd = $7 || 0;
    if ( $8.defined ) {
        $second += "0.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Date::G <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11932	12034	
==>0..9]>
}
rule ExponentPart {  # see 9.3.1
      <ExponentIndicator> <SignedInteger>
}
rule ExponentIndi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7860	7985	
==>_version {
    my $dir = shift;
    $dir =~ /.*ghc-(.*)$/i or die "Invalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	451	539	
==>-----------------------------------------------------------

{
    use Hash::Util 'lock_k <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1695	1813	
==>embers = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1695	1813	
==>embers = any();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    retur <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2108	2278	
==>h_fetch };
            },
            hash_deleteElem => sub {
                my $self = shift;
                my $idx = shift;
                delete $self->hash_fetch- <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	132	230	
==>"blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag $obst[0] und $o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4657	4839	
==>egister package"), return;
            
            
            my $postinst = $meta_dir->file( $conf->postinst );
            if( -e $postinst && -s _ ) {
                system( qq <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5266	5363	
==>self->add_method('does' => $_does);
};

# our class(Role), which is also the role(Role) as well
$R <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	231	336	
==>{
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.fin <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	231	336	
==>{
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.fin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6817	6940	
==>e module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip to the ne <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6817	6940	
==>e module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip to the ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20255	20357	
==>d2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20255	20357	
==>d2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a callback to be executed when the bot re <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6140	6291	
==>: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_child_num} = $child;
            $self- <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	443	552	
==>$string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	443	552	
==>$string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22582	22678	
==>to the user strings; Locale::KeyedText would also handle
this.

A program generates a Message tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22582	22678	
==>to the user strings; Locale::KeyedText would also handle
this.

A program generates a Message tha <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25192	25300	
==>,}'>
    | <'{'> <DecimalDigits> <','> <DecimalDigits> <'}'>
}
rule Atom {  # see 15.10.1
      <PatternChara <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9695	9839	
==>rammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10531	10675	
==>rammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6680	6782	
==>my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6692	6794	
==>my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syn <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4165	4274	
==>ctor generally include some sort of key, and sometimes also 
parameters for block size and so on; see the ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4165	4274	
==>ctor generally include some sort of key, and sometimes also 
parameters for block size and so on; see the ciph <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2949	3093	
==>=~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ /\n/ ) {
	    print "\\ \\\\\n";
	    $col = 0;
	} else {
	    printlate <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6232	6340	
==>alues.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading => set( %full_ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2980	3102	
==>er.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2980	3102	
==>er.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38382	38477	
==>xt modified
by interpolating the %msg_vars into it, where each variable value is
substituted for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38382	38477	
==>xt modified
by interpolating the %msg_vars into it, where each variable value is
substituted for <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1637	1740	
==>returns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has infini <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1637	1740	
==>returns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has infini <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	885	1006	
==>pping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, wher <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4363	4484	
==>pping(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, wher <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	7	109	
==>ict;
use warnings;
#use Inline 'INFO','NOISY','FORCE';
# please help fill in this file
# a method of au <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	69	193	
==>et::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	69	193	
==>et::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Code;

    has $.sp <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	221	324	
==>NCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_para <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	221	324	
==>NCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_para <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	225	315	
==>---------------------------------------------------------------------
## constructors

subm <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	225	315	
==>---------------------------------------------------------------------
## constructors

subm <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	319	412	
==>ypes can only be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::JuncType $.ju <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3138	3291	
==>bject',
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            :: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3866	3993	
==>bject',
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { :: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10592	10701	
==>$code_args .= "'\$.params'=>$code_params,";
    $code_args .= "'\$.body'=>$code_body";
    my $code_val = "p6_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	612	717	
==>d p6 added.  It's basically three days old,
and only now is changing from an experimental "let's see if so <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	969	1064	
==>rectory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in th <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	969	1064	
==>rectory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22702	22827	
==>words {  # see 12.14
      <'try'> <Block> <Catch>
    | <'try'> <Block> <Finally>
    | <'try'> <Block> <Catch> <Finally>
}
r <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19907	20008	
==>->print($sobj->as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a test files
sub inpath_t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10072	10233	
==>$file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't lo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10072	10233	
==>$file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4488	4610	
==>ler::Regex->compile( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	340	432	
==>or example L<Blondie::Emitter::Pretty> emits ASCII text that is supposed to be
readable.

=cu <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1419	1534	
==>ist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2655	2768	
==>pr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2655	2768	
==>pr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = P <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11877	11994	
==>elf->pads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	286	398	
==>elf->pads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8484	8607	
==>s','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types of
    # packages share <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8484	8607	
==>s','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since all types of
    # packages share <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2010	2148	
==>{ $_->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XX <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3383	3513	
==>{ $_->{package} => $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XX <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1406	1509	
==>version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1406	1509	
==>version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6023	6163	
==>t = [ 'NUM' => $ast ]
        }
        $t=['',''] unless $match; # defined($t);

        #print "expect NUM \n" if grep { $_ eq 'NUM' } @exp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5443	5546	
==>ng into an AST these are generated
# as the AST is left they are unified
# a free variable can be instan <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1898	2012	
==>!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my % <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1898	2012	
==>!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my % <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	453	553	
==>ON

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	453	553	
==>ON

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conforming to the Ciphe <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1523	1641	
==>rry, concurrency not supported on your platform\n";
        $Config{"concurrent"} = 1;
        return;
    }
    requir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1708	1824	
==>, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_lim <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1708	1824	
==>, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_lim <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11566	11678	
==>plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11566	11678	
==>plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @accepts = $header.header('Accept') <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	439	585	
==>um>
                     represents positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	439	585	
==>um>
                     represents positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8616	8721	
==>otes about fail()

shouldn't matchfail still be returning something?

maybe just overload bool to false ;) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8329	8432	
==>otes about fail()
shouldn't matchfail still be returning something?
maybe just overload bool to false ;) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2185	2302	
==>accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2185	2302	
==>accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2122	2265	
==>d> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2122	2265	
==>d> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31671	31797	
==>ogram is run, it would
determine either from a user config file or a user interface that the
current user is fluent in (and pre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31671	31797	
==>ogram is run, it would
determine either from a user config file or a user interface that the
current user is fluent in (and pre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13824	13965	
==>', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13824	13965	
==>', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbe <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1442	1554	
==>s
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1442	1554	
==>s
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	795	914	
==>il or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	795	914	
==>il or undef - TODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match wa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	43	160	
==>her::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	43	160	
==>her::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	988	1289	
==>-> x"
        },
        {
            arity => 2,
            name => '&print',
            body => sub {
                my $self = shift;
                my $fh = shift->val;
                my $string = shift;
                print $fh $string;
            },
			type => [map { Blondie::TypeSafe::T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4654	4839	
==>ed name: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # trim tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	260	372	
==>ref $param ? { %$param } : {}; 
    delete $param->{P5};
    delete $param->{Perl5};
    warn "Error in rule: un <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19156	19257	
==>sh_header() or init_header() methods to set the referrer.

=item $h.www_authenticate

This header must <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19156	19257	
==>sh_header() or init_header() methods to set the referrer.

=item $h.www_authenticate

This header must <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	50	154	
==>type;

method subclass(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2591	2688	
==>suming(:offset(-1) :length(1));
## an alternate implementation:
#multi method Array::pop (@array i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35218	35347	
==>deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35218	35347	
==>deep copy of this Translator as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10327	10445	
==>my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data}[-1] }) {
        last unless $br- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2021	2137	
==>find $file from $name" unless -e $file;
    }

    $self->version_from($file)      unless $self->version;
    $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1714	1811	
==>construction to source.
 # represented as processing instructions, or maybe comments
 # in the "no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1714	1811	
==>construction to source.
 # represented as processing instructions, or maybe comments
 # in the "no <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6978	7076	
==>ypes;

use Class::Multimethods::Pure;
use Data::Dumper;


# The unification of the various types de <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21308	21398	
==>e(C,space) ; C = 11). %\v chr(11)
class_member(class_neg(space_perl),C) :- !, \+(char_type( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9573	9719	
==>ame} ) .
            " { my \$self = shift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit( $n->{block} <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4325	4423	
==>ed Prelude" if $Config{verbose};
    die "*** Error: $0 needs an already compiled Pugs to precompil <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18841	18965	
==>ess_null exp1, end
    .return (exp0)
  end:
    self[1] = exp1
    .return (self)
.end

.namespace [ "PGE::Exp::Alt" ]

.sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21372	21469	
==>ith the package name?).  An advantage of
this is that, for example, your package could come with a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21372	21469	
==>ith the package name?).  An advantage of
this is that, for example, your package could come with a <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	552	668	
==>}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $normalizer = $arg but $.normalizer_rol <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1341	1476	
==>s Str $name;
        has Str $string;
        has Int $count = 0;
        has Array of Str @strings;

        method subsume ( Getopt::A <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1242	1343	
==>h a full line of text.

=head1 SYNOPSIS

  use Test::Harness;

  runtests(@test_files);

=head1 DESCRI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8495	8640	
==>ed by a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

should <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8211	8352	
==>ed by a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
should <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2200	2348	
==>'$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_ins <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2405	2553	
==>'$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_ins <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	228	350	
==>s on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	228	350	
==>s on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	366	497	
==>IS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_fac <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	366	497	
==>IS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_fac <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7465	7599	
==>t   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (An <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3697	3796	
==>ll_definitions#
    ,("pugs_versnum", Pugs.Version.versnum)
    ,("pugs_version", Pugs.Version.versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	491	602	
==>end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	491	602	
==>end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->compile( q <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7173	7286	
==>:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7185	7298	
==>:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	595	690	
==>sult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	595	690	
==>sult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30733	30839	
==>e has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30733	30839	
==>e has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the modul <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13100	13199	
==>C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

R <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13100	13199	
==>C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14820	14918	
==>s in header field
values will be substituted with this line ending sequence.

=back

=head1 CONVENI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14820	14918	
==>s in header field
values will be substituted with this line ending sequence.

=back

=head1 CONVENI <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2247	2352	
==>ories (if used)
my $output_dir;  # The root directory of the output tree.
my $start_dir = cwd;

# ref to h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1805	1996	
==>for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1805	1996	
==>for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3094	3184	
==>).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3094	3184	
==>).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &Set: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17033	17130	
==>age(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file whi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17033	17130	
==>age(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file whi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	218	338	
==>but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	218	338	
==>but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5375	5480	
==>ed. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5375	5480	
==>ed. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($eve <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15877	15980	
==>ed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15877	15980	
==>ed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `end` are <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1445	1623	
==>3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1445	1623	
==>3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode (Int $value) returns Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	699	826	
==>nless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	692	819	
==>nless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dum <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4073	4183	
==>!?)\' [ <-[\\\']> | \\ . ]* \'\> }
rule interpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24032	24127	
==>acro-based approach to substitute the user's preferred
language into the program code itself, so <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24032	24127	
==>acro-based approach to substitute the user's preferred
language into the program code itself, so <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	16	118	
==>----------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally fre <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	16	118	
==>----------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally fre <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	447	566	
==>);

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=h <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	447	566	
==>);

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2246	2363	
==>e strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2246	2363	
==>e strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11326	11442	
==>lar_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5739	5837	
==>ost of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly mu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5739	5837	
==>ost of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly mu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9564	9710	
==>cure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9564	9710	
==>cure');
                my $discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2577	2689	
==>(Array)\
#   ie, both return and argument types differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@array <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5083	5181	
==>n\@as-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9423	9532	
==>path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9423	9532	
==>path_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3788	3993	
==>an::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3788	3993	
==>an::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2659	2755	
==>arams($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2659	2755	
==>arams($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  This
method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6595	6714	
==>inst_pkg ] );
        
    $self->write or return;
    
    return $inst_pkg;

}

=head2 $bool = $inst->unregister( pack <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13118	13217	
==>rence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13118	13217	
==>rence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8818	8913	
==>This event handles the entire verbatim string.

=item I<string>

This event processes raw string <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8818	8913	
==>This event handles the entire verbatim string.

=item I<string>

This event processes raw string <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16103	16207	
==>umentation will be focusing mainly on how Rosetta itself works, and will
not spend much time in providing <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16103	16207	
==>umentation will be focusing mainly on how Rosetta itself works, and will
not spend much time in providing <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7083	7192	
==>th, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7083	7192	
==>th, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path u <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6643	6742	
==>ng C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the copy <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6643	6742	
==>ng C<$data> to be an C<is copy> variable or by making a 
copy internally, and should return the copy <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	544	641	
==>export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	544	641	
==>export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8992	9096	
==>unge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8992	9096	
==>unge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4466	4560	
==>ile C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4466	4560	
==>ile C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<ciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3262	3385	
==>s1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3250	3373	
==>s1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quant <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12271	12393	
==>{
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4914	5036	
==>{
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_objec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13093	13198	
==>e, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13093	13198	
==>e, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18872	18970	
==>ee the native
compiler creates, but which we obviously don't have).


=head1 struct regexp

  typed <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	101	190	
==>pm"
package Module::Install::Include;
use Module::Install::Base; @ISA = qw(Module::Install <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1315	1435	
==>on ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1315	1435	
==>on ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27739	27845	
==>, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27739	27845	
==>, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Mes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2534	2690	
==>a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2534	2690	
==>a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	661	777	
==>rl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	661	777	
==>rl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'M <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4105	4206	
==>0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4105	4206	
==>0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	564	747	
==>quoted => "\'" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\" <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	620	741	
==>efix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# mul <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	620	741	
==>efix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# mul <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5814	5927	
==>$file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5296	5409	
==>$file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	178	275	
==>_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	178	275	
==>_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANS <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	685	788	
==>utput.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.wri <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	685	788	
==>utput.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.wri <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	564	781	
==>$indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	564	781	
==>$indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1653	1768	
==>mmar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1653	1768	
==>mmar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4459	4589	
==>",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4599	4729	
==>",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1176	1293	
==>($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1176	1293	
==>($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26753	26885	
==>beg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best to intuit before matching */
 #define RE_USE_INTUIT_ML	0x0200000
 #def <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1026	1126	
==>erl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if NOT "%COMSPEC%" == "%SystemRoot%\system32\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1316	1431	
==>tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14218	14312	
==>lti method product (Relation::Example *@others) returns Relation::Example {

    if (+@others = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	893	1001	
==>rface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($tree,$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	893	1001	
==>rface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($tree,$nam <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2249	2406	
==>| <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2249	2406	
==>| <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7732	7851	
==>saveterm if $arity < 1;
  $temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    g <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3908	4006	
==>m B<Fail>

Number which failed, either from "not ok" or because they never ran.

=item B<Failed>

P <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1474	1599	
==>scape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        retur <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1474	1599	
==>scape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13974	14073	
==>m RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16685	16810	
==>times
        $results =~ s/\n\n/\n/g;
    }

    my $pass = $resolve->($results);
    unless ($pass) {
        _diag "# PROG: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	224	337	
==>p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !def <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1643	1764	
==>0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1643	1764	
==>0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2843	2955	
==>er = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2831	2943	
==>er = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33983	34080	
==>red ones aren't supported by a program or its libraries.
When translating a message, a match in fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33983	34080	
==>red ones aren't supported by a program or its libraries.
When translating a message, a match in fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11825	11920	
==>a named character's name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAP <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14938	15054	
==>1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	487	599	
==>$rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	487	599	
==>$rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3890	3991	
==>alize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3890	3991	
==>alize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2151	2271	
==>o the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1373	1470	
==>lp people running existent versions of perl5.  Perhaps
# because the challenges being faced were i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25992	26086	
==>, and can be interpolated into the
human-readable version.  Each variable name is a machine-rea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25992	26086	
==>, and can be interpolated into the
human-readable version.  Each variable name is a machine-rea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	74	177	
==>le - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	74	177	
==>le - Perl 6 grammar for rules

=head1 DESCRIPTION

This is the Perl 6 Grammar used to Parse and generate <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1575	1701	
==>lass = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1780	1906	
==>lass = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	188	286	
==>ced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	188	286	
==>ced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5557	5735	
==>g;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5557	5735	
==>g;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names.map:{ @!se <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23844	23972	
==>IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of // <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29031	29138	
==>IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of // <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17762	17863	
==>.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains information <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17762	17863	
==>.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains information <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18642	18754	
==>t(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18642	18754	
==>t(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3988	4099	
==>map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3988	4099	
==>map:{ $set1.new( recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1001	1122	
==>turn unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1001	1122	
==>turn unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2912	3063	
==>b ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2912	3063	
==>b ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	618	782	
==>es ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	618	782	
==>es ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14522	14650	
==>{
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the fir <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14522	14650	
==>{
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the fir <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3340	3452	
==>:print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3557	3669	
==>:print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4025	4156	
==>pen_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4025	4156	
==>pen_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.star <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12952	13085	
==>".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19502	19600	
==>a string
# thiss tests that the inferrence of higher order functions is correct
my $app_to_str = fu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24852	24954	
==>re Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statica <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24852	24954	
==>re Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statica <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3344	3464	
==>ontent_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3344	3464	
==>ontent_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30182	30276	
==>y also contain variable names that correspond
to Message Variables, which will be substituted a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30182	30276	
==>y also contain variable names that correspond
to Message Variables, which will be substituted a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1702	1807	
==>t($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1702	1807	
==>t($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *in <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1869	1978	
==>path {
    my ($name, $config) = @_;
    my $path = $Config{$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2744	2846	
==>substr(${&Rx}, 0, &RxPOS), &RxCUR;
  carp sprintf $err, @args if &SIZE_ONLY;
}


sub awarn {
  my ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2839	3028	
==>!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6316	6505	
==>!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4077	4183	
==>an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3933	4037	
==>an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7394	7528	
==>o{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7382	7516	
==>o{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4394	4526	
==>h this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7871	8003	
==>h this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	266	356	
==>ethods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	266	356	
==>ethods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	718	834	
==>nd_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better name <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	718	834	
==>nd_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better name <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	886	985	
==>::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	886	985	
==>::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8232	8333	
==>vent {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8232	8333	
==>vent {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<obje <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1289	1388	
==>th indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenatio <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1289	1388	
==>th indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenatio <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12968	13087	
==>not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;
  sub emit {
    my($o)=@_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1934	2096	
==>en =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1934	2096	
==>en =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11196	11335	
==>p2} );
    }
    if ( $n->{op1}{op} eq '//' ) {
        return ' do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23473	23572	
==>:KeyedText has no non-trivial
external dependencies (it is very simple).

There are other difference <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23473	23572	
==>:KeyedText has no non-trivial
external dependencies (it is very simple).

There are other difference <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2292	2402	
==>de::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = Pugs::Emitter::Rule::Perl5::emit <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	634	828	
==>~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$d <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	634	828	
==>~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11406	11546	
==>login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11406	11546	
==>login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # P <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5172	5294	
==>n from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsif $tree[ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7222	7312	
==>SubLValue, $pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubType, $pSubParams, $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	820	930	
==>$x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	777	883	
==>$x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified i <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	182	284	
==>ant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	182	284	
==>ant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6970	7073	
==>turn value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6970	7073	
==>turn value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1360	1463	
==>un.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/buil <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4955	5052	
==>e control or access to the header fields in the requests
sent and responses received, then you sho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4955	5052	
==>e control or access to the header fields in the requests
sent and responses received, then you sho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	137	240	
==>w(Pugs::Grammar::BaseCategory);

sub add_rule {
    # print "add infix operator\n";
    my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1452	1560	
==>an - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class re <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1452	1560	
==>an - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2692	2792	
==>each my $entry (@free) {
		my $assigned = $map{$entry->{orig}};
		unless ($assigned) {
			$assigned = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3971	4070	
==>e portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3971	4070	
==>e portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14131	14225	
==>ethod quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enque <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14131	14225	
==>ethod quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enque <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20472	20578	
==>ur programs do or
might have, and lets you arrange the list in order of preference.  When you
open a progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20472	20578	
==>ur programs do or
might have, and lets you arrange the list in order of preference.  When you
open a progra <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	656	751	
==>tor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	656	751	
==>tor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8302	8425	
==>d =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8302	8425	
==>d =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_s <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	912	1056	
==>CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	912	1056	
==>CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1134	1251	
==>! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? unde <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1134	1251	
==>! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? unde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3304	3421	
==>r.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel < <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3304	3421	
==>r.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel < <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19057	19175	
==>am => "f",
	body => comb(
		fun => comb(
			fun => ide("pair"),
			param => comb(
				fun => ide("f"),
				param => val <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14133	14233	
==>ks if the $line is a test report (ie. 'ok/not ok').  Reports the
result back in C<%test> which will c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	538	680	
==>() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_stri <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	538	680	
==>() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_stri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1021	1141	
==>->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1190	1310	
==>->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1080	1231	
==>}

    return;
}

sub can_cc {
    my $self = shift;
    my @chunks = split(/ /, $Config::Config{cc}) or return;

    # $Config{cc} may contain args; tr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15145	15247	
==>message to the user, or generate a message to be
shown to the user.  Sometimes this is an error message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15145	15247	
==>message to the user, or generate a message to be
shown to the user.  Sometimes this is an error message <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18932	19017	
==>0,B0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	322	417	
==>-> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	322	417	
==>-> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	23	120	
==>.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	23	120	
==>.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13239	13398	
==>1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13233	13392	
==>1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5254	5394	
==>a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5254	5394	
==>a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	346	446	
==>e.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.di <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	346	446	
==>e.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.di <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17090	17199	
==>ossible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*l <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22190	22299	
==>ossible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] specifies the 2*l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3813	3929	
==>=> $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7290	7406	
==>=> $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	743	850	
==>, match => [], named => {}, capture => \\undef,
      }, 'Pugs::Runtime::Match::Ratchet';
  }
  return bl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3840	3992	
==>n old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4304	4456	
==>n old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26225	26325	
==>matched
  }

If the match fails, the C<pos()> value won't be reset (due to the C</c>
modifier).  Reme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7538	7626	
==>6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1363	1451	
==>6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_call_statement(@_) } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6924	7052	
==>so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6924	7052	
==>so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_templa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19801	19919	
==>te freedom to implement the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19801	19919	
==>te freedom to implement the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
inter <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	454	602	
==>h/to/source )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $dir;
    my $tmpl = {
        dir     => { required => 1, <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10138	10231	
==>rint ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10873	10966	
==>rint ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	75	196	
==>) {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	75	196	
==>) {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14888	15028	
==>$channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14888	15028	
==>$channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14	109	
==>s an experiment in using the perl5 implementation's
# "regcomp hooks" (C functions called when r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12001	12097	
==>, '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12059	12155	
==>, '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	170	279	
==>|= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	170	279	
==>|= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3838	3968	
==>re a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3850	3980	
==>re a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14571	14676	
==>add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8773	8878	
==>add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6227	6378	
==>arn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6740	6891	
==>arn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16832	16930	
==>ay be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16832	16930	
==>ay be empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	683	798	
==>r::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	683	798	
==>r::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14289	14415	
==>sa(Str) ?? expand($v) !! $v.values;
            %transtable{@ks} = @vs;
        }

        [~] map { %transtable{$_} // $_ }, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3727	3851	
==>gs::Compiler::Rule->compile( '" .
            _quotemeta( emit_perl6_rule($self, $level, $default) ) .
            "' )->code <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4317	4409	
==>96696762772407663;
    # http://www.research.att.com/~njas/sequences/A001113
}

 multi method <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2124	2226	
==>ut it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, St <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2124	2226	
==>ut it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, St <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	772	1098	
==><PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	772	1098	
==><PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $si <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6178	6284	
==>o the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6178	6284	
==>o the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If the <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	220	338	
==>&say'),
		App(
			Sym('&infix:<+>'),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1766	1869	
==>n" halfway down the file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1384	1483	
==>ocs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1384	1483	
==>ocs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2779	2887	
==>e, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2779	2887	
==>e, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2630	2749	
==>n_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2630	2749	
==>n_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    deb <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1320	1425	
==>e>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1320	1425	
==>e>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15786	15896	
==>to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15786	15896	
==>to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its authors have also w <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	138	283	
==>c);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	138	283	
==>c);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10058	10165	
==>rn @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10058	10165	
==>rn @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13773	13914	
==>pos = pos
    mob["value"] = charlist
    goto end
  err_bracket:
    parse_error(mob, pos, "Unescaped ']' in charlist")
    goto end
  err_hy <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2097	2194	
==>nts may be pending processing, too.

=head2 C<run()>

Enter the main runloop.

=head1 AUTHOR

Ingo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15659	15758	
==>r Chinese speaker often prefers to
communicate in those languages.  Or, when viewing an error messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15659	15758	
==>r Chinese speaker often prefers to
communicate in those languages.  Or, when viewing an error messag <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	333	440	
==>0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	333	440	
==>0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2717	2823	
==>ng { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _norm <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2717	2823	
==>ng { return $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _norm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15876	15984	
==>s authors have also written
several books and papers and taught classes on the subject over the last
35+ year <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15876	15984	
==>s authors have also written
several books and papers and taught classes on the subject over the last
35+ year <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23292	23395	
==>'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Identifier>
    | <FormalParameterList> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	884	1009	
==>nfo out of hte control.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	646	768	
==>atch = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	743	865	
==>atch = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3341	3519	
==>arent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3341	3519	
==>arent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7004	7147	
==>ub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kw <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7004	7147	
==>ub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kw <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33430	33529	
==>turned Relation contains only tuples that are in
all of the source Relations.  This method has an al <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37980	38079	
==>turned Relation contains only tuples that are in
all of the source Relations.  This method has an al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7020	7135	
==>nstance:

  use Regexp::Parser;
  my $parser = Regexp::Parser->new;

=head2 Setting a Regex

To have the parser work <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9127	9235	
==>here's absolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### curre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8827	8931	
==>here's absolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### curre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5077	5167	
==>SS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5077	5167	
==>SS.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32884	32990	
==>ssage()> method, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=ite <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32884	32990	
==>ssage()> method, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=ite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	923	1100	
==>block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab concat(\n" . 
               ( join '', @s <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	872	986	
==>{ $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warning handler
BEGIN { $SIG{__WARN__ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35078	35175	
==>adings are
identical.  This method has an alias named C<matching>.

=item C<product (Relation $oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39628	39725	
==>adings are
identical.  This method has an alias named C<matching>.

=item C<product (Relation $oth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7203	7328	
==>ate text for the given message key from the
        # successfully loaded template module; on a function call
        # death, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7203	7328	
==>ate text for the given message key from the
        # successfully loaded template module; on a function call
        # death, <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2996	3111	
==>fig revision timing
        }});
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARNESS_PERL} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15824	15922	
==>If the requested
resource has (or has not) been modified since the time specified in this field,
th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15824	15922	
==>If the requested
resource has (or has not) been modified since the time specified in this field,
th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	451	558	
==>::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 D <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	451	558	
==>::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 D <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11893	11990	
==>th the normal perl engine can continue working.

  Upon exec, the subref should return match infor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10419	10538	
==>can(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10419	10538	
==>can(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17146	17242	
==>ntent_language

The natural language(s) of the intended audience for the message
content.  The va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17146	17242	
==>ntent_language

The natural language(s) of the intended audience for the message
content.  The va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6248	6376	
==>ed) {
            unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, "#      got "._q($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2911	3034	
==>fier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2899	3022	
==>fier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10867	10966	
==>ally be extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document obje <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10867	10966	
==>ally be extended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document obje <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2402	2501	
==>lete]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists($P);
    my $attr = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	686	792	
==>ident> <p6ws>? \{ <rule> \}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_name'} = Pugs::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5352	5475	
==>=> chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5352	5475	
==>=> chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931), <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8926	9027	
==>undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8984	9085	
==>undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3791	3907	
==>erl6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{name};\n$s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30332	30425	
==>rmats.

=head1 BUGS

HARNESS_COMPILE_TEST currently assumes it's run from the Perl source
dire <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28949	29045	
==>s that have no "predecessor" (that is, a '&&' without a '&')
are pre-consumption: that is, they h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	529	666	
==>perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	540	677	
==>perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34730	34820	
==>case
this method returns the identity-one Relation::Example or the invocant relation,
respe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28055	28158	
==>e (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and values of thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28055	28158	
==>e (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and values of thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3975	4103	
==>nted as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3835	3959	
==>nted as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1910	2040	
==>.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1910	2040	
==>.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	700	831	
==>Pugs::Grammar::Var.ident>
                { return { scalar => "\$" . $() ,} }
            ' );
    __PACKAGE__->add_rule( '@' => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2189	2367	
==>: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2189	2367	
==>: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # % <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17193	17289	
==>package or application says that it uses
Locale::KeyedText, that is a terse way of saying that it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17193	17289	
==>package or application says that it uses
Locale::KeyedText, that is a terse way of saying that it <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16333	16446	
==>ny( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19810	19923	
==>ny( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27616	27771	
==>,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27895	28050	
==>,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11544	11691	
==>erl_root/i, @inc;

    } elsif ( $self->{_is_win32} ) {
        # Lose any trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	407	524	
==>E__;

__END__

=pod

=head1 NAME

Blondie::SmokeBackends - 

=head1 SYNOPSIS

	use Blondie::SmokeBackends;

=head1 DES <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10428	10527	
==>.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10428	10527	
==>.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_pre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13933	14042	
==>ns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13991	14100	
==>ns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc? <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	256	359	
==>yped to the
Role it is attached to (however, this is a trend and not a rule).

=item *

A method is boun <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1729	1942	
==>$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz';                    # part with metadata
$Ext            = '.jib';                           # archive e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4684	4820	
==>Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7407	7543	
==>Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10232	10349	
==>pty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATION <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10232	10349	
==>pty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATION <==
2	/Users/nnunley/pugs/util/claim_drift.pl	740	844	
==>ob join $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22028	22138	
==>ch the user message for a certain code, it
returns the first one it finds.  This also works for the multiple la <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22028	22138	
==>ch the user message for a certain code, it
returns the first one it finds.  This also works for the multiple la <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2349	2481	
==>urn ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2349	2481	
==>urn ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.dif <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8536	8640	
==>fix:«<=>» --> Scalar) {
    List::max $cmp, *@self;
}


# XXX - TODO
# postcircumfix:<[ ]>  circumfix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4089	4190	
==>backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4273	4374	
==>backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29184	29305	
==>turns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29184	29305	
==>turns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Templa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7153	7251	
==>method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10630	10728	
==>method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $ot <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	733	836	
==>(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm her <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	733	836	
==>(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm her <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16027	16209	
==>{\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16021	16203	
==>{\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$boo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11076	11174	
==>ool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11134	11232	
==>ool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2706	2838	
==>xity} eq 'postcircumfix';
        return ternary( $n )
            if $n->{fixity} eq 'ternary';
    }
    
    return statement <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3748	3877	
==>= Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { return { alt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36065	36176	
==>the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to each other in the output <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36065	36176	
==>the form
"<Set><Member>".  All combinations having the same Member Name are adjacent
to each other in the output <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1154	1254	
==>mpiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1154	1254	
==>mpiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have p <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1410	1569	
==>self = shift;
                my $idx = shift;
                my $container = shift;
                $self->_extend_to_slot($idx);
                $self->get_v <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1862	1967	
==>the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it wil <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1862	1967	
==>the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it wil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	760	873	
==>> $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	771	884	
==>> $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5177	5290	
==>my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2719	2832	
==>my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4997	5121	
==>h();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change its parent to R <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4997	5121	
==>h();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change its parent to R <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4510	4627	
==>bjects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4510	4627	
==>bjects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10750	10889	
==>_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10750	10889	
==>_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1500	1641	
==>ined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1500	1641	
==>ined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3367	3509	
==>( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3367	3509	
==>( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7416	7515	
==>an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7416	7515	
==>an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4723	4823	
==>+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4723	4823	
==>+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7961	8104	
==>ge;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7961	8104	
==>ge;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %res <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	157	253	
==>teTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	157	253	
==>teTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1405	1533	
==>s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1405	1533	
==>s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5088	5194	
==>cendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7756	7862	
==>cendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } ' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4987	5084	
==>r fields in the requests
sent and responses received, then you should use the full object-oriented <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4987	5084	
==>r fields in the requests
sent and responses received, then you should use the full object-oriented <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17027	17122	
==>sily accessable manner, such that would not be possible if its
functionality was subsumed into a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17027	17122	
==>sily accessable manner, such that would not be possible if its
functionality was subsumed into a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	123	240	
==>:PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	123	240	
==>:PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2563	2723	
==>(\d+) skipped and (\d+) unexpectedly succeeded"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28853	28953	
==>ll a handler for
'&' that calls the handler for '&&' if it can consume an ampersand.
Handle names tha <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8945	9073	
==>9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8945	9073	
==>9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1266	1373	
==>lates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $self-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2168	2290	
==>pl, \%hash ) or error( Params::Check->last_error ), return;
    
        ### make the path absolute
        ### XXX path::c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15736	15833	
==>t
allowed.

If a function takes a C<Str> and returns a C<Str>, the returned C<Str>
will support th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6554	6657	
==>---------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6554	6657	
==>---------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	244	366	
==>al) = split ':', $arg;
    die usage() if !$key or !$val;
   
   
    my $pat  = qr/$val/i;
    my @list = LoadFile( $Repoi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16356	16462	
==>sage
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower cas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16356	16462	
==>sage
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower cas <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1178	1294	
==>ub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1178	1294	
==>ub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15259	15374	
==>mc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15259	15374	
==>mc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::C <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1257	1354	
==>ese methods are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
= <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1257	1354	
==>ese methods are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
= <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3103	3304	
==>ric($x);
                $round_up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7233	7389	
==>error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat::stat( $file );
    my $mask    = -d $file ? 0100 : <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5260	5359	
==>tch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5260	5359	
==>tch the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9283	9458	
==>->{signature} ) .
                    _emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $sel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	193	304	
==>eturns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	193	304	
==>eturns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2317	2469	
==>fier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2317	2469	
==>fier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8657	8747	
==>nts, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2482	2572	
==>nts, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18246	18346	
==><_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18246	18346	
==><_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16072	16179	
==>time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16072	16179	
==>time at which the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1801	1894	
==>hread "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1801	1894	
==>hread "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	666	777	
==>of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	724	835	
==>of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10070	10206	
==>[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10070	10206	
==>[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16244	16369	
==>11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int $n, Code $corner) returns Int is primitive is safe <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	488	604	
==>{
            $self->version(ExtUtils::MM_Unix->parse_version($modules[0]));
        };
        print STDERR $@ if $@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1755	1950	
==>root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1755	1950	
==>root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!roo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	214	359	
==>uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	214	359	
==>uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_lin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8032	8144	
==>ash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8020	8132	
==>ash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4635	4756	
==>hy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4635	4756	
==>hy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4283	4427	
==>_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => "not implement <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2032	2182	
==>or( abs($x) ) }
                when $_ == 1 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
            }
        }
    }
    return $x_round;
}

our <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12952	13050	
==>thods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12952	13050	
==>thods:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	6	256	
==>/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	6	256	
==>/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11386	11485	
==><pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=ove <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11386	11485	
==><pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=ove <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	264	364	
==>g = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.re <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	264	364	
==>g = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	669	766	
==>pecify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core type..

=c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	669	766	
==>pecify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a non-core type..

=c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10873	11050	
==>xec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11152	11329	
==>xec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1555	1703	
==>xxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1555	1703	
==>xxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3387	3704	
==>xpires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3387	3704	
==>xpires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5768	5870	
==>.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::F <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5768	5870	
==>.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1230	1357	
==>ess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1230	1357	
==>ess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4441	4620	
==>ipt;
        }
        
        ### add this package as being authorative for these links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alterna <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	978	1118	
==>$v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	978	1118	
==>$v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1101	1224	
==>1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1104	1217	
==>1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2030	2251	
==>type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2030	2251	
==>type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	446	552	
==>.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	446	552	
==>.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5740	5956	
==>t check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $su <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6204	6420	
==>t check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $su <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	709	820	
==>Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	709	820	
==>Span::Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_en <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	667	806	
==>e.new(:node<List>).add_children(
                        Tree.new(:node<Lazy>).add_children(
                            Tree.new(:node<Arra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1066	1192	
==>e are errors here
      local @ARGV = ();  # "You may not specify any filenames ... - Perl::Tidy.pm
      eval {
        requir <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21418	21511	
==>ernative relational database engines with minimal effort.

This might seem strange to somebody <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21418	21511	
==>ernative relational database engines with minimal effort.

This might seem strange to somebody <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2439	2551	
==>f_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  # bound (not a word boundary)
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	290	399	
==>tchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	290	399	
==>tchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16824	17002	
==>et<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16824	17002	
==>et<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	29	125	
==>ENUM;
BEGIN { $ENUM = 0 }

use constant RPe_ZQUANT => --$ENUM, 'Quantifier unexpected on zero-len <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1485	1581	
==>rel_cat (PV x, PV y) {
	char * target = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	644	734	
==>9
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	644	734	
==>9
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6145	6281	
==>ual;
  }
}


{
  package Regexp::Parser::anyof_class;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	134	232	
==>ession';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not implemented';
use constant RP <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	512	619	
==><≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *pr <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	512	619	
==><≣> ($a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *pr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2013	2109	
==>S|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might a <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2013	2109	
==>S|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	289	421	
==>'),
				Sym('$handle'),
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$strin <==
2	/Users/nnunley/pugs/util/package-osx.pl	1044	1164	
==>al/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/ <==
2	/Users/nnunley/pugs/util/package-osx.pl	3354	3474	
==>al/info/readline.info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	743	856	
==>running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides infor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	743	856	
==>running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This module provides infor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1385	1482	
==>source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1525	1622	
==>source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\n" if $self->{ast}{tail <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1487	1617	
==>_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1475	1605	
==>_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match ar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3065	3182	
==>s { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3065	3182	
==>s { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	614	720	
==>ontent = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	614	720	
==>ontent = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5232	5356	
==>@!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5232	5356	
==>@!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5863	6000	
==>$str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5863	6000	
==>$str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $se <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7392	7507	
==>p {
    print <<".";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2714	2823	
==>lds) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$con <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2714	2823	
==>lds) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6896	7040	
==>{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6669	6804	
==>{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $ta <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2243	2378	
==>tics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3604	3731	
==>tics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13875	13982	
==>tem RPe_NOTREC (-11)

Sequence (?%.*s...) not recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPA <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24587	24677	
==>new(
		type::operator::arrow->new(
			type::variable::free->new,
			type::variable::free->n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7194	7313	
==>ist;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $M <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	495	614	
==>ist;
    
    ### check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $M <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16215	16317	
==>e.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    pac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16215	16317	
==>e.

You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    pac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13561	13660	
==>er.  The field names have case as suggested by HTTP spec, and the
names are returned in the recommen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13561	13660	
==>er.  The field names have case as suggested by HTTP spec, and the
names are returned in the recommen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	305	458	
==>ork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $? <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	305	458	
==>ork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29061	29242	
==>}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29340	29521	
==>}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	177	293	
==>gure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	177	293	
==>gure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2747	2848	
==>qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a join <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2747	2848	
==>qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a join <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7950	8060	
==>);
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7950	8060	
==>);
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $spa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1878	1989	
==>> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub h <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1878	1989	
==>> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1168	1272	
==>compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1168	1272	
==>compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2414	2521	
==>gs) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2665	2772	
==>gs) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS), &R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1478	1586	
==>span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1478	1586	
==>span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start;
    my $i_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18354	18507	
==>id x = x
# in id ((id 3), (id "foo"))
# and basically ensures that id is polymorphic when used in a let expr.
my $id_pair = let(
	ide => "id",
	is => $id, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4395	4487	
==>head2 $bool = $repo->add_package_to_index(package => $pkg)

Adds a package to all necessary i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1593	1714	
==>ous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1593	1714	
==>ous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6113	6245	
==>turn $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6113	6245	
==>turn $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24128	24245	
==>m inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20549	20666	
==>m inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	178	296	
==>tBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ] <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2133	2243	
==>}   ||= 'inc/BUNDLES';
    $args{base}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26038	26164	
==>e Relation::Example attribute names that
define the heading of this Relation::Example.  Each attribute name is a character
stri <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	328	439	
==>up_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_mea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	328	439	
==>up_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_mea <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3182	3295	
==>min->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5388	5501	
==>min->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28686	28786	
==>c simple API that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28686	28786	
==>c simple API that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18007	18185	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18286	18464	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8005	8098	
==>rsal_order);
    };
}

## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8005	8098	
==>rsal_order);
    };
}

## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10673	10785	
==>m.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10673	10785	
==>m.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can also use <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	449	558	
==>type',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this here for a consis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9759	9925	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10038	10204	
==>tional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34635	34736	
==>s a subset of the
heading of the invocant Relation, and returns a new Relation that has the
same headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39185	39286	
==>s a subset of the
heading of the invocant Relation, and returns a new Relation that has the
same headi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6902	7022	
==>$Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 = $Result3 % $n2_32;
    return $Result4-$n2_32 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12445	12553	
==>urther dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $sou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12445	12553	
==>urther dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $sou <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16320	16433	
==>$n, Code $corner) returns Int is primitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Code $corner <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1911	2020	
==>Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1911	2020	
==>Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7445	7593	
==>', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7445	7593	
==>', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	248	341	
==>ual_to in ' . (shift) }
sub not_equal_to { $_[0]->equal_to($_[1]) == bit->new(0)  ? bit->new(1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1065	1179	
==>ons
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1065	1179	
==>ons
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7584	7691	
==>n part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7642	7749	
==>n part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &T <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	814	938	
==>ethod dispatch scope.  Note that methods
differ from normal Code refs only in that they do not have a
dynamically bound scope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3213	3380	
==>erm', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3224	3391	
==>erm', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from ma <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1533	1693	
==>rg ) );
        }
        
        method append ( Getopt::Argument $arg ) {
            $.append_name( $arg );
            $.append_value( $arg );
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4268	4412	
==>n( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4256	4400	
==>n( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2809	2911	
==>submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2809	2911	
==>submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	458	562	
==>export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	458	562	
==>export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2637	2816	
==>_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2637	2816	
==>_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CL <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5854	5970	
==>name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5842	5958	
==>name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless defined $value;

    return call_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	888	1003	
==>t(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S, $cc) = @ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2295	2390	
==>TAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

st <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6816	6922	
==>hat if I get to the end of the line and find no closing match, I should
ignore the opening one. However, th <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6816	6922	
==>hat if I get to the end of the line and find no closing match, I should
ignore the opening one. However, th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	678	805	
==>sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIP <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1479	1595	
==>amming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, t <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1479	1595	
==>amming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1112	1201	
==>"nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28075	28179	
==>nt Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32627	32731	
==>nt Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This meth <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18196	18319	
==>od
    .param pmc pad
    .local string token
    token = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13459	13554	
==>s.

=item $h.header_field_names

Returns the list of distinct names for the fields present in th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13459	13554	
==>s.

=item $h.header_field_names

Returns the list of distinct names for the fields present in th <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7542	7656	
==>,2) eq ("th"|"st"|"nd"|"rd")
                 && pugs_internals_m:perl5/\A(\d+)(?:th|st|nd|rd)\Z/) {
            my <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8388	8512	
==>sion: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency line based on Cabal version
        if ($has_new_cabal <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2517	2624	
==>ing
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	888	1001	
==>rint "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1094	1207	
==>rint "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = ev <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	905	1029	
==>str($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	905	1029	
==>str($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2282	2396	
==>HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2282	2396	
==>HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13119	13212	
==>").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representative f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13119	13212	
==>").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
representative f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8728	8824	
==>::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2553	2649	
==>::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2336	2444	
==>rt }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2336	2444	
==>rt }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { ret <==
2	/Users/nnunley/pugs/util/config_h.pl	669	770	
==>/version (\S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS_VE <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3789	3893	
==>ill be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3789	3893	
==>ill be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	498	596	
==>> 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_dura <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	498	596	
==>> 1 ) unless defined %param<density>;
    return $class.new( %param );
}

method from_date_and_dura <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2136	2324	
==>>( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26191	26310	
==>=~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> value won't be reset (due to the C</c>
m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1657	1768	
==>st->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1657	1768	
==>st->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2319	2417	
==>ommand line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailin <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2319	2417	
==>ommand line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	97	297	
==>porter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is_object
       p6_is_perl6_object
       p6_is_native
       p6_ref
       p6_isa
       p6_undef
       p6_bool
       p6_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	690	796	
==>::Basename::basename($script_file);
        $prompt = "Do you want to install '$script_name'";
        $pro <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4796	4975	
==>em from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4796	4975	
==>em from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        } <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	453	548	
==>tion) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	453	548	
==>tion) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14566	14687	
==>te_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(metho <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35532	35624	
==>ss_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40082	40174	
==>ss_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21697	21806	
==>ries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks so <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21697	21806	
==>ries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks so <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1606	1707	
==>ew()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start objec <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1606	1707	
==>ew()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start objec <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	895	1068	
==>ttribute($_) }
                             $class->attributes->members,
                             $class->associations->members,
                             # 2-way asso <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18632	18726	
==>s, StrPos $start  ; StrPos $end,      $replace)
{ Pugs::Internals::substr($s,undef,$start,undef <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5031	5138	
==>= $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 va <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5031	5138	
==>= $to_encode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	463	604	
==>MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	463	604	
==>MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2539	2637	
==>.  It also contains extra
information passed on by the HTTP server, useful to the authors of CGI sc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2539	2637	
==>.  It also contains extra
information passed on by the HTTP server, useful to the authors of CGI sc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4079	4228	
==>o cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4079	4228	
==>o cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1738	1888	
==>G)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, usern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1738	1888	
==>G)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, usern <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2283	2382	
==>w bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2283	2382	
==>w bytes of data aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1244	1354	
==>ence documents of Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1244	1354	
==>ence documents of Perl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of <==
2	/Users/nnunley/pugs/util/package-osx.pl	904	1019	
==>ibparrot.dylib
        /usr/local/lib/parrot
        /usr/local/lib/pkgconfig/parrot.pc
        /usr/local/share/doc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	353	460	
==>| confess "You must have an arg list";
    ($args->is_empty == $bit::FALSE)
        || confess "Your arg lis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	527	661	
==>/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	527	661	
==>/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2931	3337	
==>osetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2931	3337	
==>osetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rose <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	902	1027	
==>substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	902	1027	
==>substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $po <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5200	5325	
==>SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5200	5325	
==>SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14630	14732	
==>y $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14630	14732	
==>y $digest = $class->pmc_fold($text);
    return qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7846	8076	
==>/ yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7846	8076	
==>/ yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17135	17242	
==>age that would otherwise use
it.  Hereafter, if any other package or application says that it uses
Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17135	17242	
==>age that would otherwise use
it.  Hereafter, if any other package or application says that it uses
Locale::K <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3749	3855	
==>f = $class->SUPER::new;

	$self->{left} = shift;
	$self->{right} = shift;
	
	# FIXME - this is a hack for L <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31395	31501	
==>f this object (for look-ahead/behind assertions).  If
less than 0, it is behind; otherwise, it is ahead.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	556	723	
==>e($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Look <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	556	723	
==>e($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{3}/) {
                # Look <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	563	698	
==>n ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	464	599	
==>n ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9295	9395	
==>losed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9295	9395	
==>losed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9792	9955	
==>ay, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9792	9955	
==>ay, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16852	17004	
==>hift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16852	17004	
==>hift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	362	467	
==>:compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	362	467	
==>:compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12407	12502	
==>DLING

=head2 Determining Error

Use the errmsg() and errnum() methods to get the error informat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	518	636	
==>:Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	518	636	
==>:Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29126	29224	
==>t returns a value that says whether
or not it ended up being merged with the previous object in the <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	59	144	
==>un::OnPerl5::X1::Api;
require Perl6::Run::OnPerl5::X1::Compile;
require Perl6::Run::On <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1168	1260	
==>e::override - Override Perl regular expressions

=head1 VERSION

This document describes vers <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	990	1111	
==>f thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	990	1111	
==>f thing.
sub pmc_is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	373	481	
==>()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date::Dura <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	373	481	
==>()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Date::Dura <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1156	1280	
==>y($acc,$val) = each %$args ) {
        $self->$acc( $val );
    }
    
    $self->package( $self->meta->package );
    
    r <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	929	1051	
==>sr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5567	5703	
==>words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5567	5703	
==>words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10084	10184	
==>2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. Thi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10084	10184	
==>2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. Thi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10658	10762	
==>nator>
    | <BackslashSequence>
}
rule BackslashSequence {  # see 7.8.5
      <'\\'> <NonTerminator>
}
r <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1086	1210	
==>n";
        $allccs{$f} = [ keys %{comp_cc(\%cc)} ];
    }
    print ::Y(\%allccs),"\n";
}
#print $g->as_png unless $Conf{no} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14085	14183	
==>e as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" ord <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14085	14183	
==>e as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practice" ord <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4611	4826	
==>@member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4611	4826	
==>@member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'membe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3033	3142	
==>lt5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::wi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1116	1212	
==>ment
data for stubs and other thingies.

It also gives the compiler the default environment to wo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4161	4286	
==>($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $sel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4368	4493	
==>($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $sel <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	16	283	
==>use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	16	283	
==>use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale:: <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	581	705	
==>om_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	581	705	
==>om_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6968	7086	
==>re(), $name, @mess);
}

sub pass {
    _ok(1, '', @_);
}

sub fail {
    _ok(0, _where(), @_);
}

sub curr_test {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9481	9602	
==>fault { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9481	9602	
==>fault { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	588	731	
==>eturn = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	581	724	
==>eturn = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$captu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3740	3844	
==>my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5100	5204	
==>my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self->{p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3601	3766	
==>L::isa(shift(), 
                                                'JIB::Package::Binary') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3	103	
==>ule Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3	103	
==>ule Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "classes <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1676	1781	
==>Y> for important caveats).

Cipher::Arcfour also includes several attributes which might be interesting to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1676	1781	
==>Y> for important caveats).

Cipher::Arcfour also includes several attributes which might be interesting to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1070	1178	
==>set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1070	1178	
==>set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2354	2472	
==>.  Call the closure with a block of 
data to have it enciphered or deciphered; when you're done, call the closure 
with <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2354	2472	
==>.  Call the closure with a block of 
data to have it enciphered or deciphered; when you're done, call the closure 
with <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14172	14273	
==>->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1652	1753	
==>->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15238	15338	
==>s property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15238	15338	
==>s property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=item C<$!node <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10382	10533	
==>sh @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10382	10533	
==>sh @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14658	14779	
==>nned for this module.

- better error handling for cmp_ok

The error handling capabilities need to be expanded more to han <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14716	14837	
==>nned for this module.

- better error handling for cmp_ok

The error handling capabilities need to be expanded more to han <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13431	13579	
==>son .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13431	13579	
==>son .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	747	882	
==>ature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	747	882	
==>ature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2625	2734	
==>{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) > 6.17 and $self->sign ) {
        $args->{S <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	896	997	
==>s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	896	997	
==>s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24879	24998	
==>my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25158	25277	
==>my $capture_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Dat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2976	3085	
==>int( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2976	3085	
==>int( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5536	5676	
==>ingify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::L <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5536	5676	
==>ingify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::L <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35173	35270	
==>m C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
eleme <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35173	35270	
==>m C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
eleme <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8443	8542	
==>ntain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
sensi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8443	8542	
==>ntain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
sensi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18965	19075	
==>n't be a problem
because Locale::KeyedText is only meant to be used with user text that is
associated with hard <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18965	19075	
==>n't be a problem
because Locale::KeyedText is only meant to be used with user text that is
associated with hard <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	655	779	
==>ss::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self, 'Test::Harne <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3982	4080	
==>omplement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3982	4080	
==>omplement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4196	4298	
==>t::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (C <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4254	4356	
==>t::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	246	374	
==>print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	334	462	
==>print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # em <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	792	896	
==>or(split('&',$data)) {
        my($variable,$value) = split('=',$_);
        %Session{$variable} = url_de <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3798	3926	
==>-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non bre <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3798	3926	
==>-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non bre <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4126	4248	
==>proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4126	4248	
==>proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36816	36984	
==>->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3695	3819	
==>";
    close MAKEFILE;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if def <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5700	5853	
==>+)-(\d+)--([a-f0-9]+).html$/
    and return {
      pugs_version  => $1,
      pugs_revision => $2,
      osname        => $3,
      runcore       => runc <==
2	/Users/nnunley/pugs/util/config_h.pl	876	980	
==>.
    last;
}

# FIXME: we assume if you have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|ming <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	13107	13240	
==>ble) is primitive is safe {
        # Motto: If in doubt use brute force!
        my sub expand (Str $string is copy) {
            my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13104	13199	
==>r

=item Unary Form

Implementations should create a suitable macro, or otherwise support the
un <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	895	1094	
==>y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	895	1094	
==>y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BUILD ( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12623	12728	
==>x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug $reftyp" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17862	17975	
==>ule LogicalANDExpressionNoIn :words {  # see 11.11
      <BitwiseORExpressionNoIn>
    | <LogicalANDExpressionNoIn <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8214	8318	
==>' if !defined $x;
    my $ref = ref($x);
    if($ref eq 'ARRAY') {
	$s = '['.join(",",map{recurse($_)}@$x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19653	19752	
==>in or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19653	19752	
==>in or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its k <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29619	29947	
==>>new('$self:' => 'opaque'),
                              symbol->new('?$order' => 'symbol')                                                                
                          ),
                returns => 'block'
            ),             
            sub {
                my $e     = shift;
                my $self  = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	211	313	
==>ie 'Need at least one package';

my %indexed = map { $_->{package} => $_ } LoadFile( $Repoindex ); 

fo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19843	19940	
==>lready
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19843	19940	
==>lready
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10850	10959	
==>nk directly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8620	8729	
==>ll out of whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# dep <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8620	8729	
==>ll out of whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	362	550	
==>to install
        next unless $entry->{package} eq $package;

        ### and install it -- mark we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged foun <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3538	3721	
==>ed_only' => 1,      :$v
    #    'type' => {             Str $v
    #      'bareword' => 'Str',
    #    }
    #    'splat' => 1,           *$v
    #    'attribute' => \@attr   $v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	707	808	
==>N AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	913	1014	
==>N AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} ) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6595	6714	
==>dent;

		my $x = shift;
		my $y = shift;

		warn "comparing $x and $y";

		if (Scalar::Util::blessed($x) and Scalar::Uti <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	767	880	
==>p { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    $a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3105	3202	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3105	3202	
==>Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	672	785	
==>ver seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	672	785	
==>ver seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2492	2623	
==>sed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description' => sub <==
2	/Users/nnunley/pugs/util/package-osx.pl	753	859	
==>ib
        /usr/local/lib/libhistory.5.1.dylib
        /usr/local/lib/libparrot.0.4.4.dylib
        /usr/lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	351	473	
==>timizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros

    

=head1 Definitions



### cha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	330	447	
==>timizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros
    
=head1 Definitions

### cha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8458	8554	
==>:Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2283	2379	
==>:Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1042	1220	
==>0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            els <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1723	1830	
==>s::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::V <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2575	2682	
==>s::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::MakeMaker::V <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19008	19115	
==>hen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20366	20473	
==>hen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4943	5054	
==>child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4943	5054	
==>child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	120	256	
==>"'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_access <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18476	18593	
==>);
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14897	15014	
==>);
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{nex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6782	6901	
==>ALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $cont <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6840	6959	
==>ALLER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $cont <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4411	4577	
==>,
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4411	4577	
==>,
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27980	28079	
==>iated with
the variable name specified in the positional parameter $var_name (a
string).

=item C<ge <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27980	28079	
==>iated with
the variable name specified in the positional parameter $var_name (a
string).

=item C<ge <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3460	3569	
==>?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Pe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3460	3569	
==>?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Pe <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6928	7081	
==>urn;
    }

    local $ENV{PERL5LIB} = $self->_INC2PERL5LIB;
    if ( $Test::Harness::Debug ) {
        local $^W=0; # ignore undef warnings
        print <==
2	/Users/nnunley/pugs/util/package-osx.pl	7806	7903	
==>::Spec::Module.3pm
        /usr/local/man/man3/Perl6::Spec::Object.3pm
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7512	7641	
==>thenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7512	7641	
==>thenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3366	3481	
==>>{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3559	3674	
==>>{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17387	17492	
==>numerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17387	17492	
==>numerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3823	3963	
==>ified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3811	3951	
==>ified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2320	2443	
==>et> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule par <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2320	2443	
==>et> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule par <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36357	36456	
==>translate_message() to produce the list of Template module
names that it will search.

=item C<trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36357	36456	
==>translate_message() to produce the list of Template module
names that it will search.

=item C<trans <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2067	2182	
==>d2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and pro <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2067	2182	
==>d2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and pro <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	529	634	
==>me points to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_call <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	529	634	
==>me points to the code we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4276	4423	
==>$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4276	4423	
==>$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16690	16800	
==>ntent_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16690	16800	
==>ntent_type eq 'text/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/H <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	10507	10624	
==>st::Builder::Test $test )
  {
      fail 'No plan set!' unless $.testplan;
  
      push $.results, $test;
      $.out <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	239	353	
==>::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	660	768	
==><block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	660	768	
==><block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5222	5327	
==>:YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5041	5142	
==>:YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $sourc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	947	1052	
==>eturns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	947	1052	
==>eturns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20861	20969	
==>s do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() method, the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20861	20969	
==>s do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() method, the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2152	2299	
==>ture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2069	2210	
==>ture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3641	3760	
==>$.' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar <==
2	/Users/nnunley/pugs/util/func_refact.pl	137	247	
==>except=s@);

if ($Conf{help}) {
    print <<'END';
  run with -n filename containing nodes data produced by --n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1610	1709	
==>{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1750	1849	
==>{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{cap <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12263	12366	
==>n.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class repre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12263	12366	
==>n.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class repre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7691	7777	
==>Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7749	7835	
==>Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3889	3982	
==>ass, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5791	5884	
==>ass, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41213	41309	
==>de, rather than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41213	41309	
==>de, rather than requiring separate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1512	1614	
==>t is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1512	1614	
==>t is a front-end
to several other modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	593	697	
==>= $s.[1].()
    if is_promise($s.[1]);
  return $s.[1];
}


sub is_promise($a) {
  return $a.isa(Code);
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3062	3212	
==>->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	973	1099	
==>l equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The blondie intermediate lang <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16343	16458	
==>ences may yield three spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `complem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16343	16458	
==>ences may yield three spans.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `complem <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3470	3563	
==>e was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3470	3563	
==>e was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$other. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1802	1936	
==>rname, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutati <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1802	1936	
==>rname, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2070	2223	
==>.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        retur <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2070	2223	
==>.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        retur <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	728	830	
==>}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $. <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	728	830	
==>}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3822	3924	
==>For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3822	3924	
==>For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	576	685	
==>"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	576	685	
==>"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state - a "continuation" o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2134	2263	
==>r[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2134	2263	
==>r[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15054	15156	
==>_numeric);>

=back

All these routines modify the string passed as the first argument, if
called in a v <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15054	15156	
==>_numeric);>

=back

All these routines modify the string passed as the first argument, if
called in a v <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1050	1145	
==>full bidirectional functionality.

The complementary functions are emulated using iterations.

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1050	1145	
==>full bidirectional functionality.

The complementary functions are emulated using iterations.

- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17464	17603	
==>p');
                $t->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_indexs->{ substr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22399	22497	
==>nitially an array reference, used to store the tree as a new scope is
entered and then exited.  The <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	654	763	
==>ext => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	654	763	
==>ext => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24716	24843	
==>n,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->nparen;
  }

  sub nparen <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7919	8025	
==>inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ /^is m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4834	4931	
==>object returns the numified version
of the result object (usually the entire match string).

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4834	4931	
==>object returns the numified version
of the result object (usually the entire match string).

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5989	6098	
==>emit(get_data($_[0], '$<value>'));
    return "open ".$var.", '>', ".$lit.";\n";
}
sub node::_print {
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	671	763	
==>:Token->compile(q( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	632	734	
==>s Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	632	734	
==>s Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $n <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15433	15550	
==>undef);

    return $param;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    $self->enter_scope <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15141	15246	
==>newfrom(mob, 0, "PGE::Exp::Scalar")
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    mob["cname <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8768	8878	
==>tedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8826	8936	
==>tedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $Test::num_of_tests_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8808	8904	
==>erbatim>

This event handles the entire verbatim string.

=item I<string>

This event processes r <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8808	8904	
==>erbatim>

This event handles the entire verbatim string.

=item I<string>

This event processes r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3496	3609	
==>r;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3713	3826	
==>r;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9083	9180	
==>methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9083	9180	
==>methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2436	2565	
==>y sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $cont <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2436	2565	
==>y sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	926	1075	
==>{
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	926	1075	
==>{
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    ret <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4826	4944	
==>1)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4826	4944	
==>1)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2680	2841	
==>acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call the objects new method and return it
        return <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	738	838	
==>return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $testdir/$plxname.b <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4213	4317	
==>the
object returned represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4213	4317	
==>the
object returned represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1199	1296	
==>SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1199	1296	
==>SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => '((.) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15960	16066	
==>`start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15960	16066	
==>`start` and `end` are times, then `size` will be a duration.

- `contains( $object )` / `intersects( $objec <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8165	8306	
==>3),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8165	8306	
==>3),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10159	10258	
==>ject, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10159	10258	
==>ject, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14592	14688	
==>hars )

This routine works just like encode_entities, except that the replacement
entities are al <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14592	14688	
==>hars )

This routine works just like encode_entities, except that the replacement
entities are al <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1944	2054	
==>vent.
    # Note that I use the test number for reference, which will
    # blow up in our faces when tests are <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5366	5472	
==>he package's meta info
        $meta->{archive} =
            $self->pool_rel->file( file($pkg->file)->base <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1029	1123	
==>r => $Config{installsiteman1dir} || $Config{installman1dir},
        installsiteman3dir => $Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	570	718	
==>ift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	570	718	
==>ift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4058	4139	
==>dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4058	4139	
==>dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5726	5828	
==>>add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5805	5907	
==>>add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4850	5005	
==>e()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are wi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4850	5005	
==>e()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are wi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11149	11244	
==>"\\t", {[C] = "\t"}, !.
p6_simple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3130	3268	
==>nd line\n3rd line\n" ],
      [ 'file12', $file12,
        "3rd line\n4th line\n5th line\n6th line\n7th line\n".
        "8th line\n9th lin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4664	4768	
==>!! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4664	4768	
==>!! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6047	6172	
==>path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6047	6172	
==>path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1205	1322	
==>f: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1205	1322	
==>f: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	191	302	
==>ndBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	191	302	
==>ndBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle_inline( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4941	5042	
==>turn $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4941	5042	
==>turn $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6135	6233	
==>It
may be a little jumbled or hard to understand.  If you find a problem,
please let L<me|/"AUTHOR" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26772	26870	
==>attribute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<proje <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31324	31422	
==>attribute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<proje <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	233	352	
==>urns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	233	352	
==>urns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6540	6629	
==>$iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11598	11687	
==>$iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2306	2484	
==>lose;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Writ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2306	2484	
==>lose;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Writ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15517	15614	
==>c($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
which conta <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15517	15614	
==>c($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
which conta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1295	1393	
==>abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1295	1393	
==>abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1842	1955	
==>hift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makema <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	953	1064	
==>hift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makema <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8546	8641	
==>=> Blondie::TypeSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation->ne <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	928	1035	
==>) {
    # Push our callback on @:events.
    ./:enqueue({
      my $result = $session.dispatch($event, *@arg <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1173	1290	
==>ders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1173	1290	
==>ders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: < <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25288	25381	
==><Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25288	25381	
==><Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14521	14616	
==>s_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routine work <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14521	14616	
==>s_numeric( $string )

=item encode_entities_numeric( $string, $unsafe_chars )

This routine work <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14807	14948	
==>are some ideas for extensions (sub-classes) for this module.  Some
of them may be absorbed into the core functionality of F<Regexp::Parser>
in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16415	16530	
==>he value returned will be converted to lower case, and potential
parameters will be chopped off and returned as a se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16415	16530	
==>he value returned will be converted to lower case, and potential
parameters will be chopped off and returned as a se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1459	1555	
==>complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1459	1555	
==>complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough fo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17555	17675	
==>* pm)

what is pm?
XXX finish

I32      regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
                  cha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30324	30433	
==>rs of C<$attrs> do not match attribute names of the invocant
Relation::Example.  This method has an alias name <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7502	7718	
==>rent_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7502	7718	
==>rent_span];
                $.current = $span.previous( Inf );
            }
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10177	10267	
==>f","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10912	11002	
==>f","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0] <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15680	15781	
==>@ids = <year month day hour min sec picosec wday yday tzname tz is_dst>; # XXX: this should be a class <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1509	1615	
==>er API's procedural interface is good enough for many purposes.  
Although the interface is said to be proc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1509	1615	
==>er API's procedural interface is good enough for many purposes.  
Although the interface is said to be proc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10040	10170	
==>ARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    requir <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10040	10170	
==>ARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    requir <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10577	10698	
==>,
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10577	10698	
==>,
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3473	3573	
==>the HTTP::Request::CGI object).  The following methods are delegated
to the query object:

=over 8

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3473	3573	
==>the HTTP::Request::CGI object).  The following methods are delegated
to the query object:

=over 8

= <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4341	4459	
==>e[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.sta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4341	4459	
==>e[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.sta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11422	11526	
==>t object's attributes is identical; they do not
interact with the outside environment at all.

A Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11422	11526	
==>t object's attributes is identical; they do not
interact with the outside environment at all.

A Document <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	480	589	
==>hift;
		die "annotations are not fmappable, flatten first";
	}

	sub values {
		my $self = shift;
		croak "ann <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1179	1311	
==>class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1179	1311	
==>class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1975	2087	
==>export_attr_names of List of Relation::AttrName () {...}

proto method export_attr_type of Relation::LaxPairAttrT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18304	18397	
==>he document from which the
requested resource address was obtained.

The "Free On-line Diction <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18304	18397	
==>he document from which the
requested resource address was obtained.

The "Free On-line Diction <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14761	14879	
==>ue, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semant <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14761	14879	
==>ue, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span with "integer" semant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3813	3926	
==>ure object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3825	3938	
==>ure object return()-ed were a hash:
        the value $x in { return { a => $x ,} }
Named captures:
    $a := (.*? <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1477	1593	
==>ean, 
        FILES => join(' ', grep length, $clean->{FILES}, @_),
    );
}

sub realclean_files {
    my $self  = s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6272	6363	
==>(word_boundary)     --> "\\b", !.
p5_elemental(word_boundary_not) --> "\\B", !.
p5_elemental <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11331	11436	
==>ee>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11331	11436	
==>ee>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5347	5464	
==>: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfile}.p6"
        or "Couldn't open file ${srcfile}.p6 for writ <==
2	/Users/nnunley/pugs/util/testgraph.pl	1415	1526	
==>::Visual/;
    sub file_class { "My::File" }
    
    package My::File;
    use base qw/Test::TAP::Model::File:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1067	1198	
==>$args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1034	1165	
==>$args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13235	13331	
==>urn $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6710	6806	
==>urn $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1554	1658	
==>t - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast. <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1554	1658	
==>t - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14043	14156	
==>ame passed to the
callback routine has case as suggested by HTTP spec, and the headers
will be visited in the reco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14043	14156	
==>ame passed to the
callback routine has case as suggested by HTTP spec, and the headers
will be visited in the reco <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8956	9124	
==>( -e $postrm && -s _ ) {
            system( qq[ $^X $postrm ] )                             and die $?;
        }
    }


    ### remove alternatives and relink if need <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4615	4733	
==>, $line_number, $post_process) = @_;

    # Read original module source code instead of taking from filter,
    # becau <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4615	4733	
==>, $line_number, $post_process) = @_;

    # Read original module source code instead of taking from filter,
    # becau <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3145	3348	
==>number' => $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confe <==
2	/Users/nnunley/pugs/util/grokprims.pl	1210	1321	
==>if (/prefix/) {
    if (($arity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".joi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11268	11355	
==>'==' => type::operator::arrow->new(
		type::operator::nullary->new("int"),
		type::opera <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12878	12988	
==>the given line is a header (1..M) line.  If so, it places how
many tests there will be in C<< $strap->{max} >>, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8195	8325	
==>', $module_name );
    # Note: It is yet unknown whether this is working because the language
    # spec says it is supposed to, or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8195	8325	
==>', $module_name );
    # Note: It is yet unknown whether this is working because the language
    # spec says it is supposed to, or <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	925	1032	
==>Config{installman1dir},
        installman3dir     => $Config{installman3dir},
        installsiteman1dir => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1064	1223	
==>::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1064	1223	
==>::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5703	5811	
==>'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5703	5811	
==>'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this does no <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2706	2816	
==>erl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2706	2816	
==>erl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () { 'Literal' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2902	3035	
==>/localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.re <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2902	3035	
==>/localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4697	4842	
==>se {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4697	4842	
==>se {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2226	2347	
==>} elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ver,$op) = revers <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5191	5287	
==>{ "${class}::ISA" }, $ref . "::__object__" if $user_base;
    push @{ "${class}::ISA" }, __PACKAG <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2261	2397	
==>f($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2261	2397	
==>f($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $ma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4845	4964	
==>s and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4845	4964	
==>s and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { l <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4285	4417	
==>ree[1];  # keys: "isInvocant""isLValue""isLazy""isNamed""isOptional"
                             #       "isWritable""paramContext"" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4239	4349	
==>ngs 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]->family eq 'group') {
    my $vis = join "", map $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39088	39181	
==>on::Example.  This method
degenerates into an C<intersection> if the two source headings are
i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14139	14286	
==>y \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14133	14280	
==>y \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	514	625	
==>) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	514	625	
==>) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25291	25393	
==>t object's attributes is identical; they do not
interact with the outside environment at all.

A Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25291	25393	
==>t object's attributes is identical; they do not
interact with the outside environment at all.

A Messag <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14695	14811	
==>t
object's attributes is identical; they do not interact with the outside
environment at all.

A Node object has 5 ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14695	14811	
==>t
object's attributes is identical; they do not interact with the outside
environment at all.

A Node object has 5 ma <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7504	7673	
==>t_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7504	7673	
==>t_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17754	17903	
==>data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17754	17903	
==>data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13024	13124	
==>fier is also used internally when joining two spans, and when getting the span size.

Create a span o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13024	13124	
==>fier is also used internally when joining two spans, and when getting the span size.

Create a span o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17317	17439	
==>S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13738	13860	
==>S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_obj <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3868	4044	
==>)}; 
use constant ISA_JIB_PACKAGE_INSTALLABLE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Instal <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1	88	
==>~/usr/bin/perl

package P6RulesInP5::Rule;
use base qw/Class::Accessor P6RulesInP5::Matc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1297	1404	
==>one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1297	1404	
==>one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4696	4876	
==>_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4696	4876	
==>_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!stale_content;
            
            ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12696	12842	
==>:Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12696	12842	
==>:Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7462	7598	
==>turn 1;

    } else {        
        error("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( V <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30583	30686	
==>distinct Message; each file can be
shared by multiple Messages but the whole module must represent a sin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30583	30686	
==>distinct Message; each file can be
shared by multiple Messages but the whole module must represent a sin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	528	633	
==>274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUI <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	528	633	
==>274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7118	7219	
==>d;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7176	7277	
==>d;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate?) ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7048	7148	
==>onal operators, and the higher level OO/Overload 

runtime. 



- internal rule operators



Internal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6808	6903	
==>onal operators, and the higher level OO/Overload 
runtime. 

- internal rule operators

Internal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13383	13523	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_gre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13662	13802	
==>eop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'code', 
             ruleop::non_gre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13081	13178	
==>e exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payloa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13081	13178	
==>e exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payloa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16491	16590	
==>h as by simply
copying files), often even while the program is executing.

Locale::KeyedText gives y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16491	16590	
==>h as by simply
copying files), often even while the program is executing.

Locale::KeyedText gives y <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3042	3169	
==>d};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3042	3169	
==>d};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17838	17930	
==>field contains information about the software being
used by the originating server program ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17838	17930	
==>field contains information about the software being
used by the originating server program ha <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4019	4125	
==>ile (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@inde <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4019	4125	
==>ile (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@inde <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15391	15508	
==>dule Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15391	15508	
==>dule Compilation

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5813	6110	
==>e($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems() <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5813	6110	
==>e($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2284	2401	
==>nly -e ' <hello>.say; '

Script or module:

    # file: hello_world.pl
    use v6-pugs;
    "hello, world".say;

    $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8407	8516	
==>ck. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8407	8516	
==>ck. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $ev <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	191	291	
==>ort();
}

my $alts = LoadFile( $Altfile );

for my $struct ( sort { $a->{package} cmp $b->{package} } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14851	14948	
==>nt> - B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
this No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14851	14948	
==>nt> - B<Document>

Rosetta::Model::Document - This stores a reference to the Document that
this No <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7257	7393	
==>er-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7257	7393	
==>er-Agent") }
method server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23939	24038	
==>y understanding of alternate solutions like "gettext" suggests that they
use a compile-time macro-ba <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23939	24038	
==>y understanding of alternate solutions like "gettext" suggests that they
use a compile-time macro-ba <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9863	9975	
==>lue" } # XXX

NODE MkType ($typename) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOWN($lhs)." <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	493	603	
==>> 'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3843	3948	
==>hars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule PostAsteriskCommentChars {  # see 7.4
      <MultiLi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	702	817	
==>ti Math::Basic::abs ( Num $x = CALLER::<$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num::floor (  Num  $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11491	11590	
==>ct;
use warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data::Dumper;
use Language::At <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2373	2496	
==>, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2373	2496	
==>, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3160	3292	
==>{$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3160	3292	
==>{$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5059	5244	
==>marizing.
            my $details = {
                ok         => $pass,
                actual_ok  => $result{ok}
            };

            assert( defined( $details->{ok} ) && defi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2151	2246	
==>fix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUN <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2151	2246	
==>fix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUN <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10094	10201	
==>List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10094	10201	
==>List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11516	11649	
==>= $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11516	11649	
==>= $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14933	15089	
==>:constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15212	15368	
==>:constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \& <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3615	3726	
==>s;

  $cats{$_} = [
    (sort {
      $b->{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  < <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7192	7321	
==>kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Upd <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7192	7321	
==>kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Upd <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8143	8287	
==>itrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf || <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8143	8287	
==>itrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf || <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9962	10061	
==>d2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C<$set1> which are n <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9962	10061	
==>d2 C<$set1.difference($set2)>

Returns a new set containing all the elements of C<$set1> which are n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4130	4232	
==>ent, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4130	4232	
==>ent, span => $span1 );

    return ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5622	5712	
==>have to struggle with the {?{...})
sub hlp_ws {  def_whitespace($X::cap->[-2],"(?x)".$::X:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7876	7986	
==>he remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7876	7986	
==>he remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	440	541	
==>as failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	440	541	
==>as failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" i <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2529	2648	
==>when $_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7490	7593	
==>se {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7490	7593	
==>se {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15816	15916	
==>if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15816	15916	
==>if it has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9822	9927	
==>end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is expo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9822	9927	
==>end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is expo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4339	4446	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1465	1572	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1955	2173	
==>put,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1955	2173	
==>put,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1509	1651	
==>s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1509	1651	
==>s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub em <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3827	4016	
==>ft'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3827	4016	
==>ft'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8450	8572	
==>ontinue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &co <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8450	8572	
==>ontinue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24467	24578	
==>tware; you can redistribute it and/or modify it under
the terms of the GNU General Public License (GPL) as publi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24467	24578	
==>tware; you can redistribute it and/or modify it under
the terms of the GNU General Public License (GPL) as publi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3689	3773	
==>ion( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3689	3773	
==>ion( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_prev <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9741	9836	
==>by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "negat <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9741	9836	
==>by a "successor" function and a "predecessor" 
function.

Recurrence sets can extend from "negat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5597	5754	
==>rep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5597	5754	
==>rep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1733	1862	
==>ethod run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1733	1862	
==>ethod run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	476	577	
==>te: same author as the first scheme code):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26421	26516	
==>rns nil {
    @:subclasses.push($subclass);
}

(method add_subclass ((opaque $self:) (opaque $su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	482	602	
==>$subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	482	602	
==>$subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6336	6435	
==>BEGIN>

Although not technically part of the API, most ciphers will want to implement 
a constructor <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6336	6435	
==>BEGIN>

Although not technically part of the API, most ciphers will want to implement 
a constructor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	238	336	
==>al "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever matches <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	226	322	
==>al "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever matches <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1330	1569	
==>ant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1457	1696	
==>ant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7471	7576	
==>re = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7471	7576	
==>re = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1973	2095	
==>nt
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1973	2095	
==>nt
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22439	22569	
==>{  # see 12.11
      <'default'> <':'> <StatementList>?
}
rule LabelledStatement :words {  # see 12.12
      <Identifier> <':'> <St <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8653	8744	
==>=> Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9983	10086	
==>($set2)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9983	10086	
==>($set2)>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8027	8154	
==>mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++;

        $Strap->{_seen_head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11697	11797	
==>e
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is_n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9952	10066	
==>P::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9952	10066	
==>P::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7092	7213	
==>ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

.. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7092	7213	
==>ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

.. <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1080	1225	
==>? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $esca <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1080	1225	
==>? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $esca <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7519	7614	
==>ement ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7519	7614	
==>ement ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	642	746	
==>pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# new() create <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5323	5413	
==>not found.\n";
PrintGolfScore($head, $tail, $rev, $mid, $wc);
CheckHead($head);
CheckTail($ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10863	10959	
==>that in this instance, the information about how many members
were actually new is discarded.

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10863	10959	
==>that in this instance, the information about how many members
were actually new is discarded.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1381	1477	
==>ocedural interface does the same thing within a single call, hiding the 
full complexity.

=head3 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1381	1477	
==>ocedural interface does the same thing within a single call, hiding the 
full complexity.

=head3 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22431	22562	
==>_simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22710	22841	
==>_simple_statement =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	109	294	
==>:Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die 'Need at least one package';

my @List = LoadFile( $Repoindex );

for my $package (@ARGV ) {
    
    my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10546	10652	
==>_args .= "'\$.name'=>$namestr," if $name;
    $code_args .= "'\$.params'=>$code_params,";
    $code_args .= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6535	6649	
==>param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6535	6649	
==>param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23056	23194	
==>}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7459	7564	
==>, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7459	7564	
==>, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39985	40221	
==>' => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19533	19761	
==>'  => 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3410	3507	
==>face

The Cipher API is fundamentally object-oriented; the procedural and functional 
interfaces a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3410	3507	
==>face

The Cipher API is fundamentally object-oriented; the procedural and functional 
interfaces a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9936	10056	
==>ee ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  $inst_pkg->prefix, $inst_pk <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2800	2910	
==>s::Check->last_error), return;
    
    my $perl_version;
    ### special perl, or the one we are running under <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1072	1183	
==>, { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1072	1183	
==>, { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7315	7488	
==>tafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### ch <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	616	789	
==>tafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8449	8563	
==>ng? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8449	8563	
==>ng? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str wh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1668	1828	
==>);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1668	1828	
==>);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13880	13994	
==>in(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13880	13994	
==>in(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19472	19570	
==>source files, and not change
your main program.

I<Note that an update is planned for Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19472	19570	
==>source files, and not change
your main program.

I<Note that an update is planned for Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8038	8124	
==>---------------------------------------------------------------------
## utility method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8038	8124	
==>---------------------------------------------------------------------
## utility method <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	960	1060	
==>version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	960	1060	
==>version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docume <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12873	12985	
==>> for the explanations of the messages.

These are all constants in the F<Regexp::Parser> package, which means
yo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3321	3488	
==>s) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('r <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3321	3488	
==>s) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('r <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1540	1633	
==>es a Perl interface for pluggable regular expression
engines.  It affects all regular expressi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	782	884	
==>$prev = $curr;
  }
  Regexp::Parser->export_to_level($level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1798	1938	
==>= 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1738	1875	
==>= 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7349	7465	
==>ing data.  Block 
ciphers should buffer input data until they have an entire block, then cipher 
the block and return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7349	7465	
==>ing data.  Block 
ciphers should buffer input data until they have an entire block, then cipher 
the block and return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1193	1295	
==>ugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1193	1295	
==>ugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17105	17202	
==>as subsumed into a larger package that would otherwise use
it.  Hereafter, if any other package or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17105	17202	
==>as subsumed into a larger package that would otherwise use
it.  Hereafter, if any other package or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7358	7458	
==>concatenation.

- "plain" match operators: like 'literal'.



Higher order operators take a list of m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7108	7205	
==>concatenation.
- "plain" match operators: like 'literal'.

Higher order operators take a list of m <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2894	3022	
==>latex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /\n/;
	    }
	    print "} \\\\\n";
	    $col = 0;
	} elsif ( $chr =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	331	464	
==>hift;
    $self->{type};
  }

  sub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub visual {
    my $self = shift;
    ex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17144	17247	
==>nnotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we ca <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22244	22347	
==>nnotations 20001228 MJD */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we ca <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9477	9564	
==>gleton method');
   
$iFoo->add_singleton_method('another_test_iFoo_singleton_method' => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10582	10680	
==>ield => $value) pairs, which
means that you can update several fields with a single invocation.

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10582	10680	
==>ield => $value) pairs, which
means that you can update several fields with a single invocation.

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8714	8859	
==>return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8714	8859	
==>return $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23133	23238	
==>est they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23133	23238	
==>est they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the ser <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	111	223	
==>sity = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	111	223	
==>sity = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, d <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5971	6065	
==>long string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5971	6065	
==>long string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16395	16524	
==>\Q$heading\E$/i;

#               print STDERR "Trying to get heading >$heading<\n";

                my $h = $sobj->look_down( _t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8658	8771	
==>efined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 8, '... $iFoo is the fourth id');

# try <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4582	4736	
==>[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? + <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4570	4724	
==>[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? + <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3703	3819	
==>en ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3703	3819	
==>en ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4034	4192	
==>t('&dispatcher')->do());
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$curren <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17138	17249	
==>irst_line > length $name;
    }

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1826	1953	
==>tart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || d <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1826	1953	
==>tart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || d <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	525	698	
==>) {
    for(;s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    printf(" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3321	3431	
==>lf}));
}

## list iterators

sub each : method {
    my ($self, $closure) = @_;
    (blessed($closure) && ($clo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6534	6657	
==>y @libs = "-lHSPugs-$version";
    push @libs, grep /^-threaded/, @_;
    push @libs, grep /^-opt/, @_;
    push @libs, grep <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6752	6862	
==>has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6752	6862	
==>has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2867	3016	
==>ata -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e $preinst && -s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	495	614	
==>[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	495	614	
==>[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	209	459	
==>ges in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	209	459	
==>ges in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7400	7497	
==>until they have an entire block, then cipher 
the block and return the new ciphertext (or plaintex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7400	7497	
==>until they have an entire block, then cipher 
the block and return the new ciphertext (or plaintex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9292	9425	
==>4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9350	9483	
==>4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1706	1811	
==>}
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1706	1811	
==>}
    return canonpath(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2463	2609	
==>, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub blank {
  my ( $matchObj ) = @_
  my ($ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20780	20896	
==>r(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17201	17317	
==>r(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37462	37557	
==>thod takes the name of a Perl package in its positional parameter
$module_name (a string) and tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37462	37557	
==>thod takes the name of a Perl package in its positional parameter
$module_name (a string) and tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4721	4926	
==>'s a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4721	4926	
==>'s a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16953	17108	
==>e_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13374	13529	
==>e_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1232	1336	
==>n";
    unlink $pilfn or die "Couldn't remove \"$pilfn\": $!\n";
    unlink $fn or die "Couldn't remove \ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5215	5322	
==>strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6864	6961	
==>get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6864	6961	
==>get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19664	19767	
==>k
effectively acts as a C<no> statement for any compile sections in
that block. C<use> statements in a P <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19664	19767	
==>k
effectively acts as a C<no> statement for any compile sections in
that block. C<use> statements in a P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5364	5467	
==>ath'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5364	5467	
==>ath'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1190	1360	
==>o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  m <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1190	1360	
==>o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6589	6691	
==>LIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = spli <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6589	6691	
==>LIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = spli <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2915	3072	
==>> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2915	3072	
==>> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7231	7332	
==>y $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7243	7344	
==>y $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	203	363	
==>turns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter == +@x {
          $str = append_last($x,$str,$iter);
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16278	16374	
==>aey00, $2 = 1

This means character classes should store a hash of what characters
they represent <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	150	260	
==>ures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsi <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	150	260	
==>ures

token code { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6643	6739	
==>iblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6643	6739	
==>iblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	846	958	
==>onpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args her <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	846	958	
==>onpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args her <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15565	15721	
==>load-size" => 4,              # Set numbers of load sectors
      "-boot-info-table",                  # Patch boot image with info table
      "-o" => $iso, <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	31	141	
==>use Module::Install::Base; @ISA = qw(Module::Install::Base);
use strict;
use Config;
use File::Spec;
use File:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2677	2787	
==>git => 0);
  });

  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9041	9163	
==>expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	499	608	
==>expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@values, 0, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1349	1450	
==>ble of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1349	1450	
==>ble of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various talks about P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8885	8991	
==>this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8885	8991	
==>this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # will m <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6963	7090	
==>y"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<"pSub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38641	38741	
==>y that is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

L<Set>.

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5500	5681	
==>method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8977	9158	
==>method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Se <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1562	1671	
==>cluding them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Ta <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1562	1671	
==>cluding them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Ta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1412	1527	
==>::Test')->FETCH('::Pass')->new(
                '$.description' => $params{'$.description'},
                '$.pass <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7158	7254	
==>ative multimetods this would be much more concise

# a free variable instantiates into whatever i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22710	22825	
==>)* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19131	19246	
==>)* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logic <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2852	2993	
==>paque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            : <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3057	3198	
==>paque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            : <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1722	1816	
==>= q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1722	1816	
==>= q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8733	8902	
==>IL); 
            $e->create("$current", $e->get("&dispatcher")->do()); 
            block->new($e, sub { 
                my $e = shift; 
                $e->get("$curre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30938	31034	
==>head2 Object Attributes

All objects share the following attributes (accessible via
C<< $obj->{.. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	779	951	
==>< 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5-d

Into:

 p5-a AND (p5-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine wit <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3448	3567	
==>e accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uum <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3448	3567	
==>e accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uum <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1184	1288	
==>o that later `use` or `require` statements 
will find modules which are not located on Pugs's default
sea <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1184	1288	
==>o that later `use` or `require` statements 
will find modules which are not located on Pugs's default
sea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3969	4098	
==>) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { has <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1044	1136	
==>PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::Exp::CCShor <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1327	1447	
==>c> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even th <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1327	1447	
==>c> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn't tell me even th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13656	13761	
==>age feature missing, or core bug that needs to
be sorted out before you can continue.

It is also possible <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13714	13819	
==>age feature missing, or core bug that needs to
be sorted out before you can continue.

It is also possible <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1748	1891	
==>$self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1748	1891	
==>$self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	505	612	
==>xt::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	505	612	
==>xt::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1559	1673	
==>nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.ho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1559	1673	
==>nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.ho <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	94	245	
==>rict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glo <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	94	245	
==>rict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1473	1577	
==>d union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1473	1577	
==>d union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - o <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8397	8510	
==>lf->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc_pkg not cac <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1700	1821	
==>n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1700	1821	
==>n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2914	3017	
==>use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	178	281	
==>use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11786	11896	
==>val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11786	11896	
==>val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $?SELF!_di <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13182	13312	
==>0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13182	13312	
==>0, end => 10 );
    #  [10,20]   11 things
    
Create a span of dates:
    
    $one_day = Date::Duration.new( days => 1 );
    $d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22057	22155	
==>head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

= <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22057	22155	
==>head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10213	10341	
==>ing {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

= <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10213	10341	
==>ing {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

= <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4855	4952	
==>s+/pm_to_blib :: /mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't op <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7288	7462	
==>>
    | <'++'>
    | <'--'>
    | <'<<'>
    | <'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <': <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3682	3782	
==>);
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3682	3782	
==>);
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @inters <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5392	5497	
==>ta structures used by the Rosetta framework, as used by
    # the current process/application.
    my Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5392	5497	
==>ta structures used by the Rosetta framework, as used by
    # the current process/application.
    my Rose <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7443	7551	
==>difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7443	7551	
==>difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2135	2251	
==>ile');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative por <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2135	2251	
==>ile');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative por <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7844	7942	
==>}

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7844	7942	
==>}

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
method pr <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5813	5916	
==>iny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5813	5916	
==>iny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	753	865	
==>nst = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	753	865	
==>nst = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7675	7799	
==>ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7868	7992	
==>ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18134	18231	
==>etta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want to u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18134	18231	
==>etta Native
Interface, if at all.  To account for situations where multiple DBMS
objects want to u <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6074	6170	
==>t/complex.t> test 
actually roundtrip parses this document successfully. However, more complex PO <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6074	6170	
==>t/complex.t> test 
actually roundtrip parses this document successfully. However, more complex PO <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1863	1962	
==>::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly co <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1863	1962	
==>::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3313	3410	
==>he Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3313	3410	
==>he Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2643	2743	
==>method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2643	2743	
==>method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Pe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1382	1484	
==>th = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1382	1484	
==>th = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7157	7283	
==>T_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7157	7283	
==>T_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11340	11449	
==>([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11340	11449	
==>([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5201	5358	
==>vedWord {  # see 7.5.3
      <'abstract'>
    | <'enum'>
    | <'int'>
    | <'short'>
    | <'boolean'>
    | <'export'>
    | <'interface'>
    | <'static'> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	286	393	
==>order
use Perl6::Core::Bit;

# comparisons

# implement this and get the rest for free
# NOTE: 
# compare re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18446	18549	
==>I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18446	18549	
==>I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13067	13170	
==>dle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13067	13170	
==>dle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $fro <==
2	/Users/nnunley/pugs/util/package-osx.pl	787	893	
==>ry.5.1.dylib
        /usr/local/lib/libparrot.0.4.4.dylib
        /usr/local/lib/libparrot.a
        /usr/l <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6948	7117	
==>}
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize al <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6948	7117	
==>}
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize al <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	536	659	
==>s-smokes/",
  BASEHTTPDIR => "/iblech/stuff/pugs-smokes/",
  BUCKET      => "bucket.dat",
  MAX_RATE    => 1 / 30,       # A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	891	984	
==>nterpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Per <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1459	1623	
==>37..35]);
            $duration = Duration::Gregorian.new
                ( :start($start), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3058	3211	
==>',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packages that provide: a <prefix>-<n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7706	7810	
==>ILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7706	7810	
==>ILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq normali <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6905	7019	
==>!$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7464	7578	
==>!$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	142	262	
==>%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (S <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	142	262	
==>%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15373	15471	
==>cally no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and uncomprom <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15373	15471	
==>cally no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete and uncomprom <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3924	4040	
==>on');
            return $status;
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Skip' => class 'Test <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22783	22930	
==>class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23285	23432	
==>class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self-> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6672	6781	
==>nion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10149	10258	
==>nion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2219	2326	
==>g_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2219	2326	
==>g_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	380	588	
==>ure( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	380	588	
==>ure( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2939	3060	
==>@{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $pro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3403	3524	
==>@{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $pro <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17556	17651	
==>ethod emits a warning and returns undef.

- `span()`

Returns the internal object that represent <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17556	17651	
==>ethod emits a warning and returns undef.

- `span()`

Returns the internal object that represent <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2826	2942	
==>ethod run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my % <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2826	2942	
==>ethod run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my % <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	787	895	
==>e.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow interoperabil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	787	895	
==>e.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow interoperabil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23175	23286	
==>ext and they translate it, which could
produce ambiguous results or associations.  Or alternately, the other
pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23175	23286	
==>ext and they translate it, which could
produce ambiguous results or associations.  Or alternately, the other
pac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17520	17632	
==>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17520	17632	
==>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
standard.>

=item $h.user <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1080	1210	
==>'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" v <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1080	1210	
==>'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" v <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15617	15764	
==>_n+1, $div);
            $div->push_content(@kids);
            $kids[0]->tag('div');
          }
        }
        
        $sobj->deobjectify_text <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	905	1011	
==>on't accidentally load old or
    # different versions of modules.
    # This is not enforced yet, but will <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14359	14476	
==>"eval") or
        ($tree->[-1]->{zerolen} and !($self->{min} == 0 and $self->{max} == 1))
      ) {
        $rx->awar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4176	4286	
==>rom( $matchObj );
  if ( (substr $target, $from, 1) =~ />/ )
  {
    $matchObj->position( $matchObj->from() + 1 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3515	3624	
==>iler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check ma <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3515	3624	
==>iler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_check ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1254	1395	
==>le variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1254	1395	
==>le variable_rule {
        <variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_ter <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3476	3643	
==>[touch], $obj->$meth )    and error($?), return;
                }
            }
            
            ### do alts first, package;:installed uses them
            my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14249	14344	
==>ke sense to iterate through a continuous span, because the "separation" 
between values would be <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14249	14344	
==>ke sense to iterate through a continuous span, because the "separation" 
between values would be <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1778	1904	
==>rded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1778	1904	
==>rded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C< <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	611	779	
==>lf.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug,
    'I=s'       => \@inc_dirs <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3667	3766	
==>%^H.  The first thing
needed is a scope.t test file.

=item Memory

One sees both segfaults and memo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1300	1406	
==>r::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4146	4292	
==>{
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4339	4485	
==>{
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3796	3898	
==>i sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3796	3898	
==>i sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2717	2833	
==>ms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Curre <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2717	2833	
==>ms is really bad. I 
hope that as Pugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Curre <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	844	971	
==>zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	844	971	
==>zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7707	7849	
==>match ) {
        return ${$match<category>}.add_op( 
            name => $match<name>, 
            fixity => ..., 
            precedence <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6552	6656	
==>t}::Node;\n".<<'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16373	16499	
==>my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $nam <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8868	8974	
==>ry_error:
  $matchObjPos = -1;
  die "Missing ternary close at offset $whitespacePosition \n";
  return ( $ <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1047	1150	
==>nfig.push({Name => ''}) unless +@config;
			@config[-1]{"Features"}{$0} = $1;
		} else {
			die "Invalid <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11263	11361	
==>is not in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11263	11361	
==>is not in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11965	12091	
==>r,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11965	12091	
==>r,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23625	23724	
==>or> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23625	23724	
==>or> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L<Ro <==
2	/Users/nnunley/pugs/util/addauthors.pl	858	1010	
==>holeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first initial, last name.
    my ($initial, $last <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6839	6967	
==>}

    unless( -r $file ) {
        $self->{error} = "$file is not readable";
        return;
    }

    local $ENV{PERL5LIB} = $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1961	2070	
==>'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, in <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1961	2070	
==>'dim'
# TODO - sync with Perl5 version of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	287	399	
==>= "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	287	399	
==>= "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4069	4202	
==>) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4069	4202	
==>) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.po <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3410	3515	
==>'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3468	3573	
==>'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18811	18928	
==>ackage statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Beg <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18811	18928	
==>ackage statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Beg <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1305	1411	
==>method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1305	1411	
==>method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.e <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2865	2963	
==>unt(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the b <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2865	2963	
==>unt(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the b <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3152	3259	
==>catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 'syn', "S12.pod") <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1289	1438	
==>ule, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22915	23038	
==>d:
    $P0 = pad[mname]
    pad[mname] = value
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad[mnam <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1055	1175	
==>ital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieres <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1055	1175	
==>ital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieres <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23891	24022	
==>specific details like
encodings or plurality.

My understanding of alternate solutions like "gettext" suggests that they
use a compi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23891	24022	
==>specific details like
encodings or plurality.

My understanding of alternate solutions like "gettext" suggests that they
use a compi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6131	6248	
==>~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6131	6248	
==>~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w] <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3335	3427	
==>makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(I <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4471	4563	
==>makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1472	1573	
==>od end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1472	1573	
==>od end_is_closed   () { return Bool::True }
method end_is_open     () { return Bool::False }

method c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2210	2379	
==>nd\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            % <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2210	2379	
==>nd\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3847	3995	
==>le( q(
                <?Pugs::Grammar::Term.ident>
                { return { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::C <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1426	1519	
==>ir "third-party/$module";
        system("../../Setup$Config{_exe}", 'configure', '--user', '- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7738	7845	
==>xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7738	7845	
==>xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13255	13352	
==>ed>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13255	13352	
==>ed>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	938	1033	
==>licate_nodes($program);

=head1 DESCRIPTION

Useful as a first pass in the code emission process <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2108	2260	
==>= 'PREINST.pl';                     # run before install
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1279	1402	
==>erl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has Int $count = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5409	5510	
==>hod
fails_ok { $iFoo->name } '... instance calling metaclass method fails';

is($iFoo->foo, 'Foo->foo' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8112	8214	
==>sible; for example, it should not merely set arrays to C<()>, but loop 
through them setting all the el <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8112	8214	
==>sible; for example, it should not merely set arrays to C<()>, but loop 
through them setting all the el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6977	7103	
==>self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6977	7103	
==>self!boundary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	257	381	
==>@_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = leng <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	257	381	
==>@_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
sub constant_at_pos { 
    my $const = shift;
    my $len = leng <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38148	38254	
==>ext!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text string in
its positiona <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38148	38254	
==>ext!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text string in
its positiona <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	131	230	
==>$compress = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://m19s28.vli <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	282	423	
==>in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorab <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	282	423	
==>in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorab <==
2	/Users/nnunley/pugs/util/build_pugs.pl	14	126	
==>l -w

use strict;
use warnings;
use Cwd qw(cwd);
use File::Copy qw(copy);
use File::Path qw(mkpath rmtree);
use F <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4743	4841	
==>ETHODS

=over 4

=item B<new (@x of ~type) returns list>

=item B<to_native () returns *native*>

= <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4995	5109	
==>rns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will b <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4995	5109	
==>rns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which will b <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23981	24101	
==>redo";
          die "p6_loop_CODE: bug";
       }
      }'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	246	369	
==>}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	246	369	
==>}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8559	8682	
==>en
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < pos goto err_no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38301	38406	
==>riables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38301	38406	
==>riables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1217	1363	
==>ethod uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method / <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1217	1363	
==>ethod uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method / <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5501	5664	
==>->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5513	5676	
==>->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ / <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	460	578	
==>od end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	460	578	
==>od end_is_closed   () { return Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1455	1557	
==>ic::exp ( Num $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced:: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15193	15308	
==>= $control ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4466	4547	
==>-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4466	4547	
==>-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	626	876	
==>e Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	626	876	
==>e Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Local <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4299	4431	
==>mizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4150	4278	
==>mizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	440	551	
==>s{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	407	518	
==>s{url} = $args{ftp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26126	26234	
==>e names you can have depend on the Message Key
it is being used with (others are ignored).  Each variable nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26126	26234	
==>e names you can have depend on the Message Key
it is being used with (others are ignored).  Each variable nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13567	13702	
==>andle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13567	13702	
==>andle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%han <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	617	715	
==>ITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log:: <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	617	715	
==>ITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3470	3670	
==>at => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3717	3917	
==>at => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<c <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3599	3699	
==>rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3599	3699	
==>rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	475	679	
==>f ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	475	679	
==>f ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19612	19709	
==>use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

R <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19612	19709	
==>use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2371	2504	
==>to add cookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2371	2504	
==>to add cookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2915	3031	
==>or this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2915	3031	
==>or this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2461	2594	
==>'+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2461	2594	
==>'+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9093	9194	
==>same failure object always

then there's absolutely no overhead

I'm not sure about this - failed matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8794	8893	
==>same failure object always
then there's absolutely no overhead
I'm not sure about this - failed matc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6308	6425	
==>, 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6308	6425	
==>, 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	587	691	
==>g a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with the Cipher A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	587	691	
==>g a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with the Cipher A <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2091	2242	
==>elf->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2091	2242	
==>elf->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pid = open2 <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1829	1962	
==>"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comments($program);
    $program =~ s{(["\\])}{\\$1}g;
    $prog <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2006	2114	
==>atchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ($matchObj, $target <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	406	529	
==>al, defaults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_dur_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	374	478	
==>levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   push( @{$_[0]->{levels}[$_[1]]}, $_[2] ) },
) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5505	5647	
==>};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5727	5869	
==>};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19436	19536	
==>rintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe {
    join($co <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2066	2164	
==>$Config{cc} $Config{ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    print "# Could not compil <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	554	666	
==>thong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumf <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	554	666	
==>thong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumf <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4749	4917	
==>new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $sele <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4749	4917	
==>new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $sele <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6696	6849	
==>t->unregister( package => $inst_pkg );

=cut

sub unregister {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $in <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12853	12942	
==>id>')" id="expander_<tmpl_var name=id>">&raquo;</span></td>
	    <td><a style="text-decora <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12188	12482	
==>n', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12188	12482	
==>n', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12857	12960	
==>not be possible to get Match objects (only strings) into
  $1,etal, or even into the return value.  In t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18573	18659	
==>sionNoIn> <'?'> <AssignmentExpressionNoIn> <':'> <AssignmentExpressionNoIn>
}
rule Assi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8681	8778	
==>encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $ta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8681	8778	
==>encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $ta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34707	34807	
==>lation that has the
same heading as the invocant and whose body contains all of the tuples that
are i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39257	39357	
==>lation that has the
same heading as the invocant and whose body contains all of the tuples that
are i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7522	7696	
==>ex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$ne <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7522	7696	
==>ex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4702	4799	
==>!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4924	5021	
==>!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or d <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1158	1254	
==>rorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2020	2311	
==>/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2020	2311	
==>/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                whe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2919	3015	
==>tem C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2919	3015	
==>tem C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6337	6459	
==>od $method) returns nil {
    %:methods{$label} = $method;
}

(method add_method ((opaque $self:) (symbol $label) (method $ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2528	2626	
==>smoke_upload) {
  if (defined $smoke_upload_script) {
    system("$^X $smoke_upload_script $html_lo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13867	13975	
==>riginal_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_sav <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13867	13975	
==>riginal_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_sav <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3793	3916	
==>}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1893	2016	
==>}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	634	741	
==>s} = { $program => '$main' };

	$self->make_name($_) for @nodes;

	my $out = join("\n\n", map {
		my $name = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2223	2348	
==>wo) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2223	2348	
==>wo) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15381	15488	
==>tr @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15381	15488	
==>tr @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $top <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2850	2981	
==>$Config{"output-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5646	5784	
==>. _emit( $n->{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12820	12948	
==>es yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2370	2489	
==>ct ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2370	2489	
==>ct ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1811	1977	
==>AST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9322	9541	
==>e(
                block->new($e, sub { 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_not_nil()
                      ->and(
                          block->new( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1196	1314	
==>density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1196	1314	
==>density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method uni <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9593	9700	
==>List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9593	9700	
==>List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11488	11602	
==>nd($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\"). <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11488	11602	
==>nd($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\"). <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1617	1711	
==>ator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimen <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1617	1711	
==>ator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6868	6985	
==>}
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($ki <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6868	6985	
==>}
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($ki <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8738	8877	
==>removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->control_dir( $ins <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	724	844	
==>riables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to inc <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	724	844	
==>riables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to inc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1482	1606	
==>t( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13484	13627	
==>of_class => alpha => $neg, \$how);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8529	8645	
==>Y
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.write( $footer ) if $footer;
  }
  
  method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	457	571	
==>red => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	941	1055	
==>red => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1743	1840	
==>re: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role parame <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1743	1840	
==>re: This role uses syntax which is not yet accepted, see thread "Syntax for
specifying role parame <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38732	38830	
==>eplaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=bac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38732	38830	
==>eplaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=bac <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	913	1028	
==>plicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log message <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	913	1028	
==>plicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log message <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2867	2959	
==>ubmit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 200 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2867	2959	
==>ubmit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 200 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1429	1539	
==>Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_ph <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1429	1539	
==>Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_ph <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17427	17519	
==>The classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, def <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17427	17519	
==>The classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, def <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35664	35763	
==>em C<join (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40214	40313	
==>em C<join (Relation $other!) returns Relation>

This multi-method is a generic binary relational ope <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3840	3938	
==>t<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3840	3938	
==>t<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostn <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	641	799	
==>,
        'footer' => sub {
            my ($self, $run) = @_;
            return '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6422	6527	
==>le emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6434	6539	
==>le emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7278	7396	
==>YPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7278	7396	
==>YPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12610	12729	
==>y-on-write and such complications, could be a bear.

  A source filter approach, while likely flakier (modulo memory iss <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2841	3010	
==>mit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2841	3010	
==>mit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2809	3005	
==>:constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2820	3016	
==>:constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6704	6810	
==>reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        } <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6704	6810	
==>reverse(@.items).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14568	14697	
==>ched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reope <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14568	14697	
==>ched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reope <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1155	1269	
==>ot an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1155	1269	
==>ot an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	927	1031	
==>ammar::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10225	10358	
==>^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10225	10358	
==>^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_modul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	40	160	
==>Class ();
use Cwd;
use Config;

use vars qw[$INSTALLATION_DIR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23475	23600	
==>G_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN_SANY           REG_SEEN_CANY /* src bckwrd cmpt <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13120	13220	
==>set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set cont <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13120	13220	
==>set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set cont <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8949	9072	
==>> <<HELP;
      We use 'ldd' to read the list of shared libraries (*.so) pugs
      requires. This is necessary so we can co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	464	556	
==>t RPe_SWNREC => --$ENUM, 'Switch condition not recognized';
use constant RPe_SWBRAN => --$ENU <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13189	13284	
==>ule (currently Inline::C),
  and is thus not very portable to broken (no compiler) microsoft sys <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1324	1464	
==><Pugs::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        s <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7053	7392	
==>icense'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7110	7449	
==>icense'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4992	5115	
==>ere, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(backtra <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4992	5115	
==>ere, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(backtra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22296	22419	
==>e_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18717	18840	
==>e_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1402	1511	
==>inite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use D <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1402	1511	
==>inite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use D <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	195	329	
==>cs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * s <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	195	329	
==>cs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13971	14083	
==>don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13971	14083	
==>don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6852	6957	
==>"Checking for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $pugs_version;
step
  descr  => <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1086	1189	
==>*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is ex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1086	1189	
==>*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	749	858	
==>"match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	749	858	
==>"match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    captur <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	593	713	
==>LF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	593	713	
==>LF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  g <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1488	1585	
==>Scalar::Util::blessed($node)) {
		if ($node->isa("Blondie::Node")){
			my $reduced = $self->SUPER: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3286	3404	
==>val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3286	3404	
==>val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1123	1255	
==>and Code -- because it is both a namespace of symbols and has

a main body closure. 



the Package part of the Module is simply a ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1071	1200	
==>and Code -- because it is both a namespace of symbols and has
a main body closure. 

the Package part of the Module is simply a ha <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8545	8674	
==>.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8545	8674	
==>.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5120	5245	
==>."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.ke <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8597	8722	
==>."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.ke <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17081	17191	
==>ree.
    return $v;
  }
}

my $noop = Hacks->noop;
sub compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	741	888	
==>ar [$_[0]] -- [$2] \n";
    return {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	511	618	
==>t=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	511	618	
==>t=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => \ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11395	11505	
==>eturn $?SELF!_product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14872	14982	
==>eturn $?SELF!_product( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1757	1861	
==>\\c[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<] <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2091	2185	
==>ome::Module> called C<note> without providing any tags, it 
would look for a tag named C<Module <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2091	2185	
==>ome::Module> called C<note> without providing any tags, it 
would look for a tag named C<Module <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	148	253	
==>];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accesso <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13189	13288	
==>o this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13189	13288	
==>o this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9151	9264	
==>case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9151	9264	
==>case, and in interactive Pugs delete
    # seems to work...
    %users{$newnick} = %users{$oldnick};
    %users.de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14325	14431	
==>)
would have to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14325	14431	
==>)
would have to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the head <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2649	2822	
==>$self = shift;
                # FIXME context should be propagated to methods
                scalar(() = $self->hash_fetchKeys) == 0;
            },
        },
    },
};

1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	99	199	
==>1 DESCRIPTION

JIB stands for 'JIB Is Brilliant' and is a suite of modules that will be used
as the b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18995	19096	
==>moves the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18995	19096	
==>moves the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that
the removal <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4431	4537	
==>ME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4431	4537	
==>ME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31859	31953	
==>en implemented.>

This method is a generic relational operator that returns a new Relation::Exa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32906	33000	
==>en implemented.>

This method is a generic relational operator that returns a new Relation::Exa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16458	16565	
==>lsif (!$tot->{tests}){
        die "FAILED--no tests were run for some reason.\n";
    } elsif (!$tot->{max} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	621	712	
==>h->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Wri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	621	712	
==>h->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Wri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6761	6867	
==>0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6761	6867	
==>0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1651	1750	
==>o fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1651	1750	
==>o fill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1302	1404	
==>@entity_headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1302	1404	
==>@entity_headers,
);

# Make alternative representations of @header_order.  This is used
# for sorting a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9063	9280	
==>rt => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9063	9280	
==>rt => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8338	8460	
==>re_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8338	8460	
==>re_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating c <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10109	10236	
==>ived_switches ) {
        $_ = qq["$_"] if ((/\s/ || $self->{_is_vms}) && !/^".*"$/ );
    }
    return join( " ", @existing_swi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4216	4324	
==>top_version\n"
        . ($self->postamble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $makefile_name <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3328	3454	
==>rget> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "C <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3328	3454	
==>rget> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4781	4970	
==><F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5003	5192	
==><F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $pr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1598	1697	
==>lar regex engines.  Its structure follows the spec.  If for
#  instance, your engine cannot handle l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7226	7364	
==>ll method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7226	7364	
==>ll method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4355	4487	
==>ata} }), "]";
  }

  sub raw {
    my $self = shift;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1175	1290	
==>rl5};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15218	15316	
==>tention to
to select our language.  so I suspect the default should be Grf. -law]

Attempting to us <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50888	51042	
==>ew('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:version'))
                  ->to_bit()
                  ->a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27355	27449	
==>λx. (x 'str'))(id)");
is(t($fac), "int → int", ":t fac");
is(t($length), "∀α. list α → <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16019	16112	
==>Expression>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpression>
    | <RelationalExpress <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4737	4841	
==>t version of the data given.
The data may be either a string or an array of bytes; the array of bytes wil <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4737	4841	
==>t version of the data given.
The data may be either a string or an array of bytes; the array of bytes wil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1281	1406	
==>timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1281	1406	
==>timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	789	900	
==>todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	847	958	
==>todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15942	16048	
==>f->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10798	10904	
==>f->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1399	1547	
==>".$o->_indent($_->describe())."," }
    $s .= "\n " if @{$o};
    $s .= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22042	22158	
==>> ide("xs"),
			),
		),
		param => comb(
			fun => $length,
			param => ide("xs"),
		),
	),
);

my $one_elem_list = f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6437	6535	
==>n also be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6230	6325	
==>n also be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	715	818	
==>Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	715	818	
==>Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31140	31239	
==>object.

=back

The following attributes may also be set:

=over 4

=item branch

Whether this objec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22738	22836	
==>mand Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22738	22836	
==>mand Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15403	15523	
==>tion

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15403	15523	
==>tion

=head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	64	164	
==>(C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ---------------------- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	64	164	
==>(C) 2005 by Andras Barthazi
#  This code is totally free, use it as you want
# ---------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22230	22349	
==>, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_hand <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18651	18770	
==>, &Rf;
      return $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_hand <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2713	2815	
==>er('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(dig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3286	3388	
==>er('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(dig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12942	13076	
==>uleInit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2338	2465	
==>base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2338	2465	
==>base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5647	5742	
==>ll the given C<@test_files> (as C<runtests()>) but does it
quietly (no report).  $total is a has <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6865	6994	
==>cursive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7329	7458	
==>cursive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	316	424	
==>>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	316	424	
==>>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	670	768	
==>$content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	670	768	
==>$content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4632	4836	
==>ro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unles <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4632	4836	
==>ro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4402	4510	
==>{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous ver <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4414	4522	
==>{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous ver <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1557	1651	
==>by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselec <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1557	1651	
==>by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to deselec <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	829	927	
==>cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	887	985	
==>cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $tod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3598	3705	
==>er('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14530	14630	
==>ryExpression>
    | <'typeof'> <UnaryExpression>
    | <'++'> <UnaryExpression>
    | <'--'> <UnaryEx <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	316	410	
==>::Spec::Functions ':ALL';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::File;
u <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4210	4312	
==>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\` <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4210	4312	
==>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\` <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	841	935	
==>zip() has additional parameters?
# TODO - document unsupported operations: join, reduce, sort - <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	841	935	
==>zip() has additional parameters?
# TODO - document unsupported operations: join, reduce, sort - <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	145	247	
==>rograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26632	26729	
==>uments are included.  This method takes care of building the
proper inheritance for the node; it u <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1395	1522	
==>oad a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1395	1522	
==>oad a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	113	209	
==>_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	113	209	
==>_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2330	2437	
==>method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2330	2437	
==>method add_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2722	2870	
==>l',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'le <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2006	2126	
==>ruct_equiv => $val,
			),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = shift;

	my $from = shift;
	my $to = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4952	5076	
==>rint postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4952	5076	
==>rint postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11446	11557	
==>til::blessed($node));
    
    $self->can($type)
        ? $self->$type($node)
        : $self->generic_reduce($ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13502	13602	
==>n> <'.'> <Identifier>
    | <'new'> <?ws_required> <MemberExpression> <Arguments>
}
rule NewExpressio <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6814	6963	
==>de($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6814	6963	
==>de($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2622	2741	
==>$set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2622	2741	
==>$set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @i <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4261	4365	
==>ith a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4261	4365	
==>ith a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1685	1815	
==>xists($P) {
        $O.property_value($P) = $V;
        return;
    }
    $O.property_value($P) = $V;
    return;
}    
# 8.6.2.3
m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1160	1256	
==>However, the perl5 core team expressed some interest in perhaps
# maintaining the capability if c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12050	12150	
==>ne
my $i = Language::AttributeGrammar->new(<<'#\'EOG');
#\

# at the root we initialize the predefine <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	123	222	
==>er::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6992	7079	
==>metachar("$"). %"
p5_metachar("(").
p5_metachar(")").
p5_metachar("{").

isP6metacharact <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1336	1439	
==>eaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1336	1439	
==>eaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3324	3440	
==>----------------
  t/waterloo.t    3   768    20   10  50.00%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scripts, 80 <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	329	445	
==>attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	329	445	
==>attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40414	40533	
==>preserving this original copyright notice and other
credits. Locale::KeyedText is distributed in the hope that it will b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40414	40533	
==>preserving this original copyright notice and other
credits. Locale::KeyedText is distributed in the hope that it will b <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	794	918	
==>.join( "\n" );
        @:diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( outp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8645	8738	
==>Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8645	8738	
==>Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr ) <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	653	760	
==>= %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # T <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	653	760	
==>= %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # T <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8131	8281	
==>( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8131	8281	
==>( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == - <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3640	3767	
==>xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3640	3767	
==>xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	337	487	
==>code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $lo <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	337	487	
==>code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $lo <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3467	3588	
==>($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st line\n" ], <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40554	40653	
==>g Warnings and Errors

There are three methods you can use when a problem arises.  They use
Carp::ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	627	729	
==>hould be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	627	729	
==>hould be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	971	1129	
==>sename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	840	966	
==>sename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5894	6002	
==>er       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5894	6002	
==>er       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Pr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2696	2804	
==>al
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2696	2804	
==>al
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.value;
    method vtype () <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21237	21336	
==>re is that it provides a
common API for access to those databases, each of which takes a different
S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21237	21336	
==>re is that it provides a
common API for access to those databases, each of which takes a different
S <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12748	12873	
==>b provides {
    my $self = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = shift;
    $self->ex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22126	22226	
==>ETA";
    } else {
	my $space = $space_from_sigil{$sigil};
	Carp::confess "bogus name?: '$n' with sig <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6771	6896	
==>alue' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6771	6896	
==>alue' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3754	3849	
==>me> [ \( <argument_list> \) | <pattern> | <null> ] [\>\>|\>|\x[bbd]] }
rule argument_list { [ <- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11376	11507	
==>_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11376	11507	
==>_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20862	20969	
==>e installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20862	20969	
==>e installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3414	3536	
==>e(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13645	13750	
==>s";

    # quantifiers must NOT follow quantifiers
    $rx->error($rx->RPe_NESTED)
      if $tree->[-1]->f <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	657	752	
==>s abandoned as insufficiently tractable.
# By requiring far more effort than was hoped, it becam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19335	19429	
==>st of a challenge that indicates the
authentication scheme and parameters applicable to the req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19335	19429	
==>st of a challenge that indicates the
authentication scheme and parameters applicable to the req <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16945	17053	
==>::Match", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom(pattern, 0, "PGE::Exp")
    $P0 = 0

    $P0 = find_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20308	20404	
==>ss with compiler. */

regcomp.h: This is essentially a linear encoding of a nondeterministic
fini <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16773	16871	
==>it sees fit.  It
also does not make direct use of environment variables, which can aid in
portabili <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16773	16871	
==>it sees fit.  It
also does not make direct use of environment variables, which can aid in
portabili <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	106	219	
==>urns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	106	219	
==>urns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7215	7358	
==>r;
  $position = $operator->to();
  goto expect_term if ( $tokenCat >= PGE_OPTABLE_PREFIX );
  goto expect_oper if ( $tokenCat >= PGE_OPTABLE_PO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7600	7710	
==>chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7600	7710	
==>chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6839	6940	
==>$self->{grammar} );
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implement <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2644	2754	
==>.perl.org/perl.perl6.compiler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.co <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2644	2754	
==>.perl.org/perl.perl6.compiler>.

You can also read the list via Google Groups at
L<http://groups-beta.google.co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13208	13306	
==>ne::C),
  and is thus not very portable to broken (no compiler) microsoft systems.

  The implement <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19577	19680	
==>iables.  In SQL terms, you create or alter tables by adding or
updating their "information schema" recor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19577	19680	
==>iables.  In SQL terms, you create or alter tables by adding or
updating their "information schema" recor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3237	3382	
==>:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3430	3575	
==>:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	660	769	
==>ys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	660	769	
==>ys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5880	6044	
==>$_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5892	6056	
==>$_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3196	3317	
==>variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (mus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3380	3501	
==>variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (mus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23822	23916	
==>setta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23822	23916	
==>setta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a com <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10145	10248	
==>6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10145	10248	
==>6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2575	2680	
==>LLER::?SELF) {
            my $subscription = Class::Events::Subscription::Named.new(:name($name), :subscr <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	16	112	
==>n weiterhin mit # eingeleitet:

#!\begin{block}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{bl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19049	19145	
==>, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19049	19145	
==>, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24614	24759	
==>s {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'groupp',
      nparen => $nparen,
    }, $class;
    return $self;
  }

  s <==
2	/Users/nnunley/pugs/util/package-osx.pl	1743	1841	
==>l
        /usr/local/lib/perl5/site_perl/PIL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/local <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2271	2374	
==>a word boundary)
  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	607	746	
==>0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unles <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	607	746	
==>0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unles <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27409	27507	
==>fac");
is(t($length), "∀α. list α → int", ":t length");
is(t($fac_5), "int", ":t fac 5");
is( <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	847	963	
==>heme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or retu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	814	930	
==>heme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1703	1832	
==>ative pointer 
    bool        native boolean
    Bit         Perl single bit (allows traits, aliasing, etc.)
    Int         Perl <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7171	7274	
==>e from S29draft.pod 8651.  In the List section.
multi Array::grep (@values ;      Code *&test   --> Lazy <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2216	2318	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2216	2318	
==>edText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36423	36530	
==>hat it will search.

=item C<translate_message( $message! )>

This method takes a (machine-readable) Message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36423	36530	
==>hat it will search.

=item C<translate_message( $message! )>

This method takes a (machine-readable) Message <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3589	3728	
==>levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . "    *$equal = Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9560	9679	
==>socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9560	9679	
==>socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	353	466	
==>ub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subn <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	353	466	
==>ub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subn <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8300	8402	
==>rgl)" if $fun_name;
	return "p6_applyi($fun,$argl)";
    }
    return "p6_apply($fun,$argl)";
}

NODE P <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	402	506	
==>n potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use defa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15361	15457	
==>n_length() method for all objects that determines the
minimum length of a string that would be ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2944	3107	
==>[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless defined $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2848	3007	
==>[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $match <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1548	1653	
==>thods are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1548	1653	
==>thods are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2635	2755	
==>iglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Form <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2635	2755	
==>iglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Form <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7088	7190	
==>ent-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7088	7190	
==>ent-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	553	726	
==>it is ( Int, Perl::Exp );

has SlurpLimit $.subSlurpLimit;

has Perl::Type $.subReturns;

has Bool $.subLValue;

has Code $.subBody;

does Show;
does Eq;
does Ord;
does Typea <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	514	678	
==>mplements a
# "named event" mechanism, for Class::Publisher like behavior.

module Class::Events-0.0.1;

role Class::Events::Publisher {
    use Set;
    has Set $.s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	711	883	
==>ibutes of every Relation::Example::Heading object:
    has Mapping %!attrs;

###########################################################################

submethod BUILD (Ma <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15722	15856	
==>~ /^not\s+$/ ) {
            $self->{saw_lone_not} = 1;
            $self->{lone_not_line} = $self->{line};
        }

        return $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3275	3405	
==>$value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unesc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3275	3405	
==>$value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unesc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5097	5208	
==>s_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5097	5208	
==>s_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13439	13568	
==>, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg, \$how);
  });

  # alnum POSIX class
  $self->add_handler( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5479	5607	
==>elf: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5479	5607	
==>elf: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5151	5239	
==>ethod if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5151	5239	
==>ethod if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since") }
me <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	786	902	
==>{ %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	786	902	
==>{ %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
sub referer         ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16610	16702	
==>fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16610	16702	
==>fully in the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribut <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3286	3393	
==>ex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) } <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3286	3393	
==>ex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) } <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15462	15565	
==>nternals::localtime(Bool::True, $sec, $pico);
    #} else {
        my @tm = Pugs::Internals::localtime( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32538	32634	
==>ect stores some attributes for configuration, its
main purpose is to convert Message objects on d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32538	32634	
==>ect stores some attributes for configuration, its
main purpose is to convert Message objects on d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10677	10799	
==>kies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expire <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10677	10799	
==>kies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expire <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1745	1840	
==>$path, "bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File::Spec->catfile($path, "man <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2566	2685	
==>um $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just pro <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2566	2685	
==>um $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just pro <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	464	570	
==>eviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	464	570	
==>eviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2416	2517	
==>-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2416	2517	
==>-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1879	2005	
==>ick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1879	2005	
==>ick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4011	4111	
==>ntage of the total tests which failed.

=item B<List of Failed>

A list of the tests which failed.  S <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	797	944	
==>ex".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, telling capt <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	797	944	
==>ex".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object, telling capt <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3279	3377	
==>se qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_acce <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	50	148	
==>se qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_acce <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23615	23772	
==>> $rx->{flags}[-1],
      family => 'assertion',
      type => 'suspend',
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21917	22014	
==>oreach my $script (keys %$failedtests) {
        my $namelen = length $failedtests->{$script}->{na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	718	818	
==>y the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	718	818	
==>y the Rosetta::Shell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interf <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1931	2039	
==>.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1931	2039	
==>.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7538	7698	
==>) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7538	7698	
==>) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16227	16337	
==>od < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the med <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16227	16337	
==>od < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the med <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	179	290	
==>../pugs pil2_json_emit_p6.p6

  #! /usr/bin/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#p <==
2	/Users/nnunley/pugs/util/claim_drift.pl	191	287	
==>urrent one if you want to regenerate
# files. We should probably make this arrangement less hacky <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	122	216	
==>Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	122	216	
==>Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $name <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	47	145	
==>ore;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is fa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	47	145	
==>ore;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is fa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34849	34948	
==>at a Translator object does not permit changes to its attributes;
they must all be set when the obje <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34849	34948	
==>at a Translator object does not permit changes to its attributes;
they must all be set when the obje <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21138	21235	
==>L Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21138	21235	
==>L Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feat <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2022	2122	
==>.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHOD <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2022	2122	
==>.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHOD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10694	10819	
==>th}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10694	10819	
==>th}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14363	14533	
==>' ) {
        return 
            'do { ' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tid <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7907	8020	
==>y @args = (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ / <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2231	2324	
==>s_ok {
			$result = $r->run($prog->{ast});
		} "${runtime_class}->run($prog->{name}) is non-fa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10159	10312	
==>ete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10159	10312	
==>ete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4378	4491	
==>1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4378	4491	
==>1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $fi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	768	876	
==>ion = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	826	934	
==>ion = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7087	7248	
==>y_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7087	7248	
==>y_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2548	2685	
==>S (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2548	2685	
==>S (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	956	1060	
==>stall_script($script_file);
}

sub install_script {
    my $self = shift;
    my $args = $self->makemaker <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3842	3940	
==>"-Iinc" $1!g;
    $makefile =~ s/\$\(UNINST\)/0/g;

    my $canonical_base = File::Spec->catdir(spl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9958	10110	
==>::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10237	10389	
==>::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { na <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10728	10835	
==>qwert/;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ' <==
2	/Users/nnunley/pugs/util/func_refact.pl	205	297	
==>ename containing nodes data produced by --nodes
of graphfuncs.pl. Will print initial set size <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5995	6099	
==>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5995	6099	
==>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<use <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18514	18638	
==>{
    my($code,$pkg)=@_;
    "package ${ROOT}::$pkg; $code";
}


sub eval_wa {
    my($code,$wa)=@_;
    my(@a,$s);
    if($w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6013	6160	
==>od BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6013	6160	
==>od BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2534	2628	
==>Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2534	2628	
==>Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1899	2088	
==>= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_[3]{signature}}, 
            ], 
        } }
    ;

stmt:  
      IF exp block 
        { $_[0]->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	276	397	
==>OT';
%{ my $out; %}

%left   ';'
%left   '-' '«+»'
%left   'infix:<times>' '/'
%left   NEG
%right  '^'

%%
sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38713	38818	
==>able name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38713	38818	
==>able name will be replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2971	3103	
==>me => 'try',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );

    #for ( qw( print use p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8784	8890	
==>atically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make su <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8784	8890	
==>atically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make su <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	356	457	
==>RAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub quer <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	356	457	
==>RAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub quer <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4396	4507	
==>l {$_[0]?1:undef}
sub p6_bit {$_[0]?1:0}
sub p6_int {int($_[0])}
sub p6_num {0+$_[0]}
sub p6_str {"".$_[0]}
#sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	86	240	
==>'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	86	240	
==>'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16650	16783	
==>n {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16650	16783	
==>n {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20454	20564	
==>l the languages your programs do or
might have, and lets you arrange the list in order of preference.  When you <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20454	20564	
==>l the languages your programs do or
might have, and lets you arrange the list in order of preference.  When you <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3833	3931	
==>complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3833	3931	
==>complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20761	20932	
==>eop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21040	21211	
==>eop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6278	6418	
==>{ &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6278	6418	
==>{ &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16523	16669	
==>stant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16802	16948	
==>stant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8084	8182	
==>cts, that return lists of spans.

In this example, @span may contain zero, one, two, or three spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8084	8182	
==>cts, that return lists of spans.

In this example, @span may contain zero, one, two, or three spans <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1729	1821	
==>l5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1729	1821	
==>l5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$h <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4625	4724	
==>ment );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4625	4724	
==>ment );
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	914	1060	
==>PT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	914	1060	
==>PT',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2352	2465	
==>File( $Altfile );

        ### this package didn't provide any alternatives
        last LINKING unless $href->{$p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1631	1735	
==>pporting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual methods is defined in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	984	1086	
==>acktrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	984	1086	
==>acktrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - the capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2170	2293	
==>et_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list);\n";
}
sub node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2019	2126	
==>et_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list) <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8197	8335	
==>ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[0] as_string: $ret";
    dbg "# $tree[0] e <==
2	/Users/nnunley/pugs/util/package-osx.pl	6140	6237	
==>rview::Object.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/local/man/man <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12380	12494	
==>y $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    e <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5401	5503	
==>ns boolean value of success or failure;

=item err_str

The C<err_str> method returns the last error me <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5401	5503	
==>ns boolean value of success or failure;

=item err_str

The C<err_str> method returns the last error me <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15031	15124	
==>alled
the Rosetta Native Interface (RNI), which applications invoke and which
multiple interch <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15031	15124	
==>alled
the Rosetta Native Interface (RNI), which applications invoke and which
multiple interch <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5716	5818	
==>$file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5198	5300	
==>$file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12533	12631	
==>then pass the result to is or ok
on success, or report that the eval was not successful on failure. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12591	12689	
==>then pass the result to is or ok
on success, or report that the eval was not successful on failure. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	889	1020	
==>ta config dir] );

    ### get a config and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3599	3713	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3792	3906	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*) <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2597	2712	
==>n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", or <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2597	2712	
==>n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10512	10669	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10791	10948	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15293	15395	
==>r not to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15293	15395	
==>r not to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	13	116	
==>:AST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	13	116	
==>:AST::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13076	13176	
==>der fields used to describe the content of
a message.  All header field names prefixed with C<Content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13076	13176	
==>der fields used to describe the content of
a message.  All header field names prefixed with C<Content <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1528	1629	
==>head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's al <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1528	1629	
==>head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's al <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7463	7592	
==>=> 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7520	7649	
==>=> 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2778	3007	
==>fined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2778	3007	
==>fined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	330	442	
==>r;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	330	442	
==>r;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1348	1495	
==>.).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1348	1495	
==>.).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match-> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3294	3398	
==>ppen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3294	3398	
==>ppen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14863	14965	
==>ata structures are implemented, we will need an easy way
to test them. So we will implement the Test::M <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14921	15023	
==>ata structures are implemented, we will need an easy way
to test them. So we will implement the Test::M <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19119	19239	
==>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # see 11.14
      <AssignmentExpre <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3342	3460	
==>ip_all};

    my $passed = ($totals{max} == 0 && defined $totals{skip_all}) ||
                 ($totals{max} && $total <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5425	5532	
==>sts_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5483	5590	
==>sts_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is e <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	914	1024	
==>onfig{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	844	942	
==>onfig{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]);
		return $abs i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32106	32207	
==>r a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
each <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32106	32207	
==>r a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
each <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22253	22352	
==>nheriting from multiple packages which
have the same method names as you or each other, or having mu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22253	22352	
==>nheriting from multiple packages which
have the same method names as you or each other, or having mu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	641	768	
==>compile(<<'RULE')->code();

    rule <p6ws> <ident> <p6ws>? \{ <rule> \}
        { return { rule_decl => $() ,} }
RULE
*{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1205	1322	
==>t($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1205	1322	
==>t($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20444	20538	
==>c86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left alon <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20444	20538	
==>c86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usally left alon <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17625	17734	
==>It Works

Modern programs or database systems often refer to an error condition by an
internal code which is g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17625	17734	
==>It Works

Modern programs or database systems often refer to an error condition by an
internal code which is g <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6305	6486	
==>er->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	776	883	
==>ce::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to ena <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	776	883	
==>ce::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to ena <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6301	6400	
==>-language-like syntax, contained in a package

### rule must ever use Rule::rule form - never Rule-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6086	6184	
==>-language-like syntax, contained in a package
### rule must ever use Rule::rule form - never Rule-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19189	19297	
==>ods to set the referrer.

=item $h.www_authenticate

This header must be included as part of a C<401 Unauthor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19189	19297	
==>ods to set the referrer.

=item $h.www_authenticate

This header must be included as part of a C<401 Unauthor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18463	18586	
==>_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14884	15007	
==>_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8980	9092	
==>g target
    .local int min, max, islazy
    .local int pos, lastpos
    .local pmc mfrom, mpos
    $P0 = find_gl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	141	243	
==>f = shift;
    my $node = shift;

	return $node unless $self->can_reduce($node);

	if (Scalar::Util::bl <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14007	14134	
==>hildren
comb: generic_in($.fun) = { generic_in($$) }
comb: generic_in($.param) = { generic_in($$) }
comb: generic($$) = { generi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7681	7785	
==>_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7681	7785	
==>_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2326	2475	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2326	2475	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a <EXP_TYPE>,]
           ~ q[ but rather <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	31	136	
==>e v6;

sub greeting(Str $name) returns Str is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Modul <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2938	3040	
==>ialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Nod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2938	3040	
==>ialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Nod <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1433	1533	
==>al sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => Config = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2716	2864	
==>stant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2909	3057	
==>stant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16167	16268	
==>and will
not spend much time in providing rationales; you can read TTM itself and
various other extern <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16167	16268	
==>and will
not spend much time in providing rationales; you can read TTM itself and
various other extern <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13299	13394	
==>e `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to mo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13357	13452	
==>e `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter to mo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	990	1100	
==>);
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is fo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	990	1100	
==>);
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is fo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6304	6385	
==>4 = def_stmt_prim('bs_stmt_decl','\s*macro\s+statement_control:<(\w+)>\s+\([^\)]*\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6069	6215	
==>A section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or el <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6069	6215	
==>A section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or el <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16989	17096	
==>ent is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16989	17096	
==>ent is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11555	11652	
==>ly the elements in this recurrence that are not in the given recurrence.

- `intersects( $recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11555	11652	
==>ly the elements in this recurrence that are not in the given recurrence.

- `intersects( $recurren <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	170	283	
==>e base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	170	283	
==>e base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21259	21348	
==>E<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21259	21348	
==>E<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27078	27236	
==>t( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27357	27515	
==>t( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1548	1673	
==>t ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1548	1673	
==>t ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1700	1821	
==>nless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1700	1821	
==>nless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    ...
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20516	20627	
==>eturns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20516	20627	
==>eturns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9208	9338	
==>n
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9208	9338	
==>n
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29056	29238	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29335	29517	
==>p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9144	9253	
==>)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  meth <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9144	9253	
==>)       { %!users{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3436	3539	
==>ear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3436	3539	
==>ear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	418	549	
==>\n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	418	549	
==>\n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7844	8001	
==>edence => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19263	19364	
==>y or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19263	19364	
==>y or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16728	16893	
==>ruct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave some <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21826	21991	
==>ruct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave some <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3685	3782	
==>he index where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3685	3782	
==>he index where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10588	10707	
==>ext} }, qw< minmod >;
    return $S->object(quant => 1, '');
  });


  ### '?'

  $self->add_handler('?' => sub {
    my <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	240	344	
==>tdir( $path );
my $fullname = join '.', @path, $name;
my $data = uc("__${name}__");

open OUT, "> $out" o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4731	4837	
==>k
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4731	4837	
==>k
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11765	11877	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12044	12156	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gramma <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	316	445	
==>Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	316	445	
==>Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11706	11814	
==>Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11706	11814	
==>Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9576	9698	
==>ation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocan <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13053	13175	
==>ation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the invocan <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3709	3843	
==>= ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $type = 'test';

        $totals->{see <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23625	23727	
==><SourceElements> <SourceElement>
}
rule SourceElement :words {  # see clause 14
      <Statement> <Func <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	889	1023	
==>class 'TestBuilder::NullPlan' => {
    is => [ $::Object ],    
    methods => {
        'header' => sub { '' },
        'footer' => su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4369	4472	
==>'block'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <@G <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5231	5375	
==>appa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicro <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5231	5375	
==>appa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5520	5710	
==>g(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8997	9187	
==>g(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	520	622	
==>ters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for gene <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	520	622	
==>ters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for gene <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1951	2046	
==>{
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1951	2046	
==>{
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1234	1326	
==>ribes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1234	1326	
==>ribes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pending.> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3231	3347	
==>{
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILAp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3231	3347	
==>{
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILAp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18188	18289	
==>put to a search,
and to get back match results.

Our objective here is to see if it is possible to use <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2100	2213	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2100	2213	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Has <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1150	1297	
==>s "Index must be a num type";
    (blessed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	364	485	
==>urns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	364	485	
==>urns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.start == -Inf || $self.end == <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4250	4345	
==>) = @_;
	$self->add_definition($node, "$type $symbol () {\n\t$body;\n}");
	return $symbol . "()" <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	668	792	
==>:FH';
        $self->{fh} = $thing;
    }
    elsif( ref $thing eq 'ARRAY' ) {
        bless $self, 'Test::Harness::Iterator: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3917	4006	
==>d_op(W, W) --> {true}.

p6_quantified(Z) --> p6_elemental(W), p6_quantified_op(W, Z).
p6_q <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1427	1533	
==>, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1427	1533	
==>, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1562	1655	
==>ammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1562	1655	
==>ammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_nam <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5493	5606	
==>($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} } @INC ) {
        unshift @INC, $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	390	506	
==>_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	390	506	
==>_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10514	10613	
==>f","\n";
END

print "alive\n";

our $regexp_compile_hook = sub{
  my($re)=@_;
  print STDERR "compil <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4294	4401	
==>k $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4294	4401	
==>k $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# vim: ft=p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1750	1848	
==>he resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1750	1848	
==>he resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2084	2197	
==>0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3] } }
    | IF exp block 'else' block
        { $_[0]->{out} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1121	1236	
==>') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5819	5932	
==>map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9296	9409	
==>map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $he <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6859	7005	
==>22),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6859	7005	
==>22),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	377	471	
==>head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	377	471	
==>head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	309	416	
==>ans 'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash containi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	295	396	
==>ans 'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash containi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4880	5005	
==>e
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4880	5005	
==>e
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7764	7879	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7957	8072	
==>>( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4473	4572	
==>nce the current version of Pugs does not support OO, methods are
implemented as hash keys to code re <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4473	4572	
==>nce the current version of Pugs does not support OO, methods are
implemented as hash keys to code re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17244	17339	
==>head1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Abi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17244	17339	
==>head1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Abi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6814	6949	
==>h, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7278	7413	
==>h, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entry, $index, $a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9034	9174	
==>UM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9034	9174	
==>UM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6938	7038	
==>'header', $size)>

This event is fired once the '=head(n)' directive is reached. This does not includ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6938	7038	
==>'header', $size)>

This event is fired once the '=head(n)' directive is reached. This does not includ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	781	911	
==>y bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	781	911	
==>y bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $spa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2582	2762	
==>n;

my $help;
my $no_designdocs;
GetOptions('test_dirs=s@' => \@t_dirs,
       'output_dir=s' => \$output_dir,
       'p6design_dir=s' => \$syn_src_dir,
       'no_designdocs' => \$ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1780	1895	
==>nal_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	937	1050	
==>mmar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	937	1050	
==>mmar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15410	15560	
==>was free it might be unified to a concrete value
	$ret;
}

# in a let block we thread the set of generic type variables, so the body has the generic va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6154	6256	
==>es.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6154	6256	
==>es.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10291	10390	
==>e provided and that they are of the correct
container type (eg, hash vs array).  The deferred valida <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10291	10390	
==>e provided and that they are of the correct
container type (eg, hash vs array).  The deferred valida <==
2	/Users/nnunley/pugs/util/testgraph.pl	223	311	
==>inecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::TAP::HTMLMatrix->css_file();
usa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14675	14825	
==>eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@result }';  # /do
    }
    if ( $n->{op <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14765	14872	
==>= shift;
    my @params = @_;
    push @{ $self->{param_stack} }, $self->{params};
    $self->{params} = \@p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13301	13397	
==>difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set contain <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13301	13397	
==>difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set contain <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4707	4818	
==>to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_erro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5359	5470	
==>to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_erro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11003	11103	
==>s data to be used or
displayed by your program.  It is analagous to a simplified version of the
"Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11003	11103	
==>s data to be used or
displayed by your program.  It is analagous to a simplified version of the
"Docu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17627	17812	
==>e_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14048	14233	
==>e_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3567	3707	
==>- what's returned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4167	4289	
==>mpiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\&" . $_[0]->( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1863	1955	
==>indBin;

*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA     = __PACKAG <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18937	19060	
==>data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20295	20418	
==>data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1268	1365	
==>my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec-> <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1268	1365	
==>my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40614	40718	
==>TABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40614	40718	
==>TABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4352	4447	
==>de::access_hash_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	406	559	
==>my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	406	559	
==>my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23200	23298	
==>, which could
produce ambiguous results or associations.  Or alternately, the other
packages requir <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23200	23298	
==>, which could
produce ambiguous results or associations.  Or alternately, the other
packages requir <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11649	11785	
==>ree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9334	9465	
==>ree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	917	1035	
==>start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	917	1035	
==>start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21865	21975	
==>bstr($n,0,1);
    my $mn    = substr($n,1);
    my $is_absolute_name = $mn =~ /::|^\*/;
    $mn =~ s/^(::)?(\*) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7795	7909	
==>val { mkpath( $output_path ) };
    die "Failed to create directory $output_path" if $@;
    open (my $fh,'>', $ind <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	752	889	
==>code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	745	882	
==>code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$ma <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15847	15968	
==>? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the mo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20080	20201	
==>? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5797	5907	
==>ive value for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5797	5907	
==>ive value for
# relative seconds and a positive value for epoch based time values.
#sub retry_after       { shi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	783	880	
==>ard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transforming <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	783	880	
==>ard 
cryptosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transforming <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22193	22288	
==>% 32 = space
isSpacePerl(C) :- (char_type(C,space) ; C = 11), !. %\v chr(11)

case_insensitive_c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	323	422	
==>ut = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	323	422	
==>ut = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (l <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	486	621	
==>}
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	486	621	
==>}
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1479	1595	
==>IL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1479	1595	
==>IL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1869	1984	
==>, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1869	1984	
==>, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_output($modu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	136	245	
==>,
}



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Strings - String related builtins

=head1 S <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2747	2843	
==>rms the actions denoted by
the AST, ultimately flattenning the tree down to a single value.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10899	10994	
==>rse` must be set if this recurrence is a "universal set".
Otherwise the program will emit warnin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10899	10994	
==>rse` must be set if this recurrence is a "universal set".
Otherwise the program will emit warnin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	67	167	
==>ecode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_nu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	67	167	
==>ecode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_nu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2469	2593	
==>cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $se <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2469	2593	
==>cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35112	35210	
==>.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35112	35210	
==>.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

This method ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8364	8473	
==>k>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8364	8473	
==>k>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14288	14382	
==>("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14288	14382	
==>("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10691	10787	
==>todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10749	10845	
==>todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6392	6500	
==>ype", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6392	6500	
==>ype", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header(" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12563	12675	
==>is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12563	12675	
==>is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1741	1856	
==>= eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1741	1856	
==>= eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12405	12506	
==>f the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12405	12506	
==>f the original content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2492	2626	
==>],
        } }
    | IF exp block 'elsif' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15984	16081	
==>x.: C</\s+$/> becomes
C</^\n?\s+/>, which perhaps gets optimized to C</^\s+/>.  The difficulty
rat <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	487	612	
==>bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() ! <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	487	612	
==>bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (server_port() ! <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6003	6117	
==>$context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6061	6175	
==>$context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this tes <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26538	26637	
==>are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31090	31189	
==>are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	305	473	
==>($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	305	473	
==>($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6217	6317	
==>qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_can <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19245	19345	
==>alfile (Str $filename ; Grammar :$lang = Perl6)
{
    eval(slurp($filename),$lang);
}


 multi Contro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12679	12788	
==>rl;
	$runperldisplay =~ s/\n/\n\#/g;
	print STDERR "# $runperldisplay\n";
    }
    return $runperl;
}

sub ru <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1678	1784	
==>d  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what func <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1678	1784	
==>d  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what func <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4019	4117	
==>ing C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4019	4117	
==>ing C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$fh> which <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10431	10629	
==>matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The relation in $other has a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13908	14106	
==>matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relation {

    die "The relation in $other has a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3712	3842	
==>me) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3712	3842	
==>me) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11896	12036	
==>);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11890	12030	
==>);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1293	1404	
==>lf.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1293	1404	
==>lf.is_root();            
}

my method set_depth ($self: Int $depth) returns Void { $.depth = $depth }

my metho <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30316	30415	
==>rns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34868	34967	
==>rns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble those of the o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16402	16496	
==>named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16402	16496	
==>named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17683	17786	
==>ed set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17683	17786	
==>ed set of methods which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	136	306	
==>me) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	136	306	
==>me) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
} <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2796	2929	
==>) {
			$chr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15527	15628	
==>formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15527	15628	
==>formal proposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28820	28910	
==>item C<not_equal (Relation::Example $other!) returns Bool>

This method returns the complem <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	531	624	
==>conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers simp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	531	624	
==>conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers simp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29280	29380	
==>rns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping-valu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33832	33932	
==>rns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping-valu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2213	2355	
==>how_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user si <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2213	2355	
==>how_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user si <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3119	3277	
==>]; local $Z::oop{$id}{'var'} = $var;
          &$reduce_helper($var,$ops);
          return &$step;
        }
      }
      $ws->($noop);
      my $tok = $toke <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	450	568	
==>r;
use HTML::Entities;
use List::Util 'first';
use Regexp::Common qw/balanced delimited/;
use Pod::Simple::HTML;
use Po <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6825	6922	
==>re a document identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6825	6922	
==>re a document identified by a URL, using
I<If-modified-since>, and checking the I<Content-Length>. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1840	1936	
==>eters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This pr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1840	1936	
==>eters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17091	17228	
==>= () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17091	17228	
==>= () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11987	12174	
==>ersion', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11987	12174	
==>ersion', $version);
                
                take "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14924	15028	
==>SIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9124	9228	
==>SIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => space => $ne <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1814	1943	
==>bitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1814	1943	
==>bitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2728	2824	
==>ation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representat <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2728	2824	
==>ation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	215	323	
==>hings roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	215	323	
==>hings roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7143	7256	
==>boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7143	7256	
==>boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v);
    $self.head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1896	2037	
==>S->FLAG_s ? 'sbol' :
      'bol';
    return $S->object(bol => $type, '^');
  });

  # sbol (beginning of line in single-line mode)
  $self->a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	335	438	
==>r::Base;

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTAR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16023	16122	
==>ast_modified

This header indicates the date and time at which the resource was last
modified. I<E.g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16023	16122	
==>ast_modified

This header indicates the date and time at which the resource was last
modified. I<E.g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	742	843	
==>e API does not support enciphering individual bits.  Also note that the 
Cipher API operates at the by <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	742	843	
==>e API does not support enciphering individual bits.  Also note that the 
Cipher API operates at the by <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34843	34945	
==>ote that a Translator object does not permit changes to its attributes;
they must all be set when the o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34843	34945	
==>ote that a Translator object does not permit changes to its attributes;
they must all be set when the o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7784	7872	
==>erl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_elemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1609	1697	
==>erl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_elemen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1210	1349	
==>rt         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1210	1349	
==>rt         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10734	10850	
==>ating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10734	10850	
==>ating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5140	5281	
==>m, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5140	5281	
==>m, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constant( \"\$m->[$num]\" )->(\@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17900	18036	
==>class, $rx, $nparen) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'close',
      nparen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35104	35196	
==>y reference of array references, each representing one
alternation, holding any number of obj <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26946	27049	
==>as C<project> but that the returned Relation has
the complement subset of the original's attributes to w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31498	31601	
==>as C<project> but that the returned Relation has
the complement subset of the original's attributes to w <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1028	1147	
==>(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.r <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1028	1147	
==>(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2799	2938	
==>"";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Foun <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2799	2938	
==>"";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Foun <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9742	9837	
==>returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9742	9837	
==>returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4246	4388	
==>e one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4258	4400	
==>e one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7370	7469	
==>@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1195	1294	
==>@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1563	1666	
==>ilable options:
  --smokeserv=http://path/to/smokeserv.pl
    Sets the path to the smoke server.
  --ver <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	151	246	
==>ably don't need it all for the
# meta-model, except perhaps to express sub-types, default values <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	354	450	
==>ods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contig <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	354	450	
==>ods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contig <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17311	17415	
==>a function that takes any param
# that function will return a pair with the first param and the second pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1557	1696	
==>elf = shift;
    my $app = shift;

	my $sent = scalar($app->values) - 1; # thunk + params

    $self->enter_scope;

    my $reduced = $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	91	186	
==>er/equiv 
#  infix/prefix/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12125	12219	
==>2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12125	12219	
==>2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1876	1994	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1876	1994	
==>METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6605	6714	
==>rs for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6605	6714	
==>rs for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	280	393	
==>an example Perl6 module that will
run and install and have all the distribution components you need.

= WHY

You s <==
2	/Users/nnunley/pugs/util/importgraph.pl	2415	2515	
==>h %modules) {
  my $cluster = $module->[2];
  my $rank = $module->[3];
  $g->add_node($name, color => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	713	830	
==>, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confess "You must provide a value to reference <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	657	751	
==>ges oranges");
    system("pugs naive_bayesian.p6 add grapes grapes");
}
system("pugs naive_bay <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state2.pl	6	108	
==>e2.pl - Perl 6: Anwendung von state
sub singleton {
	state $var = new MeineKlasse;
	# $var wird nur ein <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21580	21706	
==>n that the Perl DBI purports to provide
"Database Independence".  However, the level of DBI's provided independence
is I<Databa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21580	21706	
==>n that the Perl DBI purports to provide
"Database Independence".  However, the level of DBI's provided independence
is I<Databa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1001	1119	
==>= @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2601	2719	
==>= @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  }) <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7700	7832	
==>b has_ghc_package {
    my ($self, $package) = @_;
    my $ghc_pkg = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /pack <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2584	2695	
==>);

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_versio <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2584	2695	
==>);

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_versio <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8900	8993	
==>gleton_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok { $i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11349	11442	
==>gleton_test_on_object } '... instance calling metaclass singleton method fails';
fails_ok { $i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6649	6758	
==>th, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6649	6758	
==>th, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8965	9067	
==>tatements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2790	2892	
==>tatements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Grammar::Perl6->_open(@_) };
push @sta <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12346	12440	
==>sc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12404	12498	
==>sc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7905	8044	
==>aversal_order?) returns Code {
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## -------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7905	8044	
==>aversal_order?) returns Code {
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## -------------- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3542	3653	
==>s => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3542	3653	
==>s => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2589	2694	
==>ll (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2589	2694	
==>ll (or any) of the data you 
passed in, and that the finishing step may return data.

An example:

    &ci <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7448	7595	
==>t $test   --> Lazy )
{
    List::grep $test, *@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::join (@values ;  St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1127	1312	
==>/) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1127	1312	
==>/) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4278	4389	
==>ated devtest)*/
    if(newstr) {
/*      Safefree(r->subbeg);*/ /* fails split.t with newstr==1*/
      r->suble <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1274	1392	
==>brule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1274	1392	
==>brule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	565	719	
==>$tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	576	730	
==>$tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return unless defined $code;
    #print "parsing subrule $code\n";
    return { 
        bool  => 1,
        mat <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1843	1958	
==>$.symbol, layout($.right)) }
type::operator::binary: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	680	789	
==>se use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @args) returns Bool is builti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1824	1964	
==>h} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1824	1964	
==>h} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14063	14189	
==>aved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container which stores data to be used or
dis <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14063	14189	
==>aved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container which stores data to be used or
dis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4048	4155	
==>at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4265	4372	
==>at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1296	1397	
==>s ref $type;

		$self->{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	pack <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16256	16355	
==>then the list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yie <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16256	16355	
==>then the list contains a single
span. Otherwise, it contains two spans. Spans of recurrences may yie <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29217	29324	
==>opaque $self: symbol $order) returns block {
    $order = ':ascendant' 
        if !~$order || $order == ':c <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	206	310	
==>ER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array::splice(@array, @array. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	38	139	
==>her;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	38	139	
==>her;

has int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8185	8288	
==>ilable for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8185	8288	
==>ilable for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2234	2354	
==>requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2234	2354	
==>requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Requ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34680	34802	
==>member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34680	34802	
==>member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['F <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1081	1174	
==>Events::Subscription) {
        map { Class::Events::Notification.new(:subscriber($_), :event( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4191	4284	
==>nce_list');

is($Object->id, 2, '... $Object is the second id');
is($Object->class, $Class, '. <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	552	675	
==>nt, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @t <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	552	675	
==>nt, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2530	2623	
==><Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2530	2623	
==><Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> < <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	914	1014	
==>laintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	914	1014	
==>laintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering operations.)

A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	55	156	
==>ntation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	55	156	
==>ntation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'iterator_engine.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12614	12732	
==>eader fields with the specified names.

The header field names ($field) are not case sensitive and '_'
can be used as a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12614	12732	
==>eader fields with the specified names.

The header field names ($field) are not case sensitive and '_'
can be used as a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10498	10605	
==>Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a func <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10498	10605	
==>Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a func <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	174	278	
==>erl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	174	278	
==>erl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtyp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12563	12693	
==>nd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12563	12693	
==>nd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if dat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36736	36833	
==>turns Relation::Example>

This multi-method is a generic binary relational operator that is like
C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37236	37333	
==>turns Relation::Example>

This multi-method is a generic binary relational operator that is like
C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5873	5977	
==>nection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5873	5977	
==>nection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Ros <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3260	3421	
==>$_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3260	3421	
==>$_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code { <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1620	1752	
==>y ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUt <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1522	1633	
==>y ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUt <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3515	3623	
==>ut we need version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2558	2662	
==>ut we need version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5737	5840	
==>}
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## --------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5737	5840	
==>}
    die "Child Not Found : cannot find object ($child_to_remove) in self";
}

## --------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8683	8855	
==>eld $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $arr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8683	8855	
==>eld $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $arr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	623	717	
==>>{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	623	717	
==>>{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5674	5821	
==><(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5686	5833	
==><(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( ex <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5673	5778	
==>: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5673	5778	
==>: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	580	680	
==>Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Mo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	580	680	
==>Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5126	5235	
==>ind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5348	5457	
==>ind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9273	9375	
==>y;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9273	9375	
==>y;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3002	3095	
==>ugs::Compiler::SomeComponent::fglock

# as well -- and "use Pugs-fglock" will load all ::fgloc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2894	2986	
==>ugs::Compiler::SomeComponent::fglock
# as well -- and "use Pugs-fglock" will load all ::fgloc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	576	677	
==>content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $C <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	576	677	
==>content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is export { $C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	898	1007	
==>nd @$type == 1){
			$type = $type->[1];
		}

		return $type;
	}

	package Blondie::TypeSafe::Type;
	use base q <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17642	17762	
==>.= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code .= "our \$META;\n";
    $code .= "\$META = \$::${Kind <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2193	2330	
==>we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2193	2330	
==>we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4952	5065	
==>{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4952	5065	
==>{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4709	4869	
==>$0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should d <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4709	4869	
==>$0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and should d <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	345	457	
==>turn $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Tes <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	345	457	
==>turn $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output
    );
}

method create ( Tes <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3871	3974	
==>if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3871	3974	
==>if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::h <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	707	800	
==>ification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	707	800	
==>ification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1356	1478	
==>rammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1356	1478	
==>rammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an im <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37609	37701	
==>te_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37609	37701	
==>te_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2791	2914	
==>xt1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2791	2914	
==>xt1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9350	9471	
==>@_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9350	9471	
==>@_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return altern <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30976	31071	
==>al, in which case
this method returns the identity-one Relation or the invocant relation,
respec <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35526	35621	
==>al, in which case
this method returns the identity-one Relation or the invocant relation,
respec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10786	10900	
==>ere()
	    if defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $args{progs}) {
	die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8254	8366	
==>return _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Dump <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	824	932	
==>information about the remote user that is using your CGI. 
It also attempts to provide some useful defaults f <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	824	932	
==>information about the remote user that is using your CGI. 
It also attempts to provide some useful defaults f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	775	879	
==>:Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will all <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	775	879	
==>:Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will all <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23647	23739	
==>undled L<Relation::Example>, which provides a minimal in-RAM
storage implementation for the R <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9892	9996	
==>ypename) {
    p6_type_mk($typename);
}
NODE TypeOr ($lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7733	7836	
==>long)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn(exp,xend-exp)));
    XPUSHs(sv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1764	1879	
==>} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1904	2019	
==>} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #prin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1638	1734	
==>w lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1638	1734	
==>w lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1357	1507	
==>le->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" }) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1357	1507	
==>le->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" }) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1198	1375	
==>lf->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1077	1250	
==>lf->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{value <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4163	4264	
==>+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4163	4264	
==>+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	964	1068	
==>wo);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	964	1068	
==>wo);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5308	5441	
==>=> $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5501	5634	
==>=> $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	387	517	
==>et { ${ $_[0] } = $_[1]; bless $_[0], "Blondie::Val" }
}

sub reduce {
    my $self = shift;
    my $node = shift;

    if ($self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1164	1278	
==>}" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2038	2152	
==>}" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name <==
2	/Users/nnunley/pugs/util/package-osx.pl	3927	4024	
==>e::A04.3pm
        /usr/local/man/man3/Perl6::Bible::A05.3pm
        /usr/local/man/man3/Perl6::Bi <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	516	626	
==>tell the user to "make register".
        $prompt_register = 1;
    }
}
print "*** Running: $setup @args\n";

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5678	5787	
==>unc) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_han <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4023	4149	
==>$open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4023	4149	
==>$open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6532	6680	
==>ntal!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $match->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6322	6464	
==>ntal!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $match->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	757	867	
==>->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	757	867	
==>->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->flat;
    return sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	803	915	
==>( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	803	915	
==>( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub gr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10207	10333	
==>ersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10207	10333	
==>ersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5898	6122	
==>main="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5898	6122	
==>main="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $po <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1886	2021	
==>any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1897	2032	
==>any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23396	23490	
==>t> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privms <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23396	23490	
==>t> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privms <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23514	23650	
==>$super {
            $super.add_subclass($self);
        }
        @:superclasses = @superclasses;
        @:MRO = ();
        $self.MRO( <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	148	258	
==>mments (if it matches the supplied regex) or
no Smart::Comments before every fully qualified subroutine.
* take <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7568	7674	
==>ncode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7568	7674	
==>ncode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2722	3049	
==>{
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2722	3049	
==>{
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	721	892	
==>e($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	721	892	
==>e($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19137	19266	
==>return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19416	19545	
==>return unless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #us <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2870	2981	
==>print STDERR "op shift\n" if $debug;
          push(@$ops,$op);
          local $Z::oop{$id}{'op_ahead'} = undef <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	260	511	
==>= (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	260	511	
==>= (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18881	18981	
==>isspelling in your programs and still send the right
thing on the wire.

When setting the referrer, t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18881	18981	
==>isspelling in your programs and still send the right
thing on the wire.

When setting the referrer, t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11130	11243	
==>ass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching hered <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11130	11243	
==>ass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for matching hered <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15960	16056	
==>:Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16018	16114	
==>:Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5335	5432	
==>s internal state as completely as possible. 
This is automatically done as part of C<finish>, C<fi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5335	5432	
==>s internal state as completely as possible. 
This is automatically done as part of C<finish>, C<fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7326	7446	
==>' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7326	7446	
==>' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2099	2211	
==>copy( file => $self->dir, to => $tmpdir ) 
#             or error( "Could not copy sources to '$tmpdir'" ), retur <==
2	/Users/nnunley/pugs/util/fixauthors.pl	153	264	
==><STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} 
  map {my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3306	3401	
==>ompile time resolvable symbols into values

=item *

Replacing all values which the runtime prov <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26890	27002	
==>\\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <ClassEscape>
}
rule ClassEscape {  # see 15.10.1
      < <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2338	2439	
==>ompiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2338	2439	
==>ompiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7233	7362	
==>llowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	534	663	
==>llowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1847	2007	
==>$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1847	2007	
==>$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4523	4811	
==>P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            g <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4523	4811	
==>P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            g <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1587	1682	
==>ved internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1587	1682	
==>ved internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Arr <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	632	757	
==>eit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

B <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	632	757	
==>eit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

B <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13722	13826	
==>lf->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7929	8033	
==>lf->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1364	1543	
==>t', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1364	1543	
==>t', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16142	16281	
==>method BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16142	16281	
==>method BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__", <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1062	1268	
==>ld = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1062	1268	
==>ld = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &ur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15236	15335	
==>reates an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15236	15335	
==>reates an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1803	1908	
==>ondie::Node::Map;
    use base qw/Blondie::Map Blondie::Node/;
}

{
    package Blondie::Thunk;
    use ba <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3826	3924	
==>urns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3826	3924	
==>urns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5827	5919	
==>onfig/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.or <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5827	5919	
==>onfig/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.or <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1559	1716	
==>e.new(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).add_children(
                                        Tree.new(:node< <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3955	4091	
==>'@:slots')}, mk_containers(@$values);
            },

            'array_unshift' => sub { # @values -> ()
                my $self = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1256	1359	
==>>force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  $self- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1016	1113	
==>gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1016	1113	
==>gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2559	2657	
==>$.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2559	2657	
==>$.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2501	2627	
==>ists";
    return $self->[2]->store($name, $nil::NIL);    
}

1;

__END__

=pod

=head1 NAME

opaque - the core opaque instance <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30403	30503	
==>ge, with each set member being an an exclusive alternative for the rest
of the set. There is a separa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30403	30503	
==>ge, with each set member being an an exclusive alternative for the rest
of the set. There is a separa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18875	18967	
==>ta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18875	18967	
==>ta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13263	13358	
==>ep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy the g <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13263	13358	
==>ep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy the g <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22945	23060	
==>---------------------------------------------------------

rmSomewhere(Re,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7990	8102	
==>r::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->concat( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1451	1592	
==>riable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1451	1592	
==>riable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3967	4126	
==>e $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $control - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9339	9476	
==>_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12794	12914	
==>e '' and $min == $max) { "{$min}" }
    else { "{$min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3788	3899	
==>e loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3652	3760	
==>e loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3587	3705	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3780	3898	
==>[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} = sub {
    my $bool = $_[0] =~ /^\ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	586	689	
==>th.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code directly 
I<inl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	586	689	
==>th.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code directly 
I<inl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7269	7398	
==>0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7257	7386	
==>0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3369	3548	
==>at {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3616	3795	
==>at {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21942	22050	
==>s builtin is unsafe {
    # XXX - re-enable this when Parse-YAML supports closures correctly!
    return if i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6459	6561	
==>rl) */
    r->reganch |= ROPT_GPOS_SEEN | ROPT_LOOKBEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24398	24495	
==>p://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24398	24495	
==>p://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7885	8096	
==>ump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, St <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7885	8096	
==>ump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, St <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17652	17778	
==>IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17652	17778	
==>IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8990	9093	
==>eturn unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9183	9286	
==>eturn unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6709	6821	
==>);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6709	6821	
==>);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1484	1601	
==>Precedence, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	341	456	
==>ameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	341	456	
==>ameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	383	487	
==>:splice<Array>.assuming(:offset(0) :length(1));

 multi sub Array::shift () returns Scalar {
   Array::sh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4274	4371	
==>tree { $_[0]{'pil_tree'}->value }
sub as_pil_code { $_[0]{'pil_code'}->value }
sub as_p6 { my $r = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5507	5719	
==>d (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$labe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7269	7481	
==>d (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$labe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15925	16030	
==>b { p6_Num(${$_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Arra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3687	3778	
==>ed: $warn\n" if $warn;
	    $self->{'pil_code'} = Perl6::Run::OnPerl5::X1::Result->new($pil_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3981	4092	
==>code($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3981	4092	
==>code($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20555	20655	
==>operand.

We don't care.


=head2 Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	942	1064	
==>tart - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	942	1064	
==>tart - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.densi <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2469	2578	
==>t_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, .. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2469	2578	
==>t_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef, .. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8561	8660	
==>ammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2386	2485	
==>ammar::Perl6->use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8728	8830	
==>cal $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8724	8826	
==>cal $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $te <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	112	227	
==>DE.utf8");

sub slurp {
    my ($file) = @_;
    no warnings;
    open FH, "< $file" or die "can not open '$file' fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2504	2599	
==>));
}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subset( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2504	2599	
==>));
}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subset( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22042	22140	
==>ssage for a certain code, it
returns the first one it finds.  This also works for the multiple lang <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22042	22140	
==>ssage for a certain code, it
returns the first one it finds.  This also works for the multiple lang <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3041	3176	
==>l   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            pr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3505	3640	
==>l   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            pr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	242	368	
==>' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors sho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	242	368	
==>' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.compare is incomplete
    * Constructors sho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1477	1677	
==><start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1477	1677	
==><start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1838	1939	
==>: JSX::String $P) {
    if $O.property_value.exists($P) {
        my $attr = $O.property_attributes{$P <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	164	261	
==>ME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Nada;

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15320	15440	
==>ol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.flood <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15320	15440	
==>ol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.flood <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3127	3252	
==>a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3127	3252	
==>a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	73	169	
==>eady loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	73	169	
==>eady loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $cod <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7463	7576	
==>raverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7463	7576	
==>raverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1075	1286	
==>15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        | <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1075	1286	
==>15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        | <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2565	2670	
==>g steps may not return all (or any) of the data you 
passed in, and that the finishing step may return dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2565	2670	
==>g steps may not return all (or any) of the data you 
passed in, and that the finishing step may return dat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7454	7569	
==>set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_ob <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7454	7569	
==>set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24100	24203	
==>ass

A Relation::Example object is an unordered set of tuples, each of which is an
unordered set of name <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15714	15807	
==>eader_width>

  my($width) = _leader_width(@test_files);

Calculates how wide the leader shoul <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13045	13164	
==>old_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13045	13164	
==>old_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25668	25768	
==>ariable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", "pretty print <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1030	1148	
==>xport {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1030	1148	
==>xport {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14612	14719	
==>if $I0 > pos goto numeric
    $I0 = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4749	4852	
==>("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a si <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4749	4852	
==>("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a si <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1911	2055	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2104	2248	
==>ch->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5833	5924	
==>Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/rep <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5833	5924	
==>Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/rep <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2068	2191	
==>_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2068	2191	
==>_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12959	13042	
==>kets("[","]").
brackets("<",">"). brackets(">","<").
brackets("/","/"). brackets("!" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	658	773	
==>an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	658	773	
==>an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AO <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1294	1448	
==>= $_table->{$message}) {
            return $method->($self, @_);
        }
        else {
            if (exists $_table->{prototype}) {
                $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1575	1678	
==>tive * $right->to_num->to_native());
}

sub divide {
    my ($left, $right) = @_;
    (blessed($right) & <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5282	5459	
==>$_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {


                for my $op ( @{$assoc{$_}} ) {
                    if ( $o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9339	9444	
==>)" }
NODE VNum ($value) {
    return "p6_Num($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6566	6701	
==>}
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40165	40264	
==>oundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40165	40264	
==>oundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20990	21101	
==>ctionality to Perl packages
or programs.  Your package or program can be distributed with one or more
resource f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20990	21101	
==>ctionality to Perl packages
or programs.  Your package or program can be distributed with one or more
resource f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1117	1212	
==>This module lets you write B<Module::Compile> extensions that
are compatible with B<Filter::Simp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1117	1212	
==>This module lets you write B<Module::Compile> extensions that
are compatible with B<Filter::Simp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7411	7497	
==>erl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1236	1322	
==>erl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12789	12893	
==>ecifier, which can be either `:int` or `:density($size)`.

The unit specifier is used for several things. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12789	12893	
==>ecifier, which can be either `:int` or `:density($size)`.

The unit specifier is used for several things. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11379	11477	
==>ross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14856	14954	
==>ross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@others) return <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4853	5016	
==>install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alternativ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4093	4232	
==>install dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alternativ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1175	1283	
==>des/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%p <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1175	1283	
==>des/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3877	3972	
==>erl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3877	3972	
==>erl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	657	756	
==>sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric differe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	657	756	
==>sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric differe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3366	3464	
==>n ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3366	3464	
==>n ) returns Set::Infinite::Functional {
    return $self.intersection( $span.complement );
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4026	4140	
==>"ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4026	4140	
==>"ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9338	9429	
==>N

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9338	9429	
==>N

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	208	325	
==>How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	208	325	
==>How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1840	1969	
==>s.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $s <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1840	1969	
==>s.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3221	3345	
==>array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3221	3345	
==>array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7709	7856	
==>s($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7709	7856	
==>s($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7801	7924	
==>next_state    - an optional "continuation"

  $capture       - capture then entire match. For example:

  

  # returns a Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7536	7656	
==>next_state    - an optional "continuation"
  $capture       - capture then entire match. For example:
  
  # returns a Ma <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	969	1083	
==>n $?SELF;

}

# takes the object and "builds" it into a class
method apply {
    ...
}

# hmm, what do we need to t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3792	3899	
==>diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3792	3899	
==>diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9997	10094	
==>$self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gath <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9997	10094	
==>$self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gath <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4147	4257	
==>wstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newstr = 1; /*1-l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1684	1790	
==>= shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub build_indirect_typed_value {
	my $class = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4373	4504	
==>[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4385	4516	
==>[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2133	2238	
==>ing any tags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capitalized, m <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2133	2238	
==>ing any tags, it 
would look for a tag named C<Module>.)  Since module names are typically 
capitalized, m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1496	1661	
==>ING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1496	1661	
==>ING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8639	8783	
==>>name;
    my $v0 = $_[0][0]; my $s = recurse($v0);
    $s = "\"$v0\"" if $n eq 'VStr' && $s !~ /\A\"/;
    "bless([$s] , \"$n\")";
}
sub PIL::PI <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7100	7203	
==>RY;
  goto end if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $token;
  push @operatorStac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6255	6367	
==>';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6243	6355	
==>';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9518	9630	
==>Win32';
my $is_netware  = $^O eq 'NetWare';
my $is_macos    = $^O eq 'MacOS';
my $is_vms      = $^O eq 'VMS';

su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1850	1944	
==>p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1850	1944	
==>p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program is <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	405	499	
==>est_file");

print(('-' x 80), "\n");
print "Testing perl6 naive bayesian script with $test_fil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8245	8351	
==>hether this is working because the language
    # spec says it is supposed to, or whether is due a fluke or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8245	8351	
==>hether this is working because the language
    # spec says it is supposed to, or whether is due a fluke or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1015	1158	
==>_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$ke <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1015	1158	
==>_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$ke <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1322	1439	
==>uired => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11466	11579	
==>${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3057	3170	
==>${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4394	4508	
==>s response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4394	4508	
==>s response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15199	15339	
==>g
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15257	15397	
==>g
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Bool;
  multi sub is_deeply (List  $got, List  $expecte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10391	10536	
==>statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10391	10536	
==>statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1020	1106	
==>say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Bas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1020	1106	
==>say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19376	19505	
==>r (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15797	15926	
==>r (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7471	7573	
==>t_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escap <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7471	7573	
==>t_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escap <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2127	2226	
==>en used properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2127	2226	
==>en used properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11449	11552	
==>entical; they do not
interact with the outside environment at all.

A Document object has 2 main attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11449	11552	
==>entical; they do not
interact with the outside environment at all.

A Document object has 2 main attribu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2548	2682	
==>ated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2548	2682	
==>ated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	937	1052	
==>s JSX::ValuePrimitive;
class JSX::Value::String    is JSX::ValuePrimitive;
class JSX::Value::Object is JSX::Value;
c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1627	1742	
==>bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1627	1742	
==>bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single captu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10720	10860	
==>w {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest // <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10720	10860	
==>w {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest // <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5052	5149	
==>head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Bas <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5052	5149	
==>head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Bas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12368	12463	
==>ults to empty if the parameter's
corresponding argument is undefined).  The new Document object' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12368	12463	
==>ults to empty if the parameter's
corresponding argument is undefined).  The new Document object' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7074	7182	
==>x0a")
    goto end
  err_nodigits:
    parse_error(mob, pos, "No digits found in \\x...")
    goto end
  err_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3786	3885	
==>,
  'paramName'    ,'String',
  'paramContext' ,'Cxt',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6477	6575	
==>l::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6477	6575	
==>l::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is <==
2	/Users/nnunley/pugs/util/func_refact.pl	613	720	
==>s}) or
        die "can't load nodes data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignoring: $_\n" <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14660	14764	
==>ass .CCLASS_WORD, target, pos, lastpos
    if $I0 > pos goto scalar
  eos_anchor:
    (mob, $P0, mfrom, m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	724	817	
==>rer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be use <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	724	817	
==>rer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be use <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11473	11584	
==>s Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of Tree::Si <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11473	11584	
==>s Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of Tree::Si <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7647	7751	
==>))) exists ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('ha <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2968	3055	
==>ives(W, Z).

p6_conjunct(Z) --> p6_concatenation(W), p6_conjunctions(W,Z).

p6_alternati <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	664	777	
==>ching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$h <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	631	744	
==>ching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3031	3136	
==>TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3031	3136	
==>TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11301	11396	
==>style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a singl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11301	11396	
==>style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a singl <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1310	1474	
==>" ~
        pick (
            "$x",
            "is $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is exp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20592	20685	
==>T}::Scalar::META->new()" if $name =~ /\$|\&/;
    return "\$${ROOT}::Array::META->new()" if $n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5084	5208	
==>ye //;
    $ftype =~ s/[\[\]]//g;
    $ftype;
}
# XXX - not sure what to do about TVar and pSyms.
package PIL::PIL1CPerl5::No <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8424	8523	
==>ge contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII v <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8424	8523	
==>ge contains substantial use of Unicode
  # characters.  They may not be rendered correctly.  ASCII v <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6209	6396	
==>s[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6209	6396	
==>s[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	670	771	
==>------------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	670	771	
==>------------------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2516	2675	
==>{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2516	2675	
==>{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	279	385	
==>[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	279	385	
==>[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2234	2357	
==>ol' => '\A');
  });

  # nbound (not a word boundary)
  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	976	1077	
==>ld not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	976	1077	
==>ld not backtrack or whatever
    return - the block (sub-reference) that contains 'return'
    label - <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	322	448	
==>FAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is exp <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	322	448	
==>FAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is exp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	857	979	
==>$v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	857	979	
==>$v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1740	1879	
==>literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1751	1890	
==>literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	256	506	
==>nly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) ret <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	256	506	
==>nly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	974	1146	
==>'=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	974	1146	
==>'=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14263	14395	
==>$self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct } @{ $self->av <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2521	2658	
==>ve after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Su <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2521	2658	
==>ve after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9433	9576	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9421	9564	
==>]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2006	2132	
==>.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.include <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2006	2132	
==>.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.include <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15537	15630	
==>n, or their
privileges regarding access to information details, or their technical
skills.  Fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15537	15630	
==>n, or their
privileges regarding access to information details, or their technical
skills.  Fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4596	4699	
==>refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4596	4699	
==>refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Roset <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30825	30927	
==>t.  Andreas Koenig held the torch for many years, and then
Michael G Schwern.

Current maintainer is An <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	65	165	
==>o implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	65	165	
==>o implement.
method generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1493	1628	
==>should fix this
            if ( $match =~ /^</ ) {   # && ! $whitespace_before ) {
                # XXX - angle quotes are always trie <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2805	2918	
==>][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1][0] <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10628	10883	
==>$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )

 multi  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )

 m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2935	3081	
==>$.number');
            $ok    .= " - " . _('$.description') if _('$.description');
            return $ok;
        }
    }
});

$::TestBuilder->FE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4597	4734	
==>w > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4597	4734	
==>w > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2472	2596	
==>();
	$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($self)=@_;
    my @todo;
    for my $stage (rever <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5691	5801	
==>s
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5691	5801	
==>s
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27839	27953	
==>rx;
$/=undef;
do {
    Pkg_re_tests::test(\&rx);
    exit;
  } if !@ARGV;

do {
print "----\n";

my $r = rx(' +|([0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6871	6971	
==>::Type::Placeholder")) {
				return $self->types_eq($x->type, $y->type);
			} else {
				return undef <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7073	7175	
==>ame, kind=>$kind, params=>$pams,
		       lvalue=>$lval, body=>$body);
}
sub code_for_code_CODE {
    m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20629	20748	
==>"]
    if $I0 goto setsubpats
    $I0 = pad["subpats"]
    self["cname"] = $I0
    
  setsubpats:
    cname = self["cnam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4239	4380	
==>= \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4227	4368	
==>= \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5260	5405	
==>/^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5453	5598	
==>/^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5106	5205	
==>m read ($filename)

The C<read> method reads a config file, and returns a boolean value
of success o <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5106	5205	
==>m read ($filename)

The C<read> method reads a config file, and returns a boolean value
of success o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39854	39949	
==>ense (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
versio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39854	39949	
==>ense (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either
versio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4093	4273	
==>inst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here, in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2631	2786	
==>::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2824	2979	
==>::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9824	9966	
==>asses = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]* <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9824	9966	
==>asses = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]* <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2315	2468	
==>ist {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtra <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14651	14757	
==>> <UnaryExpression>
    | <'-'> <UnaryExpression>
    | <'~'> <UnaryExpression>
    | <'!'> <UnaryExpressio <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	752	905	
==>:init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1;
    }
}

sub base_path {
    my $self = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9377	9496	
==>to stdout
#   args     => [ command-line arguments to the perl program ]
#   verbose  => print the command line

my $is_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	586	711	
==>nt "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	586	711	
==>nt "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13049	13167	
==>pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13049	13167	
==>pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_he <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	742	867	
==>unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	742	867	
==>unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @en <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	659	774	
==>b *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	659	774	
==>b *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *inf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6097	6213	
==>::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6097	6213	
==>::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = H <==
2	/Users/nnunley/pugs/util/func_refact.pl	32	126	
==>use Storable;
use Getopt::Long;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initial=s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2013	2129	
==>ement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TO <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2013	2129	
==>ement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TO <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16548	16666	
==>module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16548	16666	
==>module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18554	18664	
==>hat Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-coded into your appli <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18554	18664	
==>hat Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-coded into your appli <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10042	10269	
==>t /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	759	863	
==>:Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	759	863	
==>:Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4123	4235	
==>s 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3978	4088	
==>s 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20752	20853	
==>at Relation indicates a failure is to throw an exception;
most often this is due to invalid input.  If <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25304	25405	
==>at Relation indicates a failure is to throw an exception;
most often this is due to invalid input.  If <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6959	7086	
==>bBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     "; my $lvalue =   %pad<" <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3807	3916	
==>@$var > 1) {
        &$reduce_helper($var,$ops);
      }
      print STDERR Data::Dumper::Dumper "cleaned",$Z: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	410	506	
==>=> $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	486	582	
==>=> $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $params->{t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6501	6600	
==>s each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_docum <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6501	6600	
==>s each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_docum <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22140	22256	
==>max_namelen;
    if ($list_len < length($list_str)) {
        $list_len = length($list_str);
        $max_namelen = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14910	15010	
==>dd_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9110	9210	
==>dd_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cla <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3332	3439	
==>rence(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3332	3439	
==>rence(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	858	962	
==>*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_roo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	858	962	
==>*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_roo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5559	5668	
==>}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5559	5668	
==>}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	169	266	
==>d_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	169	266	
==>d_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	135	261	
==>gige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in Perl 6 nur noch vom Datentyp
und nicht mehr vom Kontext <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	697	823	
==>sertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./as <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	697	823	
==>sertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./as <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24580	24710	
==>--law]

Confined to regcomp/regexec.

 * regmlen      length of regmust string
 *  [regmlen not used currently]

Confined to regcom <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3440	3548	
==>X1::Result->new($pil_tree,$warn,$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1919	2037	
==>? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_index->to_native]
    );
}

sub length {
    my $s <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1938	2082	
==>$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unle <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1916	2060	
==>$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unle <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11568	11707	
==>n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11562	11701	
==>n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant { <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2530	2620	
==>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available vi <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2530	2620	
==>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available vi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	195	307	
==>lements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	195	307	
==>lements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.sp <==
2	/Users/nnunley/pugs/util/package-osx.pl	2520	2618	
==>gs/docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/loca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8587	8695	
==>ond operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6121	6226	
==>ond operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedenc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2039	2151	
==>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may also
limit the eng <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2039	2151	
==>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it may also
limit the eng <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1365	1461	
==>t_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1423	1519	
==>t_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $de <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6575	6682	
==>self->{next} = $env if defined $env;
    $self->{next};
}

1;

__END__

=pod

=head1 NAME

closure - the cor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4362	4476	
==>match object returns named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code refere <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4362	4476	
==>match object returns named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code refere <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9200	9312	
==>st find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9200	9312	
==>st find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12296	12399	
==>der to the given value, but only if no previous
value for that field is set.

The header field name ($fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12296	12399	
==>der to the given value, but only if no previous
value for that field is set.

The header field name ($fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4152	4260	
==>0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4369	4477	
==>0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3866	3969	
==>ll be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  X <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3866	3969	
==>ll be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  X <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9109	9211	
==>set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9109	9211	
==>set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33139	33261	
==>unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) if $depth;
  }

The two additional arg <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31052	31144	
==>ant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35602	35694	
==>ant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This meth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13506	13606	
==>s before this test can pass (or before an implementation
could be started).  This is most useful when <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13564	13664	
==>s before this test can pass (or before an implementation
could be started).  This is most useful when <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3716	3834	
==>a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3900	4018	
==>a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17642	17745	
==>programs or database systems often refer to an error condition by an
internal code which is guaranteed t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17642	17745	
==>programs or database systems often refer to an error condition by an
internal code which is guaranteed t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2767	2854	
==>.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2767	2854	
==>.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	495	600	
==>[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	495	600	
==>[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Ros <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1575	1684	
==>pile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@ar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1575	1684	
==>pile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@ar <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3577	3671	
==>aphic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3577	3671	
==>aphic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	796	897	
==>::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	796	897	
==>::splitpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1149	1337	
==>accessors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a real <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3565	3667	
==>: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3565	3667	
==>: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	838	931	
==>This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	838	931	
==>This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	318	423	
==>(scalar(@values) % 2 == 0)
        || confess "not enough elements to construct a hash (must be an even nu <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10955	11069	
==>ed only one delimiter was specified)
      my $regex    = $7; 
      # captures delimited portion of the string (pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4202	4336	
==>>parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        post <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4202	4336	
==>>parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        post <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2442	2540	
==>e recovering all the roots of a
function (not that Newton's method is ever really good at that).

= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52658	52783	
==>t));
$::Object->set_attr(symbol->new('@:MRO') => list->new($::Object));

foreach my $meta ($::Class, $::Object, $::Package, $: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10296	10410	
==>mily eq $self->family) {
      my $br = $st->[-1][-1];
      $br->{data}[-1] = [ @$tree ];
      for (@{ $br->{data <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3217	3325	
==>us;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3217	3325	
==>us;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head1 DESC <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	165	273	
==>efix:<?> ($var) returns Bool is builtin is primitive { true $var }

sub chomp (Str $str) returns Str is built <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1553	1654	
==>:String $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::fal <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1430	1523	
==>thand for calling an accessor).

Run-time inheritance/method dispatch need not look at the met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1027	1168	
==>ey);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1027	1168	
==>ey);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7428	7600	
==>dencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	729	901	
==>dencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_sa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6475	6582	
==>d end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6475	6582	
==>d end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_uni <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16673	16781	
==>eed to be typed

# this is a function that expects an int and will emit an int
# add (int -> int -> int) is r <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	801	906	
==>rian is export {

    $iso8601 ~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to available <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14068	14158	
==>neric_in($.param) = { generic_in($$) }
comb: generic($$) = { generic($.fun) + generic($.par <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12601	12706	
==>minute, 
wags per second, or holidays per month.

It is also used when the objects represent "chunks" of d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12601	12706	
==>minute, 
wags per second, or holidays per month.

It is also used when the objects represent "chunks" of d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3908	4105	
==>r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3908	4105	
==>r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3268	3423	
==>t = LoadFile( $Available );
            
            my @maybe;
            for my $test ( grep { $_->{package} ne $pkg } @list ) {
                push @ma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2579	2674	
==>for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondie::Backend::Perl::Interpreter;

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1949	2062	
==>he value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HAS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1949	2062	
==>he value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HAS <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8350	8453	
==>rule DecimalDigits {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule Decim <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2167	2262	
==>public server (which can be specified below).
Then, it creates a initrd and copies your pugs bin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	622	734	
==>s => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	622	734	
==>s => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	422	575	
==>s.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	422	575	
==>s.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1641	1743	
==>ct(anyof_char => $S->nchar($n), "\\c[$n]");
      }

      return $S->object(exact => join("", $S->ncha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2390	2489	
==>e / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2390	2489	
==>e / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::L <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13747	13851	
==>mperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13747	13851	
==>mperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, en <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7646	7813	
==>\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7703	7870	
==>\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6137	6229	
==>rticular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6137	6229	
==>rticular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block <==
2	/Users/nnunley/pugs/util/version_h.pl	326	442	
==>ision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# that is only u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10442	10556	
==>riable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10600	10714	
==>riable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	692	804	
==>0+$-[$_]), to => \\(0+$+[$_]),
        bool => \\1, match => [], named => {}, capture => \\undef,
      }, 'Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1609	1706	
==>r::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1609	1706	
==>r::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1390	1511	
==>alocated $symbol" if defined $symbol;

	my $result = $self->inner_reduce($node);
	
	if (defined $symbol) {
		return $self- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8610	8718	
==>bject>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8610	8718	
==>bject>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	818	928	
==>name} . " " . $opt{name} . ">",
        '{ return { op => "ternary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31386	31512	
==>dler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ ... })> is a synonym for the
more common <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1510	1615	
==>me" => $value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # returns $value

    $sel <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3727	3840	
==>eamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5087	5200	
==>eamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $text;
    $self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22946	23046	
==>of this approach over similar packages is that
text is always looked up by a key which is not meant t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22946	23046	
==>of this approach over similar packages is that
text is always looked up by a key which is not meant t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2571	2722	
==>,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2571	2722	
==>,state):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6427	6531	
==>erer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6427	6531	
==>erer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => - <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2501	2632	
==>t ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start mus <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2501	2632	
==>t ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start mus <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9458	9588	
==>e );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $no <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9458	9588	
==>e );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8340	8449	
==>e a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8340	8449	
==>e a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not lo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1377	1475	
==>ove in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1377	1475	
==>ove in C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	78	212	
==>rfeln
my @a; push @a, wurf() for 1..6;
#!\pause
#=Perl 6: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Za <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	147	245	
==>pushing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_in <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	147	245	
==>pushing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	96	217	
==>tion

- Documentation Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::Y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	87	202	
==>tion
- Documentation Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::Y <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13977	14086	
==>w( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13977	14086	
==>w( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	206	325	
==>y;

use strict;
use warnings;

BEGIN {
    __PACKAGE__->mk_accessors(qw/runtime cache env/)
}

{
    package Blondie::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	321	429	
==>pler than the previous version, but the complexity is the same.

TODO

- The structure generated by conca <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	462	566	
==>ldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	462	566	
==>ldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8430	8536	
==>ing it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8430	8536	
==>ing it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6037	6152	
==>e have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6095	6210	
==>e have to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2238	2480	
==>events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2238	2480	
==>events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22328	22427	
==>at Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input.  I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22328	22427	
==>at Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input.  I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4138	4297	
==>: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4138	4297	
==>: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8777	8887	
==>of_char => chr(oct $1), "\\0$1") if $cc;
      return $S->object(exact => chr(oct $1), "\\0$1");
    }

    $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1739	1897	
==>\n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1727	1885	
==>\n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$fro <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6779	6891	
==>) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6779	6891	
==>) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	393	520	
==>require Config;
    return unless (
        $Config::Config{make}                   and
        $Config::Config{make} =~ /^nmake <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3889	3989	
==>}

### add our own ls_accessors, so we don't give back the private accessors
sub ls_all_accessors { s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1124	1224	
==>all extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Module::Install is actually loaded, t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5607	5703	
==>annels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5607	5703	
==>annels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3073	3185	
==>sh(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is co <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3073	3185	
==>sh(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $start is co <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1420	1550	
==>file ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable:: <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1420	1550	
==>file ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable:: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	272	400	
==>y $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	272	400	
==>y $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	207	381	
==>($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n = $plan{tests};
    }
    print STDOUT "1..$n\n" unless $noplan;
    $planned = $n;
}

END <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11012	11107	
==>Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11070	11165	
==>Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1045	1171	
==>PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => '&infix:<+>',
			body => '+',
			type => type("IV -> IV -> IV"),
			fixity <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3872	3976	
==>(caller 1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $file );

Returns the <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9904	10000	
==>LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unles <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9904	10000	
==>LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unles <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1138	1238	
==>nnot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.c <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1138	1238	
==>nnot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5467	5574	
==>malize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5467	5574	
==>malize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channe <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	652	764	
==>ompt) {
        my $script_name = File::Basename::basename($script_file);
        $prompt = "Do you want to insta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13763	13874	
==>, where one needs
  something to happen or not happen, but the relevant line of code is
  off in perl runtime gu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25789	25892	
==>>

If a single subtest decides that further testing will not make sense,
the script dies with this messa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13534	13655	
==>m POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7742	7863	
==>m POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1296	1394	
==>input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'texta <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1296	1394	
==>input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'texta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2679	2775	
==>s the given string, seperating it into 'name' and 'value' pairs.  This
method should be called be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2679	2775	
==>s the given string, seperating it into 'name' and 'value' pairs.  This
method should be called be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7388	7538	
==>all method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7388	7538	
==>all method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21133	21248	
==>paren};
  }

  sub visual {
    my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  package Regexp::Parser::asser <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3133	3241	
==>lled in List context,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3133	3241	
==>lled in List context,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5806	5913	
==>oes not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5806	5913	
==>oes not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5262	5394	
==>urn ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5262	5394	
==>urn ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7611	7704	
==>_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1436	1529	
==>_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	604	709	
==>class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	604	709	
==>class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8671	8876	
==>ush @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a string w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5	117	
==>r/bin/perl

package Blondie::TypeSafe;

use strict;
use warnings;

use Blondie::ADTs;
use Blondie::Nodes;


sub n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4210	4309	
==>e span.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4210	4309	
==>e span.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13400	13508	
==>`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13400	13508	
==>`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10111	10210	
==>nce($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10111	10210	
==>nce($set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6349	6549	
==>defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6349	6549	
==>defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spa <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2039	2157	
==>erse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %resul <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	880	998	
==>erse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %resul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	153	268	
==>does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemente <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	153	268	
==>does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemente <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7634	7755	
==>( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7634	7755	
==>( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4881	4978	
==>) methods for Config::Tiny objects. These
methods can be called with the following syntax:

  $con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4881	4978	
==>) methods for Config::Tiny objects. These
methods can be called with the following syntax:

  $con <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23191	23287	
==>stinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27743	27839	
==>stinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the Rel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8004	8135	
==>st"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(873 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8004	8135	
==>st"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(873 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3157	3254	
==>or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://hask <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3157	3254	
==>or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://hask <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4600	4705	
==>the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Re <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4600	4705	
==>the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6279	6393	
==>f: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6279	6393	
==>f: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16218	16319	
==>named parameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16218	16319	
==>named parameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2146	2256	
==>ent > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClone{syncat} = PGE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2167	2277	
==>$field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2167	2277	
==>$field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = % <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22149	22252	
==>of the original string representation of the regex.

=item tree

During the first pass, C<tree> is undef <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1385	1483	
==>:<cmp>);

 type KeyExtractor ::= Code(Any) returns Any;
 type Comparator   ::= Code(Any, Any) retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	888	1010	
==>rch

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	888	1010	
==>rch

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6773	6899	
==>ue' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6773	6899	
==>ue' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5541	5653	
==>ines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # U <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5541	5653	
==>ines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # U <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6448	6546	
==>xt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'M <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6448	6546	
==>xt', 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'M <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3178	3293	
==>is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersecti <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3178	3293	
==>is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersecti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2956	3120	
==>my $n = $_[0];
    # print "list emit_rule: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18181	18283	
==>rds {  # see 11.11
      <LogicalANDExpressionNoIn>
    | <LogicalORExpressionNoIn> <'||'> <LogicalANDE <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7049	7169	
==>Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and return "PIR (Perl 6 on Parrot)";
  $_ eq "normal" and return "Normal runcor <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1794	1895	
==>cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regexp syntax converter!  A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2736	2919	
==>ystem( qq[tar -f $my_tmp_dir/$control -C $meta_dir -xz] )
                                                            and die $?;
            ### write a .packlist equiv
            sy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3228	3369	
==>=~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3421	3562	
==>=~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5724	5847	
==>ime interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5712	5835	
==>ime interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variab <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6505	6599	
==>mebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6505	6599	
==>mebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", -> $event <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6785	6916	
==>less $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6978	7109	
==>less $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3541	3684	
==>"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4390	4533	
==>"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unle <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2606	2698	
==>ile::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automag <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2606	2698	
==>ile::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7082	7222	
==>- maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7082	7222	
==>- maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13904	14013	
==>representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dten <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13904	14013	
==>representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dten <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4199	4299	
==>rty is outside of a section, it will be assigned to the root
section, available at C<$configE<lt>data <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4199	4299	
==>rty is outside of a section, it will be assigned to the root
section, available at C<$configE<lt>data <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9521	9630	
==>map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9521	9630	
==>map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Span {
    my $span0 = $self.s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1788	1900	
==>le interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1788	1900	
==>le interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4696	4820	
==>{
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4696	4820	
==>{
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12242	12356	
==>tied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12242	12356	
==>tied to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20908	20999	
==>r_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_boundary_not,F0,F0,B0,B0,E0,E0) :- 
   F <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14485	14612	
==>t|f) when N is a number
  package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38509	38624	
==>add_method' => (
    # method label
        symbol->new('get_attribute_list'),
    # method body
        method->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2610	2705	
==>0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2610	2705	
==>0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $sta <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5776	5903	
==>n.  Its keys and values are this:

    bonus           Number of individual todo tests unexpectedly passed
    max             N <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11249	11363	
==>e lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( $se <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2222	2369	
==>>new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_appl <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2580	2727	
==>>new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_appl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4486	4601	
==>s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4474	4589	
==>s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
su <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	188	284	
==>OPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	188	284	
==>OPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, eg, note to th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18460	18566	
==><Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is not and you s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18460	18566	
==><Also, Rosetta should be thread safe and/or saavy
in the future, but for now it officially is not and you s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5661	5773	
==>lements'>
    | <'protected'>
    | <'volatile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	24	119	
==>four - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	24	119	
==>four - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfou <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	520	642	
==>h.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	520	642	
==>h.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4526	4694	
==>ail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4388	4547	
==>ail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5234	5355	
==>ocal=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1796	1880	
==>-concurrent', PugsBuild::Config->lookup('smoke_concurrent') || 1);
push(@yaml_harness <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6348	6450	
==>$iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11194	11296	
==>$iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling me <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3379	3499	
==>',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumf <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3379	3499	
==>',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumf <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	437	597	
==>{ 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	437	597	
==>{ 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1494	1599	
==>AppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constant <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1494	1599	
==>AppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constant <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5650	5755	
==>> $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5650	5755	
==>> $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .exp <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1643	1755	
==>f->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # no <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1643	1755	
==>f->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2082	2183	
==>w Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2082	2183	
==>w Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	328	440	
==>v->isa('closure::env'))
        || confess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2840	2965	
==>> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2840	2965	
==>> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2260	2357	
==>ame)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$na <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2260	2357	
==>ame)> will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$na <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	230	338	
==>h my $backend (@_) {
		my $m = "Blondie::Backend::$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24982	25072	
==>exported by Test::Harness by default.

C<$verbose>, C<$switches> and C<$debug> are exported <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2932	3047	
==>(15, 16);
is($p1->class, \&Point, '... got the right class name');

is($p1->get_x, 15, '... got the right x for p1') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4577	4710	
==>) ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4770	4903	
==>) ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1090	1189	
==>$p,0,1)>,  but it
has its own combinator because it stores captures differently.  Instead
of creatin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1090	1189	
==>$p,0,1)>,  but it
has its own combinator because it stores captures differently.  Instead
of creatin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18891	19047	
==>::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19170	19326	
==>::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1826	1956	
==>ubclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30401	30496	
==>e.  This method has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) retu <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1976	2079	
==>t handler, passing C<@args> as arguments.
Note that possibly, the event handler is I<not> called immedia <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	94	189	
==>e::Nodes;

{
	package Blondie::Backend::C::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub na <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1201	1303	
==>::truncate;

 # XXX - referred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1799	1886	
==>mpile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3175	3262	
==>mpile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<? <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5849	5964	
==>straightforward event based POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5849	5964	
==>straightforward event based POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22317	22461	
==>('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42106	42250	
==>('add_method' => (
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3943	4062	
==>nts( file => $file );

Returns the contents of a file

=cut

sub _get_file_contents {
    my $self = shift;
    my %hash <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1962	2061	
==>Num $base) {
    return Pugs::Internals::log($x)   if !defined $base;
    return Pugs::Internals::lo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3581	3725	
==>e alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->{version} <=> $a->{ve <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10506	10629	
==>e alternative with the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b-> <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1708	1893	
==>e_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	938	1119	
==>gest {
        my $self = shift;
        $DIGEST_CACHE{overload::StrVal($self)} ||= $self->compute_digest;
    }

    sub DESTROY {
        my $self = shift;
        delete $DIGEST_C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	324	441	
==>tever matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	310	419	
==>tever matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "con <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2229	2325	
==>nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

I <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2229	2325	
==>nodes in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	542	801	
==>ey};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	542	801	
==>ey};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of R <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	561	697	
==>ing_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./ass <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	561	697	
==>ing_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./ass <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2164	2269	
==>ally, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2164	2269	
==>ally, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	32	142	
==>Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration const <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	32	142	
==>Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration const <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11763	11886	
==>EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4406	4529	
==>EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2118	2243	
==>bug_warnings;
		my $res = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($valu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6505	6645	
==>points'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### ab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6298	6430	
==>points'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### ab <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7350	7466	
==>);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7350	7466	
==>);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5278	5445	
==>ject:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5278	5445	
==>ject:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{ <==
2	/Users/nnunley/pugs/util/func_refact.pl	966	1092	
==>int "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%cc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11569	11688	
==>DecimalLiteral>
}
rule StrUnsignedDecimalLiteral {  # see 9.3.1
      <'Infinity'>
    | <DecimalDigits> <'.'> <DecimalD <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15814	15988	
==>new( pairs zip @ids, @tm );

        $res = Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18862	18962	
==>_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18862	18962	
==>_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3928	4040	
==>nd
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3928	4040	
==>nd
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32295	32394	
==>KeyedText expects its Template modules to come
from Perl modules, but in the future they may alterna <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32295	32394	
==>KeyedText expects its Template modules to come
from Perl modules, but in the future they may alterna <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	333	445	
==>a('closure::env'))
        || confess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || confess <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3493	3632	
==>n {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3686	3825	
==>n {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11106	11200	
==>parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11106	11200	
==>parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	122	219	
==>TP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Clas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	122	219	
==>TP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 {
    ## Clas <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11152	11309	
==>o_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $res <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11152	11309	
==>o_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $res <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3695	3846	
==>::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3695	3846	
==>::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11781	11881	
==>r_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
uppe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11775	11875	
==>r_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
uppe <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2007	2106	
==><≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>. <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2007	2106	
==><≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4111	4232	
==>les, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it wi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4111	4232	
==>les, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it wi <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	468	581	
==>s: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %par <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	468	581	
==>s: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %par <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4111	4216	
==>ss_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6013	6118	
==>ss_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_precendence_list');

is($Object->i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2293	2421	
==>:expect = 0 )
      {
          fail "Invalid or missing plan" unless defined $:expect;
      }
  
      method header returns St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4166	4273	
==>ble {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5015	5122	
==>ble {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4179	4312	
==>$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 - <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4179	4312	
==>$key }
    else { @key = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9394	9514	
==>ass its numerical
value:

  my $capture_2 = $parser->captures(2);

=head2 Walking the Tree

To walk over the created tree <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39048	39189	
==>od' => (
    # method label
        symbol->new('get_attributes'),
    # method body
        method->new(
            $::ENV,
            meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	724	852	
==>> { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	735	863	
==>> { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1766	1886	
==>xpires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1766	1886	
==>xpires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2572	2699	
==>h ) or error( Params::Check->last_error ), return;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27656	27750	
==>age returns.  Some
consoles may not handle carriage returns properly (which results in a
somewh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1538	1681	
==>_override => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or error(Params::Check->last_erro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22125	22220	
==>he multiple language
or permissions issue; simply order the files appropriately in the search
li <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22125	22220	
==>he multiple language
or permissions issue; simply order the files appropriately in the search
li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50986	51184	
==>ion'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6390	6491	
==>sion
$Class->add_method('does' => sub {
    return $_[1] eq 'Role' if $_[0] == $Class;
    ::opaque_in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24808	24908	
==>pping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29360	29460	
==>pping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This met <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4016	4117	
==>am;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod B <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4016	4117	
==>am;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod B <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1120	1217	
==>lated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Crea <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1120	1217	
==>lated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Crea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2451	2584	
==>time::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2591	2724	
==>time::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print " <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7484	7580	
==>ive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7484	7580	
==>ive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	720	840	
==>sename;
    my $rv = $self->get_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	616	725	
==>sename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13268	13368	
==>..}`

This method returns a recurrence set containing only the elements that 
satisfy the given boole <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13268	13368	
==>..}`

This method returns a recurrence set containing only the elements that 
satisfy the given boole <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4840	4951	
==>handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5184	5295	
==>handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	38	144	
==>ude::Strings;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub '&infix:<~>',
}



__ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3667	3826	
==>ink_this   = 1;
                my $unlink_this = '';
                {   my $prefix  = package_prefix(   $path );
                    my $package = package_nam <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6192	6292	
==>>val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($node->str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1025	1164	
==>[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1025	1164	
==>[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9347	9449	
==>y $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub pil_di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5552	5652	
==>handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_obj <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1426	1554	
==>eturn $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1426	1554	
==>eturn $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4102	4302	
==>:Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4102	4302	
==>:Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$doc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	412	523	
==>ros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	412	523	
==>ros cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5141	5237	
==>cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an ar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5141	5237	
==>cipher_obj.finishstr();

The same as C<finish>, but returns the data as a string instead of an ar <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	938	1044	
==>p
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
cl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	938	1044	
==>p
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	404	529	
==>->code();

    <immediate_statement_rule>*
        { return $() }
RULE
*{'indirect_object'} = Pugs::Compiler::Rule->compile(<< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17915	18011	
==>erver program handling the request.

=item $h.from

This header should contain an Internet e-mail <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17915	18011	
==>erver program handling the request.

=item $h.from

This header should contain an Internet e-mail <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3887	3989	
==>bs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs) <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3887	3989	
==>bs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8572	8696	
==>y $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $of <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8572	8696	
==>y $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7878	7980	
==>sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7609	7707	
==>sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7477	7586	
==>d return a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7224	7328	
==>d return a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10318	10415	
==>ore header fields.  The header field
name ($field) is not case sensitive.  To make the life easier <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10318	10415	
==>ore header fields.  The header field
name ($field) is not case sensitive.  To make the life easier <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6609	6710	
==>as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basica <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6609	6710	
==>as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basica <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	479	582	
==>dds nothing else.

More specialised processing instructions may sub-class this module or
provide special <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	479	582	
==>dds nothing else.

More specialised processing instructions may sub-class this module or
provide special <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17296	17457	
==>r::Util::blessed($node)){
        if ($node->can("fmap")){
            my @gut =  $node->fmap(sub { $self->generic_reduce($_[0]) })->str;

            return (ref <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4303	4391	
==>y $ws = def_rule('ws',mk_dynamic_alt(\@whitespaces));

my @statements;
def_rule('statemen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	216	327	
==>se Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use File::Basename          qw[basen <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	33	126	
==>:Backend::Perl::Compiler;
use base qw/Blondie::Compiler/;

__PACKAGE__;

__END__

=pod

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1235	1355	
==>ote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1235	1355	
==>ote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17196	17297	
==>,
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(plus_ng(Re) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1198	1310	
==>, and some very simple
operations.

=head1 CONSTRUCTS

=head2 Base ADTs

All nodes as well as a few other objects <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28252	28350	
==>Mapping(Str) of Any>

This method returns this Relation::Example's body.

=item C<size () returns I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	16	112	
==>:Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	16	108	
==>:Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13012	13112	
==>h they were methods.  They return two
values, their numeric value, and a format string for use with s <==
2	/Users/nnunley/pugs/util/config_h.pl	1453	1552	
==>';

*** Template Haskell compiler backends disabled.  If you want
    Template Haskell support, plea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	201	313	
==>".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	201	313	
==>".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1636	1784	
==>xx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1636	1784	
==>xx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16162	16423	
==>l(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16441	16702	
==>l(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18886	19010	
==>self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15307	15431	
==>self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16107	16302	
==>y    => @tm[7],
            yday    => @tm[8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4969	5109	
==>se {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4969	5109	
==>se {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(b <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5663	5803	
==>ails;
        }

        # XXX handle counter mismatch
    }
    elsif ( $self->_is_header($line) ) {
        $type = 'header';

        $sel <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5074	5198	
==>-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5074	5198	
==>-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15207	15306	
==>d in their Document's Root Nodes property; in a
manner of speaking, the Document itself is the paren <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15207	15306	
==>d in their Document's Root Nodes property; in a
manner of speaking, the Document itself is the paren <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3104	3238	
==>ion;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $heade <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3104	3238	
==>ion;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> $heade <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2732	2846	
==>Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrappe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2732	2846	
==>Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrappe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23392	23485	
==>=E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23392	23485	
==>=E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37134	37255	
==>ject(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_handler('!' => sub {
      my <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1870	2000	
==>rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $ra <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1870	2000	
==>rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	90	290	
==>= 1;
my $planned;
my $noplan;

$TODO = 0;
$NO_ENDING = 0;

sub plan {
    my $n;
    if (@_ == 1) {
	$n = shift;
	if ($n eq 'no_plan') {
	  undef $n;
	  $noplan = 1;
	}
    } else {
	my %plan = @_;
	$n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20376	20537	
==>) = self.serno()
    pad["cutnum"] = $I0
    self["cutnum"] = $I0

    if self != "(" goto init
    self["iscapture"] = 1
    self["isscope"] = 1

  init:
    $I0 <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	461	562	
==>l6 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2415	2536	
==>,map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2415	2536	
==>,map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6610	6712	
==>ms);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $da <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6610	6712	
==>ms);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7125	7228	
==>ickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7125	7228	
==>ickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channels{$cha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27972	28065	
==>g) associated with
the variable name specified in the positional parameter $var_name (a
string <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27972	28065	
==>g) associated with
the variable name specified in the positional parameter $var_name (a
string <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	71	163	
==>:Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	202	294	
==>:Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pugs::Grammar::Rule;
us <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7590	7729	
==>| <'|='>
    | <'^='>
}
rule DivPunctuator {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <Bool <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3974	4075	
==>ng::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date ob <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3974	4075	
==>ng::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date ob <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15857	15989	
==>E $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15857	15989	
==>E $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6212	6331	
==>r $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6212	6331	
==>r $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesi <==
2	/Users/nnunley/pugs/util/func_refact.pl	593	710	
==>:LoadFile($Conf{nodes}) or
        die "can't load nodes data: $!";

our %ignoring;

$ignoring{$_} = 1 && print "Ignor <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10114	10207	
==>ble::free->new),
	# list a -> bool
	'is_nil?' => type::operator::arrow->new(
		type::operator: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5321	5411	
==>unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5321	5411	
==>unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folded_data) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7703	7818	
==>$killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7703	7818	
==>$killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %use <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1817	1922	
==>set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this exp <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1817	1922	
==>set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this exp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3356	3523	
==>-- " .
                  "can not extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spec-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1046	1179	
==>} }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $self)->new(&$f($self->va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7949	8064	
==>ne and compile a routine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7949	8064	
==>ne and compile a routine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14679	14795	
==>s not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14679	14795	
==>s not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinit <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	842	987	
==>hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have pr <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	842	987	
==>hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1757	1892	
==>ers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remot <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1757	1892	
==>ers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remot <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	103	224	
==>... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	103	224	
==>... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10623	10722	
==>a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10623	10722	
==>a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5064	5233	
==>d;
        goto end;
      }
      else
      {
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1622	1729	
==>type";
    delete $self->{$key->to_str->to_native};
    nil->new();
}

sub keys { 
    my %native = (shift)- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7767	7867	
==><zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7767	7867	
==><zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4246	4361	
==>($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4463	4578	
==>($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	400	490	
==>uthenticate authorization proxy_authorization authorization_basic proxy_authorization_basic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	400	490	
==>uthenticate authorization proxy_authorization authorization_basic proxy_authorization_basic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1244	1419	
==>!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1255	1430	
==>!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1488	1585	
==>me))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_na <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1488	1585	
==>me))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match.capture_na <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2649	2752	
==>wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1633	1745	
==>CRIPTION

This module provides an implementation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-comp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12389	12490	
==>ALL($params);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) (hash %params)) ret <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18796	18893	
==>e are not prepared to
support (such as modification of the compiled re op tree the native
compiler <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3086	3183	
==>e are not prepared to
support (such as modification of the compiled re op tree the native
compiler <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1880	1971	
==>comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1880	1971	
==>comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5835	5931	
==>d %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5835	5931	
==>d %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq norm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32567	32666	
==>nchor).

=back

If there is a method with the name of one of these attributes, it is
I<imperative> y <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	47	145	
==>t;
#use Inline 'INFO','NOISY','FORCE';
use lib 'lib';
use Inline::Parrot::PMC 'get_int';
use Inline <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3556	3680	
==>an1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3556	3680	
==>an1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14720	14861	
==>OSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8921	9062	
==>OSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => punct => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13856	13957	
==>outine
is called with two parameters; the name of the field and a single
value (a string).  If a heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13856	13957	
==>outine
is called with two parameters; the name of the field and a single
value (a string).  If a heade <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1998	2120	
==>n of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1998	2120	
==>n of Array

# TODO - exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8783	8928	
==>>{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, whic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8783	8928	
==>>{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, whic <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3034	3139	
==>hem again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub preload {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1309	1417	
==>~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1309	1417	
==>~ s/([\'\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1771	1897	
==>THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # ca <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1771	1897	
==>THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1205	1317	
==>.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1205	1317	
==>.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3173	3288	
==>ime)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3173	3288	
==>ime)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 29 );
  say $date.year;
  say <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	319	442	
==>shift;
#     my $result = $self->SUPER::isa(@_);
#     return $result ? bit->new(1) : bit->new(0);
# }

1;

__END__

=pod

= <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	593	707	
==>1

sub nothing($input) {
  return(undef, $input);
}

sub End_of_Input($input) is exported(:all) {
  return defined( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1428	1542	
==>= "vmlinuz";
my $grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/pge" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9550	9645	
==>declare any subroutines or export such.

The usual way that Rosetta::Model indicates a failure i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9550	9645	
==>declare any subroutines or export such.

The usual way that Rosetta::Model indicates a failure i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6342	6502	
==>e DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6342	6502	
==>e DATA
                # file handle, or at least seek back to the start of it.
                # Needs investigation.

                # For now this means that <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2196	2294	
==>nterface::Command {

    # External packages used by the Rosetta::Interface::Command class, that do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2196	2294	
==>nterface::Command {

    # External packages used by the Rosetta::Interface::Command class, that do <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8856	8963	
==>set_items_opt(L0), p5_charset_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            -->      p5_charset_ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7469	7576	
==>rn $S->force_object(anyof_char => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha P <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2355	2473	
==>stem.

These objects are changed when you define new traits of Classes,
Roles, etc - or when you do even scarier things <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7663	7806	
==>)\
\\n   List      non     ..^     safe   (Scalar, Scalar)\
\\n   List      non     ^..     safe   (Scalar, Scalar)\
\\n   List      non     ^.. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	175	306	
==>turns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	175	306	
==>turns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is expo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4416	4514	
==>&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4416	4514	
==>&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21963	22079	
==>ps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40842	40957	
==>pass over the regex.

=item $parser->awarn(RPe_ERRMSG, ARGS...)

Unconditionally throws a warning.  Primarily useful <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34254	34349	
==>f_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p{NAME}>, C<\P{NAME}>: al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	948	1053	
==>to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	948	1053	
==>to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1146	1368	
==>ew(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17541	17669	
==>{
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13962	14090	
==>{
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13170	13339	
==>match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted litera <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13164	13333	
==>match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted litera <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	127	230	
==>ents are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New meth <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	127	230	
==>ents are known;
  - pushing a lazy list into a normal array turns the array into a lazy array
* New meth <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	9	129	
==>I::Util-0.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.key <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	9	129	
==>I::Util-0.0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.key <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8153	8260	
==>ng, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8153	8260	
==>ng, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7592	7743	
==>il', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7592	7743	
==>il', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4035	4128	
==>ersion 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4035	4128	
==>ersion 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15106	15252	
==>ta => \@data,
      on => $on,
      off => $off,
      down => 1,
    }, $class;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6976	7065	
==>ule simple_call { <identifier><ws><expr>; }
macro statement_control:<a_call> (Match $m --> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3153	3244	
==>afe::Annotation->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				struct_equiv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14513	14671	
==>arn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14507	14665	
==>arn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4785	4948	
==>ndefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4785	4948	
==>ndefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Obje <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3950	4051	
==>hitespacePosition <= $position);

  expect_term_1:
  my $key = $$currentTermTable->lkey($target, $whit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2972	3069	
==>g is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2972	3069	
==>g is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9181	9314	
==>ause it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9181	9314	
==>ause it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn " <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1564	1701	
==>in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $cu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1564	1701	
==>in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $cu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3049	3150	
==>tmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3049	3150	
==>tmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	671	780	
==>elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump dat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4273	4408	
==>te table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4273	4408	
==>te table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51597	51795	
==>ity'))
                  ->to_bit()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1881	2027	
==>es satisfied?
            {   my $info = LoadFile( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1891	1985	
==>ve test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additi <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1891	1985	
==>ve test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3651	3786	
==>kage $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, " <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3709	3844	
==>kage $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2588	2708	
==>)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2588	2708	
==>)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	617	740	
==>($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $ms <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	617	740	
==>($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $ms <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6278	6388	
==>al hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12356	12516	
==>r('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12356	12516	
==>r('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $ur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9150	9276	
==>erhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current implementation is always anchored at ^ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8850	8972	
==>erhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current implementation is always anchored at ^ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17891	17988	
==>DBMS object at a time, and they are
essentially all isolated from each other, even if more than on <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17891	17988	
==>DBMS object at a time, and they are
essentially all isolated from each other, even if more than on <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7096	7246	
==>urn 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7096	7246	
==>urn 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7067	7167	
==>t_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7067	7167	
==>t_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10964	11079	
==>acks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11114	11229	
==>acks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2108	2207	
==>y => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2108	2207	
==>y => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15779	15906	
==>y +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20012	20139	
==>y +
                             Tainted information used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	505	595	
==>ecialised processing instructions may sub-class this module or
provide special behaviour wh <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	505	595	
==>ecialised processing instructions may sub-class this module or
provide special behaviour wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1151	1289	
==>\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1105	1236	
==>\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ne <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	27	108	
==>/Makefile/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefil <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2860	2993	
==>utput-file"}, {
            meat => $self->structure,
            map { $_ => $self->{"_$_"} } qw{
                build_info smoker c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18456	18564	
==>t(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14877	14985	
==>t(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16057	16262	
==>list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16336	16541	
==>list', 
             ruleop::greedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               , <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9012	9118	
==>ng' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9012	9118	
==>ng' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=he <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34590	34687	
==>er> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation, a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39140	39237	
==>er> argument, where the heading of <$other> is a subset of the
heading of the invocant Relation, a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11050	11183	
==>nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name
  negated:
    mob["isnegated"] = 1
  no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16652	16751	
==>ation file that comes
with this "Rosetta" distribution.

While it is possible that one could write a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16652	16751	
==>ation file that comes
with this "Rosetta" distribution.

While it is possible that one could write a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4630	4756	
==>q '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4642	4768	
==>q '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6590	6695	
==>es, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6590	6695	
==>es, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	327	435	
==>vite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	327	435	
==>vite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	556	678	
==>s_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	556	678	
==>s_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8851	8967	
==>th ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8851	8967	
==>th ($self:) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	749	855	
==>))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	749	855	
==>))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_name> < <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4222	4343	
==>type)=($pairs->[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $sel <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2135	2228	
==>Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.free <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2135	2228	
==>Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.free <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	457	564	
==>- it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	457	564	
==>- it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call . <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	588	706	
==>export {
    Duration::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hou <==
2	/Users/nnunley/pugs/util/package-osx.pl	5434	5548	
==>/local/man/man3/Perl6::FAQ::Capture.3pm
        /usr/local/man/man3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	136	231	
==>re 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35851	35950	
==>vocant relation into a new Relation, such that all common attribute names
and corresponding common t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40401	40500	
==>vocant relation into a new Relation, such that all common attribute names
and corresponding common t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33899	34002	
==>hey prefer to communicate in, and what their backup choices are,
in order, if preferred ones aren't supp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33899	34002	
==>hey prefer to communicate in, and what their backup choices are,
in order, if preferred ones aren't supp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40596	40690	
==>arranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40596	40690	
==>arranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	636	739	
==>p {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	636	739	
==>p {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7814	7924	
==>, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7814	7924	
==>, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7787	7917	
==>osure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submet <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7787	7917	
==>osure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submet <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	160	284	
==>y = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! define <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	160	284	
==>y = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
}

method is_empty        () { ! define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2211	2361	
==>$_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => $1,
        tail  = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22309	22405	
==>eate any objects.  Afterwards, it is an array
reference of (node) objects.

=item stack

Initiall <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10851	11003	
==>cname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10851	11003	
==>cname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %chann <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	728	882	
==>ic-language



...



=head1 The User Story



Say we have a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	693	836	
==>ic-language

...

=head1 The User Story

Say we have a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, t <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	903	1018	
==>ddition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ... <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	903	1018	
==>ddition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ... <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17000	17100	
==>l 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17000	17100	
==>l 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> mo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1158	1272	
==>erset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<ob <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1158	1272	
==>erset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4082	4237	
==>l');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4082	4237	
==>l');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12374	12501	
==>TH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12374	12501	
==>TH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6052	6187	
==>ng for Linux",
  help   => "This program needs Linux to run correctly.",
  ensure => sub { $^O eq "linux" };

step
  descr  => "Fetching <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6767	6875	
==>xp* hook_regcompp (pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_reg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5447	5550	
==>nyof_class => $S->force_object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1798	1897	
==>look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1798	1897	
==>look at the
modules in F<ext/>. Another good source of working Perl 6 code is the
comprehensive test <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1760	1877	
==>h) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1760	1877	
==>h) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") } <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3538	3647	
==>y $include_re = join( "|", map { quotemeta } @include );
    $Config{include_re} = qr/\.($include_re)$/;
}

su <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24354	24437	
==>G),amat([],G)).
match_captures_push(amat(C0,G),CL,amat(C1,G)) :- append(C0,CL,C1).
m <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	943	1103	
==>_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	822	982	
==>_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21362	21462	
==>chmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it und <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21362	21462	
==>chmidt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it und <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9946	10043	
==>".  The immediate validations
are performed at the moment the user tries to set the input, and inp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9946	10043	
==>".  The immediate validations
are performed at the moment the user tries to set the input, and inp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4785	4894	
==>nnels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of / <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4785	4894	
==>nnels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1495	1636	
==>~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1495	1636	
==>~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9884	9984	
==>till got the right return value from $iFoo singleton method');

## make subclasses

my $Bar = $Class- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15633	15752	
==>eading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19110	19229	
==>eading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13927	14027	
==>r $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = $class.dispatcher(:descen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4855	4985	
==>n}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4855	4985	
==>n}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenthesis rules! :) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2171	2282	
==>onsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2311	2422	
==>onsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	40	131	
==>I::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	40	131	
==>I::Escape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3933	4027	
==>head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3933	4027	
==>head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4391	4485	
==><metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <argument_list> \) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2090	2179	
==>"Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Faculty/camero <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6253	6388	
==>ndle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at lea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6253	6388	
==>ndle becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at lea <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	247	360	
==>) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SEL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	247	360	
==>) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SEL <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16855	17008	
==>n join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } else {
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1125	1256	
==>, @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #p <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1500	1596	
==>ES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WIND <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1340	1436	
==>ES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WIND <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22657	22770	
==>value
    .local pmc exp
    mname = self["mname"]
    value = self["value"]
    if mname == ":sigspace" goto word <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9886	9998	
==>while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9886	9998	
==>while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3296	3436	
==>>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4145	4285	
==>>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8916	9025	
==>ailable list
    ### and check if the package is available/provided by any installed pkg
    sub dependency_sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10393	10502	
==>ailable list
    ### and check if the package is available/provided by any installed pkg
    sub dependency_sa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	780	880	
==>xport { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	780	880	
==>xport { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI>   }
s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18197	18369	
==>d" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18476	18648	
==>d" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5882	5998	
==>rule {      def_rule($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10941	11041	
==>universal set".
Otherwise the program will emit warnings during the execution of some methods, 
becau <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10941	11041	
==>universal set".
Otherwise the program will emit warnings during the execution of some methods, 
becau <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1788	1923	
==>p::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1799	1934	
==>p::constant( "<\'" ),
        ruleop::capture( 'constant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10437	10530	
==>so the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10437	10530	
==>so the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5127	5291	
==>'a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5115	5279	
==>'a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9252	9346	
==>e the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9252	9346	
==>e the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39661	39795	
==>_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates an object:
      $S->warn(RPe_BADE <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3319	3429	
==>ined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3319	3429	
==>ined( %param<before> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1203	1314	
==>ernate source fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing wit <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1203	1314	
==>ernate source fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing wit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3824	3961	
==>$pass ) {
        unshift(@mess, "# it should not be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _wher <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	751	869	
==>$f, $fprime);

        say "{$count++}: $guess" if $verbose;
    }
    return $guess;
}

=head1 NAME

Newton - performs <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	258	367	
==>escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$valu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	258	367	
==>escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22528	22645	
==>OTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18949	19066	
==>OTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14356	14491	
==>[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14350	14485	
==>[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	645	754	
==>|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	612	721	
==>|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6057	6163	
==>- this is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6057	6163	
==>- this is too specific - it only applies to Span::Int objects
# method density () returns Object {
#    ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	957	1098	
==>rn list->new(@res) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6693	6791	
==>ildren(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6693	6791	
==>ildren(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1541	1667	
==>}
        }
        confess "could not find message ($message)";
    } => 'Dispatchable';
}

{
    package Dispatchable;
    su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2538	2644	
==>ameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2538	2644	
==>ameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rul <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	960	1056	
==>Maybe.  And perl5 might benefit from its existence.  Normally this
# kind of reverse-engineered i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8515	8634	
==>"$_[1] ruleop::capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node:: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1890	1997	
==>e also:
     util/yaml_harness.pl  - produce the data for this tool
     util/testgraph.pl     - Generates a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9429	9547	
==>ities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $re <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9429	9547	
==>ities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2927	3083	
==>-- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3111	3267	
==>-- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- perl5 syntax inside <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4866	4991	
==>e;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4866	4991	
==>e;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2813	2927	
==>$.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy ( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2813	2927	
==>$.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2015	2187	
==>thods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Not <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2015	2187	
==>thods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Not <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2208	2332	
==>deps ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        while (my($k,$v) = each %$deps) {
            my ($ve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8936	9035	
==>Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2761	2860	
==>Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6->_open(@_) };
push @terms, sub { Gramma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2027	2123	
==>rtext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2027	2123	
==>rtext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of enciphering.  (There <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4560	4744	
==>ires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4560	4744	
==>ires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9539	9680	
==>hey need to implement.
method zeroize()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9539	9680	
==>hey need to implement.
method zeroize()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26688	26789	
==>_TAINTED_SEEN	0x80000
 #define ROPT_MATCH_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTU <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1988	2135	
==>ock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1910	2052	
==>ock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19021	19131	
==>d) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19021	19131	
==>d) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6749	6856	
==>$pass = $got =~ /$expected/ if !$flip;
    $pass = $got !~ /$expected/ if $flip;
    unless ($pass) {
	unshi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13071	13155	
==>ackets("?","?"). brackets("#","#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xab <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	581	698	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4059	4176	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3886	3989	
==>eral or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comment <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3886	3989	
==>eral or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comment <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2790	2925	
==>on);
            $subscriber.note_subscription($subscription);
        }

        method remove_subscription (Class::Events::Subscriptio <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13149	13244	
==>mplementation is at best an XS-based module (currently Inline::C),
  and is thus not very portab <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3285	3388	
==>, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3285	3388	
==>, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($mat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1827	1935	
==>ethods->fetch($label)->do($args);
        }
    }
    confess "Method (" . $label->to_native . ") not found i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13706	13815	
==>ontinuous measurements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $nu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13706	13815	
==>ontinuous measurements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $nu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2504	2606	
==>rror ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export(:DE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2504	2606	
==>rror ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export(:DE <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12340	12449	
==>t, $err, $pid) =
            Pugs::Internals::runInteractiveCommand($command);
        ($in, $out, $err, $pid) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2192	2332	
==>tate = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2121	2258	
==>tate = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	970	1061	
==>ined $Config{"recurse"};
# Needed for smokeserv
$Config{"pugs-path"} = $ENV{HARNESS_PERL};
p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1257	1366	
==>ring delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1257	1366	
==>ring delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5494	5599	
==>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5494	5599	
==>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channe <==
2	/Users/nnunley/pugs/util/package-osx.pl	1359	1458	
==>/local/bin/pugs ../../bin/pugs
        /usr/local/bin/pugscc ../../bin/pugscc
        /usr/local/bin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	754	852	
==>per = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	754	852	
==>per = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	573	702	
==>l;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	573	702	
==>l;
        $EPOCH_OFFSET = Time::Local::timelocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (S <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2059	2189	
==>code) };
            when 'haskell' { Pugs::Internals::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_pa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18429	18547	
==>e is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18429	18547	
==>e is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	633	765	
==>};

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1914	2046	
==>};

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { ' <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	404	514	
==>)) 
    });
}

my method create_tree returns Void {
    $:type_tree = Tree.new().add_children(
        Tree.new <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17075	17188	
==>ype.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17075	17188	
==>ype.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5780	5885	
==>ec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5780	5885	
==>ec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11243	11369	
==>y $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ON <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6027	6133	
==>"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6027	6133	
==>"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1484	1604	
==>$c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1484	1604	
==>$c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5226	5355	
==>my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5226	5355	
==>my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capt <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1615	1735	
==>e 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], "Val" }

    packa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19438	19547	
==>tatements

rule Statement :words {  # see clause 12
      <Block>
    | <VariableStatement>
    | <EmptyStatem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1816	1922	
==>self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1956	2062	
==>self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dump <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4588	4725	
==>5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4728	4865	
==>5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1787	1913	
==>$name = $self->name
            or die "all_from called with no args without setting name() first";
        $file = join('/', ' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5606	5707	
==>ec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 6 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5606	5707	
==>ec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 6 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	543	651	
==>odule MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1401	1504	
==>odule MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36808	36979	
==>r(symbol->new('%:attributes'))
                  ->fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33058	33168	
==>, plus, curly, minmod
  sub walk {
    my ($self, $walk_stack, $depth) = @_;
    unshift(@$walk_stack,
      su <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1565	1698	
==>( my ($fname, $events) =  each %sum ) {
        for(my $i=1; $i<@$events; $i++) {
            my $event = $events->[$i];
            i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6749	6853	
==>w/node/;

package let;
use base qw/node/;

package cond;
use base qw/node/;

package val;
use base qw/nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2856	3028	
==>, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2856	3028	
==>, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3424	3527	
==>:Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->posi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4907	5039	
==>tot);

    assert(($ok xor keys %$failedtests), 
           q{ok status jives with $failedtests});

    return $ok;
}

=begin _privat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3365	3471	
==>Relation::Example, where the tuple
        # is represented as a Mapping; each key of that Mapping is the n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	945	1047	
==>IN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	945	1047	
==>IN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2850	2959	
==>T", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2850	2959	
==>T", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6857	6974	
==>8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(82 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6857	6974	
==>8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(82 <==
2	/Users/nnunley/pugs/util/package-osx.pl	7867	7968	
==>bject.3pm
        /usr/local/man/man3/Perl6::Spec::Operator.3pm
        /usr/local/man/man3/Perl6::Spe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8449	8645	
==>ring(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8449	8645	
==>ring(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13172	13388	
==>aque'
            ),            
            sub {
                my $e = shift;
                # p6opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	547	646	
==>le variable names.
*verbose  = *Verbose;
*switches = *Switches;
*debug    = *Debug;

$ENV{HARNESS_AC <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	695	803	
==>or all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_access <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1179	1287	
==>or all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_access <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1272	1386	
==>();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1263	1370	
==>();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19405	19563	
==>POS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${& <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15826	15984	
==>POS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${& <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11514	11628	
==>eturn $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*enco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11514	11628	
==>eturn $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*enco <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2813	2905	
==>.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2813	2905	
==>.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurren <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2102	2238	
==>here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2307	2443	
==>here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1001	1143	
==>=> $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1892	2034	
==>=> $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	583	832	
==>ven version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	583	832	
==>ven version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	752	850	
==>EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't create $testdir/$plxname.bat: $!";
pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21423	21516	
==>e tests added (specifically, making sure C<(?(N)T|F)> works right).
In doing so, found that th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1536	1650	
==>$one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1536	1650	
==>$one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18761	18860	
==>$document and optional
$parent_node though; you can produce a direct clone like this:

    my $clone <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18761	18860	
==>$document and optional
$parent_node though; you can produce a direct clone like this:

    my $clone <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15128	15221	
==>eable "Engine" back-ends (usually provided by third
parties) implement.  This interface is rig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15128	15221	
==>eable "Engine" back-ends (usually provided by third
parties) implement.  This interface is rig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29228	29325	
==>dle 'atom' is pre-consumptive (because there is no 'ato' handle,
basically).  In order for the 'at <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5588	5753	
==>,
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:<?? !!>'),
                    Sym->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6441	6655	
==>3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6441	6655	
==>3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4905	5032	
==>') => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.single_quoted>
            { return { single_quoted => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2267	2378	
==>, name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2267	2378	
==>, name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4018	4144	
==>wline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4211	4337	
==>wline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17058	17179	
==>1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(star_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12538	12638	
==>idate (str new ('P6opaque'))))
     (= ($self ($class: send (CREATE ($canidate %params)))))
     ($se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2894	3006	
==>str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3743	3855	
==>str( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19009	19134	
==>upport a complete SQL emulation layer on top of it, so that your
legacy applications can be migrated to use the Rosetta DBMS w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19009	19134	
==>upport a complete SQL emulation layer on top of it, so that your
legacy applications can be migrated to use the Rosetta DBMS w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6536	6675	
==>ata} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return $self;
  }

  sub type {
    my $self = shift;
    i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	649	742	
==>name, \@test_output);
  my %results = $strap->analyze_fh($name, $test_filehandle);
  my %resul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4811	4967	
==>$/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4823	4979	
==>$/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6687	6793	
==>gs = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6699	6805	
==>gs = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14992	15086	
==>=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14992	15086	
==>=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8104	8213	
==>irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8104	8213	
==>irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26708	26808	
==>sage Key attribute of the new object is set from the named parameter
$msg_key (a string); the optiona <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26708	26808	
==>sage Key attribute of the new object is set from the named parameter
$msg_key (a string); the optiona <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4112	4245	
==>::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4112	4245	
==>::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::L <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1935	2066	
==>w($_)) } @_ } # subs that do nothing but have distinct digests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        ' <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	143	253	
==>..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ serve <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	143	253	
==>..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ serve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	443	557	
==>eturn "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match, \$1 } : 0 )";
}

sub capture { 
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6874	7011	
==>ll statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stameme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6874	7011	
==>ll statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stameme <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20991	21083	
==>sly defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Pos <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20991	21083	
==>sly defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, Pos <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1914	2026	
==>ob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1914	2026	
==>ob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2005	2160	
==>d'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2005	2160	
==>d'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie( <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2546	2656	
==>ad2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This modul <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2546	2656	
==>ad2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This modul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9265	9361	
==>el is entirely object-oriented; you use it by
creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9265	9361	
==>el is entirely object-oriented; you use it by
creating objects from its member classes, usually i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1510	1610	
==>s ( @_ ) {
		warn "You MUST provide an explicit true/false value to dynamic_config, skipping\n";
		re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	55	159	
==>s $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	55	159	
==>s $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	312	445	
==>);

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%ar <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	358	465	
==>);

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	56	159	
==>Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	56	159	
==>Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	625	747	
==>ee )); 
    })->code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	460	555	
==>t get_int(Parrot_Interp i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15232	15337	
==>lass
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9430	9535	
==>lass
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1835	2019	
==>";
        
        my $href = LoadFile( $meta );    
        
        ### add location to the metadata
        ### location of .jib is in same dir as $meta
        ### XXX add other fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8497	8670	
==>1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	33	129	
==>S::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule:: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	33	129	
==>S::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12055	12176	
==>an.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12055	12176	
==>an.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7870	7972	
==>lyze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7870	7972	
==>lyze the remaining blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8129	8291	
==>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	568	701	
==>rted++) {
        regexp_exechook_insert();
        regexp_hook_on();
    }

    no strict 'refs';
    require "re/override/$flavor.pm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4401	4522	
==>j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4401	4522	
==>j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_k <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5773	5920	
==>.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5773	5920	
==>.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	688	789	
==>that perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive underst <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	688	789	
==>that perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive underst <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32709	32808	
==>ew Relation contains all the tuples of the source Relations, including
one copy each of any duplicat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37259	37358	
==>ew Relation contains all the tuples of the source Relations, including
one copy each of any duplicat <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	794	915	
==>patch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{na <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2629	2739	
==>patch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{na <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	23	122	
==>ent::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	23	122	
==>ent::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %eve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23609	23704	
==>Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23609	23704	
==>Rosetta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2595	2699	
==>only source representation.

=back

=head1 API METHODS

These methods must be implemented by subclasses.. <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2595	2699	
==>only source representation.

=back

=head1 API METHODS

These methods must be implemented by subclasses.. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12674	12843	
==>_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12668	12837	
==>_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2431	2543	
==>c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2431	2543	
==>c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = % <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15313	15422	
==>$digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15313	15422	
==>$digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2113	2232	
==>.
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2101	2220	
==>.
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4777	4887	
==>$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4777	4887	
==>$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36626	36718	
==>\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34794	34890	
==>les that
are in the invocant Relation and that match any tuples of C<$other> along
their common a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39344	39440	
==>les that
are in the invocant Relation and that match any tuples of C<$other> along
their common a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	486	610	
==>rule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	486	610	
==>rule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($gram <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	762	866	
==>turn Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method star <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	762	866	
==>turn Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method star <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	856	992	
==>oup.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	856	992	
==>oup.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1201	1318	
==>s $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op    { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	304	417	
==>s $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implemented" };
sub get_op { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1068	1201	
==>om;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1068	1201	
==>om;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17724	17818	
==>e/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual machine, i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17724	17818	
==>e/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual machine, i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8887	9036	
==>table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8887	9036	
==>table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2563	2683	
==>hile @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shif <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2563	2683	
==>hile @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shif <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2144	2389	
==>en rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbati <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2144	2389	
==>en rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbati <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5796	5897	
==>d", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is mod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5796	5897	
==>d", %event_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is mod <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24062	24155	
==>tor::nullary->new("int") );
	is($type->stringify, "∀α. α → int", "pretty print a -> b wh <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11273	11367	
==>~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11273	11367	
==>~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	877	978	
==>tor.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. D <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	877	978	
==>tor.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated file. D <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5812	5906	
==>bs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5870	5964	
==>bs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2120	2243	
==>oc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2120	2243	
==>oc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6661	6765	
==>}

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6719	6823	
==>}

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5396	5532	
==>ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5396	5532	
==>ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1184	1305	
==>}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless - <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1184	1305	
==>}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14838	15009	
==>_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14832	15003	
==>_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30155	30305	
==>$order->equal_to(str->new(':canonical'));                
                
                my $dispatcher;
                if ($order->equal_to(str->ne <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12369	12470	
==>nts a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This class im <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12369	12470	
==>nts a "span".

Depending on your data, you may need a "discrete" or a "continuous" span.
This class im <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10120	10257	
==>e    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_log <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10120	10257	
==>e    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_log <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2433	2590	
==>_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2433	2590	
==>_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$q <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3579	3702	
==>ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3579	3702	
==>ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1891	1990	
==>ntion, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extract <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1891	1990	
==>ntion, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit one by extract <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8889	9009	
==>@blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8889	9009	
==>@blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1882	1991	
==>as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1882	1991	
==>as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	324	449	
==>fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	324	449	
==>fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18828	18944	
==>and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18828	18944	
==>and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the lin <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	533	654	
==>'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x->$try{
        $max =    $max > $t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6967	7065	
==>really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::inse <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6967	7065	
==>really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::inse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4967	5133	
==>if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4979	5145	
==>if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7479	7583	
==>hr(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join("", map chr(hex), @hex), "\\X <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	371	537	
==>"$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib sup <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	371	537	
==>"$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib sup <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3508	3647	
==>l  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3701	3840	
==>l  => $bool,
        match => { 'any'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11677	11794	
==>');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11677	11794	
==>');  # get multiple values
 $accepts = $header.header('Accept');  # get values as a single string

=item $h.push_heade <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10320	10420	
==>iverse => $universe )`

Creates a recurrence set.

The complementary functions are emulated using ite <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10320	10420	
==>iverse => $universe )`

Creates a recurrence set.

The complementary functions are emulated using ite <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	496	662	
==>ent,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "N <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	496	662	
==>ent,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "N <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4830	4939	
==>e right x for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... got the right cleared x for p3d');
is($p3 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19839	19924	
==>L2JS!";
}
our &PIL2JS::Internals::use_jsan_module_noimp := &PIL2JS::Internals::use_jsa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	410	524	
==>fs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	410	524	
==>fs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5342	5461	
==>match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5342	5461	
==>match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	591	729	
==>lass = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	591	729	
==>lass = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18488	18623	
==>) {
        _print_ml_less("ok $curr/$max");

        if( $detail->{type} eq 'skip' ) {
            $totals->{skip_reason} = $detail->{r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6045	6141	
==>e do not have the resolve method');

# Bootstrap -> Class does Role 
::opaque_instance_attrs($Cla <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5542	5668	
==>multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        match_n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5542	5668	
==>multidex;
        # Put another dimension on the multidex and match the recursive match_n
        # combinator.
        match_n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	238	413	
==>_ref
       p6_isa
       p6_undef
       p6_bool
       p6_bit
       p6_int
       p6_num
       p6_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_N <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13393	13493	
==>entifiers pass the generic variables unchanged
ide: generic($$) = { generic_in($$) }

# if an identif <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3495	3614	
==>set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3495	3614	
==>set1.new( recurrence => $.recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3122	3300	
==>rn !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6599	6777	
==>rn !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    d <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2255	2368	
==>r input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\si <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2255	2368	
==>r input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36000	36096	
==>is object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  All c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36000	36096	
==>is object's
Set Names and Member Names elements, concatenated in the form
"<Set><Member>".  All c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1612	1753	
==>ass in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1612	1753	
==>ass in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32693	32788	
==>tcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO);
}

=cut

$::Cl <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	329	421	
==>hod clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_fil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	329	421	
==>hod clear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_fil <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4441	4544	
==>')`

= OBJECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the ye <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4441	4544	
==>')`

= OBJECT METHODS

The following methods are available for Date objects:

- `year()`

Returns the ye <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15110	15219	
==>ge it uses)
will need to display a message to the user, or generate a message to be
shown to the user.  Someti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15110	15219	
==>ge it uses)
will need to display a message to the user, or generate a message to be
shown to the user.  Someti <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2242	2423	
==>ection}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 } <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2242	2423	
==>ection}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 } <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7095	7224	
==>ub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10202	10287	
==>defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10937	11022	
==>defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20876	20984	
==>n $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20876	20984	
==>n $h->as_string.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field nam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33662	33768	
==>re each
element is a Template module Member Name and usually corresponds to a
language like English or Fren <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33662	33768	
==>re each
element is a Template module Member Name and usually corresponds to a
language like English or Fren <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1555	1731	
==>fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[3], exp1 => \$_[1], } }", 
    infix_left =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixit <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5567	5666	
==>is
function.  If you need that information you should use the full OO
interface (see L<LWP::UserAgen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5567	5666	
==>is
function.  If you need that information you should use the full OO
interface (see L<LWP::UserAgen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1395	1527	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEG <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1395	1527	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEG <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14172	14287	
==>@r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17649	17764	
==>@r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3050	3156	
==>02f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x85\u2028\u2029"
  );
    # See http://www.unicode.org/P <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11133	11235	
==>ated using the total number of
    tests run -- for example, if a backend only ran three tests, which i <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2782	2889	
==>r
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2782	2889	
==>r
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28065	28168	
==>the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32617	32720	
==>the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7061	7222	
==>n_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7061	7222	
==>n_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_ty <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4248	4346	
==>%channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4248	4346	
==>%channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21673	21772	
==>re using your package.  One
can override simply by using the same key code with a new user message i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21673	21772	
==>re using your package.  One
can override simply by using the same key code with a new user message i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18488	18605	
==>$name = "$obj_name isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8449	8619	
==>a);
    my $len = length($s);
    if($o->{'flags'} & $o->flag_val_i) {
      my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater <==
2	/Users/nnunley/pugs/util/importgraph.pl	2056	2141	
==>ser\.\w+$/);
setup_rank('parser_program', 'Pugs.Parser.Program');
setup_rank('prim', q <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	987	1106	
==>(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_em <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	987	1106	
==>(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_em <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18587	18685	
==>as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18587	18685	
==>as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes') corresp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3607	3707	
==>put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3607	3707	
==>put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
captures <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4159	4277	
==>s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4159	4277	
==>s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33295	33393	
==>ssage is found.  Since a
program or library may wish to override the user text of another library
w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33295	33393	
==>ssage is found.  Since a
program or library may wish to override the user text of another library
w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1032	1181	
==>eturn $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f" <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8336	8470	
==>haskell handling it.
            %mods.delete("sigspace");
        }
        if $pre ne "" {
            $pre ~= "::" if substr($pat,0, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14207	14319	
==>nts' if $prefix eq 'statement_control';
    
            $res .= "    push \@Grammar::Perl6::$category, \\&{'$pre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1024	1138	
==>e { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1024	1138	
==>e { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	332	443	
==>on.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = $FALSE;


=head1 NAME

Test::Harness: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3194	3302	
==>( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3182	3290	
==>( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2979	3094	
==>_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$g <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2979	3094	
==>_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13061	13158	
==>y are each decoded
separately and the same number of strings are returned.

If called in void cont <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13061	13158	
==>y are each decoded
separately and the same number of strings are returned.

If called in void cont <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3352	3469	
==>less $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.un <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3352	3469	
==>less $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.un <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7751	7868	
==>s, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7751	7868	
==>s, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of P <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	150	249	
==>ion in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These n <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	150	249	
==>ion in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These n <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	124	226	
==>de in pugs.

# Sets up either the inlined Perl 6 source Prelude fallback, or a real
# precompiled AST o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4121	4223	
==>urns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4121	4223	
==>urns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.sta <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17471	17570	
==>{  # see 11.10
      <BitwiseXORExpression>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12812	12907	
==>`$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12870	12965	
==>`$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4696	4815	
==>im(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4754	4873	
==>im(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$ <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2503	2614	
==>n log (in $testdir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20196	20301	
==>t> <','> <VariableDeclaration>
}
rule VariableDeclarationListNoIn :words {  # see 12.2
      <VariableDecl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6672	6756	
==>es COMPLETE
## ---------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2014	2129	
==>in::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directo <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2014	2129	
==>in::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3201	3304	
==>elf.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3201	3304	
==>elf.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: Set $other) return <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1220	1324	
==>gment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1220	1324	
==>gment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9829	9949	
==>ped tests do not carry the a line number, so leave them out for now
          if($test->{todo}||0 == 1) {
          $line <==
2	/Users/nnunley/pugs/util/package-osx.pl	6410	6507	
==>rl6::Overview::Reduce.3pm
        /usr/local/man/man3/Perl6::Overview::Rule.3
        /usr/local/m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7889	7995	
==>:optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optiona <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7620	7722	
==>:optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optiona <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3120	3241	
==>-MConfig -eprint+Config::config_vars+version';
        ($perl_version) = (`$cmd` =~ /version='(.*)'/);
    }
    
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17740	17859	
==>ich is a hash reference holding character values (eg. 65 for 'A') and
the number of times that character appeared in the <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3903	4017	
==>p-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3903	4017	
==>p-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $req <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2371	2467	
==>->{$spacePresent[1]} = %tokenClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->tok <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21980	22085	
==>nable this when Parse-YAML supports closures correctly!
    return if index($file, 'Test.pm') == -1;
    s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16213	16301	
==>uch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16271	16359	
==>uch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2953	3071	
==>/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2953	3071	
==>/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4303	4450	
==>ail );

        }
  
        return $obj;
    }
}

=head2 $inst_pkg = $inst->is_installed( package => $package )

=cut

### XXX package name?
sub is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	468	578	
==>um> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	468	578	
==>um> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableN <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	703	839	
==>}" or
            die "open: $Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    binmode OUT;
}

# XXX: with yaml precom <==
2	/Users/nnunley/pugs/util/func_refact.pl	1792	1923	
==>$t};
	        print "unionising $new: adding $t on account of $f\n" if $Conf{verbose} or $Conf{debug} eq $new;
                $set- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	547	686	
==>), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Repository->new( dir => $dir )
            or error( "Cou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10015	10123	
==>e whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argume <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2293	2391	
==>ty function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2293	2391	
==>ty function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41150	41252	
==>embedding of Template modules into the same files as
program code, rather than requiring separate files <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41150	41252	
==>embedding of Template modules into the same files as
program code, rather than requiring separate files <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24453	24561	
==>ta is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public Licen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24453	24561	
==>ta is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public Licen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	487	618	
==>p &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	487	618	
==>p &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20125	20232	
==>o allow the core to be completely testable on its own.  It is
coded intentionally in a simple fashion so tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20125	20232	
==>o allow the core to be completely testable on its own.  It is
coded intentionally in a simple fashion so tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6874	7012	
==>$' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'meol' :
      &Rf & $S->FLAG_s ? 'seol' :
      'eol';
    return $S <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	543	657	
==>RESET;

  if($args{ensure}->()) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } else {
    if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32077	32177	
==>nds to language A, looking for a match to said error
message.  If it finds one, then that is displaye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32077	32177	
==>nds to language A, looking for a match to said error
message.  If it finds one, then that is displaye <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3193	3305	
==>fore it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3193	3305	
==>fore it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1240	1356	
==>ool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1298	1414	
==>ool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18372	18475	
==>($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14793	14896	
==>($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	991	1105	
==>gleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	991	1105	
==>gleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2512	2623	
==>f: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2512	2623	
==>f: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15618	15733	
==>x} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10474	10589	
==>x} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $rang <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6460	6560	
==>m'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTy <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6460	6560	
==>m'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTy <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12005	12128	
==>_val_i);
      my $ok = substr($X::str,$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok;
      $X::pos += length($1);
      TAIL <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	398	509	
==>$a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	398	509	
==>$a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1145	1258	
==>}
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1145	1258	
==>}
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9479	9590	
==>mg\"",
    ensure => sub { `strings $initrd_img | grep lost+found` },
    using  => sub { system "mkfs.ext2", "- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9287	9408	
==>use it was specialized for subrules

### - needs to be generalized, and the anchor should only

###   work when needed (or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8982	9101	
==>use it was specialized for subrules
### - needs to be generalized, and the anchor should only
###   work when needed (or <==
2	/Users/nnunley/pugs/util/combine_tests.pl	323	426	
==>ier one's
# and returns the modified reference.
# Note: no copy is made!
#
# Adds a more_events[] with e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19822	19918	
==>the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give yo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19822	19918	
==>the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give yo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8420	8520	
==>his create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can't <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8420	8520	
==>his create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can't <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13476	13568	
==>.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13476	13568	
==>.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1715	1818	
==>return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1908	2011	
==>return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1531	1622	
==>out($$) = { join(" ", $.name, layout($.param)) }
type::operator::nary: level($.param) = { le <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5130	5220	
==>)) --> {true}.

p6_range_bounds(Min,Max) --> digits_int(Min), !, p6_range_bounds_RHS(Min,Ma <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	754	861	
==>odo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	812	919	
==>odo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, :$depen <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3131	3250	
==>t /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done bett <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3131	3250	
==>t /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done bett <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23530	23680	
==>5::X1::Api::Exception::Return with { @{$_[0]{"-value"}} })'
}
sub p6_loop_CODE {
    my($body)=@_;
    # the caller is responsible for providing any va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1228	1342	
==>],
  );

  # do the initial scan (populates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6613	6720	
==>ust in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items). <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6613	6720	
==>ust in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items). <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	643	741	
==>if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	643	741	
==>if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1997	2148	
==>ch => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1997	2148	
==>ch => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub ca <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	646	749	
==>Cookies{$_} ~ "; expires=Sat, 01-Jan-3000 12:00:00 GMT\n";
    }
    return($header);
}
 
sub CookiesAdd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2631	2726	
==>ntics.

=head2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is currently the most compl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2757	2882	
==>pendencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3221	3346	
==>pendencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1312	1453	
==>$param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1312	1453	
==>$param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2465	2581	
==>reciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2465	2581	
==>reciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16426	16612	
==>optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16705	16891	
==>optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33458	33559	
==>ry should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33458	33559	
==>ry should
appear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C< <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	344	504	
==>%self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_er <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	344	504	
==>%self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_er <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7002	7109	
==>($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volum <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7002	7109	
==>($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volum <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	554	661	
==>end on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - i <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	554	661	
==>end on coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	114	225	
==>has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	114	225	
==>has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1166	1278	
==>ator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1166	1278	
==>ator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <bo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9026	9170	
==>tisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10503	10647	
==>tisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8962	9152	
==>ds($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8962	9152	
==>ds($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('v <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1824	1976	
==>turn;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1824	1976	
==>turn;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1308	1403	
==>tion of Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1308	1403	
==>tion of Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::e <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	807	921	
==>ys => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<sta <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	807	921	
==>ys => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<sta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1788	1900	
==>ection( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1788	1900	
==>ection( $self )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $sp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5518	5632	
==>ng the 
cipher object would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5518	5632	
==>ng the 
cipher object would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1408	1508	
==>) returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Funct <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1408	1508	
==>) returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Funct <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11353	11448	
==>b-class that adds a handler, the qr() method is used to produce
the Perl regex implementation of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2420	2553	
==>ast INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Mes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2420	2553	
==>ast INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Mes <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	550	653	
==>ngine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	550	653	
==>ngine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6937	7040	
==>od content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_languag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6937	7040	
==>od content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_languag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13817	13917	
==>t(anyof_class => ascii => $neg, \$how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	693	817	
==>.
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	693	817	
==>.
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39030	39128	
==>at is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 pack <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39030	39128	
==>at is at least 6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These Perl 6 pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	445	566	
==>[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1171	1289	
==>[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16565	16684	
==>}) {
        my $blurb = $tot->{tests}==1 ? "script" : "scripts";
        die "FAILED--$tot->{tests} test $blurb could b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10885	11027	
==>or();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10885	11027	
==>or();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4481	4771	
==>graph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        star <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4481	4771	
==>graph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        star <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15813	15932	
==>gth($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10669	10788	
==>gth($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	843	960	
==>ht + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.par <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	843	960	
==>ht + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.par <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6277	6379	
==>_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_sym_name {
	my $self = shift;
	my $sym = s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1681	1837	
==>) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1681	1837	
==>) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	817	940	
==>, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { whi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	817	940	
==>, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { whi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	773	899	
==>ed;

    if( scalar @metas > 1 ) {
        warn "More than one result found, using highest versioned\n";
    }
    
    my $fou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14876	15011	
==>n => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14876	15011	
==>n => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10915	11015	
==>he header fields is returned.
If no such field exists C<undef> will be returned.

A multi-valued fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10915	11015	
==>he header fields is returned.
If no such field exists C<undef> will be returned.

A multi-valued fiel <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12476	12576	
==>oth previous and next elements are at the same distance, returns the previous one.

- `is_empty()`

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12476	12576	
==>oth previous and next elements are at the same distance, returns the previous one.

- `is_empty()`

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19148	19245	
==>er(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authenticate

This <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19148	19245	
==>er(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authenticate

This <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10715	10827	
==>{
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10715	10827	
==>{
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.spa <==
2	/Users/nnunley/pugs/util/package-osx.pl	1115	1212	
==>sr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/hist <==
2	/Users/nnunley/pugs/util/package-osx.pl	3425	3522	
==>sr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/hist <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20067	20170	
==>nts.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20067	20170	
==>nts.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname co <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1824	1954	
==>"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $post <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1824	1954	
==>"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $post <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	453	549	
==>it_category { die "not implemented" };
sub inherit_grammar { die "not implemented" };

sub add_op <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	597	693	
==>redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Ren <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	597	693	
==>redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Ren <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	894	1002	
==>, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	905	1013	
==>, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrul <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	905	1022	
==>);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	905	1022	
==>);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6916	7023	
==>eader("Title") }
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6916	7023	
==>eader("Title") }
method content_encoding ($self: )          is rw { $self.header("Content-Encoding") }
metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17859	17965	
==>.

You can create more than one DBMS object at a time, and they are
essentially all isolated from each othe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17859	17965	
==>.

You can create more than one DBMS object at a time, and they are
essentially all isolated from each othe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8591	8684	
==>push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2416	2509	
==>push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8612	8765	
==>e"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8612	8765	
==>e"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1093	1197	
==>tr_names of List of Relation::AttrName () {
    return %!attrs.keys;
}

method export_attr_type of Relati <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1822	1939	
==>,
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1822	1939	
==>,
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24181	24322	
==>p::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24460	24601	
==>p::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10026	10125	
==>igit>
}
rule UnicodeEscapeSequence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexD <==
2	/Users/nnunley/pugs/t/packages/Test.pm	262	391	
==>n My::Package::pkg();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my package My::Package {
        sub pkg <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2829	2953	
==>_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2829	2953	
==>_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set:: <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	298	394	
==>ges");
    system("perl naive_bayesian.p5 add grapes grapes");
}
system("perl naive_bayesian.p5 c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5680	5937	
==>.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5680	5937	
==>.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7896	7994	
==>{ $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7896	7994	
==>{ $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19027	19155	
==>r}";
            }
        }
    }
    $str;
}

multi shift (@array) is builtin is primitive { List::shift(@array) };
multi shift <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	285	404	
==>@_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_number($value)) 
        || confess "Bad numeri <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1174	1285	
==>ld_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1174	1285	
==>ld_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5618	5726	
==>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5618	5726	
==>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from_nick>}++;
      %!users{normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5285	5394	
==>++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5285	5394	
==>++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30899	30991	
==>ew Relation::Example
which has a superset of the original's attributes; the new Relation::Exa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8600	8805	
==>o {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8600	8805	
==>o {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6133	6234	
==>t Context

All headers are returned split into the respective
lines.

=item Hash Context (if it exists <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6133	6234	
==>t Context

All headers are returned split into the respective
lines.

=item Hash Context (if it exists <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35109	35206	
==>ined in F<Regexp::Parser::branch>,
which is used when two of the same node are matched in successi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4280	4522	
==>ist' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4280	4522	
==>ist' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2973	3065	
==>This file bridges between perl and Blondie, by providing implementations of
some math, string <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26790	26912	
==>nts, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27069	27191	
==>nts, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10524	10622	
==>in header names.

The header() method accepts multiple ($field => $value) pairs, which
means that y <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10524	10622	
==>in header names.

The header() method accepts multiple ($field => $value) pairs, which
means that y <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1070	1168	
==>dified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1070	1168	
==>dified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1172	1287	
==>LD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Litera <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1172	1287	
==>LD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Litera <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1368	1471	
==>$worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1368	1471	
==>$worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3810	3898	
==>&Tree::insert_child ::= &Tree::insert_children;

## ------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3810	3898	
==>&Tree::insert_child ::= &Tree::insert_children;

## ------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4239	4396	
==>$match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4239	4396	
==>$match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15702	15800	
==>e seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15702	15800	
==>e seen as an
abstract blueprint for the design of a DBMS and the language interface to
such a DBMS. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15427	15518	
==>e($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15427	15518	
==>e($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encode_numeric( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19294	19392	
==>inctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definiti <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19294	19392	
==>inctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data definiti <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2656	2767	
==>= shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=hea <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2656	2767	
==>= shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34600	34696	
==>nt, where the heading of <$other> is a subset of the
heading of the invocant Relation, and return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39150	39246	
==>nt, where the heading of <$other> is a subset of the
heading of the invocant Relation, and return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6354	6453	
==>self = shift;
	my $sym = shift;

	require charnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(or <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15866	15969	
==>/>, and its authors have also written
several books and papers and taught classes on the subject over th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15866	15969	
==>/>, and its authors have also written
several books and papers and taught classes on the subject over th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2696	2809	
==>eholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <typ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2696	2809	
==>eholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <typ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	788	888	
==>dard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	788	888	
==>dard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server your CGI <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2530	2640	
==>es($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.sub <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2530	2640	
==>es($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.sub <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1548	1642	
==>ind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1548	1642	
==>ind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3463	3604	
==>}
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3927	4068	
==>}
        
        my @resolved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6923	7029	
==>amContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeg <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6923	7029	
==>amContext' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeg <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7056	7161	
==>n0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7056	7161	
==>n0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a dif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1117	1297	
==>ts($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1117	1297	
==>ts($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4169	4288	
==>$_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4376	4495	
==>$_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach @_;
    $self- <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1746	1877	
==>t is only an experiment, it's not
API compatible to the original POE, and is possibly very unstable.

=head1 METHODS ON C<$POE::Kern <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6236	6353	
==>\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6224	6341	
==>\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1179	1279	
==>&sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1175	1269	
==>&sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
sub <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5965	6080	
==>>new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    if($cls eq 'Array') {
        my $a = get_meta('Array')->new;
	$a- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6908	7050	
==>,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6908	7050	
==>,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_temp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	42	135	
==>mmar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	42	135	
==>mmar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rule;
use b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13449	13558	
==>FAIL() if &Regexp::Parser::ifmatch::_is_found_backwards($f);
        TAILCALL(&$c,$noop);
      };
    }
  }
} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	300	396	
==>ipher::Caesar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	300	396	
==>ipher::Caesar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19664	19761	
==>lain-text format that will be much easier for a non-programmer to edit.
But the current Perl-based <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19664	19761	
==>lain-text format that will be much easier for a non-programmer to edit.
But the current Perl-based <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2532	2714	
==>' exp block 
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => $_[5], exp4 => $_[6],
        } }

    | 'for' exp b <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	938	1055	
==>ds);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	996	1113	
==>ds);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test : <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8104	8235	
==>_) } @{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0];
      for my $f (@fs) {
        my $v = LET($X::pos){ $f- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4888	4995	
==>required") unless ref $_[0];
  my $type = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$ty <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	959	1086	
==>urn $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	959	1086	
==>urn $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	969	1079	
==>grammar for perl6.
  This will likely be pure p5/prolog, with no p6 runtime associated.
Then, 
  - aid in proto <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6391	6489	
==>at == PGE_OPTABLE_POSTFIX );
  goto oper_close if ( $topcat == PGE_OPTABLE_CLOSE );
  goto oper_shi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16259	16373	
==>defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16977	17072	
==>,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0,B0,B0,E0,E0).
rm(ques_ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30606	30708	
==>file can be
shared by multiple Messages but the whole module must represent a single
language.

The nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30606	30708	
==>file can be
shared by multiple Messages but the whole module must represent a single
language.

The nam <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1596	1695	
==>ode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi en <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1596	1695	
==>ode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi en <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9925	10097	
==>{
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11402	11574	
==>{
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $m <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3680	3806	
==>otals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%result) ) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16159	16252	
==>om the named parameter $node_type (a
string); the optional named parameter %attributes (a hash <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16159	16252	
==>om the named parameter $node_type (a
string); the optional named parameter %attributes (a hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7505	7686	
==>hed\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7254	7426	
==>hed\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12645	12738	
==><$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12645	12738	
==><$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13039	13168	
==>emented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # print "prefix: ", Dumper( $n );
    
    if ( $n-> <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1352	1472	
==>NSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1352	1472	
==>NSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2596	2802	
==>st, $info;                
                DumpFile( $Available, @list );
            }
        }
    
        ### extract the code
        {   ### XXX we should *build* things here too
            print "Un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4857	4962	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5201	5306	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5076	5202	
==>FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4340	4457	
==>FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32366	32544	
==>ms->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33021	33199	
==>ms->new(symbol->new('$self:'  => 'opaque')),
                returns => 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:') <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22574	22674	
==>lated into the user strings; Locale::KeyedText would also handle
this.

A program generates a Message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22574	22674	
==>lated into the user strings; Locale::KeyedText would also handle
this.

A program generates a Message <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	164	272	
==>ode;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method final <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	164	272	
==>ode;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method final <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1781	1877	
==>or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ sou <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1781	1877	
==>or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldoc::DOM::PI->new({ sou <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	939	1055	
==>c(@args) returns Bool is builtin is primitive is unsafe {
        # say "e:args:" ~ @args.perl; # XXX delme
        P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11641	11762	
==>val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11641	11762	
==>val_elem.defined;
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1716	1814	
==>ariable lookup), App (application) and Lit (literal).



App is divided to Multiple, Single and Pri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1647	1743	
==>ariable lookup), App (application) and Lit (literal).

App is divided to Multiple, Single and Pri <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2127	2225	
==>DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->determ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1237	1331	
==>DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->determ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	148	556	
==>a-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	148	556	
==>a-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1184	1297	
==>ll
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1151	1264	
==>ll
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2573	2693	
==>d superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2573	2693	
==>d superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16293	16475	
==>>to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16287	16469	
==>>to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22169	22279	
==>imply order the files appropriately in the search
list.  The analogy is similar to inheriting from multiple pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22169	22279	
==>imply order the files appropriately in the search
list.  The analogy is similar to inheriting from multiple pac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9822	9923	
==>rgument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9822	9923	
==>rgument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19635	19762	
==>return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @{ $rx <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6672	6763	
==>ser_spike_target.p6`;
my $m = match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Du <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7790	7902	
==>}
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$inde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7778	7890	
==>}
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$inde <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14451	14543	
==>n failure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%-------------------------

r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1832	1952	
==>s undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1832	1952	
==>s undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::U <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1346	1477	
==>n $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx: <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1346	1477	
==>n $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11184	11343	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11463	11622	
==>:optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	27	124	
==>h::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	27	124	
==>h::Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	489	648	
==>$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule pla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	489	648	
==>$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule pla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4154	4284	
==>apture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4026	4153	
==>apture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	388	496	
==>$c);
}

sub interpreter {
    my $self = shift;
    my $class = $self->interpreter_class;
    $class->require <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24822	24912	
==>E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0,-m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4637	4741	
==>rn> clause.

=head2 ""

When used as a string, the match object returns the stringified version
of the re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4637	4741	
==>rn> clause.

=head2 ""

When used as a string, the match object returns the stringified version
of the re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10050	10174	
==>) },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10050	10174	
==>) },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8992	9130	
==>_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8988	9126	
==>_greedy_star', 
            '+?'=>'non_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quan <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1703	1837	
==>ill_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3829	3930	
==>ine\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
} <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10859	10954	
==>ote that in this instance, the information about how many members
were actually new is discarded <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10859	10954	
==>ote that in this instance, the information about how many members
were actually new is discarded <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12891	12987	
==>l :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12949	13045	
==>l :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19153	19282	
==>}
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
This shoul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	796	1028	
==>when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	796	1028	
==>when m:P5{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	866	987	
==>pecial_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	866	987	
==>pecial_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4893	5017	
==>.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4893	5017	
==>.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.content_ty <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	142	256	
==>x'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	142	256	
==>x'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12695	12906	
==>ch[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12689	12900	
==>ch[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	391	510	
==>egory::ws;

sub ast {
    my $match = shift;
    $match .= '';
    # print "Grammar::Expression::AST '$match' \n";
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	112	221	
==>idate with Array
    map {
        my $c = PIL::Run::Container::Scalar->new_instance();
        $c->scalar_sto <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12318	12421	
==>ON

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12318	12421	
==>ON

B<Note>:  at the current time, this is a work in progress to test Pugs'
features.  It does not (yet) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30292	30393	
==>re the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30292	30393	
==>re the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4688	4841	
==>my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0; }
    elsif ( $initchar eq 'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9690	9828	
==>$self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($self, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1953	2059	
==>f}[$start_index->to_native .. $end_index->to_native]
    );
}

sub length {
    my $self = shift;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1630	1771	
==>t && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1630	1771	
==>t && ! $open_end ) );
}

method complement ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5918	6015	
==>index_files that a given package belongs to.

=cut

sub index_files { #TODO: When using two proper <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5500	5600	
==>elemental(standalone(R))       --> "(?>",  !, p5_start(R), ")".
p5_elemental(lookahead(R))        --> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1420	1510	
==>two uninteresting tests.
	$expr =~ s/\$&/\".\$m.\"/g;
	$expr =~ s/\$([0-9]+)/'".$m->['.($1- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2052	2208	
==>->length) == $bit::TRUE)
        || confess "too many arguments passed to closure got(" . $args->length()->to_native . ") expected(" . $params->length->to_na <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	203	311	
==>into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	203	311	
==>into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Array.from_list(); Arra <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	282	421	
==>ef {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	282	421	
==>ef {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3874	3968	
==>m->fmap(sub { Blondie::TypeSafe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23430	23571	
==>f->{dir} < 0 ? '<' : ''), "!";
  }
}


{
  # (?>)
  package Regexp::Parser::suspend;

  sub new {
    my ($class, $rx, @data) = @_;
    my $se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4613	4781	
==>ound;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                pus <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5077	5245	
==>ound;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                pus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4061	4218	
==>r object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4061	4218	
==>r object:
    has Str @!set_names;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5503	5650	
==>e

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5328	5469	
==>e
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $par <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	478	617	
==>y $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$d <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	478	617	
==>y $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$d <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2496	2616	
==>"# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3902	4007	
==>afe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9539	9643	
==>d),
          expander = document.getElementById("expander_" + id);
      if(elem.className == "details") <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	207	294	
==>clude { +shift->admin->include(@_) };
sub include_deps { +shift->admin->include_deps(@_) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4560	4725	
==>? _mangle_ident( $n->{param}{cpan_bareword} )
                  : _emit( $n->{param}{sub} );
            my @a = split "-", $id;
            my $version = ( @a > 1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	974	1083	
==>pt_file);
}

sub install_script {
    my $self = shift;
    my $args = $self->makemaker_args;
    my $exe_file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23171	23297	
==>(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19592	19718	
==>(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler(' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17310	17411	
==>for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17310	17411	
==>for some kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3283	3380	
==>irectory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3283	3380	
==>irectory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (St <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5925	6042	
==>finite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5925	6042	
==>finite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9904	10054	
==>rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10183	10333	
==>rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unle <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12286	12384	
==>::Example $other!) returns Relation::Example {

    die "The heading of the relation in $other is n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16220	16309	
==>okbehind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0,_,E0,_).
rm(lookbehind_not(Re),F0, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4068	4187	
==>l} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4285	4404	
==>l} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3226	3343	
==>then given to the App
    ),

Inherits Unit.

=item Val

Encapsulates a perl value. Usually either a Thunk object, a n <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1097	1202	
==>::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker packages so subdirs can use them again <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	805	905	
==>on can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	805	905	
==>on can be used to 
select a different number of letters to shift (e.g. Julius Caesar used 3; 
Augustu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30588	30689	
==>bject(close =>);
  });

The name is 'c)' which has no predecessor 'c', so that means it is
pre-consump <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4661	4759	
==>a($_[0], '$<key>'));
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = emit(get_data <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3642	3795	
==>t;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4106	4259	
==>t;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2233	2367	
==>er diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3594	3720	
==>er diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1920	2037	
==>rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1920	2037	
==>rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $.context;
    has P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16711	16834	
==>tml' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16711	16834	
==>tml' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	106	198	
==>fix/prefix/circumfix/postcircumfix
#  is assoc left/right/non/chain/list
#  (is parsed) / ter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5325	5417	
==>HT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5325	5417	
==>HT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<L <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	318	469	
==>0 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do t <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	318	469	
==>0 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11731	11860	
==>ting a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11731	11860	
==>ting a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	782	898	
==>ning time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	782	898	
==>ning time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5557	5672	
==>e Pugs::Grammar::Infix;
use Pugs::Grammar::Prefix;
use Pugs::Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pug <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16209	16321	
==>f") },
      glob  => sub { $as_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17942	18053	
==>my $conversion = substr($fmt,$start,$fi - $start);

        # FIXME -- when next; works, do if $spec eq "%" { .. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11011	11119	
==>);
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__,$namestr,$code_val));";
    }
    $code;
}

my %as_boo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	532	644	
==>process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	532	644	
==>process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6161	6260	
==>ick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6161	6260	
==>ick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6929	7038	
==>ns I should defer events until I get to the
end of the line. I could probably do that, but it could get ugly.s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6929	7038	
==>ns I should defer events until I get to the
end of the line. I could probably do that, but it could get ugly.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1729	1890	
==>? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1717	1878	
==>? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1882	2061	
==>oded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1882	2061	
==>oded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9487	9598	
==>e

 multi Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3652	3757	
==>:WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14217	14354	
==>} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14496	14633	
==>} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::constant( "p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5367	5466	
==>fs to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metacla <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	221	358	
==>, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	221	358	
==>, density => $density );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11418	11566	
==>bel
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35698	35802	
==>l make to be look-aheads.  To
make an object, we need to access C<< $self->{rx} >>.

    my $consume = po <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1749	1845	
==>%$1/g;
}

conv_reference {
    s/\$(${re_symbol})->(\[.+?])/\$$1$2/g;
    s/\$(${re_symbol})->(\{ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	30	111	
==>kefile/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/V <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10571	10671	
==>GI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10571	10671	
==>GI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1908	2008	
==>$two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1908	2008	
==>$two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4997	5102	
==>return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4997	5102	
==>return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4603	4701	
==>evelopment version.  The API is still in flux.

The set of implemented features depends on the C<ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4853	4951	
==>evelopment version.  The API is still in flux.

The set of implemented features depends on the C<ra <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4994	5114	
==>t ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4994	5114	
==>t ($self: $x is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3385	3491	
==>glock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user dirs



lib/f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3266	3367	
==>glock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user dirs

lib/f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29228	29355	
==>y $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29507	29634	
==>y $capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	735	847	
==>param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	735	847	
==>param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	523	629	
==>ookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, w <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	523	629	
==>ookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11974	12090	
==>nyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4617	4733	
==>nyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10958	11056	
==>ment object is a simple container which stores data to be used or
displayed by your program.  It is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10958	11056	
==>ment object is a simple container which stores data to be used or
displayed by your program.  It is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4692	4805	
==>ong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4704	4817	
==>ong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1950	2054	
==>ge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( % <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2830	2934	
==>ge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4434	4584	
==>\{ 
        $<list> := ( [ <?p6ws>? <@Grammar::Perl6::statements> ]* ) <?p6ws>? 
    \}
        { return { block => $<list> ,} }
RULE
*{'macro_decl'} = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14337	14444	
==>SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2812	3026	
==>nstant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2823	3037	
==>nstant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            rule <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1347	1452	
==>C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1347	1452	
==>C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Compile s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5061	5256	
==>of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5061	5256	
==>of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug String of a Locale::Key <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20290	20390	
==>local int cutnum, padarray, isarray, subpats

    cutnum = pad["cutnum"]
    ($S0, $I0) = self.serno( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	235	323	
==>{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}";
say "{$wer}s Lieblingsdrink ist %lieblin <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	99	198	
==>red = rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.h <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16423	16513	
==>roup_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0,M,Ex),
  rm(Re,F0,F1,B0,B1,Ex,E <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7451	7557	
==>l::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7451	7557	
==>l::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4961	5142	
==>stem( qq[rm -rf $src] )                           and die $?;

        }

        ### clean up the temp dir 
        system( qq[rm -rf $my_tmp_dir] )                        and die $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	155	251	
==>Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:confi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9742	9856	
==>ame = "details";
	expander.innerHTML = "&raquo;";
      }
    }
  //]]></script>
</head>

<body>
  <h1>Pugs Smoke R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27167	27257	
==>0x8000000

 #define RE_USE_INTUIT		(RE_USE_INTUIT_NOML|RE_USE_INTUIT_ML)
 #define REINT_AUT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27870	27972	
==>s object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27870	27972	
==>s object.

=item C<get_msg_var( $var_name! )>

This method returns the Message Variable value (a string <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2838	2944	
==>ss %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2838	2944	
==>ss %standard_case{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5915	6028	
==>ecomp = savesvpv(pat);
    
    r->nparens = nparens;
    
    Renew(r->startp, nparens+1, I32);
    Renew(r->endp <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23757	23846	
==>_undef(0,Replace,[],[Replace]) :- !.
replace_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	552	657	
==>el-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	552	657	
==>el-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::M <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2578	2697	
==>estplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2578	2697	
==>estplan;

    push @!results, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3286	3386	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The obje <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3344	3444	
==>esc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! "The obje <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4795	4899	
==>, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsk <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4795	4899	
==>, from 1 to 4.

- `day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsk <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6579	6684	
==>Set of Str $attrs!) returns Relation::Example {

    if ($attrs.size() == 0) {
        return Relation::Ex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18082	18179	
==>hich gets attached to the op tree.  The struct is used
variously to return the compiled regexp, to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1254	1361	
==>ate, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1242	1349	
==>ate, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15663	15786	
==>e_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2060	2183	
==>e_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10095	10223	
==>ub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10374	10502	
==>ub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5864	5967	
==>face::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5864	5967	
==>face::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Cr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18823	18924	
==>already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<username> an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18823	18924	
==>already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<username> an <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7192	7297	
==>r = $Role->new(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { 'rBar::bar' } }
);
ok($rBar->doe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4275	4417	
==>=> 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and',
        assoc => <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16958	17070	
==>r hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Pe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16958	17070	
==>r hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4219	4362	
==>\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4231	4374	
==>\d+)     # Match and capture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	195	302	
==>html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your brows <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	195	302	
==>html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your brows <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9615	9748	
==>self->{rx}->object($self->type);
      $br->omit(1);
      for (reverse @{ $self->data }) {
        unshift @$ws, $br, sub { -1 }, @$_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	814	946	
==>s->SUPER::new;
    ### XXX add allow handlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	133	231	
==>ne';

require 'p6rule.pl';
require 'emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTA <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26946	27041	
==>r", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → (α × β)", " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9264	9426	
==>[ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9264	9426	
==>[ 'routine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5070	5214	
==>ail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5534	5678	
==>ail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7189	7324	
==>if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculat <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7189	7324	
==>if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	710	825	
==>e class for:

    JIB::Package::Source
    JIB::Package::Binary
    JIB::Package::Installed

=head1 ACCESSORS 

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	567	696	
==>s, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ... <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	567	696	
==>s, this will be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ... <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7129	7230	
==>ss Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7129	7230	
==>ss Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6182	6282	
==>e_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'x <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6182	6282	
==>e_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7905	7997	
==>alize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7905	7997	
==>alize $event<from_nick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10310	10429	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10589	10708	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2494	2590	
==>t of this class represents a client's request.  It also contains extra
information passed on by t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2494	2590	
==>t of this class represents a client's request.  It also contains extra
information passed on by t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3581	3680	
==>_concatenation_more(W, Z), !.
p6_concatenation_more(W, Z) --> p6_quantified(X), p6_concatenation_mor <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3563	3661	
==>IL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilM <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3563	3661	
==>IL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilM <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23548	23643	
==>here are other differences.  Where other solutions take variables, they
seem to be positional (l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23548	23643	
==>here are other differences.  Where other solutions take variables, they
seem to be positional (l <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2460	2554	
==>l> | <interpolated_literal>
  | <closure> | <code_rule> | <code_assertion>
  | <metasyntactic_v <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11458	11585	
==>def },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { ${$_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	469	576	
==>$params->{name},
		type => $params->{type},
		fixity => $params->{fixity} || "listy",
    );
}

sub type { [ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8035	8143	
==>nd is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'func <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8035	8143	
==>nd is correct).
    my Rosetta::Model::Node $fnd_tb_person_exists = $irl_doc.build_node_tree(
        [ 'func <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18804	18914	
==>he desired nick is already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18804	18914	
==>he desired nick is already
used.

This module will C</WHO> itself after login, so it can give you accurate
C<us <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11190	11344	
==>.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11190	11344	
==>.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10027	10126	
==>dded to Pugs, new test functions will be defined to facilitate the
testing of those features. For mo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10085	10184	
==>dded to Pugs, new test functions will be defined to facilitate the
testing of those features. For mo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12118	12251	
==>=cut

sub remove_available {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { req <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38318	38421	
==>in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38318	38421	
==>in its positional parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_va <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15415	15515	
==>cted, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15473	15573	
==>cted, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1238	1487	
==>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1238	1487	
==>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13058	13167	
==>)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13058	13167	
==>)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_nick; $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	18000	18109	
==>'./re_tests_match.pl';
  Pkg_re_tests::test(sub{my($mods,$re)=@_;
    $re = "(?$mods)(?:$re)" if $mods;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2651	2799	
==>gex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2844	2992	
==>gex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1800	1932	
==>─┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)),
        (map { $_ => '@' } qw(flat_array array i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1530	1624	
==>ig => LIBS => "-lgc"; # http://www.hpl.hp.com/personal/Hans_Boehm/gc/
		Inline->bind(C => $c_co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11039	11141	
==>cause it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11039	11141	
==>cause it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_univers <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	592	686	
==>oc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	592	686	
==>oc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	108	205	
==>PS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	108	205	
==>PS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2927	3085	
==>ok
            my $preinst = $meta_dir . '/' . $Preinst;
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                an <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	521	628	
==>en     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	521	628	
==>en     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10834	10946	
==>FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.buil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10834	10946	
==>FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.buil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7514	7645	
==>ted";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7572	7703	
==>ted";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3899	4069	
==>ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    nex <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4363	4533	
==>ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    nex <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4373	4470	
==>%]> <-[\>]>+ \> | <metasyntactic_sub> }
rule metasyntactic_sub      { \<(!?)<[&]> <ident> [ \( <ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3230	3342	
==>ame> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3230	3342	
==>ame> =
        split " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3768	3933	
==>ent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3768	3933	
==>ent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!at <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6382	6496	
==>'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6394	6508	
==>'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	9578	9714	
==>dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($d <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1009	1166	
==>rch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        site <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1009	1166	
==>rch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        site <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1953	2096	
==>le_quoted} . '"' 
        if exists $n->{double_quoted};
            
    return '\'' . $n->{single_quoted} . '\'' 
        if exists $n->{s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16640	16854	
==>_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$c')->is_not_nil;
                    })
                );
                return opaque->new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	912	1068	
==>EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	912	1068	
==>EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10840	10982	
==>f $rw or ($r and $w);
        $mode //= "r";

        # XXX failures
        my $fh = Pugs::Internals::openFile($filename, $mode);

        # X <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	76	172	
==>vars qw[$INSTALLATION_DIR $REPOSITORY_ROOT];

my $config  = JIB::Config->new;
### new fakeroot di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	557	663	
==>he rule wrapper.

- It needs a 'direction' flag, in order to implement <after>.

- Captures need an int <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1544	1645	
==>izeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	return target;
}

P <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2253	2397	
==>value(
				Blondie::Backend::Perl::Prim->new(
					arity => 3,
					name => '&cast',
					body => \&do_cast,
					type => [ "Type" => "Type" => $ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1182	1287	
==>n, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** Building dependencies.  Please wait.. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13698	13798	
==>ndard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation * <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17175	17275	
==>ndard case of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation * <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11950	12050	
==>ONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11950	12050	
==>ONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1097	1235	
==>x:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal',
        other => 'pr <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2911	3017	
==>efinitions/;

    print $template;
}

sub __test__ {
    $Config{privlib} = 'C:\usr\lib';
    $Config{archl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23001	23109	
==>ze(pad)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2025	2128	
==>elf = shift;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::TypeSafe::Ann <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16736	16847	
==>s place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16736	16847	
==>s place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12352	12455	
==>mber of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12352	12455	
==>mber of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	0	98	
==>use Cipher;
class Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keyst <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	0	98	
==>use Cipher;
class Cipher::Stream is Cipher;

# Things they need to implement.
method generate_keyst <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7567	7702	
==>t escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7567	7702	
==>t escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got templa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	550	709	
==>efined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	550	709	
==>efined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3770	3909	
==>y};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(% <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3770	3909	
==>y};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(% <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5129	5218	
==>ructors.  At least it's isolated here. :(
sub new_box {get_meta($_[0])->new('$.unboxed'=>$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2669	2784	
==>odule);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($ba <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2669	2784	
==>odule);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($ba <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19914	20017	
==>d the password.  In scalar context it will
return I<"uname:password"> as a single string value.

When us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19914	20017	
==>d the password.  In scalar context it will
return I<"uname:password"> as a single string value.

When us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4848	4971	
==>s>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenth <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4848	4971	
==>s>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handler("366", -> $event {
      # (Perl 6)++ for new parenth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11004	11126	
==>-valued field will be returned as separate values in list
context and will be concatenated with ", " as separator in scalar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11004	11126	
==>-valued field will be returned as separate values in list
context and will be concatenated with ", " as separator in scalar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12566	12665	
==>ader( $field, ... )

This function removes the header fields with the specified names.

The header f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12566	12665	
==>ader( $field, ... )

This function removes the header fields with the specified names.

The header f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6116	6203	
==>ft;

	$self->find_immediate_dyn_sym($node->struct_equiv->val->struct_equiv)->val;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10646	10750	
==>omplement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10646	10750	
==>omplement set is specified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub { <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12438	12542	
==>me=todo> todo"><tmpl_var name=todo></span>,</td>
	      <td class="num tests_skipped"><span title="<tmpl_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	25	127	
==>iler;
use Pugs::Emitter::Rule::Perl5;
use base qw(Pugs::Compiler::Rule);
use Exporter 'import';
use Dat <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	622	762	
==>if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            m <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	622	762	
==>if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            m <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4450	4568	
==>onymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File::Spec->curdir unless @ARGV;
    push <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1702	1799	
==>$rate, Int $burst_size)

The constructor takes as parameters at least C<rate of information> in
it <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1702	1799	
==>$rate, Int $burst_size)

The constructor takes as parameters at least C<rate of information> in
it <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1501	1754	
==>eturn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1501	1754	
==>eturn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3286	3546	
==>e {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3286	3546	
==>e {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16401	16498	
==>\n/>. In
either case, it returns the number of chars removed.

Note: Most users should consider se <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1725	1867	
==>d')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_comm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1618	1715	
==>d')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_comm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7615	7762	
==>epends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe to d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	916	1063	
==>epends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe to d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8359	8507	
==>ct(anyof_class => digit => $neg, $how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5189	5298	
==>then $range is an absolute value
# otherwise $range is a fractional error.
# Here $range must be numeric, >= 0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4218	4312	
==>ler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4218	4312	
==>ler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }] <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3560	3710	
==>ren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3560	3710	
==>ren = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15100	15210	
==>nel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15100	15210	
==>nel { enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1899	2022	
==>al $/; <$tpl> };
        my $tpl_config = $YAML->load($stream);
        $conf = { %$tpl_config, %$conf };
    }

    $class- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2395	2530	
==>other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '<',
        assoc => 'left',
        precedence => 'equal',
        o <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2437	2535	
==>E__;

__END__

=pod

=head1 NAME

Blondie::TestPrograms - 

=head1 SYNOPSIS

	use Blondie::TestProg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24306	24421	
==>ext} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20727	20842	
==>ext} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1356	1494	
==>s defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1356	1494	
==>s defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10637	10734	
==>_quote_args(\$runperl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runper <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	473	584	
==>-------------------------------------

{
    use Hash::Util 'lock_keys';

    # Every instance should have a uni <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	32	135	
==>($_) : ()} sort `find mozilla_js_tests`;
print "plan ".@jsfiles."\n";
foreach $jsfile (@jsfiles) {
    p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10363	10500	
==>_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10357	10494	
==>_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9650	9772	
==>LET($X::pos){ $f->($fagain) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$c,$noop);
      };
      goto &$f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	137	238	
==>o specification grammar.
#   * RegularExpressionLiteral has been added to Literal.
#     Since we dont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6327	6462	
==>my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6315	6450	
==>my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15761	15883	
==>text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} }){
          # rever <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	882	975	
==>erldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	882	975	
==>erldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	407	542	
==>his subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	407	542	
==>his subrule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	127	248	
==>$str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	127	248	
==>$str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    su <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6120	6214	
==>his document successfully. However, more complex POD 
documents may not do as well. Error repor <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6120	6214	
==>his document successfully. However, more complex POD 
documents may not do as well. Error repor <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4705	4818	
==>);
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4705	4818	
==>);
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6499	6622	
==>self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how;
    }

    return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5065	5147	
==>ile (Scalar::Util::blessed($type) and !$type->isa("Blondie::TypeSafe::Type::Placeho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4763	4890	
==>int "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4763	4890	
==>int "Matched concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{st <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10627	10724	
==>over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_strin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10627	10724	
==>over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_strin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4232	4358	
==>block";    
    my $list = list->new();
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            $l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3002	3119	
==>if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_sin <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3002	3119	
==>if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_sin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29270	29367	
==>re is no 'ato' handle,
basically).  In order for the 'atom' handle to be executed, you must
explic <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	295	408	
==>intext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	295	408	
==>intext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    metho <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10017	10211	
==>($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2329	2484	
==>($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else {
        die "Illegal token: $deps\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4869	4987	
==>$fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4869	4987	
==>$fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1507	1648	
==>= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1507	1648	
==>= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined % <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1535	1656	
==>in_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1535	1656	
==>in_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35352	35449	
==>)>

This method returns all Set Names elements in this object as an array ref.

=item C<get_member <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35352	35449	
==>)>

This method returns all Set Names elements in this object as an array ref.

=item C<get_member <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11274	11452	
==>ge?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11274	11452	
==>ge?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	26	119	
==>Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functiona <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	26	119	
==>Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functiona <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5236	5334	
==>ata> method returns a hash reference representing the configuration data

=item write

The C<write> <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5236	5334	
==>ata> method returns a hash reference representing the configuration data

=item write

The C<write> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1854	1965	
==>Pugs::Compiler::Rule->compile(q(<'regex'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1980	2083	
==>= File::Spec->catfile( $start, $file );
            next if $Config{exclude_re} && $currfile =~ $Config{ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5467	5568	
==>ason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5525	5626	
==>ason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7220	7334	
==>= &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7220	7334	
==>= &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating inters <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9577	9689	
==>self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9577	9689	
==>self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	858	951	
==>x compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying opt <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	858	951	
==>x compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying opt <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2894	2994	
==>}
rule USP  { <<Zs>-<TAB>-<VT>-<FF>-<SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x000A }
rule <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	293	390	
==>[0]->equal_to($_[1]) == bit->new(0)  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1411	1510	
==>$test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1469	1568	
==>$test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $exp <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	278	373	
==>oc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, D <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	278	373	
==>oc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, D <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10753	10887	
==>os1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10747	10881	
==>os1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	551	665	
==>tor-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	551	665	
==>tor-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	991	1189	
==>p(
			Val(
				Thunk(
					Seq(
						Param('&f'),
						App(
							Sym('&f'),
							Val(2),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$x'),
						App(
							Sym('&in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12056	12160	
==>ad2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

sub remove_available {
    my $self = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6392	6501	
==>ub_local };

step
  descr  => "Fetching kernel from \"$kernel_uri\"",
  help   => "Remove \"$kernel_local\" if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	624	721	
==>owever, it is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6411	6525	
==>union (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9888	10002	
==>union (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " n <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4250	4354	
==>1, "11th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckWc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10401	10492	
==>my $code_params = '[map{Perl6::Param->new(@$_)}('.$code_param_info.')]';
    my $namestr = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8091	8200	
==>till true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal data, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7820	7924	
==>till true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal data, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	867	972	
==>y-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	867	972	
==>y-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3277	3396	
==>$rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3265	3384	
==>$rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1738	1841	
==>o;
    my $str = substr($X::str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$t <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	130	245	
==>lau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag @obst[0] und @obst[1]\n";
print "{ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1207	1321	
==>rl_version == 5 || $self->is_extension_build)
    ? 'blib'
    : $perl_version == 6
      ? 'blib6'
      : die "Pe <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	148	252	
==>. This is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23554	23658	
==>->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19975	20079	
==>->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6595	6701	
==>askell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\d+)/ and $1 >= 6 and $2 >= 4);

    if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2002	2111	
==>}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2002	2111	
==>}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_h <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	200	309	
==>lBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_N <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	200	309	
==>lBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_N <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	917	1047	
==>formats";

    my $year = $0;
    if ( $year.defined and $year.chars == 2 ) {
        $year = 2000 + $year;  # XXX - fixme ;)
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35036	35139	
==>X>)

=head2 branch

Family: branch

Types: branch (C<|>)

Data: array reference of array references, eac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15021	15121	
==>ent this as a mutually recursive multi-
sub which will be able to handle structures of arbitrary dept <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15079	15179	
==>ent this as a mutually recursive multi-
sub which will be able to handle structures of arbitrary dept <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5128	5253	
==>-- linking other .a with us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basenam <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9470	9630	
==>ig{_exe}$}
            ) {

                # Smells like a Windows executable called from cygwin-land.
                # Keep it.

                $ghc_exe = $g <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1500	1608	
==>en given explicit
    # tests from makemaker_args.

    $args->{test} ||= {TESTS => $self->tests};

    if ($ <==
2	/Users/nnunley/pugs/util/grokprims.pl	877	1028	
==>my $op (sort 
         {
           $a->{name} cmp $b->{name} or
             $a->{assoc} cmp $b->{assoc} or
               @{$a->{args}} <=> @{$b->{arg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16253	16349	
==>mple but effective mechanism for
applications and packages that empowers single binaries to suppo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16253	16349	
==>mple but effective mechanism for
applications and packages that empowers single binaries to suppo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3815	3915	
==>arrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is curren <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3815	3915	
==>arrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is curren <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3521	3650	
==>recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3521	3650	
==>recurrence, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1189	1294	
==>rgs) {
    die 'Please override &dispatch in your subclass of POE::Session.';
  }
}

=head1 NAME

POE - Pe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5322	5414	
==>new_box('Bool',(shift()?1:undef),@_) if $cls eq 'Bool';
    return new_box('Bit',(shift()?1:0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22556	22648	
==>setta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interfac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22556	22648	
==>setta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interfac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	598	741	
==>( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	574	711	
==>( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3988	4081	
==>ead1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-num <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3988	4081	
==>ead1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the same-num <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	598	747	
==>s ), # the MRO of all the superclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    w <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5520	5621	
==>)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1224	1476	
==>des from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1224	1476	
==>des from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7386	7501	
==>1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say " <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7386	7501	
==>1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	723	822	
==>er($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	723	822	
==>er($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21756	21886	
==>iled  ";
    my $list_str = "List of Failed";

    # Figure out our longest name string for formatting purposes.
    my $max_namele <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	40	136	
==>RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plain <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	40	136	
==>RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher($plain <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2313	2421	
==>ed well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a nu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2313	2421	
==>ed well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a nu <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1465	1579	
==>-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTH <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1465	1579	
==>-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTH <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11039	11139	
==>/Filter some source code into something else. This is almost
# always overridden in a subclass.
sub p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11039	11139	
==>/Filter some source code into something else. This is almost
# always overridden in a subclass.
sub p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24963	25062	
==>ynamically with other components is making a
combined work based on Rosetta.  Thus, the terms and co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24963	25062	
==>ynamically with other components is making a
combined work based on Rosetta.  Thus, the terms and co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3113	3265	
==>variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2991	3137	
==>variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37313	37411	
==>ethod has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41862	41960	
==>ethod has an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1081	1180	
==>e capture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets som <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1081	1180	
==>e capture name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets som <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19619	19709	
==>..)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19619	19709	
==>..)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16381	16478	
==>d).  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16381	16478	
==>d).  If the optional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Nod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20091	20201	
==>he main program binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20091	20201	
==>he main program binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
prog <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12773	12893	
==>};
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12773	12893	
==>};
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4475	4575	
==>rence, the match object returns the I<result>
object; this is normally the entire match string, but m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4475	4575	
==>rence, the match object returns the I<result>
object; this is normally the entire match string, but m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16223	16321	
==>ehind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0,_,E0,_).
rm(lookbehind_not(Re),F0,F0,B0,B0,E0, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	97	190	
==>e strict;
package PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name_rep_type_pairs_list { $li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2322	2459	
==>> 'left',
        precedence => 'looser',
        other => '*',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '* <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3540	3660	
==>scoped
overriding.  You currently can't do lexical.  It's not clear how to do
it.  Possible tools include get_sv, eval_pv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2725	2944	
==>) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2725	2944	
==>) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Sp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4634	4748	
==>)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4634	4748	
==>)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2436	2531	
==>) == 0 or die "Could not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smok <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13277	13385	
==>entifier>
    | <StringLiteral>
    | <NumericLiteral>
}
rule MemberExpression :words {  # see 11.2
      <Pr <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	561	686	
==>sg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	561	686	
==>sg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1013	1119	
==>ILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1013	1119	
==>ILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21434	21538	
==>loat_min_offset substrs->data[1].min_offset
 #define float_max_offset substrs->data[1].max_offset
 #defin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17408	17528	
==>haracter value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17408	17528	
==>haracter value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        att <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10878	11018	
==>ool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10872	11012	
==>ool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $pro <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1666	1801	
==>b/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Fin <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1666	1801	
==>b/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Fin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28658	28762	
==>ake modules having a specific simple API that will serve their role.

For example, inside the text Templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28658	28762	
==>ake modules having a specific simple API that will serve their role.

For example, inside the text Templa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2754	2882	
==>]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3001	3129	
==>]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pug <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	158	267	
==>all::Base;
@ISA = qw(Module::Install::Base);

$VERSION = '0.04';

use strict 'vars';
use vars qw($VERSION);

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1517	1616	
==>well as anything declared within

that scope.



the Sig contains a simply structure of the signatur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1455	1551	
==>well as anything declared within
that scope.

the Sig contains a simply structure of the signatur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20932	21029	
==>_object__>.

=item Cleaner Grammar Flow

Now the only places 'atom' gets pushed to the queue are a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13133	13230	
==>at the "Locale::KeyedText" package serves only as the name-sake
representative for this whole file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13133	13230	
==>at the "Locale::KeyedText" package serves only as the name-sake
representative for this whole file <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	828	948	
==>rl-mode ;))

our $iso8601_duration_re is export = rx:perl5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	280	379	
==>$self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self. <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	280	379	
==>$self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7567	7682	
==>n $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7567	7682	
==>n $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6749	6879	
==>urn value is the HTTP response code.

=item mirror($url, $file)

Get and store a document identified by a URL, using
I<If-modified- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6749	6879	
==>urn value is the HTTP response code.

=item mirror($url, $file)

Get and store a document identified by a URL, using
I<If-modified- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7799	7920	
==>urn $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7799	7920	
==>urn $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which compi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1708	1807	
==>er::Arcfour also includes several attributes which might be interesting to 
people interested in the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1708	1807	
==>er::Arcfour also includes several attributes which might be interesting to 
people interested in the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4188	4296	
==>self->{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16189	16279	
==>(rm(Re,F0,_,B0,_,E0,_)).

rm(lookbehind(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,B0,_,F0,_,E0 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2034	2141	
==>y () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $y <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2034	2141	
==>y () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $y <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4885	5037	
==>ss ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4885	5037	
==>ss ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20169	20292	
==>~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->err <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16590	16713	
==>~$f_off;
      return $S->object($type => $r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->err <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9672	9769	
==>t, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `diff <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9672	9769	
==>t, a Recurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `diff <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4962	5097	
==>r



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4791	4920	
==>r

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11951	12058	
==>ug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we can <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11951	12058	
==>ug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was seen, so we can <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6399	6526	
==>thor =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->author($author); 
    }
    else {
        warn "Cannot de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2661	2787	
==>if $cc;
    return $S->object(bound => bound => '\b');
  });

  # cany (any byte)
  $self->add_handler('\C' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1137	1246	
==>( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->coroutine() )
  {
    #execute coroutine <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22703	22851	
==>dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23205	23353	
==>dir => $dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7482	7589	
==>h_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1307	1414	
==>h_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Gra <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16009	16106	
==>{ new_env($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types::unify(
		new_env($$)-> <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9934	10061	
==>m",%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Si <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36265	36364	
==>>>)

Data: array reference of any number of objects

Dir: -1 if look-behind, 1 if look-ahead

Ender: <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1401	1545	
==>$config); 

    add_path(installarchlib     => $config); 
    add_path(installprivlib     => $config); 
    add_path(installsitearch    => $confi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3239	3349	
==>ion|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3297	3407	
==>ion|Pair $ref is rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18791	18891	
==>oducts) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18791	18891	
==>oducts) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Roset <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24223	24320	
==>me binding and
will support multiple languages or locales simultaneously at run time.

=head1 INTE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24223	24320	
==>me binding and
will support multiple languages or locales simultaneously at run time.

=head1 INTE <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2356	2468	
==>}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$arg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4616	4728	
==>}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$arg <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26250	26335	
==>===================================================================

use strict;
use w <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1551	1657	
==>ed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1551	1657	
==>ed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10966	11069	
==>er Conversions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? < <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9838	9944	
==>self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishst <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9838	9944	
==>self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishst <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2475	2570	
==>o arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering step <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2475	2570	
==>o arguments to finish the ciphering and clear the cipher's state.  
Remember that ciphering step <==
2	/Users/nnunley/pugs/util/importgraph.pl	341	457	
==>";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "overlap=s" => \$overlap,
  "ignore=s" => \@ignore,
) or die " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	377	483	
==>rm -rf], $config->root, $config->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might ne <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	156	258	
==>arenthesized
group.  This is approximately the Match object that userland folks will
see, but it has so <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	156	258	
==>arenthesized
group.  This is approximately the Match object that userland folks will
see, but it has so <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2005	2116	
==>ich will
    # blow up in our faces when tests are inserted.
    # It is better then checking for the names of t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1598	1695	
==>uce($node);
			return $self->constructor($reduced) . $self->layout($reduced->str);
		}
	}

	if (re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13541	13669	
==>e(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13541	13669	
==>e(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_perso <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4495	4608	
==>ith previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4507	4620	
==>ith previous versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3811	3917	
==>ame> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3811	3917	
==>ame> =
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1829	1927	
==>ion-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:

1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14795	14893	
==>ion-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:

1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6843	7085	
==>omain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6843	7085	
==>omain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            } <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2123	2262	
==>e, $post) = ($`, $');
       my ($n, $c) = ($1, $2);
       my (@s, @e) = (@-, @+);

#       print Dumper \@s, \@e;
#       foreach my $i (0 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5580	5694	
==>)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5580	5694	
==>)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple eve <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2640	2741	
==>* $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2640	2741	
==>* $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy := _is_leap_year($.year <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11316	11435	
==>->reduce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = "reduce_" . lc <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20365	20475	
==>tring --> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# localtime 

# time <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	705	808	
==>last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	705	808	
==>last.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17328	17448	
==>re Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The it <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17328	17448	
==>re Infinite.

- `iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The it <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6114	6206	
==>hook,%mods0,$pat0,$qo,$qc) is builtin is safe {
    state(%modifiers_known, %modifiers_suppor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15834	15980	
==>n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n->{exp3} ) ;
    }

    return _not_implemented( $n, "te <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7105	7212	
==>if(handler == NULL && 0) {
    SV* sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0);
    if(sv != NULL && <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2695	2807	
==>x], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2695	2807	
==>x], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	317	452	
==>rn unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	317	452	
==>rn unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10376	10487	
==>rent ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10376	10487	
==>rent ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9745	9891	
==>md> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9745	9891	
==>md> not implemented";
            return;
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1669	1781	
==>@root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1669	1781	
==>@root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13420	13538	
==>rvername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout second <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13420	13538	
==>rvername");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout second <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	444	565	
==>ses,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	444	565	
==>ses,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1547	1644	
==>odules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1547	1644	
==>odules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12905	13012	
==>", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27044	27151	
==>", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15709	15804	
==>m $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make a req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15709	15804	
==>m $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make a req <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1882	1986	
==>return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1882	1986	
==>return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30033	30130	
==>$transformer!) returns Relation>

This method is a short-hand or alternative for the functionality <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34585	34682	
==>$transformer!) returns Relation>

This method is a short-hand or alternative for the functionality <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5766	6027	
==>ield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5766	6027	
==>ield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { 
                        my $x = $ret.pop // yield;
                        yield $x if &$code($x);
                        re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	688	838	
==>e"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	688	838	
==>e"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä', <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5857	5978	
==>prelen <0){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = savesvpv(pat);
    
    r->nparens = nparens;
    
    R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24365	24473	
==>ata}[0]->visual, $self->{data}[1]->visual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a number
  package <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	760	858	
==>nimport {
    regexp_hook_off();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$callback)=@_;
  d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15433	15561	
==>kage Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15433	15561	
==>kage Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5372	5472	
==>if ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5372	5472	
==>if ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19964	20100	
==>c) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16385	16521	
==>c) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10681	10795	
==>.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10681	10795	
==>.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5508	5611	
==>ort {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platfor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5508	5611	
==>ort {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platfor <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	276	393	
==>d, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	276	393	
==>d, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	0	101	
==>package Pugs::Runtime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	0	101	
==>package Pugs::Runtime::RuleInline;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7288	7400	
==>edocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7288	7400	
==>edocs etc
# Parse the code into packages, blocks and subs
# Parse the code by `use/no *::Compiler`
# Build an AST <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6479	6680	
==>ent_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.curre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6479	6680	
==>ent_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.curre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3427	3531	
==>m C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This prog <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3427	3531	
==>m C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This prog <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	9	100	
==>module Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	9	100	
==>module Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6191	6298	
==>5;

    # create a local variable '$out' inside the parser
    # $p =~ s/my\(\$self\)=/my \$out; my\(\$self\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1267	1384	
==>?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    ### if it has a d <==
2	/Users/nnunley/pugs/util/claim_drift.pl	184	281	
==>o the current one if you want to regenerate
# files. We should probably make this arrangement less <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6205	6331	
==>urn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6217	6343	
==>urn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11105	11223	
==>ays overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragment <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11105	11223	
==>ays overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragment <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4299	4427	
==>s_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4299	4427	
==>s_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8156	8266	
==>pdate
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8156	8266	
==>pdate
    # all %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<fr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8280	8377	
==>map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8280	8377	
==>map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1459	1568	
==>ss Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1459	1568	
==>ss Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fields -> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11935	12042	
==>n.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11935	12042	
==>n.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6937	7100	
==>->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shift if @_;
      $self->{neg};
    }
  }

  sub visual {
    my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14235	14340	
==>t would not make sense to iterate through a continuous span, because the "separation" 
between values woul <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14235	14340	
==>t would not make sense to iterate through a continuous span, because the "separation" 
between values woul <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9709	9821	
==>n => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9709	9821	
==>n => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19470	19584	
==>l {
    my($p6,$pkg)=@_;
    $pkg = (caller())[0] if !defined $pkg;
    $pkg = 'main' if $pkg !~ /\A$ROOT/;
    $pk <==
2	/Users/nnunley/pugs/util/version_h.pl	392	496	
==>rd expansion (like $Rev$), because
# that is only updated when the file in which the keyword appears
# is <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1543	1644	
==>1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1543	1644	
==>1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2857	2962	
==>se v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2857	2962	
==>se v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $<Retur <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5054	5151	
==>ad1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base6 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5054	5151	
==>ad1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5120	5328	
==>$1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4962	5160	
==>$1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5645	5816	
==>$array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5645	5816	
==>$array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4468	4575	
==>y $self = shift;
	my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2327	2448	
==>tions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2327	2448	
==>tions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3519	3622	
==>- `new()`

Without any parameters, this returns an object representing the
current /local/ date.

- `new <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3519	3622	
==>- `new()`

Without any parameters, this returns an object representing the
current /local/ date.

- `new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14197	14296	
==>rn values of the callback routine are ignored.  The loop can
be broken by raising an exception (C<di <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14197	14296	
==>rn values of the callback routine are ignored.  The loop can
be broken by raising an exception (C<di <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8263	8378	
==>OPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_setup(r,pat,nparens,exec_call <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20184	20290	
==>$param;
	while($argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyargs .= "my \$$2 = \\$1$2;";
	}
	my $argl2 = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2293	2529	
==>1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6672	6762	
==>)   --> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p5 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1056	1149	
==>bject is responsible for providing the compiler with replacement
data for stubs and other thin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19469	19568	
==>e

This header must be included in a C<407 Proxy Authentication Required>
response.

=item $h.author <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19469	19568	
==>e

This header must be included in a C<407 Proxy Authentication Required>
response.

=item $h.author <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	798	914	
==>ch as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %pa <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	798	914	
==>ch as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2761	2909	
==>) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2656	2796	
==>) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2998	3117	
==>e.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($gh <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2998	3117	
==>e.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($gh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	902	1008	
==>rmat" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($tree,$name);
}
1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	902	1008	
==>rmat" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	return $dumper->[1]($tree,$name);
}
1 <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10476	10619	
==>self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless defined $switch;
        $switch = <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	651	766	
==>s }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	651	766	
==>s }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7411	7522	
==>ral'.



Higher order operators take a list of match operators, and return a new 

match operator.



A ruleop() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7160	7266	
==>ral'.

Higher order operators take a list of match operators, and return a new 
match operator.

A ruleop() <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9947	10051	
==>nt if there's any whitespace in it, or if
    # we're VMS, since VMS requires all parms quoted.  Also, do <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2308	2403	
==>ay scalars containing control characters and Unicode.
# Trying to avoid setting $_, or relying o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	453	556	
==>le;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	453	556	
==>le;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.end;

    h <==
2	/Users/nnunley/pugs/util/addauthors.pl	566	715	
==>thors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for some hurestics: Try matching _ a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2427	2567	
==>=> {
        'number'      => sub { _('$.number') },
        'passed'      => sub { _('$.passed') },        
        'diagnostic'  => sub { _ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24043	24163	
==>rn $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_hand <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20464	20584	
==>rn $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_hand <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10567	10746	
==>t;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10567	10746	
==>t;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'L <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4165	4285	
==>elation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7642	7762	
==>elation {

    if ($attrs.size() == 0) {
        return Relation.new( heading => set(), body => set( mapping() ) );
    } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9545	9675	
==>ted     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9545	9675	
==>ted     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	293	402	
==>f!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	293	402	
==>f!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RE <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	106	205	
==>*infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<` <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	106	205	
==>*infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<` <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	644	747	
==>$positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	644	747	
==>$positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15914	16085	
==>n>
    | <RelationalExpressionNoIn> <'<'> <ShiftExpression>
    | <RelationalExpressionNoIn> <'>'> <ShiftExpression>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpressio <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6301	6478	
==>callback);

    /* Try to scare off the rest of perl */
    r->minlen = 0;
    r->reganch = 0;
    /* Make sure environment is set up (also helps scare off perl) */
    r->reganc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4127	4274	
==>{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call: ",Dumper $n;

        if ( $n->{sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14470	14605	
==>x->awarn($rx->RPe_ZQUANT);
      }

      # unbounded quantifier on a zero-width
      # assertion can match a null string a lot
      e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	443	549	
==>e { shift }

# conversion to other native types
sub to_num { num->new((shift)->fetch + 0)  }
sub to_str { s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1355	1495	
==>.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1355	1495	
==>.method // "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $p <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	360	459	
==>, :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tem <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	360	459	
==>, :w);
  $codefh.print($code);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tem <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14979	15086	
==>r $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14979	15086	
==>r $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27166	27307	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27445	27586	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2792	2941	
==>my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2700	2845	
==>my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $match <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14254	14351	
==>flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14312	14409	
==>flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14482	14581	
==>->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14482	14581	
==>->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	2152	2303	
==>xt/;
        
        
        $href->{location} = $archive;
        push @metalist, $href;
    }
    
    DumpFile( $Repoindex, @metalist );
    
    p <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	731	838	
==>lineno = 0;
	for =$fh -> $line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26735	26863	
==>Regexp::Parser::loaded to keep
track of which object classes have been loaded already.

=item $parser->init()

This method instal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24149	24248	
==>rsion of that
language.  By contrast, Locale::KeyedText does no compile time binding and
will suppor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24149	24248	
==>rsion of that
language.  By contrast, Locale::KeyedText does no compile time binding and
will suppor <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8787	8918	
==>lf = shift;

    return $ENV{HARNESS_PERL}           if defined $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30973	31067	
==>e new Relation::Example has as
many additional attributes as there are pairs in the argument C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3978	4108	
==>] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3978	4108	
==>] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1076	1233	
==>ace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown paramet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1216	1373	
==>ace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown paramet <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2286	2417	
==>'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2297	2428	
==>'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	796	914	
==>') . " but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5491	5596	
==>ck>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5491	5596	
==>ck>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined cha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29827	29930	
==>}
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29827	29930	
==>}
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data-stuffed ha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13874	14030	
==>ilable languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a match <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13874	14030	
==>ilable languages in order of preference
        );

        # This will print 'Enter 2 Numbers' in the first of the four
        # languages that has a match <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	598	699	
==>ifference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	598	699	
==>ifference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4463	4565	
==>ackage to all necessary index files.

=cut

sub add_package_to_index { #TODO: compression of index file <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6768	6874	
==>I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing mat <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6768	6874	
==>I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	16	145	
==>_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	16	145	
==>_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5401	5538	
==>.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5401	5538	
==>.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1822	1937	
==>ser anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print(" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	46	146	
==>ON = '0.61';

# Suspend handler for "redefined" warnings
BEGIN {
	my $w = $SIG{__WARN__};
	$SIG{__WAR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14308	14404	
==>method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14308	14404	
==>method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9519	9623	
==>e $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9519	9623	
==>e $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define and compi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1993	2104	
==>return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_equal($self: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1993	2104	
==>return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_equal($self: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52244	52330	
==>----------------------------------------------------------------
## finishing up the bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1112	1262	
==>_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1317	1467	
==>_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14189	14290	
==>$f = type($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2697	2799	
==>$self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3270	3372	
==>$self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9003	9121	
==>is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9003	9121	
==>is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2984	3082	
==>...............ok
  t/test-harness......ok
  t/waterloo..........dubious
          Test returned st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6274	6537	
==>ent );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6274	6537	
==>ent );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2608	2702	
==>epresentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2608	2702	
==>epresentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3518	3617	
==>e Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3518	3617	
==>e Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPS <==
2	/Users/nnunley/pugs/util/package-osx.pl	4114	4211	
==>3/Perl6::Bible::A20.3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7351	7449	
==>}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7351	7449	
==>}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set(@args));
}
multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2912	3039	
==>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3761	3888	
==>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9154	9259	
==>do(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9212	9317	
==>do(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1351	1489	
==>0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 

sub do {
    my ($self, $args) = @_;
    $ar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3233	3417	
==>elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) r <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3233	3417	
==>elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12688	12790	
==>e not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12688	12790	
==>e not case sensitive and '_'
can be used as a replacement for '-'.

The return value is the values of t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1927	2126	
==>//= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= su <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1927	2126	
==>//= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1618	1729	
==>> $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub compile_to_c {
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14275	14374	
==>ol :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14333	14432	
==>ol :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1394	1498	
==>alls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented by passing a C<Resu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1394	1498	
==>alls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented by passing a C<Resu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1527	1650	
==>t :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_lea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1527	1650	
==>t :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_lea <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7791	7896	
==>n0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7791	7896	
==>n0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns int { 
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8826	8955	
==>_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8814	8943	
==>_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12080	12216	
==>urn '()'
            unless defined  $n->{exp1};
        return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _not_implemen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6047	6161	
==>( $self, $file ) = @_;
    my $content = $self->_slurp($file);
    if ($content =~ m/
        =head \d \s+ (?:autho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4080	4283	
==>n $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4080	4283	
==>n $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11876	12017	
==>$re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.* <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11876	12017	
==>$re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.* <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	400	498	
==>use this module as a starting point to base
a new module distribution on.

= AUTHORS

Brian Ingerso <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25225	25311	
==>,E,F,G,H,I,J)),
  E1 = amat(C0,flgs(A,B,C,D,E,F,G,H,I,J)).
set_flag_i(amat(C0,flgs(_,B, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9965	10070	
==>ify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9965	10070	
==>ify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1045	1196	
==>servername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1045	1196	
==>servername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5320	5593	
==>}
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5320	5593	
==>}
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10477	10599	
==>ebug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we conne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10477	10599	
==>ebug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane state when we conne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	426	603	
==>"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # som <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	426	603	
==>"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # som <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17415	17582	
==>rsion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30955	31055	
==>l's attributes; the new Relation::Example has as
many additional attributes as there are pairs in the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4637	4844	
==>$class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless define <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4637	4844	
==>$class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless define <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1374	1533	
==>es a block";    
    if ($self == $FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	220	335	
==>t cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	220	335	
==>t cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9311	9450	
==>('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9311	9450	
==>('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8138	8255	
==>_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8331	8448	
==>_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::varia <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5980	6110	
==>rrent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5980	6110	
==>rrent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5706	5836	
==>VE}${slash}ghc";

        warn "*** ghc not found in path.  Looking in $ghc_root\n";

        if (-d $ghc_root) {
            # Loo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21771	22018	
==>symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44678	44925	
==>symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4933	5068	
==>ure doesn't kill $match (PCR "bug")
        }

        $ast->{pos} = $last - length( $match );
        my $t;
        if ( exists $ast-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8910	9007	
==>s>? <'\''>
}
rule DoubleStringCharacters {  # see 7.8.4
      <DoubleStringCharacter> <DoubleStrin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26142	26236	
==>ame is a character
string.

=item C<$!body> - B<Relation::Example Body>

Set of Mapping(Str) of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13394	13489	
==>"Locale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13394	13489	
==>"Locale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6588	6703	
==>", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6588	6703	
==>", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reason);
      my <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1037	1205	
==>shift;
                my $idx = shift;
                my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_v <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20606	20703	
==>lass/object attributes are private, so you must use accessor
methods.  Relation does not declare a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25158	25255	
==>lass/object attributes are private, so you must use accessor
methods.  Relation does not declare a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1357	1466	
==>s of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does Li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1357	1466	
==>s of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does Li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17587	17688	
==>gs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17587	17688	
==>gs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1934	2075	
==>$section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1934	2075	
==>$section {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	553	805	
==>} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	553	805	
==>} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::L::en -
Localization of Roset <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11122	11262	
==>dest) = @$_;
        -r $dest and -x $dest and
        -M $dest <= -M $src   and
        -s $dest == -s $src
          or do { warn "mismatch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2546	2653	
==>eturn ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::St <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2546	2653	
==>eturn ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::St <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1296	1403	
==>ot.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::pr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1354	1461	
==>ot.perl;
    my $expected_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4609	4745	
==>{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4621	4757	
==>{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3241	3376	
==>hift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if(!@ARGV || $ARGV[0] eq '-h' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6906	7000	
==>self->{t} ||= type::operator::nullary->new("int");
	$self;
}


package types;

use Class::Multi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1461	1606	
==>end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp ! <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1461	1606	
==>end;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp ! <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24669	24763	
==>boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation's <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29221	29315	
==>boolean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation's <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3171	3330	
==>= ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3171	3330	
==>= ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $d <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18928	19012	
==>ength,   $replace)
{ Pugs::Internals::substr($s,$offset,undef,$length,undef,$replace) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	157	266	
==>ce redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	157	266	
==>ce redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; - <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11278	11405	
==>c     => sub { ${$_[0]} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5099	5262	
==>FC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5099	5262	
==>FC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I just make this the
                    # maximum valu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12870	12972	
==>end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurrence is in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12870	12972	
==>end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurrence is in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4064	4254	
==>match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4064	4254	
==>match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	40	145	
==>Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	40	145	
==>Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3782	3949	
==>r\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n";
} else {
    print "Tests                 : Processing tests from tests.yaml\n";
}
print "Out <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	850	949	
==>`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	850	949	
==>`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )` <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	328	428	
==>code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	328	428	
==>code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { use v5; r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3741	3852	
==>>get_revision;
    
    $Config{shuffle}+=0;
    $self->{_config} = \%Config;
    $self->{_timing}{start} = time <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	135	239	
==>123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is copy"
su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4705	4834	
==>$char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4705	4834	
==>$char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28267	28389	
==>:get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28546	28668	
==>:get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{cap <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20931	21081	
==>}
sub p6_var { # XXX - not quite the right thing
    my($name)=@_;
    my $mn = p6_mangle($name);
    my $pkg = (caller)[0];
    #my $ret = eval "packa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2232	2347	
==>}) {
        $output .= _draw_role($role);
        $output .= "node_" . $role->id . " -- node_" . $class->id . " [ d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10071	10165	
==>ined to facilitate the
testing of those features. For more information see the FUTURE PLANS
sec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10129	10223	
==>ined to facilitate the
testing of those features. For more information see the FUTURE PLANS
sec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22483	22580	
==>-key to indicate a
condition, often it will also provide some variable values to be
interpolated i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22483	22580	
==>-key to indicate a
condition, often it will also provide some variable values to be
interpolated i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1879	2015	
==>ne);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub original_r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1918	2081	
==>ures'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2050	2142	
==>ugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2139	2231	
==>ugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1443	1554	
==>y ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_only++ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	415	510	
==>w("SomeClass");
 my $type = Type.new(Class.new("SomeClass"));

 $class.apply;

 $type =:= ::Some <==
2	/Users/nnunley/pugs/util/config_h.pl	1077	1168	
==>S_HAVE_POSIX 1\n";
}

my $has_readline = try_compile(<< '.');
import System.Console.Readline <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4257	4441	
==>or my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    pus <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4721	4905	
==>or my $maybe (@$index) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    pus <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15468	15609	
==>ame
      "-no-emul-boot",                     # Boot image is 'no emulation' image
      "-boot-load-size" => 4,              # Set numbers o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29574	29667	
==>ng attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation::E <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21377	21474	
==>e value.

Every Relation attribute has a name that is distinct from the other
attributes, though s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25929	26026	
==>e value.

Every Relation attribute has a name that is distinct from the other
attributes, though s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1266	1371	
==>tter frequency to crack the cipher, and even if the message is 
contrived to hide the letter frequency, th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1266	1371	
==>tter frequency to crack the cipher, and even if the message is 
contrived to hide the letter frequency, th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14838	14933	
==>2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $first <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14838	14933	
==>2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $first <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8139	8254	
==>TML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8139	8254	
==>TML (Str $string, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5892	6003	
==>his is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `upd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5892	6003	
==>his is a very primative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `upd <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5845	6010	
==>e other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms">.map:{ $_[0] };
        dbg "# Symbols:    @symbols[]";

        dbg "# Statement <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	735	859	
==>rsed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	735	859	
==>rsed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4056	4227	
==>:Term.ident>
                { return { hash  => "\%" . $_[0]->() ,} }
            ) ),
        '&' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::T <==
2	/Users/nnunley/pugs/util/package-osx.pl	7675	7766	
==>/usr/local/man/man3/Perl6::Spec::Functions.3pm
        /usr/local/man/man3/Perl6::Spec::Bloc <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6104	6200	
==>s one long string.

=item List Context

All headers are returned split into the respective
lines. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6104	6200	
==>s one long string.

=item List Context

All headers are returned split into the respective
lines. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5340	5453	
==>esult if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.pre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5340	5453	
==>esult if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2565	2689	
==>{ ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$t <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2565	2689	
==>{ ./bad_request; return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4451	4558	
==>t = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4451	4558	
==>t = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13750	13845	
==>tion (?(%.2s

=item RPe_SEQINC (-9)

Sequence (? incomplete

=item RPe_UQUANT (-10)

Useless (%s <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	6859	6966	
==>sh.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by ch <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	6859	6966	
==>sh.

=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

code by ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2847	2970	
==>P::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2847	2970	
==>P::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12684	12783	
==>roach, while likely flakier (modulo memory issues),
  might suffice, be easier to create, and be mor <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10425	10521	
==>ressionChars> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!be <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2135	2273	
==>bject>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2135	2273	
==>bject>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9524	9644	
==>ange, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # othe <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9524	9644	
==>ange, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16030	16125	
==>aps gets optimized to C</^\s+/>.  The difficulty
rating is so high because of cases like C</(\d+ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5550	5643	
==>:Param")) {
				push @params, $self->resolve_type($sub->accepts_type) ." ". (my $sym = $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4678	4808	
==>ned %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4678	4808	
==>ned %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, wh <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9518	9627	
==>s available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9518	9627	
==>s available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3451	3553	
==>self:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3451	3553	
==>self:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Templ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	28	147	
==>06;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	28	147	
==>06;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9792	9944	
==>}      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### make sure we dont see oursel <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2824	2976	
==>}      
        
        ### see if there's any other package that's now the default
        ### for this module
        ### make sure we dont see oursel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13327	13436	
==>n.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13327	13436	
==>n.new( :density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	532	618	
==>Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	532	618	
==>Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10781	10885	
==>nciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10781	10885	
==>nciphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17814	17908	
==>number of times that character appeared in the character class.  The
character class C<[A-CB-E] <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7335	7429	
==>i, $pSubBody);
}
sub code_helper {
    my($name,$pType, $pParams, $pLValue, $pIsMulti, $pBody)= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2142	2275	
==>xpected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LK <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2142	2275	
==>xpected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LK <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2050	2171	
==>~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2050	2171	
==>~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9743	9849	
==>ethods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  Yo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9743	9849	
==>ethods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  Yo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1030	1151	
==>Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1030	1151	
==>Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	700	865	
==>k', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	700	865	
==>k', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1587	1715	
==>left' unless defined $opt->{assoc};
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} eq $opt->{other} } @{$s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10859	10964	
==>arExpressionFlags {  # see 7.8.5
      <null>
    | <RegularExpressionFlags> <IdentifierPart>
}

# A.2 Num <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2832	2964	
==>run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2832	2964	
==>run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11136	11335	
==>: $match
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experiment <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1738	1865	
==>ins symbol to value mappings.

=back

=head2 Misc

=over 4

=item Blondie::Env

Note that this is not a Blondie::Node! You canno <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22717	22812	
==>what fields can contain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/regexec.

 RE_INTU <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	825	919	
==>Shortcut");
    $optable->addToken("term:\\D", "term:", "nows", "PGE::Exp::CCShortcut");
    $o <==
2	/Users/nnunley/pugs/util/package-osx.pl	8566	8676	
==>Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($dest, %change_files) = @_;
    for my $orig (keys %ch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	748	845	
==>Shortcut");
    $optable->addToken("term:\\d", "term:", "nows", "PGE::Exp::CCShortcut");
    $opta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6025	6124	
==>me, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_closur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5832	5929	
==>me, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_closur <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4522	4664	
==>se links ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfile, $hre <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	655	778	
==>eturn $self;
    };
}

sub sign {
    my $self = shift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	815	931	
==>$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    return $obj;
}

### XXX c/p'd from meta.pm -- su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13452	13552	
==>OGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (?{...}) not terminat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10904	11024	
==>{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11333	11453	
==>{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1381	1509	
==>ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unless ($pass) {
	_diag "# Failed $where\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1561	1664	
==>urn $result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $node = shift;
	return $self->literal_value <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40017	40112	
==>hould have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the fil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40017	40112	
==>hould have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14969	15103	
==>ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15248	15382	
==>ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1960	2101	
==>s,$operators,$tokens)=@_;
  my $noop = Hacks->noop;
  my $debug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::curre <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7123	7251	
==>,
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7123	7251	
==>,
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16023	16119	
==>us.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Br <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16081	16177	
==>us.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Br <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	620	749	
==>~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	620	749	
==>~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $msg) { say <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1696	1800	
==>erl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a loo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1696	1800	
==>erl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a loo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	343	444	
==>gests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	343	444	
==>gests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don' <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8990	9099	
==>e $expression --> Lazy ) 
 multi  List::map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3173	3274	
==>ch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->positi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8851	8962	
==>schein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is cur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8851	8962	
==>schein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is cur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19197	19320	
==>words {  # see 11.14
      <AssignmentExpression>
    | <Expression> <','> <AssignmentExpression>
}
rule ExpressionNoIn :wor <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20944	21038	
==>iltin is unsafe {
    #Pugs::Internals::require($module);
    Pugs::Internals::require_use_help <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21459	21611	
==>, symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44366	44518	
==>, symbol->new('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2304	2415	
==>LE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $modu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2304	2415	
==>LE> };
    return unless $source =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $modu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3827	3928	
==>status of the test.

=item B<Total>

Total number of tests expected to run.

=item B<Fail>

Number whi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7181	7278	
==>would be much more concise

# a free variable instantiates into whatever it is combined with (exce <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6962	7122	
==>ame.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6962	7122	
==>ame.
        if (!$module_is_loaded) {
            try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2350	2483	
==>key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"=" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2350	2483	
==>key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"=" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2565	2692	
==>er}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2565	2692	
==>er}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15435	15548	
==>O eq 'VMS') { $te =~ s/^.*\.t\./\[.t./s; }
    my $blank = (' ' x 77);
    my $leader = "$te" . '.' x ($width - le <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2407	2499	
==>self->author_from($file)   unless $self->author;
    $self->license_from($file)  unless $self <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5610	5707	
==>method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5610	5707	
==>method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1498	1606	
==>ult> object that has a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    doe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1498	1606	
==>ult> object that has a
$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    doe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12571	12695	
==>erson );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if datab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12571	12695	
==>erson );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if datab <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1513	1620	
==>label      => "Days",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_value  => (int(@ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2172	2301	
==>= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2172	2301	
==>= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$n" }, @fields) ~") \{"
          ~"\n    "~join("\n    ",map <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2692	2817	
==>I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burs <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2692	2817	
==>I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burs <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2625	2731	
==>Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2625	2731	
==>Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	92	207	
==>a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		my $old = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	704	867	
==>(\*STDOUT),
    map { native($_) } (
        {
            arity => 3,
            name => '&ternary:<?? !!>',
            body => sub {
                $_[1] ? $_[ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1173	1265	
==>ers::macif(%?CONFIG{'has_int64'},'Clutter::int_size 64;');

#XXX- rename $n or $^n.  having t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2349	2477	
==>/g;
    if ( $self->tests ) {
        $args->{test} = { TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8732	8839	
==>$Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8728	8835	
==>$Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1839	1951	
==>`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Fl <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1839	1951	
==>`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Fl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	219	358	
==>ash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	219	358	
==>ash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4456	4587	
==>mbers if $type isn't a string operator,
        # and the numbers are stringwise the same.
        # (all string operators have alph <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1429	1528	
==>ers{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1429	1528	
==>ers{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method invert($s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10952	11063	
==>.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10952	11063	
==>.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = $class.new(*%options, :mode< <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	720	836	
==>x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard fun <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	720	836	
==>x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard fun <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4250	4343	
==>id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6152	6245	
==>id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($Object->name, 'Objec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	301	402	
==>sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub * <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	301	402	
==>sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub * <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7209	7317	
==>o strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7221	7329	
==>o strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3165	3285	
==>l5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3358	3478	
==>l5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4001	4165	
==>soc => 'list',
        precedence => 'looser',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '¥',
        assoc => 'list',
        preced <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15416	15584	
==>:capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15695	15863	
==>:capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           , <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3268	3368	
==>It is intended mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= A <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3268	3368	
==>It is intended mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= A <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8349	8474	
==>e_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  And is unexpected.\n";
	return "";
    }
    if( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3089	3202	
==>elf->{counters}{$type});
	}
}

sub define {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	return if $self <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1575	1686	
==>}
}

sub inner_reduce {
	my $self = shift;
	my $node = shift;
	return $self->literal_value($node) unless Scalar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	623	732	
==>tax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-la <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	592	697	
==>tax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-la <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8077	8193	
==>he params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8077	8193	
==>he params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3638	3740	
==>, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options to the constr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3638	3740	
==>, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options to the constr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3031	3128	
==>closure, which can be called repeatedly to encipher data.
The encipherer closure can be called wit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3031	3128	
==>closure, which can be called repeatedly to encipher data.
The encipherer closure can be called wit <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	687	830	
==>1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0.. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	687	830	
==>1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0.. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4004	4101	
==>Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4004	4101	
==>Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20529	20650	
==>emented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16950	17071	
==>emented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12867	12965	
==>-
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12867	12965	
==>-
Refer to user messages in programs by keys

=head1 VERSION

This document describes Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37140	37234	
==>s of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37140	37234	
==>s of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method takes t <==
2	/Users/nnunley/pugs/util/grokprims.pl	395	506	
==>n[^"]/;
  chomp;

  my (undef, $ret, $assoc, $name, $args) = split ' ', $_, 5;

  $name =~ s/\\(.)/$1/g;

  $arg <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3148	3242	
==>efaults:
  --kernel-uri=$kernel_uri
    mklivecd.pl automatically fetches a kernel from the Int <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25537	25642	
==>.
set_flag_x(amat(C0,flgs(A,B,C,_,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5505	5617	
==>umfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5505	5617	
==>umfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->() );
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	74	173	
==>P::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	74	173	
==>P::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS = URI] {
    is HTTP::Requ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1227	1318	
==>ne

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1227	1318	
==>ne

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	120	241	
==>$code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           » <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	120	241	
==>$code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           » <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4797	4920	
==>ta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4797	4920	
==>ta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7467	7596	
==>e: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7479	7608	
==>e: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - thi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4063	4189	
==>ts $values{$key};
        $dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	309	422	
==>bs) {...}

=head1 See also

S02

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22287	22388	
==>hod not to actually create any objects.  Afterwards, it is an array
reference of (node) objects.

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	481	705	
==>,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	482	706	
==>,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	831	930	
==>rl6-Bible/';
    print <<__HELP__;
$0 - Build html test catalog and synopses with hyperlinks to corr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2597	2695	
==>h the
same root path if it exists.

Returns a true value on success, otherwise something false.

=c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3078	3241	
==>er} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$self->{levels}[$level]} ) {
            #print "pos $level at $opt- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8127	8228	
==>xample, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 and $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8127	8228	
==>xample, @span may contain zero, one, two, or three spans, depending on
the contents of $span1 and $spa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2338	2460	
==>}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $se <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14969	15137	
==>d   = $beg->right;
            
            if (!defined $end) {
              $beg->tag('div');
              $beg->attr('class', 'empty_head '.$tag);

              ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4060	4173	
==>k};
  my $vis = join "", map($_->visual, @{ $self->{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1642	1737	
==>pads since last enter_scope

=head1 DESCRIPTION

Assumes a hash structure of $self, and uses the <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19292	19386	
==>,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captures(Ex,Cx),
  % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28238	28363	
==>eturn { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28517	28642	
==>eturn { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture wa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4894	4991	
==>tor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4894	4991	
==>tor _tmpdir and tmpdir into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6258	6402	
==>::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else { <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6316	6460	
==>::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7406	7507	
==>dule doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7406	7507	
==>dule doesn't define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3270	3370	
==>e;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	41	141	
==>e;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18124	18226	
==>ll of its descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18124	18226	
==>ll of its descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	9	111	
==>ME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value E <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	9	111	
==>ME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value E <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38356	38532	
==>ributes'))
                  ->exists($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	64	173	
==>g();
use File::Spec;
our %Config = %Config::Config;

sub get_config {
    my $config = {
        perl_revision <==
2	/Users/nnunley/pugs/util/config_h.pl	1492	1595	
==>nds disabled.  If you want
    Template Haskell support, please compile your GHC with the
    GHCi optio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	923	1038	
==>reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - in the future the compiler might allow ad <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1	111	
==>class Perldoc::DOM::Node is Tree;

has $.source;
has $.sourcefile;
has $.sourceline;

# fixme - this is an abst <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1	111	
==>class Perldoc::DOM::Node is Tree;

has $.source;
has $.sourcefile;
has $.sourceline;

# fixme - this is an abst <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	609	710	
==>e overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	609	710	
==>e overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing source code to determi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2192	2321	
==>e => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2180	2309	
==>e => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1255	1386	
==>key} }, @rv;
        @rv;
    };
}

sub sign {
    my $self = shift;
    return $self->{'values'}{'sign'} if defined wantarray and ! <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3640	3749	
==>sym {
		my $self = shift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "lin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8781	8887	
==>[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8777	8883	
==>[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3307	3443	
==>y $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4156	4292	
==>y $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1089	1196	
==>ot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1089	1196	
==>ot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8051	8172	
==>ere was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8051	8172	
==>ere was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$newlines) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8106	8222	
==>V* exec_callback_sub;
/*      fprintf(stderr,"api 13\n");*/
      if(ret != 4) {
        fprintf(stderr,"api 13 viola <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3400	3497	
==>13 15 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Everythin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1456	1590	
==>utogenerate
{   

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1884	1989	
==>er_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= N <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1884	1989	
==>er_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= N <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	122	258	
==>e lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one source dir';

for my $srcdir (@ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1971	2091	
==>my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->scalar_sto <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3887	4063	
==>&*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3887	4063	
==>&*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24999	25142	
==>}xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__E <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21420	21563	
==>}xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__E <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2717	2835	
==>($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2717	2835	
==>($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1156	1262	
==>e

# comparitor

sub _compare {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('opaque')) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27060	27182	
==>ase 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $self->SUPER::init( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	399	508	
==>a state of flux.

=cut

class JSX::PseudoValue;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::Inter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19055	19151	
==>f it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
troubl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19055	19151	
==>f it, so that your
legacy applications can be migrated to use the Rosetta DBMS with little
troubl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13254	13397	
==>{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13254	13397	
==>{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3020	3156	
==>e;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3020	3156	
==>e;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	0	143	
==>use v6;

=for TODO

    * compare
    * size - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm A <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	0	143	
==>use v6;

=for TODO

    * compare
    * size - accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm A <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27124	27221	
==>ass defaults it to False.

=back

This is the main Relation::Example constructor method:

=over

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	970	1063	
==>2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	970	1063	
==>2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documenta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9199	9330	
==>1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9199	9330	
==>1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7663	7777	
==>gle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7663	7777	
==>gle quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cm <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3850	3968	
==>!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throw <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3908	4026	
==>!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throw <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7182	7322	
==>METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7182	7322	
==>METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5286	5382	
==>j.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
Thi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5286	5382	
==>j.zeroize();

Tells the cipher object to clear its internal state as completely as possible. 
Thi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1455	1566	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1455	1566	
==>by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1606	1766	
==>$_[0], (\n" . 
        $program . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar referenc <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	154	275	
==>dle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_fu <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	154	275	
==>dle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_fu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1799	1915	
==>ns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1799	1915	
==>ns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.inter <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1108	1228	
==>>',
			body => '+',
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	517	626	
==>egate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	517	626	
==>egate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3440	3539	
==>))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPERL <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4576	4674	
==>))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULLPERL <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24743	24838	
==>turns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29295	29390	
==>turns this Relation's heading.

=item C<body () returns Set of Mapping(Str) of Any>

This method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	807	923	
==>END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replace <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	807	923	
==>END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simple

=head1 SYNOPSIS

Drop-in replace <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4786	4915	
==>oo->bar' },
    },
);

is($Foo->id, 3, '... $Foo is the fourth id');
is($Foo->class, $Class, '... $Foo refs to metaclass');
is($Fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4764	4872	
==>S / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4764	4872	
==>S / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::E <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6012	6125	
==>0]->qr, $self->{data}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8906	9034	
==>1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8906	9034	
==>1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/\x8b/&#8 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15295	15405	
==>the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28429	28526	
==>ou can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here's how Test::Harn <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10452	10601	
==>'';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10452	10601	
==>'';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	346	601	
==>y packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	346	601	
==>y packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12889	13084	
==>=> method::params->new(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6571	6672	
==>It is intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6571	6672	
==>It is intended mostly for "internal" use by the Span class. 
For a more complete API, see `Span`.

The <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	428	546	
==>ch->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1217	1335	
==>ch->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2326	2445	
==>((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2304	2423	
==>((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    chdir $dir; return !$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11686	11806	
==>PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11686	11806	
==>PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1489	1632	
==>> 'looser',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '|',
        assoc => 'left',
        precedence => 'l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10620	10755	
==>gged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Pr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10620	10755	
==>gged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Pr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35732	35825	
==>s a single
Relation::Example in its C<$other> argument, where <$other> has the same heading as <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37764	37857	
==>s a single Relation::Example
in its C<$other> argument, where <$other> has the same heading as <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4462	4598	
==>{
    my $self = shift;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4245	4343	
==>he last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4245	4343	
==>he last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7856	7950	
==>}.

p5_modifier_scope(M,modify(M))         --> ")", !.
p5_modifier_scope(M,group_modify(M,R)) - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8792	8920	
==>l;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8780	8908	
==>l;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5710	5825	
==>e or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5698	5813	
==>e or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	448	539	
==>lasses", "Set", { companion => "subclasses" });
Has($?CLASS, "subclasses", "Set", { companio <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12292	12375	
==>ailed"><span title="<tmpl_var name=failed> failed"><tmpl_var name=failed></span>,</t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12527	12855	
==>t::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12527	12855	
==>t::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2695	2802	
==>) = Text::Balanced::extract_bracketed( '<' . $_[0], '<..>' );
    $extracted = substr( $extracted, 1, -1 ) i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5753	5912	
==>mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5753	5912	
==>mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18836	19066	
==>c($conversion),1.0*$arg);
            }
            when '%' {
                $str ~= '%';
            }
            default {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20560	20659	
==>n you
open a program, it will search for language files specific to the program
in the order you cho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20560	20659	
==>n you
open a program, it will search for language files specific to the program
in the order you cho <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3973	4061	
==>s/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/nod <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3973	4061	
==>s/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/nod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13190	13323	
==>fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13190	13323	
==>fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?! <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	339	437	
==>e represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	339	437	
==>e represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	919	1214	
==>9 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	919	1214	
==>9 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9707	9860	
==>g "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.cl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9707	9860	
==>g "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.cl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3530	3639	
==>wo);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3530	3639	
==>wo);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1328	1494	
==>ast => App(
			Val(
				Thunk(
					Seq(
						Param('&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9817	9933	
==>0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4939	5120	
==>ers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4939	5120	
==>ers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$ve <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1821	1946	
==>nvocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delaye <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1821	1946	
==>nvocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delaye <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3061	3193	
==>LES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
G <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3061	3193	
==>LES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
G <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	142	267	
==>evier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

sub Lexer::import { }

## XXX - is exported does <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4003	4108	
==>HORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4747	4851	
==>ns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4747	4851	
==>ns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	874	990	
==>ring;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) ret <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	874	990	
==>ring;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe) ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24594	24691	
==>e
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your optio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24594	24691	
==>e
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5098	5314	
==>atch => { constant => $1 }, 

                 tail => $2,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4940	5146	
==>atch => { constant => $1 }, 
                 tail => $2,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]- <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	883	1046	
==>efined $tok;
        @tokens.push( ($sep, $tok, $i).grep:{ $_ ne "" } );
        $buf = "";
        last;
      }

      $buf ~= $i
        if defined $i;

      my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5146	5294	
==>ect(exact => "\t", '\t');
  });

  $self->add_handler('\T' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\t", '\T') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6074	6192	
==>atch->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6086	6204	
==>atch->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	330	436	
==>rammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macros <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	310	414	
==>rammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macros <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8209	8366	
==>osure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8209	8366	
==>osure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3671	3789	
==>cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3671	3789	
==>cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25792	25891	
==>e Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25792	25891	
==>e Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variables>

Hash(Str <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7209	7409	
==>! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7209	7409	
==>! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3601	3706	
==>le3',  $file3,  "3rd line\n2nd line\n1st line\n" ],
      [ 'file21', $file21,
        "\n\n\n\n\n\n\n\n\n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	602	700	
==>head2 $str = $self->pretty_print

Pretty prints the dependency declaration from the META.info.
It w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1664	1757	
==>_BADPOS => --$ENUM, 'POSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5972	6108	
==>unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5972	6108	
==>unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	704	808	
==>ture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	704	808	
==>ture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19684	19781	
==><$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19684	19781	
==><$bot.channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6010	6123	
==>_index = catfile($output_dir,"Synopsis", "index.html");
    open( $fh, ">",  $syn_index) or die "Failed to open $s <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2686	2797	
==>pt: $!";
  }
} else {
print <<EOF;
*** All done! Smoke matrix saved as '$html_location'.
    You may want to sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12024	12145	
==>rx, $min, $max, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'qua <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8593	8761	
==>$pat))";
      $o->mk_eater_for_re($pat);
    }
    else {
      sub {
        my $c = $_[0];
        FAIL() if !(substr($X::str,$X::pos,$len) eq $s);
        $X::pos += <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1725	1833	
==><$compile") or die "open $compile: $!\n";
    my $f = do{local $/=undef; <F>}; close F;
    my $type = $compi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1002	1132	
==>failed {
    my($o)=@_;
    $o->set(0,"",[],{});
    return $o;
}
sub set_str {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2099	2206	
==>shift;

	my @free;

	my $tree = $dag->splat(\@free); # Attribute grammars can't eat DAGs, so we have to recu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	65	160	
==>-------------------------------------------
## attributes

has $.node is rw;

has $.depth;
has $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	65	160	
==>-------------------------------------------
## attributes

has $.node is rw;

has $.depth;
has $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	231	379	
==>eading";
    local $/;
    my $ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $name, $space) = @_;
#    
#
#    $space = " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12493	12592	
==>next elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true if t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12493	12592	
==>next elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true if t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12861	12958	
==>ifier is used for several things. 
For example, when iterating through the span range, the unit is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12861	12958	
==>ifier is used for several things. 
For example, when iterating through the span range, the unit is <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2571	2677	
==>, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2571	2677	
==>, reusing whatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2719	2867	
==>the code
        {   ### XXX we should *build* things here too
            print "Unpacking code...\n";
            system( qq[tar -f $my_tmp_dir/$Da <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5327	5427	
==>');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo');

# try to call the Class method
fails_ok { $iFo <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5000	5142	
==>%pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"p <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5324	5466	
==>%pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"p <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1364	1466	
==>nt it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefor <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1364	1466	
==>nt it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6706	6826	
==>urns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, may <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6706	6826	
==>urns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, may <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22688	22780	
==>ot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22688	22780	
==>ot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5174	5284	
==>allow us to ask if the instance 
    my $_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_method('d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7027	7152	
==>_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7027	7152	
==>_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8262	8382	
==>rking because the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, ": <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8262	8382	
==>rking because the language
    # spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, ": <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1379	1479	
==>te limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be stric <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1379	1479	
==>te limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be stric <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1492	1586	
==>rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1492	1586	
==>rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	121	216	
==>ng is making the
# "source" property of the object fallback to "content"
method source($self:) { <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	121	216	
==>ng is making the
# "source" property of the object fallback to "content"
method source($self:) { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39639	39732	
==>rl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39639	39732	
==>rl@DarrenDuncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2853	2989	
==>nt { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        my $bo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	453	554	
==>matchObj ) = @_
  return P6RulesInP5::Match::newfrom( $matchObj );
}

sub upper {
  my ( $matchObj ) = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19293	19444	
==>r *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

Length is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37454	37555	
==>value determining whether this is a positive
assertion.  Here's the new class for the object:

  packa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8886	9041	
==>,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9079	9234	
==>,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	436	537	
==>lists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Test <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	436	537	
==>lists are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Test <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21490	21587	
==>es may store values of the same class;
every Relation tuple must be distinct from the other tuples <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26042	26139	
==>es may store values of the same class;
every Relation tuple must be distinct from the other tuples <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20715	20800	
==>!, char_type(C,csym).
rm(word_boundary,[],[],[C|Bx],[C|Bx],E0,E0) :- !, char_type(C,cs <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1270	1434	
==>tead of the python "in"
                my %in_tail = (map { $_ => 1 } $sub_seq->tail->to_native);
                # NOTE:
                # jump out as soon as we f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4382	4483	
==>ift;
	my ($node, $symbol, $body, $type) = @_;
	return $body;
}

sub symbolic_representation {
	my $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2805	2898	
==>$S->warn(RPe_BADESC, "C", " in character class") if $cc;
    return $S->force_object(anyof_cha <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	833	927	
==>.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	718	804	
==>.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nm <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1744	1868	
==>input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Re <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1744	1868	
==>input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5205	5328	
==>p2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5205	5328	
==>p2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	18	120	
==>s;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	18	120	
==>s;
use 5.006;
use strict;

our $VERSION = 6.002012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1296	1432	
==>{
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Chec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4431	4537	
==>pan ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4431	4537	
==>pan ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2161	2322	
==>_set);
    my $tmpl = {
        repository_set => { 
            required    => 1, 
            store       => \$repo_set,
            allow       => ISA_JIB_REPO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17328	17437	
==>$runperl_args, $name) = @_;
    local $Level = 2;
    _fresh_perl($prog,
		sub { @_ ? $_[0] eq $expected : $ex <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1258	1387	
==>"\n";
}

sub comp_cc {
    my ($ccset) = @_;
    my $oldn = 0;
    #::YY(\%nodes);
    while ($oldn != keys %$ccset) {
        $ol <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26474	26573	
==>re references to other objects in them if you wish.

=back

This is the main Message constructor met <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26474	26573	
==>re references to other objects in them if you wish.

=back

This is the main Message constructor met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1072	1236	
==>ssage($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1072	1236	
==>ssage($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = . <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16181	16285	
==>ant three dots between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _show_resu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7860	7959	
==>truncate \"@{[ BUCKET ]}\": $!\n";

  store_fd [$bucket->state] => $fh or
    die "Couldn't serializ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2016	2127	
==>address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  re <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1002	1113	
==>address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2803	2914	
==>\x0009 }
rule VT   { \x000B }
rule FF   { \x000C }
rule SP   { \x0020 }
rule NBSP { \x00A0 }
rule USP  { <<Zs>-< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15806	15902	
==>1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15806	15902	
==>1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2303	2417	
==>DATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2303	2417	
==>DATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3361	3483	
==>= ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3361	3483	
==>= ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2624	2753	
==>ength > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2624	2753	
==>ength > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1601	1758	
==>ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1601	1758	
==>ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15822	15957	
==>each my $link (reverse @{ $index->{$syn} }){
          # reverse is since we're splicing right after the h1
            my $target  = $l <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3620	3732	
==>ck map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: L <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3620	3732	
==>ck map { $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: L <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8248	8359	
==>.$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8306	8417	
==>.$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	140	236	
==>Pugs::Grammar::BaseCategory);

use Pugs::Grammar::Infix;

# TODO - generate AST
# TODO - prefix:{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1922	2026	
==>ss.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1922	2026	
==>ss.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::I <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	856	966	
==>to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import(' <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	856	966	
==>to fix it.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import(' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7342	7464	
==>e is damaged and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7342	7464	
==>e is damaged and say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	558	686	
==>*)/;
        $abstract = $1 if $line =~ /^#\s*abstract:\s+(.*)/;
    }
    unless (defined $prompt) {
        my $script_name = F <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3977	4072	
==>posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1227	1378	
==>s @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_results( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1227	1378	
==>s @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self.set_results( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1213	1326	
==>rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1353	1466	
==>rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	893	996	
==>r ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	823	920	
==>r ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1598	1709	
==>self->dir   or return;

    return $self->control_dir( $pkg )
                ->file( $self->config->_files_list <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8015	8144	
==>r(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8015	8144	
==>r(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18777	18877	
==>tional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18777	18877	
==>tional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10527	10652	
==>>{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $self->{data}[-1] = [ @$tree ];
      pus <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19712	19814	
==>j.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSAN modules w <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	6	103	
==>rl5:Code::Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::Code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	6	103	
==>rl5:Code::Perl::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::Code <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35070	35175	
==>s a clone of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35070	35175	
==>s a clone of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1982	2077	
==>ou should
be left with nothing but questions about what this object represents.

It represents a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1982	2077	
==>ou should
be left with nothing but questions about what this object represents.

It represents a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5070	5261	
==>mper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5082	5273	
==>mper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13614	13747	
==>".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass:
    $S0 = substr target, pos, 2
    if $S0 != "]>" goto err_b <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3198	3304	
==>y status and headers
  # This should all be done better so the response doesn't live in
  # memory all at o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3198	3304	
==>y status and headers
  # This should all be done better so the response doesn't live in
  # memory all at o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2234	2335	
==>[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $extracted = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2146	2245	
==>[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	646	770	
==>, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	646	770	
==>, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3605	3766	
==>eturn { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3852	4013	
==>eturn { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	601	732	
==>setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (unde <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	601	732	
==>setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (unde <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3983	4078	
==>ors { sort keys %config }
sub ls_accessors { grep { $_ !~ /^_/ } __PACKAGE__->ls_all_accessors } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1013	1127	
==>bject:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1013	1127	
==>bject:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes tha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26318	26415	
==>ht holders of Rosetta would
appreciate being informed any time you create a modified version of Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26318	26415	
==>ht holders of Rosetta would
appreciate being informed any time you create a modified version of Ro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4754	4867	
==>$compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4590	4700	
==>$compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8536	8636	
==>ize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Change <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8536	8636	
==>ize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "Change <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38745	38855	
==>recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38745	38855	
==>recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 DIAGNOSTICS

I< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18205	18312	
==>e a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, whic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18205	18312	
==>e a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, whic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7235	7327	
==>->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1060	1152	
==>->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @state <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1164	1279	
==>P to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("an <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1131	1246	
==>P to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("an <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25499	25599	
==>y print a -> b x c");
}
{
	my $type = type::operator::arrow->new(
		type::operator::pair->new(
			typ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30965	31060	
==>utes; the new Relation::Example has as
many additional attributes as there are pairs in the argu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4818	4974	
==>AGE__->add_rule( 
    #    name => '->',
    #    assoc => 'non',
    #    precedence => 'equal',
    #    other => ';',
    #);

    # experimental
    __PA <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2008	2143	
==>re defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2008	2143	
==>re defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? < <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38451	38547	
==>le value is
substituted for any occurance of its corresponding variable name that is
bounded by ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38451	38547	
==>le value is
substituted for any occurance of its corresponding variable name that is
bounded by ' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2302	2390	
==>table->addToken("infix:", "<postfix:*", "right,nows", "PGE::Exp::Concat");
    $optable-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1558	1655	
==>modate the characteristics
#  of particular regex engines.  Its structure follows the spec.  If fo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8360	8461	
==>- Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8360	8461	
==>- Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4869	4967	
==>ulti sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4927	5025	
==>ulti sub skip (Str $reason?, :$depends) returns Bool is export {
    Test::proclaim(1, "", "skip $r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10461	10557	
==>t, and could potentially
never be performed at all.  They validate everything except
well-formedn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10461	10557	
==>t, and could potentially
never be performed at all.  They validate everything except
well-formedn <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	448	556	
==>t implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloadin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	448	556	
==>t implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * overloadin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16463	16560	
==>and without a recompile (such as by simply
copying files), often even while the program is executi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16463	16560	
==>and without a recompile (such as by simply
copying files), often even while the program is executi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3433	3548	
==>BUGS

Numerous.

=head1 TODO

=over
=item Scoping

You should be able to do both lexically and dynamically scoped
ov <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9517	9622	
==>\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When taint mode is on, PE <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17906	18005	
==>RSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17906	18005	
==>RSING AND DISPATCH

NOTE: *** NOT FULLY IMPLEMENTED YET ***

Module::Compile attempts to make source <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3392	3514	
==>| {} });
}

sub feature {
    my $self     = shift;
    my $name     = shift;
    my $features = ( $self->{values}{features <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52610	52694	
==>t->new($::Class, $::Module, $::Package, $::Object));
$::Object->set_attr(symbol->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1810	1911	
==>= Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1810	1911	
==>= Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	271	381	
==>nterface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warning <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	477	587	
==>nterface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warning <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7042	7228	
==>pan];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7042	7228	
==>pan];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4000	4108	
==>SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	847	941	
==>level, not the character level, so different 
character encodings may be enciphered in differen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	847	941	
==>level, not the character level, so different 
character encodings may be enciphered in differen <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1291	1387	
==>sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1291	1387	
==>sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14109	14217	
==>@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17586	17694	
==>@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2597	2720	
==>=> [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}->{capture},
                a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1362	1477	
==>'Bool',
  'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'    ,' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8593	8700	
==>t::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8651	8758	
==>t::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	20	135	
==>v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	20	135	
==>v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use HTTP::Headers::U <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	474	622	
==>$charset, 
    +$location
) returns Str {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status ~ "\n";
    # TODO:
    # Ne <==
2	/Users/nnunley/pugs/ext/DateTime/t/Data.pm	18	149	
==>ngths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

@*LeapYearMonthLengths = @*MonthLengths;
@*LeapYearMonthLengths[1]+ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4331	4419	
==>-

## ----------------------------------------------------------------------------
## BOO <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5048	5204	
==>evious }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5048	5204	
==>evious }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # complem <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4906	5036	
==>value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $modu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4765	4895	
==>value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $modu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12194	12302	
==>also be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12194	12302	
==>also be called on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP: <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	736	870	
==>erl 6 has no concept of associative attributes,
                  # so we represent them all as attributes
                  attrs => [ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7766	7899	
==>and_cleanup($_,$prefix);
	}
    } elsif($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_wi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8791	8903	
==>g Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8791	8903	
==>g Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()` <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14347	14481	
==>$self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $liv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14347	14481	
==>$self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $liv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1636	1731	
==>d through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] unknown';
use constant RPe_O <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15653	15744	
==>:- 
  rm(Re,F0,F1,B0,B1,E0,E1), !. % this cut is semantic.

rm(condition(condi(I),Ra,Rb),F0, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9875	9972	
==>rrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9875	9972	
==>rrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16127	16294	
==>ule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16121	16288	
==>ule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$match[-1]->t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20759	20861	
==>tion indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25311	25413	
==>tion indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4351	4448	
==>ration to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4351	4448	
==>ration to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C< <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	420	546	
==>ass = shift;
    my $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Erro <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7318	7431	
==>rn;
    }

    my %results = $self->analyze_fh($file, \*FILE);
    my $exit = close FILE;
    $results{'wait'} = $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15724	15836	
==>usion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19201	19313	
==>usion (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3885	4010	
==>file(file($pkg->file)->basename) && !$force) {
        error($pkg->package . " already exists in this repository");
        re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1033	1142	
==>ta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1033	1142	
==>ta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2460	2687	
==>RAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2460	2687	
==>RAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5529	5629	
==>is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5587	5687	
==>is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2148	2254	
==>y @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2148	2254	
==>y @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	816	966	
==>2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	783	926	
==>2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4848	4996	
==>r = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4848	4996	
==>r = shift(@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_di <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	777	947	
==>r( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.res <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	777	947	
==>r( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.res <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	260	359	
==>rently passes all it's tests.

- The algorithm is a bit simpler than the previous version, but the <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5794	5889	
==>an.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5794	5889	
==>an.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9569	9665	
==>ines or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
except <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9569	9665	
==>ines or export such.

The usual way that Rosetta::Model indicates a failure is to throw an
except <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37980	38077	
==>subroutine's result, which is a Template text
string if the module recognizes $msg_key, and the un <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37980	38077	
==>subroutine's result, which is a Template text
string if the module recognizes $msg_key, and the un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26874	27005	
==>leop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27153	27284	
==>leop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3196	3321	
==>$location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { % <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3196	3321	
==>$location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { % <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9612	9720	
==>erence( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with closures. 

A recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9612	9720	
==>erence( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with closures. 

A recurr <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1353	1479	
==>n_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1353	1479	
==>n_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	975	1148	
==>ift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	854	1027	
==>ift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	682	771	
==>port the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	682	771	
==>port the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	155	288	
==>lar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'IArray' => {};

class 'PIL::Run::Container::Array' => {
    doe <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2196	2318	
==>code) };
            when 'pir'     { Pugs::Internals::eval_parrot($code) };
            when 'yaml'    { Pugs::Internals:: <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3354	3454	
==>ngness to do a
core patch if one proves necessary to go the last mile.

=head1 BUGS

Numerous.

=head <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	864	978	
==>$scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	831	945	
==>$scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	396	506	
==>he start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	396	506	
==>he start of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*he <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11531	11706	
==>us( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11531	11706	
==>us( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3280	3389	
==>w(:node<Grammar>),
            Tree.new(:node<Type>).add_children(
                Tree.new(:node<Package>).ad <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	639	745	
==>s,
# simply run this program in the same directory containing
# those files.
#
# Enjoy! -- asavige (aka mad <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3481	3631	
==>h == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Va <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3481	3631	
==>h == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	112	213	
==>$event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./j <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	112	213	
==>$event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./j <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2745	2902	
==>lags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2885	3042	
==>lags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{gramm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6705	6818	
==>internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _he <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6705	6818	
==>internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _he <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3359	3459	
==>pan`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3359	3459	
==>pan`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5708	5912	
==>"$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5708	5912	
==>"$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5837	5938	
==>.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5837	5938	
==>.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Confi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2852	3006	
==>plemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3036	3190	
==>plemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40846	40951	
==>cale::KeyedText that you are willing to distribute,
because that is a practical way of suggesting improvem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40846	40951	
==>cale::KeyedText that you are willing to distribute,
because that is a practical way of suggesting improvem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3086	3258	
==>hecking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3086	3258	
==>hecking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2343	2451	
==>n a closure.  Call the closure with a block of 
data to have it enciphered or deciphered; when you're done, c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2343	2451	
==>n a closure.  Call the closure with a block of 
data to have it enciphered or deciphered; when you're done, c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2503	2646	
==>{
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_messag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2503	2646	
==>{
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_messag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24528	24626	
==>y not be adding handlers that have to parse flags, but if
you do, remember to follow this model cor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28628	28724	
==>dules, but it expects you
to make modules having a specific simple API that will serve their role <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28628	28724	
==>dules, but it expects you
to make modules having a specific simple API that will serve their role <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11863	11966	
==>ntities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11863	11966	
==>ntities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1976	2081	
==>ex only) or a dynamic lookup. 



This object-serialization format is shared across all runtimes.



=head <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1902	2003	
==>ex only) or a dynamic lookup. 

This object-serialization format is shared across all runtimes.

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	677	795	
==>d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	677	795	
==>d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12616	12724	
==>URLY)) {
    # there was a {n,m} quantifier with n > m
  }

=head2 Standard Warnings and Errors

Here are the <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	72	177	
==>all::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2075	2175	
==>ort of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2075	2175	
==>ort of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	146	282	
==>code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	146	282	
==>code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.m <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	785	901	
==>0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_half_odd (Num $x) {
	return int($x.is_odd ? <==
2	/Users/nnunley/pugs/util/fixauthors.pl	460	572	
==>= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $uid = shift;
  
  my $html=get("http://searc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2583	2761	
==>s(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2583	2761	
==>s(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $ms <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2306	2440	
==>::Internals::eval_yaml($code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and r <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7662	7778	
==>dirs($index);
    
    my $output_path = catfile($output_dir, $path);
    my $index_file =  catfile($output_path,"ind <==
2	/Users/nnunley/pugs/util/addauthors.pl	374	469	
==>s();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31227	31323	
==>, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31227	31323	
==>, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if y <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11449	11592	
==>push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.pus <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11449	11592	
==>push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1861	2009	
==>H
        CONTROL
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait => '$_' } } ));
    }
    __PACKA <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	547	644	
==>in a safe
context (such as the IRC evalbot) using `is safe` or `is unsafe`.

For functions exporte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1426	1535	
==>as Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_logi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1426	1535	
==>as Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_logi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50405	50542	
==>y'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('identifier'),
    # meth <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3050	3153	
==>ts
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3050	3153	
==>ts
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11150	11246	
==>t exists as a container
in which Node objects live.  The Document class is pure and deterministic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11150	11246	
==>t exists as a container
in which Node objects live.  The Document class is pure and deterministic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8530	8673	
==>,
      flags => $rx->{flags}[-1],
      family => 'clump',
      type => 'clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7474	7601	
==>ags => $rx->{flags}[-1],
      family => 'close',
      type => 'anyof_close',
      raw => ']',
      omit => 1,
      up => 1, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	570	719	
==>ubmethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pair <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	570	719	
==>ubmethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pair <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2097	2211	
==>c DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Di <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2097	2211	
==>c DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which is a "C<body>" element of sorts.

Di <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	819	952	
==>or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	819	952	
==>or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.mat <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	816	930	
==>1 DESCRIPTION

This module provides information about the server your CGI is running on. It also 
attempts to provi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	816	930	
==>1 DESCRIPTION

This module provides information about the server your CGI is running on. It also 
attempts to provi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4485	4594	
==>{
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub ws {
  my ( $matchObj ) = @_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1462	1581	
==>on => { 
            required => 1, store => \$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installat <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2196	2303	
==>expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n/){
		    $valuex = eval("\"$value\""); die "b <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	716	824	
==>in->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub DESTROY {}

package Module <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10982	11069	
==>s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1495	1629	
==>]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1495	1629	
==>]}->{capture};
    return sub { $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2240	2347	
==>nly:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: hello_wo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8231	8339	
==>ad of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8231	8339	
==>ad of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2994	3115	
==>> sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2994	3115	
==>> sub ($match, &continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	516	770	
==>eturn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	516	770	
==>eturn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ros <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3490	3624	
==>ude;
    @include = ("t") unless @include;
    my $include_re = join( "|", map { quotemeta } @include );
    $Config{include_re} = qr/\ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	220	324	
==>_t($self:) returns Int {
    ...
}

method add($self: Duration $duration) returns Date {
    ...
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2482	2709	
==>(defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verba <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2482	2709	
==>(defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verba <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3830	3975	
==>r, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3830	3975	
==>r, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6901	7049	
==>t} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6674	6813	
==>t} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2151	2264	
==>{
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return " <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	660	769	
==>"Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        w <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	627	736	
==>"Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22660	22781	
==>een created, this key is deleted; this gives the
code a way to be sure compilation was successful.

=item maxpar

The high <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4383	4521	
==>},

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@:slots')})->sca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12963	13089	
==>package, which means
you can access them as though they were methods.  They return two
values, their numeric value, and a forma <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3002	3158	
==>lf->report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        '$.skip'   => 1,
                        '$.number' => $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1277	1420	
==>edence}";
            }
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub emit_perl6_grammar {
    # item=>'<ite <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1664	1778	
==>@res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1664	1778	
==>@res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6841	6939	
==>e base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t} ||= type::operator::null <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2990	3178	
==>unless ( -d $obj->meta_dir ) {
                
                ### set up the dirs
                for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1687	1835	
==>]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1687	1835	
==>]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1130	1241	
==>_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	993	1099	
==>_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), '' );
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18079	18205	
==>visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(any <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14500	14626	
==>visual) {
          $S->error(RPe_IRANGE, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(any <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9113	9292	
==>!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12590	12769	
==>!body ),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7545	7681	
==>ases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->lice <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7602	7738	
==>ases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->lice <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4443	4548	
==>ple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4443	4548	
==>ple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1617	1720	
==>nguage, but supporting C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual method <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17233	17350	
==>us_ten,
	param => val(5),
);

# the pair function takes any param and returns a function that takes any param
# that f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26567	26663	
==>tor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a ne <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26567	26663	
==>tor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9897	9997	
==>f.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9897	9997	
==>f.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1876	2099	
==>w(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1876	2099	
==>w(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4660	4789	
==>should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5124	5253	
==>should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13283	13385	
==>l, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parame <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13341	13443	
==>l, we provide the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parame <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1568	1670	
==>keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SE <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1568	1670	
==>keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but see L</SE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	907	1077	
==>capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab ruleop::conc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	900	1057	
==>capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2282	2403	
==>ed::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2193	2311	
==>ed::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24993	25100	
==>ts is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24993	25100	
==>ts is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8446	8563	
==>* expr_result;
/*      fprintf(stderr,"api 14\n");*/
      if(ret != 3) {
        fprintf(stderr,"api 14 violation\n") <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1405	1487	
==>h_alias>|<external_scalar_alias>|<external_array_alias>|<external_hash_alias> }
rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8096	8199	
==>turn lists of spans.

In this example, @span may contain zero, one, two, or three spans, depending on
th <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8096	8199	
==>turn lists of spans.

In this example, @span may contain zero, one, two, or three spans, depending on
th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4365	4472	
==>the right method return value');
is($Object->superclass, undef, '... $Object got the right method return val <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6267	6374	
==>the right method return value');
is($Object->superclass, undef, '... $Object got the right method return val <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	601	700	
==>property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	601	700	
==>property is set.  If we ever need
them C<:)>

Note, if you want to specify an B<opaque> object, then <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17125	17264	
==>];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ( <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1384	1516	
==>ted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
} <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1384	1516	
==>ted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19761	19892	
==>unction to a string by giving it as a param to a higher order function
my $app_id_to_str = comb(
	fun => $app_to_str,
	param => $id, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	58	154	
==>l6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Core::Ref;

use Perl6::MM::Attribute;

package o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32206	32302	
==>ally turned on for this object (for flag assertions
and C<(?:...)>).

=item raw

The raw represen <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27369	27463	
==>E>

Makes harness ignore the exit status of child processes when defined.

=item C<HARNESS_NOTT <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12119	12222	
==>ink) . "'>" . encode_entities($whole) . "</a>";
      push @{$link_info->{$linkfile}}, $link;
      $lin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1193	1310	
==>le);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1193	1310	
==>le);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15138	15241	
==>ss
an argument to the method.  The old header value is always returned.
If the given header did not exis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15138	15241	
==>ss
an argument to the method.  The old header value is always returned.
If the given header did not exis <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19491	19623	
==>etc should just link to the top?
                # this is what you get at the moment
                push @bad_heading, "link in $so <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2477	2578	
==>trName *@attr_names) {
    for @attr_names -> $attr_name {
        if (!$?SELF.attr_name_exists( $attr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4273	4374	
==>y has one function, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_files);

Thi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27996	28094	
==>map");
is(t($list_plus_ten), "list int → list int", ":t map (\\x -> 10 + x)");

dies_ok { t($flat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15698	15971	
==>:p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15977	16250	
==>:p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	755	893	
==>e . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	748	886	
==>e . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1332	1685	
==>tion::AttrName $attr_name) {
    return %!attrs.exists($attr_name);
}

###########################################################################

} # class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19365	19466	
==>t $status = 0)
{
    Pugs::Internals::exit($status);
}


 multi Control::Basic::nothing ()


 multi Co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11478	11586	
==>DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
fi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11478	11586	
==>DO

=over 4

=item I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
fi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3747	3855	
==>example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
lat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3747	3855	
==>example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
lat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36316	36422	
==>re'].  This method is used
internally by translate_message() to produce the list of Template module
names t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36316	36422	
==>re'].  This method is used
internally by translate_message() to produce the list of Template module
names t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1281	1411	
==><variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1281	1411	
==><variable> | <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_ru <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4720	4828	
==>required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5372	5480	
==>required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25255	25349	
==>=item C<FAILED tests %s\n\tFailed %d/%d tests, %.2f%% okay.>

For any single script that has fa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1643	1762	
==>use Scalar::Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		my $node = shift;
	
		my $h = D <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	393	489	
==>sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser::Diag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1114	1291	
==>xists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key ! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1114	1291	
==>xists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key ! <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	911	1016	
==>less(\@_, $_[0]) }

sub AUTOLOAD {}

sub DESTROY {}

# Restore warning handler
BEGIN {
	$SIG{__WARN__} = $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	995	1098	
==>efined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	995	1098	
==>efined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	454	567	
==>$c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9872	9985	
==>$c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2996	3103	
==>rence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2996	3103	
==>rence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6141	6247	
==>is builtin is safe {
    state(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIR <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	604	718	
==>ode {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "I <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	604	718	
==>ode {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "I <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15496	15603	
==>d, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will easily be
able h <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15554	15661	
==>d, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will easily be
able h <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14494	14632	
==>bdir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3335	3449	
==>erminator>
    | <Comment>
    | <Token>
    | <RegularExpressionLiteral>
}
rule WhiteSpace {  # see 7.2
      <TAB <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	196	307	
==>ting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class repr <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	196	307	
==>ting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class repr <==
2	/Users/nnunley/pugs/util/package-osx.pl	11961	12050	
==>symlinks($dest, %symlinks) if (keys %symlinks > 0);
&create_remover($dest, values %change_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	230	341	
==>.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLA <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	230	341	
==>.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLA <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17184	17325	
==>edtests) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13798	13898	
==>> <Arguments>
    | <CallExpression> <'['> <Expression> <']'>
    | <CallExpression> <'.'> <Identifie <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9111	9274	
==>= substr($str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.from;
              {$a}.push($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	0	100	
==>module Parse::Rule::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	0	100	
==>module Parse::Rule::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3546	3642	
==>he query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3546	3642	
==>he query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_par <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1950	2053	
==>ut utterly confusing synopsis, you should
be left with nothing but questions about what this object repr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1950	2053	
==>ut utterly confusing synopsis, you should
be left with nothing but questions about what this object repr <==
2	/Users/nnunley/pugs/util/package-osx.pl	9423	9542	
==>move_svn {
    my ($dir) = @_;
    print "Removing .svn under $dir\n";
    if (-e "$dir/.svn") {
        print `rm -rf $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4923	5009	
==>ule escape_sequence { <simple_escape_sequence> | <octal_escape_sequence> | <hexidecimal <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5974	6117	
==>>new('$string'),
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Sym->new('$string' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13543	13638	
==>tart => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holid <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13543	13638	
==>tart => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holid <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9628	9769	
==>n \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10464	10605	
==>n \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17129	17228	
==>hich provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtua <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17129	17228	
==>hich provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtua <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5044	5195	
==>more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5044	5195	
==>more than 24 hours according to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3305	3462	
==>gspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3293	3450	
==>gspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6188	6321	
==>( $n );
        if ( $n->{method}{bareword} eq 'print' ||
             $n->{method}{bareword} eq 'warn' ) {
            my $s = _em <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1459	1576	
==>rn { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Cat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1459	1576	
==>rn { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Cat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16180	16274	
==>node *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20606	20700	
==>node *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18923	19030	
==>n. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subrout <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18923	19030	
==>n. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subrout <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2834	2962	
==>mmary runcore>) {
    print "The submitted smoke has an invalid format!";
    exit;
  }

  $smoke{pugs_revision} ||= 0;
  $smoke{ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13939	14035	
==>ulti Hash::values (%hash ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7245	7371	
==>e
        # successfully loaded template module; on a function call
        # death, assume module is damaged and say so; an un <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7245	7371	
==>e
        # successfully loaded template module; on a function call
        # death, assume module is damaged and say so; an un <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1003	1116	
==>Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1003	1116	
==>Str>

=item B<remote_address returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14081	14177	
==>Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14081	14177	
==>Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1955	2072	
==>ch->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1955	2072	
==>ch->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	438	549	
==>$Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package_prefix  package_authority   pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	924	1016	
==>up_finder->duplicate_nodes($program);

=head1 DESCRIPTION

Useful as a first pass in the code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2703	2947	
==>calar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2703	2947	
==>calar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	612	726	
==>d end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	612	726	
==>d end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method sta <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4	103	
==>v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to n <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4	103	
==>v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to n <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	796	916	
==>height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	796	916	
==>height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	29	126	
==>rict;
use warnings;
use base 'Object::Accessor';

use JIB::Constants;
use JIB::Config;

use JIB::P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21635	21735	
==>,
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21635	21735	
==>,
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(cha <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1982	2072	
==>ditionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unoffi <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1982	2072	
==>ditionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unoffi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	313	428	
==>ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1841	1956	
==>ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLI <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3162	3363	
==>e ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3162	3363	
==>e ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17069	17176	
==>imal number indicating the size in bytes of the message content.

=item $h.content_language

The natural lan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17069	17176	
==>imal number indicating the size in bytes of the message content.

=item $h.content_language

The natural lan <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	278	375	
==>e::Junctive isa Perl::Type;

# junctive types can only be disjunctions and conjunctions, so
# sub- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1186	1295	
==>se {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	if (exists $self->{se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20708	20807	
==>is:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20708	20807	
==>is:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6615	6720	
==>tor
	}, $class;
}

# functions are applied 
package fun;
use base qw/node/;

package comb;
use base qw/nod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2795	2930	
==>ete $args->{SIGN};
    }

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11013	11110	
==>see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNumericLiteral> <StrWhiteSpace>?
}
rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17369	17484	
==>it is written in the US.

=item $h.title

The title of the document.  In libwww-perl this header will be
initialized <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17369	17484	
==>it is written in the US.

=item $h.title

The title of the document.  In libwww-perl this header will be
initialized <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23263	23363	
==>ribute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27815	27915	
==>ribute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if not <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22616	22715	
==>bject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of St <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27168	27267	
==>bject to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of St <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	334	451	
==>plement this and get the rest for free
# NOTE: 
# compare returns a native boolean though,
# so it should be considere <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8182	8275	
==>tch_sub if ( $match == "Sub" );
  ($operator) = newfrom($matchObj, $whitespacePosition, $match <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9929	10050	
==>{skipped} + $test{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$test{max} skipped: $test{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14163	14302	
==>cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation::Example *@others) returns Relation::Example {

    if ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16776	16873	
==>the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 wi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16776	16873	
==>the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 wi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4376	4533	
==>to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inn <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4376	4533	
==>to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inn <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8130	8234	
==>, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In rea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8130	8234	
==>, it should not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In rea <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2267	2415	
==>tter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2267	2415	
==>tter
        # since we know the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1936	2118	
==>ch->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1936	2118	
==>ch->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24936	25028	
==>The Locale::KeyedText::Message Class

A Message object is a simple container which stores dat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24936	25028	
==>The Locale::KeyedText::Message Class

A Message object is a simple container which stores dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1286	1421	
==>ters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1274	1409	
==>ters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5861	5953	
==>terface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5861	5953	
==>terface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6669	6777	
==>y $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWA <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6727	6835	
==>y $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWA <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	355	456	
==>d from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_dura <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	355	456	
==>d from_datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_dura <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3980	4145	
==>/
      int i;
      for(i=0;i<=r->nparens;i++) {
        r->startp[i] = -1;
        r->endp[i] = -1;
      }
      r->lastparen = r->lastcloseparen = 0;
    }

    n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1364	1508	
==>header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1364	1508	
==>header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13261	13371	
==>_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # alpha POSIX <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	510	617	
==>ire Cwd;
        die << ".";
*** Error: $self->{file} does not exist!
    Current directory is @{[Cwd::abs_p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	970	1083	
==>cl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1107	1220	
==>cl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0], '$<rule>' ), <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	704	827	
==>'hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->incr <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3300	3409	
==>method mday returns Int { $.day }
method mday_0 returns Int { $.day - 1 }

#use Duration::Gregorian;# qw(durat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	618	724	
==>$masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2995	3136	
==>Config;
        $perl_version = $Config::Config{version};
        
    } else {
        my $cmd  = $perl .
                ' -MConfig -eprint+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30966	31057	
==>racter class, its handler
must start with "POSIX_".

=item $parser->del_handler(@handle_name <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6646	6924	
==>'$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App->new(
                                Sym->new('&fib') <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7573	7689	
==>ser::anyof;
  sub emit {
    my($o)=@_;
    my $re = $o->visual();
    if($o->{'flags'} & $o->flag_val_i) {
       $r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14290	14405	
==>() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14290	14405	
==>() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7352	7512	
==>\$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7352	7512	
==>\$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16154	16287	
==>ore than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16154	16287	
==>ore than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_typ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3182	3310	
==>l o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3182	3310	
==>l o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1951	2040	
==>xegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1951	2040	
==>xegeses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14508	14663	
==>_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                dele <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3777	3881	
==>ethods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3777	3881	
==>ethods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistribute i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1835	1934	
==>d2 C<_init>

  $strap->_init;

Initialize the internal state of a strap to make it ready for parsing <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5689	5798	
==>processes" from actual module documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5492	5597	
==>processes" from actual module documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	121	228	
==>s

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ----------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	121	228	
==>s

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ----------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5645	5775	
==>$name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5633	5763	
==>$name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4096	4296	
==>tput
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die " <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4096	4296	
==>tput
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die " <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3174	3327	
==>om PIL2JS Array.pm r8593.
#multi List::zip (Array *@arrays --> List) {
#  my $maxlen = max map { +$_ }, @arrays;
#  map {
#    my $i := $_;
#    map { @ar <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7151	7269	
==>d\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_dir/exe/*>,
         <$ddoc_dir/syn/*>);
    $syn_indexs = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1224	1356	
==>that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4702	4834	
==>that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # S <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6984	7146	
==>eturn sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6984	7146	
==>eturn sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $cl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6115	6267	
==>ue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6115	6267	
==>ue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9315	9448	
==>eaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_hei <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9315	9448	
==>eaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_hei <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9990	10089	
==>>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9990	10089	
==>>

Returns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36614	36711	
==>urned Relation is identical to the
invocant.  Another trivial case is where any any source relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41163	41260	
==>urned Relation is identical to the
invocant.  Another trivial case is where any any source relatio <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	608	703	
==>.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
s <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	608	703	
==>.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims to support the full Perl 6
s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1675	1808	
==>t,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1675	1808	
==>t,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7908	8037	
==>efined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7966	8095	
==>efined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16485	16580	
==>(1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_siz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16485	16580	
==>(1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_siz <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7503	7595	
==>$self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7503	7595	
==>$self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9089	9188	
==>kages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9089	9188	
==>kages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4158	4263	
==>r1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
sect <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4158	4263	
==>r1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
sect <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5016	5152	
==>tart,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5016	5152	
==>tart,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16352	16480	
==>base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back . <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16352	16480	
==>base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code back . <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	753	859	
==>-> $line is copy {
		++$lineno;
		$line ~~ s:perl5/[#;].*$//;
		$line ~~ s:perl5/\s*$//;
		$line ~~ s:perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2449	2581	
==><before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2449	2581	
==><before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !def <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9275	9375	
==>2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9275	9375	
==>2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	752	863	
==>tch" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	752	863	
==>tch" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	765	876	
==>undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	765	876	
==>undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    capture - the tree of ca <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	736	861	
==>exed{$_} ] } 
            keys %indexed;

    if( scalar @metas > 1 ) {
        warn "More than one result found, using highes <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14723	14888	
==>asier
        $sobj->objectify_text;

        for my $headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	720	854	
==>hat is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  g <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	720	854	
==>hat is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  g <==
2	/Users/nnunley/pugs/util/run-smoke.pl	695	816	
==>optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->lookup('smoke_upload');
my $smoke_upload_scri <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13653	13797	
==>nge = 1
    goto scan
  endclass:
    $S0 = substr target, pos, 2
    if $S0 != "]>" goto err_bracket
    pos += 2
    mpos = pos
    mob["value" <==
2	/Users/nnunley/pugs/util/package-osx.pl	12	118	
==>erl

use strict;
use warnings;

unless (@ARGV == 2) {
    print <<"";
Usage:
    package-osx.pl [pugs|parro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11191	11369	
==>$match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => \0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21820	21919	
==>our longest name string for formatting purposes.
    my $max_namelen = length($failed_str);
    fore <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5264	5392	
==>me' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5264	5392	
==>me' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other dat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8374	8467	
==>tart_element ('line_interpolation')>

This event is begun when any block of characters is inte <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8374	8467	
==>tart_element ('line_interpolation')>

This event is begun when any block of characters is inte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	403	508	
==>is sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	403	508	
==>is sub should set .from and .to in match nodes!
#     - it should be called only once, whenever there is a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2441	2548	
==>rn $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2441	2548	
==>rn $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8331	8433	
==>ontinue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8331	8433	
==>ontinue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7314	7424	
==>(splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7314	7424	
==>(splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	655	812	
==>@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5359	5456	
==>ti sub ToBoolean(JSX::Value::Undefined $v) { JSX::false }
multi sub ToBoolean(JSX::Value::Null $v) <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4864	4961	
==>d.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fixup->('Pugs.Embed.Parrot') if grep /^-DPUGS_HA <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1335	1434	
==>,'[TParam]',
  'pLValue'  ,'Bool',
  'pIsMulti' ,'Bool',
  'pBody'    ,'PIL_Stmts';

node_h 'PIL_Dec <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1431	1520	
==>*)*\@${re_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_symbol}\s*, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6968	7189	
==>ain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6968	7189	
==>ain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        retu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26066	26170	
==>5.10.1
      <!before <IdentifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1
      <De <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2901	3033	
==>{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
}

CONVERSION_SUBS

m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2004	2112	
==>---------------------------------------------------------------
## adding children 

method add_child ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2004	2112	
==>---------------------------------------------------------------
## adding children 

method add_child ($self: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19339	19431	
==>f a challenge that indicates the
authentication scheme and parameters applicable to the reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19339	19431	
==>f a challenge that indicates the
authentication scheme and parameters applicable to the reque <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1765	1938	
==>,
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'infix:<|>',
    #);

    __PACKAGE__->add_rule( 
        name => 'eq',
        assoc => 'left', <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4858	4995	
==>and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4858	4995	
==>and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6258	6381	
==>ex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6258	6381	
==>ex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3196	3362	
==>,
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3443	3609	
==>,
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4657	4783	
==>new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4497	4619	
==>new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27909	28018	
==>Relation::Example as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5003	5102	
==>copy( from => $file|$dir, to => $target );

Copies a file or directory to the target, recursively

R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19131	19233	
==>ssertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15552	15654	
==>ssertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23891	24012	
==>) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20312	20433	
==>) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ift <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2995	3102	
==>elf.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2995	3102	
==>elf.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12471	12656	
==>'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12471	12656	
==>'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8552	8671	
==>iolation\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBAC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	83	181	
==>$self->add_flag('m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 });
  $self->add_flag('i' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8372	8475	
==>age Regexp::Parser::clump;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15719	15818	
==>e env is augmented to contain the new symbol introduced by the binding
# the body of the binding con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15688	15808	
==>= ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10544	10664	
==>= ($1, $2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13002	13101	
==>hod returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data stru <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13002	13101	
==>hod returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data stru <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7820	7923	
==>ist );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7820	7923	
==>ist );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7361	7463	
==>e by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7361	7463	
==>e by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
sub p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36495	36734	
==>elf:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1527	1631	
==>ilon - tolerance (how accurate the answer must be)
    fprime  - an exact first derivative of f (which Ne <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2265	2355	
==>w(-w ./util/yaml_harness.pl),@yaml_harness_args) == 0 or die "Could not run yaml harness: $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8477	8580	
==>are( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::Fals <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8477	8580	
==>are( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool::Fals <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7419	7519	
==>tr $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = B <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7419	7519	
==>tr $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	752	868	
==>if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12543	12661	
==>>available };
    my @avail = grep { $_->package ne $inst_pkg->package } @prev;
    
    ### no change!
    return if @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1473	1590	
==>al( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1473	1590	
==>al( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1433	1565	
==>, :second( $second ),
          :tz($tz) );
}

# convert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23407	23508	
==>assword =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23407	23508	
==>assword =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8037	8174	
==>y;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8037	8174	
==>y;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $span is copy) returns bool {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	950	1064	
==>) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    re <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	950	1064	
==>) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27673	27780	
==>od returns a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named paramete <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27673	27780	
==>od returns a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 named paramete <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5981	6101	
==>f_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to fo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6039	6159	
==>f_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to fo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	569	711	
==>$tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	569	711	
==>$tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $tmp == -Inf;
        unshift @e <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1130	1283	
==>$meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1130	1283	
==>$meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6111	6213	
==>rl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6111	6213	
==>rl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.b <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4808	4906	
==>iledtests) = _run_all_tests(@tests);
    _show_results($tot, $failedtests);

    my $ok = _all_ok($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	942	1037	
==>pkg = JIB::Package->new( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Sou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11307	11419	
==>f $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11307	11419	
==>f $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14113	14224	
==>ehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14113	14224	
==>ehow b0rked, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1430	1564	
==>*@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1430	1564	
==>*@items) returns Int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	769	950	
==>ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	769	950	
==>ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	559	657	
==>!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_IN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	559	657	
==>!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_IN <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2096	2184	
==>addToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7681	7823	
==>app.perl;
        my @args;
        for %app<"pArgs"> {
            push @args, traverse_ast ( $_[0][1][0][1] );
        }
        dbg "# Argum <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11198	11301	
==>(tie) result is achieved.

Criterion can take a few different forms:

=over 8

=item Comparator

A closu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7782	7868	
==>:Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_el <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1607	1693	
==>:Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_el <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	697	819	
==>ilddir ] )    and die "$?";

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6561	6647	
==>al(posSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_matchre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	706	842	
==>meters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	706	842	
==>meters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21849	21954	
==>It is also valid
for a Relation to have zero attributes, though such a Relation can have no
more than a si <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26401	26506	
==>It is also valid
for a Relation to have zero attributes, though such a Relation can have no
more than a si <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	77	217	
==>::Tangram);

our $VERSION = 0.01;

# an example of a Tangram schema structure
our $schema =
    { fields =>
      { ref =>
        { schema = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41241	41331	
==>parate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided fe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41241	41331	
==>parate files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided fe <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2466	2580	
==>m PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    Y       safe   (Arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1721	1842	
==>$string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1721	1842	
==>$string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25216	25386	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25495	25665	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'gr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20761	20873	
==>atus is $estatus)\n" if $^O eq 'VMS';

    $tot->{bad}++;

    if ($test->{max}) {
        if ($test->{'next'} == <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1824	1976	
==>e for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work b <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1824	1976	
==>e for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work b <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11266	11378	
==>MS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = @INC unless @inc;

    if( $self->{_is_vms} ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7637	7773	
==>prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7637	7773	
==>prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6937	7040	
==>eal_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6937	7040	
==>eal_content);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2267	2466	
==>in = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        els <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2267	2466	
==>in = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        els <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2465	2597	
==>l/gen_prelude.pl -v -i src/perl6/Prelude.pm>,
                (map { ('-i' => $_) } @{ PugsBuild::Config->lookup('precompile_modules' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18441	18562	
==>code .= "}\n";

    eval_p5_code($code);
}
sub p6_wrap_code_with_package {
    my($code,$pkg)=@_;
    "package ${ROOT}::$p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21556	21713	
==>se {
        if 1 {
          Pugs::Internals::compile_file_to_yml($path);
        }
      }
      return opRequire();
    }
    die "Can't find " ~ $file ~ ' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11020	11124	
==>urn join $Config{path_sep}, $self->_filtered_INC;
}

=head2 C<_filtered_INC>

  my @filtered_inc = $self- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9090	9190	
==>y incompatible types:\n" . Dumper(@_);
};


# these are the type signatures of some builtins
our %pre <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	755	856	
==>ME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1726	1880	
==>mand (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1726	1880	
==>mand (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nic <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32579	32677	
==>ion, its
main purpose is to convert Message objects on demand into user-readable
message strings, u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32579	32677	
==>ion, its
main purpose is to convert Message objects on demand into user-readable
message strings, u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16368	16462	
==>h@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. Al <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16426	16520	
==>h@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. Al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	128	244	
==>s is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	128	244	
==>s is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22165	22287	
==>${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18586	18708	
==>${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S-> <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20204	20308	
==>-M> doesn't work. :(
multi prefix_M ($file) is builtin is primitive is unsafe {
  if not -e $file {
    u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4921	5017	
==>) returns str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) returns nil>

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3162	3262	
==>ompare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3220	3320	
==>ompare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1065	1192	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1021	1143	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6197	6313	
==>n_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6197	6313	
==>n_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5163	5305	
==>elf._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5163	5305	
==>elf._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @ <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	309	416	
==>sents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The f <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	309	416	
==>sents an infinite recurrence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15038	15142	
==>ethods can both be used to read
and to set the value of a header.  The header value is set if you pass
an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15038	15142	
==>ethods can both be used to read
and to set the value of a header.  The header value is set if you pass
an <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14272	14384	
==>IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14272	14384	
==>IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $tra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6147	6339	
==>t /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6147	6339	
==>t /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	800	894	
==>class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	800	894	
==>class Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Mess <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8571	8672	
==>ation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fir <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8571	8672	
==>ation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fir <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6823	6925	
==>1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6823	6925	
==>1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.is <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10468	10573	
==>')]';
    my $namestr = $stringify->($name);
    my $code_args = "";
    $code_args .= "'\$.name'=>$namest <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27780	27883	
==>lse { MatchX->new()->set_as_failed() }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\&r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	972	1095	
==>rchive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
        my $meta_dir = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8667	8763	
==>peSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			struct_equiv => $rparam,
			orig = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3108	3218	
==>=> sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3108	3218	
==>=> sub ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10430	10537	
==>$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10430	10537	
==>$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1774	1908	
==>.

=cut

sub _rmdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR }, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21856	21985	
==>_LineTerminator_here><Expression>? <';'>
}
rule WithStatement :words {  # see 12.10
      <'with'> <'('> <Expression> <')'> <State <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	605	721	
==>ed on the objects /current/
### value.. this allows subdirs to 'change' magically if a rootdir gets changed

### base <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8320	8428	
==>my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder = Blondie::TypeSafe::Type::Placeholder-> <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	949	1116	
==>" } );
        $buf = "";
        last;
      }

      $buf ~= $i
        if defined $i;

      my @newtoks = $split.($buf);
      while +@newtoks > 2 
         || +@ne <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	2	106	
==>Zuweisungsoperator
$x = $y; # wie bei Perl 5, erzeugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14395	14502	
==>$h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14395	14502	
==>$h.as_string( $eol )

Return the header fields as a formatted MIME header.  Since it
internally uses the C<s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6181	6284	
==>rmalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6181	6284	
==>rmalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21061	21165	
==>ll tuples in a Relation are of the same
degree, and the attribute names of each tuple are all the same as <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25613	25717	
==>ll tuples in a Relation are of the same
degree, and the attribute names of each tuple are all the same as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34247	34341	
==>tem C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34247	34341	
==>tem C<new( :@set_names!, :@member_names! )>

This method creates and returns a new Locale::Keye <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	438	558	
==>arch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs i <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	438	558	
==>arch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2814	2910	
==>al' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2814	2910	
==>al' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL { <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15036	15136	
==>words {  # see 11.6
      <MultiplicativeExpression>
    | <AdditiveExpression> <'+'> <Multiplicative <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5862	5961	
==>:Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5862	5961	
==>:Spec::Unix;

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec::Unix module.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1679	1787	
==>$self->next;
  return 1;
}


sub root {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self-> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27967	28063	
==>nt version.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C<HAR <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7208	7311	
==>negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CA <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7266	7369	
==>negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CA <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21053	21160	
==>];
    #my $ret = eval "package $pkg;".<<'    END';
    #  no strict;defined($$mn)?$$mn:p6__lookup('$mn','$n <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9972	10073	
==>ports. These smokes are
    automatically generated and show how much a given backend (normal
    Hask <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	633	757	
==>.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	633	757	
==>.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5883	5985	
==>onn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5883	5985	
==>onn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1224	1336	
==>{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1224	1336	
==>{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3645	3741	
==>=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3645	3741	
==>=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15957	16051	
==>?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15957	16051	
==>?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2961	3065	
==>(@_)}
sub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_native { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1062	1163	
==>d from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat() <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1062	1163	
==>d from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat() <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	267	425	
==>('$cond'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6789	6887	
==>per::Indent = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::Backe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1502	1635	
==>accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1502	1635	
==>accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1761	1875	
==>eturn $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1761	1875	
==>eturn $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25469	25689	
==>elf:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=p <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1229	1341	
==>{
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) {
    print "No smoke given!" <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	812	926	
==>ne 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'ma <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	812	926	
==>ne 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'ma <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7216	7349	
==>y @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @modfiles > 0 },
  using  => sub {
    @modfiles = map { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6562	6672	
==>y.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6562	6672	
==>y.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17790	17898	
==>zilla/1.2';

=item $h.server

The server header field contains information about the software being
used by t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17790	17898	
==>zilla/1.2';

=item $h.server

The server header field contains information about the software being
used by t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9022	9126	
==>n $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9022	9126	
==>n $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $span0.union( $span1 );
    return @uni <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6676	6856	
==>current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    me <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6676	6856	
==>current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    me <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1917	2064	
==>heck_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $se <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1917	2064	
==>heck_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16236	16373	
==>" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16230	16367	
==>" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1] <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10323	10433	
==>ic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10323	10433	
==>ic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2124	2237	
==>arse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $o <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2124	2237	
==>arse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8552	8730	
==>ol => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8552	8730	
==>ol => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4914	5017	
==>eturn ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4914	5017	
==>eturn ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x is copy ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5100	5240	
==>st->{stmt} eq 'if' or $ast->{stmt} eq 'unless' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 's <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	118	214	
==>rator - Internal Test::Harness Iterator

=head1 SYNOPSIS

  use Test::Harness::Iterator;
  my $it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20268	20376	
==>amp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20268	20376	
==>amp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12024	12131	
==>if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4667	4774	
==>if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler(' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21050	21150	
==>at only the last of these fields will be present in the header
after the call.  All values ought to b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21050	21150	
==>at only the last of these fields will be present in the header
after the call.  All values ought to b <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1463	1589	
==>ith_package($1,'main');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	514	624	
==>calar::Alias;

sub TIESCALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $var_ref, $clas <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8095	8193	
==>et containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=hea <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8095	8193	
==>et containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=hea <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2505	2637	
==>r . '/index';              # index file for the repo

### be strict from here on down
{   use strict;

    ### parse package names ea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1596	1738	
==>(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1596	1738	
==>(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12201	12298	
==>er is a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12201	12298	
==>er is a member of the recurrence.
Otherwise, returns the previous element in the recurrence.

- `c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	325	448	
==>ILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	325	448	
==>ILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3619	3720	
==>`new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- ` <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3619	3720	
==>`new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoch.

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1217	1360	
==>ess $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlie <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1217	1360	
==>ess $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" !! ")";
            --$in_curlie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6410	6527	
==>$state = $_[1] || $node;
        my $st = $state->( $_[0], undef, @_[2..7] );
        return concat( [ $node, $state <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9989	10104	
==>quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9983	10098	
==>quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$na <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3103	3205	
==>tr $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3103	3205	
==>tr $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3611	3778	
==>ft(), 
                                                'JIB::Package::Binary') }; 
use constant ISA_JIB_PACKAGE_INSTALLED
                            => sub { UNIVERSAL <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4561	4698	
==>r ) . " ]?"
        );
        #print "optimized: [",join(",",@rules),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3808	3926	
==>{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7285	7403	
==>{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39306	39400	
==>e>

This multi-method is a generic binary relational operator that is identical
to C<join> exce <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2224	2317	
==>en;
    $tokenClone{syncat} = PGE_OPTABLE_CLOSE;
    $self->operatorTable()->{$spacePresent[1] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	47	163	
==>p];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	47	163	
==>p];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9514	9605	
==>$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9514	9605	
==>$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20916	21013	
==>gument list to the constructor or header() method, the same
field name should not occur multiple t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20916	21013	
==>gument list to the constructor or header() method, the same
field name should not occur multiple t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4324	4446	
==>$name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4324	4446	
==>$name =~ /^\@/;
    if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] has <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22710	22814	
==>ce(@args,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confess "Error: Application of und <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22309	22400	
==>n version 0.1.0.

It also describes the same-number versions of Relation::Heading ("Heading" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36912	37031	
==>b init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->ad <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5568	5673	
==>a('type'))
        || confess "You must set '$name' to a native type";
    $self->{env}->{$name} = referen <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5413	5512	
==>ence to a URI object.

You will not be able to examine the response code or response headers
(like ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5413	5512	
==>ence to a URI object.

You will not be able to examine the response code or response headers
(like ' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	572	702	
==>ng () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertio <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	572	702	
==>ng () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertio <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3382	3500	
==>set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3382	3500	
==>set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4490	4609	
==>:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $arg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	449	552	
==>=> \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	449	552	
==>=> \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10034	10142	
==>}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10034	10142	
==>}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6309	6419	
==>ision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'sca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6309	6419	
==>ision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'sca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2989	3181	
==>e, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $sec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2989	3181	
==>e, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $sec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31423	31527	
==>>);
  }

For those of you that don't know, C<(?p{ ... })> is a synonym for the
more common C<(??{ ... })> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7398	7533	
==>0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7398	7533	
==>0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::D <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18667	18761	
==>sufficiently
like what the core expects to avoid problems.  While simultaneously
trying to avoi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2957	3051	
==>sufficiently
like what the core expects to avoid problems.  While simultaneously
trying to avoi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3089	3240	
==>ename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3306	3457	
==>ename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Pe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19031	19147	
==>ine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19031	19147	
==>ine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code bl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3761	3862	
==>.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3761	3862	
==>.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2294	2404	
==>et $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_supe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2294	2404	
==>et $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_supe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9383	9492	
==>return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9383	9492	
==>return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6318	6524	
==>{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%prec $prec\n" .
                        "\t/* $op->{name} $op->{fixity} $op->{assoc} */\n";
                } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30155	30245	
==>lation::Example's header, in which case it returns the identity-one
Relation::Example or th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18338	18432	
==>ploy appropriate measures
such as system-managed locks so that resource corruption or applicati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18338	18432	
==>ploy appropriate measures
such as system-managed locks so that resource corruption or applicati <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3668	3870	
==>rchive to the temp dir
        system( qq[tar -f ] . $self->file . qq[ -C $my_tmp_dir -xz]) 
                                                                and die $?;

        ### extract the meta info <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1455	1561	
==>n ( $span, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1455	1561	
==>n ( $span, $self ) if $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.sta <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9348	9493	
==>lp   => "We're now creating a zeroed image we will later mount.";

  step
    descr  => "Creating an ext2 filesystem on \"$initrd_img\"",
    ensu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2233	2337	
==>vel = 1;
    my $cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	118	214	
==>:DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	118	214	
==>:DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM:: <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	16	153	
==>erl 6 im Vergleich zu Perl 5
# Skalar:
say "$test";      # print "$test";

# Array:
say "@test[1]";   # print "$test[1]";

# Hash:
say "%t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18435	18558	
==>s C<strict> attribute to 1; the character
class would render as C<[\w\d:]>.  If you want to go even further and remove
any e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4048	4172	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4241	4365	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4013	4156	
==>1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not imple <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4013	4156	
==>1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not imple <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1067	1206	
==>n"; 
            
            # XXX @expect should use symbolic names; better use TABLE instead of 'literal'
            #print " @{[ sort @ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3186	3286	
==>_previous ),
        complement_previous => $self._get_intersection( $self.complement_previous, $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3186	3286	
==>_previous ),
        complement_previous => $self._get_intersection( $self.complement_previous, $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	230	346	
==>hift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        ass <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5483	5589	
==>mpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5483	5589	
==>mpdir = $.curdir unless $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6224	6329	
==>ed only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific-language-like syntax, contai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6011	6114	
==>ed only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific-language-like syntax, contai <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24598	24685	
==>C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1224	1346	
==>atdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # repla <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1224	1346	
==>atdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # repla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20196	20286	
==>m $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20196	20286	
==>m $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-Autho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6473	6576	
==>ts> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=ove <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6473	6576	
==>ts> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=ove <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4789	4885	
==>F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4789	4885	
==>F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3568	3654	
==>tified(W), p6_concatenation_more(W, Z), !.
p6_concatenation_more(W, Z) --> p6_quantifie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5434	5576	
==>llback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifeti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5434	5576	
==>llback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifeti <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5053	5177	
==>n =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5053	5177	
==>n =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5337	5456	
==>set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5337	5456	
==>set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18180	18306	
==>=> 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18180	18306	
==>=> 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3956	4097	
==>}
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3956	4097	
==>}
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10043	10157	
==>nnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10043	10157	
==>nnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25089	25229	
==>position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the regex string
    sub RxLEN               { $_[0]{l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5430	5669	
==>")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7192	7431	
==>")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e ge <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	270	377	
==>lock_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.bu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	270	377	
==>lock_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.bu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26988	27151	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27267	27430	
==>( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2303	2669	
==>re";
                            $body[-1] .= $statement;
                        }
                        else {
                            #warn "our other args $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'su <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15036	15144	
==>sub { $_[0] },
      code  => sub { $as_hash_complain->("code") },
      ref   => sub { $as_hash_complain->(" <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20760	20877	
==>r};	    
	    $dir_index->{_dirs}->{$subdir . "/" . $subsubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4056	4155	
==>cript to run after the kernel has started.
  --welcome-p6=$welcome_p6
    --welcome-p6 is a Perl 6 p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7985	8095	
==>eld $^node }, $traversal_order);
    };
}

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7985	8095	
==>eld $^node }, $traversal_order);
    };
}

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	500	601	
==>];
use Test::Harness;
use Test::TAP::Model;
use File::Spec;
use Benchmark;
our @ISA = qw(Test::TAP::Mo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8438	8556	
==>it>
}
rule DecimalDigit {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3
      <'e'>
    | <'E'>
} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5989	6086	
==>term_literal_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_cclass .CCLASS_WHITESP <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5942	6041	
==>ew('@:superclasses')    => list->new(),
            attribute->new('%:private_methods') => hash->new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8246	8351	
==>f(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8246	8351	
==>f(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14223	14339	
==>ment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14281	14397	
==>ment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10422	10536	
==>ns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10422	10536	
==>ns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31720	31817	
==>t Relation::Example.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation::Exam <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14833	14952	
==>`` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14833	14952	
==>`` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16179	16282	
==>r value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16179	16282	
==>r value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contains a si <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17536	17627	
==>ty to ship precompiled modules without shipping Module::Compile and
the compiler modules the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17536	17627	
==>ty to ship precompiled modules without shipping Module::Compile and
the compiler modules the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	903	1074	
==>undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	903	1074	
==>undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4312	4433	
==>ewlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4312	4433	
==>ewlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	268	375	
==>o);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtractio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	268	375	
==>o);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtractio <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1866	1998	
==>:PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1866	1998	
==>:PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILT <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15105	15194	
==>xpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExpression> <'-'> <Multiplicati <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7128	7228	
==>tion to the output.

A default implementation of this method is provided which returns nothing.

=ite <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7128	7228	
==>tion to the output.

A default implementation of this method is provided which returns nothing.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4585	4690	
==>ipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4585	4690	
==>ipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ci <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	22	148	
==>e Cwd;
use Config;
use YAML            qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cw <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5494	5637	
==>]);
    die "$cls emit() unimplemented\n";
  }
  sub inf {
    1000**1000**1000 #XXX there has to be a better way. :(
  }
}
{
  package Regexp:: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19600	19701	
==>ti Conversions::List::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	765	910	
==>'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2046	2191	
==>'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This module should be core!" );
        return;
    }

    eval { File::Path <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1736	1834	
==>t '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3736	3824	
==>@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDunca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3736	3824	
==>@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@DarrenDunca <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	593	731	
==>ript ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	593	731	
==>ript ~~ m:P5 [/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10990	11156	
==>discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10990	11156	
==>discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	875	1017	
==>ar => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	875	1017	
==>ar => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18011	18121	
==>ering a sane process, by
parsing up your module's source code into various blocks; so that by the
time a compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18011	18121	
==>ering a sane process, by
parsing up your module's source code into various blocks; so that by the
time a compil <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23743	23850	
==>ributes are private, so you must use accessor
methods.  Relation::Example does not declare any subroutines o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4724	4820	
==>eturns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4724	4820	
==>eturns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2699	2807	
==>seperating it into 'name' and 'value' pairs.  This
method should be called before any other methods, as it in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2699	2807	
==>seperating it into 'name' and 'value' pairs.  This
method should be called before any other methods, as it in <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	355	482	
==>ethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	355	482	
==>ethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2745	2904	
==>.= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprint <==
2	/Users/nnunley/pugs/util/package-osx.pl	9112	9218	
==>/usr/local/bin");
    qx/ln -s $_ $symlinks{$_}/ for (keys %symlinks);
}


sub make_dir {
    my ($dir) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16463	16586	
==>$cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16463	16586	
==>$cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq ":";
    return $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1636	1738	
==>_object(anyof_char => $S->nchar($n), "\\c[$n]");
      }

      return $S->object(exact => join("", $S- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30282	30384	
==>-time before the text
is shown to the user.

Each Template module ideally comes as part of a set, at le <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30282	30384	
==>-time before the text
is shown to the user.

Each Template module ideally comes as part of a set, at le <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21990	22087	
==>y both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21990	22087	
==>y both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16363	16464	
==>ue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16363	16464	
==>ue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1537	1649	
==>supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = ' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1537	1649	
==>supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = ' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3863	3994	
==>ostamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5223	5353	
==>ostamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6620	6722	
==>vent::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6620	6722	
==>vent::Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3313	3421	
==>:Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	84	192	
==>:Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2578	2669	
==>t_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2578	2669	
==>t_child ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children retu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17717	17833	
==>$X::str,$start,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  return MatchX-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4497	4622	
==>od => $_[3], } }
    | exp '.' BAREWORD '(' exp ')'  %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4612	4729	
==>re} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4395	4507	
==>re} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        prin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	455	570	
==>st::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	513	628	
==>st::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is export {
    $Test <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3915	4014	
==>re_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3915	4014	
==>re_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	234	361	
==>ST

BEGIN {
    __PACKAGE__->add_rule( q() => q( \d+ { return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ retur <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3273	3373	
==>(0,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7783	7911	
==>/!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7783	7911	
==>/!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	852	978	
==>$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	861	987	
==>$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10677	10795	
==>:free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			$a,
			type::operator::arrow->new( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18521	18620	
==>rite out
that text themselves.

What Locale::KeyedText does is associate each member in a set of key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18521	18620	
==>rite out
that text themselves.

What Locale::KeyedText does is associate each member in a set of key <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32536	32643	
==>turns Relation>

This multi-method is the N-ary version of the aforementioned binary union()
operator, and t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37086	37193	
==>turns Relation>

This multi-method is the N-ary version of the aforementioned binary union()
operator, and t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3006	3105	
==>n\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35213	35309	
==>pping as its sole read-only argument. The new
Relation::Example has all of the same attributes as <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12647	12774	
==>handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12647	12774	
==>handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2574	2692	
==>f, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self.ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2574	2692	
==>f, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the results
    return ($self.ge <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9648	9737	
==>iFoo_singleton_method(), 
  '$iFoo::another_test_iFoo_singleton_method',
  '... got the ri <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7247	7348	
==>he DB and lock it exclusively. See perldoc -q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5748	5894	
==>fix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5748	5894	
==>fix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4095	4267	
==>} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4083	4255	
==>} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . joi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3806	3895	
==>our &Tree::insert_child ::= &Tree::insert_children;

## ---------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3806	3895	
==>our &Tree::insert_child ::= &Tree::insert_children;

## ---------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	492	641	
==>p;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %t <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	492	641	
==>p;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5654	5800	
==>ariable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5876	6022	
==>ariable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0]->{$k} = $_[2];
        }
    }
}

} # /p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7977	8080	
==>t will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7977	8080	
==>t will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4548	4678	
==>ompiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new compiler, that use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4393	4518	
==>ompiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new compiler, that use <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10366	10474	
==>T TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10366	10474	
==>T TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	649	779	
==>? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	649	779	
==>? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5028	5150	
==>or die $!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $te <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	789	903	
==>l {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or warn "opendir failed fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3534	3666	
==>undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3674	3806	
==>undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $matc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6109	6253	
==>ute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6109	6253	
==>ute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8393	8505	
==>p

 multi Array::grep (@values ;      Code *&test   --> Lazy )
 multi Array::grep (@values,   MatchTest $test   - <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1772	1874	
==>fway down the file to cut
# off construction.  Oh well.

#XXX - a possible task: Create a p5->p6 regexp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	239	342	
==>class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	239	342	
==>class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.re <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	73	195	
==>s;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms qw/smoke_runtime/;;

sub import {
	my $clas <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14527	14625	
==>out 0
color light-blue/black black/light-gray
hiddenmenu

title    $pugs_version
root     (cd)
kern <==
2	/Users/nnunley/pugs/util/run-smoke.pl	45	139	
==>e Shell qw(svn);
use Config;
use File::Spec;
use FindBin;
use lib File::Spec->catdir($FindBin:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1315	1447	
==>(<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1315	1447	
==>(<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	986	1102	
==>::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * pro <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	986	1102	
==>::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * pro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9071	9185	
==>port module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Som <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9129	9243	
==>port module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Som <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	72	160	
==>le, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.7 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	72	160	
==>le, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.7 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11420	11549	
==>dler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3011	3140	
==>dler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13813	13928	
==>}, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13813	13928	
==>}, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item encode_entities( $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	110	226	
==>erm'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	110	226	
==>erm'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2140	2246	
==>ns;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2140	2246	
==>ns;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2287	2432	
==>}
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALS <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2287	2432	
==>}
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALS <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9670	9763	
==>s safe {
    rx_common_("pugs_internals_rxbare",hash(),$pat,"/","/");
}
macro rx_ (%mods,$pat, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1334	1487	
==>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1334	1487	
==>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*Fu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14123	14232	
==>d, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_aut <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14123	14232	
==>d, we won't get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_aut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	850	1008	
==>] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	817	966	
==>] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8689	8793	
==>ck = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8689	8793	
==>ck = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<cha <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10793	10945	
==>ew(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DE <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10793	10945	
==>ew(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4541	4651	
==>e year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4541	4651	
==>e year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the da <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18407	18533	
==>Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18407	18533	
==>Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN) <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1533	1628	
==>he file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the M <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1373	1468	
==>he file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the M <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14079	14181	
==>catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_file($synp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47445	47560	
==>kage->send('add_method' => (
    # method label
        symbol->new('STORE'),
    # method body
        method->new( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	989	1109	
==>,');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	989	1109	
==>,');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22621	22748	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22900	23027	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statement;
*{'sub_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3425	3528	
==>\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4561	4663	
==>\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1340	1436	
==>e representations of @header_order.  This is used
# for sorting and case matching.
our %header_or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1340	1436	
==>e representations of @header_order.  This is used
# for sorting and case matching.
our %header_or <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6069	6189	
==>TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $o->mk_eater_for_re('\B') if $re eq '\B';
    return $o->mk_eater_fo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13301	13400	
==>ource =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!` <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13301	13400	
==>ource =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!` <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22223	22328	
==>ries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.noti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22223	22328	
==>ries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.noti <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2510	2630	
==>ads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2510	2630	
==>ads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3171	3269	
==>nc.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3229	3327	
==>nc.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $expec <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6774	6904	
==>rns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.paren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6774	6904	
==>rns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert siblings to a ROOT tree";
    $self.paren <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	763	870	
==>lti sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	763	870	
==>lti sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# c <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2228	2344	
==>= 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2228	2344	
==>= 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2607	2695	
==>.

=item C<$Test::Harness::switches>

The package variable C<$Test::Harness::switches> is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9975	10130	
==>ist;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9975	10130	
==>ist;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $su <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7154	7251	
==>nd_element ('header')>

This event is fired after the '=head(n)' directive and it's accompanying t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7154	7251	
==>nd_element ('header')>

This event is fired after the '=head(n)' directive and it's accompanying t <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	657	774	
==>ch[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(% <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	657	774	
==>ch[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(% <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5910	5999	
==>freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5910	5999	
==>freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1420	1540	
==>: {@tokens.perl}";
    return @tokens.shift;
  };
}


## Chapter 8 section 1.3

sub make_lexer (Code $lexer is rw, *@args <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12522	12656	
==>l(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: This should be the d <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1637	1754	
==>= @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1539	1635	
==>= @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3790	3938	
==>xists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3790	3938	
==>xists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw(uninitialized);
            my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1079	1178	
==>ented interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=ite <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1079	1178	
==>ented interfaces both follow the same basic steps, 
albeit with different interfaces:

=over 4

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24019	24114	
==>ompile-time macro-based approach to substitute the user's preferred
language into the program co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24019	24114	
==>ompile-time macro-based approach to substitute the user's preferred
language into the program co <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	155	254	
==>, 2, 3	# (1,2,3).prefix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultät; ist kein Standard- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4138	4237	
==>s and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4322	4421	
==>s and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Defaults to <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1593	1700	
==>RUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a star <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1593	1700	
==>RUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a star <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1615	1745	
==>l $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1582	1712	
==>l $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1293	1439	
==>ain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1293	1439	
==>ain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_por <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11723	11904	
==>:Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11723	11904	
==>:Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7008	7147	
==>ta);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7008	7147	
==>ta);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

us <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16030	16136	
==>so;
}

# This is a kludge. But for now, as a simple script, it suffices.
# This script doesn't run as root, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5642	5756	
==>.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5642	5756	
==>.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2096	2202	
==>> [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2096	2202	
==>> [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5974	6112	
==>$.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5974	6112	
==>$.end_is_open && $x < $.end;
    return $x      if ! $.end_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	74	200	
==>gify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	74	200	
==>gify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	396	503	
==>ined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	396	503	
==>ined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5954	6053	
==>0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "open ".$var.", '>' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18076	18175	
==>n the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18076	18175	
==>n the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if a pro <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39988	40224	
==>> 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19537	19764	
==>> 'opaque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6486	6648	
==>ults in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6486	6648	
==>ults in a domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11916	12010	
==>e set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11916	12010	
==>e set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1828	1957	
==>@!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1828	1957	
==>@!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2197	2375	
==>eys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2197	2375	
==>eys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1784	1886	
==>ethods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1784	1886	
==>ethods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13202	13305	
==>ry, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13202	13305	
==>ry, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1475	1612	
==>span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1475	1612	
==>span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38282	38385	
==>), and a Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38282	38385	
==>), and a Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy of $text m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10219	10372	
==>s{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10219	10372	
==>s{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23149	23242	
==>sors to them.  The Relation
library provides full generic implementations of all other necessa <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	775	893	
==>'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    requir <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	742	860	
==>'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    requir <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2116	2253	
==>}
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' f <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2116	2253	
==>}
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can't open '$module_path' f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3095	3191	
==>itdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3095	3191	
==>itdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdi <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1115	1291	
==>p - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1115	1291	
==>p - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	829	980	
==>|  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	829	980	
==>|  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2923	3027	
==>$cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	954	1058	
==>$cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(exact => " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8105	8245	
==>ode = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7827	7961	
==>ode = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3484	3640	
==>d "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub isnt ($$@) {
    my ($got, $isnt, $name, @mess) = @_;

    my $pass;
    if( !d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1478	1581	
==>{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1618	1721	
==>{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9126	9229	
==>HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9126	9229	
==>HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.hea <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	178	316	
==>> '6',
        perl_version    => '0',
        perl_subversion => '0',

        osname    => $Config{osname},
        pager     => $Config{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3721	3822	
==>\.?\d/;
    return '0.0';
}

=pod

=head2 JIB::Utils->_whoami

Returns the name of the subroutine you' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6625	6759	
==>self;
  }

  sub type {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->type;
    }
    else {
      join "", $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	317	455	
==>'get_file');
	
	require Config;
	return unless (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$C <==
2	/Users/nnunley/pugs/util/package-osx.pl	11880	11970	
==>t, %change_files) if (keys %change_files > 0);
&copy_files($dest, @files);
&make_symlinks($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5603	5704	
==>, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5661	5762	
==>, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2928	3038	
==>mpiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2928	3038	
==>mpiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [S <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1694	1856	
==><Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

r <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1694	1856	
==><Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1297	1402	
==>mpersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_enc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1297	1402	
==>mpersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_enc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16278	16442	
==>{
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12699	12863	
==>{
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3660	3753	
==>>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3660	3753	
==>>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_nex <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	213	315	
==>O:
# 1. Modularize this.
# 2. Get to work concurrently with 'make test'
# 3. 'make smoke' make target t <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5997	6089	
==>t) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_seq (@array:) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6838	6962	
==>ch->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6838	6962	
==>ch->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1083	1194	
==>${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + lengt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1083	1194	
==>${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + lengt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	525	641	
==>{ '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	503	617	
==>{ '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1351	1440	
==>e Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1351	1440	
==>e Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1128	1250	
==>.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1128	1250	
==>.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	183	301	
==>t show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    ha <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	183	301	
==>t show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4056	4179	
==>t Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3913	4033	
==>t Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23135	23266	
==>ags}[-1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data => \@data,
      down => 1,
      zero <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8434	8554	
==>ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8492	8612	
==>ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1428	1538	
==>le('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1428	1538	
==>le('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1695	1816	
==>ait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (! <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1695	1816	
==>ait at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	811	938	
==>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'tighter' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	119	219	
==>onversion to native
sub to_native;

# conversion to other native types
sub to_num;
sub to_bit;
sub to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	751	900	
==>scard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	751	900	
==>scard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instan <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	755	851	
==>t support enciphering individual bits.  Also note that the 
Cipher API operates at the byte level <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	755	851	
==>t support enciphering individual bits.  Also note that the 
Cipher API operates at the byte level <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2041	2154	
==>o allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2041	2154	
==>o allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	225	324	
==>Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	225	324	
==>Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4590	4702	
==>$desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(unde <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4648	4760	
==>$desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(unde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3270	3378	
==>..)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3270	3378	
==>..)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($nam <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2240	2353	
==>en2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2240	2353	
==>en2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	557	683	
==>0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	557	683	
==>0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a non <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5494	5591	
==>return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5494	5591	
==>return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	268	361	
==>hods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	268	361	
==>hods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2052	2164	
==>s::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2141	2253	
==>s::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	765	866	
==>=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	765	866	
==>=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L::en -
Localization of Rosetta::Engine:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2440	2579	
==>e_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2645	2784	
==>e_instance_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	15	112	
==>::Grammar::BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
use Pugs::Compiler:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	43	126	
==>m - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Name.pm"
package Mo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2688	2784	
==>ss) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
confor <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2688	2784	
==>ss) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
confor <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3107	3218	
==>inite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3107	3218	
==>inite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7892	8053	
==>ELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7892	8053	
==>ELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14655	14768	
==>ossible language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14655	14768	
==>ossible language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12665	12781	
==>il == @prev;
    
    $self->available( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst->link_files( package => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1309	1440	
==>as Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4787	4918	
==>as Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13314	13431	
==>o the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13314	13431	
==>o the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_pers <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2934	3032	
==>he
dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2934	3032	
==>he
dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tree: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14298	14418	
==>tement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14298	14418	
==>tement giving the operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5781	5913	
==>ist( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5781	5913	
==>ist( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2540	2641	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3495	3596	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7003	7109	
==>ld failed: $?" unless -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $gh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6332	6473	
==>ame = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6320	6461	
==>ame = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3037	3135	
==>!body === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6514	6612	
==>!body === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2721	2826	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3294	3399	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	373	511	
==>y ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	373	511	
==>y ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self.next( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14473	14567	
==>ne is exported by default.

=item encode_entities_numeric( $string )

=item encode_entities_num <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14473	14567	
==>ne is exported by default.

=item encode_entities_numeric( $string )

=item encode_entities_num <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1562	1682	
==>ass_node($class);
        $output .= "node_" . $class->class->id . " -- node_" . $class->id . " [ dir = back, style = dot <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3805	3923	
==>ft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = &infix:«<=>», *@ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4337	4450	
==>self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4337	4450	
==>self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3530	3673	
==>$tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1] <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2290	2399	
==>r than having the clutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who created the HTML <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	313	561	
==>d by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	313	561	
==>d by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	688	786	
==>( [ \w | \d | \: ]+ ))->code;

*rule_name = Pugs::Compiler::Token->compile(q( \w+ ))->code;

*block <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4104	4264	
==>atches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4104	4264	
==>atches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27927	28020	
==>d returns the Message Variable value (a string) associated with
the variable name specified in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27927	28020	
==>d returns the Message Variable value (a string) associated with
the variable name specified in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3398	3506	
==>@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print Test->a.$/;
pr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5532	5657	
==>e_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5532	5657	
==>e_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	669	810	
==>f ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	669	810	
==>f ($status_line ~~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $st <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2528	2667	
==>ge( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2528	2667	
==>ge( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	0	120	
==>use v6;

use Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Spa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	0	120	
==>use v6;

use Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Spa <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2308	2443	
==>o not modify this file; it is generated automatically by  --
--                  util/gen_prelude.pl                       --
---------- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1732	1830	
==>tions, "nows") >= 0);

  #print "name: $name - eq: $equivalence - rp: $relativePrecedence - options <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10626	10743	
==>infix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n->{op1}{stmt} && <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1374	1487	
==>pses checked out; try

    cd ..
    svn co $_PERL6_DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	554	684	
==>ce
sub to_num { shift }

# conversion to other native types
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	47	169	
==>APPLY HERE
our $iso8601_re is export = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2887	3008	
==>ss "you can only add types to a list"
            foreach @_;
    CORE::unshift(@{$self} => @_); 
    nil->new();
}

sub p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19694	19812	
==>_;
    my $rx = $self->{rx};

    do {
      $rx->{tree} = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4919	5019	
==>ese
methods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$conf <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4919	5019	
==>ese
methods can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$conf <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3057	3168	
==>ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $cl <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3057	3168	
==>ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $cl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	53	162	
==>require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[Lo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	53	162	
==>require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[Lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4382	4510	
==>+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4382	4510	
==>+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #prin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1134	1228	
==>__END__

=pod

=head1 NAME

TestBuilder::TestPlan

=head1 SYNOPSIS

  use TestBuilder::TestPlan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15573	15674	
==>ime;  # set current date

=item $h.expires

This header gives the date and time after which the entity <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15573	15674	
==>ime;  # set current date

=item $h.expires

This header gives the date and time after which the entity <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25913	26042	
==>0.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # see 15.10.1
      <[a..zA..Z]>
}
rule Id <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	743	834	
==>ort {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	743	834	
==>ort {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3993	4139	
==>for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5217	5363	
==>for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	656	758	
==>kell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	656	758	
==>kell.org/>. It aims to support the full Perl 6
specification, as detailed in the
L<Synopses|http://dev. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4049	4162	
==>ode     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4049	4162	
==>ode     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8698	8816	
==>alize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8698	8816	
==>alize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17882	18032	
==>e'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17882	18032	
==>e'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16951	17094	
==>, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17230	17373	
==>, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	361	452	
==>5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1::BB:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12783	12880	
==>ts" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used for se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12783	12880	
==>ts" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used for se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11176	11274	
==>ype = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) returns St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11176	11274	
==>ype = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) returns St <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2857	2962	
==>losure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2857	2962	
==>losure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15232	15343	
==>_node();
  }
}

{
package Y;
our %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1570	1663	
==>p.com/personal/Hans_Boehm/gc/
		Inline->bind(C => $c_code); # marble losing routine
		\&b_main <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	446	614	
==>s Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi sub sqrt (; Num ?$x = $CALLER::_)
    ret <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1578	1714	
==>'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1107	1223	
==>l { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1074	1190	
==>l { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2574	2728	
==>s};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $h <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2574	2728	
==>s};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $h <==
2	/Users/nnunley/pugs/util/build_pugs.pl	793	908	
==>_print;

    exit 0;
}

my $run_setup;

sub build {
    my($opts) = @_;
    my $thispugs = { @{ $opts->{GEN_PRELUDE} <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2771	2868	
==>ation} =
        $self->{_timing}{end} - $self->{_timing}{start};
    DumpFile($Config{"output-fil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9870	9973	
==>new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9870	9973	
==>new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	882	1087	
==>eop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	883	1088	
==>eop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11164	11284	
==>= (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $disca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11164	11284	
==>= (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $disca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22866	22995	
==>L);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19287	19416	
==>L);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (. <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15053	15186	
==>t <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO image",
  ensure => sub { -r $iso an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12127	12240	
==>ler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4770	4883	
==>ler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $nam <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4082	4163	
==>linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodContr <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4082	4163	
==>linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodContr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2729	2830	
==>$.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_p <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2729	2830	
==>$.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize_p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31019	31114	
==>dentity-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35569	35664	
==>dentity-one Relation or the invocant relation,
respectively.

=item C<restrict (Code $predicate! <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	436	542	
==>l {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unles <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	436	542	
==>l {
    return $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11514	11646	
==>match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11793	11925	
==>match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26139	26245	
==>an have depend on the Message Key
it is being used with (others are ignored).  Each variable name can be an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26139	26245	
==>an have depend on the Message Key
it is being used with (others are ignored).  Each variable name can be an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19854	19984	
==>bstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16275	16405	
==>bstr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3375	3495	
==>and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3375	3495	
==>and preventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13494	13604	
==>ult is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $mon <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13494	13604	
==>ult is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $mon <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9807	9910	
==>finite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9807	9910	
==>finite. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12329	12428	
==>00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12329	12428	
==>00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6109	6219	
==>$g = $operator->emit_yapp;
    #print $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local vari <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6521	6683	
==>st::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6579	6741	
==>st::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	44	146	
==>ynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::Dynam <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5636	5734	
==>le with the {?{...})
sub hlp_ws {  def_whitespace($X::cap->[-2],"(?x)".$::X::cap->[-1]) }
sub hlp_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2465	2615	
==>=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2465	2615	
==>=>'non_greedy_plus',
            '?' =>'optional',
            '??'=>'null_or_optional',
            ''  => '',
        }->{$quantifier};
    die "quan <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15700	15798	
==>ONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15758	15856	
==>ONMENT

Setting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7456	7699	
==>l::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7456	7699	
==>l::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5189	5334	
==>x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5189	5334	
==>x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6576	6677	
==>base_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6576	6677	
==>base_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14019	14118	
==>each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, and t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14019	14118	
==>each value.  The field name passed to the
callback routine has case as suggested by HTTP spec, and t <==
2	/Users/nnunley/pugs/util/package-osx.pl	5917	6032	
==>erview::File.3
        /usr/local/man/man3/Perl6::Overview::File.3pm
        /usr/local/man/man3/Perl6::Overview::Fu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3299	3387	
==>bFAIL\(([^\)]{0,0})\)/return undef/g;
  s/\bFAILED\(([^\)]+)\)/(!defined($1))/g;
  s/\bTA <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1978	2089	
==>or (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int multi Num::round_toward_zer <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24569	24683	
==>{  # see 15.10.1
      <Disjunction>
}
rule Disjunction {  # see 15.10.1
      <Alternative>
    | <Alternative> <' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6180	6279	
==>se v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6180	6279	
==>se v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6442	6546	
==>filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6442	6546	
==>filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2514	2639	
==>my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cooki <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2514	2639	
==>my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cooki <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	559	677	
==>$1} = sub { $class->new(@_) };
    }
}

mk_constructors();

{
    package Blondie::Node;

    use Digest ();
    use St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6507	6620	
==>ncat( [ $node, $state ] );
    }
}

# interface to the internal rule functions
# - creates a 'capture', unles <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	981	1093	
==><'9'> changed to <[0..9]>
#   * "Foo but not x" is expressed as
#     <!before x> <Foo>
#   * "lookahead is not a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2242	2379	
==>_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3469	3585	
==>y ($self, $default) = @_;
    #print "emitting grammar in perl5\n";
    my $s = "";
    for my $level ( 0 .. $#{$self <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3607	3722	
==>set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3607	3722	
==>set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.clo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	290	387	
==>ntent_type content_encoding content_length content_language
    title user_agent server from refer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	290	387	
==>ntent_type content_encoding content_length content_language
    title user_agent server from refer <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	247	412	
==>in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	247	412	
==>in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6321	6467	
==>])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6321	6467	
==>])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                boo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8383	8493	
==>ion( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8383	8493	
==>ion( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11779	11888	
==>e )`

Returns true if the closures that define the recurrences are exactly the same.

This method tests the cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11779	11888	
==>e )`

Returns true if the closures that define the recurrences are exactly the same.

This method tests the cl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4200	4304	
==>alue of the span.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4200	4304	
==>alue of the span.

These methods may return nothing if the span is empty.

- `start_is_open()` / `end_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21553	21647	
==>override some of your messages, showing other messages instead which are
more appropriate to th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21553	21647	
==>override some of your messages, showing other messages instead which are
more appropriate to th <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1776	1896	
==>t "\n\nTo:\n";
    print join " AND ", map { pp_deps( $_ ) } @$deps;
    print $/ . $/;
}

sub pp_deps {
    my $deps = s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11563	11684	
==>ta::Dumper;
use Language::AttributeGrammar;

{
	# please forgive me
	my $orig = \&Test::Builder::output;
	no warnings 'red <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	603	717	
==>ned to be used, via :words, by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Parts of the gra <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12968	13064	
==>is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12968	13064	
==>is infinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	779	913	
==>le_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	779	913	
==>le_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	701	830	
==>(Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	701	830	
==>(Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2125	2235	
==>time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2125	2235	
==>time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $bu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4257	4357	
==>for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Sy <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4257	4357	
==>for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Sy <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26929	27033	
==>thod is the same as C<project> but that the returned Relation has
the complement subset of the original's <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31481	31585	
==>thod is the same as C<project> but that the returned Relation has
the complement subset of the original's <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2957	3054	
==>ginal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details o <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2957	3054	
==>ginal form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9363	9456	
==>ity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is expo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9363	9456	
==>ity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is expo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1672	1843	
==>y absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1672	1843	
==>y absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12442	12547	
==>, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12500	12605	
==>, Bool :$todo, Str :$depends) returns Bool`

These functions will eval a code snippet, and then pass the r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21866	22069	
==>p::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22145	22348	
==>p::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9460	9560	
==>!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9460	9560	
==>!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$msg <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20237	20370	
==>pped';
    }
    elsif ($tot->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2087	2193	
==>or/;

	use Scalar::Util ();
	use B ();
	use B::Flags ();

	use String::Escape qw/qprintable/;

	use Devel:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6633	6738	
==>ult = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6633	6738	
==>ult = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3119	3287	
==>ee.new(:node<Scalar::Proxy>),
                        Tree.new(:node<Scalar::Lazy>),
                    ),
                ),
            ),
            Tree.new(:node< <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5530	5627	
==>concurrent} == 1;
    my @tests = $self->get_tests;
    $self->run_children($Config{concurrent}, \ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2677	2778	
==>o different data streams are enciphered with the same key, the encryption 
can be removed by XORing th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2677	2778	
==>o different data streams are enciphered with the same key, the encryption 
can be removed by XORing th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6165	6273	
==>xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VN <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6165	6273	
==>xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VN <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20811	21005	
==>am => val(1),
		),
	),
);

my $length = fun(
    param => "xs",
    body => let(
        ide => "length'",
        is => fun(
            param => "xs",
            body => fun(
                p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17540	17698	
==>thod label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40809	40967	
==>thod label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3707	3809	
==>for reading human written files, and anything we
write shouldn't need to have documentation/comments. I <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3707	3809	
==>for reading human written files, and anything we
write shouldn't need to have documentation/comments. I <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3952	4067	
==>ce {
    has $.base_object;
    has $.property_name;
    method GetBase ($O:) { $.base_object }
    method GetProper <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25328	25470	
==>f:')->set_attr(symbol->new('@:MRO') => list->new()); 
                          # and recalculate it ..
                          $e->get('$sel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3238	3333	
==>$one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_differe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3238	3333	
==>$one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_differe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21229	21340	
==>red) that each Perl package which
uses this would come up with keys which are unique across all Perl packages
(p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21229	21340	
==>red) that each Perl package which
uses this would come up with keys which are unique across all Perl packages
(p <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1402	1522	
==>ng $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    for %x.kv->$key,$value <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35718	35993	
==>' => 'attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(symb <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1824	1935	
==>re ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtra <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1824	1935	
==>re ($p, Int :$num, Str :$name) {...}

=pod

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtra <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10892	10983	
==>formation about how many members
were actually new is discarded.

=head2 C<$set.remove(...)> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10892	10983	
==>formation about how many members
were actually new is discarded.

=head2 C<$set.remove(...)> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3011	3113	
==>reate an encipherer closure, which can be called repeatedly to encipher data.
The encipherer closure ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3011	3113	
==>reate an encipherer closure, which can be called repeatedly to encipher data.
The encipherer closure ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7132	7247	
==>op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7132	7247	
==>op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14666	14770	
==>ue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14666	14770	
==>ue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2028	2134	
==>ect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2028	2134	
==>ect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3137	3482	
==>$*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3137	3482	
==>$*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13890	14051	
==>:Alternative->new_from_struct( struct => 
                    { bin => \@bins, auto => 1, package => $inst_pkg->package } 
                ) or return;

    ### d <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14867	14967	
==>-------------------------------------------------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15297	15398	
==>t to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $dec <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15297	15398	
==>t to import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $dec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1240	1411	
==>eld = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (% <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1240	1411	
==>eld = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (% <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	649	773	
==>>makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->ma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	550	674	
==>>makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2261	2383	
==>e.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2261	2383	
==>e.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	562	666	
==>le-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export symbols: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	562	666	
==>le-0.724.0 {

    # External packages used by the Rosetta::Engine::Example class, that do export symbols: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9728	9824	
==>module was built to facilitate the Pugs test suite. It has the
distinction of being the very firs <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9786	9882	
==>module was built to facilitate the Pugs test suite. It has the
distinction of being the very firs <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10161	10308	
==>ded to eventually replace Prim.hs's open (or be replaced by
    # it, since that would probably be faster)

    # also, the signature for this sub i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23310	23428	
==>the stack.  When a scope is left, the
top value is popped and discarded.

It is important to do this copy-and-push befo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4645	4743	
==>se.

=head2 ""

When used as a string, the match object returns the stringified version
of the resu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4645	4743	
==>se.

=head2 ""

When used as a string, the match object returns the stringified version
of the resu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	220	321	
==>odel (M1)

=head1 SYNOPSIS

 # class SomeClass { method ... { ... } }
 my $class = Class--Perl6.new("S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8798	8913	
==>nd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8798	8913	
==>nd_tb_person_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	9	111	
==>TP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	9	111	
==>TP::Server::Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11667	11764	
==>ic = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&dec <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11667	11764	
==>ic = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&dec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	220	325	
==>s::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $rule_source, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5810	5912	
==>servedWord>> <IdentifierName>
}
rule IdentifierName {  # see 7.6
      <IdentifierStart>
    | <Identif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1963	2121	
==>e_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Pr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4755	4862	
==>(@tests) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_results( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1557	1661	
==>rs, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1557	1661	
==>rs, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9595	9743	
==>}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $resu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4031	4138	
==>>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4031	4138	
==>>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	943	1034	
==>doesn't distinguish 
between enciphering and deciphering operations.)

Although it is secure <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	943	1034	
==>doesn't distinguish 
between enciphering and deciphering operations.)

Although it is secure <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7781	7891	
==>omebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7781	7891	
==>omebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8343	8449	
==>lone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8343	8449	
==>lone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3877	4018	
==>ing\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      for(i=0;i<=r->npar <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2567	2714	
==>*>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&re <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	642	746	
==>equired 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $rv = $self- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	541	639	
==>equired 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $rv = $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5255	5375	
==>e, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5477	5597	
==>e, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2153	2253	
==>_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2211	2311	
==>_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result : <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2658	2761	
==>w(@{$_[0]}[1 .. $#{$_[0]}]) }

sub shift   : method { CORE::shift(@{(shift)}) }
sub pop     : method { C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7598	7690	
==>rl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1423	1515	
==>rl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2378	2496	
==>_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2378	2496	
==>_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringify}() }
    # method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	313	444	
==>rt;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *imm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	519	650	
==>rt;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *imm <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1556	1664	
==>p $hdl;

  # strip away everything except status and headers
  # This should all be done better so the respon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1556	1664	
==>p $hdl;

  # strip away everything except status and headers
  # This should all be done better so the respon <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14927	15032	
==>a);
    my $code = 'sub{my $__c__ = $_[0]; '.$embedded_code.'; @_=$noop; goto &$__c__}';
    eval($code) | <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25263	25351	
==>my $type = type::operator::arrow->new(
		type::variable::free->new,
		type::operator::pai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	371	482	
==>)
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	371	482	
==>)
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $sub <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1258	1353	
==>head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. C <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1258	1353	
==>head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	472	573	
==>file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	472	573	
==>file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::gra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9587	9705	
==>y Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9587	9705	
==>y Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8161	8258	
==>Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8219	8316	
==>Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        say("1..$Test::num <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1254	1347	
==>ers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative repres <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1254	1347	
==>ers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative repres <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13686	13818	
==>};

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13686	13818	
==>};

      if(%handler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3064	3186	
==>},
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id' => <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23230	23322	
==>other necessary
operators (over said accessors), which can be employed when objects of
multip <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6714	6827	
==>plemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6714	6827	
==>plemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! ) <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	259	359	
==>te $testdir/$exename.c: $!";
print $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#include <w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	713	829	
==>y_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	713	829	
==>y_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4100	4197	
==>HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http:/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4100	4197	
==>HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http:/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2845	2940	
==>.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_hos <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2845	2940	
==>.

=item C<$r.query_string>

The query string portion of the request URI.

=item C<$r.remote_hos <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19396	19485	
==>call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19396	19485	
==>call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE< <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	228	338	
==>Utils::MakeMaker ();

# check if we can load some module
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3661	3766	
==>ift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the symbol " <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3889	3990	
==>n the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they should <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3889	3990	
==>n the third match of the outer group, and
the fifth match of the inner group).  XXX wrong; they should <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5450	5578	
==>ue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimen <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5450	5578	
==>ue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1430	1573	
==>r $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1430	1573	
==>r $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12318	12415	
==>var name=failed> failed"><tmpl_var name=failed></span>,</td>
	      <td class="num tests_todo"><sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1267	1374	
==>no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1267	1374	
==>no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private at <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4148	4297	
==>$m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # insid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4148	4297	
==>$m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # insid <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3638	3747	
==>NOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3638	3747	
==>NOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of span <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5955	6069	
==>es will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming example in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5749	5860	
==>es will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming example in <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	528	645	
==>yntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<s <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	528	645	
==>yntaxes, such as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2915	3017	
==>ty .= '_' . $opt->{assoc} if $opt->{fixity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels}} ) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	144	260	
==>age reference;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	585	720	
==>ct($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	585	720	
==>ct($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $.parent_i <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1211	1361	
==>efined ) {
        $second += "0.$8";
    }

    my $tz;
    if ( $9.defined ) {
        $tz = tz $9;
    }

    return Date::Gregorian.new
        ( : <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14488	14574	
==>name_to_char(Name,C)), !.

%-------------------------

re_reverse(conc(Ra0,Rb0),conc(Rb <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	605	720	
==>- 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	605	720	
==>- 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17507	17635	
==>->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40776	40904	
==>->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12959	13059	
==>ad2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set cont <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12959	13059	
==>ad2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set cont <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11752	11901	
==>tent
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11752	11901	
==>tent
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8285	8407	
==>h.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8285	8407	
==>h.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3407	3551	
==>peHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cook <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3407	3551	
==>peHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.defined) {
        return header('', $status, cookies => $cook <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16476	16601	
==>rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'open',
      nparen => $nparen,
      data => \@data,
      raw = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19819	19943	
==>= $P1
    .return (self)
.end
    
    
.namespace [ "PGE::Exp::Quant" ]

.sub "p6analyze" :method
    .param pmc pad
    .lo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3886	4033	
==>dist/build/src/Data/Yaml/.
        my @candidates;
        my $target = File::Spec->canonpath(
            File::Spec->catfile(qw< dist build src >, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5120	5233	
==>ree,__PACKAGE__.'::');
    #print STDERR Dumper($pil_tree);
    my $p5 = $pil_tree->emit();
    "use Perl6::Run::O <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1336	1453	
==>t($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<= <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1336	1453	
==>t($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	98	201	
==>rom, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	98	201	
==>rom, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1533	1639	
==>__END__

=head1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler for Perl 6

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1436	1539	
==>n.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7007	7118	
==>enerated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7019	7130	
==>enerated rule:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2719	2818	
==>grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2719	2818	
==>grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8111	8254	
==>word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7839	7977	
==>word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	713	916	
==>, $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp 'infix:<times>' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '/' exp         { $out= [ $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8947	9065	
==>ocation;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Clas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8947	9065	
==>ocation;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Clas <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14427	14519	
==>,10]), !, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)), !.

%---- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3932	4059	
==>=> "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Ter <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10193	10373	
==>ty => 3,
        name => '&ternary:<?? !!>',
        body => sub {
            $_[1] ? $_[2] : $_[3]
        }
    },
    {
        arity => 3,
        name => '&print',
        bod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	258	378	
==>- term:<...>  - yada-yada-yada

our %hash;

sub recompile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22704	22822	
==>seful details, so
that each Template can optionally use them; but often a template will
choose to show less than all of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22704	22822	
==>seful details, so
that each Template can optionally use them; but often a template will
choose to show less than all of <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1638	1743	
==>g C<Perl5> is I<strongly>
    # recommended.

    # safety of the individual methods is defined in Pugs.Pr <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16822	17031	
==>g  => $heading,
                                        relative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backli <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	406	506	
==>unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	406	506	
==>unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25043	25177	
==>$rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25598	25732	
==>$rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	904	1035	
==>!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is repr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4382	4513	
==>!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is repr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27204	27330	
==>A);
    my $cap = [map{mkMatch($len,$_)}@$A];
    my $from = $len-$npos;
    my $to = $from + length($str);
    MatchX->new()-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2446	2580	
==>ted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2353	2481	
==>ted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	406	549	
==>m->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	406	549	
==>m->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12553	12665	
==>for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12553	12665	
==>for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4646	4756	
==>try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4704	4814	
==>try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$dep <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	367	477	
==>ings that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar exte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	367	477	
==>ings that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, grammar exte <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	247	386	
==>ent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.colum <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	247	386	
==>ent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.colum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3672	3829	
==>ompile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14803	14949	
==>disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14803	14949	
==>disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2898	3007	
==>)
     ($method))

=cut

$::ENV->create('WALKMETH' => closure->new(
        $::ENV,
        closure::signature <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11607	11701	
==>ected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11665	11759	
==>ected` using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7549	7686	
==>chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7549	7686	
==>chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21363	21464	
==>n start with the package name?).  An advantage of
this is that, for example, your package could come w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21363	21464	
==>n start with the package name?).  An advantage of
this is that, for example, your package could come w <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1205	1330	
==>pan - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1205	1330	
==>pan - An object representing a datetime span

= SYNOPSIS

  use DateTime::Span;

  # XXX

= DESCRIPTION

This class represents <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23756	23888	
==>elf;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;

  sub new {
    my ( <==
2	/Users/nnunley/pugs/util/config_h.pl	225	337	
==>tion and flags of the ghc executable
              (defaults to 'ghc')
  BASEDIR - Base directory of the Pugs ins <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14013	14111	
==>e for each value.  The field name passed to the
callback routine has case as suggested by HTTP spec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14013	14111	
==>e for each value.  The field name passed to the
callback routine has case as suggested by HTTP spec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11697	11829	
==>_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11697	11829	
==>_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

my method _ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9071	9185	
==>nce = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9071	9185	
==>nce = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3462	3682	
==>t' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3462	3682	
==>t' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4571	4720	
==>s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4559	4708	
==>s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13524	13708	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13803	13987	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8667	8790	
==>ms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8860	8983	
==>ms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7091	7206	
==>handler('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	153	255	
==>:dir(cwd());

use constant SUBDIR_OF_ROOT     => sub { shift()->root->subdir(    shift() )  };
use cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	496	615	
==>- move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	507	626	
==>- move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(.*)$/s;
    return u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1123	1258	
==>(Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # It WILL be replaced.
    eva <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1123	1258	
==>(Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads or not.
    # It WILL be replaced.
    eva <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	226	354	
==>.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $statu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	226	354	
==>.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $statu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19114	19210	
==>se the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming la <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19114	19210	
==>se the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming la <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6701	6791	
==>lete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6701	6791	
==>lete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2671	2798	
==>START;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2888	3015	
==>START;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11271	11380	
==>d.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11271	11380	
==>d.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5274	5414	
==>r object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5274	5414	
==>r object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set_names.join( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	381	533	
==>($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	381	533	
==>($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()( <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1061	1182	
==>irror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firew <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1028	1149	
==>irror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firew <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3726	3838	
==>rameter( $span );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3726	3838	
==>rameter( $span );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns Set::Infinite { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2427	2541	
==>, 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2427	2541	
==>, 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3944	4043	
==>er API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<va <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3944	4043	
==>er API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<va <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3767	3872	
==>' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomor <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3767	3872	
==>' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomor <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4978	5075	
==>elf->{param}->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	$self->{param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1914	2046	
==>on-empties and pop 
        # off the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            $seq->shi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7941	8068	
==>tput   $.output handles 'diag';
  has Test::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5239	5381	
==>=> {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5239	5381	
==>=> {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	610	723	
==>> \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	610	723	
==>> \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $const = $_[0];
    my $l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25273	25378	
==>ument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relation $other!) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29825	29930	
==>ument C<$other> equals the immutable identity of the invocant.

=item C<not_equal (Relation $other!) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	496	605	
==>rce, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOP <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	496	605	
==>rce, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	33	141	
==>ackage grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	33	141	
==>ackage grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9886	10003	
==>ed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9886	10003	
==>ed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6119	6262	
==>List      pre     List::kv      safe   (rw!Hash)\
\\n   List      pre     pairs   safe   (rw!Hash)\
\\n   List      pre     keys    safe   (rw!A <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1935	2034	
==>ot provided with any tags, it will intuit one by extracting the 
last component of the calling funct <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1935	2034	
==>ot provided with any tags, it will intuit one by extracting the 
last component of the calling funct <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	674	839	
==>members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we represent them all as attribut <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24843	24942	
==>eturns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24843	24942	
==>eturns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The Loc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5205	5305	
==>\@statements;
  push(@$aref,$r2);
  $r;
}

my @operators;
my $ops = mk_dynamic_alt(\@operators);

def <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3337	3433	
==>into values

=item *

Replacing all values which the runtime provides builtins for with the repla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4040	4211	
==>fier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4028	4199	
==>fier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1522	1680	
==>s @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1470	1622	
==>s @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	972	1090	
==>ize;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	972	1090	
==>ize;
}

method start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1991	2083	
==>eturn $node->struct_equiv;
	} elsif ($t eq "PV") {
		return quote(printable($node->struct_equ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3612	3738	
==>fference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3612	3738	
==>fference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	956	1081	
==>truct = $alt->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_acce <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7730	7836	
==>eanLiteral>
    | <NumericLiteral>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21190	21280	
==>that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21190	21280	
==>that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $e <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15299	15468	
==>k}     = $not ? 0 : 1;

        if( defined $type ) {
            $test->{type}   = $type =~ /^TODO$/i ? 'todo' :
                              $type =~ /^Skip/i  ? 'skip <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26616	26704	
==>as_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_method/4 will be <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13917	14016	
==>nd a single
value (a string).  If a header field is multi-valued, then the
routine is called once fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13917	14016	
==>nd a single
value (a string).  If a header field is multi-valued, then the
routine is called once fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2623	2745	
==>ethod is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2623	2745	
==>ethod is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	74	175	
==>sert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

met <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	74	175	
==>sert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

met <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22457	22557	
==>eturns, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22457	22557	
==>eturns, you can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rose <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8688	8802	
==>sult = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLE <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2677	2776	
==>{ zip *@arrays }
# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3004	3122	
==>sub push : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add ty <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18641	18738	
==>ttempting to make it look sufficiently
like what the core expects to avoid problems.  While simult <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2931	3028	
==>ttempting to make it look sufficiently
like what the core expects to avoid problems.  While simult <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10808	10965	
==>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 ME <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10808	10965	
==>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 ME <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4086	4209	
==>reamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_c <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3036	3146	
==>reamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15388	15585	
==>lass:' => 'opaque'), 
                              symbol->new('$repr'   => 'str'), 
                              symbol->new('%params' => 'hash')
                          ),
                retu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	149	323	
==>d            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Available
            $Builddir       $Bindir     $Data <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	153	280	
==>:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	153	280	
==>:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   i <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	941	1097	
==>(@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	820	976	
==>(@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19231	19369	
==>$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad["subpats"]
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    self[0] = exp0

    $I1 <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2832	2932	
==>ne\n8th line\n9th line\n10th line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26694	26825	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26973	27104	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'eval_perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1901	2045	
==>mper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2094	2238	
==>mper( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2949	3048	
==>et_stack) || die "LET(){ }LET pairs didn't match up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7272	7372	
==>--
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7272	7372	
==>--
## traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$t <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1777	1872	
==>on {
    has Class::Events::Publisher $.publisher;
    has Class::Events::Subscriber $.subscribe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9828	9949	
==>there's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2860	2981	
==>there's any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4488	4778	
==>{
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modif <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4488	4778	
==>{
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modif <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2700	2832	
==>t ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2700	2832	
==>t ( $class: *@items ) { 
    $class.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3147	3276	
==>when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "Thi <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3147	3276	
==>when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "Thi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9439	9577	
==>XXX this should probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### un <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2492	2630	
==>XXX this should probably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### un <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	596	696	
==>{'$.description'} = '' unless exists $params{'$.description'};

            return $::TestBuilder->FE <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5856	6046	
==>( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        print -d  $final_dir
            ? "\n\tInstalled '$archive' into '$final_dir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	711	821	
==>ch;
};

sub cpan_bareword {
    my $class = shift;
    return $class->no_match unless $_[0];
    return Pugs::R <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22700	22802	
==>]->$f(splice(@args,1));
    }
    if(!p6_as_bool($f->defined())) {
        Carp::confess "Error: Applic <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22996	23087	
==>from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22996	23087	
==>from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E<gt> $nic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	191	287	
==>r in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	191	287	
==>r in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'p <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	395	525	
==>conds));
}

multi sub duration( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4209	4315	
==>eturn $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4209	4315	
==>eturn $self.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

me <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5852	5990	
==>e(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5852	5990	
==>e(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6613	6717	
==>f the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6613	6717	
==>f the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, a <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	383	541	
==>$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unle <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	383	541	
==>$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unle <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12159	12255	
==>set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12159	12255	
==>set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3626	3733	
==>$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3626	3733	
==>$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	247	351	
==>sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is expo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	247	351	
==>sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is expo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1445	1538	
==>uch
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closur <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1445	1538	
==>uch
as quantifiers are implemented by passing a C<Result> object that has a
$.backtrack closur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13762	13870	
==>ant to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.gr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13762	13870	
==>ant to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.gr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7499	7668	
==>s entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	800	969	
==>s entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the de <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6330	6533	
==>ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => co <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6330	6533	
==>ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39830	39923	
==>esser General Public License (LGPL) as
published by the Free Software Foundation (L<http://www <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39830	39923	
==>esser General Public License (LGPL) as
published by the Free Software Foundation (L<http://www <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10228	10325	
==>set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

I <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10228	10325	
==>set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

I <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24690	24786	
==>lues of the same class;
every Relation::Example tuple must be distinct from the other tuples.  Al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15185	15357	
==>d> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15179	15351	
==>d> not implemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1789	1885	
==>* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1878	1974	
==>* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules.

=item * <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25159	25350	
==>n',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(?{$self->{data}})";
  }

  sub qr {
    my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15979	16079	
==>lti Str::chop ( Str *@strings = (CALLER::<$_>) is rw --> Char )

Trims the last character from C<$str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1175	1297	
==>_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1175	1297	
==>_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6371	6465	
==>This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HT <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6371	6465	
==>This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform HT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	957	1088	
==>e::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	957	1088	
==>e::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39994	40231	
==>que'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19543	19771	
==>que'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%param <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10418	10524	
==>ss(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word))          --> "\\W", !.

p6_char_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	457	558	
==>passing.  While
# the spike "coded to the tests", and thus is far from being a
# complete p5 compatibl <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	587	701	
==>l} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    un <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	554	668	
==>l} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6558	6668	
==>ation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6339	6444	
==>ation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8539	8649	
==>HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8539	8649	
==>HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12038	12138	
==>'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12038	12138	
==>'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_header(" <==
2	/Users/nnunley/pugs/util/version_h.pl	1797	1902	
==>TDIN (filehandle #0), slot #0 is available for new
  # filehandles again. If we opened a new file ($versio <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	116	219	
==>use File::Spec;
use File::Basename;
use IPC::Open3 'open3';
use Carp;

sub WritePugs {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1693	1818	
==>i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1693	1818	
==>i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $span.intersection( $self )
        if $spa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3608	3757	
==>s @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defin <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3608	3757	
==>s @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4270	4414	
==>{
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4811	4955	
==>{
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3192	3329	
==>_[0], '$<block>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    sub $id\n" . e <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2962	3084	
==>iso.

Note: If you want to modify the kernel used, you may want to use the
      configuration at
      http://m19s28.vlinu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27501	27594	
==>");
is(t($one_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $one_el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9290	9477	
==>/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9290	9477	
==>/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11342	11441	
==>hat they are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11400	11499	
==>hat they are still a
somewhat experimental feature in Pugs, it is suggested you don't try anything
t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	187	322	
==>bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	187	322	
==>bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($cla <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	152	314	
==>d BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class. <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	152	314	
==>d BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4508	4627	
==>var."{".$key."}";
}
sub node::access_hashref_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6015	6110	
==>_normalize_version($b) cmp _normalize_version($a)
            } glob(qq/$ghc_root${slash}ghc-*/) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	49	246	
==>(
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builde <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	49	246	
==>(
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builde <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	674	779	
==>posed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	674	779	
==>posed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	416	513	
==>pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	416	513	
==>pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7049	7157	
==>rn $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7049	7157	
==>rn $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but it has a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13336	13471	
==>teral ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13330	13465	
==>teral ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # inter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	471	585	
==>>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HAS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	471	585	
==>>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HAS <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30486	30591	
==>new(':ascendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13156	13259	
==>broken because something is not implemented yet. So
in order to still allow that to be tested, and those <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13214	13317	
==>broken because something is not implemented yet. So
in order to still allow that to be tested, and those <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6352	6455	
==>eturn until the start of the rule, which unsets the flag before returning.

- this can also be used to d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6146	6248	
==>eturn until the start of the rule, which unsets the flag before returning.
- this can also be used to d <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	440	575	
==>unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagno <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	440	575	
==>unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagno <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1354	1471	
==>r}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1354	1471	
==>r}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable to open object file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	451	588	
==>msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-? <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	451	588	
==>msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4763	4856	
==>ssert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4763	4856	
==>ssert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%att <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16201	16301	
==>oviding rationales; you can read TTM itself and
various other external documentation for much of that <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16201	16301	
==>oviding rationales; you can read TTM itself and
various other external documentation for much of that <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3725	3819	
==>This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform PO <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3725	3819	
==>This is a collection of event handlers for use with L<Pod::Event::Parser> which will
perform PO <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3995	4126	
==>Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3995	4126	
==>Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15904	16005	
==>hat,
while resembling a message that would be shown to a user, is in fact meant
to be interpreted by t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15904	16005	
==>hat,
while resembling a message that would be shown to a user, is in fact meant
to be interpreted by t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5581	5680	
==>ebug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5581	5680	
==>ebug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4364	4482	
==>removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4364	4482	
==>removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!chil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	914	1048	
==>er::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.rem <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	914	1048	
==>er::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.rem <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13450	13548	
==>ion> <'['> <Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_requir <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9974	10100	
==>$@;
my $m = "asdf" =~ $qr;
print "match? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ' <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7169	7279	
==>_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = time <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1562	1682	
==>arse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1562	1682	
==>arse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	253	361	
==>ix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Co <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	253	361	
==>ix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Co <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13002	13104	
==> $set2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13002	13104	
==> $set2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$se <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1065	1176	
==>mpty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1065	1176	
==>mpty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3375	3496	
==>s_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3375	3496	
==>s_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $st <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	876	1019	
==>\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	876	1019	
==>\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14301	14410	
==>aracters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characte <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14301	14410	
==>aracters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1943	2053	
==>ethod equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.inc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1943	2053	
==>ethod equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.inc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7102	7242	
==>hift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7295	7435	
==>hift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2775	2979	
==>ot fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2775	2979	
==>ot fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8060	8301	
==>$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9122	9240	
==>) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9122	9240	
==>) {  
        # "before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	41	151	
==>rl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_iden <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	41	151	
==>rl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_iden <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15274	15375	
==>d also be a prompt or response message for interactive systems.

If the program or any of its componen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15274	15375	
==>d also be a prompt or response message for interactive systems.

If the program or any of its componen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3682	3784	
==>L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3682	3784	
==>L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4512	4780	
==>h.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifie <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4512	4780	
==>h.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifie <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4468	4568	
==>nterface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LW <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4468	4568	
==>nterface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LW <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2841	2949	
==>s
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs -- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2841	2949	
==>s
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs -- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1221	1400	
==>erarchy yet
            system( qq[mv $my_tmp_dir/$Metafile $Repodir/$meta_info] )
                                                                and die $?;
            system( q <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2736	2894	
==>>config( JIB::Config->new );
        
        ### call the objects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $me <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15243	15361	
==>name"] = cname
    pos = $I0
    goto end
  name:
    inc pos
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3245	3345	
==>:Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3245	3345	
==>:Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2112	2207	
==>s::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &log<>.assuming:base(10);


 multi M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8579	8737	
==>ail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8579	8737	
==>ail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $ma <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1008	1126	
==>ailable ISO-8601 duration formats";

=pod

    my $duration;
    if ( defined $0 ) {
        $duration = duration($/[1. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8267	8368	
==>em * grammar => $category_name - the name of this category 
(a namespace or a Grammar name).

=head <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2365	2488	
==>s{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4625	4748	
==>s{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2711	2861	
==>,strbeg,
                              minend,screamer,data,flags);
  }
  else {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 ret;
    IV <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3146	3271	
==>er::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3146	3271	
==>er::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	994	1095	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2594	2695	
==>, $cc) = @_;
    return $S->force_object(anyof_char => "\b", '\b') if $cc;
    return $S->object(bound <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2924	3022	
==>er in which they were
present in the query string is preserved.

=item C<$q.param()>

This exists a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2924	3022	
==>er in which they were
present in the query string is preserved.

=item C<$q.param()>

This exists a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1367	1488	
==>ans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1367	1488	
==>ans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4755	4907	
==>1] : '' );
            return 'package ' . $a[0] .
                ( $version ? ";\$$a[0]::VERSION = '$version'" : '' ) .
                ( $n->{sub}{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13145	13254	
==>he connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13145	13254	
==>he connection is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	616	750	
==>d ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	616	750	
==>d ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13819	13953	
==>tail}, \"\\n\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n#endblock\n" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22927	23041	
==>OS 
 ROPT_ANCH_MBOL 
 ROPT_ANCH_SBOL 
 ROPT_ANCH_SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka R <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	34	127	
==>rl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package num;

use st <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2978	3123	
==>sity) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2978	3123	
==>sity) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6157	6310	
==>/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6157	6310	
==>/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	890	1021	
==>, map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	890	1021	
==>, map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	710	814	
==>ed

### base dirs
### XXX touch the 'root' entry and the tests will run somewhere quite different!
$confi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1299	1409	
==>alls a event handler listening
for all C<PRIVMSG>s. Each time people say something (in public), the current
tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1299	1409	
==>alls a event handler listening
for all C<PRIVMSG>s. Each time people say something (in public), the current
tim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17647	17756	
==>machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17647	17756	
==>machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute R <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	973	1072	
==>:reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	973	1072	
==>:reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, ...) moved from Arra <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1738	1837	
==>got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1796	1895	
==>got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9564	9692	
==>et.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } els <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9564	9692	
==>et.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } els <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	345	466	
==>code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    g <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	345	466	
==>code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4255	4429	
==>o with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4255	4429	
==>o with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $match <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7096	7254	
==>e">;
        dbg "# Parameters: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg " <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	467	557	
==>ompanion => "subclasses" });
Has($?CLASS, "subclasses", "Set", { companion => "superclasses <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1784	1898	
==>(*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1784	1898	
==>(*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2640	2752	
==>mplementation:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @array.splice(-1,1);
#}

# copied from <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4350	4461	
==>.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4350	4461	
==>.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this needs optimi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8310	8431	
==>$span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8310	8431	
==>$span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27055	27173	
==>new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27055	27173	
==>new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TA <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2968	3634	
==>rn !$?SELF.all_exist( *@attr_names );
}

###########################################################################

} # role Relation::Heading

###########################################################################
###########################################################################

role Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

ro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10373	10477	
==>top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would li <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10431	10535	
==>top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8757	8874	
==>leop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8950	9067	
==>leop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7607	7759	
==>ot happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7619	7771	
==>ot happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23137	23257	
==>T 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 ROPT_TAINTED_SEEN 
 ROPT_UTF8 


=h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1052	1154	
==>kage method::params;

use strict;
use warnings;

use base 'closure::params';

1;

__END__

=pod

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7775	7892	
==>nto it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7775	7892	
==>nto it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	241	342	
==>s Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	241	342	
==>s Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	29	118	
==>quire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	29	118	
==>quire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9247	9354	
==>f $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9247	9354	
==>f $!;

    return;
}

method get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3591	3725	
==>s export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3649	3783	
==>s export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.g <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5897	6030	
==>pen {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5897	6030	
==>pen {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurren <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32954	33050	
==>ly" represents the general category into which that object falls.

This is very sparse.  Future v <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	228	339	
==>::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 cod <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	228	339	
==>::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline Perl 6 cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3140	3256	
==>return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3140	3256	
==>return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $da <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3784	3931	
==>ls ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3784	3931	
==>ls ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1222	1470	
==>Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1222	1470	
==>Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $msg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5432	5596	
==>apture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #del <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5432	5596	
==>apture} = $_[0];
            }

            $match2->{match} = \@matches;
            $match2->{state} = $succ;
            delete $match2->{label};
            #del <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8742	8897	
==>>{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8742	8897	
==>>{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'be <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13737	13864	
==>t package prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set li <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13737	13864	
==>t package prefixes for localized app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set li <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	893	1017	
==>::OnPerl5::X1::BB::pugs_args || "";
    my $pilfn = "deleteme_$$";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1436	1528	
==>ent>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1095	1191	
==>ns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1095	1191	
==>ns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	537	631	
==>/;
use Pod::Simple::HTML;
use Pod::PlainText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAM <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15323	15415	
==>t([],[],RW0,RW0).
re_rewrite_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17723	17838	
==>$span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17723	17838	
==>$span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3786	3885	
==>> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3786	3885	
==>> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7172	7297	
==>chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7172	7297	
==>chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr(8476), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15970	16081	
==>in fact meant
to be interpreted by the machine itself and not any human user.  In some
situations, a shared prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15970	16081	
==>in fact meant
to be interpreted by the machine itself and not any human user.  In some
situations, a shared prog <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1177	1313	
==>::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1177	1313	
==>::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Local <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1397	1564	
==>423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'No <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1397	1564	
==>423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'No <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13324	13434	
==>eturn value is a new C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13324	13434	
==>eturn value is a new C<HTTP::Headers> object that contains the
removed headers only.

=item $h.clear

This will <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	403	537	
==>SULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	403	537	
==>SULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7519	7682	
==>,do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7519	7682	
==>,do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14336	14479	
==>$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14330	14473	
==>$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12097	12223	
==>X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  packa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5303	5417	
==>f $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add_handler('\s' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4760	4874	
==>) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4760	4874	
==>) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1513	1659	
==>->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2974	3085	
==>k "no regex defined" unless &RxLEN;

  while (my $try = pop @{ $self->{next} }) {
    if (defined(my $r = $self- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1824	2230	
==>Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1824	2230	
==>Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1698	1792	
==>{
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1698	1792	
==>{
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3615	3794	
==>-> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content need <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3615	3794	
==>-> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content need <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	904	1021	
==>[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[2] } }",  
    infix_right =>       
        "exp 'nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7487	7697	
==>ain::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8321	8531	
==>ain::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) .
                #"    ;\n" .
    
                "    my \ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1973	2075	
==>pe () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1973	2075	
==>pe () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12045	12147	
==>es($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12045	12147	
==>es($a, "\200-\377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3526	3631	
==>n($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.di <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3526	3631	
==>n($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18851	19005	
==>= [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20209	20363	
==>= [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	650	765	
==>defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	650	765	
==>defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3066	3165	
==>rrot. 

=head1 REQUIREMENTS

- The source file header must be valid perl5 I<and> perl6 code.

This i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21080	21262	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44004	44169	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	763	880	
==>0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	772	889	
==>0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28727	28825	
==>ese are any of: alnum, anchor,
anyof, anyof_char, anyof_class, anyof_range, assertion, branch, clos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1537	1633	
==>gs);
    my $return_value = $self->{body}->($self->{env});
    (blessed($return_value) && ($retur <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5711	5803	
==>=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5711	5803	
==>=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1894	1998	
==>: layout($$) = { return parenthesize($$) ? "($_)" : $_ for inner_layout($$) }

type::operator::binary: pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11150	11278	
==>nnected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11150	11278	
==>nnected) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # h <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	47	150	
==>ntainers:
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5620	5712	
==>tests(@test_files);

Runs all the given C<@test_files> (as C<runtests()>) but does it
quietly <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15475	15559	
==>rt(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%--------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	701	805	
==>literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remain <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	701	805	
==>literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remain <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4426	4526	
==>the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `star <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4426	4526	
==>the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For example: if `star <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6851	6999	
==>rms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public licens <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6908	7056	
==>rms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public licens <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14906	15006	
==>efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common program <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14906	15006	
==>efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common program <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3846	3943	
==>_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
inv <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4030	4127	
==>_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
inv <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7594	7716	
==>urns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method pos <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7594	7716	
==>urns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method pos <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1788	1898	
==>($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, dir <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1788	1898	
==>($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, dir <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	808	913	
==>p::Parser->export_to_level($level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $se <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	124	229	
==>ts;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	124	229	
==>ts;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1608	1725	
==>l
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $num or $name is given, a new s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1608	1725	
==>l
be given a fresh, empty C<$match.match> to fill (this introduces a new scope).
If no $num or $name is given, a new s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1766	1882	
==>oid {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1766	1882	
==>oid {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol? <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	671	780	
==>aptures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	671	780	
==>aptures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4518	4660	
==>e use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4518	4660	
==>e use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3162	3264	
==>b {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15643	15735	
==>s.

=item Regexp::Explain (pending, Jeff Pinyan)

Produces a human-readable explanation of th <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1264	1360	
==>method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1264	1360	
==>method member($self: $item) returns Object {
    return $item if $self.includes($item);
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15841	15940	
==>www.thethirdmanifesto.com/>, and its authors have also written
several books and papers and taught c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15841	15940	
==>www.thethirdmanifesto.com/>, and its authors have also written
several books and papers and taught c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1550	1801	
==>osetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1550	1801	
==>osetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Ro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2067	2178	
==>uninstall {
    my $self = shift;
    my $inst = $self->installation;
    
    return $inst->unregister( package <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	923	1024	
==>ear
# our weight, to be a next step. And the current Regexp::Parser Object
# ast isnt really what we w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4348	4460	
==>@_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1474	1586	
==>@_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34433	34529	
==>rameter
@set_names (an array ref), and Member Names is set from the named parameter
@member_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34433	34529	
==>rameter
@set_names (an array ref), and Member Names is set from the named parameter
@member_names <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9910	10018	
==>hy this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9910	10018	
==>hy this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4417	4588	
==>ype!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ': <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4417	4588	
==>ype!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ': <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25089	25175	
==>ag(E0,-x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_,E0).
set_modifiers_from(E0,Em,E1) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2380	2579	
==>> $2,
                capture => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14301	14423	
==>onfig;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct } @{ $self->available };
    eval { DumpFi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	899	1014	
==>r   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	899	1014	
==>r   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.la <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1259	1382	
==>|| $_ eq '{' } @expect ) {
            $m = Pugs::Grammar::StatementControl->parse( $match, { p => 1 } );
            last i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1568	1660	
==>l_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)\(<?p6ws>? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7178	7271	
==>n API, which permits the intercommunication 

of data about: backtracking, aborting, capturing <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6933	7025	
==>n API, which permits the intercommunication 
of data about: backtracking, aborting, capturing <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19038	19155	
==>ding '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. End <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19038	19155	
==>ding '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. End <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9132	9232	
==>Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9132	9232	
==>Headers;
 $h = HTTP::Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2179	2317	
==>rn 0 if $x == 0;

	my Int $t = int($x);
	return $x if $x == $t;
	$x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1213	1310	
==>ciated with this package

=head2 $pkg->install( installation => INSTALLATION_OBJECT )

=cut

### X <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30396	30496	
==>ber
large, with each set member being an an exclusive alternative for the rest
of the set. There is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30396	30496	
==>ber
large, with each set member being an an exclusive alternative for the rest
of the set. There is a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	18	122	
==>ter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	18	122	
==>ter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use D <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17129	17244	
==>Module.pmc> is up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17129	17244	
==>Module.pmc> is up to date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19088	19206	
==>->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20446	20564	
==>->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1610	1724	
==>or return;

    return $self->control_dir( $pkg )
                ->file( $self->config->_files_list );
}

=head1 M <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28039	28132	
==>s Bool>

This method returns this Relation::Example's "is mutable" boolean attribute.

=item C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2486	2635	
==>TR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2486	2635	
==>TR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5651	5757	
==>proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5709	5815	
==>proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $diag)) -> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9049	9182	
==>0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4092	4238	
==>es;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4092	4238	
==>es;
        # Array of Str
        # List of Template module Set Names to search.
    has Str @!member_names;
        # Array of Str
        # List <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16894	16989	
==>f their application in Rosetta D (as
either named modules or anonymous routines) and write the r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16894	16989	
==>f their application in Rosetta D (as
either named modules or anonymous routines) and write the r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17263	17358	
==>e are now abstract classes I<anchor> and I<assertion>. You can't call
their new() method directl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	429	545	
==>=> "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	429	545	
==>=> "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2629	2735	
==>_trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2629	2735	
==>_trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2525	2645	
==>rhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    met <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2525	2645	
==>rhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16123	16262	
==>r @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.ori <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16123	16262	
==>r @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.ori <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	679	775	
==>Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	679	775	
==>Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	413	603	
==>rnary:<?? !!>'),
                    Sym('$cond'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PA <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	682	826	
==>{
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	682	826	
==>{
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Per <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8293	8390	
==>tem I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8293	8390	
==>tem I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	401	522	
==>tch tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - arg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	401	522	
==>tch tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - arg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18459	18558	
==>users, we still get the best results by having a human being write out
that text themselves.

What L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18459	18558	
==>users, we still get the best results by having a human being write out
that text themselves.

What L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8673	8778	
==>\\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8661	8766	
==>\\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #unshift \@{ \$match[\$index{$rnd}] } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11516	11622	
==>ination is to wait until objects are done for this, but maybe I will
figure out a good way to do this witho <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11516	11622	
==>ination is to wait until objects are done for this, but maybe I will
figure out a good way to do this witho <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	762	923	
==>parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	762	923	
==>parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11696	11793	
==>therwise unused section of a regexp struct.  Another
  hopefully unused part of the struct is over <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18439	18526	
==>ad2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18439	18526	
==>ad2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	37	140	
==>defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	37	140	
==>defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infini <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5674	5773	
==>root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5674	5773	
==>root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3110	3222	
==>rt($self->{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->er <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14086	14180	
==>atches null string many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17373	17498	
==>s.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17373	17498	
==>s.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	551	648	
==>create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	551	648	
==>create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_meth <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	991	1091	
==>ew({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(als <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	991	1091	
==>ew({ content => "foo", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(als <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4839	4994	
==>{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4839	4994	
==>{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8109	8221	
==>oc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8109	8221	
==>oc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5943	6047	
==>s{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5943	6047	
==>s{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15513	15626	
==>language of communication, or their
privileges regarding access to information details, or their technical
skills. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15513	15626	
==>language of communication, or their
privileges regarding access to information details, or their technical
skills. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2983	3106	
==>%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2983	3106	
==>%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11745	11914	
==>res)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11745	11914	
==>res)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, % <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3203	3338	
==>turn \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3203	3338	
==>turn \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2516	2618	
==>$self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3471	3573	
==>$self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	141	286	
==>mmar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /
        ^
        (
            (?: <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	264	358	
==>d_half_up and
# round_half_down

}

our Int multi Num::round_half_up (Num $x, int $symmetrical? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7411	7565	
==>var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7411	7565	
==>var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27322	27429	
==>original's attributes; the new Relation has as
many additional attributes as there are pairs in the argument <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31874	31981	
==>original's attributes; the new Relation has as
many additional attributes as there are pairs in the argument <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4311	4438	
==>p1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Languag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4162	4285	
==>p1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Languag <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	111	217	
==>imethods)

# first part is a type pretty printer and the type object model
# it emits greek letters and uni <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24042	24141	
==>\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-text' = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19062	19161	
==>o that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19062	19161	
==>o that your
legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	80	187	
==>{Module::Install::Base};

$VERSION = '0.61';

use strict 'vars';

my @scalar_keys = qw{
    name module_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10656	10757	
==>rl, $args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both 'prog' and 'p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7939	8047	
==>ks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7951	8059	
==>ks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35743	35838	
==>Relation::Example in its C<$other> argument, where <$other> has the same heading as
the invocant <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37775	37870	
==>Relation::Example
in its C<$other> argument, where <$other> has the same heading as the
invocant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2470	2658	
==>ture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2481	2669	
==>ture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1640	1880	
==>:constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $matc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5035	5180	
==>bably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<en <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5035	5180	
==>bably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<en <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	214	352	
==>iYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smoke_concurrent      => 1,
    smoke_upload          => ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5761	5889	
==>_OBJECT),
        hash->new(
            attribute->new('@:MRO')             => list->new(),
            attribute->new('@:subcla <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1167	1264	
==>ombine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1167	1264	
==>ombine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17053	17197	
==>constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17332	17476	
==>constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::capture( 'word', \& <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23737	23868	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20158	20289	
==>f (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19590	19722	
==>(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16011	16143	
==>(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9109	9204	
==>e opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9109	9204	
==>e opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_ent <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	738	840	
==>$msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	738	840	
==>$msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14125	14261	
==>Text::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $sec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14125	14261	
==>Text::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $sec <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8094	8227	
==>$leader;

        $tot{files}++;

        $Strap->{_seen_header} = 0;
        if ( $Test::Harness::Debug ) {
            print "# Runn <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5393	5585	
==>@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5393	5585	
==>@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	987	1088	
==>here too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Mod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	939	1037	
==>here too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Mod <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1016	1203	
==>s->members,
                             # 2-way associations won't work without
                             # MM support (or proxy accessors)
                             # $self->rev_as <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8413	8529	
==>e $self: symbol $label) returns method { 
    %:methods{$label};
}


(method get_method ((opaque $self:) (symbol $lab <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3378	3475	
==>ookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3631	3725	
==>cotan';
trig_func 'asec';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2891	3018	
==>t to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prep <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2891	3018	
==>t to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prep <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6304	6410	
==>ef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6304	6410	
==>ef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	132	234	
==>use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	132	234	
==>use interface;
# External
use IO::File;

# Process command line arguments
my $input_filename = shift || <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19001	19095	
==>t>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19001	19095	
==>t>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1414	1519	
==>parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1414	1519	
==>parent returns Void { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4032	4152	
==>chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3890	4007	
==>chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6367	6500	
==>name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6355	6488	
==>name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4285	4422	
==>']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4137	4269	
==>']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17119	17216	
==>ta" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
impleme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17119	17216	
==>ta" file which provides
the glue between your Perl code and your Rosetta D code; "Rosetta"
impleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9686	9903	
==>=> sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \$ }xgc) {
      my $n = '$$';
      return $S->$n;
    }

    if ($S->match_scalar) {
    }

    return $S->object(eol => eos => '$');
  });

  $self->add_handler('$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18047	18177	
==>d
    .param pmc pad
    $I0 = pad[":i"]
    self["ignorecase"] = $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29107	29204	
==>ple
which is the same as the invocant Relation::Example but that some of its attributes
are rename <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11471	11566	
==>> "(?#", !, p5_comment_body(L), ")".
p5_comment_body([C|L]) --> [C], {[C] \== ")"}, p5_comment_b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5695	5828	
==>946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5695	5828	
==>946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1650	1758	
==>$label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::crea <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1855	1963	
==>$label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::crea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1559	1667	
==>ch arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1547	1655	
==>ch arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10445	10546	
==>ave some tests which you would like to force into being TODO tests
then you can pass them through this <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10503	10604	
==>ave some tests which you would like to force into being TODO tests
then you can pass them through this <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6907	7011	
==>er Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an inte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6671	6772	
==>er Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an inte <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15259	15362	
==>nd, but it
could also be a prompt or response message for interactive systems.

If the program or any of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15259	15362	
==>nd, but it
could also be a prompt or response message for interactive systems.

If the program or any of <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17730	17861	
==>azy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17730	17861	
==>azy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2 <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6922	7176	
==>'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'arti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6979	7233	
==>'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'arti <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3509	3658	
==>test->{provides} || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be poli <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	260	374	
==>head1 METHODS

=head2 $meta = JIB::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shif <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22605	22714	
==>ds {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression> <';'>
}
rule TryStatement :words {  # se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13984	14101	
==>her heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13984	14101	
==>her heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5458	5642	
==>]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5458	5642	
==>]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

metho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3412	3505	
==>=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3412	3505	
==>=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Even <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23382	23487	
==>ce [ "PGE::Exp::Closure" ]

.sub "p6analyze" :method
    .param pmc pad
    $S0 = pad[":lang"]
    self["l <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8043	8134	
==>r_spec_pos([i|L])  --> "i", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([m|L])  --> "m" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4053	4162	
==>[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4053	4162	
==>[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object return <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	281	381	
==>OM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DES <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	281	381	
==>OM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DES <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	136	237	
==>ie::TestPrograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3301	3408	
==>force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1151	1258	
==>force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4708	4815	
==>ing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  my $r = compile( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	362	485	
==>ors should emit error messages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	362	485	
==>ors should emit error messages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11571	11711	
==>input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11571	11711	
==>input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<readline>();
        $self<livec <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	710	847	
==>ILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	710	847	
==>ILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11279	11366	
==>nstance calling metaclass method fails';
fails_ok { $iBar->another_singleton_test_on_obj <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1595	1688	
==>NDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1435	1528	
==>NDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	13	130	
==>face;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet.. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	13	130	
==>face;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet.. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2880	2973	
==>orts to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2880	2973	
==>orts to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	540	657	
==>t)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	514	625	
==>t)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2836	2938	
==>ters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in which the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2836	2938	
==>ters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The order in which the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3510	3634	
==>h inside the closure
    $/()  
        just the capture - what's returned in { return ... }
    $/0
        the first submat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3005	3126	
==>$ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3005	3126	
==>$ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.from_single( @l <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1136	1223	
==>t_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Clutter::int_size <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14758	14861	
==>[] range "%s-%s"

=back

=head1 EXTENSIONS

Here are some ideas for extensions (sub-classes) for this mo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4317	4518	
==>ht package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4781	4982	
==>ht package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1679	1800	
==>ef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1679	1800	
==>ef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18784	18903	
==>d1 VERSION

This document describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	186	282	
==>gs parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#incl <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	339	435	
==>gs parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#incl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8403	8495	
==>mar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2228	2320	
==>mar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4424	4516	
==>$?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4424	4516	
==>$?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1589	1723	
==>quire "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cache <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1796	1930	
==>quire "$prelude_file-cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cache <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1838	1986	
==>arse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1838	1986	
==>arse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	651	807	
==>q $path } @list ) {
            warn "$path is already installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15622	15767	
==>_not_implemented( $n, "postfix" );
}

sub ternary {
    my $n = $_[0];
    # print "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22561	22653	
==>::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22561	22653	
==>::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1190	1296	
==>};
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implement <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	293	398	
==>};
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implement <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4887	4992	
==>l nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cach <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4887	4992	
==>l nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cach <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4215	4317	
==>span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4215	4317	
==>span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span: <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1458	1587	
==>set->{$_} = 1 for @{ $nodes{$f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $cc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5942	6083	
==>{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5942	6083	
==>{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16496	16597	
==>be chopped off and returned as a separate value if in
an array context.  If there is no such header fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16496	16597	
==>be chopped off and returned as a separate value if in
an array context.  If there is no such header fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3654	3760	
==>lete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more inform <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3654	3760	
==>lete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more inform <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	92	238	
==>ategory);

=for pod

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «.. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13169	13273	
==>e something is not implemented yet. So
in order to still allow that to be tested, and those tests to know <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13227	13331	
==>e something is not implemented yet. So
in order to still allow that to be tested, and those tests to know <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6233	6336	
==>ex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7231	7334	
==>ex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2740	2837	
==>, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this n <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2740	2837	
==>, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation of this n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2039	2214	
==>_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2039	2214	
==>_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4037	4178	
==>ate[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3913	4050	
==>ate[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1270	1377	
==>s

(symbol names) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1215	1317	
==>s
(symbol names) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad c <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	362	496	
==>d output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	362	496	
==>d output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20149	20245	
==>t what's important;
the interface/behaviour is), this Relation data type is proposed to be
genera <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24701	24797	
==>t what's important;
the interface/behaviour is), this Relation data type is proposed to be
genera <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9556	9675	
==>{ $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9556	9675	
==>{ $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4420	4519	
==>, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_precenden <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6322	6421	
==>, undef, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_precenden <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8571	8684	
==>^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::enco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8571	8684	
==>^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::enco <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9626	9738	
==>LIB is ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPerl's putenv is broken, s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2011	2120	
==>equiv;
	} elsif ($t eq "PV") {
		return quote(printable($node->struct_equiv));
	} else { die "don't know to ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4752	4872	
==>f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4752	4872	
==>f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $ch <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11164	11281	
==>e::operator::arrow->new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34089	34192	
==>he most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34089	34192	
==>he most preferred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This <==
2	/Users/nnunley/pugs/util/func_refact.pl	2445	2575	
==>r @{$nodes->{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand)];  # ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1613	1734	
==>s") if $class =~ /::anchor$/;

    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17527	17670	
==>=> (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signatur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40796	40939	
==>=> (
    # method label
        symbol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signatur <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2189	2311	
==>eturn @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2189	2311	
==>eturn @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	902	999	
==>tched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	902	999	
==>tched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10692	10832	
==>d be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{stmt} eq 'if'     ||
           $n->{op1}{stmt} eq 'unless' ) ) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart1.pl	80	188	
==>Operator
$s ~~ 1978;
$s ~~ "Hallo, Welt";
$s ~~ /regex/;
$s !~ funktion();
#=Alles zusammen: (änlich wie any <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1914	2020	
==>e setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match suc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1914	2020	
==>e setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match suc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1961	2093	
==>ap:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1961	2093	
==>ap:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	164	268	
==>ammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	88	190	
==>ating point seconds relative to 1st Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	625	749	
==>so holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	625	749	
==>so holds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new mat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	671	775	
==>supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_ite <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	671	775	
==>supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_ite <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4096	4323	
==>$x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x_round;
}

our Int multi Num::round_ceiling ( Num $x ) {
    my $x_round = ceil($x);

    return $x_round;
}

our Int multi Num::ro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5542	5632	
==>pt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Grammar::Prefix;
use Pugs::Grammar::Postfi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5359	5502	
==>rlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5359	5502	
==>rlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4871	5024	
==>e
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4871	5024	
==>e
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27126	27287	
==>Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27126	27287	
==>Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAM <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4970	5079	
==>:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config::Tiny::new> 
c <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4970	5079	
==>:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config::Tiny::new> 
c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1586	1748	
==>DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1586	1748	
==>DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Local <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	181	279	
==>-cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#i <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	334	432	
==>-cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#i <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	104	210	
==>m"
package Module::Install::Makefile;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSIO <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3354	3450	
==>"define_$kind";
	warn "defining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5060	5199	
==>type.new(); }
   has $.type;
   has $.value;
   has $.target;
   method is_abrupt_completion() { !$.type.normal }
}
# empty is represented b <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1781	1884	
==>g methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flav <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1781	1884	
==>g methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flav <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	467	584	
==>ggregator of builtin functions for Blondie runtimes

=head1 SYNOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

T <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1094	1191	
==>_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1094	1191	
==>_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimiter) is expo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4238	4349	
==>Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4238	4349	
==>Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	509	619	
==>!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	476	586	
==>!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3780	3908	
==>ure};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3780	3908	
==>ure};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $st <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	290	391	
==>Any $paramDefault;

# deriving (Show, Eq, Ord)
method Show {
    ...
}

method &infix:«==»($self, Pe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1420	1516	
==>tiated: layout($$) = { $.instance }
type::operator::nullary: layout($$) = { $.name }

type::opera <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3080	3235	
==>ns( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3080	3235	
==>ns( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contai <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3423	3562	
==>package => @caller[0],
        file    => @caller[1],
        line    => @caller[2],
        subname => @caller[3],
        subtype => @call <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6082	6205	
==>atch} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6094	6217	
==>atch} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    retu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9605	9723	
==>int mode is on, PERL5LIB is ignored.  So we need to put
    # all that on the command line as -Is.
    # MacPerl's pute <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	473	582	
==>PER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	473	582	
==>PER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24933	25058	
==>m =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25212	25337	
==>m =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5014	5129	
==>=item B<remove (num) returns nil>

=item B<slice (num, num) returns list>

=item B<length () returns num>

=item B<e <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24071	24161	
==>und_list([],_,[]).
ground_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list(H0,D, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	556	707	
==>code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	556	707	
==>code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_stateme <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1731	1854	
==>ookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our heade <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1731	1854	
==>ookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our heade <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11733	11840	
==>ccept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field value for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11733	11840	
==>ccept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new field value for <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33660	33755	
==>here each
element is a Template module Member Name and usually corresponds to a
language like En <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33660	33755	
==>here each
element is a Template module Member Name and usually corresponds to a
language like En <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	575	675	
==>$self = shift;
	my $node = shift;

	warn Carp::longmess unless $node->can("digest");
    Blondie::Bac <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2142	2239	
==>s kernel and GRUB from a public server (which can be specified below).
Then, it creates a initrd a <==
2	/Users/nnunley/pugs/util/addauthors.pl	21	125	
==>arnings;
use strict;
use IO::File;
use Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next unless /^ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8635	8730	
==>ion->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => $placeholder,
			s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18639	18867	
==>st;
                    }

                    if (!$found) {
                      # Part of the content is inside a pre.
                      $h->push_content($backlink);
                      $found = 1;
                    } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9722	9830	
==>};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if(!$class && $op <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24332	24426	
==>interface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24332	24426	
==>interface of Locale::KeyedText is entirely object-oriented; you use it
by creating objects from <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5013	5118	
==>{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5013	5118	
==>{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6788	6925	
==>$conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12873	13005	
==>$conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9399	9536	
==>text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a P <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9399	9536	
==>text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a P <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14253	14352	
==>ense to iterate through a continuous span, because the "separation" 
between values would be very cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14253	14352	
==>ense to iterate through a continuous span, because the "separation" 
between values would be very cl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	559	687	
==>ent from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	559	687	
==>ent from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><title>NAME</title <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1192	1300	
==>pected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.pe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1250	1358	
==>pected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2746	2892	
==>,
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => 'or',
        block => sub {},
        assoc => 'left',
        precedenc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12445	12541	
==>resent.

Risks:

  Trying to properly do (non-leaking) memory management, via reverse
  engineeri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14019	14120	
==>URLY (-14)

Can't do {n,m} with n > m

=item RPe_NULNUL (-15)

%s matches null string many times

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4720	4835	
==>e registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4720	4835	
==>e registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	510	640	
==>' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	510	640	
==>' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33627	33724	
==>ethod is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38177	38274	
==>ethod is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) returns R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11285	11401	
==>traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11285	11401	
==>traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5678	5832	
==>h.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5678	5832	
==>h.clone(
                      match => $match.match.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(mat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32613	32705	
==>t Message objects on demand into user-readable
message strings, using data from external Temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32613	32705	
==>t Message objects on demand into user-readable
message strings, using data from external Temp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19765	19874	
==>tement>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :words {  # see 12.1
      <'{'> <StatementLi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	145	262	
==>$class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
}

method is_empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	145	262	
==>$class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $density );
}

method is_empt <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2464	2573	
==>open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2464	2573	
==>open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
method end_is_open ()   returns <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1299	1440	
==>die "Could not open '$file': $!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not load files list: $@" ), ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3072	3176	
==>ontent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3072	3176	
==>ontent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like t <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	871	1014	
==>},

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 .. $#{$self->get_value( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5931	6027	
==>r refs to metaclass');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($B <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	20	119	
==>:Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	20	119	
==>:Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Hash is export {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	36	119	
==>------------------------------------------------------------------------
## attribut <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	36	119	
==>------------------------------------------------------------------------
## attribut <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27503	27593	
==>NTED_SEEN)
 #define RX_MATCH_TAINTED_off(prog) ((prog)->reganch &= ~ROPT_TAINTED_SEEN)
 #de <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6039	6144	
==>od contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6039	6144	
==>od contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6890	7036	
==>atch->{abort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6663	6800	
==>atch->{abort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24201	24309	
==>f the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Ad <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24201	24309	
==>f the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Ad <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3064	3163	
==>::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.hea <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3064	3163	
==>::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.hea <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1782	2003	
==>'),
										Sym('$n'),
										App(
											Sym('&fact'),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16743	16846	
==>for calling code to output as it sees fit.  It
also does not make direct use of environment variables, w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16743	16846	
==>for calling code to output as it sees fit.  It
also does not make direct use of environment variables, w <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4469	4606	
==>g ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7946	8083	
==>g ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14207	14320	
==>lob") },
      lvalue => sub { p6_as_array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_obje <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	304	425	
==>lasses";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1456	1565	
==>s module provides an implementation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1456	1565	
==>s module provides an implementation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8285	8405	
==>! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8285	8405	
==>! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12342	12458	
==>}
			map { $_->left }
				grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1895	2093	
==>turns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1895	2093	
==>turns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6680	6781	
==>Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6680	6781	
==>Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	222	469	
==>0];
    my $bool = $_[0] =~ /
        ^
        (
            (?:
                # pod start
                (?: \n | ^ ) \= \w  
                # pod body
                .*?
                # pod end
                \n \= (?: end | cut ) (?-s:. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26260	26358	
==>this is not set, it will
default to 80. Note that users of Bourne-sh based shells will need to
C<ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1663	1754	
==>ee L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes wh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1663	1754	
==>ee L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attributes wh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14108	14204	
==>spec, and the headers
will be visited in the recommended "Good Practice" order.

Any return value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14108	14204	
==>spec, and the headers
will be visited in the recommended "Good Practice" order.

Any return value <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24925	25024	
==>d.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple container which stores <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24925	25024	
==>d.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple container which stores <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9286	9381	
==>ot_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9286	9381	
==>ot_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	14	103	
==>s::Grammar::StatementControl;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5950	6074	
==>ity'} );

    # Create a Rosetta::Model document in which we store some local
    # command definitions and fragments thereof <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5950	6074	
==>ity'} );

    # Create a Rosetta::Model document in which we store some local
    # command definitions and fragments thereof <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22037	22132	
==>:Heading
and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This docu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9400	9510	
==>e times, then `size` will be a duration.

If the set contains lazy recurrences, it may not be possible to calcu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9400	9510	
==>e times, then `size` will be a duration.

If the set contains lazy recurrences, it may not be possible to calcu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10673	10827	
==>grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10952	11106	
==>grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_stateme <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	882	985	
==>gs{using}->();
    if($args{pause}) {
      printf STDERR "\b\b\b\b\b   %s:%s Press a key to continue... <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4428	4525	
==>er they passed
or failed based on their output to STDOUT (details above).  It prints
out each indi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2950	3041	
==>r = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, wh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2950	3041	
==>r = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closure, wh <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11593	11722	
==>2} ) {
        # Lose any trailing backslashes in the Win32 paths
        s/[\\\/+]$// foreach @inc;
    }

    my %seen;
    $see <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	389	648	
==>eadonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	389	648	
==>eadonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8333	8437	
==>ny 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8333	8437	
==>ny 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10018	10182	
==>_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10018	10182	
==>_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10705	10840	
==>s 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10705	10840	
==>s 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM pe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5397	5496	
==>ally done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in whi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5397	5496	
==>ally done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in whi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18410	18508	
==>es to getting the most accurate program text
for users, we still get the best results by having a h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18410	18508	
==>es to getting the most accurate program text
for users, we still get the best results by having a h <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	452	549	
==>E

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	452	549	
==>E

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc: <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	810	916	
==>line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implic <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	810	916	
==>line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2090	2234	
==>l $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.define <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2090	2234	
==>l $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.define <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9145	9240	
==>rd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9145	9240	
==>rd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2198	2306	
==>re written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2117	2222	
==>re written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13821	13924	
==>z and -M $initrd_gz <= -M $initrd_img },
    using  => sub { system "gzip -vvv -9 -c $initrd_img > $init <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3364	3487	
==>match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3581	3704	
==>match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $namespace = 'grammar1::';

{
  package Per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	38	144	
==>d BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("G <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	38	144	
==>d BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./debug("G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2865	3007	
==>= $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2770	2909	
==>= $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matche <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20930	21057	
==>m) third party Engines will likely just map
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20930	21057	
==>m) third party Engines will likely just map
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database ma <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	76	174	
==>rk if the above line is uncommented.

# our &prefix:<?> := &true doesn't work yet.
sub prefix:<?> ( <==
2	/Users/nnunley/pugs/util/func_refact.pl	1328	1447	
==>n(\%ccset, $new);
	#}
}

sub union {
    my ($set, $new) = @_;
    my $oldsize = keys %$set;
    my $debug = $new eq ($C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1985	2087	
==>_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1985	2087	
==>_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15590	15727	
==>led_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15590	15727	
==>led_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4740	4844	
==>e index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splic <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4740	4844	
==>e index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splic <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13497	13647	
==>nidate' => str->new('P6opaque'))
                  })); 
                # create and init the object
                $e->create('$self' => $e->get('$c <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3143	3240	
==>ns Int { int (./doy / 7) }

method day_of_month returns Int { $.day }
method day_of_month_0 return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8897	9007	
==>e' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8897	9007	
==>e' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the package <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1965	2071	
==>he name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
Th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1965	2071	
==>he name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
Th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10152	10254	
==>ence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10152	10254	
==>ence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()` <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7821	7936	
==>}
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7821	7936	
==>}
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	5175	5280	
==>kg;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6645	6767	
==>a) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6645	6767	
==>a) returns Str is export {
    my @pairs = split(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	517	686	
==>$name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	517	686	
==>$name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7376	7492	
==>UERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7376	7492	
==>UERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1625	1776	
==>D} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1592	1743	
==>D} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1984	2109	
==>hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule para <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1984	2109	
==>hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule para <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7578	7676	
==>ile (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7578	7676	
==>ile (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12459	12611	
==>n $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12459	12611	
==>n $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	298	399	
==>pe content_encoding content_length content_language
    title user_agent server from referer
    www_a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	298	399	
==>pe content_encoding content_length content_language
    title user_agent server from referer
    www_a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3419	3517	
==>not merely appended to it; appending can create precisely the sort of weak 
keying that can be expl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3419	3517	
==>not merely appended to it; appending can create precisely the sort of weak 
keying that can be expl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20701	20799	
==>ob ioctl link listen 
# lstat mkdir open opendir pipe print printf read readdir readline
# readlink <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5308	5399	
==>ulti sub ToPrimitive(JSX::Value $v) {$v}

# 9.2
multi sub ToBoolean(JSX::Value::Undefined $v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	694	858	
==>= sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	694	858	
==>= sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-i <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	791	903	
==>ix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     i <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	791	903	
==>ix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const($x)     i <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28730	28826	
==>t/base..............ok
  t/nonumbers.........ok
  t/ok................ok
  t/test-harness......ok <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2837	2957	
==>header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cook <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2837	2957	
==>header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cook <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23700	23823	
==>{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20121	20244	
==>{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6470	6584	
==>t(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6470	6584	
==>t(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *in <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	852	979	
==>o, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	910	1037	
==>o, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2333	2444	
==>ets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12758	12853	
==>ame_to_char(Name,C), !.
p6_named_character_tail([],Close)    --> [Close], !.
p6_named_character_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	525	692	
==>nt "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	518	685	
==>nt "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        re <==
2	/Users/nnunley/pugs/util/importgraph.pl	2134	2227	
==>prim', qr/^Pugs\.Prim\.\w+$/);
setup_rank('prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed' <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1193	1285	
==>rl regular expressions

=head1 VERSION

This document describes version 0.03 of re::override, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1664	1778	
==>e/dir' );

Removes a directory completely, even if it is non-empty.

Returns true on success, false on failure.

=c <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2789	2888	
==>ugs_binary;
    my $full_blib = File::Spec->catfile($base, 'blib6', 'lib');
    open MAKEFILE, '< Ma <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2681	2818	
==>_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $value =~ s{\\}{\\\\}g;
        qq <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7021	7134	
==>ess -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = shift;
    my $ghc_ve <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2331	2430	
==>ray> | <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <capturing_group> | <no <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7931	8048	
==>see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral {  # see 7.8.3
      <DecimalLiteral>
    | <HexInteger <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17662	17792	
==>.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTH <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17662	17792	
==>.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTH <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1273	1385	
==>is in MRO, we take the superclasses
    # because we know that is there ...
    $supers = $class->get_attr(symbol <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3083	3185	
==>"type of " . qprintable($node) . " is $type";
			return Blondie::TypeSafe::Annotation->new(
				type => <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2199	2449	
==>n_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2199	2449	
==>n_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5906	5985	
==>ec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5906	5985	
==>ec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3921	4035	
==>w(struct_equiv => $_[0]) }),
		);
	}

	sub reduce_val {
		my $self = shift;
		my $val = shift;

		my $rval = $val-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13145	13251	
==>rror ), return;

    my $my_bindir =  $self->dir->subdir( $inst_pkg->package )->subdir('bin');

    ### XXX <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	881	1010	
==>turn @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	881	1010	
==>turn @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23267	23362	
==>accessors), which can be employed when objects of
multiple different Relation-implementing class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15234	15328	
==>lent to C</(?<=\w)(?!\w)/>. (So
that's the object's qr() method for you right there!)

=item Re <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	406	503	
==>ymmetrical ??
		-(int(abs($x) + 0.5)) !!
		-(int(abs($x) + 0.4))
}

our Int multi Num::round_half_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	540	666	
==>ort {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	540	666	
==>ort {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6639	6761	
==>ace', "x$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7322	7458	
==>rule = ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16861	16963	
==>Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, but only affects the f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3997	4085	
==>6"

Please see L<http://rt.cpan.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

Th <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1688	1788	
==>s..
##multi method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3547	3646	
==>s..
#multi method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4399	4542	
==>meta)) or return;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    return $meta;
}

=head2 package_re

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9462	9556	
==>their attributes are private, so you must use accessor methods.
Rosetta::Model does not declare <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9462	9556	
==>their attributes are private, so you must use accessor methods.
Rosetta::Model does not declare <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	671	781	
==>rt { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is exp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	671	781	
==>rt { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       returns Str is exp <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3389	3476	
==>12}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3389	3476	
==>12}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30562	30673	
==>user type") for each distinct Message; each file can be
shared by multiple Messages but the whole module must re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30562	30673	
==>user type") for each distinct Message; each file can be
shared by multiple Messages but the whole module must re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13297	13388	
==>_decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place repla <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13297	13388	
==>_decode_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place repla <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2902	2997	
==>ailable at
      http://m19s28.vlinux.de/iblech/pugs/livecd.iso.

Note: If you want to modify th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4175	4301	
==>~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4175	4301	
==>~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1635	1900	
==>se {
                    $in_string = 1;
                }
            }
            elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2807	2911	
==>y $node = shift;

	exists $self->{names}{$node->orig};
}

sub declare {
	my $self = shift;
	my $node = sh <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1034	1213	
==>fixme ;)
    }

    if ( $3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( $8.defi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4726	4822	
==>urns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qual <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4726	4822	
==>urns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qual <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	935	1077	
==>'>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	960	1102	
==>'>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11907	12008	
==>re retained.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11907	12008	
==>re retained.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13097	13192	
==>.

=over

=item Unary Form

Implementations should create a suitable macro, or otherwise support <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2167	2277	
==>ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2225	2335	
==>ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9273	9386	
==>od get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_asse <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9273	9386	
==>od get_template_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_asse <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1902	2027	
==>n, so there no doubt are some.
#
#  Possible Bugs:
#   * We are not using some of the tokenizer rules.
#     So it isnt entire <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1247	1352	
==>essed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    (blessed($value) && $va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33383	33487	
==>ol

Family: anchor

Types: eol (C<$>), seol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7845	7952	
==>],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... got the right method list (resolved)');
    
ok($FooBar <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	830	987	
==>if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	277	392	
==>= 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	335	450	
==>= 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test::force_todo_test_junction;

# for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23122	23317	
==>eop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23401	23596	
==>eop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32111	32213	
==>atch to said error
message.  If it finds one, then that is displayed; if not, it then checks
each set's <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32111	32213	
==>atch to said error
message.  If it finds one, then that is displayed; if not, it then checks
each set's <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13617	13765	
==>locks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13617	13765	
==>locks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	351	441	
==>e->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	351	441	
==>e->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3071	3173	
==>.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a ti <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3071	3173	
==>.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a ti <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7492	7590	
==>::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.com <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1720	1818	
==>::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinteractive.com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2260	2367	
==>::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2260	2367	
==>::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Int <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11271	11369	
==>s Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11271	11369	
==>s Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	630	841	
==>nt\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	630	841	
==>nt\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3288	3410	
==>relative_precedences{$opt->{precedence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! defined <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7542	7657	
==>{"output-file"}]
    --dry, -n               Show which tests would be run but don't run them
    --concurrent=N, -j <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16845	16945	
==>if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16845	16945	
==>if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span obje <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6935	7038	
==>'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an interface between the 

low-lev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6699	6798	
==>'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an interface between the 
low-lev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7323	7413	
==>gher order operators: alternation, concatenation.

- "plain" match operators: like 'literal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7073	7162	
==>gher order operators: alternation, concatenation.
- "plain" match operators: like 'literal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16686	16808	
==>get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16965	17087	
==>get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capt <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19046	19180	
==>after ".
              "test ", $next - 1, "\n";
    }

};

sub bailout_handler {
    my($self, $line, $type, $totals) = @_;

    die " <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5327	5502	
==>{
            while (<FH>) {
                last META_NOT_OURS if /^generated_by: Module::Install\b/;
            }
            return $self if -s FH;
        }
    }

    pri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14700	14809	
==>d later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant syste <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14700	14809	
==>d later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant syste <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	735	867	
==>$/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	735	867	
==>$/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1597	1691	
==>s/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1597	1691	
==>s/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	505	612	
==>s.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	505	612	
==>s.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7434	7539	
==>) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1259	1364	
==>) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6121	6246	
==>ff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $expec <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3972	4080	
==>my $ref = ref($x);
    if($ref) {
	return $x->isa($cls) if $ref eq 'Dispatchable';
	$cls =~ s/^perl5:(?=\w)// <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5316	5467	
==>e're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5780	5931	
==>e're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7489	7618	
==>rammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'clo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7682	7811	
==>rammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'clo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10162	10289	
==>temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10162	10289	
==>temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8783	8910	
==>ess \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $progra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8771	8898	
==>ess \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $progra <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2961	3063	
==>vious =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2961	3063	
==>vious =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        complement_ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22510	22681	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42299	42469	
==>:params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get(' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22151	22254	
==>l algebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and each a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26703	26806	
==>l algebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and each a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18083	18196	
==>d returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data stru <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18083	18196	
==>d returns a deep copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data stru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10841	10950	
==>rson AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10841	10950	
==>rson AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3749	3935	
==>h: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $succ = [ $matches[0]{state}, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3634	3814	
==>h: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18875	19018	
==>a} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20233	20376	
==>a} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	198	306	
==>ne 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	198	306	
==>ne 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2964	3080	
==>oisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signa <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2964	3080	
==>oisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	49	148	
==>rl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	49	148	
==>rl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7552	7751	
==>, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7609	7808	
==>, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    } <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26254	26386	
==>ins zero or more member tuples of
the Relation::Example; each Set member is a Mapping whose keys and values are
attribute names and v <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4874	4977	
==>de2 .= ";goto \&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = \$_[0]; \@_=".$code1."\$cn".$code <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4300	4480	
==>{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  si <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4440	4620	
==>{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  si <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	667	764	
==>to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() bec <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	667	764	
==>to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() bec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2857	3006	
==>>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3104	3253	
==>>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8109	8222	
==>Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Not <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8109	8222	
==>Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Not <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18986	19084	
==>method removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18986	19084	
==>method removes the fragment from the
given URI if it is present, as mandated by RFC2616.  Note that <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12414	12512	
==>inal Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memory manage <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7309	7403	
==>, $pSubLValue, $pSubIsMulti, $pSubBody);
}
sub code_helper {
    my($name,$pType, $pParams, $pL <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15725	15831	
==>day yday tzname tz is_dst>; # XXX: this should be a class variable!
        #Time::Local.new( pairs zip @id <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2524	2635	
==>OR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1674	1783	
==>OR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	282	371	
==>n = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	315	404	
==>n = Pugs::Compiler::Token->compile( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compil <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2166	2289	
==>t[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2166	2289	
==>t[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @string,0, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4603	4707	
==>ass, $module, $line_number, $post_process) = @_;

    # Read original module source code instead of takin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4603	4707	
==>ass, $module, $line_number, $post_process) = @_;

    # Read original module source code instead of takin <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	59	179	
==>----------
# This script converts p5 source to p6. Currently,
# only regexp matching and substitution are used, and
# thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22380	22492	
==>$match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22659	22771	
==>$match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} }       , <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5777	5932	
==>->{'%:methods'}->{$label};
        },        
        'get_method_list' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_insta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9831	9952	
==>tree) = @_;
    my $rx = $self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    if (@$st and <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1000	1093	
==>pile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Run::OnPerl5::X1::BB::pugs <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1166	1262	
==>% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_wit <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7960	8044	
==>$Foo->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_on_obj <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7289	7385	
==>method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_orde <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7289	7385	
==>method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traversal_orde <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1708	1833	
==>uring_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1719	1844	
==>uring_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2169	2286	
==>t_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2169	2286	
==>t_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	882	994	
==>e($_[1]) >= 0  ? bit->new(1) : bit->new(0) }
sub less_than_or_equal_to    { $_[0]->_compare($_[1]) <= 0  ? bit->n <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	210	318	
==>month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLe <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	210	318	
==>month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLe <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5482	5608	
==>nt, Int, List)\
\\n   Int       pre     push    safe   (rw!Array, List)\
\\n   Int       pre     unshift safe   (rw!Array, List <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8702	8809	
==>o end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $position;
  return ( $matchObj );
  en <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8811	9002	
==>) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation::Example $other!) returns <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9971	10089	
==>|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9971	10089	
==>|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5035	5140	
==>$parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SEL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5035	5140	
==>$parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SEL <==
2	/Users/nnunley/pugs/util/drift.pl	1692	1822	
==>ml.Syck
import DrIFT.YAML
import DrIFT.JSON
import DrIFT.Perl5
import Control.Monad
import qualified Data.ByteString as Buf

.

whi <==
2	/Users/nnunley/pugs/util/claim_drift.pl	804	905	
==>s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = File::Spec->canon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3788	3954	
==>age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3788	3954	
==>age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1624	1768	
==>=> {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1624	1768	
==>=> {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21771	21869	
==>e><Identifier>? <';'>
}
rule ReturnStatement :words {  # see 12.9
      <'return'><no_LineTerminato <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7038	7130	
==>return'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    return <?p6ws> $<val> := (<t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2832	2940	
==>rn {
  my ($self, $enum, $err, @args) = @_;
  local $self->{tree};
  $self->warn($enum, $err, @args);
}


sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2641	2746	
==>)} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->preop) {
        $args{dist} = $self->a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3601	3706	
==>) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->preop) {
        $args{dist} = $self->a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	730	837	
==>rt {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	788	895	
==>rt {
     $Test::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12597	12700	
==>0)             --> {true}.

p6_named_character(char(C)) --> "\\", ("c","C"), [Open], brackets(Open,Close <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7802	7910	
==>1), "\\X$1") if $cc;
      return $S->object(exact_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Ill <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6075	6235	
==>uleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6268	6428	
==>uleop::capture( 'escaped_char', \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10204	10305	
==>>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10204	10305	
==>>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16456	16557	
==>lement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a sing <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16456	16557	
==>lement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contains
a sing <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12970	13122	
==>md' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12964	13116	
==>md' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1288	1460	
==>le',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1288	1460	
==>le',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6193	6331	
==>the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6193	6331	
==>the DATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8900	9026	
==>-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8900	9026	
==>-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s:P5:g/'/&#39;/;
        $string ~~ s:P5:g/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2131	2267	
==>= shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2271	2407	
==>= shift; 
    sub { 
        # XXX - inconsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5089	5184	
==>erface provided by the C<LWP::UserAgent> module.

The following functions are provided (and expo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5089	5184	
==>erface provided by the C<LWP::UserAgent> module.

The following functions are provided (and expo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7000	7121	
==>k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning "Modifier :$k is not (yet?) supported b <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11753	11861	
==>t>?
    | <DecimalDigits> <ExponentPart>?
}
rule DecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <Dec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6340	6443	
==>r, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance cal <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11186	11289	
==>r, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance cal <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3636	3737	
==>SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3636	3737	
==>SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3469	3562	
==>S->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15086	15190	
==>alue of a header.  The header value is set if you pass
an argument to the method.  The old header value i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15086	15190	
==>alue of a header.  The header value is set if you pass
an argument to the method.  The old header value i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2135	2248	
==>p>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2135	2248	
==>p>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }e <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11178	11280	
==>-- for example, if a backend only ran three tests, which it
    passed, this page would report 100 % te <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	979	1178	
==>nd, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\t$obj->{package}\n";       
    }
    
}

sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14147	14257	
==>arams;

    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1545	1650	
==>relude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1752	1857	
==>relude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelude_file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1062	1194	
==>ex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #print "Str = $str\n";
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1231	1363	
==>ex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #print "Str = $str\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7307	7425	
==>pan1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7307	7425	
==>pan1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11188	11320	
==>entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:pe <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11188	11320	
==>entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2225	2375	
==>elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

meth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2225	2375	
==>elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

meth <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	461	573	
==>d analysis of test results

=head1 SYNOPSIS

  use Test::Harness::Straps;

  my $strap = Test::Harness::Straps->n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5619	5739	
==>e;
		
		warn "attempting to unify " . $node->struct_equiv . " whose type is " . $self->display_type($de_facto_type) . " w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10213	10342	
==>ion( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10213	10342	
==>ion( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7546	7654	
==>os => '\z');
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22785	22883	
==>the Set operators.

Like the Set data type, the Relation::Example data type is immutable.  The valu <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	927	1061	
==>{verbose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{verbose};
        my %cc = ($f => 1);
        print <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4727	4815	
==>w('Int',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p6_n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2107	2213	
==>$floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.conne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2107	2213	
==>$floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ ./:send($msg) })
      if $.conne <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1173	1279	
==>f coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1173	1279	
==>f coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20131	20238	
==>look at it.  The one
field labeled "Internal use only" is one of the most widely used. ;)
It get's is own se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38425	38534	
==>r, @kids),
      map($_->qr, @$consume);
  }

Here's a sample run:

  use Regexp::AndBranch;
  my $parser = Re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16904	17004	
==>gle span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify() <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16904	17004	
==>gle span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify() <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	468	557	
==>--------------------------------------------------
## accessors and mutators

method paren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	468	557	
==>--------------------------------------------------
## accessors and mutators

method paren <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10935	11030	
==>is a "universal set".
Otherwise the program will emit warnings during the execution of some meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10935	11030	
==>is a "universal set".
Otherwise the program will emit warnings during the execution of some meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2191	2316	
==>$_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2191	2316	
==>$_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### mat <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2275	2368	
==>our Int multi Num::round_up (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_away_f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2921	3022	
==>ure you combine the key with a nonce or initialization vector, a 
one-time random number.  (It will ne <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2921	3022	
==>ure you combine the key with a nonce or initialization vector, a 
one-time random number.  (It will ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15374	15485	
==>=> -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15374	15485	
==>=> -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3381	3480	
==>e object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3439	3538	
==>e object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1805	1927	
==>ils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefil <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1805	1927	
==>ils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefil <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5462	5564	
==>e are generated
# as the AST is left they are unified
# a free variable can be instantiated to point to <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10337	10449	
==>rn $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10337	10449	
==>rn $.span.previous( $x );
}

method current ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3406	3512	
==>f strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<ME <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3406	3512	
==>f strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<ME <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4968	5171	
==>q[rm -rf $src] )                           and die $?;

        }

        ### clean up the temp dir 
        system( qq[rm -rf $my_tmp_dir] )                        and die $?;
    }
    
    return $ins <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19640	19799	
==>does not have a heading\n";
              }
            
          }
        }
        # finally, write out the synopsis
        my $outfile = IO::File->new(">$ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3107	3231	
==>nts;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3107	3231	
==>nts;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_element => - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	895	1008	
==>mmediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1101	1214	
==>mmediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($pro <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2450	2563	
==>ITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	890	999	
==>$program);
    my $result = Blondie::Backend::Foo->execute($compiled);

    my $same_result = Blondie::Backend <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3716	3815	
==>ce($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3716	3815	
==>ce($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18484	18578	
==>ntical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18484	18578	
==>ntical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifically, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4858	4984	
==>pan.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4858	4984	
==>pan.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1437	1571	
==>~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1437	1571	
==>~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4024	4117	
==>t1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher obj <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4024	4117	
==>t1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher obj <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19981	20080	
==>e operating system itself, to have the user language data in separate
files (usually XML files I thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19981	20080	
==>e operating system itself, to have the user language data in separate
files (usually XML files I thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8835	8949	
==>ph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $loca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8835	8949	
==>ph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $loca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2286	2412	
==>aw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2286	2412	
==>aw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2157	2263	
==>yn_src_dir; # The root directory for perl6 Design POD 
my @t_dirs;      # Test root directories (if used)
m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4118	4396	
==>ing bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (?:
                          \s+                                   # Whitespace before re
                          $RE{delimited}{-delim=> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1647	1762	
==>ld not read $Metafile";

    my $deps    = $struct->{depends};
    
    print "Translating:\n";
    print Dump( $dep <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1391	1529	
==>e = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1391	1529	
==>e = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2446	2573	
==>let {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2446	2573	
==>let {
        [ <type> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ < <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	690	791	
==>::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	690	791	
==>::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8636	8745	
==>_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this v <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8636	8745	
==>_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this v <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7983	8081	
==>m' directive is reached, the next event fired will be
any text which follows the item.

=item I<end <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7983	8081	
==>m' directive is reached, the next event fired will be
any text which follows the item.

=item I<end <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3392	3492	
==>'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3392	3492	
==>'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2139	2349	
==>int("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2139	2349	
==>int("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	280	391	
==>, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	262	369	
==>, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    G <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2903	3051	
==>"wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    while (<$ifh>) {
        $gz->gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5037	5180	
==>.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5037	5180	
==>.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated cl <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	577	698	
==>|List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k ~~ any(@indextests);
    }
    *@ret; # want <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12751	12851	
==>rimitive { self.shift() }
}

# Support for ="some_file"
# I'm not sure where this is specced, but whe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15337	15445	
==>enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15337	15445	
==>enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10242	10346	
==>tem $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10242	10346	
==>tem $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The heade <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3623	3733	
==>lize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3623	3733	
==>lize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normalize $event<o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7630	7735	
==>trs ) === any( $!heading );

    return Relation::Example.new(
        heading => $!heading.union( set( $a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2407	2532	
==>most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2407	2532	
==>most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9904	10090	
==>fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9904	10090	
==>fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23676	23772	
==>erclasses;
}

(method superclasses ((opaque $self) (list ?@superclasses)) returns list 
    ((?@s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5154	5271	
==>x};
    push @$tree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1311	1413	
==>mpile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler::Rule->compile(q(<' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26611	26705	
==>eader, in which case it returns the identity-one
Relation or the invocant Relation respectively <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31163	31257	
==>eader, in which case it returns the identity-one
Relation or the invocant Relation respectively <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10758	10900	
==>t =~ $link ) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire ma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10180	10293	
==>",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify->($_)}@names6)
		    .'});');
    }

    $code <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1496	1628	
==>lf.meta.superclasses){
            #    take $class.subscriptions;
            #}
        }
    }
}

role Class::Events::Subscriber { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2061	2253	
==>n;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2061	2253	
==>n;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Message.n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	89	181	
==>Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	89	181	
==>Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13628	13741	
==>turn $S->force_object(anyof_class => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->add_handler('POS <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19510	19630	
==>erl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24062	24182	
==>erl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10073	10193	
==>{
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10073	10193	
==>{
      $self<disconnect>() if $connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12296	12399	
==>atibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eva <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12354	12457	
==>atibility as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eva <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4068	4184	
==>{
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4068	4184	
==>{
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	815	938	
==>an, 
        FILES => join(" ", grep length, $clean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = <==
2	/Users/nnunley/pugs/util/package-osx.pl	719	820	
==>/usr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5.1.dylib
        /usr/local/li <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11671	11789	
==>$.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11671	11789	
==>$.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7008	7158	
==>int "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6996	7146	
==>int "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5743	5843	
==>urn Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5743	5843	
==>urn Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () return <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1741	1839	
==>ced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1741	1839	
==>ced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$nu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	749	874	
==>discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	749	874	
==>discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15526	15664	
==>= @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    pac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15526	15664	
==>= @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    pac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4089	4201	
==>ta( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3271	3379	
==>submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3271	3379	
==>submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2091	2216	
==>} else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2091	2216	
==>} else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing wi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15481	15573	
==>oded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity an <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15481	15573	
==>oded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5759	5879	
==>$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5747	5867	
==>$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15769	15921	
==>' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _emit( $n->{exp2} ) .
            ' : ' . _emit( $n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20872	20982	
==>ll others for production use.

Most of the other (near term) third party Engines will likely just map
Rosetta's <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20872	20982	
==>ll others for production use.

Most of the other (near term) third party Engines will likely just map
Rosetta's <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2490	2589	
==>?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2490	2589	
==>?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	192	315	
==>\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12093	12190	
==>e(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hexidecimal_escape_sequence(X) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	928	1057	
==>:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	928	1057	
==>:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # Th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7968	8237	
==>k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing sati <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8432	8701	
==>k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing sati <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1107	1288	
==>)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $mod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	986	1167	
==>)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2718	2890	
==>s};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2858	3030	
==>s};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11779	11910	
==>40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11779	11910	
==>40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3222	3361	
==>xtra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %o <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3222	3361	
==>xtra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %o <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1085	1244	
==>require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.v <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1085	1244	
==>require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18986	19092	
==>SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18986	19092	
==>SUBROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2943	3077	
==>fier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2931	3065	
==>fier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = met <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36469	36563	
==>( $message! )>

This method takes a (machine-readable) Message object as its positional
paramet <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36469	36563	
==>( $message! )>

This method takes a (machine-readable) Message object as its positional
paramet <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42519	42657	
==>::Object->send('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        method->new(
            $::ENV <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3716	3851	
==>1 => $op, list => [ @x, $y ], assoc => 'list' };
}

sub emit_yapp {
    my ($self) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2989	3099	
==>f $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\E' => sub {
    my ($S, $cc) = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4637	4802	
==>e !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4637	4802	
==>e !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3716	3878	
==>> {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    };
}

sub null {
    return sub {
        $_[3] = b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1058	1160	
==>("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1058	1160	
==>("HTTP/1.0 200 OK\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	9	115	
==>n/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	9	115	
==>n/pugs

use v6;
use Test;
use Test::Pil;

# Bootstrap.pil is already loaded now
#my $BOOTSTRAP = slurp('src <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18631	18721	
==>list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18631	18721	
==>list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7416	7589	
==>( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	717	890	
==>( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24655	24756	
==>n 2 of the
License, or (at your option) any later version.  You should have received a
copy of the GPL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24655	24756	
==>n 2 of the
License, or (at your option) any later version.  You should have received a
copy of the GPL <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10582	10710	
==>elation {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14059	14187	
==>elation {

    die "The relation in $other has attributes in common with the invocant"
            ~ " relation."
        if any( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	429	526	
==>itespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 S <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	429	526	
==>itespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perldoc::DOM tree

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	781	907	
==>}
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	781	907	
==>}
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7952	8069	
==>te p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7964	8081	
==>te p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2427	2556	
==>else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2427	2556	
==>else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5648	5759	
==>ild === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Fo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5648	5759	
==>ild === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	257	372	
==>{ $a->{package} cmp $b->{package} } 
                 LoadFile( $Available ) 
) {
    print "$struct->{package} -- $ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1141	1239	
==>g roots, like square roots or
cube roots (as in the example above).  Read a Calculus textbook for d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6685	6822	
==>12),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6685	6822	
==>12),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7198	7306	
==>template text for the given message key from the
        # successfully loaded template module; on a function <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7198	7306	
==>template text for the given message key from the
        # successfully loaded template module; on a function <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	853	973	
==>l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	754	874	
==>l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10588	10684	
==>_previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10588	10684	
==>_previous => sub {...} )`

Creates a recurrence set. The complement set is specified with a recur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2024	2133	
==>= $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ( <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1010	1119	
==>= $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30237	30336	
==>e Variables, which will be substituted at run-time before the text
is shown to the user.

Each Templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30237	30336	
==>e Variables, which will be substituted at run-time before the text
is shown to the user.

Each Templ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10958	11128	
==>0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    lo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10958	11128	
==>0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8394	8528	
==>capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8390	8523	
==>capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1568	1701	
==>mplemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1568	1701	
==>mplemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTT <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6793	6895	
==>ackage cond;
use base qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14930	15015	
==>re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(cap(plus(R))),R1,R <==
2	/Users/nnunley/pugs/util/importgraph.pl	415	534	
==>erlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g = GraphViz->new(
  layout => $layout,
  directe <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	781	888	
==>tion syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    { <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	781	888	
==>tion syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5541	5643	
==>a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5541	5643	
==>a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8494	8596	
==>n security analysis before using it in any 
sensitive application.>

B<I<The authors and copyright hold <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8494	8596	
==>n security analysis before using it in any 
sensitive application.>

B<I<The authors and copyright hold <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1875	1972	
==>, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (e <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1875	1972	
==>, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16438	16536	
==>for new languages easily and without a recompile (such as by simply
copying files), often even whil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16438	16536	
==>for new languages easily and without a recompile (such as by simply
copying files), often even whil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16327	16423	
==>erface is defined mainly in terms of a new high-level
programming language named "Rosetta D", whi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16327	16423	
==>erface is defined mainly in terms of a new high-level
programming language named "Rosetta D", whi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12397	12492	
==>et1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12397	12492	
==>et1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2)>

= <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2469	2573	
==>st::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2527	2631	
==>st::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expecte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1151	1245	
==>de;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1151	1245	
==>de;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	644	762	
==>$extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	644	762	
==>$extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	458	590	
==>$file.'c';
        my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1572	1657	
==>=~ s/\$\+\[0\]/\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4431	4546	
==>ference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set differen <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4431	4546	
==>ference
multi sub *infix:<-> (Set $one, Set $two) returns Set {
    $one.difference($two);
}

# unicode set differen <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2042	2167	
==>nk(
            Stub("&func is not really implemented"),
        ),
    );

Use the default one, in L<Blondie::Prelude>, or pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	442	542	
==>oks like a tree, instead of a 'plain' Match.

- There are no tests yet for <before>, hashes, end_of <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	567	667	
==>($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	567	667	
==>($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4811	4915	
==>=> $a_file, $target);
    };

    $fixup->('Pugs.Embed.Perl5') if grep /^-DPUGS_HAVE_PERL5$/, @_;
    $fi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21009	21105	
==>], B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1537	1663	
==>duce_app {
    my $self = shift;
    my $app = shift;

	my $sent = scalar($app->values) - 1; # thunk + params

    $self->enter <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9949	10051	
==>part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9949	10051	
==>part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18486	18583	
==>use the perl regcompp and regexecp hooks (C functions
which get called on regular expression compi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2776	2873	
==>use the perl regcompp and regexecp hooks (C functions
which get called on regular expression compi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	808	936	
==>bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	808	936	
==>bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_st <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2318	2435	
==>pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2318	2435	
==>pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5479	5579	
==>ils';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9077	9177	
==>ils';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2410	2564	
==>sg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ " <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2410	2564	
==>sg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ " <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3623	3729	
==>ide functionality
while Perl 6 was still being developed.

This module is primarily for reading human writt <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3623	3729	
==>ide functionality
while Perl 6 was still being developed.

This module is primarily for reading human writt <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14905	14991	
==>-----------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	705	849	
==>rotocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	705	849	
==>rotocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	491	590	
==>fh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	491	590	
==>fh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10737	10869	
==>d returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10737	10869	
==>d returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2390	2809	
==>:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2390	2809	
==>:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External pa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5403	5505	
==>ree variable is a placeholder
# when going into an AST these are generated
# as the AST is left they ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	550	642	
==>rint("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request { <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	550	642	
==>rint("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1616	1714	
==>tr $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1616	1714	
==>tr $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20630	20727	
==>e program
in the order you chose so to pick a supported language closest to your
preference.  Pres <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20630	20727	
==>e program
in the order you chose so to pick a supported language closest to your
preference.  Pres <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8263	8363	
==>turns the number of items inserted.

It is not fatal to insert an item which is already inserted.

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8263	8363	
==>turns the number of items inserted.

It is not fatal to insert an item which is already inserted.

=h <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10810	10904	
==>>

=item B<content_length returns Str>

=back

B<The following informational functions are fetc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10810	10904	
==>>

=item B<content_length returns Str>

=back

B<The following informational functions are fetc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21735	21834	
==>ame key code with a new user message in
one of their own resource files.  At some appropriate place, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21735	21834	
==>ame key code with a new user message in
one of their own resource files.  At some appropriate place, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21311	21400	
==>t>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("logg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21311	21400	
==>t>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("logg <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	99	207	
==>is is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <so <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	99	207	
==>is is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <so <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34761	34934	
==>>set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e->get('$dispatcher')->do());
                })- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27808	27973	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28087	28252	
==>op::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3979	4132	
==>);
}

sub cmp_ok ($$$@) {
    my($got, $type, $expected, $name, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4116	4226	
==>> { required => 1, store => \$file }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), re <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5267	5371	
==>ESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Bas <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5267	5371	
==>ESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not> a port
of Perl5's MIME::Bas <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2264	2385	
==>meta_dir = $inst->control_dir( $self->package );
        my $data     = $conf->archive_data;
        my $control  = $conf- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9979	10073	
==>rray is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9979	10073	
==>rray is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1318	1448	
==>eyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1318	1448	
==>eyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	354	468	
==>non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'no <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	24	132	
==>::Fast-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $. <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	24	132	
==>::Fast-6.0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2160	2266	
==>e argument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	52	152	
==>ium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	52	152	
==>ium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite string a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1767	1892	
==>)[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1767	1892	
==>)[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	941	1052	
==>:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!al <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	941	1052	
==>:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7692	7800	
==>te ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($self: )       i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7692	7800	
==>te ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_authorization ($self: )       i <==
2	/Users/nnunley/pugs/util/package-osx.pl	3218	3332	
==>ead-multi-2level/auto/Perl6/Pugs/.packlist
        /Library/Perl/5.8.6/v6.pm
        /Library/Perl/5.8.6/Inline/Pug <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	881	978	
==>or example:

    p5-foo-1-cpan+kane

=head1 METHODS

=head2 $pkg = JIB::Package->new( file => /pat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3802	3909	
==>t::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an emp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3802	3909	
==>t::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an emp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9934	10053	
==><E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9934	10053	
==><E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2297	2439	
==>less defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2297	2439	
==>less defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8454	8557	
==>$newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8454	8557	
==>$newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6446	6557	
==>am("apo", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{A} }) ] );
    print $fh $template->outp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39381	39473	
==>piece.
Because range checking (C<[a-z]>) requires knowledge of the characters
on the lower an <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1677	1780	
==>ive in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1677	1780	
==>ive in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11394	11525	
==>T_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11394	11525	
==>T_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?S <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	210	343	
==>py )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	210	343	
==>py )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	554	660	
==>parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	554	660	
==>parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19498	19605	
==>s class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24050	24157	
==>s class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set that exi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1698	1867	
==>ildir on client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control.tgz';                    # part wi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10300	10414	
==>kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10300	10414	
==>kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2919	3018	
==>et.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2919	3018	
==>et.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21804	21919	
==>S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18225	18340	
==>S->object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	473	578	
==>ast include the invocant";
    my $inv = $args->fetch(num->new(0));
    (blessed($inv) && $inv->isa('opaqu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1494	1599	
==>tly incomplete.  I<Please> contact the author
if you'd like a feature added or something change or just ha <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25159	25261	
==>'>
    | <'{'> <DecimalDigits> <',}'>
    | <'{'> <DecimalDigits> <','> <DecimalDigits> <'}'>
}
rule At <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1682	1790	
==>g;  # escape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->compile( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5821	5991	
==>xists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5833	6003	
==>xists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match varia <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	249	350	
==>::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	249	350	
==>::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	86	179	
==>c::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	86	179	
==>c::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perld <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2063	2193	
==>l5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter ord <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2203	2333	
==>l5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter ord <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10370	10469	
==>turns the number of items
inserted.

It is not fatal to insert an item which is already inserted.  I <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10370	10469	
==>turns the number of items
inserted.

It is not fatal to insert an item which is already inserted.  I <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5305	5442	
==>else {
      while(pops_left--) {
        POPs;
      }
    }
    PUTBACK;

    fprintf(stderr,"done.\n");
    return matched ? 1 : 0;
  } <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12810	12913	
==>$self->{$hash};
}

sub run {
    my $self = shift;
    $self->execute($self->compile(@_))->val;
}

packa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1084	1206	
==>match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1084	1206	
==>match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	800	909	
==>s;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (Int $status = 0) is builtin is pri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	466	584	
==>RTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	466	584	
==>RTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13992	14091	
==>et();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13992	14091	
==>et();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The R <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1730	1838	
==>($end_index) && $end_index->isa('num')))    
        || confess "Indecies must be a num type";
    return lis <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	335	441	
==>where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	335	441	
==>where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Medium> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2402	2508	
==>) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2402	2508	
==>) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13	113	
==>.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	71	171	
==>.0.6;

### CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<T <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	512	668	
==>])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $ch <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	512	668	
==>])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7751	7896	
==>ing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7751	7896	
==>ing ", Dumper($_[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19583	19705	
==>->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16004	16126	
==>->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1916	2029	
==>e_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
clas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1916	2029	
==>e_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
clas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2042	2213	
==>- $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2259	2430	
==>- $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Gramma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24897	24996	
==>oor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other components i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24897	24996	
==>oor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other components i <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	493	600	
==>m_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inlin <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	493	600	
==>m_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inlin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16182	16278	
==>de *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20608	20704	
==>de *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11341	11490	
==>[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        unless $code =~ /return/;
    return "#return-block#" . $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	835	932	
==>e $UNIVERSAL::require::ERROR;
	$self->emitter_class->new;
}

sub emit {
	my $self = shift;
	$self- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8370	8484	
==>\"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<obj <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8370	8484	
==>\"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<obj <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7121	7217	
==>l rule operators



Internal rule operators share a common API, which permits the intercommunicat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6878	6972	
==>l rule operators

Internal rule operators share a common API, which permits the intercommunicat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15831	15939	
==>body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19308	19416	
==>body => $!body.symmetric_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) retu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1361	1468	
==>sity;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %para <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1361	1468	
==>sity;
    $density = 1 if %param<int>;
    $density = %param<density> if defined %param<density>;

    %para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8366	8500	
==>q '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8366	8500	
==>q '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 );
        if ( $cmd <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	856	970	
==>nfix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '< <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4702	4802	
==>($e = "failed") is primitive is builtin is safe {
        if Pugs::Internals::current_pragma_value($? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23811	23928	
==>ush
  if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (spl <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	16	119	
==>d::Config;
use strict;
use warnings;
our $VERSION = '0.01';

use File::Copy;

# change these two lines i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1017	1127	
==>or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mixes in both Package

and C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	967	1075	
==>or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mixes in both Package
and C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16447	16583	
==>nvoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16447	16583	
==>nvoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17789	17909	
==>can_ok ($@) {
    my($proto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        retu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23301	23407	
==>ution - Input

=head1 Execution - Output

=head1 Todo

 #define REG_SEEN_ZERO_LEN        1
 #define REG_SEE <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	550	652	
==>is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	608	710	
==>is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $number_of_tests;
    say <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2244	2345	
==>blech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2244	2345	
==>blech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8041	8328	
==>al->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App->new(
                                Sym->new('&infix <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4585	4693	
==>($rh, $wh, $Config{pugs}, -C => 'Parse-YAML', $TEMP_PRELUDE);
    $lines += print OUT while <$rh>;
    #my $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13738	13832	
==>ield names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13738	13832	
==>ield names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7470	7680	
==>n good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7934	8144	
==>n good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1188	1292	
==>._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Boo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1188	1292	
==>._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Boo <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2018	2143	
==>REREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2898	3023	
==>REREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38185	38292	
==>s a defined (but possibly empty) Template text string in
its positional parameter $text (a string), and a Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38185	38292	
==>s a defined (but possibly empty) Template text string in
its positional parameter $text (a string), and a Me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	941	1035	
==>ecified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	941	1035	
==>ecified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<deciphering> >> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8097	8247	
==>ub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8097	8247	
==>ub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10444	10564	
==>larExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!before <[*\\\/]>> <NonTerminator>
    | <Back <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	334	436	
==>input, Str *$label, Str $pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - slurpy magic doe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4114	4261	
==>) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium- <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4114	4261	
==>) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11945	12056	
==>is:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12003	12114	
==>is:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, St <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2694	2805	
==>ls->_chdir( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), return;

### XXX perl-if <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3346	3449	
==>erator;
use base qw/type/;

sub new {
	my $class = shift;
	bless {}, $class;
}

package type::operator:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2900	2995	
==>ish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :op <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2900	2995	
==>ish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :op <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	364	494	
==>import {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse(13, "b", 1, sub {
            my $mat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1337	1438	
==>eat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1337	1438	
==>eat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

There're various t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15200	15303	
==>- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following methods are a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15200	15303	
==>- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The following methods are a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20352	20453	
==>it also performs quite slowly; you should only use Example
for testing, development, and study; you sh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20352	20453	
==>it also performs quite slowly; you should only use Example
for testing, development, and study; you sh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10363	10466	
==>array).  The deferred validations are performed
on demand at some time after the input has been set, and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10363	10466	
==>array).  The deferred validations are performed
on demand at some time after the input has been set, and <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9245	9352	
==>entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9245	9352	
==>entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	632	763	
==>'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	632	763	
==>'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zero <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5110	5207	
==>finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5110	5207	
==>finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the dat <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1803	1920	
==>ems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $t = int($x);
	$x > 0 && $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14098	14199	
==>/:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14098	14199	
==>/:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8724	8838	
==>st: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9559	9673	
==>st: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15992	16093	
==>g with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note that the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15992	16093	
==>g with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note that the Ro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33115	33244	
==>tack, $depth) = @_;
    unshift(@$walk_stack,
      sub { -1 },
      $self->{data},
      sub { +1 },
    ) if $depth;
  }

The t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8795	8887	
==>ify => ('type::operator::nary', 'type::operator::nary') => sub {
	my ($x, $y) = (shift, shift <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3024	3127	
==>nf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API.

= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3024	3127	
==>nf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional API.

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30723	30824	
==>late module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30723	30824	
==>late module has two parts, the Set Name and the Member
Name.  The Set Name comes first and makes up mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10639	10744	
==>veral fields with a single invocation.

The $value argument may be a plain string or a reference to an arr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10639	10744	
==>veral fields with a single invocation.

The $value argument may be a plain string or a reference to an arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	543	639	
==>emote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_reques <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	543	639	
==>emote.print("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_reques <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	54	186	
==>tan asin acos atan sec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosec <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7091	7181	
==>5/<simple_call>/) {$m}

multi infix:<*> ($a,$b) {...}
multi infix:<+> ($a,$b) is looser(inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	799	934	
==>:Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	961	1096	
==>:Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param- <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	264	440	
==>_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_store' => sub {
                my ($self, $value) = @_;
                $self <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4953	5089	
==>ent = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or her <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4953	5089	
==>ent = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or her <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18319	18436	
==>s) = @_;

    my $curr = $totals->{seen};
    my $next = $self->{'next'};
    my $max  = $totals->{max};
    my $detai <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	185	282	
==>p5 code, it's really 
pretty bad actually, and the s-expr got quite messy
as well. Although that c <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7090	7222	
==>5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* this breaks under taint, but open -| is unportable.
    my $line = $self->_command_line($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1273	1409	
==>\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1273	1409	
==>\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13353	13451	
==>ents, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to other a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13353	13451	
==>ents, you should never refer directly to "Locale::KeyedText" in
your code; instead refer to other a <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3049	3154	
==>=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minut <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3049	3154	
==>=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mails per minut <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9348	9463	
==>mpile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9348	9463	
==>mpile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $r <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2911	3018	
==>honours the spirit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2911	3018	
==>honours the spirit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1958	2056	
==>x:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1958	2056	
==>x:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $on <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	268	365	
==>my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	268	365	
==>my $cipher = Cipher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24837	24942	
==>od returns this Relation's body.

=item C<size () returns Int>

This method returns a count of this Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29389	29494	
==>od returns this Relation's body.

=item C<size () returns Int>

This method returns a count of this Relati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6363	6489	
==>$match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6363	6489	
==>$match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	223	322	
==>=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	223	322	
==>=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6184	6324	
==>ssage/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6184	6324	
==>ssage/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $cont <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6754	6884	
==>er_for_re('.') if $re eq '.';
    die "didn't implement $re"
  }
}
{
  # \w \W
  package Regexp::Parser::alnum;
  sub emit {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28285	28385	
==>t (for a 'quant' node), or it might not exist at all
(for an 'anchor' node).

=item my $e = $obj->end <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	350	539	
==>status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	350	539	
==>status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5272	5399	
==>My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data struc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5272	5399	
==>My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data struc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5717	5837	
==>uperclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10028	10148	
==>uperclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11251	11417	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11530	11696	
==>'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3518	3627	
==>$^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3518	3627	
==>$^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15320	15426	
==>file;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the first a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4858	4955	
==>ibutes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4858	4955	
==>ibutes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9841	9949	
==>f:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9841	9949	
==>f:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cip <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	65	158	
==>ass in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	65	158	
==>ass in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8363	8469	
==>ets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # cha <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8363	8469	
==>ets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page contains substantial use of Unicode
  # cha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4270	4396	
==>state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4270	4396	
==>state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1645	1823	
==>\:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1645	1823	
==>\:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7097	7229	
==>r('\X' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11165	11333	
==>r> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | < <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2189	2442	
==>ame $attr_name) {...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method all <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26480	26575	
==>tical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26480	26575	
==>tical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3037	3143	
==>et.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mail <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3037	3143	
==>et.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending application. We'd like to
allow 2 mail <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15120	15316	
==>b { $as_hash_complain->("ref") },
      glob  => sub { $as_hash_complain->("glob") },
      lvalue => sub { p6_as_hash(${$_[0]}) },
      perl5_object => sub { \%{$_[0]} },
      perl6_object => su <==
2	/Users/nnunley/pugs/util/package-osx.pl	4522	4619	
==>:Bible::S02.3pm
        /usr/local/man/man3/Perl6::Bible::S03.3pm
        /usr/local/man/man3/Perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7457	7565	
==>..."
  
  my $rxinfix = Pugs::Grammar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	686	830	
==>turn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	686	830	
==>turn join( '', map { match::str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7018	7135	
==>e"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7018	7135	
==>e"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2453	2577	
==>res

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2637	2761	
==>res

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3563	3688	
==>arser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3563	3688	
==>arser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", po <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4270	4385	
==>f Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4270	4385	
==>f Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # i <==
2	/Users/nnunley/pugs/util/package-osx.pl	4467	4564	
==>erl6::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/man/man3 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20718	20810	
==>amed L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20718	20810	
==>amed L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to implement the Rosetta DB <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17712	17811	
==>er attribute, C<charmap>,
which is a hash reference holding character values (eg. 65 for 'A') and
th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10223	10374	
==>[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10223	10374	
==>[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26856	26990	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27135	27269	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5219	5321	
==>ue
# otherwise $range is a fractional error.
# Here $range must be numeric, >= 0
# Non numeric ranges m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2145	2241	
==>s_versnum: ([\d.]+)/ and $smoke{pugs_version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1968	2092	
==>() { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1968	2092	
==>() { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is ex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8814	8961	
==>users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8814	8961	
==>users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The m <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2022	2153	
==>am available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2000	2131	
==>am available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $di <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13199	13305	
==>Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13199	13305	
==>Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7008	7117	
==>coding") }
method content_language ($self: )          is rw { $self.header("Content-Language") }
method conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7008	7117	
==>coding") }
method content_language ($self: )          is rw { $self.header("Content-Language") }
method conten <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8349	8501	
==>, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorizat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8349	8501	
==>, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorizat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	63	168	
==>ensity;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	63	168	
==>ensity;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	402	508	
==>ompare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * con <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	402	508	
==>ompare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23654	23749	
==>sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23654	23749	
==>sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15796	15931	
==>eue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15796	15931	
==>eue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enq <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2971	3138	
==>p $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq_pm
    my $subdirs = ($args->{DIR} ||= []);
    if ($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2091	2216	
==>p $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq_pm
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1554	1653	
==>for many purposes.  
Although the interface is said to be procedural, it is invoked via two class 
m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1554	1653	
==>for many purposes.  
Although the interface is said to be procedural, it is invoked via two class 
m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6253	6341	
==>ift;

	$self->mangle_sym_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_sym_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5068	5187	
==>avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5532	5651	
==>avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9594	9711	
==>return if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubb <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9594	9711	
==>return if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubb <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7901	8010	
==>g

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7901	8010	
==>g

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13610	13732	
==>s  {  # see 11.2
      <MemberExpression>
    | <'new'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3362	3472	
==>>object(exact => "\f", '\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13786	13888	
==>ld )

Apply a subroutine to each header field in turn.  The callback routine
is called with two paramet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13786	13888	
==>ld )

Apply a subroutine to each header field in turn.  The callback routine
is called with two paramet <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5009	5148	
==>a"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5009	5148	
==>a"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1099	1268	
==>tr   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1099	1268	
==>tr   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has I <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14729	14857	
==>en for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PAR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14729	14857	
==>en for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PAR <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	67	166	
==>l6::MetaModel;

role 'IScalar' => {};

class 'PIL::Run::Container::Scalar' => {
    does => [ 'IScal <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	360	458	
==>ode_a2{ hlp('array2',@_); }
sub node_h { hlp('hash',@_); }

BEGIN{
node_h 'PIL_Environment',      ' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2229	2332	
==>span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2229	2332	
==>span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15534	15637	
==>was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15534	15637	
==>was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26181	26286	
==>r, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While it is by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26181	26286	
==>r, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While it is by <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	880	1079	
==>uleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	881	1080	
==>uleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26556	26650	
==>ge constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26556	26650	
==>ge constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1448	1551	
==>$.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1448	1551	
==>$.closure_previous;
    has Code $.complement_next;
    has Code $.complement_previous;
    has Recurren <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30980	31077	
==>elation::Example has as
many additional attributes as there are pairs in the argument C<$attrs>,
w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16488	16582	
==>such as by simply
copying files), often even while the program is executing.

Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16488	16582	
==>such as by simply
copying files), often even while the program is executing.

Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5783	5872	
==>earch.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5783	5872	
==>earch.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30103	30216	
==>dler is:

  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };  # there was an 'atom' ther <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6632	6745	
==>ft channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6632	6745	
==>ft channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12009	12144	
==>x eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12003	12138	
==>x eq '@' ) {
        # XXX - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	481	577	
==>tions don't make sense while interpreting ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17392	17481	
==>Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1565	1673	
==>rposes.  
Although the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1565	1673	
==>rposes.  
Although the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=i <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	325	469	
==>> [ 'IHash' ],
    instance => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	274	407	
==>er est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1802	1935	
==>er est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVE <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8213	8349	
==>i 13 violation\n"); exit(0);
      }
      pat = POPs;
      nparens = POPl;
      exec_callback_sub = POPs;
      PUTBACK;
      regexp_ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2633	2761	
==>sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

our Int multi Num::round_alternate ( Num $x ) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	732	832	
==>struct new classes which are of its type.

=item *

It serves as the basis for a method dispatch scop <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7230	7379	
==>d', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7230	7379	
==>d', { 'name' => 'sex' }, [
                $sdtd_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Mod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12384	12481	
==>BUILDALL($params);
    return $self;
}

(method bless ((opaque $class:) (str $canidate) (hash %par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19097	19194	
==>e constructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19097	19194	
==>e constructor. If the nickname is already used, C<Net::IRC> will
try to use a permuted nick (for e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	536	640	
==>il::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	536	640	
==>il::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8477	8627	
==>s = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8477	8627	
==>s = $match.marks;
        $marks{$name} // die "No mark with name '$name' in scope";
        &continue($match.clone(
                    backtrack => $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1784	1877	
==>hen resume the installation process described in README.

------------------------------------ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1624	1717	
==>hen resume the installation process described in README.

------------------------------------ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6425	6539	
==>93.
multi method Array::as_num (@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r859 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2301	2407	
==>\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2518	2624	
==>\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16580	16720	
==>::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string af <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5219	5356	
==>!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5219	5356	
==>!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	730	854	
==>= $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	730	854	
==>= $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $po <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2902	3003	
==>y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '... got the right class name');

is($ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	760	861	
==>yze_file($test_file);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Altering the behavi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32484	32574	
==>e::KeyedText::Translator Class

While a Translator object stores some attributes for config <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32484	32574	
==>e::KeyedText::Translator Class

While a Translator object stores some attributes for config <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7080	7183	
==>s.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does not supp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7080	7183	
==>s.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does not supp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3198	3282	
==>stBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3384	3468	
==>stBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH('::Test')-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17767	17875	
==>time penalty after compilation, because C<perl> has
already been doing the C<.pmc> check on every module load <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17767	17875	
==>time penalty after compilation, because C<perl> has
already been doing the C<.pmc> check on every module load <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4959	5061	
==>e Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or modify
i <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4959	5061	
==>e Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or modify
i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2769	3001	
==>rt($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2769	3001	
==>rt($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    } <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	238	346	
==>e if the user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	189	291	
==>e if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4001	4098	
==>se Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has In <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4001	4098	
==>se Cipher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6268	6382	
==>rts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6268	6382	
==>rts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3386	3484	
==>ect is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $ou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3444	3542	
==>ect is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $ou <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20944	21039	
==>> <')'> <Statement> <'else'> <Statement>
    | <'if'> <'('> <Expression> <')'> <Statement>
}
rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9065	9165	
==>f the set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9065	9165	
==>f the set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3630	3739	
==>|| $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3630	3739	
==>|| $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8820	8959	
==>,Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'gree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8816	8955	
==>,Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'gree <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6928	7043	
==>** Building: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" unless -e "pugs$Config{_ex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15674	15812	
==>run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15674	15812	
==>run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12466	12576	
==>ject    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12466	12576	
==>ject    => strip_colon($object),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1265	1383	
==>ist
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1253	1371	
==>ist
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = $param->{sigspace};   # XXX - $sigspace should be <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1229	1320	
==>---------------------------

Since you are using Microsoft Windows, you will need the 'nmake <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1069	1160	
==>---------------------------

Since you are using Microsoft Windows, you will need the 'nmake <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11737	11833	
==>m C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11737	11833	
==>m C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2823	2965	
==>quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3070	3212	
==>quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16670	16795	
==>tries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16670	16795	
==>tries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	55	177	
==>ngs;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no stric <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	55	177	
==>ngs;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no stric <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	911	1026	
==>gs);
    }
    multi sub exec(@args) returns Bool is builtin is primitive is unsafe {
        # say "e:args:" ~ @arg <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	816	930	
==>_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $config_defaul <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	976	1069	
==>item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	976	1069	
==>item B<remote_host returns Str>

=item B<remote_address returns Str>

=item B<remote_ident ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	211	345	
==>ssage was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	211	345	
==>ssage was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8002	8117	
==>lete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8002	8117	
==>lete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19453	19568	
==>lf[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad[ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3133	3239	
==>PSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3133	3239	
==>PSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9208	9345	
==>ifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3000	3207	
==>' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3000	3207	
==>' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Do <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9958	10064	
==>.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9958	10064	
==>.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37753	37851	
==>a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37753	37851	
==>a string), and a Message Key in its positional parameter
$msg_key (a string).  Assuming that a Perl <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19364	19542	
==>list)[0]->push_content($backlink);
                }
                

              } else {
                # perhaps L<S02> etc should just link to the top?
                # t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6314	6467	
==>teral_end:
    if litlen < 1 goto term_literal_one
    dec pos
  term_literal_one:
    $I0 = pos - litstart
    $S0 = substr target, litstart, $I0
    $S0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11630	11742	
==>} elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11630	11742	
==>} elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11252	11396	
==>section, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11252	11396	
==>section, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2577	2678	
==>odes that contain only source representation.

=back

=head1 API METHODS

These methods must be implem <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2577	2678	
==>odes that contain only source representation.

=back

=head1 API METHODS

These methods must be implem <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8562	8665	
==>binary') => sub {
	my ($x, $y) = (shift, shift);
	
	$x->{symbol} eq $y->{symbol}
		or die "Can't unify $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22186	22327	
==>me, 0, 1
    if $S0 == '"' goto end
    $I0 = cname
    inc $I0
    pad["subpats"] = $I0

  end:
    .return (self)
.end

.namespace [ "PGE::E <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3134	3230	
==>ix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3134	3230	
==>ix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21660	21841	
==>in => comb(
            fun => comb(
                fun => ide("length'"),
                param => ide("xs"),
            ),
            param => val(0),
        ),
    ),
);

my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5174	5273	
==>t->new(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2521	2670	
==>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule def <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2521	2670	
==>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule def <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	900	1012	
==>nce methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	900	1012	
==>nce methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8135	8281	
==>36),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8135	8281	
==>36),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	727	829	
==>de;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	727	829	
==>de;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9691	9796	
==>p:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9691	9796	
==>p:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18199	18345	
==>r'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41464	41610	
==>r'), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(li <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1739	1904	
==>ld {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1739	1904	
==>ld {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7895	8011	
==>Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7895	8011	
==>Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7761	7858	
==>od proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7761	7858	
==>od proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method autho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4051	4213	
==>e, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4051	4213	
==>e, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3314	3414	
==>ilder::Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FET <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8491	8598	
==>ments, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2316	2423	
==>ments, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @st <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2151	2281	
==>de(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2151	2281	
==>de(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $_}, splice @s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3403	3494	
==>+)\);/\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1630	1721	
==>Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1630	1721	
==>Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3105	3219	
==>s' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'N <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3105	3219	
==>s' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'N <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3188	3324	
==>}
    
    return _not_implemented( $n->{op1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7556	7680	
==>);
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5199	5312	
==>h Class

=pod

class Class {
    has @:MRO;
    has @:subclasses;
    has @:superclasses;
    has %:private_method <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4547	4655	
==>th thunk prototype in $app";

		my $i; my $unified_app = $rapp->fmap(sub {
			my $node = shift;
			return $no <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4753	4870	
==>rnalValue::List is Array;

# 8.9 The Completion Type
class JSX::InternalValue::Completion_type { # XXX - should be enu <==
2	/Users/nnunley/pugs/util/package-osx.pl	5213	5310	
==>n3/Perl6::Bible::S28.3pm
        /usr/local/man/man3/Perl6::Bible::S29.3pm
        /usr/local/man/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4761	4859	
==>2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4761	4859	
==>2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6133	6255	
==>row;
}

sub splat { # this simplifies the AG above, and avoids unnecessary duplication
	my $self = shift;
	$self->{instance <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5463	5587	
==>p = Op->new($name,$prec);
  my $r = compile($re) || die;
  $r = mk_Match_appender($r,$name);
  push(@operators,[$r,$op]);
  $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	291	407	
==>removals.
#     Several "SourceCharacter but not ..." have been expressed as
#     complemented character sets.  <-[. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26667	26768	
==>erl5_eval/2 and perl5_method/4 will be available

do{open F,">deleteme_pro.pl";print F $prolog;close F <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8113	8222	
==>ility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convie <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8113	8222	
==>ility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11799	11918	
==>m the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11799	11918	
==>m the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	333	476	
==>t, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, time <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	333	476	
==>t, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, time <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	22	112	
==>et::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Fu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	22	112	
==>et::Symbols is defined in the Recurrence.pm package
use Set::Symbols;
use Set::Infinite::Fu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3650	3762	
==>ry report mean:

=over 4

=item B<Failed Test>

The test file which failed.

=item B<Stat>

If the test exited wi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	178	276	
==>my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is <==
2	/Users/nnunley/pugs/util/package-osx.pl	9518	9647	
==>{
        print `rm -rf $dir/.svn`;
        print "Removed $dir/.svn\n";
    }
    for my $sub_dir (grep -d, <$dir/*>) {
        r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1348	1509	
==>($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1348	1509	
==>($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1393	1500	
==>*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1393	1500	
==>*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->code;

# -- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	680	829	
==>eturn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	691	840	
==>eturn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4113	4325	
==>ile::Spec->catfile( 
                                    $my_tmp_dir,
                                    $conf->meta_file )
                ) };
        $@ and error( "Could not load meta file from archive: $@" ) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	586	691	
==>"annotations are not eatable, flatten first";
	}

	sub type {
		my $self = shift;
		my $type = $self->SUPE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8094	8466	
==>' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8094	8466	
==>' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	202	313	
==>t{
=begin COMMENT
 blah; # ist das so richtig?
 =end COMMENT
#!}\end{block}

Neu in Perl 6 ist, das vor und hint <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6657	6767	
==>&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7665	7775	
==>&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11883	11999	
==>} . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW at once;
	    # the test itsel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7550	7732	
==>}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1} ) {
            # %var<item>.++;
            #warn " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	208	305	
==>Perl6's CPAN, also known as sixpan.

Please refer the documentation of the other Modules in the JI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6728	6904	
==>, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6728	6904	
==>, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	114	219	
==>N ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	114	219	
==>N ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6535	6633	
==>{...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6535	6633	
==>{...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	197	368	
==>ar,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	197	368	
==>ar,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1726	1837	
==>okup), App (application) and Lit (literal).



App is divided to Multiple, Single and Primitive dispatch.

Lit i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1657	1765	
==>okup), App (application) and Lit (literal).

App is divided to Multiple, Single and Primitive dispatch.
Lit i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9990	10105	
==>ars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9990	10105	
==>ars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_templ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14765	14930	
==><$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14759	14924	
==><$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2694	2788	
==>sses... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($n <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2694	2788	
==>sses... though a default
implementation exists, too.

=over

=item B<source>

=item B<source($n <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	393	532	
==>.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	393	532	
==>.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19047	19161	
==>must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19047	19161	
==>must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3045	3160	
==>ndlers
  # First event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $serv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3045	3160	
==>ndlers
  # First event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $serv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17197	17320	
==>$3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13618	13741	
==>$3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5947	6052	
==>) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5947	6052	
==>) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2292	2463	
==>ld not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2292	2463	
==>ld not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1470	1741	
==>g_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1470	1741	
==>g_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding u <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1204	1313	
==>od BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrenc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1204	1313	
==>od BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16954	17053	
==>alue indicates what additional
encoding mechanism has been applied to the resource.

=item $h.conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16954	17053	
==>alue indicates what additional
encoding mechanism has been applied to the resource.

=item $h.conten <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6292	6531	
==>get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$method"))                        
             }))))
|;

=pod

($::ENV create 
    ("*::WALKM <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3178	3280	
==>ewfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:punct:]/ )
  {
    $matchObj->position( $m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9668	9777	
==>f
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9668	9777	
==>f
C<$set1> has at least one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	298	427	
==>oritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	298	427	
==>oritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1141	1235	
==>ther thingies.

It also gives the compiler the default environment to work with (from
L<Blondie <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	203	305	
==>ly 
pretty bad actually, and the s-expr got quite messy
as well. Although that could be fixed with macr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2430	2523	
==>C<_perl_version> returns the version of a certain perl binary.
It does this by actually runnin <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14415	14522	
==>self.split('');
    }
}


sub Pugs::Internals::but_block ($obj, Code $code) is primitive is safe {
    $code <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	836	1005	
==>| -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME u <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	836	1005	
==>| -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME u <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14215	14320	
==>time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14215	14320	
==>time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2105	2202	
==>nciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional inter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2105	2202	
==>nciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional inter <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1075	1423	
==>SubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

submethod new (Relation::LaxAttrList :%attrs? = {}) {
    return $?CLASS->ble <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7842	7938	
==>ject's internal structures.

Cipher authors should assume that if this method is being called, th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7842	7938	
==>ject's internal structures.

Cipher authors should assume that if this method is being called, th <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4979	5118	
==>n file $srcfile";
        $src = <$f>;
    }
}

for my $c (qw(

              conv_self conv_array conv_hash conv_reference
              co <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1506	1624	
==>sub as_number {
  my ( $self ) =  @_;

}

sub as_string {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	190	295	
==>Only record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      dat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	190	295	
==>Only record if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      dat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1634	1736	
==>ked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plain <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1634	1736	
==>ked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plain <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1428	1554	
==>Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1428	1554	
==>Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	335	452	
==>eturn $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a has <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	335	452	
==>eturn $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23721	23863	
==>) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20142	20284	
==>) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4956	5114	
==>re_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $sele <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4956	5114	
==>re_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $sele <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41087	41181	
==>ature, and provided sample usage and patch
code, that supports embedding of Template modules in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41087	41181	
==>ature, and provided sample usage and patch
code, that supports embedding of Template modules in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	707	807	
==>le> \}
        { return { rule_decl => $() ,} }
RULE
*{'grammar_name'} = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7170	7308	
==>pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type =     traverse_ast ( %pad<"p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9419	9540	
==>le EscapeSequence {  # see 7.8.4
      <CharacterEscapeSequence>
    | <'0'> <!before <DecimalDigit>> #lookahead
    | <He <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1369	1498	
==>re types ... but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        string => "Str",
        fla <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13609	13709	
==>nter an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

You s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13609	13709	
==>nter an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

You s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16186	16287	
==>, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16186	16287	
==>, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declare a C< <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	682	815	
==>ed against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new ru <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	682	815	
==>ed against).
    $.match     - State that is scope-local.  A new match object gets
                  allocated when you enter a new ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8457	8593	
==>wnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8457	8593	
==>wnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!chann <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34987	35098	
==>ceptually change an existing Translator object, you must create a new
object that is a clone of the first but fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34987	35098	
==>ceptually change an existing Translator object, you must create a new
object that is a clone of the first but fo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	114	213	
==>riteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	114	213	
==>riteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5471	5579	
==>ammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5281	5387	
==>ammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13261	13355	
==>grep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13261	13355	
==>grep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2587	2696	
==>data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2587	2696	
==>data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5186	5292	
==>tion.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8663	8769	
==>tion.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.map: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	548	663	
==>de we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	548	663	
==>de we are filtering.
# This is a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	111	204	
==>gs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	111	204	
==>gs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2645	2803	
==>t work without this ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>},
                map { "$_" } @{$<token>},
                ma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24349	24445	
==>pping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Has <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28901	28997	
==>pping.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Has <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23609	23735	
==>es;
        @:MRO = ();
        $self.MRO();
    }
    return @:superclasses;
}

(method superclasses ((opaque $self) (list ?@s <==
2	/Users/nnunley/pugs/util/importgraph.pl	321	418	
==>my $overlap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "overlap=s" => \$overla <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	636	753	
==>= $alts->{ $struct->{package} }->{bin} ) {
        print "\t*** Primary alternative for:\n";
        for my $alt (@$ar <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1554	1650	
==>L, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1554	1650	
==>L, PDF).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38781	38934	
==>returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes')) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39308	39461	
==>returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes')) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8121	8259	
==>atch = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $match == "Sub" );
  ($operator) = newfrom($matchObj, $whitespace <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14558	14729	
==>)
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14837	15008	
==>)
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7056	7185	
==>eturn if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7056	7185	
==>eturn if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $labe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8255	8359	
==>e a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim secti <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8255	8359	
==>e a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim secti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14566	14683	
==>imes). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14566	14683	
==>imes). So, we
        # conclude, the connection is b0rked, and we disconnect.
        if(time() - $last_traffic >= $l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30017	30108	
==>$heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternative <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34569	34660	
==>$heading!, Code $transformer!) returns Relation>

This method is a short-hand or alternative <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6460	6614	
==>"$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::_print_with_fh {
    my $op   =   get_str( $_[0], '$<op>' );
    my $list = get_data <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2627	2758	
==>n::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2627	2758	
==>n::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1453	1546	
==>::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_comm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1373	1462	
==>::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_comm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1827	1980	
==>ostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A pe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1827	1980	
==>ostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40592	40812	
==>fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' => (
    # method <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1786	1906	
==>};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

*inc::Module::Install::VERSION = *V <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11460	11571	
==>set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11460	11571	
==>set>

Complemented unicode versions of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	921	1168	
==>root => {
                required    => 1,
                store       => \$root
            },
            config => {
                no_override => 1,
                default     => $config
            },
            pool => {
                s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	821	930	
==>ub execute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execute($prog);
}

__PACKAGE <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9701	9796	
==>scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9701	9796	
==>scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $object )`

Returns <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12077	12175	
==>e, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12077	12175	
==>e, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37502	37599	
==>rder of its arguments is not significant to the result;
the new Relation is the result of combinin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42051	42148	
==>rder of its arguments is not significant to the result;
the new Relation is the result of combinin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7823	7944	
==>:CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'" <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7881	8002	
==>:CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'" <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1116	1216	
==>item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1116	1216	
==>item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8443	8544	
==>SES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8443	8544	
==>SES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18865	18981	
==>d of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15286	15402	
==>d of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14468	14680	
==>kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14747	14959	
==>kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16658	16762	
==>shift;
    my $node = shift;

    return Val->new($self->reduce($node->val));
}

package Dumper;
use base <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	353	464	
==>, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INV <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	353	464	
==>, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INV <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	200	327	
==>:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	200	327	
==>:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5534	5645	
==>ans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5534	5645	
==>ans.insert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!chann <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1998	2140	
==>re_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2191	2333	
==>re_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	199	305	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	176	282	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4492	4614	
==>//;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{pat <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2233	2354	
==>//;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{pat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7892	8008	
==>" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7950	8066	
==>" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1640	1750	
==>iler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Exp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1640	1750	
==>iler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Exp <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	356	474	
==>ATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	356	474	
==>ATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13094	13209	
==>the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13094	13209	
==>the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20406	20516	
==>ted.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20406	20516	
==>ted.

Note that you might want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13215	13319	
==>r to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named pa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13273	13377	
==>r to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named pa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2554	2667	
==>:Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2554	2667	
==>:Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic) <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1543	1654	
==>{
  ## XXX - Surely there's a more p6ish way of doing this?
  $lexer = tokens($lexer, *@$_)
    for @args;
  ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	294	387	
==>ION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot13, t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	294	387	
==>ION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
rot13, t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3100	3218	
==>Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3646	3764	
==>Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5775	5886	
==>from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
} <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5775	5886	
==>from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3317	3465	
==>get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4166	4314	
==>get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unle <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	197	294	
==>-model can be experimented
# on without loosing this code as a reference point.

use Test::More te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9525	9652	
==>ername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9525	9652	
==>ername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    las <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	982	1100	
==>XX - weaken self-referential things



sub ruleop::alternation {

    # alternation is first match (not longest).  thou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	943	1058	
==>XX - weaken self-referential things

sub ruleop::alternation {
    # alternation is first match (not longest).  thou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2798	2905	
==>, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2798	2905	
==>, as it initialises the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5599	5730	
==>able( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5821	5952	
==>able( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]-> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2734	2830	
==>= "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2734	2830	
==>= "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14703	14808	
==>alse [] range "%s-%s"

=item RPe_IRANGE (-28)

Invalid [] range "%s-%s"

=back

=head1 EXTENSIONS

Here ar <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25995	26089	
==>]) :- listify(X,L), listify_lists(Xs,Ls).
listify_lists([],[]).

domatch(R,T,O) :-
  listify(R, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37673	37772	
==>thod takes the name of a Perl package in its positional parameter
$module_name (a string), and a Mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37673	37772	
==>thod takes the name of a Perl package in its positional parameter
$module_name (a string), and a Mes <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1780	1879	
==>to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<sta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1780	1879	
==>to 
people interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17481	17575	
==>see the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17481	17575	
==>see the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
pro <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48722	48871	
==>method' => (
    # method label
        symbol->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1469	1565	
==>$indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($node->isa("Blondie::Node")){
			my $red <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11765	11930	
==>d
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1.to()
    mpos = -1
    $S0 = substr target, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = inde <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	480	574	
==>ble whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	480	574	
==>ble whitespace in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESC <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	749	899	
==>ics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @:diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::B <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9371	9501	
==>S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_handler(':::' => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	832	954	
==>mpiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	832	954	
==>mpiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4115	4225	
==>ich the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 A <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4115	4225	
==>ich the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=back

=head1 A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4671	4787	
==>}, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4811	4927	
==>}, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9813	9916	
==>) { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9813	9916	
==>) { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12141	12252	
==>e ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12141	12252	
==>e ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6580	6679	
==>node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6580	6679	
==>node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,' <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2139	2303	
==>}
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the matc <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2139	2303	
==>}
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine for that matter
        # since we know the matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6334	6469	
==>, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6334	6469	
==>, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18226	18328	
==>r example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18226	18328	
==>r example C<bot_>, C<_bot>, etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10562	10690	
==>$_;
        next unless defined $switch;
        $switch =~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $swit <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2551	2653	
==>cy temp-file. FIXME: use a real temp file?
sub emit_chunk {
    my($self) = @_;
    DumpFile("tests.$$. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15023	15115	
==>(API), called
the Rosetta Native Interface (RNI), which applications invoke and which
multipl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15023	15115	
==>(API), called
the Rosetta Native Interface (RNI), which applications invoke and which
multipl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2163	2277	
==>~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2163	2277	
==>~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ <==
2	/Users/nnunley/pugs/util/package-osx.pl	350	480	
==>, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files = qw(
        /usr/local/bin/parrot-config
        /usr/local/bin/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2602	2710	
==>(symbol $label) (hash ?%opts)) returns method 
    ((= $method NIL)
     (= $current (&dispatcher do))
     ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2675	2772	
==>Harness::switches> is exportable and can be
used to set perl command line options used for running <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32778	32871	
==>g
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37328	37421	
==>g
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12883	13013	
==>= 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6358	6488	
==>= 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18907	19000	
==>(like
C<\w> or C<\S>), the object's C<data> field points to the underlying
object type (I<prop <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2153	2271	
==>ry.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2153	2271	
==>ry.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	889	995	
==>$code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	900	1006	
==>$code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	709	816	
==>mine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	709	816	
==>mine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this cla <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	387	492	
==>od concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	387	492	
==>od concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4479	4626	
==>e ~~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4479	4626	
==>e ~~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($c <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1063	1162	
==>essages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printe <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1063	1162	
==>essages to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	323	427	
==>rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns Array { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	323	427	
==>rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $block) returns Array { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	986	1088	
==>ndition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1219	1321	
==>ndition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition must <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2072	2171	
==>} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2072	2171	
==>} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3549	3651	
==>query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3549	3651	
==>query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C< <==
2	/Users/nnunley/pugs/util/config_h.pl	1314	1425	
==>[| return () |])
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7141	7241	
==>my $re = $o->raw();
    return $o->mk_eater_for_re('\s') if $re eq '\s';
    return $o->mk_eater_for_ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1040	1146	
==>>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been selected <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1040	1146	
==>>. 
It allows sets of messages to be selected by use of I<tags>; messages whose 
tags haven't been selected <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7976	8109	
==>"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7976	8109	
==>"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734), <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	142	275	
==>s $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	142	275	
==>s $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.cod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22965	23181	
==>[
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23244	23460	
==>[
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17149	17281	
==>ms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17149	17281	
==>ms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12696	12829	
==>ase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::Keye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12696	12829	
==>ase doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3229	3328	
==>s) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_di <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3229	3328	
==>s) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_di <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11577	11692	
==>f '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_num <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11577	11692	
==>f '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_num <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	95	220	
==>34'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@a;    # '12345'

say 0^..^@a;   # '1234'

my @c = 1...;  # (1. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	91	206	
==>ler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	91	206	
==>ler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if th <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2229	2349	
==>a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        ret <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2229	2349	
==>a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	153	253	
==>cify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_att <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	153	253	
==>cify/enforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_att <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7264	7368	
==>is_extension_build;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2450	2565	
==>2,2);
        my $oper = pop(@$ops);
        my $nont = $oper->make_node_with_args(@args);
        push(@$var,$nont) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2280	2380	
==>ed, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of their tag <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2280	2380	
==>ed, the special tag C<:all> will cause all tracing messages to be 
printed, even if none of their tag <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27113	27228	
==>shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7234	7345	
==>cket for \\x...")
    goto end
.end

.sub "parse_modifier"
    .param pmc mob
    .local int pos, lastpos
    .l <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11623	11717	
==>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, Comparator)

A combinatio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7564	7703	
==>ide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /ano <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	865	1004	
==>ide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also sastisfied by /ano <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15262	15361	
==>be no ambiguity when trying to invoke or implement it, and so an
application written to it should be <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15262	15361	
==>be no ambiguity when trying to invoke or implement it, and so an
application written to it should be <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2576	2673	
==>n ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2576	2673	
==>n ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.me <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7403	7520	
==>TRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'po <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7403	7520	
==>TRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'po <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6582	6837	
==>ity only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6582	6837	
==>ity only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5009	5130	
==>(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits List.

=item Param

Shifts a parameter from <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1737	1849	
==>tributes }
       );
}

method all_methods($self:) returns Set {
    set(
        set( $self.all_superclasses, $s <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	351	475	
==>ting them to *notifications* when they match
# asking the notifications to dispatch themselves

# the code tries to provide r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11278	11380	
==>recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the give <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11278	11380	
==>recurrence.

- `union( $recurrence )`

Returns all elements both from this recurrence and from the give <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20397	20494	
==>elation is entirely object-oriented; you use it by
creating objects from its member classes, usual <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24949	25046	
==>elation is entirely object-oriented; you use it by
creating objects from its member classes, usual <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2437	2551	
==>dn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2495	2609	
==>dn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20167	20269	
==>="";
	my $argl = $param;
	while($argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyargs .= "my \$$2 = \\$1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14721	14835	
==>nd '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14721	14835	
==>nd '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1912	2015	
==>RIPTION

Well, with that informative but utterly confusing synopsis, you should
be left with nothing but <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1912	2015	
==>RIPTION

Well, with that informative but utterly confusing synopsis, you should
be left with nothing but <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5720	5820	
==>$self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5799	5899	
==>$self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30585	30817	
==>dispatcher');
                }   
                else {
                    confess 'Unsupported dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4920	5019	
==>ame, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo g <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7588	7687	
==>ame, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	201	325	
==>KAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	201	325	
==>KAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	588	690	
==>))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	588	690	
==>))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7818	7920	
==>}=1 if s/\s+is lvalue//;
	    $h{'isLazy'}=1 if s/\s+is lazy//;
	    $h{'isWritable'}=1 if s/\s+is rw// <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10836	10930	
==>ss("class undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method($nam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7574	7687	
==>[~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

mult <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7574	7687	
==>[~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

mult <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20430	20543	
==>)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16851	16964	
==>)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2083	2184	
==>m($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2141	2242	
==>m($test, $desc, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16603	16707	
==>ion the maximum amount of control as
to what the user sees; it never outputs anything by itself to the us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16603	16707	
==>ion the maximum amount of control as
to what the user sees; it never outputs anything by itself to the us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7665	7895	
==>->{self}{op1} ) {
            # %var<item>.++;
            #warn "method: ", Dumper( $n );
            return " " . _emit( $n->{method} ) .
                '(' .
                join ( ",\n", 
                    map { _emit( <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2493	2722	
==>line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n" <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2493	2722	
==>line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3354	3448	
==>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3354	3448	
==>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Delet <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3806	3903	
==>}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5708	5805	
==>}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1418	1524	
==>s

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for li <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1418	1524	
==>s

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	837	952	
==>2],} }\n" .  
        "\t | 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1] <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3299	3421	
==>c = "$fname";

#    if ($file =~ s/^\#\s*(.*)\n//m) {
#	$desc = $1;
#    }
#    # backslash
#    $file =~ s/\\/\\textbacksl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6	115	
==>e Pugs::Emitter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6	115	
==>e Pugs::Emitter::Rule::Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5066	5193	
==>.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5066	5193	
==>.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1978	2109	
==>n($res, $cur);
   }
   $res;
 }


 multi sub Perl6::Hash::reverse (%hash) returns Hash is default {
   my %result;
   for %hash.kv - <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	780	883	
==>ently defined as subs, which we can get away with since
   this is currently simply a code generator.

= <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	780	883	
==>ently defined as subs, which we can get away with since
   this is currently simply a code generator.

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15421	15561	
==>},
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15421	15561	
==>},
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enq <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22335	22434	
==>ord")>

Joins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22335	22434	
==>ord")>

Joins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5123	5227	
==>1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Ba <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5123	5227	
==>1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	345	443	
==>pher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen read <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	345	443	
==>pher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen read <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3190	3285	
==>rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3190	3285	
==>rv = set($self.members.grep:{ $other.includes($_) });
    return $rv;
}
method difference($self: <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1639	1740	
==>$self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($c <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1639	1740	
==>$self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6674	6815	
==>el (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our arg <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6674	6815	
==>el (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our arg <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3528	3637	
==>ude/PIL.pm.
# Prim.hs r8593 defines this as List::splice.
multi Array::splice (       @array is rw 
			    : I <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5664	5782	
==>hr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5664	5782	
==>hr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4338	4450	
==>nite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4338	4450	
==>nite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10905	11023	
==>eck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10905	11023	
==>eck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() { <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2608	2722	
==>s->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4173	4309	
==>= $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4173	4309	
==>= $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	186	292	
==>ist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	186	292	
==>ist in Pugs yet so
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	989	1105	
==>dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (ev <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	956	1072	
==>dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (ev <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8980	9103	
==>k} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8980	9103	
==>k} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16193	16298	
==>ass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20619	20724	
==>ass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3573	3699	
==>}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3573	3699	
==>}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6387	6500	
==>c.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'cha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6387	6500	
==>c.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'cha <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	340	467	
==>elude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backend::Perl::Prim->new(
		equals = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	267	367	
==>elude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backend:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6495	6594	
==>, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6495	6594	
==>, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6485	6570	
==>decl','\s*multi\s+(infix:<(.+?)>)\s+\([^\)]*\)\s+((?:is (?:looser|tighter|equiv).*?)?) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10625	10756	
==>main}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10625	10756	
==>main}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13021	13120	
==><$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13021	13120	
==><$set1 + $set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	992	1102	
==>too?)



Pugs::Compiler (or Analyzer?) gets it, emit a Module object

that defines ::Main.  A Module object mix <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	944	1051	
==>too?)

Pugs::Compiler (or Analyzer?) gets it, emit a Module object
that defines ::Main.  A Module object mix <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1672	1907	
==>C $meta_dir -tz |] .
                    qq[xargs -I % echo $Site/% >> $meta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1133	1245	
==>e of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_H <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1133	1245	
==>e of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_H <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3332	3488	
==>> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3332	3488	
==>> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8408	8505	
==>)>

This event is begun when any block of characters is interpolated for modifiers.

=item I<end_e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8408	8505	
==>)>

This event is begun when any block of characters is interpolated for modifiers.

=item I<end_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13258	13359	
==>ce solutions.
Moreover, these data structures are in exactly the right input format for
Document.new() <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13258	13359	
==>ce solutions.
Moreover, these data structures are in exactly the right input format for
Document.new() <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20231	20328	
==>language file to the program package.  No
recompilation necessary.  This is something that end use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20231	20328	
==>language file to the program package.  No
recompilation necessary.  This is something that end use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3058	3165	
==>rst event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3058	3165	
==>rst event we get, indicating a successful login
  %handler<001> = [-> $event {
    $inside++;
    $servernam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	369	490	
==>nt { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	369	490	
==>nt { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22150	22242	
==>_type(C,alnum);char_type(C,punct);C=32),!. % 32 = space
isSpacePerl(C) :- (char_type(C,space) <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	885	1103	
==>5:ix/\s*
       (?:  ( # $0
              $iso8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso <==
2	/Users/nnunley/pugs/util/package-osx.pl	8475	8610	
==>gs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Run.3
        /usr/local/man/man3/Pugs::Doc::Run.3pm

    );
}

sub change_file <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20991	21102	
==>[cname]
    $P0["isarray"] = 1
    isarray = 1
  setreps_1:
    reps[cname] = self

    padarray = pad["isarray" <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1948	2117	
==>ode
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1948	2117	
==>ode
    # }
    #say $code;
    #say $head;

    # XXX want() is not yet implemented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Stat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1871	1969	
==>w({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1871	1969	
==>w({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2057	2175	
==>str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2045	2163	
==>str => \\\$s, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3584	3765	
==>eft') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3584	3765	
==>eft') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	903	1028	
==>sh is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; * <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26392	26539	
==>$class;
    return $self;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	759	884	
==>. (join ", ", @{ $Conf->{$_} }) ."]\n" :
            "\t$_ => $Conf->{$_}\n" }
        sort keys %$Conf;
}

sub read {
    my( <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	357	503	
==>.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin3 <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	357	503	
==>.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin3 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	679	830	
==>:pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	679	830	
==>:pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	347	472	
==>ng 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a fun <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	347	472	
==>ng 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a fun <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4314	4429	
==>)}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it help <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4314	4429	
==>)}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it help <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5477	5619	
==>tSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5477	5619	
==>tSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6465	6804	
==>satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere cont <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6929	7268	
==>satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere cont <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	127	242	
==>export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	127	242	
==>export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1642	1742	
==>])/\@$1/g;
    s/\$#(${re_symbol})/\@$1.last/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4642	4759	
==>le.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4642	4759	
==>le.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3466	3598	
==>c"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, die <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3466	3598	
==>c"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => 'ü',  # small u, die <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5127	5271	
==>mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5127	5271	
==>mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string> <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	512	718	
==>~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        and
        !$self->can_run('nmake')
    );

    print "The required 'nmake' executable not found, fetching it...\n";

    require File::B <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5783	5885	
==>rd character)
  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(any <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9061	9157	
==>=back

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 AUTHORS

Perl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1745	1844	
==>but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, St <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1745	1844	
==>but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8156	8284	
==>@array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8156	8284	
==>@array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1322	1429	
==>me_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1322	1429	
==>me_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a name and a subname
## A06 doesn <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1208	1321	
==>les inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    go <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1208	1321	
==>les inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class->pmc_use_means_no;
    go <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5960	6092	
==>1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; pref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5960	6092	
==>1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; pref <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1865	1958	
==>d, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1865	1958	
==>d, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	366	466	
==>ument, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	366	466	
==>ument, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21938	22043	
==>n =~ /::|^\*/;
    $mn =~ s/^(::)?(\*)?(::)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1873	1969	
==>= 0;
     Pugs::Internals::log_base($x,$base);
 }

sub Pugs::Internals::log_base(Num $x, Num $bas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8197	8339	
==>{
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split / <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8197	8339	
==>{
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split / <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1775	1883	
==>of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test sp <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1775	1883	
==>of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4127	4238	
==>urn $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $self->{tree};
  no warni <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18402	18495	
==>There being little documentation, we
reverse engineering perl source.

We basically use the pe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6659	6779	
==>ulti method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10136	10256	
==>ulti method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2492	2616	
==>$.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns L <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2492	2616	
==>$.end_is_open,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4227	4346	
==>{
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5076	5195	
==>{
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) ) <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1264	1358	
==>AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-l <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1264	1358	
==>AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2197	2297	
==>:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2197	2297	
==>:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1575	1717	
==>};
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() i <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1575	1717	
==>};
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1930	2048	
==>acro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1930	2048	
==>acro at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $cod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5518	5634	
==>eader('Client-Date')         }

# The retry_after field is dual format (can also be a expressed as
# number of second <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5518	5634	
==>eader('Client-Date')         }

# The retry_after field is dual format (can also be a expressed as
# number of second <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4381	4548	
==>ndef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4248	4410	
==>ndef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	27	141	
==>-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $po <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	27	141	
==>-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $po <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	480	597	
==>.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	480	597	
==>.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10867	11014	
==>$n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} e <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16489	16608	
==>= $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) ?? int( $n - 0.5) ! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1543	1642	
==>a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which ca <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1543	1642	
==>a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which ca <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2345	2472	
==>ed automatically by  --
--                  util/gen_prelude.pl                       --
--------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3554	3657	
==>rc/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3554	3657	
==>rc/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  ' <==
2	/Users/nnunley/pugs/util/config_h.pl	1353	1462	
==>print OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n";
    warn << '.';

*** Te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1093	1238	
==>tta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1093	1238	
==>tta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_name ~ '::L::',
            ], <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1755	1899	
==>ut ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1755	1899	
==>ut ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10828	10990	
==>o} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begin Pugs addition
            # this addition prints out the diff <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	809	955	
==>$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_OF_ROOT ];
$config{'bin_dir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3973	4076	
==>ale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3973	4076	
==>ale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4407	4608	
==>ture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4274	4468	
==>ture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                captur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31701	31806	
==>ne either from a user config file or a user interface that the
current user is fluent in (and prefers) lan <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31701	31806	
==>ne either from a user config file or a user interface that the
current user is fluent in (and prefers) lan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35331	35443	
==>racters

=head2 quant

Family: quant

Types: star (C<*>), plus (C<+>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

D <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24470	24582	
==>efined $x;
    my $s = eval {p6_as_str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined {
    m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25453	25584	
==>α. ∀β. ∀γ. α → (β × γ)", "pretty print a -> b x c");
}
{
	my $type = type::operator::arrow->new(
		type::operator::pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17401	17517	
==>n which Perl code runs).

The classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17401	17517	
==>n which Perl code runs).

The classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7638	7741	
==>'&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7696	7799	
==>'&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2544	2685	
==>dText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input erro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2544	2685	
==>dText::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input erro <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3876	3981	
==>next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3876	3981	
==>next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_union( $self.c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3212	3303	
==>ement_previous => $self._get_intersection( $self.complement_previous, $self.complement_next, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3212	3303	
==>ement_previous => $self._get_intersection( $self.complement_previous, $self.complement_next, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9518	9627	
==>'This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9576	9685	
==>'This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1293	1425	
==>rns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1293	1425	
==>rns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	886	1009	
==>dil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	886	1009	
==>dil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1182	1312	
==>gs> ");
        last if !defined $line;
        if ($line =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s* <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	769	960	
==>"missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	769	960	
==>"missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22285	22415	
==>S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18706	18836	
==>S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22848	22975	
==>S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19269	19396	
==>S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7053	7152	
==>$pugs_version = get_version($pugs) };

step
  descr  => "Checking for Parrot binary",
  ensure => su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2525	2662	
==>@.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2525	2662	
==>@.spans;
    my @b = $set.spans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { s <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	885	1008	
==>b - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other m <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	885	1008	
==>b - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	110	231	
==>r;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	110	231	
==>r;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33261	33356	
==>mentioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a ge <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37811	37906	
==>mentioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a ge <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7412	7519	
==>:Internals::VRule, Str)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1729	1823	
==><Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Classes

=item * L<Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5214	5349	
==>nd";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5214	5349	
==>nd";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1110	1268	
==>->new(0)); # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyseqs) {
                # XXX - this is in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7372	7483	
==>S

  use Pugs::Grammar::Precedence;

  # example definition for "sub rxinfix:<|> ..."
  
  my $rxinfix = P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16325	16426	
==>uld store a hash of what characters
they represent, as well as the macros C<\w>, C<\d>, etc.  Then thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36989	37092	
==>isjoint_union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation::Example *@others) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6392	6502	
==>am ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6392	6502	
==>am ) {
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	379	513	
==>igenClasses.jpg in this 
## same directory for a visual explaination of this. 
## ----------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	64	168	
==>NFO','NOISY','FORCE';
use lib 'lib';
use Inline::Parrot::PMC 'get_int';
use Inline C=>'Config',
	INC => ` <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2994	3097	
==>y the kernel used, you may want to use the
      configuration at
      http://m19s28.vlinux.de/iblech/p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2345	2489	
==>,
        tail  => $2,
        #capture => $1,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	42	152	
==>le' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	42	152	
==>le' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6496	6691	
==>domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6496	6691	
==>domain with no leading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1944	2089	
==>proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1944	2089	
==>proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1516	1663	
==>] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1516	1663	
==>] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1397	1547	
==>tr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1397	1547	
==>tr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4813	4937	
==>BMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and wor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4813	4937	
==>BMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and wor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25066	25166	
==>gram.  The Message class is pure and deterministic,
such that all of its class and object methods wil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25066	25166	
==>gram.  The Message class is pure and deterministic,
such that all of its class and object methods wil <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4011	4174	
==>$current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($;$) {
            my $self = shift;
            ::opaque_instance <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4080	4168	
==>1415926535897932384626433832795028841971693993751058209749445923078164062;
     # http:// <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7627	7753	
==>{
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some k <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7627	7753	
==>{
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5778	5908	
==>nt { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5778	5908	
==>nt { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #prin <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1160	1303	
==>= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $r <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1160	1303	
==>= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $r <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11138	11241	
==>n that each criteria is
applied, in order, until a non-zero (tie) result is achieved.

Criterion can tak <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8156	8247	
==>die::TypeSafe::Annotation->new(
			type => ($rseq->values)[-1]->type,
			struct_equiv => $rs <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24019	24163	
==>d>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <'/'>
    | <'?'>
    | <':'>
    | <'@'>
    | <'&'>
    | <'='>
    | <'+'>
    | <'$'> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26028	26134	
==>uman-readable version.  Each variable name is a machine-readable short
string; the allowed variable names y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26028	26134	
==>uman-readable version.  Each variable name is a machine-readable short
string; the allowed variable names y <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2094	2201	
==>set($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:« <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2094	2201	
==>set($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:« <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3025	3128	
==>ed operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3025	3128	
==>ed operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3679	3794	
==>ift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((sp <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3679	3794	
==>ift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

    for my $dir ((sp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1415	1538	
==>ie "Did not understand '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	911	1012	
==>cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	969	1070	
==>cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depen <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3127	3232	
==>m Arcfour is susceptible to related-key attacks.

This means that you should strive to use only truly rand <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3127	3232	
==>m Arcfour is susceptible to related-key attacks.

This means that you should strive to use only truly rand <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	28	130	
==>e v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localho <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	28	130	
==>e v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localho <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4459	4588	
==>{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4459	4588	
==>{ $self.closure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3516	3624	
==>ploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3516	3624	
==>ploited by a cryptoanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	839	1064	
==>\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # H <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	839	1064	
==>\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # H <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2006	2134	
==>};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2146	2274	
==>};
    die "Error in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7294	7397	
==>}


{
  package Regexp::Parser::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	860	957	
==>LP__;
$0 - Build html test catalog and synopses with hyperlinks to corresponding tests

  Options: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4358	4455	
==>rrow;
}

sub splat { # recursive splatting happens in parametrized type operators, since they have <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28054	28152	
==>WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy) { \
	     SV_CHECK_THINKF <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2606	2739	
==>error ), return;

    


}

1;

__END__

    ### takes the metadata object of 1 package, and returns a list of
    ### its dependencie <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5900	6014	
==>},
  pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You can stop this program by hitting ^C (<Ctrl> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2173	2290	
==>d $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2173	2290	
==>d $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defined( %param<after> ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3371	3478	
==>empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3371	3478	
==>empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16323	16449	
==>ubstrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20749	20875	
==>ubstrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1142	1422	
==>er ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1142	1422	
==>er ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	883	1006	
==>oin( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	883	1006	
==>oin( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5287	5393	
==>);

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5287	5393	
==>);

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %channel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9754	9911	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10033	10190	
==>p::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5872	6031	
==>st->{op} => $ast ]
        }
        elsif ( exists $ast->{bareword} ) {
            $t = [ 'BAREWORD' => $ast ]
        }
        else {
            $t = [ 'NU <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1657	1765	
==>de::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1657	1765	
==>de::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	428	539	
==>each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	428	539	
==>each Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Root] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	750	892	
==>s($args);
    my $inv = $args->fetch(num->new(0));
    $self->{env}->set('$?SELF'    => $inv);
    $self->{env}->set('$?CLASS'   => $inv->class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15386	15508	
==>self->{off} ? "-" : ""), $self->{off}, ":";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	81	188	
==>$v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@conte <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	81	188	
==>$v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@conte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8954	9128	
==>(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8954	9128	
==>(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5747	5857	
==>urn Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5747	5857	
==>urn Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5467	5559	
==>normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5467	5559	
==>normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $even <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21819	21939	
==>sm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18240	18360	
==>sm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3005	3107	
==>lue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3005	3107	
==>lue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6512	6725	
==>eading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6512	6725	
==>eading dot, it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3191	3328	
==>r ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	931	1058	
==>f = shift;
    $self->{omit} = shift if @_;
    $self->{omit};
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	753	915	
==>r1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	753	915	
==>r1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT! <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1098	1213	
==>ck";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    my ($self <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11990	12127	
==>nd );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datet <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11990	12127	
==>nd );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datet <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5539	5667	
==>e + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4039	4167	
==>e + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1927	2045	
==>::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_caller;
    my $cwd  = C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1409	1512	
==>or container

allocation, as well as the compile-time-bound values for them.

It includes the parameters <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1349	1450	
==>or container
allocation, as well as the compile-time-bound values for them.
It includes the parameters <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3262	3371	
==>dle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3262	3371	
==>dle_pseudo>("loggedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($cu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1747	1946	
==>a_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = LoadFile( $meta_dir .'/'. <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	54	154	
==>ate::Format::ISO8601;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10325	10424	
==>ion)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You mi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10325	10424	
==>ion)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You mi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3214	3337	
==>o $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two toget <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3214	3337	
==>o $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two toget <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	770	911	
==>GTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_AC <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	770	911	
==>GTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_AC <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10156	10265	
==>ify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10156	10265	
==>ify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	341	434	
==>de_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	341	434	
==>de_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6504	6611	
==>g);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insuff <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6504	6611	
==>g);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insuff <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3235	3324	
==>al Fail  Failed  List of Failed
  -------------------------------------------------------- <==
2	/Users/nnunley/pugs/util/version_h.pl	2235	2337	
==>ision != 0) {
    # rebuild Help.hs to show new revision number
    unlink "$base/dist/build/src/Pugs/V <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	661	762	
==>t($input) is exported(:all) {
  return defined($input) ?? () !! (undef, undef);
}

## Chapter 8 sectio <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7531	7653	
==>unc)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $fu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7531	7653	
==>unc)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $fu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6463	6580	
==>,
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6463	6580	
==>,
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5661	5782	
==>me} = reference->new($value);      
}

sub set {
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7767	7889	
==>fter}( $match, @_ ) if $debug->{after};

        return $match;

    }

}



# ------- higher-order ruleops



sub ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7505	7620	
==>fter}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

# ------- higher-order ruleops

sub ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1766	1874	
==>?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1766	1874	
==>?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1360	1456	
==>t.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quant <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1360	1456	
==>t.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking parsers such
as quant <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	372	520	
==>&continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	372	520	
==>&continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7139	7291	
==>( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7139	7291	
==>( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8967	9097	
==>gram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8955	9085	
==>gram = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14919	15014	
==>ENCE METHODS

The most frequently used headers can also be accessed through the
following conven <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14919	15014	
==>ENCE METHODS

The most frequently used headers can also be accessed through the
following conven <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3674	3775	
==>$DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBU <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3674	3775	
==>$DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBU <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34933	35037	
==>eading of <$other>
is not a subset of the heading of the invocant Relation.  This method
degenerates into <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39483	39587	
==>eading of <$other>
is not a subset of the heading of the invocant Relation.  This method
degenerates into <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35177	35274	
==>ng any number of objects

Branched

=head2 exact

Family: exact

Types: exact (C<abc>), exactf (C< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	348	478	
==>e);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	348	478	
==>e);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3169	3395	
==>ecure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3169	3395	
==>ecure && $secure_request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1708	1827	
==>nit_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody ha <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1708	1827	
==>nit_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody ha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6662	6762	
==>string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> whi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6662	6762	
==>string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> whi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	656	785	
==>\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Co <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	656	785	
==>\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26152	26251	
==>d on the Message Key
it is being used with (others are ignored).  Each variable name can be any
defi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26152	26251	
==>d on the Message Key
it is being used with (others are ignored).  Each variable name can be any
defi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1245	1352	
==>f all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1245	1352	
==>f all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2730	2856	
==>lude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2947	3073	
==>lude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = sh <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	92	196	
==>utes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	92	196	
==>utes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING;
my $QS_DE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14032	14136	
==>ng template available.
        print $translator.translate_message(
            Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14032	14136	
==>ng template available.
        print $translator.translate_message(
            Locale::KeyedText::Messag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4934	5105	
==>60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4934	5105	
==>60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according to
                    # RFC 2616 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5811	5905	
==>2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5811	5905	
==>2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	801	926	
==>./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	801	926	
==>./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compi <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2126	2252	
==>ed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{ru <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2104	2230	
==>ed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{ru <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26896	26990	
==>d accessor method can be used to see if a Relation::Example-doing object
can mutate.  Depending <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4012	4140	
==>->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2963	3078	
==>->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5352	5479	
==>LValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5352	5479	
==>LValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSl <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10522	10645	
==>versal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something wit <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10522	10645	
==>versal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something wit <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1919	2024	
==>de::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1919	2024	
==>de::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X1::Base;";
    $code ~= "\n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8209	8331	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8402	8524	
==>uleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8342	8442	
==>Return immediately if we've cached this.
    return $self->{ghc_pkg} if $self->{ghc_pkg};

    my $gh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24947	25042	
==>or, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue, w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24947	25042	
==>or, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queue, w <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3033	3151	
==>is with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3033	3151	
==>is with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s: <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	280	372	
==>aybe not.  Either way, the current approach seems plausible, no?

Clutter::int_sizes 1,2,4... <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3391	3531	
==>ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3391	3531	
==>ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5261	5359	
==><zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as compl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5261	5359	
==><zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as compl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6135	6259	
==>:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6135	6259	
==>:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5013	5133	
==>y ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5013	5133	
==>y ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.ne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5028	5133	
==>$vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5028	5133	
==>$vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4501	4621	
==>my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4501	4621	
==>my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) { <==
2	/Users/nnunley/pugs/util/config_h.pl	1499	1606	
==>abled.  If you want
    Template Haskell support, please compile your GHC with the
    GHCi option.

.
}

cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14508	14605	
==>method to build the string, the result
will use case as suggested by HTTP spec, and it will follow <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14508	14605	
==>method to build the string, the result
will use case as suggested by HTTP spec, and it will follow <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4314	4448	
==>{
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4314	4448	
==>{
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_lazy);
    }, Bool::False;
}

method flatten () { 
    # this <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1019	1118	
==>e<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not j <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1019	1118	
==>e<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, not j <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37415	37506	
==>ethods' => 'hash')));
$::Class->send('add_attribute', (symbol->new('%:attributes')      => a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16315	16411	
==>Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= C <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16373	16469	
==>Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= C <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6975	7080	
==>OMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6975	7080	
==>OMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	95	226	
==>e JIB::Config;
use JIB::Utils;
use JIB::Meta;
use JIB::Alternative;

use YAML                    qw[LoadFile DumpFile];
use Params:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10977	11131	
==>, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10977	11131	
==>, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6569	6744	
==>'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6762	6937	
==>'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2225	2556	
==>:<==>'),
                    Sym('$y'),
                    Val(1),
                ),
                Val(
                    Thunk(
                        Sym('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22425	22522	
==>in.

Generally, when a program package would return a code-key to indicate a
condition, often it w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22425	22522	
==>in.

Generally, when a program package would return a code-key to indicate a
condition, often it w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2797	2908	
==>g\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2797	2908	
==>g\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10817	10945	
==>sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10817	10945	
==>sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12563	12663	
==>c0,R), !.
p6_hex_chars_more(Rc0,Rc0)             --> {true}.

p6_named_character(char(C)) --> "\\", ( <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	566	664	
==>above.
#
# To test head.p6, tail.p6, rev.p6, mid.p6, wc.p6 for correctness,
# simply run this progr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1115	1213	
==>ore str type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3400	3499	
==>es () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 99 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3400	3499	
==>es () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 99 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3389	3526	
==>ches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3389	3526	
==>ches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $mat <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	197	300	
==>rogs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => "simple addition <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9311	9454	
==>xt =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9311	9454	
==>xt =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $univ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26452	26561	
==>erence, so you
may store references to other objects in them if you wish.

=back

This is the main Message con <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26452	26561	
==>erence, so you
may store references to other objects in them if you wish.

=back

This is the main Message con <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1008	1113	
==>nd hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1008	1113	
==>nd hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2005	2106	
==>NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2005	2106	
==>NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    r <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2275	2377	
==>perties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2275	2377	
==>perties,
you should see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perld <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1817	1912	
==>tive dispatch.

Lit is divided to various intrinsic object types, including

intrinsic Code (whi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1746	1839	
==>tive dispatch.
Lit is divided to various intrinsic object types, including
intrinsic Code (whi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	414	527	
==>s cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatibl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	414	527	
==>s cannot currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatibl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5219	5327	
==>_[1])}
sub p6_new {
    my $cls = shift;
    return new_box('Undef',@_) if $cls eq 'Undef';
    return new_bo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13900	14006	
==>d CREATE (opaque $class: str $repr, hash %params) returns opaque {
    my %attrs;
    my $dispatcher = $cla <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2654	2771	
==>/$all_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2012	2110	
==>is object-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1936	2030	
==>is object-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	658	780	
==>> $2
    });
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16785	16923	
==>ze()> contain the following
information:

  passing           true if the whole test is considered a pass 
                    (or skipped) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	150	261	
==>oc left/right/non/chain/list
#  (is parsed) / ternary
#  (will do)

sub new {
    my ($class, $opt) = @_;
    my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7664	7781	
==>he dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	965	1082	
==>he dependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4923	5099	
==>prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	91	199	
==>s;
use Pugs::Runtime::Match;
no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2069	2175	
==>et_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ident = get_str <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13658	13756	
==><'new'> <?ws_required> <NewExpression>
}
rule CallExpression :words {  # see 11.2
      <MemberExpr <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	297	442	
==>py )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unl <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	297	442	
==>py )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21521	21649	
==>goto end
  unscoped:
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19524	19615	
==>tication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19524	19615	
==>tication Required>
response.

=item $h.authorization

=item $h.proxy_authorization

A user a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	914	1034	
==>RC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class M <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	914	1034	
==>RC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class M <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11672	11770	
==>ten onto a
  hopefully otherwise unused section of a regexp struct.  Another
  hopefully unused par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22743	22841	
==>rsion, because I've tried to fix those I've already
found. Those who find bugs should email me.  Me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8783	8893	
==>you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8492	8599	
==>you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	293	388	
==>:Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	293	388	
==>:Writer> that an
upcoming closing node is to be represented in a certain non-normative
way in th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35873	35991	
==>, @$_);
    }

The 'ifmatch' object is a positive looking assertion, and the argument
of 1 means it's a look-ahead.  We <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1671	1771	
==>sn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1671	1771	
==>sn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	733	853	
==>tor
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use b <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	733	853	
==>tor
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11974	12095	
==>to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11974	12095	
==>to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler{$code <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	307	463	
==>k($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	307	463	
==>k($ident) {
        my $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19366	19503	
==>S;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15787	15924	
==>S;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= $_;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16230	16332	
==>ns. If the spans overlap, then the list contains a single
span. Otherwise, it contains two spans. Spans <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16230	16332	
==>ns. If the spans overlap, then the list contains a single
span. Otherwise, it contains two spans. Spans <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1115	1212	
==>against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1115	1212	
==>against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2577	2678	
==>file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16202	16357	
==>nqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16202	16357	
==>nqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8818	8991	
==>t( $n->{name}{bareword} );

        my $export = '';
        for my $attr ( @{$n->{attribute}} ) {
            if ( $attr->[0]{bareword} eq 'is' &&
                 $att <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	145	234	
==>dule::Install::Base; @ISA = qw(Module::Install::Base);

sub include { +shift->admin->inclu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	923	1052	
==>pt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	948	1077	
==>pt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	736	839	
==>\n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], op2 => \$_[3], exp1 => \$_[2], <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3613	3738	
==>n =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3613	3738	
==>n =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $sta <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2932	3039	
==><N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket. <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2932	3039	
==><N> available) tokens
from the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6722	6827	
==>ssert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6722	6827	
==>ssert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'M <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10770	10924	
==>pan";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10770	10924	
==>pan";
    }
    return ::Span::Iterator.new( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6066	6162	
==>. The F<t/complex.t> test 
actually roundtrip parses this document successfully. However, more co <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6066	6162	
==>. The F<t/complex.t> test 
actually roundtrip parses this document successfully. However, more co <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15841	15951	
==>l) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolut <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2238	2344	
==>l) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolut <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24617	24721	
==>L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You sho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24617	24721	
==>L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You sho <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2323	2476	
==>abs
        $dir = Path::Class::dir( File::Spec->rel2abs( $dir ) );

        ### singleton
        return $cache{$dir} if $cache{$dir};
    
        my $o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	670	815	
==>}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$name";
    $prec = "$prec";
    my $n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13298	13411	
==>currence set containing only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13298	13411	
==>currence set containing only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8700	8802	
==>kage);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8700	8802	
==>kage);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	365	468	
==>le->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the inp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	365	468	
==>le->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the inp <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1182	1274	
==>/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PU <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1393	1485	
==>/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PU <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1847	1948	
==>eader($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1847	1948	
==>eader($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $fiel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	716	816	
==>s invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	716	816	
==>s invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This program <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8712	8809	
==>_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8770	8867	
==>_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11358	11453	
==>item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11358	11453	
==>item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2438	2544	
==>ists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol} = Blondie::Compiler::Placeholder->new( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14857	14981	
==>I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 npar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19025	19149	
==>I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 npar <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	435	562	
==>require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	435	562	
==>require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9610	9783	
==>nation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9590	9763	
==>nation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	662	756	
==>=head1 NAME

Blondie::Runtime - Base class for execution system (compiler + interpreter or equi <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	295	427	
==>(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = times;
my $c = $r->comp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35266	35360	
==>n::Example has all of the same attributes as the original.  Trivial cases are
where C<$predicat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3534	3635	
==>oanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3534	3635	
==>oanalyst.  Use 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29998	30114	
==>late hash
key corresponds to the Message Key attribute of a Message object, and each
hash value contains the user-rea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29998	30114	
==>late hash
key corresponds to the Message Key attribute of a Message object, and each
hash value contains the user-rea <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	373	470	
==>mative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> propert <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	373	470	
==>mative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> propert <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9335	9426	
==>TION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9335	9426	
==>TION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consis <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23156	23265	
==>y tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attrib <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27708	27817	
==>y tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attrib <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10436	10547	
==>nless $br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4281	4414	
==>xy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4281	4414	
==>xy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $se <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	669	766	
==>} )`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	669	766	
==>} )`

Creates a recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( c <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3883	3992	
==>ST\)/0/g;

    my $canonical_base = File::Spec->catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	14	117	
==>le is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in namele <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	14	117	
==>le is the rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in namele <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17162	17256	
==>e
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17162	17256	
==>e
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, that <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5597	5715	
==>dir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TM <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5597	5715	
==>dir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TM <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8009	8147	
==>.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, & <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8009	8147	
==>.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12062	12183	
==>may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12062	12183	
==>may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18277	18373	
==>NVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("logge <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18277	18373	
==>NVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("logge <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16784	16883	
==>osetta D and compile that into its own executable, in practice one would
normally just write some co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16784	16883	
==>osetta D and compile that into its own executable, in practice one would
normally just write some co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6651	6763	
==>}

sub _index_files {
    my ($self, $pkg, $groups, $cur) = @_;
    return unless $groups && @$groups;

    my @i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9746	9846	
==>"successor" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infini <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9746	9846	
==>"successor" function and a "predecessor" 
function.

Recurrence sets can extend from "negative Infini <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	212	350	
==>{
    is => [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9142	9246	
==>.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9142	9246	
==>.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5478	5601	
==>match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex an <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5478	5601	
==>match.match;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5619	5710	
==>erator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5619	5710	
==>erator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5798	5903	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (die|\.\.\.) \;
        { return { _simple_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8769	8872	
==>.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8769	8872	
==>.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6541	6688	
==>rays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $si <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5045	5192	
==>rays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $si <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19379	19513	
==>ication scheme and parameters applicable to the requested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19379	19513	
==>ication scheme and parameters applicable to the requested URI.

=item $h.proxy_authenticate

This header must be included in a C<407 Pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19268	19394	
==>) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15689	15815	
==>) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	700	854	
==>",
        '{ return { op => "postfix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left', <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6136	6234	
==>ningMark>
    | <UnicodeDigit>
    | <UnicodeConnectorPunctuation>
    | <'\\'> <UnicodeEscapeSeque <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4419	4528	
==>e $@;
    PugsConfig->get_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe} <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28324	28423	
==>me_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() isnt an unsuccessful capture.
(a\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1979	2080	
==>{ 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1979	2080	
==>{ 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1576	1741	
==>=> 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1576	1741	
==>=> 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7823	7929	
==>lears the cipher object's internal structures.

Cipher authors should assume that if this method is being c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7823	7929	
==>lears the cipher object's internal structures.

Cipher authors should assume that if this method is being c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2710	2892	
==>A_JIB_INSTALLATION
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Installation') };
use constant ISA_JIB_REPOSITOR <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5726	5828	
==>ult[-1] !! undef;
    @result;
}


# copied from S29draft.pod r8593.
multi Array::unshift (@array is rw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2880	2982	
==>es of all the parameters as a list.  The order in which they were
present in the query string is preser <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2880	2982	
==>es of all the parameters as a list.  The order in which they were
present in the query string is preser <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7302	7403	
==>ial `where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7302	7403	
==>ial `where /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	795	930	
==>ugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	957	1092	
==>ugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4273	4405	
==>turn Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4273	4405	
==>turn Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5316	5477	
==>stmt} eq 'submethod' 
                || $ast->{stmt} eq 'method') {
                $t = [ 'SUB' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'my' <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1143	1258	
==>ow might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3104	3205	
==>ils::Manifest::manicheck = sub { return };

    require Module::Build;
    my $build = Module::Build-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	111	204	
==>artmatch seem like the kind of
thing which an implementation will overwrite. So smartmatch can <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14577	14681	
==>is will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For exam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14577	14681	
==>is will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For exam <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	937	1063	
==>ugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** 3; }

    say "The cube root of 7 is: {newton(7, &f, $verbos <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3892	4075	
==>f $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3892	4075	
==>f $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .' <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2053	2188	
==>de_re} && $currfile =~ $Config{exclude_re};

            if ( -d $currfile ) {
                push( @hits, all_in( $currfile ) ) if $Co <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21715	21827	
==>in @*INC (@*INC contains: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$modul <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4979	5138	
==>$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4838	4997	
==>$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9756	9884	
==>};
      goto &$fmin;
    };        
  }
}
{
  # *? +? {,}? - sort of: have to reach down into quant.
  package Regexp::Parser::m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22583	22685	
==>ion not complete, etc.

=back

=head1 CAVEATS

=over 4

=item * Bugs...?

I'd like to say this module d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18517	18614	
==>ecp hooks (C functions
which get called on regular expression compilation and execution) to
parasi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2807	2904	
==>ecp hooks (C functions
which get called on regular expression compilation and execution) to
parasi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1014	1244	
==>ion$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1014	1244	
==>ion$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10525	10743	
==>ay )

 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8345	8475	
==>lock->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8345	8475	
==>lock->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4179	4298	
==>nst the index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expec <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4179	4298	
==>nst the index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	320	473	
==>ool  => $bool,
        match => $1,
        tail  => $2,
        #capture => $1,
    });
}
sub varscalar {
    my $grammar =  shift;
    $_[0] = "" unless <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4699	4794	
==>:Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name col <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4699	4794	
==>:Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name col <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13029	13126	
==>ngs are provided as argument they are each decoded
separately and the same number of strings are r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13029	13126	
==>ngs are provided as argument they are each decoded
separately and the same number of strings are r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8632	8734	
==>$span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8632	8734	
==>$span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2059	2179	
==>',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circum <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2059	2179	
==>',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26472	26569	
==>tore references to other objects in them if you wish.

=back

This is the main Message constructor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26472	26569	
==>tore references to other objects in them if you wish.

=back

This is the main Message constructor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1426	1545	
==>ne tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


s <==
2	/Users/nnunley/pugs/util/package-osx.pl	2875	2968	
==>darwin-thread-multi-2level/CORE/pugs/pge/run_pge.pir
    );
    unless (grep /pugs-parrot/, @A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	135	241	
==>uggable (
    sub_name => "submodules",
    search_path => [__PACKAGE__],
    require => 1,
);

sub symbols <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	340	448	
==>CE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple times in the same proce <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	398	506	
==>CE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple times in the same proce <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4840	5062	
==>when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4840	5062	
==>when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2485	2597	
==>Mitchell N Charity
#


grammar JavaScript::ECMAScript3::Grammar::Spec;

rule ws          {<?ws_input>*}
rule ws_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	915	1033	
==>shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	915	1033	
==>shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1477	1596	
==>D", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1477	1596	
==>D", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11635	11742	
==>. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11693	11800	
==>. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	990	1117	
==>>to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	832	937	
==>~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 formats";

    my $ye <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7727	7905	
==>ntent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Inva <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7727	7905	
==>ntent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Inva <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8875	9001	
==>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8875	9001	
==>.delete($oldnick);
        %channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.de <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7679	7772	
==>ow? */

/*    fprintf(stderr,"exp =%lu\nxend=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19881	20004	
==>->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16302	16425	
==>->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	503	599	
==>rnate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
ti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	503	599	
==>rnate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
ti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4632	4745	
==>in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instant <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4632	4745	
==>in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instant <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3117	3230	
==>ns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3117	3230	
==>ns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1571	1682	
==>t-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1571	1682	
==>t-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5842	5951	
==>n '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, may <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5842	5951	
==>n '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our args here, may <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10342	10481	
==>match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10621	10760	
==>match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16705	16813	
==>bject(anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13126	13234	
==>bject(anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handler('cc' <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	2	187	
==>Hyper-Operatoren
@x = @a >>+<< @b;    # elementweise Addition
@a>>--;              # alle Elemente decrementieren
@x = $x +<<@a;       # $x zu allen @a addieren
                     # un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3737	3836	
==>@_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force_object(anyof_c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2266	2387	
==>lice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch sl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2266	2387	
==>lice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - fetch sl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	737	920	
==>l module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

su <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	737	920	
==>l module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16405	16511	
==>ows any end users to add
support for new languages easily and without a recompile (such as by simply
copyin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16405	16511	
==>ows any end users to add
support for new languages easily and without a recompile (such as by simply
copyin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6213	6379	
==>$_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6213	6379	
==>$_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!heade <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	573	738	
==>ub sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);
    my $invocant;

    for my $param (@_) {
	my $db_par <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13222	13325	
==>t with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13222	13325	
==>t with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1449	1791	
==>TS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Di <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1049	1141	
==>rey Tang E<lt>autrijus@autrijus.orgE<gt>.

The F<libpcre> code bundled with this library by I <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	159	289	
==>ME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	159	289	
==>ME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whi <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	194	299	
==>> rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	194	299	
==>> rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	312	439	
==>rmation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	312	439	
==>rmation',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5846	5951	
==>plemented is the 
one that actually enciphers the data.  They may choose, however, to override 
any method <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5846	5951	
==>plemented is the 
one that actually enciphers the data.  They may choose, however, to override 
any method <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24471	24600	
==>then|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20892	21021	
==>then|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2982	3094	
==>, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2982	3094	
==>, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32953	33065	
==>ct has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32953	33065	
==>ct has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7592	7696	
==>= pop @children_of_seq;

			my @params = grep { $_->struct_equiv->isa("Blondie::Param") } @children_of_se <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	20	122	
==>IPC::Open2;
use File::Basename;
use FindBin qw<$Bin>;

# XXX - This is not at all portable.

my ($in, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29011	29197	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29290	29476	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10002	10118	
==>{
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9996	10112	
==>{
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2060	2171	
==>ick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2060	2171	
==>ick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.e <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1405	1525	
==>filename or die "open: $filename: $!";
    { local $/; $stream = <$fh> }
    my $conf = $YAML->load($stream);
    
    if <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3410	3515	
==>$_ eq $self->{prefix} } @INC;

    foreach my $rv ($self->find_extensions($path)) {
        my ($file, $pk <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4671	4773	
==>\$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4893	4995	
==>\$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack(' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2386	2502	
==>compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2386	2502	
==>compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11155	11326	
==>],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11155	11326	
==>],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3062	3174	
==>lems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3062	3174	
==>lems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3153	3285	
==>ly;
  }

  sub family { 'space' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1824	1913	
==>("term:<+[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:{{", "term:" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2996	3092	
==><$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2996	3092	
==><$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10441	10532	
==>he section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10441	10532	
==>he section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4594	4722	
==>hority

=cut

### XXX could autogenerate
{   
    sub package_re { $Package_re };

    sub prefix {
        return $1 if shift->p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	473	583	
==>alled only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submatch() 
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	473	583	
==>alled only once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submatch() 
su <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	53	175	
==>spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    whi <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	53	175	
==>spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    whi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17908	18065	
==>])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->vis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14329	14486	
==>])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->vis <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32157	32256	
==>then that is displayed; if not, it then checks
each set's member for language B and displays that; a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32157	32256	
==>then that is displayed; if not, it then checks
each set's member for language B and displays that; a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1042	1156	
==>{
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1042	1156	
==>{
    return bless {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7402	7503	
==>x as the regex to be parsed.

=back

These two approaches do an initial pass over the regex to make su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3371	3474	
==>ression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3371	3474	
==>ression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Uti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3674	3782	
==>tch - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3674	3782	
==>tch - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1083	1176	
==>st::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(An <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1141	1234	
==>st::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(An <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5286	5429	
==>,                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xTyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5286	5429	
==>,                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xTyp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11141	11241	
==>se()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everything (from the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11141	11241	
==>se()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everything (from the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1645	1749	
==>rl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Rege <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1645	1749	
==>rl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Rege <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	142	237	
==>class for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	142	237	
==>class for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_me <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1808	1942	
==>unt returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1808	1942	
==>unt returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @!children -> $child {
        $size += $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	884	1017	
==>{ say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	897	1025	
==>{ say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1179	1277	
==>me::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->ad <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1179	1277	
==>me::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->ad <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	539	640	
==>ters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	539	640	
==>ters";
}

=head1 NAME

Perldoc::DOM::Text - text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	184	291	
==>our.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	184	291	
==>our.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    my $cipher = Cipher::Arc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17809	17924	
==>machine, input data to it, and output data from it.

You can create more than one DBMS object at a time, and they ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17809	17924	
==>machine, input data to it, and output data from it.

You can create more than one DBMS object at a time, and they ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26651	26747	
==>.  This method takes care of building the
proper inheritance for the node; it uses %Regexp::Parse <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1617	1714	
==>e.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1617	1714	
==>e.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	131	249	
==>$dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	131	249	
==>$dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper', <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17396	17494	
==>n.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17396	17494	
==>n.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()` <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	361	502	
==>b { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $l <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	361	502	
==>b { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $l <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8020	8127	
==>, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8020	8127	
==>, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5331	5426	
==>L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5331	5426	
==>L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2239	2376	
==>ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, ti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2239	2376	
==>ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, ti <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3195	3328	
==>@old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3195	3328	
==>@old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11591	11716	
==>'$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11585	11710	
==>'$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2611	2743	
==>rs } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LEN <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2611	2743	
==>rs } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LEN <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7311	7407	
==><finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7311	7407	
==><finish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39751	39854	
==>.) creates an object:
      $S->warn(RPe_BADESC, "y", " in character class");
      return $S->force_obj <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13753	13883	
==>$set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13753	13883	
==>$set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33616	33716	
==>tores an ordered list one or more elements where each
element is a Template module Member Name and us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33616	33716	
==>tores an ordered list one or more elements where each
element is a Template module Member Name and us <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	918	1043	
==>d die "$?";
        chdir $builddir or die "Could not chdir to $builddir: $!";
    }

    ### build an archive file
    my $ar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5089	5189	
==>n.
# Need to figure out positional constructors.  At least it's isolated here. :(
sub new_box {get_me <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	974	1070	
==>1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) i <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	974	1070	
==>1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12372	12467	
==>rogress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|H <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12372	12467	
==>rogress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|H <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9096	9217	
==>digest,
        body => $params->{body},
        arity => $params->{arity},
        name => $params->{name},
    )
}

my $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19201	19319	
==>ot 'shift' scalar"; };

multi pop (@array) is builtin is primitive { List::pop(@array) };
multi pop ($array) is builtin <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5476	5616	
==>endir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return @f;
}

=item B<_run_all_tests>

  my($total, $failed) = _run_a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13407	13539	
==>); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Emitter::Perl5::emit( \$final_ast->{c <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7614	7723	
==>ching for Parrot include files",
  ensure => sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12946	13040	
==><Regexp::Parser> package, which means
you can access them as though they were methods.  They re <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12216	12350	
==>py "$parrot_path/runtime/parrot/include/$_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4004	4101	
==>ash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# un <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4004	4101	
==>ash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# un <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15689	15810	
==>ft;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eva <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2086	2207	
==>ft;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eva <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1834	1940	
==>cts ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1834	1940	
==>cts ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7425	7555	
==>pack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_T <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7425	7555	
==>pack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1162	1265	
==>ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1161	1256	
==>ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subname;
s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2671	2802	
==>.. $#{$_[0]}]) }

sub shift   : method { CORE::shift(@{(shift)}) }
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12242	12357	
==>}

sub enter_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = sh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8308	8450	
==>lf->control_dir( $inst_pkg->package )
                         ->file( $conf->prerm );
        if( -e $prerm && -s _ ) {
            system( qq <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10549	10637	
==>="http://search.cpan.org/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1997	2098	
==>?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1997	2098	
==>?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($ <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	53	184	
==>ode is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    ret <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	53	184	
==>ode is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle count too low case.
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20445	20539	
==>slation.  There are some application where this is not
appropriate.  Prefixing field names with <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20445	20539	
==>slation.  There are some application where this is not
appropriate.  Prefixing field names with <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11299	11399	
==>Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11299	11399	
==>Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str>

=item B<pack_params r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3349	3442	
==>e through the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessible a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3349	3442	
==>e through the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessible a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3494	3595	
==>te::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3494	3595	
==>te::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object r <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	341	446	
==>on =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq '6';

    $self->set_blib($in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31641	31746	
==>o
ensure that there is are no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16008	16101	
==>autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16066	16159	
==>autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	19	122	
==>edium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	19	122	
==>edium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52963	53113	
==>> 'str'));        
    $meta->add_attr(symbol->new('$:authority' => 'str'));            
}

# add their names in
$::Class->send('name'   => str->new('C <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19703	19803	
==>v) }, $obj.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSA <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1550	1678	
==>pends )
        ) or return;
    }
    
    return $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $sel <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1488	1609	
==>ble

  Strategy:
    Iterate through all tests first.  Collect links and format as HTML
    as we go.  Then get the design <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19528	19667	
==>ush @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19807	19946	
==>ush @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10693	10828	
==>my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10687	10822	
==>my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17673	17774	
==>"use Perl6::MetaModel;\n";
    $code .= "our \$META;\n";
    $code .= "\$META = \$::${Kind}->new('\$:n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3160	3254	
==>et::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3160	3254	
==>et::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8349	8463	
==>gexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o->noop;
    my $s = join("",$o->data);
    my $len <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13907	14018	
==>y $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_pr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1387	1498	
==>y $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_pr <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1151	1248	
==>ectories to Pugs's 
search path so that later `use` or `require` statements 
will find modules whi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1151	1248	
==>ectories to Pugs's 
search path so that later `use` or `require` statements 
will find modules whi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15106	15216	
==>nd => $object )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new()`

Withou <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15106	15216	
==>nd => $object )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new()`

Withou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16628	16731	
==>instead stored
in its Document's "Root Nodes" attribute.  If the optional named parameter
@child_nodes ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16628	16731	
==>instead stored
in its Document's "Root Nodes" attribute.  If the optional named parameter
@child_nodes ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1539	1644	
==>$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Shou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1597	1702	
==>$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Shou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6212	6405	
==>.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6212	6405	
==>.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_sp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	579	684	
==>::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	579	684	
==>::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24021	24138	
==>hen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20442	20559	
==>hen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2395	2508	
==>en_prelude.pl                       --
----------------------------------------------------------------

preludeSt <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4481	4608	
==>\d/, $target, $pos))
    {
      goto err_backslash_digit;
    }
    $initchar = substr $target, $pos, 1;
    $isnegated = match <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1546	1685	
==>ray => "Array", # ditto
        ref => "Object",   # for now
        set => "Set", iset => "Set",         # also for now
        hash => "Ha <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3508	3608	
==>s = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self;
}

package type::operator: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2115	2229	
==>y );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2115	2229	
==>y );
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start";
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17984	18088	
==>d contain an Internet e-mail address for the human
user who controls the requesting user agent.  The addr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17984	18088	
==>d contain an Internet e-mail address for the human
user who controls the requesting user agent.  The addr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14533	14682	
==>not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]." <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14527	14676	
==>not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]." <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26800	26942	
==>_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27079	27221	
==>_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3036	3144	
==>span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3036	3144	
==>span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( span <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	873	986	
==>g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< : <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	873	986	
==>g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also specify 
either C<< : <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7413	7608	
==>();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7413	7608	
==>();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.current i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1720	1816	
==>ble lookup), App (application) and Lit (literal).



App is divided to Multiple, Single and Primi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1651	1745	
==>ble lookup), App (application) and Lit (literal).

App is divided to Multiple, Single and Primi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23780	23873	
==>accessor
methods.  Relation::Example does not declare any subroutines or export such.

The usu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	659	828	
==>=~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	756	925	
==>=~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19054	19260	
==>ed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $target,
                                     heading =>  $heading <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37581	37755	
==>ute', (symbol->new('%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod

=cut

$:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1127	1266	
==>t {
    my $self    = shift;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entry ( @$stru <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8690	8807	
==>.5 => ghc-pkg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_run($g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8005	8184	
==>rap ( Mapping(Str) of Set of Str $mapping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4241	4359	
==>$1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4241	4359	
==>$1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10852	10981	
==>ingleton/class method called by Bar');      
  
is($Bar->singleton_test_on_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	316	427	
==>-Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($self: ) ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	316	427	
==>-Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

method is_infinite ($self: ) ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6035	6131	
==>erclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10292	10388	
==>erclass, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precen <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	781	918	
==>-$x;
 }

 multi  Num::floor (  Num  $x            --> Int )
 { Pugs::Internals::floor($x) }


 multi  Num::ceiling (  Num  $x          --> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	385	485	
==>ME

Test::Harness - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5414	5542	
==>arts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5414	5542	
==>arts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Head <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1152	1277	
==>new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, m <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1152	1277	
==>new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to be the same as the content, m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14327	14465	
==>server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14327	14465	
==>server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic f <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	470	563	
==>ty, and adds nothing else.

More specialised processing instructions may sub-class this module <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	470	563	
==>ty, and adds nothing else.

More specialised processing instructions may sub-class this module <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12553	12656	
==>ierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Document $doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12553	12656	
==>ierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Document $doc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2365	2471	
==>t's not clear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2365	2471	
==>t's not clear what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16496	16592	
==><RelationalExpression>
}
rule EqualityExpressionNoIn :words {  # see 11.9
      <RelationalExpres <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3065	3196	
==>ode')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3065	3196	
==>ode')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1674	1814	
==>,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1674	1814	
==>,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1491	1611	
==>$i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1491	1611	
==>$i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!heade <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28275	28374	
==>new Relation
which is the same as the invocant Relation but that some of its attributes
have been co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32827	32926	
==>new Relation
which is the same as the invocant Relation but that some of its attributes
have been co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1392	1500	
==>my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1392	1500	
==>my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4798	4971	
==>0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4648	4817	
==>0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tai <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6086	6193	
==>if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for rele <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6144	6251	
==>if we have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for rele <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2929	3047	
==>he index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2929	3047	
==>he index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	587	727	
==>ssertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	587	727	
==>ssertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $po <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1493	1730	
==>'item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1493	1730	
==>'item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_eleme <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5985	6081	
==>e is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) is primitive is safe is builti <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3193	3318	
==>= Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3193	3318	
==>= Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if def <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20083	20184	
==>) from the main program binary.  Each user
language is in a separate file, and adding a localization t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20083	20184	
==>) from the main program binary.  Each user
language is in a separate file, and adding a localization t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48763	48904	
==>ymbol->new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18580	18675	
==>port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18580	18675	
==>port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2048	2186	
==>::cwd();
    my $sym  = "${who}::AUTOLOAD";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2243	2331	
==>e;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_name> \;[ [<rule>|<to <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2234	2327	
==>ubstrs :( */

#define RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1999	2113	
==>::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  cat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1999	2113	
==>::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  cat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6832	6963	
==>. "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6844	6975	
==>. "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::e <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3486	3649	
==>conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation la <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3486	3649	
==>conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation la <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4696	4825	
==>some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4696	4825	
==>some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!children = (
            @!children[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30615	30711	
==>be
shared by multiple Messages but the whole module must represent a single
language.

The name o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30615	30711	
==>be
shared by multiple Messages but the whole module must represent a single
language.

The name o <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13947	14050	
==>scr  => "Creating directory \"$cdroot\"",
  ensure => sub { -d $cdroot and -r $cdroot },
  using  => sub <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	494	605	
==>method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	494	605	
==>method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
} <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	842	992	
==>ugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	842	992	
==>ugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	716	810	
==>rl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New laz <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	716	810	
==>rl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New laz <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3607	3807	
==>r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3607	3807	
==>r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4838	4985	
==>t >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4838	4985	
==>t >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	480	610	
==>[4], signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'bare_block' => $_[2] } }
    ;
    
a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3560	3658	
==>::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3560	3658	
==>::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::In <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	242	354	
==>cape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	242	354	
==>cape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2852	2950	
==>q.params()>

Returns the names of all the parameters as a list.  The order in which they were
prese <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2852	2950	
==>q.params()>

Returns the names of all the parameters as a list.  The order in which they were
prese <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7876	7988	
==>P, JSX::Value $V) {
    my $Result1 = $A.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $A.proper <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1228	1327	
==>lt for anything but a human.  To
make it easier for programs to work with test results, we provide
T <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	587	772	
==>a, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REP <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1562	1669	
==>P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $O.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	842	973	
==>' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	842	973	
==>' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4340	4449	
==>$x ) {
    my $x_round = floor($x);

    return $x_round;
}

our Int multi Num::round_toward_zero ( Num $x ) { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5198	5485	
==>n $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI] <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5198	5485	
==>n $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17531	17699	
==>butes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17531	17699	
==>butes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_node <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2728	2868	
==>t(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2728	2868	
==>t(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1212	1420	
==>oads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1212	1420	
==>oads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosett <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3105	3233	
==>$^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3105	3233	
==>$^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9658	9754	
==>TP::Request> and C<HTTP::Response> classes, internal to the
library.

The following methods are a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9658	9754	
==>TP::Request> and C<HTTP::Response> classes, internal to the
library.

The following methods are a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23481	23574	
==>INTERFACE

The interface of Relation::Example is entirely object-oriented; you use it by
creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12278	12393	
==>tdin`;
	    $runperl .= q{ < teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5568	5711	
==>->new('$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new('&ter <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6498	6649	
==>) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends work <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6556	6707	
==>) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends work <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1353	1448	
==>eave_scope {
	my $self = shift;

	$self->SUPER::leave_scope;

	pop @{ $self->{param_count_stack} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18352	18471	
==>, easy messages are
better.

I have found that when it comes to getting the most accurate program text
for users, we sti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18352	18471	
==>, easy messages are
better.

I have found that when it comes to getting the most accurate program text
for users, we sti <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1601	1722	
==>s an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2263	2384	
==>s an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9197	9286	
==>{ Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3022	3111	
==>{ Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1489	1592	
==>M_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1406	1503	
==>M_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_co <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3837	3946	
==>y_bindir = "$Site/$new_alt->{package}/bin";
    
        my @bins;
        print "\nRelinking scripts/manpages <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10400	10508	
==>re emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10400	10508	
==>re emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	839	959	
==>{
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	839	959	
==>{
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2265	2359	
==>.new("Class");

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class system. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3127	3228	
==>esult7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3673	3774	
==>esult7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX: <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	197	317	
==>nc( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _l <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	197	317	
==>nc( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	144	259	
==>e "start = object but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	144	259	
==>e "start = object but true" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	320	424	
==>it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	320	424	
==>it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3780	3897	
==>->{left} = shift;
	$self->{right} = shift;
	
	# FIXME - this is a hack for L::AG, since it doesn't know about @ISA
	$s <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	361	475	
==>blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1538	1640	
==>rn Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1538	1640	
==>rn Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6819	6974	
==>fine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6819	6974	
==>fine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2361	2491	
==>,  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "ea <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2361	2491	
==>,  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "ea <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	544	677	
==>t {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 mu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4208	4323	
==>ate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5057	5172	
==>ate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1388	1483	
==>$item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() returns i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1388	1483	
==>$item) returns Object {
    return %!members{$self._stringify($item)}
}

method size() returns i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18142	18316	
==>mar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18421	18595	
==>mar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2599	2721	
==>pe_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2599	2721	
==>pe_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4466	4605	
==>,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4659	4798	
==>,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8248	8355	
==>l5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8248	8355	
==>l5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3247	3381	
==>t at all times
        unless( $self->can('file') ) {
            error("No file associated with this object -- " .
                  " <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2462	2556	
==>1) {
	$symmetrical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int multi Num::truncation <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6095	6229	
==>a using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6095	6229	
==>a using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	290	393	
==>y $program = shift;

    $self->{seen} = Set::Object->new;
	$self->{dups} = Set::Object->new;

    $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17594	17759	
==>WpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14015	14180	
==>WpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $re <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	162	276	
==>ns Num { ... }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { ... }

# m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	609	734	
==>d footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SY <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	609	734	
==>d footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SY <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	556	827	
==>key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	556	827	
==>key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example::L: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9819	9933	
==>:Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9813	9927	
==>:Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5581	5683	
==>ement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5581	5683	
==>ement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6731	6832	
==>is reached.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6731	6832	
==>is reached.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5236	5387	
==>, :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5294	5445	
==>, :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is exp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14587	14709	
==>++'> <UnaryExpression>
    | <'--'> <UnaryExpression>
    | <'+'> <UnaryExpression>
    | <'-'> <UnaryExpression>
    | <'~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4984	5107	
==>e_quoted>
            { return { single_quoted => $/{'Pugs::Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2696	2816	
==>eft',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    # experimental
    __PACKAGE__->add_rule <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	846	980	
==>ds,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n"; }
	    else { print "n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	22	134	
==>not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	22	134	
==>not edit!
package grammar1;
*{'statement_control:<if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1147	1248	
==>::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1147	1248	
==>::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	916	1110	
==>do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

subm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	916	1110	
==>do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

subm <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2961	3065	
==>l form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to na <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2961	3065	
==>l form is not available or has been discarded.

=head1 SEE ALSO

L<Tree::DAG_Node> - details on how to na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26341	26462	
==>calar> context.  If you need to access
capture groups, use the digit variables, but only if you're sure the
match succeede <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1367	1485	
==>* GV;
typedef char * PV;

int prel_printf (GV f, const PV format, const PV c) {
	return fprintf(f, format, c);
}

PV pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17087	17185	
==>he B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17087	17185	
==>he B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3336	3502	
==>matches[1]

            return $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3230	3392	
==>matches[1]
            return $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1590	1704	
==>le
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $po <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2252	2366	
==>le
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $po <==
2	/Users/nnunley/pugs/util/combine_tests.pl	486	586	
==>the tests.
# A revision is added to each member of the more_events[].
#
# more_revisions[] is added w <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1487	1579	
==>ach_kw}\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $1 {/g;
    $_
}


my $conv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39948	40047	
==>ion 2.1 of the License, or (at your option) any later version.  You
should have received a copy of t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39948	40047	
==>ion 2.1 of the License, or (at your option) any later version.  You
should have received a copy of t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5885	6006	
==>sage $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5885	6006	
==>sage $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12385	12481	
==>en).

=head1 ERROR HANDLING

=head2 Determining Error

Use the errmsg() and errnum() methods to g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8286	8440	
==>||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceede <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8286	8440	
==>||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceede <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	283	378	
==>H_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	283	378	
==>H_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	104	216	
==>open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = object <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	104	216	
==>open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = object <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9026	9167	
==>ture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9219	9360	
==>ture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "cap <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1007	1130	
==>e () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1007	1130	
==>e () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	319	437	
==>:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	319	437	
==>:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4726	4828	
==>turns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8203	8305	
==>turns Relation {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4898	5004	
==>subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5091	5197	
==>subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24700	24820	
==>nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->family . $self->np <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2929	3044	
==>s28.vlinux.de/iblech/pugs/livecd.iso.

Note: If you want to modify the kernel used, you may want to use the
      co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9418	9552	
==>ypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to im <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9418	9552	
==>ypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to im <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6622	6764	
==>le {

    if ($attrs.size() == 0) {
        return Relation::Example.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs = <==
2	/Users/nnunley/pugs/util/func_refact.pl	914	1047	
==>zes:\n";
        for (keys %$nodes) {
            print "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %cc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1273	1407	
==>rl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1478	1612	
==>rl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	953	1096	
==>y %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	953	1096	
==>y %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4141	4265	
==>the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index O <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4141	4265	
==>the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index O <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	520	657	
==>N_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	520	657	
==>N_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1104	1233	
==>'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1104	1233	
==>'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12968	13144	
==>);
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12968	13144	
==>);
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exist <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	383	502	
==>},
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $obj = $class->SUPER::n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	783	880	
==>::Perl6

=head1 DESCRIPTION

Provides runtime routines for the Perl6-in-Perl5 compiled code

=head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28119	28226	
==>Message Variable names and values of this object as
a hash ref.

=item C<as_debug_string()>

This method ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28119	28226	
==>Message Variable names and values of this object as
a hash ref.

=item C<as_debug_string()>

This method ret <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	393	502	
==>node->digest;

    $digest => Blondie::Backend::Perl::Prim->new(
		equals => $digest,
		body => $params->{body <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	419	537	
==>Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1208	1326	
==>Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 2 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1299	1460	
==>ay' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day a <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1299	1460	
==>ay' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3066	3167	
==>the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related-key a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3066	3167	
==>the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related-key a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1732	1828	
==>encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1732	1828	
==>encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

= <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	574	705	
==>1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	574	705	
==>1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15820	15918	
==>e Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modify i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15820	15918	
==>e Aas. All rights reserved.

This library is free software; you can redistribute it and/or
modify i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21856	21952	
==>ta.  See the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21856	21952	
==>ta.  See the file L<Rosetta::Overview>
documentation in this distribution for that comparison.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6425	6533	
==>l6::ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { return { sub_application_term => $() ,} }
RULE
*{'sub <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25902	26008	
==>(ROPT_ANCH_SBOL|ROPT_ANCH_GPOS)
 #define ROPT_ANCH_BOL	 	0x00001
 #define ROPT_ANCH_MBOL	 	0x00002
 #define <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	525	637	
==>xpected")) {
        print "$dir/$file.p6 has some difference\n";
    } else {
        print "ok $dir/$file.p6\n" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1249	1354	
==>hift;

    $by_digest{$digest};
}

sub prelude {
<<C
#include <stdio.h>
#include <gc.h>

typedef int IV;
t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4406	4502	
==>crypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4406	4502	
==>crypt> and C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<d <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1219	1316	
==>", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, which <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1219	1316	
==>", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, which <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6602	6705	
==>rectories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6602	6705	
==>rectories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) ret <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9526	9633	
==>s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When taint mode is on, PERL5LIB is i <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	344	454	
==>\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local time
        ( Z | [+-](\d\ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20548	20650	
==>s) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest ret <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2137	2305	
==>y_fetchSize' => sub { # $int
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                scalar @{$self->get_va <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	666	755	
==>::PMC::interpreter=$i;
run_bytecode($i,"loadlib.pbc");
print $msg;
print "Data:$data\n";
1 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4107	4231	
==>d.  Successive failures may be
abbreviated (ie. 15-20 to indicate that tests 15, 16, 17, 18, 19 and
20 failed).

=back


=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16212	16309	
==>/;
    $results =~ s/at\s+misctmp\d+\s+line/at - line/g;
    $results =~ s/of\s+misctmp\d+\s+abort <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8542	8647	
==>name2 => $operator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6076	6180	
==>name2 => $operator_name - the name of the second operator in
an operator pair, such as circumfix [ '(', ' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11682	11790	
==>redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$D <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8490	8585	
==>[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8478	8573	
==>[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1312	1442	
==>}= { splat => 1, %{$_[2]} } }
    |   signature_term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18949	19063	
==>struct regexp

  typedef struct regexp {

=head2 The regular expression:

  I32 prelen;             /* length of pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10817	11000	
==>=> 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->k <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18767	18874	
==>t.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<package <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18767	18874	
==>t.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<package <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10612	10720	
==>'t compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10612	10720	
==>'t compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5110	5253	
==>{
        goto term_literal;
      }
    }
  }
  
  term_bx0:
    $I0 = 0
    $S0 = substr target, pos, 1
    $I2 = index "[{(<", $S0
    if $I2 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33552	33652	
==>=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more ele <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33552	33652	
==>=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordered list one or more ele <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1167	1260	
==>::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1167	1260	
==>::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12794	12918	
==>) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12794	12918	
==>) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8433	8620	
==>->new("&dispatcher", q<block>), 
                        symbol->new("$label", q<symbol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	339	458	
==>perator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8267	8385	
==>lf, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8267	8385	
==>lf, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6443	6556	
==>malize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6443	6556	
==>malize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accor <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4788	4960	
==>be, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5252	5424	
==>be, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7886	8109	
==>et_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns B <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7886	8109	
==>et_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3308	3405	
==>piler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3192	3285	
==>piler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24380	24471	
==>t>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24380	24471	
==>t>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2757	2855	
==>method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2757	2855	
==>method>

The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11602	11725	
==>turn "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11596	11719	
==>turn "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1295	1385	
==>ll if needed
push @devs_till_day, $devs_till_day[-1] while
  @devs_till_day < @commits_till <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	869	1003	
==>) if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	869	1003	
==>) if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	499	605	
==>ck>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	499	605	
==>ck>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1759	1882	
==>ay", iarray => "Array", #  └── "" ──┘
      );

our %sigils
    = ( (map { $_ => '%' } qw(flat_hash hash ihash)) <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3698	3801	
==>multi method infix:<->( $self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28557	28676	
==>=> sub {
      # $S will be the Regexp::AndBranch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2287	2420	
==>use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_f <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2152	2281	
==>d latex)
	    if ($file[0] eq '!') {
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr = <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1977	2074	
==>alent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1977	2074	
==>alent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1004	1096	
==>B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1004	1096	
==>B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_port returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6319	6449	
==>_emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) {  
                return " print STDERR '', " . _emit( $n->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6594	6723	
==>_emit( $n->{self} );
            if ( $s eq _mangle_var('$*ERR') ) { 
                return " print STDERR '', " . _emit( $n->{ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4774	4933	
==>nals::current_pragma_value($?CLASS) //
                $fatal::DEFAULT_FATALITY {
            die $e;
        } else {
            $! = $e;
            return u <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15277	15385	
==>oto end
  name:
    inc pos
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    $I0 = index <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3564	3664	
==>urns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3564	3664	
==>urns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13087	13205	
==>etting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13087	13205	
==>etting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4950	5065	
==>mpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How do <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4950	5065	
==>mpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How do <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	510	610	
==>ode = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a direct <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	510	610	
==>ode = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a direct <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10714	10915	
==>servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10714	10915	
==>servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24178	24283	
==>$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28730	28835	
==>$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, the <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4510	4618	
==>eption thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4568	4676	
==>eption thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8808	8904	
==>$A.property_value{'length'};
    $A.property_value{'length'} = $uint + 1; #XXX dont forget + wrap <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6236	6345	
==>get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6236	6345	
==>get siblings to a ROOT tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibli <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	839	958	
==>ubstr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub cal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	848	967	
==>ubstr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub cal <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	688	811	
==>?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=hea <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	688	811	
==>?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1137	1247	
==>int STDERR "  eval \"$str\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n$str\n" if $@;
	$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2979	3092	
==>at: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '<item>',
    } );
}



_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3003	3132	
==>d;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3003	3132	
==>d;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10770	10876	
==>You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10770	10876	
==>You can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	702	806	
==>s_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

cla <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	702	806	
==>s_fresh++;
  }
}
sub debug_recv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	480	628	
==>P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	480	628	
==>P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5320	5419	
==>smoke-%s-r%d-%s-%s--%d-%d--%d-%d-%d-%d-%d-%d--%s.html",
    (map { $smoke{$_}          } qw<pugs_ver <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	986	1150	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	986	1150	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23556	23722	
==>= @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'suspend',
      data => \@data,
      down = <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	708	804	
==>---------

use strict;
use IO::All;
use Regexp::Common;
use Data::Dumper;

# -------------------- <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6189	6404	
==>rl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5697	5912	
==>rl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19374	19467	
==>thentication scheme and parameters applicable to the requested URI.

=item $h.proxy_authentica <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19374	19467	
==>thentication scheme and parameters applicable to the requested URI.

=item $h.proxy_authentica <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2679	2802	
==>$!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2737	2860	
==>$!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1521	1653	
==>eop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1532	1664	
==>eop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule,
        ),
        rule <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7105	7201	
==>ule only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=bac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7105	7201	
==>ule only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=bac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	168	306	
==>as $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	168	306	
==>as $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$.code, :$.message) { }
    
    met <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15049	15179	
==>o one leap day)
    has Str  $.tzname;  # string, eg, JDT
    has Int  $.tz;      # variation from UTC in seconds
    has Bool $.is <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1358	1469	
==>nd {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	378	489	
==>nd {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	388	500	
==>ages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite sho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	388	500	
==>ages if there are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite sho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19209	19308	
==>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19209	19308	
==>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1007	1143	
==>ons.)

Although it is secure when used properly, using it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1007	1143	
==>ons.)

Although it is secure when used properly, using it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2094	2229	
==>p_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } el <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	903	1036	
==>o_num->to_native;
}

# methods ...

sub add {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1260	1357	
==>>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { meth_call_term => $() } }
RULE
*{'meth_call_stat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3701	3881	
==>.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3701	3881	
==>.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    retu <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3004	3126	
==>ically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    return unless defined $ENV{PUGS_SMOKE_UPLOAD};
    system("$^X $EN <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7415	7524	
==>lobal "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Modifier")
    pos = mfr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8844	8949	
==>right/non/chain/list
 # rule=>$rule 
 #  (is parsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-comp <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1476	1564	
==>nd $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5747	5847	
==>returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5747	5847	
==>returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3148	3248	
==>($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3148	3248	
==>($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.includes($_) });
    r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13640	13785	
==>cript );
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1245	1383	
==>oping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1245	1383	
==>oping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  ha <==
2	/Users/nnunley/pugs/util/drift.pl	306	406	
==>~ /^(.*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3179	3271	
==>plement_previous ),
        complement_previous => $self._get_intersection( $self.complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3179	3271	
==>plement_previous ),
        complement_previous => $self._get_intersection( $self.complement_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	944	1090	
==>rn unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	905	1046	
==>rn unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5062	5169	
==>@_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t') <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1645	1752	
==>@_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t') <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14587	14683	
==>afe_chars )

This routine works just like encode_entities, except that the replacement
entities a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14587	14683	
==>afe_chars )

This routine works just like encode_entities, except that the replacement
entities a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28034	28129	
==>>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32586	32681	
==>>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3144	3291	
==>ling code...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANP <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34801	34889	
==>cant relation,
respectively.

=item C<restrict (Code $predicate!) returns Relation::Examp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	702	854	
==>ll turn an entry like this:

depends:
  - p5-a
  -
    - p5-b: 3
    - p5-b: < 2
  - !perl/ref:
    =:
      - p5-c
      -
        - p5-e
        - p5-d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2187	2290	
==>sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2187	2290	
==>sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3717	3840	
==>presents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3717	3840	
==>presents an ordered set of spans.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9082	9204	
==>kage required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @lis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10559	10681	
==>kage required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @lis <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	528	672	
==>ethods => {
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.out <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4316	4428	
==>\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1442	1554	
==>\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	679	779	
==>wards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	679	779	
==>wards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22817	22932	
==>.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@args)=@_;
    $o->$m(@args);
}


no strict 'vars';
pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	666	788	
==>tring, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	666	788	
==>tring, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pu <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6094	6189	
==>skell -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12244	12365	
==>goto end
    $S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cname"] = $S0
  end:
    .r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	30	127	
==>use Path::Class ();
use Cwd;
use Config;

use vars qw[$INSTALLATION_DIR $REPOSITORY_ROOT];

my $co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2926	3043	
==>ld
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2926	3043	
==>ld
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1732	1840	
==>atement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1732	1840	
==>atement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement->add_op( {
    fixity <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2796	2928	
==>edirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2796	2928	
==>edirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error_as_HTML () {
        my $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6755	6878	
==>";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6286	6382	
==>,} }
RULE
*{'term2'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11916	12066	
==>+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11916	12066	
==>+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12551	12760	
==>print "$test{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1981	2102	
==>------------------------------------------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(sh <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2061	2220	
==>=> [
        '$.passed',
        '$.number',
        '$.diagnostic',
        '$.description',
    ],
    submethods => { 
        'BUILD' => sub {
            m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1085	1203	
==>st). 
# note: the list in @$nodes can be modified at runtime
sub alternation {
    my $nodes = shift;
    return su <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8239	8345	
==>hat depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8239	8345	
==>hat depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usually <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1582	1671	
==>&::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1582	1671	
==>&::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) retu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	230	349	
==>SubType $.subType;

# ?? do we need this?
#  has Perl::Pad $.subPad;

has Str $.subAssoc;

has Array of Perl::Param @.su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	484	617	
==>arse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	484	617	
==>arse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7273	7462	
==>lready?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7737	7926	
==>lready?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5829	5951	
==>> chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5829	5951	
==>> chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955), <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	670	805	
==>boxed or unboxed.

These objects are what you get from C<::SomeClass> references.

Note that this could be a different entity to the obj <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21655	21767	
==>set_min substrs->data[2].min_offset
 #define check_offset_max substrs->data[2].max_offset

data[0].substr, aka an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26872	26974	
==>t_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but that the re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31424	31526	
==>t_all_but (Set of Str $attrs!) returns Relation>

This method is the same as C<project> but that the re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	857	989	
==>rl;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	857	989	
==>rl;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2927	3181	
==>:= (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3174	3428	
==>:= (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	63	201	
==>GETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	63	201	
==>GETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	476	587	
==>x_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::B <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	476	587	
==>x_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::B <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3808	4049	
==>$start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3808	4049	
==>$start), 
                                    :end($end), 
                                    :start_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10047	10170	
==>NDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.de <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10047	10170	
==>NDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	854	958	
==>f a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn't distingu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	854	958	
==>f a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It doesn't distingu <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1556	1691	
==>{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1556	1691	
==>{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2045	2146	
==>urn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2045	2146	
==>urn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () retu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9852	9964	
==>n1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.string <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9852	9964	
==>n1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.string <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	114	232	
==>osec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig - <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	740	837	
==>elude::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::IO;

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30774	30871	
==>tend (Mapping(Str) of Code $attrs!) returns Relation::Example>

This method is a generic relationa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6517	6615	
==>e' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' , <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6517	6615	
==>e' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' , <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7225	7315	
==>-------------------------------------------------
## traversal

method traverse ($self: Cod <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7225	7315	
==>-------------------------------------------------
## traversal

method traverse ($self: Cod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2133	2230	
==>be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's funct <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2133	2230	
==>be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's funct <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5350	5606	
==>]) {
                            # pop the top off ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5350	5606	
==>]) {
                            # pop the top off ...
                            @modifier_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	10396	10585	
==>rn $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13873	14062	
==>rn $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8632	8762	
==>, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNICODE_C_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1874	1971	
==>tion) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:space:]/ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3692	3811	
==>nd" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3692	3811	
==>nd" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($sta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	366	479	
==>number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is inf <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1224	1337	
==>number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is inf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5705	5843	
==>r = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5705	5843	
==>r = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1236	1365	
==>p == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1236	1365	
==>p == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -Inf ?? undef !! $tmp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	181	351	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	181	351	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	157	282	
==>ay)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	157	282	
==>ay)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16176	16296	
==>if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16176	16296	
==>if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5028	5147	
==>or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5028	5147	
==>or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $class->pmc_fold_blocks($m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21817	21934	
==>essm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18238	18355	
==>essm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	359	458	
==>doc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $bod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	359	458	
==>doc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $bod <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3999	4201	
==>.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7476	7678	
==>.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1942	2049	
==>mp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1942	2049	
==>mp = $self.intersection( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	122	227	
==>tate that is passed around.  It essentially
forms a linked list through the rule as it is executed, but th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	122	227	
==>tate that is passed around.  It essentially
forms a linked list through the rule as it is executed, but th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2204	2338	
==>sage($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $proto = . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2204	2338	
==>sage($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $proto = . <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	54	156	
==>ing;

use strict;
use warnings;

{
    use Blondie::ADTs;
    package Blondie::Reducer::DynamicScoping: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4941	5039	
==>desInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1465	1562	
==>e_tests_match.el - an old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1110	1217	
==>method BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1110	1217	
==>method BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if the Engine module loads o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4432	4665	
==>rn { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state => $succ,

                capture => $capture,

            };

        }

    }

}



su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4297	4519	
==>rn { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state => $succ,
                capture => $capture,
            };
        }
    }
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15339	15503	
==>}
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15333	15497	
==>}
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this should be ok
            return
                "$ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7256	7382	
==>est\n";
    my $t = timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    ".timestr($t)."\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6367	6527	
==>xt = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6425	6585	
==>xt = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19638	19763	
==>n one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data typ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24190	24315	
==>n one.  The Relation operators are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation data typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3208	3346	
==>n't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3392	3530	
==>n't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16163	16260	
==>ks, and will
not spend much time in providing rationales; you can read TTM itself and
various othe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16163	16260	
==>ks, and will
not spend much time in providing rationales; you can read TTM itself and
various othe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2086	2247	
==>nshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2333	2494	
==>nshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{ru <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1270	1357	
==>`}@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new('p6'=>$code)->co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9064	9168	
==>to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9064	9168	
==>to fix any height 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1327	1433	
==>ke alternative representations of @header_order.  This is used
# for sorting and case matching.
our %header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1327	1433	
==>ke alternative representations of @header_order.  This is used
# for sorting and case matching.
our %header <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4595	4742	
==>$archive ),
                meta => $self->meta,
            );                
}



1;

# Local variables:
# c-indentation-style: bsd
# c-basic-off <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7800	7915	
==>S_WORD, target, pos, lastpos
    $I1 = pos - $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2647	2758	
==>elf);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_sub <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2647	2758	
==>elf);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3828	3932	
==>:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3828	3932	
==>:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{mat <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13938	14032	
==>tem encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $stri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13938	14032	
==>tem encode_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $stri <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8419	8566	
==>t test.
        my @failed = grep { !$results{details}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pug <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	409	537	
==>ix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => "nested addition",
	},
	{
		ast => App(
			Sym('&infix:<~>'),
			Val(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7581	7715	
==>=> '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseudo-code for usage inside a grammar:

    sub new_proto( $match ) { <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2488	2585	
==>e of the subscription
        method add_subscription (String $name, $subscriber = $?CALLER::?SELF <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3239	3361	
==>ay('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3239	3361	
==>ay('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30441	30539	
==>.  This is used to dive into the node's children
when using a walker (see L<Regexp::Parser/"Walking <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12015	12199	
==>oduct;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15492	15676	
==>oduct;
&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9913	10028	
==>RIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    min = $S0
    max = $S <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1704	1815	
==>f->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1704	1815	
==>f->init_pugs;
    $self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1809	1968	
==>( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $s . "    rule $rule <==
2	/Users/nnunley/pugs/util/package-osx.pl	8432	8529	
==>:Doc::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6965	7128	
==>== $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6965	7128	
==>== $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7522	7613	
==>MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7522	7613	
==>MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	127	260	
==>se JIB::Meta;
use JIB::Alternative;

use YAML                    qw[LoadFile DumpFile];
use Params::Check           qw[check];
use Log <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2462	2589	
==>}
        else {
      warn "Cannot open log (in $testdir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1918	2010	
==>nts a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2007	2099	
==>nts a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2260	2400	
==>$match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2187	2320	
==>$match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3870	3996	
==>e file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3870	3996	
==>e file, just return. The filtering will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7386	7518	
==>, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7386	7518	
==>, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1010	1117	
==>t object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1010	1117	
==>t object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3346	3465	
==>username, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3346	3465	
==>username, $.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6097	6220	
==>nfix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6097	6220	
==>nfix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	310	427	
==>RG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1168	1285	
==>RG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2378	2510	
==>ith:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ changings its name.



of cou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2290	2415	
==>ith:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ changings its name.

of cou <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16327	16421	
==>en) = { generic($.if) }
cond: generic_in($.else) = { generic($.then) }
cond: generic($$) = { ge <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10084	10232	
==>return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10084	10232	
==>return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($dat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3021	3116	
==>tmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3021	3116	
==>tmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4783	4886	
==>oid name collisions, we use a fully qualified function name.

=back

The following are the (pseudo) meth <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4783	4886	
==>oid name collisions, we use a fully qualified function name.

=back

The following are the (pseudo) meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	263	391	
==>file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	263	391	
==>file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14505	14608	
==>( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14505	14608	
==>( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14822	14959	
==>gexp {

The regular expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular ex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5296	5396	
==>IL_Environment ($pilGlob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5254	5407	
==>t the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in what we alrea <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5718	5871	
==>t the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in what we alrea <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3171	3373	
==>s: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3171	3373	
==>s: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14136	14271	
==>ge.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$* <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14136	14271	
==>ge.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$* <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32827	32922	
==>C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic binary relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37377	37472	
==>C<exclusion (Relation $other!) returns Relation>

This multi-method is a generic binary relation <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1142	1353	
==>($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1142	1353	
==>($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_ele <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	667	773	
==>ty>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normali <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	667	773	
==>ty>;
    %tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normali <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27212	27309	
==>lation>

This method is a generic relational operator that returns a new Relation
which has a supe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31764	31861	
==>lation>

This method is a generic relational operator that returns a new Relation
which has a supe <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	505	675	
==>se (@start, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22400	22485	
==>.
charset_member(E0,C,[char(X)|_]) :- flag_i(E0), case_insensitive_char_eq(C,X), !.
ch <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2466	2566	
==>ntests()> display the standard output of the script
without altering the behavior otherwise.  The F<p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2260	2399	
==>ect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail "Invalid or missing plan" unless defined $:expect;
      }
  
      me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2770	2880	
==>STDERR "--$stage--\n";
	if($stage eq 'p5') {
	    my $pil_tree = $self->as_pil_tree;
	    my($p5,$warn) = Perl6 <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	195	316	
==>{ ohren_zuhalten();  }
	
	print "Schritt für Schritt...";
	when 2            { lauf_dazwischen(); continue; }
	when (3..1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15033	15138	
==>ese methods can both be used to read
and to set the value of a header.  The header value is set if you pas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15033	15138	
==>ese methods can both be used to read
and to set the value of a header.  The header value is set if you pas <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17167	17297	
==>end
    pad = new .Hash
    $P0 = new .Hash
    pad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29794	29888	
==>esults()

Remember exit code

Completely redo the print summary code.

Implement Straps callbac <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1070	1170	
==>:int_size 2;
Clutter::int_size 4;
Clutter::int_size 8;
Clutter::int_size 16;
Clutter::int_size 32;
He <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6047	6177	
==>fe   (rw!Hash)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n   Lis <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7615	7733	
==>q lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((upd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7615	7733	
==>q lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((upd <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1085	1209	
==>n Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1085	1209	
==>n Array ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains ' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1305	1411	
==>";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1305	1411	
==>";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4880	5084	
==>("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">") <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4880	5084	
==>("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11266	11391	
==>h_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11266	11391	
==>h_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( ' <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4529	4625	
==>hods are
implemented as hash keys to code refs. The only function this module
exports is the cons <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4529	4625	
==>hods are
implemented as hash keys to code refs. The only function this module
exports is the cons <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	323	519	
==>^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	323	519	
==>^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14016	14123	
==>);
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14016	14123	
==>);
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12963	13101	
==>iven ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12963	13101	
==>iven ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2263	2401	
==>$match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2263	2401	
==>$match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5169	5334	
==>op_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5169	5334	
==>op_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	105	198	
==>erldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	105	198	
==>erldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7429	7569	
==>]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7417	7557	
==>]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	225	324	
==>ead1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming closin <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	225	324	
==>ead1 DESCRIPTION

These nodes can be used to, eg, note to the L<Pod::Writer> that an
upcoming closin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6139	6247	
==>ormalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Upd <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6139	6247	
==>ormalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Upd <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25434	25532	
==>nses
of the other components concerned, provided that you include the source
code of the other comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25434	25532	
==>nses
of the other components concerned, provided that you include the source
code of the other comp <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	167	263	
==>ted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_f <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	167	263	
==>ted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6860	6965	
==>e assume that module intentionally doesn't exist,
        # and so skip to the next candidate module name. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6860	6965	
==>e assume that module intentionally doesn't exist,
        # and so skip to the next candidate module name. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3842	3959	
==>t be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan');
            push @{_('@ <==
2	/Users/nnunley/pugs/util/config_h.pl	444	540	
==>hc_line ||= $ENV{GHC} || 'ghc';
$base ||= Cwd::cwd();

my ($ghc, @ghc_args) = split /\s+/, $ghc_l <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2468	2602	
==>s < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2468	2602	
==>s < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13498	13593	
==>tity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13498	13593	
==>tity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5218	5323	
==>ile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5037	5138	
==>ile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17931	18027	
==>ntially all isolated from each other, even if more than one uses the
same Engine class to impleme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17931	18027	
==>ntially all isolated from each other, even if more than one uses the
same Engine class to impleme <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	370	503	
==>load('get_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $Config::Config <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	627	727	
==>shes
	return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5867	5989	
==>lf._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5867	5989	
==>lf._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3345	3451	
==>ut := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_typ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3403	3509	
==>ut := defined($desc) ?? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_typ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50399	50529	
==>thority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('identifier' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6110	6209	
==>long string.

=item List Context

All headers are returned split into the respective
lines.

=item H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6110	6209	
==>long string.

=item List Context

All headers are returned split into the respective
lines.

=item H <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21405	21514	
==>_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17826	17935	
==>_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_handler('(?<=' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1519	1616	
==>:IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1519	1616	
==>:IRC::SeenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(St <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7392	7491	
==>xclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10869	10968	
==>xclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @other <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30967	31063	
==>he original, in which case
this method returns the identity-one Relation or the invocant relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35517	35613	
==>he original, in which case
this method returns the identity-one Relation or the invocant relation <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10633	10730	
==>ate several fields with a single invocation.

The $value argument may be a plain string or a refer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10633	10730	
==>ate several fields with a single invocation.

The $value argument may be a plain string or a refer <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6997	7126	
==>r_re('\W') if $re eq '\W';
    die "Regexp compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parser::space;
  sub emit {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4931	5035	
==>can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'insta <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4931	5035	
==>can be called with the following syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'insta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24970	25064	
==>gcomp() supplies a regmust only if the r.e. contains something
 * potentially expensive (at pre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	375	493	
==>warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	581	699	
==>warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1657	1756	
==>>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix v <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1657	1756	
==>>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22085	22200	
==>WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible dan <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16986	17100	
==>WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible dan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9553	9669	
==>program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \\\$bool, to = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9565	9672	
==>program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool => \$boo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3991	4086	
==>_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3991	4086	
==>_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( $self.comple <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5384	5508	
==>.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5384	5508	
==>.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	710	828	
==>fix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Stan <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	710	828	
==>fix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Stan <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	880	983	
==>s export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	938	1041	
==>s export {
    Test::proclaim($cond, $desc, $todo, :$depends);
}

## is

sub is (Str $got, Str $expected <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1745	1852	
==>$file );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1745	1852	
==>$file );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str i <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5867	6015	
==>\\n   List      pre     uniq    safe   (List)\
\\n   Str       pre     join    safe   (Str, List)\
\\n   List      pre     zip     safe   (List)\
\\n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11026	11124	
==>splayed by your program.  It is analagous to a simplified version of the
"Document" interface defin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11026	11124	
==>splayed by your program.  It is analagous to a simplified version of the
"Document" interface defin <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1080	1192	
==>or $f\n";
        $allccs{$f} = [ keys %{comp_cc(\%cc)} ];
    }
    print ::Y(\%allccs),"\n";
}
#print $g->as_pn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	309	415	
==>ractice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	309	415	
==>ractice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Heade <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1460	1552	
==>herefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1460	1552	
==>herefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst size> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6447	6677	
==>lse {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6447	6677	
==>lse {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.cu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7755	7887	
==>" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7755	7887	
==>" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1096	1200	
==>g utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1096	1200	
==>g utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all Engines

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5915	6037	
==>apture} = [ { $label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, this must <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5728	5844	
==>apture} = [ { $label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, this must <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13270	13379	
==>le translations. This list is I<not> exhaustive.

 delete %hash{$key}                %hash.delete{$key}
 delet <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1385	1502	
==>ss) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1385	1502	
==>ss) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4012	4126	
==>thod quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4012	4126	
==>thod quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4416	4543	
==>ew( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4416	4543	
==>ew( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2752	2875	
==>[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2999	3122	
==>[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4097	4233	
==>$match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4097	4233	
==>$match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4798	4978	
==>[@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Arr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4798	4978	
==>[@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12804	12918	
==>w should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12804	12918	
==>w should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18595	18687	
==>I<not>
necessarily the names you specified in the constructor. For example,
this module autom <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18595	18687	
==>I<not>
necessarily the names you specified in the constructor. For example,
this module autom <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	73	177	
==>::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    m <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	73	177	
==>::Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    m <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1907	2071	
==>lts, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1907	2071	
==>lts, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29288	29396	
==>de the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29288	29396	
==>de the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'M <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10855	10983	
==>ned $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10855	10983	
==>ned $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method d <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7590	7723	
==>ys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %ap <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2212	2310	
==>indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime/) }

	sub annotate <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3532	3681	
==>, $reason) = @_;
            $reason ||= '';
            _('$.output')->write("Bail out!  $reason");
            exit 255;
        },
        'report_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14269	14379	
==>::arrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
		$.fun,
		$.param,
	);

	# firs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19328	19429	
==>(compared to a typical other
vendor's DBMS) is that data definition statements are structured as
stand <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19328	19429	
==>(compared to a typical other
vendor's DBMS) is that data definition statements are structured as
stand <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12604	12707	
==>e sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12604	12707	
==>e sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	975	1072	
==>e Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional and obje <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	975	1072	
==>e Cipher API has functional, procedural, and object-oriented interfaces.  The 
functional and obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17518	17612	
==>E>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
stand <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17518	17612	
==>E>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
stand <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1610	1725	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1610	1725	
==>:PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11871	11971	
==>ethod tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11871	11971	
==>ethod tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2004	2138	
==>>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2004	2138	
==>>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2745	2865	
==>erse if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2745	2865	
==>erse if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_ne <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7095	7194	
==>) This module only supports HTTP as the protocol.

=item (TODO) This module does not support proxies <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7095	7194	
==>) This module only supports HTTP as the protocol.

=item (TODO) This module does not support proxies <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4283	4381	
==>nal
captures as match objects.

=head2 %{}

When used as a hash reference, the match object returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4283	4381	
==>nal
captures as match objects.

=head2 %{}

When used as a hash reference, the match object returns <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6305	6419	
==>art > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method st <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6305	6419	
==>art > $self.end;
}

method is_infinite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method st <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	414	602	
==>y $entry      = join("\n", param('entry') || %wiki{$topic});
if ($topic eq "OverView") {
    $action = "";
    $entry = %wiki.keys.sort.join("\n");
}
my $entry_html = $entry;
$entry_html ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4886	4986	
==>st of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4886	4986	
==>st of `Span` objects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	121	231	
==>.grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs::Internals::install_pragma_value <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2932	3037	
==>rn $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die << "END";
The '$method' method <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1040	1171	
==>ck) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "AND takes a block";
    if ($self == $TRUE) {
        $b <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5573	5678	
==>@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5573	5678	
==>@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parse <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2378	2488	
==>self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $o <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2378	2488	
==>self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1109	1226	
==>b { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1109	1226	
==>b { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6841	6935	
==>is designed as a replacement (though not drop-in) for my old
F<YAPE::Regex> modules.

=head1 US <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	93	192	
==>pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	93	192	
==>pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command li <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35825	35922	
==>nd combines it with the
invocant relation into a new Relation, such that all common attribute name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40375	40472	
==>nd combines it with the
invocant relation into a new Relation, such that all common attribute name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10419	10522	
==>r perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10419	10522	
==>r perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15697	15817	
==>my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2094	2214	
==>my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $se <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18676	18775	
==>tly
like what the core expects to avoid problems.  While simultaneously
trying to avoid triggering c <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2966	3065	
==>tly
like what the core expects to avoid problems.  While simultaneously
trying to avoid triggering c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3544	3654	
==>"IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($flags)?";
	}

	sub reduce_sym {
		my $sel <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11706	11813	
==>A combination of the two methods above, for when one wishs to take
advantage of the internal caching of keys <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8819	8925	
==>s == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8819	8925	
==>s == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8532	8642	
==>om the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http:// <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8532	8642	
==>om the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http:// <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4736	4835	
==>tion {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &project_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8213	8312	
==>tion {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&select_all_but ::= &project_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1900	2006	
==>::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:space:]/ )
  {
    $matchObj->position( $ma <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	506	620	
==>eturn a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	506	620	
==>eturn a Set::Infinite 
  
  Tests:
    * overloading - ~ <=> 
    * empty_span - test with "density"
    * universa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9360	9630	
==>{ 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_not_nil()
                      ->and(
                          block->new($e, sub { 
                              my $e = shift; 
                              $e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14679	14776	
==>values are not folded.

The optional $eol parameter specifies the line ending sequence to
use.  Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14679	14776	
==>values are not folded.

The optional $eol parameter specifies the line ending sequence to
use.  Th <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3792	3929	
==>m);
        print $ofh $program;

        print STDERR ", $module" if $Config{verbose};
        $module =~ s#::#/#g;
        print $ofh "\ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	366	482	
==>rameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplica <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	366	482	
==>rameter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplica <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2440	2557	
==>es');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2440	2557	
==>es');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the que <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10840	10935	
==>de,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10840	10935	
==>de,
and these could potentially be extended by third party add-ons.

=head2 The Rosetta::Model:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4753	4897	
==>er => 'or',
    );
    
    # '->' is not an operator
    #__PACKAGE__->add_rule( 
    #    name => '->',
    #    assoc => 'non',
    #    prece <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	314	431	
==>text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	314	431	
==>text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(po <==
2	/Users/nnunley/pugs/misc/S29_round.pl	206	326	
==>* floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our In <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5820	5913	
==>proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5878	5971	
==>proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7771	7914	
==>t =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7771	7914	
==>t =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining blocks and determine which <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	287	386	
==>&usage,
  "compress|c!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smokeserv- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5461	5557	
==>on = $-[0];
  $currentOperatorTable = $self->operatorTable() if ( $whitespacePosition <= $positio <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18664	18763	
==>e boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> state <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18664	18763	
==>e boundaries. They are described
as follows:

    PREAMBLE - Lines before the first C<package> state <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4890	5087	
==>re::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6652	6849	
==>re::params new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9952	10139	
==>) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11429	11616	
==>) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1460	1610	
==>p;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1460	1610	
==>p;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5985	6112	
==>terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6178	6305	
==>terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'gr <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1484	1598	
==>extarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1484	1598	
==>extarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38886	38988	
==>HT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43700	43802	
==>HT

This file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Rela <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1987	2086	
==>ode pil_tree p5)],
	$datatype => Perl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3513	3677	
==>1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3760	3924	
==>1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	14	276	
==>s
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	14	276	
==>s
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	788	964	
==>t> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	788	964	
==>t> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5486	5616	
==>guous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5486	5616	
==>guous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Code $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	425	528	
==>le Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	425	528	
==>le Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        ret <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	893	999	
==>ackage type;
use base qw/Clone/;

### the types of types we have are:
# type::operator
#	::binary - takes 2 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16774	16899	
==>l code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if has_gram goto p6rule_1
    grammar = "PGE::Rul <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5109	5206	
==>as $.target;
   method is_abrupt_completion() { !$.type.normal }
}
# empty is represented by undef <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1730	1935	
==>o $Site/% >> $meta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = LoadFile( $met <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	498	598	
==>ile\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    system("pugs naive_bayesian.p6 add ap <==
2	/Users/nnunley/pugs/util/config_h.pl	1515	1623	
==>ant
    Template Haskell support, please compile your GHC with the
    GHCi option.

.
}

close OUT;

sub try <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2688	2792	
==>opt->{name}\n";
    $opt->{assoc}  = 'non'    unless defined $opt->{assoc};
    $opt->{fixity} = 'prefi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8446	8542	
==>pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = &infix:«< <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8747	8859	
==>ts_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8805	8917	
==>ts_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed = 0;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4521	4641	
==>ring
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}). <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4521	4641	
==>ring
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}). <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	664	771	
==>efix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- does <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	664	771	
==>efix:<∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- does <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2745	2864	
==>ernate ( Num $x ) {
    my $x_round;
    state $round_up = 1;

    # alternate rounding .5 up and down
    given abs($x) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16637	16722	
==>,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(Re1,F0,F1,B0,B1,E0,E1).
rm(unio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10577	10684	
==>mented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10735	10842	
==>mented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19344	19438	
==>o read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19344	19438	
==>o read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<g <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	825	957	
==>ition();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($from);
  my $position = -1;
  $me->position($position);

  $ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	5	101	
==>r/bin/perl

package Blondie::TestPrograms;
use base qw/Exporter/;

use strict;
use warnings;

use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16208	16335	
==>ed {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16208	16335	
==>ed {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6124	6243	
==>];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6124	6243	
==>];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5216	5347	
==>Param'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5216	5347	
==>Param'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 ' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1164	1343	
==>y|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1164	1343	
==>y|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10165	10286	
==>range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10165	10286	
==>range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2689	2785	
==>data streams are enciphered with the same key, the encryption 
can be removed by XORing them toge <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2689	2785	
==>data streams are enciphered with the same key, the encryption 
can be removed by XORing them toge <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15606	15699	
==>ich contain the mapping from all characters to the corresponding entities
(and vice versa, res <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15606	15699	
==>ich contain the mapping from all characters to the corresponding entities
(and vice versa, res <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2811	2913	
==>bmethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2811	2913	
==>bmethod _normalize_parameter ($self: $span) {
    # is it a Set::Infinite ?
    return $span.set if $sp <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19104	19206	
==>in is primitive { List::shift(@array) };
multi shift ($array) is builtin is primitive { die "Cannot 'sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36981	37078	
==>flags

Family: flags

Types: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2701	2802	
==>f->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3274	3375	
==>f->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2520	2638	
==>f->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3475	3593	
==>f->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19311	19441	
==>);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15732	15862	
==>);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLA <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1	106	
==>odule CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1	106	
==>odule CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3866	3968	
==>ss::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3866	3968	
==>ss::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Encode
method decoded_content ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7304	7448	
==>trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7304	7448	
==>trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	351	605	
==>this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	351	605	
==>this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rose <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4101	4209	
==>thod is_empty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4101	4209	
==>thod is_empty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2784	2947	
==>$tight>";
    @rules = _optimize( @rules );
    return $rules[0] unless $#rules;
    return "[ " . join( ' | ', @rules ) . " ]";
}

sub emit_grammar_perl6 {
    # i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2340	2448	
==>ess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::FALSE)
        || confess "Att <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15523	15625	
==>e can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15523	15625	
==>e can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more at <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3572	3775	
==>ned($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.re <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3572	3775	
==>ned($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10545	10668	
==>($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10545	10668	
==>($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8067	8182	
==>ck>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8067	8182	
==>ck>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %channels h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2101	2207	
==>r, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2101	2207	
==>r, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	873	1024	
==>ta.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	873	1024	
==>ta.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	715	828	
==>! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs defines this as List::kv.  And with rw!Array.
multi Arra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15308	15455	
==>";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15302	15449	
==>";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, but this sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10318	10435	
==>med{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10312	10429	
==>med{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$matc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	995	1099	
==>?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1053	1157	
==>?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($tes <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1456	1548	
==>le therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst s <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1456	1548	
==>le therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate>, C<burst s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4494	4596	
==>> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4494	4596	
==>> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.ci <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3763	3879	
==>elf->_is_test($line, \%result) ) {
        $type = 'test';

        $totals->{seen}++;
        $result{number} = $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5669	5764	
==>>new_pad($sub->struct_equiv->val->struct_equiv => $sym);
			} else {
				push @exps, $self->redu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7146	7312	
==><'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <'=='>
    | <'!='>
    | <'==='>
    | <'!=='>
    | <'+'>
    | <'-'>
    | <'*'>
    | <'%'>
    | <'++'>
    | <'-- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	59	169	
==>er/;

use strict;
use warnings;

use Carp ();
use Class::Inspector ();

use Blondie::ADTs;

our @EXPORT = qw/st <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14049	14151	
==>2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14049	14151	
==>2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2454	2566	
==>)";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2512	2624	
==>)";
        &Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7207	7308	
==>$cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $S->object(eol => seol => '\Z') <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	117	211	
==>ndie is a dumb intermediate language and a compiler collection for
the purpose of demonstrating <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3699	3824	
==>span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3699	3824	
==>span1 = $self._normalize_parameter( $span );
    return $span0.intersects( $span1 );
}

method union ($self: $span ) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5415	5526	
==>$x ) {
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5415	5526	
==>$x ) {
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3934	4047	
==>Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3934	4047	
==>Connection: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4053	4254	
==>conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a bina <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7146	7302	
==>.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potenti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7146	7302	
==>.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potenti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	762	871	
==>ub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	762	871	
==>ub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  ha <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6117	6223	
==>l(bos)   --> "\\A".
p5_elemental(eosnl) --> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> " <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2492	2595	
==>ss
system.

Note that the files in this distribution at C<lib/Class.pm> will
probably eventually be auto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7519	7664	
==>my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7507	7652	
==>my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2318	2442	
==>{ return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2318	2442	
==>{ return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5390	5486	
==>tomatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situati <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5390	5486	
==>tomatically done as part of C<finish>, C<finishstr> and the 
destructor, but there may be situati <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4190	4288	
==>pic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4190	4288	
==>pic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<top <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2755	2856	
==>_nil))
        (($current send (has_method $label)) and (= $method ($current send (get_method $label)) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10872	10968	
==>lass;
	$code = ("(p6_meta('$class')".
		 "->add_method($namestr".
		 "=> ::make_${k}(do{my \$__f" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4560	4688	
==>~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4560	4688	
==>~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache3 <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	829	1013	
==>$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$c <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	829	1013	
==>$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20704	20800	
==>o your
preference.  Presumably the messages in these files are looked up by the
program using key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20704	20800	
==>o your
preference.  Presumably the messages in these files are looked up by the
program using key <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	954	1138	
==>ethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0 <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	954	1138	
==>ethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19710	19806	
==>a non-programmer to edit.
But the current Perl-based solution will also be kept due to its more
d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19710	19806	
==>a non-programmer to edit.
But the current Perl-based solution will also be kept due to its more
d <==
2	/Users/nnunley/pugs/ext/DateTime/t/Data.pm	9	112	
==>@*MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

@*LeapYearMonthLengths = @*Mon <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9193	9289	
==>de = (
	# int -> int -> int
	add => type::operator::arrow->new(
		type::operator::nullary->new("i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9187	9320	
==>lf->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11502	11635	
==>lf->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2944	3049	
==>ugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($EN <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2944	3049	
==>ugs --external $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($EN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1258	1366	
==>hat have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1258	1366	
==>hat have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our pr <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3852	3947	
==>o Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.har <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3852	3947	
==>o Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.har <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3328	3429	
==>ail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ], <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27931	28026	
==>($map), "∀α. ∀β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), "l <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2021	2122	
==>rl5'   { Pugs::Internals::eval_perl5($code) };
            when 'haskell' { Pugs::Internals::eval_hask <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1334	1436	
==>set($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1334	1436	
==>set($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_superset($two);
#}
#multi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	282	404	
==>(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	282	404	
==>(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9268	9436	
==>outine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9268	9436	
==>outine_body', undef, [
                [ 'create_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10012	10117	
==>.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be a Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10012	10117	
==>.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The argument can be a Set: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	380	491	
==>vial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	380	491	
==>vial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revis <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5125	5239	
==>support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5183	5297	
==>support multisubs correctly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6302	6431	
==>safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	650	761	
==>cription ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	650	761	
==>cription ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6277	6398	
==>$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6277	6398	
==>$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	823	938	
==>map { (($_->is_empty == $bit::FALSE) ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3205	3314	
==>=> "\e", '\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12820	12916	
==>=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=hea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12820	12916	
==>=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=hea <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5992	6119	
==>current->{env}->{$name}) {
            $current->{env}->{$name}->store($value);
            return;
        }
        $current = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	736	855	
==>ft;
    my $val = shift;

    my $pad = Blondie::Reducer::DynamicScoping::Pad->new(
        name => $name,
        val = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17077	17181	
==>tion is written in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and you <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17077	17181	
==>tion is written in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and you <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6267	6375	
==>ll get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6267	6375	
==>ll get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $mes <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7358	7450	
==>>generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_thunk <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	880	1009	
==>}
    %terms
}

sub addtolist ($x){
    " $x,";    
}

sub append_last ($x,$string is rw,$pass){
    if $pass > 2 {
        chop $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14246	14364	
==>>leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1726	1844	
==>>leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7823	7918	
==>h @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1648	1743	
==>h @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2486	2605	
==>{ UNIVERSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVER <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2820	2950	
==>quired";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3284	3414	
==>quired";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18344	18436	
==>ppropriate measures
such as system-managed locks so that resource corruption or application
f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18344	18436	
==>ppropriate measures
such as system-managed locks so that resource corruption or application
f <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	697	800	
==>rray { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	697	800	
==>rray { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2909	3065	
==>->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2909	3065	
==>->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2400	2496	
==>le of others I don't remember at the moment but should be mentioned...

package BacktrackDev;
=po <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21676	21779	
==>using your package.  One
can override simply by using the same key code with a new user message in
one o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21676	21779	
==>using your package.  One
can override simply by using the same key code with a new user message in
one o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3709	3803	
==>THOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Dunca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3709	3803	
==>THOR

Stevan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Dunca <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21938	22046	
==>no
more than a single tuple.  A zero-attribute Relation with zero tuples or
one tuple respectively have a spe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26490	26598	
==>no
more than a single tuple.  A zero-attribute Relation with zero tuples or
one tuple respectively have a spe <==
2	/Users/nnunley/pugs/util/claim_drift.pl	1067	1206	
==>do { 1 == unlink  $orig        or die "unlink: $!" }  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15204	15335	
==>o \digit works forever. */

  I32 *startp;
  I32 *endp;

for $n (eg $1 => n=1), 1<=n<=nparens,
startp[n] is the starting offset in s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12597	12712	
==>ORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12597	12712	
==>ORK PHASE ###

    # Actually connect to the database / talk to the underlying dbms;
    # if database doesn't exist <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12934	13066	
==>Perl5::RuleInit;\n".
                "    my \$final_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1159	1255	
==>ld... " if $Config{verbose};
    unlink "blib6/lib/Prelude.pm.yml";
    unlink "blib6/lib/Prelude <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4019	4135	
==>tax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4236	4352	
==>tax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	591	716	
==>',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, g <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	591	716	
==>',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, g <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7275	7401	
==>ONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7275	7401	
==>ONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1139	1248	
==>y($o)=@_;
    my $os = "$o";
    $os = $o->_indent_except_top($os) if $os =~ /\n/;
    my $s = overload::StrVa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6572	6674	
==>") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2276	2437	
==>e;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2276	2437	
==>e;
    },
    conform => -> Num $n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6995	7101	
==>' directive is reached. This does not include 
the text of the header, that will be processed as a interpol <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6995	7101	
==>' directive is reached. This does not include 
the text of the header, that will be processed as a interpol <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2118	2231	
==>{
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2118	2231	
==>{
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9672	9779	
==>y @nodes = readdir(DIR);
    foreach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|src) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27863	27960	
==>ash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
elements, which <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5620	5728	
==>polation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5620	5728	
==>polation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2549	2665	
==>Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2549	2665	
==>Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2186	2310	
==>eter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2326	2450	
==>eter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2249	2390	
==>y $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2249	2390	
==>y $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12534	12879	
==>age);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12534	12879	
==>age);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to us <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24916	25162	
==>, sub {
                                  my $e = shift;
                                  $e->get('$_')->send('add_subclass' => $e->get('$self:'));
                              })
                          );
                          $e->get('$ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12242	12333	
==>ame=ok></span>,</td>
	      <td class="num tests_failed"><span title="<tmpl_var name=failed> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	142	250	
==>6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	142	250	
==>6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3702	3850	
==>sure->do(list->new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure->isa('block')) {
            my $ref = refer <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10617	10732	
==>=> $file);
  my $output = ""; 
  
  while (my $rest = <$infile>) {
    chomp $rest;
    $output .= "<a name='line_$. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2394	2506	
==>subdir('build');
$config{'build_dir'}        = [ Path::Class::dir('root-') ];

### package files/extensions
$conf <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5001	5133	
==>educe  safe   (Code, List)\
\\n   List      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: Code)\
\\n <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14650	14747	
==>ave
been iterated.

The lvalue form of C<keys> is not longer supported. Use the C<.buckets>
proper <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6639	6734	
==>dd siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6639	6734	
==>dd siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8410	8556	
==>q 'if'     || 
         $n->{op1}{stmt} eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3943	4093	
==>mmar::Term->parse( $match, { p => 1 } );
            last if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecognize <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	811	902	
==>onse_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Var <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	811	902	
==>onse_headers = <
 Accept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Var <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13825	13944	
==>sconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13825	13944	
==>sconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2155	2276	
==>.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2155	2276	
==>.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for ba <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8281	8416	
==>}
        my %results = $Strap->analyze_file($tfile) or
          do { warn $Strap->{error}, "\n";  next };

        # state of the curr <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2629	2729	
==>alternate implementation:
#multi method Array::pop (@array is rw : --> Scalar) {
#    @array.splice(- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	14	279	
==>s
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	14	279	
==>s
use v6;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2586	2718	
==>t
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2586	2718	
==>t
    "egrave"   => 'è',  # small e, grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6327	6527	
==>= $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6327	6527	
==>= $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15208	15320	
==>rd_gz and -M $iso <= -M "$cdroot/boot/grub/menu.lst" },
  using  => sub {
    system
      "mkisofs",
      "-R", <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2341	2447	
==>ages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of eve <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2889	2995	
==>ages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of eve <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	618	780	
==>ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPOSITORY, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3147	3282	
==>{
            my ($self, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        },
        'has_meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6176	6356	
==>_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6176	6356	
==>_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4527	4638	
==>.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0] <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4527	4638	
==>.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14912	15080	
==>e rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14906	15074	
==>e rule
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cmd> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10943	11066	
==>$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10937	11060	
==>$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $p <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1488	1633	
==>on = Duration::Gregorian.new
                ( :start($start), :end($end) );
        }
    } else {
        !!!
    }

=cut


    return $duration <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2467	2599	
==>) {
        my $j = rand $i--;
        @_[$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-file. FIXME: use a real temp file?
sub em <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	699	806	
==>ILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	699	806	
==>ILD (Int|Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4348	4500	
==>Regex->compile( q(
            { 
                return { die => "not implemented" } 
            }
        ) ),
        Inf => Pugs::Compiler::Regex->c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7291	7391	
==>ment ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('beg <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7291	7391	
==>ment ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('beg <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3375	3504	
==>parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3375	3504	
==>parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15076	15181	
==>nce to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set are considered
" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15076	15181	
==>nce to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set are considered
" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3229	3321	
==>s/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3115	3204	
==>s/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	580	717	
==>be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	580	717	
==>be one past the
                     last character matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	541	639	
==>($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	541	639	
==>($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6868	6956	
==>e => 'util/catalog_tmpl/error.tmpl');
$template->param(unresolved => \@unresolved);
print <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	84	231	
==>s Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	84	231	
==>s Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2170	2291	
==>tching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2230	2351	
==>tching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13951	14104	
==>y {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enque <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13951	14104	
==>y {
        ./:enqueue("JOIN $channel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enque <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	429	521	
==>ed or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Switch condition not recognized' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	60	165	
==>the experimental implementation of p6-regex parser

#

# see: README





# XXX - rename the system gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	58	158	
==>the experimental implementation of p6-regex parser
#
# see: README


# XXX - rename the system gramma <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2653	2764	
==>ese methods must be implemented by subclasses... though a default
implementation exists, too.

=over

=item B<so <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2653	2764	
==>ese methods must be implemented by subclasses... though a default
implementation exists, too.

=over

=item B<so <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4169	4288	
==>oop";
    };
    #goto &$step; # $Z::oop{$id} contents dont make it to $step (v5.8.5)?!?
    return &$step;
  };
}

my @ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25443	25526	
==>,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3516	3618	
==>constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Enviro <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3516	3618	
==>constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Enviro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6484	6578	
==>().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6484	6578	
==>().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.i <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9085	9219	
==>he CD later.
HELP

  step
    descr  => "Creating an empty \"$initrd_img\"",
    ensure => sub { -r $initrd_img and -s $initrd_img == 1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14135	14232	
==>tives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->wri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1556	1656	
==>se Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1556	1656	
==>se Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = Pugs::Grammar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	439	539	
==>l - the base native nil type

=head1 METHODS

=over 4

=item B<new (*native*) returns nil>

=item B<t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	611	707	
==>order to implement <after>.

- Captures need an internal 'counter', see the ratchet version for <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1106	1197	
==>ng " . $node->struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self->has_s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12286	12396	
==>([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12286	12396	
==>([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7669	7815	
==>l', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7669	7815	
==>l', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2741	2842	
==>egexp::Parser::space;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22778	22874	
==>ose I've already
found. Those who find bugs should email me.  Messages should include the
code yo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18063	18204	
==>}
        my $arg;
        if $specifier ne '%' {
            die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = @ar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10765	10865	
==>if($kind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class undefined") if !defi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4916	5039	
==>/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_enc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4916	5039	
==>/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_enc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40313	40413	
==>e Your::SubClass;
  # use constant NAME => VALUE, FMTSTRING
  use constant err_FOOBAR => 1, 'You brok <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9227	9341	
==>($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11542	11656	
==>($self) = @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8164	8304	
==>= 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8357	8497	
==>= 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11087	11185	
==>sion of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11087	11185	
==>sion of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Nod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21332	21428	
==>ent
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21332	21428	
==>ent
SQL or pseudo-SQL dialect.  An application written to it should easily port
to alternative re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17475	17610	
==>w(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17475	17610	
==>w(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22522	22688	
==>(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42311	42476	
==>(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1185	1276	
==>til::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1185	1276	
==>til::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	1	254	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	1	254	
==>!/usr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	348	448	
==>itdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	348	448	
==>itdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	804	934	
==>l5 = 
        "use Pugs::Runtime::Perl6;\n" . 
        "use strict;\n" . 
        "no warnings 'void';\n" .   # t/07-try.t, t/07-re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4167	4296	
==>003 
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREW <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	787	913	
==>sect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	787	913	
==>sect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    } <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7179	7517	
==>ic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7236	7574	
==>ic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1623	1721	
==>int "*** Building the '$module' dependency.  Please wait...\n\n";

        system("../../Setup$Conf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	848	995	
==>} else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	848	995	
==>} else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1387	1489	
==>_half_down: symmetrical => $^b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20627	20722	
==>ers.pm>.  That file might end up being where
documentation on writing handlers goes.

The docume <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	29	149	
==>line;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	29	149	
==>line;

# - fglock
#
use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10340	10532	
==>} ) . ')' . 
                " {\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1810	1911	
==>F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1::CodeCom <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4404	4515	
==>k to the config file, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not su <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4404	4515	
==>k to the config file, any comments are discarded.

=head1 METHODS

Since the current version of Pugs does not su <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4449	4555	
==>dex[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@stri <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4449	4555	
==>dex[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@stri <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2032	2208	
==>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2032	2208	
==>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	268	384	
==>ead1 SYNOPSIS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 DESCRI <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1825	1932	
==>vocant => $invocant,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22430	22531	
==>an")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22430	22531	
==>an")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7057	7187	
==>_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTE <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7057	7187	
==>_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTE <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	186	322	
==>cket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	186	322	
==>cket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16962	17062	
==>ther|fort/  => /f(?:o(?:o|rt)|ather)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	901	997	
==>ary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	901	997	
==>ary WWW-Authenticate
>;

my @entity_headers = <
 Allow Content-Encoding Content-Language Content- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11673	11793	
==>!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11673	11793	
==>!_die_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24449	24611	
==>lsewhere.

 * regmust      string (pointer into program) that match must include, or NULL
 *  [regmust changed to SV* for bminstr()--law]

Confined to regcomp/rege <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6145	6273	
==>d: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5653	5781	
==>d: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8569	8675	
==>he name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6103	6208	
==>he name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1082	1213	
==>ethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     to <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1082	1213	
==>ethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $meth = 'today }
#                     to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	105	219	
==>method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	105	219	
==>method empty_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6911	7029	
==>_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6911	7029	
==>_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18240	18352	
==>}  < $totals->{seen};
};

sub test_handler {
    my($self, $line, $type, $totals) = @_;

    my $curr = $totals-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26552	26655	
==>lassAtom> <'-'> <ClassAtom> <ClassRanges>
}
rule NonemptyClassRangesNoDash {  # see 15.10.1
      <Class <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1126	1245	
==>xport(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFA <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1126	1245	
==>xport(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFA <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1233	1341	
==>l be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctio <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1233	1341	
==>l be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27085	27186	
==>OT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EX <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27085	27186	
==>OT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EX <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20133	20323	
==>"
                         . ($tot->{sub_skipped} != 1 ? 's' : '');
        }
        $bonusmsg .= ' skipped';
    }
    elsif ($tot->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8934	9058	
==>'|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $self->raw, map join("", map $_->qr, @$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12520	12614	
==>ia reverse
  engineering (almost completely undocumented source), in the presence
  of copy-on- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8035	8130	
==>est_on_object',
   '... got the right return value from another Object singleton/class method ca <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10604	10699	
==>est_on_object',
   '... got the right return value from another Object singleton/class method ca <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1706	1808	
==>ion of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1706	1808	
==>ion of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, you can have a look at the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7348	7483	
==>ram );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7336	7471	
==>ram );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3229	3375	
==>req {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        w <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	119	220	
==>rse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	119	220	
==>rse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9710	9815	
==>bble up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_heigh <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9710	9815	
==>bble up through the parents 
    # in order to rectify any issues with height
    $self.parent().fix_heigh <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2448	2570	
==>tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2448	2570	
==>tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3036	3178	
==>r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3036	3178	
==>r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5381	5503	
==>ata, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11036	11158	
==>ata, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[ <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	848	938	
==>homp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	848	938	
==>homp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7247	7375	
==>eierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7247	7375	
==>eierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2511	2670	
==>ven $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2511	2670	
==>ven $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	663	803	
==>))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	663	803	
==>))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2192	2316	
==>nAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2192	2316	
==>nAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	431	553	
==>ad $Metafile";

    my $path    = $struct->{package};
    
    ### create a buildroot
    my $builddir    = $Build_prefix . <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24509	24617	
==>", "pretty print a -> b where a = b");
}
{
	my $type = type::operator::arrow->new(
		type::operator::arrow->n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13993	14091	
==>outine is called once for each value.  The field name passed to the
callback routine has case as su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13993	14091	
==>outine is called once for each value.  The field name passed to the
callback routine has case as su <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3562	3687	
==>ler[4],
        sub     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war about whether <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2508	2605	
==>turn "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2508	2605	
==>turn "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4914	5032	
==>le for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4914	5032	
==>le for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9954	10081	
==>nt/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "etc/terminfo/l";
  step
    d <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12091	12185	
==>f C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12091	12185	
==>f C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=he <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4890	4994	
==>icks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4890	4994	
==>icks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1120	1228	
==>[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1120	1228	
==>[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _bo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18959	19055	
==>setting the referrer, this method removes the fragment from the
given URI if it is present, as ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18959	19055	
==>setting the referrer, this method removes the fragment from the
given URI if it is present, as ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3041	3146	
==>ng.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expect <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3041	3146	
==>ng.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expect <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18285	18398	
==>=> val(10),
	),
);

# this expr is like the following haskell:
# let id x = x
# in id ((id 3), (id "foo"))
# and b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2651	2758	
==>eq "PV") {
		return "$node";
	} else {
		die "can't perform runtime cast of ($node)::$from to $to";
	}
}

__ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	590	695	
==>ue;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Lo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	590	695	
==>ue;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Lo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11374	11523	
==>vious () {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11374	11523	
==>vious () {
        if defined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5028	5141	
==>on, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5086	5199	
==>on, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support multisubs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2318	2455	
==>atch->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2244	2373	
==>atch->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can N <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12985	13083	
==>e to get the next value.
The unit specifier is also used internally when joining two spans, and whe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12985	13083	
==>e to get the next value.
The unit specifier is also used internally when joining two spans, and whe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	199	317	
==>urce dir';

for my $srcdir (@ARGV ) {
    
    ### copy all the relevant files to the repo
    for my $archive ( qx[fin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18691	18786	
==>e 11.13
      <ConditionalExpression>
    | <LeftHandSideExpression> <AssignmentOperator> <Assig <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1019	1116	
==>PU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
ag <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1019	1116	
==>PU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
ag <==
2	/Users/nnunley/pugs/util/importgraph.pl	990	1103	
==>} elsif (/^import|^module/) {
      warn "Unrecognised import|module: $_";
    }
  }

  close $fh;

  unless (defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1273	1378	
==>e_name> . " = Pugs::Compiler::Rule->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*token = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	965	1086	
==>nt STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microop <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3349	3478	
==>t_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3349	3478	
==>t_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	264	403	
==>:Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	262	401	
==>:Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3564	3671	
==>take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorit <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3564	3671	
==>take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorit <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3813	4000	
==>\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unle <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3813	4000	
==>\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unle <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2222	2328	
==>nfinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2222	2328	
==>nfinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19970	20083	
==>p6);
}


my %macros;
sub p6_macrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1031	1144	
==>$val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $index->isa('num'))
        || c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14840	14935	
==>lues will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14840	14935	
==>lues will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6585	6744	
==>}
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term.cpan_barewo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24567	24665	
==>arse flags, but if
you do, remember to follow this model correctly.

=item next

An array reference <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2897	3036	
==>basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = j <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2897	3036	
==>basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = j <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1604	1729	
==>$self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->e <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1604	1729	
==>$self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->e <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1474	1600	
==>$obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1474	1600	
==>$obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11451	11563	
==>lf: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A go <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11451	11563	
==>lf: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A go <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1676	1811	
==>or a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1676	1811	
==>or a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if w <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2321	2426	
==>RCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSITEARCH => $libs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9246	9344	
==>ace of Rosetta::Model is entirely object-oriented; you use it by
creating objects from its member c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9246	9344	
==>ace of Rosetta::Model is entirely object-oriented; you use it by
creating objects from its member c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8000	8097	
==>eached, the next event fired will be
any text which follows the item.

=item I<end_element ('item' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8000	8097	
==>eached, the next event fired will be
any text which follows the item.

=item I<end_element ('item' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	437	548	
==>ses don't
# accidentally override things they didn't intend to.

# Determine which stack frame points to the cod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	437	548	
==>ses don't
# accidentally override things they didn't intend to.

# Determine which stack frame points to the cod <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10741	10840	
==>ator::arrow->new(
			$a,
			type::operator::arrow->new(
				$b,
				type::operator::pair->new( $a, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3307	3441	
==>a eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3307	3441	
==>a eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8249	8469	
==>depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8713	8933	
==>depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15685	15787	
==>other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19162	19264	
==>other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2923	3036	
==>tree);
	    my $failed = !defined $p5;
	    $warn = "Pil to p5 compile failed: $warn\n" if $warn;
	    $self->{'p5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11451	11558	
==>$S->object(open => $S->{nparen});
  });

  # any character
  $self->add_handler('.' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23740	23838	
==>der, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23740	23838	
==>der, or not used at all, or
used multiple times.  Locale::KeyedText is generally a simpler solution <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11895	12005	
==>5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11895	12005	
==>5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2571	2789	
==>[ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2818	3036	
==>[ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_term <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4075	4174	
==>es ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4075	4174	
==>es ::= &Set::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Se <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1568	1690	
==>tils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and Ext <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1479	1583	
==>tils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and Ext <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3101	3207	
==>formation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3101	3207	
==>formation.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18986	19083	
==>rresponds to the
"relation" of logic and mathematics and philosophy ("a predicate ranging
over mor <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22636	22733	
==>rresponds to the "relation" of logic
and mathematics and philosophy ("a predicate ranging over mor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7083	7183	
==>::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7083	7183	
==>::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?S <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23278	23403	
==>e("xs"),
			),
			then => ide("nil"),
			else => comb(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4452	4551	
==>thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unifying paramter types with th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6140	6273	
==>__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6140	6273	
==>__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6111	6217	
==>(aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6111	6217	
==>(aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2702	2820	
==>claim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2760	2878	
==>claim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non- <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2954	3077	
==>r {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2954	3077	
==>r {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1344	1493	
==>((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1344	1493	
==>((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24352	24450	
==>ng.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28904	29002	
==>ng.

=back

A Relation object has these methods:

=over

=item C<export_as_hash () returns Hash>

T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3487	3588	
==><+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3671	3772	
==><+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20881	20992	
==>::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20881	20992	
==>::Install::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5630	5746	
==>urns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5630	5746	
==>urns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6161	6278	
==>ch = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6161	6278	
==>ch = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8456	8570	
==>= -M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	278	380	
==>sa($self: Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15538	15654	
==>000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15538	15654	
==>000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15184	15295	
==>eason})  = $control ? $control =~ /^\s*(\S+)(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1931	2032	
==>confess "Args must be a list";
    my $params = $self->{sig}->params;
    ($args->length()->less_than_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	483	590	
==>file_macros
      if $install_version eq '6';

    $self->WriteAll(@_);

    $self->pugs_fix_makefile;
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13339	13478	
==>prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13339	13478	
==>prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1601	1725	
==>, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1601	1725	
==>, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö' <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	116	228	
==>tr $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	116	228	
==>tr $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	826	919	
==>L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	826	919	
==>L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document de <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10514	10620	
==>has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "continuous", this method em <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10514	10620	
==>has `next()`, `previous()`, `current()`, and `reset()` methods.

If the set is "continuous", this method em <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16864	16962	
==>ortability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally; it exist <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16864	16962	
==>ortability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internally; it exist <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9692	9800	
==>@array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9692	9800	
==>@array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2025	2139	
==>Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2025	2139	
==>Class designed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9293	9450	
==>ew(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6820	6934	
==>$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6820	6934	
==>$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9768	9882	
==>self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9768	9882	
==>self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2555	2658	
==>eturn $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2555	2658	
==>eturn $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    re <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6274	6454	
==>) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5782	5962	
==>) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	802	949	
==>char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ". <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	802	949	
==>char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ". <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	194	295	
==>der_field_names scan
    date expires if_modified_since if_unmodified_since last_modified
    content_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	194	295	
==>der_field_names scan
    date expires if_modified_since if_unmodified_since last_modified
    content_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15616	15728	
==>Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15616	15728	
==>Str $channel, Str $nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	179	284	
==>new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	179	284	
==>new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4348	4460	
==>b' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4198	4306	
==>b' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30046	30154	
==>) returns Relation>

This method is a short-hand or alternative for the functionality provided
by the 5 gener <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34598	34706	
==>) returns Relation>

This method is a short-hand or alternative for the functionality provided
by the 5 gener <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	65	251	
==>r,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Te <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	65	251	
==>r,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Te <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1442	1574	
==>"        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1442	1574	
==>"        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5114	5220	
==>$x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5114	5220	
==>$x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.sp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	178	375	
==>t       $Meta       $Site
            $Ext            $Tmpdir     $Metactrl   $Metafile   $Available
            $Builddir       $Bindir     $Data       $Control    $Fileslist
            $Build_pre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4581	4677	
==>, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is pa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4581	4677	
==>, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which is pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	856	989	
==>his page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p> <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	856	989	
==>his page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3098	3214	
==>::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3644	3760	
==>::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Re <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2151	2304	
==>rns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2151	2304	
==>rns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2088	2223	
==>D";
    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to paren <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5021	5120	
==>atpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Jun <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5021	5120	
==>atpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a Jun <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5634	5815	
==>p { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$template->param(updated => localtime() . "") <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2589	2692	
==>elf: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2589	2692	
==>elf: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Array of Tree { @!c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1194	1292	
==>ead1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1194	1292	
==>ead1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $grammar->add_rule(bar => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1572	1725	
==>my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1517	1666	
==>my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12919	13029	
==>etal, or even into the return value.  In that event, it may not
  be possible to get a plausibly scoped alterna <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2821	2925	
==>->to_str->to_native, $arg);
    }
}

package closure::signature;

use strict;
use warnings;

use Carp 'co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5736	5833	
==>ar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5736	5833	
==>ar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	923	1175	
==>ator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	923	1175	
==>ator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to r <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2642	2742	
==>METHODS

These methods must be implemented by subclasses... though a default
implementation exists, t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2642	2742	
==>METHODS

These methods must be implemented by subclasses... though a default
implementation exists, t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2877	2987	
==>Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "intern <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2877	2987	
==>Str $user_text = $translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "intern <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4228	4383	
==>rror($?), return;
        system( qq[tar -czf $archive $control $data] )  and error($?), return;
        
        1 while unlink $data;
        1 while unli <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	469	574	
==>al variables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13950	14051	
==>ring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13950	14051	
==>ring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6137	6243	
==>e($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6137	6243	
==>e($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.conte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7889	8025	
==>a->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($orig, $suspect) = @_;
  my $fail;
  while (my ($key, $value) = each %$s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12511	12617	
==>canidate to_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: send (CREATE ($canidate % <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1866	1992	
==>pare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1866	1992	
==>pare {
    $*IN  := $.remote;
    $*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6858	6975	
==>ODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6858	6975	
==>ODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9814	9909	
==>s a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parameter <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9814	9909	
==>s a new C<HTTP::Headers> object.  You might pass some initial
attribute-value pairs as parameter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	23	163	
==>pl - fglock

#

# native library for the experimental implementation of p6-regex parser

#

# see: README





# XXX - rename the system gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	23	156	
==>pl - fglock
#
# native library for the experimental implementation of p6-regex parser
#
# see: README


# XXX - rename the system gram <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2335	2441	
==>lication allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2335	2441	
==>lication allows, skip over a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1451	1545	
==>ompile-time-bound values for them.

It includes the parameters as well as anything declared wit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1390	1483	
==>ompile-time-bound values for them.
It includes the parameters as well as anything declared wit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28023	28125	
==>nd 
     ($self: set_attr ((symbol new @:MRO) ($self: send (_merge)))) 
    ($self: get_attr (symbol ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14967	15061	
==>le names are merely the author's suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15104	15214	
==>{ enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15104	15214	
==>{ enqueue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15989	16088	
==>f
the document itself.

=item $h.last_modified

This header indicates the date and time at which the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15989	16088	
==>f
the document itself.

=item $h.last_modified

This header indicates the date and time at which the <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	530	635	
==>returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	530	635	
==>returns Str is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	508	755	
==>::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	509	756	
==>::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10988	11112	
==>p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11138	11262	
==>p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $co <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7875	8086	
==>if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 {
        my $pre = "";
        if %mods<i> || %mods<ignorecase> {      
            $pre ~= ":i";
            %mods.delete("i"); # avoi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	307	478	
==>get {
        $_[0]{$_[1]}
    }

    sub fmap {
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(%$self);

        $_ = &$f($_) for valu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8242	8469	
==>ift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method k <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8242	8469	
==>ift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3444	3543	
==>>
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3628	3727	
==>>
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var>
 **{n..m} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3172	3314	
==>er>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3172	3314	
==>er>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	121	255	
==>ues -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)// <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	121	255	
==>ues -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)// <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6968	7107	
==>s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6956	7095	
==>s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3508	3609	
==>"parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3508	3609	
==>"parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18344	18511	
==>natural_join ::= &join;

###########################################################################

my method _union (Relation::Example $other!) returns Relation::Exa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	56	181	
==>uire '_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4336	4509	
==>the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4336	4509	
==>the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else {
                # Each time around the mat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	705	809	
==>e of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	705	809	
==>e of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2656	2754	
==>h encryptions.

If two different data streams are enciphered with the same key, the encryption 
can <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2656	2754	
==>h encryptions.

If two different data streams are enciphered with the same key, the encryption 
can <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1619	1775	
==>y = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::De <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1619	1775	
==>y = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::De <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5370	5486	
==>le){
    open my $f, '>', "${srcfile}.p6"
        or "Couldn't open file ${srcfile}.p6 for writing";
    print {$f} $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1139	1265	
==>substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1139	1265	
==>substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    pri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1797	1913	
==>mit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1937	2053	
==>mit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dum <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1214	1340	
==>ODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1251	1378	
==>TP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1251	1378	
==>TP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Co <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	496	981	
==>n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            3 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	496	981	
==>n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1635	1793	
==>am . 
        "        )->( \@_ )\n" .
        "    )\n" .
        "};\n" .
        "";
    # XXX - 'hard' replace $grammar references
    # $source =~ s/\$gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14314	14519	
==>on( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14593	14798	
==>on( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::consta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	259	356	
==>ossible
# bootstrap path for perl6.

# The perl5 regexp engine is unfortunately entangled with the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39956	40052	
==>s two arguments: the character
that was unexpectedly escaped, and a string.  If the warning is ca <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14425	14544	
==>' (if any)
  reason        why is it todo or skip? (if any)

It will also catch lone 'not' lines, note it saw them in
C< <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2754	2876	
==>usMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2754	2876	
==>usMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4346	4444	
==>:L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document describes Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4346	4444	
==>:L::en -
Localization of Locale::KeyedText for English

=head1 VERSION

This document describes Loc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	744	902	
==>e $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	906	1064	
==>e $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45477	45592	
==>:Package->send('add_method' => (
    # method label
        symbol->new('name'),
    # method body
        method->n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1246	1370	
==>s Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1246	1370	
==>s Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	498	607	
==>rule replaces the right side
# note: S06 - 'chain' can't be mixed with other types in the same level
my %rule_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24384	24479	
==>or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you ca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24384	24479	
==>or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you ca <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	113	211	
==>src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	113	211	
==>src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11587	11726	
==>ent == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object repr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11587	11726	
==>ent == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object repr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1655	1779	
==>query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1655	1779	
==>query.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5255	5413	
==>hift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11169	11267	
==>l set" recurrence object.

- `complement()`

Returns everything (from the universal set) that is no <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11169	11267	
==>l set" recurrence object.

- `complement()`

Returns everything (from the universal set) that is no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8181	8312	
==>returns normal data, but this is a low-level op...

    undef - if match failed    



    state - a "next-state" or undef

    bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7905	8032	
==>returns normal data, but this is a low-level op...
    undef - if match failed    

    state - a "next-state" or undef
    bool <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8359	8475	
==>arks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $mar <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8359	8475	
==>arks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $mar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6268	6374	
==>= [ $Role ];
$Role->resolve(); # Role can resolve itself now :)

# Class gets a special case Does
# to avoi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1594	1687	
==>L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1594	1687	
==>L<Pugs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> com <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2154	2250	
==>to,
		struct_equiv => Blondie::App->new(
			Blondie::TypeSafe::Annotation->new(
				type => [$fro <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1121	1239	
==>urn (   $self.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1121	1239	
==>urn (   $self.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2303	2448	
==>annels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2303	2448	
==>annels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1441	1535	
==>alling an accessor).

Run-time inheritance/method dispatch need not look at the meta
objects; e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22197	22288	
==>ovides a minimal in-RAM
storage implementation for the L<Relation> library.

I<TODO: REWRITE <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1670	1797	
==>nt ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1670	1797	
==>nt ($self: ) returns List of Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1619	1744	
==>gify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1619	1744	
==>gify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3761	3859	
==>C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3761	3859	
==>C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13194	13293	
==>ented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13252	13351	
==>ented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	32	144	
==>Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	32	144	
==>Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER:: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2187	2499	
==>od {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2187	2499	
==>od {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	960	1081	
==>' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1856	1975	
==>{
    if $O.property_value.exists($P) {
        my $attr = $O.property_attributes{$P};
        return JSX::false if $att <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	113	529	
==>t)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	113	529	
==>t)

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18560	18658	
==>d you should not share
Rosetta objects between multiple threads, nor have objects in separate
threa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18560	18658	
==>d you should not share
Rosetta objects between multiple threads, nor have objects in separate
threa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	599	711	
==>ensity"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	599	711	
==>ensity"
    * universal_span

  Constructor:
    * constructor :next(&coderef) / :previous(&coderef)
    * from_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	582	688	
==>tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	582	688	
==>tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5230	5358	
==>$tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5230	5358	
==>$tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10768	10882	
==>, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:rea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10768	10882	
==>, wait for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:rea <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	96	208	
==>our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteM <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	96	208	
==>our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteM <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23173	23268	
==>ust be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27725	27820	
==>ust be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1381	1502	
==>d} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1381	1502	
==>d} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3577	3670	
==>rn $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3577	3670	
==>rn $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3485	3645	
==>en: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while (<$ifh>) {
            $module ||= $1 if /^(?:package|module|class) \s+ ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14484	14590	
==>pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14484	14590	
==>pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8592	8700	
==>curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8592	8700	
==>curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normali <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2384	2526	
==>d zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.table{$_} // $_ }, *$data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2384	2526	
==>d zeroize() {
    for %.table.values -> $x is rw {
        $x = 0;
    }
}

method _cipher(Array $data) {
    map { %.table{$_} // $_ }, *$data <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7355	7462	
==>sity if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :den <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7355	7462	
==>sity if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :den <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13077	13199	
==>epresentation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13077	13199	
==>epresentation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

R <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3932	4044	
==>/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3932	4044	
==>/././xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5207	5342	
==>- simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $resu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5207	5342	
==>- simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $resu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5087	5189	
==>ncoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encod <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5087	5189	
==>ncoding and decoding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2002	2253	
==>a::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2002	2253	
==>a::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packages used by the R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1632	1753	
==>{
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1632	1753	
==>{
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single capture
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12893	13078	
==>_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' ta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12893	13078	
==>_EXIST') {
            $conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' ta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19547	19661	
==>$bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-// <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15968	16082	
==>$bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-// <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7563	7683	
==>raverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.tra <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7563	7683	
==>raverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.tra <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2799	2931	
==>elf, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2799	2931	
==>elf, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_op <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19429	19526	
==>endp;

Length is nparens+1.
startp[n] is the starting offset in subbeg,
endp[n] is the offset of t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2801	2919	
==>f $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2801	2919	
==>f $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $se <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2442	2573	
==>my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-file. FIXME: us <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12131	12233	
==>a are exhausted when comparing two elements, sort should
return them in the same relative order they ha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7959	8083	
==>t::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8017	8141	
==>t::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($go <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	543	661	
==>y $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'ref <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	543	661	
==>y $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'ref <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13952	14071	
==>edoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13952	14071	
==>edoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $re <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	435	552	
==>tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	435	552	
==>tree, $test) { (($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $t <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1024	1116	
==>uild configuration:\n" . PugsBuild::Config->pretty_print;

    my ($version, $ghc, $ghc_versi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	308	430	
==>_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<OR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	308	430	
==>_PROMPT'
        => q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<OR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6358	6571	
==>ialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6358	6571	
==>ialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16054	16149	
==>> documentation file).  Note that the Rosetta
documentation will be focusing mainly on how Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16054	16149	
==>> documentation file).  Note that the Rosetta
documentation will be focusing mainly on how Roset <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4000	4099	
==>et.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_previous <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4000	4099	
==>et.complement_next, -1 ),
        complement_previous => $self._get_union( $self.complement_previous <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14231	14327	
==>]

It would not make sense to iterate through a continuous span, because the "separation" 
betwee <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14231	14327	
==>]

It would not make sense to iterate through a continuous span, because the "separation" 
betwee <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27964	28071	
==>u create isn't
a modification of a standard object, no warnings will be issued.

=head2 The F<__object__> Ba <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12687	12790	
==>List> <','> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpre <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22287	22419	
==>ts[-1] = $space."_".$parts[-1];
	$mn = join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1759	1853	
==>tr($X::str,$from,$to-$from);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7788	8013	
==>}
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clon <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7788	8013	
==>}
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clon <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4038	4147	
==>iverse, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4038	4147	
==>iverse, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19686	19817	
==>1).


rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- C \= 10, !. %\n
rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- flag_s(E0), !.
%#r <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	13	121	
==>text: '?' liefert true oder false
my $var = 0;
say "ist 0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3685	3841	
==>en;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3685	3841	
==>en;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2324	2422	
==>ite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2324	2422	
==>ite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13475	13659	
==>p::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13754	13938	
==>p::capture( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27273	27367	
==>tr) of Any :$body?)>

This method creates and returns a new Relation::Example object, whose Hea <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2194	2294	
==>d2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2194	2294	
==>d2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18606	18730	
==>f( !ref $object ) {
        $diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVERSAL::isa bec <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4019	4121	
==>my $rval = $val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		Blondie::TypeSafe::Anno <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1747	1856	
==>) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1747	1856	
==>) is rw {
  return Proxy.new(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($fie <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	962	1063	
==>q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	962	1063	
==>q[ but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>() <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	357	476	
==>y Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot { <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	357	476	
==>y Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31063	31161	
==>n,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a generic r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35613	35711	
==>n,
respectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a generic r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	184	310	
==>LF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	184	310	
==>LF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.k <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9183	9280	
==>atements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3008	3105	
==>atements, sub { Grammar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_stateme <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4553	4686	
==>{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cach <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4553	4686	
==>{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cach <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8204	8341	
==>.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8204	8341	
==>.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3990	4128	
==>$1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3990	4128	
==>$1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ / <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18864	18971	
==>t C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18864	18971	
==>t C<package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3024	3154	
==>$self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3571	3701	
==>$self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1006	1123	
==>= check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessors( qw[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	816	933	
==>= check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessors( qw[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	648	755	
==>hod('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# tr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	648	755	
==>hod('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13257	13404	
==>} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13257	13404	
==>} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	758	861	
==>unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	846	949	
==>unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::gram <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	197	305	
==>ker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	197	305	
==>ker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to matc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2772	2871	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2772	2871	
==>y %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::K <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2738	2879	
==>f: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $ar <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2738	2879	
==>f: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $self: ) { 
        my $ret = $ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4851	5064	
==>mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours ac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4851	5064	
==>mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours ac <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7798	7908	
==>di(I))          --> "(", digits_int(I1), ")", {I is I1 - 1}.

p5_modifier_scope(M,modify(M))         --> ")", ! <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	96	196	
==>er berüchtigte Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht dann <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9578	9682	
==>9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9578	9682	
==>9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13322	13430	
==>object => sub { $_[0]->as_perl5_str },
     );
sub p6_as_str {
    my($x)=@_;
    my $reftyp = ref_flavor($x) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	95	197	
==>ese
# actually belong on "Map"

 multi sub grep (Any|Junction $test ; *@values) returns List {
   gathe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10286	10386	
==>ts are provided and that they are of the correct
container type (eg, hash vs array).  The deferred va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10286	10386	
==>ts are provided and that they are of the correct
container type (eg, hash vs array).  The deferred va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	401	512	
==>constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5353	5591	
==>ASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5353	5591	
==>ASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4910	5023	
==>grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5103	5216	
==>grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	82	246	
==>export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	82	246	
==>export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5677	5765	
==>sers>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5677	5765	
==>sers>{$event<from_nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normaliz <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13073	13202	
==>num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6548	6677	
==>num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1456	1561	
==>class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1456	1561	
==>class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for @fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24257	24434	
==>erm1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24536	24713	
==>erm1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17602	17720	
==>t represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17602	17720	
==>t represents a single active Rosetta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
com <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1606	1718	
==>e());
}

sub divide {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confes <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6267	6371	
==>inc litlen
    goto term_literal_loop
  term_literal_end:
    if litlen < 1 goto term_literal_one
    dec <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5149	5261	
==>S'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5149	5261	
==>S'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	729	838	
==>pe keeps the C<source> property, and adds C<content>,
which is the whitespace to be represented in the normati <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	729	838	
==>pe keeps the C<source> property, and adds C<content>,
which is the whitespace to be represented in the normati <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11348	11448	
==>$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11348	11448	
==>$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C< <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2916	3014	
==>ake sure you combine the key with a nonce or initialization vector, a 
one-time random number.  (It <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2916	3014	
==>ake sure you combine the key with a nonce or initialization vector, a 
one-time random number.  (It <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10064	10246	
==>q $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4850	4985	
==>te::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expir <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4850	4985	
==>te::time2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expir <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17301	17403	
==>$method (WALKMETH (&dispatcher (symbol new BUILD))))
     (while ($method is_not_nil) 
        ($method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10499	10596	
==>as a replacement for '-' in header names.

The header() method accepts multiple ($field => $value) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10499	10596	
==>as a replacement for '-' in header names.

The header() method accepts multiple ($field => $value) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2786	3027	
==>arametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<Rule>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<Jun <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9001	9127	
==>urce code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9001	9127	
==>urce code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35311	35406	
==>erence of actual characters

=head2 quant

Family: quant

Types: star (C<*>), plus (C<+>), curly <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26089	26195	
==>ut even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an addit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26089	26195	
==>ut even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an addit <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	357	493	
==>up started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	357	493	
==>up started.
    $.to           - The place where this subrule/group ended.  C<Medium>
                     represents positions I<between <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6387	6484	
==>nts)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6387	6484	
==>nts)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18241	18337	
==>ard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18241	18337	
==>ard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
request <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1354	1449	
==>title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para", <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1354	1449	
==>title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "para", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2773	2878	
==>work as the

basic interface, and if you'd like to offer more, subclass

it and call it Pugs::Compiler::Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2671	2774	
==>work as the
basic interface, and if you'd like to offer more, subclass
it and call it Pugs::Compiler::Fo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3036	3137	
==>, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_next, $self.complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3036	3137	
==>, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_next, $self.complement <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4452	4578	
==>ype'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4452	4578	
==>ype'   ,'SubType',
  'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1172	1272	
==>te that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Interface <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1172	1272	
==>te that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Interface <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	313	415	
==>s Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI modul <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	313	415	
==>s Str is export { %*ENV<SERVER_PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI modul <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2377	2471	
==>s at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sen <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2377	2471	
==>s at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4734	4855	
==>was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4792	4913	
==>was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4716	4839	
==>=> '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "sc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4716	4839	
==>=> '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "sc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5917	6013	
==>$() ,} }
RULE
*{'sub_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    sub <?p6ws> $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	162	266	
==>e;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15182	15280	
==>r value is always returned.
If the given header did not exist then C<undef> is returned.

Methods t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15182	15280	
==>r value is always returned.
If the given header did not exist then C<undef> is returned.

Methods t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13842	13944	
==>The callback routine
is called with two parameters; the name of the field and a single
value (a string) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13842	13944	
==>The callback routine
is called with two parameters; the name of the field and a single
value (a string) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13570	13705	
==>/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13570	13705	
==>/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7637	7783	
==>sure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7637	7783	
==>sure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2622	2734	
==>ile2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3058	3170	
==>ile2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'file12', <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	10	110	
==>n/p6compiler.pl - fglock
#
# experimental implementation of a p6 compiler
# 

use strict;
use warning <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8748	8879	
==>le_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8748	8879	
==>le_name!) {

    $?SELF!_assert_arg_str( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20894	21004	
==>on use.

Most of the other (near term) third party Engines will likely just map
Rosetta's rigorously defined AP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20894	21004	
==>on use.

Most of the other (near term) third party Engines will likely just map
Rosetta's rigorously defined AP <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	435	691	
==>ISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::CarpLevel = 
                                            $Carp::Carp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3638	3733	
==>This is done by setting C<$match.multidex> to the index where
captures should put themselves.  I <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3638	3733	
==>This is done by setting C<$match.multidex> to the index where
captures should put themselves.  I <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12024	12156	
==>]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12024	12156	
==>]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	306	451	
==>thod parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	306	451	
==>thod parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5118	5260	
==>o handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5118	5260	
==>o handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$d <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1241	1353	
==>I}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_di <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1241	1353	
==>I}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20160	20259	
==>ler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20160	20259	
==>ler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2725	2846	
==>h ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2725	2846	
==>h ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	419	533	
==>not currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	419	533	
==>not currently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16235	16349	
==>return $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bon <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2760	2877	
==>=> 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2760	2877	
==>=> 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # sma <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10387	10490	
==>[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11122	11225	
==>[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6238	6359	
==>eq $expected) {
            unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	unshift@mess, " <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4203	4304	
==>1, and C<< Sym('$x') >> will
be reduced to 10 (as bound by the Param object).

Then the thunk for + wi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19535	19629	
==>>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessari <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19535	19629	
==>>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necessari <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	965	1126	
==>S.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	965	1126	
==>S.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10275	10394	
==>eturn $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10275	10394	
==>eturn $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method current ( $x ) {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3779	3882	
==>tersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3779	3882	
==>tersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4221	4315	
==>, '... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6123	6217	
==>, '... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Class <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25161	25273	
==>'$self:')->set_attr(symbol->new('@:superclasses') => $e->get('?@superclasses')); 
                          # cle <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29921	30019	
==>)

Straps->analyze_file() not taint clean, don't know if it can be

Fix that damned VMS nit.

HARNE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	120	269	
==>::Copy                  ();
use Params::Check               qw[check];
use Log::Message::Simple        qw[:STD];
use Module::Load::Conditional   qw[ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11289	11394	
==>es like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11289	11394	
==>es like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a sin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21935	22033	
==>hat comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21935	22033	
==>hat comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; you use it <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14869	14973	
==>es in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta frame <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14869	14973	
==>es in a very reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta frame <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4677	4788	
==>ue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4677	4788	
==>ue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h 'PI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1852	1956	
==>is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1852	1956	
==>is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.inte <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24286	24366	
==>h_captures(amat(_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),amat([],G) <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6838	6945	
==>d of the line and find no closing match, I should
ignore the opening one. However, this means I should defer <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6838	6945	
==>d of the line and find no closing match, I should
ignore the opening one. However, this means I should defer <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2268	2379	
==>$child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2268	2379	
==>$child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@children) returns Tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1939	2056	
==>ri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1939	2056	
==>ri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15861	16044	
==>1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16140	16323	
==>1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	63	207	
==>q 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	63	207	
==>q 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curd <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	684	811	
==>ello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This modu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	684	811	
==>ello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This modu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1238	1374	
==>-> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1238	1374	
==>-> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7656	7776	
==>thchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7656	7776	
==>thchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4166	4281	
==>content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4166	4281	
==>content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Prox <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9910	10007	
==>add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect met <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9910	10007	
==>add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect met <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1406	1530	
==>ut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1406	1530	
==>ut mark
    "Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12614	12713	
==>d2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.prope <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12614	12713	
==>d2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.prope <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2308	2435	
==>capable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2224	2342	
==>capable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1767	1891	
==>)))    
        || confess "Indecies must be a num type";
    return list->new(
        # make sure to create any nils we nee <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	297	406	
==>Kernel = $self;
  }

  # Internal method which pushes a given $callback to @:events.
  my method enqueue (Code <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22931	23025	
==>ng) are intended to be composed
into separate (and usually third-party) classes, which at the v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2554	2716	
==>ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2565	2727	
==>ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	791	893	
==>es are seldom created using the C<Tree> interface.

Normally, they will be constructed as a series of e <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	791	893	
==>es are seldom created using the C<Tree> interface.

Normally, they will be constructed as a series of e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2581	2734	
==>e on down
{   use strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # the p <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	889	1075	
==>eit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = g <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	889	1075	
==>eit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+<< @b },
                        normal => {
                          my @r = g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16741	16851	
==>ce even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_enc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16741	16851	
==>ce even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_enc <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	889	995	
==>urn ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	889	995	
==>urn ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	132	278	
==>name;
use YAML            qw[LoadFile Dump];

@ARGV or die usage();


for my $arg (@ARGV ) {
    
    my($key,$val) = split ':', $arg;
    die usag <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50457	50585	
==>end('add_method' => (
    # method label
        symbol->new('identifier'),
    # method body
        method->new(
            $: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7067	7207	
==>atch->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7067	7207	
==>atch->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8492	8607	
==>t $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLAS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8492	8607	
==>t $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLAS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	553	702	
==>y.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	553	702	
==>y.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7091	7191	
==>ods' => { foo => sub { 'rFoo::foo' } }
);
ok($rFoo->does('Role'), '... rFoo now does Role');

my $rBa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37061	37159	
==>ypes: minmod (C<?> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Rege <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12465	12629	
==>mc mfrom, mpos
    .local int pos, lastpos
    .local int isrange
    .local string charlist
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4626	4735	
==>les),"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs::Grammar::Category - Engine for Perl 6 <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3185	3294	
==>) {
            # an optimizing lookup for named events stores things in a hash to reduce algorithmic complexi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14833	14930	
==>d => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $fi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14833	14930	
==>d => 2 )`

Creates a span with "integer" semantics.

- `new( :density($day_duration), start => $fi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3168	3277	
==>"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 S <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3168	3277	
==>"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15941	16039	
==>.

For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15941	16039	
==>.

For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $obje <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2540	2666	
==>template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2540	2666	
==>template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	205	305	
==>umper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	205	305	
==>umper;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1117	1213	
==>$got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1175	1271	
==>$got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5093	5255	
==>("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e creat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6855	7017	
==>("?%opts"      <hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e creat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	833	984	
==>ebelief / dir
$Meta           = $Root . '/meta';                  # dir to store metadata
$Metactrl       = $Meta . '/control';               # dir to s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9394	9516	
==>me   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9394	9516	
==>me   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $curhostname },
    servername    => <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3406	3506	
==>Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3406	3506	
==>Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Pe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16768	16867	
==>it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Per <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16768	16867	
==>it with the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Per <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1856	2005	
==>ore the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1856	2005	
==>ore the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23294	23390	
==>chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23294	23390	
==>chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12460	12603	
==>"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12460	12603	
==>"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7851	8022	
==>=> ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule s <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2594	2728	
==>e\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'fi <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3030	3164	
==>e\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line\n3rd line\n" ],
      [ 'fi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7001	7120	
==>);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7001	7120	
==>);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15865	16048	
==>erm1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16144	16327	
==>erm1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3808	3988	
==>ck     
        { $_[2]{trait} = $_[1]{trait}; $_[0]->{out}= $_[2] }
    ;
    
exp: 
      NUM                 
        { $_[0]->{out}= $_[1] }

    | '@' '(' exp ')' 
        { $_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	907	1016	
==>nfig::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	837	934	
==>nfig::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]);
		retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2369	2463	
==>rns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2369	2463	
==>rns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8616	8713	
==>ns => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8616	8713	
==>ns => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5414	5531	
==>re C<glob()> doesn't work right.

=cut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    close <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	160	252	
==>::Util qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
use Blondie::TypeSafe;

sub new { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38220	38316	
==>mplate text string in
its positional parameter $text (a string), and a Message Variables hash ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38220	38316	
==>mplate text string in
its positional parameter $text (a string), and a Message Variables hash ref <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	771	870	
==>t is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice ac <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	771	870	
==>t is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice ac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4358	4461	
==>{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_->qr, @$rx <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1159	1284	
==>we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unsh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	719	844	
==>we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unsh <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2679	2778	
==>make it work automagically for platforms is really bad. I 
hope that as Pugs matures this will chang <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2679	2778	
==>make it work automagically for platforms is really bad. I 
hope that as Pugs matures this will chang <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8981	9094	
==>classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT and -SEGMENT since that in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26604	26701	
==>ion's header, in which case it returns the identity-one
Relation or the invocant Relation respecti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31156	31253	
==>ion's header, in which case it returns the identity-one
Relation or the invocant Relation respecti <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2954	3079	
==>rnal $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2954	3079	
==>rnal $module_name $module_path > $module_name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2060	2173	
==>complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2060	2173	
==>complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29050	29232	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29329	29511	
==>mar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	373	526	
==>Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	373	526	
==>Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7676	7821	
==>name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'U <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7676	7821	
==>name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'name' => 'primary' ,
                    'index_type' => 'U <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9835	9952	
==>_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9835	9952	
==>_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13871	13962	
==>"0o"
octdigits([D|T]) --> octdigit(D), octdigits(T), !.
octdigits([])    --> [].
octdigit(D) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10099	10236	
==>ear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10099	10236	
==>ear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4969	5074	
==>eturns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4969	5074	
==>eturns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7462	7577	
==>eturn $o->mk_eater_for_re('\D') if $re eq '\D';
    die "Regexp compilation bug";
  }
}
{
  package Regexp::Parser:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21489	21585	
==>es, but another package or program which uses yours may wish to
override some of your messages, s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21489	21585	
==>es, but another package or program which uses yours may wish to
override some of your messages, s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29791	29900	
==>rn %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29791	29900	
==>rn %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisti <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13740	13848	
==>array_complain->("numeric") },
      non_numeric => sub { $as_array_complain->("non_numeric") },
      scalar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3638	3743	
==>P0, "PGE::Exp::WS"
    $P0 = getclass "PGE::Exp"
    $P1 = subclass $P0, "PGE::Exp::Alias"

    $I0 = find <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5403	5580	
==>already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is pa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5867	6044	
==>already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9638	9735	
==>ariables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The foll <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9638	9735	
==>ariables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The foll <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1320	1423	
==>0 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1320	1423	
==>0 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	452	615	
==>(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	452	615	
==>(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$unsafe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23826	23954	
==>/
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is anoth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29014	29120	
==>/
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is anoth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13006	13107	
==>ol`

These functions both take blocks of code, run the code, and test whether they live or die.

=== A <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13064	13165	
==>ol`

These functions both take blocks of code, run the code, and test whether they live or die.

=== A <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10701	10815	
==>EADME">smokeserv's
    README</a> for details.
  </p>

  <p>
    Note that old smoke reports are automatically dele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1445	1560	
==>aluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1202	1317	
==>aluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAME 

P <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1893	2063	
==>ool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1893	2063	
==>ool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	185	293	
==>bstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	185	293	
==>bstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2549	2643	
==>ist, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Contain <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2549	2643	
==>ist, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Contain <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2661	2777	
==>eudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2661	2777	
==>eudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./who($curnick);
      d <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2989	3153	
==>),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('& <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4253	4417	
==>),
            Param->new('$y'),
            App->new(
                Sym->new('&control_structure:<if>'),
                App->new(
                    Sym->new('& <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14982	15081	
==>live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14982	15081	
==>live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1161	1249	
==>de->struct_equiv);

	if ($self->has_symbol($node)){
		return $self->symbolic_representati <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31070	31192	
==>ectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35620	35742	
==>ectively.

=item C<restrict (Code $predicate!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1584	1691	
==>SIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Pl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1584	1691	
==>SIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Pl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	664	782	
==>::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	664	782	
==>::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12392	12508	
==>g on your data, you may need a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12392	12508	
==>g on your data, you may need a "discrete" or a "continuous" span.
This class implements both types of spans.

- Discr <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3671	3776	
==>thm description. See links or read
the source (there are about 10 lines of sparse perl in several subs, tr <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3671	3776	
==>thm description. See links or read
the source (there are about 10 lines of sparse perl in several subs, tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2026	2166	
==>-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2026	2166	
==>-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32605	32697	
==>o convert Message objects on demand into user-readable
message strings, using data from exter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32605	32697	
==>o convert Message objects on demand into user-readable
message strings, using data from exter <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	599	698	
==>interpret a test
  my %results = $strap->analyze($name, \@test_output);
  my %results = $strap->anal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4941	5111	
==>_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4953	5123	
==>_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1956	2051	
==>tags, it will intuit one by extracting the 
last component of the calling function's package nam <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1956	2051	
==>tags, it will intuit one by extracting the 
last component of the calling function's package nam <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1433	1533	
==>our $indent ||= 0;
	local $indent = $indent + 1;

	if (Scalar::Util::blessed($node)) {
		if ($node->i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17293	17387	
==>nchor> and I<assertion>. You can't call
their new() method directly, you can only call it throu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3368	3487	
==>$_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was particularly <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3368	3487	
==>$_) });
    return $rv;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was particularly <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	313	434	
==>m         - The place where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	313	434	
==>m         - The place where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1401	1529	
==>ms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1401	1529	
==>ms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4035	4131	
==>lean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4035	4131	
==>lean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3920	4069	
==>ed);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3920	4069	
==>ed);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1 <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/class.pl	34	136	
==>e v6;

class MeineKlasse {
	method grüße { say "Hallo :-)" }
}

my $var = new MeineKlasse;
$var.grü <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	667	818	
==>ode\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	678	829	
==>ode\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2503	2623	
==>Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2503	2623	
==>Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3333	3455	
==>}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3333	3455	
==>}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5287	5382	
==>. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5287	5382	
==>. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDG <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1806	1938	
==>urns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      t <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1806	1938	
==>urns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2863	2987	
==>=> 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # smal <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2863	2987	
==>=> 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # smal <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20548	20657	
==>NoIn>?
}
rule Initialiser :words {  # see 12.2
      <'='> <AssignmentExpression>
}
rule InitialiserNoIn :word <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	494	604	
==>,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	494	604	
==>,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4630	4726	
==>);
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $selec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4630	4726	
==>);
}

# --------- arithmetic and list operations ----------------

method grep ($set: Code $selec <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22173	22283	
==>s num {
    # speculative syntax here :)
    unbox($self).id
}

(method id ((opaque $self:)) returns num 
    ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1716	1818	
==>$<params>' ) );
    return "$ident->$meth($list)";
}
sub node::meth_call {
    my $ident = get_str( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14693	14804	
==>reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $tar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14693	14804	
==>reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if defined $mode {
      ./:enqueue("MODE $tar <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3428	3529	
==>y appended to it; appending can create precisely the sort of weak 
keying that can be exploited by a c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3428	3529	
==>y appended to it; appending can create precisely the sort of weak 
keying that can be exploited by a c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2696	2809	
==>($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2696	2809	
==>($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9325	9591	
==>lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9325	9591	
==>lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2981	3096	
==>JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Result5.isa(JSX::Valu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19419	19525	
==>e user
sees, you only have to update said separate resource files, and not change
your main program.

I<Not <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19419	19525	
==>e user
sees, you only have to update said separate resource files, and not change
your main program.

I<Not <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8025	8139	
==>pan0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8025	8139	
==>pan0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

method contains ($self: $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6253	6392	
==>};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6253	6392	
==>};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $pro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15335	15434	
==>pected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15393	15492	
==>pected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5774	5877	
==>pty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5774	5877	
==>pty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9902	10004	
==>eturn "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = $namesp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6938	7043	
==>x',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'In <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6938	7043	
==>x',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLine'   ,'In <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31594	31694	
==>which uses both libraries
could have yet another set for itself.  When the program is run, it would
d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31594	31694	
==>which uses both libraries
could have yet another set for itself.  When the program is run, it would
d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9995	10093	
==>ethods for iterating through the set, and for querying 
set properties.

Note that all set function <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9995	10093	
==>ethods for iterating through the set, and for querying 
set properties.

Note that all set function <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34828	34927	
==>> ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must all <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34828	34927	
==>> ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must all <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2148	2264	
==>? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2148	2264	
==>? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2731	2842	
==>lass.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.it <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2731	2842	
==>lass.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7931	8023	
==>sh_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1756	1848	
==>sh_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26095	26189	
==>oject (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30647	30741	
==>oject (Set of Str $attrs!) returns Relation>

This method is a generic relational operator that <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4	119	
==>s Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has In <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4	119	
==>s Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has In <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2310	2418	
==>or is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2310	2418	
==>or is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3178	3282	
==>l::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3178	3282	
==>l::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1219	1316	
==>r @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1219	1316	
==>r @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25665	25767	
==>be read by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningfu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25665	25767	
==>be read by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningfu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5220	5335	
==>cal,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2820	2923	
==>DESC, "C", " in character class") if $cc;
    return $S->force_object(anyof_char => 'C') if $cc;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1949	2074	
==>recedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23674	23808	
==>c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20095	20229	
==>c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16113	16210	
==>condition, and one
application may handle it internally, while another one displays it to the
user <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16113	16210	
==>condition, and one
application may handle it internally, while another one displays it to the
user <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	685	860	
==>UT')->digest => Val(\*STDOUT),
    map { native($_) } (
        {
            arity => 3,
            name => '&ternary:<?? !!>',
            body => sub {
                $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6373	6506	
==>__PACKAGE__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13950	14053	
==>returns opaque {
    my %attrs;
    my $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4171	4354	
==>g;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4311	4494	
==>g;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q <==
2	/Users/nnunley/pugs/util/package-osx.pl	4797	4885	
==>usr/local/man/man3/Perl6::Bible::S10.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1727	1910	
==>'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1727	1910	
==>'msg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15936	16043	
==>that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not any human us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15936	16043	
==>that would be shown to a user, is in fact meant
to be interpreted by the machine itself and not any human us <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4809	4924	
==>urn '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into cla <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4809	4924	
==>urn '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into cla <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7906	8006	
==>ched.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reached, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7906	8006	
==>ched.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reached, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16885	17026	
==>ture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17164	17305	
==>ture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	190	309	
==>f = shift;
	my $runtime = shift;
	my $prog = shift;

	Blondie::TypeSafe::Flatten->new->reduce(
		Blondie::TypeSafe::Anno <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13494	13587	
==>xpression> <'.'> <Identifier>
    | <'new'> <?ws_required> <MemberExpression> <Arguments>
}
ru <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1644	1745	
==>unless ( $INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACKAGE__} with:

    use inc::${\__P <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6510	6649	
==>code($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6510	6649	
==>code($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4082	4180	
==>ole of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unic <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4082	4180	
==>ole of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; the unic <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10228	10331	
==>($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(bytei <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10228	10331	
==>($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(bytei <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26915	27022	
==>tion>

This method is the same as C<project> but that the returned Relation has
the complement subset of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31467	31574	
==>tion>

This method is the same as C<project> but that the returned Relation has
the complement subset of the <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4050	4194	
==>pen_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4050	4194	
==>pen_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.star <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4023	4141	
==>e::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4163	4281	
==>e::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	670	844	
==>s copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	670	844	
==>s copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1494	1591	
==>t to a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

T <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1494	1591	
==>t to a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen nick

T <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4036	4118	
==>AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4036	4118	
==>AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31252	31347	
==>r] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from mul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31252	31347	
==>r] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from mul <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	446	549	
==>annot inherit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{
    method h <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	446	549	
==>annot inherit from TestPlan because of the lack of $!expect
class Test::Builder::NullPlan
{
    method h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5108	5353	
==>ndir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for these links <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4320	4529	
==>ndir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for these links <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16733	16842	
==>this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16733	16842	
==>this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.co <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4259	4362	
==>ethod start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4259	4362	
==>ethod start () returns Object { return $.span.start }

method set_start ($self: $start ) {
    if $.span <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3411	3518	
==>ON

Config::Tiny is a utility to read and write .ini style configuration files
with as little code as possib <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3411	3518	
==>ON

Config::Tiny is a utility to read and write .ini style configuration files
with as little code as possib <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	816	953	
==>ew(
        name => $name,
        val => $val,
    );

    push @{ $self->{scopes}[0] }, $pad;
}

sub pads {
    my $self = shift;
    ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1074	1184	
==>of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1074	1184	
==>of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Model::Node @! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29975	30074	
==>m it by key.  Each template hash
key corresponds to the Message Key attribute of a Message object, a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29975	30074	
==>m it by key.  Each template hash
key corresponds to the Message Key attribute of a Message object, a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15921	16117	
==>named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15915	16111	
==>named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subru <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3009	3109	
==>eturn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Obje <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3009	3109	
==>eturn $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Obje <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3295	3410	
==>ould be doing this anyway, though.)  It 
also means that the nonce or initialization vector should be hashed with th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3295	3410	
==>ould be doing this anyway, though.)  It 
also means that the nonce or initialization vector should be hashed with th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4212	4401	
==>e
    my $label = shift;
    my $node = shift;
    sub {
        my $match;
        $node->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15546	15644	
==>ir
privileges regarding access to information details, or their technical
skills.  For example, a n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15546	15644	
==>ir
privileges regarding access to information details, or their technical
skills.  For example, a n <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	386	484	
==>e //= $parser_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_war <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	467	581	
==>t("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	467	581	
==>t("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3209	3331	
==>onv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1788	1909	
==>f->add_handler('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 's <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7149	7319	
==>e split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$av <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7613	7783	
==>e split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$av <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4041	4241	
==>ub { # @values -> ()
                my $self = shift;
                my $values = shift;
                unshift @{$self->get_value('@:slots')}, mk_containers(@$values);
            },

            ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8272	8410	
==>/, $o;

      $S->warn(0, "Illegal octal digit '%s' ignored", $1) if $o =~ /([^0-7;])/;

      if ($cc) {
        $S->error(0, "\\0[A;B] in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18267	18367	
==>andler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18267	18367	
==>andler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3631	3756	
==>3)/gme;
#    # comments
#    $file =~ s/#(.*)$/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircu <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	536	678	
==>t unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<st <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	536	678	
==>t unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2088	2267	
==>ns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2088	2267	
==>ns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Str <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1125	1265	
==>sh($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the curre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1125	1265	
==>sh($current_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the curre <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5460	5558	
==>s ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        #} <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5669	5766	
==>s ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9500	9802	
==>ts -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9500	9802	
==>ts -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    meth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1255	1368	
==>sity,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1255	1368	
==>sity,  end =>   Inf, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19516	19650	
==>iable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19795	19929	
==>iable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12227	12365	
==>ine
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12227	12365	
==>ine
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2583	2679	
==>ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2583	2679	
==>ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If two d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8943	9040	
==>NODE TCxtItem   ($type) { "should not appear" }
NODE TCxtSlurpy ($type) { "should not appear" }
NO <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4908	5042	
==>un'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_L <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4908	5042	
==>un'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_L <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1330	1457	
==>on '$perl_version' is bad. Must be 5 or 6.";
    my $path = File::Spec->catdir($base, $blib);

    $self->makemaker_args->{INST_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21638	21731	
==>mber(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1201	1296	
==>{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1201	1296	
==>{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_header <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5356	5470	
==>_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5356	5470	
==>_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1	104	
==>pod

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

gram <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1	104	
==>pod

Perl 6's grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

gram <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6258	6435	
==>lf->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        war <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5766	5943	
==>lf->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        war <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2197	2303	
==>BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub defaults {
    my($class, $conf) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7529	7652	
==>: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7529	7652	
==>: )          is rw { $self.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Aut <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6350	6507	
==>d    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->la <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1628	1740	
==>native( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns an arrayref of files install <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14292	14423	
==>ral 'ok' or 'not ok'.
  name          name of the test (if any)
  number        test number (if any)

  type          'todo' or 'ski <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	764	857	
==>mat{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	764	857	
==>mat{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5020	5159	
==>= POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6515	6616	
==>D_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	242	363	
==><$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc(ReadKey(0)) eq 'y';
        ReadMode( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24870	24963	
==>nd all
Relation::Example tuples may be individually addressed only by their values; neither
ma <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4273	4387	
==>on');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4273	4387	
==>on');
    # grab all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1555	1687	
==>my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is alw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1350	1480	
==>my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is alw <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4404	4511	
==>mber_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4404	4511	
==>mber_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9537	9646	
==>semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other is not a full s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13014	13123	
==>semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other is not a full s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8649	8746	
==>er($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8649	8746	
==>er($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS <==
2	/Users/nnunley/pugs/misc/S29_round.pl	976	1130	
==>{
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >  .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_roun <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9633	9733	
==>t work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9691	9791	
==>t work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5648	5749	
==>::Parser::anyof_range;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8333	8478	
==>split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8333	8478	
==>split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp:: <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	133	296	
==>xamples",
        );
      pick @arr || @default
}

sub report (@x) returns Str is export {
     my $str = '';
    my $iter = 0 ;
    for @x -> $x{
      if ++$iter <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8252	8380	
==>t can be used to execute F<ghc>.

=cut

sub assert_ghc_pkg {
    my $self = shift;

    # Return immediately if we've cached this <==
2	/Users/nnunley/pugs/util/drift.pl	1058	1177	
==>= split /^/m, << "SCARY";




{- 
-- WARNING WARNING WARNING --

This is an autogenerated file from $in.

Do not edit th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1649	1758	
==>sed to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1649	1758	
==>sed to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	192	318	
==>alue.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	192	318	
==>alue.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6031	6133	
==>tics.

Please note that most of the time, it will not be necessary to write these 
methods yourself; in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6031	6133	
==>tics.

Please note that most of the time, it will not be necessary to write these 
methods yourself; in <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1256	1426	
==>ub {
        my $first = shift;
        for my $o ( @_ ) {
            for my $k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16693	16799	
==>erl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, savin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16693	16799	
==>erl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, savin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	738	860	
==>'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	738	860	
==>'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3931	4011	
==>tp://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3931	4011	
==>tp://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1107	1201	
==>ents, written
in question/answer format, to explain the design and implementation of Pugs.

=he <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1107	1201	
==>ents, written
in question/answer format, to explain the design and implementation of Pugs.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4044	4134	
==>724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4044	4134	
==>724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Ro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15671	15821	
==>ting to use a string at a level lower than what it supports is not
allowed.

If a function takes a C<Str> and returns a C<Str>, the returned C<Str>
wil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	520	633	
==>ine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(xmlify($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	350	445	
==>t_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	350	445	
==>t_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_fi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1943	2177	
==>cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1943	2177	
==>cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16992	17097	
==>g mechanism has been applied to the resource.

=item $h.content_length

A decimal number indicating the si <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16992	17097	
==>g mechanism has been applied to the resource.

=item $h.content_length

A decimal number indicating the si <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38937	39104	
==>keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21789	21907	
==>l string cname
    .local pmc reps

    iscapture = self["iscapture"]
    if iscapture == 0 goto end
    cname = self[" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15705	15829	
==>rint "ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6749	6856	
==>s";
  /PIL-RUN/i and return "pilrun";
  /PIR/i     and return "pir";
  return "normal";
}

sub runcore2human <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1798	1910	
==>args) = @_;

    # ignore the prefix on extension modules built from top level.
    delete $args{prefix}
      un <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1223	1328	
==>>get_attr(symbol->new('@:MRO'));
    # if nothing is in MRO, we take the superclasses
    # because we kno <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1662	1798	
==>]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1662	1798	
==>]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15541	15652	
==>dth - length($te));
    my $ml = "";

    $ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_NOTT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	723	824	
==>->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	723	824	
==>->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14879	14995	
==>class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14879	14995	
==>class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13107	13203	
==>>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13107	13203	
==>>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13322	13414	
==>, \%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13322	13414	
==>, \%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5035	5201	
==>cc = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5035	5201	
==>cc = [ $state[0], $matches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{ta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	160	263	
==>:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is cop <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	160	263	
==>:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is cop <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4822	4977	
==>t;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tai <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4822	4977	
==>t;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tai <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2014	2136	
==>ad2 Taint mode

Test::Harness will honor the C<-T> or C<-t> in the #! line on your
test files.  So if you begin a test with <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3539	3637	
==>p6;
	    my($pil_code,$warn) = Perl6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = !d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	289	382	
==>g_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	289	382	
==>g_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rules' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4938	5036	
==>Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the right meth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7606	7704	
==>Foo got the right method return value');
is($Foo->superclass, $Object, '... $Foo got the right meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10481	10669	
==>xt ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10481	10669	
==>xt ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	98	254	
==>@return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	98	254	
==>@return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simp <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	633	748	
==>"You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are runnin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	633	748	
==>"You are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are runnin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3432	3577	
==>ign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3432	3577	
==>ign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1560	1673	
==>syntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_terms wi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1560	1673	
==>syntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_terms wi <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1418	1541	
==>tr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $str) returns Str is builtin is primitive {
    uc(substr $str, 0, 1) ~ sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	325	431	
==>e eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self";
}

sub find_immediate_dyn_sym <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25073	25169	
==>The Message class is pure and deterministic,
such that all of its class and object methods will e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25073	25169	
==>The Message class is pure and deterministic,
such that all of its class and object methods will e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7884	8044	
==>turn $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7884	8044	
==>turn $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12743	12864	
==>@args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12743	12864	
==>@args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connect <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	214	321	
==>her
our %hash;

#our @subroutine_names;

BEGIN {
    $operator = Pugs::Grammar::Precedence->new( 
        gr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1308	1411	
==>E'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15671	15772	
==>e;

    return($leader, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@test_files);

C <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8070	8189	
==>rgs);
    }
    if($has_inv) {
	my $fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1146	1258	
==>}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" if $@;
    #print 'rule <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5819	5919	
==>=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML SAX 
pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5819	5919	
==>=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML SAX 
pa <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4993	5102	
==>ds in the requests
sent and responses received, then you should use the full object-oriented
interface provide <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4993	5102	
==>ds in the requests
sent and responses received, then you should use the full object-oriented
interface provide <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14284	14387	
==>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >> <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14284	14387	
==>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >> <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	767	872	
==>/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
develop <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	767	872	
==>/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
develop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8004	8124	
==>$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7992	8112	
==>$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$ma <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3269	3410	
==>ete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3269	3410	
==>ete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3661	3771	
==>::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3661	3771	
==>::Runtime::Match - Match object

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6709	6931	
==>om => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $ne <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6709	6931	
==>om => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $ne <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6269	6450	
==>$file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot deter <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5777	5958	
==>$file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot deter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32833	32929	
==>r, having them returned while I<walking> the tree is
helpful.

The walk() method is used to modif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	275	423	
==>ck> re inheritance - p5 rule calls will need to be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Bala <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	265	407	
==>ck> re inheritance - p5 rule calls will need to be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Bala <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12419	12524	
==>ment is undefined).  The new Document object's All Nodes
attribute starts out empty, but gains one element <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12419	12524	
==>ment is undefined).  The new Document object's All Nodes
attribute starts out empty, but gains one element <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9933	10033	
==>rence, and a few
other operations.

This class also provides methods for iterating through the set, a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9933	10033	
==>rence, and a few
other operations.

This class also provides methods for iterating through the set, a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21514	21640	
==>my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21793	21919	
==>my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7350	7615	
==>$ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7350	7615	
==>$ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9965	10088	
==>w(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_B <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9965	10088	
==>w(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Content_B <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1825	1925	
==>method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expres <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1825	1925	
==>method equal($self: Set $other) returns Bool {

    # for some reason, directly returning this expres <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3338	3479	
==>}
    }

    if ( my $perl_version = $self->perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] i <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2380	2520	
==>};
    }

    if (my $perl_version = $self->perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	77	183	
==>se Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	77	183	
==>se Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12602	12727	
==>)/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12602	12727	
==>)/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2155	2426	
==>{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2155	2426	
==>{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1320	1474	
==>take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1320	1474	
==>take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6466	6582	
==>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6478	6594	
==>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    local $Data::Dumper <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	848	957	
==>rt {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    re <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	848	957	
==>rt {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3074	3176	
==>enting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3074	3176	
==>enting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4524	4636	
==>itute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4524	4636	
==>itute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("");

  return @re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13484	13615	
==>.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13484	13615	
==>.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4729	4856	
==>ts( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4729	4856	
==>ts( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	220	330	
==>se base 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # de <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31610	31713	
==>False regardless of its
argument, in which case the new Relation has either all of the tuples of
the ori <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36160	36263	
==>False regardless of its
argument, in which case the new Relation has either all of the tuples of
the ori <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2817	2948	
==>}
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2817	2948	
==>}
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    St <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4220	4347	
==>version\n"
        . ($self->postamble || '');

    local *MAKEFILE;
    open MAKEFILE, "< $makefile_name" or die "fix_up_makefi <==
2	/Users/nnunley/pugs/util/addauthors.pl	1304	1424	
==>t}=$comitters{$c};
  print Dumper $author;
}


sub trim {
  local $_=shift;
  s/^\s+//;
  s/\s+$//;
  return $_;
}

sub r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1079	1193	
==>=<FILE>;
    close FILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAM <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24165	24280	
==>ch of which is an
unordered set of named attributes; all tuples in a Relation::Example are of the same
degree, and t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21939	22054	
==>m >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18360	18475	
==>m >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1556	1662	
==>.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1556	1662	
==>.  
Arcfour keys can be any random number between 40 and 128 bits long, rounded to 
the nearest byte (but s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22469	22577	
==>can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22469	22577	
==>can assume that it has succeeded, even if the return value is
undefined.

=head2 The Rosetta::Interface::DBMS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2612	2776	
==>)

        if @_ > 2;

    my @nodes = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2527	2685	
==>)
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	804	895	
==>->subdir( $self->config->_control )->subdir( $pkg );
}


=head2 $dir = $inst->alternatives_d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	192	280	
==>$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:config no_auto_version);

my (@eva <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5744	5905	
==>my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4244	4405	
==>my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17429	17545	
==>e classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17429	17545	
==>e classes and methods of this "Rosetta" file, together with those of
L<Rosetta::Model>, define the balance of the Ros <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2820	2978	
==>if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2820	2978	
==>if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Par <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11994	12113	
==>ending>
and C<is insensitive> to reverse the order of sort, or the adjust the
case sensitivity of C<cmp> as a Comparator <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	217	353	
==>rnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    target
    from
    position
    coroutine
    capture
    hash
    integer
    numbe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6412	6627	
==>x/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6412	6627	
==>x/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2855	2972	
==>ay $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2855	2972	
==>ay $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14763	14928	
==>)
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15042	15207	
==>)
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	297	406	
==>wing
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	297	406	
==>wing
members:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	266	393	
==>new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) { <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	266	393	
==>new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3117	3246	
==>001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3117	3246	
==>001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	640	842	
==>{$stack};
        }
        else {
            if (@{$stack}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6020	6159	
==>oint
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6020	6159	
==>oint
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_bas <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1872	2038	
==>tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1872	2038	
==>tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21394	21489	
==>hould easily port
to alternative relational database engines with minimal effort.

This might se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21394	21489	
==>hould easily port
to alternative relational database engines with minimal effort.

This might se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12996	13148	
==>%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12996	13148	
==>%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1332	1426	
==>->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1332	1426	
==>->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5482	5596	
==>turn a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5307	5418	
==>turn a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1626	1746	
==>ed_capture_body {
          [ \( <rule> \) { return { rule => $_[0]{rule}(), } } ]
        | [ \[ <rule> \] { return { ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	724	849	
==>->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	886	1011	
==>->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	623	874	
==>kage Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	623	874	
==>kage Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by the Loc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35935	36034	
==>>

This method returns an array ref having all combinations of this object's
Set Names and Member Na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35935	36034	
==>>

This method returns an array ref having all combinations of this object's
Set Names and Member Na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19958	20092	
==>]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16379	16513	
==>]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        pu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11485	11607	
==>ck

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11485	11607	
==>ck

=head1 TODO

=over 4

=item Write more docs

=item Convert more tests

A good amount of Tree::Simple's test will not be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1200	1316	
==>rn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1340	1456	
==>rn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, " <==
2	/Users/nnunley/pugs/util/importgraph.pl	511	673	
==>ut => $layout,
  directed => 1,
  rankdir => 1,
  overlap => $overlap,
);

my %modules;
find sub {
  return unless /\.hs$/;

  my ($module_name, $exports, %imports <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	227	326	
==>Array::push (@array is rw ; *@values) returns Int {
   Array::splice(@array, @array.elems, 0, @value <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19474	19578	
==>starting offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the whole ma <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9090	9213	
==>at interferes with GHC.
        $kind = $1,  next if /^_\+(.*)/;        # _+SEGMENT start
        undef $kind, next if $_ eq <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9476	9583	
==>item reverse

 multi Hash::reverse (%hash --> Hash ) is default {
   my %result;
   for %hash.kv -> $k, $v { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1745	1867	
==>\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1745	1867	
==>\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2746	2865	
==>everse @todo) {
	#print STDERR "--$stage--\n";
	if($stage eq 'p5') {
	    my $pil_tree = $self->as_pil_tree;
	    my($p5 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2830	2935	
==>ts $self->{names}{$node->orig};
}

sub declare {
	my $self = shift;
	my $node = shift;

	$self->{names}{$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	414	506	
==>[0]{tree} }
sub LATEST :lvalue	{ $_[0]{tree}[-1] }

use Regexp::Parser::Diagnostics;
use Rege <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6349	6446	
==>'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6349	6446	
==>'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5319	5426	
==>l( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5134	5237	
==>l( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	59	160	
==>le' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	59	160	
==>le' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2735	2887	
==>current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:sup <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2940	3092	
==>current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:sup <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	162	265	
==>etaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw(:config no_auto_vers <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	593	701	
==>\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or de <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	593	701	
==>\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or de <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6357	6498	
==>xms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5865	6006	
==>xms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6201	6310	
==>t>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6201	6310	
==>t>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1377	1487	
==>sed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" beg <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1377	1487	
==>sed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" beg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3323	3476	
==>=> $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3570	3723	
==>=> $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6319	6417	
==>(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6319	6417	
==>(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25137	25234	
==>the copyright holders
of Rosetta give you permission to link Rosetta with other free software
comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25137	25234	
==>the copyright holders
of Rosetta give you permission to link Rosetta with other free software
comp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8586	8688	
==>NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = recurse($v0) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23555	23650	
==>efficiency, and they can optionally extend the
Relation library's interface.

See also the bundl <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4232	4329	
==>ashscreen
    The file referenced by --splashscreen will be displayed before booting.
  --lib6=$li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1976	2092	
==>q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1976	2092	
==>q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1934	2037	
==>tatement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    prece <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1934	2037	
==>tatement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    prece <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12619	12902	
==>canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test{failed}},
                                             name    => $tfile, 
                                             percen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12368	12466	
==>:$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12426	12524	
==>:$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8581	8693	
==>ests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8639	8751	
==>ests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1941	2075	
==>:Check->last_error ), return;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor object, b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13101	13188	
==>"#").
brackets([0xabd],[0xbbd]). brackets([0xbbd],[0xabd]).


digits_int(I) --> digit(D0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4303	4431	
==>railing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4303	4431	
==>railing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	195	299	
==>ass, $name, $type) = @_;
    (defined $name && $name =~ /^[\$\@\%\&][\.\:][a-zA-Z0-9_]+$/)
        || con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	786	888	
==>) = @_;
    return $S->force_object(anyof_char => "\a", '\a') if $cc;
    return $S->object(exact => "\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6652	6761	
==>.";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6652	6761	
==>.";
    } else {
      %channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27728	27864	
==>ant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28007	28143	
==>ant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6689	6846	
==>ze_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listle <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5193	5350	
==>ze_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listle <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4006	4114	
==>pher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submetho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4006	4114	
==>pher::Stream;
class Cipher::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submetho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20561	20674	
==>dler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not imp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16982	17095	
==>dler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not imp <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1071	1173	
==>s export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1071	1173	
==>s export { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28670	28772	
==>having a specific simple API that will serve their role.

For example, inside the text Template file "M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28670	28772	
==>having a specific simple API that will serve their role.

For example, inside the text Template file "M <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6718	6822	
==>---------------------------------------------

ok($Class->does('Role'), '... Class now does Role');
ok($C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	326	438	
==>package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	326	438	
==>package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1782	1873	
==>of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

= <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1782	1873	
==>of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10165	10266	
==>ext.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10165	10266	
==>ext.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg_vars!', <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15779	15894	
==>oo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module pr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15779	15894	
==>oo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12483	12619	
==><disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12483	12619	
==><disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29942	30086	
==>elf  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new(':ascendant') # C3 i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8747	8847	
==>gex and create
the tree in one step:

  my $ok = $parser->parse($new_regex);

Again, $ok will be fals <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14004	14103	
==>function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14062	14161	
==>function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7466	7588	
==>ers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7466	7588	
==>ers }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2181	2308	
==>params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2181	2308	
==>params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15919	16037	
==>culty rating: ****)

Reverses a regex so it matches backwards.  Ex.: C</\s+$/> becomes
C</^\n?\s+/>, which perhaps gets <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1784	1949	
==>f->{levels}};
        if ( $_ == 0 ) {
            $s = $s . "    rule $rule_name { $op->{item} [ $x <$rule_name> ]? }\n";
        }
        else {
            $s = $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1283	1422	
==>ccessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    ### if it has a dependency list, transform it into an o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11526	11736	
==>dtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11526	11736	
==>dtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1997	2113	
==>rm {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0], '$<params>' ) );
    return " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	136	238	
==>$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	136	238	
==>$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1065	1192	
==>~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1068	1186	
==>~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$b <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2923	3041	
==>art_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2923	3041	
==>art_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2548	2648	
==>_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2548	2648	
==>_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3331	3445	
==>2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3331	3445	
==>2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.inter <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6207	6344	
==>, $pid;
        } else {
            $self->{_child_num} = $child;
            $self->run_test($_) for @own_tests;
            $self->emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2183	2300	
==>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2183	2300	
==>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16941	17037	
==>ed modules or anonymous routines) and write the rest of the
application in their other language(s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16941	17037	
==>ed modules or anonymous routines) and write the rest of the
application in their other language(s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13182	13280	
==>lls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote thes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13182	13280	
==>lls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote thes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4373	4493	
==>param => $_[2], } }
    | exp '.' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12688	12782	
==>ectedly succeeded"><tmpl_var name=unexpect></span></td>
	    </tmpl_loop>
	    <td><span title= <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1484	1644	
==>y @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1484	1644	
==>y @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4429	4567	
==>sc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub live <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4487	4625	
==>sc, :$todo);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub live <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1070	1182	
==>print "not ok  \# Expected compile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $debug_warni <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2719	2822	
==>p

An App makes a Thunk reduce to it's value (and also prepares a dynamic scope
for it).

If we have a T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1455	1577	
==>h  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submeth <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1455	1577	
==>h  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submeth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13228	13331	
==><Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13228	13331	
==><Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return va <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	823	924	
==>_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	823	924	
==>_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2352	2442	
==>return ($self.size < $other.size && $other.includes($self.members));
}
method superset($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2352	2442	
==>return ($self.size < $other.size && $other.includes($self.members));
}
method superset($sel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1937	2062	
==>style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<p <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1937	2062	
==>style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1128	1236	
==>e baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1128	1236	
==>e baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	541	672	
==>Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><ti <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	541	672	
==>Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  =cut
 #
 # corresponding normative XML tree;
 #
 #  <sect1><ti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13665	13766	
==>re missing, or core bug that needs to
be sorted out before you can continue.

It is also possible to u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13723	13824	
==>re missing, or core bug that needs to
be sorted out before you can continue.

It is also possible to u <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5417	5522	
==>" . join(" -> ", map { $self->display_type($_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10518	10673	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10797	10952	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6596	6701	
==>ath_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6596	6701	
==>ath_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14173	14278	
==>e the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14231	14336	
==>e the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk (Str $desc?, Bool : <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1464	1566	
==>are implemented by passing a C<Result> object that has a
$.backtrack closure that calls back into the p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1464	1566	
==>are implemented by passing a C<Result> object that has a
$.backtrack closure that calls back into the p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	851	954	
==>of the full package package. For example:

    p5-foo-1-cpan+kane

=head1 METHODS

=head2 $pkg = JIB::Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25819	25915	
==>ts target's C<pos()>.  This method, where it returns a
I<reference> to a scalar, makes it work (! <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1017	1117	
==>r}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1017	1117	
==>r}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2905	3018	
==>:PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2905	3018	
==>:PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PI <==
2	/Users/nnunley/pugs/util/func_refact.pl	950	1089	
==>{
            print "$_: " . union({$_=>1}, $_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5625	5760	
==>ods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_insta <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1919	2035	
==>eady for parsing.

=cut

sub _init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	639	759	
==>retty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	757	876	
==>' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} . ">",
        '{ return { op => " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15289	15392	
==>g methods are available for Span objects:

- `start()` / `end()`

Return the start or end value of the s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15289	15392	
==>g methods are available for Span objects:

- `start()` / `end()`

Return the start or end value of the s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2695	2859	
==>r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2695	2859	
==>r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{labe <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	706	838	
==>ens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interfac <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	706	838	
==>ens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are seldom created using the C<Tree> interfac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6724	6901	
==>.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - si <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6724	6901	
==>.next( -Inf );
            }
            return $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - si <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33163	33283	
==>ft;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO'));
            } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32508	32614	
==>ft;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO')-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1258	1357	
==>having the two of them "n" is confusing.
macro Clutter::num_size($n) {
  'subset num'~$n~'     of Va <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	39	158	
==>:Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIX <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	39	158	
==>:Text;

# the mutator for $.content should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIX <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6248	6379	
==>\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($self->{dispatch});

        $file = "$self- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32502	32596	
==>tem C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37052	37146	
==>tem C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	845	955	
==>.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	845	955	
==>.  This whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2871	2974	
==>- see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2871	2974	
==>- see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0,\$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7520	7670	
==>ool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7520	7670	
==>ool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4004	4107	
==>port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PRO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4004	4107	
==>port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PRO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1440	1579	
==>le match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1440	1579	
==>le match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2310	2437	
==>pable; p5 ones begin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can step <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2226	2344	
==>pable; p5 ones begin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can step <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	354	479	
==>al   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain' can't be mixed with oth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45413	45500	
==>%:namespace') => attribute->new('%:namespace' => 'hash')));


$::Package->send('add_meth <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7617	7745	
==>t' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7617	7745	
==>t' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	840	1076	
==>$is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<sta <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	840	1076	
==>$is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<sta <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5400	5597	
==>l to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5400	5597	
==>l to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.end = $end;
        }
    }
}

method start_is_open <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	980	1096	
==>acute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	980	1096	
==>acute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9622	9766	
==>c  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    ret <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9622	9766	
==>c  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10350	10501	
==>ler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10350	10501	
==>ler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9924	10030	
==>t work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9924	10030	
==>t work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	497	591	
==>N

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for doc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	497	591	
==>N

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for doc <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2724	2874	
==>array_extendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $size = shift;
                push @{$self->get_val <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21208	21315	
==>($module)
      !! Pugs::Internals::require($module);
  }
  my sub find() {
    my $file = join(%?CONFIG<fil <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9365	9475	
==>n => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9365	9475	
==>n => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $sp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5708	5851	
==>mma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5708	5851	
==>mma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1564	1665	
==>ler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1564	1665	
==>ler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12499	12624	
==>, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  # st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	829	945	
==>, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  }) <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8427	8537	
==>kg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc_pkg not cached, and called without pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14524	14622	
==>OS (-24)

POSIX class [:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside c <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	501	645	
==>mitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $str, -1, 1;
        $str = substr $str, 0, chars($st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5582	5709	
==>(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5582	5709	
==>(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5573	5713	
==>hift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[2] = { %{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5396	5531	
==>hift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[2] = { %{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8145	8242	
==>variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1970	2067	
==>variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15007	15114	
==>y is to implement this as a mutually recursive multi-
sub which will be able to handle structures of arbitra <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15065	15172	
==>y is to implement this as a mutually recursive multi-
sub which will be able to handle structures of arbitra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13208	13347	
==>mit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n->{op1}{op} eq 'my' ||
         $n->{op1}{op} eq 'our' ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	768	1047	
==>ead of a Match
            # print "match is ",Dumper($m),"\n";
            if ( $m->{bool} ) {
                $match = $m->{tail};
                $whitespace_before = 1;
            }
            my @expect = $p->YYExpect;  # XXX is this expensive?
            
            # p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19319	19420	
==>e don't know what symbol it is we can't type it
my $no_such_sym = fun(
	param => "x",
	body => ide("y" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4503	4611	
==>"No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4561	4669	
==>"No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1311	1415	
==>evious( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1311	1415	
==>evious( Inf );
    return $tmp == -Inf ?? undef !! $tmp;
}

method start_is_closed () { return Bool::True <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4705	4849	
==>st_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4705	4849	
==>st_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% since last <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	77	181	
==>"  ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23291	23392	
==>ed and pushed onto the stack.  When a scope is left, the
top value is popped and discarded.

It is imp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	962	1074	
==>ap / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * sy <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	962	1074	
==>ap / grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * sy <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	270	375	
==>-------------------

sub IDGenerate {
    my($id)='';
    for (1..32) { $id~=chr(65+int(rand 26)); }
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2713	2810	
==>TTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2713	2810	
==>TTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	217	334	
==>et::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	217	334	
==>et::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if possible
    * cleanup circular re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	564	666	
==>inv->isa('opaque'))
        || confess "The invocant must be an opaque type";
    $self->SUPER::do($arg <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3734	3827	
==>|\x[abd]]) (\??) <name> [ \( <argument_list> \) | <pattern> | <null> ] [\>\>|\>|\x[bbd]] }
rul <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1603	1706	
==>IME} and $ENV{PUGS_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Te <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6851	7003	
==>s with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6851	7003	
==>s with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17133	17332	
==>. "#" . 
                                  (0+$link)), id=>0+$link, 
                         title => $link->{whole},
                         class => 'testlink');
                # $backlink->push_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2288	2395	
==>ype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6080	6183	
==>:Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6080	6183	
==>:Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,me <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12051	12144	
==>tes and returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12051	12144	
==>tes and returns a new Rosetta::Model::Document object.  If
the optional named parameter @root_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4558	4723	
==>},
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4558	4723	
==>},
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    csta <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2427	2523	
==>tructure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2427	2523	
==>tructure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	218	326	
==>VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	218	326	
==>VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $filtered = {} <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2361	2476	
==>t;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/) <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2361	2476	
==>t;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6046	6144	
==>oo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10303	10401	
==>oo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4942	5060	
==>ing(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8419	8537	
==>ing(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5129	5276	
==>d = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($tok <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5129	5276	
==>d = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($tok <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2858	2965	
==>ms()>

Returns the names of all the parameters as a list.  The order in which they were
present in the query <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2858	2965	
==>ms()>

Returns the names of all the parameters as a list.  The order in which they were
present in the query <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10159	10307	
==>";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10159	10307	
==>";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = tim <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	122	227	
==>ser servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose tha <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	122	227	
==>ser servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose tha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1391	1481	
==>l-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented by <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1391	1481	
==>l-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemented by <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10249	10348	
==>Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10249	10348	
==>Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts the specifiend i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3761	3884	
==>$decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3761	3884	
==>$decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1765	1868	
==>\%struct;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1468	1622	
==>.= "],{";
    for my $k (keys(%{$o})) {
        my $v = $o->{$k};
        my $vs = "";
        if(ref($v) eq 'ARRAY') {
            $vs = "[\n".$o->_indent <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	6314	6423	
==>XX - needs optimization for faster backtracking, less stack usage
    return sub {
        my $state = $_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8530	8631	
==>normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8530	8631	
==>normalize($event<from_nick>) eq normalize($curnick)) {
      $curnick = $event<object>;
      debug "C <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15641	15813	
==>o-table",                  # Patch boot image with info table
      "-o" => $iso,                        # Set output file name
      $cdroot;
  };

sub ldd {
  my $bin = sh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2283	2397	
==>ers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2283	2397	
==>ers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method r <==
2	/Users/nnunley/pugs/util/addauthors.pl	746	894	
==>xample.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/$re/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3477	3721	
==>new {
        return $Obj if $Obj;
        
        my $self = shift;
        $Obj     = $self->SUPER::new();
    
    
        for my $key ( keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8416	8517	
==>elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8404	8505	
==>elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14919	15026	
==>and.

	if ($Perl !~ /\Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_perl: cannot find $Perl from $^X" u <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2694	2796	
==>eing no
documentation, one ends up reverse engineering perl source.

We basically use the perl regcompp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2919	3016	
==>ame.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub asser <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2919	3016	
==>ame.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.hs
_
}

sub asser <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13811	13927	
==>ns [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13805	13921	
==>ns [\^a] instead of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_ca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	684	791	
==>itdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	684	791	
==>itdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12956	13098	
==>, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6431	6573	
==>, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	846	952	
==>llo, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6::API::AST - so <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	802	905	
==>llo, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6::API::AST - so <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10589	10690	
==>/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http://svn.openfoundry.org/pugs/util/s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3272	3396	
==>less( $self->can('file') ) {
            error("No file associated with this object -- " .
                  "can not extract <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6660	6794	
==>ar::Term.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27348	27460	
==>},$from,$to);
}
sub rx {
    my($re,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2180	2280	
==>ion( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2180	2280	
==>ion( self.complement )
    return $.universe = $self unless defined $.universe;
    return $.universe <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3162	3270	
==>tatus{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

= <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3162	3270	
==>tatus{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

= <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21264	21356	
==>r(class_pos(space_perl),C) :- !,   (char_type(C,space) ; C = 11). %\v chr(11)
class_member(cl <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17756	17890	
==>forward till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5912	6037	
==>{
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5912	6037	
==>{
    return $.start if $x < $.start;
    return $x      if   $.end_is_open && $x < $.end;
    return $x      if ! $.end_is_op <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33388	33529	
==>('is_a'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3252	3368	
==>will call the C<v6.pm> module.

This is an invalid header:

    #!/usr/bin/pugs
    use v6;

* it tells perl5 to exec <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3702	3808	
==>_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPER::new;

	$self->{left} = shift;
	$self->{ri <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1534	1639	
==>{
  $CGI->param("smoke",
    Compress::Zlib::memGunzip($CGI->param("smoke")) ||
    Compress::Bzip2::memBu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	290	407	
==>} $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3342	3438	
==>cessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessib <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3342	3438	
==>cessible through the HTTP::Query object that
is part of every HTTP::Request::CGI object (accessib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8070	8212	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8263	8405	
==>( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6182	6278	
==>am> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the crypto <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6182	6278	
==>am> can 
reduce the implementation of most block and stream ciphers to a constructor, 
the crypto <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2975	3075	
==>t(0);}
    start = stringarg-strbeg;

    fprintf(stderr,"regexp_exechook_hook\n");
    fprintf(stder <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3623	3729	
==>se{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3623	3729	
==>se{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names -> $key {
    next if $k <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7815	7916	
==>xit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  my $command_line = $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2204	2329	
==>quest;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2204	2329	
==>quest;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9153	9271	
==>Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9153	9271	
==>Headers.new;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.r <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	366	475	
==>extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.stat <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	366	475	
==>extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.stat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2164	2272	
==>X - inconsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2304	2412	
==>X - inconsistent parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1484	1628	
==>CT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1484	1628	
==>CT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	355	459	
==>>SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	355	459	
==>>SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compile <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5283	5419	
==>ay;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3783	3919	
==>ay;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $size;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8590	8696	
==>Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8648	8754	
==>Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Tes <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3342	3462	
==>n (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3342	3462	
==>n (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "u <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4245	4370	
==>t;
		my $app = shift;

		my $rapp = $app->fmap(sub { $self->reduce($_[0]) });
		my ($thunk_val, @params) = $rapp->values;

		m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1811	1955	
==>ld be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $inp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1811	1955	
==>ld be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $inp <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	557	688	
==>ntent'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %par <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	557	688	
==>ntent'} = $match[3] if $match[3];
    if defined $match[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7213	7332	
==>ete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7213	7332	
==>ete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %channe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13209	13351	
==>dchar
    $S0 = substr "\n\r\t\f\a\e\0", $I0, 1
  addchar:
    inc pos
    if isrange goto addrange
    charlist .= $S0
    goto scan
  addrang <==
2	/Users/nnunley/pugs/util/package-osx.pl	11184	11321	
==>\$file\\n"\;
            print "Removing \$file\\n"\;
            if \( \$_ \= qx\/rm \-rf \$file 2>&1 \/ \) \{
                print "Pro <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2466	2563	
==>ead2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2466	2563	
==>ead2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replicate( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6827	6954	
==>on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6827	6954	
==>on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1605	1741	
==>=~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4808	4944	
==>=~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11029	11130	
==>self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if define <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11029	11130	
==>self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if define <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1031	1257	
==>f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet- <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1031	1257	
==>f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2194	2346	
==>= shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2194	2346	
==>= shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11696	11785	
==>lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11696	11785	
==>lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3423	3516	
==>ri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3423	3516	
==>ri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3021	3166	
==>-- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3205	3350	
==>-- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19947	20040	
==>to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl refere <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19947	20040	
==>to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl refere <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1827	1924	
==>t('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1827	1924	
==>t('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2726	2882	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2919	3075	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10308	10428	
==>= $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17467	17573	
==>dText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17467	17573	
==>dText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23744	23907	
==>x} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20165	20328	
==>x} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2837	2955	
==>HARNESS_SWITCHES>.

=back


=head2 Failure

When tests fail, analyze the summary report:

  t/base..............ok
  t/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2563	2681	
==>t {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33804	33901	
==>sponds to
an individual user's (or user role's) preferences such that each says what
language they <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33804	33901	
==>sponds to
an individual user's (or user role's) preferences such that each says what
language they <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9473	9567	
==>urns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9473	9567	
==>urns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	82	196	
==>is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even us <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	82	196	
==>is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This cipher doesn't even us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16020	16114	
==>h.last_modified

This header indicates the date and time at which the resource was last
modifie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16020	16114	
==>h.last_modified

This header indicates the date and time at which the resource was last
modifie <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8856	8986	
==>ay: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8856	8986	
==>ay: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4580	4683	
==>mc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4580	4683	
==>mc_filter {
    my ($class, $module, $line_number, $post_process) = @_;

    # Read original module sour <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2502	2621	
==>ies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2502	2621	
==>ies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$pat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2953	3052	
==>sure_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2953	3052	
==>sure_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 ),
        co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9977	10156	
==>\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eva <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9977	10156	
==>\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?:::|')}{/}g;
            {
                local $@;
                eva <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2724	2857	
==>yle = solid, color = orange ];\n";       
    }       
    return $output;
}

open OUTFILE, ">", $ARGV[0];
print OUTFILE draw();
close <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19426	19514	
==>Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_cap <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	118	216	
==>e, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<em <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	118	216	
==>e, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<em <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5901	6000	
==>Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5901	6000	
==>Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7875	7984	
==>eturns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7875	7984	
==>eturns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13668	13763	
==>od Practice" order.

In scalar context return the number of distinct field names.

=item $h.scan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13668	13763	
==>od Practice" order.

In scalar context return the number of distinct field names.

=item $h.scan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28688	28834	
==>::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28967	29113	
==>::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2785	2935	
==>$vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2785	2935	
==>$vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	353	445	
==>ldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialec <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	353	445	
==>ldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dialec <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22106	22241	
==>y;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17007	17141	
==>y;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible danger?

  U32 *offsets;           /* offset <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6314	6491	
==>rict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9791	9968	
==>rict;

###########################################################################

multi method union (Relation $other!) returns Relation {

    die "The heading of the relation <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	458	588	
==>hc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($class, $filename) = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14640	14739	
==>dering the header fields.  Long header
values are not folded.

The optional $eol parameter specifies <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14640	14739	
==>dering the header fields.  Long header
values are not folded.

The optional $eol parameter specifies <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17144	17286	
==>seen              total tests actually seen
  skip_all          if the whole test was skipped, this will 
                      contain the rea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5083	5184	
==>that $got is within $range of $expected
# if $range is 0, then check it's exact
# else if $expected is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3567	3657	
==>ar := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<charact <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3751	3841	
==>ar := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<charact <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1912	2029	
==>,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1912	2029	
==>,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37644	37826	
==>thods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('h <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4586	4694	
==>ng array1 array2 hash
sub field_is_array {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /^\[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1836	1949	
==>_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1836	1949	
==>_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3145	3267	
==>_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3994	4116	
==>_return {
    my $val = emit( get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	402	545	
==>is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	402	545	
==>is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	741	855	
==>h - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	741	855	
==>h - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is used
    cap <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2576	2730	
==>LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2576	2730	
==>LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31741	31845	
==>ser interface that the
current user is fluent in (and prefers) language A but also understands
language B <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31741	31845	
==>ser interface that the
current user is fluent in (and prefers) language A but also understands
language B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	811	906	
==>r English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	811	906	
==>r English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21004	21118	
==>k-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17425	17539	
==>k-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    pu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	61	152	
==>trategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	61	152	
==>trategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2025	2146	
==>+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2025	2146	
==>+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17497	17607	
==>ions:

regexp* regcompp (pTHX_ char* exp, char* xend, PMOP* pm)

what is pm?
XXX finish

I32      regexec (pTHX <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27776	27881	
==>}
	else { MatchX->new()->set_as_failed() }
    };
}
my $rx = \&rx;
$/=undef;
do {
    Pkg_re_tests::test(\ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	58	288	
==>48.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	58	288	
==>48.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	396	584	
==>.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        giv <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	396	584	
==>.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        giv <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2050	2152	
==>", $#nameSplit, "\n";
  my @spacePresent = split / /, $nameSplit[$#nameSplit];
  if ( @spacePresent > 1 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27065	27161	
==>y. */
 #define REINT_ONCE_ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define RE_INTUIT_T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22895	22994	
==>d to Other Solutions

One of the main distinctions of this approach over similar packages is that
te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22895	22994	
==>d to Other Solutions

One of the main distinctions of this approach over similar packages is that
te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28706	28844	
==>and');
    });
  }

There is a specific scheme to how you must name your handlers.  If you
want to install a handler for '&&', you must fir <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14169	14279	
==>rget
    .local int pos, lastpos
    .local pmc newfrom, mfrom, mpos
    .local string cname
    newfrom = find <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1395	1537	
==>rms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1395	1537	
==>rms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1080	1191	
==>ift;
    unshift @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    shift @{ $self->{scope <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27077	27175	
==>directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, directory name is with <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8845	8946	
==>( $matchObj );

  ternary_error:
  $matchObjPos = -1;
  die "Missing ternary close at offset $whitespa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1644	1754	
==>lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it and/or modify it
under the sa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1644	1754	
==>lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribute it and/or modify it
under the sa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2921	3050	
==>ent {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2921	3050	
==>ent {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2108	2282	
==>rt_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2108	2282	
==>rt_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1837	1967	
==>AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        return $self->($label, @_);
    }
}

## --- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13584	13676	
==>month_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13584	13676	
==>month_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This type o <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3433	3571	
==>decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3433	3571	
==>decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1209	1383	
==>any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1209	1383	
==>any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9503	9614	
==>ich are printed in a particular order.  The
field names are cases insensitive.

Instances of this class are usua <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9503	9614	
==>ich are printed in a particular order.  The
field names are cases insensitive.

Instances of this class are usua <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5483	5577	
==>content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5483	5577	
==>content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17812	17928	
==>roto, @methods) = @_;
    my $class = ref $proto || $proto;

    unless( @methods ) {
        return _ok( 0, _where() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	233	351	
==>=> q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thing <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	233	351	
==>=> q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thing <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4988	5091	
==>expected $type "._q($expected)."\n");
    }
    _ok($pass, _where(), $name, @mess);
}

# Check that $got <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19387	19512	
==>in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19387	19512	
==>in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Co <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4030	4135	
==>tests which failed.

=item B<List of Failed>

A list of the tests which failed.  Successive failures may b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17819	17933	
==>already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: ** <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17819	17933	
==>already been doing the C<.pmc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: ** <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	891	1016	
==>:Session $session, Str $event, *@args) {
    # Push our callback on @:events.
    ./:enqueue({
      my $result = $session.dis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34641	34731	
==>s), and finally in
F<Regexp::Parser::__object__>.

Here is the definition of F<Regexp::AndB <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16348	16441	
==>iltin->can("digest") and my $native = $r->provides($builtin->digest)){
        $val->set($nati <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16727	16827	
==>as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16727	16827	
==>as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModu <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	431	543	
==>:events, $callback;
    nothing;
  }

  # Perform one step -- i.e. get an event from @:events and call it.
  my m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8239	8349	
==>if $kind eq 'SubRoutine';
    $kind = 'Sub' if $kind eq 'SubPrim';
    $kind =~ s/^Sub(\w+)$/$1/;

    my $code <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10568	10654	
==>h", !.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_po <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1027	1130	
==>o" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more eff <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1027	1130	
==>o" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more eff <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10116	10218	
==>set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs support <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10116	10218	
==>set2)>

XXX

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs support <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13126	13276	
==>ent() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /e <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13126	13276	
==>ent() :
            $result =~ m{\A($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4057	4166	
==>pan::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4057	4166	
==>pan::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3272	3377	
==>s intended mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3272	3377	
==>s intended mostly for "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	109	206	
==>ethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	109	206	
==>ethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1506	1619	
==>ghtened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <dig <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1506	1619	
==>ghtened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <dig <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9017	9121	
==>vent.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9017	9121	
==>vent.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1489	1603	
==>tal O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, g <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1489	1603	
==>tal O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, g <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3467	3700	
==>events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                in <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3467	3700	
==>events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                in <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11334	11440	
==>)>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11334	11440	
==>)>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4966	5077	
==>_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4966	5077	
==>_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4956	5053	
==>"", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5014	5111	
==>"", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	811	915	
==>ne.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	811	915	
==>ne.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3761	3942	
==>=> sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Installed')}; 
use constant ISA_JIB_PACKAGE_INSTALLABLE
                            = <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3419	3609	
==>dx];
            },

            'array_existsElem' => sub { # $int -> $bool;
                my $self = shift;
                my $idx = shift;
                exists $self->get_value('@:slo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22655	22761	
==>r_here><Expression> <';'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block> <Catch>
    | <'t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	763	875	
==>tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	774	886	
==>tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrul <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1784	1887	
==>kefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1784	1887	
==>kefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile <==
2	/Users/nnunley/pugs/util/claim_drift.pl	871	970	
==>n = sub { $_[0] = File::Spec->canonpath(File::Spec->rel2abs($_[0])) };

    $clean->($orig);
    $cl <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	100	193	
==>me ) { "$gruß, $name!".say; }
}
#=Aufruf
$welt.hallo("Hallo", "Mike");
$welt.hallo("Tach", "O <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6327	6455	
==>"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6327	6455	
==>"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4754	4857	
==>p://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4754	4857	
==>p://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simplif <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1077	1211	
==>n start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write o <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1077	1211	
==>n start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# TODO - reuse map() to write o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	245	356	
==>oes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	245	356	
==>oes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13408	13520	
==>Text" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13408	13520	
==>Text" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13529	13636	
==>(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13529	13636	
==>(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($cla <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3925	4031	
==>ode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string> <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3925	4031	
==>ode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string> <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4282	4390	
==>okens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4282	4390	
==>okens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8947	9061	
==>ce_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9005	9119	
==>ce_todo_test_junction = undef;
    $Test::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12841	13057	
==>ernation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13120	13336	
==>ernation( [
                   ruleop::constant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	766	880	
==>- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	766	880	
==>- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1203	1308	
==>_param;

    return $param;
}

sub enter_scope {
	my $self = shift;

	push @{ $self->{param_count_stack} } <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11466	11557	
==>olspan="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	145	252	
==>nd some stuff stolen from prove, too.)

# Please improve me!
#
# TODO:
# 1. Modularize this.
# 2. Get to wor <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1983	2068	
==>ondie::TypeSafe::Annotator;
	use base qw/Blondie::Reducer Blondie::Reducer::DynamicSco <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	333	499	
==>= $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	333	499	
==>= $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16002	16100	
==>ill be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a logic <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16002	16100	
==>ill be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a logic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	300	395	
==>(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	300	395	
==>(q( \S+ ))->code;
*rule_name = Pugs::Compiler::Rule->compile(q( \w+ ))->code;
*block = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3480	3582	
==>P::Request::CGI object).  The following methods are delegated
to the query object:

=over 8

=item C<pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3480	3582	
==>P::Request::CGI object).  The following methods are delegated
to the query object:

=over 8

=item C<pa <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	658	828	
==>t -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	658	828	
==>t -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7018	7124	
==>le:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7030	7136	
==>le:\n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11677	11792	
==>rn unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9362	9472	
==>rn unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push @{ $pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5915	6069	
==>get a silly
            ### deep dir structure
            my $target = $dir;
            $target =~ s/^$base//;

            unless( $self->_mkdir( dir => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5312	5488	
==>-$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5312	5488	
==>-$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1731	1952	
==>TER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( { return { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15354	15463	
==>arget" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15354	15463	
==>arget" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7339	7442	
==>contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7339	7442	
==>contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" li <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23353	23442	
==>ent distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23353	23442	
==>ent distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

N <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	126	231	
==>s Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	126	231	
==>s Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7987	8094	
==>ize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7987	8094	
==>ize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4053	4150	
==>om top level.
    my $base_path = Cwd::abs_path($FindBin::Bin);
    unless ( Cwd::abs_path(Cwd::cw <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5216	5322	
==>"use Perl6::Run::OnPerl5::X1::Api; use utf8; use Error qw(:try); $p5";
}

NODE PIL_Environment ($pilGlob, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2026	2165	
==>} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2906	3045	
==>} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_requires, $self->requires) );

    # m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19089	19236	
==>g = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on yo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3647	3750	
==>cross-referenced P6 design documents\n";
} else {    
    read_designdocs($syn_src_dir);
    print "P6 d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14501	14602	
==>name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14501	14602	
==>name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12985	13083	
==>rns negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string represen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12985	13083	
==>rns negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string represen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5798	5940	
==>bel};
        },        
        'get_method_list' => sub ($$) {
            my ($self, $label) = @_;
            keys %{::opaque_instance_attr <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	233	357	
==>r type literals

# second part is the object model for a lambda calculus, and a type inferrencer

# the algorithm implemented <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1216	1320	
==>str( $_[0], '$<ident>' );
    return "require $ident;\n";
}
sub node::use_bareword {
    my $ident = get_ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1155	1246	
==>h = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{loc <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1155	1246	
==>h = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{loc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3547	3644	
==>se Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3547	3644	
==>se Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3196	3338	
==>e;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESC <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3196	3338	
==>e;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	469	581	
==>ar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	469	581	
==>ar cipher where all bytes are changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10337	10458	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10616	10737	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       rule <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	395	494	
==>digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	471	570	
==>digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26953	27179	
==>subclass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13659	13768	
==>ss => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2986	3178	
==>cure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2986	3178	
==>cure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11162	11252	
==>', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11162	11252	
==>', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item B<redirect (Str <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6649	6765	
==>rsion of the package name.
        if ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
            open PKG <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4903	5068	
==>y, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5367	5532	
==>y, 'ARRAY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5426	5545	
==>b ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5426	5545	
==>b ($x) { - &{ $set.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1025	1117	
==>smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smokeserv <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12776	12883	
==>trd_mnt/lib\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { "$initrd_mnt/lib/" . basena <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	610	724	
==>{
		$orginal = $1;
		$sub = $2;
		if ($sub =~ /$regex/) {
			"warn 'Filtered:$sub';\nuse Smart::Comments;\n" . $org <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2133	2249	
==>- weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unless defined $. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2133	2249	
==>- weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unless defined $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1688	1797	
==>mar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1828	1937	
==>mar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::em <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1215	1467	
==>eating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1215	1467	
==>eating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key (Str $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13808	13943	
==>atch = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13808	13943	
==>atch = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7825	7928	
==>= \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7813	7916	
==>= \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[1]     if ( \$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6228	6333	
==>EFCNT_dec current value */
    r->substrs->data[0].substr = SvREFCNT_inc(callback);

    /* Try to scare o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4446	4545	
==>AKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makef <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6228	6336	
==>t_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6228	6336	
==>t_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single sp <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	159	295	
==>ount too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($coun <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	159	295	
==>ount too low case.
    return _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($coun <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29181	29299	
==>TODO

Provide a way of running tests quietly (ie. no printing) for automated
validation of tests.  This will probably t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9986	10093	
==>ist $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 ' <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9986	10093	
==>ist $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1971	2081	
==>dy = $_[0]{named_capture_body}();
          $body->{ident} = $_[0]{ident}();
          return { named_capture = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3200	3309	
==>radians, $base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radians / (2*pi) * <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	261	370	
==>e dates
my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $filename));
# print "up to date: $pmc_is_uptodate\n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7516	7629	
==>ns.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7516	7629	
==>ns.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normali <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6961	7099	
==>ode =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6949	7087	
==>ode =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20481	20585	
==>ms do or
might have, and lets you arrange the list in order of preference.  When you
open a program, it w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20481	20585	
==>ms do or
might have, and lets you arrange the list in order of preference.  When you
open a program, it w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3086	3204	
==>a.
The encipherer closure can be called with a string, and should be called at the 
end of enciphering with zero argume <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3086	3204	
==>a.
The encipherer closure can be called with a string, and should be called at the 
end of enciphering with zero argume <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5502	5600	
==>:Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13827	13932	
==>ield in turn.  The callback routine
is called with two parameters; the name of the field and a single
valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13827	13932	
==>ield in turn.  The callback routine
is called with two parameters; the name of the field and a single
valu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12889	12983	
==>ool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12947	13041	
==>ool :$todo, Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8532	8652	
==>, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8520	8640	
==>, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5160	5281	
==>op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _open => $(), } }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	912	1013	
==>0]),
    bool => \\$bool, match => \\@match, named => {}, capture => \\undef,
  }, 'Pugs::Runtime::M <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4692	4787	
==>($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4692	4787	
==>($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1538	1645	
==>ine ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newlin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1538	1645	
==>ine ~= $protocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newlin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16709	16813	
==>o Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16709	16813	
==>o Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11909	12032	
==>ntities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11909	12032	
==>ntities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7388	7524	
==>_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7376	7512	
==>_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40061	40320	
==>h')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19610	19860	
==>h')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1018	1134	
==>eval($p5);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help();
    wh <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9407	9547	
==>0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9407	9547	
==>0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5802	5906	
==>lar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5802	5906	
==>lar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7406	7543	
==>= 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7599	7736	
==>= 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8523	8619	
==>erpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8523	8619	
==>erpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10461	10571	
==>L SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => sub {...}, complement_next => sub { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10461	10571	
==>L SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => sub {...}, complement_next => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12499	12602	
==>ons will eval a code snippet, and then pass the result to is or ok
on success, or report that the eval w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12557	12660	
==>ons will eval a code snippet, and then pass the result to is or ok
on success, or report that the eval w <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	691	825	
==>sh = $self->{MM};
        my $mm = shift;
        $mm->SUPER::init_INST(@_);
        for (keys %$hash) {
            $mm->{$_} = $hash- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8847	8957	
==>self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($la <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8847	8957	
==>self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($la <==
2	/Users/nnunley/pugs/util/version_h.pl	420	519	
==>ecause
# that is only updated when the file in which the keyword appears
# is modified.
my $revision <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16616	16712	
==>ethod join (Relation::Example *@others) returns Relation::Example {

    # First do some optimizi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16009	16115	
==>,E0,_)
  -> rm(Ra,F0,F1,B0,B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0,E1).

rm(lookahead(Re),F0,F0,B0,B0,E0,E0)     : <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	545	637	
==>e p5 compatible regex engine, that establishes feasiblity.
# Limited testing suggest performa <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	285	406	
==>trs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	285	406	
==>trs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6788	6887	
==>lement, an event is fired, the first argument to all these events is
the C<$event_type> (header, lis <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6788	6887	
==>lement, an event is fired, the first argument to all these events is
the C<$event_type> (header, lis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	616	733	
==>o { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_rev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	616	733	
==>o { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_rev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9782	9885	
==>eeded, even if the return
value is undefined.

Rosetta::Model's input validation is performed over 2 mai <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9782	9885	
==>eeded, even if the return
value is undefined.

Rosetta::Model's input validation is performed over 2 mai <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	262	369	
==>f defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pushes a given $callback t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14045	14141	
==>ne?

Possible next steps:

  Get per-package hooks working.

Notes:

  http://perl.plover.com/Rx/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1792	1917	
==>itrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1792	1917	
==>itrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn't exist yet <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1504	1601	
==>_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1504	1601	
==>_path );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10385	10505	
==>'test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ ex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10385	10505	
==>'test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14382	14533	
==>$!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field(' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14382	14533	
==>$!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field(' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9611	9717	
==>ast_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9611	9717	
==>ast_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3318	3446	
==>atch functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, ref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3329	3457	
==>atch functions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2186	2311	
==>capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2174	2299	
==>capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        em <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5693	5813	
==>t ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


# copied from S29draft.pod r8593.
multi Array::unshif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3560	3664	
==>>compile(<<'RULE')->code();
 
    \=[pod|head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15561	15685	
==>riables created in the binding
let: generic_in($.is) = { generic_in($$) }
let: generic_in($.in) = { generic($.is) }
let: gene <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1801	1952	
==>ndexing '" . basename($meta) ."'\n";
        
        my $href = LoadFile( $meta );    
        
        ### add location to the metadata
        ### lo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	4	105	
==>kage Pkg_re_tests;
use strict;

our $bl;  # this is questionable.


# verbatim from perl-5.9.2/t/op/re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6794	6896	
==>n";

__END__
my $m = match($Perl_prog,<<'END'); print Dumper $m; print $m->describe;
token whitespace:< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1298	1390	
==>de =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c_code = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2923	3114	
==>box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2923	3114	
==>box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	989	1089	
==>LSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	989	1089	
==>LSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	639	762	
==>sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "ab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	736	859	
==>sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "ab <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2206	2380	
==>lways
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2206	2380	
==>lways
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, has <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11524	11648	
==>directional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs::Intern <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1794	1911	
==>en temp prelude ($TEMP_PRELUDE): $!"; 
    my $program = do { local $/; <IN> };
    close IN;

    strip_comments($pro <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	73	215	
==>lt of all the listed cookbook files
# to some expected set of results
# later it can be modifed to be somehow incorporated in the test suit

us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3853	4059	
==>n sub {
        $_[3] = bless \{ 
                bool  => \1,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $_[5]),
                named => {} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8146	8275	
==>derr,"api 13\n");*/
      if(ret != 4) {
        fprintf(stderr,"api 13 violation\n"); exit(0);
      }
      pat = POPs;
      np <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10250	10446	
==>new(
                symbol->new("&dispatcher", q<block>)
            ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->get("&dispatcher")- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3977	4160	
==>_z => sub { $z },
        set_z => sub {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3610	3742	
==>match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3750	3882	
==>match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1847	1957	
==>tements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1847	1957	
==>tements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast->{ta <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5039	5139	
==>\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_ru <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1316	1415	
==>b_main/$table{$1} b_main/m;
	$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c_code =~ s/int main \(\) {.*?}// <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21097	21197	
==>t in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21097	21197	
==>t in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to header( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	186	441	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	186	441	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3901	4032	
==>al { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4041	4172	
==>al { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8822	8949	
==>l;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8810	8937	
==>l;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3708	3813	
==>S

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3708	3813	
==>S

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2319	2431	
==>ues, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2319	2431	
==>ues, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5943	6041	
==>ny method for speed--although they should be careful to avoid changing the 
actual semantics.

Plea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5943	6041	
==>ny method for speed--although they should be careful to avoid changing the 
actual semantics.

Plea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1068	1161	
==>se constant RPe_NULNUL => --$ENUM, '%s matches null string many times';
use constant RPe_NESTE <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	404	628	
==>'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	404	628	
==>'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'pa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1078	1187	
==>nonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless subst <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1078	1187	
==>nonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless subst <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1550	1668	
==>print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1550	1668	
==>print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16081	16186	
==>hich the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16081	16186	
==>hich the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	125	224	
==>se fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	125	224	
==>se fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1763	1872	
==>rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1763	1872	
==>rule>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = s <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1470	1599	
==>->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1437	1566	
==>->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3974	4095	
==>the contents of a file

=cut

sub _get_file_contents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmp <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5158	5265	
==>n of ghc passed to it.

    my $test_ghc_ver = sub { 
        (`$_[0] --version` =~ /\bversion\s*(\S+)/s)[0] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	413	513	
==>pends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	413	513	
==>pends on finishing Set::Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2077	2170	
==>e encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2], <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2077	2170	
==>e encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2], <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19347	19454	
==>cal other
vendor's DBMS) is that data definition statements are structured as
standard data manipulation sta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19347	19454	
==>cal other
vendor's DBMS) is that data definition statements are structured as
standard data manipulation sta <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1177	1330	
==>fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1177	1330	
==>fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12912	13044	
==>est),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12912	13044	
==>est),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2694	2790	
==>mar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warning <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2694	2790	
==>mar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warning <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9970	10064	
==>is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9970	10064	
==>is copy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	305	407	
==>etta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	305	407	
==>etta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1939	2155	
==>d $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1939	2155	
==>d $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	40	140	
==>imental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	40	140	
==>imental implementation of p6-regex parser
#

use strict;
use warnings;

use Data::Dumper;

require 'i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	186	438	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	186	438	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3565	3672	
==>ne) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3565	3672	
==>ne) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3929	4030	
==>---------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3929	4030	
==>---------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6702	6823	
==>n0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6702	6823	
==>n0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6466	6558	
==>fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->b <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11524	11616	
==>fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, 'Bar->b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16584	16702	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16863	16981	
==>le->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()< <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	118	212	
==>use Scalar::Util 'blessed';

$::TestBuilder = undef;

$::TestBuilder = class 'TestBuilder' => { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12697	12783	
==>lose),
  p6_named_character_tail(Name,Close), !, uncode_charname_to_char(Name,C), !.
p6 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16055	16172	
==>s in the Document object given in the named parameter $document, and
whose Node Type attribute is set from the named p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16055	16172	
==>s in the Document object given in the named parameter $document, and
whose Node Type attribute is set from the named p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5064	5171	
==>ed as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The sa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5064	5171	
==>ed as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The sa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17276	17382	
==>compilers gives you the following benefits:

=over

=item *

Ability to mix many source filterish modules i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17276	17382	
==>compilers gives you the following benefits:

=over

=item *

Ability to mix many source filterish modules i <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	693	910	
==>);
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	693	910	
==>);
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3786	3904	
==>mple is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but o <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3079	3178	
==>of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3079	3178	
==>of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	309	467	
==>d parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	309	467	
==>d parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2788	2917	
==>t ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

macro trig_func($func) {
    '
 multi Num::'~$f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2764	2913	
==>rt};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # upd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2764	2913	
==>rt};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # upd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4306	4467	
==>{ return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4306	4467	
==>{ return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.content_type // "";
            
            if ($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	419	547	
==>d;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# ch <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	541	657	
==>d;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# ch <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5264	5419	
==>xpr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5264	5419	
==>xpr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2941	3046	
==>t>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2941	3046	
==>t>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if a <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14114	14212	
==>evan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You mig <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14114	14212	
==>evan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You mig <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1209	1395	
==>Alternative link dir                                                    
$Metaext        = '.info';                          # Extension for meta files
$Metafile       = 'META' . $Metaext <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4821	4964	
==>se
    {
      if ( exists $escape{$initchar} )
      {
        if ( not $isnegated and (length $initchar < 2))
        {
          goto term_li <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15567	15672	
==>recursive, they will easily be
able handle arbitrarily complex data structures automatically (at least
tha <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15625	15730	
==>recursive, they will easily be
able handle arbitrarily complex data structures automatically (at least
tha <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1615	1713	
==>:Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugi <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1615	1713	
==>:Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4463	4558	
==>heir output to STDOUT (details above).  It prints
out each individual test which failed along wi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4776	4970	
==>inue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4776	4970	
==>inue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26516	26614	
==>you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26516	26614	
==>you wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9656	9767	
==>se_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9656	9767	
==>se_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	556	656	
==>ugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.hask <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	556	656	
==>ugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.hask <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19685	19785	
==>a superset of the Set operators.

Like the Set data type, the Relation data type is immutable.  The v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24237	24337	
==>a superset of the Set operators.

Like the Set data type, the Relation data type is immutable.  The v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	186	444	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validato <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	186	444	
==>nt values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validato <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3881	3985	
==>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username host <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3881	3985	
==>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username host <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16079	16199	
==>od _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19556	19676	
==>od _semijoin (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1569	1665	
==>{
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1569	1665	
==>{
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3844	3945	
==>st>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3844	3945	
==>st>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12079	12187	
==>$meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12079	12187	
==>$meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12597	12694	
==>orking features.

This module deals with encoding and decoding of strings with HTML
character enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12597	12694	
==>orking features.

This module deals with encoding and decoding of strings with HTML
character enti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2553	2656	
==>eturns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return(" <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2553	2656	
==>eturns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20901	21032	
==>,
      nparen => $nparen,
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    ($self->{flags} & $self->{rx <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	677	779	
==>ndie::Node")
		or die "it doesn't look like $node is a piece of a Blondie program.";

   	$node->fmap(s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8842	8954	
==>eck $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8842	8954	
==>eck $self.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13674	13772	
==>ctice" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&proce <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13674	13772	
==>ctice" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&proce <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21089	21205	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17510	17626	
==>next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-behind p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1703	1804	
==>> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see threa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1703	1804	
==>> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet accepted, see threa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8933	9038	
==>ee

You can access the root of the tree with the root() method:

  my $root = $parser->root;

It will be a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30234	30332	
==>sage Variables, which will be substituted at run-time before the text
is shown to the user.

Each T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30234	30332	
==>sage Variables, which will be substituted at run-time before the text
is shown to the user.

Each T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4055	4206	
==>)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4055	4206	
==>)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3171	3347	
==>),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3182	3358	
==>),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	678	779	
==>ON

A C<Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one pr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	678	779	
==>ON

A C<Perldoc::DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one pr <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2613	2895	
==>ine ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2613	2895	
==>ine ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= chomp;
                        %events<start_e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26349	26446	
==>sh itself is copied on input and output, any
variable values which are references will be passed b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26349	26446	
==>sh itself is copied on input and output, any
variable values which are references will be passed b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17069	17183	
==>ndif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22169	22283	
==>ndif

I don't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	323	429	
==>h of various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot current <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	323	429	
==>h of various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot current <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	665	785	
==>k>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	665	785	
==>k>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1379	1489	
==>ncatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1379	1489	
==>ncatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.csta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1748	1857	
==>his role uses syntax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1748	1857	
==>his role uses syntax which is not yet accepted, see thread "Syntax for
specifying role parameters" on p6l.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23849	23977	
==>p::Parser::ifthen;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{fl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9694	9804	
==>ow we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.parent( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9694	9804	
==>ow we need to bubble up through the parents 
    # in order to rectify any issues with height
    $self.parent( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12091	12187	
==>pipe. Potenially dangerous. Uses the shell.
    # Please remember to update t/pugsrun/11-safemode <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20019	20113	
==>d and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
dis <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20019	20113	
==>d and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
dis <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7894	7988	
==>rated.

What is returned at each element of the iteration varies with function.
C<values> retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	997	1120	
==>n 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * p <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	997	1120	
==>n 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13380	13508	
==>);
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13374	13502	
==>);
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = subs <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3993	4096	
==>parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given va <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3993	4096	
==>parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4538	4640	
==>hering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the giv <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4538	4640	
==>hering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the giv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17210	17308	
==>_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17210	17308	
==>_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or th <==
2	/Users/nnunley/pugs/util/func_refact.pl	1715	1833	
==>or my $t (@{$nodes->{$f}}) {
                next if $set->{$t} or $ignoring{$t};
	        print "unionising $new: addi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	848	963	
==>, 
    infix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain => <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3131	3263	
==>52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]> <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3131	3263	
==>52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	58	152	
==>mit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# Exte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	58	152	
==>mit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# Exte <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13274	13485	
==>opaque is our default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1835	1985	
==>>[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = $match->{st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1774	1921	
==>>[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{st <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1131	1272	
==>rrent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1131	1272	
==>rrent_tree);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7129	7235	
==>ny modifiers).

=item I<end_element ('header')>

This event is fired after the '=head(n)' directive and it' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7129	7235	
==>ny modifiers).

=item I<end_element ('header')>

This event is fired after the '=head(n)' directive and it' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5775	5874	
==>y is to return a negative value for
# relative seconds and a positive value for epoch based time val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5775	5874	
==>y is to return a negative value for
# relative seconds and a positive value for epoch based time val <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3243	3340	
==>,X), Z), !.
p6_conjunctions(W, W) --> {true}.


p5_concatenation(Z)    --> p5_quantified(W), p5_co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7370	7474	
==>handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7370	7474	
==>handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6269	6361	
==>es/piln_object_repr_types.pod r8593.
multi method Array::as_int (@array:) returns Int {
    + <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8319	8427	
==>ence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page c <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8319	8427	
==>ence(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this manual page c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7816	7931	
==>ndency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1117	1232	
==>ndency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	628	729	
==>turns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	628	729	
==>turns Array is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7367	7468	
==>as kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7367	7468	
==>as kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$ch <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	566	679	
==>);
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	566	679	
==>);
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	754	859	
==>ay is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	754	859	
==>ay is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@path) returns St <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29269	29373	
==>r that returns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mappi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33821	33925	
==>r that returns a new Relation
which is the same as the invocant Relation but that some of its
tuple/Mappi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37046	37172	
==>s these utility methods, which are all used by
translate_message() to handle the trickier parts of its work:

=over

=item C<te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37046	37172	
==>s these utility methods, which are all used by
translate_message() to handle the trickier parts of its work:

=over

=item C<te <==
2	/Users/nnunley/pugs/util/run-smoke.pl	688	786	
==>";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->lookup('smoke_u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	247	370	
==>use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	245	368	
==>use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5912	6026	
==>plemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5900	6014	
==>plemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1657	1762	
==>[];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1657	1762	
==>[];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_nod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16105	16201	
==>pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loading <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16105	16201	
==>pmc> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loading <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39617	39735	
==>rdless of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so tha <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13059	13158	
==>ht be non-trivial, as only some forms of redefinition
  make its magic not stick.

  The implementat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1560	1691	
==>name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Pack <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4763	4894	
==>name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->package() =~ $Pack <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1279	1392	
==>}

  if(not $CGI->param("smoke")) {
    print "No smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CG <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2389	2498	
==>_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = subst <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2389	2498	
==>_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = subst <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13568	13661	
==>t1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13568	13661	
==>t1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5222	5338	
==>umfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5222	5338	
==>umfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1973	2119	
==>se, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1973	2119	
==>se, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2859	3012	
==>ed
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3043	3196	
==>ed
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1495	1616	
==>mpile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^--pugs/;
    shift( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5018	5139	
==>t( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $nu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5018	5139	
==>t( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $nu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2106	2216	
==>{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2106	2216	
==>{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9606	9709	
==>hat Rosetta::Model indicates a failure is to throw an
exception; most often this is due to invalid input <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9606	9709	
==>hat Rosetta::Model indicates a failure is to throw an
exception; most often this is due to invalid input <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2608	2741	
==>}

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2608	2741	
==>}

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1297	1403	
==>.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support ` <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1297	1403	
==>.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support ` <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7391	7491	
==>l, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7391	7491	
==>l, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1862	1992	
==>as Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1862	1992	
==>as Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29767	29895	
==>s Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, con <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29767	29895	
==>s Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, con <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6771	6888	
==>andle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing match, I should
i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6771	6888	
==>andle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing match, I should
i <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	457	576	
==>commends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11029	11136	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11087	11194	
==>r $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got, Rule $expected, Str $desc?, Bool :$t <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	113	216	
==>unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($coun <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	113	216	
==>unless $code.isa("Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($coun <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1486	1584	
==>->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1486	1584	
==>->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_nam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10885	11010	
==>.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10885	11010	
==>.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7724	7903	
==>$content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "In <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7724	7903	
==>$content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "In <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8652	8776	
==>ent<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8652	8776	
==>ent<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %us <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10909	11005	
==>be set if this recurrence is a "universal set".
Otherwise the program will emit warnings during t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10909	11005	
==>be set if this recurrence is a "universal set".
Otherwise the program will emit warnings during t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36746	36846	
==>nd Member properties; if none
could be matched, this method returns undef.  This method could be
cons <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36746	36846	
==>nd Member properties; if none
could be matched, this method returns undef.  This method could be
cons <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7594	7705	
==>map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7594	7705	
==>map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1312	1414	
==>e $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1312	1414	
==>e $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32443	32540	
==>cant relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36993	37090	
==>cant relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	350	460	
==>ially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	350	460	
==>ially built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2281	2411	
==>'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2292	2422	
==>'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3384	3477	
==>at
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3384	3477	
==>at
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, where
C<$r> is the H <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	250	380	
==>sive-decent engine, generated from the
# regexp ast nodes created by Regexp::Parser.

# It looks like the ("A feasibility and perfo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1743	1859	
==>re
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1743	1859	
==>re
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4671	4826	
==>dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4671	4826	
==>dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7433	7558	
==>r' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_ord <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7433	7558	
==>r' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_ord <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19022	19154	
==>ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19301	19433	
==>ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $mat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2641	2776	
==>{
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components tha <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2641	2776	
==>{
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components tha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7556	7718	
==>f ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7568	7730	
==>f ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1002	1114	
==>ess defined $val;
    return $val;
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($index) && $i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4546	4644	
==>Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4546	4644	
==>Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2612	2743	
==>>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2612	2743	
==>>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselv <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4395	4523	
==>=>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4395	4523	
==>=>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        universe =>            $self. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9763	9887	
==>sfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wanted st <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11240	11364	
==>sfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wanted st <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2568	2656	
==>.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/per <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2568	2656	
==>.perl.org/group/perl.perl6.compiler> and available via NNTP at
L<nntp://nntp.perl.org/per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16821	16919	
==>n executable, in practice one would
normally just write some components of their application in Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16821	16919	
==>n executable, in practice one would
normally just write some components of their application in Ros <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34863	34961	
==>r object does not permit changes to its attributes;
they must all be set when the object is constru <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34863	34961	
==>r object does not permit changes to its attributes;
they must all be set when the object is constru <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8537	8648	
==>re supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8537	8648	
==>re supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	243	358	
==>hod dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "wa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	243	358	
==>hod dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "wa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	519	626	
==>essing instructions may sub-class this module or
provide special behaviour when a property is set.  If we ev <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	519	626	
==>essing instructions may sub-class this module or
provide special behaviour when a property is set.  If we ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2786	2895	
==>basic interface, and if you'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2683	2789	
==>basic interface, and if you'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	700	898	
==>_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	700	898	
==>_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2763	2864	
==>ler could work as the

basic interface, and if you'd like to offer more, subclass

it and call it Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2661	2760	
==>ler could work as the
basic interface, and if you'd like to offer more, subclass
it and call it Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15387	15516	
==>n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{exp1} );
        $na <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18179	18281	
==>o give input to a search,
and to get back match results.

Our objective here is to see if it is possibl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2864	2973	
==>a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit run <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2864	2973	
==>a piece of Perl code to do a runtime check to see if the
# .pmc file is fresh.  By default we use a 32-bit run <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	64	156	
==>';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	64	156	
==>';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11688	11811	
==>}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11688	11811	
==>}

=kwid

= NAME

Span - An object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3277	3536	
==>pture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3149	3395	
==>pture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3341	3464	
==>nings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	112	235	
==>nings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10530	10635	
==>revious()`, `current()`, and `reset()` methods.

If the set is "continuous", this method emits a warning a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10530	10635	
==>revious()`, `current()`, and `reset()` methods.

If the set is "continuous", this method emits a warning a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2500	2629	
==>ct;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_M <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1657	1777	
==>ct;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_M <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2123	2235	
==>Meta::Class - Entities in the Perl 6 language model (M2)

=head1 SYNOPSIS

 my $role_mc = Meta::Class.new("Role") <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	321	420	
==>scriptions* for it, and converting them to *notifications* when they match
# asking the notification <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	55	150	
==>nt_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instructi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	55	150	
==>nt_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instructi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14724	14819	
==>nitrd.gz
clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$splashscreen => "$cdroot/boot/spla <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5961	6068	
==>Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is to <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5961	6068	
==>Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12860	12957	
==>edText -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12860	12957	
==>edText -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Local <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19075	19224	
==>char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parentheses */

=head2 The match result:

  I3 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14907	15024	
==>char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of parentheses */ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7444	7565	
==>turns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7444	7565	
==>turns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10183	10306	
==>ad = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return str <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10183	10306	
==>ad = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return str <==
2	/Users/nnunley/pugs/util/drift.pl	1467	1576	
==>It's stupid!)
    print OUT $_;
}
print OUT @scary_header;
my $module;
while (<IN>) { 
	if (/^module \s+ (\S*) <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	365	483	
==>{
            +shift->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless(\%args, $clas <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5182	5360	
==>didate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5646	5824	
==>didate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5859	5990	
==>fine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5859	5990	
==>fine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3226	3407	
==>on,
                    )
                );
            }
        },        
        'skip_all' => sub {
            confess 'Cannot skill_all with a plan' if defined _('$.testplan' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3601	3698	
==>------------------------

# Utility to test that "No method found" error is raised

sub fails_ok ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5503	5600	
==>------------------------

# Utility to test that "No method found" error is raised

sub fails_ok ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18111	18228	
==>eader}++;

    warn "1..M can only appear at the beginning or end of tests\n"
      if $totals->{seen} && 
         $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1559	1695	
==>scaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1495	1627	
==>scaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22326	22430	
==>join('::',@parts);
    }
    $mn = $ROOT."::".$mn if $is_absolute_name;
    $mn = $pkg."::".$mn if !$is_a <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4490	4593	
==>ex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4490	4593	
==>ex(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5368	5515	
==>$dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5368	5515	
==>$dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	486	583	
==>t does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::J <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	486	583	
==>t does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::J <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1449	1576	
==>less defined \$_[0];\n" .
        #"    print 'GRAMMAR: \$grammar', \"\\n\";\n" .
        "    package Pugs::Runtime::Rule;\n" . <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8559	8646	
==>s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) --> "x", p5_modi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19768	19871	
==>ion will also be kept due to its more
dynamic capabilities.>

I was inspired to have this organization p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19768	19871	
==>ion will also be kept due to its more
dynamic capabilities.>

I was inspired to have this organization p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3133	3237	
==>ms'))
        || confess "Bad params in signature";
    $options{returns} = 'type' if !(exists $options{r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14747	14861	
==>en a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span wit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14747	14861	
==>en a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Creates a span wit <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17682	17837	
==>found;
                if ($regex) {
                    # we're skipping forward till we find a regex
                    my @stuff = $h->look_down(sub {$_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	991	1094	
==>r_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	991	1094	
==>r_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1285	1437	
==>eth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving e <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1285	1437	
==>eth = 'yesterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15541	15642	
==>tem C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15541	15642	
==>tem C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	565	717	
==>h @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	565	717	
==>h @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6422	6522	
==>new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DES <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6422	6522	
==>new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DES <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1435	1544	
==>,Hash %x,Int $cap?) returns Array is export{
    my @matches;
    for %x.kv->$key,$value{
        if $value eq <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30290	30395	
==>equal_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24108	24231	
==>CUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20529	20652	
==>CUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1639	1766	
==>" . $class->id . " [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses')) { # roles don' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32895	32988	
==>vity.  The headings are object I<classes>.  The field
"family" represents the general category <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6750	6864	
==>e => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6750	6864	
==>e => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1245	1400	
==>);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCR <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1245	1400	
==>);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCR <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18035	18151	
==>on :words {  # see 11.11
      <LogicalANDExpression>
    | <LogicalORExpression> <'||'> <LogicalANDExpression>
}
rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	960	1043	
==>>compile(<<'RULE')->code();

	$<op>:=(if|unless)<?p6ws>?\(<?p6ws>?$<condition>:=(<te <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10333	10439	
==>y($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%optio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10333	10439	
==>y($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $self = $class.new(*%optio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1008	1126	
==>l($self)} ||= $self->compute_digest;
    }

    sub DESTROY {
        my $self = shift;
        delete $DIGEST_CACHE{ov <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	117	212	
==>];

use vars qw[@EXPORT];
use base 'Exporter';

@EXPORT  = Package::Constants->list( __PACKAGE__ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20647	20743	
==>f the default process described above is overridable by
various methods.

=head1 DISTRIBUTION SUP <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20647	20743	
==>f the default process described above is overridable by
various methods.

=head1 DISTRIBUTION SUP <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2832	2988	
==>IXME: needs attention; don't use yet.
}

multi sub caller (Class $kind = Any, Int :$skip = 0, Str :$label)
        returns Control::Caller is primitive is bu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4589	4689	
==>$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4589	4689	
==>$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5530	5707	
==>existing content of the index
        push @$index_content, $meta;
        
        ### XXX do delayed writes, as an explicit ->write() call on the
        ### object, like in JI <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	956	1064	
==>y $dir  = $self->dir or return;

    return $dir->subdir( $self->config->_alternatives );
}

=head2 $file = $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5736	5836	
==>se v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5736	5836	
==>se v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14207	14329	
==>param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1687	1809	
==>param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symb <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1549	1654	
==>ls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1549	1654	
==>ls back into the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rul <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12359	12453	
==>set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12359	12453	
==>set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4824	4937	
==>XX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4824	4937	
==>XX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

Flavio S. Glock, <f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5442	5590	
==>erefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5906	6054	
==>erefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11366	11499	
==>undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7535	7647	
==>== PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @tokenStack;
    $temp2 = pop @operatorStack;
  }
  reduce_1:
  my $a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7107	7209	
==>e only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7107	7209	
==>e only supports HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8411	8516	
==>/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s;
}
sub PIL::PIL1::NodeSet0::NodeRepS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1885	1982	
==>print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$mat <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	44	144	
==>qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	44	144	
==>qw<$VERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	236	337	
==>my $self = shift;
	my $prog = shift;

	my $c = $self->compile($prog);
	my $type_annotated = $self->ann <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21836	21935	
==>usually in the
main program, Locale::KeyedText can be given input that says what resource
files it s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21836	21935	
==>usually in the
main program, Locale::KeyedText can be given input that says what resource
files it s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7596	7700	
==>orization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7596	7700	
==>orization ($self: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1892	2045	
==>tus: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Typ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1892	2045	
==>tus: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1792	1896	
==>($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Function <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1792	1896	
==>($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Function <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3342	3444	
==>s);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- I <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3342	3444	
==>s);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($member);
}
# XXX -- I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	144	284	
==>b alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	144	284	
==>b alternation {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5000	5130	
==>= $last - length( $match );
        my $t;
        if ( exists $ast->{stmt} ) {

            if ( $ast->{stmt} eq 'if' or $ast->{st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26146	26256	
==>ar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	0	108	
==>use v6;

#require URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use M <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	0	108	
==>use v6;

#require URI;

class HTTP::Headers-1.62;

use HTTP::Date;
# XXX port MIME::Base64 and use it!
#use M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3959	4066	
==>x.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4143	4250	
==>x.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1849	1957	
==>AKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamb <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1849	1957	
==>AKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15456	15561	
==>te and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15456	15561	
==>te and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. D <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23614	23713	
==>ta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23614	23713	
==>ta::Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3449	3562	
==>tion( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3449	3562	
==>tion( $set2 );
        @inter = @inter.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11409	11514	
==>r>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11409	11514	
==>r>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7993	8130	
==>rn return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8005	8142	
==>rn return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1326	1440	
==>e ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $director <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1326	1440	
==>e ($directory & $file) &&
        '/' ne (substr($directory, -1) & substr($file, 0, 1))) {
        return $director <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	334	441	
==>ers tail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to vario <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	334	441	
==>ers tail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to vario <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35270	35374	
==>ents, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

This method returns <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35270	35374	
==>ents, which correspond to the 2 named parameters of new().

=item C<get_set_names()>

This method returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6901	7003	
==>is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6901	7003	
==>is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Conten <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2421	2529	
==>[^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, ma <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2421	2529	
==>[^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3551	3657	
==>will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by sett <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3551	3657	
==>will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by sett <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	400	567	
==>quest_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protoco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	400	567	
==>quest_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protoco <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	391	491	
==>it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite becaus <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1249	1349	
==>it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite becaus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9567	9686	
==>, $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    } <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9567	9686	
==>, $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2352	2473	
==>ay ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2352	2473	
==>ay ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1003	1108	
==>r
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1003	1108	
==>r
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident or '') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19649	19746	
==>itself with a server or a
proxy, may do so by including these headers.

=item $h.authorization_bas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19649	19746	
==>itself with a server or a
proxy, may do so by including these headers.

=item $h.authorization_bas <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3408	3510	
==>thod intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3408	3510	
==>thod intersection ($self: $set ) {
    my $universe = $self.get_universe;
    return $self if $set.equa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2070	2204	
==>ult) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $self->{operand};
    my $equal = "r$level";
    $equal = "pars <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9794	9916	
==>ded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9794	9916	
==>ded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method in <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1214	1431	
==>ize);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1214	1431	
==>ize);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=it <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1480	1577	
==>by passing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1480	1577	
==>by passing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	482	590	
==>rser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	493	601	
==>rser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.* <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4372	4481	
==>uthor');
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= $base_path;
    $class =~ s/^\Q$args{p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1002	1097	
==>xistence.  Normally this
# kind of reverse-engineered implicit abstraction kludge would be
# uns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	554	728	
==>stant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	554	728	
==>stant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::cap <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6290	6386	
==>channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6290	6386	
==>channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11497	11603	
==>f C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11497	11603	
==>f C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2346	2468	
==>xt can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2346	2468	
==>xt can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1	100	
==>use v6;

class Tree-0.0.2;

## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1	100	
==>use v6;

class Tree-0.0.2;

## --------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5172	5291	
==>gine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        }, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5172	5291	
==>gine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'file_name' => 'My Data',
        }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	883	1006	
==>r> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	883	1006	
==>r> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5896	6002	
==>);
is($Bar->class, $Class, '... $Bar refs to metaclass');
is($Bar->name, 'Bar', '... $Bar got the right met <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15506	15589	
==>0,Re).

%----------------------------------------------------------------------

rm( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2218	2361	
==>e};
	return 1 if defined $result && $result->has_failed();
    }
    return 0;
}
sub warnings {
    my($self)=@_;
    my $ret="";
    for my $st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2033	2183	
==>e{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            % <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2033	2183	
==>e{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            % <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1139	1237	
==>ift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self-> <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1139	1237	
==>ift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self-> <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3538	3653	
==>&infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3906	4021	
==>&infix:«<=>», *@array --> Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3928	4033	
==>} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3928	4033	
==>} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9972	10065	
==>turns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9972	10065	
==>turns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3098	3197	
==>t headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Lengt <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3098	3197	
==>t headers are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Lengt <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4548	4674	
==>package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5033	5159	
==>package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1490	1591	
==>tionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1490	1591	
==>tionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | < <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31193	31298	
==>t allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Regexp::NoCode;
  use base 'Regexp::Pa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8361	8501	
==>$next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8361	8501	
==>$next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3129	3222	
==>lable options and defaults:
  --kernel-uri=$kernel_uri
    mklivecd.pl automatically fetches a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11860	11963	
==>objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11860	11963	
==>objects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the ma <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16382	16528	
==>reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *subs <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20808	20954	
==>reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *subs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2196	2354	
==>0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2256	2414	
==>0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2260	2358	
==>Basically, the first few bytes of data aren't encrypted well.  If your 
application allows, skip ov <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2260	2358	
==>Basically, the first few bytes of data aren't encrypted well.  If your 
application allows, skip ov <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11857	11999	
==>t, pos, 1
    goto subrule_end
  subrule_text:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	425	513	
==>ass JSX::PseudoValue;
class JSX::InternalValue is JSX::PseudoValue;
class JSX::InternalVa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7252	7346	
==>.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7252	7346	
==>.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9323	9489	
==>&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val->new(''),
            ),
            Ap <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1196	1420	
==>{
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1196	1420	
==>{
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1328	1448	
==>y $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1328	1448	
==>y $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri. <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	990	1193	
==>0] eq ']';
                    push $a, parse( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4938	5065	
==>>
    | <'switch'>
    | <'while'>
    | <'continue'>
    | <'function'>
    | <'this'>
    | <'with'>
    | <'default'>
    | < <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2719	2903	
==>fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2719	2903	
==>fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") },
        end_modi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13708	13809	
==>char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13708	13809	
==>char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3826	3943	
==>ping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7303	7420	
==>ping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8780	8909	
==>s common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8780	8909	
==>s common set operations
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2254	2359	
==>6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

Th <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2254	2359	
==>6-Bible/>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

Th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19995	20105	
==>stem itself, to have the user language data in separate
files (usually XML files I think) from the main program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19995	20105	
==>stem itself, to have the user language data in separate
files (usually XML files I think) from the main program <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3497	3629	
==>= $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3497	3629	
==>= $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # L <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8621	8739	
==>0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8621	8739	
==>0, $span1) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8388	8501	
==>$_[1] capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9669	9768	
==>h.  To restrict the depth to which it reaches, pass walker()
an argument:

  my $iter = $parser->wal <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	636	765	
==>space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $co <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13837	13945	
==>package Regexp::Parser::ifthen;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
#    die Data::Dumper::D <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7680	7817	
==>l ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7680	7817	
==>l ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2329	2457	
==>$set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2329	2457	
==>$set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21226	21326	
==>inant feature is that it provides a
common API for access to those databases, each of which takes a d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21226	21326	
==>inant feature is that it provides a
common API for access to those databases, each of which takes a d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2246	2362	
==>ERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PA <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2246	2362	
==>ERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PA <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	638	755	
==>are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	638	755	
==>are running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1322	1468	
==>s here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1322	1468	
==>s here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2820	2956	
==>.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1442	1578	
==>.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17919	18014	
==>r program handling the request.

=item $h.from

This header should contain an Internet e-mail ad <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17919	18014	
==>r program handling the request.

=item $h.from

This header should contain an Internet e-mail ad <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12774	12870	
==>if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12774	12870	
==>if the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10247	10378	
==>h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The header field
name ($field) is not cas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10247	10378	
==>h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  The header field
name ($field) is not cas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8499	8616	
==>$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8487	8604	
==>$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8607	8715	
==>t<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8607	8715	
==>t<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2874	3014	
==>=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '& <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20047	20130	
==>ase_insensitive_char_eq(C,Ci), !.
rm(class_pos(X),[C|F1],F1,B0,[C|B0],E0,E0) :- clas <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52568	52652	
==>lass->set_attr(symbol->new('@:MRO') => list->new($::Class, $::Module, $::Package, $:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2923	3075	
==>t
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2923	3075	
==>t
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ < <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2187	2297	
==>p->new(
			Blondie::TypeSafe::Annotation->new(
				type => [$from => $to],
				struct_equiv => Blondie::Val->ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5450	5694	
==>d" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7212	7456	
==>d" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("ge <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2014	2113	
==>ode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2014	2113	
==>ode(index(@octect[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	890	1014	
==>atement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	890	1014	
==>atement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3122	3262	
==>n't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3339	3479	
==>n't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15990	16086	
==>ORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Lit <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16048	16144	
==>ORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Lit <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1693	1787	
==>ture {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1693	1787	
==>ture {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1513	1605	
==>unt>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip. <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1513	1605	
==>unt>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http://linux-ip. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2657	2761	
==>ults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal par <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2657	2761	
==>ults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal par <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	323	450	
==>d not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	323	450	
==>d not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add to the <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7223	7312	
==><LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-request>,
L<lwp-mirror>

=cut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7223	7312	
==><LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-request>,
L<lwp-mirror>

=cut <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1399	1509	
==>e})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${foreach_kw}\s*\(((?:\@${re_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19584	19678	
==>$h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19584	19678	
==>$h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a
prox <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5037	5188	
==>ed;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5037	5188	
==>ed;
#     ## QUESTION: How does Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25742	25843	
==>h non-free software components.

Any versions of Rosetta that you modify and distribute must carry pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25742	25843	
==>h non-free software components.

Any versions of Rosetta that you modify and distribute must carry pro <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7822	7924	
==>ignature from S29draft.pod 8651.  In the List section.
# Prim.hs has a different return type.  List ins <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	579	696	
==>?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generates

  (link to wik <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	552	663	
==>?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generates
  (link to wik <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1448	1582	
==>ata) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1448	1582	
==>ata) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    } <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4319	4436	
==>alue""isLazy""isNamed""isOptional"
                             #       "isWritable""paramContext""paramDefault""param <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1351	1480	
==>s" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1351	1480	
==>s" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11262	11370	
==>DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11262	11370	
==>DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7622	7779	
==>= -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= N <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7622	7779	
==>= -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= N <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	551	702	
==>say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	551	702	
==>say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1152	1240	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1372	1460	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1232	1346	
==>int dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	443	556	
==>int dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1706	1807	
==>e reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1706	1807	
==>e reduce()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21069	21185	
==>buted with one or more
resource files containing text for users, and your program would use
associated keys internall <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21069	21185	
==>buted with one or more
resource files containing text for users, and your program would use
associated keys internall <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10620	10741	
==>Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10620	10741	
==>Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	758	860	
==>d Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user tha <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	758	860	
==>d Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user tha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2135	2239	
==>lso
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {... <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2135	2239	
==>lso
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {... <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5857	5998	
==>n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5857	5998	
==>n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11938	12068	
==>oncat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12217	12347	
==>oncat(
         ruleop::constant( "grammar" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1778	1881	
==>ildren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1778	1881	
==>ildren == 0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	612	718	
==>ler::Rule->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory::capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2339	2462	
==>), "\\C[$n]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2002	2090	
==>tp://search.cpan.org/~salva/Language-Prolog-Yaswi-0.08/
and
  Robert D. Cameron for his " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	119	273	
==>rds;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	119	273	
==>rds;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31826	31930	
==>derstands
language B.  Later on, if for example the first library generates an error
message and wants it <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31826	31930	
==>derstands
language B.  Later on, if for example the first library generates an error
message and wants it <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	125	234	
==>&f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.ma <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	125	234	
==>&f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19129	19247	
==>rator, reps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = reps[$P1]
    savereps[$P1] = $P2
    go <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1236	1363	
==>t   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1236	1363	
==>t   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1798	1939	
==>is class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1798	1939	
==>is class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1933	2049	
==>->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1933	2049	
==>->sig(@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11207	11341	
==>l .= qq ( -e '$prog' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{progfile}");
    } else <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16647	16769	
==>turn {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16647	16769	
==>turn {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	474	612	
==>s
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	474	612	
==>s
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1675	1774	
==>"/etc/terminfo/l/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashsc <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	475	576	
==>ian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    system("pugs na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15223	15327	
==>rously defined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15223	15327	
==>rously defined, such that there
should be no ambiguity when trying to invoke or implement it, and so an
a <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6227	6361	
==>ir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_c <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	698	834	
==>ath;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # as <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	698	834	
==>ath;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # as <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3997	4128	
==>known PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3997	4128	
==>known PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Com <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9252	9339	
==>ton_method('test_iFoo_singleton_method' => sub { 
   '$iFoo::test_iFoo_singleton_method' <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6837	6988	
==>the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser pu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6894	7045	
==>the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	988	1092	
==>) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7209	7319	
==>me eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (split <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7209	7319	
==>me eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (split <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12414	12522	
==>ginal content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12414	12522	
==>ginal content.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	800	901	
==>litpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg): <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	800	901	
==>litpath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg): <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5205	5329	
==>rammar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => $< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5806	5903	
==>xt

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5806	5903	
==>xt

The HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status cod <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	730	876	
==>llsitescript} || $Config{installscript},
        installbin     => $Config{installbin},
        installsitebin => $Config{installsitebin} || $Confi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1179	1316	
==>lan') },
        'plan' => sub {
            my ($self, $explanation, $tests) = @_;
            confess "Plan already set!" if _('$.testpl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36530	36631	
==>e object as its positional
parameter $message and returns an equivalent human readable text message
st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36530	36631	
==>e object as its positional
parameter $message and returns an equivalent human readable text message
st <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3119	3221	
==>ns the directories the resulting relative path
    # must ascend out of before it can descend to $path_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3119	3221	
==>ns the directories the resulting relative path
    # must ascend out of before it can descend to $path_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	868	991	
==>ring.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	881	999	
==>ring.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse1.pm	63	175	
==>m, in this case
# 42. See thread "What do use and require evaluate to?" on p6l started by Ingo
# Blechschmidt, L< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3150	3250	
==>, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3150	3250	
==>, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9844	9970	
==>";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9838	9964	
==>";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2135	2262	
==>\@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* cre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2146	2273	
==>\@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* cre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9321	9411	
==>=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9321	9411	
==>=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style message headers.
The <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9961	10070	
==>tr $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'ME <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9961	10070	
==>tr $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'ME <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	697	792	
==>st operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	697	792	
==>st operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24362	24451	
==>rl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24362	24451	
==>rl@DarrenDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rose <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13337	13435	
==> $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13337	13435	
==> $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	693	796	
==>ir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg): <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	693	796	
==>ir );
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg): <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20263	20359	
==>ker() method is also now abstracted -- each node it comes across
will have its walk() method call <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	562	661	
==>}
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	562	661	
==>}
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9321	9555	
==>or @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shif <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9321	9555	
==>or @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shif <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10156	10242	
==>ed($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
prin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10891	10977	
==>ed($')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
prin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1099	1224	
==>$.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1099	1224	
==>$.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [];
        $. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6585	6701	
==>d should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
co <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6585	6701	
==>d should operate on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10432	10548	
==>b node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10590	10706	
==>b node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24823	24950	
==>object's most important attributes:

  # access to the regex
    # reference to the regex string
    sub Rx :lvalue          { $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11287	11406	
==>calling metaclass method fails';
fails_ok { $iBar->another_singleton_test_on_object } '... instance calling metaclass si <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2305	2412	
==>: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2305	2412	
==>: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stringify ($self: ) returns S <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23854	23974	
==>0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29041	29140	
==>0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	392	487	
==>nchor");
    $optable->addToken("term:^", "term:", "nows", "PGE::Exp::Anchor");
    $optable->ad <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10639	10773	
==>t -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10639	10773	
==>t -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1774	1867	
==>6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

Thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1774	1867	
==>6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3216	3317	
==>t-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The paramete <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3216	3317	
==>t-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The paramete <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1453	1557	
==>";

=pod
https://svn.perl.org/perl6/doc/trunk/design/syn/S06.pod
    bit         single native bit
    in <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3662	3768	
==>delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $top_obj );
    }
}

sub find_e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6047	6438	
==>"$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7809	8200	
==>"$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1946	2053	
==>xcessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1946	2053	
==>xcessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21185	21288	
==>ly.

It is strongly suggested (but not required) that each Perl package which
uses this would come up wi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21185	21288	
==>ly.

It is strongly suggested (but not required) that each Perl package which
uses this would come up wi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	930	1032	
==>sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	930	1032	
==>sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10623	10721	
==>ode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10623	10721	
==>ode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encipherer(C <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	538	638	
==>if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	538	638	
==>if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25779	25886	
==>'c'> <ControlLetter>
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule C <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9641	9742	
==>::reverse (   @values --> Lazy|Str) {
 multi  List::reverse ( *@values --> Lazy|Str) {
   given want { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8049	8191	
==>, $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7775	7909	
==>, $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12502	12601	
==>- Discrete span

This is used to represent ranges of things that can be counted, such as beats per m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12502	12601	
==>- Discrete span

This is used to represent ranges of things that can be counted, such as beats per m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	590	700	
==>$subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	590	700	
==>$subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

sub call_constant {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3402	3501	
==>ed interface

The Cipher API is fundamentally object-oriented; the procedural and functional 
interf <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3402	3501	
==>ed interface

The Cipher API is fundamentally object-oriented; the procedural and functional 
interf <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13808	13914	
==>xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item encode_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13808	13914	
==>xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported by default.

=item encode_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2269	2424	
==>::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2269	2424	
==>::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	269	396	
==>n to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	269	396	
==>n to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	630	740	
==>l on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	630	740	
==>l on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	121	226	
==>is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	121	226	
==>is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> match <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8784	8880	
==>ents

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8784	8880	
==>ents

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<string> <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	788	955	
==>hash) {
            $mm->{$_} = $hash->{$_};
        }
        return 1;
    }
}

sub base_path {
    my $self = shift;
    $self->{_top}{base};
}

sub is_extension_bui <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2435	2555	
==>et;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r864 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1531	1618	
==>::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1531	1618	
==>::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>] <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17810	17999	
==>tuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if (!@stuff) {
                      goto notregex;
                    }
                    # Prefer deeper or ear <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	178	297	
==>Cut");
    $optable->addToken("term::::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term:\\b", "term:", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4285	4410	
==>owing syntactic categories:

         rule rxbackslash:<w> { ... }    # define your own \w and \W
         rule rxassertion:<* <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5701	5838	
==>(Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $con <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5759	5896	
==>(Str $diag) is export {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4623	4728	
==>:', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform h <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4623	4728	
==>:', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2865	2988	
==>n;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accep <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2865	2988	
==>n;
    say "You can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accep <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1528	1618	
==>n { meth_call => $() } }
RULE
*{'sub_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6313	6422	
==>n' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6313	6422	
==>n' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9029	9153	
==>:map (Code $expression ; *@values --> Lazy ) {
   gather {
     while @values {
       take $expression
          .( splice(@ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	487	598	
==>:map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @values {
	    take $expression
		.( splice(@ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	150	290	
==>%!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	150	290	
==>%!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	983	1098	
==>es of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	983	1098	
==>es of a new Node object to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10350	10458	
==>tle (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tests of Set. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10350	10458	
==>tle (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tests of Set. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1118	1238	
==>this is a non
    # issue since even higher order functions get prims instead of thunks when
    # possible

    my $body <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13650	13758	
==>this is a non issue since even higher order functions get prims instead of thunks when possible

    my $body <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1989	2107	
==>ol'))
        || confess "Attribute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        | <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1671	1785	
==>ol'))
        || confess "Attribute names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        | <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1181	1286	
==>rectory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1181	1286	
==>rectory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1060	1166	
==>initions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ termina <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1060	1166	
==>initions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ termina <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1324	1416	
==>:Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1324	1416	
==>:Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21242	21334	
==>tE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21242	21334	
==>tE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5086	5188	
==>recendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->b <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7754	7856	
==>recendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17936	18035	
==>5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via global v <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2295	2394	
==>5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via global v <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	727	838	
==>g::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not i <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	727	838	
==>g::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1035	1183	
==>) }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1035	1183	
==>) }
    }
    push @rule_terms, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1011	1117	
==>", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slig <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1011	1117	
==>", source => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slig <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31446	31552	
==>ping as its sole read-only argument. The new
Relation has all of the same attributes as the original.  Triv <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35996	36102	
==>ping as its sole read-only argument. The new
Relation has all of the same attributes as the original.  Triv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27666	27763	
==>0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Perl's regexes.

The flag handler ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15491	15617	
==>rst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all en <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15491	15617	
==>rst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all en <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22259	22355	
==>ion> library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2077	2259	
==>rs () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  D <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2077	2259	
==>rs () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str {
    return '  D <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7849	7948	
==>c::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESC <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7849	7948	
==>c::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESC <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	356	480	
==>h unless $_[0];
    #print "match pair $_[0]\n";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        match = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12076	12159	
==>ts_total"><span title="<tmpl_var name=total> total"><tmpl_var name=total></span>:</t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4967	5078	
==>tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 hand <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4967	5078	
==>tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 hand <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2222	2386	
==>ft) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method z <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2222	2386	
==>ft) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method z <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2493	2614	
==>($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $coo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2493	2614	
==>($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $coo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2435	2553	
==>OTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_hea <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2435	2553	
==>OTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse_hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3130	3242	
==>ub is ($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !defined $got || !defined $expe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3969	4071	
==>XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3969	4071	
==>XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1573	1686	
==>ld not find message ($message)";
    } => 'Dispatchable';
}

{
    package Dispatchable;
    sub isa { our $AUTOLO <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10146	10248	
==>Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10146	10248	
==>Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	3	127	
==>usr/bin/perl

package Blondie::Reducer::DuplicateFinder;
use base qw/Blondie::Reducer/;

use strict;
use warnings;

use Set:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14243	14384	
==>(!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14237	14378	
==>(!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5085	5217	
==>re} }
    ];
  }

  $tmpl->param(runcores => [
    map {{
      name       => $_,
      categories => $runcores{$_},
    }} sort keys <==
2	/Users/nnunley/pugs/util/func_refact.pl	80	176	
==>tions \our %Conf, qw(help|h nodes|n=s initial=s@ debug=s except=s@);

if ($Conf{help}) {
    prin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6704	6821	
==>&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6704	6821	
==>&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($key) <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	944	1047	
==>rn %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]) <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	944	1047	
==>rn %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5681	5786	
==>l, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5681	5786	
==>l, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	404	510	
==><-[...]>  They are all tagged with
#     #SourceCharacter but not ...
#     But <SourceCharacter> isnt call <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1691	1793	
==>andle left recursive rules, you should
#  create a new grammar, inherit from this one, and redefine jus <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	675	769	
==>e>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	675	769	
==>e>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my $node = Perld <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46874	47030	
==>e('$return' => $nil::NIL);
                $e->get('$label')
                  ->to_str
                  ->is_equal(str->new('{}'))
                  ->and( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7018	7136	
==>plit   safe   (Str: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule)\
\\n   List      pr <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	982	1095	
==>o return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in ou <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	982	1095	
==>o return
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in ou <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15069	15171	
==>the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15069	15171	
==>the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Creates a `Span` obje <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8619	8728	
==>s

=over 4

=item I<start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8619	8728	
==>s

=over 4

=item I<start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9954	10064	
==>h = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9948	10058	
==>h = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9633	9756	
==>ash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9633	9756	
==>ash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13031	13117	
==>of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13031	13117	
==>of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator ("Translato <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7148	7250	
==>tem (TODO) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::Us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7148	7250	
==>tem (TODO) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::Us <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1021	1165	
==>scaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $esc <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1021	1165	
==>scaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $esc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1526	1622	
==>eenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1526	1622	
==>eenExt> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nic <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5197	5377	
==>$array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5197	5377	
==>$array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2048	2199	
==>shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2048	2199	
==>shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2312	2450	
==>d . " -- node_" . $class->id . " [ dir = back, style = solid, color = orange ];\n";       
    } 
    
    $SEEN{$class} = 1;       
    re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1486	1619	
==>,
  'pSubType'    ,'SubType',
  'pSubParams'  ,'[TParam]',
  'pSubLValue'  ,'Bool',
  'pSubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	104	209	
==>ompiler::Regex;
use base qw(Pugs::Grammar::Base);

sub ws {
    my $grammar = shift;
    $_[0] = "" unless <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	880	979	
==>OK';
usage: perl tsanta.pl
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1) <==
2	/Users/nnunley/pugs/util/package-osx.pl	2280	2369	
==>erl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24238	24379	
==>1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24517	24658	
==>1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9647	9753	
==>:todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facili <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9705	9811	
==>:todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This module was built to facili <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1157	1271	
==>ad1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1157	1271	
==>ad1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar->new('Foo');
  
  $gramm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14133	14244	
==>t get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14133	14244	
==>t get a reply.
        if($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7538	7648	
==>_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        sh <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7538	7648	
==>_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        sh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23687	23809	
==>efine REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28902	28997	
==>efine REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13191	13368	
==>tra_Header_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10422	10558	
==>},
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10422	10558	
==>},
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # W <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1286	1418	
==>have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # dependi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4764	4896	
==>have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # dependi <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4847	4994	
==>'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if (@ARGV) {
   @ARGV==5 or Usage();
   $head = shift;
   $tail = shift;
   $rev  = shift;
   $mi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12787	12931	
==>\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { "$initrd_mnt/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	903	1004	
==>Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPORT_O <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5314	5466	
==>"META.yml" ) {
            while (<FH>) {
                last META_NOT_OURS if /^generated_by: Module::Install\b/;
            }
            return $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	620	724	
==>syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-spe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	589	689	
==>syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-spe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1633	1772	
==><@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Tryi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1633	1772	
==><@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Tryi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18426	18512	
==>is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18426	18512	
==>is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curho <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5081	5330	
==>s $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being auth <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4293	4506	
==>s $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being auth <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	384	524	
==>$str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is builtin is primitive {
    if chars($s <==
2	/Users/nnunley/pugs/misc/S29_round.pl	964	1084	
==>( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >  .5 { $x_round = sign($x <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3056	3237	
==>hift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3056	3237	
==>hift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31585	31747	
==>$e->create('$counter' => num->new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	877	986	
==>CRIPTION

This module provides a Perl interface to use the B<libpcre> library for
regular expressions.

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18058	18162	
==>equesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18058	18162	
==>equesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = ' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2745	2871	
==>rsect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2745	2871	
==>rsect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1540	1695	
==>n' => $::TestBuilder->FETCH('::NullPlan')->new());
            }
            else {
                confess "Unknown plan";
            }
            _('$.o <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1820	1903	
==>:Config->lookup('smoke_concurrent') || 1);
push(@yaml_harness_args,'--exclude','Disa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	933	1040	
==>($self->{env});
} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition) && $condition-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14521	14617	
==>hash> returns the same as C<zip(keys %hash; values %hash)>

In Scalar context, they all return th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4394	4497	
==>($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4394	4497	
==>($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17685	17791	
==>code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty after compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17685	17791	
==>code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penalty after compil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8177	8326	
==>sts' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8177	8326	
==>sts' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3579	3689	
==>nal - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3579	3689	
==>nal - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5553	5703	
==>)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $param[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5377	5521	
==>)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $param[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2381	2503	
==>>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2381	2503	
==>>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 D <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	308	449	
==>_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS su <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	308	449	
==>_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18623	18716	
==>ose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
param <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18623	18716	
==>ose key list
('node_type', 'attributes', 'child_nodes') corresponds exactly to the named
param <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1424	1533	
==>h (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1424	1533	
==>h (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5560	5681	
==>>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'implements'>
    | <'pro <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1312	1407	
==>$self->{type} = $type->type;

		bless $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5125	5306	
==>{ 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5125	5306	
==>{ 
                                         $p.parse()($match, $new_continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	911	1013	
==>block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	911	1013	
==>block> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27116	27235	
==>eyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27116	27235	
==>eyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5746	5876	
==>2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5746	5876	
==>2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized ) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2215	2315	
==>t $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2215	2315	
==>t $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identity($x) >>

The identity function.

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35064	35169	
==>that is a clone of the first but for the changes.

=back

A Translator object has these methods:

=over

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35064	35169	
==>that is a clone of the first but for the changes.

=back

A Translator object has these methods:

=over

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6853	6956	
==>- move to module documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6619	6719	
==>- move to module documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21996	22100	
==>g real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *save <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16898	17001	
==>g real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *save <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1620	1768	
==>ent(join(",\n",map{$_->describe}@$v))."\n]";
        } else {
            $vs = $v->describe;
        }
        $s .= "\n  $k => " .$o->_indent_excep <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1356	1476	
==>Makefile.PL).

.
    }       

    open my $fh, $filename or die "open: $filename: $!";
    { local $/; $stream = <$fh> } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	849	957	
==>xport { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub documen <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	849	957	
==>xport { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub documen <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	718	817	
==>his node type keeps the C<source> property, and adds C<content>,
which is the whitespace to be repre <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	718	817	
==>his node type keeps the C<source> property, and adds C<content>,
which is the whitespace to be repre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4779	4891	
==>{
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $rea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4837	4949	
==>{
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $rea <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1738	1834	
==>oduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1738	1834	
==>oduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11945	12055	
==>print join qq[\n], \@INC"`;
    chomp @inc;
    return @inc;
}


=head2 C<_restore_PERL5LIB>

  $self->_restore <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4153	4260	
==>ine\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th li <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	391	488	
==>larity, given the cruft
of wrapping a map and join around the macro string.  But perhaps there
sho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40739	40833	
==>t holders of
Locale::KeyedText would appreciate being informed any time you create a
modified v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40739	40833	
==>t holders of
Locale::KeyedText would appreciate being informed any time you create a
modified v <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	94	200	
==>lass Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $mess <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	94	200	
==>lass Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $mess <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1225	1330	
==>rt of the Module is simply a hash from strings

(symbol names) to objects (containers)



the Code part co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1170	1272	
==>rt of the Module is simply a hash from strings
(symbol names) to objects (containers)

the Code part co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1691	1813	
==>s;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1691	1813	
==>s;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1523	1663	
==>match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1523	1663	
==>match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3890	3992	
==>tches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3890	3992	
==>tches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1108	1240	
==>,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1108	1240	
==>,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	964	1089	
==>e => '--',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1494	1623	
==>cr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1494	1623	
==>cr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13767	13903	
==>ed app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13767	13903	
==>ed app components
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of p <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	439	556	
==>s\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $self = shift;
    goto &{$self->_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2798	2923	
==>t;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2798	2923	
==>t;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if def <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3256	3378	
==>$0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3440	3562	
==>$0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested f <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1246	1349	
==>uses as well.

Log::Selective exports a single function, C<note>, which is called with zero or 
more str <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1246	1349	
==>uses as well.

Log::Selective exports a single function, C<note>, which is called with zero or 
more str <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1968	2091	
==>{
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4681	4810	
==>> $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7404	7533	
==>> $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9036	9142	
==>1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan littl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9036	9142	
==>1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan littl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4277	4386	
==>($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4494	4603	
==>($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6620	6751	
==>upported_p5 = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24167	24275	
==>e execute phase to run lots faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1675	1776	
==>entation for Perl 6.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11799	11972	
==>nt>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12157	12330	
==>nt>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18009	18116	
==>rst thingy
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fst = comb(
	fun => ide("fst <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15554	15667	
==>rce into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    packag <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15554	15667	
==>rce into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    packag <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2790	3053	
==>)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.rea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2790	3053	
==>)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.rea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2837	2942	
==>@basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basec <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2837	2942	
==>@basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1508	1612	
==>h );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( * <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1508	1612	
==>h );
}

sub no_upwards (*@filenames) returns Array is export {
    return &::($worker_pkg)::no_upwards( * <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1334	1518	
==>current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to kee <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1334	1518	
==>current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to kee <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2604	2711	
==>ort keys %$config;
    $template =~ s/#all_fields#/$all_fields/;

    my $all_definitions = join ",\n\t", ma <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4964	5069	
==>ed to uniqueness.

Author:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <mi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	5	96	
==>age Perl6::Core::Type::Equivalence;

use Perl6::Core::Type;

package type::equivalence;

use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11497	11616	
==>}
sub node::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<vari <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5413	5518	
==>) --> {true}.



p5_elemental(group(R))            --> "(?:",  !, p5_start(R), ")".
p5_elemental(standalon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9467	9613	
==>t;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) .
            " { my \$self = shi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23218	23319	
==>kage Perl6::Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = j <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3148	3247	
==>e' ,'unk';
node_a 'Val', 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'V <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34001	34094	
==>anyof_close>

=head2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual ch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3253	3372	
==>X instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir] )                and error($?), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10414	10520	
==>te( sub{ $name(\@_) } )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	566	664	
==>in that keys should produce the same keystream and thus text 
should be enciphered and deciphered t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	566	664	
==>in that keys should produce the same keystream and thus text 
should be enciphered and deciphered t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4629	4774	
==>allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5281	5426	
==>allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3627	3859	
==>),
                        capture => { stmt => '{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar::Operator-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1323	1427	
==>$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1323	1427	
==>$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1639	1802	
==>heme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1639	1802	
==>heme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16384	16476	
==>gramming language named "Rosetta D", which is computationally complete
(and industrial streng <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16384	16476	
==>gramming language named "Rosetta D", which is computationally complete
(and industrial streng <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17624	17727	
==>ternal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17624	17727	
==>ternal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20306	20410	
==>0,E0,E0) :- !.
rm(eosnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5133	5273	
==>r(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5133	5273	
==>r(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3721	3819	
==>really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::ins <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3721	3819	
==>really the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::ins <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17398	17493	
==>elopers and users alike.

For some practical examples of Locale::KeyedText in use, see the /exam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17398	17493	
==>elopers and users alike.

For some practical examples of Locale::KeyedText in use, see the /exam <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11428	11570	
==>$.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11428	11570	
==>$.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5424	5516	
==>./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5424	5516	
==>./add_handler("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick <==
2	/Users/nnunley/pugs/util/addauthors.pl	31	151	
==>se strict;
use IO::File;
use Data::Dumper;
$|++;

my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comit <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9925	10015	
==>ef="http://www.pugscode.org/">Pugs</a> smoke reports. These smokes are
    automatically ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	592	706	
==>( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	798	912	
==>( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2401	2522	
==>e( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2401	2522	
==>e( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13840	13970	
==>erl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13834	13964	
==>erl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3476	3581	
==>$self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3476	3581	
==>$self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3242	3340	
==>^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$d <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3242	3340	
==>^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10106	10209	
==>my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10106	10209	
==>my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.inters <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	821	946	
==>:Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	821	946	
==>:Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13087	13182	
==>used to describe the content of
a message.  All header field names prefixed with C<Content-> fal <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13087	13182	
==>used to describe the content of
a message.  All header field names prefixed with C<Content-> fal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15204	15302	
==>sted in their Document's Root Nodes property; in a
manner of speaking, the Document itself is the p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15204	15302	
==>sted in their Document's Root Nodes property; in a
manner of speaking, the Document itself is the p <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	444	551	
==>ble for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COP <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	444	551	
==>ble for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COP <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	211	347	
==>$VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION) <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	206	342	
==>$VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2698	2811	
==>ams are enciphered with the same key, the encryption 
can be removed by XORing them together; you might not be abl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2698	2811	
==>ams are enciphered with the same key, the encryption 
can be removed by XORing them together; you might not be abl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10676	10774	
==>tr $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10676	10774	
==>tr $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3382	3479	
==>ght class name');

is($p2->get_x, 100, '... got the right x for p2');
is($p2->get_y, 200, '... got <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2756	2869	
==>'"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	5	100	
==>Net::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVM <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	5	100	
==>Net::IRC::SeenExt[: Bool ?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVM <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15947	16060	
==>ation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ), <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19424	19537	
==>ation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ), <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25753	25854	
==>e arguments; they do not interact with the outside
environment at all.

A Relation::Example object has <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	882	982	
==>mper($_[0]);
}

sub import {
	# get the format specified on the command line
	$dumper = $format{$Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6367	6587	
==>span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.res <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6367	6587	
==>span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.res <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4591	4729	
==>piler::Regex->compile( q(
            { return { num => 'NaN' ,} } 
        ) ),
        'bool::true' => Pugs::Compiler::Regex->compile( q( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1652	1764	
==>development notes appear after __END__.

package Regexp::StructHook;

our $inserted = 0;
sub import {
  $inserted <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2429	2551	
==>gs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2429	2551	
==>gs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5729	5830	
==>interfaces can be
# addressed.  One possibility is to return a negative value for
# relative seconds a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5729	5830	
==>interfaces can be
# addressed.  One possibility is to return a negative value for
# relative seconds a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6501	6608	
==>ling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Ins <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6501	6608	
==>ling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Ins <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7734	7860	
==>urn "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7734	7860	
==>urn "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3823	3956	
==>,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3963	4096	
==>,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13400	13508	
==>'POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7609	7717	
==>'POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => alpha => $neg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4408	4511	
==>0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4593	4696	
==>0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1191	1304	
==>list ) {
        print "\n*** $entry->{package} depends on $depends->{package}...\n";
    
        system(qq[$^X b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23608	23699	
==>on library's interface.

See also the bundled L<Relation::Example>, which provides a minimal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4899	5035	
==>$self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4899	5035	
==>$self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1785	1888	
==>r forward compatibility it should always be the 
value C<1>, the default for the C<:name> form.)  By con <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1785	1888	
==>r forward compatibility it should always be the 
value C<1>, the default for the C<:name> form.)  By con <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4933	5032	
==>erl5::NodesInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fname)=@_;
    my $ftype = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11646	11757	
==>str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11640	11751	
==>str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_cl <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3607	3722	
==>"P6 design documents   : Won't generate cross-referenced P6 design documents\n";
} else {    
    read_designdocs($s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11151	11250	
==>urns the "universal set" recurrence object.

- `complement()`

Returns everything (from the universa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11151	11250	
==>urns the "universal set" recurrence object.

- `complement()`

Returns everything (from the universa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13773	13909	
==>cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    / <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13773	13909	
==>cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    / <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2384	2490	
==>rgs{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bles <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4644	4750	
==>rgs{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bles <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	425	529	
==>{
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	425	529	
==>{
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!se <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1867	1976	
==>.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1867	1976	
==>.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4138	4258	
==>e: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4010	4128	
==>e: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0 <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1289	1406	
==>e created.
    You can edit some settings in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3698	3811	
==>n" if $debug;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while(@$ops && @$var <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3399	3525	
==>est<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3399	3525	
==>est<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($cha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1190	1378	
==>s for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1190	1378	
==>s for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18865	18969	
==>can avoid this misspelling in your programs and still send the right
thing on the wire.

When setting the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18865	18969	
==>can avoid this misspelling in your programs and still send the right
thing on the wire.

When setting the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11346	11438	
==>t_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11346	11438	
==>t_child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14993	15097	
==>ics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14993	15097	
==>ics.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $o <==
2	/Users/nnunley/pugs/util/package-osx.pl	6769	6884	
==>tine.3pm
        /usr/local/man/man3/Perl6::Overview::Variable.3
        /usr/local/man/man3/Perl6::Overview::Variab <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1115	1224	
==>newtoks && !defined $i {

        @tokens.push( @newtoks.shift );
        @tokens.push( $maketoken.(@newtoks.s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3060	3152	
==>t_next =>     $self._get_intersection( $self.complement_next, $self.complement_previous, $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3060	3152	
==>t_next =>     $self._get_intersection( $self.complement_next, $self.complement_previous, $set <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3748	3873	
==>esult7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } else {
        die "bug - invalid hi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1981	2075	
==>rapper around Test::Harness.

=head2 Taint mode

Test::Harness will honor the C<-T> or C<-t> in <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1041	1144	
==>ture';

package method::params;

use strict;
use warnings;

use base 'closure::params';

1;

__END__

=p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5920	6057	
==>54),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5920	6057	
==>54),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1768	1910	
==>ew;

=cut

### XXX do some smart caching here -- but can't just make it a singleton
### due to stacked installations
{   my $config  = JIB::Con <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9049	9147	
==>s = $self->_switches($file);

Formats and returns the switches necessary to run the test.

=cut

su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	309	434	
==>:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	309	434	
==>:

    $.backtrack - Parsers tail-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures t <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	60	191	
==>use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($testdir);
die "Could not create '$testdir':$!" unless -d $test <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	911	1026	
==>of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESC <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	911	1026	
==>of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESC <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3076	3246	
==>next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3076	3246	
==>next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16888	16984	
==>ly load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyMo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16888	16984	
==>ly load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyMo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19210	19333	
==>}xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= lengt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15631	15754	
==>}xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= lengt <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7927	8027	
==>n );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7927	8027	
==>n );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2449	2553	
==>uilt ./configure --enable-shared.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/pl-5.5.27/lib/x86_64-linux <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16660	16758	
==>e plausible places to hide data.
Perl_re_dup just copies them.

  struct reg_data *data;  /* Additi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3719	3871	
==>+;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort keys %seen ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AU <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	788	913	
==>$open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	788	913	
==>$open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1568	1655	
==>lf->{body}->($self->{env});
    (blessed($return_value) && ($return_value->isa($self->{s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9353	9438	
==>harset_item(class_neg(X)) --> "[:^", charset_identifier(X), ":]", !.
p5_charset_item(c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5775	5870	
==>nnels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5775	5870	
==>nnels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOI <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	111	215	
==>rl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	111	215	
==>rl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl: <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2203	2336	
==>l off 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2203	2336	
==>l off 
        # this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do h <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3641	3741	
==>ort {
      $b->{pugs_revision} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a->{timesta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24192	24291	
==>e::KeyedText does no compile time binding and
will support multiple languages or locales simultaneou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24192	24291	
==>e::KeyedText does no compile time binding and
will support multiple languages or locales simultaneou <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	416	529	
==>f $node.defined;   
}

## ----------------------------------------------------------------------------
## accessor <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	416	529	
==>f $node.defined;   
}

## ----------------------------------------------------------------------------
## accessor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5542	5654	
==>rt(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5542	5654	
==>rt(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{norma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2595	2737	
==>*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2812	2954	
==>*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6011	6122	
==>ubstr($X::str,$X::pos-1,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '^';
    return $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1026	1154	
==>);
	print $@ if $@;
        print "\n",(map {p6_to_perl($_)} @res),"\n";
    };
    print_repl_help();
    while (1) {
        my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5890	5988	
==>n $node if $self->types_eq($de_facto_type, $expected_type);

		warn "types do not eq";

		if ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4810	4937	
==>os; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4798	4925	
==>os; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in u <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	408	509	
==>t = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	408	509	
==>t = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::JoinOnI <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1985	2092	
==>should
be left with nothing but questions about what this object represents.

It represents a node in the Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1985	2092	
==>should
be left with nothing but questions about what this object represents.

It represents a node in the Pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	836	957	
==>onnected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	836	957	
==>onnected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	397	492	
==>b event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespac <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	397	492	
==>b event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12141	12236	
==>cept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12141	12236	
==>cept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff>]);

=i <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11567	11679	
==>ool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs::Internals::runInteractiveCommand($com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6765	6894	
==>, { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6765	6894	
==>, { 'value' => 'M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::No <==
2	/Users/nnunley/pugs/util/func_refact.pl	394	536	
==>tial set. -except <fname> introduces a function to
ignore, can iterate. -debug <fname> is a function to print more
information about as compone <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3153	3263	
==>$start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param< <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3153	3263	
==>$start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end> )    { $end =   %param< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5582	5691	
==>x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5582	5691	
==>x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2815	2915	
==>ecurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2815	2915	
==>ecurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	473	612	
==>self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	473	612	
==>self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.split(' ');
            .m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22931	23042	
==>n distinctions of this approach over similar packages is that
text is always looked up by a key which is not mea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22931	23042	
==>n distinctions of this approach over similar packages is that
text is always looked up by a key which is not mea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22138	22231	
==>ass, instead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier unexpected" warning rai <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36648	36740	
==>-xism:^(?:(?=.*foo)\D*(\d+)))

=head2 Extending the Extension

Here's a final example.  I'm g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6995	7106	
==>ent, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $dat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6995	7106	
==>ent, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	223	330	
==>s;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	223	330	
==>s;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	424	569	
==>sh @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	424	569	
==>sh @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6102	6221	
==>s
    if $I0 goto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	108	208	
==>gte Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht dann auch das:
m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13065	13167	
==>n a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13065	13167	
==>n a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15109	15207	
==>f it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are listed <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15109	15207	
==>f it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are listed <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4787	4880	
==>$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4787	4880	
==>$node_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes ) <==
2	/Users/nnunley/pugs/util/importgraph.pl	616	722	
==>rn unless /\.hs$/;

  my ($module_name, $exports, %imports);

  open my $fh, '<', $_
    or die "couldn't o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5318	5473	
==>apture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' fla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5150	5298	
==>apture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' fla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1045	1300	
==>};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1045	1300	
==>};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
L <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3593	3821	
==>'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.pri <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3593	3821	
==>'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.pri <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2839	3055	
==>($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2839	3055	
==>($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2691	2851	
==>} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2831	2991	
==>} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "fl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16543	16677	
==>);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15597	15721	
==>);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8389	8531	
==>round-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1.3em;
      font-size:   95%;
    }

    h1, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11176	11293	
==>e = sub {
        my $c0 = $_[0];
        my $to = $X::pos;
        $m->set(1,substr($X::str,$from,$to-$from),[],{},$f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1006	1123	
==>!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1006	1123	
==>!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22513	22611	
==>ith the outside
environment at all.

A Relation object has 2 main attributes (implementation detail <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27065	27163	
==>ith the outside
environment at all.

A Relation object has 2 main attributes (implementation detail <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1139	1404	
==>efines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1139	1404	
==>efines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19495	19596	
==>this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24047	24148	
==>this class in Perl programs is similar to
the intended use of a L<Set> class; a Relation is like a Set <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4421	4547	
==>ete (@array ; *@indices --> List )
 { ... } # XXX


 multi method Array::exists (@array ; Int *@indices --> Bool )
 { ... } # X <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1107	1302	
==>49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0| <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1107	1302	
==>49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0| <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3317	3464	
==>e => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail() <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3317	3464	
==>e => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1819	1919	
==>English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1819	1919	
==>English

=head1 VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOP <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5148	5264	
==>tion() { !$.type.normal }
}
# empty is represented by undef.

# 9. Type Conversion

# 9.1
multi sub ToPrimitive(JSX:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2823	2923	
==>tal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2881	2981	
==>tal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13891	14006	
==>00000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

C <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13891	14006	
==>00000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8918	9064	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9111	9257	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alt <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10445	10552	
==>ection "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => sub {...}, compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10445	10552	
==>ection "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closure_previous => sub {...}, compl <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2117	2302	
==>at.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3709	3890	
==>at.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2662	2790	
==>2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are the same <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2662	2790	
==>2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are the same <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15264	15364	
==>ct the default should be Grf. -law]

Attempting to use a string at a level higher it can support is h <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2161	2259	
==>ords were laid on stream or stone,
>   When Durin woke and walked alone.

-}

--------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3588	3711	
==>-Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3588	3711	
==>-Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5612	5747	
==>lf)->{'%:methods'}->{$label} = $method;
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            : <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	325	438	
==>Int ?$hour, Int ?$minute, Int|Real ?$second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Gregoria <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3213	3328	
==>ubmethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3213	3328	
==>ubmethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	70	175	
==>EGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::Repository;

use Path::Class ();
use Cwd;
use vars qw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3341	3440	
==>amed C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear() <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3341	3440	
==>amed C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear() <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6765	6872	
==>ld I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6765	6872	
==>ld I handle *, / and ` inside text? 

One idea is that if I get to the end of the line and find no closing m <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3863	3972	
==>to be
checked for correctness, and the problems tracked down.

=item Completeness

\G, pos(), etc, are not yet <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	0	100	
==>package Perl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	0	100	
==>package Perl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2544	2642	
==>tream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2544	2642	
==>tream.
(Just remember to do it at both ends!)

=item Encrypting with the exact same key twice can c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12427	12532	
==>.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $so <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12427	12532	
==>.
#
# This makes further dividing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $so <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2913	3039	
==>ringarg-strbeg < 0) {fprintf(stderr,"assert-082eedc532\n");exit(0);}
    start = stringarg-strbeg;

    fprintf(stderr,"regexp_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	667	769	
==>1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	667	769	
==>1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12267	12402	
==>kage::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12261	12396	
==>kage::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to subrule
            retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9823	9963	
==>)
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10102	10242	
==>)
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	717	882	
==>tinue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	717	882	
==>tinue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33564	33658	
==>ntersection (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38114	38208	
==>ntersection (Relation *@others) returns Relation>

This multi-method is the N-ary version of th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4310	4413	
==>a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ de <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4310	4413	
==>a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4832	4924	
==>t_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4832	4924	
==>t_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10315	10405	
==>self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10315	10405	
==>self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4277	4406	
==>{$name}");
  });

  # nprop (not a unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3233	3355	
==>h yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3417	3539	
==>h yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unim <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2163	2278	
==>ll executable objects
    Routine     Base class for all nameable executable objects
    Sub         Perl subroutine <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1762	1862	
==>erl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1762	1862	
==>erl.org/perl6/doc/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24732	24894	
==>, \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25011	25173	
==>, \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bloc <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1509	1628	
==>quest( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This sho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1509	1628	
==>quest( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and headers
  # This sho <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15019	15122	
==>arrow in the function's type,
	# this causes the type variables in the cloned function to be instantiate <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	617	754	
==>pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.po <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	617	754	
==>pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.po <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31570	31671	
==>likewise, and a program which uses both libraries
could have yet another set for itself.  When the pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31570	31671	
==>likewise, and a program which uses both libraries
could have yet another set for itself.  When the pro <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15986	16089	
==>ew;
}
let: env($.is) = { new_env($$) }
let: env($.in) = { new_env($$) }

let: type($$) = {
	types::unify <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35422	35519	
==>n which case the new Relation::Example has either all of the tuples of
the original, or has zero t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31330	31429	
==>t modules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31330	31429	
==>t modules from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2632	2798	
==>elf = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = {
        perl    => { required => 1, store => \$perl },
    };

    check( $tmpl, \%hash ) or error(Para <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	141	253	
==>as Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs that ge <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	62	164	
==>tail: http://www.perlmonks.org/?node_id=438876
# For historical interest, I've left this program pretty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2883	2975	
==>plementation is currently at a comparable state as v6.pm.

Although running C<v6-pugs> requir <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10309	10412	
==>t they are of the correct
container type (eg, hash vs array).  The deferred validations are performed
on <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10309	10412	
==>t they are of the correct
container type (eg, hash vs array).  The deferred validations are performed
on <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1065	1191	
==>::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatibl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1065	1191	
==>::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::Compile> extensions that
are compatibl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1938	2040	
==>ment->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    preceden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1938	2040	
==>ment->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'left',
    preceden <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2964	3074	
==>ueue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2964	3074	
==>ueue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22476	22575	
==>tE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22476	22575	
==>tE<gt>("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7000	7139	
==>les}};
        unlink $file or die "unlink: $!";
    }
    warn "all chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12471	12562	
==>to properly do (non-leaking) memory management, via reverse
  engineering (almost completely <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6208	6302	
==>fficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6208	6302	
==>fficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_all_children() <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1166	1253	
==>e << '.';

----------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31198	31297	
==>w Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> op <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35748	35847	
==>w Relation
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> op <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3542	3638	
==>=kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYN <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3542	3638	
==>=kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYN <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4200	4301	
==>n which case the
object returned represents the last day for the specified month.

- `today()`
- `now( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4200	4301	
==>n which case the
object returned represents the last day for the specified month.

- `today()`
- `now( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5554	5659	
==>claim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5612	5717	
==>claim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2906	3017	
==>$no_designdocs) {
    for ( $syn_src_dir ?
          ($syn_src_dir,catdir($syn_src_dir,'design')) :
          (c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13419	13569	
==>Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13419	13569	
==>Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1408	1511	
==>ted to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unex <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1408	1511	
==>ted to 
C<$ERR> only if one or more of the tags have been "selected", either by giving 
them to the unex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1128	1229	
==>t this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1128	1229	
==>t this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::No <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8214	8314	
==>$span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8214	8314	
==>$span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6536	6653	
==>str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6536	6653	
==>str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17971	18112	
==>l);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14392	14533	
==>l);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->error(RPe_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6752	6853	
==>}
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_single(@_);
    }
    m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3138	3238	
==>a::Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fgla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16209	16322	
==>f char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12630	12743	
==>f char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5283	5437	
==>Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tm <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5283	5437	
==>Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tm <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1967	2071	
==>requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2847	2951	
==>requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3568	3702	
==>0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21012	21107	
==>B0 = [CB|_],
   ( char_type(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35008	35116	
==>ly: clump

Types: clump (C<\X>)

=head2 branch

Family: branch

Types: branch (C<|>)

Data: array reference o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1467	1609	
==>,
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => 'eval',
        assoc => 'lef <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31426	31526	
==>ehind assertions).  If
less than 0, it is behind; otherwise, it is ahead.

=item down

Whether this o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1369	1510	
==>r_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1369	1510	
==>r_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20308	20415	
==>d by a single line containing the hexadecimal digest of the
result in double quotes followed by a semicolon. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20308	20415	
==>d by a single line containing the hexadecimal digest of the
result in double quotes followed by a semicolon. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9423	9525	
==>ll be a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
set s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9423	9525	
==>ll be a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
set s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8895	9025	
==>->{name} eq $y->{name}
		or die "Can't unify $x->{name} with $y->{name} in " . Dumper(@_);

	unify($x->{param}, $y->{param}, @_);
} <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7267	7385	
==>--> Lazy )
{
    gather {
	for @values -> $x {
	    take $x if &test($x);
	}
    }
}
# signature from S29draft.pod 8655 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	823	920	
==>londie::Runtime

    my $compiled = Blondie::Backend::Foo->compile($program);
    my $result = Blo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17938	18081	
==>FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->vis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14359	14502	
==>FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->vis <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11447	11552	
==>ool"),
		),
	),
);


package main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Excepti <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4767	4870	
==>/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self->{param <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2181	2359	
==>self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' = <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2181	2359	
==>self{$section} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8372	8487	
==>itrd_gz <= -M $linuxrc and
      -M $initrd_gz <= -M $bash and
      -M $initrd_gz <= -M $inputrc and
      -M $init <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5611	5716	
==>ML/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual modul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5418	5519	
==>ML/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	244	351	
==>[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramèt <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1772	1879	
==>[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): paramèt <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	981	1124	
==>char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $c <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	981	1124	
==>char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	262	401	
==>match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextcha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4544	4698	
==>> sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4544	4698	
==>> sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1464	1612	
==>ver
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1464	1612	
==>ver
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12173	12292	
==>ies($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum& <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12173	12292	
==>ies($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&acirc;ch&eacute; r&eacute;sum& <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2263	2372	
==>sts $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_fo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2241	2350	
==>sts $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10197	10308	
==>eturn $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4746	4839	
==>inmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4968	5061	
==>inmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc fi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2653	2764	
==>:Perl::Interpreter;

=head1 DESCRIPTION

This is a subclass of L<Blondie::Reducere> that performs the actions de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9935	10064	
==>prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9935	10064	
==>prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19151	19277	
==>$match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19430	19556	
==>$match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dum <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10568	10768	
==>values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )

 multi  List::sort(  So <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4754	4848	
==>reviated_class  { \\ <[dswDSWhvnHVN]> }
rule explicit_class  { \< <character_set>+ \> }
rule ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14219	14340	
==>d', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute() <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14219	14340	
==>d', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8502	8602	
==>:Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8502	8602	
==>:Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document describes Ros <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18802	18985	
==>r ~= uc Pugs::Internals::sprintf(lc($conversion),1.0*$arg);
            }
            when '%' {
                $str ~= '%';
            }
            default {
                die "s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19618	19728	
==>st::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversions::I <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	433	541	
==>ild_requires requires recommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7182	7282	
==>_close:
    parse_error(mob, pos, "Missing close bracket for \\x...")
    goto end
.end

.sub "parse_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	544	675	
==>rectories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	544	675	
==>rectories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

su <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12704	12827	
==>d"><tmpl_var name=unexpect></span></td>
	    </tmpl_loop>
	    <td><span title="Details" class="expander" onclick="toggle_vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1545	1678	
==>.
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1545	1678	
==>.
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0] <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5703	5817	
==>tile'>
    | <'double'>
    | <'import'>
    | <'public'>
}
rule Identifier {  # see 7.6
      <!before <ReservedWo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43437	43531	
==>ork in the problem domain of managing
data or data definitions or connections to databases: L<S <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9720	9823	
==>rough the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unle <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9720	9823	
==>rough the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3515	3623	
==>Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3390	3493	
==>Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	22	134	
==>bols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (S <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	22	134	
==>bols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (S <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8069	8178	
==>--------------------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# dep <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8069	8178	
==>--------------------------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# dep <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5038	5156	
==>ncode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5038	5156	
==>ncode;
    # create a simplistic dec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3120	3282	
==><ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3367	3529	
==><ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{ws1}(),
            w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10379	10515	
==>t ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10379	10515	
==>t ( $x ) {
    return $.span.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17258	17414	
==>tive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = "";
    while ($fi < $flen) {
        # optional non-conve <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1047	1184	
==>d die $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6037	6130	
==><"USAGE">.

=head1 WARNING

This is version B<0.022b>.  The documentation is (still) incomplet <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2901	3010	
==>join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

me <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2901	3010	
==>join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1181	1272	
==>ainst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1181	1272	
==>ainst all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.724. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21532	21632	
==>bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21532	21632	
==>bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#cha <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4095	4217	
==>self->{_smoker}) {
            warn<<"AD";
Smoker info not found. Please create a file named $SMOKERFILE
either in this dir <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1504	1608	
==>ool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1504	1608	
==>ool::True }
method end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) retur <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1790	1905	
==>= rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAM <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1790	1905	
==>= rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAM <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	914	1021	
==>hift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	914	1021	
==>hift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1277	1378	
==>idn't match.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does abov <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1277	1378	
==>idn't match.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it does abov <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5629	5744	
==>-= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5629	5744	
==>-= $line_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8523	8645	
==>els> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8523	8645	
==>els> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1984	2091	
==>$file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1984	2091	
==>$file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3166	3316	
==>)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3166	3316	
==>)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2081	2190	
==>(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2069	2178	
==>(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, captu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8503	8678	
==>t-size:   95%;
    }

    h1, h2 {
      background-color: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    . <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6565	6661	
==>->file($_) }
        $self->_index_files($pkg, $self->config->repo_index_groups, '');
}

sub _ind <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6372	6468	
==>name, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<% <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6372	6468	
==>name, Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<% <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3328	3453	
==>,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3328	3453	
==>,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9462	9599	
==>$return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a module based on
# l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9462	9599	
==>$return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code divides a module based on
# l <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	870	972	
==>tp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Base <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	749	841	
==>tp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21628	21723	
==>e Independence".  However, the level of DBI's provided independence
is I<Database Driver Indepen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21628	21723	
==>e Independence".  However, the level of DBI's provided independence
is I<Database Driver Indepen <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3016	3102	
==>5\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000"
    ,"n" => unicode:"\x0a\x0d\x0c\x8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2696	2801	
==>r: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2696	2801	
==>r: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1183	1307	
==>ub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1194	1318	
==>ub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "n <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	426	573	
==>my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	426	573	
==>my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9332	9477	
==>$x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9332	9477	
==>$x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1142	1270	
==>. "\n" . ("    " x ($indent-1)) . ")";
	} else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11906	12041	
==>ing Parrot include files to the initrd",
    ensure => sub { -r "$initrd_mnt/$_" or return for @pfiles; 1 },
    using  => sub {
      u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	134	553	
==>.);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	134	553	
==>.);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4250	4366	
==>S->object(exact_comp => "\n", '\N');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10334	10434	
==>D LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterato <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10334	10434	
==>D LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterato <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4407	4534	
==>om
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4407	4534	
==>om
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1153	1281	
==>This is a quick hack that just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1153	1281	
==>This is a quick hack that just tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1726	1836	
==>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1726	1836	
==>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5142	5300	
==>s
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5142	5300	
==>s
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4862	4961	
==>r.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover da <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4862	4961	
==>r.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover da <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3355	3456	
==>a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and writ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3355	3456	
==>a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and writ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9660	9768	
==>omplement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9660	9768	
==>omplement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10101	10220	
==>'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10095	10214	
==>'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6697	6796	
==>entified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mirr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6697	6796	
==>entified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mirr <==
2	/Users/nnunley/pugs/util/importgraph.pl	853	959	
==>ts = defined $2;
    } elsif (/^import \s+ (qualified \s+)? ([\w.]+) (\s* \()?/x) {
      $imports{$2} = [d <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	103	243	
==>kipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	103	243	
==>kipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7449	7580	
==>=> $Object,
    '@:roles' => [ $rFoo, $rBar ],  # << tell the class we want these roles
    '%:methods' => {
        'foo_bar' => su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	930	1058	
==>as $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	930	1058	
==>as $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32938	33037	
==>Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32938	33037	
==>Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4086	4221	
==>.. $#rules ) {
        last unless $rules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    }
    if ( $i ! <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1801	1897	
==>turn $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub literal_valu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4748	4894	
==>0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4760	4906	
==>0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2136	2255	
==>rammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2136	2255	
==>rammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17264	17358	
==>erse way of saying that it subscribes to the
localization methodology that is described here, a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17264	17358	
==>erse way of saying that it subscribes to the
localization methodology that is described here, a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7890	8095	
==>arn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1191	1396	
==>arn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8122	8234	
==>= $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::dec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8122	8234	
==>= $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::dec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	181	295	
==>o);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	181	295	
==>o);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34199	34298	
==>e main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34199	34298	
==>e main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This me <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1539	1630	
==>atch.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, emp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1539	1630	
==>atch.capture_num[$num]> and C<$match.capture_name{$name}>.  C<$p> will
be given a fresh, emp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	788	908	
==>0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	797	917	
==>0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11398	11532	
==>acter
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2989	3123	
==>acter
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	653	812	
==>tatement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	653	812	
==>tatement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4232	4339	
==>ndex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4232	4339	
==>ndex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4914	5047	
==>mar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5107	5240	
==>mar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17538	17670	
==>rd - $node doesn't fmap but is an object";
            return "$node";
        }
    } else {
        return defined $node ? String:: <==
2	/Users/nnunley/pugs/util/claim_drift.pl	135	237	
==>se a shared DrIFT,
# you need to point symlinks to the current one if you want to regenerate
# files. W <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21432	21527	
==>pend::ISA, __PACKAGE__;
  push @Regexp::Parser::ifthen::ISA, __PACKAGE__;
  push @Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4989	5108	
==>@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted thi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4989	5108	
==>@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted thi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8097	8200	
==>horough as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them sett <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8097	8200	
==>horough as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them sett <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20568	20696	
==>?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16989	17117	
==>?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $se <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12955	13075	
==>ndef, $initrd_img;
      for(@libs) {
        copy $_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4155	4254	
==>hat does
addition, C<< Val(1) >> will reduce to 1, and C<< Sym('$x') >> will
be reduced to 10 (as bo <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7304	7429	
==>BED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/perl5 -Isrc/perl5 ";
        $ghc_flags .= " -isrc/per <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18673	18773	
==>ion :words {  # see 11.13
      <ConditionalExpression>
    | <LeftHandSideExpression> <AssignmentOpe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14844	14930	
==>verse(R,R).

%----------------------------------------------------------------------

r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4908	5092	
==>>= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4908	5092	
==>>= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15420	15527	
==>eeds to account for a variance of needs between its different
users, such as their preferred language of com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15420	15527	
==>eeds to account for a variance of needs between its different
users, such as their preferred language of com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35080	35180	
==>of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<expo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35080	35180	
==>of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<expo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3874	4009	
==>LOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    my ($class, %args) = @_;

    # igno <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6929	7047	
==>han) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6929	7047	
==>han) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32543	32641	
==>tores some attributes for configuration, its
main purpose is to convert Message objects on demand i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32543	32641	
==>tores some attributes for configuration, its
main purpose is to convert Message objects on demand i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19971	20148	
==>')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40431	40608	
==>')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	938	1040	
==>...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	938	1040	
==>...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Com <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	834	943	
==>$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2669	2767	
==>$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	83	185	
==>e ist $name.";
Perl 6:  my $name="Jens"; print "Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9349	9448	
==>TP::Headers> class encapsulates HTTP-style message headers.
The headers consist of attribute-value p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9349	9448	
==>TP::Headers> class encapsulates HTTP-style message headers.
The headers consist of attribute-value p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5264	5389	
==>us => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5264	5389	
==>us => sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4028	4147	
==>_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4028	4147	
==>_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age= <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	787	920	
==>each my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;

        my <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2974	3064	
==>0\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	590	678	
==>eturn $!parent;
}

## ------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	590	678	
==>eturn $!parent;
}

## ------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3763	3862	
==>rday' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"toda <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3763	3862	
==>rday' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
"toda <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24350	24453	
==>e::KeyedText is entirely object-oriented; you use it
by creating objects from its member classes, usuall <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24350	24453	
==>e::KeyedText is entirely object-oriented; you use it
by creating objects from its member classes, usuall <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5501	5642	
==>hes;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5501	5642	
==>hes;
            $match2->{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1919	2029	
==>:constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1930	2040	
==>:constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2442	2567	
==>multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $contai <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2442	2567	
==>multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $contai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	868	978	
==>his will allow interoperability with modules that
# do not inherit from Module::Compile but still want to do th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	868	978	
==>his will allow interoperability with modules that
# do not inherit from Module::Compile but still want to do th <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1173	1286	
==>past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1140	1253	
==>past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30766	30883	
==>throws an error if it can't match the ')', because
if the 'c)' handler gets called, it's expected to match!  It pops t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12951	13062	
==>emit( $n->{exp1} ) . '[' . _emit( $n->{exp2} ) . ']';
    }
    
    return _not_implemented( $n, "postcircum <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	267	368	
==>sage::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2672	2776	
==>$node";
	} else {
		die "can't perform runtime cast of ($node)::$from to $to";
	}
}

__PACKAGE__;

__END_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19230	19326	
==>en if it would create a better sense of
uniformity.

=item Documentation

Fixed some poor wording <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1211	1324	
==>rl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1211	1324	
==>rl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9539	9661	
==>oin " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or die <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8876	9014	
==>next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8876	9014	
==>next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19312	19415	
==>s in separate resource files used by the
program, so that if you wanted to upgrade or localize what text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19312	19415	
==>s in separate resource files used by the
program, so that if you wanted to upgrade or localize what text <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	360	484	
==>S ) {
    $REPO->add_file( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Local variables:
# c-indentation-s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1639	1763	
==>losing routine
		\&b_main;
BIND

	die $@ if $@;

	return $func;
}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12947	13088	
==>data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12947	13088	
==>data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3595	3694	
==>e_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3595	3694	
==>e_diff = $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_d <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9187	9323	
==>:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9187	9323	
==>:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24065	24156	
==>).
ground_list([],_,[]).
ground_list([H0|T0],D,[H1|T1]) :-
  (var(H0), H1 = D ; ground_list( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8068	8158	
==>!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3963	4092	
==>gs->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defined $args->{invocant};
    }

    for my $pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4203	4307	
==>::Check->last_error), return;

    my $fh = OPEN_FILE->($file) or return;
    my $contents = do { local $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6288	6395	
==>, '... $iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to call the Class m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3953	4146	
==>ef ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1514	1622	
==>'$builddir/$archive' from '$srcdir'\n"
        ;

    chdir $Cwd or die "Could not chdir back to '$Cwd'\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3063	3263	
==>anslator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3063	3263	
==>anslator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1230	1342	
==>if ($line =~ /\A:h\s*\Z/) { print_repl_help(); next;}
        if ($line =~ /\A:q\s*\Z/) { exit(0);}
        if ($ <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1496	1601	
==>.3

sub make_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing this? <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28284	28381	
==>ion
which is the same as the invocant Relation but that some of its attributes
have been combined/ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32836	32933	
==>ion
which is the same as the invocant Relation but that some of its attributes
have been combined/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5692	5816	
==>it until we have know how both these interfaces can be
# addressed.  One possibility is to return a negative value for
# rela <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5692	5816	
==>it until we have know how both these interfaces can be
# addressed.  One possibility is to return a negative value for
# rela <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23416	23505	
==>otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
ext <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23416	23505	
==>otherwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
ext <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12474	12575	
==>The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12474	12575	
==>The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $fie <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26346	26450	
==>w Relation has all
of the tuples of the original (or rather, the corresponding projection of
each tuple), <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30898	31002	
==>w Relation has all
of the tuples of the original (or rather, the corresponding projection of
each tuple), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11746	11893	
==>do>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11746	11893	
==>do>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20489	20586	
==>otE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20489	20586	
==>otE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channel <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	628	738	
==>mes.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	628	738	
==>mes.  If C<$low> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20442	20555	
==>tudy; you should not use it in production.

For production use, there should be a wide variety of third party Engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20442	20555	
==>tudy; you should not use it in production.

For production use, there should be a wide variety of third party Engi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18501	18599	
==>gcompp and regexecp hooks (C functions
which get called on regular expression compilation and execu <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2791	2889	
==>gcompp and regexecp hooks (C functions
which get called on regular expression compilation and execu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6439	6580	
==>ding dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6439	6580	
==>ding dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4885	5058	
==>atching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($versi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4885	5058	
==>atching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($versi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1618	1724	
==>ural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1618	1724	
==>ural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.enc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8590	8740	
==>t( $n->{exp2} ) . "\n }\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq ' <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	9	138	
==>module Motd;

sub finger (@arr) returns Str is export {
        my @default = (
            "boring",
            "missing example <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2623	2721	
==>map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_gh <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2623	2721	
==>map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_gh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	716	843	
==>, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    ca <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4973	5128	
==>f we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4973	5128	
==>f we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6107	6227	
==>bPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6107	6227	
==>bPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	885	1002	
==>t subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	885	1002	
==>t subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </body>
</ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	592	736	
==>ue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(? <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	592	736	
==>ue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(? <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5573	5674	
==>regexecp;
  PL_regexecp = &regexp_exechook_hook;
}


/*
 * regexp struct setup
 */

static void regexp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14484	14583	
==>ie "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as_hash_complain = sub { Carp::car <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10525	10647	
==>the highest version
            ### XXX this should be policy based!
            ($new_alt) = sort { $b->version <=> $a->ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5350	5502	
==>: () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5182	5327	
==>: () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled captur <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3903	4001	
==>e
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespac <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3903	4001	
==>e
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, whitespac <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14232	14361	
==>);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->fin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1712	1841	
==>);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->fin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22216	22319	
==>each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26768	26871	
==>each of its tuples is
a row, and each attribute is a column, but a Relation is not a table.

The Relatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3198	3331	
==>d !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3198	3331	
==>d !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1513	1638	
==>e{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1513	1638	
==>e{$data}++;

    my $field_code = "";
    for @fields -> $n,$t { $field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24976	25109	
==>( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->err <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21397	21530	
==>( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS -= length $1;
    }

    $S->err <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10022	10133	
==>med{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10016	10127	
==>med{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	653	751	
==>hoose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	no <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	653	751	
==>hoose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17527	17642	
==>(?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13948	14063	
==>(?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs-> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19585	19682	
==>s like a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24137	24234	
==>s like a Set that exists
over N dimensions rather than one.  The Relation operators are somewhat o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10360	10541	
==>t if grep {
                        $_ eq $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find the alternative with the highest versi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2953	3081	
==>package_name        { $_[0] =~ $re; $2 }
        sub package_version     { $_[0] =~ $re; $3 }
        sub package_authority   { $ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	531	647	
==>lect_arguments ([]) {}
        my multi sub collect_arguments ([ $args, *@args ]) {
            my $normalizer = $arg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9758	9892	
==>METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9758	9892	
==>METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5483	5614	
==>closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5483	5614	
==>closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_compl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	511	611	
==>y $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} secon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	511	611	
==>y $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} secon <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8217	8319	
==>s::Check->last_error), return;

    my $pkg = JIB::Package->new( file => $file );

    return $self->ad <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1518	1645	
==>Extractor | Comparator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) returns List { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	957	1068	
==>";
    my $cmd = "$pugs $extra_args $dir -CPerl5 $fn 1> $pilfn 2> $pilfn.err";
    my $err = "";
    if(system($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1400	1530	
==>point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1400	1530	
==>point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1474	1601	
==>o) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all thes <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1474	1601	
==>o) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all thes <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1111	1209	
==>ub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpna <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1111	1209	
==>ub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpna <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18191	18279	
==>n, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re), <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4026	4186	
==>expected, $name, @mess) = @_;

    my $pass;
    {
        local $^W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() some <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3621	3747	
==>ol::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3621	3747	
==>ol::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11384	11602	
==>o' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_sou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11384	11602	
==>o' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_sou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2648	2780	
==>ier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2648	2780	
==>ier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36648	36745	
==>es that a Template corresponding to the Message could be
found using the Translator object's Set a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36648	36745	
==>es that a Template corresponding to the Message could be
found using the Translator object's Set a <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3114	3273	
==>= 0;
        while $i < $listlen {
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! pop(@result)
    #  w <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14486	14586	
==>d by default.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $uns <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14486	14586	
==>d by default.

=item encode_entities_numeric( $string )

=item encode_entities_numeric( $string, $uns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9893	10001	
==>ister method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9893	10001	
==>ister method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2714	2815	
==>ed with the same key, the encryption 
can be removed by XORing them together; you might not be able to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2714	2815	
==>ed with the same key, the encryption 
can be removed by XORing them together; you might not be able to <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11487	11622	
==>else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.curren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11487	11622	
==>else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $.curren <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	861	971	
==>st versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_resolve( list_dependencie <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	835	962	
==>e>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variable <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	835	962	
==>e>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variable <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9302	9442	
==>s in windows
            # land, and it has an executable extension...

            if ( -f $ghc_pkg 
                and $ghc_pkg =~ m{^(?:/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	807	960	
==>unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($ab <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	807	960	
==>unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($ab <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	134	256	
==>{ '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_to <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	134	256	
==>{ '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1948	2048	
==>is either a static lookup (lex only) or a dynamic lookup. 



This object-serialization format is sha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1874	1972	
==>is either a static lookup (lex only) or a dynamic lookup. 

This object-serialization format is sha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15126	15228	
==>et if you pass
an argument to the method.  The old header value is always returned.
If the given header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15126	15228	
==>et if you pass
an argument to the method.  The old header value is always returned.
If the given header <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6146	6246	
==>l headers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6146	6246	
==>l headers are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	497	624	
==>TTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	497	624	
==>TTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1371	1670	
==>ext); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1371	1670	
==>ext); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17879	18020	
==>type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17879	18020	
==>type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object ha <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	774	877	
==>::Internals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_slept;
}

sub exit (In <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4177	4277	
==>ompl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4177	4277	
==>ompl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8635	8759	
==><http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8635	8759	
==><http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5:g/"/&#34;/;
    #} else { <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5473	5590	
==>!";
my $template = HTML::Template->new(filename => 'util/catalog_tmpl/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2153	2268	
==>lf});
}

sub is_empty {
    my $self = shift;
    @{$self} ? bit->new(0) : bit->new(1);
}

sub join {
    my ($self, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2908	3195	
==>rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        % <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2908	3195	
==>rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8350	8477	
==>edy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8061	8182	
==>edy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	251	359	
==>&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::Generator' => \&xml ],
);

# dump data as yaml <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2355	2470	
==>est method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2355	2470	
==>est method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	732	838	
==>{
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information abo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	732	838	
==>{
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information abo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5030	5127	
==>inal position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5030	5127	
==>inal position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	367	470	
==>_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_si <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	367	470	
==>_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33211	33312	
==>es will be searched in the order
they appear in this array until a match for that message is found.  S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33211	33312	
==>es will be searched in the order
they appear in this array until a match for that message is found.  S <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	57	170	
==>piler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	57	170	
==>piler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	413	522	
==>e
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	413	522	
==>e
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rule->co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3068	3224	
==>')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3068	3224	
==>')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6762	6895	
==>e) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6762	6895	
==>e) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7171	7272	
==>on of this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Arr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7171	7272	
==>on of this method is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Arr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14315	14463	
==>f_test->($noop);
      }
      if(not FAILED($v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TAILCALL(&$f_else,$c);
      }
    };
  }
} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17453	17568	
==>ocess, calling each compiler
at the right time with the right data.

=item *

Ability to ship precompiled modules wi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17453	17568	
==>ocess, calling each compiler
at the right time with the right data.

=item *

Ability to ship precompiled modules wi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15247	15391	
==>rub/menu.lst" },
  using  => sub {
    system
      "mkisofs",
      "-R",                                # Generate Rock Ridge directory informa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21209	21333	
==>ix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17630	17754	
==>ix
  $self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1615	1752	
==>sername = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1615	1752	
==>sername = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6999	7106	
==>to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mode rol <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6999	7106	
==>to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher mode rol <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1125	1262	
==>ke pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@valu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9830	9938	
==>e to reach down into quant.
  package Regexp::Parser::minmod;
  sub emit {
    my($o)=@_;
    my $noop = $o-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1702	1836	
==>se {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1702	1836	
==>se {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($sel <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8950	9083	
==>ocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $off <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8950	9083	
==>ocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $off <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6738	6841	
==>($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6738	6841	
==>($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7759	7883	
==>md! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7759	7883	
==>md! )\n" unless $cmd =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolate <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3314	3437	
==>(must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3498	3621	
==>(must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19362	19464	
==>te that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a tru <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19362	19464	
==>te that you might want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a tru <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	930	1052	
==>, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	930	1052	
==>, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17010	17147	
==>= 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17289	17426	
==>= 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( ' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16136	16229	
==>gy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org> <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16194	16287	
==>gy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7621	7726	
==>ing right %s on \\%s", 'brace', "X$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2282	2390	
==>name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2282	2390	
==>name2 => ')', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4898	5018	
==>=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4729	4844	
==>=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6136	6276	
==>1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6136	6276	
==>1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10795	10956	
==>xpires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10795	10956	
==>xpires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6971	7100	
==>r(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6971	7100	
==>r(8230),
    "permil"   => chr(8240),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2968	3076	
==>ub p6_is_perl6_object {
    my $ref = ref($_[0]);
    $ref eq 'Dispatchable';
}
sub p6_is_native {
    my $re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5582	5735	
==>sed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6046	6199	
==>sed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no available modules on <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7373	7518	
==>-d $file ? 0100 : 0200;
    
    if( $x and chmod( $x->mode|$mask, $file ) ) {
        return 1;

    } else {        
        error("Failed to 'c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27112	27203	
==>Script3::Grammar is JavaScript::ECMAScript3::Grammar::Spec;

# Intended to be a working, usa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5918	6039	
==>nf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5918	6039	
==>nf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set sp <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	417	521	
==>func (keys %funcs) {
		next if $func eq $key;
		print "$key -> $func\n" if $Conf{verbose} && $funcs{$key} <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11078	11184	
==>ame returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'te <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11078	11184	
==>ame returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3544	3656	
==>se {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3544	3656	
==>se {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8987	9100	
==>load in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same fai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8690	8801	
==>load in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same fai <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1173	1285	
==>$delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1173	1285	
==>$delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3299	3402	
==>/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3183	3282	
==>/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4118	4241	
==>return  "{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) {
        # warn "call: ",Du <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1133	1320	
==>{
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1133	1320	
==>{
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1019	1117	
==>he block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1019	1117	
==>he block (sub-reference) that contains 'return'
    label - the capture name (ident or '')

Continu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3501	3610	
==>[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3501	3610	
==>[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>], <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20768	20866	
==>/>) will
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend ab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20768	20866	
==>/>) will
evolve to implement the Rosetta DBMS natively, and be I<the> back-end which
I recommend ab <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	5	98	
==>age Perl6::Core::Hash;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6328	6426	
==>d", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6328	6426	
==>d", pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Po <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20990	21173	
==>uleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21269	21452	
==>uleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8551	8660	
==>eop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtracking, less <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8251	8357	
==>eop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtracking, less <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11681	11800	
==>end("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11681	11800	
==>end("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6247	6347	
==>' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6247	6347	
==>' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	114	241	
==>returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Em <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	114	241	
==>returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Em <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6151	6336	
==>ray: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6151	6336	
==>ray: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shi <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	349	491	
==>le::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?O <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	349	491	
==>le::Spec.cwd;
    }
    else {
        my Str $script = $*PROGRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?O <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20735	20837	
==>the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Un <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20735	20837	
==>the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Un <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2335	2460	
==>);
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2335	2460	
==>);
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20639	20733	
==>ry bit of the default process described above is overridable by
various methods.

=head1 DISTRI <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20639	20733	
==>ry bit of the default process described above is overridable by
various methods.

=head1 DISTRI <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3032	3135	
==>le ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3032	3135	
==>le ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2301	2427	
==>ie::Node::Unit/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Nodes - Basic AST nodes

=head1 SYNOPSIS

    use Blondi <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	462	594	
==>tr is rw) returns Str is builtin is primitive {
    if chars($str) == 0 {
        undef;
    } else {
        my $removed = substr $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20041	20142	
==>lue, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20041	20142	
==>lue, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4104	4235	
==>dren to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_cou <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4104	4235	
==>dren to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_cou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2165	2298	
==>ings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MAT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2382	2515	
==>ings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MAT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10764	10863	
==>p::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11043	11142	
==>p::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	349	477	
==>type};
  }

  sub qr {
    my $self = shift;
    $self->visual(@_);
  }

  sub visual {
    my $self = shift;
    exists $self->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	56	169	
==>', '../lib';

use Perl6::MetaModel;
use Perl6::MetaModel::Parser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($c <==
2	/Users/nnunley/pugs/util/package-osx.pl	9701	9851	
==>s {
    my ($dest, @files) = @_;
    for my $from (@files) {
        my $dirs = $from;
        $dirs =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unl <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3655	3774	
==>5_source.pl  # Convert the file. The script appends
                  # '.p6' to the original name

HELP
}

while(my $ar <==
2	/Users/nnunley/pugs/util/combine_tests.pl	708	836	
==>ame/number
    # into %sum
    #
    my %sum;
    my @revisions;
    for my $data (@_) {
        my $revision = $data->{revision} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2030	2146	
==>iglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <var <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2030	2146	
==>iglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <var <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33281	33380	
==>ch for that message is found.  Since a
program or library may wish to override the user text of anot <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33281	33380	
==>ch for that message is found.  Since a
program or library may wish to override the user text of anot <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3725	3839	
==>y ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . ' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3725	3839	
==>y ($class, $module, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5510	5694	
==>p ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8987	9171	
==>p ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $att <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8900	9022	
==>lock;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_cal <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8900	9022	
==>lock;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_cal <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3393	3628	
==>nt("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.pri <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3393	3628	
==>nt("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item' {
                    $fh.pri <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11026	11152	
==>rip pugs and parrot to save space.",
    ensure => sub {
      for(@files) {
        my ($src, $dest) = @$_;
        -r $dest a <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4683	4782	
==>acter> }
rule a_dot  { \. }
rule logical_grapheme { \< \. \> }
rule abbreviated_class  { \\ <[dswDSW <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17699	17791	
==>s which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
wi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17699	17791	
==>s which you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
wi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18018	18111	
==>=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18018	18111	
==>=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2925	3034	
==>st the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) exp <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2925	3034	
==>st the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) exp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9980	10105	
==>n','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9993	10107	
==>);

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1557	1702	
==>print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/) {
            my $filename <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6126	6236	
==>ncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto end if $tokenC <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9613	9782	
==>ift; " . 
                _emit_parameter_binding( $n->{signature} ) .
                _emit( $n->{block} ) . 
            "\n }";
    }


    if ( $n->{op1}{stmt} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2199	2357	
==>ir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec->catfile( $tmpsrc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3200	3313	
==>b *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3200	3313	
==>b *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $o <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1018	1112	
==>ata to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::UserAgent->new;
  $ua->agent("pugs-smok <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11911	12017	
==>g the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11911	12017	
==>g the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	797	910	
==>mark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1..40},
        P6_Toke <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4100	4209	
==>s.  The month and day default
to 1 if not given.

The value for day can also be the string "last", in which ca <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4100	4209	
==>s.  The month and day default
to 1 if not given.

The value for day can also be the string "last", in which ca <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2128	2221	
==>1 Analysis

=head2 $strap->analyze( $name, \@output_lines )

  my %results = $strap->analyze($ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2003	2205	
==>5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2003	2205	
==>5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5 <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1019	1129	
==>LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	986	1096	
==>LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7219	7307	
==>{ Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_dec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1044	1132	
==>{ Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_dec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3049	3206	
==>&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3060	3217	
==>&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::captu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4061	4225	
==>package    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= package_vers <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4011	4119	
==>elf: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4011	4119	
==>elf: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_st <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3123	3223	
==>=~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Plea <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3123	3223	
==>=~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Plea <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13710	13813	
==>ar will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" } <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13710	13813	
==>ar will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\xA0" } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	170	330	
==>,
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	170	330	
==>,
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1882	1983	
==>ix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1882	1983	
==>ix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2137	2241	
==>spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2137	2241	
==>spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7022	7128	
==>n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7034	7140	
==>n$program" if $flags->{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4617	4867	
==>xt;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4617	4867	
==>xt;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it <==
2	/Users/nnunley/pugs/util/addauthors.pl	1063	1206	
==>/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16809	16958	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17088	17237	
==>ure} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&bloc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	101	197	
==>E

Blondie - Blondie is a dumb intermediate language and a compiler collection for
the purpose of <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1582	1679	
==>composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<` <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1582	1679	
==>composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<` <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2600	2756	
==>cking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2600	2756	
==>cking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $pat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13722	13951	
==>on.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13722	13951	
==>on.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4106	4227	
==>scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4106	4227	
==>scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2146	2256	
==>tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $las <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2146	2256	
==>tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $las <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20568	20672	
==>en a program, it will search for language files specific to the program
in the order you chose so to pick <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20568	20672	
==>en a program, it will search for language files specific to the program
in the order you chose so to pick <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1439	1539	
==>ded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module f <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1439	1539	
==>ded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2645	2751	
==>idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($as <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2645	2751	
==>idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7265	7375	
==>ully loaded template module; on a function call
        # death, assume module is damaged and say so; an undefi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7265	7375	
==>ully loaded template module; on a function call
        # death, assume module is damaged and say so; an undefi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13770	13874	
==>xclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13770	13874	
==>xclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2242	2363	
==>mative port of the Perl 5 File::Spec module. Since 
we currently do not have objects or fully functioning modules in 
Pugs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2242	2363	
==>mative port of the Perl 5 File::Spec module. Since 
we currently do not have objects or fully functioning modules in 
Pugs <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	215	316	
==>r $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	215	316	
==>r $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5665	5780	
==>if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5653	5768	
==>if ( $name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$nam <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	243	346	
==>---------------------------------------------------
## constructors

submethod BUILD ($node?) {
    $.de <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	243	346	
==>---------------------------------------------------
## constructors

submethod BUILD ($node?) {
    $.de <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2300	2434	
==>match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do some <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2300	2434	
==>match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do some <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7372	7474	
==>F") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7372	7474	
==>F") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { r <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	12	109	
==>--------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is to <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	12	109	
==>--------------------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2828	2929	
==>S>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2828	2929	
==>S>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1446	1541	
==>nchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1446	1541	
==>nchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5431	5540	
==>_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5431	5540	
==>_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	614	729	
==>piled\n";
my $i = new_interpreter();
$Inline::Parrot::PMC::interpreter=$i;
run_bytecode($i,"loadlib.pbc");
print $ms <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9452	9564	
==>n toggle_visibility (id) {
      var elem     = document.getElementById("details_"  + id),
          expander = d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1588	1777	
==>rm = $meta . '/' . $Prerm;
    if( -e $prerm && -s _ ) {
        system( qq[ $^X $prerm ] )                              and die $?;
    }
    
    while( <$fh> ) {
        chomp;
        -e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2052	2238	
==>{ 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cen <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2052	2238	
==>{ 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cen <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17768	17871	
==>0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).


r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17584	17685	
==>0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10309	10451	
==>lete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10309	10451	
==>lete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4252	4394	
==>]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4240	4382	
==>]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	380	487	
==>rams returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	380	487	
==>rams returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is expo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7052	7210	
==>>
    | <'('>
    | <')'>
    | <'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <'=='>
    | <'!= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16320	16581	
==>ents )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16599	16860	
==>ents )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2000	2127	
==>rereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2880	3007	
==>rereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3364	3494	
==>s_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3364	3494	
==>s_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35859	35961	
==>elation into a new Relation, such that all common attribute names
and corresponding common tuple values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40409	40511	
==>elation into a new Relation, such that all common attribute names
and corresponding common tuple values <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2599	2706	
==>!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2783	2890	
==>!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- co <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2677	2973	
==>, $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2677	2973	
==>, $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1998	2095	
==>lookup. 



This object-serialization format is shared across all runtimes.



=head1 Directory La <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1924	2017	
==>lookup. 

This object-serialization format is shared across all runtimes.

=head1 Directory La <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4059	4175	
==>6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1:0;
    $self->{'p6'} = Perl6::Run::OnPe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25890	25987	
==>elation attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute na <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30442	30539	
==>elation attribute names, or any C<$mapping> values duplicate each other,
or duplicate attribute na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8517	8693	
==>$match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8517	8693	
==>$match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $o <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1047	1201	
==>[$wanted];

  return sub($input) {
    return
      unless defined $input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unle <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2159	2263	
==>ot'  { Pugs::Internals::eval_parrot($code) };
            when 'pir'     { Pugs::Internals::eval_parrot($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2360	2474	
==>ethod: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2360	2474	
==>ethod: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	463	576	
==>urns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $stri <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	463	576	
==>urns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $stri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4120	4227	
==>k.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4178	4285	
==>k.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1694	1854	
==>.output')->write(_('$.testplan')->header());            
        },
        'ok' => sub { 
            my ($self, $passed, $description) = @_;
            $descr <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	682	787	
==>:Bin)]}
*** Please report this issue to <perl6-compiler\@perl.org>.
.
        require "$self->{path}/$self <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6561	6656	
==>, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, las <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23785	23871	
==>]) :- !.
replace_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- !, var(X).
replace_at_n_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7385	7485	
==>nnel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7385	7485	
==>nnel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	100	189	
==>time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	100	189	
==>time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTT <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	79	176	
==>of concept.  A feasibility and performance reality check.
# Hopefully it will develop into a p6 ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5389	5517	
==>Cxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5389	5517	
==>Cxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	480	629	
==>ee) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	480	629	
==>ee) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our re <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16623	16742	
==>> Str )
 multi Str::lc         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after converting each ch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9630	9775	
==>last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9630	9775	
==>last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11998	12251	
==>pression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11998	12251	
==>pression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2188	2295	
==>low whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2199	2306	
==>low whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	49	185	
==>s HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    subme <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	49	185	
==>s HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    subme <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8545	8644	
==>ent is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8545	8644	
==>ent is fired when interpolation is complete.

=back

=head2 Modifier Events

=over 4

=item I<start_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25293	25389	
==>ls the immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29845	29941	
==>ls the immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

T <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4695	4817	
==>sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4695	4817	
==>sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	522	617	
==>Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	522	617	
==>Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1367	1655	
==>, $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1367	1655	
==>, $text); 
            for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        }, <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	761	869	
==>his may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=k <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	761	869	
==>his may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=k <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20414	20517	
==>n. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20414	20517	
==>n. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1025	1122	
==>ddress returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1025	1122	
==>ddress returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B< <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7922	8059	
==>ected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::di <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7980	8117	
==>ected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1457	1603	
==>];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1445	1591	
==>];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  pr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22035	22136	
==>_member(class_neg(print)     ,C) :- !, \+(isPrint(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1447	1547	
==>pos::ISA, __PACKAGE__;
  push @Regexp::Parser::eol::ISA, __PACKAGE__;

  sub new {
    my ($class, $r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1279	1369	
==>:: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1279	1369	
==>:: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1657	1799	
==>e_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs( <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1657	1799	
==>e_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	687	788	
==>ringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	687	788	
==>ringify).
method _stringify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	427	555	
==>libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pug <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	427	555	
==>libs->{sitearch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pug <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1260	1351	
==>motivating implementations in p5/p6/haskell.
  - perhaps serve as a reference implementation <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	61	168	
==>, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verkettun <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	904	998	
==>-1-cpan+kane

=head1 METHODS

=head2 $pkg = JIB::Package->new( file => /path/to/jib | meta => M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24086	24195	
==>>error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20507	20616	
==>>error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3307	3451	
==>xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3307	3451	
==>xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+} <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1446	1539	
==>out Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1446	1539	
==>out Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7294	7406	
==>::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7294	7406	
==>::Model::Node',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Node);
}

my method _assert_a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	807	908	
==>( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	807	908	
==>( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14079	14177	
==>as case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14079	14177	
==>as case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Practic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	17	111	
==>:Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	17	111	
==>:Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	126	383	
==>1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	126	383	
==>1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	672	778	
==>run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4052	4179	
==>_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4052	4179	
==>_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8714	8809	
==>od load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8714	8809	
==>od load_template_module (Str $module_name!) {

    $?SELF!_assert_arg_str( 'load_template_module <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29167	29296	
==>Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29167	29296	
==>Str $msg_key!) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the te <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28021	28122	
==>s of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32573	32674	
==>s of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4146	4246	
==>LineNotForwardSlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceCharacter but not ...
}
rule Sing <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1793	2199	
==>:Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1793	2199	
==>:Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23882	24003	
==>d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ift <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20303	20424	
==>d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ift <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3905	4032	
==>(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3963	4090	
==>(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14041	14144	
==>digit(D1), octdigit(D2), {number_chars(I,[42,111,D0,D1,D2])}.


alnums([C|T]) --> [C], {code_type(C,alnu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	442	569	
==>const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	442	569	
==>const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = sh <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	133	230	
==>z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <s <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	133	230	
==>z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2762	2920	
==>/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Mis <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2762	2920	
==>/]}
       ) {
        $vol ~~ rx:perl5{([\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Mis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15583	15685	
==>Str) of Any - This contains zero or more attribute names and values
that help to define this Node.

=it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15583	15685	
==>Str) of Any - This contains zero or more attribute names and values
that help to define this Node.

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14213	14328	
==>ifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree->[-1]->family eq "assert <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6614	6758	
==>h = $op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6400	6536	
==>h = $op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6153	6251	
==>rs are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6153	6251	
==>rs are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is ret <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13291	13377	
==>s="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name= <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4089	4234	
==>$dump .= "$key:\n";
        foreach ( @{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4156	4255	
==>Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vilain

=c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4156	4255	
==>Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump" Vilain

=c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21085	21177	
==>greSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, Front <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21085	21177	
==>greSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, Front <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2300	2412	
==>rgs(
        INSTALLARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs->{privlib},
        INSTALLSIT <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1140	1289	
==>Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1140	1289	
==>Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                die "Type error: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2945	3097	
==>when ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2945	3097	
==>when ::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	891	1093	
==>%attrs!) {
    %!attrs = %attrs;
}

###########################################################################

method export_attrs of Relation::LaxAttrList () {
    return %!attrs;
}

method export_att <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1352	1432	
==>lar_alias>|<numbered_scalar_alias>|<array_alias>|<hash_alias>|<external_scalar_al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9720	9839	
==>it_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9700	9819	
==>it_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7734	7887	
==>xpires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7734	7887	
==>xpires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6542	6644	
==>Bar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls ne <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11600	11702	
==>Bar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls ne <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1993	2096	
==>g the 
last component of the calling function's package name.  (For example, if 
a function in C<Some::M <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1993	2096	
==>g the 
last component of the calling function's package name.  (For example, if 
a function in C<Some::M <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	951	1061	
==>e a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	951	1061	
==>e a store for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8682	8779	
==>ule_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8682	8779	
==>ule_name).does(Package);
}

method load_template_module (Str $module_name!) {

    $?SELF!_assert_ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	225	331	
==>m('&infix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => "simple addition",
	},
	{
		ast => App(
			Sym( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2592	2692	
==>e HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2592	2692	
==>e HTTP server, useful to the authors of CGI scripts.

=head2 Request Details

An HTTP::Request::CGI o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8388	8497	
==>ance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5928	6033	
==>ance method.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	200	314	
==>shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend::$backend";
		use_ok($m);

		can_ok( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1949	2055	
==>ct(bol => $type, '^');
  });

  # sbol (beginning of line in single-line mode)
  $self->add_handler('\A' => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48601	48683	
==>le->send('add_attribute', (symbol->new('$:authority') => attribute->new('$:authorit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1372	1495	
==>et_attr(symbol->new('@:superclasses')) 
        if $supers->is_empty == $bit::TRUE;    
        
    push @classes => $super <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3911	4003	
==>parametered thunks these thunk have no -> type

	$self->define_named_block($node, $symbol, $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28082	28174	
==>All nodes inherit from F<Regexp::Parser::__object__> the following
methods:

=over 4

=item m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2795	2930	
==>urns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::Tr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2795	2930	
==>urns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::Tr <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4626	4744	
==>"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %pad<"paramContext">,   
            %pad<"paramDefa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2863	2957	
==>ves(union(W,X), Z), !.
p5_alternatives(W, W) --> {true}.


p6_start(Z)    --> p6_conjunct(W), p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2831	2932	
==>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2831	2932	
==>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10178	10310	
==>ame    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10178	10310	
==>ame    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6407	6507	
==>ment is printed
to the selected default filehandle for output (normally STDOUT) as
data is received f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6407	6507	
==>ment is printed
to the selected default filehandle for output (normally STDOUT) as
data is received f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	822	961	
==>}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'tighter',
        other => '*', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	868	963	
==>e;

*mod = Pugs::Compiler::Token->compile(q( \: <rule_name> { return $<rule_name> . " => 0" } )) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3385	3552	
==>_bindir = "$Site/$path/bin";
                last LINKING unless -d $my_bindir;

                ### load in the alternatives collection
                my $href = Load <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6368	6484	
==>arams;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_enco <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6368	6484	
==>arams;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $val {
            @packed_params.push(url_enco <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25073	25170	
==>hether the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29625	29722	
==>hether the argument C<$tuple> exists
in / is a member of this Relation.

=item C<equal (Relation $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6058	6145	
==>ay_type($expected_type) . " for placeholder of " . Blondie::Emitter::Pretty->new->string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11718	11837	
==>constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11712	11831	
==>constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3126	3319	
==>$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + $lconst),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24759	24864	
==>s part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24759	24864	
==>s part of the Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22124	22222	
==>12.11
      <'{'> <CaseClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <CaseClauses>? <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	698	834	
==>don't ", "o");
    return 0x0;
  });

  $self->add_handler('\a' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21472	21563	
==>Parser::ifthen::ISA, __PACKAGE__;
  push @Regexp::Parser::eval::ISA, __PACKAGE__;
  push @Re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15864	15961	
==>rogram will raise a condition or error that,
while resembling a message that would be shown to a u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15864	15961	
==>rogram will raise a condition or error that,
while resembling a message that would be shown to a u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1262	1389	
==>e->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1262	1389	
==>e->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7355	7447	
==>RLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7355	7447	
==>RLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) return <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	181	291	
==>name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	181	291	
==>name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15726	15829	
==>ueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15726	15829	
==>ueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1490	1588	
==>ource => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1490	1588	
==>ource => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17404	17540	
==>l non-conversion text
        my $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2540	2708	
==>extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2445	2604	
==>extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	513	626	
==>s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => \@prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	513	626	
==>s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that make up the prelude
"prelude=s@" => \@prelude <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	937	1040	
==>call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TOD <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	937	1040	
==>call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm
# TOD <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	905	1112	
==>ection headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($lin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	905	1112	
==>ection headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($lin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1685	1837	
==>gths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1685	1837	
==>gths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1049	1174	
==>int "tail $match \n"; 
            
            # XXX @expect should use symbolic names; better use TABLE instead of 'literal' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18040	18136	
==>is, multiple DBMS objects will not
have references to each other at a level visible in the Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18040	18136	
==>is, multiple DBMS objects will not
have references to each other at a level visible in the Rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2948	3073	
==>l $Z::oop{$id}{'op_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if $debug <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	59	183	
==>OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	59	183	
==>OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1162	1366	
==>Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1162	1366	
==>Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SE <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3785	3953	
==>-2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3785	3953	
==>-2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1937	2087	
==>1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1937	2087	
==>1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (nod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5508	5783	
==>\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version > <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5508	5783	
==>\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version > <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2819	2971	
==>config );
            
            ### if the metadir doesn't exist yet, this is a 'clean' dir,
            ### and we need to set it up for holding meta <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1516	1646	
==>le to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1516	1646	
==>le to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API}{code};
    my $pkg  = $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	657	884	
==>ment => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	657	884	
==>ment => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12525	12641	
==>s used to represent ranges of things that can be counted, such as beats per minute, 
wags per second, or holidays per <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12525	12641	
==>s used to represent ranges of things that can be counted, such as beats per minute, 
wags per second, or holidays per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37492	37587	
==>package in its positional parameter
$module_name (a string) and tries to load it using 'require' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37492	37587	
==>package in its positional parameter
$module_name (a string) and tries to load it using 'require' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1241	1345	
==>urrence set.

These methods are disabled: complement(), difference($set)

  ---------------- end Construc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1241	1345	
==>urrence set.

These methods are disabled: complement(), difference($set)

  ---------------- end Construc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4592	4698	
==>erimental development version.  The API is still in flux.

The set of implemented features depends on the C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4842	4948	
==>erimental development version.  The API is still in flux.

The set of implemented features depends on the C <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	459	579	
==>gs,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$Fi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	459	579	
==>gs,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$Fi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	68	217	
==>ss Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	68	217	
==>ss Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13083	13209	
==>([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6558	6684	
==>([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1	120	
==>odule CGI::Server-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
su <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1	120	
==>odule CGI::Server-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2840	2943	
==>terface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2840	2943	
==>terface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Inter <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1984	2148	
==>r
    Ref         Perl reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehandle
    Code        Ba <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	86	197	
==>>import();
}

use File::Basename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least one s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	296	412	
==>) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	296	412	
==>) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14394	14499	
==>=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_array_handlers{$reftyp};
    die "bug $reftyp" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16714	16805	
==>p::CharClassOps

Implements character class operations like union, intersection, and
subtrac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11753	11855	
==>', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you wi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11811	11913	
==>', '... testing gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you wi <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1169	1282	
==>GRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_i <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1169	1282	
==>GRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_i <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1039	1127	
==>= $ENV{HARNESS_PERL};
push @{$Config{"exclude"}}, 'Disabled' if not $Config{"exclude"} or <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4095	4210	
==>ue);
}

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3773	3929	
==>rected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3773	3929	
==>rected_initial_age'
                $age += ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3515	3630	
==>esult3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('toString');
        if $Result5.i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22506	22611	
==>}

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18927	19032	
==>}

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19012	19199	
==>lass) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WH <==
2	/Users/nnunley/pugs/util/drift.pl	1680	1768	
==>port Data.Yaml.Syck
import DrIFT.YAML
import DrIFT.JSON
import DrIFT.Perl5
import Control <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15295	15440	
==>t implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15289	15434	
==>t implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritab <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2407	2510	
==>lf.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2407	2510	
==>lf.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	415	512	
==>ul similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class T <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	415	512	
==>ul similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
class T <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17010	17118	
==>::META";
    no strict;
    $$meta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1456	1577	
==>y $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1423	1544	
==>y $ftp = $self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11349	11446	
==>ere "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_V <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11349	11446	
==>ere "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_V <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8690	8813	
==>pan0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8690	8813	
==>pan0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1675	1775	
==>ch = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1675	1775	
==>ch = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18399	18529	
==>e_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14820	14950	
==>e_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10659	10757	
==>ray>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<request_m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10659	10757	
==>ray>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<request_m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2550	2655	
==>I>

Placeholder for dummy nodes that contain only source representation.

=back

=head1 API METHODS

These <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2550	2655	
==>I>

Placeholder for dummy nodes that contain only source representation.

=back

=head1 API METHODS

These <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3874	3960	
==>off, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs14 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3874	3960	
==>off, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs14 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10048	10151	
==>text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10048	10151	
==>text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments ar <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14517	14625	
==>gify
		unless $f->is_arrow;
	
	
	my $p_f = $f->left;
	my $ret = $f->right;
	
	my $generic_vars = generic($.fu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2872	3019	
==>/code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2872	3019	
==>/code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        return "<HT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3681	3793	
==>class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3865	3977	
==>class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	116	242	
==>ift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{" <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	116	242	
==>ift;
    my $code = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6254	6404	
==>_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6254	6404	
==>_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($pat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	112	224	
==>sename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least one source dir';

for my $srcdir <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1204	1305	
==>ml) {
	my $code = join(" ",@eval);
	$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl6: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27825	27922	
==>ethod returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27825	27922	
==>ethod returns the Message Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3199	3333	
==>ource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3339	3473	
==>ource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %args = %{$flags->{args}} if defined $flags && defined $f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16144	16281	
==>ation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19621	19758	
==>ation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pairs.map:{
                $_. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4879	4993	
==>h>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and returns it as an array of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4879	4993	
==>h>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and returns it as an array of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11133	11243	
==>ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11133	11243	
==>ARG' => $arg } )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17179	17306	
==>optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17179	17306	
==>optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_han <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1239	1348	
==>"/" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extra <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	190	311	
==>T_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	190	311	
==>T_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29808	29908	
==>that subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation::Exampl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12339	12503	
==>(my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12339	12503	
==>(my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9373	9478	
==>an1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9373	9478	
==>an1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @span = $span0 <==
2	/Users/nnunley/pugs/util/package-osx.pl	876	982	
==>t.a
        /usr/local/lib/libparrot.dylib
        /usr/local/lib/parrot
        /usr/local/lib/pkgconfig/p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20489	20610	
==>\) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16910	17031	
==>\) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->erro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26615	26735	
==>r, in which case it returns the identity-one
Relation or the invocant Relation respectively.  This method will fail if
an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31167	31287	
==>r, in which case it returns the identity-one
Relation or the invocant Relation respectively.  This method will fail if
an <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1982	2079	
==>by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 SE <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1982	2079	
==>by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=head1 SE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6599	6716	
==>tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNIC <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6599	6716	
==>tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNIC <==
2	/Users/nnunley/pugs/util/importgraph.pl	2176	2282	
==>'prim_lifts', 'Pugs.Prim.Lifts');
setup_rank('embed', qr/^Pugs\.Embed\.\w+$/);
setup_rank('codegens', 'Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3076	3216	
==>LE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3293	3433	
==>LE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2383	2518	
==>{
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and cle <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2383	2518	
==>{
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $base and cle <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	259	359	
==>_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	317	417	
==>_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO tests
$Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2044	2238	
==>),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2291	2485	
==>),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	304	460	
==>->new( 
        grammar => 'Pugs::Grammar::Operator',
        header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15177	15285	
==>class => upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21344	21455	
==>lue
is the corresponding attribute value.

Every Relation attribute has a name that is distinct from the other
a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25896	26007	
==>lue
is the corresponding attribute value.

Every Relation attribute has a name that is distinct from the other
a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8582	8691	
==>e second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # prece <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6116	6222	
==>e second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # prece <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	763	879	
==>{
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $. <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	763	879	
==>{
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6146	6318	
==>^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pac <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6146	6318	
==>^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pac <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12403	12533	
==>$env
	);
}

# entering a function creates a new env (the parameter is associated with a new type variable)
# this new env is passed <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	160	265	
==>ule" function gets as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	151	252	
==>ule" function gets as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an op <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6484	6590	
==>elf: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6484	6590	
==>elf: ) {
    return $self.previous( Inf );
}

# --------- internals -----------

submethod _get_union ( $cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34362	34459	
==>ject.
The Set Names property of the new object is set from the named parameter
@set_names (an arra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34362	34459	
==>ject.
The Set Names property of the new object is set from the named parameter
@set_names (an arra <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20061	20182	
==>aram => "x",
	body => let(
		ide => "fac'",
		is => fun(
			param => "x",
			body => fun(
				param => "r",
				body => co <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10859	10973	
==>ly to a smoke.
  </p>

  <p>
    (Timezone is UTC.<br />
    Also note that, depending on the backend, the
    <cod <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2790	2914	
==>");

    my %escape = (
    "e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1792	1897	
==>~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1792	1897	
==>~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12196	12299	
==>1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12196	12299	
==>1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6531	6639	
==>annels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6531	6639	
==>annels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left chann <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12122	12232	
==>ord commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12122	12232	
==>ord commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $command, Str $object, St <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1949	2058	
==>equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1949	2058	
==>equal($self: Set $other) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	931	1024	
==>expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expect <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	931	1024	
==>expected), find_description( $description ) );
}

sub pil_parsed_is_eq( Str $code, Str $expect <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5421	5548	
==>turns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5421	5548	
==>turns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2975	3097	
==>h,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2975	3097	
==>h,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11387	11515	
==>ontrol character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2978	3106	
==>ontrol character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc;
    my $c = $1;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1955	2080	
==>s($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1955	2080	
==>s($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15310	15407	
==>t there!)

=item Regexp::MinLength

Implements a min_length() method for all objects that determin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5088	5228	
==>$_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5088	5228	
==>$_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11876	12012	
==>de, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11876	12012	
==>de, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	886	1039	
==>\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	879	1032	
==>\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34551	34653	
==>t takes a single Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39101	39203	
==>t takes a single Relation
in its C<$other> argument, where the heading of <$other> is a subset of the
h <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	64	174	
==>2012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	64	174	
==>2012;

=head1 NAME

Perl6::Pugs - A Perl 6 Implementation

=head1 VERSION

This document describes version 6.2. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4557	4682	
==>[^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self->error(RPe_NOTERM);
    }
    &Rf & $self->FLAG_x and ${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	185	295	
==>$ffff  = chr(0xff) x 2;
our $nulnul = "\0" x 2;

my $debug_warnings = 0;
my @tests = `cat re_tests`;
sub test { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1147	1256	
==>() {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1147	1248	
==>() {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
su <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1263	1414	
==>alid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # dep <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4741	4892	
==>alid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # dep <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8288	8411	
==>e($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8288	8411	
==>e($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnic <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	28	141	
==>th of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.mo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	28	141	
==>th of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.mo <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	190	318	
==>py ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	190	318	
==>py ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2436	2533	
==>et($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2436	2533	
==>et($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	811	937	
==>f we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	811	937	
==>f we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root of the path <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10800	10949	
==>bst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into co <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10800	10949	
==>bst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7668	7813	
==>ading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
} <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11145	11290	
==>ading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3317	3417	
==>ers of the request are accessible through the HTTP::Query object that
is part of every HTTP::Request: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3317	3417	
==>ers of the request are accessible through the HTTP::Query object that
is part of every HTTP::Request: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3625	3726	
==>, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3283	3382	
==>ck

=head2 Parameters

The parameters of the request are accessible through the HTTP::Query object t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3283	3382	
==>ck

=head2 Parameters

The parameters of the request are accessible through the HTTP::Query object t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19112	19241	
==>fthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20470	20599	
==>fthen->{data}[1]{data} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16042	16171	
==>sword" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16042	16171	
==>sword" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => - <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1043	1147	
==>tr is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exportin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1043	1147	
==>tr is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exportin <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2599	2737	
==>n ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2599	2737	
==>n ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1801	1928	
==>}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1801	1928	
==>}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15963	16078	
==>rn Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19440	19555	
==>rn Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my meth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6402	6539	
==>{
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_ba <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6460	6597	
==>{
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_ba <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4963	5050	
==>whitespace { def_thing(\@whitespaces,1,@_) }
sub def_statement  { def_thing(\@statements <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1172	1268	
==>he compiler the default environment to work with (from
L<Blondie::Prelude>), and provides an easy <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2915	3026	
==>ondie ASTs

=head1 SYNOPSIS

    use Blondie::Compiler;

    my $c = Blondie::Compiler->new;
    $c->compile($ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8067	8220	
==>);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8067	8220	
==>);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2469	2863	
==>arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @body) . '; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	736	874	
==>ponse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	736	874	
==>ponse created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8547	8662	
==>d nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "T <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8547	8662	
==>d nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42);
  say "T <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21203	21300	
==>{failed}};
            (my $txt, $canon) = _canonfailed($test->{max},$test->{skipped},@{$test->{fa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2339	2469	
==>lds)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2339	2469	
==>lds)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10305	10398	
==>tringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10305	10398	
==>tringify($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%opt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12352	12492	
==>.= $1 while ${&Rx} =~ m{ \G ([0-7]) }xgc;
        return $S->object(exact => chr oct $v, sprintf("\\%03s", $v));
      }

      $S->warn(RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9045	9187	
==>t implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9045	9187	
==>t implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3455	3591	
==>nd;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3455	3591	
==>nd;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $sp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3471	3573	
==>*?) <p6ws>? \;
        { return { _push => $() ,} }
RULE
*{'pod'} = Pugs::Compiler::Rule->compile(<<'RU <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1676	1775	
==>eturn "at $caller[1] line $caller[2]";
}

# DON'T use this for matches. Use like() instead.
sub ok ( <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	845	1061	
==>b {
                my $self = shift;
                my $idx = shift;
                $self->hash_fetch->{$idx};
            },
            hash_storeElem => sub {
                my $self = shift;
                my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7073	7185	
==>(\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7073	7185	
==>(\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{norma <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	943	1043	
==>ul defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<serv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	943	1043	
==>ul defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<serv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1848	1966	
==>e return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1848	1966	
==>e return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10978	11074	
==>elf->{_old5lib} = $ENV{PERL5LIB};

    return join $Config{path_sep}, $self->_filtered_INC;
}

=h <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1091	1193	
==>cross all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers pr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1091	1193	
==>cross all byte values, not just the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers pr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	529	638	
==>ction can be used in a safe
context (such as the IRC evalbot) using `is safe` or `is unsafe`.

For functions e <==
2	/Users/nnunley/pugs/util/run-smoke.pl	329	432	
==>n't seem to have the required modules installed.
Please install it from the CPAN and try again.

A bundl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	683	775	
==>able({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object->whitespaceTermT <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4048	4146	
==>.

=item B<List of Failed>

A list of the tests which failed.  Successive failures may be
abbreviat <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	311	416	
==>s"
      unless $install_version =~ /^[56]$/;

    $self->setup_perl6_install
      if $install_version eq <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13805	13939	
==>ames => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13805	13939	
==>ames => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37300	37398	
==>e (a string) and checks whether or not it has already been
loaded, returning true if so and false i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37300	37398	
==>e (a string) and checks whether or not it has already been
loaded, returning true if so and false i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15967	16060	
==>s
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16025	16118	
==>s
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	965	1073	
==>+$self->{node_counter};
}

sub layout {
	my $self = shift;

	our $indent;

	if (@_ > 1 or "@_" =~ /\n/){
	ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6837	6938	
==>{method}{bareword} eq 'perl' ) {
            return 'Pugs::Runtime::Perl6::perl(' . _emit( $n->{self} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5630	5765	
==>work, as file::copy doesn't do it for
    ## us :(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $base = quotemeta dirname( $fr <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	317	411	
==>ecode(slurp(catfile($Path, $SID)));
    CookiesAdd('sid',$SID);
}

sub SessionID() { return $SI <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	824	917	
==>on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>). <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	824	917	
==>on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6>). <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7639	7737	
==>e}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7639	7737	
==>e}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users. <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	126	216	
==>kommentieren mehrerer Zeilen kann man POD benutzen:

#!\begin{block}{}\texttt{
=begin COMME <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8396	8501	
==>hod.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5936	6037	
==>hod.  Adds a new operator to the category.

options:

=item * name => $operator_name - the name of thi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4319	4430	
==>: $@" ), return;
    
        $self->meta(JIB::Meta->new_from_struct(struct => $meta)) or return;
        system <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1149	1323	
==>ytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1149	1323	
==>ytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5203	5385	
==>l {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5039	5216	
==>l {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	813	909	
==>rg/repos/iblech/Perl6-Bible/';
    print <<__HELP__;
$0 - Build html test catalog and synopses wi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	803	912	
==>ile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	803	912	
==>ile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22917	23015	
==>ion on what's wrong
with it.

=item * Variable interpolation

This module parses I<regexes>, not Pe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	269	438	
==>,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->Write <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	315	458	
==>,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->Write <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8240	8339	
==>nt is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event clo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8240	8339	
==>nt is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event clo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26840	26951	
==>}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\]\-]> #SourceCharacter but not ...
    | <'\\'>
    | <Class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26458	26555	
==>ceeded.

=head2 Parser Methods

=over 4

=item my $obj = $parser->object(TYPE => ARGS...)

This cr <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9240	9339	
==>@values ; Code *&expression --> Scalar )
 multi  List::reduce (Code $expression ; *@values --> Scala <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	851	959	
==>{
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    retu <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	851	959	
==>{
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }!;
    retu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10288	10421	
==>> <<HELP;
      We need a temporary directory the initrd.gz will be built later from.
      We'll copy pugs and the libraries it needs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2327	2481	
==>' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2315	2469	
==>' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dump <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3326	3511	
==>e manpages
            LINKING: {   
                my $my_bindir = "$Site/$path/bin";
                last LINKING unless -d $my_bindir;

                ### load in the alternatives c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	629	729	
==>hould be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	629	729	
==>hould be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25559	25673	
==>s the name of a condition being reported, if it is used
as an exception payload).  The key is intended to be read b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25559	25673	
==>s the name of a condition being reported, if it is used
as an exception payload).  The key is intended to be read b <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5921	6071	
==>' => Thunk->new(
        Seq->new(
            Param->new('$string'),
            App->new(
                Sym->new('&print'),
                Sym->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5114	5316	
==>exists $n->{param}{cpan_bareword} ) {
                if ( $n->{param}{cpan_bareword} =~ /^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2616	2742	
==>);

    $<variable>:=(<variable>)<?p6ws>?\=<?p6ws>?slurp<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { return { slurp => $() } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3521	3715	
==>3] = bless \{ 
                bool  => \$bool,
                str   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \($_[5] + length $1),
                named = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	861	982	
==>to_str { str->new('' . (shift)->to_native) }
sub to_num { (shift)->keys->length             }
sub to_bit { (shift)->keys-> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6690	6793	
==>xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isName <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6690	6793	
==>xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  'isName <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3852	3975	
==>, :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3910	4033	
==>, :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14541	14647	
==>s
testing needs. This module will be the code support for those needs. The
following is a list of future fe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14599	14705	
==>s
testing needs. This module will be the code support for those needs. The
following is a list of future fe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4497	4644	
==>q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4637	4784	
==>q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13161	13289	
==>f ( $n->{op1}{op} eq ':' ) {
        return _emit( $n->{exp1} ) . "  # XXX :\$var not implemented\n";
    }
    
    if ( $n- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	592	690	
==>:TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]}

my %by_digest = (
	map { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13015	13147	
==>, $self->raw;
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	464	611	
==>p_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	162	277	
==>orted to Perl6 by Dan Brook
###

## Chapter 8 section 3

## XXX - Exporting still doesn't work quite right.
# packag <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	25	117	
==>gies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	25	117	
==>gies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7380	7497	
==>al pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Ex <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9057	9174	
==>al pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Ex <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	918	1020	
==>::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LW <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	885	987	
==>::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { require LW <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1352	1580	
==>e from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{... <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	305	401	
==>qw<
    name module_name version abstract author license
    distribution_type perl_version tests <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	483	614	
==>ch my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;
        $s <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4602	4712	
==>azy">,
            %pad<"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %pad<"paramContext"> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15783	15888	
==>1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15783	15888	
==>1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free software; you can r <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	276	377	
==>self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	276	377	
==>self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4848	4978	
==>],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4682	4805	
==>],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	962	1098	
==>s;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	962	1098	
==>s;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4353	4700	
==>g;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        re <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3163	3269	
==>\d+)\.(\d\d\d)(\d*)}{join('.', $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5509	5628	
==>re on a Windows-ish system, without GHC
        # in our path.   Let's hunt around for it.

        my $slash = ( $Confi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5798	5899	
==>mar::Match



Rule constructors return Rule objects, which are "matcher" things.

Rules operate on str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5597	5695	
==>mar::Match

Rule constructors return Rule objects, which are "matcher" things.
Rules operate on str <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	811	923	
==>eturn if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	811	923	
==>eturn if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7578	7731	
==>tory.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->add_file(file => $_) for @_;
# 
#     return @r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	500	626	
==>ar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;
        $self->{'value <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23069	23174	
==>}

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19490	19595	
==>}

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4062	4149	
==>])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*26 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4062	4149	
==>])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*26 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9709	9834	
==>n, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9709	9834	
==>n, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cooki <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22560	22688	
==>ta) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23905	24033	
==>ta) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'if <==
2	/Users/nnunley/pugs/util/importgraph.pl	444	548	
==>re,
) or die "invalid command line";

my $g = GraphViz->new(
  layout => $layout,
  directed => 1,
  rank <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16558	16650	
==>es TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16558	16650	
==>es TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> documen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2004	2181	
==>t_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $description,
                )
            );
            return $passe <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5144	5240	
==>nel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_local,
  "grub-local=s" <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4142	4240	
==>given.

The value for day can also be the string "last", in which case the
object returned represen <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4142	4240	
==>given.

The value for day can also be the string "last", in which case the
object returned represen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9947	10050	
==>ext
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9947	10050	
==>ext
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10514	10609	
==>t for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, which <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10514	10609	
==>t for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, which <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19811	19913	
==>at use the
"Basic Authentication Scheme".  In array context it will return two
values; the user name an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19811	19913	
==>at use the
"Basic Authentication Scheme".  In array context it will return two
values; the user name an <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	455	560	
==>( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	455	560	
==>( $code ), stringify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6924	7033	
==>ined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6982	7091	
==>ined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	58	163	
==>str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	58	163	
==>str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16919	17019	
==>argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a str <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16919	17019	
==>argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a str <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6607	6709	
==>ries), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6607	6709	
==>ries), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	572	697	
==>ed => $1 }, value => { single_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17857	17946	
==>1,Ex,E1) ).


rm(repeat(Re,Min, - ),F0,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7674	7795	
==>s preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7674	7795	
==>s preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=o <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16760	16888	
==>safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	523	648	
==>s Relation::Example::Heading-0.1.0 {
    does Relation::Heading;

    # External packages used by the Relation::Example::Headi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1945	2066	
==>C_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our & <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1945	2066	
==>C_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our & <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	83	182	
==>V<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWAR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	83	182	
==>V<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWAR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6518	6623	
==>he generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6530	6635	
==>he generated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1494	1626	
==>$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1494	1626	
==>$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1248	1353	
==>erically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1248	1353	
==>erically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2374	2521	
==>::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2374	2521	
==>::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10687	10785	
==>nce.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10687	10785	
==>nce.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9930	10048	
==>s_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9930	10048	
==>s_into_template_text
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UND <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1176	1272	
==>igned for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selecti <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1176	1272	
==>igned for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selecti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2246	2356	
==>$msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2246	2356	
==>$msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket.flush();
  }

  my m <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7506	7628	
==>y ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_te <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7563	7685	
==>y ( $pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_te <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	468	568	
==>e bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6") {
    system( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3001	3148	
==>rgs here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3001	3148	
==>rgs here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8613	8711	
==>spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8613	8711	
==>spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3086	3212	
==>@$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3086	3212	
==>@$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1021	1229	
==>push $a, parse( <<>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $ke <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4952	5066	
==>self->has_method($method_name);
            # otherwise ... add the method in 
            $self->add_method($metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20832	20931	
==>>scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20832	20931	
==>>scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to t <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1229	1328	
==>ill find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curr <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1229	1328	
==>ill find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVEATS

Curr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	909	1014	
==>when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILS <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	909	1014	
==>when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILS <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9454	9575	
==>ring";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9454	9575	
==>ring";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	74	189	
==>int_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	74	189	
==>int_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub im <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1001	1134	
==>) {
        return;
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->file

Locati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28335	28433	
==>ll
(for an 'anchor' node).

=item my $e = $obj->ender()

The arguments to object() to create the en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	671	768	
==>>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	671	768	
==>>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	397	504	
==>eturn $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	397	504	
==>eturn $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5713	5815	
==>ead1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5713	5815	
==>ead1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9198	9357	
==>rom
    lastpos = length target
    min = 1
    max = 1
    islazy = 0
    $S0 = substr target, pos, 2
    if $S0 == "**" goto quant_closure
    $S0 = substr ta <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14919	15012	
==>our current lexical context has
declared the "working unicode level to be". Default is LChars. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	814	949	
==>",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	814	949	
==>",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	311	417	
==>defined $value; # default to 0
    (looks_like_number($value)) 
        || confess "Bad numeric value ($val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6567	6775	
==>okie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6567	6775	
==>okie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # . <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8943	9128	
==>or split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8943	9128	
==>or split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2979	3091	
==>status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2979	3091	
==>status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BO <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13897	14014	
==>$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13897	14014	
==>$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same li <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1215	1314	
==>\n*** $entry->{package} depends on $depends->{package}...\n";
    
        system(qq[$^X bin/install <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2096	2195	
==>n\n" } and
    return $compress = sub { Compress::Bzip2::memBzip(shift) };
  eval { require Compress <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2255	2361	
==>setta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2255	2361	
==>setta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosett <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2489	2603	
==>}");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2489	2603	
==>}");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9467	9556	
==>set_identifier(X), ":]", !.
p5_charset_item(R) --> p56_char_class(R).
p5_charset_item(R) - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2212	2316	
==>e

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2223	2327	
==>e

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::al <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19511	19632	
==>Compile subclass.

The lines within a given block between a C<use> and C<no> statement
are marked to be passed to that com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19511	19632	
==>Compile subclass.

The lines within a given block between a C<use> and C<no> statement
are marked to be passed to that com <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9142	9315	
==>= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12619	12792	
==>= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relatio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4405	4524	
==>_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4405	4524	
==>_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2319	2512	
==>($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2319	2512	
==>($last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_el <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2977	3078	
==>ector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2977	3078	
==>ector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphertex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	728	854	
==>code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	739	865	
==>code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2658	2764	
==>rig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10632	10725	
==>the right return value from another Object singleton/class method called by Bar');

is($Bar->s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5710	5814	
==>though the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the on <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5710	5814	
==>though the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the on <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1129	1227	
==>elf.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1129	1227	
==>elf.size);
}

method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any( <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	315	445	
==>$path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add t <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	315	445	
==>$path and not -d $path) {
            $*ERR.say("Parameter to lib.import() must be directory, not file");
        }
        # add t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8311	8481	
==>ub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8311	8481	
==>ub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $matc <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2391	2516	
==>s->{test} = { TESTS => $self->tests };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8670	8772	
==>exp::Parser::branch;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	945	1043	
==>rldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are di <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	945	1043	
==>rldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18393	18488	
==>ctures are in exactly the right input
format for Node.new(), by which you can create an identica <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18393	18488	
==>ctures are in exactly the right input
format for Node.new(), by which you can create an identica <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	537	667	
==>{ return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	537	667	
==>{ return [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 , <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28031	28127	
==>trs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32583	32679	
==>trs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of S <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1056	1162	
==>apper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1056	1162	
==>apper around a closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8611	8720	
==>s>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x' <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	770	873	
==>malize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %para <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	770	873	
==>malize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if defined %para <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3061	3173	
==>object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3061	3173	
==>object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::I <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3544	3674	
==>> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> \> }
rule word_boundary  { \\ b }
#rule element_boundary { \< , \ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6174	6288	
==>tion      => sprintf("%.02f", Time::Seconds->new($6)->minutes) . "&nbsp;min",
      summary       => [{
        tot <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15541	15648	
==>nter_scope;
    my $node = Thunk->new($self->reduce($thunk->val));
    $self->leave_scope;

    return $node <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	259	356	
==>i method delete (*@index ) returns List of Object;
multi method exists ($index ) returns Object;
m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13706	13808	
==>:Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persisten <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13706	13808	
==>:Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate the use of a persisten <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4345	4469	
==>erm;
  }
  $pos++;
  if (initchar eq "#" ) goto term_ws;
  if (initchar ne "\\") goto term_literal;
  {
  }
  else
  {
    if <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2675	2776	
==>or that to happen.

Inherits Unit.

=item App

An App makes a Thunk reduce to it's value (and also pre <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7075	7226	
==>. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7075	7226	
==>. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2562	2680	
==>f - but I think to

do it Right As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2467	2580	
==>f - but I think to
do it Right As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1884	2022	
==>st_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size = <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1884	2022	
==>st_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19411	19515	
==>=> ide("y"),
);

# this is a higher order function that takes a function and applies it to a string
# thi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16397	16482	
==>t_modifiers(E0,M,E1).
rm(group_modify(M,Re),F0,F1,B0,B1,E0,E1) :- 
  set_modifiers(E0, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9630	9726	
==>turns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9630	9726	
==>turns Array {...}
# Many, but not all, ciphers will need to override these
method _head() returns <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	642	760	
==>start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start < <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	642	760	
==>start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start < <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10553	10745	
==>$klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10553	10745	
==>$klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8605	8703	
==>- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span object <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8605	8703	
==>- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span object <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1305	1435	
==>e; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1305	1435	
==>e; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,*@fields) {
    my $code = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6702	6798	
==>py internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_hea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6702	6798	
==>py internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_hea <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	852	954	
==>urns Duration::Gregorian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2594	2734	
==>.

=cut

sub _perl_version {
    my $self = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = {
        perl    => { required => 1, sto <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2672	2781	
==>nator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7.2 Whit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	526	776	
==>)";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_[0]', 
            match => do{ my \@match; $_[1]; \\\@match },
        } }";
}

sub null {
    "1";
};

sub optional {
    alternation( @_, 1 );
} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10771	10869	
==>_[0];my($vars)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self=\$_[0];my($vars)= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33343	33440	
==>wish to override the user text of another library
which it uses, the Template module for the progr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33343	33440	
==>wish to override the user text of another library
which it uses, the Template module for the progr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17407	17559	
==>) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13828	13980	
==>) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2814	2955	
==>\char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2998	3139	
==>\char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closur <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1714	1813	
==>ks like early
# phase development.  There's a "return" halfway down the file to cut
# off constructi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9437	9535	
==>bute-value pairs also called fields, which
may be repeated, and which are printed in a particular o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9437	9535	
==>bute-value pairs also called fields, which
may be repeated, and which are printed in a particular o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1225	1376	
==>'$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1225	1376	
==>'$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub join_header_words( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2647	2747	
==>C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  Thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2647	2747	
==>C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and 'value' pairs.  Thi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4725	4829	
==>e year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter() <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4725	4829	
==>e year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4.

- `day_of_quarter() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13170	13286	
==>ith a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7938	8044	
==>nd if $arity > 1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce_end:
  goto (p <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1178	1268	
==>:Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1389	1479	
==>:Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25849	25945	
==>!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25849	25945	
==>!msg_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names a <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16975	17095	
==>nd_gen($n, &Num::do_ceil)
    }
    our &ceil ::= &ceiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2505	2718	
==></" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2505	2718	
==></" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $li <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13612	13697	
==>t(D1),
  hexdigit(D2), hexdigit(D3), {number_chars(I,[42,120,D0,D1,D2,D3])}.
hexdigits <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12499	12598	
==>t($line, \$comment);

Checks if the given line is a comment.  If so, it will place it into
C<$commen <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	756	857	
==>TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has additio <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	756	857	
==>TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip() has additio <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1561	1692	
==>pp;
    use base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22383	22487	
==>length_and_first",
		is => $length_and_first,
		in => comb(
			fun => ide("length_and_first"),
			param = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6349	6558	
==>w( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6349	6558	
==>w( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        } <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1858	1993	
==>bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       = <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1858	1993	
==>bucket(Num $rate, Int $burst_size) is export {
  my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24684	24784	
==>ur option) any later version.  You should have received a
copy of the GPL as part of the Rosetta dist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24684	24784	
==>ur option) any later version.  You should have received a
copy of the GPL as part of the Rosetta dist <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3473	3575	
==>$args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$para <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3473	3575	
==>$args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named->{$para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9122	9260	
==>post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9110	9248	
==>post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	616	713	
==>or general information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	616	713	
==>or general information.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3723	3863	
==>t => $_ ) }
                    LoadFile( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Could not load regi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	551	691	
==>x . basename( $srcdir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2230	2325	
==>the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2319	2414	
==>the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	819	955	
==>nd[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.jo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	819	955	
==>nd[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.jo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18672	18775	
==>ess the same external resources.>

Rosetta does not use any dialect of SQL in its native API (unlike man <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18672	18775	
==>ess the same external resources.>

Rosetta does not use any dialect of SQL in its native API (unlike man <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10376	10489	
==>n() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10376	10489	
==>n() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so o <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15161	15259	
==>'re going into, or what environmental parameter to pay attention to
to select our language.  so I s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4434	4600	
==>)     and die $?;     
            
            ### register the installation
            ### do this AFTER installing, duh!
            $inst_pkg = $inst->register( p <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6585	6683	
==>it runs the given C<$test_file> and parses its
results.  It will also use that name for the total r <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9611	9716	
==>rd_img };

  step
    descr  => "Mounting \"$initrd_img\"",
    ensure => sub { `mount` =~ /\Q$initrd_img/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2581	2678	
==>e of the common list operations

sub head { @{$_[0]}[0] }
sub tail { list->new(@{$_[0]}[1 .. $#{$_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	845	953	
==>S/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	730	824	
==>S/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	144	241	
==>ntity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special mea <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	144	241	
==>ntity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special mea <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3670	3794	
==>ror is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5572	5696	
==>ror is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2936	3039	
==>ual (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6413	6516	
==>ual (Relation $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!bo <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7883	7993	
==>es
    --exclude=E1,[E2,...]   Exclude files
    --anonymous, -a         Do not include ~/.smoker.yml data in r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	730	851	
==>n ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	730	851	
==>n ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10028	10120	
==>: "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10763	10855	
==>: "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24192	24291	
==>fined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28744	28843	
==>fined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$bod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	723	871	
==>::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	723	871	
==>::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # modul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10853	10977	
==>fined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10853	10977	
==>fined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2719	2836	
==>ield ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2719	2836	
==>ield ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1350	1497	
==>.');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->fr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1350	1497	
==>.');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->fr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4707	4885	
==>re       => \$pkg,
            allow       => ISA_JIB_PACKAGE_INSTALLABLE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    for my $ind <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19424	19538	
==>ps"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    i <==
2	/Users/nnunley/pugs/util/addauthors.pl	825	968	
==>$a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) {
    # Guess first i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25791	25877	
==>))).

%----------------------------------------------------------------------

listify( <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1651	1778	
==>ee's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $curre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1651	1778	
==>ee's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($child, $curre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3105	3207	
==>nion(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3105	3207	
==>nion(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1590	1732	
==>ure};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a si <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1590	1732	
==>ure};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a si <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5780	5886	
==>\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Messag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5780	5886	
==>\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Messag <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	530	625	
==>her::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	530	625	
==>her::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Cipher API> for general <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1915	2034	
==>0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglet <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1915	2034	
==>0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglet <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21882	21996	
==>o have zero attributes, though such a Relation can have no
more than a single tuple.  A zero-attribute Relation wit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26434	26548	
==>o have zero attributes, though such a Relation can have no
more than a single tuple.  A zero-attribute Relation wit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20421	20525	
==>ntrol-panel displays a list of all the languages your programs do or
might have, and lets you arrange the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20421	20525	
==>ntrol-panel displays a list of all the languages your programs do or
might have, and lets you arrange the <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10236	10336	
==>turns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10294	10394	
==>turns Void`

All tests need a plan. A plan is simply the number of tests which are
expected to run. T <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15027	15153	
==>The match result:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or ori <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13180	13274	
==>rwise support the
unary form C<delete %hash{$key}> in all it's forms. Below are some
example tr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	244	338	
==>n writing primitives, please do *not* use `return()`, because
that messes up PIR generation.  T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6551	6709	
==>ng name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6551	6709	
==>ng name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14890	14995	
==>f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the type of the parameter with the t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	231	320	
==>e Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	231	320	
==>e Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3700	3861	
==>.length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3840	4001	
==>.length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3473	4042	
==>Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External packages used by <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	438	557	
==>y $self = $class->new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1907	2033	
==>/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1907	2033	
==>/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11365	11466	
==>nd from the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11365	11466	
==>nd from the given recurrence.

- `intersection( $recurrence )`

Returns only the elements in this recu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7093	7203	
==>tch->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7093	7203	
==>tch->();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', as <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2306	2545	
==>t\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2306	2545	
==>t\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                w <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	791	992	
==>);
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*P <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	791	992	
==>);
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*P <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9168	9300	
==>n') {

            warn "*** ghc-pkg not found in path.  Testing $ghc_pkg\n";

            # If the file exists, and it looks like it <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	725	817	
==>erl::Silly - a subclass of the perl backend that
conditionally excludes some builtin operator <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	380	521	
==>filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	380	521	
==>filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	637	744	
==>nstallation->new( dir => $dir )
            or error( "Could not create JIB::Installation object from '$dir' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5451	5566	
==>ms::Check->last_error), return;

    ### build a from => to mapping
    ### note we have to create the directories f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7013	7118	
==>use another mechanism to call arbitrary stuff on the package
        # obj? otherwise all data we index af <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2102	2237	
==>ule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zon <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2102	2237	
==>ule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zon <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1474	1594	
==>> 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # cap <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1474	1594	
==>> 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # cap <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1105	1216	
==>r}, 1) });

	if ($param->{invocant}) {
	    $db_param->is_optional(1)
		unless $param->{required};
	    $invocan <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	2	85	
==>ine 1 "inc/Module/Install/Base.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Inst <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3147	3254	
==>ould be called at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3147	3254	
==>ould be called at the 
end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4505	4606	
==>rg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4505	4606	
==>rg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3108	3215	
==>on.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nicknam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3108	3215	
==>on.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nicknam <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5868	5969	
==>nt based POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of deve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5868	5969	
==>nt based POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of deve <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	588	733	
==>KSLASHED THINGS

  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22050	22145	
==>ter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22050	22145	
==>ter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C< <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30863	30990	
==>many years, and then
Michael G Schwern.

Current maintainer is Andy Lester C<< <andy at petdance.com> >>.

=head1 COPYRIGHT

Cop <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25126	25220	
==>tributes, though such a Relation::Example can have no
more than a single tuple.  A zero-attribu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2030	2254	
==>nt_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2030	2254	
==>nt_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then we can fall off 
        # this block and the whole subroutine <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9392	9506	
==>$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9392	9506	
==>$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8178	8291	
==>it returns normal data, but this is a low-level op...

    undef - if match failed    



    state - a "next-stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7902	8012	
==>it returns normal data, but this is a low-level op...
    undef - if match failed    

    state - a "next-stat <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9435	9620	
==>l    => $Strap->{skip_all},
                    todo        => $results{todo},
                    ml          => $ml,
                   );

        $tot{bonus}       += $results{bonus} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3786	3885	
==>l" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3786	3885	
==>l" use by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19710	19813	
==>y,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19710	19813	
==>y,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10288	10389	
==>t or set the value of one or more header fields.  The header field
name ($field) is not case sensitive <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10288	10389	
==>t or set the value of one or more header fields.  The header field
name ($field) is not case sensitive <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	408	537	
==>DS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pu <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	408	537	
==>DS

The following methods are available for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13105	13205	
==>umber of strings are returned.

If called in void context the arguments are decoded in-place.

This r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13105	13205	
==>umber of strings are returned.

If called in void context the arguments are decoded in-place.

This r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8440	8558	
==>ble warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8440	8558	
==>ble warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX S <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	225	337	
==>rl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 POD <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	225	337	
==>rl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - import Perl5 POD <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	556	677	
==>) {
    return unless @:events;

    my $callback = shift @:events;
    return $callback();
  }

  method run () {
    whi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3559	3703	
==>unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3417	3556	
==>unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4529	4669	
==>. "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4669	4809	
==>. "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	440	646	
==>s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	457	560	
==>IZE    => 2**20 * 3.0,  # MiB limit
  BASEDIR     => "/var/www/iblech/stuff/pugs-smokes/",
  BASEHTTPDIR <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1482	1608	
==>prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4685	4811	
==>prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->package() =~ $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5944	6067	
==>ntent_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5944	6067	
==>ntent_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11731	11849	
==>foreach $self->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $sel <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1254	1355	
==>lding dependencies.  Please wait...\n\n";

    # XXX - instead of --user, use our own package-conf sto <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6208	6312	
==>ser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse(" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6208	6312	
==>ser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse(" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5434	5565	
==>te =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5434	5565	
==>te =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify, <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2469	2579	
==>ift;
		my $h = indent;
		my $node = shift;
		warn "reducing " . qprintable($node) . "...";
		my $res = $self->S <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2040	2129	
==>x:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:?", "postfix:*", <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2112	2201	
==>x:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix::", "postfix:*", <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	283	383	
==>pher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 D <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	283	383	
==>pher::Arcfour.new(:key($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 D <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	455	562	
==>($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	455	562	
==>($two);
}

# unicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	505	608	
==>module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=hea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	505	608	
==>module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12564	12677	
==>ler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@ar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12564	12677	
==>ler{$command};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@ar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	854	968	
==>kages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	854	968	
==>kages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	730	860	
==>mmar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	892	1022	
==>mmar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2211	2350	
==>r}) };

    if($@) {
        chomp($@);
        error(qq[Could not delete directory '$args->{dir}': $@] );
        return;
    }

    return <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17976	18067	
==>1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	142	261	
==>R::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=hea <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	142	261	
==>R::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11843	11940	
==>=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use H <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11843	11940	
==>=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 SYNOPSIS

 use H <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	339	447	
==>itional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	339	447	
==>itional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29264	29392	
==>eturn =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29543	29671	
==>eturn =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20425	20530	
==>de);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40519	40620	
==>err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors

There are three methods you can use when a p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7113	7236	
==>ontent_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7113	7236	
==>ontent_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28787	28880	
==>.............ok
  t/test-harness......ok
  All tests successful.
  Files=4, Tests=24, 2 wallcl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4909	5006	
==>obj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4909	5006	
==>obj.finish();

Completes ciphering of any leftover data and returns it as an array of bytes, 
then <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	361	538	
==>es
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq '$*OS';  
    
    # special variables
    return '$::_EXCL_' if $s eq '$!';

    substr($s,1 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8313	8418	
==>op-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8313	8418	
==>op-down
# manner, this is usually not an issue
# since each time you either add a child
# or create a tree <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8073	8171	
==>_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8073	8171	
==>_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded', <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	325	426	
==>invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(.. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	325	426	
==>invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(.. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19010	19121	
==>n->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{da <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20368	20479	
==>n->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{da <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4483	4584	
==>ake index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4483	4584	
==>ake index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6202	6340	
==>upported_p6, %modifiers_supported_p5);
    FIRST {
        %modifiers_known = map {;($_ => 1)},
        <perl5 Perl5 P5 i ignorecase s sigs <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4383	4501	
==>\..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4383	4501	
==>\..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @pat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10892	11052	
==>,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11171	11331	
==>,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2322	2479	
==>lf<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    } <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2322	2479	
==>lf<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2145	2274	
==>pper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2145	2274	
==>pper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15292	15385	
==>ethod for you right there!)

=item Regexp::MinLength

Implements a min_length() method for all <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1886	1983	
==>hensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Addi <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1886	1983	
==>hensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Addi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19819	19919	
==>ilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19819	19919	
==>ilities.>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2581	2713	
==>self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    met <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2581	2713	
==>self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self: ) { $self.elems }
    met <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10391	10510	
==>><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ example <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10391	10510	
==>><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ example <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7555	7684	
==>n $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7555	7684	
==>n $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15531	15643	
==>se these functions will be mutually recursive, they will easily be
able handle arbitrarily complex data structure <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15589	15701	
==>se these functions will be mutually recursive, they will easily be
able handle arbitrarily complex data structure <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1523	1647	
==>rt = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1523	1647	
==>rt = $.start > $span.start ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12079	12196	
==>e server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12079	12196	
==>e server if needed.
      $last_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9256	9384	
==>e the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9256	9384	
==>e the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $chil <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	130	276	
==>ad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($na <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	130	276	
==>ad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($na <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14503	14608	
==>RS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14503	14608	
==>RS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2154	2260	
==>n "rule argument is undefined" unless defined $_[0];
    $_[0] = "" unless defined $_[0];
    my $bool = $_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8052	8170	
==>Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8110	8228	
==>Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::test <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13781	13887	
==>ng, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13781	13887	
==>ng, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This routine is exported <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16076	16175	
==>se methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a sc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16076	16175	
==>se methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a sc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19030	19117	
==>ad2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19030	19117	
==>ad2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_tr <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	94	194	
==>ME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdli <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	94	194	
==>ME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdli <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1500	1598	
==>docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1500	1598	
==>docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6311	6424	
==>", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B] in character class") if @hex > <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3448	3549	
==>ay. 10/44 subtests failed, 77.27% okay.

Everything passed but F<t/waterloo.t>.  It failed 10 of 20 te <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	753	868	
==>EFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        retur <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	753	868	
==>EFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6293	6393	
==>an::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6293	6393	
==>an::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15836	15945	
==>symbol) };
    return $node if not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2233	2338	
==>symbol) };
    return $node if not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_r <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1257	1358	
==>d_half_odd;
	}
}

our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	47	185	
==>plit_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        whi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	47	185	
==>plit_header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        whi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2902	3028	
==>ndler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourse <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2902	3028	
==>ndler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourse <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8568	8680	
==>finite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8568	8680	
==>finite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36837	36948	
==>ook-ahead.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5921	6023	
==>lean $v)   { ?$v :: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi sub ToN <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4322	4422	
==>->add_package_to_index( package => $inst ) or return;

    return 1;
}

=head2 $bool = $repo->add_pac <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2055	2264	
==>egin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2055	2264	
==>egin.push('for');
                        %events<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	569	665	
==>YLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	569	665	
==>YLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2063	2165	
==>ursion via dynamic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17895	17996	
==>,F1,B0,B1,E0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	396	505	
==>->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], signature => $_[2], } <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10173	10480	
==>s is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18111	18214	
==>= $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :method
    .param pmc p <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1399	1497	
==>$filename, *%params) {
    my $template = slurp $filename;
    $template ~~ s:g:perl5/\[\%(.+)\%\]/ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	247	378	
==>es --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $str;
}
# copied fro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8774	8893	
==>es --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12991	13118	
==>", $self->{data}->visual, $self->raw;
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($ho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	362	480	
==>'))
        || confess "env must be a closure::env";
    # params is a hash whose keys are the names
    # of variables <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	29	124	
==>e v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	29	124	
==>e v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2319	2432	
==>module:

    # file: hello_world.pl
    use v6-pugs;
    "hello, world".say;

    $ perl hello_world.pl

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3564	3684	
==>Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3564	3684	
==>Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2074	2183	
==>($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2074	2183	
==>($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30105	30212	
==>e user-readable message text associated with the
Message; this user string may also contain variable names t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30105	30212	
==>e user-readable message text associated with the
Message; this user string may also contain variable names t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6564	6688	
==>( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actually contain getters for $( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6345	6464	
==>( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actually contain getters for $( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20043	20176	
==>r1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20322	20455	
==>r1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11165	11260	
==>ersal set" recurrence object.

- `complement()`

Returns everything (from the universal set) tha <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11165	11260	
==>ersal set" recurrence object.

- `complement()`

Returns everything (from the universal set) tha <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8487	8603	
==>op @bsrStack);

  end:
  if ( @tokenStack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce;
    bsr_red <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2433	2529	
==>the moment but should be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not call "TA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1265	1366	
==>uest_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representations of @heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1265	1366	
==>uest_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representations of @heade <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1986	2090	
==>t line
GROK

my $file2 = <<'GROK';
1st line
2nd line
GROK

my $file3 = <<'GROK';
1st line
2nd line
3rd li <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7900	8040	
==>gexp::Parser::anyof_close;
}
{
  package Regexp::Parser::prop;
}
{
  package Regexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6185	6285	
==>equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($no <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3256	3342	
==>self.complement_previous, $self.complement_next, $set.complement_previous, $set.complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3256	3342	
==>self.complement_previous, $self.complement_next, $set.complement_previous, $set.complem <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3044	3140	
==>rn Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3044	3140	
==>rn Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	209	331	
==>%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@tokens) {
        if ($token eq <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10755	10902	
==>y = lc(ReadKey(0)) eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skipping") . "...\n";
            $y;
        } q <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2805	2923	
==>STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2805	2923	
==>STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40071	40181	
==>ter class, pass " in character class"; otherwise, pass an
empty string.

=head1 ERROR HANDLING

=head2 Creating <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3519	3630	
==>structor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3519	3630	
==>structor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  ' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2007	2127	
==>tal U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2007	2127	
==>tal U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # small a, acu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1391	1518	
==>code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1402	1529	
==>code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    r <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2993	3166	
==>my $n = 0;
        while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$of <==
2	/Users/nnunley/pugs/util/testgraph.pl	659	757	
==>($tap, Dump($data));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $out = shift) {
    op <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	967	1067	
==>p() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_ran <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	967	1067	
==>p() syntax
# TODO - provide a better default stringify - see Span.pm
# TODO - fix elems() in from_ran <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6832	6952	
==>list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is one
    ret <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6832	6952	
==>list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if there is one
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16637	16754	
==>list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recurrence object, or a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16637	16754	
==>list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recurrence object, or a s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7249	7353	
==>ins->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14716	14812	
==>$eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" ch <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14716	14812	
==>$eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" ch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17570	17684	
==>str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17570	17684	
==>str;
}

sub normalize(Str $str) returns Str { return lc $str }

=head1 NAME

Net::IRC - IRC library for Pugs

=head <==
2	/Users/nnunley/pugs/util/claim_drift.pl	106	206	
==>ng directories and they all use a shared DrIFT,
# you need to point symlinks to the current one if yo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1645	1790	
==>" ), return;
#         }                
#         JIB::Utils->_mkdir( dir => $builddir )
#             or error( "Could not create clean '$buildd <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1356	1501	
==>x_file'}  = [ Path::Class::file('index')  ];
$config{'repo_index_groups'}= [ [map {Path::Class::dir($_)} 
                                    qw(a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	460	587	
==>}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1185	1310	
==>}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1256	1373	
==>sh from strings

(symbol names) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1201	1313	
==>sh from strings
(symbol names) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the P <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1512	1611	
==>nd;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggab <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1512	1611	
==>nd;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggab <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2751	2849	
==>er

=item B<source>

=item B<source($new_source)>

Returns the representation of this node in the o <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2751	2849	
==>er

=item B<source>

=item B<source($new_source)>

Returns the representation of this node in the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3661	3790	
==>class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3845	3974	
==>class>> <[character-class]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1059	1170	
==>) if $cc;
    return $S->object(bound => bound => '\b');
  });

  $self->add_handler('\B' => sub {
    my ($S, $ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2435	2534	
==>first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2435	2534	
==>first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24188	24282	
==>ocale::KeyedText does no compile time binding and
will support multiple languages or locales si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24188	24282	
==>ocale::KeyedText does no compile time binding and
will support multiple languages or locales si <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6162	6297	
==>1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6162	6297	
==>1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	99	199	
==>tersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	99	199	
==>tersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode un <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	634	751	
==>0);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_dis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	634	751	
==>0);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_dis <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1485	1584	
==>n old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or some <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1798	1930	
==>vents::Publisher $.publisher;
    has Class::Events::Subscriber $.subscriber;

    method match ($notification) {
        # this is r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10391	10508	
==>d - named submatches
    capture - return'ed things
    
    state - a "continuation" or undef
    abort - the mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5011	5189	
==>if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2,

               }

    }

}



su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4855	5025	
==>if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2,
               }
    }
}

su <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14440	14560	
==>$P0
    lastpos = length target
    inc pos
    $S0 = substr target, pos, 1
    if $S0 == '<' goto name
    $I0 = find_no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13397	13491	
==>cale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=hea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13397	13491	
==>cale::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7048	7366	
==>ld;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7048	7366	
==>ld;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5827	6007	
==>\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5827	6007	
==>\$Path="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6297	6400	
==>PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6297	6400	
==>PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq no <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	992	1093	
==>taining the perl6 design docs apo/exe/syn
    --no_designdocs Do not generate html files for the perl6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	437	574	
==><delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	437	574	
==><delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywords;
    has %!params;
    
    submet <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1627	1726	
==>rameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span t <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1627	1726	
==>rameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4119	4217	
==>tring($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4119	4217	
==>tring($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1166	1276	
==>ig::Config{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@ch <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1105	1209	
==>ig::Config{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5663	5757	
==>= $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5663	5757	
==>= $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3622	3742	
==>le.
        # Note that it is valid for a Relation::Example to have zero tuples.
    has Bool $!is_mutable;
        # Boo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12366	12468	
==>eck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove this package from t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23584	23694	
==>ther solutions take variables, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23584	23694	
==>ther solutions take variables, they
seem to be positional (like with 'sprintf'); whereas, Locale::KeyedText has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7565	7707	
==>le

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $node = shift;

    sub {

        $debug->{before}( @_ ) if $debug->{befor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7312	7447	
==>le
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $node = shift;
    sub {
        $debug->{before}( @_ ) if $debug->{befor <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	158	259	
==>of the object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_f <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	158	259	
==>of the object fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_f <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2723	2829	
==>yn_src_dir,
       'no_designdocs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = sp <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	438	562	
==>IL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	438	562	
==>IL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1474	1594	
==>e );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1474	1594	
==>e );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10315	10409	
==>self->_cleaned_switches( @switches_from_user );

Returns only defined, non-blank, trimmed switc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3673	3815	
==>r args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3673	3815	
==>r args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4112	4248	
==>t unless $rules[$i] =~ /^$item/;
        #print "optimize: $rules[$i]\n";
        $j = $i;
    }
    if ( $i != $j ) {
        #print "op <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6449	6560	
==>current = $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ($self, $en <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5378	5497	
==>lity 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    retu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5378	5497	
==>lity 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1185	1283	
==>in perl 5 emitter: $@\nSource:\n$self->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data::D <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3066	3178	
==>fix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.differen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3066	3178	
==>fix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.differen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12610	12709	
==>le usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12610	12709	
==>le usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $doc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4565	4748	
==>t_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4565	4748	
==>t_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3973	4072	
==>=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4157	4256	
==>=item * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13737	13846	
==>('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => ascii => $neg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7944	8053	
==>('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => ascii => $neg <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22299	22413	
==>a table.

The Relation class is pure and deterministic, such that all of its class
and object methods will each ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26851	26965	
==>a table.

The Relation class is pure and deterministic, such that all of its class
and object methods will each ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1994	2151	
==>//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./loa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1994	2151	
==>//+delayload'}) {
                    my $data = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./loa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11032	11131	
==>$self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11032	11131	
==>$self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3781	3879	
==>mbers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3781	3879	
==>mbers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1236	1351	
==>return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1236	1351	
==>return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1857	2043	
==>es{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1857	2043	
==>es{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delayload'}) {
                    my $data = $ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3404	3492	
==>$buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3404	3492	
==>$buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	773	884	
==>tring = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    } <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	773	884	
==>tring = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14177	14361	
==>it( $n->{bare_block} ) . "\n }";
        #}
        return 'eval ' . _emit( $n->{exp1} ) . "; " . 
            _mangle_var( '$!' ) . " = \$@;";
    }
    if ( $n->{op1}{op} eq 'eva <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1170	1305	
==>imitive is unsafe {
        # say "e:string"; # XXX delme
        # so, why do these two not actually split?
        # my @args = $strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10790	10897	
==>/;

    return "$_[1] ruleop::constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	743	848	
==>st::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	801	906	
==>st::force_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3224	3349	
==>(JSX::ValuePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get] <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36532	36627	
==>ot significant to the result;
the new Relation::Example contains all the tuples of the source Re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2393	2505	
==>quest URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this cl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2393	2505	
==>quest URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this cl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	568	686	
==>> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	568	686	
==>> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26590	26683	
==>invocant Relation's header, in which case it returns the identity-one
Relation or the invocant <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31142	31235	
==>invocant Relation's header, in which case it returns the identity-one
Relation or the invocant <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13860	13977	
==>*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13860	13977	
==>*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12396	12492	
==>atures.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12396	12492	
==>atures.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3788	3894	
==>ethod union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3788	3894	
==>ethod union ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1632	1733	
==>r contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1632	1733	
==>r contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7300	7448	
==>unction call
        # death, assume module is damaged and say so; an undefined
        # ret val means module doesn't define key, skip to next modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7300	7448	
==>unction call
        # death, assume module is damaged and say so; an undefined
        # ret val means module doesn't define key, skip to next modul <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2991	3099	
==>type () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2991	3099	
==>type () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4761	4957	
==>], method => $_[3], param => $_[4], } }
        

    | MY NUM attr 
        { $_[0]->{out}= { 
            op1 => { op => $_[1]{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3529	3648	
==>>{stack};

  $depth = -1 unless defined $depth;
  my $d = $depth;
  my @stack = @{ $self->{tree} };
  my $next;

  retur <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1745	1862	
==>tr :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1745	1862	
==>tr :$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3564	3703	
==>n_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3564	3703	
==>n_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    retur <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	229	344	
==>.html");

my $action    = param('action');
my %wiki      = evalfile("wiki.db");
my $wikiwords = rx:P5/\b([A-Z]\w+[A- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1751	1848	
==>s_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1751	1848	
==>s_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15748	15849	
==>rror message, the
application's developer should see more details than joe public would.

Alternately, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15748	15849	
==>rror message, the
application's developer should see more details than joe public would.

Alternately, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18629	18751	
==>> ide("id"),
						param => val(10),
				),
			),
			param => comb(
				fun => ide("id"),
				param => val(v => "foo", t => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2898	3063	
==>s a 'clean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d $obj->meta_dir ) {
                
                ### set up <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	819	916	
==>e:\n$res\n";

#print "Compiled: " . $pretty->string($c) . "\n";
#print "Type safe: " . $pretty->st <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	209	337	
==>= ":/sbin:/usr/sbin";

sub step {
  my %args = @_;
  local $_;

  $args{descr}  ||= "(no description)";
  $args{ensure} ||= sub { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	581	696	
==>{type},
    );
}

my %p6p5 = (
    '~' => '.',
);

my %by_digest = (
    Blondie::Prelude->env->get('$*OUT')->digest <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6851	6959	
==>>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6851	6959	
==>>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1372	1489	
==>('\c' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1382	1490	
==>= [ 
    ['-'=>{op=>'-'}], 
    ['NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20840	20938	
==>->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val->{_parent} || "../")  . ". <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1712	1814	
==>BIN} =
      File::Spec->catfile($path, "bin");
    $self->makemaker_args->{INST_MAN1DIR} =
      File: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12736	12839	
==>ush_content("\n");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $test_re <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	512	629	
==>sion(ExtUtils::MM_Unix->parse_version($modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2046	2174	
==>le> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2057	2185	
==>le> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5584	5720	
==>(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @hea <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5584	5720	
==>(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5317	5520	
==>):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5317	5520	
==>):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = $_[0];
            }

            $match2->{match} = \@matches;
            $ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13419	13517	
==>clear

This will remove all header fields.

=item $h.header_field_names

Returns the list of distin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13419	13517	
==>clear

This will remove all header fields.

=item $h.header_field_names

Returns the list of distin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3832	3949	
==>airs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7309	7426	
==>airs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10908	11005	
==>st of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10908	11005	
==>st of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20718	20819	
==>header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20718	20819	
==>header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names <==
2	/Users/nnunley/pugs/util/importgraph.pl	2423	2566	
==>es) {
  my $cluster = $module->[2];
  my $rank = $module->[3];
  $g->add_node($name, color => ($module->[1] ? 'green' : 'black'),
    (defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5584	5695	
==>{
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5584	5695	
==>{
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3943	4141	
==>ages to $new_alt->{package}...\n";
        for ( qx[find $my_bindir -type f] ) {
            chomp; 
            
            ### link from altdir to install dir
            ### then from pathdir, to <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9600	9703	
==>eme_pil0",$c01[0]);
    $tof->("deleteme_pil1",$c01[1]);
    system("diff -u --minimal deleteme_pil0 del <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6082	6186	
==>esponse !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6082	6186	
==>esponse !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,messa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5571	5691	
==>tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5571	5691	
==>tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9276	9383	
==>ong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9276	9383	
==>ong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example: if `sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1149	1341	
==>Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1149	1341	
==>Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%ms <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7218	7348	
==>UE(sv)) {
      fprintf(stderr,"regexp_compile_hook_p5re...\n");
      handler = sv;
    }
  }  
  /* If no handlers, then hand off <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19248	19368	
==>il))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2655	2790	
==>ss Control::Caller {
    has Str $.package;
    has Str $.file;
    has Int $.line;
    has Str $.subname;
    has Str $.subtype;
    ha <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1318	1412	
==>icate($node);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" if de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3928	4038	
==>]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3928	4038	
==>]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6560	6656	
==>de = $self->generic_reduce(shift);

	my $seq = $node->struct_equiv;
	join("\n\t", "", map { "$_;" <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3939	4026	
==>.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3939	4026	
==>.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedia.org/wiki/Token_bucket>, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2321	2417	
==>Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.members) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2321	2417	
==>Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.members) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2984	3085	
==>value1>, :opt2<value2>);

Create an encipherer closure, which can be called repeatedly to encipher dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2984	3085	
==>value1>, :opt2<value2>);

Create an encipherer closure, which can be called repeatedly to encipher dat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	100	229	
==>Blondie::Prelude;

sub new {
    my $class = shift;

    bless {

    }, $class;
}

sub compiler {
    my $self = shift;

    my $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2586	2698	
==>ERLPREFIX      => $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefil <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7342	7445	
==>}
    }
}
# signature from S29draft.pod 8655.  In the List section.
multi Array::grep (@values ;  MatchT <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	182	279	
==>ist { $list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$list,[$name,$rep,$type,@pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1443	1553	
==>TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1423	1529	
==>TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24368	24462	
==>renDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24368	24462	
==>renDuncan.net>,
or visit L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1727	1845	
==>name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1727	1845	
==>name_is_absolute( $file );
}

sub path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36801	36897	
==>elational operator that is like
C<union> except that the returned Relation::Example contains only <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37301	37397	
==>elational operator that is like
C<union> except that the returned Relation::Example contains only <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14614	14721	
==>| <'--'> <UnaryExpression>
    | <'+'> <UnaryExpression>
    | <'-'> <UnaryExpression>
    | <'~'> <UnaryExp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6052	6143	
==>}

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6052	6143	
==>}

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normal <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3996	4146	
==>n) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3996	4146	
==>n) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23475	23569	
==><$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23475	23569	
==><$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> " <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1011	1113	
==>}
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes tw <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1011	1113	
==>}
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes tw <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	659	781	
==>ON = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	659	781	
==>ON = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3454	3552	
==>_;
    return $S->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6587	6704	
==>t implement $re"
  }
}
{
  # . \C
  package Regexp::Parser::reg_any;
  sub emit {
    my($o)=@_;
    my $noop = $o->no <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	249	355	
==>lt();  	# wie in Perl 5
my Welt $welt = new Welt(); 	# neu: Typen-Deklaration
#!\pause
#=Aufruf einer einfa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	653	756	
==>6

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Module::Install::Base:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2279	2420	
==>cale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2279	2420	
==>cale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37916	38004	
==>invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, whic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37916	38004	
==>invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, whic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14431	14580	
==>( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14431	14580	
==>( $e );
            }
            else {
                show_fetched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8298	8397	
==>truction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8298	8397	
==>truction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18171	18269	
==>a program simply returned words for the user, such as
'error opening file', programs would have a h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18171	18269	
==>a program simply returned words for the user, such as
'error opening file', programs would have a h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18918	19023	
==>m SQL, it
is fully capable of modelling anything in the real world accurately, and it
can support a comple <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18918	19023	
==>m SQL, it
is fully capable of modelling anything in the real world accurately, and it
can support a comple <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6341	6450	
==>.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6341	6450	
==>.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5247	5414	
==>dy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5247	5414	
==>dy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3808	3904	
==>ad1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3992	4088	
==>ad1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rul <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3302	3446	
==>x\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3302	3446	
==>x\\\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7483	7581	
==>ead2 @bools = $repo->add_files($file1, $file2, ...)
# 
# Adds a list of jib files to the repository <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6780	6874	
==>aischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6780	6874	
==>aischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10414	10529	
==>r->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other argument, it will warn that it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1880	2013	
==>ol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# X <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1880	2013	
==>ol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# X <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17545	17639	
==>setta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17545	17639	
==>setta Native Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta v <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1104	1207	
==>rate limit
against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1104	1207	
==>rate limit
against a stream of items. It is also very easy to combine several
rate-limiters in an C<AND> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3568	3678	
==>piler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you have a new Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3441	3546	
==>piler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you have a new Gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12230	12337	
==>, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12230	12337	
==>, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38141	38240	
==>ext( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text string in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38141	38240	
==>ext( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template text string in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2348	2761	
==>f every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

clas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2348	2761	
==>f every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

clas <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4832	4945	
==>,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4832	4945	
==>,'VarName';
node_h 'PIL_LValue',           'PApp', 
  'pCxt'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe P <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7024	7109	
==>").
p5_metachar(")").
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\{\}\[\]\(\ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13649	13915	
==>, 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before any test output arrived\n";
                $tot{bad} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5691	5884	
==>K_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	136	253	
==>l 'blessed';
use Carp 'confess';

use base 'type';

# equality

sub equal_to     { confess 'You must override equal_to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21326	21426	
==><$bot.quit("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21326	21426	
==><$bot.quit("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5311	5428	
==>qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10966	11083	
==>qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1544	1658	
==>et the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1544	1658	
==>et the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's chi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	254	383	
==>ew {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (looks_like_number($value)) 
        | <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22867	22977	
==>cremented during the initial pass, so that on
the second pass (the tree-building), it can distinguish back-refe <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	133	271	
==>as Bool $isNamed;
has Bool $isLValue;    # not is copy
has Bool $isWritable;  # is rw
has Bool $isLazy;
has Str $paramName;
has Perl::Cxt $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1086	1183	
==>_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1086	1183	
==>_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), find_description( $description ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1557	1661	
==>t to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1397	1501	
==>t to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	243	342	
==>until pod lines start appearing, and
# continue conversion to p6 code.

class Char is Str;
class Lan <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6028	6118	
==>es -package stm -package network -package mtl -package template-haskell -package base -pack <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	216	322	
==>& year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLength <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	216	322	
==>& year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLength <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	36	166	
==>essage;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	36	166	
==>essage;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	36	124	
==>l;
use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11576	11668	
==>n will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11634	11726	
==>n will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test: <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	967	1073	
==>if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	934	1040	
==>if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{u <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6821	6943	
==>rebless_with_prefix {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6009	6111	
==>type = "${pkg_root}::$type";
	my $pkg_rep  = "${pkg_root}::NodeRep$rep";
	my $pkg_node = "${pkg_root}:: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6914	7013	
==>t_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you are ju <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6914	7013	
==>t_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you are ju <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8785	8918	
==>s \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8773	8906	
==>s \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5878	5977	
==>ngo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=hea <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5878	5977	
==>ngo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=hea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6263	6413	
==>ute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6263	6413	
==>ute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_directo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39648	39735	
==>Duncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39648	39735	
==>Duncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::Key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2294	2439	
==>label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2294	2439	
==>label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12967	13096	
==>et1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12967	13096	
==>et1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new set containing all the elements of C<$set1> a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2312	2412	
==>t($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.mem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2312	2412	
==>t($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($self.mem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13057	13209	
==>]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13051	13203	
==>]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3099	3212	
==>less $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version?
# I figure it shouldn <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3099	3212	
==>less $keep;
}

# XXX does add_content() need to create references, etc. like the P5 version?
# I figure it shouldn <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	787	907	
==>=> 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # cap <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	787	907	
==>=> 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # cap <==
2	/Users/nnunley/pugs/misc/S29_round.pl	763	866	
==>ign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_down_symmetric ( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3879	3967	
==>know about @ISA
	$self->{symbol} = $class_that_should_be->symbol;
	$self->{class_that_sho <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5578	5681	
==>ns)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5578	5681	
==>ns)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9013	9135	
==>END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9071	9193	
==>END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7857	7964	
==>UIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7857	7964	
==>UIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.keys;
      %!channels{$_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7535	7675	
==>lice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7592	7732	
==>lice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1256	1380	
==>m part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cy <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1192	1301	
==>m part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cy <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6092	6215	
==>have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6150	6273	
==>have to forcetodo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13843	13939	
==>scalar_numeric     => sub { $as_array_complain->("scalar_numeric") },
      scalar_non_numeric => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1062	1161	
==>it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In parti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1062	1161	
==>it incorrectly can lead to 
serious insecurity; see the L</SECURITY> section for details.  (In parti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15670	15795	
==>"KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15670	15795	
==>"KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $mode? {
      if defined $mode {
        enqu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1114	1242	
==>t
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1114	1242	
==>t
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error me <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2214	2355	
==>ey = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2214	2355	
==>ey = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20361	20456	
==>ckage installers usually do it.  An os-level preference
/ control-panel displays a list of all t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20361	20456	
==>ckage installers usually do it.  An os-level preference
/ control-panel displays a list of all t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3369	3485	
==>ack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $depth) = @_;
  croak "no regex defin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7199	7291	
==>fter the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7199	7291	
==>fter the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_elem <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12937	13038	
==>s in the Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are pr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12937	13038	
==>s in the Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24416	24527	
==>ternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20837	20948	
==>ternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3028	3134	
==>q 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
}
sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16661	16759	
==>"Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16661	16759	
==>"Root Nodes" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18164	18263	
==>st, if a program simply returned words for the user, such as
'error opening file', programs would ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18164	18263	
==>st, if a program simply returned words for the user, such as
'error opening file', programs would ha <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5537	5647	
==>l *META;
    open META, "> META.yml" or warn "Cannot write to META.yml: $!";
    print META $self->_dump;
    c <==
2	/Users/nnunley/pugs/util/package-osx.pl	6480	6611	
==>:Rule.3
        /usr/local/man/man3/Perl6::Overview::Rule.3pm
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3
        /usr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15632	15745	
==>|= {};
    $runperl_args->{progfile} = $tmpfile;
    $runperl_args->{stderr} = 1;

    open TEST, ">$tmpfile" or d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1168	1280	
==>gram = main::emit_rule( get_data( $_[0], '$<rule>' ), '     ' );
    return "*{'Pugs::Grammar::Rule::$name'} = \n <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	445	540	
==>nect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	445	540	
==>nect('dbi:SQLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24993	25096	
==>ust only if the r.e. contains something
 * potentially expensive (at present, the only such thing detect <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3805	3906	
==>data.  Finally, call the finish() method to return any leftover data 
and clear the cipher object.

Th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3805	3906	
==>data.  Finally, call the finish() method to return any leftover data 
and clear the cipher object.

Th <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	768	871	
==>eturns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	768	871	
==>eturns Void { ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9116	9209	
==>hering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering" <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9116	9209	
==>hering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3500	3602	
==>nctional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object represen <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3500	3602	
==>nctional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object represen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	764	891	
==>{
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	764	891	
==>{
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	703	842	
==>=> 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	714	853	
==>=> 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	430	553	
==>ilename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'ing until we need it
eval 
  q(
    use FindBin '$Bin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15250	15397	
==>d) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15250	15397	
==>d) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	935	1047	
==>f.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_rem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	935	1047	
==>f.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_rem <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4948	5075	
==>@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4948	5075	
==>@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3058	3169	
==>G_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3058	3169	
==>G_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1147	1237	
==>odule::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1147	1237	
==>odule::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	35	145	
==>se File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	35	145	
==>se File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4735	4868	
==>set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4735	4868	
==>set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	733	832	
==>nce
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Acce <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	733	832	
==>nce
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Acce <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10701	10795	
==>ay>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_ty <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10701	10795	
==>ay>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_ty <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3923	4035	
==>e} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5282	5394	
==>e} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8716	8823	
==>pass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8774	8881	
==>pass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	280	394	
==>primitive {
    # XXX return $str but newline("\n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, 0, ch <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	40	139	
==>ackends;

use strict;
use warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9034	9141	
==>Return the start or end value of the set.

These methods may return nothing if the set is empty.

- `start_i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9034	9141	
==>Return the start or end value of the set.

These methods may return nothing if the set is empty.

- `start_i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40639	40842	
==>);
                    })
                );
                return $nil::NIL;               
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('BU <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2744	2873	
==>GTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    sa <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2744	2873	
==>GTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    sa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4566	4668	
==>l be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / inters <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4566	4668	
==>l be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) / inters <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6028	6125	
==>unctionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this do <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6028	6125	
==>unctionality is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this do <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16923	17019	
==>a D (as
either named modules or anonymous routines) and write the rest of the
application in thei <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16923	17019	
==>a D (as
either named modules or anonymous routines) and write the rest of the
application in thei <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13734	13874	
==>elation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15259	15399	
==>elation::Example.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading. <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	998	1119	
==>SCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is subject to change
in incompatible ways.  It is otherwise sta <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	119	219	
==>ew whenever you enter a new rule or parenthesized
group.  This is approximately the Match object that <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	119	219	
==>ew whenever you enter a new rule or parenthesized
group.  This is approximately the Match object that <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3376	3478	
==>"defining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim {
	my $self = shift;
	my ($ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1836	2001	
==>or(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2373	2538	
==>or(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1669	1769	
==>ompiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1669	1769	
==>ompiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 R <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6897	7030	
==>span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Cod <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6897	7030	
==>span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Cod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14643	14761	
==>.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14643	14761	
==>.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2512	2610	
==>TIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2512	2610	
==>TIONS & CAVEATS

Since we don't yet have object support, this module is more like the
Perl 5 File:: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8384	8507	
==>M $linuxrc and
      -M $initrd_gz <= -M $bash and
      -M $initrd_gz <= -M $inputrc and
      -M $initrd_gz <= -M $terminf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15108	15230	
==>urn $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while unlink $file;
        print STDERR "# Couldn't u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1286	1386	
==>stead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1286	1386	
==>stead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub al <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	936	1090	
==>:Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2,
            name => '&print',
            body => su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	327	418	
==>T  = $config->root->subdir( 'repo' );

system( qw[rm -rf], $config->root, $config->build_dir <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1193	1300	
==>check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expressi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1193	1300	
==>check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expressi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4013	4159	
==>er not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4001	4147	
==>er not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        pus <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	643	750	
==>eturn unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	643	750	
==>eturn unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	114	285	
==>ize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encry <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	114	285	
==>ize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encry <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43222	43329	
==>1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

The Perl 6 package L<Relation::Example> is bundled wit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10057	10157	
==>operties.

Note that all set functions may end up being calculated using iterations, 
which can be sl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10057	10157	
==>operties.

Note that all set functions may end up being calculated using iterations, 
which can be sl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7769	7938	
==>if (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_MET <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7769	7938	
==>if (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_MET <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	714	810	
==>S

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace to b <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	714	810	
==>S

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace to b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5431	5535	
==>se when it has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5431	5535	
==>se when it has been received.
method client_date ($self: )         is rw { $self!date_header('Client-Date <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6737	6864	
==>se;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is cop <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6737	6864	
==>se;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is cop <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24934	25076	
==>| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21355	21497	
==>| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1443	1537	
==>ry and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1443	1537	
==>ry and are able therefore to be strictly exact.

FYI, C<conform>, C<count>, C<information rate> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2285	2504	
==>ime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2285	2504	
==>ime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{state};
            }
            else
            {
                $state->[0]++;
                $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7614	7706	
==>r PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7672	7764	
==>r PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Te <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9176	9384	
==>l"))); 
                      })
                  ); 
                $e->set("$current", $e->get("&dispatcher")->do()); 
            })->do_while(
                block->new($e, sub { 
                    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6099	6215	
==>atch::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6111	6227	
==>atch::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    return join( ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8628	8771	
==>ore { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8628	8771	
==>ore { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4893	5049	
==>rn $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4893	5049	
==>rn $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_prev <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	897	1057	
==>} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'per <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	776	936	
==>} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12290	12403	
==>at new Node) that gets stored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
cor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12290	12403	
==>at new Node) that gets stored in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
cor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	228	406	
==>les
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_di <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	228	406	
==>les
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_di <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2655	2757	
==>faults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2655	2757	
==>faults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5513	5822	
==>)/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5513	5822	
==>)/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1073	1209	
==>url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1040	1176	
==>url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	764	954	
==>yedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	764	954	
==>yedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3030	3129	
==>:$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3088	3187	
==>:$depends) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9783	9947	
==>m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9783	9947	
==>m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7083	7188	
==>l OO/Overload 

runtime. 



- internal rule operators



Internal rule operators share a common API, whic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6843	6943	
==>l OO/Overload 
runtime. 

- internal rule operators

Internal rule operators share a common API, whic <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1409	1515	
==>cktrack()().  Backtracking parsers such
as quantifiers are implemented by passing a C<Result> object that h <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1409	1515	
==>cktrack()().  Backtracking parsers such
as quantifiers are implemented by passing a C<Result> object that h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4575	4687	
==>e not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub speci <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4575	4687	
==>e not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub speci <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8782	8886	
==>omatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # mak <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8782	8886	
==>omatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # mak <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20784	20876	
==>easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
Mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20784	20876	
==>easy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
Mo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5387	5517	
==>xt unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.def <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5387	5517	
==>xt unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $tmpdir.def <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6276	6433	
==>~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6334	6491	
==>~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6628	6741	
==>and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6628	6741	
==>and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .template_module <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1579	1704	
==>$fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1546	1671	
==>$fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1121	1218	
==>ing of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1121	1218	
==>ing of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	628	744	
==>) {
	push(@ret, $k ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3072	3196	
==>h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3072	3196	
==>h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7430	7590	
==>(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7623	7783	
==>(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36222	36323	
==>_->qr, @$consume);
  }

Here's a sample execution:

  use Regexp::AndBranch;
  my $parser = Regexp::An <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5807	5947	
==>950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(9 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5807	5947	
==>950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(9 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8764	8876	
==>y $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8760	8872	
==>y $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7757	7857	
==>array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHO <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7757	7857	
==>array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHO <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	914	1015	
==>hat
# do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	914	1015	
==>hat
# do not inherit from Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compil <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2361	2460	
==><sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This libra <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2361	2460	
==><sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This libra <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7378	7473	
==>sal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($fu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7378	7473	
==>sal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($fu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21443	21582	
==>anon => $canon,  max => $test->{max} || '??',
             failed => $failed, 
             percent => $percent,
             estat => $esta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21807	21922	
==>object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18228	18343	
==>object(unlessm => -1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5935	6138	
==>$ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5935	6138	
==>$ret.pop // yield;
                        yield $x if &$code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    meth <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	209	298	
==>ren;

## ----------------------------------------------------------------------------
## c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	209	298	
==>ren;

## ----------------------------------------------------------------------------
## c <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5890	5993	
==>is_bail_out($line, \$self->{bailout_reason}) ) {
        $type = 'bailout';
        $self->{saw_bailout} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	92	181	
==>:X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4852	5007	
==>)($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are with <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4852	5007	
==>)($match, $new_continue);
        }
        elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are with <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14024	14127	
==>- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14082	14185	
==>- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	118	205	
==>e HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	118	205	
==>e HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0.0.1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2858	3025	
==>bel}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{lab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2858	3025	
==>bel}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{lab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	922	1025	
==>stead of copying the whole string to $tail every time



# XXX - weaken self-referential things



sub r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	885	984	
==>stead of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1704	1801	
==>name is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?ws> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1704	1801	
==>name is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?ws> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20821	20923	
==>and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20821	20923	
==>and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9176	9285	
==>r('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9176	9285	
==>r('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14270	14371	
==>nterface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14270	14371	
==>nterface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	734	843	
==>pen () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	734	843	
==>pen () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	840	946	
==>be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = closure::signature- <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1852	1946	
==>t') || 1);
push(@yaml_harness_args,'--exclude','Disabled,^ext\b')
    if $ENV{PUGS_SMOKE_EXCLUD <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2664	2869	
==>stant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2675	2880	
==>stant( '*?' ),
                        ruleop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ), <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1267	1375	
==>}

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chu <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1267	1375	
==>}

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1093	1261	
==>($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key} }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7412	7533	
==>(RPe_BADESC, "z", " in character class") if $cc;
    return $S->force_object(anyof_char => 'z') if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5347	5476	
==>hild
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5347	5476	
==>hild
    # it is the responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9671	9780	
==>y \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10507	10616	
==>y \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2082	2179	
==>tch, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2082	2179	
==>tch, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_control:< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6005	6126	
==>$target =~ s/^$base//;

            unless( $self->_mkdir( dir => File::Spec->catdir($to, $target) ) ) {
                e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21163	21261	
==>sing a value of C<undef> to header() or any of the convenience
methods, does not delete that field. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21163	21261	
==>sing a value of C<undef> to header() or any of the convenience
methods, does not delete that field. <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11954	12064	
==>ure => sub { -r "$initrd_mnt/$_" or return for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $ini <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10244	10362	
==>ring;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10244	10362	
==>ring;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37544	37641	
==>string) and tries to load it using 'require'.

=item C<get_template_text_from_loaded_module( $modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37544	37641	
==>string) and tries to load it using 'require'.

=item C<get_template_text_from_loaded_module( $modu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2976	3170	
==>_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($sec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2976	3170	
==>_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($sec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34384	34488	
==>cntrl, digit (C<\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upper, word, xdigit; other <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	793	920	
==>05-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* ele <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	793	920	
==>05-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* ele <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3664	3760	
==>se("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handle <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3664	3760	
==>se("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handle <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1663	1757	
==>=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1663	1757	
==>=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4217	4320	
==>an ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4217	4320	
==>an ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::In <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	249	371	
==>ort { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	249	371	
==>ort { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20217	20317	
==>er("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20217	20317	
==>er("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event {...})>

Adds a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3862	3961	
==>ay", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be passed to `D <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3862	3961	
==>ay", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be passed to `D <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18283	18381	
==>,   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \& <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18283	18381	
==>,   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \& <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3379	3501	
==>ring.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3379	3501	
==>ring.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3187	3295	
==>_units (Num $radians, $base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $radians }
	/:i ^d/ { $radi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	895	1008	
==>upported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better defau <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	895	1008	
==>upported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better defau <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7394	7509	
==>')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' directive) 
is reached.

=item I <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7394	7509	
==>')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' directive) 
is reached.

=item I <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2178	2434	
==>@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3766	4022	
==>@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ] <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	215	311	
==>::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(templ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	215	311	
==>::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(templ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14119	14224	
==>e;
    my @params = $self->params;

    my $v = $prim->body->($self, map { $self->shift_param } 1 .. $prim <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5247	5372	
==>$len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pa <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3747	3872	
==>$len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset pa <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7220	7345	
==>child_num}] " : "";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1212	1343	
==>, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1212	1343	
==>, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5196	5352	
==>head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5196	5352	
==>head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6310	6408	
==>st one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The docume <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6310	6408	
==>st one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The docume <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2943	3073	
==>Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2943	3073	
==>Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16732	16854	
==>.local pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    name = "_pge_rule"
    if h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34480	34574	
==>it; others are
possible (Unicode properties and user-defined POSIX classes)

Data: 'POSIX' if C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5591	5701	
==>an also be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it until w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5591	5701	
==>an also be a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it until w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1515	1624	
==>n { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';
    
    rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1515	1620	
==>n { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2868	2978	
==>urns the names of all the parameters as a list.  The order in which they were
present in the query string is pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2868	2978	
==>urns the names of all the parameters as a list.  The order in which they were
present in the query string is pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11797	11969	
==>->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self->registered_alternatives }; 

    $self->regis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4825	4919	
==>he match object returns the numified version
of the result object (usually the entire match str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4825	4919	
==>he match object returns the numified version
of the result object (usually the entire match str <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7355	7466	
==>d')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRIN <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7355	7466	
==>d')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRIN <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4582	4863	
==>y");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What shoul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4582	4863	
==>y");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What shoul <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1914	2007	
==>tive()));
}

sub increment { num->new((shift)->to_native + 1) }
sub decrement { num->new((shif <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3853	3944	
==>ren;

## ----------------------------------------------------------------------------
## rem <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3853	3944	
==>ren;

## ----------------------------------------------------------------------------
## rem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1170	1275	
==>d of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pa <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1170	1275	
==>d of coro)
# TODO - reuse map() to write ops

# Things that will be solved by the compiler:
# - keys/kv/pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6105	6240	
==>l_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6093	6228	
==>l_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5173	5304	
==>For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5173	5304	
==>For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    % <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2274	2379	
==>ed
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Base <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2274	2379	
==>ed
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Base <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2116	2231	
==>: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2116	2231	
==>: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.complement )
    return $.universe = $self <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23249	23359	
==>ool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27801	27911	
==>ool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, and it is false if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1837	1971	
==>ge is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1837	1971	
==>ge is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3424	3542	
==>> 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3424	3542	
==>> 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1416	1511	
==>ly
just a shorthand for calling an accessor).

Run-time inheritance/method dispatch need not loo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7522	7619	
==>ormalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7522	7619	
==>ormalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7641	7750	
==>/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7641	7750	
==>/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	274	389	
==>rface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	480	595	
==>rface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once' <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	153	265	
==>tags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	153	265	
==>tags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4529	4640	
==>finite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.co <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4529	4640	
==>finite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18623	18802	
==>r1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::opti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18902	19081	
==>r1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::opti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3976	4100	
==>|| '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2929	3050	
==>|| '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14575	14696	
==>POS (-25)

POSIX syntax [%s %s] belongs inside character classes

=item RPe_EMPTYB (-26)

Empty \%s{}

=item RPe_FRANGE (- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3546	3643	
==>ule> module would prevent the Perl 6 compiler
from bootstrapping. 

If that is the case, running C <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1995	2112	
==>ragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $chars <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1995	2112	
==>ragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $chars <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5154	5293	
==>b _copy {
    my $self = shift;
    my %hash = @_;
    
    my($from,$to);
    my $tmpl = {
        file    =>{ required => 1, allow => [IS_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18715	18821	
==>o show human users.  This association would normally be
stored in a Perl file that defines and returns an a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18715	18821	
==>o show human users.  This association would normally be
stored in a Perl file that defines and returns an a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11003	11170	
==>st);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gath <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11003	11170	
==>st);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gath <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4690	4783	
==>tch object returns the stringified version
of the result object (usually the entire match stri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4690	4783	
==>tch object returns the stringified version
of the result object (usually the entire match stri <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	168	271	
==>e) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addMethod(Method--Perl6 $meth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26537	26632	
==>define ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define ROPT_COPY_DONE		0x4 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1861	1949	
==>num->new(int($left->to_native / $right->to_num->to_native()));
}

sub increment { num->ne <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8523	8610	
==>c_neg(L), !.
p5_modifier_spec_neg([-s|L]) --> "s", p5_modifier_spec_neg(L), !.
p5_modifi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	612	760	
==>{
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	612	760	
==>{
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $di <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15246	15356	
==>ontent.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=hea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15246	15356	
==>ontent.
sub pmc_unfold {
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=hea <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	48	172	
==>> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten def <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3449	3553	
==>TAILCALL\(([^,\)]+),?([^\)]*)\);/\@_=($2);goto $1;/g;
  #print STDERR $_;
  $_;
};
1;
package main;
use R <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4770	4888	
==>. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4770	4888	
==>. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) {
        unless ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6207	6390	
==>Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: & <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6207	6390	
==>Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: & <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3336	3435	
==>also means that the nonce or initialization vector should be hashed with the 
key, not merely append <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3336	3435	
==>also means that the nonce or initialization vector should be hashed with the 
key, not merely append <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10502	10626	
==>ine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a function that will select <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10502	10626	
==>ine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile a function that will select <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4127	4240	
==>iteral   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?)\{ <code> \}\> }
rule code_a <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1054	1161	
==>everse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651.
type KeyExtractor  ::= Code(Any --> A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	521	629	
==>> $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	104	200	
==>mplementations of /builtins/
* They sometimes use Pugs internals to do the job
* Some of this had <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	164	278	
==>:Grammar::Num;
use Pugs::Grammar::Str;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	153	239	
==>r::Rule;
use Pugs::Runtime::Match;
*{'immediate_statement_rule'} = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	428	565	
==>return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	428	565	
==>return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; retur <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27197	27292	
==>"(int × str)", ":t id(pair(id(10))(id('foo')))");
is(t($app_to_str), "∀α. (str → α) →  <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4228	4339	
==>=~ />/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $match <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	40	148	
==>e Package::Constants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

use vars qw[@EXPORT];
use ba <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	335	449	
==>ame
    ### XXX maybe metainfo name later? requires peeking in, might be a
    ### catch22 if we don't do it from r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	272	374	
==>::OnPerl5::X1::BB::pugs;
    $pugs = $ENV{PUGS_EXECUTABLE} if !defined $pugs;
    $pugs = "pugs" if !de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9653	9750	
==>y, but not all, ciphers will need to override these
method _head() returns Array { return }
method <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9653	9750	
==>y, but not all, ciphers will need to override these
method _head() returns Array { return }
method <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7227	7353	
==>essage key from the
        # successfully loaded template module; on a function call
        # death, assume module is damaged <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7227	7353	
==>essage key from the
        # successfully loaded template module; on a function call
        # death, assume module is damaged <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20881	20991	
==>sources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of funct <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20881	20991	
==>sources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring this sort of funct <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8560	8732	
==>: #313052;
      color:            white;
      padding:          10px;
    }

    th       { text-align: left; }
    .indent0 { padding-top:  30px; border-bottom: 2px solid <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5045	5183	
==>c => 'left',
    fixity => 'infix',
    block => sub {...},   # XXX - the return block could be generated automatically ?
  );

Pseudo-code <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	509	624	
==>use re::override-flavor" unless $flavor;

    unless ($inserted++) {
        regexp_exechook_insert();
        regex <==
2	/Users/nnunley/pugs/util/addauthors.pl	357	452	
==>hors = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitter <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1791	1912	
==>();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1791	1912	
==>();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	150	261	
==>s {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7686	7796	
==>sults;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait2exit = sub { $_[0] >> 8 };
}
e <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18060	18190	
==>n for the above (if any)
            };

Element 0 of the details is test #1.  I tried it with element 1 being
#1 and 0 being empty <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27075	27181	
==>α. ∀β. (α × β) → α", ":t fst");
is(t(ide("snd")), "∀α. ∀β. (α × β) → β", ":t snd");
i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	828	944	
==>$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	828	944	
==>$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1570	1724	
==>{
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1570	1724	
==>{
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4326	4489	
==>^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4326	4489	
==>^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@bas <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18336	18431	
==>of the perl core, to permit the use
of alternate regexp engines.  There being little documentati <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1574	1693	
==>MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1485	1586	
==>MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUti <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	63	236	
==>ol $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	63	236	
==>ol $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15892	15984	
==>em C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15892	15984	
==>em C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3170	3281	
==>eally_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3170	3281	
==>eally_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOP <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6701	6821	
==>) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6701	6821	
==>) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args here <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1275	1383	
==>ymbol names) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contain <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1219	1323	
==>ymbol names) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contain <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3258	3350	
==>cessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3258	3350	
==>cessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13279	13409	
==>keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13279	13409	
==>keys;
    return alternation( \@keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16128	16269	
==>new(undef);
    
    # if the symbol is not a predefined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2541	2678	
==>new(undef);

    # if the symbol is not a predefined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17291	17388	
==>s
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17291	17388	
==>s
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg);
  $bo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	248	362	
==>om_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warnin <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	248	362	
==>om_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warnin <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1388	1492	
==>odule (qw< fps HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Config{_exe}" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7527	7636	
==>y @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7527	7636	
==>y @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20705	20803	
==>rious methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20705	20803	
==>rious methods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a mo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1671	1775	
==>x) {
	char * target = (char *)GC_MALLOC(sizeof(char) * 100);
	(void)sprintf(target, "%d", x);
	return tar <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2441	2542	
==>nt but should be mentioned...

package BacktrackDev;
=pod
Design notes:
 Why not call "TAILCALL" "GOTO <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5091	5207	
==>ribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8568	8684	
==>ribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	632	748	
==>obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1116	1232	
==>obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can have o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5640	5753	
==>if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::F <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5640	5753	
==>if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::F <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4470	4551	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4470	4551	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17523	17642	
==>ir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name == 0 goto end
    $I0 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2662	2798	
==>hod to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2662	2798	
==>hod to_num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12671	12813	
==>c commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12671	12813	
==>c commands (e.g. 001 -> welcome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7037	7147	
==>);
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7037	7147	
==>);
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $stateme <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3173	3273	
==>e;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3173	3273	
==>e;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
multi sub *infix:<∩> (Se <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1615	1720	
==>:Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1615	1720	
==>:Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9688	9785	
==>d documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9746	9843	
==>d documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4515	4620	
==>_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => 'Par <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1678	1792	
==>= $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2530	2644	
==>= $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    } <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19806	19927	
==>o a higher order function
my $app_id_to_str = comb(
	fun => $app_to_str,
	param => $id,
);

# we can't get app_to_str to a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	341	440	
==>is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	341	440	
==>is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3816	3955	
==>"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional IS <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3816	3955	
==>"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional IS <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1867	1970	
==>args->{INST_MAN3DIR} =
      File::Spec->catfile($path, "man3");
    $self->makemaker_args->{MAN1PODS} = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9057	9181	
==>time_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9250	9374	
==>time_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", D <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32045	32146	
==>rns a new Relation that has the same heading
and whose body contains all of the tuples that are in eit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36595	36696	
==>rns a new Relation that has the same heading
and whose body contains all of the tuples that are in eit <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1737	1849	
==>rameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_opt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1737	1849	
==>rameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocant;
    has Bit $.is_opt <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5455	5564	
==>ub run {
    my $self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	388	506	
==>onst );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	388	506	
==>onst );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1306	1441	
==>rn { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1306	1441	
==>rn { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compile( q(
    (<statement.p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1200	1323	
==>b => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1200	1323	
==>b => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1561	1667	
==>se Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1561	1667	
==>se Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15203	15309	
==>is interface is rigorously defined, such that there
should be no ambiguity when trying to invoke or impleme <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15203	15309	
==>is interface is rigorously defined, such that there
should be no ambiguity when trying to invoke or impleme <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1764	1882	
==>ODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1764	1882	
==>ODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2300	2400	
==>($prog->{name}) is non-fatal";

		cmp_deeply(
			$result,
			$prog->{result},
			"correct results for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5385	5488	
==>AML.pm  # configuration (like CPAN/Config.pm)

  /lib/Pugs/Grammar/YAML.pm   # main Grammar file

  /lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5196	5297	
==>AML.pm  # configuration (like CPAN/Config.pm)
  /lib/Pugs/Grammar/YAML.pm   # main Grammar file
  /lib <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	246	354	
==>args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	210	318	
==>args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5052	5193	
==>ned) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.pu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5052	5193	
==>ned) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	546	651	
==>> \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	546	651	
==>> \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail => su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3045	3149	
==>n($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3045	3149	
==>n($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8250	8357	
==>rmalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8250	8357	
==>rmalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Chan <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	108	216	
==>. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	108	216	
==>. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2018	2141	
==>debug = 0;
  sub{
    my $c = $_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35602	35691	
==><union (Relation::Example $other!) returns Relation::Example>

This multi-method is a gene <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14319	14471	
==>efix:<$id>'};\n";
    
            #print "macro: expanded:\n$res";
            return $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12956	13055	
==>s:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's memb <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12956	13055	
==>s:

=over

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's memb <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	53	145	
==>ode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	53	145	
==>ode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_ent <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2430	2574	
==>ver 4

=item Thunk

Something you thunk of but haven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	461	568	
==>$<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	461	568	
==>$<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7504	7644	
==>ST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $conten <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7504	7644	
==>ST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form-urlencoded') {
                my $conten <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16176	16285	
==>acter

  # backslash

  # start of char class (and possible negation)
  $self->add_handler('[' => sub {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1455	1548	
==>le-time-bound values for them.

It includes the parameters as well as anything declared within <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1394	1486	
==>le-time-bound values for them.
It includes the parameters as well as anything declared within <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1013	1125	
==>$func($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.pus <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1013	1125	
==>$func($current_tree, @path[0]);
        # if we do match, then store the tree in our results
        @results.pus <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24061	24156	
==>e.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free softw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24061	24156	
==>e.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free softw <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4430	4560	
==>r{0};
    $r->(0)  --> $r(0);


    foreach (@a)        -->  for @a
    foreach my $r (@a)  -->  for @a -> $r

    package MY::Clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4714	4814	
==>tringified version
of the result object (usually the entire match string).

=head2 0+

When used as a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4714	4814	
==>tringified version
of the result object (usually the entire match string).

=head2 0+

When used as a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	94	225	
==>er;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least on <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	99	230	
==>er;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least on <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	920	1015	
==>ave both a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps this module s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	692	813	
==>$args = check( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $clas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4735	4850	
==>_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4735	4850	
==>_hash () returns Hash {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_na <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14250	14372	
==>ve_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1730	1852	
==>ve_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2694	2793	
==>streams are enciphered with the same key, the encryption 
can be removed by XORing them together; yo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2694	2793	
==>streams are enciphered with the same key, the encryption 
can be removed by XORing them together; yo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2997	3130	
==>>gzwrite($_)    or die "gzwrite: $Compress::Zlib::gzerrno";
    }
    $gz->gzclose;
    unlink $in;
    1;
}

sub build_lib {
    my $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2280	2394	
==>ncy '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{package <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3637	3747	
==>ncy '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends->{package <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25671	25770	
==>d by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25671	25770	
==>d by a machine and
mapped to a user-readable message; the key itself is not meant to be
meaningful t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21326	21432	
==>nd each Mapping value
is the corresponding attribute value.

Every Relation attribute has a name that is di <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25878	25984	
==>nd each Mapping value
is the corresponding attribute value.

Every Relation attribute has a name that is di <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	126	230	
==>y-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Id <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	126	230	
==>y-based) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Id <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22757	22886	
==>gc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logica <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19178	19307	
==>gc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logica <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31792	31889	
==>nd prefers) language A but also understands
language B.  Later on, if for example the first librar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31792	31889	
==>nd prefers) language A but also understands
language B.  Later on, if for example the first librar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5780	5936	
==>sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " print '', " . _emit( $n->{param} ) . ";\n" .
            " pri <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15516	15619	
==>nk = shift;

    $self->enter_scope;
    my $node = Thunk->new($self->reduce($thunk->val));
    $self->l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2201	2299	
==>:Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/runtime/) }

	s <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	398	491	
==>ef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_fun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	398	491	
==>ef }
method set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_fun <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14619	14714	
==>DumpFile( $self->registered_alternatives_file, @alts ) };
    $@ and error( "Could not write alt <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7721	7812	
==>nd=%lu\n",(ulong)exp,(ulong)xend);*/
    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpvn(exp,xe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7470	7585	
==>(?<=:)\s*/,$params);
	$params = \@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($params->[0])) { # an array <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	403	505	
==>y $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::Joi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	403	505	
==>y $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC::Joi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4085	4203	
==>rn $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4085	4203	
==>rn $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim: f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3287	3403	
==>.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3287	3403	
==>.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $universe,
    )
} <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3482	3589	
==>od r8593.
# body from PIL2JS (r8593) from Prelude/PIL.pm.
# Prim.hs r8593 defines this as List::splice.
mult <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1780	1875	
==>rs the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, wh <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1780	1875	
==>rs the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, wh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49400	49518	
==>ersion'), $e->get('?$version'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:vers <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1707	1817	
==>();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1707	1817	
==>();
}

method clone ($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4496	4593	
==>ct returns the I<result>
object; this is normally the entire match string, but may be arbitrary
ob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4496	4593	
==>ct returns the I<result>
object; this is normally the entire match string, but may be arbitrary
ob <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25817	25987	
==>equence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule ControlEscape {  # see 15.10.1
      <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
rule Cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6664	6806	
==>rammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6664	6806	
==>rammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $mat <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11816	11932	
==>} = eval "qr/$regex/$reopts";
      }
      $link->{sourcepath}=$output_path;
      $output .= $text;
      my $syn_p <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2085	2205	
==>ime ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Boo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2085	2205	
==>ime ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Boo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33906	34005	
==>rns a new Relation that has the same heading and
whose body contains all of the tuples that are in t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38456	38555	
==>rns a new Relation that has the same heading and
whose body contains all of the tuples that are in t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3908	4109	
==>aned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$noop; goto &$c;
      my $v = $c->($noop);
      if(defined $v) {
        @{$mat} = $var->[0]; #shudder
        return $v;
      } <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1741	1863	
==>ime_t;
}

# convert from a perl float
multi sub epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregoria <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19657	19755	
==>ram => val(v => "foo", t => type::operator::nullary->new("str")),
	),
);

# we can apply a polymorp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2990	3082	
==>ile failed: $warn\n" if $warn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2874	2986	
==>::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2874	2986	
==>::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional ?
    my $sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5807	5946	
==>h->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5623	5759	
==>h->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10700	10832	
==>s1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10694	10826	
==>s1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%nam <==
2	/Users/nnunley/pugs/util/version_h.pl	1539	1703	
==>= grep /(?:file|svn|https?)\b/, @info) {
                    ($revision) = $line =~ / (\d+)$/;
                }
            }
        }
    }
}
$revision ||= 0;
pri <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1814	1910	
==>till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	733	878	
==>m
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	733	878	
==>m
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2185	2296	
==>requires into prereq_pm
    my $dir = ($args->{DIR} ||= []);
    if ($self->bundles) {
        push @$dir, map " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2033	2147	
==>signed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2033	2147	
==>signed to allow easy manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15753	15855	
==>CALLER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15811	15913	
==>CALLER to force Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4677	4780	
==>1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4677	4780	
==>1]++;
                match_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5572	5659	
==>52) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5572	5659	
==>52) { $dec2hex(240+$num/262144)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1301	1433	
==>$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1301	1433	
==>$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $stri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1865	1982	
==>l references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_gro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1865	1982	
==>l references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_gro <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2652	2763	
==>n ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our Num multi Num: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6227	6329	
==>y left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6227	6329	
==>y left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25802	25900	
==>ues the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30354	30452	
==>ues the new names.
This method will fail if any C<$mapping> keys do not match invocant
Relation att <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2901	3023	
==>arget?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my % <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2901	3023	
==>arget?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3113	3216	
==>print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], name => $_[2], block <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22775	22872	
==>perset of the Set operators.

Like the Set data type, the Relation::Example data type is immutable <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4466	4592	
==>ding ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7943	8069	
==>ding ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_. <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	937	1086	
==>gister {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    } <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	937	1086	
==>gister {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1211	1321	
==>ally loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	124	227	
==>use 
# my constant $:parser_details = 'ParserDetails.ini';
# as soon as it works.

method load_parsers(C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4040	4230	
==>_dir->file( $conf->preinst );
            if( -e $preinst && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XX <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13160	13349	
==>ELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation::Example $other!) returns Re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6896	6995	
==>king the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6896	6995	
==>king the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9943	10060	
==>f $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9943	10060	
==>f $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value: <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	205	360	
==>r namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't in <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	205	360	
==>r namespace
    $.callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17019	17122	
==>e usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17019	17122	
==>e usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	493	645	
==>s = \$2; push \@match, \$1 } : 0 )";
}

sub capture { 
    return "do{ 
        push \@match, { 
            name => '$_[0]', 
            match = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16125	16219	
==>nd one
application may handle it internally, while another one displays it to the
user instead. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16125	16219	
==>nd one
application may handle it internally, while another one displays it to the
user instead. <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	397	532	
==>/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	522	642	
==>/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15494	15594	
==>f "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15494	15594	
==>f "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darwen for a solid f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14343	14457	
==>perl5_array },
     );
sub p6_as_array {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_arra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	293	407	
==>r::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Ope <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9530	9662	
==>m_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9530	9662	
==>m_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_b <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1551	1680	
==>scriptions;
            #}
        }
    }
}

role Class::Events::Subscriber {
    use Set;
    has Set $.subscriptions handles :n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13263	13409	
==>"$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13257	13403	
==>"$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constan <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5440	5551	
==>ules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %ca <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5440	5551	
==>ules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2634	2874	
==>d = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2634	2874	
==>d = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29314	29434	
==>"MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29314	29434	
==>"MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5856	5959	
==>> := (die|\.\.\.) \;
        { return { _simple_statement => $() ,} }
RULE
*{'sub_decl'} = Pugs::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20096	20215	
==>', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20375	20494	
==>', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14247	14384	
==>:Example *@others) returns Relation::Example {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	676	785	
==>::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs' <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	676	785	
==>::Bin/util/PugsConfig.pm";
        return PugsConfig::get_config();
    }

    my $pugs_path = shift || 'pugs' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12326	12439	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12605	12718	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3138	3274	
==>filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3355	3491	
==>filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 = Perl6Grammar::compile( $source,{
		p <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	35	152	
==>r redone for all the Perl 6 OOP goodness

# something which does publisher can send events
# something which does subs <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3442	3577	
==>ub _version_to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        version => { default => '0.0 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9610	9711	
==>Sequence {  # see 7.8.4
      <SingleEscapeCharacter>
    | <NonEscapeCharacter>
}
rule SingleEscapeCh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17922	18016	
==>rogram handling the request.

=item $h.from

This header should contain an Internet e-mail addr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17922	18016	
==>rogram handling the request.

=item $h.from

This header should contain an Internet e-mail addr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3063	3231	
==>ch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3063	3231	
==>ch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7161	7255	
==>hink in general it is a bad idea

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7161	7255	
==>hink in general it is a bad idea

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	38	161	
==>t up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	38	161	
==>t up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6430	6525	
==>rt => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRI <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6430	6525	
==>rt => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool::False );

= DESCRI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22347	22443	
==>nings to I<all> escape sequence handlers.

The 'g', 'c', and 'o' flags now evoke "Useless ..." wa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1456	1579	
==>case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1456	1579	
==>case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_ca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	586	712	
==><submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submo <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	586	712	
==><submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20879	20981	
==>y
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an un <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25431	25533	
==>y
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object is an un <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1107	1216	
==>sub registered_alternatives_file {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4096	4187	
==>m E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 homepage at L<http://dev.p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20218	20321	
==>(class_neg(X),C), !.
rm(eos,         [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [],[],B0,B0,E0,E0) :- !.
r <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3107	3215	
==>$status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3107	3215	
==>$status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and heade <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	593	711	
==>er a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	593	711	
==>er a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3745	4126	
==>ep
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3745	4126	
==>ep
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3041	3165	
==>close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class M <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3041	3165	
==>close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class M <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	384	486	
==>in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds noth <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	384	486	
==>in the source.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds noth <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14857	14962	
==>rs->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ret) = ($c->left, $c->right);
	}

	# now we unify the <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4418	4539	
==>d($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4418	4539	
==>d($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1555	1675	
==>ack to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($self, $1 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3873	3974	
==>say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3873	3974	
==>say, C<[2,4]> (on the third match of the outer group, and
the fifth match of the inner group).  XXX wr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	328	423	
==>a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	328	423	
==>a local hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	176	375	
==>mar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /
        ^
        (
            (?:
                # pod start
                (?: \n | ^ ) \= \w  
                # pod b <==
2	/Users/nnunley/pugs/util/func_refact.pl	1528	1639	
==>%$set) - 1; # to force one run even if $new is in
    $set->{$new} = 1;
    while (scalar(keys %$set) > $size) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1963	2116	
==>class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2023	2176	
==>class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32413	32512	
==>else, such as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Clas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32413	32512	
==>else, such as XML or tab-delimited plain text files.>

=head2 The Locale::KeyedText::Translator Clas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2473	2599	
==>_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2690	2816	
==>_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3914	4031	
==>rn $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3914	4031	
==>rn $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_sta <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3941	4053	
==>ion: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3941	4053	
==>ion: close",
    $CRLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	804	923	
==>re} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1010	1129	
==>re} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3656	3746	
==>is C<reduce_sym> which must handle recursive calls.

The compiler inherits L<Blondie::Reduc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7071	7172	
==>bling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in gene <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7071	7172	
==>bling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in gene <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	799	901	
==>my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	799	901	
==>my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () returns bool {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	708	879	
==>];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	680	844	
==>];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9427	9535	
==>_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9427	9535	
==>_spec = %hash.exists('path_spec'); %hash.delete('path_spec');
                my $secure    = %hash.exists('s <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4101	4212	
==>\'\> }
rule interpolated_literal   { \<(!?)\" [ <-[\\\"]> | \\ \" ]* \"\> }
rule code_rule              { \<(!?) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	638	744	
==>ub type {
		my $self = shift;
		my $type = $self->SUPER::type;

		# this method always returns the shallowe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7992	8087	
==>asic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7992	8087	
==>asic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  return Proxy. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29126	29236	
==>wrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33678	33788	
==>wrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4830	4952	
==>of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any le <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4830	4952	
==>of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any le <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	75	200	
==>use overload
    'bool'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
us <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	826	927	
==>here only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	826	927	
==>here only methods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, univers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3668	3786	
==>ve a new Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3536	3650	
==>ve a new Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you ha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37505	37606	
==>r of its arguments is not significant to the result;
the new Relation is the result of combining all o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42054	42155	
==>r of its arguments is not significant to the result;
the new Relation is the result of combining all o <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4364	4488	
==>d($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4364	4488	
==>d($_) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6868	7010	
==>sive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7332	7474	
==>sive call returns
                push @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6981	7113	
==>\/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6969	7101	
==>\/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5924	6033	
==>n;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5924	6033	
==>n;
}
method end_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	302	420	
==>error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	302	420	
==>error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7970	8084	
==>o 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object that has no capture (but the 'bool' fiel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7702	7813	
==>o 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object that has no capture (but the 'bool' fiel <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2450	2540	
==>"Could not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smoke_upload) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6479	6601	
==>am, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6479	6601	
==>am, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4404	4526	
==>ol::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4404	4526	
==>ol::False;
}

method flatten () { 
    # this needs optimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6:: <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2903	3006	
==>@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2903	3006	
==>@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9124	9243	
==>ing
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9124	9243	
==>ing
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14343	14437	
==>eue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14343	14437	
==>eue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6527	6673	
==>erimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable match...

        $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6317	6457	
==>erimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match...
        $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6024	6138	
==>efix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6024	6138	
==>efix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6362	6472	
==>ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must be declared o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6146	6255	
==>ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must be declared o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	322	431	
==>POS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalue		{ $_[0]{flags}[-1] }

sub SIZE_ONLY		{ ! $_[0]{tree} }
sub LA <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6503	6615	
==>kens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I de <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6503	6615	
==>kens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2983	3082	
==>ved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2983	3082	
==>ved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10901	11004	
==>body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\(([^\)]*)\)\s+\{(.+? <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22881	22975	
==>alue of
a Relation::Example object is determined when it is constructed, and the object can
not <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2833	2938	
==>catfile($base, 'blib6', 'lib');
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16114	16212	
==>m>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingm <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16172	16270	
==>m>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogman <nothingm <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2147	2273	
==>arams} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    push @{ $self-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14666	14771	
==>arams} };
    $self->{params} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16148	16270	
==>t is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16148	16270	
==>t is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3831	3945	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4024	4138	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2201	2343	
==>h->to_native . ")";      
    # loop through the param keys
    for my $i (0 .. $params->elems->to_native) {
        my $value; 
        my $pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18000	18096	
==>dentify
it easily in its conditional logic, using a simple 'equals', and then the
application can <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18000	18096	
==>dentify
it easily in its conditional logic, using a simple 'equals', and then the
application can <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8268	8376	
==>m_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8268	8376	
==>m_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.cur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10419	10521	
==>terations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10419	10521	
==>terations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( closure_next => sub {...}, closu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12865	12977	
==>r is used for several things. 
For example, when iterating through the span range, the unit is added to the curre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12865	12977	
==>r is used for several things. 
For example, when iterating through the span range, the unit is added to the curre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7822	7959	
==>olate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7822	7959	
==>olate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_MEMBER;
        last;
    }

    return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4792	4891	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4792	4891	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11799	11894	
==>the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11857	11952	
==>the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Until t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	730	829	
==>nd `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	730	829	
==>nd `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12536	12644	
==>urns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12536	12644	
==>urns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty set.

- `is_infinite()`

R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12043	12162	
==>inator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12043	12162	
==>inator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $ <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	715	825	
==>= 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|no|No|NO|fa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3885	3986	
==>}, return unless $next;
    $next->walk(\@stack, $d);
    return wantarray ? ($next, $depth-$d) : $nex <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8648	8753	
==>ns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this version i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8648	8753	
==>ns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Win32, although this version i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24711	24832	
==>=> sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21132	21253	
==>=> sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler(' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	678	774	
==>ptions, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	678	774	
==>ptions, Cipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1829	2000	
==>hen
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our curren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1829	2000	
==>hen
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our curren <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1168	1298	
==>commits);
my @devs_till_day    = dayify(@developers);
# @devs_till_day should have the same length as @commits_till_day --
# fill i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7577	7677	
==>(lookahead_not(R))  --> p5_elemental(lookahead_not(R)).
p5_condition_test(lookbehind(R))     --> p5_e <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	607	716	
==>rected acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that sa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	607	716	
==>rected acyclic graph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that sa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8843	8957	
==>er::quant;

  # Needed for regexp_try.pl, but... bad idea for development.
  no warnings "recursion";

  sub emit { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1644	1788	
==>//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.cle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1644	1788	
==>//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.cle <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	73	205	
==>gs::Grammar::BaseCategory);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cut

# TODO - implement the "magic hash" di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1804	1905	
==>match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1804	1905	
==>match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14735	14832	
==>>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14735	14832	
==>>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1166	1312	
==>aping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1166	1312	
==>aping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24659	24782	
==>ranch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21080	21203	
==>ranch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1527	1624	
==>ODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start da <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1527	1624	
==>ODS

The following methods are available for Set::Span objects:

- `start()`

Returns the start da <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	626	736	
==>acter matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	626	736	
==>acter matched.
    $.capture_num  - Numeric captures: $/[0], $/[1], ...
    $.capture_name - Named captures: $/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	913	1017	
==>~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $1\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	924	1028	
==>~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - $1\n" <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5931	6024	
==>mk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5931	6024	
==>mk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1072	1205	
==>s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1072	1205	
==>s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7944	8064	
==>ue"] = value
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", po <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18487	18595	
==>un>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18487	18595	
==>un>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7688	7791	
==>$re = "(?i)(?:$re)";
    }
    return $o->mk_eater_for_re($re);
  }
}
{
  package Regexp::Parser::anyof_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3559	3656	
==>{name} = shift;
	$self;
}

package type::operator::binary;
use base qw/type::operator/;

use Scala <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	797	928	
==>lude\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/\\n/ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	660	759	
==>bug "Reading smoke \"$file\" to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$fil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3136	3261	
==>Sym is reduced to the Thunk mapped from '&func' in
                   # the env, which is then given to the App
    ),

Inheri <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4512	4637	
==>ef)=@_;
    die "bug $aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noop if @a == 0;
    return $a[0]->em <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	738	839	
==>e program
    
    my $result = Blondie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3228	3346	
==>f contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3228	3346	
==>f contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::po <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4457	4575	
==>ptimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method spli <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4457	4575	
==>ptimization
    for @.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method spli <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1284	1392	
==>__->add_rule(
        '.' => q( <before <Pugs::Grammar::Term.ident> > { return { stmt => '.'} } ));
    for ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	551	653	
==>t_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	551	653	
==>t_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26459	26565	
==>ges {  # see 15.10.1
      <ClassAtom>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-' <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	268	398	
==>) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	268	398	
==>) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1047	1159	
==>'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1047	1159	
==>'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$ <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	185	284	
==>tring containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	241	340	
==>tring containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	668	821	
==>i) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	668	821	
==>i) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4315	4429	
==>sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $stat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5053	5165	
==>sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $stat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	344	568	
==>en $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $inde <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	344	568	
==>en $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $inde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4939	5059	
==>* load the YAML compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4768	4884	
==>* load the YAML compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YA <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26051	26146	
==>ttributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30603	30698	
==>ttributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10811	10940	
==>ew( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10811	10940	
==>ew( span => $.span );
}

coro lazy ($self: ) {
    my $iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11010	11114	
==>st{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity. <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11010	11114	
==>st{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1737	1829	
==>PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1737	1829	
==>PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8305	8396	
==>ement ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_int <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8305	8396	
==>ement ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_int <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4672	4778	
==>quire YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has alre <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4531	4637	
==>quire YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has alre <==
2	/Users/nnunley/pugs/misc/S29_round.pl	609	752	
==>x) * ceil( abs($x) ) }
        when ($_ <= .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29906	30014	
==>inly of a data-stuffed hash
and an accessor method to read values from it by key.  Each template hash
key cor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29906	30014	
==>inly of a data-stuffed hash
and an accessor method to read values from it by key.  Each template hash
key cor <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2051	2180	
==>s     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2051	2180	
==>s     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	377	488	
==>tent};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable white <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	377	488	
==>tent};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable white <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6692	6852	
==>)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:term <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6749	6909	
==>)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:term <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8778	8884	
==>on( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8778	8884	
==>on( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List of Spa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5207	5318	
==>m)

  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );



* use the compiler



  my $data = compile::eva <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5027	5133	
==>m)
  *compile::YAML = Pugs::Compiler->new( lang => 'YAML' );

* use the compiler

  my $data = compile::eva <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1680	1809	
==>/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
aln <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1740	1869	
==>/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
aln <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6066	6184	
==>ssible bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6456	6574	
==>ssible bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.delete( <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	190	306	
==>nd docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - im <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	190	306	
==>nd docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite
        - im <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7239	7338	
==>e into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks an <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7239	7338	
==>e into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks an <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4963	5072	
==>a and returns it as an array of bytes, 
then clears the object's internal state.  This should be called as the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4963	5072	
==>a and returns it as an array of bytes, 
then clears the object's internal state.  This should be called as the <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1333	1438	
==>} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea na <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1333	1438	
==>} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textarea na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	527	615	
==>ta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	527	615	
==>ta = Class::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2304	2424	
==>hen Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2304	2424	
==>hen Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of typ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23103	23204	
==>e always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23103	23204	
==>e always seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw(" <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	756	918	
==>~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	756	918	
==>~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	939	1193	
==>ta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file => File::Spec->catfile( 
                                $dir, $config->jib_dir, $config->meta_file ) 
                        ) or r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	161	264	
==>Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	161	264	
==>Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	474	634	
==>t {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	474	634	
==>t {
    my $volume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7909	8098	
==>ence ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "The heading of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11386	11575	
==>ence ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relation {

    die "The heading of th <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3777	3864	
==>W), p5_quantified_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_qua <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	239	489	
==>_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	239	489	
==>_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_key (S <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	82	175	
==>as $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	82	175	
==>as $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10387	10504	
==>eturn unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10387	10504	
==>eturn unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8052	8175	
==>it {
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } @{$o->data};
    my $f_last = pop(@fs);
    sub{
      my $c = $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4414	4550	
==>lation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4414	4550	
==>lation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4981	5081	
==>sition of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4981	5081	
==>sition of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pug <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21450	21560	
==>=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21450	21560	
==>=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you c <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1571	1705	
==>$_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_esc <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1571	1705	
==>$_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_esc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25276	25370	
==>bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25276	25370	
==>bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14690	14790	
==>not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14690	14790	
==>not folded.

The optional $eol parameter specifies the line ending sequence to
use.  The default is " <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18218	18463	
==>ff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unles <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18922	19049	
==>mple {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5236	5366	
==>rts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5236	5366	
==>rts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!conten <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23250	23348	
==>tions.  Or alternately, the other
packages require your text data to be stored in a format other th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23250	23348	
==>tions.  Or alternately, the other
packages require your text data to be stored in a format other th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5356	5465	
==>%*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5356	5465	
==>%*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21046	21147	
==>t that only the last of these fields will be present in the header
after the call.  All values ought t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21046	21147	
==>t that only the last of these fields will be present in the header
after the call.  All values ought t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1204	1381	
==>, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1204	1381	
==>, if any, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33746	33848	
==>ge like English or French.  The order of these items corresponds to
an individual user's (or user role' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33746	33848	
==>ge like English or French.  The order of these items corresponds to
an individual user's (or user role' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3792	3900	
==>ding.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7269	7377	
==>ding.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.v <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9420	9527	
==>ecode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);? <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9420	9527	
==>ecode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);? <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20437	20564	
==>}

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3607	3712	
==>\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\n";
}
sub node::_simple <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11049	11149	
==>ill try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11049	11149	
==>ill try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Re <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	135	236	
==>g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	135	236	
==>g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1592	1710	
==>l => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1592	1710	
==>l => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my $sub = shift <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26363	26451	
==>e Language::Prolog::Yaswi::Low;
    @Language::Prolog::Yaswi::Low::args = ($Language::Pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16944	17067	
==>tements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17223	17346	
==>tements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12395	12518	
==>rom_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12395	12518	
==>rom_nick => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!han <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3782	3899	
==>tput($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3782	3899	
==>tput($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just return. The filte <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12653	12750	
==>rue if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12653	12750	
==>rue if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Ret <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6327	6438	
==>esult1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3390	3513	
==>ably a better way to find this.
        # (registry lookup?)

        my $cygroot = $ENV{'!C:'};

        $cygroot =~ s{\\bi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1014	1127	
==>ute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave acc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1014	1127	
==>ute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave acc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2293	2450	
==>is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2293	2450	
==>is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9340	9461	
==>}

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9340	9461	
==>}

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1801	1922	
==>elf = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	912	1031	
==>elf = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6764	6887	
==>> chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(82 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6764	6887	
==>> chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(82 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19566	19686	
==>}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15987	16107	
==>}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24006	24134	
==>n|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom insid <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20427	20555	
==>n|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom insid <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4484	4564	
==>F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4484	4564	
==>F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096 <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	127	221	
==>$!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	127	221	
==>$!filter_function, Bool $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36316	36417	
==>gexp::AndBranch->new;

  # matches the first number found in a string
  # that contains 'foo' somewher <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2126	2224	
==>return ($qr,$r_address);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointe <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	969	1076	
==>b': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simpl <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	969	1076	
==>b': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simpl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26615	26718	
==>th $self->{off} ? "-" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser::minmod;
  push @ISA, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6723	6849	
==>, 
   '&Object::singleton_test_on_object',
   '... got the right return value from Object singleton/class method');

$Object->a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	472	583	
==>h @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-style: b <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20676	20786	
==>->{_dirs}})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	671	815	
==>{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	671	815	
==>{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30269	30363	
==>$v = $obj->visual()

The visual representation of this object.  It includes the visual
represen <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1854	1960	
==>bset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1854	1960	
==>bset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14767	14872	
==>o
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substituted with thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14767	14872	
==>o
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substituted with thi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1095	1205	
==>t @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PAC <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5262	5373	
==>:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || % <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5262	5373	
==>:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || % <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13072	13170	
==>son' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().ge <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13072	13170	
==>son' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().ge <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2459	2571	
==>gnature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    subm <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2459	2571	
==>gnature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    subm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12380	12474	
==>y if the parameter's
corresponding argument is undefined).  The new Document object's All Nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12380	12474	
==>y if the parameter's
corresponding argument is undefined).  The new Document object's All Nodes <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13115	13211	
==>bout TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13173	13269	
==>bout TODO-ing tests

Sometimes a test is broken because something is not implemented yet. So
in o <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14361	14474	
==>ill print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14419	14532	
==>ill print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

T <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6071	6175	
==>ently, the headers
are returned as one long string.

=item List Context

All headers are returned split i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6071	6175	
==>ently, the headers
are returned as one long string.

=item List Context

All headers are returned split i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11402	11497	
==>ll_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TO <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11402	11497	
==>ll_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13614	13710	
==>pec, and the
names are returned in the recommended "Good Practice" order.

In scalar context retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13614	13710	
==>pec, and the
names are returned in the recommended "Good Practice" order.

In scalar context retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1366	1486	
==>m =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33917	34016	
==>elation that has the same heading and
whose body contains all of the tuples that are in the invocant <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38467	38566	
==>elation that has the same heading and
whose body contains all of the tuples that are in the invocant <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8520	8622	
==>index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8508	8610	
==>index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1] <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17373	17466	
==>(Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(ques(Re),F0,F1,B0,B1,E0 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2630	2732	
==>d () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2630	2732	
==>d () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return $.se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14342	14460	
==>GE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    pos = $P0
    lastpos = len <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6440	6545	
==>her letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <Lt> | <Lm> | <Lo> | <Nl>
}
rule UnicodeCom <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13462	13559	
==>t_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13462	13559	
==>t_as_hash() on.

Specifically, export_as_hash() returns a Perl hash ref whose key list
('root_node <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21535	21636	
==>:ISA, __PACKAGE__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1811	1903	
==>. ")$mod)->code;"
    }
))->code;
*regex = Pugs::Compiler::Rule->compile(q(<'regex'> <rule_na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40242	40337	
==>ny versions of Locale::KeyedText that you modify and distribute must carry
prominent notices sta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40242	40337	
==>ny versions of Locale::KeyedText that you modify and distribute must carry
prominent notices sta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11784	11994	
==>ue'
            ),
            sub {
                my $e = shift;
                $e->get('?%params')
                  ->is_nil
                  ->and(block->new($e, sub {
                      my $e = shift <==
2	/Users/nnunley/pugs/misc/S29_round.pl	359	486	
==>etric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1546	1662	
==>les can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1546	1662	
==>les can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23085	23196	
==>(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19506	19617	
==>(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3780	3940	
==>this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3780	3940	
==>this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attribute <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	518	628	
==>";
    $entry = %wiki.keys.sort.join("\n");
}
my $entry_html = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12089	12182	
==>ginal value of the C<PERL5LIB> environment variable.
Necessary on VMS, otherwise a no-op.

=cu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9928	10025	
==>difference, and a few
other operations.

This class also provides methods for iterating through th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9928	10025	
==>difference, and a few
other operations.

This class also provides methods for iterating through th <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4378	4558	
==>o' ) {
            $totals->{todo}++;
            $pass = 1;
            $totals->{bonus}++ if $result{ok}
        }
        elsif( $result{type} eq 'skip' ) {
            $totals-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19667	19760	
==>parentheses weren't being parsed properly.  Fixed.  (Mike
Lambert)

Flags weren't being turned <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15930	16029	
==>ssage that would be shown to a user, is in fact meant
to be interpreted by the machine itself and no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15930	16029	
==>ssage that would be shown to a user, is in fact meant
to be interpreted by the machine itself and no <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4803	4913	
==>$whitespacePosition;
    push @termStack, $operator;
    goto expect_operator;
  }
  else
  {
    goto missing_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11489	11619	
==>push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11489	11619	
==>push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', undef) if $p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1637	1736	
==>debreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1637	1736	
==>debreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7898	8005	
==>d determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7898	8005	
==>d determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduc <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	349	496	
==>,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # proc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	349	496	
==>,
    );

    # wait till we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # proc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17876	18016	
==>de_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node objec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17876	18016	
==>de_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node objec <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	858	955	
==>havior of the strap  UNIMPLEMENTED
  my $verbose_output = $strap->dump_verbose();
  $strap->dump_v <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25678	25772	
==>s were successful, the script dies with one of the
above messages.

=item C<FAILED--Further tes <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	66	198	
==>XPORT $VERSION );

BEGIN {
    $VERSION = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAG <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4909	5023	
==>nPerl5::X1::Api;

sub emit {
    my($pil_tree)=@_;
    return (undef,"emit: pil_tree was undefined") if !defined $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7912	8095	
==>elf}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods or subs
        
        return " " . _mangle_ident( $n->{sub}{barew <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4838	4993	
==>{ $_[0]->{out}= { 
            op1 => { op => $_[1]{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3724	3809	
==>pil_code'} = Perl6::Run::OnPerl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3537	3643	
==>$perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2580	2682	
==>$perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	246	344	
==>S is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>() <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	246	344	
==>S is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	394	504	
==>'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	394	504	
==>'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3493	3605	
==>);
    my $name = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9245	9379	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9438	9572	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34752	34869	
==>ant and whose body contains all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39302	39419	
==>ant and whose body contains all of the tuples that
are in the invocant Relation and that match any tuples of C<$other> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	407	574	
==>ign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 ? -1 : 0 ) )
            : undef ) }

multi s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2096	2208	
==>v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2096	2208	
==>v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2661	2760	
==>ryptions.

If two different data streams are enciphered with the same key, the encryption 
can be re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2661	2760	
==>ryptions.

If two different data streams are enciphered with the same key, the encryption 
can be re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5412	5523	
==>dule
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5412	5523	
==>dule
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8741	8876	
==>( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9576	9711	
==>( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7146	7266	
==>_build;
    $ghc_flags .= " -fno-warn-name-shadowing ";
    $ghc_flags .= " -I../../src -i../../src "
      if $self->is_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2732	2899	
==>@{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2642	2804	
==>@{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $f <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1301	1415	
==>y bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = % <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1301	1415	
==>y bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = % <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4754	4848	
==>er::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4894	4988	
==>er::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementati <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1638	1768	
==>tr $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1638	1768	
==>tr $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11065	11187	
==>. ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) {
        return _emit( $n->{exp1} ) . ' .= ' . _emit( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6719	6824	
==>d should return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6719	6824	
==>d should return the copy once it has been encrypted or 
decrypted.

=item C<_head>

    C<method _head() r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22571	22666	
==>rpolated into the user strings; Locale::KeyedText would also handle
this.

A program generates a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22571	22666	
==>rpolated into the user strings; Locale::KeyedText would also handle
this.

A program generates a <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	666	787	
==>le not found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http:/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	565	672	
==>le not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http:/ <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	66	155	
==>rl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspend handler for "re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6374	6709	
==>, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6838	7173	
==>, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18270	18366	
==>s a repository file
on disk, it is expected that the Engines will employ appropriate measures
suc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18270	18366	
==>s a repository file
on disk, it is expected that the Engines will employ appropriate measures
suc <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10468	10575	
==>$template = HTML::Template->new(filename => catdir $start_dir, 
                     'util','catalog_tmpl',' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50235	50335	
==>e->get('$self:')->set_attr(symbol->new('$:authority'), $e->get('?$authority'));
                  })) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1873	2018	
==>Output(classname => 'Test');

        $DEBUG
    and print $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test(yylex => $le <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	478	576	
==>d1 DESCRIPTION

This object represents a Role.

A Role is a composable unit of behaviour; which inc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14978	15072	
==>des live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a ref <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14978	15072	
==>des live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a ref <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6023	6259	
==>atisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        pu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6487	6723	
==>atisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8717	8862	
==>urn $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8717	8862	
==>urn $match unless $match->{bool};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimen <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8573	8692	
==>e recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8573	8692	
==>e recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2024	2162	
==>||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2024	2162	
==>||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6774	6908	
==>lit('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6774	6908	
==>lit('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2550	2777	
==>:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2797	3024	
==>:\: ] | 
            [ \:\? ]   | 
            [ \:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    pus <==
2	/Users/nnunley/pugs/util/grokprims.pl	1967	2097	
==>ample = "\$$a0$name";
  } elsif (/special/ and $arity == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1581	1668	
==>$self->{env});
    (blessed($return_value) && ($return_value->isa($self->{sig}->returns) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9515	9618	
==>ss('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9573	9676	
==>ss('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4572	4705	
==>me eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4584	4717	
==>me eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, but bug-c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9683	9780	
==>eed to override these
method _head() returns Array { return }
method _tail() returns Array { retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9683	9780	
==>eed to override these
method _head() returns Array { return }
method _tail() returns Array { retur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23245	23361	
==>malParameterList>? <')'> <'{'> <FunctionBody> <'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Ident <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11370	11463	
==>ex) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $fun <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11370	11463	
==>ex) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $fun <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	915	1031	
==>%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12906	13004	
==>eadline to $obj.shift(), ="some_file" worked, so I
# added the .shift() declaration here.  --iblech <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1198	1300	
==>n alternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we end u <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1198	1300	
==>n alternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we end u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6226	6337	
==>rn unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3052	3213	
==>n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3269	3430	
==>n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FI <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1436	1549	
==>$!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1436	1549	
==>$!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8613	8731	
==>ct>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8613	8731	
==>ct>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9196	9311	
==>ems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9196	9311	
==>ems to work...
    %users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1154	1252	
==>aram->is_optional(1)
		unless $param->{required};
	    $invocant = $db_param;
	}
	elsif ($param->{n <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1089	1203	
==>'Disabled' if not $Config{"exclude"} or not @{$Config{"exclude"}};
if(!@ARGV) {
    @ARGV = sort map glob, "t/*/*.t <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	767	919	
==>bs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	767	919	
==>bs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2417	2526	
==>_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2417	2526	
==>_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11121	11230	
==>n a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11121	11230	
==>n a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments for m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	315	442	
==>GE__;

sub new {
    my (undef, $value) = @_;
    (defined $value            && 
     looks_like_number($value) && 
     ($value <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2571	2695	
==>(
				%$node,
				orig => Blondie::Val->new($node->orig),
			),
		),
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=po <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	71	188	
==>LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	71	188	
==>LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10396	10492	
==>force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force int <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10454	10550	
==>force_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force int <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4367	4485	
==>oved_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4367	4485	
==>oved_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!childre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	207	302	
==>es scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	207	302	
==>es scan
    date expires if_modified_since if_unmodified_since last_modified
    content_type co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2557	2672	
==>ace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2741	2856	
==>ace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22746	22898	
==>wn => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23248	23400	
==>wn => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28805	28900	
==>n attribute names, or duplicate any other value set members.  This
method supports having the ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33357	33452	
==>n attribute names, or duplicate any other value set members.  This
method supports having the ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8915	9036	
==>ng
    # because we need the bareword semantics, where 'require'
    # will munge the package name into file system paths. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8915	9036	
==>ng
    # because we need the bareword semantics, where 'require'
    # will munge the package name into file system paths. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26387	26474	
==>i::Low;
    @Language::Prolog::Yaswi::Low::args = ($Language::Prolog::Yaswi::Low::args[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1160	1271	
==>$self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delet <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	263	373	
==>$self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delet <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22745	22841	
==>operators are somewhat of
a superset of the Set operators.

Like the Set data type, the Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6251	6348	
==>o a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Altho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6251	6348	
==>o a constructor, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Altho <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4204	4328	
==>aim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4262	4386	
==>aim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	205	312	
==>2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 emb <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	205	312	
==>2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 emb <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4023	4123	
==>rs { grep { $_ !~ /^_/ } __PACKAGE__->ls_all_accessors }


1;

# Local variables:
# c-indentation-sty <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	443	543	
==>a consistent interface
sub to_str { shift }

# conversion to other native types
sub to_bit { (shift)- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3553	3664	
==>Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compiler



Let's say you <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3426	3532	
==>Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compiler

Let's say you <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12587	12701	
==>st = shift;

    Compiler->new->compile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = sh <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1896	2010	
==>file = join('/', 'lib', split(/-/, $name)) . '.pm';
        $file =~ s{.*/}{} unless -e $file;
        die "all_fro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22277	22370	
==>>, which doesn't warrant the warning.

Added "Unrecognized escape" warnings to I<all> escape s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10300	10464	
==>c  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10300	10464	
==>c  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8682	8790	
==>et.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8682	8790	
==>et.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6238	6343	
==>::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6238	6343	
==>::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10897	10999	
==>s Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10955	11057	
==>s Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `isnt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14259	14505	
==>p->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14259	14505	
==>p->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4646	4745	
==>=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4646	4745	
==>=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Confi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2514	2666	
==>apture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2419	2563	
==>apture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4280	4535	
==>$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4280	4535	
==>$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22763	22861	
==>te names that
define the heading of this Relation.  Each attribute name is a character
string.

=it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27315	27413	
==>te names that
define the heading of this Relation.  Each attribute name is a character
string.

=it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7649	7753	
==>nsure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_strin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7649	7753	
==>nsure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.as_strin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19828	19934	
==>her!) returns Relation::Example {
    # This form takes the form of an ordinary natural join,
    # where s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4555	4659	
==>sh keys to code refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4555	4659	
==>sh keys to code refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1760	1850	
==><-[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:<+[", "term:", "nows <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	760	855	
==>horization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Loca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	760	855	
==>horization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges Age ETag Loca <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1974	2099	
==>= {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    t <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1974	2099	
==>= {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9672	9781	
==>sg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9672	9781	
==>sg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13921	14048	
==>@{ $tree->[-1]->{data} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->object(exact => $d, $v);
      $q->{flag <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	146	240	
==>plemented in p6 (S29 already defines some p6 implementations).
# To contribute, just scroll dow <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10031	10148	
==>( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10031	10148	
==>( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13897	13997	
==>kip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13955	14055	
==>kip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1436	1562	
==>ectory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1436	1562	
==>ectory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1576	1679	
==>tch('abc') for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2->match('abc') for 1..20},
    fast_x10     => <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	34	134	
==>m src/Pugs/Context.hs (~ line 89)

use v6;

class Perl::TypeTree-0.0.1;

use Tree;

has Tree $:type_t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	672	765	
==>t provide, including stuff for what cannot have a reference
implementation but is builtin anyw <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	941	1088	
==>= $0;
    if ( $year.defined and $year.chars == 2 ) {
        $year = 2000 + $year;  # XXX - fixme ;)
    }

    if ( $3 ) {
        # day of year . <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	974	1082	
==>nals::eval_parrot (Str $code) is builtin is primitive {
    my $sub = substr($code, 0, 1) eq "."
        ?? P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1012	1156	
==>t( $ast, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7224	7332	
==>sult[-1] !! undef;
    @result;
}


 multi Array::unshift (@array is rw ; *@values --> Int ) {
   Array::spli <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7087	7205	
==>undary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7087	7205	
==>undary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::H <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1383	1510	
==>os = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1383	1510	
==>os = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11370	11466	
==>em ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11370	11466	
==>em ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

C <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	442	581	
==>e - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	442	581	
==>e - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5303	5389	
==>def_rule('expr',mk_operator_precedence_parser($ws,$ops,$tok));
sub def_operator {
  my( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4141	4224	
==>:Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4141	4224	
==>:Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosett <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7371	7472	
==>', any(qw/type::variable::free type::operator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1221	1337	
==>t($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    de <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1221	1337	
==>t($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	607	735	
==>304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	607	735	
==>304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9283	9545	
==>irst 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9283	9545	
==>irst 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1969	2099	
==>= {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1969	2099	
==>= {};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7397	7508	
==>ER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! " <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7455	7566	
==>ER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! " <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5386	5523	
==>e checker to have to deal with
            # uninitialized vars.
            foreach my $piece (qw(name type reason)) {
                $d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	855	970	
==>arity => 3,
			name => '&printf',
			body => 'prel_printf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			ari <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15190	15286	
==>is always returned.
If the given header did not exist then C<undef> is returned.

Methods that de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15190	15286	
==>is always returned.
If the given header did not exist then C<undef> is returned.

Methods that de <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	812	942	
==>) {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	812	942	
==>) {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1737	1846	
==>" . $<rule_name> . " = Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36675	36779	
==>nding to the Message could be
found using the Translator object's Set and Member properties; if none
coul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36675	36779	
==>nding to the Message could be
found using the Translator object's Set and Member properties; if none
coul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19704	19798	
==>ad-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19704	19798	
==>ad-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the comp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6961	7067	
==>to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6961	7067	
==>to the return value of the first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7319	7410	
==>"--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7319	7410	
==>"--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	616	721	
==>shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	616	721	
==>shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dum <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14285	14401	
==>duce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1765	1881	
==>duce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2845	2968	
==>the right x for p');
is($p->get_y, 6, '... got the right y for p');

my $p1 = new Point(15, 16);
is($p1->class, \&Point, '.. <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3257	3378	
==>tree[0] eq '"PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret = emit_Variable( $tree[1][0] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1341	1438	
==>RIVMSG>s. Each time people say something (in public), the current
time and the text they said is s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1341	1438	
==>RIVMSG>s. Each time people say something (in public), the current
time and the text they said is s <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2246	2495	
==>> [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3834	4083	
==>> [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8438	8543	
==>nable warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8438	8543	
==>nable warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # ba <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	11	115	
==>:Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

sub <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	11	115	
==>:Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7175	7287	
==>y => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } );
=cut

__END__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7175	7287	
==>y => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } );
=cut

__END__ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3551	3819	
==>);
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3551	3819	
==>);
                }
                when 'item' {
                    $fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5553	5658	
==>'Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Rat';
    return get_meta('Complex')->new('$.real' <==
2	/Users/nnunley/pugs/util/testgraph.pl	590	676	
==>with_struct(delete $data->{meat});
my $v = Test::TAP::HTMLMatrix->new($tap, Dump($data) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1729	1847	
==>y $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1729	1847	
==>y $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::stat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	555	666	
==>[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	555	666	
==>[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explic <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	182	293	
==>nd docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this v <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	182	293	
==>nd docs

    * document differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this v <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	487	585	
==>rs;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	487	585	
==>rs;

method members() returns List {
    $!members.values;
}

method insert($self: *@items) returns <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9306	9402	
==>turns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9306	9402	
==>turns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11484	11590	
==>ommand($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connecti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11484	11590	
==>ommand($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connecti <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	11	105	
==>:Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	11	105	
==>:Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	637	790	
==>> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	637	790	
==>> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2818	2984	
==>r              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3002	3168	
==>r              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside closure
                    -- $/ d <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12368	12478	
==>grep { $_->is_arrow }
					values %$env
	);
}

# entering a function creates a new env (the parameter is associ <==
2	/Users/nnunley/pugs/util/package-osx.pl	2912	3041	
==>pge/run_pge.pir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/loc <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1924	2029	
==>me})\s*=\s*\\(${re_varname})/$1 = $2/g;
}

conv_self {
    my $sub_context;
    # Check if it's now in 'su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12987	13104	
==>r{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12987	13104	
==>r{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2658	2758	
==>hildren returns Array of Tree { @!children }

## ---------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2658	2758	
==>hildren returns Array of Tree { @!children }

## ---------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43657	43838	
==>(':canonical')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method labe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1027	1130	
==>om, $position)
}

#Tell a Match object to continue the previous match from where it left off.
sub next { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1771	1910	
==>> $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $. <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1771	1910	
==>> $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

method prepare {
    $*IN  := $.remote;
    $*OUT := $. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	630	727	
==>IS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little sl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	630	727	
==>IS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little sl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7233	7359	
==>cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7233	7359	
==>cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` clauses here :-)
    method set_cookie ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8632	8736	
==>est::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8690	8794	
==>est::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13443	13567	
==>CDPATH IFS ENV BASH_ENV);
	local @ENV{@keys} = ();
	# Untaint, plus take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	loc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5733	5867	
==>>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5551	5681	
==>>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my $n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1893	1986	
==>$right->to_num->to_native()));
}

sub increment { num->new((shift)->to_native + 1) }
sub decre <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9205	9296	
==>!_union( $other );
}

multi method union (Relation::Example *@others) returns Relation::Exam <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4106	4230	
==>/TestBuilder/Output.pm";
require "lib/TestBuilder/Test.pm";

1;

__END__

=pod

=head1 NAME

Test::Builder - Backend for buil <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	265	384	
==>ext     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	265	384	
==>ext     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2836	2938	
==>subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2733	2831	
==>subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3116	3217	
==>lass 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH(':: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	759	917	
==>:Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	759	917	
==>:Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      us <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	13	157	
==>c::DOM::Node is Tree;

has $.source;
has $.sourcefile;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	13	157	
==>c::DOM::Node is Tree;

has $.source;
has $.sourcefile;
has $.sourceline;

# fixme - this is an abstract class, but I'm not sure how to
# specify/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1237	1346	
==>dule is simply a hash from strings

(symbol names) to objects (containers)



the Code part consists of a Pad, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1182	1288	
==>dule is simply a hash from strings
(symbol names) to objects (containers)

the Code part consists of a Pad, <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2200	2301	
==>f sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
you should see the <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2200	2301	
==>f sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
you should see the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3028	3160	
==>self->meta;

    ### if we didn't get a meta object, we'll fetch it from the .jib
    unless( $meta ) {
        
        ### installe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14598	14711	
==>Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl had probl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19462	19557	
==>ernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the curre <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19462	19557	
==>ernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<gt>()>

Returns the curre <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6360	6468	
==>ional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6360	6468	
==>ional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10685	10816	
==>[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10679	10810	
==>[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	911	1056	
==>@pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	911	1056	
==>@pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18882	18980	
==>el::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to dem <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18882	18980	
==>el::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to dem <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2714	2819	
==>ault
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the repres <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2714	2819	
==>ault
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the repres <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13307	13447	
==>rom_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13307	13447	
==>rom_nick => $from_nick,
        rest      => strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$comm <==
2	/Users/nnunley/pugs/util/testgraph.pl	1294	1406	
==>n-smome.pl     - automate the smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TA <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17269	17429	
==>2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17269	17429	
==>2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2247	2416	
==>ule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2494	2663	
==>ule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { captu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1244	1363	
==>is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1302	1421	
==>is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.perl;
    my $test := ($g <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9091	9241	
==>ired";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify pro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10568	10718	
==>ired";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	209	321	
==>LD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	415	527	
==>LD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TO <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	228	334	
==>chive';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled from the archive n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4394	4492	
==>ed, then the Seq will finish, the Thunk will
finish, the stacks will be popped once more, and the w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16562	16672	
==>(1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16562	16672	
==>(1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entri <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5520	5724	
==>"</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $lin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5520	5724	
==>"</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $lin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11310	11443	
==>$.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11310	11443	
==>$.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1201	1304	
==>\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	586	682	
==>\\\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1220	1364	
==>end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1220	1364	
==>end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2302	2419	
==>n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2302	2419	
==>n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3513	3623	
==>d_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = calle <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3571	3681	
==>d_type, $depends);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = calle <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1303	1639	
==>,
                Val(
                    Thunk(
                        App(
                            Sym('&infix:<+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix:<->'), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11540	11686	
==>ail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds an 'before' or 'after' sub call, which may print a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	33	138	
==>:Reducer;

use strict;
use warnings;

use UNIVERSAL::moniker;
use Scalar::Util ();

sub reduce {
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14961	15056	
==>st::More function is_deeply.
The plan currently is to implement this as a mutually recursive mul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15019	15114	
==>st::More function is_deeply.
The plan currently is to implement this as a mutually recursive mul <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1514	1658	
==>al($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2158	2243	
==>Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2158	2243	
==>Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9541	9725	
==>= { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - optimization - pass <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4008	4108	
==>Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4008	4108	
==>Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8266	8376	
==>ts_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8324	8434	
==>ts_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1115	1230	
==>ire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1082	1197	
==>ire Net::FTP; 1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1198	1302	
==>\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1198	1302	
==>\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1734	1854	
==>s?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_univ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1734	1854	
==>s?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_univ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23622	23716	
==>em to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, whic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23622	23716	
==>em to be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, whic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17002	17146	
==>{&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13423	13567	
==>{&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\^?) (.*?) \1 \] } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12041	12191	
==>ake "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12041	12191	
==>ake "Set-Cookie3: " ~ join_header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these ma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2270	2371	
==>lf->version || $self->determine_VERSION($args);
    $args->{NAME}     =~ s/-/::/g;
    if ( $self->tes <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3733	3841	
==>Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyrigh <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3733	3841	
==>Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyrigh <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7357	7453	
==>reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which is p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7357	7453	
==>reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which is p <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	624	811	
==>) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:pe <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	624	811	
==>) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when rx:pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20193	20308	
==>OS X
program is as simple as adding a language file to the program package.  No
recompilation necessary.  This is so <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20193	20308	
==>OS X
program is as simple as adding a language file to the program package.  No
recompilation necessary.  This is so <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9666	9772	
==>{
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9666	9772	
==>{
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2582	2676	
==>{ return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_close <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2582	2676	
==>{ return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is_close <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18026	18124	
==>ment it; that is, multiple DBMS objects will not
have references to each other at a level visible i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18026	18124	
==>ment it; that is, multiple DBMS objects will not
have references to each other at a level visible i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26487	26582	
==>ay of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet.

=cut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26487	26582	
==>ay of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

None yet.

=cut <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3502	3639	
==>e_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = sh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3966	4103	
==>e_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depends {
        my $deps    = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	235	348	
==>sub match_scalar { }


sub match_array { }


sub match_hash { }


sub init {
  my ($self) = @_;

  $self->add_hand <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5482	5653	
==>&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5482	5653	
==>&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6755	6856	
==>ods0;
    my $p5 = %mods{"perl5"} || %mods{"Perl5"} || %mods{"P5"};
    #my sub warning($e){warn(Carp: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3141	3236	
==>(Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3141	3236	
==>(Str $path, Bool ?$nofile) returns Array`

- `catdir (*@path) returns Str`

- `catfile (*@_path) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	498	608	
==>s are the 
    # expected types of those objects (or possibly
    # the default values too)
    (blessed($signa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	565	707	
==>ms
        opaque method attribute C3
        /;
    
    sub new { bless \(my $var) => shift }
    
    sub parse {
        my ($self, $source <==
2	/Users/nnunley/pugs/util/combine_tests.pl	99	204	
==>/ ];
#my @data = map { YAML::LoadFile($_) } @ARGV;
#
#my $combined = combine_tests(@data);
#
#print YAML:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1178	1282	
==>$directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unles <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1178	1282	
==>$directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unles <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25947	26088	
==>classes'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14325	14460	
==>_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14319	14454	
==>_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5712	5823	
==>{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5712	5823	
==>{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable f <==
2	/Users/nnunley/pugs/util/package-osx.pl	8813	8932	
==>rs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "Copied $o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15742	15838	
==>rted to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15742	15838	
==>rted to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	623	719	
==>rl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.na <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	623	719	
==>rl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.na <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3361	3470	
==>qual_to {
    my ($left, $right) = @_;
    ($left->params->equal_to($right->params) == bit->new(1) && 
     $l <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2717	2875	
==>atedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25931	26042	
==>string_to_list(X,L), !.
listify(L,L).
listify_lists([X|Xs],[L|Ls]) :- listify(X,L), listify_lists(Xs,Ls).
listif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16425	16517	
==>h is computationally complete
(and industrial strength) and has fully integrated database fun <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16425	16517	
==>h is computationally complete
(and industrial strength) and has fully integrated database fun <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2487	2595	
==>develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2487	2595	
==>develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this module is more like th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11294	11489	
==>st) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11294	11489	
==>st) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	30	124	
==>umfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Oper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	34	128	
==>umfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Oper <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10779	10940	
==>pec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10779	10940	
==>pec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16406	16508	
==>ion $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19883	19985	
==>ion $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3183	3341	
==>ate;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # appa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3183	3341	
==>ate;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # appa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4229	4348	
==>n "call: ",Dumper $n;

        if ( $n->{sub}{bareword} eq 'class'  ||
             $n->{sub}{bareword} eq 'module' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2023	2141	
==>\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2023	2141	
==>\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] e <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19451	19537	
==>ures(Ex,C1,E1).
rm(matchref(I),F0,F1,B0,B1,E0,E1) :-
  match_captures_get(I,E0,M), nonv <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7014	7099	
==>etachar("(").
p5_metachar(")").
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14215	14318	
==>IX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8419	8522	
==>IX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10762	10978	
==>};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10762	10978	
==>};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	988	1154	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$si <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	988	1154	
==>vent_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$si <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1098	1225	
==>:Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1098	1225	
==>:Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            } <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3655	3748	
==>ext =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3655	3748	
==>ext =>        $self._get_intersection( $self.closure_next, $self.closure_previous, $set.closur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8542	8722	
==>eturn { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8542	8722	
==>eturn { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6148	6281	
==>.
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6148	6281	
==>.
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32776	32869	
==>ing
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37326	37419	
==>ing
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/util/package-osx.pl	10270	10406	
==>t, @files) = @_;
    my $dirs = $files[-1];
    $dirs =~ s#/[^/]+$##;
    make_dir($dirs) unless (-d $dirs);
    
    open  REMOVER, '>', <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	831	928	
==>set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	842	939	
==>set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>( <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	363	499	
==>$first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	363	499	
==>$first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	694	821	
==>ch_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have b <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	694	821	
==>ch_path;    

    # get our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have b <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1305	1467	
==>o';                          # Extension for meta files
$Metafile       = 'META' . $Metaext;                # file with MD in it
$Site           = $Root . $Config{ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9249	9385	
==>.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9249	9385	
==>.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deci <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10320	10435	
==>of the correct
container type (eg, hash vs array).  The deferred validations are performed
on demand at some time af <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10320	10435	
==>of the correct
container type (eg, hash vs array).  The deferred validations are performed
on demand at some time af <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24994	25124	
==>a simple container which stores data to be used or
displayed by your program.  The Message class is pure and deterministic,
such th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24994	25124	
==>a simple container which stores data to be used or
displayed by your program.  The Message class is pure and deterministic,
such th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5470	5580	
==>ient_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5470	5580	
==>ient_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1447	1554	
==>ases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1447	1554	
==>ases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30495	30588	
==>turns Relation::Example>

This method is the same as C<project> but that the returned Relation <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19774	19872	
==>ver) {
    die "Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL2JS::Internals:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10562	10665	
==>IPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10562	10665	
==>IPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2320	2475	
==>on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2320	2475	
==>on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6686	6805	
==>($flip, $got, $expected, $name, @mess) = @_;
    my $pass;
    $pass = $got =~ /$expected/ if !$flip;
    $pass = $got ! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35962	36056	
==>rray ref having all combinations of this object's
Set Names and Member Names elements, concaten <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35962	36056	
==>rray ref having all combinations of this object's
Set Names and Member Names elements, concaten <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2112	2257	
==>/#/ ) {
	    # special comment? (embedded latex)
	    if ($file[0] eq '!') {
		shift @file;
	        while (scalar @file) {
		    $chr = shift @fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3993	4117	
==>flags => $rx->{flags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data => \@data,
      dow <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2859	2966	
==>};
}

sub declare {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->orig} ||= do {
		my $struc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13764	13870	
==>o use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13822	13928	
==>o use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3229	3352	
==>match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 U <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3413	3536	
==>match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 U <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6120	6261	
==>y ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7118	7259	
==>y ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9008	9152	
==>q '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is han <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9008	9152	
==>q '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is han <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	45	150	
==>use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	43	148	
==>use warnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	755	929	
==>hift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @ski <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	755	929	
==>hift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @ski <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13702	13801	
==>raffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13702	13801	
==>raffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	156	275	
==>=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	156	275	
==>=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24246	24418	
==>grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24525	24697	
==>grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       , <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	404	520	
==>{ $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	404	520	
==>{ $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8832	8963	
==>m;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8828	8959	
==>m;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24750	24847	
==>permit very fast decisions on suitable starting points
 * for a match, cutting down the work a lot <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	769	863	
==>openNewWindows(); return false;">open each link in a
new window</a>.  (Useful with Firefox 1.5' <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	559	692	
==>sh) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? in <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	559	692	
==>sh) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? in <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11260	11405	
==>t( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11260	11405	
==>t( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $. <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16535	16663	
==>os,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #E <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15589	15709	
==>os,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #E <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4538	4642	
==>which failed along with a summary report and
a how long it all took.

It returns true if everything was o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2466	2554	
==>->addToken("infix:|", "<infix:&", "left,nows", "PGE::Exp::Alt");
    $optable->addToken(" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6871	6984	
==>die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6883	6996	
==>die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4773	4883	
==>ers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4773	4883	
==>ers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
} <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	539	667	
==>methese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$na <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	539	667	
==>methese ($count, %hash) is export {
    for %hash.kv -> $name, $code {
        my @time = timeit($count, $code);
        say "$na <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17846	17959	
==>d to $pair (int x str) this should e str
my $snd = comb(
	fun => ide("snd"),
	param => $pair,
);

# the polymorphi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3214	3321	
==>e($line, \%totals);
        last if $self->{saw_bailout};
    }

    $totals{skip_all} = $self->{skip_all} i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10490	10588	
==>r be performed at all.  They validate everything except
well-formedness, such as that Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10490	10588	
==>r be performed at all.  They validate everything except
well-formedness, such as that Rosetta::Mode <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	758	896	
==>od} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self = shift;
		my $key = shift;

		exists $sel <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29298	29415	
==>define FBMcf_TAIL_DOLLAR       1
 #define FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define FBMcf_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	187	295	
==>.20';

use Test::Harness::Assert;
use Test::Harness::Iterator;

# Flags used as return values from our method <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3094	3183	
==>:Internals::arc_units(Pugs::Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20058	20303	
==>get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40518	40763	
==>get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil::NIL;               
            }
        )
    )
) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7123	7233	
==>treturn $main;\n}";
	push @{ $self->{defs} }, "int main () { b_main(); return 0; }";

	join("\n\n", Blondie::Ba <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2436	2517	
==>{ $class->build_indirect_typed_value($_->type, Blondie::TypeSafe::Type::Std->new(" <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3360	3467	
==>e/.

Because it is just a date, it does not handle time zones or leap
seconds.

All methods take named param <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3360	3467	
==>e/.

Because it is just a date, it does not handle time zones or leap
seconds.

All methods take named param <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11419	11523	
==>ns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11419	11523	
==>ns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=head1 TODO

=over 4

=item Write m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14183	14309	
==>push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14462	14588	
==>push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alter <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1088	1185	
==>(also, the latter form is slightly more efficient, though this is
marginal in string COW environme <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1088	1185	
==>(also, the latter form is slightly more efficient, though this is
marginal in string COW environme <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14685	14828	
==>RPe_NULNUL, $tree->[-1]->visual . $self->raw);
      }

      $self->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10699	10881	
==>.add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10699	10881	
==>.add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3037	3142	
==>to the other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is sus <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3037	3142	
==>to the other end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is sus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18027	18139	
==>e human
user who controls the requesting user agent.  The address should be
machine-usable, as defined by RFC822. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18027	18139	
==>e human
user who controls the requesting user agent.  The address should be
machine-usable, as defined by RFC822. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4824	4929	
==>6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5074	5179	
==>6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	864	976	
==>uring_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	875	987	
==>uring_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9913	10078	
==>{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10192	10357	
==>{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3505	3640	
==>($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        eval { require $file; 1 } or (warn($@), next);
        $self- <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	222	315	
==>anguage/20985
  docs/quickref/rules
  http://search.cpan.org/dist/Perl6-Bible/lib/Perl6/Bible/ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8980	9092	
==>if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12457	12569	
==>if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!bod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12243	12339	
==>ted, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12301	12397	
==>ted, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3362	3479	
==>"thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3362	3479	
==>"thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û', <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6013	6135	
==>um/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6013	6135	
==>um/64)%64)~$dec2hex(128+$num%64); }
    };
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6564	6658	
==>'... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method baz') <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11622	11716	
==>'... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '... $iBar calls new method baz') <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20570	20679	
==>== 0 goto unscoped

  capture:
    $I0 = exists self["cname"]
    if $I0 goto setsubpats
    $I0 = pad["subpat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2898	2987	
==>azily evaluated Perl list
=cut

sub p6_is_object {!p6_is_native(@_)}
sub p6_is_perl6_objec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6600	6698	
==>RR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document iden <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6600	6698	
==>RR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document iden <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4823	4964	
==>];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4823	4964	
==>];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matches[0]{state}, 0 ] if defined $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2219	2321	
==>ot $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2219	2321	
==>ot $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7072	7174	
==>tus
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7072	7174	
==>tus
codes.

=item (TODO) This module only supports HTTP as the protocol.

=item (TODO) This module does <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	256	356	
==>r_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	256	356	
==>r_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg)::updir();
}

sub r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14763	14861	
==>ce to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substitut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14763	14861	
==>ce to
use.  The default is "\n".  Embedded "\n" characters in header field
values will be substitut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3043	3190	
==>ee ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3043	3190	
==>ee ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( k <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6721	6825	
==>ssed($y)) {
			die "baaah! expected type cannot be placeholder" if $y->isa("Blondie::TypeSafe::Type::Plac <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	994	1119	
==>core {
   my $script = shift;
   open(FF, $script) or die "error: open '$script'";
   my $golf = 0;
   while (<FF>) {
      $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40696	40791	
==>is used to fill in
the format string for sprintf().

=over 4

=item $parser->warn(RPe_ERRMSG, AR <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23618	23721	
==>Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23618	23721	
==>Validator> is bundled with Rosetta and can be
used to test Rosetta Engine classes.

The Perl 6 package L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2665	2791	
==>$.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2665	2791	
==>$.end <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13704	13833	
==>e sorted out before you can continue.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13762	13891	
==>e sorted out before you can continue.

It is also possible to use the `force_todo()` function to do large scale
TODO-ing of tests. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3704	3804	
==>her.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3704	3804	
==>her.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1590	1747	
==>= 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1590	1747	
==>= 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./ <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	1030	1144	
==>*(.*)$/) {
			@config.push({Name => ''}) unless +@config;
			@config[-1]{"Features"}{$0} = $1;
		} else {
			die "I <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7949	8057	
==>self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7949	8057	
==>self: ) { 
    return $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21418	21519	
==>is that, for example, your package could come with a set of user
messages, but another package or prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21418	21519	
==>is that, for example, your package could come with a set of user
messages, but another package or prog <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14128	14225	
==>alternatives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $in <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1786	1882	
==>cal $Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	64	181	
==>0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	64	181	
==>0;
our $print_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5731	5831	
==>vent<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Updat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5731	5831	
==>vent<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Updat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16893	16990	
==>king, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16893	16990	
==>king, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1339	1448	
==>ish

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1339	1448	
==>ish

=head1 VERSION

This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This doc <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1257	1374	
==>l.

Log::Selective exports a single function, C<note>, which is called with zero or 
more strings, followed by zero or <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1257	1374	
==>l.

Log::Selective exports a single function, C<note>, which is called with zero or 
more strings, followed by zero or <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1569	1688	
==>}'] );
        return;
    }

    return $cwd;
}

=pod

=head2 JIB::Utils->_rmdir( dir => '/some/dir' );

Removes a dire <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21849	22142	
==>lock->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                                                 
            }
        )
    )
);

=pod

me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2297	2439	
==>_method($label, %opts)
            if $current.has_method($label, %opts);
    }
}

# alternate p6 version
sub *WALKMETH (block &dispatcher, sym <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2792	2905	
==>unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only ad <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	727	825	
==>ed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	727	825	
==>ed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1061	1164	
==>n> | <non_conjunction> }

rule conjunction     { <non_conjunction> \& <non_alternation>+? }
rule non_con <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1471	1590	
==>esenting a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CON <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1471	1590	
==>esenting a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRIPTION

This class represents a single span.

= CON <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24332	24432	
==>s those of
all the other tuples.

For purposes of the Relation::Example class' API, a tuple is repres <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	433	547	
==>INV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1961	2075	
==>INV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero] <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1781	1921	
==>d;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for '$labe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1081	1199	
==>that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1081	1199	
==>that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for mess <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	832	959	
==>rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	832	959	
==>rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15507	15636	
==>ue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15507	15636	
==>ue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str $ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13109	13214	
==>PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13109	13214	
==>PONG, so everything's fine. But if the connection is
    # somehow b0rked, we won't get a reply.
    if($. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1310	1429	
==>ts bare types (no foralll)
my $pretty = Language::AttributeGrammar->new(<<'#\'EOG');
#\
type::variable::instantiated: la <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	706	812	
==>ule::Install loads
# }

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Ins <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1238	1376	
==>ub digest {
        my $self = shift;
        Digest->compute($self);
    }

    package Env;
    use base 'Map';

    package MEnv;
    us <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2049	2154	
==>v->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and al <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2049	2154	
==>v->{sig}->bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and al <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14399	14510	
==>enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14399	14510	
==>enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17946	18044	
==>, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17946	18044	
==>, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8403	8514	
==>dds a new operator to the category.

options:

=item * name => $operator_name - the name of this operator, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5943	6050	
==>dds a new operator to the category.

options:

=item * name => $operator_name - the name of this operator, s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13374	13474	
==>ng")` parameter to most of the functions is a way
to provide a comment that refers to another file or <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13432	13532	
==>ng")` parameter to most of the functions is a way
to provide a comment that refers to another file or <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2131	2270	
==>am<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2131	2270	
==>am<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> )  { $start = %param<start> };
        if defi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28796	28909	
==>have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOOD <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28796	28909	
==>have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_GOOD <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1977	2084	
==>ut($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningfu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1977	2084	
==>ut($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningfu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11376	11477	
==>turns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Voi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11376	11477	
==>turns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Voi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3168	3270	
==>tor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3168	3270	
==>tor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	579	683	
==>RC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	579	683	
==>RC::JoinOnInvite> is a role which installs a event handler listening
for C<INVITE>. When it is triggered, <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	30	129	
==>omposition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	30	129	
==>omposition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17290	17391	
==>RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17290	17391	
==>RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is written in the US <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3064	3173	
==>ethod complement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3064	3173	
==>ethod complement ($self: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5538	5630	
==>method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return valu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9136	9228	
==>method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return valu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5577	5678	
==>implement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5577	5678	
==>implement database access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21496	21592	
==>t Net. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21496	21592	
==>t Net. All rights reserved.

This program is free software; you can redistribute it and/or modify <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2462	2567	
==>}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it should return a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2462	2567	
==>}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it should return a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6076	6337	
==>q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Ter <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1995	2090	
==>PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1995	2090	
==>PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2668	2808	
==>nd <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2668	2808	
==>nd <=> $span.start;
    if ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6082	6203	
==>e_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5889	6004	
==>e_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	94	195	
==>de intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicod <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	94	195	
==>de intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34278	34379	
==>t('$self:')->send('dispatcher', symbol->new(':canonical')));
                $e->create('$next' => $e- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1154	1263	
==>}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1142	1251	
==>}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_ <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	18	132	
==>ile::Path;
use File::Copy;
use Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($test <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1339	1451	
==>>{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1339	1451	
==>>{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJECT, ">$obj") or die "Unable <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5572	5705	
==>ody, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5572	5705	
==>ody, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	311	418	
==>ents the 
node type, which are checked against each other for agreement at BUILD time
for the below classes. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	311	418	
==>ents the 
node type, which are checked against each other for agreement at BUILD time
for the below classes. <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	730	848	
==>b is_admin {
    my $self = shift;
    $self->admin->VERSION;
}

sub DESTROY {}

package Module::Install::Base::FakeAdm <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8880	8991	
==>rrot_path/parrot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the li <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	731	873	
==>e-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our cl <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	731	873	
==>e-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our cl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4226	4324	
==>ethods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4226	4324	
==>ethods may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17317	17418	
==>e kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The titl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17317	17418	
==>e kind of Norwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The titl <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1195	1300	
==>em again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

sub autoload {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	793	918	
==>rver::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	793	918	
==>rver::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::S <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	35	147	
==>:Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration co <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	35	147	
==>:Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19835	19935	
==>REAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19835	19935	
==>REAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10320	10433	
==>ter for next match (end+1)
    match - positional submatches
    named - named submatches
    capture - return' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5019	5116	
==>tement  { def_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r = compil <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17812	17898	
==>calANDExpression> <'&&'> <BitwiseORExpression>
}
rule LogicalANDExpressionNoIn :words { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	965	1072	
==>rt {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	965	1072	
==>rt {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1470	1571	
==>lude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cache <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1677	1778	
==>lude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cache <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	855	947	
==>ilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	855	947	
==>ilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expecte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1488	1605	
==>y Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1488	1605	
==>y Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4318	4413	
==>ad1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 VERSI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4318	4413	
==>ad1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=head1 VERSI <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43601	43706	
==>->get('$self:')->class->send('dispatcher' => symbol->new(':canonical')), 
                      $e->get('$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29620	29718	
==>e tree.  Certain objects
do not need to appear in the tree, but are needed when inspecting
the pars <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13227	13322	
==>us not very portable to broken (no compiler) microsoft systems.

  The implementation reaches in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	11	97	
==>mmar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	142	228	
==>mmar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14480	14616	
==>r_files = _globdir $Files_In_Dir;
            if (@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_file <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15715	15816	
==>abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15715	15816	
==>abstract blueprint for the design of a DBMS and the language interface to
such a DBMS.  The main web s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3602	3752	
==>->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = @_;
            (blessed <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15822	15944	
==>{line};
        }

        return $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bail_out = $strap->_is_bail_out($line, \$r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15915	16049	
==>_ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or die "Cannot close $tmpfile <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2908	3024	
==>her) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2908	3024	
==>her) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24003	24106	
==>hat they
use a compile-time macro-based approach to substitute the user's preferred
language into the pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24003	24106	
==>hat they
use a compile-time macro-based approach to substitute the user's preferred
language into the pr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18996	19127	
==>2 The regular expression:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19836	19935	
==>ication Scheme".  In array context it will return two
values; the user name and the password.  In sc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19836	19935	
==>ication Scheme".  In array context it will return two
values; the user name and the password.  In sc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8681	8850	
==>yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8681	8850	
==>yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21593	21688	
==>l Relation
attributes may be individually addressed only by their names, and all
Relation tuples <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26145	26240	
==>l Relation
attributes may be individually addressed only by their names, and all
Relation tuples <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	144	280	
==>2X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (Str $string is copy <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	144	280	
==>2X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub uri_escape (Str $string is copy <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	558	654	
==>ase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	558	654	
==>ase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1910	2010	
==>wo) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1910	2010	
==>wo) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_sub <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9904	10003	
==>entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9904	10003	
==>entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	401	508	
==>tract the useful similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
cla <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	401	508	
==>tract the useful similarities into a role
# cannot inherit from TestPlan because of the lack of $!expect
cla <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	654	753	
==>s pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.to <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	654	753	
==>s pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date.to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3882	3986	
==>S

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3882	3986	
==>S

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1478	1599	
==>sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name {
        return $2 if shift->packa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2046	2149	
==>gs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2046	2149	
==>gs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4770	4905	
==>sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p6_new('Str',@_)}
sub p6_Ref {p6_new('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1099	1215	
==>ILE;
    my $src = join('', @a);
    $p6 = Pugs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $ma <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15364	15476	
==>f = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduce_th <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3243	3347	
==>one better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3243	3347	
==>one better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15589	15696	
==>asily be
able handle arbitrarily complex data structures automatically (at least
that is what I hope).

= EN <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15647	15754	
==>asily be
able handle arbitrarily complex data structures automatically (at least
that is what I hope).

= EN <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	21	145	
==>A::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %. <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	21	145	
==>A::Node;

has %.arc;
has bool $.final;

multi method addarc(Str $trigger,:$node = FA::DFA::Node.new --> FA::DFA::Node) {
  %. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	463	570	
==>he input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	463	570	
==>he input file
local $/ = undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5262	5450	
==>aram('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ),

The above is the implementation of the identity function, or

    sub { my $ <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	913	1027	
==>e "Invalid token:\"$tok\"\n";
        }
    }
    @stack == 1 or die "Invalid stack:[@stack]\n";
    return $stack[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4847	5030	
==>{out}= { 
            op1 => { op => $_[1]{stmt} }, 
            fixity => 'prefix', 
            exp1 => $_[2],
            %{$_[3]}, } }

    | stmt                
        { $_[0]-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7790	7903	
==>$temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  reduce_backtrack:
  $position <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2923	3030	
==>inst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2923	3030	
==>inst the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($index) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19813	19919	
==>use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19813	19919	
==>use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed in <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3707	3810	
==>P0, "PGE::Exp::Alias"

    $I0 = find_type "PGE::OPTable"
    optable = new $I0
    store_global "PGE::P <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	171	272	
==>':$!" unless -d $testdir;

open(my $F, ">$testdir/$exename.c")
    or die "Can't create $testdir/$e <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5817	5911	
==>en.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, 'src/UnicodeC.o' if grep /WITH_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19403	19523	
==>ext, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subcl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19403	19523	
==>ext, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subcl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14183	14284	
==>") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14183	14284	
==>") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4779	4895	
==>eader}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method dat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4779	4895	
==>eader}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method dat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21792	21893	
==>..")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21792	21893	
==>..")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(target =E<gt> $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9125	9227	
==>nion.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9125	9227	
==>nion.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Spa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36875	36970	
==>::Example contains only tuples that are in
exactly one of the source Relations.  This method has <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26757	26848	
==>HARNESS_VERBOSE>, which prints
the output from the test being run.  Setting C<$Test::Harness <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10584	10683	
==>e set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10584	10683	
==>e set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Makes a lazy iter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4303	4602	
==>hello there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2427	2528	
==>od superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_super <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2427	2528	
==>od superset($self: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_super <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21652	21750	
==>ly.  Also added tests for the new captures() method.

I changed the field 'class' to 'family' in ob <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7675	7834	
==>f->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    return 'unknown';
}

1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7732	7891	
==>f->license($license);
                return 1;
            }
        }
    }

    warn "Cannot determine license info from $file\n";
    return 'unknown';
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1282	1390	
==>ames) to objects (containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1226	1330	
==>ames) to objects (containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/St <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5512	5623	
==>ied
# a free variable can be instantiated to point to another type object
# at this point it reblesses itself

s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8216	8338	
==>capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8409	8531	
==>capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $ma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3477	3575	
==>ing';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24261	24439	
==>'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24540	24718	
==>'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2746	2877	
==>reate the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2746	2877	
==>reate the cipher closure
    print cipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	911	1024	
==>on of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	911	1024	
==>on of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1204	1300	
==>SX::Value;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8393	8553	
==>ams->new(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->new("$label", q<symbol>), 
                        symbo <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	41	147	
==>e v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

subm <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	41	147	
==>e v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callback;

subm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34479	34597	
==>Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34479	34597	
==>Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Tra <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7799	7906	
==>arExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5286	5446	
==>one(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5286	5446	
==>one(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14053	14161	
==>osing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param pmc mob
    .local st <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	714	813	
==>tring is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	714	813	
==>tring is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17714	17818	
==>our \$META;\n";
    $code .= "\$META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $code .= " <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20452	20566	
==>lf != "(" goto init
    self["iscapture"] = 1
    self["isscope"] = 1

  init:
    $I0 = self["iscapture"]
    if $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10769	10940	
==>urn $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10769	10940	
==>urn $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	62	185	
==>R::_ )
    returns Num { ... }

multi sub exp (; Num ?$exponent = $CALLER::_, Num :$base )
    returns Num { ... }

multi su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10699	10801	
==>t attributes or Nodes are not missing.  The deferred validations, which
can be arbitrarily complex, mak <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10699	10801	
==>t attributes or Nodes are not missing.  The deferred validations, which
can be arbitrarily complex, mak <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1750	1872	
==>rs>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1750	1872	
==>rs>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      } <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1584	1680	
==>the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1584	1680	
==>the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12374	12468	
==>nds) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12432	12526	
==>nds) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4833	4954	
==>nshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got) <==
2	/Users/nnunley/pugs/util/fixauthors.pl	625	719	
==>w_from_content($html);
  my $realname = $tree->look_down(class=>"t1");

  return "" unless $rea <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1745	1850	
==>esented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    ( <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1745	1850	
==>esented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    ( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3867	3972	
==>ify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3867	3972	
==>ify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6955	7065	
==>.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6955	7065	
==>.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HT <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2430	2600	
==>L;

I32 regexp_exechook_hook (pTHX_ regexp* r, char* stringarg, char* strend,
                          char* strbeg, I32 minend, SV* screamer,
                          v <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1398	1511	
==>mbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1398	1511	
==>mbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Code $.complement_next;
    has Code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21803	21902	
==>difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21803	21902	
==>difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
document <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3110	3232	
==>ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3098	3220	
==>ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6266	6384	
==>q '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6266	6384	
==>q '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #pri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	365	557	
==>0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	365	557	
==>0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	659	824	
==>vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	659	824	
==>vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6996	7140	
==>ta_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6996	7140	
==>ta_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	239	350	
==>nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	239	350	
==>nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	970	1122	
==>ule( 
        name => '??',
        name2 => '!!',
        assoc => 'non',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE__- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	170	294	
==>ll::Base};
}

sub c_files {
	warn "c_files has been changed to cc_files to reduce confusion and keep all compiler commands as <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2316	2448	
==>ath;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2316	2448	
==>ath;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10968	11082	
==>, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10968	11082	
==>, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into something else <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23712	23806	
==>age implementation for the Relation library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is es <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	605	698	
==>ry. default: $root/dists

=item index_file

Path to the main index file. default: $root/dists/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7494	7616	
==>(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7494	7616	
==>(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658), <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2443	2567	
==>s{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8031	8157	
==>}
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unles <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8089	8215	
==>}
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unles <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24792	24890	
==>eturns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29344	29442	
==>eturns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () retu <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1099	1208	
==>gs
    #      executable.
    print STDERR "Triggering rebuild... " if $Config{verbose};
    unlink "blib6/lib <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1524	1616	
==>_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} and $ENV{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10835	11002	
==>xt .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $te <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10835	11002	
==>xt .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $te <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2258	2387	
==>ve"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "au <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2258	2387	
==>ve"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "au <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3513	3612	
==>lowing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3513	3612	
==>lowing methods are delegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9363	9468	
==>le) or print "can't open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "can't close $fi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8930	9056	
==>{
    my $params = @_ == 1 ? shift : { @_ };

    my $stub = $params->{env}->get($params->{name});
    my $digest = $stub->dige <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11224	11325	
==>erything (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Returns a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11224	11325	
==>erything (from the universal set) that is not in this recurrence.

- `union( $recurrence )`

Returns a <==
2	/Users/nnunley/pugs/util/package-osx.pl	3172	3275	
==>y/Perl6
        /Library/Perl/5.8.6/darwin-thread-multi-2level/auto/Perl6/Pugs/.packlist
        /Librar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	566	700	
==>...
    $.pos       - The current position of the match (also holds the
                  string that is being matched against).
    $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	566	700	
==>...
    $.pos       - The current position of the match (also holds the
                  string that is being matched against).
    $. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	491	599	
==>($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	491	599	
==>($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4307	4411	
==>chObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5665	5765	
==>xp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anch <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	24	118	
==>coerce')
multi sub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüchtigte Wolf im <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5202	5302	
==>h 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5202	5302	
==>h 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_chi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2233	2335	
==>hod send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2233	2335	
==>hod send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10");
    $!socket <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	85	185	
==>strict;
use warnings;

sub provides { }

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime:: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	803	900	
==>chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6770	6930	
==>n $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6770	6930	
==>n $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simplify this
        my @spans <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1029	1221	
==>};
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catf <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1029	1221	
==>};
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catf <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5021	5199	
==>ied number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5021	5199	
==>ied number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($match, $new_continu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21252	21358	
==>hat field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Ble <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21252	21358	
==>hat field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Ble <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2302	2444	
==>=> 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2302	2444	
==>=> 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8861	8986	
==>) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8861	8986	
==>) returns Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t! <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22880	23023	
==>> <Identifier> <')'> <Block>
}
rule Finally :words {  # see 12.14
      <'finally'> <Block>
}

# A.5 Functions and Programs

rule FunctionDeclar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1377	1498	
==>.
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1377	1498	
==>.
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18147	18337	
==>:p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18426	18616	
==>:p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11813	11940	
==>rt => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11813	11940	
==>rt => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	386	489	
==>ll
      if $install_version eq '6';

    $self->set_blib($install_version);

    $self->set_makefile_ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	471	570	
==>ersion) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $versi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	471	570	
==>ersion) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	833	1010	
==>tcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	833	1010	
==>tcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2522	2663	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2715	2856	
==>::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'gra <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6655	6803	
==>nsing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6712	6860	
==>nsing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2802	3002	
==>ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2813	3013	
==>ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16026	16122	
==>Model::Node object, that
lives in the Document object given in the named parameter $document, and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16026	16122	
==>Model::Node object, that
lives in the Document object given in the named parameter $document, and <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5784	5892	
==>}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5784	5892	
==>}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method <==
2	/Users/nnunley/pugs/util/package-osx.pl	8662	8781	
==>$orig (keys %change_files) {
        my $dirs = $change_files{$orig};
        $dirs =~ s#/[^/]+$##;
        make_dir("$d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11650	11767	
==>f the invocant relation."
        if !($other!heading === $!heading);

    return Relation::Example.new(
        headi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7072	7196	
==>or the handle passed
sub _autoflush {
    my $flushy_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9243	9359	
==>Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9243	9359	
==>Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	664	755	
==>sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	664	755	
==>sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representation;
 my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10951	11089	
==>s defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10951	11089	
==>s defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	625	787	
==>)                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	907	1057	
==>)                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6002	6137	
==>(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6002	6137	
==>(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6125	6426	
==>.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name compon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6125	6426	
==>.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name compon <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2266	2380	
==>or my $i (0 .. $params->elems->to_native) {
        my $value; 
        my $param      = $params->fetch(num->new($i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2158	2310	
==>en =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2158	2310	
==>en =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::T <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9154	9266	
==>es6,$pname);
	if($hybrid_kludge) {
	    my $pn = $pname;
	    $pn =~ s/[\@\%]/\$/;
	    push(@names5,$pn);
	} els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	662	773	
==>tch = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 ?? 2 !! 3;

if key:<val> {
    10 + $a / "abc"
}
$stri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3721	3817	
==>LAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3721	3817	
==>LAssign :: LValue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8279	8435	
==>' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8279	8435	
==>' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30089	30187	
==>hen
inspecting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3667	3778	
==>$sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3667	3778	
==>$sub) {
  for $self!sorted_field_names -> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    i <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2299	2477	
==>up{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => "rw",
                          } ];
    }
    else {
        return $na <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4132	4281	
==>1, store => \$file }
    };

    check( $tmpl, \%hash ) or error(Params::Check->last_error), return;

    my $fh = OPEN_FILE->($file) or return;
    m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4298	4399	
==>upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4298	4399	
==>upwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1117	1261	
==>{
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1117	1261	
==>{
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule varia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2399	2505	
==>2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3180	3286	
==>2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6671	6781	
==>ain getters for $() and such

### getters need to know what you want (str, bool, hash, array, match)



- compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6447	6554	
==>ain getters for $() and such
### getters need to know what you want (str, bool, hash, array, match)

- compi <==
2	/Users/nnunley/pugs/util/func_refact.pl	2510	2622	
==>or func
          , union(Storable::dclone($ccset), $cand)];  # new contributions
        #print "$cand: totall $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	622	786	
==>{
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	622	786	
==>{
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1536	1669	
==>ite' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALS <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1536	1669	
==>ite' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not specify a file name' and return FALS <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1216	1319	
==>statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVE <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1216	1319	
==>statements 
will find modules which are not located on Pugs's default
search path.

= LIMITATIONS & CAVE <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1093	1244	
==>my $container = shift;
                $self->hash_fetch->{$idx} = $container;
            },
            _hash_vivifyElem => sub {
                my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1057	1168	
==>ugs::Internals::round($x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1308	1410	
==>de <stdio.h>
#include <gc.h>

typedef int IV;
typedef FILE * GV;
typedef char * PV;

int prel_printf (G <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19258	19358	
==>XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
ve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19258	19358	
==>XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (compared to a typical other
ve <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10860	10964	
==>?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10918	11022	
==>?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, St <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2946	3071	
==>_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2946	3071	
==>_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	854	1005	
==>w({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varglobal {
    my $grammar =  shift;
    $_[0] = "" unless defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24563	24662	
==>ttributes are private, so you must use accessor methods.
Locale::KeyedText does not declare any subr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24563	24662	
==>ttributes are private, so you must use accessor methods.
Locale::KeyedText does not declare any subr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1184	1301	
==>ure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These methods are disabled: complement(), diffe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1184	1301	
==>ure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These methods are disabled: complement(), diffe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5401	5561	
==>$n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5623	5783	
==>$n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2843	2982	
==>{
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1465	1604	
==>{
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16070	16190	
==>ICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $tex <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16070	16190	
==>ICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $tex <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1267	1390	
==>}.pm"};
}

sub autoload {
    my $self = shift;
    my $caller = caller;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1083	1188	
==>revious match from where it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coroutine <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7568	7667	
==>TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Rate limiting -- p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11800	11891	
==>s Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11800	11891	
==>s Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. S <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17255	17354	
==>ything we want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22355	22454	
==>ything we want with it.
This is perhaps the most flexible place to allocate large data
which Perl_re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2171	2281	
==>lems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2171	2281	
==>lems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first f <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1301	1440	
==>esult
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1301	1440	
==>esult
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21478	21573	
==>user
messages, but another package or program which uses yours may wish to
override some of your <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21478	21573	
==>user
messages, but another package or program which uses yours may wish to
override some of your <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	247	358	
==>nings = 0;
my @tests = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2443	2538	
==>a') }; 
use constant ISA_JIB_CONFIG => sub { UNIVERSAL::isa(shift(), 'JIB::Config') };

use cons <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5448	5659	
==>%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5448	5659	
==>%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19035	19132	
==>th user text that is
associated with hard-coded program conditions.  In other words, this user
tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19035	19132	
==>th user text that is
associated with hard-coded program conditions.  In other words, this user
tex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14047	14163	
==>PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($serv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14047	14163	
==>PONG, so everything's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($serv <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5725	5821	
==>ex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5725	5821	
==>ex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5227	5354	
==>Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5227	5354	
==>Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLVa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21979	22078	
==>mber(class_pos(print)     ,C) :- !,    isPrint(C).
class_member(class_neg(print)     ,C) :- !, \+(is <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3647	3759	
==>identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex clo <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3647	3759	
==>identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex clo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6272	6400	
==>=> -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is expo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6272	6400	
==>=> -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is expo <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1518	1654	
==>ep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1518	1654	
==>ep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the current tree's <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2803	2940	
==>l {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2803	2940	
==>l {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	751	889	
==>es;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $res;
}


# copied from S29dra <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3762	3857	
==>everal subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3762	3857	
==>everal subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<gt> (port to Perl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	923	1021	
==>iphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, and ob <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	923	1021	
==>iphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural, and ob <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	690	818	
==>$node);
}

sub new {
    my $class = shift;
    bless {
    }, $class;
}

sub compile {
    my $self = shift;

    $self->runtime <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4614	4744	
==>/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4614	4744	
==>/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	372	468	
==>};

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	372	468	
==>};

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	877	962	
==>rl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunc <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	877	962	
==>rl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18603	18715	
==>if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19961	20073	
==>if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $con <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13149	13265	
==>>
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> test cases</ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16438	16544	
==>number of chars removed.

Note: Most users should consider setting their I/O handles to autochomp
instead o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4244	4393	
==>es with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4244	4393	
==>es with care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty li <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26186	26309	
==>that returns a new Relation
which has a subset of the original's attributes; that subset is the same as
those attribute name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30738	30861	
==>that returns a new Relation
which has a subset of the original's attributes; that subset is the same as
those attribute name <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	193	306	
==>itePugs {
    my $self = shift;

    my $install_version = shift;
    die "Install version must be 5 or 6 for Writ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1855	2003	
==>}
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2102	2250	
==>}
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3353	3449	
==>__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3353	3449	
==>__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	21	119	
==>og

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	21	119	
==>og

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array changes to normal Array if a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9004	9142	
==>$match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8690	8825	
==>$match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{o <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	369	472	
==>>'), Val(1), Val(2) ),
			App( Sym('&infix:<+>'), Val(3), Val(4) ),
		),
		result => 10,
		name => "nest <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21337	21424	
==>(11)
class_member(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16096	16212	
==>ation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19573	19689	
==>ation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2940	3119	
==>}
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2940	3119	
==>}
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%events;
}

multi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	611	734	
==>+\+\S+) $ # authority
                /smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for:

    JIB::Pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5938	6057	
==>f ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5938	6057	
==>f ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($content ~~ m,^ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11399	11535	
==>ined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11399	11535	
==>ined $.current {
            $.current = $.span.previous( $.current )
        }
        else {
            $.current = $.span.previous( I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7638	7746	
==>\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7638	7746	
==>\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $self.a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	578	713	
==>ata is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: E <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	578	713	
==>ata is not listed.

sub type_check (*@arg) {
    for @arg -> $param, $type {
        if $param ne $type {
            die "Type error: E <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1217	1335	
==>ontain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@chunks") || (pop(@c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1153	1262	
==>ontain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@chunks") || (pop(@c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	49	146	
==>ERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!/ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	49	146	
==>ERSION @ISA>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4722	4839	
==>er

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4560	4673	
==>er
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1414	1538	
==>n

=head2 authority

=cut

### XXX could autogenerate
{   

    sub prefix {
        return $1 if shift->package() =~ $Packag <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	832	931	
==>ateFinder;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my @nodes = $dup_finde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1	122	
==>!/usr/bin/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Swit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1	122	
==>!/usr/bin/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Swit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	102	307	
==>.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	102	307	
==>.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $progr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6053	6178	
==>nce>
}
rule IdentifierPart {  # see 7.6
      <IdentifierStart>
    | <UnicodeCombiningMark>
    | <UnicodeDigit>
    | <Unico <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6105	6254	
==>lems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6105	6254	
==>lems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2051	2167	
==>-e $file;
    }

    $self->version_from($file)      unless $self->version;
    $self->perl_version_from($file) unles <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	132	222	
==>quote printable/;
use Scalar::Util qw/blessed/;

use Blondie::Reducer::DuplicateFinder;
use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15329	15447	
==>::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15608	15726	
==>::concat(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2460	2559	
==>>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replic <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2460	2559	
==>>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

=head2 C<< replic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2774	2874	
==>urns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2774	2874	
==>urns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14924	15022	
==>the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Pare <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14924	15022	
==>the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Pare <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	804	955	
==>ss ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	804	955	
==>ss ~~ m:P5/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26516	26613	
==>nated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31068	31165	
==>nated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's head <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	277	391	
==>e test'
# 3. 'make smoke' make target that uploads the results of this
#    to a server somewhere.


package Test:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	587	729	
==>e CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    els <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	587	729	
==>e CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    els <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1753	1877	
==>ils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_command($file) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1634	1725	
==>ils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($file) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1198	1367	
==>or @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1198	1367	
==>or @arg -> $param, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	902	1024	
==>ulti sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	902	1024	
==>ulti sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $o <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	302	408	
==>(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        IN <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	302	408	
==>(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        IN <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	631	780	
==>hift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER::init_INST(@_);
        for ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25018	25111	
==>.

C<$verbose>, C<$switches> and C<$debug> are exported upon request.

=head1 DIAGNOSTICS

=ov <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3227	3366	
==>_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3946	4060	
==>_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1648	1774	
==>me  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1648	1774	
==>me  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21249	21354	
==>lled
themselves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21249	21354	
==>lled
themselves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1052	1145	
==>.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1052	1145	
==>.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4551	4661	
==>ix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	385	481	
==>to the pool directory of the repository. $root/jibs if not specified.

=item pool_rel

The path t <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6267	6388	
==>~ /^6.4(?:.0)?$/;
    }
    else {
        push @pkgs, -package => 'unix';
    }
    push @pkgs, -package => 'readline' if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6699	6818	
==>e?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args h <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6699	6818	
==>e?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne '') {
        # take a copy of our args h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17239	17375	
==>{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17239	17375	
==>{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5340	5470	
==>ernal state as completely as possible. 
This is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but ther <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5340	5470	
==>ernal state as completely as possible. 
This is automatically done as part of C<finish>, C<finishstr> and the 
destructor, but ther <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5568	5708	
==>my $c = int((@dirs+1) / 3)+1;
$template->param(directories => [ map { { title => $_,
                                          wrap  => !(++$ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9784	9908	
==>$results{skip};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34429	34524	
==>d parameter
@set_names (an array ref), and Member Names is set from the named parameter
@member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34429	34524	
==>d parameter
@set_names (an array ref), and Member Names is set from the named parameter
@member_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18655	18770	
==>ng from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15076	15191	
==>ng from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_;
    $S->error(RPe_LPAREN) if ${&Rx} !~ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	425	520	
==>ipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	425	520	
==>ipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readline();
  $pilresul <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	136	285	
==>ream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^---$/ && do {
            die "sorry, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2361	2503	
==>s defined $:expect;
      }
  
      method header returns Str
      {
          return "1..$:expect";
      }
  
      method footer returns S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1976	2083	
==>)] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1976	2083	
==>)] );
}

method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	636	758	
==>ults = @results }
sub get_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	636	758	
==>ults = @results }
sub get_results ($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15757	15853	
==>tion takes a C<Str> and returns a C<Str>, the returned C<Str>
will support the same levels as the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3063	3157	
==>?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
	{ return { assign => $() } }
RULE
*{'sub_call'} = Pugs::C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1665	1784	
==>ror ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error("Package '". <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	118	272	
==>'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	118	272	
==>'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted', <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11907	12052	
==>y $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11907	12052	
==>y $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2572	2667	
==>s module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2572	2667	
==>s module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17422	17516	
==>f the document.  In libwww-perl this header will be
initialized automatically from the E<lt>TIT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17422	17516	
==>f the document.  In libwww-perl this header will be
initialized automatically from the E<lt>TIT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	963	1060	
==>-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	963	1060	
==>-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	478	592	
==>en.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	478	592	
==>en.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	191	350	
==>::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	191	350	
==>::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12400	12532	
==>ub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12679	12811	
==>ub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	224	330	
==>ilter_function.defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	224	330	
==>ilter_function.defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
metho <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1015	1130	
==>= $op->{'nprec'} - $increment;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3367	3510	
==>rint";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4216	4359	
==>rint";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25306	25406	
==>org/philosophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the G <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25306	25406	
==>org/philosophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the G <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8485	8604	
==>"Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8485	8604	
==>"Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2983	3149	
==>ibutes of every Relation::Example object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member is a name of one of this Relation::Example's att <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	539	642	
==>lse {
        $self->check_nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{'PL_FIL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16471	16574	
==>rent Node" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes
attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16471	16574	
==>rent Node" attribute
is set to it, and the new Node is also stored in $parent_node's Child Nodes
attribu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7857	7957	
==>g "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7857	7957	
==>g "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)} <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	93	190	
==>::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

meth <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	93	190	
==>::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

meth <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	206	303	
==>nta golf game of 2001.
# Also for future historical amusement, I've inserted unchanged
# my origin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3259	3419	
==>0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3506	3666	
==>0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4777	4918	
==>f we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unb <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4777	4918	
==>f we dont have anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unb <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3357	3487	
==>.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3357	3487	
==>.curhostname, $.curircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_han <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18049	18152	
==>ols the requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18049	18152	
==>ols the requesting user agent.  The address should be
machine-usable, as defined by RFC822.  E.g.:

  $h <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2268	2368	
==>tmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2268	2368	
==>tmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Per <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11242	11339	
==>or
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11242	11339	
==>or
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

= <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1405	1509	
==>s an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite siz <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1405	1509	
==>s an empty span.

- `new( start => $dstart )`

Given a start object, returns a span that has infinite siz <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	156	334	
==>p { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	156	334	
==>p { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1248	1347	
==>::Class::dir('jibs')    ];
$config{'repo_index'}       = [ Path::Class::dir('dists')   ];
$config{'r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4791	4973	
==>$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5013	5195	
==>$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $progr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2572	2720	
==>npack("U*", $x)) {
                if ($c > 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escape{$c}) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3327	3465	
==>bel) = @_;
            exists ::opaque_instance_attrs($self)->{'%:methods'}->{$label} ? 1 : 0;
        },        
        'add_method' => s <==
2	/Users/nnunley/pugs/util/package-osx.pl	4305	4402	
==>l/man/man3/Perl6::Bible::E05.3pm
        /usr/local/man/man3/Perl6::Bible::E06.3pm
        /usr/lo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7747	7868	
==>&{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded whe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7747	7868	
==>&{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded whe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3425	3555	
==>*? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3413	3543	
==>*? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1548	1687	
==>pe => $type);
	}

}

{
	package Blondie::TypeSafe::Flatten;
	use base qw/Blondie::Reducer/;
	
	use Scalar::Util ();
	
	sub new { bless {}, s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20267	20398	
==>E0,E0) :- !.
rm(eosnl,       [],[],B0,B0,E0,E0) :- !.
rm(eosnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6912	7025	
==>s);
    print "*** Building: ", join(' ', $ghc, @_), $/;
    system $ghc, @_;

    die "Build failed: $?" unless - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	569	711	
==>isa('opaque'))
        || confess "The invocant must be an opaque type";
    $self->SUPER::do($args);
}

sub _bind_params {
    my ($self, $arg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47717	47965	
==>> 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new('$value' => 'type'),                               
                          ),
                returns => 'nil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4405	4512	
==>' BAREWORD    %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], } } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1646	1741	
==>_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolut <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1646	1741	
==>_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolut <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3389	3488	
==>sion
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3389	3488	
==>sion
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11536	11645	
==>num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11536	11645	
==>num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_ent <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1926	2049	
==>=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub original_repl { # not used
    my $verbose = <==
2	/Users/nnunley/pugs/util/grokprims.pl	802	915	
==>rsion="1.1" encoding="UTF-8" ?><html><body><table border="1">';



foreach my $op (sort 
         {
           $a- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25512	25599	
==>gs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flgs(A,B,C,_,E,F,G,H,I,J)),X,amat(C0,flgs( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	693	802	
==>ce code to determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return tr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	693	802	
==>ce code to determine if the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return tr <==
2	/Users/nnunley/pugs/util/claim_drift.pl	1118	1252	
==>}  unless $Conf{no};

    print "ln -s $real $orig\n"                           if $Conf{verbose};
    do { 1 == symlink $real, $orig o <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	422	519	
==>nce($self: Date $other) returns Duration {
    ...
}

#method infix:<->($self: Date $other) return <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9793	9896	
==>we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $sel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9793	9896	
==>we implement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17575	17676	
==>er is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17575	17676	
==>er is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is used in request <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	355	478	
==>gs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1144	1267	
==>gs::Compiler::Perl6->compile( $src );
    #use YAML;
    #print Dump $match->();
    #print dump_tree $p6;
    #print Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	265	412	
==>= $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        retu <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	265	412	
==>= $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5742	5837	
==>2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5543	5634	
==>2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return R <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6502	6611	
==>rs($_[0])->{'%:methods'}->{'does'}->(@_);
});

# now Class does Role

## ------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1483	1589	
==>s_run    = 0;
$Test::num_of_tests_planned;
say <angle quoted>;
say 1 < 2;

sub plan (Int $number_of_te <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4563	4673	
==>ect class_precendence_list');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2937	3051	
==>quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2925	3039	
==>quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4068	4342	
==>urn %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4068	4342	
==>urn %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedTe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	615	720	
==>d thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards suc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	615	720	
==>d thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards suc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4861	4977	
==>s name passed where object required") unless ref $_[0];
  my $type = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $cl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	581	688	
==>str { str->new((shift)->{name}) }

# conversion to other native types
sub to_bit { bit->new(1)           }
s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14687	14791	
==>er error handling for cmp_ok

The error handling capabilities need to be expanded more to handle the
erro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14745	14849	
==>er error handling for cmp_ok

The error handling capabilities need to be expanded more to handle the
erro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11116	11213	
==>eturns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11116	11213	
==>eturns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_count re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1787	1912	
==>self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' } <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1787	1912	
==>self<_err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15107	15233	
==>{ ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15107	15233	
==>{ ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16567	16683	
==>char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12988	13104	
==>char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4373	4477	
==>nt {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4558	4662	
==>nt {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10609	10723	
==>essfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * : <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10609	10723	
==>essfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * : <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1635	1800	
==>( $arg );
            $.append_value( $arg );
            $.count++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3334	3474	
==>cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3334	3474	
==>cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2747	2855	
==>w(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    sa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2747	2855	
==>w(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    sa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27149	27257	
==>ive, directory name is with respect to the current directory at
the moment runtests() was called.  Putting ab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1082	1200	
==>:Perl6::Perl5::emit( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitte <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13393	13509	
==>ring the following command
      as root:
      # mknod $initrd_mnt/dev/console c 5 1
HELP

  step
    descr  => "Unm <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7381	7488	
==>n $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10858	10965	
==>n $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relation {

    for @ot <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	488	607	
==>difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Lo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	488	607	
==>difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3146	3243	
==>context,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3146	3243	
==>context,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	769	875	
==>odule::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	769	875	
==>odule::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1911	2154	
==>k) {
                    $in_block = 0;
                    my @body;
                    foreach my $statement (@t) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            pus <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18019	18132	
==>" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":i"]
    self["ignorecase"] = $I0
    .return (sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4360	4467	
==>parrotcode.org>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

This program is f <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37645	37742	
==>fference (Relation::Example $other!) returns Relation::Example>

This method is a generic relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38234	38331	
==>fference (Relation::Example $other!) returns Relation::Example>

This method is a generic relation <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	944	1062	
==>sh.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) returns List|Str {
   giv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1488	1587	
==>code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1488	1587	
==>code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	218	337	
==>e YAML;
use Scriptalicious 1.05;
use strict;

sub print_repl_help {
    print ":h             show this help\n";
    pri <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17374	17476	
==>modules in a much more sane manner.
Module::Compile controls the compilation process, calling each comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17374	17476	
==>modules in a much more sane manner.
Module::Compile controls the compilation process, calling each comp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22018	22136	
==>touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16920	17037	
==>touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16232	16339	
==>ollowing benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16232	16339	
==>ollowing benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Modul <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14154	14266	
==>n = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterat <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14154	14266	
==>n = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7236	7342	
==>lemented" }

1;

__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Perl 6 Rule operator <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22590	22704	
==>ser strings; Locale::KeyedText would also handle
this.

A program generates a Message that contains all possibly us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22590	22704	
==>ser strings; Locale::KeyedText would also handle
this.

A program generates a Message that contains all possibly us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2844	2934	
==>le>:=(<variable>)<?p6ws>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term1>)<?p6ws>?\;
        { retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20663	20763	
==>ray::META->new()" if $name =~ /\@/;
    return "\$${ROOT}::Hash::META->new()" if $name =~ /\%/;
    C <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	669	803	
==>c\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $mod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12340	12457	
==>LLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    ### remove this pac <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3313	3415	
==>mStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmpty = $self->termTable()->{"" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4315	4436	
==>match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4327	4448	
==>match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5289	5411	
==>or @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Per <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5289	5411	
==>or @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Per <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	71	191	
==>Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use J <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	69	189	
==>Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use J <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14673	14796	
==>turn qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14673	14796	
==>turn qq{===pod $digest\n===cut\n};
}

sub pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $cla <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4091	4200	
==>empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end va <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4091	4200	
==>empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end va <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2500	2610	
==>rsects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2500	2610	
==>rsects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	511	663	
==>ng') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	511	663	
==>ng') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3224	3380	
==>{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3471	3627	
==>{quant}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12689	12829	
==>$_";
        }
      }
    };

  step
    descr  => "Copying shared libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      -r "$_" && - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	626	724	
==>lication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	626	724	
==>lication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19036	19122	
==>$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19036	19122	
==>$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13370	13483	
==>n function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is eval <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13370	13483	
==>n function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is eval <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5909	6023	
==>mally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5705	5814	
==>mally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6594	6725	
==>>() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6594	6725	
==>>() );
}

__END__
{
    # TODO - emit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2614	2724	
==>hod end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2614	2724	
==>hod end_is_closed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1546	1674	
==>ehaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3552	3649	
==>_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3552	3649	
==>_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

method s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	508	618	
==>" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	508	618	
==>" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	868	984	
==>ckages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	868	984	
==>ckages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5085	5200	
==>lf unless $self->is_admin;
    $self->admin->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $fi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28594	28694	
==>MATCH_UTF8)
 #define RX_MATCH_UTF8_off(prog)		((prog)->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15208	15322	
==>n work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18685	18799	
==>n work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= new( heading => s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8642	8773	
==>"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(890 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8642	8773	
==>"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(890 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1197	1304	
==>_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1197	1304	
==>_http_get($url);
};

# Refactor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2120	2294	
==>pic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Store <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2120	2294	
==>pic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Store <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7432	7546	
==>r::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7444	7558	
==>r::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually us <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11060	11161	
==>ode into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11060	11161	
==>ode into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1786	1894	
==>l5::X1::CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35526	35624	
==>ta: array reference of any number of objects

Ender: I<tail>

=head2 open

Family: open

Types: ope <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1429	1580	
==>: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta->package }
                        @{ $inst-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	737	869	
==>ol $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	737	869	
==>ol $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.aut <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1213	1346	
==>',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '~',
        assoc => 'left',
        precedence = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5193	5302	
==>($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do)))) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6955	7064	
==>($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get ("&dispatcher")) do)))) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3324	3448	
==>t<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3324	3448	
==>t<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8422	8588	
==>ub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cs <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8422	8588	
==>ub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cs <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	952	1063	
==>ions as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	952	1063	
==>ions as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You can just say;

 Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1600	1705	
==>ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1600	1705	
==>ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=c <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	74	160	
==>Array::pop<Array> := &Array::splice<Array>.assuming(:offset(-1) :length(1));

multi sub <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	143	256	
==>-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are no <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	143	256	
==>-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5310	5434	
==>vious( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5310	5434	
==>vious( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7552	7657	
==>arse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7552	7657	
==>arse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$bl <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3698	3793	
==>ake_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3698	3793	
==>ake_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6495	6642	
==>" print '', $s";
        }
        if ( $n->{method}{bareword} eq 'say' ) {
            my $s = _emit( $n->{self} );
            if ( $s eq _man <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1847	1941	
==>:C::Builtins - 

=head1 SYNOPSIS

	use Blondie::Backend::C::Builtins;

=head1 DESCRIPTION

=cut <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3544	3640	
==>wid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOP <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3544	3640	
==>wid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12721	12878	
==>sh'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13000	13157	
==>sh'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2899	3015	
==>e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	930	1046	
==>e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26718	26820	
==>ttribute of the new object is set from the named parameter
$msg_key (a string); the optional named para <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26718	26820	
==>ttribute of the new object is set from the named parameter
$msg_key (a string); the optional named para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5979	6120	
==>Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5979	6120	
==>Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28783	28905	
==>.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28783	28905	
==>.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.],
        'MYAPP_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4397	4500	
==>er output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4397	4500	
==>er output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18655	18753	
==>ibutes', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need to supp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18655	18753	
==>ibutes', 'child_nodes') corresponds exactly to the named
parameters of Node.new(); you need to supp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1486	1612	
==>ers;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1486	1612	
==>ers;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4490	4618	
==>er
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4490	4618	
==>er
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	21	216	
==>Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    { <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	21	216	
==>Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10529	10650	
==>] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10687	10808	
==>] ), "\n";
    my $value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5661	5776	
==>retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5661	5776	
==>retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is expo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13996	14128	
==>ost expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17473	17605	
==>ost expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Rel <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	24	140	
==>s DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_dura <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	24	140	
==>s DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_dura <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4258	4355	
==>t
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4258	4355	
==>t
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	682	795	
==>ds compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	682	795	
==>ds compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Mat <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1344	1522	
==>toreElem' => sub { # $idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->_ext <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14331	14437	
==>mpfiles

    my @avail = map { $_->meta->to_struct } @{ $self->available };
    eval { DumpFile( $self->ava <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	263	381	
==>args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	263	381	
==>args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6996	7106	
==>l';
    return $S->object(eol => $type, '$');
  });

  # seol (end of line, in single-line mode)
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8711	8808	
==>ms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2536	2633	
==>ms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	338	435	
==>each my $class (@{ Class::Inspector->subclasses("Blondie::Node") }) {
        next unless $class = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1276	1390	
==>r $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we kno <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1276	1390	
==>r $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we kno <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19899	20014	
==>es its
resources.  It is the standard practice for Mac OS X programs, including
the operating system itself, to have <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19899	20014	
==>es its
resources.  It is the standard practice for Mac OS X programs, including
the operating system itself, to have <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	767	870	
==>ebug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	767	870	
==>ebug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9075	9174	
==>bove-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9075	9174	
==>bove-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10695	10789	
==>UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10695	10789	
==>UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4179	4352	
==>ie $?;
            }
            
            ### XXX we should build a binary package here, instead of
            ### just doing a cp -R
            my $src = $conf->compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2144	2259	
==>:statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2144	2259	
==>:statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @gramm <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	776	872	
==>Windows(); return false;">open each link in a
new window</a>.  (Useful with Firefox 1.5's Prefere <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1882	2011	
==>le $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working ' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11796	11922	
==>/td>
            <td class="leftsep"><tmpl_var name=timestamp></td>
            <td class="leftsep num"><tmpl_var name=duration <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11918	12054	
==>{
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11918	12054	
==>{
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2372	2504	
==>lf },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files w <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2372	2504	
==>lf },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files w <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	226	326	
==>hes nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	226	326	
==>hes nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1835	1936	
==>rt, the api got cleaned up a bit. :)
Some features are still missing but will be added in the future.. <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1835	1936	
==>rt, the api got cleaned up a bit. :)
Some features are still missing but will be added in the future.. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31781	31878	
==>luent in (and prefers) language A but also understands
language B.  Later on, if for example the f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31781	31878	
==>luent in (and prefers) language A but also understands
language B.  Later on, if for example the f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1179	1294	
==>member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans> <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1179	1294	
==>member/has

=cut

submethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans> <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4249	4354	
==>the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4249	4354	
==>the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5073	5315	
==>qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this packag <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4285	4491	
==>qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this packag <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11299	11396	
==>n ($self: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B< <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11299	11396	
==>n ($self: *@children) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35176	35280	
==><export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elements, which <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35176	35280	
==><export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
elements, which <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12034	12139	
==>in $1 etal.  These will be limited to
  strings, rather than Match objects.

  A set of hooks should be de <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	457	558	
==>29draft.pod 8651.
multi  List::map (Code $expression ; *@values --> Lazy ) {
    gather {
	while @valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	541	683	
==>. "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	541	683	
==>. "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $ar <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	320	429	
==>ults to 0:00
        (\d\d):?(\d\d):?(\d\d(?:\.\d*)?) \s*
        # time zone - optional, defaults to local ti <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5818	6093	
==>}
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6282	6557	
==>}
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10024	10176	
==>= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array::sort(                 @values is <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3466	3571	
==>$warn,$failed);
	} elsif($stage eq 'pil_code') {
	    my $p6 = $self->as_p6;
	    my($pil_code,$warn) = Pe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	955	1110	
==>ontrol -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the rep <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	639	754	
==>istening
for C<INVITE>. When it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	639	754	
==>istening
for C<INVITE>. When it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14633	14736	
==>ick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $targ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14633	14736	
==>ick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $targ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2367	2457	
==>erl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2367	2457	
==>erl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6071	6203	
==>ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6071	6203	
==>ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5040	5214	
==>the test you're summarizing.
            my $details = {
                ok         => $pass,
                actual_ok  => $result{ok}
            };

            assert( def <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16691	16814	
==>.
Perl_re_dup just copies them.

  struct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5718	5816	
==>he API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5718	5816	
==>he API seems large, most of it is implemented within the C<Cipher> 
class itself; in fact, the only <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19010	19115	
==>C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19010	19115	
==>C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2392	2495	
==>};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2392	2495	
==>};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	424	646	
==>h(1));

 multi sub Array::shift () returns Scalar {
   Array::shift @CALLER::_;
 }
 multi sub Array::splice (       @array is rw 
                                 : Int ?$offset = 0,
                                   Int ? <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21718	21809	
==>:' => 'type');
%sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_from_sigil);
} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21239	21333	
==>lly using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21239	21333	
==>lly using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.qu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	47	143	
==>or::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	47	143	
==>or::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
has $!success;

sub set_search_path ($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	344	632	
==>ructors

    my $prog = App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	896	1019	
==>ame} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '??',
        name2 => '!!', <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2146	2249	
==>M tree has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2146	2249	
==>M tree has a root node, which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4630	4768	
==>parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4472	4604	
==>parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AS <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12170	12264	
==>tities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&ac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12170	12264	
==>tities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m&ac <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7502	7617	
==>\@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($params->[0])) { # an array of strings
	my @p = map{
	    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	116	214	
==>:Compile-base;
use File::Basename;
use Pugs::Runtime::Perl6;

my $bin;
BEGIN { $bin = ((dirname(__F <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3983	4143	
==>);    
                $e->set('$current' => $e->get('&dispatcher')->do());
            })->do_while(
                block->new($e, sub {
                    my <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1759	1859	
==>gn_dir=../p6/docs/design
     perl util/catalog_tests.pl --test_dirs=t/builtins,t/macros --output_dir <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3866	4026	
==>vels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3866	4026	
==>vels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3425	3583	
==>ubmatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3425	3583	
==>ubmatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	479	590	
==>>can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	479	590	
==>>can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code) <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1620	1766	
==>xe\n";
    my $e;
    {
    local $/;
    $e = unpack "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't wr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5128	5240	
==>Regex->compile( q(
            <Pugs::Grammar::Term.double_quoted>
            { return { double_quoted => $/{'Pu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3971	4084	
==>rking, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxrc is the first script to run after the kernel <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2990	3088	
==>t match up";
  my($vars,$tmpvars) = @$e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FA <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18034	18151	
==>et('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41299	41416	
==>et('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->ge <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	937	1055	
==>variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	937	1055	
==>variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	385	494	
==>ntiate_container {
    my $self = shift;
    return $self->{type}->new();
}

1;

__END__

=pod

=head1 NAME

a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15651	15760	
==>s); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15651	15760	
==>s); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS an <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1143	1245	
==>method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1143	1245	
==>method includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2077	2185	
==>$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    preceden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2077	2185	
==>$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    preceden <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1578	1683	
==>) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $O.property_value. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19984	20078	
==>gine::Example> is the self-contained and pure-Perl reference
implementation of an Engine and is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19984	20078	
==>gine::Example> is the self-contained and pure-Perl reference
implementation of an Engine and is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7835	7932	
==>b { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1660	1757	
==>b { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1143	1248	
==>e)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _tr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1143	1248	
==>e)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _tr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18095	18210	
==>o that by the
time a compiler is called it only gets the source code that it should be
looking at.

This section des <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18095	18210	
==>o that by the
time a compiler is called it only gets the source code that it should be
looking at.

This section des <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6800	6917	
==>SubIsMulti""pSubLValue""pSubName""pSubParams""pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       " <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2955	3084	
==>'t instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2955	3084	
==>'t instantiate an infinite list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2439	2582	
==>o_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $se <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2439	2582	
==>o_str        ( $self: ) { &{$.cstringify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $se <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12946	13040	
==><$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12946	13040	
==><$set2>.

=head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4330	4435	
==>ns = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4330	4435	
==>ns = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9362	9467	
==>span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9362	9467	
==>span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) if $span0.is_empty;
    my @sp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7937	8035	
==>t ('item')>

This event is fired when an '=item' directive is reached, the next event fired will be <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7937	8035	
==>t ('item')>

This event is fired when an '=item' directive is reached, the next event fired will be <==
2	/Users/nnunley/pugs/util/package-osx.pl	7400	7493	
==>ocal/man/man3/Perl6::Spec::Concurrency.3
        /usr/local/man/man3/Perl6::Spec::Concurrency. <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1056	1209	
==>erl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_ver <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	935	1088	
==>erl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_ver <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8976	9081	
==>span => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @un <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8976	9081	
==>span => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @un <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	773	893	
==>and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	773	893	
==>and @end intersect, don't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6447	6647	
==>('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends wo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6505	6705	
==>('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends wo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	836	980	
==>art ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uni <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	836	980	
==>art ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uni <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14741	14891	
==>ut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15020	15170	
==>ut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       ,
         \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4311	4524	
==>print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4311	4524	
==>print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4249	4329	
==>8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4249	4329	
==>8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4118	4256	
==>";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4118	4256	
==>";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	884	1009	
==>mize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#line 10 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	785	910	
==>mize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#line 10 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5882	6011	
==>span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object repr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5882	6011	
==>span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object repr <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2631	2767	
==>};
}

# concatenate source files. hardcode special treatment to the Prelude,
# which is assumed to be the first module in the list.
sub g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3493	3681	
==>Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$' . $_[0]->() ,} }
            ) ),
        '$.' => Pugs::Compiler::Regex->compile( q( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	248	360	
==>r my $pkg (@ARGV) {
    my $meta = $Metactrl .'/'. $pkg;
    
    die "$pkg not installed -- dir '$meta' does not <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4880	4982	
==>= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights re <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4880	4982	
==>= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25924	26034	
==>n
addition to preserving this original copyright notice and other credits.
Rosetta is distributed in the hope t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25924	26034	
==>n
addition to preserving this original copyright notice and other credits.
Rosetta is distributed in the hope t <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	25	144	
==>Plan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" un <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	25	144	
==>Plan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" un <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	16	130	
==>wid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    ' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	16	130	
==>wid::Event::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	513	647	
==>::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	610	744	
==>::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $mat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6911	7017	
==>( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6911	7017	
==>( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Docum <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8555	8725	
==>.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($mag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8555	8725	
==>.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($mag <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	343	486	
==>hars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	343	486	
==>hars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        } <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	737	831	
==>st accessor methods
for variables.

=item *

unbound private attributes, which are actually jus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37024	37128	
==>anslator class also has these utility methods, which are all used by
translate_message() to handle the tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37024	37128	
==>anslator class also has these utility methods, which are all used by
translate_message() to handle the tr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3978	4126	
==>+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3978	4126	
==>+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7554	7715	
==>atch( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7554	7715	
==>atch( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16751	16868	
==>ing code to output as it sees fit.  It
also does not make direct use of environment variables, which can aid in
portab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16751	16868	
==>ing code to output as it sees fit.  It
also does not make direct use of environment variables, which can aid in
portab <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19624	19747	
==>pace [ "PGE::Exp::Conj" ]

.sub "p6analyze" :method
    .param pmc pad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2196	2342	
==>D' => sub {
            my ($self, %params) = @_;
            _('$.number'     => 0)     unless exists $params{'$.number'};
            _('$.diagno <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1668	1835	
==>ass, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1668	1835	
==>ass, $value) {
                    callm(string($class), "new", $value);
                }
                $ng.ret(do given .value {
                    when Str { box( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6869	7018	
==>arameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6869	7018	
==>arameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7902	7991	
==>b { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->ass <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1727	1816	
==>b { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->ass <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	236	356	
==>Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	236	356	
==>Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2157	2258	
==>fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2157	2258	
==>fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1998	2146	
==>ble_quoted};
            
    return '\'' . $n->{single_quoted} . '\'' 
        if exists $n->{single_quoted};
            
    return 'qw(' . $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	112	219	
==>c
# runtime parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	112	219	
==>c
# runtime parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_matc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5459	5560	
==>= $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5459	5560	
==>= $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8138	8294	
==>alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7858	8006	
==>alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12613	12712	
==>usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12613	12712	
==>usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model::Document $docume <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9749	9906	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10028	10185	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rul <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	968	1097	
==>f->scopes;
}

sub scopes {
    my $self = shift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2402	2500	
==>$invocant, positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6078	6213	
==>, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6078	6213	
==>, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5848	5940	
==>num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5848	5940	
==>num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1397	1530	
==>.10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new(). <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1397	1530	
==>.10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new(). <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11948	12087	
==>$_[0];
    # print "infix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '(' &&
         $n->{op2}{op} eq ')' ) {
        return '()' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8523	8631	
==>.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8581	8689	
==>.say("# Looks like you failed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9664	9777	
==>_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9664	9777	
==>_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_templa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7318	7415	
==>$func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7318	7415	
==>$func, Str $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	509	700	
==>color = orange, " . 
                    "style = rounded, " .
                    "label = \"" . $node->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node { <==
2	/Users/nnunley/pugs/util/importgraph.pl	1765	1855	
==>etup_mod(2, @_) }
sub setup_rank { setup_mod(3, @_) }

setup_cluster('Pugs.Rule', qr/^Pugs\ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9437	9551	
==>> 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9495	9609	
==>> 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4567	4703	
==>=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4707	4843	
==>=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1226	1375	
==>[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1176	1320	
==>[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7201	7351	
==>( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if ! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7201	7351	
==>( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if ! <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9797	9948	
==>rson.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9797	9948	
==>rson.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16502	16609	
==>pped off and returned as a separate value if in
an array context.  If there is no such header field, then th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16502	16609	
==>pped off and returned as a separate value if in
an array context.  If there is no such header field, then th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11769	11867	
==>$recurrence )`

Returns true if the closures that define the recurrences are exactly the same.

Thi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11769	11867	
==>$recurrence )`

Returns true if the closures that define the recurrences are exactly the same.

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19107	19203	
==>ed to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other program <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19107	19203	
==>ed to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other program <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3093	3277	
==>us(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3104	3288	
==>us(
                ruleop::concat(
                    ruleop::constant( '|' ),
                    ruleop::capture( 'term', \&quantifier ),
                ),
            ),
        ) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14784	14902	
==>}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $embedde <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12557	12671	
==>ct(exact => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  # start of char class (and possible negation)
  $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2390	2499	
==>ine" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2390	2499	
==>ine" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	669	799	
==>e {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13644	13744	
==>('$class:')->send('CREATE' => ($e->get('$canidate'), $e->get('%params'))));
                $e->get(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21662	21755	
==>el of DBI's provided independence
is I<Database Driver Independence>, and not I<Database Langu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21662	21755	
==>el of DBI's provided independence
is I<Database Driver Independence>, and not I<Database Langu <==
2	/Users/nnunley/pugs/util/combine_tests.pl	766	913	
==>sions;
    for my $data (@_) {
        my $revision = $data->{revision};
        push @revisions, $revision;
        for my $file (@{ $data->{meat}{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3108	3238	
==>my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3108	3238	
==>my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1343	1445	
==>ripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "pa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1343	1445	
==>ripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ name => "pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6824	6962	
==>r! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $pref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6824	6962	
==>r! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $pref <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	11	115	
==>er.pm
###
### Originally from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publish <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	12	116	
==>er.pm
###
### Originally from Higher-Order Perl by Mark Dominus, published by Morgan
### Kaufmann Publish <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9567	9700	
==>per(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10403	10536	
==>per(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24492	24585	
==>is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24492	24585	
==>is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20160	20253	
==>e $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20160	20253	
==>e $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Same as authorization_basi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11573	11665	
==>tion will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11631	11723	
==>tion will compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Te <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	317	455	
==>thod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	317	455	
==>thod BUILD ($node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28190	28321	
==>less $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28469	28600	
==>less $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18505	18624	
==>e isa $class";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7602	7724	
==>d {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7602	7724	
==>d {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8156	8291	
==>'' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8168	8303	
==>'' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13194	13297	
==>>subdir( $inst_pkg->package )->subdir('bin');

    ### XXX doesn't return an object...
    return 1 unle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	581	689	
==>packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	581	689	
==>packages used by the Rosetta::Validator module, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37029	37146	
==>>add_handler('&' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 1 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8460	8557	
==>e symbol, and are also unified recursively
multi unify => ('type::operator::binary', 'type::operat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1430	1579	
==>$TODO;
    print STDOUT "$out\n";

    unless ($pass) {
	_diag "# Failed $where\n";
    }

    # Ensure that the message is properly escaped.
    _dia <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2698	2790	
==>sible

p5_start(Z)    --> p5_concatenation(W), p5_alternatives(W, Z), !.
p5_start(noop) --> { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	383	470	
==>ompiler::Regex->compile( $rul );
my $rpc_regexP5 = Pugs::Compiler::RegexPerl5->compile( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12475	12605	
==>ess troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12475	12605	
==>ess troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12987	13127	
==>,
        todo   => $tres->{todo},
	skipped   => $tres->{skip},
        failed => ($tres->{seen} || 0) -
              ($tres->{ok} || 0)
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9483	9591	
==>y ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdigit PO <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10394	10492	
==>ions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10394	10492	
==>ions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRUCTOR".

- `new( clo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1925	2027	
==>header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1925	2027	
==>header ($self: Str $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10742	10860	
==>);
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10742	10860	
==>);
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connected {
      $q <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3689	3794	
==>ect

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3689	3794	
==>ect

=head1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1173	1283	
==>) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1173	1283	
==>) returns Bool {
    my $answer = (all(@items) === any($!members));
    return $answer;
}

method member($self: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11919	12070	
==>\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comme <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11919	12070	
==>\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comme <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3581	3697	
==>esenting the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object ba <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3581	3697	
==>esenting the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object ba <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14281	14411	
==>n::Example {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    wh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7511	7651	
==>r"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7511	7651	
==>r"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3377	3528	
==>\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3841	3992	
==>\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = _parse_depends( \@deps, \@index, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7831	8081	
==>d( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not all <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1132	1382	
==>d( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not all <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1171	1269	
==>es so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3011	3109	
==>es so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2160	2248	
==>ptable->addToken("postfix::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->addTok <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	85	171	
==>se::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	85	171	
==>se::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1264	1403	
==>ason'},
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return $::TestBuilder- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	959	1111	
==>CKAGE__->add_rule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" . $() ,} }
            ' );
    __PACK <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6364	6473	
==>(dot)       --> ".".
p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R)         --> p5_simple_esca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2472	2606	
==>ne>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varl <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2472	2606	
==>ne>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18672	18769	
==>odes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18672	18769	
==>odes') corresponds exactly to the named
parameters of Node.new(); you need to supply its $document <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1997	2141	
==>e = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1997	2141	
==>e = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2825	3026	
==>nd), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2825	3026	
==>nd), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( :density($density) );
        }
    }
    else
    {
        i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25688	25836	
==>CharacterClassEscape>
}
rule CharacterEscape {  # see 15.10.1
      <ControlEscape>
    | <'c'> <ControlLetter>
    | <HexEscapeSequence>
    | <Unic <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4067	4168	
==>steriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not ...
}
rule MultiLineNotForwardSlashOrAs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7767	8023	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7767	8023	
==>(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36532	36629	
==>ntial.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41081	41178	
==>ntial.  A trivial case is where C<@others> is an
empty list, in which case the returned Relation i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24682	24911	
==>asses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->get('?@superclasses')
                            ->apply(
                              block->ne <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4081	4201	
==>re the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4081	4201	
==>re the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10361	10486	
==>$_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10361	10486	
==>$_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{stat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21154	21262	
==>n $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17575	17683	
==>n $S->object(unlessm => 1);
  });

  # look-behind prefix
  $self->add_handler('(?<' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	191	315	
==>bytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	191	315	
==>bytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2608	2703	
==>e::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagicall <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2608	2703	
==>e::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work automagicall <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	911	1006	
==>ta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	911	1006	
==>ta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	334	447	
==>?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	334	447	
==>?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) }
method is_e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	911	1035	
==>( \: <rule_name> { return $<rule_name> . " => 0" } ))->code;

*rule = Pugs::Compiler::Rule->compile(q(<'rule'> <rule_name> <m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9880	9994	
==>.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'proced <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9880	9994	
==>.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'proced <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5597	5700	
==>&{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5597	5700	
==>&{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2803	2995	
==>s Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6280	6472	
==>s Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bool {
    return $other!head <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9382	9500	
==>)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $res <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9382	9500	
==>)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $res <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4639	4752	
==>}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4639	4752	
==>}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2506	2643	
==><zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2506	2643	
==><zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1265	1407	
==>my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $duration = duration($/[29..35]);
            $duration.start = $sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	877	1005	
==>:
        BAREWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_[2], exp1 => $_[1 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	119	238	
==>un::Container::Scalar' => {
    does => [ 'IScalar' ],
    instance => {
        attrs => [ '$:value' ],
        methods <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4199	4362	
==>ey = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4199	4362	
==>ey = map &ord, $key.split }
    
    .zeroize();
    
    # Initialize state table
    my $j = 0;
    for 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13495	13621	
==>SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13495	13621	
==>SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedTex <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	374	486	
==>overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Co <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	374	486	
==>overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Co <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1308	1407	
==>TIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGI <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1308	1407	
==>TIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGI <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1097	1233	
==>i{$topic} = $entry;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    def <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	691	786	
==>ad1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCR <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	691	786	
==>ad1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCR <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	239	490	
==>_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	239	490	
==>_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19293	19430	
==>on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15714	15851	
==>on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22529	22631	
==>)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" :method
    .param pmc pad
    .local str <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9870	9963	
==>Recurrence sets can be combined with union, intersection, difference, and a few
other operatio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9870	9963	
==>Recurrence sets can be combined with union, intersection, difference, and a few
other operatio <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1840	1945	
==>self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1840	1945	
==>self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21122	21213	
==>acle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21122	21213	
==>acle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17094	17196	
==>n Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Rosetta D cod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17094	17196	
==>n Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Rosetta D cod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21327	21432	
==>le Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redist <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21327	21432	
==>le Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redist <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6235	6345	
==>rl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is exp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6235	6345	
==>rl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is exp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11332	11491	
==>\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11332	11491	
==>\r\t !\#\$%\'-;=?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2326	2462	
==>egin with



    package Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2242	2369	
==>egin with

    package Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1564	1713	
==>( dir => $builddir )
#                 or error( "Could not clean out '$builddir'" ), return;
#         }                
#         JIB::Utils->_mkdir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17368	17467	
==>provides these
benefits to developers and users alike.

For some practical examples of Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17368	17467	
==>provides these
benefits to developers and users alike.

For some practical examples of Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29333	29430	
==>Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33885	33982	
==>Relation but that some of its
tuple/Mapping-valued attributes have been split/unwrapped into other <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5493	5597	
==>rns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5493	5597	
==>rns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2353	2454	
==>LSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2353	2454	
==>LSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39987	40090	
==>ines it with the
invocant relation into a new Relation::Example, such that all common attribute names
an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4390	4498	
==>n0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4390	4498	
==>n0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2650	2764	
==>HLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $mo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2650	2764	
==>HLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $mo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10327	10431	
==>n)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might wan <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10327	10431	
==>n)

Stevan "stevan" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might wan <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1402	1535	
==>Precedence, 0, 1 =~ m/[\=\<\>]/ )
    {
      my $tokenTableKey = substr $relativePrecedence, -1, 0;
      $equivalence = $self->token <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	765	870	
==>->{ast} = Pugs::Grammar::Perl6->parse( $self->{source} . ';' );
    };
    carp "Error in perl 6 parser: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6697	6903	
==>ie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_onl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6697	6903	
==>ie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_onl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2030	2141	
==>s Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2030	2141	
==>s Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vt <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3667	3795	
==>children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3667	3795	
==>children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8228	8335	
==>>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.dele <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8228	8335	
==>>)}<channels>.keys;
    %channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.dele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8067	8182	
==>ut the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7796	7906	
==>ut the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it re <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4671	4912	
==>vents<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4671	4912	
==>vents<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33641	33868	
==>l->new('$class' => 'opaque'),                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;               
                $e->create('$return' => b <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3096	3202	
==>= shift;
	my $accum = shift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bless {%$s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8005	8142	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8198	8335	
==>{ 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1093	1200	
==>(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1093	1200	
==>(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20893	21033	
==>=> (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::sig <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43817	43957	
==>=> (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->new(
            $::ENV,
            method::sig <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	502	638	
==>ine 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $self->_top->autoload } or return;
    goto &$autolo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	332	435	
==>Maker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{si <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	332	435	
==>Maker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{si <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	275	406	
==>bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	275	406	
==>bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1592	1721	
==>perclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1797	1926	
==>perclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class c <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	59	187	
==>@ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::lo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26668	26825	
==>e
ability to mutate, and it is false if not.  Looking forward to the near
future where "Relation::Example" is a Role rather than a Class, and some
implementat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14158	14272	
==>ttr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, %attrs);
    return $self;
}

metho <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5487	5620	
==>me type reason)) {
                $details->{$piece} = defined $result{$piece} ? $result{$piece} : '';
            }
            $tot <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1685	1787	
==>he version of this program and exits.
  --help
    Show this help.

Options may be abbreviated to uniqu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21174	21279	
==>ys internally.

It is strongly suggested (but not required) that each Perl package which
uses this would c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21174	21279	
==>ys internally.

It is strongly suggested (but not required) that each Perl package which
uses this would c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2870	3018	
==>des[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matches[0]{abort} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2775	2920	
==>des[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matches[0]{abort} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10615	10716	
==>her contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10673	10774	
==>her contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4543	4659	
==>for %!channels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4543	4659	
==>for %!channels{$chan}<users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3791	3896	
==>xt . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5151	5256	
==>xt . $self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13889	14001	
==>.100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIG <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13889	14001	
==>.100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIG <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4250	4389	
==>ex} ) {
        push @{ $no_index->{'directory'} }, 'inc';
        require YAML;
        local $YAML::UseHeader = 0;
        $dump .= YAML:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6540	6672	
==>eturn $/{'Pugs::Grammar::Term.sub_call'}->() }
            |
                ### Test-0.0.6
                <Pugs::Grammar::Term.cpan <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41114	41226	
==>usage and patch
code, that supports embedding of Template modules into the same files as
program code, rather tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41114	41226	
==>usage and patch
code, that supports embedding of Template modules into the same files as
program code, rather tha <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6580	6730	
==>hat script failed.  Its keys are these:

    name        Name of the test which failed
    estat       Script's exit value
    wstat       Script's wai <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	44	145	
==>s qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	44	145	
==>s qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16900	17006	
==>Module.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16900	17006	
==>Module.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 mod <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1844	1951	
==>: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1844	1951	
==>: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14275	14372	
==>ing an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14275	14372	
==>ing an exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=ite <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10973	11059	
==>imple_escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_sequence(ch <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	342	457	
==>NDC__
#include <windows.h>
#endif
int
main(int ac, char **av)
{
    int i;
#ifdef __BORLANDC__
    char *s = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	825	933	
==>bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	825	933	
==>bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	556	670	
==>> sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	653	767	
==>> sub{ $match = (substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3230	3352	
==>ub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3230	3352	
==>ub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	986	1088	
==>e" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	986	1088	
==>e" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3886	3972	
==>ppa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignment <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3886	3972	
==>ppa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignment <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1974	2076	
==>it one by extracting the 
last component of the calling function's package name.  (For example, if 
a f <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1974	2076	
==>it one by extracting the 
last component of the calling function's package name.  (For example, if 
a f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10900	10996	
==>ta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'ge <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10900	10996	
==>ta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22645	22745	
==>* Bugs...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this current versi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5726	5857	
==>' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10037	10168	
==>' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15398	15512	
==>ueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15398	15512	
==>ueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if defined $topic {
        enqueue "TO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	456	557	
==>???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	456	557	
==>???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10326	10476	
==>utoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10326	10476	
==>utoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	457	576	
==>eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	457	576	
==>eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1134	1242	
==>DO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1134	1242	
==>DO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2886	3004	
==>mar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3026	3144	
==>mar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12952	13137	
==>t( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13231	13416	
==>t( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'variable' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1331	1423	
==>::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1331	1423	
==>::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1115	1211	
==>pr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Variabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1115	1211	
==>pr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <Variabl <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	124	249	
==>SIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with burst <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	124	249	
==>SIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with burst <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22978	23070	
==>>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22978	23070	
==>>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6360	6456	
==>t;
	$self->{instance}->right;
}

sub free_vars {
	my $self = shift;
	$self->{instance}->free_vars <==
2	/Users/nnunley/pugs/util/importgraph.pl	1519	1619	
==>UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/$regexp/;
  for my $mod (keys %m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1072	1187	
==>x accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1072	1187	
==>x accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1783	1914	
==>onth = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1783	1914	
==>onth = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Da <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1386	1552	
==>is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1386	1552	
==>is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.de <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1117	1273	
==>($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_package <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1117	1273	
==>($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_package <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2167	2281	
==>usCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2167	2281	
==>usCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2205	2319	
==>r => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2205	2319	
==>r => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    pre <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	713	815	
==>ays => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12' <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	713	815	
==>ays => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4017	4146	
==>mmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Orga <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4017	4146	
==>mmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Orga <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4594	4788	
==>@!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4594	4788	
==>@!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'set_name <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10988	11090	
==>ol`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11046	11148	
==>ol`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20079	20169	
==>t>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20079	20169	
==>t>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2085	2192	
==>r('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # . <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2085	2192	
==>r('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # . <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22135	22237	
==>ntation is pending.>

=head1 DESCRIPTION

Relation::Example provides a minimal in-RAM
storage implement <==
2	/Users/nnunley/pugs/util/package-osx.pl	6134	6231	
==>6::Overview::Object.3
        /usr/local/man/man3/Perl6::Overview::Object.3pm
        /usr/local/m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3702	3824	
==>my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3690	3812	
==>my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38913	39006	
==>(?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=head2 Escape Sequences

If you are creating a new e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	926	1031	
==>obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# En <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	914	1019	
==>obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# En <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1878	1995	
==>tempdir( CLEANUP => 1 );
#         my $dirname = basename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20471	20576	
==>rint join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.clo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	180	291	
==>s %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $ <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	180	291	
==>s %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37856	37949	
==>ule by the given module name
is already loaded, it tries to invoke $module_name.get_text_by_ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37856	37949	
==>ule by the given module name
is already loaded, it tries to invoke $module_name.get_text_by_ke <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5317	5424	
==>rint "Skipping conversion rule: $c\n";
}
}

if($srcfile){
    open my $f, '>', "${srcfile}.p6"
        or "C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2608	2701	
==>"reduce(" . (ref($node) ? $node : qprintable($node)) .") = $res (type = " . $self->display_typ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16637	16745	
==>ub round($n) is primitive is safe {
        Num::round_gen($n, &Num::do_round)
    }

    sub truncate($n) is <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3689	3795	
==>mbol = $body;");

	return $symbol;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = @ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2336	2429	
==>AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simm <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2336	2429	
==>AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5253	5381	
==>> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5253	5381	
==>> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18117	18222	
==>ompiler is called it only gets the source code that it should be
looking at.

This section describes the r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18117	18222	
==>ompiler is called it only gets the source code that it should be
looking at.

This section describes the r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6208	6307	
==>entation of most block and stream ciphers to a constructor, 
the cryptographic core, and a couple at <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6208	6307	
==>entation of most block and stream ciphers to a constructor, 
the cryptographic core, and a couple at <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3813	3908	
==>@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3813	3908	
==>@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17100	17318	
==>2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link)), id=>0+$link, 
                         title => $link->{whole},
                         class => 'testlink');
                # $b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2450	2547	
==>urns the version of a certain perl binary.
It does this by actually running a command.

Returns th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35501	35591	
==>oduct>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40051	40141	
==>oduct>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	470	610	
==>ter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	470	610	
==>ter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $test) };  
    }

    # ge <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	454	597	
==>urns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:output;

        my $output = @:output.join( "\n" );
        @:outpu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2630	2744	
==>ap:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2630	2744	
==>ap:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23244	23369	
==>??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19665	19790	
==>??{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2569	2663	
==>this module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2569	2663	
==>this module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1483	1602	
==>str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return @ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1483	1602	
==>str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unescape($_) };
        
        return @ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3510	3657	
==>}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <MultiLineComment>
    | <SingleLin <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9938	10062	
==>tem(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - should permit \misc, no?
set_metachar("\\").
set_metachar("]").
set <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46085	46249	
==>my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:name'), $e->get('?$name'));
                  }));
                $e->get('$self:')- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4905	5071	
==>{
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4905	5071	
==>{
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a warning if more than 24 hours according <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18115	18211	
==>ng".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18115	18211	
==>ng".  No parsing or ambiguity involved.
By contrast, if a program simply returned words for the u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8309	8442	
==>ar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8309	8442	
==>ar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ 'assignment_s <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	485	623	
==>= $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	485	623	
==>= $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2251	2399	
==>() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2251	2399	
==>() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6251	6361	
==>unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xV <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6251	6361	
==>unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xV <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16626	16746	
==>nstance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16626	16746	
==>nstance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @q = splic <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2268	2396	
==>à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2268	2396	
==>à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6031	6157	
==>f $cc;
    return $S->object(alnum => 1);
  });

  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5065	5166	
==>1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail or die "error: file '$ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	692	839	
==>ry.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	692	839	
==>ry.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6238	6377	
==>"pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# Body:       "; my $body =     traverse_ast ( %pad<"pBody"> );
        dbg "# IsMu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3923	4050	
==>timize {
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i] =~ /^(<.*?>)/;
    #print " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10897	10993	
==>('$class')".
		 "->add_method($namestr".
		 "=> ::make_${k}(do{my \$__f".
		 "= $code_val; sub{\$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8683	8790	
==>G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1843	1941	
==>(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname})\s*=\s*\\(${re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22383	22493	
==>our path that packages could be installed in.

Generally, when a program package would return a code-key to ind <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22383	22493	
==>our path that packages could be installed in.

Generally, when a program package would return a code-key to ind <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1005	1107	
==>n
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $fil <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1005	1107	
==>n
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $fil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2016	2186	
==>r . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp dir
        system( qq[ta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3546	3711	
==>r . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp dir
        system( qq[ta <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9979	10085	
==>alue::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9979	10085	
==>alue::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2357	2466	
==>->{errnum};
}


sub error {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16653	16758	
==>this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16653	16758	
==>this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27647	27742	
==>If a Relation::Example has zero attributes, then
C<$body> may be an Set with a single member tha <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7069	7163	
==>ms, $pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLValue, $pIsMulti, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	0	104	
==>package Pugs::Grammar::Category;
use warnings;
use strict;

# TODO 
#  ok - is tighter/looser/equiv 
#  i <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2610	2852	
==>$_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= cho <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2610	2852	
==>$_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim .= cho <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	69	170	
==>pshot of the prolog regex engine I
started over the weekend.  A "look at what I'm up to".

It passes m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9297	9407	
==>cal $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9297	9407	
==>cal $_ = $text;
        my $return = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2594	2721	
==>tant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2787	2914	
==>tant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7719	7818	
==>dir, $path);
    my $index_file =  catfile($output_path,"index.html");
    eval { mkpath( $output_pa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7468	7558	
==>native(noop) --> ")". 
p5_condition_test(lookahead(R))      --> p5_elemental(lookahead(R)). <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4699	4876	
==>P::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if mu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4699	4876	
==>P::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if mu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1832	1985	
==>me);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permuta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1832	1985	
==>me);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permuta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	769	904	
==>nshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unsh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	769	904	
==>nshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unsh <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6137	6275	
==>ors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } el <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4639	4777	
==>ors/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } el <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	532	705	
==>r
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	822	979	
==>r
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27923	28017	
==>ethod returns the Message Variable value (a string) associated with
the variable name specified <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27923	28017	
==>ethod returns the Message Variable value (a string) associated with
the variable name specified <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9830	9928	
==>can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

R <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9830	9928	
==>can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `complement()`

R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6173	6372	
==>t {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6173	6372	
==>t {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9596	9709	
==>xt = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9596	9709	
==>xt = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9244	9405	
==>d,
                    bonus       => $results{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{skip_reason} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12365	12467	
==>params);
    $self.BUILDALL($params);
    return $self;
}

(method bless ((opaque $class:) (str $canida <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18836	18949	
==>definition.  While it is obvious that people who would be writing the text
would have to know how to edit Perl fil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18836	18949	
==>definition.  While it is obvious that people who would be writing the text
would have to know how to edit Perl fil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9493	9621	
==>}
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9493	9621	
==>}
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1084	1193	
==>=> 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1084	1193	
==>=> 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	833	934	
==>t non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	844	945	
==>t non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11382	11518	
==>m . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ': <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11376	11512	
==>m . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ': <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2773	2870	
==>never
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Nu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2773	2870	
==>never
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count(Nu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	276	382	
==>Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./ge <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	276	382	
==>Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3677	3776	
==>arams> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on these m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3677	3776	
==>arams> -> C<clear>

=back

Please read the HTTP::Query documentation for more information on these m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19427	19543	
==>scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines with <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19427	19543	
==>scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo is a Module::Compile subclass.

The lines with <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2627	2727	
==>osed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2627	2727	
==>osed () returns Bool   { return $.set.end_is_closed }
method stringify ()     returns String { return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	301	445	
==>ct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	785	929	
==>ct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23723	23819	
==>be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23723	23819	
==>be used in any order, or not used at all, or
used multiple times.  Locale::KeyedText is generally <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3457	3547	
==>\A(?:ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	953	1060	
==>ng to $tail every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alterna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	916	1018	
==>ng to $tail every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alterna <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4519	4617	
==>ivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4519	4617	
==>ivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4557	4656	
==>fference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmeti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4557	4656	
==>fference ($self: $set ) {
    return $self.intersection( $set.complement );
}

# --------- arithmeti <==
2	/Users/nnunley/pugs/util/claim_drift.pl	510	616	
==>no|n);

if (! -d "..${FS}DrIFT") {
    warn <<".";
*** No DrIFT directory found. Make sure you are in the t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33980	34084	
==>f the tuples that are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38530	38634	
==>f the tuples that are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33136	33225	
==>ic_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37686	37775	
==>ic_difference>.

=item C<exclusion (Relation *@others) returns Relation>

This multi-metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7515	7652	
==>name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7515	7652	
==>name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	685	784	
==>e_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	891	990	
==>e_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5614	5748	
==>ix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3602	3751	
==>x - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3602	3751	
==>x - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_chi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16348	16477	
==>le -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code bac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16348	16477	
==>le -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and give p5 code bac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1299	1405	
==>(containers)



the Code part consists of a Pad, a Sig and a Body.



the Pad contains My/State/Temp marker <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1243	1345	
==>(containers)

the Code part consists of a Pad, a Sig and a Body.

the Pad contains My/State/Temp marker <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16329	16443	
==>== any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19806	19920	
==>== any( $other!body.values )
        } ),
    );
}

my method _product (Relation $other!) returns Relation {
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2337	2471	
==>_PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'left',
    #    precedence => 'equal',
    #    other => 'prefix:<s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1080	1180	
==>ty.

The complementary functions are emulated using iterations.

- `new( closure_next => sub {...}, c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1080	1180	
==>ty.

The complementary functions are emulated using iterations.

- `new( closure_next => sub {...}, c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1579	1742	
==>d BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # A <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1579	1742	
==>d BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # A <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6341	6450	
==>te ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6341	6450	
==>te ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11857	11980	
==>er
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11851	11974	
==>er
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	615	732	
==>melocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	615	732	
==>melocal(0,0,0,1,0,70);
    }
    
    ## Creation and destruction
    submethod BUILD (Str $.file, Bool $.autosave = 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	322	482	
==>ttribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	322	482	
==>ttribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	106	218	
==>in Perl 6 ist der xx Operator
# so wie x Strings wiederholt, wiederholt xx listen:
@a = (1, 2) xx 2 # (1, 2, 1, 2 <==
2	/Users/nnunley/pugs/util/package-osx.pl	2623	2724	
==>r/bin/p6doc /usr/local/bin/p6doc
        /usr/local/usr/bin/pugs /usr/local/bin/pugs
        /usr/loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14567	14668	
==>lf->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8769	8870	
==>lf->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3337	3442	
==>s a date /without a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3337	3442	
==>s a date /without a time/.

Because it is just a date, it does not handle time zones or leap
seconds.

All <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2220	2341	
==>pile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2437	2558	
==>pile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	82	348	
==>on't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	82	348	
==>on't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6716	6939	
==>match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6716	6939	
==>match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1135	1255	
==>t the meta info
        ### XXX extract to $Builddir first, THEN copy later if all goes well
        {   print "Writing m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10191	10296	
==>vn.openfoundry.org/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http:// <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5882	5997	
==>0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    & <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5882	5997	
==>0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    & <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	671	799	
==>second),
                             :tz($tz) );
}

# convert from an iso date
multi sub date( Str $iso8601 ) returns Date::Greg <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4424	4548	
==>ub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get al <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4424	4548	
==>ub pmc_can_output {
    my ($class, $file_path) = @_;
    return $file_path =~ /\.pm$/;
}

# We use a source filter to get al <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9319	9412	
==>lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code
  
  class Test::Builder::T <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2131	2222	
==>lt>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6440	6543	
==>eturns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6440	6543	
==>eturns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1915	2090	
==>e => 'equal',
        other => 'prefix:<+>',
    );
    
    # XXX - BUG - collision with &name
    
    #~ __PACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37421	37512	
==>' => 'hash')));
$::Class->send('add_attribute', (symbol->new('%:attributes')      => attribu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2264	2382	
==>Perl subroutine
    Method      Perl method
    Submethod   Perl subroutine acting like a method
    Macro       Perl c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	683	777	
==>tings using the PUGS_BUILD_OPTS
environment variable.

Current settings:
.
    print PugsBuild: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2169	2286	
==>, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2169	2286	
==>, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15391	15490	
==>expect this kind of
value when the header value is set.

=over 4

=item $h.date

This header represe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15391	15490	
==>expect this kind of
value when the header value is set.

=over 4

=item $h.date

This header represe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4039	4159	
==>ends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4097	4217	
==>ends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4514	4633	
==>name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_pars <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4360	4475	
==>name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_pars <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8236	8361	
==>];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8236	8361	
==>];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21225	21327	
==>annel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21225	21327	
==>annel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16149	16277	
==>unimplemented.
      ref   => sub { $as_p6obj_complain->("ref") },
      glob  => sub { $as_p6obj_complain->("glob") },
      lva <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17677	17775	
==>refer to an error condition by an
internal code which is guaranteed to be unique for a situation, a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17677	17775	
==>refer to an error condition by an
internal code which is guaranteed to be unique for a situation, a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5951	6045	
==>);
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $F <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10208	10302	
==>);
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $F <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11313	11438	
==>nc) = @_;
    @inc = @INC unless @inc;

    if( $self->{_is_vms} ) {
        # VMS has a 255-byte limit on the length of %*ENV <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8945	9070	
==>branch => 1,
    }, $class;
  }

  sub qr {
    my $self = shift;
    join $self->raw, map join("", map $_->qr, @$_), @{ $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5159	5262	
==>ot a space)
  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3482	3603	
==>if defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3482	3603	
==>if defined( $start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10797	10948	
==>undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_aut <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10797	10948	
==>undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_aut <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11203	11323	
==>s Bool is primitive is unsafe is builtin {
        Pugs::Internals::hSeek(self, $position, $whence);
    }
}


class Pipe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1582	1677	
==>_subrule);
    $optable->addToken("term:<?", "term:", "nows", &parse_subrule);
    $optable->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2778	2919	
==>q '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2778	2919	
==>q '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25769	25863	
==>nts.

Any versions of Rosetta that you modify and distribute must carry prominent
notices stati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25769	25863	
==>nts.

Any versions of Rosetta that you modify and distribute must carry prominent
notices stati <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10805	10910	
==>to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10805	10910	
==>to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9065	9161	
==>4
      <SingleStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharacter {  # see 7 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8704	8804	
==>s.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8704	8804	
==>s.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recurrence o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32616	32722	
==>essage objects on demand into user-readable
message strings, using data from external Template modules as a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32616	32722	
==>essage objects on demand into user-readable
message strings, using data from external Template modules as a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4726	4837	
==>che353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4726	4837	
==>che353{$chan} by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9022	9112	
==><http://dev.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT

Copyright 2006 b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18259	18354	
==>ot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18259	18354	
==>ot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1156	1333	
==>bclass/inherit!
my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2107	2213	
==>r\n" if $debug_warnings;
		my $res = eval($expr); print STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		m <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2574	2667	
==>->new($test_output);
    return $self->_analyze_iterator($name, $it);
}


sub _analyze_iterato <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1015	1155	
==>\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1015	1155	
==>\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    } <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	376	501	
==>q/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	376	501	
==>q/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10222	10348	
==>rs_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10222	10348	
==>rs_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8310	8435	
==>have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17304	17422	
==>Str::ucfirst    (  Str $string              --> Str )
 multi Str::ucfirst    ( Str $string = CALLER::<$_> --> Str )

Pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19562	19658	
==>le::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-col <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19562	19658	
==>le::KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-col <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5830	5977	
==>g up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        print -d <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7203	7315	
==>um} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    my $t = timeit( 1, sub {
        $self->SUPER::r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21147	21242	
==>. This means that people who install your
module distribtution do not need to have the compilers <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21147	21242	
==>. This means that people who install your
module distribtution do not need to have the compilers <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37222	37317	
==>ethod takes the name of a Perl package in its positional parameter
$module_name (a string) and c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37222	37317	
==>ethod takes the name of a Perl package in its positional parameter
$module_name (a string) and c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10104	10232	
==>ame'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10098	10226	
==>ame'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4607	4716	
==>ect, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the d <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4607	4716	
==>ect, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_year()`

Returns the d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8636	8731	
==>(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2461	2556	
==>(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	207	332	
==>oint;
# use Moose;
#
# has x => (is => 'rw');
# has y => (is => 'ro');
#
# sub clear {
#  my $self = shift;
# #  $self‐>{x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4251	4390	
==>atches[0]{capture};

            push @$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4121	4257	
==>atches[0]{capture};
            push @$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4021	4145	
==>eshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-ag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4021	4145	
==>eshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-ag <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15726	15829	
==>ray of Rosetta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15726	15829	
==>ray of Rosetta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if it has any. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23753	23852	
==>undled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 modul <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23753	23852	
==>undled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1051	1188	
==>less defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1051	1188	
==>less defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	487	614	
==>s{'$.todo'};
            $params{'$.reason'}      = '' unless exists $params{'$.reason'};
            $params{'$.description'} = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10509	10629	
==>on p6-l.

    multi sub open (Str $filename, Str :$layer, Bool :$r, Bool :$w, Bool :$rw,
            Bool :$a) returns IO <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1972	2084	
==>res into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2852	2964	
==>res into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1032	1129	
==>> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1032	1129	
==>> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameters:  a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6468	6587	
==>an0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6468	6587	
==>an0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5702	5917	
==>d" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (blo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7464	7679	
==>d" ($e get ("$label"))))))) 
                                     })))
                        ($e set ("$current" ((($e get ("&dispatcher")) do))))
                     })) do_while 
                            (blo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6390	6496	
==>thod;
}

(method add_method ((opaque $self:) (symbol $label) (method $method)) returns nil
    ((($self: ge <==
2	/Users/nnunley/pugs/misc/S29_round.pl	337	456	
==>m::round_half_up_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, up below 0
    given abs($x) - flo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29890	29983	
==>ew Relation::Example has all
of the tuples of the original (or rather, the corresponding proje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13866	13978	
==>times double these
    return $result;
}

*run_perl = \&runperl; # Nice alias.

sub DIE {
    print STDERR "# @_\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18667	18763	
==>tion or package, with one or more
text strings to show human users.  This association would norma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18667	18763	
==>tion or package, with one or more
text strings to show human users.  This association would norma <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2403	2513	
==>ds;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as li <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2403	2513	
==>ds;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	573	699	
==>substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    }) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	670	796	
==>substr($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    }) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	63	179	
==>rt {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	63	179	
==>rt {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8022	8236	
==>ods or subs
        
        return " " . _mangle_ident( $n->{sub}{bareword} ) .
            '(' .
            join ( ";\n", 
                map { _emit( $_ ) } @{$n->{param}} 
            ) .
            ') <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	217	326	
==>EST );

sub Rx :lvalue		{ $_[0]{regex} }
sub RxPOS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	891	985	
==>ble with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	891	985	
==>ble with each byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering an <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1185	1319	
==>detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless -e $pat <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1185	1319	
==>detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    return () unless -e $pat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	318	423	
==>push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    pu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	318	423	
==>push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1677	1771	
==>:Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Reg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1677	1771	
==>:Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Reg <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2691	2787	
==>ta streams are enciphered with the same key, the encryption 
can be removed by XORing them togeth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2691	2787	
==>ta streams are enciphered with the same key, the encryption 
can be removed by XORing them togeth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2927	3042	
==>',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "grammar: \n", $cat->emit_perl6_g <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6846	6995	
==>(?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public li <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6903	7052	
==>(?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public li <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2970	3074	
==>s warnings as we are not checking manifest here.

    local $SIG{__WARN__} = sub {1};
    require ExtUtil <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5640	5743	
==>rser::__object__;
  @Regexp::Parser::__object__::ISA=qw(Hacks);
}  
{
  # \A ^ \B \b \G \Z \z $
  packag <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8644	8780	
==>mbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8644	8780	
==>mbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2039	2196	
==>p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2256	2413	
==>p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $pe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5564	5714	
==>y,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => cor <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5564	5714	
==>y,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => cor <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11032	11136	
==>ds, 
because it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11032	11136	
==>ds, 
because it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_un <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9029	9231	
==>8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9029	9231	
==>8b/&#8249;/;
        $string ~~ s:P5:g/\x9b/&#8250;/;
        
        if ($newlines) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	802	896	
==>osetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	802	896	
==>osetta for English

=head1 VERSION

This document describes Rosetta::L::en version 0.210.1.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23657	23758	
==>intf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or not used at <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23657	23758	
==>intf'); whereas, Locale::KeyedText has
named variables, which can be used in any order, or not used at <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1175	1306	
==>sis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "I <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1175	1306	
==>sis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "I <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3178	3281	
==>ew( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3178	3281	
==>ew( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	474	601	
==>ile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1198	1324	
==>ile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	36	154	
==>umentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&arra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	36	154	
==>umentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&arra <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15052	15161	
==>mob["cname"] = cname
    pos = $I0
    goto end
  numeric:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	336	436	
==>Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	336	436	
==>Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28149	28248	
==>ues of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified ver <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28149	28248	
==>ues of this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified ver <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33611	33704	
==>n>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38161	38254	
==>n>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2628	2762	
==>eop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2821	2955	
==>eop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14190	14302	
==>rs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17667	17779	
==>rs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9856	9955	
==>ecode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.ma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9856	9955	
==>ecode_entities($string); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7099	7208	
==>e") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7099	7208	
==>e") }
method content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1946	2151	
==>oop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1946	2151	
==>oop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	905	1046	
==>uffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	905	1046	
==>uffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $buff <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14794	14910	
==>tor.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14794	14910	
==>tor.translate_message(
            Locale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_var <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3621	3807	
==>ure')) {
            my $ref = reference->new($val);            
            $closure->do(list->new($ref));
            $val = $ref->fetch;            
        }
        elsif ($closure-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	643	747	
==>/ version of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.004;
use str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9843	9982	
==>$S->object(eol => eos => '$');
  });

  $self->add_handler('$$' => sub {
    my ($S) = @_;

    if ($S->match_scalar) {
    }

    return $S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1125	1227	
==>c_dirs);
}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1211	1311	
==>urns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1211	1311	
==>urns Str is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_pa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4327	4419	
==>okens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4327	4419	
==>okens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21011	21120	
==>f which is an
unordered set of named attributes; all tuples in a Relation are of the same
degree, and the attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25563	25672	
==>f which is an
unordered set of named attributes; all tuples in a Relation are of the same
degree, and the attr <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13772	13898	
==>l;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1252	1378	
==>l;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1131	1235	
==>>add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2296	2400	
==>>add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17652	17735	
==>m(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2469	2598	
==><zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

r <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2469	2598	
==><zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1284	1399	
==>[\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a n <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1284	1399	
==>[\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between an ident, a n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6187	6301	
==>Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6187	6301	
==>Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2439	2620	
==>=> $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/;
            return $grammar->no <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	58	145	
==>/site_perl/5.8.7/Module/Install/Base.pm"
package Module::Install::Base;

# Suspend handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9329	9440	
==>ss $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11644	11755	
==>ss $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5153	5289	
==>- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstar <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5153	5289	
==>- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstar <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8449	8576	
==>se of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8449	8576	
==>se of Unicode
  # characters.  They may not be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7140	7251	
==>);
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7140	7251	
==>);
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17150	17249	
==>otherwise use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17150	17249	
==>otherwise use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedTex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	944	1088	
==>uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	944	1088	
==>uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	188	307	
==>-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	188	307	
==>-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24306	24394	
==>::OnPerl5::X1::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@args <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7962	8068	
==>e a routine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7962	8068	
==>e a routine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16154	16250	
==>et from the named parameter $node_type (a
string); the optional named parameter %attributes (a ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16154	16250	
==>et from the named parameter $node_type (a
string); the optional named parameter %attributes (a ha <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6451	6537	
==>ft);

		Scalar::Util::blessed($type) and $type->isa("Blondie::TypeSafe::Type::Placehold <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16795	16894	
==>TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16795	16894	
==>TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2597	2754	
==>checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2597	2754	
==>checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1728	1892	
==>::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Blondie::Node::Map;
    use base qw/Blondie::Map Blondie::Node/;
}

{
    package Blondie::T <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7914	8031	
==>$A.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false;
    if $A.property_value.exists($P) {
        if $P eq 'len <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15450	15685	
==>erm1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15729	15964	
==>erm1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21366	21473	
==>dt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it under the same <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21366	21473	
==>dt (port to Perl 6).

This library is free software; you can redistribute it and/or
modify it under the same <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3024	3130	
==>..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3024	3130	
==>..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2311	2415	
==>ush @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2311	2415	
==>ush @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28395	28487	
==>ation::Example's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6836	6970	
==>';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$pos <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6836	6970	
==>';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$pos <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21499	21597	
==>et. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21499	21597	
==>et. All rights reserved.

This program is free software; you can redistribute it and/or modify it
u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2719	2815	
==>name' and 'value' pairs.  This
method should be called before any other methods, as it initialise <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2719	2815	
==>name' and 'value' pairs.  This
method should be called before any other methods, as it initialise <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10034	10135	
==>t, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
validatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10034	10135	
==>t, and input that
fails immediate evaluation will not be set at all.  The scope of immediate
validatio <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	870	1052	
==>signature->isa('closure::params')) {
        $signature = closure::signature->new(
            params  => $signature,
            returns => 'type'
        );
    }    
    
    my $l <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17678	17772	
==>&test_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback} = \&strap_callback;
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20792	20926	
==>xPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17213	17347	
==>xPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    pu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7622	7748	
==>Punctuator {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | < <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	132	239	
==>s, as this is what 2.0 is based on
# this way the other mini-meta-model can be experimented
# on without loo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9045	9149	
==>(45)],L1)}, !.
p5_charset_def_x(L0,L0) --> {true}.
p5_charset_items([Item1|MoreItems])    --> p5_charset_ <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	15	109	
==>0.01;

use File::Spec <catfile splitpath>;

our @.known_parsers;
my $parser_details = 'ParserDe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4647	4937	
==>}                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF] <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4647	4937	
==>}                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	24	129	
==>Test::More functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $noplan;

$TODO = 0 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8099	8213	
==>TD XHTML 1.1//EN"
  "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1589	1686	
==>perimental compiler for Perl 6

=head1 DESCRIPTION

This module provides an implementation for <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4394	4516	
==>e[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method gene <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4394	4516	
==>e[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method gene <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5602	5733	
==>d match the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5602	5733	
==>d match the recursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11595	11723	
==>\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "N <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11595	11723	
==>\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "N <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6477	6592	
==>lf.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6477	6592	
==>lf.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $spa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6012	6105	
==>oined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6012	6105	
==>oined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{$e <==
2	/Users/nnunley/pugs/util/package-osx.pl	8744	8859	
==>s =~ s#/[^/]+$##;
        make_dir("$dest$dirs") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25911	26007	
==>rk (!).

B<These functions can only work if called with ampersands, and only if
the parser object <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	494	594	
==>readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	494	594	
==>readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $co <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	890	984	
==>c.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	890	984	
==>c.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for more <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8118	8213	
==>.

C<@array> is considered single dimensional. If it is in fact multi-
dimensional, the values r <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	274	368	
==>T=qw(get_int);
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-conf <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15543	15637	
==>o export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15543	15637	
==>o export the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2586	2689	
==><?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2770	2873	
==><?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	270	392	
==>ub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	270	392	
==>ub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str $dir) returns Array is export { sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1579	1702	
==>[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1579	1702	
==>[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16987	17127	
==>ot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _create_fmts($failedtests);

        # Now w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16873	16972	
==>ite some components of their application in Rosetta D (as
either named modules or anonymous routines <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16873	16972	
==>ite some components of their application in Rosetta D (as
either named modules or anonymous routines <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	158	265	
==>nc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTALL: for my $archive (@AR <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29087	29196	
==>extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33639	33748	
==>extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5063	5215	
==>lf.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigge <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5063	5215	
==>lf.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting start bigge <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	199	295	
==>print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	199	295	
==>print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3274	3525	
==>Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3274	3525	
==>Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive command shell for the Rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8336	8463	
==>$match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8529	8656	
==>$match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	113	214	
==><∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	113	214	
==><∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	681	837	
==>s {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	654	804	
==>s {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capt <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	989	1103	
==>GolfScore {
   my $script = shift;
   open(FF, $script) or die "error: open '$script'";
   my $golf = 0;
   while ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11870	12007	
==>tr $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11870	12007	
==>tr $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4087	4200	
==>al_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4936	5049	
==>al_perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5845	5962	
==>\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "mess <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5845	5962	
==>\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "mess <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23509	23604	
==>al dependencies (it is very simple).

There are other differences.  Where other solutions take v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23509	23604	
==>al dependencies (it is very simple).

There are other differences.  Where other solutions take v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12029	12136	
==>c;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4672	4779	
==>c;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2333	2461	
==>trol characters and Unicode.
# Trying to avoid setting $_, or relying on local $_ to work.
sub display {
    my @result;
    fore <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14224	14332	
==>q 'statement_control';
    
            $res .= "    push \@Grammar::Perl6::$category, \\&{'$prefix:<$id>'};\ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2224	2327	
==>gs{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print((( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2202	2305	
==>gs{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print((( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3093	3193	
==>TTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Sim <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3093	3193	
==>TTP::Server::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Sim <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8776	8881	
==>sers{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8776	8881	
==>sers{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7582	7712	
==>e $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7582	7712	
==>e $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $child.traverse($func);
    }
}

method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4368	4482	
==>( from => $file|$dir, to => $target );

Moves a file or directory to the target.

Returns true on success, false on <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Equivalence.pm	106	208	
==>use warnings;

use Scalar::Util 'blessed';
use Carp 'confess';

use base 'type';

# equality

sub equal <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	77	178	
==>ange returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * test <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	77	178	
==>ange returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * test <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2829	2982	
==>t($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2829	2982	
==>t($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty () {
    $.Parser. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1898	2030	
==>nt   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1898	2030	
==>nt   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1485	1632	
==>data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1485	1632	
==>data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	971	1153	
==>f every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	971	1153	
==>f every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # T <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16760	16845	
==>Re2,F0,F1,B0,B1,E0,E1).

rm(intersection(Re1,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3078	3177	
==>turns the value of the parameter named C<$name>.  If called in List context,
it will return a list o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3078	3177	
==>turns the value of the parameter named C<$name>.  If called in List context,
it will return a list o <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	321	427	
==>c::Functions ':ALL';
use File::Path;
use File::Basename;
use Getopt::Long;
use IO::File;
use HTML::Template <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1512	1675	
==>$lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1512	1675	
==>$lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %standard_case{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5635	5722	
==>gion_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE A <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5635	5722	
==>gion_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE A <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	193	300	
==>ed June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

Wit <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	193	300	
==>ed June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

Wit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19768	19903	
==>$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &Rx <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16189	16324	
==>$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &Rx <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10752	10962	
==>assed,
          ?$.number     =     0,
          ?$.diagnostic = '???',
      ) {}
  
      method status returns Hash
      {
          return
          {
              passed      => $.passed,
              d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31079	31178	
==>t with which it was created.

=item flags

The flags for the object.

=back

The following attribute <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14485	14601	
==>code) is primitive is safe {
    $code($obj);
    $obj;
}

# (Unspecced) facade class supplying localtime
class Time: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10920	11068	
==>ffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10920	11068	
==>ffic   = 0;
        $last_autoping  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	177	271	
==>ig --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=>< <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	330	424	
==>ig --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=>< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3682	3793	
==>iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3899	4010	
==>iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2063	2182	
==>ype;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2063	2182	
==>ype;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12823	12926	
==>with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12881	12984	
==>with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2644	2755	
==>end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2644	2755	
==>end < @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2582	2716	
==>return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2582	2716	
==>return 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8287	8389	
==>ze $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8287	8389	
==>ze $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	584	681	
==>/normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	584	681	
==>/normalize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10831	10972	
==>amed;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10825	10966	
==>amed;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9032	9180	
==>ds() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9090	9238	
==>ds() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	439	557	
==>ED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	439	557	
==>ED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1959	2076	
==>$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2176	2293	
==>$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	148	262	
==>set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	148	262	
==>set;
}

=for LATER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1753	1854	
==>leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method size ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1753	1854	
==>leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!children }

method size ($ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	348	474	
==>} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	348	474	
==>} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1345	1451	
==>d, a Sig and a Body.



the Pad contains My/State/Temp markers for container

allocation, as well as the co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1287	1390	
==>d, a Sig and a Body.

the Pad contains My/State/Temp markers for container
allocation, as well as the co <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9522	9635	
==>ailable: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $c <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9522	9635	
==>ailable: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1609	1715	
==>atchet_x1  => sub{$rpcr2->match('abc') for 1..20},
    fast_x10     => sub{$x->('abc')         for 1..200} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11297	11458	
==>amed;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11291	11452	
==>amed;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3996	4228	
==>ems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3996	4228	
==>ems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21322	21423	
==>patcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44229	44330	
==>patcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	233	388	
==>buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	233	388	
==>buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33216	33321	
==>ulti-method is the N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37766	37871	
==>ulti-method is the N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns R <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9558	9662	
==>ethod complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9558	9662	
==>ethod complement ($self: ) returns List of Span {
    my $span0 = $self.span;
    my @span0 = $span0.comp <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10646	10743	
==>args .= "'\$.body'=>$code_body";
    my $code_val = "p6_meta('$kind')->new($code_args)";
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2297	2427	
==>",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2297	2427	
==>",map -> $n,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1604	1758	
==>\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1604	1758	
==>\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknown node: ", Dumper( $n )
        unl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10527	10621	
==>hod decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, : <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10527	10621	
==>hod decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, : <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3643	3739	
==>ntersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3643	3739	
==>ntersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36290	36385	
==>LibEng','MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36290	36385	
==>LibEng','MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19368	19461	
==><SUPER::>
inside F<MyClass::__object__>.

=item Bug Fixes

Character classes weren't closing p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25105	25252	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25384	25531	
==>tch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16500	16599	
==>hopped off and returned as a separate value if in
an array context.  If there is no such header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16500	16599	
==>hopped off and returned as a separate value if in
an array context.  If there is no such header fiel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12082	12188	
==>!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12082	12188	
==>!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $li <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16631	16733	
==>rns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16631	16733	
==>rns a list of Spans. The list may have from zero to 2 spans.

The argument can be a Span object, a Recu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1344	1473	
==>urn $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1344	1473	
==>urn $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	325	417	
==>an only be disjunctions and conjunctions, so
# sub-type JuncType
has Perl::JuncType $.junc_ty <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14076	14190	
==>'POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, \$ho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8281	8392	
==>'POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6096	6223	
==>sions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        re <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3773	3899	
==>sions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2768	2891	
==>( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::impor <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	944	1065	
==>(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::impor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3357	3485	
==>ef $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3357	3485	
==>ef $content?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	213	311	
==>implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada

our %hash;

sub recomp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	821	929	
==>the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  In <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	821	929	
==>the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  In <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10655	10757	
==>r attributes have reasonable values, and
that attributes or Nodes are not missing.  The deferred valida <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10655	10757	
==>r attributes have reasonable values, and
that attributes or Nodes are not missing.  The deferred valida <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	28	146	
==>use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers {
    map {
        my $c = PIL::Run::Contai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13891	14026	
==>uccess_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13891	14026	
==>uccess_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26176	26276	
==>owever, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

Whil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26176	26276	
==>owever, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

Whil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3076	3216	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LK <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3076	3216	
==>'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LK <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2863	2993	
==>$fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2863	2993	
==>$fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12708	12838	
==>handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12708	12838	
==>handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9171	9306	
==>h = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9159	9294	
==>h = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$po <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2834	2953	
==>('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2834	2953	
==>('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7352	7499	
==>}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7352	7499	
==>}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.compl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2064	2164	
==>=> '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2064	2164	
==>=> '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2873	3026	
==>$mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2873	3026	
==>$mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @li <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8413	8531	
==>mpos) = $P0(mob, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5527	5624	
==>$whitespacePosition <= $position );

  expect_oper_1:
  $key = $$currentOperatorTable->lkey($targe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1893	1986	
==>ss Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1893	1986	
==>ss Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6001	6127	
==>lf.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6001	6127	
==>lf.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @!parts = $c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	903	1000	
==>encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functiona <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	903	1000	
==>encodings may be enciphered in different ways.

=head2 Using the API

The Cipher API has functiona <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3612	3758	
==>my $lastPosition = length $target;
  my @bsrStack = [];
  #XXX
  my $operator;
  expect_term:
  goto null_term if $position >= $lastPosition;
 
  m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8773	8889	
==>tr $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8773	8889	
==>tr $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.h <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	633	815	
==>0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	633	815	
==>0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5514	5677	
==>= 
                            "    |  exp '$op->{name}' exp   %prec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	613	721	
==>_[0]} }

# keep this here for a consistent interface
sub to_bit { shift }

# conversion to other native types <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4580	4687	
==>e => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5065	5172	
==>e => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3655	3780	
==>:escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'esca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3848	3973	
==>:escaped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'esca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6637	6753	
==>6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>|<term2>) <p6ws>? \;
        { retur <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	585	693	
==>:sigspace'> | <':s'> }
# XXX - there are more.  Useful short-term. Eventually not needed,
# once macro rxmodi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1603	1715	
==>or in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1603	1715	
==>or in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9900	10049	
==>e( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10179	10328	
==>e( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33568	33664	
==>section (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38118	38214	
==>section (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1854	1973	
==>X - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1854	1973	
==>X - use real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15286	15386	
==>t itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identif <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15286	15386	
==>t itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23251	23346	
==>mand is not modified by this module,
aside from appending the correct newline characters.

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23251	23346	
==>mand is not modified by this module,
aside from appending the correct newline characters.

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16941	17065	
==>statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17220	17344	
==>statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9458	9593	
==>bably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the scr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2511	2646	
==>bably be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the scr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25523	25618	
==>other components when and as the GPL requires distribution of
source code.  However, for an addi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25523	25618	
==>other components when and as the GPL requires distribution of
source code.  However, for an addi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	850	949	
==>se binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtrackin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	850	949	
==>se binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtrackin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16421	16513	
==>which is computationally complete
(and industrial strength) and has fully integrated database <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16421	16513	
==>which is computationally complete
(and industrial strength) and has fully integrated database <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2713	2835	
==>RG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2713	2835	
==>RG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1838	1970	
==>...' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ? <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1838	1970	
==>...' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	286	384	
==>O_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Arra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	286	384	
==>O_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Arra <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3554	3686	
==>iner
    -s            # List supported features
    -d            # Dump debugging information
    p5_source.pl  # Convert the file. <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	19	120	
==>nullär)
# der "und so weiter und so fort"-Operator:
$x = {...}	# "yada, yada, yada"
$x = {term:<...>( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13257	13404	
==>cal($X::pos)=($X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10902	10996	
==>-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10902	10996	
==>-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12994	13091	
==>ive infinite if the recurrence is an empty set.

- `stringify()`

Return a string representation o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12994	13091	
==>ive infinite if the recurrence is an empty set.

- `stringify()`

Return a string representation o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1263	1409	
==>PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1263	1409	
==>PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3698	3856	
==>ail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4162	4320	
==>ail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we w <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	283	370	
==>dist/Perl6-Bible/lib/Perl6/Bible/E05.pod
  http://search.cpan.org/dist/Perl6-Bible/lib/P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	128	534	
==>72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	128	534	
==>72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	818	931	
==>e(shift);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->reduce($ast);
} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3580	3709	
==>$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3638	3767	
==>$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9165	9273	
==>5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9223	9331	
==>5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3598	3694	
==>arams>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3598	3694	
==>arams>

=item C<keywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1562	1670	
==>apture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1562	1670	
==>apture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	372	580	
==>ogram = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program $program\n";
            my $return;
            $r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18258	18433	
==>n};
};

sub test_handler {
    my($self, $line, $type, $totals) = @_;

    my $curr = $totals->{seen};
    my $next = $self->{'next'};
    my $max  = $totals->{max};
    my $de <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13469	13583	
==>/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13469	13583	
==>/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31459	31557	
==>ole read-only argument. The new
Relation has all of the same attributes as the original.  Trivial c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36009	36107	
==>ole read-only argument. The new
Relation has all of the same attributes as the original.  Trivial c <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3429	3531	
==>il "invalid trig function base: $base" }
    }
}

trig_func 'sin';
trig_func 'cos';
trig_func 'tan';
tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27870	27969	
==>.  Don't worry -- if you don't define
a base class for your module's objects, or the object you crea <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	58	166	
==>$.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Re <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	58	166	
==>$.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17158	17257	
==>ge

The natural language(s) of the intended audience for the message
content.  The value is one or m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17158	17257	
==>ge

The natural language(s) of the intended audience for the message
content.  The value is one or m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9418	9523	
==>if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9418	9523	
==>if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3363	3470	
==>thod {
    my ($self, $closure) = @_;
    (blessed($closure) && ($closure->isa('closure') || $closure->isa(' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6336	6434	
==>,$lval)=@_;
	my $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $code = code_for_code_CODE(name=>$n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2356	2627	
==>er ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2356	2627	
==>er ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12520	12617	
==>ence to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12520	12617	
==>ence to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the heade <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1839	1944	
==>el2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of origin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1839	1944	
==>el2abs($RealBin) if $RealBin;
    }
}

BEGIN { init() }

=head1 NAME

FindBin - Locate directory of origin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20046	20149	
==>It does so in a most specific to most general order.
So inner blocks get compiled first, then outer bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20046	20149	
==>It does so in a most specific to most general order.
So inner blocks get compiled first, then outer bloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3470	3569	
==>.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3470	3569	
==>.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redistri <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2790	2907	
==>rget) = @_;
    open my $ofh, ">", $target or die "open: $target: $!";

    {
        my $prelude = shift @{ $Config{p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	569	715	
==>dir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9311	9432	
==>@$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11626	11747	
==>@$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $pr <==
2	/Users/nnunley/pugs/util/func_refact.pl	689	807	
==>_} = 1 && print "Ignoring: $_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initial <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15483	15632	
==>d $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15483	15632	
==>d $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> Str $channel, Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43010	43107	
==>ted.

=head1 SEE ALSO

Go to L<Relation> for the majority of references.

=head1 BUGS AND LIMITATI <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	667	757	
==>ndie::Backend::Perl::Builtins->find($node->digest || return);
}

sub cast_node_type {
	my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1982	2075	
==>d $node;
		return "$node" if Blondie::TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		r <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2984	3100	
==>t ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2984	3100	
==>t ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14855	15001	
==>$o)=@_;
    my $noop = $o->noop;
    my $embedded_code = join("",$o->data);
    my $code = 'sub{my $__c__ = $_[0]; '.$embedded_code.'; @_=$noop; go <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1319	1422	
==>src/Pugs/Run.hi";
    #unlink "src/Pugs/Run.o";
    #unlink "dist/build/Pugs/Run.hi";
    #unlink "dist/ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47433	47552	
==>)
);

$::Package->send('add_method' => (
    # method label
        symbol->new('STORE'),
    # method body
        meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6256	6411	
==>s_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_direc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6256	6411	
==>s_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($path_direc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10067	10221	
==>ture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10903	11057	
==>ture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	321	575	
==>onstant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Sh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	321	575	
==>onstant values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Sh <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1854	2020	
==>tegies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1854	2020	
==>tegies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2907	3034	
==>y @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3371	3498	
==>y @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9200	9328	
==>mpilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9200	9328	
==>mpilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> no <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1503	1646	
==>($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $sc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1503	1646	
==>($script);
            $RealScript = pop @path;
            $RealBin = catdir(@path);
            last unless defined $linktext;
            $sc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1983	2093	
==>rl5 {
    warn "not implemented";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12921	13022	
==>.

Returns positive infinite if the recurrence is infinite.
Returns negative infinite if the recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12921	13022	
==>.

Returns positive infinite if the recurrence is infinite.
Returns negative infinite if the recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1230	1333	
==>- spans can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1230	1333	
==>- spans can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_sub <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	524	633	
==>embers.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should b <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	524	633	
==>embers.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should b <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15163	15269	
==>the body of the function, based on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18514	18642	
==>ass";
    if( !defined $object ) {
        $diag = "$obj_name isn't defined";
    }
    elsif( !ref $object ) {
        $diag = " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	86	198	
==>alue/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/.. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5820	5927	
==>o the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( % <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5820	5927	
==>o the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( % <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	673	780	
==>ile' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	640	747	
==>ile' from $host... ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	325	432	
==>, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_es <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	325	432	
==>, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_es <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6668	6819	
==>.cpan_bareword> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test::More
                <Pu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6082	6197	
==>A_val/B/B_val.gz and B/B_val/A/A_val.gz are
                  #      equal. Use hard- or symlinks to minimize storag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17390	17523	
==>erms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17390	17523	
==>erms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14989	15085	
==>meric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these ro <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14989	15085	
==>meric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these ro <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9689	9784	
==>efined with closures. 

A recurrence set is defined by a "successor" function and a "predecessor <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9689	9784	
==>efined with closures. 

A recurrence set is defined by a "successor" function and a "predecessor <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	720	838	
==>f" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	720	838	
==>f" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6198	6294	
==>Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6198	6294	
==>Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buff <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11445	11590	
==>ore heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - here <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11445	11590	
==>ore heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - here <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13359	13453	
==>`:depends("string")` parameter to most of the functions is a way
to provide a comment that refe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13417	13511	
==>`:depends("string")` parameter to most of the functions is a way
to provide a comment that refe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5814	5958	
==>s_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5814	5958	
==>s_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Sp <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2947	3064	
==>l file if you want the reports to be uploaded
    automatically.
EOF
}
sub upload_smoke {
    my ($loc) = @_;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23865	23958	
==>esn't know about language specific details like
encodings or plurality.

My understanding of a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23865	23958	
==>esn't know about language specific details like
encodings or plurality.

My understanding of a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10550	10664	
==>nction. This is primarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `us <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10608	10722	
==>nction. This is primarily a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `us <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	728	862	
==>cope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	728	862	
==>cope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  group.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10863	10969	
==>changed.

The old value (or values) of the last of the header fields is returned.
If no such field exists C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10863	10969	
==>changed.

The old value (or values) of the last of the header fields is returned.
If no such field exists C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31738	31867	
==>e.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation::Example>

I<TODO.  This method has not yet been implem <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7011	7109	
==>pan0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7011	7109	
==>pan0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24404	24509	
==>ver

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28956	29061	
==>ver

=item C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1769	1884	
==>ew;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for so <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1769	1884	
==>ew;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for so <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2496	2664	
==>assoc => 'left',
        precedence => 'tighter',
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '-',
        block => sub <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2701	2930	
==>e.new(:node<Bare>).add_children(
                                    Tree.new(:node<Parametric>)
                                ),
                            ),
                        ),
                        Tree.new(:node<R <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10689	10790	
==>de_val = "p6_meta('$kind')->new($code_args)";
    my $code = $code_val;
    if($kind eq 'Method') {
	m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22703	22823	
==>t }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(log <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19124	19244	
==>t }) } )* ]x;
    if (${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(log <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20209	20298	
==>thorization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20209	20298	
==>thorization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
he <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8065	8159	
==>tem.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, follo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8065	8159	
==>tem.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, follo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3254	3358	
==>so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3254	3358	
==>so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4200	4416	
==>version    <= package_version( $test )
                        ) {
                            $link_this      = 0;  
                            $unlink_this    = delete $href->{$test};
                            la <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	484	583	
==>i,PMC *pmc) {
	return VTABLE_get_integer(i,pmc);
}
C
package PMCPtr;
# fix the typemap to make all t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1704	1884	
==>ls->_mkdir( dir => $builddir )
#             or error( "Could not create clean '$builddir'" ), return;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1596	1739	
==>urrent"} = 1;
        return;
    }
    require POSIX;
}

sub all_in {
    my $start = shift;

    my @hits = ();

    local *DH;
    if ( opend <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11846	11945	
==>ed can be recognized, and regexp*s
  created with the normal perl engine can continue working.

  Up <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3236	3365	
==>ine 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3236	3365	
==>ine 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20398	20501	
==>lly canonicalized including the
'_' to '-' translation.  There are some application where this is not
ap <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20398	20501	
==>lly canonicalized including the
'_' to '-' translation.  There are some application where this is not
ap <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	719	816	
==>r $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $path, $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	719	816	
==>r $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $path, $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8952	9045	
==>$op{'paramDefault'};
	push(@args,"default=>sub{$default}") if defined $default;

	my $slurpy = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1233	1331	
==>ptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
co <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1233	1331	
==>ptanalyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1443	1575	
==>return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1385	1511	
==>return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1793	1910	
==>ss, $name, @mess) = @_;
    _ok($pass, _where(), $name, @mess);
}

sub _q {
    my $x = shift;
    return 'undef' unle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10939	11034	
==>u passed it, but it will not operate
differently.

The string representation is built by calling <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3779	3903	
==>caped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3972	4096	
==>caped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::new <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1209	1460	
==>hen creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1209	1460	
==>hen creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_by_key <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1916	2057	
==>BUG
    and print $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test(yylex => $lex, yyerror => sub {});

    $out=$p-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1461	1600	
==>scaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1401	1535	
==>scaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => sub <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13373	13488	
==>unction.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13373	13488	
==>unction.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7356	7491	
==>$n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::Perl6::Scalar::" . _emit( $n->{ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15690	15801	
==>!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19167	19278	
==>!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2532	2636	
==>and.

Returns the perl version on success and false on failure.

=cut

sub _perl_version {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35231	35328	
==>ual()Z and walk()Z<>.

However, we need to define our own qr() method, because we don't want
to ha <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7128	7235	
==>($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\s') if $re eq '\s';
    return $o->mk_eate <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6473	6568	
==>ss;
    ::opaque_instance_attrs($_[0])->{'%:methods'}->{'does'}->(@_);
});

# now Class does Rol <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23651	23750	
==>rt time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23651	23750	
==>rt time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10640	10769	
==>er( $n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2419	2539	
==>X - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2419	2539	
==>X - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simplify the result i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2965	3061	
==>client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=bac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2965	3061	
==>client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=bac <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	87	227	
==>low storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	87	227	
==>low storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1687	1793	
==>::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1687	1793	
==>::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1886	1993	
==>ew;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1886	1993	
==>ew;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) returns Bool {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6033	6167	
==>ontinue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6033	6167	
==>ontinue($match.clone(
                backtrack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parse <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14158	14258	
==>ase, you can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14216	14316	
==>ase, you can use the rather blunt pass()
functions and its compliment the flunk() function.

- `flunk <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5780	5883	
==>:Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRI <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5780	5883	
==>:Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3575	3692	
==>turn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4424	4541	
==>turn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	346	508	
==>my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	346	508	
==>my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4096	4182	
==>f Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4096	4182	
==>f Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Exception"),
Roset <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3218	3364	
==>mented( $n->{op1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10405	10529	
==>atches
    capture - return'ed things
    
    state - a "continuation" or undef
    abort - the match was stopped by a { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4832	4952	
==>(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4832	4952	
==>(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decode <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1403	1528	
==>ncatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1403	1528	
==>ncatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1716	1867	
==>v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1716	1867	
==>v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14244	14390	
==>) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14244	14390	
==>) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2448	2592	
==>Split];
  $self->tokenTable()->{$name} = \%token;

  my $syncat = $nameSplit[0];
  if ( $syncat eq "infix" )
  {
    $token{syncat} = PGE_OPTABLE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5124	5262	
==>s, false on failure.

=cut

sub _copy {
    my $self = shift;
    my %hash = @_;
    
    my($from,$to);
    my $tmpl = {
        file    = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	179	284	
==>as argument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" hash <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	170	271	
==>as argument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" hash <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4716	4828	
==>ssarily the ciphertext version of the data given.
The data may be either a string or an array of bytes; the array <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4716	4828	
==>ssarily the ciphertext version of the data given.
The data may be either a string or an array of bytes; the array <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6782	6912	
==>List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the inter <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6782	6912	
==>List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the inter <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9725	9821	
==>et2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1> an <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9725	9821	
==>et2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1> an <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3837	3993	
==>of "die             'file not found';"
    #         or "return ENOENT; # file not found"
    #  say this: "fail            'file not found';"
    
    # mak <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	210	320	
==>::Base);

$VERSION = '0.01';

use strict;

sub determine_NAME {
    my $self = shift;
    my @modules = glob('* <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2005	2114	
==>T <<'.';
module Pugs.Prelude where

{-
    Prelude bootstap. 

>   The world was young, the mountains green,
> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9141	9232	
==>_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([Item1|MoreItems <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11166	11260	
==>ool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11224	11318	
==>ool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3847	3945	
==>o return any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3847	3945	
==>o return any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4798	4922	
==>false' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	469	564	
==>ingify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase met <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	469	564	
==>ingify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase met <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6880	7046	
==>laceholder")) {
				return $self->types_eq($x->type, $y->type);
			} else {
				return undef;
			}
		} elsif (ref($x) and ref($y)) {
			return unless @$x == @$y;
			my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4849	5002	
==>XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions themselves
                        i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4849	5002	
==>XXX: What should it be if multiple matching
                        #      Set-Cookie headers have different versions themselves
                        i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1642	1773	
==>];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node,state)=@$sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1586	1714	
==>];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1972	2101	
==>};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1972	2101	
==>};

        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node,state)=@$sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	277	380	
==>nly argument
* not tested much
* read this modules source before using
* examine the proccesed source co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4095	4206	
==>!~ m{ \G ([^\}]*) \} }xgc;

    my $name = $1;
    return $S->force_object(anyof_char => $S->nchar($name), "\\N{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23679	23782	
==>e::KeyedText has
named variables, which can be used in any order, or not used at all, or
used multiple t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23679	23782	
==>e::KeyedText has
named variables, which can be used in any order, or not used at all, or
used multiple t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19597	19701	
==>orization

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by includi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19597	19701	
==>orization

A user agent that wishes to authenticate itself with a server or a
proxy, may do so by includi <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	369	481	
==>f->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	270	382	
==>f->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

sub c <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17553	17745	
==>else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $len) if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10713	10835	
==>rname * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    whi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10713	10835	
==>rname * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    whi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4798	4896	
==>CRIPTION

This module is meant for people who want a simplified view of the
libwww-perl library.  I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4798	4896	
==>CRIPTION

This module is meant for people who want a simplified view of the
libwww-perl library.  I <==
2	/Users/nnunley/pugs/util/importgraph.pl	1319	1424	
==>les) {
  for my $ignore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some predefined cluste <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2143	2285	
==>ile
                    ? file($index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->pool_re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1153	1249	
==>:Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1153	1249	
==>:Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13206	13379	
==>ijoin;

###########################################################################

multi method product (Relation::Example $other!) returns Relation::Example {

    die "Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2544	2650	
==>} = $enum;
  $self->{errmsg} = sprintf $err, @args;
  croak $self->{errmsg};
}


sub warn {
  my ($self, $e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5788	5893	
==>ass itself; in fact, the only method that truly must be implemented is the 
one that actually enciphers th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5788	5893	
==>ass itself; in fact, the only method that truly must be implemented is the 
one that actually enciphers th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4108	4237	
==>) ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4301	4430	
==>) ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        matc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10046	10150	
==>ing 
set properties.

Note that all set functions may end up being calculated using iterations, 
which ca <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10046	10150	
==>ing 
set properties.

Note that all set functions may end up being calculated using iterations, 
which ca <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	466	558	
==>operty, and adds nothing else.

More specialised processing instructions may sub-class this m <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	466	558	
==>operty, and adds nothing else.

More specialised processing instructions may sub-class this m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14785	14885	
==>t is "\n".  Embedded "\n" characters in header field
values will be substituted with this line ending <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14785	14885	
==>t is "\n".  Embedded "\n" characters in header field
values will be substituted with this line ending <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2027	2154	
==>x,
      flags => $rx->{flags}[-1],
      family => 'reg_any',
      type => $type,
      vis => $vis,
    }, $class;
    return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11330	11436	
==>: send (bless (NIL ?%params)))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol- <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2169	2261	
==>ted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2169	2261	
==>ted at L<FreePAN|http://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27079	27181	
==>'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27079	27181	
==>'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4955	5057	
==>over data and returns it as an array of bytes, 
then clears the object's internal state.  This should b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4955	5057	
==>over data and returns it as an array of bytes, 
then clears the object's internal state.  This should b <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2899	3072	
==>iners((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my $idx = shift;
                my $size = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4767	4907	
==>") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir an <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4767	4907	
==>") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34440	34540	
==>hing>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic relational op <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38990	39090	
==>hing>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a generic relational op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9817	9915	
==>undefined.

Rosetta::Model's input validation is performed over 2 main phases, which
are referred t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9817	9915	
==>undefined.

Rosetta::Model's input validation is performed over 2 main phases, which
are referred t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	410	530	
==>rse( $src );
    #use YAML;
    #print Dump $match->();
    print Dumper $match->();
    print "tail: ", substr( ${$m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7180	7295	
==>on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q loc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14797	14962	
==>al test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my($self, $line, $test) = @_;

    # We pulveriz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11772	11882	
==>Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node objects that do not hav <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11772	11882	
==>Array of Rosetta::Model::Node - This stores an ordered list of all this
Document's Node objects that do not hav <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2361	2452	
==>d

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/binary' );

C<_perl_version> return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30535	30641	
==>tinct "user
language" (or "user type") for each distinct Message; each file can be
shared by multiple Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30535	30641	
==>tinct "user
language" (or "user type") for each distinct Message; each file can be
shared by multiple Messa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20603	20697	
==>cher (($self: class) send (dispatcher :ascendant)))
     (= $method (WALKMETH (&dispatcher (sym <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	677	794	
==>'" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return { op => "prefix:<' . <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14586	14696	
==>);
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14586	14696	
==>);
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reas <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2039	2166	
==>y if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2039	2166	
==>y if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5281	5403	
==>() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5281	5403	
==>() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3880	3968	
==>----------------------------------------------------------
## removing children

method r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3880	3968	
==>----------------------------------------------------------
## removing children

method r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	39	187	
==>rl6 package
package Grammar::Perl6Init;

use warnings;
use Pugs::Runtime::Match;
no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39525	39618	
==>during
the first pass.  To accomplish this, use force_object(), which creates
an object regard <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	425	531	
==>ES

This node type keeps the C<source> property, and adds nothing else.

More specialised processing instru <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	425	531	
==>ES

This node type keeps the C<source> property, and adds nothing else.

More specialised processing instru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6362	6575	
==>zed );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6362	6575	
==>zed );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2174	2283	
==>);

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2185	2294	
==>);

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16521	16616	
==>gorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16521	16616	
==>gorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>() <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11282	11451	
==>ata section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before her <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11282	11451	
==>ata section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before her <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	453	590	
==>method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	453	590	
==>method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	988	1080	
==>$output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	988	1080	
==>$output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s+(\S+)/m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4619	4756	
==>* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4619	4756	
==>* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8786	8896	
==>r( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'requir <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8786	8896	
==>r( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'requir <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7361	7466	
==>ies = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathch <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7361	7466	
==>ies = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathch <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3090	3208	
==>Character {  # see clause 6
      . #dot
}
rule InputElementDiv {  # see clause 7
      <WhiteSpace>
    | <LineTermina <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4112	4269	
==>]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4112	4269	
==>]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4340	4499	
==>ol_structure:<if>'),
                App->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1), <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22977	23073	
==>erences
from octal escapes.  (The source code to Perl's regex compiler does the
same thing.)

=it <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26182	26280	
==>tor that returns a new Relation
which has a subset of the original's attributes; that subset is the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30734	30832	
==>tor that returns a new Relation
which has a subset of the original's attributes; that subset is the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10505	10607	
==>eplacement for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, whi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10505	10607	
==>eplacement for '-' in header names.

The header() method accepts multiple ($field => $value) pairs, whi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1528	1634	
==>"You MUST provide an explicit true/false value to dynamic_config, skipping\n";
		return $self;
	}
	$self->{ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7025	7127	
==>ersion },
  using  => sub { $pugs_version = get_version($pugs) };

step
  descr  => "Checking for Parro <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2653	2814	
==>ilable, @list );
            }
        }
    
        ### extract the code
        {   ### XXX we should *build* things here too
            print "Unpacking code <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3374	3499	
==>$self->{admin};
        @exts = $admin->load_all_extensions;
    }

    my %seen;
    foreach my $obj ( @exts ) {
        whil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19609	19728	
==>e or alter tables by adding or
updating their "information schema" records, which in SQL are read-only,
not by using spe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19609	19728	
==>e or alter tables by adding or
updating their "information schema" records, which in SQL are read-only,
not by using spe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5097	5201	
==>y initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we'v <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5097	5201	
==>y initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we'v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10492	10592	
==>se
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($field => $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10492	10592	
==>se
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($field => $va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7755	7861	
==>ng.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal stru <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7755	7861	
==>ng.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal stru <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	318	447	
==>se
#                 filter transform merge list_to_stream cutsort
#                 iterate_function cut_loops);
# 
# %EXPORT_TAG <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	117	242	
==>ethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	117	242	
==>ethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1270	1379	
==>lti sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1270	1379	
==>lti sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $on <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9563	9654	
==>$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9563	9654	
==>$set1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3463	3617	
==>ems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1] <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3463	3617	
==>ems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	226	390	
==>each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2577	2671	
==>ion named for its class (without the prefix) is
exported. This is very convenient for construct <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8435	8575	
==>.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8435	8575	
==>.print(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6077	6181	
==>TP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6077	6181	
==>TP::Response !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13076	13185	
==>ded
separately and the same number of strings are returned.

If called in void context the arguments are decod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13076	13185	
==>ded
separately and the same number of strings are returned.

If called in void context the arguments are decod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17973	18068	
==>::Compile attempts to make source filtering a sane process, by
parsing up your module's source c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17973	18068	
==>::Compile attempts to make source filtering a sane process, by
parsing up your module's source c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17345	17440	
==>l interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17345	17440	
==>l interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2435	2582	
==>return prefix( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        retu <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1344	1461	
==>ed $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @tokens.shif <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2040	2147	
==>h[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2040	2147	
==>h[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20552	20668	
==>ou to force a
specific spelling.  For example if you really want a header field name
to show up as C<foo_bar> instead <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20552	20668	
==>ou to force a
specific spelling.  For example if you really want a header field name
to show up as C<foo_bar> instead <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2843	2995	
==>ems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2843	2995	
==>ems;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2047	2203	
==>ng in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3639	3791	
==>ng in the second
        # argument as a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8292	8401	
==>vent<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8292	8401	
==>vent<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	728	820	
==>ed-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	728	820	
==>ed-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_heade <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29259	29359	
==>)

Merges this node with the previous one, if they are of the same type. If
it is called I<after> $ob <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5239	5338	
==>ill be passed a reference to the current value, 
this allows r/w access to the value.

=item B<apply <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3866	3966	
==>rt of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3866	3966	
==>rt of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1527	1693	
==>{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1527	1693	
==>{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2000	2105	
==>okup. 



This object-serialization format is shared across all runtimes.



=head1 Directory Layout



li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1926	2025	
==>okup. 

This object-serialization format is shared across all runtimes.

=head1 Directory Layout

li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8339	8481	
==>tch;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8532	8674	
==>tch;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #pr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1377	1480	
==>nux.de/iblech/pugs/grub.tar.bz2";
my $kernel_local = "vmlinuz";
my $grub_local   = "grub.tar.bz2";
my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1246	1377	
==>l without parameters
    return ''
        unless defined $n;
    
    die "unknown node: ", Dumper( $n )
        unless ref( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	919	1046	
==>en you need to get back
    # a nil value, not just undef
    return nil->new() unless defined $val;
    return $val;
}

sub sto <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3920	4023	
==>non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3920	4023	
==>non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4613	4723	
==>>{dups}->includes($node->orig);
}

sub reduce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val-> <==
2	/Users/nnunley/pugs/util/grokprims.pl	1866	1971	
==>n-associative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity == 1) {
    $example <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5947	6055	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5635	5743	
==>cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7952	8046	
==>1]{instance}, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variab <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21196	21287	
==>ata[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offse <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4676	4792	
==>ction( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4676	4792	
==>ction( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1410	1521	
==>ompiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1410	1521	
==>ompiler::Rule->compile(q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4773	4871	
==>r for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
Se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4913	5011	
==>r for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
Se <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3185	3448	
==>ist) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            in <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3185	3448	
==>ist) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16010	16202	
==>$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16004	16196	
==>$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2197	2290	
==>$name
osname: $config->{osname}

Please notify the maintainer of this code. (Brian Ingerson fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27493	27597	
==>sage object, you must create a new
object that is a clone of the first but for the changes.

=back

A Mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27493	27597	
==>sage object, you must create a new
object that is a clone of the first but for the changes.

=back

A Mes <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1772	1901	
==>?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1772	1901	
==>?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11101	11303	
==>URN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11101	11303	
==>URN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15825	15919	
==>blic would.

Alternately, sometimes a program will raise a condition or error that,
while resem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15825	15919	
==>blic would.

Alternately, sometimes a program will raise a condition or error that,
while resem <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	299	415	
==>k_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->load('get_file');

    require Config;
    ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	250	352	
==>k_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->load('get_file');
	
	require Config;
	ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2211	2304	
==>| $self->determine_NAME($args);
    $args->{VERSION}  = $self->version || $self->determine_VER <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1317	1409	
==>| $self->determine_NAME($args);
    $args->{VERSION} = $self->version || $self->determine_VER <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5081	5172	
==>nted
interface provided by the C<LWP::UserAgent> module.

The following functions are provid <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5081	5172	
==>nted
interface provided by the C<LWP::UserAgent> module.

The following functions are provid <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12482	12820	
==>al } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12482	12820	
==>al } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7759	7892	
==>less $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7759	7892	
==>less $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remaining bloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1299	1418	
==>_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1299	1418	
==>_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().defined) ?? ./uri().a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	377	472	
==>o_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	377	472	
==>o_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13402	13555	
==>educe($thunk) . " yielded $v";

    $v;
}

sub reduce_thunk {
    my $self = shift;
    my $thunk = shift;

    # FIXME - ought to check if the runtime ha <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	449	565	
==>factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  I <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	449	565	
==>factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  I <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	244	351	
==>= 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	302	409	
==>= 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junction to hold our FORCE_TODO test <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	381	488	
==>prog = shift;

    $self->compiler->compile($self, Blondie::Prelude->env, $prog);
}

sub compiler_class { "B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	305	408	
==>(blessed($args) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args->is_em <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9387	9504	
==>" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  qu <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1182	1298	
==>) }, *@subscriptions;
    }
    
    method get_subscriptions (Class::Events::Publisher $publisher, Class::Publisher: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	594	681	
==>SX::InternalValue;
class JSX::InternalValue::Completion is JSX::InternalValue;
class JSX <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1041	1165	
==>self->struct;
    
    return $self->_pp_from_struct( $struct );
}

sub _pp_from_struct {
    my $self    = shift;
    my $st <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14572	14679	
==>y $ret = $f->right;
	
	my $generic_vars = generic($.fun);

	# if the function is generic we'll be instantiat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8497	8601	
==>s an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8497	8601	
==>s an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2114	2248	
==>],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2114	2248	
==>],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10888	10994	
==>8.5
      <null>
    | <RegularExpressionFlags> <IdentifierPart>
}

# A.2 Number Conversions

rule StringNu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19082	19183	
==>ore than one argument"), which is also the basis of the relational
data model proposed by Edgar. F. Co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22732	22833	
==>ore than one
argument"), which is also the basis of the relational data model proposed
by Edgar. F. Co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10155	10300	
==>val { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10155	10300	
==>val { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2966	3104	
==>/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2966	3104	
==>/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $va <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4947	5088	
==>t = basename($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alter <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4171	4300	
==>t = basename($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alter <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2458	2612	
==>hift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $curr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2663	2817	
==>hift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $curr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16090	16206	
==>n (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19567	19683	
==>n (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1369	1462	
==>!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1369	1462	
==>!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12924	13090	
==>eate_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12924	13090	
==>eate_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4048	4199	
==>urns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4106	4257	
==>urns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1864	1971	
==>urns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1864	1971	
==>urns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2574	2678	
==>ay not return all (or any) of the data you 
passed in, and that the finishing step may return data.

An e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2574	2678	
==>ay not return all (or any) of the data you 
passed in, and that the finishing step may return data.

An e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1152	1354	
==>RE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1152	1354	
==>RE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1318	1446	
==>!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing class <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4796	4924	
==>!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing class <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18372	18465	
==>ead data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18372	18465	
==>ead data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3026	3130	
==>f.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3026	3130	
==>f.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
me <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10684	10770	
==>ub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; retur <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10684	10770	
==>ub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	649	806	
==>ll_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	649	806	
==>ll_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ < <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1705	1805	
==>MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggab <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1705	1805	
==>MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggab <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2492	2609	
==>esc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2550	2667	
==>esc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1671	1863	
==>lts in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1671	1863	
==>lts in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	592	689	
==>=item *

unbound public and private methods, including the signatures of these
methods

=item *

u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7963	8052	
==>}, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variable::in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8222	8362	
==>one( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8222	8362	
==>one( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11541	11694	
==>ble left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11541	11694	
==>ble left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and re <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2426	2557	
==>e
12th line









GROK

# -----------------------------------------------------

sub CheckHead {
   my ($scr) = @_;
   my @tt = ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1166	1264	
==>s_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hac <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1224	1322	
==>s_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hac <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51396	51589	
==>')->get_attr(symbol->new('$:version'))
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(symbol->new('$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4284	4390	
==>> sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&sta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5022	5126	
==>> sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&sta <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3240	3351	
==>});
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ ! <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3240	3351	
==>});
    return $rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ ! <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1788	1905	
==>h?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $stat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1788	1905	
==>h?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $stat <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7141	7238	
==>ensure => sub { -r "$parrot_path/parrot" and -s "$parrot_path/parrot" };

my @modfiles;
step
  des <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26672	26761	
==>ssAtomNoDash> <NonemptyClassRangesNoDash>
    | <ClassAtomNoDash> <'-'> <ClassAtom> <Class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7383	7510	
==>rn "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7371	7498	
==>rn "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13995	14096	
==>tcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) -> $c {
        for $c->get_att <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6064	6172	
==>nts thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6064	6172	
==>nts thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta: <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	374	522	
==>er nothing End_of_Input lookfor
#                 alternate concatenate star list_of 
#                 operator T 
#                 error action te <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16836	16940	
==>e empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16836	16940	
==>e empty, if the spans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8058	8150	
==>assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1883	1975	
==>assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14151	14262	
==>e recommended "Good Practice" order.

Any return values of the callback routine are ignored.  The loop can
be br <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14151	14262	
==>e recommended "Good Practice" order.

Any return values of the callback routine are ignored.  The loop can
be br <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8441	8557	
==>d when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object represen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8441	8557	
==>d when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object represen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1845	1996	
==>rn;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1845	1996	
==>rn;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9240	9419	
==>,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10231	10410	
==>,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8527	8659	
==>f $S0 != "{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16232	16354	
==>/at\s+misctmp\d+\s+line/at - line/g;
    $results =~ s/of\s+misctmp\d+\s+aborted/of - aborted/g;

    # bison says 'parse e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	716	818	
==>native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1306	1408	
==>native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { b <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1092	1193	
==>his is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* ha <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1092	1193	
==>his is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7206	7305	
==>ercommunication 

of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6961	7057	
==>ercommunication 
of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10845	10947	
==>nd these could potentially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10845	10947	
==>nd these could potentially be extended by third party add-ons.

=head2 The Rosetta::Model::Document Cla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9148	9302	
==>te('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %has <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9148	9302	
==>te('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $port    = %has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2012	2143	
==>=> 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2447	2578	
==>=> 1, # ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1077	1219	
==>h ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1077	1219	
==>h ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11181	11306	
==>x;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$ca <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15734	15849	
==>]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) }, <==
2	/Users/nnunley/pugs/util/version_h.pl	184	289	
==>ntries";

my $old_revision = -1;
open IN, "< $version_h" and do {
  while (<IN>) {
    /#define PUGS_SVN_R <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1636	1750	
==>e Set;
    has Set $.subscriptions handles :note_subscription<insert> :remove_subscription<remove> .= new;
}

class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6426	6520	
==>nformation
about sub-classing this module.

=head1 DESCRIPTION

This module parses regular expr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4805	4911	
==>rray of bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4805	4911	
==>rray of bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10403	10560	
==>%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10403	10560	
==>%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2095	2295	
==>ze = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2095	2295	
==>ze = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1937	2118	
==>des' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any % <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1937	2118	
==>des' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any % <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4986	5155	
==>._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4986	5155	
==>._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	63	166	
==>ethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Per <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	63	166	
==>ethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Per <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16621	16736	
==>_not} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason} = '';
    $self->{'next'}       = 1;
}

=head <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	224	323	
==>use Perl6::MM::Opaque;
use Perl6::MM::Method;
use Perl6::MM::Attribute;
use Perl6::MM::C3;

use Carp <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3574	3675	
==>ct representing the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, re <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3574	3675	
==>ct representing the
current /local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	846	977	
==>-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	846	977	
==>-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
    }
    else {
        $path ~~ r <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1523	1620	
==>download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then laun <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1363	1460	
==>download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then laun <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10807	10958	
==>safe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10807	10958	
==>safe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8873	8974	
==>n (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are av <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8873	8974	
==>n (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are av <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5365	5536	
==>tinue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5365	5536	
==>tinue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs pisses me off
        my $mdex = $ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2207	2308	
==>$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets support for <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2207	2308	
==>$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets support for <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13734	13836	
==>ulti Hash::keys   (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::kv     (%hash ; MatchTest * <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1206	1340	
==>$.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Intern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1206	1340	
==>$.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  has Bool  $.debug_raw    is rw;

  # Intern <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22988	23078	
==>omebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22988	23078	
==>omebody from a channel, stating a reason optionally.

=head2 C<$botE<lt>modeE<gt>(target =E <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4771	4892	
==>)

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of ` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4771	4892	
==>)

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of ` <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12682	12776	
==>t> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12682	12776	
==>t> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1  <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3080	3235	
==>"<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3297	3452	
==>"<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $source = <FILE>;
        my $perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4677	4778	
==>tta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual mac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4677	4778	
==>tta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual mac <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2000	2094	
==>head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalen <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2000	2094	
==>head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalen <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5683	5818	
==>ntests()>) but does it
quietly (no report).  $total is a hash ref summary of all the tests
run.  Its keys and values are this:

    bonu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	755	869	
==>akemaker_args->{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep length, $clean->{F <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3000	3096	
==>', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VIn <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2393	2547	
==>lways normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAME <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2393	2547	
==>lways normalized().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAME <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	310	446	
==>,Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13860	13980	
==>ected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13860	13980	
==>ected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If the co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2647	2754	
==>_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2647	2754	
==>_span = $span1.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1699	1929	
==>iers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $bu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1699	1929	
==>iers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7818	7953	
==>( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7818	7953	
==>( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\"... <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1258	1362	
==>_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return un <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1258	1362	
==>_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return un <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1304	1418	
==>ool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1304	1418	
==>ool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20410	20507	
==>colon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that rando <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20410	20507	
==>colon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that rando <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7438	7557	
==>QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7438	7557	
==>QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1389	1504	
==>rname?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1389	1504	
==>rname?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	32	134	
==>ict;

use Package::Constants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

use vars qw[@E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9684	9795	
==>},
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9684	9795	
==>},
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22338	22461	
==>lf->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18759	18882	
==>lf->add_handler('(??' => sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	175	267	
==>our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	233	325	
==>our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = 0;
$Test::num_of_tests <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1043	1167	
==>\$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1043	1167	
==>\$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( 
        alternation( constant_at_pos('a'), c <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1430	1546	
==>waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|S <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1430	1546	
==>waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2707	2808	
==>following public attributes:

=over 8

=item C<$r.method>

The request method used (for example, 'GET' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2707	2808	
==>following public attributes:

=over 8

=item C<$r.method>

The request method used (for example, 'GET' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8527	8665	
==>arn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8527	8665	
==>arn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1450	1571	
==>s Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1450	1571	
==>s Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34628	34730	
==>ther> is a subset of the
heading of the invocant Relation, and returns a new Relation that has the
same <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39178	39280	
==>ther> is a subset of the
heading of the invocant Relation, and returns a new Relation that has the
same <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2763	2965	
==>( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( : <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2763	2965	
==>( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empty_span( : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4832	5038	
==>/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4682	4882	
==>/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6124	6252	
==>hod density () returns Object {
#    return $.span.density;
# }

method stringify () returns String {
    return $.span.stringify <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6124	6252	
==>hod density () returns Object {
#    return $.span.density;
# }

method stringify () returns String {
    return $.span.stringify <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12760	12857	
==>tive infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is an emp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12760	12857	
==>tive infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is an emp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1117	1255	
==>ug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1117	1255	
==>ug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1960	2109	
==>$idx)->scalar_store($value);
            },
            hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $self->hash_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15817	15932	
==>ric     => sub { p6_Num($_[0]) },
      non_numeric => sub { p6_Str($_[0]) },
      scalar_numeric     => sub { p6_N <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17504	17602	
==>nt loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17504	17602	
==>nt loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8990	9116	
==>rs{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.member <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8990	9116	
==>rs{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels()            { $!chans.member <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3642	3775	
==>3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3642	3775	
==>3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $pa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1068	1182	
==>e html files for the perl6 design docs (faster)
    --output_dir    Output Directory to put the html files (Default <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5104	5244	
==>XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5104	5244	
==>XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $len = length( $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1399	1502	
==>rns Object {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1399	1502	
==>rns Object {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7	112	
==>CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7	112	
==>CGI-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4266	4416	
==>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5115	5265	
==>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation note: 
            #     $rule and $li <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10814	11006	
==>ars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #% <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10814	11006	
==>ars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #% <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4002	4248	
==>or $t";
                my $args = '';
                foreach my $arg (@t) {
                    if (!$args) {
                        #warn "our first arg $arg";
                        $args .= $arg
                    }
                    els <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	582	723	
==>hods => {
        'header' => sub { '1..' . _('$:expect') },
        'footer' => sub {
            my ($self, $run) = @_;
            return ' <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1437	1576	
==>text = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = cat <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1437	1576	
==>text = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $RealBin = cat <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5793	5899	
==>_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::M <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5275	5381	
==>_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::M <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1155	1269	
==>cript {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Can't ope <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20266	20378	
==>easy for developers to study.  As a result, while it performs correctly
and reliably, it also performs quite slow <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20266	20378	
==>easy for developers to study.  As a result, while it performs correctly
and reliably, it also performs quite slow <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16209	16305	
==>rationales; you can read TTM itself and
various other external documentation for much of that.

T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16209	16305	
==>rationales; you can read TTM itself and
various other external documentation for much of that.

T <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	788	890	
==>variables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $retur <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	788	890	
==>variables);
}

sub fill_with($template: %variables?) is export {
    my $return = $template;
    $retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24797	24913	
==>::Example
attributes may be individually addressed only by their names, and all
Relation::Example tuples may be indiv <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9515	9625	
==>tors available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membersh <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9515	9625	
==>tors available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membersh <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34212	34303	
==>em C<semidifference (Relation $other!) returns Relation>

This method is a generic relationa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38762	38853	
==>em C<semidifference (Relation $other!) returns Relation>

This method is a generic relationa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	9	137	
==>n_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	9	137	
==>n_block_hack {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5550	5656	
==>k) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 N <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5550	5656	
==>k) ~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4305	4405	
==>with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.g <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4305	4405	
==>with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9159	9258	
==>.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9159	9258	
==>.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of Rosett <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3823	4031	
==>($t . ' => ' . $type);                    
            }
            
            # if all else fails, they are messages
            else {
                #warn "compiling args for $t";
                my $ar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1701	1818	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1701	1818	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exception object:
    # ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17079	17220	
==>t) = _create_fmts($failedtests);

        # Now write to formats
        for my $script (sort keys %$failedtests) {
          $Curtest = $fail <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3306	3409	
==>my @termStack = [];
  my @operatorStack = [];
  my @tokenStack = [];
  my $termEmpty = $self->termTable( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	254	363	
==>eds nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	205	305	
==>eds nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4043	4135	
==>-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLim <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4043	4135	
==>-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLim <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	314	413	
==>le( $rul );
my $rpc_regex = Pugs::Compiler::Regex->compile( $rul );
#print $rpc_token->perl5, "\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2153	2369	
==>_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2153	2369	
==>_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26244	26340	
==>any
defined and non-empty string, and each variable value can be anything at
all.  Note that whil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26244	26340	
==>any
defined and non-empty string, and each variable value can be anything at
all.  Note that whil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7719	7832	
==>order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($fu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7719	7832	
==>order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.traverse($fu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12625	12750	
==>, or holidays per month.

It is also used when the objects represent "chunks" of data, such as date objects without the time p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12625	12750	
==>, or holidays per month.

It is also used when the objects represent "chunks" of data, such as date objects without the time p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6584	6699	
==>doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6584	6699	
==>doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8019	8187	
==>ems + $ret.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cs <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8019	8187	
==>ems + $ret.elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18089	18194	
==>ess should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18089	18194	
==>ess should be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<T <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6810	6912	
==>n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6810	6912	
==>n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1855	1955	
==>ned up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1855	1955	
==>ned up a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4875	4988	
==>shift;

	$self;
}

sub splat {
	my $self = shift;
	my $accum = shift;

	bless {
		%$self,
		param => $self->{param <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8308	8412	
==>>

  my $command = $self->_command();

Returns the command that runs the test.  Combine this with _switch <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17455	17591	
==>->new('sup');
                $t->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_inde <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4389	4477	
==>ment',mk_dynamic_alt(\@statements));

my @tokens;
my $tok = def_rule('token',mk_dynamic_a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19565	19674	
==>:KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19565	19674	
==>:KeyedText that will enable
user text to be stored in non-Perl external files, such as a 2-column
plain-text f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1844	1938	
==>s" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This prog <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1844	1938	
==>s" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

This prog <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	763	871	
==>s may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	763	871	
==>s may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it.

=kwi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2375	2483	
==>ith a block of 
data to have it enciphered or deciphered; when you're done, call the closure 
with no argumen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2375	2483	
==>ith a block of 
data to have it enciphered or deciphered; when you're done, call the closure 
with no argumen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6385	6493	
==>doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 10 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6385	6493	
==>doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 10 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6022	6167	
==>ize_version($b) cmp _normalize_version($a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@gh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4729	4850	
==>$self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    }
    
    return;
}    

=head2 $inst <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	932	1064	
==>5.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	809	917	
==>5.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1288	1399	
==><spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1288	1399	
==><spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3680	3782	
==>utput to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_out <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3680	3782	
==>utput to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_out <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3189	3303	
==>ad($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5395	5509	
==>ad($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6611	6872	
==>tally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6611	6872	
==>tally awkward.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10424	10524	
==>lass.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10424	10524	
==>lass.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1055	1170	
==>) in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1055	1170	
==>) in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	381	488	
==>is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	381	488	
==>is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about t <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	343	454	
==>the distribution components you need.

= WHY

You should use this module as a starting point to base
a new modul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	73	177	
==>xporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	73	177	
==>xporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4059	4249	
==>child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submeth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4059	4249	
==>child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submeth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3205	3329	
==>};
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3205	3329	
==>};
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	542	646	
==>sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_;

    return Pugs::Compiler::RegexPerl5->co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5844	5961	
==>, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9321	9438	
==>, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12848	12944	
==>e.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (C <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12906	13002	
==>e.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `lives_ok (C <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8763	8873	
==>er ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	236	344	
==>er ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	549	640	
==>TION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	549	640	
==>TION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4010	4114	
==>mp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4010	4114	
==>mp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3941	4100	
==>vels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5165	5324	
==>vels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7040	7146	
==>l functional operators, and the higher level OO/Overload 

runtime. 



- internal rule operators



Intern <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6800	6901	
==>l functional operators, and the higher level OO/Overload 
runtime. 

- internal rule operators

Intern <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	973	1074	
==>ile. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	973	1074	
==>ile. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11705	11863	
==>apture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12063	12221	
==>apture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3072	3227	
==>do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << " <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3072	3227	
==>do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7289	7423	
==>,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7289	7423	
==>,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7750	7883	
==>e_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7750	7883	
==>e_index', { 'name' => 'primary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9146	9281	
==>TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9146	9281	
==>TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3062	3205	
==>eturn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3062	3205	
==>eturn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21270	21363	
==>( Regexp::Parser::__object__ );

  push @Regexp::Parser::ifmatch::ISA, __PACKAGE__;
  push @Re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2893	3014	
==>Y_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2893	3014	
==>Y_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2361	2498	
==>tfile );

        ### this package didn't provide any alternatives
        last LINKING unless $href->{$pkg};
        
        ### XXX thi <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3907	4029	
==>opy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@strin <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3907	4029	
==>opy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@strin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	554	718	
==>mp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp di <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	840	992	
==>mp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp di <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	142	257	
==>fig/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	142	257	
==>fig/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO existed

sub Config <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1256	1361	
==>ad2 Base ADTs

All nodes as well as a few other objects are implemented as one of three ADTs.

=over 4

=i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11876	11984	
==>{PERL5LIB};
    my $perl = $self->_command;
    my @inc =`$perl -le "print join qq[\n], \@INC"`;
    chomp @i <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	18	120	
==>class Person {
	method name() { return "Otto"; }
}
class Welt {
	method hallo ( String $name ) { "Hallo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6981	7093	
==>() constructor provides an interface between the 

low-level functional operators, and the higher level OO/Overlo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6742	6853	
==>() constructor provides an interface between the 
low-level functional operators, and the higher level OO/Overlo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4847	4979	
==>.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4847	4979	
==>.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5282	5387	
==>compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5099	5198	
==>compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1398	1555	
==>, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1398	1555	
==>, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { return { match_variable => $_[0]{num_variable} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3200	3315	
==>{
            #print "pos $level at $opt->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23793	23899	
==>?:...), copy-and-push
  if ($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, q <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	211	332	
==>1] = @_[1,0] }
#="is copy"
sub func( $arg is copy ) { $arg = 123; }
#="is ref": eine Referenz wird erwartet
sub func( $arg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4475	4589	
==>/::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4475	4589	
==>/::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implement <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18745	18843	
==>L in its native API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18745	18843	
==>L in its native API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5536	5648	
==>')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now), s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5536	5648	
==>')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now), s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17025	17148	
==>e },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @per <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17025	17148	
==>e },

    # Remove all items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @per <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3242	3507	
==>t>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3242	3507	
==>t>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5586	5838	
==>h::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6435	6687	
==>h::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4535	4694	
==>gs{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     | <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2276	2434	
==>gs{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     | <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3698	3811	
==>d1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3698	3811	
==>d1 SYNOPSIS

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11726	11835	
==>handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11726	11835	
==>handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2319	2411	
==>ugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2319	2411	
==>ugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->c <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	433	563	
==>d from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    m <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	433	563	
==>d from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18506	18605	
==>avy
in the future, but for now it officially is not and you should not share
Rosetta objects between <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18506	18605	
==>avy
in the future, but for now it officially is not and you should not share
Rosetta objects between <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12107	12231	
==>If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12107	12231	
==>If
the optional named parameter @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	793	926	
==>le anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        - <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	793	926	
==>le anonsub {
        <subintro> <psignature>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        - <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1383	1489	
==>ses($super);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasses.size ) {
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9933	10035	
==>eturn "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = '$gramm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12901	13032	
==>ip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12901	13032	
==>ip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3487	3579	
==>), !.
p5_concatenation_more(W, W) --> {true}.

p6_concatenation(Z)    --> p6_quantified(W), p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11854	11974	
==>lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11848	11968	
==>lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18826	18923	
==>mous hash
definition.  While it is obvious that people who would be writing the text
would have to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18826	18923	
==>mous hash
definition.  While it is obvious that people who would be writing the text
would have to <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4051	4159	
==>tespacePosition);
  my $token = $$currentTermTable{$key};
  unless ($token)
  {
    push @bsrStack, "bsr_toke <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	310	467	
==>),
				Val('%s'),
				Sym('$string'),
			),
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym('&pr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1276	1399	
==>onfess "Plan already set!" if _('$.testplan');
            if ($tests) {
                _('$.testplan' => $::TestBuilder->F <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	847	965	
==>E html/) {
    debug "doesn't look like a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18731	18845	
==>ef $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20089	20203	
==>ef $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{d <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1054	1232	
==>ss} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    retur <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1054	1232	
==>ss} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4301	4438	
==>t delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_outp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4301	4438	
==>t delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_outp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	75	189	
==>compiler
# 

use strict;
use warnings;
no warnings 'redefine';

require 'p6rule.pl';
require 'emit.pl';
require 'in <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1831	2004	
==>$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies
    # to each event.
    # Note that I use the test number for reference, wh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	185	288	
==>::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Method;
use Perl6::MM::Attr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10085	10176	
==>UNPERL_DEBUG=/usr/bin/valgrind
    if ($ENV{PERL_RUNPERL_DEBUG}) {
	$runperl = "$ENV{PERL_RU <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19795	19900	
==>e in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19795	19900	
==>e in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2909	3014	
==>nslate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2909	3014	
==>nslate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user t <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	122	232	
==>as Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	122	232	
==>as Code  $.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16241	16347	
==>spans overlap, then the list contains a single
span. Otherwise, it contains two spans. Spans of recurrences <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16241	16347	
==>spans overlap, then the list contains a single
span. Otherwise, it contains two spans. Spans of recurrences <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	374	502	
==>$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	374	502	
==>$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                ms <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5109	5215	
==>d - intended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5331	5437	
==>d - intended to bind variables in a macro, when it returns an AST
#     instead of string
sub bind_variable <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2896	3001	
==>.  To avoid 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time random <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2896	3001	
==>.  To avoid 
this, make sure you combine the key with a nonce or initialization vector, a 
one-time random <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4105	4206	
==>PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4105	4206	
==>PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9924	10126	
==>. 
                    ' my ' . _emit( $n->{exp2}{signature} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2529	2701	
==>= shift;
                %{$self->hash_fetch} = ();
            },
            hash_isEmpty => sub {
                my $self = shift;
                # FIXME context should <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7038	7206	
==>$tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6802	6965	
==>$tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tai <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4076	4198	
==>les are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a prope <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4076	4198	
==>les are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a prope <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2187	2315	
==>open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    r <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2187	2315	
==>open MODULE, $module_path
      or die "Can't open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2993	3086	
==>tween perl and Blondie, by providing implementations of
some math, string and IO operations (i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2813	3082	
==>0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4529	4687	
==>s ###
        $href->{ $pkg } = { bin => \@bins };
            
        ### dump out alternatives again
        DumpFile( $Altfile, $href );
    }

    ### rem <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1550	1656	
==>(Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1550	1656	
==>(Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2124	2233	
==>@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2124	2233	
==>@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-')) if not $field ~~ /^ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5640	5736	
==>erface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5640	5736	
==>erface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15336	15436	
==>on written to it should behave identically no matter which
conforming "Engine" is in use.

Rosetta in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15336	15436	
==>on written to it should behave identically no matter which
conforming "Engine" is in use.

Rosetta in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	499	610	
==>(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	499	610	
==>(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7849	7977	
==>s($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7849	7977	
==>s($input);
        }
        else {
            die "Invalid Content Type" if $REQUEST_METHOD; # only die if we are running under <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	63	164	
==>te;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable contr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	63	164	
==>te;
# XXX port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable contr <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	383	491	
==>e: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.pu <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	383	491	
==>e: currently"] unless @msg;
	
	if $active eq any('all', keys %tags) {
		unless @msg[-1] ~~ /\n$/ {
			@msg.pu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15261	15359	
==>returned.

Methods that deal with dates/times always convert their value to system
time (seconds si <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15261	15359	
==>returned.

Methods that deal with dates/times always convert their value to system
time (seconds si <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3473	3624	
==>f $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Pe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3473	3624	
==>f $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18579	18694	
==>1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(bran <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19937	20052	
==>1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(bran <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12199	12323	
==>( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12193	12317	
==>( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, $str, $grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22910	23071	
==>op::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23189	23350	
==>op::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4390	4501	
==>next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4390	4501	
==>next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        univers <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9686	9847	
==>s) {
          if (exists $lines->{$line}) {
              $lines->{$line} = 0 if $test->{ok}||0 == 0;
          } else { 
              # skipped tests do not ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19249	19347	
==>ader must be included as part of a C<401 Unauthorized> response.
The field value consist of a chall <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19249	19347	
==>ader must be included as part of a C<401 Unauthorized> response.
The field value consist of a chall <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	936	1034	
==>ght, to be a next step. And the current Regexp::Parser Object
# ast isnt really what we want long-t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43484	43575	
==>ata definitions or connections to databases: L<Set>, L<Rosetta>.

=head1 BUGS AND LIMITATION <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5992	6180	
==>code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5992	6180	
==>code($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4159	4293	
==>e},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4031	4162	
==>e},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$cap <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4769	4969	
==>tart_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.prin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4769	4969	
==>tart_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.prin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	395	506	
==>et {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	395	506	
==>et {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	35	138	
==>chen Zahl in Perl 6
use v6;
sub infix:«>?» ($a, $b) { $a > $b ?? $!!:: $b }
sub postfix:<!> ($x) { [*] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	982	1065	
==>rl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	982	1065	
==>rl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17558	17662	
==>nts.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17558	17662	
==>nts.  I<This header is no longer part of the HTTP
standard.>

=item $h.user_agent

This header field is u <==
2	/Users/nnunley/pugs/util/build_pugs.pl	210	339	
==>se FindBin;
BEGIN { chdir $FindBin::RealBin; chdir '..'; };
use lib 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3445	3562	
==>_revision} == 0 ? "release" : "dev",
  };

  my %cats;
  my @smokes = map { unpack_smoke($_) } glob "pugs-smoke-*.html <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1518	1649	
==>_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1518	1649	
==>_open;
    }
    $cmp = $i_start <=> $i_end;
    return $cmp <= 0  &&
           ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) ) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	221	353	
==>=> [ $::Object ],
    class_attributes => [
        '$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.test <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11070	11193	
==>estr,$code_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12003	12109	
==>:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12003	12109	
==>:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n) <==
2	/Users/nnunley/pugs/util/addauthors.pl	1602	1709	
==>($cpanid) = m/\(([A-Z]+)\)/;
    my ($nick)   = m/"([^"]+)"/;
    my $author   = {cpanid => $cpanid, nick => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6037	6137	
==>class, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10294	10394	
==>class, $Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2102	2201	
==>"X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2102	2201	
==>"X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3449	3575	
==>gory->new( 
    name => 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left',
    pr <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9500	9595	
==>document.getElementById("details_"  + id),
          expander = document.getElementById("expande <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1162	1280	
==>mit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1150	1268	
==>mit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27683	27771	
==>TCH_TAINTED_off(prog))

 #define RX_MATCH_COPIED(prog)		((prog)->reganch & ROPT_COPY_DONE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6339	6447	
==>om_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6339	6447	
==>om_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5465	5571	
==>art <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5465	5571	
==>art <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4436	4527	
==>ribes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pend <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4436	4527	
==>ribes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pend <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12168	12282	
==>ements, sort should
return them in the same relative order they had in C<@values>.

If C<$inplace> is specified, th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	20	121	
==>er::Rule;
$Pugs::Compiler::Rule::VERSION = '0.03';

# Documentation in the __END__
use 5.006;
use stri <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2463	2572	
==>g
newlines.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Test::Harness::Iterato <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	514	612	
==>whether the function can be used in a safe
context (such as the IRC evalbot) using `is safe` or `is <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8274	8381	
==>eturn $line;
}


=head2 C<_command>

  my $command = $self->_command();

Returns the command that runs the t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	723	825	
==>= "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\%(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    ret <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6160	6258	
==>pod r8593.
multi method Array::as_map (@array:) returns Hash {
    hash(@array.pairs);
}
# name fro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5236	5394	
==>$length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5236	5394	
==>$length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2245	2371	
==>ize {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compil <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2245	2371	
==>ize {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24907	25032	
==>turn { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25186	25311	
==>turn { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1284	1381	
==>TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

= <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1284	1381	
==>TAP footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

= <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6716	6819	
==>w/node/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

package cond;
use base qw/no <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18247	18365	
==>oken = self
    if token == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cut <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	614	723	
==>read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", map { ref $C <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6086	6193	
==>PACE, target, pos
    if $I0 goto term_literal_end
    $S0 = substr target, pos, 1
    $I0 = index "<>[](){} <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1916	2021	
==>re_varname})\s*=\s*\\(${re_varname})/$1 = $2/g;
}

conv_self {
    my $sub_context;
    # Check if it's no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4079	4197	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4272	4390	
==>} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    retur <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	334	450	
==>e().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method create_tree returns Vo <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11223	11332	
==>s with limited command line lengths, like VMS.

=cut

sub _filtered_INC {
    my($self, @inc) = @_;
    @inc = <==
2	/Users/nnunley/pugs/util/package-osx.pl	7178	7281	
==>an/man3/Perl6::Pugs.3pm
        /usr/local/man/man3/Perl6::Spec.3
        /usr/local/man/man3/Perl6::Spe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23711	23827	
==>),
	),
	in => ide("map"),
);

my $list_plus_ten = comb(
    fun => $map,
    param => $plus_ten
);

# tests for the t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17172	17261	
==>(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8122	8224	
==>m %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8122	8224	
==>m %users and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1638	1777	
==>p -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2410	2519	
==>::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $match <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7251	7359	
==>($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    return $Re <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1217	1312	
==>", "ext/*/t/*.t"
}

help() if $Config{help};

_build_include_re();
_build_exclude_re();

my $s = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2179	2301	
==>t parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2319	2441	
==>t parameter order - could just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	430	539	
==>(?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	430	539	
==>(?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6918	7068	
==>return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6690	6831	
==>return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9330	9449	
==>donly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curirc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9330	9449	
==>donly accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curirc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1419	1578	
==>en rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1419	1578	
==>en rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %ev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18275	18374	
==>epository file
on disk, it is expected that the Engines will employ appropriate measures
such as sys <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18275	18374	
==>epository file
on disk, it is expected that the Engines will employ appropriate measures
such as sys <==
2	/Users/nnunley/pugs/util/func_refact.pl	1451	1572	
==>{debug}||="");

    return 0 if $ignoring{$new};

    my $size = scalar(keys %$set) - 1; # to force one run even if $new i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9238	9343	
==>d union (Relation::Example *@others) returns Relation::Example {

    for @others -> $r2 {
        die "Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2244	2375	
==>6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    package Foo;



and p6 ones begin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2161	2287	
==>6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    package Foo;

and p6 ones begin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1172	1321	
==>( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statem <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1172	1321	
==>( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statem <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8708	8885	
==>ersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12185	12362	
==>ersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    die "The heading of the rela <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6606	6711	
==>te($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6606	6711	
==>te($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>.delete(normal <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3841	3953	
==>>{data}) {
	$self->{data}->visual;
      }
      else {
	# The actual bug is in Handlers.pm init() - the \$how 's <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	370	555	
==>leop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	370	555	
==>leop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9900	9999	
==>r value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string representatio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9900	9999	
==>r value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a string representatio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9685	9781	
==>t, defined with closures. 

A recurrence set is defined by a "successor" function and a "predeces <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9685	9781	
==>t, defined with closures. 

A recurrence set is defined by a "successor" function and a "predeces <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7080	7183	
==>ds on their data...
# this is why this code is so big.

# in a language with native multimetods this wou <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4841	4953	
==>kages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_conte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4841	4953	
==>kages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_conte <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5580	5689	
==>f $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5580	5689	
==>f $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_ope <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5128	5260	
==>pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastcloseparen = Sv <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	566	693	
==>em("pugs naive_bayesian.p6 add apples apples");
    system("pugs naive_bayesian.p6 add oranges oranges");
    system("pugs naive <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2971	3074	
==>tion vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2971	3074	
==>tion vector, a 
one-time random number.  (It will need to be sent to the other end along with 
the ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5531	5650	
==>rt_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5531	5650	
==>rt_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	259	383	
==>0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	259	383	
==>0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $c <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	9	117	
==>perator
# x Wiederholt in Perl weiterhin Strings:
$a = "a" x 3  # "aaa"

#=der xx Operator
# neu in Perl 6 is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	705	874	
==>| \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	705	874	
==>| \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_ch <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3738	3845	
==>extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright si <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3738	3845	
==>extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright si <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2828	2970	
==>if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3373	3515	
==>if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	701	791	
==>*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new(p6=>$p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9335	9450	
==>fter}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optiona <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9335	9450	
==>fter}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optiona <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24637	24750	
==>egal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21058	21171	
==>egal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	492	587	
==>e for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	492	587	
==>e for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10014	10112	
==>ries to set the input, and input that
fails immediate evaluation will not be set at all.  The scope <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10014	10112	
==>ries to set the input, and input that
fails immediate evaluation will not be set at all.  The scope <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1057	1205	
==>e /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

----------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8170	8304	
==>ned $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8182	8316	
==>ned $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nod <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3324	3424	
==>dex = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3324	3424	
==>dex = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4679	4796	
==>on( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4679	4796	
==>on( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25535	25634	
==>ject
represents (or gives the name of a condition being reported, if it is used
as an exception payl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25535	25634	
==>ject
represents (or gives the name of a condition being reported, if it is used
as an exception payl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12403	12500	
==>rresponding argument is undefined).  The new Document object's All Nodes
attribute starts out empt <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12403	12500	
==>rresponding argument is undefined).  The new Document object's All Nodes
attribute starts out empt <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	998	1095	
==>'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	998	1095	
==>'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7428	7547	
==>_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7428	7547	
==>_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21033	21134	
==>d set of named attributes; all tuples in a Relation are of the same
degree, and the attribute names of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25585	25686	
==>d set of named attributes; all tuples in a Relation are of the same
degree, and the attribute names of <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1013	1109	
==>l, and object-oriented interfaces.  The 
functional and object-oriented interfaces both follow th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1013	1109	
==>l, and object-oriented interfaces.  The 
functional and object-oriented interfaces both follow th <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1889	1992	
==>eason, directly returning this expression does not
    # yield the correct return value.

    say "Compa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1889	1992	
==>eason, directly returning this expression does not
    # yield the correct return value.

    say "Compa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7062	7188	
==>y_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7062	7188	
==>y_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $conte <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2695	2809	
==>lay_type($res->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4997	5136	
==>sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support mult <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5055	5194	
==>sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack -- PIL2JS doesn't support mult <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	364	476	
==>->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	461	573	
==>->compile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcd <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26364	26467	
==>nformed any time you create a modified version of Rosetta
that you are willing to distribute, because th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26364	26467	
==>nformed any time you create a modified version of Rosetta
that you are willing to distribute, because th <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2470	2582	
==>(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29draft.pod r8649.
&Array::pop := &Array::s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13893	14034	
==>cess_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13893	14034	
==>cess_message();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2367	2469	
==>ster_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a succe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2367	2469	
==>ster_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a succe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2472	2641	
==>dir first, THEN copy later if all goes well
        {   
            my $packlist    = $inst->files_list( $self->package );
        
            system( qq[mkdir -p $meta <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17769	17872	
==>unction takes any pair and returns it's second thingy
# (a x b) -> b
# applied to $pair (int x str) this <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1090	1193	
==>TION

Newton's method is a simple method for finding roots, like square roots or
cube roots (as in the e <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5805	5925	
==>plement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5805	5925	
==>plement;
    @span = @span.map:{ $self.intersection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	401	525	
==>'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	401	525	
==>'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12783	12880	
==>currence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12783	12880	
==>currence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2456	2613	
==>orary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2456	2613	
==>orary storage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2222	2376	
==>$#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2151	2300	
==>$#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3846	3949	
==>: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count :: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3846	3949	
==>: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count :: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13817	13953	
==>$self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1297	1433	
==>$self->reduce($body);

    $self->leave_scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13034	13143	
==>re provided as argument they are each decoded
separately and the same number of strings are returned.

If call <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13034	13143	
==>re provided as argument they are each decoded
separately and the same number of strings are returned.

If call <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22101	22197	
==>esentation of the regex.

=item len

The length of the original string representation of the rege <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1888	2022	
==>rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1888	2022	
==>rw {
    return Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this m <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1507	1609	
==>erl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iint <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1507	1609	
==>erl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iint <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1279	1407	
==>Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Loc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1279	1407	
==>Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Loc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5887	6057	
==>} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5899	6069	
==>} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3286	3400	
==>b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3286	3400	
==>b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::In <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6900	6997	
==>d
F<YAPE::Regex> modules.

=head1 USAGE

=head2 Creating an Instance

To use this module as is, lo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2170	2333	
==>inst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POS <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5050	5165	
==>AKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{pr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9348	9484	
==>!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test thi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9348	9484	
==>!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test thi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	799	927	
==>\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $chr eq "\\") {
	    print " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25584	25680	
==>he regback variable says how many characters back from
 * where regmust matched is the earliest p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1747	1846	
==>\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1747	1846	
==>\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9066	9196	
==>ods
  method channels()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9066	9196	
==>ods
  method channels()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2259	2421	
==>p_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $hea <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2259	2421	
==>p_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $hea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4381	4683	
==>xt if $seen{$_->{name}};
                    $seen{$_->{name}} = 1;
                    $s .= ' ' .
                        $_ eq 'list' 
                            ? $_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	850	1092	
==>if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_docu <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	850	1092	
==>if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_docu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3442	3582	
==>= 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3442	3582	
==>= 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9415	9508	
==>ments, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->ev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3240	3333	
==>ments, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->ev <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4321	4454	
==>op @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27916	28023	
==>@:MRO;
}

(method MRO ((opaque $self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) an <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9995	10276	
==>$lines->{$line} = ($test->{ok}||0 ==1 ? 1 : 0);
          }
          }
      }
  }
                                                                                           
  my $infile  = IO::File->new($input_path, "<:utf8") 
                         or die "Can't open input te <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4500	4598	
==>eturns the I<result>
object; this is normally the entire match string, but may be arbitrary
objects <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4500	4598	
==>eturns the I<result>
object; this is normally the entire match string, but may be arbitrary
objects <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20199	20401	
==>$argl =~ s/\*([\@\%])(\w+)/$1$2/) {
	    $modifyargs .= "my \$$2 = \\$1$2;";
	}
	my $argl2 = $argl;
	$argl2 =~ s/[\@\%]/\$/g;
	my $code = "# macrop5 $name\n sub{my$argl=\@_; $modifyargs \$fun->$argl2}\n" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2349	2465	
==>pan::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2349	2465	
==>pan::Int $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1166	1310	
==>_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1166	1310	
==>_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $inner = ./ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10560	10661	
==>pos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, "Error in closure quantifier")
.e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3048	3146	
==>sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3048	3146	
==>sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2987	3090	
==>on( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2987	3090	
==>on( $self.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_inters <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7642	7755	
==>n1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7642	7755	
==>n1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17360	17458	
==>rce filterish modules in a much more sane manner.
Module::Compile controls the compilation process, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17360	17458	
==>rce filterish modules in a much more sane manner.
Module::Compile controls the compilation process, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16343	16449	
==>o support N
locales or user types simultaneously, and that allows any end users to add
support for new lang <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16343	16449	
==>o support N
locales or user types simultaneously, and that allows any end users to add
support for new lang <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6178	6286	
==>l::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6178	6286	
==>l::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21825	21953	
==>-1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18246	18374	
==>-1);
  });

  # suspend
  $self->add_handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	37	129	
==>ings;

use Test::More tests => 13;

## ------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11332	11489	
==>y', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', und <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11332	11489	
==>y', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', und <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2104	2230	
==>,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2104	2230	
==>,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	266	382	
==>ype';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not enough element <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	182	289	
==>s Scalar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array::s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	726	850	
==>standard in that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n";
            if ( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1629	1764	
==>eturn $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2409	2544	
==>eturn $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13397	13503	
==>(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13397	13503	
==>(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12744	12840	
==>set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12744	12840	
==>set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1156	1298	
==>erclass of any superclass

method set_superclasses($self: Set $super) {

    my $supers = $self.all_superclasses;
    die "Uh-oh, there's a sup <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1707	1822	
==>ETH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1707	1822	
==>ETH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is undefined.], <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5985	6098	
==>s rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5985	6098	
==>s rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	244	344	
==>et::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	244	344	
==>et::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2296	2428	
==>the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2296	2428	
==>the match has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	303	417	
==>ey($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	303	417	
==>ey($key));
    @output = gather { take $cipher.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2508	2625	
==>rogram;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1120	1237	
==>rogram;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_str( $_[0], '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	684	821	
==>g_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	684	821	
==>g_list
    # rule parameters: see Runtime::Rule.pm
    return 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        " <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21639	21767	
==>}
      }
      return opRequire();
    }
    die "Can't find " ~ $file ~ ' in @*INC (@*INC contains: ' ~
        join(' ',@*INC) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14900	15003	
==>start);

    $Strap->_restore_PERL5LIB;

    return(\%tot, \%failedtests);
}

=item B<_mk_leader>

  my( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4022	4153	
==>e.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4022	4153	
==>e.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	741	838	
==>-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ran <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	741	838	
==>-Forwards Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ran <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1876	1982	
==>$desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1934	2040	
==>$desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, : <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1380	1548	
==>ords) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1380	1548	
==>ords) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3744	3843	
==>sert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::ins <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3744	3843	
==>sert_children, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::ins <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2113	2231	
==>e} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2113	2231	
==>e} ] }; 
};
    push @grammar1::statements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2074	2181	
==>eue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ . <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2074	2181	
==>eue = new Queue: floodcontrol => $floodcontrol;
  }

  my method enqueue(Str $msg) {
    $!queue.enqueue({ . <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1914	2104	
==>turn {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1914	2104	
==>turn {
        'root_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	419	518	
==>ml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml helper rou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	654	808	
==>hould use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	816	970	
==>hould use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	913	1016	
==>ock> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($nam <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	913	1016	
==>ock> !{ run_widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12341	12441	
==>ribute (that attribute defaults to empty if the parameter's
corresponding argument is undefined).  Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12341	12441	
==>ribute (that attribute defaults to empty if the parameter's
corresponding argument is undefined).  Th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5426	5522	
==>$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5426	5522	
==>$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$de <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3731	3892	
==>p[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3731	3892	
==>p[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1067	1185	
==>-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named vari <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1067	1185	
==>-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named vari <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4616	4698	
==>coded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4616	4698	
==>coded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11673	11825	
==>nd($command);
        close $err;
        close  ($r ?? $in !! $out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	644	782	
==>or error( $@ ), return; 

    return $class->new_from_struct( struct => $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8688	8853	
==>*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8881	9046	
==>*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \& <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24	122	
==>5 September 7

This file is a development snapshot of the prolog regex engine I
started over the we <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	259	374	
==>ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	259	374	
==>ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12268	12387	
==>') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4911	5030	
==>') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1705	1806	
==>i-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1705	1806	
==>i-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2313	2432	
==>200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2313	2432	
==>200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13662	13813	
==>source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13662	13813	
==>source =~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2312	2406	
==>e.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_supers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2312	2406	
==>e.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_supers <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6879	6984	
==>y $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6879	6984	
==>y $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	506	612	
==>termine which stack frame points to the code we are filtering.
# This is a method in case it needs to be ov <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	506	612	
==>termine which stack frame points to the code we are filtering.
# This is a method in case it needs to be ov <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	184	288	
==>ommand line arguments
my $input_filename = shift || die "Missing arguments!";
my $output_filename = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	184	288	
==>ommand line arguments
my $input_filename = shift || die "Missing arguments!";
my $output_filename = shift <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1277	1379	
==>modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1277	1379	
==>modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	275	389	
==>mar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Gramma <==
2	/Users/nnunley/pugs/util/config_h.pl	1142	1240	
==>ort System.Console.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_comp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17058	17154	
==>at would not be possible if its
functionality was subsumed into a larger package that would other <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17058	17154	
==>at would not be possible if its
functionality was subsumed into a larger package that would other <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10230	10348	
==>return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.pr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10230	10348	
==>return @span1;
}

method next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1504	1635	
==>racted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1504	1635	
==>racted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@x <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1594	1729	
==>} else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1594	1729	
==>} else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	447	533	
==>B::Package::Installed>, L<JIB::Package::Source>,
L<JIB::Repository>, L<JIB::Source>, L< <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	844	938	
==>te level, not the character level, so different 
character encodings may be enciphered in diffe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	844	938	
==>te level, not the character level, so different 
character encodings may be enciphered in diffe <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	4019	4143	
==>ath}/$1.pm";
        my $pkg = "$self->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg];
    }, $path) if -d <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8146	8260	
==>11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
  <title>Pugs Smoke Reports</ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8507	8683	
==>return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8507	8683	
==>return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18719	18818	
==>blems.  While simultaneously
trying to avoid triggering core behavior which we are not prepared to
s <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3009	3108	
==>blems.  While simultaneously
trying to avoid triggering core behavior which we are not prepared to
s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4974	5149	
==>um == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4986	5161	
==>um == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3081	3210	
==>ide closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3265	3394	
==>ide closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22287	22394	
==>tion is not a table.

The Relation class is pure and deterministic, such that all of its class
and object me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26839	26946	
==>tion is not a table.

The Relation class is pure and deterministic, such that all of its class
and object me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	912	1016	
==>API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Compiler ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	866	966	
==>API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Compiler ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3833	3979	
==>$sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3833	3979	
==>$sub.(%standard_case{$key} || $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4013	4123	
==>gs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4153	4263	
==>gs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _q <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	448	532	
==>----------------------------------------------------------------------
## accessors a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	448	532	
==>----------------------------------------------------------------------
## accessors a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4621	4790	
==><$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4621	4790	
==><$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1162	1269	
==>0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1162	1269	
==>0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	83	235	
==>rt {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	83	235	
==>rt {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49085	49330	
==>,
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$version')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5456	5570	
==>ontent_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_word <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5456	5570	
==>ontent_type;
    
    if ($content_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_word <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	72	199	
==>HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	72	199	
==>HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	642	738	
==>ect = bless {}, $class;
  $object->tokenTable({}) ;
  $object->termTable({});
  $object->operator <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5530	5663	
==>en = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_chan <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4030	4163	
==>en = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_chan <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2774	2957	
==>ere too
            print "Unpacking code...\n";
            system( qq[tar -f $my_tmp_dir/$Data -C $Builddir -xz] );
        
            ### preinst hook
            my $preinst = $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14594	14759	
==>n 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14588	14753	
==>n 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) {
            w <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9826	9918	
==>unctions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9826	9918	
==>unctions (again)

multi sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	879	1031	
==>els}}, $_-1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'looser' ) {
                splice( @{$self->{levels <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17681	17775	
==>> val(v => "foo", t => type::operator::nullary->new("str")),
);

# the polymorphic snd function <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	502	616	
==>ailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	469	583	
==>ailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+)(.+)/( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8354	8467	
==>issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree and not a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8354	8467	
==>issue
# since each time you either add a child
# or create a tree you are doing it with 
# a single tree and not a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1825	1990	
==>(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15885	16018	
==>ift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15885	16018	
==>ift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the q <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9952	10116	
==>0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curuser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9952	10116	
==>0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curuser <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	635	752	
==>$run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	635	752	
==>$run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	407	521	
==>All meta-information provided by dialects should be stored in this
tree as an attribute.  The property C<attr> is u <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	407	521	
==>All meta-information provided by dialects should be stored in this
tree as an attribute.  The property C<attr> is u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6066	6203	
==>DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA se <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6066	6203	
==>DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2766	2915	
==>};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # updat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2766	2915	
==>};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # updat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1545	1659	
==>tart ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1545	1659	
==>tart ?? $span.start !! $.start;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28160	28275	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28439	28554	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8284	8383	
==>{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work with: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8284	8383	
==>{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to work with: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9643	9739	
==>is class handles an infinite recurrence set, defined with closures. 

A recurrence set is defined <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9643	9739	
==>is class handles an infinite recurrence set, defined with closures. 

A recurrence set is defined <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1029	1140	
==>From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1029	1140	
==>From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20531	20642	
==>ames with ':' allow you to force a
specific spelling.  For example if you really want a header field name
to sho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20531	20642	
==>ames with ':' allow you to force a
specific spelling.  For example if you really want a header field name
to sho <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27758	27867	
==>t_p), "(int × int)", ":t length_and_first [1]");
is(t($length_and_first_gen), "((int × int) × (str × int)) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13793	13922	
==>, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $skip and $skip =~ /^Skip/i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7279	7378	
==>base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7279	7378	
==>base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5650	5764	
==>ram[2] = {} unless defined $param[2];

        $param[2] = { %{$param[2]}, capture=>1 };

        my $match = $node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5469	5581	
==>ram[2] = {} unless defined $param[2];
        $param[2] = { %{$param[2]}, capture=>1 };
        my $match = $node <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1536	1650	
==>100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1536	1650	
==>100 => sub{$x->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return s <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	987	1101	
==>start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	987	1101	
==>start () returns Object {
    # TODO - change Inf to DateTime::Infinite
    return $.start;
}
method end () returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23686	23792	
==>dText has
named variables, which can be used in any order, or not used at all, or
used multiple times.  Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23686	23792	
==>dText has
named variables, which can be used in any order, or not used at all, or
used multiple times.  Loc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2269	2414	
==>eq',
    );
    __PACKAGE__->add_rule( 
        name => '!=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41047	41140	
==>arser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error.

=back

=head1 SEE ALSO

L<Regexp::Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1980	2133	
==>r 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2197	2350	
==>r 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude:$prelude\n";
        my $perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4454	4557	
==>n used as a code reference, the match object returns the I<result>
object; this is normally the entire m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4454	4557	
==>n used as a code reference, the match object returns the I<result>
object; this is normally the entire m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19825	19924	
==>the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19825	19924	
==>the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$bot.us <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4902	4997	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4902	4997	
==>.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14280	14399	
==>ated.

What is returned at each element of the iteration varies with function.
C<keys> only returns the key; C<values> t <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5882	6192	
==>n event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5882	6192	
==>n event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9117	9213	
==>te mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$valu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9117	9213	
==>te mapping
my %char_to_entity;
for %entity_to_char.kv -> $key, $value {
    %char_to_entity{$valu <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10209	10331	
==>ath, "<:utf8") 
                         or die "Can't open input test file $input_path: $!";
  my $outfile = IO::File->new <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	357	473	
==>.= $_ }
}

our %nodes;
for my $key (keys %funcs) {
	for my $func (keys %funcs) {
		next if $func eq $key;
		print "$k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4123	4295	
==>{
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4123	4295	
==>{
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #r <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8785	8904	
==>) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> : <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1288	1389	
==>]> ($O: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defined $Res <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11996	12108	
==>d the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11996	12108	
==>d the time the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $las <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2314	2467	
==>er*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2314	2467	
==>er*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33331	33472	
==>('add_method' => (
    # method label
        symbol->new('is_a'),
    # method body
        method->new(
            $::ENV,
            meth <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1442	1569	
==>s);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as if it were code written in C <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1023	1254	
==>ven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $bu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1023	1254	
==>ven $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $bu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11511	11608	
==>leton method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass foo');
is($iBar->bar, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23869	23962	
==>t know about language specific details like
encodings or plurality.

My understanding of alter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23869	23962	
==>t know about language specific details like
encodings or plurality.

My understanding of alter <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3540	3650	
==>.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3540	3650	
==>.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6891	6994	
==>1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6891	6994	
==>1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	43	143	
==>cumentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	43	143	
==>cumentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9334	9462	
==>y accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9334	9462	
==>y accessors
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	924	1030	
==>?PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warnings;

use base 'clos <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2004	2100	
==>ant);
    $optable->addToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addTo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1032	1152	
==>=== none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method inc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1032	1152	
==>=== none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method inc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14962	15060	
==>osetta framework and defines a common programmatic interface (API), called
the Rosetta Native Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14962	15060	
==>osetta framework and defines a common programmatic interface (API), called
the Rosetta Native Inter <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2835	2928	
==>.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 C <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2835	2928	
==>.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 C <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	593	733	
==>on: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	593	733	
==>on: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m {
        my $pos = $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2293	2392	
==>', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2293	2392	
==>', assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2969	3073	
==>tr ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2969	3073	
==>tr ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2445	2569	
==>~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # ther <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2445	2569	
==>~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # ther <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8301	8415	
==>ILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $noop = $o-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18452	18554	
==>, by which you can create an identical Node (with
child Nodes) to the one you first invoked export_as_h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18452	18554	
==>, by which you can create an identical Node (with
child Nodes) to the one you first invoked export_as_h <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26236	26402	
==>:arrow->new(
		type::operator::nary->new(list => $a),
		type::operator::arrow->new(
            type::operator::nary->new(list => $b),
            type::operator::nary <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22619	22717	
==>se of a L<Set> class; a Relation::Example is like a Set that exists
over N dimensions rather than o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16823	16917	
==>environment variables, which can aid in
portability.

Practically speaking, Locale::KeyedText d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16823	16917	
==>environment variables, which can aid in
portability.

Practically speaking, Locale::KeyedText d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	915	1015	
==>&& $right->isa('symbol');
    return bit->new(1) 
        if $left->name->to_native eq $right->name-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	707	813	
==>st.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	707	813	
==>st.end;
}
method start_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6950	7102	
==>row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6950	7102	
==>row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	421	528	
==>getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	421	528	
==>getting information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1804	1899	
==>(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3180	3275	
==>(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8899	9003	
==>nd an optional available list
    ### and check if the package is available/provided by any installed pkg <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10376	10480	
==>nd an optional available list
    ### and check if the package is available/provided by any installed pkg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10280	10392	
==>b node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10446	10558	
==>b node::constant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	749	840	
==>ugs::Compiler::Rule->compile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return " <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18824	18931	
==>ent and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18824	18931	
==>ent and continuing
        until the next C<package> or C<DATA> section.
    DATA - The DATA section. Begins <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2590	2690	
==>ymbol})\s*;/class $1;/g;
}

conv_open {
    s/open (${re_scopeop}?\s*${re_varname})\s*${re_comma}\s*( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4018	4170	
==>ems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4018	4170	
==>ems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2938	3094	
==>: argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2938	3094	
==>: argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLA <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5413	5513	
==>$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5413	5513	
==>$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64 <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	2	117	
==>dule Benchmark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unles <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	2	117	
==>dule Benchmark-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unles <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37287	37388	
==>r
$module_name (a string) and checks whether or not it has already been
loaded, returning true if so a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37287	37388	
==>r
$module_name (a string) and checks whether or not it has already been
loaded, returning true if so a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1743	1930	
==>!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1743	1930	
==>!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1077	1211	
==>+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $siteli <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1077	1211	
==>+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $siteli <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8291	8440	
==>( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] capture( '$_[2]',\n" .
    #       emit_rule( $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	409	524	
==>values;
    bless \@values => $class;
}

# native conversion
sub to_native { @{(shift)} }

# conversion to other typ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3645	3780	
==>uest_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3645	3780	
==>uest_time = $request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5757	5884	
==>end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5757	5884	
==>end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.spa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3512	3645	
==>f ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3512	3645	
==>f ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5711	5801	
==>ay_type($de_facto_type) . " with " . $self->display_type($expected_type);
		warn Data::Dump <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12359	12530	
==>Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12359	12530	
==>Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        m <==
2	/Users/nnunley/pugs/util/addauthors.pl	689	802	
==>hurestics: Try matching _ as space -- Darren_Duncan for example.
    my $re = $c;
    $re =~ s/_/ /;
    $re = qr/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1989	2088	
==>al, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1989	2088	
==>al, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	966	1069	
==>got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1024	1127	
==>got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $exp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4466	4581	
==>om, 1) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub ws {
  my ( $ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	569	700	
==>tring () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assert <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	569	700	
==>tring () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assert <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6599	6697	
==>urns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6599	6697	
==>urns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2379	2522	
==>xp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", 
);

sub new {
    my $class = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2228	2337	
==>xp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }", <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	108	198	
==>T_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = ( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	108	198	
==>T_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = ( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2521	2623	
==>t_output) = @_;

    my $it = Test::Harness::Iterator->new($test_output);
    return $self->_analyze_it <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9800	9901	
==>rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9800	9901	
==>rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8581	8686	
==>pes of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8581	8686	
==>pes of
    # packages share the same namespace; any incompat will be caught later.
    return ::($module_n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20908	21009	
==>the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20908	21009	
==>the nicks who are on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7932	8032	
==>c::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FU <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7932	8032	
==>c::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec::Win32 module.

= FU <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1410	1509	
==>nstead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop suppor <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1410	1509	
==>nstead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop suppor <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2418	2527	
==>> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2418	2527	
==>> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6687	6864	
==>"\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6880	7057	
==>"\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1677	1778	
==>Regexp::Parser's Perl6::Rules: it looks like early
# phase development.  There's a "return" halfway do <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5986	6094	
==>n $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5986	6094	
==>n $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3740	3851	
==>RL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s!("-MExtUtils::Command::MM")!"-I../../inc" "-I../inc" "-Iinc" $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7445	7590	
==>_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7445	7590	
==>_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17804	17959	
==>m - 1] = 
            { ok        => is the test considered ok?
              actual_ok => did it literally say 'ok'?
              name      => name of the <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1254	1375	
==>$.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1254	1375	
==>$.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2411	2527	
==>$r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a clien <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2411	2527	
==>$r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of this class represents a clien <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6871	7005	
==>fe   (rw!Pair)\
\\n   List      pre     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::split   safe   (Str)\
\\n   List      pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9802	9924	
==>le',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9802	9924	
==>le',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41297	41387	
==>e.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41297	41387	
==>e.com>)

On 2005.03.21, provided feedback towards improving this module's
documentation, pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Strings.pm	179	274	
==>NAME

Blondie::Prelude::Strings - String related builtins

=head1 SYNOPSIS

    use Blondie::Pre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7849	8030	
==>h}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7849	8030	
==>h}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $pa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	229	334	
==>e");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	229	334	
==>e");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4109	4236	
==>}
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4109	4236	
==>}
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumpe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	359	540	
==>App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sym('$cond'),
                    Sym('$left_thunk'),
                    Sym('$right_thunk <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3093	3218	
==>t, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name, @mess) = @_;

    my $pass;
    if( !define <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6722	6851	
==>elsif $tree[0] eq '"PSub"' {
        my %pad = $tree[1];  # keys: "pSubBody""pSubIsMulti""pSubLValue""pSubName""pSubParams""pSubTy <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46	139	
==>e Perl6::Runtime;

use Perl6::Core::Nil;
use Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	352	452	
==>ng'}}
sub as_array  {my($o)=@_;$$o->{'val_array'}}
sub as_hash   {my($o)=@_;$$o->{'val_hash'}}

sub f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23904	24002	
==>f Any :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28456	28554	
==>f Any :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body attr <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	251	379	
==>le time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	251	379	
==>le time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16170	16258	
==>@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenD <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16228	16316	
==>@bestpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenD <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1591	1687	
==>er_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1591	1687	
==>er_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is expo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	905	1066	
==>sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	905	1066	
==>sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3192	3380	
==>st if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @r <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3192	3380	
==>st if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @r <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	45	150	
==>2;
use Getopt::Long;
use Config ();

# helper code to inline the Standard Prelude in pugs.

# Sets up eith <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9587	9725	
==>ot{bonus}       += $results{bonus};
        $tot{max}         += $results{max};
        $tot{ok}          += $results{ok};
        $tot{tod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13314	13415	
==>bject(exact => chr hex $num, $rep);
  });

  # alpha POSIX class
  $self->add_handler('POSIX_alpha' => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4598	4691	
==>f.intersection( $set.complement );
}

# --------- arithmetic and list operations ------------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4598	4691	
==>f.intersection( $set.complement );
}

# --------- arithmetic and list operations ------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14133	14263	
==>do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14127	14257	
==>do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5297	5397	
==>ration data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Re <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5297	5397	
==>ration data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34022	34133	
==>or its libraries.
When translating a message, a match in found in the most preferred language
is used.  Each Set <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34022	34133	
==>or its libraries.
When translating a message, a match in found in the most preferred language
is used.  Each Set <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24476	24582	
==>egexp::Parser::groupp;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $np <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1715	1809	
==>t is called TAP, the Test Anything
Protocol.  It is defined in L<Test::Harness::TAP>.

C<Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15348	15449	
==>ogram or any of its components are intended for widespread use
then it needs to account for a variance <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15348	15449	
==>ogram or any of its components are intended for widespread use
then it needs to account for a variance <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1704	1808	
==>ns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_cou <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1704	1808	
==>ns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_cou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2773	2897	
==>:Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2773	2897	
==>:Functional $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	365	469	
==>returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	365	469	
==>returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) returns Array is e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6439	6550	
==>th C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6439	6550	
==>th C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13188	13304	
==>>
                <span class="tests_total"><tmpl_var name=total> test cases</span>:<br />
		<span class="tests_ok">< <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	418	533	
==>ram );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxe <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	418	533	
==>ram );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2792	2965	
==>match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2792	2965	
==>match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()();
        }
    });
}

method empty ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8284	8432	
==>eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8284	8432	
==>eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2503	2603	
==>, passing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2503	2603	
==>, passing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15858	15957	
==>es a program will raise a condition or error that,
while resembling a message that would be shown to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15858	15957	
==>es a program will raise a condition or error that,
while resembling a message that would be shown to <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1435	1544	
==>line . "\n";
    exit 1;
  }
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html sm <==
2	/Users/nnunley/pugs/util/grokprims.pl	1789	1897	
==>ociative/) {
    $example = "\$$a0 $name (\$$a0 $name \$$a1)";
  } elsif (/non-associative/) {
    $example = <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4	95	
==>le Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4	95	
==>le Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7635	7730	
==>terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hash <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1460	1555	
==>terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hash <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2489	2607	
==>y;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatever separator is first <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2489	2607	
==>y;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatever separator is first <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4029	4128	
==>her::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4029	4128	
==>her::Arcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16670	16778	
==>r outputs anything by itself to the user, but
rather returns its results for calling code to output as it see <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16670	16778	
==>r outputs anything by itself to the user, but
rather returns its results for calling code to output as it see <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2213	2467	
==>nless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2213	2467	
==>nless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> S <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10141	10238	
==>Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( sta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10141	10238	
==>Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( sta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23527	23650	
==>d
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5068	5175	
==>stmt_prim  {
  my($name,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5270	5410	
==>t = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined & <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5270	5410	
==>t = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined & <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	190	309	
==>T'),

	'&print' => Thunk(
		Seq(
			Param('$handle'),
			Param('$string'),
			App(
				Sym('&printf'),
				Sym('$handle' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11479	11594	
==>lass="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td clas <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4274	4402	
==>ag_val_m { 0x1 }
  sub flag_val_s { 0x2 }
  sub flag_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8913	9004	
==>n_object } '... instance calling metaclass singleton method fails';
fails_ok { $iFoo->single <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1327	1498	
==>Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

sub <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1327	1498	
==>Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36242	36341	
==>g','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36242	36341	
==>g','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7847	7963	
==>' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::di <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7905	8021	
==>' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::di <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15874	15974	
==>losed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15874	15974	
==>losed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` and `en <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11276	11380	
==>$item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11276	11380	
==>$item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11935	12045	
==>ns like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11993	12103	
==>ns like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5491	5590	
==>Foo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '.. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9089	9188	
==>Foo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '.. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14163	14285	
==>_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14163	14285	
==>_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	45	146	
==>uire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	45	146	
==>uire Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4018	4109	
==>ew(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4018	4109	
==>ew(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new ci <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12449	12533	
==>6_hex_chars_more(char(C),R).
p6_hex_chars_more(Rc0,conc(R,char(C))) --> ";", hexdigit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20104	20203	
==>am binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20104	20203	
==>am binary.  Each user
language is in a separate file, and adding a localization to a Mac OS X
progra <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5783	6004	
==>epends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6247	6468	
==>epends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### w <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	607	706	
==>:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1007	1165	
==>fined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1007	1165	
==>fined;
            .code($code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	85	204	
==>:Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	85	204	
==>:Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7445	7630	
==>&grammar1::ws_star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $bl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19749	19856	
==>R $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12439	12567	
==>ion to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12439	12567	
==>ion to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?(.*)$/) {
        $say("PONG $0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7100	7223	
==>list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	401	524	
==>list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16616	16737	
==>);

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16616	16737	
==>);

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      my @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	77	188	
==>:Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	77	188	
==>:Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10252	10355	
==>$namespace$_[0]'} )\n";
}
sub node::constant {
    my $literal = shift;
    my $name = quotemeta( match: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4892	4992	
==>("tests.yml");

# Reading and processing .t files
my $files = {}; # mapping from test-file-name to te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	941	1036	
==>.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	941	1036	
==>.160.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3908	4005	
==>bject, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Speci <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4092	4189	
==>bject, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Speci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1542	1648	
==>rn the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1542	1648	
==>rn the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1942	2046	
==>$child.size();    
    }
    return $size;
}

## -------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1942	2046	
==>$child.size();    
    }
    return $size;
}

## -------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1599	1762	
==>e {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1599	1762	
==>e {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone ($self:) returns Set {
    my $set = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5956	6059	
==>stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid rig <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5956	6059	
==>stages of development.   

=head1 LIMITATIONS & CAVEATS

Basic parsing functionality is fairly solid rig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11657	11753	
==>eader.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11657	11753	
==>eader.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1832	1973	
==>te->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $match->{state} ) {

                $state->[1] = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1771	1909	
==>te->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1626	1761	
==>my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: "$tail - (node, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1570	1702	
==>my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: "$tail - (node, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23181	23357	
==>] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23460	23636	
==>] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17215	17391	
==>} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17494	17670	
==>} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3426	3548	
==>tart ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3426	3548	
==>tart ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10594	10690	
==>es are arranged correctly
depending on their types, that their attributes have reasonable values, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10594	10690	
==>es are arranged correctly
depending on their types, that their attributes have reasonable values, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7812	7914	
==>s, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7812	7914	
==>s, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2001	2197	
==>sage.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2001	2197	
==>sage.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	98	203	
==>rict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	98	203	
==>rict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	984	1122	
==>on_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	995	1133	
==>on_capturing_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15577	15718	
==>' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10433	10574	
==>' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3856	3977	
==>_dir;
    
        ### XXX hardcoded .svn exclusion! we should fix this proper!
        system( qq[tar --exclude $jibdir - <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2760	2914	
==>okie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2760	2914	
==>okie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    St <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	433	555	
==>) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	433	555	
==>) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4272	4419	
==>=> "\&" . $_[0]->() ,} }
            ) ),

        '...' => Pugs::Compiler::Regex->compile( q(
            { 
                return { die => "not i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3112	3212	
==>can be called with a string, and should be called at the 
end of enciphering with zero arguments.

=i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3112	3212	
==>can be called with a string, and should be called at the 
end of enciphering with zero arguments.

=i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3959	4066	
==>value) && $value->isa('symbol'))
        || confess "You must store a symbol type in a param list";
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2138	2312	
==>r {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2385	2559	
==>r {
        \< after <?ws> <rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1512	1625	
==>.. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name}>>"} @{$self->{levels}[$_] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11905	12002	
==>l perl engine can continue working.

  Upon exec, the subref should return match information.  Mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2810	2907	
==>ableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Producti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2810	2907	
==>ableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<Producti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16831	16928	
==>pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16831	16928	
==>pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	951	1061	
==>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	951	1061	
==>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <A <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1092	1385	
==>ument>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1092	1385	
==>ument>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }
                        m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12246	12351	
==>it_header( $field, $value )

Set the specified header to the given value, but only if no previous
value fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12246	12351	
==>it_header( $field, $value )

Set the specified header to the given value, but only if no previous
value fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9492	9594	
==>e possible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These method <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9492	9594	
==>e possible to calculate the 
set size.

- `contains( $object )` / `intersects( $object )`

These method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10014	10206	
==>n scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provide <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11491	11683	
==>n scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2680	2799	
==>eturn $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2668	2787	
==>eturn $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub quant {
    m <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1709	1822	
==>ion 3.2

sub alternate(Array *@p) is exported(:all) {
  return -> { }
    if +@p == 0;
  return @p[0]
    if +@p = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13243	13400	
==>" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return cal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13237	13394	
==>" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return cal <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1493	1607	
==>e, -1, 0;
      $equivalence = $self->tokenTable()->{$tokenTableKey}{equiv};
    }
    else
    {
      $equivalenc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	339	452	
==>kage Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25262	25405	
==>ack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags}[-1] }

  # access to the tree
    # is this the first pass?
    sub SIZE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35088	35181	
==>he merge() method defined in F<Regexp::Parser::branch>,
which is used when two of the same nod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	24	125	
==>rs;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	24	125	
==>rs;

class HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    hea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3656	3749	
==>pan1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3656	3749	
==>pan1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1872	2009	
==>nstallations
{   my $config  = JIB::Config->new;

    my %cache = ();

    sub new { 
        my $class   = shift;
        my %hash    = @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	856	994	
==>_PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        other => '*',
    );

    __PAC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28929	29023	
==>persand.
Handle names that have no "predecessor" (that is, a '&&' without a '&')
are pre-consum <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1215	1335	
==>lf    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	556	673	
==>lf = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1363	1497	
==>uency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than obscuring text from 
accidental viewin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1363	1497	
==>uency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than obscuring text from 
accidental viewin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1250	1368	
==>s;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for A <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1250	1368	
==>s;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24275	24399	
==>my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20696	20820	
==>my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8812	8955	
==>mar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9647	9790	
==>mar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13746	13863	
==>es.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in turn.  The callback routine
i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13746	13863	
==>es.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in turn.  The callback routine
i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7376	7487	
==>::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7376	7487	
==>::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8256	8373	
==>e($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8256	8373	
==>e($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$. <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	988	1091	
==>) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	988	1091	
==>) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19376	19534	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19655	19813	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1255	1375	
==>1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \$_[0] <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	157	260	
==>gument::Normalizer::Null;
        has $coercer_role = ::Getopt::Argument::Coercer::Null;

        method <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5136	5240	
==>brupt_completion() { !$.type.normal }
}
# empty is represented by undef.

# 9. Type Conversion

# 9.1
mul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6803	6960	
==>config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12888	13040	
==>config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7078	7188	
==>eason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7078	7188	
==>eason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9046	9156	
==>perator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9046	9156	
==>perator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2  <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	169	300	
==>AML                    qw[LoadFile DumpFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use File: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5106	5215	
==>$i)->equal_to($right->fetch($i)) != bit->new(1);
    }
    return bit->new(1);
}

package closure::env;

use s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	784	899	
==>ht = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now b <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	784	899	
==>ht = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $child_height + 1;
    # and now b <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3685	3823	
==>e. The script appends
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3270	3414	
==>tches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matches[1]{abo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3165	3306	
==>tches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matches[1]{abo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23725	23862	
==>1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?>";
  }
}

{
  # (?(n)t|f)
  package Regexp::Parser::ift <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7971	8093	
==>, @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'type::variable::instantiated') => sub { unify($_[0]{instanc <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	28	121	
==>se Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # consolidate with <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	340	497	
==>{ warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*I <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	340	497	
==>{ warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*I <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12578	12724	
==>if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    };

  ste <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1635	1726	
==>age " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1635	1726	
==>age " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1356	1488	
==>meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ } <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1356	1488	
==>meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5739	5853	
==>on?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5727	5841	
==>on?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6164	6296	
==>s, 1
    $I0 = index "<>[](){}:*?+\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    inc litlen
    goto term_liter <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	521	637	
==>i Array::keys   (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3895	4070	
==>"->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3895	4070	
==>"->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19308	19435	
==>0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15729	15856	
==>0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->ca <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	260	390	
==>alue given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() m <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	260	390	
==>alue given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parameter to lib.import() m <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3519	3670	
==>lf = shift;
                my $idx = shift;
                exists $self->get_value('@:slots')->[$idx];
            },

            'array_clear' => su <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9035	9150	
==>{
        # we can't use +SEGMENT and -SEGMENT since that interferes with GHC.
        $kind = $1,  next if /^_\+(.* <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7644	7766	
==>, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7644	7766	
==>, $span0) = _normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1918	2141	
==>n },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1918	2141	
==>n },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13235	13337	
==>ements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the element <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13235	13337	
==>ements negated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the element <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38379	38471	
==>$text modified
by interpolating the %msg_vars into it, where each variable value is
substitut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38379	38471	
==>$text modified
by interpolating the %msg_vars into it, where each variable value is
substitut <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2014	2155	
==>shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $chr =~ /#/ ) {
	    # special comment? (embedded la <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8142	8248	
==>( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown wheth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8142	8248	
==>( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown wheth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2818	2921	
==>rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3065	3168	
==>rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3069	3163	
==>ddition, the following request headers are set on the HTTP::Headers object,
if they are present <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3069	3163	
==>ddition, the following request headers are set on the HTTP::Headers object,
if they are present <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3970	4117	
==>{
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4163	4310	
==>{
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5936	6042	
==>evious( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5936	6042	
==>evious( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4841	4969	
==>er => [],

      emitter => \$new_emitter_p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  * <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4675	4796	
==>er => [],
      emitter => \$new_emitter_p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  * <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5977	6080	
==>n Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5977	6080	
==>n Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7936	8071	
==>f") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7994	8129	
==>f") ~ "'");
        Test::diag("    Actual: '" ~ ($got.defined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2981	3175	
==>, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure & <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2981	3175	
==>, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure & <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2492	2596	
==>fix:&", "left,nows", "PGE::Exp::Alt");
    $optable->addToken("infix::=", ">postfix:*", "right", "PGE::Ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10014	10120	
==>}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10014	10120	
==>}

multi method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14257	14487	
==>map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14257	14487	
==>map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5502	5600	
==>Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo go <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9100	9198	
==>Foo->foo', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo go <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	789	925	
==>epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    retur <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	789	925	
==>epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13190	13291	
==>n-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

= <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13190	13291	
==>n-place.

This routine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13632	13739	
==>ed
entities will also be expanded.  The longest matching name in
%entity_to_char will be used.

   $string = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13632	13739	
==>ed
entities will also be expanded.  The longest matching name in
%entity_to_char will be used.

   $string = <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1314	1482	
==>{
        grep { .match($event) }, gather {
            take $.subscriptions.members;

            # FIXME this is bullshit - i ought to read the details
            #fo <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2280	2377	
==>>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2280	2377	
==>>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6019	6121	
==>me local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6019	6121	
==>me local
    # command definitions and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5024	5133	
==>"") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5024	5133	
==>"") !~ m,^multipart/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17930	18031	
==>e perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via glob <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2289	2390	
==>e perl5 regexp engine is entangled with the rest of the perl core.
Some of the interaction is via glob <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3539	3645	
==>split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3539	3645	
==>split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $t <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	665	832	
==>ine is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s* <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	665	832	
==>ine is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2559	2676	
==>->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2559	2676	
==>->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41136	41233	
==>that supports embedding of Template modules into the same files as
program code, rather than requi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41136	41233	
==>that supports embedding of Template modules into the same files as
program code, rather than requi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1466	1571	
==>ing text from 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1466	1571	
==>ing text from 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, a <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	466	575	
==>cts:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	466	575	
==>cts:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10496	10587	
==>e_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complement <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10496	10587	
==>e_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complement <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21604	21701	
==>ges instead which are
more appropriate to the context in which they are using your package.  One
c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21604	21701	
==>ges instead which are
more appropriate to the context in which they are using your package.  One
c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9607	9720	
==>); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9607	9720	
==>); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8328	8478	
==>ng(k).
                $A.<[[Delete]]>($k) if exists $A.property_value{$key};
                # XXX - need to wrap $k?
            }
            $A.pro <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1318	1455	
==>push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6416	6527	
==>~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16370	16476	
==>-V:pugs_version" or
    die "Couldn't open pipe to \"$bin -V:pugs_version\": $!\n";
  my $rev = <$fh>;
  $r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2948	3067	
==>ser_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message$transla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2948	3067	
==>ser_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$message$transla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8455	8554	
==>e 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8443	8542	
==>e 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs <==
2	/Users/nnunley/pugs/util/addauthors.pl	558	691	
==>$a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$author) {
    # Time for some hur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	539	630	
==>Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Florian R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5841	5964	
==>ls and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5841	5964	
==>ls and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normal <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9584	9694	
==>F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9584	9694	
==>F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	369	491	
==>b compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	401	523	
==>b compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1854	1960	
==>start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1854	1960	
==>start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1782	1889	
==>)->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1782	1889	
==>)->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6140	6286	
==>}
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6140	6286	
==>}
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &contin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20041	20141	
==>ers. It does so in a most specific to most general order.
So inner blocks get compiled first, then ou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20041	20141	
==>ers. It does so in a most specific to most general order.
So inner blocks get compiled first, then ou <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1429	1531	
==>s", "PGE::Exp::Group");
    $optable->addToken("<commit>", "term:", "nows", "PGE::Exp::Commit");
    $o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2944	3081	
==>nv = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=he <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2944	3081	
==>nv = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=he <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1399	1566	
==>);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $Rea <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1399	1566	
==>);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath($script);
            $RealScript = pop @path;
            $Rea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11355	11504	
==>e( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11634	11783	
==>e( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24825	24914	
==>type = type::operator::arrow->new(
		type::variable::free->new,
		type::operator::arrow->n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11003	11101	
==>ass: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11003	11101	
==>ass: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $cip <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	641	772	
==>}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#}

sub printlatex {
    my ($chr, $col) = @_ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1160	1257	
==>@ARGV) {
    @ARGV = sort map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{hel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3451	3574	
==>een;
    foreach my $obj ( @exts ) {
        while (my ($method, $glob) = each %{ref($obj) . '::'}) {
            next unles <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3099	3224	
==>say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method do <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3099	3224	
==>say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method do <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4035	4141	
==>rcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4035	4141	
==>rcfour is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2663	2776	
==>info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2663	2776	
==>info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13735	13842	
==>as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13735	13842	
==>as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1838	1942	
==>($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1838	1942	
==>($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tm <==
2	/Users/nnunley/pugs/misc/S29_round.pl	15	131	
==>t multi Num::round_half_up_symmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, down below 0
    given <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1102	1198	
==>=head2 $path = $pkg->file

Location of the source package

=head2 $meta = $pkg->meta

The JIB::Me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5068	5208	
==>ame = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5068	5208	
==>ame = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	519	636	
==>extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	519	636	
==>extract_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        ma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2281	2412	
==>2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2281	2412	
==>2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $cmp;
    $cmp = $.sta <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2676	2772	
==>}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2676	2772	
==>}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	232	347	
==>e::comparable';

sub new {
    my ($class, $value) = @_;
    $value = 0 unless defined $value; # default to 0
    (l <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2331	2430	
==>y, whose
successful work got me thinking about trying a prolog plugin.

Fyi,
Yaswi apparently requir <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5217	5359	
==>r(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(9 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5217	5359	
==>r(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(9 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10315	10411	
==>s_pos(space_perl))    --> "\\s", !.
p56_char_class(class_neg(space_perl))    --> "\\S", !.
p56_ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1264	1364	
==>ubstr( $extracted, 1, -1 ) if length($extracted) > 1;
    my $extracted2;
    ($extracted2,$remainder <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6346	6453	
==>rn($$t[0],$$t[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Operator->n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6338	6442	
==>to_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->simplify_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3464	3567	
==>elf.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3464	3567	
==>elf.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $univers <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4794	4927	
==>ything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced c <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4794	4927	
==>ything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced c <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	187	342	
==>::Zone $.tz;

our $iso8601_re_anchored = rx:perl5/^$iso8601_re$/;

multi sub date( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	429	549	
==>sym {
	my $self = shift;
	my $symbol = shift;

	foreach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	890	1031	
==>, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	890	1031	
==>, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code( <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1986	2090	
==>= Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Tex <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1986	2090	
==>= Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Tex <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2186	2296	
==>d

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2186	2296	
==>d

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done like this until pugs gets <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4858	5020	
==>_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6893	7104	
==>emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0]);
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1949	2071	
==>_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1949	2071	
==>_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    ret <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	133	261	
==>ypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 15;

my $prog = Seq(
	App(
		Sym('&say'),
		App(
			Sym('&infix:<+>'),
			Ap <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18254	18357	
==>etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection to the ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18254	18357	
==>etc.).

=head2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection to the ser <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13581	13714	
==>a translator.
        my Locale::KeyedText::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13581	13714	
==>a translator.
        my Locale::KeyedText::Translator $translator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'] <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1082	1282	
==>ts<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element> <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1082	1282	
==>ts<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	386	482	
==>t<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> ! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	386	482	
==>t<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> ! <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13827	13943	
==>ite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13827	13943	
==>ite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinit <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15720	15834	
==>called on $_[0]"); undef };
my %as_p6obj_handlers =
    ( undef => sub { p6_Undef() },
      numeric     => sub { p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1649	1825	
==>>{if=>'block'}] 
];


    my($lex) = sub {
        my($t)=shift(@$in);
            defined($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	2	87	
==>ine 1 "inc/Module/Install/Compiler.pm - /usr/local/lib/perl5/site_perl/5.8.8/Module/In <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15391	15499	
==>ich
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15391	15499	
==>ich
conforming "Engine" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2957	3078	
==>pm should probably be the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3347	3461	
==>{path_sep} . $ENV{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unless -e $a_fi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1263	1353	
==>the continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1263	1353	
==>the continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2518	2620	
==>t has the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more import <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2423	2524	
==>t has the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more import <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33044	33142	
==>stores an ordered list of one or more elements where
each element is a Template module Set Name.  W <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33044	33142	
==>stores an ordered list of one or more elements where
each element is a Template module Set Name.  W <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3977	4077	
==>m * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4161	4261	
==>m * grammar => $class - Specify which namespace (Grammar) the rule 
belongs to.

=item * ratchet => 1 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1412	1621	
==>[tar -f $my_tmp_dir/$Control -C $meta_dir -xz] )
                                                            and die $?;
            print "Writing .packlist equiv...\n";
            ### write a .packlist equiv <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	413	532	
==>e "Could not add $jib";
}    

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	820	921	
==>k (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	878	979	
==>k (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11220	11375	
==>lse {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11220	11375	
==>lse {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.current;
    }
    method previ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6455	6554	
==>s=>$argl,
				      body=>$body,lvalue=>$lval);
	my $ret = eval($code);
	Carp::confess("p6_new($cls, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8521	8615	
==>nterpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8521	8615	
==>nterpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Ev <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8241	8447	
==>methods'))
                  ->exists($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: symbol $label) returns met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27021	27136	
==>.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Reg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1974	2092	
==>ile ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1974	2092	
==>ile ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11493	11618	
==>ring = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up alia <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11493	11618	
==>ring = $result;
    return $result;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up alia <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	2790	2968	
==>uple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6267	6445	
==>uple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation $other!) returns Bo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	101	206	
==>-------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	101	206	
==>-------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!chi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4929	5046	
==>$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (N <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4929	5046	
==>$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (N <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8516	8715	
==>eplacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation::Example {
    return Relation::Exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	458	564	
==>eturn $() }
RULE
*{'indirect_object'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	<varscalar> <p6w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3986	4108	
==>s:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Arr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3986	4108	
==>s:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Arr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	57	318	
==>ages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values used by packages in th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1426	1539	
==>:Std;
	use base qw/Blondie::TypeSafe::Type/;

	sub new {
		my $class = shift;
		my $type = shift;

		$class->SUPER <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15099	15210	
==>der.  The header value is set if you pass
an argument to the method.  The old header value is always returned.
I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15099	15210	
==>der.  The header value is set if you pass
an argument to the method.  The old header value is always returned.
I <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17109	17214	
==>ubsumed into a larger package that would otherwise use
it.  Hereafter, if any other package or application <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17109	17214	
==>ubsumed into a larger package that would otherwise use
it.  Hereafter, if any other package or application <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32917	33016	
==>her side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set N <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32917	33016	
==>her side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set N <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22808	22954	
==>ncat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23087	23233	
==>ncat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alt <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1819	1930	
==>n F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

= <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1819	1930	
==>n F<ext/>. Another good source of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

= <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10161	10261	
==>ct, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10161	10261	
==>ct, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3405	3520	
==>kdir -p $builddir/$path] )          and error($?), return;
        system( qq[ cp -R $srcdir/* $builddir/$path ] ) a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1745	1860	
==>($.right) = { level($$) }

type::operator::binary: inner_layout($$) = { join(" ", layout($.left), $.symbol, layout($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	501	599	
==>lue
sub to_native { shift }

# keep this here for a consistent interface
sub to_str { str->new((shi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6307	6607	
==>ast;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6771	7071	
==>ast;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3272	3380	
==>,  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] - <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3272	3380	
==>,  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] - <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10318	10417	
==>f.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $sel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10318	10417	
==>f.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%options) {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1920	2017	
==>$one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1920	2017	
==>$one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($tw <==
2	/Users/nnunley/pugs/util/func_refact.pl	2031	2158	
==>while adding $new, entered with $oldsize, leaving with $size\n"
        if $Conf{verbose} or $Conf{debug} eq $new;
    return $s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13759	13871	
==>FAIL_IF_FAILED($v);
      TAILCALL(&$c,$noop);
    };
  }
}
{
  # (?(n)t|f)
  package Regexp::Parser::ifthen;
  s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2341	2453	
==>method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2341	2453	
==>method end ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	589	676	
==>l 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	589	676	
==>l 6|http://dev.perl.org/perl6>, written in
L<Haskell|http://www.haskell.org/>. It aims t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4442	4565	
==>f ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4442	4565	
==>f ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3717	3828	
==>e_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3934	4045	
==>e_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28098	28191	
==>_polymorphic) } "can't type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_sym) } "all ident <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1843	1935	
==>londie::Node! You cannot execute environments, they
contain ASTs that are compiled by the com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3164	3307	
==>ch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3164	3307	
==>ch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	71	167	
==>X port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	71	167	
==>X port MIME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4505	4650	
==>us versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4517	4662	
==>us versions
    return $match->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #pri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7491	7623	
==>k if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	792	924	
==>k if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2784	2895	
==>Value {

    # External packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2784	2895	
==>Value {

    # External packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9196	9401	
==>ds'))
                  ->fetch($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method remove_method (opaque $self: symbol $label) returns nil { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3716	3808	
==>currence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3716	3808	
==>currence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recur <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2367	2467	
==>ook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is f <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2367	2467	
==>ook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4853	5050	
==>pen_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4853	5050	
==>pen_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	934	1027	
==>(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Par <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	934	1027	
==>(Perldoc::Sender)>, such as another
C<Perldoc::DOM>, a C<Perldoc::Filter>, or a C<Perldoc::Par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21014	21106	
==>E<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21014	21106	
==>E<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<chan <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5045	5221	
==>ersion );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4904	5080	
==>ersion );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3065	3215	
==>fig ) {
    no strict 'refs';
    *$func = sub {
        my $obj = shift;
        my $acc = '_'.$func;
        
        ### set the new value if provid <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1618	1735	
==>er (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookie <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1618	1735	
==>er (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3416	3570	
==>:Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3416	3570	
==>:Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9438	9558	
==>ring is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:P <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9438	9558	
==>ring is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:P <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	88	185	
==>ific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An objec <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	88	185	
==>ific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An objec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14824	14931	
==>s:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This stores a reference to the Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14824	14931	
==>s:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This stores a reference to the Docu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2138	2269	
==>]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2138	2269	
==>]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15088	15194	
==>, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15088	15194	
==>, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	7	113	
==>Parse::Rule::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	7	113	
==>Parse::Rule::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3691	3786	
==>ear>

=back

Please read the HTTP::Query documentation for more information on these methods.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3691	3786	
==>ear>

=back

Please read the HTTP::Query documentation for more information on these methods.

= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3729	3910	
==>ined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3729	3910	
==>ined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3384	3513	
==>match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "paral <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3384	3513	
==>match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "paral <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6379	6482	
==>e}->right;
}

sub free_vars {
	my $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all A <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3474	3574	
==>\^\^ }
rule assert_eol  { \$\$ }
rule lookahead   { \< (!?) before <ws> <pattern> \> }
rule lookbehin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12308	12433	
==>(ref => $v, "\\$v") }
        }

        $v .= $1 while ${&Rx} =~ m{ \G ([0-7]) }xgc;
        return $S->object(exact => chr o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19865	19969	
==>tatementList>? <'}'>
}
rule StatementList :words {  # see 12.1
      <Statement>
    | <StatementList> <S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10216	10308	
==>ll-formedness of the input, such as that mandatory
constructor arguments are provided and tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10216	10308	
==>ll-formedness of the input, such as that mandatory
constructor arguments are provided and tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	292	406	
==>iler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <Variable <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	292	406	
==>iler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <Variable <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2498	2620	
==>tart ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        di <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2498	2620	
==>tart ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        di <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37511	37609	
==>ts arguments is not significant to the result;
the new Relation is the result of combining all of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42060	42158	
==>ts arguments is not significant to the result;
the new Relation is the result of combining all of t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7927	8015	
==>s = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7927	8015	
==>s = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9021	9142	
==>return Relation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12498	12619	
==>return Relation.new(
        heading => $!heading,
        body => $!body.difference( $other!body ),
    );
}

&minus  ::= <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5834	5954	
==>Name>
}
rule IdentifierName {  # see 7.6
      <IdentifierStart>
    | <IdentifierName> <IdentifierPart>
}
rule Identifie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	45	178	
==>_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	45	178	
==>_unescape>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method par <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2285	2385	
==>rather than having the clutter of lots of explicit :words modifiers.
#
#  Thanks to Bob Clary, who cr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2272	2391	
==>e HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2272	2391	
==>e HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "R <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5033	5238	
==>and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4253	4438	
==>and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	921	1086	
==>}
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	934	1089	
==>}
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49413	49562	
==>>get('?$version'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:version'));
            }
        )
    )
);

$: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2731	2910	
==>:Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2731	2910	
==>:Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1605	1705	
==>the signature; it does

not allocate containers.



the Body is just a structure with three node form <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1540	1637	
==>the signature; it does
not allocate containers.

the Body is just a structure with three node form <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2629	2736	
==>'(TVar (Int))';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', ' <==
2	/Users/nnunley/pugs/util/package-osx.pl	6288	6376	
==>an/man3/Perl6::Overview::Operator.3pm
        /usr/local/man/man3/Perl6::Overview::Reduce <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34952	35048	
==>is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<inter <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39502	39598	
==>is not a subset of the heading of the invocant Relation.  This method
degenerates into an C<inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8179	8286	
==>() method:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* object
  }

When the reg <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19058	19162	
==>file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confess("$@\n".num <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	698	797	
==>nversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1288	1387	
==>nversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	488	585	
==>ut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at le <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	488	585	
==>ut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at le <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12819	12914	
==>lue with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12877	12972	
==>lue with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11713	11855	
==>es', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11713	11855	
==>es', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                fo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14039	14152	
==>->emit;
    my $crufty = $o->data->[1]->data;
    my $f_else = sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
    $f_el <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	80	181	
==>qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

say "$wer hat einen $h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37602	37698	
==>_template_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37602	37698	
==>_template_text_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a P <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15116	15216	
==>y depth and of
an arbitrary type. The function signatures will likely look something
like this:

  mu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15174	15274	
==>y depth and of
an arbitrary type. The function signatures will likely look something
like this:

  mu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6648	6749	
==>her pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehand <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6648	6749	
==>her pass in a string C<$buffer> which will get the HTML appended to it, 
or you can pass in a filehand <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12191	12284	
==>c variables
ROOT: env($$) = { Clone::clone(\%types::prelude) }
ROOT: generic_in($$) = {
	my $e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5857	6007	
==>> chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5857	6007	
==>> chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14580	14685	
==>will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14580	14685	
==>will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For example, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	555	808	
==>};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	555	808	
==>};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14013	14121	
==>to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14071	14179	
==>to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8745	8857	
==>shift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8733	8845	
==>shift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_cap <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12175	12327	
==>/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12175	12327	
==>/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, co <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5610	5751	
==>w ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4110	4251	
==>w ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5066	5174	
==>-pugs ./pugs.exe [options]

Creates a Prelude.hs fallback or a Prelude.pm.yml file (written to stdout),
to be <==
2	/Users/nnunley/pugs/util/package-osx.pl	6574	6681	
==>6::Overview::Smartmatch.3
        /usr/local/man/man3/Perl6::Overview::Smartmatch.3pm
        /usr/local/man <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	89	194	
==>y; # $x ist nun der selbe Container wie $y

#=Bindungsoperator (statisch)
$x ::= $y; # $x ist nun die selb <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1084	1199	
==>er\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7449	7567	
==>turns Relation::Example {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! du <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1775	1902	
==>rn { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1968	2095	
==>rn { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1312	1432	
==>:= (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1312	1432	
==>:= (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5251	5374	
==>lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5070	5185	
==>lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3627	3736	
==>{ $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3627	3736	
==>{ $_.vtype, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7108	7267	
==>idex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $new <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7108	7267	
==>idex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $new <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	61	158	
==>e.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	61	158	
==>e.pm package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does S <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16271	16365	
==>ontains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16271	16365	
==>ontains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9886	9997	
==>value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9886	9997	
==>value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.new(
       Date         => 'Thu, 0 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19381	19498	
==>block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19381	19498	
==>block in a package.

Next, all the blocks are scanned for lines like:

    use Foo qw'x y z';
    no Foo;

Where Foo i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8847	8953	
==>se if a fatal error was raised in the inital scan
of the regex.

=head2 Getting the Tree

You can access th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2931	3045	
==>mbine the key with a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the ot <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2931	3045	
==>mbine the key with a nonce or initialization vector, a 
one-time random number.  (It will need to be sent to the ot <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39503	39600	
==>e::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39503	39600	
==>e::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15692	15798	
==>l_args->{stderr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS adjustments <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17211	17311	
==>for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17211	17311	
==>for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10672	10790	
==>e) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10830	10948	
==>e) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3013	3156	
==>de }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3197	3340	
==>de }    -- capturing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1918	2029	
==>}
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1918	2029	
==>}
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34729	34823	
==>ocale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34729	34823	
==>ocale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	418	534	
==>et .from and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	418	534	
==>et .from and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31347	31462	
==>self->SUPER::init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't kno <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10735	10848	
==>CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10735	10848	
==>CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, ms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6382	6530	
==>__->add_rule( 
        #~ # tokenizer defined in Term.pm
        #~ name => 'CALL',
        #~ name2 => ')',
        #~ assoc => 'non',
        #~ pr <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3442	3544	
==>rectory '$_' does not exist. Try --help. ") unless -d $_;
}
$_ = rel2abs($_) for (@t_dirs,$output_dir,$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4218	4311	
==>Synopsis: L<http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs homepage at L<http://pugsc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36753	36849	
==>er properties; if none
could be matched, this method returns undef.  This method could be
conside <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36753	36849	
==>er properties; if none
could be matched, this method returns undef.  This method could be
conside <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10226	10343	
==>List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines o <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10226	10343	
==>List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29110	29209	
==>on).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33662	33761	
==>on).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  This method has not yet been <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1827	1934	
==>rgs,{},$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3603	3702	
==>ad1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1286	1393	
==>ar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1286	1393	
==>ar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4537	4663	
==>$r

    package MY::Class;  -->  class MY::Class;

    open $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   - <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1089	1186	
==>oclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, An <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1147	1244	
==>oclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, An <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11407	11506	
==>tion( $recurrence )`

Returns only the elements in this recurrence that are also in the given recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11407	11506	
==>tion( $recurrence )`

Returns only the elements in this recurrence that are also in the given recurr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5940	6055	
==>epot_identity'} );

    # Create a Rosetta::Model document in which we store some local
    # command definitions an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5940	6055	
==>epot_identity'} );

    # Create a Rosetta::Model document in which we store some local
    # command definitions an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6433	6541	
==>args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6433	6541	
==>args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6473	6585	
==>rt(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6266	6372	
==>rt(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36037	36132	
==>Family: assertion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any number of <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26069	26170	
==>others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30621	30722	
==>others' names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2224	2393	
==>mp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method inters <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2224	2393	
==>mp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method inters <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24943	25042	
==>etta statically or dynamically with other components is making a
combined work based on Rosetta.  Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24943	25042	
==>etta statically or dynamically with other components is making a
combined work based on Rosetta.  Th <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	529	622	
==>urrently completely in flux.  It is simultaneously being
overhauled, cleaned up, and p6 added. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3307	3575	
==>nk->new(
                        Val->new(0),
                    )
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            Val->new(1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22429	22541	
==>rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;

  sub new {
    my ($cla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3499	3591	
==>a.$/;
print &Test::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compiler::Rule->compiled(
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3428	3563	
==>1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3621	3756	
==>1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11599	11722	
==>h_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11599	11722	
==>h_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3084	3209	
==>f->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3585	3710	
==>f->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{levels}};
        $s = $s . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23821	23951	
==>($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20242	20372	
==>($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} ! <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1686	1785	
==>lways represented by a named parameter (pair).  (The value of the 
pair is currently unused, but for <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1686	1785	
==>lways represented by a named parameter (pair).  (The value of the 
pair is currently unused, but for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2523	2683	
==>hars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2523	2683	
==>hars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7176	7268	
==>mon API, which permits the intercommunication 

of data about: backtracking, aborting, captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6931	7022	
==>mon API, which permits the intercommunication 
of data about: backtracking, aborting, captur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1535	1669	
==>ery_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1535	1669	
==>ery_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_key <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	986	1082	
==>{installman3dir},
        installsiteman1dir => $Config{installsiteman1dir} || $Config{installman <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3546	3677	
==>.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3546	3677	
==>.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.en <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3927	4025	
==>-----------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3927	4025	
==>-----------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ($s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9679	9790	
==>ping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9679	9790	
==>ping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	161	271	
==>rammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	154	261	
==>rammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <f <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	580	713	
==>s returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	580	713	
==>s returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14280	14379	
==>todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each stri <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14338	14437	
==>todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each stri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4984	5087	
==>s);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5042	5145	
==>s);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	784	924	
==>rms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	784	924	
==>rms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2116	2243	
==>t <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but ra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2116	2243	
==>t <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is not a Hash ref,]
           ~ q[ but ra <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4227	4340	
==>ound_term if $operator;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmpty )
  {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3961	4084	
==>9/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "cur <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3961	4084	
==>9/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7779	7880	
==>] && !defined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return 0 u <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28870	28970	
==>4, 2 wallclock secs ( 0.61 cusr + 0.41 csys = 1.02 CPU)

=head1 SEE ALSO

The included F<prove> utili <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19228	19329	
==>od sections beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BARE <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19228	19329	
==>od sections beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BARE <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7982	8119	
==>$v"
		    if $v =~ /^(PNil|PNoop|TCxtVoid|VUndef|CxtVoid)$/;
	    }
	}
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}


packag <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1091	1188	
==>e,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1091	1188	
==>e,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(which takes in turn a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3440	3579	
==>l5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3440	3579	
==>l5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:pe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23378	23526	
==>$@;

    return($fmt_top, $fmt);
}

sub _canonfailed ($$@) {
    my($max,$skipped,@failed) = @_;
    my %seen;
    @failed = sort {$a <=> $b} grep !$ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3915	4045	
==>l>

Number which failed, either from "not ok" or because they never ran.

=item B<Failed>

Percentage of the total tests which fail <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13	126	
==>:Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for deb <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13	126	
==>:Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart::Comments; for deb <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3236	3336	
==>when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split(' <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3236	3336	
==>when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split(' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1018	1141	
==>hod set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1018	1141	
==>hod set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33957	34053	
==>s are,
in order, if preferred ones aren't supported by a program or its libraries.
When translati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33957	34053	
==>s are,
in order, if preferred ones aren't supported by a program or its libraries.
When translati <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	505	765	
==>!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	505	765	
==>!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2098	2229	
==>IS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2098	2229	
==>IS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33047	33137	
==>n::Example but that some of its
tuple/Mapping-valued attributes have been split/unwrapped i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2337	2532	
==>n eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2337	2532	
==>n eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0" <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	133	238	
==>SION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	133	238	
==>SION

This document describes version 6.2.12 of Pugs, released June 26, 2006.

=head1 SYNOPSIS

    % pugs <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3074	3184	
==>ertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This mea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3074	3184	
==>ertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to related-key attacks.

This mea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1062	1184	
==>emainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1062	1184	
==>emainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extrac <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	200	309	
==>ts  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	200	309	
==>ts  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	138	236	
==>E_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	138	236	
==>E_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4399	4570	
==>)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4399	4570	
==>)
                $m.backtrack()();
            }
            else {
                # Each time around the match, we increment the inner multidex index.
                my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3461	3630	
==>('$current' => $e->get('&dispatcher')->do());                                  
            block->new($e, sub {
                my $e = shift;
                $e->get('$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8710	8837	
==>eate("$method", $nil::NIL); 
            $e->create("$current", $e->get("&dispatcher")->do()); 
            block->new($e, sub { <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	561	656	
==>c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientis <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	561	656	
==>c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10405	10534	
==>hift; 
            $e->get("&dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = join "" => $i->par <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7049	7173	
==>}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = shift;
    my $ghc_version = shift;

    open IN, "< Pugs.ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1425	1522	
==>AYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_plann <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1405	1500	
==>AYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_plann <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13225	13374	
==>re_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        fo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13225	13374	
==>re_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        fo <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1729	1830	
==>> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metao <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1729	1830	
==>> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we can define own metao <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6522	6668	
==>perators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # + <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5026	5172	
==>perators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # + <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11858	11987	
==>r $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11858	11987	
==>r $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3410	3534	
==>vername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3410	3534	
==>vername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	345	459	
==>inder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub generic_reduce {
		my $self = shift;
		my $node = shi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12199	12300	
==>f<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12199	12300	
==>f<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26360	26458	
==>s copied on input and output, any
variable values which are references will be passed by reference, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26360	26458	
==>s copied on input and output, any
variable values which are references will be passed by reference, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2569	2712	
==>close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2786	2929	
==>close FILE;
        warn "*** restarting the compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## pri <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16718	16842	
==>n object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16718	16842	
==>n object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a list os Spans. The list may be empty <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	1073	1209	
==>->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry, nesting not supported: $_\n";
        die "can't parse line: $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7858	7986	
==><$index ~~ any(@indextests)> are iterated.

What is returned at each element of the iteration varies with function.
C<values> ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8437	8545	
==>.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5977	6079	
==>.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7889	8049	
==>$?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7889	8049	
==>$?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2910	3024	
==>")){
			return Blondie::TypeSafe::Annotation->new(
				type => $node->type,
				struct_equiv => $node,
			);
		} el <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6132	6255	
==>perators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i-- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4634	4757	
==>perators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i-- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	429	540	
==>min->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } els <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	449	555	
==>min->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3763	3946	
==>'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '=~',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    
    _ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4261	4382	
==>ile) or return;
    my $contents = do { local $/; <$fh> };

    return $contents;
}

=pod JIB::Utils->_move( from => $file <==
2	/Users/nnunley/pugs/util/addauthors.pl	1491	1612	
==>authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$fh>) {
    chomp;
    my ($cpanid) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2263	2424	
==>->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2263	2424	
==>->{quant};
    $quantifier = '' unless defined $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '* <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38759	38925	
==>e')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39286	39452	
==>e')),
                returns => 'list'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attr <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	548	663	
==>urs => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<sta <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	548	663	
==>urs => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %param<sta <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18029	18146	
==>er ,  Str $input = CALLER::<$_>, Int $limit = inf --> List )
 multi Str::split ( Rule $delimiter ,  Str $input = CALLE <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8124	8222	
==>tches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26905	27006	
==>ding argument is
provided (it defaults to empty if the argument is not provided).

Some example usage: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26905	27006	
==>ding argument is
provided (it defaults to empty if the argument is not provided).

Some example usage: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3212	3412	
==>e;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3212	3412	
==>e;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5123	5231	
==>han}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as people wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5123	5231	
==>han}.
    %cache353{$chan}.delete(@nicks);

    # For each nick, make sure we've registered them as people wh <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1987	2083	
==>::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1987	2083	
==>::Compiler::PIL::Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.default;
}

# vim: f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21562	21655	
==>_END__

=head1 NAME

Regexp::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1012	1129	
==>hings



sub ruleop::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	973	1086	
==>hings

sub ruleop::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	901	1002	
==>N

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	901	1002	
==>N

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This doc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2225	2480	
==>es, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub feature <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3813	4068	
==>es, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub feature <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1837	1992	
==>nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1837	1992	
==>nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6003	6114	
==>g ^C (<Ctrl>+<C>).
HELP

step
  descr  => "Checking for Linux",
  help   => "This program needs Linux to run cor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28379	28488	
==>$seq, and set it to
the code reference in $code.  Example:

  # continuing from above...
  sub init {
    my $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	470	584	
==>ult is infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1328	1442	
==>ult is infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1004	1140	
==>_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1004	1140	
==>_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	958	1062	
==>iables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <si <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	958	1062	
==>iables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <si <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	710	839	
==>m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	710	839	
==>m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6772	6881	
==>result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6772	6881	
==>result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( ' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2049	2174	
==>G;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2049	2174	
==>G;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	22	126	
==>use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.i <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	22	126	
==>use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12586	12682	
==>e
current working features.

This module deals with encoding and decoding of strings with HTML
ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12586	12682	
==>e
current working features.

This module deals with encoding and decoding of strings with HTML
ch <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6119	6268	
==>.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6119	6268	
==>.spans;
        loop {
            if defined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35755	35851	
==>ample in its C<$other> argument, where <$other> has the same heading as
the invocant Relation::Ex <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37787	37883	
==>ample
in its C<$other> argument, where <$other> has the same heading as the
invocant Relation::Ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8501	8642	
==>a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8217	8354	
==>a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15755	15922	
==>m(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new ca <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15755	15922	
==>m(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1161	1264	
==>:Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1161	1264	
==>:Rule->compile( '((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters: <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	140	241	
==>TestPrograms qw/smoke_runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $backen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	347	440	
==>created. See Method_Dispatch_w_EigenClasses.jpg in this 
## same directory for a visual explai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4902	5028	
==>t open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4902	5028	
==>t open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2018	2143	
==>t rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as exp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2018	2143	
==>t rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as exp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10260	10367	
==>vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10260	10367	
==>vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1256	1353	
==>rieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1256	1353	
==>rieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the ciphe <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7366	7485	
==>file, \*FILE);
    my $exit = close FILE;
    $results{'wait'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{u <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	31	127	
==>Inline 'INFO','NOISY','FORCE';
# please help fill in this file
# a method of autogenrating bindin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32060	32162	
==>ion that has the same heading
and whose body contains all of the tuples that are in either or both of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36610	36712	
==>ion that has the same heading
and whose body contains all of the tuples that are in either or both of t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25107	25255	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25386	25534	
==>h,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5459	5558	
==>or, but there may be situations in which explicitly zeroizing the 
cipher object would be desirable. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5459	5558	
==>or, but there may be situations in which explicitly zeroizing the 
cipher object would be desirable. <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1096	1225	
==>) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  ( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1096	1225	
==>) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8898	9014	
==>{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8587	8700	
==>{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6962	7094	
==>match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6962	7094	
==>match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $matc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24875	24978	
==>m C<size () returns Int>

This method returns a count of this Relation's member tuples as an Int.

=item <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29427	29530	
==>m C<size () returns Int>

This method returns a count of this Relation's member tuples as an Int.

=item <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29836	30066	
==>ck'
            ),             
            sub {
                my $e     = shift;
                my $self  = $e->get('$self:');
                my $order = $e->get('?$order');
                
                $order = str->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9363	9520	
==>to &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$fre <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10354	10511	
==>to &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$fre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5979	6155	
==>Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() => Pugs::Compiler::Regex->compile( q!
                ### floating point
                \d+\.\d+ { return { num => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2672	2812	
==>> 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	860	974	
==>od start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	860	974	
==>od start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	691	803	
==>nd_half_even (Num $x) {
	return int($x.is_even ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	ret <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1529	1631	
==>ays",
  y_label      => "Commits/Developers",
  x_label_skip => 10,
  y_max_value  => (int(@commits / 5 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	151	252	
==>ewtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $ <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	151	252	
==>ewtags) {
	$active |= any(keys %newtags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20070	20173	
==>ne and is included in the "Rosetta" core
distribution to allow the core to be completely testable on its <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20070	20173	
==>ne and is included in the "Rosetta" core
distribution to allow the core to be completely testable on its <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	668	768	
==>og

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	668	768	
==>og

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :t <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	739	859	
==>inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	706	826	
==>inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1449	1576	
==>ile";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1449	1576	
==>ile";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8094	8190	
==>return lists of spans.

In this example, @span may contain zero, one, two, or three spans, depend <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8094	8190	
==>return lists of spans.

In this example, @span may contain zero, one, two, or three spans, depend <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2686	2880	
==>$name, $it) = @_;

    $self->_reset_file_state;
    $self->{file} = $name;
    my %totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6710	6860	
==>ef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6710	6860	
==>ef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

met <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21225	21323	
==>on class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25777	25875	
==>on class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute name <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6537	6636	
==>'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Ty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6537	6636	
==>'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Ty <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3065	3169	
==>nt = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3065	3169	
==>nt = $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11039	11224	
==>r>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're curren <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11039	11224	
==>r>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue>({
          # Indicate that we're curren <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3834	3951	
==>= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWI <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3834	3951	
==>= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5527	5647	
==>us( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5527	5647	
==>us( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	394	484	
==>:Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	394	484	
==>:Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4440	4543	
==>t got the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6342	6445	
==>t got the right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11521	11647	
==>rnation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11887	12013	
==>rnation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7441	7544	
==>art), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7441	7544	
==>art), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2362	2466	
==>(Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2362	2466	
==>(Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for includes!
multi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	342	440	
==>t + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	342	440	
==>t + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5362	5465	
==>ple $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!body === $?S <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7761	7863	
==>($output_path,"index.html");
    eval { mkpath( $output_path ) };
    die "Failed to create directory $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8574	8690	
==>atchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8562	8678	
==>atchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	788	909	
==>ent ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	788	909	
==>ent ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $sel <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	261	396	
==>ob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.spl <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	261	396	
==>ob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.spl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4646	4761	
==>{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4646	4761	
==>{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21984	22092	
==>th $failedtests->{$script}->{name};
        $max_namelen = $namelen if $namelen > $max_namelen;
    }

    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2366	2473	
==>line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_mess <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2366	2473	
==>line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_mess <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2112	2247	
==>, 
  'tpParam'   ,'Param',
  'tpDefault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 ' <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1350	1453	
==>work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1350	1453	
==>work during runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5004	5110	
==>:Rule->compile(<<'RULE')->code();

    \(\)
        { return { empty_list => $() } }
RULE
*{'_open'} = Pugs <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4972	5083	
==>r (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle ta <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4972	5083	
==>r (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle ta <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6508	6609	
==>line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

Thi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6508	6609	
==>line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document>

Thi <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1128	1226	
==>! Perl6::Internals::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5348	5463	
==>p6ws> <indirect_object> <p6ws> <list> <p6ws>? \;
        { return { _print_with_fh => $() ,} }
RULE
*{'_print'} = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18194	18335	
==>->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14615	14756	
==>->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	891	1011	
==>ss);    
    $self->{env}->set('$?PACKAGE' => $inv->class);        
}

package method::signature;

use strict;
use warnin <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4221	4326	
==>goto found_term if $operator;
    goto null_term if ($key eq "");
  }
  expect_term_empty:
  if ( $termEmp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7273	7402	
==>e...\n");
      handler = sv;
    }
  }  
  /* If no handlers, then hand off */
  if(handler == NULL) {
    fprintf(stderr,"hook_r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21199	21309	
==>,F1,B0,[C|B0],E0,E0) :-    charset_member(E0,C,Set).

class_member(class_pos(space_perl),C) :- !,   (char_type( <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	107	247	
==>ed;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { las <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	107	247	
==>ed;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { las <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7511	7607	
==>@terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1336	1432	
==>@terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Perl6->sub_c <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1587	1734	
==>bject",   # for now
        set => "Set", iset => "Set",         # also for now
        hash => "Hash", ihash => "Hash",     #  └── "" ── <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5638	5761	
==>atch::Ratchet';
        return;
    };
}

# ------- higher-order ruleops

sub optional {
    return alternation( [ $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	461	559	
==>e flag_exhaustive  { <':exhaustive'> | <':ex'> }
rule flag_overlap     { <':overlap'> | <':ov'> }
r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3794	3889	
==>ser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buf <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3794	3889	
==>ser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3225	3370	
==>}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            pri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3689	3834	
==>}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #print Dumper( $meta->{depends} );
            pri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8873	9000	
==>oor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8873	9000	
==>oor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => ch <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2495	2600	
==>eSafe::Type::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26262	26363	
==>y for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate being i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26262	26363	
==>y for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate being i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2481	2592	
==>$result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2539	2650	
==>$result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27033	27208	
==>returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(symbol->new('@:subclasses'))-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7208	7321	
==>eturns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7208	7321	
==>eturns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8774	8932	
==>$e->get("&dispatcher")->do()); 
            block->new($e, sub { 
                my $e = shift; 
                $e->get("$current")
                  ->send( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8081	8182	
==>DESCRIPTION

This module provides an implementation for Perl 6 operator precedence.  

=head1 METH <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1852	2014	
==>param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1852	2014	
==>param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	591	693	
==>More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->pars <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	637	737	
==>More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->pars <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1697	1822	
==>r $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a ma <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1697	1822	
==>r $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a ma <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9479	9614	
==>ight;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9479	9614	
==>ight;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5170	5272	
==>vided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the docum <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5170	5272	
==>vided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the docum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2271	2389	
==>\$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' l <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	33	129	
==>nP5::Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  _ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1329	1421	
==>il::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1329	1421	
==>il::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9218	9338	
==>t sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9218	9338	
==>t sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28284	28377	
==>ix.

=item $parser->add_handler($seq, $code)

This method creates a method of the parser named <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26736	26832	
==>w object is set from the named parameter
$msg_key (a string); the optional named parameter %msg_v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26736	26832	
==>w object is set from the named parameter
$msg_key (a string); the optional named parameter %msg_v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3935	4047	
==>ey, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3935	4047	
==>ey, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24985	25099	
==>in the regex string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22497	22606	
==>r(_E,C,[setrange(C1,C2)|_]) :- C1 =< C, C =< C2, !.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0), <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9751	9846	
==>you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9751	9846	
==>you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model's i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1081	1203	
==>}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1081	1203	
==>}

sub metasyntax {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder) = T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2438	2592	
==>constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2631	2785	
==>constant( "\:" )
       ,
         ruleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8419	8538	
==>malize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8419	8538	
==>malize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2669	2764	
==>);
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package main <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2669	2764	
==>);
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package main <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21491	21587	
==>, but another package or program which uses yours may wish to
override some of your messages, sho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21491	21587	
==>, but another package or program which uses yours may wish to
override some of your messages, sho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37525	37617	
==>er
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37525	37617	
==>er
$module_name (a string) and tries to load it using 'require'.

=item C<get_template_text_f <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15098	15251	
==>d by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19273	19426	
==>d by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	379	487	
==>emented character sets.  <-[...]>  They are all tagged with
#     #SourceCharacter but not ...
#     But <Sou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	199	440	
==>tant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	200	441	
==>tant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3241	3421	
==>>CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3241	3421	
==>>CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::P <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4132	4228	
==>ft;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $self->{class_that_sho <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	231	336	
==>'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns V <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	231	336	
==>'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns V <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2185	2298	
==>OF_META  ];

### source package dirs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp - <==
2	/Users/nnunley/pugs/util/func_refact.pl	3118	3219	
==>total - $new) / $total;
}

#sub clone { Load(Dump($_[0])) }
sub ::Y { require YAML; YAML::Dump(@_) }
s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22016	22125	
==>~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if($sigil eq ':') {
	$mn .= "::M <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5622	5715	
==>eturn Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_close <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5622	5715	
==>eturn Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_close <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1883	2002	
==>0s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:regis <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1883	2002	
==>0s
    Bool $floodcontrol = 0,    # Check that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:regis <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1591	1704	
==>ot($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :neg <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1649	1762	
==>ot($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :neg <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14677	14778	
==>oes not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14677	14778	
==>oes not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a span <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6619	6764	
==>op->( @_ );

        ### abortable match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6405	6542	
==>op->( @_ );
        ### abortable match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abor <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	733	875	
==>Config{output}: $!";
    } else {
        *OUT = *STDOUT;
    }
    binmode OUT;
}

# XXX: with yaml precompilation, this may be bogus.
sub tou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8287	8390	
==>egory_name - the name of this category 
(a namespace or a Grammar name).

=head2 add_op ()

Instanc <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7971	8098	
==>tr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - $I0
    $S0 = su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27630	27738	
==>=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27630	27738	
==>=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref of 2
elements <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16682	16783	
==>e.  If the optional named parameter
@child_nodes (an array ref) is set, then each element in it is use <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16682	16783	
==>e.  If the optional named parameter
@child_nodes (an array ref) is set, then each element in it is use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18877	18976	
==>::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18877	18976	
==>::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash()} );

Or, to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2996	3134	
==>{
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3543	3681	
==>{
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4403	4504	
==>head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4403	4504	
==>head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/util/func_refact.pl	251	346	
==>s
of graphfuncs.pl. Will print initial set sizes for all functions
by default, or use -initial < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6375	6487	
==>non/chain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<l <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1727	1874	
==>)) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->maybe_command($fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1620	1722	
==>)) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->maybe_command($fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17662	17820	
==>p::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17941	18099	
==>p::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \& <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14729	14835	
==>art => 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14729	14835	
==>art => 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, end = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5981	6084	
==>return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5981	6084	
==>return $.closure_next( $.closure_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1512	1616	
==>$@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1512	1616	
==>$@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syntax error in macro at <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11434	11584	
==>y("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11434	11584	
==>y("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from ser <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1237	1331	
==>(
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1237	1331	
==>(
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make al <==
2	/Users/nnunley/pugs/util/package-osx.pl	7423	7534	
==>ec::Concurrency.3
        /usr/local/man/man3/Perl6::Spec::Concurrency.3pm
        /usr/local/man/man3/Perl6::Sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6402	6623	
==>0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6402	6623	
==>0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3980	4073	
==>.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3980	4073	
==>.complement_next, $set.complement_next, -1 ),
        complement_previous => $self._get_union( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1035	1159	
==>10 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Larg <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1035	1159	
==>10 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Entity Too Larg <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	677	773	
==>for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	677	773	
==>for that.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3603	3713	
==>ar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3820	3930	
==>ar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14089	14221	
==>$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14089	14221	
==>$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	683	789	
==>cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> tr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	683	789	
==>cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> tr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7659	7765	
==>sub { @pfiles > 0 },
  using  => sub {
    @pfiles = map { (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15298	15391	
==>for you right there!)

=item Regexp::MinLength

Implements a min_length() method for all objec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5067	5199	
==>s Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5067	5199	
==>s Perl6 handle tainting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3202	3461	
==>el::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3202	3461	
==>el::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model::Node class, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6459	6593	
==>acked_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMIT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6459	6593	
==>acked_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMIT <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7209	7323	
==>n1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7209	7323	
==>n1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15913	16038	
==>e a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15913	16038	
==>e a new callback
    method enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3509	3669	
==>age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3509	3669	
==>age_v; # corrected_received_age
        }
        
        my $request = ./request;
        
        if ($request) {
            my $request_time = $request.date <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33599	33709	
==>y of Str - This stores an ordered list one or more elements where each
element is a Template module Member Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33599	33709	
==>y of Str - This stores an ordered list one or more elements where each
element is a Template module Member Name <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9745	9843	
==>urns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9745	9843	
==>urns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta::Model' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	197	314	
==>ats use
my %format = (
	yaml => ['YAML'           => \&yaml],
	p5  =>  ['Data::Dumper'   => \&p5  ],
	xml =>  ['XML::G <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	95	194	
==>ils = 'ParserDetails.ini';
# use 
# my constant $:parser_details = 'ParserDetails.ini';
# as soon as <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1140	1239	
==>ay
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Ra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1140	1239	
==>ay
  by doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Ra <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15389	15536	
==>the capture.
n=0 is the total match?

  U32 lastparen;          /* last paren matched */
  U32 lastcloseparen;     /* last paren matched */

Other t <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	972	1083	
==>^X" -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
"$^X" -x -S %0 %*
EOT
print $F <<'EOT';
if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3408	3559	
==>arnings qw( uninitialized );
    return sub {
        my $bool = substr( $_[0], $_[5] ) =~ m/$rx/;
        $_[3] = bless \{ 
                bool  = <==
2	/Users/nnunley/pugs/util/grokprims.pl	1354	1456	
==>s}}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1785	1981	
==>h) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1785	1981	
==>h) {
                # if we find a match, then
                # we store the current tree 
                # in our results, and 
                @results.push($current_tree);
                # w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26226	26337	
==>iable name can be any
defined and non-empty string, and each variable value can be anything at
all.  Note that w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26226	26337	
==>iable name can be any
defined and non-empty string, and each variable value can be anything at
all.  Note that w <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4325	4421	
==>new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for ` <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4325	4421	
==>new('today')`

- `tomorrow()`

Synonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for ` <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4493	4608	
==>',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4493	4608	
==>',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7670	7783	
==>ll_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1495	1608	
==>ll_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2567	2717	
==>floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs($x) ) }
            }
        }
    }
    return $x_round;
}

o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9446	9567	
==>self->type;
    push @{ $prev->{data} }, @{ $self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22546	22635	
==>!.
charset_member(E0,C,[setrange(C1,C2)|_]) :-
   flag_i(E0),
   code_type(C,to_lower(Cx)) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4071	4181	
==>ompl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4071	4181	
==>ompl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    return ( @spans, $compl_ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2522	2636	
==>ilder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $t <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2522	2636	
==>ilder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2514	2852	
==>pp(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20427	20532	
==>);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_con <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	485	595	
==>e_nodes($program);

	$self->{seen} = {};

	return $self->reduce($program) unless @nodes;

	$self->{seen} = { ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	799	914	
==>itespaceOperatorTable({}); 
  $object;
}

sub printHash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$ha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11380	11486	
==>.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {.chr}, *$array;
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11380	11486	
==>.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {.chr}, *$array;
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1167	1268	
==>ntity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1167	1268	
==>ntity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13653	13766	
==>rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {tim <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13653	13766	
==>rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {tim <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1882	2031	
==>ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful match.\n";
	    } else {
		print "ok\n";
	    }
	} else {
	    if (!$m) {
		p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11406	11504	
==>--> p5_comment(_), !.
p5_comment_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ") <==
2	/Users/nnunley/pugs/util/importgraph.pl	2077	2160	
==>nk('parser_program', 'Pugs.Parser.Program');
setup_rank('prim', qr/^Pugs\.Prim\.\w+$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32745	32839	
==>tor class as a whole is not pure and deterministic because it
invokes user-defined external fil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32745	32839	
==>tor class as a whole is not pure and deterministic because it
invokes user-defined external fil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10997	11104	
==>th $text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# alw <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10997	11104	
==>th $text;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# alw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32919	33018	
==>ed to modify the walking stack before the node
is returned.  Here is the walk() method for all the q <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11716	11827	
==>object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11716	11827	
==>object representing a single span

= SYNOPSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1260	1390	
==>s::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1260	1390	
==>s::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base') <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4806	4936	
==>e stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4806	4936	
==>e stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbalanced close modi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1746	1894	
==>turn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1746	1894	
==>turn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1423	1546	
==>> $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1434	1557	
==>> $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        ruleo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	126	224	
==>uilder->STORE('::TestPlan' => class 'TestBuilder::TestPlan' => {
    is => [ $::Object ],
    attri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2599	2791	
==>\:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2846	3038	
==>\:\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3003	3100	
==>thods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3003	3100	
==>thods are for overloaded operations with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $o <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	596	719	
==>r, -1, 1;
        $str = substr $str, 0, chars($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns Num is <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	62	154	
==>Generate cross-referenced html for p6 design docs (optional)
# FIXOTHERS (smoke): t/01-sanity <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23613	23701	
==>is N - 1, replace_at_n(N1,Replace,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2191	2334	
==>ass(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::cre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2396	2539	
==>ass(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::cre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8776	8894	
==>e step:

  my $ok = $parser->parse($new_regex);

Again, $ok will be false if a fatal error was raised in the inital sca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1693	1803	
==><FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1693	1803	
==><FunctionName> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0] <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3267	3364	
==>Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKA <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	38	135	
==>Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKA <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	759	865	
==>m TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary search <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	759	865	
==>m TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary search <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1730	1922	
==>$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anom <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	890	1005	
==>nt "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1096	1211	
==>nt "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3371	3494	
==>nd_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3371	3494	
==>nd_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	591	693	
==>sults ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	591	693	
==>sults ($self: @results) returns Void  { @!results = @results }
sub get_results ($self:)          return <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1519	1785	
==>'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1519	1785	
==>'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                wh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1639	1740	
==>Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->po <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	433	534	
==>urn $self->{type}->new();
}

1;

__END__

=pod

=head1 NAME

attribute - the core attribute type

=cut <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11744	11850	
==>ric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 N <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11744	11850	
==>ric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11544	11639	
==>nds) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. Thi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11602	11697	
==>nds) returns Bool`

This function will compare `$got` and `$expected` using `&compare_func`. Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12054	12165	
==>prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4697	4808	
==>prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	760	857	
==>_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_file $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	760	857	
==>_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_file $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3632	3730	
==>se warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3849	3947	
==>se warnings;
use lib '.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1218	1364	
==>nless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1168	1309	
==>nless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{captur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4729	4843	
==>ion
of the result object (usually the entire match string).

=head2 0+

When used as a number, the match object ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4729	4843	
==>ion
of the result object (usually the entire match string).

=head2 0+

When used as a number, the match object ret <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1562	1682	
==>from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2224	2344	
==>from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3096	3250	
==>);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3096	3250	
==>);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	535	656	
==>rs.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	535	656	
==>rs.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3625	3728	
==>t2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3625	3728	
==>t2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.inte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15757	15859	
==>his stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15757	15859	
==>his stores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4156	4283	
==>em * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4340	4467	
==>em * pos => $pos - Specify a string position to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	936	1030	
==>Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs A <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	936	1030	
==>Pugs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs A <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2130	2234	
==>st with:

    #!perl -T

the test will be run with taint mode on.

=head2 Configuration variables.

These <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13648	13748	
==>t(anyof_class => alnum => $neg, \$how);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_asci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4322	4446	
==>| 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4322	4446	
==>| 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8562	8661	
==>et::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8562	8661	
==>et::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22270	22394	
==>1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18691	18815	
==>1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' => sub {
    my ($S) = @_;
    my $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3629	3799	
==>f $method =~ /^_/;
            next if $method eq uc($method);
            $seen{$method}++;
        }
    }

    my $who = $self->_caller;
    foreach my $name ( sort key <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1923	2033	
==>stant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1934	2044	
==>stant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5708	5852	
==>nt->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5708	5852	
==>nt->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1169	1281	
==>nstant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1169	1281	
==>nstant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( constant_at_pos('x') ),
    );
print wra <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9719	9857	
==>/^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub para <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9719	9857	
==>/^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub para <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1	98	
==>use v6;
module Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Ha <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1	98	
==>use v6;
module Pod::Event::Handler::HTML-0.0.1;

multi sub pod2html (Str $buffer is rw) returns Ha <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26519	26635	
==> → list (α × β)", "pretty print :t zip");
}




# tests for the type inferrencer
is(t($id), "∀α. α → α", <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1375	1510	
==>Cipher>; for example, the methods used for actual 
cryptography are there.  See those modules for details.

The C<new> constructor takes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1375	1510	
==>Cipher>; for example, the methods used for actual 
cryptography are there.  See those modules for details.

The C<new> constructor takes <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10615	10712	
==>rmational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10615	10712	
==>rmational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1314	1437	
==>_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1314	1437	
==>_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if %param<int>;
    $density = %param<density> if defi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	251	342	
==>f_unmodified_since last_modified
    content_type content_encoding content_length content_la <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	251	342	
==>f_unmodified_since last_modified
    content_type content_encoding content_length content_la <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2957	3064	
==>cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export { <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3015	3122	
==>cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6470	6594	
==>d outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6253	6374	
==>d outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  } <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	413	554	
==>= 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defi <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	413	554	
==>= 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line.defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	526	648	
==>to: .from(); .to(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	526	648	
==>to: .from(); .to(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28639	28736	
==>anyof_close> node.

=item my $c = $obj->family()

The general family of this object.  These are an <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5762	5860	
==>arser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforw <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5762	5860	
==>arser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforw <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7404	7564	
==>my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	705	865	
==>my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18270	18398	
==>&SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14691	14819	
==>&SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RP <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4461	4555	
==>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4461	4555	
==>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31496	31591	
==>ion has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simpl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36046	36141	
==>ion has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simpl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2907	3009	
==>e => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2907	3009	
==>e => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12098	12186	
==>vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12098	12186	
==>vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4059	4161	
==>e($_[0]) });
		my $sub = $rval->val;

		Blondie::TypeSafe::Annotation->new(
			type => $sub->type,
			s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38434	38523	
==>s named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation::Example $other!) re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2033	2231	
==>(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual cla <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2033	2231	
==>(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual cla <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3308	3444	
==>->{skip_all} if defined $self->{skip_all};

    my $passed = ($totals{max} == 0 && defined $totals{skip_all}) ||
                 ($total <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1456	1560	
==>d1 SYNOPSIS

	use Blondie::ADTs;

	# Blondie::Map, Blondie::Unit and Blondie::List are defined

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11003	11101	
==>g the execution of some methods, 
because it will try to iterate to find a "complement set" that is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11003	11101	
==>g the execution of some methods, 
because it will try to iterate to find a "complement set" that is <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	734	837	
==>ray
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), S <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	734	837	
==>ray
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10377	10494	
==>add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10006	10123	
==>add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	30	174	
==>6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	30	174	
==>6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17089	17186	
==>ten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17089	17186	
==>ten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Ros <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22766	22880	
==>tion is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22766	22880	
==>tion is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosett <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18090	18196	
==>st = comb(
	fun => ide("fst"),
	param => $pair,
);

# this makes sure that ':t id(10)' is the same as ':t 1 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4491	4591	
==>ls above).  It prints
out each individual test which failed along with a summary report and
a how lon <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18949	19045	
==>ls it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18949	19045	
==>ls it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1959	2059	
==>e>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no long <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1959	2059	
==>e>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no long <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1134	1304	
==>:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $blo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1134	1304	
==>:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $blo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24976	25088	
==>Message object is a simple container which stores data to be used or
displayed by your program.  The Message clas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24976	25088	
==>Message object is a simple container which stores data to be used or
displayed by your program.  The Message clas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3819	3932	
==>ires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3819	3932	
==>ires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16304	16409	
==>sub get_version {
  my $bin = shift;

  open my $fh, "-|", $bin, "-V:pugs_version" or
    die "Couldn't op <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7684	7804	
==>A default implementation of this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() retu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7684	7804	
==>A default implementation of this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() retu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6275	6375	
==>.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6275	6375	
==>.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree {
    (!$self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1710	1848	
==>k ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@heade <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1710	1848	
==>k ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@heade <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8698	8795	
==>::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8756	8853	
==>::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::nu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1180	1308	
==>=> '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } ));
    __PACKAGE__->add_rule(
        '.' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1087	1197	
==>!."\n";
	$err = `cat $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pilfn.err" or die "C <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2026	2211	
==>h.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Res <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2026	2211	
==>h.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Res <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2013	2165	
==>{
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshif <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2013	2165	
==>{
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshif <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	553	686	
==>fer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we ha <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	553	686	
==>fer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we ha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33651	33752	
==>lements where each
element is a Template module Member Name and usually corresponds to a
language like <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33651	33752	
==>lements where each
element is a Template module Member Name and usually corresponds to a
language like <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	122	234	
==>.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.coun <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	122	234	
==>.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.coun <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	430	530	
==>RAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	430	530	
==>RAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STRING   }
sub request_method r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1392	1547	
==>: () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1337	1483	
==>: () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        ma <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7906	8030	
==>oreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_l <==
2	/Users/nnunley/pugs/util/testgraph.pl	1707	1866	
==>>catdir("t_index",$link);
    }

    package My::Subtest;
    use base qw/Test::TAP::Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        m <==
2	/Users/nnunley/pugs/util/claim_drift.pl	677	794	
==>a copy of DrIFT one level up.
.
    exit 1;
}

for my $orig (glob join $FS, qw<.. DrIFT src *.hs>) {
    (my $real = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1846	1947	
==>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RUL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3222	3323	
==>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { sub_call => $() } }
RUL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22445	22580	
==>lf->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12096	12187	
==>a list of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Ac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12096	12187	
==>a list of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Ac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19174	19283	
==>{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20532	20641	
==>{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $se <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12433	12610	
==>$test{max},$test{skipped},
                                                    @{$test{failed}});
                    print "$test{ml}$txt";
                    $failedtests{$tfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3816	3949	
==>=> Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { array => "\@" . $_[0]->( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10677	10794	
==>add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10282	10399	
==>add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, 1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	234	356	
==>[0] }

my %seen = ();

sub prompt {
    shift;

    # Infinite loop protection
    my @c = caller();
    if ( ++$seen{"$c[1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	521	626	
==>e, flatten first";
	}

	sub values {
		my $self = shift;
		croak "annotations are not eatable, flatten fir <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9151	9267	
==>od fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9151	9267	
==>od fix_height ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	146	240	
==>p/log; util/svnlog2graph /tmp/log > /tmp/graph.png

use warnings;
use strict;

use GD::Graph::l <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2574	2686	
==>t );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2574	2686	
==>t );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28226	28359	
==>ck = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28505	28638	
==>ck = sub { return { eval_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "captur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12649	12910	
==>Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12649	12910	
==>Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	277	389	
==>->get($params->{name});

    my $digest = $node->digest;

    $digest => Blondie::Backend::C::Prim->new(
		equals <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4364	4467	
==>ank lines are ignored.

When writing back to the config file, any comments are discarded.

=head1 METHOD <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4364	4467	
==>ank lines are ignored.

When writing back to the config file, any comments are discarded.

=head1 METHOD <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4035	4147	
==>ype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4035	4147	
==>ype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	442	541	
==>my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	442	541	
==>my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2502	2597	
==>oy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2502	2597	
==>oy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Previ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2017	2125	
==>- exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for spar <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2017	2125	
==>- exists(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for spar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	4038	4174	
==>:Installable')}; 

                            
1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5711	5837	
==>Installation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    return 1;
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4453	4586	
==>s
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\* <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4453	4586	
==>s
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\* <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26419	26514	
==>ta
that you are willing to distribute, because that is a practical way of
suggesting improvement <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26419	26514	
==>ta
that you are willing to distribute, because that is a practical way of
suggesting improvement <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9831	9936	
==>_x(B) --> p5_charset_item(char(B)).
p5_charset_item(char(C)) --> [C], {\+(set_metachar([C]))}.
p5_charset_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35568	35725	
==>$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => 'at <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	699	850	
==>nt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { } <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	699	850	
==>nt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1158	1268	
==>eturn { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1158	1268	
==>eturn { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20131	20246	
==>ized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20131	20246	
==>ized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30330	30432	
==>h Template module ideally comes as part of a set, at least one member
large, with each set member being <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30330	30432	
==>h Template module ideally comes as part of a set, at least one member
large, with each set member being <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10790	10885	
==>complex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10790	10885	
==>complex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	487	590	
==>t = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	487	590	
==>t = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5366	5460	
==>s) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_ru <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5424	5518	
==>s) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16135	16265	
==>ck if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16135	16265	
==>ck if document is more than 1 hour old
  if my $last_mod = $h.last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9906	10033	
==>r @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9906	10033	
==>r @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1894	2023	
==>{
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1894	2023	
==>{
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7502	7628	
==>";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7514	7640	
==>";

    # XXX - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3974	4078	
==>t::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3974	4078	
==>t::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1808	1916	
==>en {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self->{nparen};
}


sub captures {
  my ( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	187	285	
==>FIXOTHERS (smoke): skipped tests have pos point to the test library

use warnings;
use strict;

use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18797	18902	
==>) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosetta D is ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18797	18902	
==>) because SQL is more ambiguous and error-prone to use,
and it is less expressive.  While Rosetta D is ver <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10901	11004	
==>S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11330	11433	
==>S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8785	8885	
==>nick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($ol <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8785	8885	
==>nick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}<users>.delete($ol <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3055	3158	
==>hanging data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nice <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3055	3158	
==>hanging data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Syntax below is nice <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1943	2120	
==>ck);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1943	2120	
==>ck);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores the current top <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4294	4431	
==>3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4294	4431	
==>3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print po <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	28	129	
==>he Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# Ble <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	72	173	
==>he Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ingo Ble <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3285	3408	
==>ucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3285	3408	
==>ucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	291	389	
==>subPad;

has Str $.subAssoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Binding @.s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	618	714	
==>lls a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	618	714	
==>lls a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it w <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2776	2901	
==>rl 6 pattern matching namespace
    List        Perl list
    Lazy        Lazily evaluated Perl list
    Eager       Non-lazil <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27420	27517	
==>rocesses when defined.

=item C<HARNESS_NOTTY>

When set to a true value, forces it to behave as t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16430	16545	
==>ation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19907	20022	
==>ation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6954	7048	
==>5_metachar("[").
p5_metachar("^").
p5_metachar("$"). %"
p5_metachar("(").
p5_metachar(")").
p5_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2807	2935	
==>ess $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3000	3128	
==>ess $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9295	9392	
==>ll in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9295	9392	
==>ll in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9860	9977	
==>nick)} },

    # Main handler register method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9860	9977	
==>nick)} },

    # Main handler register method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) }, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3641	3814	
==>) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3641	3814	
==>) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12112	12223	
==>if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12112	12223	
==>if %val.exists($EMPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1773	1881	
==>ew(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1773	1881	
==>ew(
    FETCH => { %!headers{$field} },
    STORE => -> Str $val { $self!header($field, $val) }
  );
}

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8477	8573	
==>parse() method to explicitly build it:

  $parser->parse;

This is not necessary, though, because <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2078	2181	
==>ondie::App;
    use base 'Blondie::Node::List';

    package Blondie::Val;
    use base 'Blondie::Node:: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4219	4353	
==>stant = 1;
    
    sub import {
        Pugs::Internals::install_pragma_value($?CLASS, 1);
    }

    sub unimport {
        Pugs::Int <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1356	1719	
==>/LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_mo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1356	1719	
==>/LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_mo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37321	37423	
==>s an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41870	41972	
==>s an alias named C<natural_join>.

=item C<join (Relation *@others) returns Relation>

This multi-metho <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1336	1450	
==>];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1336	1450	
==>];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

This is an experimental module which eases <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6652	6860	
==>sh(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6652	6860	
==>sh(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    meth <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34664	34772	
==>the invocant Relation, and returns a new Relation that has the
same heading as the invocant and whose body co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39214	39322	
==>the invocant Relation, and returns a new Relation that has the
same heading as the invocant and whose body co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13679	13779	
==>loned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demon <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13679	13779	
==>loned_doc = Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demon <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13759	13900	
==>a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$mat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13759	13900	
==>a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$mat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	246	391	
==>ut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	246	391	
==>ut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5846	5984	
==>no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5846	5984	
==>no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtim <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	576	718	
==>ile $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	576	718	
==>ile $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9241	9355	
==>t-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9241	9355	
==>t-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Hea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	375	488	
==>on is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference op <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	375	488	
==>on is difference
multi sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1961	2088	
==>er @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1961	2088	
==>er @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        pus <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	197	296	
==>ning a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evalu <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	253	352	
==>ning a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evalu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13750	13929	
==>')->send('BUILDALL' => ($e->get('%params')));
                return $e->get('$self');                  
            }
        )
    )
);

=pod

method CREATE (opaque $class: str $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45061	45169	
==>-------------------------------------
## now build Package & Module, so we can create something here

$::Pack <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5722	5917	
==>mes.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5722	5917	
==>mes.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Message $message!)
        returns S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21472	21580	
==>h several attributes may store values of the same class;
every Relation tuple must be distinct from the other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26024	26132	
==>h several attributes may store values of the same class;
every Relation tuple must be distinct from the other <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10091	10189	
==>6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10091	10189	
==>6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4363	4458	
==>esult4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { raise ReferenceError; }
method PutValu <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	558	653	
==>s = $class._parse_ini_file($fh);

	return $class;
}

method do_warn(Class $class: @args) { warn( <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	317	427	
==>d finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method B <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	317	427	
==>d finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method B <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6502	6607	
==>ived from the network.  If the request fails, then the
status code and message are printed on STDERR.  The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6502	6607	
==>ived from the network.  If the request fails, then the
status code and message are printed on STDERR.  The <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	418	563	
==>from JIB::Package
sub new {
    my $self    = shift;
    my %hash    = @_;
    
    my $file; my $meta;
    my $tmpl = {
        file    => { requ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13812	13909	
==>item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1537	1766	
==>ey =>
                    (.value.value.does(Relation::Heading)
                        ?? .value.value
                        !! $?CLASS.new( :attrs<.value.value> )
                    )
                )
                !! ( 'S <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	660	847	
==>int {_('$.output')} $message, "\n";
        },
        'diag' => sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10054	10173	
==>$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10048	10167	
==>$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$n <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	86	197	
==>rned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	86	197	
==>rned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9714	9855	
==><" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	561	682	
==>straction
# "barrier" for the engine, from the entire perl5 source.

# The exploratory effort was abandoned as insufficien <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8960	9084	
==>ference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_difference = $set % $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8960	9084	
==>ference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_difference = $set % $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18129	18226	
==>ng or ambiguity involved.
By contrast, if a program simply returned words for the user, such as
'e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18129	18226	
==>ng or ambiguity involved.
By contrast, if a program simply returned words for the user, such as
'e <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10267	10366	
==>pports of <a
    href="http://svn.openfoundry.org/pugs/t/">Pugs's testsuite</a>.
  </p>

  <p>
    S <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13404	13529	
==>0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  d <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8719	8835	
==>tom: 2px solid #313052; }
    .indent1 { padding-top:  10px; border-bottom: 1px solid #313052; }
    .indent2 { paddi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4607	4761	
==>e {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4595	4749	
==>e {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	490	644	
==>s, false on failure.

=cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4676	4780	
==>ip the thunk

			my $expected = shift @context;

			#warn "## unifying " . $self->display_type($expected) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	445	540	
==>Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	445	540	
==>Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::P <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	387	516	
==>e            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self- <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	418	527	
==>e if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13295	13388	
==>e the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13353	13446	
==>e the `:todo(1)` named parameter for all these  functions.

The `:depends("string")` parameter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36421	36613	
==>nit
  my $rx = q{^.*foo&\D*(\d+)};

  $parser->regex($rx) or die $parser->errmsg;
  print "VISUAL: ", $parser->visual, "\n";
  print "REGEX:  ", $parser->qr, "\n";

Here's the output:

  VISUAL <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2715	2831	
==>0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2715	2831	
==>0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10180	10352	
==>.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10180	10352	
==>.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3155	3279	
==>s_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3155	3279	
==>s_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_ope <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	803	1011	
==>> 1 } @{ $Conf{cc} };
    comp_cc(\%ccset);
    print "$_\n" for sort keys %ccset;
}

if ($Conf{allccs}) {
    $|++ if $Conf{verbose};
    my %allccs;
    for my $f (keys %nodes) {
        print "." if $Conf{v <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30672	30770	
==>at we know for
sure is, that it was inspired by Larry Wall's TEST script that came
with perl distri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5326	5471	
==>h, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5338	5483	
==>h, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9400	9583	
==>t::Builder::Test-0.2.1
  {
      method new (
          $number,     
          ?$passed      = 1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	930	1036	
==>ne, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	930	1036	
==>ne, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4348	4462	
==>item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print "optimized: [",join(", <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3026	3151	
==>end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3026	3151	
==>end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.star <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16473	16571	
==>t a recompile (such as by simply
copying files), often even while the program is executing.

Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16473	16571	
==>t a recompile (such as by simply
copying files), often even while the program is executing.

Locale <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11348	11503	
==>?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $res <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11348	11503	
==>?-~])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    $string = $res <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	87	194	
==>omments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	82	185	
==>omments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12402	12523	
==>k => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12402	12523	
==>k => $from_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1066	1210	
==>ION

The blondie intermediate language is a language for machines and not for
humans. It has no syntax, only an abstract syntax tree, and some ve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4252	4422	
==>o do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4252	4422	
==>o do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6106	6214	
==>:Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6106	6214	
==>:Int objects
# method density () returns Object {
#    return $.span.density;
# }

method stringify () return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13014	13182	
==>-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13014	13182	
==>-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2509	2635	
==>{ _('$.passed') },        
        'diagnostic'  => sub { _('$.diagnostic') },        
        'description' => sub { _('$.desc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14269	14381	
==>=$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14269	14381	
==>=$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $first, $second, $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1785	1928	
==>b _rmdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $arg <==
2	/Users/nnunley/pugs/util/run-smoke.pl	222	318	
==>:Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $faile <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6168	6308	
==>hr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6168	6308	
==>hr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => ch <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	232	361	
==>RR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	232	361	
==>RR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3241	3329	
==>_PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadW <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3241	3329	
==>_PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadW <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13178	13293	
==>$_[0] },
      glob  => sub { "". ${$_[0]} },
      lvalue => sub { p6_as_str(${$_[0]}) },
      perl5_object => sub <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	955	1050	
==>]*';
our $re_condition = '(?:if|elsif|else|unless|while|unless)';
our $re_reserved = "(?:$re_con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6417	6634	
==>c $prec\n" .
                        "\t/* $op->{name} $op->{fixity} $op->{assoc} */\n";
                }
                $prec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2049	2173	
==>"grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my $cat = P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13011	13096	
==>ame-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13011	13096	
==>ame-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4233	4346	
==>may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_cl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4233	4346	
==>may return nothing if the span is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14886	15022	
==>1} );
    }
    if ( $n->{op1}{op} eq '!' ) {
        return _emit( $n->{exp1} ) . ' ? 0 : 1 ';
    }
    if ( $n->{op1}{op} eq '++' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1621	1726	
==>confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1826	1931	
==>confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3033	3133	
==>tions with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3033	3133	
==>tions with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *inf <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3150	3250	
==>S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http:// <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3150	3250	
==>S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http:// <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3353	3475	
==>e S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, eve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3364	3486	
==>e S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, eve <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	226	319	
==>m_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	284	377	
==>m_of_tests_failed = 0;
$Test::num_of_tests_badpass = 0;
$Test::num_of_tests_planned;

# a Junc <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33270	33372	
==>.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a generic binary rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37820	37922	
==>.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a generic binary rel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6468	6564	
==>set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6468	6564	
==>set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3631	3741	
==>ility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5533	5643	
==>ility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12884	13020	
==>/
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12884	13020	
==>/
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	169	267	
==>to a normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed met <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	169	267	
==>to a normal array turns the array into a lazy array
* New method: Array.is_infinite()
* Renamed met <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2036	2143	
==>::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2036	2143	
==>::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtyp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3447	3618	
==>ss -d $my_bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1800	1945	
==>$req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1800	1945	
==>$req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1905	2051	
==>tus;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1905	2051	
==>tus;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5894	5998	
==>_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::Key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5894	5998	
==>_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::Key <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3203	3330	
==>ue };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3203	3330	
==>ue };
        if defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2034	2135	
==>ft;
	my $node = shift;
	my $from = shift->type;
	my $to = shift->type;

	Blondie::TypeSafe::Annotation <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17430	17527	
==>.

There are no longer I<star>, I<plus>, and I<curly> classes; they have been
combined into one cl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1003	1107	
==>*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1003	1107	
==>*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11507	11638	
==>nless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11786	11917	
==>nless $match;
        my $capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	917	1013	
==>be enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	917	1013	
==>be enciphered in different ways.

=head2 Using the API

The Cipher API has functional, procedural <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1089	1216	
==>on= 1; 1 }    # XXX - get pos from regex
$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runti <==
2	/Users/nnunley/pugs/util/claim_drift.pl	178	276	
==>inks to the current one if you want to regenerate
# files. We should probably make this arrangement <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7903	8005	
==>::TypeSafe::Annotation->new(
				type => [ $child->type ],
				struct_equiv => $rthunk,
				orig => $th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14761	14846	
==>entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14761	14846	
==>entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20003	20134	
==>p' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16424	16555	
==>p' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4958	5150	
==>atcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6720	6912	
==>atcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <m <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	553	681	
==>r-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a n <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	553	681	
==>r-0.0.1;
    
    print header;
    
    if (server_port() != 80) {
        say "You are running " ~ server_software() ~ " on a n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9726	9825	
==>ethod difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_em <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9726	9825	
==>ethod difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_em <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19561	19681	
==>${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split // <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15982	16102	
==>${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split // <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	171	284	
==>match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	171	284	
==>match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my % <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7326	7418	
==>tr $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7326	7418	
==>tr $traversal_order?) returns Void {
    if !$traversal_order.defined || $traversal_order.lc( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	375	485	
==>pan ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	375	485	
==>pan ($class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10032	10132	
==>rammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } )\n";
} <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3549	3642	
==>ests and
exited with non-zero status indicating something dubious happened.

The columns in th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5237	5359	
==>dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5237	5359	
==>dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20444	20537	
==>the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20444	20537	
==>the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	600	694	
==>e 
Cipher API> for general information.

=head2 Constructor options

With no options, Cipher::C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	600	694	
==>e 
Cipher API> for general information.

=head2 Constructor options

With no options, Cipher::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	766	896	
==>gnored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19892	20040	
==>_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'grou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16313	16461	
==>_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'grou <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	727	905	
==>ch.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	727	905	
==>ch.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1469	1560	
==>in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF) <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1469	1560	
==>in F<docs/talks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	657	771	
==>d - better names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Opt <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	657	771	
==>d - better names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Opt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	16	149	
==>use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	16	149	
==>use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2486	2596	
==>other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subs <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2486	2596	
==>other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    return ($other.proper_subs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35091	35184	
==>)

Data: array reference of array references, each representing one
alternation, holding any n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2336	2455	
==>'))
        || confess "delimiter must be a string type";    
    return str->new(
        CORE::join $delimiter->to_nat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6679	6790	
==>GE_OPTABLE_TERNARY );
  goto ternary_error if ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_re <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9405	9559	
==>my ($start, $end);
      ($start, $end) = $test->{pos} =~ /line (\d+)(?:.*line (\d+))?/s;
      my @lines;
      if (defined $end && $end > 0) {
         @ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21593	21718	
==>igil;
my %sigil_from_space;
BEGIN{
%space_from_sigil = ( '$' => 'scalar', '@' => 'array', '%' => 'hash',
			 '&' => 'code', ': <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2492	2588	
==>Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2492	2588	
==>Returns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17887	17988	
==>oIn :words {  # see 11.11
      <BitwiseORExpressionNoIn>
    | <LogicalANDExpressionNoIn> <'&&'> <Bit <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1394	1512	
==>int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<span> if defined( %param< <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1394	1512	
==>int>;
    $density = %param<density> if defined %param<density>;

    %param<object> = %param<span> if defined( %param< <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	171	262	
==>nitialize {
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("",'package');
    Perl6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3268	3406	
==>matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3163	3298	
==>matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matche <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9050	9152	
==>)>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9050	9152	
==>)>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1125	1240	
==>accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute acc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1125	1240	
==>accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute acc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12939	13033	
==>not
possible to tell which of the returned values belonged to which field.

=item $h.remove_con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12939	13033	
==>not
possible to tell which of the returned values belonged to which field.

=item $h.remove_con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4309	4607	
==>there";
                        $args .= $arg;
                    }
                    else {
                        #warn "our other args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($arg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	801	892	
==>= -1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) >= <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6298	6420	
==>{ $syn_indexs->{S} }) ] ); 
    $template->param("exe", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{E} }) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17550	17662	
==>$string              --> Str )
 multi Str::capitalize ( Str $string = CALLER::<$_> --> Str )

Has the effect of f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2882	2983	
==>f->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	913	1014	
==>f->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6488	6587	
==>od *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6488	6587	
==>od *infix:<-> (Set $one, *@args) returns Set {
    #$one.difference(set(@args));
#}
multi sub *infix <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6507	6605	
==>data) returns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6507	6605	
==>data) returns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2977	3114	
==>( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2988	3125	
==>( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ru <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2767	2930	
==>('&infix:<+>'),
                Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:</>' => <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7918	8034	
==>otation->new(
				type => [ $child->type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24138	24309	
==>le = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24417	24588	
==>le = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7587	7701	
==>cks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7587	7701	
==>cks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8459	8564	
==>%:methods{$label};
}


(method get_method ((opaque $self:) (symbol $label)) returns method
    ((($self: g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24680	24776	
==>y store values of the same class;
every Relation::Example tuple must be distinct from the other t <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	205	319	
==>p>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) < <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	205	319	
==>p>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) < <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1094	1197	
==>blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($valu <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	943	1154	
==>'t work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	943	1154	
==>'t work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3711	3903	
==>d;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    : <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3711	3903	
==>d;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    : <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10876	10973	
==>xtended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10876	10973	
==>xtended by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	458	559	
==>?
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	458	559	
==>?
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it ret <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8887	8998	
==>bjPos = -1;
  die "Missing ternary close at offset $whitespacePosition \n";
  return ( $matchObj );

}

__PACKAG <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1779	1875	
==>dent::indent();

		warn "flattenning $node " . (eval { $node->struct_equiv } || "(not an object)" <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6771	6891	
==>218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6771	6891	
==>218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224), <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	191	293	
==>xt;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	191	293	
==>xt;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9991	10094	
==>esentation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9991	10094	
==>esentation of the set.

- `compare( $object )`

Compares the sets numerically. Returns -1, 0, or 1.

The <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6858	6956	
==>nd no closing match, I should
ignore the opening one. However, this means I should defer events unt <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6858	6956	
==>nd no closing match, I should
ignore the opening one. However, this means I should defer events unt <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	507	650	
==>rs => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $numb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	507	650	
==>rs => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $numb <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14063	14163	
==>root };

step
  descr  => "Unpacking GRUB in \"$cdroot\"",
  ensure => sub { -r "$cdroot/boot/grub/st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20456	20565	
==>e_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16877	16986	
==>e_NOTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39933	40031	
==>>); either
version 2.1 of the License, or (at your option) any later version.  You
should have rece <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39933	40031	
==>>); either
version 2.1 of the License, or (at your option) any later version.  You
should have rece <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5179	5320	
==>@!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5179	5320	
==>@!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2529	2620	
==>tem L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2529	2620	
==>tem L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source representation <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	650	763	
==>V_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	650	763	
==>V_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_ke <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16384	16494	
==>_all_ok($tot)) {
        print "All tests successful$bonusmsg.\n";
    } elsif (!$tot->{tests}){
        die "F <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16300	16393	
==>$$) }
cond: generic_in($.then) = { generic($.if) }
cond: generic_in($.else) = { generic($.then <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19760	19861	
==>me in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19760	19861	
==>me in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2205	2327	
==>le . qq[ -C $my_tmp_dir -xz]) and die $?;
    
        my $meta_dir = $inst->control_dir( $self->package );
        my $dat <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3743	3857	
==>ginal name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = shift(@ARGV) or die "Enter a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11071	11173	
==>ring>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11071	11173	
==>ring>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($cipher <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20859	20965	
==>ts of other program resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20859	20965	
==>ts of other program resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10403	10521	
==>='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10403	10521	
==>='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 " <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7237	7327	
==>-------------------------------------
## traversal

method traverse ($self: Code $func, Str <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7237	7327	
==>-------------------------------------
## traversal

method traverse ($self: Code $func, Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36821	36913	
==>hat is like
C<union> except that the returned Relation::Example contains only tuples that are <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37321	37413	
==>hat is like
C<union> except that the returned Relation::Example contains only tuples that are <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6751	6860	
==>flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6763	6872	
==>flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9275	9444	
==>{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          T <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10266	10435	
==>{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	883	989	
==>the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	883	989	
==>the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Ros <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4883	4993	
==>:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4883	4993	
==>:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	256	342	
==>se Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;
use Pugs::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19535	19634	
==>bles rather than user-defined
relation variables.  In SQL terms, you create or alter tables by addin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19535	19634	
==>bles rather than user-defined
relation variables.  In SQL terms, you create or alter tables by addin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1085	1188	
==>t $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1085	1188	
==>t $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	377	502	
==>, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	377	502	
==>, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5044	5191	
==>> sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method rever <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5044	5191	
==>> sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method rever <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2090	2228	
==>t;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub Array::reverse (   @values) returns Lazy|Str {
 multi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13884	13997	
==>= JIB::Alternative->new_from_struct( struct => 
                    { bin => \@bins, auto => 1, package => $inst_p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7722	7848	
==>= $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7722	7848	
==>= $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33443	33542	
==>on contains only tuples that are in
all of the source Relations.  This method has an alias named C<i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37993	38092	
==>on contains only tuples that are in
all of the source Relations.  This method has an alias named C<i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21270	21368	
==>=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21270	21368	
==>=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12521	12674	
==>1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12515	12668	
==>1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12580	12678	
==>rns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12580	12678	
==>rns true if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is i <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8333	8487	
==>-8" />

  <style type="text/css">
    body {
      background-color: white;
      margin:           0;

      font-family: sans-serif;
      line-height: 1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	306	417	
==>}

sub mk_constructors {
    foreach my $class (@{ Class::Inspector->subclasses("Blondie::Node") }) {
        ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15154	15270	
==>$reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15154	15270	
==>$reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9130	9320	
==>e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->fetch($e->get('$label'));                                                  
            }
        ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6327	6450	
==>r( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6339	6462	
==>r( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2440	2557	
==>port(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 60 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2440	2557	
==>port(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 60 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7819	7919	
==>Delete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my $Result1 = $A.<[[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9263	9361	
==>re groups with the captures() method:

  my $all_captures = $parser->captures();

If you want to ac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2835	2930	
==>s Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2835	2930	
==>s Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $oth <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1198	1337	
==>N copy later if all goes well
        {   print "Writing meta data...\n";
            system( qq[mkdir -p $meta_dir] )                and di <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	414	506	
==>> "class" });
Has($?CLASS, "superclasses", "Set", { companion => "subclasses" });
Has($?CLASS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7471	7610	
==>om = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7459	7598	
==>om = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 un <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4050	4158	
==>e' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4050	4158	
==>e' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	444	566	
==>hello, full YAML spec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1869	2000	
==>ef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2086	2217	
==>ef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7321	7439	
==>call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7073	7189	
==>call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6077	6225	
==>ack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6077	6225	
==>ack => -> { $p.parse()($match, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.pa <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	35	140	
==>6 * rand }
#!\pause
#=Perl 5: sechs mal würfeln
my @a; push @a, wurf() for 1..6;
#!\pause
#=Perl 6: sechs <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	731	853	
==>te {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	731	853	
==>te {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7392	7485	
==>s, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1217	1310	
==>s, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_ca <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27898	27995	
==>py of this Relation::Example as a Hash ref of 2
elements, which correspond to the 2 named paramete <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25972	26071	
==>ted with the message, and can be interpolated into the
human-readable version.  Each variable name i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25972	26071	
==>ted with the message, and can be interpolated into the
human-readable version.  Each variable name i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32384	32515	
==>Whether this object goes into a shallower scope (like a CLOSE).

=item vis

The visual representation of this object.

=item zerolen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6387	6515	
==>ch
            if exists $current->{env}->{$name};  
        $current = $current->next;
    }
    confess "'$name' not found in d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3889	4021	
==>{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newlin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4082	4214	
==>{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newlin <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9864	10021	
==>umber, so leave them out for now
          if($test->{todo}||0 == 1) {
          $lines->{$line} = 2;
          } else {
          $lines->{$line} = ($test->{ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11784	11930	
==>{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shift;

    local $ENV{PERL5LIB};
    my $perl = $self->_command;
    my @inc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6280	6411	
==>t }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    }) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6280	6411	
==>t }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    }) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20008	20112	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20287	20391	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	279	378	
==>fh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	279	378	
==>fh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5381	5600	
==>t    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5381	5600	
==>t    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2665	2788	
==>and die $?;
            ### XXX need status dir like dpkg
            system( qq[tar -f $my_tmp_dir/$control -C $meta_dir -x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	931	1084	
==>s {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	893	1040	
==>s {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28802	28897	
==>tion attribute names, or duplicate any other value set members.  This
method supports having the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33354	33449	
==>tion attribute names, or duplicate any other value set members.  This
method supports having the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	859	1006	
==>chet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = delete $param->{p}    unless defined $se <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15361	15490	
==>};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  my $pos = $X::pos;
  my $cap = $X::cap;
  my $m0 = $X: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13044	13144	
==>rs

This will remove all the header fields used to describe the content of
a message.  All header fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13044	13144	
==>rs

This will remove all the header fields used to describe the content of
a message.  All header fie <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1161	1254	
==>> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Sim <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1161	1254	
==>> extensions that
are compatible with B<Filter::Simple>'s API.

Additionally, C<no Filter::Sim <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1245	1388	
==>zf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while unlink $Control
    }
    
    print -e $a <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1979	2074	
==>return Pugs::Internals::log($x)   if !defined $base;
    return Pugs::Internals::log10($x) if $b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1896	2040	
==>me,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOOD <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1896	2040	
==>me,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_GOOD <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1861	1989	
==>e
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31996	32088	
==>od

method _make_descendant_dispatcher (opaque $self:) returns block {
    $self._make_dispat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29192	29319	
==>r {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29192	29319	
==>r {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2402	2508	
==>e_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2402	2508	
==>e_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1042	1175	
==>atement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1247	1380	
==>atement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10589	10714	
==>e' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10747	10872	
==>e' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what has <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	725	840	
==>> $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::Seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	725	840	
==>> $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::Seen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23570	23686	
==>=>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19991	20107	
==>=>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20952	21048	
==><Statement> <'else'> <Statement>
    | <'if'> <'('> <Expression> <')'> <Statement>
}
rule Iterati <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4805	4891	
==>p { $_->scalar_fetch } splice(@{$self->get_value('@:slots')}, $idx_from, $idx_to, mk_co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	778	901	
==>ound 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$self->{prof}{$thunk} += $t2 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10235	10386	
==>ate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10235	10386	
==>ate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16773	16871	
==>ntersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16773	16871	
==>ntersection( $span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	478	590	
==>iler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	478	590	
==>iler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	304	543	
==>.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	304	543	
==>.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                when 'item <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6714	6916	
==>pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6714	6916	
==>pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_content = $c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18741	18840	
==>me in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

Thi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18741	18840	
==>me in the
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1457	1593	
==>24 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1457	1593	
==>24 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	157	261	
==>ilder::Output;

class Test::Builder::Tester::Output
{
    has @:output;
    has @:diagnostics;

    metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25958	26091	
==>rt {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regex <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	501	607	
==>> App(
			Sym('&infix:<~>'),
			Val('foo'),
			Val('bar'),
		),
		result => 'foobar',
		name => "simple con <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12981	13098	
==>Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test whether they live or di <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13039	13156	
==>Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test whether they live or di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18993	19087	
==>ickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18993	19087	
==>ickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autoping>

These are <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5788	5934	
==>";

        if (-d $ghc_root) {
            # Looks like we've found a GHC directory.  Find the latest
            # ghc inside that.  Sort version <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6333	6436	
==>normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6333	6436	
==>normalize $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4516	4627	
==>an;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4516	4627	
==>an;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.int <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1428	1525	
==>y said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1428	1525	
==>y said is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2297	2405	
==>ON

Meta::Class objects are objects in the Perl 6 class system.

These objects are changed when you define ne <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1837	1934	
==>daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with tha <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1837	1934	
==>daughter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with tha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7946	8057	
==>t 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7946	8057	
==>t 
Police are breaking down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7216	7331	
==>$n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7216	7331	
==>$n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating int <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3994	4093	
==>jects.

The array of spans must be ordered, and the spans must not intersect with each other.

- emp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3994	4093	
==>jects.

The array of spans must be ordered, and the spans must not intersect with each other.

- emp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10558	10661	
==>$ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10558	10661	
==>$ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return $self.cip <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20119	20222	
==>an be changed greatly (it isn't what's important;
the interface/behaviour is), this Relation data type i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24671	24774	
==>an be changed greatly (it isn't what's important;
the interface/behaviour is), this Relation data type i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5741	5865	
==>{ return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (die| <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1605	1709	
==>s its first child to the rest of its
children.

=item Map

A map is like a hash - it has keys and values. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11110	11241	
==>%.3f (%.3f compilation, %.3f execution)\n", $t3 - $t1, $t2 - $t1, $t3 - $t2;
# this is useful to see that the unnecessary parts of t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10810	10920	
==>d new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10810	10920	
==>d new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the information about how many memb <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27305	27396	
==>y give more predictable results.

=item C<HARNESS_IGNORE_EXITCODE>

Makes harness ignore the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	757	868	
==>s Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	757	868	
==>s Void {
    my $child_height = $child.height();
    return if $.height >= $child_height + 1;
    $.height = $ch <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2311	2443	
==>ernals::eval_yaml($code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and repl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9	106	
==>n/perl

use strict;
use warnings;

use Perl6::MetaModel;

require "lib/TestBuilder.pm";

$::TestBu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5692	5807	
==>nshift @mess, "# got, expected and range must be numeric\n";
    } elsif ($range < 0) {
        # This is also a fai <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9750	9859	
==>int"),
			type::operator::nullary->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		my $a = type: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6677	6788	
==>ched node state what it
expects to match next, but there is not currently a way of extracting a
complete grammar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19059	19163	
==>ge Control::Basic {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3442	3542	
==>o read and write .ini style configuration files
with as little code as possible, reducing load time a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3442	3542	
==>o read and write .ini style configuration files
with as little code as possible, reducing load time a <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7056	7213	
==>syn and $syn_indexs
sub read_designdocs {
    my $ddoc_dir = shift;
    @syn = map { m|^.*/(\D\d\d).pod$|; $1 }
        (<$ddoc_dir/apo/*>,
         <$ddoc_di <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5129	5252	
==>my $c = $_[0]; TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = q <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2973	3076	
==>oes not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rat <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2973	3076	
==>oes not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2634	2735	
==>$check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join " <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2634	2735	
==>$check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1448	1598	
==>$_table = $_table->{prototype}->('message-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($mess <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	150	239	
==>:Type is Perl::Type::Regular | Perl::Type::Junctive;

class Perl::Type::Regular isa Perl:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	848	960	
==>min;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warning han <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	970	1074	
==>$smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smokeserver \"$smokeserv\"... ";
  my $ua = LWP::U <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2145	2251	
==>/BUNDLES';
    $args{base}     ||= Cwd::abs_path($FindBin::Bin);

    $class =~ s/^inc:://;
    $args{name} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4510	4675	
==>op },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = I <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4510	4675	
==>op },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8226	8334	
==>{
    # $node is a Regexp::Parser::* object
  }

When the regex is finished being parsed, next() returns fals <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13738	13857	
==>l = $1;

	$result = `$runperl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3049	3155	
==>b {1};
    require ExtUtils::Manifest;
    local *ExtUtils::Manifest::manicheck = sub { return };

    requ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	115	209	
==>e Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $te <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	115	209	
==>e Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $te <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6909	7026	
==>can't parse chunk ($file)";
        push @{ $self->{meat}{test_files} }, @{$chunk->{test_files}};
        unlink $file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	796	908	
==>>SUPER::add_rule( 
        "postcircumfix:<" . $opt{name} . " " . $opt{name2} . ">",
        '{ return { op => "p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2133	2244	
==>'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2133	2244	
==>'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primat <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9920	10023	
==>tractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion :: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1135	1236	
==>tractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion :: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14843	14949	
==>and use relational databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14843	14949	
==>and use relational databases in a very reliable,
portable, and efficient way.  This "Rosetta" file is the c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8318	8420	
==>other hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  sa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8318	8420	
==>other hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  sa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2680	2873	
==>interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2680	2873	
==>interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2186	2284	
==>ndie::Runtime> load it for you.

Inherits Map.

=back

=head2 Nodes

Nodes are parts of the Blondie <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4045	4136	
==>th::Trig::pi ( --> Num )
 {
     3.141592653589793238462643383279502884197169399375105820974 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18425	18523	
==>he most accurate program text
for users, we still get the best results by having a human being writ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18425	18523	
==>he most accurate program text
for users, we still get the best results by having a human being writ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2838	2946	
==>)};
    } sort keys %$config;
    $template =~ s/#all_definitions#/$all_definitions/;

    print $template;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4742	4872	
==>n_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4935	5065	
==>n_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rul <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1839	1982	
==>and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1839	1982	
==>and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2537	2633	
==>f: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2537	2633	
==>f: Set $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() ret <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1903	2050	
==>.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1903	2050	
==>.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	580	688	
==>NV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	580	688	
==>NV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13568	13701	
==>)~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13568	13701	
==>)~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1606	1779	
==>}= { attribute => [
                [$_[2], $_[3],],
            ], %{$_[1]} } }
    ;

signature:
        #empty  
        { $_[0]->{out}= { signature => [] } }
    |   sign <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1923	2024	
==>p, @_) };
    $run_setup->('configure', '--user', grep !/^--.*=$/, @{$opts->{SETUP}});

    my $pm = " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15897	16005	
==>eturn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10753	10861	
==>eturn $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextc <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16740	16858	
==>$n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is saf <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2603	2757	
==>rn $self->_analyze_iterator($name, $it);
}


sub _analyze_iterator {
    my($self, $name, $it) = @_;

    $self->_reset_file_state;
    $self->{file} = $na <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3742	3857	
==>a Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3742	3857	
==>a Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	885	1026	
==>] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	850	984	
==>] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14017	14125	
==>se:
    parse_error(mob, pos, "No closing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_doll <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7184	7285	
==>thod is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7184	7285	
==>thod is provided which returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2033	2129	
==>g/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2033	2129	
==>g/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want to checkout <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16299	16405	
==>hat.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programming language name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16299	16405	
==>hat.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programming language name <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10182	10300	
==>e  = IO::File->new($input_path, "<:utf8") 
                         or die "Can't open input test file $input_path: $!" <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18347	18474	
==>als::sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($conv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21379	21470	
==>nlessm::ISA, __PACKAGE__;
  push @Regexp::Parser::suspend::ISA, __PACKAGE__;
  push @Regexp: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	774	888	
==>$S->can($c);
      --&RxPOS;

      $S->warn(RPe_BADESC, $c = $n, "") if $n =~ /[a-zA-Z]/;

      return $S->object <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1898	2020	
==>pital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1898	2020	
==>pital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	837	996	
==>ot, $pool, $pool_rel, $index, $index_file, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                store       => \ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21852	21944	
==>in-memory implementation of the Relation role

=head1 VERSION

This document describes Relati <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38737	38839	
==>ed, non-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38737	38839	
==>ed, non-recursively,
and any "<foo>" not matched by a variable name will be left intact.

=back

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4667	4771	
==>unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4667	4771	
==>unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$chan} a ha <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4250	4397	
==>not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4250	4397	
==>not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23768	23869	
==>lts it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28320	28421	
==>lts it to False.

=back

This is the main Relation constructor method:

=over

=item C<new (Set of Str <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17987	18091	
==>mpts to make source filtering a sane process, by
parsing up your module's source code into various blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17987	18091	
==>mpts to make source filtering a sane process, by
parsing up your module's source code into various blocks <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6007	6128	
==>text is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # bec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6065	6186	
==>text is now the raw TODO, so we have to check it
    my $context;

    # Check if we have to forcetodo this test
    # bec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12669	12805	
==>();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12669	12805	
==>();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9781	9901	
==>malize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register met <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9781	9901	
==>malize($channel)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register met <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1653	1746	
==>te (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1653	1746	
==>te (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9053	9264	
==>push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_par <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	318	483	
==>ce => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('@:slots', []);
        },        
        m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1923	2049	
==>y $node = shift;
	
	my $t = $self->t($node);

	if ($t eq "IV") {
		return $node->struct_equiv;
	} elsif ($t eq "PV") {
		return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3650	3769	
==>"No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    li <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5552	5671	
==>"No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    li <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3931	4038	
==>ray ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and a <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3931	4038	
==>ray ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	679	780	
==>ould test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	679	780	
==>ould test if $step == 1
# TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2623	2738	
==>in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $ms <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2623	2738	
==>in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $ms <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1370	1476	
==>- list concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    ha <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1370	1476	
==>- list concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	492	629	
==>< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  ### BACKSLASHED THINGS

  $self->add_handler('\\' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21666	21762	
==>) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos(xdigit)    ,C) :- !,    char_ty <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	57	182	
==>b pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buf <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	57	182	
==>b pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buf <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	602	712	
==>rn;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Lo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	602	712	
==>rn;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Lo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1532	1628	
==>s->SUPER::new(type => $type);
	}

}

{
	package Blondie::TypeSafe::Flatten;
	use base qw/Blondie: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1054	1145	
==>e Blondie::Backend::Perl;

=head1 DESCRIPTION

L<Blondie::Backend::Perl::Interpreter> contai <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	96	208	
==>::Kernel {
  # FIFO containing the events to call.
  has Code @:events;

  submethod BUILD ($self:) {
    die "Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	773	922	
==>rn {
        bool  => $bool,
        match => $1,
        tail  => $2,
    }
};
    
sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7842	7938	
==>tal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/*    fprintf(stderr,"calling out...\n");*/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	983	1099	
==>cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1647	1763	
==>cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9022	9165	
==>w($e, sub { 
                          my $e = shift; 
                          $e->set("$method", $e->get("$current")->send("get_method", $e-> <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6818	6940	
==>5"};
    #my sub warning($e){warn(Carp::longmess($e))};# XXX doesnt work yet.
    my sub warning($e){warn("Warning: $e\n")} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15273	15379	
==>c?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15331	15437	
==>c?) returns Bool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10668	10788	
==>CK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10668	10788	
==>CK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2831	2952	
==>ircumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2831	2952	
==>ircumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7637	7743	
==>t contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7637	7743	
==>t contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # S <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	932	1045	
==>ignature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
reg <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	932	1045	
==>ignature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
reg <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	81	185	
==>ikely there will be more than one.

Design goals:
 1 Correctness - mirror the spec.
 2 Interoperation - a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9383	9472	
==>"[:^", charset_identifier(X), ":]", !.
p5_charset_item(class_pos(X)) --> "[:",  charset_id <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7267	7375	
==>ns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7267	7375	
==>ns Array of byte {...}>

Called as part of C<finish>; ciphers and returns any pending data.  Block 
ciphers s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1773	1875	
==>used, but for forward compatibility it should always be the 
value C<1>, the default for the C<:name> f <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1773	1875	
==>used, but for forward compatibility it should always be the 
value C<1>, the default for the C<:name> f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2656	2772	
==>ed in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2840	2956	
==>ed in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5427	5535	
==>mber_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<"" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5427	5535	
==>mber_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<"" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33995	34093	
==>at are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other> d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38545	38643	
==>at are in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other> d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	17	118	
==>se v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	17	118	
==>se v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2time time2str>;
use <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4349	4468	
==>urn 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_pat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4349	4468	
==>urn 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_pat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2817	2908	
==>how_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.tra <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2817	2908	
==>how_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.tra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	253	367	
==>mper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasynt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	253	367	
==>mper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasynt <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8304	8400	
==>s not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8304	8400	
==>s not fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21080	21222	
==>6
      <'do'> <Statement> <'while'> <'('> <Expression> <');'>
    | <'while'> <'('> <Expression> <')'> <Statement>
    | <'for'> <'('> <Expres <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	213	327	
==>g to match

1 - an optional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whateve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	202	313	
==>g to match
1 - an optional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whateve <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10825	10924	
==>ent_length returns Str>

=back

B<The following informational functions are fetched on-demand>

=ove <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10825	10924	
==>ent_length returns Str>

=back

B<The following informational functions are fetched on-demand>

=ove <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6731	6853	
==>late_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # fail <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6731	6853	
==>late_module_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # fail <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2473	2608	
==>ingify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2473	2608	
==>ingify}() }
    # method clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16821	16982	
==>ucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    en <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16821	16982	
==>ucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callback
    en <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5737	5835	
==>uire ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5219	5317	
==>uire ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	972	1099	
==>assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) e <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	972	1099	
==>assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	846	938	
==>idator for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	846	938	
==>idator for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1132	1274	
==>r::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1132	1274	
==>r::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param ne $type {
                d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8507	8656	
==>turn } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

shouldn't matchfail st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8223	8368	
==>turn } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
shouldn't matchfail st <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28717	28813	
==>rness/blib
  t/base..............ok
  t/nonumbers.........ok
  t/ok................ok
  t/test-ha <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1335	1444	
==>[$_]" for ($0, @ARGV);
print "\n";
__END__
:endofperl
EOT

close $F;

# build the executable
chdir($t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7014	7171	
==>ode: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7002	7159	
==>ode: $code\n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$captur <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3316	3439	
==>tch/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	87	210	
==>tch/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8029	8241	
==>ymbol')
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5406	5507	
==>"   => \$welcome_p6,
  "initrd-gz=s"    => \$initrd_gz,
  "initrd-img=s"   => \$initrd_img,
  "initrd- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35527	35619	
==>respectively.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1437	1540	
==>s Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, tha <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1437	1540	
==>s Lazy::CoroList - takes a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, tha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4955	5085	
==>)                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4955	5085	
==>)                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_since <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17687	17787	
==>w(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17687	17787	
==>w(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2906	3072	
==>ey, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2906	3072	
==>ey, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	343	447	
==>er::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.spl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	343	447	
==>er::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.spl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	168	309	
==>roize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	168	309	
==>roize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15816	15917	
==>ional.  If the requested
resource has (or has not) been modified since the time specified in this fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15816	15917	
==>ional.  If the requested
resource has (or has not) been modified since the time specified in this fiel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14385	14497	
==>th a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14443	14555	
==>th a '#' character appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17800	17959	
==>tes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17800	17959	
==>tes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1360	1526	
==>ebug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = Fi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1360	1526	
==>ebug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = Fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3814	3988	
==>+= ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3814	3988	
==>+= ($response_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        retur <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	692	800	
==>] for sort @users;

print { $fh } <<'END';
</ul>
<p>
Or <a href="#" onclick="openNewWindows(); return false;" <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1611	1701	
==>----------------------------------------------
## informational methods

method is_root ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1611	1701	
==>----------------------------------------------
## informational methods

method is_root ret <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5095	5264	
==>{
                ok         => $pass,
                actual_ok  => $result{ok}
            };

            assert( defined( $details->{ok} ) && defined( $details->{actu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1989	2102	
==>ad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1989	2102	
==>ad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri ~~ m:P5/([^?]*)(?:\?(.*))?/;
    my Str $file  = $0 || <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12835	12931	
==>xpected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12893	12989	
==>xpected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14934	15030	
==>exp::Parser>
in the future.  Module names are merely the author's suggestions.

=over 4

=item Re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12733	12828	
==>ng functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12733	12828	
==>ng functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML entiti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20473	20571	
==>The rationale of this is that randoms strings are usally left alone by
compilers. After all the com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20473	20571	
==>The rationale of this is that randoms strings are usally left alone by
compilers. After all the com <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13452	13567	
==>o</span>,<br />
                <span class="tests_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17144	17237	
==>content_language

The natural language(s) of the intended audience for the message
content.  T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17144	17237	
==>content_language

The natural language(s) of the intended audience for the message
content.  T <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7606	7708	
==>::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
 multi Array::values (@array ; Match <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	291	383	
==>ift()->_meta_dir->subdir(shift() ) };
use constant SUBFILE_OF_META    => sub { shift()->_meta <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3274	3417	
==>data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3274	3417	
==>data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Con <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20510	20622	
==>$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6793	6885	
==>[C], {p5_metachar([C])}.
%# XXX - needs overhaul
p5_metachar("\\").
p5_metachar("\|").
p5_met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7256	7389	
==>return value from first Object singleton/class method');   

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6413	6524	
==>litstart
    $S0 = substr target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6272	6392	
==>t_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6272	6392	
==>t_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $messa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12930	13031	
==>enerally not
possible to tell which of the returned values belonged to which field.

=item $h.remove_c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12930	13031	
==>enerally not
possible to tell which of the returned values belonged to which field.

=item $h.remove_c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4089	4191	
==>> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4089	4191	
==>> LValue
class Perl::Compiler::PIL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7408	7516	
==>:POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7466	7574	
==>:POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23208	23310	
==>nnel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23208	23310	
==>nnel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	416	510	
==>sh(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	416	510	
==>sh(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6111	6221	
==>from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # So <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6111	6221	
==>from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # So <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21134	21227	
==>, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most promin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21134	21227	
==>, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fact, Rosetta's most promin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10102	10198	
==>nt can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10102	10198	
==>nt can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty()` <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	181	302	
==>(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	181	302	
==>(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4687	4793	
==>nds on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4937	5043	
==>nds on the C<ratchet> switch.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please joi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8287	8391	
==>hift;
    sprintf "\\%s{%s}", $self->{neg} ? 'P' : 'p', $self->type;
  }
}


{
  package Regexp::Parser:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2444	2604	
==>ear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2444	2604	
==>ear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	609	732	
==>of the match (also holds the
                  string that is being matched against).
    $.match     - State that is scope- <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	609	732	
==>of the match (also holds the
                  string that is being matched against).
    $.match     - State that is scope- <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17231	17357	
==>ntf ($fmt, *@args) is primitive is builtin is safe {
    my $flen = $fmt.chars;
    my $fi = 0;
    my $ai = 0;
    my $str = " <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13691	13810	
==>ics unchanged
val: generic($$) = { generic_in($$) }
# vals are assumed to know their own type (see package val above)
va <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1389	1491	
==>d/Pugs/Run.hi";
    #unlink "dist/build/Pugs/Run.o";
    #unlink "dist/build/src/Pugs/Run.hi";
    #unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28629	28729	
==>r is an C<anyof_close> node.

=item my $c = $obj->family()

The general family of this object.  These <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2528	2647	
==>ps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    metho <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2528	2647	
==>ps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18243	18350	
==>e', programs would have a harder time figuring out the
best way to deal with it.  But for displaying to user <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18243	18350	
==>e', programs would have a harder time figuring out the
best way to deal with it.  But for displaying to user <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10291	10429	
==>s{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10291	10429	
==>s{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5322	5474	
==>ure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to install i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5786	5938	
==>ure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor we don't need to install i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9086	9205	
==>s()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9086	9205	
==>s()            { $!chans.members }
  method user(Str $nick)       { %!users{normalize $nick} }
  method channel(Str $cha <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2586	2712	
==>( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2586	2712	
==>( $end ) { $end = Inf }

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && de <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2473	2583	
==>>{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMa <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1630	1731	
==>>{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMa <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	144	261	
==>orithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	144	261	
==>orithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5963	6083	
==>Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5963	6083	
==>Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14312	14445	
==>as a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14312	14445	
==>as a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any an <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22447	22587	
==>un => ide("length_and_first"),
			param => comb(
				fun => ide("listify"),
				param => val(10),
			),
		),
	),
);

my $length_and_first_gen <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22785	22917	
==>un => ide("length_and_first"),
					param => comb(
						fun => ide("listify"),
						param => val(10),
					),
				),
			),

			para <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1745	1877	
==>=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; print STDERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oop <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1373	1552	
==>bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            ta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1373	1552	
==>bytes) {
    gather {
        for @bytes {
            take $_ +& 0xff000000 +> 24;
            take $_ +& 0x00ff0000 +> 16;
            take $_ +& 0x0000ff00 +>  8;
            ta <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	269	375	
==>s Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	269	375	
==>s Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32977	33072	
==>rned Relation contains only tuples that are in
exactly one of the source Relations.  This method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37527	37622	
==>rned Relation contains only tuples that are in
exactly one of the source Relations.  This method <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2228	2336	
==>self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2228	2336	
==>self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns Bool {
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7902	8007	
==>").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7902	8007	
==>").";
    }

    my @chans = %users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21274	21383	
==>ould come up with keys which are unique across all Perl packages
(perhaps the key name can start with the pack <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21274	21383	
==>ould come up with keys which are unique across all Perl packages
(perhaps the key name can start with the pack <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1208	1308	
==>$.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chun <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1208	1308	
==>$.remote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chun <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8524	8656	
==>b"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(88 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8524	8656	
==>b"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(88 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1482	1617	
==>e($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1482	1617	
==>e($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6822	6976	
==>, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6822	6976	
==>, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9511	9615	
==>::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9511	9615	
==>::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_create_tb_person );

    # Define a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2163	2299	
==>s: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{pack <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3528	3656	
==>s: lines and objectified dependencies
                ### for better diagnostics
                die "Dependency '$depends->{pack <==
2	/Users/nnunley/pugs/util/importgraph.pl	263	364	
==>d;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOption <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	786	921	
==>);
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	806	934	
==>);
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19622	19723	
==>to that compiler. The end of an inner block
effectively acts as a C<no> statement for any compile sect <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19622	19723	
==>to that compiler. The end of an inner block
effectively acts as a C<no> statement for any compile sect <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7162	7352	
==>, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        ne <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7626	7816	
==>, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        ne <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	702	798	
==>cking library (basically a set of simple
# macros) to make writing this kind of application easy( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28005	28126	
==>(t($list_plus_ten), "list int → list int", ":t map (\\x -> 10 + x)");

dies_ok { t($flatten_polymorphic) } "can't type  <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1059	1155	
==>::Bottom;

	use base qw/Blondie::TypeSafe::Type/;
	sub type { $_[0] }

	package Blondie::TypeSafe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9967	10136	
==>>{exp2}{signature} ) . '' . 
                    ' (' . _emit( $n->{exp1} ) . ')' . 
                    " {\n" . 
                        # _emit_parameter_binding( $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3999	4105	
==>regularExpression;
}


sub parse_ws_lit {
  my ($matchObj) = @_;
  $target = $matchObj->target();
  $positi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	529	664	
==>OMATED_TESTING} and ! $ENV{PERL_MM_USE_DEFAULT} ) {
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prom <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3171	3272	
==>n signature";
    $options{returns} = 'type' if !(exists $options{returns});
    bless { %options } => <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6685	6813	
==>ue must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6685	6813	
==>ue must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15837	15939	
==>n>
}
rule RelationalExpressionNoIn :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpres <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	523	640	
==>mber is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1381	1498	
==>mber is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22319	22415	
==>on class is pure and deterministic, such that all of its class
and object methods will each retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26871	26967	
==>on class is pure and deterministic, such that all of its class
and object methods will each retur <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1143	1298	
==>f ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterd <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1143	1298	
==>f ( $string ~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterd <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23521	23612	
==>Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23521	23612	
==>Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rose <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1064	1196	
==>ayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1064	1196	
==>ayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1178	1273	
==>abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS

=head2 Base ADTs

All <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26108	26200	
==>,
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8668	8780	
==>t contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8668	8780	
==>t contains {$set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5156	5297	
==>=> chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5156	5297	
==>=> chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922),
    "Lambda"   => chr(923),
    "Mu"       => <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6681	6775	
==>_target.p6`;
my $m = match($Perl_prog,$source);

$Data::Dumper::Indent=1;
#print Dumper $m;
pri <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1042	1181	
==>t;
    }

    sub DESTROY {
        my $self = shift;
        delete $DIGEST_CACHE{overload::StrVal($self)};
    }

    sub compute_digest { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2546	2687	
==>ext::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2546	2687	
==>ext::Message.new(
                msg_key => 'ROS_S_TODO_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	774	883	
==>alse unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	774	883	
==>alse unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
}
method start_is_closed () re <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	887	981	
==><irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for m <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	887	981	
==><irc.freenode.net>, C<#perl6>).

Please read the Pugs Apocrypha in the F<docs/> directory for m <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13725	13858	
==>le($syndir     , "$syn.html");
        my $synpod  = catfile($syn_src_dir, "$syn.pod" );
        unless ( -f $synpod ) {
            i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1633	1739	
==>t of its
children.

=item Map

A map is like a hash - it has keys and values.

C<Env> is a map - it contain <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3093	3224	
==>rees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3093	3224	
==>rees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12479	12588	
==>_as_num(${$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5_num } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23230	23338	
==>ng your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9956	10145	
==>@_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11433	11622	
==>@_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5912	6027	
==>ate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5970	6085	
==>ate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw T <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	957	1088	
==>recurse_resolve( list_dependencies( $dep ) );
    }
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    my @l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1356	1539	
==>> 1 } );
            last if ( $m );
            #}
            
            # XXX temporary hack - matching options in 'expected' order should fix this
            if ( $match =~ /^</ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1765	1860	
==>rs::macif(%?CONFIG{'int_width'} == 64,'subset int of int64 where { true }');

Helpers::macif(%?C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10785	10944	
==>ck        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10785	10944	
==>ck        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	542	654	
==>('type')) && 
         (blessed($value) && $value->isa('type')))
            || confess "Keys must be strings, an <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11571	11672	
==>hooks are not package-specific.

Design:

  The comp hook sub should return a subref, which gets writt <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16713	16816	
==>at expects an int and will emit an int
# add (int -> int -> int) is resolved using val(10) into int -> i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13843	13937	
==>(%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%.*s...) not recognized

=item <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13028	13127	
==>($t_of_param->free_vars) {
		return $prev_generic + Set::Object->new($t_of_param);
	} else {
		retur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9294	9422	
==>~ /\A\"/;
        push(@kv,"$k => ".$v2);
    }
    my $kv = join(",",@kv);
    "bless({$kv} , \"$n\")";
}

package PIL::PIL1CPer <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3171	3269	
==>, 'VNum'  , 'value' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'Val', 'VList' , 'value' <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	526	640	
==>lf = shift;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub admin {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5487	5586	
==>ons in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5487	5586	
==>ons in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any meth <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	944	1041	
==>*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	944	1041	
==>*privlib:\s+(\S+)/m);
    my ($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5534	5644	
==>te')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5534	5644	
==>te')         }

# The retry_after field is dual format (can also be a expressed as
# number of seconds from now <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3961	4053	
==>ulti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=he <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3961	4053	
==>ulti sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=he <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	225	341	
==>being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    .. <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	225	341	
==>being set
    #multi sub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    .. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	737	849	
==>um { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1327	1439	
==>um { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# meth <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33921	34021	
==>ion that has the same heading and
whose body contains all of the tuples that are in the invocant Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38471	38571	
==>ion that has the same heading and
whose body contains all of the tuples that are in the invocant Rela <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	887	999	
==>circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	82	193	
==>BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	82	193	
==>BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2157	2271	
==>use base 'Blondie::Node::Unit';

    package Blondie::Seq;
    use base 'Blondie::Node::List';

    package Blondie <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15	125	
==>:Run::OnPerl5::X1::Api;
use strict;
use vars qw($VERSION @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18744	18857	
==>data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20102	20215	
==>data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $tr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9163	9259	
==>char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete(" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9163	9259	
==>char.kv -> $key, $value {
    %char_to_entity{$value} = '&'~$key~';';
}

%char_to_entity.delete(" <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1659	1761	
==>g.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is c <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1659	1761	
==>g.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair is c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31692	31821	
==>$e = shift;
                    $e->create('$temp' => $e->get('$counter'));
                    $e->set('$counter' => $e->get('$co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23728	23814	
==>eplace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- !.
replace_at_n_if_undef <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22795	22910	
==>tive syntax here :)
    unbox($self).class
}

(method class ((opaque $self:)) returns opaque 
    ($self: class))

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9972	10122	
==>m_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9972	10122	
==>m_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15715	15824	
==>= $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10571	10680	
==>= $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) an <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5063	5193	
==>TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4327	4448	
==>TestBuilder->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	942	1080	
==>aptures where in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	942	1080	
==>aptures where in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13559	13665	
==>)/s;
	local $ENV{PATH} =
	    join $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin or !((stat$_)[2]&00 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14785	14892	
==>ll.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14785	14892	
==>ll.

A Node object has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Documen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	437	540	
==>note: S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	529	630	
==>note: S06 - 'chain' can't be mixed with other types in the same level
my %rule_templates = (
    prefi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8789	8889	
==>= $self->can_run($ghc_pkg) || $self->can_run('ghc-pkg');

        # This above fails under cygwin wit <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18467	18598	
==>ocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18467	18598	
==>ocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9036	9131	
==>r::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2861	2956	
==>r::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8101	8241	
==>$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8113	8253	
==>$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1810	1940	
==>rns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1810	1940	
==>rns Str is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	952	1070	
==>ocument_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SC <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	952	1070	
==>ocument_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SC <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9079	9175	
==>ese methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9079	9175	
==>ese methods may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `sta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1155	1252	
==>ine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1155	1252	
==>ine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERSION

This d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13666	13844	
==>erson );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13666	13844	
==>erson );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1186	1288	
==>length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_reques <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1186	1288	
==>length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_request }

method parse_reques <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9781	9918	
==>t} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( exists $n->{exp2}{pointy_block} ) {
            return  " " . $n->{op1}{s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17042	17147	
==>ta;
}
sub set_meta { # will hopefully remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "${ROOT} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4597	4708	
==>_app = $rapp->fmap(sub {
			my $node = shift;
			return $node unless $i++; # skip the thunk

			my $expected = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	442	555	
==>}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	442	555	
==>}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
sub bool  {  ${${$_[0]}->{bool}} }
sub ha <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10352	10443	
==>print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11087	11178	
==>print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5722	5824	
==>elf->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5801	5903	
==>elf->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->fo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5433	5554	
==>f;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5433	5554	
==>f;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3767	3938	
==>ix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_version(  $path );
    
                    for my $te <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	825	934	
==>ess "body must be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = closure <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4091	4345	
==>key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4091	4345	
==>key};
    }
} # module Locale::KeyedText::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	837	969	
==>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# Fr <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	837	969	
==>?
        <trait>*
        <block>
}

# Pointy subs

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# Fr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	510	611	
==>lan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	568	669	
==>lan (Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8976	9071	
==>tements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to othe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8976	9071	
==>tements, you should never refer directly to "Rosetta::Model" in
your code; instead refer to othe <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	588	705	
==>elf->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1250	1367	
==>elf->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10091	10196	
==>"Creating directories " . join(", ", map { "$_" } @dirs),
    ensure => sub { -d $_ or return for @dirs; 1 <==
2	/Users/nnunley/pugs/util/package-osx.pl	5628	5725	
==>ocal/man/man3/Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        / <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	49	130	
==>al/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Module::Install::I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8360	8481	
==>$node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8071	8186	
==>$node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8641	8740	
==>};
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2466	2565	
==>};
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15560	15686	
==>to (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15560	15686	
==>to (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3864	3991	
==>$1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4057	4184	
==>$1 ] ) : () ),
    }
};
*{'grammar1::newline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9217	9315	
==>rn a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9217	9315	
==>rn a logical value, whether the `start` or `end` values belong to the 
set ("closed") or not ("open <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	341	495	
==>thods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	331	474	
==>thods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39847	39942	
==>lic License (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39847	39942	
==>lic License (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>); either <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1560	1662	
==>w
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some highe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1560	1662	
==>w
	({ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some highe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2815	2922	
==>es the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2815	2922	
==>es the list of
parameters.

=item C<$q.params()>

Returns the names of all the parameters as a list.  The or <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2111	2225	
==>path to bin directory from where script was invoked
    $Script      - basename of script from which perl was invok <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2111	2225	
==>path to bin directory from where script was invoked
    $Script      - basename of script from which perl was invok <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	723	839	
==>Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((? <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	723	839	
==>Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	84	190	
==>rnings;

use base 'type';

our $NIL = bless \(my $var) => __PACKAGE__;
sub new { $NIL }

# conversion to na <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24667	24750	
==>ers(E0,[Flag|M],E1) :- set_flag(E0,Flag,Ex), set_modifiers(Ex,M,E1).
set_modifiers(E <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	767	876	
==>=head1 SYNOPSIS

    use Blondie::Backend::Foo; # is-a Blondie::Runtime

    my $compiled = Blondie::Backend:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19660	19756	
==>block
effectively acts as a C<no> statement for any compile sections in
that block. C<use> statem <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19660	19756	
==>block
effectively acts as a C<no> statement for any compile sections in
that block. C<use> statem <==
2	/Users/nnunley/pugs/util/fixauthors.pl	643	750	
==>ml);
  my $realname = $tree->look_down(class=>"t1");

  return "" unless $realname;
  return $realname->as_t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1878	1979	
==>rce => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing synopsis, <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1878	1979	
==>rce => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative but utterly confusing synopsis, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6288	6399	
==>,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'x <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6288	6399	
==>,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'x <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3186	3347	
==>$tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3186	3347	
==>$tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!set_width($tree);                         
        $tree.fix_depth( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3062	3174	
==>('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args] <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3062	3174	
==>('code')),
                    map { ./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1810	1979	
==>S_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1810	1979	
==>S_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12976	13093	
==>or *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12976	13093	
==>or *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	71	190	
==>ngs;

use Blondie::Nodes;

sub symbols {
    (
		map { stub($_, '$x', '$y') }
        '&infix:<==>',
        '&infix:<<= <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2439	2545	
==>t content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2439	2545	
==>t content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3317	3426	
==>e($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3317	3426	
==>e($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname ircnam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1041	1153	
==>ule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1041	1153	
==>ule->compile(q(" .
	$body . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implement <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3808	3908	
==>:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3808	3908	
==>:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) ret <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	779	875	
==>*

unbound private attributes, which are actually just accessor methods
as well.

=back

Note tha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	596	742	
==>ute C3
        /;
    
    sub new { bless \(my $var) => shift }
    
    sub parse {
        my ($self, $source) = @_;
        my $sexpr = Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8771	8862	
==>osetta::Model" package serves only as the name-sake
representative for this whole file, whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8771	8862	
==>osetta::Model" package serves only as the name-sake
representative for this whole file, whic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1888	1993	
==>r () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1888	1993	
==>r () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!header($field, $val, " <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4245	4342	
==>nd == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4245	4342	
==>nd == Inf
}

method start () returns Object { return $.span.start }

method set_start ($self: $sta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36793	36883	
==>binary relational operator that is like
C<union> except that the returned Relation::Example <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37293	37383	
==>binary relational operator that is like
C<union> except that the returned Relation::Example <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4868	4968	
==>e the (pseudo) methods for Config::Tiny objects. These
methods can be called with the following synta <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4868	4968	
==>e the (pseudo) methods for Config::Tiny objects. These
methods can be called with the following synta <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1550	1665	
==>, 1, chars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9078	9176	
==>ght 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) ret <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9078	9176	
==>ght 
# discrepencies which might arise when 
# you remove a sub-tree
method fix_height ($self:) ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18469	18567	
==>code($code);
}
sub p6_wrap_code_with_package {
    my($code,$pkg)=@_;
    "package ${ROOT}::$pkg; $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1998	2098	
==>e p5)],
	$datatype => Perl6::Run::OnPerl5::X1::Result->new($data,"",0),
    }, $cls;
}
sub _stages {@ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6389	6512	
==>> chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6389	6512	
==>> chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1710	1813	
==>e rules, you should
#  create a new grammar, inherit from this one, and redefine just those
#  rules.  S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4349	4438	
==>h_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4599	4688	
==>h_against)

Instance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17031	17176	
==>cat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17310	17455	
==>cat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5288	5384	
==>code is inlined into the executable, to be
"eval"ed when pugs starts.  After the executable is re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	416	499	
==>,
L<JIB::Package::Binary>, L<JIB::Package::Installed>, L<JIB::Package::Source>,
L<JI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14882	15021	
==>ULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14882	15021	
==>ULT',
                msg_vars => { 'FIRST' => $first, 'SECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9330	9426	
==>oes not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9330	9426	
==>oes not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4129	4276	
==>( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4117	4264	
==>( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7507	7648	
==>$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7495	7636	
==>$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17031	17126	
==>guage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17031	17126	
==>guage(s) of choice.  Assuming the main
application is written in Perl, it is this "Rosetta" file <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5895	6007	
==>-
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5895	6007	
==>-
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || di <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14248	14350	
==>and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<j <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14248	14350	
==>and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<j <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22683	22780	
==>ntains all possibly useful details, so
that each Template can optionally use them; but often a tem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22683	22780	
==>ntains all possibly useful details, so
that each Template can optionally use them; but often a tem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7067	7203	
==>ex) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7067	7203	
==>ex) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	466	562	
==>fig{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' execut <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2370	2498	
==>ang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # su <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5520	5623	
==>ead1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<l <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5520	5623	
==>ead1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<l <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	973	1079	
==>sts $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	940	1046	
==>sts $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	628	728	
==>the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes" });

# this code is a hashref fro <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	688	797	
==>s(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	688	797	
==>s(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_closed
    * set_en <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3388	3519	
==>ll thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugra <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3388	3519	
==>ll thorn, Icelandic
    "uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugra <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11994	12101	
==>the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in the recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11994	12101	
==>the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in the recurrence <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5518	5770	
==>w 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7280	7532	
==>w 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e get ("$label"))))))) 
                                     })) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1727	1843	
==>' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shi <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2043	2141	
==>ckage name.  (For example, if 
a function in C<Some::Module> called C<note> without providing any t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2043	2141	
==>ckage name.  (For example, if 
a function in C<Some::Module> called C<note> without providing any t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13481	13611	
==>ile.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13481	13611	
==>ile.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14916	15011	
==>ENIENCE METHODS

The most frequently used headers can also be accessed through the
following con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14916	15011	
==>ENIENCE METHODS

The most frequently used headers can also be accessed through the
following con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1184	1302	
==>tory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # tak <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1184	1302	
==>tory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # tak <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5744	5846	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5823	5925	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1210	1315	
==>of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1210	1315	
==>of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Example version 0.724.0.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5925	6045	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5613	5733	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19145	19275	
==>nless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19424	19554	
==>nless $match;
        my $capture_block = sub { return { macro =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::D <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7484	7627	
==>alize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7484	7627	
==>alize($curnick)) {
        $!chans.clear;
        debug "Was killed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{norma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35819	35916	
==>ment and combines it with the
invocant relation into a new Relation, such that all common attribut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40369	40466	
==>ment and combines it with the
invocant relation into a new Relation, such that all common attribut <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6867	6965	
==>_meta($cls);
    return $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	906	1030	
==>o store metadata
$Metactrl       = $Meta . '/control';               # dir to store control MD
$Available      = $Meta . '/av <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	288	402	
==>e {
    # XXX return $str but newline("\n")
    if substr($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7216	7329	
==>t 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7228	7341	
==>t 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub e <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1661	1753	
==>ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1661	1753	
==>ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10125	10248	
==>complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10125	10248	
==>complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3661	3778	
==>nite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for " <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3661	3778	
==>nite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is intended mostly for " <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1564	1658	
==>ec->catfile($path, "arch");
    $self->makemaker_args->{INST_SCRIPT} =
      File::Spec->catfil <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10063	10178	
==>arget, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr target, pos, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30252	30349	
==>ich will be substituted at run-time before the text
is shown to the user.

Each Template module id <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30252	30349	
==>ich will be substituted at run-time before the text
is shown to the user.

Each Template module id <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3657	3792	
==>ef = ref($x);
    if(!$ref) {
	return 'str' if !((~$x & $x) eq 0);
	return 'int' if int($x) == $x;
	return 'num';
    }
    return lc($r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	488	594	
==>eturn '$::_EXCL_' if $s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    re <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9645	9776	
==>ounting \"$initrd_img\"",
    ensure => sub { `mount` =~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please moun <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	105	207	
==>all types

# conversion to native
sub to_native;

# conversion to other native types
sub to_num;
sub to <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6338	6465	
==>(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "ems <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6338	6465	
==>(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "ems <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1792	1886	
==>me the installation process described in README.

--------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1632	1726	
==>me the installation process described in README.

--------------------------------------------- <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7105	7421	
==>,
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7162	7478	
==>,
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Artistic <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1162	1279	
==>method BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1162	1279	
==>method BUILD () {
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit : <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29881	29976	
==>>.  The new Relation::Example has all
of the tuples of the original (or rather, the correspondin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16761	16864	
==>er_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural join <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20238	20341	
==>er_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural join <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16505	16625	
==>$pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12926	13046	
==>$pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	439	566	
==>ex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	536	663	
==>ex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	37	139	
==>e 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	37	139	
==>e 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use strict;
use warnings;
no <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1578	1808	
==>ex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    } <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1578	1808	
==>ex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	876	983	
==>f linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersecte <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	876	983	
==>f linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersecte <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8346	8502	
==>}( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8346	8502	
==>}( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1980	2091	
==>.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1980	2091	
==>.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	108	217	
==>ar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	108	217	
==>ar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	140	237	
==>l');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	140	237	
==>l');

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	802	929	
==>(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	802	929	
==>(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	345	455	
==>bs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subi <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	345	455	
==>bs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6868	6955	
==>d('another_singleton_test_on_object' => sub { 
   '&Object::another_singleton_test_on_ob <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	821	919	
==>til @:events[0] =:= the
  # callback we enqueue().
  method post (POE::Session $session, Str $event <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19007	19113	
==>istence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19007	19113	
==>istence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3823	4077	
==>elation

###########################################################################
###########################################################################
=x

class Relation-0.1.0 {

    # External packages used by the Relation class, that do export <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	45	174	
==>umpFile];
use Data::Dumper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    proto <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4606	4732	
==>p:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4606	4732	
==>p:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18125	18266	
==>die "Insufficient arguments to sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        given $specifie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3595	3714	
==>$op, $x, $y ) = @_;
    my @x = ($x);
    @x = @{$x->{list}} if exists $x->{list} && $x->{op1} eq $op;
    return { o <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1521	1644	
==>ead1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1521	1644	
==>ead1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7848	7945	
==>----- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7581	7675	
==>----- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13854	13970	
==>($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13854	13970	
==>($connected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3528	3644	
==>.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifying the compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3403	3514	
==>.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifying the compi <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1898	2010	
==>= int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_floor (Num $x) {
	my Int $t = int($x <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16727	16840	
==>enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16727	16840	
==>enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11610	11729	
==>[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11604	11723	
==>[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub constant {
    call_constant( @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2876	2997	
==>n NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2876	2997	
==>n NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18556	18770	
==>>do_while(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_not_nil;
                    })
                );
                return $ni <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7566	7665	
==>splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a refere <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7566	7665	
==>splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a refere <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	16	113	
==>iny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/rep <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	16	113	
==>iny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/rep <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23373	23473	
==>| <FormalParameterList> <','> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <Sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7436	7582	
==>P;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for (1..$n) {
        print STDOUT "not ok $test # TODO & SKIP: $why\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7547	7690	
==>T "not ok $test # TODO & SKIP: $why\n";
        $test++;
    }
    local $^W = 0;
    last TODO;
}

sub eq_array {
    my ($ra, $rb) = @_;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8415	8564	
==>ms => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8415	8564	
==>ms => sub { $ret.elems },
        )
    }

    method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2550	2656	
==>n ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Statu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2550	2656	
==>n ($status_line, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Statu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12407	12508	
==>he original Perl_ funcs if it is not present.

Risks:

  Trying to properly do (non-leaking) memory ma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10610	10712	
==>*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10610	10712	
==>*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method enc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9191	9302	
==>ode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9191	9302	
==>ode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypt <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17463	17594	
==>n the first character of the string.


=item capitalize

 multi Str::capitalize (  Str $string              --> Str )
 multi Str::ca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24130	24232	
==>", "pretty print a -> b where b = int");
}
{
	my $a = type::variable::free->new;
	my $type = type::oper <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3981	4104	
==>'"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam"
        dbg "# keys: ",%pad.keys;
        $ret = em <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12068	12308	
==>> 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12068	12308	
==>> 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9292	9383	
==>al($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9292	9383	
==>al($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($set2)> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13421	13527	
==>=~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13421	13527	
==>=~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10486	10640	
==>::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10765	10919	
==>::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21296	21393	
==>abases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to it s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21296	21393	
==>abases, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to it s <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6199	6318	
==>=> Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param->new('$n') <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2255	2356	
==>ine
9th line
10th line
11th line
12th line
GROK

my $file21 = <<'GROK';
1st line
2nd line
3rd line
4th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	740	863	
==>sg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.insi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	740	863	
==>sg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.insi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2832	3071	
==>se {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2832	3071	
==>se {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	577	679	
==>s a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	577	679	
==>s a method in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6225	6316	
==>:opaque_instance_attrs($Role)->{'@:roles'} = [ $Role ];
$Role->resolve(); # Role can resolve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7191	7331	
==>( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7191	7331	
==>( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3135	3258	
==>{
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3135	3258	
==>{
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2358	2764	
==>setta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2358	2764	
==>setta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12660	12792	
==>(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12660	12792	
==>(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1552	1678	
==>ed_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @f <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1552	1678	
==>ed_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @f <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1968	2082	
==>use the test number for reference, which will
    # blow up in our faces when tests are inserted.
    # It is bette <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22203	22308	
==>e> <CaseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <CaseClauses> <C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2950	3070	
==>ction( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2950	3070	
==>ction( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method c <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1606	1700	
==>iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1606	1700	
==>iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11338	11460	
==>t to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11338	11460	
==>t to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6653	6760	
==>atch actually contain getters for $() and such

### getters need to know what you want (str, bool, hash, arr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6429	6535	
==>atch actually contain getters for $() and such
### getters need to know what you want (str, bool, hash, arr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44810	45050	
==>ift;
                        $e->get('$method')->is_nil;
                    })
                );
                return $nil::NIL;                                          
            }
        )
    )
);

## ----------------------------- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7192	7294	
==>arrot_path/parrot" };

my @modfiles;
step
  descr  => "Searching for module files",
  ensure => sub { @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	717	844	
==>r $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	717	844	
==>r $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!he <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23979	24073	
==>Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AU <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23979	24073	
==>Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

=head1 AU <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7102	7209	
==>}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7102	7209	
==>}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18221	18388	
==>s, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14642	14809	
==>s, $rhs);
        }
      }
    }

    return if &SIZE_ONLY;
    return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16798	16897	
==>T/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16798	16897	
==>T/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	178	315	
==>compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	178	315	
==>compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3035	3143	
==>tion><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Synta <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3035	3143	
==>tion><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that' }; # Add a section - Synta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1622	1726	
==>me) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbol <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2270	2374	
==>me) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be symbol <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	517	627	
==>...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	517	627	
==>...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a even <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13210	13395	
==>REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7890	7996	
==>ile handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7890	7996	
==>ile handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Pe <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15755	15864	
==>ctify_text;

        tie my %sup_links, 'Tie::RefHash';
        foreach my $link (reverse @{ $index->{$syn} }) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1632	1801	
==>) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1632	1801	
==>) ) {
            $self.remove($item);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20685	20796	
==>})[0];

	    # Update the argument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11842	11960	
==>are exactly the same.

This method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11842	11960	
==>are exactly the same.

This method tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `nex <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3451	3558	
==>nt );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3451	3558	
==>nt );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2278	2373	
==>ammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2367	2462	
==>ammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2453	2567	
==>n NOT be modified at runtime

    # update: this is ok, because we can use <$var><$var> instead

    

    return r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2371	2482	
==>n NOT be modified at runtime
    # update: this is ok, because we can use <$var><$var> instead
    
    return r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2527	2624	
==>art_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2527	2624	
==>art_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7223	7312	
==>ammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1048	1137	
==>ammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22881	22986	
==>=head2 Compared to Other Solutions

One of the main distinctions of this approach over similar packages is <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22881	22986	
==>=head2 Compared to Other Solutions

One of the main distinctions of this approach over similar packages is <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11362	11456	
==>>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11362	11456	
==>>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item  <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	934	1086	
==>exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	811	933	
==>exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13580	13686	
==>>RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family eq "flags";

    # quantifiers must NOT follow qua <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6090	6195	
==>am needs Linux to run correctly.",
  ensure => sub { $^O eq "linux" };

step
  descr  => "Fetching GRUB fr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3522	3690	
==>er_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3522	3690	
==>er_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	459	558	
==>ly override things they didn't intend to.

# Determine which stack frame points to the code we are f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	459	558	
==>ly override things they didn't intend to.

# Determine which stack frame points to the code we are f <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3704	3835	
==>ds
                  # '.p6' to the original name

HELP
}

while(my $arg = shift @ARGV){
    if($arg eq '-e'){
        $src = shift( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2311	2399	
==>educe($node->struct_equiv);
	(ref $node)->new(%$node, struct_equiv => $reduced_struct);
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	986	1091	
==>:Compiler::Rule->compile(q(<'rule'> <rule_name> <mod>* <block>
    {
        my $body = substr($<block>, 1 <==
2	/Users/nnunley/pugs/util/testgraph.pl	64	162	
==>YAML::Syck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Mod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2373	2463	
==>OGNITION_FLAG)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8796	8981	
==>e assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8796	8981	
==>e assertion not implemented";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12300	12416	
==>/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12300	12416	
==>/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4527	4623	
==>?$_[0]:die "bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Und <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15676	15788	
==>ile;
    $runperl_args->{stderr} = 1;

    open TEST, ">$tmpfile" or die "Cannot open $tmpfile: $!";

    # VMS a <==
2	/Users/nnunley/pugs/util/run-smoke.pl	292	391	
==>+;
}

die <<"EOF" if $failed;

You don't seem to have the required modules installed.
Please install <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1484	1603	
==>h($extracted2) > 1;
    return Pugs::Runtime::Match->new( { 
        bool  => 1, # ( $extracted ne '' ),
        match = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	711	799	
==>Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	711	799	
==>Range If-Unmodified-Since
 Max-Forwards Proxy-Authorization Range Referer TE User-Agent
> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17150	17252	
==>t_language

The natural language(s) of the intended audience for the message
content.  The value is one <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17150	17252	
==>t_language

The natural language(s) of the intended audience for the message
content.  The value is one <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5161	5290	
==>eturns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5383	5512	
==>eturns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8383	8503	
==>ither add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If however you are cre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8383	8503	
==>ither add a child
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If however you are cre <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4579	4684	
==>) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operations ------ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4579	4684	
==>) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operations ------ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2930	3027	
==>her) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_diffe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2930	3027	
==>her) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_diffe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	19	131	
==>::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Def <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	19	131	
==>::Caesar - Simple modular-addition cipher

=head1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Def <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3861	4026	
==>to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4325	4490	
==>to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2592	2712	
==>code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2592	2712	
==>code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14880	14986	
==>y reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14880	14986	
==>y reliable,
portable, and efficient way.  This "Rosetta" file is the core of the
Rosetta framework and defi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11468	11584	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11747	11863	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { rule_decl =>  match:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	240	419	
==>:optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	240	419	
==>:optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23701	23798	
==>in-RAM
storage implementation for the Relation library.

I<TODO: REWRITE THE FOLLOWING.>

A relati <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1564	1725	
==>);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1564	1725	
==>);
            $rv++;
        } else {
            $self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    $!members = any();
}

method clone <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3566	3698	
==>submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3566	3698	
==>submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	482	572	
==>heir <tt>~/public_html</tt> directory:
</p>
<ul>
END

my @dir = glob "/home/*/public_html/* <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1649	1792	
==>ct>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1649	1792	
==>ct>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.span = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7575	7691	
==>$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7575	7691	
==>$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3924	4036	
==>mmar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4141	4253	
==>mmar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in progr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8427	8545	
==>b, 0, "PGE::Exp::Closure")
    pos = mfrom
    len = 0
  init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26495	26583	
==>guage::Prolog::Yaswi qw(:query :interactive :load :assert :context :run);
#$Language::Pro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10049	10151	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Valu <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10049	10151	
==>erl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Valu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3148	3271	
==>++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3148	3271	
==>++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1248	1380	
==>ript )
          unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1248	1380	
==>ript )
          unless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10100	10238	
==>? <\@$grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17268	17380	
==>ge tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is writte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17268	17380	
==>ge tags as defined by RFC
1766.  Eg. "no" for some kind of Norwegian and "en-US" for English the
way it is writte <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22566	22740	
==>amelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "fo <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	879	970	
==>abs/Force/NewTab
setting.)
</p>
<p>
To update this listing, run <tt>perl gen.pl</tt> in <tt> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33047	33147	
==>res an ordered list of one or more elements where
each element is a Template module Set Name.  When w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33047	33147	
==>res an ordered list of one or more elements where
each element is a Template module Set Name.  When w <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	521	620	
==>::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.te <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	521	620	
==>::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $.te <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6654	6758	
==>cks of text which seem to still be inside a list?

Basically the item body, much like this text is.

- ho <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6654	6758	
==>cks of text which seem to still be inside a list?

Basically the item body, much like this text is.

- ho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2758	2856	
==>ionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2758	2856	
==>ionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	21	135	
==>:Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	21	135	
==>:Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values -> $value i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	819	939	
==>ting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER:: <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	819	939	
==>ting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3196	3399	
==>g.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            wh <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3196	3399	
==>g.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            wh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15967	16066	
==>_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in the Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15967	16066	
==>_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, that
lives in the Doc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16388	16540	
==>);

  sub new {
    my ($class, $rx, $nparen, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'open <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5404	5534	
==>n::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5404	5534	
==>n::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    $cmp = $span.start_i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	135	257	
==>::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Bl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	208	330	
==>::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Bl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10417	10564	
==>classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10417	10564	
==>classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13588	13683	
==>is most useful when writing modules and you
find there is some language feature missing, or core <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13646	13741	
==>is most useful when writing modules and you
find there is some language feature missing, or core <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23478	23572	
==>se documentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23478	23572	
==>se documentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L<Rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	523	644	
==>=~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	523	644	
==>=~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15853	16017	
==>'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16132	16296	
==>'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9178	9309	
==>."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9166	9297	
==>."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4576	4675	
==>et ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operatio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4576	4675	
==>et ) {
    return $self.intersection( $set.complement );
}

# --------- arithmetic and list operatio <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2658	2785	
==>l_fields/;

    my $all_definitions = join ",\n\t", map {
        my $name = $_;
        my $value = $config->{$name};
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23014	23111	
==>rce code to Perl's regex compiler does the
same thing.)

=item nparen

The number of OPENs (captur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2439	2547	
==>vent we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2439	2547	
==>vent we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.ser <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36709	36808	
==>d using the Translator object's Set and Member properties; if none
could be matched, this method ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36709	36808	
==>d using the Translator object's Set and Member properties; if none
could be matched, this method ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8596	8722	
==>$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8596	8722	
==>$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5501	5616	
==>rom => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### move. Which mean <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36948	37041	
==>user_text_string = $translator.translate_message( $message );

=back

The Translator class als <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36948	37041	
==>user_text_string = $translator.translate_message( $message );

=back

The Translator class als <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14051	14153	
==>05-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14051	14153	
==>05-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_spa <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6494	6604	
==>ring (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes h <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6494	6604	
==>ring (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes h <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3673	3789	
==>ine, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test($line, \%resu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9567	9670	
==>&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9567	9670	
==>&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9860	9978	
==>ormalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9860	9978	
==>ormalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9512	9611	
==>) --> p56_char_class(R).
p5_charset_item(R) --> p5_simple_escape_sequence(R).
p5_charset_item(setran <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3374	3467	
==>))/g;
  s/\bTAILCALL\(([^,\)]+)\);/\@_=(Hacks->noop);goto $1;/g; #no
  s/\bTAILCALL\(([^,\)]+) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1019	1140	
==>, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1019	1140	
==>, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_slurpy = $db_param;
		next;
	    }
	    $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6458	6557	
==>t_member_combinations()} -> $module_name {
        # Determine if requested template module is alrea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6458	6557	
==>t_member_combinations()} -> $module_name {
        # Determine if requested template module is alrea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3643	3758	
==>ack SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23498	23612	
==>ed = sort {$a <=> $b} grep !$seen{$_}++, @failed;
    my $failed = @failed;
    my @result = ();
    my @canon = () <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15351	15435	
==>_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrite_list(L0,L1, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2488	2572	
==><lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2488	2572	
==><lt>perl6-compiler-subscribe@perl.orgE<gt>>. It is archived at
L<http://www.nntp.perl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2747	2857	
==>~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2747	2857	
==>~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_case{$f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1952	2095	
==>&repeatedly_apply_and_accum' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            P <==
2	/Users/nnunley/pugs/util/package-osx.pl	631	743	
==>sr/local/bin/pdb
        /usr/local/bin/pdump
        /usr/local/include/parrot
        /usr/local/lib/libreadlin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8233	8366	
==>up"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(87 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8233	8366	
==>up"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "cong"     => chr(87 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6060	6161	
==>goto end unless $operator;

  found_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $topcat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1346	1438	
==>ess $self, "Blondie::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use ba <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6365	6483	
==>my $author = $1 || $2;
        $author =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->author($author) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8979	9091	
==>n => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8979	9091	
==>n => $span1 ) if $span0.is_empty;
    return $self.new( span => $span0 ) if $span1.is_empty;
    my @union = $spa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1853	1958	
==>working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1853	1958	
==>working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocalypses, Exegeses, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21965	22068	
==>.  A zero-attribute Relation with zero tuples or
one tuple respectively have a special meaning in relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26517	26620	
==>.  A zero-attribute Relation with zero tuples or
one tuple respectively have a special meaning in relati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4518	4665	
==>igspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4658	4805	
==>igspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	99	232	
==>pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ER <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	99	232	
==>pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ER <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	581	669	
==>------------------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# --- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	604	692	
==>-------------------
# Author: Yung-chung Lin (xern@cpan.org)
# -------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8237	8346	
==>nknown whether this is working because the language
    # spec says it is supposed to, or whether is due a flu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8237	8346	
==>nknown whether this is working because the language
    # spec says it is supposed to, or whether is due a flu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2329	2444	
==>odo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2387	2502	
==>odo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	881	1000	
==>xpr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	881	1000	
==>xpr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	39	149	
==>contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	39	149	
==>contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	88	209	
==>Unit;

	sub new {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1503	1608	
==>hmark:\n";
Benchmark::cmpthese(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1274	1386	
==>ects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1274	1386	
==>ects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	875	1012	
==>llowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	875	1012	
==>llowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4	108	
==>le Prelude-0.0.1;

use v6;


=kwid

There are a couple of things going on here.

* These are perl6 implem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1365	1498	
==>s $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1365	1498	
==>s $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3733	3896	
==>t,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3733	3896	
==>t,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5157	5303	
==>NT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5157	5303	
==>NT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	35	122	
==>- lib/Module/Install/Can.pm"
package Module::Install::Can;
use Module::Install::Base; @I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23184	23282	
==>ally distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27736	27834	
==>ally distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17156	17311	
==>my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17156	17311	
==>my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick}",
        "_{$nick}_", "__{$ni <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	211	316	
==>M::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=h <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	211	316	
==>M::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2348	2508	
==>"for '$path'" unless $avail{ $depends->{package} };
                }

                ### write the data into the available list
                ### XXX temp fi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1548	1684	
==>e superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' cla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1753	1889	
==>e superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' cla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1606	1726	
==>chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\- <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1606	1726	
==>chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6569	6662	
==>e)

$Object->add_singleton_method('singleton_test_on_object' => sub { 
    '&Object::singleton <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4133	4250	
==>apture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4005	4120	
==>apture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6094	6212	
==>x+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6094	6212	
==>x+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17449	17551	
==>es of Locale::KeyedText in use, see the /examples
directory of this distribution.  Or, see my dependent <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17449	17551	
==>es of Locale::KeyedText in use, see the /examples
directory of this distribution.  Or, see my dependent <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	831	935	
==>diate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1037	1141	
==>diate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6239	6371	
==>sif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6239	6371	
==>sif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2336	2500	
==>y %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2336	2500	
==>y %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        def <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	810	924	
==>str( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	810	924	
==>str( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	933	1034	
==>t - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	933	1034	
==>t - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Span.pm <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7823	7926	
==>averse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7823	7926	
==>averse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_order?) return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4126	4241	
==>py, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4126	4241	
==>py, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6816	6985	
==>ata using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6816	6985	
==>ata using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $array; 
        Perl6::Value::List.new(
                csta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41009	41104	
==>over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provide <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41009	41104	
==>over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provide <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11550	11674	
==>ess $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11550	11674	
==>ess $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1547	1687	
==>~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1547	1687	
==>~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_stri <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1177	1312	
==>imiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1177	1312	
==>imiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimiter must be a semi-colon or ampersand";
    } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20528	20632	
==>y left alone by
compilers. After all the compilers have finished, the digest lines will
be expanded again <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20528	20632	
==>y left alone by
compilers. After all the compilers have finished, the digest lines will
be expanded again <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	123	226	
==>ION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

# determine if the user needs nmake, and downloa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13447	13563	
==>f $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isrange goto addra <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37336	37430	
==>nion> except that the returned Relation::Example contains only tuples that are in
all of the so <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4388	4483	
==>6+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4388	4483	
==>6+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8147	8257	
==>mplate_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8147	8257	
==>mplate_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1782	1896	
==>:Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1922	2036	
==>:Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1593	1726	
==>n ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1593	1726	
==>n ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "n <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1040	1153	
==>DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infin <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1040	1153	
==>DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateTime::Infin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6241	6367	
==>nction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $contex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6299	6425	
==>nction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $contex <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11153	11264	
==>w;
		
		type::operator::arrow->new(
			type::operator::pair->new( $a, $b ),
			$b,
		);
	},
	# int -> int -> boo <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6492	6594	
==>string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some bas <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6492	6594	
==>string (@tokens)";
    %events<end_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12697	12810	
==>if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6172	6285	
==>if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14618	14722	
==>.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14618	14722	
==>.0, before => 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1180	1275	
==>s (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1180	1275	
==>s (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::rel2abs( $_path <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18368	18462	
==>To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18368	18462	
==>To read data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	440	562	
==>ch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itsel <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	440	562	
==>ch},
        @mm_args,
    );
    fix_makefile();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itsel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14723	14816	
==>&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14723	14816	
==>&I<entname>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5050	5171	
==>get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5272	5393	
==>get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18637	18735	
==>ew_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18637	18735	
==>ew_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will au <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	445	607	
==>',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        3 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	445	607	
==>',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See Other',
        3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2659	2767	
==>$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2647	2755	
==>$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_[0], $_[1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6330	6481	
==>d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5838	5989	
==>d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $fi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2881	2986	
==>ar, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2881	2986	
==>ar, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7287	7395	
==>est ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CAL <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7345	7453	
==>est ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CAL <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5072	5218	
==>); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( I <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5072	5218	
==>); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5164	5290	
==>ng );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8641	8767	
==>ng );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!body.values.ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10281	10405	
==>nnels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10281	10405	
==>nnels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method login() {
    return unless $.conn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6810	6939	
==>capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7003	7132	
==>capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	786	959	
==>ent> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	786	959	
==>ent> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# state <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12393	12487	
==>C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12393	12487	
==>C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 E<gt>= $set2 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38629	38733	
==>d' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given variable name will be rep <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38629	38733	
==>d' }" in %msg_vars, it will return "Hello World!".  All
occurances of any given variable name will be rep <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6010	6135	
==>%:private_methods') => hash->new(),
            attribute->new('%:attributes')      => hash->new(),
            attribute->new <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8784	8899	
==>sub can_reduce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blond <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	24	120	
==>CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALW <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	82	178	
==>CONSTANTS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALW <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26850	26947	
==>sets the "Message Variables" attribute if the corresponding argument is
provided (it defaults to e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26850	26947	
==>sets the "Message Variables" attribute if the corresponding argument is
provided (it defaults to e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1360	1465	
==>This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1360	1465	
==>This document describes Rosetta::Shell::L::en version 0.1.1.

=head1 SYNOPSIS

I<This documentation is pen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9138	9246	
==>thod return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return value');

$iFoo->add_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5540	5633	
==>thod return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method return value') <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15174	15276	
==>text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15174	15276	
==>text)  { ./:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20570	20724	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20849	21003	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23369	23498	
==>{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19790	19919	
==>{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< i <==
2	/Users/nnunley/pugs/t/packages/Test.pm	177	334	
==>ur package Our::Package {

    sub pkg { $?PACKAGE }

}

sub cant_see_pkg {
    return My::Package::pkg();
}

{
    sub my_pkg {
        return My::Package::p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6791	6887	
==>,"\n";

__END__
my $m = match($Perl_prog,<<'END'); print Dumper $m; print $m->describe;
token whi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17384	17503	
==>fference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20861	20980	
==>fference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	216	316	
==>rt secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar imp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	216	316	
==>rt secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar imp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22816	22937	
==>se
    goto setpad
  words:
    mname = ":s"
    goto setpad
  ignorecase:
    mname = ":i"
  setpad:
    $P0 = pad[mname] <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	521	633	
==>new {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $$o->{'val_string'} = $arg <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	51	144	
==>terpreter;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping/;

use strict;
use wa <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	309	450	
==>ss flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	309	450	
==>ss flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	958	1092	
==>ame) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	958	1092	
==>ame) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3779	4004	
==>( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16800	16932	
==>1);
      TAILCALL(&$cn,$c);
    };

    my $v;
    { local $X::current_match = $m1;
      local $X::cap = [];
      $v = $f->($rest) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12302	12409	
==>b}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for identifying what sort <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5133	5259	
==>t is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'fil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5133	5259	
==>t is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_identity' => {
            'fil <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	29	136	
==>=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	29	136	
==>=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	645	786	
==>nt "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	656	797	
==>nt "parsing subrule $code\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13489	13586	
==>n the %entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unter <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13489	13586	
==>n the %entity_to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unter <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16084	16206	
==>g => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16084	16206	
==>g => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueu <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	193	320	
==>l::Base);

$VERSION = '0.04';

use strict 'vars';
use vars qw($VERSION);

sub Meta { shift }

my @scalar_keys = qw<
    name mod <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10	126	
==>se Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span clas <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10	126	
==>se Set::Symbols;  # unicode operators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span clas <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9724	9821	
==>( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9724	9821	
==>( $object )` / `intersection( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15405	15540	
==>trol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15405	15540	
==>trol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	233	372	
==>'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	233	372	
==>'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	232	346	
==>ssed';

use base 'type';

sub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env->isa('closure::en <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14967	15053	
==>,rewr(0),_). 

re_rewrite(plus(cap(plus(R))),R1,RW0,RW1) :-
  re_rewrite(cap(plus(R)),R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8692	8822	
==>);
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8688	8818	
==>);
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Du <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6808	6933	
==>ar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6808	6933	
==>ar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21661	21771	
==>mes, and all
Relation tuples may be individually addressed only by their values; neither
may be addressed by an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26213	26323	
==>mes, and all
Relation tuples may be individually addressed only by their values; neither
may be addressed by an <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9520	9628	
==>ernative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= D <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9520	9628	
==>ernative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.difference( 0 );

= D <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	158	265	
==>se File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_arg <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	158	265	
==>se File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_arg <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	69	184	
==>ode &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaope <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	69	184	
==>ode &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaope <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13028	13130	
==>rd commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $objec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13028	13130	
==>rd commands (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $objec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1392	1493	
==>_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1392	1493	
==>_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7430	7540	
==>per::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7442	7552	
==>per::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actua <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4473	4592	
==>'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubNa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4473	4592	
==>'pParams' ,'[TParam]',
  'pLValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubNa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13593	13691	
==>st useful when writing modules and you
find there is some language feature missing, or core bug tha <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13651	13749	
==>st useful when writing modules and you
find there is some language feature missing, or core bug tha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1221	1357	
==>0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## Wh <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1221	1357	
==>0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## Wh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20150	20282	
==>e file, and adding a localization to a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20150	20282	
==>e file, and adding a localization to a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10224	10329	
==>ader( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10224	10329	
==>ader( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	240	346	
==>' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACK <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	240	346	
==>' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACK <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3850	3948	
==>eturn any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher AP <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3850	3948	
==>eturn any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher AP <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2046	2157	
==>TION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was inv <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2046	2157	
==>TION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was inv <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1281	1384	
==>ase );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1281	1384	
==>ase );
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	155	257	
==>is
# needed to be able to build Haskell based Perl6 extensions outside of
# the pugs tree.
#
use Config <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1302	1493	
==>oken|
            if token == '('
                new_arr = Array.new
                if !stack.empty?
                    stack[-1].push(new_arr)
                else
                    sube <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3785	3928	
==>] );
    }	
    elsif $tree[0] eq '"pExpr"' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2966	3114	
==>tead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2966	3114	
==>tead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @st <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6016	6122	
==>ting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6016	6122	
==>ting a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6455	6559	
==>tem C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6455	6559	
==>tem C<_cipher>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10194	10293	
==>NCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10252	10351	
==>NCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply the n <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2178	2286	
==>d not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2178	2286	
==>d not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method su <==
2	/Users/nnunley/pugs/util/version_h.pl	281	431	
==>UGS_SVN_REVISION (\d+)/ or next;
    $old_revision = $1;
    last;
  }
  close IN;
};

# We can't use SVN keyword expansion (like $Rev$), because
# tha <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15948	16079	
==>rget  = $link->{linkfile};
            my $heading = $link->{linkhead};
            my $source  = $link->{sourcepath};
            m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11676	11802	
==>ode->can("fmap")
        ? $node->fmap(sub { $self->reduce($_[0]) })
        : $node
}

package DynamicScopes;

sub find_dyn_sy <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	253	349	
==>et::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	253	349	
==>et::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5090	5222	
==>s_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5090	5222	
==>s_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1619	1737	
==>e::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1619	1737	
==>e::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3321	3472	
==>>{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quanti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3309	3460	
==>>{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quanti <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6309	6410	
==>->{instance}->left;
}

sub right {
	my $self = shift;
	$self->{instance}->right;
}

sub free_vars {
	m <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	85	199	
==>) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *in <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	85	199	
==>) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28057	28157	
==>ames of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32609	32709	
==>ames of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relatio <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	362	467	
==>% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	362	467	
==>% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3822	4021	
==>ponse_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method fre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3822	4021	
==>ponse_time - $request_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method fre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12999	13098	
==>method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12999	13098	
==>method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4960	5102	
==>rm_literal;
        }
        $matchObj->{value} = $initchar;
        $matchObj->{isnegated} = $isnegated;
        goto end;
      }
      else <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33166	33259	
==>sion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37716	37809	
==>sion (Relation *@others) returns Relation>

This multi-method is the N-ary version of the afor <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4758	4963	
==>s
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4758	4963	
==>s
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7873	8000	
==>$class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'prop', <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4337	4441	
==>the parameter stack, the
dynamic scope stack will be popped, then the Seq will finish, the Thunk will
fin <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5119	5220	
==>"kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kernel-local=s" => \$kernel_loc <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25352	25432	
==>,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2428	2530	
==>$code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2428	2530	
==>$code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEF <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1094	1279	
==>5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        pus <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1094	1279	
==>5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        pus <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	693	799	
==>asename::basename($script_file);
        $prompt = "Do you want to install '$script_name'";
        $prompt <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1715	1833	
==>a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1715	1833	
==>a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	797	927	
==>!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd() <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	764	894	
==>!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd() <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11590	11692	
==>that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11590	11692	
==>that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this recurrence i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2090	2387	
==>"$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use constant IS <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1460	1561	
==>count_param {
	my $self = shift;
	$self->{param_count_stack}[-1]++;
}

sub reduce_app {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	909	1157	
==>Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	909	1157	
==>Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2394	2548	
==>rammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2534	2688	
==>rammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15899	16020	
==>= $m0;
    TAILCALL(&$cn,$c);
  };

  my $v;
  { local $X::current_match = $m1;
    local $X::cap = [];
    $v = $ru->($re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12390	12523	
==>_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12669	12802	
==>_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9086	9214	
==>fields'}}) {
        my $v = $_[0]{$k};
	die "bug" if !defined $_[0];
	next if defined($v) && $v eq $_[0]; # where does this recu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5532	5672	
==>ram->new('$cond'),
            Param->new('$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	583	691	
==>opaque object 
# (very primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	960	1083	
==>_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	969	1092	
==>_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { \$pos $di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18369	18486	
==>oreover, these data structures are in exactly the right input
format for Node.new(), by which you can create an identi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18369	18486	
==>oreover, these data structures are in exactly the right input
format for Node.new(), by which you can create an identi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3505	3599	
==>code as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3505	3599	
==>code as possible, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19661	19757	
==>a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19661	19757	
==>a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This me <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16622	16706	
==>difiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) :- rm(Re1,F0,F1,B0,B1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	395	506	
==>the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify wi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	395	506	
==>the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - unify wi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1129	1233	
==>tore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor commo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1129	1233	
==>tore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refactor commo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3498	3656	
==><trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3498	3656	
==><trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <trait>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4145	4297	
==>e "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4145	4297	
==>e "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #ret <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	334	425	
==>an.p5 add grapes grapes");
}
system("perl naive_bayesian.p5 classify $test_file");

print((' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6412	6507	
==>Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Ru <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6412	6507	
==>Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Ru <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19886	19992	
==>le_noimp := &PIL2JS::Internals::use_jsan_module_imp;

sub PIL2JS::Internals::use_perl5_module_imp (*@whatev <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	573	671	
==>h C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	573	671	
==>h C<$p> at least C<$low>
times, and at most C<$high> times.  If C<$low> is not given, it
defaults t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7411	7511	
==>have an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7411	7511	
==>have an entire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4181	4294	
==>e {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4239	4352	
==>e {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6449	6569	
==>de(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sym__" . lc($sym);
}

sub reduce_seq {
	my $self = shift;
	my $node = $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	844	944	
==>eaders = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	844	944	
==>eaders = HTTP::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4301	4413	
==>tch objects.

=head2 %{}

When used as a hash reference, the match object returns named captures
as match objects <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4301	4413	
==>tch objects.

=head2 %{}

When used as a hash reference, the match object returns named captures
as match objects <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1624	1749	
==>older than template
    '$config_template'.  I will merge them in memory, but
    you may wish to check for new settings and e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2239	2335	
==>ype => [$from => $to],
				struct_equiv => Blondie::Val->new(
					Blondie::TypeSafe::Annotation- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2414	2523	
==>tations and 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVE <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2414	2523	
==>tations and 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1506	1678	
==>r $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1506	1678	
==>r $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in p <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1445	1567	
==>~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'i <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1445	1567	
==>~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10690	10778	
==>tring =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10690	10778	
==>tring =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $strin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	339	464	
==>n $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	339	464	
==>n $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3172	3344	
==>_,
    #        assoc => 'left',
    #        precedence => 'equal',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	396	515	
==>e();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	396	515	
==>e();
  my $pilfh = Pipe::open("./pil $optional_args $tempfilename", :r);
  my $pilresult = $pilfh.readline();
  $pilfh.c <==
2	/Users/nnunley/pugs/util/package-osx.pl	4615	4719	
==>/Perl6::Bible::S04.3pm
        /usr/local/man/man3/Perl6::Bible::S05.3pm
        /usr/local/man/man3/Perl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8355	8472	
==>=back



=head2 List

=over

=item grep

 multi Array::grep (@values ;      Code *&test   --> Lazy )
 multi Array::gre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2775	2937	
==>on => _('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? 'ok ' : 'not ok ';
            $ok    .= _('$.n <==
2	/Users/nnunley/pugs/util/grokprims.pl	2004	2134	
==>cial/ and $arity == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  prin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13124	13222	
==>I<Note that the "Locale::KeyedText" package serves only as the name-sake
representative for this wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13124	13222	
==>I<Note that the "Locale::KeyedText" package serves only as the name-sake
representative for this wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20783	20899	
==>{&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17204	17320	
==>{&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24298	24497	
==>.3
      <'%'> <HexDigit> <HexDigit>
}
rule uriAlpha {  # see 15.1.3
      <[a..zA..Z]>
}
rule uriMark {  # see 15.1.3
      <'-'>
    | <'_'>
    | <'.'>
    | <'!'>
    | <'~'>
    | <'*'>
    | <'\ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1085	1175	
==>l6::Internals::compile_pir($code)
        !! Perl6::Internals::compile_pir(".sub pugs_eval_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7092	7189	
==>a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This event i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7092	7189	
==>a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This event i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2259	2393	
==>$.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2259	2393	
==>$.set.is_infinite }
method start ()         returns Object { return $.set.start }
method end ()           returns Object { return $.set <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1273	1394	
==>of_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  $self->add_handler('\c' => sub {
    my ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13509	13651	
==>tr->new('P6opaque'))
                  })); 
                # create and init the object
                $e->create('$self' => $e->get('$class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2782	2881	
==>t, '... got the right class name');

is($p->get_x, 5, '... got the right x for p');
is($p->get_y, 6, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8074	8283	
==>s eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    un <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8538	8747	
==>s eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    un <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	196	306	
==>t "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print "nach a komm <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5206	5346	
==>ex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5206	5346	
==>ex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	429	549	
==>ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immedi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	635	755	
==>ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immedi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4466	4612	
==>{
    my $self = shift;
    $self->{neg} = shift if @_;
    $self->{neg};
  }

  sub ender {
    my $self = shift;
    [ 'anyof_close' ];
  }

  su <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8333	8448	
==>CK;
      regexp_setup(r,pat,nparens,exec_callback_sub);
    } else if(api == 14) {
      SV* expr_code;
      SV* e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	199	330	
==>tr $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	199	330	
==>tr $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n/ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12424	12635	
==>' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12424	12635	
==>' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1950	2049	
==>, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1950	2049	
==>, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1431	1532	
==>g->_available );
}

=head2 $file = $inst->files_list( $pkg_name )

=cut

sub files_list {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3248	3506	
==>not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3248	3506	
==>not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12464	12574	
==>n $S->object(prop => $name, 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5455	5555	
==>sts_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::procl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5513	5613	
==>sts_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::procl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	93	184	
==>------------------------------
## Mini Meta-Model with explicit EigenClasses
## ------------ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	116	207	
==>-------
## Mini Meta-Model with explicit EigenClasses
## ----------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8086	8330	
==>be->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys % <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8550	8794	
==>be->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys % <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36559	36660	
==>rameter $message and returns an equivalent human readable text message
string; this assumes that a Tem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36559	36660	
==>rameter $message and returns an equivalent human readable text message
string; this assumes that a Tem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4444	4568	
==>stuff>
         macro rxmetachar:<,> { ... }    # define a new metacharacter
         macro rxmodinternal:<x> { ... } # defin <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	360	467	
==>||= sub {};
  $args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4445	4548	
==>6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4292	4393	
==>6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1720	1845	
==>lement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1720	1845	
==>lement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8879	8985	
==>f..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8879	8985	
==>f..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	782	880	
==>erty - content.

The constructor for this class has a special shortcut syntax compared
to normal C< <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	782	880	
==>erty - content.

The constructor for this class has a special shortcut syntax compared
to normal C< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21050	21148	
==>tributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25602	25700	
==>tributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple ar <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	55	181	
==>q 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	55	181	
==>q 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3359	3450	
==>al $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.compleme <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3359	3450	
==>al $span ) returns Set::Infinite::Functional {
    return $self.intersection( $span.compleme <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	778	968	
==>lator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_pref <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	778	968	
==>lator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_pref <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2027	2125	
==>return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2027	2125	
==>return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2864	2971	
==>s::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2760	2863	
==>s::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19097	19273	
==>j_name isn't a '$class' it's a '$ref'";
                }
            } else {
                die <<WHOA;
WHOA! I tried to call ->isa on your object and got some weird error.
T <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16357	16449	
==>generic_in($.else) = { generic($.then) }
cond: generic($$) = { generic($.else) }

cond: type( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	95	543	
==>Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	95	543	
==>Encoding  Value Encoding  Value Encoding
#          0 A            17 R            34 i            51 z
#          1 B            18 S            35 j            52 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2343	2598	
==>tes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2343	2598	
==>tes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Com <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18134	18233	
==>-one relation and join all sources to it.
    my Relation::Example $r1 .= new( heading => set(), bod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1636	1738	
==>e hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1636	1738	
==>e hell out of Dodge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($cl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1547	1643	
==>> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
e <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1547	1643	
==>> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also the ASCII
e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9841	9946	
==>C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9841	9946	
==>C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5084	5242	
==>inting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Ut <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5084	5242	
==>inting??
#     # {
#     #     no strict 'refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Ut <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2451	2568	
==>" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2451	2568	
==>" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17940	18045	
==>chine readable"; any application receiving such a code can identify
it easily in its conditional logic, us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17940	18045	
==>chine readable"; any application receiving such a code can identify
it easily in its conditional logic, us <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3403	3557	
==>d2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $Obj;
        
        my $self = shift;
        $Ob <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	106	209	
==>$.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	106	209	
==>$.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $class.new( start => undef, e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3217	3305	
==>ethod does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$construct <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3217	3305	
==>ethod does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$construct <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2007	2125	
==>ss: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2007	2125	
==>ss: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    r <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	19	126	
==>0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	19	126	
==>0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	84	211	
==>f->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6115	6241	
==>my $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5224	5374	
==>ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submethod' 
                || $ast->{stmt} eq 'm <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11755	11860	
==>one wishs to take
advantage of the internal caching of keys that is expected to happen,
but wishes to comp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	757	873	
==>shift)->to_native() . '');
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25838	25932	
==>::variable::free->new);
	is($type->stringify, "∀α. list α", "pretty print list a");
}
{
	my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13913	14086	
==>gil
            return $n->{op1}{op} . " '$name' => ( $attr )";
    }

    if ( $n->{op1}{op} eq 'try' ) {
        #warn "try: ", Dumper( $n );
        #if ( exists $n- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6371	6471	
==>rt of the rule, which unsets the flag before returning.

- this can also be used to do fail() and ass <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6165	6264	
==>rt of the rule, which unsets the flag before returning.
- this can also be used to do fail() and ass <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3299	3404	
==>Server.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3299	3404	
==>Server.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

S <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1363	1472	
==>eturn;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    req <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1284	1389	
==>eturn;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	req <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8332	8455	
==>ject>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8332	8455	
==>ject>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5502	5684	
==>thod wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8979	9161	
==>thod wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1399	1569	
==>rue;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1399	1569	
==>rue;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4223	4317	
==>ion, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4223	4317	
==>ion, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3290	3399	
==>y $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTH <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3290	3399	
==>y $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTH <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	102	217	
==>sult> is the match state that is passed around.  It essentially
forms a linked list through the rule as it is execut <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	102	217	
==>sult> is the match state that is passed around.  It essentially
forms a linked list through the rule as it is execut <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6770	6892	
==>= split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key" <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6770	6892	
==>= split('=', $pair);
        $key = url_decode($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	853	982	
==>NOTE:
    # if you ask for something which is 
    # not there, then you need to get back
    # a nil value, not just undef
    re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1761	1869	
==>ckage() =~ $Package_re;
    }
}    

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inde <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24091	24189	
==>uage into the program code itself, so it then becomes a version of that
language.  By contrast, Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24091	24189	
==>uage into the program code itself, so it then becomes a version of that
language.  By contrast, Loc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	612	710	
==>xists $masked_ops{$prim->name}) ? undef : $prim;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blond <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12270	12368	
==>ive function that takes an object (or a reference
to an array of them) and does something to them ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1088	1187	
==>t returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stev <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1088	1187	
==>t returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15223	15320	
==>ent's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15223	15320	
==>ent's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Node <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10568	10682	
==>n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10568	10682	
==>n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6383	6475	
==>from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6383	6475	
==>from_nick>}<channels>.delete($chan)
          if %!users{normalize $event<from_nick>}<channel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	407	505	
==>_END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	407	505	
==>_END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	888	993	
==>ad1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	888	993	
==>ad1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IR <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20311	20457	
==>lated_dirs {
    my $dir_index = shift;
    # For all directory entries: while the entry only has one subdirectory and no files, collapse
    for m <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6240	6373	
==>in32' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        push @pkgs, -package => 'unix';
    }
    push @pkgs, -package = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33424	33519	
==>the returned Relation contains only tuples that are in
all of the source Relations.  This method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37974	38069	
==>the returned Relation contains only tuples that are in
all of the source Relations.  This method <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4839	4989	
==>caron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4839	4989	
==>caron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10515	10627	
==>self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10515	10627	
==>self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6684	6785	
==>defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLE <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6742	6843	
==>defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLE <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	508	632	
==>R (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	508	632	
==>R (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	311	559	
==>sed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	311	559	
==>sed by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17045	17179	
==>ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17324	17458	
==>ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3744	3998	
==>emplate module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3744	3998	
==>emplate module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7924	8018	
==>cess_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1749	1843	
==>cess_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	86	210	
==>mplate;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod B <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	86	210	
==>mplate;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1640	1744	
==>e containers.



the Body is just a structure with three node forms: Var

(variable lookup), App (applica <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1574	1675	
==>e containers.

the Body is just a structure with three node forms: Var
(variable lookup), App (applica <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	10	121	
==>terface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no eff <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	10	121	
==>terface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no eff <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1059	1188	
==>gram if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1264	1393	
==>gram if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11507	11622	
==>::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11873	11988	
==>::runtime_alternation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3302	3483	
==>o:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3766	3947	
==>o:\n";
            #print Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2188	2310	
==>b init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    r <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2188	2310	
==>b init_pugs {
    my $self = shift;
    my $pid = open2(\*OUT, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3581	3677	
==>you must first create an object of the appropriate 
class, passing the key, a mode (either "encip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3581	3677	
==>you must first create an object of the appropriate 
class, passing the key, a mode (either "encip <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3343	3478	
==>bel};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3343	3478	
==>bel};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14019	14146	
==>nh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14019	14146	
==>nh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	973	1083	
==>struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_access <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1637	1747	
==>struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_access <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4040	4148	
==>urns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newline, ($c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4040	4148	
==>urns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newline, ($c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2076	2210	
==>'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        assoc => <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23578	23682	
==>alue"}} })'
}
sub p6_loop_CODE {
    my($body)=@_;
    # the caller is responsible for providing any valu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3426	3521	
==>ect (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3426	3521	
==>ect (accessible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4435	4581	
==>( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4575	4721	
==>( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> "   . $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2957	3102	
==>{$id}{'op_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op reduce\n" if $debug;
          my $var = [@{$Z:: <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4554	4655	
==>0000000004\n" ],
      [ 'file12', $file12, "0000000012\n" ],
      [ 'file21', $file21, "0000000021\n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33285	33381	
==>rsection (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37835	37931	
==>rsection (Relation $other!) returns Relation>

This multi-method is a generic binary relational o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6257	6366	
==>an\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6257	6366	
==>an\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	915	1055	
==>ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	928	1059	
==>ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1793	1903	
==>d compatibility it should always be the 
value C<1>, the default for the C<:name> form.)  By convention, tags a <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1793	1903	
==>d compatibility it should always be the 
value C<1>, the default for the C<:name> form.)  By convention, tags a <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4957	5053	
==>lowing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4957	5053	
==>lowing syntax:

  $config<read>('config.ini');
  
where C<$config> is an 'instance' returned by t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10726	10847	
==>rgument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10726	10847	
==>rgument, and returns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40269	40367	
==>dText that you modify and distribute must carry
prominent notices stating that you changed the file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40269	40367	
==>dText that you modify and distribute must carry
prominent notices stating that you changed the file <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	879	1009	
==>path {
    my $self = shift;
    $self->{_top}{base};
}

sub is_extension_build {
    my $self = shift;
    not -e $self->base_path <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	907	1022	
==>if we have no more no-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        my $cand; # a ca <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9561	9678	
==>ke_qr_regexp_pair("a",1,sub{
  print STDERR "hi\n";
  my $ret = shift(@returns);
  return reverse(@$ret);
});
my(@a)=s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15731	15830	
==>mented to contain the new symbol introduced by the binding
# the body of the binding contains the en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15791	15906	
==>ror(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10647	10762	
==>ror(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9004	9115	
==>> $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9004	9115	
==>> $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2301	2404	
==>roper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2301	2404	
==>roper_subset($self: Set $other) returns Bool {
    return ($self.size < $other.size && $other.includes($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36314	36407	
==>bFre'].  This method is used
internally by translate_message() to produce the list of Template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36314	36407	
==>bFre'].  This method is used
internally by translate_message() to produce the list of Template <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2602	2741	
==>mber'      => $self->get_test_number(),
                    '$.reason'      =>  $reason,
                    '$.description' =>  $descriptio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3106	3226	
==>e AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3570	3690	
==>e AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35005	35098	
==>on.  This method
degenerates into an C<intersection> if the two source headings are
identical. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39555	39648	
==>on.  This method
degenerates into an C<intersection> if the two source headings are
identical. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9163	9277	
==>n = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_bod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9163	9277	
==>n = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_bod <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	311	424	
==>rs() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properl <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	311	424	
==>rs() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properl <==
2	/Users/nnunley/pugs/util/claim_drift.pl	936	1087	
==>)) };

    $clean->($orig);
    $clean->($real);

    print "rm $orig\n"                                    if $Conf{verbose};
    do { 1 == unlink  $or <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3182	3293	
==>ompiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stm <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3182	3293	
==>ompiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	559	674	
==>de of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	559	674	
==>de of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9008	9195	
==>$val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9008	9195	
==>$val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1605	1701	
==>piler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1605	1701	
==>piler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 T <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	518	622	
==>on test);
# %EXPORT_TAGS = ('all' => \@EXPORT_OK);

## Chapter 8 section 3.1

sub nothing($input) {
  ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6101	6204	
==>s does Role 
::opaque_instance_attrs($Class)->{'@:roles'} = [ $Role ];
$_resolve->($Class);

# Bootstrap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3310	3467	
==>:Match::Ratchet';
        return;
    }
}

sub perl5 {
    my $rx = qr(^($_[0]))s;
    no warnings qw( uninitialized );
    return sub {
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3720	3857	
==>1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3708	3845	
==>1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13609	13706	
==>riting modules and you
find there is some language feature missing, or core bug that needs to
be s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13667	13764	
==>riting modules and you
find there is some language feature missing, or core bug that needs to
be s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17078	17185	
==>on't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] spe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22178	22285	
==>on't know.
Possible danger?

  U32 *offsets;           /* offset annotations 20001228 MJD */

offsets[0] spe <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	187	293	
==>ags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $pa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	187	293	
==>ags);
}

sub note(*@msg is copy, *%tags is copy) is export {
	my $caller=caller;
	
	unless %tags {
		my $pa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4592	4709	
==>n2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.rec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4592	4709	
==>n2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.rec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6274	6379	
==>lse {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6274	6379	
==>lse {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $eve <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15263	15357	
==>itiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExpression>
    | <ShiftExpression> <' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9229	9350	
==>objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got depende <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10706	10827	
==>objectify properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got depende <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47314	47463	
==>'))->fetch($e->get('$label')));
                  }));
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_met <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1638	1735	
==>f: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1638	1735	
==>f: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6719	6821	
==>Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6731	6833	
==>Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $matc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45273	45382	
==>d('add_attribute', (symbol->new('$:name')      => attribute->new('$:name'      => 'str')));
$::Package->send(' <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3182	3288	
==>dge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null_term  { \< null \ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	765	869	
==>s!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that is usin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	765	869	
==>s!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides information about the remote user that is usin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6497	6616	
==>er("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, sec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6497	6616	
==>er("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, sec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21221	21314	
==>a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21221	21314	
==>a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12147	12276	
==>al => $val);
}

sub pads {
    my $self = shift;
    map { @$_ } reverse @{ $self->{scopes} };
}

sub enter_scope {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13113	13211	
==>ad2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13113	13211	
==>ad2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5416	5551	
==>{
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5416	5551	
==>{
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1948	2059	
==>this tool
     util/testgraph.pl     - Generates an HTML summary of a YAML test run
     util/run-smome.pl     - <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	25	126	
==>ub storage is rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly ) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9577	9685	
==>prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9577	9685	
==>prd_create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'perso <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	816	904	
==>::Exp::CCShortcut");
    $optable->addToken("term:\\D", "term:", "nows", "PGE::Exp::CCSho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7556	7677	
==>e($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7556	7677	
==>e($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8313	8434	
==>curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8313	8434	
==>curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<fr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3316	3428	
==>ent ~= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3316	3428	
==>ent ~= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.defined;
    
    @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8315	8414	
==>anned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8373	8472	
==>anned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13912	14027	
==>ut( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13912	14027	
==>ut( $hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10798	10945	
==>subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "int <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10798	10945	
==>subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "int <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4612	4747	
==>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5264	5399	
==>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, store => \$to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4701	4838	
==>nd;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4701	4838	
==>nd;
        $open_end    = $.end_is_open || $span.end_is_open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	809	932	
==>sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	809	932	
==>sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7310	7458	
==>] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7310	7458	
==>] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2909	3010	
==>erence($self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

metho <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2909	3010	
==>erence($self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15167	15268	
==>ded by third
parties) implement.  This interface is rigorously defined, such that there
should be no a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15167	15268	
==>ded by third
parties) implement.  This interface is rigorously defined, such that there
should be no a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	210	315	
==>* set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

sub <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	210	315	
==>* set_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

sub <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5055	5201	
==>vOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; pops_left--;
      }

      r->lastparen = SvO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	156	290	
==>n {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	156	290	
==>n {
    return '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - mat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7494	7593	
==>eached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reached.

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7494	7593	
==>eached.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reached.

=i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17563	17705	
==>ol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40832	40974	
==>ol->new('BUILDALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3294	3388	
==>rom S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi Array::shift ( - <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4913	5017	
==>rth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free softw <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4913	5017	
==>rth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free softw <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10518	10649	
==>>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10518	10649	
==>>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24095	24235	
==>l;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24374	24514	
==>l;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'te <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27515	27615	
==>s though STDOUT were
not a console.  You may need to set this if you don't want harness to
output mor <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	1	93	
==>line 1
package Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5371	5482	
==>of
    # the other data structures used by the Rosetta framework, as used by
    # the current process/applicati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5371	5482	
==>of
    # the other data structures used by the Rosetta framework, as used by
    # the current process/applicati <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1767	1897	
==>{ Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::Tr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1767	1897	
==>{ Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::Tr <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2262	2388	
==>rn Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2262	2388	
==>rn Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Bool::False;
}

method quarter () <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8930	9035	
==>ameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8930	9035	
==>ameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.new( s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4527	4636	
==>rint dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4310	4414	
==>rint dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flag <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1589	1708	
==>e_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1500	1601	
==>e_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3813	3912	
==>ee::insert_child ::= &Tree::insert_children;

## --------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3813	3912	
==>ee::insert_child ::= &Tree::insert_children;

## --------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1558	1676	
==>nto the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    me <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1558	1676	
==>nto the parser.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1958	2049	
==>?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1958	2049	
==>?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4116	4206	
==>_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantified_op(W, s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35859	36069	
==>sub {
                my $e = shift;                               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->store(
                      $e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5591	5698	
==>y $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5591	5698	
==>y $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self.remove_ch <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9792	9887	
==>$self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9792	9887	
==>$self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	221	335	
==>YAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	221	335	
==>YAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5589	5709	
==>fe   (rw!Array, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   saf <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11370	11501	
==>$::Class->send('add_method' => (
    # method label
        symbol->new('new'),
    # method body
        method->new(
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9347	9494	
==>et   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9347	9494	
==>et   = $set ⊂ $set2;  # or "<"
  my $is_superset        = $set ⊇ $set2;  # or ">="
  my $is_subset          = $set ⊆ $set2;  # or "<="

  # ot <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19628	19730	
==>e::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19628	19730	
==>e::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13347	13441	
==>ocument.new(), by which you can create an identical Document (with member
Nodes) to the one you <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13347	13441	
==>ocument.new(), by which you can create an identical Document (with member
Nodes) to the one you <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35842	35932	
==>mplicit handler when
coercing this object to a string.

=item C<get_set_member_combinations <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35842	35932	
==>mplicit handler when
coercing this object to a string.

=item C<get_set_member_combinations <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	321	443	
==>er of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	321	443	
==>er of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28916	29128	
==>mmar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29195	29407	
==>mmar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3568	3728	
==>elf->SUPER::new();
    
    
        for my $key ( keys %config ) {
            my $acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->mk <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21382	21476	
==>ssion>? <')'> <Statement>
    | <'for'> <'('> <LeftHandSideExpression> <'in'> <Expression> <')' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1993	2083	
==>--------------------------------------------------------------------------
## adding childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1993	2083	
==>--------------------------------------------------------------------------
## adding childr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15813	15977	
==>);
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15813	15977	
==>);
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5069	5198	
==>:KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Eng <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5069	5198	
==>:KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Eng <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6986	7091	
==>turn $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6986	7091	
==>turn $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :density($span0.dens <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7090	7453	
==>x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = B <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7090	7453	
==>x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = B <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	416	532	
==>ing:



    state - a "continuation" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	396	508	
==>ing:

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26577	26688	
==>bclasses)) push ($subclass)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('ad <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5187	5296	
==>.t if you change the fully
    # qualified name of longmess.
    multi sub longmess (; $e = '') returns Str is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32215	32337	
==>member for language B and displays that; and so on.

I<For the present, Locale::KeyedText expects its Template modules to c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32215	32337	
==>member for language B and displays that; and so on.

I<For the present, Locale::KeyedText expects its Template modules to c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11045	11160	
==>) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11195	11310	
==>) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	726	840	
==>*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functio <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	726	840	
==>*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	369	489	
==>st) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	369	489	
==>st) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Prox <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	406	524	
==>(
    +$status = '200 OK', 
    +$content_type = 'text/html', 
    +$charset, 
    +$location
) returns Str {
    # con <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1021	1141	
==>rns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1079	1199	
==>rns Bool is export {
    my $test := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3194	3324	
==>(dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #pri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3658	3788	
==>(dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n";
            #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1615	1898	
==>));
    }
    for ( qw(
          BEGIN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6071	6294	
==>ile( q!
                ### floating point
                \d+\.\d+ { return { num => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### long: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1636	1734	
==>ocate containers.



the Body is just a structure with three node forms: Var

(variable lookup), Ap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1570	1665	
==>ocate containers.

the Body is just a structure with three node forms: Var
(variable lookup), Ap <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	457	588	
==>rk we tried
        $tried++;
        install( $entry );
    }
    
    warn "No packaged found matching '$package'\n" unless $tried <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2298	2444	
==>in the alternatives collection
        my $href = LoadFile( $Altfile );

        ### this package didn't provide any alternatives
        last LINK <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10091	10189	
==>kage_name,$method_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg || '__PACKAGE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5142	5324	
==>word} ) {
                if ( $n->{param}{cpan_bareword} =~ /^v6-/ ) {
                    return " # use v6-pugs\n";
                }
            }
            #warn "call: ", <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11456	11555	
==>n this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Returns onl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11456	11555	
==>n this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

Returns onl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	10	114	
==>ugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	10	114	
==>ugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1450	1643	
==>_children(
                            Tree.new(:node<Num>).add_children(
                                Tree.new(:node<Rat>).add_children(
                                    Tree.new(:node<In <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	126	224	
==>ass: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	126	224	
==>ass: ) returns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5953	6055	
==>method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5953	6055	
==>method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ($sel <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2741	2878	
==>0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            @a[$i] = @a[$i-$size_chang <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1493	1610	
==>nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  sub op_cmp {
    my($o,$o1)=@_;
    $o->{'nprec'} <= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2194	2311	
==>infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2194	2311	
==>infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23469	23565	
==>ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23469	23565	
==>ALSO

These documentation files are included in the Rosetta distribution:
L<Rosetta::Language>, L <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	769	886	
==>);
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Sim <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	769	886	
==>);
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Sim <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1765	1943	
==>t :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw
                              ; So <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1524	1667	
==>t :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10539	10670	
==>eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10539	10670	
==>eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1820	1926	
==>iphertext version.  Most 
algorithms will have a key, which will be specified in the options; check your 
c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1820	1926	
==>iphertext version.  Most 
algorithms will have a key, which will be specified in the options; check your 
c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27695	27856	
==>)
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27974	28135	
==>)
       ,
         ruleop::constant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18140	18263	
==>(optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<ad <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18140	18263	
==>(optional, defaults to 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<ad <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7100	7314	
==>mments
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $fil <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1580	1681	
==>ad?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 multi  Num::log (  Num  $x <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37971	38099	
==>tains all of the tuples that are in the invocant Relation::Example but
that aren't in C<$other>.  This method will fail if C<$oth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17731	17831	
==>t originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17731	17831	
==>t originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2536	2702	
==>onstant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2558	2722	
==>op::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2569	2733	
==>op::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constant( '*?' ),
                        ruleop::constant( '+ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1007	1133	
==>em( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
        my $meta_dir = $Metactrl . "/$path";
        ### extra <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2237	2364	
==>off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2237	2364	
==>off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1797	1932	
==>ng classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $tmpl, \%hash ) 
                        or error( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11084	11208	
==>ool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11084	11208	
==>ool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8162	8263	
==>d by any text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verba <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8162	8263	
==>d by any text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verba <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8135	8238	
==>arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unk <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8135	8238	
==>arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unk <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30840	30944	
==>e name; it
must be the same for every module in the same set as the current one.  The
Member Name comes n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30840	30944	
==>e name; it
must be the same for every module in the same set as the current one.  The
Member Name comes n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7638	7757	
==>yOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7079	7193	
==>yOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19089	19218	
==>n one argument"), which is also the basis of the relational
data model proposed by Edgar. F. Codd, upon which anything in the worl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22739	22868	
==>n one
argument"), which is also the basis of the relational data model proposed
by Edgar. F. Codd, upon which anything in the worl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8815	8914	
==>DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($ty <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	807	931	
==>$a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self = shift;
		my $key = shift;

		exists $self->{$key} || $self->SUPER::can($key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6057	6170	
==>define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6057	6170	
==>define a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $gram <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1887	1980	
==>= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1887	1980	
==>= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  does Perl::Compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20032	20128	
==>header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20032	20128	
==>header value, it expects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4618	4733	
==>y[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_c <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5010	5125	
==>y[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6875	6978	
==>cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended to the return valu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6875	6978	
==>cipher needs to add at the beginning, before the 
ciphertext.  This will be prepended to the return valu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	974	1076	
==>f its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	974	1076	
==>f its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	234	395	
==>ypeSafe;

sub new {
	my $class = shift;

	bless {
		seen => undef,
	}, $class;
}

sub string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2109	2224	
==>et = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2109	2224	
==>et = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3274	3378	
==>type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! " <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3332	3436	
==>type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $desc !! " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	174	288	
==>mpiler::Regex;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pug <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2701	2799	
==>class, \&Point, '... got the right class name');
is($p->prototype->class, \&Object, '... got the ri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19026	19183	
==>op::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19305	19462	
==>op::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4027	4169	
==>nted: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4015	4157	
==>nted: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25531	25629	
==>= 0, the regmust search is never
 * wasted effort.  The regback variable says how many characters b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5557	5654	
==>{ ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./cur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5557	5654	
==>{ ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1100	1211	
==>ategory 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1100	1211	
==>ategory 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	0	97	
==>use v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array change <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	0	97	
==>use v6;

=for ChangeLog

2005-08-10
* New methods Array.flatten(), is_lazy()
  - Lazy Array change <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2056	2177	
==>{
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (wan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2056	2177	
==>{
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (wan <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8462	8561	
==>s interpolated for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8462	8561	
==>s interpolated for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	665	788	
==>ail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	665	788	
==>ail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3892	4008	
==>if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26724	26821	
==>l fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31276	31373	
==>l fail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1600	1694	
==>e>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1600	1694	
==>e>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	231	344	
==>tr %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package:

    'LKT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	231	344	
==>tr %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any package:

    'LKT_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4065	4184	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4258	4377	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19055	19155	
==>me>, and C<ircname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19055	19155	
==>me>, and C<ircname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2110	2340	
==>st arg $arg";
                            push @body => $statement
                        }
                        elsif ($statement =~ /^\-\>/) {
                            #warn "hello there";
                            $body <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1316	1477	
==>c => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKAGE__->add_rule( 
        name => '..',
        assoc => 'left',
        p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2728	2855	
==>$x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2728	2855	
==>$x + $.density if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3803	4000	
==>/gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknow <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3803	4000	
==>/gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknow <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10023	10142	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10023	10142	
==>die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$tex <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2062	2180	
==>ta;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2062	2180	
==>ta;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	216	472	
==>this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub g <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	216	472	
==>this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8782	8877	
==>n existing Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8782	8877	
==>n existing Recurrence object.

- `universal_set()`

Creates an object with a continuous span (-I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8074	8190	
==>'bool' field is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7803	7914	
==>'bool' field is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns no <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11899	12043	
==>?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod termi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11899	12043	
==>?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod termi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16290	16390	
==>ie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas < <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16348	16448	
==>ie@graystudios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3016	3156	
==>1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2900	3032	
==>1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5718	5829	
==>pile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] .. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5706	5817	
==>pile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] .. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6411	6512	
==>y $self = shift;
	$self->{instance}->free_vars;
}

package node;
# all AST nodes inherit from this

su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	751	884	
==>s.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	751	884	
==>s.pos == $pos.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8322	8459	
==>t { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8322	8459	
==>t { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21938	22038	
==>i)     ,C) :- !, \+(isAscii(C)).
class_member(class_pos(print)     ,C) :- !,    isPrint(C).
class_mem <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16467	16612	
==>2 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant * <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20893	21038	
==>2 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant * <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2750	2883	
==>>\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2750	2883	
==>>\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1948	2088	
==>TP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1948	2088	
==>TP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	569	687	
==>fined wantarray and !@_;
        $self->{values}{$key} = shift;
        return $self;
    };
}

foreach my $key (@tuple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2639	2779	
==>w prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## requi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2856	2996	
==>w prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## requi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3059	3173	
==>r
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3059	3173	
==>r
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4599	4699	
==>-1];
    goto missing_term if ((index $$top["opts"], "nullterm") < 1);
    ($operator, my $stringTemp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36710	36805	
==>es: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Family: assertio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12844	12943	
==>ence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12844	12943	
==>ence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Returns positive inf <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1551	1698	
==>int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1551	1698	
==>int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($item);
            $rv++;
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2312	2428	
==>infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2312	2428	
==>infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2470	2624	
==>port_test(
                $::TestBuilder->FETCH('::Test')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->ge <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8631	8725	
==>> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it' <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8631	8725	
==>> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2970	3107	
==>ar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2958	3095	
==>ar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18162	18269	
==>e that it should be
looking at.

This section describes the rather complex algorithm that
Module::Compile us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18162	18269	
==>e that it should be
looking at.

This section describes the rather complex algorithm that
Module::Compile us <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10688	10799	
==>:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10688	10799	
==>:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	742	847	
==>E to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	742	847	
==>E to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18489	18586	
==>esults by having a human being write out
that text themselves.

What Locale::KeyedText does is ass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18489	18586	
==>esults by having a human being write out
that text themselves.

What Locale::KeyedText does is ass <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	906	1016	
==>e a lazy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	906	1016	
==>e a lazy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "Set.p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3599	3713	
==>EGIN { BacktrackDev->import; };
use strict;

if($Regexp::Parser::VERSION <= 0.20) {
  eval <<'END';
    # Regexp::P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19409	19523	
==>$I0
    pad["reps"] = savereps
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    self[1] = exp1
    $I0 = pad[" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1439	1562	
==>6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infini <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1439	1562	
==>6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infini <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4712	4924	
==>ug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4712	4924	
==>ug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	202	298	
==>a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	235	331	
==>a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compile <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17076	17182	
==>setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17076	17182	
==>setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2290	2429	
==>OMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2290	2429	
==>OMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23192	23308	
==>::X1::Api::Exception);
package Perl6::Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    m <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3898	4006	
==>ring is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gat <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3898	4006	
==>ring is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	17	116	
==>ree-0.0.2;

## ----------------------------------------------------------------------------
## attri <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	17	116	
==>ree-0.0.2;

## ----------------------------------------------------------------------------
## attri <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8198	8309	
==>($_, 2), grep /^-l/, @_;
    #push @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4378	4575	
==>pp->new(
                    Sym->new('&infix:<==>'),
                    Sym->new('$y'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19629	19725	
==>omb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator::nullary->new("str")),
	), <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10219	10327	
==>the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERAT <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10219	10327	
==>the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite.

= ITERAT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2791	2919	
==>RSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2791	2919	
==>RSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a runtime check to see if the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5759	5865	
==>ontainer::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5759	5865	
==>ontainer::Array.from_list( @body );
}

method shift () {
    self._shift_n( 1 )[0]
}

method pop () {
    s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1002	1134	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1002	1134	
==>ed ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasyntax {
    my $grammar = shift;
    retur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1047	1167	
==>lock'))
        || confess "Condition must be a block";
    while ($condition->do()->to_bit == $bit::TRUE) {
        $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3902	4047	
==>per( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BEGIN/END
            return $n->{trai <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7368	7553	
==>nt_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7368	7553	
==>nt_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9292	9412	
==>$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Inden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	735	875	
==>pt{name} . '>" ,} }' );
}

BEGIN {
    __PACKAGE__->add_rule( 
        name => '*',
        assoc => 'left',
    );
    __PACKAGE__->add_rule <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6425	6512	
==>= $self->simplify_type(shift);

		Scalar::Util::blessed($type) and $type->isa("Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10634	10766	
==>s.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10634	10766	
==>s.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $p <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1923	2050	
==>ns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=hea <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1923	2050	
==>ns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10559	10682	
==>for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10559	10682	
==>for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	54	149	
==>IB::Meta;
use JIB::Config;
use JIB::Utils;
use JIB::Package;

use File::chdir;
use File::Basenam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9438	9564	
==>.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9438	9564	
==>.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implement.
met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1375	1498	
==>}

if (@ARGV and !caller) {
    # We are the main program here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compil <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1765	1934	
==>== -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1765	1934	
==>== -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14102	14252	
==>ar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14102	14252	
==>ar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my R <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15274	15375	
==>Y.

The C<$width> is the width of the "yada/blah.." string.

=cut

sub _mk_leader {
    my($te, $width <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2637	2739	
==>est.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2637	2739	
==>est.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOP <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10826	10936	
==>w_alt );
    }

    ### remove this package from the available list
    $self->remove_available( package => $in <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14758	14856	
==>eeds to be cloned (so it will stay generic when we leave the body of the function)
	if ($generic_va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2496	2634	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2689	2827	
==>)
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4299	4421	
==>TCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4299	4421	
==>TCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $content_type = $self.cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3493	3648	
==>next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3493	3648	
==>next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13830	13969	
==>e $?;
        push @bins, $script;
    }

    my $alt = JIB::Alternative->new_from_struct( struct => 
                    { bin => \@bins, a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14752	14885	
==>traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14752	14885	
==>traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> St <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12916	13029	
==>arlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12916	13029	
==>arlier only
characters in the Latin-1 range are replaced. Unrecognized
entities are left alone.

If multiple strin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	386	512	
==>invocations;

    method _head() { return map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	386	512	
==>invocations;

    method _head() { return map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12085	12185	
==>el::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
el <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12085	12185	
==>el::Document object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
el <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11831	11961	
==>y $handler = $as_bool_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $nan = 100**100**100 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35344	35440	
==><real> regex.  We need to convert C<A&B&C> to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20713	20828	
==>))))
     (while ($method is_not_nil) 
        ($method do ($self %params))
        (= $method (WALKMETH (&dispatche <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25356	25537	
==>= shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  # (??{ ... })
  pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25915	26075	
==>= shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1389	1487	
==>epth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1389	1487	
==>epth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($self: Tr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3784	3972	
==>for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4248	4436	
==>for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	209	315	
==>r;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	209	315	
==>r;
use Pugs::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pug <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3554	3660	
==>_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this versi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3554	3660	
==>_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this versi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21039	21159	
==>e->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43963	44083	
==>e->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8259	8366	
==>s not always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8259	8366	
==>s not always correct.
# If you create your tree in a top-down
# manner, this is usually not an issue
# since <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27131	27259	
==>aults it to False.

=back

This is the main Relation::Example constructor method:

=over

=item C<new (Set of Str :$heading?, Set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	227	352	
==>hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

sub capture {
    # pr <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3117	3247	
==>t;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3117	3247	
==>t;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $.sta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4714	4899	
==>: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4714	4899	
==>: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6651	6755	
==>is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6651	6755	
==>is reached.

=item I<end_document>

This event is fired when a '=cut' directive is reached.

=back

=head <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7359	7460	
==>ode by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7359	7460	
==>ode by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result
su <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	862	974	
==>';
    }
    return unless $self->prompt($prompt, ($default || 'n')) =~ /^[Yy]/;
    $self->install_script($scrip <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	614	709	
==>n Carp::longmess unless $node->can("digest");
    Blondie::Backend::Perl::Builtins->find($node-> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1433	1542	
==>tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1433	1542	
==>tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1886	2009	
==>ures = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) ) {
        # The user us <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23838	23957	
==>subroutines or export such.

The usual way that Relation::Example indicates a failure is to throw an exception;
most oft <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3110	3270	
==>y @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3110	3270	
==>y @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5903	6021	
==>s (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5699	5812	
==>s (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1115	1282	
==>ec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1320	1487	
==>ec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $pr <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	320	431	
==>args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an install. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16159	16254	
==>nternally, while another one displays it to the
user instead.

Locale::KeyedText provides a simp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16159	16254	
==>nternally, while another one displays it to the
user instead.

Locale::KeyedText provides a simp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4349	4455	
==>e: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	211	316	
==>rm::::", "term:", "nows", "PGE::Exp::Cut");
    $optable->addToken("term:\\b", "term:", "nows", "PGE::Exp: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26919	27024	
==>is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26919	27024	
==>is
provided (it defaults to empty if the argument is not provided).

Some example usage:

    my Locale::K <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23535	23637	
==>bution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundle <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23535	23637	
==>bution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16890	16986	
==>ts of their application in Rosetta D (as
either named modules or anonymous routines) and write th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16890	16986	
==>ts of their application in Rosetta D (as
either named modules or anonymous routines) and write th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16	127	
==>ake preface part of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Bui <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16	127	
==>ake preface part of parsed code, since it might contain `package`
#   statements or other scoping stuff.
# - Bui <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2353	2505	
==>',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2353	2505	
==>',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10814	10969	
==>urusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10814	10969	
==>urusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $ <==
2	/Users/nnunley/pugs/util/package-osx.pl	5385	5482	
==>local/man/man3/Perl6::FAQ::Capture.3
        /usr/local/man/man3/Perl6::FAQ::Capture.3pm
        / <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1916	2012	
==>g_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1916	2012	
==>g_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $va <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3154	3252	
==>s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://ha <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3154	3252	
==>s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from http://ha <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1823	1953	
==>ign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given f <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2360	2490	
==>ign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given f <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	723	825	
==>height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.heig <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	723	825	
==>height ($self: Tree $child) returns Void {
    my $child_height = $child.height();
    return if $.heig <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10410	10519	
==>fo->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$vars\n$chk\n";
    my $keys = joi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4742	4842	
==>etprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4742	4842	
==>etprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	127	225	
==>le->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	127	225	
==>le->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2906	3065	
==>.
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2906	3065	
==>.
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9791	9913	
==>loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9791	9913	
==>loaded_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	191	301	
==>erface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	397	507	
==>erface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    inte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	132	230	
==>able parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	132	230	
==>able parts 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2041	2151	
==>ine, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_se <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2041	2151	
==>ine, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_se <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1644	1747	
==>FACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1644	1747	
==>FACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9050	9156	
==>ver 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9050	9156	
==>ver 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHOR

stevan little, E<lt>stevan <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4654	4784	
==>'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4654	4784	
==>'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

node_h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14095	14194	
==>tta::Model::Node Class

A Node object is a simple container which stores data to be used or
displaye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14095	14194	
==>tta::Model::Node Class

A Node object is a simple container which stores data to be used or
displaye <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22469	22589	
==>e->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42258	42378	
==>e->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2873	3105	
==>ne\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2873	3105	
==>ne\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str  }
    );
    return \%ev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	388	594	
==>pr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	388	594	
==>pr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3729	3835	
==>x:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3729	3835	
==>x:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6367	6489	
==>TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6367	6489	
==>TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1546	1654	
==>an be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods re <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1546	1654	
==>an be used to create a Lazy Array.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15074	15177	
==>lf->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9273	9376	
==>lf->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15572	15676	
==>a warning if the new value would put the span 
in an invalid state, such as `start` bigger than `end` (th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15572	15676	
==>a warning if the new value would put the span 
in an invalid state, such as `start` bigger than `end` (th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1710	1821	
==>tch;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
bla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1770	1881	
==>tch;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $char_class ( qw( 
alpha
alnum
ascii
bla <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14393	14515	
==>00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14393	14515	
==>00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( s <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1465	1588	
==>$self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = File <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1432	1555	
==>$self->can_run('ftp')) { eval {
        # no Net::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = File <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5514	5616	
==>ck

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatco <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5514	5616	
==>ck

=head1 AUTHORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatco <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5449	5548	
==>d to open $index_file: $!";
my $template = HTML::Template->new(filename => 'util/catalog_tmpl/index. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17826	17946	
==>me point.  For example, Oracle
databases often have error codes in a format like 'ORA-03542'.  These codes
are "machine r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17826	17946	
==>me point.  For example, Oracle
databases often have error codes in a format like 'ORA-03542'.  These codes
are "machine r <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2538	2660	
==>{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shi <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2538	2660	
==>{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4251	4367	
==>1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.differen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4251	4367	
==>1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.differen <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2060	2157	
==>ber of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6:: <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2060	2157	
==>ber of unofficial AES at F<docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5563	5717	
==>&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5756	5910	
==>&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16301	16412	
==>se, it contains two spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Rec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16301	16412	
==>se, it contains two spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Rec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3215	3332	
==>^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9424	9521	
==>+'.$aname if $op{'isNamed'};
	push(@args,"name=>".$stringify->($aname));

	push(@args,"invocant=>1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3622	3725	
==>file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

T <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3622	3725	
==>file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5946	6055	
==>$value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5934	6043	
==>$value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8644	8829	
==>tersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12121	12306	
==>tersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $othe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17213	17332	
==>f the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexible place to allocate la <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22313	22432	
==>f the array.
Other than that, we can do anything we want with it.
This is perhaps the most flexible place to allocate la <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2686	2793	
==>copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2686	2793	
==>copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $ol <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10575	10673	
==>or Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10575	10673	
==>or Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1243	1368	
==>ee $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	454	578	
==>ee $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5: ",$p6->{perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8747	8909	
==>l};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'af <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8747	8909	
==>l};
        return { bool => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'af <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4649	4947	
==>rt ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cen <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4649	4947	
==>rt ) {
        my $size = Inf;
        $class.new(
                    cstart =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2407	2604	
==>re => $1,
                from  => $pos,
                to    => $pos+1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/;
            ret <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	903	1013	
==>ss' private
attributes.  This is "early" method binding.

=head1 NOTES

Perhaps this class should be called Met <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	276	409	
==>Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PRO <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	276	409	
==>Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my Str $script = $*PRO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5067	5223	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5260	5416	
==>> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrul <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4947	5113	
==>nd =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4947	5113	
==>nd =>    sub {},
                    celems =>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2953	3053	
==>name of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if availabl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2953	3053	
==>name of the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if availabl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3501	3608	
==>) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3501	3608	
==>) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $self!sorted_field_names.map: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	206	297	
==>e Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	206	297	
==>e Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::E <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	177	277	
==>od assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	177	277	
==>od assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4098	4219	
==>top_class $top_version\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3048	3156	
==>top_class $top_version\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3497	3606	
==>class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3681	3790	
==>class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15597	15692	
==>ashes,
which contain the mapping from all characters to the corresponding entities
(and vice ver <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15597	15692	
==>ashes,
which contain the mapping from all characters to the corresponding entities
(and vice ver <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2107	2208	
==>.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

= <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2107	2208	
==>.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it to a regex.

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13361	13466	
==>__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13361	13466	
==>__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12132	12279	
==>ore comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12132	12279	
==>ore comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lin <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	447	556	
==>= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(St <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	447	556	
==>= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4308	4444	
==>5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4308	4444	
==>5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	257	462	
==>t

BEGIN {
    __PACKAGE__->add_rule(
        "=begin" => q(
                #{ print "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                return { pod_block => $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2553	2649	
==>st::Harness::Iterator->new($test_output);
    return $self->_analyze_iterator($name, $it);
}


su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15287	15401	
==>e "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15287	15401	
==>e "WHO $target" },
    whois => -> Str $target  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5022	5144	
==>}
}

for my $c (qw(

              conv_self conv_array conv_hash conv_reference
              conv_foreach conv_package co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15849	15959	
==>eue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15849	15959	
==>eue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $channe <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4135	4274	
==>es{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{no_index} ) {
        push @{ $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3305	3429	
==>fter whitespace means block-start
                #print "checking { ... [$whitespace_before]\n";
                if ( $white <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50879	51014	
==>symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:version'))
                  ->to <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29517	29617	
==>out breaking its core usage.

Figure a way to report test names in the failure summary.

Rework the t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1058	1161	
==>efinitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1058	1161	
==>efinitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7081	7191	
==>$program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7093	7203	
==>$program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3265	3437	
==>_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3265	3437	
==>_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11264	11381	
==>ith_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11264	11381	
==>ith_msg( 'LKT_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_w <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2134	2253	
==>it rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:pe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2134	2253	
==>it rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:pe <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	610	750	
==>os {
    my $self = shift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	87	211	
==>t;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $name, $type <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	93	206	
==>t;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9027	9208	
==>ice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9027	9208	
==>ice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9896	10052	
==>state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9896	10052	
==>state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2169	2276	
==>( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2169	2276	
==>( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2895	3017	
==>->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3035	3157	
==>->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6385	6515	
==>t "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6373	6503	
==>t "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11808	12020	
==>s) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);

      if ($n =~ /\d/) {
        --&RxPOS;
        my $v = "";

        # outside of char class, \nnn might be backref
        if (!&SIZE_ON <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5529	5645	
==>);
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5529	5645	
==>);
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	135	232	
==>LATE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	135	232	
==>LATE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header fie <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29333	29469	
==>define FBMcf_TAIL_DOLLARM      2
 #define FBMcf_TAIL_Z            4
 #define FBMcf_TAIL_z            8
 #define FBMcf_TAIL              ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15791	15883	
==>utput that color-codes the elements of the regex
according to a style-sheet (syntax highlight <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7662	7766	
==>hannels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7662	7766	
==>hannels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5136	5303	
==>[ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created opera <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6142	6282	
==>new("\n"),
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	303	528	
==>program = $s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #print "program <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27539	27634	
==>ple has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation::Example has ze <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10187	10326	
==>t($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10187	10326	
==>t($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_au <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2217	2311	
==>ortions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encryp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2217	2311	
==>ortions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren't encryp <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25473	25569	
==>on-zero exit status, both C<$? E<gt>E<gt> 8>
and C<$?> are printed in a message similar to the ab <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	261	356	
==>an extension of the Mini-MetaModel which adds explicit Eigenclasses
## to all Classes created. S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10874	10979	
==>, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10932	11037	
==>, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4478	4607	
==>xpires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4478	4607	
==>xpires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9850	9982	
==>age that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2882	3014	
==>age that's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	196	299	
==>,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parro <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	349	452	
==>,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parro <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13952	14048	
==>($$) }

# combs combine the generic values from their children
comb: generic_in($.fun) = { generi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	802	910	
==>er::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	802	910	
==>er::Rule->compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16499	16600	
==>rom_whatever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () if @_ < <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2214	2309	
==>one = %token;
    $tokenClone{syncat} = PGE_OPTABLE_CLOSE;
    $self->operatorTable()->{$spacePr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2278	2449	
==>ookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2278	2449	
==>ookies; # should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1375	1509	
==>ile::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $ful <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1375	1509	
==>ile::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $ful <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8942	9042	
==>n r;
  }
}

void regexp_hook_on() {
  if(previous_comp_hook != NULL) { croak("Cant install twice"); } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	330	430	
==>turns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PAR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	330	430	
==>turns Void is export { %PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PAR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1656	1786	
==>nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1656	1786	
==>nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traf <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2257	2399	
==>rrfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hits;
}

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4364	4539	
==>d
            #     'ne' vs. ':negate'
            my $name = $ast->{op};
            if (   defined $name 
                && $name =~ /[[:alnum:]]$/ 
                && defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10950	11045	
==>, but it will not operate
differently.

The string representation is built by calling the visual <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8017	8120	
==>($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her fr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8017	8120	
==>($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody quit. Remove him/her fr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35649	35744	
==>mentioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic bi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40199	40294	
==>mentioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic bi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15126	15225	
==>irst argument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded st <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15126	15225	
==>irst argument, if
called in a void context.  In scalar and array contexts, the encoded or
decoded st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1657	1775	
==>>last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error("Pa <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17100	17209	
==><$_> --> Str )

Returns the input string after converting each character to it's uppercase
form, if lowercase. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32693	32799	
==>s the attribute when I<outside>
the class, and it's a good idea to do so I<inside> the class as well.

=hea <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	806	947	
==>l6::Run::OnPerl5::X1::BB::pugs,
    'w'         => \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludge:
    'yaml'       => \$as_yaml, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22878	22971	
==>arset_member(E0,C,[_|T]) :- charset_member(E0,C,T).

%---------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15785	15897	
==>$S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10641	10753	
==>$S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32131	32245	
==>essage.  If it finds one, then that is displayed; if not, it then checks
each set's member for language B and displ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32131	32245	
==>essage.  If it finds one, then that is displayed; if not, it then checks
each set's member for language B and displ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	348	486	
==>this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to various.
                  points earlier in the m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	348	486	
==>this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to various.
                  points earlier in the m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4497	4604	
==>todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4555	4662	
==>todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Code &code, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14730	14841	
==>dling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14788	14899	
==>dling capabilities need to be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5932	6037	
==>n("\n\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3253	3376	
==>d!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3253	3376	
==>d!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1790	1892	
==>if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Func <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1790	1892	
==>if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<Func <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2107	2211	
==>_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2107	2211	
==>_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10499	10616	
==>);
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10499	10616	
==>);
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Spa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	351	478	
==>ator',
        header  => q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2120	2220	
==>B ();
	use B::Flags ();

	use String::Escape qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7290	7416	
==>mit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7278	7404	
==>mit_rule( $program, $_[1].'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1112	1268	
==>try;
        my $fh = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	281	393	
==>ule
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unless $mod =~ /\. <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	21	123	
==>me::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_t <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	21	123	
==>me::Recurrence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15550	15646	
==>ttributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and val <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15550	15646	
==>ttributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and val <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20896	21012	
==>plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20896	21012	
==>plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	755	894	
==>alue->isa('type'))
        || confess "You must provide a value to reference";    
    ${$self} = $value;
    return nil->new();
}

1;

__EN <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11934	12106	
==>>and(block->new($e, sub {
                      my $e = shift;
                      $e->set('?%params' => hash->new()); 
                  }));
                $e->get('$cl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18841	18942	
==>1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCRIPTION

This cl <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17763	17938	
==>ike this:

    $results{details}[$test_num - 1] = 
            { ok        => is the test considered ok?
              actual_ok => did it literally say 'ok'?
              nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	967	1097	
==>w(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	967	1097	
==>w(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21244	21346	
==>delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21244	21346	
==>delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17315	17430	
==>g =~ s/^,\s*//;
            print "$bonusmsg.\n" if $bonusmsg;
            die "Failed $tot->{bad}/$tot->{tests} tes <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5197	5291	
==>n} or die <<"END_DIE";
The '$method' method does not exist in the '$self->{prefix}' path!
Pleas <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8106	8207	
==>s 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them setting all <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8106	8207	
==>s 
possible; for example, it should not merely set arrays to C<()>, but loop 
through them setting all <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3299	3422	
==>ecedences{$opt->{precedence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{prec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	800	910	
==>=> $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	811	921	
==>=> $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	863	1010	
==>ter'.
.
    }
    else {
        print << ".";
*** Installed successfully!
.
    }
}
else {
    print << ".";
*** Installation failed (exit code $rv <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	196	301	
==>ions   = 0;

#read options
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15149	15244	
==>is attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes prope <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15149	15244	
==>is attribute set are considered
"root Nodes" and are listed in their Document's Root Nodes prope <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	712	831	
==>: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immed <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	918	1037	
==>: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immed <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	74	184	
==>uage Specification, 3rd Edition
#    Appendix A.
#
#  Changes to specification grammar.
#   * RegularExpression <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3473	3580	
==>tta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3473	3580	
==>tta::Shell -
Interactive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9589	9681	
==>};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op{'isNamed'};
	push( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3821	3940	
==>_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile {
    my $self          = shift;
    my $makefile_name = shift;
    my <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	681	770	
==>X::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Value::U <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	27	134	
==>en2;
use File::Basename;
use FindBin qw<$Bin>;

# XXX - This is not at all portable.

my ($in, $out) = @ARGV <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5030	5131	
==>in _private

=item B<_all_ok>

  my $ok = _all_ok(\%tot);

Tells you if this test run is overall succe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21870	21965	
==>l present two example sub-classes, F<Regexp::NoCode>, and
F<Regexp::AndBranch>.

=head2 Parser I <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	574	690	
==>() {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.tex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	574	690	
==>() {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.tex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24247	24351	
==>f a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mappi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28799	28903	
==>f a Relation has zero attributes, then
C<$body> may be an Set with a single member that is an empty Mappi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	193	319	
==>_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	193	319	
==>_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anywhere; match at $pos
su <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3952	4053	
==>ed under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3952	4053	
==>ed under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfour is Cipher::S <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1875	2021	
==>xpected PIL2 $_" }; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        return unless $debug_trave <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1257	1349	
==>gexp::Parser::anchor;
  push @ISA, qw( Regexp::Parser::__object__ );
  push @Regexp::Parser:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3181	3294	
==>nd out of before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3181	3294	
==>nd out of before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $base ~~ s:pe <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17342	17446	
==>0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm(que <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17185	17286	
==>0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1) ).

rm( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4237	4373	
==>rn get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5086	5222	
==>rn get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementa <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9373	9503	
==>less $kind;
        push @{ $opts{$kind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3233	3358	
==>uePrimitive);
        } # 9
        raise TypeError;
    } elsif $hint eq 'Number' {
        my $Result1 = $O.<[[Get]]>('value <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13443	13588	
==>payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex() <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13443	13588	
==>payload => {
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7653	7744	
==>g error>, $parser->errmsg will return
that error message, and $parser->errnum will return th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12264	12415	
==>ular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12264	12415	
==>ular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6277	6547	
==>[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other er <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6741	7011	
==>[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other er <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8085	8187	
==>----------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth availa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8085	8187	
==>----------------------
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth availa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32773	32867	
==>luding
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37323	37417	
==>luding
one copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9897	10020	
==>sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scala <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11374	11497	
==>sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scala <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2036	2152	
==>} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7260	7352	
==>combined with (except instantiated variables, which delegate. see below)
multi unify => ( 'ty <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2957	3058	
==>m the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXA <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2957	3058	
==>m the bucket.  Does not return a meaningful value.

=item fill()

Fills the bucket.

=back

=head1 EXA <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4081	4200	
==>return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4081	4200	
==>return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    }
}

# vim <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10196	10358	
==>->available };
            
            my @maybe;
            for my $test ( grep { $_->package ne $inst_pkg->package } @list ) {
                push @maybe, $te <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38179	38268	
==>s aliases
named C<minus> and C<except>.

=item C<semidifference (Relation::Example $other! <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26375	26470	
==>subclass (opaque $self: opaque $subclass) returns nil {
    @:subclasses.push($subclass);
}

(me <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8224	8315	
==>fy => ('type::operator::nullary', 'type::operator::nullary') => sub {
	my ($x, $y) = (shift, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5804	5905	
==>nt_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled aft <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5804	5905	
==>nt_handlers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled aft <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7863	7976	
==>if s/\s+is lazy//;
	    $h{'isWritable'}=1 if s/\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	16	124	
==>ule/Install/Fetch.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Fetch.pm"
package Module::Install: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3435	3528	
==>pty = $self->operatorTable()->{""};

  ($matchObj, my $target, my $matchObjFrom, my $matchObjP <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17662	17875	
==>NICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17662	17875	
==>NICODE',
        },
        child_nodes => [
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'no <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1795	1910	
==>toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1795	1910	
==>toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1740	1843	
==>Stmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1740	1843	
==>Stmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6160	6304	
==>sers{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6160	6304	
==>sers{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	280	425	
==>$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	280	425	
==>$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5635	5748	
==>}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	398	539	
==>ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "Mac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	398	539	
==>ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "Mac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11148	11267	
==>pec (RFC 2616) promise that joining multiple
values in this way will not change the semantic of a header field, but
in p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11148	11267	
==>pec (RFC 2616) promise that joining multiple
values in this way will not change the semantic of a header field, but
in p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6151	6249	
==>types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6151	6249	
==>types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_da <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1549	1654	
==>returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not mat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1607	1712	
==>returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3170	3341	
==>";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3170	3341	
==>";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] co <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10406	10527	
==>n.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10406	10527	
==>n.next( $.span.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27546	27644	
==>ed to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspon <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32098	32196	
==>ed to each tuple.  The new Relation has all
of the tuples of the original (or rather, the correspon <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11647	11753	
==>ty'>
    | <DecimalDigits> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4632	4720	
==>s>|<escape_sequence>|<named_character>|<simple_character> }
rule a_dot  { \. }
rule logic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1326	1447	
==>sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1326	1447	
==>sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23330	23507	
==>b(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun => ide("f"),
						param => comb(
							fun => ide("head"),
							param => ide("xs"),
						),
					) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3434	3597	
==>e 7.2
      <TAB>
    | <VT>
    | <FF>
    | <SP>
    | <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8656	8753	
==>des>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8656	8753	
==>des>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17971	18071	
==>, not Int.

=item split

 multi Str::split (  Str $delimiter ,  Str $input = CALLER::<$_>, Int $limit <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	881	977	
==>able to access the Class' private
attributes.  This is "early" method binding.

=head1 NOTES

Per <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5341	5437	
==>t (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5399	5495	
==>t (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2886	3003	
==>presentation of it that "honours the spirit of the
dialect", if the original form is not available or has been discard <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2886	3003	
==>presentation of it that "honours the spirit of the
dialect", if the original form is not available or has been discard <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8663	8764	
==>" ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $loc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8663	8764	
==>" ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $loc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1504	1635	
==>AV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1504	1635	
==>AV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service U <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	636	735	
==>ss: @args) { warn(@args); }

method _parse_ini_file(Class $class: IO $fh) {
	my @config;

	my $linen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5636	5727	
==>iler::Rule->compile(<<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	619	748	
==>4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	619	748	
==>4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.ke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19216	19315	
==>eady involved in making the program would be editing them.  At
the same time, this information is in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19216	19315	
==>eady involved in making the program would be editing them.  At
the same time, this information is in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4076	4190	
==>al 'use '.$()->[2]{ident}[0]{ident};
		return { use_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	346	467	
==>ir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir { <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	346	467	
==>ir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5104	5237	
==>'3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5104	5237	
==>'3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c po <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	78	169	
==>oes Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Te <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	78	169	
==>oes Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13154	13262	
==>tion is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13154	13262	
==>tion is
    # somehow b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $au <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39992	40226	
==>paque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('% <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19541	19766	
==>paque'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('% <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6602	6706	
==>s here as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Ba <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6602	6706	
==>s here as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Ba <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13794	13891	
==>ply a subroutine to each header field in turn.  The callback routine
is called with two parameters <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13794	13891	
==>ply a subroutine to each header field in turn.  The callback routine
is called with two parameters <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7333	7474	
==>_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7345	7486	
==>_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3424	3526	
==>) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubv <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3424	3526	
==>) }

rule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubv <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10973	11076	
==>ersions

rule StringNumericLiteral {  # see 9.3.1
      <StrWhiteSpace>?
    | <StrWhiteSpace>? <StrNume <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13312	13402	
==>, { code_type(D, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D), { number_chars <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2403	2552	
==>est_output> should be the raw output from the test, including
newlines.

=cut

sub analyze {
    my($self, $name, $test_output) = @_;

    my $it = Te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9068	9189	
==>onal',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9064	9185	
==>onal',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1541	1643	
==>> --$ENUM, 'Trailing \\';
use constant RPe_BADESC => --$ENUM, 'Unrecognized escape \\%s%s passed throug <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6504	6603	
==>ach line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6504	6603	
==>ach line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start_document <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2080	2198	
==>>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2080	2198	
==>>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3055	3171	
==>meter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3055	3171	
==>meter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34182	34285	
==>ray reference of lower and upper bounds, both I<anyof_char>

=head2 anyof_class

Family: anyof_class

Ty <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1477	1579	
==>n.hi";
    #unlink "dist/build/src/Pugs/Run.o";
    #unlink "pugs$Config::Config{_exe}";
    print STDE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10632	10772	
==>~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10790	10930	
==>~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate to?
    # $value = join('', eval $name) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2783	2896	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2976	3089	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26725	26827	
==>e of the new object is set from the named parameter
$msg_key (a string); the optional named parameter % <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26725	26827	
==>e of the new object is set from the named parameter
$msg_key (a string); the optional named parameter % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4977	5113	
==>::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4804	4936	
==>::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	617	752	
==>_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11711	11846	
==>_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10414	10514	
==>er for perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacement <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10414	10514	
==>er for perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replacement <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2363	2474	
==>=> $to],
						struct_equiv => Blondie::Backend::C::Prim->new(
							arity => 1,
							body => "type_convert_$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	856	968	
==>ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	823	935	
==>ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4798	4893	
==>AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4798	4893	
==>AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6777	6910	
==>eturn unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6970	7103	
==>eturn unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9059	9184	
==>me_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9252	9377	
==>me_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2314	2435	
==>er> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2314	2435	
==>er> + $density };
        if defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $e <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3735	3844	
==>today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The st <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3735	3844	
==>today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The st <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1339	1460	
==>_day[-1] while
  @devs_till_day < @commits_till_day;

# Create the graph.
my $graph = GD::Graph::lines->new(500, 350);
$gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	153	250	
==>:Token;
use Pugs::Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $rul = '[a|b](b)c';
my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	520	652	
==>(map { &$f($_) } @$self);
	}

	sub values { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2535	2628	
==>the behavior otherwise.  The F<prove> utility's C<-v>
flag will set this.

=item C<$Test::Harn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4437	4549	
==>($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4437	4549	
==>($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20889	20988	
==>ng.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field name sh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20889	20988	
==>ng.

=head1 BUGS

In the argument list to the constructor or header() method, the same
field name sh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19218	19318	
==>ode = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19218	19318	
==>ode = Rosetta::Model::Document.new(
        document => $document, *%{$hash_was_saved} );

=back

=he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2587	2683	
==>ted URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2587	2683	
==>ted URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8342	8441	
==>s_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8400	8499	
==>s_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $Tes <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	765	896	
==>iative attributes,
                  # so we represent them all as attributes
                  attrs => [ map { $self->generate_att <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15283	15406	
==>afe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waiting on a better want <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	734	879	
==>uments( grep { not try { $normalizer.subsume( $_ ) } }, @args );
        }
        
        method create_arguments ( @strings )  {
            $. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26773	26892	
==>ule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 15.10.1
      <-[\\\] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22422	22517	
==>ed in.

Generally, when a program package would return a code-key to indicate a
condition, often <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22422	22517	
==>ed in.

Generally, when a program package would return a code-key to indicate a
condition, often <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5177	5322	
==>d closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.g <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5177	5322	
==>d closures
        # complement_next =>     sub ($x) {...},
        # complement_previous => sub ($x) {...},
        universe =>            $set.g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	600	733	
==>:add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	545	672	
==>:add_rule( 
        $opt{name}, 
        '{ return { op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16112	16284	
==>_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16106	16278	
==>_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] != 1);\n" .
                "$_[1]           \$pos = \$ma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	164	292	
==>:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2091	2218	
==>:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1061	1223	
==>cape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1061	1223	
==>cape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10177	10289	
==>pth) = $iter->()) {
    # $node is a Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argume <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1509	1603	
==>look at the meta
objects; each dispatch table points directly to its "superclass"
dispatch tabl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13052	13147	
==>member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13052	13147	
==>member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4567	4752	
==>names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns H <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4567	4752	
==>names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method export_as_hash () returns H <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4898	4999	
==>ert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4898	4999	
==>ert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	695	797	
==>NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	695	797	
==>NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1931	2113	
==>r->FETCH('::Test')->new(
                    '$.number'      => $self->get_test_number(),
                    '$.passed'      =>  $passed,
                    '$.description' =>  $des <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12224	12326	
==>sif ($v > $S->{maxpar}) { $S->error(RPe_BGROUP) }
          else { return $S->object(ref => $v, "\\$v") <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12623	12739	
==>ile($self, $env, $ast);
}

sub execute {
    my $self = shift;
    my $ast = shift;
    Interpreter->new->reduce($ast <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14270	14378	
==>erl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_as_arr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30445	30541	
==>sive alternative for the rest
of the set. There is a separate template module for each distinct " <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30445	30541	
==>sive alternative for the rest
of the set. There is a separate template module for each distinct " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3531	3645	
==>return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3748	3862	
==>return <<EOT;
#! perl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24888	24976	
==>,m,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_flag_s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37556	37662	
==>tries to load it using 'require'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! ) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37556	37662	
==>tries to load it using 'require'.

=item C<get_template_text_from_loaded_module( $module_name!, $msg_key! ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11468	11610	
==>rs) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14945	15087	
==>rs) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	764	879	
==>i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	764	879	
==>i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return () if $.star <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17773	17876	
==>This word is banned in Perl 6.  You must specify units.

=item index 

Needs to be in terms of StrPos, n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6787	6895	
==>s>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was ki <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6787	6895	
==>s>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was ki <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11305	11494	
==>e = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # hered <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11305	11494	
==>e = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # hered <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15489	15586	
==>expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15547	15644	
==>expected, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1875	1964	
==>e_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varname})\s*=\s*\\(${re_varname})/$1 = $2/g;
} <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	123	218	
==>k>;
use Storable    qw<store_fd fd_retrieve freeze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Temp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15662	15756	
==>ession>
    | <RelationalExpression> <'>='> <ShiftExpression>
    | <RelationalExpression> <'in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	39033	39132	
==>it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None yet.

=cut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43847	43946	
==>it and/or modify it under
the same terms as Perl 6 itself.

=head1 ACKNOWLEDGEMENTS

None yet.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1770	1911	
==>WP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1770	1911	
==>WP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unle <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4546	4642	
==>+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4546	4642	
==>+(:16($1)+&63)*4096+(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14846	14945	
==>umeric     => sub { $as_hash_complain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_h <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25482	25562	
==>_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x(amat(C0,flgs( <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	983	1088	
==>ub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n) <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	983	1088	
==>ub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9869	9984	
==>parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9869	9984	
==>parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1924	2024	
==>l, with that informative but utterly confusing synopsis, you should
be left with nothing but question <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1924	2024	
==>l, with that informative but utterly confusing synopsis, you should
be left with nothing but question <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2105	2250	
==>';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2105	2250	
==>';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1559	1655	
==>You don't need to know about Test::Harness to use
those modules.

Test::Harness runs tests and ex <==
2	/Users/nnunley/pugs/util/func_refact.pl	1636	1784	
==>e) {
        $size = keys %$set;
        for my $f (keys %$set) {
            for my $t (@{$nodes->{$f}}) {
                next if $set->{$t} or $ig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1161	1349	
==>n" if exists $n->{fixity};
    
    # 'undef' example: parameter list, in a sub call without parameters
    return ''
        unless defined $n;
    
    die "unknown node: ", Dumper( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3547	3658	
==>{
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate usern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3547	3658	
==>{
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate usern <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15827	15929	
==>tion used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field label <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20060	20162	
==>tion used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field label <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16840	16946	
==>elationalExpressionNoIn>
}
rule BitwiseANDExpression :words {  # see 11.10
      <EqualityExpression>
    | <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2154	2267	
==>th (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separato <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2154	2267	
==>th (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make sure the glue separato <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3134	3259	
==>r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3134	3259	
==>r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_capt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21261	21361	
==>ves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Insta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21261	21361	
==>ves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Insta <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1645	1738	
==>ations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int|Real $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3504	3596	
==>ations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int|Real $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7667	7784	
==>quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7667	7784	
==>quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] constant( q!$cmd! )\n" unless $cmd =~ /! <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8833	8963	
==>numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8833	8963	
==>numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7606	7708	
==>dirs} or exists $index->{_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15635	15736	
==>nt systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15635	15736	
==>nt systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract blueprint for <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2437	2565	
==>\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2946	3055	
==>on) {
            %.subscriptions<$subscrption.name>.remove($subscription);
            $subscription.subscrib <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5904	6015	
==>air';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o;
    }
    i <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	151	250	
==>it can be modifed to be somehow incorporated in the test suit

use File::Compare qw(compare);


my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1220	1321	
==>ge part of the Module is simply a hash from strings

(symbol names) to objects (containers)



the Cod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1165	1263	
==>ge part of the Module is simply a hash from strings
(symbol names) to objects (containers)

the Cod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4066	4179	
==>ail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4283	4396	
==>ail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1969	2072	
==>s{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1969	2072	
==>s{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of que <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13340	13447	
==>e  functions.

The `:depends("string")` parameter to most of the functions is a way
to provide a comment tha <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13398	13505	
==>e  functions.

The `:depends("string")` parameter to most of the functions is a way
to provide a comment tha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4266	4389	
==>ar -czf $archive $control $data] )  and error($?), return;
        
        1 while unlink $data;
        1 while unlink $co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	306	412	
==>}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	306	412	
==>}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	415	531	
==>horization proxy_authorization authorization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	415	531	
==>horization proxy_authorization authorization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2699	2810	
==>proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2757	2868	
==>proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4941	5096	
==>shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4941	5096	
==>shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1332	1574	
==>t( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1459	1701	
==>t( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2708	2811	
==>t this is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2708	2811	
==>t this is the optimal interface for this combinator.

=cut

method subrule (Code $code) {...}

# vim: ft <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11235	11342	
==>n, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11235	11342	
==>n, $port?, $path_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6812	6911	
==>tant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6812	6911	
==>tant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	401	513	
==>, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 1 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	401	513	
==>, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	719	916	
==>=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	719	916	
==>=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=b <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20565	20662	
==>t alarm bind binmode chown close closedir connect eof fcntl
# fileno flock getc getpeername
# /[ge <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3498	3604	
==>al chars
#    $file =~ s/([&\{\}])/\\$1/gm;
#    # syntax highlighting
#    $file =~ s/([\$\@\&\%]?)([a-zA- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1023	1126	
==>($_[0], '$<b>'));
	return $a.'.'.$b;
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9064	9169	
==>bless())

you can return the same failure object always

then there's absolutely no overhead

I'm not sure <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8766	8868	
==>bless())
you can return the same failure object always
then there's absolutely no overhead
I'm not sure <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10085	10175	
==>n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"und <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10820	10910	
==>n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"und <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	982	1091	
==>= 0  ? bit->new(1) : bit->new(0) }

1;

__END__

=pod

=head1 NAME

type::comparable - a comparable type

=cut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39196	39287	
==>s method has an alias named C<matching>.

=item C<product (Relation::Example $other!) return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1063	1338	
==>e Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for Engl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1063	1338	
==>e Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for Engl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8908	9011	
==>5 code

I'd _expect_ the match object returned to carry the same magic.



overload in p5 is just static <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8614	8714	
==>5 code
I'd _expect_ the match object returned to carry the same magic.

overload in p5 is just static <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20942	21085	
==>ROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43866	44009	
==>ROYALL'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::param <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5513	5607	
==>Content-Type') when you are accessing the web using this
function.  If you need that informatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5513	5607	
==>Content-Type') when you are accessing the web using this
function.  If you need that informatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2359	2473	
==>.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2576	2690	
==>.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18233	18329	
==>e the same external resources, such as a repository file
on disk, it is expected that the Engines <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18233	18329	
==>e the same external resources, such as a repository file
on disk, it is expected that the Engines <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13113	13217	
==>ommand, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#-- <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13113	13217	
==>ommand, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#-- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2030	2123	
==>s Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2030	2123	
==>s Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5102	5380	
==>take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5102	5380	
==>take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we ne <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2371	2478	
==>s Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2371	2478	
==>s Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50246	50364	
==>lf:')->set_attr(symbol->new('$:authority'), $e->get('?$authority'));
                  }));
                $e->get('$s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16611	16699	
==>qualityExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> < <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34507	34623	
==>parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34507	34623	
==>parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4116	4228	
==>et;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4116	4228	
==>et;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2982	3088	
==>ay, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].jo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2982	3088	
==>ay, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].jo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6347	6455	
==>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6347	6455	
==>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{normalize $event <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	468	575	
==>.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESC <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	468	575	
==>.root;
 my @next = $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESC <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	446	556	
==>04, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateT <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	446	556	
==>04, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2243	2381	
==>ch = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2243	2381	
==>ch = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	11	164	
==>dule File::Spec::Unix-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	11	164	
==>dule File::Spec::Unix-0.0.1;

sub curdir        returns Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1292	1414	
==>| <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1292	1414	
==>| <positional_variable>
            
        { return { variable => $() ,} }
    }
    unshift @rule_terms, 'variable_rule' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6987	7118	
==>ary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6987	7118	
==>ary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18379	18505	
==>@_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14800	14926	
==>@_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyof_close => "]");
  });

  # closing paren co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4641	4741	
==>g);
}

sub reduce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv->val) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4410	4515	
==>ads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4257	4361	
==>ads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<na <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13497	13606	
==>{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13497	13606	
==>{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1504	1606	
==>Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1504	1606	
==>Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1395	1515	
==>$S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = spli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1971	2091	
==>$S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = spli <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	274	394	
==>et", { companion => "class" });
Has($?CLASS, "reverse_assocs", "Set", { companion => "dest" });
Has($?CLASS, "methods", " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1672	1783	
==>s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1732	1843	
==>s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # this list was extracted from 'perlre'
    for my $c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1724	1827	
==>path(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our arg <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1724	1827	
==>path(join('', @new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our arg <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1313	1423	
==>o;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1313	1423	
==>o;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	330	446	
==>$directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	330	446	
==>$directories) returns Array is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18031	18133	
==>, by
parsing up your module's source code into various blocks; so that by the
time a compiler is called <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18031	18133	
==>, by
parsing up your module's source code into various blocks; so that by the
time a compiler is called <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3592	3694	
==>---------------------------------

# Utility to test that "No method found" error is raised

sub fails_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5494	5596	
==>---------------------------------

# Utility to test that "No method found" error is raised

sub fails_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	698	818	
==>= check( $tmpl, \%hash ) 
                    or ( error( Params::Check->last_error), return );

    my $obj = $class->SU <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1001	1127	
==>od size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1001	1127	
==>od size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	46	162	
==>g_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	46	162	
==>g_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	334	464	
==>TS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open( <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	334	464	
==>TS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7035	7164	
==>cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7035	7164	
==>cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	131	229	
==>edia::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	131	229	
==>edia::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4343	4468	
==>match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4343	4468	
==>match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $mat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1261	1387	
==>arameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if % <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1261	1387	
==>arameters
    my ( $start, $end );
    my bool $start_is_open;
    my bool $end_is_open;
    my $density;
    $density = 1 if % <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8908	9007	
==>pan1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_em <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8908	9007	
==>pan1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_em <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4121	4231	
==>IL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4121	4231	
==>IL::PILBind
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	274	379	
==>all it's tests.

- The algorithm is a bit simpler than the previous version, but the complexity is the s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2227	2340	
==>hs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2227	2340	
==>hs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1426	1523	
==>embers{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method inve <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1426	1523	
==>embers{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method inve <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2563	2673	
==>ne, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2563	2673	
==>ne, ../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (. <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	543	645	
==>ame);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilres <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	543	645	
==>ame);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilres <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10936	11032	
==>mple sub {
    s/\#.+//g;
    s/^NODE\s+(\S+)\s+\(([^\)]*)\)\s+\{(.+?)(?:^\}|\}\s*?$)/gen($1,$2,$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3428	3557	
==>side a closure, refers to the current match, even if there is another
        match inside the closure
    $/()  
        just the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3439	3568	
==>side a closure, refers to the current match, even if there is another
        match inside the closure
    $/()  
        just the <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8283	8432	
==>nf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8283	8432	
==>nf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	651	748	
==>e_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` are e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	651	748	
==>e_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($x)` are e <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24881	25008	
==>{  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
rule Quantifier {  # see 15.10.1
      <Quantif <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5928	6024	
==>t work yet.
multi sub infix:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5011	5098	
==>hmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <michael.hartmann\@as-netz.de>
U <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3186	3436	
==>ass Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3186	3436	
==>ass Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Ro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24428	24527	
==>lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
asid <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24428	24527	
==>lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
asid <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1216	1334	
==>arent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1216	1334	
==>arent (unless we are the root)
    $self.parent()!set_width($self) unless $self.is_root();            
}

my method set <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2422	2567	
==>t;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->array_extendSize <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1745	1865	
==>rule => $_[0]{rule}(), } } ]
        | [ <metasyntax> { return { rule => $_[0]{metasyntax}(), } } ]
    }
    
    rule n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	461	569	
==>tt<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	461	569	
==>tt<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15029	15155	
==>g, \$how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2496	2592	
==>re where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contai <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2496	2592	
==>re where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19967	20061	
==>s.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implementation of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19967	20061	
==>s.

L<Rosetta::Engine::Example> is the self-contained and pure-Perl reference
implementation of <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1704	1795	
==>Cipher::Arcfour also includes several attributes which might be interesting to 
people inter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1704	1795	
==>Cipher::Arcfour also includes several attributes which might be interesting to 
people inter <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5086	5202	
==>t
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5086	5202	
==>t
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that the depth <==
2	/Users/nnunley/pugs/util/package-osx.pl	5547	5644	
==>/Perl6::FAQ::FUD.3pm
        /usr/local/man/man3/Perl6::Overview.3
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	630	783	
==>lds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new match object gets
                  a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	630	783	
==>lds the
                  string that is being matched against).
    $.match     - State that is scope-local.  A new match object gets
                  a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7687	7822	
==>>stevan@iinteractive.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder-0.2.1;
  
  use Test::Builder::Test;
  use Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20977	21106	
==>match => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) at <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17398	17527	
==>match => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) at <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7030	7150	
==>d_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7030	7150	
==>d_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14755	14888	
==>ffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14755	14888	
==>ffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23246	23372	
==>{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19667	19793	
==>{";
    return $S->$c;
  });

  $self->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	296	411	
==>ck { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <l <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	296	411	
==>ck { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1953	2078	
==>ely
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1953	2078	
==>ely
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19692	19791	
==>annel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19692	19791	
==>annel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
topic) an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2298	2450	
==>l} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2298	2450	
==>l} eq '*quantifier*' ) {
            my %h = %{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8580	8713	
==>$match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8580	8713	
==>$match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3707	3833	
==>quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3695	3821	
==>quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6480	6579	
==>ndence_list');

## test adding a class method (as a signleton method on the class instance)

$Object <==
2	/Users/nnunley/pugs/util/package-osx.pl	4980	5077	
==>S13.3pm
        /usr/local/man/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Perl6::Bible <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	1025	1135	
==>n 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = tail($_[0]);
  ret <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	360	469	
==>ig{keep} };

GetOptions \%Config, qw(--inline --pugs|p=s --precompile|i=s@ --verbose|v --touch --output|o=s -- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	823	946	
==>my $qr = eval{ $f->($mods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { pr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3256	3363	
==>rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.inclu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3256	3363	
==>rv;
}
method difference($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.inclu <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	31	142	
==>ence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kw <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	31	142	
==>ence-0.01;

has Recurrence $.set;

# TODO - datetime-specific methods:
#  add_duration, set_time_zone, ...


=kw <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2399	2505	
==>nClone;
  }

  $token{token1} = $nameSplit[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	952	1123	
==>n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	952	1123	
==>n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2900	3057	
==>package_prefix      { $_[0] =~ $re; $1 }
        sub package_name        { $_[0] =~ $re; $2 }
        sub package_version     { $_[0] =~ $re; $3 }
        sub <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	532	646	
==>().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selecti <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	532	646	
==>().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selecti <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1754	1882	
==>>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a.. <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1754	1882	
==>>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a.. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4740	4850	
==>by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4740	4850	
==>by makeing %cache353{$chan} a hashref
      # which has the nicks, which we currently think are on the channel, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5048	5160	
==>alue');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7716	7828	
==>alue');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10036	10136	
==>nt_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The construct <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10036	10136	
==>nt_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The construct <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2160	2434	
==>.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2160	2434	
==>.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3628	3782	
==>deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4092	4246	
==>deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	326	457	
==>per($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	326	457	
==>per($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17573	17671	
==>t shipping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17573	17671	
==>t shipping Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	403	543	
==>ial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	403	543	
==>ial Content',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3146	3266	
==>de++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3146	3266	
==>de++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1140	1241	
==>_END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1140	1241	
==>_END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Gr <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2654	2780	
==>ew('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1070	1182	
==>::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::requir <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	856	963	
==>::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n";
}
sub node::r <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	78	212	
==>xport = rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) -? | - ) (\d\d) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10812	10929	
==>p6           => "$initrd_mnt/welcome.p6"],
  );
  step
    descr  => "Copying Pugs, Parrot, Bash, inputrc, the terminf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	395	538	
==>rn 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	395	538	
==>rn 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11533	11668	
==>capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11812	11947	
==>capture_block = sub { return { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2036	2131	
==>re complete version of t/rules/rules.t.  This could either be done
#using Regexp::Parser Objects <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	910	1036	
==>{ Blondie::TypeSafe::Type::Std->new($_) } qw/GV str/ => "int"], # "bool, x, x -> x"
        },
        {
            arity => 2 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15667	15768	
==>e speaker often prefers to
communicate in those languages.  Or, when viewing an error message, the
app <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15667	15768	
==>e speaker often prefers to
communicate in those languages.  Or, when viewing an error message, the
app <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	457	585	
==>ey} =~ $pat;
    }
}

sub usage {
    return qq[
    Usage: 
$0  key:value 

    key is one of the keys in the meta info
    valu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4400	4524	
==>ff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4400	4524	
==>ff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16127	16264	
==>perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16127	16264	
==>perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig} <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23064	23155	
==>epresentation of the roles' attributes (eg,
volatile or persistent) and provide accessors to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3706	3872	
==>shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4170	4336	
==>shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### plain old entry, we want to resolve t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9091	9183	
==>:Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2916	3008	
==>:Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6547	6640	
==>atpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6547	6640	
==>atpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18726	18833	
==>n users.  This association would normally be
stored in a Perl file that defines and returns an anonymous has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18726	18833	
==>n users.  This association would normally be
stored in a Perl file that defines and returns an anonymous has <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	875	975	
==>put =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	875	975	
==>put =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2934	3038	
==>, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2934	3038	
==>, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closure_previous, 1 <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1279	1382	
==>) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_w <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1279	1382	
==>) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9120	9221	
==>ng deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9120	9221	
==>ng deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	126	377	
==>1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	126	377	
==>1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	28	124	
==>rldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	28	124	
==>rldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub content <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1860	1994	
==>essage .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1860	1994	
==>essage .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7478	7594	
==>1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in th <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7478	7594	
==>1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in th <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	508	666	
==>tr> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $lin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	508	666	
==>tr> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $lin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26170	26283	
==>ke so:

  if (${&Rx} =~ m{ \G pattern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> value won't b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	835	1073	
==>"s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	836	1074	
==>"s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21056	21157	
==>es; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25608	25709	
==>es; all tuples in a Relation are of the same
degree, and the attribute names of each tuple are all the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	841	946	
==>mited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	841	946	
==>mited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pu <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6922	7027	
==>his means I should defer events until I get to the
end of the line. I could probably do that, but it could <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6922	7027	
==>his means I should defer events until I get to the
end of the line. I could probably do that, but it could <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4468	4576	
==>est::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4526	4634	
==>est::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## lives ok

sub lives_ok (Cod <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	461	559	
==>density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( % <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	461	559	
==>density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.new( % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4365	4496	
==>} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4558	4689	
==>} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'p6ws'=> $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2257	2356	
==>LCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2257	2356	
==>LCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3578	3716	
==>turned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3590	3728	
==>turned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/ <==
2	/Users/nnunley/pugs/util/package-osx.pl	6230	6320	
==>/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10488	10620	
==>d any other argument, it will warn that it is ignoring it.

The iterator will return undef when it has reached the end of the tree;
i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	185	283	
==>e used
as the base for Perl6's CPAN, also known as sixpan.

Please refer the documentation of the o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3568	3677	
==>$_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11649	11744	
==>es;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numer <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11649	11744	
==>es;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numer <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	654	755	
==>teType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	654	755	
==>teType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Ut <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4743	4912	
==>to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4743	4912	
==>to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1454	1698	
==>stant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	561	700	
==>%hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2389	2520	
==>\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2389	2520	
==>\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3089	3221	
==>//= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3089	3221	
==>//= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1320	1414	
==>listening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1320	1414	
==>listening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1719	1859	
==>Relation::Tuple;

    # External packages used by the Relation::Example::Tuple class, that do export symbols:
    # (None Yet)

    # Attribu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21127	21219	
==>propriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21127	21219	
==>propriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "password")>

Joins <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2867	2999	
==>script $html_location

    Or add
        smoke_upload: 1 
    to your config.yml file if you want the reports to be uploaded
    aut <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1644	1737	
==>RR "Generating inlined source Prelude... " if $Config{verbose};

    gen_source($TEMP_PRELUDE) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3641	3759	
==>',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3641	3759	
==>',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3066	3160	
==>n addition, the following request headers are set on the HTTP::Headers object,
if they are pres <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3066	3160	
==>n addition, the following request headers are set on the HTTP::Headers object,
if they are pres <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17224	17340	
==>OSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13645	13761	
==>OSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11062	11192	
==>erl5::RuleOps::constant( '$prefix:<$id>' ),\n" .
                "        \\&Grammar::Perl6::ws_star,\n" .
                Runtime: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6032	6157	
==>current->{env}->{$name}->store($value);
            return;
        }
        $current = $current->next;
    }
    $self->crea <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1123	1283	
==>s);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $p <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1123	1283	
==>s);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1589	1713	
==>_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1589	1713	
==>_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5359	5492	
==>} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5359	5492	
==>} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	475	586	
==>rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	486	597	
==>rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10019	10133	
==>MT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10019	10133	
==>MT',
       Content_Type => 'text/html; version=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6198	6303	
==>ringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return und <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6198	6303	
==>ringify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return und <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11386	11501	
==>urrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence that are also in the given r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11386	11501	
==>urrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence that are also in the given r <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	107	204	
==>REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	107	204	
==>REMOTE_ADDR> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16243	16354	
==>ig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16243	16354	
==>ig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__", <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1619	1723	
==>$name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be sym <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2267	2371	
==>$name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names must be sym <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4932	5059	
==>$span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4932	5059	
==>$span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5653	5805	
==>s::Grammar::Precedence::add_to_list( '$op->{name}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11259	11405	
==>sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11391	11537	
==>sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, ta <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5678	5781	
==>rn ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5678	5781	
==>rn ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $self.iterator <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1665	1781	
==>abel->to_native . ")";
        if ($methods->exists($label) == $bit::TRUE) {
            #warn "calling method (" . $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8770	8866	
==>b { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @term <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2595	2691	
==>b { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->varscalar(@_) };
push @term <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5689	5828	
==>&usage,
) or usage();
check_for_evil_chars($initrd_img, $initrd_gz, $initrd_mnt, $lib6, $parrot_path);

my $welcomed = 0;
step
  descr  => " <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12589	12683	
==>oper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12589	12683	
==>oper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2079	2176	
==>ECURITY

Although Arcfour is perfectly secure when used properly, it has several known 
problems a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2079	2176	
==>ECURITY

Although Arcfour is perfectly secure when used properly, it has several known 
problems a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12522	12654	
==>sub { 0+ $_[0] },
      perl6_object => sub { $_[0]->as_perl5_num },
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flav <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4158	4276	
==>depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4216	4334	
==>depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "No exception thrown", :$depends);
    }
}

## d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6768	6879	
==>\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6768	6879	
==>\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7074	7205	
==>$IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTEN <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7074	7205	
==>$IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTEN <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	309	423	
==>n;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	309	423	
==>n;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7632	7776	
==>xt
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpolate the message vars int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7632	7776	
==>xt
            if !$text.defined;

        # We successfully got template text for the message key, so
        # interpolate the message vars int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2930	3040	
==>fined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2918	3028	
==>fined $quantifier;
    # TODO: fix grammar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10001	10149	
==>{ 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdt <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10001	10149	
==>{ 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdt <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2123	2229	
==>lass, $conf) = @_;
    my %env = map { split /=/ } (split /:/, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2009	2106	
==>ing but questions about what this object represents.

It represents a node in the Perldoc DOM tree <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2009	2106	
==>ing but questions about what this object represents.

It represents a node in the Perldoc DOM tree <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1973	2151	
==>am<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        } <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1973	2151	
==>am<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1056	1245	
==>file => File::Spec->catfile( 
                                $dir, $config->jib_dir, $config->meta_file ) 
                        ) or return;

        $obj->config( $config   );
        $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7751	7901	
==>utes{'length'} =
        JSX::PropertyAttributes.new(:DontEnum :DontDelete);
}
# 15.4.5.1
method <[[Put]]> ($A: JSX::String $P, JSX::Value $V) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5542	5643	
==>s_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5542	5643	
==>s_fresh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifet <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	284	425	
==>from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	768	909	
==>from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2531	2630	
==>nce we don't yet have object support, this module is more like the
Perl 5 File::Spec::Functions modu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2531	2630	
==>nce we don't yet have object support, this module is more like the
Perl 5 File::Spec::Functions modu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4414	4526	
==>gs->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4636	4748	
==>gs->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7958	8070	
==>eturn 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7958	8070	
==>eturn 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6650	6748	
==>e a grammar as let each matched node state what it
expects to match next, but there is not currentl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2236	2370	
==>$_[3]->{match}[1]}->{abort} &&
                $state[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match}[1]->bool, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2039	2158	
==>ule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2039	2158	
==>ule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10914	11007	
==>2 The Rosetta::Model::Document Class

A Document object is a simple container which stores dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10914	11007	
==>2 The Rosetta::Model::Document Class

A Document object is a simple container which stores dat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1082	1210	
==>r ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my($acc,$val) = each %$args ) {
        $self->$acc( $va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20839	20935	
==>ack-end which
I recommend above all others for production use.

Most of the other (near term) thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20839	20935	
==>ack-end which
I recommend above all others for production use.

Most of the other (near term) thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11182	11299	
==>e>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11182	11299	
==>e>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose a d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1579	1751	
==>indir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Root . '/_builddir';             # buildir on client side          
$Data           = 'data <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2597	2702	
==>ompile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2597	2702	
==>ompile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11745	11871	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12024	12150	
==>ch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{' <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	349	516	
==>nce => {
        attrs => [ '%:slots' ],
        BUILD => sub {
            my $self = shift;
            $self->set_value('%:slots', {});
        },
        methods => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4320	4462	
==>urn;
        
        1 while unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8142	8272	
==>refix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8142	8272	
==>refix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3104	3255	
==>atcher' => 'block'),
                           symbol->new('$label'      => 'symbol'),
                           symbol->new('?%opts'      => 'hash'), <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6562	6691	
==>pe);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6562	6691	
==>pe);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3075	3180	
==>:PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3075	3180	
==>:PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9923	10029	
==>ide an IFTHEN
    if (@$st and @{ $st->[-1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ifthen = $st <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14432	14533	
==>my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default 0
timeout 0
c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	778	881	
==>mpile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	778	881	
==>mpile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5898	6053	
==>out($line, \$self->{bailout_reason}) ) {
        $type = 'bailout';
        $self->{saw_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	756	866	
==>::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	756	866	
==>::Headers.new(*%header);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9314	9427	
==>ies
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9314	9427	
==>ies
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_en <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	721	827	
==>{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	721	827	
==>{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
}

method get <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13802	13919	
==>bers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13802	13919	
==>bers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	322	424	
==>tch_re($re,$str);
my $r = compile($re) || die "Compile failed";
my $m;
if($bench) {
  timethis (-1*$dur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16763	16925	
==>while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16763	16925	
==>while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4822	4916	
==>s) or error(Params::Check->last_error), return;

    for my $index ( $self->index_file, $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	464	565	
==>v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	464	565	
==>v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

method insert($se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1797	2205	
==>eption object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1797	2205	
==>eption object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1727	1826	
==>pe }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1727	1826	
==>pe }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13933	14032	
==>e (a string).  If a header field is multi-valued, then the
routine is called once for each value.  T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13933	14032	
==>e (a string).  If a header field is multi-valued, then the
routine is called once for each value.  T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3709	3815	
==>annels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3709	3815	
==>annels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("3 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6400	6505	
==>ort {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse:: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6400	6505	
==>ort {
    $.Parser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse:: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1728	1863	
==>nts;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1728	1863	
==>nts;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5507	5616	
==>ust supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$nam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5792	5901	
==>ust supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$nam <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3376	3504	
==>ircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3376	3504	
==>ircname) =
          %rest<username hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2638	2769	
==>: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2638	2769	
==>: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2168	2265	
==>tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too. <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2168	2265	
==>tag named C<Module>.)  Since module names are typically 
capitalized, most "autotags" will be too. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	201	312	
==>or TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	201	312	
==>or TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2038	2185	
==>->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2098	2245	
==>->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_cla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3995	4127	
==>ame>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3995	4127	
==>ame>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $top <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	608	731	
==>r, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# and the new module functionalit <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	608	731	
==>r, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# and the new module functionalit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4022	4135	
==>topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4022	4135	
==>topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $event<rest>;
    $topic = str <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2279	2392	
==>mp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2279	2392	
==>mp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my int $c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1868	1962	
==>ad1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18936	19034	
==>ing on the wire.

When setting the referrer, this method removes the fragment from the
given URI if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18936	19034	
==>ing on the wire.

When setting the referrer, this method removes the fragment from the
given URI if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8930	9044	
==>he match object returned to carry the same magic.



overload in p5 is just static %OVERLOAD entry

the only overhe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8635	8746	
==>he match object returned to carry the same magic.

overload in p5 is just static %OVERLOAD entry
the only overhe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2161	2271	
==>>[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2161	2271	
==>>[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18956	19050	
==>as joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18956	19050	
==>as joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<us <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5531	5647	
==>med{$name} = $o;
        push(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

package <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15424	15546	
==>e header value is set.

=over 4

=item $h.date

This header represents the date and time at which the message was
originate <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15424	15546	
==>e header value is set.

=over 4

=item $h.date

This header represents the date and time at which the message was
originate <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	235	340	
==>1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	235	340	
==>1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9201	9379	
==>'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9201	9379	
==>'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34965	35080	
==>d.  If you want to
conceptually change an existing Translator object, you must create a new
object that is a clone o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34965	35080	
==>d.  If you want to
conceptually change an existing Translator object, you must create a new
object that is a clone o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	973	1101	
==>s) if not @nonemptyseqs; 
        my $cand; # a canidate ..
        foreach my $seq (@nonemptyseqs) {
            $cand = $seq->f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24898	25017	
==>ub visual {
    my $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package Regexp::Parser::eval;

  s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5559	5833	
==>("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5559	5833	
==>("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1623	1716	
==>2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensiona <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1623	1716	
==>2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensiona <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19548	19641	
==>anned for Locale::KeyedText that will enable
user text to be stored in non-Perl external files <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19548	19641	
==>anned for Locale::KeyedText that will enable
user text to be stored in non-Perl external files <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3965	4103	
==>turn {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4158	4296	
==>turn {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22825	22926	
==>bute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27377	27478	
==>bute name is a character
string.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - Thi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	245	353	
==>arent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	245	353	
==>arent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16935	17055	
==>a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string representation of the span.

- ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16935	17055	
==>a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return a string representation of the span.

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7432	7550	
==>kip to next module.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7432	7550	
==>kip to next module.
        $text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4771	4882	
==>tators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4771	4882	
==>tators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ( <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2190	2292	
==>ts $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2168	2270	
==>ts $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($fi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1966	2124	
==>e);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub ab <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1966	2124	
==>e);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub ab <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10233	10376	
==>y { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10233	10376	
==>y { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24101	24244	
==>term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24380	24523	
==>term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	53	178	
==>.@a;     # '012345'

say 0..@a-1;   # '01234'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@a;    # '12345'

say <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7151	7255	
==>onstant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7151	7255	
==>onstant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code into blocks. Co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3541	3640	
==>onpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3541	3640	
==>onpath (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7972	8076	
==>f: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7972	8076	
==>f: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $h) is rw {
  re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1453	1627	
==>ll the files
    ### XXX check dependencies
    open my $fh, $meta .'/'. $Fileslist                         or die $!;
    
    my $prerm = $meta . '/' . $Prerm;
    if( -e $p <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	916	1067	
==>returns list of indices
                my $self = shift;
                0 .. $#{$self->get_value('@:slots')};
            },

            'array_fetch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7470	7593	
==>> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7219	7337	
==>> sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop:: <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1854	1997	
==>shift eq $_ or die "Expected PIL2 $_" }; 
    $ret;
}

sub traverse_ast ( $tree ) {
    state $depth = 0;
    
    sub dbg ( *@s ) { 
        re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	965	1079	
==>= none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $! <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	965	1079	
==>= none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $! <==
2	/Users/nnunley/pugs/misc/S29_round.pl	262	369	
==>sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_up_asymmetric ( Num <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6565	6665	
==>::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<op>    := (<@Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27032	27207	
==>,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27311	27486	
==>,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2370	2504	
==>'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that w <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2370	2504	
==>'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate the actual code that w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7212	7317	
==>check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metaf <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	513	618	
==>check if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metaf <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18476	18575	
==>e an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifical <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18476	18575	
==>e an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on.

Specifical <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6709	6813	
==>n = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6709	6813	
==>n = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	105	210	
==>r out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is ex <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	105	210	
==>r out into a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2320	2437	
==>_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3101	3218	
==>_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_te <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3518	3624	
==>GE::P6Rule" ]
=
.sub "__onload" :load
    .local pmc optable
    $P0 = getclass "PGE::Exp::Subrule"
    $P1 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20884	20980	
==>_type(CF,csym) -> \+(char_type(CB,csym)) ; char_type(CB,csym) ), !.
rm(word_boundary_not,F0,F0,B0 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11826	11934	
==>or pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36572	36667	
==>r->qr, "\n";

Here's the output:

  VISUAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2777	2875	
==>.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2777	2875	
==>.members);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $oth <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1326	1431	
==>ersion '$perl_version' is bad. Must be 5 or 6.";
    my $path = File::Spec->catdir($base, $blib);

    $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	302	389	
==>\:]+))->code;
*rule_name = Pugs::Compiler::Rule->compile(q(\w+))->code;
*block = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18154	18261	
==>'WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41419	41526	
==>'WALKMETH')->do(list->new($e->get('&dispatcher'), symbol->new('BUILD'))));
                block->new($e, su <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	183	284	
==>regex) or
no Smart::Comments before every fully qualified subroutine.
* takes a rexep as the only argu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9720	9851	
==>ort, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9720	9851	
==>ort, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16666	16788	
==>E

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16666	16788	
==>E

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12962	13113	
==>ble( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12956	13107	
==>ble( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, u <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1274	1370	
==>t, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daught <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1274	1370	
==>t, modulo whatever we end up
 # doing with whitespace for the round-tripping

 $title->add_daught <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31555	31725	
==>y $e = shift;
                $e->create('$counter' => num->new(0));
                return block->new($e, sub { 
                    my $e = shift;
                    $e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4001	4120	
==>ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4001	4120	
==>ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9365	9482	
==>>{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9365	9482	
==>>{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	148	244	
==>Bin/../Perl6-MetaModel2.0", # XXX
         "$Bin/../Perl6-MetaModel2.0/lib");
use Getopt::Long qw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12415	12552	
==>.
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$as <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12276	12380	
==>=> $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span" <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12276	12380	
==>=> $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6364	6469	
==>' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6364	6469	
==>' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
node_a 'Cxt', 'CxtItem'   , 'xT <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11826	11922	
==>rthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11826	11922	
==>rthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserv <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2464	2574	
==>lf.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2464	2574	
==>lf.set_results(@results);
}

sub get_result ($self:) {
    # if we did not succeed, then 
    # we return undef <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25245	25348	
==>egcomp() is computing
 * it anyway.
 * [regmust is now supplied always.  The tests that use regmust have <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36743	36842	
==>C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Family: assertion

Types: eval (C<(?{>)

Data: string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3525	3632	
==>ler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above



=head1 Modifyi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3400	3502	
==>ler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above

=head1 Modifyi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10207	10304	
==>mit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10207	10304	
==>mit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9984	10088	
==>ext, it returns the next node:

  while (my $node = $iter->()) {
    # $node is a Regexp::Parser::* objec <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1230	1324	
==>ation::AttrName $attr_name) {
    return %!attrs{$attr_name};
}

method attr_name_exists of Boo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	470	579	
==>> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	470	579	
==>> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	934	1046	
==>ative { shift }

# conversion to other native types
sub to_num { (shift)->[0]           } # return the id
sub to_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	183	267	
==>ootstrapping Roles
## --------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16595	16704	
==>$$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$po <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15643	15748	
==>$$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$po <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1011	1221	
==>lation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        en <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1011	1221	
==>lation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        en <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1563	1697	
==>r for install
$Bindir         = $Root . '/usr/local/bin';         # script dir
$Builddir       = $Root . '/_builddir';             # bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	290	408	
==>:ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	290	408	
==>:ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $p <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2291	2399	
==>($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members)) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2291	2399	
==>($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members)) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5654	5759	
==>1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5654	5759	
==>1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	385	498	
==>match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1112	1222	
==>match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1835	1955	
==>::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TO <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1835	1955	
==>::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6528	6635	
==><channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6528	6635	
==><channels>.delete($chan) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3192	3299	
==>ie::TypeSafe::Type::Std->new($type),
				struct_equiv => $node,
				orig => $node,
			);
		}
	}

	sub guess_ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	774	874	
==>:unshift (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15571	15717	
==>{ $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15565	15711	
==>{ $direction$direction\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9394	9518	
==>decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9394	9518	
==>decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	229	370	
==>ulti method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	229	370	
==>ulti method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want.List <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4595	4745	
==>areword} )
                  : _emit( $n->{param}{sub} );
            my @a = split "-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2264	2380	
==>odes->can($1)){
		return $1;
	} else {
		return $class . "->new";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	842	983	
==>buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Impleme <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	842	983	
==>buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Impleme <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	50	156	
==>1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=hea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	50	156	
==>1 DESCRIPTION

This fake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15558	15685	
==>elf->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10414	10541	
==>elf->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15331	15438	
==>et  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15331	15438	
==>et  { enqueue "WHOIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3340	3428	
==>TP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3340	3428	
==>TP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3127	3264	
==>e
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Che <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3127	3264	
==>e
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Che <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4731	4886	
==>ersions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4743	4898	
==>ersions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19609	19709	
==>m => "x",
	body => comb(
		fun => ide("x"),
		param => val(v => "foo", t => type::operator::nullary-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6394	6502	
==>e", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6394	6502	
==>e", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2523	2647	
==>mc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2523	2647	
==>mc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PACKAGE__;
    my $check = $clas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8565	8750	
==>T_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8565	8750	
==>T_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34854	34959	
==>Translator object does not permit changes to its attributes;
they must all be set when the object is const <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34854	34959	
==>Translator object does not permit changes to its attributes;
they must all be set when the object is const <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1070	1189	
==>ameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Id <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1070	1189	
==>ameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Id <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	954	1083	
==>e in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	954	1083	
==>e in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1810	1928	
==>{$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1810	1928	
==>{$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2164	2290	
==>, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2152	2278	
==>, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runtime::Match::Ratchet';\n" .
        "  \$bool = 0 u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4647	4771	
==>nt postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4647	4771	
==>nt postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        pos <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21696	21794	
==>is I<Database Driver Independence>, and not I<Database Language
Independence>.  To further demonstr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21696	21794	
==>is I<Database Driver Independence>, and not I<Database Language
Independence>.  To further demonstr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1979	2076	
==>$field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1979	2076	
==>$field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5491	5712	
==>$val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5491	5712	
==>$val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22986	23083	
==>dule parses I<regexes>, not Perl.  If you send a single-quoted
string as a regex with a variable i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7712	7822	
==>d post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7712	7822	
==>d post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $child.tr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	105	200	
==>time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	105	200	
==>time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1768	1872	
==>l single bit (allows traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, etc.) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	10	108	
==>kage pre-fill the Grammar::Perl6 package
package Grammar::Perl6Init;

use warnings;
use Pugs::Runti <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4107	4196	
==>uantified_op(W, W) --> {true}.

p56_quantified_op(W, ques_ng(W)) --> "??", !.
p56_quantifi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12848	12981	
==>redef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12848	12981	
==>redef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	318	417	
==>=> $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	318	417	
==>=> $event<rest>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4969	5155	
==>>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4969	5155	
==>>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21690	21788	
==>ic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21690	21788	
==>ic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5455	5598	
==>nite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method gre <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5455	5598	
==>nite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method gre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2085	2185	
==>per_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2085	2185	
==>per_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($two);
}
multi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2346	2508	
==>capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2357	2519	
==>capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ru <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3922	4027	
==>n breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3922	4027	
==>n breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	488	594	
==>he end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	488	594	
==>he end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule->co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3522	3664	
==>if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3522	3664	
==>if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Ru <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3232	3332	
==>->rel2abs("dist/build/libHSPugs-$version.a");

    # Add GHC to PATH
    local $ENV{PATH} = dirname($ <==
2	/Users/nnunley/pugs/util/package-osx.pl	83	181	
==>sage:
    package-osx.pl [pugs|parrot|pugs-parrot] target_base_dir
        Run after make install'i <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	428	549	
==>e) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	428	549	
==>e) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$unsafe])" !! "([$u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1330	1457	
==>], '$<ident>' );
    return "use $ident;\n";
}
sub node::slurp {
    my $var = emit(get_data($_[0], '$<variable>'));
    my $lit <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1722	1809	
==>= Perl6::Run::OnPerl5::X1::CodeCompile->new(p6_file=>$filename)->get_p6_file;
	    $eval <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3233	3339	
==>ogin_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3233	3339	
==>ogin_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our username and host, so we /W <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	931	1082	
==>Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );
}

{
my $r = 
    concat( 
        a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1183	1290	
==>Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8283	8428	
==>Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this creat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8283	8428	
==>Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4117	4261	
==>$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $type \$expected";
    }
    un <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5841	5933	
==>d2 @index_files = $repo->index_files(package => $pkg)

Returns a list of all index_files that <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2094	2199	
==>urn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2094	2199	
==>urn canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	77	196	
==>ILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header retu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	77	196	
==>ILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2284	2388	
==>ode) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2284	2388	
==>ode) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15014	15124	
==>o a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Diges <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15014	15124	
==>o a unique string.
sub pmc_fold {
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Diges <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	189	327	
==>d BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	189	327	
==>d BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7235	7337	
==>ode = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7247	7349	
==>ode = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	481	591	
==>ng to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	481	591	
==>ng to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main program
*body = $rule- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6979	7075	
==>ame as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6979	7075	
==>ame as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sibling <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1260	1369	
==>g delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1260	1369	
==>g delimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST pa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16174	16276	
==>scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contain <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16174	16276	
==>scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overlap, then the list contain <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7847	8022	
==>ath}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7847	8022	
==>ath}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1361	1479	
==>n_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	699	816	
==>n_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$clean <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3145	3257	
==>da zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { su <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3145	3257	
==>da zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	601	790	
==>_constructors();

{
    package Blondie::Node;

    use Digest ();
    use Storable ();
    use overload ();
    use Carp ();

    sub atomic { '' }

    sub fmap {
        Carp::croak "virt <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1572	1775	
==>ay )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23019	23124	
==>eclaration :words {  # see clause 13
      <'function'> <Identifier> <'('> <FormalParameterList>? <')'. <' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	940	1053	
==>node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "us <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4696	4799	
==>or pugs still depends on the .msi
   version of GHC and does not provide POSIX features absent
   from a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5703	5862	
==>my $link_this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a policy test!
            if( $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2509	2607	
==>tation of the node types

=head1 EXPORTS

For each node type a function named for its class (withou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6768	6859	
==>rom_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6768	6859	
==>rom_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channel <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12296	12398	
==>$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12296	12398	
==>$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	709	984	
==>LT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	709	984	
==>LT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11033	11191	
==>e_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11033	11191	
==>e_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'na <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20553	20665	
==>@_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest returned status $e <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3051	3177	
==><=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3051	3177	
==><=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21271	21367	
==>>? <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationListNoIn> <';'> <Expression> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	419	518	
==>the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	419	518	
==>the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_fil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31738	31833	
==>a user interface that the
current user is fluent in (and prefers) language A but also understand <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31738	31833	
==>a user interface that the
current user is fluent in (and prefers) language A but also understand <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	460	582	
==>t_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	666	788	
==>t_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5096	5196	
==>ing.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but retu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5096	5196	
==>ing.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but retu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4604	4726	
==>e has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4996	5118	
==>e has to @array[$foo], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$i- <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17140	17292	
==>= $indent + 1;
    
    our $seen;
    local $seen = $seen || {};

    if ($seen->{$node}++){
        return "... recursive=$node ...";
    }

    if (Sc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	75	185	
==>c;
use Log::Message::Simple        qw[:STD];

use vars qw[@EXPORT];
use base 'Exporter';

@EXPORT  = Package::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3558	3667	
==>> "\f", '\F');
  });

  $self->add_handler('\h' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3065	3160	
==>tedly to encipher data.
The encipherer closure can be called with a string, and should be called <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3065	3160	
==>tedly to encipher data.
The encipherer closure can be called with a string, and should be called <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5398	5501	
==>uctures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5398	5501	
==>uctures used by the Rosetta framework, as used by
    # the current process/application.
    my Rosetta: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	41	138	
==>::DuplicateFinder;
use base qw/Blondie::Reducer/;

use strict;
use warnings;

use Set::Object;

su <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3120	3243	
==>fficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3120	3243	
==>fficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18135	18230	
==>escendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, sca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18135	18230	
==>escendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
array refs, sca <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1197	1311	
==>ct ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1197	1311	
==>ct ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1584	1700	
==>Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, til <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1584	1700	
==>Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, til <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1135	1234	
==>otification.new(:subscriber($_), :event($event)) }, *@subscriptions;
    }
    
    method get_subsc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5553	5672	
==>rn unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5775	5894	
==>rn unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	708	837	
==>t @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	708	837	
==>t @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0] == any( @star <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23724	23820	
==>le won't simply
send all commands immediately to the server, but creates a queue, which is then
s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23724	23820	
==>le won't simply
send all commands immediately to the server, but creates a queue, which is then
s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23027	23152	
==>al(v => "foo", t => type::operator::nullary->new("str")),
				),
			),
		),
	),
);

my $map = let(
    ide => "map",
    is => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5671	5770	
==>new ()

Class method.  Returns a category object.

options:

=item * name => $category_name - the na <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6523	6659	
==>lation on
                # the module content; not the DATA section. Because we
                # want to make sure that the program run <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6523	6659	
==>lation on
                # the module content; not the DATA section. Because we
                # want to make sure that the program run <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19641	19740	
==>s, such as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19641	19740	
==>s, such as a 2-column
plain-text format that will be much easier for a non-programmer to edit.
But t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33987	34082	
==>ones aren't supported by a program or its libraries.
When translating a message, a match in foun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33987	34082	
==>ones aren't supported by a program or its libraries.
When translating a message, a match in foun <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	422	538	
==>OO using macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supported by p5 by defau <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	400	512	
==>OO using macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supported by p5 by defau <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15816	15924	
==>ar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15816	15924	
==>ar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing mo <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2945	3176	
==>nts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2945	3176	
==>nts<verbatim>($verbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6330	6447	
==>ned in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6115	6230	
==>ned in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matche <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	112	207	
==>ation, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datet <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	112	207	
==>ation, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing a datet <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13557	13735	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13836	14014	
==>ammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4649	4793	
==>aN' ,} } 
        ) ),
        'bool::true' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25760	25856	
==>e components.

Any versions of Rosetta that you modify and distribute must carry prominent
notice <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25760	25856	
==>e components.

Any versions of Rosetta that you modify and distribute must carry prominent
notice <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2211	2317	
==>turns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2211	2317	
==>turns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1213	1317	
==>ote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.rem <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1213	1317	
==>ote.print($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.rem <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	996	1089	
==>esult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $description );
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	996	1089	
==>esult = pil_output( $code, "-P");
  is( chomp($pilresult), chomp($expected), $description );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1509	1617	
==>:Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1509	1617	
==>:Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; retur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14667	14791	
==>terpolation has occured.  But not in the case of m'pattern'.
  Which might come in hand when doing p6 regex.



Notes on stru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	479	587	
==>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	479	587	
==>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1450	1557	
==>e ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1450	1557	
==>e ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++;

    my $field_code = "";
    for <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4975	5083	
==>s it as an array of bytes, 
then clears the object's internal state.  This should be called as the last 
step <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4975	5083	
==>s it as an array of bytes, 
then clears the object's internal state.  This should be called as the last 
step <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5928	6027	
==>m Context

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, depen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5928	6027	
==>m Context

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, depen <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4365	4468	
==>ult4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { raise ReferenceError; }
method PutValue (JSX::In <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6213	6316	
==>,
  help   => "Remove \"$grub_local\" if you want mklivecd.pl to refetch GRUB.",
  ensure => sub { -r $g <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1319	1427	
==>::X1::CodeCompile->new('p6'=>$code)->compile;
	print $cc->as_pil_tree_yaml;
	exit(0);
    }
}

use Perl6::Run <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1226	1323	
==>^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	466	589	
==>t a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "differe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	466	589	
==>t a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "differe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5775	5940	
==>n 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5775	5940	
==>n 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1] }\n"
        unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9769	9884	
==>n unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9769	9884	
==>n unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3372	3480	
==>pan is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3372	3480	
==>pan is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2447	2555	
==>->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2447	2555	
==>->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*Vari <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1670	1792	
==>g (  Num  $x             ; Num :$base --> Num )
 {
     Math::Basic::log($x,$base);
 }
 multi Math::Basic::log ( Num $x = C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3342	3441	
==>>{returns} }

sub equal_to {
    my ($left, $right) = @_;
    ($left->params->equal_to($right->param <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10025	10146	
==>= $S0
    pos = $I1
    $S0 = substr target, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_I <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	283	396	
==>/, @ARGV;
my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9094	9320	
==>tore the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depend <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8630	8836	
==>tore the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	438	537	
==>> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quant <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	438	537	
==>> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quant <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3104	3225	
==>events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3104	3225	
==>events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_elemen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11903	12076	
==>h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_wo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11903	12076	
==>h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-Cookie3: " ~ join_header_wo <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25948	26079	
==>'r'>
    | <'t'>
    | <'v'>
}
rule ControlLetter {  # see 15.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	494	587	
==>TION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	494	587	
==>TION

This module provides an implementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4581	4687	
==>0) if not (blessed($right) && $right->isa('closure::params'));
    return bit->new(0) if $left->length->not <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	190	291	
==>ot = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1::BB::p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5296	5512	
==>* 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5296	5512	
==>* 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expires <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2882	3009	
==>xist yet, this is a 'clean' dir,
            ### and we need to set it up for holding meta-data
            unless ( -d $obj->me <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2786	2901	
==>sult1 = $O.<[[Get]]>('toString');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7977	8080	
==>op::null_or_optional {

    return ruleop::alternation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7704	7803	
==>op::null_or_optional {
    return ruleop::alternation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11016	11121	
==>n @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always overridden in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11016	11121	
==>n @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always overridden in <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1682	1788	
==>67. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map & <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1682	1788	
==>67. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map & <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2396	2493	
==>ode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>pe <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2396	2493	
==>ode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>pe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24804	24931	
==>.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4797	4891	
==>es);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.assuming(offset(0) :l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3360	3606	
==>]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3229	3462	
==>]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8138	8233	
==>item' directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

Th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8138	8233	
==>item' directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1222	1334	
==>^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1222	1334	
==>^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced methods

sub ws {
    my $grammar = shift;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16406	16509	
==>, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16406	16509	
==>, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of Spans. If one side of the <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12348	12447	
==>?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12406	12505	
==>?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4499	4619	
==>elsif ($closure->isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push($closure <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	799	901	
==>le unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsant <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8193	8321	
==>s{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8193	8321	
==>s{$domain}{$path}{$key} = \@array;
        return $?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3805	3987	
==>s ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4269	4451	
==>s ) {
        
            ### plain old entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	320	422	
==>:Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	320	422	
==>:Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Uti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37679	37804	
==>akes the name of a Perl package in its positional parameter
$module_name (a string), and a Message Key in its positional param <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37679	37804	
==>akes the name of a Perl package in its positional parameter
$module_name (a string), and a Message Key in its positional param <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1487	1672	
==>f} };
            for (@{ $nodes{$f} }) {
                #print "Adding $_ based on $f\n" unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8788	8894	
==>ally when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8788	8894	
==>ally when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12504	12604	
==>ill eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12562	12662	
==>ill eval a code snippet, and then pass the result to is or ok
on success, or report that the eval was <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9705	9860	
==>{
        unshift @$ws, $br, sub { -1 }, @$_, sub { +1 };
      }
      shift @$ws;
    }
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1779	1904	
==>mangle_var( $n->{array} )
        if exists $n->{array};
        
    return _mangle_var( $n->{hash} )
        if exists $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34654	34754	
==>eading of the invocant Relation, and returns a new Relation that has the
same heading as the invocant <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39204	39304	
==>eading of the invocant Relation, and returns a new Relation that has the
same heading as the invocant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2359	2477	
==>and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _witho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2271	2384	
==>and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _witho <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4286	4394	
==>s = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memor <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4286	4394	
==>s = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5359	5458	
==>ails.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5359	5458	
==>ails.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8415	8524	
==>n "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8415	8524	
==>n "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7909	8016	
==>urn ruleop::alternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7639	7742	
==>urn ruleop::alternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14891	14992	
==>exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_entities_numeri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14891	14992	
==>exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_entities_numeri <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1366	1529	
==>idx -> $container -> ()
                my $self = shift;
                my $idx = shift;
                my $container = shift;
                $self->_extend_to_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5321	5447	
==>ls>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5321	5447	
==>ls>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler<366> = [-> $event {
    # (Perl 6)++ for new parenthesis rules! :) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3653	3792	
==>0] == $Class;
            return ::opaque_instance_class(shift)->superclass;
        },                       
        'class_precendence_li <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4781	4953	
==>sh @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have so <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5245	5417	
==>sh @maybe, $sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have so <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10949	11055	
==>l set".
Otherwise the program will emit warnings during the execution of some methods, 
because it will try <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10949	11055	
==>l set".
Otherwise the program will emit warnings during the execution of some methods, 
because it will try <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	731	860	
==>e => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	742	871	
==>e => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21500	21608	
==>newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21500	21608	
==>newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.to <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23470	23583	
==>ourceElements>
}
rule Program :words {  # see clause 14
      <SourceElements>
}
rule SourceElements :words {  # s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9054	9157	
==>tead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9054	9157	
==>tead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	633	760	
==>package\s+(\w[\w:]*)\s*;\s*$/;
            last;
        }
    }

    return if $self->module_name;

    my $name = MM->guess_na <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4584	4748	
==>tisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5048	5212	
==>tisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{version} <=> $a->{version <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4889	4988	
==>t (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4889	4988	
==>t (usually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position o <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	828	932	
==>"Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($out <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	828	932	
==>"Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($out <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12719	12875	
==>push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12998	13154	
==>push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   rule <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	594	717	
==>f( ref $thing eq 'GLOB' ) {
        bless $self, 'Test::Harness::Iterator::FH';
        $self->{fh} = $thing;
    }
    elsi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	992	1105	
==>bject
# ast isnt really what we want long-term.  If Perl6::Rule::Parser was
# working and robust, it would make se <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2594	2697	
==>verse $self->_stages) {
	last if defined $self->{$stage};
	push(@todo,$stage);
    }
    #print STDERR " <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1155	1301	
==>~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1155	1301	
==>~~ /[today|now] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6837	6980	
==>fix {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4174	4281	
==>e_attrs($self)->{'$:superclass'} = shift if @_;
            ::opaque_instance_attrs($self)->{'$:superclass'} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5771	5876	
==>ME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5771	5876	
==>ME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	751	855	
==>er)

use strict;

# XXX: should make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

su <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20499	20601	
==>us_return {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35529	35621	
==>cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40079	40171	
==>cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4941	5039	
==>ng of any leftover data and returns it as an array of bytes, 
then clears the object's internal sta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4941	5039	
==>ng of any leftover data and returns it as an array of bytes, 
then clears the object's internal sta <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	738	834	
==>interpreter or equivalent).

=head1 SYNOPSIS

    use Blondie::Backend::Foo; # is-a Blondie::Runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3236	3414	
==>al',
    #        other => 'say',
    #    );
    #}
    for ( qw( my our ) ) {
        __PACKAGE__->add_rule(
            name => $_,
            assoc => 'left',
            pre <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	524	669	
==>eturn "\\synvar\{$segil$name$space}";
#	
#    # digits
#    } elsif ($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4142	4255	
==>ogram '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4359	4472	
==>ogram '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5381	5506	
==>}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5381	5506	
==>}

method compare ( Span::Num $span ) returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	63	152	
==>es decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity enc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	63	152	
==>es decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity enc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39893	39992	
==>ftware Foundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39893	39992	
==>ftware Foundation (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2262	2368	
==>>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs ho <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2262	2368	
==>>), if you want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs ho <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class6.pl	18	145	
==>n und Konstruktor
class Mensch {
	has $.geburtstag;
}

role Leben {
	...
}

class Person {
	is Mensch;
	does Leben;
	
	has $.nam <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1347	1433	
==>ESS_PERL}  = "$^X -I/tmp/JSPERL5 $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4469	4568	
==>rsion 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4469	4568	
==>rsion 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2196	2311	
==>rans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    pu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2196	2311	
==>rans(('_' => '-')) if not $field ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    pu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	142	247	
==>s false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	142	247	
==>s false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2541	2661	
==>cceed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2541	2661	
==>cceed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1527	1682	
==>( .value.key =>
                    (.value.value.does(Relation::Heading)
                        ?? .value.value
                        !! $?CLASS.new( :a <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6722	6852	
==>o}\E)$/, @_;
    push @libs, grep /^-auto/, @_;
    push @libs, grep /^-prof/, @_;

    @_ = (@pkgs, qw(-idist/build -Ldist/build - <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6884	6994	
==>ult1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**31;
    my $Result4 = $Result3 % $n2_32 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1347	1455	
==>ort')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1347	1455	
==>ort')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7628	7732	
==>cause the actual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  -- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7369	7470	
==>cause the actual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  -- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	993	1090	
==>nterface::format};

	# load the required module
	eval "require $dumper->[0]";
	die "install $dumpe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2096	2245	
==>_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for better diagnostic <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3465	3606	
==>_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for better diagnostic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3443	3552	
==>:Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3443	3552	
==>:Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11820	11914	
==>ras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All right <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11820	11914	
==>ras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Little. All right <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8635	8740	
==>.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth fields a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8635	8740	
==>.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth fields a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6992	7092	
==>ader("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6992	7092	
==>ader("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-L <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6785	6909	
==>{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$file is not read <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29291	29409	
==>the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29291	29409	
==>the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	450	621	
==>m:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	450	621	
==>m:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_term <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4375	4481	
==>ject(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_hand <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1501	1607	
==>ject(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $self->add_hand <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1653	1753	
==>methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1653	1753	
==>methods.

=over 4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2322	2420	
==>inite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2322	2420	
==>inite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7553	7663	
==>lete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7553	7663	
==>lete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update %cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16441	16572	
==>\1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12862	12993	
==>\1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	608	706	
==>inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of Modu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1657	1810	
==>,
            ], %{$_[1]} } }
    ;

signature:
        #empty  
        { $_[0]->{out}= { signature => [] } }
    |   signature_term 
        { $_[0]->{o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2639	2822	
==>fined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2639	2822	
==>fined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24595	24734	
==>'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24874	25013	
==>'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6146	6257	
==>c
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6146	6257	
==>c
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1585	1725	
==>2] }' || die $@,
			}} qw(+ - == <= ~ * ** /), '<',
        ),
    ),
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1951	2072	
==>>";
    return $s;
}
sub _indent {my($o,$s)=@_; $s =~ s/^(?!\Z)/  /mg; $s}
sub _indent_except_top {my($o,$s)=@_; $s =~ s/^ <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	419	528	
==>. "\n";
{-
    *** NOTE ***
    DO NOT EDIT THIS FILE.
    This module was automatically generated by util/fil <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1075	1188	
==>port { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1075	1188	
==>port { (1..$n).map(&f) }

=head1 NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10456	10601	
==>(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2> <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10456	10601	
==>(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10525	10637	
==>etings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=it <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10525	10637	
==>etings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=it <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	358	493	
==>1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	358	493	
==>1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4150	4292	
==>s of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4150	4292	
==>s of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26916	27012	
==>es
this automatically, but if you are sub-classing it, you'll probably want
to call it in your ow <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14100	14195	
==>ring many times

=item RPe_NESTED (-16)

Nested quantifiers

=item RPe_LBRACK (-17)

Unmatched [ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6494	6595	
==>IONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6494	6595	
==>IONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of eve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5770	5900	
==>ndle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $eng <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5770	5900	
==>ndle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Connection $conn
        = $eng <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3190	3317	
==>on> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3190	3317	
==>on> = $location;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2174	2283	
==>il, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Run <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2174	2283	
==>il, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Run <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14826	14977	
==>concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15105	15256	
==>concat(
         ruleop::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1196	1336	
==>ewline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1147	1282	
==>ewline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1 <==
2	/Users/nnunley/pugs/util/importgraph.pl	294	397	
==>ng;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$layout,
  "o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3791	3888	
==>h variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3975	4072	
==>h variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2314	2466	
==>_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknow <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2302	2454	
==>_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "unknow <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4704	4826	
==>_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $lo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4704	4826	
==>_n($n+1, $m.clone(match => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3606	3786	
==>STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3606	3786	
==>STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_cont <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	565	669	
==>=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of sa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	565	669	
==>=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scientist's way of sa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	690	863	
==>xt.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack() <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	690	863	
==>xt.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack() <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1301	1458	
==>example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1268	1425	
==>example.com');
        $ftp->cwd($path);
        $ftp->binary;
        $ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4048	4173	
==>vents::Notification {
    has Class::Events::Subscription $.subscription;
    has Class::Events::Event $.event;

    method di <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5207	5336	
==>roclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5265	5394	
==>roclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4949	5053	
==>d get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4949	5053	
==>d get_set_names () returns Array of Str {
    return [@!set_names];
}

method get_member_names () returns <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5684	5869	
==>of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9161	9346	
==>of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) ret <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3207	3379	
==>on><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3207	3379	
==>on><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	925	1043	
==>widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %W <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	925	1043	
==>widget($/, %variables) }!;
    return $return;
}

## some basic widgets

sub new_widget($name, &sub) is export {
    %W <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9072	9198	
==>Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unles <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10549	10675	
==>Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unles <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20374	20507	
==>ipped} != 1 ? 's' : '')
                     . " skipped";
    }

    return $bonusmsg;
}

# Test program go boom.
sub _dubious_return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17929	18051	
==>, "$class->can(...)" );
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, $@);  # don't interf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37871	37973	
==>n module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37871	37973	
==>n module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4375	4488	
==>'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ 
        $<list> := ( [ <?p6ws>? <@Grammar::Perl6::s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	640	789	
==>turn { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	640	789	
==>turn { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> <==
2	/Users/nnunley/pugs/util/drift.pl	499	640	
==>{
        print TMP $_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b/data/;
    s/--.*$//;
    /\S/ or <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18544	18659	
==>ple.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2636	2845	
==>\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2636	2845	
==>\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1557	1685	
==>lement in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1557	1685	
==>lement in the path
        $current_path = @path.shift;
        # now check all the current tree's children
        # for a match <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6330	6469	
==>t      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     any     safe   (L <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13125	13221	
==>age.  All header field names prefixed with C<Content-> falls
into this category, as well as C<All <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13125	13221	
==>age.  All header field names prefixed with C<Content-> falls
into this category, as well as C<All <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6785	6908	
==>$pExp, $pNode) {
    (defined($pExp) ? DOWN($pExp) : "")."".DOWN($pNode); # XXX - Exp?
}

NODE PRawName ($pRawName) { "$pRaw <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5538	5654	
==>>",  !, p5_start(R), ")".
p5_elemental(lookahead(R))        --> "(?=",  !, p5_start(R), ")".
p5_elemental(lookahead_n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14485	14612	
==>ld not write available file: $@" ), return;
    
    my @alts = map { $_->to_struct } @{ $self->registered_alternatives };
    e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4930	5077	
==>nless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4942	5089	
==>nless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8247	8395	
==>" was ", _qq($orig->{$key}),
                     " now ", _qq($value), "\n";
        $fail = 1;
      }
    } else {
      print STDOUT "# key ", _q <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2181	2289	
==>EXT)';
}

sub setup_perl6_install {
    my $self = shift;
    my $libs = $self->get_pugs_config;
    $self->m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4135	4293	
==>ontinue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4135	4293	
==>ontinue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23482	23584	
==>t has no non-trivial
external dependencies (it is very simple).

There are other differences.  Where ot <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23482	23584	
==>t has no non-trivial
external dependencies (it is very simple).

There are other differences.  Where ot <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9078	9215	
==>mplement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9078	9215	
==>mplement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25723	25847	
==>tine returning a
normal scalar doesn't work quite right with a regex that's supposed to
update its target's C<pos()>.  This m <==
2	/Users/nnunley/pugs/util/run-smoke.pl	509	604	
==>l /some/sandbox/dir /some/www/file.html
#
my $pugs_sandbox    = $ARGV[0] or die "Need pugs sandb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26511	26636	
==>application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26790	26915	
==>application =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4841	4981	
==>tch_appender($r,$name) if $match_hack;
  push(@$aref,$r);
  $r;
}
sub def_token      { def_thing(\@tokens,1,@_) }
sub def_whitespace { def_th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15224	15325	
==>ression :words {  # see 11.7
      <AdditiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExpres <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	180	285	
==>odule::Install::Base);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMak <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	838	956	
==>res, $cur);
    }
    $res;
}


# copied from S29draft.pod 8651.
multi  List::reverse ( *@values --> Lazy|Str) {
    gi <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	435	535	
==>og);
my $t2 = times;
my $annotated = $r->annotate($c);
my $t3 = times;
my $res  = $r->emit($annotated <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1659	1780	
==>e;
    sub isa { our $AUTOLOAD = 'isa'; goto &AUTOLOAD; }
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33836	33930	
==>or user role's) preferences such that each says what
language they prefer to communicate in, an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33836	33930	
==>or user role's) preferences such that each says what
language they prefer to communicate in, an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16852	16948	
==>time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16852	16948	
==>time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModule>. On <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4592	4698	
==>sects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- com <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4592	4698	
==>sects( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- com <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	373	487	
==>ed from S29draft.pod 8651.
&join := &join.assuming:delimiter(' ');


# copied from S29draft.pod 8651.
multi  List:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2595	2701	
==>@_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2595	2701	
==>@_;
    my $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17147	17279	
==>erms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17147	17279	
==>erms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}", "__{$nick <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17867	17978	
==>.= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exis <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	450	563	
==>st->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return $dir->su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4179	4271	
==>p://dev.perl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.perl.org/perl6/doc/synopsis.htm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4140	4251	
==>= shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param lis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4347	4458	
==>= shift;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param lis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32963	33064	
==>de
is returned.  Here is the walk() method for all the quantifier and
'minmod' nodes:

  # star, plus, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1135	1242	
==>swer format, to explain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick refe <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1135	1242	
==>swer format, to explain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick refe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16922	17026	
==>media type.  When present, its value indicates what additional
encoding mechanism has been applied to the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16922	17026	
==>media type.  When present, its value indicates what additional
encoding mechanism has been applied to the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	571	666	
==>at keys should produce the same keystream and thus text 
should be enciphered and deciphered the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	571	666	
==>at keys should produce the same keystream and thus text 
should be enciphered and deciphered the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1941	2043	
==>:("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1941	2043	
==>:("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3123	3248	
==>outine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            prin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3587	3712	
==>outine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{package}):\n";
            prin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4385	4490	
==>er the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Return the "size" <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4385	4490	
==>er the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Return the "size" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3367	3469	
==>.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3367	3469	
==>.delete($name)>

Deletes the parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1088	1208	
==>t> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex na <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1088	1208	
==>t> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex na <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18935	19050	
==>ve).


=head1 struct regexp

  typedef struct regexp {

=head2 The regular expression:

  I32 prelen;             /* <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	820	923	
==>XX: with yaml precompilation, this may be bogus.
sub touch {
    # XXX: *ugly* hack! ghc doesn't spot th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6579	6690	
==>It may have been embedded in a core program file and hence
        # should never be loaded by translate_message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6579	6690	
==>It may have been embedded in a core program file and hence
        # should never be loaded by translate_message <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18467	18562	
==>can create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18467	18562	
==>can create an identical Node (with
child Nodes) to the one you first invoked export_as_hash() on <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2819	2928	
==>e" => "\e"
    ,"f" => "\f"
    ,"r" => "\r"
    ,"t" => "\t"
    ,"v" => unicode:"\x0a\x0b\x0c\x0d\x85\u2028\ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1759	1863	
==>n printing
    
If you omit the fprime, a second order centered difference is provided
as a curried defau <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5208	5332	
==>mar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => $<nam <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2295	2387	
==>Syntax Tree, and can be executed by a
runtime. An example runtime is L<Blondie::Backend::Perl <==
2	/Users/nnunley/pugs/util/combine_tests.pl	116	226	
==>map { YAML::LoadFile($_) } @ARGV;
#
#my $combined = combine_tests(@data);
#
#print YAML::Dump($combined);
print <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	296	399	
==>pos,$cap); my $v;
      { local($X::str,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2763	2995	
==>nstant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2774	3006	
==>nstant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2804	2910	
==>unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2997	3103	
==>unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $_[0], '$()' )  , <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4781	4934	
==>t 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4781	4934	
==>t 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $succ = [ $matche <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4258	4409	
==>b { # $val
                my $self = shift;
                (pop @{$self->get_value('@:slots')})->scalar_fetch;
            },

            'array_shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6428	6533	
==>ithin "._q($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: this isn't quite as fan <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13193	13304	
==>t;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	603	714	
==>t;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6372	6616	
==>{
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6372	6616	
==>{
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1575	1665	
==>@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<g <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1575	1665	
==>@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<g <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1167	1288	
==>bstr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6211	6312	
==>st');

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6537	6627	
==>is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11595	11685	
==>is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar->baz', '. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3096	3261	
==>turn;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2977	3133	
==>turn;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16755	16886	
==>e new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16755	16886	
==>e new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2547	2701	
==>$path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2547	2701	
==>$path {
                    #LWP::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7342	7446	
==>tain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7342	7446	
==>tain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4096	4212	
==>_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4096	4212	
==>_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7180	7315	
==>T_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7180	7315	
==>T_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12396	12523	
==>> sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6_as_num(${$_[0]}) },
      perl5_object => su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3979	4107	
==>pe (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3991	4119	
==>pe (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := (.*?)  
        $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2391	2487	
==>::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2391	2487	
==>::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	844	940	
==>ormally, they will be constructed as a series of events fired in by
something that C<.does(Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	844	940	
==>ormally, they will be constructed as a series of events fired in by
something that C<.does(Perldo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	893	1029	
==>=> 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	893	1029	
==>=> 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7133	7284	
==>ure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7133	7284	
==>ure1 }( &{ $closure2 }( $n2 ) );
            return $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1672	1812	
==>me,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1672	1812	
==>me,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_I <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	476	579	
==>ilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	476	579	
==>ilresult = $pilfh.readline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	32	138	
==>2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    us <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	32	138	
==>2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	376	478	
==>put_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	376	478	
==>put_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3161	3299	
==>ing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- position <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3345	3483	
==>ing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- position <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11415	11526	
==>t( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14892	15003	
==>t( $other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	658	771	
==>:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	658	771	
==>:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	426	530	
==>n map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	426	530	
==>n map &ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1133	1223	
==>ad1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1133	1223	
==>ad1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38432	38541	
==>, where each variable value is
substituted for any occurance of its corresponding variable name that is
bounde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38432	38541	
==>, where each variable value is
substituted for any occurance of its corresponding variable name that is
bounde <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5224	5376	
==>to);
    my $tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { requi <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	487	609	
==>.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with the taintedness of %ENV, this could perturbate tes <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4507	4608	
==>y $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	699	794	
==>= 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	699	794	
==>= 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dum <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11351	11458	
==>e "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11351	11458	
==>e "," is used as part of the syntax of a single
field value.

Examples:

 $header.header("MIME_Version") = ' <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	597	710	
==>lt;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $descripti <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	597	710	
==>lt;
}

$Test::Pil::Description = undef;

sub find_description ( Str $description ) returns Str {
  if ( $descripti <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7982	8106	
==>$rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq->fma <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5956	6070	
==>Start {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule Identi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2438	2611	
==>emp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2438	2611	
==>emp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3251	3355	
==>g(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relation's <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6728	6832	
==>g(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relation's <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4896	5012	
==>$start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4896	5012	
==>$start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20249	20348	
==>he program package.  No
recompilation necessary.  This is something that end users could do,
althoug <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20249	20348	
==>he program package.  No
recompilation necessary.  This is something that end users could do,
althoug <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4001	4132	
==>n PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4001	4132	
==>n PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compile <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18628	18728	
==>of these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Line <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18628	18728	
==>of these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Line <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9306	9445	
==>nt_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9306	9445	
==>nt_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1631	1754	
==>turn if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1631	1754	
==>turn if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20281	20373	
==>-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20281	20373	
==>-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header fiel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2998	3100	
==>ndom number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2998	3100	
==>ndom number.  (It will need to be sent to the other end along with 
the ciphertext, but it's safe to se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6291	6394	
==>tespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

T <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6291	6394	
==>tespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

T <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4590	4699	
==>tion this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config:: <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4590	4699	
==>tion this module
exports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config:: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10902	10998	
==>` must be set if this recurrence is a "universal set".
Otherwise the program will emit warnings d <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10902	10998	
==>` must be set if this recurrence is a "universal set".
Otherwise the program will emit warnings d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	199	284	
==>use Grammar; if slurp("'.$jsfile.'") ~~ /^<JavaScript::ECMAScript3::Grammar::Spec::Pro <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12374	12470	
==>gress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12374	12470	
==>gress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2154	2308	
==>re install
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninsta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38611	38715	
==>gle Relation::Example
in its C<$other> argument, where the heading of <$other> is a subset of the
heading <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25142	25277	
==>mily => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub visual { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12129	12226	
==>MPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12129	12226	
==>MPTY_STR);
}

my method _assert_arg_msg (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2625	2721	
==>back

=head1 API METHODS

These methods must be implemented by subclasses... though a default
imp <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2625	2721	
==>back

=head1 API METHODS

These methods must be implemented by subclasses... though a default
imp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10992	11098	
==>process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10992	11098	
==>process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21790	21886	
==>'>
}
rule ReturnStatement :words {  # see 12.9
      <'return'><no_LineTerminator_here><Expressio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6805	6936	
==>ext switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7269	7400	
==>ext switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_depends( $$entr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20602	20703	
==>st lines will
be expanded again.

Every bit of the default process described above is overridable by
v <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20602	20703	
==>st lines will
be expanded again.

Every bit of the default process described above is overridable by
v <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1176	1294	
==>{cc}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) {
        re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1115	1221	
==>{cc}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) {
		re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3269	3371	
==>.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::N <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3269	3371	
==>.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::N <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3912	4006	
==>riate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `n <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3912	4006	
==>riate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- `n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5133	5248	
==>tdir(split /\/+/, $_) ); }
} else {
    for(@t_dirs) { find(\&handle_t_file, $_); }
}

# reading synopses
infest_syn <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6722	6868	
==>} else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method titl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6722	6868	
==>} else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method titl <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	850	945	
==>ut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifyi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	850	945	
==>ut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifyi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3422	3513	
==>>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3606	3697	
==>>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-cla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11073	11169	
==>simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a contai <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11073	11169	
==>simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a contai <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5857	6020	
==>w ) {
            warn $@ if $@;
            next;
        }
        $self->{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, &{$new}($pk <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4955	5098	
==>name($_);
                    system( qq[ln -fs $_ $Alternatives/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4179	4310	
==>name($_);
            system( qq[ln -fs $_ $Alternatives/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4549	4672	
==>ing, duh!
            $inst_pkg = $inst->register( package => $self ) 
                or error("Could not register package" <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	140	247	
==>=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use Da <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	140	247	
==>=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use Da <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10466	10567	
==>e command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10466	10567	
==>e command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1335	1483	
==>k ( keys %$o ) {
                next if $k eq 'revision';
                return 0 unless defined $o->{$k};
                return 0 unless $first-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29769	29867	
==>ttribute by passing a value.

=item my $q = $obj->qr()

The regex representation of this object.  I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32449	32550	
==>elation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36999	37100	
==>elation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6813	6912	
==>NOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6813	6912	
==>NOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8948	9054	
==>andles newlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8948	9054	
==>andles newlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4 <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	441	567	
==>}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run so <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	560	677	
==>}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run so <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2058	2156	
==>>bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alia <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2058	2156	
==>>bind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alia <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10617	10729	
==>name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpol <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10775	10887	
==>name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpol <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27852	28007	
==>'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28131	28286	
==>'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	373	472	
==>agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskelles <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	373	472	
==>agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Haskelles <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2931	3110	
==>because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2931	3110	
==>because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11878	12017	
==>, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11878	12017	
==>, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2863	3121	
==>elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t => $t;
            }            
            
            # va <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8162	8270	
==>ory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_parent <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2065	2183	
==>";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  subm <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2065	2183	
==>";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  subm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5230	5334	
==>__" if $user_base;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_base;
  }

  return $c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	589	707	
==>orTable/)
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object->tokenTable({}) ;
  $object->ter <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22699	22796	
==>ant constraint on what fields can contain.

=head1 reganch

 REG_SEEN_GPOS

Confined to regcomp/re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3303	3417	
==>headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3303	3417	
==>headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return % <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3847	3963	
==>$span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3847	3963	
==>$span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my <==
2	/Users/nnunley/pugs/util/run-smoke.pl	627	731	
==>_location   = $ARGV[1] or die "Need HTML output file location";
my $optional_args   = $ARGV[2] || "";

my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9740	9838	
==>rn }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9740	9838	
==>rn }
method _tail() returns Array { return }

# What we implement for them.
method finish(Cipher $s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	208	306	
==>ly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYIN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1736	1834	
==>ly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYIN <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	454	554	
==>entally override things they didn't intend to.

# Determine which stack frame points to the code we a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	454	554	
==>entally override things they didn't intend to.

# Determine which stack frame points to the code we a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10860	11007	
==>umper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7617	7735	
==>ixity => 'infix',
  );

Pseudo-code for usage inside a grammar:

    sub new_proto( $match ) {
        return ${$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8071	8221	
==>ent_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8071	8221	
==>ent_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previou <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4180	4315	
==>s;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4180	4315	
==>s;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17483	17597	
==>e the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17483	17597	
==>e the /examples
directory of this distribution.  Or, see my dependent CPAN packages whose
problem domain is databas <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9609	9762	
==>r target, $I0, 1
    if $S0 != "?" goto end
    islazy = 1
    pos = $I0 + 1
    goto end
  quant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3734	3848	
==>ssed($_) && $_->isa('symbol'))
        || confess "You must store a symbol type in a param list"
            foreac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8093	8205	
==>_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'rout <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8093	8205	
==>_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'rout <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5067	5210	
==>rding to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I j <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5067	5210	
==>rding to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I j <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	323	445	
==>port (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.conn <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	323	445	
==>port (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.conn <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24183	24326	
==>asses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25949	26092	
==>asses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6878	6975	
==>d-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6878	6975	
==>d-since>, and checking the I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCO <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	530	656	
==>akemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemak <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	431	557	
==>akemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = shift;
    $self->makemak <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1116	1270	
==>ed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Ra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1116	1270	
==>ed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Ra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6312	6412	
==>s::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6364	6468	
==>strict 'refs'; my($varlist);local($vl2);($vl3)=($vl4);"
		 ."($varlist)$init; use strict;");
    }
    el <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	577	677	
==>) }
sub to_bit { (shift)->fetch == $nil::NIL ? bit->new(1) : bit->new(0) }

# methods

sub fetch { ${ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8072	8171	
==>5_modifier_spec_pos(L), !.
p5_modifier_spec_pos([m|L])  --> "m", p5_modifier_spec_pos(L), !.
p5_modi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9358	9534	
==>eturn;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9358	9534	
==>eturn;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' ) {
            warn "<$cm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9183	9283	
==>method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Cod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9183	9283	
==>method channel(Str $channel) { %!channels{normalize $channel} }

  method add_handler(Str $event, Cod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40381	40488	
==>e of any
changes, in addition to preserving this original copyright notice and other
credits. Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40381	40488	
==>e of any
changes, in addition to preserving this original copyright notice and other
credits. Locale::KeyedT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19174	19299	
==>=~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15595	15720	
==>=~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	649	736	
==>enamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	649	736	
==>enamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7039	7155	
==>the cipher itself; more often it is used by 
a block cipher mode role to add some information to the output.

A defau <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7039	7155	
==>the cipher itself; more often it is used by 
a block cipher mode role to add some information to the output.

A defau <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18073	18169	
==>then the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18073	18169	
==>then the
application can "do the right thing".  No parsing or ambiguity involved.
By contrast, if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1653	1786	
==>eop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1664	1797	
==>eop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        rule <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1151	1365	
==>\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax er <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1151	1365	
==>\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax er <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6341	6441	
==>e $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6341	6441	
==>e $event<object>;

    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5499	5637	
==>932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5499	5637	
==>932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15393	15519	
==>ion
      "-b" => "boot/grub/stage2_eltorito", # Set El Torito boot image name
      "-no-emul-boot",                     # Boo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5212	5348	
==>ble>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2754	2890	
==>ble>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1631	1727	
==>D ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1631	1727	
==>D ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25905	25999	
==>e of any changes, in
addition to preserving this original copyright notice and other credits.
R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25905	25999	
==>e of any changes, in
addition to preserving this original copyright notice and other credits.
R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6598	6706	
==>ing === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10075	10183	
==>ing === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5508	5676	
==>bug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5508	5676	
==>bug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7547	7651	
==>ies);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7547	7651	
==>ies);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12336	12433	
==>t>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12336	12433	
==>t>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	74	174	
==>e strict;
use warnings;

use Blondie::Nodes;

use Test::Deep;
use Test::Exception;

our @EXPORT = qw/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4111	4218	
==>t<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4111	4218	
==>t<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handl <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2035	2132	
==>x('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4 <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2035	2132	
==>x('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	597	703	
==>)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	597	703	
==>)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9828	9943	
==>and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wante <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11305	11420	
==>and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_by {
        my($wante <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21042	21140	
==>ed modules
will automatically be compiled into .pmc files and shipped with your
distribtution preco <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21042	21140	
==>ed modules
will automatically be compiled into .pmc files and shipped with your
distribtution preco <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40183	40286	
==>1 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40183	40286	
==>1 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23514	23616	
==>pendencies (it is very simple).

There are other differences.  Where other solutions take variables, th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23514	23616	
==>pendencies (it is very simple).

There are other differences.  Where other solutions take variables, th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9146	9305	
==>w( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9146	9305	
==>w( 
        closure_next =>        sub ($x) { $x == -1 ??  1 !! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        compleme <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7568	7699	
==>, -n               Show which tests would be run but don't run them
    --concurrent=N, -j      Run N test jobs concurrently (unavai <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1722	1843	
==>{
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub splice (@a is rw, $offset=0, $length?, *@list) is bu <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13111	13213	
==>m Unary Form

Implementations should create a suitable macro, or otherwise support the
unary form C<del <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10061	10211	
==>a) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        tak <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10061	10211	
==>a) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        tak <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2932	3042	
==>ich they were
present in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2932	3042	
==>ich they were
present in the query string is preserved.

=item C<$q.param()>

This exists as an alias for C<par <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6178	6306	
==>en && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6178	6306	
==>en && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5631	5732	
==>l::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5631	5732	
==>l::False if $.span.is_empty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25855	25957	
==>ars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names and values
th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25855	25957	
==>ars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names and values
th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3599	3749	
==>t')->write("Bail out!  $reason");
            exit 255;
        },
        'report_test' => sub {
            my ($self, $test) = @_;
            (bles <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	4	97	
==>e 1 "inc/Module/Install/Makefile/Version.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Inst <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2136	2233	
==>is

=head2 $strap->analyze( $name, \@output_lines )

  my %results = $strap->analyze($name, \@test <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3416	3530	
==>:False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3416	3530	
==>:False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1684	1821	
==>];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub splice (@a is rw, $offset=0, $ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1873	1967	
==>e currently
no support for match flags; regexes constructed with this module may cause
segfault <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5943	6049	
==>}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYN <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5943	6049	
==>}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYN <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8248	8372	
==>lize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8248	8372	
==>lize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4032	4131	
==>r) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4216	4315	
==>r) the rule 
belongs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5039	5187	
==>"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5039	5187	
==>"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => c <==
2	/Users/nnunley/pugs/util/run-smoke.pl	734	824	
==>smoke_upload     = PugsBuild::Config->lookup('smoke_upload');
my $smoke_upload_script = Fil <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3564	3662	
==>Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3564	3662	
==>Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 was still <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1220	1310	
==>PI.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simpl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1220	1310	
==>PI.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simpl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	321	443	
==>, Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	321	443	
==>, Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$m <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2093	2199	
==>octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.in <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2093	2199	
==>octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22693	22787	
==>pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22693	22787	
==>pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10373	10542	
==>\n" . 
                    # _emit_parameter_binding( $n->{signature} ) .
                    _emit( $n->{exp2} ) . 
                "\n }";
    }

    return _not_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1835	1926	
==>parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENS <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1835	1926	
==>parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENS <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1378	1472	
==>gs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1378	1472	
==>gs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7759	7877	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7952	8070	
==>rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], ' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	215	321	
==>e () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	215	321	
==>e () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents the 
n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12655	12755	
==>ode, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a bloc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12713	12813	
==>ode, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a bloc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3888	4001	
==>ment ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3888	4001	
==>ment ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6938	7072	
==>'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6938	7072	
==>'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.do <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22523	22634	
==>alue is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22523	22634	
==>alue is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Ros <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33693	33788	
==>nce (Relation $other!) returns Relation>

This method is a generic relational operator that take <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38243	38338	
==>nce (Relation $other!) returns Relation>

This method is a generic relational operator that take <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4060	4154	
==>etPropertyName ($O:) { $.property_name }
}
# 8.7.1
method GetValue (JSX::PsuedoValue $V) { $V } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5884	6002	
==>$_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Scalar')->new();
	$o->ASSIGN($_[0]);
	return $o <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6280	6385	
==>ect_repr_types.pod r8593.
multi method Array::as_int (@array:) returns Int {
    +@array;
}
# name from do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10622	10732	
==>if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10780	10890	
==>if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code interpolate <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11053	11172	
==>ar');   

## make instances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 12, '... $iBar is the sixth id');
is($iBa <==
2	/Users/nnunley/pugs/util/func_refact.pl	330	423	
==>or use -initial <fname>, possibly many times, to
specify the initial set. -except <fname> intr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	172	277	
==>s $.width;

has $!parent;
has @!children;

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	172	277	
==>s $.width;

has $!parent;
has @!children;

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	362	488	
==>ESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_li <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	362	488	
==>ESTROY {}'
    
  Tests:
    * overloading - ~ <=> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12658	12770	
==>rn $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6133	6245	
==>rn $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1895	2086	
==>capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2142	2333	
==>capture';
        
    rule before {
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1178	1292	
==>rammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1166	1280	
==>rammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7117	7300	
==>s, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7310	7493	
==>s, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quan <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6351	6458	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROO <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6351	6458	
==>eturns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1729	1882	
==>= $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1729	1882	
==>= $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Du <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3546	3653	
==>als{max} == $totals{ok});
    $totals{passing} = $passed ? 1 : 0;

    return %totals;
}


sub _analyze_line <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1030	1141	
==>ge Inf to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Dat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1030	1141	
==>ge Inf to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Dat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3987	4089	
==>::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3987	4089	
==>::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19955	20053	
==>atementList> <Statement>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_required> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	49	177	
==>trict;
use warnings;

## Define the basic interface for all types

# conversion to native
sub to_native;

# conversion to other n <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2271	2382	
==>onfig;
    $self->makemaker_args(
        INSTALLARCHLIB  => $libs->{archlib},
        INSTALLPRIVLIB  => $libs- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	163	276	
==>ode { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 20 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	163	276	
==>ode { <-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 20 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6357	6478	
==>) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if y <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6357	6478	
==>) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if y <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1905	2002	
==>ode (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic looku <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1832	1928	
==>ode (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic looku <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4231	4366	
==>eturn "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4371	4506	
==>eturn "bless {\n" . 
        "  grammar "  .  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29725	29820	
==>t returns a new Relation::Example
which has a subset of the original's attributes; that subset i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15092	15203	
==>ext) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $diges <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15092	15203	
==>ext) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $diges <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2925	3021	
==>nce, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2925	3021	
==>nce, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21665	21770	
==>Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> ". <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21665	21770	
==>Retrieves a channel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> ". <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14152	14301	
==>h ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14431	14580	
==>h ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1692	1794	
==>depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1750	1852	
==>depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1368	1479	
==>tial things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1368	1479	
==>tial things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # separate <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6778	6893	
==>t|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_single(@_);
    }
    my $meta = get_meta($cls);
    return $me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3999	4137	
==>xity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3999	4137	
==>xity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1119	1237	
==>ame) {
        require File::Copy;
        File::Copy::copy ($config_template, $filename) or
            die "copy: $!" <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24989	25098	
==>inal value.

Note that it is valid for a Relation::Example to have zero tuples.  It is also valid
for a Relati <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10797	10908	
==>et have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- ` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10855	10966	
==>et have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12055	12174	
==>} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12055	12174	
==>} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_c <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2125	2222	
==>x:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >> <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2125	2222	
==>x:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	886	989	
==>bset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	886	989	
==>bset/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3267	3370	
==>d | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignatur <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3267	3370	
==>d | submethod | regex | macro }

regex lexscope { my | our }

regex submodifer { multi }

rule psignatur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2979	3088	
==>( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2979	3088	
==>( "internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15418	15550	
==>NOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15418	15550	
==>NOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	26	137	
==>.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	26	137	
==>.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * open-set c <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9338	9519	
==>m + 1;
           }
           # want.Item
           0 ?? ([|] \@{$a}) !! $a }))";
        return $code;
    }
    # Use of Rul awaits working infix:<~~> .
    #'Rul.new(:f(sub($_s_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3389	3494	
==>v;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was particularly distur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3389	3494	
==>v;
}

method symmetric_difference($self: Set $other) returns Set {

    # this one was particularly distur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8435	8551	
==>xceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8435	8551	
==>xceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1448	1587	
==>\t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1448	1587	
==>\t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7577	7712	
==>able_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'man <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7577	7712	
==>able_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'man <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	4	106	
==>v6;

class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	4	106	
==>v6;

class Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9409	9580	
==>erence;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12886	13057	
==>erence;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	262	380	
==>$.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule:: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	262	380	
==>$.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35450	35548	
==>_names()>

This method returns all Member Names elements in this object as an array
ref.

=item C<a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35450	35548	
==>_names()>

This method returns all Member Names elements in this object as an array
ref.

=item C<a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1712	1861	
==>os;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1700	1849	
==>os;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	217	334	
==>ire => 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->submodules;
}

sub env {
    my $cl <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1683	1784	
==>an find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, yo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1683	1784	
==>an find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules look like, yo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2509	2613	
==>t;
		warn "reducing " . qprintable($node) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8361	8468	
==>d.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8361	8468	
==>d.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	46	296	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	46	296	
==>sed by packages in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3708	3875	
==>$str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3848	4015	
==>$str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $mat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20284	20383	
==>s to study.  As a result, while it performs correctly
and reliably, it also performs quite slowly; y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20284	20383	
==>s to study.  As a result, while it performs correctly
and reliably, it also performs quite slowly; y <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10093	10281	
==>/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10093	10281	
==>/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9854	9953	
==>section($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, to <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9854	9953	
==>section($set2)>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, to <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10803	10965	
==>} TODO test" . ($test{todo} > 1 ? "s" : "") . "\n")
            #    if $test{todo};  
            
            ## XXX - Begin Pugs addition
            # this add <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	350	466	
==>ELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	350	466	
==>ELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1652	1781	
==>het::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1792	1921	
==>het::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18559	18670	
==>d.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that the us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18559	18670	
==>d.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that the us <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Prim.pm	118	221	
==>nings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Prim - 

=head1 SYNOPSIS

	use Blo <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6372	6495	
==>0;
        }
    }
    $self->gather_results();
}

# the wait here is sequential rather than nonblocking / as-they-come, bec <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3305	3403	
==>is saved as --kernel-local.
  --grub-uri=$grub_uri
    mklivecd.pl automatically fetches a GRUB tar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27087	27191	
==>_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27087	27191	
==>_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1579	1707	
==>y $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, even i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1374	1500	
==>y $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is always required, even i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3069	3176	
==>lock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2960	3063	
==>lock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5006	5108	
==>ad2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5006	5108	
==>ad2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	348	481	
==>hod diag ( Str $message is copy )
    {
        push @:diagnostics, $message;
    }

    method output returns Str
    {
        # XXX <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	172	289	
==>new {
  my $class = shift;
  my $object = bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($ma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34000	34113	
==>e in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an iden <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38550	38663	
==>e in the invocant Relation but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an iden <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2181	2289	
==>g) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2181	2289	
==>g) = @_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1151	1246	
==>}
rule non_conjunction { <repetition> | <alias> | <simple_term> }

rule repetition  { <simple_te <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14128	14222	
==>ctions, as long as
C<%hash> doesn't change. 

If C<@keytests> are provided, only elements whose <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5442	5559	
==>ame, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $v <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5727	5844	
==>ame, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16204	16318	
==>dified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16204	16318	
==>dified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header fiel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6411	6545	
==>{
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6411	6545	
==>{
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_w <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	670	781	
==>: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark run <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	670	781	
==>: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchmark run <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3091	3199	
==>ks);

    # $base now contains the directories the resulting relative path
    # must ascend out of before it <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3091	3199	
==>ks);

    # $base now contains the directories the resulting relative path
    # must ascend out of before it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31868	31968	
==>ample the first library generates an error
message and wants it shown to the user, the main program w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31868	31968	
==>ample the first library generates an error
message and wants it shown to the user, the main program w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1820	1919	
==>tself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1820	1919	
==>tself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpret the <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	105	194	
==>n.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	105	194	
==>n.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7261	7409	
==>\n   List      pre     split   safe   (Str, Str)\
\\n   List      pre     split   safe   (Str, Str, Int)\
\\n   List      pre     split   safe   (Pug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	242	496	
==>RINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	242	496	
==>RINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16412	16512	
==>ther!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19889	19989	
==>ther!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	643	744	
==>tch->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_file = IO::Fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	643	744	
==>tch->{tail});
my $code = Perl6Grammar::emit($match->{capture});

# Write down
my $output_file = IO::Fi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	231	315	
==>.'") ~~ /^<JavaScript::ECMAScript3::Grammar::Spec::Program>$/ {say "ok"}else{say "not <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12609	12806	
==>"$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12603	12800	
==>"$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TO <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	258	374	
==>ive (@ARGV) {

    ### the path to install to... distilled from the archive name
    ### XXX maybe metainfo name late <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5608	5712	
==>nce.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5608	5712	
==>nce.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5324	5446	
==>t_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5324	5446	
==>t_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.cl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4957	5105	
==>}
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4957	5105	
==>}
        else {
            # In here, we are within the specified number of times.  
            if $minimal {
                &continue($match.clo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1710	1802	
==>value encapsulation features.

They are discussed in the main L<Blondie> documentation.

=cut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	863	968	
==>"Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	863	968	
==>"Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local stash
	$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3176	3273	
==>overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in som <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3063	3158	
==>overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in som <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1070	1170	
==>m is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to combi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1070	1170	
==>m is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to combi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1550	1710	
==>} } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(st <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1550	1710	
==>} } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(st <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1602	1702	
==>irectory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 v <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1602	1702	
==>irectory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13494	13602	
==>turns the list of distinct names for the fields present in the
header.  The field names have case as suggeste <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13494	13602	
==>turns the list of distinct names for the fields present in the
header.  The field names have case as suggeste <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1513	1665	
==>{ 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1451	1599	
==>{ 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3580	3678	
==>pture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[characte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3764	3862	
==>pture]
 $var := <rule>
 <(closure-assertion)> <{code-returns-rule}>
 <<character-class>> <[characte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1584	1792	
==>t( "alnum" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1599	1712	
==>n $obj;
}

=head2 $struct = $meta->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26246	26344	
==>y
defined and non-empty string, and each variable value can be anything at
all.  Note that while th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26246	26344	
==>y
defined and non-empty string, and each variable value can be anything at
all.  Note that while th <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2130	2243	
==>= time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2130	2243	
==>= time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9595	9711	
==>s return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar valu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9595	9711	
==>s return a logical value. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar valu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	291	438	
==>me};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	291	438	
==>me};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5070	5185	
==>:str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     inste <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5292	5407	
==>:str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     inste <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	686	782	
==>lete $ENV{HARNESS_ACTIVE};
}

# Some experimental versions of OS/2 build have broken $?
my $Ignor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1465	1563	
==>xity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for many p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1465	1563	
==>xity.

=head3 Procedural interface

The Cipher API's procedural interface is good enough for many p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19269	19400	
==>or.
This should never happen.  Please contact the author immediately.
Here's the error.
$@
WHOA
            }
        }
        elsi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8893	9007	
==>rot"), ldd($bash)} = (); @libs = keys %l },
    help   => <<HELP;
      We use 'ldd' to read the list of shared lib <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11551	11669	
==>?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11551	11669	
==>?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6640	6774	
==>sh"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6640	6774	
==>sh"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4586	4732	
==>zy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  su <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4586	4732	
==>zy => Bool::False );
    }

    method from_coro ( $class: $start ) {
        my $size = Inf;
        $class.new(
                    cstart =>  su <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2787	2897	
==>same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2787	2897	
==>same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11989	12092	
==>oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $inpu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11989	12092	
==>oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example, this:

 $inpu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6559	6660	
==>html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6559	6660	
==>html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25315	25410	
==>sophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25315	25410	
==>sophy/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6179	6279	
==>truct_equiv)->val;
}

sub reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_na <==
2	/Users/nnunley/pugs/util/package-osx.pl	2098	2188	
==>local/lib/perl5/site_perl/Perl6 /Library/Perl/5.8.6/Perl6/
        /usr/local/lib/perl5/sit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5975	6104	
==>= shift;
    join "-", $self->{data}[0]->qr, $self->{data}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	466	620	
==>es($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	466	620	
==>es($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	666	766	
==>Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	666	766	
==>Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27238	27343	
==>n,$_)}@$A];
    my $from = $len-$npos;
    my $to = $from + length($str);
    MatchX->new()->set(1,$str,$c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7478	7580	
==>>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7478	7580	
==>>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %user <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1416	1542	
==>tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1427	1553	
==>tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_group = 
    ruleop::concat(
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4579	4720	
==>cedence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__->add_rule( 
        name => ';',
        assoc => 'list',
        pre <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	286	388	
==>:STD];

use base 'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	219	345	
==>ssed';

use base 'type::equivalence';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name) 
        || confess "Y <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3402	3498	
==>variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3586	3682	
==>variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-cl <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3474	3638	
==>ns<$_>.members }
                    # FIXME look at superclass subscriptions too
                }
            }
        }
    
        method notify (String $name, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3784	3890	
==>le->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	345	435	
==>List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List h <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	345	435	
==>List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List h <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10926	11051	
==>gin Pugs addition
            # this addition prints out the differnt TODO types
            foreach my $todo_type (keys %todo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2257	2440	
==>' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2462	2645	
==>' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs);
        },         
        'name' => sub ($) {
            ::opaque <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2512	2610	
==>ever really good at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2637	2735	
==>This rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interf <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2637	2735	
==>This rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1226	1341	
==>y $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1226	1341	
==>y $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11554	11714	
==>e
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11554	11714	
==>e
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5802	5932	
==>b tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5802	5932	
==>b tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3074	3168	
==>lf.difference($other).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3074	3168	
==>lf.difference($other).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4566	4675	
==>right => $self->right->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	map { $_->free_v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	58	149	
==>ges in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	671	774	
==>but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	671	774	
==>but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37294	37387	
==><semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41843	41936	
==><semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	127	253	
==>D($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	127	253	
==>D($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes( <==
2	/Users/nnunley/pugs/util/package-osx.pl	4461	4558	
==>man3/Perl6::Bible::S01.3pm
        /usr/local/man/man3/Perl6::Bible::S02.3pm
        /usr/local/ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1624	1745	
==>\%hash ) or error( Params::Check->last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18200	18296	
==>ds for the user, such as
'error opening file', programs would have a harder time figuring out the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18200	18296	
==>ds for the user, such as
'error opening file', programs would have a harder time figuring out the <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1926	2025	
==>'superclasses')) { # roles don't have subclasses
        foreach my $superclass (@{$class->superclas <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9769	9854	
==>--> p5_charset_item(class_neg(_)), {!, fail}.
p5_charset_range_x(B) --> p5_charset_ite <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12304	12403	
==>y as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12362	12461	
==>y as well.

- `eval_ok (Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6475	6593	
==>rogram, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6475	6593	
==>rogram, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1241	1405	
==>n { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1190	1349	
==>n { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5425	5529	
==>response when it has been received.
method client_date ($self: )         is rw { $self!date_header('Clien <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5425	5529	
==>response when it has been received.
method client_date ($self: )         is rw { $self!date_header('Clien <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2347	2547	
==>n =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2347	2547	
==>n =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Boo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10264	10371	
==>d $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- ` <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10264	10371	
==>d $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22694	22796	
==>possibly useful details, so
that each Template can optionally use them; but often a template will
choos <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22694	22796	
==>possibly useful details, so
that each Template can optionally use them; but often a template will
choos <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2464	2592	
==>s;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4052	4180	
==>s;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9989	10143	
==>y --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparator);

 multi Array: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1203	1338	
==>y --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Comparator) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	994	1130	
==>fic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	994	1130	
==>fic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	220	323	
==>n) returns Duration {
    $self.new($self.length - $duration.length);
}

#method infix:<->($self: Durati <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2140	2237	
==>ress::Bzip2::memBzip(shift) };
  eval { require Compress::Zlib; debug "Gzip compression on\n" } an <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9904	10023	
==>endency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar g <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11381	11500	
==>endency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar g <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2163	2263	
==>e qw/qprintable/;

	use Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAG <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7388	7487	
==>'begin')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' directive) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7388	7487	
==>'begin')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' directive) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3445	3547	
==>ext itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3445	3547	
==>ext itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17495	17596	
==>time with the right data.

=item *

Ability to ship precompiled modules without shipping Module::Compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17495	17596	
==>time with the right data.

=item *

Ability to ship precompiled modules without shipping Module::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16456	16555	
==>easily and without a recompile (such as by simply
copying files), often even while the program is ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16456	16555	
==>easily and without a recompile (such as by simply
copying files), often even while the program is ex <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16495	16604	
==>r setting their I/O handles to autochomp
instead of this step.


=item lc

 multi Str::lc         (  Str $stri <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8330	8571	
==>$template->param(directories => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $templat <==
2	/Users/nnunley/pugs/util/func_refact.pl	2457	2587	
==>{$cand}}, 
                         # total callees for func
          , union(Storable::dclone($ccset), $cand)];  # new contributi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	59	153	
==>RSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	59	153	
==>RSION = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	269	399	
==>(:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	269	399	
==>(:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12635	12731	
==>th encoding and decoding of strings with HTML
character entities.  The module provides the follow <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12635	12731	
==>th encoding and decoding of strings with HTML
character entities.  The module provides the follow <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2095	2205	
==>'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc et <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2095	2205	
==>'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc etc et <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2691	2807	
==>next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2691	2807	
==>next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.start;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6167	6384	
==>) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6167	6384	
==>) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6013	6121	
==>_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6013	6121	
==>_previous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	228	365	
==>l::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	228	365	
==>l::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2149	2249	
==>msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2149	2249	
==>msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_k <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2719	2835	
==>_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_n <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2719	2835	
==>_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7721	7812	
==>ccess_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1546	1637	
==>ccess_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14676	14793	
==>r example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14676	14793	
==>r example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $transla <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2510	2640	
==>/index';              # index file for the repo

### be strict from here on down
{   use strict;

    ### parse package names easil <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25330	25412	
==>X,amat(C0,flgs(X,B,C,D,E,F,G,H,I,J))).
set_flag_m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5165	5309	
==>tions ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.ce <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5165	5309	
==>tions ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.ce <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1406	1520	
==>form it into an object
    if( $obj->can('depends') ) {
        $obj->depends( 
            JIB::Dependency->new_fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1838	1945	
==>}
}


{
  # . \C
  package Regexp::Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub ne <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12690	12800	
==>ent "chunks" of data, such as date objects without the time part.

Discrete spans take a "units" specifier, whi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12690	12800	
==>ent "chunks" of data, such as date objects without the time part.

Discrete spans take a "units" specifier, whi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30350	30457	
==>eally comes as part of a set, at least one member
large, with each set member being an an exclusive alternat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30350	30457	
==>eally comes as part of a set, at least one member
large, with each set member being an an exclusive alternat <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4569	4669	
==>ry report and
a how long it all took.

It returns true if everything was ok.  Otherwise it will C<die <==
2	/Users/nnunley/pugs/util/testgraph.pl	200	288	
==>ns \our %Config, qw(inlinecss|e cssfile|c=s help|h);
$Config{cssfile} ||= Test::TAP::HTML <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6696	6817	
==>, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6696	6817	
==>, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => 'M' } ],
            [ 'scalar_data_ty <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5936	6038	
==>ap->[-1]) }
sub hlp_oper { def_operator($X::cap->[-3],$X::cap->[-2],$X::cap->[-1]) }

my $x1 = def_stmt <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3930	4039	
==>n;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_univ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3930	4039	
==>n;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurrence => $.recurrence.get_univ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4563	4819	
==>e-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4563	4819	
==>e-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie heade <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1976	2086	
==>e, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.prope <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1976	2086	
==>e, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.prope <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2457	2585	
==>^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whate <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2457	2585	
==>^[^\\/]});
    $vol ~= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whate <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	50	167	
==>t $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	50	167	
==>t $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33809	33905	
==>s to
an individual user's (or user role's) preferences such that each says what
language they pre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33809	33905	
==>s to
an individual user's (or user role's) preferences such that each says what
language they pre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6280	6395	
==>0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6280	6395	
==>0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13983	14101	
==>h them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13983	14101	
==>h them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scal <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	721	817	
==>1 NAME

Blondie::Prelude::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::Prelude::IO <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8861	8996	
==>0),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8861	8996	
==>0),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2064	2178	
==>(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|H <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2064	2178	
==>(?:\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|H <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14318	14519	
==>next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$res <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14318	14519	
==>next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$res <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16430	16530	
==>r a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16430	16530	
==>r a scalar value.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27914	28099	
==>,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28193	28378	
==>,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1713	1803	
==>]->to."'/ge;
	$expr =~ s/\@\-/\".join(" ",\$m->from,map{\$_->from}\@\$m).\"/g;
	$expr =~ s/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5943	6051	
==>fix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::Grammar::Ternary::hash,
    );
    $cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1139	1282	
==>> $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# spec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1139	1282	
==>> $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# spec <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1314	1414	
==>mpiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1314	1414	
==>mpiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9270	9373	
==>mpty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9270	9373	
==>mpty;
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $spa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11357	11468	
==>encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11357	11468	
==>encode) returns Str>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9609	9748	
==>$.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9609	9748	
==>$.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8593	8718	
==>chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8593	8718	
==>chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr(8839),
    "oplus"    => chr(8853),
    "otimes"   => chr(8855), <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14223	14330	
==>l chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for examp <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14223	14330	
==>l chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for examp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4162	4261	
==>ns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4162	4261	
==>ns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the match o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15411	15543	
==>char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15405	15537	
==>char classes are not inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15357	15518	
==>p6_as_hash {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_hash_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handle <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11963	12044	
==>octdigits_int(C), p6_oct_chars_more(char(C),R).
p6_oct_chars_more(Rc0,conc(R,char( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5353	5485	
==>negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5353	5485	
==>negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_previous }( -$x ) }, 
        clo <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1111	1265	
==>= duration($/[1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15758	15897	
==>pen $tmpfile: $!";

    # VMS adjustments
    if( $^O eq 'VMS' ) {
        $prog =~ s#/dev/null#NL:#;

        # VMS file locking
        $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9388	9495	
==>yle message headers.
The headers consist of attribute-value pairs also called fields, which
may be repeated, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9388	9495	
==>yle message headers.
The headers consist of attribute-value pairs also called fields, which
may be repeated, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3285	3419	
==>> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3285	3419	
==>> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8042	8199	
==>niverse;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8042	8199	
==>niverse;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24076	24218	
==>atements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24355	24497	
==>atements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             rul <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2474	2576	
==>or use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this mod <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2474	2576	
==>or use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object support, this mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24238	24354	
==>=~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20659	20775	
==>=~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2277	2408	
==>med 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2288	2419	
==>med 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	133	241	
==>e is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	133	241	
==>e is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!children;

## ------------------------ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21219	21344	
==>pressionNoIn>? <';'> <Expression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationListN <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2172	2295	
==>:Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varhash>)\{$<key>:=(<term1>)\}
        { return { access_has <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1135	1238	
==>method end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1] <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1135	1238	
==>method end_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	690	836	
==>e"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Si <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	690	836	
==>e"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Si <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	263	374	
==>ED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = () }
sub res <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	263	374	
==>ED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = () }
sub res <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3759	3877	
==>tem runs Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3624	3738	
==>tem runs Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10034	10152	
==>>inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->data->emit; # reach down into quant below.
    sub <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39900	40008	
==>tional operator that takes
another Relation::Example as its C<$other> argument and combines it with the
invoc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8051	8142	
==>--------------------------------------------------------
## utility methods

# NOTE:
# Occas <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8051	8142	
==>--------------------------------------------------------
## utility methods

# NOTE:
# Occas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15917	16113	
==>urn named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15911	16107	
==>urn named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18630	18746	
==>b page
     contains the link that the user followed to the current
     page.  Most browsers pass this information a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18630	18746	
==>b page
     contains the link that the user followed to the current
     page.  Most browsers pass this information a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3966	4062	
==>sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: St <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3966	4062	
==>sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_string ($self: St <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19510	19620	
==>ot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19510	19620	
==>ot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13353	13464	
==>'(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13353	13464	
==>'(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8804	8913	
==>_CALL;
    } else {
      fprintf(stderr,"api UNKNOWN violation\n"); exit(0);
    }
    fprintf(stderr,"hook_r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10093	10241	
==>ther {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10093	10241	
==>ther {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12501	12822	
==>$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=en <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12501	12822	
==>$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16639	16756	
==>) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13060	13177	
==>) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5307	5520	
==>ail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5307	5520	
==>ail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                l <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21102	21206	
==>d shipped with your
distribtution precompiled. This means that people who install your
module distribtuti <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21102	21206	
==>d shipped with your
distribtution precompiled. This means that people who install your
module distribtuti <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4617	4713	
==>t.complement );
}

# --------- arithmetic and list operations ----------------

method grep ($set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4617	4713	
==>t.complement );
}

# --------- arithmetic and list operations ----------------

method grep ($set <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	926	1021	
==>ufficient to permit recommencing writing a grammar for perl6.
  This will likely be pure p5/prol <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16401	16506	
==>uldn't open pipe to \"$bin -V:pugs_version\": $!\n";
  my $rev = <$fh>;
  $rev =~ s/^.*?: //g;

  return $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24839	24927	
==>(E0,-,E1), !.
set_flag(E0,m,E1)  :- set_flag_m(E0,m,E1), !.
set_flag(E0,-m,E1) :- set_fla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12636	12829	
==>)/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12636	12829	
==>)/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	730	827	
==>]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	730	827	
==>]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2295	2434	
==>elimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  => ( $extracted ne '' ),

        match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2206	2341	
==>elimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  => ( $extracted ne '' ),
        match <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11971	12087	
==>pat))" if($o->{'flags'} & $o->flag_val_i);
      my $ok = substr($X::str,$X::pos) =~ /\A($pat)/;
      FAIL() if !$ok <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	22099	22199	
==>g to compile $file ...";
    system($*EXECUTABLE_NAME~" -CParse-YAML $file > $file.yml");
    say "ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7598	7689	
==>head3 Fatal Errors

B<If there is a compilation-stopping error>, $parser->errmsg will return <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4052	4147	
==>s => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4052	4147	
==>s => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        univers <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23531	23627	
==>same-named accessor method can be used to see if a Relation-doing object
can mutate.  Depending o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28083	28179	
==>same-named accessor method can be used to see if a Relation-doing object
can mutate.  Depending o <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	180	288	
==>e.

=over

=item *

A method's Code property usually has a single invocant typed to the
Role it is attached t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4857	5016	
==>t should it be if multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4857	5016	
==>t should it be if multiple matching
                        #      Set-Cookie headers have different versions themselves
                        if (!$set_ver++ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8949	9043	
==>multi method union (Relation::Example $other!) returns Relation::Example {

    die "The headin <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6378	6571	
==>structure:<if>'),
                App->new(
                    Sym->new('&infix:<<=>'),
                    Sym->new('$n'),
                    Val->new(1),
                ),
                V <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	61	173	
==>'_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	61	173	
==>'_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9917	10020	
==>yExtractor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1132	1233	
==>yExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5260	5386	
==>0;
}

=item B<_globdir>

  my @files = _globdir $dir;

Returns all the files in a directory.  This is shorthand for backwards
c <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	409	504	
==>6::Rx;

rule flag_parsetree   { <':parsetree'> }
rule flag_exhaustive  { <':exhaustive'> | <':ex <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2930	3033	
==>r $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "- <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2930	3033	
==>r $sep = "-") returns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3003	3123	
==>rse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3481	3601	
==>rse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	605	788	
==>es  dependency_satisfied   dependency_satisfied_by               
        ];


$Cwd            = cwd();
$Pms            = '_jib';                           # meta dir
$Root           = <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	538	645	
==>1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4)) !!
		-(int(abs($x) + 0.5)) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25080	25167	
==>!.
set_flag(E0,-x,E1) :- set_flag_x(E0,-,E1), !.
set_flag(E0,_,E0).
set_modifiers_from(E <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2562	2668	
==>"\n\n>;
    close OUT;

    print STDERR "done.\n" if $Config{verbose};
}

# concatenate source files. hard <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2959	3040	
==>09\x20\xa0\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	84	189	
==>t {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	84	189	
==>t {
    my ($from, $chan) = $event<from rest>;
    ./debug("Got an invitation from \"$from\" to join chann <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9041	9151	
==>ths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9041	9151	
==>ths operator
  my $sym_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1039	1133	
==>r %TEXT_STRINGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7630	7778	
==>ined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7630	7778	
==>ined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11721	11807	
==>line(T).
rest_of_line([]).


p6_octidecimal_escape_sequence(X) --> "\\0", p6_oct_spec(X <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3697	3952	
==>e

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Transl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3697	3952	
==>e

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::KeyedText::Transl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14966	15061	
==>ore function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15024	15119	
==>ore function is_deeply.
The plan currently is to implement this as a mutually recursive multi-
s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1375	1485	
==>ersed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1375	1485	
==>ersed for your filter:

    package MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" b <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10962	11064	
==>1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10962	11064	
==>1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17386	17486	
==>ter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17386	17486	
==>ter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3673	3797	
==>{$self->{levels}};
        $s = $s . "    *$equal = Pugs::Compiler::Rule->compile( '" .
            _quotemeta( emit_perl6_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5884	6019	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6077	6212	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escap <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	29	168	
==>sung"
given $monster {
	when Monster::Schläft { lauf_weg();  }
	when 'hungrig'   { werfe('steak'); }
	when .füttert     { schleiche_vorbei <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20842	20945	
==>ac OS) handles
lots of other program resources as data files as well, making them easy to
upgrade.

Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20842	20945	
==>ac OS) handles
lots of other program resources as data files as well, making them easy to
upgrade.

Loca <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4345	4454	
==>dl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4345	4454	
==>dl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7783	7884	
==>0] >> 8 };
}
else {
    *_wait2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $fi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16330	16430	
==>) },
      perl5_object => sub { $as_p6obj_complain->("perl5_object"); $_[0] }, # XXX - what's right? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3118	3256	
==>opt->{other}) 
                : 0 
             } @{$self->{levels}[$level]} ) {
            #print "pos $level at $opt->{precedence} $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6218	6333	
==>ipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not necessary if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6218	6333	
==>ipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not necessary if <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1959	2066	
==>inds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2839	2946	
==>inds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1609	1753	
==>],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the followin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1544	1681	
==>],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the followin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1106	1240	
==>else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1109	1233	
==>else { say "not ok 1" }
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2466	2592	
==>uccessful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2466	2592	
==>uccessful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1586	1735	
==>ude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1381	1528	
==>ude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10610	10831	
==>me.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = un <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10610	10831	
==>me.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = un <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1225	1447	
==>ds on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### un <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15162	15302	
==>ring 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

for $n (eg $1 => n=1), 1<=n<=nparens,
star <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3608	3727	
==>>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitpar <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3608	3727	
==>>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitpar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1009	1165	
==>rt {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merged = 0;
    return if $self->omit;
    push @$tree, $self;
    $self->merge;
  }

  su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2131	2306	
==>ers on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2131	2306	
==>ers on the
                           # channel, etc. Note: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channe <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3799	3919	
==>lti method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $s <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1899	2019	
==>lti method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10766	10940	
==>def;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10766	10940	
==>def;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11076	11222	
==>hod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11076	11222	
==>hod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3333	3424	
==>rl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3333	3424	
==>rl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^H <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1303	1422	
==>rns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &jo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4007	4108	
==>) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.sca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4007	4108	
==>) { $self.as_string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.sca <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8807	8910	
==>eturn (mob)
 err_noclose:
    parse_error(mob, pos, "Missing closing braces for closure")
    .return (m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5047	5144	
==>hift;
	$self->{defined_nodes}->includes($node);
}

sub reduce_thunk {
	my $self = shift;
	my $node <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1096	1246	
==>)>,  but it
has its own combinator because it stores captures differently.  Instead
of creating another level of arrays in the captures, it simply does <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1096	1246	
==>)>,  but it
has its own combinator because it stores captures differently.  Instead
of creating another level of arrays in the captures, it simply does <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9272	9400	
==>ldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9272	9400	
==>ldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4093	4214	
==>lt;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4093	4214	
==>lt;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle heade <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	466	718	
==>'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	466	718	
==>'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15601	15695	
==>6_object($x);
    $x->as_perl5_whatever();
}

my $as_p6obj_complain = sub { Carp::carp("p6_perl <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2288	2389	
==>ript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<F <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2288	2389	
==>ript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<F <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3294	3387	
==>ace::print_ast,
		print_program => $interface::print_program,
		print_match => $interface::pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3511	3604	
==>ace::print_ast,
		print_program => $interface::print_program,
		print_match => $interface::pri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2425	2602	
==>_dir'}        = [ Path::Class::dir('root-') ];

### package files/extensions
$config{'meta_ext'}         = [ '.info' ];
$config{'meta_file'}        = [ META => sub { $_[1] . $_[0 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	236	387	
==>re elegant, and not blow it away every go
{   system( qq[rm -rf $Root] )                                  and die $?;
    system( qq[mkdir -p $Meta $Sit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11197	11287	
==>b ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11197	11287	
==>b ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secure?, $maxage?, $discard? <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13302	13411	
==>de_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $st <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13302	13411	
==>de_entities( $string, \%entity_to_char, $allow_unterminated )

This will in-place replace HTML entities in $st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34208	34304	
==>anslator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This method c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34208	34304	
==>anslator constructor method:

=over

=item C<new( :@set_names!, :@member_names! )>

This method c <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1259	1389	
==>/([\[\]])/) {
#	    print "\\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process <==
2	/Users/nnunley/pugs/util/drift.pl	891	1013	
==>up, "$in.tmp"
);

my @program = do { <$rh> };
waitpid($pid, 0);
exit unless @program;

# Rearrange the DrIFT header
@progra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15996	16093	
==>ocument itself.

=item $h.last_modified

This header indicates the date and time at which the reso <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15996	16093	
==>ocument itself.

=item $h.last_modified

This header indicates the date and time at which the reso <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9974	10163	
==>& Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11451	11640	
==>& Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1928	2059	
==>Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $conten <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1928	2059	
==>Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $conten <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16644	16757	
==>c         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after converting each character to it's <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17066	17179	
==>c         ( Str $string = CALLER::<$_> --> Str )

Returns the input string after converting each character to it's <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8317	8427	
==>$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8305	8415	
==>$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( <==
2	/Users/nnunley/pugs/util/func_refact.pl	2535	2636	
==>(Storable::dclone($ccset), $cand)];  # new contributions
        #print "$cand: totall $cands{$cand}[0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4029	4188	
==>e->get('&dispatcher')->do());
            })->do_while(
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$cu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1765	1869	
==>Perl single bit (allows traits, aliasing, etc.)
    Int         Perl integer (allows traits, aliasing, et <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13790	13947	
==>')));
                return $e->get('$self');                  
            }
        )
    )
);

=pod

method CREATE (opaque $class: str $repr, hash %params <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2411	2518	
==>{$name} = $path;
}

sub write_config_module {
    my $config = get_config();
    my $template = do { local $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2036	2144	
==>ase 'Blondie::Node::Unit';

    package Blondie::App;
    use base 'Blondie::Node::List';

    package Blondi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3930	4035	
==>>catdir(split(/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_base/mg;
    close MAK <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5398	5569	
==>t we already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### Th <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5862	6033	
==>t we already
                    ### had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5248	5403	
==>ch2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5248	5403	
==>ch2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3874	3986	
==>ject(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8528	8630	
==>kage' is checked for instead of 'Module' since all types of
    # packages share the same namespace; an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8528	8630	
==>kage' is checked for instead of 'Module' since all types of
    # packages share the same namespace; an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	127	232	
==>:Str;

package symbol;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use ba <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35361	35456	
==>e> simply returns True or False regardless of its
argument, in which case the new Relation::Exam <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2579	2700	
==>ile1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3015	3136	
==>ile1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "1st line\n2nd line <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15690	15782	
==>tied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15690	15782	
==>tied in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_cl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	892	1006	
==>SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[pu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	892	1006	
==>SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[pu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	772	872	
==>r meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1256	1356	
==>r meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19219	19326	
==>e timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19219	19326	
==>e timestamp of the
last autoping.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3143	3268	
==>\n" if $inblock;
#    print "}";
    close STDOUT;
}

#    my ($fname) = @_;
#    print "processing $fname...\n";
#    my $fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1407	1496	
==>Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1407	1496	
==>Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4520	4637	
==>se_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4520	4637	
==>se_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9139	9284	
==>if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9127	9272	
==>if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7958	8080	
==>\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1;
    }

    my $stringify = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27453	27552	
==>x10 });

This makes 'u' a valid flag for your regex, and creates the method
C<FLAG_u>.  This doesn't <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4357	4577	
==>node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4357	4577	
==>node? = undef,
            Str                      :$node_type!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3726	3852	
==>oto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3784	3910	
==>oto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when loading $module: $!", <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14995	15089	
==>mmon programmatic interface (API), called
the Rosetta Native Interface (RNI), which application <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14995	15089	
==>mmon programmatic interface (API), called
the Rosetta Native Interface (RNI), which application <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17989	18089	
==>e uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have references <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17989	18089	
==>e uses the
same Engine class to implement it; that is, multiple DBMS objects will not
have references <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3564	3675	
==>L::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3564	3675	
==>L::PIL @.args;
    submethod BUILD () {
        type_check map { $_.vtype, 'Expression' }, $.code, @.args;
    } <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7925	8063	
==>f $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an er <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7925	8063	
==>f $REQUEST_METHOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an er <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	62	174	
==>t @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	62	174	
==>t @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.k <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	396	500	
==>r cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all bytes are ch <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	396	500	
==>r cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all bytes are ch <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1419	1526	
==>ser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, In <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1419	1526	
==>ser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, In <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1417	1571	
==>ucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1417	1571	
==>ucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in the p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12495	12618	
==>t),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (run <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12495	12618	
==>t),
    };

    if %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (run <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1846	1993	
==>urn FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsb <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1846	1993	
==>urn FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self -> $section {
            # XXX doesn't work because of a pugsb <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7611	7705	
==>and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementati <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7611	7705	
==>and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default implementati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17634	17832	
==>E, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14055	14253	
==>E, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5832	5953	
==>tr $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9309	9430	
==>tr $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        heading => $heading,
        body = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7228	7330	
==>eak the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7228	7330	
==>eak the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3610	3789	
==>E => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3610	3789	
==>E => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	753	857	
==>ume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	753	857	
==>ume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpath(join( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15822	15937	
==>y @so;
  local $_;
  
  open my $ldd, "-|", "ldd", $bin or die "Couldn't open pipe to \"ldd $bin\": $!\n";
    while <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18008	18106	
==>ine class to implement it; that is, multiple DBMS objects will not
have references to each other at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18008	18106	
==>ine class to implement it; that is, multiple DBMS objects will not
have references to each other at <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23670	23799	
==>my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20091	20220	
==>my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1936	2050	
==>in;

    # merge both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19099	19215	
==>= new .Hash
    $P0 = new .Iterator, reps
  reps_1:
    unless $P0 goto reps_2
    $P1 = shift $P0
    $P2 = reps[$P1 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10205	10330	
==>-> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10205	10330	
==>-> $sibling {
        ($sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1502	1627	
==>@result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8448	8591	
==>my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8448	8591	
==>my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4933	5115	
==>le'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5126	5308	
==>le'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{ca <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3048	3156	
==>rt> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3048	3156	
==>rt> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2507	2631	
==>TR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> :: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2507	2631	
==>TR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> :: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5314	5419	
==>::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5129	5230	
==>::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15882	15981	
==>_lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely use <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20115	20214	
==>_lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6421	6526	
==>od referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6421	6526	
==>od referer ($self: ) is rw {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1459	1552	
==>nal) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1459	1552	
==>nal) role parameter C<public> is set to a true value,
C<Net::IRC::SeenExt> installs a public c <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11428	11542	
==>e_" . lc(Scalar::Util::blessed($node));
    
    $self->can($type)
        ? $self->$type($node)
        : $self->g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4628	4735	
==>eturn @result.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4628	4735	
==>eturn @result.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11917	12037	
==>ck to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11917	12037	
==>ck to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the serve <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2596	2768	
==>b { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use constant ISA_JIB_INSTALLATION
                            => sub { UNI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6067	6152	
==>s{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6067	6152	
==>s{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($even <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7405	7536	
==>rl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7405	7536	
==>rl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7664	7757	
==>sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1489	1582	
==>sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element(@_) };
push @st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1763	1879	
==>rk
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1763	1879	
==>rk
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acute accent
    "Ucirc" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12680	12836	
==>{ '*' }
    elsif ($min == 1 and $max eq '') { '+' }
    elsif ($min == 0 and $max == 1) { '?' }
    elsif ($max ne '' and $min == $max) { "{$min}" }
    els <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3659	3752	
==>1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Editi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3659	3752	
==>1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Editi <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2398	2515	
==>hat the user can maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2398	2515	
==>hat the user can maybe 
    # do something else to recover
    $self.set_results(@results);
}

sub get_result ($self:) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5743	5872	
==>tch2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitializ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5743	5872	
==>tch2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitializ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28074	28178	
==>TCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy) { \
	     SV_CHECK_THINKFIRST_COW_DROP(rx->saved_co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28280	28378	
==>elation
which is the same as the invocant Relation but that some of its attributes
have been combin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32832	32930	
==>elation
which is the same as the invocant Relation but that some of its attributes
have been combin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7787	8026	
==>it( $n->{method} ) .
                '(' .
                join ( ",\n", 
                    map { _emit( $_ ) } ( $n->{self}, $n->{param} )
                ) .
                ')';
        }
            
        # normal methods o <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3430	3598	
==>(:node<Module>).add_children(
                        Tree.new(:node<Class>)
                    ),
                ),
                Tree.new(:node<Trait>).add_childre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15428	15525	
==>osetta incorporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15428	15525	
==>osetta incorporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2087	2188	
==>docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|htt <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2087	2188	
==>docs/AES/>. You might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|htt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1325	1429	
==>e?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1325	1429	
==>e?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str <==
2	/Users/nnunley/pugs/util/package-osx.pl	3598	3704	
==>an3/v6.3pm
        /usr/local/man/man3/Perl6::API.3
        /usr/local/man/man3/Perl6::API.3pm
        /usr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3182	3362	
==>..5 for some reason
        \:?     # $:x
        [
            [ \:\: ]?
            [ _ | <?alnum> ]+
        ]+
    |   <before \< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16223	16326	
==>'s Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *subst <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20649	20752	
==>'s Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct reg_substr_data *subst <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	864	970	
==>l packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	864	970	
==>l packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1296	1411	
==>xes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation --> array concatenati <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1296	1411	
==>xes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation --> array concatenati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4621	4804	
==>tate: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4621	4804	
==>tate: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	713	834	
==>:str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	713	834	
==>:str( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6767	6904	
==>turn $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simpl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6767	6904	
==>turn $.current if $.current != Inf;
            undefine $.current;
        }
    }
    method previous ($self: ) {
        # TODO - simpl <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3869	3991	
==>{verbose};
        $module =~ s#::#/#g;
        print $ofh "\n};\n%*INC<${module}.pm> = '<precompiled>';\n\n";
        # (t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17637	17732	
==>y $pair = comb(
	fun => $half_pair,
	param => val(v => "foo", t => type::operator::nullary->new( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2546	2663	
==>eaders.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2546	2663	
==>eaders.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	899	1044	
==>cktrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	899	1044	
==>cktrack;
    has $.marks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply a <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	188	287	
==>e" to "fail" when "fail" is implemented.

# Input a string containing a rpn expression.
# Return the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	411	566	
==>d    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	411	566	
==>d    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22608	22735	
==>(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19029	19156	
==>(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\\{}]+ | \\. | { (??{ $nest }) } )* ]x;
    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16505	16638	
==>EEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15561	15684	
==>EEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7556	7662	
==>ents the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a ref <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7556	7662	
==>ents the "splat" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a ref <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1733	1855	
==>:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1733	1855	
==>:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28269	28429	
==>et( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28548	28708	
==>et( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            % <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16199	16308	
==>ing); the optional named parameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it de <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16199	16308	
==>ing); the optional named parameter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7331	7440	
==>d returns any pending data.  Block 
ciphers should buffer input data until they have an entire block, then cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7331	7440	
==>d returns any pending data.  Block 
ciphers should buffer input data until they have an entire block, then cip <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	937	1064	
==>None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	937	1064	
==>None Yet)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machi <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	889	994	
==>ription );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	889	994	
==>ription );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3374	3479	
==>ything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I like per-user d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3255	3357	
==>ything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I like per-user d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4236	4366	
==>>[$i],$pairs->[$i+1]);
        push(@fields,$fname);
        $field_type{$fname} = $ftype;
    }
    my $self = {
        name => $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5280	5403	
==>rray: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1767	1862	
==>class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1767	1862	
==>class Perl::Compiler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	152	250	
==>E

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateT <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	152	250	
==>E

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateT <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14165	14283	
==>a->[1]->data->[1][0]->emit if @{$o->data->[1]->data} > 1;
    sub {
      my $c = $_[0];
      my $v;
      { local($X: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2696	2814	
==>logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hd <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2696	2814	
==>logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3153	3265	
==>,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3153	3265	
==>,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $v <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9495	9603	
==>span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9495	9603	
==>span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method complement ($self: ) returns List of Spa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22044	22188	
==>e]
    $P0["isarray"] = 1
    isarray = 1
  reps_1:
    reps[cname] = self
    self["isarray"] = isarray
  
  next_cname:
    $S0 = substr cname, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5587	5722	
==>0 goto term_bx3
    $S0 = substr target, pos, 1
    if $S0 != $S2 goto err_close
    inc pos
  term_bx3:
    if isnegated goto term_char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7558	7744	
==>)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7558	7744	
==>)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4176	4285	
==>$name, @$mods );
    }
    return $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	826	918	
==>>new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) >= 0  ? bit->new(1) : bit->n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9393	9503	
==>\")";
}

package PIL::PIL1CPerl5::Util::Hacks;
sub pil_diff {
    my(@c01)=@_;
    for(@c01) { s/ /\n/g; s/\n*\ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15856	16027	
==>= Time::Local.new(
            year    => @tm[0],
            month   => @tm[1],
            day     => @tm[2],
            hour    => @tm[3],
            min     => @tm[4] <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	373	504	
==>eme     is Char;
class CodePoint    is Char;
class Byte         is Char, Number;

macro LChar () { "LanguageChar" }
macro Grf   () { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13395	13500	
==>``(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13395	13500	
==>``(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,} <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9931	10065	
==>pkg;

    return $self->{ghc_pkg} = $ghc_pkg;
}


sub fixpaths {
    my $self = shift;
    my $text = shift;
    my $sep = File::Spec-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4019	4194	
==>l5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to clea <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4019	4194	
==>l5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to clea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1974	2072	
==>graphy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1974	2072	
==>graphy> by Bruce Schneier, or most 
cryptography resources written in the last ten years or so.

=h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9508	9632	
==>$secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9508	9632	
==>$secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %h <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16668	16774	
==>loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16668	16774	
==>loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38671	38766	
==>World!".  All
occurances of any given variable name will be replaced, non-recursively,
and any " <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38671	38766	
==>World!".  All
occurances of any given variable name will be replaced, non-recursively,
and any " <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4756	4866	
==>system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4756	4866	
==>system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1150	1389	
==>" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5645	5794	
==>hes[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5645	5794	
==>hes[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $con <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1722	1851	
==>phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::St <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1722	1851	
==>phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1110	1224	
==>il,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1121	1235	
==>il,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12117	12233	
==>c = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12117	12233	
==>c = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2969	3078	
==>ake this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2969	3078	
==>ake this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6311	6409	
==>butes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6311	6409	
==>butes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6813	6947	
==>" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6825	6959	
==>" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unless $match->{bool};
    my $p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27733	27822	
==>");
is(t($length_and_first_p), "(int × int)", ":t length_and_first [1]");
is(t($length_an <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	115	222	
==>clude Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	115	222	
==>clude Span::Code in Span.pm API
    * document that stringify doesn't show all elements  '
    * set_start / <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6055	6159	
==>$Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10312	10416	
==>$Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22369	22475	
==>urn unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22648	22754	
==>urn unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12691	12821	
==>ngth target
    charlist = ""
    mob["isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8203	8311	
==>ontents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

O <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8203	8311	
==>ontents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

O <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18472	18628	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18751	18907	
==>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7609	7721	
==>els>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7609	7721	
==>els>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $even <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1408	1510	
==>ave to be insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1408	1510	
==>ave to be insane to use this for anything more than obscuring text from 
accidental viewing.  (rot13 in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26106	26218	
==>gs;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $on, $off) = @_;
    my $sel <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6053	6166	
==>s primitive is safe is builtin {$r.f.($x)}


sub rx_common_($hook,%mods0,$pat0,$qo,$qc) is builtin is safe {
    s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4892	5030	
==>pan ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4892	5030	
==>pan ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16462	16643	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16741	16922	
==>:p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $captur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4577	4856	
==>s only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: Wha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4577	4856	
==>s only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: Wha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	500	606	
==>ialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	500	606	
==>ialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15693	15787	
==>d in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15693	15787	
==>d in this case).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	778	894	
==>);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	778	894	
==>);
    $!content = $content;
}

multi submethod BUILD () {
    $!headers = HTTP::Headers.new();
    $!content = "";
} <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1472	1574	
==>l programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Fu <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1472	1574	
==>l programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	172	318	
==>> \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	172	318	
==>> \&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13030	13129	
==>$set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.inter <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13030	13129	
==>$set2>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.inter <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18264	18366	
==>e if it is possible to use the regexp
struct as a new api into the guts of the perl core, to permit the <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1320	1417	
==>patch (which includes attribute
lookup as well as method lookup, as attribute fetching is actually <==
2	/Users/nnunley/pugs/util/package-osx.pl	271	363	
==>s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/bin/remove-$1.pl";

my (%symlinks, %change_file <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11564	11680	
==>$c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # nprop (not a unicode prop <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	539	680	
==>nk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Control - 

=head1 SY <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2175	2363	
==>p[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2175	2363	
==>p[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spa <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8680	8812	
==>i Array::join (@values,   Str $delimiter --> Str )
 multi  List::join (Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3002	3144	
==>r( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to another dir
        
        ### toss out <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4478	4563	
==>e_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p5 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1082	1216	
==>);
    $local_env->next($env);
    bless {
        sig  => $signature,
        body => $body,
        env  => $local_env
    } => $clas <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5030	5127	
==>de>
Many thanks to: Michael Hartmann <michael.hartmann\@as-netz.de>
USAGE

GetOptions(
  "kernel-u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17568	17675	
==>> val(10),
);

# a fully constructed pair, with a = int and b = str
my $pair = comb(
	fun => $half_pair,
	pa <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	871	968	
==>d1 DESCRIPTION

This module provides a Perl interface to use the B<libpcre> library for
regular ex <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1771	1948	
==>[$i];
            } else {
                pop @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies
    # to each event. <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12784	12894	
==>X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18340	18454	
==>_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14761	14875	
==>_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->obje <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	418	632	
==>ift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1 <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	418	632	
==>ift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6080	6186	
==>e headers
are returned as one long string.

=item List Context

All headers are returned split into the res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6080	6186	
==>e headers
are returned as one long string.

=item List Context

All headers are returned split into the res <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1380	1499	
==>on is mutable or not;
        # depending on the implementing class, it can default to True or 
        # False, but onc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4858	4976	
==>on is mutable or not;
        # depending on the implementing class, it can default to True or
        # False, but onc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12909	13091	
==>ew(
                              symbol->new('$class:'   => 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol->new('% <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11933	12041	
==>l Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11933	12041	
==>l Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@root_nodes? )>

This me <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2829	2937	
==>(-e 'MANIFEST') {
        warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
        return $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5208	5313	
==>stered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5208	5313	
==>stered them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1846	1949	
==>infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1846	1949	
==>infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8278	8393	
==>q normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8278	8393	
==>q normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7136	7284	
==>cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7136	7284	
==>cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            retu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1230	1362	
==>re_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1230	1362	
==>re_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    method run($i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2928	3038	
==>s, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Example object:
    has Set of <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	766	855	
==>url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	653	740	
==>url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4681	4830	
==>"-", $id;
            my $version = ( @a > 1 && $a[-1] =~ /^[0-9]/ ? $a[-1] : '' );
            return 'package ' . $a[0] .
                ( $vers <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8048	8159	
==>}
	}
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}


package PIL::PIL1CPerl5::Unparse_CPerl5;
sub r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6389	6521	
==>ar name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6377	6509	
==>ar name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return cons <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38076	38170	
==>undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38076	38170	
==>undefined value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2272	2409	
==>te} = $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2199	2329	
==>te} = $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2112	2220	
==>: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_wi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2112	2220	
==>: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_wi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3045	3216	
==>inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3220	3346	
==>ew( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infini <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3220	3346	
==>ew( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infini <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11711	11828	
==>syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11769	11886	
==>syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&infix:<gt>` is currently <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18742	18878	
==>e,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  rm_repeat_max(Re,N1,Fx,F1,Bx,B1,Ex,E1).
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9195	9315	
==>where does this recursion arise?
	my $v2 = recurse($v);
	$v2 = "\"$v\"" if $k eq 'posName' && $v2 !~ /\A\"/;
        push <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	685	784	
==>recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	685	784	
==>recurrence set where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20607	20706	
==>ge files specific to the program
in the order you chose so to pick a supported language closest to y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20607	20706	
==>ge files specific to the program
in the order you chose so to pick a supported language closest to y <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15083	15228	
==>f string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. * <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19258	19403	
==>f string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digit works forever. * <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8816	8934	
==>regex);

Again, $ok will be false if a fatal error was raised in the inital scan
of the regex.

=head2 Getting the Tree <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4526	4626	
==>nherits Unit.

=item Stub

A node that makes the runtime throw a fatal error. Used for thunks that ca <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	331	429	
==>d our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple time <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	389	487	
==>d our FORCE_TODO tests
$Test::force_todo_test_junction;

# for running the test suite multiple time <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26318	26423	
==>at
all.  Note that while the Hash itself is copied on input and output, any
variable values which are refe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26318	26423	
==>at
all.  Note that while the Hash itself is copied on input and output, any
variable values which are refe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1165	1311	
==>ubmethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1165	1311	
==>ubmethod BUILD () {
        $.capture_num //= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	419	562	
==>ub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $self)->new(map { &$f($_) } @$self);
	}

	sub values { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	328	588	
==>es used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	328	588	
==>es used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3786	3965	
==>ode, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3786	3965	
==>ode, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	947	1193	
==>xample

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	947	1193	
==>xample

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained reference <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6351	6466	
==>Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6351	6466	
==>Str $type {
      $self!header("Content-Type", $type);
    });
}

method referer ($self: ) is rw {
  return Proxy.ne <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2506	2598	
==>-----------------------------------------
## getting children

method get_child ($self: Int $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2506	2598	
==>-----------------------------------------
## getting children

method get_child ($self: Int $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14353	14476	
==>g, \$how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1427	1523	
==>y have
  bought fairly simple code with tolerable performance.

However, pugs critical path is cu <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	562	705	
==>h -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	562	705	
==>h -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	91	241	
==>RI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	91	241	
==>RI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24668	24770	
==>cense, or (at your option) any later version.  You should have received a
copy of the GPL as part of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24668	24770	
==>cense, or (at your option) any later version.  You should have received a
copy of the GPL as part of th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5913	6018	
==>t $n->rep_type;
        my $type = $n->{'type'};
	my $pkg_this = "${pkg_root}::$name";
	my $pkg_type = "${ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17067	17187	
==>not be possible if its
functionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17067	17187	
==>not be possible if its
functionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any o <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17985	18116	
==>lf, $line, $type, $totals) = @_;

    warn "Test header seen more than once!\n" if $self->{_seen_header};

    $self->{_seen_header} <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3455	3579	
==>[1][0] );
    }	
    elsif $tree[0] eq '"VStr"' {
        $ret = emit_Str( $tree[1][0] );
    }	
    elsif $tree[0] eq '"VRat <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9191	9303	
==>et - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_superset = $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9191	9303	
==>et - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc operators
  my $is_proper_superset = $se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1659	1788	
==>|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <de <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1659	1788	
==>|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34905	35081	
==>flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      type => 'and',
      raw => '&',
      branch => 1,
    }, $class;
    return $self;
  }

We inh <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21801	21899	
==>g(xdigit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(class_pos(ascii)     ,C) :- !,    i <==
2	/Users/nnunley/pugs/util/importgraph.pl	2956	3040	
==>g->as_canon("importgraph.dot");
#$g->as_png("importgraph.png");
$g->as_ps("importgrap <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11915	12013	
==>ned.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be used <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11915	12013	
==>ned.

As for the header() method, the field name ($field) is not case
sensitive and '_' can be used <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8272	8374	
==>ion is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<st <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8272	8374	
==>ion is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=item I<st <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11845	11943	
==>$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor... fun() instead of fun->new()
	( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	858	955	
==>d1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>

=head1 SEE ALSO

L<Carp::Assert>

=cut

1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27071	27228	
==>constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27350	27507	
==>constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6306	6408	
==>users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.dele <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6306	6408	
==>users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.dele <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1386	1494	
==>ncapsulation of a single value and a type.

C<Val> is a type of unit because it encloses one value, and has a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2144	2262	
==>HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2144	2262	
==>HTTP::Query.new();
    
    $q.parse_params('foo=bar&baz=quux');
    
    my $params = $q.params();
        # or `$q.pa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	226	334	
==>urceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$se <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	226	334	
==>urceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$se <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4830	4932	
==>`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGH <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4830	4932	
==>`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGH <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	232	336	
==>??

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	232	336	
==>??

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continuatio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5531	5714	
==>x:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5531	5714	
==>x:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8566	8689	
==>alize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8566	8689	
==>alize($curnick)) {
      $curnick = $event<object>;
      debug "Changed nick to \"$event<object>\".";
    }

    my $oldnic <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6541	6647	
==>EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6541	6647	
==>EVENTS

=head2 Document Events

=over 4

=item I<start_document>

This event is fired when a '=pod' directi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	151	260	
==>soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	151	260	
==>soon...
my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2327	2439	
==>$todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2385	2497	
==>$todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2573	2667	
==>on of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($da <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2573	2667	
==>on of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse_params($da <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5678	5790	
==>ed;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5678	5790	
==>ed;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1319	1420	
==>s called with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ER <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1319	1420	
==>s called with zero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ER <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11098	11248	
==>}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11098	11248	
==>}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	926	1069	
==>ig and the meta object
    {   my $config  = JIB::Config->new;
        my $meta    = JIB::Meta->new( 
                            file => File:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14891	14987	
==>w( :density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14891	14987	
==>w( :density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" s <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	786	996	
==>or -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	786	996	
==>or -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashify (Str $spec is copy) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27593	27738	
==>onstant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27872	28017	
==>onstant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3422	3573	
==>x_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3422	3573	
==>x_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12079	12206	
==>nd => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12079	12206	
==>nd => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9730	9827	
==>d difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9730	9827	
==>d difference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empt <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	410	542	
==>GRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	410	542	
==>GRAM_NAME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1046	1265	
==>,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ruleop::constant( "\@" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8038	8156	
==>basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8038	8156	
==>basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1580	1720	
==><object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1580	1720	
==><object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( ' <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	326	448	
==>_->bootstrap($VERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1584	1695	
==>nk";
my $bash         = "/bin/bash";
my $inputrc      = "/etc/inputrc";
my $terminfo     = "/etc/terminfo/l/linu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20091	20206	
==>'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20370	20485	
==>'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6743	6896	
==>e {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6743	6896	
==>e {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node-> <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4949	5058	
==>p /^-DPUGS_HAVE_PARROT$/, @_;

    # system($ar, r => $a_file, $_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreac <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1776	1901	
==>es
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1776	1901	
==>es
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15042	15154	
==>and -M $dest <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  descr  => "Creating final ISO imag <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21376	21470	
==>on written to it should easily port
to alternative relational database engines with minimal eff <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21376	21470	
==>on written to it should easily port
to alternative relational database engines with minimal eff <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11465	11594	
==>$m->set_as_failed if FAILED($v);
        $v;
      }LET;
    }
  }
}
{
  # ) closing
  package Regexp::Parser::close;
}
{
  # ) fo <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7067	7191	
==>l chunks completed.\n";
}

sub run_test {
    my $self = shift;
    my $test = shift;
    my @rest = @_;
    my $kid  = $self <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	884	1067	
==>y $self = shift;
    if ($self == $TRUE) {
        return $FALSE;
    }
    else {
        return $TRUE;
    }    
}

sub and : method {
    my ($self, $block) = @_;
    (blessed($bloc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4874	5014	
==>$got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got)."\n",
                       "# expected $type "._q($expect <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	112	214	
==>is true, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	112	214	
==>is true, is continues. If
it is false, it backtracks.

=cut

method assertion ($assert) {...}

=pod

C< <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4737	4848	
==>e implemented as a runtime primitive.' .
                'No, Blondie will not have church integers any time soo <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4417	4514	
==>for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date object <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4417	4514	
==>for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date object <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1624	1735	
==>fess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1829	1940	
==>fess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4086	4222	
==>tch_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4086	4222	
==>tch_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2345	2484	
==>dren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## -------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2345	2484	
==>dren ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## -------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1836	1941	
==>l { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: St <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1836	1941	
==>l { $self!header($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: St <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16451	16650	
==>o get heading >$heading<\n";

                my $h = $sobj->look_down( _tag  => 'div', 
                                          class => qr/^h\d$/,
                                          name  = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1267	1376	
==>oin (Str $delimiter ; *@values) returns Str {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	381	486	
==>e DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	381	486	
==>e DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16608	16738	
==>the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type eq 'text/html' {
    # we enter this p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16608	16738	
==>the empty
string is returned.  This makes it safe to do the following:

  if $h.content_type eq 'text/html' {
    # we enter this p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	607	744	
==>s:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set memb <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4085	4222	
==>s:
    # (None Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set memb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4093	4241	
==>W = 0;
        local($@,$!);   # don't interfere with $@
                        # eval() sometimes resets $!
        $pass = eval "\$got $type \$exp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5243	5358	
==>e;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5243	5358	
==>e;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14433	14558	
==>r fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the string, the result
will use cas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14433	14558	
==>r fields as a formatted MIME header.  Since it
internally uses the C<scan> method to build the string, the result
will use cas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1274	1391	
==>od parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1274	1391	
==>od parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $chunk ~~ m:P5/^(\w+ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9834	9925	
==>gative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersection <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9834	9925	
==>gative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersection <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10079	10187	
==>1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- ` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10079	10187	
==>1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- ` <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3149	3283	
==>en /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This shoul <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3149	3283	
==>en /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This shoul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4937	5045	
==>s?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4937	5045	
==>s?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_nod <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6361	6494	
==>> chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6361	6494	
==>> chr(977),
    "upsih"    => chr(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8642	8745	
==>$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #uns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8630	8733	
==>$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       #uns <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1375	1480	
==>t concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Co <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1375	1480	
==>t concatenation --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Co <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	102	221	
==>ufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section 1.1

su <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	103	214	
==>ufmann Publishers, Copyright 2005 by Elsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 8 section <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1164	1255	
==>erl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

clas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1164	1255	
==>erl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

clas <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3198	3308	
==>o, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, b <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3198	3308	
==>o, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, b <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	700	815	
==>s export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	700	815	
==>s export
{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1531	1644	
==>od, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1531	1644	
==>od, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3492	3600	
==>expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3492	3600	
==>expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7843	7939	
==>e::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7843	7939	
==>e::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5053	5184	
==>$.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5053	5184	
==>$.set.spans {
        my $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18461	18571	
==>of_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14882	14992	
==>of_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11562	11683	
==>wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<read <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11562	11683	
==>wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self<read <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10887	11048	
==>g to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $re <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10887	11048	
==>g to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5341	5448	
==>() {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5341	5448	
==>() {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_ty <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7040	7189	
==>tors/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.L <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5541	5690	
==>tors/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.L <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4518	4669	
==>ncrement the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $mul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4518	4669	
==>ncrement the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $mul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8234	8347	
==>nt {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8234	8347	
==>nt {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1616	1734	
==>}
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2396	2514	
==>}
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	824	919	
==>\{ [ <block> | <-[}]> | \\\\\} ]* \} ))->code;

*mod = Pugs::Compiler::Token->compile(q( \: <rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1146	1242	
==>y %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1146	1242	
==>y %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2769	2887	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2962	3080	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5761	5888	
==>s) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => ' <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2950	3072	
==>CheckTail {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $file1,  "1st line\n" ],
      [ 'file2',  $file2,  "1st lin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	541	720	
==>'),
            ),
        ),
    ),

    '&infix:<*>' => Thunk(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_ap <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1330	1423	
==>turn $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values'}{'sign'} = ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5022	5139	
==>val($code) || die "$@";
  }   
  sub mk_ignore_this_node {
    my($o)=@_;
    my $noop = $o->noop;
    sub{my $c = $_[ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26575	26673	
==>ponential is this pattern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15990	16083	
==>ong with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15990	16083	
==>ong with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note t <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2478	2639	
==>($size > (my $orig = $self->array_fetchSize)){
                    $self->array_extendSize($size - $orig);
                } else {
                    $#{$self-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	717	818	
==>l with Inf and NaN
    return str->new((shift)->to_native() . '');
}

# implement comparitor method

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16570	16676	
==>f there is no such header field, then the empty
string is returned.  This makes it safe to do the following <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16570	16676	
==>f there is no such header field, then the empty
string is returned.  This makes it safe to do the following <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12891	12990	
==>e paramter type of the function is free
fun: generic($$) = {
	my $t_of_param = type($$)->left;
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9512	9617	
==>ssor methods.
Rosetta::Model does not declare any subroutines or export such.

The usual way that Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9512	9617	
==>ssor methods.
Rosetta::Model does not declare any subroutines or export such.

The usual way that Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18551	18678	
==>sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14972	15099	
==>sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11555	11646	
==>html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @ac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11555	11646	
==>html, text/plain, image/*";
 $header.header("Accept") = <text/html text/plain image/*>;
 @ac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19166	19271	
==>) or init_header() methods to set the referrer.

=item $h.www_authenticate

This header must be included a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19166	19271	
==>) or init_header() methods to set the referrer.

=item $h.www_authenticate

This header must be included a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5574	5673	
==>tion.  If you need that information you should use the full OO
interface (see L<LWP::UserAgent>).

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5574	5673	
==>tion.  If you need that information you should use the full OO
interface (see L<LWP::UserAgent>).

= <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	912	1038	
==>strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" ! <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	912	1038	
==>strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2671	2795	
==>fined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2671	2795	
==>fined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6531	6637	
==>:split_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6531	6637	
==>:split_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4500	4653	
==>/[[:alnum:]]$/ 
                && defined $$m->{tail}
                && $$m->{tail} =~ /^[_[:alnum:]]/ 
            ) {
                #print "mismatch <==
2	/Users/nnunley/pugs/util/claim_drift.pl	377	486	
==>.pl

our ($FS) = ($Config{sitelib} =~ /([\/\\])/)
       or die "Can't determine file_sep";

GetOptions \our % <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8203	8338	
==>cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(876 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8203	8338	
==>cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(876 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21784	21913	
==>),
            param => val(0),
        ),
    ),
);

my $fac_5 = comb(
	fun => $fac,
	param => val(5),
);

my $length_and_first = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2359	2481	
==>unction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2359	2481	
==>unction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7030	7156	
==>X - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7030	7156	
==>X - wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7568	7756	
==>rbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7568	7756	
==>rbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	615	720	
==>ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	615	720	
==>ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, te <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8095	8210	
==>=@_;
	$s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g;
	$s = "'$s'";
    };

    return "" if $kind eq 'SubPrim' && $name =~ /E <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40713	40807	
==>n
the format string for sprintf().

=over 4

=item $parser->warn(RPe_ERRMSG, ARGS...)

Throws a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2238	2334	
==>gs);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args->{NAME} <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1344	1439	
==>gs);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args->{NAME} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	313	431	
==>any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	313	431	
==>any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless defined $pos;   # TODO - .*? $mat <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2491	2588	
==>des are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that co <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2491	2588	
==>des are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that co <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	547	637	
==>IPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Hask <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	547	637	
==>IPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Hask <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1700	1792	
==>ertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaint <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1700	1792	
==>ertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the plaint <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18144	18246	
==>e
Interface, if at all.  To account for situations where multiple DBMS
objects want to use the same ext <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18144	18246	
==>e
Interface, if at all.  To account for situations where multiple DBMS
objects want to use the same ext <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4243	4374	
==>ture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4255	4386	
==>ture one-or-more digits
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3942	4039	
==>/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3942	4039	
==>/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher::Arcfou <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9443	9561	
==>pan0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9443	9561	
==>pan0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21644	21753	
==>o the context in which they are using your package.  One
can override simply by using the same key code with a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21644	21753	
==>o the context in which they are using your package.  One
can override simply by using the same key code with a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52129	52298	
==>);
                  }));
                $e->get('$identifier');
            }
        )
    )
);

## ------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	527	630	
==>num->new(0));
    (blessed($inv) && $inv->isa('opaque'))
        || confess "The invocant must be an opa <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2670	2776	
==>y $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRI <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2670	2776	
==>y $q = join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25747	25856	
==>meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25747	25856	
==>meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_var <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5177	5275	
==>and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the document <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5177	5275	
==>and exported) by this module:

=over 3

=item get($url)

The get() function will fetch the document <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1947	2044	
==>st be a list";
    my $params = $self->{sig}->params;
    ($args->length()->less_than_or_equal_to( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7276	7369	
==>$content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7276	7369	
==>$content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2836	2949	
==>oductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2836	2949	
==>oductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8174	8522	
==>k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8174	8522	
==>k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syn <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4906	4997	
==>- spaces permitted around **
p6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2485	2596	
==>tall = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $c <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2485	2596	
==>tall = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    push @to_install, glob("src/*");

    my $c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15448	15541	
==>a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15448	15541	
==>a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5696	5802	
==>if ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5696	5802	
==>if ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)% <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3164	3272	
==>eturn $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3164	3272	
==>eturn $result.set;
}

method compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $sel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5678	5812	
==>:(
    my %from;
    if( IS_DIR->( $from ) ) {
        my $base = quotemeta dirname( $from );
        
        for my $dir ( File::Find <==
2	/Users/nnunley/pugs/util/testgraph.pl	1075	1187	
==>en webservers)
   --cssfile,  -c FILE  location of css. [default: $Config{cssfile}]

See also:
   util/yaml_harne <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	444	550	
==>nows", "PGE::Exp::Anchor");
    $optable->addToken("term:^^", "term:", "nows", "PGE::Exp::Anchor");
    $op <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3589	3729	
==>n[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3589	3729	
==>n[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really th <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	988	1126	
==>, BOLD . BLUE, RESET;
      <STDIN>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf ST <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14274	14395	
==>t.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $exe = $Config{_exe};
	}
       $exe = '' unless def <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	231	353	
==>ve';

INSTALL: for my $archive (@ARGV) {

    ### the path to install to... distilled from the archive name
    ### XXX may <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3690	3809	
==>{dist} = $self->admin->preop;
    }

    my $mm = ExtUtils::MakeMaker::WriteMakefile(%args);
    $self->fix_up_makefile( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7042	7306	
==>xt
                next if /^\s*#/;               # and comments
                if ( m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3181	3316	
==>f $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifest/metafile
        system <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24223	24327	
==>They are:
 *
 * regstart     sv that must begin a match; Nullch if none obvious

Confined to regcomp/rege <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	483	594	
==>" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	483	594	
==>" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a source <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1126	1241	
==>a while on
# Regexp::Parser.  But it's not worth working to finish.  So, we
# bootstrap to something cleaner and sim <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	662	773	
==>@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	736	880	
==>rs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11919	12086	
==>POS;
        my $v = "";

        # outside of char class, \nnn might be backref
        if (!&SIZE_ONLY and !$cc and $n != 0) {
          $v .= $1 while ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3506	3629	
==>$totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing} = $passed ? 1 : 0;

    return %total <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	114	219	
==>O containing the events to call.
  has Code @:events;

  submethod BUILD ($self:) {
    die "There can onl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14302	14405	
==>"newfrom"
    $P0 = getattribute mob, "PGE::Match\x0$:target"
    target = $P0
    $P0 = getattribute mo <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	469	586	
==>sMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# proba <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	469	586	
==>sMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Locale $.locale


# proba <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3328	3427	
==>request are accessible through the HTTP::Query object that
is part of every HTTP::Request::CGI objec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3328	3427	
==>request are accessible through the HTTP::Query object that
is part of every HTTP::Request::CGI objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1345	1436	
==>ser::bol::ISA, __PACKAGE__;
  push @Regexp::Parser::bound::ISA, __PACKAGE__;
  push @Regexp: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10476	10569	
==>tentially
never be performed at all.  They validate everything except
well-formedness, such as <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10476	10569	
==>tentially
never be performed at all.  They validate everything except
well-formedness, such as <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2537	2656	
==>t succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2537	2656	
==>t succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1244	1358	
==>param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1237	1343	
==>param2");
subname;
subname();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1988	2109	
==>hod empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1988	2109	
==>hod empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10246	10380	
==>depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the depth to which it will
look:

  while (my ($node, $depth) = $i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1758	1889	
==>Node';

    package Prim;
    use base qw/Map/;

    package Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3381	3530	
==>eventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3381	3530	
==>eventing an
    # empty result.
    if ('' ne ($path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10535	10664	
==>use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10535	10664	
==>use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{us <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7355	7463	
==>ldn't open \"@{[ BUCKET ]}\": $!\n";
  flock $fh, LOCK_EX
    or die "Couldn't flock \"@{[ BUCKET ]}\": $!\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33279	33378	
==>d (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Family: anchor

Types: gpos (C<\G>)

=hea <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35986	36150	
==>ttr(symbol->new('%:attributes'))
                  ->store(
                      $e->get('$label'), 
                      $e->get('$attribute')
                  ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2531	2626	
==>}
RULE
*{'assign_slurp_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	621	721	
==>nty thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Ho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	621	721	
==>nty thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Ho <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16859	17018	
==>whole test is considered a pass 
                    (or skipped), false if its a failure

  exit              the exit code of the test run, if from a file
  w <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14037	14141	
==>mob, pos, "No closing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "parse_dollar"
    .param p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51986	52186	
==>cat(
                              $e->get('$self:')->get_attr(symbol->new('$:authority'))
                            )
                      );
                  }));
                $e->get('$identi <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1385	1489	
==>s not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just b <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1385	1489	
==>s not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just b <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20382	20473	
==>gs \$fun->$argl2}\n";
	eval_p5_log_code($code);
	$mfun = eval($code);
	eval_p5_log_error($co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15404	15506	
==>Node this is, and by extension
what kinds of attributes or relative Nodes it can have, as well as where <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15404	15506	
==>Node this is, and by extension
what kinds of attributes or relative Nodes it can have, as well as where <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	206	318	
==>s primitive { true $var }

sub chomp (Str $str) returns Str is builtin is primitive {
    # XXX return $str but n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15300	15406	
==>o import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = H <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15300	15406	
==>o import these routines into your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = H <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12532	12859	
==>ssage);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12532	12859	
==>ssage);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::Key <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5423	5546	
==>{
    my ($self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3022	3126	
==>f $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3022	3126	
==>f $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	42	151	
==>:Node;

has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "source" pro <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	42	151	
==>:Node;

has Str $.content;

# this should really be an acccessor - all it's doing is making the
# "source" pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6468	6600	
==>1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multiple Content-Type hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6468	6600	
==>1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_words($content_type);
    die "Multiple Content-Type hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11313	11433	
==>pe cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11313	11433	
==>pe cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1278	1421	
==>ata::Dumper; Dumper($self->{perl5})};
    bless $self, $class;
}

1;

__END__

    $self->{code} = eval 
        $self->{perl5};
    c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3720	3819	
==>uman written files, and anything we
write shouldn't need to have documentation/comments. If you need <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3720	3819	
==>uman written files, and anything we
write shouldn't need to have documentation/comments. If you need <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14293	14516	
==>e .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14293	14516	
==>e .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class->pmc_fold($text);
    $result = "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1785	1944	
==>nal_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1785	1944	
==>nal_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4382	4473	
==>:@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4382	4473	
==>:@set_names!, Str :@member_names!) {

    $?SELF!_assert_arg_ary( 'new', ':@set_names!', @se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26609	26713	
==>!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Message object.
The Message K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26609	26713	
==>!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Message object.
The Message K <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5876	6186	
==>tart an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %ev <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5876	6186	
==>tart an event ..
                            %events<start_modifier>($token);                         
                            $in_code = 1 if $token eq '`';                            
                        }
                    }
                }
            }
            default {
                %ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4941	5062	
==>rxatom',
    # XXX - default assoc, default fixity ?
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7502	7603	
==>UEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7502	7603	
==>UEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-form- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14786	14900	
==>:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14786	14900	
==>:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $chan <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	148	255	
==>y $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	148	255	
==>y $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10771	10876	
==>ator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10771	10876	
==>ator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6413	6525	
==>eorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6413	6525	
==>eorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1348	1442	
==>+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl6::Run::OnPerl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10588	10727	
==>ix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this should be a statement
    if ( exists $n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	180	302	
==>\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join "\n" => @tokens;
    
    foreach my $token (@to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14910	15007	
==>1 CONVENIENCE METHODS

The most frequently used headers can also be accessed through the
following <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14910	15007	
==>1 CONVENIENCE METHODS

The most frequently used headers can also be accessed through the
following <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	355	446	
==>OnPerl5::X1::BB::debug
	    $Perl6::Run::OnPerl5::X1::BB::pugs
	    $Perl6::Run::OnPerl5::X1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3967	4085	
==>'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start < <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3967	4085	
==>'Span::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start < <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4621	4740	
==>if ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4621	4740	
==>if ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	119	224	
==>akefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	119	224	
==>akefile);

use ExtUtils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9889	10035	
==>a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = un <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9889	10035	
==>a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = un <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3426	3539	
==>c to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3426	3539	
==>c to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::K <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2884	2992	
==>est( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo tes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2884	2992	
==>est( $h, $p, $req );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	976	1096	
==>eval wrap( $r );
print "Tail, Match:\n", Dumper( $x->("abc") );
}

{
my $r = 
    concat( 
        alternation( co <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13441	13558	
==>e->print($template->output);
}

sub infest_syns {
    my $index = shift;

    my $p = Pod::PlainText->new(width => 100 <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17133	17277	
==>been run
  seen              total tests actually seen
  skip_all          if the whole test was skipped, this will 
                      contai <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1103	1189	
==>Blondie::Backend::Perl::Interpreter> contains the tree reduction code.

L<Blondie::Back <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1756	1896	
==>"union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tm <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1756	1896	
==>"union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	135	250	
==>ive
sub to_native;

# conversion to other native types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->ne <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1270	1371	
==>lt build config file created.
    You can edit some settings in $filename (then rerun Makefile.PL).

. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2511	2607	
==>LF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2511	2607	
==>LF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8203	8304	
==>est::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8261	8362	
==>est::num_of_tests_planned)) {
        say("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11115	11231	
==>c = $self->_filtered_INC;

Shortens C<@INC> by removing redundant and unnecessary entries.
Necessary for OSes with li <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25289	25383	
==>equals the immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29841	29935	
==>equals the immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4562	4674	
==>=> [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4755	4867	
==>=> [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7510	7652	
==>$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7510	7652	
==>$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	349	455	
==>}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DE <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	349	455	
==>}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DE <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2775	2881	
==>rsion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2775	2881	
==>rsion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl co <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2184	2289	
==>ith a complaint.  Real solvers usually do
a bit of algorithm switching.  When their fast method fails, the <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4320	4416	
==>'}'> ]* }
rule metasyntactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \> | <metasyntactic_sub> }
rule <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16052	16157	
==>ersects( $object )`

These methods return a logical value. 

The argument can be a Span object, a Recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16052	16157	
==>ersects( $object )`

These methods return a logical value. 

The argument can be a Span object, a Recurren <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7157	7271	
==>self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7157	7271	
==>self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	966	1134	
==>return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	926	1088	
==>return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19072	19173	
==>e> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try to use a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19072	19173	
==>e> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
try to use a <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	279	390	
==>le::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mk <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	279	390	
==>le::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mk <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40073	40167	
==>cale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40073	40167	
==>cale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foun <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3663	3771	
==>tersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3663	3771	
==>tersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersec <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1660	1771	
==>label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out ne $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2289	2391	
==>ing it the given C<$name>
for use in the total report.  Returns the C<%results> of the test.
See L<Resu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8808	8917	
==>on_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8808	8917	
==>on_exists );

    # Define and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8405	8509	
==>iewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analy <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8405	8509	
==>iewed by a security expert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analy <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9873	9974	
==>tring); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is co <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9873	9974	
==>tring); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is co <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	700	848	
==>* H )? \s*
            (?: (\d+) \s* M )? \s*
            (?: (\d+) (?: \.(\d+))? \s* S )? \s* )?
        /;      #/x  # (go cperl-mode ;))

our $iso <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	74	205	
==>ec cosec cotan asec
                  acosec acotan sinh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	444	575	
==>eds to 
# have available ...
$::Class   = undef;
$::Object  = undef;
$::Module  = undef;
$::Package = undef;

# for sending messages <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2028	2121	
==>ass Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2028	2121	
==>ass Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37271	37369	
==>itional parameter
$module_name (a string) and checks whether or not it has already been
loaded, ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37271	37369	
==>itional parameter
$module_name (a string) and checks whether or not it has already been
loaded, ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21303	21398	
==>ts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21303	21398	
==>ts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by sending a C< <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2294	2515	
==>( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3882	4103	
==>( ref($_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3817	3937	
==>_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7294	7414	
==>_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_map.values ),
        body => set( $!body. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	604	726	
==>l A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accen <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	604	726	
==>l A, acute accent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2701	2886	
==>library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2701	2886	
==>library
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8622	8772	
==>s => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL); 
            $e->create("$current", <==
2	/Users/nnunley/pugs/util/importgraph.pl	1191	1291	
==>n;
  }

  $modules{$module_name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8248	8362	
==>alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7964	8073	
==>alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4957	5073	
==>OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::Keye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4957	5073	
==>OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	313	421	
==>ge;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $acti <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	313	421	
==>ge;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $acti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4274	4395	
==>.  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4414	4535	
==>.  "=> q(" . _str( $self->{grammar} )  . "),\n" . 
        "  ratchet "  .  "=> q(" . _str( $self->{ratchet} )  . "),\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	195	310	
==>de union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	195	310	
==>de union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4791	4893	
==>e_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4791	4893	
==>e_type!', $node_type );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF! <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10298	10405	
==>=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10298	10405	
==>=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	126	539	
==>1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	126	539	
==>1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rose <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	698	868	
==>alues
                                ) returns List is rw
 multi sub Array::unshift (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @a <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5253	5346	
==>ink_info) unless $no_designdocs;

# Generating index.html
my @dirs = sort keys %{$index->{_dir <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6945	7071	
==>nt_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_language ($self: )          is rw { $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6945	7071	
==>nt_encoding ($self: )          is rw { $self.header("Content-Encoding") }
method content_language ($self: )          is rw { $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26857	26984	
==>rx->{flags}[-1],
      family => 'minmod',
      type => 'minmod',
      raw => '?',
      data => $data,
    }, $class;
    ret <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15825	15924	
==>upport the same levels as the input, unless specified otherwise.

=over

=item chop

 multi Str::cho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10983	11096	
==>s{progs} eq "ARRAY";
        foreach my $prog (@{$args{progs}}) {
            if ($is_mswin || $is_netware || $is_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	228	317	
==>st[1]\n";
print "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}\n";
print "{$wer}s Lieblin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11401	11500	
==>turns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11401	11500	
==>turns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4842	5005	
==>ntent;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4842	5005	
==>ntent;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1146	1252	
==>nce even higher order functions get prims instead of thunks when
    # possible

    my $body = $thunk->val <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13672	13772	
==>nce even higher order functions get prims instead of thunks when possible

    my $body = $thunk->val <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13327	13445	
==>e.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( pay <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13327	13445	
==>e.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( pay <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	528	624	
==>g)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, writ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	528	624	
==>g)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, writ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12909	13015	
==>self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27048	27154	
==>self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4620	4737	
==>shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4479	4596	
==>shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24913	25011	
==>>new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, " <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25354	25452	
==>>new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, " <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	620	729	
==>tch::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:upper:]/ )
  {
    $matchObj->position( $ma <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16470	16571	
==>Most users should consider setting their I/O handles to autochomp
instead of this step.


=item lc

 m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13381	13498	
==>a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13381	13498	
==>a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) i <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	606	723	
==>.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsCo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	606	723	
==>.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return PugsCo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2344	2470	
==>e $valuex) {
		    print "not ok\n  \# Expected: >$valuex<\n  \#      Got: >$res<  from  $expr\n";
		} else {
		    print "ok\n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4308	4460	
==>e errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4308	4460	
==>e errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	36	152	
==>.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'st <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	36	152	
==>.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    'st <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5122	5346	
==>$token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5122	5346	
==>$token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4527	4631	
==>)`

Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4527	4631	
==>)`

Returns the year for the object.

- `month()`

Returns the month for the object, from 1 to 12.

- `da <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11338	11437	
==>ookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11338	11437	
==>ookies>) where "," is used as part of the syntax of a single
field value.

Examples:

 $header.heade <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15337	15422	
==>0).
re_rewrite_list([T0|L0],[T1|L1],RW0,RW1) :-
  re_rewrite(T0,T1,RW0,RWx), re_rewrit <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	956	1065	
==>my $self = shift;

	my $node = shift;

    die "trying to reduce a stub: " . Blondie::Emitter::Pretty->new->st <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	114	208	
==>nt to debug'}
* adds use Smart::Comments (if it matches the supplied regex) or
no Smart::Commen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17156	17266	
==>If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17156	17266	
==>If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2219	2332	
==>,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2219	2332	
==>,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>() <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1727	1835	
==>stics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct por <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1727	1835	
==>stics
    $f.debug = 1;

=head1 DESCRIPTION

Perl 6 port of the C<File::Find> library.

This is no direct por <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6595	6774	
==>};
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6595	6774	
==>};
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled captu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	784	910	
==>tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	784	910	
==>tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4322	4472	
==>rl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4322	4472	
==>rl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($di <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39699	39797	
==>/> for more
information.

Locale::KeyedText is free software; you can redistribute it and/or modify <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39699	39797	
==>/> for more
information.

Locale::KeyedText is free software; you can redistribute it and/or modify <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4906	5100	
==>Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x= <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4906	5100	
==>Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_previous }($x); 
                      return $x if $x= <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13881	14040	
==>unless defined $skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        ret <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6659	6763	
==>rns Str {
    join(" ",@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@array: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16411	16515	
==>($$) = { generic($.else) }

cond: type($$) = {
	types::unify(
		type($.if), type::operator::nullary->new( <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1821	1916	
==>ry.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free softwar <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1821	1916	
==>ry.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free softwar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1316	1475	
==>tion Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Depen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1316	1475	
==>tion Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Depen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5470	5651	
==>all it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5934	6115	
==>all it
                    ### This above section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7870	7971	
==>::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7870	7971	
==>::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1511	1616	
==>ead1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<. <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1511	1616	
==>ead1 OPERATORS

=head2 C<< infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1261	1610	
==>"require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1261	1610	
==>"require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::In <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6231	6366	
==>,
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6231	6366	
==>,
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4467	4573	
==>rn value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6369	6475	
==>rn value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4163	4286	
==>turn $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4163	4286	
==>turn $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11749	11866	
==>gs{stdin} =~ s/\r/\\r/g;

	if ($is_mswin || $is_netware || $is_vms) {
	    $runperl = qq{$^X -e "print qq(} .
		$args{ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9034	9140	
==>equires. This is necessary so we can copy them on the CD later.
HELP

  step
    descr  => "Creating an emp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6508	6604	
==>' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6508	6604	
==>' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40578	40687	
==>even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
detai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40578	40687	
==>even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
detai <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8262	8386	
==>!= 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8262	8386	
==>!= 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3592	3773	
==>"->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3592	3773	
==>"->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4378	4532	
==>age xxx; use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{param}{cpan_bar <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4863	4983	
==>os"
        dbg "# keys: ",%pad.keys;
        $ret = traverse_ast( %pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAssign <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8898	8996	
==>tive_file = abs2rel($input_path,$start_dir); 

  # Path seperator hack
  my $file_key =  $relative_ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3329	3465	
==>h
    # less hacky :-)
    for my $file (@{ $Config{precompile} }) {
        my $module; # guess what to put in %*INC
        open my $if <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	62	158	
==>onfig;
use Path::Class ();
use base 'Object::Accessor';

my %config;
my $Cwd = Path::Class::dir(c <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2270	2397	
==>st if $chr =~ /\n/;
		    print $chr;
		}
	        print "{}\n";
		next;
	    } elsif ($file[0] eq '=') {
		print '}\end{block}' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3608	3707	
==>/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on tha <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3608	3707	
==>/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on tha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17617	17715	
==>>

=item $h.user_agent

This header field is used in request messages and contains information
abou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17617	17715	
==>>

=item $h.user_agent

This header field is used in request messages and contains information
abou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10267	10376	
==>nter for start of this match
    to    - string pointer for next match (end+1)
    match - positional submat <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17971	18078	
==>r {
    my($self, $line, $type, $totals) = @_;

    warn "Test header seen more than once!\n" if $self->{_se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4472	4588	
==>for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4472	4588	
==>for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2940	3078	
==>elf->{"_$_"} } qw{
                build_info smoker config revision timing
        }});
}

sub set_build_info {
    my($self) = @_;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2132	2239	
==>ame($_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self->{errnum} && $self->{errnum} == $e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7441	7579	
==>),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7441	7579	
==>),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => ch <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4218	4345	
==>if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4218	4345	
==>if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making no progress is the same a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41535	41624	
==><join (Relation::Example *@others) returns Relation::Example>

This multi-method is the N- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6867	7004	
==>ove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6867	7004	
==>ove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        ' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9017	9144	
==>mc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9017	9144	
==>mc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block-> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1496	1607	
==>nt) returns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## --------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1496	1607	
==>nt) returns Void {
    $!parent = $parent;
    $.depth  = $parent.depth() + 1;
}

## --------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14954	15083	
==>on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'group',
      typ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27252	27344	
==>($app_to_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24739	24909	
==>rammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25018	25188	
==>rammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { retur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35178	35272	
==>!) returns Relation>

This multi-method is a generic binary relational operator that is identic <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39728	39822	
==>!) returns Relation>

This multi-method is a generic binary relational operator that is identic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4200	4321	
==>}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4200	4321	
==>}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37437	37528	
==>elations.  This method has an alias named C<intersect>.

=item C<intersection (Relation::Exa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	14	125	
==>rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-regex parser

#

# see: READ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	14	121	
==>rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-regex parser
#
# see: READ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1142	1258	
==>r('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2307	2423	
==>r('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->fo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9910	10016	
==>es(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9910	10016	
==>es(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13311	13465	
==>keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13311	13465	
==>keys );
}

sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3328	3505	
==>ned $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3468	3645	
==>ned $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9447	9643	
==>&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($lat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9447	9643	
==>&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($lat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12558	12675	
==>> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6033	6150	
==>> sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $S->force_objec <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8276	8480	
==>"../");
    $template->param(directory => $path);
    $template->param(directories => [ map { { 
                                            title => $_,
                                            wrap  = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6798	6918	
==>nt = 1;
	$Data::Dumper::Terse = 1;
	#warn Dumper($prog);

	my $dup_finder = Blondie::Backend::C::Emitter::DuplicateFinder <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5151	5251	
==>.finishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5151	5251	
==>.finishstr();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes. <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1762	1918	
==>ing = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob pa <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1762	1918	
==>ing = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$regex/;
}

=head1 NAME

Text::Glob - translate glob pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4848	5012	
==>{
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4707	4871	
==>{
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self-> <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1549	1649	
==>SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1549	1649	
==>SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1014	1155	
==>gs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1014	1155	
==>gs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7812	7948	
==>y--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  reduce_backtrack:
  $position = $temp1->from();
  goto reduce_end if $arit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2599	2704	
==>pile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2599	2704	
==>pile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>( <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	394	494	
==>= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrenc <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	394	494	
==>= OBJECT METHODS

The following methods are available for Set::Span objects:

  # XXX - see Recurrenc <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2488	2634	
==>lar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "}\\texttt{";
		next;
	    }
	    
	    # normal c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1161	1271	
==>method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# mult <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1161	1271	
==>method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# mult <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23311	23413	
==>data to be stored in a format other than Perl
files.  Or alternately they have a compiled C component o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23311	23413	
==>data to be stored in a format other than Perl
files.  Or alternately they have a compiled C component o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19251	19351	
==>.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19251	19351	
==>.

=head2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently conn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1262	1374	
==>Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1262	1374	
==>Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6685	6828	
==>f ( $subpath eq lc($subpath) || $subpath eq uc($subpath) ) {
            open PKGFILE, "<$subpath.pm" or die "find_extensions: Can't open $subpa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	577	673	
==>IVERSAL::require::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26084	26182	
==>readable short
string; the allowed variable names you can have depend on the Message Key
it is bein <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26084	26182	
==>readable short
string; the allowed variable names you can have depend on the Message Key
it is bein <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9023	9118	
==>setta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9023	9118	
==>setta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1149	1248	
==>pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1149	1248	
==>pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runtime::Grammar-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4740	4899	
==>al to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4740	4899	
==>al to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1047	1206	
==>c => 'left',
        precedence => 'looser',
        other => '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        prec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6719	6859	
==>).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = sel <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6719	6859	
==>).map:{
            .isa(Perl6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	36	136	
==>t;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	36	136	
==>t;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use warnin <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3344	3433	
==>\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3344	3433	
==>\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4839	4930	
==>plementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4979	5070	
==>plementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19060	19199	
==>OS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15481	15620	
==>OS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1208	1384	
==>submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        ret <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1208	1384	
==>submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3633	3749	
==>nt
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3633	3749	
==>nt
    # The Document that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4097	4203	
==>rn [~] ($!headers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4097	4203	
==>rn [~] ($!headers.as_string($newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18601	18741	
==>t (that is, I<every>
character in that embedded class is already found in the class), set the
C<strict> attribute to 2; the class above would <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1554	1643	
==>$parent.depth() + 1;
}

## --------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1554	1643	
==>$parent.depth() + 1;
}

## --------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3260	3363	
==>$span1 = $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3260	3363	
==>$span1 = $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9474	9575	
==>Sequence>
    | <'0'> <!before <DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEsca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1895	1993	
==>ode {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1819	1915	
==>ode {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $ <==
2	/Users/nnunley/pugs/util/package-osx.pl	10203	10307	
==>et machine (hence the $file[-1]).
sub create_remover {
    my ($dest, @files) = @_;
    my $dirs = $files <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	569	677	
==>erm:\$\$", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\$", "term:", "nows", &parse_do <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5661	5808	
==>short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $ava <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6125	6272	
==>short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $ava <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7297	7412	
==>UCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list ) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7297	7412	
==>UCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list ) <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4056	4143	
==>ng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<A <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4056	4143	
==>ng/node54.html>,
L<http://linux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<A <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2676	2775	
==>y ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2676	2775	
==>y ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18491	18625	
==>ing of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whateve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18491	18625	
==>ing of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page}'s referer (sic) is the {URL} of whateve <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29634	29730	
==>ong test names are not truncated as badly.
(Partially done with new skip test styles)

Add option <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2992	3119	
==>uantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2980	3107	
==>uantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1423	1558	
==>$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1423	1558	
==>$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c };
}

# return the capture
su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7817	7925	
==>],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		} else {
			return Blondie::TypeSafe::Annotation- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6154	6280	
==>urn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&wher <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9631	9757	
==>urn Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

&wher <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8168	8263	
==>| <'.'> <DecimalDigits> <ExponentPart>?
    | <DecimalIntegerLiteral> <ExponentPart>?
}
rule Dec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14222	14383	
==>t not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree->[-1]->family eq "assertion" and $tree->[-1]->type eq "eval") or
        ($tree <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1073	1194	
==>8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1073	1194	
==>8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18036	18129	
==>n()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18036	18129	
==>n()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified in t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1193	1378	
==>([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1193	1378	
==>([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$fi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4848	5047	
==>ack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %ev <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4848	5047	
==>ack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event ..
                        %ev <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7464	7597	
==>r(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7464	7597	
==>r(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9139	9236	
==>sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2964	3061	
==>sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Perl6->_my(@_) };
push @state <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11842	11940	
==>'s name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R");

Th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	654	766	
==>l, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	654	766	
==>l, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	277	397	
==>me) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	277	397	
==>me) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9294	9395	
==>pan1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9294	9395	
==>pan1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2631	2759	
==>e the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2848	2976	
==>e the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15200	15291	
==>(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_rewri <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6736	6824	
==>---------------------------

ok($Class->does('Role'), '... Class now does Role');
ok($Cla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4126	4235	
==>f $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4975	5084	
==>f $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2597	2732	
==>operty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Creat <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2597	2732	
==>operty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Creat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1782	1885	
==>piler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    su <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1782	1885	
==>piler::PIL::PILStmt
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1543	1699	
==>essage.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1543	1699	
==>essage.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5551	5829	
==>val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5551	5829	
==>val = qq("$val");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$P <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1705	1795	
==>de->struct_equiv);

	if (my $meth = $self->can("reduce_" . $node->struct_equiv->moniker)) { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6224	6379	
==>parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6224	6379	
==>parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9975	10170	
==>eturn $S->object(eol => eol => '$$');
  });


  ### '@'


  ### '%'


  ### '^'

  $self->add_handler('^' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      r <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2465	2586	
==>$args{path}.pm";

    bless(\%args, $class);
}

sub call {
    my $self   = shift;
    my $method = shift;
    my $obj = $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	611	717	
==>and actually understood. Everybody cheer!
# (i did not understand (or try very hard to understand) the modu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7571	7665	
==>) (symbol $label)) returns bit
    ((($self: get_attr (symbol new (%:methods))) exists ($label) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25140	25270	
==>family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17175	17322	
==>op::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17454	17601	
==>op::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( " <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4289	4410	
==>igE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to th <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4289	4410	
==>igE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2928	3039	
==>*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2928	3039	
==>*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1706	1815	
==>ias  {  \$<number>    \:\=  <construct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<name>      \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	279	385	
==>_uptodate = (-s $pmc and (-M $pmc <= -M $filename));
# print "up to date: $pmc_is_uptodate\n";
if ( $pmc_is <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14364	14482	
==>:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14364	14482	
==>:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10136	10275	
==>->new( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? !!>',
        body => sub {
            $_[1 <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1553	1650	
==>half_ceiling },
		{ $^a.round_toward_zero },
		{ $^a.round_away_from_zero },

#		{ $^a.round_up: s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13523	13636	
==>$month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_hol <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13523	13636	
==>$month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_hol <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12759	12874	
==>os = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9423	9513	
==>k_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,undef,undef,1,2,1,2],[1,undef,undef,3,4, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	668	780	
==>t '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	668	780	
==>t '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1052	1273	
==>], $_[3] ] }
        |   '(' exp ')'         { $out= $_[2] }
;

list_left:  exp                 { $out= [ $_[1] ] }
        |   list_left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8014	8127	
==>@chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename hi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8014	8127	
==>@chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename hi <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	641	759	
==>s($str) - 1;
        $removed;
    }
}

sub sleep (Num $seconds) returns Num is builtin is primitive {
    my $time = t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37018	37114	
==><(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: an object in <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1349	1457	
==>t')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1349	1457	
==>t')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1603	1722	
==>_');");}

for my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2228	2322	
==>($self.size <= $other.size && $other.includes($self.members));
}
method proper_subset($self: Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2228	2322	
==>($self.size <= $other.size && $other.includes($self.members));
}
method proper_subset($self: Se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25654	25762	
==>ntended to be read by a machine and
mapped to a user-readable message; the key itself is not meant to be
mean <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25654	25762	
==>ntended to be read by a machine and
mapped to a user-readable message; the key itself is not meant to be
mean <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20916	21052	
==>m >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17337	17473	
==>m >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29079	29182	
==>just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33631	33734	
==>just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation>

I<TODO.  T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9295	9426	
==>b(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9283	9414	
==>b(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	475	588	
==>on) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	475	588	
==>on) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $version);
	my $self = $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3483	3603	
==>n.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3483	3603	
==>n.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_op <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	0	96	
==>role Parse::Rule::Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use comb <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	0	96	
==>role Parse::Rule::Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use comb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17250	17350	
==>S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13671	13771	
==>S->can($posix)) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8391	8491	
==>, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2216	2316	
==>, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1850	1975	
==>traits, aliasing, etc.)
    Str         Perl string (Unicode semantics)
    Num         Perl number
    Complex     Perl compl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1780	1898	
==>ature_term 
        { $_[0]->{out}= { signature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5196	5296	
==>pwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5196	5296	
==>pwards (*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2958	3056	
==>he query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2958	3056	
==>he query string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7504	7620	
==>l 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7504	7620	
==>l 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.includes(42 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7893	7981	
==>rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7893	7981	
==>rw { $self!basic_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19978	20076	
==>>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_required> <VariableDeclarationLi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11497	11592	
==>ven recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence tha <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11497	11592	
==>ven recurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence tha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8586	8689	
==>te.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifie <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8586	8689	
==>te.

=back

=head2 Modifier Events

=over 4

=item I<start_modifier>

This event is fired when a modifie <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20347	20462	
==>omment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTER <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16768	16883	
==>omment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTER <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3188	3448	
==>s Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3188	3448	
==>s Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the Rosetta::Model <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	858	983	
==>} @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	759	884	
==>} @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7613	7772	
==>if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot de <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7670	7829	
==>if ( $license_text =~ /\b$pattern\b/i ) {
                $self->license($license);
                return 1;
            }
        }
    }

    warn "Cannot de <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1782	1895	
==>clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1782	1895	
==>clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14829	14929	
==>asy to create and use relational databases in a very reliable,
portable, and efficient way.  This "Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14829	14929	
==>asy to create and use relational databases in a very reliable,
portable, and efficient way.  This "Ro <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3024	3117	
==>ed($struct) ? $struct->moniker : "const";
		join("_", $type, ++$self->{counters}{$type});
	}
} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	247	359	
==>definition clauses would be in one file,
   and the defining macros, for each of various class hierarchies,
   in <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	247	359	
==>definition clauses would be in one file,
   and the defining macros, for each of various class hierarchies,
   in <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14791	14889	
==>y generic when we leave the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23283	23417	
==>->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19704	19838	
==>->add_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1008	1118	
==>ed rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1008	1118	
==>ed rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Gr <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2144	2253	
==>thod delete {
        $.publisher.remove_subscription($?SELF);
    }
}

class Class::Events::Subscription::Nam <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7149	7246	
==>ge with native multimetods this would be much more concise

# a free variable instantiates into wh <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	204	330	
==>he fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that st <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	204	330	
==>he fundamental operations on strings as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1499	1663	
==>\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1499	1663	
==>\n$0";
            #%headers{$field} ~~ s/\r$//;
            %headers{$field} ~~ s:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7383	7537	
==>yn_indexs->{$1}{$_} = 
            {  file => $_ . ".html",
               name => $_,
            };
    }
}

sub build_indexes {
    my $path     = shift <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	704	825	
==>require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.microsoft.com/download/vc15/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	600	710	
==>require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.com/download/vc15/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	116	210	
==>------------------------------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ------ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	139	233	
==>-------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ----------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1109	1255	
==>) ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1065	1203	
==>) ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34019	34122	
==>elation but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an identical hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38569	38672	
==>elation but
that aren't in C<$other>.  This method will fail if C<$other> does not have
an identical hea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14802	14898	
==>t has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14802	14898	
==>t has 5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - Th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1643	1753	
==>piler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1643	1753	
==>piler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18286	18403	
==>return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14707	14824	
==>return $ret;
  });

  # end of char class
  $self->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3531	3648	
==>$in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3531	3648	
==>$in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26692	26817	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26971	27096	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_application;
*{'e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11653	11750	
==>= $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11653	11750	
==>= $header.header('Accept');  # get multiple values
 $accepts = $header.header('Accept');  # get va <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5016	5202	
==>ves/$script] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $? <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4232	4410	
==>ves/$script] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $? <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2580	2715	
==>> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex plac <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2580	2715	
==>> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex plac <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	70	182	
==>rlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - * /

use strict;
use warnings;

# Input a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5637	5765	
==>_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5637	5765	
==>_number;

    # Use filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10383	10509	
==>exps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10383	10509	
==>exps
sub encode_entities (Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16146	16251	
==>, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16146	16251	
==>, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Spans. If the spans overl <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	392	525	
==>process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now ca <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	392	525	
==>process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now ca <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14143	14247	
==>omplain->("ref") },
      glob  => sub { $as_array_complain->("glob") },
      lvalue => sub { p6_as_arra <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4596	4731	
==>f ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4596	4731	
==>f ($index == +@!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1357	1484	
==>b join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1357	1484	
==>b join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3972	4074	
==>=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

Th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3972	4074	
==>=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<value1>, :opt2<value2>, :mode<enciphering>);

Th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2531	2624	
==>om Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2531	2624	
==>om Perl6::Value::List, because this would
# cause multi-dimensional arrays to be flattened.

c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	112	208	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed', 'looks_like_number';

us <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1791	1910	
==>mal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1791	1910	
==>mal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12804	12903	
==><gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12804	12903	
==><gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if
C<$set1> h <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1196	1306	
==>ck $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1196	1306	
==>ck $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
cla <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2564	2671	
==>ction( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2564	2671	
==>ction( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8487	8573	
==>tch[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8475	8561	
==>tch[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match::R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1609	1705	
==>hould likely take place there.

# Some raw development notes appear after __END__.

package Regex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	665	768	
==>Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Sto <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	633	729	
==>Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Sto <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15687	15789	
==>her!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19164	19266	
==>her!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26426	26556	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26705	26835	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1937	2154	
==>_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5 <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1937	2154	
==>_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1402	1522	
==>n ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start;
    my $i_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1402	1522	
==>n ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.start;
    my $i_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1343	1431	
==>'meth_call_statement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5984	6086	
==>:False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it on <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5984	6086	
==>:False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too specific - it on <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	718	821	
==>"term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\d", "term:", "nows", "PGE::Exp: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	155	247	
==>GE_OPTABLE_TERM => 1;
use constant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10439	10552	
==>:variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10597	10710	
==>:variable {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4455	4554	
==>>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex ob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4705	4804	
==>>).

=head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex ob <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1434	1558	
==>irectory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1434	1558	
==>irectory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_pat <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2431	2540	
==>. "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2431	2540	
==>. "\n";
    print substr(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3532	3632	
==>fine_literal {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	my $type = $self->resolve_type( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1811	1901	
==>arness::runtests(@tests)> runs all the testscripts named
as arguments and checks standard o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1508	1643	
==>@path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1508	1643	
==>@path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	72	199	
==>r $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	72	199	
==>r $buffer is rw) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3702	3819	
==>");

	return $symbol;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	# all thunks with p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7411	7522	
==>rator/) ) => sub {
	return if ($_[0] == $_[1]); # in a recursive let expr a generic recursive function will be r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6323	6432	
==>ing ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : can <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6323	6432	
==>ing ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : can <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1095	1194	
==>us insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the serious ins <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1095	1194	
==>us insecurity; see the L</SECURITY> section for details.  (In particular, 
note that the serious ins <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6240	6359	
==>closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that makes it return un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6039	6153	
==>closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that makes it return un <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20779	20886	
==>ug >$name<";
}
sub p6_var_CODE {
    my($name)=@_;
    my $mn = p6_mangle($name);
    "(do{no strict;defined <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3313	3417	
==>e { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <sig <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3313	3417	
==>e { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <sig <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1223	1332	
==>wd = cwd();

    print "*** Building dependencies.  Please wait...\n\n";

    # XXX - instead of --user, use o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6354	6458	
==>mber');
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToInteger(JSX::Valu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22014	22110	
==>channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22014	22110	
==>channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	740	1168	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example - <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	740	1168	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example - <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30897	31002	
==>set as the current one.  The
Member Name comes next and is what distinguishes each module from others in
i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30897	31002	
==>set as the current one.  The
Member Name comes next and is what distinguishes each module from others in
i <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4265	4382	
==>); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4265	4382	
==>); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4510	4705	
==>P::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4510	4705	
==>P::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18318	18502	
==>op::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18597	18781	
==>op::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1869	1977	
==>key, which will be specified in the options; check your 
cipher's documentation for details.

=item C<deciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1869	1977	
==>key, which will be specified in the options; check your 
cipher's documentation for details.

=item C<deciphe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3291	3422	
==>'$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4140	4271	
==>'$<op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	505	630	
==>st.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	505	630	
==>st.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	330	432	
==>keMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs-> <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	330	432	
==>keMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8146	8282	
==>= () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8134	8270	
==>= () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9573	9667	
==>er_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9573	9667	
==>er_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. i <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11848	11978	
==>/$_";
        }
      }
    };

  step
    descr  => "Copying Parrot include files to the initrd",
    ensure => sub { -r "$initrd_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4871	4980	
==>_operator;
  }
  else
  {
    goto missing_term;
  }
  missing_term:
  push @termStack, newfrom( $matchObj, $w <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25072	25178	
==>-> c");
}
{
	my $type = type::operator::pair->new(
		type::variable::free->new,
		type::variable::free->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4738	4829	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if y <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4988	5079	
==>Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if y <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20086	20203	
==>ure( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20365	20482	
==>ure( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1841	1942	
==>hter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that inform <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1841	1942	
==>hter
    (Perldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that inform <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19146	19242	
==>trouble.  Likewise, emulation layers for any other programming language can
be supported, such as <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19146	19242	
==>trouble.  Likewise, emulation layers for any other programming language can
be supported, such as <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4931	5062	
==>th_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4931	5062	
==>th_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11321	11430	
==>push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2613	2725	
==>3).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2613	2725	
==>3).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8822	8942	
==>=> chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8822	8942	
==>=> chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => ch <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12780	12875	
==>units" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used f <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12780	12875	
==>units" specifier, which can be either `:int` or `:density($size)`.

The unit specifier is used f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1683	1806	
==>n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2463	2586	
==>n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22208	22304	
==>tem C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(channel =E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22208	22304	
==>tem C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(channel =E< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12225	12335	
==>0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12225	12335	
==>0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2850	2965	
==>k already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2850	2965	
==>k already used, so we permute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./n <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	584	722	
==>ing\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9930	10080	
==>$p->unparse;
    $c1 =~ s/PIL_Environment/PIL::Environment/g;
    if($c0 ne $c1) { pil_diff($c0,$c1) }
}

package PIL::PIL1CPerl5::Util::FilterNodeDefs <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2932	3051	
==>$_ => $self->{"_$_"} } qw{
                build_info smoker config revision timing
        }});
}

sub set_build_info { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8760	8856	
==>right, $y->right, @_);
};

multi unify => ('type::operator::nary', 'type::operator::nary') => sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22091	22192	
==>analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can lo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26643	26744	
==>analagous to what the identity numbers 0 and 1 mean to normal algebra.

A picture of a Relation can lo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1134	1251	
==>.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1134	1251	
==>.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new( start => $.end + $. <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12553	12664	
==>mment.  If so, it will place it into
C<$comment> (sans #).

=cut

sub _is_comment {
    my($self, $line, $commen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4655	4770	
==>add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5381	5496	
==>add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3735	3869	
==>[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->(), redo if ref($next) eq "CODE";
    }

    @stack = @{ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	226	358	
==>Plan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleto <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	226	358	
==>Plan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleto <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1613	1716	
==>e::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compila <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1613	1716	
==>e::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compila <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	651	785	
==>t $.normalizer_role;
            return $normalizer but $.coercer_role, collect_arguments( grep { not try { $normalizer.subsume( $_ ) } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6665	6764	
==>( $topcat == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( $topcat == PGE_OPTABLE_TERNARY );
  go <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22872	22976	
==>y> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27424	27528	
==>y> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Relat <==
2	/Users/nnunley/pugs/util/func_refact.pl	994	1129	
==>$_) . "\n";
        }
}
exit 0;

sub doUnion {
	my %ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	162	284	
==>TODO - generate AST
# TODO - redefine <ws> to test Pod.pm after each \n

sub register_sub {
    #~ $_[0] == 
        #~ 'pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1652	1757	
==>es = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$roo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1652	1757	
==>es = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$roo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	115	251	
==>arser;

do $ARGV[1] if $ARGV[1];

sub draw {
    my ($class) = @_;
    my $output = "graph test {\n";
      
    $output .= _draw($::Obje <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4656	4751	
==>med_character>|<simple_character> }
rule a_dot  { \. }
rule logical_grapheme { \< \. \> }
rule a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20532	20633	
==>iety of third party Engine
modules that become available over time.  One plan which I favor is that
th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20532	20633	
==>iety of third party Engine
modules that become available over time.  One plan which I favor is that
th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	86	217	
==>w) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	86	217	
==>w) returns Hash is export {
    my %events = (
        # Elements
        start_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40786	40880	
==>ation::Example is identical to the
invocant.  Another trivial case is where any any source rela <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11451	11597	
==>redoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc ter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11451	11597	
==>redoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc ter <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18336	18437	
==>nce the content
inside heredocs can possibly confuse further parsing.

Next, the source module is divi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18336	18437	
==>nce the content
inside heredocs can possibly confuse further parsing.

Next, the source module is divi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7321	7456	
==>> sub {
    @modfiles = map { (/^\Q$lib6\E\/(.+)$/)[0] }
                split "\000",
                `find $lib6 -print0`;
  };
my $ne <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2099	2208	
==>one
#using Regexp::Parser Objects, or wait for the hypotetical new ast.

#XXX - bugs
# Flag handling is curren <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	408	509	
==>ables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $mat <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	408	509	
==>ables) {
    my $match = $match_in<elem> ?? $match_in<elem> !! $match_in<block>;
    my $widget = $mat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9865	9964	
==>ct, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringif <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9865	9964	
==>ct, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringif <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	408	522	
==>s.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize durat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	408	522	
==>s.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - normalize durat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4149	4377	
==>y $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4149	4377	
==>y $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4377	4470	
==>e values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4377	4470	
==>e values 
C<encrypting>, C<encrypt> and C<encipher> are equivalent to C<enciphering>, 
while C <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6822	6914	
==>store a document identified by a URL, using
I<If-modified-since>, and checking the I<Content- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6822	6914	
==>store a document identified by a URL, using
I<If-modified-since>, and checking the I<Content- <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2357	2506	
==>$n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2357	2506	
==>$n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14946	15039	
==>he core of the
Rosetta framework and defines a common programmatic interface (API), called
the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14946	15039	
==>he core of the
Rosetta framework and defines a common programmatic interface (API), called
the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3376	3492	
==>is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3376	3492	
==>is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	326	445	
==>e ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	326	445	
==>e ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11185	11318	
==>um_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11185	11318	
==>um_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11050	11146	
==>e source code into something else. This is almost
# always overridden in a subclass.
sub pmc_comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11050	11146	
==>e source code into something else. This is almost
# always overridden in a subclass.
sub pmc_comp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15819	15957	
==>";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15819	15957	
==>";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $channel, Str $target { enqueue "INVITE $target $chan <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14986	15122	
==>ng \"$src\" to \"$dest\"",
    ensure => sub { -r $dest and -M $dest <= -M $src },
    using  => sub { copy $src => $dest };
}

step
  de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3304	3399	
==>_ast,
		print_program => $interface::print_program,
		print_match => $interface::print_match
	}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3521	3616	
==>_ast,
		print_program => $interface::print_program,
		print_match => $interface::print_match
	}) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27294	27404	
==>$col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must all be <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27294	27404	
==>$col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must all be <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2235	2338	
==>s within the strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2235	2338	
==>s within the strategy.  They're
done like this until pugs gets support for virtual classes.

=cut

has $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7932	8022	
==>users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($kill <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7932	8022	
==>users{~normalize($killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($kill <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23301	23404	
==>le FormalParameterList :words {  # see clause 13
      <Identifier>
    | <FormalParameterList> <','> <I <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9926	10027	
==>w) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9926	10027	
==>w) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_entit <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6868	6975	
==>ent =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_pro <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6868	6975	
==>ent =~ s/\r//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_pro <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4763	4884	
==>e( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4763	4884	
==>e( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1268	1397	
==>1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1268	1397	
==>1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1474	1599	
==>ammar\n";
    my $s = "";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self->{name}:<$_->{name} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	661	776	
==>$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}

# dump <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20985	21081	
==>igorously defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, P <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20985	21081	
==>igorously defined API onto a pre-existing (pseudo) relational
database manager (such as SQLite, P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2978	3109	
==>',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ogr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2978	3109	
==>',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ogr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7704	7859	
==>-Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7704	7859	
==>-Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4704	4810	
==>e thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  my $r = com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5651	5803	
==>{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5651	5803	
==>{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shif <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	243	368	
==>has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Cla <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	243	368	
==>has                         @!results;

method new ( Test::Builder $Class: $plan?, $output? )
{
    return $singleton //= $Cla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7477	7590	
==>late_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exce <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7477	7590	
==>late_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exce <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2152	2269	
==>ld not compile $exename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1748	1854	
==>name> . " = Pugs::Compiler::Token->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*regex = P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14933	15035	
==>ent that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14933	15035	
==>ent that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Ros <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1498	1611	
==>op {
    my ($self, $opt) = @_;
    #print "adding $opt->{name}\n";
    $opt->{assoc} = 'left' unless defined $opt <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1	108	
==>odule MIME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Valu <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1	108	
==>odule MIME::Base64;


# See http://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Valu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7536	7670	
==>person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7536	7670	
==>person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'table_field_detail' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3155	3278	
==>pen $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validato <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3155	3278	
==>pen $module: $!";
        unpack('%32N*', <$fh>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validato <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19526	19646	
==>st_ML_Print = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6962	7071	
==>get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling w <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6962	7071	
==>get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- add in URL handling w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6071	6197	
==>ol => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6071	6197	
==>ol => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    m <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1945	2048	
==>al perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1945	2048	
==>al perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10828	10932	
==>sual;

This will not return a F<Regexp> object, but the regex; it might be
slightly different from the re <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4911	5009	
==>if $Config{verbose};
}

sub usage {
    print STDERR <<".";
usage: $0 --inline src/perl6/Prelude.pm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	11	153	
==>::Utils;

use strict;
use JIB::Constants;

use File::Find::Rule;
use Cwd                         ();
use File::Copy                  ();
use Pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	33	127	
==>$Bin/lib",
    "$Bin/../../../../lib",
    "$Bin/../Pugs-Compiler-Rule/lib",
    "$Bin/../Pugs- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1221	1372	
==>s well
        {   print "Writing meta data...\n";
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need stat <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1277	1378	
==>_RUNTIME} eq 'JS';
# XXX: hack to be identified by smokeserv
$ENV{HARNESS_PERL}  = "$^X -I/tmp/JSPERL5 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	461	556	
==>nversion
sub to_native { @{(shift)} }

# conversion to other types
sub to_str { (shift)->join(st <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7754	7848	
==>e elements of C<@array>, in order. 

If C<@indextests> are provided, only elements whose indice <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3831	3957	
==>V{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs o <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3831	3957	
==>V{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32933	33031	
==>.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32933	33031	
==>.

A Translator object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6011	6112	
==>erl-6 specific workaround is done since $message param can oft
    # be set from a caught exception (a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6011	6112	
==>erl-6 specific workaround is done since $message param can oft
    # be set from a caught exception (a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4289	4468	
==>Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4289	4468	
==>Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$node_type!,
            Any                      :%attribu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	400	498	
==>ss - Run Perl standard test scripts with statistics

=head1 VERSION

Version 2.46

=cut

$VERSION = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5129	5226	
==>>pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5129	5226	
==>>pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	463	588	
==>y $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	560	685	
==>y $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($str,3,1) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	764	871	
==>',
			fixity => "nullary",
			type => Blondie::TypeSafe::Type::Std->new("GV"),
		},
		{
			arity => 3,
			na <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1911	2028	
==>and add anomalies
    # to each event.
    # Note that I use the test number for reference, which will
    # blow up i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2201	2317	
==>urns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2201	2317	
==>urns Str is export {
    # If it's UNC, make sure the glue separator is there, reusing
    # whatever separator is fi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7508	7682	
==>xt =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7508	7682	
==>xt =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	488	598	
==>atch->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	215	315	
==>';
use constant RPe_NOTERM => --$ENUM, 'Sequence (?#... not terminated';
use constant RPe_LOGDEP => - <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	982	1082	
==>x sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	982	1082	
==>x sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( < <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	636	733	
==>NAME

Blondie::Prelude::Control - 

=head1 SYNOPSIS

    use Blondie::Prelude::Control;

=head1 DE <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21229	21328	
==>rset_member(E0,C,Set).

class_member(class_pos(space_perl),C) :- !,   (char_type(C,space) ; C = 11). <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4373	4468	
==>16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4373	4468	
==>16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1293	1390	
==>h installs a event handler listening
for all C<PRIVMSG>s. Each time people say something (in publi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1293	1390	
==>h installs a event handler listening
for all C<PRIVMSG>s. Each time people say something (in publi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1337	1445	
==>} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1477	1585	
==>} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22442	22537	
==>hen a program package would return a code-key to indicate a
condition, often it will also provid <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22442	22537	
==>hen a program package would return a code-key to indicate a
condition, often it will also provid <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16055	16158	
==>h  => sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unimplemen <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	483	579	
==>ate_nodes($program);

	$self->{seen} = {};

	return $self->reduce($program) unless @nodes;

	$sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7187	7321	
==>eturn $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` cl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7187	7321	
==>eturn $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lots of potential `where /.../` cl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2441	2543	
==>element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

= <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2441	2543	
==>element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the last element of C<@array>.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19511	19656	
==>s}[-1],
      family => 'close',
      type => 'tail',
      raw => ')',
      omit => 1,
      up => 1,
    }, $class;
    return $self;
  }

  s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37041	37137	
==>te->new('@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@:supercl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1389	1523	
==>lue;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1389	1523	
==>lue;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~= "\n$0";
            #%head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9346	9436	
==><HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of attri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9346	9436	
==><HTTP::Headers> class encapsulates HTTP-style message headers.
The headers consist of attri <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18398	18512	
==>arsing.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAR <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18398	18512	
==>arsing.

Next, the source module is divided into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAR <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23091	23264	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42694	42866	
==>(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13837	13962	
==>d of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13837	13962	
==>d of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Span
    
    Set::Infinite

= AUTHOR

Flavio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1536	1638	
==>clared within

that scope.



the Sig contains a simply structure of the signature; it does

not alloca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1474	1572	
==>clared within
that scope.

the Sig contains a simply structure of the signature; it does
not alloca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	431	544	
==>$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	431	544	
==>$val};
	} elsif (ref $val eq 'ARRAY') {
		return map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub x <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1055	1152	
==>ize 1;
Clutter::int_size 2;
Clutter::int_size 4;
Clutter::int_size 8;
Clutter::int_size 16;
Clutte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9146	9290	
==>lete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9146	9290	
==>lete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $po <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2475	2575	
==><=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2475	2575	
==><=> $span.end;
}

method difference ($self: $span ) returns List {
    return $self if $self.is_empty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1013	1136	
==>'-',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15421	15541	
==>imply mapped char for
char to the desired level. However, attempting to stuff something into
the string at a higher level <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9790	9909	
==>2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9790	9909	
==>2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular order)
  say ~([1,2, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2630	2735	
==>\( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2630	2735	
==>\( <siglet> \) ]?
}

# Defaults

rule defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7611	7735	
==>f: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7611	7735	
==>f: )             is rw { $self.header("Authorization") }

method proxy_authenticate ($self: )        is rw { $self.header("Pr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2824	2923	
==>uiltins - table of prelude replacement relevant to the perl backend

=head1 SYNOPSIS

    use Blondi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17507	17617	
==>loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a po <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17507	17617	
==>loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that it is I<not> a po <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6024	6154	
==>q 'Array') {
        my $a = get_meta('Array')->new;
	$a->push( @_ );
        return $a;
    }
    if($cls eq 'Hash') {
	die "unimp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2962	3114	
==>= shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2962	3114	
==>= shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1579	1689	
==>sonal/Hans_Boehm/gc/
		Inline->bind(C => $c_code); # marble losing routine
		\&b_main;
BIND

	die $@ if $@;

	r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5038	5140	
==>$node = shift;
	$self->{defined_nodes}->includes($node);
}

sub reduce_thunk {
	my $self = shift;
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	307	421	
==>structor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	307	421	
==>structor
multi *infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5245	5358	
==>>new( lang => 'YAML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5064	5171	
==>>new( lang => 'YAML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8500	8615	
==>ation user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8500	8615	
==>ation user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24112	24214	
==>ion::Example object is an unordered set of tuples, each of which is an
unordered set of named attribute <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9771	9869	
==>rence( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9771	9869	
==>rence( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7125	7281	
==>s: "; 
        my @params;
        for %pad<"pSubParams"> {
            push @params, traverse_ast ( $_ );
        }
        dbg "# Type:       "; my $type = <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2653	2833	
==>slots')} = ($size - 1);
                }
            },

            'array_extendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $size = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3909	4056	
==>uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3909	4056	
==>uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2168	2273	
==>/=/ } (split /:/, ($ENV{PUGS_BUILD_OPTS} || ''));
    $conf->{$_} = $env{$_} for keys %env;
}

sub default <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11258	11369	
==>rver if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11258	11369	
==>rver if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:han <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	9032	9156	
==>v.perl.org/perl6/doc/design/syn/S03.html>

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibelmann Glock and others.

Thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5498	5668	
==>,
                to    => \( $match->from ),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	867	1037	
==>node<Array::Const>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5525	5631	
==>ags) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flag <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19495	19590	
==>hange
your main program.

I<Note that an update is planned for Locale::KeyedText that will enabl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19495	19590	
==>hange
your main program.

I<Note that an update is planned for Locale::KeyedText that will enabl <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4429	4515	
==>-> "{", !, p5_range_bounds(Min,Max), "}", p5_range_greed(W,Min,Max,Z), !.
p5_range_gree <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7120	7262	
==>atch = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7120	7262	
==>atch = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( def <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1317	1438	
==>r args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @ne <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1317	1438	
==>r args here, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @ne <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4882	5008	
==>(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Bet <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4882	5008	
==>(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Bet <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	668	768	
==>s used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support enci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	668	768	
==>s used with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support enci <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36488	36580	
==>s method takes a (machine-readable) Message object as its positional
parameter $message and r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36488	36580	
==>s method takes a (machine-readable) Message object as its positional
parameter $message and r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	215	326	
==>rns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	215	326	
==>rns Str is export {
    return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5956	6073	
==>t(alnum => 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->wa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1314	1490	
==>(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1314	1490	
==>(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    } <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1176	1285	
==>ME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_a <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1176	1285	
==>ME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_name_is_a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10298	10413	
==><= pos goto err_closure
    $S0 = substr target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = subs <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp1.pl	8	121	
==>pl - Anwendung von temp
my $log = 0; sub log { say if $log; }

sub beispiel {
	temp $log = 1;
	log "test2";
}

log <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	21	127	
==>0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub serve <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	21	127	
==>0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub serve <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2284	2379	
==>he identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2284	2379	
==>he identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9036	9206	
==>erl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9871	10041	
==>erl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27054	27152	
==>files appeared in that directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36029	36132	
==>ray reference as the contents of the look-ahead, and we're done.  Now
we just need to return the regex r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20978	21216	
==>dy => fun(
                param => "n",
                body => cond(
                    if => comb(
                        fun => ide("is_nil?"),
                        param => ide("xs"),
                    ),
                    th <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2873	3031	
==>alue('@:slots')}, mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => sub {
                my $self = shift;
                my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2337	2454	
==>term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3118	3235	
==>term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_application_term {
    my $term <==
2	/Users/nnunley/pugs/util/package-osx.pl	1332	1450	
==>symlinks = qw(
        /usr/local/bin/pugs ../../bin/pugs
        /usr/local/bin/pugscc ../../bin/pugscc
        /usr/l <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1463	1560	
==>.\$m.\"/g;
	$expr =~ s/\$([0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	12	107	
==>::Utils::Dump;
use strict;
use warnings;

require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=q <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1131	1222	
==>::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1131	1222	
==>::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	486	674	
==>- # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head1 NAME

    JI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23999	24091	
==>ts that they
use a compile-time macro-based approach to substitute the user's preferred
langu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23999	24091	
==>ts that they
use a compile-time macro-based approach to substitute the user's preferred
langu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24038	24138	
==>e bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This pro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24038	24138	
==>e bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This pro <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	196	304	
==>DR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	196	304	
==>DR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22545	22638	
==>ead2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22545	22638	
==>ead2 The Rosetta::Interface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1552	1666	
==>s, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1552	1666	
==>s, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2829	2932	
==>tor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fie <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2829	2932	
==>tor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20715	20810	
==>$h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20715	20810	
==>$h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->header_fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8341	8485	
==>:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8341	8485	
==>:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? If not, put
    #   Carp::croak(" <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1669	1822	
==>= $events->[$i];
            if($all_the_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28785	28884	
==>(RX_MATCH_UTF8_off(prog), (PL_reg_match_utf8 = 0)))

 #define REXEC_COPY_STR	0x01		/* Need to copy t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15724	15832	
==>less $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10580	10688	
==>less $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10308	10410	
==>ub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions are emulated <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10308	10410	
==>ub {...}, universe => $universe )`

Creates a recurrence set.

The complementary functions are emulated <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	851	1008	
==>ash
{
  my ($hash, $desc) = @_;
  while ( my ($k,$v) = each %$hash ) {
    print "$desc: $k => $v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7255	7403	
==>$package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7255	7403	
==>$package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in le <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9624	9721	
==>ta) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9624	9721	
==>ta) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3648	3752	
==>cument that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3648	3752	
==>cument that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8721	8840	
==>t_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8721	8840	
==>t_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($b <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3551	3657	
==>hadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_r <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3551	3657	
==>hadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	575	749	
==>, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	575	749	
==>, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3041	3159	
==>le</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $res <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3041	3159	
==>le</TITLE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $res <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25004	25122	
==>g a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a speci <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25004	25122	
==>g a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover the whole combination.  As a speci <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13974	14091	
==>r_non_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $as_array_com <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	122	224	
==>1_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	520	631	
==>s;
}

sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	619	711	
==>f->pretty_print

Pretty prints the dependency declaration from the META.info.
It will turn an <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3024	3130	
==>ef eq 'Dispatchable';
}
sub p6_is_native {
    my $ref = ref($_[0]);
    !$ref || $ref ne 'Dispatchable';
} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	377	479	
==>failed";
my $m;
if($bench) {
  timethis (-1*$duration, sub {$m = match($r,$str)});
} else {
  $m = matc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8106	8230	
==>{
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8106	8230	
==>{
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	687	811	
==>:Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.valu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	687	811	
==>:Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.valu <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	259	351	
==>musement, I've inserted unchanged
# my original first attempts, head.p6, tail.p6, rev.p6, mid <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1621	1751	
==>{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1588	1718	
==>{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2735	2860	
==>.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $lengt <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2735	2860	
==>.new( items => [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $lengt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16396	16491	
==>forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This prog <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16454	16549	
==>forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This prog <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11720	11837	
==>=> sub { $_[0]->as_perl5_bool },
     );
sub p6_as_bool {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $hand <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2976	3102	
==>uild_info smoker config revision timing
        }});
}

sub set_build_info {
    my($self) = @_;
    my $executable = $ENV{HARN <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10593	10709	
==>$template->param("file" => $file);
  my $output = ""; 
  
  while (my $rest = <$infile>) {
    chomp $rest;
    $outp <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7066	7160	
==>that will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7066	7160	
==>that will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_elem <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9354	9471	
==>ick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9354	9471	
==>ick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostnam <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8278	8406	
==>D($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exact;
  sub emit{
    my($o)=@_;
    my $no <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1662	1863	
==>ing = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1662	1863	
==>ing = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6942	7083	
==>closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6942	7083	
==>closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbit <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	251	379	
==>L::Run::Container::Array' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12410	12528	
==>om_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12410	12528	
==>om_nick,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$comm <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7974	8086	
==>n0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7974	8086	
==>n0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24221	24319	
==>lation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a sing <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28773	28871	
==>lation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a sing <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3623	3739	
==>ss fatal {
    # pragma to dispense of the holy war about whether to raise
    # exceptions or return false values to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1691	1795	
==>ape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->compile(q(" . <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1396	1500	
==>w< fps HsSyck >) {
        chdir "third-party/$module";
        system("../../Setup$Config{_exe}", 'confi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3490	3610	
==>lved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3954	4074	
==>lved = _parse_depends( \@deps, \@index, \@avail );

    }

    ### XXX merge with _pp_depends!      
    sub _parse_depen <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	177	286	
==>set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',') <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	177	286	
==>set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',') <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	164	261	
==>, {name $person}!".say;
	}
}
#=benutzen von Instanz-Variablen
Person $person = new Person;
name $p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5314	5408	
==>AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5314	5408	
==>AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMEN <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2208	2322	
==>ntly an utter kludge. not even trying with m and s.
# Match objects arent being created for capture groups which ar <==
2	/Users/nnunley/pugs/util/package-osx.pl	4546	4652	
==>/usr/local/man/man3/Perl6::Bible::S03.3pm
        /usr/local/man/man3/Perl6::Bible::S04.3pm
        /usr/lo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24415	24513	
==>C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28967	29065	
==>C<export_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref o <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1831	1922	
==>e_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${re_symbol})->(\(.+?\))/\$$1$2/g;
    s/(${re_varn <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11046	11159	
==>$result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11046	11159	
==>$result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	678	797	
==>);
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	678	797	
==>);
	return $self;
}

sub add_rule {
	my ($self, $rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5768	5853	
==>ion

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Pe <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5768	5853	
==>ion

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Pe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3613	3709	
==>$p2->get_x, 100, '... still got the right x for p2');
is($p2->get_y, 200, '... still got the righ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21894	21996	
==>'>
}
rule WithStatement :words {  # see 12.10
      <'with'> <'('> <Expression> <')'> <Statement>
}
rul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31752	31850	
==>ce that the
current user is fluent in (and prefers) language A but also understands
language B.  La <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31752	31850	
==>ce that the
current user is fluent in (and prefers) language A but also understands
language B.  La <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	234	354	
==>e base 'type';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('type'))
        || confess "You mus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1979	2136	
==>eq.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1979	2136	
==>eq.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $c <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1393	1598	
==>+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1393	1598	
==>+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################


multi encode <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	756	863	
==>($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22978	23081	
==>.5 Functions and Programs

rule FunctionDeclaration :words {  # see clause 13
      <'function'> <Identi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1948	2081	
==>for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1948	2081	
==>for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12070	12191	
==>ns the element in the recurrence that is right before the parameter.

- `current( $x )`

Returns the parameter value if th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12070	12191	
==>ns the element in the recurrence that is right before the parameter.

- `current( $x )`

Returns the parameter value if th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3958	4063	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3958	4063	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15471	15583	
==>bject )` / `set_end( $object )`

Change the start or end value of the span.

These methods may raise a warning if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15471	15583	
==>bject )` / `set_end( $object )`

Change the start or end value of the span.

These methods may raise a warning if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4580	4715	
==>f->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4720	4855	
==>f->{perl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13885	13985	
==>s Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13943	14043	
==>s Bool`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35152	35259	
==>methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35152	35259	
==>methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13291	13413	
==>if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13285	13407	
==>if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15064	15213	
==>> sub { $as_hash_complain->("code") },
      ref   => sub { $as_hash_complain->("ref") },
      glob  => sub { $as_hash_complain->("glob") },
      lv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5453	5558	
==>lly read-only, however, all the return values of the
closure are collected into another list which is then <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2838	2961	
==>,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  su <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2838	2961	
==>,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data,$constructor,*@fields) {
    my $code = "\n  su <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	251	361	
==>e @.supers;

multi method isa($self: Class $class) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1379	1542	
==>r->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1379	1542	
==>r->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "abc"
      print $match->from;     # 0
      print $match->to;       # 3 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6584	6694	
==>p /^-threaded/, @_;
    push @libs, grep /^-opt/, @_;
    push @libs, grep /^-[lL]/, @_;
    push @libs, grep / <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27794	27892	
==>::*> object of the same name, and finally
from F<Regexp::Parser::__object__>.  Don't worry -- if yo <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	553	660	
==>n_wanted;

my %request = (upload => 1, version => VERSION, smokes => []);

{
  my $file = shift @ARGV;
  deb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3604	3748	
==>]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3592	3736	
==>]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	167	265	
==>ject fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields( <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	167	265	
==>ject fallback to "content"
method source($self:) {
    $.source || $.content;
}

method dom_fields( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3689	3889	
==>+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub deco <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3689	3889	
==>+
#        |5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub deco <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2583	2838	
==>::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2583	2838	
==>::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Rosetta::I <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	243	342	
==>se DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of da <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	243	342	
==>se DateTime::Recurrence;

  # XXX

= DESCRIPTION

This class represents an infinite recurrence of da <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	623	727	
==>raph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' sk <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	623	727	
==>raph, which is a Computer
Scientist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' sk <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	9	118	
==>role Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	9	118	
==>role Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13892	13999	
==>eate a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13892	13999	
==>eate a span representing a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4391	4488	
==>r English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4391	4488	
==>r English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	24	115	
==>al
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primiti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	24	115	
==>al
require 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primiti <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10229	10319	
==>ef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10964	11054	
==>ef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5229	5384	
==>ex, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5693	5848	
==>ex, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1730	1850	
==>param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1730	1850	
==>param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName>() . " " . $<pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6529	6653	
==>ft @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6722	6846	
==>ft @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1339	1441	
==>%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1339	1441	
==>%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2085	2208	
==>ss $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2225	2348	
==>ss $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsistent parameter order - could just <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	539	639	
==>nput file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	539	639	
==>nput file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10254	10363	
==>'%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10254	10363	
==>'%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	577	823	
==>pplies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	577	823	
==>pplies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18208	18301	
==>describes the rather complex algorithm that
Module::Compile uses.

First, the source module is <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18208	18301	
==>describes the rather complex algorithm that
Module::Compile uses.

First, the source module is <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3317	3405	
==>($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3317	3405	
==>($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($b <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9176	9307	
==>nter; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { color: #030; } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18747	18860	
==>a}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20105	20218	
==>a}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2310	2456	
==>a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a tempo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2310	2456	
==>a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353;            # We need a tempo <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	977	1100	
==>$args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	944	1067	
==>$args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3185	3411	
==>bol'),
                           symbol->new('?%opts'      => 'hash'),                        
                       ),
            returns => 'method'
        ),
        sub {
            my $e = shift;
            $e->creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	658	782	
==>} 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = len <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	658	782	
==>} 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = len <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3597	3722	
==>module ||= $1 if /^(?:package|module|class) \s+ ([^-;]+)/x;
            $program .= $_;
        }

        die "could not gues <==
2	/Users/nnunley/pugs/util/grokprims.pl	1456	1562	
==>} @{$op->{args}}) .")";
  } elsif (/(list|chaining) infix/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0 <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	131	255	
==>Mein Name ist $name.";
#=Arrays
Perl 5: my @array = (1,2,3); print "$a[0]";
Perl 6: my @array = (1,2,3); print "@a[0]";
#=Has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28333	28432	
==>s method creates a method of the parser named $seq, and set it to
the code reference in $code.  Exam <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2881	3005	
==>cation,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2881	3005	
==>cation,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	659	755	
==>number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	717	813	
==>number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_tod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15857	16039	
==>mmar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16136	16318	
==>mmar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5650	5754	
==>head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::E <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5650	5754	
==>head1 NAME

Pod::Event::Parser - A simple event based POD parser

=head1 SYNOPSIS

  use v6;
  use Pod::E <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1092	1193	
==>every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

co <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1092	1193	
==>every line if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38806	38922	
==>UAL: ^(?:.*foo&\D*(\d+))
  REGEX:  (?-xism:^(?:(?=.*foo)\D*(\d+)))
  VISUAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	99	197	
==>Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

use Carp 'c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	858	978	
==>ing ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1064	1184	
==>ing ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	882	986	
==>yedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	882	986	
==>yedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	15	124	
==>:DOM::Text is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all it's doing i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	15	124	
==>:DOM::Text is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all it's doing i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7757	7864	
==>illee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7757	7864	
==>illee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	55	146	
==>unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	55	146	
==>unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?::URI_CLASS <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5095	5213	
==>te names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8572	8690	
==>te names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12553	12646	
==>rset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12553	12646	
==>rset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19129	19230	
==>s of the relational
data model proposed by Edgar. F. Codd, upon which anything in the world can
be mod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22779	22880	
==>s of the relational data model proposed
by Edgar. F. Codd, upon which anything in the world can be mod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11616	11740	
==>f $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11616	11740	
==>f $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2061	2201	
==>rm = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2072	2212	
==>rm = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rule_terms ),
        \&ws_star,
    );

# XXX - allow whitespace <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2804	2922	
==>ify
sub build {
    my $self = shift;
    my $conf = $self->config;

    ### XXX move to builddir under pkg_dir/_jib/bu <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1950	2043	
==>'configure', '--user', grep !/^--.*=$/, @{$opts->{SETUP}});

    my $pm = "src/perl6/Prelude.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3758	3979	
==>orreponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3758	3979	
==>orreponding Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                fo <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2354	2464	
==>1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2354	2464	
==>1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3333	3437	
==>sure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fund <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3333	3437	
==>sure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fund <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18571	18682	
==>Text does is associate each member in a set of key-codes,
which are hard-coded into your application or package, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18571	18682	
==>Text does is associate each member in a set of key-codes,
which are hard-coded into your application or package, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1738	1854	
==>ide must be a core type";    
    ($right->to_num->to_native != 0)
        || confess "Division by zero error";
    r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	601	694	
==>object model object called the
# schema
Has($?CLASS, "schema", "Ref", { companion => "classes" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38174	38277	
==>method takes a defined (but possibly empty) Template text string in
its positional parameter $text (a st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38174	38277	
==>method takes a defined (but possibly empty) Template text string in
its positional parameter $text (a st <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8442	8589	
==>led = grep { !$results{details}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs addition
        # Th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1023	1154	
==>ot x" is expressed as
#     <!before x> <Foo>
#   * "lookahead is not an element of { x }" is expressed as
#     <!before x>
#     S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6283	6380	
==>bout whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Has <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6283	6380	
==>bout whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5791	5913	
==>r {
  my ($self, @handles) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handl <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2711	2821	
==>= @_;

    my $extensions = $self->{extensions} || [];
    unless (@$extensions) {
        $self->load_extensio <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15385	15481	
==>ies ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $enco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15385	15481	
==>ies ();
  $decoded = HTML::Entities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $enco <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30741	30844	
==>o parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30741	30844	
==>o parts, the Set Name and the Member
Name.  The Set Name comes first and makes up most of the module nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1167	1308	
==>iate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1372	1513	
==>iate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1067	1160	
==>st->registered_alternatives_file

=cut

sub registered_alternatives_file {
    my $self = shif <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18281	18533	
==>RR);

                    my $i=-1;
                    foreach ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6860	6963	
==>to module documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6626	6726	
==>to module documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versi <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1873	2020	
==>$x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sig <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2410	2557	
==>$x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8703	8824	
==>ad bool to false ;)

(I mean, seriously, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I thin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8414	8531	
==>ad bool to false ;)
(I mean, seriously, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I thin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3875	3979	
==>and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=item C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3875	3979	
==>and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=item C< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3590	3709	
==>my ( $op, $x, $y ) = @_;
    my @x = ($x);
    @x = @{$x->{list}} if exists $x->{list} && $x->{op1} eq $op;
    retur <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4752	4871	
==>citly in case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4611	4730	
==>citly in case user has already set some values.
    while ( my ( $key, $value ) = each %$data ) {
        next unless $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1547	1640	
==>ned

=head1 DESCRIPTION

These ADTs are the implementation classes of all the L<Blondie::Nodes <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4442	4553	
==>et_config;
}

sub pugs_binary {
    my $self = shift;
    my $pugs = "pugs$Config{_exe}";
    my $base = $self-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	61	155	
==>Blondie::Runtime/;

use strict;
use warnings;

use Blondie::Backend::Perl::Builtins;

use UNIVE <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1731	1852	
==>al_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1731	1852	
==>al_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	690	832	
==>{ native($_) } (
		{
			arity => 0,
			name => '$*OUT',
			body => 'stdout',
			fixity => "nullary",
			type => Blondie::TypeSafe::Type::Std->n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6144	6257	
==>te($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6144	6257	
==>te($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$cha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2484	2667	
==>',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2495	2678	
==>',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( '?' ),
                        ruleop::constan <==
2	/Users/nnunley/pugs/util/version_h.pl	1272	1387	
==>nfo) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26834	26938	
==>oad;
use Language::Prolog::Sugar
	    functors => [qw(foo tokenize domatch)],
	    vars => [qw (L X Y Z)] <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3682	3789	
==>a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Gi <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3682	3789	
==>a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Gi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8494	8612	
==>ew()
  )
  {}
  
  submethod DESTROY
  {
      my $footer = $.testplan.footer( +@:results );
      $.output.write( $foo <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2502	2596	
==>oke($html_location);
if ($smoke_upload) {
  if (defined $smoke_upload_script) {
    system("$^X <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12125	12259	
==>.. alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12119	12253	
==>.. alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualifi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3627	3751	
==>ue if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3627	3751	
==>ue if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8226	8413	
==>bort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8226	8413	
==>bort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7503	7638	
==>eturning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7503	7638	
==>eturning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($ <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	269	387	
==>ring is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $s <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	269	387	
==>ring is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4117	4237	
==>et()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4117	4237	
==>et()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12805	12897	
==>([],Close)    --> [Close], !.
p6_named_character_tail([C,T],Close) --> [C], p6_named_characte <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	78	181	
==>ol $.isMulti;

has Str $.subName;

# SubType is SubMethod | SubRoutine | SubBlock | SubPrim
enum SubType <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1445	1540	
==>ness is the module that reads the
output from Test::Simple, Test::More and other modules based o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	679	1089	
==>tributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	679	1089	
==>tributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7341	7478	
==>t a debug message 

    ruleop::wrap( { 

            before => sub { print "matching variable: $_[0]\n" },

            after  => sub { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7093	7227	
==>t a debug message 
    ruleop::wrap( { 
            before => sub { print "matching variable: $_[0]\n" },
            after  => sub { $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4478	4619	
==>},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4478	4619	
==>},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document );
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1559	1721	
==>0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1505	1662	
==>0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2988	3132	
==>pt;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP ser <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2988	3132	
==>pt;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::Simple - A minimal HTTP ser <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17890	17990	
==>used by the originating server program handling the request.

=item $h.from

This header should conta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17890	17990	
==>used by the originating server program handling the request.

=item $h.from

This header should conta <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1948	2044	
==>ith any tags, it will intuit one by extracting the 
last component of the calling function's pack <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1948	2044	
==>ith any tags, it will intuit one by extracting the 
last component of the calling function's pack <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23971	24078	
==>utions like "gettext" suggests that they
use a compile-time macro-based approach to substitute the user's pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23971	24078	
==>utions like "gettext" suggests that they
use a compile-time macro-based approach to substitute the user's pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2988	3128	
==>d_rule( 
        name => '&&',
        assoc => 'right',
        precedence => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53115	53240	
==>ass'));
$::Object->send('name'  => str->new('Object'));
$::Package->send('name' => str->new('Package'));
$::Module->send('name <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3269	3362	
==>s $self->can_reduce($node);

	my $kind = $node->struct_equiv->moniker;
	my $method = "define_$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2739	2853	
==>S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3312	3426	
==>S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 1)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	649	755	
==>ion of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

use 5.004;
use strict 'var <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5521	5629	
==>l_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip - <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5521	5629	
==>l_content.
    my @lines = ($real_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip - <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6991	7098	
==>= canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6991	7098	
==>= canonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	528	626	
==>P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	528	626	
==>P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9872	10026	
==>$results{passing}) {
            if ($test{max} and $test{skipped} + $test{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22046	22141	
==>and Relation::Example::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This documentation <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8952	9054	
==>ap 

 multi Array::map (@values,   Code $expression --> Lazy ) 
 multi  List::map (Code $expression ; * <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2080	2178	
==>nts a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules synta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2169	2267	
==>nts a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules synta <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3655	3805	
==>::Lists::zip (; Array *@lists, Bit :$shortest) returns Lazy {
   gather {
     while $shortest ?? all (@lists) !! any(@lists) {
       for @lists -> @l <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	69	170	
==>005 by Andras Barthazi
#  This code is totally free, use it as you want
# ---------------------------- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	69	170	
==>005 by Andras Barthazi
#  This code is totally free, use it as you want
# ---------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3099	3453	
==>l stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3099	3453	
==>l stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	481	631	
==>ly once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	481	631	
==>ly once, whenever there is an access
#       to: .from(); .to(); methods that call ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	219	304	
==>---------------------------------------------------------------------------
## constru <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	219	304	
==>---------------------------------------------------------------------------
## constru <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12929	13089	
==>close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endclass
    if $S0 == "-" goto err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2923	3023	
==>'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($class, %opt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5205	5320	
==>$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simpl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2747	2862	
==>$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simpl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39666	39756	
==>sit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free softwa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39666	39756	
==>sit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free softwa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7638	7758	
==>ements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the ar <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7638	7758	
==>ements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the ar <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2458	2599	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2458	2599	
==>_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9501	9616	
==>zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.differenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9501	9616	
==>zero integers - alternative form
    # Note: $non_zero is a Set::Infinite object
    $non_zero = $universe.differenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	437	527	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	437	527	
==>$grammar->no_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1634	1732	
==>ulti sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:« <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1634	1732	
==>ulti sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:« <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2968	3093	
==>"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2968	3093	
==>"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	113	207	
==>e Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

us <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	14	108	
==>e Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basename ();

us <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	170	295	
==>" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	170	295	
==>" and
      closed-set could be "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	89	197	
==>t;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $m <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	89	197	
==>t;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $m <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5774	5883	
==>rsion( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    req <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5256	5365	
==>rsion( ExtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    req <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3977	4085	
==>Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3977	4085	
==>Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infi <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3649	3831	
==>{
                if rand < .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22443	22539	
==>arnings when used
in flag and non-capturing group constructs.

=back

=head2 0.01 -- June 29, 200 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	436	555	
==>=> $type || 'type',
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this here for a con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14542	14661	
==>me()} = $_.meta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1660	1775	
==>re::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1660	1775	
==>re::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2056	2196	
==>ir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $arg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2034	2174	
==>ir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $arg <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10882	11004	
==>elf.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $clas <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10882	11004	
==>elf.cipher($plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $clas <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1583	1730	
==>ject>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1583	1730	
==>ject>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21504	21607	
==>neg(word)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos(X)         ,C) :- catch(   char_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21459	21553	
==>sure C<(?(N)T|F)> works right).
In doing so, found that the "too many branches" error wasn't be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2372	2515	
==>eturn;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2296	2432	
==>eturn;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4640	4720	
==>[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)* <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4640	4720	
==>[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)* <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9299	9435	
==>" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9287	9423	
==>" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11354	11455	
==>tional pipe. Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Bool :$w) returns IO <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	139	248	
==>r;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSI <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	40	149	
==>r;

use strict;
use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSI <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3895	4001	
==>er-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3895	4001	
==>er-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/assignments/pa1/>,
L<http://en.wikipedi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	940	1073	
==>_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	949	1082	
==>_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$const/s )  
$_[1]     ? do { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34019	34114	
==>am or its libraries.
When translating a message, a match in found in the most preferred language <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34019	34114	
==>am or its libraries.
When translating a message, a match in found in the most preferred language <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19463	19586	
==>ush @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19742	19865	
==>ush @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{'_print'} = 

    sub { 
        m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2346	2463	
==>ile( $tmpsrc, $self->config->build_dir ) )
#                 or error( "Could not remove metadir from '$tmpdir" ), ret <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4421	4516	
==>s));

my @tokens;
my $tok = def_rule('token',mk_dynamic_alt(\@tokens));
# tokens should be longe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	886	1027	
==>t = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	886	1027	
==>t = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	30	294	
==>ocale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	30	294	
==>ocale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	744	878	
==>ol {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	744	878	
==>ol {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13359	13473	
==>ed )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13359	13473	
==>ed )

This will in-place replace HTML entities in $string.  The %entity_to_char
hash must be provided.  Named entit <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10946	11053	
==>nFile($filename, $mode);

        # XXX layers :)
        Pugs::Internals::hSetBinaryMode($fh, Bool::True) i <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4836	4934	
==>s please refer to:

   http://www.haskell.org/ghc/docs/5.04/html/building/winbuild.html
   http://w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6767	6915	
==>}
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6767	6915	
==>}
      }

      $self!header("Referer", $new);
    }
  );
}

our &referrer ::= &referer;

method title ($self: )                     is rw { $self.h <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25325	25423	
==>>new,
		type::operator::pair->new(
			type::variable::free->new,
			type::variable::free->new,
		), <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3288	3427	
==>->from() + 1);
  }
  return $matchObj;
}

sub alnum {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Mat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5826	5916	
==>e) unless defined $self->simplify_type($expected_type);

		return $node if $self->types_eq( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5145	5244	
==>($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5145	5244	
==>($module_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1476	1634	
==>input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1476	1634	
==>input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did not s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16203	16336	
==>eset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16203	16336	
==>eset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36858	37008	
==>>fetch($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_attribute', (symbol->new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8260	8349	
==>s{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8260	8349	
==>s{$_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2200	2301	
==>ule names are typically 
capitalized, most "autotags" will be too.

When activated, the special tag C< <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2200	2301	
==>ule names are typically 
capitalized, most "autotags" will be too.

When activated, the special tag C< <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	968	1061	
==>array[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	968	1061	
==>array[1...] }
sub init(@array)  is export { @array[0..@array.end-1] }

sub replicate(Int $n, C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2404	2510	
==>.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2404	2510	
==>.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2340	2594	
==>ibutes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2340	2594	
==>ibutes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13873	13989	
==>thod join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13873	13989	
==>thod join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3328	3468	
==>h ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3328	3468	
==>h ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7529	7628	
==>verse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing the lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7529	7628	
==>verse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list containing the lazy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	997	1098	
==>hatever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (id <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	997	1098	
==>hatever
    return - the block (sub-reference) that contains 'return'
    label - the capture name (id <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1303	1420	
==>??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_alias>|<numbered_scalar_alias>|<array_alias>|<hash_alias>|<extern <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7984	8090	
==>parser->errnum;
    # ...
  }

If you want to see if an error is a particular error, see
L</"ERROR HANDLING <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	137	241	
==>b/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO exi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	137	241	
==>b/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before OO exi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31498	31594	
==>n has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36048	36144	
==>n has all of the same attributes as the original.  Trivial cases are
where C<$predicate> simply r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1473	1584	
==>ject> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1473	1584	
==>ject> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1219	1319	
==>int($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remot <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1219	1319	
==>int($doc);
}

method handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remot <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12434	12561	
==>> $name, 0)) if $cc;
    return $S->object(prop => $name, 0);
  });

  # clump (a unicode clump)
  $self->add_handler('\X' => su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19225	19325	
==>ww_authenticate

This header must be included as part of a C<401 Unauthorized> response.
The field va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19225	19325	
==>ww_authenticate

This header must be included as part of a C<401 Unauthorized> response.
The field va <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19883	19985	
==>After all the code has been parsed into blocks and the blocks have been
marked for various compilers, M <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19883	19985	
==>After all the code has been parsed into blocks and the blocks have been
marked for various compilers, M <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26290	26389	
==>those attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the orig <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30842	30941	
==>those attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the orig <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6687	6795	
==>by making a 
copy internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6687	6795	
==>by making a 
copy internally, and should return the copy once it has been encrypted or 
decrypted.

=item C<_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2388	2541	
==>e-time subroutine
    Rule        Perl pattern
    Block       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Param <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	628	899	
==>kages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	628	899	
==>kages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::D <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1410	1515	
==>}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib. <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1410	1515	
==>}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib. <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5542	5697	
==>/index.tmpl');
my $i = 0;
my $c = int((@dirs+1) / 3)+1;
$template->param(directories => [ map { { title => $_,
                                          wra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1895	2003	
==>y $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1895	2003	
==>y $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slurp {
    my $fh = IO::File->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11914	12045	
==>}xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4557	4688	
==>}xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20603	20701	
==>u really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20603	20701	
==>u really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it l <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/hyper1.pl	128	289	
==>a;       # $x zu allen @a addieren
                     # und als @x speichern
#=andere Hyper-Operatoren
$a = @b + @c;
@a = @b + @c;
@a = @b >>+ @c;
@a >>=~ s/A/B <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26986	27089	
==>Benchmark qw(:all);
require "m02.pl";
require "re05.pl";

sub mkMatch {
    my($len,$a)=@_;
    return M <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3036	3142	
==>nds) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3094	3200	
==>nds) returns Bool is export {
    my $test := compare_func($got, $expected);
    Test::proclaim($test, $des <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	541	643	
==>multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+ <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	541	643	
==>multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5155	5285	
==>tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5155	5285	
==>tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18003	18106	
==>oined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18003	18106	
==>oined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nickname>, C<username>, and C<ircname <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3147	3243	
==>, $set.complement_next, $set.complement_previous ),
        complement_previous => $self._get_int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3147	3243	
==>, $set.complement_next, $set.complement_previous ),
        complement_previous => $self._get_int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1051	1151	
==>le object

that defines ::Main.  A Module object mixes in both Package

and Code -- because it is bot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1001	1099	
==>le object
that defines ::Main.  A Module object mixes in both Package
and Code -- because it is bot <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	153	257	
==>ssed';
use Carp 'confess';

use base 'type::equivalence';

# need to load this here in 
# order for thing <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14252	14409	
==>Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14252	14409	
==>Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	332	599	
==>ues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # Exter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	332	599	
==>ues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # Exter <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5539	5660	
==>age'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private'>
    | <'transient'>
    | <'debugger'>
    | <'imp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3282	3406	
==>EWORD             attr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SUB S <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10833	10936	
==>th returns Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10833	10936	
==>th returns Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14909	15007	
==>n easy way
to test them. So we will implement the Test::More function is_deeply.
The plan currently <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14967	15065	
==>n easy way
to test them. So we will implement the Test::More function is_deeply.
The plan currently <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	730	826	
==>t_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	730	826	
==>t_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1123	1220	
==>o set "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1123	1220	
==>o set "optional" exporting?
sub set_delimiter(Str $delimiter) is export {
    unless $delimiter eq <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5322	5423	
==>t returns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5322	5423	
==>t returns C<undef> if it fails.  The $url argument can
be either a simple string or a reference to a U <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8470	8571	
==>s he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8470	8571	
==>s he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq normalize( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11094	11220	
==>Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11094	11220	
==>Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($ciphertext) }
        else                   { return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16426	16541	
==>node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new Node is also stored in $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16426	16541	
==>node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new Node is also stored in $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5388	5503	
==>ntent_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^mu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5388	5503	
==>ntent_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($content_type ~~ m,^mu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1511	1631	
==>, $class;
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler for Perl 6

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	252	354	
==>se_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Arr <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	252	354	
==>se_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Arr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	473	594	
==>s positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one past the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	473	594	
==>s positions I<between> elements, so if you're
                     thinking of these as numbers, this will be one past the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4067	4204	
==>Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.item <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4067	4204	
==>Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.item <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	792	890	
==>hift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesar u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	792	890	
==>hift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caesar u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1633	1752	
==>::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1773	1892	
==>::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2674	2799	
==>object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3138	3263	
==>object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2602	2698	
==>urn and argument types differ.
multi infix:«Y» (Array *@arrays --> Lazy) { zip *@arrays }
# sig <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22069	22169	
==>t
returns the first one it finds.  This also works for the multiple language
or permissions issue; si <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22069	22169	
==>t
returns the first one it finds.  This also works for the multiple language
or permissions issue; si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22299	22395	
==>e same method names as you or each other, or having multiple search
directories in your path that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22299	22395	
==>e same method names as you or each other, or having multiple search
directories in your path that <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2797	2908	
==>on';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3044	3155	
==>on';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2200	2335	
==>ndef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $match->{bool} || $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2129	2261	
==>ndef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $match->{bool} || $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17387	17486	
==>fits to developers and users alike.

For some practical examples of Locale::KeyedText in use, see th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17387	17486	
==>fits to developers and users alike.

For some practical examples of Locale::KeyedText in use, see th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1325	1424	
==>ns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Ba <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1325	1424	
==>ns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Ba <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1822	1947	
==>libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	933	1056	
==>libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3268	3369	
==>e doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3268	3369	
==>e doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*? <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	824	934	
==>::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispat <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2659	2758	
==>::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21230	21325	
==>the compilers installed
themselves. So you don't need to make the compiler modules be
prerequisi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21230	21325	
==>the compilers installed
themselves. So you don't need to make the compiler modules be
prerequisi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4068	4189	
==>NTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

I <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4068	4189	
==>NTAX

Files are the same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1667	1818	
==>erms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::G <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1667	1818	
==>erms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::G <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21164	21258	
==>penBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21164	21258	
==>penBase, FrontBase, etc).
Given this fact, Rosetta's most prominant feature is that it provides <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5257	5356	
==>em C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as co <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5257	5356	
==>em C<zeroize>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as co <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1789	1925	
==>n rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', " <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1789	1925	
==>n rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', " <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33232	33324	
==>he N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37782	37874	
==>he N-ary version of the aforementioned.

=item C<intersection (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1566	1695	
==>';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1566	1695	
==>';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5140	5259	
==>in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5362	5481	
==>in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $v <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3081	3215	
==>")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3081	3215	
==>")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6242	6420	
==>if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    els <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5750	5928	
==>if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    els <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11219	11370	
==>ture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11498	11649	
==>ture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4438	4548	
==>y, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4438	4548	
==>y, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_}++ for %! <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	582	707	
==>ment; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	582	707	
==>ment; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7020	7126	
==>as kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7020	7126	
==>as kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$ch <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8426	8531	
==>or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8426	8531	
==>or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$bloc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4537	4694	
==>for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<st <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4537	4694	
==>for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	447	560	
==>es!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	447	560	
==>es!
#     - it should be called only once, whenever there is an access
#       to: .from(); .to(); methods that ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2839	2962	
==>t {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2839	2962	
==>t {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $other) returns Set {
    set($self. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	397	650	
==>= q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	397	650	
==>= q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, tha <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16780	16869	
==>nalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpressionNoIn>
}
rul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7747	8000	
==>ame} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7747	8000	
==>ame} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &con <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5257	5525	
==>.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5257	5525	
==>.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3428	3580	
==>pkg)

=cut

sub add_package {
    my $self = shift;
    my %args = @_;
    my ($pkg, $force);

    my $tmpl = {
        package => {
            required <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	684	828	
==>urn $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	684	828	
==>urn $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    method parse_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9833	9957	
==>_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9833	9957	
==>_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7165	7283	
==>lsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_thunk {
		my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3024	3158	
==>zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rul <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3024	3158	
==>zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rul <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3151	3260	
==>ngle date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 2 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3151	3260	
==>ngle date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 2005, month => 6, day => 2 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2087	2189	
==>ess substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2087	2189	
==>ess substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3349	3569	
==>e
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3349	3569	
==>e
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35632	35726	
==>sion of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40182	40276	
==>sion of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This multi-meth <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22643	22742	
==>ineTerminator_here><Expression> <';'>
}
rule TryStatement :words {  # see 12.14
      <'try'> <Block <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1887	1991	
==>s {
	my $self = shift;
	my $node = shift;
    Blondie::Backend::C::Builtins->find($node->digest || return <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1831	1934	
==>ERSION) > 6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6340	6466	
==>);
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6340	6466	
==>);
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1075	1203	
==>TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1075	1203	
==>TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29983	30083	
==>n be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add a test for verbose.

C <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7342	7501	
==>32;
    return $Result4;
}

# 9.7
multi sub ToUint16(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($v);
    return +0 if $Result1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	772	863	
==>ame'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    grammar <p6ws> <ident> <p6ws>? <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11093	11191	
==>r $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11151	11249	
==>r $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	272	403	
==>$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	272	403	
==>$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    ret <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1885	1988	
==>failed.\n";
   }
}

# -----------------------------------------------------

my $file1 = <<'GROK';
1st l <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3302	3414	
==>7
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
    | <Token>
    | <RegularExpressionLiteral>
}
rule <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6588	6684	
==>le phrasing, it doesnt parse.
multi method Array::as_str (@array:) returns Str {
    join(" ",@ar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4014	4135	
==>p6_file or return "open: $p6_file: $!\n";
	$p6 = do { local $/; <IN> }; close IN;
	"";
    }->();
    my $failed = $warn?1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	893	993	
==>r_name => $() ,} }
RULE
*{'condition_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

	$<op <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	113	231	
==>( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	113	231	
==>( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23964	24059	
==>ate solutions like "gettext" suggests that they
use a compile-time macro-based approach to subst <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23964	24059	
==>ate solutions like "gettext" suggests that they
use a compile-time macro-based approach to subst <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	353	488	
==>$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	353	488	
==>$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3938	4058	
==>t might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3938	4058	
==>t might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17162	17292	
==>s safe {
        Num::round_gen($n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primitive is builtin is safe {
    my $f <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8290	8398	
==>b {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "can't unify $x->{name} with $y->{name <==
2	/Users/nnunley/pugs/util/package-osx.pl	10177	10275	
==>l be installed on the target machine (hence the $file[-1]).
sub create_remover {
    my ($dest, @fi <==
2	/Users/nnunley/pugs/util/importgraph.pl	2029	2112	
==>ank('parser', qr/^Pugs\.Parser\.\w+$/);
setup_rank('parser_program', 'Pugs.Parser.Pr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	890	991	
==>as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0 <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	890	991	
==>as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17873	17997	
==>>visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $bef <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14294	14418	
==>>visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $bef <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25368	25468	
==>ironment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25368	25468	
==>ironment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Message Ke <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	265	397	
==>($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	353	485	
==>($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11331	11448	
==>on_numeric => sub { ${$_[0]} ? 1 : undef },
      array => sub { @{$_[0]} ? 1 : undef },
      hash  => sub { %{$_[0]} <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1370	1548	
==>0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1370	1548	
==>0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39695	39790	
==>.net/> for more
information.

Locale::KeyedText is free software; you can redistribute it and/or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39695	39790	
==>.net/> for more
information.

Locale::KeyedText is free software; you can redistribute it and/or <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1923	2049	
==>s (rw!Array).  Why rw?
# XXX Prim.hs has a different return type, Scalar vs List.
# \\n   Scalar    pre     delete  safe   (rw! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4289	4490	
==>r ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4289	4490	
==>r ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" heade <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7750	7857	
==>) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7750	7857	
==>) = $event<object rest>;
    if(normalize($killee) eq normalize($curnick)) {
      $chans.clear;
      debug <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14720	14851	
==>self->raw);
      }

      $self->{data} = $tree->[-1];
      $tree->[-1] = $self;
    }
  }
}


{
  # ( non-capturing
  package Reg <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1134	1254	
==>ntion below might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.ro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2206	2313	
==>rywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2217	2324	
==>rywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term named 'star'
*quantifier = 
    ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	13	120	
==>rl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods L <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	13	120	
==>rl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-08-10
* New methods L <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1554	1660	
==>urp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1554	1660	
==>urp $hdl;

  # strip away everything except status and headers
  # This should all be done better so the re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3822	3940	
==>parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - a Perl6 Grammar with <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3686	3800	
==>parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - a Perl6 Grammar with <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2302	2413	
==>sg};
}


sub errnum {
  my ($self) = @_;
  return $self->{errnum};
}


sub error {
  my ($self, $enum, $err, @ar <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4309	4429	
==>\"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4309	4429	
==>\"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 N <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1405	1524	
==>(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline_bindings::%d;
		use Inline C => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26750	26852	
==><$attrs> do not match attribute names of the invocant
Relation.  This method has an alias named C<selec <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31302	31404	
==><$attrs> do not match attribute names of the invocant
Relation.  This method has an alias named C<selec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6805	6967	
==>nfig;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => IS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12890	13047	
==>nfig;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        allow => IS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9130	9288	
==>rsion = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9130	9288	
==>rsion = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delete('domain');
                my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14757	14895	
==>ic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14757	14895	
==>ic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	602	703	
==>YNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	602	703	
==>YNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2025	2172	
==>s %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sor <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2025	2172	
==>s %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$section]") if $section.chars;
                for sor <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6664	6808	
==>ed
    estat       Script's exit value
    wstat       Script's wait status
    max         Number of individual tests
    failed      Number whi <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	714	838	
==>w'   {
        print template( "wiki.tmpl", topic => '', entry => '', entry_html => '');
    }
    when 'edit' {
        prin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	419	551	
==>. "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUP <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	171	272	
==>ypecheck {
	my $self = shift;
	my $runtime = shift;
	my $prog = shift;

	Blondie::TypeSafe::Flatten->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3167	3280	
==>'';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3155	3268	
==>'';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12565	12716	
==>e) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$_";
        }
      }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	17	117	
==>Grammar::Circumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Gramma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15171	15290	
==>igest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $dig <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15171	15290	
==>igest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $dig <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1745	1840	
==>kes as parameters at least C<rate of information> in
items per second and C<burst size> in items <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1745	1840	
==>kes as parameters at least C<rate of information> in
items per second and C<burst size> in items <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17165	17261	
==>t.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, that is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17165	17261	
==>t.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, that is a <==
2	/Users/nnunley/pugs/util/package-osx.pl	11827	11918	
==>R root:wheel $dest < ~/.pass");
}

&change_files($dest, %change_files) if (keys %change_file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6877	6999	
==>: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6877	6999	
==>: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $self.header("Co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6664	6761	
==>e";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@si <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6664	6761	
==>e";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@si <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	377	482	
==>style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @nex <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	377	482	
==>style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @nex <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	298	396	
==>ename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	298	396	
==>ename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4971	5076	
==>urns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4971	5076	
==>urns Array of Str {
    return [@!set_names];
}

method get_member_names () returns Array of Str {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1154	1253	
==>res differently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1154	1253	
==>res differently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16712	16854	
==>r.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shif <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16712	16854	
==>r.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shif <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3684	3810	
==>g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3684	3810	
==>g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3275	3380	
==>nd_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3275	3380	
==>nd_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before>; $end_is_open <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6589	6701	
==>me basic notes here as I develop this.

- how should I handle blocks of text which seem to still be inside a list <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6589	6701	
==>me basic notes here as I develop this.

- how should I handle blocks of text which seem to still be inside a list <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4255	4356	
==>kens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4255	4356	
==>kens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	1	102	
==>!/usr/bin/pugs

use v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub chec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	1	102	
==>!/usr/bin/pugs

use v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub chec <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2890	3015	
==>= JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3435	3560	
==>= JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	159	267	
==>my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  [' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	159	267	
==>my %format = (
	yaml => ['YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  [' <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	235	342	
==>mine if the user needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	186	287	
==>mine if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->l <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2031	2126	
==>' context
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16439	16601	
==>ubstr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20865	21027	
==>ubstr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15781	15880	
==>ve (is "capture matched" not)
  ( \+(match_captures_get(I,E0,_)) ; match_captures_get(I,E0,X), var(X <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6693	6804	
==>turn $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6693	6804	
==>turn $span0, $self.new( span => Span::Code.new( recurrence => $param, span => $result ) );
    }
    $span1 = $s <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7067	7377	
==>m->new('$n'),
                                    Val->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1993	2090	
==>params;
    ($args->length()->less_than_or_equal_to($params->length) == $bit::TRUE)
        || con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3180	3285	
==>re";
    $options{returns} = 'type' if !(exists $options{returns});
    bless { %options } => $class;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3879	3992	
==>e {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3937	4050	
==>e {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Cod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1398	1570	
==>/  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1398	1570	
==>/  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        req <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1294	1404	
==>match };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1294	1404	
==>match };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6506	6754	
==>,
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6506	6754	
==>,
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3317	3466	
==>$self = shift;
                my $idx = shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'array_existsEl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4438	4538	
==>ody;
}

sub symbolic_representation {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node->o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2454	2590	
==>thing you thunk of but haven't yet executed.

For example:

    Val(
        Thunk(
            ...
        ),
    ),

If you reduce this <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2584	2687	
==>iment, to see if it is possible to use the regexp
struct as a new api into the guts of the perl core.  T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1078	1200	
==>n $S->object(bound => bound => '\b');
  });

  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BAD <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2075	2173	
==>ase == 10;
    return (Pugs::Internals::log($x) / Pugs::Internals::log($base));
}


 &log10<> := &l <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	851	969	
==>s whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        lan <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	851	969	
==>s whole thing is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        lan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1208	1390	
==>*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1208	1390	
==>*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $valu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19400	19495	
==>ements are structured as
standard data manipulation statements but that the target relation
vari <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19400	19495	
==>ements are structured as
standard data manipulation statements but that the target relation
vari <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8630	8766	
==>ss->send('add_method' => (
    # method label
        symbol->new('get_method'), 
    # method body
        method->new(
            $::E <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12580	12681	
==>f ($parser->error_is($parser->RPe_BCURLY)) {
    # there was a {n,m} quantifier with n > m
  }

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1147	1292	
==>ntrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1147	1292	
==>ntrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	582	682	
==>t the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am ho <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	582	682	
==>t the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am ho <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9031	9122	
==>instance calling metaclass singleton method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39757	39856	
==>re; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public Licens <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39757	39856	
==>re; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public Licens <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1734	1829	
==>::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split(' <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1734	1829	
==>::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6248	6361	
==>t "token: $$t[0] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @expect );

        return($$t[0],$$t[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2317	2426	
==>\;[ [<rule>|<token>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22919	23004	
==>r(E0,C,T).

%----------------------------------------------------------------------

r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10402	10501	
==>ft`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10402	10501	
==>ft`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1860	1956	
==>C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1860	1956	
==>C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia article on RC4, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	435	550	
==>:OnPerl5::X1::BB::pugs_args);
BEGIN{
GetOptions(
    'version'   => sub{ print "--version is not implemented.\n"; ex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8357	8470	
==>}
    return "p6_apply($fun,$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	985	1096	
==>en ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	985	1096	
==>en ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	671	779	
==>rint "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	877	985	
==>rint "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1239	1350	
==>_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1239	1350	
==>_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2359	2492	
==>ile[0] eq '=') {
		print '}\end{block}' if $inblock;
		$inblock = 1;
		print '\begin{block}{';
		shift @file;
	        while (scalar @ <==
2	/Users/nnunley/pugs/util/package-osx.pl	1407	1537	
==>l/bin/pugscc ../../bin/pugscc
        /usr/local/bin/p6doc ../../bin/p6doc
    );

    %change_files = qw(
        /usr/local/lib/p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2968	3066	
==>ent, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2968	3066	
==>ent, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

=back

In <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5717	5871	
==>lation
        # and write it to disk again
        YAML::DumpFile($index, $index_content);
    }
    
    return 1;
}

=head2 @index_files = $repo->index_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	762	859	
==>Pe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => --$ENUM, <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	512	618	
==>m $x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4)) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1716	1821	
==>ive = (shift)->to_native;
    list->new(map { str->new($_) } keys %native) 
}

sub values { 
    my %nativ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2068	2195	
==>_missing_dependencies {
    my $self = shift;
    my %hash = @_;
    
    my($repo_set, $inst_set);
    my $tmpl = {
        rep <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1390	1505	
==>per);

}

method all_superclasses($self:) returns Set {
    if ( $:superclasses.size ) {
        return ([+] $:super <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11582	11703	
==>ext
    $S0 = substr target, pos, 1
    if $S0 != " " goto subrule_end
    inc pos
    mpos = pos
    $P0 = find_global "P <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14895	14978	
==>---------------------------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	384	500	
==> returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	384	500	
==> returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38668	38762	
==>lo World!".  All
occurances of any given variable name will be replaced, non-recursively,
and a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38668	38762	
==>lo World!".  All
occurances of any given variable name will be replaced, non-recursively,
and a <==
2	/Users/nnunley/pugs/util/drift.pl	426	557	
==>t: $!";

open IN, $in or die $!;
while (<IN>) {
    if (/\{-!\s*global/) {
        print TMP $_;
        next;
    }
    /^(?:data)\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29686	29806	
==>e needed when inspecting
the parsing, or walking the tree.

You can also set this attribute by passing a value.

=item my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13758	13866	
==>other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of the o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17235	17343	
==>other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of the o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1729	1861	
==>'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1740	1872	
==>'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'constant',
            rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7466	7604	
==>::Scalar::" . _emit( $n->{method}, '  ' ) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17806	17935	
==>ou must specify units.

=item index 

Needs to be in terms of StrPos, not Int.

=item pack

=item pos

=item quotemeta

=item rind <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20391	20513	
==>oided $file";
    undef;
  }
  else {
    my $cmd = %?CONFIG<perl5path>~q{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$fil <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	330	442	
==>pause
#=Aufruf einer einfachen Methode
$welt.hallo;	# Perl 5:  $welt->hello;
hallo $welt;	# wie in Perl 5
hallo($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	312	475	
==>arse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	312	475	
==>arse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18060	18235	
==>,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18339	18514	
==>,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	95	204	
==>-------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	95	204	
==>-------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has $!parent;
has @!c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3567	3680	
==>ter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3567	3680	
==>ter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13172	13271	
==>_bindir =  $self->dir->subdir( $inst_pkg->package )->subdir('bin');

    ### XXX doesn't return an o <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	342	453	
==>teMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	342	453	
==>teMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3022	3123	
==>$self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3022	3123	
==>$self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14355	14473	
==>e to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14355	14473	
==>e to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21923	22024	
==>bution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21923	22024	
==>bution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely object-oriented; y <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	699	810	
==>BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	699	810	
==>BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $!content = $content;
}

m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9580	9715	
==>st->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10416	10551	
==>st->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2813	2950	
==>ame => 'or',
        block => sub {},
        assoc => 'left',
        precedence => 'looser',
        other => '+',
        fixity => 'in <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	64	160	
==>ings going on here.

* These are perl6 implementations of /builtins/
* They sometimes use Pugs in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11536	11745	
==>,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11536	11745	
==>,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25943	26048	
==>nly work if called with ampersands, and only if
the parser object is the first value in C<@_>.>  I made su <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10237	10366	
==>=== $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10237	10366	
==>=== $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4244	4420	
==>- what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4244	4420	
==>- what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! define <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21491	21587	
==>m strange to somebody who has not tried to port between
databases before, especially given that t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21491	21587	
==>m strange to somebody who has not tried to port between
databases before, especially given that t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1193	1332	
==>e => '[',
        name2 => ']',
        assoc => 'left',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKA <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5607	5708	
==>= $node->type;
		
		warn "attempting to unify " . $node->struct_equiv . " whose type is " . $self->dis <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3247	3351	
==>better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3247	3351	
==>better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12705	12808	
==>ive and '_'
can be used as a replacement for '-'.

The return value is the values of the fields removed. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12705	12808	
==>ive and '_'
can be used as a replacement for '-'.

The return value is the values of the fields removed. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10200	10337	
==>ie $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10200	10337	
==>ie $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3128	3226	
==>b *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3128	3226	
==>b *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi sub *infix:<*> (Set $one, *@a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1007	1153	
==>current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1007	1153	
==>current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	909	1011	
==>0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	920	1022	
==>0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capturing_subrule $code - <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10589	10779	
==>sed!
            ($new_alt) = sort { $b->version <=> $a->version } @maybe;
        }

        ### no alt? bail!
        last LINKING unless $new_alt;
    
        ### link the files
        r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8418	8504	
==>ec_neg([-i|L]) --> "i", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-m|L]) --> "m <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	590	693	
==>r $code, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	590	693	
==>r $code, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pilresul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16598	16710	
==>lf->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13019	13131	
==>lf->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	100	260	
==>m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 });
  $self->add_flag('i' => sub { 0x4 });
  $self->add_flag('x' => sub { 0x8 });

  # (useless) /g, /c, / <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2687	2806	
==>tmpl = {
        perl    => { required => 1, store => \$perl },
    };

    check( $tmpl, \%hash ) or error(Params::Chec <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4224	4326	
==>returned represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.ne <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4224	4326	
==>returned represents the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12798	12927	
==>cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10100	10206	
==>ype_and(DOWN($lhs),DOWN($rhs));
}

NODE MkParam ($isInvocant, $isOptional, $isNamed, $isLValue, $isWritable <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29288	29391	
==>w Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping-valued attribut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33840	33943	
==>w Relation
which is the same as the invocant Relation but that some of its
tuple/Mapping-valued attribut <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12503	12661	
==>_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12503	12661	
==>_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6543	6692	
==>ys.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_c <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5047	5196	
==>ys.t.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2155	2266	
==>ns when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "spl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2155	2266	
==>ns when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "spl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	106	202	
==>expected on zero-length expression';
use constant RPe_NOTIMP => --$ENUM, 'Sequence (?%.*s...) not <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	17016	17111	
==>h_zero_tuples;
    my Relation::Example @r_with_shared_attrs;
    my Relation::Example @r_with_d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4458	4652	
==>.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4458	4652	
==>.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    method from_coro ( $class: $start ) <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1823	1963	
==>onstruct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
rule external_hash_alias    {  \%<name>      \:\=  <construct> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3867	3983	
==>$x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3879	3995	
==>$x in { return { a => $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (T <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	323	439	
==>m

I ended up removing the "purely functional" aspects of it in favor of 
a more practical closure based system, simi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21398	21505	
==>[0] = exp
    pad["reps"] = reps
    pad["subpats"] = subpats
    pad["isarray"] = padarray
    pad["cutnum" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2640	2884	
==>elf!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2640	2884	
==>elf!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5584	5795	
==>elsif ($got !~ tr/0-9// or $expected !~ tr/0-9// or $range !~ tr/0-9//) {
        # This is a fail
        unshift @mess, "# got, expected and range must be numeric\n";
    } elsif ($range < 0) {
        # This i <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20187	20280	
==>ALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# etc. XXX - etc?  arb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5020	5133	
==>ELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5020	5133	
==>ELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node!child_nodes.push <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3586	3686	
==>ust first create an object of the appropriate 
class, passing the key, a mode (either "enciphering" o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3586	3686	
==>ust first create an object of the appropriate 
class, passing the key, a mode (either "enciphering" o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	737	841	
==>r $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	737	841	
==>r $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1150	1247	
==>equire Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" ",@eval);
	$code .= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	488	607	
==>ent <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	488	607	
==>ent <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6431	6535	
==>r

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6443	6547	
==>r

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated progr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13463	13593	
==>packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13463	13593	
==>packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5084	5205	
==>ate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8561	8682	
==>ate attribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        he <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17970	18071	
==>the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2329	2430	
==>the rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8483	8608	
==>};
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    us <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8483	8608	
==>};
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    us <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	307	420	
==>pan;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	307	420	
==>pan;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5941	6037	
==>=head1 NAME

Regexp::Parser - base class for parsing regexes

=head1 SYNOPSIS

See examples in L< <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5061	5188	
==>keys %{ $runcores{$runcore} }
    ];
  }

  $tmpl->param(runcores => [
    map {{
      name       => $_,
      categories => $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28978	29076	
==>is value is a number created by OR'ing
together the flags that are enabled at the time.

=item $obj <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2334	2449	
==>"eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2392	2507	
==>"eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7249	7383	
==>>);
    $syn_indexs = {}; # Table for design documents
    for (@syn) {
        m/^(\D)/;
        $syn_indexs->{$1} ||= {};
        $sy <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13494	13617	
==>_backwards($f);
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25137	25233	
==>lation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating wh <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29689	29785	
==>lation.

=item C<equal (Relation $other!) returns Bool>

This method returns a Bool indicating wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8353	8477	
==>"Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8353	8477	
==>"Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = normalize $ev <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	958	1075	
==>it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	958	1075	
==>it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4418	4543	
==>zation    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4418	4543	
==>zation    
    if ($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of ch <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	744	944	
==>y lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	744	944	
==>y lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1448	1553	
==>/first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE A <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1448	1553	
==>/first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE A <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15651	15751	
==>French or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing an error <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15651	15751	
==>French or Chinese speaker often prefers to
communicate in those languages.  Or, when viewing an error <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	903	1029	
==>$direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	912	1038	
==>$direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3314	3419	
==>lize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3314	3419	
==>lize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<username hostname <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3623	3730	
==>rn $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3623	3730	
==>rn $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, $self.closure_pre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3269	3399	
==>m Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3269	3399	
==>m Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7909	8015	
==>n1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7909	8015	
==>n1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6152	6373	
==>m => $() ,} } 
            |
                ### number
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7068	7206	
==>not implemented" };
sub merge_category   { die "not implemented" };
sub code  { die "not implemented" }
sub match { die "not implemented <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1384	1521	
==>IVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$ent <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39152	39238	
==>in dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39152	39238	
==>in dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1233	1332	
==>e Module is simply a hash from strings

(symbol names) to objects (containers)



the Code part cons <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1178	1274	
==>e Module is simply a hash from strings
(symbol names) to objects (containers)

the Code part cons <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4815	4946	
==>$tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4815	4946	
==>$tmp = $self.union( $span );
    $.set = $tmp.set;
}
method remove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5475	5647	
==>th
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5475	5647	
==>th
            while @tail {
                last if @tail <= -$length;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	578	707	
==>($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	555	679	
==>($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	459	560	
==>*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	459	560	
==>*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13406	13531	
==>::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_use <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13406	13531	
==>::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask_use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2201	2311	
==>t for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2201	2311	
==>t for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = H <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	592	683	
==>oved redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	592	683	
==>oved redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Value:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5646	5748	
==>est::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $di <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5704	5806	
==>est::proclaim(0, $desc, $todo, :$depends);
}

sub diag (Str $diag) is export {
    for (split("\n", $di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21523	21637	
==>t tried to port between
databases before, especially given that the Perl DBI purports to provide
"Database Independ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21523	21637	
==>t tried to port between
databases before, especially given that the Perl DBI purports to provide
"Database Independ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7615	7753	
==>ocal $^W = 0;
    last TODO;
}

sub eq_array {
    my ($ra, $rb) = @_;
    return 0 unless $#$ra == $#$rb;
    for my $i (0..$#$ra) {
	next <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21415	21511	
==>is is that, for example, your package could come with a set of user
messages, but another package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21415	21511	
==>is is that, for example, your package could come with a set of user
messages, but another package <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4243	4344	
==>gned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4243	4344	
==>gned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with '#' or ';' a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19566	19664	
==>en a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19566	19664	
==>en a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2319	2523	
==>_existsElem => sub {
                my $self = shift;
                my $idx = shift;
                exists $self->hash_fetch->{$idx};
            },
            hash_clear => sub {
                my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51629	51886	
==>t()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51018	51272	
==>t()
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14346	14447	
==>$diag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14404	14505	
==>$diag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2774	2882	
==>$span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.ma <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2774	2882	
==>$span2 );

    my $union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.ma <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2563	2670	
==>= shift;
    my $obj = $self->load($method) or return;

    unshift @_, $obj;
    goto &{$obj->can($method)} <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2026	2241	
==>ent_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2026	2241	
==>ent_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4820	4938	
==>, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4878	4996	
==>, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool is export {
    T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3968	4103	
==>al = $ref->fetch;            
        }
    }
    return nil->new();
}

sub apply {
    my ($self, $closure) = @_;
    (blessed($closure <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2294	2434	
==>ent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2294	2434	
==>ent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	123	216	
==>::Constants;

use YAML;
use Path::Class;
use Params::Check qw(check);
use Log::Message::Simple <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	280	369	
==>erm:\\b", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\\B", "term:" <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	358	503	
==>roxfprime.assuming( f => $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2010	2106	
==>nent of the calling function's package name.  (For example, if 
a function in C<Some::Module> cal <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2010	2106	
==>nent of the calling function's package name.  (For example, if 
a function in C<Some::Module> cal <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15024	15129	
==>$num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $extra ? split(/(?: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	521	618	
==>';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many branches';
use c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1972	2087	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2030	2145	
==>r $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got ~~ $expected);
    Test::proclaim($te <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	24	132	
==>ment is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	24	132	
==>ment is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6448	6553	
==>me> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6448	6553	
==>me> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=head1 EVENTS

=head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2058	2178	
==>$self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2058	2178	
==>$self!header($field, $val, "INIT");
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3279	3421	
==>s undef
        $pass = !defined $got && !defined $expected;
    }
    else {
        $pass = $got eq $expected;
    }

    unless ($pass) {
	u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18829	18963	
==>not be typed, since it wants a function in x, (a -> b), and a is both an int and a str
# while this could seem to make sense for e.g. t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3201	3321	
==>s;
    if( !defined $got || !defined $expected ) {
        # undef only matches undef
        $pass = !defined $got && !d <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20801	20899	
==>ir . "/" . $subsubdir } = $val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	680	812	
==>not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8180	8300	
==>X check dependencies
    {   open my $fh, $self->files_list( $inst_pkg->package )        or die $!;
    
        my $prer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24729	24892	
==>m1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25008	25171	
==>m1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27379	27481	
==>the code reference in $code.  Example:

  $parser->add_flag("u" => sub { 0x10 });

This makes 'u' a val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20588	20690	
==>r example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you mig <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20588	20690	
==>r example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you mig <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16557	16670	
==>e => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all ent <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16557	16670	
==>e => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all ent <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	656	824	
==>put -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:pe <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	656	824	
==>put -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx:pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15174	15304	
==>QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15174	15304	
==>QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" }, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5353	5500	
==>cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5353	5500	
==>cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2075	2190	
==>ious;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2075	2190	
==>ious;
    }
}

method get_universe ($self: ) {
    # TODO - weak reference
    # XXX - universe = self.union( self.c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	581	684	
==>ceOperatorTable/)
}

sub new {
  my $class = shift;
  my $object = bless {}, $class;
  $object->tokenTab <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1905	2001	
==>ut for the expected strings
in TAP format.

The F<prove> utility is a thin wrapper around Test::H <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7128	7253	
==>$self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7128	7253	
==>$self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self.header( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	322	446	
==>\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	322	446	
==>\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	938	1034	
==>atch object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	938	1034	
==>atch object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3476	3580	
==>Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3476	3580	
==>Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6510	6605	
==>item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handler <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6510	6605	
==>item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash of event handler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7268	7369	
==>ring.



There are 2 kinds of ruleop operators:



- higher order operators: alternation, concatenatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7022	7119	
==>ring.

There are 2 kinds of ruleop operators:

- higher order operators: alternation, concatenatio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19358	19458	
==>am, so that if you wanted to upgrade or localize what text the user
sees, you only have to update sai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19358	19458	
==>am, so that if you wanted to upgrade or localize what text the user
sees, you only have to update sai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1395	1509	
==>\$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1395	1509	
==>\$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1251	1346	
==>put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which doe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1251	1346	
==>put anything there if it didn't match.

C<optional> also takes a C<:minimal> argument, which doe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26387	26483	
==>eate a modified version of Rosetta
that you are willing to distribute, because that is a practica <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26387	26483	
==>eate a modified version of Rosetta
that you are willing to distribute, because that is a practica <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3555	3701	
==>urn unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3413	3554	
==>urn unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( cap <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13161	13283	
==>($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or la <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13161	13283	
==>($re_here)}    ? $class->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or la <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9473	9591	
==>... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9473	9591	
==>... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3940	4094	
==>p = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ? <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3940	4094	
==>p = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4716	4854	
==>urn Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4716	4854	
==>urn Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4944	5054	
==>(
            <Pugs::Grammar::Term.single_quoted>
            { return { single_quoted => $/{'Pugs::Grammar::Te <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19189	19290	
==>ession :words {  # see 11.14
      <AssignmentExpression>
    | <Expression> <','> <AssignmentExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	893	1014	
==>r) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4371	4492	
==>r) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1591	1714	
==>Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1591	1714	
==>Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compi <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2041	2141	
==>l { require Compress::Bzip2; debug "Bzip2 compression on\n" } and
    return $compress = sub { Compre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1956	2069	
==>$val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1956	2069	
==>$val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	604	709	
==>print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	604	709	
==>print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21063	21162	
==>distributed with one or more
resource files containing text for users, and your program would use
as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21063	21162	
==>distributed with one or more
resource files containing text for users, and your program would use
as <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3098	3205	
==>currently has issues under cygwin, and does not
    # recognise cygwin absolute paths.  This kludge includes <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16899	17050	
==>f " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30602	30696	
==>bjects often do).

=head3 Using F<NEXT::> instead of F<SUPER::>

You can't use C<< $obj->SUPER: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	540	641	
==>Name>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	540	641	
==>Name>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	638	915	
==>xport symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	638	915	
==>xport symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2169	2273	
==>}

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2147	2251	
==>}

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exists $args{r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1221	1318	
==>tract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1221	1318	
==>tract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracte <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10836	10942	
==>The complement set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10836	10942	
==>The complement set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "un <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6817	6933	
==>tch($Perl_prog,<<'END'); print Dumper $m; print $m->describe;
token whitespace:<basic_whitespace> { \s+ }

rule ident <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	13	105	
==>6::Core::Closure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2803	2939	
==>>{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2943	3079	
==>>{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5498	5611	
==>ostcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5498	5611	
==>ostcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print postfix( $match->( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3773	3880	
==>ompiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'requir <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10427	10580	
==>_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10706	10859	
==>_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4192	4300	
==>c> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4192	4300	
==>c> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9410	9557	
==>gc) {
      my $n = ':::';
      return $S->$n;
    }
  });

  $self->add_handler(':::' => sub {
    my ($S) = @_;
  });


  ### '#'

  # I don't th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23497	23601	
==>ivial
external dependencies (it is very simple).

There are other differences.  Where other solutions tak <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23497	23601	
==>ivial
external dependencies (it is very simple).

There are other differences.  Where other solutions tak <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	178	296	
==>= $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	178	296	
==>= $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zeroize() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6271	6402	
==>> 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6271	6402	
==>> 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0 <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16226	16343	
==>Str  $string is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> Int )

Relat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3228	3343	
==>\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12665	12807	
==>$pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for * <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12665	12807	
==>$pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for * <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	516	621	
==>on-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	516	621	
==>on-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($self: @results) returns <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	55	171	
==>plit ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	55	171	
==>plit ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	653	748	
==>_

=pod

=head1 NAME

Blondie::Runtime - Base class for execution system (compiler + interpreter <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1305	1429	
==>l  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has A <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1305	1429	
==>l  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has A <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5001	5136	
==>open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5001	5136	
==>open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39954	40057	
==>1 of the License, or (at your option) any later version.  You
should have received a copy of the LGPL as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39954	40057	
==>1 of the License, or (at your option) any later version.  You
should have received a copy of the LGPL as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6698	6824	
==>TY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6698	6824	
==>TY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	49	148	
==>Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite stri <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	49	148	
==>Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium.  It stores a finite stri <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8542	8655	
==>,"api 14 violation\n"); exit(0);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = PO <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	473	601	
==>p|k);

touch() if $Config{touch};

setup_output();

inline(), exit 0 if $Config{inline};
precomp(), exit 0 if $Config{precompile} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17321	17440	
==>0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = new .String
    $P0 = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6109	6265	
==>> chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6109	6265	
==>> chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5562	5660	
==>reshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5562	5660	
==>reshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	879	982	
==>so different 
character encodings may be enciphered in different ways.

=head2 Using the API

The Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	879	982	
==>so different 
character encodings may be enciphered in different ways.

=head2 Using the API

The Cipher <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10366	10495	
==>r from.
      We'll copy pugs and the libraries it needs to it.
HELP

  my @files = (
    [$pugs                 => "$initrd_mnt/b <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	84	185	
==>) {...}

# Der berüchtigte Wolf im Schafspelz:
my $böse = $wolf as Schafspelz;

# mit obiger Funktio <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22218	22316	
==>unbox($self).id
}

(method id ((opaque $self:)) returns num 
    ($self: id))

=cut

$::Class->send <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13146	13237	
==>e::KeyedText" package serves only as the name-sake
representative for this whole file, which <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13146	13237	
==>e::KeyedText" package serves only as the name-sake
representative for this whole file, which <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2567	2666	
==>served.

This program is Free Software, and may be used, distributed and modified under 
the same te <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2567	2666	
==>served.

This program is Free Software, and may be used, distributed and modified under 
the same te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	922	1058	
==>',
        precedence => 'equal',
        other => '*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5917	6045	
==>nted"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5905	6033	
==>nted"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5049	5148	
==>e match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5049	5148	
==>e match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6231	6338	
==>e}=1;
	$created{$pkg_this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${name}::ISA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	709	837	
==>$pkg = $curr, last if $prev and $prev eq "base" and $curr ne "base";
    $prev = $curr;
  }
  Regexp::Parser->export_to_level($le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13075	13211	
==><\@Grammar::Perl6::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syn <==
2	/Users/nnunley/pugs/misc/S29_round.pl	215	344	
==>abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7133	7329	
==>um], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7133	7329	
==>um], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$nu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21190	21287	
==>key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21190	21287	
==>key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5304	5429	
==>st-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added as a timestamp to a respo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5304	5429	
==>st-Modified")       }

# This is used as a private LWP extension.  The Client-Date header is
# added as a timestamp to a respo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5185	5368	
==>r) of Any $tuple!) returns Bool {
    return $tuple === any($!body);
}

###########################################################################

method equal (Relation::Example $ot <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26125	26236	
==>-> a");
}
{
	my $a = type::variable::free->new;
	my $b = type::variable::free->new;
	my $type = type::operator:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4083	4171	
==>chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*409 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4083	4171	
==>chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*409 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	852	950	
==>s well.

=back

Note that methods are bound into the compiled Class (the Type object)
when they are <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14365	14494	
==>first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14365	14494	
==>first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8594	8962	
==>>'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == 1 ? shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4051	4161	
==>efault Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3908	4016	
==>efault Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6594	6750	
==>ype headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6594	6750	
==>ype headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.l <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9249	9361	
==>o define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9249	9361	
==>o define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is rw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15865	15979	
==>}
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15865	15979	
==>}
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $code) { push @!queue, $co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	130	228	
==>efaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret her <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	130	228	
==>efaults to rot13
    my $julius = Cipher::Caesar.new(:shift(3));
    print rot13("Insert secret her <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	692	790	
==>dinternal:<x> etc works.

#rule name { <?Perl6.name> }
#rule code { <?Perl6.prog> }
rule name { [<w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26139	26228	
==>(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_list(C1, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5224	5401	
==>eturn $tuple === any($!body);
}

###########################################################################

method equal (Relation::Example $other!) returns Bool {
    return $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1987	2116	
==>t;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->scalar_store($value);
            } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2762	2926	
==>ncies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta-> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3226	3390	
==>ncies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta-> <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1328	1444	
==>) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1934	2083	
==>s:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1994	2143	
==>s:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3949	4082	
==>rcname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3949	4082	
==>rcname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3917	4026	
==>er group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3917	4026	
==>er group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method quantify ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	404	515	
==>f = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	404	515	
==>f = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    {  ${${$_[0]}->{to}}   }
s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9097	9238	
==>ame as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets suppo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9097	9238	
==>ame as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets suppo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24241	24356	
==>m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20662	20777	
==>m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11539	11644	
==>l objects are done for this, but maybe I will
figure out a good way to do this without. Either way it is s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11539	11644	
==>l objects are done for this, but maybe I will
figure out a good way to do this without. Either way it is s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1280	1426	
==>"success!\n";
      exit 0;
    } else {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16150	16252	
==>ersed, I<can> match differently.

  "100years" =~ /(\d+)(\w+)/;  # $1 = 100, $2 = years
  "sraey001" =~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39156	39245	
==>ependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Ro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39156	39245	
==>ependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Validator>,
L<Ro <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1777	1874	
==>d C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1777	1874	
==>d C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2407	2510	
==>))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2407	2510	
==>))->code;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10949	11060	
==>[$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10949	11060	
==>[$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18194	18294	
==>ed words for the user, such as
'error opening file', programs would have a harder time figuring out t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18194	18294	
==>ed words for the user, such as
'error opening file', programs would have a harder time figuring out t <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1657	1783	
==>Duration::Gregorian constructors..
##multi method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso860 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3516	3641	
==>Duration::Gregorian constructors..
#multi method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso860 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6044	6139	
==>$Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_li <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10301	10396	
==>$Foo, '... $Bar got the right method return value');
is_deeply(
    [ $Bar->class_precendence_li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5999	6120	
==>_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6192	6313	
==>_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22428	22520	
==>chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22428	22520	
==>chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16288	16388	
==>r much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16288	16388	
==>r much of that.

The Rosetta Native Interface is defined mainly in terms of a new high-level
programm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13901	14054	
==>sage();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13901	14054	
==>sage();
            }
        }

        # Prompt user for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2236	2358	
==>ag yet for link management
    LINKING: {   
        ### load in the alternatives collection
        my $href = LoadFile( $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	321	443	
==>oot-* -type f | grep '$Ext\$'] ) {
        chomp $archive;
        my $file = basename($archive);

        print "Copying ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23833	23954	
==>oup') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split //, $on) {
    if (my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17156	17256	
==>een your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17156	17256	
==>een your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2744	2951	
==>("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($ver <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2744	2951	
==>("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $array {
                        my :($ver <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19651	19744	
==>join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19651	19744	
==>join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#chan <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3729	3829	
==>ten files, and anything we
write shouldn't need to have documentation/comments. If you need something <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3729	3829	
==>ten files, and anything we
write shouldn't need to have documentation/comments. If you need something <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	344	455	
==>PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the serve <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	344	455	
==>PROTOCOL> || 'HTTP/1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the serve <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9184	9309	
==>id {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9184	9309	
==>id {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max_height = 0;
    unless ($self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8279	8529	
==>lass Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8279	8529	
==>lass Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37889	37982	
==>lready loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37889	37982	
==>lready loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5718	5833	
==>);

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the underlyi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5718	5833	
==>);

    # Initialize (closed) database connection handle we will work with;
    # this does not talk to the underlyi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15239	15339	
==>tes an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15239	15339	
==>tes an empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3286	3439	
==>,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$mod - missing dependency\n";
        warn "($@)\n" if $@ a <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1063	1160	
==>s
# E.g. $commits_till_day[42] = 1500 (1500 commits from day 1 to day 42)
my @commits_till_day = d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2110	2211	
==>support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error messa <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2110	2211	
==>support for sparse arrays
#      - what happens when $a.FETCH(100000000)

# implement this error messa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	876	975	
==>cceed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantif <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	876	975	
==>cceed as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2352	2505	
==>} 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2492	2645	
==>} 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::Runtime::Match->new( { bool => 0 } )
        unless define <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11224	11336	
==>b ),
			$b,
		);
	},
	# int -> int -> bool
	'==' => type::operator::arrow->new(
		type::operator::nullary->new("i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4089	4229	
==>_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4089	4229	
==>_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3829	3928	
==>t>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
maintain <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3829	3928	
==>t>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
maintain <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3225	3384	
==>tifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3236	3395	
==>tifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return values from matche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1612	1752	
==>lude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1407	1545	
==>lude',
        'p6primitives',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5232	5351	
==>list', list => [ $_[1], $_[3] ] } }
!,
    );
    # print "created operator table\n";
}

sub add_rule {
    # print "add <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	201	311	
==>);
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inli <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	201	311	
==>);
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inli <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18831	18938	
==>used.

This module will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18831	18938	
==>used.

This module will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3012	3112	
==>is exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3012	3112	
==>is exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter na <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	892	1059	
==>}
    
    package Unit;
    sub new {
        my $class = shift;
        my $value = shift;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub st <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7688	7852	
==>> 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _globdir $Files_In_Dir if defined $Files_In_Dir;
    my $t_start = new Ben <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11107	11253	
==>hod next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11107	11253	
==>hod next () {
        if defined $.current {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.sp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2416	2507	
==>ing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-s <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2416	2507	
==>ing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6863	7008	
==>opy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6863	7008	
==>opy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	139	256	
==>$port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <bod <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	139	256	
==>$port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35717	35812	
==>rator that takes a single
Relation::Example in its C<$other> argument, where <$other> has the sa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37749	37844	
==>rator that takes a single Relation::Example
in its C<$other> argument, where <$other> has the sa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13138	13282	
==>sh keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13138	13282	
==>sh keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5397	5508	
==>${srcfile}.p6"
        or "Couldn't open file ${srcfile}.p6 for writing";
    print {$f} $src;
}
else {
    prin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22318	22424	
==>key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22318	22424	
==>key =E<gt> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$botE<lt>partE<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1478	1576	
==>m 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and pu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1478	1576	
==>m 
accidental viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and pu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3822	3947	
==>h match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3822	3947	
==>h match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer group, and
the fifth match o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2703	2803	
==>simultaneous versions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2603	2700	
==>simultaneous versions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31407	31512	
==>> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation has all of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35957	36062	
==>> returns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation has all of th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7335	7438	
==>F" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$siz <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7335	7438	
==>F" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$siz <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2232	2332	
==>ME($args);
    $args->{VERSION}  = $self->version || $self->determine_VERSION($args);
    $args->{NAM <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1338	1437	
==>ME($args);
    $args->{VERSION} = $self->version || $self->determine_VERSION($args);
    $args->{NAM <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4201	4336	
==>wanted, "dist";

        if (@candidates > 1) {
            # This is harmless -- so we don't do anything.
            # warn "*** Found <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	525	622	
==>hers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers si <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	525	622	
==>hers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers si <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1307	1419	
==>thod union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1307	1419	
==>thod union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23997	24166	
==>n = $_;
            }
            $last = $_;
        }
        local $" = ", ";
        push @result, "FAILED tests @canon\n";
        $canon = join ' ', @canon;
    } e <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1785	1897	
==>my ($class, %args) = @_;

    # ignore the prefix on extension modules built from top level.
    delete $args{pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1424	1562	
==>} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2000	2138	
==>} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error( <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4169	4266	
==>an also be the string "last", in which case the
object returned represents the last day for the sp <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4169	4266	
==>an also be the string "last", in which case the
object returned represents the last day for the sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2008	2114	
==>]', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2008	2114	
==>]', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13355	13451	
==>The `:depends("string")` parameter to most of the functions is a way
to provide a comment that re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13413	13509	
==>The `:depends("string")` parameter to most of the functions is a way
to provide a comment that re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2488	2604	
==>n "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1100	1216	
==>n "*{'$name'} = \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1684	1787	
==>pe).
If no $num or $name is given, a new scope is introduced but the resulting object
is discarded (used <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1684	1787	
==>pe).
If no $num or $name is given, a new scope is introduced but the resulting object
is discarded (used <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4451	4573	
==>on > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4451	4573	
==>on > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style coo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28211	28355	
==>>new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3577	3750	
==>\$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $outpu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3577	3750	
==>\$f; 1; })}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $outpu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	372	477	
==>/body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.re <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	372	477	
==>/body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10933	11082	
==>, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10933	11082	
==>, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as_string ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1837	1998	
==>);
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	298	440	
==>ion to p6 code.

class Char is Str;
class LanguageChar is Char;
class Grapheme     is Char;
class CodePoint    is Char;
class Byte         is C <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	306	423	
==>urn '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful simila <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	306	423	
==>urn '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful simila <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9096	9207	
==>$self->add_flag('i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	560	689	
==>quire CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	560	689	
==>quire CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " <==
2	/Users/nnunley/pugs/util/package-osx.pl	11029	11226	
==>istory\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            print "Removing \$file\\n"\;
            print "Removing \$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	576	711	
==>@inst;
    for my $dir ( @$dirs ) {
        my $inst = JIB::Installation->new( dir => $dir )
            or error( "Could not create JIB <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	967	1066	
==>he Class.  This has the same effect as
them being defined in the Class, so this effect is called the <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	191	289	
==>all::Base);

$VERSION = '0.01';

use strict 'vars';
use vars '$VERSION';

use ExtUtils::MakeMaker ( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1078	1194	
==>6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$sel <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1078	1194	
==>6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib}/auto/$sel <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9959	10091	
==>.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second so <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13436	13568	
==>.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second so <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	677	776	
==>$one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	677	776	
==>$one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5995	6188	
==>( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9472	9665	
==>( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Relation.new(
        heading = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23947	24046	
==>turns a new Relation object, whose Heading and
Body attributes are set respectively from the optiona <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28499	28598	
==>turns a new Relation object, whose Heading and
Body attributes are set respectively from the optiona <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15704	15814	
==>e in those languages.  Or, when viewing an error message, the
application's developer should see more details t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15704	15814	
==>e in those languages.  Or, when viewing an error message, the
application's developer should see more details t <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	54	157	
==>ake a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.rever <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	54	157	
==>ake a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.rever <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8921	9051	
==>rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8909	9039	
==>rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2748	2839	
==>-----------------------------------
## inserting children

method insert_children ($self: In <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2748	2839	
==>-----------------------------------
## inserting children

method insert_children ($self: In <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	967	1088	
==>ngle elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_su <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	967	1088	
==>ngle elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_su <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	867	989	
==>);
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	768	890	
==>);
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10113	10231	
==>t',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10113	10231	
==>t',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_te <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	668	788	
==>el, @args) = @_;
    #warn "calling send for $label";
    
    $label = str->new($label) 
        unless (blessed($label) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4320	4468	
==>perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4320	4468	
==>perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	4	118	
==>v6;

class Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my % <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	4	118	
==>v6;

class Getopt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my % <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5462	5707	
==>"$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7224	7469	
==>"$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($e get ("$current")) send ("get_method" ($e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	521	662	
==>s {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	521	662	
==>s {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        } <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7180	7334	
==>= 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflush(\*STDOUT);
    _autoflush(\*STDERR);

    my(%failedtests);

    # Tes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7173	7337	
==>h => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6933	7089	
==>h => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14972	15067	
==>mes are merely the author's suggestions.

=over 4

=item Regexp::WordBounds

Adds handlers for C <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2071	2179	
==>$head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2071	2179	
==>$head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5011	5176	
==>the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5011	5176	
==>the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1629	1726	
==>lso the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`gre <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1629	1726	
==>lso the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`gre <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1545	1666	
==>ernate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1545	1666	
==>ernate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	987	1119	
==>t Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	987	1119	
==>t Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed', <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1286	1419	
==>h ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $path <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1286	1419	
==>h ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $path <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12598	12696	
==>er minute, 
wags per second, or holidays per month.

It is also used when the objects represent "ch <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12598	12696	
==>er minute, 
wags per second, or holidays per month.

It is also used when the objects represent "ch <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5915	6051	
==>o { 
          my $str = localtime($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ /&nbsp;/g;
          # hack, to make the time <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34578	34698	
==>> (if it exists), then
in F<Regexp::Parser::THING> (if it exists), and finally in
F<Regexp::Parser::__object__>.

Here is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18873	18964	
==>etta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash() <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18873	18964	
==>etta::Model::Document.new(
        document => $document, *%{$original_node.export_as_hash() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1117	1240	
==>nt_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        warn "Error <==
2	/Users/nnunley/pugs/util/func_refact.pl	2114	2223	
==>rbose} or $Conf{debug} eq $new;
    return $size - $oldsize; # new member count
}

sub candidates {
    my %ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2344	2457	
==>ude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2561	2674	
==>ude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	115	230	
==>use Parse::Yapp;

my %relative_precedences = (
    tighter => sub {
        splice( @{$_[0]->{levels}}, $_[1], 0 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	639	740	
==>'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	639	740	
==>'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38120	38212	
==>_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly em <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38120	38212	
==>_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly em <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4049	4159	
==>span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4049	4159	
==>span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	855	966	
==>save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	855	966	
==>save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) { <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6591	6689	
==>://haskell.org/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\d+)/ and $1 >= 6 and $2 >= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6654	6901	
==>ie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6654	6901	
==>ie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9752	9899	
==>}


    if ( $n->{op1}{stmt} eq 'for' ) {
        #warn "sub: ",Dumper $n;
        if ( exists $n->{exp2}{pointy_block} ) {
            return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6341	6456	
==>sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a R <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6341	6456	
==>sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5933	6086	
==>unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5933	6086	
==>unless $code =~ /return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12653	12754	
==>tifier with n > m
  }

=head2 Standard Warnings and Errors

Here are the standard warning and error me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28196	28292	
==>The object's data.  This might be an array reference (for a 'branch'
node), another object (for a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4959	5093	
==>lf->config;
    my %hash = @_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7162	7259	
==>metacharacter(C)}.

p5_matchref(I) --> "\\", digits_int(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9 <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1465	1559	
==>://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1305	1399	
==>://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1866	2032	
==>:Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1866	2032	
==>:Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27258	27360	
==>perator that returns a new Relation
which has a superset of the original's attributes; the new Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31810	31912	
==>perator that returns a new Relation
which has a superset of the original's attributes; the new Relation <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9695	9794	
==>SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9695	9794	
==>SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_load <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1669	1786	
==>are( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1669	1786	
==>are( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2795	2903	
==>de $.sub;
    has Str $.params;   # FIXME: needs attention; don't use yet.
}

multi sub caller (Class $kind = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23555	23652	
==>od can be used to see if a Relation-doing object
can mutate.  Depending on the implementing class, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28107	28204	
==>od can be used to see if a Relation-doing object
can mutate.  Depending on the implementing class, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2371	2781	
==>ace::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2371	2781	
==>ace::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Interface <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	987	1159	
==>$translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	987	1159	
==>$translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                ' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3067	3214	
==>ion\n" . $self->preamble
       : '';
    my $postamble = "# Postamble by $top_class $top_version\n" . 
                    ($self->postamble || '') <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4117	4264	
==>ion\n"
            . $self->preamble
        : '';
    my $postamble = "# Postamble by $top_class $top_version\n"
        . ($self->postamble || '') <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2719	2831	
==>r Int multi Num::round_alternate ( Num $x ) {
    my $x_round;
    state $round_up = 1;

    # alternate rounding <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20815	20915	
==>atively, and be I<the> back-end which
I recommend above all others for production use.

Most of the o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20815	20915	
==>atively, and be I<the> back-end which
I recommend above all others for production use.

Most of the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3684	3806	
==>ss]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3868	3990	
==>ss]>
 :flag :flag() :flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1596	1718	
==>ying should be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1596	1718	
==>ying should be made automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7378	7526	
==>n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? shift : 1;

    for (1..$n) { <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11806	11909	
==>rse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOAD { # an easy constructor <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10034	10137	
==>width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_roo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10034	10137	
==>width() unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_roo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19981	20076	
==>rs, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19981	20076	
==>rs, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9323	9465	
==>emit( $n->{block} ) . 
                "\n }";
    }

    if ( $n->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $self = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2739	2856	
==>match}[1]}->{abort},
        }, 'Pugs::Runtime::Match::Ratchet';
        return \@state;
    }
}

sub constant { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	88	178	
==>e_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	88	178	
==>e_entities);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10160	10257	
==>NS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10218	10315	
==>NS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	36	153	
==>set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

r <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	36	153	
==>set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	330	457	
==>});
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	330	457	
==>});
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4179	4276	
==>$4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4179	4276	
==>$4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1637	1774	
==>r($reduced) . $self->layout($reduced->str);
		}
	}

	if (ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($inden <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36796	36892	
==>: assertion

Types: eval (C<(?{>)

Data: string with contents of assertion

=head2 logical

Famil <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1509	1728	
==>( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $r <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1509	1728	
==>( $char eq "\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1625	1741	
==>stants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1625	1741	
==>stants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? $<param> := (< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4504	4638	
==>$date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Mu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4504	4638	
==>$date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Mu <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	476	580	
==>r Int multi Num::round_half_down (Num $x, int $symmetrical? = 1) {
	return int($x + 0.4)
		if $x > 0;

	$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10065	10203	
==>= undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10065	10203	
==>= undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = undef;
    $.last <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6117	6220	
==>TML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6117	6220	
==>TML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Po <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2825	2926	
==>nt $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2825	2926	
==>nt $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1528	1657	
==>nal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1528	1657	
==>nal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        5 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6785	6908	
==>ER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6843	6966	
==>ER;
    # message like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6548	6670	
==>ds($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $bounda <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6548	6670	
==>ds($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $bounda <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10124	10285	
==>er_binding( $n->{signature} ) .
                        _emit( $n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        return  " " . $n->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3206	3342	
==>>' );
    # XXX - register fixity in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    sub $id\n" . emit($block) . <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21523	21623	
==>lass;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes may be in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26075	26175	
==>lass;
every Relation tuple must be distinct from the other tuples.  All Relation
attributes may be in <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13413	13514	
==>ments of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
c <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13413	13514	
==>ments of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	429	534	
==>ock>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	429	534	
==>ock>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <w <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1490	1605	
==>ent_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1490	1605	
==>ent_next;
    has Code $.complement_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	622	736	
==>);

    print "The required 'nmake' executable not found, fetching it...\n";

    require File::Basename;
    my $r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	524	629	
==>);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::Basename;
	my $r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1645	1741	
==>ndex) = @_;
    ((blessed($start_index) && $start_index->isa('num')) &&
     (blessed($end_index) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20818	20934	
==>le);
    Pugs::Internals::require_use_helper(Bool::True,$module);
}
sub Pugs::Internals::Disabled::require ($module=$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10304	10413	
==>ests which are
expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10362	10471	
==>ests which are
expected to run. This should be specified at the very top of your tests.

- `force_todo (*@todo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3379	3480	
==>$left, $right) = @_;
    ($left->params->equal_to($right->params) == bit->new(1) && 
     $left->retur <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17956	18048	
==>(@ARGV && $ARGV[0] eq '--test') {
  require './re_tests_match.pl';
  Pkg_re_tests::test(sub{m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3877	3994	
==>thod complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3877	3994	
==>thod complement ($set1: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1270	1449	
==>>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<Scalar>).add_children(
                        Tree.new(:node<Complex>).add <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1839	1964	
==>(map { $_ => '%' } qw(flat_hash hash ihash)),
        (map { $_ => '@' } qw(flat_array array iarray)),
      );

sub generate_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13615	13780	
==>is"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = cat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24649	24762	
==>ernation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21070	21183	
==>ernation branch inside ifthen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8293	8470	
==>l'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: symbol $label) returns method { 
    %:methods{$l <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10866	11022	
==>iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Ite <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10866	11022	
==>iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1951	2106	
==>:URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1951	2106	
==>:URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6059	6193	
==>959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6059	6193	
==>959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5109	5276	
==>hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6871	7038	
==>hash>  )))))
                  (returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e g <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10667	10778	
==>tem B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10667	10778	
==>tem B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7465	7645	
==>ersion good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7929	8109	
==>ersion good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1430	1533	
==>oid { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $par <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1430	1533	
==>oid { $!parent = undef }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $par <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	530	660	
==>any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
} <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	530	660	
==>any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	990	1112	
==>es {
    my $self = shift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29955	30074	
==>>raw()

The raw representation of this object.  It does not look at the
children of the object, just itself.  This is us <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20424	20543	
==>e 12.2
      <Identifier> <Initialiser>?
}
rule VariableDeclarationNoIn :words {  # see 12.2
      <Identifier> <Initial <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22603	22720	
==>.param pmc pad
    .local string mname
    .local pmc value
    .local pmc exp
    mname = self["mname"]
    value = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7228	7318	
==>::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1053	1143	
==>::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::Perl6->rule_decl(@_) };
pu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	138	241	
==>1 DESCRIPTION

This type is not used directly; however, it adds the "name" property
when included as a r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	968	1055	
==>lation::LaxAttrList of Mapping{Relation::AttrName}
    of Relation::LaxPairAttrType|Rela <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3225	3347	
==>=cut
# 
# sub add_packages {
#     my $self = shift;
#     my @ret;
# 
#     push @ret, $self->add_package(package => $_) f <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	103	205	
==>] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=auswählen des ersten definierten Wertes:
my $opt = [//] % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19648	19852	
==>op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19927	20131	
==>op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21128	21233	
==>ames of each tuple are all the same as those of
all the other tuples.

For purposes of the Relation class' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25680	25785	
==>ames of each tuple are all the same as those of
all the other tuples.

For purposes of the Relation class' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14903	15032	
==>E::Exp::Scalar")
    dec pos
    $I1 = $I0 - pos
    cname = substr target, pos, $I1
    cname = concat '"', cname
    cname = con <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	805	928	
==>= "Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content_type;
        $header ~= "; char <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20109	20222	
==>locks get compiled first, then outer blocks.

A compiler may choose to declare that its result not be recompiled b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20109	20222	
==>locks get compiled first, then outer blocks.

A compiler may choose to declare that its result not be recompiled b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8840	8965	
==>y $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8836	8961	
==>y $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2030	2140	
==>$module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2030	2140	
==>$module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1699	1877	
==>Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1699	1877	
==>Span::Num 
{
    if ($.end == Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     sta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7779	7948	
==>y' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Defi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7779	7948	
==>y' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22802	22939	
==>self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23304	23441	
==>self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw {
    my $self = shift;
    join "", "(?", ($self->{dir} < 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5288	5509	
==>turn 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5288	5509	
==>turn 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        return $expi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15429	15527	
==>nsion
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node can <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15429	15527	
==>nsion
what kinds of attributes or relative Nodes it can have, as well as where
and how the Node can <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	662	840	
==>r;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	662	840	
==>r;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10765	10888	
==>udes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10765	10888	
==>udes new elements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6899	6994	
==>mpl');
$template->param(unresolved => \@unresolved);
print $error $template->output;
close $erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8045	8173	
==>untime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8033	8161	
==>untime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! d <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2330	2514	
==>f "$exename.exe") {
    if (open(LOG,'log'))
         {
          while(<LOG>) {
         print "# ",$_;
          }
         }
        else {
      warn "Cannot open log (in $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19324	19501	
==>r immediately.
Here's the error.
$@
WHOA
            }
        }
        elsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1898	2123	
==>ue,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1898	2123	
==>ue,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5114	5233	
==>n'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'typeof'>
}
rule FutureReservedWord {  # see 7.5.3
      <'ab <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1171	1287	
==>)) . ")";
	} else {
	return "(@_)";
	}	
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	if (exists $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9105	9200	
==>le.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9105	9200	
==>le.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	760	854	
==>$result = Blondie::Backend::Perl->new->run($prog);

    use Blondie::Emitter::Pretty; # in case <==
2	/Users/nnunley/pugs/util/grokprims.pl	1027	1144	
==>rgs}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op->{args}[0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13503	13596	
==>to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13503	13596	
==>to_char
hash are left alone.  Numeric entities are always expanded.

If $allow_unterminated is <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6420	6513	
==>name } '... instance calling metaclass method fails';

is($iBar->foo, 'Foo->foo', '... $iBar c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1348	1437	
==>= Language::AttributeGrammar->new(<<'#\'EOG');
#\
type::variable::instantiated: layout($$) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4760	4882	
==>ler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4596	4715	
==>ler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37297	37390	
==>mijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41846	41939	
==>mijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@others) re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11966	12063	
==>.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11966	12063	
==>.equal($set2)>

=head2 C<$set1 == $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24712	24809	
==>rns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29264	29361	
==>rns Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3362	3511	
==>turn $matches[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3255	3401	
==>turn $matches[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36883	36979	
==>ionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36883	36979	
==>ionality of Locale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	377	562	
==>apture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	377	562	
==>apture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2018	2114	
==>eader ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2018	2114	
==>eader ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

method remove_head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3905	4045	
==>',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'list',
        precedence => 'looser' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7468	7569	
==>ecure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7468	7569	
==>ecure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	248	368	
==>param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	248	368	
==>param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37608	37733	
==>er::branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21674	21772	
==>entifier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      <'break'><no_LineTerminator_here> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39117	39232	
==>aracter
class.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # character class s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	670	778	
==>ub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1260	1368	
==>ub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3302	3406	
==>ver.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Seb <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3302	3406	
==>ver.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP::Server::Simple>.

=head1 AUTHOR

Seb <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4016	4147	
==>: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4016	4147	
==>: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1666	1777	
==>t_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1666	1777	
==>t_captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1761	1866	
==>=head2 $alt = $pkg->alternative

Returns the JIB::Alternative object, if this package is a registered alte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8951	9061	
==>he package is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shif <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10428	10538	
==>he package is available/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2931	3062	
==>->{assoc} if $opt->{fixity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels}} ) {
        if ( grep { 
                def <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2284	2488	
==>ld = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $ke <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2284	2488	
==>ld = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $ke <==
2	/Users/nnunley/pugs/util/package-osx.pl	5096	5210	
==>/usr/local/man/man3/Perl6::Bible::S26.3pm
        /usr/local/man/man3/Perl6::Bible::S27.3pm
        /usr/local/man/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18411	18518	
==>r($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{nparen} = $tree-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4252	4362	
==>:$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4310	4420	
==>:$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6164	6296	
==>st-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5967	6091	
==>st-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1181	1331	
==>e no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1181	1331	
==>e no more @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	623	709	
==>-----------------------------------------------------------------
## private methods

m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	623	709	
==>-----------------------------------------------------------------
## private methods

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	348	436	
==>Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	348	436	
==>Rule->compile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<an <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	909	1017	
==>@values ;      Code *&test  ) returns Lazy
 multi sub Array::grep (@values,   MatchTest $test  ) returns Lazy <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17621	17728	
==>ocal $Level = 2;
    _fresh_perl($prog,
		sub { @_ ?
			  $_[0] =~ (ref $expected ? $expected : /$expected/) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2465	2593	
==>ser_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'RO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2465	2593	
==>ser_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key => 'RO <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6378	6473	
==>Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6378	6473	
==>Hash %events)>

The main C<parse> function currently takes a C<$filename> and a Hash of C<%event <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	26	123	
==>ur - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	26	123	
==>ur - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.en <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3899	3995	
==>)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You c <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3899	3995	
==>)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11048	11174	
==>}
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11048	11174	
==>}
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2096	2211	
==>E)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[2]-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1774	1884	
==>E)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    return $self->[2]->fet <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17910	18110	
==>}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18189	18389	
==>}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	584	710	
==>./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	584	710	
==>./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string () {
    ./assertion: -> $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15108	15244	
==>queue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15108	15244	
==>queue "PART $channnel" },
    quit  => -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2093	2208	
==>string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_message( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2093	2208	
==>string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::status_message( <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	407	498	
==>od set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function } <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	407	498	
==>od set_node_filter   ($self: Code $filter_function) { $!filter_function = $filter_function } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24677	24838	
==>apture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24956	25117	
==>apture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21215	21315	
==>s most prominant feature is that it provides a
common API for access to those databases, each of whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21215	21315	
==>s most prominant feature is that it provides a
common API for access to those databases, each of whic <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2733	2877	
==>ndencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3197	3341	
==>ndencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1047	1142	
==>STRINGS_E is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2094	2224	
==>ount }
        multi method as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi method as (--> Arra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11961	12059	
==>0 / 100**100**100;
my %as_num_handlers =
    ( undef => sub { Carp::carp("p6_as_num called on undef <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7882	7980	
==>ors should assume that if this method is being called, the Secret 
Police are breaking down the doo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7882	7980	
==>ors should assume that if this method is being called, the Secret 
Police are breaking down the doo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17598	17710	
==>exec (pTHX_ regexp* prog, char* stringarg, char* strend,
                  char* strbeg, I32 minend, SV* screamer <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1181	1286	
==>t inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31501	31613	
==>d with a Template module set that is specific
to it, another library likewise, and a program which uses both libr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31501	31613	
==>d with a Template module set that is specific
to it, another library likewise, and a program which uses both libr <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12383	12578	
==>'test_fail',
                      1 => 'test_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	98	362	
==>ols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	98	362	
==>ols:
use Locale::KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2990	3092	
==>| die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2990	3092	
==>| die "Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	225	444	
==>ent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	225	444	
==>ent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11551	11653	
==>e done for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11551	11653	
==>e done for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11262	11367	
==>ternals::hSeek(self, $position, $whence);
    }
}


class Pipe {
    # Easy to use, unidirectional pipe. U <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3548	3665	
==>, $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3548	3665	
==>, $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topic;
    });
    ./ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2341	2445	
==>=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-c <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2341	2445	
==>=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for Pugs is C<perl6-c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	0	100	
==>package Pugs::Emitter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtrackin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	0	100	
==>package Pugs::Emitter::Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtrackin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1260	1356	
==>ludes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1260	1356	
==>ludes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9536	9825	
==>rovides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11013	11302	
==>rovides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2656	2771	
==>rn $.set.end_is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2656	2771	
==>rn $.set.end_is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3775	3938	
==>e of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3775	3938	
==>e of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attribu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5340	5442	
==>od the file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

= <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5340	5442	
==>od the file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5306	5402	
==>LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5306	5402	
==>LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3707	3824	
==>wn language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $new_par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3575	3688	
==>wn language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $new_par <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8660	8773	
==>d_mnt/tmp"
    );
  };

if($rebuild) {
  my @libs;
  step
    descr  => "Checking which shared libraries pugs, par <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7150	7249	
==>ti method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10627	10726	
==>ti method exclusion (Relation $other!) returns Relation {

    die "The heading of the relation in $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1275	1379	
==>rs,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representations of @header_order.  Thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1275	1379	
==>rs,
 *@response_headers,
 *@entity_headers,
);

# Make alternative representations of @header_order.  Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1637	1759	
==>f !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1637	1759	
==>f !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.delete($_) fo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	610	805	
==>5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	610	805	
==>5{^=pod}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    when m:P5{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14714	14822	
==>es is identical; they do not interact with the outside
environment at all.

A Node object has 5 main attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14714	14822	
==>es is identical; they do not interact with the outside
environment at all.

A Node object has 5 main attribut <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16556	16689	
==>.


=item lc

 multi Str::lc         (  Str $string              --> Str )
 multi Str::lc         ( Str $string = CALLER::<$_> --> Str <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	41	150	
==>aModel;

use PIL::Run::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31377	31492	
==>->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For those of you that don't know, C<(?p{ ... })> is a synonym <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	744	874	
==>>new($label) 
        unless (blessed($label) && $label->isa('str'));
    
    my $args = list->new($inv, @args);
    
    my $clas <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1456	1592	
==>hose modules for details.

The C<new> constructor takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random nu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1456	1592	
==>hose modules for details.

The C<new> constructor takes only one option, C<:key>, containing the key.  
Arcfour keys can be any random nu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24967	25069	
==>Class

A Message object is a simple container which stores data to be used or
displayed by your program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24967	25069	
==>Class

A Message object is a simple container which stores data to be used or
displayed by your program <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1757	1854	
==>rocessing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1757	1854	
==>rocessing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31481	31589	
==>. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$predicate> sim <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36031	36139	
==>. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$predicate> sim <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14034	14134	
==>-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14034	14134	
==>-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4872	4993	
==>/mg;

    open  MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    print MAKEFIL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	701	810	
==>to_native() + 0);
}

# implement comparitor method

sub _compare {
    my ($left, $right) = @_;
    return $le <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5554	5654	
==>e retry_after field is dual format (can also be a expressed as
# number of seconds from now), so we d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5554	5654	
==>e retry_after field is dual format (can also be a expressed as
# number of seconds from now), so we d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12731	12951	
==>ce =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12731	12951	
==>ce =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27321	27424	
==>te that a Message object does not permit changes to its attributes; they
must all be set when the object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27321	27424	
==>te that a Message object does not permit changes to its attributes; they
must all be set when the object <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2663	2792	
==>ain"> );
        $ret = emit_Main( $global, $main );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7035	7159	
==>),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "f <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7035	7159	
==>),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20492	20612	
==>] = 1
    self["isscope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unscoped

  capture:
    $I0 = ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2169	2381	
==>);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2169	2381	
==>);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really happen
                }
                
                # Want to add cook <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22725	22878	
==>a => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23227	23380	
==>a => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self->{dir};
  }

  sub raw <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7119	7222	
==>rmitting the removal of siblings 
# as I think in general it is a bad idea

## ------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7119	7222	
==>rmitting the removal of siblings 
# as I think in general it is a bad idea

## ------------------------- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20987	21148	
==>y\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$test->{failed}}, $test->{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4900	5032	
==>e as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4900	5032	
==>e as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	826	926	
==>terface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do export s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	826	926	
==>terface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do export s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20664	20756	
==>cess described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20664	20756	
==>cess described above is overridable by
various methods.

=head1 DISTRIBUTION SUPPORT

Module: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	361	618	
==>_[-1] };                                            

use constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $C <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1651	1817	
==>}@$v))."\n]";
        } else {
            $vs = $v->describe;
        }
        $s .= "\n  $k => " .$o->_indent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33011	33127	
==>ll the quantifier and
'minmod' nodes:

  # star, plus, curly, minmod
  sub walk {
    my ($self, $walk_stack, $depth) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2907	3046	
==>("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can pro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2907	3046	
==>("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can pro <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25469	25549	
==>(C0,flgs(A,B,_,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,B,X,D,E,F,G,H,I,J))).
set_flag_x( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	727	875	
==>s);

    # profiling actually slows this down by around 30%
    #my $t = times;
    #my $v = 
    $self->reduce($thunk);
    #my $t2 = times;
    #$s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11683	11769	
==>an little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11683	11769	
==>an little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5575	5711	
==>, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5575	5711	
==>, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items <==
2	/Users/nnunley/pugs/util/testgraph.pl	508	603	
==>l $/=undef;

my $data = Load(<$yamlfh>);
undef $yamlfh;

my $tap = My::Model->new_with_struct(de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12700	12813	
==>$cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6175	6288	
==>$cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1477	1601	
==>| '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1477	1601	
==>| '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	313	529	
==>type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	313	529	
==>type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                whe <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	243	363	
==>');
    for (var i = 0; i < links.length; i++) {
        var href = links[i].href;
        if (href.match(/\/~/)) window. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11626	11732	
==>y';
    return $S->object(reg_any => $family, '.');
  });

  # backslash
  $self->add_handler('\\' => sub { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7721	7825	
==>lti Array::map (@values ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@values;
}

# signa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1121	1259	
==>k  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1121	1259	
==>k  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21086	21200	
==>->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-beh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17507	17621	
==>->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  });

  # look-beh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2133	2260	
==>ys
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      war <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2133	2260	
==>ys
#      - what happens when $a.FETCH(100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      war <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	155	254	
==>ram prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	155	254	
==>ram prototype

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dump <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9807	9905	
==>eing the very first module written for Pugs.

It provides a simple set of common test utility funct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9865	9963	
==>eing the very first module written for Pugs.

It provides a simple set of common test utility funct <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	884	988	
==>}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	884	988	
==>}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vt <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7547	7643	
==>s fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7547	7643	
==>s fired when a '=for' directive is reached.

=item I<end_element ('for')>

This event is fired wh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9616	9746	
==>nd compile a procedure that will insert a record into the
    # 'person' table, which is populated from its row argument.
    # Lik <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9616	9746	
==>nd compile a procedure that will insert a record into the
    # 'person' table, which is populated from its row argument.
    # Lik <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	375	633	
==>};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's packages <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	375	633	
==>};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's packages <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9019	9117	
==>hould not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

NODE MkTEnv ($tLexDepth, $tTok <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3361	3467	
==>ec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Is <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3361	3467	
==>ec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4599	4710	
==>er to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4599	4710	
==>er to other above-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4942	5049	
==>return $4 if shift->package() =~ $Package_re;
    }
}    

1;

# Local variables:
# c-indentation-style: bsd <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3388	3511	
==>sa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3388	3511	
==>sa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map:{ $set1.new( recurre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	287	375	
==>ESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, includi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	287	375	
==>ESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, includi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3321	3457	
==>dence}}->($self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} ) {
        push @{$self-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	11	103	
==>perl

package Blondie::Backend::C::Emitter;
use base qw/Blondie::Emitter Blondie::Reducer::Dy <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35371	35468	
==>returns True or False regardless of its
argument, in which case the new Relation::Example has eith <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5948	6106	
==>ead();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5948	6106	
==>ead();
            last unless $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16060	16193	
==>\G \? }xgc;
    return;
  });

  # alternation branch

  # opening parenthesis (maybe capturing paren)

  # any character

  # backsla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15533	15626	
==>xp::QuantAttr

Removes quantifiers as objects, and makes 'min' and 'max' attributes of
other o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18810	18908	
==>ared to
support (such as modification of the compiled re op tree the native
compiler creates, but w <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3100	3198	
==>ared to
support (such as modification of the compiled re op tree the native
compiler creates, but w <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	710	871	
==>File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $scri <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	710	871	
==>File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $scri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10556	10648	
==>dness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10556	10648	
==>dness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, tha <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13018	13150	
==>e_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $resu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13018	13150	
==>e_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $resu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12607	12729	
==>SH);
  });

  # start of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8952	9067	
==>ork...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance method <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8952	9067	
==>ork...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6143	6302	
==>split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6143	6302	
==>split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	499	630	
==>ve);
    $path    =~ s/$Ext$//;

    ### check if it is already installed
    {   my @list = LoadFile( $Available );
        if ( gr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26838	26931	
==>ing */
 #define RE_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can t <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	252	372	
==>Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	252	372	
==>Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	868	966	
==>() { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	868	966	
==>() { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26156	26257	
==>a generic relational operator that returns a new Relation
which has a subset of the original's attribu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30708	30809	
==>a generic relational operator that returns a new Relation
which has a subset of the original's attribu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2921	3335	
==>of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2921	3335	
==>of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Ro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16353	16462	
==>SA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $nparen, @data) = @_;
    my $self = b <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1308	1403	
==>iki.tmpl", topic => $topic, entry => $entry, entry_html => $entry_html );
}

sub template ($file <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15553	15649	
==>ibutes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15553	15649	
==>ibutes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute names and values <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2996	3126	
==>} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2996	3126	
==>} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "I <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2427	2516	
==>t //, "αβγδεζηθικλμνξοπρστυφχψω"; # some identifiers for types. Le <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13154	13260	
==>idth chunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item R <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	383	489	
==>), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Sta <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	383	489	
==>), clone(), to_ref(), to_bit(), to_num()
* New List hooks: is_contiguous( $code ), stringify( $code )
* Sta <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	715	812	
==>c($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi met <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	715	812	
==>c($trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi met <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27139	27236	
==>elect_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31691	31788	
==>elect_all_but>.

=item C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11039	11134	
==>$node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11039	11134	
==>$node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) returns Tree>

=item <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	301	557	
==>t values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.7 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	301	557	
==>t values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.7 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9736	9844	
==>^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9736	9844	
==>^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	279	422	
==>rfl>.attr()

and maybe

    \(...)
    ^T

=head1 See also

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate A <==
2	/Users/nnunley/pugs/util/version_h.pl	817	947	
==>es to $version_h\n";
    open FH, $svn_entries or die $!;
    while (<FH>) {
        /^ *committed-rev=.(\d+)./ or next;
        $r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4320	4532	
==>package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4784	4996	
==>package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3414	3520	
==>erface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3414	3520	
==>erface::Variable class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interf <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	594	692	
==>ing the 
Cipher API> for general information.

=head2 Constructor options

With no options, Cipher: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	594	692	
==>ing the 
Cipher API> for general information.

=head2 Constructor options

With no options, Cipher: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5281	5410	
==>rray;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $si <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3781	3910	
==>rray;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $si <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2489	2582	
==>xperimental Perl6-to-Perl5 compiler.

The current state of this compiler implementation only p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8865	9014	
==>eturn 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8865	9014	
==>eturn 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq '.' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2748	2901	
==>, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $fla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2658	2806	
==>, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $fla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24336	24444	
==>ys seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("..." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24336	24444	
==>ys seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("..." <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1062	1174	
==>igil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholde <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1062	1174	
==>igil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholde <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2083	2210	
==>in the right class
        my $obj = 
            $args->{repository} && $args->{file}
                ? JIB::Package::Installab <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8116	8221	
==>my $match = $$token{match};
  #TODO == should be isa
  goto tok_match_sub if ( $match == "Sub" );
  ($oper <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2356	2498	
==>\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2356	2498	
==>\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	274	407	
==>e Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	274	407	
==>e Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number.defined;
        die Local <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	361	480	
==>', @a);
    my $match = Pugs::Grammar::Perl6->parse( $src );
    #use YAML;
    #print Dump $match->();
    print Du <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9487	9594	
==>S, $neg, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdigit POSIX <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4556	4692	
==>xport {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is wo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4556	4692	
==>xport {
    return unless %*ENV{'PATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is wo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10342	10448	
==>van" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10342	10448	
==>van" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

You might want to read the tes <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3943	4070	
==>ht be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eva <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3943	4070	
==>ht be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eva <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	405	529	
==>r $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	405	529	
==>r $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2907	3025	
==>define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # D <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2907	3025	
==>define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # D <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4052	4194	
==>);   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4192	4334	
==>);   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	669	771	
==>'t you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	669	771	
==>'t you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1031	1285	
==>RINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1031	1285	
==>RINGS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5247	5357	
==>$chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # E <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5247	5357	
==>$chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # E <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3062	3162	
==>"Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3062	3162	
==>"Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method intersection($self: Set $ot <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3613	3713	
==>e.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoc <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3613	3713	
==>e.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on that epoc <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	604	710	
==>= $class->read($filename);
}

sub pretty_print {
    # ah yes so THAT's why we wanted YAML.pm.
    join "", <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26297	26392	
==>ion::Example; each Set member is a Mapping whose keys and values are
attribute names and values. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	927	1066	
==>ame2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        prec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	952	1091	
==>ame2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        prec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8993	9111	
==>$target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8993	9111	
==>$target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulating HTTP Message headers

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	724	844	
==>th, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	724	844	
==>th, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath( $path, $nofile );
}

sub catdir (*@p <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3200	3319	
==>ommand: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval { require "$file. <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2702	2795	
==>ot
rule metasyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <commit_alter <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7353	7464	
==>ead')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7353	7464	
==>ead')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1276	1380	
==>add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1276	1380	
==>add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2856	2984	
==>::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2856	2984	
==>::is_error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8261	8450	
==>title>
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  <style type="text/css">
    body {
      background-color: white;
      margin:           0;

      font-fam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22466	22564	
==>uld return a code-key to indicate a
condition, often it will also provide some variable values to b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22466	22564	
==>uld return a code-key to indicate a
condition, often it will also provide some variable values to b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9652	9797	
==>');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9652	9797	
==>');
                
                my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9493	9624	
==>my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( '' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	423	519	
==>IN{
node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5680	5781	
==>=head2 Writing for the API

Although the API seems large, most of it is implemented within the C<Ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5680	5781	
==>=head2 Writing for the API

Although the API seems large, most of it is implemented within the C<Ciphe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1812	1923	
==>ode ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1812	1923	
==>ode ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31151	31246	
==>a generic relational operator that returns a new Relation
which has a subset of the original's t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35701	35796	
==>a generic relational operator that returns a new Relation
which has a subset of the original's t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1836	1932	
==>a possible task: Create a p5->p6 regexp syntax converter!  A
#cpan module even. Write methods whi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	839	950	
==>atement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1045	1156	
==>atement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10089	10218	
==>ck = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10368	10497	
==>ck = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15392	15556	
==>at(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15671	15835	
==>at(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               , <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1679	1777	
==>londie::Unit Blondie::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15935	16038	
==>(${$_[0]}) },
      scalar_non_numeric => sub { p6_Str(${$_[0]}) },
      array => sub { p6_Array(@{$_[0 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22674	22769	
==>pe(C2,to_lower(C2x)),
   C1x =< Cx, Cx =< C2x, !.
charset_member(_,C,[class_pos(X)|_])    :- cla <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3998	4108	
==>as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3998	4108	
==>as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3005	3136	
==>my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3005	3136	
==>my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ', <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11341	11480	
==>o 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("U <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11341	11480	
==>o 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$nickgen<next>()}");
          $say("U <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1361	1522	
==>s unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1361	1522	
==>s unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $escaping ?? "," !! "|"
        }
        elsif ( $char eq "\\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4379	4479	
==>& '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4379	4479	
==>& '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12626	12728	
==>>? <']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
}
rule Elemen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	918	1006	
==>describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	918	1006	
==>describes Rosetta::Engine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8003	8117	
==>duction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8003	8117	
==>duction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3302	3428	
==>lig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3302	3428	
==>lig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelandic
    "uacute"   => 'ú <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17331	17438	
==>gy that is described here, and hence provides these
benefits to developers and users alike.

For some practi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17331	17438	
==>gy that is described here, and hence provides these
benefits to developers and users alike.

For some practi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12685	12818	
==>mnt/$_";
        }
      }
    };

  step
    descr  => "Copying shared libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      - <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/bereichs-ops.pl	83	209	
==>-1;   # '01234'
say 0..^@a;    # '01234'

say 0+1..@a;   # '12345'
say 0^..@a;    # '12345'

say 0^..^@a;   # '1234'

my @c = 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10384	10520	
==>dler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  });


  ### '+'

  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10013	10131	
==>dler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant => 0, '');
  }) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2814	2914	
==>item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2814	2914	
==>item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the request U <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	297	419	
==>elds.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	297	419	
==>elds.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13215	13309	
==>te %hash{$key}> in all it's forms. Below are some
example translations. This list is I<not> exh <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16362	16501	
==>gest") and my $native = $r->provides($builtin->digest)){
        $val->set($native); # it's a Prim
    } else {
        if ($builtin->isa("T <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1131	1227	
==>r $re_scopeop = '(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS section
# temporari <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	94	228	
==>0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1. <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	94	228	
==>0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19677	19782	
==>mat that will be much easier for a non-programmer to edit.
But the current Perl-based solution will also b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19677	19782	
==>mat that will be much easier for a non-programmer to edit.
But the current Perl-based solution will also b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3913	4015	
==>40", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3913	4015	
==>40", # non breaking space

 # Additional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9691	9797	
==>ND__

# XXX - optimization - pass the string index around, 
# XXX - weaken self-referential things

=p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3613	3708	
==>(stderr,"exec hook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = call_sv(p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18042	18156	
==>er

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18042	18156	
==>er

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its descendent
Nodes (if an <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7352	7456	
==>tring target, value
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15296	15396	
==>ates/times always convert their value to system
time (seconds since Jan 1, 1970) and they also expect <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15296	15396	
==>ates/times always convert their value to system
time (seconds since Jan 1, 1970) and they also expect <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	282	417	
==>:Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	282	417	
==>:Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1264	1530	
==></UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1264	1530	
==></UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39285	39382	
==>ll>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39285	39382	
==>ll>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR

Darren R. Dun <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	8	105	
==>ct;
use warnings;
package Inline::Parrot;
#use Inline 'INFO','NOISY','FORCE';
use lib 'lib';
use I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1094	1282	
==>am->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1234	1422	
==>am->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print ' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	262	379	
==>e $Switches $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ML_Print
    $Strap
);

=hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1152	1257	
==>ity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1152	1257	
==>ity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers, <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2552	2648	
==>t privilegies.

Note: The only option you'll have to specify is probably --initrd-mnt.

Note: I o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1786	1881	
==>ople interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1786	1881	
==>ople interested in the algorithm itself.  The attributes in question are 
C<i>, C<j> and C<state <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29215	29341	
==>%TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can hav <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29215	29341	
==>%TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can hav <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6055	6185	
==>chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6055	6185	
==>chr(959),
    "pi"       => chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	713	818	
==>thods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	713	818	
==>thods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5393	5548	
==>,                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5393	5548	
==>,                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtSlurpy',
  'xType' ,'Type';
node_a 'TCxt',                 'TTailCall', <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1436	1560	
==>d '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec };
    $dict{$name} = $o;
    bless $o, $cls;
  }
  su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35566	35673	
==>ects

Ender: I<tail>

=head2 open

Family: open

Types: open1, open2 ... openN (C<(>)

Data: array reference <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6568	6692	
==>hannels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6568	6692	
==>hannels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3674	3767	
==>e_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3674	3767	
==>e_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more information o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2795	3037	
==>bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { op => "ANGLE", angle_quoted => $m->() },
                        } );
                        #prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12365	12491	
==>atch;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12644	12770	
==>atch;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9109	9219	
==>MMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9109	9219	
==>MMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'n <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15025	15140	
==>kage Compiler;
use base qw/Reducer Map DynamicScopes/;

sub compile {
    my $self = shift;

    $self->{cache} = {} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10918	11029	
==>c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11347	11458	
==>c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4006	4126	
==>$match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4006	4126	
==>$match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6221	6343	
==>de_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6221	6343	
==>de_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Roset <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2078	2175	
==>%$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_contr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2078	2175	
==>%$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statement_contr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2191	2293	
==>element of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
you should <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2191	2293	
==>element of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
you should <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6628	6766	
==>mit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'synta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6628	6766	
==>mit error message
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'synta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12092	12201	
==>code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12092	12201	
==>code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6229	6452	
==>(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6229	6452	
==>(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @r <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4608	4753	
==>or @ARGV;

    if ( @tests ) {
        if ($Config{shuffle}) {
            shuffle(@tests)
        } else {
            # default FS order isn't g <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22180	22291	
==>Clauses>? <DefaultClause> <CaseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.11
      <CaseClause>
    | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4258	4398	
==>',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        name => 'and <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	513	618	
==>le) {
    return %Session{$variable};
}

sub SessionClear() {
    %Session=();
}

sub SessionCode(@variabl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10830	10929	
==>et".

The complement set of the universe is an empty set.

`:is_universe` must be set if this recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10830	10929	
==>et".

The complement set of the universe is an empty set.

`:is_universe` must be set if this recurr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2808	2952	
==>=~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1430	1574	
==>=~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15081	15175	
==>ivmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15081	15175	
==>ivmsg(Str $to, Str $text) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $te <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7805	7904	
==>$lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYR <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7805	7904	
==>$lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5157	5388	
==>} elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to qu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5157	5388	
==>} elsif (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to qu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3694	3789	
==>ream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3694	3789	
==>ream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1839	1954	
==>ar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1839	1954	
==>ar1::statements> ]* <?ws>? ) )
        ->( $expanded );
    die "compile: syntax error in macro at '" . $final_ast-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15617	15713	
==>rily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Settin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15675	15771	
==>rily complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Settin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	247	375	
==>path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ( $scheme eq 'http' and ! eval { require LW <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	283	409	
==>path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    if ($scheme eq 'http' and !eval { require LW <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6184	6284	
==>a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6184	6284	
==>a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2227	2322	
==>unctional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2227	2322	
==>unctional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of t <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	151	253	
==>is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	151	253	
==>is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16527	16681	
==>t( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16806	16960	
==>t( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { block =>  mat <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3419	3523	
==>rl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[12 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3419	3523	
==>rl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[12 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4779	4926	
==>n "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4779	4926	
==>n "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8733	8855	
==>ulti  List::join (Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $del <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	206	326	
==>ulti  List::join (Str $delimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $del <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2200	2318	
==>y is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2200	2318	
==>y is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<C <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2957	3070	
==>ay "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^< <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2957	3070	
==>ay "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7054	7169	
==>gram};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7066	7181	
==>gram};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17444	17670	
==>}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17723	17949	
==>}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17390	17498	
==>.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter mai <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17390	17498	
==>.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter mai <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	576	728	
==>dge_retval if defined $kludge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2378	2511	
==>ld_dir ) )
#                 or error( "Could not remove metadir from '$tmpdir" ), return;
# 
#         ### copy these sources to a bu <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	825	922	
==>/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/MSLFIL <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	710	799	
==>/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFIL <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1982	2144	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1982	2144	
==>$event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6249	6386	
==>{
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6249	6386	
==>{
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37937	38061	
==>e
will replace them with methods:

  sub raw {
    my $self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9948	10050	
==>xed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9948	10050	
==>xed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless $s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12398	12493	
==>val_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12456	12551	
==>val_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5376	5506	
==>tatus;          
        }
    }
});

1;

__END__

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Te <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	678	767	
==>esults = $strap->analyze_fh($name, $test_filehandle);
  my %results = $strap->analyze_file <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1624	1728	
==>ption {

    # External packages used by the Rosetta::Interface::Exception class, that do export symbols: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1624	1728	
==>ption {

    # External packages used by the Rosetta::Interface::Exception class, that do export symbols: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1885	1987	
==>> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1885	1987	
==>> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23157	23256	
==>p with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23157	23256	
==>p with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2618	2718	
==>passed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2618	2718	
==>passed in, and that the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour. <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1912	2087	
==>and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1912	2087	
==>and 
                @results.push($current_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1486	1636	
==>t $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1486	1636	
==>t $match->from;     # 0
      print $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5500	5614	
==>atter runs of pugs to pick up and load quickly.

Additional options:
    --verbose, -v     print progress to stderr <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6365	6460	
==>t a document identified by a URL. The document is printed
to the selected default filehandle for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6365	6460	
==>t a document identified by a URL. The document is printed
to the selected default filehandle for <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	796	939	
==>= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	796	939	
==>= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1923	2020	
==>onfig{$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl)[^\/\\]*([\/\\]?)/$1${2}6$3/i
      or $p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2008	2226	
==>w(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2008	2226	
==>w(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( L <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	539	649	
==>e found: "&C" 
   this file is currently simply a source code generator.
   Which also addresses the problem th <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	539	649	
==>e found: "&C" 
   this file is currently simply a source code generator.
   Which also addresses the problem th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19250	19349	
==><gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19250	19349	
==><gt>()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	561	678	
==>>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rath <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	561	678	
==>>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rath <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11883	11996	
==>ads){
        return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	292	400	
==>ads) {
		return $pad if $pad->name eq $symbol;
    }

    die "symbol $symbol could not be resolved by $self" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5702	5829	
==>kg) = @{$rv};
        next if $self->{pathnames}{$pkg};

        local $@;
        my $new = eval { require $file; $pkg->can('ne <==
2	/Users/nnunley/pugs/util/package-osx.pl	2494	2590	
==>cs /usr/local/share/doc/pugs/docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6641	6791	
==>sage
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6641	6791	
==>sage
    my $match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    prin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	748	887	
==>push @inst, $inst;
    }
    
    my $obj = $class->SUPER::new();
    $obj->mk_accessors( qw[repositories] );
    
    $obj->repositories( \ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15075	15185	
==>riables in the cloned function to be instantiated to the concrete values as inferred in the body of the functio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11210	11307	
==>)`

Returns everything (from the universal set) that is not in this recurrence.

- `union( $recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11210	11307	
==>)`

Returns everything (from the universal set) that is not in this recurrence.

- `union( $recurr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6133	6226	
==>ers{~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6133	6226	
==>ers{~normalize($event<from_nick>)}<channels>{~normalize($event<object>)}++;
  }];

  # Somebod <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15182	15309	
==>I1 = $I0 - pos
    cname = substr target, pos, $I1
    mob["cname"] = cname
    pos = $I0
    goto end
  name:
    inc pos
    ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7578	7677	
==>ol $label)) returns bit
    ((($self: get_attr (symbol new (%:methods))) exists ($label))))

=cut

$ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10630	10748	
==>rc              => "$initrd_mnt/etc/inputrc"],
    [$terminfo             => "$initrd_mnt/etc/terminfo/l/linux"],
    [ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	367	471	
==>os,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1778	1927	
==>->( $_[0], $state[0], @_[2,3,4,5,6,7] );
            return if ! $_[3] || ${$_[3]}->{abort};
            
            
            $_[3] = { match <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2630	2763	
==>te($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2630	2763	
==>te($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5241	5358	
==>tr( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2783	2900	
==>tr( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node::_simple_statement {
    my $op = get_str( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3972	4090	
==>emented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter tha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3832	3946	
==>emented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6738	6862	
==>nt {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6738	6862	
==>nt {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3846	3951	
==>$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3846	3951	
==>$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	628	748	
==>pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	628	748	
==>pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38856	38958	
==>.*foo)\D*(\d+)))
  VISUAL: ^(?:.*foo!\D*(\d+))
  REGEX:  (?-xism:^(?:(?!.*foo)\D*(\d+)))

Presto!

=hea <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2648	2745	
==>fix:|", "nows", &parse_modifier);
    $optable->addToken("close:>", "<prefix::", "nows");
    $opt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	777	875	
==>];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	777	875	
==>];
    my ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	398	495	
==>r_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn("could no <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35558	35721	
==>bol->new('$self:'     => 'opaque'), 
                              symbol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19910	20027	
==>:method
    .param pmc pad
    .local pmc exp
    .local int padarray
    padarray = pad["isarray"]
    pad["isarray"] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	335	454	
==>self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9753	9872	
==>self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4360	4469	
==>, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4360	4469	
==>, Set $two) returns Set {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10576	10684	
==>a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10634	10742	
==>a release
tool, but can be useful in other contexts as well.

== Testing Functions

- `use_ok (Str $module, B <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7843	7944	
==>bitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7843	7944	
==>bitrary limit exceeded when calculating complement()";
        };
}

submethod _get_complement_previou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	976	1091	
==>atch->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	976	1091	
==>atch->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::R <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1755	1860	
==>y $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1755	1860	
==>y $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($self: Set $other) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3932	4092	
==>t $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3932	4092	
==>t $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD I <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19760	19862	
==>s in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the cod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19760	19862	
==>s in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the cod <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6450	6592	
==>inue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeee <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6450	6592	
==>inue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new),
                   -> $m {
                        # XXX. Eeeee <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1435	1558	
==>',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1642	1765	
==>',
    ) {

      # loading the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2908	3032	
==>f as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <v <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2908	3032	
==>f as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <v <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6269	6368	
==>ry forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6269	6368	
==>ry forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7388	7482	
==>$val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7388	7482	
==>$val, Str $path, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2047	2179	
==>y ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $self->{operand};
    my $equal = "r$l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3084	3235	
==>) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3084	3235	
==>) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5424	5528	
==>ceholder
# when going into an AST these are generated
# as the AST is left they are unified
# a free vari <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13886	14001	
==>ain->("scalar_numeric") },
      scalar_non_numeric => sub { $as_array_complain->("scalar_non_numeric") },
      arr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3979	4086	
==>Value', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3979	4086	
==>Value', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2134	2238	
==>et.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2134	2238	
==>et.spans;
}
method is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   retu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1317	1500	
==>tatements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1317	1500	
==>tatements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19002	19114	
==>e pass in $plus_ten
my $flatten_polymorphic = fun(
	param => "f",
	body => comb(
		fun => comb(
			fun => ide("pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	40	149	
==>e;

use strict 'vars';
use Module::Install::Base;
use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEG <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7414	7520	
==>i Array::grep (@values ;  MatchTest $test   --> Lazy )
{
    List::grep $test, *@values;
}

# signature fro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14172	14267	
==>BRACK (-17)

Unmatched [

=item RPe_EQUANT (-18)

Quantifier follows nothing

=item RPe_BRACES ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1459	1579	
==>es a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1459	1579	
==>es a coroutine (or two, 
  for shift and pop support) and creates a Lazy List, that
  can be used to create a Lazy Array. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11984	12085	
==>lement in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11984	12085	
==>lement in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element i <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3192	3315	
==>, $1, int($2), int($3))}e
          if $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl_versi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40006	40101	
==>vocant relation into a new Relation::Example, such that all common attribute names
and correspon <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15662	15759	
==>o define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15662	15759	
==>o define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7768	7870	
==>s event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7768	7870	
==>s event is fired when an '=over' directive is reached.

=item I<end_element ('list')>

This event is fi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6250	6372	
==>/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6250	6372	
==>/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	149	248	
==>=pod

=head1 NAME

Blondie::Runtime::Nada - 

=head1 SYNOPSIS

    use Blondie::Runtime::Nada;

=hea <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2559	2683	
==>s) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2559	2683	
==>s) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9285	9379	
==>_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3110	3204	
==>_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14175	14301	
==>}) is pointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6263	6363	
==>w level operators

  # Domain-specific-language-like syntax, contained in a package

### rule must ev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6049	6147	
==>w level operators
  # Domain-specific-language-like syntax, contained in a package
### rule must ev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	440	584	
==>)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	440	584	
==>)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7496	7622	
==>::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7689	7815	
==>::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	658	766	
==>at the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	626	727	
==>at the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4211	4328	
==>ither a closure or a block";    
    my $list = list->new();
    foreach my $val (@{$self}) {
        if ($closure->is <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4843	4983	
==>],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4843	4983	
==>],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1965	2057	
==>($$) }

type::operator::binary: parenthesize($$) = { $$->isa("type::operator::pair") || level <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1387	1497	
==>nf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYN <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1387	1497	
==>nf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date span

= SYN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2719	2818	
==>sions



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd lik <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2619	2715	
==>sions

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd lik <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26233	26332	
==>) of Any - This contains zero or more member tuples of
the Relation::Example; each Set member is a M <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8343	8439	
==>of Str $heading!, Code $replacements!) returns Relation::Example {
    return Relation::Example.n <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2028	2160	
==>burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($tim <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2028	2160	
==>burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($tim <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1110	1234	
==>rectory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1110	1234	
==>rectory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1913	2030	
==>mote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HT <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1913	2030	
==>mote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HT <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14565	14657	
==>uct } @{ $self->registered_alternatives };
    eval { DumpFile( $self->registered_alternative <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4951	5050	
==>delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4951	5050	
==>delete all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26757	26859	
==>the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the " <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26757	26859	
==>the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the " <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4526	4623	
==>methods are
implemented as hash keys to code refs. The only function this module
exports is the co <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4526	4623	
==>methods are
implemented as hash keys to code refs. The only function this module
exports is the co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1163	1282	
==>d_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1163	1282	
==>d_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	708	818	
==>Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # wai <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	708	818	
==>Num :$epoch) returns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # wai <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18953	19057	
==>ling anything in the real world accurately, and it
can support a complete SQL emulation layer on top of i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18953	19057	
==>ling anything in the real world accurately, and it
can support a complete SQL emulation layer on top of i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26899	26994	
==>responding argument is
provided (it defaults to empty if the argument is not provided).

Some ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26899	26994	
==>responding argument is
provided (it defaults to empty if the argument is not provided).

Some ex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18852	18966	
==>le it is obvious that people who would be writing the text
would have to know how to edit Perl files, this shouldn' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18852	18966	
==>le it is obvious that people who would be writing the text
would have to know how to edit Perl files, this shouldn' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23242	23354	
==>me"]
    exp1 = self[1]
    exp1["cname"] = cname
    exp1["iscapture"] = 1
    exp1 = exp1.p6analyze(pad)
    .r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6353	6557	
==>ned $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6353	6557	
==>ned $.current_span {
                    $.current_span++ 
                }
                else {
                    $.current_span = 0
                }
                if $.current_span > @spans.end { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	748	875	
==>ar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidime <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	748	875	
==>ar>, ...
    $.multidex     - The "quantifier index".  This is an array that is an
                     index into the multidime <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1752	1834	
==>aml_harness_args;
push(@yaml_harness_args,'--concurrent', PugsBuild::Config->lookup <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8642	8825	
==>intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12119	12302	
==>intersection( $r2 );
    }

    return $r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1483	1591	
==>s required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      requi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1690	1798	
==>s required, even if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      requi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26634	26788	
==>method' => (
    # method label
        symbol->new('add_subclass'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11200	11349	
==>SpaceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrN <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3562	3696	
==>lf)->{'%:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) = @_;
            keys <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1422	1528	
==>f - function of one variable

It looks for an x such that f(x) is y.

You may optionally supply:

    epsil <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11759	11856	
==>- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exactly the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11759	11856	
==>- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exactly the <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	426	573	
==>= Role.new("Foo");
 my $newclass = Class.new($class);
 $newclass.does($role);
 $newclass.apply;

=head1 DESCRIPTION

This object represents a Class. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6606	6711	
==>, "Missing right %s on \\%s", 'brace', "x$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9228	9369	
==>closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9228	9369	
==>closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ??  0 !!    Inf },
        co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13880	13992	
==>o parameters; the name of the field and a single
value (a string).  If a header field is multi-valued, then the
r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13880	13992	
==>o parameters; the name of the field and a single
value (a string).  If a header field is multi-valued, then the
r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7007	7131	
==>odel::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7007	7131	
==>odel::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	976	1076	
==>{
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest->add($c_code) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1989	2088	
==>{
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1989	2088	
==>{
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) {
    !$one.proper_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1902	2107	
==>ck => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1902	2107	
==>ck => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	30	148	
==>e;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	30	148	
==>e;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2768	2865	
==>Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2768	2865	
==>Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11810	11922	
==>ue )

Add a new field value for the specified header field.  Previous values
for the same field are retained.

As <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11810	11922	
==>ue )

Add a new field value for the specified header field.  Previous values
for the same field are retained.

As <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	531	655	
==>{

    # External packages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3896	3989	
==>------------------------------------------
## removing children

method remove_child_at ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3896	3989	
==>------------------------------------------
## removing children

method remove_child_at ($self <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17369	17461	
==>rish modules in a much more sane manner.
Module::Compile controls the compilation process, ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17369	17461	
==>rish modules in a much more sane manner.
Module::Compile controls the compilation process, ca <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	58	156	
==>rldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	58	156	
==>rldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1892	1994	
==>ot, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1950	2052	
==>ot, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$dep <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27729	27827	
==>ch results in a
somewhat messy output).

=item C<HARNESS_PERL>

Usually your tests will be run by C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3291	3469	
==>{
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v & <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3291	3469	
==>{
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        if ($age_v & <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1225	1321	
==>used by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1225	1321	
==>used by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely de <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	380	518	
==>ts{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readli <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	380	518	
==>ts{$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readli <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9067	9162	
==>t.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9067	9162	
==>t.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3386	3523	
==>matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3386	3523	
==>matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19569	19669	
==>a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19569	19669	
==>a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner block
effe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5069	5164	
==>if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5069	5164	
==>if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmod <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	119	235	
==>$RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	119	235	
==>$RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	48	156	
==>Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	48	156	
==>Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	202	288	
==>@!children;

## ----------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	202	288	
==>@!children;

## ----------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7373	7481	
==>ked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7373	7481	
==>ked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1175	1332	
==>y $acc = {
        file            => { allow => FILE_EXISTS },
        meta            => { allow => ISA_JIB_META },
        config          => { allow => IS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2114	2256	
==>, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
        ### make the pat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2571	2666	
==>return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $? <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2571	2666	
==>return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $? <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15444	15568	
==>is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the span.

These methods may rai <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15444	15568	
==>is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of the span.

These methods may rai <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6306	6410	
==>can resolve itself now :)

# Class gets a special case Does
# to avoid endless recursion
$Class->add_meth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2417	2536	
==>($config);
        $obj->packages( $pkgs );

        return $obj;
    }
}

=head2 $bool = $repo->create()

Creates a new <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3968	4146	
==>$x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1 <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3702	3878	
==>$x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	998	1122	
==>OCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	998	1122	
==>OCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	979	1105	
==>on: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n" <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	979	1105	
==>on: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1124	1237	
==>.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1124	1237	
==>.map:{ uc $_ => 1 };
my %entity_header = @entity_headers.map:{ %entity_header{uc $_} = 1 };

our @header_order = ( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20876	20974	
==>mply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25428	25526	
==>mply
returns, you can assume that it has succeeded.

=head2 The Relation Class

A Relation object i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	945	1043	
==>AST - so maybe the implementation

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	898	993	
==>AST - so maybe the implementation
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, emit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1766	1913	
==>dences{$opt->{precedence}}->($self, $_, $opt);
            return;
        }
    }
    push @{$self->{levels}}, [ $opt ];
}

sub code { 
    warn "n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24492	24584	
==>ute name and each Mapping value
is the corresponding attribute value.

Every Relation::Exampl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32086	32186	
==>ing
and whose body contains all of the tuples that are in either or both of the
invocant Relation and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36636	36736	
==>ing
and whose body contains all of the tuples that are in either or both of the
invocant Relation and <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22516	22607	
==>eturn value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22516	22607	
==>eturn value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation i <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1686	1791	
==>(Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

The <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1686	1791	
==>(Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

The <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	445	558	
==>Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
Se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	445	558	
==>Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
Se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	316	420	
==>els it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	316	420	
==>els it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21786	21879	
==>gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21786	21879	
==>gt>
"...")>

Kicks somebody from a channel, stating a reason optionally.

=head2 C<$bot.mode(t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	39	146	
==>Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	39	146	
==>Perl::Compiler::CodeGen::NameGen {
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4591	4692	
==>= get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://ww <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4591	4692	
==>= get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://ww <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14139	14261	
==>my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14139	14261	
==>my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map-> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8046	8140	
==>-------------------------------------------------------------
## utility methods

# NOTE:
# Occ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8046	8140	
==>-------------------------------------------------------------
## utility methods

# NOTE:
# Occ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	233	338	
==>ction.defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	233	338	
==>ction.defined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6142	6236	
==>lar, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6142	6236	
==>lar, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and st <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4542	4657	
==>s simple too, and the
# difference won't matter for the spike target.

sub def_thing {
  my($aref,$match_hack,$name, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6178	6294	
==>~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6178	6294	
==>~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method co <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5265	5361	
==>version of the Prelude code is inlined into the executable, to be
"eval"ed when pugs starts.  Aft <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8868	8964	
==>an.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is curre <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8868	8964	
==>an.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is curre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14295	14454	
==>ch->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14289	14448	
==>ch->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = subs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1495	1604	
==>>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1495	1604	
==>>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11511	11673	
==>'"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n)) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11511	11673	
==>'"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n)) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6140	6237	
==>y be a little jumbled or hard to understand.  If you find a problem,
please let L<me|/"AUTHOR"> kn <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16546	16668	
==>n-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausib <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20972	21094	
==>n-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausib <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	884	992	
==>turns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_clos <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	884	992	
==>turns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_clos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39375	39537	
==>my $e = shift;
                $e->get('$self:')->get_attr(symbol->new('%:attributes'))->values();                                 
            }
        )
    )
) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19258	19356	
==>ession> <','> <AssignmentExpression>
}
rule ExpressionNoIn :words {  # see 11.14
      <AssignmentE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1699	1841	
==>s = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1699	1841	
==>s = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$method(@ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4758	4899	
==>open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4758	4899	
==>open;
    }
    $cmp = $i_start <=> $i_end;
    if $cmp <= 0  &&
       ( $cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        retu <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1325	1461	
==>litpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($sc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1325	1461	
==>litpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($sc <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	809	925	
==>s copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!defined($n) || $n-- > 0) {
    ## XXX - what's $" these da <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5698	5805	
==>) = @_;
    my $chunk_size = POSIX::ceil(@$all_tests / ($child_count * 3 - 1));
    for my $child (1 .. $chi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5533	5628	
==>emit(get_data($_[0],'$<condition>'));
    my $then = emit(get_data($_[0],'$<then>'));
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3794	3886	
==>f) if $ref =~ /\A(?:SCALAR|ARRAY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $r <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4352	4458	
==>nnect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4352	4458	
==>nnect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple pro <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	834	955	
==>al{ $f->($mods,$re) };
	if (!defined $qr) {
            my $err = $@; $err =~ s/^/\# /m;
	    if($ok =~ /c/) { print "ok\n <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2470	2568	
==>f a
function (not that Newton's method is ever really good at that).

=head2 The Defaults

Note tha <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26944	27038	
==>e Language::Prolog::Types qw(:ctors);
use Benchmark qw(:all);
require "m02.pl";
require "re05.p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18889	18991	
==>a is both an int and a str
# while this could seem to make sense for e.g. the 'id' function, this won't <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26944	27038	
==>HARNESS_FILELEAK_IN_DIR>

When set to the name of a directory, harness will check after each
te <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5517	5654	
==>"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5517	5654	
==>"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omega"    => chr(937),
    "alpha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26879	26977	
==>attribute if the corresponding argument is
provided (it defaults to empty if the argument is not pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26879	26977	
==>attribute if the corresponding argument is
provided (it defaults to empty if the argument is not pr <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4608	4713	
==>xports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> cre <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4608	4713	
==>xports is the constructor. 

=over 4

=item B<Config::Tiny::new>

The constructor C<Config::Tiny::new> cre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2286	2428	
==>eyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2286	2428	
==>eyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10209	10320	
==>ject(bol => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S->object(bol = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23057	23148	
==>orage representation of the roles' attributes (eg,
volatile or persistent) and provide acces <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	810	919	
==>)) {
        my($variable,$value) = split('=',$_);
        %Session{$variable} = url_decode($value) if ($varia <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14817	14914	
==>ters in header field
values will be substituted with this line ending sequence.

=back

=head1 CON <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14817	14914	
==>ters in header field
values will be substituted with this line ending sequence.

=back

=head1 CON <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16503	16650	
==>fset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offse <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20929	21076	
==>fset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset and max_offse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5485	5582	
==>ntent_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5485	5582	
==>ntent_type ~~ m,^multipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("C <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32641	32750	
==>d the order of its arguments is not significant to the result;
the new Relation contains all the tuples of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37191	37300	
==>d the order of its arguments is not significant to the result;
the new Relation contains all the tuples of the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37078	37180	
==>re all used by
translate_message() to handle the trickier parts of its work:

=over

=item C<template_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37078	37180	
==>re all used by
translate_message() to handle the trickier parts of its work:

=over

=item C<template_m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12289	12417	
==>od host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12289	12417	
==>od host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8979	9102	
==>,
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# M <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8979	9102	
==>,
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22916	23052	
==>('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19337	19473	
==>('(?p' => sub {
    my ($S) = @_;
    my $c = '(?p';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	491	614	
==>and
		! $self->can_run('nmake')
	);

	print "The required 'nmake' executable not found, fetching it...\n";

	require File::B <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22324	22440	
==>=> "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22601	22717	
==>=> "listify",
	is => $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20652	20769	
==>1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17073	17190	
==>1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1931	2035	
==>tory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=hea <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1931	2035	
==>tory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21811	21961	
==>ement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22090	22240	
==>ement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop::alte <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9559	9665	
==>ailed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9617	9723	
==>ailed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	455	565	
==>initions



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definitions t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	431	538	
==>initions

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definitions t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5023	5234	
==>ript] )   and die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4239	4434	
==>ript] )       and die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21085	21190	
==>::require_use_helper ($use_,$module) is builtin is unsafe {
  my sub opRequire() { 
    $use_
      ?? Pug <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2414	2517	
==>RUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2414	2517	
==>RUE  { 1 }
sub FALSE { 0 }

=pod

=head1 NAME

Config::Tiny - Read/Write .ini style files with as little <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14889	15044	
==>nt  $.sec;     # 0 to 61 (up to two leap seconds)
    has Int  $.picosec;
    has Int  $.wday;    # 1 to 7, Sunday == 1
    has Int  $.yday;    # 0 to 365 ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7422	7508	
==>5_concatenation(R), ")", !.
p5_condition_alternative(noop) --> ")". 
p5_condition_test( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	743	854	
==>turns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	743	854	
==>turns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_open;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9097	9210	
==>$try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9085	9198	
==>$try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18425	18537	
==>o say about the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18425	18537	
==>o say about the
word I<referer>:

     <World-Wide Web> A misspelling of "referrer" which
     somehow made it in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18934	19058	
==>->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerol <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20292	20416	
==>->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerol <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22400	22504	
==>kages could be installed in.

Generally, when a program package would return a code-key to indicate a
con <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22400	22504	
==>kages could be installed in.

Generally, when a program package would return a code-key to indicate a
con <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1195	1415	
==>dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.result <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1195	1415	
==>dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.result <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3914	4021	
==>dard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3914	4021	
==>dard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1629	1729	
==>I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1629	1729	
==>I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Ci <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2915	3011	
==>t1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2915	3011	
==>t1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8058	8166	
==>iated') => sub { unify($_[0]{instance}, $_[1]{instance}, @_[2, 3]) };

# nullary operators much have the same <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	965	1078	
==>every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alternation is first matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	928	1036	
==>every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alternation is first matc <==
2	/Users/nnunley/pugs/util/package-osx.pl	10889	11039	
==>\)\$/ \) \{
                print "Not removing \$file\\n"; 
                next;
            \}
            if \(\$file =~ /\(?:readline|history\).*\ <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3442	3582	
==>*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ofh "\n{\n";
        my $program;
        while (<$ifh>) { <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	726	822	
==>y) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	726	822	
==>y) returns Str is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19973	20073	
==>uding
the operating system itself, to have the user language data in separate
files (usually XML file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19973	20073	
==>uding
the operating system itself, to have the user language data in separate
files (usually XML file <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3144	3296	
==>,
    '%:methods' => {     
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaqu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3872	3998	
==>,
    '%:methods' => {     
        'id'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaqu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31882	31975	
==>a generic binary relational operator that takes a single
Relation in its C<$other> argument, w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36432	36525	
==>a generic binary relational operator that takes a single
Relation in its C<$other> argument, w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	893	1103	
==>document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	893	1103	
==>document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3555	3646	
==>document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3555	3646	
==>document describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6868	7007	
==>y $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6868	7007	
==>y $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7383	7504	
==>RING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUES <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7383	7504	
==>RING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_STRING;
        }
        elsif (lc($REQUES <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16208	16305	
==>to ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20634	20731	
==>to ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No-one else touches it.

  struct r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4944	5055	
==>orig => $app,
			struct_equiv => $unified_app,
		);
	}

	sub simplify_type {
		my $self = shift;
		my $type = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5803	5925	
==>ft;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5803	5925	
==>ft;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2395	2509	
==>ode < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2395	2509	
==>ode < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ( <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1751	1847	
==>nfix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1751	1847	
==>nfix versions of C<map> and C<grep>.

These will go when we can define own metaoperators (like C< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5349	5499	
==>if ( $n->{param}{sub}{bareword} =~ /^v5/ ) {
                return "warn 'use v5 - not implemented'";
            }
            if ( $n->{param}{su <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2379	2489	
==>arting guess which is half
the target.  This does not facilitate recovering all the roots of a
function (not th <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2708	2860	
==>eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    while (scalar @file) {
			$chr = shift @file;
			last if $chr =~ /\n/;
			print $chr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	458	681	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	458	681	
==>ar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1729	1827	
==>ass->can('subclasses')) { # roles don't have subclasses
        foreach my $subclass (@{$class->sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3948	4044	
==>etta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta version 0.7 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3948	4044	
==>etta -
Rigorous database portability

=head1 VERSION

This document describes Rosetta version 0.7 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2307	2422	
==>atch( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2447	2562	
==>atch( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1412	1525	
==>,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1412	1525	
==>,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $po <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7271	7394	
==>}
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7271	7394	
==>}
        warn "Arbitrary limit exceeded when calculating intersection()";
    }
}

submethod _get_complement_next ($self: ) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5544	5644	
==>e is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5544	5644	
==>e is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13438	13551	
==>$.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13438	13551	
==>$.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # even <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	647	746	
==>ist code from lib.pm because I am hoping that perl6
# and the new module functionality will not need <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	647	746	
==>ist code from lib.pm because I am hoping that perl6
# and the new module functionality will not need <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	494	693	
==>STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] }
        |   exp '«+»' exp         { $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13203	13307	
==>$app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_sco <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	613	717	
==>$app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_sco <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	594	842	
==>:L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	594	842	
==>:L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5720	5828	
==>ormalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Up <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5720	5828	
==>ormalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Up <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15999	16097	
==>` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a lo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15999	16097	
==>` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a lo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35715	35807	
==>perator that takes a single
Relation::Example in its C<$other> argument, where <$other> has t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37747	37839	
==>perator that takes a single Relation::Example
in its C<$other> argument, where <$other> has t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	984	1106	
==>d_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	984	1106	
==>d_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14511	14652	
==>ched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14511	14652	
==>ched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7648	7890	
==>ESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8112	8354	
==>ESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies this dependency
                    for my $maybe (@$index) {
                        ### not the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3991	4097	
==>lues that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3991	4097	
==>lues that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4428	4569	
==>ce => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4428	4569	
==>ce => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12953	13087	
==>ACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6428	6562	
==>ACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a-f <==
2	/Users/nnunley/pugs/util/run-smoke.pl	644	758	
==>GV[1] or die "Need HTML output file location";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1530	1666	
==>($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1530	1666	
==>($.query_string ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22586	22750	
==>less {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifmatch',
      dir => $dir,
      data => \@data,
      down => <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	175	327	
==>utput' => {
    is => [ $::Object ],
    attributes => [ '$.output', '$.error_output' ],
    submethods => {
        'BUILD' => sub {
            my ($se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9958	10074	
==>^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9958	10074	
==>^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $fi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2120	2222	
==>args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $self->det <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1230	1328	
==>args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $self->det <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4949	5048	
==>y leftover data and returns it as an array of bytes, 
then clears the object's internal state.  This <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4949	5048	
==>y leftover data and returns it as an array of bytes, 
then clears the object's internal state.  This <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	222	320	
==>ret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar impleme <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	222	320	
==>ret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar impleme <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	58	155	
==>ist' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	58	155	
==>ist' class in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1913	2022	
==>@list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exis <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1913	2022	
==>@list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - exis <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1525	1675	
==>rl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1525	1675	
==>rl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	748	852	
==>elf = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	649	753	
==>elf = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11361	11459	
==>a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11419	11517	
==>a
somewhat experimental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20468	20570	
==>est program go boom.
sub _dubious_return {
    my($test, $tot, $estatus, $wstatus) = @_;
    my ($faile <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13877	13980	
==>IX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8083	8186	
==>IX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2465	2639	
==>{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            wh <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2670	2844	
==>{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $current = $self;
            wh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40229	40327	
==>1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40229	40327	
==>1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent n <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	903	1000	
==>/$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	833	924	
==>/$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3267	3384	
==>sum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die " <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3267	3384	
==>sum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die " <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	554	715	
==>/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && do {
            my($key, $val) = ($1, $2);
            $val = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32649	32749	
==>r-readable
message strings, using data from external Template modules as a template.
The Translator c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32649	32749	
==>r-readable
message strings, using data from external Template modules as a template.
The Translator c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15689	15787	
==>C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15689	15787	
==>C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	128	256	
==>e;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	128	256	
==>e;
use base Pugs::Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13606	13702	
==>y HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13606	13702	
==>y HTTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11674	11790	
==>eturn unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9359	9470	
==>eturn unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push @{ $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2712	2856	
==>}
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change -1;
        while $i <= $final {
            @a[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18925	19056	
==>ethod "isa" on unblessed reference/ ) {
                if( !UNIVERSAL::isa($object, $class) ) {
                    my $ref = ref $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1248	1358	
==>{ ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or retur <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1248	1358	
==>{ ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or retur <==
2	/Users/nnunley/pugs/util/package-osx.pl	10410	10560	
==>dest$files[-1]" or die "Can't open $dest$files[-1]!";

    my @header = qq(
        #!/usr/bin/perl
        # $files[-1]
        use strict;
        us <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14279	14404	
==>l($X::pos)=($X::pos);
        $v = $f_test->($noop);
      }
      if(not FAILED($v)) {
        TAILCALL(&$f_then,$c);
      } <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25991	26097	
==>ng the individual tests.  This allows
the tests to determine if they are being executed through the harness <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4814	4916	
==>y = shift;

	push @{ $self->{defs} }, $body;

	$self->mark_defined($node);
}

sub mark_defined {
	my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16847	16962	
==>}

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub visual <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1636	1744	
==>ntains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1636	1744	
==>ntains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1605	1704	
==>elf->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1745	1844	
==>elf->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12483	12584	
==>vious and next elements are at the same distance, returns the previous one.

- `is_empty()`

Returns t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12483	12584	
==>vious and next elements are at the same distance, returns the previous one.

- `is_empty()`

Returns t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30956	31050	
==>ntical to the original, in which case
this method returns the identity-one Relation or the invo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35506	35600	
==>ntical to the original, in which case
this method returns the identity-one Relation or the invo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	484	681	
==>e);
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19234	19337	
==>tions beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19234	19337	
==>tions beginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1143	1262	
==>lements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1143	1262	
==>lements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20609	20716	
==>ror(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17030	17137	
==>ror(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9411	9509	
==>e_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'g <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9411	9509	
==>e_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'g <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	887	1022	
==>lso attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	887	1022	
==>lso attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<remote_host returns Str>

=item B<remote <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1630	1735	
==>eters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has i <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1630	1735	
==>eters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a span that has i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	837	946	
==>:<" . $opt{name} . " " . $opt{name2} . ">",
        '{ return { op => "postcircumfix:<' . $opt{name} . ' ' . $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	219	329	
==>file sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	219	329	
==>file sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	909	1018	
==>lso 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	909	1018	
==>lso 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14807	14923	
==>t $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14807	14923	
==>t $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22987	23129	
==>('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42590	42732	
==>('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5384	5482	
==>e %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5384	5482	
==>e %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30250	30346	
==>which will be substituted at run-time before the text
is shown to the user.

Each Template module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30250	30346	
==>which will be substituted at run-time before the text
is shown to the user.

Each Template module <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1979	2098	
==>s not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1979	2098	
==>s not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22737	22881	
==>ent;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23016	23160	
==>ent;
*{'sub_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "sub" )
       ,
         \&{'grammar1::p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21606	21706	
==>.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21606	21706	
==>.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3578	3687	
==>')->FETCH('::Base') ],
    attributes => [ '$.reason' ],
    methods => {
        'reason' => sub { _('$.reaso <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9045	9177	
==>y $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoco <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10522	10654	
==>y $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoco <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2507	2665	
==>lder->FETCH('::Test')->new(
                    '$.todo'        => 1,
                    '$.number'      => $self->get_test_number(),
                    '$.r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1513	1683	
==>-> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsef <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1513	1683	
==>-> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsef <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5194	5303	
==>){
    no strict;
if(main->can($c)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
} <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	497	643	
==>e user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	497	643	
==>e user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16915	17013	
==>The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16915	17013	
==>The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringify()`

Return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1433	1543	
==>r_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1433	1543	
==>r_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_or <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14567	14672	
==>ue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KIC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14567	14672	
==>ue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KIC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20925	21023	
==>asy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20925	21023	
==>asy to
upgrade.

Locale::KeyedText aims to bring this sort of functionality to Perl packages
or pro <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6288	6390	
==>E

Span::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6288	6390	
==>E

Span::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use S <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	260	365	
==>a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% sl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	260	365	
==>a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% sl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2193	2295	
==>ose are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2112	2212	
==>ose are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	560	663	
==>EMPTY_STR };

subtype Relation::LaxAttrScalarSubType of Any where {
    .does(Package) or (.does(Str) an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25143	25318	
==>_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25422	25597	
==>_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	579	696	
==>}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	579	696	
==>}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34073	34182	
==>ch in found in the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34073	34182	
==>ch in found in the most preferred language
is used.  Each Set Name can be any defined and non-empty string.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9359	9490	
==>alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9552	9683	
==>alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       , <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3862	3973	
==>1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3862	3973	
==>1.0",
    "Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3487	3581	
==>ation;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $self: <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1629	1723	
==>ation;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $self: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4334	4450	
==>ostfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4334	4450	
==>ostfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	80	192	
==>lementation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	78	184	
==>lementation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15695	15790	
==>d stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15695	15790	
==>d stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2271	2415	
==>s;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2271	2415	
==>s;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1298	1424	
==>ying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1298	1424	
==>ying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	867	983	
==>is node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "ti <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	867	983	
==>is node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "ti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17070	17182	
==>ata type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17070	17182	
==>ata type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attribute <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1862	1992	
==>nt("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1862	1992	
==>nt("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15553	15685	
==>pression>
    | <RelationalExpression> <'>'> <ShiftExpression>
    | <RelationalExpression> <'<='> <ShiftExpression>
    | <Relationa <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8374	8483	
==>Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency line based on Cabal versi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	422	542	
==>LIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is zero],
);

m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1280	1400	
==>LIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argument $number is zero],
);

m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19375	19474	
==>ight want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19375	19474	
==>ight want to use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	146	266	
==>rint  = 0;
our $format        = 'p5';
our $got_options   = 0;

#read options
sub import {
	return if $got_options;
	$got_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12508	12630	
==>ine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually conn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12508	12630	
==>ine $fnh_get_person
        = $conn.compile_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually conn <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1470	1621	
==>nless $first->{$k} eq $o->{$k};
            }
        }
        return 1;
    };
    
    while( my ($fname, $events) =  each %sum ) {
        for(my $i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48989	49212	
==>'),
                              symbol->new('?$version' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2315	2418	
==>' );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime::M <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4407	4546	
==>f; }
sub as_p6_file { $_[0]{'p6_file'}->value }

sub as_pil_tree_yaml {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	494	591	
==>ch condition not recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contain <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	363	458	
==>o a compiled class (a L<Type>), which is used for
dispatching private methods.

=back

Normally, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15998	16098	
==>rey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16056	16156	
==>rey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10961	11102	
==>n_Foo',
   '... still got the right return value from Foo singleton/class method called by Bar');   

## make instances of subclasses

my $iBa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20782	20884	
==>ionStatement :words {  # see 12.4
      <!before <'function'>><Expression> <';'> #lookahead
}
rule IfSt <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28047	28143	
==>ttribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32599	32695	
==>ttribute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2831	2935	
==>_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2831	2935	
==>_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16882	16985	
==>ader field is used as a modifier to the
media type.  When present, its value indicates what additional
e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16882	16985	
==>ader field is used as a modifier to the
media type.  When present, its value indicates what additional
e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7393	7487	
==>ol->new('add_method'), $_add_method));
}

=pod

method has_method (opaque $self: symbol $label) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10436	10528	
==>ptions, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10436	10528	
==>ptions, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
metho <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12248	12344	
==>we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12306	12402	
==>we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24579	24688	
==>n_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21000	21109	
==>n_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	746	866	
==>$opt->{other} } @{$self->{levels}[$_]} ) {
            if ( $opt->{precedence} eq 'tighter' ) {
                splice( @ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3142	3243	
==>il_code = $self->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4567	4664	
==>ng, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4567	4664	
==>ng, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3076	3201	
==>x:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3076	3201	
==>x:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2452	2574	
==>"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2452	2574	
==>"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1470	1573	
==>igspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1470	1573	
==>igspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1304	1429	
==>->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_sou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1444	1569	
==>->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_sou <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	946	1108	
==>mp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13517	13611	
==>(-5)

Sequence (?{...}) not terminated or not {}-balanced

=item RPe_SWNREC (-6)

Switch condit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45116	45217	
==>age & Module, so we can create something here

$::Package = $::Class->send('new');
$::Package->send('s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1965	2054	
==>----------------------------------------------------------------------------
## Classes

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1798	1906	
==>eft',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tigh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1798	1906	
==>eft',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tigh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1343	1434	
==>m:", "nows", "PGE::Exp::Group");
    $optable->addToken("circumfix:( )", "term:", "nows", "P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	258	416	
==>$self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2562	2666	
==>der for dummy nodes that contain only source representation.

=back

=head1 API METHODS

These methods mu <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2562	2666	
==>der for dummy nodes that contain only source representation.

=back

=head1 API METHODS

These methods mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5042	5143	
==>allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5042	5143	
==>allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $m <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	333	469	
==>l, $name, $space) = @_;
#    
#
#    $space = "" if $space =~ /\n/;
#    print "[$segil][$name][$space]\n";
#    # var
#    if (length $s <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	734	838	
==>tence of what would
  be useful, and we'll do it later.

=cut
###*** Value types - numeric

macro Clutter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1692	1810	
==>($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2472	2590	
==>($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get_str( $_[0], <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1302	1395	
==>er::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1302	1395	
==>er::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your filter <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18211	18300	
==>0,E1) :-
  rm_repeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1).
r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1345	1482	
==>urn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1356	1493	
==>urn { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ] <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5255	5383	
==>pre     reduce  safe   (Array: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	418	519	
==>adbc(i, pf);
    Parrot_runcode(i,0,NULL);
}
Parrot_Interp new_interpreter() {
   	Parrot_Interp i;
	i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27587	27691	
==>back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27587	27691	
==>back

A Message object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	179	281	
==>_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functio <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	179	281	
==>_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functio <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14979	15114	
==>into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($test->{name}, my $control) = $ext <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1410	1567	
==>int "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1410	1567	
==>int "POS $pos ";
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => $1,
        tail  => $2,
        captur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5307	5418	
==>s;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5365	5476	
==>s;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16902	17061	
==>tch ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17181	17340	
==>tch ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5988	6102	
==>ir
            ? "\n\tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed to install '$archive' int <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4385	4490	
==>.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the current ve <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4385	4490	
==>.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Since the current ve <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	850	977	
==>s Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	850	977	
==>s Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has I <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2373	2461	
==>0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2373	2461	
==>0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5399	5547	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5592	5740	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::cap <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2663	2780	
==>'      ];
$config{'archive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$conf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2224	2328	
==>ata( $_[0], '$<params>' ) );
    return "$ident($list);\n";
}
sub node::rule_decl {
    my $name = get_st <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4465	4575	
==>e ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4465	4575	
==>e ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2376	2525	
==>an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_mes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2376	2525	
==>an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_mes <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1047	1178	
==>preted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{instal <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1047	1178	
==>preted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{instal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33971	34068	
==>/x\&y/> means "match I<y> if I<x> can be matched
at the same location".  Therefore it would be rep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7747	7855	
==>icate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method au <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7747	7855	
==>icate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authorization") }

method au <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19308	19478	
==>bel
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39760	39930	
==>bel
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1599	1737	
==>w;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1566	1704	
==>w;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            c <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14693	14808	
==>s} = pop @{ $self->{param_stack} };
}

sub prepare_scope {
    my $self = shift;
    my @params = @_;
    push @{ $s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23032	23131	
==>NE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEEN 
 ROPT_GPOS_SEEN 
 ROPT_IM <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4209	4359	
==>$@ and error( "Could not load available file: $@" ), return;
            $obj->available( \@avail );

        }
  
        return $obj;
    }
}

=head2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2812	2929	
==>u'd like to offer more, subclass

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2709	2822	
==>u'd like to offer more, subclass
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	114	221	
==>k also at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	109	210	
==>k also at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to matc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2923	3040	
==>hchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2923	3040	
==>hchunks[0] eq @basechunks[0] or last;
        shift(@pathchunks);
        shift(@basechunks);
    }

    $path = join( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2604	2736	
==>ies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2604	2736	
==>ies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15662	15779	
==>ngth of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19895	20012	
==>ngth of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2697	2876	
==>( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2697	2876	
==>( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1137	1248	
==>l $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1137	1248	
==>l $floodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $con <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	237	337	
==>so richtig?
 =end COMMENT
#!}\end{block}

Neu in Perl 6 ist, das vor und hinter den Zeilen mit dem
Gl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	368	481	
==>{
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	368	481	
==>{
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11684	11780	
==>erl's regex interprets the '\N' as a needlessly backslashed 'N'.  My
module parses them and handl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	184	279	
==>name abstract author version license
    distribution_type perl_version tests
};

my @tuple_keys <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5240	5342	
==>("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5240	5342	
==>("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decoder for pugs it is I<not <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3451	3582	
==>an.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3451	3582	
==>an.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_op <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23708	23791	
==>1, replace_at_n(N1,Replace,T,T1).
replace_at_n_if_undef(0,Replace,[],[Replace]) :- ! <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	253	378	
==>B::Repository::Set->new( [dirs => \@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	13053	13169	
==>imitive { =open(self) }

    method trans (Pair *@intable) is primitive is safe {
        # Motto: If in doubt use br <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1739	1838	
==>g utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1739	1838	
==>g utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERS <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2664	2783	
==>$rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2664	2783	
==>$rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	778	887	
==>.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( S <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	778	887	
==>.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( S <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8486	8591	
==>itrd_gz <= -M $terminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14760	14865	
==>expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14818	14923	
==>expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2092	2209	
==>le_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2873	2990	
==>le_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1178	1299	
==>self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1178	1299	
==>self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1649	1906	
==>BEGIN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           POST
          CATCH
        CONTROL
    ) ) {
        __PACKAGE_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25041	25138	
==>xample to have zero tuples.  It is also valid
for a Relation::Example to have zero attributes, tho <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1854	1955	
==>ot defined" if $x == 0;
     Pugs::Internals::log_base($x,$base);
 }

sub Pugs::Internals::log_base(Nu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6629	6728	
==>her by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6629	6728	
==>her by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and should r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6095	6207	
==>tually roundtrip parses this document successfully. However, more complex POD 
documents may not do as well. Erro <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6095	6207	
==>tually roundtrip parses this document successfully. However, more complex POD 
documents may not do as well. Erro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	162	287	
==>t {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _mangle_var {
    my <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27972	28080	
==>MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3747	3876	
==>=> $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3940	4069	
==>=> $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12645	12766	
==>!
    return if @avail == @prev;
    
    $self->available( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst->link_fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1094	1214	
==>--$ENUM, '%s matches null string many times';
use constant RPe_NESTED => --$ENUM, 'Nested quantifiers';
use constant RPe_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7729	7842	
==>an;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7729	7842	
==>an;
        undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4175	4295	
==>match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4392	4512	
==>match->{bool};
    if ($flags->{print_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22747	22863	
==>) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19168	19284	
==>) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOT <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12125	12235	
==>TAILCALL(&$c,$noop);
    };
  }
}
{
  package Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::P <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	856	964	
==>m);

	$out;
}

sub make_name {
	my $self = shift;
	my $node = shift;

	$self->{names}{$node} ||= '$node_' . + <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13330	13448	
==>ash{$key}                %hash.delete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1>{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1001	1117	
==>y($x)} = $x }

    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1001	1117	
==>y($x)} = $x }

    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_si <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1118	1259	
==>$2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1118	1259	
==>$2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $gramma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2907	3060	
==>lhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2907	3060	
==>lhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1313	1409	
==>ory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=he <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1313	1409	
==>ory, similar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=he <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31313	31438	
==>init {
    my $self = shift;
    $self->SUPER::init();
    $self->del_handler(qw<
      (?{   (??{   (?p{
    >);
  }

For tho <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11498	11589	
==>etaclass singleton method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls superclass fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11144	11239	
==>TP spec (RFC 2616) promise that joining multiple
values in this way will not change the semantic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11144	11239	
==>TP spec (RFC 2616) promise that joining multiple
values in this way will not change the semantic <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3117	3224	
==>. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_b <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3117	3224	
==>. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_b <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14535	14645	
==>lor light-blue/black black/light-gray
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2985	3140	
==>ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2985	3140	
==>ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14782	14881	
==>ic => sub { $as_hash_complain->("non_numeric") },
      scalar_numeric     => sub { $as_hash_complai <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5120	5263	
==>) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5120	5263	
==>) } 
            },
        # -- use the default generated closures
        # complement_next =>     sub ($x) {...},
        # complement_previo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	606	771	
==>[/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catf <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	606	771	
==>[/] || ( $dosish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catf <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6659	6766	
==>f text which seem to still be inside a list?

Basically the item body, much like this text is.

- how should <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6659	6766	
==>f text which seem to still be inside a list?

Basically the item body, much like this text is.

- how should <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2091	2193	
==>-pugs - an experimental Perl 6 implementation

=head1 SYNOPSIS

Command line:

    $ perl -Ilib lib/v6. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20112	20201	
==>ernals::string_as_number(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER::<$_> --> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2477	2573	
==>RIPTION

An object of this class represents a client's request.  It also contains extra
informati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2477	2573	
==>RIPTION

An object of this class represents a client's request.  It also contains extra
informati <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	316	432	
==>'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1844	1960	
==>'
        => q[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MY <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1486	1583	
==>::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1403	1494	
==>::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13966	14088	
==>rs' in the first of the four
        # languages that has a matching template available.
        print $translator.translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13966	14088	
==>rs' in the first of the four
        # languages that has a matching template available.
        print $translator.translat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	996	1165	
==>1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	996	1165	
==>1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

my method fusebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8854	8968	
==>rray: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8854	8968	
==>rray: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6501	6611	
==>kage Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match objects <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6283	6389	
==>kage Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match objects <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	377	488	
==>eviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	377	488	
==>eviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	5124	5372	
==>er from the parameter stack and binds it to a symbol.

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    Sym('$x'),
                ),
            ),
        ),
        Val(10),
    ), <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1651	1743	
==>lute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1651	1743	
==>lute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9127	9247	
==>ook_off() { /* aka "abandon regexps", aka "please segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9824	9939	
==>";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${namespace}any'}\n" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6403	6495	
==>ails_ok { $iBar->name } '... instance calling metaclass method fails';

is($iBar->foo, 'Foo-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14203	14312	
==>r program.  It is analagous to a simplified version of the
"Node" interface defined in the XML DOM spec; it ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14203	14312	
==>r program.  It is analagous to a simplified version of the
"Node" interface defined in the XML DOM spec; it ha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16777	16893	
==>n $other!) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some source att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20254	20370	
==>n $other!) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some source att <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1321	1473	
==>meters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1321	1473	
==>meters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1945	2129	
==>ir );
#         my $tmpsrc  = File::Spec->catdir( $tmpdir, $dirname );
# 
#         
#         ### copy over sources to a temp dir
#         JIB::Utils->_copy( file => $self->dir, to => <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	123	241	
==>e of a Tangram schema structure
our $schema =
    { fields =>
      { ref =>
        { schema => { class => "T2::Schema <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1614	1759	
==>Could not clean out '$builddir'" ), return;
#         }                
#         JIB::Utils->_mkdir( dir => $builddir )
#             or error( " <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5916	6026	
==>only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromati <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5916	6026	
==>only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<lt>chromati <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1125	1228	
==>type KeyExtractor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCrit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1445	1579	
==>AV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1445	1579	
==>AV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented', <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	455	577	
==>er

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print h <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	455	577	
==>er

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20170	20279	
==>he interface/behaviour is), this Relation data type is proposed to be
generally useful, and very basic, and wo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24722	24831	
==>he interface/behaviour is), this Relation data type is proposed to be
generally useful, and very basic, and wo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1793	1913	
==>XX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { r <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1793	1913	
==>XX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36660	36826	
==>eturns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$self:')
                  ->get_attr(symbol->new('%:at <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26729	26831	
==>l if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This method has a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31281	31383	
==>l if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This method has a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13614	13717	
==>an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

You should co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13614	13717	
==>an infinite loop if the formula cannot be satisfied within a 
reasonable range of values.

You should co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13838	13953	
==>ng.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13838	13953	
==>ng.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9913	10028	
==>this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.differen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9913	10028	
==>this doesn't work?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.differen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5447	5574	
==>E => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $fi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5953	6066	
==>E => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $fi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18982	19129	
==>syntax for fetching
        # an attribute symbolically
        $.($key) = $value if $.($key);
    }
}

(method BUILD ((opaque $self:) (hash %params <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6875	6990	
==>ction ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6875	6990	
==>ction ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $closure3;
    return s <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	881	996	
==>@t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+< <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	881	996	
==>@t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = @a >>+< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9239	9370	
==>properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10716	10847	
==>properly
        ### XXX no | dependencies, no versions
        ### defaults to not satisfied, if we got dependencies
        my $sa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26593	26695	
==>ocant Relation's header, in which case it returns the identity-one
Relation or the invocant Relation re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31145	31247	
==>ocant Relation's header, in which case it returns the identity-one
Relation or the invocant Relation re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24950	25049	
==>atically or dynamically with other components is making a
combined work based on Rosetta.  Thus, the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24950	25049	
==>atically or dynamically with other components is making a
combined work based on Rosetta.  Thus, the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1093	1225	
==>[1] }
    |   type signature_term
        { $_[0]->{out}= { type => $_[1], %{$_[2]} } }
    |   ':' signature_term
        { $_[0]->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	483	590	
==>y ($class, $klass, $attrs) = @_;
    ((blessed($klass) && $klass->isa('reference')) &&
     ($klass->fetch-> <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	986	1083	
==>everse @commits;
@developers = reverse @developers;

# Collect commits in days
# E.g. $commits_til <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10869	10970	
==>n this instance, the information about how many members
were actually new is discarded.

=head2 C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10869	10970	
==>n this instance, the information about how many members
were actually new is discarded.

=head2 C<$set <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	270	403	
==>nd to
# pass most of the tests the current backend does.


role rArray {}


class Array is List does rArray;

# signature from S29draf <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1063	1182	
==>k);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

1;

__END__

=head1 NAME 

re::override - O <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26672	26766	
==>care of building the
proper inheritance for the node; it uses %Regexp::Parser::loaded to keep
t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1250	1355	
==>match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1250	1355	
==>match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6219	6342	
==>rt(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the returned match, 

that m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6019	6136	
==>rt(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the returned match, 
that m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5453	5564	
==>itrd_gz,
  "initrd-img=s"   => \$initrd_img,
  "initrd-size=i"  => \$initrd_size,
  "initrd-mnt=s"   => \$initrd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2401	2521	
==>p::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # update: this is ok, because we ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2321	2438	
==>p::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # update: this is ok, because we ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10815	10931	
==>Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10815	10931	
==>Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6101	6186	
==>s>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6101	6186	
==>s>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<channels>{~normaliz <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9671	9783	
==>= @_;
    return $S->force_object(anyof_class => xdigit => $neg, $how);
  });

  $self->add_handler('atom' => sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1605	1720	
==>{
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1516	1613	
==>{
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4042	4177	
==>) != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # aga <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4042	4177	
==>) != 0) 
        || die "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # aga <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1565	1669	
==>le for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fgl <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1565	1669	
==>le for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fgl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9055	9168	
==>bers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_nex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9055	9168	
==>bers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_nex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4423	4543	
==>q '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4435	4555	
==>q '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6646	6758	
==>ill also use that name for the total report.

=cut

sub analyze_file {
    my($self, $file) = @_;

    unless( -e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11451	11554	
==>return/;
    return "#return-block#" . $code;
}
sub node::runtime_alternation {
    my $code = match::st <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14511	14622	
==>package Regexp::Parser::groupp;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen' <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3784	3881	
==>I0
    store_global "PGE::P6Rule", "$optable", optable
=cut

sub matches {
  my ( $regularExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10269	10378	
==>for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( .. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10269	10378	
==>for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CONSTRUCTORS

- `new( .. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1426	1537	
==>se_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Hand <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1426	1537	
==>se_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Hand <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6089	6227	
==>(!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6089	6227	
==>(!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1108	1218	
==>set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1108	1218	
==>set of all Nodes that this Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1180	1290	
==>$source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3041	3151	
==>$source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2736	2855	
==>T_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.p <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2736	2855	
==>T_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8477	8675	
==>e policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8941	9139	
==>e policy based
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	385	496	
==>s: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	385	496	
==>s: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.star <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26356	26453	
==>lf is copied on input and output, any
variable values which are references will be passed by refer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26356	26453	
==>lf is copied on input and output, any
variable values which are references will be passed by refer <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7415	7525	
==>red when a '=end' directive (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7415	7525	
==>red when a '=end' directive (which is preceeded by an '=begin' directive) 
is reached.

=item I<start_element ( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16126	16253	
==>n {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19603	19730	
==>n {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( $_.pai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	856	959	
==>P::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	856	959	
==>P::Headers.new();
    $!content = "";
}

method parse (Str $string) returns HTTP::Headers {
    my %head <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7556	7662	
==>order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7556	7662	
==>order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2788	2884	
==>elp' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dirs||()));


# Find design doc dir <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3261	3365	
==>response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\01 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3261	3365	
==>response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\01 <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	511	739	
==>%opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opt <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	511	739	
==>%opts{$0} = 1;
                    if $1.chars { unshift @args, "-$1" }
                } else {
                    if $1.chars {
                        %opts{$0} = ~$1;
                    } else {
                        %opt <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5692	5797	
==>_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5174	5279	
==>_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	426	565	
==>conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	426	565	
==>conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	433	608	
==>\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unq <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	433	608	
==>\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12199	12316	
==>if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4842	4959	
==>if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} ! <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3026	3121	
==>ference($self: Set $other) returns Set {
    $self.difference($other).union($other.difference($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3026	3121	
==>ference($self: Set $other) returns Set {
    $self.difference($other).union($other.difference($s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14736	14846	
==>1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Cre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14736	14846	
==>1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1, end => 2 )`

Cre <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8530	8926	
==>new(
                                        Sym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub nati <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3292	3404	
==>r "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmai <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3292	3404	
==>r "internal" use by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmai <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	90	183	
==>OM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	90	183	
==>OM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11121	11225	
==>ss: hash %params) returns opaque {
    $class.bless(undef, %params // hash());
}

(method new ((opaque $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19705	19884	
==>+;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->er <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16126	16305	
==>+;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->er <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3771	3892	
==>~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3771	3892	
==>~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12715	12870	
==>2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12715	12870	
==>2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4205	4386	
==>:' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4205	4386	
==>:' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8175	8324	
==>, 

        ruleop::optional( sub{ goto $alt } ),  

    );

    return $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7894	8035	
==>, 
        ruleop::optional( sub{ goto $alt } ),  
    );
    return $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return rule <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2311	2436	
==>c { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref can <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2311	2436	
==>c { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref can <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21321	21419	
==>quisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

I <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21321	21419	
==>quisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

I <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2340	2441	
==>successful work got me thinking about trying a prolog plugin.

Fyi,
Yaswi apparently requires swi prol <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5307	5454	
==>installed package"), return;
 
    LINKING: { 
        ### XXX config!
        my $my_bindir = File::Spec->catdir( 
                            $sel <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	175	286	
==>s Int $.day;
has Int $.hour;
has Int $.minute;
has $.second;

# do subs that get declared first "win" the MMD wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1936	2072	
==>tracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1858	1991	
==>tracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6371	6514	
==>tely stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no lead <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6371	6514	
==>tely stripping
                    # leading name components and leading dots.  When this
                    # results in a domain with no lead <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2570	2686	
==>map {
        "config_$_";
    } sort keys %$config;
    $template =~ s/#all_fields#/$all_fields/;

    my $all_defin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15770	15866	
==>C<Str> and returns a C<Str>, the returned C<Str>
will support the same levels as the input, unles <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7426	7551	
==>ch->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7426	7551	
==>ch->{capture} = $head;   # XXX -- array ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10234	10334	
==>);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10234	10334	
==>);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify( <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	612	739	
==>) = @_;
    # XXX: what to do in native win32?
    my $mx = $^O eq 'cygwin' ?
        sub { -x $_[0] || (-f _ && $_[0] =~ /\.(ex <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1138	1243	
==>@{$opts->{GHC}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    prin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14323	14425	
==>f pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14381	14483	
==>f pass()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	828	1008	
==>, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@cu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	828	1008	
==>, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@cu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1243	1358	
==>th _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connecti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1243	1358	
==>th _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connecti <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1414	1511	
==><ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<c <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1414	1511	
==><ALL> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28321	28419	
==>not exist at all
(for an 'anchor' node).

=item my $e = $obj->ender()

The arguments to object() to <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11591	11750	
==>doc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11591	11750	
==>doc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21764	21867	
==>ed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
fo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26316	26419	
==>ed by any ordinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
fo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6869	6969	
==>ntersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6869	6969	
==>ntersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $closure1 === $c <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5138	5304	
==>modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5138	5304	
==>modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5822	5909	
==>--------------------------------------------------------------------------
## sibling me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5822	5909	
==>--------------------------------------------------------------------------
## sibling me <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5594	5708	
==>_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5594	5708	
==>_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many lines
    # Leave __DA <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19822	19930	
==>ements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19822	19930	
==>ements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18556	18665	
==>dard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18556	18665	
==>dard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that t <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3990	4089	
==>fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\texttt
#{$file
#}
#\\end{blo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	306	415	
==>l::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => und <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	306	415	
==>l::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => und <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1390	1511	
==>tracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1390	1511	
==>tracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted } <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	170	282	
==>-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	170	282	
==>-[{}]>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3101	3410	
==>t {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('parag <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3101	3410	
==>t {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('parag <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	347	610	
==>kages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	347	610	
==>kages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3278	3381	
==>year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is jus <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3278	3381	
==>year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is jus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8874	9028	
==>the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8874	9028	
==>the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100) NOT NULL,
    #           s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10459	10586	
==>= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20162	20261	
==>x:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(10,$decstr) }
# e <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	370	468	
==>aspects of it in favor of 
a more practical closure based system, similar to what is described
in h <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6448	6717	
==>ew('&infix:<<=>'),
                    Sym->new('$n'),
                    Val->new(1),
                ),
                Val->new(
                    Thunk->new(
                        Sym->new('$n'),
                    ),
                ),
                Val->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3179	3326	
==>er($var,$ops);
          return &$step;
        }
      }
      $ws->($noop);
      my $tok = $tokens->($noop);
      if($tok) {
        $tok = pop( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14459	14647	
==>nstant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14738	14926	
==>nstant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           , <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1313	1442	
==>ad_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1313	1442	
==>ad_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_str <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	353	454	
==>%PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub q <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	353	454	
==>%PARAMS = () }
sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub q <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12771	12887	
==>ler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12771	12887	
==>ler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	12	100	
==>age Module::Install::WriteAll;

use Module::Install::Base;
@ISA = qw(Module::Install::Bas <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	111	198	
==>age Module::Install::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::Bas <==
2	/Users/nnunley/pugs/util/package-osx.pl	6362	6459	
==>verview::Reduce.3
        /usr/local/man/man3/Perl6::Overview::Reduce.3pm
        /usr/local/man/m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2226	2323	
==>reepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> comman <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2226	2323	
==>reepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C<p6bible> comman <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8677	8787	
==>::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19119	19229	
==>::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values. <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	376	498	
==>GIN { our $regcompp = undef };

sub import {
    my $class = shift;
    my $flavor = shift;
    $flavor =~ s/\W//g;

    di <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	666	843	
==>),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                S <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18600	18688	
==>1 is N - 1,
  rm_repeat_min(Re,N1,Fx,F1,Bx,B1,Ex,E1).

rm_repeat_max(_Re,0,F0,F0,B0,B0,E0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24177	24308	
==>tom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20598	20729	
==>tom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3622	4024	
==>$fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3622	4024	
==>$fh.print("<LI>");
                }
                when 'paragraph' {
                    $fh.print("<P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11117	11226	
==>en in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11117	11226	
==>en in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $source;
}

# Regexp fragments f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33333	33431	
==>pos

Family: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types: eol (C<$>), seol (C<$> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19393	19480	
==>e> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19393	19480	
==>e> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	608	723	
==>the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1092	1207	
==>the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	270	405	
==>ader>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	270	405	
==>ader>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start o <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3975	4118	
==>aths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3975	4118	
==>aths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ r <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5149	5244	
==>se64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSB <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5149	5244	
==>se64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSB <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6134	6227	
==>Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6134	6227	
==>Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8244	8420	
==>?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8244	8420	
==>?SELF;
    }
    
    method set_cookie_ok (*@_) { 1; }
    
    method save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0" <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7553	7651	
==>t = Algorithm::TokenBucket->new(@$data);

  my $exit;
  unless($bucket->conform(1)) {
    print "Ra <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52564	52648	
==>$::Class->set_attr(symbol->new('@:MRO') => list->new($::Class, $::Module, $::Package, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7076	7186	
==>elems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7076	7186	
==>elems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14973	15082	
==>ction is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15031	15140	
==>ction is_deeply.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4761	4888	
==>);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4819	4946	
==>);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6352	6473	
==>cted_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->simplify_type(shift);

		Scalar::Util::b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1864	1972	
==>l) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1864	1972	
==>l) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $self!h <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4694	4790	
==>0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4694	4790	
==>0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F] <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3807	3985	
==>+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3807	3985	
==>+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	649	766	
==>>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <tra <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	649	766	
==>>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <tra <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1266	1399	
==>ct {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::I <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1266	1399	
==>ct {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::I <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1768	1883	
==>ure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1768	1883	
==>ure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	892	1005	
==>rker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	892	1005	
==>rker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2301	2447	
==>return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2301	2447	
==>return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8414	8517	
==>does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8414	8517	
==>does this create a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name ca <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1292	1404	
==>sity ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1292	1404	
==>sity ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1494	1600	
==>$!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1494	1600	
==>$!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2706	2798	
==>gh a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2706	2798	
==>gh a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	477	591	
==>infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1335	1449	
==>infinite because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (St <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35817	35912	
==>gument and combines it with the
invocant relation into a new Relation, such that all common attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40367	40462	
==>gument and combines it with the
invocant relation into a new Relation, such that all common attr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14241	14342	
==>ified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec ca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14241	14342	
==>ified version of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec ca <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2133	2231	
==>d properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcf <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2133	2231	
==>d properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portions of Arcf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2209	2346	
==>r my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2209	2346	
==>r my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1822	1924	
==>renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TOD <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1822	1924	
==>renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TOD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3309	3401	
==>igns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parame <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3309	3401	
==>igns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parame <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	319	437	
==>t which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print(" <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	319	437	
==>t which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print(" <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	221	326	
==>side of
# the pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_all <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24743	24842	
==>d Standards

I made a few C-macro-style functions for easy access to the parser
object's most import <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4023	4105	
==>et>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/nod <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4023	4105	
==>et>, 
L<http://linux-ip.net/gl/tcng/node54.html>,
L<http://linux-ip.net/gl/tcng/nod <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7920	8023	
==>_command_line();

Returns the full command line that will be run to test I<$file>.

=cut

sub _command_l <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9942	10041	
==>d a few
other operations.

This class also provides methods for iterating through the set, and for q <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9942	10041	
==>d a few
other operations.

This class also provides methods for iterating through the set, and for q <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9124	9214	
==>arness::TAP.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@iinter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11557	11686	
==>turn { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11836	11965	
==>turn { rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7343	7552	
==>SD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7400	7609	
==>SD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases, 0, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4189	4306	
==>dex given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4189	4306	
==>dex given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9089	9178	
==>r::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2914	3003	
==>r::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4335	4471	
==>lf: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4335	4471	
==>lf: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23319	23424	
==>List :words {  # see clause 13
      <Identifier>
    | <FormalParameterList> <','> <Identifier>
}
rule Fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27727	27832	
==>erit from F<MyRx::__object__> first,
then from the F<Regexp::Parser::*> object of the same name, and final <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12865	12988	
==>gc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6340	6463	
==>gc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}] <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5646	5752	
==>child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5646	5752	
==>child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4630	4756	
==>,"]\n";
    }
    return @rules;
}

1;

__END__

=head1 NAME 

Pugs::Grammar::Category - Engine for Perl 6 Rule categories

=he <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13539	13666	
==>1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13539	13666	
==>1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $sourc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	124	245	
==>arnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ /^((?: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1362	1462	
==>$tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Bool::Fal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1362	1462	
==>$tmp;
}

method start_is_closed () { return Bool::True }
method start_is_open   () { return Bool::Fal <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	499	617	
==>t>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subnam <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	499	617	
==>t>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subnam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6249	6360	
==>:Rule 

  # low level operators

  # Domain-specific-language-like syntax, contained in a package

### rule must <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6036	6144	
==>:Rule 
  # low level operators
  # Domain-specific-language-like syntax, contained in a package
### rule must <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9759	9858	
==>unction and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "I <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9759	9858	
==>unction and a "predecessor" 
function.

Recurrence sets can extend from "negative Infinite" until "I <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5954	6071	
==>turn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = sel <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5954	6071	
==>turn self;
}

method push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = sel <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1925	2077	
==>e = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1925	2077	
==>e = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16329	16428	
==>s the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16329	16428	
==>s the media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3385	3479	
==>orted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3385	3479	
==>orted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4483	4607	
==>> { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4676	4800	
==>> { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4627	4738	
==>%*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4627	4738	
==>%*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	835	932	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	893	990	
==>Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5102	5210	
==>oding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5102	5210	
==>oding for Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19597	19715	
==>sh $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $k,$v { sprintf($fmt,$k,$v) }, $obj.kv <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2648	2755	
==>eSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTermi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17342	17440	
==>ty to mix many source filterish modules in a much more sane manner.
Module::Compile controls the co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17342	17440	
==>ty to mix many source filterish modules in a much more sane manner.
Module::Compile controls the co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3751	3886	
==>isnt;
    }
    else {
        $pass = $got ne $isnt;
    }

    unless( $pass ) {
        unshift(@mess, "# it should not be "._q($got) <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1975	2062	
==>nstruct  { <construct_but_not_alias>|<alias> }
rule construct_but_not_alias { <subrule>| <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8631	8737	
==>Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8631	8737	
==>Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	163	275	
==>il;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	163	275	
==>il;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18349	18447	
==>ers, easy messages are
better.

I have found that when it comes to getting the most accurate progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18349	18447	
==>ers, easy messages are
better.

I have found that when it comes to getting the most accurate progra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	196	308	
==>ntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	196	308	
==>ntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4764	4879	
==>{
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4764	4879	
==>{
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	675	785	
==>{}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	675	785	
==>{}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ container_var => $param->{var <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	304	413	
==>mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALL <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	304	413	
==>mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALL <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2294	2401	
==>elems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2294	2401	
==>elems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1559	1723	
==>chVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return undef u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16536	16672	
==>'open',
      nparen => $nparen,
      data => \@data,
      raw => '(',
      down => 1,
    }, $class;
    $self->{rx}{captures}[$npare <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6432	6531	
==>fh);
    return $self->_analyze_iterator($name, $it);
}

=head2 C<analyze_file>

  my %results = $st <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	44	149	
==>::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	44	149	
==>::Node;

has $.name;

has %.attr;

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1001	1107	
==>ferential things



sub ruleop::alternation {

    # alternation is first match (not longest).  though we n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	962	1065	
==>ferential things

sub ruleop::alternation {
    # alternation is first match (not longest).  though we n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15764	15862	
==>he language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15764	15862	
==>he language interface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5904	6007	
==>e is returned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTTP::He <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5904	6007	
==>e is returned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTTP::He <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4689	4810	
==>heckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

# -----------------------------------------------------

my $head = 'head.p6 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3434	3551	
==>$set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3434	3551	
==>$set ) {
    my $universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	770	913	
==>'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	739	877	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1	109	
==>se v6-pugs;

grammar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1	109	
==>se v6-pugs;

grammar Pugs::Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18119	18264	
==>, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14540	14685	
==>, $lhs->visual, $rhs->visual);
        }
        else {
          $ret = $S->object(anyof_range => $lhs, $rhs);
        }
      }
    }

    retur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1220	1323	
==>is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1220	1323	
==>is export {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_ba <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4773	4899	
==>Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4609	4730	
==>Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32476	32569	
==>n alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37026	37119	
==>n alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1322	1431	
==>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1322	1431	
==>, except the meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	644	744	
==>a structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language



.. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	612	707	
==>a structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language

.. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4089	4188	
==>AD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4089	4188	
==>AD INTERFACE

=head2 bool

When used as a boolean, the match object returns whether the match has
su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8346	8564	
==>et keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b-> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8810	9028	
==>et keys!!!!!
                        die "No package satisfies '$k'\n" 
                    }

                    ### XXX should be policy based
                    my @sorted = 
                            sort { $b-> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	281	395	
==>ethod _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_blo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	281	395	
==>ethod _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_blo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	488	583	
==>r_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	488	583	
==>r_pkg)::devnull();
}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6115	6288	
==>ool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6115	6288	
==>ool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	76	229	
==>r::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	76	229	
==>r::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	534	703	
==>sh_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_store => sub {
                my $self = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	759	862	
==>t of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	759	862	
==>t of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8325	8422	
==>%users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8325	8422	
==>%users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/h <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3412	3527	
==>ime zones or leap
seconds.

All methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()` <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3412	3527	
==>ime zones or leap
seconds.

All methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()` <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7421	7537	
==>fine key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_name,
            $mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7421	7537	
==>fine key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_name,
            $mess <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5398	5651	
==>alue
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5398	5651	
==>alue
                        if ($val ~~ m:P5/\W/ && $version) {
                            $val ~~ s:P5:g/([\\\"])/\\$0/;
                            $val = qq("$val");
                        }
                        
                        # and fi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7198	7284	
==>----------------------------------------------------------------------------
## travers <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7198	7284	
==>----------------------------------------------------------------------------
## travers <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2178	2275	
==>ubclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2178	2275	
==>ubclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13971	14070	
==>lti-valued, then the
routine is called once for each value.  The field name passed to the
callback r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13971	14070	
==>lti-valued, then the
routine is called once for each value.  The field name passed to the
callback r <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9558	9720	
==>om cygwin-land.
                # Keep it.

                $ghc_exe = $ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4989	5091	
==>ePosition, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15330	15437	
==>lue to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the header value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15330	15437	
==>lue to system
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the header value <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6826	6929	
==>waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile($file) or die "can't parse chunk ($f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	509	611	
==>no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1232	1334	
==>no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5986	6079	
==>ay: --> List) { seems a preferable phrasing, it doesnt parse.
multi method Array::as_seq (@arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	710	829	
==>compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::R <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13962	14066	
==>h ; MatchTest *@keytests --> Int|List )
 
Iterates the elements of C<%hash> in no apparent order, but the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9527	9632	
==>ticular order.  The
field names are cases insensitive.

Instances of this class are usually created as mem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9527	9632	
==>ticular order.  The
field names are cases insensitive.

Instances of this class are usually created as mem <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1362	1474	
==>t {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object represen <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1362	1474	
==>t {
    # TODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object represen <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	944	1033	
==>tt>perl gen.pl</tt> in <tt>pugs/docs/feather/~</tt>
and wait for the automatic update.
</p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4563	4708	
==>&&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4551	4696	
==>&&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) {
        "$_[1] do <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4081	4184	
==>can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4081	4184	
==>can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21762	21859	
==>r message in
one of their own resource files.  At some appropriate place, usually in the
main prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21762	21859	
==>r message in
one of their own resource files.  At some appropriate place, usually in the
main prog <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2502	2650	
==>);

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2502	2650	
==>);

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40642	40742	
==>RTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright ho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40642	40742	
==>RTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright ho <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18357	18446	
==>LogicalORExpression>
    | <LogicalORExpression> <'?'> <AssignmentExpression> <':'> <Assig <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12763	12876	
==>k_files( package => $inst_pkg );

=cut

### XXX no manpages yet
sub link_files {
    my $self = shift;
    my $con <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25647	25747	
==>alEscape>
    | <CharacterEscape>
    | <CharacterClassEscape>
}
rule CharacterEscape {  # see 15.10. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3844	3944	
==>ff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::cou <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3844	3944	
==>ff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::cou <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1253	1412	
==>ffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1253	1412	
==>ffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $text); 
            for (@lines) -> $line { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13377	13500	
==>inging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any tra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13377	13500	
==>inging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't seen any tra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3344	3439	
==>al of -CPerl5 code failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2184	2281	
==>s of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2184	2281	
==>s of HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20896	21014	
==>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17317	17435	
==>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4350	4472	
==>unlink $data;
        1 while unlink $control
    }

    ### XXX clean up the builddir?
    #system( qq[rm -rf $builddir] ) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	933	1039	
==>size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	933	1039	
==>size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21685	21806	
==>'(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18106	18227	
==>'(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	218	339	
==>ard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $esca <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	218	339	
==>ard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $esca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3045	3206	
==>bel}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3045	3206	
==>bel}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	480	590	
==>}
      if(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap);
        return $kludge_retval if d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1911	2018	
==>r = $O.property_attributes{$P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::tr <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	563	662	
==>($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	563	662	
==>($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6451	6564	
==>source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6463	6576	
==>source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile_rule {
    l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12904	13021	
==>ck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12904	13021	
==>ck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # P <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1133	1248	
==>DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1133	1248	
==>DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8233	8337	
==>his event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event c <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8233	8337	
==>his event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This event c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2931	3102	
==>t

sub extract_meta_object {
    my $self = shift;
    my $conf = $self->config;
    my $meta = $self->meta;

    ### if we didn't get a meta object, we'll fetch it from th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1156	1276	
==>code);
}

my $i;
sub generate_inline_c {
	my $self = shift;
	my $c_code = shift;

	my %table = (
		IV => "int",
		PV => " <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	288	386	
==>ply to
permit refactoring with confidence.

It uses Language::Prolog::Yaswi, which requires swi-pro <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	693	794	
==>named Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	693	794	
==>named Array::Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3406	3506	
==>able
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3590	3690	
==>able
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	691	799	
==>o!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	691	799	
==>o!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12642	12809	
==>else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how shou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12642	12809	
==>else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how shou <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11589	11679	
==>e `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11647	11737	
==>e `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-style <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2642	2758	
==>e script files
        for my $script ( @{ $href->{$pkg}->{bin} || [] } ) {
            1 while unlink "$Bindir/$scri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2269	2379	
==>.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: hello_world.pl
    use v6-pugs;
    "hel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	330	493	
==>'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	330	493	
==>'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26827	26934	
==>has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31379	31486	
==>has an alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation>

This method i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31440	31540	
==>le/Mapping as its sole read-only argument. The new
Relation has all of the same attributes as the ori <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35990	36090	
==>le/Mapping as its sole read-only argument. The new
Relation has all of the same attributes as the ori <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10181	10275	
==>\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10916	11010	
==>\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	566	690	
==>= shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	566	690	
==>= shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implements <a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19823	19927	
==>t the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19823	19927	
==>t the Rosetta DBMS
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27030	27135	
==>ext::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27030	27135	
==>ext::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16442	16535	
==>Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenB <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16442	16535	
==>Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenB <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13548	13673	
==>op, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13548	13673	
==>op, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24630	24767	
==>ax) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper%)";
        } else {
            $skip <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2349	2461	
==>nd ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2349	2461	
==>nd ()           returns Object { return $.set.end }
method start_is_open () returns Bool   { return $.set.start_i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10446	10552	
==>er = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10446	10552	
==>er = $set.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current()` <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20686	20802	
==>]+\Z/;    
    +$m;
  }
}



sub Pugs::Internals::Disabled::use ($module=$+_) is builtin is unsafe {
    #Pugs::Inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1288	1420	
==>ion => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    return $perl5;
}

if (@ARGV and !caller) {
    # We are the m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	325	416	
==>oken;
use Pugs::Compiler::Regex;
use base 'Pugs::Grammar::Base';

*pod = Pugs::Compiler::Tok <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2318	2445	
==>[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2318	2445	
==>[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::Functional $set ) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4656	4777	
==>erl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4796	4917	
==>erl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	233	340	
==>rt { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directorie <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	233	340	
==>rt { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $directorie <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22640	22739	
==>extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27192	27291	
==>extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4672	4813	
==>>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4865	5006	
==>>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1860	1970	
==>t
#defined_keyed_int

sub get_hash {
  my ( $self ) =  @_;
  return $self->hash();
}

sub get_array {
  my ( $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6439	6547	
==>pile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6451	6559	
==>pile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3797	3931	
==>le ) 
            };
            $@ and error( "Could not load registered alts file: $@" ), return;

            $obj->registered_alter <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9126	9232	
==>tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NODE VUndef () { "p6_undef()" }
NODE VBool ($value) { "p6_Bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13324	13441	
==>ading Config: $@";
	    $sep = ':';
	} else {
	    $sep = $Config{path_sep};
	}

	my @keys = grep {exists $ENV{$_}} qw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16984	17097	
==>?:o|rt)|ather)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6546	6721	
==>ec++;
            }
        }
    }
    $s .= ";\n" .
        "%%\n";
    #print $s;
    return $s;
}

sub emit_grammar_perl5 {
    my $self = shift;
    my $g = $s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6893	6991	
==>d at the beginning, before the 
ciphertext.  This will be prepended to the return value of the firs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6893	6991	
==>d at the beginning, before the 
ciphertext.  This will be prepended to the return value of the firs <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7346	7462	
==>t' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7346	7462	
==>t' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRING>;
            unpack_params($QUERY_STRING) if $QUERY_S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1211	1330	
==>" in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2376	2495	
==>" in character class") if $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7181	7289	
==>" in character class") if $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $S->object(e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2431	2527	
==>data( $_[0], '$<Pugs::Grammar::Rule::rule>' ));
    return "*{'$name'} = \n$program;\n";
}
sub no <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13313	13423	
==>r;

    my @bins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bind <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5455	5599	
==>= @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "Y <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5740	5884	
==>= @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "Y <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21007	21126	
==>head (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17428	17547	
==>head (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7668	7767	
==>much of this.)

A default implementation of this method is provided which returns nothing.

=item C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7668	7767	
==>much of this.)

A default implementation of this method is provided which returns nothing.

=item C< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2078	2188	
==>~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2078	2188	
==>~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	93	191	
==>ate that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approxi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	93	191	
==>ate that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This is approxi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18848	18950	
==>is method so you
can avoid this misspelling in your programs and still send the right
thing on the wire <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18848	18950	
==>is method so you
can avoid this misspelling in your programs and still send the right
thing on the wire <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	282	389	
==>rser;

# use lib '../Chap6';
use Stream;# :all;

# use base Exporter;
# @EXPORT_OK = qw(parser nothing End_o <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	39	159	
==>01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	39	159	
==>01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4864	4976	
==>n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unles <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4864	4976	
==>n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return "$_[1] constant( q!$char! )\n" unles <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5891	5970	
==>/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5891	5970	
==>/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9400	9502	
==>get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9400	9502	
==>get_template_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14148	14250	
==>lf->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub wri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7200	7293	
==>E
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1748	1896	
==>rn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1748	1896	
==>rn () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8808	8929	
==>le',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # becaus <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8808	8929	
==>le',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # becaus <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	555	680	
==>$x + 0.4)
		if $x > 0;

	$symmetrical ??
		-(int(abs($x) + 0.4)) !!
		-(int(abs($x) + 0.5))
}

# No symmetry flag
our Int mult <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	826	925	
==>ectives are nominally:
  1- Provide an environment in which p6 rules can be run against strings,
  s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8641	8763	
==>ord seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8641	8763	
==>ord seperator == "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2983	3085	
==>method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILSt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2983	3085	
==>method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILSt <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1797	1902	
==>ll go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1797	1902	
==>ll go when we can define own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2376	2485	
==>ar what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2376	2485	
==>ar what these mean for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	263	384	
==>thod finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DF <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	263	384	
==>thod finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA;

# An extreemly simple DF <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2498	2626	
==>?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2498	2626	
==>?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6556	6663	
==>rnation ( literal ( 'a' ), .... );

  }



Match objects (Pugs::Grammar::Match) contain:



### Match actual <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6337	6439	
==>rnation ( literal ( 'a' ), .... );
  }

Match objects (Pugs::Grammar::Match) contain:

### Match actual <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1558	1680	
==>nt_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1558	1680	
==>nt_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3374	3499	
==>ode<Package>).add_children(
                    Tree.new(:node<Module>).add_children(
                        Tree.new(:node<C <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4405	4500	
==>)`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4405	4500	
==>)`

Synonym for `Date.new('yesterday')`

= OBJECT METHODS

The following methods are available f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2378	2510	
==>urpy',
  'type' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  ' <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	626	772	
==>if ($tok eq '+') {
            push @stack, $y + $x;
        } elsif ($tok eq '-') {
            push @stack, $y - $x;
        } elsif ($tok eq '*' <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	818	923	
==>ethod duration( Str $iso8601 ) returns Duration::Gregorian is export {

    # FIXME - missing XXXX 
    $i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12007	12122	
==>the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12007	12122	
==>the last traffic from the server was seen, so we can
      # autoping the server if needed.
      $last_traffic = ti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14995	15095	
==>lan currently is to implement this as a mutually recursive multi-
sub which will be able to handle st <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15053	15153	
==>lan currently is to implement this as a mutually recursive multi-
sub which will be able to handle st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4410	4534	
==>f $r[-1] eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            " <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18478	18582	
==>stants.  The
default is no longer ' ' since that would be interpreted as a constant.

# sprintf # XXX - s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6865	6977	
==>l };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6865	6977	
==>l };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4307	4423	
==>ent ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set:: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4307	4423	
==>ent ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14444	14554	
==>AP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing need <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14502	14612	
==>AP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing need <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8147	8258	
==>on returns:



    # spec says it returns normal data, but this is a low-level op...

    undef - if match faile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7873	7981	
==>on returns:

    # spec says it returns normal data, but this is a low-level op...
    undef - if match faile <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11455	11604	
==>object(open => $S->{nparen});
  });

  # any character
  $self->add_handler('.' => sub {
    my ($S) = @_;
    my $family =
      &Rf & $S->FLAG_s ? ' <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2608	2716	
==>XX - not \S, eg :foo('a b'):i:4x 
# must be terminated by () [] :: as in :z()not :z[]not :z::not
rule metasyn <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	107	220	
==>on
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	107	220	
==>on
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3367	3471	
==>? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::procla <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3425	3529	
==>? $desc !! "The object is-a '$expected_type'";
    my $test := $ref.isa($expected_type);
    Test::procla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7294	7414	
==>on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module does <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7294	7414	
==>on a function call
        # death, assume module is damaged and say so; an undefined
        # ret val means module does <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3748	3858	
==>source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3965	4075	
==>source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the generated program
#
sub compile {
    #pr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6602	6710	
==>on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy intern <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6602	6710	
==>on a copy of the 
data, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy intern <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8528	8660	
==>block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8528	8660	
==>block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5220	5362	
==>my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6094	6230	
==>self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6094	6230	
==>self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_i <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5630	5728	
==>ull OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5630	5728	
==>ull OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	644	762	
==>$code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchm <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	644	762	
==>$code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2017	2112	
==>ject-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1941	2032	
==>ject-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	346	446	
==>nPerl5::X1::Prelude::initialize();
#    END { p6_apply(p6_var('&*END')); }
}
initialize();

1;
__END_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24568	24815	
==>t'
            ),             
            sub {
                my $e = shift;
                $e->get('?@superclasses')
                  ->is_nil
                  ->or(
                      block->new($e, sub {
                          $e->ge <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9703	9801	
==>/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE VList ($value) { "p6_List(".join(",",map{DOWN( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1651	1784	
==>}


 multi  Num::log (  Num  $x             ; Num :$base --> Num )
 {
     Math::Basic::log($x,$base);
 }
 multi Math::Basic::log ( Nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2086	2214	
==>ode,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2086	2214	
==>ode,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4256	4370	
==>LD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4256	4370	
==>LD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22083	22212	
==>t(C)).

isAscii(C)     :- 0 =< C, C =< 127.
isPrint(C)     :- (char_type(C,alnum);char_type(C,punct);C=32),!. % 32 = space
isSpace <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	335	449	
==>:Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use Data::Dumper;

$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	109	202	
==>Euro { @_[0] * 1.4656 }

# interpolierter Funktions-Aufruf
print "100£ sind @{[PoundToEuro(10 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1	111	
==>class Perldoc::DOM::Text is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1	111	
==>class Perldoc::DOM::Text is Perldoc::DOM::Node;

has Str $.content;

# this should really be an acccessor - all <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5440	5594	
==>..';
        rmdir $dir;
    }

    # Run ranlib.
    system($ar, s => $a_file);
}

sub build_exe {
    my $version     = shift;
    my $ghc         = shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3398	3525	
==>f ( ! defined $opt->{precedence} ) {
        push @{$self->{levels}}, [ $opt ];
        return;
    }
    die "there is no p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16420	16527	
==>y $m0 = $X::current_match;
    my $m1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15480	15581	
==>y $m0 = $X::current_match;
  my $m1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	893	982	
==>events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	893	982	
==>events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perldoc::DO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3798	3911	
==>dule;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3856	3969	
==>dule;", $todo, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8689	8815	
==>,
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rcei <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8689	8815	
==>,
    "otimes"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rcei <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10445	10561	
==>s export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %sub <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10445	10561	
==>s export
{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10357	10498	
==>ch];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10351	10492	
==>ch];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13516	13655	
==>5::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_final: ###\$perl5_final### \\n\"; \n" .
                #"    re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	383	543	
==>$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	383	543	
==>$e} }
    
    my $is_parsing = 0;
    my @for_or_begin;
    
    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9987	10124	
==>Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Comparat <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1201	1335	
==>Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Comparat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3372	3682	
==>le

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        V <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	301	413	
==><[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lex <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	301	413	
==><[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1577	1680	
==>though the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1577	1680	
==>though the interface is said to be procedural, it is invoked via two class 
methods.

=over 4

=item C<e <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5967	6053	
==>~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5967	6053	
==>~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
    } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20485	20602	
==>e of this is that randoms strings are usally left alone by
compilers. After all the compilers have finished, the diges <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20485	20602	
==>e of this is that randoms strings are usally left alone by
compilers. After all the compilers have finished, the diges <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2816	2925	
==>');
        if $Result1.isa(JSX::Value::Object) {
            my $Result3 = JSX::with_this($O) { $Result1.<[[G <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18207	18321	
==>, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>(" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18207	18321	
==>, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add_handler>(" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8993	9154	
==>HAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8993	9154	
==>HAR(100) NOT NULL,
    #           sex ENUM('M','F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9397	9512	
==>i_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Per <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9397	9512	
==>i_val;";
}

multi sub decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Per <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2092	2194	
==>reate a second grammar which actually runs, is efficient,
#     and has captures for easy use of the re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3379	3501	
==>f ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3379	3501	
==>f ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8749	8842	
==>:class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8749	8842	
==>:class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%ex <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12907	13012	
==>the recurrence.

Returns positive infinite if the recurrence is infinite.
Returns negative infinite if the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12907	13012	
==>the recurrence.

Returns positive infinite if the recurrence is infinite.
Returns negative infinite if the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	458	698	
==>\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	459	699	
==>\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23544	23641	
==>cessor method can be used to see if a Relation-doing object
can mutate.  Depending on the implemen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28096	28193	
==>cessor method can be used to see if a Relation-doing object
can mutate.  Depending on the implemen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8879	8998	
==>badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_st <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8937	9056	
==>badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = undef;
    $Test::testing_st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14066	14163	
==>ack routine has case as suggested by HTTP spec, and the headers
will be visited in the recommended <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14066	14163	
==>ack routine has case as suggested by HTTP spec, and the headers
will be visited in the recommended <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1007	1115	
==>ment object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1007	1115	
==>ment object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	809	947	
==>s an array that is an
                     index into the multidimensional arrays of the match
                     object, telling capture <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	809	947	
==>s an array that is an
                     index into the multidimensional arrays of the match
                     object, telling capture <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2758	2887	
==>IE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can con <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2758	2887	
==>IE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can con <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	587	769	
==>hods => { map { $_->name => $_->code }
                               $class->methods->members
                             },

                  # Perl 6 has no concept of associativ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21398	21493	
==>d easily port
to alternative relational database engines with minimal effort.

This might seem s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21398	21493	
==>d easily port
to alternative relational database engines with minimal effort.

This might seem s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13902	14024	
==>Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13960	14082	
==>Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can use this
function to do so.

- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2677	2821	
==>$sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2677	2821	
==>$sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1985	2092	
==>n $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4220	4327	
==>n $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3556	3661	
==>{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3556	3661	
==>{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1016	1130	
==>e accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1016	1130	
==>e accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1297	1420	
==>'~',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	66	174	
==><$Bin>;

# XXX - This is not at all portable.

my ($in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4756	4854	
==>::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4896	4994	
==>::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10718	10816	
==>e "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $args{pro <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	694	804	
==>.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	694	804	
==>.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method complement ($self: ) ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8643	8741	
==>t matchfail still be returning something?

maybe just overload bool to false ;)

(I mean, seriously <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8355	8451	
==>t matchfail still be returning something?
maybe just overload bool to false ;)
(I mean, seriously <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14878	14982	
==>ntics.

- `new( :density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14878	14982	
==>ntics.

- `new( :density($day_duration), start => $first_day, end => $last_day )`

Creates a span with "d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3419	3544	
==>elf.intersection( $span.complement );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kw <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3419	3544	
==>elf.intersection( $span.complement );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kw <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2544	2678	
==>arlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2544	2678	
==>arlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <siglet> \) ]?
}

# Defaults

rule defval { \= <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17612	17715	
==>ith a = int and b = str
my $pair = comb(
	fun => $half_pair,
	param => val(v => "foo", t => type::operat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6235	6348	
==>lf.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6235	6348	
==>lf.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13482	13681	
==>ure( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13761	13960	
==>ure( 'code', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1303	1437	
==>t

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmp <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1188	1291	
==>e\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.1415926535897932384626 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12962	13082	
==>ver

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's member Nodes as a
tree of primi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12962	13082	
==>ver

=item C<export_as_hash()>

This method returns a deep copy of all of this Document's member Nodes as a
tree of primi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2619	2809	
==>} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2619	2809	
==>} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	535	677	
==>eue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	535	677	
==>eue.push($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11725	11825	
==>ncode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11725	11825	
==>ncode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4565	4677	
==>users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4565	4677	
==>users>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nick <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11342	11431	
==>ve/zero/positive,
signaling the first arguement should be before/tied with/after the
secon <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1496	1587	
==>$.name }

type::operator::nary: layout($$) = { join(" ", $.name, layout($.param)) }
type::op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	832	923	
==>f Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Validator <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	832	923	
==>f Rosetta::Validator for English

=head1 VERSION

This document describes Rosetta::Validator <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	350	485	
==>map {
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(%$self);

        $_ = &$f($_) for values %$ne <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2512	2637	
==>>make_node_with_args(@args);
        push(@$var,$nont);
      };
      my $op = $Z::oop{$id}{'op_ahead'};
      if(defined $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6545	6665	
==>tor long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6545	6665	
==>tor long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit error message
    my $match = $gra <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8694	8793	
==>pan objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing R <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8694	8793	
==>pan objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing R <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	138	237	
==>ndings of Code objects to a particular Type.

=over

=item *

A method's Code property usually has a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22893	22989	
==>red to Other Solutions

One of the main distinctions of this approach over similar packages is th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22893	22989	
==>red to Other Solutions

One of the main distinctions of this approach over similar packages is th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	651	796	
==>);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	651	796	
==>);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $x is rw { $x = 0 }
}

method _tail() {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2001	2085	
==>------------------------------------------------------------------
## adding children <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2001	2085	
==>------------------------------------------------------------------
## adding children <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12759	12897	
==>p1}{array} ) {
            my $name = _emit( $n->{exp1} );
            $name =~ s/^\@/\$/;
            return $name . '[' . _emit( $n->{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16032	16138	
==>e
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl has native suppo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16032	16138	
==>e
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl has native suppo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8707	8799	
==>n of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHO <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8707	8799	
==>n of File::Spec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHO <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7163	7263	
==>_CODE {
    my(%c)=@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw(name kind params bod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10061	10167	
==>@span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10061	10167	
==>@span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @spa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2169	2340	
==>equire type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2169	2340	
==>equire type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3531	3627	
==>ithout any parameters, this returns an object representing the
current /local/ date.

- `new( epo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3531	3627	
==>ithout any parameters, this returns an object representing the
current /local/ date.

- `new( epo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9109	9236	
==>ag('i' =>  sub { 0x01 });

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	627	735	
==>ds, by A.3, A.4, and A.5.
#     Note it is always an optional match.
#   * Parts of the grammar, intended for <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10917	11011	
==>f this recurrence is a "universal set".
Otherwise the program will emit warnings during the exe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10917	11011	
==>f this recurrence is a "universal set".
Otherwise the program will emit warnings during the exe <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	314	418	
==>o get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	314	418	
==>o get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2193	2295	
==>.. etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2193	2295	
==>.. etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2264	2380	
==>splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - f <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2264	2380	
==>splice() offset past end of array\n";
#      $off = $size;
#   }

# Things that will be solved by the compiler:
# - f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6175	6291	
==>e ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6175	6291	
==>e ~~ m,message/,) {
        @!parts = HTTP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4698	4792	
==>!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4920	5014	
==>!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	559	682	
==>nning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	559	682	
==>nning_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0;
    }
}

method end_of_string <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11449	11600	
==>b {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n"
        unless $code <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13527	13627	
==>one.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13527	13627	
==>one.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we also unterminated <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4294	4398	
==>ll(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4294	4398	
==>ll(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14591	14726	
==>on.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close() <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14591	14726	
==>on.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close() <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2005	2129	
==>size($$) = { $$->isa("type::operator::pair") || level($$) }
#'EOG

sub stringify {
	my $dag = shift;

	my @free;

	my $tree = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	313	428	
==>'return whatever matches'



it returns (or "yields"):



    undef - match failed



or a hash containing:



    s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	299	406	
==>'return whatever matches'

it returns (or "yields"):

    undef - match failed

or a hash containing:

    s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3131	3244	
==>gow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from h <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3131	3244	
==>gow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** Please install GHC from h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32163	32269	
==>he
invocant Relation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36713	36819	
==>he
invocant Relation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2370	2476	
==>ethod is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2370	2476	
==>ethod is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $self: ) { &{$.cstringi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9240	9346	
==>mplementation is always anchored at ^

### because it was specialized for subrules

### - needs to be gener <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8936	9040	
==>mplementation is always anchored at ^
### because it was specialized for subrules
### - needs to be gener <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5665	5784	
==>ious => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5665	5784	
==>ious => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
} <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1097	1195	
==>nction     { <non_conjunction> \& <non_alternation>+? }
rule non_conjunction { <repetition> | <alia <==
2	/Users/nnunley/pugs/util/config_h.pl	525	643	
==>it /\s+/, $ghc_line;

open IN, "< $base/lib/Perl6/Pugs.pm" or die $!;
open OUT, "> $base/src/Pugs/pugs_config.h" or die <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2593	2706	
==>($self->{neg} ? 'n' : '') . $self->family;
  }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\W' : '\w <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2094	2219	
==>e) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2072	2197	
==>e) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $file != <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4254	4400	
==>-Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4254	4400	
==>-Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16002	16127	
==>d himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16002	16127	
==>d himself (some are listed in the
L<Rosetta::SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18199	18296	
==>e multiple DBMS
objects want to use the same external resources, such as a repository file
on disk <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18199	18296	
==>e multiple DBMS
objects want to use the same external resources, such as a repository file
on disk <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18211	18306	
==>cribes the rather complex algorithm that
Module::Compile uses.

First, the source module is prep <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18211	18306	
==>cribes the rather complex algorithm that
Module::Compile uses.

First, the source module is prep <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2271	2387	
==>$.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stri <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2271	2387	
==>$.universe;
}

method equal ($self: $set ) returns Bool {
    $self.closure_next === $set.closure_next
}

method stri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4777	4953	
==>ailable, @uninstalled );
    
    ### unisntall metadata
    system(qq[rm -rf $meta])                                    and die $?;

    print "\n\tPackage '$pkg' and associate <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12353	12478	
==>num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} },
      glob  => sub { 0+ ${$_[0]} },
      lvalue => sub { p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1458	1582	
==>er->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1458	1582	
==>er->( \$s, \$_[1], \$tree, \$tree, \$grammar, 0, \$s, \$_[2] )\n" .
        "    );\n" .
        "    return Pugs::Runtime::M <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8621	8711	
==>eSafe::Annotation->new(
			type => Blondie::TypeSafe::Type::Bottom->new,
			accepts_type => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3726	3847	
==>.
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3910	4031	
==>.
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5263	5377	
==>parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    und <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5263	5377	
==>parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    undefine($!content);
    und <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10772	10873	
==>y_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11051	11152	
==>y_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_ex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21110	21207	
==>taining text for users, and your program would use
associated keys internally.

It is strongly sug <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21110	21207	
==>taining text for users, and your program would use
associated keys internally.

It is strongly sug <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9162	9264	
==>file = basename($relative_file);
  my $links = 0;

  mkpath(dirname $output_path);
  
  my $test_result <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1399	1524	
==>$cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1975	2100	
==>$cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11089	11189	
==>on of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11089	11189	
==>on of the
"Document" interface defined in the XML DOM spec; it exists as a container
in which Node ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14622	14732	
==>od Practice" of ordering the header fields.  Long header
values are not folded.

The optional $eol parameter sp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14622	14732	
==>od Practice" of ordering the header fields.  Long header
values are not folded.

The optional $eol parameter sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3772	3995	
==>t-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3772	3995	
==>t-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33189	33296	
==>ponding Template modules will be searched in the order
they appear in this array until a match for that mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33189	33296	
==>ponding Template modules will be searched in the order
they appear in this array until a match for that mess <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13865	13968	
==>$original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13865	13968	
==>$original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1479	1579	
==>el - an old driver putter wrote, adapted to call a Match obj.
# Just  prove regexp_engine_demo.t   or <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3144	3254	
==>uffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3144	3254	
==>uffer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11266	11375	
==>ROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11266	11375	
==>ROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13427	13548	
==>e");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13427	13548	
==>e");
      $.last_autoping = time;
    }

    # So we haven't seen any traffic for at least $live_timeout seconds,
    # e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7551	7695	
==>ture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7539	7683	
==>ture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, matc <==
2	/Users/nnunley/pugs/util/config_h.pl	1556	1673	
==>compile your GHC with the
    GHCi option.

.
}

close OUT;

sub try_compile {
    my $code = shift;
    my $temp = "p <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4024	4141	
==>is probably a bug.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip comments and docs while preserving t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18925	19062	
==>($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15346	15483	
==>($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7436	7565	
==>ed
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7436	7565	
==>ed
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->pmc_parse_blocks($d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1836	1951	
==>0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	947	1060	
==>0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->ma <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9729	9841	
==>ot the right return value from another $iFoo singleton method');   

is($iFoo->test_iFoo_singleton_method(), 
 '$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8197	8304	
==>> ($rseq->values)[-1]->type,
			struct_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_param {
		my $s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6021	6128	
==>a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6021	6128	
==>a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurren <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	48	133	
==>::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Com <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15558	15670	
==>into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package B <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15558	15670	
==>into (most likely Perl 5) $compiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package B <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23872	23967	
==>sual way that Relation::Example indicates a failure is to throw an exception;
most often this is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	17	133	
==>::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub oper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	17	133	
==>::Expression;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub oper <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11450	11552	
==>.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11508	11610	
==>.

- `cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3479	3618	
==>urn $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3479	3618	
==>urn $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5970	6085	
==>print -d  $final_dir
            ? "\n\tInstalled '$archive' into '$final_dir'\n"
            : "\n\tFailed to insta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	0	101	
==>module Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "class <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	0	101	
==>module Net::IRC::OO-0.05;
# This is a take at a Perl 6 IRC library.
# This library provides the "class <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12618	12727	
==>ul on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12676	12785	
==>ul on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool` <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3691	3803	
==>event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./ad <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3691	3803	
==>event {
      %!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./ad <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	969	1072	
==>rom A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <name <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	969	1072	
==>rom A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <name <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23965	24058	
==>on object, whose Heading and
Body attributes are set respectively from the optional named para <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28517	28610	
==>on object, whose Heading and
Body attributes are set respectively from the optional named para <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10803	10954	
==>{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10803	10954	
==>{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10397	10502	
==>okies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } }) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10397	10502	
==>okies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } }) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1854	1964	
==>ol         => SUBDIR_OF_META   ];
$config{'_alternatives'}    = [ alternatives    => SUBDIR_OF_META   ];
$confi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	840	955	
==>d1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	840	955	
==>d1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM: <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	504	637	
==>p,$v);
        }
    }
}

sub CookiesHeader() {
    my $header = '';
    for(%Cookies.keys) {
        $header ~= "Set-Cookie: " ~ $_ ~ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21451	21593	
==>th);
      my $yml = "$path.yml";
      if -e $yml && prefix_M($yml) < prefix_M($path) {
      }
      else {
        if 1 {
          Pugs::In <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4160	4272	
==>=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
section, avai <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4160	4272	
==>=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
section, avai <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2181	2278	
==>elf!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_l <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2181	2278	
==>elf!set_height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_l <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5848	5965	
==>{ 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method curren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5848	5965	
==>{ 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_previous( $x );
}

method curren <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12961	13067	
==>re replaced. Unrecognized
entities are left alone.

If multiple strings are provided as argument they are e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12961	13067	
==>re replaced. Unrecognized
entities are left alone.

If multiple strings are provided as argument they are e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14927	15052	
==>ent lexical context has
declared the "working unicode level to be". Default is LChars.

[Q: Can't be LChars because we don't g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	508	615	
==>h $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	508	615	
==>h $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7616	7785	
==>, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7628	7797	
==>, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	394	511	
==>ammar::Perl6->parse( $src );
    #use YAML;
    #print Dump $match->();
    print Dumper $match->();
    print "ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7629	7722	
==>push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->acc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1454	1547	
==>push @terms, sub { Grammar::Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->acc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	366	486	
==>fess "env must be a closure::env";
    (ref($body) eq 'CODE')
        || confess "body must be a code ref";
    my $local <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16044	16148	
==>rm the first time they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16044	16148	
==>rm the first time they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<. <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	174	322	
==>hile $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	174	322	
==>hile $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4943	5102	
==>ift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4943	5102	
==>ift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4583	4700	
==>a how long it all took.

It returns true if everything was ok.  Otherwise it will C<die()> with
one of the messages in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1594	1692	
==>Test status:
# Currently at 92% pass. 3sec run on my machine.

# Sidebar: State of Regexp::Parser's <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1971	2102	
==>e.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2188	2319	
==>e.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Prelude <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	684	803	
==>rns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	684	803	
==>rns Str {
  if ( $description ) {
    $description;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8558	8671	
==>ting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8558	8671	
==>ting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32828	32921	
==>prefixed with F<Regexp::Parser::>, but that is omitted
here for brevity.  The headings are obj <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	123	210	
==>package Module::Install::Makefile::Version;
use Module::Install::Base; @ISA = qw(Module: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7812	7953	
==>y $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8005	8146	
==>y $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10583	10703	
==>: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10741	10861	
==>: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3579	3682	
==>0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3579	3682	
==>0.compare( $union ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    my $span0 = $se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17135	17237	
==>rovides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17135	17237	
==>rovides
the glue between your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14992	15163	
==>)
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15271	15442	
==>)
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	345	487	
==>ssoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2951	3064	
==>t::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() know <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2951	3064	
==>t::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() know <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20948	21061	
==>&Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17369	17482	
==>&Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3075	3201	
==>e</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $da <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3075	3201	
==>e</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $da <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1364	1464	
==>lose, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1364	1464	
==>lose, at least until we know better

  my ($host,$port,$path) = split_uri($url);

  my $req = _make_r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	44	149	
==>ode, since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	44	149	
==>ode, since it might contain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4186	4309	
==>]->{out}= { op1 => $_[2], exp1 => $_[3], 
            exp2 => { op1 => 'call', sub => $_[1], } } }

    | BAREWORD exp   %pr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10044	10134	
==>PIL::PIL1CPerl5::Util::FilterNodeDefs;
our($package_name,$method_name);
sub import {
    my <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13559	13681	
==>addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endcl <==
2	/Users/nnunley/pugs/util/version_h.pl	1831	1940	
==>vailable for new
  # filehandles again. If we opened a new file ($version_h) without turning
  # "io" warnings <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19420	19524	
==>ead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

R <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19420	19524	
==>ead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1179	1351	
==>ring ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1179	1351	
==>ring ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11297	11407	
==>on( $recurrence )`

Returns all elements both from this recurrence and from the given recurrence.

- `intersect <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11297	11407	
==>on( $recurrence )`

Returns all elements both from this recurrence and from the given recurrence.

- `intersect <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10757	10915	
==>, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10757	10915	
==>, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($ve <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19430	19536	
==>d2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a lis <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19430	19536	
==>d2 C<$bot.logged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a lis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2550	2646	
==>atchet> converts parsed :ratchet Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14145	14252	
==>ro_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17622	17729	
==>ro_tuples;
    my Relation @r_with_shared_attrs;
    my Relation @r_with_disjoint_attrs;
    while (my $r1 = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8949	9061	
==>"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sy <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8949	9061	
==>"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7408	7561	
==>l $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7408	7561	
==>l $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	892	1001	
==>tp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	769	864	
==>tp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20890	20997	
==>::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrb <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20890	20997	
==>::PMC plugin. All you need to do is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrb <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6175	6274	
==>s>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users ac <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6175	6274	
==>s>{~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users ac <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	919	1052	
==>arks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	919	1052	
==>arks;
    has $.pos;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	290	375	
==>le(q([\w|\d|\:]+))->code;
*rule_name = Pugs::Compiler::Rule->compile(q(\w+))->code;
*b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16746	16856	
==>en if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16746	16856	
==>en if the real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36863	37035	
==>h($e->get('$label'));                                 
            }
        )
    )
);

=pod

=cut


$::Class->send('add_attribute', (symbol->new('@:MRO')             => at <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12701	12845	
==>grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12980	13124	
==>grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	882	995	
==>en't subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </b <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	882	995	
==>en't subclassed
      HTTP::Server::Simple, which you'll need to do to make it
      useful.)</i>
      </p>
  </b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25351	25448	
==>ual (Relation $other!) returns Bool>

This method returns the complement of C<equal> with the same <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29903	30000	
==>ual (Relation $other!) returns Bool>

This method returns the complement of C<equal> with the same <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8781	8947	
==>n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check i <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	355	461	
==>nc::Module::Install::VERSION = *VERSION;

sub import {
    my $class = shift;
    my $self = $class->new(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4201	4297	
==>ot.

=head2 @{}

When used as an array reference, the match object returns positional
captures as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4201	4297	
==>ot.

=head2 @{}

When used as an array reference, the match object returns positional
captures as <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6510	6605	
==>plitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_direct <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6510	6605	
==>plitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_direct <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4401	4536	
==>ent_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4401	4536	
==>ent_type = $self.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part al <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1520	1624	
==>ough all tests first.  Collect links and format as HTML
    as we go.  Then get the design docs, and form <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6185	6294	
==>efficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6185	6294	
==>efficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2980	3086	
==>to a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2980	3086	
==>to a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CR <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3735	3850	
==>lue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3735	3850	
==>lue -> Expression -> LValue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::C <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13842	13973	
==>> -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13842	13973	
==>> -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full precision:
    
    $datetime_span = Span <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	79	186	
==>ge returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and do <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	79	186	
==>ge returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * tests and do <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2635	2770	
==>se;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2635	2770	
==>se;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7881	8080	
==>eld $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $array <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7881	8080	
==>eld $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method pairs ( $array <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17102	17199	
==>n bytes of the message content.

=item $h.content_language

The natural language(s) of the intende <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17102	17199	
==>n bytes of the message content.

=item $h.content_language

The natural language(s) of the intende <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3068	3175	
==>s{'}{\\'}g;

    # XXX - Pugs currently has issues under cygwin, and does not
    # recognise cygwin absolut <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10312	10435	
==>al = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] ruleop::constant( \"$name\" )\n";
}
sub no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24734	24828	
==>ple tuple must be distinct from the other tuples.  All Relation::Example
attributes may be indi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11458	11556	
==>they do not
interact with the outside environment at all.

A Document object has 2 main attributes: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11458	11556	
==>they do not
interact with the outside environment at all.

A Document object has 2 main attributes: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6185	6342	
==>$i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4687	4844	
==>$i);
            @array[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	750	846	
==>Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	750	846	
==>Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15435	15622	
==>\&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15714	15901	
==>\&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6392	6666	
==>code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6392	6666	
==>code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17930	18026	
==>es
are "machine readable"; any application receiving such a code can identify
it easily in its co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17930	18026	
==>es
are "machine readable"; any application receiving such a code can identify
it easily in its co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9641	9736	
==>dule_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9641	9736	
==>dule_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMPL_T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	608	725	
==>re} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	814	931	
==>re} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8217	8341	
==>convience. Sometimes that depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8217	8341	
==>convience. Sometimes that depth 
# field is not always correct.
# If you create your tree in a top-down
# manner, this is usu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10668	10797	
==>&&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10668	10797	
==>&&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Spa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38893	39072	
==>:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method lab <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25418	25517	
==>re of a Relation::Example can look like a table, where each of its tuples is
a row, and each attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21648	21744	
==>operly.  Also added tests for the new captures() method.

I changed the field 'class' to 'family' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10299	10414	
==>e set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10299	10414	
==>e set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()` <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3068	3170	
==>ly to encipher data.
The encipherer closure can be called with a string, and should be called at the 
e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3068	3170	
==>ly to encipher data.
The encipherer closure can be called with a string, and should be called at the 
e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40681	40778	
==>e
details.

While it is by no means required, the copyright holders of
Locale::KeyedText would app <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40681	40778	
==>e
details.

While it is by no means required, the copyright holders of
Locale::KeyedText would app <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3171	3318	
==>gin comment

        {   
            ### dependencies satisfied?
            my $info = LoadFile( 
                File::Spec->catdir( $meta_dir, $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3940	4057	
==>'Int',
  'posBeginColumn' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::No <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20440	20532	
==>use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true val <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20440	20532	
==>use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true val <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2016	2112	
==>≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=hea <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2016	2112	
==>≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=hea <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2542	2632	
==>e->addToken("infix::=", ">postfix:*", "right", "PGE::Exp::Alias");
    $optable->addToken(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21490	21610	
==>'(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17911	18031	
==>'(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	348	459	
==>and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	348	459	
==>and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	974	1067	
==>ad1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	974	1067	
==>ad1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12967	13059	
==>ext version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12967	13059	
==>ext version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Message <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	571	714	
==>rch {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	571	714	
==>rch {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	344	442	
==>gled with the rest of
# the p5 implementation.  So while limited superficial success proved
# strai <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4135	4228	
==>:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4135	4228	
==>:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4833	4993	
==>cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4833	4993	
==>cmp != 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     st <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13910	14028	
==>SO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Fla <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13910	14028	
==>SO

    Span
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Fla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2948	3074	
==>d"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3797	3923	
==>d"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3516	3694	
==>) ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3763	3941	
==>) ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3075	3184	
==>art>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3075	3184	
==>art>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $start_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4587	4695	
==>($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4587	4695	
==>($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4146	4244	
==>)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4146	4244	
==>)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4376	4480	
==>nt($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4376	4480	
==>nt($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17491	17591	
==>ose of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17491	17591	
==>ose of
L<Rosetta::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28963	29210	
==>)
                            );                          
                      })
                  );
                return $e->get('$self:')->get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=pod

method dispat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3917	4062	
==>{
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4110	4255	
==>{
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23556	23662	
==>object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19977	20083	
==>object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	219	375	
==>{
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	219	375	
==>{
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1761	1878	
==>frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1761	1878	
==>frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4498	4632	
==>ound the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4498	4632	
==>ound the match, we increment the inner multidex index.
                my $matchy = $match.match;
                my $multidex = [ *$ma <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	271	403	
==>ng is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, S <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	271	403	
==>ng is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, S <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	108	249	
==>sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless /\S/;
        /^- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1034	1128	
==>ion>:=(<term1>)<?p6ws>?\)
	<?p6ws>?$<then>:=(<block>)
	{ return { condition => $() } }
RULE
*{' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9592	9722	
==>discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9592	9722	
==>discard   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2026	2145	
==>@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2026	2145	
==>@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    return $dir ~ $file;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2179	2291	
==>heck $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2179	2291	
==>heck $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23673	23791	
==>ng. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28892	28989	
==>ng. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7658	7744	
==>nt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7716	7802	
==>nt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	535	645	
==>key}{single_quoted};
        my $name     = $_[0]{pair}{value}{single_quoted};
        $category =~ s/^(\w)/uc( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3033	3123	
==>_;
    (exists $options{params} && blessed($options{params}) && $options{params}->isa('clos <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13198	13309	
==>d yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13256	13367	
==>d yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we provide the `:todo(1) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	999	1240	
==>Relation::AttrName}
    of Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

rol <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10046	10150	
==>ss $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10046	10150	
==>ss $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3274	3382	
==>$^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested featu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3458	3566	
==>$^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested featu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3091	3215	
==>lex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3091	3215	
==>lex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ', <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10548	10672	
==>value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10706	10830	
==>value = "sub { die 'not implemented: $name' }\n";
    $value = eval $name if $name =~ /^\$/;
    $value = join('', eval $name <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2264	2448	
==>lf->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $self = shift;
                my $idx = shift;
                exists $self->hash_fetch-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17004	17111	
==>)`

Return a string representation of the span.

- `compare( $span )`

Compares the spans numerically. Retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17004	17111	
==>)`

Return a string representation of the span.

- `compare( $span )`

Compares the spans numerically. Retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1968	2142	
==>} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2028	2202	
==>} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ / <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16444	16537	
==>gorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBuc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16444	16537	
==>gorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBuc <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4473	4572	
==>ace to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4473	4572	
==>ace to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13873	13977	
==>with two parameters; the name of the field and a single
value (a string).  If a header field is multi-val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13873	13977	
==>with two parameters; the name of the field and a single
value (a string).  If a header field is multi-val <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1654	1755	
==>e.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1654	1755	
==>e.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2820	2913	
==>ation> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2820	2913	
==>ation> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13015	13119	
==>ecurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13015	13119	
==>ecurrence is an empty set.

- `stringify()`

Return a string representation of the set.

For most recurre <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2186	2354	
==>d dependencies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3551	3707	
==>d dependencies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3963	4062	
==>n' ,'Int',
  'posEndLine'     ,'Int',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesIn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32189	32284	
==>he flags specifically turned on for this object (for flag assertions
and C<(?:...)>).

=item raw <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6672	6839	
==>egal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6729	6896	
==>egal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2941	3055	
==>ON;
    my %values  = %{ $self->{'values'} };

    delete $values{sign};
    if ( my $perl_version = delete $values <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	649	761	
==>$start = time;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/tru <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	983	1136	
==>ame($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => 'Nmake.exe',
        remove      => 1,
    ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	852	970	
==>ame($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => 'Nmake.exe',
		remove    => 1,
	) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19053	19143	
==>>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp of <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19053	19143	
==>>, C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp of <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14583	14688	
==>ode support for those needs. The
following is a list of future features planned for this module.

- better <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14641	14746	
==>ode support for those needs. The
following is a list of future features planned for this module.

- better <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10110	10224	
==>text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10110	10224	
==>text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6186	6286	
==>y not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving about <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6186	6286	
==>y not do as well. Error reporting is still pretty minimal and the 
parser is not very forgiving about <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	325	429	
==>$.type;  # for slurpy/item types

# On the other hand, we could actually make it a real junctive type.

t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9570	9670	
==>*100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NODE VStr ($ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9119	9307	
==>),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12596	12784	
==>),
    );
}

&minus  ::= &difference;
&except ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3904	4002	
==>le object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4088	4186	
==>le object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Sp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18690	18796	
==>analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze(pad)
    unless_null exp0, exp1null
    .return ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16922	17012	
==>,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re),F0,F0, <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	307	435	
==>export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_lis <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	307	435	
==>export {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_lis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12784	12886	
==>es of the fields removed.  In scalar
context the number of fields removed is returned.

Note that if yo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12784	12886	
==>es of the fields removed.  In scalar
context the number of fields removed is returned.

Note that if yo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15006	15156	
==>} else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15006	15156	
==>} else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    quit  => -> Str $re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	451	577	
==>ctrl/$struct->{package}/$Fileslist" or die $!;
    while ( <$fh> ) {
        chomp;
        s/^$Root/\$Root/;
        print "\t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1747	1854	
==>rn Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   invocant => $invocant,
	   named <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10974	11078	
==>ds) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11032	11136	
==>ds) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11078	11205	
==>de_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { undef },
      numeric     => sub { $_[0] ? 1 : unde <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1023	1113	
==>", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w", "term:", "n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	389	507	
==>';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	595	713	
==>';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22710	22856	
==>$dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23212	23358	
==>$dir,
      data => \@data,
      down => 1,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub dir {
    my $self = shift;
    $self- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5613	5748	
==>6),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5613	5748	
==>6),
    "Omega"    => chr(937),
    "alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => ch <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8973	9077	
==>ftware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8973	9077	
==>ftware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

class C <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4720	4816	
==>*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4720	4816	
==>*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	848	947	
==>des information about the server your CGI is running on. It also 
attempts to provide some useful de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	848	947	
==>des information about the server your CGI is running on. It also 
attempts to provide some useful de <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13248	13350	
==>-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13248	13350	
==>-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2004	2105	
==>}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2004	2105	
==>}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1521	1627	
==>ix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators! <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1521	1627	
==>ix:«>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1196	1346	
==>Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1196	1346	
==>Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'U <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15450	15635	
==>join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18927	19112	
==>join ::= &join;

###########################################################################

my method _union (Relation $other!) returns Relation {
    return Relation.new(
        head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10172	10285	
==>hen->{data};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and @{ $st->[-1] } and $st->[- <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8455	8555	
==>ree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find tha <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8455	8555	
==>ree and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find tha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4247	4340	
==>.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4247	4340	
==>.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Roset <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	655	762	
==>, $pkg);
  while (my ($curr) = caller $level++) {
    $pkg = $curr, last if $prev and $prev eq "base" and $c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9666	9779	
==>t = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9666	9779	
==>t = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues with <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4200	4375	
==>use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4200	4375	
==>use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1274	1430	
==>(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1274	1430	
==>(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param>[0]){
        return $<Expr>() . " " . $<param>[0];
      }el <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2784	2888	
==>rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method u <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2784	2888	
==>rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ ")");
}


method u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	890	1048	
==>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	890	1048	
==>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*ArrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13104	13259	
==>th $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13104	13259	
==>th $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8546	8654	
==>ers{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8546	8654	
==>ers{$oldnick}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<use <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14875	15014	
==>o 59
    has Int  $.sec;     # 0 to 61 (up to two leap seconds)
    has Int  $.picosec;
    has Int  $.wday;    # 1 to 7, Sunday == 1
    ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36157	36269	
==>ldren:

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here's a sample executio <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	814	926	
==>$self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	715	827	
==>$self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2869	2968	
==>urn $S->force_object(anyof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	268	385	
==>do {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "You must have an arg l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1351	1456	
==>V;
typedef FILE * GV;
typedef char * PV;

int prel_printf (GV f, const PV format, const PV c) {
	return fp <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16600	16891	
==>,
                                          name  => $heading_re);
                
                unless ($h) {
                    push @unresolved, { target   => $target, 
                                        heading  => $heading,
                                        relative => $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1250	1378	
==>gs::Grammar::Rule::$name'} = \n" .
        "sub {\n" . 
        "    my \$grammar = shift;\n" .
        #"    warn 'rule argument <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30313	30408	
==>eturns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble those o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34865	34960	
==>eturns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble those o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14089	14237	
==>eturn;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14083	14231	
==>eturn;
        }
        return
	    "$_[1] do { my \$match =\n" .
	    call_subrule( $cmd, $_[1] . "          " ) . ";\n" .
	    "$_[1]      my \$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5491	5611	
==>beled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5316	5432	
==>beled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4079	4194	
==>n "", map($_->visual, @{ $self->{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	190	302	
==>g (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { ... }

# mmm, curry!
&log10<> := &lo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7092	7258	
==>{ return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7092	7258	
==>{ return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1204	1323	
==>ue.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1204	1323	
==>ue.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4260	4355	
==>n; see the cipher module's documentation for 
details.  The C<mode> value indicates the operatio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4260	4355	
==>n; see the cipher module's documentation for 
details.  The C<mode> value indicates the operatio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6399	6496	
==>rnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__"/ge;
	$sym =~ s/\s+/_/g;

	"sy <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1822	1983	
==>SS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1822	1983	
==>SS',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Local <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3386	3483	
==>XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3386	3483	
==>XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24779	24880	
==>a distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Frank <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24779	24880	
==>a distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Frank <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5628	5716	
==>delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5628	5716	
==>delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25261	25396	
==>t(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::te <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25540	25675	
==>t(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5184	5283	
==>debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5184	5283	
==>debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5141	5319	
==>ifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5141	5319	
==>ifier_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4578	4676	
==>)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4578	4676	
==>)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\d <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4488	4611	
==>EMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	159	261	
==>ass, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27076	27178	
==>=> 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27076	27178	
==>=> 'FOO_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9685	9786	
==>sponse> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9685	9786	
==>sponse> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = H <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1518	1679	
==>close(FF);
}

sub CheckOne {
   my ($scr, $label, $data, $exp) = @_;
   BuildFile($intmp, $data);
   my $cmd = "pugs $scr $intmp";
   print "$label: running: '$cm <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1918	2043	
==>t   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroot";
my $iso          = "cd.iso";

sub usage { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3389	3570	
==>ine ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3389	3570	
==>ine ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_line = $fh. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9900	9995	
==>h
are referred to as "immediate" and "deferred".  The immediate validations
are performed at the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9900	9995	
==>h
are referred to as "immediate" and "deferred".  The immediate validations
are performed at the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7020	7127	
==>$cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($S, $cc <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5568	5736	
==>t,
  "cdroot=s"       => \$cdroot,
  "iso=s"          => \$iso,
  "terminfo=s"     => \$terminfo,
  help             => \&usage,
) or usage();
check_for_evil_chars($init <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17473	17591	
==>grammar
    $P0 .= "\" ]\n\n"
    code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16929	17052	
==>shift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16929	17052	
==>shift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3902	4000	
==>ftware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3902	4000	
==>ftware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6449	6588	
==>fix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6449	6588	
==>fix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	201	316	
==>ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	201	316	
==>ua);
# How do we get these ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4876	4988	
==>emove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, itera <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4876	4988	
==>emove ($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, itera <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7401	7512	
==>raversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7401	7512	
==>raversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.post <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8440	8558	
==>= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8440	8558	
==>= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4909	5034	
==>6($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4909	5034	
==>6($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $encoded = $t <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5909	6008	
==>al use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chrom <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5909	6008	
==>al use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chrom <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	116	324	
==>p::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	117	325	
==>p::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20651	20764	
==>)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY))))
     (while ($method is_not_nil) 
        ($met <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2512	2611	
==>ion of the node types

=head1 EXPORTS

For each node type a function named for its class (without th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6842	6965	
==>_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6842	6965	
==>_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13745	13882	
==>ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => ascii => $neg, \$how);
  });

  # cntrl POSIX cla <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	561	654	
==>{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} = <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	74	172	
==>Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_fi <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	74	172	
==>Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_fi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9387	9585	
==>esults{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $results{todo},
                    ml          => $ml,
                   );

        $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	449	647	
==>_;
    
    my $meta; my $inst;
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        ins <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	346	454	
==>lass FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DF <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	346	454	
==>lass FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DF <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10444	10549	
==>input has been set, and could potentially
never be performed at all.  They validate everything except
well <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10444	10549	
==>input has been set, and could potentially
never be performed at all.  They validate everything except
well <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2250	2348	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2250	2348	
==>ey => $msg_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1621	1766	
==>ase ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1621	1766	
==>ase ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2961	3058	
==>the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2961	3058	
==>the client, if available.

=item C<$r.remote_addr>

The IP address of the client, if available.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1048	1160	
==>hing and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1048	1160	
==>hing and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := (.*) \n?//) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6051	6153	
==>assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5842	5942	
==>assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	249	517	
==>rogram;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab concat(\n" . 
                            ( join '', @s ) . 
                            "$tab ),\n";
            }
            #pri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3760	3851	
==>e'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6ws> <ident> <?p6ws>? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	83	198	
==>entation of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	81	190	
==>entation of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11086	11254	
==>g_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11086	11254	
==>g_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	987	1103	
==>urn
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our result <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	987	1103	
==>urn
        return unless $func($current_tree, @path[0]);
        # if we do match, then store the tree in our result <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21371	21463	
==>define float_utf8       substrs->data[1].utf8_substr
 #define float_min_offset substrs->data[ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9954	10059	
==>- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets num <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9954	10059	
==>- `stringify()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets num <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14831	14963	
==>x =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14825	14957	
==>x =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd eq 'cut' ) {
            wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1445	1551	
==>e>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Bas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1445	1551	
==>e>)
    { return { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Bas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8975	9084	
==>ire'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8975	9084	
==>ire'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF!_d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10672	10805	
==>$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10666	10799	
==>$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4026	4132	
==>res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4026	4132	
==>res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9518	9709	
==>>new('&say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4679	4777	
==>);
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = emit(get_data($_[0], '$<variabl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9290	9387	
==>n $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semim <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12767	12864	
==>n $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semim <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2818	2921	
==>}
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2818	2921	
==>}
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Pe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8094	8231	
==>.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8094	8231	
==>.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7184	7285	
==>vent is fired after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<star <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7184	7285	
==>vent is fired after the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<star <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	794	914	
==>ch->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1000	1120	
==>ch->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	102	233	
==>ce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3	# (1,2,3).prefix:<[+]>()
#=postfix
$i++		# $i.postfix:<++>()

# Fakultä <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21214	21351	
==>$self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17635	17772	
==>$self->add_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4291	4543	
==>oes not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4291	4543	
==>oes not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2502	2631	
==>01", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2502	2631	
==>01", -> $event {
      $.inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6790	6899	
==>delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6790	6899	
==>delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody was kicked <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	747	858	
==>}
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	835	946	
==>}
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7832	7955	
==>, '$<perl5>' );
}
sub node::immediate_statement_rule {
    return emit($_[0]);
}
sub node::macro {
    
            #print D <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1013	1110	
==>is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These method <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1013	1110	
==>is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16792	16890	
==>e 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16792	16890	
==>e 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header fiel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3068	3173	
==>= $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. lik <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3068	3173	
==>= $content;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. lik <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41246	41339	
==>e files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41246	41339	
==>e files.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17932	18063	
==>ributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17932	18063	
==>ributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7681	7831	
==>also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	982	1132	
==>also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6083	6222	
==>eports look
          # good even on 640x480
          $str;
        },
      ],
      duration      => sprintf("%.02f", Time::Seconds->new( <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4269	4386	
==><code> \)\> }
rule code { [ <-[\{\}]> | \{ <code> <'}'> ]* }
rule metasyntactic_var      { \<(!?)<[\$\@\%]> <-[\>]>+ \ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1593	1692	
==>ere's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1593	1692	
==>ere's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the ti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3788	3954	
==>ubstr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3928	4094	
==>ubstr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{fro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14887	14987	
==>ocument - This stores a reference to the Document that
this Node and all of its relative Nodes live i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14887	14987	
==>ocument - This stores a reference to the Document that
this Node and all of its relative Nodes live i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	796	901	
==>piler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: St <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	796	901	
==>piler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: St <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	575	675	
==>s Tree { 
    return $!parent;
}

## ---------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	575	675	
==>s Tree { 
    return $!parent;
}

## ---------------------------------------------------------------- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12299	12393	
==><span title="<tmpl_var name=failed> failed"><tmpl_var name=failed></span>,</td>
	      <td clas <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6123	6214	
==>ourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementatio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6123	6214	
==>ourself; in particular, L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5562	5678	
==>object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5562	5678	
==>object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2505	2620	
==>rint FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compila <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2722	2837	
==>rint FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compila <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	588	838	
==>version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	588	838	
==>version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model:: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7942	8042	
==>tem')>

This event is fired when an '=item' directive is reached, the next event fired will be
any te <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7942	8042	
==>tem')>

This event is fired when an '=item' directive is reached, the next event fired will be
any te <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1716	1813	
==>rst_size)

The constructor takes as parameters at least C<rate of information> in
items per second <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1716	1813	
==>rst_size)

The constructor takes as parameters at least C<rate of information> in
items per second <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5327	5472	
==>$child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5327	5472	
==>$child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SELF,
            *%{$child_node},
        ) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7118	7480	
==>al->new(1),
                                ),
                            ),
                            App->new(
                                Sym->new('&fib'),
                                App->new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$n'),
                                    Val->ne <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	152	295	
==>re
our $schema =
    { fields =>
      { ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $_ => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38332	38427	
==>nal parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38332	38427	
==>nal parameter %msg_vars.  It returns a copy of $text modified
by interpolating the %msg_vars int <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6226	6372	
==>.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6226	6372	
==>.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1729	1903	
==>il')->new(
                '$.description' => $params{'$.description'},
                '$.passed'      =>                        0,
                '$.number'      =>      $p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1863	1959	
==>t an object)");

		Scalar::Util::blessed($node) ? $self->SUPER::reduce($node->struct_equiv) : $no <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29142	29247	
==>r $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a gener <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33694	33799	
==>r $attrs! ) returns Relation>

I<TODO.  This method has not yet been implemented.>

This method is a gener <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14402	14517	
==>eq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1882	1997	
==>eq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $seq->values)[-1];
}

sub leave_scope <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15330	15427	
==>lication written to it should behave identically no matter which
conforming "Engine" is in use.

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15330	15427	
==>lication written to it should behave identically no matter which
conforming "Engine" is in use.

R <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3456	3608	
==>om p5 code to p6 code

    -c            # Show conversion rules
    -e            # Convert one-liner
    -s            # List supported features
    -d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1323	1440	
==>current_node} eq $node) {
			$self->{current_node} = '';
		} else {
			return $self->{names}{$node};
		}
	}

	our $ind <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19559	19679	
==>_bonusmsg {
    my($tot) = @_;

    my $bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11134	11228	
==>:$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11192	11286	
==>:$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7033	7174	
==>t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    } <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5534	5675	
==>t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7762	7869	
==>l>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLite <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15995	16138	
==>p = [];
    $v = $ru->($rest);
  }
  FAIL_IF_FAILED($v);
  unshift(@{$m0->{$name}},$m1);# sigh,
  #  twice: once for inline code, once for the f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	294	426	
==>os;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	294	426	
==>os;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4482	4603	
==>ff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4482	4603	
==>ff;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22702	22806	
==>.  I don't know of any in
this current version, because I've tried to fix those I've already
found. Those <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4775	4873	
==>atch string).

=head2 0+

When used as a number, the match object returns the numified version
of t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4775	4873	
==>atch string).

=head2 0+

When used as a number, the match object returns the numified version
of t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16228	16323	
==>meter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16228	16323	
==>meter %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13056	13148	
==>containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13056	13148	
==>containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=h <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1681	1801	
==>self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2533	2653	
==>self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1276	1366	
==>65358979323846264338327950288419716939937510;
}

sub lcfirst (Str $str) returns Str is buil <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2016	2121	
==>$class->env_override($conf);
    $class->defaults($conf);
    return $conf;
}

sub env_override {
    my($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2618	2741	
==>es
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2606	2729	
==>es
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20614	20716	
==>nt a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20614	20716	
==>nt a header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6667	6816	
==>@spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6667	6816	
==>@spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if $.current != Inf;
            un <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	468	585	
==>d $v;
      }
      if(defined $v) {
        ($X::str,$X::pos,$X::cap)=($str,$pos,$cap);
        return $kludge_retval <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2056	2150	
==>subset num of num128 where { true }');

Helpers::macif(%?CONFIG{'num_width'} == 32, 'subset com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23705	23817	
==>the (?:...)
  # (?i)     <-- the 'i' affects the rest of this scope

  # so if we're a (?:...), copy-and-push
  i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2192	2291	
==>we have to recursively make shallow copies of the nodes
	# \@free will contain all the free type var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4303	4557	
==>);
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4303	4557	
==>);
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Ne <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1000	1148	
==>);
    }
    
    return @rv;
}    


sub install {
    my $entry = shift;
    
    my @list = _recurse_resolve( $entry );
    
    ### find what dep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14471	14611	
==>start
            'local $@; ' .
            # call Perl::Tidy here? - see v6.pm ???
            'my $p6 = Pugs::Compiler::Perl6->compile( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8873	8972	
==>"should not appear" }
NODE TCxtLValue ($type) { "should not appear" }
NODE TCxtItem   ($type) { "sho <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	920	1031	
==>led successfully!
.
    }
}
else {
    print << ".";
*** Installation failed (exit code $rv).
.
}

exit $rv;

su <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6931	7043	
==>lags = "-H0 ";
    $ghc_flags .= " -i. -isrc -isrc/pcre -I. -Isrc -Isrc/pcre -static ";
    $ghc_flags .= " -Wall <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5208	5451	
==>I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all el <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5208	5451	
==>I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17788	17881	
==>Mozilla/1.2';

=item $h.server

The server header field contains information about the softwar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17788	17881	
==>Mozilla/1.2';

=item $h.server

The server header field contains information about the softwar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17499	17621	
==>> 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17499	17621	
==>> 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length'  => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	416	619	
==>on_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	416	619	
==>on_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	156	280	
==>seCategory);

sub add_rule {
    # print "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix ad <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30156	30258	
==>ssage; this user string may also contain variable names that correspond
to Message Variables, which wil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30156	30258	
==>ssage; this user string may also contain variable names that correspond
to Message Variables, which wil <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1323	1421	
==>ar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

T <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1323	1421	
==>ar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 Talks

T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	889	988	
==>$worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($wor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	889	988	
==>$worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($wor <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2476	2578	
==>t>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2476	2578	
==>t>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nod <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32109	32213	
==>reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_descend <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1283	1383	
==>",
	);
	
	$c_code =~ s/^([GIP]V) b_main/$table{$1} b_main/m;
	$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40632	40737	
==>S FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyrig <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40632	40737	
==>S FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyrig <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2013	2147	
==>tp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chd <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1991	2125	
==>tp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chd <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5819	6065	
==>($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7581	7827	
==>($e get ("&dispatcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	262	372	
==>tests = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@tests) {
	c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12552	12667	
==>t to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12610	12725	
==>t to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Code &code, Any $exp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2787	2944	
==>r );
            $obj->config( $config );
            
            ### if the metadir doesn't exist yet, this is a 'clean' dir,
            ### and we need to <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1048	1179	
==>l {
    my $entry = shift;
    
    my @list = _recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6603	6807	
==>rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6796	7000	
==>rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17188	17343	
==>sts) {
          $Curtest = $failedtests->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6994	7105	
==>anonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_v <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6994	7105	
==>anonpath($base);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3458	3645	
==>eturn { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3705	3892	
==>eturn { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rul <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1682	1813	
==>), :second(0),
                        :tz(tz "UTC") ) + $time_t;
}

# convert from a perl float
multi sub epoch( Real $epoch ) retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	386	481	
==>se base 'Object::Accessor';

=head1 ACCESSORS

=head2 $dir = $inst->meta_dir

=cut

sub meta_dir <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1609	1744	
==>ural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1609	1744	
==>ural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1043	1178	
==>tr
        # The machine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1043	1178	
==>tr
        # The machine-readable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Nam <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2060	2163	
==>ind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias varia <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2060	2163	
==>ind({ positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 NAME

Data::Bind - Bind and alias varia <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3783	3889	
==>ers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3783	3889	
==>ers }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## multi sub *infi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4449	4542	
==>new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @mem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4449	4542	
==>new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @mem <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	268	456	
==>class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

meth <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	268	456	
==>class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't instantiate "$class", "$!"/ };
        };
        return $obj;
    };
    $.require ||= 0;
}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18896	19025	
==>lse {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20254	20383	
==>lse {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	424	539	
==>om and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	424	539	
==>om and .to in match nodes!
#     - it should be called only once, whenever there is an access
#       to: .from(); . <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2542	2637	
==>t $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2542	2637	
==>t $other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5538	5642	
==>t would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
obj <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5538	5642	
==>t would be desirable.

Note that calling any methods on a zeroed (and hence, also a finished) cipher 
obj <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	558	649	
==>s $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	558	649	
==>s $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11602	11727	
==>pec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11602	11727	
==>pec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23744	23850	
==>hanged;
this class defaults it to False.

=back

This is the main Relation constructor method:

=over

=ite <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28296	28402	
==>hanged;
this class defaults it to False.

=back

This is the main Relation constructor method:

=over

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4571	4693	
==>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4571	4693	
==>.keys;
      }

      # We have already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	677	801	
==>ile @:events {
      ./:step;
    }
  }

  # Post $event to $session and return the result.
  # The session's event handler w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5352	5450	
==>turn list>

The closure here will be passed the current value itself, which means 
you it is essent <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35965	36062	
==>y ref having all combinations of this object's
Set Names and Member Names elements, concatenated i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35965	36062	
==>y ref having all combinations of this object's
Set Names and Member Names elements, concatenated i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6120	6220	
==>new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6120	6220	
==>new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	150	250	
==>local $Data::Dumper::Terse = 1;
    return join( ', ', Data::Dumper::Dumper( @_ ) );
}

package Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7478	7577	
==>directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7478	7577	
==>directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' directive <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1269	1361	
==>re using Microsoft Windows, you will need the 'nmake' utility
before installation. It's avail <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1109	1201	
==>re using Microsoft Windows, you will need the 'nmake' utility
before installation. It's avail <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1153	1303	
==>ram('$x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher or <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	828	934	
==>%variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	828	934	
==>%variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5606	5705	
==>rence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5606	5705	
==>rence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12178	12270	
==>s="num tests_ok"><span title="<tmpl_var name=ok> ok"><tmpl_var name=ok></span>,</td>
	      < <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1678	1810	
==>nyof_char => "\t", '\t') if $cc;
    return $S->object(exact => "\t", '\t');
  });

  # bol, mbol, sbol
  $self->add_handler('^' => s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1723	1839	
==>lass->SUPER::new;
        $obj->mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $obj->pool((def <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4966	5181	
==>oken);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    els <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4966	5181	
==>oken);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    els <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1120	1225	
==>intf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s.\n", BOLD . R <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12682	12775	
==>haracter entities.  The module provides the following functions:

=over 4

=item decode_entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12682	12775	
==>haracter entities.  The module provides the following functions:

=over 4

=item decode_entiti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2766	2888	
==>[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2754	2876	
==>[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dump <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	228	333	
==>an override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	228	333	
==>an override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5999	6116	
==>self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5999	6116	
==>self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Request;
        @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34820	34925	
==>_names => ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34820	34925	
==>_names => ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	531	631	
==>_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	531	631	
==>_LWP++ if grep {lc($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12035	12146	
==>rameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the parameter.

- `curr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12035	12146	
==>rameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the parameter.

- `curr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20283	20388	
==>uthorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20283	20388	
==>uthorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10660	10810	
==>$args{switches});
    }
    if (defined $args{prog}) {
	die "test.pl:runperl(): both 'prog' and 'progs' cannot be used " . _where()
	    if defined $ar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	224	320	
==>so known as sixpan.

Please refer the documentation of the other Modules in the JIB namespace for <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10709	10912	
==>ren(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10709	10912	
==>ren(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9780	9877	
==>containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9780	9877	
==>containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3646	3779	
==>/../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3646	3779	
==>/../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3361	3464	
==>urn @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3361	3464	
==>urn @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1516	1721	
==>$k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1516	1721	
==>$k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently results in parsefail
                        if $v ~~ m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	436	560	
==>nd they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	447	571	
==>nd they are too slow using the basic
# rule parser
# UPDATE - move these to prelude using rx:perl

sub subrule {
    my ( $co <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	65	161	
==>rtion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtrac <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	65	161	
==>rtion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is false, it backtrac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2483	2616	
==>} }", 
);

sub new {
    my $class = shift;
    my $self = { levels => [], @_ };
    bless $self, $class; 
}

our $op_count = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1518	1617	
==>or::nary: layout($$) = { join(" ", $.name, layout($.param)) }
type::operator::nary: level($.param) = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7837	7945	
==>od_list ],
    [ 'bar', 'does', 'foo', 'foo_bar' ],
    '... got the right method list (resolved)');
    
ok( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1695	1798	
==>eys and values.

C<Env> is a map - it contains symbol to value mappings.

=back

=head2 Misc

=over 4

= <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2098	2199	
==>ugs::Internals::eval_haskell($code) };
            when 'parrot'  { Pugs::Internals::eval_parrot($code <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6923	7006	
==>ect::another_singleton_test_on_object'
});

is($Object->another_singleton_test_on_ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4574	4852	
==>kies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4574	4852	
==>kies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1490	1642	
==>@_, $nodes

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1439	1586	
==>@_, $nodes
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2] <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1311	1421	
==>), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of st <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1311	1421	
==>), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11725	11820	
==>lessly backslashed 'N'.  My
module parses them and handles them properly.  The nchar() method ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1363	1459	
==>eader_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1363	1459	
==>eader_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	581	709	
==>1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh+ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	581	709	
==>1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh+ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1592	1734	
==>( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1592	1734	
==>( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | ' <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	407	564	
==>$char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $fi <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	407	564	
==>$char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19086	19183	
==>cations can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19086	19183	
==>cations can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6838	6985	
==>p - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boun <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6838	6985	
==>p - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boun <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1809	1928	
==>e}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1809	1928	
==>e}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class->pmc_template($mo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	452	561	
==>sh of (v => v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

method insert <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	452	561	
==>sh of (v => v)
has Junction $!members;

method members() returns List {
    $!members.values;
}

method insert <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2815	2943	
==>DO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2815	2943	
==>DO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4697	4792	
==>&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4697	4792	
==>&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])% <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8083	8227	
==>is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8083	8227	
==>is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2569	2674	
==>ment.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2569	2674	
==>ment.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#pr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	222	334	
==>OPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also n <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	222	334	
==>OPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding support (also n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31889	31985	
==>ic binary relational operator that takes a single
Relation in its C<$other> argument, where <$oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36439	36535	
==>ic binary relational operator that takes a single
Relation in its C<$other> argument, where <$oth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2140	2244	
==>_address);
}

use Inline C => <<'END';

#include <regcomp.h>
/* for the struct pointed to by substrs :( * <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	739	849	
==>t member is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4217	4327	
==>t member is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	942	1054	
==><block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variab <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	942	1054	
==><block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variab <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19278	19384	
==>ument, *%{$hash_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGU <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19278	19384	
==>ument, *%{$hash_was_saved} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGU <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10725	10855	
==>EADME</a> for details.
  </p>

  <p>
    Note that old smoke reports are automatically deleted, so you may not want
    to link dir <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4442	4571	
==>->(0)  --> $r(0);


    foreach (@a)        -->  for @a
    foreach my $r (@a)  -->  for @a -> $r

    package MY::Class;  -->  cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1785	1969	
==>n;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .expo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1785	1969	
==>n;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map:{ .expo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9367	9462	
==>t1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9367	9462	
==>t1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4615	4759	
==>4"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4615	4759	
==>4"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2852	2995	
==>nt_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2852	2995	
==>nt_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1148	1253	
==>xt->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to be th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1148	1253	
==>xt->new ("NAME");

 # note that Texts *can* have an alternate source fragment, but it
 # defaults to be th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	539	638	
==>tr is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	539	638	
==>tr is export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5330	5427	
==>ar its internal state as completely as possible. 
This is automatically done as part of C<finish>, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5330	5427	
==>ar its internal state as completely as possible. 
This is automatically done as part of C<finish>, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7946	8087	
==>nt_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7946	8087	
==>nt_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3064	3167	
==>,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$construc <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3064	3167	
==>,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$construc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7055	7397	
==>ense'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7112	7454	
==>ense'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21219	21316	
==>Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25771	25868	
==>Relation class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18638	18747	
==>pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p6analyze( <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4808	4942	
==>e ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4667	4801	
==>e ( my ( $key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10944	11037	
==>s discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns th <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10944	11037	
==>s discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	742	870	
==>nauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	742	870	
==>nauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method N <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4816	4967	
==>elow 0
    if $x < 0 {
        $x_round = round_ceiling($x);
    }
    elsif $x > 0 {
        $x_round = round_floor($x);
    }
    else {
        $x_ro <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6156	6300	
==>eate($name, $value);
}

sub get {
    my ($self, $name) = @_;
    (defined $name) 
        || confess "You must supply a name to get";    
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	288	480	
==>ne;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	288	480	
==>ne;
        
        if ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	175	281	
==>ate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	175	281	
==>ate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variab <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4885	4986	
==>thods for Config::Tiny objects. These
methods can be called with the following syntax:

  $config<read <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4885	4986	
==>thods for Config::Tiny objects. These
methods can be called with the following syntax:

  $config<read <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	221	330	
==>roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	221	330	
==>roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5869	5955	
==>se { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5869	5955	
==>se { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	371	471	
==>}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub reco <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1098	1195	
==>}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub reco <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7045	7357	
==>yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7045	7357	
==>yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2117	2233	
==>"P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::E <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2117	2233	
==>"P5::PIL::Run::List" => list(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::E <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6538	6639	
==>--- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $clo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6538	6639	
==>--- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    return $clo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	398	522	
==>dePoint    is Char;
class Byte         is Char, Number;

macro LChar () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macr <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	827	922	
==>acro Clutter::int_size($n) {
  'subset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~$n~' <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15495	15603	
==>uff something into
the string at a higher level that doesn't map to the lower level is an
error (for example, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4426	4530	
==>);
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."{".$key."}";
}
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9568	9735	
==>($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        };
        return;
    };
}

1;

__END__

# XXX - optimization - pass the strin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13021	13120	
==>alueList> <'}'>
}
rule PropertyNameAndValueList :words {  # see 11.1.5
      <PropertyName> <':'> <A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16275	16375	
==>utes" attribute if provided (it defaults to empty if the parameter's
corresponding argument is not pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16275	16375	
==>utes" attribute if provided (it defaults to empty if the parameter's
corresponding argument is not pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6571	6673	
==>Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6583	6685	
==>Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7714	7816	
==>azy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7714	7816	
==>azy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_array_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22298	22391	
==>ant the warning.

Added "Unrecognized escape" warnings to I<all> escape sequence handlers.

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10381	10491	
==>ift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::opti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10660	10770	
==>ift @rule_terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::opti <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	734	841	
==>ined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	734	841	
==>ined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4526	4654	
==>:Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4526	4654	
==>:Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6:: <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2082	2213	
==>library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of script from which pe <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2082	2213	
==>library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - basename of script from which pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6446	6555	
==>or @{.get_set_member_combinations()} -> $module_name {
        # Determine if requested template module is alr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6446	6555	
==>or @{.get_set_member_combinations()} -> $module_name {
        # Determine if requested template module is alr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2462	2622	
==>eop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2473	2633	
==>eop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' ),
                        ruleop::constant( ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4104	4203	
==>head2 bool

When used as a boolean, the match object returns whether the match has
succeeded or not. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4104	4203	
==>head2 bool

When used as a boolean, the match object returns whether the match has
succeeded or not. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7806	7925	
==>[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7806	7925	
==>[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20619	20713	
==>er/Handlers.pm>.  That file might end up being where
documentation on writing handlers goes.

T <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16078	16174	
==>e result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always chec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16078	16174	
==>e result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. It always chec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1504	1640	
==>a .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1504	1640	
==>a .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4357	4451	
==>@test_files);

This runs all the given I<@test_files> and divines whether they passed
or failed <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10026	10150	
==>etachar("\\").
set_metachar("]").
set_metachar("-").
p5_charset_item(char(C)) --> [C], {[C] = "-"}.

charset_identifier(A) -- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8828	8939	
==>t()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT ME <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8828	8939	
==>t()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT ME <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17560	17671	
==>s->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13981	14092	
==>s->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8724	8852	
==>,0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL;
    } else {
      fprintf(stderr,"api UNK <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3125	3220	
==>y $compiled = $r->compile($program);

=head1 DESCRIPTION

The compiler reduces an AST into an ex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22620	22729	
==>t to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This conta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27172	27281	
==>t to
change) plus 1 extra attribute:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This conta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8350	8498	
==>re->new(
            params => closure::params->new(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	234	372	
==>:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	440	578	
==>:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10263	10357	
==>er(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10263	10357	
==>er(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method enc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27236	27357	
==>apture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27515	27636	
==>apture( 'literal', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1302	1442	
==>int "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1313	1453	
==>int "negated_subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9379	9506	
==>{
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9367	9494	
==>{
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{$_[0]} ) { 
        my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1047	1147	
==>>type->to_native eq $right->type->to_native;
    return bit->new(0);
}

1;

__END__

=pod

=head1 NAM <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	310	444	
==>E::Exp::Anchor");
    $optable->addToken("term:\\B", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:^", "term:", "n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6088	6194	
==>y applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6088	6194	
==>y applies to Span::Int objects
# method density () returns Object {
#    return $.span.density;
# }

method <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10319	10408	
==>"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11054	11143	
==>"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16174	16264	
==>tpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16232	16322	
==>tpractical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3149	3274	
==>rsal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .redu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3149	3274	
==>rsal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .redu <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1686	1789	
==>/g;  # last_index
}

conv_hash {
    s/\$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4987	5083	
==>or:         Ingo Blechschmidt <iblech\@web.de>
Many thanks to: Michael Hartmann <michael.hartmann <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2559	2663	
==>nform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is allowed to <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2559	2663	
==>nform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case it is allowed to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2544	2719	
==>,
        other => '+',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '-',
        block => sub {},
        assoc => 'left',
        precedence => 'eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7843	7956	
==>n 0 if !defined $rb->[$i];
	return 0 unless $ra->[$i] eq $rb->[$i];
    }
    return 1;
}

sub eq_hash {
  my ($or <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12611	12714	
==>ags per second, or holidays per month.

It is also used when the objects represent "chunks" of data, suc <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12611	12714	
==>ags per second, or holidays per month.

It is also used when the objects represent "chunks" of data, suc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7598	7700	
==>d be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default impleme <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7598	7700	
==>d be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of this.)

A default impleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17564	17677	
==>isual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13985	14098	
==>isual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lh <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1359	1452	
==>alues(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1359	1452	
==>alues(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	542	643	
==>w(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	542	643	
==>w(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1112	1210	
==>odo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1170	1268	
==>odo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1017	1134	
==>T) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DE <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1017	1134	
==>T) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5007	5114	
==>);
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5007	5114	
==>);
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b}[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23635	23780	
==>ure( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23914	24059	
==>ure( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	533	654	
==>$self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	533	654	
==>$self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22665	22760	
==>=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27217	27312	
==>=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation attri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	601	712	
==>>{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	807	918	
==>>{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6601	6726	
==>\n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6601	6726	
==>\n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
} <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1296	1451	
==>rn $value.($next, $u), tail($input);
  };
}

## Chapter 8 section 3.2

sub concatenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  r <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1273	1371	
==>l_uri   = "http://m19s28.vlinux.de/iblech/pugs/livecd-kernel.bin";
my $grub_uri     = "http://m19s2 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15448	15540	
==>e_parse(Pat,Re) :-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%-------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1602	1738	
==>_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1613	1749	
==>_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17753	17848	
==>te Rosetta D statements and routines
within the virtual machine, input data to it, and output da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17753	17848	
==>te Rosetta D statements and routines
within the virtual machine, input data to it, and output da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1993	2135	
==>ix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25041	25157	
==>ix> <'?'>
}
rule QuantifierPrefix {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6157	6260	
==>rently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6157	6260	
==>rently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6330	6440	
==>od store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$ite <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6330	6440	
==>od store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    self.splice( $pos, 1, [$ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11119	11253	
==>>add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2273	2425	
==>($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2273	2425	
==>($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can we also get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16966	17060	
==>ILDALL (opaque $self: hash %params) returns nil {
    my $dispatcher = $self.dispatcher(:descen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6486	6603	
==>.add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6486	6603	
==>.add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7325	7430	
==>ay::splice(@array, 0, 0, @values);
   @array.elems;
 }


# XXX - todo: define these all in terms of kv, an <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3928	4030	
==>::InternalValue::Reference {
    has $.base_object;
    has $.property_name;
    method GetBase ($O:) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12092	12189	
==>ument object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
elemen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12092	12189	
==>ument object.  If
the optional named parameter @root_nodes (an array ref) is set, then each
elemen <==
2	/Users/nnunley/pugs/util/package-osx.pl	5254	5360	
==>al/man/man3/Perl6::Bible::S29.3pm
        /usr/local/man/man3/Perl6::Doc.3
        /usr/local/man/man3/Perl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	743	892	
==>my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.error_o <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7291	7374	
==>(Rk,R1,R2) --> p5_condition_test(Rk), p5_concatenation(R1), p5_condition_alternative <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3626	3753	
==>acute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3626	3753	
==>acute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29498	29633	
==>ches a '|'.  This means the handler for '|' does not need
to match it; it has already been consumed.

If you created a handle for '&&' w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40791	40888	
==>::Example is identical to the
invocant.  Another trivial case is where any any source relation has <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2003	2108	
==>::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of encip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2003	2108	
==>::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does the same, but deciphers instead of encip <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2859	2977	
==>($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2859	2977	
==>($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        shift(@pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15945	16046	
==>d be shown to a user, is in fact meant
to be interpreted by the machine itself and not any human user. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15945	16046	
==>d be shown to a user, is in fact meant
to be interpreted by the machine itself and not any human user. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	56	167	
==>is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction modu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	56	167	
==>is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set::Junction modu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12934	13035	
==>lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12992	13093	
==>lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These functions both take <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1187	1420	
==>s<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1187	1420	
==>s<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19832	19930	
==>d nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19832	19930	
==>d nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25295	25395	
==>://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system following the ter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25295	25395	
==>://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a system following the ter <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5734	5861	
==>ne(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5734	5861	
==>ne(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3692	3794	
==>( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_previous ),
        closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3692	3794	
==>( $self.closure_next, $self.closure_previous, $set.closure_next, $set.closure_previous ),
        closu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2997	3123	
==>Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insuffic <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2997	3123	
==>Index Out of Bounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insuffic <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3464	3564	
==>ase qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4746	4846	
==>ase qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4188	4286	
==>ng "last", in which case the
object returned represents the last day for the specified month.

- `t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4188	4286	
==>ng "last", in which case the
object returned represents the last day for the specified month.

- `t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39219	39319	
==>amed C<matching>.

=item C<product (Relation::Example $other!) returns Relation::Example>

This multi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	316	454	
==>1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
);

# note: S06 - 'chain <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2506	2596	
==>return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2506	2596	
==>return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5007	5171	
==>> is the results
            #of the test you're summarizing.
            my $details = {
                ok         => $pass,
                actual_ok  => $result{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	557	664	
==>returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	557	664	
==>returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer needed

    state <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1113	1237	
==>verification
XXX needs binary package recognition

=cut

{   my $acc = {
        file            => { allow => FILE_EXISTS }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3778	3934	
==>*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3766	3922	
==>*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2331	2456	
==>a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2331	2456	
==>a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7798	7912	
==>is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7798	7912	
==>is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traversal_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24888	25023	
==>re_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25167	25302	
==>re_block = sub { return { sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	559	660	
==>ush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	559	660	
==>ush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1176	1303	
==>sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1176	1303	
==>sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $full_pugs = File::Spec->catfile( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1562	1821	
==>l::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for Eng <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1562	1821	
==>l::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for Eng <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	449	558	
==>ote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	449	558	
==>ote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13275	13367	
==>tity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

Thi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13275	13367	
==>tity_to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

Thi <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4100	4198	
==>Strip comments and docs while preserving the line counts
sub strip_comments {
    $_[0] =~ s{^[ \t] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	563	676	
==>ubdir( $self->config->_meta_dir);
}

=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3215	3320	
==>, which is then given to the App
    ),

Inherits Unit.

=item Val

Encapsulates a perl value. Usually eit <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	114	234	
==>il "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!exp <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	114	234	
==>il "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	257	362	
==>:Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	240	341	
==>:Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17102	17198	
==>y was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other packag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17102	17198	
==>y was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other packag <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1078	1179	
==>ME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1078	1179	
==>ME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" exporting?
sub set_delimiter(Str $delimi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3663	3824	
==>ift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret > <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3663	3824	
==>ift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret > <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1289	1459	
==>?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1289	1459	
==>?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3430	3544	
==>mess, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _where(), $name <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8667	8772	
==>1;
  $temp1 = pop @termStack;
  goto end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObjPos = $p <==
2	/Users/nnunley/pugs/util/drift.pl	598	723	
==>newtype\b/data/;
    s/--.*$//;
    /\S/ or next;
    print TMP $_;
}
close IN;
close TMP;

my ($rh, $wh);

system(
    'ghc', <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3988	4116	
==>);
    }
    else {
	croak 'unexpected invocant'
	    if defined $args->{invocant};
    }

    for my $param_name (keys %{$self-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18290	18405	
==>plit (      Str $input ; Rule $delimiter          , Int $limit = inf --> List )
 &split<> := &split<Str>.assuming:de <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17090	17191	
==>B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its tim <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17090	17191	
==>B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then it will touch its tim <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6740	6854	
==>a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6740	6854	
==>a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parse <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5784	5883	
==>eturn $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5784	5883	
==>eturn $.span.start_is_closed;
}
method end_is_open () returns Bool {
    return Bool::False if $.spa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10893	10990	
==>party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10893	10990	
==>party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1870	2010	
==>$self->[2]->fetch($name);
}

sub set_attr {
    my ($self, $name, $value) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	738	1145	
==>t)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	738	1145	
==>t)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52383	52474	
==>ss->set_attr(symbol->new('@:superclasses') => list->new($::Module));

$::Module->set_attr(sy <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4962	5065	
==>ol or access to the header fields in the requests
sent and responses received, then you should use the f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4962	5065	
==>ol or access to the header fields in the requests
sent and responses received, then you should use the f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9167	9297	
==>match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9155	9285	
==>match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37989	38093	
==>e's result, which is a Template text
string if the module recognizes $msg_key, and the undefined value if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37989	38093	
==>e's result, which is a Template text
string if the module recognizes $msg_key, and the undefined value if <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1210	1333	
==>e_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1210	1333	
==>e_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14290	14453	
==>::variable::free->new,
			type::variable::free->new,
		),
		$.fun,
		$.param,
	);

	# first of all the type of the thing we're appling must be a function
	die "Can' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3132	3242	
==>__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\)]+)\)\{/let_gen($1)/eg;
  s/\}LET;/let_end().";"/eg;
  s/\bFA <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11757	11888	
==>PSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::D <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11757	11888	
==>PSIS

    use Span;

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
    $one_day = Date::D <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5979	6088	
==>tta::Model document in which we store some local
    # command definitions and fragments thereof.
    my Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5979	6088	
==>tta::Model document in which we store some local
    # command definitions and fragments thereof.
    my Roset <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24071	24168	
==>ading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attribute <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28623	28720	
==>ading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attribute <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11523	11641	
==>sif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $lin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11523	11641	
==>sif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $lin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16266	16399	
==>$command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16266	16399	
==>$command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @qu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5248	5343	
==>returns a hash reference representing the configuration data

=item write

The C<write> method t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5248	5343	
==>returns a hash reference representing the configuration data

=item write

The C<write> method t <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	751	893	
==>_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1970	2116	
==>$base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1970	2116	
==>$base, $req.uri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1307	1419	
==>ng {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Ob <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1307	1419	
==>ng {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Ob <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7124	7239	
==>$done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7124	7239	
==>$done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# Break the code <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9497	9618	
==>ng === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34052	34149	
==>elation::Example whose attributes
(provided in C<$heading>) may or may not resemble those of the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3897	4020	
==>{name};\n$s\n";
}

sub _optimize {
    my @rules = reverse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27733	27830	
==>member that is an empty Mapping.

=back

A Relation::Example object has these methods:

=over

=it <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1587	1710	
==>rrent_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1587	1710	
==>rrent_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	566	677	
==>setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	566	677	
==>setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1833	1952	
==>=> 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1833	1952	
==>=> 'Ú',  # capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2145	2269	
==>(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2145	2269	
==>(map { &OUTER::BLOCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3515	3646	
==>universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3515	3646	
==>universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14530	14671	
==>@new_dir_files != @dir_files) {
                my %f;
                @f{@new_dir_files} = (1) x @new_dir_files;
                delete @f{@d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7028	7159	
==>prog);
	my $type = $self->resolve_type($prog);

	push @{ $self->{defs} }, "$type b_main () {\n\treturn $main;\n}";
	push @{ $self->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	43	148	
==>ime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	43	148	
==>ime::Match;

# This class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1237	1340	
==>od handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defin <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1237	1340	
==>od handler { ./handle_request }

method parse_request {
    my Str $chunk = $.remote.readline;
    defin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12376	12477	
==>le line containing a digest of the original content.
#
# This makes further dividing of Perl code less <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12376	12477	
==>le line containing a digest of the original content.
#
# This makes further dividing of Perl code less <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5844	5983	
==>e;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $stat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5844	5983	
==>e;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last unless $stat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16402	16501	
==>e;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16402	16501	
==>e;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	435	532	
==>asses don't
# accidentally override things they didn't intend to.

# Determine which stack frame p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	435	532	
==>asses don't
# accidentally override things they didn't intend to.

# Determine which stack frame p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2137	2246	
==>ode = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2137	2246	
==>ode = ./code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	87	238	
==>ipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @da <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	87	238	
==>ipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @da <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4168	4284	
==>ntent !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4168	4284	
==>ntent !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	45	159	
==>as Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

met <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	45	159	
==>as Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	177	277	
==>od dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash { <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	177	277	
==>od dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4086	4211	
==>apture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4279	4404	
==>apture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13280	13370	
==>to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This w <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13280	13370	
==>to_char )

=item _decode_entities( $string, \%entity_to_char, $allow_unterminated )

This w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11329	11430	
==>tr $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $ar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11329	11430	
==>tr $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringify(Array $ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15873	15985	
==>$min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10729	10841	
==>$min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15269	15376	
==>{
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15269	15376	
==>{
    my ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Com <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14827	14942	
==>xpression>
    | <MultiplicativeExpression> <'*'> <UnaryExpression>
    | <MultiplicativeExpression> <'/'> <UnaryExp <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10768	10879	
==>_pos(newline))           --> "\\n", !. %# XXX - not quite?
p6_char_class(class_neg(newline))           --> "\\N" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7311	7542	
==>= @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7311	7542	
==>= @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7467	7571	
==>n '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' dir <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7467	7571	
==>n '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired when a '=for' dir <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22636	22747	
==>,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => comb(
				fun => i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7260	7379	
==>hr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7260	7379	
==>hr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8 <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16824	16972	
==>:

  passing           true if the whole test is considered a pass 
                    (or skipped), false if its a failure

  exit              the <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5180	5322	
==>de)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Code)\
\\n   Any       pre     List:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3305	3413	
==>rameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3489	3597	
==>rameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11272	11439	
==>$sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11272	11439	
==>$sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4499	4608	
==>l( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4345	4450	
==>l( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1242	1341	
==>lf = shift;
	my $node = shift;

	if (exists $self->{seen}{$node}){
		if ($self->{current_node} eq $n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7010	7097	
==>me,$kind,$pams,$lval,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind, params= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1802	1968	
==>p) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else {
            error("Illegal token: $en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8544	8656	
==>not necessary, though, because the following methods will
invoke parse() if the tree has not been made yet.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2796	2941	
==>ool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1418	1563	
==>ool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16603	16734	
==>bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16603	16734	
==>bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling later.
    run => {
      m <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4300	4395	
==>es(W))    --> "?", !.
p56_quantified_op(W, star(W))    --> "*", !.
p56_quantified_op(W, plus(W)) <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	694	798	
==>b uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	694	798	
==>b uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = uri_escape($string <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16753	16864	
==>he real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16753	16864	
==>he real header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Co <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1647	1757	
==>code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1647	1757	
==>code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how P <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	676	773	
==>Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunctio <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	676	773	
==>Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunctio <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4651	4778	
==>ord {  # see 7.5.1
      <Keyword>
    | <FutureReservedWord>
    | <NullLiteral>
    | <BooleanLiteral>
}
rule Keyword {  # see <==
2	/Users/nnunley/pugs/util/version_h.pl	1183	1292	
==>) = $line =~ / (\d+)$/;
    } elsif (my ($source_line) = grep /^(Copied|Merged) From/, @info) {
        if (my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1185	1300	
==>sub build_subdirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subd <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	526	638	
==>sub build_subdirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	257	364	
==>c, /o flags
  $self->add_flag('g' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "- <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1892	1986	
==>ort for match flags; regexes constructed with this module may cause
segfaults on C<split>, subs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1702	1796	
==>ulti-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1702	1796	
==>ulti-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2388	2509	
==>$1,
    }
};
';
    return $program;
}
sub node::block {
    return "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3004	3104	
==>p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... got the right y for p1');

cmp_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1674	1769	
==>et_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1674	1769	
==>et_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3920	4029	
==>t(horiz => 1);
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1395	1518	
==>om( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:digit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  } <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15879	15992	
==>r die "Couldn't open pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34019	34113	
==>d2 anyof_char

Family: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 any <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1496	1602	
==>ven if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelud <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1703	1809	
==>ven if it is out of date!
      warn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelud <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1257	1360	
==>parent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1257	1360	
==>parent()!set_width($self) unless $self.is_root();            
}

my method set_depth ($self: Int $depth) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10147	10282	
==>ntity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10147	10282	
==>ntity;
    my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_enti <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3024	3140	
==>pan => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3024	3140	
==>pan => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	12	276	
==>ugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	12	276	
==>ugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16459	16552	
==>ucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16459	16552	
==>ucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5183	5308	
==>C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5183	5308	
==>C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int($dec / 16)+&15] ~ @hex[$dec % 16]; };
    # create 
    my $utf82hex = -> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4039	4179	
==>looser',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '¥',
        assoc => 'list',
        precedence => 'equal <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9751	9873	
==>e|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $tex <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9751	9873	
==>e|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $tex <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11956	12065	
==>day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11956	12065	
==>day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4157	4258	
==>returns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4157	4258	
==>returns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, the matc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10857	10972	
==>0];my($vars)=\@{\$self};";}

    $code .= "$body}";
    $code;
}
use Filter::Simple sub {
    s/\#.+//g;
    s/^NODE <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2994	3112	
==>ile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3458	3576	
==>ile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1548	1667	
==>ge is properly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = caller($Level <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	596	719	
==>ingle_quoted => $2 } } 
        },
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	64	160	
==>56 }

# interpolierter Funktions-Aufruf
say "100£ sind {£to€(100)}€";
# gibt '100£ sind 14 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	164	264	
==>ized
group.  This is approximately the Match object that userland folks will
see, but it has some oth <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	164	264	
==>ized
group.  This is approximately the Match object that userland folks will
see, but it has some oth <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1425	1523	
==>.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1265	1363	
==>.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1031	1141	
==>::alternation {

    # alternation is first match (not longest).  though we need a 

    # separate longest mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	990	1098	
==>::alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest mat <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5540	5662	
==>!Array, List)\
\\n   Int       pre     unshift safe   (rw!Array, List)\
\\n   Scalar    pre     List::pop     safe   (rw!Ar <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8385	8497	
==>$argl)";
}

NODE PAssign ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOW <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2163	2273	
==>n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2944	3054	
==>n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get_st <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7024	7127	
==>::Dumper;


# The unification of the various types depends on their data...
# this is why this code is s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5229	5364	
==>identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hol <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5229	5364	
==>identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hol <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8584	8679	
==>@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2409	2504	
==>@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4824	4931	
==>apture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5017	5124	
==>apture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4178	4283	
==>turn $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5027	5132	
==>turn $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	822	920	
==>ist 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: join, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	822	920	
==>ist 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: join, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6040	6160	
==>ave to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a relea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6098	6218	
==>ave to check it
    my $context;

    # Check if we have to forcetodo this test
    # because we're preparing for a relea <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6054	6169	
==>S

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6054	6169	
==>S

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9779	9951	
==>ent'} )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3644	3751	
==>dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<->( $self: Int|Real $iso8601_dur ) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11495	11605	
==>m I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figure out a good way <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11495	11605	
==>m I<Cookies>

My inclination is to wait until objects are done for this, but maybe I will
figure out a good way <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25651	25750	
==>s intended to be read by a machine and
mapped to a user-readable message; the key itself is not mean <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25651	25750	
==>s intended to be read by a machine and
mapped to a user-readable message; the key itself is not mean <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8659	8789	
==>(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => ghc-pkg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1904	2019	
==>me};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1904	2019	
==>me};          }
    method STORE ($name, $val)  { return (%!params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Que <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7934	8075	
==>{
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## --------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7934	8075	
==>{
    return coro {
        $self.traverse(sub { yield $^node }, $traversal_order);
    };
}

## --------------------------------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3906	4018	
==>n ls_accessors, so we don't give back the private accessors
sub ls_all_accessors { sort keys %config }
sub ls_acc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10304	10444	
==>]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10304	10444	
==>]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4499	4611	
==>[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4499	4611	
==>[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless def <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8598	8717	
==>n a threaded Perl, for example.

You can also overload this method if you've built your own strap subclass,
such as a PH <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1615	1732	
==>se qw/Blondie::Reducer/;
	
	use Scalar::Util ();
	
	sub new { bless {}, shift }

	sub reduce {
		my $self = shift;
		m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	836	947	
==>L>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	836	947	
==>L>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2682	2841	
==>}
        }
    
        ### extract the code
        {   ### XXX we should *build* things here too
            print "Unpacking code...\n";
            system( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7757	7847	
==>ad of itself
multi unify => ('type::variable::instantiated', 'type') => sub { unify($_[0]{i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	25	159	
==>t::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	25	159	
==>t::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        s <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	168	274	
==>.01';

use strict;
use Config ();
use File::Spec ();
use ExtUtils::MakeMaker ();

# check if we can load so <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20372	20486	
==>er('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16793	16907	
==>er('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(RPe_NOTERM) unless ${&Rx} =~ m{ \ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3718	3817	
==>f.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3718	3817	
==>f.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previous =>    $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1358	1476	
==>lean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$cl <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	696	813	
==>lean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        %$cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9890	9984	
==>hrough third-level

The iterator returned is a function reference.  When called in scalar
conte <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4402	4521	
==>my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4402	4521	
==>my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14190	14344	
==>tatements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14469	14623	
==>tatements, \&_push;
*{'pod'} = 
       ruleop::concat(
         ruleop::constant( "\=" )
       ,
         ruleop::alternation( [
               ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31868	31961	
==>lti-method is a generic binary relational operator that takes a single
Relation in its C<$othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36418	36511	
==>lti-method is a generic binary relational operator that takes a single
Relation in its C<$othe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5384	5527	
==>$_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XXX - generalize <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5215	5351	
==>$_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XXX - generalize <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	560	739	
==>($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	560	739	
==>($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10425	10542	
==>"-I../lib"'; # doublequotes because of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "test.pl:runper <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3872	4084	
==>nd_up = 0;
            }
            else {
                if rand <= .5 {
                    $x_round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19599	19743	
==>,
      up => 1,
    }, $class;
    return $self;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    do {
      $rx-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6102	6253	
==>ines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # han <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6102	6253	
==>ines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # han <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5682	5865	
==>es'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5682	5865	
==>es'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31868	31968	
==>ented.>

This method is a generic relational operator that returns a new Relation::Example
which is t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32915	33015	
==>ented.>

This method is a generic relational operator that returns a new Relation::Example
which is t <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3641	3879	
==>ne ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3641	3879	
==>ne ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15532	15632	
==>used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15532	15632	
==>used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - This contains zero or more attribute <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4341	4452	
==>ndler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4341	4452	
==>ndler<353> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless d <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2133	2238	
==>res, $self->requires) );

    # merge both kinds of requires into prereq_pm
    my $dir = ($args->{DIR} || <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12991	13118	
==>{
        copy $_ => "$initrd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  s <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4454	4558	
==>s $Config{pugs};
    gen_source($TEMP_PRELUDE);
    $ENV{PUGS_COMPILE_PRELUDE} = 1;

    my ($rh, $wh, $l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14914	15017	
==>erence to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14914	15017	
==>erence to the Document that
this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1049	1158	
==>nt, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("N <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1049	1158	
==>nt, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("N <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	747	846	
==>::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	747	846	
==>::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4434	4568	
==>rns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4434	4568	
==>rns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17206	17362	
==>Curtest = $failedtests->{$script};
          write;
        }
        if ($tot->{bad}) {
            $bonusmsg =~ s/^,\s*//;
            print "$bonusmsg.\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13872	13992	
==>md, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13866	13986	
==>md, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5454	5639	
==>~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5454	5639	
==>~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	875	981	
==>new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self->init;
  $self->regex($rx) if defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4682	4788	
==>D exp   %prec P003
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1075	1197	
==>Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the val <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4553	4675	
==>Mapping is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the val <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4190	4318	
==>}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5039	5167	
==>}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dump <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1731	1839	
==>lf:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1731	1839	
==>lf:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equal($s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19874	19979	
==>all Rosetta cares about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19874	19979	
==>all Rosetta cares about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1290	1418	
==>ame => '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_ru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10117	10285	
==>seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10117	10285	
==>seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $d <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	820	955	
==>nd;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	820	955	
==>nd;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $span.star <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1846	1947	
==>question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia articl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1846	1947	
==>question are 
C<i>, C<j> and C<state>.  To understand how to interpret them, see the 
Wikipedia articl <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2113	2245	
==>tions, which all Newton methods do.  All
it does in such cases is die with a complaint.  Real solvers usually do
a bit of algorithm s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7	111	
==>est.pl - most of Test::More functionality without the fuss
#

$Level = 1;
my $test = 1;
my $planned;
my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41251	41353	
==>es.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback towards improvi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41251	41353	
==>es.

=item Stevan Little (C<stevan@iinteractive.com>)

On 2005.03.21, provided feedback towards improvi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1995	2090	
==>USH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1995	2090	
==>USH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT" <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5617	5845	
==>ght_thunk'),
            App->new(
                App->new(
                    Sym->new('&ternary:<?? !!>'),
                    Sym->new('$cond'),
                    Sym->new('$left_thunk'),
                    Sym->new('$rig <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20119	20211	
==>,E0) :- class_member(class_pos(X),C), !.
rm(class_neg(X),[C|F1],F1,B0,[C|B0],E0,E0) :- class_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1891	1999	
==>son, directly returning this expression does not
    # yield the correct return value.

    say "Comparing: " <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1891	1999	
==>son, directly returning this expression does not
    # yield the correct return value.

    say "Comparing: " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20869	20964	
==>urMod::__object__>, F<Regexp::Parser::OBJ>,
F<Regexp::Parser::__object__>.

=item Cleaner Gramma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40112	40364	
==>turns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19661	19904	
==>turns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16294	16416	
==>$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16294	16416	
==>$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14329	14431	
==>()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
igno <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14387	14489	
==>()

- `diag (Str $diag)`

This will print each string with a '#' character appended to it, this is
igno <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8487	8635	
==>as stopped by a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about fail()

s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8203	8347	
==>as stopped by a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about fail()
s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5273	5373	
==>ent identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argument c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5273	5373	
==>ent identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url argument c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6671	6762	
==>f (Scalar::Util::blessed($x) and Scalar::Util::blessed($y)) {
			die "baaah! expected type c <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	132	234	
==>thing which does subscriber can recieve them
# two kinds of things that can do subscriber:
# - Code
# - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1547	1648	
==>ad1 NAME 

Pugs::Compiler::Perl6 - An experimental compiler for Perl 6

=head1 DESCRIPTION

This <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1456	1558	
==>uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex iden <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1456	1558	
==>uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex iden <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6793	7023	
==>ie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6793	7023	
==>ie
                    
                    if ($domain ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6008	6145	
==>status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:E <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6008	6145	
==>status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	257	395	
==>Dumper::Indent = 0;
    # print "emit: ", ref($n)," ",Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( $n eq ',') {
        return ', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8557	8674	
==>Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8545	8662	
==>Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26645	26752	
==>e identity-one
Relation or the invocant Relation respectively.  This method will fail if
any members of C<$a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31197	31304	
==>e identity-one
Relation or the invocant Relation respectively.  This method will fail if
any members of C<$a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5346	5498	
==>] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5178	5323	
==>] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17303	17447	
==>, "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17303	17447	
==>, "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8535	8664	
==>th name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method sub <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8535	8664	
==>th name '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8730	8867	
==>struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub can_reduce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22789	22877	
==>(X),C), !.
charset_member(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), !.
ch <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1779	1933	
==>ean '$builddir'" ), return;
#     }
#     
#     ### XXX do this in one go
#     {   my $tmpdir  = tempdir( CLEANUP => 1 );
#         my $dirname = basenam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28204	28345	
==>symbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20391	20490	
==>ld only use Example
for testing, development, and study; you should not use it in production.

For p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20391	20490	
==>ld only use Example
for testing, development, and study; you should not use it in production.

For p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6499	6627	
==>("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6499	6627	
==>("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, section 14.36. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6083	6221	
==>chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6083	6221	
==>chr(960),
    "rho"      => chr(961),
    "sigmaf"   => chr(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2636	2755	
==>e = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2636	2755	
==>e = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our username and host, so we /WHO ourselves.
      ./ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	485	597	
==>= $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	485	597	
==>= $body.children;

 my $node = $kwoc.lookup("#link");  # PLINK lookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4028	4135	
==>Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4028	4135	
==>Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Locale::KeyedText::L:: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6911	7016	
==>(as string).

C<$failed> should be empty if everything passed.

B<NOTE> Currently this function is still n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	17	123	
==>time::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use ov <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	17	123	
==>time::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use ov <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12114	12213	
==>Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $comma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12114	12213	
==>Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, Str $comma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7487	7586	
==>normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7487	7586	
==>normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~nor <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	807	910	
==>r single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 versi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	807	910	
==>r single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 versi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14305	14440	
==>fic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14305	14440	
==>fic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        }

        # So we h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36327	36417	
==>ed C<plus>.

=item C<union (Relation::Example *@others) returns Relation::Example>

This mu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12826	13004	
==>$re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $resu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12826	13004	
==>$re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $resu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5175	5330	
==>rn;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5187	5342	
==>rn;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16703	16829	
==>from
    .local pmc code
    .local pmc sub
    .local pmc pad

    null code
    null sub
    if has_name goto p6rule_1
    na <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	221	338	
==>arams::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 ACCESSOR <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	156	264	
==>arams::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31352	31463	
==>e
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31352	31463	
==>e
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9511	9617	
==>/^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derived_switches, "-$1" ) if $taint;

    # When taint mode is o <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15479	15574	
==>t, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursiv <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15537	15632	
==>t, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recursiv <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9351	9440	
==>%char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9351	9440	
==>%char_to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12331	12539	
==>s, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12325	12533	
==>s, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13314	13416	
==>ctly the right input format for
Document.new(), by which you can create an identical Document (with mem <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13314	13416	
==>ctly the right input format for
Document.new(), by which you can create an identical Document (with mem <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3673	3839	
==>{
                my $self = shift;
                @{$self->get_value('@:slots')} = (); # just ref = []?
            },

            'array_push' => sub { # @values - <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	358	473	
==>a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 finished: $a is now < -100'
}
while ($still_ru <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3135	3324	
==>up = 0;
            }
            else {
                $x_round = round_down_symmetric($x);
                $round_up = 1;
            }
        }
    }

    return $x_round;
}

our Int mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5568	5672	
==>sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => 1)) if $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3675	3785	
==>uml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3675	3785	
==>uml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	291	403	
==>";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	291	403	
==>";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	451	576	
==>r'";
        
    push @PKGS, $pkg;
}    

%PKGS = map { $_->package => $_ } @PKGS;

1;


# Local variables:
# c-indentation-s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16257	16377	
==>$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16251	16371	
==>$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[-1];\n" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4421	4521	
==>raise ReferenceError; }
method PutValue (JSX::InternalValue::Reference $V, $W) {
    my $Result2 = Ge <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1046	1166	
==>);
        print "calculating cc for $f\n";
        $allccs{$f} = [ keys %{comp_cc(\%cc)} ];
    }
    print ::Y(\%allccs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4380	4479	
==>ns named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4380	4479	
==>ns named captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1483	1748	
==>ns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1483	1748	
==>ns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1885	1990	
==>r



sub code {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1811	1912	
==>r

sub code {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10406	10541	
==>\@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub befor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10400	10535	
==>\@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub befor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23219	23314	
==>s in building your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	169	304	
==>dd_flag('i' => sub { 0x4 });
  $self->add_flag('x' => sub { 0x8 });

  # (useless) /g, /c, /o flags
  $self->add_flag('g' => sub {
    m <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	64	158	
==>e!" aus, Klammern sind nötig!
#=Anwendung von Code-Objekten: for-Schleifen
for 1..10 -> {
	say <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1002	1094	
==>th Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %en <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1002	1094	
==>th Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modified
>;

#my %en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	482	575	
==>racted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	482	575	
==>racted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5757	5875	
==>$line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5815	5933	
==>$line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3779	3899	
==>meta( emit_perl6_rule($self, $level, $default) ) .
            "' )->code;\n";
    }
    return $s;  #"package $self->{na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3541	3643	
==>odel::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3541	3643	
==>odel::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # Th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6676	6774	
==>document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

F <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6676	6774	
==>document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Events

F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17329	17445	
==>rwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title of the document.  In libw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17329	17445	
==>rwegian and "en-US" for English the
way it is written in the US.

=item $h.title

The title of the document.  In libw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17700	17795	
==>information
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17700	17795	
==>information
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1502	1604	
==>p support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1502	1604	
==>p support) and creates a Lazy List, that
  can be used to create a Lazy Array.
* Removed internal class <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24815	24916	
==>tr) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29367	29468	
==>tr) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This method retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	525	650	
==>ated as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	525	650	
==>ated as a Root]
           ~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs d <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8129	8237	
==>name => 'util/catalog_tmpl/directory.tmpl');
    my $i = 0;
    my $c = int((@dirs+1) / 3) +1;
    $template- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4219	4325	
==>f.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4219	4325	
==>f.start == -Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3200	3392	
==>et >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3200	3392	
==>et >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3678	4070	
==>d use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unle <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3678	4070	
==>d use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $start + 1 unle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1839	2004	
==>msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1839	2004	
==>msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
        _command_loop();
    }

    _show_message( Locale::KeyedText::Message <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3930	4051	
==>, :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3988	4109	
==>, :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $match, Str $desc?, :$todo, :$depends) returns <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	843	965	
==>'$Config{make} register'.
.
    }
    else {
        print << ".";
*** Installed successfully!
.
    }
}
else {
    print < <==
2	/Users/nnunley/pugs/util/package-osx.pl	8289	8397	
==>pec::Syntax.3pm
        /usr/local/man/man3/Perl6::Tutorial.3
        /usr/local/man/man3/Perl6::Tutorial.3pm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15179	15275	
==>r and array contexts, the encoded or
decoded string is returned (without changing the input strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15179	15275	
==>r and array contexts, the encoded or
decoded string is returned (without changing the input strin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6234	6343	
==>s $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        my $subpath = $1;
        return if lc($subpath) eq lc($self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15101	15195	
==>res of arbitrary depth and of
an arbitrary type. The function signatures will likely look somet <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15159	15253	
==>res of arbitrary depth and of
an arbitrary type. The function signatures will likely look somet <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4383	4485	
==>->sublen = strend-strbeg;
      r->subbeg = savepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6389	6735	
==>xt                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6853	7199	
==>xt                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32263	32357	
==>on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32263	32357	
==>on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Perl module <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	76	193	
==>our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir : <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	76	193	
==>our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir : <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	37	142	
==>OM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	37	142	
==>OM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3238	3360	
==>d> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<b <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3238	3360	
==>d> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30165	30324	
==>ual_to(str->new(':canonical'));                
                
                my $dispatcher;
                if ($order->equal_to(str->new(':descendant')) = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19740	19850	
==>nals::use_jsan_module_imp (*@whatever) {
    die "Can't load JSAN modules when not running under PIL2JS!";
}
ou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2253	2356	
==>Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2253	2356	
==>Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every R <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	85	186	
==>-----------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	85	186	
==>-----------------------
## attributes

has $.node is rw;

has $.depth;
has $.height;
has $.width;

has <==
2	/Users/nnunley/pugs/util/package-osx.pl	11423	11557	
==>y removed \$file\\n";
            \}
        \}
    );
    @footer = map { s/^(?:\s{9}|\s{5}$)//; $_ } split /$/m, $footer[0];

    pri <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7115	7280	
==>mat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$ne <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7115	7280	
==>mat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$ne <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13098	13310	
==>all} >> contains the reason.

=cut

# Regex for parsing a header.  Will be run with /x
my $Extra_Header_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # option <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1482	1615	
==>unk(
					Seq(
						Param('$n'),
						App(
							Sym('&control_structure:<if>'),
							App(
								Sym('&infix:<==>'),
								Sy <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43355	43446	
==>PYRIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Rela <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3654	3776	
==>$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inser <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3654	3776	
==>$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the same as
# insert_children, you are just inser <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8886	9011	
==>il, $state->{state}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8575	8697	
==>il, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2583	2688	
==>return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    retur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2583	2688	
==>return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13160	13266	
==>xt the arguments are decoded in-place.

This routine is exported by default.

=item _decode_entities( $stri <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13160	13266	
==>xt the arguments are decoded in-place.

This routine is exported by default.

=item _decode_entities( $stri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3353	3450	
==>h @statements, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5059	5230	
==>es[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5059	5230	
==>es[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) {
                my $l <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10908	11019	
==>* /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = $r->execute($c);
my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22192	22292	
==>ook like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26744	26844	
==>ook like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6945	7042	
==>', $size)>

This event is fired once the '=head(n)' directive is reached. This does not include 
t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6945	7042	
==>', $size)>

This event is fired once the '=head(n)' directive is reached. This does not include 
t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2291	2419	
==>antifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2302	2430	
==>antifier = 
    ruleop::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capt <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9370	9507	
==>skip_reason => $results{skip_reason},
                    skip_all    => $Strap->{skip_all},
                    todo        => $results{t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7377	7481	
==>d_element ('begin')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' dire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7377	7481	
==>d_element ('begin')>

This event is fired when a '=end' directive (which is preceeded by an '=begin' dire <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	180	282	
==>r doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	180	282	
==>r doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9204	9330	
==>ering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9204	9330	
==>ering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11145	11278	
==>{ return $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    . <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11145	11278	
==>{ return $self.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    . <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16646	16751	
==>t the user sees; it never outputs anything by itself to the user, but
rather returns its results for calli <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16646	16751	
==>t the user sees; it never outputs anything by itself to the user, but
rather returns its results for calli <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1427	1532	
==>esn't tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subname { \ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1427	1532	
==>esn't tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subname { \ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4566	4680	
==>red => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Chec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5051	5165	
==>red => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Chec <==
2	/Users/nnunley/pugs/util/importgraph.pl	276	377	
==>iz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOptions(
  "layout= <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8149	8283	
==>ontinue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8149	8283	
==>ontinue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4712	4813	
==>}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4852	4953	
==>}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8604	8706	
==>tta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Model::Document
("D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8604	8706	
==>tta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Model::Document
("D <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	214	310	
==>sert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	214	310	
==>sert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3492	3594	
==>code-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3676	3778	
==>code-class+unicode-class>
 <&var> 
 <%var>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10556	10651	
==>nt_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10556	10651	
==>nt_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The complem <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9968	10189	
==>($k,$v) = each %$entry) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1749	1930	
==>($k,$v) = each %$entry) {
                my ($ver,$op) = reverse split /\s+/, $v;
                $op ||= '>=';
                $str .= "$k $op $ver";
            }
        } else { <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4821	4914	
==>alified function name.

=back

The following are the (pseudo) methods for Config::Tiny objects <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4821	4914	
==>alified function name.

=back

The following are the (pseudo) methods for Config::Tiny objects <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1154	1268	
==>'}' => q( { return { stmt => '}'} } ));
    __PACKAGE__->add_rule(
        '->' => q( { return { stmt => '->'} } )) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	255	366	
==>) && (my $meth = $self->can("reduce_" . $node->moniker))) {
		return $self->$meth($node);
	} else {
		return $se <==
2	/Users/nnunley/pugs/util/testgraph.pl	411	513	
==>ie "Couldn't open $yamlfile for reading: $!";
binmode $yamlfh, ":utf8" or die "binmode: $!";
local $/=u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5334	5455	
==>stfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5334	5455	
==>stfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21218	21312	
==>ns a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21218	21312	
==>ns a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a chann <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9940	10054	
==>les; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13417	13531	
==>les; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!headi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	689	798	
==>eturn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	777	886	
==>eturn '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7166	7327	
==>ix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7166	7327	
==>ix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->matc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1222	1312	
==>.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1222	1312	
==>.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34348	34445	
==>:Translator object.
The Set Names property of the new object is set from the named parameter
@set_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34348	34445	
==>:Translator object.
The Set Names property of the new object is set from the named parameter
@set_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23782	23893	
==>ments a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23782	23893	
==>ments a reference implementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Roset <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	780	897	
==>("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	800	910	
==>("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17778	17878	
==>nfinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17778	17878	
==>nfinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18334	18453	
==>(), $name );
}

sub isa_ok ($$;$) {
    my($object, $class, $obj_name) = @_;

    my $diag;
    $obj_name = 'The object' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6114	6275	
==>d $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6114	6275	
==>d $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { retur <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20578	20693	
==>on, $percent) = ('??', '??');

    printf "$test->{ml}dubious\n\tTest returned status $estatus ".
           "(wstat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11572	11665	
==>C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11572	11665	
==>C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Nod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3963	4110	
==>p relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3963	4110	
==>p relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $p <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5002	5106	
==>2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5002	5106	
==>2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15691	15784	
==>dered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15691	15784	
==>dered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields ar <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5512	5656	
==>ined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $si <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4012	4156	
==>ined($len);
    $len = $size + $len - $off if $len < 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $si <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8921	9037	
==>up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NO <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8921	9037	
==>up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7069	7220	
==>ch->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7069	7220	
==>ch->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	135	233	
==>?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attributes", "Set", { companion => "cl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1954	2047	
==>Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparisi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1954	2047	
==>Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparisi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40488	40585	
==>Text is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40488	40585	
==>Text is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11791	11893	
==>map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11785	11887	
==>map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4750	4850	
==>de(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4972	5072	
==>de(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	293	398	
==>string that represents the 
node type, which are checked against each other for agreement at BUILD time
fo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	293	398	
==>string that represents the 
node type, which are checked against each other for agreement at BUILD time
fo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8647	8748	
==>where this method comes into play
# it will recurse down the tree and fix the
# depth fields appropria <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8647	8748	
==>where this method comes into play
# it will recurse down the tree and fix the
# depth fields appropria <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23240	23340	
==>table>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27792	27892	
==>table>

Bool - This attribute is True if the Relation is allowed to and/or has the
ability to mutate, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14771	14872	
==>re to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data struct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14829	14930	
==>re to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data struct <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2321	2435	
==>ath, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Th <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2321	2435	
==>ath, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

Th <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8689	8801	
==>ebuild) {
  my @libs;
  step
    descr  => "Checking which shared libraries pugs, parrot and bash require",
    e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	199	382	
==>,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	199	382	
==>,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	122	376	
==>xt-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (Non <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	122	376	
==>xt-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (Non <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9155	9262	
==>mg\"",
    ensure => sub { -r $initrd_img and -s $initrd_img == 1024 * $initrd_size },
    using  => sub { s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8465	8558	
==>^X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl than what you're running <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	814	910	
==>IR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = CGI->new;
if($CGI->param("up <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1485	1593	
==>-Bible

  Strategy:
    Iterate through all tests first.  Collect links and format as HTML
    as we go.  The <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10770	10865	
==>edy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11049	11144	
==>edy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_stat <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5970	6096	
==>thod push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5970	6096	
==>thod push ( *@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11125	11222	
==>ar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not ch <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11125	11222	
==>ar
context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1366	1473	
==>er_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1366	1473	
==>er_order.  This is used
# for sorting and case matching.
our %header_order;
our %standard_case;

{
  for @he <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2850	2966	
==>\:\: }
rule commit_alternation { \:\: }
rule commit_atom        { \: }

rule match_var             { \$ <[\/\.\d]>+ } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1282	1381	
==>.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the parser
fail <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1282	1381	
==>.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the parser
fail <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34186	34288	
==>minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a ge <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38736	38838	
==>minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a ge <==
2	/Users/nnunley/pugs/util/drift.pl	259	368	
==>";

my ($in) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\.hs/;

mkdir $dir unless -d $dir;
my $out = $dir."/Ins <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	619	745	
==>if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	619	745	
==>if ( $!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6346	6449	
==>}
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &cont <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6346	6449	
==>}
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(parse => sub ($match, &cont <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7635	7751	
==>is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7635	7751	
==>is rw {
        $func($child);
        $child.traverse($func);
    }
}

method post_order_traverse ($self: Code $func <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1093	1285	
==>s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	972	1164	
==>s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3254	3366	
==>_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3242	3354	
==>_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	348	464	
==>earMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Pre <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	348	464	
==>earMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @Pre <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29900	29994	
==>imentally implemented)

Straps->analyze_file() not taint clean, don't know if it can be

Fix th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23148	23369	
==>ew('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    ) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42751	42971	
==>ew('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18030	18187	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18309	18466	
==>{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6251	6366	
==>urn $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6251	6366	
==>urn $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized ) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8017	8148	
==>has                         @:results;
  
  method new ( Test::Builder $Class: $plan?, $output? )
  {
      return $:singleton //= $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3924	4056	
==>e = shift;
    my $top_class     = ref($self->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27179	27286	
==>oin("",map{chr($_)} @$strA);
    my $cap = [map{mkMatch($len,$_)}@$A];
    my $from = $len-$npos;
    my $to <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5398	5526	
==>6789abcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base goto term_bx2
    $I0 *= base
    $If0 += $I1
    inc pos
    go <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5138	5256	
==>m.yml file (written to stdout),
to be loaded by Run.hs.

When pugs is built, a fallback Prelude.hs that contains only a <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11379	11481	
==>ental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11437	11539	
==>ental feature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8339	8460	
==>$cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8339	8460	
==>$cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cm <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4346	4472	
==>YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $no_index } );
    }
    else {
        $dump .= << "META";
no_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	436	543	
==>esearch.microsoft.com/Users/luca/Papers/BasicTypechecking.pdf

# please note that this is nothingmuch's firs <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17730	17850	
==>t,$X::pos-$start),
              $a,\%{$m},$start,$X::pos);
      return $m;
    }
  }
  return MatchX->new()->set_as_fai <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13696	13805	
==>def"); [] },
      numeric     => sub { $as_array_complain->("numeric") },
      non_numeric => sub { $as_arra <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2929	3031	
==>( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:cntrl:]/ )
  {
    $matchObj->position( $matchOb <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19803	19899	
==>eader that use the
"Basic Authentication Scheme".  In array context it will return two
values; th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19803	19899	
==>eader that use the
"Basic Authentication Scheme".  In array context it will return two
values; th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12721	12819	
==>lement in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns positiv <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12721	12819	
==>lement in the recurrence.

Returns negative infinite if the recurrence is infinite.
Returns positiv <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12606	12731	
==>'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12606	12731	
==>'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $sourc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3315	3426	
==>ld} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3315	3426	
==>ld} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10821	10912	
==>content_length returns Str>

=back

B<The following informational functions are fetched on-d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10821	10912	
==>content_length returns Str>

=back

B<The following informational functions are fetched on-d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6308	6452	
==>we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target =~ s/^$base//;
                      $_ => Fil <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2071	2182	
==>d()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z::oop{$id} = {op <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9083	9183	
==>-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BU <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9083	9183	
==>-0.02;

#enum Cipher::Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BU <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3123	3232	
==>f defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3123	3232	
==>f defined( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9228	9357	
==>d =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9228	9357	
==>d =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            r <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1001	1134	
==>file->{events} }) {
                my $n = $event->{num};
                push @{ $sum{$fname}[$n] }, {%$event, revision => $revision <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1193	1289	
==>y::join (@values,   Str $delimiter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; * <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3445	3579	
==>t;
    %hash = (
        '$' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { retur <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1880	1999	
==>r =~ /([\'\"])/ ) {
	    my $end = $1;
	    print '\synstr{';
	    while (scalar @file) {
		++$col;
		printlatex $chr, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46015	46174	
==>il
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self:')->set_attr(symbol->new('$:name'), $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12944	13094	
==>e::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12938	13088	
==>e::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$gramm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4353	4467	
==>ment_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4353	4467	
==>ment_previous }, 
        complement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10221	10327	
==>lue::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created f <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10221	10327	
==>lue::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1052	1165	
==>end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1052	1165	
==>end + $.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16445	16567	
==>r);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16445	16567	
==>r);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, 0, 1) eq <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7114	7218	
==>ot permitting the removal of siblings 
# as I think in general it is a bad idea

## --------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7114	7218	
==>ot permitting the removal of siblings 
# as I think in general it is a bad idea

## --------------------- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	282	410	
==>ame];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];

use <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	198	325	
==>ame];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	136	254	
==>use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4802	4984	
==>$date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4802	4984	
==>$date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7548	7680	
==>p"' {   
        my %app = $tree[1];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",% <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2010	2105	
==>cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2010	2105	
==>cryptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10917	11048	
==>he Rosetta::Model::Document Class

A Document object is a simple container which stores data to be used or
displayed by your program <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10917	11048	
==>he Rosetta::Model::Document Class

A Document object is a simple container which stores data to be used or
displayed by your program <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1063	1179	
==>eme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1063	1179	
==>eme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            re <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3796	3907	
==>$self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5156	5266	
==>$self->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1842	1996	
==>h;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quanti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1830	1984	
==>h;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" .
        "  my \$quanti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9575	9700	
==>ey );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9575	9700	
==>ey );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6964	7134	
==>d = 0 if /^=cut/;
                next if ($in_pod || /^=cut/);  # skip pod text
                next if /^\s*#/;               # and comments
                if ( m/^\s*p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15157	15269	
==>>force_object(anyof_class => upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10307	10447	
==>delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10307	10447	
==>delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	517	628	
==>b bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	517	628	
==>b bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	630	747	
==>undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else { <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	630	747	
==>undef;

sub find_description ( Str $description ) returns Str {
  if ( $description ) {
    $description;
  }
  else { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17978	18077	
==>ore than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
hav <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17978	18077	
==>ore than one uses the
same Engine class to implement it; that is, multiple DBMS objects will not
hav <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5694	5809	
==>rom {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_vers <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5176	5291	
==>rom {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_Unix->parse_vers <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19507	19602	
==><$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19507	19602	
==><$bot.channels>

Returns a list of channels the bot has joined. This is a readonly accessor, you <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8733	8858	
==>wnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8733	8858	
==>wnick = normalize $event<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %cha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5600	5706	
==>e a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we hav <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5600	5706	
==>e a expressed as
# number of seconds from now), so we don't provide an easy way to
# access it until we hav <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11944	12077	
==>::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11944	12077	
==>::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res";
 decode_entities($a);
 encode_entities($a, "\200-\377");

For example <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3898	4015	
==>duce its children one by one. First Param will
introduce a new symbol, $x, taking the 10 off the parameter stack and b <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5604	5718	
==>X::false !! JSX::true;
}
multi sub ToBoolean(JSX::Value::String $v) {
    ~$v eq "" ?? JSX::false !! JSX::true;
}
m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4472	4758	
==>hen 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4472	4758	
==>hen 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	333	440	
==>_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1861	1968	
==>_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4651	4749	
==>it(get_data($_[0], '$<key>'));
   return $var."->{".$key."}";
}
sub node::assign {
   my $var = emi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12575	12714	
==>g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warning <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12575	12714	
==>g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warning <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1302	1442	
==>if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1302	1442	
==>if @current;
    }
    
    return @return;
}

multi sub join_header_words(*@words) is export {
    join ', ', gather {
        for @words -> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1620	1738	
==>ue
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1620	1738	
==>ue
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special case: the whole match is a single c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5935	6123	
==>q $test->name      and
                $pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this    = $test;
                last <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1665	1788	
==>lation.pm
$config{'_meta_dir'}        = [ Path::Class::dir('_jib')            ];
$config{'_files_list'}      = [ Path::Class <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3543	3648	
==>t " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3543	3648	
==>t " ", $event<rest>;
      $topic = strip_colon($topic);

      %!channels{normalize $chan}<topic> = $topi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3001	3104	
==>aram()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3001	3104	
==>aram()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the value of the para <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4799	4931	
==>oto term_bx0; }
    else
    {
      if ( exists $escape{$initchar} )
      {
        if ( not $isnegated and (length $initchar < 2)) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	854	981	
==>= @_;
    return bit->new(0) 
        unless blessed($right) && $right->isa('symbol');
    return bit->new(1) 
        if $left- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12371	12481	
==>f($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $sel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12371	12481	
==>f($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12713	12858	
==>nt2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12713	12858	
==>nt2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2946	3057	
==>get) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A" <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2946	3057	
==>get) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23189	23302	
==>UGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 ROPT_TAINTED_SEEN 
 ROPT_UTF8 


=head1 Compilation

=head2 flags

=head1 Execut <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7463	7569	
==>mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Modifier")
    pos = mfrom
    lastpos = length target
    value = "1 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3825	3928	
==>ontext' ,'Cxt',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeg <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1898	2009	
==>ssing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_di <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1898	2009	
==>ssing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_file> and C<wanted_di <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1017	1130	
==>"What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule b <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1017	1130	
==>"What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule b <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1694	1839	
==>$?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1694	1839	
==>$?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Par <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5705	5797	
==>ental(lookbehind(R))       --> "(?<=", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_elemental <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8190	8319	
==>?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8202	8331	
==>?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::ru <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6641	6769	
==>$_ => 1)},
        <perl5 Perl5 P5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29673	29776	
==>ly.
(Partially done with new skip test styles)

Add option for coverage analysis.

Trap STDERR.

Impleme <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1848	1946	
==>one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
mult <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1848	1946	
==>one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
mult <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14793	14910	
==>".  Embedded "\n" characters in header field
values will be substituted with this line ending sequence.

=back

=head1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14793	14910	
==>".  Embedded "\n" characters in header field
values will be substituted with this line ending sequence.

=back

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20834	21095	
==>ation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21113	21374	
==>ation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10042	10184	
==>r $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10042	10184	
==>r $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self._head();
            $!seen_head <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18385	18478	
==>plit<Str>.assuming:delimiter(' ');

String delimiters must not be treated as rules but as cons <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3186	3450	
==>request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3186	3450	
==>request) {
                            #LWP::Debug::debug("   not a secure request");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::D <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9344	9458	
==>S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" goto quant_l <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	399	501	
==>ed(:all) {
  ## XXX - slurpy magic doesn't work too well presently ...
  $maketoken := { [ $^tok_label, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19788	19903	
==>$pkg;".$cc->as_p5;
    eval_p5_code($p5);
}
sub p6_eval_file {
    my($fn)=@_;
    my $cc = Perl6::Run::OnPerl5::X1: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1178	1297	
==>{
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1178	1297	
==>{
        type_check $.value.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expre <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9455	9619	
==>Za-z]:)/.*$Config{_exe}$}
            ) {

                # Smells like a Windows executable called from cygwin-land.
                # Keep it.

                $g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19742	19848	
==>eren't being turned off.  Fixed.

=back

=head2 0.02 -- July 1, 2004

=over 4

=item Better Abstracting

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	487	588	
==>sed: - the rule replaces the right side
# note: S06 - 'chain' can't be mixed with other types in the s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1000	1101	
==>r printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1000	1101	
==>r printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1200	1331	
==>.
        "\t{ \$_[0]->{out}= {fixity => 'postfix', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp ' <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1176	1279	
==>}
 our &Num::int ::= &Num::truncate;

 # XXX - referred to, but not specced, in S29.
 multi int(Num $x = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3851	3949	
==>e up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephrase, Con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3851	3949	
==>e up to Config::Simple, Config::General or one of the
many other Config:: modules. To rephrase, Con <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15661	15756	
==>r than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15661	15756	
==>r than `end` (the span is
emptied in this case).

- `start_is_open()` / `end_is_open()` / `start <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1566	1681	
==>nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

rege <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1566	1681	
==>nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

rege <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18053	18151	
==>R::<$_>, Int $limit = inf --> List )
 multi Str::split ( Rule $delimiter ,  Str $input = CALLER::<$ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1305	1435	
==>gex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1305	1435	
==>gex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5334	5470	
==>s_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method prev <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5334	5470	
==>s_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method prev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10316	10481	
==>_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10316	10481	
==>_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rose <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23716	23847	
==>qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20137	20268	
==>qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13322	13489	
==>sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0],
        };
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13322	13489	
==>sub end_of_string {
    return sub {
        return $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            tail  => $_[0],
        };
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25126	25282	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25405	25561	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3624	3806	
==>ontent {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be port <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3624	3806	
==>ontent {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be port <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3173	3273	
==>{
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3173	3273	
==>{
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$co <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3111	3233	
==>ne 'Dispatchable';
}
sub ref_flavor {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(! <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12008	12120	
==>"<a href='". abs2rel($syn_path, dirname($output_path)) . "#" .(0+$link) . 
                    "' id='" . (0+$lin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14278	14377	
==>:$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each st <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14336	14435	
==>:$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $diag)`

This will print each st <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	970	1088	
==>elf = shift;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_v <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6775	6886	
==>ed at $pugs).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	982	1107	
==>tr( $_[0], '$<ident>' );
    return "package $ident;\n" .
           "use base 'Pugs::Grammar::Base';\n";
}
sub node::rule_dec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5514	5622	
==>s defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5514	5622	
==>s defined %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<us <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6524	6629	
==>blings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6524	6629	
==>blings ($self: *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4984	5234	
==>rray::splice (       @array is rw 
                                 : Int $offset = 0,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$off <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1466	1571	
==>um $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced::e) ** $exponen <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20443	20540	
==>lapse
    for my $subdir (keys %{$dir_index->{_dirs}}) {
	my $val = $dir_index->{_dirs}->{$subdir} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27374	27462	
==>fine RX_MATCH_TAINTED(prog)	((prog)->reganch & ROPT_TAINTED_SEEN)
 #define RX_MATCH_TAINT <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1128	1215	
==>nterpreter> contains the tree reduction code.

L<Blondie::Backend::Perl::Builtins> conta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	758	962	
==>/;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	758	962	
==>/;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21483	21583	
==>ight seem strange to somebody who has not tried to port between
databases before, especially given th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21483	21583	
==>ight seem strange to somebody who has not tried to port between
databases before, especially given th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	811	944	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	778	905	
==>( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23873	23969	
==>heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28425	28521	
==>heading?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	602	742	
==>1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	699	839	
==>1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15984	16084	
==>mes, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15984	16084	
==>mes, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3942	4112	
==>f defined $matches[0]{state};

            }

            else {

                $succ = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3821	3985	
==>f defined $matches[0]{state};
            }
            else {
                $succ = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [] <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1423	1608	
==>{
        given $event {
            when "say_hello" {
                return "Hello, @args[0]!";
            }

            ...;
        }
    }
  }

  my $session = MySession.new;
  s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	75	175	
==>ata::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	75	175	
==>ata::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6712	6933	
==>=> $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newn <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6712	6933	
==>=> $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newn <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9356	9523	
==>w('$*OUT'),
                Val->new("(($_ ** $x) / ($_ ** ($x - 1)) = "),
                Val->new(''),
            ),
            App->new(
                Sym->new(' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24619	24705	
==>et(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag(E0,Flag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13517	13705	
==>non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13796	13984	
==>non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2808	2916	
==>n($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2808	2916	
==>n($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2582	2687	
==>\)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2582	2687	
==>\)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statemen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4108	4239	
==>rst look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4108	4239	
==>rst look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1935	2057	
==>es{$P};
        return JSX::false if $attr && $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1044	1143	
==>al "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;

	#export <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2040	2144	
==>_handler('\A' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "A", " in character class") if $cc <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5440	5748	
==>er_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5440	5748	
==>er_stack.pop();
                            # and end the event ...
                            %events<end_modifier>($token);    
                            $in_code = 0 if $token eq '`';                            
                        }
                        else {
                            # push <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	686	797	
==>*@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8593.
# Prim.hs defines this as List::kv. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6339	6443	
==>rimitive($v,'Number');
    my $Result2 = ToNumber($Result1);
    return $Result2;
}

# 9.4
multi sub ToIn <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8161	8261	
==>ys to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8161	8261	
==>ys to C<()>, but loop 
through them setting all the elements to 0.  In reality, most calls will be fo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1016	1121	
==>ethod set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1016	1121	
==>ethod set_width ($self: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14054	14173	
==>prim = shift;

    # the body is a code ref
    $self->enter_scope;
    my @params = $self->params;

    my $v = $prim-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36031	36127	
==>atch

Family: assertion

Types: ifmatch (C<(?=)>, C<< (?<= >>)

Data: array reference of any numb <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4972	5155	
==>l => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 tail => $2, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4818	4996	
==>l => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 tail => $2, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23540	23660	
==>ss, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23893	24013	
==>ss, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1008	1119	
==>= shift;
    @{ $self->{scopes} }
}

sub enter_scope {
    my $self = shift;
    unshift @{ $self->{scopes} }, [ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8955	9143	
==>( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8955	9143	
==>( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4220	4340	
==>r<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4220	4340	
==>r<TOPIC> = [-> $event {
    %channels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %ha <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3685	3797	
==>ERR "cleanup\n" if $debug;
      my $ops = $Z::oop{$id}{'ops'};
      my $var = $Z::oop{$id}{'var'};
      while( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4577	4680	
==>ed.
  --initrd-size=$initrd_size
    --initrd-size specifies the size of the (uncompressed) initrd (in K <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6646	6865	
==>he program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6646	6865	
==>he program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5373	5472	
==>ined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5373	5472	
==>ined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10769	10875	
==>h
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10769	10875	
==>h
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and these could potentially be e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4555	4688	
==>\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4543	4676	
==>\n$_[1] &&\n", @s ) . "\n$_[1] )";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    if ( $direction eq '+' ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7623	7739	
==>sechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7623	7739	
==>sechunks[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5033	5239	
==>_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5045	5251	
==>_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    if ( $name =~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7073	7169	
==>es(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7073	7169	
==>es(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $v <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2609	2743	
==>> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2609	2743	
==>> $cookie {
            #$cookie = ($cookie ~~ CGI::Cookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1732	1836	
==>⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1732	1836	
==>⊃» (Set $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6869	6997	
==>] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6869	6997	
==>] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8511	8653	
==>805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8511	8653	
==>805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836),
    "sube"     => chr(8838),
    "supe"     => chr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	335	453	
==>caller(4))[1];
    if (defined $file and $file !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8641	8754	
==>spect->{$_});
    print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
    $fail = 1;
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	801	916	
==>generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	810	925	
==>generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	219	364	
==>ck           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1100	1217	
==>ent of { x }" is expressed as
#     <!before x>
#     Such usage is tagged with #lookahead
#     If rules taking argum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5234	5367	
==>= length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5234	5367	
==>= length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	680	911	
==>1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    u <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	680	911	
==>1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    u <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5340	5449	
==>>class, $Foo, '... $iFoo refs to $Foo');

# try to call the Class method
fails_ok { $iFoo->name } '... instanc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	409	508	
==>ALSE;


=head1 NAME

Test::Harness::Straps - detailed analysis of test results

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21188	21290	
==>r tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25740	25842	
==>r tuples.

For purposes of the Relation class' API, a tuple is represented by a Perl
Mapping where each <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2214	2307	
==>http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2214	2307	
==>http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you want to read the
AES by using the C <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3758	3857	
==>stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_di <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3758	3857	
==>stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two_diff);
    say "Symm. diff: "~$symm_di <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1742	1884	
==>gs and edit the old
    config file by hand.

.
        open my $tpl, $config_template or die "open: $config_template: $!";
        my $tpl_str <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2222	2340	
==>meable executable objects
    Sub         Perl subroutine
    Method      Perl method
    Submethod   Perl subroutine a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	375	501	
==>.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	375	501	
==>.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23840	23961	
==>XEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iter <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29027	29127	
==>XEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iter <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6514	6654	
==>low compilation on
                # the module content; not the DATA section. Because we
                # want to make sure that the progra <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6514	6654	
==>low compilation on
                # the module content; not the DATA section. Because we
                # want to make sure that the progra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21550	21641	
==>abases before, especially given that the Perl DBI purports to provide
"Database Independence <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21550	21641	
==>abases before, especially given that the Perl DBI purports to provide
"Database Independence <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1026	1178	
==>ng ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1026	1178	
==>ng ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~= $escaping ?? '\{' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	979	1083	
==>self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	979	1083	
==>self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4695	4801	
==>shift;

	$self->reduce($val->struct_equiv->val);
}

sub add_definition {
	my $self = shift;
	my $node = shi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	263	372	
==>PP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	263	372	
==>PP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that big b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12169	12276	
==>[^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12169	12276	
==>[^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34097	34199	
==>preferred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34097	34199	
==>preferred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3470	3791	
==>ired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3470	3791	
==>ired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6032	6203	
==>substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6032	6203	
==>substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4028	4128	
==>nth => $month, day => $day )`

Returns a date object for the given values.  The month and day default <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4028	4128	
==>nth => $month, day => $day )`

Returns a date object for the given values.  The month and day default <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	208	321	
==>xport {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	208	321	
==>xport {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1434	1550	
==>ere
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_on <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19233	19334	
==>aram => val(v => "foo", t => type::operator::nullary->new("str")),
		),
	),
);

# if we don't know wha <==
2	/Users/nnunley/pugs/util/drift.pl	101	192	
==>Spec->catfile($Bin, "DrIFT$Config{_exe}");

-e "$Bin/../../DrIFT/src/DrIFT.hs" or exit;

# X <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3543	3643	
==>path (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, al <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3543	3643	
==>path (Str $_path) returns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, al <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4017	4155	
==>dist build src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @candidates, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39819	39919	
==>f the GNU Lesser General Public License (LGPL) as
published by the Free Software Foundation (L<http:/ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39819	39919	
==>f the GNU Lesser General Public License (LGPL) as
published by the Free Software Foundation (L<http:/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1393	1490	
==>, the current
time and the text they said is saved.

If the (optional) role parameter C<public> is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1393	1490	
==>, the current
time and the text they said is saved.

If the (optional) role parameter C<public> is <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1121	1224	
==>t the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivial securit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1121	1224	
==>t the ones 
corresponding to letters.

=head1 SECURITY

Caesar ciphers provide extremely trivial securit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23766	23859	
==>r
used multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23766	23859	
==>r
used multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2015	2160	
==>ll',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2015	2160	
==>ll',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which ma <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20697	20794	
==>clare any subroutines or export such.

The usual way that Relation indicates a failure is to throw <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25249	25346	
==>clare any subroutines or export such.

The usual way that Relation indicates a failure is to throw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8012	8110	
==>n, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8012	8110	
==>n, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	749	886	
==>. $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	742	879	
==>. $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23818	23945	
==>table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29006	29111	
==>table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1131	1265	
==>e>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1131	1265	
==>e>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7421	7511	
==>ition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1246	1336	
==>ition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17264	17404	
==>) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13685	13825	
==>) { $$ret = $S->$posix($neg, $how) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xg <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6183	6290	
==>()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_al <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6183	6290	
==>()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1648	1776	
==>adline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 ) <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1648	1776	
==>adline {
        $chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 ) <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	239	369	
==>"Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parame <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	239	369	
==>"Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $*ERR.say("Parame <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1955	2059	
==>th kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prer <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2835	2939	
==>th kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$prer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3442	3533	
==>l">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3626	3717	
==>l">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-class>
 <&var> 
 <%var> <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	185	300	
==>RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $* <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	185	300	
==>RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $* <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5990	6100	
==>()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5990	6100	
==>()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1703	1857	
==>ths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    re <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1703	1857	
==>ths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2559	2669	
==>tersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2559	2669	
==>tersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1706	1822	
==>> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1706	1822	
==>> [ <ws>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $< <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7120	7242	
==>ts HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7120	7242	
==>ts HTTP as the protocol.

=item (TODO) This module does not support proxies.

=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	378	487	
==>unction;

# for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUN <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	436	545	
==>unction;

# for running the test suite multiple times in the same process
$Test::testing_started = 1;

### FUN <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14958	15061	
==>verize the line down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1106	1193	
==>ion => $() } }
RULE
*{'meth_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6113	6219	
==>nce => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6113	6219	
==>nce => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	969	1134	
==>hen rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        inte <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	969	1134	
==>hen rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        inte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10062	10214	
==>ch;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10341	10493	
==>ch;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37987	38081	
==>ine's result, which is a Template text
string if the module recognizes $msg_key, and the undefi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37987	38081	
==>ine's result, which is a Template text
string if the module recognizes $msg_key, and the undefi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	73	182	
==>utput;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.out <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	73	182	
==>utput;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test::Builder::Output   $.out <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8719	8821	
==>pec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stev <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8719	8821	
==>pec::Win32, although this version is more
akin to File::Spec::Functions.

= AUTHOR

Stevan Little <stev <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7992	8126	
==>value.exists($P) {
        if $P eq 'length' { # 12-16
            my $Result12 = ToUint32($V);
            raise RangeError if $Result <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	804	920	
==>ut ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPlan' => <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	436	552	
==>\n";
#    # var
#    if (length $segil != 0) {
#	$segil =~ s/^([\$\%])/\\$1/;
#        return "\\synvar\{$segil$name$ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	46	167	
==>the very beginnings of a
# proof of concept.  A feasibility and performance reality check.
# Hopefully it will develop int <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17254	17371	
==>, but a
full "uppercase".


=item ucfirst

 multi Str::ucfirst    (  Str $string              --> Str )
 multi Str::uc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30455	30546	
==>ug ticketing system at L<http://rt.cpan.org/>.
You can also mail bugs, fixes and enhancement <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16508	16617	
==>d the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16508	16617	
==>d the new Node is also stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the ne <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	643	767	
==>my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	643	767	
==>my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12978	13077	
==>cognized
entities are left alone.

If multiple strings are provided as argument they are each decode <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12978	13077	
==>cognized
entities are left alone.

If multiple strings are provided as argument they are each decode <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3574	3680	
==>odo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module" <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3632	3738	
==>odo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $module" <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1409	1544	
==>ldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alt <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1409	1544	
==>ldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17938	18032	
==>thermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17938	18032	
==>thermore, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$bot.l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9208	9309	
==>{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9208	9309	
==>{$value} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14437	14540	
==>y the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14495	14598	
==>y the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so will it' <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1510	1608	
==>.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1350	1448	
==>.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1346	1460	
==>*rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This mod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1346	1460	
==>*rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This mod <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1335	1451	
==>File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $fi <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1335	1451	
==>File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $fi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10045	10150	
==>set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10045	10150	
==>set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1508	1605	
==>unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> environm <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1508	1605	
==>unexported C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> environm <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16151	16269	
==>pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Ru <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	91	192	
==>interface for all types

# conversion to native
sub to_native;

# conversion to other native types
sub <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	341	460	
==>dir '$meta' does not exist\n" unless -d $meta;
    
    my @list        = LoadFile( $Available ); 
    my @uninstalled = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6	102	
==>/bin/perl

use strict;
use warnings;

use Perl6::Runtime;

use Perl6::Core::Nil;
use Perl6::Core: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	29	128	
==>/Pugs/Internals.hs, `data Exp'

# this one doesn't translate so trivially.

type Noop;

# hmm, there <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	574	685	
==>number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	574	685	
==>number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6587	6764	
==>ol => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a lab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6587	6764	
==>ol => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a lab <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2646	2752	
==>::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2646	2752	
==>::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $class.new( items => [@i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5004	5165	
==>ze },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operat <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5004	5165	
==>ze },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6529	6646	
==>n1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Nu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6529	6646	
==>n1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Nu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4326	4460	
==>.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4326	4460	
==>.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2361	2472	
==>$args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4621	4732	
==>$args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	528	630	
==>seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	528	630	
==>seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15191	15293	
==>return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15191	15293	
==>return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my ($class, $digest <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1813	1914	
==>rocess described in README.

------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1653	1754	
==>rocess described in README.

------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3041	3138	
==>fer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3041	3138	
==>fer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	4084	4165	
==>nux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodControl <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	4084	4165	
==>nux-ip.net/gl/tcng/node62.html>,
L<Schedule::RateLimit>, L<Algorithm::FloodControl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1535	1656	
==>s;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    sub <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1535	1656	
==>s;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool $.is_lazy;

    sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1543	1695	
==>ed>;
say 1 < 2;

sub plan (Int $number_of_tests, :$x, $y? ) returns Void is export {
    say "1..$number_of_tests";
}

1 if 4; 2 if 5;
my $x = do <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30694	30792	
==>, which is why it must match the right parenthesis
itself.  The handler throws an error if it can't <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2101	2383	
==>}                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $v <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2101	2383	
==>}                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29752	29850	
==>n also set this attribute by passing a value.

=item my $q = $obj->qr()

The regex representation o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	490	599	
==>my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	490	599	
==>my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, nam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3064	3236	
==>WP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3064	3236	
==>WP::Debug::debug(" - checking cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	388	489	
==>urns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	388	489	
==>urns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1289	1392	
==>ad of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1289	1392	
==>ad of copying the whole string to $tail every time

# XXX - weaken self-referential things

sub alternat <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22235	22431	
==>me
    inc $I0
    pad["subpats"] = $I0

  end:
    .return (self)
.end

.namespace [ "PGE::Exp::WS" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $ <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1678	1814	
==>ata = (
  [ 0..@commits_till_day ],              # Day#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7058	7199	
==>end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7058	7199	
==>end of Pugs::Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1226	1324	
==>tions.

=head1 CONSTRUCTS

=head2 Base ADTs

All nodes as well as a few other objects are implement <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30659	30757	
==>g>.  The new Relation has all of the tuples of the
original (or rather, the corresponding transform <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35210	35308	
==>g>.  The new Relation has all of the tuples of the
original (or rather, the corresponding transform <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2917	3046	
==>ult1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Ge <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3462	3591	
==>ult1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Ge <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1360	1447	
==>ilable at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1200	1287	
==>ilable at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6448	6551	
==>et {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.differe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6448	6551	
==>et {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.differe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9710	9812	
==>d _head() returns Array { return }
method _tail() returns Array { return }

# What we implement for the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9710	9812	
==>d _head() returns Array { return }
method _tail() returns Array { return }

# What we implement for the <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9022	9162	
==>ll {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9022	9162	
==>ll {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $co <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2186	2284	
==>dy>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
y <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2186	2284	
==>dy>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different properties,
y <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2410	2528	
==>s)=@_;
        my @args = splice(@$var,-2,2);
        my $oper = pop(@$ops);
        my $nont = $oper->make_node_with_a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7207	7315	
==>digits_int(I1), {I is I1 - 1},
  {I1 \= 0}, {(I1 =< 9; fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_conditi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14146	14289	
==>p = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $pre <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14146	14289	
==>p = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21734	21852	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18155	18273	
==>>{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => -1);
  });

  # suspend
  $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6249	6432	
==>icate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9726	9909	
==>icate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1016	1143	
==>spatch($event, *@args);
      $result;
    });
    
    # And enter the runloop again.
    ./:step(); #/#--vim
  }
}

class POE: <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8051	8147	
==>_pkg

Assert that we have F<ghc_pkg> installed.  This caches its result,
any further calls to ghc <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	30	152	
==>use File::Copy;
use Config;
use Cwd;

$| = 1;

my $cwd = cwd();

rmtree($testdir);
mkdir($testdir);
die "Could no <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10716	10828	
==>>new($code_args)";
    my $code = $code_val;
    if($kind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26749	26848	
==>et from the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26749	26848	
==>et from the named parameter
$msg_key (a string); the optional named parameter %msg_vars (a hash ref) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7106	7213	
==>for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7106	7213	
==>for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'le <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1630	1730	
==>y @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @length <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1630	1730	
==>y @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @length <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	579	742	
==>body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	579	742	
==>body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23502	23668	
==>( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23781	23947	
==>( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14977	15070	
==>_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=bac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14977	15070	
==>_entities_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=bac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1393	1520	
==>ool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1393	1520	
==>ool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5521	5629	
==>Type') when you are accessing the web using this
function.  If you need that information you should use the f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5521	5629	
==>Type') when you are accessing the web using this
function.  If you need that information you should use the f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1387	1502	
==>an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are e <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1387	1502	
==>an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1145	1253	
==>control = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connecte <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1145	1253	
==>control = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connecte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2772	2905	
==>lags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2912	3045	
==>lags->{p} 
            : $rule->{p};

    if ( defined $p ) {
        #print "flag p";
        #print "match: grammar $rule->{grammar} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6553	6659	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6553	6659	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3454	3576	
==>nt
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3454	3576	
==>nt
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grave accent
    "uuml"     => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3300	3391	
==>rint_ast,
		print_program => $interface::print_program,
		print_match => $interface::print_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3517	3608	
==>rint_ast,
		print_program => $interface::print_program,
		print_match => $interface::print_m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1914	2039	
==>as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1914	2039	
==>as expected,]
           ~ q[ but the value for its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	695	813	
==>vocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	695	813	
==>vocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocations = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7084	7229	
==>lete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5585	5730	
==>lete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	822	1069	
==>p::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	823	1070	
==>p::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   rule <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21128	21234	
==>ession> <');'>
    | <'while'> <'('> <Expression> <')'> <Statement>
    | <'for'> <'('> <ExpressionNoIn>? < <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4848	4949	
==>('Ref',@_)}
sub p6_Pair {p6_new('Pair',@_)}
sub p6_Array {p6_new('Array',@_)}
sub p6_Hash {p6_new('Has <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23557	23649	
==>guage>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23557	23649	
==>guage>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Roset <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1346	1450	
==>G>s. Each time people say something (in public), the current
time and the text they said is saved.

If th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1346	1450	
==>G>s. Each time people say something (in public), the current
time and the text they said is saved.

If th <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	277	381	
==>File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	277	381	
==>File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4885	5024	
==>{
        $srcfile = $arg;
        local $/;
        open my $f, $srcfile or die "Could'nt open file $srcfile";
        $src = <$f>;
    }
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11695	11815	
==>>add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4338	4458	
==>>add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	171	280	
==>rations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove " <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	171	280	
==>rations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove " <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3048	3142	
==>exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5250	5344	
==>exist in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15343	15441	
==>ten to it should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorpo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15343	15441	
==>ten to it should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorpo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9408	9504	
==>ook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,undef,undef,1,2,1,2],[1,undef,u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8552	8655	
==>nguage

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also describes the s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8552	8655	
==>nguage

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also describes the s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3357	3480	
==>am<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        el <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3357	3480	
==>am<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        el <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3460	3665	
==>line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) { <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3460	3665	
==>line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3804	3941	
==>s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3804	3941	
==>s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5964	6076	
==>>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5964	6076	
==>>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This program is free software <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16937	17109	
==>s a failure

  exit              the exit code of the test run, if from a file
  wait              the wait code of the test run, if from a file

  max               total t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3403	3559	
==>UB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9024	9191	
==>al:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9859	10026	
==>al:\n\", \$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4603	4770	
==>pdir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4603	4770	
==>pdir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	195	396	
==>constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	196	397	
==>constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( "\+ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	573	775	
==>constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	574	776	
==>constant( "\[" )
                 ,
                   ruleop::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2364	2479	
==>.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @t <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2364	2479	
==>.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module_name =~ s/[\-\.]/_/g;

    my @t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7186	7397	
==>eop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7379	7590	
==>eop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11146	11256	
==>} )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11146	11256	
==>} )
        if $val eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14715	14832	
==>pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{` <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14715	14832	
==>pmc_fold_comment {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{` <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	87	183	
==>:Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	87	183	
==>:Grammar::Perl6;

use Pugs::Compiler::Rule;
use base Pugs::Grammar::Base;

*parse = $rule->compil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15112	15221	
==>igest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand fol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15112	15221	
==>igest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand fol <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	351	474	
==>r::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	351	474	
==>r::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5950	6103	
==>return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5950	6103	
==>return/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12680	12771	
==><lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12680	12771	
==><lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7897	8002	
==>dling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 F <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7897	8002	
==>dling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 F <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2856	2970	
==>dir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        sh <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2856	2970	
==>dir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0] eq @basechunks[0] or last;
        sh <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1238	1366	
==>per use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent mo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1238	1366	
==>per use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent mo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12895	13001	
==>d livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12895	13001	
==>d livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autoping se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	699	804	
==>ce(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	699	804	
==>ce(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize($nick) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1426	1537	
==>DOC ../perl6_doc
      or
    svn co $_PERL6_BIBLE ../Perl6-Bible

  Strategy:
    Iterate through all tests fir <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1322	1418	
==>ing dynamic scopes (not really a reduer).

=head1 SYNOPSIS

    use base qw/Blondie::Reducer::Dyn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5194	5352	
==>l >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5194	5352	
==>l >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4646	4750	
==>($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4646	4750	
==>($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8416	8522	
==>rator to the category.

options:

=item * name => $operator_name - the name of this operator, such as ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5956	6058	
==>rator to the category.

options:

=item * name => $operator_name - the name of this operator, such as ' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13697	13807	
==>%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13697	13807	
==>%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => "@", nbsp => "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36976	37105	
==>X&Y = match Y if match X at the same place
    $self->add_handler('&' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3846	3961	
==>t_dirs\n";
} else {
    print "Tests                 : Processing tests from tests.yaml\n";
}
print "Output director <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18499	18615	
==>d1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18499	18615	
==>d1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6406	6497	
==>ers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6406	6497	
==>ers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1155	1264	
==>terfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1155	1264	
==>terfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), retrieving i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5006	5147	
==>=> $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5006	5147	
==>=> $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19134	19241	
==>);

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19134	19241	
==>);

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Do <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	884	1014	
==>{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2719	2840	
==>{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1974	2117	
==>k because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say(" <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1974	2117	
==>k because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say(" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4128	4328	
==>ode's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4128	4328	
==>ode's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosett <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3670	3814	
==>n} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9038	9134	
==>ame terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9038	9134	
==>ame terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <enciphering deciphering> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	42	131	
==>gs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	42	131	
==>gs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1929	2076	
==>e( $meta_dir .'/'. $Metafile );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $Available );
                for <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	674	766	
==>lass JSX::Value is JSX::PseudoValue;
class JSX::ValuePrimitive is JSX::Value;
class JSX::Valu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1077	1171	
==>iler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1077	1171	
==>iler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	545	669	
==>r contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	545	669	
==>r contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11806	11930	
==>erver and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11806	11930	
==>erver and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6660	6765	
==>=> -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6660	6765	
==>=> -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param, spa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9992	10103	
==>th = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns I <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9992	10103	
==>th = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_index ($self:) returns I <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2544	2668	
==>ed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the resu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2544	2668	
==>ed, then 
    # we return undef, ...
    return undef unless $!success;
    # otherwise we return the 
    # last in the resu <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1399	1499	
==>symmetrical => $^b },
		{ $^a.round_half_even },
		{ $^a.round_half_odd },

#		{ $^a.round_half_alter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18587	18696	
==>'nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19945	20054	
==>'nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	620	705	
==>--------------------------------------------------------------------
## private method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	620	705	
==>--------------------------------------------------------------------
## private method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1947	2162	
==>re <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2194	2409	
==>re <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'before';
        
    rule after {
        \< after <?ws <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2593	2701	
==>tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2593	2701	
==>tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	628	766	
==>s/\n(?!#)/\n# /g;
            print {_('$.output')} $message, "\n";
        },
        'diag' => sub {
            my ($self, $message) = @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	634	758	
==>er>.

- Captures need an internal 'counter', see the ratchet version for an implementation
and tests.

- Quantified matc <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2850	2948	
==>alue.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) to <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2850	2948	
==>alue.

=item count(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2156	2261	
==>empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2156	2261	
==>empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2977	3106	
==>05 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


re <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2977	3106	
==>05 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12477	12583	
==><gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12477	12583	
==><gt>= $set2)>

=head2 C<$set1 ⊇ $set2>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19571	19690	
==>ld;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15992	16111	
==>ld;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	618	746	
==>one Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4096	4224	
==>one Yet)

    # Attributes of every Relation object:
    has Set of Str $!heading;
        # Set of Str
        # Each Set member <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4878	4975	
==>udo) methods for Config::Tiny objects. These
methods can be called with the following syntax:

  $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4878	4975	
==>udo) methods for Config::Tiny objects. These
methods can be called with the following syntax:

  $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1221	1336	
==>';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1221	1336	
==>';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class Perl::Compiler::PIL::PILLit <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	163	274	
==>hat stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	163	274	
==>hat stringify doesn't show all elements  '
    * set_start / set_end

=cut

class Span::Code-0.01
{
    has Recu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12018	12141	
==>-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12018	12141	
==>-07-20]    6 days

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7832	7927	
==>f_range;
}
{
  package Regexp::Parser::anyof_class;
}
{
  package Regexp::Parser::anyof_close;
} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	297	399	
==>Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	297	399	
==>Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4969	5146	
==>tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 }, 

                 ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4815	4987	
==>tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 }, 
                 ta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2114	2256	
==>---
## some metamodel tools

=pod

sub *WALKMETH (block &dispatcher, symbol $label, hash %opts) returns method {
    while (my $current = &disp <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	485	596	
==>am::import { }

sub node($h,$t) { return [$h, $t] }

sub head($s) { $s.[0] }

sub tail(Array $s) {
  $s.[1] = $s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4961	5060	
==>ata and returns it as an array of bytes, 
then clears the object's internal state.  This should be c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4961	5060	
==>ata and returns it as an array of bytes, 
then clears the object's internal state.  This should be c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	114	222	
==>o a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	114	222	
==>o a Set role, and a Set::Hash and
# Set::Junction module.

sub set (*@contents) returns Set is export {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8986	9089	
==>t::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for per <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9044	9147	
==>t::testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26080	26180	
==>TY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  Howeve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26080	26180	
==>TY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  Howeve <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12049	12167	
==>{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12049	12167	
==>{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method h <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1824	1930	
==>hod today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

meth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1824	1930	
==>hod today () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

meth <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1609	1725	
==>ompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2271	2387	
==>ompanying .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7639	7789	
==>];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7639	7789	
==>];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2056	2160	
==>ist = emit( get_data( $_[0], '$<params>' ) );
    return "$ident($list)";
}
sub node::sub_call {
    my $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	649	746	
==>duration);
#}

#method infix:<+>($self: Duration $duration) returns Date {
    #$self.add($duratio <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1339	1508	
==>self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return T <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1339	1508	
==>self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return T <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	18	124	
==>-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub se <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	18	124	
==>-0.0.1;
use v6;

sub server_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7907	8038	
==>ule BooleanLiteral {  # see 7.8.2
      <'true'>
    | <'false'>
}
rule NumericLiteral {  # see 7.8.3
      <DecimalLiteral>
    | < <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7675	7791	
==>ersion =~ /^6\.4(?:\.0)?$/) {
        $unicode_c = 'src/UnicodeC.c';
    }

    my $perl5_c = '';
    if (grep /^-DPU <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24881	24972	
==>ag_m(E0,m,E1), !.
set_flag(E0,-m,E1) :- set_flag_m(E0,-,E1), !.
set_flag(E0,s,E1)  :- set_fl <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23018	23130	
==>aram => val(v => "foo", t => type::operator::nullary->new("str")),
				),
			),
		),
	),
);

my $map = let(
    i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4555	4646	
==>me conflict. sigh.

# some abbreviations for p6_new('Foo')
sub p6_Undef {p6_new('Undef',@_)} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18643	18745	
==>-coded into your application or package, with one or more
text strings to show human users.  This assoc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18643	18745	
==>-coded into your application or package, with one or more
text strings to show human users.  This assoc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	625	755	
==>!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	625	755	
==>!members.defined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = a <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13018	13141	
==>rd_mnt/lib/" . basename $_;
        chmod 0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step
    descr  => "Copy <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2638	2857	
==>(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2638	2857	
==>(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8128	8336	
==>)))
                                }))) 
                    ($e get ("$method"))                        
             }))))

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        clo <==
2	/Users/nnunley/pugs/util/package-osx.pl	1205	1311	
==>an3/history.3
        /usr/local/lib/libreadline.a
        /usr/local/lib/libhistory.a
    );
}
if ($bundle <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4078	4200	
==>ct for the given values.  The month and day default
to 1 if not given.

The value for day can also be the string "last", in <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4078	4200	
==>ct for the given values.  The month and day default
to 1 if not given.

The value for day can also be the string "last", in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4363	4527	
==>,
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4363	4527	
==>,
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9052	9178	
==>{ runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9245	9371	
==>{ runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: " <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	359	457	
==>R, $name );

=head1 DESCRIPTION

A simple assert routine since we don't have Carp::Assert handy.

B <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9919	10018	
==>n @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

mu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9919	10018	
==>n @tail;
}
method finishstr(Cipher $self:) returns Str {
    return stringify($self.finish());
}

mu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17063	17158	
==>uld not be possible if its
functionality was subsumed into a larger package that would otherwise <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17063	17158	
==>uld not be possible if its
functionality was subsumed into a larger package that would otherwise <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2633	2766	
==>$base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading comp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2633	2766	
==>$base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading comp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7174	7297	
==>than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7174	7297	
==>than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density if $start != - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1082	1212	
==>to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [] <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1082	1212	
==>to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num //= [] <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1005	1115	
==>?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# fr <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1005	1115	
==>?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# fr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12994	13095	
==>the next value.
The unit specifier is also used internally when joining two spans, and when getting th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12994	13095	
==>the next value.
The unit specifier is also used internally when joining two spans, and when getting th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1135	1274	
==>ookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1135	1274	
==>ookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5586	5703	
==>t_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes} <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5586	5703	
==>t_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26597	26698	
==>w( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Message object <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26597	26698	
==>w( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedText::Message object <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2556	2686	
==>ompiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2556	2686	
==>ompiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	781	889	
==>atch;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $match = $rpc_rule->match($str)  for 1.. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18008	18106	
==>it easily in its conditional logic, using a simple 'equals', and then the
application can "do the r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18008	18106	
==>it easily in its conditional logic, using a simple 'equals', and then the
application can "do the r <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11955	12054	
==>ftsep num"><tmpl_var name=percentage>&nbsp;%&nbsp;ok</td>
	    <tmpl_loop name=summary>
	      <td c <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	328	444	
==>ib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	328	444	
==>ib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $src) or <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8589	8695	
==>e if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8589	8695	
==>e if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4489	4614	
==>:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4489	4614	
==>:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.p <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5564	5662	
==>ennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

St <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5564	5662	
==>ennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

St <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40566	40666	
==>TY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40566	40666	
==>TY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40248	40354	
==>sions of Locale::KeyedText that you modify and distribute must carry
prominent notices stating that you cha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40248	40354	
==>sions of Locale::KeyedText that you modify and distribute must carry
prominent notices stating that you cha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1865	1965	
==>d

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  Th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1865	1965	
==>d

C<mark($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  Th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2819	2963	
==>ompiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2819	2963	
==>ompiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Perl::Compil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	235	353	
==>_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blon <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	308	426	
==>_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $digest => Blon <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12588	12685	
==>tch", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::EnumCharList")
    lastpos <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39999	40234	
==>, 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ),          
            sub {
                my $e = shift;
                $e->get('%params') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19548	19774	
==>, 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'nil'
            ), 
            sub {
                my $e = shift;
                $e->get('%params') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6055	6443	
==>t")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7817	8205	
==>t")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                }))) 
                    ($e get ("$metho <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1124	1233	
==>rs:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a parameter).  If the pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1124	1233	
==>rs:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a parameter).  If the pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	451	560	
==>{ p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	483	592	
==>{ p=>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $pa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4644	4796	
==>modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anyth <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4644	4796	
==>modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anyth <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15574	15684	
==>"";

    $ml = "\r$blank\r$leader"
      if -t STDOUT and not $ENV{HARNESS_NOTTY} and not $Verbose;

    return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28013	28118	
==>s_empty) and 
     ($self: set_attr ((symbol new @:MRO) ($self: send (_merge)))) 
    ($self: get_attr (sy <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	466	592	
==>ints earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	466	592	
==>ints earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12467	12619	
==>ost.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12467	12619	
==>ost.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI: <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	455	576	
==>>new(@_);

    if (not -f $self->{file}) {
        require Cwd;
        die << ".";
*** Error: $self->{file} does not exis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13201	13311	
==>t
  my ($num, $fmt) = $parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier unexpected on zero-lengt <==
2	/Users/nnunley/pugs/util/package-osx.pl	8386	8483	
==>Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man3/Pugs::Doc:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	125	213	
==>LUDE;
package Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Gra <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1411	1618	
==>"\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1411	1618	
==>"\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	745	917	
==>.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./injec <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	745	917	
==>.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./injec <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	716	831	
==>:prompt;
    }
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_args} ||= {});
    %$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	433	562	
==>cs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9851	9980	
==>cs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2222	2369	
==>,
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2427	2574	
==>,
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return ::create_opaque_instance(\$class, %attrs <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	433	548	
==>hed: $a is now < -100'
}
while ($still_running) {
    say $a;
    sleep 1;
    atomically { $a++; }
}
$thr1.join;
$t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	285	400	
==>bols } $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    ) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2894	3008	
==><data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2894	3008	
==><data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3469	3580	
==>) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3469	3580	
==>) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  return $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4575	4702	
==>less ( $args{path} ) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$arg <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2317	2442	
==>less ($args{path}) {
        $args{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$arg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	945	1190	
==>:Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained refere <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	945	1190	
==>:Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contained refere <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3238	3354	
==>R'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3238	3354	
==>R'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2806	2903	
==>= $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2806	2903	
==>= $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13759	13865	
==>.2s

=item RPe_SEQINC (-9)

Sequence (? incomplete

=item RPe_UQUANT (-10)

Useless (%s%s) -- %suse /%s mod <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	863	965	
==>$prog = shift;

    $self->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Bl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5150	5258	
==>) ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5343	5451	
==>) ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4052	4160	
==>> $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4052	4160	
==>> $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recurrence.complement, span => $span1 );

    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6624	6733	
==>mar::Match) contain:



### Match actually contain getters for $() and such

### getters need to know what you <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6402	6508	
==>mar::Match) contain:

### Match actually contain getters for $() and such
### getters need to know what you <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2434	2531	
==>uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2434	2531	
==>uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2240	2383	
==>_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $config->repo_pool <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1590	1704	
==>L::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2857	2971	
==>thod previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2857	2971	
==>thod previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	802	908	
==>rue if this class supports PMC compilation.
#
# The hope is that this will allow interoperability with modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	802	908	
==>rue if this class supports PMC compilation.
#
# The hope is that this will allow interoperability with modu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9774	9877	
==>ce( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9774	9877	
==>ce( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4854	4984	
==>ed, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have on <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4854	4984	
==>ed, and should die
                (+@modifier_stack) || die "Unbalanced close modifier (>) found";
                # if we have on <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23582	23723	
==>result = ();
    my @canon = ();
    my $min;
    my $last = $min = shift @failed;
    my $canon;
    if (@failed) {
        for (@failed, $fa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	730	840	
==>e of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a speci <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	730	840	
==>e of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a speci <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20387	20486	
==>should only use Example
for testing, development, and study; you should not use it in production.

F <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20387	20486	
==>should only use Example
for testing, development, and study; you should not use it in production.

F <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4642	4780	
==>ray::pop ( --> Scalar ) {
   pop CALLER::<@_>;
 }


 multi Array::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	498	608	
==>ef, $tree, $tree )) if $ENV{DEBUG_lrep};
	Pugs::Runtime::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], u <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1989	2087	
==>64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset num of num128 where { tru <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8349	8482	
==>ong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(88 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8349	8482	
==>ong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(88 <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9518	9638	
==>"system: [%s]: $!", join " ", @_);
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    op <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15611	15711	
==>ting to store Kanji in a Byte uplifted to an LChar).

Attempting to use a string at a level lower tha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5836	6012	
==>path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5836	6012	
==>path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13210	13370	
==>1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13204	13364	
==>1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1314	1419	
==>ers,
);

# Make alternative representations of @header_order.  This is used
# for sorting and case matchin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1314	1419	
==>ers,
);

# Make alternative representations of @header_order.  This is used
# for sorting and case matchin <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	460	604	
==>metadata
    my $path = basename($archive);
    $path    =~ s/$Ext$//;

    ### check if it is already installed
    {   my @list = LoadFile( $Av <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2611	2698	
==>ription = Class::Events::Subscription::Named.new(:name($name), :subscriber($subscriber), <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	801	901	
==>ch was the objective.

# Interest was expressed in developing this into a cpan module for
# real use. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19819	19915	
==>if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19819	19915	
==>if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after login, so it can give <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43033	43127	
==>Go to L<Relation> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This document <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	930	1024	
==>HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	930	1024	
==>HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2461	2628	
==>compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2461	2628	
==>compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4364	4454	
==>tance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4614	4704	
==>tance method.  Returns a L<Pugs::Runtime::Match> object (or L<Pugs::Runtime::Match::Ratchet <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9344	9634	
==>dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10821	11111	
==>dependencies
        my $satisfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1069	1198	
==>g_default;
    my $stream;
    
    if (!-e $filename) {
        require File::Copy;
        File::Copy::copy ($config_template, $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5559	5664	
==>h(@nodes,$o);
        push(@{$nodes_of_type{$type}},$o);
    }
}
BEGIN{&init();}

package PIL::PIL1::NodeS <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11212	11362	
==>ts   = $9;
      $rest        = $10;
      
      $linkfile = $1 if ($linkfile =~ /^"(.*)"$/);
 
      if ($linkfile =~ /^http/) {
        $output .= " <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2036	2154	
==>ontent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2036	2154	
==>ontent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13803	13912	
==>sistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.pu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13803	13912	
==>sistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_as_hash();
    MyPersist.pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	9	108	
==>on/p6rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-regex parse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	9	106	
==>on/p6rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-regex parse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2147	2261	
==>atements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2147	2261	
==>atements, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1371	1467	
==>ameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-88 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1371	1467	
==>ameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-88 <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	234	346	
==>nce of POE::Kernel."
      if defined $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pus <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1230	1324	
==>N

This document describes version 0.03 of re::override, released
March 12, 2006.

=head1 SYNOP <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1143	1282	
==>ime
sub alternation {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6322	6431	
==>ing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6322	6431	
==>ing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	51	153	
==>!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	51	153	
==>!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $event<obje <==
2	/Users/nnunley/pugs/util/package-osx.pl	8626	8741	
==>st, %change_files) = @_;
    for my $orig (keys %change_files) {
        my $dirs = $change_files{$orig};
        $d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12808	12905	
==>any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12866	12963	
==>any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$todo, Str : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5874	6029	
==>ch = { %$match };

        $new_match->{capture} = [ { $label => $match->{capture} } ];

        return $new_match;

    }

}



=for capture

At runtime, t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5688	5836	
==>ch = { %$match };
        $new_match->{capture} = [ { $label => $match->{capture} } ];
        return $new_match;
    }
}

=for capture
At runtime, t <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1564	1772	
==>>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_eleme <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1564	1772	
==>>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_eleme <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3514	3650	
==>{distribution_type} ||= 'module';
    $values{name}              ||= do {
        my $name = $values{module_name};
        $name =~ s/::/ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10394	10489	
==>> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg(word <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10792	10895	
==>+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the inform <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10792	10895	
==>+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the inform <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	594	713	
==>unboxed



* AST Abstract syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	565	678	
==>unboxed

* AST Abstract syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1397	1547	
==>th = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1397	1547	
==>th = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req_path) if $req_path <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1004	1114	
==>le;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1004	1114	
==>le;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3400	3498	
==>ected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3458	3556	
==>ected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2683	2792	
==>rchive_control'}  = [ 'control.tgz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'preinst' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	496	593	
==>ease also declare whether the function can be used in a safe
context (such as the IRC evalbot) usi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21955	22197	
==>p::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22234	22476	
==>p::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17615	17709	
==>d.>

=item $h.user_agent

This header field is used in request messages and contains informatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17615	17709	
==>d.>

=item $h.user_agent

This header field is used in request messages and contains informatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9869	9968	
==>::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9033	9201	
==>\$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9868	10036	
==>\$perl5 if \$\@; \n" .
                "    die \$@ if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1166	1271	
==>rn $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use Dat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1166	1271	
==>rn $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use Dat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3040	3137	
==>dy === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6517	6614	
==>dy === $?SELF!body;
}

method not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17719	17853	
==>g a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This word is banned in Perl 6.  You must specify units.

=item index 

Needs to b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1852	1952	
==>st->new(values %native);
}

sub length { (shift)->keys->length }

sub exists {
    my ($self, $key) = <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4704	4828	
==>, 'file';  -->  our $f = open 'file';

    sub { $self->blah }         --> sub { $.blah };
    sub my_sub { $self->blah }  -- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16740	16827	
==>EqualityExpressionNoIn> <'==='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	772	872	
==>infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	772	872	
==>infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# com <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8467	8601	
==>ES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8467	8601	
==>ES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6172	6303	
==>( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6172	6303	
==>( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2084	2180	
==>y $to = shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blond <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10016	10128	
==>pan0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10016	10128	
==>pan0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.comp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2138	2280	
==>dex_file
                    ? file($index_file)
                    : $obj->index->file($config->repo_index_file)
        ));
        $obj->po <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12022	12130	
==>placement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12022	12130	
==>placement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1241	1334	
==>@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alter <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1241	1334	
==>@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alter <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	251	358	
==>aking a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATE <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	251	358	
==>aking a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATE <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9687	9783	
==>east one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set cont <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9687	9783	
==>east one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set cont <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2290	2442	
==>rt_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2290	2442	
==>rt_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	897	996	
==>as matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $hi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	897	996	
==>as matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $hi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	667	825	
==>y[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        fo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	667	825	
==>y[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1429	1680	
==>face::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1429	1680	
==>face::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	919	1057	
==>s, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	919	1057	
==>s, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rul <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1004	1133	
==>$buf ~= $i
        if defined $i;

      my @newtoks = $split.($buf);
      while +@newtoks > 2 
         || +@newtoks && !defined <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	133	245	
==>self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    retu <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	133	245	
==>self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6122	6223	
==>kg_type = "" if $pkg_type eq $pkg_this;
	$used{$pkg_type}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7351	7480	
==>Str, Str, Int)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str)\
\\n   List      pre     split   safe   (Pugs <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11656	11758	
==>of_line([10])  --> [10], !.
rest_of_line([C|T]) --> [C], rest_of_line(T).
rest_of_line([]).


p6_octide <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4240	4349	
==>grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4240	4349	
==>grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16071	16161	
==>ters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16129	16219	
==>ters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13103	13203	
==>=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13161	13261	
==>=== A Note about TODO-ing tests

Sometimes a test is broken because something is not implemented yet. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23008	23118	
==>looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other packages like "gett <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23008	23118	
==>looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other packages like "gett <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30226	30327	
==>d
to Message Variables, which will be substituted at run-time before the text
is shown to the user.

E <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30226	30327	
==>d
to Message Variables, which will be substituted at run-time before the text
is shown to the user.

E <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	605	716	
==>/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Ex <==
2	/Users/nnunley/pugs/util/run-smoke.pl	231	330	
==>st::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $failed;

You don' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2709	2804	
==>a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Ret <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2709	2804	
==>a default
implementation exists, too.

=over

=item B<source>

=item B<source($new_source)>

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2947	3356	
==>e::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Var <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2947	3356	
==>e::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Var <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1993	2120	
==>ests

my $env = Env->new(
    stub (
        '&ternary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8016	8123	
==>= each %$suspect) {
    # Force a hash recompute if this perl's internals can cache the hash key.
    $key = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5674	5796	
==>x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5674	5796	
==>x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7998	8136	
==>turn_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8010	8148	
==>turn_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4762	4888	
==>children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4762	4888	
==>children[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2257	2394	
==>ammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2257	2394	
==>ammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub
    {
 $_[0] + $_[1]     }
    ;
    push @grammar1::ops, ::compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3590	3839	
==>($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3590	3839	
==>($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was empty
                                $found+ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1001	1090	
==>orkaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1001	1090	
==>orkaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5335	5442	
==>h = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5335	5442	
==>h = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5786	5895	
==>turn '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5786	5895	
==>turn '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	501	627	
==>.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	501	627	
==>.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2637	2752	
==>my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE) <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2637	2752	
==>my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2205	2322	
==>method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2205	2322	
==>method as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1423	1524	
==>JECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to clo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1423	1524	
==>JECT, ">$obj") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to clo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15600	15830	
==>uleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15879	16109	
==>uleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2619	2725	
==>}
rule ws_input {
      <WhiteSpace>
    | <LineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	855	973	
==>tching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1061	1179	
==>tching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict ' <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	36	145	
==>-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration construc <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	36	145	
==>-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration construc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12029	12149	
==>};

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INV <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12029	12149	
==>};

    if %!handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INV <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	83	192	
==>gs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	83	192	
==>gs::Runtime::Match';
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \& <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16219	16319	
==>You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    packa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16219	16319	
==>You get the following benefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    packa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19476	19590	
==>6analyze(pad)
    self[1] = exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4684	4784	
==>ACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4684	4784	
==>ACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd retur <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2805	2937	
==>hr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		la <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	413	561	
==>rn Pugs::Runtime::Match->new( { 
        bool  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { s <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2915	3026	
==>upload: 1 
    to your config.yml file if you want the reports to be uploaded
    automatically.
EOF
}
sub uploa <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	412	532	
==>fe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	412	532	
==>fe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $pattern = ($negate) ?? "([^$u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	19398	19541	
==>lsif( !$rslt ) {
            my $ref = ref $object;
            $diag = "$obj_name isn't a '$class' it's a '$ref'";
        }
    }

    _ok( !$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	975	1129	
==>en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	975	1129	
==>en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	369	480	
==>pile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	466	577	
==>pile( $rul );
#print $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg" <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5280	5384	
==>nting the configuration data

=item write

The C<write> method the file for the properties, and writes it <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5280	5384	
==>nting the configuration data

=item write

The C<write> method the file for the properties, and writes it <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10496	10604	
==>-I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

= <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10496	10604	
==>-I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7007	7161	
==>ld', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7007	7161	
==>ld', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6204	6345	
==>rray[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4706	4847	
==>rray[$i] = @array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1861	2029	
==>:CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.cl <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1861	2029	
==>:CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.cl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1554	1662	
==>l::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1554	1662	
==>l::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	253	387	
==>&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	253	387	
==>&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new {
    my ($class, $match) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2777	2913	
==>" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@$grammar1::ops, ::compile_rule( '" .
            quotemeta( $fix <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	100	209	
==>ON);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# Ho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	100	209	
==>ON);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# Ho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	245	409	
==>H_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_disca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	245	409	
==>H_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_disca <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1003	1099	
==>ion
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1003	1099	
==>ion
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8580	8728	
==>urn;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8580	8728	
==>urn;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1789	1965	
==>hecking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1789	1965	
==>hecking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.del <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15887	16008	
==>is since we're splicing right after the h1
            my $target  = $link->{linkfile};
            my $heading = $link->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4787	4940	
==>me =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4799	4952	
==>me =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1157	1267	
==>t_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1157	1267	
==>t_delimiter(Str $delimiter) is export {
    unless $delimiter eq (';' | '&') {
        die "Query string delimi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4120	4312	
==>e);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4584	4776	
==>e);
                }

                my @found;
                ### find every package that satisfies this dependency
                for my $maybe (@$index) {
                    ### not the <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4397	4498	
==>ing back to the config file, any comments are discarded.

=head1 METHODS

Since the current version of <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4397	4498	
==>ing back to the config file, any comments are discarded.

=head1 METHODS

Since the current version of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1840	1957	
==>ph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1900	2017	
==>ph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class:]])(.*)$);
        *{$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	270	383	
==>d be in one file,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	270	383	
==>d be in one file,
   and the defining macros, for each of various class hierarchies,
   in others.  But we cant do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3485	3627	
==>[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3485	3627	
==>[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless defined $match <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8885	9007	
==>ush @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8885	9007	
==>ush @blocks, $block;
        $prev = $block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2440	2543	
==>irs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2440	2543	
==>irs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit from Perl6::Val <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	688	813	
==>n sub {
    while +@tokens == 0 && defined $buf {
      my $i = $input.();
      if $i.isa(Array) {
        my($sep, $tok) = $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2476	2597	
==>atures {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4064	4185	
==>atures {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2274	2387	
==>eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2274	2387	
==>eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int {
    my i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6657	6778	
==>' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6657	6778	
==>' => $arg } )
        if %val.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6703	6802	
==>blings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_roo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6703	6802	
==>blings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_roo <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1557	1674	
==>read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $po <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2219	2336	
==>read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if ( $po <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15697	15837	
==>...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15697	15837	
==>...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7184	7290	
==>ess $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7196	7302	
==>ess $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8207	8360	
==>($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8219	8372	
==>($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3816	3920	
==>need something
with more power, move up to Config::Simple, Config::General or one of the
many other Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3816	3920	
==>need something
with more power, move up to Config::Simple, Config::General or one of the
many other Confi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5767	5869	
==>(stderr,"regexp_setup ");
    Safefree(r->precomp);
    r->prelen = SvLEN(pat);
    if(r->prelen <0){ f <==
2	/Users/nnunley/pugs/util/package-osx.pl	7598	7695	
==>cumentation.3pm
        /usr/local/man/man3/Perl6::Spec::Functions.3
        /usr/local/man/man3/P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16673	16806	
==>~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13094	13227	
==>~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe just char)
  $self->add_handl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	484	583	
==>interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	484	583	
==>interface for cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allo <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	645	749	
==>g the signatures of these
methods

=item *

unbound public attributes, which are actually just accessor m <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6615	6728	
==>evelop this.

- how should I handle blocks of text which seem to still be inside a list?

Basically the item body, <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6615	6728	
==>evelop this.

- how should I handle blocks of text which seem to still be inside a list?

Basically the item body, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	916	1089	
==>',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	916	1089	
==>',
            'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $! <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5647	5792	
==>ot be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6111	6256	
==>ot be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2610	2705	
==>resentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... thou <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2610	2705	
==>resentation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... thou <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7456	7555	
==>ceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7456	7555	
==>ceeded by an '=begin' directive) 
is reached.

=item I<start_element ('for')>

This event is fired w <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3490	3585	
==>ould be able to do both lexically and dynamically scoped
overriding.  You currently can't do lex <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1551	1660	
==>gex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1551	1660	
==>gex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10987	11097	
==>t warnings during the execution of some methods, 
because it will try to iterate to find a "complement set" tha <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10987	11097	
==>t warnings during the execution of some methods, 
because it will try to iterate to find a "complement set" tha <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3442	3541	
==>tified(X), p5_concatenation_more(conc(W,X), Z), !.
p5_concatenation_more(W, W) --> {true}.

p6_conca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3668	3780	
==>name, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3668	3780	
==>name, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ username hostname se <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1197	1309	
==>lue for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    ha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4675	4787	
==>lue for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8908	9019	
==>al string
    # because we need the bareword semantics, where 'require'
    # will munge the package name into f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8908	9019	
==>al string
    # because we need the bareword semantics, where 'require'
    # will munge the package name into f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	726	831	
==>reating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	726	831	
==>reating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6740	6854	
==>"tests.$pid.yml";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "wait <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14233	14326	
==>types::unify(
		$f,
		type::operator::arrow->new(
			type::variable::free->new,
			type::varia <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3982	4091	
==>ribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3982	4091	
==>ribute values that this Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Roset <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1604	1703	
==>`new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start o <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1604	1703	
==>`new()`

Without any parameters, returns an empty span.

- `new( start => $start )`

Given a start o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	690	819	
==>nf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	690	819	
==>nf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @en <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	451	571	
==>($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	451	571	
==>($self.get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15334	15439	
==>namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $enc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15334	15439	
==>namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode($a);
  $enc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5965	6061	
==>ize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5965	6061	
==>ize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13784	13905	
==>e($syn_src_dir, "$syn.pod" );
        unless ( -f $synpod ) {
            if    ( $syn =~ /^S/i ) { $synpod = catfile($syn <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	401	496	
==>re practical closure based system, similar to what is described
in here (note: same author as th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4428	4589	
==>lass.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4428	4589	
==>lass.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8857	8957	
==>a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The followi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8857	8957	
==>a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The followi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4842	4987	
==>>nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23802	23899	
==>plementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23802	23899	
==>plementation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12020	12125	
==>n two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12078	12183	
==>n two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Boo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38396	38575	
==>->get('$label'));                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attrib <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3542	3643	
==>ader_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3542	3643	
==>ader_field_names ($self: ) {
  return $self!sorted_field_names.map:{ %standard_case{$_} || $_ };
}

me <==
2	/Users/nnunley/pugs/util/run-smoke.pl	225	328	
==>del Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if $failed;

You do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1263	1417	
==>e( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1263	1417	
==>e( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $rule->compi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16707	16817	
==>xt/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16707	16817	
==>xt/html' {
    # we enter this place even if the real header value happens to
    # be 'TEXT/HTML; version=3.0' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24214	24344	
==>n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1826	1942	
==>te or die "open: $config_template: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $tpl_config = $Y <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23580	23684	
==>a Relation-doing object
can mutate.  Depending on the implementing class, it can default to True or
False <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28132	28236	
==>a Relation-doing object
can mutate.  Depending on the implementing class, it can default to True or
False <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1630	1745	
==>rser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($in <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1630	1745	
==>rser;
    does Parse::Rule::Core::Rule;

    method compile() { $?SELF }   # no compilation phase
    method run($in <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6105	6239	
==>todo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_j <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6163	6297	
==>todo this test
    # because we're preparing for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_j <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9985	10146	
==>$!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9985	10146	
==>$!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircn <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1156	1272	
==>ight.
	state $t;
	if $t {
		$t = 0;
		return $x.round_half_even;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28247	28376	
==>val_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28526	28655	
==>val_perl5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/util/package-osx.pl	1446	1549	
==>usr/local/bin/p6doc ../../bin/p6doc
    );

    %change_files = qw(
        /usr/local/lib/perl5/site_pe <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	483	622	
==>_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	384	523	
==>_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28814	28911	
==>rness......ok
  All tests successful.
  Files=4, Tests=24, 2 wallclock secs ( 0.61 cusr + 0.41 csy <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24922	25030	
==>type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25363	25471	
==>type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9493	9590	
==>> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9493	9590	
==>> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22779	22879	
==>cE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22779	22879	
==>cE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to se <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2511	2648	
==>t_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2511	2648	
==>t_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub checks if the bucket contains at least I<N> tokens. In that
case i <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1662	1796	
==>in {
    my $start = shift;

    my @hits = ();

    local *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir D <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	164	260	
==>TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LO <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	164	260	
==>TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LO <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2253	2376	
==>ainer of this code. (Brian Ingerson for now)
.
# XXX Not sure about the above heuristic. So die if incorrect.
    $path =~ s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12040	12138	
==>rder of sort, or the adjust the
case sensitivity of C<cmp> as a Comparator.

If all criteria are ex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22508	22674	
==>d::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42297	42462	
==>d::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13337	13521	
==>ED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my $c = $_[0];
        FAIL() if &Regexp::Parser::ifmatch::_is_found_backwards($f);
        TAIL <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	897	999	
==>[0]) }
sub AUTOLOAD {}
sub DESTROY {}

1;

# Restore warning handler
BEGIN { $SIG{__WARN__} = $SIG{__WA <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1327	1424	
==>ITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1327	1424	
==>ITER = $delimiter;
}

# set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1481	1586	
==>public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1481	1586	
==>public> is set to a true value,
C<Net::IRC::SeenExt> installs a public command handler matching
  ?seen ni <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5272	5375	
==>'.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*E <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5272	5375	
==>'.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4339	4471	
==>ch =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wron <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4351	4483	
==>ch =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wron <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13351	13451	
==>::Headers> object that contains the
removed headers only.

=item $h.clear

This will remove all heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13351	13451	
==>::Headers> object that contains the
removed headers only.

=item $h.clear

This will remove all heade <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25980	26072	
==>pe::operator::arrow->new(
		type::operator::nary->new(list => $a),
		$a,
	);
	is($type->strin <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9710	9800	
==>",join(", ",map{defined($_)?"'$_'":"undef"}@a),") ",0+@a,"\n";

0;
__END__
=cut
$foo = sub{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1612	1705	
==>ized escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [:%s:] un <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	550	661	
==>b *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub * <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	550	661	
==>b *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub * <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3579	3678	
==>hic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3579	3678	
==>hic hashing/authentication algorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2979	3115	
==>$c = Blondie::Compiler->new;
    $c->compile($runtime, $env, $program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->n <==
2	/Users/nnunley/pugs/util/importgraph.pl	2259	2343	
==>p_rank('codegens', 'Pugs.Compile.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGen\. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5100	5345	
==>ript $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add this package as being authorative for the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4312	4521	
==>ript $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add this package as being authorative for the <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8502	8599	
==>nd_element ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=h <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8502	8599	
==>nd_element ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20526	20622	
==>de variety of third party Engine
modules that become available over time.  One plan which I favor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20526	20622	
==>de variety of third party Engine
modules that become available over time.  One plan which I favor <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5447	5549	
==>t be able to examine the response code or response headers
(like 'Content-Type') when you are accessing <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5447	5549	
==>t be able to examine the response code or response headers
(like 'Content-Type') when you are accessing <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1723	1826	
==>ion to source.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1723	1826	
==>ion to source.
 # represented as processing instructions, or maybe comments
 # in the "normative XML"
 $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12197	12296	
==>elf<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12197	12296	
==>elf<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1196	1326	
==>ers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_se <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1196	1326	
==>ers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2686	2794	
==>rule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2870	2978	
==>rule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11990	12154	
==>);
    
    if ( $n->{op1}{op} eq '(' &&
         $n->{op2}{op} eq ')' ) {
        return '()'
            unless defined  $n->{exp1};
        return '(' . _em <==
2	/Users/nnunley/pugs/util/package-osx.pl	7996	8084	
==>r/local/man/man3/Perl6::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Spec::Packa <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2735	3100	
==>w,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6295	6384	
==><Regexp::Parser::Objects> for documentation about nodes and the objects
that represent the <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	562	671	
==>le or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to spec <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	562	671	
==>le or
provide special behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to spec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	992	1093	
==>undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	992	1093	
==>undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7182	7278	
==>I, which permits the intercommunication 

of data about: backtracking, aborting, capturing.



Th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6937	7030	
==>I, which permits the intercommunication 
of data about: backtracking, aborting, capturing.

Th <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1173	1274	
==>turn '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1173	1274	
==>turn '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1940	2056	
==>) eq Cwd::abs_path($FindBin::Bin);

    return $args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6629	6729	
==>en a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' directive <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6629	6729	
==>en a '=pod' directive is reached.

=item I<end_document>

This event is fired when a '=cut' directive <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1678	1797	
==>NDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1678	1797	
==>NDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3488	3684	
==>MP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3488	3684	
==>MP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3198	3325	
==>ocation;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3198	3325	
==>ocation;
    
    for %extra.kv -> $header, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5598	5703	
==>cess requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5598	5703	
==>cess requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23314	23420	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23314	23420	
==>ese Perl 6 classes that are in the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4268	4418	
==>$pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be writt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4268	4418	
==>$pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be writt <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	947	1278	
==>1];
                                    return 1 if -e $file && -r _;
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;
                                    error(qq[File '$file' is not readable ].
                                           q[or does not ex <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3967	4076	
==>ft.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3967	4076	
==>ft.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26973	27137	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27252	27416	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5389	5494	
==>{ $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5389	5494	
==>{ $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9123	9220	
==>t2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9123	9220	
==>t2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14401	14508	
==>r(:descendent);
    my $c = WALKCLASS(&dispatcher);
    while (!$c.defined) {
        $c.get_attributes().ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	59	162	
==>Class::Accessor/;

use strict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTAB <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10927	11028	
==>Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo singleton/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8449	8548	
==>Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo singleton/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13383	13484	
==>elf->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7592	7693	
==>elf->add_handler('POSIX_alpha' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4505	4617	
==>runcore (keys %runcores) {
    foreach my $cat   (keys %{ $runcores{$runcore} }) {
      $runcores{$runcore}{$cat <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3899	4006	
==>sech';
trig_func 'acotanh';


 multi Math::Trig::atan (Num $y, Num $x ; Num :$base --> Num )
 {
     Pugs::I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2707	2862	
==>$2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2603	2751	
==>$2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return u <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	755	863	
==>llback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	755	863	
==>llback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  i <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3924	4054	
==>p $file;
    
#    open FH, "> $fname.tex" or die "can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12772	12892	
==>f = shift;
    my $hash = shift;

    $self->{$hash};
}

sub run {
    my $self = shift;
    $self->execute($self->compil <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18488	18644	
==>$e->get('&dispatcher'), symbol->new('BUILD'))));
                })->do_while(
                    block->new($e, sub {
                        my $e = shift <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4791	4894	
==>est::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4849	4952	
==>est::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7106	7230	
==>o"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7106	7230	
==>o"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35977	36076	
==>ther or both of the
invocant Relation::Example and C<$other>; any duplicated tuples appear only once <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1764	1879	
==>y $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1764	1879	
==>y $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urle <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	959	1065	
==>debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	959	1065	
==>debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns St <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7448	7564	
==>end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7448	7564	
==>end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13850	13989	
==>bins, $script;
    }

    my $alt = JIB::Alternative->new_from_struct( struct => 
                    { bin => \@bins, auto => 1, package => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7035	7135	
==>-level functional operators, and the higher level OO/Overload 

runtime. 



- internal rule operator <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6795	6892	
==>-level functional operators, and the higher level OO/Overload 
runtime. 

- internal rule operator <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	867	1106	
==>$node->class == $::EigenClass ? 
                            "color = grey60, " .
                            "fontcolor = grey60, "
                            :
                            "color = green, " .
                            " <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4330	4460	
==>-1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.sh <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4330	4460	
==>-1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.sh <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2986	3114	
==>);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now co <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2986	3114	
==>);
        shift(@basechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now co <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12222	12344	
==>ub { 0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6605	6742	
==>/ghc/.
.

    my $ghc_lt_640 = !($ghc_version =~ /^(\d)\.(\d+)/ and $1 >= 6 and $2 >= 4);

    if ($ghc_lt_640 or ($ghc_version =~ /^6.4(? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5174	5297	
==>e metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclasses;
    has @:superclasses;
    has % <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7956	8101	
==>-> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7956	8101	
==>-> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $me <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1985	2086	
==>method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns Li <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1985	2086	
==>method empty_set ($class: ) returns Set::Infinite { $class.new() }

method spans ()         returns Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	691	803	
==>);
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rema <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	691	803	
==>);
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rema <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9838	9960	
==>tchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9832	9954	
==>tchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $ge <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1647	1753	
==>gable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=hea <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1647	1753	
==>gable::Fast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=hea <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4277	4384	
==>p56_quantified_op(W, ques(W))    --> "?", !.
p56_quantified_op(W, star(W))    --> "*", !.
p56_quantified_op( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3470	3590	
==>=> 'rxinfix',
  );
  $cat->add_op( 
    name => '|',
    block => sub { ... },
    assoc => 'left',
    precedence => { t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6527	6627	
==>of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, ei <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6527	6627	
==>of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, ei <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	317	429	
==>defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	317	429	
==>defined $param->{ratchet};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1795	1917	
==>ons,

# because they are too frequent and they are too slow using the basic 

# rule parser



sub code {

    return unles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1723	1840	
==>ons,
# because they are too frequent and they are too slow using the basic 
# rule parser

sub code {
    return unles <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1242	1345	
==>Null { }
}

module Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22987	23081	
==>PT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	266	428	
==>{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	266	428	
==>{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_sta <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1037	1144	
==>urns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1037	1144	
==>urns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to set "optional" expor <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	969	1095	
==>' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	969	1095	
==>' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3426	3519	
==>oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3426	3519	
==>oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1101	1202	
==>l, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1101	1202	
==>l, $file) is export
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24025	24121	
==>-time macro-based approach to substitute the user's preferred
language into the program code itse <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24025	24121	
==>-time macro-based approach to substitute the user's preferred
language into the program code itse <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8160	8415	
==>List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celem <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8160	8415	
==>List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celem <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3134	3260	
==>on - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3134	3260	
==>on - Syntax below is nicer 

    my $data = $cfg<data>();
    $data<section><Foo> = 'Not Bar!';                # Change a value <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	150	276	
==>ttr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	150	276	
==>ttr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
}

=head1 NAME

Perldo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2900	3041	
==>q );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buff <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2900	3041	
==>q );

  # read response+headers:
  # $hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buff <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2509	2637	
==>, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pu <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2509	2637	
==>, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7199	7417	
==>ion( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7392	7610	
==>ion( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ru <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31865	31957	
==>lemented.>

This method is a generic relational operator that returns a new Relation::Example <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32912	33004	
==>lemented.>

This method is a generic relational operator that returns a new Relation::Example <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20567	20666	
==>params)) returns nil
    ((= &dispatcher (($self: class) send (dispatcher :ascendant)))
     (= $met <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26208	26294	
==>1),
  ground_list(C1,'undef',O).

END
#================================================ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36808	36911	
==>al operator that is like
C<union> except that the returned Relation::Example contains only tuples that a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37308	37411	
==>al operator that is like
C<union> except that the returned Relation::Example contains only tuples that a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9020	9139	
==>y $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9213	9332	
==>y $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8125	8224	
==>rray> is considered single dimensional. If it is in fact multi-
dimensional, the values returned wil <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36664	36757	
==>any duplicated tuples.

=item C<exclusion (Relation::Example $other!) returns Relation::Exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13144	13279	
==>$num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6619	6754	
==>$num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31106	31208	
==>tenated without any delimiter.  This means,
for example, that the full module names in a set could be e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31106	31208	
==>tenated without any delimiter.  This means,
for example, that the full module names in a set could be e <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10448	10586	
==>_cleaned_switches {
    my $self = shift;

    local $_;

    my @switches;
    for ( @_ ) {
        my $switch = $_;
        next unless d <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1956	2057	
==>m $x, Num $base) {
    return Pugs::Internals::log($x)   if !defined $base;
    return Pugs::Internals <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	186	292	
==>alar {
    pop @CALLER::_;
}

 multi sub Array::push (@array is rw ; *@values) returns Int {
   Array::spli <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5818	5970	
==>descr  => "Welcome",
  ensure => sub { $welcomed },
  using  => sub { $welcomed++ },
  pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	85	187	
==>vnlog2graph.pl > /tmp/graph.png   --or
#        svn log > /tmp/log; util/svnlog2graph /tmp/log > /tmp/g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8359	8466	
==>ced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8359	8466	
==>ced.
    # Currently, "::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18592	18692	
==>bjects between multiple threads, nor have objects in separate
threads try to access the same external <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18592	18692	
==>bjects between multiple threads, nor have objects in separate
threads try to access the same external <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1366	1458	
==>ELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':% <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1366	1458	
==>ELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':% <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6028	6170	
==>har = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6016	6158	
==>har = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_pe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10913	11009	
==>et if this recurrence is a "universal set".
Otherwise the program will emit warnings during the e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10913	11009	
==>et if this recurrence is a "universal set".
Otherwise the program will emit warnings during the e <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1694	1787	
==>ket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of inform <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1694	1787	
==>ket(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of inform <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11809	11909	
==>welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11809	11909	
==>welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34375	34488	
==>hose of C<$heading>.  The new Relation::Example has all of the tuples of the
original (or rather, the correspondin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1765	1869	
==>d(" . $self->{sig}->returns . ")";
    return $return_value;
} 

sub _bind_params {
    my ($self, $args) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3359	3506	
==>= "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4208	4355	
==>= "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = em <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1359	1475	
==>f-referential things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # sepa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1359	1475	
==>f-referential things

sub alternation {
    # alternation is first match (not longest).  though we need a 
    # sepa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	155	265	
==>o( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * S <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	155	265	
==>o( $sub )
* Factored Perl6::Value::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3184	3433	
==>class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3184	3433	
==>class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External packages used by the <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1444	1602	
==>$x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8251	8361	
==>lary', 'type::operator::nullary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7183	7317	
==>n $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7183	7317	
==>n $n1 if $n1 == $n2;
            $n2 = &{ $closure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1185	1303	
==>root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1185	1303	
==>root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nod <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1061	1162	
==>0x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1061	1162	
==>0x Not Modified response
sub mirror ($url, $file) is export
{
  getstore($url,$file)
}

sub get (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	743	842	
==>in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a special <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	743	842	
==>in a Perldoc
DOM tree.

It has one property - content.

The constructor for this class has a special <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16562	16657	
==>g.

Locale::KeyedText gives your application the maximum amount of control as
to what the user s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16562	16657	
==>g.

Locale::KeyedText gives your application the maximum amount of control as
to what the user s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1637	1751	
==>*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natur <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1637	1751	
==>*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	5	106	
==>r/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Mes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	5	106	
==>r/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Mes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	230	330	
==>:Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Bas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	230	330	
==>:Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Bas <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	844	988	
==>SAL::require::ERROR;
	$self->emitter_class->new;
}

sub emit {
	my $self = shift;
	$self->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7570	7695	
==>th !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7570	7695	
==>th !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10403	10504	
==>) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10403	10504	
==>) {
    my $self = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9340	9434	
==>@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3165	3259	
==>@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	235	327	
==>ss" });
Has($?CLASS, "associations", "Set", { companion => "class" });
Has($?CLASS, "reverse_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	351	470	
==>s (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	335	447	
==>s (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    bool <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	31	132	
==>::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	31	132	
==>::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1194	1294	
==>_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1194	1294	
==>_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@response_head <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8420	8698	
==>->new(
                                    Sym->new('&postfix:<!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val- <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	144	242	
==>%.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$t <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	144	242	
==>%.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1275	1384	
==>xt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time people say something (in <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1275	1384	
==>xt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time people say something (in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	72	201	
==>{
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    su <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	72	201	
==>{
    has $.template;
    has $.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9320	9440	
==>ule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9308	9428	
==>ule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	426	560	
==>};
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.sear <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	426	560	
==>};
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.sear <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5700	5883	
==>tes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5700	5883	
==>tes},
        'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2230	2420	
==>t;
                my $value = shift;
                scalar @{$self->get_value('@:slots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shi <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4655	4771	
==>ML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user h <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4514	4630	
==>ML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user h <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18004	18103	
==>ce filtering a sane process, by
parsing up your module's source code into various blocks; so that by <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18004	18103	
==>ce filtering a sane process, by
parsing up your module's source code into various blocks; so that by <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1061	1181	
==>ensity,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1061	1181	
==>ensity,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3321	3464	
==>ht',
        precedence => 'equal',
        other => '||',
    );
    
    __PACKAGE__->add_rule( 
        name => '=',
        assoc => 'right' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4720	4857	
==>ecedence => 'looser',
        other => 'or',
    );
    
    # '->' is not an operator
    #__PACKAGE__->add_rule( 
    #    name => '->', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4425	4515	
==>cument describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documenta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4425	4515	
==>cument describes Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documenta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15780	15885	
==>ist of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=ove <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15780	15885	
==>ist of all this
Node's child Nodes, if it has any.

=back

This is the main Node constructor method:

=ove <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21046	21145	
==>d attributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25598	25697	
==>d attributes; all tuples in a Relation are of the same
degree, and the attribute names of each tuple <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6303	6448	
==>t so we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target =~ s/^$base//;
                      $_ => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17175	17281	
==>and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17175	17281	
==>and your Rosetta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2155	2262	
==>, assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2155	2262	
==>, assoc => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	353	461	
==>le 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	353	461	
==>le 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1249	1346	
==>ncoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1249	1346	
==>ncoding utf8

=head1 NAME

Rosetta::Shell::L::en -
Localization of Rosetta::Shell for English

=he <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	552	642	
==>N

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|h <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	552	642	
==>N

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6>, written in
L<Haskell|h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1061	1209	
==>ell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1061	1209	
==>ell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $engine_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17639	17735	
==>virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17639	17735	
==>virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prepare an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	153	259	
==>system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	146	250	
==>system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Gra <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10920	11135	
==>f:')
                  ->get_attr(symbol->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new (opaque $class: hash %param <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28260	28371	
==>X_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (RX_MATCH_COPI <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8643	8764	
==>o end_2 if @termStack < 1;
  $temp1 = pop @termStack;
  goto end_2 unless $temp1;
  $$matchObj{expr} = $temp1;
  $matchObj <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	894	1038	
==>) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DES <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	894	1038	
==>) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DES <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	521	632	
==>ire::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = shift;

	warn Carp::longmess un <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1125	1232	
==>rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1125	1232	
==>rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	640	735	
==>Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	640	735	
==>Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9878	9981	
==>nce object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a st <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9878	9981	
==>nce object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify()`

Return a st <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1369	1614	
==>od 8651.
 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 86 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11737	11867	
==>out);
        ($r ?? $out !! $in);
    }

    # Bidirectional pipe. Potenially dangerous. Uses the shell.

    multi sub open2 (Str <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23817	23910	
==>,Replace,[X|T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	410	498	
==>e authorization proxy_authorization authorization_basic proxy_authorization_basic
»;

ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	410	498	
==>e authorization proxy_authorization authorization_basic proxy_authorization_basic
»;

ha <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8554	8705	
==>$.testplan.footer( +@:results );
      $.output.write( $footer ) if $footer;
  }
  
  method get_test_number
  {
      return +@:results + 1;
  }
  
  m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	771	898	
==>nd);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	771	898	
==>nd);
    my bool $open_start;
    my bool $open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1441	1571	
==>y ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1441	1571	
==>y ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24868	24963	
==>nc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dy <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24868	24963	
==>nc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	453	547	
==>_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warni <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	453	547	
==>_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warni <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7280	7406	
==>T_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRIN <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7280	7406	
==>T_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STRIN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14856	14958	
==>arget");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14856	14958	
==>arget");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1929	2097	
==>if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1929	2097	
==>if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	314	434	
==>erl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AST

    Grammar::MOP     -- implements OO using macr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	295	412	
==>erl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AST
    Grammar::MOP     -- implements OO using macr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14074	14173	
==>ine has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Pra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14074	14173	
==>ine has case as suggested by HTTP spec, and the headers
will be visited in the recommended "Good Pra <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1844	1969	
==>ft;
    my $name     = shift;
    my $features = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 an <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	522	627	
==>$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_nmake};
        $self->makemaker_ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7905	8037	
==>%app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_ast ( %app<"pCxt"> );
        dbg "# Invocant:  "; my $invocant <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1863	1982	
==>pen MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
} <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1863	1982	
==>pen MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1874	1972	
==>urp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1874	1972	
==>urp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

sub slu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12964	13119	
==>e( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12958	13113	
==>e( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	880	1041	
==>y.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	880	1041	
==>y.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20095	20193	
==>ization_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20095	20193	
==>ization_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7293	7402	
==>?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CA <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7351	7460	
==>?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15548	15669	
==>rst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    met <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15548	15669	
==>rst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4671	4791	
==>erclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->ba <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7394	7514	
==>erclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->ba <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3693	3788	
==>inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.ma <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3693	3788	
==>inter_recurr = $set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6359	6477	
==>[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pugs::Grammar::Operator->new(
        yylex => $le <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14507	14624	
==>- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, bef <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14507	14624	
==>- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, bef <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1323	1418	
==>f->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    ope <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1323	1418	
==>f->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    ope <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2011	2211	
==>f } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2011	2211	
==>f } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16945	17049	
==>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16945	17049	
==>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	404	512	
==>e test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	462	570	
==>e test suite multiple times in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	915	1037	
==>$len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	924	1046	
==>$len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17387	17490	
==>ap(sub { $self->generic_reduce($_[0]) })->str;

            return (ref $node) . "->new<=$node>" . layou <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	109	216	
==>Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex block { \ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	109	216	
==>Perl6::Grammar-0.0.1;

# Top level structures

token code { <-[{}]>* } # a section of code

#regex block { \ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22857	22958	
==>n the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this appro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22857	22958	
==>n the
intended viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this appro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1270	1383	
==>me();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $count <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1261	1367	
==>me();
subname 99;
$bar.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $count <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3706	3855	
==>-> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3706	3855	
==>-> $key {
    next if $key ~~ /^_/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$k <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1931	2056	
==>XX need status dir like dpkg
    my $postrm = $meta . '/' . $Postrm;
    if( -e $postrm && -s _ ) {
        system( qq[ $^X $p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16379	16472	
==>l
programming language named "Rosetta D", which is computationally complete
(and industrial st <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16379	16472	
==>l
programming language named "Rosetta D", which is computationally complete
(and industrial st <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12515	12619	
==>code snippet, and then pass the result to is or ok
on success, or report that the eval was not successful <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12573	12677	
==>code snippet, and then pass the result to is or ok
on success, or report that the eval was not successful <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20745	20837	
==>ls.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its key <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20745	20837	
==>ls.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its key <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1272	1367	
==>using Microsoft Windows, you will need the 'nmake' utility
before installation. It's available a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1112	1207	
==>using Microsoft Windows, you will need the 'nmake' utility
before installation. It's available a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39273	39367	
==>Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39273	39367	
==>Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6438	6548	
==>(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_word <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6438	6548	
==>(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers::Util::split_header_word <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5329	5488	
==>::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10984	11143	
==>::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16515	16653	
==>MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16515	16653	
==>MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15451	15550	
==>er 4

=item $h.date

This header represents the date and time at which the message was
originated. I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15451	15550	
==>er 4

=item $h.date

This header represents the date and time at which the message was
originated. I <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16297	16419	
==>rig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shif <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16297	16419	
==>rig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shif <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12370	12472	
==>a single line containing a digest of the original content.
#
# This makes further dividing of Perl code <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12370	12472	
==>a single line containing a digest of the original content.
#
# This makes further dividing of Perl code <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	458	587	
==>get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $tes <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	458	587	
==>get_node_filter().($tree) ~ "") eq $test) };    
    }
    else {
        $func = -> ($tree, $test) { (($tree.node() ~ "") eq $tes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4571	4849	
==>cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # X <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4571	4849	
==>cookies only");
                            next;
                        }
                        
                        #LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1781	1920	
==>ual',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => ':',
        assoc => 'left',
        precedence => ' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2713	2818	
==>e *@attr_names) {
    for @attr_names -> $attr_name {
        if ($?SELF.attr_name_exists( $attr_name )) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1852	1951	
==>runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1941	2040	
==>runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7786	7938	
==>tch<name>, 
            fixity => ..., 
            precedence => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <opt <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5591	5704	
==>he File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retva <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5591	5704	
==>he File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retva <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2011	2181	
==>e methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, et <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2011	2181	
==>e methods
                           # "reset" and "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, et <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9477	9580	
==>]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9477	9580	
==>]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $prd_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3326	3427	
==>turns { (shift)->{returns} }

sub equal_to {
    my ($left, $right) = @_;
    ($left->params->equal_to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1697	1814	
==>p unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    .. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1697	1814	
==>p unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($self: $span is copy) returns bool {
    .. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	890	991	
==>/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<! <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	890	991	
==>/superset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<! <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4020	4162	
==>> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4020	4162	
==>> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} unless $path eq "/";  # xx <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3262	3366	
==>t:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3262	3366	
==>t:{ $^a.span.compare( $^b.span );
}

method intersection ($set1: $set2 is copy) {
    if ( $set2.isa( 'Sp <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4702	4804	
==>ny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, w <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4702	4804	
==>ny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, w <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1494	1608	
==>ory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1494	1608	
==>ory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4742	4849	
==>sion of the data given.
The data may be either a string or an array of bytes; the array of bytes will 
be sl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4742	4849	
==>sion of the data given.
The data may be either a string or an array of bytes; the array of bytes will 
be sl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1664	1793	
==>nt( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1675	1804	
==>nt( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	746	866	
==>s,$name,$prec)=@_;
    $name = "$name";
    $prec = "$prec";
    my $nprec = 1;
    if($prec) {
      $increment = $incre <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	416	526	
==>unless defined &{"$class\::$method"};
    }

    bless(\%args, $class);
}

#line 49

sub AUTOLOAD {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	820	921	
==>ile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	820	921	
==>ile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	205	305	
==><source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	205	305	
==><source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fields.map: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	660	789	
==>sub _recurse_resolve {
    my @deps = @_;    
    
    ### we need at least the deps provided, plus whatever /they/ need
    my @r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1108	1229	
==>sub _recurse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, plus whatever /they/ need
    my @r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5243	5339	
==>thod returns a hash reference representing the configuration data

=item write

The C<write> meth <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5243	5339	
==>thod returns a hash reference representing the configuration data

=item write

The C<write> meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52529	52618	
==>NOTE:
# this is to avoid recursion
$::Class->set_attr(symbol->new('@:MRO') => list->new($: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5006	5157	
==>i;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->endp[cap_idx] = vi;
      }
      for(;pops_left;) {
        POPs; po <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1995	2111	
==>ft;
    my $attr = shift;

    # $attr may be a T2::Attribute or a T2::Association, but as they
    # both respond to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9574	9669	
==>sitive.

Instances of this class are usually created as member variables of the
C<HTTP::Request> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9574	9669	
==>sitive.

Instances of this class are usually created as member variables of the
C<HTTP::Request> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9871	9974	
==>ay is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9871	9974	
==>ay is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (Str $key) retur <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1759	1856	
==>cessing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1759	1856	
==>cessing instructions, or maybe comments
 # in the "normative XML"
 $node->add_daughter
    (Perldo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4184	4280	
==>63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4184	4280	
==>63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22290	22414	
==>list_len;
        if ($max_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Colu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6893	6990	
==>::new(@_);
	$self->{t} ||= type::operator::nullary->new("int");
	$self;
}


package types;

use Cl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3087	3207	
==>(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3633	3753	
==>(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3148	3258	
==>e = $self->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print S <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3918	4027	
==>alar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreach my $key (@tup <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1555	1669	
==>sert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1555	1669	
==>sert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	468	619	
==>.. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	468	619	
==>.. $samples ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30061	30156	
==>ion>

This method is a short-hand or alternative for the functionality provided
by the 5 generic <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34613	34708	
==>ion>

This method is a short-hand or alternative for the functionality provided
by the 5 generic <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3472	3624	
==>ift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3472	3624	
==>ift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @t <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	333	456	
==>strap($VERSION);
    };
}

sub import {
    $^H{regcompp} = sub {
        my $re = compile($_[0], 0);
        return reverse <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1985	2090	
==>captures}[--$n] if $n;
  return $self->{captures};
}


sub nchar {
  my $self = shift;
  return map chr(/^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12896	13026	
==>num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6371	6501	
==>num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $b <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	578	688	
==>$b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	578	688	
==>$b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1217	1346	
==>f );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1217	1346	
==>f );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    return $tmp == -I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1639	1734	
==>N

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1639	1734	
==>N

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

The Perl 6 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27298	27399	
==>length($str);
    MatchX->new()->set(1,$str,$cap,{},$from,$to);
}
sub rx {
    my($re,$mods)=@_;
    m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8127	8226	
==>aft.pod 8651.  In the List section.
multi Array::reverse (   @values --> Lazy|Str) {
    List::rever <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1159	1290	
==>installman3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(priv <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	103	203	
==>ortable.

my ($in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$name =~ s/\..*$//;
my @path = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10285	10404	
==>pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10285	10404	
==>pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9946	10066	
==>o does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13423	13543	
==>o does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	70	204	
==>N @ISA @EXPORT);
require Exporter;
$VERSION = '0.01';
@ISA = qw(Exporter);
@EXPORT =
    qw(
       p6_is_object
       p6_is_perl6_obj <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5392	5506	
==>ce  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int, List)\
\\n   Int <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14997	15109	
==>Relation::Example $other!) returns Relation::Example {

    # First look for trivial cases that are more efficien <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19074	19170	
==>legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emula <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19074	19170	
==>legacy applications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emula <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39082	39191	
==>e reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Ro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39082	39191	
==>e reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Ro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20861	20956	
==>h)
# send setsockopt shutdown slurp socket socketpair stat symlink
# syscall sysopen sysread sys <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	533	673	
==>ment backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is bei <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	533	673	
==>ment backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is bei <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1800	1908	
==>f )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1800	1908	
==>f )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.start <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	132	236	
==>er;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	132	236	
==>er;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25389	25490	
==>the terms of the GPL for Rosetta and the licenses
of the other components concerned, provided that you <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25389	25490	
==>the terms of the GPL for Rosetta and the licenses
of the other components concerned, provided that you <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8656	8797	
==>= "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8656	8797	
==>= "\n" -- how?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does no <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20383	20480	
==>ly do it.  An os-level preference
/ control-panel displays a list of all the languages your progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20383	20480	
==>ly do it.  An os-level preference
/ control-panel displays a list of all the languages your progra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6171	6439	
==>p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and lead <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6171	6439	
==>p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name components and lead <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5741	5846	
==>t of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly must be imp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5741	5846	
==>t of it is implemented within the C<Cipher> 
class itself; in fact, the only method that truly must be imp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	936	1054	
==>ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( $self->{ast}() )};

    eval {
        $sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2378	2502	
==>($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If th <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2378	2502	
==>($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1190	1296	
==>, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1178	1284	
==>, $param) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see R <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	612	738	
==>ay "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	612	738	
==>ay "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	960	1064	
==>args) {
        .notify(Class::Events::Event.new(*@args));
    }

    method mk_notifications (*@subscrip <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6046	6147	
==>le? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5837	5936	
==>le? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", options... );
  my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	158	248	
==>ve_header remove_content_headers header_field_names scan
    date expires if_modified_since <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	158	248	
==>ve_header remove_content_headers header_field_names scan
    date expires if_modified_since <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19192	19299	
==>ther programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctiv <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19192	19299	
==>ther programming language can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctiv <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2788	2897	
==>{
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2846	2955	
==>{
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19179	19284	
==>der() methods to set the referrer.

=item $h.www_authenticate

This header must be included as part of a C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19179	19284	
==>der() methods to set the referrer.

=item $h.www_authenticate

This header must be included as part of a C <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19125	19223	
==>basis of the relational
data model proposed by Edgar. F. Codd, upon which anything in the world can <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22775	22873	
==>basis of the relational data model proposed
by Edgar. F. Codd, upon which anything in the world can <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16759	16867	
==>l header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16759	16867	
==>l header value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Conte <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22371	22517	
==>new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42160	42306	
==>new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3530	3655	
==>eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3670	3795	
==>eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9417	9551	
==>eturn and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9417	9551	
==>eturn and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14121	14255	
==>y $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14121	14255	
==>y $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1516	1624	
==>am;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1516	1624	
==>am;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_slurp <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	134	240	
==>Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{ <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	134	240	
==>Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	573	678	
==>e, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	573	678	
==>e, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8270	8369	
==>ined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8258	8357	
==>ined \$match[\$index{$rnd}] ) {
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtim <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	538	651	
==>b reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7249	7376	
==>($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7249	7376	
==>($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5875	5997	
==>eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5875	5997	
==>eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $mat <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3843	3979	
==>' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) {
        $dump .= "$key: $values{$key}\n" if exist <==
2	/Users/nnunley/pugs/util/func_refact.pl	868	1001	
==>Conf{initial}});
} else {
        print "CC sizes:\n";
        for (keys %$nodes) {
            print "$_: " . union({$_=>1}, $_) . "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6155	6273	
==>y $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6155	6273	
==>y $match = $grammar->parse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1292	1390	
==>digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1548	1646	
==>digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5::Match::n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9274	9441	
==>~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not impleme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9274	9441	
==>~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not impleme <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6230	6361	
==>x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6230	6361	
==>x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1596	1735	
==>op order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1596	1735	
==>op order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	511	643	
==>rgs => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	511	643	
==>rgs => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26204	26318	
==>ern }xgc) {
    # it matched
  }

If the match fails, the C<pos()> value won't be reset (due to the C</c>
modifier) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	245	390	
==>poindex );

for my $package (@ARGV ) {
    
    my $tried;
    for my $entry ( @List ) {

        ### find the entry to install
        next unles <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2985	3080	
==>src_dir,'design')) :
          (catdir('..', 'Perl6-Bible', 'lib', 'Perl6', 'Bible'),catdir('..' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	621	769	
==>ms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	621	769	
==>ms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1383	1481	
==>in public), the current
time and the text they said is saved.

If the (optional) role parameter C<p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1383	1481	
==>in public), the current
time and the text they said is saved.

If the (optional) role parameter C<p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4414	4537	
==>tributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7891	8014	
==>tributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1718	1870	
==>r} )
        if exists $n->{scalar};
        
    return _mangle_var( $n->{array} )
        if exists $n->{array};
        
    return _mangle_var( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	341	458	
==>ote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	341	458	
==>ote_addr;
    
    has HTTP::Query $.query handles «
        param params
        :delete_param<delete> :delete_param <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18673	18781	
==>r package, with one or more
text strings to show human users.  This association would normally be
stored in a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18673	18781	
==>r package, with one or more
text strings to show human users.  This association would normally be
stored in a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2063	2177	
==>her.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2063	2177	
==>her.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method su <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7213	7358	
==>tart;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7213	7358	
==>tart;
        my $end =   $span1.end;
        $start += $span0.density if $start != -Inf && $span1.start_is_open;
        $end   -= $span0.density <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1710	1932	
==>f (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1710	1932	
==>f (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1377	1495	
==>field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1377	1495	
==>field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$field} ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2443	2569	
==>nted Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2627	2753	
==>nted Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	111	228	
==>E::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	111	228	
==>E::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	587	691	
==>= times;
#&$f;
my $t6 = times;

printf "Total time: %.3f seconds (%.3f compilation, %.3f type checking, % <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5548	5683	
==>nd = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5548	5683	
==>nd = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17853	17952	
==>cle
databases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readabl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17853	17952	
==>cle
databases often have error codes in a format like 'ORA-03542'.  These codes
are "machine readabl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3577	3671	
==>etta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3577	3671	
==>etta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9720	9824	
==>brary.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9720	9824	
==>brary.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<H <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16824	16921	
==>Module.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16824	16921	
==>Module.pmc> file.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5008	5203	
==>d ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5008	5203	
==>d ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.start <=> $end;
        if $cmp > 0 {
            warn "setting <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1759	1858	
==>y_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

me <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1759	1858	
==>y_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	18	126	
==>opt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = h <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	18	126	
==>opt::Std-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2375	2497	
==>values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2375	2497	
==>values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	979	1164	
==>.
                    qq[-xz ./$Metafile] )                       and die $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = $file;
            $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32896	33000	
==>hod, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32896	33000	
==>hod, but it has no other side effects.

A Translator object has 2 main attributes:

=over

=item C<@!set_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19363	19484	
==>ub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}


sub p6_eval {
    my($p6, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36130	36302	
==>)
                  );                   
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribut <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38410	38577	
==>));                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_attribut <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13964	14069	
==>ed (

=item RPe_RPAREN (-13)

Unmatched )

=item RPe_BCURLY (-14)

Can't do {n,m} with n > m

=item RPe_NU <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	471	593	
==>are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work wel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	471	593	
==>are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work wel <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	16383	16488	
==>on" or
    die "Couldn't open pipe to \"$bin -V:pugs_version\": $!\n";
  my $rev = <$fh>;
  $rev =~ s/^.*? <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2571	2720	
==>_list( $self->package );
        
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need status dir like dpk <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15791	15897	
==>...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15791	15897	
==>...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

This module provi <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	727	837	
==>ess defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %p <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	727	837	
==>ess defined %tmp<density>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	642	739	
==>w( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	642	739	
==>w( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `next($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18656	18759	
==>reads try to access the same external resources.>

Rosetta does not use any dialect of SQL in its native <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18656	18759	
==>reads try to access the same external resources.>

Rosetta does not use any dialect of SQL in its native <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2436	2560	
==>3]{match}[0]->from,
                to    => \$_[3]{match}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7636	7732	
==>$delimiter, *@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Array::m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19045	19142	
==>sent, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19045	19142	
==>sent, as mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4451	4567	
==>sh @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4439	4555	
==>sh @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . join( "\n$_[1] &&\n" <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2458	2593	
==>$perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $perl_version" <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3417	3550	
==>$perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version >= $perl_version" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3031	3150	
==>aders{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3031	3150	
==>aders{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12192	12312	
==>, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4835	4955	
==>, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2925	3022	
==>t $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2925	3022	
==>t $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	50	156	
==>the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	50	156	
==>the __END__
use 5.006;
use strict;
use warnings;
use Data::Dumper;

use overload (
    '@{}'    => \&array, <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2700	2795	
==>=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",map{"\$__tmp${_}__"}(0..($nvars <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6847	6996	
==>)->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, <p6ws>? 
        \: lang \< perl5 \> <p6ws>? 
    \) <p6ws>? \;
        { return <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11447	11593	
==>e heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11447	11593	
==>e heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc <==
2	/Users/nnunley/pugs/util/func_refact.pl	717	835	
==>_\n" for (@{$Conf{except}});
                
if (+$Conf{initial}) {
        print "Initial set: " . join(' ', @{$Conf{ <==
2	/Users/nnunley/pugs/util/version_h.pl	1302	1408	
==>_depot) = $source_line =~ /From: (.*?), Rev\. \d+/) {
            $source_depot = '/'.$source_depot; # conv <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25467	25570	
==>C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relational operat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30019	30122	
==>C<rename ( Mapping(Str) of Str $mapping! ) returns Relation>

This method is a generic relational operat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2270	2378	
==>mp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2270	2378	
==>mp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns int { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2617	2764	
==>ion {
    my $self = shift;
    my %hash = @_;

    my $perl;
    my $tmpl = {
        perl    => { required => 1, store => \$perl },
    };

    ch <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2026	2152	
==>nplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10345	10466	
==>bug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're cur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10345	10466	
==>bug "done.";
  }

  method login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're cur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4519	4621	
==>string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4519	4621	
==>string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return split( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2801	2910	
==>ternal packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2801	2910	
==>ternal packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19593	19694	
==>essor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19593	19694	
==>essor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$bot.chann <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2111	2211	
==>> 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2111	2211	
==>> 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	218	316	
==>ompiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template = <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	218	316	
==>ompiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(template = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4629	4735	
==>PI is still in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4879	4985	
==>PI is still in flux.

The set of implemented features depends on the C<ratchet> switch.

=head1 AUTHORS

Th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2756	2869	
==>who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2756	2869	
==>who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick already used, so w <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6639	6752	
==>Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6639	6752	
==>Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	341	470	
==>mper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	373	502	
==>mper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2927	3024	
==>u combine the key with a nonce or initialization vector, a 
one-time random number.  (It will need <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2927	3024	
==>u combine the key with a nonce or initialization vector, a 
one-time random number.  (It will need <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	859	951	
==>glish

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	859	951	
==>glish

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=h <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4368	4464	
==>44+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4368	4464	
==>44+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3048	3147	
==>an::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3048	3147	
==>an::Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Spa <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16291	16416	
==>it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        } <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20717	20842	
==>it.

  struct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3982	4122	
==>n rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3982	4122	
==>n rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8436	8542	
==>[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8424	8530	
==>[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	68	173	
==>ackage namespaces

=head1 SYNOPSIS

 class Role does NameSpace;

=head1 DESCRIPTION

This type is not used <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5576	5686	
==>mp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5576	5686	
==>mp if $cmp;
    $cmp = $.end <=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6461	6565	
==>ember_combinations()} -> $module_name {
        # Determine if requested template module is already loade <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6461	6565	
==>ember_combinations()} -> $module_name {
        # Determine if requested template module is already loade <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	180	287	
==>warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	182	289	
==>warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26748	26880	
==>__ );

  sub new {
    my ($class, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	367	460	
==>f->emit($type_annotated);
	my $main = $self->bind($c_code);
	$main->();
}

sub annotator_class <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2374	2506	
==>($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2374	2506	
==>($path)) {
        $path = rel2abs($path);
    }
    else {
        $path = canonpath($path);
    }

    # Figure out the effective $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10137	10239	
==>tion see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10195	10297	
==>tion see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_tests) return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4177	4334	
==>e ) 
            };
            $@ and error( "Could not load available file: $@" ), return;
            $obj->available( \@avail );

        }
  
        ret <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1373	1452	
==>e_scopeop}?\s+(${re_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15781	15875	
==>returns a C<Str>, the returned C<Str>
will support the same levels as the input, unless specifi <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	130	289	
==>l $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @I <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	125	284	
==>l $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3010	3108	
==>>

The IP address of the client, if available.

=back

In addition, the following request headers a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3010	3108	
==>>

The IP address of the client, if available.

=back

In addition, the following request headers a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5444	5556	
==>q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_strin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5444	5556	
==>q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_strin <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27444	27557	
==>$mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($s);
	my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1470	1565	
==>urn &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1470	1565	
==>urn &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array is expo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24766	24867	
==>eading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation's body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29318	29419	
==>eading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation's body <==
2	/Users/nnunley/pugs/util/package-osx.pl	3818	3921	
==>rl6::Bible::A02.3pm
        /usr/local/man/man3/Perl6::Bible::A03.3pm
        /usr/local/man/man3/Perl6: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7571	7687	
==>pan0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7571	7687	
==>pan0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10048	10301	
==>/, $v;
                    $op ||= '>=';
                    $str .= "$k $op $ver";
                }
            } else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5704	5868	
==>[^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5704	5868	
==>[^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18216	18366	
==>'BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$sel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41481	41631	
==>'BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->get('$sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2198	2296	
==>lass = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and Blondie::Nodes->can($1)){
		return $1;
	} e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3162	3275	
==>es, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3162	3275	
==>es, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8263	8415	
==>{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8263	8415	
==>{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1506	1599	
==>est::More and other modules based on
Test::Builder.  You don't need to know about Test::Harnes <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1070	1183	
==>ile = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1070	1183	
==>ile = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	517	642	
==>line;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	517	642	
==>line;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_parsi <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2	101	
==>se v6;

use Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_pa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2	101	
==>se v6;

use Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6401	6511	
==>rule ??? (assuming example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6185	6293	
==>rule ??? (assuming example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18436	18522	
==>=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

R <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18436	18522	
==>=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5838	6050	
==>th") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5838	6050	
==>th") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14970	15082	
==>ine down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ /$Report_Re/ox ) {
        ($t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	849	957	
==>guments.

=cut

use strict;
use warnings;
#use Smart::Comments; #for debugging, look also at Filtered-C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40930	41028	
==>a warning.  Primarily useful when you need to
throw a warning that can only be figured out the seco <==
2	/Users/nnunley/pugs/util/version_h.pl	1905	2000	
==>h) without turning
  # "io" warnings off, perl will print "Filehandle STDIN reopened...", becaus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16615	16746	
==>cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13036	13167	
==>cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3336	3535	
==>erl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3336	3535	
==>erl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1966	2097	
==>ssed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    bit->new(exists $self->{$key->to_str->to_native} ? <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13939	14046	
==>> sub { $as_array_complain->("scalar_non_numeric") },
      array => sub { $_[0] },
      hash  => sub { [%{ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11158	11274	
==>hence = $File::SEEK_START)
            returns Bool is primitive is unsafe is builtin {
        Pugs::Internals::hSee <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1892	1998	
==>initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	561	669	
==>coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is_contig <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	561	669	
==>coroutines
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is_contig <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1897	2145	
==>5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1897	2145	
==>5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	63	174	
==>6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symbol;
use Perl6::Core::List;

package closure;

use stric <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2553	2653	
==>_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quart <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2553	2653	
==>_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quart <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9982	10122	
==>Any, Any --> Int );
 type SortCriterion ::= KeyExtractor
                      | Comparator
                      | Pair(KeyExtractor, Compar <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1196	1333	
==>Any, Any --> Int );
type SortCriterion ::= KeyExtractor
                     | Comparator
                     | Pair(KeyExtractor, Compar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	116	206	
==>«
    header push_header init_header remove_header remove_content_headers header_field_nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	116	206	
==>«
    header push_header init_header remove_header remove_content_headers header_field_nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2336	2468	
==>|<regex>]]* {
        return "package $<grammar_name>;\n" .
            "use Pugs::Compiler::Rule;\n" .
            "use Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18269	18366	
==>d to specify the address (URI) of the document from which the
requested resource address was obtai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18269	18366	
==>d to specify the address (URI) of the document from which the
requested resource address was obtai <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10749	10964	
==>text->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$conte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10749	10964	
==>text->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$conte <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20558	20655	
==>hen you
open a program, it will search for language files specific to the program
in the order you <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20558	20655	
==>hen you
open a program, it will search for language files specific to the program
in the order you <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3468	3577	
==>qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4750	4859	
==>qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class->SUPER::new;
	$self->{name} = shift;
	$s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9363	9503	
==>h = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9351	9491	
==>h = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3544	3667	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3737	3860	
==>'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24957	25063	
==>::Message Class

A Message object is a simple container which stores data to be used or
displayed by your p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24957	25063	
==>::Message Class

A Message object is a simple container which stores data to be used or
displayed by your p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12834	12986	
==>x} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6309	6461	
==>x} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	864	952	
==>class, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	864	952	
==>class, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1787	1886	
==>the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features a <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1787	1886	
==>the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2695	2791	
==>ng, seperating it into 'name' and 'value' pairs.  This
method should be called before any other m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2695	2791	
==>ng, seperating it into 'name' and 'value' pairs.  This
method should be called before any other m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1291	1407	
==>rt {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1291	1407	
==>rt {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21359	21455	
==>ct.  An application written to it should easily port
to alternative relational database engines w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21359	21455	
==>ct.  An application written to it should easily port
to alternative relational database engines w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20667	20765	
==>essor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20667	20765	
==>essor, you
have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11761	11873	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12040	12152	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11977	12079	
==>onstructor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11977	12079	
==>onstructor method:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2112	2215	
==>s;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $self->module_name || $self->name || $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1221	1321	
==>s;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $self->module_name || $self->name || $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14609	14705	
==>commended "Good Practice" of ordering the header fields.  Long header
values are not folded.

The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14609	14705	
==>commended "Good Practice" of ordering the header fields.  Long header
values are not folded.

The <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1287	1395	
==>export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know bet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1287	1395	
==>export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, at least until we know bet <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	670	776	
==>($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Vo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	670	776	
==>($self:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Vo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11803	11998	
==>def) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11803	11998	
==>def) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $ve <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2835	2931	
==>LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2835	2931	
==>LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10787	10891	
==>the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10787	10891	
==>the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12986	13106	
==>_ast = \n" .
                "        Runtime::Perl5::RuleOps::compile_rule( q( [ <?ws>? <\@Grammar::Perl6::statements> ] <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1078	1182	
==>e_files = $args->{EXE_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    my ($self, $scri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	853	944	
==>escribes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	853	944	
==>escribes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.> <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1223	1319	
==>ut can be put to other uses as well.

Log::Selective exports a single function, C<note>, which is <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1223	1319	
==>ut can be put to other uses as well.

Log::Selective exports a single function, C<note>, which is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2699	2907	
==>) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2699	2907	
==>) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6768	6908	
==>elf = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12853	12988	
==>elf = shift;
    my $conf = $self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	368	483	
==>efail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	368	483	
==>efail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36443	36540	
==>rray reference of any number of objects

Ender: tail

=head2 ifthen

Family: assertion

Types: ift <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4204	4330	
==>ethod parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.Lis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4204	4330	
==>ethod parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @old if want.Lis <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6050	6161	
==>pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $statements );
    }	
    elsif $tree[0] eq '"PCode" <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1010	1202	
==>g;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $ab <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1010	1202	
==>g;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $ab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1229	1326	
==>order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1229	1326	
==>order = (
 *@general_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	198	293	
==>ule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	198	293	
==>ule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pug <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28212	28311	
==>eading.

=item C<body () returns Set of Mapping(Str) of Any>

This method returns this Relation::Exa <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	433	571	
==>0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', ma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	334	472	
==>0, -2) . $Config::Config{_o} } @_
    );
}

sub cc_inc_paths {
    my $self = shift;
    $self->makemaker_args(
        INC => join ' ', ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17869	17964	
==>rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14290	14385	
==>rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2428	2549	
==>ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2428	2549	
==>ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = ./parse <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19504	19640	
==>f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15925	16061	
==>f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	377	472	
==>([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	377	472	
==>([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19539	19631	
==>ed>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19539	19631	
==>ed>
response.

=item $h.authorization

=item $h.proxy_authorization

A user agent that wishes <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	954	1066	
==>( list_dependencies( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        print "\t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	5	96	
==>ckage Pugs::Grammar::Postfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator <==
2	/Users/nnunley/pugs/util/func_refact.pl	1160	1273	
==>is " . scalar(keys %ccset) . "\n";

        print "\nFinding candidates.\n\n";

        candidates(\%ccset);
	#whi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19640	19742	
==>> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19640	19742	
==>> (for error messages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> fo <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3866	3988	
==>>SUPER::_init(@_);
}

sub get_smoker {
    my($self) = @_;
    if (!$Config{anonymous}) {
        $self->{_smoker} = eval { <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3472	3563	
==>Hs(sv_2mortal(newSVuv(start)));
    XPUSHs(sv_2mortal(newSViv(minend)));
    XPUSHs(sv_2mort <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2806	2915	
==>name\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2806	2915	
==>name\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8961	9060	
==>methods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end val <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8961	9060	
==>methods are available for Set::Infinite objects:

- `start()` / `end()`

Return the start or end val <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	527	698	
==>en '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$c <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	527	698	
==>en '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$c <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf3.pl	24	148	
==>for(1..3) {
    $anz++ if wurf() == 6;
}
print "okay!\n" if $anz == 1;
#=Perl 6:
if one({wurf()} xx 3) == 6 {
	"okay!".say;
} <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3184	3270	
==>) --> "&", p6_concatenation(X), p6_conjunctions(intersect(W,X), Z), !.
p6_conjunctions( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19698	19796	
==>luding these headers.

=item $h.authorization_basic

This method is used to get or set an authoriza <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19698	19796	
==>luding these headers.

=item $h.authorization_basic

This method is used to get or set an authoriza <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34038	34133	
==>ly: anyof_char

Types: anyof_char (C<X>)

Data: actual character

=head2 anyof_range

Family: an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2582	2684	
==>mpiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2582	2684	
==>mpiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8595	8707	
==>r = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16448	16575	
==>gc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12869	12996	
==>gc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char clas <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35843	35941	
==>h the
invocant relation into a new Relation, such that all common attribute names
and corresponding <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40393	40491	
==>h the
invocant relation into a new Relation, such that all common attribute names
and corresponding <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2189	2296	
==>height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2189	2296	
==>height($child);
    $self!set_width($child);    
    $child.fix_depth() unless $child.is_leaf(); 
    @!chil <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2183	2280	
==><quantifier>  }

rule simple_term  {
    <metasyntactic_token> | <commit_something>
  | <match_var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	278	457	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	278	457	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'gramm <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3778	3874	
==>tring )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorro <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3778	3874	
==>tring )`

Given a string, this module attempts to parse it.  The strings "now",
"today", "tomorro <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8003	8115	
==>y;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8003	8115	
==>y;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $span1 );
}

me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19106	19201	
==>ror {
    my($code,$err)=@_;
    Carp::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	561	694	
==>LY
code => sub {
	s{^(sub \s+ (\w+::\w+) \s* \{)}{
		$orginal = $1;
		$sub = $2;
		if ($sub =~ /$regex/) {
			"warn 'Filtered:$sub';\n <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8256	8352	
==>b
array.

In Scalar context, they all return the count of elements that would have
been iterated. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15809	15905	
==>5-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15809	15905	
==>5-2004 Gisle Aas. All rights reserved.

This library is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	878	981	
==>ess::Verbose  = 1;
$Config{"output-file"} ||= "tests.yml";
$Config{"recurse"} = 1 if not defined $Config <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26191	26309	
==>additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While it is by no means required, the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26191	26309	
==>additional fee, the copyright
holders of Rosetta can sell you a warranty for it.

While it is by no means required, the <==
2	/Users/nnunley/pugs/util/version_h.pl	28	133	
==>t;
use warnings;
use Cwd;

my $version_h = shift || Cwd::cwd() . "/src/Pugs/pugs_version.h";
my $base = sh <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20655	20748	
==>e
# /[get|set][host|net|proto|serv|sock].*/ glob ioctl link listen 
# lstat mkdir open opendir <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12765	12867	
==>n value is the values of the fields removed.  In scalar
context the number of fields removed is returne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12765	12867	
==>n value is the values of the fields removed.  In scalar
context the number of fields removed is returne <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20434	20525	
==>2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20434	20525	
==>2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that randoms strings are usa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1463	1553	
==>$p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1463	1553	
==>$p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_nu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15734	15834	
==>item $h.if_unmodified_since

These header fields are used to make a request conditional.  If the requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15734	15834	
==>item $h.if_unmodified_since

These header fields are used to make a request conditional.  If the requ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5097	5232	
==>ib       => ['/lib' ],

      emitter   => 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4920	5051	
==>ib       => ['/lib' ],
      emitter   => 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pug <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30512	30680	
==>::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatcher');
                }   
                else {
                    confess 'Unsupport <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3015	3139	
==>ine sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subrou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3493	3617	
==>ine sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subrou <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1980	2125	
==>turn;
        }
    }
    
    $str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift;
    my %hash <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	339	459	
==>->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9757	9877	
==>->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7500	7604	
==>);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathch <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7500	7604	
==>);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && @basechunks && lc(@pathch <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1193	1309	
==>tf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str i <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1193	1309	
==>tf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($str i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10799	10896	
==>make up the bulk of the Rosetta::Model code,
and these could potentially be extended by third part <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10799	10896	
==>make up the bulk of the Rosetta::Model code,
and these could potentially be extended by third part <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2587	2684	
==>ns C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat shor <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2587	2684	
==>ns C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somewhat shor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	554	656	
==>se v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <Captu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	554	656	
==>se v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <Captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1591	1758	
==>];
        return \@state;
    }
}

sub concat {
    my $nodes = shift;
    return sub {
        my @state = $_[1] ? @{$_[1]} : ();
        do {
            m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3440	3546	
==>ach key of that Mapping is the name
        # of one of this Relation::Example's attributes and the value c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9915	10047	
==>\\&{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    retur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	91	194	
==>.pm";

$::TestBuilder->STORE('::Test' => class 'TestBuilder::Test' => {
    is => [ $::Object ],
    cla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37235	37330	
==>he name of a Perl package in its positional parameter
$module_name (a string) and checks whether <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37235	37330	
==>he name of a Perl package in its positional parameter
$module_name (a string) and checks whether <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11390	11483	
==>a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("Us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11390	11483	
==>a single
field value.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("Us <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4070	4177	
==>ate object for the given values.  The month and day default
to 1 if not given.

The value for day can also b <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4070	4177	
==>ate object for the given values.  The month and day default
to 1 if not given.

The value for day can also b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2711	2873	
==>y @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2621	2778	
==>y @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1359	1461	
==>uto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1344	1441	
==>uto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6527	6630	
==>RCUMFIX );
  #$temp1 = $$token{eqiv};
  #$temp2 = $$top{eqiv};
  goto oper_shift if $$token{eqiv} > $$to <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6108	6209	
==>tion of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6108	6209	
==>tion of HTML event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parse <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3053	3195	
==>ous
          Test returned status 3 (wstat 768, 0x300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 17, 19
          Failed 10/20 tests, 50 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4547	4668	
==>s_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4547	4668	
==>s_lazy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Arr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	536	643	
==>,
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1394	1501	
==>,
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRI <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16026	16123	
==>$!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19503	19600	
==>$!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	354	572	
==>type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	354	572	
==>type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1793	1920	
==>err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort k <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1793	1920	
==>err_str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort k <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	826	943	
==>e::Path! This module should be core!" );
        return;
    }

    eval { File::Path::mkpath($args->{dir}) };

    if <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13908	14006	
==>sts --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@keytests --> Int|List )
 
Ite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10794	10912	
==>uleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11073	11191	
==>uleop::capture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       , <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	437	530	
==>ers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	437	530	
==>ers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Encoding U <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3699	3865	
==>\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 le <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3699	3865	
==>\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 le <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1106	1359	
==>rgs.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1106	1359	
==>rgs.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7457	7635	
==>fined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.captur <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7457	7635	
==>fined $name
                                            ?? multidex($mmat.capture_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.captur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36143	36249	
==>jacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36143	36249	
==>jacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Members of ['Eng','Fre' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21835	21932	
==>ng a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech") <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21835	21932	
==>ng a reason optionally.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech") <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	866	965	
==>code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogene <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	866	965	
==>code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogene <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1017	1138	
==>e
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attribut <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4495	4616	
==>e
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attribut <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10056	10153	
==>alue::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10056	10153	
==>alue::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5190	5353	
==>erse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5190	5353	
==>erse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3014	3185	
==>) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3014	3185	
==>) )
        if @_ > 2;
    my @nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33331	33438	
==>g stack.  Elements are taken from the I<front> of the
walking stack, so we add them in the order they are to <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22063	22160	
==>mple::Tuple.

=head1 SYNOPSIS

    use Relation::Example;

I<This documentation is pending.>

=hea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15702	15845	
==>the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19935	20078	
==>the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5002	5177	
==>[@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5002	5177	
==>[@!set_names];
}

method get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

meth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33814	33915	
==>an individual user's (or user role's) preferences such that each says what
language they prefer to com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33814	33915	
==>an individual user's (or user role's) preferences such that each says what
language they prefer to com <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	94	254	
==>f)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift(@a);
      my $kludge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16237	16351	
==>egation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12658	12772	
==>egation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] >;
    my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23215	23314	
==>ay reference of flag values.  When a scope is entered, the top
value is copied and pushed onto the s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1014	1122	
==>es are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1014	1122	
==>es are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Gramma <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1072	1246	
==>e' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        my $_table = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4611	4774	
==>@replace_list -> @list
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift;
                my $replacement = <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1022	1139	
==>>;
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood% <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1727	1901	
==>en() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1727	1901	
==>en() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16828	16924	
==>ptional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16828	16924	
==>ptional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attrib <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11457	11641	
==>marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11457	11641	
==>marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possi <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3991	4099	
==>, *@args) {
        super *@args;
    }
}

class Class::Events::Notification {
    has Class::Events::Subscri <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	331	422	
==>er::DuplicateFinder;
	use base qw/Blondie::Reducer::DuplicateFinder/;

	sub generic_reduce { <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	780	896	
==>unning time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($cou <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	780	896	
==>unning time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($cou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3607	3732	
==>er);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3607	3732	
==>er);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## multi sub *infix:<+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1394	1527	
==>s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1394	1527	
==>s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	861	1021	
==>rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	861	1021	
==>rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6989	7095	
==>GES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6989	7095	
==>GES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20150	20293	
==>defines how it gets placed
into the regex tree.  Most objects inherit theirs from the base object
class.

The walker() method is also now abstra <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2328	2465	
==>l mkisofs to create a ISO9660 image.

You can stop this program at any time, it'll continue when you run it again.

Note: This program sho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4823	5035	
==>d) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a war <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4823	5035	
==>d) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # Should give a war <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2772	2883	
==>eviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2772	2883	
==>eviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12207	12310	
==>e/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to the give <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12207	12310	
==>e/$_" }, <gif png tiff>]);

=item $h.init_header( $field, $value )

Set the specified header to the give <==
2	/Users/nnunley/pugs/util/package-osx.pl	9650	9807	
==>ove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files) = @_;
    for my $from (@files) {
        my $dirs = $from;
        $dirs =~ s#/ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11479	11612	
==>st;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initrd",
    ensure => sub { -r "$initrd_mnt/lib6/$_" or retu <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16369	16477	
==>tot);

    if (_all_ok($tot)) {
        print "All tests successful$bonusmsg.\n";
    } elsif (!$tot->{tests} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9145	9265	
==>de;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9145	9265	
==>de;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1253	1368	
==>$name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pass ? "ok $t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	551	661	
==>st of Object|Object
multi sub pairs  (@array ; Any|Junction *@indextests) returns List of Pair
multi sub values <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3777	3883	
==><multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4 <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3777	3883	
==><multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, say, C<[2,4 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16882	16980	
==>components of their application in Rosetta D (as
either named modules or anonymous routines) and wr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16882	16980	
==>components of their application in Rosetta D (as
either named modules or anonymous routines) and wr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3419	3526	
==>ented as a Mapping; each key of that Mapping is the name
        # of one of this Relation::Example's attrib <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	491	578	
==>ce>,
L<JIB::Repository>, L<JIB::Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUT <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18565	18678	
==>'skip' ) {
            $totals->{skip_reason} = $detail->{reason}
              unless defined $totals->{skip_reas <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5045	5161	
==>nels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5045	5161	
==>nels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$chan}.delete(@nick <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10400	10516	
==>YPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10400	10516	
==>YPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6441	6588	
==>l {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6441	6588	
==>l {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode($val));                            
        }
    }
    return join($QS_DE <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17551	17652	
==>ompiled modules without shipping Module::Compile and
the compiler modules themselves.

=item *

Easier <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17551	17652	
==>ompiled modules without shipping Module::Compile and
the compiler modules themselves.

=item *

Easier <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11711	11832	
==>eading);

    return Relation::Example.new(
        heading => $!heading,
        body => $!body.difference( $other!body ) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12809	12911	
==>replaces HTML entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12809	12911	
==>replaces HTML entities found in the $string with the
corresponding Unicode character.  Under perl 5.6 a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15136	15236	
==>n => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, cr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15136	15236	
==>n => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters, cr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1174	1278	
==>::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1174	1278	
==>::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2458	2567	
==>(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclarat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2458	2567	
==>(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDeclarat <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	896	1006	
==>Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eva <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	863	973	
==>Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eva <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4349	4454	
==>3> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless def <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4349	4454	
==>3> = [-> $event {
    my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless def <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17613	17728	
==>= $m;
    my $ok = $r->($noop);
    if(not FAILED($ok)) {
      my $a = $X::cap;
      $m->set(1,substr($X::str,$sta <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8570	8655	
==>s", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([-x|L]) --> "x", p5_modifier_spec <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13084	13182	
==>they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13142	13240	
==>they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because something is <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1745	1869	
==>keys -> $k {
	push(@ret, @array[$k] ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}


# signat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22957	23063	
==>ally'> <Block>
}

# A.5 Functions and Programs

rule FunctionDeclaration :words {  # see clause 13
      <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5904	6015	
==>e not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5892	6003	
==>e not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub special_char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10479	10581	
==>tially
never be performed at all.  They validate everything except
well-formedness, such as that Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10479	10581	
==>tially
never be performed at all.  They validate everything except
well-formedness, such as that Rosett <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29086	29218	
==>turn $e->get('$self:')->get_attr(symbol->new('@:MRO'));                
            }
        )
    )
);

=pod

method dispatcher (op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25534	25644	
==>ou may find it helpful to copy these to your sub-class.  If you're
curious why the C<regex> value is a referenc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1991	2098	
==>ME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1991	2098	
==>ME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3489	3628	
==>| <NBSP>
    | <USP>
}
rule LineTerminator {  # see 7.3
      <LF>
    | <CR>
    | <LS>
    | <PS>
}
rule Comment {  # see 7.4
      <Multi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29759	29880	
==>) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29759	29880	
==>) returns Str {
            return %TEXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is v <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	331	433	
==>"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	331	433	
==>"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub run_widget($match_in, %variables) {
    my $match = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8897	8990	
==>ble(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2722	2815	
==>ble(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33108	33200	
==>>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37658	37750	
==>>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	387	492	
==>ad1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body. <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	387	492	
==>ad1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16103	16214	
==>other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19580	19691	
==>other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2595	2724	
==>($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2595	2724	
==>($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_success  () { HTTP::Status: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11946	12053	
==>sity($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11946	12053	
==>sity($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19388	19480	
==>inition statements are structured as
standard data manipulation statements but that the targe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19388	19480	
==>inition statements are structured as
standard data manipulation statements but that the targe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16696	16802	
==>lf to the user, but
rather returns its results for calling code to output as it sees fit.  It
also does not <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16696	16802	
==>lf to the user, but
rather returns its results for calling code to output as it sees fit.  It
also does not <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19773	19903	
==>outfile = IO::File->new(">$synhtml") 
                             or die "Can't open output test file $synhtml: $!";
        $outf <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1357	1469	
==>ou shot a round of $tot strokes.\n";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23132	23350	
==>ant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23411	23629	
==>ant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2798	3058	
==>ock = 1;
                }
            }            
            elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t =~ /^\d+$/) {
                push @t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1154	1251	
==>uperclass of any superclass

method set_superclasses($self: Set $super) {

    my $supers = $self. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24257	24338	
==>aptures(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1,G)).
match_captures <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2811	2908	
==>PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2811	2908	
==>PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17605	17710	
==>()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17605	17710	
==>()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1444	1564	
==>Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1444	1564	
==>Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2855	2953	
==>ample-0.1.0 {

    # External packages used by the Relation::Example class, that do export symbols: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2838	2931	
==>both return and argument types differ.
multi infix:«¥» (Array *@arrays --> Lazy) { zip *@ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	368	482	
==>y ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	368	482	
==>y ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	478	574	
==>tr is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	478	574	
==>tr is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11175	11330	
==>utine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_bo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11175	11330	
==>utine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12975	13081	
==>y %args = @_;
    exists $args{switches} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tain <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5022	5120	
==>, !.
p6_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3499	3700	
==>lternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we're the 'prefered' package
                my $link_this   = 1;
                my <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15470	15592	
==>s {  # see 11.8
      <ShiftExpression>
    | <RelationalExpression> <'<'> <ShiftExpression>
    | <RelationalExpression> < <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2039	2148	
==>method export_attr_type of Relation::LaxPairAttrType
    (Relation::AttrName $attr_name) {...}

proto method a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1165	1271	
==>method export_attr_type of Relation::LaxPairAttrType
        (Relation::AttrName $attr_name) {
    return % <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6923	7084	
==>decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6923	7084	
==>decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3327	3431	
==>.day }
method mday_0 returns Int { $.day - 1 }

#use Duration::Gregorian;# qw(duration);

#BEGIN {
#our & <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3243	3339	
==>ernet.
  --kernel-local=$kernel_local
    Locally, the kernel is saved as --kernel-local.
  --gru <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3493	3626	
==>pen;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3493	3626	
==>pen;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	249	352	
==>untime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	249	352	
==>untime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17578	17685	
==>= "package $ROOT".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6366	6583	
==>);
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6366	6583	
==>);
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1669	1765	
==><< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions o <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1669	1765	
==><< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions o <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4343	4436	
==>ttp://www.research.att.com/~njas/sequences/A001113
}

 multi method Array::delete (@array ; *@ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27466	27570	
==>ally change an existing Message object, you must create a new
object that is a clone of the first but for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27466	27570	
==>ally change an existing Message object, you must create a new
object that is a clone of the first but for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2170	2354	
==>> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2417	2601	
==>> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_grou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19063	19173	
==>ted with hard-coded program conditions.  In other words, this user
text is *part of the program*, and not the p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19063	19173	
==>ted with hard-coded program conditions.  In other words, this user
text is *part of the program*, and not the p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	2	97	
==>package Pugs::Grammar::BaseCategory;
use strict;
use warnings;
use Pugs::Compiler::Rule;
us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	2	94	
==>package Pugs::Grammar::BaseCategory;
use strict;
use warnings;
#use Pugs::Compiler::Rule;
us <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7331	7429	
==>.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7331	7429	
==>.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.difference(set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6587	6726	
==>rip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } els <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6587	6726	
==>rip fragment per RFC 2616, section 14.36.
        if ($new ~~ URI) {
          $new .= clone;
          $uri.fragment = undef;
        } els <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20220	20338	
==>_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16641	16759	
==>_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $old));
  }) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	204	313	
==>se 'type::comparable';

sub new {
    my ($class, $value) = @_;
    $value = '' unless defined $value; # defau <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	720	823	
==>n($header);
}
 
sub CookiesAdd($variable, $value) {
    %Cookies{$variable}=$value;
}

sub GetCookie($va <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	221	354	
==>r/$exename.c")
    or die "Can't create $testdir/$exename.c: $!";
print $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#inclu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1786	1905	
==>curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1786	1905	
==>curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, username, ircname, etc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3025	3136	
==>span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.n <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3025	3136	
==>span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10473	10575	
==>operator, you can use
'_' as a replacement for '-' in header names.

The header() method accepts multip <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10473	10575	
==>operator, you can use
'_' as a replacement for '-' in header names.

The header() method accepts multip <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4931	5034	
==>es ciphering of any leftover data and returns it as an array of bytes, 
then clears the object's interna <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4931	5034	
==>es ciphering of any leftover data and returns it as an array of bytes, 
then clears the object's interna <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	876	969	
==>ected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	876	969	
==>ected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1413	1521	
==>uperset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1413	1521	
==>uperset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8954	9081	
==>emantics, where 'require'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8954	9081	
==>emantics, where 'require'
    # will munge the package name into file system paths.
    eval "require $module_name;";
    $?SELF <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12909	13183	
==>00*(scalar @{$test{failed}})/$test{max},
                                             estat   => '',
                                             wstat   => '',
                                           };
                } else {
                    print "Don't know which <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1262	1359	
==>* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys(), va <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1262	1359	
==>* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys(), va <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3819	3927	
==>n name(): '$values{name}' should be '$name'!\n";
    }

    my $dump = '';
    foreach my $key (@scalar_keys) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2692	2799	
==>and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2692	2799	
==>and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11542	11656	
==>_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3133	3247	
==>_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), "\\c$c");
  });

  # n <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1028	1127	
==>velopers;

# Collect commits in days
# E.g. $commits_till_day[42] = 1500 (1500 commits from day 1 to <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	128	222	
==>t_int';
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config --li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2068	2213	
==>s([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2068	2213	
==>s([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Request::CGI - Subclass of HTTP::Request for dealing <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4849	4940	
==>, ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4849	4940	
==>, ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3605	3708	
==>lock above



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3477	3576	
==>lock above

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	83	255	
==>assed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	83	255	
==>assed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2220	2314	
==>specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2309	2403	
==>specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the base Grammar: <ws <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23725	23837	
==>an not be further changed;
this class defaults it to False.

=back

This is the main Relation constructor method: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28277	28389	
==>an not be further changed;
this class defaults it to False.

=back

This is the main Relation constructor method: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2343	2450	
==>tocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2343	2450	
==>tocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4522	4678	
==>satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy ba <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4986	5142	
==>satisfied this depenendency
                die "No package satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy ba <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	191	304	
==>lues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	191	304	
==>lues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic an <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8205	8379	
==>ch
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8205	8379	
==>ch
        $match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16837	16955	
==>Eliminates redundancy from a regex.  It should have various options,
such as whether to do optimize...

  # strings
  / <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28030	28124	
==>)

 #ifdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_cop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23197	23296	
==>e and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23197	23296	
==>e and a
channel name to the C<target> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#cha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	483	595	
==>n map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        retu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	483	595	
==>n map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1406	1622	
==>rn 1 if -d $_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    loc <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14351	14475	
==>b { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  using  => sub { open my $fh, ">", "$cdroot/boot/grub/menu.lst"; p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19879	19998	
==>nhtml: $!";
        $outfile->print($sobj->as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a test files
su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9969	10085	
==>se|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9969	10085	
==>se|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{(?: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8064	8233	
==>od pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8064	8233	
==>od pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4224	4328	
==>sed as an array reference, the match object returns positional
captures as match objects.

=head2 %{}

Wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4224	4328	
==>sed as an array reference, the match object returns positional
captures as match objects.

=head2 %{}

Wh <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4127	4256	
==>@{ $values{$key} } ) {
            $dump .= "  $_->[0]: $_->[1]\n";
        }
    }

    if ( my $no_index = $values{no_index} ) { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7213	7303	
==>arams, $pSubLValue, $pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubType, $pSubP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2744	2852	
==>d ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2744	2852	
==>d ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $field;
    unless %standard_ca <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3984	4069	
==>http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3984	4069	
==>http://en.wikipedia.org/wiki/Token_bucket>, 
L<http://linux-ip.net/gl/tcng/node54.html <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16883	16992	
==>(-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is safe {
        Num::round_gen($n, &Num::d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9421	9541	
==>nt_max:
    if $S0 == "?" goto quant_lazy
    max = PGE_INF
    goto quant_lazy
  quant_lazy:
    inc pos
    $I0 = find_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6541	6645	
==>n +0 if $Result1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($Res <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1387	1561	
==>);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next elemen <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1387	1561	
==>);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next elemen <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2023	2143	
==>}
       );
}

# sigh ... how you get used to infrastructure you've built up in Perl5

=head1 NAME

Meta::Class - Entitie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2138	2241	
==>\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2126	2229	
==>\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::Runti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16896	17019	
==>ush @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13317	13440	
==>ush @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12327	12522	
==>flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12321	12516	
==>flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3787	3908	
==>/;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3787	3908	
==>/;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22934	23038	
==>ins zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27486	27590	
==>ins zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
at <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	605	707	
==>does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TOD <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	605	707	
==>does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TOD <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17557	17659	
==>::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHOD <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17557	17659	
==>::OO> is an IRC library for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHOD <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8626	8724	
==>if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8684	8782	
==>if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass test <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1449	1559	
==>def }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $paren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1449	1559	
==>def }


my method set_parent ($self: Tree $parent) returns Void {
    $!parent = $parent;
    $.depth  = $paren <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19950	20051	
==>Mac OS X programs, including
the operating system itself, to have the user language data in separate
f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19950	20051	
==>Mac OS X programs, including
the operating system itself, to have the user language data in separate
f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19748	19847	
==>lter' statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19748	19847	
==>lter' statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Ro <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18096	18205	
==>omb(
	fun => ide("fst"),
	param => $pair,
);

# this makes sure that ':t id(10)' is the same as ':t 10'
my $ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1057	1191	
==>efined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1057	1191	
==>efined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	307	414	
==>rrent backend does.


role rArray {}


class Array is List does rArray;

# signature from S29draft.pod r8593 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10731	10847	
==>o/l/linux"],
    [$linuxrc              => "$initrd_mnt/linuxrc"],
    [$welcome_p6           => "$initrd_mnt/welcome <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	881	999	
==>ROY' => sub {
            my $footer = _('$.testplan')->footer( scalar @{_('@:results')} );
            _('$.output')-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1344	1440	
==>MSG>s. Each time people say something (in public), the current
time and the text they said is sav <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1344	1440	
==>MSG>s. Each time people say something (in public), the current
time and the text they said is sav <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1903	2083	
==>p->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1903	2083	
==>p->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# ex <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	999	1110	
==>:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	999	1110	
==>:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $dir <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1053	1181	
==>, $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1258	1386	
==>, $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10788	10946	
==>ure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $doma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10788	10946	
==>ure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $doma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2540	2651	
==>lf->elems)->to_native
    )     
}

# some of the common list operations

sub head { @{$_[0]}[0] }
sub tail { li <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5507	5644	
==>ode_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5507	5644	
==>ode_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1714	1948	
==>,
							Val(
								Thunk(
									App(
										Sym('&infix:<*>'),
										Sym('$n'),
										App(
											Sym('&fact'),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2695	2805	
==>e {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2912	3022	
==>e {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1822	1923	
==>cifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LIC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1822	1923	
==>cifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LIC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16573	16673	
==>:KeyedText gives your application the maximum amount of control as
to what the user sees; it never ou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16573	16673	
==>:KeyedText gives your application the maximum amount of control as
to what the user sees; it never ou <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9984	10185	
==>),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6955	7141	
==>),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods') <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5975	6092	
==>ift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6168	6285	
==>ift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4810	4928	
==>gnature->new(
            params  => closure::params->new(symbol->new('&dispatcher' => 'block')),
            returns = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28268	28377	
==>e), another object (for a 'quant' node), or it might not exist at all
(for an 'anchor' node).

=item my $e = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5118	5221	
==>$Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling insta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7786	7889	
==>$Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo->bar } '... metaclass calling insta <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20977	21137	
==>uccessfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$test->{failed} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4498	4615	
==>h =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4498	4615	
==>h =~ /\.pm$/;
}

# We use a source filter to get all the code for compiling.
sub pmc_filter {
    my ($class, $module, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7097	7208	
==>@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7109	7220	
==>@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5912	6048	
==>=> chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5912	6048	
==>=> chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4038	4147	
==>d intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4038	4147	
==>d intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._norma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3354	3597	
==>% @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3223	3453	
==>% @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6888	6994	
==>ules, just like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6652	6755	
==>ules, just like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26353	26450	
==>tself is copied on input and output, any
variable values which are references will be passed by re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26353	26450	
==>tself is copied on input and output, any
variable values which are references will be passed by re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17754	17871	
==>= new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17754	17871	
==>= new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3099	3227	
==>bdirs = ($args->{DIR} ||= []);
    if ($self->bundles) {
        foreach my $bundle (@{ $self->bundles }) {
            my ($file <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11373	11473	
==>h can be defined differently in different packages.

This would permit
  ./perl -we 'use Regexp::Perl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22968	23068	
==>PT_ANCH_SINGLE 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also fl <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	235	359	
==>r do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5866	5957	
==>------------------------------
## sibling methods

method get_sibling ($self: Int $index) re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5866	5957	
==>------------------------------
## sibling methods

method get_sibling ($self: Int $index) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4640	4797	
==>t apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4640	4797	
==>t apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5473	5612	
==>eys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5695	5834	
==>eys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1110	1204	
==>PTION

This module lets you write B<Module::Compile> extensions that
are compatible with B<Filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1110	1204	
==>PTION

This module lets you write B<Module::Compile> extensions that
are compatible with B<Filt <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11248	11362	
==>: undef },
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_non_numeric => sub { ${$_[0]} ? 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15295	15401	
==>name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	504	692	
==>s;
    if (s[0]=='"') {
    for(;s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[++j]!=' ';)
      ;
    }
    s[j]=0;
#endif
    for (i = 0; i < ac; i++)
    pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3124	3228	
==>ure::params'))
        || confess "Bad params in signature";
    $options{returns} = 'type' if !(exists $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17566	17696	
==>ual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13987	14117	
==>ual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $lhs;
            last <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3550	3669	
==>rl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interfac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3767	3886	
==>rl
#
# grammar file
# perl5 code generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interfac <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5528	5635	
==>losure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5528	5635	
==>losure_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18556	18660	
==>q 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19914	20018	
==>q 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12741	12855	
==>e.new( heading => $!heading, body => set() );
    }
    if ($other!heading.size() == 0) {
        # Second source i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5283	5404	
==>ate 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5283	5404	
==>ate 
    my $utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5927	6039	
==>ool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we h <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5985	6097	
==>ool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7445	7548	
==>se {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7445	7548	
==>se {
      %channels{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	645	801	
==>d;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	645	801	
==>d;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi m <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	184	323	
==>ce => {
        attrs => [ '$:value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6941	7063	
==>se_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg "# LValue:     " <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6166	6263	
==>state(%modifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5253	5375	
==>], $_[3] ] } }
!,
    );
    # print "created operator table\n";
}

sub add_rule {
    # print "add operator\n";
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15411	15516	
==>the
minimum length of a string that would be matched by the regex; provides
a front-end method for the par <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13232	13330	
==>that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13290	13388	
==>that to be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9199	9322	
==>lasses = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9199	9322	
==>lasses = splice(@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1067	1159	
==>d object-oriented interfaces both follow the same basic steps, 
albeit with different interfa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1067	1159	
==>d object-oriented interfaces both follow the same basic steps, 
albeit with different interfa <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6576	6678	
==>l_local and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kernel_local };

step
  desc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	798	891	
==>:Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	798	891	
==>:Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This docum <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21528	21654	
==>push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17949	18075	
==>push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13545	13673	
==>};
    }
  }
}
{
  # (?>)
  package Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4150	4268	
==>rn $S->force_object(anyof_char => $S->nchar($name), "\\N{$name}") if $cc;
    return $S->object(exact => $S->nchar($nam <==
2	/Users/nnunley/pugs/util/drift.pl	151	248	
==>in/../../DrIFT/src/DrIFT.hs" or exit;

# XXX - This is not at all portable.

$ENV{DERIVEPATH} = "$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	20	118	
==>::Source;

use strict;
use warnings;

use base 'JIB::Package';

use JIB::Constants;
use JIB::Config <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	883	975	
==>his document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	883	975	
==>his document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This do <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1711	1820	
==>module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1711	1820	
==>module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14757	14879	
==>ALL(&$c,$noop);
    };
  }
}
{
  # (?{ ... })
  package Regexp::Parser::eval;
  sub emit {
    my($o)=@_;
    my $noop = $o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1215	1325	
==>has $.property_value;
has $.property_attributes;
# 8.6.2.1
method <[[Get]]> ($O: JSX::String $P) {
    my $Resu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	545	644	
==>y's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	545	644	
==>y's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	643	755	
==>ule, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Lo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	643	755	
==>ule, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8945	9053	
==>$location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::He <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8945	9053	
==>$location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::He <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10772	10880	
==>) if $name =~ /^\%/;

    return "$_[1] ruleop::constant( '" . $value . "' )\n";
}
sub node::closure {
    my <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17446	17546	
==>ffsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* regcompp (pTHX_ char* exp, char* xe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2753	2875	
==>ute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2753	2875	
==>ute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28188	28337	
==>d label
        symbol->new('MRO'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                par <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3657	3752	
==>trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 'tanh';
tr <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1626	1721	
==>duration;
}

# operations with Duration::Gregorian constructors..
##multi method infix:<+>( $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5442	5596	
==>rint "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible wit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5454	5608	
==>rint "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible wit <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16414	16526	
==>er!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19891	20003	
==>er!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        bo <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1028	1150	
==>b  Perl6::List::grep (MatchTest $test ;   *@values) returns Lazy {
   gather {
     for @values -> $x {
       take $x if $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2969	3087	
==>ous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2969	3087	
==>ous - 2005 Jul 31
rule parameter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1136	1232	
==>ess is limited to printing out its results.  This makes
analysis of the test results difficult fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15587	15731	
==>ection\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $para <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15581	15725	
==>ection\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $para <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24611	24711	
==>branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21032	21132	
==>branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14605	14719	
==>$/i) {
	    my $perl = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl had problems load <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23126	23225	
==>nchor. If you want to include variables, use C<qr//>, or mix single-
and double-quoted strings in bu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	191	321	
==>Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $value) = @_;
    (blessed($value) && $val <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26127	26230	
==>NTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright
holders of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26127	26230	
==>NTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyright
holders of <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2210	2394	
==>s
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are alw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2210	2394	
==>s
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are alw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7749	7856	
==>alize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("Q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7749	7856	
==>alize $killee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("Q <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	328	445	
==>ock of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodif <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	328	445	
==>ock of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodif <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26542	26627	
==>ad :assert :context :run);
#$Language::Prolog::Yaswi::swi_converter->pass_as_opaque('U <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5294	5392	
==>iguration data

=item write

The C<write> method the file for the properties, and writes it
to disk <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5294	5392	
==>iguration data

=item write

The C<write> method the file for the properties, and writes it
to disk <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5793	5918	
==>"# Scope:      $scope";  # "SMy"  TODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4580	4703	
==>aref;
    return $o->noop if @a == 0;
    return $a[0]->emit if @a == 1;
    my @fs = map { $_->emit } @a;
    my $code1 = " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	144	287	
==>ASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.qu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	144	287	
==>ASS = URI] {
    is HTTP::Request[::URI_CLASS];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.qu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	726	839	
==>ns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	726	839	
==>ns Date {
    return Date.today() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2643	2758	
==>oint },        
    };
}

my $p = new Point(5, 6);
is($p->class, \&Point, '... got the right class name');
is($p->pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2079	2248	
==>ush ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            pus <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2079	2248	
==>ush ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            pus <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39944	40044	
==>version 2.1 of the License, or (at your option) any later version.  You
should have received a copy o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39944	40044	
==>version 2.1 of the License, or (at your option) any later version.  You
should have received a copy o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24929	25025	
==>> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, but c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24929	25025	
==>> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the server, but c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3051	3153	
==>:Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3051	3153	
==>:Int - An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17724	17898	
==>t = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $spec <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1962	2056	
==>utility is a thin wrapper around Test::Harness.

=head2 Taint mode

Test::Harness will honor th <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	385	496	
==>y $key (keys %funcs) {
	for my $func (keys %funcs) {
		next if $func eq $key;
		print "$key -> $func\n" if $Conf <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8106	8210	
==>-
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8106	8210	
==>-
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3586	3737	
==>exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3586	3737	
==>exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|list)/ }
                  sort <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22059	22181	
==>x

A reference to the original string representation of the regex.

=item len

The length of the original string representa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6103	6225	
==>urrent( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6103	6225	
==>urrent( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2691	2812	
==>=> 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    # experimental
    __PACKAGE__->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32505	32601	
==>tor Class

While a Translator object stores some attributes for configuration, its
main purpose i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32505	32601	
==>tor Class

While a Translator object stores some attributes for configuration, its
main purpose i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9130	9227	
==>DoubleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\"\\]> #SourceCharacter b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2471	2606	
==>s} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Interpreter - A perl interpreter for compiled Blondie program <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	244	362	
==>har> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	244	362	
==>har> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6022	6121	
==>ntime, this must return _only_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_clo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5829	5926	
==>ntime, this must return _only_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_clo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22869	23057	
==>{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23148	23336	
==>{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	494	618	
==>ary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, 
        '{ return { o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2897	3071	
==>.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "\n    {\n" . emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1519	1681	
==>.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $program;
}
sub node::block {
    return "    { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1508	1627	
==>$inst,
            allow => sub { UNIVERSAL::isa( shift(), 'JIB::Installation' ) } },
    };
    
    check( $tmpl, \%ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	403	574	
==>h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	403	574	
==>h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7295	7397	
==>TRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7295	7397	
==>TRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- `splice( ... )`

...

- <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	143	245	
==>($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
mul <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	143	245	
==>($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
mul <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3012	3173	
==>while $n-- > $size_change {
            pop(@a);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6767	6898	
==>x error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6767	6898	
==>x error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1549	1674	
==>->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1549	1674	
==>->('abxxxd') for 1..100},
});

__END__


# experimental!
sub abort { 
    my $op = shift;
    return sub {
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4658	4784	
==>frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oel <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4658	4784	
==>frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oel <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2087	2202	
==>hey
    # both respond to ->type and ->name in the same way, we can use
    # them here.

    my $sigil = $sigils{$a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6785	6891	
==>els>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody wa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6785	6891	
==>els>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Somebody wa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3475	3601	
==>--help. ") unless -d $_;
}
$_ = rel2abs($_) for (@t_dirs,$output_dir,$syn_src_dir); 

# Print status
if($no_designdocs) {
    p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9751	9844	
==>lue from another $iFoo singleton method');   

is($iFoo->test_iFoo_singleton_method(), 
 '$iFo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	846	945	
==>d1 NAME

Blondie::Reducer - generic reducing base class for fmapping nodes.

=head1 SYNOPSIS

    pa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33204	33299	
==>ion>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37754	37849	
==>ion>

This multi-method is the N-ary version of the aforementioned.

=item C<intersection (Relat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3164	3461	
==>@|\&/) {
                if (@t) {
                    $t .= (pop @t);
                }
                push @t => $t;
            }       
            
            # types
            elsif ($t =~ /^\<.*\>$/) {
                push @t => 'q' . $t;
            }      
            
            # c <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	66	179	
==>.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@A <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	66	179	
==>.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@A <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1701	1805	
==>$compile) {
    open(F,"<$compile") or die "open $compile: $!\n";
    my $f = do{local $/=undef; <F>}; cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10291	10422	
==>AY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10285	10416	
==>AY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$nam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25682	25783	
==>ine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25682	25783	
==>ine and
mapped to a user-readable message; the key itself is not meant to be
meaningful to a user.  Th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15410	15526	
==>head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15410	15526	
==>head1 SYNOPSIS

    package Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1336	1431	
==>round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1336	1431	
==>round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2375	2514	
==>ammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2375	2514	
==>ammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	218	325	
==>l 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('type') <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36995	37096	
==>e( $message );

=back

The Translator class also has these utility methods, which are all used by
tran <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36995	37096	
==>e( $message );

=back

The Translator class also has these utility methods, which are all used by
tran <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1749	1948	
==>, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1749	1948	
==>, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18265	18368	
==>e a harder time figuring out the
best way to deal with it.  But for displaying to users, easy messages a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18265	18368	
==>e a harder time figuring out the
best way to deal with it.  But for displaying to users, easy messages a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	337	592	
==>y packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages use <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	337	592	
==>y packages in this file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages use <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4585	4761	
==>hift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6254	6430	
==>hift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB_P <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6536	6631	
==>----- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6536	6631	
==>----- internals -----------

submethod _get_union ( $closure1, $closure2, $direction ) {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11138	11320	
==>n,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11138	11320	
==>n,
            ] ],
            [ 'routine_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9163	9274	
==>w;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9163	9274	
==>w;

 $h.header('Content-Type') = 'text/plain';  # set
 $ct = $h.header('Content-Type');           # get
 $h.remo <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1321	1422	
==>item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1321	1422	
==>item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34922	35024	
==>st all be set when the object is constructed.  If you want to
conceptually change an existing Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34922	35024	
==>st all be set when the object is constructed.  If you want to
conceptually change an existing Translato <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2487	2590	
==>actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2487	2590	
==>actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26961	27066	
==>ut that the returned Relation has
the complement subset of the original's attributes to what C<project> wo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31513	31618	
==>ut that the returned Relation has
the complement subset of the original's attributes to what C<project> wo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5928	6032	
==>Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5928	6032	
==>Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2056	2157	
==>out}= {fixity => 'ternary', op1 => \$_[2], op2 => \$_[4], exp1 => \$_[1], exp2 => \$_[3], exp3 => \$_[ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14100	14192	
==>}.


alnums([C|T]) --> [C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {true}.

uncod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10696	10792	
==>();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10696	10792	
==>();
}

method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	39	135	
==>use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	39	135	
==>use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2752	2879	
==>rn 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2752	2879	
==>rn 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23763	23859	
==>h Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23763	23859	
==>h Rosetta and
implements a reference implementation of a Rosetta Engine.

The Perl 6 module L<Ros <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3939	4045	
==>ncode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3939	4045	
==>ncode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns S <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1978	2121	
==>cause of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$se <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1978	2121	
==>cause of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_str";
                $output.say("[$se <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	787	885	
==>- content.

The constructor for this class has a special shortcut syntax compared
to normal C<Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	787	885	
==>- content.

The constructor for this class has a special shortcut syntax compared
to normal C<Perld <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	560	660	
==>});

# every Meta::Class is a part of an object model object called the
# schema
Has($?CLASS, "schema <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8752	8862	
==>ed libraries pugs, parrot and bash require",
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1928	2036	
==>$method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1928	2036	
==>$method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9 <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	731	839	
==>ion;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $descriptio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	731	839	
==>ion;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $descriptio <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2203	2313	
==>ource package dirs
$config{'jib_dir'}          = [ Path::Class::dir('_jib') ];
### XXX need cp -R functionality <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24448	24543	
==>en N is a number
  package Regexp::Parser::groupp;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7804	8025	
==>dency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8268	8489	
==>dency
                    for my $maybe (@$index) {
                        ### not the right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1922	2035	
==>Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file ha <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1922	2035	
==>Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file ha <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4859	4956	
==>lowing are the (pseudo) methods for Config::Tiny objects. These
methods can be called with the fol <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4859	4956	
==>lowing are the (pseudo) methods for Config::Tiny objects. These
methods can be called with the fol <==
2	/Users/nnunley/pugs/util/claim_drift.pl	621	734	
==>evel of a pugs
    working directory, and that you have a copy of DrIFT one level up.
.
    exit 1;
}

for my $ori <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2064	2157	
==>head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2064	2157	
==>head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C<< prefix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	439	549	
==>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	439	549	
==>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1718	1812	
==>r also includes several attributes which might be interesting to 
people interested in the algo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1718	1812	
==>r also includes several attributes which might be interesting to 
people interested in the algo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10318	10461	
==>]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10318	10461	
==>]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2008	2132	
==>=> 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_yea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2008	2132	
==>=> 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_yea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2292	2514	
==>ontent;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2292	2514	
==>ontent;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16584	16706	
==>> 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16584	16706	
==>> 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will need throttling <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9590	9684	
==>es of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP::Re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9590	9684	
==>es of this class are usually created as member variables of the
C<HTTP::Request> and C<HTTP::Re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12651	12787	
==>t $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12651	12787	
==>t $document .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_typ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	650	758	
==>ional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	650	758	
==>ional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind::Param->new
	    ({ co <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2784	2895	
==>er>;
method month_name returns Str { @months[./month_0] }

our @months_abbr = <Jan Feb Mar Apr May Jun Jul Aug S <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3354	3451	
==>ile::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pc <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3354	3451	
==>ile::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2625	2732	
==>ildren[$index] }
method get_all_children returns Array of Tree { @!children }

## -------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2625	2732	
==>ildren[$index] }
method get_all_children returns Array of Tree { @!children }

## -------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20773	20876	
==>$self %params))
        (= $method (WALKMETH (&dispatcher (symbol new DESTROY)))))))

=cut

$::Class->se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4324	4417	
==>Object->name, 'Object', '... $Object got the right method return value');
is($Object->supercla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6226	6319	
==>Object->name, 'Object', '... $Object got the right method return value');
is($Object->supercla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2864	2991	
==>rl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3057	3184	
==>rl5_rule_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2508	2612	
==>$use_native_ui = 1;
    test(sub{my($re,$mod)=@_;sub {my($s)=@_; eval("$s =~ /$re/$mod") }});
    exit;
} <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20531	20633	
==>$estatus, $wstatus) = @_;
    my ($failed, $canon, $percent) = ('??', '??');

    printf "$test->{ml}du <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9679	9779	
==>nce set, defined with closures. 

A recurrence set is defined by a "successor" function and a "predec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9679	9779	
==>nce set, defined with closures. 

A recurrence set is defined by a "successor" function and a "predec <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5795	5903	
==>_remove) in self";
}

## ----------------------------------------------------------------------------
## sibl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5795	5903	
==>_remove) in self";
}

## ----------------------------------------------------------------------------
## sibl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9156	9263	
==>_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9156	9263	
==>_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3943	4048	
==>>invocant->bind(\$args->{invocant}, $lv, $pad);
    }
    else {
	croak 'unexpected invocant'
	    if defi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6997	7179	
==>x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6997	7179	
==>x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closure1 }( &{ $closure2 }( $n2 ) );
            re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10708	10808	
==>/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10708	10808	
==>/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5013	5115	
==>UILD { $.type = JSX::InternalValue::Completion_type.new(); }
   has $.type;
   has $.value;
   has $.ta <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2161	2307	
==>t) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for % <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2161	2307	
==>t) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for % <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1103	1205	
==>m - the regexp tree, its
  compilation to pil, how regexp modification macros work, etc.
  Working with <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3210	3325	
==>V};
}

sub _build_exclude_re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } @{ $Config{exc <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16400	16525	
==>builtin->digest)){
        $val->set($native); # it's a Prim
    } else {
        if ($builtin->isa("Thunk")) {
            $b <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8549	8662	
==>s  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b->{file}} @files ]); 
    print $fh $templa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	404	498	
==>ub as_hash   {my($o)=@_;$$o->{'val_hash'}}

sub from {my($o)=@_;$$o->{'from'}}
sub to   {my($o) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3030	3165	
==>:capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3041	3176	
==>:capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3358	3460	
==>nce or initialization vector should be hashed with the 
key, not merely appended to it; appending can c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3358	3460	
==>nce or initialization vector should be hashed with the 
key, not merely appended to it; appending can c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	106	193	
==>ORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	106	193	
==>ORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_cha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11222	11334	
==>rn 1;
}

=head2 $alt = $inst->remove_registered_alternative( package => $inst_pkg )

=cut

sub remove_registered_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	113	214	
==>pos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decide <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	113	214	
==>pos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decide <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	153	259	
==>ring, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	153	259	
==>ring, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4401	4508	
==>et );

Moves a file or directory to the target.

Returns true on success, false on failure.

=cut

sub _move <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3410	3515	
==>rray::shift (  ) {
    Array::shift @+_;
}


# signature from S29draft.pod r8593.
# body from PIL2JS (r859 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	696	807	
==>: ', $self->{source}, "\n";
    local $@;
    eval {
        $self->{ast} = Pugs::Grammar::Perl6->parse( $sel <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	745	856	
==>o use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	745	856	
==>o use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5245	5332	
==>0 ,Max) --> "...", digits_int(Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(M <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14795	14907	
==>irc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by defau <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14795	14907	
==>irc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by defau <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9032	9132	
==>del" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9032	9132	
==>del" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1167	1265	
==>{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self-> <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1167	1265	
==>{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self-> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3572	3701	
==>5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3572	3701	
==>5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4150	4302	
==>t implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4150	4302	
==>t implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1523	1637	
==>n( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1523	1637	
==>n( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6567	6669	
==>'END';
sub is_slurpy { $_[0]->name =~ /Slurpy/ }
END
    foreach my $pkg (keys %used) {
	next if $creat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13215	13315	
==>s C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13215	13315	
==>s C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields> <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3841	3957	
==>e\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckMid {
   my ($sc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	770	883	
==>e a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	770	883	
==>e a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4807	4958	
==>> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4807	4958	
==>> 5 infix:<+>' 
        # || 
        # postfix( $match->() ) eq '3 4 5 infix:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print po <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2898	3027	
==>f our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($ind <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2898	3027	
==>f our children 
    # against the index given
    ($index <= $self.child_count()) 
        || die "Index Out of Bounds : got ($ind <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5581	5697	
==>If you need that information you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get doc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5581	5697	
==>If you need that information you should use the full OO
interface (see L<LWP::UserAgent>).

=item head($url)

Get doc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9557	9695	
==>\\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10393	10531	
==>\\n\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Gr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2383	2507	
==>ition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->posi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	769	990	
==>iven $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        } <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	769	990	
==>iven $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        } <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7529	7653	
==>) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7586	7710	
==>) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2014	2120	
==>$message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2014	2120	
==>$message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUN <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3666	3844	
==>(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        } <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3666	3844	
==>(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4304	4413	
==>lement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4304	4413	
==>lement ($self: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3677	3837	
==>me => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[0]->{out}= $_[1] }
    | 'TRAIT' block     
        { $_[2]{trait} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15057	15158	
==>ispatcher)))))))
     (opaque new (\$class: %attrs)))

=cut

$::Class->send('add_method' => (
    # me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27654	27751	
==>0x01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, and C</x> in Perl's regexes.

The fla <==
2	/Users/nnunley/pugs/util/testgraph.pl	317	418	
==>if $Config{help};

my $yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Coul <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2288	2431	
==>---------------
-- Do not modify this file; it is generated automatically by  --
--                  util/gen_prelude.pl                       - <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1766	1866	
==>TION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1766	1866	
==>TION

Perl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	107	202	
==>use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
use Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6258	6358	
==>r is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6258	6358	
==>r is not very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19773	19868	
==>osetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it li <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19773	19868	
==>osetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it li <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7262	7376	
==>nd
.end

.sub "parse_modifier"
    .param pmc mob
    .local int pos, lastpos
    .local string target, value
    . <==
2	/Users/nnunley/pugs/util/addauthors.pl	504	619	
==>c}\n";
  my $author;
  my $re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $auth <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9440	9557	
==>iverse => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9440	9557	
==>iverse => $universe );

    # TODO - test this
    # all non-zero integers - alternative form
    # Note: $non_zero is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24603	24704	
==>ccessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The usual way tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24603	24704	
==>ccessor methods.
Locale::KeyedText does not declare any subroutines or export such.

The usual way tha <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	757	873	
==>w $Config{sitelib};

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1525	1634	
==>, $symbol, $result);
	} else {
		return $result;
	}
}

sub inner_reduce {
	my $self = shift;
	my $node = shift <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4374	4497	
==>e all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4374	4497	
==>e all nicks we see as response from
        # the /NAMES. Finally, we delete all nicks, which are still in
        # %!cache <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1041	1164	
==>$to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1041	1164	
==>$to_remove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27893	27998	
==>['foo'], length_and_first [1])");
is(t($map), "∀α. ∀β. (α → β) → list α → list β", ":t map <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2635	2753	
==>'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2623	2741	
==>'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rul <==
2	/Users/nnunley/pugs/util/testgraph.pl	1442	1564	
==>ss { "My::File" }
    
    package My::File;
    use base qw/Test::TAP::Model::File::Visual/;
    sub subtest_class { "My:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1200	1303	
==>ess @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1200	1303	
==>ess @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	976	1090	
==>tersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_differen <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	976	1090	
==>tersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_differen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24601	24742	
==>, \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24880	25021	
==>, \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'gramm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	833	936	
==><VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	833	936	
==><VAL>'.],

    'LKT_ARG_ARY_ELEM_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30132	30228	
==>t associated with the
Message; this user string may also contain variable names that correspond
t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30132	30228	
==>t associated with the
Message; this user string may also contain variable names that correspond
t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1425	1576	
==>n tools.. this is too much work :(
#     
#     ### clean out the builddir 
#     {   if( -d $builddir ) {
#             JIB::Utils->_rmdir( dir => $bui <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	58	166	
==>lock}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{block}

Zum auskommentieren mehrerer Zeilen kann man POD <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2768	2911	
==>}'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2768	2911	
==>}'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13659	13770	
==>isfied within a 
reasonable range of values.

You should consider using a Set::Infinite object if you want to ex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13659	13770	
==>isfied within a 
reasonable range of values.

You should consider using a Set::Infinite object if you want to ex <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	648	780	
==>e {
    if($args{help}) {
      printf STDERR "\b\n";
      printf STDERR "  %s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20962	21061	
==>syswrite tell telldir truncate umask
# unlink utime warn


# chroot crypt exec getlogin /[get|set][p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1637	1734	
==>es to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1637	1734	
==>es to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs: <==
2	/Users/nnunley/pugs/util/run-smoke.pl	216	311	
==>::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or $failed++;
}

die <<"EOF" if <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4898	4995	
==>xt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LV <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4898	4995	
==>xt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LV <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12575	12680	
==>d};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12575	12680	
==>d};
    }
  }

  # Handle pseudo events (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	210	334	
==>e <ws> to test Pod.pm after each \n

sub parse {
    my $class = shift;
    my $src = shift;
    my ( $ast, $tail ) = Pugs::G <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2689	2796	
==>ment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ]
}


# 7.2 White Space

rule T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1749	1876	
==>self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1749	1876	
==>self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
}

method protocol (Str $pro <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19633	19771	
==>($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDLY SUCCEEDED)")
        if $tot->{bonus};
        
    $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14837	14946	
==>to end
  scalar:
    (mob, $P0, mfrom, mpos) = newfrom(mob, 0, "PGE::Exp::Scalar")
    dec pos
    $I1 = $I0 - <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2234	2330	
==>) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2234	2330	
==>) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the
C<ma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1279	1382	
==>ack R:P's nice error messages.


# Test suite:
#  re_tests - tests from p5 HEAD 2006-02-12
#  re_tests_p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	761	857	
==>variables.

=item *

unbound private attributes, which are actually just accessor methods
as well <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1607	1704	
==>alue) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1607	1704	
==>alue) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3076	3206	
==>r = $self->$try)) {
      $r->insert($self->{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	102	211	
==>e Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die 'Need at least one pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1701	1866	
==>for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # O <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1701	1866	
==>for numeric (001) and command (PRIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # O <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6222	6466	
==>ort circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6686	6930	
==>ort circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( $@ =~ /^No package sa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4167	4318	
==>] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4360	4511	
==>] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10318	10455	
==>}) {
                print "$test{ml}ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                pri <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	588	685	
==>to when input is exhausted
  my $split := { (split rx:perl5/($pattern)/, $^str).map:{~$_} };
  ret <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1537	1636	
==>ile manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1377	1476	
==>ile manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	557	694	
==>splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	557	694	
==>splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8430	8533	
==>ommand line.

Typically this is C<$^X>, but you can set C<$ENV{HARNESS_COMMAND}>
to use a different Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1107	1211	
==>sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1107	1211	
==>sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2428	2549	
==>)$/m      and $smoke{runcore}       = pugspath2runcore($1);
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21210	21329	
==>oped

  scoped:
    subpats = pad["subpats"]
    pad["subpats"] = 0
    pad["isarray"] = 0
    $P0 = new .Hash
    pad[" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34070	34168	
==>match in found in the most preferred language
is used.  Each Set Name can be any defined and non-em <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34070	34168	
==>match in found in the most preferred language
is used.  Each Set Name can be any defined and non-em <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8247	8400	
==>r1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8440	8593	
==>r1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { variable =>  m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	812	926	
==>g.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, w <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	812	926	
==>g.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8158	8346	
==>push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # rese <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8622	8810	
==>push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # rese <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7032	7162	
==>content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7032	7162	
==>content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3922	4045	
==>ws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4106	4229	
==>ws an exception on
invalid rule syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12285	12415	
==>y $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13095	13225	
==>y $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8288	8414	
==>union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8288	8414	
==>union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5647	5846	
==>nd finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5647	5846	
==>nd finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2769	2895	
==>iverse );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2769	2895	
==>iverse );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3371	3472	
==>tested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3555	3656	
==>tested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2884	3013	
==>precedence => 'looser',
        other => '+',
        fixity => 'infix',
    } );

    print "cat: ", Dumper($cat);
    print "gra <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	828	934	
==>$intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsanta.pl
   or: perl tsanta.pl head.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1905	2035	
==>f $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1905	2035	
==>f $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absol <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6576	6674	
==>g';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLH <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6576	6674	
==>g';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLH <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18351	18461	
==>ce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14772	14882	
==>ce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(anyo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13991	14125	
==>edocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $te <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13991	14125	
==>edocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $te <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3064	3173	
==>') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
** <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3064	3173	
==>') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
** <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31204	31302	
==>tion
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> operato <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35754	35852	
==>tion
which has a subset of the original's tuples, and it works like Perl's
standard C<grep> operato <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5276	5371	
==>6, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5276	5371	
==>6, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7073	7199	
==>n single-line mode)
  $self->add_handler('\Z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "Z", " in character clas <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11996	12098	
==>urn @inc;
}


=head2 C<_restore_PERL5LIB>

  $self->_restore_PERL5LIB;

This restores the original valu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12387	12499	
==>sest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both previous and next el <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12387	12499	
==>sest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both previous and next el <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3146	3259	
==>per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size = <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3146	3259	
==>per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2/60,    burst_size = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7357	7474	
==>d say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7357	7474	
==>d say so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9367	9484	
==>b node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9355	9472	
==>b node::alt {
    # local $Data::Dumper::Indent = 1;
    # print "*** \$_[0]:\n",Dumper $_[0];
    my @s;
    for ( @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12045	12175	
==>rray items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12039	12169	
==>rray items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20194	20295	
==>tpath;
}


# Takes one hash argument which is modified
# try to 'collapse' useless directory entries
s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2560	2697	
==>ler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2560	2697	
==>ler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5565	5686	
==>)
     (attribute new (%:attributes))      (hash)
     (attribute new (%:methods))         (hash)))    

=cut

# create th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10400	10577	
==>q $wanted
                    } @{ $test->provides || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	72	190	
==>if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	72	190	
==>if>'} = sub {
    my $rule = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10165	10286	
==>or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10165	10286	
==>or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6061	6178	
==>ne a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6061	6178	
==>ne a new operator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7242	7346	
==>{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7254	7358	
==>{"node::$_[0]"}($_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3095	3200	
==>f the parameter named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3095	3200	
==>f the parameter named C<$name>.  If called in List context,
it will return a list of values.  Otherwise, i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2699	2804	
==>uccess  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2699	2804	
==>uccess  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is_redirect ( <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4202	4303	
==>element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5 <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4202	4303	
==>element>('line_interpolation');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1308	1471	
==>or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1308	1471	
==>or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ($match) {               # true
      print $match;           # "a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1344	1469	
==>] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1344	1469	
==>] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5867	5999	
==>er" things.

Rules operate on strings (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5664	5791	
==>er" things.
Rules operate on strings (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2443	2558	
==>k       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Basic Perl <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5402	5549	
==>);
        chdir '..';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib.
    system($ar, s => $a_file);
}

sub build_exe {
    my $ve <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	575	673	
==>node);
	} else {
		$self->{seen}->insert($node);
		$self->SUPER::generic_reduce($node);
	}
}

__PAC <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9481	9686	
==>{
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9481	9686	
==>{
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	979	1161	
==>Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	979	1161	
==>Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20477	20573	
==>tion where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20477	20573	
==>tion where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	860	963	
==>rn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	860	963	
==>rn sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1779	1866	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3155	3242	
==>::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$< <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4193	4311	
==>given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4193	4311	
==>given        
    ($index < $self.child_count()) 
        || die "Index Out of Bounds : got ($index) expected no more t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7577	7692	
==>d a "high" level interface (named args) 

###    because the actual rule object will be full OO



:(Str $match_agai <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7319	7431	
==>d a "high" level interface (named args) 
###    because the actual rule object will be full OO

:(Str $match_agai <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1416	1525	
==>e( $self->config->_available );
}

=head2 $file = $inst->files_list( $pkg_name )

=cut

sub files_list {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4453	4560	
==>r');
  });

  $self->add_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5916	6048	
==>}
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5916	6048	
==>}
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($conte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24944	25038	
==>uctor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24944	25038	
==>uctor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a queu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10180	10319	
==>ta};
    }

    # if this is the 2nd or 3rd (etc) branch...
    elsif (@$st and @{ $st->[-1] } and $st->[-1][-1]->family eq $self->family) { <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15055	15201	
==>ag('div');
              $beg->attr('class', 'empty_head '.$tag);

              next;
            }

            $end = $end->right until (!$end-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10789	10892	
==>he $value is undefined or not
given, then that header field will remain unchanged.

The old value (or va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10789	10892	
==>he $value is undefined or not
given, then that header field will remain unchanged.

The old value (or va <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2385	2492	
==>tringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2385	2492	
==>tringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

meth <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4020	4157	
==>ntents {
    my $self = shift;
    my %hash = @_;

    my $file;
    my $tmpl = {
        file => { required => 1, store => \$file }
    } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1295	1418	
==>fess "Key must be a str type";
    (blessed($value) && $value->isa('type'))
        || confess "Index must be a native type" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12675	12771	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and ru <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12733	12829	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2649	2757	
==>P::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2649	2757	
==>P::Status::is_info     (./code); }
    method is_success  () { HTTP::Status::is_success  (./code); }
    meth <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7680	7783	
==>.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7680	7783	
==>.traverse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!child <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	350	479	
==>_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	350	479	
==>_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_A <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23676	23797	
==>nt :words {  # see clause 14
      <Statement> <FunctionDeclaration>
}

# A.6 Universal Resource Identifier Character Clas <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11233	11323	
==>---------------------------------------------------
What is Exp?  And why is it in my tree? <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5142	5283	
==>e {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $leng <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5142	5283	
==>e {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $leng <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	632	779	
==>program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	625	772	
==>program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	313	453	
==>rlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	313	453	
==>rlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18188	18293	
==>g at.

This section describes the rather complex algorithm that
Module::Compile uses.

First, the source m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18188	18293	
==>g at.

This section describes the rather complex algorithm that
Module::Compile uses.

First, the source m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7378	7479	
==>ocal pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9055	9156	
==>ocal pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	383	487	
==>$self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	11209	11320	
==>statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@$grammar1::$category, \\&{'$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16305	16411	
==>return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16305	16411	
==>return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3121	3242	
==>=> $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this does <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3121	3242	
==>=> $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this does <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10049	10167	
==>$self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    fo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10049	10167	
==>$self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    fo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2415	2545	
==>',                 'TTailCall',
  'tcxt' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,'Int',
  'tTokDepth' ,' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21847	21938	
==>ad1 SUB-CLASSING

I will present two example sub-classes, F<Regexp::NoCode>, and
F<Regexp::A <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2465	2553	
==>}

## ----------------------------------------------------------------------------
## get <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2465	2553	
==>}

## ----------------------------------------------------------------------------
## get <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16440	16558	
==>h($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16440	16558	
==>h($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr($str, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14349	14458	
==>ag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14407	14516	
==>ag)`

This will print each string with a '#' character appended to it, this is
ignored by the TAP protocol.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10635	10733	
==>e several fields with a single invocation.

The $value argument may be a plain string or a referenc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10635	10733	
==>e several fields with a single invocation.

The $value argument may be a plain string or a referenc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2610	2726	
==>>new($node->orig),
			),
		),
		orig => $node->orig,
	);
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12854	12972	
==>our connection is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12854	12972	
==>our connection is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traf <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1454	1603	
==>ed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $. <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1454	1603	
==>ed      =>  $passed,
            description =>  $description,
        )
    );

    return $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1326	1428	
==>{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1326	1428	
==>{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19713	19811	
==>on-programmer to edit.
But the current Perl-based solution will also be kept due to its more
dynami <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19713	19811	
==>on-programmer to edit.
But the current Perl-based solution will also be kept due to its more
dynami <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	539	649	
==>brule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	539	649	
==>brule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - TODO - no longer ne <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12433	12527	
==>te like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs wil <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12433	12527	
==>te like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs wil <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	36	197	
==>er API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	36	197	
==>er API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zeroize
        }
        method _cipher(byte @dat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23884	24031	
==>1.3
      <uriCharacter> <uriCharacters>?
}
rule uriCharacter {  # see 15.1.3
      <uriReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uri <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2178	2286	
==>t directory for perl6 Design POD 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6774	6885	
==>sult ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6774	6885	
==>sult ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2832	2927	
==>urns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2832	2927	
==>urns Set {
    set($self.members.grep:{ $other.includes($_) });
}
method difference($self: Set $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	290	409	
==>roize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $bloc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	290	409	
==>roize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

method cipher_block(Array $bloc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16802	16906	
==>ML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used as a m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16802	16906	
==>ML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header field is used as a m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	147	260	
==>et head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	147	260	
==>et head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get these ?

# I really hate this.  I was a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20688	20794	
==>..)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17109	17215	
==>..)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx}, &RxPO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	381	499	
==>ry handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	381	499	
==>ry handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5929	6046	
==>ry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5929	6046	
==>ry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1525	1632	
==>File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.* <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1525	1632	
==>File::Find.new;
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.* <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11942	12049	
==>:density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11942	12049	
==>:density($one_day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	60	184	
==>ams::Check   qw[check];

use JIB::Constants;
use JIB::Config;

use base 'Object::Accessor';

=head2 $obj = JIB::Dependency->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31030	31132	
==>->{...} >>):

=over 4

=item rx

The parser object with which it was created.

=item flags

The flags f <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1397	1541	
==>s;

            # FIXME this is bullshit - i ought to read the details
            #for $class ($self.meta.superclasses){
            #    take $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29592	29688	
==>ure summary.

Rework the test summary so long test names are not truncated as badly.
(Partially d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	126	242	
==>'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	126	242	
==>'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1402	1545	
==>' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1402	1545	
==>' ),
        match => $extracted,
        tail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6979	7076	
==>ce the '=head(n)' directive is reached. This does not include 
the text of the header, that will b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6979	7076	
==>ce the '=head(n)' directive is reached. This does not include 
the text of the header, that will b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8226	8352	
==>:pos){ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11272	11384	
==>{
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11272	11384	
==>{
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12788	12893	
==>mart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12846	12951	
==>mart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool : <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3511	3610	
==>'lhs' ,'Type',
  'rhs' ,'Type';
node_a2 'Type', 'TypeAnd',
  'lhs' ,'Type',
  'rhs' ,'Type';

node_h <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	278	379	
==>iles have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	278	379	
==>iles have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9167	9280	
==>ad;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9167	9280	
==>ad;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <enciph <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5697	5796	
==>alse !! JSX::true;
}
multi sub ToBoolean(JSX::Value::Object $v) { JSX::true }

# 9.3
multi sub ToNum <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2703	2835	
==>s }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatt <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2703	2835	
==>s }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13611	13713	
==>ting modules and you
find there is some language feature missing, or core bug that needs to
be sorted o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13669	13771	
==>ting modules and you
find there is some language feature missing, or core bug that needs to
be sorted o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2393	2494	
==>n for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> execut <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2393	2494	
==>n for
non-backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> execut <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7745	7853	
==>new(
				type => [ ( map { $_->accepts_type } @params ) => $last->type, ],
				struct_equiv => $rthunk,
				o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	796	941	
==>-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	796	941	
==>-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT',
            'User-Agent <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8608	8727	
==>perator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/loo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6141	6257	
==>perator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter', 
 #   tighter/loo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	943	1035	
==>::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	943	1035	
==>::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 D <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12756	12879	
==>x character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $bra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6231	6354	
==>x character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $bra <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9620	9757	
==>tart);
      }
      next unless $start;
      for my $line (@lines) {
          if (exists $lines->{$line}) {
              $lines->{$lin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17570	17703	
==>pe' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17570	17703	
==>pe' => 'CHAR_STR',
            'char_max_length'  => 1,
            'char_repertoire'  => 'UNICODE',
        },
        child_nodes => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10560	10739	
==>rn $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10560	10739	
==>rn $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1396	1500	
==>h, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1396	1500	
==>h, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($worker_pkg)::canonpath <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2294	2566	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2294	2566	
==>o export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	65	175	
==>XX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	65	175	
==>XX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reus <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6416	6514	
==>tion currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line of <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6416	6514	
==>tion currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	119	367	
==>dText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this fil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	119	367	
==>dText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this fil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1654	1772	
==>ck->last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) ) {
        error( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6293	6425	
==>hen Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6293	6425	
==>hen Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type", $type);
    });
}

method re <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	265	399	
==>method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # X <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	265	399	
==>method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns Str
    {
        # X <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5465	5560	
==>e(@children) {
			my $sub = shift @children;
			if ($sub->struct_equiv->isa("Blondie::Param")) { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6753	6844	
==>ted type cannot be placeholder" if $y->isa("Blondie::TypeSafe::Type::Placeholder");
			if (! <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11259	11352	
==>hild) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11259	11352	
==>hild) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_child <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1156	1292	
==>m  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1156	1292	
==>m  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $grammar->no_match;
};

# specced method <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11386	11506	
==>elf->{flags} & $self->{rx}->FLAG_i ? "exactf" : "exact";
  }

  sub data {
    my $self = shift;
    join "", @{ $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	31	125	
==>TS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_C <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	89	183	
==>TS

# some options available through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_C <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	100	230	
==>is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	100	230	
==>is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22524	22617	
==>side
environment at all.

A Relation object has 2 main attributes (implementation details subj <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27076	27169	
==>side
environment at all.

A Relation object has 2 main attributes (implementation details subj <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23512	23606	
==>dependencies (it is very simple).

There are other differences.  Where other solutions take var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23512	23606	
==>dependencies (it is very simple).

There are other differences.  Where other solutions take var <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5679	5782	
==>reate the basic Class
$::Class = opaque->new(
        reference->new($opaque::NULL_OBJECT),
        hash <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6042	6199	
==>hod next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6042	6199	
==>hod next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                my $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9354	9479	
==>time_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9547	9672	
==>time_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	497	598	
==>{verbose} && $funcs{$key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1526	1655	
==>{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1514	1643	
==>{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	744	956	
==>tement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	744	956	
==>tement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# st <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	1002	1126	
==>$pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: ft= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	1002	1126	
==>$pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: ft= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6462	6592	
==>ta} = $type;
    }
    else {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10189	10326	
==>def;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10189	10326	
==>def;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nic <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1522	1688	
==>Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::S <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1522	1688	
==>Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::S <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4506	4630	
==>rs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4506	4630	
==>rs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32738	32854	
==>t ending
nodes are all omitted from the tree because of the stacked nature of the
tree.  However, having them returne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6686	6800	
==>mple.new( heading => set(), body => set( mapping() ) );
    }

    if ($attrs === $!heading) {
        return $?SEL <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3519	3609	
==>sing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    retur <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3519	3609	
==>sing-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    retur <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5129	5235	
==>PSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::de <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5129	5235	
==>PSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5976	6085	
==>n $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside capture_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5788	5892	
==>n $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside capture_cl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9700	9806	
==>.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9700	9806	
==>.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11521	11641	
==>? 1 : undef }, # p6_as_bool(${$_[0]}) ?
      glob  => sub { ${$_[0]} ? 1 : undef },
      lvalue => sub { p6_as_bool(${$ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15668	15770	
==>>
    | <RelationalExpression> <'>='> <ShiftExpression>
    | <RelationalExpression> <'instanceof'> <Sh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13995	14097	
==>tine is called once for each value.  The field name passed to the
callback routine has case as suggeste <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13995	14097	
==>tine is called once for each value.  The field name passed to the
callback routine has case as suggeste <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5645	5755	
==>ead, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5645	5755	
==>ead, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16092	16204	
==>ent may raise such a condition, and one
application may handle it internally, while another one displays it to th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16092	16204	
==>ent may raise such a condition, and one
application may handle it internally, while another one displays it to th <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1902	2022	
==>translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t. <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1902	2022	
==>translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	403	515	
==>N_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argum <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1261	1373	
==>N_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ argum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1618	1763	
==>tomatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1618	1763	
==>tomatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2947	3059	
==>>{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3087	3199	
==>>{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2566	2669	
==>= @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3521	3624	
==>= @_;
    return $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->ob <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20760	20873	
==>es are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20760	20873	
==>es are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other pro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4883	4990	
==>e all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %ca <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4883	4990	
==>e all nicks we see as response from the /NAMES.
      # Finally, we delete all nicks, which are still in %ca <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2182	2325	
==>Cxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  't <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1251	1387	
==><REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1251	1387	
==><REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4091	4192	
==>) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4091	4192	
==>) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14826	14933	
==>eader field
values will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14826	14933	
==>eader field
values will be substituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	270	372	
==>mber is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1128	1230	
==>mber is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5377	5513	
==>celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5377	5513	
==>celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_contiguous <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	142	237	
==>UNIVERSAL::require;
use Blondie::TypeSafe ();

use Blondie::Backend::C::Builtins;

sub run {
	my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	1084	1208	
==>ns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<fetch () returns ~type>

=item B<store (~typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19326	19463	
==>-= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15747	15884	
==>-= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19167	19283	
==>F1,B0,B1,Ex0,Ex),
  rm(Re,F0,F1,B0,B1,E0,Ex),
  append(Str,F1,F0),
  length(F0,NPos),
  match_captures_set(N,[Str,NPo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4276	4410	
==>ead of
            ### just doing a cp -R
            my $src = $conf->compile_dir->subdir( $self->package );
            system( qq[cp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17113	17242	
==>w_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17113	17242	
==>w_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$ni <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	580	680	
==>simply a source code generator.
   Which also addresses the problem that macros are currently
   quit <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	580	680	
==>simply a source code generator.
   Which also addresses the problem that macros are currently
   quit <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4303	4404	
==>g[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF) <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4303	4404	
==>g[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF) <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4048	4158	
==>g[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4048	4158	
==>g[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	173	281	
==>XX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	173	281	
==>XX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	315	422	
==>ies to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<al <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	315	422	
==>ies to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<al <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8743	8836	
==>"Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representative <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8743	8836	
==>"Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
representative <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1900	2019	
==>ACKAGE__->add_rule(
            $_ =>  qq( { return { stmt => 'TRAIT', trait => '$_' } } ));
    }
    __PACKAGE__->reco <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6317	6424	
==>lc($subpath) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = "$sel <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2115	2233	
==>eturn $proto.<[[CanPut]]>($P);
}
# 8.6.2.4
method <[[HasProperty]]> ($O: JSX::String $P) {
    return JSX::true if $O.p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25329	25430	
==>ey do not
interact with the outside environment at all.

A Message object has two main attributes:

=o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25329	25430	
==>ey do not
interact with the outside environment at all.

A Message object has two main attributes:

=o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5927	6057	
==>lock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6120	6250	
==>lock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_word;
*{'const_escaped_char'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4168	4289	
==>che353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4168	4289	
==>che353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35137	35362	
==>:FALSE 
                    })
                );
                return $e->get('$return');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->ne <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15969	16070	
==>Char )
 multi Str::chop ( Str *@strings = (CALLER::<$_>) is rw --> Char )

Trims the last character fr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1361	1459	
==>ues(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - take <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1361	1459	
==>ues(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroList - take <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40901	40997	
==>...)

Unconditionally throws a warning.  Primarily useful when you need to
throw a warning that c <==
2	/Users/nnunley/pugs/util/package-osx.pl	2255	2344	
==>te_perl/PIL2JS /Library/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/J <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17707	17827	
==>amer,
                  void* data, U32 flags)

retval
 0 failure
 1 success
yes?

XXX finish


XXX What exactly _is_ int <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3071	3201	
==>rammar

rule SourceCharacter {  # see clause 6
      . #dot
}
rule InputElementDiv {  # see clause 7
      <WhiteSpace>
    | <Line <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16674	16758	
==>0,B1,E0,E1) :- rm(Re1,F0,F1,B0,B1,E0,E1).
rm(union(_Re1,Re2),F0,F1,B0,B1,E0,E1) :- rm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37904	38014	
==>moved both C<type> and C<raw>.  We
will replace them with methods:

  sub raw {
    my $self = shift;
    $self <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1253	1348	
==>ame) {
    return %!attrs{$attr_name};
}

method attr_name_exists of Bool (Relation::AttrName $a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	668	779	
==>...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "In <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12609	12719	
==>num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$reftyp};
    die "bug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	744	848	
==>$_ = q[rule {
    package Pugs::Runtime::Rule;
    my $grammar = shift;
    ].Pugs::Emitter::Rule::Perl5: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47171	47296	
==>}))
                  ->or(block->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol- <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9899	10000	
==>e {
    rx_common_("pugs_internals_m",%mods,$pat,$qo,$qc);
}

=cut


class File {
    my $SEEK_START = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8302	8463	
==>SES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8302	8463	
==>SES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19287	19387	
==>ne distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data def <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19287	19387	
==>ne distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that data def <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	525	710	
==>dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	525	710	
==>dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	885	1014	
==>m::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($x);
 }
 &Num::ceil ::= &Num::ceiling;


 multi  Num::round <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17297	17421	
==>) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13718	13842	
==>) }
        else { $S->error(RPe_BADPOS, "$how$neg$name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3832	3945	
==>loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3890	4003	
==>loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo, :$depe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6574	6688	
==>a::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6586	6700	
==>a::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36920	37015	
==>example usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36920	37015	
==>example usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10620	10718	
==>depending on their types, that their attributes have reasonable values, and
that attributes or Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10620	10718	
==>depending on their types, that their attributes have reasonable values, and
that attributes or Node <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1276	1371	
==>ion (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1276	1371	
==>ion (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If the p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8341	8452	
==>mptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8341	8452	
==>mptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a security expert, and may contain bugs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4497	4620	
==>nding/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4497	4620	
==>nding/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  });

  @result.push("" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	952	1053	
==>en(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	952	1053	
==>en(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr')) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	38	142	
==>Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $sing <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	38	142	
==>Builder::Test;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $sing <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	172	314	
==>}

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	172	314	
==>}

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        return '' if <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2122	2247	
==>ction]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2122	2247	
==>ction]") if $section.chars;
                for sort keys %self{$section} {
                    $output.say("$_=%self{$section <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3179	3281	
==>ce(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3179	3281	
==>ce(@args);
}
multi sub *infix:<*> (Set $one, *@args) {
    $one.intersection(@args);
}
multi sub *infix <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2902	3018	
==>nd Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2902	3018	
==>nd Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	289	387	
==>C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

metho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	289	387	
==>C<concat($a, $b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3437	3549	
==>kage Test;
${'a'} = '10';
*{'a'} = sub { '20 ' };
print Test->a.$/;
print &Test::a.$/;
print $Test::a.$/;


${'ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9623	9723	
==>tch, named => \\\%named, bool => \\\$bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7657	7765	
==>e} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7657	7765	
==>e} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20696	20804	
==>t it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20696	20804	
==>t it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact for
$h->hea <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9381	9559	
==>t open $file. $!\n";
    my $shebang = <TEST>;
    close(TEST) or print "can't close $file. $!\n";

    my $taint = ( $shebang =~ /^#!.*\bperl.*\s-\w*([Tt]+)/ );
    push( @derive <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19064	19194	
==>'%='>
    | <'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2625	2719	
==>->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2625	2719	
==>->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_g <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	689	809	
==>it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.microsoft.co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	588	694	
==>it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.microsoft.co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9037	9130	
==>C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9037	9130	
==>C<$set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4398	4539	
==>"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "ce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4398	4539	
==>"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "ce <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1332	1466	
==>oined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1332	1466	
==>oined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffic seen from server <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3605	3715	
==>mber);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## mu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3605	3715	
==>mber);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby)
## mu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19119	19212	
==>e Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming lang <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19119	19212	
==>e Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other programming lang <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19370	19460	
==>r, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19370	19460	
==>r, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13454	13627	
==>{
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13454	13627	
==>{
                'id' => ask_user_for_id(),
                'name' => ask_user_for_name(),
                'sex' => ask_user_for_sex(),
            } );
            $prh_add <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	643	754	
==>= $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	643	754	
==>= $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTT <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12806	12905	
==>lementList> <','> <Elision>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <',' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4587	4685	
==>ent = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("ht <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4587	4685	
==>ent = get("http://www.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("ht <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35576	35681	
==>s) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40126	40231	
==>s) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<join (Relatio <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35834	35930	
==>es it with the
invocant relation into a new Relation, such that all common attribute names
and co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40384	40480	
==>es it with the
invocant relation into a new Relation, such that all common attribute names
and co <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13206	13314	
==>p = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@par <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	616	724	
==>p = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1519	1647	
==>{
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir   or return;

    return $self->control_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	1	101	
==>=otto1.pl - Perl 5
use strict;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1997	2118	
==>',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1997	2118	
==>',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute accent
    "aacute"   => 'á',  # sma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30021	30135	
==>ds to the Message Key attribute of a Message object, and each
hash value contains the user-readable message text as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30021	30135	
==>ds to the Message Key attribute of a Message object, and each
hash value contains the user-readable message text as <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4322	4437	
==>:$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4380	4495	
==>:$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto(1, $desc, :$tod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21904	22077	
==>op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22183	22356	
==>op', 
           ruleop::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1641	1742	
==>e if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Paramete <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1641	1742	
==>e if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Paramete <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	16	114	
==>:Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	147	245	
==>:Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::R <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4088	4176	
==>35897932384626433832795028841971693993751058209749445923078164062;
     # http://www.rese <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	173	289	
==>p.  This is approximately the Match object that userland folks will
see, but it has some other clutter because of unc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	173	289	
==>p.  This is approximately the Match object that userland folks will
see, but it has some other clutter because of unc <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	969	1072	
==>e object called C<Type>.  Perhaps this module should be called
something else like C<t>, or maybe they a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1246	1379	
==>t',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule( 
        name => '{',
        n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23659	23763	
==>n be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23659	23763	
==>n be
used to test Rosetta Engine classes.

The Perl 6 package L<Rosetta::Engine::Example> is bundled with <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2147	2283	
==>r => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left',
    #    precedence => 'l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	185	287	
==>ment the "magic hash" dispatcher
our %hash;

#our @subroutine_names;

BEGIN {
    $operator = Pugs::Gra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	613	725	
==>nd to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	613	725	
==>nd to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: pr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15854	15957	
==>n $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bail_out = $strap->_is_bail_out($line, \$reason);

Chec <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2411	2517	
==>tart <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2411	2517	
==>tart <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	928	1030	
==>d the compiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	928	1030	
==>d the compiled rule to our local stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10460	10577	
==>nt {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] constant( \"$name\ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2574	2672	
==>{<?ws_input>*}
rule ws_required {<?ws_input>+}
rule ws_input {
      <WhiteSpace>
    | <LineTermin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5239	5337	
==>f->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp::Parser::__objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24042	24197	
==>,
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24321	24476	
==>,
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	91	203	
==>l   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	91	203	
==>l   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7123	7261	
==>y_fh = shift;
    my $old_fh = select $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2032	2148	
==>t(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2032	2148	
==>t(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_messa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	842	951	
==>tr is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	842	951	
==>tr is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8101	8272	
==>x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf | <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8101	8272	
==>x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf | <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4845	4940	
==>rticipate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5095	5190	
==>rticipate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/design/syn/S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5297	5402	
==>y $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5112	5213	
==>y $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	323	422	
==>e.compare is incomplete
    * Constructors should emit error messages if there are unknown parameter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	323	422	
==>e.compare is incomplete
    * Constructors should emit error messages if there are unknown parameter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24591	24683	
==>Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24591	24683	
==>Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at yo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	740	948	
==>ined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	740	948	
==>ined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14204	14314	
==>o encode are control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14204	14314	
==>o encode are control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	749	845	
==>Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	749	845	
==>Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1570	1739	
==>port {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1839	2008	
==>port {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5470	5566	
==>method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iF <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9068	9164	
==>method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
is($iF <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33910	34010	
==>a new Relation that has the same heading and
whose body contains all of the tuples that are in the in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38460	38560	
==>a new Relation that has the same heading and
whose body contains all of the tuples that are in the in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11742	11868	
==>pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readlin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11742	11868	
==>pseudo>("runloop");
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readlin <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2191	2289	
==>handling is currently an utter kludge. not even trying with m and s.
# Match objects arent being cr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10037	10134	
==>s of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10037	10134	
==>s of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22651	22743	
==>:Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22651	22743	
==>:Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Command C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2302	2417	
==>>{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_version ( perl => 'some/perl/ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11061	11149	
==>umper->reduce($res->val), "\n";
printf"Run took: %.3f (%.3f compilation, %.3f execution)\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9766	9876	
==>turn unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9766	9876	
==>turn unless $.connected;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7956	8074	
==>vent is fired when an '=item' directive is reached, the next event fired will be
any text which follows the item.

=ite <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7956	8074	
==>vent is fired when an '=item' directive is reached, the next event fired will be
any text which follows the item.

=ite <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2057	2178	
==>external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shi <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2057	2178	
==>external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31843	31942	
==>eturns Relation>

This multi-method is a generic binary relational operator that takes a single
Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36393	36492	
==>eturns Relation>

This multi-method is a generic binary relational operator that takes a single
Rela <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19260	19476	
==>g, 
                                     source  => $source } if $regex;
                  ($h->content_list)[0]->push_content($backlink);
                }
                

              } else {
                # p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4523	4625	
==>ead2 package_re

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could auto <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1657	1776	
==>o for now
        hash => "Hash", ihash => "Hash",     #  └── "" ──┘
        array => "Array", iarray => "Ar <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20293	20402	
==>s
sub collapse_isolated_dirs {
    my $dir_index = shift;
    # For all directory entries: while the entry onl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10479	10585	
==>.

- `new( closure_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10479	10585	
==>.

- `new( closure_next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, compleme <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6851	6981	
==>op{eqiv} )
  {
    goto oper_shift if ( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @bsrStack, "bsr_reduce_1" <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20712	20829	
==>rgument
	    delete $dir_index->{_dirs}->{$subdir};	    
	    $dir_index->{_dirs}->{$subdir . "/" . $subsubdir } = $va <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4951	5056	
==>od) = @_;

    $self->load_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27515	27683	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27794	27962	
==>s', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15224	15368	
==>\S+)(?:\s+(.*))?$/ : ();

        $test->{number} = $num;
        $test->{ok}     = $not ? 0 : 1;

        if( defined $type ) {
            $tes <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	25	146	
==>Blondie::Prelude::IO;

use strict;
use warnings;

use Blondie::Nodes;

sub symbols {
    stub('&printf', '$handle', '$form <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10382	10495	
==>uant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos
  end:
    mob["m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17185	17286	
==>or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17185	17286	
==>or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2651	2797	
==>on( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2651	2797	
==>on( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.density;
    return $.start if $x < $.star <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2744	2855	
==>en my $ifh, "<", $in  or die "open: $in: $!";
    open my $ofh, ">", $out or die "open: $out: $!";
    binmode $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4615	4721	
==>e two subs might not work?
    # XXX2: "fail" clashes with Test's &fail.
    sub __fail($e = "failed") is p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	988	1113	
==>ext::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	988	1113	
==>ext::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ident this message. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5533	5652	
==>HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5533	5652	
==>HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $bo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6326	6445	
==>undary_not) --> "\\B", !.
p5_elemental(dot)       --> ".".
p5_elemental(R)         --> p56_char_class(R).
p5_elemental(R <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1369	1469	
==>he caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that wor <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	864	1009	
==>f (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	864	1009	
==>f (defined $buffer) {
    $fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# T <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1555	1668	
==>s Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1613	1726	
==>s Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2390	2487	
==>/pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2390	2487	
==>/pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5056	5280	
==>rt_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our to <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5056	5280	
==>rt_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	569	707	
==>s_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fres <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	569	707	
==>s_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fres <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5541	5662	
==>aders::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5541	5662	
==>aders::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9448	9542	
==>et1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.prope <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9448	9542	
==>et1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.prope <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	533	633	
==>ts) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $numbe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	591	691	
==>ts) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned = $numbe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2858	2955	
==>it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2754	2848	
==>it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14538	14687	
==>mplemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14532	14681	
==>mplemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27160	27260	
==>m C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relational oper <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31712	31812	
==>m C<extend (Mapping(Str) of Code $attrs!) returns Relation>

This method is a generic relational oper <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5335	5433	
==>alue $v) {$v}

# 9.2
multi sub ToBoolean(JSX::Value::Undefined $v) { JSX::false }
multi sub ToBoole <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	939	1050	
==>LPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	939	1050	
==>LPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ng.fork('expr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13063	13170	
==>ng two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13063	13170	
==>ng two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_span = Span.new( :int <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15248	15377	
==>ram,
	);

	# the value of the comb is the return value from the function
	# since this return value is a type variable that is pre <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8490	8737	
==>d
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else { <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8954	9201	
==>d
                    my @sorted = 
                            sort { $b->{version} <=> $a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21295	21403	
==>'$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44202	44310	
==>'$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13872	13978	
==>l POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8078	8184	
==>l POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->forc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2683	2791	
==>is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2683	2791	
==>is copy, Str $op = "") {
  unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2224	2358	
==>{
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2224	2358	
==>{
        next unless ref $m && exists $m->{label};
        if ( $m->{label} eq '*quantifier*' ) {
            my %h = %{ _box_submatch <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5707	5832	
==>nt_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5707	5832	
==>nt_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	390	503	
==>nce reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	401	514	
==>nce reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6537	6734	
==>t_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6537	6734	
==>t_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2790	2935	
==>lse {
                    my $z = chr $c; # Maybe we can get away with a literal...
                    $z = sprintf "\\%03o", $c if $z =~ /[[:^pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7600	7755	
==>hould not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7612	7767	
==>hould not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1293	1402	
==>rser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1293	1402	
==>rser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22927	23020	
==>tion is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22927	23020	
==>tion is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1699	1840	
==>HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1699	1840	
==>HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31310	31419	
==>ny useful if you want modules from multiple
sets in the same disk directory.  In the first example, the Set Na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31310	31419	
==>ny useful if you want modules from multiple
sets in the same disk directory.  In the first example, the Set Na <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2394	2518	
==>ou define new traits of Classes,
Roles, etc - or when you do even scarier things to the Perl 6 class
system.

Note that the f <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	858	950	
==>will be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender) <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	858	950	
==>will be constructed as a series of events fired in by
something that C<.does(Perldoc::Sender) <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	711	831	
==>] || (-f _ && $_[0] =~ /\.(exe|com|bat)$/) } :
        sub { -x $_[0] };

    my $_cmd = $cmd;
    return $_cmd if ($mx-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1043	1157	
==>t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches null string many times';
use constant RPe_N <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3120	3233	
==>{tree});
      return $r;
    }
  }

  $self->error(RPe_RPAREN) if ${&Rx} =~ m{ \G \) }xgc;
  $self->error(0, "PAN <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2554	2670	
==>is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2554	2670	
==>is_open ()   returns Bool   { return $.set.end_is_open }
method end_is_closed () returns Bool   { return $.set.end_is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3371	3554	
==>l} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3371	3554	
==>l} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        pus <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7885	7992	
==>ack' directive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7885	7992	
==>ack' directive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=item' directi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15842	16009	
==>plit( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15836	16003	
==>plit( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16582	16685	
==>o such header field, then the empty
string is returned.  This makes it safe to do the following:

  if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16582	16685	
==>o such header field, then the empty
string is returned.  This makes it safe to do the following:

  if $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4890	4990	
==>t'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4890	4990	
==>t'  ,'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'(Maybe PIL_Expr)',
  'pArgs' ,'[PIL_Expr]';
node_h 'P <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	751	990	
==>@_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	637	727	
==>ken("term:\$", "term:", "nows", &parse_dollar);
    $optable->addToken("term:.", "term:", " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9571	9710	
==>ed_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1036	1136	
==>akes 0 params (e.g. int)
# type::variable - a placeholder to make a DAG out of a tree (to gain strong <==
2	/Users/nnunley/pugs/util/package-osx.pl	1457	1576	
==>in/p6doc ../../bin/p6doc
    );

    %change_files = qw(
        /usr/local/lib/perl5/site_perl/jspugs.pl /Library/Perl/ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	415	547	
==>ule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	415	547	
==>ule/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2515	2738	
==>' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2515	2738	
==>' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	661	792	
==>l\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	661	792	
==>l\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6923	7032	
==>, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an interface between the 

l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6687	6792	
==>, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an interface between the 
l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24968	25069	
==>cally with other components is making a
combined work based on Rosetta.  Thus, the terms and condition <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24968	25069	
==>cally with other components is making a
combined work based on Rosetta.  Thus, the terms and condition <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3288	3388	
==>($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3288	3388	
==>($name) = @vals>

Assigns C<@vals> to the parameter named C<$name>.

=item C<$q.delete($name)>

Delet <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	661	748	
==>Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forward <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	661	748	
==>Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forward <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52268	52387	
==>----------------------------------------
## finishing up the boostrapping

# < Class is subclass of Object >
$::Class->s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4654	4756	
==>genClass' class
$EigenClass = ::create_class(
    '$:name'       => 'EigenClass',
    '$:superclass' => <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6219	6315	
==>');

    $template->param("syn", [ sort { $a->{name} cmp $b->{name} } (values %{ $syn_indexs->{S} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16077	16228	
==>tch,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] ! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16071	16222	
==>tch,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\n" .
                "$_[1]           my \$bool = (!\$match[-1] ! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	699	839	
==>[ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp 'infix:<times>' exp         { $ <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	357	457	
==>$topic     = join("\n", param('topic')) || 'FrontPage';
my $entry      = join("\n", param('entry') || <==
2	/Users/nnunley/pugs/util/version_h.pl	461	565	
==>le in which the keyword appears
# is modified.
my $revision = 0;

# SVK tries to ask the user questions w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5331	5468	
==>d_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method pr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5331	5468	
==>d_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method pr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5610	5733	
==>prefix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	744	872	
==>);
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	753	881	
==>);
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$con <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	686	794	
==>--
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	686	794	
==>--
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $child_height = $child <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1149	1267	
==>Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1149	1267	
==>Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	9	138	
==>n/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	9	138	
==>n/pugs
use v6;

module HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10640	10750	
==>racking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

=for later
# experimental <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	252	352	
==>t || 10;

use Benchmark;
require 'regexp_engine_demo.pl';

#my $m = match_re($re,$str);
my $r = compi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1203	1332	
==>join;
     }
   }
 }

 multi sub sort(Criterion @by ; *@values) returns List
 multi sub sort(Criterion $by ; *@values) returns Lis <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7223	7360	
==>CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7223	7360	
==>CONTENT_TYPE>;    
        $CONTENT_LENGTH = %*ENV<CONTENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5287	5453	
==>tart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_inf <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5287	5453	
==>tart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_inf <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2392	2498	
==>ift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15999	16104	
==>ift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8054	8154	
==>ed immediately.  This method should be as thorough as 
possible; for example, it should not merely se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8054	8154	
==>ed immediately.  This method should be as thorough as 
possible; for example, it should not merely se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2212	2319	
==>ng with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2212	2319	
==>ng with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Req <==
2	/Users/nnunley/pugs/misc/S29_round.pl	673	784	
==>_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1917	2013	
==>de = shift;
    Blondie::Backend::C::Builtins->find($node->digest || return);
}

sub cast_node_ty <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	126	235	
==>st>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	126	235	
==>st>;
    ./debug("Got an invitation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	355	460	
==>ompile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	355	460	
==>ompile(q( \w+ ))->code;
*block = Pugs::Compiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13555	13673	
==>art, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This typ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13555	13673	
==>art, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays );

- Continuous span

This typ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4134	4403	
==>::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4134	4403	
==>::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText::L::en -
Localization of Locale::KeyedText for English

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22780	22899	
==>>{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19201	19320	
==>>{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1526	1621	
==>Selective::select> function or by including them 
in the C<SELECT_LOGS> environment variable.  T <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1526	1621	
==>Selective::select> function or by including them 
in the C<SELECT_LOGS> environment variable.  T <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5342	5447	
==>f it fails.  The $url argument can
be either a simple string or a reference to a URI object.

You will not <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5342	5447	
==>f it fails.  The $url argument can
be either a simple string or a reference to a URI object.

You will not <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	551	658	
==>ss.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %par <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	551	658	
==>ss.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp<density> = %par <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20074	20188	
==>(pad)
    self[0] = exp
    pad["isarray"] = padarray
    .return (self)
.end
    
.namespace [ "PGE::Exp::Group" ] <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18731	18958	
==>f the content is inside a pre.
                      $h->push_content($backlink);
                      $found = 1;
                    }
                  }
                
              notregex:
                # insert just <==
2	/Users/nnunley/pugs/util/func_refact.pl	2151	2267	
==>eturn $size - $oldsize; # new member count
}

sub candidates {
    my %cands;
    my $ccset = shift;
    for my $cand <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1762	1870	
==>ct_typed_value {
	my $class = shift;
	my $val = shift;
	my $type = shift || $val->type;

	Blondie::TypeSafe:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5422	5567	
==>1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5422	5567	
==>1 hour is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5714	5897	
==>'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5714	5897	
==>'child_nodes' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23949	24044	
==>nding of alternate solutions like "gettext" suggests that they
use a compile-time macro-based ap <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23949	24044	
==>nding of alternate solutions like "gettext" suggests that they
use a compile-time macro-based ap <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13653	13827	
==>rson', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13653	13827	
==>rson', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e <==
2	/Users/nnunley/pugs/util/package-osx.pl	1927	2021	
==>/local/lib/perl5/site_perl/runjs.pl /Library/Perl/5.8.6/runjs.pl
        /usr/local/lib/perl5/s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11891	12129	
==>', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11891	12129	
==>', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6597	6707	
==>ray.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reve <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6597	6707	
==>ray.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from_list(
        &*reve <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3992	4112	
==>op_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2945	3062	
==>op_version = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9151	9250	
==>switches {
    my($self, $file) = @_;

    my @existing_switches = $self->_cleaned_switches( $Test:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	172	275	
==>ritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	172	275	
==>ritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be i <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4510	4627	
==>lue?
    #      I'm guessing "current" because this "is primitive".
    #      If I'm wrong then the above two subs mi <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	446	545	
==>ode(i,0,NULL);
}
Parrot_Interp new_interpreter() {
   	Parrot_Interp i;
	i = Parrot_new(NULL);
	retu <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2759	2872	
==>);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


package Math::Trig {}

ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7334	7437	
==>Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7334	7437	
==>Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	856	1015	
==>emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	856	1015	
==>emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5302	5411	
==>rns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5302	5411	
==>rns Array is export {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2162	2272	
==>OCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.sec <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2162	2272	
==>OCK($_) }, *$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.sec <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3635	3749	
==>pe, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expressi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3635	3749	
==>pe, 'Expression' }, $.code, @.args;
    }
    method vtype () { 'Expression' }
}

# PILAssign :: LValue -> Expressi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17671	17772	
==>equest messages and contains information
about the user agent originating the request.  I<E.g.>:

  $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17671	17772	
==>equest messages and contains information
about the user agent originating the request.  I<E.g.>:

  $h <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1010	1105	
==>{ @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1010	1105	
==>{ @array[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7261	7405	
==>o depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	562	706	
==>o depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1544	1650	
==>_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(r <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1544	1650	
==>_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2282	2395	
==>dary)
  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9998	10107	
==>d ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9992	10101	
==>d ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17576	17677	
==>rary for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17576	17677	
==>rary for Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::I <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3103	3197	
==>::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3103	3197	
==>::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2220	2324	
==>$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    preceden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2220	2324	
==>$statement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    preceden <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12976	13124	
==>link>" title="Full smoke report">&raquo;</a></td>
          </tr>
          <tr class="details" id="details_<tmpl_var name=id>">
            <td cols <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	226	329	
==>b interpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $self = shift;
	my $prog = shift <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	923	1037	
==>nfinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	923	1037	
==>nfinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence of spans

  From "Set <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1594	1714	
==>>add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for rec <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1594	1714	
==>>add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for rec <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	48	155	
==>infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	48	155	
==>infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7676	7774	
==>:(Str $match_against, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_agains <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7415	7510	
==>:(Str $match_against, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_agains <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22202	22306	
==>ly in the search
list.  The analogy is similar to inheriting from multiple packages which
have the same m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22202	22306	
==>ly in the search
list.  The analogy is similar to inheriting from multiple packages which
have the same m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	690	801	
==>tement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	896	1007	
==>tement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $program = Perl6Grammar::emit( $match->{cap <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18540	18638	
==>rary for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18540	18638	
==>rary for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6855	6962	
==>re, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate module na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6855	6962	
==>re, we assume that module intentionally doesn't exist,
        # and so skip to the next candidate module na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25550	25657	
==>s the GPL requires distribution of
source code.  However, for an additional fee, the copyright holders of
Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25550	25657	
==>s the GPL requires distribution of
source code.  However, for an additional fee, the copyright holders of
Ro <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4007	4123	
==>f;
}

sub left { $_[0]{left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18763	18873	
==>_null exp0, exp1null
    .return (exp1)
  exp1null:
    self[0] = exp0
    unless_null exp1, end
    .return (e <==
2	/Users/nnunley/pugs/util/package-osx.pl	6692	6789	
==>6::Overview::Subroutine.3
        /usr/local/man/man3/Perl6::Overview::Subroutine.3pm
        /usr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12802	12896	
==>e values are left available for extensions.  Please
refer to L<perldiag> for the explanations o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3758	3855	
==>ormation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free softwa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3758	3855	
==>ormation on these methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free softwa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2231	2383	
==>::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Accessor::new           :
            $args->{installat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7239	7363	
==>meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7239	7363	
==>meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does(Ro <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19942	20046	
==>nt>
    | <StatementList> <Statement>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1776	2072	
==>hars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            tak <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1776	2072	
==>hars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            tak <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21317	21429	
==>::Parser::ifmatch::ISA, __PACKAGE__;
  push @Regexp::Parser::unlessm::ISA, __PACKAGE__;
  push @Regexp::Parser::s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12512	12620	
==>f %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runlo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12512	12620	
==>f %!handler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runlo <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2940	3041	
==>lti Array::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @value <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4697	4797	
==>lti Array::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @value <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6350	6460	
==>y $body = $f;
	$body = '$f->(@_)' if ref($f);
	my $code = code_for_code_CODE(name=>$name,kind=>$cls,params=>$ar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1879	1989	
==>t
    
=head2 $pkg->install( ... )

=cut

sub install {
    my $self = shift;
    msg("Package already installe <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15963	16065	
==>y $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2356	2458	
==>y $self = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20027	20112	
==>e C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20027	20112	
==>e C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	60	193	
==>ile.pmc
# The .pm file is in Perl 6 syntax
# The .pmc file is in Perl 5 Pugs::Compiler::Rule syntax

# TODO - in order to Grammar.pm t <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22145	22238	
==>seClauses>? <'}'>
    | <'{'> <CaseClauses>? <DefaultClause> <CaseClauses>? <'}'>
}
rule CaseC <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6454	6563	
==>unless $self->link_files( package => $inst_pkg );

    }

    ### update the available files
    $self->availa <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1271	1369	
==>o of them "n" is confusing.
macro Clutter::num_size($n) {
  'subset num'~$n~'     of ValueType wher <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6877	6975	
==>, I should
ignore the opening one. However, this means I should defer events until I get to the
end <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6877	6975	
==>, I should
ignore the opening one. However, this means I should defer events until I get to the
end <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4306	4420	
==>? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4499	4613	
==>? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17650	17760	
==>::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17650	17760	
==>::IRC - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	708	821	
==>ingify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:per <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	708	821	
==>ingify ($item) returns Str {
    my $str_item = ~$item;
    $str_item ~= $item.id()
        if $str_item ~~ rx:per <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	371	528	
==>r::prompt;
}

sub makemaker_args {
    my $self = shift;
    my $args = ($self->{makemaker_args} ||= {});
    %$args = ( %$args, @_ ) if @_;
    $args;
}

sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1135	1242	
==>m = shift;

    $self->new_pad($param->val => undef);

	$self->count_param;

    return $param;
}

sub enter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16802	16898	
==>le that into its own executable, in practice one would
normally just write some components of the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16802	16898	
==>le that into its own executable, in practice one would
normally just write some components of the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10719	10818	
==>r(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return su <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10719	10818	
==>r(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return su <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3513	3620	
==>er

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3513	3620	
==>er

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15865	15969	
==>tructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15865	15969	
==>tructor method:

=over

=item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_no <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4430	4536	
==>returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4430	4536	
==>returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

sub path <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6413	6504	
==>pan::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6413	6504	
==>pan::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Boo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6503	6601	
==>lurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeO <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6503	6601	
==>lurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18936	19038	
==>riginal_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When sa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18936	19038	
==>riginal_node.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When sa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3219	3355	
==>$equal { " .
            emit_perl6_rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1614	1721	
==>filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1614	1721	
==>filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4276	4371	
==>Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the rig <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6178	6273	
==>Class, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the rig <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2159	2279	
==>int STDERR "#" x 70,"\n","# BUG $@# $expr\n" if $@;
		my $valuex = $value;
		if($value =~ /\$\{|\\n/){
		    $valuex = ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1509	1616	
==><angle quoted>;
say 1 < 2;
1;
PERL6

    print dump_tree $match->();
    print "tail: ", substr( ${$match}-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18987	19089	
==>se Locale::KeyedText is only meant to be used with user text that is
associated with hard-coded program <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18987	19089	
==>se Locale::KeyedText is only meant to be used with user text that is
associated with hard-coded program <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4118	4231	
==>pile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4335	4448	
==>pile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags->{print_match}) {
        p <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3517	3677	
==>E look at superclass subscriptions too
                }
            }
        }
    
        method notify (String $name, *@args) {
            $publisher.notif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7487	7597	
==>t(anyof_char => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha POSIX class
  $self->a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39684	39776	
==>arrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redistri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39684	39776	
==>arrenDuncan.net/> for more
information.

Locale::KeyedText is free software; you can redistri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	143	280	
==>t        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	143	280	
==>t        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {require Getopt::Long;import Getop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2778	2876	
==>iler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<Vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2778	2876	
==>iler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<Vari <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1611	1725	
==>vative of f (which Newton's method
              uses to update its guess at each iteration)
    verbose - a boolea <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	889	1035	
==>ry => $entry );
    }
    when 'update' { 
        say "Updating";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic is <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3532	3638	
==>h ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3532	3638	
==>h ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	202	316	
==>GE__],
    require => 1,
);

sub symbols {
    my $class = shift;
    map { $_->symbols } $class->submodules;
}

su <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28378	28491	
==>) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11808	11905	
==>ix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you ca <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11866	11963	
==>ix:<gt>` is currently not implemented, so you will have to wait
a little while. Until then, you ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7481	7595	
==>der("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7481	7595	
==>der("Warning") }

method www_authenticate ($self: )          is rw { $self.header("WWW-Authenticate") }
method auth <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4450	4564	
==>right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Objec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6352	6466	
==>right method return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Objec <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2350	2646	
==>ren(
                                    Tree.new(:node<Method>),
                                    Tree.new(:node<Submethod>),
                                ),
                                Tree.new(:node<Macro>)
                            ),
                            Tree.new(:node<Blo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38465	38589	
==>bstituted for any occurance of its corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <pl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38465	38589	
==>bstituted for any occurance of its corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <pl <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1607	1702	
==>et/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1607	1702	
==>et/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2255	2360	
==>ed to configure the behavior of
Test::Harness.  They are exported on request.

=over 4

=item C<$Test::Har <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17932	18036	
==>rindex 

Needs to be in terms of StrPos, not Int.

=item split

 multi Str::split (  Str $delimiter ,  St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23976	24181	
==>)) {
      my $v = $h->(1);       # 1 means this is 'on'
      if ($v) { &Rf |= $v }  # turn the flag on
      else { ... }           # the flag's value is 0
      next;
    }
    # throw an error if the fl <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2333	2432	
==>eturns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except th <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2333	2432	
==>eturns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except th <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17314	17424	
==>ie "$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	428	538	
==>ete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keyword <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	428	538	
==>ete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keyword <==
2	/Users/nnunley/pugs/util/package-osx.pl	8188	8285	
==>ture.3pm
        /usr/local/man/man3/Perl6::Spec::Subroutine.3pm
        /usr/local/man/man3/Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17288	17380	
==>acks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17288	17380	
==>acks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_privmsg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13325	13419	
==>ght input format for
Document.new(), by which you can create an identical Document (with member <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13325	13419	
==>ght input format for
Document.new(), by which you can create an identical Document (with member <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16389	16499	
==>ing language named "Rosetta D", which is computationally complete
(and industrial strength) and has fully integ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16389	16499	
==>ing language named "Rosetta D", which is computationally complete
(and industrial strength) and has fully integ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1990	2104	
==>ray ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1990	2104	
==>ray ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH> <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9331	9443	
==>st_results->{events}} ) {
      next unless defined $test->{pos};
 
      my ($start, $end);
      ($start, $end) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3905	4029	
==>will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk ful <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3905	4029	
==>will not be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk ful <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	174	276	
==>thod has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node_filter   ($s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	174	276	
==>thod has_node_filter   ($self:) returns Bool { $.filter_function.defined }
method get_node_filter   ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2698	2861	
==>k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2698	2861	
==>k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22008	22102	
==>and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", ta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22008	22102	
==>and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", ta <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1	101	
==>!/usr/bin/perl

use warnings;
use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use Fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	369	482	
==>bute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	369	482	
==>bute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22994	23097	
==>ext is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the othe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22994	23097	
==>ext is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the othe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5387	5522	
==>an.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.pr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5387	5522	
==>an.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38683	38780	
==>l
occurances of any given variable name will be replaced, non-recursively,
and any "<foo>" not mat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38683	38780	
==>l
occurances of any given variable name will be replaced, non-recursively,
and any "<foo>" not mat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23189	23285	
==>distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27741	27837	
==>distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bool - This attribute is True if the R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6	94	
==>e Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	137	225	
==>e Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6I <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7128	7265	
==>er(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ... <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7128	7265	
==>er(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ... <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8372	8475	
==>];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8372	8475	
==>];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all %channels he/s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5272	5375	
==>har_comp => "\t", '\T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	791	904	
==>match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	997	1110	
==>match->{capture} );
        #print "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3740	3908	
==>eys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3740	3908	
==>eys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warnings qw( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2197	2356	
==>ies
                    ### for better diagnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3562	3709	
==>ies
                ### for better diagnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$pa <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	174	304	
==>ls.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is copy, Str ?$file is copy) returns Class {
	@.known_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9052	9147	
==>us_comp_hook = PL_regcompp;
  PL_regcompp = &hook_regcompp;
}
void regexp_hook_off() { /* aka "a <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9630	9775	
==>ghc_pkg;

            }
        }

        # Our ghc-pkg is whatever executable we've found (which could be
        # undef, if we didn't find any <==
2	/Users/nnunley/pugs/util/package-osx.pl	3849	3957	
==>r/local/man/man3/Perl6::Bible::A03.3pm
        /usr/local/man/man3/Perl6::Bible::A04.3pm
        /usr/local/m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4430	4523	
==>!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4430	4523	
==>!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5660	5771	
==>ld_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5660	5771	
==>ld_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Child Not Found : cannot <==
2	/Users/nnunley/pugs/util/package-osx.pl	3899	3996	
==>r/local/man/man3/Perl6::Bible::A04.3pm
        /usr/local/man/man3/Perl6::Bible::A05.3pm
        / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13823	13924	
==>er field in turn.  The callback routine
is called with two parameters; the name of the field and a sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13823	13924	
==>er field in turn.  The callback routine
is called with two parameters; the name of the field and a sin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4003	4107	
==>y { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicode symbols for <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4003	4107	
==>y { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of unicode symbols for <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4715	4815	
==>ld_is_optional {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3237	3363	
==>der, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3237	3363	
==>der, $value {
        %out{$header} = $value;
    }
    
    if ($target.defined) { %out<Target> = $target; }
    
    for %out <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3197	3305	
==>term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3185	3293	
==>term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4069	4221	
==>'Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4069	4221	
==>'Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc -> $cc {
                f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13543	13643	
==>e an implementation
could be started).  This is most useful when writing modules and you
find there i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13601	13701	
==>e an implementation
could be started).  This is most useful when writing modules and you
find there i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38244	38357	
==>sume = pop @kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch';

    for (@kids) {
      $_ = $self->{rx}-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2341	2489	
==>>{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the list in @nodes can NOT be modified at runtime

    # u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2267	2406	
==>>{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the list in @nodes can NOT be modified at runtime
    # u <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14440	14661	
==>=> "stylesheet", 
                                           type => "text/css", 
                                           href => "http://dev.perl.org/css/perl.css"
                                   ));
        if (exi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13305	13479	
==>my' ||
         $n->{op1}{op} eq 'our' ) {
        die "not implemented 'attribute'",Dumper $n
            if @{$n->{attribute}};
        return $n->{op1}{op} . ' ' . _emi <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2052	2212	
==>umper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $sel <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2052	2212	
==>umper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6100	6220	
==>x(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5906	6020	
==>x(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8443	8555	
==>c  = shift || $self->{ghc} 
        or croak "assert_ghc_pkg not cached, and called without path to ghc";

    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12593	12703	
==>unction removes the header fields with the specified names.

The header field names ($field) are not case sensi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12593	12703	
==>unction removes the header fields with the specified names.

The header field names ($field) are not case sensi <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2683	2781	
==>er($subscriber), :publisher($?SELF));
            ( %.subscriptions<$name> ||= Set.new ).insert($su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40492	40587	
==>cess them via C<< $parser->err_FOOBAR >>, etc.

=head2 Throwing Warnings and Errors

There are t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11878	11977	
==>le while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11936	12035	
==>le while. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26856	27010	
==>_USE_INTUIT_ML	0x0200000
 #define REINT_AUTORITATIVE_NOML	0x0400000 /* Can trust a positive answer */
 #define REINT_AUTORITATIVE_ML	0x0800000 
 #define RE <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	195	302	
==>leID=175801189
# says, This may be considered as the superset of round_half_up and
# round_half_down

}

our <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1588	1705	
==>pture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1588	1705	
==>pture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captures {
    my @a;
    # special ca <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10697	10801	
==>~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subs <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10697	10801	
==>~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7462	7573	
==>els{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7462	7573	
==>els{$chan}<users>.delete(normalize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4374	4471	
==>thunk_type = $thunk_val->type;
		my @context = ref $thunk_type eq "ARRAY" ? @$thunk_type : $thunk_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3017	3119	
==>$hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3017	3119	
==>$hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@head <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2707	2816	
==>an2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.rec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2707	2816	
==>an2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.rec <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1819	1932	
==>y $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = s <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	930	1041	
==>y $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = s <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	254	353	
==>le::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_al <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	254	353	
==>le::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_al <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12142	12252	
==>`current( $x )`

Returns the parameter value if the parameter is a member of the recurrence.
Otherwise, returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12142	12252	
==>`current( $x )`

Returns the parameter value if the parameter is a member of the recurrence.
Otherwise, returns <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2183	2279	
==><body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different properti <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2183	2279	
==><body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have different properti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1745	1892	
==>al $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <?ws>? ) )
        ->( $expanded ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1745	1892	
==>al $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statements> ]* <?ws>? ) )
        ->( $expanded ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7536	7676	
==>, $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7536	7676	
==>, $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	472	586	
==>formation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    requir <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	472	586	
==>formation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    requir <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2682	2779	
==>ILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2682	2779	
==>ILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL {
    has $.v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32875	32975	
==>nslate_message()> method, but it has no other side effects.

A Translator object has 2 main attribute <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32875	32975	
==>nslate_message()> method, but it has no other side effects.

A Translator object has 2 main attribute <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6739	6838	
==>ture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6751	6850	
==>ture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n" <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12763	12860	
==>ead2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12763	12860	
==>ead2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23232	23335	
==>the server. The command is not modified by this module,
aside from appending the correct newline charact <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23232	23335	
==>the server. The command is not modified by this module,
aside from appending the correct newline charact <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6383	6512	
==>int "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6371	6500	
==>int "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1285	1429	
==>ammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1285	1429	
==>ammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3787	3902	
==>XX - work around Cabal bug --
        # we have to locate "Syck_stub.o" and copy it into
        # dist/build/src/Da <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3651	3795	
==>ent that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3651	3795	
==>ent that this Node lives in.
    has Rosetta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	725	894	
==>atch.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	725	894	
==>atch.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

# vim: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2808	2913	
==>packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2808	2913	
==>packages used by the Rosetta::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8207	8312	
==>e = $parser->next) {
    # $node is a Regexp::Parser::* object
  }

When the regex is finished being parse <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7616	7711	
==>@array ; MatchTest *@indextests --> Int|(List of Pair) )
 multi Array::values (@array ; MatchTes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	873	1007	
==>st' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	882	1016	
==>st' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    " <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2641	2735	
==>on) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:blank:] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23552	23649	
==>ethod can be used to see if a Relation-doing object
can mutate.  Depending on the implementing cla <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28104	28201	
==>ethod can be used to see if a Relation-doing object
can mutate.  Depending on the implementing cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18589	18713	
==>paren');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19947	20071	
==>paren');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $c <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1950	2046	
==>h any tags, it will intuit one by extracting the 
last component of the calling function's packag <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1950	2046	
==>h any tags, it will intuit one by extracting the 
last component of the calling function's packag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5939	6042	
==><object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5939	6042	
==><object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normal <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	110	256	
==>.03';

    local $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	28	126	
==>Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	28	126	
==>Grammar::Rule;

=head1 NAME

Pugs::Grammar::Rule - Perl 6 grammar for rules

=head1 DESCRIPTION

Th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8534	8668	
==>>[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8534	8668	
==>>[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6761	6883	
==>'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6761	6883	
==>'syntax error' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null stateme <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	611	718	
==>Validator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator obj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	611	718	
==>Validator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator obj <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	619	779	
==>ish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $di <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	619	779	
==>ish && $script ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4508	4652	
==>->add_rule( 
        name => 'or',
        assoc => 'left',
        precedence => 'looser',
        other => 'and',
    );
    
    __PACKAGE__-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2598	2701	
==>e $self->_stages) {
	last if defined $self->{$stage};
	push(@todo,$stage);
    }
    #print STDERR "==", <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7179	7326	
==>ook_p5re",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook_p5re...\n");
      handler = sv;
    }
  }  
  /* If no h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	29	121	
==>use Perl6::Core::Num;
use Perl6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Core::Ref;

use <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24453	24564	
==>s method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named param <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29005	29116	
==>s method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to the 2 named param <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	71	185	
==>Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $R <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	71	185	
==>Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2267	2370	
==>unctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2267	2370	
==>unctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15598	15745	
==>map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21769	21916	
==>map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $sel <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1329	1454	
==>s in $filename (then rerun Makefile.PL).

.
    }       

    open my $fh, $filename or die "open: $filename: $!";
    { local <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	198	318	
==>$str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	198	318	
==>$str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub tim <==
2	/Users/nnunley/pugs/util/version_h.pl	971	1085	
==>ast;
    }
    close FH;
} elsif (my @info = qx/svk info/ and $? == 0) {
    print "Writing version from `svk info` <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10830	10923	
==>:confess("class undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_meth <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1299	1397	
==>u will need the 'nmake' utility
before installation. It's available at:

  http://download.microsof <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1139	1237	
==>u will need the 'nmake' utility
before installation. It's available at:

  http://download.microsof <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	681	792	
==>n $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16830	16975	
==>assing           true if the whole test is considered a pass 
                    (or skipped), false if its a failure

  exit              the ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	84	280	
==>ule::Install::Base);

$VERSION = '0.61';

use strict;

sub WriteAll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        ch <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4621	4709	
==>a('closure::params'));
    return bit->new(0) if $left->length->not_equal_to($right->leng <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2487	2583	
==>t nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2487	2583	
==>t nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6596	6707	
==>, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]} <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6596	6707	
==>, @packed_params);
}

sub unpack_params (Str $data) returns Str is export {
    my @pairs = split(rx:perl5{[&;]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2346	2468	
==>kage Foo;



and p6 ones begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 on <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2260	2375	
==>kage Foo;

and p6 ones begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 on <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3772	3904	
==>my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3772	3904	
==>my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21535	21636	
==>yours may wish to
override some of your messages, showing other messages instead which are
more approp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21535	21636	
==>yours may wish to
override some of your messages, showing other messages instead which are
more approp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18530	18625	
==>or now it officially is not and you should not share
Rosetta objects between multiple threads, n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18530	18625	
==>or now it officially is not and you should not share
Rosetta objects between multiple threads, n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9112	9207	
==>h(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2937	3032	
==>h(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	618	753	
==>rint header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unautho <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	618	753	
==>rint header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unautho <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4821	4990	
==>| <'new'>
    | <'var'>
    | <'case'>
    | <'finally'>
    | <'return'>
    | <'void'>
    | <'catch'>
    | <'for'>
    | <'switch'>
    | <'while'>
    | <'continue'> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7447	7679	
==>$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7447	7679	
==>$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method kv ( $array <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11139	11236	
==>der (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11139	11236	
==>der (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns Str>

=item <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3557	3671	
==>names}{$pkg};

        eval { require $file; 1 } or (warn($@), next);
        $self->{pathnames}{$pkg} = delete $IN <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16180	16295	
==>her one displays it to the
user instead.

Locale::KeyedText provides a simple but effective mechanism for
applicatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16180	16295	
==>her one displays it to the
user instead.

Locale::KeyedText provides a simple but effective mechanism for
applicatio <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	24	132	
==>is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a pr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	24	132	
==>is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a pr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8988	9105	
==>et_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which m <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8988	9105	
==>et_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1547	1693	
==>=> $2,
        capture => $1,
        from  => $pos,
        to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13619	13716	
==>and the
names are returned in the recommended "Good Practice" order.

In scalar context return the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13619	13716	
==>and the
names are returned in the recommended "Good Practice" order.

In scalar context return the <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2617	2732	
==>ode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2617	2732	
==>ode(index(0         ,0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5072	5342	
==>~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF] <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5072	5342	
==>~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	921	1058	
==>ch Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	921	1058	
==>ch Hash ref specifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	190	348	
==>l'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	190	348	
==>l'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2106	2197	
==>ht also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.f <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2106	2197	
==>ht also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36588	36687	
==>ist, in which case the returned Relation is identical to the
invocant.  Another trivial case is wher <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41137	41236	
==>ist, in which case the returned Relation is identical to the
invocant.  Another trivial case is wher <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20333	20435	
==>comp.h: This is essentially a linear encoding of a nondeterministic
finite-state machine (aka syntax ch <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20488	20588	
==>{_dirs}}) {
	my $val = $dir_index->{_dirs}->{$subdir};
	while( ( exists $val->{_dirs} && scalar %{$va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1507	1603	
==>akes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number betwee <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1507	1603	
==>akes only one option, C<:key>, containing the key.  
Arcfour keys can be any random number betwee <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	721	812	
==>mper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	721	812	
==>mper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->export_to_level <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11418	11548	
==>_i ? "exactf" : "exact";
  }

  sub data {
    my $self = shift;
    join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1277	1369	
==>fier  { \*\* {<[\d\.]>+}(\??) | <[\?\*\+]>(\??) }

rule alias  { <named_scalar_alias>|<number <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	293	408	
==>dd_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::ad <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18836	18936	
==>),
    );
}

my method _intersection (Relation::Example $other!) returns Relation::Example {
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7817	7914	
==>.}>

Clears the cipher object's internal structures.

Cipher authors should assume that if this me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7817	7914	
==>.}>

Clears the cipher object's internal structures.

Cipher authors should assume that if this me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2483	2615	
==>"' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2483	2615	
==>"' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2285	2418	
==>lse {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2285	2418	
==>lse {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	913	1036	
==>ult {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub reverse (; *@values) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	35	139	
==>ingeleitet:

#!\begin{block}{}\texttt{
# dies ist ein Kommentar :-)
#!}\end{block}

Zum auskommentieren m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	83	186	
==>ct;
use warnings;



__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Emitter - emitter base class - n <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	944	1041	
==>uration_re_anchored
        or die "can't match '$iso8601' to available ISO-8601 duration formats" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7021	7128	
==>is rarely used by the cipher itself; more often it is used by 
a block cipher mode role to add some informat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7021	7128	
==>is rarely used by the cipher itself; more often it is used by 
a block cipher mode role to add some informat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22240	22346	
==>ree> is undef, which instructs the object()
method not to actually create any objects.  Afterwards, it is a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26425	26529	
==>_SEEN /* src bckwrd cmpt */

 /* 0xf800 of reganch is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32134	32239	
==>at are in either or both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36684	36789	
==>at are in either or both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	227	346	
==>nd folks will
see, but it has some other clutter because of unclear design.

    $.from         - The place where this s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	227	346	
==>nd folks will
see, but it has some other clutter because of unclear design.

    $.from         - The place where this s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3329	3431	
==>epresents a date /without a time/.

Because it is just a date, it does not handle time zones or leap
se <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3329	3431	
==>epresents a date /without a time/.

Because it is just a date, it does not handle time zones or leap
se <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	79	175	
==>/;

use strict;
use warnings;

use String::Escape qw/quote printable/;
use Scalar::Util qw/blesse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1173	1337	
==>f ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1173	1337	
==>f ($string ~~ s:P5/^([^ \t:]+)[ \t]*: ?(.*)\n?//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	366	487	
==>t {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('imp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	366	487	
==>t {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('imp <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10511	10630	
==>d graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... d <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10511	10630	
==>d graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... d <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6882	6982	
==>hould
ignore the opening one. However, this means I should defer events until I get to the
end of the <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6882	6982	
==>hould
ignore the opening one. However, this means I should defer events until I get to the
end of the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1008	1124	
==>mpiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1008	1124	
==>mpiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7800	7901	
==>ush( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= CO <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7800	7901	
==>ush( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= CO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1382	1487	
==>nless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1382	1487	
==>nless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3168	3323	
==>$_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3168	3323	
==>$_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next un <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2845	3091	
==>> 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks can have the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7326	7448	
==>([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\X[A;B] in character class") if @hex > 1;
        return $S->for <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3827	3921	
==>ld ::= &Tree::insert_children;

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3827	3921	
==>ld ::= &Tree::insert_children;

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1217	1326	
==>> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1217	1326	
==>> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10283	10381	
==>ments are provided and that they are of the correct
container type (eg, hash vs array).  The deferr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10283	10381	
==>ments are provided and that they are of the correct
container type (eg, hash vs array).  The deferr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36458	36555	
==>ate_message( $message! )>

This method takes a (machine-readable) Message object as its positional <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36458	36555	
==>ate_message( $message! )>

This method takes a (machine-readable) Message object as its positional <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3089	3262	
==>/BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3089	3262	
==>/BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date = ./date;
        
        my $age = 0;
        
        i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	294	408	
==>rs;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get ini <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	294	408	
==>rs;

method members() returns List {
    # XXX - this is nessecary because the hash 
    # does not seem to get ini <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27705	27811	
==>essage as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27705	27811	
==>essage as a Hash ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_msg_k <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4649	4751	
==>ck,$name,$re)=@_;
  #$match_hack - Match creation is one thing which is very cruft in this spike.
  # 0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28504	28600	
==>en
coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28504	28600	
==>en
coercing this object to a string.

=back

=head2 The Template Modules

Locale::KeyedText doesn <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10498	10611	
==>defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10498	10611	
==>defined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10450	10549	
==>already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($obj <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10450	10549	
==>already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($obj <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1789	1882	
==>epoch( Real $epoch ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17974	18083	
==>rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp struct, whi <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2333	2442	
==>rest of the perl core.
Some of the interaction is via global variables.  A lot of it uses a
regexp struct, whi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	64	183	
==>base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    '...' 
    "..."
    q(...)
    qq(...) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15950	16047	
==>ributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15950	16047	
==>ributes?,
:@child_nodes? )>

This method creates and returns a new Rosetta::Model::Node object, th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14375	14480	
==>lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8578	8683	
==>lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2672	2773	
==>iverse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2672	2773	
==>iverse;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $univers <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8811	8934	
==>et2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8811	8934	
==>et2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9131	9234	
==>tifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $qua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9127	9230	
==>tifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $qua <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30239	30336	
==>ied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation wh <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34791	34888	
==>ied in that order, and it works like Perl's
standard C<map> operator. It returns a new Relation wh <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13875	13973	
==>eval their children
comb: env($.fun) = { env($$) }
comb: env($.param) = { env($$) }

# combs combin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2193	2293	
==>String $P) {
    return JSX::true if $O.property_value.exists($P);
    my $proto = $O.<[[Prototype]]> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24400	24517	
==>);
  });

  # alternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20821	20938	
==>);
  });

  # alternation branch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4544	4685	
==>r (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4544	4685	
==>r (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	912	1021	
==>ar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	912	1021	
==>ar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24557	24662	
==>S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20978	21083	
==>S->{next} }, qw< ifthen_atom >;
    return $S->object(branch =>);
  });

  # illegal 2nd alternation branc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	105	209	
==>r $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	105	209	
==>r $VERSION ='0.01';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26997	27107	
==>ple usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26997	27107	
==>ple usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my L <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19733	19849	
==>:item ($item --> Item )
{
    $item; #XXX - sufficient to "Forces generic Item context"?
}

 
 multi prefix:<:16> ( S <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1736	1841	
==>onstruct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
rule e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2582	2695	
==>hatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $v <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2582	2695	
==>hatever separator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $v <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1094	1220	
==>]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1094	1220	
==>]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	421	534	
==>e source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	421	534	
==>e source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_file>;

# Compile t <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	147	261	
==>my $c = PIL::Run::Container::Scalar->new_instance();
        $c->scalar_store($_);
        $c;
    } @_;
}

role 'I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1876	1997	
==>s
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1876	1997	
==>s
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub capturing_group {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1634	1737	
==>acility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1634	1737	
==>acility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16772	16892	
==>m, if uppercase.


=item lcfirst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str::lcfirst    ( S <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	399	515	
==>inline --pugs|p=s --precompile|i=s@ --verbose|v --touch --output|o=s --keep|k);

touch() if $Config{touch};

setup_ou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	51	153	
==>5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Ind <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	51	153	
==>5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Ind <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7949	8075	
==>.output handles 'diag';
  has Test::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( Te <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16321	16422	
==>pmc optable
    optable = find_global "PGE::P6Rule", "$optable"
    $P0 = optable."parse"(mob)
    .re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1618	1718	
==>Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## li <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1676	1776	
==>Test::proclaim($test, "Should not match: $desc", $todo, $got, $expected, $depends, :negate);
}

## li <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23065	23229	
==>st->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . "^"
              . "<" x ($l <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	267	360	
==>se File::Find ();
use File::Path ();

@inc::Module::Install::ISA = 'Module::Install';
*inc::Mo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4096	4235	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4289	4428	
==>[ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        ma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13271	13434	
==>$X::pos);
          $v = $f->($noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my $c = $ <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	271	366	
==>ayesian.p5 add oranges oranges");
    system("perl naive_bayesian.p5 add grapes grapes");
}
syst <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3568	3694	
==>Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3568	3694	
==>Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6330	6430	
==>class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11176	11276	
==>class, $Bar, '... $iBar refs to $Bar');

# try to call the Class method
fails_ok { $iBar->name } '... <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10566	10693	
==>rson );

    # Define and compile a function that will select a record from the
    # 'person' table, whose 'id' field matches t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10566	10693	
==>rson );

    # Define and compile a function that will select a record from the
    # 'person' table, whose 'id' field matches t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8597	8718	
==>um_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpas <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8655	8776	
==>um_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9980	10089	
==>- a grammar name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	831	979	
==>chet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = delete $param <==
2	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	46	164	
==>g, Int $arg = 0 is copy) returns Void {
    my $newarg = [~] $arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16432	16619	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16711	16898	
==>al(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	687	807	
==>$.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	687	807	
==>$.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11251	11391	
==>_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11251	11391	
==>_spec?, $secure?, $maxage?, $discard?, *%rest) {
                return if $discard && $skip_discardables;
                
                m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1845	1985	
==>s_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1845	1985	
==>s_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Per <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6654	6795	
==>ure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6654	6795	
==>ure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	0	93	
==>module Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate li <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	0	93	
==>module Algorithm::TokenBucket-0.2;

=head1 NAME

Algorithm::TokenBucket - Token bucket rate li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1266	1375	
==>er $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    #print "P5: ",$p6->{perl5}, "\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	477	585	
==>er $p6;
    # print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5: ",$p6->{perl5}, "\n" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Compiler.pm	112	210	
==>_

=pod

=head1 NAME

Blondie::Backend::Perl::Compiler - 

=head1 SYNOPSIS

    use Blondie::Backen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3749	3949	
==>_dir -xz]) 
                                                                and die $?;

        ### extract the meta info
        my $control  = $conf->archive_control;
        system( qq[tar -f $my_t <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1392	1483	
==>_varname})\s*\(((?:\@${re_symbol}\s*,\s*)*\@${re_symbol})\)\s*\{/for $2 -> $1 {/g;
    s/${f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	952	1064	
==>q.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	952	1064	
==>q.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - e <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1604	1722	
==>mp, $data);
   my $cmd = "pugs $scr $intmp";
   print "$label: running: '$cmd'...";
   my $out = `$cmd`; my $rc = $? >> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18192	18287	
==>rned words for the user, such as
'error opening file', programs would have a harder time figurin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18192	18287	
==>rned words for the user, such as
'error opening file', programs would have a harder time figurin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1120	1246	
==>if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = % <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1120	1246	
==>if $val.defined;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = % <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9650	9747	
==>Many, but not all, ciphers will need to override these
method _head() returns Array { return }
met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9650	9747	
==>Many, but not all, ciphers will need to override these
method _head() returns Array { return }
met <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27930	28026	
==>eturns the Message Variable value (a string) associated with
the variable name specified in the p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27930	28026	
==>eturns the Message Variable value (a string) associated with
the variable name specified in the p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17067	17178	
==>r data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17067	17178	
==>r data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1473	1609	
==>variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1473	1609	
==>variable>    
            
        { return { match_variable => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	54	159	
==>buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns Array {...}
me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	54	159	
==>buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns Array {...}
me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17477	17587	
==>shift(@classes); # dont want current class;
    push(@classes,$ROOT);

    my $code = "";
    $code .= "package <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	343	530	
==>rguments( @args ) );
        }

        method parse_arguments ( Array of Str @args ) {
            collect_arguments( self.create_arguments( @args ) );
        }

        my multi sub col <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3088	3242	
==>n "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3088	3242	
==>n "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7253	7364	
==>aborting, capturing.



There are 2 kinds of ruleop operators:



- higher order operators: alternation, concate <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7007	7114	
==>aborting, capturing.

There are 2 kinds of ruleop operators:

- higher order operators: alternation, concate <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17644	17738	
==>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17644	17738	
==>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> f <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1682	1831	
==>i];
            if($all_the_same->(@{ $events->[$i] })) {
                undef $events->[$i];
            } else {
                pop @{ $events->[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6201	6315	
==>= substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7199	7313	
==>= substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19199	19319	
==>ep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # ) for non-ca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	625	725	
==>fess "Keys must be strings, and values must be native types";
        $values{$key->to_str->to_native <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9286	9440	
==>ults{bonus},
                    skipped     => $results{skip},
                    skip_reason => $results{skip_reason},
                    skip_all    = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7754	7857	
==>icLiteral>
    | <StringLiteral>
    | <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	921	1037	
==>:Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	921	1037	
==>:Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./gen(.value, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4043	4152	
==>[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4260	4369	
==>[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4879	5018	
==>n($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($k <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4738	4877	
==>n($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($k <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	206	308	
==>ot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	206	308	
==>ot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Ca <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3911	4016	
==>tracked down.

=item Completeness

\G, pos(), etc, are not yet supported.

=back

=head1 AUTHORS

The Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36465	36560	
==>sage( $message! )>

This method takes a (machine-readable) Message object as its positional
para <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36465	36560	
==>sage( $message! )>

This method takes a (machine-readable) Message object as its positional
para <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	875	985	
==>);

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catf <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	808	909	
==>);

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catf <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1522	1628	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::procl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1580	1686	
==>$desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::procl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4956	5061	
==>)

Returns the initial position of the match.

=head2 to ()

Returns the final position of the match.

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4956	5061	
==>)

Returns the initial position of the match.

=head2 to ()

Returns the final position of the match.

=he <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19307	19480	
==>eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t"/mge;
    $s;
}


sub p6_eval {
    my( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	996	1110	
==>> META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB::Package::Installed
on a META_OBJ.

XXX need <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	114	209	
==>ntation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	114	209	
==>ntation

=head1 VERSION

This document describes version 6.2.12 of Pugs, released June 26, 2006. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6041	6151	
==>d;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () returns Objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6041	6151	
==>d;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () returns Objec <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15998	16087	
==>ionNoIn> <'>'> <ShiftExpression>
    | <RelationalExpressionNoIn> <'<='> <ShiftExpression> <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	345	446	
==>perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Outpu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	345	446	
==>perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::Outpu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7178	7380	
==>ed $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7178	7380	
==>ed $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16666	16779	
==>{&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe ju <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13087	13200	
==>{&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or maybe ju <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1422	1580	
==>rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1422	1580	
==>rx:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %even <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1831	1940	
==>ersion.  Most 
algorithms will have a key, which will be specified in the options; check your 
cipher's docume <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1831	1940	
==>ersion.  Most 
algorithms will have a key, which will be specified in the options; check your 
cipher's docume <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10711	10829	
==>$key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10711	10829	
==>$key is rw {
                    my :($version, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1851	2011	
==>| ${$_[3]}->{abort};
            
            
            $_[3] = { match => [ $_[3] ] };
            $state[1] = $nodes->[1]->( $_[0], $state[1], $_[2], $_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11839	11956	
==>opts";
      }
      $link->{sourcepath}=$output_path;
      $output .= $text;
      my $syn_path = catfile($output_di <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	587	690	
==>r() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	587	690	
==>r() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() should test if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1910	2041	
==>lf.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1910	2041	
==>lf.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an absolute ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2125	2271	
==>rn @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2125	2271	
==>rn @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{labe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28052	28147	
==>name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28052	28147	
==>name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names and va <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18476	18583	
==>ad)
    $P0["iscut"] = 1
    $P0["isquant"] = 1
    .return ($P0)
.end

.namespace [ "PGE::Exp::Concat" ]

. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3131	3228	
==>thod intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3131	3228	
==>thod intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $other.in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21821	21914	
==>opriate place, usually in the
main program, Locale::KeyedText can be given input that says wha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21821	21914	
==>opriate place, usually in the
main program, Locale::KeyedText can be given input that says wha <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16969	17074	
==>unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why twice: once for inline code, once for the final M <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21864	21963	
==>(class_pos(ascii)     ,C) :- !,    isAscii(C).
class_member(class_neg(ascii)     ,C) :- !, \+(isAsci <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3230	3392	
==>}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3477	3639	
==>}(),
            ws1   => $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quan <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10271	10377	
==>g_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10271	10377	
==>g_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_value // <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11340	11528	
==>f, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11340	11528	
==>f, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2177	2324	
==>400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2177	2324	
==>400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2069	2168	
==>return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2069	2168	
==>return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \&{'statemen <==
2	/Users/nnunley/pugs/util/grokprims.pl	1638	1737	
==>ame \$$a1) $name \$$a1";
  } elsif (/left-associative/ and $arity==2) {
    $example = "HUH: left-as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	243	503	
==>INGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	243	503	
==>INGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_ke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1488	1585	
==>tal viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1488	1585	
==>tal viewing.  (rot13 in particular is often used for obscuring spoilers, 
answers, and punchlines. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2564	2835	
==>ess $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2564	2835	
==>ess $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $d <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3642	3796	
==>nd = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3642	3796	
==>nd = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	721	818	
==>my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	721	818	
==>my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output file ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23423	23547	
==>S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19844	19968	
==>S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1918	2018	
==>$class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1918	2018	
==>$class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) return <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	162	274	
==>e::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XX <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	162	274	
==>e::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XX <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3484	3587	
==>t $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    subme <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3484	3587	
==>t $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    subme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3314	3433	
==>int_program => $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3531	3650	
==>int_program => $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1167	1285	
==>a_info =~ s/$Ext$/$Metaext/;
            ### XXX no hierarchy yet
            system( qq[mv $my_tmp_dir/$Metafile $Repo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3793	4063	
==>s empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3793	4063	
==>s empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') -> $p {
                                    $found++, $last if $p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	664	798	
==>}
   }
 }

 multi sub reduce (Code $expression ; *@values) returns List {
   my $res;
   for @values -> $cur {
        FIRST {$res = $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9356	9490	
==>'t provide any alternatives
        last LINKING unless $alt;
        
        ### XXX this should probably be done in one go, so we do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7034	7175	
==>->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7034	7175	
==>->{bool};
        ## return if $match->{abort}; - maybe a { return }
        my $new_match = { %$match };
        
        $new_match->{label} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3630	3763	
==>ineComment>
    | <SingleLineComment>
}
rule MultiLineComment {  # see 7.4
      <'/*'> <MultiLineCommentChars>? <'*/'>
}
rule MultiLi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4013	4111	
==>rder of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini fil <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4013	4111	
==>rder of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the same as windows .ini fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	137	250	
==>ents.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	132	238	
==>ents.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16360	16486	
==>Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12781	12907	
==>Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25908	26003	
==>f any changes, in
addition to preserving this original copyright notice and other credits.
Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25908	26003	
==>f any changes, in
addition to preserving this original copyright notice and other credits.
Roset <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1377	1494	
==>'$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1377	1494	
==>'$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ) <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	470	585	
==>! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's bo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	470	585	
==>! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's bo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	106	215	
==>p::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	106	215	
==>p::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop:: <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12857	12952	
==>ft;
    $self->execute($self->compile(@_))->val;
}

package Interpreter;
use base qw/Reducer Dyn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	192	392	
==>p::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	193	393	
==>p::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1590	1692	
==>T_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always r <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1590	1692	
==>T_LOGS> environment variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10959	11165	
==>l->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

method new (opaque $class: hash %params) returns opaque {
    $class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5701	5899	
==>}', \$_[1], \$_[3] ) } \n" ;
                        $s .= 
                            "    |  exp '$op->{name}'    %prec $prec\n" .
                            "        { \$_[0]->{out}= \$_[1] } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38922	39089	
==>attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16914	17005	
==>B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0,Bx,E0,Ex),
  rm(Re2,Fx,F1,Bx,B1,Ex,E1).


rm(ques_ng(_Re) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20613	20764	
==>de("mul"),
								param => ide("r"),
							),
							param => ide("x"),
						),
					),
				),
			),
		),
		in => comb(
			fun => comb(
				fun => id <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1724	1863	
==>$path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1724	1863	
==>$path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $ba <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1551	1715	
==>hash_fetchVal => sub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10302	10403	
==>and that they are of the correct
container type (eg, hash vs array).  The deferred validations are per <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10302	10403	
==>and that they are of the correct
container type (eg, hash vs array).  The deferred validations are per <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2376	2485	
==>od quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2376	2485	
==>od quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2399	2496	
==>with those limitations and 
still produce a working version of File::Spec for use as we develop 
P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2399	2496	
==>with those limitations and 
still produce a working version of File::Spec for use as we develop 
P <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12800	12901	
==>ite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last elemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12800	12901	
==>ite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Returns the last elemen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5104	5233	
==>turns true on success, false on failure.

=cut

sub _copy {
    my $self = shift;
    my %hash = @_;
    
    my($from,$to);
    m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2020	2119	
==>//dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want t <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2020	2119	
==>//dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. You might also want t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10200	10362	
==>eader;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><I <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10200	10362	
==>eader;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><I <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3125	3280	
==>([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3125	3280	
==>([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1588	1697	
==>ional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1588	1697	
==>ional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_cv {
    my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4266	4353	
==>28182845904523536028747135266249775724709369995957496696762772407663;
    # http://www.r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1171	1270	
==>mpiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1171	1270	
==>mpiler::PIL::Util::VoidContext
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17375	17508	
==>s.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22477	22581	
==>s.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


 } regexp <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3146	3262	
==>fer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better so the re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3146	3262	
==>fer;
  # worry later about large body

  # strip away status and headers
  # This should all be done better so the re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9471	9606	
==>child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9471	9606	
==>child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.h <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3718	3818	
==>($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3718	3818	
==>($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.union($two <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	864	1008	
==>k {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $self->{omit} = shift if @_;
    $self->{omit};
  }

  sub inse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	658	781	
==>hift;
    $$self;
}
sub STORE {
    my $self = shift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	389	491	
==>=> q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	389	491	
==>=> q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5974	6084	
==>t<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5974	6084	
==>t<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channel <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2770	3067	
==>totals  = (
                   max      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here s <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1450	1602	
==>onfig); 
    add_path(installprivlib     => $config); 
    add_path(installsitearch    => $config); 
    add_path(installsitelib     => $config); 

    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3738	3848	
==>d response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3738	3848	
==>d response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $request_time) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12489	12621	
==>_  } @_,
    }, $class;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my $ast = shift;

    Compiler->new->com <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6663	6777	
==>e($url, $file)

Gets a document identified by a URL and stores it in the file. The
return value is the HTTP respons <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6663	6777	
==>e($url, $file)

Gets a document identified by a URL and stores it in the file. The
return value is the HTTP respons <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	159	269	
==>nforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) return <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	159	269	
==>nforce that.

method dom_fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9872	9966	
==>ecurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9872	9966	
==>ecurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite.

- `stringify( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12012	12138	
==>ut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12012	12138	
==>ut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10320	10434	
==>de_named{$name};
    die "bug $name" if !$info;
    my $chk = join(", ",map {"\$$_"} @{$info->{'fields'}});
    $va <==
2	/Users/nnunley/pugs/util/grokprims.pl	1057	1167	
==>$example;
  
  local $_=$op->{assoc};
  my $name = $op->{name};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{arg <==
2	/Users/nnunley/pugs/util/version_h.pl	475	580	
==>e keyword appears
# is modified.
my $revision = 0;

# SVK tries to ask the user questions when it has a ST <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5137	5259	
==>ue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5137	5259	
==>ue]',
  'pRHS'  ,'PIL_Expr';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22122	22216	
==>r the multiple language
or permissions issue; simply order the files appropriately in the searc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22122	22216	
==>r the multiple language
or permissions issue; simply order the files appropriately in the searc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11511	11606	
==>)>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11511	11606	
==>)>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C<$set <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3034	3137	
==>-> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3034	3137	
==>-> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL::PIL {
    has Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12924	13080	
==>y \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12918	13074	
==>y \$r = Pugs::Runtime::Rule::get_variable( '$cmd' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3152	3368	
==>arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3152	3368	
==>arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1947	2049	
==>i sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1947	2049	
==>i sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3599	3695	
==>d|head1|kwid|for] 
    .*? 
    \=cut 
RULE
*{'use_v6'} = Pugs::Compiler::Rule->compile(<<'RULE') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39106	39247	
==>butes'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::para <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3677	3791	
==>/XXX$1YYY/gm;
#    
#    $file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\texta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1009	1128	
==>the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation' <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4487	4606	
==>the tuple
        # is represented as a Mapping; each key of that Mapping is the name
        # of one of this Relation' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1011	1107	
==>C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte va <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1011	1107	
==>C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte va <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2033	2130	
==>s::Internals::eval_perl5($code) };
            when 'haskell' { Pugs::Internals::eval_haskell($cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3440	3580	
==>TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3428	3568	
==>TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_[1] do { my \$quantified = 1; (\n$rul\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	670	801	
==>sh ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1951	2082	
==>sh ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	0	94	
==>package Pugs::Grammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	0	94	
==>package Pugs::Grammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode char <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17601	17697	
==>e HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and contain <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17601	17697	
==>e HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and contain <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15034	15153	
==>osetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15034	15153	
==>osetta::Model::Node - This stores a reference to this Node's parent Node,
if it has one.  Nodes that do not have this at <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14832	14940	
==>ale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SEC <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14832	14940	
==>ale::KeyedText::Message.new( msg_key => 'MYLIB_RESULT',
                msg_vars => { 'FIRST' => $first, 'SEC <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5929	6072	
==>"lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5929	6072	
==>"lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "omicron"  => chr(959),
    "pi" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17049	17150	
==>v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17049	17150	
==>v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9991	10111	
==>ol new ("&dispatcher" <block>))))
                 (returns <method>)))
            {  (($e get ("&dispatcher")) do) }))) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1027	1128	
==>OnPerl5::X1::BB::debug = $debug;
$Perl6::Run::OnPerl5::X1::BB::pugs_args = join(" ",map{"-I$_"}@inc_di <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12931	13097	
==>ath (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12931	13097	
==>ath (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4839	4947	
==>t returns the numified version
of the result object (usually the entire match string).

=head1 METHODS

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4839	4947	
==>t returns the numified version
of the result object (usually the entire match string).

=head1 METHODS

=head <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4520	4668	
==>e   (List)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   List      post    ...     safe   (S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	864	980	
==>ht =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight>', 
    infix_chain =>     '<tight> [ < <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7757	7868	
==>the message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7757	7868	
==>the message vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $tex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	961	1087	
==>$class);
    
    #warn "inv: " . $inv->id->to_native . " => class: " . $inv->class->id->to_native;
    # we take the MRO first <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1641	1732	
==>ompiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1641	1732	
==>ompiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1019	1120	
==>d

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two param <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1019	1120	
==>d

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2521	2625	
==>a client's request.  It also contains extra
information passed on by the HTTP server, useful to the autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2521	2625	
==>a client's request.  It also contains extra
information passed on by the HTTP server, useful to the autho <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3888	4006	
==>new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3888	4006	
==>new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6764	6871	
==>eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6764	6871	
==>eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17240	17340	
==>hat is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17240	17340	
==>hat is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1553	1672	
==>ive] = nil->new();
    return nil->new();
}

sub slice {
    my ($self, $start_index, $end_index) = @_;
    ((blessed($s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4664	4786	
==>name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4676	4798	
==>name\n";
    
    # XXX - wrong, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	290	406	
==><p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	290	406	
==><p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13828	13955	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14107	14234	
==>atch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1755	1951	
==>calar_fetch;
            },
            hash_storeVal => sub {
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_hash_viv <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12550	12669	
==>e_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the under <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12550	12669	
==>e_routine( $fnd_get_person );

    ### DURING WORK PHASE ###

    # Actually connect to the database / talk to the under <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	0	132	
==>module WTemplate-0.0.1;
use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a.. <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	0	132	
==>module WTemplate-0.0.1;
use v6;

## set up the globals

my %WIDGETS;

## set up the rules

rule sp {
    <[ ]>
}

rule id {
    <[a.. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4375	4475	
==>lue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4375	4475	
==>lue, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size()

Re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4644	4750	
==>data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphertext version of t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4644	4750	
==>data.  May return data which is part of the 
ciphertext, but is not necessarily the ciphertext version of t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30242	30338	
==>iables, which will be substituted at run-time before the text
is shown to the user.

Each Templat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30242	30338	
==>iables, which will be substituted at run-time before the text
is shown to the user.

Each Templat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3992	4120	
==>dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4456	4584	
==>dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9096	9198	
==>S

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains al <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9096	9198	
==>S

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains al <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6513	6615	
==>returns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6513	6615	
==>returns Array of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9687	9793	
==>0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9687	9793	
==>0.map:{ $self.new( span => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16582	16701	
==>rn $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16582	16701	
==>rn $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC::OO - IRC library for Pu <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1110	1234	
==>returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is e <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1110	1234	
==>returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy) returns Str is e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31836	31960	
==>language B.  Later on, if for example the first library generates an error
message and wants it shown to the user, the main p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31836	31960	
==>language B.  Later on, if for example the first library generates an error
message and wants it shown to the user, the main p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12231	12485	
==>call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12231	12485	
==>call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Ro <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	405	508	
==>tPage';
my $entry      = join("\n", param('entry') || %wiki{$topic});
if ($topic eq "OverView") {
    $a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27580	27677	
==>n has all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  E <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32132	32229	
==>n has all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  E <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	372	472	
==>= $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> e <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	372	472	
==>= $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7303	7399	
==>e_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1128	1224	
==>e_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7018	7122	
==>ate some roles
my $rFoo = $Role->new(
    '$:name' => 'rFoo',
    '%:methods' => { foo => sub { 'rFoo::fo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1708	1829	
==>tring) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Arr <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1708	1829	
==>tring) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Arr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1208	1339	
==>/= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role R <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1208	1339	
==>/= [];
        $.capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role R <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8706	8814	
==>A\d+\Z/); };
    return if not_an_array_index($P);
    my $uint = ToUint32($P);
    return if $uint < $A.prop <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5531	5627	
==>multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
} <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	82	188	
==>::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	82	188	
==>::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16522	16625	
==>d as a separate value if in
an array context.  If there is no such header field, then the empty
string i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16522	16625	
==>d as a separate value if in
an array context.  If there is no such header field, then the empty
string i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2012	2124	
==>$dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2012	2124	
==>$dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $dir ~= "\\" unless substr($dir, -1) eq "\\";
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23802	23946	
==>n $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${& <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20223	20367	
==>n $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${& <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10337	10437	
==>se )`

Creates a recurrence set.

The complementary functions are emulated using iterations.

See als <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10337	10437	
==>se )`

Creates a recurrence set.

The complementary functions are emulated using iterations.

See als <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3911	4010	
==>losure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3911	4010	
==>losure_next ),
        complement_next =>     $self._get_union( $self.complement_next, $set.compleme <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40491	40589	
==>t is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the imp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40491	40589	
==>t is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY; without even the imp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18902	19011	
==>ATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18902	19011	
==>ATA - The DATA section. Begins with the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19633	19731	
==>to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h.au <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19633	19731	
==>to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h.au <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20281	20378	
==>so now abstracted -- each node it comes across
will have its walk() method called.  And the ending <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15184	15287	
==>/:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15184	15287	
==>/:enqueue("NOTICE $to :$text") }

  # RAW
  method raw(Str $command) { ./:enqueue($command) }

  class Q <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1066	1179	
==>= shift;
    my $perl_version = shift
      or die "Must pass Perl version (5 or 6)";
    my $base = $self->{_top} <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3611	3717	
==>ude_re} = qr/\.($include_re)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info;
    $self- <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10644	10766	
==>fined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuou <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10644	10766	
==>fined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuou <==
2	/Users/nnunley/pugs/util/package-osx.pl	6739	6845	
==>n/man3/Perl6::Overview::Subroutine.3pm
        /usr/local/man/man3/Perl6::Overview::Variable.3
        /usr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21648	21747	
==>y by their names, and all
Relation tuples may be individually addressed only by their values; neithe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26200	26299	
==>y by their names, and all
Relation tuples may be individually addressed only by their values; neithe <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7278	7389	
==>uild;
    if ($ENV{PUGS_EMBED} and $ENV{PUGS_EMBED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/perl5 -Isrc/pe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	670	776	
==>ort symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Heading object:
    has Mapping <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	202	293	
==>mag @obst[0] und @obst[1]";
say "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}";
say "{$wer <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12964	13054	
==>edText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12964	13054	
==>edText version 1.73.0.

It also describes the same-number versions of Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1836	1930	
==>e> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1925	2019	
==>e> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> represents a B<Match <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	880	983	
==>d as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	880	983	
==>d as soon as it has matched C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3755	3876	
==>tch variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3939	4060	
==>tch variables
 $/ $()  - global match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3396	3501	
==>d in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3396	3501	
==>d in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handle <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	344	464	
==>hm implemented is Hindley-Milner type inferrencing, as explained in
# this article: http://research.microsoft.com/Users/l <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1888	1997	
==>construct>  }
rule external_hash_alias    {  \%<name>      \:\=  <construct>  }
rule construct  { <construct_b <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1931	2082	
==>mutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1931	2082	
==>mutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channel <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	202	351	
==>s qw(
    $VERSION 
    @ISA @EXPORT @EXPORT_OK 
    $Verbose $Switches $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6131	6230	
==>self->{'next'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my %results = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29913	30012	
==>ildren of the object.

=item my $r = $obj->raw()

The raw representation of this object.  It does no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7787	7887	
==>fined $rb->[$i];
	return 0 if !defined $ra->[$i];
	return 0 if !defined $rb->[$i];
	return 0 unless $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	221	313	
==>t @rule_terms, 'dot';

package Pugs::Compiler::Grammar;

use Pugs::Compiler::Rule;
use Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	601	707	
==>te.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </he <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	601	707	
==>te.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </he <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4654	4761	
==>ined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4654	4761	
==>ined $content;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www. <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17360	17468	
==>my $r = Hacks->concat($n);
  return $r;
}
sub match {
  my($r,$s)=@_;
  my $len = length($s);
  for my $start <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17510	17610	
==>odel>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17510	17610	
==>odel>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS object represe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7311	7418	
==>killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7311	7418	
==>killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4903	5014	
==>rg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4903	5014	
==>rg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21344	21444	
==>w(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44251	44351	
==>w(':ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36076	36178	
==>, and we're done.  Now
we just need to return the regex representation of our children:

    return joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3397	3492	
==>tells perl5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> module must be properly in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7668	7839	
==>s $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$dom <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7668	7839	
==>s $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$dom <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15466	15705	
==>str'), 
                              symbol->new('%params' => 'hash')
                          ),
                returns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->creat <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2207	2310	
==>>type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6_type = $type_lookup{$attr->ty <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15536	15676	
==>mulation' image
      "-boot-load-size" => 4,              # Set numbers of load sectors
      "-boot-info-table",                  # Patch b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16907	17026	
==>[];
      $v = $f->($rest);
    }
    FAIL_IF_FAILED($v);
    unshift(@{$m0},$m1);# sigh, prevents mutation.
    # why t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30125	30224	
==>age text associated with the
Message; this user string may also contain variable names that correspo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30125	30224	
==>age text associated with the
Message; this user string may also contain variable names that correspo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12801	12897	
==>(`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12859	12955	
==>(`~~`) any `$!`
value with the `$expected` value.

- `dies_ok (Code &code, Str $desc?, Bool :$tod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6114	6218	
==>doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6114	6218	
==>doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $irl_doc.build_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37819	37919	
==>(a string).  Assuming that a Perl module by the given module name
is already loaded, it tries to invo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37819	37919	
==>(a string).  Assuming that a Perl module by the given module name
is already loaded, it tries to invo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2796	2892	
==>e default value is C<-w>. It overrides C<HARNESS_SWITCHES>.

=back


=head2 Failure

When tests f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20489	20609	
==>his is not
appropriate.  Prefixing field names with ':' allow you to force a
specific spelling.  For example if you reall <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20489	20609	
==>his is not
appropriate.  Prefixing field names with ':' allow you to force a
specific spelling.  For example if you reall <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1341	1436	
==>-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ na <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1341	1436	
==>-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element->new({ na <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1855	1950	
==>or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) > <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1855	1950	
==>or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) > <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2081	2203	
==>less (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2059	2181	
==>less (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8644	8779	
==>p = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8644	8779	
==>p = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{bool};
        return { bool => $mat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1250	1395	
==>$type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$const <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1250	1395	
==>$type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$const <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	56	161	
==>eturns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	56	161	
==>eturns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21007	21100	
==>onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, F <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21007	21100	
==>onto a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, F <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14869	15043	
==>ross_join        ::= &product;

###########################################################################

multi method join (Relation::Example $other!) returns Relation::Ex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13659	13760	
==>def => sub { $as_array_complain->("undef"); [] },
      numeric     => sub { $as_array_complain->("num <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3151	3247	
==>:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3151	3247	
==>:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	137	239	
==>piler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	137	239	
==>piler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2252	2360	
==>perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: hello_world.pl
    us <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6158	6260	
==>lock> and L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers to a constr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6158	6260	
==>lock> and L<Cipher::Stream> can 
reduce the implementation of most block and stream ciphers to a constr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1040	1147	
==>el::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document cont <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1040	1147	
==>el::Node @!all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	282	435	
==>$n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	370	523	
==>$n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11733	11890	
==>h::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12091	12248	
==>h::str( match::get( 
        { capture => $_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { captur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10563	10663	
==>ll return undef when it has reached the end of the tree;
it will then reset itself, and will start fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	568	675	
==>ompiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	568	675	
==>ompiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11454	11591	
==>xt>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11454	11591	
==>xt>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $queue, wait for input from server and <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2581	2685	
==>ode = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2581	2685	
==>ode = common_code($data,$constructor,"",*@fields);
    say $code; # XXX - see above
    $code;
}
sub node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5276	5462	
==>h => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5109	5287	
==>h => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'c <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1125	1246	
==>stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a m <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1125	1246	
==>stream of items. It is also very easy to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40705	40797	
==>by no means required, the copyright holders of
Locale::KeyedText would appreciate being infor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40705	40797	
==>by no means required, the copyright holders of
Locale::KeyedText would appreciate being infor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3088	3218	
==>?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3076	3206	
==>?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20029	20173	
==>ype eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16450	16594	
==>ype eq 'group') {
        push @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8122	8494	
==>KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8122	8494	
==>KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6321	6424	
==>bling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argumen <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6321	6424	
==>bling ($self: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Argumen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1920	2042	
==>ld {
        $size += $child.size();    
    }
    return $size;
}

## ---------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1920	2042	
==>ld {
        $size += $child.size();    
    }
    return $size;
}

## ---------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3380	3533	
==>whitespace_before]\n";
                if ( $whitespace_before ) {
                    $m = Pugs::Runtime::Match->new( { 
                        bool  => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8773	8877	
==>n.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8773	8877	
==>n.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $span is copy) returns List <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6906	7039	
==>the file.

Returns true on success, false on failure.

=cut

sub _mode_plus_w {
    my $self = shift;
    my %hash = @_;
    
    requ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1228	1370	
==>fier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $t <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1228	1370	
==>fier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n", $t <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	750	862	
==>y>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if de <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	750	862	
==>y>;
    # TODO - normalize duration syntaxes, such as 'days => 12'
    my $duration = %param<duration>;
    if de <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9950	10059	
==>ub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=po <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9950	10059	
==>ub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=po <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1849	1967	
==>.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1849	1967	
==>.isa( 'Span::Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3828	4160	
==>RE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3828	4160	
==>RE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2596	2704	
==>];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2596	2704	
==>];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	443	554	
==>to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	443	554	
==>to = $sent_to_a_chan ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	560	686	
==>rror), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields acc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1044	1170	
==>rror), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields acc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	900	999	
==>, as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node- <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	900	999	
==>, as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $node- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14495	14614	
==>at least the library has some documentation, which can help point you
  in the right direction.

  The regexp compiler h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13737	13840	
==>$?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17214	17317	
==>$?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1698	1789	
==>system("../../Setup$Config{_exe}", 'build');
        system("../../Setup$Config{_exe}", 'ins <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21219	21308	
==>anchored_utf8    substrs->data[0].utf8_substr
 #define anchored_offset  substrs->data[0].m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	427	617	
==>line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	427	617	
==>line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($pro <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	887	1089	
==>];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BU <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	887	1089	
==>];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod BU <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	826	943	
==>installsitebin => $Config{installsitebin} || $Config{installsbin},

        installman1dir     => $Config{installman1d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2090	2200	
==>n your
test files.  So if you begin a test with:

    #!perl -T

the test will be run with taint mode on.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	900	1030	
==>ny $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4378	4508	
==>ny $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4826	4936	
==>mpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attribute <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4826	4936	
==>mpdir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attribute <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15162	15263	
==>thod.  The old header value is always returned.
If the given header did not exist then C<undef> is ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15162	15263	
==>thod.  The old header value is always returned.
If the given header did not exist then C<undef> is ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	3	98	
==>ckage Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	3	98	
==>ckage Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1141	1250	
==>b foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1141	1243	
==>b foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14700	14828	
==>rt or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14700	14828	
==>rt or end values.

- `new( start => 1.0 )`

Given a start value, creates a span that has infinite size.

- `new( :int, start => 1 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3700	3805	
==>e_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3700	3805	
==>e_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3902	3999	
==>rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4086	4183	
==>rule object, or throws an exception on
invalid rule syntax.

options:

=item * grammar => $class - <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	980	1090	
==>t;
    not -e $self->base_path . "/lib/Perl6/Pugs.pm";
}

sub set_blib {
    my $self = shift;
    my $perl_ver <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	604	696	
==>tially a reference implementation of all the things the
language must provide, including stuf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4557	4699	
==>{
    my $self = shift;
    [ 'anyof_close' ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq ' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23800	23895	
==>e_at_n_if_undef(0,Replace,[X|T],[Replace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	414	563	
==>',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	414	563	
==>',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4947	5123	
==>], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { constant => $1 } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4794	4965	
==>], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { constant => $1 } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	536	625	
==>print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	396	534	
==>lit('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.' <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	396	534	
==>lit('') -> $char {
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.' <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2246	2494	
==>nd_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_li <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2246	2494	
==>nd_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_li <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7410	7669	
==>{ 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method k <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7410	7669	
==>{ 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4814	4940	
==>1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4802	4928	
==>1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34236	34330	
==>ation $other!) returns Relation>

This method is a generic relational operator that returns the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38786	38880	
==>ation $other!) returns Relation>

This method is a generic relational operator that returns the <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11065	11174	
==>> b
	snd => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator <==
2	/Users/nnunley/pugs/util/config_h.pl	1157	1259	
==>ole.Readline
main :: IO ()
main = readline "" >> return ()
.


my $has_th = try_compile(<< '.');
{-# OP <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13439	13554	
==>er to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13439	13554	
==>er to other above-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1573	1695	
==>rt;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1573	1695	
==>rt;
    my $i_end =   $.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27534	27642	
==>values applied to each tuple.  The new Relation has all
of the tuples of the original (or rather, the corresp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32086	32194	
==>values applied to each tuple.  The new Relation has all
of the tuples of the original (or rather, the corresp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13257	13386	
==>omment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13257	13386	
==>omment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	211	322	
==>iler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	196	303	
==>iler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4092	4237	
==>[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4080	4225	
==>[0]} ) { 
        my $tmp = emit_rule( $_, $_[1].'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14392	14534	
==>etattribute mob, "PGE::Match\x0$:pos"
    pos = $P0
    lastpos = length target
    inc pos
    $S0 = substr target, pos, 1
    if $S0 == '<' g <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10437	10534	
==>> <RegularExpressionChar>
}
rule RegularExpressionFirstChar {  # see 7.8.5
      <!before <[*\\\/] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6861	7127	
==>//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6861	7127	
==>//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.head <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1156	1313	
==>'    ) &&
                exists $table->{prototype};      
        
        my $_table = $table;  
    TRY_AGAIN:
        if (my $method = $_table->{$message <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12854	12989	
==>\"expanded: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12569	12669	
==>sing represent the
current working features.

This module deals with encoding and decoding of strings <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12569	12669	
==>sing represent the
current working features.

This module deals with encoding and decoding of strings <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2747	2851	
==>ion 
can be removed by XORing them together; you might not be able to derive the 
plaintext from the resu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2747	2851	
==>ion 
can be removed by XORing them together; you might not be able to derive the 
plaintext from the resu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3600	3747	
==>plice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@values
			    --> List ) is rw
{
    my $off = +$offset;
    my $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3088	3184	
==>r = Blondie::Backend::Foo->new;
    my $compiled = $r->compile($program);

=head1 DESCRIPTION

Th <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3143	3244	
==>c, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3201	3302	
==>c, $todo, $got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3164	3266	
==>tructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3164	3266	
==>tructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node:: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9482	9680	
==>ND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1293	1463	
==>ND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11159	11258	
==>turns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11217	11316	
==>turns Bool is export`
- `unlike (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16596	16696	
==>pplication the maximum amount of control as
to what the user sees; it never outputs anything by itsel <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16596	16696	
==>pplication the maximum amount of control as
to what the user sees; it never outputs anything by itsel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1913	2003	
==>presents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2002	2092	
==>presents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14692	14788	
==>ression>
    | <'~'> <UnaryExpression>
    | <'!'> <UnaryExpression>
}
rule MultiplicativeExpress <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1201	1306	
==>ethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1201	1306	
==>ethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11298	11491	
==>{
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.pus <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11298	11491	
==>{
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.pus <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21138	21231	
==>pies them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_utf8 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4366	4474	
==>gleLineCommentChar> <SingleLineCommentChars>?
}
rule SingleLineCommentChar {  # see 7.4
      <!before <LineT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8783	8889	
==>refix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6310	6412	
==>refix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/chain/list
 # rule=>$rule 
 #  (is <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1952	2099	
==>edence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'ne',
        assoc => 'left',
        preceden <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25670	25776	
==>terEscape>
    | <CharacterClassEscape>
}
rule CharacterEscape {  # see 15.10.1
      <ControlEscape>
    | <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4908	5016	
==>{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5101	5209	
==>{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        boo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3599	3709	
==>equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3599	3709	
==>equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_ne <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14988	15090	
==>ift;
    @{ $self->{params} };
}

package Compiler;
use base qw/Reducer Map DynamicScopes/;

sub compil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	598	725	
==>d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	598	725	
==>d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::K <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22786	22890	
==>e heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27338	27442	
==>e heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Relation Bod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4381	4479	
==>my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4566	4664	
==>my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7729	7914	
==>ent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Conte <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7729	7914	
==>ent;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die "Invalid Conte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	13374	13518	
==>\", Dumper(\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Emitter::Perl5:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22956	23062	
==>r tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute names and values <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27508	27614	
==>r tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute names and values <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4136	4275	
==>s'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4329	4468	
==>s'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3080	3216	
==>local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3220	3356	
==>local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1581	1728	
==>:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1581	1728	
==>:P5/\r\z//;
        } else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22260	22357	
==>a
does not declare any subroutines or export such.

The usual way that Rosetta indicates a failure <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22260	22357	
==>a
does not declare any subroutines or export such.

The usual way that Rosetta indicates a failure <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7956	8144	
==>turn $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7956	8144	
==>turn $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $?SELF!_assert_arg_str( ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12111	12235	
==>')->send('bless' => (str->new(), $e->get('?%params')));    
            }
        )
    )
);

=pod

method bless (opaque $cla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38124	38221	
==>s_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38124	38221	
==>s_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Temp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	750	866	
==>* set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	750	866	
==>* set_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	971	1086	
==>nt $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	971	1086	
==>nt $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compil <==
2	/Users/nnunley/pugs/util/grokprims.pl	1240	1347	
==>y>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} @{$op <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4653	4747	
==>e *WALKCLASS ((block &dispatcher)) returns opaque
    (&dispatcher do)

=cut

$::ENV->create('W <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1195	1301	
==>nder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1195	1301	
==>nder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	181	288	
==>rnals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::Cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	181	288	
==>rnals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::Cod <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2255	2354	
==>pugs binary and the shared libraries
it needs on it. Finally, it will call mkisofs to create a ISO96 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7188	7359	
==>$op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unle <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7652	7823	
==>$op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unle <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5036	5194	
==>ist      pre     sort    safe   (Array)\
\\n   List      pre     map     safe   (Array: Code)\
\\n   List      pre     grep    safe   (Array: Code)\
\\n   List <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	975	1123	
==>re
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	975	1123	
==>re
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	744	839	
==>ckend::C::Emitter" }

sub emitter {
	my $self = shift;
	$self->emitter_class->require || die $UN <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2033	2149	
==>dule, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2033	2149	
==>dule, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4347	4461	
==>+ @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4347	4461	
==>+ @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method zeroize() {
    @.state <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2240	2373	
==>ext::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2240	2373	
==>ext::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20215	20303	
==>dler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20215	20303	
==>dler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $event { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	560	688	
==>esh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	560	688	
==>esh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	87	177	
==>filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	87	177	
==>filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {}

method <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6263	6368	
==>urn -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6263	6368	
==>urn -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	541	655	
==>pital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	541	655	
==>pital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2080	2197	
==>urns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2080	2197	
==>urns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return $.se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	694	885	
==>_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    ($node->id > 6 ? 
                        ($node->class == $:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37428	37526	
==>ash')));
$::Class->send('add_attribute', (symbol->new('%:attributes')      => attribute->new('%:att <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5460	5634	
==>st->{stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{stmt} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6980	7080	
==>s module as is, load it, and create an instance:

  use Regexp::Parser;
  my $parser = Regexp::Parser <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14661	14755	
==>erated.

The lvalue form of C<keys> is not longer supported. Use the C<.buckets>
property inste <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15897	16054	
==>LKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shift;
                    $e- <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4394	4505	
==>nd;
}

our Int multi Num::round_toward_zero ( Num $x ) {
    my $x_round;

    # round floor above 0, round ceil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2681	2840	
==>x'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2874	3033	
==>x'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1813	1901	
==>STUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1813	1901	
==>STUVWXYZ".split('');
my @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21982	22084	
==>e of Rosetta is entirely object-oriented; you use it by
creating objects from its member classes, usual <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21982	22084	
==>e of Rosetta is entirely object-oriented; you use it by
creating objects from its member classes, usual <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14496	14597	
==>STRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14496	14597	
==>STRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1010	1117	
==>is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $las <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1010	1117	
==>is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $las <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13540	13653	
==>ensure => sub { `mount` !~ /\Q$initrd_img/ },
    pause  => 1,
    help   => <<HELP;
      Please umount \"$initrd <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20610	20701	
==>nect eof fcntl
# fileno flock getc getpeername
# /[get|set][host|net|proto|serv|sock].*/ glo <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	63	181	
==>trict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_le <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	63	181	
==>trict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0;
    $.strict_le <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6388	6547	
==>\$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->last_error), return;

    return
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7283	7430	
==>) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7283	7430	
==>) {
                my $len = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17528	17625	
==>span is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17528	17625	
==>span is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the inte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1009	1204	
==>->{p};
                        # default = undef;
    $self->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "E <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2534	2654	
==>g == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2534	2654	
==>g == 1) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14510	14611	
==>thod to build the string, the result
will use case as suggested by HTTP spec, and it will follow
recom <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14510	14611	
==>thod to build the string, the result
will use case as suggested by HTTP spec, and it will follow
recom <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	217	334	
==>r/bin/pugs
  use v6;
  &*END () {  }
  (&say("hello"));

=cut

use v6;

#package PIL2;

my $debug_traverse = 0;

# tok <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	258	356	
==>$self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	258	356	
==>$self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Pe <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9409	9530	
==>ind} }, $_;
    }
    \%opts;
}

sub run {
    print ((join " ", @_) . "\n");
    system @_ and die (sprintf "system: [%s] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13129	13223	
==>s::Check->last_error ), return;

    my $my_bindir =  $self->dir->subdir( $inst_pkg->package )- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3045	3195	
==>nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3045	3195	
==>nodes = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { mat <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1047	1229	
==>ns{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    re <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1047	1229	
==>ns{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4134	4291	
==>the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more digits
                { let $di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4146	4303	
==>the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capture one-or-more digits
                { let $di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2671	2794	
==>s $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2671	2794	
==>s $msg, flushes $hdl and logs $msg to STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2712	2819	
==>elf = shift;
    my $base = $self->{_top}{base};
    my $full_pugs = $self->pugs_binary;
    my $full_blib = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13001	13105	
==>em as though they were methods.  They return two
values, their numeric value, and a format string for use <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1374	1487	
==>plan' => $::TestBuilder->FETCH('::TestPlan')->new( '$.expect' => $tests ));
            }
            elsif ($expl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12453	12564	
==>s, Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @list <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3003	3109	
==>s, Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @list <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15924	16050	
==>on $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19401	19527	
==>on $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $oth <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6458	6570	
==>ins', -package => 'haskell-src' if grep /^-DPUGS_HAVE_HSPLUGINS$/, @_;
    my @libs = "-lHSPugs-$version";
    pu <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5013	5124	
==>_) for grep /\.(?:o(?:bj)?)$/, @_;

    foreach my $a_ext (grep /\.a$/, @_) {
        # Do some very sneaky thin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10262	10410	
==>person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10262	10410	
==>person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1417	1518	
==>del::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRING <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1417	1518	
==>del::L::en-0.400.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRING <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1663	1809	
==>[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1651	1797	
==>[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%i <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	103	218	
==>ealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PR <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	103	218	
==>ealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PR <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2501	2633	
==>ht (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distribute <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2501	2633	
==>ht (C) 2005 Brent Royal-Gordon <brent@brentdax.com>. All Rights Reserved.

This program is Free Software, and may be used, distribute <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18697	18801	
==>ources.>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS products) bec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18697	18801	
==>ources.>

Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS products) bec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35077	35177	
==>ne of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35077	35177	
==>ne of the first but for the changes.

=back

A Translator object has these methods:

=over

=item C<e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5613	5719	
==>/*    # Emitter related files



=head1 Compiler processes



### separate "processes" from actual module d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5420	5522	
==>/*    # Emitter related files

=head1 Compiler processes

### separate "processes" from actual module d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16252	16363	
==>raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16252	16363	
==>raw => -> Str $command { enqueue $command },
  };

  return $self;
}

# Definition of queue "class"
sub new_queu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6338	6454	
==>alues %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $sour <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6350	6466	
==>alues %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $sour <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2828	3005	
==>() if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2828	3005	
==>() if $del;
                
                $self!set_content($content, $keep);
                
                return $old if want.List;
              });
}

my method set_con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1394	1527	
==>ubstr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1394	1527	
==>ubstr($file, 0, 1))) {
        return $directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3575	3703	
==>term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3575	3703	
==>term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|f <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	243	346	
==>.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	243	346	
==>.parent ?? $.parent.lookup_pad($name) !! fail;
        }
    }
}

class Perl::Compiler::PIL::Util::Pos { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1530	1632	
==>}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1530	1632	
==>}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Per <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9095	9206	
==>ies which might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9095	9206	
==>ies which might arise when 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10866	10971	
==>atch", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    la <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6799	6896	
==>xp, char* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp in %lx\n",(ulon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13783	13883	
==>field )

Apply a subroutine to each header field in turn.  The callback routine
is called with two pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13783	13883	
==>field )

Apply a subroutine to each header field in turn.  The callback routine
is called with two pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9374	9503	
==>O-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9374	9503	
==>O-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1529	1676	
==>self = shift;
    my $pkg  = shift        or return;
    my $dir  = $self->dir   or return;

    return $self->control_dir( $pkg )
                - <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2096	2213	
==>e($node)),
	}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1263	1373	
==>est }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $c <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1263	1373	
==>est }

method parse_request {
    my Str $chunk = $.remote.readline;
    defined $chunk or return undef;
    $c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20090	20183	
==>s. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20090	20183	
==>s. Note that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $event <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	968	1069	
==>::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	968	1069	
==>::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1657	1750	
==>(but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attribute <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1657	1750	
==>(but see L</SECURITY> for important caveats).

Cipher::Arcfour also includes several attribute <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8264	8399	
==>ype' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8264	8399	
==>ype' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	773	886	
==>ing.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	793	899	
==>ing.isa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { s <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1380	1475	
==>$FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} a <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3196	3295	
==>t which we obviously don't have).

Whether this will all succeed or not is an open question.  But th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25191	25331	
==>g
    sub RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1236	1338	
==>he use of $RE{balanced}{-parens=>'{}'};
sub conv_foreach {
    $_ = shift;
    my $foreach_kw = 'for(?: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9532	9639	
==>e a Perl module into blocks. This code divides a module based on
# lines that use/no a Module::Compile subcl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9532	9639	
==>e a Perl module into blocks. This code divides a module based on
# lines that use/no a Module::Compile subcl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1010	1100	
==>ken("term:\\S", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\w" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4018	4117	
==>return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4018	4117	
==>return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3221	3339	
==>urn 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3221	3339	
==>urn 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7996	8103	
==>t<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7996	8103	
==>t<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2679	2772	
==>t short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=cut <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2679	2772	
==>t short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=cut <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	810	985	
==>led on @_";
    }

    sub str {
        Carp::croak "virtual method str called on @_";
    }

    my %DIGEST_CACHE;

    sub digest {
        my $self = shift;
        $DIGEST <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2732	2852	
==>in "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# Th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2732	2852	
==>in "\n",
        "# Generated by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6984	7106	
==>undary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $bou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6984	7106	
==>undary;
    
    # XXX need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $bou <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4696	4798	
==>$expected = shift @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6045	6142	
==>lass, $Object ], 
    '... $Class class_precendence_list');

is($Object->id, 4, '... $Object is th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12118	12225	
==>efore the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12118	12225	
==>efore the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the rec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9410	9501	
==>statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3235	3326	
==>statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	624	762	
==>mented {
    my ( $n, $what ) = @_;
    return "die q(not implemented $what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2792	3068	
==>n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buf <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2792	3068	
==>n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buf <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13207	13306	
==>utine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13207	13306	
==>utine is exported by default.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_en <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3863	3991	
==>akefile {
    my $self          = shift;
    my $makefile_name = shift;
    my $top_class     = ref($self->_top) || '';
    my $t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6407	6500	
==>my \$info = \$PIL::PIL1CPerl5::NodesInfo::node_named{'$name'};
  sub info { \$info } }
sub nam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15571	15669	
==>ugh
Darwen for a solid foundation for data and database management systems
(DBMSs); like Edgar F. C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15571	15669	
==>ugh
Darwen for a solid foundation for data and database management systems
(DBMSs); like Edgar F. C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26622	26737	
==>->send('add_method' => (
    # method label
        symbol->new('add_subclass'),
    # method body
        method->n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6385	6478	
==>= $method;
}

(method add_method ((opaque $self:) (symbol $label) (method $method)) returns ni <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3342	3443	
==>plete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3342	3443	
==>plete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	658	752	
==>E<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This library <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17174	17310	
==>attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17174	17310	
==>attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40275	40389	
==>messages for your sub-class.

  package Your::SubClass;
  # use constant NAME => VALUE, FMTSTRING
  use constant er <==
2	/Users/nnunley/pugs/util/package-osx.pl	2844	2957	
==>_pge.pir /System/Library/Perl6/darwin-thread-multi-2level/CORE/pugs/pge/run_pge.pir
    );
    unless (grep /pugs- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4156	4252	
==>} = Perl6::Run::OnPerl5::X1::Result->new($p6,$warn,$failed);
    $self;
}
sub as_p5 { $_[0]{'p5'} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1389	1490	
==>n to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1389	1490	
==>n to use coroutines instead of states
* New class Lazy::CoroList - takes a coroutine (or two, 
  for s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21233	21325	
==>ad2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21233	21325	
==>ad2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6577	6772	
==>e DATA section. Because we
                # want to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6577	6772	
==>e DATA section. Because we
                # want to make sure that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8197	8306	
==>ock = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8197	8306	
==>ock = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4934	5052	
==>re we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4934	5052	
==>re we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18086	18190	
==>nces to each other at a level visible in the Rosetta Native
Interface, if at all.  To account for situati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18086	18190	
==>nces to each other at a level visible in the Rosetta Native
Interface, if at all.  To account for situati <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19056	19167	
==>C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19056	19167	
==>C<$bot.last_autoping>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic f <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1718	1845	
==>"Val" }

    package Seq;
    use base 'Node';

    package Prim;
    use base qw/Map/;

    package Stub;
    use base qw/Unit/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3521	3625	
==>>get_x, 0, '... got the right x for p');
is($p->get_y, 0, '... got the right y for p');

is($p2->get_x, 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5749	5872	
==>x, $lhs, $rhs) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1703	1804	
==>orms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to Multiple, Sing <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1635	1733	
==>orms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to Multiple, Sing <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3941	4047	
==>@_;
    (blessed($value) && $value->isa('symbol'))
        || confess "You must store a symbol type in a pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3034	3168	
==>ture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '| <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3045	3179	
==>ture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::constant( '| <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10540	10735	
==>Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10540	10735	
==>Pugs
    }

    return $text;
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'C <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2310	2412	
==>6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The m <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2310	2412	
==>6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15314	15414	
==>convert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15314	15414	
==>convert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind of
valu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3906	4003	
==>appropriate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3906	4003	
==>appropriate date.

Any other string will be passed to `Date::Something::WaveHands` for
parsing.

- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16000	16116	
==>},
      array => sub { p6_Array(@{$_[0]}) },
      hash  => sub { p6_Hash(%{$_[0]}) },
      code  => sub { $as_p6ob <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13560	13659	
==>True if invocant has an element whose key matches C<$key>, false
otherwise.

An unary form is expect <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	199	292	
==>ray into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	199	292	
==>ray into a lazy array
* New method: Array.is_infinite()
* Renamed methods: Array.new() -> Arra <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2174	2284	
==>f = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2174	2284	
==>f = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10312	10454	
==>ect(bol => bol => '^^');
  });


  ### '&'


  ### '*'

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	184	285	
==>src_root = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnPerl5::X1: <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4300	4401	
==>ring[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0x <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4300	4401	
==>ring[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0x <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4238	4352	
==>!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4238	4352	
==>!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel, as <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1887	1999	
==>⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1887	1999	
==>⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24051	24154	
==>this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free sof <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24051	24154	
==>this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free sof <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1384	1520	
==>' . $Metaext;                # file with MD in it
$Site           = $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10979	11078	
==>escape_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_sequence(char(C)) --> "\\t", { <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11038	11261	
==>pe (keys %todos) {
                my $num_tests = $todos{$todo_type};
                if ($todo_type eq '__') {
                    $todo_type = '' ;
                }
                else {
                    $todo_type . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	640	756	
==>>code();
}
sub perl5 {
    my $self = shift;
    my $ast = $self->{ast}{capture};
    Dumper($ast);
    $_ = q[rule { <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8261	8427	
==>from
    .local string target
    .local pmc mfrom, mpos
    .local int pos, len
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = $P0(mob <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	186	300	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $signatur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	184	292	
==>ings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, $env, $bo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9294	9393	
==>6_mangle($pname));
	}
	my $aname = $pname;
	$aname = '?'.$aname if $op{'isOptional'};
	$aname = '*'. <==
2	/Users/nnunley/pugs/util/package-osx.pl	316	413	
==>/bin/remove-$1.pl";

my (%symlinks, %change_files, @files);

if ($bundle =~ /parrot/) {
    @files <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2250	2364	
==>t> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2250	2364	
==>t> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end> ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2418	2538	
==>, 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2418	2538	
==>, 'array', 'of', 'values');`
    
    $q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11595	11719	
==>'path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11595	11719	
==>'path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HT <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7203	7290	
==>-----------------------------------------------------------------------
## traversal

me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7203	7290	
==>-----------------------------------------------------------------------
## traversal

me <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10361	10473	
==>nce set.

The complementary functions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRU <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10361	10473	
==>nce set.

The complementary functions are emulated using iterations.

See also the section "UNIVERSAL SET CONSTRU <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7187	7302	
==>( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7175	7290	
==>( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[0];

    $program = emit_rule( $pr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	849	965	
==>text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element-> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	849	965	
==>text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc::DOM::Element-> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1407	1506	
==>$host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1407	1506	
==>$host,$port,$path) = split_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2464	2581	
==>re;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2464	2581	
==>re;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUIL <==
2	/Users/nnunley/pugs/util/fixauthors.pl	312	443	
==>ach (@a) {
  next unless /\)$/;
  next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19450	19548	
==>pdate said separate resource files, and not change
your main program.

I<Note that an update is pla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19450	19548	
==>pdate said separate resource files, and not change
your main program.

I<Note that an update is pla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10766	10882	
==>nnot be used " . _where()
	    if defined $args{progs};
        $args{progs} = [$args{prog}]
    }
    if (defined $a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5673	5816	
==>t, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6137	6280	
==>t, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3813	3914	
==>the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3813	3914	
==>the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the o <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7873	8006	
==>hod traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.traverse(sub { yield $^node }, $travers <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7873	8006	
==>hod traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.traverse(sub { yield $^node }, $travers <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2130	2236	
==>= $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2130	2236	
==>= $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2770	2873	
==>a::Interface::Value {

    # External packages used by the Rosetta::Interface::Value class, that do expo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2770	2873	
==>a::Interface::Value {

    # External packages used by the Rosetta::Interface::Value class, that do expo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10857	11016	
==>iate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11136	11295	
==>iate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20777	20893	
==>bstr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17198	17314	
==>bstr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	70	183	
==>s;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A "rule" function gets as ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	66	174	
==>s;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A "rule" function gets as ar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3057	3180	
==>w() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3057	3180	
==>w() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11103	11215	
==>sions. C<@by> differs from C<$by> in that each criteria is
applied, in order, until a non-zero (tie) result is ac <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	458	595	
==>s = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.sp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	458	595	
==>s = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5428	5650	
==>?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5428	5650	
==>?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_type'   => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25641	25740	
==>ght holders of
Rosetta can sell you an alternate, limited license that allows you to link
Rosetta wi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25641	25740	
==>ght holders of
Rosetta can sell you an alternate, limited license that allows you to link
Rosetta wi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18071	18343	
==>pth    or
                                   $a->address cmp $b->address
                                  } @stuff;

                    $h = $stuff[0];
                    
#                   $h->dump(\*STDERR);

                    my $i=-1;
                    foreach <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3895	3988	
==>ompiled without PMC support.

  Can't locate object method "compile" via package "Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	184	286	
==>'YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	184	286	
==>'YAML',        sub {YAML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8854	9032	
==>{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9047	9225	
==>{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22089	22207	
==>t> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22089	22207	
==>t> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	670	781	
==>Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	670	781	
==>Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %! <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2451	2561	
==>rl 5 C<do EXPR>, with optional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lang = 'Per <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5422	5521	
==>er(+:$i) -> $caller {
        #   $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9707	9814	
==>s (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9707	9814	
==>s (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14682	14798	
==>$live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14682	14798	
==>$live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; disconnecting.";
          $s <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	788	920	
==>f (/^#include\s+['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	34	139	
==>ethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	34	139	
==>ethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest>;
    ./deb <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	4	105	
==>age Perl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPOR <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	4	105	
==>age Perl6::MakeMaker;
use strict;
use warnings;
our $VERSION = '0.01';
use base 'Exporter';
our @EXPOR <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1133	1278	
==>{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_c <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1133	1278	
==>{' ) {
            $regex ~= $escaping ?? '\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_c <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	226	348	
==>AME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = Fi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	226	348	
==>AME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = Fi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3402	3521	
==>, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy l <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3402	3521	
==>, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some heavy l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1267	1362	
==>C::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time pe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1267	1362	
==>C::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	350	504	
==>w;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	350	504	
==>w;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from U <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2311	2407	
==>pted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keystr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2311	2407	
==>pted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_keystr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13162	13261	
==>∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13162	13261	
==>∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2935	3185	
==>>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3182	3432	
==>>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2713	2856	
==>rn $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2713	2856	
==>rn $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17506	17599	
==>a::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS obj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17506	17599	
==>a::Model>, define the balance of the Rosetta Native Interface.  A
Rosetta::Interface::DBMS obj <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	48	158	
==>t, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle c <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	48	158	
==>t, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa("Code");
    # TODO: handle c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18635	18734	
==>ct - attempting to make it look sufficiently
like what the core expects to avoid problems.  While si <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2925	3024	
==>ct - attempting to make it look sufficiently
like what the core expects to avoid problems.  While si <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	457	569	
==>less @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		ret <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	457	569	
==>less @msg[-1] ~~ /\n$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	570	795	
==>t = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	570	795	
==>t = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1414	1525	
==>x) && $index->isa('num'))
        || confess "Index must be a num type";
    # replace the value with a nil type <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28992	29097	
==>number created by OR'ing
together the flags that are enabled at the time.

=item $obj->insert()

Inserts t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	268	383	
==>AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- optimizes an AS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	250	362	
==>AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- optimizes an AS <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6007	6103	
==>ug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6007	6103	
==>ug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)}<users>{ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8697	8847	
==>times"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8697	8847	
==>times"   => chr(8855),
    "perp"     => chr(8869),
    "sdot"     => chr(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8226	8349	
==>op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7950	8068	
==>op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	558	664	
==>s;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	558	664	
==>s;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $header;
    $!conte <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	721	847	
==>e types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1311	1437	
==>e types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# me <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	504	618	
==>e
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	504	618	
==>e
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Constructo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4014	4184	
==>/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4014	4184	
==>/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1361	1535	
==>ative);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not too. However, if 
                # we find <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	782	887	
==>ts "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	not <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	782	887	
==>ts "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	not <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4065	4249	
==>1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4065	4249	
==>1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1339	1465	
==>,
        (
            map {{
				arity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36240	36337	
==>nlessm (C<(?!>, C<< (?<! >>)

Data: array reference of any number of objects

Dir: -1 if look-behi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4869	4975	
==>($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5213	5319	
==>($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14524	14634	
==>1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14524	14634	
==>1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6671	6770	
==><end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6671	6770	
==><end_document>

This event is fired when a '=cut' directive is reached.

=back

=head2 Element Event <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8033	8146	
==>uce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq = $seq->fmap(sub { $self->reduce($_[0]) });
		
		re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7662	7776	
==>ems";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7662	7776	
==>ems";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3417	3535	
==>er('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\f", '\F') if $cc;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	80	185	
==>$.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submetho <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	80	185	
==>$.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submetho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3948	4087	
==>1] }

    | '@' '(' exp ')' 
        { $_[0]->{out}= { op1 => 'array_context', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14220	14336	
==>.c ./regexec.c
    ./ext/re/re.xs ./ext/re/re.pm
    http://cvs.perl.org/viewcvs/perl5/mirror/

  And of course man p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4294	4405	
==>urn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4294	4405	
==>urn $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	821	968	
==>elsif ($tok eq '/') {
            push @stack, int($y / $x);
        } else {
            die "Invalid token:\"$tok\"\n";
        }
    }
    @stack <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	957	1068	
==>lue, not just undef
    return nil->new() unless defined $val;
    return $val;
}

sub store {
    my ($self, $i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6765	6868	
==>e) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6765	6868	
==>e) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        for %!channels{$c <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1377	1497	
==>h(sitelib            => $config); 

    add_path(installarchlib     => $config); 
    add_path(installprivlib     => $con <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	786	891	
==>GIN {
    # All Module::Install core packages now require synchronised versions.
    # This will be used t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	358	470	
==>de;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	358	470	
==>de;

# things that are only valid in the start of a file
# - shebang, 
# - version info 
# - module, class, gramm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33683	33781	
==>Template module Member Name and usually corresponds to a
language like English or French.  The orde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33683	33781	
==>Template module Member Name and usually corresponds to a
language like English or French.  The orde <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3509	3674	
==>0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<conca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3756	3921	
==>0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<conca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25578	25708	
==>$e->get('$self:')->get_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=pod

method subclass <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12282	12377	
==>he array is sorted in place.

See L<http://www.nntp.perl.org/group/perl.perl6.language/16578> fo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4482	4573	
==>e->prototype->class, \&Object, '... go the right super-superclass name for Point3D');

is($p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1131	1238	
==>width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1131	1238	
==>width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1571	1674	
==>> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1571	1674	
==>> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4616	4736	
==>Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4616	4736	
==>Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5509	5603	
==>o', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9107	9201	
==>o', '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1974	2074	
==>urn $size;
}

## ----------------------------------------------------------------------------
## addi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1974	2074	
==>urn $size;
}

## ----------------------------------------------------------------------------
## addi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15083	15192	
==>on, the program (or a package it uses)
will need to display a message to the user, or generate a message to be <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15083	15192	
==>on, the program (or a package it uses)
will need to display a message to the user, or generate a message to be <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	237	335	
==>------------
## This is an extension of the Mini-MetaModel which adds explicit Eigenclasses
## to a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33961	34059	
==>e,
in order, if preferred ones aren't supported by a program or its libraries.
When translating a m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33961	34059	
==>e,
in order, if preferred ones aren't supported by a program or its libraries.
When translating a m <==
2	/Users/nnunley/pugs/util/testgraph.pl	861	976	
==>print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > output_file.html

Generates an HTML <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10261	10382	
==>ult      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled encoding reg <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10261	10382	
==>ult      = encode_entities($temp);
    %char_to_entity = %temp;
    return $result;
}

my %subst;  # compiled encoding reg <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	78	191	
==>open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	78	191	
==>open;
has bool   $.end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9847	9943	
==>ti sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9847	9943	
==>ti sub param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2549	2677	
==>$?SELF.attr_name_exists( $attr_name )) {
            return Bool::false;
        }
    }
    return Bool::true;
}

method any_nam <==
2	/Users/nnunley/pugs/util/package-osx.pl	2305	2399	
==>/usr/local/lib/perl5/site_perl/Prelude/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm
        /Users/d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1553	1653	
==>lass Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1553	1653	
==>lass Perl::Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9239	9387	
==>X - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shif <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9239	9387	
==>X - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shif <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	861	987	
==>y($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub in <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	861	987	
==>y($x)  is export { $x }
sub const($x)     is export { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5698	5850	
==>r( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5698	5850	
==>r( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $const );
    no wa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2908	3013	
==>ngs;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	172	277	
==>ngs;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::equivalence';

sub new {
    my ($c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10903	11012	
==>e::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operato <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11095	11204	
==>e::variable::free->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operato <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	931	1062	
==>STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	931	1062	
==>STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $ol <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11017	11117	
==>sed or
displayed by your program.  It is analagous to a simplified version of the
"Document" interfac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11017	11117	
==>sed or
displayed by your program.  It is analagous to a simplified version of the
"Document" interfac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14189	14294	
==>get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14189	14294	
==>get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19987	20087	
==>ating system itself, to have the user language data in separate
files (usually XML files I think) fro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19987	20087	
==>ating system itself, to have the user language data in separate
files (usually XML files I think) fro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12147	12257	
==>x:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12147	12257	
==>x:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($li <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8628	8737	
==>f whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth field <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8628	8737	
==>f whack.
# This is where this method comes into play
# it will recurse down the tree and fix the
# depth field <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	778	880	
==>itionally excludes some builtin operators to demonstrate dynamicity.

=head1 SYNOPSIS

    use Blondie: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	2	95	
==>lass Perl::VJunc;

# from src/Pugs/AST/Internals.hs, line starting `data VJunc'

has Perl::Jun <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	454	546	
==>C<source> property, and adds nothing else.

More specialised processing instructions may sub- <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	454	546	
==>C<source> property, and adds nothing else.

More specialised processing instructions may sub- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1466	1558	
==>ator::nullary: layout($$) = { $.name }

type::operator::nary: layout($$) = { join(" ", $.name <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13593	13702	
==>ected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable range of values. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13593	13702	
==>ected.

It may enter an infinite loop if the formula cannot be satisfied within a 
reasonable range of values. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37939	38044	
==>_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template text
string if the modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37939	38044	
==>_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template text
string if the modul <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7361	7468	
==>f $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7361	7468	
==>f $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($end), :density($ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8659	8776	
==>if $I0 < pos goto err_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5116	5214	
==>::arrow;
use base qw/type::operator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package typ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	30	148	
==>d

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new ru <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	30	148	
==>d

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew whenever you enter a new ru <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5078	5237	
==>pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5078	5237	
==>pop that modifier off  
                my $last_mod = pop(@modifier_stack);
                %events<end_modifier>($last_mod);
            }
            default <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	236	338	
==>g, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	236	338	
==>g, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a>, then <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4318	4447	
==>roxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4318	4447	
==>roxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	399	501	
==>}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	399	501	
==>}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

Th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2219	2326	
==>currence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2219	2326	
==>currence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2354	2451	
==>st::Harness::Verbose>

The package variable C<$Test::Harness::Verbose> is exportable and can be
us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	326	440	
==>+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	326	440	
==>+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	214	312	
==>udreyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls wil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	205	302	
==>udreyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls wil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2894	3004	
==>$translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2894	3004	
==>$translator.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't f <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8034	8176	
==>"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8034	8176	
==>"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7319	7410	
==>- higher order operators: alternation, concatenation.

- "plain" match operators: like 'lite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7069	7159	
==>- higher order operators: alternation, concatenation.
- "plain" match operators: like 'lite <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7595	7694	
==>em I<end_element ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7595	7694	
==>em I<end_element ('for')>

This event is fired when a '=end' directive (which is preceeded by an '=f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20400	20507	
==>se Example
for testing, development, and study; you should not use it in production.

For production use, th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20400	20507	
==>se Example
for testing, development, and study; you should not use it in production.

For production use, th <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	36	128	
==>luator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles op <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	54	146	
==>luator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles op <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6872	6970	
==>($cls);
    return $meta->new(@_) if defined $meta;
    Carp::confess("p6_new: unknown class $cls\n <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1002	1260	
==>},
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=hea <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1002	1260	
==>},
                        normal => {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=hea <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6673	6777	
==>LHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6673	6777	
==>LHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2781	2921	
==>nal $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2781	2921	
==>nal $set ) returns bool {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9252	9361	
==>perset, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9252	9361	
==>perset, etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	445	575	
==>= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search { <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	445	575	
==>= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search { <==
2	/Users/nnunley/pugs/util/config_h.pl	1417	1517	
==>ndef PUGS_HAVE_TH\n";
    warn << '.';

*** Template Haskell compiler backends disabled.  If you want <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3018	3115	
==>ib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\site\lib';
    $Config{sitelib} = 'C:\usr\site <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	291	404	
==>hould emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * comp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	291	404	
==>hould emit error messages if there are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8901	9034	
==>ate}, $flags ); 



        my $match = $state->{op}->( $tail, undef, $flags );

        return unless $match->{bool};

        $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8590	8719	
==>ate}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $flags );
        return unless $match->{bool};
        $match <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1023	1123	
==>left->to_native . $right->to_str->to_native);
}

1;

__END__

=pod

=head1 NAME

str - the core str t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4536	4677	
==>ODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            requ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	894	1015	
==>t => $n, $c);
    }

    $S->error(RPe_ESLASH);
  });

  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1145	1258	
==>catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volum <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1145	1258	
==>catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volum <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2307	2409	
==>er) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2307	2409	
==>er) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($self.members));
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23120	23282	
==>OS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19541	19703	
==>OS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2937	3050	
==>$hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hd <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2937	3050	
==>$hdl.irs = /$CRLF$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hd <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2664	2822	
==>start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2664	2822	
==>start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6954	7096	
==>rimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6722	6858	
==>rimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9635	9755	
==>contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may als <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9635	9755	
==>contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may als <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3434	3637	
==>$_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__EN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3434	3637	
==>$_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_submatch( $_[0], $m );                
    }
    return \@r;
}

1;

__EN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3049	3157	
==>de accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3049	3157	
==>de accurate username, hostname, and
    # ircname information.)
    ./add_handler("352", -> $event {
      my <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	867	975	
==>d($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	800	899	
==>d($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21073	21167	
==>SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21073	21167	
==>SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenB <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1801	1911	
==>l => $positional,
	   invocant => $invocant,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	750	855	
==>tr $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi met <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	750	855	
==>tr $trigger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9118	9278	
==>= @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependenci <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10595	10755	
==>= @{ shift || [] };
        @list       = LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependenci <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4369	4490	
==>t;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method diff <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4369	4490	
==>t;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method diff <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11623	11749	
==>_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11623	11749	
==>_spec;
                @h.push('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7637	7754	
==>IC, target, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	884	982	
==>ldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	884	982	
==>ldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4757	4870	
==>ually the entire match string).

=head2 0+

When used as a number, the match object returns the numified version
o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4757	4870	
==>ually the entire match string).

=head2 0+

When used as a number, the match object returns the numified version
o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9922	10093	
==>by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11399	11570	
==>by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } re <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1765	1872	
==>Setup$Config{_exe}", 'install', '--user');
        chdir $pwd;
    }
    print "*** Finished building depend <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7917	8021	
==>ormalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7917	8021	
==>ormalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4335	4461	
==>go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4335	4461	
==>go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	626	779	
==>dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	626	779	
==>dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rul <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1420	1522	
==>experimental module which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATO <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1420	1522	
==>experimental module which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATO <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3522	3650	
==>1st line\n" ],
      [ 'file2',  $file2,  "2nd line\n1st line\n" ],
      [ 'file3',  $file3,  "3rd line\n2nd line\n1st line\n" ] <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1187	1290	
==>hers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequency to crack t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1187	1290	
==>hers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequency to crack t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2894	3053	
==>" if $debug;
          push(@$ops,$op);
          local $Z::oop{$id}{'op_ahead'} = undef;
          return &$step;
        } else {
            print STDERR "op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12947	13063	
==>ub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub data {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9648	9744	
==>f the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9648	9744	
==>f the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library.

The following met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	801	949	
==>self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  }

  sub omit {
    my $self = shift;
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1775	1870	
==>nstant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "ab <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1775	1870	
==>nstant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is constant = map &ord, "ab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2733	2913	
==>ebug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $arr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2733	2913	
==>ebug::debug("  path $path:$req_path does not fit");
                        next;
                    }
                    
                    for $cookies{$path}.kv -> $key, $arr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	841	950	
==>gs"; # XXX delme
        Pugs::Internals::exec($prog, Bool::False, @args);
    }
    multi sub exec(@args) ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16670	16825	
==>1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form tak <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20147	20302	
==>1.pairs, $t2.pairs );
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form tak <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	783	907	
==>ave a Perl 6 snippet here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	742	861	
==>ave a Perl 6 snippet here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3085	3217	
==>e_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3278	3410	
==>e_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $boo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	927	1181	
==>s Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contain <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	927	1181	
==>s Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Engine::Example -
Self-contain <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13518	13619	
==>e left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we also unte <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13518	13619	
==>e left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we also unte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6554	6678	
==>ntent_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6554	6678	
==>ntent_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, $boundary_index <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8161	8276	
==>is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working because t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8161	8276	
==>is_loaded',
        '$module_name!', $module_name );
    # Note: It is yet unknown whether this is working because t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8201	8287	
==>~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8201	8287	
==>~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6952	7093	
==>f $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6952	7093	
==>f $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4442	4564	
==>tch->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4442	4564	
==>tch->() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match- <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	306	423	
==>s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAM <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	306	423	
==>s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAM <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2053	2154	
==>ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it has sev <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2053	2154	
==>ten years or so.

=head1 SECURITY

Although Arcfour is perfectly secure when used properly, it has sev <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18517	18656	
==>k $curr/$max");

        if( $detail->{type} eq 'skip' ) {
            $totals->{skip_reason} = $detail->{reason}
              unless defin <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1141	1301	
==>);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1141	1301	
==>);
    }

    loop {
        # if we have no more @path we have found it
        unless @path {
            # store the current tree as
            # our last re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10451	10556	
==>quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The header() me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10451	10556	
==>quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The header() me <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35653	35747	
==>ioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic binar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40203	40297	
==>ioned.

=item C<join (Relation $other!) returns Relation>

This multi-method is a generic binar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18553	18661	
==>tandard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18553	18661	
==>tandard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8370	8542	
==>],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8370	8542	
==>],
            [ 'routine_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4524	4639	
==>{
    if (${&Rx} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self->error(RPe_NOTERM <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5038	5145	
==>r %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5038	5145	
==>r %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache353{$ch <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1900	1995	
==>nfixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>) <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1900	1995	
==>nfixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1130	1290	
==>R "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s.\n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http:// <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2262	2359	
==>Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2262	2359	
==>Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You can <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2735	2859	
==>ree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PI <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	541	678	
==>uild_prefix . basename( $srcdir );
    {   ### copy all the stuff over to another dir
        
        ### toss out old stuff
        syst <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2993	3113	
==>$cat);
    print "grammar: \n", $cat->emit_perl6_grammar({
        item => '<item>',
    } );
}



__END__

use Test::Mor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3375	3473	
==>y method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3375	3473	
==>y method sorted_field_names () {
  return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21753	21902	
==>t('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44660	44809	
==>t('&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = sh <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3938	4042	
==>hen 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3938	4042	
==>hen 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	867	985	
==>urn $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	867	985	
==>urn $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string is copy, Rule $unsafe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40883	40976	
==>n(RPe_ERRMSG, ARGS...)

Unconditionally throws a warning.  Primarily useful when you need to
t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23060	23199	
==>Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list_len - 2) . <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2832	2930	
==>t(/,/,join(',',@t_dirs||()));


# Find design doc directory, check
unless($no_designdocs) {
    for <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	258	367	
==>ns Num { ... }

# mmm, curry!
&log10<> := &log<>.assuming:base(10);

multi sub rand (; Num ?$x = 1, Num :$seed <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6552	6655	
==>sult1 == NaN;
    return $Result1 if $Result1 == (+0|-0|Inf|-Inf);
    my $Result4 = sign($Result1) * fl <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2352	2453	
==>incorrect.
    $path =~ s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $path;
}

sub write_config_module <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15218	15375	
==>return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15212	15369	
==>return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cm <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2638	2763	
==>0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      tak <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2638	2763	
==>0,@octect[0],2,0x3F)); # 0.index
      take encode(index(@octect[0],4,         0,0,0x3F)); # 1.index
      take "=";
      tak <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3410	3515	
==>return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cm <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3410	3515	
==>return %!headers.keys.sort:{
    (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
    $^a cm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35239	35344	
==>t

Types: exact (C<abc>), exactf (C<abc> with C</i> on)

Data: array reference of actual characters

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6228	6329	
==>ent> <?p6ws>? <block>
        { return { sub_defin => $() ,} }
RULE
*{'term2'} = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6168	6270	
==>etta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6168	6270	
==>etta::Model::Node $sdtd_person_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7907	8025	
==>nd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7895	8013	
==>nd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1229	1381	
==>-

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1229	1381	
==>-

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24217	24317	
==>e Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a si <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28769	28869	
==>e Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a si <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2280	2385	
==>recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2280	2385	
==>recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a. <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1881	2044	
==>{
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $res;
 }


 multi sub Perl6::Hash::reverse ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	501	627	
==>:Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUES <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	501	627	
==>:Query.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUES <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2515	2623	
==>estdir):$!";
        }
    }
}
copy("$plxname.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$testdir/$ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6581	6682	
==>are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6581	6682	
==>are printed on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23082	23215	
==>lf = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12390	12492	
==>_chars(R), [Close].
p6_hex_chars(R) --> hexdigits_int(C), p6_hex_chars_more(char(C),R).
p6_hex_chars_mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	801	917	
==>et here:



    my $x = 'World';

    say "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	760	871	
==>et here:

    my $x = 'World';
    say "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6844	6972	
==>o"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6844	6972	
==>o"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9677	9776	
==>will need to override these
method _head() returns Array { return }
method _tail() returns Array { r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9677	9776	
==>will need to override these
method _head() returns Array { return }
method _tail() returns Array { r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5025	5176	
==>try ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitabl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5489	5640	
==>try ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitabl <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9702	9849	
==>cutable we've found (which could be
        # undef, if we didn't find anything).

        $ghc_pkg = $ghc_exe;

    }

    die "*** Cannot find ghc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	868	971	
==>amelessly swiped from:
# - http://mail.python.org/pipermail/python-list/2005-March/270531.html
# and con <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	24	122	
==>rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	24	122	
==>rough beginning of a set of PIL tree classes.

xFoo leading-"x" field names are used in nameless (a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12450	12564	
==>} },
      lvalue => sub { p6_as_num(${$_[0]}) },
      perl5_object => sub { 0+ $_[0] },
      perl6_object => sub <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22490	22586	
==>self["iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	665	795	
==>$v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	753	883	
==>$v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16061	16165	
==>$object )`

These methods return a logical value. 

The argument can be a Span object, a Recurrence objec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16061	16165	
==>$object )`

These methods return a logical value. 

The argument can be a Span object, a Recurrence objec <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17417	17535	
==>path;
    @classes = reverse map{$_=$ROOT.$_} @classes;
    shift(@classes); # dont want current class;
    push(@class <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9972	10083	
==>to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9972	10083	
==>to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5797	5917	
==>less $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match };

        $new_match->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5613	5730	
==>less $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match };
        $new_match->{capt <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17958	18056	
==>YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up your modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17958	18056	
==>YET ***

Module::Compile attempts to make source filtering a sane process, by
parsing up your modul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5078	5192	
==>t_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5300	5414	
==>t_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, when it returns an AST
#     instead of s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15366	15527	
==>r(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15645	15806	
==>r(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           ,
             ruleop::optional(
                 \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15106	15208	
==>ackage it uses)
will need to display a message to the user, or generate a message to be
shown to the us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15106	15208	
==>ackage it uses)
will need to display a message to the user, or generate a message to be
shown to the us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	498	607	
==>= @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1222	1330	
==>= @_;
    no strict qw( refs );
    #print "creating ${class}::parse()\n";
    *{"${class}::parse"} = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3258	3362	
==>rgs);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3258	3362	
==>rgs);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infi <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	890	1001	
==>quire Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	857	968	
==>quire Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3602	3712	
==>al( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3602	3712	
==>al( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure_next, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1638	1754	
==>e $self->{$key->to_str->to_native};
    nil->new();
}

sub keys { 
    my %native = (shift)->to_native;
    list->new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5475	5578	
==>split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5475	5578	
==>split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1378	1727	
==>pp(
                            Sym('&infix:<+>'),
                            Val(1),
                            App(
                                Sym('&infix:</>'),
                                App(
                                    Sym('&infix:<->'),
                                    Sym('$x'),
                                    Sym( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4585	4738	
==>mpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, stor <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5238	5390	
==>mpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => 1, stor <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16510	16617	
==>r {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    return () if @_ < 1;
    my($x)=@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22381	22481	
==>s.

=item stack

Initially an array reference, used to store the tree as a new scope is
entered and t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2160	2288	
==>m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2160	2288	
==>m:P5/^(?:GET|POST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5956	6054	
==>/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This pr <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5956	6054	
==>/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16027	16128	
==>o some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl has na <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16027	16128	
==>o some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Perl has na <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	777	902	
==>ool is builtin is primitive is unsafe {
        # say "e:prog args"; # XXX delme
        Pugs::Internals::exec($prog, Bool::Fa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4308	4411	
==>andler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1434	1537	
==>andler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	884	999	
==>thing which is 
    # not there, then you need to get back
    # a nil value, not just undef
    return nil->new() u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35939	36034	
==>tains all of the tuples that are in either or both of the
invocant Relation::Example and C<$othe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	265	375	
==>ts = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@tests) {
	chop <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35022	35136	
==>t;
                       ($e->get('$return') == $bit::FALSE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5787	5887	
==>Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5787	5887	
==>Unix - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	207	322	
==>O
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Cod <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	207	322	
==>O
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Cod <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3151	3247	
==>ed re op tree the native
compiler creates, but which we obviously don't have).

Whether this will <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2288	2454	
==>should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2288	2454	
==>should not really happen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14808	14926	
==>d($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14808	14926	
==>d($text);
    return qq{``` $digest\n};
}

sub pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5959	6073	
==>rt {  # see 7.6
      <UnicodeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule Identifie <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3706	3808	
==>nsert_child is really the same as
# insert_children, you are just inserting
# and array of one tree
our <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3706	3808	
==>nsert_child is really the same as
# insert_children, you are just inserting
# and array of one tree
our <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18444	18574	
==>to a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18444	18574	
==>to a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	52	177	
==>TRING|--file FILENAME] REGEXP [--bench [DURATION-SEC]] \n";
}
my $str = shift;
if($str eq '--file') {
  my $file = shift;
  $s <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	621	763	
==>1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never confor <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	621	763	
==>1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never confor <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	370	475	
==>ff.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	370	475	
==>ff.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1491	1589	
==>ode;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1491	1589	
==>ode;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
use Da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12402	12579	
==>urn 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12396	12573	
==>urn 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, u <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8484	8611	
==>init:
    $S0 = substr target, pos, 1
    if $S0 != "{" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6092	6275	
==>al { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $foun <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6556	6739	
==>al { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $foun <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	71	224	
==>ues) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	71	224	
==>ues) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($va <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1259	1370	
==>e Getopt::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3068	3412	
==>lem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3068	3412	
==>lem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class Rosetta::Model::Node {

    # External <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1092	1191	
==>to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1092	1191	
==>to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6111	6232	
==>return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6111	6232	
==>return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16394	16488	
==>ression>
    | <EqualityExpression> <'==='> <RelationalExpression>
    | <EqualityExpression> < <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3899	4010	
==>: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3899	4010	
==>: ) {
    my $span1 = $set1.span;
    my @spans = $span1.complement;
    @spans = @spans.map:{ $set1.new( recurr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7983	8083	
==>port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7983	8083	
==>port of the Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4599	4730	
==>>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4599	4730	
==>>', 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #prin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1410	1562	
==>stPlan')->new( '$.expect' => $tests ));
            }
            elsif ($explanation eq 'no_plan') {
                _('$.testplan' => $::TestBuilder->F <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8034	8182	
==>h' { # 12-16
            my $Result12 = ToUint32($V);
            raise RangeError if $Result12 != ToNumber($V);
            my $length = +($A.proper <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9962	10085	
==>.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9962	10085	
==>.new(
       Date         => 'Thu, 03 Feb 1994 00:00:00 GMT',
       Content_Type => 'text/html; version=3.2',
       Conten <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	609	721	
==>x) + 0.4)) !!
		-(int(abs($x) + 0.5))
}

# No symmetry flag
our Int multi Num::round_half_even (Num $x) {
	return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37490	37597	
==>>.

=item C<intersection (Relation::Example *@others) returns Relation::Example>

This multi-method is the N <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6038	6131	
==>ty is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this document <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6038	6131	
==>ty is fairly solid right now. The F<t/complex.t> test 
actually roundtrip parses this document <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3320	3425	
==>s> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3320	3425	
==>s> to the parameter named C<$name>.

=item C<$q.delete($name)>

Deletes the parameter named C<$name>.

=it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30527	30629	
==>each distinct "user
language" (or "user type") for each distinct Message; each file can be
shared by mu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30527	30629	
==>each distinct "user
language" (or "user type") for each distinct Message; each file can be
shared by mu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6990	7313	
==>> coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => cor <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6990	7313	
==>> coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $x;
                        }                       
                        return;
                },
                cend => cor <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2052	2188	
==>) ) {
        $str .= join " OR ", map { pp_deps( $_ ) } @$deps;
        
    } elsif ( UNIVERSAL::isa( $deps, 'REF' ) ) {
        $str . <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3973	4071	
==>:has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::v <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3973	4071	
==>:has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::elems ::= &Set::size;
#our &Set::v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6552	6680	
==>_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6745	6873	
==>_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5403	5498	
==>one as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5403	5498	
==>one as part of C<finish>, C<finishstr> and the 
destructor, but there may be situations in which <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1808	1931	
==>) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :ho <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	665	771	
==>he same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as man <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	665	771	
==>he same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as man <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6547	6696	
==>.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_chang <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5051	5200	
==>.
            @array.delete($i);
            @array[$i] = @array[$i-$size_change];
            $i++;
        }
        # +@array = $size + $size_chang <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14836	14934	
==>\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
exp <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14836	14934	
==>\xF4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
exp <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1086	1186	
==>e same as what
you get when you use the C<type> keyword.  Or maybe the full package
name (C<Type--Per <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1348	1438	
==>This file contains both the TestBuilder::TestPlan object and 
a subclass, TestBuilder::Null <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	94	206	
==>);
}

use File::Basename;
use YAML            qw[LoadFile DumpFile];


@ARGV or die 'Need at least one source dir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2024	2143	
==>ous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak refe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2024	2143	
==>ous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe ($self: ) {
    # TODO - weak refe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	258	377	
==>$.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	258	377	
==>$.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3511	3617	
==>rallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an arra <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3511	3617	
==>rallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an arra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20719	20828	
==>ds to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20719	20828	
==>ds to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan> <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	72	181	
==>elp fill in this file
# a method of autogenrating bindings from vtable.h is NEEDED
# please commit - pmurias
p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19876	19984	
==>$synhtml: $!";
        $outfile->print($sobj->as_HTML(undef, ' ', {}));
    }
}

# calculate output path of a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3936	4056	
==>hat might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    loc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3936	4056	
==>hat might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    loc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4350	4485	
==>grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4543	4678	
==>grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5490	5627	
==>my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5712	5849	
==>my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4667	4800	
==>() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4667	4800	
==>() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 in <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	563	680	
==>f
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	563	680	
==>f
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4482	4591	
==>Reference $V, $W) {
    my $Result2 = GetBase($V);
    if !($Result2 ~~ JSX::null) {
        $Result2.<[[Put]] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8237	8341	
==>[^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8237	8341	
==>[^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8072	8207	
==>in if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8072	8207	
==>in if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1512	1644	
==>$self->_extend_to_slot($idx);
                $self->get_value('@:slots')->[$idx] = $container;
            },

            'array_fe <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4221	4313	
==>ti Math::Unspecced::e ( --> Num ) {
    2.718281828459045235360287471352662497757247093699959 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1576	1801	
==>%events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=beg <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1576	1801	
==>%events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=beg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	365	622	
==>:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	365	622	
==>:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::En <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	685	811	
==>}
sub store { 
    my ($self, $value) = @_;
    (blessed($value) && $value->isa('type'))
        || confess "You must provide a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3784	3885	
==>ct.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3784	3885	
==>ct.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method comp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9888	10017	
==>_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9888	10017	
==>_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23538	23631	
==>$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23538	23631	
==>$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14003	14106	
==>called once for each value.  The field name passed to the
callback routine has case as suggested by HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14003	14106	
==>called once for each value.  The field name passed to the
callback routine has case as suggested by HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2690	2790	
==>~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
}
m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2690	2790	
==>~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members);
}
m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9009	9127	
==>sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10486	10604	
==>sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4895	4990	
==>ng_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5088	5183	
==>ng_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	883	1022	
==>[0] =~ /^(\s+)(.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	848	980	
==>[0] =~ /^(\s+)(.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19896	20126	
==>$e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40356	40586	
==>$e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_')->to_native), 
                              $e->get('%param <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21328	21448	
==>["reps"] = $P0
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["reps"] = reps
    pad["subpats"] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	53	158	
==>nstants;
use File::Spec;
use Log::Message::Simple        qw[:STD];

use vars qw[@EXPORT];
use base 'Export <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1998	2097	
==>");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1998	2097	
==>");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val, "INIT");
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3549	3650	
==>ory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3549	3650	
==>ory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24803	24924	
==>s
 * for a match, cutting down the work a lot.  Regmust permits fast rejection
 * of lines that cannot possibly match.  Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3652	3747	
==>>force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    return $S->object(horiz = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6383	6504	
==>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { return { sub_application <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12919	13036	
==>links,
        ok     => $tres->{ok} - $tres->{todo} - $tres->{skip},
        todo   => $tres->{todo},
	skipped   => $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1230	1338	
==>ive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1197	1305	
==>ive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd($path <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6636	6752	
==>1,@_) }; # 1 for un-

sub like_yn ($$$@) {
    my ($flip, $got, $expected, $name, @mess) = @_;
    my $pass;
    $pas <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8571	8704	
==>eys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The mo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8571	8704	
==>eys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24720	24821	
==>Text indicates a failure is to throw an
exception; most often this is due to invalid input.  If an inv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24720	24821	
==>Text indicates a failure is to throw an
exception; most often this is due to invalid input.  If an inv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7417	7514	
==>t define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7417	7514	
==>t define key, skip to next module.
        $text = .get_template_text_from_loaded_module( $module_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1244	1385	
==>gex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1244	1385	
==>gex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What is the difference between <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1235	1341	
==>f $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2400	2506	
==>f $cc;
    return $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7069	7170	
==>sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7069	7170	
==>sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as I think in ge <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5348	5453	
==>TH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5348	5453	
==>TH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3558	3677	
==>eturn @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3558	3677	
==>eturn @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $sp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23322	23454	
==>e => comb(
				fun => comb(
					fun => ide("cons"),
					param => comb(
						fun => ide("f"),
						param => comb(
							fun => id <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2735	2827	
==>w\S+ }

rule commit_something { <commit_rule> | <commit_alternation> | <commit_atom> }
rule c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2608	2708	
==>ions

sub head { @{$_[0]}[0] }
sub tail { list->new(@{$_[0]}[1 .. $#{$_[0]}]) }

sub shift   : method <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	170	265	
==>eady defines some p6 implementations).
# To contribute, just scroll down until pod lines start a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7190	7279	
==>dea

## ----------------------------------------------------------------------------
## tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7190	7279	
==>dea

## ----------------------------------------------------------------------------
## tr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18179	18290	
==>"p6analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token == ":" goto cutatom <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1102	1211	
==>$index) && $index->isa('num'))
        || confess "Index must be a num type";
    (blessed($value) && $value-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15965	16058	
==>ess
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16023	16116	
==>ess
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunl <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14571	14670	
==>y
hiddenmenu

title    $pugs_version
root     (cd)
kernel   /boot/vmlinuz root=/dev/ram rw init=/lin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3482	3838	
==>ime::Match->new( { 
                        bool  => 1,
                        match => '{',
                        tail  => substr( $match, 1 ),
                        capture => { stmt => '{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	197	394	
==>"add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix add: @{[ %opt ]} \n";

    Pugs::Grammar::Operator::add_rule( $self, %opt,
        fixity => 'infix', 
    );
    Pu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5199	5300	
==>epth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5199	5300	
==>epth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7098	7199	
==>nt);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7098	7199	
==>nt);
}

my method _assert_arg_node_assume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_ms <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	14	124	
==>-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealD <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	14	124	
==>-6.0.0;

use v6;
use File::Spec;

our Str $Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealD <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9077	9191	
==>odule for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Mod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9135	9249	
==>odule for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Mod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18126	18233	
==>ned by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18126	18233	
==>ned by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13704	13845	
==>__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13704	13845	
==>__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ s!.*?([0- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20890	21154	
==>(
        ide => "length'",
        is => fun(
            param => "xs",
            body => fun(
                param => "n",
                body => cond(
                    if => comb(
                        fun => ide("is_nil?"),
                        par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4778	4894	
==>f $cc;
    return $S->object(space => 0);
  });

  $self->add_handler('\S' => sub {
    my ($S, $cc) = @_;
    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3440	3611	
==>), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PACKAGE_BINARY
                            => sub { UNIVERSAL::isa(shif <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1174	1277	
==>l_parrot\n$code\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primitive {
    3.14159265 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23002	23105	
==>lways looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other packag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23002	23105	
==>lways looked up by a key which is not meant to be meaningful for a
user.  Whereas, with the other packag <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	683	783	
==>or Module::Install::Base::FakeAdmin->new;
}

sub is_admin {
    my $self = shift;
    $self->admin->V <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18867	18974	
==><package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__E <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18867	18974	
==><package> or C<DATA> section.
    DATA - The DATA section. Begins with the line C<__DATA__> or
        C<__E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6475	6589	
==>ls>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6475	6589	
==>ls>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KICK", <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	979	1083	
==>> "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # ki <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	979	1083	
==>> "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moan
 # ki <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32457	32557	
==>t files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object stores some attr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32457	32557	
==>t files.>

=head2 The Locale::KeyedText::Translator Class

While a Translator object stores some attr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26155	26263	
==>n the Message Key
it is being used with (others are ignored).  Each variable name can be any
defined and non- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26155	26263	
==>n the Message Key
it is being used with (others are ignored).  Each variable name can be any
defined and non- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9691	9788	
==>ined with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" 
f <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9691	9788	
==>ined with closures. 

A recurrence set is defined by a "successor" function and a "predecessor" 
f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1121	1253	
==>$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1121	1253	
==>$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2150	2270	
==>) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2150	2270	
==>) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy.  They're
done <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1444	1554	
==>r %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1444	1554	
==>r %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	666	766	
==>amespace, please use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @args) <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	750	840	
==>tp://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	750	840	
==>tp://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs project was started on February 1st 2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	377	501	
==>q!
block:
        '->' exp 'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'pointy_block' => $_[4], signature => $_[2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2207	2311	
==>n in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2126	2227	
==>n in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8309	8435	
==>/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8309	8435	
==>/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9486	9577	
==>C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_su <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9486	9577	
==>C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16572	16674	
==>ition of a "D" language, is
described fully in the L<Rosetta::Language> documentation file that comes
w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16572	16674	
==>ition of a "D" language, is
described fully in the L<Rosetta::Language> documentation file that comes
w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1088	1212	
==>=> 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?',
        assoc => 'left',
        precedence => 'equal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31665	31769	
==>re no code-execution statements in a regex:

  use Regexp::NoCode;
  my $p = Regexp::NoCode->new;

  # if <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	979	1081	
==>plement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified respo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	979	1081	
==>plement a non-faked version
# TODO: Add If-Modified-Since: header
# TODO: Handle 30x Not Modified respo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6441	6576	
==>eeds investigation.

                # For now this means that we only allow compilation on
                # the module content; not th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6441	6576	
==>eeds investigation.

                # For now this means that we only allow compilation on
                # the module content; not th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3404	3501	
==>e->create('$method' => $nil::NIL);
            $e->create('$current' => $e->get('&dispatcher')->do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1817	1912	
==>remainder) = Text::Balanced::extract_delimited( "'" . $_[0], "'" );
    $extracted = substr( $ex <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19130	19273	
==><'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # see 11.14
      <AssignmentExpression>
    | <Expression> <','> <A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	104	243	
==>Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	104	243	
==>Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12490	12591	
==>se functions will eval a code snippet, and then pass the result to is or ok
on success, or report that <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12548	12649	
==>se functions will eval a code snippet, and then pass the result to is or ok
on success, or report that <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19129	19231	
==>y if using the header(),
push_header() or init_header() methods to set the referrer.

=item $h.www_auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19129	19231	
==>y if using the header(),
push_header() or init_header() methods to set the referrer.

=item $h.www_auth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2206	2462	
==>...}

###########################################################################

method size of Int () {
    return +$?SELF.export_attr_names();
}

###########################################################################

method all_names_exist of Bool <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11451	11585	
==>est;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Perl 6 modules to the initrd",
    ensure => sub { -r "$ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1555	1660	
==>emplate) {
        print <<".";
*** Build config file '$filename' is older than template
    '$config_temp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1375	1475	
==>rity => 2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } (($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38690	38798	
==>ances of any given variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38690	38798	
==>ances of any given variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3382	3528	
==>can not extract meta object" );
            return;
        }
        
        ### extract to a temp dir
        my $my_tmp_dir = File::Spec->catdi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1592	1697	
==>structure of the signature; it does

not allocate containers.



the Body is just a structure with three n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1527	1629	
==>structure of the signature; it does
not allocate containers.

the Body is just a structure with three n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10032	10143	
==>'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10026	10137	
==>'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4771	4904	
==>{  # see 7.5.2
      <'break'>
    | <'else'>
    | <'new'>
    | <'var'>
    | <'case'>
    | <'finally'>
    | <'return'>
    | <'vo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26295	26401	
==>======================

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @La <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	106	271	
==>es...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-w <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	106	271	
==>es...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6119	6263	
==>0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle become <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6119	6263	
==>0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle become <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	224	328	
==>il 'blessed';

use base 'type::comparable';

my $OBJECT_ID = num->new(0);

# create a null object to 
# b <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4914	5007	
==>uild.html
   http://www.reed.edu/~carlislp/ghc6-doc/users_guide/x11221.html
.
    }
}

sub ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23592	23705	
==>)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20013	20126	
==>)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S-> <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7036	7212	
==>: Str)\
\\n   List      pre     Str::split   safe   (Str: Pugs::Internals::VRule)\
\\n   List      pre     Str::split   safe   (Str: Str, Int)\
\\n   List      pre     Str::spli <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	392	520	
==>ls,
    )
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude - Aggregator of builtin functions for Blondie runtimes

= <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6710	6817	
==>t_640 or ($ghc_version =~ /^6.4(?:.0)?$/)) {
        die << ".";
*** Cannot find GHC 6.4.1 or above from pat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6441	6586	
==>ng dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6441	6586	
==>ng dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compatibility o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	962	1082	
==>) ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	962	1082	
==>) ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    retur <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8437	8550	
==>ug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pRHS);
    "p6_assign($l <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4345	4457	
==>al "use lib '$base/util'; 1" or die $@;
    eval "use PugsConfig; 1" or die $@;
    PugsConfig->get_config;
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2397	2529	
==>d Rules to Perl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'li <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25341	25459	
==>pe>
    | <CharacterClass>
    | <'('> <Disjunction> <')'>
    | <'(?:'> <Disjunction> <')'>
    | <'(?='> <Disjunction <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5413	5506	
==>$fh,'>',  $index_file) or die "Failed to open $index_file: $!";
my $template = HTML::Template- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6460	6569	
==>be declared outside of the block

  { package Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( lite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6243	6350	
==>be declared outside of the block
  { package Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( lite <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5079	5180	
==>constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a b <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5079	5180	
==>constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, and returns a b <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12795	12892	
==>C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12795	12892	
==>C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i.e. if <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	662	785	
==>ol_dir {
    my $self = shift;
    my $pkg  = shift;       return unless defined $pkg;
    my $dir  = $self->dir   or return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	143	257	
==>e {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	869	983	
==>e {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	45	163	
==>- accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	45	163	
==>- accept a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1097	1253	
==>ge.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1097	1253	
==>ge.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3450	3555	
==>od does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3450	3555	
==>od does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6446	6701	
==>hile @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yiel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6446	6701	
==>hile @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yield;
                        &*push(@ret, &$code($x));
                        yiel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6962	7084	
==>f: )          is rw { $self.header("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6962	7084	
==>f: )          is rw { $self.header("Content-Encoding") }
method content_language ($self: )          is rw { $self.header("C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2925	3032	
==>:Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2925	3032	
==>:Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3462	3557	
==>d

Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will pu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3462	3557	
==>d

Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will pu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2186	2300	
==>@_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq ' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2186	2300	
==>@_;

    # Handle the C<use Module::Compile -base;> command.
    if ($class eq __PACKAGE__ and $flag and $flag eq ' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17561	17662	
==>les}, $tot->{max}, timestr($tot->{bench}, 'nop'));
}


my %Handlers = (
    header => \&header_handler <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2020	2118	
==>ined $base;
    return Pugs::Internals::log10($x) if $base == 10;
    return (Pugs::Internals::log( <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3309	3417	
==>lt {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] m <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3309	3417	
==>lt {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1753	1850	
==>>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algor <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1753	1850	
==>>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1013	1115	
==>th );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1013	1115	
==>th );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2314	2423	
==>proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2314	2423	
==>proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7350	7474	
==>>add_handler('\z' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "z", " in character class") if $cc;
    return $S- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16420	16522	
==>tests successful$bonusmsg.\n";
    } elsif (!$tot->{tests}){
        die "FAILED--no tests were run for <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4057	4167	
==>$self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4057	4167	
==>$self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        universe =>            $uni <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2667	2774	
==>d_is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2667	2774	
==>d_is_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7537	7676	
==>t) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7537	7676	
==>t) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	607	809	
==>$buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	607	809	
==>$buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	52	143	
==>e', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	183	274	
==>e', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
use Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4999	5106	
==>turn "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4999	5106	
==>turn "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	275	403	
==>t,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	275	403	
==>t,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - thi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10684	10831	
==>e"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int iscapture
    .local string sub <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20817	20913	
==>name rewinddir rmdir seek seekdir select(both)
# send setsockopt shutdown slurp socket socketpair <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	638	778	
==>IL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	638	778	
==>IL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16658	16774	
==>unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or may <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13079	13195	
==>unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class range (or may <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12986	13091	
==>ash()>

This method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12986	13091	
==>ash()>

This method returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2763	2900	
==>$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\n" .
        "    push \@$grammar1::ops, ::compile_rule( '" .
            qu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4948	5052	
==>constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4948	5052	
==>constant( q!$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_varia <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21273	21356	
==>ispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44180	44263	
==>ispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1143	1265	
==>pt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	246	367	
==>pt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2466	2600	
==>w( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2606	2740	
==>w( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1356	1450	
==>, values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroLi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1356	1450	
==>, values(), zip()
* Code rewritten to use coroutines instead of states
* New class Lazy::CoroLi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7563	7670	
==>64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7563	7670	
==>64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    r <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6911	7024	
==>ent-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 vers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6911	7024	
==>ent-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 vers <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1655	1775	
==>ead $Metafile";

    my $deps    = $struct->{depends};
    
    print "Translating:\n";
    print Dump( $deps );
    prin <==
2	/Users/nnunley/pugs/util/package-osx.pl	6202	6299	
==>bject.3pm
        /usr/local/man/man3/Perl6::Overview::Operator.3
        /usr/local/man/man3/Perl <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	32	140	
==>ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @path <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	32	140	
==>ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @path <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16028	16125	
==>not any human user.  In some
situations, a shared program component may raise such a condition, an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16028	16125	
==>not any human user.  In some
situations, a shared program component may raise such a condition, an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2759	2863	
==>ing components that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2759	2863	
==>ing components that are the same
    my @pathchunks = splitdir($path);
    my @basechunks = splitdir($bas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9085	9260	
==>if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9920	10095	
==>if \$\@; \n" .
                #"    print \"expanded: ###\$expanded### \\n\"; \n" .
                "    my \$final_ast = \n" .
                "        ::compile_rule( q( [ < <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2211	2315	
==>rn $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2211	2315	
==>rn $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	688	786	
==>(Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','',' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	688	786	
==>(Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','',' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	514	610	
==>asically has to reverse engineer an implicit abstraction
# "barrier" for the engine, from the ent <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2536	2639	
==>ate.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and that th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2536	2639	
==>ate.  
Remember that ciphering steps may not return all (or any) of the data you 
passed in, and that th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15923	16022	
==>ng a message that would be shown to a user, is in fact meant
to be interpreted by the machine itself <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15923	16022	
==>ng a message that would be shown to a user, is in fact meant
to be interpreted by the machine itself <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11519	11630	
==>Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11519	11630	
==>Document object has 2 main attributes:

=over

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	716	846	
==>f Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4194	4324	
==>f Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34178	34320	
==>1))
                      })
                  );
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher', symbol->new <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16678	16774	
==>alityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'==='> <Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	909	1034	
==>} values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	909	1034	
==>} values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to { <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	715	836	
==>N, "< $file" or die "Cannot open $file: $!";
    while (<IN>) {
        if (/^#include\s+['"<]?([^'">]+)/) {
            d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	722	821	
==>ontainer::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array met <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	722	821	
==>ontainer::Array
* Removed fetch_slice() because it is non-standard.

2005-08-08
* New lazy array met <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4553	4697	
==>me eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4565	4709	
==>me eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get var $name\n";
    
    # XXX - wrong, b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	264	379	
==>m } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	264	379	
==>m } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compile( $rule_so <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	500	643	
==>self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	500	643	
==>self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15574	15672	
==>s>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15574	15672	
==>s>

Hash(Str) of Any - This contains zero or more attribute names and values
that help to define th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	990	1152	
==>s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	990	1152	
==>s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %event <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4981	5122	
==>ign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      tr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2665	2756	
==>-discontiguous). % remove is plausible

p5_start(Z)    --> p5_concatenation(W), p5_alternati <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5191	5298	
==>tring () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5191	5298	
==>tring () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3017	3132	
==>: got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Argu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3017	3132	
==>: got ($index) expected no more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Argu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	157	259	
==>ugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	157	259	
==>ugs:
    * operations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	439	544	
==>nt-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	439	544	
==>nt-match" => \$print_match,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	741	841	
==>rl.org>.
.
        require "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6340	6440	
==>a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
no <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6340	6440	
==>a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVal' ,'unk';

node_s 'Cxt', 'CxtVoid';
no <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12876	12995	
==>1
    inc pos
  scan:
    if pos >= lastpos goto err_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endcla <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30618	30724	
==>shared by multiple Messages but the whole module must represent a single
language.

The name of each Templa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30618	30724	
==>shared by multiple Messages but the whole module must represent a single
language.

The name of each Templa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	326	592	
==>$EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str where { $^n ne $EMPTY_STR };

subtype Relation::L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	838	996	
==>ew( { 
        bool  => 1,
        match => $1,
        tail  => $2,
        capture => { cpan_bareword => $1 },
    } )
        if $_[0] =~ /^ ([_\w\d]+ \- [_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6690	6786	
==>sts($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_wi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6690	6786	
==>sts($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_wi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9175	9283	
==>tersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9175	9283	
==>tersection ($self: $span is copy) returns List of Span {
    # return $self.clone if $self.is_empty;
    my ( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8932	9070	
==>T $_;
    }

    close IN;
    close OUT;
}

sub classify_options {
    my($kind, %opts);
    for (@_) {
        # we can't use +SEGMENT an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2584	2696	
==>lock &dispatcher) (symbol $label) (hash ?%opts)) returns method 
    ((= $method NIL)
     (= $current (&dispatch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1322	1438	
==>\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1322	1438	
==>\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3877	3988	
==>ersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3877	3988	
==>ersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20443	20537	
==>anslation.  There are some application where this is not
appropriate.  Prefixing field names wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20443	20537	
==>anslation.  There are some application where this is not
appropriate.  Prefixing field names wi <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2919	3033	
==>};
        warn "*** warning: Prelude.pm should probably be the first --include\n"
            unless $prelude =~ / <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1689	1796	
==>indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, @array[$k] ) if $k ~~ any(@ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	178	294	
==>onfig;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	178	294	
==>onfig;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = handle <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11469	11571	
==>pan="11" class="indent1"><tmpl_var name=catname></th></tr>
        <tmpl_loop name=smokes>
          <t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20160	20256	
==>piler may choose to declare that its result not be recompiled by
some other containing parser. In <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20160	20256	
==>piler may choose to declare that its result not be recompiled by
some other containing parser. In <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3720	3841	
==>name} =~ /::/ ) {
        my $name = $values{name};
        $name =~ s/::/-/g;
        die "Error in name(): '$values{name <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14553	14653	
==>eds. This module will be the code support for those needs. The
following is a list of future features <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14611	14711	
==>eds. This module will be the code support for those needs. The
following is a list of future features <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	965	1109	
==>ep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	965	1109	
==>ep structure
                     to store what they've captured.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17579	17698	
==>nd returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17579	17698	
==>nd returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy()`

Makes a lazy iterator: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28156	28251	
==>this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified versio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28156	28251	
==>this object as
a hash ref.

=item C<as_debug_string()>

This method returns a stringified versio <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	637	750	
==>, but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	637	750	
==>, but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns Date {
    return Date <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9857	9996	
==>ch = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9851	9990	
==>ch = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantifi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2470	2589	
==>h refs.
# FIXME: Document next level. ??
my $link_info;
my $total_links;
my $total_files;
my $syn_indexs;
my @syn;

my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2635	2818	
==>f defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2635	2818	
==>f defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2271	2385	
==>rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2271	2385	
==>rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other.size && $other.includes($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6520	6625	
==>local $Carp::CarpLevel = 2;
            carp "parsing error in Expression: ..." . substr($match,0,30) . ". <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20078	20182	
==>t> <';'>
}
rule VariableDeclarationList :words {  # see 12.2
      <VariableDeclaration>
    | <VariableD <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4248	4389	
==>rt == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4248	4389	
==>rt == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19762	19859	
==>ts.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D howe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19762	19859	
==>ts.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D howe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16806	16905	
==>hat into its own executable, in practice one would
normally just write some components of their appl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16806	16905	
==>hat into its own executable, in practice one would
normally just write some components of their appl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12966	13132	
==>n();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12966	13132	
==>n();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3321	3410	
==>ffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3321	3410	
==>ffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  if ($buffer <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20954	21093	
==>I0 == 0 goto setreps_1
    $P0 = reps[cname]
    $P0["isarray"] = 1
    isarray = 1
  setreps_1:
    reps[cname] = self

    padarray = pad[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4811	4917	
==>ode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5061	5167	
==>ode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7026	7126	
==>lval,$body)=@_;
    code_for_code_CODE(name=>$name, kind=>$kind, params=>$pams,
		       lvalue=>$lva <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13762	13866	
==>code_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

Thi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13762	13866	
==>code_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2205	2351	
==>ol::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2205	2351	
==>ol::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    ret <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5282	5398	
==>t::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5340	5456	
==>t::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2938	3067	
==>d ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2938	3067	
==>d ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1783	1877	
==>the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, whic <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1783	1877	
==>the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, whic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6741	6849	
==>re} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6753	6861	
==>re} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	660	782	
==>ecutable not found, fetching it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'h <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	559	667	
==>ecutable not found, fetching it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1104	1224	
==>ndition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsup <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1104	1224	
==>ndition Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsup <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	538	635	
==>:MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	538	635	
==>:MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	210	321	
==>xport {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@con <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	210	321	
==>xport {
    my $set = Set.new;
    say "Making a set of ({@contents.join(',')})" if $DEBUG;
    $set.insert(@con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1671	1787	
==>tures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1671	1787	
==>tures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4148	4281	
==>|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4148	4281	
==>|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $matc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23114	23215	
==>"gettext" it looks like you
are supposed to pass in english text and they translate it, which could
pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23114	23215	
==>"gettext" it looks like you
are supposed to pass in english text and they translate it, which could
pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	118	259	
==>e warnings;
use charnames ();

our %loaded;
our @EXPORT = qw( Rx RxPOS RxCUR RxLEN Rf SIZE_ONLY LATEST );

sub Rx :lvalue		{ $_[0]{regex} }
su <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24291	24372	
==>tures(amat(_C0,G),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),amat([],G)).
mat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3556	3674	
==>put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3556	3674	
==>put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.mult <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5228	5338	
==>e who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5228	5338	
==>e who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4649	4756	
==>how numbers for some uneeded cases, but will
        # definately be helpful for things such as == and <= th <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	724	835	
==>nfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs no <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	724	835	
==>nfig::get_config();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs no <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1081	1191	
==>f, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1081	1191	
==>f, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9628	9724	
==>returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9628	9724	
==>returns Array {...}
# Many, but not all, ciphers will need to override these
method _head() retur <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5273	5394	
==>th=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$linuxrc,
  "w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2774	2862	
==>start(noop) --> {true}.

p5_alternatives(W, Z) --> "|", p5_concatenation(X), p5_alternati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6270	6364	
==>ub_defin => $() ,} }
RULE
*{'term2'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	688	781	
==>er::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	688	781	
==>er::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28537	28652	
==>ng.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28537	28652	
==>ng.

=back

=head2 The Template Modules

Locale::KeyedText doesn't define any "Template" modules, but it expects you <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6018	6117	
==>Rule::compile or Rule->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5809	5907	
==>Rule::compile or Rule->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18943	19040	
==>channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18943	19040	
==>channels it has joined, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickn <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15351	15445	
==>t should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporate <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15351	15445	
==>t should behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporate <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2897	3025	
==>st equiv
            system( qq[tar -f $my_tmp_dir/$data -C $meta_dir -tz |] .
                    qq[xargs -I % echo ] . $inst-> <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3035	3159	
==>subscription.subscriber.remove_subscription($subscription);
        }
        
        method get_subscriptions (Class::Publi <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	331	444	
==>tfile($Path, $SID)));
    CookiesAdd('sid',$SID);
}

sub SessionID() { return $SID; }

sub SessionSet($variable, $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6855	6940	
==>->new(filename => 'util/catalog_tmpl/error.tmpl');
$template->param(unresolved => \@un <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33760	33857	
==>h or French.  The order of these items corresponds to
an individual user's (or user role's) prefer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33760	33857	
==>h or French.  The order of these items corresponds to
an individual user's (or user role's) prefer <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	198	359	
==>es-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	198	359	
==>es-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4420	4591	
==>!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4420	4591	
==>!,
            Any                      :%attributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$do <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10706	10812	
==>hod encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10706	10812	
==>hod encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2052	2148	
==>e.  (For example, if 
a function in C<Some::Module> called C<note> without providing any tags, it <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2052	2148	
==>e.  (For example, if 
a function in C<Some::Module> called C<note> without providing any tags, it <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10082	10262	
==>n',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10082	10262	
==>n',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1737	1847	
==>ersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1737	1847	
==>ersection ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $spa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11346	11453	
==>) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11346	11453	
==>) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20387	20492	
==>o it.  An os-level preference
/ control-panel displays a list of all the languages your programs do or
mig <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20387	20492	
==>o it.  An os-level preference
/ control-panel displays a list of all the languages your programs do or
mig <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9932	10047	
==>rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9932	10047	
==>rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() unless <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2240	2507	
==>buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2240	2507	
==>buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18201	18349	
==>), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41466	41614	
==>), symbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list-> <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1198	1331	
==>{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1198	1331	
==>{API}{modpname}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2694	2853	
==>| \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2941	3100	
==>| \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13059	13187	
==>inted++;

    if ($tainted) {
	# We will assume that if you're running under -T, you really mean to
	# run a fresh perl, so we'll <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2091	2213	
==>} else { die "don't know to make a literal out of $t" }
}

sub generic_reduce {
	my $self = shift;
	my $node = shift;

	war <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33390	33494	
==>that is like
C<union> except that the returned Relation contains only tuples that are in
all of the sourc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37940	38044	
==>that is like
C<union> except that the returned Relation contains only tuples that are in
all of the sourc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6622	6724	
==>ta, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and shou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6622	6724	
==>ta, either by declaring C<$data> to be an C<is copy> variable or by making a 
copy internally, and shou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1610	1712	
==>e procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1610	1712	
==>e procedural, it is invoked via two class 
methods.

=over 4

=item C<encipher>

    $ciphertext = Some <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	210	308	
==>(Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(te <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	210	308	
==>(Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng = ::Perl::Compiler::CodeGen::NameGen.new(te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2311	2435	
==>op::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2322	2446	
==>op::alternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18440	18540	
==>ure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18440	18540	
==>ure is prevented.  I<Also, Rosetta should be thread safe and/or saavy
in the future, but for now it o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6056	6150	
==>lf->{callback}->($self, $line, $type, $totals) if $self->{callback};

    $self->{'next'} = $re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1120	1340	
==>:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %se <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1120	1340	
==>:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2666	2771	
==>ons.

If two different data streams are enciphered with the same key, the encryption 
can be removed by XO <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2666	2771	
==>ons.

If two different data streams are enciphered with the same key, the encryption 
can be removed by XO <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6433	6527	
==>ub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6433	6527	
==>ub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.new) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8189	8320	
==>\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8177	8308	
==>\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined \$match[\$index{$rnd}] ) {
$_[1]         \$mat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	203	310	
==>method BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	203	310	
==>method BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9845	9971	
==>leop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10124	10250	
==>leop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1212	1326	
==>ps

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1212	1326	
==>ps

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18106	18218	
==>f this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
arr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18106	18218	
==>f this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structures (hash refs,
arr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1869	1978	
==>{ 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | bina <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1869	1978	
==>{ 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | bina <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4014	4130	
==>, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4014	4130	
==>, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2139	2238	
==>distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2139	2238	
==>distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher API's functional in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5332	5442	
==>postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5332	5442	
==>postfix( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    o <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6052	6178	
==>destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.d <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6442	6568	
==>destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/arrays.t.
            @array.d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1349	1437	
==>use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1349	1437	
==>use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4489	4634	
==>.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 2 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4489	4634	
==>.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 2 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7556	7683	
==>:



### we don't need a "high" level interface (named args) 

###    because the actual rule object will be full OO



:(Str $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7300	7422	
==>:

### we don't need a "high" level interface (named args) 
###    because the actual rule object will be full OO

:(Str $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19841	19945	
==>E apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19841	19945	
==>E apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the blocks h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3458	3563	
==>lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <t <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3458	3563	
==>lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psiglet>? <t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5336	5476	
==>open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5336	5476	
==>open {
        $x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4184	4328	
==>\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4184	4328	
==>\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing newlines and space <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17596	17694	
==>of the HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17596	17694	
==>of the HTTP
standard.>

=item $h.user_agent

This header field is used in request messages and cont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12987	13081	
==>s belonged to which field.

=item $h.remove_content_headers

This will remove all the header fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12987	13081	
==>s belonged to which field.

=item $h.remove_content_headers

This will remove all the header fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3736	3871	
==>}\n" .
        "    push \@Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10561	10659	
==>, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that their att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10561	10659	
==>, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that their att <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35666	35766	
==>it normal, but the others we will make to be look-aheads.  To
make an object, we need to access C<< $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7477	7583	
==>ool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7477	7583	
==>ool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	909	1001	
==>ument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	909	1001	
==>ument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inheritance
* Lazy <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2161	2272	
==>eturn $x_round;
}

our Int multi Num::round_half_odd ( Num $x ) {
    my $x_round;

    # round .5 to the neares <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5252	5362	
==>);
    print "---- ( $c ) ----\n$src\n" if $DEBUG;
}
else {
    print "Skipping conversion rule: $c\n";
}
}

if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3492	3598	
==>t->returns) ? 
        bit->new(1) : bit->new(0)
}

package closure::params;

use strict;
use warnings;

us <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1316	1415	
==>age Blondie::Env;
	use base qw/Blondie::Map/;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2917	3057	
==>ence => 'equal',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '&&',
        assoc => 'right',
        prece <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2057	2160	
==>(${re_symbol}\s*)?($RE{balanced}{-parens=>'{}'})/){
       my ($pre, $post) = ($`, $');
       my ($n, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1577	1707	
==>leop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1588	1718	
==>leop::capture( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	566	681	
==>osetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	566	681	
==>osetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5782	5886	
==>xtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    requir <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5264	5368	
==>xtUtils::MM_Unix->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    requir <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6775	6871	
==>Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Uni <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6775	6871	
==>Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Uni <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	574	670	
==>keys should produce the same keystream and thus text 
should be enciphered and deciphered the sam <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	574	670	
==>keys should produce the same keystream and thus text 
should be enciphered and deciphered the sam <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	268	376	
==>ned $POE::Kernel;

    $POE::Kernel = $self;
  }

  # Internal method which pushes a given $callback to @:eve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8895	8988	
==>iable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2720	2813	
==>iable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13312	13418	
==>archive indexes.  Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
yo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13312	13418	
==>archive indexes.  Aside from
'use' statements, you should never refer directly to "Locale::KeyedText" in
yo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8844	8942	
==>Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8844	8942	
==>Max Maischein <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7582	7735	
==>$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7582	7735	
==>$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24364	24460	
==>they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24364	24460	
==>they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a comm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	339	440	
==>if ( ++$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1] <==
2	/Users/nnunley/pugs/util/build_pugs.pl	93	186	
==>ile::Path qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %Bu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3992	4110	
==>rcname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3992	4110	
==>rcname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $even <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12528	12632	
==>r each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12528	12632	
==>r each Node in the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Roset <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1564	1658	
==>Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1564	1658	
==>Compiler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.va <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4965	5081	
==>fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to the p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4965	5081	
==>fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to the p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17405	17517	
==>oggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17405	17517	
==>oggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20121	20225	
==>user
language is in a separate file, and adding a localization to a Mac OS X
program is as simple as addi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20121	20225	
==>user
language is in a separate file, and adding a localization to a Mac OS X
program is as simple as addi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22464	22578	
==>ll copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


 } reg <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17362	17475	
==>ll copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


} reg <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	65	172	
==>{
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	65	172	
==>{
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38003	38102	
==>ich is a Template text
string if the module recognizes $msg_key, and the undefined value if not.

=i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38003	38102	
==>ich is a Template text
string if the module recognizes $msg_key, and the undefined value if not.

=i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13384	13481	
==>he
removed headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13384	13481	
==>he
removed headers only.

=item $h.clear

This will remove all header fields.

=item $h.header_fie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10315	10413	
==>r more header fields.  The header field
name ($field) is not case sensitive.  To make the life easi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10315	10413	
==>r more header fields.  The header field
name ($field) is not case sensitive.  To make the life easi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9128	9246	
==>et ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9128	9246	
==>et ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subse <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2067	2161	
==>&parse_quant);
    $optable->addToken("postfix:?", "postfix:*", "left", &parse_quant);
    $opt <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	313	411	
==>onthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 9 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	313	411	
==>onthLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 9 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7591	7705	
==>= $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7591	7705	
==>= $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $conten <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1345	1443	
==>ars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1345	1443	
==>ars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1363	1555	
==>ity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1363	1555	
==>ity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        5 <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16502	16620	
==>all todo)};
    $self->{line}       = 0;
    $self->{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone <==
2	/Users/nnunley/pugs/util/testgraph.pl	109	211	
==>t::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Spec;

GetOptions \our %Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12038	12157	
==>turn $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4681	4800	
==>turn $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5810	5945	
==>add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5810	5945	
==>add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5823	5934	
==>----

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5823	5934	
==>----

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closure_p <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1312	1411	
==>with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1312	1411	
==>with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1007	1122	
==>is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meanin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1007	1122	
==>is_compiler_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meanin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	808	917	
==>efinition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	808	917	
==>efinition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1542	1648	
==>y $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done bett <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1542	1648	
==>y $head = slurp $hdl;

  # strip away everything except status and headers
  # This should all be done bett <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2330	2441	
==>nctions return a closure.  Call the closure with a block of 
data to have it enciphered or deciphered; when you' <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2330	2441	
==>nctions return a closure.  Call the closure with a block of 
data to have it enciphered or deciphered; when you' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37983	38208	
==>(
                              symbol->new('$self:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26762	26872	
==>Ranges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule ClassAtomNoDash {  # see 1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21521	21616	
==>change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21521	21616	
==>change the bot's nick. Also see C<nick> below.

=head2 C<$bot.topic("#chan")>, C<$bot.topic(chan <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7635	7874	
==>re_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7635	7874	
==>re_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_nu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40006	40106	
==>ion.  You
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40006	40106	
==>ion.  You
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2477	2563	
==>ared.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/pl-5.5.27/lib/x86_64-linux
my $prolo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2448	2547	
==>name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs") <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2448	2547	
==>name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs") <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	66	160	
==>package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	66	160	
==>package
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5362	5524	
==>1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5584	5746	
==>1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10365	10490	
==>$var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:pe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10365	10490	
==>$var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1570	1782	
==>der', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1570	1782	
==>der', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	515	614	
==>sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	515	614	
==>sub bool  {  ${${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33685	33776	
==><difference (Relation $other!) returns Relation>

This method is a generic relational operat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38235	38326	
==><difference (Relation $other!) returns Relation>

This method is a generic relational operat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2714	2810	
==>ssert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2714	2810	
==>ssert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13317	13443	
==>he database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13317	13443	
==>he database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1969	2077	
==>ed";
}

sub perl5 {
    warn "not implemented";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1808	1910	
==>s on \\%s", 'brace', "c$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\% <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15259	15358	
==>= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15259	15358	
==>= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / `end()`

Retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12825	12931	
==>ext the number of fields removed is returned.

Note that if you pass in multiple field names then it is gen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12825	12931	
==>ext the number of fields removed is returned.

Note that if you pass in multiple field names then it is gen <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16456	16604	
==>1 = MatchX->new;
    $$m1->{'RULE'} ||= $name; #EEEP
    $m1->set(1,"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'va <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15514	15652	
==>1 = MatchX->new;
  $$m1->{'RULE'} ||= $name; #EEEP
  $m1->set(1,"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'va <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1945	2041	
==>lti sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1945	2041	
==>lti sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	398	505	
==>RG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	398	505	
==>RG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18687	18781	
==>E0,E0).
rm_repeat_max(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - 1,
  r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3281	3428	
==>if -d $dir;
            delete $prereq->{$file};
        }
    }

    if ( my $perl_version = $self->perl_version ) {
        eval "use $perl_versio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20784	20946	
==>uleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21063	21225	
==>uleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5305	5449	
==>ind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      trave <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	233	335	
==>out loosing this code as a reference point.

use Test::More tests => 32;

{
    use Hash::Util 'lock_ke <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8508	8636	
==>pre ~ $pat;
        }
    }
    my $g = %mods{'g'} || %mods{'global'};
    my $ov = %mods{'ov'} || %mods{'overlap'};
    my $ex = <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1719	1836	
==>mber>    \:\=  <construct>  }
rule number  { \d+ }
rule external_scalar_alias  {  \$<name>      \:\=  <construct>  }
r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5915	6309	
==>block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7677	8071	
==>block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9295	9397	
==>ype');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style messag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9295	9397	
==>ype');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style messag <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18527	18618	
==>(C functions
which get called on regular expression compilation and execution) to
parasitize <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2817	2908	
==>(C functions
which get called on regular expression compilation and execution) to
parasitize <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1333	1433	
==>f.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1333	1433	
==>f.includes($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39472	39564	
==>cale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  Al <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39472	39564	
==>cale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  Al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8994	9129	
==>rn unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8680	8812	
==>rn unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $nod <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1372	1473	
==>ommon_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1372	1473	
==>ommon_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10006	10113	
==>As new features are
added to Pugs, new test functions will be defined to facilitate the
testing of those fea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10064	10171	
==>As new features are
added to Pugs, new test functions will be defined to facilitate the
testing of those fea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5545	5662	
==>x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5545	5662	
==>x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_pr <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1161	1257	
==>y to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footp <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1161	1257	
==>y to combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13482	13592	
==>keys} = ();
	# Untaint, plus take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV{PATH} =
	    join <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2598	2741	
==>er};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2598	2741	
==>er};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    return emit_rule( $term, $_[1] ) 
        if $sub eq '' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5677	5790	
==>.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5677	5790	
==>.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1483	1584	
==>}
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1483	1584	
==>}
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use Pugs::Grammar::Category;
u <==
2	/Users/nnunley/pugs/util/grokprims.pl	940	1088	
==>r
             $a->{assoc} cmp $b->{assoc} or
               @{$a->{args}} <=> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{as <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	643	829	
==>pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        els <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	643	829	
==>pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + 1),
            ));
        }
        els <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10106	10221	
==>in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10106	10221	
==>in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Val <==
2	/Users/nnunley/pugs/util/package-osx.pl	11558	11666	
==>nt REMOVER "$_\n" for @header;
    print REMOVER "    $_\n" for @files; 
    print REMOVER "$_\n" for @footer <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22833	22958	
==>1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19254	19379	
==>1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(?p' => sub {
    my ($S) = @_;
    my $c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21422	21520	
==>ss_member(class_pos(word)      ,C) :- !,    char_type(C,csym).
class_member(class_neg(word)      ,C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5430	5541	
==>%hash ) or error(Params::Check->last_error), return;

    ### build a from => to mapping
    ### note we have to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	678	812	
==>V<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	678	812	
==>V<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11862	11993	
==>jects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11862	11993	
==>jects that do not have parent Nodes of their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3962	4090	
==>file not found';"
    
    # make 'use fatal' not try to load a module. XXX: add a real inc class to
    # interface %*INC, inste <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3253	3366	
==>as three
main aspects:

=over 4

=item *

Resolving compile time resolvable symbols into values

=item *

Replacin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8711	8824	
==>> $placeholder,
			struct_equiv => $rparam,
			orig => $param,
		);
	}

	sub can_reduce {
		my $self = shift;
		my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	817	949	
==>ugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	817	949	
==>ugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8188	8435	
==>tart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elem <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8188	8435	
==>tart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2462	2592	
==>st path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2462	2592	
==>st path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3	112	
==>kage Pugs::Runtime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3	112	
==>kage Pugs::Runtime::Match;

# Documentation in the __END__
use 5.006;
use strict;
use warnings;
use Data::Dump <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20079	20181	
==>>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname contains a co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20079	20181	
==>>:

  $h->authorization_basic = ($uname, $password);

The method will croak if the $uname contains a co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1956	2179	
==>ined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cs <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1956	2179	
==>ined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cs <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16337	16434	
==>defined mainly in terms of a new high-level
programming language named "Rosetta D", which is compu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16337	16434	
==>defined mainly in terms of a new high-level
programming language named "Rosetta D", which is compu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2116	2209	
==>TypeSafe::Annotation->new(
		type => $to,
		struct_equiv => Blondie::App->new(
			Blondie::Typ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2666	2767	
==>get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2666	2767	
==>get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $self.equal( $u <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1178	1283	
==>return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method st <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1178	1283	
==>return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method st <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5030	5138	
==>recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5030	5138	
==>recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recurrence.next( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7804	7944	
==>tch;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7804	7944	
==>tch;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable match... <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7969	8076	
==>is routine must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet certain if <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7969	8076	
==>is routine must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet certain if <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	715	828	
==>pecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	715	828	
==>pecting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2919	3044	
==>,  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute acce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2919	3044	
==>,  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ',  # small n, tilde
    "oacute"   => 'ó',  # small o, acute acce <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1537	1639	
==>t::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "aft <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1537	1639	
==>t::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "aft <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	970	1124	
==>lit('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	970	1124	
==>lit('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3022	3122	
==>-Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional AP <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3022	3122	
==>-Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional AP <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	0	98	
==>class Parse::Rule::Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Stra <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	0	98	
==>class Parse::Rule::Strategies::CPS::Text;

use Parse::Rule::Strategies::CPS;
does Parse::Rule::Stra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	874	978	
==>cale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	874	978	
==>cale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Local <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2232	2357	
==>thong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2232	2357	
==>thong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1164	1263	
==>inator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1164	1263	
==>inator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compile <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17173	17281	
==>nce object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17173	17281	
==>nce object, or a scalar value.

- `is_empty()`

Returns `true` if the span is empty.

- `is_infinite()`

Retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20214	20339	
==>mple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, while it performs correctly
an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20214	20339	
==>mple fashion so that it is easy to maintain and
and easy for developers to study.  As a result, while it performs correctly
an <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	816	918	
==>mal> argument, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> tim <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	816	918	
==>mal> argument, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> tim <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2057	2180	
==>tent_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2057	2180	
==>tent_type;
    $header ~= "; charset=$charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX u <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10927	11045	
==>seudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readli <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10927	11045	
==>seudo("runloop");
    }
  }

  # Read a line from the server and process it
  method readline() {
    my $line = readli <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23516	23614	
==>roperty and/or
same-named accessor method can be used to see if a Relation-doing object
can mutate. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28068	28166	
==>roperty and/or
same-named accessor method can be used to see if a Relation-doing object
can mutate. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8343	8462	
==>xt }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8343	8462	
==>xt }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating com <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23952	24073	
==>ee 15.1.3
      <uriReserved>
    | <uriUnescaped>
    | <uriEscaped>
}
rule uriReserved {  # see 15.1.3
      <';'>
    | <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	866	961	
==>nvironment in which p6 rules can be run against strings,
  sufficient to permit recommencing wri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14566	14690	
==>etched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14566	14690	
==>etched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1648	1773	
==>my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1648	1773	
==>my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2154	2255	
==>al($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size & <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2154	2255	
==>al($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size & <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1956	2051	
==>ir constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision o <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1956	2051	
==>ir constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5207	5299	
==>cale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

Se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5207	5299	
==>cale::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

Se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2719	2835	
==>, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circum <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2719	2835	
==>, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circum <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2490	2582	
==>| <closure> | <code_rule> | <code_assertion>
  | <metasyntactic_var> | <symbolic_indirect_rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2820	2946	
==>optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].inte <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2820	2946	
==>optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5275	5385	
==>se the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YA <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5092	5196	
==>se the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YA <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1939	2074	
==>@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positiona <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1939	2074	
==>@_);
    return;
}

sub arg_bind {
    local $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positiona <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3307	3411	
==>object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1157	1261	
==>object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => "\f", '\f');
  });

  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1663	1777	
==>`new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The follo <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1663	1777	
==>`new( start => $start )`

Given a start object, returns a span that has infinite size.

= OBJECT METHODS

The follo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3031	3150	
==>ie "$@\n" . Data::Dumper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $accum = shift;
	
	$self->shallow_clone;
} <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18226	18328	
==>epeat_min(Re,Min,F0,Fx,B0,Bx,E0,Ex),
  rm(star_ng(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat_ng(Re,Min,Max),F0,F <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1537	1639	
==>e first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Co <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1537	1639	
==>e first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24574	24679	
==>published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24574	24679	
==>published by the Free
Software Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	551	662	
==>not specified.

=item index

Path to the index directory. default: $root/dists

=item index_file

Path to the ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15634	15750	
==>$nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15634	15750	
==>$nick, Str $reason? {
      enqueue "KICK $channel $nick :{$reason // ""}";
    },
    mode  => -> Str $target, Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6625	6735	
==>[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6637	6747	
==>[0]\n";
    my $match = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2526	2658	
==>A> };

    my $all_fields = join ",\n    ", map {
        "config_$_";
    } sort keys %$config;
    $template =~ s/#all_fields#/$all <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	482	602	
==>ft;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$self->{dups}->insert($node);
	} else {
		$self->{s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32785	32878	
==>erministic because it
invokes user-defined external files for reading, mainly in the
C<transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32785	32878	
==>erministic because it
invokes user-defined external files for reading, mainly in the
C<transla <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4513	4632	
==>],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@in <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4513	4632	
==>],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	111	361	
==>le::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	111	361	
==>le::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2323	2441	
==>ER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADD <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2323	2441	
==>ER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<REMOTE_ADD <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3947	4093	
==>n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4140	4286	
==>n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2751	2854	
==>viousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2751	2854	
==>viousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") retu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18458	18590	
==>ree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAR <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18458	18590	
==>ree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	945	1148	
==>op::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	946	1149	
==>op::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16466	16575	
==>ntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some tests will trigger VMS messages th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3063	3206	
==>art;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3063	3206	
==>art;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_sta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14723	14819	
==>se();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14723	14819	
==>se();

=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	570	821	
==>rsion applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	570	821	
==>rsion applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedTex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5772	5917	
==>turn 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5772	5917	
==>turn 
        "$_[1] sub {\n" . 
        "$_[1]     $code( \@_ );\n" . 
        "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
        "$_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11773	11874	
==>urrence )`

Returns true if the closures that define the recurrences are exactly the same.

This metho <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11773	11874	
==>urrence )`

Returns true if the closures that define the recurrences are exactly the same.

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5269	5380	
==>chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5269	5380	
==>chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$chan}++ for @nicks;
  }];

  # End of /NAMES
  %handler <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12866	12997	
==>> 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12866	12997	
==>> 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9101	9198	
==>th($input_path);
  my $path = dirname($relative_file);
  my $file = basename($relative_file);
  my <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	734	881	
==>of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	734	881	
==>of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1259	1390	
==>ain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1259	1390	
==>ain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1937	2151	
==>ned $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1937	2151	
==>ned $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    meth <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	476	575	
==>BasicTypechecking.pdf

# please note that this is nothingmuch's first article that he read from cove <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1322	1418	
==>Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1322	1418	
==>Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33417	33517	
==>t that the returned Relation contains only tuples that are in
all of the source Relations.  This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37967	38067	
==>t that the returned Relation contains only tuples that are in
all of the source Relations.  This meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13406	13544	
==>stant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13400	13538	
==>stant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 );
        warn "<\" <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3691	3789	
==>that_should_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPER::new;

	$self->{left} = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9052	9147	
==>{  # see 7.8.4
      <SingleStringCharacter> <SingleStringCharacters>?
}
rule DoubleStringCharac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2218	2309	
==>eneric reduction over " . $node->struct_equiv;

	my $reduced_struct = $self->SUPER::generic_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29923	30020	
==>uffed hash
and an accessor method to read values from it by key.  Each template hash
key correspon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29923	30020	
==>uffed hash
and an accessor method to read values from it by key.  Each template hash
key correspon <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	507	620	
==>}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	507	620	
==>}

sub case_tolerant returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1601	1694	
==>so the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1601	1694	
==>so the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23981	24103	
==>{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20402	20524	
==>{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	413	539	
==>_);
  }

  sub visual {
    my $self = shift;
    exists $self->{vis} ? $self->{vis} : '';
  }

  sub raw {
    my $self = shif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17501	17599	
==>event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17501	17599	
==>event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pugs. Note that <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1467	1573	
==>859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1467	1573	
==>859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6705	6793	
==>(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.dele <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6705	6793	
==>(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.dele <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4119	4207	
==>1693993751058209749445923078164062;
     # http://www.research.att.com/~njas/sequences/A0 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5269	5396	
==>.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compar <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5269	5396	
==>.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7204	7308	
==>NOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `f <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7204	7308	
==>NOPSIS

...


= DESCRIPTION

...

Example:

  1,2,3,-10..20,50,$obj,$span,1..Inf,10

= CONSTRUCTORS

- `f <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4982	5144	
==>self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else { <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4982	5144	
==>self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5664	5770	
==>name (Mapping(Str) of Str $mapping!) returns Relation::Example {

    die "Some keys of $mapping! do not ma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4123	4219	
==>ve '&infix:<+>' into the thunk that does
addition, C<< Val(1) >> will reduce to 1, and C<< Sym('$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17677	17898	
==>(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17956	18177	
==>(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2725	2828	
==>urn $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2725	2828	
==>urn $.set.stringify }
method size ()          returns Object { return $.set.size }

submethod _normalize <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1021	1125	
==>= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typica <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1021	1125	
==>= DESCRIPTION

This is a small simple module which simplifies the 
manipulation of `@*INC`.

It is typica <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2160	2264	
==>b eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2218	2322	
==>b eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $cod <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3221	3368	
==>%pad<"pStmts"> );
    }	
    elsif $tree[0] eq '"PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret = emit_Variable( $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15709	15800	
==>etting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the cal <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15767	15858	
==>etting the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the cal <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	471	614	
==>urns true on success, false on failure.

=cut

sub _mkdir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { req <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24862	24960	
==>ion, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24862	24960	
==>ion, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3593	3692	
==>by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_en <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3810	3909	
==>by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterator_en <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12269	12411	
==>my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13079	13221	
==>my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16248	16347	
==>omplain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      perl5_o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6267	6397	
==>rack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is e <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6267	6397	
==>rack => -> { &continue($match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is e <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1029	1159	
==>e; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	996	1126	
==>e; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval {
        # use Net <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26916	27064	
==>inmod',
      raw => '?',
      data => $data,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7192	7288	
==>) returns Relation::Example {
    return $?SELF.project( $!heading.difference( $attrs ) );
}

&se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10032	10138	
==>ms}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10032	10138	
==>ms}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	949	1122	
==>ss", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($clas <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	949	1122	
==>ss", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($clas <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2040	2140	
==>>guess_perl_type($node) eq "IV";
		return quote(printable($node)),
	}
}

sub can_reduce { 1 }

sub co <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3117	3217	
==>m("$^X $ENV{PUGS_SMOKE_UPLOAD} $loc") == 0 or die "couldn't run user smoke upload command: $!";
}

su <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1701	1848	
==>?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($Re <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1701	1848	
==>?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2abs($Re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28024	28116	
==>e positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns al <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28024	28116	
==>e positional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns al <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18213	18359	
==>ew('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41478	41624	
==>ew('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4050	4157	
==>gs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4234	4341	
==>gs to.

=item * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8562	8667	
==>ame - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6096	6200	
==>ame - the name of the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18337	18448	
==>add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14758	14869	
==>add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1797	1907	
==>string, returning the ciphertext version.  Most 
algorithms will have a key, which will be specified in the opt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1797	1907	
==>string, returning the ciphertext version.  Most 
algorithms will have a key, which will be specified in the opt <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	566	662	
==>r,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method adda <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	566	662	
==>r,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method adda <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6740	6840	
==>cking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6740	6840	
==>cking.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	80	193	
==>ing-"x" field names are used in nameless (array-based) nodes
where I don't yet know an authoritative name.


30 Au <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	80	193	
==>ing-"x" field names are used in nameless (array-based) nodes
where I don't yet know an authoritative name.


30 Au <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3889	4049	
==>ant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3889	4049	
==>ant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18800	18932	
==>ce @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20158	20290	
==>ce @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21041	21204	
==>etreps_1:
    reps[cname] = self

    padarray = pad["isarray"]
    isarray |= padarray
    self["isarray"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9818	9975	
==>eate 
    ("*::WALKCLASS" 
        (closure new             
            (($::ENV)
             (closure::signature new 
                ((params  (closure::p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12681	12777	
==>2 Standard Warnings and Errors

Here are the standard warning and error messages.  Their values a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5373	5493	
==>%*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5373	5493	
==>%*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) retur <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	486	618	
==>match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	486	618	
==>match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position of the mat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3148	3244	
==>count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersecti <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3148	3244	
==>count ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersecti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12759	12910	
==>max == 1) { '?' }
    elsif ($max ne '' and $min == $max) { "{$min}" }
    else { "{$min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	210	308	
==>RegexPerl5;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9756	9877	
==>n $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11233	11354	
==>n $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	915	1027	
==>path($args->{dir}) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14034	14133	
==>tr $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14092	14191	
==>tr $desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5870	5985	
==>gex->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	93	184	
==>= slurp($filename);

print <<PRELUDE;
package Grammar::Perl6;
use base 'Pugs::Grammar::Base' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	288	398	
==>, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || confess "env must be a closure::env" <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	12	108	
==>oc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) return <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	12	108	
==>oc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) return <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2775	2869	
==>d})/$1 = open $2/g;
}

conv_condition {
    if(/(${re_condition})\s*($RE{balanced}{-parens=>'() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22824	22918	
==>ass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22824	22918	
==>ass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I<This d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15752	15856	
==>ied_since

These header fields are used to make a request conditional.  If the requested
resource has (or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15752	15856	
==>ied_since

These header fields are used to make a request conditional.  If the requested
resource has (or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	643	747	
==>IB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	643	747	
==>IB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub get_text_by_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3512	3650	
==>X: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3512	3650	
==>X: Add 30[1237] checking/recursion

    if ($code ~~ rx:Perl5/^[^2]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2192	2295	
==>et1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2192	2295	
==>et1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	73	182	
==>ubmethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	73	182	
==>ubmethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $density = 1 ) {
    return $c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2091	2187	
==>t_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2091	2187	
==>t_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	765	864	
==>eturns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<RE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	765	864	
==>eturns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<RE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1689	1794	
==>ue for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1689	1794	
==>ue for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!h <==
2	/Users/nnunley/pugs/util/package-osx.pl	7978	8075	
==>ad.3pm
        /usr/local/man/man3/Perl6::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Sp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11999	12092	
==>ver

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11999	12092	
==>ver

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13459	13556	
==>Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13459	13556	
==>Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash).

= <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8682	8787	
==>g existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an exis <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8682	8787	
==>g existing Span objects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an exis <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2670	2781	
==>rns Array of Tree { @!children }

## --------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2670	2781	
==>rns Array of Tree { @!children }

## --------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6539	6674	
==>3,
      filename      => $name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2runcore {
  local $_ = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19199	19299	
==>sting stopped" .
      ($self->{bailout_reason} ? ": $self->{bailout_reason}\n" : ".\n");
};


sub _p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8740	8846	
==>ly, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magical <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8450	8553	
==>ly, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magical <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5760	5881	
==>ne {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5818	5939	
==>ne {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, S <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13872	14000	
==>e;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13872	14000	
==>e;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22179	22275	
==>gil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = split('::', <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1505	1596	
==>:X1::Api;
use Perl6::Run::OnPerl5::X1::Repl;
use strict;


for (@inc_dirs) {p6_eval("push(\@ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6276	6375	
==>=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= SY <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6276	6375	
==>=kwid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= SY <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	128	539	
==>72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	128	539	
==>72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7112	7242	
==>p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
push @terms, sub { Grammar::Perl6->indire <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2739	2902	
==>./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2739	2902	
==>./code); }
    method is_redirect () { HTTP::Status::is_redirect (./code); }
    method is_error    () { HTTP::Status::is_error    (./code); }
    
    method error <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1769	1879	
==>v;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set:: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1769	1879	
==>v;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set::Hash {
    my $set = Set:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4589	4735	
==>0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4589	4735	
==>0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	330	436	
==>[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1858	1964	
==>[my_invert(): paramètre $number est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5176	5267	
==>:Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DE <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5176	5267	
==>:Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2584	2689	
==>iler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2584	2689	
==>iler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12385	12573	
==>e
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12379	12567	
==>e
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8945	9074	
==>us => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8945	9074	
==>us => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8672	8764	
==>pher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Di <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8672	8764	
==>pher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Di <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	326	429	
==>while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	326	429	
==>while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.b <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1312	1505	
==>{
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            retur <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1312	1505	
==>{
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34330	34426	
==>Locale::KeyedText::Translator object.
The Set Names property of the new object is set from the na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34330	34426	
==>Locale::KeyedText::Translator object.
The Set Names property of the new object is set from the na <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13038	13160	
==>->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13038	13160	
==>->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2494	2608	
==>code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $ba <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2494	2608	
==>code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $ba <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1235	1437	
==>ILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1235	1437	
==>ILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBM <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7550	7691	
==><'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuator {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14406	14503	
==>p

=item RPe_ESLASH (-22)

Trailing \

=item RPe_BADESC (-23)

Unrecognized escape %s%s passed thr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3887	4021	
==>."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub cmp_ok ($$$@) {
    my($got, $typ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16356	16488	
==>mitive is safe {
        $n
    }
    multi sub round_gen(Num $n, Code $corner) returns Int is primitive is safe {
        (int($n) = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11124	11243	
==>print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

1;
__END__
#------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8310	8449	
==>6),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8310	8449	
==>6),
    "sim"      => chr(8764),
    "cong"     => chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	742	887	
==>created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	742	887	
==>created by HTTP::Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1535	1674	
==>ckage_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4738	4877	
==>ckage_re;
    }

    sub name {
        return $2 if shift->package() =~ $Package_re;
    }

    sub version {
        return $3 if shift->p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2936	3096	
==>$matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                return unless def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2840	2996	
==>$matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless def <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17391	17516	
==>turn $r;
}
sub match {
  my($r,$s)=@_;
  my $len = length($s);
  for my $start (0..$len) {
    local $X::str = $s;
    local $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20152	20252	
==>.

A compiler may choose to declare that its result not be recompiled by
some other containing parser <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20152	20252	
==>.

A compiler may choose to declare that its result not be recompiled by
some other containing parser <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24217	24319	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24217	24319	
==>MS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	495	612	
==>of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	495	612	
==>of a new Node object to be created as a Root]
           ~ q[ Node of the invocant Document; however, at least one of] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3017	3145	
==>e) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3017	3145	
==>e) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7797	7961	
==>axage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7797	7961	
==>axage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxag <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1029	1151	
==>$str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..40 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1198	1320	
==>$str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..40 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	672	799	
==>size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	672	799	
==>size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17599	17712	
==>uld have max == seen == ok.


There is one final item, the details.

  details           an array ref reporting th <==
2	/Users/nnunley/pugs/util/config_h.pl	954	1067	
==>ys
if ($^O =~ /MSWin32|mingw|msys|cygwin/i) {
    print OUT "#undef PUGS_HAVE_POSIX\n";
}
else {
    print OUT "#d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	462	574	
==>override things they didn't intend to.

# Determine which stack frame points to the code we are filtering.
# This <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	462	574	
==>override things they didn't intend to.

# Determine which stack frame points to the code we are filtering.
# This <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4547	4815	
==>}     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4547	4815	
==>}     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5621	5739	
==>( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "** <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	725	831	
==>tin is primitive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = time( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4111	4243	
==>,
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4304	4436	
==>,
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8352	8451	
==>r::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2177	2276	
==>r::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Gr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10192	10316	
==>= 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10192	10316	
==>= 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2307	2464	
==>ed $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2307	2464	
==>ed $quantifier;
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20305	20400	
==>nstead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20305	20400	
==>nstead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5361	5501	
==>_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5361	5501	
==>_continue);
            }
        }
    }

    $.Parser.new(parse => sub ($match, &continue) {
        my $matchy = $match.match;    # pugs p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1204	1298	
==><VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1204	1298	
==><VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20110	20268	
==>1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20389	20547	
==>1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1030	1130	
==>s returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_typ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1030	1130	
==>s returns Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_typ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46814	47025	
==>b {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e->get('$label')
                  ->to_str
                  ->is_equal(str->new('{}'))
                  - <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27545	27641	
==>t α", ":t listify(x)");
is(t(comb( fun => $one_elem_list, param => val(5) )), "list int", ":t li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15759	15859	
==>e, the
application's developer should see more details than joe public would.

Alternately, sometimes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15759	15859	
==>e, the
application's developer should see more details than joe public would.

Alternately, sometimes <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3094	3189	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3094	3189	
==>does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26171	26276	
==>y
it is being used with (others are ignored).  Each variable name can be any
defined and non-empty string, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26171	26276	
==>y
it is being used with (others are ignored).  Each variable name can be any
defined and non-empty string, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2120	2228	
==>child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2120	2228	
==>child) returns Tree {
    $child!set_parent($self);   
    $self!set_height($child);
    $self!set_width($chi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	79	327	
==>t don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Cons <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	79	327	
==>t don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Cons <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12143	12311	
==>e {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        al <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1236	1397	
==>%self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and ret <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1236	1397	
==>%self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7875	7991	
==>atch+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7863	7979	
==>atch+1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	40	127	
==>d::Perl::Interpreter;
use base qw/Blondie::Reducer Blondie::Reducer::DynamicScoping/;

u <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2361	2474	
==>lf = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15968	16080	
==>lf = shift;
    my $symbol = shift;

    return $self->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	950	1193	
==>onstant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	951	1194	
==>onstant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::constant( "\$" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5556	5672	
==>&& .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5556	5672	
==>&& .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4581	4730	
==>y $tmpl = {
        file    => { required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5234	5382	
==>y $tmpl = {
        file    =>{ required => 1, allow => [IS_FILE,IS_DIR],
                        store => \$from },
        to      => { required => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	746	849	
==>e other accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1230	1333	
==>e other accessors for other meta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1295	1410	
==>sign {
    my $self = shift;
    return $self->{'values'}{'sign'} if defined wantarray and !@_;
    $self->{'values' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9237	9335	
==>hannel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9237	9335	
==>hannel} }

  method add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10206	10308	
==>low.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10206	10308	
==>low.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21284	21381	
==>t {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21284	21381	
==>t {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	899	1017	
==>'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	899	1017	
==>'Not Acceptable',
        407 => 'Proxy Authentication Required',
        408 => 'Request Timeout',
        409 => 'Con <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8271	8372	
==>ay @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8271	8372	
==>ay @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite object is more practical to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2161	2320	
==>te):@$state

                $state = undef if $state->[0] > $#$nodes;

            }

            $match->{state} = $state;

            return $match if $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2091	2246	
==>te):@$state
                $state = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $match if $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	52	152	
==>rnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	52	152	
==>rnings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for t <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1045	1189	
==>ng ) {
            return $?CLASS.new( $string );
        }
        
        method accept ( $arg ) {  }
    }

    role Getopt::Argument::Normal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37077	37173	
==>?> after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Regexp::Parser>, L <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23842	23942	
==>an alternatives, and doesn't know about language specific details like
encodings or plurality.

My un <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23842	23942	
==>an alternatives, and doesn't know about language specific details like
encodings or plurality.

My un <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3415	3531	
==>tbackslash\{\}/g;
#    # segils
##    $file =~ s/([\$])/\\$1/gm;
#    # latex special chars
#    $file =~ s/([&\{\}]) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40233	40327	
==>my module when creating warning and
error messages for your sub-class.

  package Your::SubClas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	496	635	
==>ool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	475	611	
==>ool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ su <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34151	34251	
==>defined and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34151	34251	
==>defined and non-empty string.

=back

This is the main Translator constructor method:

=over

=item C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17099	17195	
==>lity was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17099	17195	
==>lity was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other pac <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15009	15113	
==>ft of the arrow in the function's type,
	# this causes the type variables in the cloned function to be in <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8257	8360	
==>ule DecimalIntegerLiteral {  # see 7.8.3
      <'0'>
    | <NonZeroDigit> <DecimalDigits>?
}
rule Decima <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13403	13527	
==>tta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13403	13527	
==>tta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_for_id(),
                'name' => ask <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3608	3712	
==>k above



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own lan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3480	3580	
==>k above

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own lan <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1070	1184	
==>gs = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1070	1184	
==>gs = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), map { ;~$_ => <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1223	1325	
==>actor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1223	1325	
==>actor common code with _trivial_http_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seco <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4533	4659	
==>h->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4545	4671	
==>h->{capture}  if $name eq '$/<>' || $name eq '$<>';
    
    return $match->{match}    if $name eq '$/';
    
    #print "get v <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9461	9554	
==>$set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9461	9554	
==>$set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2106	2240	
==>'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        assoc => 'left',
        precedence => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1346	1445	
==>..
    $supers = $class->get_attr(symbol->new('@:superclasses')) 
        if $supers->is_empty == $b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30179	30366	
==>w(':canonical'));                
                
                my $dispatcher;
                if ($order->equal_to(str->new(':descendant')) == $bit::TRUE) {
                    $dispa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14272	14396	
==>d?  This is the literal 'ok' or 'not ok'.
  name          name of the test (if any)
  number        test number (if any)

  t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4996	5161	
==>ub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list op <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4996	5161	
==>ub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19640	19748	
==>updating their "information schema" records, which in SQL are read-only,
not by using special 'create' or 'al <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19640	19748	
==>updating their "information schema" records, which in SQL are read-only,
not by using special 'create' or 'al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24864	24992	
==>ift;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "($self->{nparen})";
  }
}


{
  # (?{ ... })
  package R <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1474	1585	
==>h_alias> }
rule named_scalar_alias     {  \$\<<name>\>  \:\=  <construct>  }
rule array_alias            {  \@\< <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11877	12003	
==>) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12280	12406	
==>) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInteractiveCommand <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	535	673	
==>ldren(
            Tree.new(:node<Void>).add_children(
                Tree.new(:node<Object>).add_children(
                    Tree.new(: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1929	2069	
==>sename( $self->dir );
#         my $tmpsrc  = File::Spec->catdir( $tmpdir, $dirname );
# 
#         
#         ### copy over sources to a tem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2875	2991	
==>"QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2863	2979	
==>"QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fix grammar to not emit empty q <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	717	821	
==>the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	717	821	
==>the
# module/class in a use/no line is part of the Module::Compile game.
#
# Return true if this class su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11087	11211	
==>sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11237	11361	
==>sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24495	24613	
==>$S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(bra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20916	21034	
==>$S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->object(bra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11146	11264	
==>e
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11146	11264	
==>e
        my @ret = (gather {
            ./scan(sub ($version, $key, $val, $path, $domain, $port?, $path_spec?, $secur <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11419	11529	
==>other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14896	15006	
==>other );
}

multi method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9069	9187	
==>umbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9069	9187	
==>umbers.complement;

    # all non-zero integers
    $non_zero = Recurrence.new( 
        closure_next =>        sub ($x <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2731	2846	
==>r umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2731	2846	
==>r umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2242	2345	
==>edel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free soft <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2242	2345	
==>edel <sri@oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free soft <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14376	14481	
==>s arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14376	14481	
==>s arranged in a hierarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
Th <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	604	751	
==>ges($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $cl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	604	751	
==>ges($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $cl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4897	5036	
==>f"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gam <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4897	5036	
==>f"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2893	3002	
==>%standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2893	3002	
==>%standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $ol <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5920	6039	
==>t::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5920	6039	
==>t::Infinite::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3938	4054	
==>);
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4155	4271	
==>);
    #print "compile: matched.\n";
    my $flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1349	1476	
==>- write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1349	1476	
==>- write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $sp <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1965	2089	
==>e) {
		++$col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# commen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	568	684	
==>x_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	568	684	
==>x_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\n";
    r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17158	17254	
==>e use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17158	17254	
==>e use
it.  Hereafter, if any other package or application says that it uses
Locale::KeyedText, th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1148	1259	
==>s -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method inc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1148	1259	
==>s -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method inc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10552	10648	
==>lement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The comp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10552	10648	
==>lement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence set. The comp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5690	5827	
==>e'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10001	10138	
==>e'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	197	312	
==>eral (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	197	312	
==>eral (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3009	3130	
==>e"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # sm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3009	3130	
==>e"   => 'ó',  # small o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # sm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	63	201	
==>s (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	63	201	
==>s (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($value.chars <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9966	10082	
==>*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9966	10082	
==>*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($1, $2, $2);
            $file =~ s{ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	503	648	
==>s, so if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $.ca <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	503	648	
==>s, so if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $.ca <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6949	7066	
==>"";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_fail <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7007	7124	
==>"";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_fail <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	51	156	
==>eFinder;
use base qw/Blondie::Reducer/;

use strict;
use warnings;

use Set::Object;

sub new {
    my $cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5102	5198	
==>=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5102	5198	
==>=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but return <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	358	470	
==>arning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	358	470	
==>arning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3150	3261	
==>) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3138	3249	
==>) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15234	15337	
==>ned, such that there
should be no ambiguity when trying to invoke or implement it, and so an
application <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15234	15337	
==>ned, such that there
should be no ambiguity when trying to invoke or implement it, and so an
application <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5848	5972	
==>gs qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5848	5972	
==>gs qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11991	12089	
==>in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11991	12089	
==>in the recurrence that is right after the parameter.

- `previous( $x )`

Returns the element in th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	969	1086	
==>ndic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "E <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	969	1086	
==>ndic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital E, circumflex accent
    "E <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10065	10164	
==>?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10800	10899	
==>?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2907	3000	
==>s

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.h <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2907	3000	
==>s

$module_name.hs :: $module_path
	pugs --external $module_name $module_path > $module_name.h <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19595	19699	
==>et that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a superset of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24147	24251	
==>et that exists
over N dimensions rather than one.  The Relation operators are somewhat of
a superset of t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2628	2740	
==>f: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2628	2740	
==>f: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4045	4240	
==>lse.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4045	4240	
==>lse.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7504	7647	
==>ble( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7504	7647	
==>ble( '$cmd' );\n" . 
            "$_[1]     \$r->match( \@_[0, 4], {p => 0}, \$_[1] );\n" .
            "$_[1] }\n";
    }
    if ( $prefix eq q <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	460	574	
==>han ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	460	574	
==>han ?? $event<object> !! $event<from_nick>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27868	28030	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28147	28309	
==>mar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gra <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3061	3200	
==>tf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3061	3200	
==>tf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $!";
        unpack('%32N*', <$fh <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2518	2633	
==>t ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2518	2633	
==>t ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3994	4093	
==>erty_name;
    method GetBase ($O:) { $.base_object }
    method GetPropertyName ($O:) { $.property_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13236	13344	
==>l_var name=total> test cases</span>:<br />
		<span class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span cla <==
2	/Users/nnunley/pugs/util/importgraph.pl	1953	2038	
==>luster('RRegex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parse <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1438	1549	
==>ENT} || 1;
    if ($^O =~ /MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, concurrency not suppor <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1145	1241	
==>od

=head1 NAME

TestBuilder::TestPlan

=head1 SYNOPSIS

  use TestBuilder::TestPlan;

=head1 DES <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1561	1683	
==>hes,$key }  
        if $cap && +@matches == $cap { return @matches }
    }
    @matches
} 

sub parse_args (Str $x) return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1582	1666	
==>---------------------------------------------------------------------------
## inform <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1582	1666	
==>---------------------------------------------------------------------------
## inform <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7430	7521	
==>e(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1255	1346	
==>e(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
push @terms, sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16097	16277	
==>to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16097	16277	
==>to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqueue "NOTICE $to :$text",
    },

    # RAW
    raw => -> Str $command { e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2325	2438	
==>nctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref canno <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2325	2438	
==>nctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref canno <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1967	2097	
==>_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2184	2314	
==>_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <FILE>;
        # print "Pr <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	352	477	
==>= shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	253	378	
==>= shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
    );
}

s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1387	1501	
==>x) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type";
    # replace t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3734	3942	
==>1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3734	3942	
==>1].pop;
        if defined $i {
            &*unshift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2866	2980	
==>);
  });

  $self->add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1579	1673	
==>DTs are the implementation classes of all the L<Blondie::Nodes> and some
more objects.

They pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11568	11678	
==>ebug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11568	11678	
==>ebug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1543	1668	
==>roto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chu <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1543	1668	
==>roto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chu <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1007	1148	
==>[ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1007	1148	
==>[ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11	118	
==>{
  package Regexp::Parser::__object__;  

  sub class {
    my $self = shift;
    Carp::carp("class() depre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29460	29561	
==>urns true if
the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $ob <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17016	17134	
==>fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17016	17134	
==>fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3504	3638	
==>ems = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3504	3638	
==>ems = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[-1].isa(Perl6::Value::Li <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3568	3688	
==>>get_y, 0, '... got the right y for p');

is($p2->get_x, 100, '... still got the right x for p2');
is($p2->get_y, 200, '. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5768	5961	
==>eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_ent <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6232	6425	
==>eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_ent <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1726	1855	
==>p ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1726	1855	
==>p ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cook <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13299	13445	
==>efix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13293	13439	
==>efix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9551	9650	
==>= $conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9551	9650	
==>= $conn.compile_routine( $prd_create_tb_person );

    # Define and compile a procedure that will in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	710	820	
==>};
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	710	820	
==>};
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub c <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7582	7719	
==>];  # keys: "pArgs" "pCxt" "pFun" "pInv"
        dbg "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	269	372	
==>{
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	269	372	
==>{
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14841	14976	
==>,

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14841	14976	
==>,

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connected {
        if defined $key {
          enqueue " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24678	24778	
==>(at your option) any later version.  You should have received a
copy of the GPL as part of the Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24678	24778	
==>(at your option) any later version.  You should have received a
copy of the GPL as part of the Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15542	15650	
==>pan.

These methods may raise a warning if the new value would put the span 
in an invalid state, such as `st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15542	15650	
==>pan.

These methods may raise a warning if the new value would put the span 
in an invalid state, such as `st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29262	29387	
==>_return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29541	29666	
==>_return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3546	3652	
==>d

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3546	3652	
==>d

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3108	3251	
==>if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3108	3251	
==>if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12890	13089	
==>"push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13169	13368	
==>"push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15589	15689	
==>f Any - This contains zero or more attribute names and values
that help to define this Node.

=item C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15589	15689	
==>f Any - This contains zero or more attribute names and values
that help to define this Node.

=item C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	131	276	
==>$_, '$x', '$y') }
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&in <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3701	3801	
==>ay.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r8593.
# not in S29 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6940	7055	
==>text" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6998	7113	
==>text" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30244	30339	
==>n that order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34796	34891	
==>n that order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3009	3117	
==>= slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3009	3117	
==>= slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@he <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12335	12452	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12614	12731	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5568	5666	
==>ss_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_age + t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5568	5666	
==>ss_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime - ./current_age + t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	936	1062	
==>os;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	936	1062	
==>os;
    has $.match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3583	3702	
==>y $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3583	3702	
==>y $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4972	5111	
==>mpile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [],

      lib       => ['/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4799	4934	
==>mpile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [],
      lib       => ['/ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5002	5140	
==>ct $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5002	5140	
==>ct $end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span. <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3612	3770	
==>')->[$idx];
            },

            'array_clear' => sub {
                my $self = shift;
                @{$self->get_value('@:slots')} = (); # just re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6276	6378	
==>$iBar->id, 6, '... $iBar is the sixth id');
is($iBar->class, $Bar, '... $iBar refs to $Bar');

# try to <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11972	12082	
==>dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11972	12082	
==>dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, end = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8171	8274	
==>text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8171	8274	
==>text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5150	5269	
==>();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5150	5269	
==>();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 inf <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2976	3096	
==>gen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2976	3096	
==>gen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
    # ircnam <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6475	6573	
==>base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6475	6573	
==>base_volume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	248	361	
==>param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	248	361	
==>param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	72	202	
==>ime)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	72	202	
==>ime)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10534	10668	
==>ub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10528	10662	
==>ub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22415	22516	
==>>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22415	22516	
==>>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection t <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13184	13301	
==>lf = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	594	711	
==>lf = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->reduce($_) } $app->values;

    $self->prepa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1038	1142	
==>a

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in question/answer for <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1038	1142	
==>a

The Pugs Apocrypha in the F<docs/> directory are a series of documents, written
in question/answer for <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	119	370	
==>dText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	119	370	
==>dText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Y <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8565	8684	
==>f_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Loo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8623	8742	
==>f_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_tests_badpass) {
        $*ERR.say("# Loo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27231	27357	
==>EN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not per <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27231	27357	
==>EN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14270	14379	
==>et)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14270	14379	
==>et)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4412	4556	
==>urn;
        system( "rm -rf $my_tmp_dir" )                          and die $?;
    }

    return $meta;
}

=head2 package_re

=head2 prefix

=h <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1364	1503	
==>::canonical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreeze($self) );
        };

        $sha1->h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2628	2735	
==>no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2628	2735	
==>no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as ex <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	106	230	
==>uilder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        pu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	106	230	
==>uilder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        pu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19854	19951	
==>D however it likes; all Rosetta cares about is that the user
interface and behaviour conform to it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19854	19951	
==>D however it likes; all Rosetta cares about is that the user
interface and behaviour conform to it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6366	6504	
==>ternately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6366	6504	
==>ternately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain wi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	708	805	
==>on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	708	805	
==>on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Also note t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7101	7227	
==>rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7101	7227	
==>rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10190	10289	
==>= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10248	10347	
==>= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is simply t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1645	1744	
==>al packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1645	1744	
==>al packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12804	12899	
==>tine replaces HTML entities found in the $string with the
corresponding Unicode character.  Unde <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12804	12899	
==>tine replaces HTML entities found in the $string with the
corresponding Unicode character.  Unde <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5019	5112	
==>turns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5019	5112	
==>turns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1881	1992	
==>ule::Install::VERSION = *VERSION;
@inc::Module::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24540	24641	
==>*  [regmust changed to SV* for bminstr()--law]

Confined to regcomp/regexec.

 * regmlen      length o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1016	1138	
==>rns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1016	1138	
==>rns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! def <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24589	24689	
==>you must use accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24589	24689	
==>you must use accessor methods.
Locale::KeyedText does not declare any subroutines or export such.

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2300	2398	
==>))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveEx <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2300	2398	
==>))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveEx <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8129	8228	
==>>assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1954	2053	
==>>assign_open_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign(@_) };
push @statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2824	2947	
==>},
            )) . "\n"
    }))->code;

package main;
use IO::File;
use Pugs::Runtime::Match::Ratchet;

my $source_file = s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	631	750	
==>e Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messag <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	631	750	
==>e Pair constructor
#
# TODO - is_contiguous() should test if $step == 1
# TODO - test flatten(), is_lazy(), error messag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1492	1592	
==><?p6ws>?\)<?p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call_term'} = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41168	41260	
==>jects>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perlmonk.org>

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	709	896	
==>epeatedly_apply_and_accum'),
                Sym('&infix:<+>'),
                Sym('$x'),
                Sym('$x'),
                Sym('$y'),
            ),
        ),
    ),

    '&inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15556	15659	
==>quantifiers as objects, and makes 'min' and 'max' attributes of
other objects themselves.

=item Regexp: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3536	3637	
==>$code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3536	3637	
==>$code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	558	676	
==>, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	558	676	
==>, $protocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $me <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3095	3212	
==>lue::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3641	3758	
==>lue::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19426	19533	
==>lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19426	19533	
==>lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt>()>,
C<$botE<lt>curircnameE<gt>()>, C<$botE<lt>curhostnameE<g <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9242	9433	
==>ps\n";
            }
        }
        return @maybe;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4728	4852	
==>{

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4580	4701	
==>{
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5655	5843	
==>'{' ) {
                $t = [ 'BLOCK_START' => $ast ]
            }
            else {
                $t = [ $ast->{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{o <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	736	958	
==>($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_lis <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	736	958	
==>($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_lis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18009	18105	
==>de object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18009	18105	
==>de object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4232	4331	
==>ill be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4232	4331	
==>ill be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

Lines starting with <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24236	24363	
==><DecimalDigit>
    | <uriMark>
}
rule uriEscaped {  # see 15.1.3
      <'%'> <HexDigit> <HexDigit>
}
rule uriAlpha {  # see 15.1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1567	1665	
==>>find_dyn_sym("name"); # returns $value

    $self->leave_scope; # deletes pads since last enter_sc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21094	21202	
==>ySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21094	21202	
==>ySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase, etc).
Given this fa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5762	5924	
==>)),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5762	5924	
==>)),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20592	20686	
==>All of
their class/object attributes are private, so you must use accessor
methods.  Relation d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25144	25238	
==>All of
their class/object attributes are private, so you must use accessor
methods.  Relation d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4585	4693	
==>[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    JSX::global_object.<[[Put]]>(GetPropertyName( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12715	12946	
==>s;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12715	12946	
==>s;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3081	3262	
==>|
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3328	3509	
==>|
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $_[0]{w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	350	614	
==>es in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	350	614	
==>es in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages us <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3798	3982	
==>3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { deco <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3798	3982	
==>3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { deco <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7789	7891	
==>ze($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7789	7891	
==>ze($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10176	10273	
==>> method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10176	10273	
==>> method which is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16366	16572	
==>atch[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not implemented";
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16360	16566	
==>atch[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not implemented";
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1098	1204	
==>t.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last seen {time <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1098	1204	
==>t.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last seen {time <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5833	6031	
==>" .
                            "        { \$_[0]->{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fixity}_$op->{assoc <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7881	7990	
==>nction = traverse_ast ( %app<"pFun"> ); 
        dbg "# Context:   "; my $context =  traverse_ast ( %app<"pCxt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11817	11932	
==>rocess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11817	11932	
==>rocess it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	280	418	
==>t = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	280	418	
==>t = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed to process 3 items
    until($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2496	2653	
==>elf  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} ) {
        require "$self->{path}/$self->{dispatch}.pm";
        File: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1136	1285	
==>}",
    postfix_non =>       
        "exp 'name'         \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postfix', op1 => \$_[2], exp1 => \$_[1],} } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2458	2593	
==>inite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2458	2593	
==>inite::Functional {
    # TODO - optimize
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        push @r <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	88	193	
==>turned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests and d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	88	193	
==>turned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests and d <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2086	2239	
==>a reference.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3678	3827	
==>a reference.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8142	8273	
==>] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8130	8261	
==>] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$_[1]     else {
$_[1]       if ( ! defined <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9215	9330	
==>@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9215	9330	
==>@{$block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7158	7268	
==>y @rest = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$test\n";
    m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6183	6281	
==>[1] = RECOGNITION_FLAG;

    /*XXX should SvREFCNT_dec current value */
    r->substrs->data[0].sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21160	21253	
==>ick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21160	21253	
==>ick> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_ha <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5546	5660	
==>s) {
	my($var)=@$_;
        push(@vars,$var);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstracti <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14455	14562	
==>BADESC (-23)

Unrecognized escape %s%s passed through

=item RPe_BADPOS (-24)

POSIX class [:%s:] unknown

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21162	21258	
==>k> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21162	21258	
==>k> has joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handler <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6471	6567	
==>=> Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6471	6567	
==>=> Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13006	13092	
==>the same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13006	13092	
==>the same-number versions of Locale::KeyedText::Message
("Message") and Locale::KeyedTex <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1702	1796	
==>used, an alternate engine is invoked.

Currently, only the I<PCRE> flavor is supported.

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2613	2741	
==>atch::Ratchet; # overload doesn't work without this ???\n\n" .
            join("\n", ( 
                map { "$_" } @{$<regex>} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20671	20769	
==>ackrefs)
  package Regexp::Parser::ref;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new { <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12427	12598	
==>t_pass',
                      2 => 'test_todo',
                      3 => 'test_skip',
                    };
      my $class = 'non_test';
      if (exists $lines->{$.}) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5033	5146	
==>@{ $tests->{meat}->{test_files} };

if($#t_dirs < 0) {    
    for(keys %$files) { handle_t_file( catdir(split /\/ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19131	19247	
==>t nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginnin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19131	19247	
==>t nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginnin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22757	22881	
==>),
				param => comb(
					fun => ide("length_and_first"),
					param => comb(
						fun => ide("listify"),
						param => va <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5795	5889	
==>m/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$nu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5795	5889	
==>m/4096)%64)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$nu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	131	253	
==>de = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	131	253	
==>de = shift;
    my $pkg = caller;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILT <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1064	1183	
==>suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1064	1183	
==>suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = shift;
    my $path = "$self->{API}{install_lib <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12681	12779	
==>inite.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if the <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12681	12779	
==>inite.

- `start()`

Returns the start element in the recurrence.

Returns negative infinite if the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23646	23742	
==>o short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
sen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23646	23742	
==>o short time.

If you supply C<:floodcontrol(1)> to the constructor, this module won't simply
sen <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	310	435	
==>e            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	310	435	
==>e            () { $.end - $.start + $.density }
method start_is_closed () { return Bool::True  }
method start_is_open   () { r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	458	674	
==>buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	458	674	
==>buffer ~= "=head$size ";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                wh <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	2	106	
==>/usr/bin/perl

package Blondie::SmokeBackends;

use strict;
use warnings;

use Test::More 'no_plan';
#use <==
2	/Users/nnunley/pugs/util/package-osx.pl	5997	6086	
==>r/local/man/man3/Perl6::Overview::Functions.3
        /usr/local/man/man3/Perl6::Overview: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28478	28651	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28757	28930	
==>>( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7856	8037	
==>te($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7856	8037	
==>te($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8587	8744	
==>_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8587	8744	
==>_[0],
               }
    };
};

sub before { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        #return $match unless $match->{b <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27738	27860	
==>s in a
somewhat messy output).

=item C<HARNESS_PERL>

Usually your tests will be run by C<$^X>, the currently-executing Pe <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2087	2200	
==>args{author}   ||= '.author';
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= Cwd::abs_path($FindBi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35859	35958	
==>and returns a new Relation::Example that has the same heading
and whose body contains all of the tup <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37891	37990	
==>and returns a new Relation::Example that has the same heading and
whose body contains all of the tup <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2776	2879	
==>ns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2776	2879	
==>ns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a Set::Infi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	587	850	
==>version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	587	850	
==>version applies to all of this file's packages.
} # package Rosetta

###########################################################################
###########################################################################

class Rosetta::Interface::DBMS {

    # Ex <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	344	468	
==>ined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	344	468	
==>ined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

sub simple_escape (Str $string is copy) returns S <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6494	6589	
==>t', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'T <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6494	6589	
==>t', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'T <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1376	1481	
==>ix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtU <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1297	1398	
==>ix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtU <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27431	27528	
==>nstructed.  If you want to
conceptually change an existing Message object, you must create a new
o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27431	27528	
==>nstructed.  If you want to
conceptually change an existing Message object, you must create a new
o <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1325	1425	
==>ult2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $proto = $O.<[[Prototyp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2501	2624	
==>@_;
    $self->{neg};
  }

  sub family { 'alnum' }

  sub type {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $sel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1064	1176	
==>_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p'd this from JIB::Package -- subclass/inherit!
my $P <==
2	/Users/nnunley/pugs/util/addauthors.pl	70	176	
==>er;
$|++;

my %comitters;

while (<>) {
  next unless /^r(\d+) /;
  my ($r, $comitter, $date) = split /[|:] <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	605	710	
==>rator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec for this file). <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	605	710	
==>rator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec for this file). <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3459	3712	
==>aram('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce al <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1473	1608	
==>lse {
        return $FALSE;
    }        
}

1;

__END__

=pod

=head1 NAME

bit - the core bit type

=head1 METHODS

=over 4

=item B< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3288	3428	
==>('file') ) {
            error("No file associated with this object -- " .
                  "can not extract meta object" );
            ret <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	771	866	
==>a system-wide GHC package
    for use with other Haskell programs, type '$Config{make} register' <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1581	1686	
==>NOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyAp <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1581	1686	
==>NOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/MyAp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10060	10243	
==>ed eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17481	17571	
==>ized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17481	17571	
==>ized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2176	2324	
==>$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infini <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2176	2324	
==>$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infini <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5419	5640	
==>node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5419	5640	
==>node => $?SELF,
            *%{$child_node},
        );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'node_ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1912	2051	
==>t\b')
    if $ENV{PUGS_SMOKE_EXCLUDE_EXT}
        or ($ENV{PUGS_RUNTIME} and ($ENV{PUGS_RUNTIME} eq 'JS' or
                   $ENV{PUGS_RUN <==
2	/Users/nnunley/pugs/util/combine_tests.pl	365	473	
==>ence.
# Note: no copy is made!
#
# Adds a more_events[] with events to each event for which
# there are varia <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	850	954	
==>h_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	850	954	
==>h_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* more or less <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1763	1867	
==>l_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open M <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1763	1867	
==>l_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open M <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24911	25000	
==>C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immedia <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24911	25000	
==>C<:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immedia <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29862	29973	
==>e argument C<$attrs>.  The new Relation::Example has all
of the tuples of the original (or rather, the correspon <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2411	2628	
==>ach %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2411	2628	
==>ach %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	637	742	
==>le(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	637	742	
==>le(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33865	34113	
==>=> bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2	101	
==>ckage Pugs::Compiler::Rule;
$Pugs::Compiler::Rule::VERSION = '0.06';

# Documentation in the __END__ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	762	870	
==>ems);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	762	870	
==>ems);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2802	2896	
==>urr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2802	2896	
==>urr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11186	11289	
==>t/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11186	11289	
==>t/html', :$charset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	958	1061	
==>piler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	958	1061	
==>piler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8441	8595	
==>p1}{stmt} eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n" . _emit( $n- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	524	620	
==>RED, $args{descr}, RESET;

  if($args{ensure}->()) {
    printf STDERR "skipped (%sgood%s).\n", B <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17419	17518	
==>ompile controls the compilation process, calling each compiler
at the right time with the right data <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17419	17518	
==>ompile controls the compilation process, calling each compiler
at the right time with the right data <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	984	1095	
==>and deciphering operations.)

Although it is secure when used properly, using it incorrectly can lead to 
seriou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	984	1095	
==>and deciphering operations.)

Although it is secure when used properly, using it incorrectly can lead to 
seriou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4706	4851	
==>rse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4706	4851	
==>rse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<*> 5 infix:<+>' 
        # || 
        # postf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28890	29106	
==>:capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29169	29385	
==>:capture( 'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5161	5266	
==>();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5161	5266	
==>();

The same as C<finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4936	5089	
==>rs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4936	5089	
==>rs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13147	13249	
==>in void context the arguments are decoded in-place.

This routine is exported by default.

=item _decod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13147	13249	
==>in void context the arguments are decoded in-place.

This routine is exported by default.

=item _decod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2897	2991	
==>Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2897	2991	
==>Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1985	2129	
==>eblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1907	2046	
==>eblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_ <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	555	695	
==>y = pop @stack;
        defined $y or die "Stack underflow\n";
        if ($tok eq '+') {
            push @stack, $y + $x;
        } elsif ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	277	375	
==>reduce(
		Blondie::TypeSafe::Annotator->new->annotate($runtime, $prog)
	);
}

{
	package Blondie::T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7950	8055	
==>ush @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1775	1880	
==>ush @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1537	1671	
==>r Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1537	1671	
==>r Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1059	1217	
==>escape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1059	1217	
==>escape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3287	3412	
==>ass::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	58	183	
==>ass::Accessor P6RulesInP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5973	6094	
==>k( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5973	6094	
==>k( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5120	5248	
==>y)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_adm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4979	5107	
==>y)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless $self->is_adm <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2606	2722	
==>op_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$id}{'ops <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26091	26187	
==>entifierPart>> <SourceCharacter>
}
rule DecimalEscape {  # see 15.10.1
      <DecimalIntegerLiter <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	420	567	
==>) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.push($tok);
            next;
        }
        my $x = @stack.pop() err die " <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1842	1941	
==>1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not prov <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1842	1941	
==>1>, the default for the C<:name> form.)  By convention, tags are 
lowercase.

If C<note> is not prov <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1888	1993	
==>specified in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plainte <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1888	1993	
==>specified in the options; check your 
cipher's documentation for details.

=item C<decipher>

    $plainte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2031	2151	
==>ite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2031	2151	
==>ite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1556	1656	
==>r many purposes.  
Although the interface is said to be procedural, it is invoked via two class 
meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1556	1656	
==>r many purposes.  
Although the interface is said to be procedural, it is invoked via two class 
meth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2040	2151	
==>y) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2040	2151	
==>y) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.difference( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11554	11650	
==>e "key" by which to sort. If
the closure returns a Num, C<E<lt>=E<gt>> is used for comparison,
ot <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1741	1837	
==>represented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1741	1837	
==>represented as processing instructions, or maybe comments
 # in the "normative XML"
 $node->add_d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2717	2846	
==>* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2934	3063	
==>* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5480	5581	
==>e

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5290	5389	
==>e
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1083	1237	
==>$.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %pl <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1083	1237	
==>$.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced class detection
           }
        }
    }
    return %pl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10252	10396	
==>eturn $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10252	10396	
==>eturn $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4607	4753	
==>rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4607	4753	
==>rx:P5{^([A-Z])<$} {
                @modifier_stack.push($0);
                %events<start_modifier>($0);
            }
            when rx:P5{^>$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2256	2390	
==>'  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2256	2390	
==>'  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39797	39904	
==>y
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Free Software Found <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39797	39904	
==>y
it under the terms of the GNU Lesser General Public License (LGPL) as
published by the Free Software Found <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1750	1853	
==>.
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1750	1853	
==>.
}

method contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	443	558	
==>_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<V <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	443	558	
==>_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<V <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22674	22782	
==>his module doesn't have bugs.  I don't know of any in
this current version, because I've tried to fix those I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	443	565	
==>ry', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	930	1044	
==>aps, be possible to do this
# Maybe.  And perl5 might benefit from its existence.  Normally this
# kind of reverse- <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	974	1223	
==>){
    if $pass > 2 {
        chop $string;
        "$string and " ~  
        pick (
            "$x",
            "is $x",
            "$x, period",
            "$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1864	1977	
==>f->{levels}}, [ $opt ];
}

sub code { 
    warn "not implemented";
}

sub match {
    warn "not implemented";
}

s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20794	20886	
==>epare a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Inst <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20794	20886	
==>epare a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Inst <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10454	10568	
==>{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$uns <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10454	10568	
==>{
    my $result = $string;
    if ($string.defined && $unsafe_chars.defined) {
        #unless (exists %subst{$uns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12471	12643	
==>lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } el <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12471	12643	
==>lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } el <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	911	1017	
==>ons: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default string <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	911	1017	
==>ons: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default string <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7654	7764	
==>orization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7654	7764	
==>orization") }

method proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16378	16526	
==>uct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *su <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20804	20952	
==>uct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *su <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13718	13818	
==>asurements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13718	13818	
==>asurements, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17396	17584	
==>odo              number of todo tests seen
  bonus             number of todo tests which 
                      unexpectedly passed

  skip              number of tests skipped

So a succe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6244	6355	
==>char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6232	6343	
==>char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	362	483	
==>Repoindex );

    for my $maybe ( @list ) {
        print $/. Dump( $maybe ) .$/ if $maybe->{$key} =~ $pat;
    }
}

sub u <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23298	23392	
==>:-
  rmSomewhere(Re,F0,Fx,B0,Bx,E0,Ex),
  (rmGlobal(Re,Fx,F1,Bx,B1,Ex,E1), !; F1 = Fx, B1 = Bx, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	408	523	
==>e, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	408	523	
==>e, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17575	17671	
==>etta::Interface::DBMS object represents a single active Rosetta virtual
machine; it has a spartan <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17575	17671	
==>etta::Interface::DBMS object represents a single active Rosetta virtual
machine; it has a spartan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9948	10107	
==>evert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9948	10107	
==>evert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1800	2003	
==>');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PAR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1800	2003	
==>');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PAR <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	498	615	
==>od start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method en <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	498	615	
==>od start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method en <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16839	16939	
==>e.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyMo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16839	16939	
==>e.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyMo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	608	719	
==>port { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less u <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	608	719	
==>port { $CONTENT_TYPE   }
sub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1518	1628	
==>gex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1518	1628	
==>gex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* < <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	310	439	
==>de> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <su <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	310	439	
==>de> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <su <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4602	4727	
==>do, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exce <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4660	4785	
==>do, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exce <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5400	5492	
==>y($name,$rep,$type,@pairs)=@$_;
        my $o = PIL::PIL1CPerl5::NodesInfo::Object->new($name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25284	25378	
==>ng C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25284	25378	
==>ng C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1301	1461	
==>inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1301	1461	
==>inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3530	3641	
==>path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3530	3641	
==>path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str $_path) returns Str is e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4386	4562	
==>$closure->do(
                    list->new($val)
                )
            );            
        }
        elsif ($closure->isa('block')) {
            $closure->env->set( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	170	282	
==>blessed/;

use Blondie::Reducer::DuplicateFinder;
use Blondie::TypeSafe;

sub new {
	my $class = shift;

	bless { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40214	40312	
==>ton, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must ca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40214	40312	
==>ton, MA  02110-1301, USA.

Any versions of Locale::KeyedText that you modify and distribute must ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6661	6770	
==>ually contain getters for $() and such

### getters need to know what you want (str, bool, hash, array, match) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6437	6545	
==>ually contain getters for $() and such
### getters need to know what you want (str, bool, hash, array, match) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11038	11143	
==>our program.  It is analagous to a simplified version of the
"Document" interface defined in the XML DOM s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11038	11143	
==>our program.  It is analagous to a simplified version of the
"Document" interface defined in the XML DOM s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20260	20376	
==>($tot->{sub_skipped}) {
        $bonusmsg .= ", $tot->{sub_skipped} subtest"
                     . ($tot->{sub_skipp <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6876	6972	
==>a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6876	6972	
==>a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	500	603	
==>capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Varia <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	500	603	
==>capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Varia <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	416	558	
==>acktrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtracking controls <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	416	558	
==>acktrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtracking controls <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8095	8209	
==>Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8095	8209	
==>Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24804	24902	
==>f Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

Th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29356	29454	
==>f Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	182	310	
==>b flags {
    my $self = shift;
    $self->{flags};
  }

  sub family {
    my $self = shift;
    $self->{family};
  }

  sub typ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	230	324	
==>s::Iterator->new(\*TEST);
  my $it = Test::Harness::Iterator->new(\@array);

  my $line = $it-> <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	120	243	
==>$char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #mult <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	120	243	
==>$char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #mult <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19151	19246	
==>le.  Likewise, emulation layers for any other programming language can
be supported, such as Tut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19151	19246	
==>le.  Likewise, emulation layers for any other programming language can
be supported, such as Tut <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4698	4909	
==>...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link from altdir to install dir
                    ### then from pathdir, to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3726	3885	
==>y $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3866	4025	
==>y $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags->{args},
        );
        $match or next <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	765	886	
==>k - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = t <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	765	886	
==>k - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14575	14679	
==>This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14575	14679	
==>This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language.  For ex <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13053	13187	
==>unlessm;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($di <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12695	12824	
==>}
    }
  }
  sub _is_found_backwards {
    my($f)=@_;
    my $pos = $X::pos;
    local $X::pos = $X::pos;
    my $at_pos = sub{ F <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15177	15277	
==>red
"root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15177	15277	
==>red
"root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speaking, the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	236	487	
==>EXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	236	487	
==>EXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_k <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35414	35510	
==>ument, in which case the new Relation::Example has either all of the tuples of
the original, or h <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	569	664	
==>type { [ map { Blondie::TypeSafe::Type::Std->new($_) } grep { $_ ne "->" } split /\s+/, $_[0] ]} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26694	26790	
==>bject.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26694	26790	
==>bject.
The Message Key attribute of the new object is set from the named parameter
$msg_key (a st <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7569	7667	
==>at" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a referenc <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7569	7667	
==>at" operation (*@x).
Returns a lazy list containing the lazy array elements.

  # insert a referenc <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	176	289	
==>ht mehr
my $welt = Welt.new();  	# (fast) wie in Perl 5
my $welt = new Welt();  	# wie in Perl 5
my Welt $welt = n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20226	20326	
==>t's is own section, elsewhere.


  regnode program[1];     /* Unwarranted chumminess with compiler. * <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13200	13295	
==>: sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6675	6770	
==>: sprintf("\\x%02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1741	1834	
==>+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1741	1834	
==>+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	863	971	
==>? $_[2] : $_[3]
            },
			type => [map { Blondie::TypeSafe::Type::Std->new($_) } qw/GV str/ => "int"] <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2355	2463	
==>sic::sign($x);
 }
 multi Math::Basic::sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4936	5039	
==>e_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  $self->add_handler('\t' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3932	4043	
==>);
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15500	15762	
==>l(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15779	16041	
==>l(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2287	2383	
==>for continuous ciphering.

Both of these functions return a closure.  Call the closure with a blo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2287	2383	
==>for continuous ciphering.

Both of these functions return a closure.  Call the closure with a blo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5963	6071	
==>C{$file};
        push @{$self->{extensions}}, &{$new}($pkg, _top => $top );
    }

    $self->{extensions} | <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1602	1702	
==>approaches to rules, so this
file may or may not go anywhere.  The plan as of this moment is to
conti <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12096	12205	
==>};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12096	12205	
==>};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str $from, St <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6094	6200	
==>odel::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6094	6200	
==>odel::Document $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22288	22386	
==>> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22288	22386	
==>> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	626	743	
==>},
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( ca <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3788	3888	
==>::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3788	3888	
==>::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Perl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5039	5146	
==>ads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my % <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5039	5146	
==>ads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my % <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5262	5449	
==>urrent" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7024	7211	
==>urrent" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_metho <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	389	514	
==>~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	514	624	
==>~ /\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2003	2121	
==>\&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2014	2132	
==>\&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1194	1305	
==>ub store {
    my ($self, $key, $value) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2859	2988	
==>_count++;
    #my $fixity = $opt->{fixity};
    #$fixity .= '_' . $opt->{assoc} if $opt->{fixity} eq 'infix';
    for my $level <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	728	1144	
==>:Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	728	1144	
==>:Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9292	9394	
==>t-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style mes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9292	9394	
==>t-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::Headers> class encapsulates HTTP-style mes <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13352	13450	
==>>{ $.param },
		type($.body),
	),
}

# identifiers pass the generic variables unchanged
ide: generi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1057	1173	
==>turn $o;
}
sub set_str {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3310	3415	
==>{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3310	3415	
==>{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$matches[0]} if ref($matches[0]) eq 'Pugs::Runtime: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3167	3275	
==>=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Age <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3167	3275	
==>=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. Accept

=item 5. User-Age <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3082	3214	
==>ure> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3082	3214	
==>ure> \]
         ]
}


regex type { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2034	2138	
==>>SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14554	14657	
==>>SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3115	3285	
==>ate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3115	3285	
==>ate = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my @matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1930	2107	
==>{
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2177	2354	
==>{
        \< before <?ws> <rule> \> 
        
        { return { before => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	640	772	
==>t ok \# skipped as problematic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $r <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1539	1656	
==>e > -M $config_template) {
        print <<".";
*** Build config file '$filename' is older than template
    '$config_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4052	4162	
==>n = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4052	4162	
==>n = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25181	25281	
==>rmission to link Rosetta with other free software
components, as defined by the Free Software Foundat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25181	25281	
==>rmission to link Rosetta with other free software
components, as defined by the Free Software Foundat <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1652	1775	
==>f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1652	1775	
==>f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug = 1;

=head1 DESCRIPTION

Perl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3496	3598	
==>::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object repr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3496	3598	
==>::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object repr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	498	597	
==>v;
		my $orig = $node->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	583	800	
==>ft;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	583	800	
==>ft;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($ev <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	526	631	
==>pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	526	631	
==>pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$high> times. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9738	9849	
==>XT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9738	9849	
==>XT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	67	171	
==>s defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	67	171	
==>s defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $stat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	26	151	
==>erl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	26	151	
==>erl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zeroize() {
            # No state to zero <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23856	23982	
==>08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29043	29147	
==>08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #d <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4557	4682	
==>Class;  -->  class MY::Class;

    open $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   -->  my $f = open 'f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5212	5327	
==>b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5212	5327	
==>b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', 
        'AST +/*/[]/{} looks ok' 
    );
    #pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15046	15160	
==>{
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $diges <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15046	15160	
==>{
    require Digest::SHA1;
    my ($class, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $diges <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8780	8914	
==>$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8780	8914	
==>$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10728	10835	
==>UTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10728	10835	
==>UTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove( $set )`

Removes elements from <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5268	5408	
==>y $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3768	3908	
==>y $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() offset past end of array\n";
        $off = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10452	10574	
==>f($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10452	10574	
==>f($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11865	12008	
==>cl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12144	12287	
==>cl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" )
       ,
         ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2915	3029	
==>erty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $dat <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2915	3029	
==>erty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $dat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7158	7323	
==>\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7622	7787	
==>\s+/, $v;
                    $op ||= '>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26414	26530	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26693	26809	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  matc <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22319	22420	
==>a,to_lower(C)), char_type(Cb,to_lower(C)).

charset_member(_E,C,[char(C)|_]) :- !.
charset_member(E0,C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6146	6262	
==>($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\"." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6146	6262	
==>($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left channel \"$chan\"." <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1150	1285	
==>TTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1150	1285	
==>TTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" unle <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6906	7001	
==>().insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6906	7001	
==>().insert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2323	2418	
==>tokenClone;
    $self->whitespaceOperatorTable()->{$spacePresent[1]} = %tokenClone;
  }

  $toke <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	565	659	
==>y} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, $func) if($funcs{$key} =~ $fu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	287	389	
==>ently on the goal list.

CAVEAT - This file so far represents only a an hour or two of work.
It is very <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1696	1837	
==>erms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1696	1837	
==>erms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3253	3396	
==>=> $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3500	3643	
==>=> $_[0]{ws1}(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifi <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	966	1238	
==>3 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     oct <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	966	1238	
==>3 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     oct <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5555	5652	
==>web using this
function.  If you need that information you should use the full OO
interface (see L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5555	5652	
==>web using this
function.  If you need that information you should use the full OO
interface (see L <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	467	580	
==>bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	467	580	
==>bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, ma <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3779	3946	
==>ex--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3779	3946	
==>ex--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4539	4655	
==>ee($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4322	4433	
==>ee($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2399	2524	
==>) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simpli <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2399	2524	
==>) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TODO - simpli <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	801	933	
==>"A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi su <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	801	933	
==>"A-Za-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi su <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3029	3120	
==>BS

my $newconv;
$conv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-parens <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2167	2291	
==>( $currfile ) ) if $Config{recurse};
            } else {
                push( @hits, $currfile ) if $currfile =~ $Config{in <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3442	3554	
==>ues{license};

    $values{license}           ||= 'unknown';
    $values{distribution_type} ||= 'module';
    $va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25360	25457	
==>bute
such a system following the terms of the GPL for Rosetta and the licenses
of the other compon <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25360	25457	
==>bute
such a system following the terms of the GPL for Rosetta and the licenses
of the other compon <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14690	14799	
==>ror( "Could not write alternatives file: $@" ), return;

    return 1;
}

# Local variables:
# c-indentation-s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1625	1723	
==>);

    $<name>:=(<ident>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { sub_c <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1440	1536	
==>uire ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin:: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1360	1452	
==>uire ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	533	652	
==>nforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers simply by changing the class nam <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	533	652	
==>nforming to the Cipher API are interchangable, allowing a programmer to 
change ciphers simply by changing the class nam <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24671	24777	
==>olean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation's heading.

=it <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29223	29329	
==>olean attribute.

=item C<heading () returns Set of Str>

This method returns this Relation's heading.

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13134	13250	
==>um;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6609	6725	
==>um;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_ob <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4026	4164	
==>d src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @candidates, $File::F <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22170	22267	
==>PTION

Relation::Example provides a minimal in-RAM
storage implementation for the L<Relation> libr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	97	209	
==>ter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	97	209	
==>ter classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7449	7595	
==>constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7642	7788	
==>constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14323	14433	
==>y $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1803	1913	
==>y $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22622	22714	
==>s.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22622	22714	
==>s.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also see C<nick> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	935	1075	
==>lt); # works for all nodes


    # perl equivalent

    (sub {
        my $x = shift;
        2 + $x
    })->( 2);

=head1 DESCRIPTION

The b <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1534	1667	
==>eq $pwd; # delegate back to parent dirs
        }
        $$sym =~ /([^:]+)$/ or die "Cannot autoload $caller";
        unshift @_, ($ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4721	4852	
==>ken\n"); exit(0);
      }
      lp = POPs; pops_left--;
      lcp = POPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2414	2511	
==>interpreter.

=over 4

=item Thunk

Something you thunk of but haven't yet executed.

For example: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	616	718	
==>hers simply by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	616	718	
==>hers simply by changing the class name used.

Ciphers used with the Cipher API must operate on bytes or <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2703	2816	
==>r( dir => $builddir ) 
#         or error( "Could not chdir to '$builddir'" ), return;

### XXX perl-ify
sub build <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2345	2438	
==>rical ?? $x.round_away_from_zero
		!! $x.round_ceiling
}

our Int multi Num::round_down (Num $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	117	208	
==>mpiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	117	208	
==>mpiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16206	16321	
==>fied {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16206	16321	
==>fied {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1966	2063	
==>sing synopsis, you should
be left with nothing but questions about what this object represents.

I <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1966	2063	
==>sing synopsis, you should
be left with nothing but questions about what this object represents.

I <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5732	5907	
==>}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9209	9384	
==>}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14244	14347	
==>('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8448	8551	
==>('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1823	1914	
==>:Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> repr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1912	2003	
==>:Runtime::Rule> provides the runtime engine for Rules.

=item * L<Pugs::Runtime::Match> repr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20189	20289	
==>ded intentionally in a simple fashion so that it is easy to maintain and
and easy for developers to s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20189	20289	
==>ded intentionally in a simple fashion so that it is easy to maintain and
and easy for developers to s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6680	6797	
==>norecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || %mods{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13592	13703	
==>n $sep, grep { $_ ne "" and $_ ne "." and
		($is_mswin or !((stat$_)[2]&0020)) }
		    split quotemeta ($sep), $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	913	1026	
==>:False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	913	1026	
==>:False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	416	527	
==>nt Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1205	1316	
==>nt Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}->{t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3970	4091	
==>xical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3982	4103	
==>xical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, referred as $0<a>
    $<a> := ( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3397	3495	
==>expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3455	3553	
==>expected_type'";
    my $test := $ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3920	4103	
==>ix this proper!
        system( qq[tar --exclude $jibdir --exclude .svn -czf $data $path] )
                                                        and error($?), return;
        syste <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27857	27967	
==>ATCH_COPIED_off(prog)	((prog)->reganch &= ~ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	552	647	
==>flux.  It is simultaneously being
overhauled, cleaned up, and p6 added.  It's basically three da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2274	2390	
==>::Balanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2185	2298	
==>::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2204	2316	
==>';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2204	2316	
==>';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	987	1121	
==>m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	987	1121	
==>m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3241	3360	
==>de);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defined $pil_tree;
	    my $warn = $@ ? "Eval of -CPerl5 cod <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7719	7899	
==>) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7719	7899	
==>) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($input);
        }
        else {
            die <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4997	5125	
==>)             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4997	5125	
==>)             is rw { $self!date_header("Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header(" <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	917	1040	
==>edilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	917	1040	
==>edilla
    "ETH"      => 'Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4581	4691	
==>rence( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4581	4691	
==>rence( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.dif <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4262	4384	
==>infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4262	4384	
==>infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5455	5588	
==>evious }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5455	5588	
==>evious }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        complement_next =>     sub ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3706	3861	
==>> $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3706	3861	
==>> $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($en <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14382	14505	
==>translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14382	14505	
==>translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	941	1091	
==>r = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	941	1091	
==>r = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$matc <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2341	2440	
==>R

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2341	2440	
==>R

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2170	2288	
==>ename.c, status $?\n"
         ."# Where is your C compiler?\n"
         ."1..0 # skipped: can't build test executabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3613	3724	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(horiz => 0)) if $cc;
    re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8440	8564	
==>@$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pRHS);
    "p6_assign($lhs,$rhs)"
}
NO <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3660	3759	
==>gs_revision} <=> $a->{pugs_revision} ||
      $b->{timestamp}[0]  <=> $a->{timestamp}[1]
    } @{ $c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3321	3425	
==>etric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3321	3425	
==>etric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) returns Bool {
    $one.includes($me <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	227	376	
==>\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{con <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	227	376	
==>\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} = $content;
    #} else {
        #$self->{con <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15586	15704	
==>he new value would put the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this ca <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15586	15704	
==>he new value would put the span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16087	16294	
==>reedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16366	16573	
==>reedy_star(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::altern <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	131	232	
==>:Module - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > pugs -e 'use Sample::Module'

= DESCRIPTIO <==
2	/Users/nnunley/pugs/util/package-osx.pl	8373	8470	
==>/man3/Perl6::Tutorial.3pm
        /usr/local/man/man3/Pugs::Doc::Hack.3
        /usr/local/man/man <==
2	/Users/nnunley/pugs/util/build_pugs.pl	379	505	
==>ptions(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs executable

This script calls GHC to build a pugs exectu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	944	1074	
==>ntication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	944	1074	
==>ntication Required',
        408 => 'Request Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Req <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18287	18397	
==>ng out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I have found that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18287	18397	
==>ng out the
best way to deal with it.  But for displaying to users, easy messages are
better.

I have found that <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2783	3060	
==>fer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2783	3060	
==>fer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7605	7715	
==>and(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7605	7715	
==>and(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2046	2157	
==>::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2046	2157	
==>::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7125	7278	
==>ame' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7125	7278	
==>ame' => 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	547	649	
==>onfess 'You must override _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1578	1691	
==>b"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1578	1691	
==>b"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	210	366	
==>s;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	210	366	
==>s;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (want. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1156	1254	
==>sive test suite to run against all Engines

=head1 VERSION

This document describes Rosetta::Valida <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1156	1254	
==>sive test suite to run against all Engines

=head1 VERSION

This document describes Rosetta::Valida <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9344	9469	
==>s
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9344	9469	
==>s
    curnick       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostn <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2277	2374	
==>xpression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2277	2374	
==>xpression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Com <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2379	2564	
==>nstall                       
$Repodir        = $Root . '/jibs';                  # remote repo root
$Repoindex      = $Repodir . '/index';              # index file for the repo

### be <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2446	2585	
==>rn "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expect;
          return "E <==
2	/Users/nnunley/pugs/util/config_h.pl	94	191	
==>r);

=pod

=head1 DOCUMENTATION

This file seems to determine some configuration.

  util/config_h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8514	8618	
==>erl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2339	2443	
==>erl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2807	2950	
==>|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2991	3134	
==>|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 syntax inside c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	360	481	
==>ning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	360	481	
==>ning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25506	25608	
==>urce
code of the other components when and as the GPL requires distribution of
source code.  However, f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25506	25608	
==>urce
code of the other components when and as the GPL requires distribution of
source code.  However, f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14369	14468	
==>=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14369	14468	
==>=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME header. <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13060	13191	
==>0755, "$initrd_mnt/lib/" . basename $_;
      }
    };

  step
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	842	972	
==>d == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.density, density => $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	842	972	
==>d == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.density, density => $. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9011	9128	
==>erse );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9011	9128	
==>erse );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zer <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4776	4882	
==>turn "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4776	4882	
==>turn "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2815	2974	
==>hile (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2722	2877	
==>hile (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matche <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	362	481	
==>$mod .= ".pm" unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20489	20601	
==>p {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Pr <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6261	6386	
==>ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6261	6386	
==>ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4487	4616	
==>eader
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4487	4616	
==>eader
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11739	11935	
==>y ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c);

      if ($n =~ /\d/) {
        --&RxPOS;
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	645	784	
==>y ($S, $cc) = @_;
    my $c = '\\';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      $c .= (my $n = $1);

      return $S->$c($cc) if $S->can($c) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2360	2775	
==>tta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2360	2775	
==>tta::Interface::Command object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Command

###########################################################################
###########################################################################

class Rosetta::Int <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1001	1126	
==>s export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is ex <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1001	1126	
==>s export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4512	4707	
==>:Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4512	4707	
==>:Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            next;
                        }
                        
                        #LWP::Debug: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24152	24291	
==>$self = shift;
    "(?";
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2273	2400	
==>r backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2273	2400	
==>r backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4857	4957	
==>uarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4857	4957	
==>uarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16228	16370	
==>!= 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16222	16364	
==>!= 1);\n" .
                "$_[1]           \$pos = \$match[-1]->to if \$bool;\n" .
                #"print !\$match[-1], ' ', Dumper \$match[ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4122	4247	
==>ems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::Lis <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4122	4247	
==>ems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::Lis <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9794	9909	
==>ie "$fn: $@" if $@;
    PIL::PIL1CPerl5::Util::rebless_with_prefix($p,'PIL::PIL1::NodeSet0::');
    return if !defin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2271	2367	
==>of the Blondie Abstract Syntax Tree, and can be executed by a
runtime. An example runtime is L<Bl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8844	8957	
==>me;
    my $v0 = $_[0][0]; $v0 = recurse($v0);
    my $v1 = $_[0][1]; $v1 = recurse($v1);
    "bless([$v0,$v1] , \ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5979	6095	
==>NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5979	6095	
==>NAME

Span::Code - An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1165	1283	
==>de } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1176	1294	
==>de } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5146	5244	
==>rator::binary/;

sub symbol { "→" }
sub is_arrow { 1 }

package type::operator::pair;
use base qw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4757	4903	
==>ant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4608	4751	
==>ant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18157	18263	
==>name is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18157	18263	
==>name is already used, this module
will try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=h <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1036	1132	
==>ou can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more effic <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1036	1132	
==>ou can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more effic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4707	4808	
==>pen(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Check <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4929	5030	
==>pen(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Check <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1620	1719	
==>erators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1620	1719	
==>erators!  :D
multi sub *infix:«⊂» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1275	1412	
==>${class}::parse()\n";
    *{"${class}::parse"} = Pugs::Compiler::Regex->compile( '
        %' . $class . '::hash
        { return Pugs::Gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3018	3115	
==>ules,
it is completely independent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The source file hea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6979	7193	
==>/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6979	7193	
==>/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1333	1465	
==>eal context.

The newton function must receive at least:

    y - target value for y
    f - function of one variable

It looks for a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	125	254	
==>hing like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
#     1. Makefile.PL calls "use inc::Modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17152	17252	
==>bilities as well.

=back

=head1 HISTORY

=head2 0.022b -- July 6, 2004

=over 4

=item Hierarchy Cha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3639	3739	
==>d($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a colle <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3639	3739	
==>d($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a colle <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12886	12984	
==>ou pass in multiple field names then it is generally not
possible to tell which of the returned val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12886	12984	
==>ou pass in multiple field names then it is generally not
possible to tell which of the returned val <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12206	12330	
==>T: env($$) = { Clone::clone(\%types::prelude) }
ROOT: generic_in($$) = {
	my $env = env($$);

	Set::Object->new(
		grep { $_- <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14375	14490	
==>= $P0
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    pos = $P0
    lastpos = length target
    inc pos
    $S0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1546	1639	
==>e->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1546	1639	
==>e->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4528	4633	
==>span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersect <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4528	4633	
==>span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersect <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2716	2813	
==>ert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$modu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2716	2813	
==>ert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install

$modu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36914	37026	
==>logical (C<(??{>)

Data: string with contents of assertion

=head2 flags

Family: flags

Types: flags (C<(?i-s)>) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23222	23330	
==>rence of flag values.  When a scope is entered, the top
value is copied and pushed onto the stack.  When a sc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2622	2731	
==>E__;
    my $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return jo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2622	2731	
==>E__;
    my $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return jo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4308	4466	
==>fier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4308	4466	
==>fier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            }
            else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15964	16087	
==>' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10820	10943	
==>' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  }) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8252	8376	
==>)

$::ENV->create(
    "*::WALKMETH", 
    closure->new(
        $::ENV, 
        closure::signature->new(
            params <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5079	5186	
==>ule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><octaldigit><octaldigit>
      | <bracket_open> [< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6743	6893	
==>> chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex $num, $rep);
  });

  # eol, seol, meol
  $self->add_handler('$' => sub {
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2608	2764	
==>e = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2608	2764	
==>e = undef if $state->[0] > $#$nodes;
            }
            $match->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abor <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4333	4442	
==>&{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4333	4442	
==>&{ $self._get_complement_previous }, 
        complement_next =>     &{ $self.closure_next },
        compleme <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3461	3562	
==>(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3461	3562	
==>(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filte <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12517	12752	
==>st{failed}});
                    print "$test{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             fa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15236	15342	
==>ds {  # see 11.7
      <AdditiveExpression>
    | <ShiftExpression> <'<<'> <AdditiveExpression>
    | <Shif <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2872	2973	
==>et::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2872	2973	
==>et::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Functional <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13042	13161	
==>.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13042	13161	
==>.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, Str $rest {
      my $from_n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4464	4601	
==>ilddir] )                      and error($?), return;

    return JIB::Package->new( 
                file => File::Spec->rel2abs( $archiv <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2746	2890	
==>super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2951	3095	
==>super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:superc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10098	10211	
==>not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10098	10211	
==>not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_to_entity <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10308	10442	
==><BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10308	10442	
==><BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2642	2786	
==>f ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $v <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2642	2786	
==>f ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\\/]}
       ) {
        $v <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7195	7301	
==>ing ";
    $ghc_flags .= " -I../../src -i../../src "
      if $self->is_extension_build;
    if ($ENV{PUGS_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2538	2667	
==>r> instead

    

    return ruleop::concat( +shift, ruleop::concat( @_ ) )

        if @_ > 2;

    my @nodes = @_;

    return s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2455	2579	
==>r> instead
    
    return ruleop::concat( +shift, ruleop::concat( @_ ) )
        if @_ > 2;
    my @nodes = @_;
    return s <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2554	2771	
==>~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readli <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2554	2771	
==>~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readli <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4617	4719	
==>ers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not necessar <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4617	4719	
==>ers or deciphers the given data.  May return data which is part of the 
ciphertext, but is not necessar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8660	8772	
==>, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2485	2597	
==>, sub { Grammar::Perl6->macro_decl(@_) };
push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	749	870	
==>$host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	716	837	
==>$host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2463	2696	
==>' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2463	2696	
==>' ? @$v : 
                        defined $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20475	20573	
==>.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$bo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20475	20573	
==>.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=head2 C<$bo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10451	10558	
==>o test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10451	10558	
==>o test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DE <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1704	1850	
==>n't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@exam <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1353	1483	
==>F.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^las <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1353	1483	
==>F.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^las <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20197	20298	
==>result not be recompiled by
some other containing parser. In this case the result of the compilation
i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20197	20298	
==>result not be recompiled by
some other containing parser. In this case the result of the compilation
i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4847	4937	
==>w', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4847	4937	
==>w', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3128	3241	
==>d_packages($pkg1, $pkg2, ...)
# 
# Adds a list of JIB::Package instances to the repository.
# 
# =cut
# 
# sub add <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3944	4048	
==>/[\\\/]/, $base));

    $makefile =~ s/^(\t+)cd \.\.$/$1cd $canonical_base/mg;
    close MAKEFILE;
    op <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2769	2913	
==>open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2769	2913	
==>open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_ope <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1908	2018	
==>as Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1908	2018	
==>as Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Context $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	833	1011	
==>one token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@curre <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	833	1011	
==>one token
                } else {
                    push @current, undef;
                }
            } elsif ($value ~~ s:P5/^\s*,//) {
                push @return, [@curre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1167	1273	
==>f symbols and has

a main body closure. 



the Package part of the Module is simply a hash from strings

( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1115	1217	
==>f symbols and has
a main body closure. 

the Package part of the Module is simply a hash from strings
( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1655	1775	
==>p = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1655	1775	
==>p = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method contains ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19107	19210	
==>other words, this user
text is *part of the program*, and not the program's users' own data; only
someon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19107	19210	
==>other words, this user
text is *part of the program*, and not the program's users' own data; only
someon <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5369	5490	
==>yte'>
    | <'extends'>
    | <'long'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronize <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	143	244	
==>hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test Pod.pm after each \n

sub regist <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1115	1234	
==>e "Must pass Perl version (5 or 6)";
    my $base = $self->{_top}{base};
    my $blib = ($perl_version == 5 || $self->is <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15775	15879	
==>by the binding
# the body of the binding contains the env with the the symbols of our outer scope
let: ne <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	181	284	
==>determine if the user needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2670	2837	
==>? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$h <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2670	2837	
==>? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9212	9305	
==>f C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9212	9305	
==>f C<$set2> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Re <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	839	960	
==>_arguments ( @strings )  {
            $.argument_class.string_to_arguments( @strings );
        }
    }

    class Getopt <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23900	23992	
==>iable::free->new,
		my $b = type::variable::free->new,
	);
	is($type->stringify, "∀α. ∀ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10063	10165	
==>cally. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10063	10165	
==>cally. Returns -1, 0, or 1.

The argument can be a Set::Infinite, a Span object, a Recurrence object, o <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	56	148	
==>.pm";import Filtered::Comments 'regex matching subs you want to debug'}
* adds use Smart::Com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24206	24298	
==>5::X1::Api::Exception::LoopControl('-text' => 'next'))";
}
sub p6_redo_CODE {
    "(throw Per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17671	17797	
==>or Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17671	17797	
==>or Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    u <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	279	384	
==>.c: $!";
print $F <<'EOT';
#include <stdio.h>
#ifdef __BORLANDC__
#include <windows.h>
#endif
int
m <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	429	569	
==>form>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	429	569	
==>form>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak (flush) bucket <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	816	926	
==>($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_wi <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	816	926	
==>($template: %variables?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_wi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1235	1356	
==>Y_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1235	1356	
==>Y_ELEM_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5769	5868	
==>ibility is to return a negative value for
# relative seconds and a positive value for epoch based ti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5769	5868	
==>ibility is to return a negative value for
# relative seconds and a positive value for epoch based ti <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1702	1809	
==>)
    verbose - a boolean which will turn on per iteration printing
    
If you omit the fprime, a second or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4593	4722	
==>");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4593	4722	
==>");
  });

  @result.push("");

  return @result.join($ending);
}

my method date_header ($self: Str $header) is rw {
  return Pro <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1282	1411	
==>} `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1282	1411	
==>} `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value";

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10833	10976	
==>ed;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10827	10970	
==>ed;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14880	14991	
==>table file from the name of
	# the command.

	if ($Perl !~ /\Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8813	8927	
==>e (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12290	12404	
==>e (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " not m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3181	3276	
==>ement_previous ),
        complement_previous => $self._get_intersection( $self.complement_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3181	3276	
==>ement_previous ),
        complement_previous => $self._get_intersection( $self.complement_previ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11614	11709	
==>using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the following <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11672	11767	
==>using `&compare_func`. This will
eventually allow Test::More-style cmp_ok() though the following <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	10	123	
==>/perl

use strict;
use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::Tes <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	10	123	
==>/perl

use strict;
use warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::Tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5918	6059	
==>}
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5918	6059	
==>}
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'def <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	104	223	
==>a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	104	223	
==>a Recurrence::Span class - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Inf <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4002	4106	
==>her pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4002	4106	
==>her pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11541	11661	
==>ALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $alt; 
    my @alt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	900	1003	
==>T node (the API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	854	953	
==>T node (the API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pug <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1315	1408	
==>uplicate($node);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2263	2353	
==>nted.
Also to iblech, and Michael Schilli of JavaScript::SpiderMonkey, whose
successful wor <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2817	2915	
==>RM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs curren <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2817	2915	
==>RM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and Pugs curren <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18965	19069	
==>donly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_au <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18965	19069	
==>donly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_au <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20174	20262	
==>VariableDeclarationList> <','> <VariableDeclaration>
}
rule VariableDeclarationListNoIn : <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	577	680	
==>pecial behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B< <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	577	680	
==>pecial behaviour when a property is set.  If we ever need
them C<:)>

Note, if you want to specify an B< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6382	6488	
==>"\n",
		      "# expected "._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where(), $nam <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	31089	31187	
==>ance.com> >>.

This program is free software; you can redistribute it and/or 
modify it under the s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10500	10592	
==>e::variable::free->new;
		my $l = type::operator::nary->new(list => $a);
		type::operator::ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4507	4663	
==>nt "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; loca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4729	4885	
==>nt "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; loca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1196	1288	
==>es

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1196	1288	
==>es

=head1 VERSION

This document describes Rosetta::Validator version 0.724.0.

=head1 SYNOP <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6973	7075	
==>less $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($cont <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7031	7133	
==>less $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($cont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	455	650	
==>//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	455	650	
==>//) {
                    my $val = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($valu <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	976	1077	
==>1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	976	1077	
==>1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4399	4549	
==>ystem( qq[cp -R $src ]. $inst->dir )     and die $?;     
            
            ### register the installation
            ### do this AFTER installi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	17	145	
==>ile::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	17	145	
==>ile::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
su <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5518	5635	
==>ined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5518	5635	
==>ined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns S <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8680	8806	
==>_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpos = pos
    .r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2155	2259	
==>()->to_native . ") expected(" . $params->length->to_native . ")";      
    # loop through the param keys <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3582	3700	
==>ore -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3582	3700	
==>ore -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9391	9547	
==>in = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10382	10538	
==>in = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1061	1180	
==>s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitea <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1061	1180	
==>s*sitelib:\s+(\S+)/m);
    return {
        archlib => $archlib,
        privlib => $privlib,
        sitearch => $sitea <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6330	6427	
==>NCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function current <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6330	6427	
==>NCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function current <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7709	7807	
==>of this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7709	7807	
==>of this method is provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	387	520	
==>RIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secure stream cipher.  It is believed to be com <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	387	520	
==>RIPTION

Arcfour is a very simple (less than fifteen readable lines) but surprisingly 
secure stream cipher.  It is believed to be com <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2034	2173	
==>secting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2034	2173	
==>secting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8752	8853	
==>my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8752	8853	
==>my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($self: $sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15228	15372	
==>{
    my $n = $_[0];
    # print "postfix: ", Dumper( $n );

    if ( $n->{op1}{op} eq '++' ||
         $n->{op1}{op} eq '--' ) {
        r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3916	4025	
==>scalar_keys) {
        $dump .= "$key: $values{$key}\n" if exists $values{$key};
    }
    foreach my $key (@t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4015	4134	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4073	4192	
==>tr $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22941	23041	
==>o or more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27493	27593	
==>o or more member tuples of
the Relation; each Set member is a Mapping whose keys and values are
attri <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2427	2527	
==>cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the match objec <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2427	2527	
==>cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the match objec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12508	12606	
==>r or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function remove <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12508	12606	
==>r or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function remove <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1480	1597	
==>RGV[0] eq '--compile-only') {
        shift(@ARGV);
        $compile_only++;
    }

    shift(@ARGV) if $ARGV[0] =~ /^ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3635	3768	
==>e\n1st line\n" ],
      [ 'file21', $file21,
        "\n\n\n\n\n\n\n\n\n12th line\n11th line\n10th line\n".
        "9th line\n8th lin <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1940	2034	
==>is module may cause
segfaults on C<split>, substitution, and/or other uses.

It is currently un <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8704	8800	
==>$e->create("$method", $nil::NIL); 
            $e->create("$current", $e->get("&dispatcher")->do( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5746	5874	
==>us( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5746	5874	
==>us( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.star <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	220	314	
==>c_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	253	347	
==>c_rule  = Pugs::Compiler::Rule->compile( $rul );
my $rpc_token = Pugs::Compiler::Token->compil <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	353	523	
==>"unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1 <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	353	523	
==>"unrecognized option: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28219	28329	
==>s might be an array reference (for a 'branch'
node), another object (for a 'quant' node), or it might not exist <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3458	3566	
==>e assert_bol  { \^\^ }
rule assert_eol  { \$\$ }
rule lookahead   { \< (!?) before <ws> <pattern> \> }
rule l <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1616	1744	
==>$file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1616	1744	
==>$file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for statistics
    $f.debug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17461	17562	
==>osetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17461	17562	
==>osetta" file, together with those of
L<Rosetta::Model>, define the balance of the Rosetta Native Inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15057	15197	
==>dlers for C<< < >> and C<< > >> anchors, which match at the
beginning and end of a "word", respectively.  C<< /</ >> is equivalent to
C</(?!\ <==
2	/Users/nnunley/pugs/util/drift.pl	1219	1326	
==>ost!

-- WARNING WARNING WARNING --
-}

#ifndef HADDOCK









SCARY

# splice(@program, 2, 0, @scary_head <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3064	3156	
==>$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my ($n, $c) = ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15871	15973	
==>dules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15929	16031	
==>dules

- Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	858	962	
==>imply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autog <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	858	962	
==>imply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autog <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	988	1097	
==>l { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? } <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	988	1097	
==>l { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? } <==
2	/Users/nnunley/pugs/util/package-osx.pl	3508	3618	
==>l/man/man3/history.3
        /usr/local/man/man3/Inline::Pugs.3pm
        /usr/local/man/man3/v6.3pm
        /u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22060	22163	
==>n code, it
returns the first one it finds.  This also works for the multiple language
or permissions iss <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22060	22163	
==>n code, it
returns the first one it finds.  This also works for the multiple language
or permissions iss <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2474	2615	
==>get_config();
    my $template = do { local $/; <DATA> };

    my $all_fields = join ",\n    ", map {
        "config_$_";
    } sort keys %$c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	149	261	
==>ootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_toleran <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	149	261	
==>ootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_toleran <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	614	720	
==>ram ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	614	720	
==>ram ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days => 1 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	72	174	
==>ocessing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tre <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	72	174	
==>ocessing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tre <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1206	1302	
==>D> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1206	1302	
==>D> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorithm i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13142	13301	
==>eys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13142	13301	
==>eys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return altern <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26168	26258	
==>_F1,[],_B1,E0,E1),
  match_captures(E1,C1),
  ground_list(C1,'undef',O).

END
#============ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3574	3872	
==>d($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %even <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3574	3872	
==>d($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %even <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6479	6589	
==>s) or error(Params::Check->last_error), return;

    return
        map { $self->index->file($_) }
        $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8254	8417	
==>atch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8254	8417	
==>atch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15136	15243	
==>logical;
}
{
  package Regexp::Parser::flags;
  sub emit {
    my($o)=@_;
    $o->mk_ignore_this_node();
  } <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6557	6643	
==>mental(posSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) --> p5_mat <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2111	2253	
==>sub {
        my $pwd = Cwd::cwd();
        if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	84	213	
==>w) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        en <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	84	213	
==>w) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        en <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2058	2176	
==>:$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2058	2176	
==>:$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2478	2578	
==>rate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2478	2578	
==>rate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16628	16721	
==>in_offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies them. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21054	21147	
==>in_offset and max_offset would be plausible places to hide data.
Perl_re_dup just copies them. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6208	6325	
==>umper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'pare <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6208	6325	
==>umper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'pare <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5476	5586	
==>!defined $expected or !defined $range) {
        # This is a fail, but doesn't need extra diagnostics
    } els <==
2	/Users/nnunley/pugs/util/grokprims.pl	1594	1694	
==>/ and $arity==2) {
    $example = "(\$$a0 $name \$$a1) $name \$$a1";
  } elsif (/left-associative/ an <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3971	4112	
==>ve paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3971	4112	
==>ve paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $pat <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6974	7085	
==>d return "PIL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6692	6790	
==>sed($x) and Scalar::Util::blessed($y)) {
			die "baaah! expected type cannot be placeholder" if $y- <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5664	5770	
==>tor {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5664	5770	
==>tor {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $iter = $se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11003	11100	
==>uest_uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11003	11100	
==>uest_uri returns Str>

=item B<document_root returns Str>

=item B<script_name returns Str>

=back <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20328	20419	
==>NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized incl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20328	20419	
==>NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canonicalized incl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37088	37198	
==>d by
translate_message() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37088	37198	
==>d by
translate_message() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	624	746	
==>own parameter '$_'" 
        for keys %$param;
    #print 'rule source: ', $self->{source}, "\n";
    local $@;
    eva <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2321	2421	
==>:Argument::Style::Clustered is Getopt::Argument::Style {
        method ^string_to_arguments( $string <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33885	33982	
==>hat
language they prefer to communicate in, and what their backup choices are,
in order, if prefer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33885	33982	
==>hat
language they prefer to communicate in, and what their backup choices are,
in order, if prefer <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2694	2819	
==>gram
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || d <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2694	2819	
==>gram
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || d <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16045	16176	
==>rims the last character from C<$string>, and returns it. Called with a
list, it chops each item in turn, and returns the last charac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11013	11124	
==>S) = @_;
    return $S->object(branch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $self->add_h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12970	13074	
==>ol :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13028	13132	
==>ol :$todo, Str :$depends) returns Bool`

These functions both take blocks of code, run the code, and test <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	870	970	
==>d1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	870	970	
==>d1 VERSION

This document describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	622	741	
==>ining: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	622	741	
==>ining: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1862	1967	
==>$source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1862	1967	
==>$source = slurp($source_file);
my $match  = Grammar::Compiler->grammar($source);
print $match->();

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37080	37197	
==>after I<quant>)

Data: an object in the I<quant> family

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Handler <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19322	19428	
==>in '', $ML, @_ if $ML;
}


# For slow connections, we save lots of bandwidth by printing only once
# per se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6223	6327	
==>a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' , <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6223	6327	
==>a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' , <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14185	14350	
==>xt =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            e <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14185	14350	
==>xt =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	623	759	
==>.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { . <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	623	759	
==>.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    }
    
    submethod BUILD() { . <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15916	16022	
==>tr $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15916	16022	
==>tr $target { enqueue "INVITE $target $channel" },
    oper   => -> Str $username, Str $password { enqueue " <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7490	7634	
==>ls::VRule, Str, Int)\
\\n   List      spre    =       safe   (Any)\
\\n   List      left    xx      safe   (Any, Int)\
\\n   List      non     .. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10068	10193	
==>'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_asse <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10068	10193	
==>'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_asse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	396	496	
==>lnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	396	496	
==>lnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rule num_variable :P5 {^(?:\$[[:digi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5181	5278	
==>oolean value
of success or failure

=item data

The C<data> method returns a hash reference repres <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5181	5278	
==>oolean value
of success or failure

=item data

The C<data> method returns a hash reference repres <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4471	4591	
==>dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4471	4591	
==>dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1833	1938	
==>ot ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1891	1996	
==>ot ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	274	380	
==>init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	274	380	
==>init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__->meta->add_attribute('%:rule <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	417	626	
==>e constant FILE_EXISTS    => sub {  
                                    my $file = $_[-1];
                                    return 1 if IS_FILE->($file);
                                    local $Carp::Car <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10272	10415	
==>ut test file $input_path: $!";
  my $outfile = IO::File->new($output_path, ">:utf8")
                         or die "Can't open output test fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	237	329	
==>::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;

u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	237	328	
==>::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Perl5::Ratchet;
u <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	854	982	
==>=> \my $ignore1,
    'B=s'       => \my $ignore2,
    # kludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5169	5269	
==>rn bit->new(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scalar:: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1234	1341	
==>ers));
    return $answer;
}

method member($self: $item) returns Object {
    return $item if $self.include <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1234	1341	
==>ers));
    return $answer;
}

method member($self: $item) returns Object {
    return $item if $self.include <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12189	12295	
==>s_ok"><span title="<tmpl_var name=ok> ok"><tmpl_var name=ok></span>,</td>
	      <td class="num tests_faile <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	150	252	
==>ll::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

sub get_file {
    my ($self, %args) = <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1805	1910	
==>ble::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free s <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1805	1910	
==>ble::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2505	2602	
==>= $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2505	2602	
==>= $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	52	181	
==>nings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dump <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	50	179	
==>nings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dump <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2322	2524	
==>ld = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ Li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2322	2524	
==>ld = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ Li <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1624	1756	
==>ash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or uml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1624	1756	
==>ash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or uml <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4353	4457	
==>research.att.com/~njas/sequences/A001113
}

 multi method Array::delete (@array ; *@indices --> List )
 { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1211	1310	
==>rays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> also tak <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1211	1310	
==>rays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> also tak <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4660	4762	
==>ead original module source code instead of taking from filter,
    # because we need all the lines incl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4660	4762	
==>ead original module source code instead of taking from filter,
    # because we need all the lines incl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2727	2833	
==>n1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2727	2833	
==>n1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recurr = $set1.recurrence.union( $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4974	5112	
==><$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4974	5112	
==><$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8278	8429	
==>ES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8278	8429	
==>ES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13360	13471	
==>.delete{$key}
 delete %hash<key>                 %hash.delete{'key'}
 delete %hash<key1>{@keys}         %hash<ke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4500	4604	
==>ert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4500	4604	
==>ert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_na <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1655	1784	
==>{[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1655	1784	
==>{[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4069	4205	
==>ing = "\n") {
  my @result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must han <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4069	4205	
==>ing = "\n") {
  my @result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must han <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	119	217	
==>events
# something which does subscriber can recieve them
# two kinds of things that can do subscri <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4014	4127	
==>n in "};" is probably a bug.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip comments and docs whil <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3803	3914	
==>Command::MM")!"-I../../inc" "-I../inc" "-Iinc" $1!g;
    $makefile =~ s/\$\(UNINST\)/0/g;

    my $canonical_bas <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2326	2473	
==>(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$x'),
                S <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2649	2757	
==>s.$$.yml", $self->structure);
}

sub emit {
    my($self) = @_;
    $self->{_timing}{end} = time;
    $self-> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11898	12006	
==>with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11898	12006	
==>with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&oslash;r &#230res" <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1813	1988	
==>($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1813	1988	
==>($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $hea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3581	3687	
==>e generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3798	3904	
==>e generated by p6grammar.pl - fglock

use strict;
use warnings;
use lib '.';
use interface;
require 'iterat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12369	12485	
==>{ 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12369	12485	
==>{ 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	365	473	
==>KIE'} ne '') {
        for (split(rx:perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p,$v)=split('=' <==
2	/Users/nnunley/pugs/util/package-osx.pl	211	317	
==>/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5421	5523	
==>o a response when it has been received.
method client_date ($self: )         is rw { $self!date_header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5421	5523	
==>o a response when it has been received.
method client_date ($self: )         is rw { $self!date_header( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1783	1922	
==>", 'install', '--user');
        chdir $pwd;
    }
    print "*** Finished building dependencies.\n\n";

    $run_setup = sub { system($setu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2740	2867	
==>= 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # merge both kinds of requires into prereq_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3177	3270	
==>,
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3363	3456	
==>,
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FETCH <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13533	13649	
==>o events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pse <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13533	13649	
==>o events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pse <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3364	3498	
==>{PATH};

    unlink $a_file;
    $run_setup->('build');
    die "Build failed: $?" unless -e $a_file;

    if (!$ar) {
        $ar = $g <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13711	13896	
==>tem( qq[ln -fs $_ $alt] )                    and die $?;
        system( qq[ln -fs $alt $bin ] )                 and die $?;
        push @bins, $script;
    }

    my $alt = JIB::Altern <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2614	2744	
==>efix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = shift;
    my $base = $self <==
2	/Users/nnunley/pugs/util/addauthors.pl	1455	1577	
==>le->new("AUTHORS", "<:utf8");
  my @authors;
  my (%bycpan, %bynick);

  while (<$fh>) {
    last if /^$/;
  }
  while (<$f <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2354	2473	
==>lt,
			$prog->{result},
			"correct results for $prog->{name}",
		);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	425	528	
==>T, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FU <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	425	528	
==>T, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FU <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12926	13041	
==>rr_close
    $S0 = substr target, pos, 1
    if $S0 == "]" goto endclass
    if $S0 == "-" goto err_hyphen
    if $S <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2031	2148	
==>($args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub extern <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2031	2148	
==>($args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub extern <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5401	5518	
==>>values;
		my @params;
		my @exps;

		$self->enter_scope;
		while(@children) {
			my $sub = shift @children;
			if ($s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	748	855	
==>possible scalar value

		# simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7856	8028	
==>.,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_proto($/);
        }
    }

    rule stateme <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36122	36219	
==>me Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36122	36219	
==>me Member Name are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9179	9285	
==>ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9237	9343	
==>ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5565	5671	
==>his HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = sy <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5565	5671	
==>his HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retval = sy <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7304	7471	
==>= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation::Example <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28761	28879	
==>ou must name your handlers.  If you
want to install a handler for '&&', you must first install a handler for
'&' that c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6261	6395	
==>en List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6261	6395	
==>en List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("Content-Type" <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	278	395	
==>my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	290	407	
==>my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push @modules, $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6490	6597	
==>ase_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6490	6597	
==>ase_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $pat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20435	20543	
==>r WALKMETH($dispatcher, 'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14109	14216	
==>, $neg, $how) = @_;
    return $S->force_object(anyof_class => digit => $neg, \$how);
  });

  # graph POSIX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1108	1239	
==>ure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1108	1239	
==>ure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8588	8692	
==>\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({<]) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7528	7627	
==>or')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7528	7627	
==>or')>

This event is fired when a '=for' directive is reached.

=item I<end_element ('for')>

This e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9994	10133	
==>ram = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9994	10133	
==>ram = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subru <==
2	/Users/nnunley/pugs/util/package-osx.pl	4932	5068	
==>2.3pm
        /usr/local/man/man3/Perl6::Bible::S13.3pm
        /usr/local/man/man3/Perl6::Bible::S17.3pm
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12494	12595	
==>s opaque
    ((($canidate to_bit) or (= $canidate (str new ('P6opaque'))))
     (= ($self ($class: sen <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1484	1578	
==>o normal regexes

=head1 DESCRIPTION

This module provides a Perl interface for pluggable regul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	871	962	
==>ple for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	871	962	
==>ple for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en ver <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3188	3318	
==>.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $sr <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	93	193	
==>se|v no|n leaves|l cc|c=s@ allccs|a nodes);

my $signature = qr/^([\w']*) ::/o;
my $fn;
my %funcs;
#m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3892	4010	
==>per::Dumper "cleaned",$Z::oop{$id} if $debug;
      die "bug" if @$var != 1;
      #@_=$noop; goto &$c;
      my $v = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	505	619	
==>> 'postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{name}, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17619	17717	
==>2 How It Works

Modern programs or database systems often refer to an error condition by an
interna <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17619	17717	
==>2 How It Works

Modern programs or database systems often refer to an error condition by an
interna <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2127	2244	
==>c map to, values are 2 char strings such as \n
my %backslash_escape;
foreach my $x (split //, 'nrtfa\\\'"') {
    $bac <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27611	27720	
==>NTED_set(prog, t) ((t) \
					? RX_MATCH_TAINTED_on(prog) \
					: RX_MATCH_TAINTED_off(prog))

 #define RX_MA <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10803	10901	
==>rns Str>

=item B<content_length returns Str>

=back

B<The following informational functions are f <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10803	10901	
==>rns Str>

=item B<content_length returns Str>

=back

B<The following informational functions are f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2164	2276	
==>star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2175	2287	
==>star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a term na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8249	8358	
==>er this is working because the language
    # spec says it is supposed to, or whether is due a fluke or unspec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8249	8358	
==>er this is working because the language
    # spec says it is supposed to, or whether is due a fluke or unspec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	637	755	
==>issing repodirs/files
    for ( (map { $config->$_ } qw[ root temp_dir bin_dir compile_dir ]),
          $INSTALLATION_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13869	14001	
==>ss $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14148	14280	
==>ss $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1318	1438	
==>hunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1245	1358	
==>hunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6201	6359	
==>//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6201	6359	
==>//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1041	1167	
==>sub can_cc {
	my $self   = shift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Config{cc} may contain args; tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25596	25691	
==>u're
curious why the C<regex> value is a reference, and thus why I'm using
C<${&Rx}> everywhere, <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5443	5598	
==>"
                          )
       ) {

        # Looks like we're on a Windows-ish system, without GHC
        # in our path.   Let's hunt around for it. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11783	11888	
==>f $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $? <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11783	11888	
==>f $val_elem eq $EMPTY_STR;
    }
}

my method _assert_arg_hash (Str $meth!, Str $arg!, Any %val!) {
    $? <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12504	12637	
==>le $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> @list {
         take shift @list;
       }
     }
   }
 }

[Note: T <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1308	1399	
==>6 version of 
Test::Builder::TestPlan.

This file contains both the TestBuilder::TestPlan ob <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7025	7192	
==>spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7025	7192	
==>spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $.current_sp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3264	3363	
==>ves in somewhere else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3149	3244	
==>ves in somewhere else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33471	33573	
==>ear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33471	33573	
==>ear first in the array.  Each Set Name can be any defined and non-empty
string.

=item C<@!member_names <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2163	2317	
==>l
$Postinst       = 'POSTINST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postr <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7717	7840	
==>for %app<"pArgs"> {
            push @args, traverse_ast ( $_[0][1][0][1] );
        }
        dbg "# Arguments: ", @args.el <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5830	5942	
==>$pScope;
    $sn = lc $sn; $sn =~ s/^s//;
    if($sn eq 'state') {
	warn "state PPad not implemented\n"; # use MM <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	600	697	
==>ariable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<Ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	600	697	
==>ariable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<Ca <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16435	16556	
==>ome way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module My <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16435	16556	
==>ome way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module My <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	463	622	
==>w {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	463	622	
==>w {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals { <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4770	4901	
==>char eq 'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( exists $escape{$initchar} )
      {
        if ( not $isnegat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27935	28037	
==>RO ((opaque $self:)) returns list 
    (($self: get_attr (symbol new @:MRO)) is_empty) and 
     ($self <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5323	5437	
==>1:
    $S0 = substr target, pos, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto ter <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11797	11897	
==>tten with a flag
  value, so a regexp* thus created can be recognized, and regexp*s
  created with th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1233	1387	
==>truct;

    for my $entry ( @$struct ) {
        $str .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVER <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50271	50398	
==>ew('$:authority'), $e->get('?$authority'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:au <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2213	2334	
==>->index->file($config->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1930	2027	
==>set($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
mult <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1930	2027	
==>set($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
mult <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3787	3883	
==>match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3971	4067	
==>match variables 

=head1 METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12051	12154	
==>e argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept", 'image/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12051	12154	
==>e argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept", 'image/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	283	422	
==>turn '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	359	455	
==>sizes 1,2,4... doesnt add much clarity, given the cruft
of wrapping a map and join around the mac <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2057	2179	
==>rguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $self->name;
    $args->{NAME}     = $sel <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1166	1285	
==>rguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $self->name;
    $args->{NAME} = $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7441	7581	
==>$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7429	7569	
==>$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	170	291	
==>sub add_rule {
    # print "add infix operator\n";
    my $self = shift;
    my %opt = @_;
    #print "Infix add: @{[ %opt <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13056	13155	
==>might be non-trivial, as only some forms of redefinition
  make its magic not stick.

  The implemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15242	15345	
==>lf->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9440	9543	
==>lf->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_cl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5351	5457	
==>} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5351	5457	
==>} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ };
}

sub fil <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	488	600	
==>P support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	455	567	
==>P support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15985	16080	
==>ethod creates and returns a new Rosetta::Model::Node object, that
lives in the Document object g <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15985	16080	
==>ethod creates and returns a new Rosetta::Model::Node object, that
lives in the Document object g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1695	1793	
==>veats).

Cipher::Arcfour also includes several attributes which might be interesting to 
people int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1695	1793	
==>veats).

Cipher::Arcfour also includes several attributes which might be interesting to 
people int <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27092	27227	
==>RGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27092	27227	
==>RGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	813	1009	
==>precedence} eq 'tighter' ) {
                splice( @{$self->{levels}}, $_-1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'looser' ) {
                sp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1273	1393	
==>type'))
        || confess "Key must be a str type";
    (blessed($value) && $value->isa('type'))
        || confess "Ind <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1652	1778	
==>= $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1652	1778	
==>= $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14593	14698	
==>t for those needs. The
following is a list of future features planned for this module.

- better error han <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14651	14756	
==>t for those needs. The
following is a list of future features planned for this module.

- better error han <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3301	3454	
==>} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3441	3594	
==>} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4096	4234	
==>] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4236	4374	
==>] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	479	591	
==>(xmlify($x,$_[0])); 
}

# xml helper routine
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14358	14453	
==>p { $_->meta->to_struct } @{ $self->available };
    eval { DumpFile( $self->available_file, @av <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23377	23481	
==>tta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23377	23481	
==>tta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	270	410	
==>lass, @values) = @_;
    (blessed($_) && $_->isa('type'))
        || confess "You must store a native type in a list"
            foreach @va <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	359	469	
==>ULL_OBJECT = bless [ 
    $OBJECT_ID, 
    reference->new(nil->new), 
    hash->new()
    ] => __PACKAGE__;

su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	823	953	
==>return Pugs::Runtime::Match->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varglobal {
    m <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	667	785	
==>re() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the st <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	667	785	
==>re() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6727	6862	
==>}
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $la <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6727	6862	
==>}
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $la <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6035	6139	
==>_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6035	6139	
==>_closed;
}

# Removed - this is too specific - it only applies to Span::Int objects
# method density () r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	997	1140	
==>erl::Tidy is used if available
      local $@;   # don't care if there are errors here
      local @ARGV = ();  # "You may not specify any filen <==
2	/Users/nnunley/pugs/util/package-osx.pl	2554	2645	
==>/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6doc /usr/local/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	927	1031	
==>@.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns boo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	927	1031	
==>@.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_open () returns boo <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	393	537	
==>e_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	393	537	
==>e_cb = $wanted_file || $.wanted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	74	177	
==>use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    h <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	74	177	
==>use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Symbols
{
    h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5446	5612	
==>E
*{'_print'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    $<op> := (print|say|warn|die) <p6ws> <list> <p6ws>? \;
        { return { _print => $() ,} }
RUL <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	805	904	
==>for single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	805	904	
==>for single elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	119	216	
==>iler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	119	216	
==>iler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25177	25300	
==>:-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F,G,H,I,J)),
  E1 = amat(C0,flgs(A,B,C,D,E,F,G,H,I,J)).
set_flag_i(amat(C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19945	20068	
==>=~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16366	16489	
==>=~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ':' ? 'group' : 'flags';
      if ($type eq 'group') {
        push @{ $S->{f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10140	10264	
==>curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10140	10264	
==>curircname     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phas <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23689	23790	
==>l(1)> to the constructor, this module won't simply
send all commands immediately to the server, but cr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23689	23790	
==>l(1)> to the constructor, this module won't simply
send all commands immediately to the server, but cr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	537	644	
==>> q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	537	644	
==>> q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6475	6590	
==>ting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6475	6590	
==>ting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (IO $fh)>

Returns a hash o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2544	2641	
==>::Interpreter - A perl interpreter for compiled Blondie programs.

=head1 SYNOPSIS

    use Blondi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11694	11804	
==>*Test::Builder::output = sub {
		my $ret = &$orig(@_);
		binmode $ret, ":utf8";
		$ret;
	};
}

$Data::Dumper::T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10508	10672	
==>eys)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('get_method_list'), 
    # method body
        method->new(
            $::ENV, <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	767	875	
==>g
# as a perl6 bootstrap path, which was the objective.

# Interest was expressed in developing this into a c <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3950	4053	
==>s1> and <End> keys working, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --linuxrc is the first <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11690	11791	
==>r, Comparator)

A combination of the two methods above, for when one wishs to take
advantage of the in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	464	592	
==>subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	464	592	
==>subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	789	903	
==>ined as subs, which we can get away with since
   this is currently simply a code generator.

=cut

# XXX - macro's <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	789	903	
==>ined as subs, which we can get away with since
   this is currently simply a code generator.

=cut

# XXX - macro's <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32381	32479	
==>ey may alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32381	32479	
==>ey may alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	524	617	
==>ile(<<'RULE')->code();

	<varscalar> <p6ws>? \:
	{ return $<varscalar> }
RULE
*{'rule_decl'} = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11265	11360	
==>ered_alternative( package => $inst_pkg )

=cut

sub remove_registered_alternative {
    my $self <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5250	5375	
==>_Assign( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg " <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2784	2887	
==>ssigned = shift @letters;
			$map{$entry->{orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry- <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2235	2348	
==>in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In short, those subclass <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2235	2348	
==>in a Perldoc DOM tree have different properties,
you should see the subclasses for more.

In short, those subclass <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16955	17059	
==>o empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16955	17059	
==>o empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	574	677	
==>ale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I check <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	574	677	
==>ale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I check <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3223	3449	
==>$class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3223	3449	
==>$class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } else { $start++ };
                                return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1591	1716	
==>2 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1591	1716	
==>2 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29994	30104	
==>item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alterna <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34546	34656	
==>item C<map (Set of Str $heading!, Code $transformer!) returns Relation>

This method is a short-hand or alterna <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16394	16562	
==>atum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20820	20988	
==>atum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	452	556	
==>->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	452	556	
==>->{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	56	145	
==>perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	56	145	
==>perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.pl f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2354	2696	
==>ement;
                        }
                        else {
                            #warn "our other args $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (joi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9014	9113	
==>into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9014	9113	
==>into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7633	7784	
==>g "# keys: ",%app.keys;
        #dbg "# App: ",%app.perl;
        my @args;
        for %app<"pArgs"> {
            push @args, traverse_ast ( $_[0][1][ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8559	8671	
==>n("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "0$1") if ${& <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24223	24321	
==>tion has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28775	28873	
==>tion has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2887	3096	
==>rammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3134	3343	
==>rammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	85	333	
==>t export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	85	333	
==>t export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant v <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14527	14647	
==>face$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14527	14647	
==>face$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38158	38281	
==>ethod:

  sub qr {
    my ($self) = @_;
    my @kids = @{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30657	30761	
==>le module must represent a single
language.

The name of each Template module has two parts, the Set Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30657	30761	
==>le module must represent a single
language.

The name of each Template module has two parts, the Set Name <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2472	2573	
==>---------------------------------------------------------------------------
## getting children

metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2472	2573	
==>---------------------------------------------------------------------------
## getting children

metho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16420	16547	
==>t;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16420	16547	
==>t;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19386	19485	
==>o use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19386	19485	
==>o use the C<logged_in> method instead.

=head2 C<$bot.logged_in>

Returns a true value if the bot is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	782	880	
==>STR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	782	880	
==>STR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	136	242	
==>ook also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	136	242	
==>ook also at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20182	20279	
==>nt {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("lo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20182	20279	
==>nt {...})>

=head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("lo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8989	9102	
==>testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9047	9160	
==>testing_started = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSI <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1645	1799	
==>ile name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1645	1799	
==>ile name' and return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18504	18620	
==>coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14925	15041	
==>coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1994	2126	
==>ision with &name
    
    #~ __PACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => 'left',
        #~ precedence => 'equ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50862	50980	
==>elf:')->get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1141	1362	
==>ree.new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40429	40525	
==>e constant err_TOOBIG => 2, 'Regex too large';

Then you can access them via C<< $parser->err_FOO <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3266	3407	
==>delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3266	3407	
==>delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20521	20628	
==>not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16942	17049	
==>not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1020	1211	
==>tchet}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28040	28142	
==>rl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepended to the switches used to invoke <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2921	3038	
==>start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2921	3038	
==>start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3116	3215	
==>::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much bette <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3006	3102	
==>::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much bette <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5800	5943	
==>tiated";
}

sub splat {
	my $self = shift;
	my $accum = shift;

	push @$accum, my $entry = {
		orig => $self,
		new => undef,
	};
	
	$entry->{ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11398	11511	
==>=> 1, tail => \$_[0] } }\n"
        unless $code =~ /return/;
    return "#return-block#" . $code;
}
sub node::run <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3631	3733	
==>n;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersect <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3631	3733	
==>n;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersect <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2290	2422	
==>gs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2290	2422	
==>gs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26000	26121	
==>@$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp::Parser::flags;
  push @ISA, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16526	16629	
==>n even while the program is executing.

Locale::KeyedText gives your application the maximum amount of c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16526	16629	
==>n even while the program is executing.

Locale::KeyedText gives your application the maximum amount of c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1465	1587	
==>ngine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1465	1587	
==>ngine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DB <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2091	2194	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2091	2194	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1220	1343	
==>for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Boo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4698	4821	
==>for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Boo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19995	20088	
==>sor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19995	20088	
==>sor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19591	19695	
==>e
user text to be stored in non-Perl external files, such as a 2-column
plain-text format that will be mu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19591	19695	
==>e
user text to be stored in non-Perl external files, such as a 2-column
plain-text format that will be mu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11641	11795	
==>ion></td>
            <td>
              <tmpl_if name=pugs_revision>
                r<tmpl_var name=pugs_revision>
              </tmpl_if>
            < <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11764	11861	
==>ual( $recurrence )`

Returns true if the closures that define the recurrences are exactly the same <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11764	11861	
==>ual( $recurrence )`

Returns true if the closures that define the recurrences are exactly the same <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	848	959	
==>eturn +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.test <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	848	959	
==>eturn +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set!" if $.test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4635	4756	
==>(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4775	4896	
==>(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2821	2936	
==>f $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2821	2936	
==>f $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.densit <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5794	5901	
==>';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5794	5901	
==>';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5746	5887	
==>'$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5758	5899	
==>'$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2864	2961	
==>pan = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2864	2961	
==>pan = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @set2_span = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4084	4188	
==>et::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4084	4188	
==>et::members;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14730	14821	
==>ame>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14730	14821	
==>ame>;>.  For
example, C<escape_entities("r\xF4le")> returns "r&ocirc;le", but
C<escape_entit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5569	5687	
==>nt_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5569	5687	
==>nt_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4257	4360	
==>ns with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ def <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4257	4360	
==>ns with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ def <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22434	22536	
==>ge data
which Perl_re_dup() will copy for us.

    New(0, ret->offsets, 2*len+1, U32);
    Copy(r->offs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18265	18360	
==>4-65:]> will render as C<[\w\d:4-6]>.  If you want to prevent
characters and ranges from being d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3387	3524	
==>f = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3387	3524	
==>f = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10217	10321	
==>new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10217	10321	
==>new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1804	1909	
==>s export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1862	1967	
==>s export {
    my $test := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7611	7735	
==>less
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7599	7723	
==>less
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	683	854	
==>p::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	683	854	
==>p::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    retur <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5636	5732	
==>s);

Runs all the given C<@test_files> (as C<runtests()>) but does it
quietly (no report).  $tota <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25840	25924	
==>MBOL|ROPT_ANCH_GPOS|ROPT_ANCH_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT_AN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	840	976	
==>Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	840	976	
==>Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<ArrayTail>();
    } <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14228	14502	
==>def,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _globdir $Fil <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21737	21841	
==>ues; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26289	26393	
==>ues; neither
may be addressed by any ordinal value.

Note that it is valid for a Relation to have zero tu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2497	2623	
==>op->{rule}/sg;
        }
        $template =~ s/<equal>/<$equal>/sg;
        $template =~ s/<tight>/<$tight>/sg;
        $templ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18133	18241	
==>NDExpression>
}
rule LogicalORExpressionNoIn :words {  # see 11.11
      <LogicalANDExpressionNoIn>
    | <Lo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5878	5986	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5878	5986	
==>th_msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5273	5400	
==>dir;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob("*"));
        unlink(glob("*" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1745	1855	
==>> $self ) ) {
        error("Package '". $self->package ."' is already installed --skipping");
        return 1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12523	12624	
==>ppet, and then pass the result to is or ok
on success, or report that the eval was not successful on f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12581	12682	
==>ppet, and then pass the result to is or ok
on success, or report that the eval was not successful on f <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7041	7125	
==>)").
p5_metachar("{").

isP6metacharacter(C) :- member(C,"\{\}\[\]\(\)\^\$\.\|\*\+\?\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12641	12809	
==>ts $n->{exp2}{int} 
               || exists $n->{exp2}{scalar} 
               ) 
               && exists $n->{exp1}{array} ) {
            my $name = _emit( $n->{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6168	6262	
==>($sn eq 'temp') {
	my $vl2 = join(",",map{'${__PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl3 = join( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2174	2298	
==>ueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!soc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2174	2298	
==>ueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!soc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7929	8025	
==>called, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data stil <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7929	8025	
==>called, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data stil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1344	1480	
==>sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1332	1468	
==>sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10791	10931	
==>$1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  captures the entire match
      # $6  captures the op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5881	5985	
==>event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(normalize $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5881	5985	
==>event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(normalize $even <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2088	2231	
==>s ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for bet <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3457	3592	
==>s ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for bet <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2317	2470	
==>t {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtract <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16330	16438	
==>ans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence object, or a scala <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16330	16438	
==>ans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence object, or a scala <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2920	3027	
==>age( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a mes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2920	3027	
==>age( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a mes <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	744	850	
==>ex {
    my ($chr, $col) = @_;

    if ($chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1129	1244	
==>en't been selected won't be printed.  It is designed for so-called 
"print-based debugging", but can be put to other <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1129	1244	
==>en't been selected won't be printed.  It is designed for so-called 
"print-based debugging", but can be put to other <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1071	1228	
==>) {
            $cand = $seq->fetch(num->new(0)); # get the head of the list
            my $nothead;            
            foreach my $sub_seq (@nonemptyse <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8801	8899	
==>% 45 is -
p5_charset_def([char(93)|L]) --> "]", p5_charset_items_opt(L0), p5_charset_def_x(L0,L), ! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11779	11907	
==>], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alternation {
    my $cod <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3188	3315	
==>.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

= <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3188	3315	
==>.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	22	126	
==>:Pod;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# XXX - this module is current <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2784	2899	
==>fig
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data> <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2784	2899	
==>fig
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4772	4893	
==>hed concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4772	4893	
==>hed concat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1941	2073	
==>$_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("unde <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1941	2073	
==>$_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("unde <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	715	828	
==>Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	715	828	
==>Functional $span ) returns bool {
    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5130	5252	
==>variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5352	5474	
==>variables in a macro, when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_n <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8751	8866	
==>Str $delimiter ; *@values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @v <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	224	337	
==>Str $delimiter ; *@values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1696	1817	
==>r::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1696	1817	
==>r::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4334	4477	
==>command line to withold your identity (and this message).
AD
        }
    }
    #$self->{_smoker} ||= { name => "anonymous" };
}

sub get_tests <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8730	8835	
==>7]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1748	1853	
==>exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2070	2175	
==>exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exi <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	14	136	
==>.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @ <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	14	136	
==>.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1175	1314	
==>'\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $es <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1175	1314	
==>'\{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $es <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15438	15528	
==>x,RW1).

re_parse(Pat,Re) :-
  p5_start(Re0,Pat,[]),
  re_rewrite(Re0,Re).

%-------------- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2575	2701	
==>od BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2575	2701	
==>od BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal :: Literal
cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	1187	1309	
==>);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3048	3170	
==>);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
}

__END__ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1218	1457	
==>when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buf <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1218	1457	
==>when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4649	4768	
==>ackage_re { $Package_re };

    sub prefix {
        return $1 if shift->package() =~ $Package_re;
    }

    sub name { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17393	17535	
==>{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13814	13956	
==>{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) } <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1797	1961	
==>ram<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1797	1961	
==>ram<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %param<object>.elems > 0
            {
                %param<st <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9741	9849	
==>S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $contex <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9741	9849	
==>S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $contex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17707	17806	
==>tion
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17707	17806	
==>tion
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=ite <==
2	/Users/nnunley/pugs/util/testgraph.pl	94	186	
==>d/ ];
use Getopt::Long;
use Test::TAP::HTMLMatrix;
use Test::TAP::Model::Visual;
use File::Sp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5859	5969	
==>rdingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5859	5969	
==>rdingly.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32017	32107	
==>endant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32681	32771	
==>endant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@:MRO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3030	3262	
==>. qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin comment

        {   
            ### dependencies satisfied?
            my $info = Loa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4299	4420	
==>D exp   %prec P003
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], param => $_[2], } }
    | exp '.' BAREWORD    %p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2295	2447	
==>) = each %$deps) {
            my ($ver,$op) = reverse split /\s+/, $v;
            $op ||= '>=';
            $str .= "$k $op $ver";
        }
    } else <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8531	8656	
==>gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$in <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4096	4286	
==>urn $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4096	4286	
==>urn $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6586	6692	
==>)) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6586	6692	
==>)) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14489	14603	
==>y uses the C<scan> method to build the string, the result
will use case as suggested by HTTP spec, and it will foll <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14489	14603	
==>y uses the C<scan> method to build the string, the result
will use case as suggested by HTTP spec, and it will foll <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28279	28378	
==>SS_VERBOSE>

If true, Test::Harness will output the verbose results of running
its tests.  Setting C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4630	4750	
==>, '\R');
  });

  $self->add_handler('\s' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1133	1349	
==>tion!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $a <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1133	1349	
==>tion!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.queue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	778	902	
==>/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pugs::Runtime::Perl6;\n" . 
        "use strict;\n" . 
        "no warnings 'voi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3722	3845	
==>syn_src_dir);
    print "P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6636	6759	
==>!_union( $other );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10113	10236	
==>!_union( $other );
}

multi method union (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1337	1441	
==>$obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipulation tools.. this is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21470	21574	
==>seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21470	21574	
==>seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7830	8067	
==>x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method p <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7830	8067	
==>x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ret.elems + $ret.elems },
        )
    }

    method p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3507	3651	
==>do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3507	3651	
==>do some heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!childre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1916	2124	
==>'begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1916	2124	
==>'begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events<start_element>('for' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14182	14318	
==>$text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14182	14318	
==>$text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1470	1581	
==>-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encodi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1470	1581	
==>-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encodi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4914	5029	
==>ns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4972	5087	
==>ns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7087	7227	
==>be a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7087	7227	
==>be a { return }
        my $new_match = { %$match };
        
        $new_match->{label}   = $label;
    
        if ( ! defined $new_match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1464	1604	
==>ped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1404	1539	
==>ped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr( <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	25	127	
==>s the Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ingo
# B <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	69	171	
==>s the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ingo B <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4119	4232	
==>$token)
  {
    push @bsrStack, "bsr_token_match_1";
    goto token_match;
    bsr_token_match_1:
    goto found_t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	515	619	
==>apply;

=head1 DESCRIPTION

This object represents a Class.  It is what is created when you
declare a new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18469	18624	
==>"\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18748	18903	
==>"\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9092	9200	
==>=>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9088	9196	
==>=>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9160	9289	
==>LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no vers <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10637	10766	
==>LoadFile( $protoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no vers <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2505	2613	
==>n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1117	1225	
==>n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7158	7268	
==>] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7146	7256	
==>] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $program = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14248	14348	
==>.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $di <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14306	14406	
==>.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $di <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4358	4454	
==>alization of Locale::KeyedText for English

=head1 VERSION

This document describes Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4358	4454	
==>alization of Locale::KeyedText for English

=head1 VERSION

This document describes Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2203	2301	
==>» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2203	2301	
==>» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5722	5854	
==>lass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10033	10165	
==>lass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7676	7774	
==>proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7676	7774	
==>proxy_authenticate ($self: )        is rw { $self.header("Proxy-Authenticate") }
method proxy_autho <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3766	3882	
==>ss Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3766	3882	
==>ss Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    ha <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1155	1260	
==>ain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1155	1260	
==>ain the design and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10676	10778	
==>h a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10676	10778	
==>h a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_previous => su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2937	3030	
==>turns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differen <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2937	3030	
==>turns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_differen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2663	2758	
==>tails

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r.me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2663	2758	
==>tails

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r.me <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2845	2997	
==>s;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0]. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2845	2997	
==>s;
    if $length == Inf {
        @.items = ();
        return @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0]. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9169	9269	
==>"please segfault" */
  PL_regcompp = previous_comp_hook;
  previous_comp_hook = NULL;
}


END

#----- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21805	21903	
==>igit)    ,C) :- !, \+(char_type(C,xdigit(_))).
class_member(class_pos(ascii)     ,C) :- !,    isAsc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10254	10340	
==>,defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"un <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10989	11075	
==>,defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	365	478	
==>RC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  cla <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	365	478	
==>RC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  cla <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	940	1036	
==>seful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	940	1036	
==>seful defaults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9447	9578	
==>ar { my $self = shift;';
        # method clear {
        #warn "method: ",Dumper $n;
        return "sub " . _emit( $n->{name} ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2216	2319	
==>her API's functional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2216	2319	
==>her API's functional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4104	4207	
==>ck for L::AG
	my $self = shift;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	552	643	
==>e::Rule::rule_wrapper($_[0],$rule->($grammar)->( $_[0], undef, $tree, $tree )); 
    })->cod <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8472	8589	
==>hs)=@$pLHS;
    $lhs = DOWN($lhs);
    my $rhs = DOWN($pRHS);
    "p6_assign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	628	744	
==>},
    } )
        if $_[0] =~ /^([_\w]+):<(.*?)>(.*)$/s;
    return $class->no_match;
};

sub cpan_bareword {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1469	1607	
==>d Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1469	1607	
==>d Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2328	2433	
==>ng messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2328	2433	
==>ng messages to be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3538	3659	
==>small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3538	3659	
==>small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acut <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7405	7501	
==>turn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7405	7501	
==>turn $.complement_next if defined $.complement_next;
    $self.get_universe;
    return $.complem <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32177	32273	
==>lation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36727	36823	
==>lation and C<$other>; any duplicated tuples appear only once in
the result.  With any 2 relations <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7677	7799	
==>}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remov <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7677	7799	
==>}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remov <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1561	1672	
==>e }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1561	1672	
==>e }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span;
    my $cmp = $set1.compare( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1963	2095	
==>Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]? <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1963	2095	
==>Int | Rat | binary | hex | oct  };

# these are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]? <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2451	2546	
==>$name) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2451	2546	
==>$name) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12619	12720	
==>acos;
    if ($args{verbose}) {
	my $runperldisplay = $runperl;
	$runperldisplay =~ s/\n/\n\#/g;
	prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8473	8570	
==>]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8461	8558	
==>]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6286	6394	
==>method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6286	6394	
==>method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	393	487	
==>o while limited superficial success proved
# straightforward, a more robust solution would be f <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3896	4015	
==>::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    return;
}

1 <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3896	4015	
==>::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    return;
}

1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21472	21586	
==>self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17893	18007	
==>self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4327	4434	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1453	1560	
==>{
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6395	6487	
==>event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6395	6487	
==>event handlers for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	582	693	
==>rl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	582	693	
==>rl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35614	35714	
==>d is the N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40164	40264	
==>d is the N-ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

Thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	701	816	
==>y $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
if key:<val> {
    10 + $a / "abc"
}
$string.isa("Str");
$string. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2071	2170	
==><term1>)\}
        { return { access_hashref_element => $() } }
RULE
*{'access_hash_element'} = Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2893	3026	
==>tmt};

    return default( $n );
}

sub assoc_list {
    my $n = $_[0];
    # print "list emit_rule: ", Dumper( $n );

    if <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9468	9553	
==>= ([1,undef,undef,1,2,1,2],[1,undef,undef,3,4,3,3],[0],[0]);
my($qr) = Regexp::StructH <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7717	7837	
==>it++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19690	19791	
==>o by including these headers.

=item $h.authorization_basic

This method is used to get or set an auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19690	19791	
==>o by including these headers.

=item $h.authorization_basic

This method is used to get or set an auth <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6285	6379	
==>."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = ("no strict 'refs'; m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3390	3511	
==>::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3390	3511	
==>::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        elsif defined( $start ) && !defin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3779	3895	
==>on::Example is mutable or not;
        # depending on the implementing class, it can default to True or
        # Fal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4731	4844	
==>t>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws>? \/ <?p6ws>? <rule> <?p6ws>? \/ <?p6ws <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1326	1446	
==>|| (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require Ex <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1253	1366	
==>|| (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require Ex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38261	38361	
==>meter $text (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38261	38361	
==>meter $text (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12357	12482	
==>_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12357	12482	
==>_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11800	11906	
==>=> 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11794	11900	
==>=> 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3944	4108	
==>sponse_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # Fir <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3944	4108	
==>sponse_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # Fir <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22447	22574	
==>dle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max_namelen}s" <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2796	2912	
==>( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4470	4585	
==>n $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4470	4585	
==>n $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15440	15564	
==>o;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15440	15564	
==>o;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20281	20374	
==>ation necessary.  This is something that end users could do,
although program package installe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20281	20374	
==>ation necessary.  This is something that end users could do,
although program package installe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	619	724	
==>ccept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	619	724	
==>ccept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmod <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2321	2519	
==>last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2321	2519	
==>last_for_or_begin eq 'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	603	706	
==>st(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	603	706	
==>st(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Da <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	122	253	
==>s Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	122	253	
==>s Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15037	15157	
==>cause we don't go into "language" mode unless there's
a specific language declaration saying either exactly what language <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18182	18298	
==>analyze" :method
    .param pmc pad
    .local string token
    token = self
    if token == ":" goto cutatom
    $I0 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2417	2516	
==>URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2417	2516	
==>URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	596	701	
==>ead1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	596	701	
==>ead1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4958	5054	
==>all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4958	5054	
==>all nicks, which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30653	30749	
==>heading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35204	35300	
==>heading>.  The new Relation has all of the tuples of the
original (or rather, the corresponding t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	67	170	
==>ugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

rol <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	67	170	
==>ugs/Compiler.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

rol <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19510	19606	
==><$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thes <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19510	19606	
==><$botE<lt>curhostnameE<gt>()>

Returns the current nickname, username, or ircname. Note that thes <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	691	798	
==>r $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	691	798	
==>r $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $file) = ('','','');
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1182	1278	
==>r ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequenc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1182	1278	
==>r ciphers provide extremely trivial security; a cryptanalyst need only 
graph the letter frequenc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15917	16038	
==>y %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { new_env($$) }
let: env($.in) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8384	8486	
==>($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8384	8486	
==>($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class', <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21037	21125	
==>pe(CF,csym) -> char_type(CB,csym) ; \+(char_type(CB,csym)) ), !.

rm(negSet(Set),[C|F1],F <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1198	1320	
==>iables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1198	1320	
==>iables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1843	2057	
==>d $pool
                    ? dir($pool)
                    : $obj->root->subdir($config->repo_pool)
        ));
        $obj->index((defined $index
                    ? dir($index)
                    : $obj->roo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3085	3180	
==>(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \$__v__ })"
}
use Filter::Simple sub {
  s/\bLET\(([^\ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4993	5102	
==>x(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and deco <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4993	5102	
==>x(@index[2],6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and deco <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8203	8311	
==>.sub "parse_closure"
    .param pmc mob
    .local pmc newfrom
    .local string target
    .local pmc mfrom, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15430	15529	
==>ment
# for success, or returns the definition of success (e.g. the
# expected scalar) if given no ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3535	3698	
==>y \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3523	3686	
==>y \$quantified = 1; (\n$rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1758	1910	
==>rint \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1746	1898	
==>rint \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8276	8428	
==>x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary l <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8276	8428	
==>x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) );
            }
            warn "Arbitrary l <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1364	1498	
==>for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1364	1498	
==>for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2745	2868	
==>on ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2745	2868	
==>on ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6483	6598	
==>se, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6483	6598	
==>se, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1854	1959	
==>f->{stack};
  return $self->{nparen};
}


sub captures {
  my ($self, $n) = @_;
  $self->parse if $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9692	9787	
==>one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9692	9787	
==>one element less (more) than C<$set2>.

=head2 C<$set1.union($set2)>

Returns a new set containi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3106	3470	
==>gify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3106	3470	
==>gify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Ro <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2953	3074	
==>on( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method compl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2953	3074	
==>on( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method compl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4384	4497	
==>ement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4384	4497	
==>ement_next =>     &{ $self.closure_next },
        complement_previous => &{ $self.closure_previous },
        uni <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	143	242	
==>y$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Da <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	143	242	
==>y$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Da <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2530	2651	
==>val_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2588	2709	
==>val_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1072	1201	
==>{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1028	1152	
==>{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	831	953	
==>: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	831	953	
==>: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32146	32247	
==>ther or both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the res <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36696	36797	
==>ther or both of the
invocant Relation and C<$other>; any duplicated tuples appear only once in
the res <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2970	3091	
==>capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2981	3102	
==>capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop::greedy_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6431	6631	
==>return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6431	6631	
==>return $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5440	5541	
==>OIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.inse <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5440	5541	
==>OIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.inse <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17232	17333	
==>perl_is
#
# Combination of run_perl() and is().
#

sub fresh_perl_is {
    my($prog, $expected, $runpe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	726	1137	
==>e::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	726	1137	
==>e::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 N <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	291	419	
==>subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	291	419	
==>subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24153	24266	
==>f->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20574	20687	
==>f->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5767	5864	
==>ssibility is to return a negative value for
# relative seconds and a positive value for epoch base <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5767	5864	
==>ssibility is to return a negative value for
# relative seconds and a positive value for epoch base <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6115	6207	
==>)');
my $x2 = def_stmt_prim('bs_token_decl','\s*token\s+(\w+)\s+{([^}]*)}(?{ &::hlp_token;})' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	953	1092	
==>key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	953	1092	
==>key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v0, $v1);
}

m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5707	5807	
==>tual module documentation?



=head2 Grammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5510	5606	
==>tual module documentation?

=head2 Grammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15922	16079	
==>lock'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16201	16358	
==>lock'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list', 
             ru <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8719	8852	
==>') {
	$code_body = p6_catch_return_CODE($code_body);
    }
    if($kind eq 'Pointy') {
    }
    if($kind eq 'Block') {
    }

    my( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6212	6431	
==>::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yiel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6212	6431	
==>::Value::List.new(
                cstart => coro {
                        my @ret;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yiel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7182	7290	
==>th") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7182	7290	
==>th") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
method server ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1337	1441	
==>er::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cryptography are <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1337	1441	
==>er::Stream> and 
its parent module, L<Cipher>; for example, the methods used for actual 
cryptography are <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4664	4774	
==>original module source code instead of taking from filter,
    # because we need all the lines including the on <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4664	4774	
==>original module source code instead of taking from filter,
    # because we need all the lines including the on <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	821	917	
==>vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softlib/M <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	706	794	
==>vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softlib/M <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16294	16401	
==>},
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16294	16401	
==>},
  };

  return $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24158	24245	
==>ub p6_next_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl('-tex <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5903	6043	
==>appa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "om <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5903	6043	
==>appa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956),
    "nu"       => chr(957),
    "xi"       => chr(958),
    "om <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2597	2718	
==>ther) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2597	2718	
==>ther) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	276	407	
==>da-yada-yada

our %hash;

sub recompile {
    my $class = shift;
    %hash = (
        %Pugs::Grammar::Str::hash,
        %Pugs::Gra <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1262	1364	
==>f_odd;
	}
}

our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12735	12838	
==>head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12735	12838	
==>head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$se <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	712	807	
==>IES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	712	807	
==>IES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespace t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12469	12639	
==>]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12463	12633	
==>]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$matc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16551	16653	
==>ords {  # see 11.9
      <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'=='> <RelationalEx <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1708	1806	
==>duce($app);

    my $received = $self->leave_scope;

	die "Thunk is accepting $received parameters, <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1938	2211	
==>"<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1938	2211	
==>"<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1393	1508	
==>e?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1393	1508	
==>e?
  my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15632	15728	
==>ement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bluep <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15632	15728	
==>ement systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract bluep <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1037	1143	
==>to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateT <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1037	1143	
==>to DateTime::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to DateT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4280	4449	
==>eword} eq 'class'  ||
             $n->{sub}{bareword} eq 'module' ) {
            # Moose: package xxx; use Moose;
            # class Point;
            #warn "clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	678	803	
==>b ender {
    my $self = shift;
    unless ($self->{down}) {
      Carp::carp("ender() ignored for ", $self->family, "/", $sel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9470	9593	
==>h', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test fo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9528	9651	
==>h', :todo(1));

  use_ok('My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test fo <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12380	12481	
==>hods for identifying what sort of line you're looking at.

=head2 C<_is_comment>

  my $is_comment = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2370	2474	
==>r_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2370	2474	
==>r_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15695	15819	
==>$2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10551	10675	
==>$2, $3);
      $max = $min unless $range;
      push @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2705	2837	
==>r username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    }) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2705	2837	
==>r username and host, so we /WHO ourselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    }) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30054	30164	
==>f a Message object, and each
hash value contains the user-readable message text associated with the
Message; th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30054	30164	
==>f a Message object, and each
hash value contains the user-readable message text associated with the
Message; th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15300	15398	
==>tartp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the captur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19458	19556	
==>tartp[n] is the starting offset in subbeg,
endp[n] is the offset of the last char within the captur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6574	6698	
==>s>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6574	6698	
==>s>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channels{$chan}<users>. <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	224	329	
==>eturns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	224	329	
==>eturns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub server_protocol returns Str is export { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1755	1854	
==>empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1755	1854	
==>empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @spans;
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	233	345	
==>::MakeMaker ();

# check if we can load some module
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14547	14644	
==>:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX syntax [%s %s] belongs inside character classes

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1323	1464	
==>? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $esc <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1323	1464	
==>? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_curlies ) {
            $regex ~= $esc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6494	6627	
==>eans that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6494	6627	
==>eans that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1779	1902	
==>s '<str>'
                #print "checking angle quote ... [$whitespace_before]\n";
                $m = Pugs::Grammar::Term <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6689	6801	
==>y $noop = $o->noop;
    my $re = $o->raw();
    return $o->mk_eater_for_re('.') if $re eq '.';
    die "didn't im <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	232	349	
==>ut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	232	349	
==>ut

# the Set is represented as a hash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11830	11923	
==>(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_oct_ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2404	2497	
==>ur Int multi Num::round_down (Num $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_towar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26985	27092	
==>.

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26985	27092	
==>.

Some example usage:

    my Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_AR <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15322	15424	
==>objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may return n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15322	15424	
==>objects:

- `start()` / `end()`

Return the start or end value of the span.

These methods may return n <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	728	848	
==>t; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $sche <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	695	815	
==>t; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $sche <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	487	599	
==>de;

# space, comments or pod 
*ws = Pugs::Compiler::Token->compile(q(
  [  
    \# \N* [\n|$] |
    [^|\n] \= \N <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8494	8597	
==>IL1::NodeSet0::NodeRepString::unparse {
    my $n = $_[0]->name; "\"$n\"";
}
sub PIL::PIL1::NodeSet0::No <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15140	15238	
==>ary type. The function signatures will likely look something
like this:

  multi sub is_deeply (Arr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15198	15296	
==>ary type. The function signatures will likely look something
like this:

  multi sub is_deeply (Arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6930	7077	
==>h;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6702	6840	
==>h;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16477	16575	
==>pe($.if), type::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify(
		my $t = type( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6613	6719	
==>(Pugs::Grammar::Match) contain:



### Match actually contain getters for $() and such

### getters need to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6391	6494	
==>(Pugs::Grammar::Match) contain:

### Match actually contain getters for $() and such
### getters need to <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2601	2712	
==>s first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2601	2712	
==>s first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4288	4423	
==>nown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4288	4423	
==>nown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print($request);
  $hdl.flush;
  $hdl;
};

=pod

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8895	9002	
==>ire' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8895	9002	
==>ire' in an eval string
    # because we need the bareword semantics, where 'require'
    # will munge the pa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24111	24215	
==>undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28663	28767	
==>undefined or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26882	27008	
==>ncat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27161	27287	
==>ncat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16365	16469	
==>(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16365	16469	
==>(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9548	9665	
==>bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9536	9653	
==>bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \\\%named, bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6289	6391	
==>ain-specific-language-like syntax, contained in a package

### rule must ever use Rule::rule form - nev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6074	6175	
==>ain-specific-language-like syntax, contained in a package
### rule must ever use Rule::rule form - nev <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32811	32903	
==>kes user-defined external files for reading, mainly in the
C<translate_message()> method, but <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32811	32903	
==>kes user-defined external files for reading, mainly in the
C<translate_message()> method, but <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4052	4177	
==>" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4269	4394	
==>" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7320	7423	
==>}
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7320	7423	
==>}
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7869	8081	
==>ure_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

meth <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7869	8081	
==>ure_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	449	549	
==>s Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	449	549	
==>s Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is export <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17244	17351	
==>pan is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterato <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17244	17351	
==>pan is empty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterato <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8848	8951	
==>verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

This event handl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8848	8951	
==>verbatim string.

=item I<string>

This event processes raw strings.

=item I<newline>

This event handl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24532	24635	
==>n those objects.
All of their attributes are private, so you must use accessor methods.
Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24532	24635	
==>n those objects.
All of their attributes are private, so you must use accessor methods.
Locale::KeyedTex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	722	827	
==>::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	722	827	
==>::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	124	240	
==>"

 multi sub grep (Any|Junction $test ; *@values) returns List {
   gather {
     for @values -> $x {
       take $x <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13002	13103	
==>s Bool`

These functions both take blocks of code, run the code, and test whether they live or die.

= <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13060	13161	
==>s Bool`

These functions both take blocks of code, run the code, and test whether they live or die.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3361	3474	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3554	3667	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4899	4994	
==>6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4899	4994	
==>6.0.0.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	379	490	
==>f, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	379	490	
==>f, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be called only once, w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10207	10337	
==>undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10207	10337	
==>undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1182	1294	
==>t tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1182	1294	
==>t tests if the Engine module loads or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2664	2773	
==>$S->object(digit => 0);
  });

  $self->add_handler('\D' => sub {
    my ($S, $cc) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	830	924	
==>n -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document describ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	830	924	
==>n -
Localization of Rosetta::Engine::Example for English

=head1 VERSION

This document describ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3029	3147	
==>ll o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave acce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3029	3147	
==>ll o, acute accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave acce <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2459	2587	
==>if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub check <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2459	2587	
==>if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This sub check <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1886	2050	
==>ername, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1886	2050	
==>ername, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation object, providing the methods
                           # " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5720	5840	
==>rt {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5778	5898	
==>rt {
    for (split("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7052	7243	
==>t;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->store(
                      $e->get('$label'), 
                      $e->get(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2736	2875	
==>t;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2736	2875	
==>t;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9758	9905	
==>return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    node::non_capturing_subru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9778	9895	
==>return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6251	6371	
==>a_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6251	6371	
==>a_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8335	8442	
==>this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.ele <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8335	8442	
==>this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.ele <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12788	12899	
==>os = $X::pos;
    my $at_pos = sub{ FAIL() if $X::pos != $pos; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11885	11999	
==>e. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11943	12057	
==>e. Until then, you can just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11650	11747	
==>rence )`

Returns true if this recurrence intersects (has any element in common) with the given re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11650	11747	
==>rence )`

Returns true if this recurrence intersects (has any element in common) with the given re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35120	35235	
==>rray references, each representing one
alternation, holding any number of objects

Branched

=head2 exact

Family: e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	759	853	
==>t RPe_BADFLG => --$ENUM, 'Useless (?%s%s) -- %suse /%s modifier';
use constant RPe_NOTREC => -- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	125	219	
==>&ternary:<?? !!>', '$cond', '$true', '$false'), # non short circuiting

    '&control_structure <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3362	3456	
==>>|<lookahead>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rule assert_eos  { \$ }
ru <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8079	8203	
==>p { -d $_ }
            map File::Spec->canonpath(substr($_, 2)),
            grep /^-L/, @_;
    my @libs = map substr($_, 2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11135	11251	
==>.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 match::get( \$_[0], '\$ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1373	1488	
==>ODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date sp <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1373	1488	
==>ODO - change Inf to Date::Infinite
    return $.end;
}

=kwid

= NAME

Date::Span - An object representing a date sp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3904	4002	
==>ware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3904	4002	
==>ware, and may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14454	14624	
==>str( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14448	14618	
==>str( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27621	27724	
==>ethods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27621	27724	
==>ethods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Message as a Hash ref <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22044	22149	
==>age for a certain code, it
returns the first one it finds.  This also works for the multiple language
or p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22044	22149	
==>age for a certain code, it
returns the first one it finds.  This also works for the multiple language
or p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	832	960	
==>t), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# conversi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	815	931	
==>$k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub node::ws {
	return ''
}
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1921	2039	
==>->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1921	2039	
==>->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) e <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5373	5562	
==>q "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish system, without GHC
        # in o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6135	6247	
==>els>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6135	6247	
==>els>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left chan <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3170	3305	
==>h my $bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2035	2188	
==>$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.tabl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2035	2188	
==>$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.tabl <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6699	6807	
==>tified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6699	6807	
==>tified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10031	10221	
==>ookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10031	10221	
==>ookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@ <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1996	2138	
==>put: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	82	183	
==>ler::Rule;
use Pugs::Compiler::Regex;
use base qw(Pugs::Grammar::Base);

sub ws {
    my $grammar = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6760	6880	
==>extracting a
complete grammar.  This may change in future versions.

This module is designed as a replacement (though not <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13672	13770	
==>ss the set of generics unchanged
val: generic($$) = { generic_in($$) }
# vals are assumed to know t <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	280	401	
==>start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $w <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	280	401	
==>start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2577	2876	
==>}
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @body) . '; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            elsif ($in_blo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	668	771	
==>s;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	668	771	
==>s;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is export {
    my ($volume, $directory, $f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1155	1429	
==>it '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1155	1429	
==>it '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0. <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	497	610	
==>dline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	497	610	
==>dline();
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

sub pil_is_ok( Str $code, Str $descrip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8543	8655	
==>turing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8539	8651	
==>turing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3740	3832	
==>ction of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtrippi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3740	3832	
==>ction of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtrippi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21334	21469	
==>ead1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21334	21469	
==>ead1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Co <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9136	9321	
==>ount = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        fo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9136	9321	
==>ount = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2884	2991	
==>nerate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2884	2991	
==>nerate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9841	9963	
==>et'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9835	9957	
==>et'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2026	2123	
==>alization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1950	2043	
==>alization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7924	8059	
==>e "Failed to open $index_file: $!";
    my @dirs  = sort keys %{$index->{_dirs}};    

    my @files = (exists $index->{_files} ? sort @ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1012	1115	
==>ft;
		(ref $self)->new( map { $_ => &$f($self->get($_)) } $self->keys );
	}

	sub values { values %{ $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4764	4868	
==>me(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4764	4868	
==>me(%!headers{$header}) },
    STORE => -> $time {
      $self!header($header, HTTP::Date::time2str($time) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3256	3383	
==>tBuilder->FETCH('::Test')->STORE('::Fail' => class 'TestBuilder::Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::Te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6909	7024	
==>n = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6909	7024	
==>n = $irl_doc.build_node_tree(
        [ 'row_data_type', undef, [
            [ 'row_data_type_field', { 'name' => ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21557	21662	
==>before, especially given that the Perl DBI purports to provide
"Database Independence".  However, the leve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21557	21662	
==>before, especially given that the Perl DBI purports to provide
"Database Independence".  However, the leve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22854	22954	
==>ng.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more memb <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27406	27506	
==>ng.

=item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more memb <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	714	820	
==>ption );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	714	820	
==>ption );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns Bool {
  my $pilresult = p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8312	8440	
==>pan1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8312	8440	
==>pan1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10958	11067	
==>rary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11108	11217	
==>rary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10365	10469	
==>RS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10365	10469	
==>RS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	802	900	
==>ass Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message cl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	802	900	
==>ass Locale::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message cl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6078	6164	
==>e($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6078	6164	
==>e($event<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6272	6412	
==>d.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the star <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6272	6412	
==>d.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek back to the star <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24687	24816	
==>>add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21108	21237	
==>>add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $sel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9752	9866	
==>thod shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9752	9866	
==>thod shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12411	12511	
==>ing argument is undefined).  The new Document object's All Nodes
attribute starts out empty, but gain <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12411	12511	
==>ing argument is undefined).  The new Document object's All Nodes
attribute starts out empty, but gain <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2749	2856	
==>nk Pugs::Compiler could work as the

basic interface, and if you'd like to offer more, subclass

it and call <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2647	2752	
==>nk Pugs::Compiler could work as the
basic interface, and if you'd like to offer more, subclass
it and call <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16706	16790	
==>1,E0,E1).
rm(union(_Re1,Re2),F0,F1,B0,B1,E0,E1) :- rm(Re2,F0,F1,B0,B1,E0,E1).

rm(int <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5275	5389	
==>.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5275	5389	
==>.keys;
    });

    # We track our status, especially the channels we've joined.
    # Somebody joined. Update %cha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6739	6857	
==>ule_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6739	6857	
==>ule_is_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17846	17956	
==>eds to be in terms of StrPos, not Int.

=item pack

=item pos

=item quotemeta

=item rindex 

Needs to be in t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16258	16359	
==>"glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      perl5_object => sub <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2222	2341	
==>e, $value);
}

sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confes <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4622	4745	
==>]/, $target, $pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	419	530	
==>:Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and
		! $self->can_run('nmake')
	);

	pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2073	2170	
==>represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2162	2259	
==>represents a B<Grammar> class / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rul <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4196	4293	
==>", in which case the
object returned represents the last day for the specified month.

- `today()` <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4196	4293	
==>", in which case the
object returned represents the last day for the specified month.

- `today()` <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6915	7013	
==>fore the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher>. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6915	7013	
==>fore the 
ciphertext.  This will be prepended to the return value of the first call to 
C<_cipher>. <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3942	4084	
==>$ret = '';
    }
    elsif $tree[0] eq '"MkTParam"' {
        my %pad = $tree[1];  # keys: "tpDefault""tpParam"
        dbg "# keys: ",%pad.key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1236	1358	
==>and such
        $name =~ s/#/\\#/g;
	$out = $pass ? "ok $test - $name" : "not ok $test - $name";
    } else {
	$out = $pas <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7103	7224	
==>0000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix($_,$prefix) }
    } els <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3722	3866	
==>s($self)->{'%:methods'}};
        },                             
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23474	23568	
==>e these operators with versions that are more specific to
their own objects, for efficiency, an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1360	1470	
==>b unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_impo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1360	1470	
==>b unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can('pmc_impo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	355	461	
==>b in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	355	461	
==>b in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10347	10451	
==>IONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10347	10451	
==>IONS

- `spans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1856	1968	
==>return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1856	1968	
==>return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2008	2144	
==>t;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2068	2204	
==>t;
            return $grammar->no_match unless $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18494	18593	
==>$self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19852	19951	
==>$self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1088	1197	
==>turns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1088	1197	
==>turns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3524	3859	
==>th, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3524	3859	
==>th, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3292	3426	
==>l,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3485	3619	
==>l,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3719	3818	
==>rence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3719	3818	
==>rence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6776	6890	
==>( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6776	6890	
==>( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3546	3709	
==>2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3793	3956	
==>2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<ru <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2639	2738	
==>is rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interface <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2639	2738	
==>is rule is then incorporated into the match.  XXX it is not clear
that this is the optimal interface <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2254	2399	
==>ammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2394	2539	
==>ammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $grammar, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1670	1801	
==>e"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital T <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1670	1801	
==>e"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital T <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3253	3370	
==>( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; op <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3253	3370	
==>( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	940	1032	
==>ine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	940	1032	
==>ine::Example::L::en version 0.2.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	494	639	
==>> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last character matched. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	494	639	
==>> elements, so if you're
                     thinking of these as numbers, this will be one past the
                     last character matched. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	469	571	
==>nicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	469	571	
==>nicode difference operator
#  note the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15653	15746	
==>after which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_un <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15653	15746	
==>after which the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8295	8424	
==>ick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8295	8424	
==>ick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2247	2346	
==>rosecond returns Int {
    int( ($.second - int($.second) ) * 1e6);
}
method millisecond returns Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1053	1163	
==>, do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1053	1163	
==>, do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22585	22699	
==>A;
  }
  if (outof_scope) {
    TREE = pop STACK;
  }

After the tree has been created, this key is deleted; this g <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	118	211	
==>e", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($?CLASS, "attributes", "Se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5670	5765	
==>tta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connectio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5670	5765	
==>tta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database connectio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7312	7398	
==>ontent("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7312	7398	
==>ontent("--$boundary$CRLF" ~ @parts.join("$CRLF--boundary$CRLF") ~ "$CRLF--$boundary$CRL <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2605	2720	
==>return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } spl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2605	2720	
==>return eval $out;
}

sub quote_pugs {
    my $self = shift;
    my $q = join '', map { sprintf("\\x%02X", ord) } spl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	379	501	
==>le !~ /\.pm$/i) {
        # Do the freshness check ourselves
        my $pmc = $file.'c';
        my $pmc_is_uptodate = (-s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	664	773	
==>faults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	664	773	
==>faults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23817	23921	
==>lly a simpler solution
than alternatives, and doesn't know about language specific details like
encodings <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23817	23921	
==>lly a simpler solution
than alternatives, and doesn't know about language specific details like
encodings <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1334	1453	
==>@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1261	1373	
==>@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils: <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4958	5098	
==>ail = shift;
   $rev  = shift;
   $mid  = shift;
   $wc   = shift;
}
select(STDERR);$|=1;select(STDOUT);$|=1;  # auto-flush
-f $head or die " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25749	25853	
==>st of 'foo' and a regback of 2.]

 [regexp.h]
 #define ROPT_ANCH		(ROPT_ANCH_BOL|ROPT_ANCH_MBOL|ROPT_ANCH <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4114	4218	
==>aracter but not ...
}
rule MultiLineNotForwardSlashOrAsteriskChar {  # see 7.4
      <-[/*]> #SourceChara <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	875	1029	
==>ame = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	875	1029	
==>ame = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18044	18160	
==>up your module's source code into various blocks; so that by the
time a compiler is called it only gets the source co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18044	18160	
==>up your module's source code into various blocks; so that by the
time a compiler is called it only gets the source co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1702	1797	
==>inue cleaning and adding p6, tuck it into the pugs distribution
somewhere with test files, and d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	247	338	
==>ed($node) && (my $meth = $self->can("reduce_" . $node->moniker))) {
		return $self->$meth($n <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	742	845	
==>main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	742	845	
==>main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "Now I'm here", :tagB <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2076	2200	
==>acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aeli <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2076	2200	
==>acute accent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aeli <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	883	973	
==>ish

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	883	973	
==>ish

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	703	821	
==>ource) = @_;
        my $sexpr = Perl6::Util::SExpParser->parse($source);
        #warn Dumper $sexpr;
        return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32553	32660	
==>open' node is walked into, after it has
been walk()ed, it will insert the matching 'close' node into the
wal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5410	5515	
==>names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_stri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5410	5515	
==>names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_stri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	12	117	
==>ugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	12	117	
==>ugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HT <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	151	314	
==>y $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        pu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	151	314	
==>y $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8578	8687	
==>f the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6112	6218	
==>f the second operator in
an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1960	2085	
==>^/$cnt++."\t"/mge;
    $s;
}

1;
__END__

sub original_repl { # not used
    my $verbose = 0;
    while (1) {
        my $line <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2096	2202	
==>le::$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unless defined $_[ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15149	15246	
==>ich will overwrite the current line (by use of
\r and such).  C<$ml> may be empty if Test::Harness <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4810	4899	
==>y.elems;
 }


 &Array::shift<Array> := &Array::splice<Array>.assuming(offset(0) :length(1) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9288	9389	
==>_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9288	9389	
==>_text_from_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9679	9811	
==>2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arith <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9679	9811	
==>2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arith <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17205	17308	
==>ience for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17205	17308	
==>ience for the message
content.  The value is one or more language tags as defined by RFC
1766.  Eg. "no" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13551	13658	
==>something
    $rx->error($rx->RPe_EQUANT)
      if @$tree == 0 or $tree->[-1]->family eq "flags";

    # qua <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23300	23399	
==>, this Relation::Example data type is proposed to be
generally useful, and very basic, and worthy of <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8624	8724	
==>$span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrenc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8624	8724	
==>$span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span objects.

- `new( recurrenc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4260	4369	
==>s_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4260	4369	
==>s_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value: <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8349	8459	
==>al = (`$ghc_pkg describe Cabal` =~ /version: 1\.[1-9]/i);

    while (<IN>) {
        # Adjust the dependency l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1134	1248	
==>d_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2299	2413	
==>d_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2186	2331	
==>ote: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2186	2331	
==>ote: Hash keys are always
                           # normalized() first!
  my %users;               # Stores the channels a user is on. Note: As <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4626	4755	
==>new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter

  my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4468	4591	
==>new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter
  my $c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4659	4791	
==>.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4659	4791	
==>.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @!ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3199	3338	
==>me => $_[2], block => $_[7], %{$_[4]}, %{$_[6]} } 
        }
    
    | SUB SUB BAREWORD             attr block 
        { $_[0]->{out}= { o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1217	1322	
==>his document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pendi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1217	1322	
==>his document describes Rosetta::Validator version 0.724.0.

=head1 SYNOPSIS

I<This documentation is pendi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1867	1972	
==>m($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1925	2030	
==>m($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8840	8964	
==>s set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $differen <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8840	8964	
==>s set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $differen <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	835	939	
==>les?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %var <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	835	939	
==>les?) is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %var <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	3	111	
==>eispielverknüpfungen
$a != $b;
$a ~~ $b;    # smart-match, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	791	902	
==>trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.final = $final;
} <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	791	902	
==>trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state.final = $final;
} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21661	21763	
==>end

.namespace [ "PGE::Exp::Subrule" ]

.sub "p6analyze" :method
    .param pmc pad
    .local int isa <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	650	778	
==>s;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	650	778	
==>s;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $current_tre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13308	13405	
==>in exactly the right input format for
Document.new(), by which you can create an identical Documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13308	13405	
==>in exactly the right input format for
Document.new(), by which you can create an identical Documen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5799	5915	
==>rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_range',
      type => 'anyof_range',
      data => <==
2	/Users/nnunley/pugs/util/drift.pl	45	136	
==>se File::Spec;
use FindBin qw<$Bin>;

my $setup = File::Spec->catfile($Bin, "DrIFT$Config{_e <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	299	415	
==>d1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:< <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	299	415	
==>d1 NAME

Inline::Pugs - Inline Perl 6 code in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:< <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5069	5297	
==>,
                                   Int $length,
                                       *@values
                                --> List ) is rw
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off + <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5972	6153	
==>es.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9449	9630	
==>es.map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2987	3079	
==>({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2987	3079	
==>({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	965	1071	
==>but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	965	1071	
==>but one of its elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4022	4156	
==>.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4022	4156	
==>.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31673	31770	
==>n has either all of the tuples of
the original, or has zero tuples, respectively.  This method has <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36223	36320	
==>n has either all of the tuples of
the original, or has zero tuples, respectively.  This method has <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7052	7203	
==>/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@resul <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5553	5704	
==>/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@resul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1701	1831	
==>x->{flags}[-1],
      family => 'anchor',
      type => $type,
      vis => $vis,
      zerolen => 1,
    }, $class;
    return $se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1516	1611	
==>PEC grammar SHOULD NOT BE CHANGED to accommodate the characteristics
#  of particular regex engi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4985	5104	
==>code) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which w <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4985	5104	
==>code) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex converter
    # which w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4032	4169	
==>*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $rules[$i] =~ /^$item/;
        #print "optimize: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6464	6592	
==>.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6464	6592	
==>.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4854	5047	
==>{
            die $e;
        } else {
            $! = $e;
            return undef; # this is probably the one place we can return
                          # in the Prelude: we want to exit f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24366	24477	
==>ey end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24366	24477	
==>ey end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19338	19437	
==>to a typical other
vendor's DBMS) is that data definition statements are structured as
standard data <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19338	19437	
==>to a typical other
vendor's DBMS) is that data definition statements are structured as
standard data <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2399	2517	
==>< 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2399	2517	
==>< 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1706	1797	
==>pher::Arcfour also includes several attributes which might be interesting to 
people interes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1706	1797	
==>pher::Arcfour also includes several attributes which might be interesting to 
people interes <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3881	3999	
==>ear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_ob <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3881	3999	
==>ear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

=item C<new>

    $cipher_ob <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4110	4243	
==>> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4122	4255	
==>> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+)     # Match and capt <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4446	4547	
==>t {int($_[0])}
sub p6_num {0+$_[0]}
sub p6_str {"".$_[0]}
#sub p6_ref {ref($_[0])?$_[0]:die "bug"} # X <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12832	12928	
==>r extensions.  Please
refer to L<perldiag> for the explanations of the messages.

These are all c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1356	1459	
==>d a Body.



the Pad contains My/State/Temp markers for container

allocation, as well as the compile-ti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1298	1398	
==>d a Body.

the Pad contains My/State/Temp markers for container
allocation, as well as the compile-ti <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	176	302	
==>src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source->new( dir => $dir ) 
        or <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	672	791	
==>le packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

r <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	672	791	
==>le packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12972	13143	
==>' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12966	13137	
==>' );\n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4461	4567	
==>d return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6363	6469	
==>d return value');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3936	4046	
==>ibutes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3936	4046	
==>ibutes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12435	12546	
==>ce that is closest to the parameter.
If both previous and next elements are at the same distance, returns the pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12435	12546	
==>ce that is closest to the parameter.
If both previous and next elements are at the same distance, returns the pr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4342	4447	
==>t {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4342	4447	
==>t {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5071	5210	
==>'}->() ,} }
        ) ),
        q(") => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.double_quoted>
            { re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14303	14463	
==>::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14582	14742	
==>::alternation( [
               ruleop::constant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constan <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2973	3086	
==>nning checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        lo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2973	3086	
==>nning checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprintf('%08X', do {
        lo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5322	5512	
==>(block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (blo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7084	7274	
==>(block new 
                    (($e) 
                     {
                         (((($e get ("$current")) send ("has_method" ($e get ("$label"))))) 
                            and (blo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1170	1266	
==>note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1170	1266	
==>note that the serious insecurities plaguing WEP were caused by improper use of 
RC4.)

=head2 Int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1516	1622	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1574	1680	
==>, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24226	24327	
==>, $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visual {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19305	19403	
==>odifiers_from(Ey,E0,E1).
  % match_captures(E0,C0),
  % match_captures(Ex,Cx),
  % append(C0,[[Str, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5111	5257	
==>ng
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at th <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5575	5721	
==>ng
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at th <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19395	19607	
==>k);
                }
                

              } else {
                # perhaps L<S02> etc should just link to the top?
                # this is what you get at the moment
                push @bad_headi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11710	11876	
==>ax};
            }
            # List overruns as failures.
            else {
                my $details = $results{details};
                foreach my $overrun ($t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	961	1083	
==>BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAGE__->add_rule(
        '{' = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2001	2146	
==>block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2194	2339	
==>block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	60	161	
==>x:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#=circumfix
$a{'foo'}		# $a.circumfix:«{ }»('foo' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35363	35457	
==>uant

Types: star (C<*>), plus (C<+>), curly (C<?>, C<{n}>, C<{n,}>, C<{n,m}>)

Data: one objec <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3933	4044	
==>y ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@st <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3933	4044	
==>y ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3185	3345	
==>e;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3185	3345	
==>e;
        my $date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8748	8858	
==>allback if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_pkg) || $self->can_run('ghc-pkg');

        # Th <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	147	255	
==>use strict;
use warnings;

# Input a string containing a rpn expression.
# Return the evaluated integer resul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13122	13233	
==>tr $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13122	13233	
==>tr $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $ev <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2549	2653	
==>s the query string portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2549	2653	
==>s the query string portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20128	20233	
==>nguage is in a separate file, and adding a localization to a Mac OS X
program is as simple as adding a lan <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20128	20233	
==>nguage is in a separate file, and adding a localization to a Mac OS X
program is as simple as adding a lan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	721	818	
==>))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	721	818	
==>))->code;
*Constants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6449	6555	
==>ed to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6242	6344	
==>ed to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7361	7489	
==>y so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_template_text_fro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7361	7489	
==>y so; an undefined
        # ret val means module doesn't define key, skip to next module.
        $text = .get_template_text_fro <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1818	1959	
==>{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values is rw
                              ; SortCriterion :$by <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1150	1251	
==>Obj );
  if ( (substr $target, $from, 1) =~ /[:alpha:]/ )
  {
    $matchObj->position( $matchObj->from <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1979	2093	
==>fix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1979	2093	
==>fix', name => '[', name2 => ']', assoc => 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23958	24083	
==>G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20379	20504	
==>G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;
      return $S->object(groupp => $n);
    }

    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	562	692	
==>'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	562	692	
==>'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => 'Temporary Redirect' <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2995	3102	
==>name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --ver <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2995	3102	
==>name.hs
_
}

sub assert_ghc {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --ver <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9708	9806	
==>ift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9708	9806	
==>ift;
    my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3304	3422	
==>returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_up <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3304	3422	
==>returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_up <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3073	3161	
==>derr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stringarg,strend);
    fprintf(stde <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2610	2703	
==>e following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seper <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2610	2703	
==>e following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	272	371	
==>_filename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File->new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	272	371	
==>_filename = shift || die "Missing arguments!";

# Open the input file
my $input_file = IO::File->new <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1931	2057	
==>lass:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1991	2117	
==>lass:]])(.*)$);
        *{$char_class} = sub {
            my $grammar = shift;
            return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8032	8161	
==>ic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8032	8161	
==>ic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10102	10221	
==>xDigit> <HexDigit> <HexDigit>
}
rule RegularExpressionLiteral {  # see 7.8.5
      <'/'> <RegularExpressionBody> <'/'> < <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10471	10568	
==>);
    
## does Bar get Object's singleton methods ..

is($Bar->another_singleton_test_on_object() <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2034	2167	
==>ar we are doing an fully correct parse.
#
#  Todo:
#   * Create a second grammar which actually runs, is efficient,
#     and has capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	432	527	
==>l => sub {print}
to FILTER_ONLY

=cut

package Filtered::Comments;
use Filter::Simple;
sub impor <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2185	2287	
==>e Devel::STDERR::Indent qw/indent $STRING/;
	$STRING = "  ";

	BEGIN { __PACKAGE__->mk_accessors(qw/run <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	9	122	
==>est::Harness::Iterator;

use strict;
use vars qw($VERSION);
$VERSION = 0.02;

=head1 NAME

Test::Harness::Iterator <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5814	5920	
==>thod map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9291	9397	
==>thod map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relation.new(
        he <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4272	4414	
==>f },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4272	4414	
==>f },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11093	11198	
==>almost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $sou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11093	11198	
==>almost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $sou <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6265	6377	
==>size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6265	6377	
==>size () returns Object {
    return undef if $.span.is_empty;
    return $.span.size;
}

sub _normalize_parameter <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12437	12530	
==>ike the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will n <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12437	12530	
==>ike the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23286	23386	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23286	23386	
==>sages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta::Model <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4568	4666	
==>rray> := &Array::splice<Array>.assuming(offset(-1) :length(1));

 multi Array::pop ( --> Scalar ) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25732	25828	
==>osetta with non-free software components.

Any versions of Rosetta that you modify and distribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25732	25828	
==>osetta with non-free software components.

Any versions of Rosetta that you modify and distribute <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2324	2444	
==>n => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work? <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2324	2444	
==>n => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	911	1019	
==>r = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	911	1019	
==>r = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19922	20017	
==>.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19922	20017	
==>.user("nick")>

Returns a hashref describing C<nick>. Currently, there's only one key,
C<channel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22203	22313	
==>rd =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "..." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22203	22313	
==>rd =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "..." <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18380	18512	
==>\&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18380	18512	
==>\&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	648	770	
==>( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	648	770	
==>( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5811	5911	
==>lers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5811	5911	
==>lers);

=head1 DESCRIPTION

This is a straightforward event based POD parser, it is modeled after XML <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5035	5157	
==>$!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $s <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	1011	1119	
==>apter 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_[0]);
  $_[0] = ta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16914	17010	
==>in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applicatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16914	17010	
==>in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applicatio <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	616	755	
==>);

type Perl::Cxt is CxtVoid | CxtItem | CxtSlurpy;

# in fact, maybe the following syntax could auto-define the extra
# types for 1 to 1 c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3657	3791	
==>$request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3657	3791	
==>$request.date;
            
            if ($request_time) {
                # Add response_delay to age to get 'corrected_initial_age' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8556	8667	
==>enting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8556	8667	
==>enting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Re <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	608	727	
==>>module_name($1) if /^\s*package\s+(\w[\w:]*)\s*;\s*$/;
            last;
        }
    }

    return if $self->module_n <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	753	846	
==>rn %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is exp <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	753	846	
==>rn %WIDGETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is exp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	217	409	
==>,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{sign};
    $self->Meta->write            if $args{m <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	275	429	
==>,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{sign};
    $self->Meta->write if $args{m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	727	920	
==>return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	727	920	
==>return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->cod <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2747	2905	
==>okie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2747	2905	
==>okie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	142	393	
==>Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readon <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	142	393	
==>Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readon <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2968	3083	
==>$Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('valueOf');
        if $Result5. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3098	3204	
==>TORE('::Pass' => class 'TestBuilder::Test::Pass' => {
    is   => [ $::Object ],
    does => [ $::TestBuild <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16763	16888	
==>ader value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16763	16888	
==>ader value happens to
    # be 'TEXT/HTML; version=3.0'
    ...
  }

=item $h.content_encoding

The Content-Encoding header fi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1355	1489	
==>@_);
        }
        else {
            if (exists $_table->{prototype}) {
                $_table = $_table->{prototype}->('message- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1526	1649	
==>previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1526	1649	
==>previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.cl <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20444	20555	
==>?CONFIG<perl5path>~q{ -e 'print join("\n", map {-M}, @ARGV,"")' }~$file;
    my $p = Pipe::open($cmd);
    my $m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20869	20966	
==>e all others for production use.

Most of the other (near term) third party Engines will likely ju <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20869	20966	
==>e all others for production use.

Most of the other (near term) third party Engines will likely ju <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9325	9423	
==>erl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3150	3248	
==>erl6->sub_decl(@_) };
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	38	127	
==>onfig::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	38	127	
==>onfig::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Confi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4124	4261	
==>ple.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
se <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4124	4261	
==>ple.

        [section]
        var1=value1
        var2=value2

If a property is outside of a section, it will be assigned to the root
se <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3673	3755	
==>f._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3673	3755	
==>f._get_intersection( $self.closure_next, $self.closure_previous, $set.closure_next, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22576	22672	
==>t>
}
rule ThrowStatement :words {  # see 12.13
      <'throw'><no_LineTerminator_here><Expression <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7502	7640	
==>>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuator {  # see <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	967	1082	
==>fy (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	967	1082	
==>fy (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7864	7996	
==>_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7864	7996	
==>_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whet <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6783	6965	
==>hange {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all pos <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5287	5469	
==>hange {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessary to destroy all pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3344	3481	
==>}
    else {
        $pass = $got eq $expected;
    }

    unless ($pass) {
	unshift(@mess, "#      got "._q($got)."\n",
		       "# expec <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	531	630	
==>or a consistent interface
sub to_num { shift }

# conversion to other native types
sub to_bit { (shi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3986	4142	
==>end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3986	4142	
==>end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5821	5932	
==>elf._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5821	5932	
==>elf._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@. <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1476	1601	
==>rt{
    my @matches;
    for %x.kv->$key,$value{
        if $value eq $x { push @matches,$key }  
        if $cap && +@matches <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12778	12861	
==>itle="Details" class="expander" onclick="toggle_visibility('<tmpl_var name=id>')" id <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13747	13879	
==>ple.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15272	15404	
==>ple.new(
            heading => $!heading.union( $other!heading ),
            body => set()
        );
    }
    if ($!heading.size( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8131	8271	
==>=> sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8131	8271	
==>=> sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5004	5119	
==>,6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=h <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5004	5119	
==>,6,@index[3],0,0xFF); # 2.octet
    }
  }
}



=head1 NAME

MIME::Base64 - base64 encoding and decoding for Pugs

=h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1540	1642	
==>Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after" <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1540	1642	
==>Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4524	4660	
==>client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4524	4660	
==>client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must apply heuristic exp <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	823	951	
==>ess($smoke =~ /^<!DOCTYPE html/) {
    debug "doesn't look like a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $comp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	381	480	
==>native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_str { sh <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9583	9694	
==>his test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and docum <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9641	9752	
==>his test for now');

  flunk('this fails, but might work soon', :todo(1));

  diag('some misc comments and docum <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1993	2146	
==>le_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub exte <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1993	2146	
==>le_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub exte <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4111	4253	
==>nue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4111	4253	
==>nue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5208	5306	
==>, $_); }
}

# reading synopses
infest_syns($link_info) unless $no_designdocs;

# Generating index.h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1451	1572	
==><Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1451	1572	
==><Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { use v5; return $<Va <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6092	6195	
==>a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the su <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6092	6195	
==>a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so the su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16661	16775	
==>do the following:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real header value ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16661	16775	
==>do the following:

  if $h.content_type eq 'text/html' {
    # we enter this place even if the real header value ha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	175	303	
==>>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	175	303	
==>>* } # a section of code

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{ <==
2	/Users/nnunley/pugs/util/fixauthors.pl	7	142	
==>bin/perl
use warnings;
use strict;
#use CPAN;
use LWP::Simple;
use HTML::TreeBuilder;

binmode(STDOUT, ":utf8");
binmode(STDIN,  ":utf8" <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18148	18271	
==>pear at the beginning or end of tests\n"
      if $totals->{seen} && 
         $totals->{max}  < $totals->{seen};
};

sub te <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2691	2807	
==>'param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule| <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2875	2991	
==>'param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule| <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	631	756	
==>dd_children(
                    Tree.new(:node<List>).add_children(
                        Tree.new(:node<Lazy>).add_childre <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2667	2775	
==>_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'values'}{'no_index'}{$type} }, @_ i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3543	3648	
==>el::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3543	3648	
==>el::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta::Model::Document
    # The Doc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9375	9513	
==>n any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9375	9513	
==>n any <deciphering decipher decrypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40089	40192	
==>distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40089	40192	
==>distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9713	9888	
==>:constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9992	10167	
==>:constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	413	608	
==>aults to local time
        ( Z | [+-](\d\d):?(\d\d)? )?
        /;      #/x  # (go cperl-mode ;))

our $iso8601_dur_re = rx:perl5:ix/\s*
        P \s*
        (?: (\d+) \s* Y )? \s*
        (?: ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	904	1062	
==>';\n" .   # t/07-try.t, t/07-ref.t
        $perl5 . "\n" .
        "; 1;\n";

    {
      # Perl::Tidy is used if available
      local $@;   # don't care if t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32796	32891	
==>e stacked nature of the
tree.  However, having them returned while I<walking> the tree is
helpfu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5964	6091	
==>lace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5964	6091	
==>lace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!f <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3200	3299	
==>s($syn_src_dir && -f catfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could not locat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7169	7275	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7169	7275	
==>val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5975	6159	
==>map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9452	9636	
==>map:{ $replacements.( $_ ) }),
    );
}

###########################################################################

method restrict (Code $predicate!) returns Relation {
    return Re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	271	364	
==>Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::N <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	271	364	
==>Perldoc::DOM::Element - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::N <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39462	39609	
==>->values();                                 
            }
        )
    )
);

## ------------------------------------------------------------------ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9703	9807	
==>ant_closure:
    pos += 2
    pos = find_not_cclass .CCLASS_WHITESPACE, target, pos, lastpos
    $S0 = su <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1492	1596	
==>rce => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->ad <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1492	1596	
==>rce => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with content
 $para->ad <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27354	27455	
==>elation has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31906	32007	
==>elation has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the keys <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13092	13212	
==>d create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13092	13212	
==>d create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4904	5073	
==>) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4916	5085	
==>) } ) {
            next unless ref($_) eq 'HASH';
            if ( $num == $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5643	5751	
==>v ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3458	3564	
==>v ($self->find_extensions($path)) {
        my ($file, $pkg) = @{$rv};
        next if $self->{pathnames}{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2726	2843	
==>sis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex acc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2726	2843	
==>sis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex acc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1987	2106	
==>-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1987	2106	
==>-1] && exists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3855	3987	
==>, "# it should not be "._q($got)."\n",
                       "# but it is.\n");
    }
    _ok($pass, _where(), $name, @mess);
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	582	697	
==>1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # St <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	582	697	
==>1.2 {

    # External packages used by the Rosetta::Shell module, that do export symbols:
    # (None Yet)

    # St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9326	9436	
==>nless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11641	11751	
==>nless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev-> <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1698	1810	
==>ge Regexp::StructHook;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_insert();
}

sub make_qr <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1404	1553	
==>0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.ma <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1404	1553	
==>0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1233	1419	
==>eue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
} <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1233	1419	
==>eue.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
} <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	159	260	
==>n");

if (! -e "words.db.p5") {
    system("perl naive_bayesian.p5 add apples apples");
    system("pe <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	181	274	
==>Perl::Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	76	194	
==>tor_engine.pl - fglock

Old docs are after the __END__.

This is a rewrite of the matching engine, aiming to genera <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3780	3896	
==>is($p1->get_y, 16, '... still got the right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prototyp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1862	1992	
==>);
    $from = "" if !defined $from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
}
sub _indent {my($o,$s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2089	2201	
==>ath', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc et <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2089	2201	
==>ath', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir'); 
  
  # ... etc et <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2350	2481	
==>rn $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> ($O: JSX::String $P) {
    return JSX::true if !$O.property_value.exists <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30728	30822	
==>ll's TEST script that came
with perl distributions for ages. Numerous anonymous contributors
ex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1884	1993	
==>s we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_native .. $end_index- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	233	344	
==>::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	233	344	
==>::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	72	176	
==>`package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	72	176	
==>`package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Compile;

us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1083	1237	
==>looser',
        other => '*',
    );
    __PACKAGE__->add_rule( 
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        othe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8025	8140	
==>tement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5427	5536	
==>tement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implementation for Pe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11207	11330	
==>}/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11207	11330	
==>}/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10138	10252	
==>t();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10138	10252	
==>t();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) && re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1942	2045	
==>an.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.ne <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1942	2045	
==>an.new( start => -Inf, end => Inf )] );
}

method empty_set ($class: ) returns Set::Infinite { $class.ne <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18896	18977	
==>,E0,E0).
rm_repeat_max_ng(_Re,_,F0,F0,B0,B0,E0,E0).
rm_repeat_max_ng(Re,N,F0,F1,B0 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8154	8332	
==>t )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8154	8332	
==>t )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48326	48414	
==>---------------------------------------------------
## add Module

$::Module = $::Class-> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13067	13168	
==>each decoded
separately and the same number of strings are returned.

If called in void context the ar <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13067	13168	
==>each decoded
separately and the same number of strings are returned.

If called in void context the ar <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14287	14392	
==>us span, because the "separation" 
between values would be very close to zero:

    $iterator.next;   # 1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14287	14392	
==>us span, because the "separation" 
between values would be very close to zero:

    $iterator.next;   # 1. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2636	2768	
==>se)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading compon <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2636	2768	
==>se)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading compon <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19690	19784	
==>channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19690	19784	
==>channel("#chan")>

Returns a hashref describing C<#chan>. Its keys are C<topic> (the current
to <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10642	10758	
==>defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10642	10758	
==>defined( $.span.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3901	4023	
==>) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3901	4023	
==>) {

    return $span.intersection( $self )
        if $span.isa( 'Span::Code' );

    my ($i_start, $i_end);
    my bool $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	359	461	
==>) returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	359	461	
==>) returns bool { return ! @.spans }

method is_infinite ($self: ) returns bool {
    return $self.start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9467	9576	
==>$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9467	9576	
==>$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3173	3267	
==>ct ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FE <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3359	3453	
==>ct ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::Base') ],
});

$::TestBuilder->FE <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8800	8921	
==>ons
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8800	8921	
==>ons
  my $set2 = set(1..10);

  # various set operations
  my $union        = $set ∪ $set2;  # or "+"
  my $intersection <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13135	13264	
==>tr $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13135	13264	
==>tr $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $l <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	544	734	
==>ading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	544	734	
==>ading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10665	10763	
==>es have reasonable values, and
that attributes or Nodes are not missing.  The deferred validations, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10665	10763	
==>es have reasonable values, and
that attributes or Nodes are not missing.  The deferred validations, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1700	1828	
==>mit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1700	1828	
==>mit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1668	1769	
==>todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1726	1827	
==>todo, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2585	2696	
==>ner ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex] <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2585	2696	
==>ner ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex] <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3751	3858	
==>ow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
" <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3751	3858	
==>ow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The strings "now",
" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8295	8443	
==>->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8295	8443	
==>->[CLASSES]}") {
            shift;
            $block->[TEXT] .= $next->[TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASS <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2088	2192	
==>hift;

	my $from = shift;
	my $to = shift;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10402	10510	
==>he life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replace <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10402	10510	
==>he life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_' as a replace <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3431	3535	
==>_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULL <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4567	4670	
==>_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $makefile =~ s/^(FULL <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12841	12962	
==>alled on undef"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => sub { "". $_[0] },
      scalar_numer <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	779	887	
==>eturn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	779	887	
==>eturn ($self.size - $pre_size);
}

method remove($self: *@items) returns Int {
    my $pre_size = 0;
    if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34671	34762	
==>arser::__object__>.

Here is the definition of F<Regexp::AndBranch::and>:

  package Regexp: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5104	5192	
==>---------------------------------------------
## now begin creating the metamodel, starti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13315	13422	
==>!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13315	13422	
==>!~)~~~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4892	4987	
==>urn $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5236	5331	
==>urn $S->force_object(anyof_class => $S->force_object(space => 1)) if $cc;
    return $S->object( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	991	1091	
==>0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	991	1091	
==>0, $high? = Inf, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26586	26679	
==>n the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test::Harness will print debugg <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9053	9185	
==>d  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Avai <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10530	10662	
==>d  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = LoadFile( $protoconf::Avai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1310	1432	
==>debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Arra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1310	1432	
==>debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Arra <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8579	8694	
==>G};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg/  # ghc-6.5 => <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1360	1468	
==>f printing the results, straps
provide them as raw data.  You can also configure how the tests are to
be run. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5665	5818	
==>se
    inc pos
  term_bx3:
    if isnegated goto term_charlist                # \X[...], \000
    # goto term_literal                            # \x[...] <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	769	895	
==>store (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	769	895	
==>store (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14266	14426	
==>face::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14266	14426	
==>face::Row $fetched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4236	4351	
==>ifference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4236	4351	
==>ifference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2170	2269	
==>which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have differen <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2170	2269	
==>which is a "C<body>" element of sorts.

Different types of nodes in a Perldoc DOM tree have differen <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	933	1051	
==>telling captures where in the deep structure
                     to store what they've captured.

=cut

our class Matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	933	1051	
==>telling captures where in the deep structure
                     to store what they've captured.

=cut

our class Matc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3585	3768	
==>})}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3585	3768	
==>})}}
#line 1 #############################################################
...
}

# Write the output to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $clas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8180	8319	
==>\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8180	8319	
==>\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4346	4536	
==>matches[1]{capture};

            undef $capture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4214	4398	
==>matches[1]{capture};
            undef $capture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4172	4270	
==>rmalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4172	4270	
==>rmalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	1221	1366	
==>]',
        assoc => 'left',
        precedence => 'tighter',
        other => 'prefix:<++>',
    );
    __PACKAGE__->add_rule( 
        name => ' <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	167	321	
==>ader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACK <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	162	316	
==>ader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require DynaLoader;
        push @ISA, 'DynaLoader';
        __PACK <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16439	16538	
==>e converted to lower case, and potential
parameters will be chopped off and returned as a separate v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16439	16538	
==>e converted to lower case, and potential
parameters will be chopped off and returned as a separate v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2017	2162	
==>*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2017	2162	
==>*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4203	4303	
==>.

=head2 @{}

When used as an array reference, the match object returns positional
captures as match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4203	4303	
==>.

=head2 @{}

When used as an array reference, the match object returns positional
captures as match <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4490	4603	
==>concat {
    my($o,$aref)=@_;
    die "bug $aref" if ref($aref) ne 'ARRAY';
    my @a = @$aref;
    return $o->noo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18606	18717	
==>the {URL} of whatever web page
     contains the link that the user followed to the current
     page.  Most bro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18606	18717	
==>the {URL} of whatever web page
     contains the link that the user followed to the current
     page.  Most bro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15959	16075	
==>return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19436	19552	
==>return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3615	3714	
==>eywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3615	3714	
==>eywords>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3247	3370	
==>o World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP:: <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3247	3370	
==>o World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14863	14965	
==>e".

This routine is I<not> exported by default.  But you can always
export it with C<use HTML::Entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14863	14965	
==>e".

This routine is I<not> exported by default.  But you can always
export it with C<use HTML::Entitie <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8934	9056	
==>$set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8934	9056	
==>$set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10821	10949	
==>Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10821	10949	
==>Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8978	9105	
==>pilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8978	9105	
==>pilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	464	586	
==>{ $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	464	586	
==>{ $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anywhere { 
    my $const = shift;
    "( ( \$s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	522	629	
==>gument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	522	629	
==>gument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash containing: - <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19878	19977	
==>ES.

After all the code has been parsed into blocks and the blocks have been
marked for various comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19878	19977	
==>ES.

After all the code has been parsed into blocks and the blocks have been
marked for various comp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17237	17335	
==>e that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17237	17335	
==>e that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagous t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8721	8816	
==>Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2546	2641	
==>Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2156	2295	
==>fix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6462	6562	
==>term1>) 
        { return { sub_application_term => $() ,} }
RULE
*{'sub_application'} = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10744	10857	
==>'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immedi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11023	11136	
==>'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediate_statement_exec', \&{'grammar1::immedi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	56	259	
==>l5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	56	258	
==>l5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15841	15961	
==>,_)) ; match_captures_get(I,E0,X), var(X) )
  -> rm(Rb,F0,F1,B0,B1,E0,E1) ; rm(Ra,F0,F1,B0,B1,E0,E1).
rm(condition(Rk,Ra, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2126	2222	
==>ee = $dag->splat(\@free); # Attribute grammars can't eat DAGs, so we have to recursively make sha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	804	932	
==>('str'));
    
    my $args = list->new($inv, @args);
    
    my $class = $inv->class;
    
    # gather all the classes to look <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4119	4245	
==>loseparen = 0;
    }

    newstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r->sublen));
    newst <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2236	2349	
==>n '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2236	2349	
==>n '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2160	2267	
==>y $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message / <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2160	2267	
==>y $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = ./message / <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2508	2629	
==>.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2508	2629	
==>.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12319	12423	
==>head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12319	12423	
==>head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1982	2085	
==>y extracting the 
last component of the calling function's package name.  (For example, if 
a function i <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1982	2085	
==>y extracting the 
last component of the calling function's package name.  (For example, if 
a function i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	429	545	
==>es in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns V <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	487	603	
==>es in the same process
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns V <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13859	13956	
==>ar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13859	13956	
==>ar"

This routine is exported by default.

=item encode_entities( $string )

=item encode_entities <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	617	746	
==>y with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	617	746	
==>y with our results
    my @results;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4629	4812	
==>tate
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4629	4812	
==>tate
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) if de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17977	18073	
==>ick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17977	18073	
==>ick, the
channels it has joined, etc.).

=head2 C<$bot.login()>

Tries to login, using the C<nick <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10391	10546	
==>s, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10391	10546	
==>s, [$text, {%$context}, [@classes]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use' <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	541	682	
==>v = ((@$match ? 1 : 0), undef, undef, @$match);
            return reverse(@rv);
        });
    };
}

1;

__END__

=head1 NAME 

re::override <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5149	5248	
==>dule_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5149	5248	
==>dule_content);
    my $folded_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3558	3692	
==>sif $tree[0] eq '"VRat"' {
        $ret = emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    e <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13589	13697	
==>ce($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equival <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13589	13697	
==>ce($set2)>

=head2 C<$set1 % $set2>

Returns all items that are only in one of the two sets.  This is
equival <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4031	4180	
==>) }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4031	4180	
==>) }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1540	1653	
==>eZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1540	1653	
==>eZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12409	12549	
==>rn { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12688	12828	
==>rn { grammar_name =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3535	3658	
==>wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the a <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3535	3658	
==>wait();
      }

      $mail.take_off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2274	2385	
==>{param_stack} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    s <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	731	829	
==>nt to $session and return the result.
  # The session's event handler won't be executed until @:eve <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1503	1681	
==>)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1503	1681	
==>)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) { <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17409	17539	
==>bad}/$tot->{tests} test scripts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n", <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1260	1353	
==>e {
    3.14159265358979323846264338327950288419716939937510;
}

sub lcfirst (Str $str) return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1014	1173	
==>pe'
        );
    }    
    
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        sig  => $signature,
        body => $body <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	105	201	
==>rx:perl5/^$iso8601_duration_re$/;

has Int $.year;
has Int $.month;
has Int $.day;
has Int $.hour <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4749	4860	
==>ho are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4749	4860	
==>ho are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5834	6126	
==>atcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7596	7888	
==>atcher")) do))))
                     })) do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block ne <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4900	4996	
==>bjects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4900	4996	
==>bjects.

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6063	6154	
==>now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. However, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6063	6154	
==>now. The F<t/complex.t> test 
actually roundtrip parses this document successfully. However, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2240	2368	
==>tr {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2240	2368	
==>tr {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	471	590	
==>index  $Repodir    $Metaext

            package_prefix  package_authority   package_name  package_version
            l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16354	16564	
==>, Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not implemente <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	16348	16558	
==>, Dumper \$match[-1];\n" .
                "$_[1]           \$bool;\n" .
                "$_[1]         }",
	      flat => 1
            }, 
            $_[1],    
        );
    }
    die "<$cmd> not implemente <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13842	13961	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14121	14240	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { _push =>  match::get( $_[0], '$()' )  , <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2698	2821	
==>se if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2698	2821	
==>se if $set.equal( $universe );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set ) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11701	11796	
==>encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11701	11796	
==>encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entiti <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3120	3230	
==>e'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket( <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3120	3230	
==>e'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8060	8162	
==>ediately.  This method should be as thorough as 
possible; for example, it should not merely set arrays <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8060	8162	
==>ediately.  This method should be as thorough as 
possible; for example, it should not merely set arrays <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4392	4500	
==>.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4392	4500	
==>.complement;
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method difference ($s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	560	705	
==>perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	560	705	
==>perl5{[\\/]\Z(?!\n)})) {
        @dirs[@dirs - 1] = '';
    }
    @dirs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16669	16777	
==>ion::Example {

    # First do some optimizing of the order that source relations are
    # combined, so to t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10052	10174	
==>,
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.define <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10052	10174	
==>,
            { 'METH' => 'interpolate_vars_into_template_text',
            'ARG' => '$text!' } )
        if !$text.define <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40532	40630	
==>, etc.

=head2 Throwing Warnings and Errors

There are three methods you can use when a problem ari <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	786	887	
==>lf->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{adm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2621	2722	
==>lf->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{adm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7364	7514	
==>= $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7364	7514	
==>= $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref not needed
                #print 'got captur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3226	3409	
==>.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3226	3409	
==>.r('code') ~ '->CALL(' 
                        ~ join(', ', map { $ng.r("arg$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12527	12668	
==>def, undef, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	948	1106	
==>nless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	909	1062	
==>nless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13525	13888	
==>, 
                                             percent => undef,
                                             estat   => '', 
                                             wstat   => '',
                                           };
                }
                $tot{bad}++;
            } else {
                print "FAILED before any test output arrived\n" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22862	22962	
==>pic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reaso <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22862	22962	
==>pic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reaso <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1584	1690	
==>tic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $descr <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1584	1690	
==>tic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $descr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10010	10200	
==>=> 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10010	10200	
==>=> 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	576	678	
==>le, allowing a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	576	678	
==>le, allowing a programmer to 
change ciphers simply by changing the class name used.

Ciphers used with <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18533	18629	
==>now it officially is not and you should not share
Rosetta objects between multiple threads, nor h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18533	18629	
==>now it officially is not and you should not share
Rosetta objects between multiple threads, nor h <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2675	2765	
==>ewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2675	2765	
==>ewhat short, additions welcome! :)

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18075	18176	
==>have references to each other at a level visible in the Rosetta Native
Interface, if at all.  To accou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18075	18176	
==>have references to each other at a level visible in the Rosetta Native
Interface, if at all.  To accou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23442	23642	
==>)
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23721	23921	
==>)
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'bl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4703	4874	
==>sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5167	5338	
==>sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sorted[0];
                
        
            ### OR dependency
            } e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12638	12888	
==>KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12638	12888	
==>KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messag <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3540	3650	
==>)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hook r=%lu callback SV*= <==
2	/Users/nnunley/pugs/util/package-osx.pl	1785	1874	
==>IL2JS.pm /Library/Perl/5.8.6/PIL2JS.pm
        /usr/local/lib/perl5/site_perl/pugs-smokejs <==
2	/Users/nnunley/pugs/util/importgraph.pl	1480	1587	
==>ft;
  my $regexp = join '|', map {
    UNIVERSAL::isa($_, 'Regexp') ? $_ : "^\Q$_\E\$" } @_;
  $regexp = qr/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2477	2598	
==>G => sub { UNIVERSAL::isa(shift(), 'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15064	15162	
==>a program's operation, the program (or a package it uses)
will need to display a message to the use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15064	15162	
==>a program's operation, the program (or a package it uses)
will need to display a message to the use <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1260	1375	
==>es;
# 8.6.2.1
method <[[Get]]> ($O: JSX::String $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16527	16626	
==>m::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "In <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16527	16626	
==>m::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "In <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5664	5764	
==>van Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implemen <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5664	5764	
==>van Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implemen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8965	9088	
==>tion."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12442	12565	
==>tion."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3790	3888	
==>closure_previous =>    $self._get_intersection( $self.closure_previous, $self.closure_next, $set.cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3790	3888	
==>closure_previous =>    $self._get_intersection( $self.closure_previous, $self.closure_next, $set.cl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7791	7901	
==>($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7791	7901	
==>($killee) eq normalize($curnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18782	18884	
==>98-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid this missp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18782	18884	
==>98-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid this missp <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	107	202	
==>org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	107	202	
==>org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16394	16490	
==>ptional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16394	16490	
==>ptional named parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4685	4798	
==>@head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4685	4798	
==>@head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # say 'insert: ', $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23355	23462	
==>l
files.  Or alternately they have a compiled C component or otherwise have
non-trivial external dependencie <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23355	23462	
==>l
files.  Or alternately they have a compiled C component or otherwise have
non-trivial external dependencie <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5553	5664	
==>~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5553	5664	
==>~ ") in the string (@tokens)";
    %events<end_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	706	813	
==>ule MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	706	813	
==>ule MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ms <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1056	1163	
==>f->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1947	2054	
==>f->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5675	5779	
==>\n\t{$caller.package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25376	25603	
==>()); 
                          # and recalculate it ..
                          $e->get('$self:')->send('MRO');                          
                      })
                  );
                $e->get('$self:')->get_att <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4254	4366	
==>acros, you may
    use the following syntactic categories:

         rule rxbackslash:<w> { ... }    # define you <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	486	604	
==>= undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax er <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	486	604	
==>= undef;
my $source = <$input_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax er <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5447	5574	
==>ss;
    if (!defined $got or !defined $expected or !defined $range) {
        # This is a fail, but doesn't need extra diagnosti <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	618	720	
==>val { LoadFile( $file ) } or error( $@ ), return; 

    return $class->new_from_struct( struct => $stru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7679	7841	
==>RRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7691	7853	
==>RRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	855	955	
==>n');
	if($verbose) {
	    print $cc->as_pil_tree_yaml;
	    print "# p5\n",number_the_lines($p5),"\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16298	16393	
==>means character classes should store a hash of what characters
they represent, as well as the ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19103	19200	
==>grated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other prog <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19103	19200	
==>grated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any other prog <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10126	10238	
==>ing iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= C <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10126	10238	
==>ing iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnings in some cases.

= C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6291	6417	
==>ion::Example.new(
        heading => set( %full_map.values ),
        body => set( $!body.values.map:{
            mapping( $_. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4320	4415	
==>[Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	315	429	
==>ixity => 'postfix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1714	1819	
==>ngle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$rem <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1593	1687	
==>ttle <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights rese <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1593	1687	
==>ttle <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights rese <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3678	3774	
==>d.

This module is primarily for reading human written files, and anything we
write shouldn't nee <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3678	3774	
==>d.

This module is primarily for reading human written files, and anything we
write shouldn't nee <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2547	2667	
==>sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2547	2667	
==>sets have the same recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.differ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5322	5519	
==>eing authorative for these links ###
                $href->{ $path } = { bin => \@bins, auto => 1 };
                    
                ### dump out alternatives again
                DumpFile( $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1120	1208	
==>e 8;
Clutter::int_size 16;
Clutter::int_size 32;
Helpers::macif(%?CONFIG{'has_int64'},'Cl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1763	1879	
==>d($file) ) {
        my $name = $self->name
            or die "all_from called with no args without setting name() f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6499	6598	
==>isa("Blondie::TypeSafe::Type::Placeholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5435	5543	
==>es.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5435	5543	
==>es.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3294	3425	
==>op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4143	4274	
==>op>' );
    my $list = get_data( $_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7631	7754	
==>[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7631	7754	
==>[0])) {
        shift(@pathchunks);
        shift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3136	3256	
==>ref_flavor {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = ref($x);
    if(!$ref) {
	return 'non_nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19221	19351	
==>y ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15642	15772	
==>y ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10045	10150	
==>eturn unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10324	10429	
==>eturn unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1394	1579	
==>ack.empty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(new_arr)
                end
                stack.push(new_arr)
            e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2130	2239	
==> (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2130	2239	
==> (Set $one, Set $two) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.s <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6559	6667	
==>ion";
    push @libs, grep /^-threaded/, @_;
    push @libs, grep /^-opt/, @_;
    push @libs, grep /^-[lL]/, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9243	9358	
==>that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9243	9358	
==>that to define the height
    my $max_height = 0;
    unless ($self.is_leaf()) {
        for @!children -> $child is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1218	1333	
==>e parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1206	1321	
==>e parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtime::Rule.pm
    local $sigspace = <==
2	/Users/nnunley/pugs/util/config_h.pl	858	965	
==>e PUGS_DATE "$2"

.
    last;
}

# FIXME: we assume if you have cywin, you're still using ghc-msys
if ($^O = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	687	784	
==>h> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	687	784	
==>h> is not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20353	20453	
==>od called.  And the ending node for stack-type
nodes has been abstracted to the ender() method of the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9002	9208	
==>@list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems() <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9002	9208	
==>@list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems() <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6466	6580	
==>t_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6466	6580	
==>t_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17120	17268	
==>tation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17120	17268	
==>tation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        "{$nick}_", "{$nick}__",
        "_{$nick}" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2212	2338	
==>-> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.pm --compile-only -e ' <hello>.say; '

Script or module:

    # file: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6165	6267	
==>$Object ], 
    '... $Bar class_precendence_list');

## make instances of subclasses

my $iBar = $Bar-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1650	1744	
==>ar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1650	1744	
==>ar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13368	13475	
==>rt, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13368	13475	
==>rt, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is intersected to a Recurren <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	380	516	
==>l_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	380	516	
==>l_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $su <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16689	16839	
==>);
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20166	20316	
==>);
                }
            }
        } ),
    );
}

my method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4467	4592	
==>uation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4467	4592	
==>uation
      $val ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17582	17679	
==>or Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17582	17679	
==>or Pugs. Note that it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2487	2594	
==>-----------

preludeStr :: String
.
    print OUT qq<preludeStr = "$program"\n\n>;
    close OUT;

    print <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1512	1675	
==>thod;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1717	1880	
==>thod;

            # try again in the superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19771	19890	
==>ACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After al <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19771	19890	
==>ACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1593	1698	
==>\\\/\\\\\\\\/g;  # duplicate every single backslashes
        $body =~ s/([\(\)])/\\\\$1/g;  # escape ( an <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8088	8182	
==>pairs> a C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is in fact m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2193	2356	
==>urn (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2193	2356	
==>urn (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16154	16267	
==>s like the $html->as_text
            $heading = $p->interpolate($heading);
            $heading =~ s/^\s+|\s+$//g <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7365	7470	
==>imestr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and store results in YAML

Usage: $0 [OPTIO <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4570	4739	
==>lice' => sub { # $idx_from -> $idx_to -> @replace_list -> @list
                my $self = shift;
                my $idx_from = shift;
                my $idx_to = shift <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6380	6499	
==>rom docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_num (@array:) returns Num {
    +@array;
}

# sp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9114	9219	
==>ewfrom"
    (mob, target, mfrom, mpos) = $P0(mob, 0, "PGE::Exp::Quant")
    pos = mfrom
    lastpos = leng <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7363	7500	
==>lf: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7363	7500	
==>lf: )                      is rw { $self.header("From") }
method warning ($self: )                   is rw { $self.header("Warning") }

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	568	691	
==>0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	568	691	
==>0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7293	7411	
==>|cygwin)/) {
        $depends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11500	11611	
==>target, $I0, $I1
    $S0 = substr target, pos, 2
    if $S0 == ": " goto subrule_text
    $S0 = substr target, p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7004	7121	
==>40),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7004	7121	
==>40),
    "prime"    => chr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4776	4887	
==>$inst->package eq $pkg->package;
    }
    
    return;
}    

=head2 $inst_pkg = $inst->register( package => $p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12402	12524	
==>class"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int is <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7440	7583	
==>t_oper;

  reduce:
  my $temp1 = pop @tokenStack;
  my $temp2 = $$temp1{syncat};
  if ( $temp2 == PGE_OPTABLE_CLOSE )
  {
    $temp1 = pop @toke <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11194	11284	
==>ence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> "\\f", {[C <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20905	21034	
==>st->{failed}}) {
            print "\tafter all the subtests completed successfully\n";
            $percent = 0;
            $fai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16814	16910	
==>t use of environment variables, which can aid in
portability.

Practically speaking, Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16814	16910	
==>t use of environment variables, which can aid in
portability.

Practically speaking, Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23359	23461	
==>stribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23359	23461	
==>stribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILITIES

None reported.

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1371	1505	
==>0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1371	1505	
==>0]){
        return $<Expr>() . " " . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pu <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6644	6749	
==>chref(I).
p5_elemental(ws(C))   --> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metach <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2466	2574	
==>g::Tiny - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2466	2574	
==>g::Tiny - Read/Write .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1707	1819	
==>e is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1707	1819	
==>e is given, a new scope is introduced but the resulting object
is discarded (used for eg. <?ws>).

=cut

method c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1549	1649	
==>ough for many purposes.  
Although the interface is said to be procedural, it is invoked via two clas <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1549	1649	
==>ough for many purposes.  
Although the interface is said to be procedural, it is invoked via two clas <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14689	14787	
==>e_reverse(bos,eos).
re_reverse(eos,bos).
re_reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - capture <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1202	1308	
==>alue.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1202	1308	
==>alue.vtype, 'LValue';
    }
    method vtype () { 'Expression' }
}

# PILLit :: Literal -> Expression
class <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1232	1322	
==>bolic_representation($node);
	}

	my $symbol = $self->declare($node) if $self->is_duplicate <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15206	15314	
==>m
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# the value of the comb is the return value from the fun <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3364	3490	
==>.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3364	3490	
==>.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unless $key eq "Cookie";
    }
    
    if ($cookie.d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22170	22290	
==>} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->err <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18591	18711	
==>} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(eval => $1);
    }
    $S->err <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19838	19939	
==>MBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19838	19939	
==>MBLE apply to all the code in
all PACKAGES.

After all the code has been parsed into blocks and the bl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6961	7072	
==>ay "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( : <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6961	7072	
==>ay "span-num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( : <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11909	12007	
==>> or
C<cmp>.

=back

Any Criterion may recieve either or both of the traits C<is descending>
and C< <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1596	1690	
==>ines.  It affects all regular expressions I<defined> within its scope;
when those regular expre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	841	934	
==>::Validator for English

=head1 VERSION

This document describes Rosetta::Validator::L::en ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	841	934	
==>::Validator for English

=head1 VERSION

This document describes Rosetta::Validator::L::en ver <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3892	4013	
==>nfess 'No plan set!' unless _('$.testplan');
            push @{_('@:results')} => $test;
            _('$.output')->write <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27527	27653	
==>OUT were
not a console.  You may need to set this if you don't want harness to
output more frequent progress messages using car <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7278	7430	
==>meit( 1, sub {
        $self->SUPER::run_test($test, @rest);
    } );
    warn "    ".timestr($t)."\n";
}

sub help {
    print <<".";
$0 - run tests and <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4402	4516	
==>ertion:<*> { ... }    # define your own <*stuff>
         macro rxmetachar:<,> { ... }    # define a new metacharac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3322	3448	
==>new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3322	3448	
==>new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!headers.keys.sort:{
    (%head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	836	946	
==>level, $pkg, @EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self->i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27237	27341	
==>L)
 #define REINT_AUTORITATIVE	(REINT_AUTORITATIVE_NOML|REINT_AUTORITATIVE_ML)
 #define REINT_ONCE		(REIN <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	984	1236	
==>57 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso8601_dur_re ) |
                                 ( # $36
                                 $iso8601_re ) ) )
        )/;      #/x?# ya <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	312	414	
==>cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has been changed to cc_inc_paths due to confusion bet <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2500	2595	
==>$doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Pre <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2500	2595	
==>$doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @Pre <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7053	7156	
==>r &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7053	7156	
==>r &Tree::insert_sibling ::= &Tree::insert_siblings;

# I am not permitting the removal of siblings 
# as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1121	1222	
==>tta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1121	1222	
==>tta::Validator -
A common comprehensive test suite to run against all Engines

=head1 VERSION

This do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1001	1103	
==>ver
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1001	1103	
==>ver
    return - the block (sub-reference) that contains 'return'
    label - the capture name (ident o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15754	15883	
==>\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15748	15877	
==>\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        # TODO - <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2100	2225	
==>ram<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2100	2225	
==>ram<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        if defined( %param<start> ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7562	7659	
==>e (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathch <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7562	7659	
==>e (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathch <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	801	899	
==>rosoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.micro <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	686	776	
==>rosoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.micro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2134	2250	
==>negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $resul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2192	2308	
==>negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $resul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22988	23104	
==>ckage Regexp::Parser::unlessm;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	407	508	
==>_reduce {
	my $self = shift;
	my $node = shift;;

	return unless Scalar::Util::blessed($node);
	return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2687	2813	
==>ackage, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta obj <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3151	3277	
==>ackage, and returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta obj <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2238	2346	
==>{ 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2238	2346	
==>{ 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2270	2391	
==>msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2270	2391	
==>msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	956	1080	
==>se {
	print STDOUT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1345	1454	
==>the cipher's state.

=back 4

The procedural interface does the same thing within a single call, hiding the 
f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1345	1454	
==>the cipher's state.

=back 4

The procedural interface does the same thing within a single call, hiding the 
f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7458	7558	
==>y @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7458	7558	
==>y @pathchunks = splitdir($path_directories);
    my @basechunks = splitdir($base_directories);

    w <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2881	3013	
==>balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2, $3);
        $t =~ s/^\((.+)\)$/$1/;
        $_ = "$c $t $p";
    }
} <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	323	449	
==>p6) =~ s/.p6$//;
    my ($dir, $file) = split /\//, $f;
    next if not -e "$dir/$file.expected";
    unlink "$file.out";
    s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1765	2018	
==>of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1765	2018	
==>of every Rosetta::Interface::Exception object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2975	3106	
==>$.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::S <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2975	3106	
==>$.socket.accept;
        ./handler if ./prepare;
        $.remote.close;
        %*ENV = %env;
    }
}

=head1 NAME

HTTP::Server::S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7539	7792	
==>op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8003	8256	
==>op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	957	1085	
==>s[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $las <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	957	1085	
==>s[0];
    return $head.start_is_closed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $las <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24675	24794	
==>hen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21096	21215	
==>hen
  $self->add_handler('ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11258	11364	
==>END




__END__

=pod
Objective:

  Permit swapping in an alternate regexp engine,
  using calls to p5 subs <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	434	532	
==>ge();
@ARGV == 1 or usage();

debug "smokeserv-client v" . VERSION . " started.\n";

setup_compress <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	33	151	
==>ck
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	33	151	
==>ck
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2466	2597	
==>,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2466	2597	
==>,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { ord $_}, splice @string,0 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7921	8037	
==>lize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7921	8037	
==>lize_parameter( $self, $span );
    return 0  if $span0.is_empty && $span1.is_empty;
    return -1 if $span0.is_empty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7966	8072	
==>et to 'abc'

  match_word( 'abc123', :capture );



  # returns a Match object that has no capture (but the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7698	7801	
==>et to 'abc'
  match_word( 'abc123', :capture );

  # returns a Match object that has no capture (but the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3452	3615	
==>tr, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3592	3755	
==>tr, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1146	1413	
==>an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1146	1413	
==>an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10935	11045	
==>push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10935	11045	
==>push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1033	1138	
==>ompiler
sub can_cc {
	my $self   = shift;
	my @chunks = split(/ /, $Config::Config{cc}) or return;

	# $Co <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3115	3222	
==>on. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3115	3222	
==>on. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2255	2346	
==>PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2255	2346	
==>PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	158	261	
==>e::Binary;
use JIB::Package::Installed;
use JIB::Package::Installable;

use File::Spec;
use File::Basena <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3131	3236	
==>ct representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 20 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3131	3236	
==>ct representing a single date (without a time)

= SYNOPSIS

  use Date;

  my $date = Date.new( year => 20 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4494	4594	
==>lable for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4494	4594	
==>lable for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3875	4008	
==>1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3875	4008	
==>1} ) {
            no warnings qw(uninitialized);
            my $fixity = ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8145	8329	
==>rary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8145	8329	
==>rary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $se <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30303	30402	
==>ator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34855	34954	
==>ator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may not resemble t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7876	8007	
==>name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7876	8007	
==>name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7949	8045	
==>$killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7949	8045	
==>$killee)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %u <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	19	132	
==>0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys - <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	19	132	
==>0.1;

use v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys - <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	890	987	
==>Plan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Bu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	890	987	
==>Plan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 Test::Bu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	760	945	
==>e'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	760	945	
==>e'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2005	2121	
==>b "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2005	2121	
==>b "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	679	782	
==>r::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	679	782	
==>r::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	159	276	
==>$FindBin::Bin, @_) }
my $src_root = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs = $Perl6::Run::OnP <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15008	15112	
==>params} };
}

package Compiler;
use base qw/Reducer Map DynamicScopes/;

sub compile {
    my $self = shi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	681	793	
==>pes";
        $values{$key->to_str->to_native()} = $value;
    }
    bless \%values => $class;
}

# native conver <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	37	134	
==>ntrol;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

# TODO - implement the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10538	10638	
==>unperl(): 'switches' must be an ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY";
	_q <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26738	26831	
==>pro.pl";print F $prolog;close F;} if 1;
swi_inline($prolog);

use Language::Prolog::Types::ove <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	14	95	
==>odule/Install/Metadata.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Me <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	90	195	
==>TypeTree-0.0.1;

use Tree;

has Tree $:type_tree;

method tree ($self:) returns Tree {
    # create the tr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19115	19223	
==>rds, this user
text is *part of the program*, and not the program's users' own data; only
someone already inv <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19115	19223	
==>rds, this user
text is *part of the program*, and not the program's users' own data; only
someone already inv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8590	8686	
==>ethods will
invoke parse() if the tree has not been made yet.

=head2 Setting and Parsing Togethe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17616	17713	
==>ead2 How It Works

Modern programs or database systems often refer to an error condition by an
int <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17616	17713	
==>ead2 How It Works

Modern programs or database systems often refer to an error condition by an
int <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1572	1712	
==>e, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attri <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1572	1712	
==>e, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attri <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7356	7462	
==>ectories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7356	7462	
==>ectories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5076	5209	
==>y $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5076	5209	
==>y $result = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12847	12988	
==>os; return 1;};
    for(my $i = $X::pos;$i>=0;$i--) {
      $X::pos = $i;
      my $v = $f->($at_pos);
      return 1 if not FAILED($v);
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	348	447	
==>umentation is not in POD format in order to avoid
# problems when there are fundamental bugs in per <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	3463	3688	
==>asses             
            elsif (exists $__classes__{$t}) {               
                my $message = pop @t;
                @t = ($t . $message);                
            }
            
            # misc keywords <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14466	14566	
==>pression>
    | <'delete'> <UnaryExpression>
    | <'void'> <UnaryExpression>
    | <'typeof'> <Unary <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	344	450	
==>ty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	344	450	
==>ty thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGINAL>" upside down <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2035	2162	
==>on: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2175	2302	
==>on: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # X <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34308	34400	
==>tes and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34308	34400	
==>tes and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	816	920	
==>elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	816	920	
==>elements (Span::Singleton)
    * use binary search instead of linear search

  From Perl5 version of Set: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13326	13433	
==>r for all these  functions.

The `:depends("string")` parameter to most of the functions is a way
to provide <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13384	13491	
==>r for all these  functions.

The `:depends("string")` parameter to most of the functions is a way
to provide <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6180	6273	
==>ame => 'util/catalog_tmpl/Synopsis.tmpl');

    $template->param("syn", [ sort { $a->{name} cm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1825	1950	
==>::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1825	1950	
==>::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $match->{bool};
            return $match;
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5701	5839	
==>statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5701	5839	
==>statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35948	36046	
==>d returns an array ref having all combinations of this object's
Set Names and Member Names elements <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35948	36046	
==>d returns an array ref having all combinations of this object's
Set Names and Member Names elements <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8557	8668	
==>s perl's internals can cache the hash key.
    $_ = "" . $_;
    next if (exists $suspect->{$_});
    print STDO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24266	24384	
==>urn;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20687	20805	
==>urn;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	611	710	
==>_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	669	768	
==>_tests_planned = $number_of_tests;
    say "1..$number_of_tests";
}

sub force_todo (*@todo_tests) r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1905	2102	
==>e_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canon <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1905	2102	
==>e_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canon <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2952	3071	
==>e sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-',  package_pr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3583	3679	
==>u must first create an object of the appropriate 
class, passing the key, a mode (either "enciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3583	3679	
==>u must first create an object of the appropriate 
class, passing the key, a mode (either "enciphe <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9131	9276	
==>n
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }


=item reduce

 multi Array::reduce (@values ; Code *&expression --> Scala <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5702	5808	
==>) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_simple_statement'} = Pugs::Compi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2066	2171	
==>$base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2066	2171	
==>$base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is e <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	117	233	
==>ch seem like the kind of
thing which an implementation will overwrite. So smartmatch can be
implemented using some is <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15482	15595	
==>tr target, pos, $I1
    cname = escape cname
    cname = concat '"', cname
    cname = concat cname, '"'
    mob[" <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1907	2016	
==>int MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1907	2016	
==>int MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10506	10618	
==>lf.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10506	10618	
==>lf.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36698	36800	
==>uld be
found using the Translator object's Set and Member properties; if none
could be matched, this me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36698	36800	
==>uld be
found using the Translator object's Set and Member properties; if none
could be matched, this me <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23812	23921	
==>cream table. */
  #define REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29000	29097	
==>cream table. */
 #define REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	911	1016	
==>*@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path ) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	911	1016	
==>*@path );
}

sub catfile (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3734	3872	
==>Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # Wha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3734	3872	
==>Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # Wha <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	525	628	
==>nt returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	525	628	
==>nt returns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4344	4436	
==>the right class name for Point3D');
is($p3d->prototype->class, \&Point, '... go the right sup <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9913	10035	
==>\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9913	10035	
==>\)]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13322	13421	
==>o traffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curserv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13322	13421	
==>o traffic seen for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curserv <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9447	9538	
==>_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3272	3363	
==>_application(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statemen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12915	13027	
==>return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12915	13027	
==>return unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING th <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34642	34738	
==>set of the
heading of the invocant Relation, and returns a new Relation that has the
same heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39192	39288	
==>set of the
heading of the invocant Relation, and returns a new Relation that has the
same heading <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12058	12254	
==>ine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12058	12254	
==>ine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'R <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5827	5925	
==>relen = SvLEN(pat);
    if(r->prelen <0){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = sav <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13485	13592	
==>, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_hol <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13485	13592	
==>, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_hol <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1616	1736	
==>pass;
}

sub _where {
    my @caller = caller($Level);
    return "at $caller[1] line $caller[2]";
}

# DON'T use this fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	92	206	
==>RT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAM <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	92	206	
==>RT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML',        sub {YAM <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19857	19951	
==>C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19857	19951	
==>C<Net::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircn <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1216	1325	
==>do, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1274	1383	
==>do, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4288	4424	
==>o { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4276	4412	
==>o { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	946	1100	
==>$key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	946	1100	
==>$key, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	531	693	
==>lue = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pat =~ /\+\)\+/) {
	#    print "not ok \# skipped as problematic\n";
	#    next;
	#}

	m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7750	7872	
==>nc) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7750	7872	
==>nc) returns Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

met <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	122	237	
==>lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8755	8864	
==>_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that wil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8755	8864	
==>_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a routine that wil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20213	20348	
==>compiled by
some other containing parser. In this case the result of the compilation
is replaced by a single line containing the hexadec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20213	20348	
==>compiled by
some other containing parser. In this case the result of the compilation
is replaced by a single line containing the hexadec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4334	4426	
==>me, 'Object', '... $Object got the right method return value');
is($Object->superclass, undef <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6236	6328	
==>me, 'Object', '... $Object got the right method return value');
is($Object->superclass, undef <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	247	340	
==>^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule posit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	247	340	
==>^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule posit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18350	18450	
==>iate measures
such as system-managed locks so that resource corruption or application
failure is prev <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18350	18450	
==>iate measures
such as system-managed locks so that resource corruption or application
failure is prev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2062	2181	
==>AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2062	2181	
==>AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26858	26992	
==>ule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27137	27271	
==>ule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27178	27300	
==>COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27178	27300	
==>COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_na <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1283	1385	
==>ause the
algorithm is based on statistics. This was my main motivation to
implement it. Other rate limi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1283	1385	
==>ause the
algorithm is based on statistics. This was my main motivation to
implement it. Other rate limi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7570	7684	
==>chunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7570	7684	
==>chunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks);
        shift(@bas <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1160	1282	
==>> $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1160	1282	
==>> $.start - $.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3267	3362	
==>ce,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3484	3579	
==>ce,{
		print_ast => $interface::print_ast,
		print_program => $interface::print_program,
		print <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8367	8475	
==>s {  # see 7.8.3
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 7.8.3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2099	2204	
==>? (64 ^ ord $1) : charnames::vianame($_)), @_;
}


sub error_is {
  my ($self, $enum) = @_;
  return $self <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	44	156	
==>Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has C <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	44	156	
==>Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17728	17850	
==>ew bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17728	17850	
==>ew bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $ni <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16548	16666	
==>ucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16548	16666	
==>ucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10732	10849	
==>entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10732	10849	
==>entity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2212	2336	
==>st_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>( <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2212	2336	
==>st_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => -> Num $n {
      $self<token_flow>( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3561	3680	
==>universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3561	3680	
==>universe );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_i <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	59	153	
==>lo, Welt!".say; }
}
#!\pause
#=Erzeugen eines Objektes (Instanzierung)
my $welt = "Welt"->new() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2204	2337	
==>erl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2421	2554	
==>erl6Grammar::compile( $prelude );
        }
        # print "MATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6612	6712	
==>SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::Spec::F <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6612	6712	
==>SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is more
akin to File::Spec::F <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3058	3241	
==>ft );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tm <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3058	3241	
==>ft );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tm <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	357	470	
==>ulti method exists (*@index ) returns List of Bool;

multi sub keys   (@array ; Any|Junction *@indextests) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1760	1872	
==>ent_except_top($vs)."," }
    $s .= "\n " if %{$o};
    $s .= "},";
    my($from,$to)=($o->from,$o->to);
    $fro <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1552	1676	
==>input) = $_.($input)
        or return;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \@values, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1325	1423	
==>S NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o->_indent($_->describ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4409	4531	
==>jects, keyed by their names.

=head2 &{}

When used as a code reference, the match object returns the I<result>
object; thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4409	4531	
==>jects, keyed by their names.

=head2 &{}

When used as a code reference, the match object returns the I<result>
object; thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	109	203	
==>andles «
    header push_header init_header remove_header remove_content_headers header_field_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	109	203	
==>andles «
    header push_header init_header remove_header remove_content_headers header_field_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9026	9133	
==>all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9026	9133	
==>all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $non_zero = R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9054	9160	
==>end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9054	9160	
==>end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open()` / `end_is <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6099	6250	
==>ing 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6099	6250	
==>ing 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                csta <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	332	441	
==>hLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 27 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	332	441	
==>hLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 27 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7508	7615	
==>data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7508	7615	
==>data = shift;
    my @blocks = $class->pmc_parse_blocks($data);
    while (@blocks = $class->pmc_reduce(@blo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3952	4057	
==>lator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Transl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3952	4057	
==>lator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Transl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3185	3318	
==>== 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3185	3318	
==>== 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else {
        $i_sta <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	891	1021	
==>fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	891	1021	
==>fh.print($buffer);
    $fh.close;            # pugs bug
    $buffer;
  };
};

# TODO: Implement a non-faked version
# TODO: Add If- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1398	1506	
==>$span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1398	1506	
==>$span ) if $.end + $.density     < $span.start;
    return ( $span, $self ) if $span.end + $.density < $.star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6293	6448	
==>g:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3608	3708	
==>(we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3608	3708	
==>(we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname information.)
  %ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23264	23359	
==>odified by this module,
aside from appending the correct newline characters.

=head1 PSEUDO EVEN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23264	23359	
==>odified by this module,
aside from appending the correct newline characters.

=head1 PSEUDO EVEN <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	552	650	
==>OM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
doc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	552	650	
==>OM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an XML
doc <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3728	3841	
==>, $from, 1) =~ / / )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20739	20838	
==>en opendir pipe print printf read readdir readline
# readlink readpipe recv rename rewinddir rmdir s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10759	10889	
==>o &$fmin;
    };        
  }
}
{
  # ( non-capturing
  package Regexp::Parser::group;
  sub emit {
    my($o)=@_;
    my $f = $o->c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8877	8974	
==>s_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = unde <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8935	9032	
==>s_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_test_junction = unde <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1772	1903	
==>-> { }
    if +@p == 0;
  return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $newi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9785	9888	
==>=cut
$foo = sub{
    print STDERR "hi\n";
    return reverse(1,undef,undef,1,3,2,3);
};
=pod
=cut

my($q <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1028	1114	
==>ass Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
cl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1028	1114	
==>ass Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	108	225	
==>er

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> beca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	106	216	
==>er
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> beca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2248	2396	
==>tch::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2236	2384	
==>tch::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3564	3685	
==>verse );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3564	3685	
==>verse );
    return $set  if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_inters <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27014	27116	
==>y Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27014	27116	
==>y Locale::KeyedText::Message $message .= new(
        msg_key => 'FOO_GOT_NO_ARGS' );
    my Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2153	2259	
==>is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2153	2259	
==>is_empty ()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2320	2462	
==>p2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1082	1189	
==>=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1082	1189	
==>=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common comprehensive test suite to run against all <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1210	1306	
==>debugging", but can be put to other uses as well.

Log::Selective exports a single function, C<no <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1210	1306	
==>debugging", but can be put to other uses as well.

Log::Selective exports a single function, C<no <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13788	13919	
==>s.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Sp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13788	13919	
==>s.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..100000) };

= SEE ALSO

    Sp <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1879	2008	
==>lose IN;

    strip_comments($program);
    $program =~ s{(["\\])}{\\$1}g;
    $program =~ s{\r?\n}{\\n\\\n\\}g;

    print OUT << <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1508	1614	
==>_lexer (Code $lexer is rw, *@args) {
  ## XXX - Surely there's a more p6ish way of doing this?
  $lexer = t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10676	10785	
==>.

The $value argument may be a plain string or a reference to an array
of strings for a multi-valued field. I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10676	10785	
==>.

The $value argument may be a plain string or a reference to an array
of strings for a multi-valued field. I <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14719	14861	
==>ng easier
        $sobj->objectify_text;

        for my $headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          w <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	622	716	
==>cally.
Helpers:: is for more generally useful stuff, and need not be
  implemented immediately. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4508	4650	
==>rint Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4508	4650	
==>rint Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1483	1598	
==>};
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1483	1598	
==>};
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAI <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2976	3074	
==>he right class name');

is($p1->get_x, 15, '... got the right x for p1');
is($p1->get_y, 16, '... g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10414	10520	
==>demand at some time after the input has been set, and could potentially
never be performed at all.  They va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10414	10520	
==>demand at some time after the input has been set, and could potentially
never be performed at all.  They va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9677	9814	
==>";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9657	9794	
==>";
}        
sub node::term {
    return emit_rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	317	431	
==>lnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	317	431	
==>lnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((? <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2559	2658	
==>@to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2559	2658	
==>@to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20543	20658	
==>d);
    my $m = slurp($p);  $p.close;
    # In src/perl6/Prelude.pm, regexs dont work. :(
    #die "-M bug $m" if no <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2767	2890	
==>universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2767	2890	
==>universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11044	11144	
==>er some source code into something else. This is almost
# always overridden in a subclass.
sub pmc_co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11044	11144	
==>er some source code into something else. This is almost
# always overridden in a subclass.
sub pmc_co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5643	5785	
==>en not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6107	6249	
==>en not be able to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3383	3486	
==>0%  1 3 5 7 9 11 13 15 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	230	327	
==>ndefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.com <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	230	327	
==>ndefine span' is wrong - use empty_span instead (in set_end() / set_start() )
    * Span::Code.com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6058	6419	
==>$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6058	6419	
==>$Port';
                                $p ~= qq(="$port") if $port.chars;
                                take $p;
                            }
                        }
                    }
                }
                
                NEXT {
                    # Try with a more general domain, alternately stripping
                    # leading name <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10596	10693	
==>CTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10596	10693	
==>CTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) retu <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	704	807	
==>tive;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	704	807	
==>tive;
	Log::Selective::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6277	6403	
==>eading dirs from the target so we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $targ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3015	3118	
==>(we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3015	3118	
==>(we /WHO ourselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6916	7009	
==>'%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8918	9011	
==>'%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1809	1920	
==>e they are too frequent and they are too slow using the basic 

# rule parser



sub code {

    return unless $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1736	1843	
==>e they are too frequent and they are too slow using the basic 
# rule parser

sub code {
    return unless $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7323	7426	
==>h($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading com <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7323	7426	
==>h($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # Now, remove all leading com <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3336	3457	
==>re> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3336	3457	
==>re> ) { $end =   %param<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $st <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	91	213	
==>umper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	96	218	
==>umper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2572	2690	
==>syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_O <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	847	952	
==>eturn \$s, \\\@match; }";
}

{
my $r = capture( 'cap', constant('a') );
print "Perl5 source:\n", wrap <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1334	1436	
==>ero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one o <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1334	1436	
==>ero or 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1311	1410	
==>eaders,
);

# Make alternative representations of @header_order.  This is used
# for sorting and cas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1311	1410	
==>eaders,
);

# Make alternative representations of @header_order.  This is used
# for sorting and cas <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7388	7496	
==>(stderr,"hook_regcompp punt.\n");
    return previous_comp_hook(aTHX_ exp,xend,pm);
  }

  {
    dSP;
    cha <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14810	14909	
==>eave the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p_f, $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4514	4632	
==>_package_to_index { #TODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $t <==
2	/Users/nnunley/pugs/util/testgraph.pl	822	925	
==>ode $fh, ":utf8" or die "binmode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16083	16181	
==>>, and returns it. Called with a
list, it chops each item in turn, and returns the last character
c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1962	2068	
==>kg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1962	2068	
==>kg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File:: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5380	5485	
==>tput_dir,"index.html");
open( my $fh,'>',  $index_file) or die "Failed to open $index_file: $!";
my $templ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10742	10846	
==>nction currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10800	10904	
==>nction currently uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23449	23547	
==>al dependencies; Locale::KeyedText has no non-trivial
external dependencies (it is very simple).

T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23449	23547	
==>al dependencies; Locale::KeyedText has no non-trivial
external dependencies (it is very simple).

T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1090	1212	
==>uely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1090	1212	
==>uely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6294	6524	
==>t;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6294	6524	
==>t;
                        my $x = $ret.shift // yield;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34704	34809	
==>to the original, in which case
this method returns the identity-one Relation::Example or the invocant rela <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1129	1226	
==>n strong typing)
#	::free - an unbound type variable
#	::instantiated - points to another variable <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6173	6275	
==>n $o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater_for_re('\Z') if $re eq '\Z <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14287	14386	
==>l.org/viewcvs/perl5/mirror/

  And of course man perlapi, etc.

  The perl regexp engine was long ag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9241	9364	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9434	9557	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_altern <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6970	7078	
==>num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6970	7078	
==>num";
        return $span0, $span1 if $span0.isa( 'Span::Code' );
        return $span0, $span0.new( :densit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2280	2396	
==>:extract_delimited( '"' . $_[0], '"' );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	164	266	
==>lib",
;

use Pugs::Grammar::Perl6;
use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::In <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1187	1299	
==>limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorith <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1187	1299	
==>limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of constant size because the
algorith <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17112	17232	
==>{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13533	13653	
==>{ \G \[ ([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$nam <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27895	27995	
==>g_var( $var_name! )>

This method returns the Message Variable value (a string) associated with
the v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27895	27995	
==>g_var( $var_name! )>

This method returns the Message Variable value (a string) associated with
the v <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16803	16913	
==>{tests} * 100);
        my $percent_ok = 100*$tot->{ok}/$tot->{max};
        my $subpct = sprintf " %d/%d subte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36974	37070	
==>=head2 flags

Family: flags

Types: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minm <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	179	282	
==>mport {
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie::Backend::$ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30265	30367	
==>x)--
    return;
  });

This handler un-consumes the ')' (via C<&RxPOS-->) and returns false, to
preten <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16399	16524	
==>lass, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16399	16524	
==>lass, $source) = @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4747	4920	
==>nd yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4747	4920	
==>nd yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6828	6952	
==>ub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6828	6952	
==>ub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7120	7246	
==>length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7120	7246	
==>length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($self: )                is rw { $self. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4419	4569	
==>eq '';
        #print "optimized: [",join(",",@r),"] $i $j\n";
        splice( @rules, $i, (1+$j-$i), 
            "$item [ " . join( ' | ', @r ) . " ] <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21178	21272	
==><')'> <Statement>
    | <'for'> <'('> <ExpressionNoIn>? <';'> <Expression>? <';'> <Expression>? <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2398	2617	
==>n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2398	2617	
==>n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	96	227	
==>ory);

=for pod

Parses the text inside strings like:

    $a
    @a
    %a
    &a
    
and maybe subscripts, dereference <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2474	2598	
==>uleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2667	2791	
==>uleop::constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9282	9387	
==>ode $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9282	9387	
==>ode $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18530	18632	
==>functions
which get called on regular expression compilation and execution) to
parasitize the regexp st <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2820	2922	
==>functions
which get called on regular expression compilation and execution) to
parasitize the regexp st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	771	904	
==>d for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = shift;
    return;
  } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4138	4242	
==>d1 SEE ALSO

The Perl 6 homepage at L<http://dev.perl.org/perl6>.

- the Perl 6 Synopsis: L<http://dev.pe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11969	12111	
==>.3.1
      <ExponentIndicator> <SignedInteger>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9219	9312	
==>alue) { "p6_Bool($value)" }
NODE VInt ($value) { "p6_Int($value)" }
NODE VRat ($value) { "p6_R <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1543	1741	
==>events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list') <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1543	1741	
==>events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list') <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1361	1440	
==>>|<numbered_scalar_alias>|<array_alias>|<hash_alias>|<external_scalar_alias>|<ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	378	494	
==>source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	378	494	
==>source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1126	1238	
==>0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1126	1238	
==>0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14384	14494	
==>t;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CO <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14384	14494	
==>t;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5576	5723	
==>is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no availabl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6040	6187	
==>is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no availabl <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1315	1464	
==>y) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi su <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1315	1464	
==>y) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi su <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18004	18136	
==>kip' or 'todo' (if any)
              reason    => reason for the above (if any)
            };

Element 0 of the details is test #1. <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	18111	18212	
==>$r = compile($re); sub{my($s)=@_;match($r,$s)}});
  exit;
}
1;
__END__
#print Dumper match_re('a','abc <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	120	232	
==>YNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	120	232	
==>YNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per hour <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1737	1854	
==>lse {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1877	1994	
==>lse {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{ast}{capture}, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10998	11111	
==>s it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove al <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10998	11111	
==>s it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove al <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	14	114	
==>e--Perl6;

has Str $.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Role <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5041	5192	
==>1] }
    | stmt exp            
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[2] ] } }
    | exp ';' stmt        
        { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3052	3144	
==>rray.elems;
}

# copied from S29draft.pod r8649.
&Array::shift := &Array::splice.assuming(:of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4178	4316	
==>ure}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push @$capture, @{$matches[1]{cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4050	4185	
==>ure}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push @$capture, @{$matches[1]{cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	25	191	
==>my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	25	191	
==>my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2228	2327	
==>ess $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );

    $ext <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2140	2237	
==>ess $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "'" );
    $ext <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3501	3680	
==>l; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the ou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3501	3680	
==>l; my \$f = \$F;
filter_add(sub { filter_del(); 1 while &filter_read; \$_ = \$f; 1; })}}
#line 1 #############################################################
...
}

# Write the ou <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7861	8016	
==>meant :i:s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 {
        my $pre = "";
        if %mods<i> || %mods<ignorecase> { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4604	4692	
==>ew('Foo')
sub p6_Undef {p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1525	1636	
==>de $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1525	1636	
==>de $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstringify;
    has Bool <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9004	9150	
==>md eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9004	9150	
==>md eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is h <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	797	886	
==>erm:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\D", "term:", "nows" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13989	14111	
==>$key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PAR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13989	14111	
==>$key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PAR <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24213	24312	
==>,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28765	28864	
==>,
the Relation has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7160	7276	
==>across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7160	7276	
==>across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2258	2403	
==>or_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2258	2403	
==>or_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<end_element>('for <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5083	5186	
==>s_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7751	7854	
==>s_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list');

fails_ok { $Foo- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5869	6020	
==>dy_plus { 
    my $node = shift;
    my $alt;
    $alt = concat( [
        $node, 
        optional( sub{ goto $alt } ),  
    ] );
    return $a <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22436	22563	
==>length($middle_str) + $list_len;
        }
    }

    my $fmt_top = "format STDOUT_TOP =\n"
                  . sprintf("%-${max <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8055	8155	
==>lows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8055	8155	
==>lows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4482	4579	
==>>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @outpu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4482	4579	
==>>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @outpu <==
2	/Users/nnunley/pugs/util/importgraph.pl	1820	1903	
==>setup_cluster('Pugs.Rule', qr/^Pugs\.Rule\b/);
setup_cluster('Pugs.AST', qr/^Pugs\.A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	382	511	
==>ile( file => $jib->file ) or die "Could not add $jib";
}    

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1778	1883	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is fre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1778	1883	
==>c/design/syn/S05.html>

=head1 COPYRIGHT

Copyright 2006 by Stevan Little and others.

This program is fre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1930	2039	
==>we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1930	2039	
==>we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13004	13119	
==>alue.
The unit specifier is also used internally when joining two spans, and when getting the span size.

Create a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13004	13119	
==>alue.
The unit specifier is also used internally when joining two spans, and when getting the span size.

Create a s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1959	2054	
==><Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the last te <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1959	2054	
==><Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the last te <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20661	20770	
==>essor
methods.  Relation does not declare any subroutines or export such.

The usual way that Relation indicat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25213	25322	
==>essor
methods.  Relation does not declare any subroutines or export such.

The usual way that Relation indicat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8871	8998	
==>Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8871	8998	
==>Void {
    # make sure the tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1274	1414	
==>d_rule( 
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => '+',
    );
    
    __PACKAGE__->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36602	36704	
==>ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 groupp

Family: groupp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	744	995	
==>that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	744	995	
==>that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1857	1993	
==>> string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1857	1993	
==>> string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7798	7914	
==>uilder::Test;
  use Test::Builder::Output;
  use Test::Builder::TestPlan;
  
  my  Test::Builder           $:singleto <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12025	12134	
==>if $alt;
    return;
}    

=head2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

sub remove_ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	184	329	
==>my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	184	329	
==>my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace node";
        #$self->{content} <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7895	8016	
==>y $fh,'>', $index_file) or die "Failed to open $index_file: $!";
    my @dirs  = sort keys %{$index->{_dirs}};    

    my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8458	8563	
==>ulti Array::grep (@values,   MatchTest $test   --> Lazy )
 multi  List::grep (MatchTest $test ;   *@values <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1992	2191	
==>ur current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1992	2191	
==>ur current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not find a match, then <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2819	2911	
==>/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.org <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2819	2911	
==>/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.org <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12498	12608	
==>elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12498	12608	
==>elements are at the same distance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	810	921	
==>ODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	810	921	
==>ODO - don't need this if 'pos' is used
    capture - the tree of captured things
    abort - the match was stopp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3281	3376	
==>$directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3281	3376	
==>$directory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6712	6802	
==>ize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6712	6802	
==>ize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4063	4177	
==>ed to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4063	4177	
==>ed to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7879	7989	
==>leader_width(@tests);
    foreach my $tfile (@tests) {
        $Last_ML_Print = 0;  # so each test prints at le <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6331	6435	
==>event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6331	6435	
==>event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!us <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20972	21073	
==>pport;

Any of your distrbution's modules that use Module::Compile based modules
will automatically be <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20972	21073	
==>pport;

Any of your distrbution's modules that use Module::Compile based modules
will automatically be <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1863	1969	
==>/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::G <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1863	1969	
==>/$regex/;
}

=head1 NAME

Text::Glob - translate glob patterns to regexes

=head1 SYNOPSIS

    use Text::G <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1192	1324	
==>d, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS depend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	752	884	
==>d, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS depend <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7306	7425	
==>or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            before => sub { print "matching <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7058	7175	
==>or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            before => sub { print "matching <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	13	119	
==>le Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	13	119	
==>le Pod::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_elem <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2232	2342	
==>t's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2232	2342	
==>t's UNC, make sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1366	1464	
==>:PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1366	1464	
==>:PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5300	5399	
==>Tells the cipher object to clear its internal state as completely as possible. 
This is automaticall <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5300	5399	
==>Tells the cipher object to clear its internal state as completely as possible. 
This is automaticall <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11826	11919	
==>char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	85	248	
==>/^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	85	248	
==>/^#return-block#(.*)/s ) {
            #print "return block\n";
            my $code = $1;
            #print "Code: $code\n";
            pop @s;
            my $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14123	14225	
==>eaders
will be visited in the recommended "Good Practice" order.

Any return values of the callback rou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14123	14225	
==>eaders
will be visited in the recommended "Good Practice" order.

Any return values of the callback rou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7503	7598	
==>};
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1328	1423	
==>};
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21979	22096	
==>:)?//;
    $mn =~ s/_/__/g;
    $mn =~ s/([^a-z0-9_])/"_".ord($1)."x"/ieg;    
    $mn =~ s/_58x_58x/::/g;    
    if( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10177	10288	
==>ame = $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] sub{ $name(\@_) }\n";
}
su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7928	8139	
==>me => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7928	8139	
==>me => $newnamep,
                        );

                        &continue($m.clone(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3894	4067	
==>tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::V <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3894	4067	
==>tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::V <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23232	23333	
==>t> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23232	23333	
==>t> parameter.

=head2 C<$botE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10365	10521	
==>1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10359	10515	
==>1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1585	1685	
==>e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1425	1525	
==>e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24619	24712	
==>w(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->ne <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25591	25684	
==>w(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	14400	14517	
==>eturn $res;
};

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7589	7785	
==>tests,
                sub_skipped  => 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _globdi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5415	5540	
==>, $name, @mess) = @_;
    my $pass;
    if (!defined $got or !defined $expected or !defined $range) {
        # This is a fail <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6198	6314	
==>\\|&#^$.", $S0
    if $I0 >= 0 goto term_literal_end
    inc pos
    inc litlen
    goto term_literal_loop
  term_lit <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5593	5707	
==>total, $failed) = _run_all_tests(@test_files);

Runs all the given C<@test_files> (as C<runtests()>) but does it
qu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7322	7427	
==>auses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7322	7427	
==>auses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3774	4039	
==>>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3774	4039	
==>>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5238	5377	
==>=~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5250	5389	
==>=~ /^ \$ \/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	820	954	
==>aram->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	820	954	
==>aram->{named_only},
               is_writable => $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13422	13534	
==>e
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13422	13534	
==>e
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1158	1275	
==>an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1158	1275	
==>an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_HASH'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10498	10601	
==>next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complement_previous => s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10498	10601	
==>next => sub {...}, closure_previous => sub {...}, complement_next => sub {...}, complement_previous => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	796	891	
==>piled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	796	891	
==>piled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not compile rule ($rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9664	9777	
==>=> { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9664	9777	
==>=> { $last_autoping },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7733	7954	
==>'),
            App->new(
                App->new(
                    Sym->new('&control_structure:<if>'),
                    App->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	521	701	
==>os $_[3]{p};
  my $bool = \( $s =~ /) . $rule_source . q(/ \) ? 1 : 0;
  my @match;
  for ( 1 .. $#+ ) {
      push @match, bless \\{
        str => \\$s, from => \\(0+$-[$_]), <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28387	28497	
==>d set it to
the code reference in $code.  Example:

  # continuing from above...
  sub init {
    my $self = sh <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24908	25003	
==>rrow->new(
			type::variable::free->new,
			type::variable::free->new,
		),
	);
	is($type->strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	710	825	
==>ed $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	798	913	
==>ed $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	return ''
}
sub no <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8650	8991	
==>n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
);

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $stub = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13919	14023	
==>' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	148	240	
==>for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	148	240	
==>for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1379	1532	
==>ld be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1367	1520	
==>ld be lexical
    return 
        "sub {\n" . 
        "  my \$grammar = \$_[0];\n" .
        "  my \$s = \$_[1];\n" .
        "  my \$pos = \$_[3]{p};\n" <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1809	1949	
==>ould be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1809	1949	
==>ould be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4513	4627	
==>return $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::TODO' => class 'TestBuil <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1729	1829	
==>hich will turn on per iteration printing
    
If you omit the fprime, a second order centered differe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2812	2906	
==>ub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2812	2906	
==>ub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15272	15400	
==>ces to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18749	18877	
==>ces to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	158	251	
==>e::TypeSafe;

{
    package Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9951	10060	
==>er $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $self: Array $dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9951	10060	
==>er $self:) returns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $self: Array $dat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	397	520	
==>my @list        = LoadFile( $Available ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2991	3128	
==>smoke{id}              = $id;
  my $filename            = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20182	20294	
==>roup" ] 

.sub "p6analyze" :method
    .param pmc pad
    .local pmc reps, exp
    .local string cname
    .local <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8461	8589	
==>~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8461	8589	
==>~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3814	3927	
==>"353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless define <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3814	3927	
==>"353", -> $event {
      my ($chan, $nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless define <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	29	137	
==>Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	29	137	
==>Perl5;

# p6-rule perl5 emitter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$D <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	1286	1386	
==>P footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	1286	1386	
==>P footer for this plan.

=back

=head1 SEE ALSO

Perl 5 Test::Builder and Test::Harness::TAP.

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	65	195	
==>ub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = shift(@a);
      my $kl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5173	5309	
==>T
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5395	5531	
==>T
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2863	3006	
==>g this tree will invoke
'&func':

    App(
        Sym('&func'),
        Val(1),
    ),

And also place the value 1 on the parameter stack.

Inh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1293	1426	
==>k) = @_;
    (blessed($block) && $block->isa('block'))
        || confess "OR takes a block";    
    if ($self == $FALSE) {
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6624	6898	
==>.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6624	6898	
==>.
                        my $subobj = $m.match.clone(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_nu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	362	483	
==>n};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 = <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	393	502	
==>n};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	318	415	
==>eturn $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub can_reduce { <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1131	1306	
==>]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.or <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1131	1306	
==>]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.or <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5488	5614	
==>h;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the r <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5488	5614	
==>h;    # pugs pisses me off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the r <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	878	974	
==>ted), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	878	974	
==>ted), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $description? ) retu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14038	14138	
==>desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14096	14196	
==>desc?) returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2832	2972	
==>p);
        if($cmp <= 0) {
          print STDERR "op shift\n" if $debug;
          push(@$ops,$op);
          local $Z::oop{$id}{'op_ahead' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3942	4066	
==>$_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4389	4551	
==>n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't able to find '$basename', aborting...\n";
        }

        unless( File::Spec->canon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14718	14826	
==>ol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14718	14826	
==>ol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedded "\n" characters in he <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18869	18967	
==>replace) }
 multi substr(Str $s, StrLen $offset ; StrLen $length,   $replace)
{ Pugs::Internals::su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11794	11892	
==>rly.  The nchar() method takes
a named character's name, and returns the actual character:

  my $R <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2192	2296	
==>me_class->new;

		my $result;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} "${runtime_class}-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29279	29383	
==>'ato' handle,
basically).  In order for the 'atom' handle to be executed, you must
explicitly add it to t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	576	687	
==>"$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/P <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	576	687	
==>"$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/P <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8041	8147	
==>text which follows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' dire <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8041	8147	
==>text which follows the item.

=item I<end_element ('item')>

This event is fired once the last '=item' dire <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7161	7304	
==>e);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7161	7304	
==>e);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13626	13750	
==>clude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traff <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13626	13750	
==>clude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traff <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9566	9684	
==>ed },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9566	9684	
==>ed },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	425	546	
==>(Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	425	546	
==>(Str $path, Bool $nofile?) returns Array is export {
    my $volume    = '';
    my $directory = '';
    my $file      = ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32703	32818	
==>ng node to the walking stack is that ending
nodes are all omitted from the tree because of the stacked nature of the <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24611	24697	
==>ptures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0,[Flag|M],E1) :- set_flag <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14540	14648	
==>)`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14540	14648	
==>)`

Creates a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11719	11860	
==>TTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11719	11860	
==>TTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6421	6530	
==>hese rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6421	6530	
==>hese rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1023	1140	
==>witches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || 0;
$Switches = "-w";
$Columns  = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	913	1062	
==>it;
    sub new {
        my $class = shift;
        my $value = shift;
        bless \$value, $class;
    }

    sub val { ${ $_[0] } }
    sub str { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	90	212	
==>it;

	sub new {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20452	20549	
==>all the languages your programs do or
might have, and lets you arrange the list in order of prefer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20452	20549	
==>all the languages your programs do or
might have, and lets you arrange the list in order of prefer <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1717	1844	
==>cal *DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $file eq File::Spec->u <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2997	3144	
==>R   { \x000D }
rule LS   { \x2028 }
rule PS   { \x2029 }


# A.1 Lexical Grammar

rule SourceCharacter {  # see clause 6
      . #dot
}
rule InputEl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12300	12417	
==>+ %{$_[0]} },
      code  => sub { Carp::carp("p6_as_num called on code"); $nan },
      ref   => sub { 0+ ${$_[0]} }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	617	754	
==>\&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	617	754	
==>\&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'grammar1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34701	34801	
==>new Relation that has the
same heading as the invocant and whose body contains all of the tuples that <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39251	39351	
==>new Relation that has the
same heading as the invocant and whose body contains all of the tuples that <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4687	4811	
==>- the new Grammar

  # - no optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4526	4646	
==>- the new Grammar
  # - no optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1430	1536	
==>third-party/$module";
        system("../../Setup$Config{_exe}", 'configure', '--user', '--prefix', "$pwd/d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	948	1117	
==>Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	948	1117	
==>Request $request) {
        my $uri = $request.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2692	2805	
==>}
# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list     <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2447	2557	
==>}


# signature from PIL2JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2932	3047	
==>code (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didge <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2932	3047	
==>code (Str $didget) {
#  say "decode Str ->" ~ $didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didge <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	700	796	
==>operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Al <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	700	796	
==>operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bits.  Al <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	158	333	
==>my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	223	379	
==>my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16556	16659	
==>ay context.  If there is no such header field, then the empty
string is returned.  This makes it safe to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16556	16659	
==>ay context.  If there is no such header field, then the empty
string is returned.  This makes it safe to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	626	741	
==>$opt) = @_;
    print "adding $opt->{name}\n";
    for ( 0 .. $#{$self->{levels}} ) {
        if ( grep { $_->{name} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5345	5455	
==>the archive path to the package's meta info
        $meta->{archive} =
            $self->pool_rel->file( file( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14378	14470	
==>n(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14378	14470	
==>n(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1607	1758	
==>.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1607	1758	
==>.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7602	7746	
==>mc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7602	7746	
==>mc_reduce(@blocks)) {
        if (@blocks == 1 and @{$blocks[0][CLASSES]} == 0) {
            my $content = $blocks[0][TEXT];
            $conten <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1160	1287	
==>apital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1160	1287	
==>apital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21772	21875	
==>in
one of their own resource files.  At some appropriate place, usually in the
main program, Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21772	21875	
==>in
one of their own resource files.  At some appropriate place, usually in the
main program, Locale::Key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2152	2275	
==>+' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2152	2275	
==>+' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	569	661	
==>::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	569	661	
==>::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13434	13550	
==>char
hash must be provided.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13434	13550	
==>char
hash must be provided.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3906	4010	
==>ase64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3906	4010	
==>ase64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40945	41049	
==>mprovements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toge <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40945	41049	
==>mprovements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2231	2329	
==>>:=(<varhash>)\{$<key>:=(<term1>)\}
        { return { access_hash_element => $() } }
RULE
*{'assig <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17346	17433	
==>itwiseANDExpressionNoIn>
    | <BitwiseXORExpressionNoIn> <'^'> <BitwiseANDExpressionNoI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11123	11218	
==>esc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11181	11276	
==>esc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20316	20436	
==>tr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16737	16857	
==>tr(${&Rx}, $old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xg <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14891	15004	
==>el_local => "$cdroot/boot/vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15582	15689	
==>for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Codd's original paper <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15582	15689	
==>for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Codd's original paper <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7068	7170	
==>at will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7068	7170	
==>at will be processed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	632	723	
==>.does(Package) or (.does(Str) and $^n ne $EMPTY_STR)
};

subtype Relation::LaxPairAttrType o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15333	15462	
==>ode @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Buc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15333	15462	
==>ode @!queue;
    has      $!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Buc <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11998	12099	
==>= $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11998	12099	
==>= $set2>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C<$set2 <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	516	644	
==>unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	516	644	
==>unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, version_arch_dir
# and inc_version <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4087	4221	
==>$self->{neg} ? '^' : ''),
	     $self->{type}, ${$self->{how}}, "]";
      }
    }
END
}

{
  package Hacks;

  #XXX - surely this is p <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9882	9974	
==>re's a list of recently submitted <a
    href="http://www.pugscode.org/">Pugs</a> smoke repor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21880	21998	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18301	18419	
==>ub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1357	1456	
==>elf-referential things

sub alternation {
    # alternation is first match (not longest).  though we <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1357	1456	
==>elf-referential things

sub alternation {
    # alternation is first match (not longest).  though we <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	834	927	
==>version to other types
sub to_str { str->new('' . (shift)->to_native) }
sub to_num { (shift)-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3231	3373	
==>f(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'numeric';
    }
    if($ref eq 'SCALAR') {
	return 'scalar_non_numeric' if !(( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	208	318	
==>6.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	208	318	
==>6.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, World!

With Perl 5 embedding <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9609	9804	
==>ntry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " OR ", map { _pp_depends( [$_] ) } @$entry;
                $str .= ')';
                
            } elsif ( UNIVE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4849	4960	
==>."
  
  my $rxinfix = Pugs::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	429	582	
==>self = shift;
            $self->set_value('%:slots', {});
        },
        methods => {
            hash_fetch => sub {
                my $self = shif <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	87	201	
==>ada, yada, yada"
$x = {term:<...>()}

# PI könnte ein term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4510	4607	
==>hat can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental develo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4760	4857	
==>hat can be eval'ed into a rule/token/regex object.

=head1 CAVEATS

This is an experimental develo <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12544	12689	
==>rd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$initrd_mnt/$_";
        } else {
          copy "$pge/$_" => "$initrd_mnt/$ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3571	3665	
==>func 'atan';
trig_func 'sec';
trig_func 'cosec';
trig_func 'cotan';
trig_func 'asec';
trig_func <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16085	16226	
==>{
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16085	16226	
==>{
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3606	3715	
==>return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3606	3715	
==>return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23640	23763	
==>n => ide("tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plus_ten = com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12824	12932	
==>does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32999	33099	
==>t_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
eac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32999	33099	
==>t_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
eac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3779	3877	
==>members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3779	3877	
==>members }
## multi sub *infix:<-#> (@a, @b) returns Array { set(@a).difference(@b).members }
## mul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5072	5223	
==>l, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whol <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5536	5687	
==>l, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whol <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11855	11961	
==>ill have to wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11913	12019	
==>ill have to wait
a little while. Until then, you can just write your own functions like this:

  cmp_ok('te <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16021	16118	
==>->{cache}{$symbol} if exists $self->{cache}{$symbol};
    my $val = $self->{cache}{$symbol} = Plac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2414	2507	
==>->{cache}{$symbol} if exists $self->{cache}{$symbol};

    my $val = $self->{cache}{$symbol} = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15477	15572	
==>got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recurs <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15535	15630	
==>got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recurs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	609	745	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	609	745	
==>xtracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub literal {
    my $grammar = shift;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6042	6158	
==>ix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { return { sub_decl => $() ,} }
RULE
*{'sub_defin'} = P <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1596	1732	
==>ray of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1596	1732	
==>ray of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2883	3008	
==>s copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2883	3008	
==>s copy ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2715	2844	
==>gz'   ];
$config{'archive_ext'}      = [ '.jib'          ];

$config{'preinst'}          = [ 'PREINST.pl'    ];
$config{'postinst' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11189	11349	
==>onal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11468	11628	
==>onal(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	816	942	
==>ool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_hash'}   = $h;
    $$o->{'from'}  = $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3668	3771	
==>yof_class => $S->force_object(horiz => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->ad <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2053	2185	
==>erl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - base <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2053	2185	
==>erl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where script was invoked
    $Script      - base <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7810	7917	
==>elf.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Au <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7810	7917	
==>elf.header("Proxy-Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Au <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1314	1448	
==>r.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1302	1428	
==>r.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7849	7969	
==>erl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1674	1794	
==>erl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12015	12129	
==>ame, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4658	4772	
==>ame, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3579	3732	
==>ends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4043	4196	
==>ends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8484	8595	
==>ject>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8484	8595	
==>ject>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channel <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4374	4502	
==>_;
   my @tt = (
      [ 'file1',  $file1,  "0000000001\n" ],
      [ 'file2',  $file2,  "0000000002\n" ],
      [ 'file3',  $fil <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15192	15298	
==>->{env} = shift;
    $self->{digests} = { map { Digest->compute($_) => $_ } $env->values };
    my $ast = s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	295	414	
==>ass->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PACKAGE_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23097	23190	
==>butes (eg,
volatile or persistent) and provide accessors to them.  The Relation
library provid <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3205	3370	
==>= ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3205	3370	
==>= ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age
            $age = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1105	1242	
==>..);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1105	1242	
==>..);

  my :(date => $date, text => $text) := $bot.seen("iblech");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1258	1519	
==>r ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1258	1519	
==>r ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                when ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10703	10796	
==>method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10703	10796	
==>method encipherer(Class $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%o <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	245	358	
==>';

use strict;

sub determine_VERSION {
    my $self = shift;
    my @modules = glob('*.pm');

    require File:: <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1150	1269	
==>, sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', s <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1150	1269	
==>, sub (%p, %v) {
    return '<input name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13063	13158	
==>s as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitabl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13063	13158	
==>s as a
tree of primitive Perl data structures (hash refs, array refs, scalars),
which is suitabl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31181	31279	
==>that returns a new Relation
which has a subset of the original's tuples, and it works like Perl's
s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35731	35829	
==>that returns a new Relation
which has a subset of the original's tuples, and it works like Perl's
s <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	661	784	
==>].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	661	784	
==>].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$widget}(%parameters <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3335	3447	
==>se warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	106	218	
==>se warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $class = shift;
  my $object = bless <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2422	2519	
==>t any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent R <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2422	2519	
==>t any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent R <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	293	397	
==>ef $self)->new($f->($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17832	18031	
==>ew('%params' => 'hash')
                          ),
                returns => 'nil'
            ),   
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41100	41296	
==>ew('%params' => 'hash')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	252	438	
==>T;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	252	438	
==>T;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.file              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3465	3554	
==>-Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shado <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3465	3554	
==>-Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shado <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5836	5931	
==>als->{max} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout_reason <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13050	13190	
==>e {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6525	6665	
==>e {
      my $good = ($num =~ s/^([a-fA-F0-9]*)// and $1);
      &RxPOS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3349	3471	
==>- see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3360	3482	
==>- see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	825	921	
==>s Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	825	921	
==>s Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is expor <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50371	50492	
==>->get_attr(symbol->new('$:authority'));
            }
        )
    )
);

$::Module->send('add_method' => (
    # method l <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17622	17714	
==>Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E1) ).
rm(star(_Re),F0,F0,B0,B0,E0,E0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14611	14719	
==>y ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print => $neg, \$how);
  });

  # punct P <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11126	11225	
==>?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11184	11283	
==>?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rule $expected, Str $des <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	981	1135	
==>in}            => SUBDIR_OF_ROOT ];
$config{'compile_dir'}      = [ _builddir               => 
                                sub { shift()->temp_dir->su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1320	1473	
==>l = (map { $_ => 1 } $sub_seq->tail->to_native);
                # NOTE:
                # jump out as soon as we find one matching
                # ther <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31429	31531	
==>ven the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same attributes a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35979	36081	
==>ven the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same attributes a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5465	5641	
==>stmt} eq 'my' 
                || $ast->{stmt} eq 'our' 
                || $ast->{stmt} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsif ( $as <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2707	2827	
==>s->type) . ")";
		$res;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = s <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2854	2969	
==>_abbr = <Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec>;
method month_abbr returns Str { @months_abbr[./month_0] } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	962	1066	
==>items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	962	1066	
==>items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

method remo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6981	7099	
==>";
  goto reduce;
  bsr_reduce_1:
  goto shift_reduce;

  oper_close:
  goto oper_reduce if $topcat < PGE_OPTABLE_TERNA <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	18027	18184	
==>g_re_tests::test(sub{my($mods,$re)=@_;
    $re = "(?$mods)(?:$re)" if $mods;
    my $r = compile($re); sub{my($s)=@_;match($r,$s)}});
  exit;
}
1;
__END__
#pr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23650	23768	
==>* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #defi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28869	28969	
==>* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7506	7676	
==>) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{self}{op1 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	572	689	
==>ker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	572	689	
==>ker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Array is export {
    return &::($worker_pkg)::splitdir( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	116	223	
==>tr
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	116	223	
==>tr
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compile <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4622	4707	
==>p5_range_bounds(Min,Max) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2685	2788	
==>given string, seperating it into 'name' and 'value' pairs.  This
method should be called before any othe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2685	2788	
==>given string, seperating it into 'name' and 'value' pairs.  This
method should be called before any othe <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6732	6849	
==>ode.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6732	6849	
==>ode.new( recurrence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2738	2844	
==>}
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2738	2844	
==>}
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionR <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13124	13222	
==>magic not stick.

  The implementation is at best an XS-based module (currently Inline::C),
  and i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1259	1375	
==>submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1259	1375	
==>submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($match)->new($m);
}

sub flat {
    retur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13849	13955	
==>ion> <']'>
    | <CallExpression> <'.'> <Identifier>
}
rule Arguments :words {  # see 11.2
      <'('> <')' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1948	2126	
==>_init {
    my($self) = shift;

    $self->{_is_vms}   = ( $^O eq 'VMS' );
    $self->{_is_win32} = ( $^O =~ /^(MS)?Win32$/ );
    $self->{_is_macos} = ( $^O eq 'MacOS' );
}

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3674	3803	
==>return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3662	3791	
==>return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7089	7183	
==>as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7089	7183	
==>as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

This e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3529	3658	
==>);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $ca <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3587	3716	
==>);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $ca <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	572	666	
==>DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(S <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	572	666	
==>DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(S <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17359	17477	
==>eturns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previou <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17359	17477	
==>eturns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previou <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20700	20797	
==>re any subroutines or export such.

The usual way that Relation indicates a failure is to throw an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25252	25349	
==>re any subroutines or export such.

The usual way that Relation indicates a failure is to throw an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	836	949	
==>ad.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	836	949	
==>ad.start_is_open;
}
method start_is_closed () returns bool {
    return Bool::False unless @.spans;
    my $head = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4976	5220	
==>s
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4976	5220	
==>s
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cookie2)) {
                                $re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2612	2713	
==>re important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2516	2613	
==>re important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneou <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	476	605	
==>ation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	476	605	
==>ation about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5374	5503	
==>ron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5374	5503	
==>ron"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932), <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21457	21581	
==>look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17878	18002	
==>look-behind
  $self->add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12730	12857	
==>isnegated"] = 0
    pos = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	79	190	
==>A=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use Pugs::Utils::Interface;
my $dumper;

# which modules do diffren <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5444	5555	
==>! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5444	5555	
==>! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache3 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12822	12920	
==>ncoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 V <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12822	12920	
==>ncoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in programs by keys

=head1 V <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6526	6637	
==>PT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL */

    
    /* X <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19904	20009	
==>t the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19904	20009	
==>t the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15820	15918	
==>t has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15820	15918	
==>t has any.

=back

This is the main Node constructor method:

=over

=item C<new( :$document!, :$pa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2368	2501	
==>g here ...
            %attrs,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1250	1352	
==>n $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1250	1352	
==>n $answer;
}

method member($self: $item) returns Object {
    return $item if $self.includes($item);
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	45	150	
==>arnings;
use base qw(Pugs::Grammar::BaseCategory);

# XXX - this module is currently unused
# XXX - see Pu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7960	8054	
==>hannels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.dele <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7960	8054	
==>hannels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.dele <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2650	2755	
==>d2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2650	2755	
==>d2 Request Details

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39106	39202	
==>ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39106	39202	
==>ALSO

These Perl 6 packages are the initial main dependents of Locale::KeyedText:
L<Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9670	9768	
==>iphers will need to override these
method _head() returns Array { return }
method _tail() returns A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9670	9768	
==>iphers will need to override these
method _head() returns Array { return }
method _tail() returns A <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11072	11176	
==>ind a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11072	11176	
==>ind a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3798	3935	
==>th ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/./. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3798	3935	
==>th ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/./. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4223	4332	
==>_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4223	4332	
==>_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items. <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16498	16734	
==>y $h = $sobj->look_down( _tag  => 'div', 
                                          class => qr/^h\d$/,
                                          name  => $heading_re);
                
                unless ($h) {
                    p <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4387	4489	
==>z=$initrd_gz
    mklivecd.pl automatically generates a gzipped initrd suitable for GRUB.
  --initrd-img <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	838	942	
==>thods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	838	942	
==>thods `end()`, `previous($x)` are enabled.

- `new( closure_next =>     sub {...}, universe => $universal <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	14	106	
==>Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	14	106	
==>Tree::Visitor;

class Tree::Visitor::FindByPath-0.0.1 is Tree::Visitor;

has @!search_path;
h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	431	524	
==>y-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Enco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	431	524	
==>y-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer-Enco <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28148	28242	
==>urns Set of Str>

This method returns this Relation::Example's heading.

=item C<body () return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3416	3511	
==>> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3600	3695	
==>> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicode-class> <+unicode-class+unicode-c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10355	10488	
==>ok\n";
            } elsif (defined $test{skip_all} and length $test{skip_all}) {
                print "skipped\n        all skipped: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2249	2371	
==>d1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2249	2371	
==>d1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4735	4871	
==>);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4735	4871	
==>);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    while ($dir = shift(@path_dirs)) { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6035	6116	
==>stmt_prim('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}(?{ &::hlp_ws;})' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6897	7003	
==>t like other Perl 6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6661	6764	
==>t like other Perl 6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	832	948	
==>->mk_accessors( qw[installations] );
    
    $obj->installations( \@inst );
    
    return $obj;
}

1;

# Local var <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6452	6573	
==>eturn self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6452	6573	
==>eturn self;
}

# XXX - if you use this, you get: "cannot next() outside a loop"
# method next     () { $array.shift } 
# m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21889	22001	
==>my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(susp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18310	18422	
==>my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(susp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	148	253	
==>mar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	148	253	
==>mar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3090	3214	
==>e = $ENV{HARNESS_PERL} || "pugs";
    $ENV{PERL6LIB} = 'blib6/lib';
    $self->{_build_info} = join '', qx{$executable -V};
} <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16617	16706	
==>yExpressionNoIn> <'=='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> < <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2399	2507	
==>te_keystream> with a number of bytes and throwing the return value away.
Encryptions after this point will be <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2399	2507	
==>te_keystream> with a number of bytes and throwing the return value away.
Encryptions after this point will be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23278	23385	
==>value is copied and pushed onto the stack.  When a scope is left, the
top value is popped and discarded.

It <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16038	16159	
==>ar() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16038	16159	
==>ar() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3914	4023	
==>amed (named character)
  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6050	6181	
==>d () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6050	6181	
==>d () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2463	2570	
==>:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2463	2570	
==>:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5501	5622	
==>rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be a expressed as
# numb <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5501	5622	
==>rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also be a expressed as
# numb <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6583	6690	
==>"KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reas <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6583	6690	
==>"KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reason = strip_colon($reas <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	290	433	
==>($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _ <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	290	433	
==>($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub {
        for (1..$count) {
            $code.();
        }
    }
}

sub _ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8121	8224	
==>thods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convienc <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8121	8224	
==>thods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convienc <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	114	218	
==>o on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert methods
multi meth <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1472	1582	
==>ns a new scope

    $self->new_pad("name" => $value); # shadows any previous "name"

    $self->find_dyn_sym("n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	13	121	
==>6::Util::SExpParser;

use strict;
use warnings;

sub parse {
    my ($class, $source) = @_;
    my ($stack, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15899	16110	
==>ubrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    cal <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15893	16104	
==>ubrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    cal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8375	8481	
==>ks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8433	8539	
==>ks like you planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2308	2417	
==>ns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2308	2417	
==>ns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5528	5627	
==>HORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Li <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5528	5627	
==>HORS

This module is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	475	582	
==>(\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	475	582	
==>(\\d+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4026	4130	
==>be ordered, and the spans must not intersect with each other.

- empty_set()

- universal_set()

= OBJECT <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4026	4130	
==>be ordered, and the spans must not intersect with each other.

- empty_set()

- universal_set()

= OBJECT <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1177	1281	
==>eral
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of constant size be <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1177	1281	
==>eral
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of constant size be <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13422	13526	
==>y
to provide a comment that refers to another file or test which must be
made to pass before this test ca <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13480	13584	
==>y
to provide a comment that refers to another file or test which must be
made to pass before this test ca <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4834	4942	
==>ght x for p3d');

$p3d->clear;
         
is($p3d->get_x, 0, '... got the right cleared x for p3d');
is($p3d-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10953	11051	
==>ch field exists C<undef> will be returned.

A multi-valued field will be returned as separate value <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10953	11051	
==>ch field exists C<undef> will be returned.

A multi-valued field will be returned as separate value <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10393	10489	
==>ap {"\$$_"} @{$info->{'fields'}});
    $vars eq $chk || die "bug: node field list mismatch:\n$var <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9332	9445	
==>>{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9332	9445	
==>>{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}


# ------- higher-order ruleops

sub op <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2631	2742	
==>>{'values'}{'features'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @{ $self->{'va <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18945	19040	
==>)
{ Pugs::Internals::substr($s,$offset,undef,$length,undef,$replace) }


# unpack

# vec # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	958	1144	
==>rl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	958	1144	
==>rl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\s*([^=]+?)\s*=\s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3919	4018	
==>ext ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_next, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3919	4018	
==>ext ),
        complement_next =>     $self._get_union( $self.complement_next, $set.complement_next, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22658	22751	
==>nick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22658	22751	
==>nick")>

Tries to change the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5893	5982	
==>t 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 CO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5893	5982	
==>t 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 CO <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24418	24518	
==>xport_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28970	29070	
==>xport_as_hash () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25370	25466	
==>stics like the
above are printed.

=item C<Test returned status %d (wstat %d)>

Scripts that retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3130	3286	
==>= shift;
        my $acc = '_'.$func;
        
        ### set the new value if provided
        $obj->$acc( $_[0] ) if @_;
        
        my $sub = $confi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9477	9570	
==>symbol $label)) returns nil
    ((($self: get_attr (symbol new (%:methods))) delete ($label))) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8308	8435	
==>~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($sel <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8308	8435	
==>~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HTML 3.2
    #if ($sel <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1369	1469	
==>b common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1369	1469	
==>b common_code ($data,$constructor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5417	5520	
==>mp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5417	5520	
==>mp to a response when it has been received.
method client_date ($self: )         is rw { $self!date_head <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3138	3266	
==>ys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts"> );
    }	
    elsif $tree[0] eq <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	605	733	
==>borts.

=cut

sub assert ($;$) {
    my($assert, $name) = @_;

    unless( $assert ) {
        require Carp;
        my $msg = 'A <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	241	345	
==>OPSIS

 # class SomeClass { method ... { ... } }
 my $class = Class--Perl6.new("SomeClass");
 $class.addM <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2173	2272	
==>self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2173	2272	
==>self.union( self.complement )
    return $.universe = $self unless defined $.universe;
    return $. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22242	22343	
==>erator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> ". <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22242	22343	
==>erator rights.

=head2 C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> ". <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2782	2882	
==>::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2782	2882	
==>::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDe <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1401	1530	
==>current"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if ($^O =~ /MSWin32|msys/) { # On cygwin we are okay.
        warn "Sorry, con <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	642	764	
==>j );
  if ( (substr $target, $from, 1) =~ /[:upper:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9313	9417	
==>1K", "count=$initrd_size" },
    help   => "We're now creating a zeroed image we will later mount.";

  s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14282	14384	
==>exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14282	14384	
==>exception (C<die>), but the caller of scan()
would have to trap the exception itself.

=item $h.as_stri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3054	3149	
==>m C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3054	3149	
==>m C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	514	620	
==>]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash cont <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	514	620	
==>]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or a hash cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17697	17801	
==>reates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17697	17801	
==>reates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3102	3209	
==>::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3102	3209	
==>::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1559	1680	
==>s($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10278	10379	
==>b {...}, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10278	10379	
==>b {...}, closure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The compl <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7774	7910	
==>( $_[0][1][0][1] );
        }
        dbg "# Arguments: ", @args.elems;
        dbg "# Function:  "; my $function = traverse_ast ( %app<" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13070	13179	
==>c value, and a format string for use with sprintf().

  # for when you have a zero-width chunk
  # with a boun <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7999	8110	
==>rom_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/he <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7999	8110	
==>rom_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody changed his/he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21799	21900	
==>e files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be given input <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21799	21900	
==>e files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be given input <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1357	1460	
==>r frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1357	1460	
==>r frequency, the keyspace is only 26.  You would 
have to be insane to use this for anything more than o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6221	6358	
==>"    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HAS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6734	6871	
==>"    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HAS <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21199	21301	
==>> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Pa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21199	21301	
==>> "password")>

Joins a channel (optionally using the specified key).

=head2 C<$bot.part("#chan")>

Pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	164	275	
==>(pl|pm|t)$/\.pmc/;
die "this is not a .pl, .t or .pm file"
    unless $pmc =~ /\.pmc/;
# test file dates
my $pmc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11429	11536	
==>s} }, &Rf;
    return $S->object(open => $S->{nparen});
  });

  # any character
  $self->add_handler('.' => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	737	1046	
==>essage.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module MyLib

###########################################################################
###########################################################################

my Str %TEXT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	737	878	
==>essage.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        return 1 / $number;
    }
} # module MyLib <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16508	16613	
==>tabase functionality;
this language, which satisfies TTM's definition of a "D" language, is
described full <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16508	16613	
==>tabase functionality;
this language, which satisfies TTM's definition of a "D" language, is
described full <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2764	2926	
==>my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2673	2830	
==>my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4351	4464	
==>Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4351	4464	
==>Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3040	3206	
==>sh( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3040	3206	
==>sh( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14238	14336	
==>ored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14238	14336	
==>ored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
would have <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4444	4595	
==>t possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4444	4595	
==>t possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $expires = ./expires;
        
        u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7359	7464	
==>ories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7359	7464	
==>ories = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @path <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6181	6321	
==>tch:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finished' flag in the ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5984	6116	
==>tch:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finished' flag in the ret <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4049	4237	
==>$end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { r <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4049	4237	
==>$end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1617	1720	
==>rn $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1617	1720	
==>rn $<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2313	2442	
==>Source->Object::Accessor::new           :
            $args->{installation}   
                ? JIB::Package::Installed->Object:: <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1353	1476	
==>GV);
print "\n";
__END__
:endofperl
EOT

close $F;

# build the executable
chdir($testdir);
END {
    #chdir($cwd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10226	10342	
==>er::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the depth to which it will
l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	418	516	
==>ompile($self, Blondie::Prelude->env, $prog);
}

sub compiler_class { "Blondie::Compiler" }

sub pro <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1965	2081	
==>>param("smoke");

  my $id = md5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "The submitted smoke was a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12398	12524	
==>(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12398	12524	
==>(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7366	7468	
==>add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7366	7468	
==>add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1072	1184	
==>}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1072	1184	
==>}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Mod <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1529	1658	
==>elf: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.rem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1529	1658	
==>elf: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.rem <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	84	202	
==>Module/Install/Makefile/Name.pm"
package Module::Install::Makefile::Name;
use Module::Install::Base; @ISA = qw(Module:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3492	3607	
==>("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3492	3607	
==>("332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      % <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32006	32098	
==>mple but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued att <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	342	467	
==>it returns (or "yields"):



    undef - match failed



or a hash containing:



    state - a "continuation" or undef

    b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	326	444	
==>it returns (or "yields"):

    undef - match failed

or a hash containing:

    state - a "continuation" or undef
    b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2677	2786	
==>d }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2677	2786	
==>d }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25236	25378	
==>s')); 
                          # clear the MRO now
                          $e->get('$self:')->set_attr(symbol->new('@:MRO') => list->new()) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3774	3914	
==>eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3762	3902	
==>eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        "$_[1]   do { wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	878	990	
==>{
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	889	1001	
==>{
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "non_capt <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1236	1385	
==>int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value" <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1236	1385	
==>int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key ⇒ "value" <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	292	390	
==>a Perl::Type;

# junctive types can only be disjunctions and conjunctions, so
# sub-type JuncType
h <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1747	1840	
==>bstr $target, $from, $position;  
}

#get_string_keyed_int
#get_pmc_keyed_int
#set_pmc_keyed_i <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3456	3565	
==>{include} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $include_re = join( "|", m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1226	1315	
==>dditionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1226	1315	
==>dditionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5717	5884	
==>lf, $label) = @_;
            ::opaque_instance_attrs($self)->{'%:methods'}->{$label};
        },        
        'get_method_list' => sub ($$) {
            my ($self, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7069	7180	
==>>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7069	7180	
==>>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(normalize $kickee);
        %!users{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1265	1376	
==>allation => INSTALLATION_OBJECT )

=cut

### XXX perl-ify
sub install {
    my $self = shift;
    my $conf = $se <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12108	12202	
==>$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12108	12202	
==>$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4051	4157	
==>e POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=h <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4051	4157	
==>e POD appended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35735	35834	
==>ily: close

Types: close1, close2 ... closeN (C<)> when in C<(...>)

Omitted

=head2 tail

Family: c <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	257	362	
==>:Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	257	362	
==>:Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2622	2749	
==>ch;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2622	2749	
==>ch;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless defined <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2752	2853	
==>-------------------------------
## inserting children

method insert_children ($self: Int $index, *@tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2752	2853	
==>-------------------------------
## inserting children

method insert_children ($self: Int $index, *@tr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3751	3850	
==>st exited with non-zero, this is its exit status.

=item B<Wstat>

The wait status of the test.

=it <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3974	4072	
==>"can not open '$fname.tex' for writing";
#    print FH <<"EOT";
#\\begin{block}{$desc}\\texttt
#{$f <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1822	1949	
==>ents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1822	1949	
==>ents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elemen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5697	5814	
==>child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5697	5814	
==>child_at($index);
        $index++;
    }
    die "Child Not Found : cannot find object ($child_to_remove) in self";
} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51742	52030	
==>et('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->concat(
                              $e->get('$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51131	51390	
==>et('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->concat(
                              $e->get('$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1985	2084	
==>Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1985	2084	
==>Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1] <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2789	2897	
==>.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $modu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2789	2897	
==>.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $modu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10491	10589	
==>laintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10491	10589	
==>laintext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	218	336	
==>l_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	218	336	
==>l_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3633	3754	
==>$end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3633	3754	
==>$end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defined( $start ) && defined( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16324	16461	
==>qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12745	12882	
==>qw< cce] cc cc] >;
    my $neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5455	5552	
==>ructor, but there may be situations in which explicitly zeroizing the 
cipher object would be desi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5455	5552	
==>ructor, but there may be situations in which explicitly zeroizing the 
cipher object would be desi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1420	1525	
==>\tCreated '$builddir/$archive' from sourcedir '$srcdir'\n"
        :   "\n\tFailed to created '$builddir/$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2437	2546	
==>return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2437	2546	
==>return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns List {
    r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	305	406	
==>represents the 
node type, which are checked against each other for agreement at BUILD time
for the be <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	305	406	
==>represents the 
node type, which are checked against each other for agreement at BUILD time
for the be <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15132	15236	
==>::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15132	15236	
==>::sha1_hex($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1739	1923	
==>> {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1739	1923	
==>> {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19695	19806	
==>rsed properly.  Fixed.  (Mike
Lambert)

Flags weren't being turned off.  Fixed.

=back

=head2 0.02 -- July 1, 2 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7979	8085	
==>oor and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This method sho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7979	8085	
==>oor and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately.  This method sho <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1744	1834	
==>opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext versi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1744	1834	
==>opt<value>, :opt2<value2>);

Enciphers the plaintext string, returning the ciphertext versi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3092	3191	
==>e of the parameter named C<$name>.  If called in List context,
it will return a list of values.  Oth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3092	3191	
==>e of the parameter named C<$name>.  If called in List context,
it will return a list of values.  Oth <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37904	38002	
==>it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37904	38002	
==>it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, wh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18017	18118	
==>t has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18017	18118	
==>t has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11783	11884	
==>};
}

$Data::Dumper::Terse = 1; # no need for pointless $VARx
$Data::Dumper::Indent = 1;


sub AUTOLOA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3200	3311	
==>xact => chr(64 ^ ord $c), "\\c$c");
  });

  # ndigit (not a digit)
  $self->add_handler('\D' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1602	1688	
==>-------------------------------------------------------
## informational methods

metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1602	1688	
==>-------------------------------------------------------
## informational methods

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2987	3134	
==>*STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3204	3351	
==>*STDIN
        } else {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8437	8543	
==>sers, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8437	8543	
==>sers, and update
  # all %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($eve <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1198	1306	
==>) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1198	1306	
==>) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is exp <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3179	3273	
==>_uri
    mklivecd.pl automatically fetches a kernel from the Internet.
  --kernel-local=$kernel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18757	18855	
==>ive API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18757	18855	
==>ive API (unlike many
other DBMS products) because SQL is more ambiguous and error-prone to use,
and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10855	11003	
==>ta::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	444	553	
==>ub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includes($node)){
		$s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2430	2572	
==>ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2430	2572	
==>ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when ::Perl::Compiler::PIL::PIL <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1501	1602	
==>XXX can be custom file & nicer object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Meta <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2225	2342	
==>g == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2225	2342	
==>g == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7488	7601	
==>elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-for <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7488	7601	
==>elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'application/x-www-for <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3364	3458	
==>-> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3364	3458	
==>-> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22079	22334	
==>)
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22358	22613	
==>)
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1266	1367	
==>thod member($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1266	1367	
==>thod member($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11906	12010	
==>n just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11964	12068	
==>n just write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... tes <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	461	638	
==>cted 
# method, which is used to implement the 
# other methods below
sub _compare { confess 'You must override _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	678	788	
==>GHT AND LICENSE

Copyright 2005 Jos Boumans, Florian Ragwitz.

This library is free software; you may redistrib <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5140	5230	
==>nce")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5140	5230	
==>nce")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Sin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11794	11934	
==>atch ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12073	12213	
==>atch ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	604	695	
==>'rule_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    rule <p6ws> <ident> <p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	756	855	
==>my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	962	1061	
==>my $program = Perl6Grammar::emit( $match->{capture} );
        #print "immediate_statement_exec: mat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2707	2890	
==>y
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2707	2890	
==>y
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	439	560	
==>::Grammar::Operator::add_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
        name => 'prefix:<' . $op <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	564	678	
==>ft;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1226	1340	
==>ft;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        push @$subdirs, $subdi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	159	258	
==>TENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	159	258	
==>TENT_TYPE;
my $QUERY_STRING;
my $QS_DELIMITER = ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7552	7680	
==>turn $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7552	7680	
==>turn $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8654	8767	
==>ift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8847	8960	
==>ift @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::conca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1116	1218	
==>oncat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1116	1218	
==>oncat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1793	1982	
==>V[1]);
    }
    else {
        local $/;
        $code = <>;
    }

    if ($compile_only) {
        print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval _ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9462	9569	
==>((join " ", @_) . "\n");
    system @_ and die (sprintf "system: [%s]: $!", join " ", @_);
}

sub copy_all { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4373	4511	
==>set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4373	4511	
==>set2 );
        @diff = @diff.map:{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18955	19054	
==>s is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18955	19054	
==>s is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7258	7378	
==>$_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7270	7390	
==>$_[1],$_[2]);
#   print Dumper(@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5959	6312	
==>($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7721	8074	
==>($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_n <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1145	1358	
==>*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Sy <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1145	1358	
==>*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Sy <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37107	37200	
==>age() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37107	37200	
==>age() to handle the trickier parts of its work:

=over

=item C<template_module_is_loaded( $mo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2731	2832	
==>r) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $other) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2731	2832	
==>r) returns Set {
    set($self.members, $other.members);
}
method intersection($self: Set $other) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6871	7022	
==>SH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 'say' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10214	10317	
==>Regexp::Parser::* object
    # $depth = 0, 1, 2...
  }

If passed the argument C<-depth>, it returns the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19638	19734	
==>> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19638	19734	
==>> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5963	6129	
==>y ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6427	6593	
==>y ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $in <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	481	663	
==>, {});
        },
        methods => {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	221	355	
==>ttributes => [ '$:expect' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %params) = @_;
            if (!exists <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11186	11289	
==>s // hash());
}

(method new ((opaque $class:) (hash ?%params)) returns opaque
    (((?%params is_nil) a <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10749	10923	
==>lti  List::sort(  SortCriterion  @by
                              ;               *@values
                             --> List )

 multi  List::sort( SortCriterion  $by = & <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21140	21246	
==>es them.

Aliases:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_utf8    substrs->da <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2303	2412	
==>separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2303	2412	
==>separator is first in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1337	1467	
==>r;

    my $cwd = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13184	13322	
==>{
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the dat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13184	13322	
==>{
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the dat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10830	10981	
==>undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_pha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10830	10981	
==>undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_login_pha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12968	13171	
==>> 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol->new('%params'   => 'hash')
                          ),
                returns => 'op <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1220	1322	
==>.yml";
    unlink "blib6/lib/Prelude.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2535	2675	
==>_ == 0 { $x_round = sign($x) * (floor( abs($x) ) + 1) }
                when $_ == 1 { $x_round = sign($x) * floor( abs($x) ) }
            } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10694	10780	
==>g =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string} <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10694	10780	
==>g =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $string} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35910	36005	
==>set_member_combinations()>

This method returns an array ref having all combinations of this obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35910	36005	
==>set_member_combinations()>

This method returns an array ref having all combinations of this obj <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8429	8526	
==>h @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2254	2351	
==>h @statements, sub { Grammar::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24880	24977	
==>cceeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24880	24977	
==>cceeded, even if the return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Me <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1054	1161	
==>eft;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1054	1161	
==>eft;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3253	3368	
==>ll names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if neces <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3253	3368	
==>ll names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if neces <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18741	18837	
==>association would normally be
stored in a Perl file that defines and returns an anonymous hash
de <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18741	18837	
==>association would normally be
stored in a Perl file that defines and returns an anonymous hash
de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3760	3899	
==>f $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3748	3887	
==>f $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[1] &&\n" .
        " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8989	9088	
==>}
NODE TCxtSlurpy ($type) { "should not appear" }
NODE TTailCall  ($tcxt) { "should not appear" }

N <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7786	7898	
==>th(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7786	7898	
==>th(catpath("", $result_dirs, ""));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	113	243	
==>'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	113	243	
==>'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runti <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3659	3775	
==>te accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3659	3775	
==>te accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	870	981	
==>e eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	837	948	
==>e eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4898	5038	
==>er_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one probabl <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4898	5038	
==>er_stack) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one probabl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	874	1017	
==>[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum - <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	874	1017	
==>[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum - <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1857	1964	
==>py) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1857	1964	
==>py) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	213	350	
==>ft;
    my $code = shift;
    my ($grammar) = caller;
    bless { code => $code, grammar => $grammar }, $class;
}

sub rule(&) {
    my $r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5204	5373	
==>elf._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*p <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5204	5373	
==>elf._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1690	1804	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1883	1997	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::ge <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23443	23541	
==>one reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribution: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23443	23541	
==>one reported.

=head1 SEE ALSO

These documentation files are included in the Rosetta distribution: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8437	8581	
==>->{op1}{stmt} eq 'unless' ) {
        return  " " . $n->{op1}{stmt} . 
                '(' . _emit( $n->{exp1} ) . ')' .
                " {\n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3519	3682	
==>vides} || [] };
            }
        
            ### find the alternative with the highest version
            ### XXX this should be policy based!
            ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31534	31638	
==>ng the 'p' form is deprecated, but is
still allowed, so I delete its handler too.  You can use this class <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	364	462	
==>od_Dispatch_w_EigenClasses.jpg in this 
## same directory for a visual explaination of this. 
## -- <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2085	2217	
==>lts.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets cal <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2085	2217	
==>lts.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $pathfile ) {
        return 1;
    }

=item wanted_dir

Gets cal <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17846	17947	
==>mc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IM <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17846	17947	
==>mc> check on every module load since 1999!

=back

=head1 PARSING AND DISPATCH

NOTE: *** NOT FULLY IM <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2071	2184	
==>allback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

use Inline C => <<'END';

#incl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13350	13456	
==>^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13350	13456	
==>^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1724	1835	
==>efined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1724	1835	
==>efined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 }

method child_count returns Int { +@!childre <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7402	7514	
==>ore confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# =head2 @bools = $repo->add_files($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3023	3129	
==>ore confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo->add_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1404	1529	
==>t { bit->new(1)            }

# methods 

sub do {
    my ($self, $args) = @_;
    $args ||= list->new();
    $self->_bind_par <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	939	1050	
==>ted

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	939	1050	
==>ted

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	435	544	
==>>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	435	544	
==>>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($dir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19046	19156	
==>t that is
associated with hard-coded program conditions.  In other words, this user
text is *part of the progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19046	19156	
==>t that is
associated with hard-coded program conditions.  In other words, this user
text is *part of the progra <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2320	2426	
==>print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    ch <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2298	2404	
==>print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), "\n");
    ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16285	16381	
==>ibute if provided (it defaults to empty if the parameter's
corresponding argument is not provided <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16285	16381	
==>ibute if provided (it defaults to empty if the parameter's
corresponding argument is not provided <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	275	381	
==>uest</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</h <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	275	381	
==>uest</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body>
</h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17026	17172	
==>::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17305	17451	
==>::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11316	11431	
==>~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11316	11431	
==>~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5 <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1270	1389	
==>s file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = cat <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1270	1389	
==>s file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = cat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4222	4407	
==>?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4222	4407	
==>?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23	155	
==>ot edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23	154	
==>ot edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	373	463	
==>5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	373	463	
==>5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+)+)}

rul <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26758	26887	
==>10) 5");
is(t($half_pair), "∀α. α → (int × α)", ":t pair(10)");
is(t($pair), "(int × str)", ":t pair(10)('foo')");
is(t($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	555	666	
==>finitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data structure that the Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	528	634	
==>finitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data structure that the Pa <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	891	992	
==>atchObj );
  if ( (substr $target, $from, 1) =~ /[:lower:]/ )
  {
    $matchObj->position( $matchObj-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9804	9941	
==>',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9804	9941	
==>',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return $text;
}

method interpolate_vars_into_templ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	800	908	
==>:pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	888	996	
==>:pod {
	return ''
}
sub node::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<i <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	141	287	
==>) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a w <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	141	287	
==>) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8673	8770	
==>ed when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8673	8770	
==>ed when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

= <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11982	12072	
==>midifference (Relation::Example $other!) returns Relation::Example {
    return $?SELF.diff <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	164	280	
==>ator;

# TODO - implement the "magic hash" dispatcher
our %hash;

#our @subroutine_names;

BEGIN {
    $operator = Pu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4321	4422	
==>t($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_bool {$_[0]?1:undef}
sub p6_bi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4594	4697	
==>h for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_yea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4594	4697	
==>h for the object, from 1 to 12.

- `day()`

Returns the day for the object, from 1 to 31.

- `day_of_yea <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3570	3672	
==>ipher API, you must first create an object of the appropriate 
class, passing the key, a mode (either " <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3570	3672	
==>ipher API, you must first create an object of the appropriate 
class, passing the key, a mode (either " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8805	8955	
==>all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8805	8955	
==>all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1941	2047	
==>xpression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1941	2047	
==>xpression';
    }
    method vtype () { 'Stmt' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3800	3887	
==>ultiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentChars> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1772	1887	
==>ing $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1772	1887	
==>ing $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper( <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1502	1615	
==>) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API} <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1502	1615	
==>) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $self->{API} <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1552	1649	
==>n or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to desel <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1552	1649	
==>n or by including them 
in the C<SELECT_LOGS> environment variable.  There is no facility to desel <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	715	836	
==>r_role, collect_arguments( grep { not try { $normalizer.subsume( $_ ) } }, @args );
        }
        
        method crea <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	387	493	
==>Blondie::Node") }) {
        next unless $class =~ /^Blondie::(\w+)$/;
        next if __PACKAGE__->can($1) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11373	11474	
==>n map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {.chr} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11373	11474	
==>n map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map {.chr} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2587	2801	
==>Y' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exist <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2587	2801	
==>Y' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exist <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2122	2304	
==>in);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2122	2304	
==>in);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $cookies; # should not really <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8632	8755	
==>y($lhs)=@$pLHS;
    my $rhs = $pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1497	1597	
==>is would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7227	7452	
==>{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7420	7645	
==>{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5179	5287	
==>make sure that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unle <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5179	5287	
==>make sure that the depth 
    # of the removed child is aligned correctly
    $removed_child.fix_depth() unle <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1596	1719	
==>dd_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1596	1719	
==>dd_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for reconstr <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	328	429	
==>t???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	328	429	
==>t???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EXPORT, @H <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2363	2635	
==></CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($te <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2363	2635	
==></CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> ($te <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1354	1467	
==>torage position

    foreach my $module (qw< fps HsSyck >) {
        chdir "third-party/$module";
        system(" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3533	3627	
==>ant symbols

=back

The compiler inherits L<Blondie::Reducer> in order to traverse the node
str <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5862	6007	
==>n($4),
      timestamp     => [
        $5,
        do { 
          my $str = localtime($5)->strftime("%d %b %Y %H:%M %a");
          $str =~ s/ / <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	299	392	
==>lsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'repo' );

system( qw[rm -rf], $config <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16766	16882	
==>in (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20243	20359	
==>in (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natural join,
    # where some <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1054	1152	
==>e::Parser was
# working and robust, it would make sense to continue for a while on
# Regexp::Parser <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1943	2060	
==>'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1943	2060	
==>'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý', <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3402	3555	
==>$op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4251	4404	
==>$op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1616	1765	
==>sg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Mes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1616	1765	
==>sg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Mes <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2040	2132	
==>---------------------------
## adding children 

method add_child ($self: Tree $child) return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2040	2132	
==>---------------------------
## adding children 

method add_child ($self: Tree $child) return <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	936	1032	
==>rinted

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages to <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	936	1032	
==>rinted

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for printing simple log messages to <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1384	1497	
==>dural interface does the same thing within a single call, hiding the 
full complexity.

=head3 Procedural interfac <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1384	1497	
==>dural interface does the same thing within a single call, hiding the 
full complexity.

=head3 Procedural interfac <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3826	3915	
==>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3826	3915	
==>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3872	3989	
==>"Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (St <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3872	3989	
==>"Host: $h",
    "User-Agent: lwp-trivial-pugs/$VERSION",
    "Connection: close",
    $CRLF;
};

sub _send_request (St <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9445	9578	
==>} ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $pr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9445	9578	
==>} ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_create_tb_person
        = $conn.compile_routine( $pr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14896	14989	
==>ensity($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" sem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14896	14989	
==>ensity($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" sem <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2949	3072	
==>n $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object repre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2949	3072	
==>n $.end   if $x > $.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object repre <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	30	125	
==>se warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestB <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	30	125	
==>se warnings;

use Perl6::MetaModel;
use Carp 'confess';

require "lib/TestBuilder.pm";

$::TestB <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2289	2409	
==>lete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2289	2409	
==>lete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_conten <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	478	584	
==>FILE_EXISTS, store => \$file },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_erro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2417	2510	
==>ld.pl

=head1 DESCRIPTION

The C<v6-pugs> module is a front-end to the experimental Perl6-to-P <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	97	205	
==>Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time::Zone $.tz;

our $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4019	4122	
==>::Skip' => class 'TestBuilder::Test::Skip' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19204	19327	
==>-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15625	15748	
==>-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32366	32473	
==>n the future they may alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32366	32473	
==>n the future they may alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11013	11123	
==>ode =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11163	11273	
==>ode =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9824	9937	
==>ime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9818	9931	
==>ime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6342	6478	
==>especced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6342	6478	
==>especced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39718	39815	
==>tion.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the term <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39718	39815	
==>tion.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the term <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18584	18675	
==>rt_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18584	18675	
==>rt_as_hash() returns a Perl hash ref whose key list
('node_type', 'attributes', 'child_nodes <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7169	7290	
==>=> chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7169	7290	
==>=> chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472),
    "real"     => chr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22724	22834	
==>(${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19145	19255	
==>(${&Rx} =~ m{ \G ($nest) \} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7708	7816	
==>) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive is rea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7708	7816	
==>) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' directive is rea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26849	26941	
==>s method installs all the flags and handlers.  F<Regexp::Parser> does
this automatically, but <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3507	3636	
==>l $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3507	3636	
==>l $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An object representing an ordered set of spans.

= S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4668	4765	
==>ed as a string, the match object returns the stringified version
of the result object (usually the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4668	4765	
==>ed as a string, the match object returns the stringified version
of the result object (usually the <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2533	2655	
==>, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1084	1201	
==>tr is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1084	1201	
==>tr is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_b <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3260	3386	
==>path}", $self
        );
    }

    my @exts = @{$self->{extensions}};
    unless ( @exts ) {
        my $admin = $self->{admin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	719	817	
==>system (compiler + interpreter or equivalent).

=head1 SYNOPSIS

    use Blondie::Backend::Foo; # i <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1405	1525	
==>d)/) {
        print "Greetings, $1!";
    }

    no re::override;
    # back to normal regexes

=head1 DESCRIPTION

This <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9924	10086	
==>->new($x-1),
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->digest for grep { $prog->get( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11333	11435	
==>t given that they are still a
somewhat experimental feature in Pugs, it is suggested you don't try anyt <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11391	11493	
==>t given that they are still a
somewhat experimental feature in Pugs, it is suggested you don't try anyt <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2188	2327	
==>ent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2188	2327	
==>ent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave accent
    "aring"    => 'å',  # sma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9685	9823	
==>on' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9685	9823	
==>on' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6656	6778	
==>_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6656	6778	
==>_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scalar_data_type_value', { 'value' => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9647	9762	
==>l insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9647	9762	
==>l insert a record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4875	4981	
==>::Grammar::Category->new( 
    name => 'rxinfix',
    operand => 'rxatom',
    # XXX - default assoc, defau <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9116	9210	
==>) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2941	3035	
==>) };
push @statements, sub { Grammar::Perl6->_print(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1631	1752	
==>s Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_conti <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1631	1752	
==>s Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_conti <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5145	5268	
==>S"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3160	3312	
==>[a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3160	3312	
==>[a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6347	6453	
==>url)

Get and print a document identified by a URL. The document is printed
to the selected default filehan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6347	6453	
==>url)

Get and print a document identified by a URL. The document is printed
to the selected default filehan <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12101	12190	
==>t of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accep <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12101	12190	
==>t of
scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accep <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	790	886	
==>:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	790	886	
==>:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Julius Caes <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3930	4030	
==>e used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<valu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3930	4030	
==>e used by Cipher API users are:

=over 4

=item C<new>

    $cipher_obj = Some::Cipher.new(:opt1<valu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	21434	21624	
==>param => ide("xs"),
							),
						),
						param => comb(
							fun => comb(
								fun => ide("add"),
								param => ide("n"),
							),
							param => val(1),
						),
					),
				), <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7343	7454	
==>= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7343	7454	
==>= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($start), :end($en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	875	990	
==>tr   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	875	990	
==>tr   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2218	2387	
==>)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2218	2387	
==>)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_begin eq 'for') {
                            %events<e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10001	10098	
==>ess. As new features are
added to Pugs, new test functions will be defined to facilitate the
testi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10059	10156	
==>ess. As new features are
added to Pugs, new test functions will be defined to facilitate the
testi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6091	6205	
==>:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5898	6006	
==>:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(x <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8678	8778	
==>PI or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8678	8778	
==>PI or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher::Block>

L<Digest>

Bruce S <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	54	169	
==>a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that str <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	54	169	
==>a function; use as_list
    * as_list
    * contains
    * include Span::Code in Span.pm API
    * document that str <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4106	4268	
==>f( $self->{saw_lone_not} && 
            ($self->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $res <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	162	269	
==>));

use constant SUBDIR_OF_ROOT     => sub { shift()->root->subdir(    shift() )  };
use constant SUBDIR_OF <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9275	9418	
==>ick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9275	9418	
==>ick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    curusername   => { $curusername }, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7360	7621	
==>t) = (
                bonus    => 0,
                max      => 0,
                ok       => 0,
                files    => 0,
                bad      => 0,
                good     => 0,
                tests    => scalar @tests,
                sub_skippe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	311	410	
==>ator->new->annotate($runtime, $prog)
	);
}

{
	package Blondie::TypeSafe::Annotation;
	use base qw/B <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1797	1931	
==>str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self - <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1797	1931	
==>str> = "Failed to open $file for writing" and return FALSE;
            }
            # for grep {$_ ne '_err_str' }, sort keys %self - <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	914	1037	
==>{...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $universal_set )`

Create a recurren <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	914	1037	
==>{...}, universe => $universal_set )`
- `new( closure_previous => sub {...}, universe => $universal_set )`

Create a recurren <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10389	10515	
==>ebug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10389	10515	
==>ebug "failed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15416	15509	
==>s in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Man <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15416	15509	
==>s in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third Man <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	866	975	
==>y the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	866	975	
==>y the Locale::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Lo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4016	4119	
==>pans must be ordered, and the spans must not intersect with each other.

- empty_set()

- universal_set( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4016	4119	
==>pans must be ordered, and the spans must not intersect with each other.

- empty_set()

- universal_set( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1199	1303	
==>bmethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1199	1303	
==>bmethod BUILD ($class: *%param ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4595	4714	
==>ts( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # X <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4595	4714	
==>ts( $set )`

This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # X <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7298	7487	
==>uantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7491	7680	
==>uantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'non_capturing_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{' <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2870	2978	
==>& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2870	2978	
==>& ($mask +>$ashift)) +< $ashift) +| ($b +> $bshift);
}

sub decode (Str $didget) {
#  say "decode Str ->" ~ $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3129	3256	
==>small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3129	3256	
==>small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9620	9752	
==>fic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9620	9752	
==>fic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconne <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	76	172	
==>use Perl6::MetaModel;
use Carp 'confess';
use Scalar::Util 'blessed';

$::TestBuilder = undef;

$ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21884	21977	
==>Relation role

=head1 VERSION

This document describes Relation::Example version 0.1.0.

It al <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8729	8844	
==>>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the enti <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8729	8844	
==>>

This event closes a modifier.

=back

=head2 Text Events

=over 4

=item I<verbatim>

This event handles the enti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16553	16648	
==>tisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16553	16648	
==>tisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> docum <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11375	11472	
==>r>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11375	11472	
==>r>

=item B<pack_params returns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	617	702	
==>-----------------------------------------------------------------------
## private met <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	617	702	
==>-----------------------------------------------------------------------
## private met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30248	30357	
==>invocant Relation::Example respectively.  This method will fail if
any members of C<$attrs> do not match attri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	950	1095	
==>$HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	950	1095	
==>$HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25647	25751	
==>lders of
Rosetta can sell you an alternate, limited license that allows you to link
Rosetta with non-free <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25647	25751	
==>lders of
Rosetta can sell you an alternate, limited license that allows you to link
Rosetta with non-free <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1668	1793	
==>r $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1668	1793	
==>r $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server when we haven't seen traffic for <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1757	1858	
==>thod contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1757	1858	
==>thod contains ($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5962	6078	
==>ymbols:    @symbols[]";

        dbg "# Statements: "; my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1759	1862	
==>b path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1759	1862	
==>b path returns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1148	1259	
==>dth();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.par <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1148	1259	
==>dth();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.par <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	22	125	
==>nction composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code & <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	22	125	
==>nction composition
multi *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code & <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12621	12719	
==>odule deals with encoding and decoding of strings with HTML
character entities.  The module provide <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12621	12719	
==>odule deals with encoding and decoding of strings with HTML
character entities.  The module provide <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21242	21341	
==>s installed
themselves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21242	21341	
==>s installed
themselves. So you don't need to make the compiler modules be
prerequisites.

=head1 SEE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18800	18932	
==>->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15221	15353	
==>->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	23	127	
==>rom src/Pugs/Types.hs
does Eq;
does Ord;
does Typeable;

# which is better, inheritance or a junctive typ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3713	3806	
==>se <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile(<<'RULE')-> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	164	299	
==>inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one package';

my %indexed = map { $_->{package} => $_ } LoadFile( $Rep <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3780	3898	
==>:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3780	3898	
==>:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859-1' {
            $decoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8060	8154	
==>{$index->{_files}} : ());
    my $template = HTML::Template->new(filename => 'util/catalog_tmpl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5539	5649	
==>nsert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5539	5649	
==>nsert(normalize $event<object>);
        debug "Joined channel \"$event<object>\".";
      }

      %!channels{ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11993	12115	
==>urn for @pfiles; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pfiles) {
        if(-d "$parro <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6087	6182	
==>.f.($x)}


sub rx_common_($hook,%mods0,$pat0,$qo,$qc) is builtin is safe {
    state(%modifiers_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6239	6360	
==>& $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6239	6360	
==>& $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object representing a single span, with a simple functi <==
2	/Users/nnunley/pugs/util/package-osx.pl	2205	2323	
==>ary/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2JS /Library/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2282	2377	
==>sion
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2282	2377	
==>sion
class Perl::Compiler::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	440	534	
==>ethod create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testpla <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	440	534	
==>ethod create ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testpla <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6270	6425	
==>ts_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6328	6483	
==>ts_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5229	5334	
==>DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5229	5334	
==>DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13130	13228	
==>section($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13130	13228	
==>section($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1542	1655	
==>@rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # cu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1542	1655	
==>@rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # cu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4379	4483	
==>5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4228	4329	
==>5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6689	6855	
==>);
    my $cmd  = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6177	6342	
==>);
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	500	646	
==>) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	500	646	
==>) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PIL::PILNi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	42	159	
==>has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $! <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	42	159	
==>has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $! <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27868	27984	
==>", ":t (length_and_first ['foo'], length_and_first [1])");
is(t($map), "∀α. ∀β. (α → β) → list α → lis <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4636	4760	
==>pos);
    $pos++;
    $initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0; }
    elsi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2111	2207	
==>alistic Pugs Live CD.
It fetches kernel and GRUB from a public server (which can be specified bel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20542	20649	
==>f preference.  When you
open a program, it will search for language files specific to the program
in the ord <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20542	20649	
==>f preference.  When you
open a program, it will search for language files specific to the program
in the ord <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3571	3690	
==>e -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3571	3690	
==>e -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3595	3716	
==>m
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3595	3716	
==>m
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_request (Str $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1674	1821	
==>th Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1674	1821	
==>th Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gram <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18908	19006	
==>document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18908	19006	
==>document => $document, *%{$original_node.export_as_hash()} );

Or, to demonstrate the use of a pers <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	242	350	
==>ee.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	242	350	
==>ee.
#
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
}

sub copy <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4453	4552	
==>T METHODS

The following methods are available for Date objects:

- `year()`

Returns the year for t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4453	4552	
==>T METHODS

The following methods are available for Date objects:

- `year()`

Returns the year for t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33659	33754	
==>e aforementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a gen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38209	38304	
==>e aforementioned.

=item C<difference (Relation $other!) returns Relation>

This method is a gen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	991	1108	
==>oping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	991	1108	
==>oping the server when we haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3271	3436	
==>ft( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    m <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3271	3436	
==>ft( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24035	24131	
==>mple bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24035	24131	
==>mple bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3717	3836	
==>ethod, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3717	3836	
==>ethod, Str $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CR <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9505	9623	
==>d mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $da <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9505	9623	
==>d mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2044	2171	
==>ource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inco <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2184	2311	
==>ource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inco <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2214	2319	
==>CRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do not have o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2214	2319	
==>CRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do not have o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2042	2155	
==>f (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2042	2155	
==>f (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015?\012/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13064	13160	
==>re each decoded
separately and the same number of strings are returned.

If called in void contex <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13064	13160	
==>re each decoded
separately and the same number of strings are returned.

If called in void contex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	961	1059	
==>stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the pac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	961	1059	
==>stash
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the pac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6613	6762	
==>if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6613	6762	
==>if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2693	2830	
==>f ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2693	2830	
==>f ( $cmp < 0 ||
             ( $cmp == 0 && $.end_is_open && $span.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9356	9486	
==>ry_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9344	9474	
==>ry_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18324	18431	
==>IVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18324	18431	
==>IVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21144	21262	
==>_lookup('$mn','$name')
    #END
    #die "p6_var: bug: $@" if $@;
    #$ret;
    my $look = "${pkg}::p6__lookup";
    n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3518	3626	
==>we need version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2561	2665	
==>we need version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2058	2174	
==>= (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2058	2174	
==>= (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11443	11560	
==>ion of the new node.

=head2 Named Character Support

Perl's regex engine doesn't see \N{NAME} escapes -- they get int <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	158	272	
==>base 'symbol';

sub new {
    my ($class, $name, $type) = @_;
    (defined $name && $name =~ /^[\$\@\%\&][\.\:][a-z <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17608	17725	
==>s {  # see 11.10
      <BitwiseXORExpressionNoIn>
    | <BitwiseORExpressionNoIn> <'|'> <BitwiseXORExpressionNoIn>
}
r <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	122	223	
==>-
## Mini Meta-Model with explicit EigenClasses
## --------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	99	198	
==>------------------------
## Mini Meta-Model with explicit EigenClasses
## -------------------------- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9522	9627	
==>d("details_"  + id),
          expander = document.getElementById("expander_" + id);
      if(elem.classNa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10088	10186	
==>erl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, en <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10088	10186	
==>erl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.from_range( start => 10, en <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2754	2854	
==>n be removed by XORing them together; you might not be able to derive the 
plaintext from the result, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2754	2854	
==>n be removed by XORing them together; you might not be able to derive the 
plaintext from the result, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23783	23927	
==>"$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20204	20348	
==>"$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	374	490	
==>ass, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	374	490	
==>ass, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$_[0]}->{from}} }
sub to    { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15076	15180	
==>operation, the program (or a package it uses)
will need to display a message to the user, or generate a m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15076	15180	
==>operation, the program (or a package it uses)
will need to display a message to the user, or generate a m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1603	1699	
==>$self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1743	1839	
==>$self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratchet::emit( 
            $self->{grammar}, $self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10724	10821	
==>a reference to an array
of strings for a multi-valued field. If the $value is undefined or not
giv <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10724	10821	
==>a reference to an array
of strings for a multi-valued field. If the $value is undefined or not
giv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2065	2206	
==>-1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\C[A;B] in character class") if @names > 1;
        return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1022	1131	
==>- see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TOD <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1022	1131	
==>- see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'..'z'
#      - add tests
# TOD <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	922	1016	
==>format specified on the command line
	$dumper = $format{$Pugs::Utils::Interface::format};

	# l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24278	24388	
==>s, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28830	28940	
==>s, then
C<$body> may be an Set with a single member that is an empty Mapping.

=back

A Relation object has the <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10243	10338	
==>t ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10978	11073	
==>t ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	315	472	
==>tion',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebD <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	315	472	
==>tion',
        204 => 'No Content',
        205 => 'Reset Content',
        206 => 'Partial Content',
        207 => 'Multi-Status',                    # WebD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	370	519	
==>uoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	370	519	
==>uoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4474	4594	
==>r 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4474	4594	
==>r 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n { <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1781	1917	
==>t(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1781	1917	
==>t(do given .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	875	1080	
==>ltime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi sub <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	875	1080	
==>ltime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2650	2889	
==>t;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2650	2889	
==>t;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11485	11584	
==>re_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11543	11642	
==>re_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will co <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2350	2446	
==>tion which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first elemen <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2350	2446	
==>tion which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first elemen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1807	2223	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1807	2223	
==>ect:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27120	27239	
==>Text::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27120	27239	
==>Text::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_EXIST',
        msg_vars => {
            'GIVEN_TABLE_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	226	365	
==>ur $TRUE  = bless \(my $t = 1) => __PACKAGE__;
our $FALSE = bless \(my $f = 0) => __PACKAGE__;

sub new {
    my (undef, $value) = @_;
    ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20458	20562	
==>al form" in
parsing technology).  Each node is an opcode plus a "next" pointer,
possibly plus an operand. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2808	2966	
==>*)$/s;

    return;

};

sub p6ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2701	2851	
==>*)$/s;
    return;
};
sub p6ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9003	9123	
==>9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapp <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9003	9123	
==>9824),
    "clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10241	10336	
==>t, such as that mandatory
constructor arguments are provided and that they are of the correct
co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10241	10336	
==>t, such as that mandatory
constructor arguments are provided and that they are of the correct
co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4777	4875	
==>r Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4917	5015	
==>r Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3107	3239	
==>arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3107	3239	
==>arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	156	261	
==>package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	156	261	
==>package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:pkg_meta' => (
	reader   => '_ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2208	2308	
==>s are typically 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> w <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2208	2308	
==>s are typically 
capitalized, most "autotags" will be too.

When activated, the special tag C<:all> w <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7645	7765	
==>elf->_restore_PERL5LIB();

    return %results;
}


eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
    *_wait <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1199	1313	
==>sion, @args);

    my $pwd = cwd();

    print "*** Building dependencies.  Please wait...\n\n";

    # XXX - inste <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40057	40164	
==>s part of the Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40057	40164	
==>s part of the Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
F <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3999	4113	
==>e Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3999	4113	
==>e Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_names;
        # Array of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16815	17006	
==>=> sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13236	13427	
==>=> sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6897	6989	
==>iltered_content = $class->pmc_process($real_content);
        $class->$post_process($filtered <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6897	6989	
==>iltered_content = $class->pmc_process($real_content);
        $class->$post_process($filtered <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15244	15342	
==>that there
should be no ambiguity when trying to invoke or implement it, and so an
application writ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15244	15342	
==>that there
should be no ambiguity when trying to invoke or implement it, and so an
application writ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13118	13243	
==>POS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6593	6718	
==>POS -= length $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->f <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	441	549	
==>($self, Perl::Param $other) {
    ...
}

# maybe something like  this?
type Perl::Params Array of Perl::Para <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29079	29178	
==>insert()

Inserts this object into the tree.  It returns a value that says whether
or not it ended u <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1648	1752	
==>turn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersection ($self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1648	1752	
==>turn $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersection ($self <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2705	2805	
==>) . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2705	2805	
==>) . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile(q(
    < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	162	275	
==>ssion;
use Pugs::Grammar::Pod;

# TODO - redefine <ws> to test Pod.pm after each \n

sub parse {
    my $class = s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30542	30648	
==>ements to 
C<< <bug-test-harness >> at C<< rt.cpan.org> >>.

=head1 AUTHORS

Either Tim Bunce or Andreas Ko <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3139	3236	
==>rammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3332	3429	
==>rammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21088	21205	
==>item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "pass <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21088	21205	
==>item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$bot.join(channel =E<gt> "#chan", key =E<gt> "pass <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	803	959	
==>'$x'),
						App(
							Sym('&infix:<+>'),
							Sym('$x'),
							Val(2),	
						),
					),
				),
			),
			Val(2),
		),
		result => 4,
		name => "user su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	153	265	
==>ion

use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

sub alte <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1073	1166	
==>h_sep} . $ENV{PATH};

$ENV{HARNESS_PERL}  = "./pugs $optional_args";
$ENV{HARNESS_PERL}  = "$^ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12891	12996	
==>last element in the recurrence.

Returns positive infinite if the recurrence is infinite.
Returns negative <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12891	12996	
==>last element in the recurrence.

Returns positive infinite if the recurrence is infinite.
Returns negative <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5021	5190	
==>ethod get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5021	5190	
==>ethod get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22577	22674	
==>cket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22577	22674	
==>cket usually stays connected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1716	1843	
==>Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1716	1843	
==>Supported',
        507 => 'Insufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3865	3957	
==>-------------------------------------------------------------------------
## removing childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3865	3957	
==>-------------------------------------------------------------------------
## removing childre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28530	28656	
==>nts, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28809	28935	
==>nts, \&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	585	691	
==>od in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing sou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	585	691	
==>od in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while parsing sou <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	221	351	
==>::dir( 'src', $_ );
    
    my $src = JIB::Source->new( dir => $dir ) 
        or die "Could not create JIB::Source object from '$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3907	4042	
==>e'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4100	4235	
==>e'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        ta <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3796	3909	
==>tilde\{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /g <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	223	338	
==>M_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealB <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	223	338	
==>M_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealB <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16364	16467	
==>_in($.else) = { generic($.then) }
cond: generic($$) = { generic($.else) }

cond: type($$) = {
	types::un <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	276	420	
==>e, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	276	420	
==>e, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $s <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1731	1853	
==>y#
  [ 0, @commits_till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9526	9620	
==>Rosetta::Model does not declare any subroutines or export such.

The usual way that Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9526	9620	
==>Rosetta::Model does not declare any subroutines or export such.

The usual way that Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7985	8083	
==>of spans.

The problem this class solves is when you need do perform "set" operations on 
Span obje <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7985	8083	
==>of spans.

The problem this class solves is when you need do perform "set" operations on 
Span obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	338	447	
==>RPe_BADFLG, $plus ? "" : "-", "g", $plus ? "" : "don't ", "g");
    return 0x0;
  });
  $self->add_flag('c' => <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	908	1009	
==>ure enough to bear
# our weight, to be a next step. And the current Regexp::Parser Object
# ast isnt r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8208	8349	
==>se()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8208	8349	
==>se()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2862	2984	
==>}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2862	2984	
==>}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	782	883	
==>idual bits.  Also note that the 
Cipher API operates at the byte level, not the character level, so di <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	782	883	
==>idual bits.  Also note that the 
Cipher API operates at the byte level, not the character level, so di <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1427	1524	
==>t.t - parrot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to ca <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1789	1952	
==>)->scalar_fetch;
            },
     
            'array_storeVal' => sub { # $idx -> $value -> ()
                my $self = shift;
                my $idx = shift <==
2	/Users/nnunley/pugs/util/package-osx.pl	11703	11811	
==>, "$dest$files[-1]";
    print "Made $dest$files[-1]\n";
}

sub chown_all {
    my ($dest) = @_;
    system(" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40176	40275	
==>Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40176	40275	
==>Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::KeyedText t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11308	11433	
==>H' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11308	11433	
==>H' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	930	1030	
==>shift is specified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<decipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	930	1030	
==>shift is specified, you should also specify 
either C<< :mode<enciphering> >> or C<< :mode<decipherin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	792	900	
==>tosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transforming 
state table with e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	792	900	
==>tosystems.

Arcfour operates on whole bytes, XORing elements of a constantly-transforming 
state table with e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3607	3696	
==>losure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3791	3880	
==>losure-assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag : <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5275	5403	
==>or @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method curre <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5275	5403	
==>or @a {
        my $result = $_.previous( $x );
        return $result if $result != -Inf;
    }
    return -Inf;
}

method curre <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10093	10181	
==>t ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10828	10916	
==>t ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6007	6112	
==>eaders>
object, depending on when C<want> gets implemented. Currently, the headers
are returned as one lon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6007	6112	
==>eaders>
object, depending on when C<want> gets implemented. Currently, the headers
are returned as one lon <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6344	6458	
==>e g global c continue p pos
        once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13774	13879	
==>s_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is called with tw <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13774	13879	
==>s_header_field )

Apply a subroutine to each header field in turn.  The callback routine
is called with tw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7070	7181	
==>ode = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7082	7193	
==>ode = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" u <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2430	2528	
==>ns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.star <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2430	2528	
==>ns Bool   { return $.set.start_is_open }
method start_is_closed () returns Bool { return $.set.star <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7103	7227	
==>,
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPT <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7103	7227	
==>,
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= SYNOPSIS

...


= DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1073	1166	
==>Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1073	1166	
==>Compiler::PIL::Util::Type $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10669	10854	
==>0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10669	10854	
==>0;
        $chans          = set();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircnam <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1538	1631	
==>infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1538	1631	
==>infix:<∘> (Code &f, Code &g) >>

Function composition, think of Haskell's C<.>. There's also <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6377	6476	
==>readline' if grep /^-DPUGS_HAVE_READLINE$/, @_;
    push @pkgs, -package => 'plugins', -package => ' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13554	13645	
==>igit(_)) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdigit(D1),
  hexdigit(D2), hexdigit(D3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2124	2358	
==>a term
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10389	10495	
==>dations are performed
on demand at some time after the input has been set, and could potentially
never be p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10389	10495	
==>dations are performed
on demand at some time after the input has been set, and could potentially
never be p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7993	8095	
==>e Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `root <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7993	8095	
==>e Perl 5 File::Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `root <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8063	8174	
==>"    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8121	8232	
==>"    Actual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1691	1822	
==>or;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::Make <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2543	2674	
==>or;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($ExtUtils::Make <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3929	4079	
==>ol = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4122	4272	
==>ol = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1793	1906	
==>ap { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@data) or die $graph->error;
bin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2894	2998	
==>$.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2894	2998	
==>$.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month, $.day, $.year].join( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16079	16210	
==>ation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16079	16210	
==>ation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() { <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4145	4277	
==>d $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4145	4277	
==>d $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unh <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30287	30390	
==>dard C<map> operator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34839	34942	
==>dard C<map> operator. It returns a new Relation whose attributes
(provided in C<$heading>) may or may no <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18210	18305	
==>ard.

=head1 EXAMPLES

See F<examples/mini_harness.plx> for an example of use.

=head1 AUTHOR

M <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36083	36186	
==>mber>".  All combinations having the same Member Name are adjacent
to each other in the output; for exam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36083	36186	
==>mber>".  All combinations having the same Member Name are adjacent
to each other in the output; for exam <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1586	1734	
==>@a) is builtin is primitive {
    my $top = +@a -1;
    return undef if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31805	31900	
==>uantifiers).

=item neg

Whether this object is negated (like a look-ahead or a character class) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16421	16512	
==>en this
example would be reversed into something like C</(\w+(?<!\d))(\d+)/>.
The other diff <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2135	2268	
==>be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir}) };

    if($@) {
        chomp($@);
        error(qq[C <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	361	467	
==>nline_prelude_source => 0,
    precompile_prelude    => 1,
    precompile_modules    => [],
    ghc_heap_si <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3115	3231	
==>m_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.ne <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3115	3231	
==>m_single( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8137	8247	
==>ould not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most ca <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8137	8247	
==>ould not merely set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most ca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3393	3501	
==>de {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3393	3501	
==>de {

    # External packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2919	3048	
==>}    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2919	3048	
==>}    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10163	10267	
==>ining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10163	10267	
==>ining all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4291	4422	
==>x) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimizatio <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4291	4422	
==>x) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimizatio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24850	24944	
==>ware Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24850	24944	
==>ware Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Roset <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10511	10657	
==>rt... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10511	10657	
==>rt... ";
        try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	553	664	
==>ages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4031	4142	
==>ages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation ob <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21852	21959	
==>ain program, Locale::KeyedText can be given input that says what resource
files it should use and in what or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21852	21959	
==>ain program, Locale::KeyedText can be given input that says what resource
files it should use and in what or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5746	5850	
==>ue::Object $v) { JSX::true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) { NaN }
multi sub ToNumb <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1235	1345	
==>rn $FALSE;
    }
}

sub or : method {
    my ($self, $block) = @_;
    (blessed($block) && $block->isa('block') <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7475	7603	
==>} else {        
        error("Failed to 'chmod +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VERSIO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23576	23670	
==>Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23576	23670	
==>Migration>.

The Perl 6 module L<Rosetta::Validator> is bundled with Rosetta and can be
used to <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3525	3634	
==>erence: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3525	3634	
==>erence: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13447	13548	
==>rep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
dat <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13447	13548	
==>rep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" and
dat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19434	19530	
==>data manipulation statements but that the target relation
variables are system catalog relation v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19434	19530	
==>data manipulation statements but that the target relation
variables are system catalog relation v <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3363	3508	
==>{ $radians / (2*pi) * $base } # XXX - spec ambiguous
	default { fail "invalid trig function base: $base" }
    }
}

trig_func 'sin';
trig_func 'co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2086	2379	
==>fh, "$mode" . $file
                                        or error(
                                            "Could not open file '$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23120	23299	
==>ethod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42723	42901	
==>ethod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4638	4744	
==>.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4638	4744	
==>.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3618	3750	
==>ule_name};
        $name =~ s/::/-/g;
        $name;
    } if $values{module_name};

    if ( $values{name} =~ /::/ ) {
        my $n <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7139	7238	
==>tension_build;
    $ghc_flags .= " -fno-warn-name-shadowing ";
    $ghc_flags .= " -I../../src -i../ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	107	226	
==>}
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	107	226	
==>}
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	312	424	
==>tice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	312	424	
==>tice" order of HTTP message headers:
#    - General-Headers
#    - Request-Headers
#    - Response-Headers
#    - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8358	8509	
==>} 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8358	8509	
==>} 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        ret <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	438	580	
==>) {
            my ($p,$v)=split('=',$_);
            CookiesAdd($p,$v);
        }
    }
}

sub CookiesHeader() {
    my $header = '';
    for( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18189	18323	
==>}

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25082	25203	
==>e 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> <',}'>
    | < <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2051	2156	
==>(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if $@;
  return ($qr,$r_address);
}

use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6238	6329	
==>ow.

Documentation has been added and moved around. See
L<Regexp::Parser::Objects> for docum <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	386	507	
==>m::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	386	507	
==>m::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	538	655	
==>ile (<MODULE>) {
            next if /^\s*(?:#|$)/;
            $self->module_name($1) if /^\s*package\s+(\w[\w:]*)\s* <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6306	6414	
==>recision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6306	6414	
==>recision' => 9 } ]
    );
    my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17362	17488	
==>cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17362	17488	
==>cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	387	540	
==>nv must be a closure::env";
    # params is a hash whose keys are the names
    # of variables, and whose values are the 
    # expected types of those ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13609	13707	
==>TTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar context r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13609	13707	
==>TTP spec, and the
names are returned in the recommended "Good Practice" order.

In scalar context r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1409	1571	
==>FALSE) {
        $block->do();
        return $TRUE;
    }
    else {
        return $FALSE;
    }        
}

1;

__END__

=pod

=head1 NAME

bit - the core bit ty <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20189	20282	
==>de.pm, prefix:<-M> doesn't work. :(
multi prefix_M ($file) is builtin is primitive is unsafe { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	144	273	
==>namicScoping::Pad;
    use base qw/Blondie::Map/;
}

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3335	3454	
==>d_children(
                Tree.new(:node<Package>).add_children(
                    Tree.new(:node<Module>).add_child <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2342	2469	
==>sub {
        print STDERR "reduce\n" if $debug;
        my($var,$ops)=@_;
        my @args = splice(@$var,-2,2);
        my $op <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26635	26734	
==>UG>

If true, Test::Harness will print debugging information about itself as
it runs the tests.  Thi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2784	2894	
==>() + 1);
  }
  return $matchObj;
}

sub cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $posit <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9798	9892	
==>(_)), {!, fail}.
p5_charset_range_x(B) --> p5_charset_item(char(B)).
p5_charset_item(char(C)) - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5208	5349	
==>ple',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5208	5349	
==>ple',
        'depot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14414	14513	
==>)

Return the header fields as a formatted MIME header.  Since it
internally uses the C<scan> method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14414	14513	
==>)

Return the header fields as a formatted MIME header.  Since it
internally uses the C<scan> method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2751	2892	
==>ached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2968	3109	
==>ached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8121	8286	
==>ix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10297	10395	
==>the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10297	10395	
==>the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a list of `Span` objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6120	6310	
==>> 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6120	6310	
==>> 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31805	31904	
==>>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a generic binary relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36355	36454	
==>>.

=item C<union (Relation $other!) returns Relation>

This multi-method is a generic binary relati <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3160	3267	
==>et2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3160	3267	
==>et2_span, @intersect ).sort:{ $^a.compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30391	30488	
==>e member
large, with each set member being an an exclusive alternative for the rest
of the set. Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30391	30488	
==>e member
large, with each set member being an an exclusive alternative for the rest
of the set. Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2199	2302	
==>info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MAN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2199	2302	
==>info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MAN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8418	8556	
==>ode = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8125	8256	
==>ode = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::n <==
2	/Users/nnunley/pugs/util/package-osx.pl	8563	8672	
==>n3/Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($dest, %change_files) = @_;
    for my $orig (keys <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4229	4330	
==>uld_be}->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_arrow {
	my $self = shift;
	$self->{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14992	15140	
==>key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    qui <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14992	15140	
==>key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $channnel" },
    qui <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35099	35197	
==>r the changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35099	35197	
==>r the changes.

=back

A Translator object has these methods:

=over

=item C<export_as_hash()>

Th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2581	2678	
==>ther.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2581	2678	
==>ther.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11959	12069	
==>), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11959	12069	
==>), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1637	1755	
==>le::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1777	1895	
==>le::Perl5::Ratchet::emit( 
            $self->{grammar}, $self->{ast}{capture}, $self );
    }
    else {
        $self <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6826	6928	
==>sult1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7198	7300	
==>sult1 == (NaN|+0|-0|Inf|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8284	8396	
==>my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8284	8396	
==>my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.span.union( $span.spa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	786	907	
==>end::Perl::Builtins->cast(@_);
}

sub execute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3023	3137	
==>my $filename            = pack_smoke(%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	787	877	
==>lf = shift;
	$self->emitter_class->require || die $UNIVERSAL::require::ERROR;
	$self->emitt <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3565	3725	
==>_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < .5 {
                    $x_round = round_up_symm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1874	2011	
==>P
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	521	621	
==>his here for a consistent interface
sub to_num { shift }

# conversion to other native types
sub to_b <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2324	2442	
==>n Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2324	2442	
==>n Bool::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9206	9322	
==>ier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           emit_rule( $term, $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2934	3073	
==>6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2820	2955	
==>6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17011	17105	
==>odology
in an easily accessable manner, such that would not be possible if its
functionality wa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17011	17105	
==>odology
in an easily accessable manner, such that would not be possible if its
functionality wa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1200	1306	
==>d};
	    $invocant = $db_param;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1371	1514	
==>words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1371	1514	
==>words(*@words) is export {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16452	16585	
==>s a Prim
    } else {
        if ($builtin->isa("Thunk")) {
            $builtin = $self->reduce($builtin);
        }
        $val->se <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3988	4097	
==>{ LoadFile($SMOKERFILE) } ||
            eval { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	168	297	
==>rn '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anyw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	168	297	
==>rn '( ' . join( ' || ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

# 2 versions - match anyw <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse3.pm	65	168	
==>turns the Foo
# module object, see thread "What do use and require evaluate to?" on p6l
# started by Ing <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	21	122	
==>turns the Foo module object,
# see thread "What do use and require evaluate to?" on p6l started by Ing <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34173	34270	
==>ases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38723	38820	
==>ases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) returns Relation>

T <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2881	3019	
==>($vars)=($vars); \$__v__ = do{ ";
}
sub let_end {
  my $e = shift(@let_stack) || die "LET(){ }LET pairs didn't match up";
  my($vars,$tmpva <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17056	17158	
==>ming the main
application is written in Perl, it is this "Rosetta" file which provides
the glue between <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17056	17158	
==>ming the main
application is written in Perl, it is this "Rosetta" file which provides
the glue between <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36946	37049	
==>)
);

=pod

=cut


$::Class->send('add_attribute', (symbol->new('@:MRO')             => attribute->new(' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1176	1280	
==>type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native* <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	524	624	
==>= %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, sayin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	524	624	
==>= %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, sayin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	96	187	
==>005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	96	187	
==>005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13914	14027	
==>ng a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13914	14027	
==>ng a day with full precision:
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4801	4900	
==>PTION

This module is meant for people who want a simplified view of the
libwww-perl library.  It sh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4801	4900	
==>PTION

This module is meant for people who want a simplified view of the
libwww-perl library.  It sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6654	6799	
==>match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6654	6799	
==>match = $grammar->parse( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	18	118	
==>::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	18	118	
==>::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces...

#sub c <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9764	9893	
==>B, tainted or not.
    if ( $taint || $self->{_is_macos} ) {
        my @inc = $self->_filtered_INC;
        push @derived_switche <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5566	5688	
==>ove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5566	5688	
==>ove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && return $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22497	22620	
==>p::Parser::ifmatch;

  sub new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9988	10084	
==>xport { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9988	10084	
==>xport { unless($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A m <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7010	7126	
==>ed: $?" unless -e "pugs$Config{_exe}";
}

sub write_buildinfo { 
    my $version = shift;
    my $ghc = shift;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7783	7915	
==>Regexp::Parser::prop;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $sel <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7057	7160	
==>the various types depends on their data...
# this is why this code is so big.

# in a language with nati <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1050	1232	
==>e { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.qu <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1050	1232	
==>e { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $node, $dir, $abs ) {
                    $.qu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8	107	
==>mon/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warning <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8	107	
==>mon/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warning <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9028	9146	
==>t_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9086	9204	
==>t_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9085	9183	
==>P Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9085	9183	
==>P Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Conte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	931	1092	
==>'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	931	1092	
==>'User-Agent'     => 'HTTP_USER_AGENT',
        )
        
        for %pairs.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!hea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1864	1956	
==>bes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1864	1956	
==>bes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	905	1030	
==>curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	905	1030	
==>curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int   $.last_autoping;
  h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	395	546	
==>capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "crea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1122	1269	
==>capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "crea <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	956	1066	
==>e current list.
sub makemaker_append {
    my $self = shift;
    my $name = shift;
    my $args = $self->makema <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7950	8053	
==>arser::prop;
}
{
  package Regexp::Parser::clump;
}
{
  # |
  package Regexp::Parser::branch;
  sub emit <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	47	153	
==>, `data Exp'

# this one doesn't translate so trivially.

type Noop;

# hmm, there's a lot.  And we probabl <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	612	709	
==>$g->add_edge($key, $func) if($funcs{$key} =~ $func)
	}
}

if ($Conf{leaves}) {
    print "$_\n" fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24811	25026	
==>e->get('?@superclasses')
                            ->apply(
                              block->new($e, sub {
                                  my $e = shift;
                                  $e->get('$_')->send( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25068	25190	
==>Prefix {  # see 15.10.1
      <'*'>
    | <'+'>
    | <'?'>
    | <'{'> <DecimalDigits> <'}'>
    | <'{'> <DecimalDigits> < <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21719	21824	
==>2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21719	21824	
==>2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason =E<gt>
"...")>

Kicks somebody from a chan <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1570	1813	
==>_DIR->($dir);
                                    local $Carp::CarpLevel = 
                                            $Carp::CarpLevel+2;                                    
                                    error(q[Dir '$dir' does not exis <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	582	683	
==>ethod in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while par <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	582	683	
==>ethod in case it needs to be overridden.
sub pmc_caller_stack_frame { 0 };

# This is called while par <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	265	361	
==>31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLength <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	265	361	
==>31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYearMonthLength <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6963	7100	
==>{  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctuator {  # see 7.7
      <'{'>
    | <'}'>
    | <'('>
    | <')'>
    | <'['>
    | <']'> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7755	7896	
==>)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $capture       - capture then entire match. For ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7493	7630	
==>)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $capture       - capture then entire match. For ex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5475	5567	
==>e($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5475	5567	
==>e($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<object <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	956	1081	
==>$name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	956	1081	
==>$name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vim: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1888	2090	
==>= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1888	2090	
==>= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11884	11989	
==>ecode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11884	11989	
==>ecode strings with HTML entities

=head1 SYNOPSIS

 use HTML::Entities;

 $a = "V&aring;re norske tegn b&o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5719	5832	
==>on intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        retur <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5719	5832	
==>on intact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9099	9196	
==>his file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9099	9196	
==>his file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documen <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7041	7158	
==>prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7600	7717	
==>prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14251	14362	
==>ion of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14251	14362	
==>ion of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7288	7425	
==>lf: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7288	7425	
==>lf: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1650	1755	
==>ckages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # At <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1650	1755	
==>ckages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # At <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10846	10946	
==>ld will remain unchanged.

The old value (or values) of the last of the header fields is returned.
If <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10846	10946	
==>ld will remain unchanged.

The old value (or values) of the last of the header fields is returned.
If <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5062	5178	
==>y $a_ext (grep /\.a$/, @_) {
        # Do some very sneaky things -- linking other .a with us!
        my $basename = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	840	931	
==>*{\''.$rulename.'\'} = '.$rule->perl5().";\n";
    print "*{\'$rulename\'} = Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5059	5215	
==>_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5059	5215	
==>_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	167	282	
==>:Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	167	282	
==>:Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39978	40082	
==>haracter
that was unexpectedly escaped, and a string.  If the warning is called
from a character class, p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9998	10163	
==>lti method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9998	10163	
==>lti method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19274	19369	
==>ormity.

=item Documentation

Fixed some poor wording, and documented the problem with using F<S <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	69	169	
==>GE__;

__END__

=pod

=head1 NAME

Blondie - Blondie is a dumb intermediate language and a compiler c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5010	5107	
==>fix}/$self->{path}", $self
    ) unless $self->{extensions};

    foreach my $obj (@{$self->{exten <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4358	4451	
==>nonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJE <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4358	4451	
==>nonym for `Date.new('tomorrow')`

- `yesterday()`

Synonym for `Date.new('yesterday')`

= OBJE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5583	5684	
==>ug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5583	5684	
==>ug "Joined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4092	4217	
==>$_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4232	4357	
==>$_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1542	1630	
==>alternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1542	1630	
==>alternate way of creating Texts with content
 $para->add_daughter(Perldoc::DOM::Text->new <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5317	5419	
==>osetta Interface root, whose attributes will hold all of
    # the other data structures used by the Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5317	5419	
==>osetta Interface root, whose attributes will hold all of
    # the other data structures used by the Ro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8839	8977	
==>eturn;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8839	8977	
==>eturn;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cooki <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3349	3467	
==>h";

    unshift @INC, $self->{prefix}
        unless grep { $_ eq $self->{prefix} } @INC;

    foreach my $rv ($self-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	479	582	
==>:PseudoValue;
class JSX::InternalValue::Reference  is JSX::InternalValue;
class JSX::InternalValue::List <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8772	8891	
==>s = $I0 + len
    mpos = pos
    .return (mob)
 err_noclose:
    parse_error(mob, pos, "Missing closing braces for closu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8012	8146	
==>{
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8012	8146	
==>{
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2880	3005	
==>re qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2880	3005	
==>re qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ref = ref $tree;
    if ( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37108	37229	
==>tom >;
      return $S->object(and => 1);
    });

    # X!Y = match Y unless match X at the same place
    $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3288	3447	
==>, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3288	3447	
==>, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13342	13476	
==>' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13336	13470	
==>' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolat <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1670	1770	
==>kbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1670	1770	
==>kbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you want to see how Perl 6 modules <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1546	1638	
==>epth  = $parent.depth() + 1;
}

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1546	1638	
==>epth  = $parent.depth() + 1;
}

## ---------------------------------------------------------- <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4961	5059	
==>RR <<".";
usage: $0 --inline src/perl6/Prelude.pm [options]
       $0 --precompile src/perl6/Prelud <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1805	1949	
==>OUT;
    print $EOUT $e;
    close $EOUT;
}
else {
    my $minus_o = '';
    if ($Config{cc} eq 'gcc')
     {
      $minus_o = "-o $exena <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12757	12850	
==>egative infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12757	12850	
==>egative infinite if the recurrence is infinite.
Returns positive infinite if the recurrence is <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7505	7610	
==>elf.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7505	7610	
==>elf.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Code $func) returns Void {
    f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6401	6506	
==>he flag before returning.

- this can also be used to do fail() and assert(), and 'no-backtracking checkpo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6195	6299	
==>he flag before returning.
- this can also be used to do fail() and assert(), and 'no-backtracking checkpo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	125	271	
==>tr  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	125	271	
==>tr  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is export { '/dev/null' }
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2820	2923	
==>le quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3067	3170	
==>le quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	448	546	
==>$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	448	546	
==>$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify($p, $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15812	15926	
==>tion to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15870	15984	
==>tion to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information about the TAP p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7454	7560	
==>aches do an initial pass over the regex to make sure it
is well-formed -- any warnings or errors will be de <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	62	160	
==>e starting "data Param")

has Bool $isInvocant;
has Bool $isOptional;
has Bool $isNamed;
has Bool $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	534	769	
==>when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	534	769	
==>when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8627	8734	
==>ug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8627	8734	
==>ug "Changed nick to \"$event<object>\".";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newn <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3175	3293	
==>_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use T <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3175	3293	
==>_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8489	8669	
==>ose;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8489	8669	
==>ose;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($file, :r) or return;
        
        # XXX ensure record seperator == "\n" -- how? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13156	13271	
==>efixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13156	13271	
==>efixed with C<Content-> falls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23196	23291	
==>bot.raw("...")>

Sends a command to the server. The command is not modified by this module,
asid <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23196	23291	
==>bot.raw("...")>

Sends a command to the server. The command is not modified by this module,
asid <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9215	9306	
==>_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3040	3131	
==>_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2433	2533	
==>/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$mo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2433	2533	
==>/;
    $module_name =~ s/[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$mo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2229	2335	
==>ctional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of these function <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2229	2335	
==>ctional interface is perhaps the easiest one that allows 
for continuous ciphering.

Both of these function <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3374	3477	
==>ted features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3558	3661	
==>ted features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unicode-class> <+unicod <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1160	1267	
==>eturns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_clo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1160	1267	
==>eturns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_clo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5027	5135	
==>_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5249	5357	
==>_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variab <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	162	270	
==>runtime/;;

sub import {
	my $class = shift;
	close STDERR;

	foreach my $backend (@_) {
		my $m = "Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1210	1333	
==>is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1210	1333	
==>is copy ) {
    # TODO - error message on ignored parameters
    my ( $start, $end );
    my bool $start_is_open;
    my boo <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3834	3940	
==>tion is useful on it's own

    has @.args;
    method new (*@.args) { super }
}

class Class::Events::Even <==
2	/Users/nnunley/pugs/util/package-osx.pl	9601	9725	
==>for my $sub_dir (grep -d, <$dir/*>) {
        remove_svn("$sub_dir");
    }
}    
    
sub copy_files {
    my ($dest, @files <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	45	154	
==>face;

#options
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	870	974	
==>n nil->new();
}

1;

__END__

=pod

=head1 NAME

reference - the core reference type

=head1 METHODS

=ov <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1148	1251	
==>current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1148	1251	
==>current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	38	170	
==>rict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	38	170	
==>rict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1297	1475	
==>(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1297	1475	
==>(@!params)) {
                @!params.push($key);
            }
        }
    
        return Bool::True;
    }
    
    method parse_keywords (Str $data) {
        $data = uri_u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17603	17705	
==>d/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error condition b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17603	17705	
==>d/or SQL.

=head2 How It Works

Modern programs or database systems often refer to an error condition b <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	344	486	
==>erate_attribute )
                 },
    };

sub generate_p6mm {
    my $self = shift;

    my $schema = $self->schema;

    for my $class ( $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7536	7669	
==>lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7536	7669	
==>lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	675	791	
==>emainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($ext <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	675	791	
==>emainder,
    } );
}

sub literal {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($ext <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4691	4803	
==>roclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4749	4861	
==>roclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        &Test::ok.goto( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4618	4745	
==>d return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # X <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4618	4745	
==>d return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # X <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	183	281	
==>nstant PGE_OPTABLE_POSTFIX => 2;
use constant PGE_OPTABLE_CLOSE => 3;
use constant PGE_OPTABLE_PREF <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	842	953	
==>s $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	809	920	
==>s $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_di <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	346	446	
==>pYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 30 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	346	446	
==>pYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 30 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9269	9421	
==>cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9269	9421	
==>cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	180	314	
==>ernal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	180	314	
==>ernal methods - not in spec

sub no_match { 
    Pugs::Runtime::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __an <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4209	4305	
==>side of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4209	4305	
==>side of a section, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{ <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	424	565	
==>n( Int ?$year, Int ?$month, Int ?$day,
                    Int ?$hour, Int ?$minute, Int|Real ?$second #)
                     )
    returns D <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15125	15237	
==>odes that do not have this attribute set are considered
"root Nodes" and are listed in their Document's Root Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15125	15237	
==>odes that do not have this attribute set are considered
"root Nodes" and are listed in their Document's Root Node <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1040	1142	
==>e different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DO <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1040	1142	
==>e different, like W3C DOM - don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DO <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3	101	
==>usr/bin/perl

# Generate .html from .t and test results 
# Generate cross-referenced html for p6 de <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15929	16024	
==>B0,B1,E0,E1).
rm(condition(Rk,Ra,Rb),F0,F1,B0,B1,E0,E1) :- !, 
  rm(Rk,F0,_,B0,_,E0,_)
  -> rm(R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	479	586	
==>+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	479	586	
==>+) { use v5; return "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6617	6718	
==>t Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6617	6718	
==>t Arguments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1813	1936	
==>= '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1813	1936	
==>= '';
    @!parts = ();
    return;
}

method protocol (Str $protocol?) is rw {
    return Proxy.new(
        FETCH => { $!p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18988	19104	
==>BROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    B <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18988	19104	
==>BROUTINE - A top level (not nested) subroutine. Ending '}' must be
        on its own line in the first column.
    B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11714	11818	
==>cally = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/2 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11714	11818	
==>cally = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9415	9518	
==>ct if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9415	9518	
==>ct if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $. <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1889	1985	
==>$args{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd::abs_path($FindBin::Bin);

    return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1237	1369	
==>/message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1237	1369	
==>/message // HTTP::Status::status_message($code) // "?";
        "$code $mess";
    }
    
    method base () {
        my $base = ./h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3476	3576	
==>sse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3476	3576	
==>sse Vincent

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	549	653	
==>nd - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	549	653	
==>nd - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13737	13883	
==>e->get('$self')->send('BUILDALL' => ($e->get('%params')));
                return $e->get('$self');                  
            }
        )
    ) <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	127	219	
==>int-max)))";
say "(overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foregr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5437	5547	
==>.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_de <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5437	5547	
==>.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	196	302	
==>::Str;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada

our %hash;

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10671	10773	
==>ation.

The $value argument may be a plain string or a reference to an array
of strings for a multi-val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10671	10773	
==>ation.

The $value argument may be a plain string or a reference to an array
of strings for a multi-val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6416	6536	
==>ing example in p5)

  my $matcher;   # must be declared outside of the block

  { package Pugs::Grammar::Rule;

      $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6200	6317	
==>ing example in p5)
  my $matcher;   # must be declared outside of the block
  { package Pugs::Grammar::Rule;
      $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3834	3942	
==>mper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3834	3942	
==>mper($_[2]);

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3326	3487	
==>t Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3790	3951	
==>t Dumper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1022	1138	
==>eturns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1022	1138	
==>eturns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5143	5317	
==>ss' ) {
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{st <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	31	129	
==>e::TestPrograms;
use base qw/Exporter/;

use strict;
use warnings;

use Blondie::Nodes;

use Test:: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17510	17606	
==>tf("Files=%d, Tests=%d, %s\n",
           $tot->{files}, $tot->{max}, timestr($tot->{bench}, 'nop <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	384	536	
==>handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	384	536	
==>handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HTTP::Query.new() };
    
    has @!keywo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12375	12489	
==>ine ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<discon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12375	12489	
==>ine ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<discon <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15650	15850	
==>ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15929	16129	
==>ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1042	1160	
==>not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1042	1160	
==>not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	765	893	
==>il,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	776	904	
==>il,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	675	788	
==>y.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	675	788	
==>y.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5562	5689	
==>nonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5562	5689	
==>nonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1010	1151	
==>lock> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1010	1151	
==>lock> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3016	3229	
==>Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Math - Mat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18810	18908	
==>describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pend <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20624	20721	
==>is that
the new (under development) enterprise-strength and Perl implemented
database server named <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20624	20721	
==>is that
the new (under development) enterprise-strength and Perl implemented
database server named <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1209	1355	
==>},
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1209	1355	
==>},
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	663	802	
==>)
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic::abs ( Num $x = CALLER::<$_> --> Num )
 {
     $x >= 0 ?? $x :: -$x;
 }

 multi  Num:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23510	23604	
==>this property and/or
same-named accessor method can be used to see if a Relation-doing object
c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28062	28156	
==>this property and/or
same-named accessor method can be used to see if a Relation-doing object
c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18359	18457	
==>heredocs can possibly confuse further parsing.

Next, the source module is divided into a shallow t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18359	18457	
==>heredocs can possibly confuse further parsing.

Next, the source module is divided into a shallow t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	251	378	
==>&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	251	378	
==>&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11	116	
==>/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11	116	
==>/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warnings;

use D <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	417	558	
==>ME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } i <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	417	558	
==>ME;

        # XXX: Insert VMS support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1102	1228	
==>LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1102	1228	
==>LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	462	576	
==>TestInit;

$VERSION = 1.01;

chdir 't' if -d 't';
@INC = '../lib';

# Don't interfere with the taintedness o <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	624	711	
==>ur $interpreter;
use overload '0+' => sub {Inline::Parrot::PMC::get_int($Inline::Parrot: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16968	17124	
==>y $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13389	13545	
==>y $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15750	15908	
==>$mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15750	15908	
==>$mode? {
      if defined $mode {
        enqueue "MODE $target $mode";
      } else {
        enqueue "MODE $target";
      }
    },
    invite => -> Str $cha <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1453	1557	
==>ype::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 'sub { $_[1] ' . (exists $p6p5{$_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4408	4504	
==>s> and divines whether they passed
or failed based on their output to STDOUT (details above).  It <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12068	12220	
==>header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12068	12220	
==>header_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instan <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13517	13608	
==>racter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13517	13608	
==>racter as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24601	24697	
==>are Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24601	24697	
==>are Foundation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	592	713	
==>til/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        ret <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	592	713	
==>til/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12824	12958	
==>o};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12824	12958	
==>o};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5082	5213	
==>ult = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simpl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5082	5213	
==>ult = $_.next( $x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simpl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8925	9043	
==><newline>

This event handles newlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE AL <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8925	9043	
==><newline>

This event handles newlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE AL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	116	202	
==>use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	116	202	
==>use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP::Cookies-0. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3619	3709	
==>tion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3803	3893	
==>tion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() :flag[ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	817	908	
==>------------------
# Regexps
# --------------------------------------------------



our $re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36707	36802	
==>und using the Translator object's Set and Member properties; if none
could be matched, this meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36707	36802	
==>und using the Translator object's Set and Member properties; if none
could be matched, this meth <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	175	289	
==>_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	175	289	
==>_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is export { +(%*ENV<SERVER_PORT>)  || 80          }
sub <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3123	3231	
==>I.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

Th <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3123	3231	
==>I.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

Th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1325	1421	
==>perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22869	22972	
==>ed viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approach over simil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22869	22972	
==>ed viewer.

=head2 Compared to Other Solutions

One of the main distinctions of this approach over simil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34191	34284	
==>is is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34191	34284	
==>is is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@member_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29057	29158	
==>he time.

=item $obj->insert()

Inserts this object into the tree.  It returns a value that says wheth <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3751	3863	
==>ildren, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## -- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3751	3863	
==>ildren, you are just inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## -- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	726	821	
==>r/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	726	821	
==>r/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be used to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30631	30728	
==>tes match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35182	35279	
==>tes match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2146	2272	
==>fault' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'T <==
2	/Users/nnunley/pugs/util/importgraph.pl	1155	1256	
==>e in $File::Find::name\n";
    return;
  }

  $modules{$module_name} = [\%imports, $exports];
}, 'src' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2152	2251	
==>um: ([\d.]+)/ and $smoke{pugs_version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	566	747	
==>aren = $2;
        $tail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $so <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	0	99	
==>class Perldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing o <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	0	99	
==>class Perldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing o <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3000	3105	
==>sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwi <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3000	3105	
==>sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwi <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3981	4110	
==>dispatch};

        $file = "$self->{path}/$1.pm";
        my $pkg = "$self->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2854	2988	
==>($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbat <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2854	2988	
==>($mod) { $fh.print($mod ~ "<") },
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11521	11655	
==>);
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11521	11655	
==>);
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connected) {
        $queu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3444	3607	
==>'1..0');
            exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$.output')->writ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3569	3701	
==>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | return <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3569	3701	
==>*
}

rule trait {
          is <identZZ>[\( <traitparam> \)]?
        | will <identZZ> <closure>
        | of <type>
        | return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	463	571	
==>te;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	463	571	
==>te;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRIPTION

C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	449	546	
==>$.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.e <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	449	546	
==>$.file;
    has Perl::Compiler::PIL::Util::Pos $.begin;
    has Perl::Compiler::PIL::Util::Pos $.e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	926	1040	
==>ied in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs::Compiler (or Analyzer?) gets it, e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	879	990	
==>ied in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs::Compiler (or Analyzer?) gets it, e <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3261	3370	
==>9 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Becaus <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3261	3370	
==>9 );
  say $date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Becaus <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3973	4053	
==>~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9A <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3973	4053	
==>~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9A <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4136	4236	
==>f not given.

The value for day can also be the string "last", in which case the
object returned repr <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4136	4236	
==>f not given.

The value for day can also be the string "last", in which case the
object returned repr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24545	24641	
==>ts.
All of their attributes are private, so you must use accessor methods.
Locale::KeyedText does <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24545	24641	
==>ts.
All of their attributes are private, so you must use accessor methods.
Locale::KeyedText does <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6612	6712	
==>I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basicall <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6612	6712	
==>I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basicall <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1303	1429	
==>regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_cur <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1303	1429	
==>regex ~= $escaping ?? "}" !! ")";
            --$in_curlies unless $escaping;
        }
        elsif ( $char eq ',' && $in_cur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2182	2295	
==>ad1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17856	17952	
==>ormation about the software being
used by the originating server program handling the request.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17856	17952	
==>ormation about the software being
used by the originating server program handling the request.

= <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7758	7878	
==>$temp2 = pop @termStack;
  if ( $temp2 )
  {
    $arity--;
    $$temp1[$arity] = $temp2;
    goto reduce_args;
  }
  redu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8075	8166	
==>turn value from another Object singleton/class method called by Foo');

is($Foo->singleton_t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28704	28799	
==>will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28704	28799	
==>will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can have <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8364	8494	
==>e ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8075	8198	
==>e ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1093	1209	
==>tch from where it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->coroutine();
  if ( $self->cor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5819	5925	
==>ar::Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3678	3778	
==>{
	my $class_that_should_be = shift;
	my $class = __PACKAGE__;
	my $self = $class->SUPER::new;

	$sel <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6477	6557	
==>s_infix_decl','\s*multi\s+(infix:<(.+?)>)\s+\([^\)]*\)\s+((?:is (?:looser|tighter <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2984	3123	
==>it_Stmt( traverse_ast ( $tree[1][0][1] ) );
    }	
    elsif $tree[0] eq '"PStmts"' {
        my %pad = $tree[1];  # keys: 
        dbg "# k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11147	11304	
==>[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11141	11298	
==>[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1246	1440	
==>el => {
                store => \$pool_rel,
            },
            index => {
                store => \$index
            },
            index_file => {
                store => \$index_fil <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3065	3192	
==>sion} ) {

        # Always canonical to three-dot version
        $perl_version =~
          s{^(\d+)\.(\d\d\d)(\d*)}{join('.', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18332	18427	
==>ill employ appropriate measures
such as system-managed locks so that resource corruption or appl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18332	18427	
==>ill employ appropriate measures
such as system-managed locks so that resource corruption or appl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2227	2357	
==>() { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinit <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2227	2357	
==>() { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	932	1049	
==>, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	932	1049	
==>, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10158	10323	
==>,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10158	10323	
==>,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13909	14024	
==>/xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13909	14024	
==>/xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pm <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	543	652	
==>s export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	543	652	
==>s export { $REQUEST_METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8431	8534	
==>f @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8431	8534	
==>f @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	139	255	
==>);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\!\$\%\?\@\&\*\<\>\{\}\;]+/g);
    
#    warn join " <==
2	/Users/nnunley/pugs/util/grokprims.pl	243	356	
==>nfix',
    non   =>   'non-associative infix',
    list  => 'list infix',
    chain => 'chaining infix',
);

my @o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4896	5066	
==>{out}) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1016	1117	
==>);
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($wor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1016	1117	
==>);
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($wor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21925	22115	
==>op::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22204	22394	
==>op::concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] ) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36555	36651	
==>is where C<@others> is an
empty list, in which case the returned Relation is identical to the
inv <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41104	41200	
==>is where C<@others> is an
empty list, in which case the returned Relation is identical to the
inv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17259	17362	
==>- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17259	17362	
==>- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7434	7547	
==>uced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7434	7547	
==>uced
# Return the result
sub pmc_process {
    my $class = shift;
    my $data = shift;
    my @blocks = $class->p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11985	12094	
==>a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12043	12152	
==>a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected_type, Str $desc?, Bool :$t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16713	16821	
==>eter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new Node object (plu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16713	16821	
==>eter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a new Node object (plu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2653	2764	
==>ented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- spe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2837	2948	
==>ented in :ratchet mode only
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- spe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1199	1315	
==>code = eval($program);
        warn "Error in statement:\n", $program if $@;
        die "error in immediate_statemen <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4027	4150	
==>$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4085	4208	
==>$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10174	10337	
==>GI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    els <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10174	10337	
==>GI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    els <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3362	3559	
==>p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3502	3699	
==>p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'un <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	628	812	
==>t  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $l <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	628	812	
==>t  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $l <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8677	8788	
==>y("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8735	8846	
==>y("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $T <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39210	39295	
==>osetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39210	39295	
==>osetta>, L<Rosetta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	18	132	
==>Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	18	132	
==>Strategies::CPS;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;

=pod

C<Result> is the match state that i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11615	11710	
==>t/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accep <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11615	11710	
==>t/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accep <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	180	323	
==>mpile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	180	323	
==>mpile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2433	2554	
==>d2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2617	2738	
==>d2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <name <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23806	24039	
==>t) {
                if ($min == $last) {
                    push @canon, $last;
                } else {
                    push @canon, "$min-$last";
                }
                $min = $_;
            }
            $last = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4371	4517	
==>eason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $status->{"skip"} = 1;
            retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13892	13991	
==>f->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8098	8197	
==>f->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12366	12465	
==>k in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12366	12465	
==>k in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3147	3254	
==>ting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3147	3254	
==>ting relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	63	155	
==>pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_ou <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	63	155	
==>pil is already loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_ou <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16242	16341	
==>6obj_complain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	736	851	
==>r = classname of mod;
    }
    $target = $matchObj->target();
    $from = $matchObj->position();
  }

  $me = new $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1139	1238	
==>eversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1139	1238	
==>eversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import routine <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19603	19764	
==>&RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16024	16185	
==>&RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s/^-//;

    for (split //, $off) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7220	7322	
==>urns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSIT <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7278	7380	
==>urns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSIT <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7647	7760	
==>rrent=N, -j      Run N test jobs concurrently (unavailable on MSWin)
    --shuffle, -s           Run tests in rand <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11447	11544	
==>identical; they do not
interact with the outside environment at all.

A Document object has 2 main <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11447	11544	
==>identical; they do not
interact with the outside environment at all.

A Document object has 2 main <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8439	8560	
==>eop::alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8145	8260	
==>eop::alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4932	5037	
==>1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final pos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4932	5037	
==>1 METHODS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final pos <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	254	483	
==>en 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	254	483	
==>en 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buff <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9860	9973	
==>aracter {  # see 7.8.4
      <SingleEscapeCharacter>
    | <DecimalDigit>
    | <'x'>
    | <'u'>
}
rule HexEscape <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4024	4117	
==>t';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$name,$rep,$type,$pai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35424	35518	
==>y ref.

=item C<get_member_names()>

This method returns all Member Names elements in this obje <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35424	35518	
==>y ref.

=item C<get_member_names()>

This method returns all Member Names elements in this obje <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4513	4650	
==>my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifie <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4513	4650	
==>my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifie <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7953	8094	
==>>type ],
				struct_equiv => $rthunk,
				orig => $thunk,
			);
		}
	}

	sub reduce_seq {
		my $self = shift;
		my $seq = shift;
		
		my $rseq <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1332	1465	
==>m::exp (  Num  $exponent             ; Num :$base --> Num )
 {
     Math::Basic::exp($exponent, $base);
 }
 multi Math::Basic::exp ( N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8380	8479	
==>his code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<P <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8380	8479	
==>his code has not been reviewed by a security expert, and may contain bugs and 
vulnerabilities.  B<P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3885	3985	
==>le::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3885	3985	
==>le::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is written
b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1211	1312	
==>ported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1211	1312	
==>ported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28642	28738	
==>::Example $other!) returns Bool>

This method returns a Bool indicating whether the immutable ide <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10145	10258	
==>' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10145	10258	
==>' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_vars_into_template_text',
        '%msg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	705	820	
==>an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	705	820	
==>an "assertion" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8540	8666	
==>me '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subru <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8540	8666	
==>me '$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subru <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1758	1985	
==>nts<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interp <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1758	1985	
==>nts<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1610	1728	
==>cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1817	1935	
==>cached.pl";

      if ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22907	23064	
==>uleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23186	23343	
==>uleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17180	17335	
==>utes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17180	17335	
==>utes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_va <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1759	2007	
==>sh @buffer => $t;          
            }
            
            # deal with blocks
            elsif ($t =~ /^\{|\}$/) {
                if ($in_block) {
                    $in_block = 0;
                    my @body;
                    foreach <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3960	4121	
==>r;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3960	4121	
==>r;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2551	2660	
==>=> $extracted,
    } );
}

sub angle_quoted {
    my $grammar = shift;
    return $grammar->no_match unless $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2276	2437	
==>= $state;

            return $match if $match->{bool} || $match->{abort};

        }

        return;

    }

}



sub ruleop::concat {

    

    # note: the li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2203	2355	
==>= $state;
            return $match if $match->{bool} || $match->{abort};
        }
        return;
    }
}

sub ruleop::concat {
    
    # note: the li <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1667	1814	
==>elf->hash_fetchElem($idx);
                return undef unless $c;
                $c->scalar_fetch;
            },
            hash_storeVal => sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2430	2588	
==>LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2430	2588	
==>LINE
        last
            if $user_input eq $EMPTY_STR;

        try {
            _show_message( Locale::KeyedText::Message.new(
                msg_key = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1568	1730	
==>sg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1568	1730	
==>sg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	744	864	
==>, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this is currently simply a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	744	864	
==>, the node_Mumble macros are
   currently defined as subs, which we can get away with since
   this is currently simply a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4792	4894	
==>oin us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5042	5144	
==>oin us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12345	12463	
==>elf->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 a <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2778	2890	
==>he config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2778	2890	
==>he config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1833	1955	
==>r now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = su <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1833	1955	
==>r now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	361	475	
==>',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'circumfix', 
        assoc => 'non <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	316	419	
==>sub tokens(Code *$input, Str *$label, Str $pattern, Code $maketoken?)
    is exported(:all) {
  ## XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5693	5872	
==>ttrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9170	9349	
==>ttrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) return <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23544	23639	
==>[_|T],[Replace|T]) :- !.
replace_at_n(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_n(N1,R <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	250	366	
==>) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	214	330	
==>) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://([^/]+)(.+)/(.+)| or return;

    i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14246	14483	
==>ed $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14246	14483	
==>ed $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest = $class-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21033	21140	
==>o) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL S <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21033	21140	
==>o) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9443	9540	
==>alue pairs also called fields, which
may be repeated, and which are printed in a particular order. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9443	9540	
==>alue pairs also called fields, which
may be repeated, and which are printed in a particular order. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2351	2452	
==>:PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signatur <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2351	2452	
==>:PIL {
    has Perl::Compiler::PIL::Util::Type $.codetype;
    has Perl::Compiler::PIL::Util::Signatur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2123	2328	
==>y.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2123	2328	
==>y.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5186	5318	
==>( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5186	5318	
==>( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	507	612	
==>ndef;
$::Module  = undef;
$::Package = undef;

# for sending messages to an opaque object 
# (very primiti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	60	178	
==>se base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cut

# TODO - im <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17508	17598	
==>ssion>
    | <BitwiseORExpression> <'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionN <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	841	956	
==>ight + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	841	956	
==>ight + 1;
    $.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10190	10307	
==>$runperl";
    }
    unless ($args{nolib}) {
	if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style erro <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3185	3298	
==>= $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3185	3298	
==>= $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36515	36611	
==>eadable) Message object as its positional
parameter $message and returns an equivalent human read <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36515	36611	
==>eadable) Message object as its positional
parameter $message and returns an equivalent human read <==
2	/Users/nnunley/pugs/util/func_refact.pl	2625	2728	
==>nds{$cand}[0] $cands{$cand}[1]\n";
    }

    # print ten best candidates
    print_cand($_, $cands{$_}) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2928	3054	
==>ssage );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2928	3054	
==>ssage );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find user text for a message:"
            ~ "\n$me <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1816	1944	
==>r is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add suppo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1816	1944	
==>r is export {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add suppo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16798	16914	
==>new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo' <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16798	16914	
==>new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22790	22908	
==>, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19211	19329	
==>, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4799	4915	
==>sers>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4799	4915	
==>sers>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_handl <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5676	5771	
==>em head($url)

Get document headers. Depending on the context, C<head> returns
the following val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5676	5771	
==>em head($url)

Get document headers. Depending on the context, C<head> returns
the following val <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1870	2021	
==>-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1870	2021	
==>-form-urlencoded') {
                my $content;
                $.query!parse_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	519	636	
==>32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x->$try{
        $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10033	10145	
==>", "etc/terminfo", "etc/terminfo/l";
  step
    descr  => "Creating directories " . join(", ", map { "$_" } @dirs <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5951	6056	
==>dex) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5951	6056	
==>dex) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9182	9303	
==>tifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$_[1] $sub(\n" .
           em <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2592	2708	
==>parator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2592	2708	
==>parator is first in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:per <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2731	2824	
==>ight class name');
is($p->prototype->class, \&Object, '... got the right class name');

is($p- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	971	1073	
==>IL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILE <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	971	1073	
==>IL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	296	410	
==>sub pair {
    my $class = shift;
    return $class->no_match unless $_[0];
    #print "match pair $_[0]\n";
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18475	18584	
==>r
class would render as C<[\w\d:]>.  If you want to go even further and remove
any embedded class that is I<en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9945	10105	
==>d revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9945	10105	
==>d revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5356	5502	
==>art,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5356	5502	
==>art,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	247	359	
==>nuation"

2 - an optional "flags" hashref

    'capture'=>1 means 'return whatever matches'



it returns (or "yi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	235	343	
==>nuation"
2 - an optional "flags" hashref
    'capture'=>1 means 'return whatever matches'

it returns (or "yi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21116	21227	
==>push @{$test->{failed}}, $test->{'next'}..$test->{max};
            $failed = @{$test->{failed}};
            (m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28102	28200	
==>( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32654	32752	
==>( Mapping(Str) of Set of Str $mapping! ) returns Relation>

I<TODO.  This method has not yet been i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2647	2761	
==>ection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.densit <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2647	2761	
==>ection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.densit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1177	1290	
==>=> [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not imp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	280	392	
==>=> [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not imp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4485	4585	
==>C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4485	4585	
==>C<decrypt> and C<decipher> are equivalent to 
C<deciphering>.

=item C<cipher>

    push @output, $ci <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5441	5573	
==>ight.

=cut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return @f;
}

=item B<_run <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	453	582	
==>n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	550	679	
==>n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        substr         => sub{ $match = (substr($st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7016	7145	
==>o the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(bou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7016	7145	
==>o the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(bou <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1277	1377	
==>_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n") <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1297	1403	
==>SX::String $P) {
    my $Result2 = $O.property_value{$P};
    return $Result2 if defined $Result2;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24236	24373	
==>rm1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24515	24652	
==>rm1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gramma <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	597	688	
==>--------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ---------------------- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	620	711	
==>---
# Author: Yung-chung Lin (xern@cpan.org)
# --------------------------------------------- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5451	5572	
==>l'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'con <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11872	11986	
==>regexp*s
  created with the normal perl engine can continue working.

  Upon exec, the subref should return match i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1744	1850	
==>on ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1744	1850	
==>on ($self: $span ) {
    return $span.intersection( $self )
        if $span.isa( 'Span::Code' ) || $span.i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19739	19839	
==>te' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19739	19839	
==>te' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the Rosetta DBM <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1099	1296	
==>*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@curr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1099	1296	
==>*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not happen: '$value'";
            }
        }
        
        push @return, [@curr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10429	10535	
==>rs who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in header na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10429	10535	
==>rs who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in header na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	232	320	
==>er::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> <?p6ws>? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	20	126	
==>v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	20	126	
==>v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Messa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	769	893	
==>g_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	769	893	
==>g_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  h <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1279	1377	
==>icrosoft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1119	1217	
==>icrosoft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3874	3980	
==>STRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3874	3980	
==>STRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Creates a set containing zero or m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2729	2843	
==>t = 'Number') {
    if $hint eq 'String' {
        my $Result1 = $O.<[[Get]]>('toString');
        if $Result1.isa( <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2928	3036	
==>:Named $subscription) {
            %.subscriptions<$subscrption.name>.remove($subscription);
            $su <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4826	4928	
==>er()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPY <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4826	4928	
==>er()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPY <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1757	1871	
==>.shift eq $_ or die "Expected PIL2 $_" }; 
    my $ret = %tok{$token}( @_ );
    for @end   { @_.shift eq $_ or die <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9383	9497	
==>> upper => $neg, $how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4364	4467	
==>ash_element {
   my $var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11387	11488	
==>trDecimalLiteral>
    | <HexIntegerLiteral>
}
rule StrDecimalLiteral {  # see 9.3.1
      <StrUnsigned <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2870	2976	
==>pop (  ) {
    Array::pop @+_;
}

# copied from S29draft.pod r8593.
multi Array::push (@array is rw ; *@val <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1835	1940	
==>er good source of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apoc <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1835	1940	
==>er good source of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apoc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	347	493	
==>ession::ast( $src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $src,
        tail  =>   $tail,
        capt <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11555	11655	
==>and exec.
  The hooks are not package-specific.

Design:

  The comp hook sub should return a subref, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9942	10061	
==>test{bonus}) {
                my @msg;
                push(@msg, "$test{skipped}/$test{max} skipped: $test{skip_reason <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8422	8525	
==>( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8410	8513	
==>( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	140	292	
==>debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = ' <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	140	292	
==>debug                 = 0;
    $.strict_leading_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = ' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17216	17383	
==>hole test was skipped, this will 
                      contain the reason.

  ok                number of tests which passed 
                      (including todo and <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8437	8556	
==>on.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8437	8556	
==>on.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9521	9647	
==>_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9521	9647	
==>_text_from_loaded_module',
        '$msg_key!', $msg_key );

    my Str $text = undef;
    try {
        $text = &::($module_na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20038	20137	
==>erence
implementation of an Engine and is included in the "Rosetta" core
distribution to allow the c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20038	20137	
==>erence
implementation of an Engine and is included in the "Rosetta" core
distribution to allow the c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	874	977	
==>Parser does NOT look like it's mature enough to bear
# our weight, to be a next step. And the current Re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	8059	8167	
==>tances do the roles as well
my $iFooBar = $FooBar->new();    
ok($iFooBar->does('rFoo'), '... iFooBar does rF <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8362	8458	
==>.

=item I<start_element ('line_interpolation')>

This event is begun when any block of character <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8362	8458	
==>.

=item I<start_element ('line_interpolation')>

This event is begun when any block of character <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3188	3301	
==>e' ,'unk';
node_a 'Val', 'VStr'  , 'value' ,'unk';
node_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6610	6873	
==>w(
                        Sym->new('$n'),
                    ),
                ),
                Val->new(
                    Thunk->new(
                        App->new(
                            Sym->new('&infix:<+>'),
                            App->ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	927	1055	
==>c( $val );
    }

    unless( $meta or $meta = $self->extract_meta_object ) {
        return;
    }
    
    $self->package( $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12451	12557	
==><HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12451	12557	
==><HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2931	3077	
==>ile @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            ne <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2931	3077	
==>ile @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @ret: @tmp.shift );
            ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6089	6230	
==>ge);
    } else {
        my $diff = $got - $expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1363	1476	
==>rint "$chr";
}

sub process_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\n";
    my $file = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37580	37686	
==>ti-method is the N-ary version of the aforementioned.

=item C<difference (Relation::Example $other!) retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10029	10137	
==>et, and for querying 
set properties.

Note that all set functions may end up being calculated using iteratio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10029	10137	
==>et, and for querying 
set properties.

Note that all set functions may end up being calculated using iteratio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8373	8504	
==>ub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8566	8697	
==>ub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Du <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	162	255	
==>fess';
use Scalar::Util 'looks_like_number', 'blessed';

use base 'type::comparable';

sub new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7092	7214	
==>load 

runtime. 



- internal rule operators



Internal rule operators share a common API, which permits the intercommuni <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6852	6969	
==>load 
runtime. 

- internal rule operators

Internal rule operators share a common API, which permits the intercommuni <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4016	4138	
==>y $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key:\n";
        foreach ( @{ $values{$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3672	3760	
==><Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 199 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3672	3760	
==><Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 199 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	206	335	
==>le MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	206	335	
==>le MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => ' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7299	7400	
==>_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # N <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7299	7400	
==>_directories = (splitpath($path, 1))[1];
    my $base_directories = (splitpath($base, 1))[1];

    # N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	636	749	
==>to &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMaker::prompt;
    }
}

sub makemaker_ar <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1381	1701	
==>xists($attr_name);
}

###########################################################################

} # class Relation::Example::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4760	4924	
==>lf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
.. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4982	5146	
==>lf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
.. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6613	6731	
==>$orig,$target) = each %from ) {
        unless( File::Copy::copy( $orig, $target ) ) {
            error("Failed to cop <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	644	758	
==>and A.5.
#     Note it is always an optional match.
#   * Parts of the grammar, intended for a tokenizer, are not a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1183	1301	
==>}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1183	1301	
==>}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ] <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1539	1660	
==>i sub  Perl6::List::map (Code $expression ; *@values) returns Lazy {
   gather {
     while @values {
       take $express <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10299	10418	
==>eading === $!heading);
    }

    my Relation::Example $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclus <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6019	6139	
==>ous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6019	6139	
==>ous( $x ) );
}

method contains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	481	624	
==>0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } else {
        $self->check_nmake if $args{check_nmake};
        unless ( $self->makema <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	500	619	
==>0 =~ /Build.PL$/i) {
	$self->Build->write;
    }
    else {
	$self->check_nmake if $args{check_nmake};
        $self->ma <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6947	7051	
==>ed);
print $error $template->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\n";

# re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5171	5277	
==>postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5171	5277	
==>postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix:<*> 5 infix:<+>', <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2401	2518	
==>~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2401	2518	
==>~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20848	20947	
==>hich
I recommend above all others for production use.

Most of the other (near term) third party Eng <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20848	20947	
==>hich
I recommend above all others for production use.

Most of the other (near term) third party Eng <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1107	1202	
==>' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1107	1202	
==>' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3983	4084	
==>Text::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3983	4084	
==>Text::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1045	1150	
==>atching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1045	1150	
==>atching and named binding
        #if ($string ~~ s:/^ $field := (<-[ \t:]>+) <[ \t]>*\: <sp>? $value := ( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4875	4973	
==>inish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4875	4973	
==>inish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and retur <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	653	746	
==>if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	653	746	
==>if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> with a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9663	9762	
==>infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successor" funct <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9663	9762	
==>infinite recurrence set, defined with closures. 

A recurrence set is defined by a "successor" funct <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1733	1833	
==>er($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1733	1833	
==>er($class->pmc_caller_stack_frame))[1, 2];

    return if $filtered->{$module}++;

    my $callback = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11886	12022	
==>o, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11886	12022	
==>o, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $to,
      rest   => strip_colon($rest) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8462	8630	
==>0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8462	8630	
==>0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub before <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	949	1046	
==>r less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	949	1046	
==>r less fixed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4850	5046	
==>"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5072	5268	
==>"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	493	612	
==>};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	493	612	
==>};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3330	3431	
==>ass Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3330	3431	
==>ass Rosetta::Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable c <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4451	4591	
==>dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "generated_by: $package version $version\n";
    return $dump;
} <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2649	2757	
==>t is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the st <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2649	2757	
==>t is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fractional) from the st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	105	218	
==>qw(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) = @_;
    no strict qw( refs );
    ${"${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17772	17867	
==>character values (eg. 65 for 'A') and
the number of times that character appeared in the charact <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1075	1176	
==>p
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1075	1176	
==>p
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3799	3909	
==>lf->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $se <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5159	5268	
==>lf->{preamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15661	15754	
==>Explain (pending, Jeff Pinyan)

Produces a human-readable explanation of the execution of a re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2888	3060	
==>{ 

        bool  => 1,

        match => { 'p6ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2776	2942	
==>{ 
        bool  => 1,
        match => { 'p6ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27732	27826	
==>lements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This met <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27732	27826	
==>lements, which correspond to the 2 named parameters of new().

=item C<get_msg_key()>

This met <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1516	1773	
==>@t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_string) {
                push @buffer => $ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6017	6117	
==>my $statements = traverse_ast ( %pad<"pStmts"> );
        $ret = emit_Pad( $scope, @symbols, $stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22886	23061	
==>}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23165	23340	
==>}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	725	838	
==>atchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	725	838	
==>atchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10195	10301	
==>y()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10195	10301	
==>y()`

Returns `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the s <==
2	/Users/nnunley/pugs/util/drift.pl	220	318	
==>table.

$ENV{DERIVEPATH} = "$Bin/../src";

my ($in) = @ARGV or exit;
my ($dir) = $in =~ /^(.*)\.hs/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4479	4643	
==>$match->from ),
                to    => \( $match->to ),
                named => { $label => $match },
                match => [],
            }, 'Pugs::Runti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	770	865	
==>compile(q(<'grammar'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_na <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43325	43436	
==>uncan.

See the LICENCE AND COPYRIGHT of L<Relation> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	794	905	
==>[\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif ( $chr e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24119	24220	
==>d or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28671	28772	
==>d or an empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3565	3688	
==>his as List::splice.
multi Array::splice (       @array is rw 
			    : Int $offset = 0,
			    Int $length,
			    *@values <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16886	16981	
==>ally load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
M <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16886	16981	
==>ally load F<MyModule.pmc>
when someone says C<use MyModule>. On the other hand, Perl 6 can run
M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25670	25771	
==>ll you an alternate, limited license that allows you to link
Rosetta with non-free software components <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25670	25771	
==>ll you an alternate, limited license that allows you to link
Rosetta with non-free software components <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1933	2069	
==>o at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1933	2069	
==>o at '" . $final_ast->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33405	33506	
==>s, the Template module for the program or first library should
appear first in the array.  Each Set Na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33405	33506	
==>s, the Template module for the program or first library should
appear first in the array.  Each Set Na <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1385	1524	
==>.. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1385	1524	
==>.. 10 and 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6134	6284	
==>expected;
        $pass = abs ($diff / $expected) < $range;
    }
    unless ($pass) {
        if ($got eq $expected) {
            unshift @mess, "# $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6265	6371	
==>r, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically par <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6265	6371	
==>r, 
the cryptographic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically par <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19865	19972	
==>pace [ "PGE::Exp::Quant" ]

.sub "p6analyze" :method
    .param pmc pad
    .local pmc exp
    .local int pa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	179	285	
==>) of a perl 5.9 re test file (re_tests), but it's
real p5 re coverage is much less.  The test passing was s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7814	7928	
==>reached.

=item I<end_element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<star <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7814	7928	
==>reached.

=item I<end_element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<star <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6183	6319	
==>sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6183	6319	
==>sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33916	34040	
==>municate in, and what their backup choices are,
in order, if preferred ones aren't supported by a program or its libraries.
W <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33916	34040	
==>municate in, and what their backup choices are,
in order, if preferred ones aren't supported by a program or its libraries.
W <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6948	7050	
==>rogram = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6960	7062	
==>rogram = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $flags->{print_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27503	27674	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27782	27953	
==>apture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         rul <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2306	2410	
==>e output tree.
my $start_dir = cwd;

# ref to hash of information about links that we mean to insert.
# T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27550	27639	
==>Parser>.

=head2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Pars <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8757	8891	
==>e {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8757	8891	
==>e {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self.charset <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14135	14238	
==>sider unsafe (i.e., which to escape). The default set
of characters to encode are control chars, high-bi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14135	14238	
==>sider unsafe (i.e., which to escape). The default set
of characters to encode are control chars, high-bi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7022	7180	
==>b {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'nu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6787	6940	
==>b {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'nu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10572	10717	
==>_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10572	10717	
==>_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26436	26549	
==>be passed by reference, so you
may store references to other objects in them if you wish.

=back

This is the main <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26436	26549	
==>be passed by reference, so you
may store references to other objects in them if you wish.

=back

This is the main <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5025	5127	
==>e right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7693	7795	
==>e right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5511	5621	
==>, '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9109	9219	
==>, '... $iFoo got the right method return value');
is($iFoo->bar, 'Foo->bar', '... $iFoo got the right method re <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2829	2922	
==>odule_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name. <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2829	2922	
==>odule_name.hs
	$ghc --make -isrc -Isrc $ghc_flags \$(GHC_FLAGS) $module_name.hs

$module_name. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4177	4384	
==>o many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4177	4384	
==>o many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3845	4011	
==>'=~',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    
    __PACKAGE__->add_rule( 
        name => 'Y',
        assoc => 'lis <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2308	2428	
==>/lib exists: the user may be running
        # `make unoptimzed` which doesn't create it.
        mkpath(dirname($ppc_yml <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1996	2087	
==>the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<d <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1996	2087	
==>the L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10260	10416	
==>@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10260	10416	
==>@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_cookies () {
        . <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10308	10468	
==>', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10308	10468	
==>', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	242	339	
==>r::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	242	339	
==>r::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->code;
*rule_name = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	834	1052	
==>$dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	834	1052	
==>$dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Ros <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	622	727	
==>ubmethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	622	727	
==>ubmethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$epoch) returns <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8604	8707	
==>an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6137	6238	
==>an operator pair, such as circumfix [ '(', ')' ] or ternary [ '??', '!!' ]. 

 # precedence=>'tighter' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1021	1124	
==>e, for
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement'
# sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1021	1124	
==>e, for
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statement'
# sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1966	2073	
==>ath));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1966	2073	
==>ath));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]);
    $di <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16824	16922	
==>NoIn> <'!=='> <RelationalExpressionNoIn>
}
rule BitwiseANDExpression :words {  # see 11.10
      <E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7071	7227	
==>Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7071	7227	
==>Grammar::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1644	1737	
==><grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1644	1737	
==><grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23071	23197	
==>>new("str")),
				),
			),
		),
	),
);

my $map = let(
    ide => "map",
    is => fun(
	param => "f",
	body => fun(
		param => <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1004	1155	
==>ue, $class;
    }

    sub val { ${ $_[0] } }
    sub str { $_[0]->val }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24202	24303	
==>elf = shift;
    join "", $self->raw, $self->{data}[0]->qr, $self->{data}[1]->qr, ")";
  }

  sub visu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3327	3526	
==>Thunk object, a number or a string. For example

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	865	977	
==>t{name2} . ">",
        '{ return { op => "postcircumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2803	2922	
==>ethod { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3016	3135	
==>ethod { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2100	2277	
==>ents<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2100	2277	
==>ents<start_element>('for', "$0");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5864	5986	
==>y $new_match = { %$match };

        $new_match->{capture} = [ { $label => $match->{capture} } ];

        return $new_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5678	5798	
==>y $new_match = { %$match };
        $new_match->{capture} = [ { $label => $match->{capture} } ];
        return $new_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	555	657	
==>ler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	555	657	
==>ler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9750	9848	
==>on( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9750	9848	
==>on( $span )` / `difference( $object )`

Returns a Set::Infinite. 

The argument can be a Set::Infin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14975	15155	
==>::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15254	15434	
==>::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	3030	3139	
==>r->grammar($source);
print "$match";

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11876	12066	
==>p1}{op} . ' ' . _emit( $n->{exp2} );
}

sub circumfix {
    my $n = $_[0];
    # print "infix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq '(' &&
         $n->{op2}{op} eq ')' ) { <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1098	1204	
==>But in my understanding, The implemention below might be right.
	state $t;
	if $t {
		$t = 0;
		return $x.r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4301	4485	
==>ld_type{$fname} = $ftype;
    }
    my $self = {
        name => $name,
        rep  => $rep,
        type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5074	5224	
==>}= \$_[1] }\n";
    }
    $prec = "P000";
    for my $level ( reverse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7907	8002	
==>rammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1732	1827	
==>rammar::Perl6->access_hash_element(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14032	14149	
==>s == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17509	17626	
==>s == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	901	1010	
==>m);
  my $position = -1;
  $me->position($position);

  $from = $fromd if ( $fromd and $from < 0)

  return ($ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38851	38951	
==>ns all of the tuples that
are in the invocant Relation::Example and that match any tuples of C<$other <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2265	2549	
==>> $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                    # exp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1137	1254	
==>nd die $?;
        system( qq[tar -f $Control -C $path/$Pms -cz .] )   and die $?;
        system( qq[tar -czf $archiv <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	892	1051	
==>{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	771	930	
==>{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            if ( $module e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21985	22079	
==>supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21985	22079	
==>supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(cha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	980	1090	
==>s->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18364	18457	
==>ist )
 &split<> := &split<Str>.assuming:delimiter(' ');

String delimiters must not be treated <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11399	11556	
==>($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11399	11556	
==>($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	767	874	
==>bug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	767	874	
==>bug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5398	5554	
==>f( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5620	5776	
==>f( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3629	3769	
==>ackage;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3687	3827	
==>ackage;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2572	2691	
==>_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2572	2691	
==>_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    meth <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13884	13980	
==>hash ; MatchTest *@keytests --> Int|(List of Pair) )
 multi Hash::values (%hash ; MatchTest *@key <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10345	10447	
==>der field
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10345	10447	
==>der field
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14259	14376	
==>=> sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $neg, \$how);
  });

  # lo <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	67	158	
==>is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	67	158	
==>is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> || 'localhost' }
sub remote_address  re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10230	10332	
==>$field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10230	10332	
==>$field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fiel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15303	15446	
==>ented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, bu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15297	15440	
==>ented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are not inheritable, bu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2673	2873	
==>lass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2878	3078	
==>lass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	665	780	
==>mbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	665	780	
==>mbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2487	2619	
==>tch => $extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

sub angle_quoted {
    my $grammar = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	123	224	
==>h;
use Pugs::Compiler::Token;

# TODO - implement the "magic hash" dispatcher
# TODO - term:<...>  - y <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20600	20695	
==>gest lines will
be expanded again.

Every bit of the default process described above is overrida <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20600	20695	
==>gest lines will
be expanded again.

Every bit of the default process described above is overrida <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4417	4524	
==>t = ref $thunk_type eq "ARRAY" ? @$thunk_type : $thunk_type;
		my $return_type = pop @context;

		warn "Unif <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22936	23017	
==>------------------------------------------------------------------

rmSomewhere(Re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5151	5277	
==>error($!), return;
        }
        
        # load the existing index file
        my $index_content = YAML::LoadFile($index) <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	105	199	
==>add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	105	199	
==>add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - An object representing <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1872	2265	
==>\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else {
                        take $k;
                    }
                }
            }
        }
    }
}

1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1872	2265	
==>\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        }
                        else {
                            # token
                            take "$k=$v";
                        }
                    }
                    else {
                        take $k;
                    }
                }
            }
        }
    }
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	179	276	
==>doc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	179	276	
==>doc::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7849	7961	
==>apture       - capture then entire match. For example:

  

  # returns a Match object that has the 'capture' fie <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7583	7693	
==>apture       - capture then entire match. For example:
  
  # returns a Match object that has the 'capture' fie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11558	11679	
==>ue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11558	11679	
==>ue, wait for input from server and process it
    run => {
      while($connected) {
        $queue<run>();
        $self< <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3128	3242	
==>t because of an icky pugsbug.
    #my %idx = <package file line subname subtype params> Y 0 .. 5; # ugly.
    #Cont <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2675	2790	
==>= join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is C <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2675	2790	
==>= join '', map { sprintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5888	5990	
==>r $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Loc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5888	5990	
==>r $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Loc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5	110	
==>ge Emitter::Perl5;

use strict;
use Pugs::Emitter::Rule::Perl5;
our %nodes;

sub emit_node {
	die "unknown <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	346	440	
==>/CORE/pugs');
    copy_all("$_/blib/", 'blib6/pugs/perl5') for <perl5/*>;
    copy_all("$_/blib <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	238	358	
==>me('A');
    for (var i = 0; i < links.length; i++) {
        var href = links[i].href;
        if (href.match(/\/~/)) wi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10725	10848	
==>e_args)";
    my $code = $code_val;
    if($kind eq 'Method') {
	my $k = lc $kind;
	my $meth = "";
	Carp::confess("class und <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	276	420	
==>), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	276	420	
==>), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - sh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4564	4692	
==>P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4564	4692	
==>P5/^[@+%]?(.+)/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	911	1228	
==>nt>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_li <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	911	1228	
==>nt>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_li <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	553	667	
==>E:
# this is a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are n <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	553	667	
==>E:
# this is a hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are n <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5022	5131	
==>my $self = shift;
    my $ghc = $self->can_run($ENV{GHC} || ( 'ghc' . $Config{_exe} ) );

    # This local sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3709	3835	
==>e all the children of the top level App into

    ( Thunk(...), 10 )

At which point the App will put the 10 into the parameter <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15312	15416	
==>function
	# since this return value is a type variable that is present inside the function, if it was fre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8336	8435	
==>:Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringif <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8336	8435	
==>:Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringif <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	173	286	
==>. }

multi sub log (; Num ?$x = $CALLER::_, Num :$base where { $base > 0 })
    returns Num { ... }

# mmm, curry! <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11469	11567	
==>ackage main;

use strict;
use warnings;

use Test::More 'no_plan';
use Test::Exception;
use Data::D <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13927	14034	
==>octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"01234567") }.

octdigits3_int(I) -->
  octdigit(D0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2581	2688	
==>d($arg) && $arg->isa($param_type))
                || confess "got the wrong type for " . $param->to_str->to <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1373	1510	
==>ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1340	1477	
==>ftp->get($file) or (warn("$!\n"), return);
        $ftp->quit;
    } }
    elsif (my $ftp = $self->can_run('ftp')) { eval {
        # no N <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4732	4835	
==>ertext version of the data given.
The data may be either a string or an array of bytes; the array of byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4732	4835	
==>ertext version of the data given.
The data may be either a string or an array of bytes; the array of byt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1886	1988	
==>do, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1944	2046	
==>do, $got, $expected, $depends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5380	5521	
==>ty 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5380	5521	
==>ty 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    return $removed_child;
}

me <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	871	984	
==>gleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elements (Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	871	984	
==>gleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elements (Spa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12344	12453	
==>tmpl_var name=failed></span>,</td>
	      <td class="num tests_todo"><span title="<tmpl_var name=todo> todo">< <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2018	2117	
==>$pm = "src/perl6/Prelude.pm";
    my $ppc_hs = "src/Pugs/Prelude.hs";
    my $ppc_yml = "blib6/lib/P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	23203	23301	
==>le-quoted strings in building your regex.

=back

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@perl <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12240	12338	
==>s::prelude) }
ROOT: generic_in($$) = {
	my $env = env($$);

	Set::Object->new(
		grep { $_->free_va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1556	1703	
==>hitespace_before ) {
                # XXX - angle quotes are always tried even if it were expecting a simple '<'
            
                # aft <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5738	5846	
==>S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub {
    my ($S, $cc <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	794	899	
==>::Gregorian is export {

    $iso8601 ~~ $iso8601_re_anchored
        or die "can't match '$iso8601' to av <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16530	16629	
==>TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Insta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16530	16629	
==>TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Insta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1355	1461	
==>}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1355	1461	
==>}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_means_no;
    goto &{$class->can( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	541	701	
==>turn [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	541	701	
==>turn [] }
) )->code;

# main program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14243	14346	
==>ction.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14301	14404	
==>ction.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is the opposite of pass()

- `diag (Str $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5553	5668	
==>l_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to sk <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5553	5668	
==>l_content =~ /(.*\n)/g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to sk <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2923	3038	
==>field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2923	3038	
==>field
      $old ~~ s:g/\b(\w)/{$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1454	1563	
==> (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1454	1563	
==> (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1116	1235	
==>from Haskell (I think))

class SExpParser     
    def parse (source)
        stack = Array.new
        subexp = Array.n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2664	2757	
==>&parse_modifier);
    $optable->addToken("close:>", "<prefix::", "nows");
    $optable->addTok <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14034	14131	
==>e field name passed to the
callback routine has case as suggested by HTTP spec, and the headers
wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14034	14131	
==>e field name passed to the
callback routine has case as suggested by HTTP spec, and the headers
wi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4716	4812	
==>&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{ch <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4716	4812	
==>&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{ch <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2151	2280	
==>' ,'Maybe PIL_Expr';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'type' ,'Type';
no <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12618	12702	
==>class="num tests_unexpect"><span title="<tmpl_var name=unexpect> unexpectedly succeed <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4766	4893	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4959	5086	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non_captur <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	197	314	
==>iag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Clas <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	197	314	
==>iag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Clas <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13169	13258	
==>_int(I) --> digit(D0), digits(D), { number_chars(I, [D0|D]) }.
digits([D|T]) --> digit(D), <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	231	484	
==>tr %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $ms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	231	484	
==>tr %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 {
    sub get_text_by_key (Str $ms <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4993	5093	
==>~type) returns nil>

=item B<remove (num) returns nil>

=item B<slice (num, num) returns list>

=item <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3744	3872	
==>$old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zli <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3744	3872	
==>$old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   Compress::Zli <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	932	1068	
==>) };

    if($@) {
        chomp($@);
        error( qq[Could not create directory '$args->{dir}': $@"] );
        return;
    }

    ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5537	5647	
==>y $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5537	5647	
==>y $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9055	9170	
==>repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9043	9158	
==>repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $try_matc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	434	540	
==>ed by dialects should be stored in this
tree as an attribute.  The property C<attr> is used for this.

=cut <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	434	540	
==>ed by dialects should be stored in this
tree as an attribute.  The property C<attr> is used for this.

=cut <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1051	1143	
==>dition)";
our $re_varname = $re_sigil.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11491	11625	
==>-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11485	11619	
==>-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1855	1994	
==>od append_value ( $arg ) {
            $.string = $arg.value;
            push @.strings, $arg.value;
        }
    }


    role Getopt::Arg <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8313	8410	
==>elf->add_package(package => $pkg, force => $force);
}

1;

# Local variables:
# c-indentation-styl <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	436	540	
==>:Remote - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	436	540	
==>:Remote - A CGI module to getting information about the remote user

=head1 SYNOPSIS

    #!/usr/bin/pugs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6484	6598	
==>> $module_name {
        # Determine if requested template module is already loaded.
        # It may have been emb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6484	6598	
==>> $module_name {
        # Determine if requested template module is already loaded.
        # It may have been emb <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	894	1005	
==>gly* hack! ghc doesn't spot that the include file was changed,
    #      so we need to mark as stale some obj f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2521	2622	
==>hod($label, %opts) || redo }       
}



(closure *WALKMETH ((block &dispatcher) (symbol $label) (hash <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2867	2963	
==>s differ.
multi infix:«¥» (Array *@arrays --> Lazy) { zip *@arrays }

# copied from S29draft.p <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20625	20735	
==>val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the argument
	    delete $dir <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	1008	1111	
==>kend for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Backend::Perl;

=head1 DESCRIPTION

L<Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3578	3705	
==>]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3578	3705	
==>]../) {  # /#--vim
       return ();
    };

    # Later add Content-Size: handling here
  };
  return $buffer
}

sub _make_requ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1785	1946	
==>r('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $content;
                $.query!par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1785	1946	
==>r('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                my $content;
                $.query!par <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	155	261	
==>:PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	155	261	
==>:PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16433	16553	
==>rms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16433	16553	
==>rms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if substr( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25712	25806	
==>allows you to link
Rosetta with non-free software components.

Any versions of Rosetta that you <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25712	25806	
==>allows you to link
Rosetta with non-free software components.

Any versions of Rosetta that you <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2057	2154	
==>For example, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
woul <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2057	2154	
==>For example, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
woul <==
2	/Users/nnunley/pugs/util/package-osx.pl	9230	9375	
==>curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15080	15211	
==>LEXE} = $Perl;
    }
    return $Perl;
}

sub unlink_all {
    foreach my $file (@_) {
        1 while unlink $file;
        print S <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16849	16941	
==>xt time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16849	16941	
==>xt time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C<use MyModu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4085	4191	
==>pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4085	4191	
==>pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Po <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	487	645	
==>('$left_thunk'),
                    Sym('$right_thunk'),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blon <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7271	7374	
==>>{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shift;

	my $rapp = $self->generic_reduce($ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12601	12701	
==>$set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12601	12701	
==>$set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1366	1507	
==>$conf = $self->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1, store => \ <==
2	/Users/nnunley/pugs/util/importgraph.pl	1859	1955	
==>le\b/);
setup_cluster('Pugs.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC', qr/^IMC\b/);
setup_clus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	463	569	
==>ic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	463	569	
==>ic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12385	12491	
==>P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12385	12491	
==>P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6503	6616	
==>set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 's <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6503	6616	
==>set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 's <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3537	3644	
==>s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3537	3644	
==>s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22393	22489	
==>Heading")
and Relation::Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentatio <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	884	980	
==>nt $cc->as_pil_tree_yaml;
	    print "# p5\n",number_the_lines($p5),"\n";
	}
	print $cc->warnings <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24167	24306	
==>ol->new('superclasses'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                para <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	269	380	
==>oad some module
sub can_use {
    my ($self, $mod, $ver) = @_;
    $mod =~ s{::|\\}{/}g;
    $mod .= ".pm" unles <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19278	19382	
==>h C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19278	19382	
==>h C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first bl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23698	23796	
==>med variables, which can be used in any order, or not used at all, or
used multiple times.  Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23698	23796	
==>med variables, which can be used in any order, or not used at all, or
used multiple times.  Locale: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18623	18761	
==>then}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19981	20119	
==>then}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1554	1688	
==>s = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1554	1688	
==>s = $data.split(/\s+/);
    }
    
    method delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3674	3922	
==>cale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3674	3922	
==>cale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35705	35806	
==>tion>

This multi-method is a generic binary relational operator that takes
another Relation as its C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40255	40356	
==>tion>

This multi-method is a generic binary relational operator that takes
another Relation as its C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18326	18431	
==>ut for displaying to users, easy messages are
better.

I have found that when it comes to getting the most <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18326	18431	
==>ut for displaying to users, easy messages are
better.

I have found that when it comes to getting the most <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	401	511	
==>n $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - norm <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	401	511	
==>n $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tmp;
    # TODO - norm <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	392	493	
==>time
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure fun <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	392	493	
==>time
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure fun <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6513	6611	
==>xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLH <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6513	6611	
==>xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24160	24257	
==>at
language.  By contrast, Locale::KeyedText does no compile time binding and
will support multipl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24160	24257	
==>at
language.  By contrast, Locale::KeyedText does no compile time binding and
will support multipl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1489	1578	
==>[0-9]+)/'".$m->['.($1-1).']."'/ge;
	$expr =~ s/\$\-\[0\]/\".\$m->from.\"/g;
	$expr =~ s/\$ <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	20	101	
==>Install/WriteAll.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/WriteAll <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2724	2874	
==>f = shift;
    my $conf = $self->config;

    $self->root->rmtree();

    my @dirs = (
            $self->root,
            $self->pool,
            $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	50	144	
==>l6::Run::OnPerl5::X1::Pugs;
use strict;
use FindBin;
use File::Spec;

sub path_from_me { File:: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1626	1729	
==>-------------------------------
## informational methods

method is_root returns Bool { $!parent.defined <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1626	1729	
==>-------------------------------
## informational methods

method is_root returns Bool { $!parent.defined <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5780	5866	
==>//search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implemen <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5780	5866	
==>//search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implemen <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1598	1718	
==>it;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1598	1718	
==>it;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $com <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5096	5275	
==>self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5096	5275	
==>self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6608	6707	
==>his event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6608	6707	
==>his event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fired w <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	880	966	
==>:Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	880	966	
==>:Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util::TypeDisjunction <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14539	14636	
==>t's
testing needs. This module will be the code support for those needs. The
following is a list o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14597	14694	
==>t's
testing needs. This module will be the code support for those needs. The
following is a list o <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	612	756	
==>) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	612	756	
==>) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1533	1692	
==>s $n->{code};
        
    return $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    retur <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	6	104	
==>n-Konvertierung ('coerce')
multi sub *coerce:as (Wolf $wolf, Schafspelz ::pelz) {...}

# Der berüc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15027	15156	
==>tes a span with a single element. This is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Create <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15027	15156	
==>tes a span with a single element. This is the same as `new( start => $object, end => $object )`.

- `new( span => $span )`

Create <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4137	4248	
==>assed to the 
C<new> constructor generally include some sort of key, and sometimes also 
parameters for block si <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4137	4248	
==>assed to the 
C<new> constructor generally include some sort of key, and sometimes also 
parameters for block si <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2644	2756	
==>ced to it's value
    my $builtin = $self->env->get($symbol) || die $@;

    # fill the place holder with the com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24004	24097	
==>f external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24004	24097	
==>f external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23628	23723	
==>be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23628	23723	
==>be positional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can b <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31284	31385	
==>FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk directory. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31284	31385	
==>FooGer]; the latter is mainy useful if you want modules from multiple
sets in the same disk directory. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20007	20101	
==>elf-contained and pure-Perl reference
implementation of an Engine and is included in the "Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20007	20101	
==>elf-contained and pure-Perl reference
implementation of an Engine and is included in the "Roset <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	739	899	
==>.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	739	899	
==>.){1,2}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7247	7352	
==>bs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7247	7352	
==>bs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $base_ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5018	5126	
==>ests, " tests to run\n" if $Test::Harness::debug;
        }
    }
    $self->{_config}{test_count} = scalar @ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18232	18343	
==>ts.

Our objective here is to see if it is possible to use the regexp
struct as a new api into the guts of the p <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6524	6633	
==>nd_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6524	6633	
==>nd_element>('line_interpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2513	2619	
==>c . $';
    }
}




conv_package {
    s/package\s+((?:${re_symbol}::)*${re_symbol})\s*;/class $1;/g;
}

co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27074	27232	
==>stant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27353	27511	
==>stant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14300	14417	
==>my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1780	1897	
==>my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15881	15980	
==>since the time specified in this field,
then the server will return a C<304 Not Modified> response i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15881	15980	
==>since the time specified in this field,
then the server will return a C<304 Not Modified> response i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2537	2703	
==>> 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    __PACKAG <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	587	701	
==>t "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing failure diagnostic
# messages
sub _d <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1551	1657	
==>~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1551	1657	
==>~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4858	5006	
==>@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4858	5006	
==>@path_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    } <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1240	1400	
==>f{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1240	1400	
==>f{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	846	959	
==>ize($n) {
  'subset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~$n~' <= $^n <  2**'~$n~' };
   subset uin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16261	16368	
==>>{tree} = $self->{data};
  }
}


{
  # ( capturing
  package Regexp::Parser::open;
  push @ISA, qw( Regexp:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24850	24949	
==>is Relation's body.

=item C<size () returns Int>

This method returns a count of this Relation's me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29402	29501	
==>is Relation's body.

=item C<size () returns Int>

This method returns a count of this Relation's me <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29321	29412	
==>he invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/un <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33873	33964	
==>he invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/un <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11875	11973	
==>d tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11875	11973	
==>d tests the closures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Ret <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16890	17043	
==>$indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . ")";
    } else {
        return "( @_ )";
    }   
}

sub generic <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9945	10042	
==>$lhs, $rhs) {
    #DOWN($lhs)."|".DOWN($rhs);
    p6_type_or(DOWN($lhs),DOWN($rhs));
}
NODE TypeAn <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19193	19291	
==>ie "Cannot 'shift' scalar"; };

multi pop (@array) is builtin is primitive { List::pop(@array) };
m <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3155	3261	
==>int Data::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    * <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5184	5286	
==>, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5377	5479	
==>, \&negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21417	21515	
==>ETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44324	44422	
==>ETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17048	17184	
==>eop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17327	17463	
==>eop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'prefix', 
             ruleop::captur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8922	9046	
==>$block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shif <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8922	9046	
==>$block;
    }
    return @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shif <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28399	28618	
==>,
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                # if it is empty ... 
                $e->get('$self:')
                  ->get_attr(symbol->new('@:MRO <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3827	3974	
==>' {
        # XXX
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq '"PNoop"' {
        $ret = '';
    }
    elsif $tree[ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	985	1093	
==>be a core type";
    return str->new($left->to_native . $right->to_str->to_native);
}

1;

__END__

=pod

=he <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2836	2997	
==>al {
            @a[$i] = @a[$i-$size_change];
            $i++;
        }
        # +@a = $size + $size_change;
        #   doesnt exist yet, so...
        my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3704	3802	
==>fix the problem.

- The perl5 executable must have PMC support. 

PMC support is required for loadi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2879	2976	
==>uery string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2879	2976	
==>uery string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2005	2109	
==>ys => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2005	2109	
==>ys => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	875	991	
==>=> '&printf',
			body => 'prel_printf',
			type => type("GV -> PV -> PV -> IV"),
		},
		{
			arity => 2,
			name => ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20648	20748	
==>ant)))
     (= $method (WALKMETH (&dispatcher (symbol new DESTROY))))
     (while ($method is_not_nil <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4606	4718	
==>ument );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4606	4718	
==>ument );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2513	2631	
==>--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _tr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2513	2631	
==>--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _tr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12111	12204	
==>t1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12111	12204	
==>t1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	520	626	
==>-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-La <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	520	626	
==>-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-La <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26549	26645	
==>n Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method create <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26549	26645	
==>n Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method create <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7220	7354	
==>lvalue,$class) =
	@c{qw(name kind params body lvalue class)};
    # XXX - lvalue is ignored - use proxy?

    my $hybrid_kludge;
    if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11802	11898	
==>001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11802	11898	
==>001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2478	2596	
==>= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatever separat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2478	2596	
==>= $directory;
    # If the volume is not just A:, make sure the glue separator is
    # there, reusing whatever separat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16994	17117	
==>s undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16994	17117	
==>s undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1967	2063	
==>tor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

= <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1967	2063	
==>tor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

= <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	18	153	
==>t;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	18	153	
==>t;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Set role, and a Set::Hash and
# Set: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2043	2178	
==>e, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2043	2178	
==>e, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9964	10061	
==>fy()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets numer <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9964	10061	
==>fy()`

Return a string representation of the set.

- `compare( $object )`

Compares the sets numer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11026	11137	
==>']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11176	11287	
==>']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*? <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	879	985	
==>elf->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{admin}->i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2714	2811	
==>elf->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{admin}->i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12845	12989	
==>=> $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12845	12989	
==>=> $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	543	650	
==>ol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	543	650	
==>ol;

has @!parts;

multi submethod BUILD (HTTP::Headers $header, Str $content = "") {
    $!headers = $heade <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2309	2423	
==>y $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'arr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2309	2423	
==>y $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'arr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13284	13426	
==>if isrange goto addrange
    charlist .= $S0
    goto scan
  addrange:
    isrange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13321	13417	
==>::Example $other!) returns Relation::Example {

    die "The relation in $other has attributes in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22026	22125	
==>etch the user message for a certain code, it
returns the first one it finds.  This also works for th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22026	22125	
==>etch the user message for a certain code, it
returns the first one it finds.  This also works for th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3104	3220	
==>ct) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3650	3766	
==>ct) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	338	443	
==>n tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> trie <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	338	443	
==>n tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> trie <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1214	1311	
==>dir->file( $self->config->_registered_alternatives );
}

=head2 $file = $inst->available_file

=cu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	165	360	
==>f = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1)                if $args{si <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	230	391	
==>f = shift;
    my %args = (
        meta => 1,
        sign => 0,
        inline => 0,
        check_nmake => 1,
        @_
    );

    $self->sign(1) if $args{si <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5054	5174	
==>del and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5054	5174	
==>del and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engin <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1696	1792	
==>t(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of information <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1696	1792	
==>t(Num $rate, Int $burst_size)

The constructor takes as parameters at least C<rate of information <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6006	6105	
==>hanging the 
actual semantics.

Please note that most of the time, it will not be necessary to write <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6006	6105	
==>hanging the 
actual semantics.

Please note that most of the time, it will not be necessary to write <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	401	502	
==>gs
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for crypt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	401	502	
==>gs
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for crypt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18766	18872	
==>ment and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18766	18872	
==>ment and optional
$parent_node though; you can produce a direct clone like this:

    my $cloned_node = Ros <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19886	19997	
==>:Run::OnPerl5::X1::CodeCompile->new(p6_file=>$fn)->get_p6_file;
    p6_eval($cc->as_p6);
}


my %macros;
sub p6_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	324	426	
==>sion of inc::Module::Install
#     3. The installed version of inc::Module::Install loads
#     4. inc: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17485	17582	
==>tes on functions:

regexp* regcompp (pTHX_ char* exp, char* xend, PMOP* pm)

what is pm?
XXX finis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3090	3335	
==>?     # $?CALLER
        \*?     # $*x
        # \.?     # $.x  - XXX causes problems with 1..5 for some reason
        \:?     # $:x
        [
            [ \:\: ]?
            [ _ | <?alnum> ]+
        ]+
    |   <before \< | \[ | \{ >   # $<th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1236	1371	
==>\\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1236	1371	
==>\\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6295	6394	
==>licates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6295	6394	
==>licates, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a U <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3101	3214	
==>RE{balanced}{-parens=>'{}'})\n/sg){
    my ($n, $c) = ($1, $2);
    $c =~ s/^\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	333	456	
==>{
        *{"$class\::$method"} = sub {
            shift()->_top->$method(@_);
        } unless defined &{"$class\::$method <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	840	939	
==>minally:
  1- Provide an environment in which p6 rules can be run against strings,
  sufficient to p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13685	13808	
==>);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7892	8015	
==>);
  });

  # ascii POSIX class
  $self->add_handler('POSIX_ascii' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3471	3666	
==>KT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3471	3666	
==>KT_ARG_HASH_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	429	556	
==>_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	429	556	
==>_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filt <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1183	1326	
==>) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($tex <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1183	1326	
==>) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($tex <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5460	5582	
==>%pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Bind( $t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2557	2666	
==>rl block with placeholder parameters
    Package     Perl 5 compatible namespace
    Module      Perl 6 standa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17051	17173	
==>k;

        my($fmt_top, $fmt) = _create_fmts($failedtests);

        # Now write to formats
        for my $script (sort k <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3119	3228	
==>$name>.  If called in List context,
it will return a list of values.  Otherwise, it will return the first valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3119	3228	
==>$name>.  If called in List context,
it will return a list of values.  Otherwise, it will return the first valu <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1217	1313	
==>ng", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, wh <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1217	1313	
==>ng", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, wh <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4019	4147	
==>ool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4019	4147	
==>ool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11968	12082	
==>$debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11968	12082	
==>$debug_raw;
      # We record the time the last traffic from the server was seen, so we can
      # autoping the se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6215	6328	
==>TP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6215	6328	
==>TP::Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1544	1678	
==>n the superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Clas <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1749	1883	
==>n the superclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35017	35141	
==>,
      branch => 1,
    }, $class;
    return $self;
  }

We inherit the merge() method defined in F<Regexp::Parser::branch> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3520	3620	
==>my $self = $class->SUPER::new;
	$self->{name} = shift;
	$self;
}

package type::operator::binary;
use <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2013	2107	
==>atch succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2013	2107	
==>atch succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lexically <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23724	23812	
==>osetta::Engine::Example> is bundled with Rosetta and
implements a reference implementatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23724	23812	
==>osetta::Engine::Example> is bundled with Rosetta and
implements a reference implementatio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3442	3542	
==>edText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3442	3542	
==>edText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2367	2469	
==>port(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2367	2469	
==>port(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10622	10730	
==>are used for backtracking.

A "ruleop" function gets some arguments and returns a "rule".

=cut

=for l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	836	954	
==>ot Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	836	954	
==>ot Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authentication R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3521	3649	
==>e closure
    $/()  
        just the capture - what's returned in { return ... }
    $/0
        the first submatch
Alternate na <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5999	6180	
==>onst \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5999	6180	
==>onst \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5872	5988	
==>x->compile( q(
            #~ <Pugs::Grammar::Term.bareword>
            #~ { return { method => $/{'Pugs::Grammar::T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15677	15776	
==>hould be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15677	15776	
==>hould be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header f <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1551	1654	
==>Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::F <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1551	1654	
==>Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12286	12398	
==>or(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(any <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4929	5041	
==>or(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(any <==
2	/Users/nnunley/pugs/util/importgraph.pl	1679	1781	
==>mod}->[$type] = $name;
    print "Adding $mod to $name\n";
  }
}
sub setup_cluster { setup_mod(2, @_) } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8399	8503	
==>s/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8399	8503	
==>s/her nick. Rename his/her entry in %users, and update
  # all %channels he/she has joined.
  %handler<NI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8683	8809	
==>magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8683	8809	
==>magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to co <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1605	1723	
==>eturn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for st <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1605	1723	
==>eturn 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/lib/;
    my @files = $f.find;

    # debug attribute for st <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4549	4748	
==>token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4549	4748	
==>token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8663	8769	
==>d comes into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8663	8769	
==>d comes into play
# it will recurse down the tree and fix the
# depth fields appropriately.
# This method i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7835	7966	
==>{ return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8028	8159	
==>{ return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24113	24249	
==>@'>
    | <'&'>
    | <'='>
    | <'+'>
    | <'$'>
    | <','>
}
rule uriUnescaped {  # see 15.1.3
      <uriAlpha>
    | <DecimalDigit> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	305	414	
==>"bad attribute name ($name)";
    $class->SUPER::new($name, $type);
}

sub instantiate_container {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2096	2214	
==>c, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2154	2272	
==>c, $todo, $got, $expected, $depends, :negate);
}

## eval_ok

sub eval_ok (Str $code, Str $desc?, :$todo, :$depends) re <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9560	9749	
==>hen "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) } <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9560	9749	
==>hen "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) } <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6647	6798	
==>s]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6704	6855	
==>s]e|licensing|copyright|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	953	1056	
==>::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	953	1056	
==>::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression
class Perl::Co <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2423	2559	
==>>perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3381	3516	
==>>perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6883	6993	
==>ptimization - return the internal list object, if there is one
    return Perl6::Value::List.new(
            c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6883	6993	
==>ptimization - return the internal list object, if there is one
    return Perl6::Value::List.new(
            c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8089	8215	
==>ined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8147	8273	
==>ined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14250	14345	
==>method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14250	14345	
==>method who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1911	2012	
==>n unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1834	1933	
==>n unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19827	19934	
==>>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It is the standar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19827	19934	
==>>

I was inspired to have this organization partly by how Mac OS X manages its
resources.  It is the standar <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5637	5755	
==>TokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5637	5755	
==>TokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	30	135	
==>lass HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	30	135	
==>lass HTTP::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_h <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8814	8922	
==>.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normal <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8814	8922	
==>.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normal <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5059	5219	
==>= Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5059	5219	
==>= Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3075	3176	
==>n, the following request headers are set on the HTTP::Headers object,
if they are present:

=over 8

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3075	3176	
==>n, the following request headers are set on the HTTP::Headers object,
if they are present:

=over 8

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4046	4169	
==>> 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4186	4309	
==>> 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    my $s = $_[0];
    $s =~ s/\\/\\\\/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5566	5708	
==>ined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5788	5930	
==>ined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1541	1720	
==>error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $deps    = $struct->{depends};
    
    pr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	316	454	
==>error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1912	2012	
==>) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subse <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1912	2012	
==>) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	12	110	
==>ugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	12	110	
==>ugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP::Message <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	557	648	
==>->{dups}->insert($node);
	} else {
		$self->{seen}->insert($node);
		$self->SUPER::generic_r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2372	2513	
==>) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); '' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2372	2513	
==>) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); '' <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3384	3502	
==>s
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3384	3502	
==>s
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20135	20248	
==>is in a separate file, and adding a localization to a Mac OS X
program is as simple as adding a language file to t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20135	20248	
==>is in a separate file, and adding a localization to a Mac OS X
program is as simple as adding a language file to t <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1408	1594	
==>:Container::Scalar->new;
                    $self->hash_storeElem($idx, $c);
                }
                $c;
            },
            hash_fetchVal => sub {
                my $s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1341	1434	
==>ted C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1341	1434	
==>ted C<Result> object.  If the parser
fails, it tail-calls $result.backtrack()().  Backtracking <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22859	22950	
==>g.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22859	22950	
==>g.>

=head2 The Rosetta::Interface::Variable Class

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1535	1733	
==>te($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1535	1733	
==>te($0, %events);
                        %events<end_element>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8344	8468	
==>ath/parrot" and
      -M $initrd_gz <= -M $linuxrc and
      -M $initrd_gz <= -M $bash and
      -M $initrd_gz <= -M $inputrc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13428	13533	
==>==(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13428	13533	
==>==(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6860	6962	
==>ert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6860	6962	
==>ert siblings to a ROOT tree";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6116	6236	
==>urn @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6116	6236	
==>urn @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28524	28650	
==>arness tests itself

  $ cd ~/src/devel/Test-Harness
  $ perl -Mblib -e 'use Test::Harness qw(&runtests $verbose);
    $verbose <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19024	19149	
==>tion( $other!body ),
    );
}

my method _semijoin (Relation::Example $other!) returns Relation::Example {
    return Relation <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	503	601	
==>content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	503	601	
==>content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Headers $he <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4568	4689	
==>hod splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4568	4689	
==>hod splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6047	6181	
==>_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6047	6181	
==>_[1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2222	2325	
==>args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2200	2303	
==>args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1648	1776	
==>ex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

rege <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1648	1776	
==>ex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

rege <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8466	8583	
==>ment()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8466	8583	
==>ment()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An object representing an infinite recurrenc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8430	8535	
==>rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing_group {
    return "$_[1] ruleop::captur <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	965	1068	
==>die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoord!\n" unless $topic <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11049	11189	
==>sult ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11049	11189	
==>sult ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_en <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14214	14313	
==>callback routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the call <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14214	14313	
==>callback routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the call <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13965	14075	
==>t but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13965	14075	
==>t but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2763	2848	
==>perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.co <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2763	2848	
==>perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.co <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1145	1250	
==>r loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $I <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2985	3090	
==>r loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $I <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1101	1198	
==>returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1101	1198	
==>returns Str>

=item B<auth_type returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8357	8493	
==>t: ", Dumper( $n );
    
    if ( $n->{op1}{stmt} eq 'if'     || 
         $n->{op1}{stmt} eq 'unless' ) {
        return  " " . $n-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	853	1001	
==>shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1823	1977	
==>curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1823	1977	
==>curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4448	4554	
==>.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4448	4554	
==>.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1763	1871	
==>y be abbreviated to uniqueness.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug($) {
    my $msg = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12377	12472	
==>) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12435	12530	
==>) returns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1037	1296	
==>$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1037	1296	
==>$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell::L::en <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4158	4327	
==>tep);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4158	4327	
==>tep);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13870	13987	
==>$cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13864	13981	
==>$cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5202	5360	
==>.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5202	5360	
==>.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for @dirl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14988	15089	
==>.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able to han <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15046	15147	
==>.
The plan currently is to implement this as a mutually recursive multi-
sub which will be able to han <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1872	2018	
==>return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not ye <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1872	2018	
==>return $code ~~ rx:perl5/^2/;
    # }
    # if (want.Int) {
    #  return $code
    # }
    #say $code;
    #say $head;

    # XXX want() is not ye <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5833	6010	
==>="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5833	6010	
==>="$path") if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4185	4406	
==>'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4185	4406	
==>'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	707	871	
==>n lvalue context as a list
                my $self = shift;
                my $repl = shift;
                @{$self->get_value('@:slots')} = @$repl;
            } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8442	8586	
==>./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8442	8586	
==>./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = open($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	125	235	
==>l6::Core::Nil;
use Perl6::Core::List;

package hash;

use strict;
use warnings;

use Carp 'confess';
use Scalar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3077	3231	
==>)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2959	3104	
==>)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        ta <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	724	824	
==>e slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	724	824	
==>e slice of content in a Perldoc
DOM tree.

It has one property - content.

The constructor for this c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1732	1843	
==>e::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1732	1843	
==>e::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21643	21741	
==>ue'><no_LineTerminator_here><Identifier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      <' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3233	3384	
==>=> [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/right/non/chain/l <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10842	10934	
==>ass undefined") if !defined $class;
	$code = ("(p6_meta('$class')".
		 "->add_method($namestr <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1225	1332	
==>( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath( <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1225	1332	
==>( File::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3175	3288	
==>get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4024	4137	
==>get_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18977	19149	
==>'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19256	19428	
==>'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2786	2893	
==>($new_source)>

Returns the representation of this node in the original text, or at
least a valid representa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2786	2893	
==>($new_source)>

Returns the representation of this node in the original text, or at
least a valid representa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10952	11052	
==>{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11381	11481	
==>{maxpar} : ++$S->{nparen};
    push @{ $S->{flags} }, &Rf;
    return $S->object(open => $S->{nparen} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4142	4243	
==>span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4142	4243	
==>span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $self.start == -Inf || $self. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4712	4819	
==>ure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4712	4819	
==>ure we've registered them as people who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nick <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	563	674	
==>ead = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $la <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	563	674	
==>ead = @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $la <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18135	18242	
==>C822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18135	18242	
==>C822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standar <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11443	11544	
==>ta) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until obje <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11443	11544	
==>ta) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until obje <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	887	1208	
==>62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	887	1208	
==>62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	787	973	
==>xt
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	787	973	
==>xt
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1324	1446	
==>sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1312	1434	
==>sigspace = $param->{sigspace};   # XXX - $sigspace should be lexical
    return 
        "sub {\n" . 
        "  my \$gramm <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	0	120	
==>module CGI::Remote-0.0.1;
use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> | <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	0	120	
==>module CGI::Remote-0.0.1;
use v6;

sub remote_host     returns Str is export { %*ENV<REMOTE_HOST> || %*ENV<REMOTE_ADDR> | <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	292	394	
==>[\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	292	394	
==>[\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\@]\^(?:[_[: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7269	7406	
==>refix:<$id>'} = sub {\n" .
                "    my \$rule = ruleop::concat( \n" .
                "        ruleop::constant( '$prefix:<$id <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4646	4746	
==>- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    return $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4646	4746	
==>- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    return $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	330	462	
==>ck => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	330	462	
==>ck => 1,
);

# unused!
sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

sub from  {  ${${$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16231	16340	
==>ible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] > <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12652	12761	
==>ible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< cce] cc cc] > <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8734	8855	
==>]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8722	8843	
==>]       #unshift \@{ \$match[\$index{$rnd}] } unless \$bool;
$_[1]     }
$_[1]     \$bool;
$_[1] }";
}        
sub named_c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	651	744	
==>amed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Remov <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	651	744	
==>amed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Remov <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4738	4839	
==>y 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified function na <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4738	4839	
==>y 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use a fully qualified function na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2801	3005	
==>hed.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } el <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3018	3222	
==>hed.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } el <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23784	23882	
==>mes.  Locale::KeyedText is generally a simpler solution
than alternatives, and doesn't know about l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23784	23882	
==>mes.  Locale::KeyedText is generally a simpler solution
than alternatives, and doesn't know about l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18398	18504	
==>s are in exactly the right input
format for Node.new(), by which you can create an identical Node (with
chi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18398	18504	
==>s are in exactly the right input
format for Node.new(), by which you can create an identical Node (with
chi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9049	9149	
==>t or end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open() <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9049	9149	
==>t or end value of the set.

These methods may return nothing if the set is empty.

- `start_is_open() <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2315	2432	
==>ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<R <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2315	2432	
==>ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI>     = $uri;
    %*ENV<R <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12455	12558	
==>n.
This class implements both types of spans.

- Discrete span

This is used to represent ranges of thin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12455	12558	
==>n.
This class implements both types of spans.

- Discrete span

This is used to represent ranges of thin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20633	20730	
==>rogram
in the order you chose so to pick a supported language closest to your
preference.  Presuma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20633	20730	
==>rogram
in the order you chose so to pick a supported language closest to your
preference.  Presuma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5083	5186	
==>des($node);
}

sub reduce_thunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equi <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14473	14568	
==><pairs> a C<Pair(key, value)>.

Note that C<kv %hash> returns the same as C<zip(keys %hash; valu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1257	1360	
==>compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1257	1360	
==>compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	785	894	
==>IL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	785	894	
==>IL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16398	16494	
==>rum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16456	16552	
==>rum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. All rights reserved.

This program <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7865	8003	
==>=> chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7865	8003	
==>=> chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33445	33550	
==>countered
with unshift().  The two code references are used to go deeper and
shallower in scope; C<sub { - <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3097	3218	
==>turn \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3097	3218	
==>turn \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39850	40005	
==>e_object(exact => "y");
    }
    else {
      # ...
    }
  });

Also note the C<RPe_BADESC> warning takes two arguments: the character
that was unexpected <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29337	29456	
==>n have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOO <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29337	29456	
==>n have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MYAPP_GOO <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3709	3805	
==>set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3709	3805	
==>set1.recurrence.intersection( $set2.recurrence );
    @intersect = @intersect.map:{ $set1.new( re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20151	20253	
==>pletely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to maint <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20151	20253	
==>pletely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to maint <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	162	289	
==>rt_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	162	289	
==>rt_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10079	10218	
==>' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      return $S->$n;
    }

    return $S->object(bol = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	71	211	
==>eck           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::Repository;

use b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	73	197	
==>eck           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
use Data::Dumper;

use JIB::In <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	746	888	
==>=> $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	746	888	
==>=> $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special_char {
        \\ .

        { return { special_char => $(), } } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2027	2138	
==>:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2116	2227	
==>:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / object.

* Grammars

=item * L<Pug <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13047	13154	
==>tringify()`

Return a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= A <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13047	13154	
==>tringify()`

Return a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= A <==
2	/Users/nnunley/pugs/util/grokprims.pl	1302	1413	
==>= "\$$a0.$name(".join(', ', map {"\$$_"} @{$op->{args}}[1..$arity-1]).")<br />";
    }
    $example .= "$name(". <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	773	883	
==>};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDIR or die "Couldn't chdir into \"@{[ BASEDIR ]}\": $!\n";

my $CGI = C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4792	4968	
==>$sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that sa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5256	5432	
==>$sorted[0];
                
        
            ### OR dependency
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {

                ### do we have something that sa <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	877	1000	
==>n) || $n-- > 0) {
    ## XXX - what's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	45	149	
==>_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	45	149	
==>_name     returns Str is export { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33168	33265	
==>a
message, the corresponding Template modules will be searched in the order
they appear in this ar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33168	33265	
==>a
message, the corresponding Template modules will be searched in the order
they appear in this ar <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	886	1089	
==>ts<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	886	1089	
==>ts<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	706	822	
==>ift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	706	822	
==>ift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".."
    if @end[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7696	7849	
==>e', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { clos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7889	8042	
==>e', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { clos <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2776	2899	
==>sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1398	1521	
==>sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17913	18030	
==>_ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $method (@methods) {
        local($!, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10801	10951	
==>f;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autopi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10801	10951	
==>f;
        $curusername    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autopi <==
2	/Users/nnunley/pugs/util/grokprims.pl	1406	1501	
==>$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{args}}) .")";
  } elsif (/(list|chai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6502	6622	
==>$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6502	6622	
==>$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7855	7987	
==>0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($g <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7913	8045	
==>0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Test::diag("    Actual: '" ~ ($g <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6812	6933	
==>code($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($val <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6812	6933	
==>code($key);
        if (%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($val <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10655	10763	
==>- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Inc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10655	10763	
==>- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Inc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3762	3887	
==>e( $obj->registered_alternatives_file ) 
            };
            $@ and error( "Could not load registered alts file: $@" ), <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23140	23249	
==>he value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27692	27801	
==>he value of every tuple in Body must be
mutually distinct.

=item C<$!is_mutable> - B<Relation Is Mutable>

Bo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14917	15073	
==>f $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    }, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14917	15073	
==>f $connected {
        if defined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    }, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5482	5597	
==>self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5482	5597	
==>self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (can also <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9378	9473	
==>set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9378	9473	
==>set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

Retu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5201	5320	
==>lded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5201	5320	
==>lded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1962	2109	
==>ose;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        war <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1940	2087	
==>ose;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        war <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32472	32565	
==>d2 The Locale::KeyedText::Translator Class

While a Translator object stores some attributes f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32472	32565	
==>d2 The Locale::KeyedText::Translator Class

While a Translator object stores some attributes f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4935	5033	
==>ng(\@tokens,1,@_) }
sub def_whitespace { def_thing(\@whitespaces,1,@_) }
sub def_statement  { def_t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4505	4649	
==>rint "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4727	4871	
==>rint "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { u <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	801	898	
==>gs project was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenod <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	801	898	
==>gs project was started on February 1st 2005.  It is under active
development on IRC (C<irc.freenod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15335	15443	
==>ink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must be a subref that tests the first argument
# for suc <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	678	774	
==>nce macro rxmodinternal:<x> etc works.

#rule name { <?Perl6.name> }
#rule code { <?Perl6.prog> } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8491	8598	
==>name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6027	6132	
==>name of this operator, such as '+', '*'

=item * name2 => $operator_name - the name of the second operator <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4778	4918	
==>ncat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4778	4918	
==>ncat 1, tree:", Dumper($_[2]) if defined $_[2];

            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23404	23499	
==>a::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23404	23499	
==>a::Model>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

These documentation files <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23082	23179	
==>s, with the other packages like "gettext" it looks like you
are supposed to pass in english text a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23082	23179	
==>s, with the other packages like "gettext" it looks like you
are supposed to pass in english text a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2614	2734	
==>od union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2614	2734	
==>od union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	49	145	
==>ion in the __END__
use 5.006;
use strict;
use warnings;
use Module::Compile-base;
use File::Basen <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10220	10315	
==>/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http://svn.openfoundry.org <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	437	552	
==>arness::Straps - detailed analysis of test results

=head1 SYNOPSIS

  use Test::Harness::Straps;

  my $strap = Tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11300	11415	
==>&RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{nparen};
    push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5200	5312	
==>0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2742	2854	
==>0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub node <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1153	1266	
==>brule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1164	1277	
==>brule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	593	716	
==>}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	593	716	
==>}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19589	19677	
==>:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19589	19677	
==>:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMP <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6279	6388	
==>graphic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, mos <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6279	6388	
==>graphic core, and a couple attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, mos <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2643	2769	
==>or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2643	2769	
==>or equal to end" if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :star <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8330	8466	
==>eturn emit_rule( $_[0], $_[1] );
    #return "$_[1] ruleop::capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
} <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16626	16745	
==>ts";
        die "FAILED--$tot->{tests} test $blurb could be run, ".
            "alas--no output ever seen\n";
    } el <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9923	10040	
==>child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9923	10040	
==>child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self.parent().fix_width() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6487	6592	
==>' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6487	6592	
==>' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3382	3483	
==>ctor should be hashed with the 
key, not merely appended to it; appending can create precisely the sor <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3382	3483	
==>ctor should be hashed with the 
key, not merely appended to it; appending can create precisely the sor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2790	2937	
==>ule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 sy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2974	3121	
==>ule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturing closure
                    -- perl5 sy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	417	543	
==>:add_rule( $self, %opt,
        fixity => 'infix', 
        name => 'infix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4193	4304	
==>get, $pos )
  {
    goto term_ws;
  }

  $initchar = substr $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^\$." <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	509	620	
==>,
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a cou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	509	620	
==>,
    'MYLIB_MYINV_NO_ARG' => q[Why you little ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a cou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4002	4143	
==>y =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4002	4143	
==>y =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4632	4766	
==>= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4632	4766	
==>= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6123	6244	
==>et_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get sibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6123	6244	
==>et_all_siblings ($self:) returns Array {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get sibli <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12310	12420	
==>y @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/*/*";
  step
    descr  => "Copying PGE to the in <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15321	15444	
==>string at a level higher it can support is handled
without warning. The highest supported level is simply mapped char for
ch <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3719	3835	
==>mport.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when load <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3777	3893	
==>mport.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import error when load <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1491	1600	
==>}
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1491	1600	
==>}
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compiler::PIL::PILPos
    does Perl:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6893	6991	
==>awName) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); }
NODE PT <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2432	2555	
==>) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_ye <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2432	2555	
==>) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_ye <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17022	17137	
==>sage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17022	17137	
==>sage:

    # Declare a unsigned 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1327	1491	
==>Control->parse( $match, { p => 1 } );
            last if ( $m );
            #}
            
            # XXX temporary hack - matching options in 'expected' order <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2462	2582	
==>',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex ac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2462	2582	
==>',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex ac <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16723	16859	
==>=> {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16723	16859	
==>=> {
      my @q = splice @queue;
      while(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	153	270	
==>qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelud <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	226	343	
==>qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie::Prelud <==
2	/Users/nnunley/pugs/util/combine_tests.pl	911	1049	
==>t}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $even <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2249	2375	
==>t}{test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $even <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4207	4303	
==>ch. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4391	4487	
==>ch. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significant. Def <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8755	8868	
==>nt<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8755	8868	
==>nt<object>;
    if %users{$oldnick}<channels> {
      for %users{$oldnick}<channels>.keys {
        %channels{$_}< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11400	11616	
==>, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11400	11616	
==>, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5755	5850	
==>the following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5755	5850	
==>the following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4037	4246	
==>else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            }
        }
    }

    return $x_round;
}

our Int multi Num::round_ceiling ( Num $x ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22330	22426	
==>e(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<No <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22330	22426	
==>e(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destination.

B<No <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12113	12213	
==>> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12113	12213	
==>> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8884	9006	
==>hr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8884	9006	
==>hr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13031	13138	
==>l of this Document's member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13031	13138	
==>l of this Document's member Nodes as a
tree of primitive Perl data structures (hash refs, array refs, scalar <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1605	1730	
==>calar($app->values) - 1; # thunk + params

    $self->enter_scope;

    my $reduced = $self->generic_reduce($app);

    my $re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1797	1896	
==>: $compiled";
	my $safe = $self->annotate($compiled);

	$self->emit($safe);
}

sub provides {
	my $s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4763	4881	
==>"pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TOD <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4763	4881	
==>"pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir returns Str is export {
  return '';
}

#
# ## TOD <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3914	4014	
==>pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3914	4014	
==>pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can either pass in a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4118	4276	
==>>() ,} }
            ) ),
        '&' => Pugs::Compiler::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { code  => "\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20580	20682	
==>vailable over time.  One plan which I favor is that
the new (under development) enterprise-strength and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20580	20682	
==>vailable over time.  One plan which I favor is that
the new (under development) enterprise-strength and <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	695	792	
==>DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - cont <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	695	792	
==>DOM::Text> represents a little slice of content in a Perldoc
DOM tree.

It has one property - cont <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5844	5988	
==>) {
            ### strip the leading dirs from the target so we don't get a silly
            ### deep dir structure
            my $target = $d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	929	1038	
==>elf->emitter->emit(@_);
}

my %cache;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1760	1869	
==>eferences
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5_rule_decl {
    # X <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19689	19789	
==>perset of the Set operators.

Like the Set data type, the Relation data type is immutable.  The value <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24241	24341	
==>perset of the Set operators.

Like the Set data type, the Relation data type is immutable.  The value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12190	12299	
==>may also be called on an instance, but they are not tied to a
    # particular instance
    my method host (HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12190	12299	
==>may also be called on an instance, but they are not tied to a
    # particular instance
    my method host (HT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26792	26916	
==>s, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27071	27195	
==>s, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21330	21420	
==>"JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21330	21420	
==>"JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("loggedin", -E<gt> $event <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5557	5660	
==>etry_after field is dual format (can also be a expressed as
# number of seconds from now), so we don't p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5557	5660	
==>etry_after field is dual format (can also be a expressed as
# number of seconds from now), so we don't p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2261	2365	
==>unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@childr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2261	2365	
==>unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: *@childr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12416	12542	
==>k,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12416	12542	
==>k,
      rest      => strip_colon($rest),
      object    => strip_colon($object),
    };

    if %!handler{$command} {
      $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9341	9442	
==>he "size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration.

I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9341	9442	
==>he "size" of the set.

For example: if `start` and `end` are times, then `size` will be a duration.

I <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2660	2778	
==>if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2660	2778	
==>if $start > $end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start) <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3806	3916	
==>eamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{po <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5166	5275	
==>eamble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{po <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3389	3523	
==>9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        + <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3389	3523	
==>9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        + <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1632	1745	
==>->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_acce <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4598	4722	
==>=> ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    for my $inst <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5083	5196	
==>=> ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10938	11040	
==>'&Foo::singleton_test_on_Foo',
   '... still got the right return value from Foo singleton/class method <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8459	8560	
==>'&Foo::singleton_test_on_Foo',
  '... still got the right return value from Foo singleton/class method <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12606	12707	
==>atures.

This module deals with encoding and decoding of strings with HTML
character entities.  The mo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12606	12707	
==>atures.

This module deals with encoding and decoding of strings with HTML
character entities.  The mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17956	18104	
==>al, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->er <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14377	14525	
==>al, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual) {
          $S->er <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4421	4549	
==>_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . jo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4409	4537	
==>_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] (\n" . jo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30136	30236	
==>sociated with the
Message; this user string may also contain variable names that correspond
to Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30136	30236	
==>sociated with the
Message; this user string may also contain variable names that correspond
to Messag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6949	7076	
==>channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6949	7076	
==>channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan\" by \"$event<from>\" (\"$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13215	13338	
==>rson.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13215	13338	
==>rson.prepare_and_execute();
        }

        # Prompt user for details of 3 people and add them to the database.
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	540	633	
==>Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Examp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	540	633	
==>Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Rosetta::Engine::Examp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4008	4133	
==>atch->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4008	4133	
==>atch->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34725	34820	
==>my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34725	34820	
==>my Locale::KeyedText::Translator $translator2 .= new(
        set_names => ['Foo::L::'], member_ <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	547	664	
==>stack.pop() err die "Stack underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/wh <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3802	3890	
==>).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W, Z) --> p5_ra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6223	6351	
==>_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6223	6351	
==>_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num_precision' => 9 } ]
    );
    my Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3001	3136	
==>tr is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3001	3136	
==>tr is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5894	6007	
==>on of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub spec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5882	5995	
==>on of $name not implemented"
        unless defined $value;

    return call_constant( $value, $_[1] );
}
sub spec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5188	5278	
==>!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.key <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5188	5278	
==>!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}.key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	657	750	
==>n switch condition (?(%.2s';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	359	443	
==>fig>, L<JIB::Installation>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Package::Binary>, L <==
2	/Users/nnunley/pugs/util/func_refact.pl	2010	2115	
==>);
    print "union: while adding $new, entered with $oldsize, leaving with $size\n"
        if $Conf{verb <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	67	170	
==>:Str;
use Perl6::Core::Num;

package bit;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Ut <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39267	39359	
==>e>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39267	39359	
==>e>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16006	16113	
==>be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

T <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16006	16113	
==>be a duration.

- `contains( $object )` / `intersects( $object )`

These methods return a logical value. 

T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8080	8211	
==>greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ go <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7803	7929	
==>greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ go <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5664	5841	
==>inations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5664	5841	
==>inations () returns Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13059	13160	
==>taining all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13059	13160	
==>taining all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	88	210	
==>ame;
use Cwd;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

@ARGV or <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2574	2681	
==>Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2574	2681	
==>Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; retur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10424	10539	
==>turns Void`

If you have some tests which you would like to force into being TODO tests
then you can pass them throu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10482	10597	
==>turns Void`

If you have some tests which you would like to force into being TODO tests
then you can pass them throu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	107	221	
==>> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	107	221	
==>> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2220	2323	
==>ps?



I propose: no lib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2139	2239	
==>ps?

I propose: no lib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	6	113	
==>e Pugs::Runtime::RuleInline;

# - fglock
#

# this is a program prototype
# see Pugs::Emitter::Rule::P <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2443	2558	
==>working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2443	2558	
==>working version of File::Spec for use as we develop 
Pugs. 

= LIMITATIONS & CAVEATS

Since we don't yet have object <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2436	2571	
==>mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, ci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2436	2571	
==>mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, ci <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1582	1685	
==>ostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1582	1685	
==>ostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, Str $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10537	10648	
==>islazy"] = islazy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, "Error in closure qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8271	8399	
==>mented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "statement: ", Dumper( $n );
    
    if ( $n->{op <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18512	18640	
==>REBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18512	18640	
==>REBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these bloc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1936	2068	
==>mber($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1936	2068	
==>mber($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2102	2307	
==>rgs.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2102	2307	
==>rgs.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8812	8930	
==>rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "ran <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8812	8930	
==>rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "ran <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2416	2548	
==>ific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2416	2548	
==>ific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30953	31046	
==>nal's attributes; the new Relation::Example has as
many additional attributes as there are pai <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1053	1149	
==>::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1053	1149	
==>::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9884	9978	
==>ain phases, which
are referred to as "immediate" and "deferred".  The immediate validations
are <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9884	9978	
==>ain phases, which
are referred to as "immediate" and "deferred".  The immediate validations
are <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	703	814	
==>,            # Set max burst to 5
  MAX_SMOKES_OF_SAME_CATEGORY => 5,
};
$CGI::POST_MAX = MAX_SIZE;
chdir BASEDI <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10216	10327	
==>re_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	429	543	
==>.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anyw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	429	543	
==>.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, \''.$const.'\' }
    : 0
)'
}
sub constant_anyw <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11314	11417	
==>)))
     ($class: send (bless (NIL ?%params)))))

=cut

$::Class->send('add_method' => (
    # method la <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6614	6721	
==>or (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
}


# Generating error.html
my $error_file = catf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12850	12961	
==>ase
refer to L<perldiag> for the explanations of the messages.

These are all constants in the F<Regexp::Parser> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14796	14895	
==>s_hash_complain->("non_numeric") },
      scalar_numeric     => sub { $as_hash_complain->("scalar_nu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11640	11757	
==>od reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOP <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11640	11757	
==>od reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SYNOP <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	304	404	
==><pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	304	404	
==><pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	868	990	
==>old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	868	990	
==>old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6479	6594	
==>hich it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6479	6594	
==>hich it uses to process each line of the file.

=back

=head1 EVENTS

=head2 Document Events

=over 4

=item I<start <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1269	1376	
==>ammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1269	1376	
==>ammar->add_rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo-> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3781	3950	
==>--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.per <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3781	3950	
==>--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18940	19119	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19219	19398	
==>onal(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'code', \&{'grammar1::code'} )
       ,
       )
    ;
        my $match = $rule- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	751	853	
==>w($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	751	853	
==>w($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
print $output_fi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13817	13990	
==>d_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13817	13990	
==>d_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 people and fetch them f <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2154	2453	
==>-> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2154	2453	
==>-> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                whe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	25	127	
==>Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	25	127	
==>Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1088	1211	
==>two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./strin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1088	1211	
==>two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./strin <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3624	3764	
==>lse {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3624	3764	
==>lse {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3255	3344	
==>ipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3255	3344	
==>ipher.decipherer(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11650	11755	
==>ush('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11650	11755	
==>ush('secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34157	34255	
==>s method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38707	38805	
==>s method has aliases
named C<minus> and C<except>.

=item C<semidifference (Relation $other!) retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1124	1224	
==>d using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a b <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1124	1224	
==>d using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1446	1618	
==>1 => \$_[1], exp2 => \$_[3],} } \n" . 
        "\t | exp 'name' 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', op1 => \$_[2], op2 => \$_[3], exp1 => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8293	8546	
==>Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8293	8546	
==>Model::Node

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model -
Abstract syntax tree for the Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6445	6556	
==>n $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ----- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6445	6556	
==>n $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- internals ----- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7072	7185	
==>elf.header("Content-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7072	7185	
==>elf.header("Content-Language") }
method content_length ($self: )            is rw { $self.header("Content-Length") <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14852	14954	
==>E $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14852	14954	
==>E $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $chann <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24171	24291	
==>{
        push @result, "FAILED test $last\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27565	27652	
==>2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Regexp::Parser::__object_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1848	1973	
==>rl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1848	1973	
==>rl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtyp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24360	24458	
==>est they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24360	24458	
==>est they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	986	1090	
==>nless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	986	1090	
==>nless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    return if $.width > <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1204	1356	
==>s should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi su <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1204	1356	
==>s should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi su <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4612	4741	
==>ac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4612	4741	
==>ac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1195	1312	
==>$tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.prev <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1195	1312	
==>$tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.prev <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6040	6164	
==>) if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.def <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6040	6164	
==>) if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $base;
        if ((!$_base.def <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13487	13587	
==>set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_differe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13487	13587	
==>set minus) is not the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_differe <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	481	581	
==>is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub conten <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	481	581	
==>is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub conten <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17994	18092	
==>(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(Re,Min,F0,Fx, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29799	29916	
==>_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29799	29916	
==>_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2689	2904	
==>ix
                     ([\w-]+?)  -   # the package name
                     ([\d.]+)   -   # the version
                     (\w+\+\S+) $   # the authority
                /smx;
                
        sub packa <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9447	9628	
==>Val->new(''),
            ),
            App->new(
                Sym->new('&say'),
                App->new(
                    Sym->new('&infix:</>'),
                    App->ne <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2553	2673	
==>ans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2553	2673	
==>ans;
    while @a && @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22142	22242	
==>o C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC ope <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22142	22242	
==>o C<#chan>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC ope <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	111	215	
==>ng stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	111	215	
==>ng stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings;

our <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4627	4727	
==>t > 1+2+2 + 2 * r->nparens) {
        fprintf(stderr,"regexp_hook_exec failed - paren info broken\n") <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	405	527	
==>r $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

metho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	405	527	
==>r $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6280	6467	
==>) >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" ! <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6338	6525	
==>) >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" ! <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1857	1949	
==>c::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative b <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1857	1949	
==>c::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informative b <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4436	4619	
==>( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    me <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4436	4619	
==>( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop },
                    celems => sub{ +@list },
                    is_lazy => Bool::False );
    }

    me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2732	2864	
==>pture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6ws_star {

    #return unl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2627	2753	
==>pture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6ws_star {
    #return unl <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11185	11286	
==>example, if a backend only ran three tests, which it
    passed, this page would report 100 % test pas <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12858	12953	
==>grated &prefix:<=> from
# meaning the same as &readline to $obj.shift(), ="some_file" worked, so <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	702	824	
==>0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	702	824	
==>0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1358	1469	
==>rams ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> / <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1358	1469	
==>rams ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> / <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3261	3390	
==>ss' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_inst <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3975	4084	
==>ss' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_inst <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8177	8278	
==>epth available for various reasons
# of convience. Sometimes that depth 
# field is not always correct <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8177	8278	
==>epth available for various reasons
# of convience. Sometimes that depth 
# field is not always correct <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25362	25457	
==>on $other!) returns Bool>

This method returns the complement of C<equal> with the same argument <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29914	30009	
==>on $other!) returns Bool>

This method returns the complement of C<equal> with the same argument <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1728	1853	
==>elp
    Show this help.

Options may be abbreviated to uniqueness.
USAGE

# Nice debugging output.
{
  my $fresh;
  sub debug( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2014	2131	
==>= shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $self->{params} a <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14534	14650	
==>= shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $self->{params} a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5891	6027	
==>$self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub au <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6383	6516	
==>$self->perl_version($1);
    }
    else {
        warn "Cannot determine perl version info from $file\n";
        return;
    }
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20843	20944	
==>ack, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20843	20944	
==>ack, but the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6687	6794	
==>ocument identified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6687	6794	
==>ocument identified by a URL and stores it in the file. The
return value is the HTTP response code.

=item mi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1530	1627	
==>nterface is good enough for many purposes.  
Although the interface is said to be procedural, it i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1530	1627	
==>nterface is good enough for many purposes.  
Although the interface is said to be procedural, it i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2428	2538	
==>{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\~\>' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2428	2538	
==>{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\~\>' ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9594	9721	
==>ected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!). <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9594	9721	
==>ected++;
      $.last_traffic  = time;
      $.last_autoping = time;
      debug "done.";
    } else {
      debug "failed ($!). <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2577	2700	
==>rect?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2577	2700	
==>rect?
  }

  return $c;
}

# XXX Str where { .length > 0 }
my method header (Str $field is copy, Str $val is copy, Str $op = <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1578	1724	
==>unless $ccset->{$_};
                $ccset->{$_} = 1;
            }
        }
    }
    $ccset;
}

sub ::Y { require YAML; YAML::Dump(@_) }
sub :: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4583	4680	
==>(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4583	4680	
==>(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2656	2762	
==>akes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3120	3226	
==>akes the metadata object of 1 package, and returns a list of
    ### its dependencies
    sub list_dependen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1108	1229	
==>ion Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupporte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1108	1229	
==>ion Failed',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupporte <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5004	5109	
==>::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $position = $operator->to();
  g <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1260	1418	
==>}
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub a <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4006	4116	
==>rt, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4006	4116	
==>rt, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4576	4726	
==>$match },
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
}

sub positional {
    # return a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14715	14804	
==>erse(eos,bos).
re_reverse(bol,eol).
re_reverse(eol,bol).
%# XXX - captures in reverse dont <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5385	5504	
==>p6_range_bounds_RHS(Min ,Min) --> {true}.



p5_elemental(group(R))            --> "(?:",  !, p5_start(R), ")".
p5_eleme <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2598	2705	
==>s_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2598	2705	
==>s_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    return $universe if $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34529	34638	
==>s (an array ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34529	34638	
==>s (an array ref).

Some example usage:

    my Locale::KeyedText::Translator $translator .= new(
        set_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2705	2888	
==>ary
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_te <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2705	2888	
==>ary
    }

    return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_te <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars2.pl	244	346	
==>a[0]";
#=Hashes
Perl 5: my %hash = {a=>'b'}; print "nach a kommt $hash{a}";
Perl 6: my %hash = {a=>'b'} <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5048	5144	
==>u should use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5048	5144	
==>u should use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	610	742	
==>rce };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = dele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	772	904	
==>rce };

    #print Dumper @_;

    # XXX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = dele <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23976	24065	
==>gs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

= <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23976	24065	
==>gs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33286	33407	
==>>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Family: anchor

Types: gpos (C<\G>)

=head2 eol

Family: anchor

Types <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2651	2876	
==>uote
                    unless ( $whitespace_before ) {
                        $m = Pugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11839	11934	
==>ter's name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL LETTER R" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	750	849	
==>volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	750	849	
==>volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { canonpa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	196	439	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $ind <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	196	439	
==>rgs) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $ind <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3311	3419	
==>$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3311	3419	
==>$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my method sorted_field_names () {
  return %!h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1534	1661	
==>rver Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1534	1661	
==>rver Error',
        501 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	103	218	
==>B::Package;

use File::chdir;
use File::Basename          qw[basename];
use File::Temp              qw[tempdir];
use <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19174	19285	
==>gar. F. Codd, upon which anything in the world can
be modelled.

A relation is essentially a set of mappings, or <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2996	3198	
==>nclass->superclass(
                        ::opaque_instance_class($attrs{'$:superclass'})
                    );                
                }
                else {
                    $eigenclass <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7410	7532	
==>t )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `revers <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7410	7532	
==>t )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain "Lazy" lists.

- `shift`

- `revers <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21181	21276	
==>ll your
module distribtution do not need to have the compilers installed
themselves. So you don' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21181	21276	
==>ll your
module distribtution do not need to have the compilers installed
themselves. So you don' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9912	10009	
==>d_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9912	10009	
==>d_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect metho <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10065	10200	
==>e file open. Unlike perl5 open, it isn't very dwimmy.

    ### XXX: NOTE ###
    # this is intended to eventually replace Prim.hs's open <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	63	163	
==>'0.06';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5469	5585	
==>' flag and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5294	5407	
==>' flag and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	53079	53167	
==>Class->send('name'   => str->new('Class'));
$::Object->send('name'  => str->new('Object') <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2246	2361	
==>start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2246	2361	
==>start> };
        if defined( %param<after> )  { $start = %param<after> + $density };
        if defined( %param<end <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4443	4577	
==>wn problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:p <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4443	4577	
==>wn problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12910	13007	
==>d names then it is generally not
possible to tell which of the returned values belonged to which f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12910	13007	
==>d names then it is generally not
possible to tell which of the returned values belonged to which f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7760	7880	
==>ure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculatin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7760	7880	
==>ure_previous }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculatin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	440	546	
==>ODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	440	546	
==>ODO - change #0 ???
6 - the whole string to match - TODO - unify with $_[0]
7 - argument list - <subrule($x <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2283	2375	
==>unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for}) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2261	2353	
==>unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $args{check_for}) <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	87	217	
==>port {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	87	217	
==>port {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1543	1676	
==>ng ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1543	1676	
==>ng ~~ /<[;&=]>/) {
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1170	1279	
==>tive*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1223	1332	
==>tive*) returns str>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	754	861	
==>try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	754	861	
==>try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8641	8807	
==>" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9476	9642	
==>" .
                "        if \$ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2686	2796	
==>uperset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2686	2796	
==>uperset($self: Set $other) returns Bool {
    my $rv = ($other.proper_subset($self));
    return $rv;
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7149	7244	
==>m I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's accompa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7149	7244	
==>m I<end_element ('header')>

This event is fired after the '=head(n)' directive and it's accompa <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8119	8216	
==>ult,
any further calls to ghc_pkg This method expects to
be called with a path (relative, absolute <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14808	14900	
==>5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14808	14900	
==>5 main attributes:

=over

=item C<$!document> - B<Document>

Rosetta::Model::Document - This <==
2	/Users/nnunley/pugs/util/package-osx.pl	3709	3806	
==>al/man/man3/Perl6::Bible.3pm
        /usr/local/man/man3/Perl6::Bible::A01.3pm
        /usr/local/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6747	6909	
==>$k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6747	6909	
==>$k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19489	19589	
==>.

Standard escapes (C<\a>, C<\e>, etc.) were being returned as I<exact>
nodes instead of I<anyof_cha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6768	6866	
==>ents

For each POD element, an event is fired, the first argument to all these events is
the C<$eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6768	6866	
==>ents

For each POD element, an event is fired, the first argument to all these events is
the C<$eve <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1658	1753	
==>" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file nee <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1498	1593	
==>" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file nee <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3109	3204	
==>iler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tai <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3109	3204	
==>iler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tai <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8484	8605	
==>) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8484	8605	
==>) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	410	524	
==>doc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.loo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	410	524	
==>doc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.loo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	242	346	
==>D($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Repr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	242	346	
==>D($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Repr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	642	751	
==>f->SUPER::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5571	5673	
==>%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $seq <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1523	1630	
==>ubname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <di <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1523	1630	
==>ubname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit> [_* <di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2840	2973	
==>rn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1462	1595	
==>rn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4005	4102	
==>recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4005	4102	
==>recurrence => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurre <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1003	1092	
==>karound\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1003	1092	
==>karound\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9239	9342	
==>ar_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_va <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9239	9342	
==>ar_to_entity.delete("'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_va <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3769	3869	
==>_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3769	3869	
==>_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previous, $self.cl <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2073	2233	
==>@_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pi <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2073	2233	
==>@_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = shift;
    my $pi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8188	8340	
==>$x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8188	8340	
==>$x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1017	1142	
==>R { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1017	1142	
==>R { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6267	6379	
==>ile.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6267	6379	
==>ile.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head1 DESCRIPTION

This is a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6753	6900	
==>lue::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - retu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6753	6900	
==>lue::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38084	38194	
==>d value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a define <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38084	38194	
==>d value if not.

=item C<interpolate_vars_into_template_text( $text!, %msg_vars! )>

This method takes a define <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22782	22880	
==>e the heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27334	27432	
==>e the heading of this Relation.  Each attribute name is a character
string.

=item C<$!body> - B<Re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1978	2092	
==>&& $attr.ReadOnly;
        return JSX::true;
    }
    my $proto = $O.<[[Prototype]]>;
    return JSX::true if $pro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20988	21085	
==>d.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20988	21085	
==>d.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. Currently, there's <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17733	17832	
==>see.

=item *

Zero additional runtime penalty after compilation, because C<perl> has
already been d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17733	17832	
==>see.

=item *

Zero additional runtime penalty after compilation, because C<perl> has
already been d <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5448	5569	
==>s.
            foreach my $piece (qw(name type reason)) {
                $details->{$piece} = defined $result{$piece} ? $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10290	10399	
==>nstant {
    my $literal = shift;
    my $name = quotemeta( match::str( $literal ) );
    return "$_[0] ruleop <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26957	27070	
==>e>
}
rule ClassEscape {  # see 15.10.1
      <DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterC <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6094	6192	
==>::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gma <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6094	6192	
==>::Code.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	698	859	
==>+< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	698	859	
==>+< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	859	963	
==>ackages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	859	963	
==>ackages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attri <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	566	677	
==>t's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code dir <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	566	677	
==>t's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Perl 6 source code dir <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18642	18775	
==>{
	@a = eval($code);
    } elsif(defined $wa) {
	$s = eval($code);
    } else {
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6446	6558	
==>w {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6446	6558	
==>w {
  return Proxy.new(
    FETCH => { @{$self!header("Referer")}[0] },
    STORE => -> $new is copy {
      if ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7499	7609	
==>d.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7499	7609	
==>d.

=item I<start_element ('for')>

This event is fired when a '=for' directive is reached.

=item I<end_elemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3074	3216	
==>.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2956	3090	
==>.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	534	657	
==>[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	534	657	
==>[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	646	747	
==>tion
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetri <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	646	747	
==>tion
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetri <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2229	2349	
==>nc:://;
    $args{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $arg <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10546	10687	
==><1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10546	10687	
==><1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16822	16922	
==>s an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16822	16922	
==>s an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child Nodes attr <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1038	1148	
==>is: {newton(7, &f, $verbose => 1)}";

=head1 DESCRIPTION

Newton's method is a simple method for finding roots, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22861	22964	
==>ue $self:)) returns opaque 
    ($self: class))

=cut

$::Class->send('add_method' => (
    # method lab <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21507	21608	
==>ckage or program which uses yours may wish to
override some of your messages, showing other messages i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21507	21608	
==>ckage or program which uses yours may wish to
override some of your messages, showing other messages i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13218	13319	
==>", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6693	6794	
==>", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6047	6177	
==>ike $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6059	6189	
==>ike $name in " . Dumper( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dump <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22072	22331	
==>( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22351	22610	
==>( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5237	5372	
==>'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5237	5372	
==>'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5989	6091	
==>ndocs) { 
    my $syn_index = catfile($output_dir,"Synopsis", "index.html");
    open( $fh, ">",  $syn_ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/Runtime/Nada.pm	18	117	
==>ackage Blondie::Runtime::Nada;
use base qw/Blondie::Runtime/;

use strict;
use warnings;

sub provid <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2339	2443	
==>d_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2339	2443	
==>d_children ($self: *@children) returns Tree {
    for @children -> $child {
        $self.add_child($chil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1304	1404	
==>wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1304	1404	
==>wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14700	14812	
==>[] },
      numeric     => sub { $as_hash_complain->("numeric") },
      non_numeric => sub { $as_hash_complain-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8072	8180	
==>( Test::Builder $Class: $plan?, $output? )
  {
      return $:singleton //= $Class.SUPER::new(
          test <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3671	3773	
==>e, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3671	3773	
==>e, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yesterday' | $da <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16531	16630	
==>stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is ins <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16531	16630	
==>stored in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is ins <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	351	461	
==>FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	351	461	
==>FA::DFA;

# An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26894	26988	
==>$attrs!) returns Relation>

This method is the same as C<project> but that the returned Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31446	31540	
==>$attrs!) returns Relation>

This method is the same as C<project> but that the returned Relatio <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	572	672	
==>process headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  my ($dev, $date) = (split / \| /)[1 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2924	3019	
==>h_abbr returns Str { @months_abbr[./month_0] }

# yes, these functions are not "correct" :)
meth <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1237	1334	
==>airs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array::pairs  (@array ; Matc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1436	1576	
==>ame => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts wit <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1436	1576	
==>ame => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts wit <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13256	13350	
==>hose tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  function <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13314	13408	
==>hose tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  function <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16153	16295	
==>D(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16153	16295	
==>D(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	565	657	
==>hods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed La <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	565	657	
==>hods fetch(), store()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed La <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14018	14164	
==>yn.pod"); } 
            elsif ( $syn =~ /^E/i ) { $synpod = catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->pars <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11016	11171	
==>();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11016	11171	
==>();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $qu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7083	7210	
==>pan0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7083	7210	
==>pan0.density) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27384	27479	
==>fac), "int → int", ":t fac");
is(t($length), "∀α. list α → int", ":t length");
is(t($fac <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15182	15277	
==>at environmental parameter to pay attention to
to select our language.  so I suspect the default <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5790	5911	
==>tart && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5790	5911	
==>tart && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1655	1783	
==>ined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1643	1771	
==>ined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4638	4760	
==>RM);
    }
    &Rf & $self->FLAG_x and ${&Rx} =~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub object {
  return if & <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1690	1798	
==>if (ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		local $Data::Du <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1761	1860	
==>ons of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1761	1860	
==>ons of C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C< <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3717	3856	
==>ormalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3717	3856	
==>ormalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15626	15727	
==>lex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environm <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15684	15785	
==>lex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the environm <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	947	1056	
==>ype => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	947	1056	
==>ype => substr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3361	3502	
==>g] = $/[thing]
    |   \/      # $/
) )->code;

sub recompile {
    my $class = shift;
    %hash = (
        '$' => Pugs::Compiler::Regex->com <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6971	7091	
==>ate->output;
close $error;

print "Took: " . (time - $start) . " sec(s)\n";

# read @syn and $syn_indexs
sub read_designd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1923	2052	
==>FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1923	2052	
==>FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might need to be rewritten
meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3429	3590	
==>der('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3429	3590	
==>der('Age');
        
        if ($age_v && $age_v > $age) {
            $age = $age_v; # corrected_received_age
        }
        
        my $request = ./request <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10115	10235	
==>my.

    ### XXX: NOTE ###
    # this is intended to eventually replace Prim.hs's open (or be replaced by
    # it, since <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9262	9368	
==>ssion --> Scalar )
 multi  List::reduce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @val <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22345	22461	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22624	22740	
==>ule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9235	9351	
==>= @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11550	11666	
==>= @_;
    my $tree = $self->{rx}{tree};
    return unless @$tree;

    push @$tree, $self unless $tree->[-1] == $self <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7741	7845	
==>pan is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method com <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7741	7845	
==>pan is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method com <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48781	48922	
==>n'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5797	5902	
==>x->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_U <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5279	5384	
==>x->parse_version($file) );
}

sub abstract_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_U <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1491	1586	
==>print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1631	1726	
==>print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $self->{ratch <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8414	8527	
==>_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8472	8585	
==>_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5207	5379	
==>._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@b <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5207	5379	
==>._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@b <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6731	6922	
==>o...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The . <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5235	5426	
==>o...
        my $n = 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	618	713	
==>f key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse(<<'PERL6');
say 1 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3905	4030	
==>r(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3905	4030	
==>r(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2091	2215	
==>]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2091	2215	
==>]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10687	10789	
==>y) returns Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<cont <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10687	10789	
==>y) returns Array>

=item B<query_string returns Str>

=item B<request_method returns Str>

=item B<cont <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	230	321	
==>---------------------------------------------------
## This is an extension of the Mini-Meta <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	198	289	
==>---------------------------------------------------
## This is an extension of the Mini-Meta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	56	172	
==>base 'Object::Accessor';
use JIB::Config;
use JIB::Package;
use JIB::Constants;

use YAML;
use Path::Class;
use Param <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6509	6618	
==>t_error), return;

    return
        map { $self->index->file($_) }
        $self->_index_files($pkg, $self-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	8	113	
==>in/perl

use strict;
use warnings;

# NOTE:
# I am keeping a copy of the original MiniMetaModel here
# for <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15420	15541	
==>b/stage2_eltorito", # Set El Torito boot image name
      "-no-emul-boot",                     # Boot image is 'no emulati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	386	517	
==>_uptodate ) {
    do $pmc 
        unless $filename =~ /\.pm$/;
    exit 0;
    # return 1;
}

my $p6;
# delay use'ing until we need <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3128	3243	
==>se" )
  {
    $token{syncat} = PGE_OPTABLE_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_OPT <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2453	2547	
==>uld not convert .yml to testgraph: $!";
upload_smoke($html_location);
if ($smoke_upload) {
  if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5274	5411	
==>)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5467	5604	
==>)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17264	17374	
==>);
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17264	17374	
==>);
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_handler("PRIVMSG",  \&on_p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1219	1405	
==>//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } el <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1219	1405	
==>//) {
            $field = $0;
            $value = $1;
            
            #$value ~~ s/\r$//;
            $value ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } el <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7762	7872	
==>essage vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7762	7872	
==>essage vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10155	10263	
==>sure => sub { -d $_ or return for @dirs; 1 },
    using  => sub { utime undef, undef, $initrd_img; mkdir $_ f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3790	3897	
==>found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Cla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5692	5799	
==>found/, $desc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Cla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6255	6397	
==>le becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6255	6397	
==>le becomes invalid.

                # XXX - Maybe there is a way to simply recreate the DATA
                # file handle, or at least seek b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18732	18834	
==>ew(); you need to supply its $document and optional
$parent_node though; you can produce a direct clone <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18732	18834	
==>ew(); you need to supply its $document and optional
$parent_node though; you can produce a direct clone <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6939	7037	
==>TP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6939	7037	
==>TP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=item This Perl 6 version of LWP::S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	333	438	
==>o

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	333	438	
==>o

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1599	1716	
==>f ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLAS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1599	1716	
==>f ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLAS <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2048	2146	
==>head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_t <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2048	2146	
==>head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16063	16159	
==>hey are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16063	16159	
==>hey are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> files. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2023	2178	
==>rack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\C[A;B] in character class") if @na <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	765	858	
==>y(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	765	858	
==>y(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tells
the <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	757	862	
==>ilder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a su <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	757	862	
==>ilder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder::TestPlan object and 
a su <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	434	540	
==>NAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	434	540	
==>NAL>" upside down and get "<INVERTED>",]
           ~ q[ not "<ORIGINAL>".],
    'MYLIB_MYINV_NO_ARG' => q[ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1482	1609	
==>urn 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Plugg <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1482	1609	
==>urn 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Plugg <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2330	2466	
==>code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9910	10070	
==>connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = unde <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9910	10070	
==>connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = unde <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8678	8824	
==>ble_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8871	9017	
==>ble_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27250	27367	
==>al', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27529	27646	
==>al', \&{'grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1482	1667	
==>=> $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loadin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1277	1460	
==>=> $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loadin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25995	26102	
==>nd can be interpolated into the
human-readable version.  Each variable name is a machine-readable short
stri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25995	26102	
==>nd can be interpolated into the
human-readable version.  Each variable name is a machine-readable short
stri <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3031	3140	
==>fined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param< <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3031	3140	
==>fined( %param<start> )  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	811	954	
==>ce => 'equal',
            other => '+',
        );
    #~ }
    #~ use Data::Dumper;
    #~ print Dumper( $_[0]{pair} );
    #~ die "not a pair <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5306	5403	
==>$self->{prefix}' directory and run $0 again to load it.
END_DIE

    my $obj = $admin->load($metho <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	977	1074	
==>ehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is subject to chan <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2519	2615	
==>aScript::ECMAScript3::Grammar::Spec;

rule ws          {<?ws_input>*}
rule ws_required {<?ws_inpu <==
2	/Users/nnunley/pugs/util/grokprims.pl	1184	1302	
==>ty = 0+@{$op->{args}};

  if (/prefix/) {
    if (($arity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9957	10096	
==>s defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9957	10096	
==>s defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8084	8288	
==>aybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8548	8752	
==>aybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17933	18042	
==>ially all isolated from each other, even if more than one uses the
same Engine class to implement it; that is, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17933	18042	
==>ially all isolated from each other, even if more than one uses the
same Engine class to implement it; that is, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12541	12646	
==>n the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12541	12646	
==>n the Node
hierarchies created from a defined @root_nodes.

Some sample usage:

    my Rosetta::Model::Doc <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12602	12739	
==>t;
       }
     }
   }
 }

[Note: This should be the definition of each() now.  The zip function needs
to build tuples of the "across" va <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12246	12359	
==>ub enter_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leave_scope {
    my $self = shif <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	817	919	
==>in a
new window</a>.  (Useful with Firefox 1.5's Preferences/Tabs/Force/NewTab
setting.)
</p>
<p>
To up <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2779	2894	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2972	3087	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_rule_decl =>  match::get( $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10578	10677	
==>Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10578	10677	
==>Pugs! 

=head1 FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	364	467	
==>ther for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Hask <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	364	467	
==>ther for agreement at BUILD time
for the below classes.

=cut
#'

# The types given below, although Hask <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1183	1305	
==>rims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->re <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13709	13825	
==>rims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_scope;
    
    my $v = $self->re <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	143	240	
==>$self.length + $duration.length);
}

method subtract($self: Duration $duration) returns Duration { <==
2	/Users/nnunley/pugs/util/func_refact.pl	2026	2126	
==>ion: while adding $new, entered with $oldsize, leaving with $size\n"
        if $Conf{verbose} or $Co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21640	21734	
==>er(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class_pos(xdi <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2950	3059	
==>f.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    sa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2950	3059	
==>f.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    sa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20765	20872	
==>OTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17186	17293	
==>OTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7159	7282	
==>different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7159	7282	
==>different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $span0.density <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21812	21924	
==>n = %*INC{$module};
  if $seen {
    opRequire();
  }
  else {
    find();
  }
}
sub Pugs::Internals::compile_fil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1646	1753	
==>ams::Check->last_error ), return;
    
    ### install check
    if( $inst->is_installed( package => $self ) <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	768	883	
==>current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_tru <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	768	883	
==>current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_tru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37414	37511	
==><load_template_module( $module_name! )>

This method takes the name of a Perl package in its posit <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37414	37511	
==><load_template_module( $module_name! )>

This method takes the name of a Perl package in its posit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18490	18607	
==>closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14911	15028	
==>closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12673	12827	
==>.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12673	12827	
==>.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1862	2028	
==>e current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $curr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1862	2028	
==>e current tree 
                # in our results, and 
                @results.push($current_tree);
                # we change our current tree
                $curr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1152	1293	
==>ft;
    my $struct  = shift;
    my $str     = '';
    
    return $str unless $struct;

    for my $entry ( @$struct ) {
        $str .= ' AN <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3667	3787	
==>(ulong)perl_callback);
    ret = call_sv(perl_callback, G_ARRAY);
    SPAGAIN;
    fprintf(stderr,"exec hook survived.\n" <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39665	39754	
==>uct (Relation::Example *@others) returns Relation::Example>

This multi-method is the N-ar <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16837	16978	
==>n/){
        return join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } @_)
        ) . "\n" . ("\t" x ($indent-1)) . " <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26277	26373	
==>it will
default to 80. Note that users of Bourne-sh based shells will need to
C<export COLUMNS> f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7750	7945	
==>ting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7762	7957	
==>ting array item\n";
            my $tmp = emit_rule( $_, $tab );
            push @s, $tmp . "$tab ,\n" if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to t <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4497	4607	
==>le for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month for the obje <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4497	4607	
==>le for Date objects:

- `year()`

Returns the year for the object.

- `month()`

Returns the month for the obje <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6561	6725	
==>char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6754	6918	
==>char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capturing_group',
             ruleop::constant( "\." )
           ,
         )
       , <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2142	2356	
==>("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2142	2356	
==>("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'it <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2505	2617	
==>s ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2505	2617	
==>s ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3834	3940	
==>:Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Enc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3834	3940	
==>:Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME::QuotedPrint
#   Enc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1418	1548	
==>";            
    $self->{$key->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($self, $key) = @_;
    (b <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	155	278	
==>verse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.i <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	155	278	
==>verse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8693	8827	
==>return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate.( $_ ) }),
    );
}

& <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30677	30773	
==>ion has all of the tuples of the
original (or rather, the corresponding transformation of each tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35228	35324	
==>ion has all of the tuples of the
original (or rather, the corresponding transformation of each tu <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	776	899	
==>M::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source" <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	776	899	
==>M::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "source" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2313	2437	
==>iverse, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2313	2437	
==>iverse, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	200	325	
==>e "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	200	325	
==>e "start = object but false"

=cut

submethod BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22705	22796	
==>head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22705	22796	
==>head2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	481	600	
==>an('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	481	600	
==>an('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($pkg, $code);
}

sub _ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2184	2319	
==>$key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $k <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2184	2319	
==>$key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $k <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1382	1475	
==>ownload.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.micr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1222	1315	
==>ownload.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.micr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8669	8756	
==>eturn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8669	8756	
==>eturn ::($module_name).does(Package);
}

method load_template_module (Str $module_name!) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4459	4603	
==>,
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4459	4603	
==>,
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "raquo"    => '»', <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11882	11986	
==>lues
for the same field are retained.

As for the header() method, the field name ($field) is not case
se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11882	11986	
==>lues
for the same field are retained.

As for the header() method, the field name ($field) is not case
se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14298	14396	
==>get") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { . <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14298	14396	
==>get") }
  method whois(Str $target) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { . <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11183	11337	
==>next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11183	11337	
==>next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1167	1370	
==>dule, $version ];
            push @rv, $rv;
        }
        push @{ $self->{values}{$key} }, @rv;
        @rv;
    };
}

sub sign {
    my $self = shift;
    return $self->{'values'}{'sign'} if defined <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26085	26200	
==>. list α → α", "pretty print list a -> a");
}
{
	my $a = type::variable::free->new;
	my $b = type::variable::fre <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6657	6755	
==>OOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6657	6755	
==>OOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	887	982	
==>p://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirn <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	764	851	
==>p://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirn <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4462	4588	
==>odifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4462	4588	
==>odifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9967	10089	
==>ush($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<dis <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9967	10089	
==>ush($cb) },

    # Connect/disconnect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<dis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	444	548	
==>ailed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is succe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	444	548	
==>ailed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is succe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6079	6188	
==>inty';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6079	6188	
==>inty';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4297	4470	
==>turn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4297	4470	
==>turn $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17742	17847	
==>ed to be unique for a situation, and this is
mapped to a user-readable message at some point.  For example <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17742	17847	
==>ed to be unique for a situation, and this is
mapped to a user-readable message at some point.  For example <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3268	3372	
==>parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessary <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3268	3372	
==>parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessary <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	275	449	
==>1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	275	449	
==>1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             ruleop::non_greedy_star(
                 \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10061	10166	
==>rsion=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10061	10166	
==>rsion=3.2',
       Content_Base => 'http://www.perl.org/'
 );

The constructor arguments are passed to the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1383	1491	
==>b alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1383	1491	
==>b alternation {
    # alternation is first match (not longest).  though we need a 
    # separate longest mat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23134	23303	
==>>new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42737	42905	
==>>new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	863	960	
==>osetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	863	960	
==>osetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIP <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5009	5114	
==>'... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Fo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7677	7782	
==>'... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Fo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16592	16698	
==>der field, then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16592	16698	
==>der field, then the empty
string is returned.  This makes it safe to do the following:

  if $h.content_typ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12649	12753	
==>t1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12649	12753	
==>t1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16937	17066	
==>);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16937	17066	
==>);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all items from the queu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1292	1436	
==>ds

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1292	1436	
==>ds

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10570	10702	
==>bel
        symbol->new('get_method_list'), 
    # method body
        method->new(
            $::ENV,
            method::signature <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	866	964	
==>AK_IN_DIR};

$Strap = Test::Harness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1175	1303	
==>> $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positiona <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1175	1303	
==>> $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable> | <positiona <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4147	4265	
==>v;
    }
    elsif  ($arg eq '-s'){
        print <<'SUPPORTED_FEATURES' and exit;

<< SUPPORTED FEATURES >>

    $v[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	762	862	
==>curr ne "base";
    $prev = $curr;
  }
  Regexp::Parser->export_to_level($level, $pkg, @EXPORT) if $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	288	434	
==>$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	288	434	
==>$name};
        
        return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5142	5356	
==>w to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5142	5356	
==>w to do it
                    # from this function interface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                re <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	5	130	
==>fix
++$i		# $i.prefix:<++>()
-123		# 123.prefix:<->()
="file"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein pref <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	645	757	
==>k ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	725	827	
==>::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "No <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	725	827	
==>::select(:tagA, :main);
	note "I'm here", :tagA;			# prints "I'm here at somefile.pl line 3."
	note "No <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1605	1704	
==>wards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return & <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1605	1704	
==>wards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    return & <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4972	5107	
==>>to_native . ' => ' . $right->fetch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21422	21514	
==>r
 #define float_min_offset substrs->data[1].min_offset
 #define float_max_offset substrs->da <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5709	5836	
==>rens, SV* callback)
{
    I32 len;
    int i;

    fprintf(stderr,"regexp_setup ");
    Safefree(r->precomp);
    r->prelen = Sv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14856	14950	
==>stituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequentl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14856	14950	
==>stituted with this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequentl <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	201	309	
==>r $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

mult <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	201	309	
==>r $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

mult <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24311	24406	
==>head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
by c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24311	24406	
==>head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use it
by c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10096	10255	
==>r {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10096	10255	
==>r {
        unless $!seen_head {
            take *$self._head();
            $!seen_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi meth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6070	6193	
==>f;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6070	6193	
==>f;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > $.sta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15348	15466	
==>B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
what kinds of attributes or rela <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15348	15466	
==>B<Node Type>

Str - This string identifies what kind of Node this is, and by extension
what kinds of attributes or rela <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1351	1466	
==>load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1351	1466	
==>load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6428	6567	
==>{name}::$subpath";
        $pkg =~ s!/!::!g;

        # If we have a mixed-case package name, assume case has been preserved
        # corre <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1827	1951	
==>/blib6/lib";
my $initrd_gz    = "initrd.gz";
my $initrd_img   = "initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_siz <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1178	1279	
==>os work, etc.
  Working with a p5 accessible runtime (pil2js or pilrun), and/or
  motivating implement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6898	7044	
==>bort} = 1;

        return $match;

    };

};



# experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6671	6808	
==>bort} = 1;
        return $match;
    };
};

# experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	203	337	
==>r Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	203	337	
==>r Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	507	611	
==>phic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	507	611	
==>phic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programmer to 
change <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6379	6480	
==>vent<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6379	6480	
==>vent<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6565	6746	
==>cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6565	6746	
==>cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2534	2646	
==>stribution at C<lib/Class.pm> will
probably eventually be auto-generated by methods called on
these objects.

=cu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	569	671	
==>ide _compare in ' . (shift) } 

sub equal_to     { $_[0]->_compare($_[1]) == 0  ? bit->new(1) : bit->ne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2722	2844	
==>e);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @basechu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2722	2844	
==>e);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = splitdir($path);
    my @basechu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1077	1184	
==>le, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1077	1184	
==>le, class, grammar

# category 'statement'
# statements that need a \; or \} or $$ terminator 
# - subroutin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1422	1563	
==>Tree.new(:node<Complex>).add_children(
                            Tree.new(:node<Num>).add_children(
                                Tree.new <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5842	5955	
==>at);
    if(r->prelen <0){ fprintf(stderr,"zoork!\n");exit(0);}
    r->precomp = savesvpv(pat);
    
    r->nparen <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2694	2808	
==>rintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006 <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2694	2808	
==>rintf("\\x%02X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006 <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	668	789	
==>al(2),
			Val(3),
		),
		result => 6,
		name => "simple multiplication",
	},
	{
		ast => App(
			Val(
				Thunk(
					Seq( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	56	148	
==>:Runtime::Rule::rule_wrapper { @_ };
my $grammar1 = 'Pugs::Grammar::Rule::';

sub emit_node { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15160	15271	
==>e set are considered
"root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speakin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15160	15271	
==>e set are considered
"root Nodes" and are listed in their Document's Root Nodes property; in a
manner of speakin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1786	1885	
==>s is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test spli <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1786	1885	
==>s is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test spli <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1023	1144	
==>')};
            },

            'array_fetchElem' => sub { # $idx -> $container # autovivification! - returns **CONTAINER <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3823	3937	
==>re currently in.

=cut

sub _whoami { my $name = (caller 1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2480	2632	
==>:constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2673	2825	
==>:constant( "P5" )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10775	10891	
==>lements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AU <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10775	10891	
==>lements in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AU <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8308	8403	
==>t fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the sp <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8308	8403	
==>t fatal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the sp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2006	2112	
==>return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2006	2112	
==>return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.dens <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18137	18248	
==>can only appear at the beginning or end of tests\n"
      if $totals->{seen} && 
         $totals->{max}  < $tot <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27849	27947	
==>e Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27849	27947	
==>e Key attribute of its object.

=item C<get_msg_var( $var_name! )>

This method returns the Message <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6376	6482	
==>content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6376	6482	
==>content_type ~~ m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8800	8911	
==>ate_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8800	8911	
==>ate_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5289	5423	
==>n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5511	5645	
==>n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1900	2025	
==>$*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto || <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1900	2025	
==>$*OUT := $.remote;
    my ( $method, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto || <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12944	13125	
==>:constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13223	13404	
==>:constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6457	6588	
==>= $current->next;
    }
    confess "'$name' not found in dynamic env";
}

sub next {
    my ($self, $env) = @_;
    $self->{next} = <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	865	985	
==>is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs', <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	865	985	
==>is just a proof of
concept -- use it at your own risk. :-)

=cut

sub register {
    return {
        language => 'Pugs', <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7420	7527	
==>ntire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indic <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7420	7527	
==>ntire block, then cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3586	3741	
==>ict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        "    require Runtime::Perl5::RuleInit;\n".
        # "    }\n" . <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	144	247	
==>w<store_fd fd_retrieve freeze>;
use Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBuc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3480	3591	
==>an1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3480	3591	
==>an1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span0.compare( $u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1273	1389	
==>?p6ws>?\)<?p6ws>?
        { return { meth_call_term => $() } }
RULE
*{'meth_call_statement'} = Pugs::Compiler::Rule-> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1411	1517	
==>optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1411	1517	
==>optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($name))> will capture whatever C< <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6680	6781	
==>rent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6680	6781	
==>rent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6525	6619	
==>lass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11583	11677	
==>lass foo');
is($iBar->bar, 'Bar->bar', '... $iBar calls overridden bar');
is($iBar->baz, 'Bar-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2317	2437	
==>->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7885	7993	
==>WN($pInv)) : ();
    my @args = (@inv,map{DOWN($_)}@$pArgs);
    my $argl = join(",",@args);
    my $fun = DO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	898	1142	
==>w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	899	1143	
==>w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::constant( "\^" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7809	7922	
==>ext = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_ME <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7809	7922	
==>ext = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars() );
#        last SET_ME <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6330	6434	
==>elf: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : canno <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6330	6434	
==>elf: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : canno <==
2	/Users/nnunley/pugs/util/addauthors.pl	1234	1332	
==>AUTHORS file\n";
  }

  $author->{commitid}=$c;
  $author->{commitcount}=$comitters{$c};
  print Du <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4746	4865	
==>n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4746	4865	
==>n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9119	9236	
==>f needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKI <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2154	2271	
==>f needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag yet for link management
    LINKI <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2001	2101	
==>, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2001	2101	
==>, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gives the impression of lex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4974	5099	
==>EWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4974	5099	
==>EWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6104	6206	
==>ment $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $ir <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6104	6206	
==>ment $irl_doc.= new();

    # Define some data types.
    my Rosetta::Model::Node $sdtd_person_id = $ir <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4831	4993	
==>mp}[0]  <=> $a->{timestamp}[0]
        } @{ $runcores{$runcore}{$cat} }
      ];
    }

    $runcores{$runcore} = [
      map {{
        catname => $_,
        smo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12818	12942	
==>ack



=head2 Hash

=over 4

=item delete

 multi method Hash::delete ( *@keys --> List )
 multi method Hash::delete (   $key <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1393	1485	
==>bute fetching is actually
just a shorthand for calling an accessor).

Run-time inheritance/me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3661	3783	
==>r::Regex->compile( q(
                <?Pugs::Grammar::Term.ident>
                { return { scalar => '$.' . $_[0]->() ,} <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2184	2289	
==>$sigil = $sigils{$attr->type} || '$';

    my $name = $sigil.".".$attr->name;

    if ( my $perl6_type = $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10793	10891	
==>plex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by third <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10793	10891	
==>plex, make up the bulk of the Rosetta::Model code,
and these could potentially be extended by third <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1578	1679	
==>y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	return target;
}

PV type_convert_IV_PV (IV x) {
	cha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23910	24015	
==>:$body?)>

This method creates and returns a new Relation object, whose Heading and
Body attributes are se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28462	28567	
==>:$body?)>

This method creates and returns a new Relation object, whose Heading and
Body attributes are se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1133	1239	
==>s Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1133	1239	
==>s Document contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # L <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	695	787	
==>dles :add_subscription<insert> :remove_subscription<remove> .= new; # FIXME we need one at th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7626	7815	
==>> 0,
                todo     => 0,
                skipped  => 0,
                bench    => 0,
               );

    my @dir_files;
    @dir_files = _globdir $Files_In_Dir if defined $Fi <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3152	3263	
==>oad it.
END

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub lo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8053	8145	
==>------------------------------------------------------
## utility methods

# NOTE:
# Occasion <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8053	8145	
==>------------------------------------------------------
## utility methods

# NOTE:
# Occasion <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34533	34635	
==>ional operator that takes a single Relation
in its C<$other> argument, where the heading of <$other> is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39083	39185	
==>ional operator that takes a single Relation
in its C<$other> argument, where the heading of <$other> is <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13134	13238	
==>ion($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the ele <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13134	13238	
==>ion($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the ele <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2324	2421	
==>d line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing li <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2324	2421	
==>d line utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing li <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1992	2100	
==>->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub print {
  my ( $matchObj ) = @_
  my ($mat <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4147	4278	
==>se =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._g <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4147	4278	
==>se =>            $universe,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._g <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1120	1280	
==>s rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1120	1280	
==>s rw;
  has Str   $.ircname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10879	10975	
==>tance, the information about how many members
were actually new is discarded.

=head2 C<$set.remo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10879	10975	
==>tance, the information about how many members
were actually new is discarded.

=head2 C<$set.remo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16282	16398	
==>a};
  }
}


{
  # ( capturing
  package Regexp::Parser::open;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7694	7809	
==>f_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler('POSIX_alnum' => sub {
    my ($S <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1979	2086	
==>w( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => tim <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1979	2086	
==>w( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => tim <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2456	2569	
==>$q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2456	2569	
==>$q.delete('foo');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string po <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1658	1762	
==>sed by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1658	1762	
==>sed by the Rosetta::Interface::Exception class, that do export symbols:
    # (None Yet)

    # Attribute <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14291	14392	
==>he XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14291	14392	
==>he XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9914	10020	
==>t $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9914	10020	
==>t $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2138	2245	
==>tatus_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2138	2245	
==>tatus_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12756	12891	
==>conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12756	12891	
==>conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_N <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3913	4108	
==>open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3913	4108	
==>open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1500	1604	
==>ethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:per <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1500	1604	
==>ethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ rx:per <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	394	504	
==>place where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	394	504	
==>place where this subrule/group ended.  C<Medium>
                     represents positions I<between> elements, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	210	314	
==>es in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	210	314	
==>es in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8603	8710	
==>]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8591	8698	
==>]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratch <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1099	1224	
==>hild_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (un <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1099	1224	
==>hild_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to the parent (un <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3067	3174	
==>map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @inte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3067	3174	
==>map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @inte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5557	5676	
==>nless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5779	5898	
==>nless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2174	2341	
==>ot copy sources to '$tmpdir'" ), return;
#             
#         ### toss out the meta dir            
#         JIB::Utils->_rmdir( 
#             dir => File::Spec-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34252	34350	
==>rl.  We will support this with the '&'
metacharacter.

We have added a handler for the '&' metachar <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	810	934	
==>lue, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	810	934	
==>lue, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16665	16789	
==>ll entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($buc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16665	16789	
==>ll entries of @queue. Will need throttling later.
    run => {
      my @q = splice @queue;
      while(@q) {
        if($buc <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10340	10487	
==>_path, ">:utf8")
                         or die "Can't open output test file $output_path: $!";
                         
  my $template = HTML::Te <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7517	7767	
==>l "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find eve <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7981	8231	
==>l "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find eve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9554	9651	
==>are any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9554	9651	
==>are any subroutines or export such.

The usual way that Rosetta::Model indicates a failure is to t <==
2	/Users/nnunley/pugs/util/package-osx.pl	11279	11457	
==>le 2>&1 \/ \) \{
                print "Problem removing \$file\: \$_\\n";
            \}
            else \{
                print "Successfully removed \$file\\n";
            \ <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	747	870	
==>Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is copy, Int $n? is copy) {
  my $ret = '';
  while $s && (!def <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	0	133	
==>module Sample::Module-0.0.1;
use v6;

sub greeting(Str $name) returns Str is export {
    "hello, $name";
}

=kwid

= NAME

Sample::Mo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	388	499	
==>gly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	388	499	
==>gly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	97	272	
==>Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	97	272	
==>Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.parent ?? $.parent.lookup_pad <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6481	6615	
==>2 => ')',
        #~ assoc => 'non',
        #~ precedence => 'tighter',
        #~ other => '*',
    #~ );

    __PACKAGE__->recompile <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11852	11962	
==>stamp></td>
            <td class="leftsep num"><tmpl_var name=duration></td>
            <td class="leftsep nu <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3672	3777	
==>file21,
        "\n\n\n\n\n\n\n\n\n12th line\n11th line\n10th line\n".
        "9th line\n8th line\n7th li <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	37	144	
==>.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	37	144	
==>.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18656	18760	
==>our application or package, with one or more
text strings to show human users.  This association would no <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18656	18760	
==>our application or package, with one or more
text strings to show human users.  This association would no <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2732	2845	
==>]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a j <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2732	2845	
==>]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a j <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38968	39065	
==>rren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the sam <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43782	43879	
==>rren R. Duncan.

Relation is free software; you can redistribute it and/or modify it under
the sam <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5969	6092	
==>version info from $file\n";
        return;
    }
}

sub author_from {
    my ( $self, $file ) = @_;
    my $content = $self <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4658	4750	
==>->new(0) if $left->length->not_equal_to($right->length) == bit->new(1);
    foreach my $i (ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6306	6435	
==>rkaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6306	6435	
==>rkaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEM <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13181	13315	
==>ass->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13181	13315	
==>ass->pmc_fold_here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<! <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3689	3828	
==>paque_instance_class(shift)->superclass;
        },                       
        'class_precendence_list' => sub ($) {
            my ($se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3183	3314	
==>' }

  sub visual {
    my $self = shift;
    $self->{neg} ? '\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser::digit;
  pus <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12487	12587	
==>gument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

T <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12487	12587	
==>gument may be a scalar or a reference to a list of
scalars.

=item $h.remove_header( $field, ... )

T <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	794	944	
==>ARRAY';
        $self->{idx}   = 0;
        $self->{array} = $thing;
    }
    else {
        warn "Can't iterate with a ", ref $thing;
    }

    retu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13222	13333	
==>trd_mnt/dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => << <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12613	12729	
==>=cut

sub _is_comment {
    my($self, $line, $comment) = @_;

    if( $line =~ /^\s*\#(.*)/ ) {
        $$comment = $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20726	20819	
==>nternals::Disabled::use ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::use($module <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1966	2076	
==>1 Perl 6 Code
  
  class Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submethod B <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26483	26575	
==>);
}
use Language::Prolog::Yaswi qw(:query :interactive :load :assert :context :run);
#$Langu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2848	2958	
==>sub fix_up_makefile {
    my $self = shift;
    my $top_class = ref($self->_top) || '';
    my $top_version = $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	111	213	
==>our $NIL = bless \(my $var) => __PACKAGE__;
sub new { $NIL }

# conversion to native
sub to_native { un <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51277	51576	
==>('-')
                            )
                            ->concat(
                              $e->get('$self:')->get_attr(symbol->new('$:version'))
                            )
                      );
                  }));
                $e->get('$self:')
                  ->get_attr(s <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	132	214	
==>org/dist/Perl6-Bible/lib/Perl6/Bible/S05.pod
  http://www.nntp.perl.org/group/perl. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3759	3911	
==>$e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get('$current')->send('get_method' => $e->get('$lab <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2644	2852	
==>x:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2644	2852	
==>x:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2966	3056	
==>bers.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2966	3056	
==>bers.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) retu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14209	14310	
==>and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14267	14368	
==>and its compliment the flunk() function.

- `flunk (Str $desc?, Bool :$todo) returns Bool`

This is th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	573	749	
==>ew_arr;
        }
        elsif ($token eq ')') {
            pop @{$stack};
        }
        else {
            if (@{$stack}) {
                push @{$stack->[-1]} => $token <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3692	3795	
==>LE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6513	6632	
==>() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6513	6632	
==>() outside a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14232	14329	
==>re ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
wou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14232	14329	
==>re ignored.  The loop can
be broken by raising an exception (C<die>), but the caller of scan()
wou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6178	6277	
==>~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6178	6277	
==>~normalize($event<object>)}++;
  }];

  # Somebody left a channel. Update %channels and %users accor <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36264	36401	
==>label
        symbol->new('get_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2382	2486	
==>d stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2382	2486	
==>d stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25319	25416	
==>y/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25319	25416	
==>y/free-sw.html>.  You may copy and distribute
such a system following the terms of the GPL for Ros <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1675	1783	
==>(substr $target, $from, 1) =~ /[:xdigit:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  retur <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	121	227	
==>on with a more
# general p6 one after bootstrap).  Or spec code which doesnt actually
# run yet.  The immed <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14402	14508	
==>-'>
}
rule UnaryExpression :words {  # see 11.4
      <PostfixExpression>
    | <'delete'> <UnaryExpression <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4250	4383	
==>[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4238	4371	
==>[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	583	696	
==>>fetch->isa('opaque')))
        || confess "Class must be an instance of reference";
    (blessed($attrs) && $attr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3147	3249	
==>ile($program);

=head1 DESCRIPTION

The compiler reduces an AST into an executable program. This proces <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	142	250	
==>';

my @scalar_keys = qw{
    name module_name abstract author version license
    distribution_type perl_ver <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21542	21666	
==>ext} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17963	18087	
==>ext} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5868	5966	
==>----------------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5868	5966	
==>----------------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6258	6355	
==>path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6258	6355	
==>path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file.pod", pod2html($fh));  

=head <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7228	7339	
==>osure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersectio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7228	7339	
==>osure3 }( &{ $closure4 }( $n1 ) );
        }
        warn "Arbitrary limit exceeded when calculating intersectio <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2888	3075	
==>),
                        Tree.new(:node<Rule>),
                        Tree.new(:node<Match>),
                        Tree.new(:node<Junction>),
                        Tree.new(:node< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1557	1660	
==>n $self->[1]->store($klass);
}

sub get_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2591	2723	
==>};
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2591	2723	
==>};
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4623	4728	
==>using a C<return> clause.

=head2 ""

When used as a string, the match object returns the stringified vers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4623	4728	
==>using a C<return> clause.

=head2 ""

When used as a string, the match object returns the stringified vers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3408	3521	
==>ser fglock );



but where does the .pm live for real? I like per-user dirs



lib/fglock/Compiler.pm

lib/Pugs/Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3288	3396	
==>ser fglock );

but where does the .pm live for real? I like per-user dirs

lib/fglock/Compiler.pm
lib/Pugs/Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1154	1263	
==>b {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2319	2428	
==>b {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class") if $cc;
    return $S->force_o <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2070	2166	
==>ers from
convergence problems for some functions, which all Newton methods do.  All
it does in su <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12503	12589	
==>c(R,char(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R), !.
p6_hex_chars_more <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22750	22872	
==>} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19171	19293	
==>} \) }xgc) {
      push @{ $S->{flags} }, &Rf;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1305	1433	
==>recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1305	1433	
==>recurrence> ) -> $span
    {
        # TODO - write t/test for Array (such as 1 .. 10 and 1..10,20..30)
        next unless defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	837	963	
==>$m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	837	963	
==>$m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5064	5182	
==>pt\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5064	5182	
==>pt\n";
    my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8640	8735	
==>t will be caught later.
    return ::($module_name).does(Package);
}

method load_template_modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8640	8735	
==>t will be caught later.
    return ::($module_name).does(Package);
}

method load_template_modul <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3792	3918	
==>H('::Base')->FETCH('&status');
            my $status          = $::SELF->$status_sub();
            $status->{"reason"} = _('$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3564	3886	
==>ists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3564	3886	
==>ists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10911	11005	
==>ead2 The Rosetta::Model::Document Class

A Document object is a simple container which stores d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10911	11005	
==>ead2 The Rosetta::Model::Document Class

A Document object is a simple container which stores d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1097	1198	
==>e $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidConte <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1097	1198	
==>e $.right;
}


role Perl::Compiler::PIL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidConte <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	1005	1133	
==>s = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	1005	1133	
==>s = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.pos, 1) eq "\n";
    }
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	38	127	
==>$grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	38	127	
==>$grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

use Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8180	8335	
==>ncat( \n" .
                "        constant( '$prefix:<$id>' ),\n" .
                "        \\&$grammar1::ws_star,\n" .
                main::emit_rule( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6466	6603	
==>= $type;
    }
    else {
      $self->{type} = $type;
      $self->{data} = 'POSIX';
      $self->{neg} = $neg;
      $self->{how} = $how <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1356	1470	
==>be installed first
        unshift @rv, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    return @rv <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	577	697	
==>ST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	783	903	
==>ST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool};
        # print "immediate_statement_e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4655	4801	
==>dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4643	4789	
==>dot {
    if ( $direction eq '+' ) {
        "$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? d <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1413	1514	
==>{
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repe <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1413	1514	
==>{
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1665	1760	
==>et::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1665	1760	
==>et::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1642	1739	
==>akers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1642	1739	
==>akers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6363	6485	
==>$<term1> := (<term1>) <p6ws>? 
    $<op>    := (<@Grammar::Perl6::ops>) <p6ws>? 
    $<term2> := (<term1>) 
        { retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5329	5441	
==>the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5329	5441	
==>the channels we've joined.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOI <==
2	/Users/nnunley/pugs/util/version_h.pl	2182	2303	
==>S_SVN_REVISION $revision\n";
  close OUT;

  if ($revision != 0) {
    # rebuild Help.hs to show new revision number
    u <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2526	2662	
==>= ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2526	2662	
==>= ($cookies !~ Array) ?? ($cookies) !! @{$cookies};
        
        for @cookies -> $cookie {
            #$cookie = ($cookie ~~ CGI::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	195	316	
==>RxLEN Rf SIZE_ONLY LATEST );

sub Rx :lvalue		{ $_[0]{regex} }
sub RxPOS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3	105	
==>this is needed by v6.pm (perl6-in-perl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some option <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14730	14825	
==>=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14730	14825	
==>=head1 DESCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1780	1904	
==>perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1973	2097	
==>perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1671	1785	
==>ed->str);
		}
	}

	if (ref $node) {
		use Data::Dumper ();
		local $Data::Dumper::Pad = "    " x ($indent -1);
		lo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36859	36957	
==>eturned Relation::Example contains only tuples that are in
exactly one of the source Relations.  Th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9723	9843	
==>rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9703	9823	
==>rule( $_[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11386	11488	
==>eature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11444	11546	
==>eature in Pugs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_f <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11237	11348	
==>n take a few different forms:

=over 8

=item Comparator

A closure with arity of 2, which returns negative/zero <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6322	6431	
==>lehandle.

=cut

sub analyze_fh {
    my($self, $name, $fh) = @_;

    my $it = Test::Harness::Iterator->new($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16082	16193	
==>}) },
      code  => sub { $as_p6obj_complain->("code") }, # XXX - unimplemented.
      ref   => sub { $as_p6obj <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4378	4511	
==>rom_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4378	4511	
==>rom_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12801	12928	
==>eric_in($.body) = { generic_in($$) }

# possibly amend the list of generic variables if the paramter type of the function is fre <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9509	9598	
==>((($self: get_attr (symbol new (%:methods))) delete ($label))))

=cut

$::Class->send('add <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16974	17068	
==>additional
encoding mechanism has been applied to the resource.

=item $h.content_length

A dec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16974	17068	
==>additional
encoding mechanism has been applied to the resource.

=item $h.content_length

A dec <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1712	1931	
==>start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1712	1931	
==>start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buff <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38213	38326	
==>@{ $self->{data} };
    my $consume = pop @kids;
    my $type = $self->{neg} ? 'unlessm' : 'ifmatch';

    for (@k <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8495	8593	
==>. still got the right return value from Foo singleton/class method');  
  
fails_ok { $Object->sing <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	322	425	
==>*infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *in <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	322	425	
==>*infix:<⇒> ($x, $y) { $x => $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *in <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	156	304	
==>d $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        re <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	156	304	
==>d $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer returns Str (Int $run)
    {
        re <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2750	2859	
==>"$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of a <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2750	2859	
==>"$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pugs is a joint work of a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7561	7666	
==>r("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7561	7666	
==>r("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17489	17599	
==>))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILDALL'),
    # method bod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20968	21060	
==>t map
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database manag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20968	21060	
==>t map
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database manag <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8465	8559	
==>abilities.  B<Perform your own security analysis before using it in any 
sensitive application. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8465	8559	
==>abilities.  B<Perform your own security analysis before using it in any 
sensitive application. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28535	28676	
==>\&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28814	28955	
==>\&eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5975	6094	
==>rser.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5975	6094	
==>rser.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.par <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1833	1945	
==>,$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP
    $m;
  }
}


local %Z::oop;
sub mk_operator_precedence_pa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1203	1311	
==>am("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI->param("smoke")) <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1966	2077	
==>t::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1966	2077	
==>t::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5532	5655	
==>mpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5532	5655	
==>mpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1375	1469	
==>ers encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1375	1469	
==>ers encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('iso-8859 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3781	3895	
==>p = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7258	7372	
==>p = { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation.new(
        heading => set( %full_ <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	486	583	
==>opy_all("$_/blibjs/", 'blib6/pugs/js') for <perl5/*>;
}

print "*** Successfully built!  Type '$Co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2889	2993	
==>::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtyp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2889	2993	
==>::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtyp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13180	13273	
==>falls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 deno <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13180	13273	
==>falls
into this category, as well as C<Allow>, C<Expires> and
C<Last-Modified>.  RFC 2616 deno <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20308	20408	
==>, while it performs correctly
and reliably, it also performs quite slowly; you should only use Exampl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20308	20408	
==>, while it performs correctly
and reliably, it also performs quite slowly; you should only use Exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29116	29211	
==>ssor" (that is, a '&&' with a
'&') are post-consumption: they have already matched what they are <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17704	17798	
==>rmation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17704	17798	
==>rmation
about the user agent originating the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8532	8679	
==>ut path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless($ghc_pkg) {
        $ghc_pkg = $ghc;
        $ghc_pkg =~ s/\bghc(?=[^\\\/]*$)/ghc-pkg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7842	7974	
==>n { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8035	8167	
==>n { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1135	1226	
==>ou write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Ad <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1135	1226	
==>ou write B<Module::Compile> extensions that
are compatible with B<Filter::Simple>'s API.

Ad <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4401	4574	
==>k for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when r <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4401	4574	
==>k for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when r <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7365	7537	
==>'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18498	18612	
==>de_with_package {
    my($code,$pkg)=@_;
    "package ${ROOT}::$pkg; $code";
}


sub eval_wa {
    my($code,$wa)=@_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22374	22475	
==>ries in your path that packages could be installed in.

Generally, when a program package would return <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22374	22475	
==>ries in your path that packages could be installed in.

Generally, when a program package would return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4297	4415	
==>(Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4355	4473	
==>(Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1030	1147	
==>ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1030	1147	
==>ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elemen <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5482	5579	
==>ildren)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5482	5579	
==>ildren)
    return $removed_child;
}

method remove_child ($self: Tree $child_to_remove) returns T <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16351	16498	
==>substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 ma <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20777	20924	
==>substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1659	1827	
==>pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1866	2034	
==>pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	330	454	
==>st>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	330	454	
==>st>,
    } if $sent_to_a_chan;

    if $public and $event<rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19504	19619	
==>exp1
    $I0 = pad["subpats"]
    if $I0 >= $I1 goto end
    pad["subpats"] = $I1
  end:
    .return (self)
.end

.n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	626	785	
==>kg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	626	785	
==>kg, $code) = @_;

    no strict 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16418	16605	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16697	16884	
==>ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6890	7032	
==>)\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6890	7032	
==>)\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9253	9354	
==>hod add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9253	9354	
==>hod add_handler(Str $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method con <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	707	815	
==>($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd if (-x $_cmd or $_cmd = MM->maybe_command($_cmd));

	for <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7162	7266	
==>fs} }, "int main () { b_main(); return 0; }";

	join("\n\n", Blondie::Backend::C::Builtins->prelude, @{$s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1197	1294	
==>biguates this case.

Types have a dispatch table; this is a collection of functions and
methods th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4194	4298	
==>t:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) | <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4194	4298	
==>t:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) | <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13953	14051	
==>header field is multi-valued, then the
routine is called once for each value.  The field name passe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13953	14051	
==>header field is multi-valued, then the
routine is called once for each value.  The field name passe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3582	3762	
==>'left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $st <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3582	3762	
==>'left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3971	4080	
==>elf: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3971	4080	
==>elf: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $self.conten <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17364	17467	
==>f, which provides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17364	17467	
==>f, which provides a virtual machine in which Perl code runs).

The classes and methods of this "Rosetta" <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18415	18564	
==>'s' {
                $str ~= Pugs::Internals::sprintf($conversion,"$arg");
            }
            when any(<e f g>) {
                $str ~= Pugs <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12667	12788	
==>ut .= "<span class='$class'>$rest</span>";
      
    }
#    $body->push_content("\n");
     $output .= "\n";
  }
  $templ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9915	10087	
==>]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9915	10087	
==>]/, $cmd );
        $param_list = '' unless defined $param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$sub <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1276	1384	
==>mentations in p5/p6/haskell.
  - perhaps serve as a reference implementation for a while.  By
  sacrificing e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1280	1383	
==>$pilfn\": $!\n";
    unlink $fn or die "Couldn't remove \"$fn\": $!\n";

    $pil_code = "use Math::BigI <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4113	4300	
==>r die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4113	4300	
==>r die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can' <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2436	2536	
==>m $x, int $symmetrical? = 1) {
	$symmetrical ?? $x.round_toward_zero
		!! $x.round_floor
}

our Int m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	737	834	
==>ch they are included; unlike the "mix-in" effect of
adding more superclasses to a Class, all of th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14002	14141	
==>abase.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14002	14141	
==>abase.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14497	14611	
==>Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14497	14611	
==>Translator $translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	636	744	
==>ess (defined $prompt) {
        my $script_name = File::Basename::basename($script_file);
        $prompt = " <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/while3.pl	63	170	
==>o { # keine echte Schleife...
	print "$i\n"; $i++;
	# last if $i==3; # ... würde nicht gehen!
} while($i <= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20089	20188	
==>authorization_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20089	20188	
==>authorization_basic = ($uname, $password);

The method will croak if the $uname contains a colon ':' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7151	7262	
==>REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENG <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7151	7262	
==>REQUEST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENG <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2095	2204	
==>( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', othe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2095	2204	
==>( {
    fixity => 'postcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', othe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2125	2270	
==>, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $role (@{$class->roles}) {
        $output .= _draw_role($rol <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8273	8384	
==>ge->new( file => $file );

    return $self->add_package(package => $pkg, force => $force);
}

1;

# Local varia <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1097	1257	
==>$1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1097	1257	
==>$1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(.)(.*)$/s;
    return $gram <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4755	4970	
==>h {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4755	4970	
==>h {
    return {
        'set_names'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4964	5066	
==>ns the initial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4964	5066	
==>ns the initial position of the match.

=head2 to ()

Returns the final position of the match.

=head1 A <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9794	9915	
==>kip};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passing}) {
            if ($test{m <==
2	/Users/nnunley/pugs/util/config_h.pl	1023	1133	
==>UGS_HAVE_POSIX\n";
}
else {
    print OUT "#define PUGS_HAVE_POSIX 1\n";
}

my $has_readline = try_compile(<< ' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17959	18062	
==>eader_handler {
    my($self, $line, $type, $totals) = @_;

    warn "Test header seen more than once!\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7292	7432	
==>)                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warni <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7292	7432	
==>)                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header("From") }
method warni <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1775	1863	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3151	3239	
==>Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10229	10349	
==>sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SY <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10229	10349	
==>sibling === $self) && return $index;
        $index++;
    }
}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SY <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9307	9447	
==>lete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9307	9447	
==>lete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1941	2089	
==>" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1929	2077	
==>" .
        "  my \$capture;\n" .
        "  my \$quantified;\n" .
        "  my \$m = bless \\{ \n" .
        "    str => \\\$s, from => \\(0+\$pos) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5436	5547	
==>.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z] <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5436	5547	
==>.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6416	6569	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6609	6762	
==>turn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31802	31919	
==>) language A but also understands
language B.  Later on, if for example the first library generates an error
message a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31802	31919	
==>) language A but also understands
language B.  Later on, if for example the first library generates an error
message a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	265	358	
==>ince last_modified
    content_type content_encoding content_length content_language
    title <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	265	358	
==>ince last_modified
    content_type content_encoding content_length content_language
    title <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36633	36725	
==>ns, including
one copy each of any duplicated tuples.

=item C<exclusion (Relation::Example $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	894	1036	
==>1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	907	1040	
==>1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3669	3777	
==>h.multidex> to the index where
captures should put themselves.  In the former example, when C<(bar)> runs,
C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3669	3777	
==>h.multidex> to the index where
captures should put themselves.  In the former example, when C<(bar)> runs,
C< <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2198	2367	
==>shift;
                my $idx = shift;
                delete $self->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $self = s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6551	6705	
==>nch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHECK_ALL */

    
    /* XXX Does regcomp.c zero any of the match fields? */
}

/*
 * regexp_c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2910	3027	
==>{
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2910	3027	
==>{
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4354	4534	
==>nless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied thi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4818	4998	
==>nless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied thi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23212	23311	
==>d
produce ambiguous results or associations.  Or alternately, the other
packages require your text d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23212	23311	
==>d
produce ambiguous results or associations.  Or alternately, the other
packages require your text d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1430	1568	
==>BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1430	1568	
==>BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype () { 'Expression' }
}

# PILPos :: a -> a
class Perl::Compi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26073	26167	
==>) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0, <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2562	2739	
==>raverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain:    "; my $main =   traverse_ast ( %pad<"pilMain"> );
        $ret = emit_Main( $global, $main );
    }	
    elsif $tree[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7300	7442	
==>@_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10783	10888	
==>use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10783	10888	
==>use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance, the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3174	3282	
==>$event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3174	3282	
==>$event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2455	2618	
==>ore_events} = $sum{$fname}[$n];
            }
        }
    }
    
    #
    # Add revisions which were added, not the target though
    #
    pop @revisions;
    $ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6757	6867	
==>^-auto/, @_;
    push @libs, grep /^-prof/, @_;

    @_ = (@pkgs, qw(-idist/build -Ldist/build -idist/build/src <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30977	31077	
==>ch module from others in
its set. For maximum flexibility in their use, the full name of a module
con <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30977	31077	
==>ch module from others in
its set. For maximum flexibility in their use, the full name of a module
con <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12291	12386	
==>d2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns tr <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12291	12386	
==>d2 C<$set1.subset($set2)>

=head2 C<$set1 E<lt>= $set2)>

=head2 C<$set1 ⊆ $set2)>

Returns tr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16159	16327	
==>$.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16159	16327	
==>$.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	444	535	
==>Builder;
use HTML::Entities;
use List::Util 'first';
use Regexp::Common qw/balanced delimite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	612	716	
==>bstract syntax tree

  - the data structure that the Parser generates

  (link to wikipedia?)



* DSL Do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	581	681	
==>bstract syntax tree
  - the data structure that the Parser generates
  (link to wikipedia?)

* DSL Do <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24248	24341	
==>ight (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24248	24341	
==>ight (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestions, and <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5673	5767	
==>e, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementat <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5673	5767	
==>e, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7202	7308	
==>Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7260	7366	
==>Bool $negate?) returns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7041	7157	
==>e ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7041	7157	
==>e ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	210	328	
==>unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	210	328	
==>unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9658	9766	
==>record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9658	9766	
==>record into the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO perso <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11203	11296	
==>ule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These function <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11261	11354	
==>ule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These function <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2288	2442	
==>ar @{$self->get_value('@:slots')};
            },

            'array_storeSize' => sub { # $int -> ()
                my $self = shift;
                my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	539	684	
==>) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_implemented {
    my ( $n, $what ) = @_;
    return "die q(not i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20301	20397	
==>er instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is norma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20301	20397	
==>er instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is norma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9810	9915	
==>lue).")" } # XXX
NODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($typename) {
    p6_type_m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4234	4366	
==>rl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      emitte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4087	4215	
==>rl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      emitte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3323	3427	
==>nd host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3323	3427	
==>nd host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$cu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1684	1804	
==>f->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( ev <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2536	2656	
==>f->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( ev <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1646	1756	
==>inputrc";
my $terminfo     = "/etc/terminfo/l/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30514	30620	
==>e module for each distinct "user
language" (or "user type") for each distinct Message; each file can be
sha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30514	30620	
==>e module for each distinct "user
language" (or "user type") for each distinct Message; each file can be
sha <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2159	2264	
==>eturn $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2159	2264	
==>eturn $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2782	2903	
==>s.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2782	2903	
==>s.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an empty string.],
    'LKT_ARG_ARY_ELEM_EMP_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	2321	2432	
==>s:perl5{^(?!#)}{# };
      $message ~~ s:perl5:g{\n(?!#)}{\n# };
      $.error_output.say( $message );
  }

=cut <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	307	403	
==>s--Perl6.new("SomeClass");
 $class.addMethod(Method.new(...))
 $class.apply;

 # my SomeClass $fo <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1841	1951	
==>6.17 ) {
	$args->{SIGN} = 1 if $self->sign;
    }
    delete $args->{SIGN} unless $self->is_admin;

    # merge <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27501	27597	
==>ed or an empty Set, the
Relation::Example has zero attributes.  If C<$body> is undefined or an em <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7397	7512	
==>en;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "returning " <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7397	7512	
==>en;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "returning " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12255	12391	
==>in {
    my $self = shift;
    $self->{min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = sh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2383	2486	
==>{
	my $result = $self->{$stage};
	next if !defined $result;
	my $warn = $result->warnings();
	$ret .= $w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1525	1646	
==>{ $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1525	1646	
==>{ $c };
}

# return the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8316	8417	
==>sed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8316	8417	
==>sed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18738	18853	
==>hen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20096	20211	
==>hen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11179	11295	
==>ueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11179	11295	
==>ueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can choose <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2423	2527	
==>:Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2423	2527	
==>:Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perha <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8420	8535	
==>= -M $bash and
      -M $initrd_gz <= -M $inputrc and
      -M $initrd_gz <= -M $terminfo and
      -M $initrd_gz <= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7761	7874	
==>y2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Gloc <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7761	7874	
==>y2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Gloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3519	3711	
==>',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '~= <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3226	3352	
==>me    => $self->{name},
        dist_version => $self->{version},
        license      => $self->{license},
    );
    $self->p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	202	332	
==>$.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	202	332	
==>$.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_line;
        
        if ($str ~~ s/^(.*)\n//) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20165	20260	
==>nt;
the interface/behaviour is), this Relation data type is proposed to be
generally useful, and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24717	24812	
==>nt;
the interface/behaviour is), this Relation data type is proposed to be
generally useful, and <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/typen-konvertierung.pl	132	232	
==>my $böse = $wolf as Schafspelz;

# mit obiger Funktion geht dann auch das:
my Schafspelz $pelz = $wo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1603	1698	
==>'Unrecognized escape \\%s%s passed through';
use constant RPe_BADPOS => --$ENUM, 'POSIX class [: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	361	464	
==>c document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $k <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	361	464	
==>c document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $k <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2211	2312	
==>eturn JSX::true if $O.property_value.exists($P);
    my $proto = $O.<[[Prototype]]>;
    return JSX::f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7514	7651	
==>rd = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7514	7651	
==>rd = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	402	579	
==>xpect' => 0);
            }
            elsif (!defined $params{'$:expect'}) {
                confess "Invalid or missing plan";            
            }
        }
    },
    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5542	5647	
==>ssed($value) && $value->isa('type'))
        || confess "You must set '$name' to a native type";
    $self <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18967	19110	
==>if( $curr < $next ) {
        print "Confused test output: test $curr answered after ".
              "test ", $next - 1, "\n";
    }

};

sub b <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4487	4573	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4487	4573	
==>%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&7)*262144+(:16($1)+&63)*4096+(:16($2) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13673	13835	
==>/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13673	13835	
==>/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $match =~ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10812	10913	
==>ulk of the Rosetta::Model code,
and these could potentially be extended by third party add-ons.

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10812	10913	
==>ulk of the Rosetta::Model code,
and these could potentially be extended by third party add-ons.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	68	185	
==>ket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	68	185	
==>ket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14526	14678	
==>ertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14520	14672	
==>ertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19319	19414	
==>ield value consist of a challenge that indicates the
authentication scheme and parameters applic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19319	19414	
==>ield value consist of a challenge that indicates the
authentication scheme and parameters applic <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3865	3959	
==>irst id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5767	5861	
==>irst id');
is($Class->class, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '. <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2356	2453	
==>edel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

Thi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2356	2453	
==>edel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7472	7586	
==>{ return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($siz <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7472	7586	
==>{ return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($siz <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37477	37575	
==>name of a Perl package in its positional parameter
$module_name (a string) and tries to load it usi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37477	37575	
==>name of a Perl package in its positional parameter
$module_name (a string) and tries to load it usi <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	123	216	
==>se it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	123	216	
==>se it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1524	1624	
==>s often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Ka <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1524	1624	
==>s often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Ka <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	314	445	
==>ert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	314	445	
==>ert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented a <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	79	189	
==>port {
    "hello, $name";
}

=kwid

= NAME

Sample::Module - A Sample Module for Pugs/Perl6

= SYNOPSIS

    > <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1216	1338	
==>ven;
	} else {
		$t = 1;
		return $x.round_half_odd;
	}
}

our Int multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.ro <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11509	11608	
==>My inclination is to wait until objects are done for this, but maybe I will
figure out a good way to <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11509	11608	
==>My inclination is to wait until objects are done for this, but maybe I will
figure out a good way to <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3306	3417	
==>i) * 360 }
	/:i ^g/ { $radians / (2*pi) * 400 }
	(Num)   { $radians / (2*pi) * $base } # XXX - spec ambiguous
	d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23838	23956	
==>REXEC_IGNOREPOS 0x08            /* \G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29025	29122	
==>REXEC_IGNOREPOS	0x08		/* \G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3860	3958	
==>)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3860	3958	
==>)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1769	1879	
==>~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1769	1879	
==>~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17668	17875	
==>$ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->vi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14089	14296	
==>$ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->vi <==
2	/Users/nnunley/pugs/util/drift.pl	1972	2077	
==>uch/;

print OUT @program;

print OUT <<".";

type Buf = Buf.ByteString

#endif
.
close OUT;

unlink "$in. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	474	592	
==>) { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	474	592	
==>) { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        r <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	537	659	
==>ess $flavor;

    unless ($inserted++) {
        regexp_exechook_insert();
        regexp_hook_on();
    }

    no strict ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17254	17354	
==>ty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator() <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17254	17354	
==>ty.

- `is_infinite()`

Returns true if the start or the end of the span are Infinite.

- `iterator() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7226	7361	
==>{ 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7226	7361	
==>{ 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Node',
            'VAL' => $val } )
        if !$val.does( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1258	1354	
==>Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1258	1354	
==>Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1855	1951	
==>ous intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1783	1877	
==>ous intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24001	24095	
==>y of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24001	24095	
==>y of external references.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18586	18688	
==>f Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". See L<SYNO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18586	18688	
==>f Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". See L<SYNO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1450	1569	
==>ndard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1450	1569	
==>ndard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$lc}  = $i + 1;
    %s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	649	752	
==>unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	649	752	
==>unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2905	3007	
==>.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2905	3007	
==>.translate_message( $message );
    if (!$user_text) {
        $*ERR.print( "internal error: can't find <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	973	1072	
==>($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	973	1072	
==>($sitearch) = ($output =~ /^\s*sitearch:\s+(\S+)/m);
    my ($sitelib) = ($output =~ /^\s*sitelib:\s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8532	8647	
==>pture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8528	8643	
==>pture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	565	674	
==>ale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I ch <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	565	674	
==>ale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs barf last I ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18943	19041	
==>e of modelling anything in the real world accurately, and it
can support a complete SQL emulation l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18943	19041	
==>e of modelling anything in the real world accurately, and it
can support a complete SQL emulation l <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5642	5747	
==>128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5642	5747	
==>128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	395	495	
==>e
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure funct <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	395	495	
==>e
for the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure funct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	927	1079	
==>t> <op> <tight>', 
    infix_chain =>     '<tight> [ <op> <tight> ]+',
    infix_list =>      '<tight> [ <op> <tight> ]+',
    ternary =>         '<tight <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8338	8442	
==>=> $pkg, force => $force);
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# ind <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10401	10493	
==>def","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11136	11228	
==>def","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
print ' $^N ',defined( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11705	11805	
==>owing syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11763	11863	
==>owing syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However the `&i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	943	1063	
==>ollapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Foo but not x" is expressed as
#     <!before x> < <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4547	4644	
==>$rh, $wh, $lines);
    my $pid = open2($rh, $wh, $Config{pugs}, -C => 'Parse-YAML', $TEMP_PRELUDE) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2516	2644	
==>elf: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.el <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2516	2644	
==>elf: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.el <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32441	32561	
==>node's ender:
  sub ender {
    my $self = shift;
    [ 'close', $self->nparen ];
  }

That means that when an 'open' nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1447	1579	
==>rack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\c[A;B] in c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35083	35227	
==>&& $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get('$return') <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7356	7448	
==>f->generic_reduce($app);

	my ($thunk, @params) = $rapp->struct_equiv->values;

	my $orig_thu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1594	1704	
==>\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  do <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1594	1704	
==>\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  do <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1569	1756	
==>ub {
                my $self = shift;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                return undef unless $c;
                $c->sca <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15007	15116	
==><use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15007	15116	
==><use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these routines modify the string passed <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31525	31625	
==>})>.  Using the 'p' form is deprecated, but is
still allowed, so I delete its handler too.  You can u <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	135	233	
==>ompiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	135	233	
==>ompiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2015	2121	
==>X this might need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    return Pro <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2015	2121	
==>X this might need to be rewritten
method content ($self: Str $content?, Bool $keep?) is rw {
    return Pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2313	2433	
==>de";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2313	2433	
==>de";
        my $proto = ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1849	2005	
==>art,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1849	2005	
==>art,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2291	2426	
==>tores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2291	2426	
==>tores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized().
  my %cache353 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2263	2401	
==>(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    defaul <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2263	2401	
==>(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    defaul <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9454	9677	
==>);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9454	9677	
==>);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1511	1623	
==>s, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1511	1623	
==>s, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compil <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1391	1500	
==>";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   pr <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9078	9246	
==>o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data->emit;
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($fmin,$fagai <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5466	5558	
==>SX::false }
multi sub ToBoolean(JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Val <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1599	1698	
==>nux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(N <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1599	1698	
==>nux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(N <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	760	853	
==>antify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tell <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	760	853	
==>antify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, which, if present, tell <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2541	2639	
==>Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Con <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2541	2639	
==>Value::List, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Con <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	750	846	
==>tf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	750	846	
==>tf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This docu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	693	892	
==>leop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	694	893	
==>leop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6605	6707	
==>tories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6605	6707	
==>tories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, Str $_base?) retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	861	1116	
==>=> {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS,
        }
    };
    
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accesso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3933	4068	
==>elf->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5157	5292	
==>elf->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1575	1710	
==>1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1511	1642	
==>1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	409	600	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	409	600	
==>leop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optiona <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13466	13569	
==>r file or test which must be
made to pass before this test can pass (or before an implementation
could b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13524	13627	
==>r file or test which must be
made to pass before this test can pass (or before an implementation
could b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9004	9183	
==>ey, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9004	9183	
==>ey, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version');
                my $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1547	1656	
==>rotocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline);
    }
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1547	1656	
==>rotocol if $proto.defined;
        
        return ($req_line, ../as_string($newline)).join($newline);
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13291	13396	
==>ns a recurrence set containing only the elements that 
satisfy the given boolean function.

    # remove 0 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13291	13396	
==>ns a recurrence set containing only the elements that 
satisfy the given boolean function.

    # remove 0 <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	14	121	
==>rk-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $c <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	14	121	
==>rk-0.1;
use v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	722	815	
==>herer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	722	815	
==>herer/decipherer (rot13 
draws no distinction between them.)  The C<:shift(N)> option can be u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15479	15581	
==>ader represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15479	15581	
==>ader represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4502	4640	
==>_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4987	5125	
==>_;
    
    my $pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8322	8479	
==>";
        $fail = 1;
      }
    } else {
      print STDOUT "# key ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4825	4952	
==>turn;

    if( File::Copy::move( $from, $to ) ) {
        return 1;
    } else {
        error("Failed to move '$from' to '$to': <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1393	1493	
==>$rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1393	1493	
==>$rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15390	15493	
==>e span.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_end( $o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15390	15493	
==>e span.

These methods may return nothing if the span is empty.

- `set_start( $object )` / `set_end( $o <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2605	2717	
==>hDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2605	2717	
==>hDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

method day_of_year () returns Int {
    my @doy <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	369	497	
==>eter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*I <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	369	497	
==>eter to lib.import() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*I <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22547	22746	
==>'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            }
        )
    )
);

=pod

method clas <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38686	38780	
==>er> is a subset of the
heading of the invocant Relation::Example, and returns a new Relation::E <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15979	16100	
==>my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # altern <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10835	10956	
==>my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8969	9078	
==>ame magic.



overload in p5 is just static %OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8674	8779	
==>ame magic.

overload in p5 is just static %OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you c <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	105	226	
==>lBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NA <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	105	226	
==>lBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NA <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1187	1297	
==>e::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class-> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1187	1297	
==>e::Compile based modules inherit this import routine.
sub import {
    my ($class) = @_;
    return if $class-> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8405	8518	
==>) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8405	8518	
==>) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	770	919	
==>ide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	770	919	
==>ide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    meth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4113	4226	
==>>lastcloseparen = 0;
    }

    newstr = (r->sublen != strend-strbeg ||
              !strnEQ(r->subbeg,strbeg,r-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1420	1531	
==>and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18901	19034	
==>er('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15322	15455	
==>er('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9597	9733	
==>rd   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9597	9733	
==>rd   = %hash.exists('discard');   %hash.delete('discard');
                
                my @array = ($version, $val, $port, $path_spe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1195	1345	
==>~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1195	1345	
==>~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verbatim => -> ($text) { 
            m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	770	884	
==>';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return joi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	770	884	
==>';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return joi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5331	5444	
==>(Max), !.
p6_range_bounds_RHS(_Min,-)   --> "...", !.
p6_range_bounds_RHS(Min ,Min) --> {true}.



p5_elemental(gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10540	10701	
==>lose };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10540	10701	
==>lose };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set( <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2047	2157	
==>Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns boo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2047	2157	
==>Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns boo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	17	107	
==>ore::Symbol;

use Perl6::Core::Type::Equivalence;
use Perl6::Core::Num;
use Perl6::Core::Bi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24162	24283	
==>'>
    | <','>
}
rule uriUnescaped {  # see 15.1.3
      <uriAlpha>
    | <DecimalDigit>
    | <uriMark>
}
rule uriEscaped <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2120	2219	
==>essing, too.

=head2 C<run()>

Enter the main runloop.

=head1 AUTHOR

Ingo Blechschmidt C<< <iblech <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2220	2340	
==>string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0] <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2220	2340	
==>string == 2) {
      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17681	17784	
==>r to an error condition by an
internal code which is guaranteed to be unique for a situation, and this i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17681	17784	
==>r to an error condition by an
internal code which is guaranteed to be unique for a situation, and this i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4669	4791	
==>ete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4669	4791	
==>ete(@nicks);

      # For each nick, make sure we've registered them as people who are on
      # $chan:
      %_channels{$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	274	423	
==>$:singleton',    
    ],
    attributes => [
        '$.output',
        '$.testplan',
        '@:results',
    ],
    class_methods => {
        'new <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1333	1458	
==>n;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ($fname) = @_;
    print STDERR "processing $fname...\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4791	4910	
==>$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4791	4910	
==>$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAMES
    ./add_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4243	4381	
==>pre     sort    safe   (Array: Code)\
\\n   Int       pre     List::elems   safe   (Array)\
\\n   Int       pre     List::end     safe   (A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	994	1097	
==>/body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.pr <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	994	1097	
==>/body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 200 OK\r\n");
    $.remote.pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5811	5938	
==>my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5811	5938	
==>my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print "Pos: $_[5] - ", length($_[6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7336	7488	
==>:concat( \n" .
                "        ruleop::constant( '$prefix:<$id>' ),\n" .
                "        \\&grammar1::ws_star,\n" .
                mai <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5042	5179	
==>@tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$off <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5042	5179	
==>@tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    else {
        @tail = self._pop_n( -$off <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13622	13727	
==>ite loop if the formula cannot be satisfied within a 
reasonable range of values.

You should consider usi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13622	13727	
==>ite loop if the formula cannot be satisfied within a 
reasonable range of values.

You should consider usi <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1639	1741	
==>ty to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The val <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1639	1741	
==>ty to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The val <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25600	25698	
==>n
which is the same as the invocant Relation but that some of its attributes
are renamed.  The argu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30152	30250	
==>n
which is the same as the invocant Relation but that some of its attributes
are renamed.  The argu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9104	9201	
==>StringCharacters>?
}
rule DoubleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <- <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1266	1392	
==>t::Emitter::Perl {
    role Getopt::Argument::Normalizer::Perl {
        has Str $name;
        has Str $string;
        has In <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27309	27422	
==>elf, $tree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regex <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14467	14565	
==>PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This mod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14525	14623	
==>PLANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This mod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7959	8057	
==>n_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7959	8057	
==>n_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20195	20300	
==>head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20195	20300	
==>head2 C<$bot.add_handler("JOIN", -E<gt> $event {...})>

=head2 C<$bot.add_handler("loggedin", -E<gt> $even <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3391	3712	
==>es && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3391	3712	
==>es && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10902	10999	
==>::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10902	10999	
==>::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'get_p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15727	15883	
==>o Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15727	15883	
==>o Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2962	3058	
==>uery string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2962	3058	
==>uery string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	818	998	
==>t work over http mirrors etc!
        file => {
            required    => 1,
            store       => \$file,
            allow       => FILE_EXISTS,
        }
    };
    
    my <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2212	2309	
==>struct pointed to by substrs :( */

#define RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITI <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25598	25757	
==>et_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=pod

method subclasses (opaque $self:) returns list {
    @:subclasse <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	27	115	
==>ondie::Backend::C;
use base qw/Blondie::Runtime Blondie::Reducer::DynamicScoping/;

use s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1780	1885	
==>e value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1780	1885	
==>e value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1789	1898	
==>cimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

rege <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1789	1898	
==>cimal> [ [e|E] <Int>]? };

# base N

regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

rege <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	255	359	
==>de (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	255	359	
==>de (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this if they <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13856	13961	
==>o_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13856	13961	
==>o_save = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2495	2596	
==>ward_zero
		!! $x.round_floor
}

our Int multi Num::truncation (Num $x) {
	...
}

# Other math functio <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24373	24468	
==>n object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28925	29020	
==>n object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11331	11436	
==>+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11331	11436	
==>+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1059	1160	
==>oved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'spla <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1059	1160	
==>oved from Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'spla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2086	2205	
==>pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2074	2193	
==>pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$captu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3329	3467	
==>rt;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3329	3467	
==>rt;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4845	5019	
==>.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                l <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4845	5019	
==>.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } 
            },
        closure_previous =>
            sub ($x is copy) { 
                l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6546	6664	
==>ule is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6546	6664	
==>ule is already loaded.
        # It may have been embedded in a core program file and hence
        # should never be l <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1155	1267	
==>e printed.  It is designed for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Se <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1155	1267	
==>e printed.  It is designed for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Se <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	654	791	
==>r eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $reg <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	654	791	
==>r eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $char eq '$' ) {
            $reg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8543	8643	
==>etta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also des <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8543	8643	
==>etta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also des <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3345	3453	
==>($p2->class, \&Point, '... got the right class name');

is($p2->get_x, 100, '... got the right x for p2');
is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11777	11891	
==>item $h.push_header( $field, $value )

Add a new field value for the specified header field.  Previous values
for t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11777	11891	
==>item $h.push_header( $field, $value )

Add a new field value for the specified header field.  Previous values
for t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11257	11353	
==>cation) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11257	11353	
==>cation) returns Str>

=item B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30186	30300	
==>so contain variable names that correspond
to Message Variables, which will be substituted at run-time before the te <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30186	30300	
==>so contain variable names that correspond
to Message Variables, which will be substituted at run-time before the te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1055	1194	
==>f the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1055	1194	
==>f the invocant Node; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' key,]
           ~ q[ which i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35625	35718	
==>ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This mu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40175	40268	
==>ary version of the aforementioned.

=item C<join (Relation $other!) returns Relation>

This mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3860	3962	
==>> $S->force_object(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_handler( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf1.pl	134	235	
==>: sechs mal würfeln
my @a = wurf() xx 6; #!\pause
# Falsch: 6 mal die selbe Zahl
#!\pause\visible<5>{ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13132	13293	
==>} else {
                    print "Don't know which tests failed: got $test{ok} ok, ".
                          "expected $test{max}\n";
                    $fa <==
2	/Users/nnunley/pugs/util/func_refact.pl	1045	1163	
==>%ccset = map { $_ => 1 } @_;
        union (\%ccset, $_) for keys %ccset;
        print "doUnion: initial set size is " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14340	14443	
==>api, etc.

  The perl regexp engine was long ago derived from Henry Spencer's
  regexp library.  http:// <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3545	3658	
==>> $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3545	3658	
==>> $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out <==
2	/Users/nnunley/pugs/util/fixauthors.pl	399	530	
==>$_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n";
  }
}

print @head;
print @a;



sub cpanid2realname {
  my $ui <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7140	7269	
==>sv;
    sv = eval_pv("$regexp_compile_hook_p5re",0);
    if(sv != NULL && SvTRUE(sv)) {
      fprintf(stderr,"regexp_compile_hook_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20022	20147	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20301	20426	
==>e( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4024	4155	
==>', exp1 => $_[3], } }

    | BAREWORD            
        { $_[0]->{out}= { op1 => 'call', sub => $_[1], } }

    | BAREWORD 'IF' ex <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1212	1338	
==>($resp->is_success) {
    if($resp->content =~ /^ok/) {
      debug "success!\n";
      exit 0;
    } else {
      debug "error <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2128	2330	
==>(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2128	2330	
==>(
        FETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$ol <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19023	19130	
==>:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_sa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19023	19130	
==>:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPersist.put( $hash_to_sa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17359	17457	
==>y, you can only call it through an object that
inherits from that class.

There are no longer I<sta <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	374	504	
==>escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $p <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	374	504	
==>escape (Str $string is copy, Str $unsafe, Bool :$negate) returns Str is export(:DEFAULT) {
        my $pattern;
        
        $p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6615	6758	
==>text ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6673	6816	
==>text ~= " (depends on $depends working)";
    }

    my $out = $desc.defined ?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITI <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1919	2021	
==>Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1919	2021	
==>Locate directory of original perl script

=head1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4085	4222	
==>he same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a sect <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4085	4222	
==>he same as windows .ini files, for example.

        [section]
        var1=value1
        var2=value2

If a property is outside of a sect <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20377	20475	
==>owly; you should only use Example
for testing, development, and study; you should not use it in pro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20377	20475	
==>owly; you should only use Example
for testing, development, and study; you should not use it in pro <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2719	2838	
==>iverse );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2719	2838	
==>iverse );
    return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $se <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11753	11851	
==>nce.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exactl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11753	11851	
==>nce.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are exactl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3861	3983	
==>| $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3861	3983	
==>| $key, $val);
      }
    } else {
      $sub.(%standard_case{$key} || $key, $vals);
    }
  }
}

multi sub *infix:<as> (: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2709	3022	
==>verse @body) . '; }';
                }
                else {
                    $in_block = 1;
                }
            }            
            elsif ($in_block) {
                push @buffer => $t;          
            }            
            
            # deal with numbers
            elsif ($t = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1553	1654	
==>Array is export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1553	1654	
==>Array is export {
    return &::($worker_pkg)::no_upwards( *@filenames );
}

sub file_name_is_absolute <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10505	10651	
==>ty => 2, name => "&infix:<$_>", body => eval 'sub { $_[1] '.$_.' $_[2] }' } || die $@} qw(+ - == <=), '<', do {
        grep {
            print "I <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	920	1015	
==>w(0) }
sub less_than_or_equal_to    { $_[0]->_compare($_[1]) <= 0  ? bit->new(1) : bit->new(0) } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	381	492	
==>port {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	381	492	
==>port {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::($worker_pkg <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1376	1469	
==>tp://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ft <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1216	1309	
==>tp://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ft <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1018	1126	
==>lf = shift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4629	4744	
==>erate
{   
    sub package_re { $Package_re };

    sub prefix {
        return $1 if shift->package() =~ $Package_r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20707	20817	
==>our
preference.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20707	20817	
==>our
preference.  Presumably the messages in these files are looked up by the
program using keys.  Mac OS X (and <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3877	4041	
==>one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avai <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4341	4505	
==>one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avai <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5764	5862	
==>: cannot find object ($child_to_remove) in self";
}

## ------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5764	5862	
==>: cannot find object ($child_to_remove) in self";
}

## ------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14496	14598	
==>ched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14496	14598	
==>ched_name( $fetched_person.get_field('name') );
                show_fetched_sex( $fetched_person.get_f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12720	12871	
==>ry to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12720	12871	
==>ry to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	150	249	
==>ugs::Grammar::BaseCategory ws()

# placeholder for the Pod grammar

# XXX Pod can only start at a li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11515	11654	
==>q ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11509	11648	
==>q ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8845	8956	
==>_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword sema <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8845	8956	
==>_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword sema <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	143	247	
==>:CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	143	247	
==>:CodeGen {

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	262	350	
==>version);

my (@eval,$repl,@inc_dirs,$compile,$as_yaml);my($debug);
use vars qw($Perl6::R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5457	5595	
==>stfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5457	5595	
==>stfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> infix:<+>', 
        'statement/expression inside a block' 
    );
    #print po <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6777	6870	
==>$() ,} }
RULE
*{'eval_perl5'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    eval <p6 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2573	2669	
==>turn ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SEL <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2573	2669	
==>turn ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SEL <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26906	27004	
==>urns Relation>

This method is the same as C<project> but that the returned Relation has
the comple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31458	31556	
==>urns Relation>

This method is the same as C<project> but that the returned Relation has
the comple <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9751	9879	
==>ilitate the Pugs test suite. It has the
distinction of being the very first module written for Pugs.

It provides a simple set of <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9809	9937	
==>ilitate the Pugs test suite. It has the
distinction of being the very first module written for Pugs.

It provides a simple set of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4482	4580	
==>the match object returns the I<result>
object; this is normally the entire match string, but may be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4482	4580	
==>the match object returns the I<result>
object; this is normally the entire match string, but may be <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14995	15091	
==>Default is LChars.

[Q: Can't be LChars because we don't go into "language" mode unless there's
a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20380	20477	
==>ually do it.  An os-level preference
/ control-panel displays a list of all the languages your pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20380	20477	
==>ually do it.  An os-level preference
/ control-panel displays a list of all the languages your pro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7955	8051	
==>e)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7955	8051	
==>e)}<channels>.keys;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.d <==
2	/Users/nnunley/pugs/util/package-osx.pl	6252	6349	
==>iew::Operator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local/man/m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9439	9540	
==>f $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9439	9540	
==>f $span0.is_empty;
    my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9122	9254	
==>mber capture groups with the nparen() method:

  my $captgroups = $parser->nparen;

=head2 Getting All Captures

You can access all t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13842	13955	
==>( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. T <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13842	13955	
==>( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. T <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6906	7048	
==>ody:       "; my $body =     traverse_ast ( %pad<"pSubBody"> );
        dbg "# IsMulti:    "; my $is_multi = %pad<"pSubIsMulti">;
        dbg " <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1440	1549	
==>ir($testdir);
END {
    #chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6558	6711	
==>ule content; not the DATA section. Because we
                # want to make sure that the program runs the same way
                # as both a .pm and a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6558	6711	
==>ule content; not the DATA section. Because we
                # want to make sure that the program runs the same way
                # as both a .pm and a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	180	283	
==>ith non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arb <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	180	283	
==>ith non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arb <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1295	1402	
==>to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infi <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1295	1402	
==>to Date::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	52	142	
==>ule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	52	142	
==>ule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, RuleInline-more.p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7806	7911	
==>ject representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7806	7911	
==>ject representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1070	1242	
==>ype' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exists $table->{prototype};      
        
        my $_table <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1860	1985	
==>e accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1860	1985	
==>e accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15411	15517	
==>is is, and by extension
what kinds of attributes or relative Nodes it can have, as well as where
and how th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15411	15517	
==>is is, and by extension
what kinds of attributes or relative Nodes it can have, as well as where
and how th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1995	2132	
==>xists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1995	2132	
==>xists $a[-1]{match} && ref( $a[-1]{match} ) eq 'ARRAY' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1441	1550	
==>ESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
to several other modul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1441	1550	
==>ESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
to several other modul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18771	18868	
==>mple C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18771	18868	
==>mple C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This module will C</WHO> itself <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20412	20508	
==>zed including the
'_' to '-' translation.  There are some application where this is not
appropria <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20412	20508	
==>zed including the
'_' to '-' translation.  There are some application where this is not
appropria <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	556	748	
==>,
    'V'         => sub{ print "$0 has no version itself.\n";
                        system("pugs","-V");
                        exit;},
    'repl'      => \$repl,
    'debug'     => \$debug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25659	25757	
==>etta can sell you an alternate, limited license that allows you to link
Rosetta with non-free softw <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25659	25757	
==>etta can sell you an alternate, limited license that allows you to link
Rosetta with non-free softw <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1509	1609	
==>es only one option, C<:key>, containing the key.  
Arcfour keys can be any random number between 40 a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1509	1609	
==>es only one option, C<:key>, containing the key.  
Arcfour keys can be any random number between 40 a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2304	2410	
==>eturns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2304	2410	
==>eturns Object { return $.set.start }
method end ()           returns Object { return $.set.end }
method sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1118	1244	
==>$_[1]     : 0
$_[1] )";
}

sub emit {
    my ($grammar, $ast, $param) = @_;
    # runtime parameters: $grammar, $string, $state <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1661	1754	
==><Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1661	1754	
==><Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1768	1883	
==>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($sourc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1768	1883	
==>} ) . "\n" } ))->code;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($sourc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7967	8092	
==>iag';
  has Test::Builder::TestPlan $.testplan;
  has                         @:results;
  
  method new ( Test::Builder $Clas <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9206	9311	
==>t for link management
    LINKING: {   
        my $alt = $self->remove_registered_alternative( package => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6355	6493	
==>rn $current->{env}->{$name}->fetch
            if exists $current->{env}->{$name};  
        $current = $current->next;
    }
    confess " <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10218	10310	
==>(list => type::variable::free->new),
		type::operator::nullary->new("bool"),
	),
	# list a -> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12751	12893	
==>os = mfrom
    isrange = 0
    $S0 = substr target, pos, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegated"] = 1
    inc pos
  sc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31050	31148	
==>dle_names)

This uninstalls the given handles.  You send the names (like '|' or
'atom').  Here is a <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1726	1816	
==>$(${re_symbol}\{.+?\})/%$1/g;
}

conv_reference {
    s/\$(${re_symbol})->(\[.+?])/\$$1$2/g <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	854	1082	
==>0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	854	1082	
==>0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_ele <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3042	3137	
==>et $other) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3042	3137	
==>et $other) returns Set {
    $self.difference($other).union($other.difference($self));
}

our &S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7205	7305	
==>h returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7205	7305	
==>h returns nothing.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2743	2837	
==>b new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2743	2837	
==>b new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13877	14012	
==>ee->[-1]->{data} } > 1) {
      my $d = pop @{ $tree->[-1]->{data} };
      my $v = pop @{ $tree->[-1]->{vis} };
      my $q = $rx->obje <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	409	510	
==>\$value => $class;
}

sub to_native { shift }

# conversion to other native types
sub to_num { num->ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10930	11073	
==>val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10930	11073	
==>val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method as <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3443	3553	
==>t; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3443	3553	
==>t; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 b <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7386	7500	
==>ALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwant <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7444	7558	
==>ALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwant <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6739	6847	
==>LLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Es <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6797	6905	
==>LLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # TODO" confuse the harness. Es <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3143	3244	
==>st if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn_src_dir, 's <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1842	1948	
==>lf: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1842	1948	
==>lf: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13751	13871	
==>ic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13751	13871	
==>ic seen for {time() - $.last_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11620	11730	
==>thout. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Au <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11620	11730	
==>thout. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Au <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26340	26439	
==>The new Relation has all
of the tuples of the original (or rather, the corresponding projection of
e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30892	30991	
==>The new Relation has all
of the tuples of the original (or rather, the corresponding projection of
e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10697	10792	
==>Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10755	10850	
==>Str :$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1902	2024	
==>_DIR },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34310	34403	
==>s and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new ob <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34310	34403	
==>s and returns a new Locale::KeyedText::Translator object.
The Set Names property of the new ob <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2939	3045	
==>rns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2939	3045	
==>rns Set {
    set($self.members.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2396	2523	
==>s,
        )
    );
}

# create this here so we can refer to it,.. 
my $EigenClass;

# The 'Class' class
$Class = ::create_class <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9968	10082	
==>::nary->new(list => $a),
				type::operator::nary->new(list => $a),
			),
		);
	},
	# list a
	nil => type::operator <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25009	25103	
==>r.e. contains something
 * potentially expensive (at present, the only such thing detected is * <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2141	2280	
==>tra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2141	2280	
==>tra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7093	7204	
==>e();

    return <?p6ws> $<val> := (<term1>|<term2>) <?p6ws>? \;
        { return { _return => $() ,} }
RULE
pus <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	534	769	
==>ist' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        }, <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	534	769	
==>ist' {
                    my $indent = @args.shift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        }, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2071	2206	
==>c => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '==',
        asso <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6311	6440	
==>!($X::pos == (length($X::str)));
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\z';
    return sub{
      FAIL() if ! <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17421	17560	
==>tests} test scripts, $pct% okay.".
                "$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{fi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	513	649	
==>est::Harness::Straps;

  my $strap = Test::Harness::Straps->new;

  # Various ways to interpret a test
  my %results = $strap->analyze($n <==
2	/Users/nnunley/pugs/util/package-osx.pl	828	934	
==>rrot.0.4.4.dylib
        /usr/local/lib/libparrot.a
        /usr/local/lib/libparrot.dylib
        /usr/loc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10391	10493	
==>terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::option <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10670	10772	
==>terms, \&named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::option <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6510	6613	
==>BEHIND_SEEN | ROPT_EVAL_SEEN;
    r->reganch |= ROPT_CANY_SEEN | ROPT_SANY_SEEN;
    /* But not ROPT_CHE <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1546	1647	
==>en("term:<", "term:", "nows", &parse_subrule);
    $optable->addToken("term:<?", "term:", "nows", &par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1409	1500	
==>mpiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1409	1500	
==>mpiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(1000, {
    PCR_x10 => sub{$rpcr->mat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1833	1941	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Ex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1833	1941	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Ex <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6135	6230	
==>ccessfully. However, more complex POD 
documents may not do as well. Error reporting is still pr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6135	6230	
==>ccessfully. However, more complex POD 
documents may not do as well. Error reporting is still pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9004	9137	
==>e code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9004	9137	
==>e code.
sub pmc_call {
    my $class = shift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18388	18502	
==>e server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18388	18502	
==>e server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C< <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	47	149	
==>s $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($clas <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	47	149	
==>s $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($clas <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15519	15631	
==>ource) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15519	15631	
==>ource) = @_;
        # Convert $source into (most likely Perl 5) $compiled_output
        return $compiled_output <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18855	18960	
==>od so you
can avoid this misspelling in your programs and still send the right
thing on the wire.

When se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18855	18960	
==>od so you
can avoid this misspelling in your programs and still send the right
thing on the wire.

When se <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2109	2258	
==>1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2109	2258	
==>1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        r <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2394	2543	
==>string_to_arguments( $string ) {
            given $string {
                when /^-(\w)+/ { map { call("-$_") }, @/ }
                default { next <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2352	2447	
==>ift @{$_[1]};
    *$cv->{sig}->bind({ invocant => $invocant, positional => $_[1][0], named => $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8196	8357	
==>param}} 
            ) .
            ')';
    }

    return _not_implemented( $n, "syntax" );
}

sub statement {
    my $n = $_[0];
    #warn "statement <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1731	1846	
==>use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	141	245	
==>grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	141	245	
==>grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5745	5840	
==>rammar engine



* Pugs::Grammar::Rule and Pugs::Grammar::Match



Rule constructors return Rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5546	5637	
==>rammar engine

* Pugs::Grammar::Rule and Pugs::Grammar::Match

Rule constructors return Rule <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2130	2265	
==>ry from where script was invoked
    $Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all link <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2130	2265	
==>ry from where script was invoked
    $Script      - basename of script from which perl was invoked
    $RealBin     - $Bin with all link <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	192	316	
==>har = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	192	316	
==>har = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3200	3349	
==>date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3200	3349	
==>date = ./date;
        
        my $age = 0;
        
        if ($response_time && $date) {
            $age = $response_time - $date; # apparent_age <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38577	38685	
==>en "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38577	38685	
==>en "Hello <place>!" in $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10372	10480	
==>login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10372	10480	
==>login() {
    return unless $.connected;

    $!queue.enqueue({
      # Indicate that we're currently logging <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	60	170	
==>will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
m <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	60	170	
==>will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7525	7667	
==>le2, ...)
# 
# Adds a list of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10688	10775	
==>!.
p6_char_class(class_neg(vertical_space))    --> "\\H", !.
p6_char_class(class_pos(new <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3202	3314	
==>d strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3202	3314	
==>d strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16166	16272	
==>ernals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20592	20698	
==>ernals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without looking.
No <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	873	1009	
==>ve;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	873	1009	
==>ve;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $request.uri;
        my <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3296	3441	
==>);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index = <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3296	3441	
==>);                         
        $tree.fix_depth() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	484	610	
==>gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, [] <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	484	610	
==>gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, [] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16611	16719	
==>maximum amount of control as
to what the user sees; it never outputs anything by itself to the user, but
rath <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16611	16719	
==>maximum amount of control as
to what the user sees; it never outputs anything by itself to the user, but
rath <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2149	2266	
==>,
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2160	2277	
==>,
        \&ws_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4360	4515	
==>lar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self->get_value('@:slots')} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6138	6260	
==>h') {
	die "unimplemented";
    }
    if($cls eq 'IO') {
	die "unimplemented";
    }
    if($cls =~ /\A(?:Code|Routine|Sub| <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25868	25959	
==>H_SBOL)
 #define ROPT_ANCH_SINGLE	(ROPT_ANCH_SBOL|ROPT_ANCH_GPOS)
 #define ROPT_ANCH_BOL	 	0 <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1560	1669	
==>st plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1560	1669	
==>st plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15655	15766	
==>e corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "O <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15655	15766	
==>e corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "O <==
2	/Users/nnunley/pugs/util/package-osx.pl	1566	1655	
==>brary/Perl/5.8.6/jspugs.pl
        /usr/local/lib/perl5/site_perl/PIL.pm /Library/Perl/5.8 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30289	30387	
==>This handler un-consumes the ')' (via C<&RxPOS-->) and returns false, to
pretend it didn't actually <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	12270	12365	
==>mijoin (Relation::Example $other!) returns Relation::Example {

    die "The heading of the rela <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18178	18286	
==>ion of any
character in the class I<outside> of embedded classes, so the class
C<[\w\d:4-65:]> will render as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4289	4430	
==>anumeric-ending token is actually 
            #     a longer-token bareword
            #     'ne' vs. ':negate'
            my $name = $ast- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1019	1163	
==>scape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1019	1163	
==>scape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13258	13352	
==>- `grep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13258	13352	
==>- `grep:{...}`

This method returns a recurrence set containing only the elements that 
satisfy <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2093	2204	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2093	2204	
==>IL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12056	12178	
==>op => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->err <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4699	4821	
==>op => $name, 1);
  });

  # prop (a unicode property)
  $self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->err <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	143	245	
==>ERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field names.
our <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	143	245	
==>ERSCORE variable controls whether '_' can be used
# as a replacement for '-' in header field names.
our <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3065	3266	
==>slator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3065	3266	
==>slator" ); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Ro <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2289	2451	
==>aram->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<*>'),
                Sym->new('$ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2647	2776	
==>aram->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2323	2469	
==>ion( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2334	2480	
==>ion( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1292	1393	
==>st be a core type";    
    return num->new($left->to_native - $right->to_num->to_native());
}

sub mu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2350	2459	
==>f defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2350	2459	
==>f defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!he <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4812	4941	
==>har eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4812	4941	
==>har eq $_;
        return "$_[1] perl5( '[^\\$_]' )\n" if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5955	6068	
==>rted = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $conte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6013	6126	
==>rted = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to check it
    my $conte <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2569	2847	
==>$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim . <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2569	2847	
==>$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $verbatim . <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	420	566	
==>nted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $di <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	420	566	
==>nted_file || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $di <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5993	6102	
==>ul to avoid changing the 
actual semantics.

Please note that most of the time, it will not be necessary to wr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5993	6102	
==>ul to avoid changing the 
actual semantics.

Please note that most of the time, it will not be necessary to wr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17153	17250	
==>etween your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17153	17250	
==>etween your Perl code and your Rosetta D code; "Rosetta"
implements a virtual machine that is embe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10791	10895	
==>_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10791	10895	
==>_universe(1) )`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_un <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1727	1867	
==>bject(exact => "\t", '\t');
  });

  # bol, mbol, sbol
  $self->add_handler('^' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11021	11144	
==>y $prog (@{$args{progs}}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$pro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6215	6360	
==>@array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4717	4862	
==>@array[$i-$size_change];
            $i--;
        }
    } elsif $size_change < 0 {
        my $i = $off;
        my $final = $size + $size_change <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	146	262	
==>e base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	219	335	
==>e base qw/Blondie::Backend::Prim/;
}

sub native {
    my $params = @_ == 1 ? shift : { @_ };

    my $node = Blondie <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	106	236	
==>ng",
            "missing examples",
        );
      pick @arr || @default
}

sub report (@x) returns Str is export {
     my $str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4497	4611	
==>ine a new metacharacter
         macro rxmodinternal:<x> { ... } # define your own /:x() stuff/
         macro rxmo <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3178	3275	
==>day_of_month returns Int { $.day }
method day_of_month_0 returns Int { $.day - 1 }
method day_0 re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5553	5649	
==>an.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5553	5649	
==>an.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.en <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	382	488	
==>};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override things they didn't <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	382	488	
==>};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override things they didn't <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2084	2215	
==>s (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2062	2193	
==>s (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if exists $args{size} and -s $fil <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3428	3526	
==>$code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3428	3526	
==>$code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$constructor <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1120	1279	
==>on => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_the_same = sub {
        my $first = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	98	191	
==>Path qw(mkpath rmtree);
use File::Find qw(find);
use File::Basename qw(dirname);

our %BuildPr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24714	24813	
==>s Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapping( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29266	29365	
==>s Set of Str>

This method returns this Relation's heading.

=item C<body () returns Set of Mapping( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2069	2172	
==>mes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1993	2091	
==>mes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # us <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	986	1113	
==>ker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1877	2004	
==>ker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5809	5904	
==>y left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5809	5904	
==>y left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $event { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1371	1497	
==>r ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi sub Array::map (@values <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	391	506	
==>r ~= $delimiter ~ @values[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');

 multi sub map (Cod <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	182	280	
==>::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	182	280	
==>::DOM::Text;

has Perldoc::DOM::Element $.root;

method BUILD($self:) {
    $self.root ||= Perldoc: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9691	9790	
==>> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9691	9790	
==>> classes, internal to the
library.

The following methods are available:

=over 4

=item $h = HTTP: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9269	9470	
==>$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = Runtime::Perl5::RuleOps::emit_rule( $rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3482	3584	
==>ncent

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3482	3584	
==>ncent

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12662	12816	
==>he underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12662	12816	
==>he underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7433	7538	
==>tart($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7433	7538	
==>tart($start), :end($end), :density($span0.density) );
        # say "returning ", $span0.stringify, ",", $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2017	2177	
==>1;
      }
      if ( 0 ) {   # $recompile ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2180	2294	
==>0)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2180	2294	
==>0)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of arr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5668	5792	
==>45),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zet <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5668	5792	
==>45),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zet <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3987	4083	
==>hod return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5889	5985	
==>hod return value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11326	11434	
==>har(C)) --> "\\e", {[C] = [0x1B]}, !.


% XXX - connect to above
p5_comment_opt --> p5_comment(_), !.
p5_comm <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2932	3050	
==>an => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @interse <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2932	3050	
==>an => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span => $_ ) };
    @interse <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1274	1367	
==>ation (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1274	1367	
==>ation (i.e. returns whatever the
continuation returns) with an updated C<Result> object.  If t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1209	1317	
==>s case.

Types have a dispatch table; this is a collection of functions and
methods that are queried during d <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13087	13184	
==>C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13087	13184	
==>C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	54	154	
==>ings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	54	154	
==>ings;
use metaclass;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6887	6989	
==>";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the same as
# in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6887	6989	
==>";
    $self.parent().insert_children($index, @siblings);
}

# insertSibling is really the same as
# in <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9285	9469	
==>er")->do()); 
            })->do_while(
                block->new($e, sub { 
                    my $e = shift; 
                    $e->get("$current")
                      ->is_not_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25226	25313	
==>Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25226	25313	
==>Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8465	8560	
==>>use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2290	2385	
==>>use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statements, sub { Gr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31885	31979	
==>eneric binary relational operator that takes a single
Relation in its C<$other> argument, where <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36435	36529	
==>eneric binary relational operator that takes a single
Relation in its C<$other> argument, where <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14123	14218	
==>cters to consider unsafe (i.e., which to escape). The default set
of characters to encode are co <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14123	14218	
==>cters to consider unsafe (i.e., which to escape). The default set
of characters to encode are co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3467	3566	
==>roclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $modu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3525	3624	
==>roclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
}

## use_ok

sub use_ok (Str $modu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1355	1522	
==>e eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1355	1522	
==>e eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_pat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6211	6329	
==>$_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6211	6329	
==>$_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($pro <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4032	4142	
==>ft} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = shift;
	my $cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11880	12009	
==>per
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11874	12003	
==>per
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1540	1666	
==>s) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($ite <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1540	1666	
==>s) returns int {
    my int $rv;
    for @items -> $item {
        if ( $self.includes($item) ) {
            $self.remove($ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	933	1082	
==>\$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	933	1082	
==>\$grammar = shift;\n" .
        "    my \$tree;\n" .
        "    my \$pos = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8461	8625	
==>s

    abort - the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever

                            

=for notes about <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8178	8338	
==>s
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
                            
=for notes about <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5917	6021	
==>DEC/, @_;
    #system $ghc, '--make', @_, @o, '-o' => 'pugs', 'src/Main.hs';
    my @pkgs = qw(-hide-all- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26608	26701	
==>(t($id), "∀α. α → α", ":t id");
is(t($app_id), "int", ":t id(3)");
is(t($plus_ten), "in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8666	8782	
==>";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8666	8782	
==>";
    }

    my $oldnick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8434	8536	
==>ev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8434	8536	
==>ev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	67	167	
==>tain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	67	167	
==>tain `package`
#   statements or other scoping stuff.
# - Build code into an AST.
package Module::Com <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2359	2462	
==>elation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Ex <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2907	3010	
==>elation::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Relation::Ex <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5941	6175	
==>t->name      and
                $pkg->version   <= $test->version
            ) {
                $link_this      = 0;  
                $unlink_this    = $test;
                last;
            }
            
            ### XXX cle <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	439	558	
==>thod is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	439	558	
==>thod is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	721	829	
==>s nonstandard in that it returns a hashref instead of a Match
            # print "match is ",Dumper($m),"\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6890	7027	
==>),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6890	7027	
==>),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hellip"   => chr(8230),
    "permil"   => chr(8240),
    "prime"    => c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	895	1001	
==>arness::Straps->new;

sub strap { return $Strap };

@ISA = ('Exporter');
@EXPORT    = qw(&runtests);
@EXPOR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21169	21260	
==>joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21169	21260	
==>joined as
keys. Note that the channel names are normalized.

=head2 C<$botE<lt>add_handlerE< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1798	1917	
==>er {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.i <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1798	1917	
==>er {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $.i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27512	27614	
==>st create a new
object that is a clone of the first but for the changes.

=back

A Message object has t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27512	27614	
==>st create a new
object that is a clone of the first but for the changes.

=back

A Message object has t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1871	1995	
==>n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1871	1995	
==>n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2272	2367	
==>lways succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2272	2367	
==>lways succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	619	740	
==>s

    abort - the match was stopped by a { return } or a fail(),

           and it should not backtrack or whatever



C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	593	710	
==>s
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever

C <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13145	13260	
==>untime";
}

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thunk, @params) = map { $self->red <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39301	39396	
==>Character Classes

Character classes are not returned all at once, but piece by piece.
Because r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8333	8445	
==>tinue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8333	8445	
==>tinue($m.clone(marks => $marks)) });
    });
}

method commit (Str $name) {
    $.Parser.new(parse => sub ($match <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2472	2590	
==>JS Array.pm and S29draft.pod's List::zip. r8593.
# But Prim.hs is \\n   List      list    Y       safe   (Array)\
#   i <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	463	566	
==>har () { "LanguageChar" }
macro Grf   () { "Grapheme" }
macro CdPt  () { "CodePoint" }


 type MatchTest <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	938	1037	
==>gs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocryph <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	938	1037	
==>gs Apocrypha in the F<docs/> directory for more details.

=head1 DOCUMENTATION

=head2 Pugs Apocryph <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2485	2593	
==>e .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    roo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2485	2593	
==>e .ini style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    roo <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1597	1695	
==>OWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1437	1535	
==>OWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15. <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	64	176	
==>ODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * te <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	64	176	
==>ODO

    * change returned 'Inf' to 'Date::Infinite'

    * from_duration constructor needs some tweaks

    * te <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12281	12400	
==>start, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12281	12400	
==>start, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9828	9958	
==>y;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9828	9958	
==>y;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say 'diff ' , $span0. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9853	10075	
==>w('$self:' => 'opaque'),
                              symbol->new('$label' => 'symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18097	18204	
==>};

Element 0 of the details is test #1.  I tried it with element 1 being
#1 and 0 being empty, this is less <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23854	23977	
==>if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20275	20398	
==>if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      pus <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1114	1217	
==>ritten
in question/answer format, to explain the design and implementation of Pugs.

=head2 Quick refere <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1114	1217	
==>ritten
in question/answer format, to explain the design and implementation of Pugs.

=head2 Quick refere <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1325	1420	
==>node);
	warn $node->struct_equiv . " is duplicated, and has been alocated $symbol" if defined $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19087	19202	
==>ram conditions.  In other words, this user
text is *part of the program*, and not the program's users' own data; onl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19087	19202	
==>ram conditions.  In other words, this user
text is *part of the program*, and not the program's users' own data; onl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5779	5877	
==>Rule and Pugs::Grammar::Match



Rule constructors return Rule objects, which are "matcher" things. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5578	5674	
==>Rule and Pugs::Grammar::Match

Rule constructors return Rule objects, which are "matcher" things. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	356	458	
==>e() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF! <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	356	458	
==>e() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = $?SELF! <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16299	16423	
==>sub mk_Match_appender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5665	5787	
==>o skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5665	5787	
==>o skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util::Call;
    Filte <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15805	15904	
==>cal value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15805	15904	
==>cal value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- `si <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	492	595	
==>er.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should produce th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	492	595	
==>er.  It is believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should produce th <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2632	2737	
==>CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $posta <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2632	2737	
==>CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $posta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1538	1641	
==>ush @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1538	1641	
==>ush @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4724	4874	
==>vious versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4736	4886	
==>vious versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20289	20392	
==>study.  As a result, while it performs correctly
and reliably, it also performs quite slowly; you should <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20289	20392	
==>study.  As a result, while it performs correctly
and reliably, it also performs quite slowly; you should <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4172	4260	
==>--> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4032	4130	
==>pp {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	$self->define_named_block($node, $symbo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	227	321	
==>ile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installed v <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3230	3355	
==>y.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3230	3355	
==>y.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3029	3126	
==>'VUndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a ' <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	659	804	
==>ns) {
            die "excessive looping";
        }

        update_guess($guess, $target, $f, $fprime);

        say "{$count++}: $guess" if $ve <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4244	4337	
==>raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2.<[[Get]]>(GetPropert <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5676	5773	
==>m%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5676	5773	
==>m%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128+($num/262144)% <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2254	2382	
==>N, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self- <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2254	2382	
==>N, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self- <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	542	649	
==>',
);

sub import {
    my($class, $filename) = @_;
    $Conf = $class->read($filename);
}

sub pretty_print <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13907	14012	
==>eached to
  change.

  There may be no place to put the flag value?  And then prove
  implausible to reall <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4657	4789	
==>en.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4657	4789	
==>en.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$index];
        @! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9886	10024	
==>ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10165	10303	
==>ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11413	11555	
==>hase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11413	11555	
==>hase++;
          $say("NICK {$nickgen<next>()}");
          $say("USER $username * * :$ircname");
        });
      }
    },

    # Process $q <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1667	1787	
==>ilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1667	1787	
==>ilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19153	19254	
==>ogram*, and not the program's users' own data; only
someone already involved in making the program wou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19153	19254	
==>ogram*, and not the program's users' own data; only
someone already involved in making the program wou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3466	3595	
==>d, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3466	3595	
==>d, so we permute our nick.
  %handler<433> = [-> $event {
    if $in_login_phase {
      $self<nick>($nickgen<next>());
    }
  }] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4612	4716	
==>bove-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Loc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4612	4716	
==>bove-named packages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Loc <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1256	1465	
==>t;
                my $idx = shift;
                my $c = $self->hash_fetchElem($idx);
                unless ($c){
                    $c = PIL::Run::Container::Scalar->new;
                    $self->hash_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1026	1182	
==>{
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END__

=pod

=head1 NAME

TestBuilder::TestPlan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13420	13530	
==>p {exists $ENV{$_}} qw(CDPATH IFS ENV BASH_ENV);
	local @ENV{@keys} = ();
	# Untaint, plus take out . and empty <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	2987	3084	
==>de_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'value' ,'unk';
node_a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22183	22279	
==>=E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22183	22279	
==>=E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4650	4766	
==>th}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless( \%args, $clas <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2390	2505	
==>th}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

    bless(\%args, $clas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	879	1009	
==>$code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	879	1009	
==>$code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1376	1486	
==>ad2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX could autogenerate
{   

    sub prefi <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1428	1520	
==>pugs $optional_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARN <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4496	4631	
==>ting...\n";
        }

        unless( File::Spec->canonpath($candidates[0]) eq $target ) {
            mkpath(($target =~ m!(.*[/\\])!) <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	529	629	
==>ne(), exit 0 if $Config{inline};
precomp(), exit 0 if $Config{precompile};
usage();
exit 1;

sub setu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14554	14672	
==>eta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2504	2613	
==>onfig{'meta_ext'}         = [ '.info' ];
$config{'meta_file'}        = [ META => sub { $_[1] . $_[0]->meta_ext <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4555	4788	
==>{
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4555	4788	
==>{
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1542	1649	
==>urn $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo ret <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1542	1649	
==>urn $passed;
}

method diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo ret <==
2	/Users/nnunley/pugs/util/grokprims.pl	2445	2543	
==>print "<td>)</td>";
#  print "<td>Prim.hs line $op->{line}</td>";
  print "</tr>\n";
}

print "</ta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7679	7815	
==>op::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7872	8008	
==>op::capture( 'code', \&{'grammar1::code'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7525	7698	
==>e Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7525	7698	
==>e Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match->{match}   = $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8029	8256	
==>gh version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8493	8720	
==>gh version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        push @found, $maybe;
                    }

                    ### nothing satisfied this depenend <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13982	14146	
==>( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13976	14140	
==>( $cmd, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return
	    "$_[1] do { my \$matc <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	772	876	
==>st_file);

  # UNIMPLEMENTED
  my %total = $strap->total_results;

  # Altering the behavior of the strap <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2385	2478	
==>G)

static regexec_t previous_exec_hook = NULL;

I32 regexp_exechook_hook (pTHX_ regexp* r, ch <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	674	787	
==>e I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive under <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	674	787	
==>e I am hoping that perl6
# and the new module functionality will not need it. Althoug this may be a 
# naive under <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10954	11109	
==>$code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10954	11109	
==>$code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	602	709	
==>iable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	602	709	
==>iable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariabl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5773	5932	
==>> chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lam <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5773	5932	
==>> chr(949),
    "zeta"     => chr(950),
    "eta"      => chr(951),
    "theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lam <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	303	414	
==>b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	303	414	
==>b)> first tries to match C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6698	6910	
==>th a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6698	6910	
==>th a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_content =~ s/\r//g;
        my $filtered_conten <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10152	10245	
==>[1] \\&{'$namespace$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1] ruleop::negate( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	301	412	
==>as $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	301	412	
==>as $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6337	6446	
==>an, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6337	6446	
==>an, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $start, end <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7095	7216	
==>) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7095	7216	
==>) ) if $span1.is_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22761	22851	
==>mentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22761	22851	
==>mentation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1134	1235	
==>}

BEGIN {
    require Perl6::Run::OnPerl5::X1::Compile;
    if($as_yaml) {
	my $code = join(" ",@eval <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13561	13664	
==>') corresponds exactly to the named parameters of
Document.new(); you can produce a direct clone like th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13561	13664	
==>') corresponds exactly to the named parameters of
Document.new(); you can produce a direct clone like th <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	986	1182	
==>ay "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	986	1182	
==>ay "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9429	9525	
==>ture_2 = $parser->captures(2);

=head2 Walking the Tree

To walk over the created tree, create an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21154	21255	
==>means that people who install your
module distribtution do not need to have the compilers installed
th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21154	21255	
==>means that people who install your
module distribtution do not need to have the compilers installed
th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18560	18693	
==>EFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are describ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18560	18693	
==>EFACE
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are describ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4912	5076	
==>' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5376	5540	
==>' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2481	2607	
==>Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2481	2607	
==>Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = cwd();
    }
    elsif <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4550	4673	
==>azy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4550	4673	
==>azy);
    }
}

method splice ( 
    $offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1330	1465	
==>th($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1330	1465	
==>th($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5247	5342	
==>ext is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5247	5342	
==>ext is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2038	2166	
==>ta = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2038	2166	
==>ta = $cookies{''//+delayload'}{'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4246	4398	
==>le file: $@" ), return;
            $obj->available( \@avail );

        }
  
        return $obj;
    }
}

=head2 $inst_pkg = $inst->is_installed( packa <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10437	10566	
==>hift->val;
            print $fh @_;
        }
    },
    map {{ arity => 2, name => "&infix:<$_>", body => eval 'sub { $_[1] '.$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	956	1069	
==>to $tail every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alternation is f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	919	1027	
==>to $tail every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alternation is f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9852	9982	
==>t_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9846	9976	
==>t_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4369	4469	
==>cal value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4369	4469	
==>cal value, whether the `start` or `end` values belong to the span ("closed") or not ("open").

- size <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16811	16913	
==>object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16811	16913	
==>object (plus an optional hierarchy of new child Nodes
of that new Node) that gets stored in the Child N <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6630	6743	
==>Type"> );
        $ret = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tree[0] eq '"PS <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26973	27068	
==>) )");
is(t(ide("pair")), "∀α. ∀β. α → β → (α × β)", ":t pair");
is(t(ide("fst")) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4179	4312	
==>~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4179	4312	
==>~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/\s+$//;                    # trailing ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3756	3888	
==>=head2 JIB::Utils->_whoami

Returns the name of the subroutine you're currently in.

=cut

sub _whoami { my $name = (caller 1)[3]; $n <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18404	18518	
==>delimiter(' ');

String delimiters must not be treated as rules but as constants.  The
default is no longer ' ' sin <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9320	9445	
==>goto quant_closure
    $S0 = substr target, pos, 1
    if $S0 == "+" goto quant_max
    min = 0
  quant_max:
    if $S0 == "?" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	661	759	
==>mber_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	719	817	
==>mber_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::force_todo_te <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14123	14218	
==>ered_alternatives([ @{$self->registered_alternatives}, $alt ]);

    return $alt;
}

=head2 $boo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3407	3498	
==>trend-strbeg)));
    XPUSHs(sv_2mortal(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv(start <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27052	27149	
==>cced once only. */
 #define REINT_ONCE_ML		0x2000000
 #define RE_INTUIT_ONECHAR	0x4000000
 #define <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7694	7806	
==>gain, thanks.";
    $exit++;
  }
  $bucket->count(1);

  seek     $fh, 0, 0  or die "Couldn't rewind \"@{[ BUCKET <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17019	17135	
==>ring representation of the span.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The arg <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17019	17135	
==>ring representation of the span.

- `compare( $span )`

Compares the spans numerically. Returns -1, 0, or 1.

The arg <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2243	2349	
==>ke sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2243	2349	
==>ke sure the glue separator is there, reusing
    # whatever separator is first in the $volume
    my $vol = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2590	2707	
==>expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2590	2707	
==>expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argume <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3477	3567	
==>t be properly installed.

An improperly installed C<Pugs::Compiler::Rule> module would prev <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15887	16028	
==>e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block->new($e, sub {
                    my $e = shif <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10547	10671	
==>al 'sub { $_[1] '.$_.' $_[2] }' } || die $@} qw(+ - == <=), '<', do {
        grep {
            print "Implement &infix:<$_> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	134	312	
==>ct;

sub WriteAll {
    my $self = shift;
    my %args = (
        meta        => 1,
        sign        => 0,
        inline      => 0,
        check_nmake => 1,
        @_
    ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36696	36793	
==>y: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Fami <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2801	2904	
==>dren

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2801	2904	
==>dren

method insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	6	134	
==>ge Perl6::Core::Str;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Num;
use Perl6::Core::Bit;

package str;

use strict;
u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43296	43393	
==>pyright (c) 2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Relation> for details.

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3284	3462	
==>2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3531	3709	
==>2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16558	16672	
==>le span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have fro <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16558	16672	
==>le span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a list of Spans. The list may have fro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11762	11857	
==>esting gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11820	11915	
==>esting gt on two strings');

However the `&infix:<gt>` is currently not implemented, so you will <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8259	8361	
==>rsection( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11736	11838	
==>rsection( $other );
}

multi method intersection (Relation *@others) returns Relation {

    for @other <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2174	2310	
==>$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Jun <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2174	2310	
==>$_)) }
                    when Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Jun <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	549	664	
==>int $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	549	664	
==>int $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	630	732	
==>"\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	630	732	
==>"\x0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9023	9132	
==>/ `end()`

Return the start or end value of the set.

These methods may return nothing if the set is empty.

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9023	9132	
==>/ `end()`

Return the start or end value of the set.

These methods may return nothing if the set is empty.

- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41334	41430	
==>back towards improving this module's
documentation, particularly towards using a much shorter and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41334	41430	
==>back towards improving this module's
documentation, particularly towards using a much shorter and <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9282	9385	
==>(Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&sem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12759	12862	
==>(Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&sem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10161	10263	
==>rom_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yiel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10161	10263	
==>rom_range( start => 10, end => 20 );

  my $list = Perl6::Value::List.new( start => coro mylist2 { yiel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1183	1283	
==>NV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADD <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1183	1283	
==>NV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADD <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	608	706	
==>}

method do_warn(Class $class: @args) { warn(@args); }

method _parse_ini_file(Class $class: IO $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12639	12761	
==>') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex char <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6114	6236	
==>') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8831	8960	
==>ine and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8831	8960	
==>ine and compile a routine that will create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1082	1178	
==>> }

rule conjunction     { <non_conjunction> \& <non_alternation>+? }
rule non_conjunction { <re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1000	1097	
==>atfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1000	1097	
==>atfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32022	32126	
==>, looking at just the set member for
each that corresponds to language A, looking for a match to said err <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32022	32126	
==>, looking at just the set member for
each that corresponds to language A, looking for a match to said err <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15967	16082	
==>elation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19444	19559	
==>elation.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23627	23756	
==>_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28857	28959	
==>_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10540	10742	
==>+;
            } else {
                print "skipped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # This was our old TO <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1670	1797	
==>ealclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realclean->{FILES}, @_),
    );
}

sub libs {
    my <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25745	25843	
==>) → γ", "pretty print a x b -> c");
}
{
	my $type = type::operator::nary->new(list => type::vari <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2529	2626	
==>at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optional parame <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6825	6953	
==>t Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6825	6953	
==>t Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        po <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10405	10533	
==>ment_control';
    
            $res .= "    push \@grammar1::$category, \\&{'$prefix:<$id>'};\n";
    
            #print "macro <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1566	1666	
==>h
# a usable module.  Any further efforts should likely take place there.

# Some raw development not <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3792	3910	
==>ailed);
	} elsif($stage eq 'p6_file') {
	    $self->get_p6_file;
	} else { die "bug" }
    }
    $self;
}
sub get_p6_fi <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	15	115	
==>egorian is Date;

use Time::Zone;
use Date::Format::ISO8601;

has Int $.year;
has Int $.month;
has In <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22670	22772	
==><This documentation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22670	22772	
==><This documentation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3231	3335	
==>ing \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3231	3335	
==>ing \$s: Perl::Compiler::PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2983	3094	
==>end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2983	3094	
==>end < @b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2084	2202	
==>ILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2084	2202	
==>ILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	598	846	
==>en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Vali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	598	846	
==>en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rosetta::Vali <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	983	1132	
==>[1], $_[2] ] }
        |   exp '^' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   '(' exp ')'         { $out= $_[2] }
;

list_left:  e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40112	40224	
==>herwise, pass an
empty string.

=head1 ERROR HANDLING

=head2 Creating Custom Messages

It is probably easiest to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12564	12700	
==>i.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12564	12700	
==>i.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic meth <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2583	2675	
==>ld ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Ar <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2583	2675	
==>ld ($self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Ar <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5594	5708	
==>tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%* <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5594	5708	
==>tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir if $tmpdir.defined;
#     $tmpdir = ._tmpdir(%* <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33998	34096	
==>f I<x> can be matched
at the same location".  Therefore it would be represented in Perl with a
look <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1944	2075	
==>itrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroot";
my $iso          = "cd.iso";

sub usage { print <<USAGE; exit }
Usage: $0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	433	544	
==>[@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->las <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	427	538	
==>[@INC], strict_type => 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->las <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1999	2096	
==>ar_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1999	2096	
==>ar_name!', $var_name );
    return %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20177	20281	
==>n.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for develop <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20177	20281	
==>n.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and easy for develop <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14049	14172	
==>rns Bool`

Sometimes what you need to test does not fit into one of the standard
testing functions. In that case, you can us <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14107	14230	
==>rns Bool`

Sometimes what you need to test does not fit into one of the standard
testing functions. In that case, you can us <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4772	4868	
==>y, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splice<Array <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	301	395	
==>y, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splice<Array <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2534	2683	
==>l => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2439	2580	
==>l => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1410	1528	
==>ture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1410	1528	
==>ture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    return sub { $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2949	3066	
==>code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3089	3206	
==>code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2090	2207	
==>t::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";        
    return $self->[ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1768	1877	
==>t::TRUE)
        || confess "Attribute (" . $name->to_str->to_native . ") does not exist";
    return $self->[ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	946	1079	
==>4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	946	1079	
==>4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes($v <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4610	4733	
==>y $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7333	7456	
==>y $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1256	1369	
==>rameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1256	1369	
==>rameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $grammar->compil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19716	19820	
==>6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "package $pkg;".$cc->as_p5;
    eval_p5_co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3361	3459	
==>ments, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10 <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	41	172	
==>pe-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX ne <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	41	172	
==>pe-0.6 {
    our %escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	889	1016	
==>s
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	889	1016	
==>s
    abort - the match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33489	33653	
==>ew(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'), 
                              symbol->new('$clas <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11674	11805	
==>+]$// foreach @inc;
    }

    my %seen;
    $seen{$_}++ foreach $self->_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2646	2787	
==>de...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2863	3004	
==>de...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$pre <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5751	5845	
==>d::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5751	5845	
==>d::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12120	12319	
==>rce_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'per <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12120	12319	
==>rce_field' => 'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'per <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2420	2517	
==>k Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2420	2517	
==>k Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or modi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2787	2885	
==>her; you might not be able to derive the 
plaintext from the result, but any cryptographer worth th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2787	2885	
==>her; you might not be able to derive the 
plaintext from the result, but any cryptographer worth th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9523	9613	
==>=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9523	9613	
==>=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	327	503	
==>is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	327	503	
==>is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12884	13080	
==>tant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13163	13359	
==>tant( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21586	21698	
==>howing other messages instead which are
more appropriate to the context in which they are using your package.  On <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21586	21698	
==>howing other messages instead which are
more appropriate to the context in which they are using your package.  On <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14351	14451	
==>->look_down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "styleshe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2131	2251	
==>= $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2191	2311	
==>= $_[0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18340	18448	
==>ivmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18340	18448	
==>ivmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	868	963	
==>nstructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as an <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	868	963	
==>nstructed as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as an <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6791	6959	
==>ie "find_extensions: Can't open $subpath.pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6129	6212	
==>def_stmt_prim('bs_token_decl','\s*token\s+(\w+)\s+{([^}]*)}(?{ &::hlp_token;})');
my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25498	25601	
==>ifies the type of message that the object
represents (or gives the name of a condition being reported, i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25498	25601	
==>ifies the type of message that the object
represents (or gives the name of a condition being reported, i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21107	21291	
==>self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e->create('&dispatcher' => $e->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44031	44198	
==>self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->create('&dispatcher' => $e->g <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20131	20225	
==>d greatly (it isn't what's important;
the interface/behaviour is), this Relation data type is p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24683	24777	
==>d greatly (it isn't what's important;
the interface/behaviour is), this Relation data type is p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13983	14109	
==>annel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13983	14109	
==>annel $key");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("P <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24262	24343	
==>es(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1,G)).
match_captures_nest <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	624	757	
==>ment <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	624	757	
==>ment <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10732	10879	
==>.'></a>";
    while ( $rest =~ $link ) { 
      my $text = $1;
      my $whole = $2;
      my $linkfile = $3;
      my $linkhead = $4;
      # $5  c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2775	2911	
==>require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2992	3128	
==>require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die "no filename";
        if ($filename eq '-') <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7678	7763	
==>st::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7736	7821	
==>st::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1855	1970	
==>method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1855	1970	
==>method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%!params{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	651	808	
==>_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <be <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	651	808	
==>_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] | 
        [ <statement> 
            [ <be <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10092	10229	
==>or programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10092	10229	
==>or programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	75	177	
==>bmethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $clas <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	75	177	
==>bmethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functional {
    $clas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9830	9953	
==>new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9830	9953	
==>new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6788	6896	
==>$1), "\\x$1") if $cc;
      return $S->object(exact => chr(hex $1), "\\x$1");
    }

    $S->warn(0, "Illegal <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1715	1814	
==>pression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Compress::Zlib::mem <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	309	415	
==>rt Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( % <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	309	415	
==>rt Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $class.new( % <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	632	737	
==>ormalizer = $arg but $.normalizer_role;
            return $normalizer but $.coercer_role, collect_argumen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1656	1802	
==>E' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'RO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1656	1802	
==>E' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'RO <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3241	3347	
==>ntrol::Caller.new( map { ; $_ => @caller[ %idx{$_} ] }, keys %idx );
    #( map { say( $_ => @caller[ %idx{ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/kommentare.pl	92	186	
==>mentar :-)
#!}\end{block}

Zum auskommentieren mehrerer Zeilen kann man POD benutzen:

#!\begin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1430	1755	
==>' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            g <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1430	1755	
==>' {
                    $buffer ~= "</P>\n" 
                }     
                when 'verbatim' {
                    $buffer ~= "</PRE>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2259	2368	
==>g_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $? <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2259	2368	
==>g_key, msg_vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1500	1608	
==>te::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, sin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1500	1608	
==>te::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, sin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5576	5728	
==>el};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5576	5728	
==>el};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11524	11635	
==>force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3115	3226	
==>force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => chr(64 ^ ord $c), " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17430	17583	
==>>force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13851	14004	
==>>force_object(anyof_char => $1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5651	5754	
==>1 Compiler processes



### separate "processes" from actual module documentation?



=head2 Grammar eng <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5456	5555	
==>1 Compiler processes

### separate "processes" from actual module documentation?

=head2 Grammar eng <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8219	8345	
==>IME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8219	8345	
==>IME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\:/, $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6303	6447	
==>be there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6303	6447	
==>be there is a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs in <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12223	12329	
==>).  The C hooks call for the
  sub hooks in the caller package, and thus get CORE if none are defined.

  T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43361	43457	
==>ence implementation of a Relation class.

These other Perl 6 packages also work in the problem do <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8770	8872	
==>s called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Vo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8770	8872	
==>s called automatically when 
# a subtree is added to a child array
method fix_depth ($self:) returns Vo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6299	6405	
==>in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6299	6405	
==>in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26383	26493	
==>see 15.10.1
      <null>
    | <NonemptyClassRanges>
}
rule NonemptyClassRanges {  # see 15.10.1
      <ClassAt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	962	1069	
==>nts.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# note: alternation is first m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8429	8541	
==>se => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8429	8541	
==>se => sub ($match, &continue) {
        my $marks = $match.marks;
        $marks{$name} // die "No mark with name <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2762	2902	
==>value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.ta <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2762	2902	
==>value }'}"); ''
            }

            when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.ta <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7640	7744	
==>d when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7640	7744	
==>d when a '=end' directive (which is preceeded by an '=for' directive) 
is reached.    
    
=item I<start <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4077	4263	
==>ckage_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= package_version( $test )
                        ) <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	157	254	
==>ls = 'ParserDetails.ini';
# as soon as it works.

method load_parsers(Class $class: Str ?$dir is c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6894	7012	
==>ode category "Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA..F]>
}
rule Punctua <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1791	1893	
==>C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features are stil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1791	1893	
==>C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features are stil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19441	19540	
==>ogged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19441	19540	
==>ogged_in>

Returns a true value if the bot is logged in.

=head2 C<$bot.channels>

Returns a list of <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2901	3029	
==>r my $dir (@dirs) {
        $dir->mkpath() or error($!), return;
    }

    return 1;
}

### these plural functions seem more con <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20656	20763	
==>g_m(E0), !.
rm(word_boundary,[C|Fx],[C|Fx],[],[],E0,E0) :- !, char_type(C,csym).
rm(word_boundary,[],[],[C|B <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16657	16769	
==>head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot objec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16657	16769	
==>head1 NAME

Net::IRC::OO - IRC library for Pugs

=head1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot objec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13364	13491	
==>c} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't see <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13364	13491	
==>c} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.last_autoping = time;
    }

    # So we haven't see <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7141	7248	
==>node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7153	7260	
==>node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = &{"node: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25378	25471	
==>m(amat(C0,flgs(A,_,C,D,E,F,G,H,I,J)),X,amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17025	17109	
==>.
rm(ques_ng(Re),F0,F1,B0,B1,E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).

rm(star_ng(_Re),F0, <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	186	308	
==>g_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $i <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	186	308	
==>g_dot    = 1;
    $.strict_wildcard_slash = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10777	10895	
==>ments in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10777	10895	
==>ments in the set

- `remove( $set )`

Removes elements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4088	4282	
==>}, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear;
        },              
        class => sub { \&Point3D },        
    };
}

my $p3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33496	33590	
==>=head2 reg_any

Family: reg_any

Types: reg_any (C<.>), sany (C<.> with C</s> on), cany (C<\C>) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17888	18010	
==>gexp and its abuse

=head1 Description

The perl5 regexp engine is entangled with the rest of the perl core.
Some of the in <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19386	19487	
==>Pugs::Internals::exit($status);
}


 multi Control::Basic::nothing ()


 multi Control::Basic::sleep ( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2110	2237	
==>nfix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**>' => Thunk->new(
        Se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14883	15035	
==>s = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14883	15035	
==>s = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16567	16661	
==>definition of a "D" language, is
described fully in the L<Rosetta::Language> documentation file <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16567	16661	
==>definition of a "D" language, is
described fully in the L<Rosetta::Language> documentation file <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8844	8979	
==>de_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    close OUT;
}

sub <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2978	3105	
==>::Trig::'~$func~'($x,$base);
 }
 multi Math::Trig::'~$func~' ( Num $x = CALLER::<$_>, :$base --> Num )
 {
     Pugs::Internals:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	65	199	
==>s Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	65	199	
==>s Str  is export { '.'         }
sub updir         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3551	3658	
==>" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_dif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3551	3658	
==>" % "~$other.stringify if $DEBUG;
    my $one_diff = $self.difference($other);
    say "One diff: "~$one_dif <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27473	27569	
==>.  If C<$heading> is undefined or an empty Set, the
Relation::Example has zero attributes.  If C< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	83	200	
==>struction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L< <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	83	200	
==>struction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Perldoc::DOM tree

=head1 SYNOPSIS

See L< <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3137	3259	
==>SX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3683	3805	
==>SX::with_this($O) { $Result1.<[[Get]]>() };
            return $Result7 if $Result7.isa(JSX::ValuePrimitive);
        } # 9 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3260	3377	
==>> 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 e <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3260	3377	
==>> 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6585	6689	
==>r`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is mor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6585	6689	
==>r`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this version is mor <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2766	2895	
==>Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2766	2895	
==>Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12640	12734	
==>ad2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12640	12734	
==>ad2 C<$set1 ⊊ $set2>

=head2 C<$set1 E<lt> $set2)>

=head2 C<$set1.proper_superset($set2)>

= <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24070	24205	
==>= ", ";
        push @result, "FAILED tests @canon\n";
        $canon = join ' ', @canon;
    } else {
        push @result, "FAILED tes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14151	14270	
==>$n->{trait} . " {\n" . _emit( $n->{bare_block} ) . "\n }";
        #}
        return 'eval ' . _emit( $n->{exp1} ) . " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15241	15363	
==>r $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!buc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15241	15363	
==>r $command) { ./:enqueue($command) }

  class Queue {
    has Bool $.floodcontrol;
    has Code @!queue;
    has      $!buc <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28246	28345	
==>en_to_str) } "can't do a higher order app with uneq types";

# a helper that returns the stringified <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18440	18542	
==>return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14861	14963	
==>return $S->object(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12531	12674	
==>NG ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12531	12674	
==>NG ?:?(.*)$/) {
        $say("PONG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10557	10654	
==>thod accepts multiple ($field => $value) pairs, which
means that you can update several fields wit <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10557	10654	
==>thod accepts multiple ($field => $value) pairs, which
means that you can update several fields wit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13858	13972	
==>T/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13858	13972	
==>T/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35761	35854	
==>in its C<$other> argument, where <$other> has the same heading as
the invocant Relation::Examp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37793	37886	
==>in its C<$other> argument, where <$other> has the same heading as the
invocant Relation::Examp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12110	12222	
==>_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12110	12222	
==>_traffic = time;

      if($line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2473	2588	
==>optional C<$lang>
    # support.
    multi sub evalfile (Str $filename; Str :$lang = 'Perl6')
            is primiti <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13533	13627	
==>x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13533	13627	
==>x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)>

=head2 C<$set1 % $set2>

Re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1204	1347	
==>)   and die $?;
        system( qq[tar -czf $archive $Control $Data] )      and die $?;
        
        1 while unlink $Data;
        1 while u <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12815	12912	
==>t sure where this is specced, but when I migrated &prefix:<=> from
# meaning the same as &readline <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1119	1214	
==>?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_foreach is moved out of CONVERSION_SUBS sectio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15249	15344	
==>there
should be no ambiguity when trying to invoke or implement it, and so an
application writte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15249	15344	
==>there
should be no ambiguity when trying to invoke or implement it, and so an
application writte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	998	1125	
==>e { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1006	1128	
==>e { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7930	8050	
==>8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7930	8050	
==>8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radic"    => chr(8730) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	555	652	
==>rent ($self:) returns Tree { 
    return $!parent;
}

## ----------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	555	652	
==>rent ($self:) returns Tree { 
    return $!parent;
}

## ----------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24701	24823	
==>ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21122	21244	
==>ifthen|2' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4126	4268	
==>/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4126	4268	
==>/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $match->();
    ok( 
        p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1223	1326	
==>st = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1223	1326	
==>st = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14665	14762	
==>abase connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14665	14762	
==>abase connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION

The "Rosetta" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15154	15256	
==>usually provided by third
parties) implement.  This interface is rigorously defined, such that there
sh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15154	15256	
==>usually provided by third
parties) implement.  This interface is rigorously defined, such that there
sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	553	672	
==>filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	553	672	
==>filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", ",@param) . "} }, \$_[3] )";
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	359	470	
==>turn { num => 'Inf' ,} } ) );
    __PACKAGE__->add_rule( NaN => q({ return { num => 'NaN' ,} } ) );
    __PACKAG <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	157	283	
==>develop into a p6 rules engine, and then a p6
# parser, for p5.

# It's a backtracking, recursive-decent engine, generated from <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13569	13681	
==>be started).  This is most useful when writing modules and you
find there is some language feature missing, or co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13627	13739	
==>be started).  This is most useful when writing modules and you
find there is some language feature missing, or co <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	84	182	
==>really be an acccessor - all it's doing is making the
# "source" property of the object fallback to <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	84	182	
==>really be an acccessor - all it's doing is making the
# "source" property of the object fallback to <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10418	10552	
==>M>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10418	10552	
==>M>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=he <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37294	37390	
==>le_name (a string) and checks whether or not it has already been
loaded, returning true if so and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37294	37390	
==>le_name (a string) and checks whether or not it has already been
loaded, returning true if so and <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7010	7177	
==>, { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7010	7177	
==>, { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_field', { 'name' => 'name' }, [
                $sdtd_person_name <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	835	930	
==>de );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	835	930	
==>de );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $c <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3964	4104	
==>mpiled>';\n\n";
        # (the need for a semicolon in "};" is probably a bug.)
    }
    print STDERR "... " if $Config{verbose};
}

# Strip <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3828	3916	
==>rsection( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3828	3916	
==>rsection( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.closure <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	116	227	
==>T_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	174	285	
==>T_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12543	12656	
==>_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6018	6131	
==>_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4551	4649	
==>no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4551	4649	
==>no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die "Couldn't get it!" unless <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26594	26694	
==>attern? */
 #define ROPT_COPY_DONE		0x40000	/* subbeg is a copy of the string */
 #define ROPT_TAINTE <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2549	2634	
==>linux
my $prolog = <<'END';
%========================================================= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7615	7750	
==>),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7615	7750	
==>),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5855	5962	
==>urned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All headers are returned <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5855	5962	
==>urned

=item Numeric Context

The HTTP status code is returned

=item Item Context

All headers are returned <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7968	8076	
==>utine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7968	8076	
==>utine that will validate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36849	36951	
==>ered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36849	36951	
==>ered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4700	4808	
==>)`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4700	4808	
==>)`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quarter of the year, from 1 to 4. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3949	4072	
==>"$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3937	4060	
==>"$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implemented: $quantifier";
}        
sub alt {
    my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12158	12291	
==>r_numeric     => sub { ${$_[0]} },
      scalar_non_numeric => sub { 0+ ${$_[0]} },
      array => sub { 0+ @{$_[0]} },
      hash  => <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3308	3424	
==>cted,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specif <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3308	3424	
==>cted,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is specif <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9990	10084	
==>idth = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_index <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9990	10084	
==>idth = $fixed_width;
    $self.parent().fix_width() unless $self.is_root();
}

method get_index <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36105	36205	
==>ons having the same Member Name are adjacent
to each other in the output; for example, with Sets of [ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36105	36205	
==>ons having the same Member Name are adjacent
to each other in the output; for example, with Sets of [ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1158	1269	
==>/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1158	1269	
==>/member/has

=cut

submethod BUILD ($class: *%param is copy ) {
    # TODO - error message on ignored parameters <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10383	10479	
==>r tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10441	10537	
==>r tests.

- `force_todo (*@todo_tests) returns Void`

If you have some tests which you would like <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8208	8338	
==>e_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8208	8338	
==>e_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4627	4806	
==>@state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4627	4806	
==>@state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched concat 1, tree:", Dumper($_[2]) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7482	7595	
==>urn a new 

match operator.



A ruleop() function gets as argument a list:



### we don't need a "high" level in <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7229	7337	
==>urn a new 
match operator.

A ruleop() function gets as argument a list:

### we don't need a "high" level in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7897	8030	
==>ample:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  match_word( 'abc123', :capture );



  # returns a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7631	7759	
==>ample:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  match_word( 'abc123', :capture );

  # returns a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	33	154	
==>:Prelude;

use strict;
use warnings;

use Blondie::ADTs;

use Memoize;
memoize('env');

use Module::Pluggable (
    sub_na <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6284	6385	
==>ToNumber(JSX::Value::Object $v) {
    my $Result1 = ToPrimitive($v,'Number');
    my $Result2 = ToNumb <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12381	12561	
==>$h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12381	12561	
==>$h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	872	973	
==>nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_address;
  $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1876	1972	
==>nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback);
  my $r_address <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	118	227	
==>so at Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	113	215	
==>so at Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3048	3186	
==>$_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3036	3174	
==>$_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = em <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5666	5860	
==>tem( qq[ $^X $postinst ] )               and die $?;
                }    
            }
        }
        
        ### clean up the temp dir
        print "Cleaning up...\n";
        system( qq[ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1240	1334	
==>p() if $Config{help};

_build_include_re();
_build_exclude_re();

my $s = __PACKAGE__->new;
$s- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9305	9434	
==>}xgc) {
    }

  });

  $self->add_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = ':::' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5173	5326	
==>table candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5637	5790	
==>table candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we're sure t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3336	3447	
==>copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.interse <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3336	3447	
==>copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.interse <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	654	753	
==>tist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	654	753	
==>tist's way of saying "tree" (cue: the Fast Show "aliens that say
'tree' skit").

=head1 CREATING A P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1557	1681	
==>1 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1557	1681	
==>1 => 'Not Implemented',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout', <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3319	3467	
==>returns => 'method'
        ),
        sub {
            my $e = shift;
            $e->create('$method' => $nil::NIL);
            $e->create('$curr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30769	30872	
==>'t inherit from anywhere.  You want to go along
the I<object>'s inheritance tree.  Use Damian Conway's F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11044	11213	
==>}) {
            if ($is_mswin || $is_netware || $is_vms) {
                $runperl .= qq ( -e "$prog" );
            }
            else {
                $runperl .= qq <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3544	3683	
==>'::'}) {
            next unless exists &{ref($obj).'::'.$method};
            next if $method =~ /^_/;
            next if $method eq uc($m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	936	1062	
==>ling captures where in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	936	1062	
==>ling captures where in the deep structure
                     to store what they've captured.

=cut

our class Match {
    has <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1627	1771	
==>low
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || ! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1627	1771	
==>low
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6858	6978	
==>eturn "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6858	6978	
==>eturn "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8687	8812	
==>c = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to conta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8687	8812	
==>c = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to conta <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3820	3920	
==>rth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer g <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3820	3920	
==>rth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of the outer g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	497	596	
==>e changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	497	596	
==>e changed, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9607	9695	
==>ton_method' 
});

is($iFoo->another_test_iFoo_singleton_method(), 
  '$iFoo::another_test <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12602	12706	
==>was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12660	12764	
==>was not successful on failure.

- `throws_ok (Code &code, Any $expected, Str $desc?, Bool :$todo, Str :$d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1832	1961	
==>s->fetch($label)->do($args);
        }
    }
    confess "Method (" . $label->to_native . ") not found in \$::Class " . $class->id <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6986	7181	
==>.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6986	7181	
==>.current {
                my $span = @spans[$.current_span];
                $.current = $span.previous( $.current );                
            }
            else {
                if defined $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3175	3288	
==>ody) = @_;

	return if $self->node_is_defined($node);

	return $self->define_literal(@_) unless $self->can_reduce( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2506	2641	
==>e};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2506	2641	
==>e};
        my $match = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23349	23435	
==>current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23349	23435	
==>current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATIBILI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8597	8686	
==>statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->mac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2422	2511	
==>statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->mac <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1786	1895	
==>hods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1786	1895	
==>hods are available for Set::Span objects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9448	9564	
==>nnecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socke <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9448	9564	
==>nnecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socke <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	438	557	
==>eans_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	438	557	
==>eans_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8150	8249	
==>ly set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most call <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8150	8249	
==>ly set arrays to C<()>, but loop 
through them setting all the elements to 0.  In reality, most call <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3278	3391	
==>ail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expressio <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3278	3391	
==>ail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> Expressio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10759	10863	
==>uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10817	10921	
==>uses `require()` since Pugs does not yet have
a proper `use()` builtin.

- `ok (Bool $cond, Str $desc?, B <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12949	13042	
==>in-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provid <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12949	13042	
==>in-1 range are replaced. Unrecognized
entities are left alone.

If multiple strings are provid <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20971	21090	
==>ect(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17392	17511	
==>ect(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{ne <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4387	4514	
==>e ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop }, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4387	4514	
==>e ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend =>   sub{ @list.pop }, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	271	373	
==>awn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, inclu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	271	373	
==>awn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, inclu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1112	1223	
==>red-alts';       # registered alternatives
$Alternatives   = $Meta . '/alternatives';          # Alternative lin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21908	22031	
==>ough such a Relation can have no
more than a single tuple.  A zero-attribute Relation with zero tuples or
one tuple respecti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26460	26583	
==>ough such a Relation can have no
more than a single tuple.  A zero-attribute Relation with zero tuples or
one tuple respecti <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	456	580	
==>tp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	423	547	
==>tp_url}
            or (warn("LWP support unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3571	3704	
==>tra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3571	3704	
==>tra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6332	6448	
==>Try with a more general domain, alternately stripping
                    # leading name components and leading dots. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6332	6448	
==>Try with a more general domain, alternately stripping
                    # leading name components and leading dots. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12198	12380	
==>ax => $max,
    }, $class;
    return $self;
  }

  sub min {
    my $self = shift;
    $self->{min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6069	6182	
==>r( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6081	6194	
==>r( $match->{match} );
}

sub match::str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1371	1515	
==>arameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1371	1515	
==>arameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5331	5468	
==>s) = $X::pos;
      my $x = $s =~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1349	1459	
==>er 8 section 3.2

sub concatenate(Array *@p) is exported(:all) {
  return &nothing
    if +@p == 0;
  return @p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7175	7268	
==>et of Str $attrs!) returns Relation::Example {
    return $?SELF.project( $!heading.difference <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	630	725	
==>lective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective: <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	630	725	
==>lective - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	110	210	
==>stract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <sourc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	110	210	
==>stract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <sourc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4808	4947	
==>nt, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4808	4947	
==>nt, so we can parse Perl into packages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1282	1370	
==>!@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompile->new('p6'=>$code)->compile;
	print <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	978	1093	
==>of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	978	1093	
==>of every Rosetta::Model::Document object:
    has Rosetta::Model::Node @!all_nodes;
    # Array of Rosetta::Model::N <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11184	11294	
==>} }; also works?

1;
__END__
#----------------------------------------------------------------------
What is Ex <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13223	13332	
==>0|D]) }.
digits([D|T]) --> digit(D), digits(T), !.
digits([])    --> [].
digit(D) --> [D], { code_type(D, digi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	261	395	
==>$ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my ($segil, $name, $space) = @_;
#    
#
#    $space = "" if $space =~ / <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	140	243	
==>ar::Util 'blessed';
use Carp 'confess';

use base 'type::equivalence';

# need to load this here in 
# o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5050	5164	
==>open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5050	5164	
==>open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20400	20515	
==>level preference
/ control-panel displays a list of all the languages your programs do or
might have, and lets you a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20400	20515	
==>level preference
/ control-panel displays a list of all the languages your programs do or
might have, and lets you a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5419	5519	
==>osetta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5419	5519	
==>osetta framework, as used by
    # the current process/application.
    my Rosetta::Interface $rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	665	764	
==>s+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	665	764	
==>s+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	604	781	
==>_->name => $_->code }
                               $class->methods->members
                             },

                  # Perl 6 has no concept of associative attributes <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2284	2379	
==>of
Test::Harness.  They are exported on request.

=over 4

=item C<$Test::Harness::Verbose>

The <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1957	2073	
==>ge) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1957	2073	
==>ge) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVE <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22760	22879	
==>())) {
        Carp::confess "Error: Application of undef.\n";
    }
    $f->do(@args);
}
sub p6_applym {
    my($m,$o,@ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27434	27546	
==>$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dump <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4902	5077	
==>k')),
            returns => 'opaque' 
        ),
        sub {
            my $e = shift;
            return $e->get('&dispatcher')->do();        
        }
    )
);

## ----- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	603	727	
==>self->{values}{$key} = shift;
        return $self;
    };
}

foreach my $key (@tuple_keys) {
    *$key = sub {
        my $s <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2067	2209	
==>rray )
{...}
# signature from S29draft.pod 8651.
 multi  List::sort(  SortCriterion  @by
                              ;               *@values <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1662	1793	
==>rn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
u <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6646	6744	
==>ings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6646	6744	
==>ings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method insert_siblings ($self: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15592	15741	
==>n\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15586	15735	
==>n\$pos; 1 }
$_[1]     : 0
$_[1] )";
        }
        # capturing subrule
        # <subrule ( param, param ) >
        my ( $subrule, $param_list ) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1841	1939	
==>ivided to various intrinsic object types, including

intrinsic Code (which then has Pad/Sig/Body to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1769	1866	
==>ivided to various intrinsic object types, including
intrinsic Code (which then has Pad/Sig/Body to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2326	2448	
==>r, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2466	2588	
==>r, $flags, $state ); 
    } 
}

sub match {
    my ( $rule, $str, $grammar, $flags, $state ) = @_; 
    
    return Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12785	12884	
==>>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12785	12884	
==>>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1236	1340	
==>'" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" v <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1236	1340	
==>'" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name="' ~ %p{'id'} ~ '" v <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6301	6406	
==>s, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The docu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6301	6406	
==>s, the last one wins.

=back

=item getprint($url)

Get and print a document identified by a URL. The docu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13002	13133	
==>';
    }
    
    return _not_implemented( $n, "postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # print "prefix: ", <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32988	33083	
==>Relation::Example
which is the same as the invocant Relation::Example but that some of its
tuple <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6627	6727	
==>ss. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. The <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6627	6727	
==>ss. 
For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. The <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15585	15775	
==>urns => 'opaque'
            ),               
            sub {
                my $e = shift;
                $e->create('$attrs' => hash->new());
                $e->create('&dispatcher' = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	66	233	
==>s Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	66	233	
==>s Str  is export { '.'   }
sub updir         returns Str  is export { '..'  }
sub rootdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is expor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1959	2105	
==>rule $rule_name { <r$prev> [ $x <$rule_name> ]? }\n";
        }
    }
    return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2573	2692	
==>elf = shift;
	my $node = shift;
	my $from = shift;
	my $to = shift;

	if ($to eq "PV") {
		return "$node";
	} else {
		d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3381	3505	
==>et;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.item <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3381	3505	
==>et;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.item <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2177	2301	
==>t";        
    return $self->[2]->store($name, $value);
}

sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	331	494	
==>~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0]{pair} <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1673	1768	
==>over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at lea <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1673	1768	
==>over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters at lea <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7826	7936	
==>kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Wi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7826	7936	
==>kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Wi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9272	9394	
==>y <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9272	9394	
==>y <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        }
        when any <deciphering d <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1291	1389	
==>ns whatever the
continuation returns) with an updated C<Result> object.  If the parser
fails, it ta <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1291	1389	
==>ns whatever the
continuation returns) with an updated C<Result> object.  If the parser
fails, it ta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	235	366	
==>gs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	235	366	
==>gs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumf <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8165	8284	
==>initrd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $ini <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1577	1712	
==>h content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for r <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1577	1712	
==>h content
 $para->add_daughter(Perldoc::DOM::Text->new
                         ({ content => "foo" }));

 # dummy nodes used only for r <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	1348	1511	
==>le ($oldn != keys %$ccset) {
        $oldn = keys %$ccset;
        for my $f (keys %$ccset) {
#            $ccset->{$_} = 1 for @{ $nodes{$f} };
            for (@{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3375	3500	
==>E')->code();

    $<op> := (push|unshift) <p6ws> <variable> <p6ws>? \, <p6ws>?
    $<code> := (.*?) <p6ws>? \;
        { retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14558	14654	
==>tities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, except th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14558	14654	
==>tities_numeric( $string, $unsafe_chars )

This routine works just like encode_entities, except th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3658	3796	
==>urn $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3798	3936	
==>urn $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	527	623	
==>e index files. jibs/ if
not specified.

=item index

Path to the index directory. default: $root/ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9207	9385	
==>()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.sh <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9207	9385	
==>()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	172	284	
==>Compiler::Regex;
use Pugs::Compiler::RegexPerl5;
my $rul = '[a|b](b)c';
my $rpc_rule  = Pugs::Compiler::Rule-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1995	2109	
==>ef,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1995	2109	
==>ef,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6187	6324	
==>pect '/' \n" if grep { $_ eq '/' }   @expect;

        # print "token: $$t[0] ", Dumper( $$t[1] );
        # print "expect: ", Dumper( @ex <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6330	6454	
==>e_registered_alternative( package => $unlink_this )
            if $unlink_this;

        ### link the files
        return u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	679	824	
==>rgs( PL_FILES => {} );
        }
        if ($args{inline}) {
            $self->Inline->write;
        } else {
            $self->Makefile->writ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1537	1642	
==>ist");
        system("../../Setup$Config{_exe}", 'unregister', '--user');

        print "*** Building th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	570	700	
==>nvocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocati <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	570	700	
==>nvocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocati <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2404	2513	
==>sc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2462	2571	
==>sc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$todo, :$depends <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	893	1003	
==>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	893	1003	
==>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.], <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7850	7944	
==>nternal structures.

Cipher authors should assume that if this method is being called, the Secr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7850	7944	
==>nternal structures.

Cipher authors should assume that if this method is being called, the Secr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7744	7849	
==>mmar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7482	7583	
==>mmar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5368	5485	
==>);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5368	5485	
==>);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if ($con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1588	1717	
==>re( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1599	1728	
==>re( 'capturing_group',
            \&rule,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_grou <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2749	2842	
==>over

=item B<source>

=item B<source($new_source)>

Returns the representation of this node i <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2749	2842	
==>over

=item B<source>

=item B<source($new_source)>

Returns the representation of this node i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9443	9556	
==>d remove_method ((opaque $self:) (symbol $label)) returns nil
    ((($self: get_attr (symbol new (%:methods))) del <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43041	43134	
==>Relation> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentation i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1432	1546	
==>'num'))
        || confess "Index must be a num type";
    # replace the value with a nil type
    $self->[$index-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10907	11010	
==>->singleton_test_on_Foo(), 
   '&Foo::singleton_test_on_Foo',
   '... still got the right return value f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8429	8530	
==>->singleton_test_on_Foo(), 
  '&Foo::singleton_test_on_Foo',
  '... still got the right return value f <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4910	5070	
==>AY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $ava <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5374	5534	
==>AY' ) ) {

                ### do we have something that satisfies this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $ava <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22554	22680	
==>r, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23056	23182	
==>r, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      typ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	409	515	
==>fined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	409	515	
==>fined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7559	7675	
==>er_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7559	7675	
==>er_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($child);
        $c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	553	652	
==>t("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $d <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	553	652	
==>t("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $d <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6510	6603	
==>ind a runnable 'ghc' from path.
*** Please install GHC (6.4.1 or above) from http://haskell.or <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1392	1506	
==>xtarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widg <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1392	1506	
==>xtarea', sub(%p, %v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widg <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4809	4910	
==>pe );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4809	4910	
==>pe );
    $?SELF!_assert_arg_hash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33437	33534	
==>Relation contains only tuples that are in
all of the source Relations.  This method has an alias n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37987	38084	
==>Relation contains only tuples that are in
all of the source Relations.  This method has an alias n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	775	878	
==>::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en ve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	775	878	
==>::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describes Rosetta::L::en ve <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1952	2174	
==>ent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1952	2174	
==>ent_tree);
                # we change our current tree
                $current_tree = $child;
                # and go back to the TOP                
                next;
            }
        }
        # if we do not f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21311	21411	
==>s be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21311	21411	
==>s be
prerequisites.

=head1 SEE ALSO

Module::Install

=head1 AUTHORS

Audrey Tang <autrijus@autrijus <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17564	17678	
==>";
    $code .= "package $ROOT".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1642	1764	
==>lude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1849	1971	
==>lude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_file.p6 <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	342	466	
==>in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0. <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	342	466	
==>in Perl 5

=head1 SYNOPSIS

    use Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1677	1775	
==>PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1677	1775	
==>PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	805	938	
==>a-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	805	938	
==>a-z0-9\-_.!~*'()", negate => Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2739	2856	
==>rselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick alrea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2739	2856	
==>rselves.
      ./who($curnick);
      debug "Logged in to \"$servername\" as \"$curnick\".";
    });

    # Nick alrea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1171	1289	
==>re => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1171	1289	
==>re => $_[0]{code}() ,} }
    }
    unshift @rule_terms, 'closure_rule';
    
    rule variable_rule {
        <variable <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1338	1478	
==>$fn\": $!\n";

    $pil_code = "use Math::BigInt;\n".$pil_code; # part of spec.  eew.

    ($pil_code,$err);
}


package Perl6::Run::OnPerl5: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1895	2012	
==>print __PACKAGE__->pmc_compile($code);
    }
    else {
        local $@;
        eval __PACKAGE__->pmc_compile($code) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3630	3757	
==>s;
}


sub _analyze_line {
    my($self, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	754	884	
==>day() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	754	884	
==>day() unless $epoch.defined;

    $epoch = int $epoch;

    # waiting for localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	459	561	
==>interpreter_class;
    $class->require or die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub provi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2026	2168	
==>=> $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3399	3533	
==>=> $_ } LoadFile( $Available );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17898	18001	
==>=item pos

=item quotemeta

=item rindex 

Needs to be in terms of StrPos, not Int.

=item split

 multi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	671	775	
==>e way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many no <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	671	775	
==>e way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11037	11182	
==>ear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11037	11182	
==>ear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $queue<enqueue <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6385	6481	
==>ied by a URL. The document is printed
to the selected default filehandle for output (normally STD <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6385	6481	
==>ied by a URL. The document is printed
to the selected default filehandle for output (normally STD <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10177	10270	
==>href="http://svn.openfoundry.org/pugs/perl5/PIL2JS/">Perl 6 on
    JavaScript</a>, ...) suppor <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22096	22215	
==>*saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don't know.
Possible danger?

  U32 *of <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16997	17115	
==>*saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don't know.
Possible danger?

  U32 *of <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19081	19224	
==>>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words {  # see 11.14
      < <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16781	16901	
==>)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! int( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33850	34009	
==>eate('$return' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->equal_to(
                     $e->get('$class')->i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6062	6188	
==>t the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Ba <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10319	10445	
==>t the right method return value');
is_deeply(
    [ $Bar->class_precendence_list ], 
    [ $Bar, $Foo, $Object ], 
    '... $Ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25126	25254	
==>s}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $class;
    return $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8109	8233	
==>key.
    $key = "" . $key;
    if (exists $orig->{$key}) {
      if ($orig->{$key} ne $value) {
        print STDOUT "# key " <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	39	152	
==>rw {...}
storage() = 5;
#="is readonly"  ist der Standard
sub func( $arg is readonly ) { $arg = 123; } # geht nich <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10893	11015	
==>$plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%option <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10893	11015	
==>$plaintext) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%option <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13152	13253	
==>2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13152	13253	
==>2 C<$set1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3446	3558	
==>([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3446	3558	
==>([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($co <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	163	268	
==>(@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	163	268	
==>(@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5130	5351	
==>q '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5130	5351	
==>q '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3519	3625	
==>return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		die "what type is $node ($flags)?";
	} <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2229	2360	
==>y $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2229	2360	
==>y $rv = !$self.equal($other);
    return $rv;
}

method subset($self: Set $other) returns Bool {
    my $rv = ($self.size <= $other. <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	597	706	
==>pile};
usage();
exit 1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $Config{output}" o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8025	8171	
==>$obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8025	8171	
==>$obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2961	3076	
==>e::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2961	3076	
==>e::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18174	18281	
==>count for situations where multiple DBMS
objects want to use the same external resources, such as a reposito <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18174	18281	
==>count for situations where multiple DBMS
objects want to use the same external resources, such as a reposito <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5625	5743	
==>ecurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.prev <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5625	5743	
==>ecurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = $.recurrence.prev <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7216	7320	
==>k if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	517	621	
==>k if we're even allowed to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45506	45670	
==>> (
    # method label
        symbol->new('name'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5235	5339	
==>range is a fractional error.
# Here $range must be numeric, >= 0
# Non numeric ranges might be a useful f <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	481	611	
==>ode in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  = <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	481	611	
==>ode in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =head1 NAME
 #
 #  foo
 #
 #  = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21797	21891	
==>rce files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be gi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21797	21891	
==>rce files.  At some appropriate place, usually in the
main program, Locale::KeyedText can be gi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9392	9523	
==>->{op1}{stmt} eq 'method' ) {
        # Moose: sub clear { my $self = shift;';
        # method clear {
        #warn "method: ", <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5170	5296	
==>OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5228	5354	
==>OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40777	40871	
==>ppreciate being informed any time you create a
modified version of Locale::KeyedText that you a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40777	40871	
==>ppreciate being informed any time you create a
modified version of Locale::KeyedText that you a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4291	4396	
==>eems Irix long doubles can have 2147483648 and 2147483648
        # that stringify to the same thing but a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7832	7933	
==>end_element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7832	7933	
==>end_element ('list')>

This event is fired when a '=back' directive is reached.
    
=item I<start_ele <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1624	1734	
==>_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1624	1734	
==>_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( docu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3883	3978	
==>General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
y <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3883	3978	
==>General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
y <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1269	1385	
==>ckages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wante <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1269	1385	
==>ckages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wante <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3239	3358	
==>plement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Function <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3239	3358	
==>plement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($self: Set::Infinite::Function <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14202	14328	
==>) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14196	14322	
==>) . ";\n" .
	    "$_[1]      my \$bool = (!\$match != 1);\n" .
	    "$_[1]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3210	3358	
==>);
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3210	3358	
==>);
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5359	5473	
==>e at $?CALLER::POSITION";

        #while Control::Caller::caller(+:$i) -> $caller {
        #   $mess ~= "\n\t{$ca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15463	15566	
==>t;
}

# in a let block we thread the set of generic type variables, so the body has the generic variable <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4713	4824	
==>m filter,
    # because we need all the lines including the ones before the `use`
    # statement, so we can par <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4713	4824	
==>m filter,
    # because we need all the lines including the ones before the `use`
    # statement, so we can par <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	262	365	
==>as $.cxt enum« CxtVoid CxtItem CxtSlurpy »;
# has Perl::Type $.type;  # for slurpy/item types

# On th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1227	1325	
==>rt {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1227	1325	
==>rt {
    return &::($worker_pkg)::rel2abs( $_path, $_base );
}

sub abs2rel (Str $_path, Str $_base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	495	756	
==>sg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	495	756	
==>sg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Validator::L::en

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17845	17974	
==>ss = ref $proto || $proto;

    unless( @methods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10396	10513	
==>UT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/t <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10396	10513	
==>UT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2047	2186	
==>Y' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2047	2186	
==>Y' ) {
        my $t = pop @a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2057	2177	
==>y $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

metho <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2057	2177	
==>y $rv =
        (($self.size == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3649	3762	
==>rate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3649	3762	
==>rate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %rest;
    %rest<_ us <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17753	17869	
==>&strap_callback;
sub strap_callback {
    my($self, $line, $type, $totals) = @_;
    print $line if $Verbose;

    my <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5821	5917	
==>mplate->param(files => $total_files);
$template->param(links => $total_links);
print $fh $templat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6004	6111	
==>$fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6004	6111	
==>$fh.print($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8486	8602	
==>ct>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8486	8602	
==>ct>;
      if %!users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<u <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4766	4882	
==>[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4766	4882	
==>[3],0,0xFF); # 2.octet
    } elsif (@string[0]>0) {
      my Int @index = splice @string,0,4;
      take index(@index <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	334	456	
==>c::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $b <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	334	456	
==>c::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18804	18910	
==>h a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18804	18910	
==>h a C<package statement and continuing
        until the next C<package> or C<DATA> section.
    DATA - The <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3899	3993	
==>f the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, w <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3899	3993	
==>f the
many other Config:: modules. To rephrase, Config::Tiny does not preserve
your comments, w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32816	32915	
==>ser-defined external files for reading, mainly in the
C<translate_message()> method, but it has no o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32816	32915	
==>ser-defined external files for reading, mainly in the
C<translate_message()> method, but it has no o <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	616	726	
==>hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" ) <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	616	726	
==>hack or pugsbug?
        return '' unless +@!diagnostics;

        my $diagnostics = @!diagnostics.join( "\n" ) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6074	6269	
==>@_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5582	5777	
==>@_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2524	2676	
==>after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2524	2676	
==>after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13991	14096	
==>tstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span represent <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13991	14096	
==>tstart, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

Create a span represent <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	816	913	
==>ass supports PMC compilation.
#
# The hope is that this will allow interoperability with modules t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	816	913	
==>ass supports PMC compilation.
#
# The hope is that this will allow interoperability with modules t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1162	1288	
==>_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1162	1288	
==>_modifier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2678	2777	
==>example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    pri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2678	2777	
==>example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    pri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11886	12000	
==>ne ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11886	12000	
==>ne ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1398	1515	
==>_bool {
  my ( $self ) =  @_;
  return $self->position() > 0;
}

sub as_integer {
  my ( $self ) =  @_;

}

sub as_num <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2219	2364	
==>nk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2577	2722	
==>nk->new(
        Seq->new(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5138	5288	
==>ist      pre     grep    safe   (Array: Code)\
\\n   List      pre     sort    safe   (Array: Code)\
\\n   List      pre     reduce  safe   (Array: Cod <==
2	/Users/nnunley/pugs/t/packages/LoadCounter.pm	14	117	
==>kages::LoadCounter;

$main::loaded++;

sub import {
    $main::imported++;
}

sub unimport {
    $main:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2250	2386	
==>ge.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty li <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2250	2386	
==>ge.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty li <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6743	6855	
==>currence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6743	6855	
==>currence => $param, span => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	855	963	
==>$.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	855	963	
==>$.height = $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6129	6383	
==>ndex, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6593	6847	
==>ndex, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8005	8109	
==>d, the next event fired will be
any text which follows the item.

=item I<end_element ('item')>

This eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8005	8109	
==>d, the next event fired will be
any text which follows the item.

=item I<end_element ('item')>

This eve <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2235	2348	
==>> $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2235	2348	
==>> $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	26	150	
==>::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    ' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	26	150	
==>::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end_element',

    ' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	427	549	
==>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	427	549	
==>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10243	10388	
==>utoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10243	10388	
==>utoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11653	11747	
==>ally allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt> <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11711	11805	
==>ally allow Test::More-style cmp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4089	4189	
==>->val;

		Blondie::TypeSafe::Annotation->new(
			type => $sub->type,
			struct_equiv => $rval,
			ori <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2532	2647	
==>ble

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2532	2647	
==>ble

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three= f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25794	25894	
==>tter>
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
    | <IdentityEscape>
}
rule ControlEs <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	821	918	
==>turns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	821	918	
==>turns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	567	680	
==>= @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	567	680	
==>= @.spans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8423	8525	
==>ev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8423	8525	
==>ev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3080	3182	
==>er data.
The encipherer closure can be called with a string, and should be called at the 
end of enciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3080	3182	
==>er data.
The encipherer closure can be called with a string, and should be called at the 
end of enciph <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1655	1762	
==>ast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1655	1762	
==>ast.new;
    $p.search = qw/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRI <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26522	26618	
==>re running it.

B<NOTE> This currently only works when sitting in the perl source
directory!

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	372	475	
==>:Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	372	475	
==>:Rule->compile(q(
    \\< <VariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	725	829	
==>ing to run the program
    
    my $result = Blondie::Backend::Perl->new->run($prog);

    use Blondie::E <==
2	/Users/nnunley/pugs/util/drift.pl	341	441	
==>d $dir;
my $out = $dir."/Instances.hs";
open TMP, "> $in.tmp" or die "Cannot open $out: $!";

open IN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8272	8382	
==>ck>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8272	8382	
==>ck>) eq normalize($curnick)) {
        $.curnick = $event<object>;
        debug "Changed nick to \"$.curnick\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5004	5117	
==>"$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5004	5117	
==>"$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9612	9715	
==>ne and compile a procedure that will insert a record into the
    # 'person' table, which is populated f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9612	9715	
==>ne and compile a procedure that will insert a record into the
    # 'person' table, which is populated f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27243	27365	
==>E' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit chan <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27243	27365	
==>E' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Message object does not permit chan <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13669	13778	
==>issing, or core bug that needs to
be sorted out before you can continue.

It is also possible to use the `forc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13727	13836	
==>issing, or core bug that needs to
be sorted out before you can continue.

It is also possible to use the `forc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2940	3101	
==>= 'skipped';
            for (1 .. $num) {
                $self->report_test(
                    $::TestBuilder->FETCH('::Test')->new(
                        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	440	562	
==>rnary', 
        assoc => 'non',
        name => 'ternary:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPE <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	532	632	
==>rmations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	532	632	
==>rmations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1788	1902	
==>0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1788	1902	
==>0 }

method child_count returns Int { +@!children }

method size ($self:) returns Int {
    my $size = 1;
    for @ <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2149	2263	
==>r $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exis <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2127	2241	
==>r $dir; return;
    }

    return if exists $args{size} and -s $file != $args{size};
    system($args{run}) if exis <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23956	24050	
==>ew Relation object, whose Heading and
Body attributes are set respectively from the optional na <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28508	28602	
==>ew Relation object, whose Heading and
Body attributes are set respectively from the optional na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23023	23133	
==>key which is not meant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23023	23133	
==>key which is not meant to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7774	7921	
==>therwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1075	1222	
==>therwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry->{package} dep <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2288	2407	
==>_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2288	2407	
==>_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST_URI <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16460	16556	
==>$_[0] },
     );
sub p6_perl6_objects_from_whatever {
    return (map{p6_perl6_objects_from_whate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6684	6784	
==>al.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6684	6784	
==>al.exists($EMPTY_STR);
}

my method _assert_arg_doc (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32661	32759	
==>rguments is not significant to the result;
the new Relation contains all the tuples of the source R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37211	37309	
==>rguments is not significant to the result;
the new Relation contains all the tuples of the source R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1848	1982	
==>o slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1775	1904	
==>o slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3066	3165	
==>6, '... got the right y for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids');

my $old_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16937	17075	
==>hs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13358	13496	
==>hs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5723	5867	
==>tml$/
    and return {
      pugs_version  => $1,
      pugs_revision => $2,
      osname        => $3,
      runcore       => runcore2human($4), <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3385	3490	
==>ad2 $bool = $repo->add_package(package => $pkg)

=cut

sub add_package {
    my $self = shift;
    my %arg <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3668	3803	
==>ngth,
			    *@values
			    --> List ) is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $siz <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7948	8037	
==>($_[1]{instance}, $_[0], @_[2, 3]) };
multi unify => ('type::variable::instantiated', 'typ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	171	291	
==>{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors sh <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	171	291	
==>{
    has Set::Infinite::Functional $.set;

=for TODO

  Bugs:
    * Lazy lists are not implemented
    * Constructors sh <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5755	5854	
==>ot Found : cannot find object ($child_to_remove) in self";
}

## ----------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5755	5854	
==>ot Found : cannot find object ($child_to_remove) in self";
}

## ----------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1064	1184	
==>ircumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or uml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1064	1184	
==>ircumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or uml <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1127	1236	
==>ected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1185	1294	
==>ected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $desc?, :$todo, :$depends) return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2797	2900	
==>(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2797	2900	
==>(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8177	8274	
==>nels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8177	8274	
==>nels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37893	37986	
==>dy loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subrout <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37893	37986	
==>dy loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return that subrout <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1754	1897	
==>- (node,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1695	1835	
==>- (node,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1201	1299	
==>entation of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Example vers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1201	1299	
==>entation of a Rosetta Engine

=head1 VERSION

This document describes Rosetta::Engine::Example vers <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3896	4007	
==>::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3954	4065	
==>::ok.goto(1, "$module imported OK", :$todo, :$depends);
    }
}

## throws ok

sub throws_ok (Code &code, Any $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	351	455	
==>able 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	351	455	
==>able 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:]]+) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15873	15973	
==>comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most wi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20106	20206	
==>comment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most wi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1458	1596	
==>b escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1398	1531	
==>b escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	152	255	
==>has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	152	255	
==>has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9207	9342	
==>!! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ?? <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9207	9342	
==>!! $x + 1 },
        closure_previous =>    sub ($x) { $x ==  1 ?? -1 !! $x - 1 },
        complement_next =>     sub ($x) { $x < 0   ?? <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	268	387	
==>uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_t <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	268	387	
==>uses Set::Infinite; this version uses Array
        - import Perl5 POD
        - this version can iterate()

    * set_t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2212	2400	
==>t' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item " <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2212	2400	
==>t' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1509	1614	
==>ional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1509	1614	
==>ional $set ) 
    returns Set::Infinite::Functional 
{
    # TODO - optimize; invert loop order, since the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9206	9341	
==>$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } els <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9194	9329	
==>$_[1]     \$bool = 0 unless
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } els <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5007	5125	
==>is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5007	5125	
==>is copy ) {
    $x = $.recurrence.next( $x );
    if $x < $.span.start && ! $.span.start_is_open {
        $x = $.recur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21056	21161	
==>l automatically be compiled into .pmc files and shipped with your
distribtution precompiled. This means th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21056	21161	
==>l automatically be compiled into .pmc files and shipped with your
distribtution precompiled. This means th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1159	1306	
==>ead of 'literal'
            #print " @{[ sort @expect ]} \n";
            # if ( grep { $_ eq '++' || $_ eq '{' } @expect ) {
            $m = Pugs <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	527	623	
==>die << ".";
*** Error: $self->{file} does not exist!
    Current directory is @{[Cwd::abs_path(Cw <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	396	530	
==>A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  imp <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	396	530	
==>A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  imp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7670	7759	
==>p_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7728	7817	
==>p_ok &Test::eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1200	1315	
==>f %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1200	1315	
==>f %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3818	3952	
==>e =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\\ \\ \\ \\ /gm;
#
#    chomp $file;
    
#    open FH, " <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3625	3720	
==>V|test_harness\(\$\(TEST_VERBOSE\), )/ENV->{HARNESS_PERL} = q{$full_pugs}; \@ARGV = sort map glo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20192	20282	
==>=item $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20192	20282	
==>=item $h.proxy_authorization_basic

Same as authorization_basic() but will set the "Proxy-A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1130	1218	
==>eth_call_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6230	6318	
==>rim('bs_rule_decl','\s*rule\s+(\w+)\s+{([^}]*)}(?{ &::hlp_rule;})');
my $x4 = def_stmt_pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39269	39363	
==>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39269	39363	
==>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

=head1 AU <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	864	1002	
==>y
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 ite <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	864	1002	
==>y
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13682	13776	
==>tains too many branches

=item RPe_SWUNKN (-8)

Unknown switch condition (?(%.2s

=item RPe_SEQ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25143	25240	
==>pyright holders
of Rosetta give you permission to link Rosetta with other free software
components <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25143	25240	
==>pyright holders
of Rosetta give you permission to link Rosetta with other free software
components <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31257	31358	
==>ike C<|>).

=item family

The general family of this object.

=item data

The data or children of this <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	376	478	
==>($duration);
#}

#method infix:<+>($self: Duration $duration) returns Duration {
    #$self.add($durati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	808	906	
==>->compile($source);
    #print '*{\''.$rulename.'\'} = '.$rule->perl5().";\n";
    print "*{\'$rule <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1425	1555	
==>--

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1425	1555	
==>--

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12791	12889	
==>he fields removed.  In scalar
context the number of fields removed is returned.

Note that if you p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12791	12889	
==>he fields removed.  In scalar
context the number of fields removed is returned.

Note that if you p <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8770	8888	
==>values --> Str ) {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ @values[$_];
   }
   $st <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	243	361	
==>values --> Str ) {
    my $str = ~@values[0];
    for 1..@values.end {
	$str ~= $delimiter ~ @values[$_];
    }
    $st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2878	3008	
==>ou can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2878	3008	
==>ou can connect to http://localhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14248	14349	
==>ersion of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14248	14349	
==>ersion of the
"Node" interface defined in the XML DOM spec; it has a type (what the XML
spec calls 'na <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4980	5086	
==>to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex conve <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4980	5086	
==>to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplistic dec-to-hex conve <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1914	2032	
==>+ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($msg, -1) eq "\n";
    1;
  }
}

sub setup_compression <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15982	16084	
==>l out!".  Places the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26747	26843	
==>f C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias name <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31299	31395	
==>f C<$attrs> do not match attribute names of the invocant
Relation.  This method has an alias name <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	343	460	
==>less $noplan;
    $planned = $n;
}

END {
    my $ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $pl <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	620	736	
==>return(undef, $input);
}

sub End_of_Input($input) is exported(:all) {
  return defined($input) ?? () !! (undef, unde <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5912	6015	
==>choose, however, to override 
any method for speed--although they should be careful to avoid changing th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5912	6015	
==>choose, however, to override 
any method for speed--although they should be careful to avoid changing th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12135	12233	
==>ter @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node obj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12135	12233	
==>ter @root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node obj <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	669	785	
==><∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	669	785	
==><∏>  ($nums) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	548	682	
==>e v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	548	682	
==>e v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say " <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2694	3079	
==>),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            App(
                                Sym('&infix:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4628	4743	
==>list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " spli <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4628	4743	
==>list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " spli <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23534	23638	
==>e-named accessor method can be used to see if a Relation-doing object
can mutate.  Depending on the imple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28086	28190	
==>e-named accessor method can be used to see if a Relation-doing object
can mutate.  Depending on the imple <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	196	314	
==>VERSION = '0.01';

sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{ur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2154	2269	
==>> 'â',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2154	2269	
==>> 'â',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14041	14159	
==>their entity
representation. A second argument can be given to specify which
characters to consider unsafe (i.e., which <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14041	14159	
==>their entity
representation. A second argument can be given to specify which
characters to consider unsafe (i.e., which <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7449	7553	
==>= $_[1]); # in a recursive let expr a generic recursive function will be reunified with it's still free v <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2742	2859	
==>ion: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url ) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2742	2859	
==>ion: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	909	1077	
==>.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	909	1077	
==>.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    return $?SELF!splitbytes( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1159	1284	
==>"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

s <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	246	361	
==>ed_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	246	361	
==>ed_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37779	37921	
==>' => (
    # method label
        symbol->new('has_attribute'),
    # method body
        method->new(
            $::ENV,
            method:: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18598	18713	
==>And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replace)
{ Pugs::Internals::substr($s,undef <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7356	7460	
==>ble.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7356	7460	
==>ble.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7933	8089	
==>t unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe-> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8397	8553	
==>t unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20070	20159	
==>rafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_tra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20070	20159	
==>rafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<last_tra <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13289	13385	
==>ad2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13289	13385	
==>ad2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6377	6509	
==>e       => \$pkg,
            allow       => ISA_JIB_PACKAGE,
        }
    };

    check($tmpl, \%args) or error(Params::Check->last <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	371	481	
==>f !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	371	481	
==>f !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2747	2892	
==>} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2747	2892	
==>} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13919	14035	
==>ift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1399	1515	
==>ift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4891	4987	
==>turing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5084	5180	
==>turing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23577	23699	
==>ub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub anon :anon\n.param pmc match\n", $S1
    $S1 .= "\n.end\n"
    self["va <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7236	7361	
==>65),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7236	7361	
==>65),
    "weierp"   => chr(8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    " <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1417	1623	
==>map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1417	1623	
==>map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26542	26670	
==>mutable> - B<Relation::Example Is Mutable>

Bool - This attribute is True if the Relation::Example is allowed to and/or has the
a <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	567	698	
==>GI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	567	698	
==>GI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10538	10654	
==>o_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item . <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10538	10654	
==>o_do = ($object);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item . <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14633	14786	
==>f->registered_alternatives_file, @alts ) };
    $@ and error( "Could not write alternatives file: $@" ), return;

    return 1;
}

# Local variables:
# c- <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17290	17408	
==>tlink');
                # $backlink->push_content(abs2rel($source, $output_dir));
                $h->push_content($ba <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8290	8420	
==>" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8290	8420	
==>" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_captur <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	515	662	
==>OPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Bas <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	515	662	
==>OPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Remote-0.0.1;
    
    print header;
    
    if (auth_type() eq 'Bas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12923	13023	
==>it is generally not
possible to tell which of the returned values belonged to which field.

=item $h. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12923	13023	
==>it is generally not
possible to tell which of the returned values belonged to which field.

=item $h. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7159	7311	
==>ew_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7159	7311	
==>ew_match->{label}   = $label;
    
        if ( ! defined $new_match->{capture} ) {
            if ( defined $match->{tail} ) {
                my $len = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2531	2648	
==>> $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2531	2648	
==>> $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	427	529	
==>so subclasses don't
# accidentally override things they didn't intend to.

# Determine which stack fram <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	427	529	
==>so subclasses don't
# accidentally override things they didn't intend to.

# Determine which stack fram <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17706	17810	
==>ode .= "our \$META;\n";
    $code .= "\$META = \$::${Kind}->new('\$:name' => '$pkg');\n" if $kind;
    $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	324	444	
==>T

=head1 See also

=cut

# TODO - implement the "magic hash" dispatcher
# TODO - generate AST

*ident = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3440	3554	
==>tinue);
    });
}

=pod

Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3440	3554	
==>tinue);
    });
}

=pod

Captures within quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26494	26589	
==>om>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <ClassRang <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18480	18607	
==>EAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18480	18607	
==>EAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREFACE
        (SUBROUTINE | BAREBLOCK | POD | PL <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14303	14407	
==>pec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy with
o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14303	14407	
==>pec; it has a type (what the XML
spec calls 'name') and attributes, and is arranged in a hierarchy with
o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	253	368	
==>RULE')->code();

    <?p6ws>? <@Grammar::Perl6::statements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	188	283	
==>ss { __PACKAGE__ . "::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9277	9375	
==>ems_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charset_item(class_neg(X <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1824	1985	
==>d --skipping");
        return 1;
    }        
    
    ### install the archive
    my $inst_pkg;
    {   ### extract to a temp dir
        my $my_tmp_dir = File <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41142	41241	
==>upports embedding of Template modules into the same files as
program code, rather than requiring sep <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41142	41241	
==>upports embedding of Template modules into the same files as
program code, rather than requiring sep <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16435	16541	
==>tationally complete
(and industrial strength) and has fully integrated database functionality;
this languag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16435	16541	
==>tationally complete
(and industrial strength) and has fully integrated database functionality;
this languag <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	310	427	
==>_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	211	328	
==>_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11323	11502	
==>if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11323	11502	
==>if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15943	16040	
==>eturn a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified

This <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15943	16040	
==>eturn a C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified

This <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1980	2086	
==>= 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Que <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1980	2086	
==>= 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Que <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	644	860	
==>ack};
        }
        else {
            if (@{$stack}) {
                push @{$stack->[-1]} => $token;                            
            }
        }
    }
    return $subexp->[0]
}

1;

__END__

# this code <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3377	3506	
==>urn;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), return;
        system( qq[ cp -R $srcdir/* $buildd <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	486	586	
==>$match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	692	792	
==>$match = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2547	2651	
==>_slurp_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2200	2305	
==>face::Command {

    # External packages used by the Rosetta::Interface::Command class, that do export sym <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2200	2305	
==>face::Command {

    # External packages used by the Rosetta::Interface::Command class, that do export sym <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2018	2148	
==>ize => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tok <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2018	2148	
==>ize => { $burst_size },
    tokens     => { $self<token_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tok <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9832	9948	
==>.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fix <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9832	9948	
==>.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fix <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28583	28684	
==>s a C<tail> node, and a
character class's ender is an C<anyof_close> node.

=item my $c = $obj->family <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	620	723	
==>rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	620	723	
==>rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6907	7007	
==>al digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", " <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17544	17654	
==>'|'> <BitwiseXORExpression>
}
rule BitwiseORExpressionNoIn :words {  # see 11.10
      <BitwiseXORExpressionNoI <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7657	7799	
==>normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7657	7799	
==>normalize_parameter( $span1, $span0 );
        return $span0, $span1;
    }
    # $span is some kind of scalar
    return $span0, $span0.new( s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	1	92	
==>package Pugs::Grammar::Circumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Op <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4577	4678	
==>= shift;
	my $node = shift;

	$self->{dups}->includes($node->orig);
}

sub reduce_val {
	my $self = sh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2885	2989	
==>move to builddir under pkg_dir/_jib/build
    my $path     = $self->meta->package;
    my $builddir = Pat <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6780	6893	
==>waiting for chunk #%d...\n", ++$kid; 
        waitpid($pid, 0) or die "waitpid: $!";
        my $chunk = LoadFile( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1416	1538	
==>ad files list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package eq $meta->pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5744	5823	
==>6)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($nu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5744	5823	
==>6)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	895	996	
==>d1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	895	996	
==>d1 NAME 

Pugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pug <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1097	1190	
==>ntary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1097	1190	
==>ntary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1695	1793	
==>e node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to Mul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1627	1722	
==>e node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to Mul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	296	429	
==>_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push @{$_[0]->{levels}[$_[1]]}, $_[2];
    },
) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1823	1952	
==>turn @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1823	1952	
==>turn @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7443	7577	
==>_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the j <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7501	7635	
==>_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the j <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	180	296	
==>ive types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_not_nil { bit->new(1) }

# sub i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14939	15053	
==>= @_;

    # We pulverize the line down into pieces in three parts.
    if( my($not, $num, $extra)    = $line  =~ / <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4462	4574	
==>emoved_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this opti <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4462	4574	
==>emoved_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this opti <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19805	19905	
==>der that use the
"Basic Authentication Scheme".  In array context it will return two
values; the user <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19805	19905	
==>der that use the
"Basic Authentication Scheme".  In array context it will return two
values; the user <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5205	5316	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\t", '\T') if $cc;
    return $S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18983	19078	
==>ecause Locale::KeyedText is only meant to be used with user text that is
associated with hard-co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18983	19078	
==>ecause Locale::KeyedText is only meant to be used with user text that is
associated with hard-co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	649	754	
==>n
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric diffe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	649	754	
==>n
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric diffe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8018	8123	
==>ss, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $cla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8018	8123	
==>ss, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $cla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10399	10539	
==>ed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10399	10539	
==>ed ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6629	6721	
==>e|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	return ge <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28211	28302	
==>t "----\n";
}if(1);

Language::Prolog::Yaswi::swi_toplevel;

__END__
% :- use_module(library <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6037	6132	
==>hen C<want> gets implemented. Currently, the headers
are returned as one long string.

=item Lis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6037	6132	
==>hen C<want> gets implemented. Currently, the headers
are returned as one long string.

=item Lis <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	53	153	
==>d;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	53	153	
==>d;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1024	1221	
==>t}  || 
                        0;
    $self->{p}        = delete $param->{pos}      ||
                        delete $param->{p};
                        # default = undef;
    $self->{sigspace} = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6969	7071	
==>ally the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sib <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6969	7071	
==>ally the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::insert_sib <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5938	6091	
==>= 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5938	6091	
==>= 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3466	3567	
==>ters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redist <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3466	3567	
==>ters.

=back

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redist <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39019	39147	
==>ing of <$other>
is not a subset of the heading of the invocant Relation::Example.  This method
degenerates into an C<intersection <==
2	/Users/nnunley/pugs/util/importgraph.pl	741	860	
==>ame: $!\n";

  while(<$fh>) {
    if (/^module \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = def <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6217	6325	
==>= { $!heading.values.map:{ $_ => $_ }, $mapping.pairs };

    return Relation::Example.new(
        heading = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1174	1280	
==>el::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1174	1280	
==>el::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Node <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3874	3971	
==>e_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_unio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3874	3971	
==>e_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_unio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31120	31216	
==>es of the new attributes, and
the values provide values applied to each tuple.  The new Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22887	22995	
==>erface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22887	22995	
==>erface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pendin <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9302	9432	
==>s ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_hei <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9302	9432	
==>s ($self.is_leaf()) {
        for @!children -> $child is rw {
            my $child_height = $child.height();
            $max_hei <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7104	7223	
==>(yet?) supported by :perl5 regexps.";
            } elsif !$p5 && !%modifiers_supported_p6.{$k} {
                warnin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1255	1361	
==>::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1255	1361	
==>::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match::str( matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4055	4149	
==>also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interfac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4055	4149	
==>also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interfac <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6549	6635	
==>.
p5_elemental(posSet(X)) --> "[", p5_charset_def(X), "]".
p5_elemental(matchref(I)) -- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8382	8523	
==>"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8382	8523	
==>"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	162	279	
==>ile::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	162	279	
==>ile::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6448	6565	
==>ch will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (I <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6448	6565	
==>ch will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is rw)>
=item B<pod2html (I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6679	6795	
==>$str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6679	6795	
==>$str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9802	9905	
==>) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9802	9905	
==>) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

multi sub decode_en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3511	3629	
==>);
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexic <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3511	3629	
==>);
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up in user lexic <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9083	9214	
==>for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9141	9272	
==>for perl6

= SYNOPSIS

  use v6;
  require Test;

  plan 10;
  force_todo(1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17131	17269	
==>uleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17410	17548	
==>uleop::capture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18360	18464	
==>res
such as system-managed locks so that resource corruption or application
failure is prevented.  I<Also <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18360	18464	
==>res
such as system-managed locks so that resource corruption or application
failure is prevented.  I<Also <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14037	14138	
==>ield name passed to the
callback routine has case as suggested by HTTP spec, and the headers
will be v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14037	14138	
==>ield name passed to the
callback routine has case as suggested by HTTP spec, and the headers
will be v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18984	19088	
==>heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semijoin (Relation::Exa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2208	2373	
==>r => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2455	2620	
==>r => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1865	1965	
==>niversal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1865	1965	
==>niversal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, e <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	779	875	
==>ynopsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
developmen <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	779	875	
==>ynopsis.html>.

The Pugs project was started on February 1st 2005.  It is under active
developmen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	554	691	
==>s_uptodate) {
            local $@; do $pmc; die $@ if $@; exit 0;
        }
    }

    require Pugs::Compiler::Perl6;

    my $p6 = Pugs: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2553	2662	
==>o_native
    )     
}

# some of the common list operations

sub head { @{$_[0]}[0] }
sub tail { list->new(@{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25348	25481	
==>y $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25907	26040	
==>y $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	757	878	
==>R, we can read manifest/metafile
        system( qq[mkdir -p $builddir/$path] )          and die "$?";
        system( qq[ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	369	467	
==>spatch_w_EigenClasses.jpg in this 
## same directory for a visual explaination of this. 
## ------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3052	3159	
==>blessed($_) && $_->isa('type'))
        || confess "you can only add types to a list got($_) => " . (CORE::j <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16925	17029	
==>says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16925	17029	
==>says C<use MyModule>. On the other hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5107	5213	
==>e_thunk {
	my $self = shift;
	my $node = shift;

	my $thunk = $node->struct_equiv;
	my $child = $thunk->val <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5279	5407	
==>arser::anyof_char;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $data, $vis) = @_;
    $vis = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	718	820	
==>two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	718	820	
==>two);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34870	35019	
==>set('$next' => $e->get('$dispatcher')->do());
                })->do_while(
                    block->new($e, sub {
                       my $e = sh <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2330	2446	
==>::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2330	2446	
==>::True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1087	1195	
==>odule object mixes in both Package

and Code -- because it is both a namespace of symbols and has

a main bod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1036	1142	
==>odule object mixes in both Package
and Code -- because it is both a namespace of symbols and has
a main bod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1225	1322	
==>t_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1225	1322	
==>t_bracketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	124	311	
==>ontainer::Scalar' => {
    does => [ 'IScalar' ],
    instance => {
        attrs => [ '$:value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_va <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7025	7133	
==>ion of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7025	7133	
==>ion of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This module only supports HTTP as the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22915	23046	
==>, "(?", ($self->{dir} < 0 ? '<' : ''), "=";
  }
}


{
  # (?!) (?<!)
  package Regexp::Parser::unlessm;

  sub new {
    my ($class, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5289	5458	
==>rt =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5289	5458	
==>rt =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	535	634	
==>iableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	535	634	
==>iableName>      { use v5; return $<VariableName>() }
))->code;
*Variable = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6918	7068	
==>losure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6918	7068	
==>losure4 ) {
    return $closure1 if $closure1 === $closure3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11729	11846	
==>_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11723	11840	
==>_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => 1 } qw( 
alpha
alnum
ascii
blank
cntrl
digit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6352	6467	
==>)
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6364	6479	
==>)
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11176	11312	
==>xt) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutine <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11176	11312	
==>xt) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutine <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3304	3432	
==>) {
        $tok = pop(@$X::cap);
        my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
        push(@$va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	775	873	
==>iler-Rule/lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../Pugs-Compiler-Precedence/ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	898	991	
==>rray as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inherita <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	898	991	
==>rray as argument!
* elems() actually works
* more or less fixed Lazy::List::reverse() inherita <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7358	7453	
==>oes(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7358	7453	
==>oes(Rosetta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3114	3213	
==>($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3114	3213	
==>($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' from path <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1797	1946	
==>e {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1797	1946	
==>e {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) } <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3481	3579	
==>n::duration;
#}

# operations with Duration::Gregorian constructors..
#multi method infix:<+>( $sel <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14419	14508	
==>l(Cmd,[C,10]), !, % XXX - warn on failure
  assert(cached_uncode_charname_to_char(Name,C)) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36847	36944	
==>idered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36847	36944	
==>idered to implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my St <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13288	13497	
==>default
                $e->get('$canidate')
                  ->to_bit
                  ->or(block->new($e, sub {
                      my $e = shift;                      
                      $e->set('$can <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	760	1011	
==>oes not exist]);
                                    return;
                            };    

use constant FILE_READABLE  => sub {  
                                    my $file = $_[-1];
                                    return 1 if -e $file && - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16347	16441	
==>inly in terms of a new high-level
programming language named "Rosetta D", which is computationa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16347	16441	
==>inly in terms of a new high-level
programming language named "Rosetta D", which is computationa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2371	2513	
==>ns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2371	2513	
==>ns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	101	205	
==>!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a replac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	101	205	
==>!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' can be used
# as a replac <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1471	1579	
==>equire ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cyg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1388	1490	
==>equire ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cyg <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15744	15850	
==>ed to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

Th <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15744	15850	
==>ed to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

Th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	386	488	
==>- ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	386	488	
==>- ~ <=> 
    * compare - depends on finishing Set::Infinite::Functional.compare() 
      and Span::Code <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7275	7523	
==>[ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7275	7523	
==>[ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11048	11166	
==>m.  It is analagous to a simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11048	11166	
==>m.  It is analagous to a simplified version of the
"Document" interface defined in the XML DOM spec; it exists as a con <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9878	10026	
==>ry );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver,$op) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1667	1803	
==>ry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver,$op) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11563	11661	
==>r

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11563	11661	
==>r

=item C<@!all_nodes> - B<All Nodes>

Array of Rosetta::Model::Node - This stores a collection of <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2563	2661	
==>e.bat","$plxname.cmd");
chdir($cwd);
unless (-x "$testdir/$exename.exe") {
    print "# Could no <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2256	2379	
==>y $i (0..$#s){
#          print "$i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1834	1926	
==>die::Backend::C::Builtins - 

=head1 SYNOPSIS

	use Blondie::Backend::C::Builtins;

=head1 DE <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5445	5544	
==>em err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This module <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5445	5544	
==>em err_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This module <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2439	2540	
==>t($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.me <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2439	2540	
==>t($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.me <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13022	13116	
==>n C<< $strap->{todo} >> and if the whole test was skipped
C<< $strap->{skip_all} >> contains th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1980	2082	
==>$val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1980	2082	
==>$val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15980	16077	
==>e times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15980	16077	
==>e times, then `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	627	779	
==>ckage Node;
    sub new {
        my $class = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18963	19065	
==>ing in the real world accurately, and it
can support a complete SQL emulation layer on top of it, so th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18963	19065	
==>ing in the real world accurately, and it
can support a complete SQL emulation layer on top of it, so th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29184	29299	
==>_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29463	29578	
==>_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], '$()' ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	74	214	
==>I_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	74	214	
==>I_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28602	28728	
==>anch object, $self
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object('and');
    });
  }

The <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8302	8412	
==>ction (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11779	11889	
==>ction (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3681	3939	
==>eyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3681	3939	
==>eyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages used by the Locale::Keye <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5149	5333	
==>{
                $t = [ 'IF' => $ast ]
            }
            elsif ( $ast->{stmt} eq 'sub' 
                || $ast->{stmt} eq 'multi' 
                || $ast->{stmt} eq 'submetho <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1668	1788	
==>";

    my $deps    = $struct->{depends};
    
    print "Translating:\n";
    print Dump( $deps );
    print "\n\nTo:\n" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1590	1746	
==>Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Fun <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1590	1746	
==>Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TODO - use reduce()
    $.set = Set::Infinite::Fun <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17418	17535	
==>alue data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17418	17535	
==>alue data type.
    my Rosetta::Model::Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	213	343	
==>o 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	213	343	
==>o 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1594	1696	
==>~ /^--pugs/;
    shift(@ARGV) if $ARGV[0] =~ /^-Bperl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	459	563	
==>ode.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trig <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	459	563	
==>ode.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method addarc(Str $trig <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4134	4241	
==>',  $file4,  "2nd line\n3rd line\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6661	6751	
==>RAPPING Roles COMPLETE
## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16385	16546	
==>_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20811	20972	
==>_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7742	7842	
==>rt each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / ` <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7742	7842	
==>rt each of the array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / ` <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3796	3933	
==>path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3796	3933	
==>path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8583	8690	
==>( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8579	8686	
==>( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	812	949	
==>);
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	812	949	
==>);
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3216	3443	
==>1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:aln <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3090	3309	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:aln <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1842	1946	
==>turns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1842	1946	
==>turns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3135	3264	
==>capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3319	3448	
==>capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	465	611	
==>+$/ {
            @stack.push($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @stack.p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2113	2318	
==>scription,
                )
            );
            return $passed;
        },
        'diag' => sub {
            my ($self, $diagnostic) = @_;
            $diagnostic ||= '';            
            _ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5	111	
==>ge JIB::Repository;

use strict;
use warnings;
use base 'Object::Accessor';
use JIB::Config;
use JIB::Packa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1383	1486	
==>2,
				name => "&infix:<$_>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } (($_ eq '~') ? <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17371	17463	
==>sh modules in a much more sane manner.
Module::Compile controls the compilation process, call <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17371	17463	
==>sh modules in a much more sane manner.
Module::Compile controls the compilation process, call <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5047	5162	
==>est::Harness::debug;
        }
    }
    $self->{_config}{test_count} = scalar @tests;
    @tests;
}

sub get_revisi <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/logik1.pl	77	183	
==>$option = $para{'x'} || "wert";

#!\pause
# Etwas besser, aber jedoch unübersichtlich:
my $option = $para{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15576	15674	
==>arwen for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Codd's <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15576	15674	
==>arwen for a solid foundation for data and database management systems
(DBMSs); like Edgar F. Codd's <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12389	12565	
==>P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12389	12565	
==>P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4579	4681	
==>ference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4579	4681	
==>ference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $diff_recurr = $set1.recu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	453	586	
==>the names
    # of variables, and whose values are the 
    # expected types of those objects (or possibly
    # the default values to <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2909	3033	
==>) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Resul <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3454	3578	
==>) { $Result1.<[[Get]]>() };
            return $Result3 if $Result3.isa(JSX::ValuePrimitive);
        } # 5
        my $Resul <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	40	171	
==>a::Dumper;
use strict;

sub mk_dynamic_alt {
  my($aref)=@_;
  sub{
    my($c)=@_;
    my @a = @$aref;
    while(@a) {
      my $f = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27579	27688	
==>domatch($rem,$s,L),L);
	if ($ret) {
	    #print ">>$ret<<\n";
	    my $res = eval($ret); die "bug $@\n$ret" if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21862	21959	
==>ead2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21862	21959	
==>ead2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5991	6098	
==>is_placeholder($de_facto_type)) {
			warn "filling " . $self->display_type($expected_type) . " for placehold <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1786	1891	
==>e for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argumen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1786	1891	
==>e for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CLASS>.<METH>(): argumen <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6150	6275	
==>ect {
#    return $.span.density;
# }

method stringify () returns String {
    return $.span.stringify;
}

method size () ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6150	6275	
==>ect {
#    return $.span.density;
# }

method stringify () returns String {
    return $.span.stringify;
}

method size () ret <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7414	7523	
==>mplement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7414	7523	
==>mplement_next if defined $.complement_next;
    $self.get_universe;
    return $.complement_next =
        sub <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2177	2273	
==>.remove_subscription($?SELF);
    }
}

class Class::Events::Subscription::Named {
    is Class::E <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4163	4269	
==>n ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4163	4269	
==>n ( @spans, $compl_recurr ).sort:{ $^a.compare( $^b.span ) };
}

method difference ($set1: $set2 ) {
    if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37814	37936	
==>ymbol->new('has_attribute'),
    # method body
        method->new(
            $::ENV,
            method::signature->new( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	286	385	
==>ct ();

{
	package Blondie::Backend::C::Emitter::DuplicateFinder;
	use base qw/Blondie::Reducer::Dup <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11563	11673	
==>his, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11563	11673	
==>his, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=back

=head1 AUT <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3554	3700	
==>!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3554	3700	
==>!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14584	14719	
==>ed_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14584	14719	
==>ed_person.get_field('sex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	305	430	
==>r object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1530	1655	
==>r object & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not re <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2209	2317	
==>D 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The root directory of the output tre <==
2	/Users/nnunley/pugs/util/run-smoke.pl	10	114	
==>/perl

use strict;
use warnings;
use Shell qw(svn);
use Config;
use File::Spec;
use FindBin;
use lib File <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	406	535	
==>$Prerm      $Postrm
            $Alternatives   $Altfile    $Repoindex  $Repodir    $Metaext

            package_prefix  package_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19052	19156	
==>l_log_file;
    print $code if 0;
}
sub eval_p5_log_error {
    my($code,$err)=@_;
    Carp::confess("$@\ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1559	1656	
==>) ** $exponent) instead?
     Pugs::Internals::exp($exponent,$base // Math::Unspecced::e);
 }


 m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17048	17163	
==>items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17048	17163	
==>items from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13055	13156	
==>nt they are each decoded
separately and the same number of strings are returned.

If called in void co <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13055	13156	
==>nt they are each decoded
separately and the same number of strings are returned.

If called in void co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22441	22534	
==>s a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22441	22534	
==>s a channel.

=head2 C<$botE<lt>quitE<gt>("reason")>

Quits the connection to the server by se <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1061	1175	
==>d remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1061	1175	
==>d remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3032	3134	
==>ers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3032	3134	
==>ers, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    return $set;
}
method <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18309	18410	
==>cessed to hide heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18309	18410	
==>cessed to hide heredocs, since the content
inside heredocs can possibly confuse further parsing.

Next <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1460	1586	
==>tr $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @he <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1460	1586	
==>tr $uri    = $1 || '';
    my Str $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @he <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4990	5114	
==>ix_width();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change its pare <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4990	5114	
==>ix_width();    
    # make sure that the removed child
    # is no longer connected to the parent
    # so we change its pare <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6678	6809	
==>ters for $() and such

### getters need to know what you want (str, bool, hash, array, match)



- compile()



### obvious - not do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6454	6580	
==>ters for $() and such
### getters need to know what you want (str, bool, hash, array, match)

- compile()

### obvious - not do <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19910	20005	
==>],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [Ci <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2152	2249	
==>qual($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2152	2249	
==>qual($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	719	884	
==>g' => sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$ <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	391	527	
==>l_running--;
    }
    say 'Thread 2 finished: $a is now < -100'
}
while ($still_running) {
    say $a;
    sleep 1;
    atomically { $a+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4521	4676	
==>Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4521	4676	
==>Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10416	10509	
==>elf = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10416	10509	
==>elf = $class.new(*%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26807	26904	
==>nal named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the correspon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26807	26904	
==>nal named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the correspon <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2993	3103	
==>if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2993	3103	
==>if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19474	19616	
==>(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15895	16037	
==>(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9018	9123	
==>LOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure object always

the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8721	8823	
==>LOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure object always
the <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24047	24136	
==>te( type::operator::nullary->new("int") );
	is($type->stringify, "∀α. α → int", "pre <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2119	2263	
==>>dir, to => $tmpdir ) 
#             or error( "Could not copy sources to '$tmpdir'" ), return;
#             
#         ### toss out the meta di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3071	3192	
==>ne_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3549	3670	
==>ne_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5069	5166	
==>ny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5069	5166	
==>ny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file, a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4317	4447	
==>\n}");
	return $symbol . "()";
}

sub define_val {
	my $self = shift;
	my ($node, $symbol, $body, $type) = @_;
	return $body;
}

su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27165	27277	
==>self->SUPER::init();

    # now add your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $pars <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/state2.pl	25	126	
==>endung von state
sub singleton {
	state $var = new MeineKlasse;
	# $var wird nur einmal erzeugt
	retur <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3542	3635	
==>ETE
## ----------------------------------------------------------------------------

# Utility <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5444	5537	
==>ETE
## ----------------------------------------------------------------------------

# Utility <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	609	741	
==>thod = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	609	741	
==>thod = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Con <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31067	31206	
==>dispatcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	538	634	
==>es. jibs/ if
not specified.

=item index

Path to the index directory. default: $root/dists

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18110	18210	
==>level visible in the Rosetta Native
Interface, if at all.  To account for situations where multiple D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18110	18210	
==>level visible in the Rosetta Native
Interface, if at all.  To account for situations where multiple D <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2483	2579	
==>$q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2483	2579	
==>$q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion of a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12917	13030	
==>meric => sub { "". $_[0] },
      scalar_numeric     => sub { "". ${$_[0]} },
      scalar_non_numeric => sub { "" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3960	4064	
==>ck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3960	4064	
==>ck $.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	647	766	
==>bit     }

# methods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        | <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9153	9277	
==>ad_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method ge <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9153	9277	
==>ad_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	471	566	
==>e-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	471	566	
==>e-Control Connection Date Pragma Trailer Transfer-Encoding Upgrade
 Via Warning
>;

my @request_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5012	5152	
==>>type->to_native;                    
        return bit->new(0) 
            if $left->fetch($i)->equal_to($right->fetch($i)) != bit->new(1) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3746	3838	
==>n::OnPerl5::X1::Result->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2008	2099	
==>al AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. Y <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2008	2099	
==>al AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/>. Y <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16973	17109	
==>ot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _create_fmts($failedtests) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6245	6366	
==>$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6257	6378	
==>$match )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	58	153	
==>ee classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	58	153	
==>ee classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27485	27587	
==>es of the new attributes, and
the values provide values applied to each tuple.  The new Relation has al <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32037	32139	
==>es of the new attributes, and
the values provide values applied to each tuple.  The new Relation has al <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26299	26409	
==>quired, the copyright holders of Rosetta would
appreciate being informed any time you create a modified version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26299	26409	
==>quired, the copyright holders of Rosetta would
appreciate being informed any time you create a modified version <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1679	1841	
==>nktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2 <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1679	1841	
==>nktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel2abs($Bin)     if $Bin;
        $RealBin = rel2 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	593	705	
==>lf->{dups}->insert($orig);
			return;
		} else {
			if (defined($orig) and not(Scalar::Util::blessed($struct) and <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	546	642	
==>nge
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08- <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	546	642	
==>nge
* Lowercase methods fetch(), store()
* Removed redundant methods next(), previous()

2005-08- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10635	10808	
==>as Str  $.diagnostic;
      has Str  $.description;
  
      submethod BUILD (
          $.description,
          $.passed,
          ?$.number     =     0,
          ?$.diag <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9013	9130	
==>arams->{name});
    my $digest = $stub->digest;

    Prim->new(
        equals => $digest,
        body => $params->{b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2727	2848	
==>es;
	}
	
	sub new {
		my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $node = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21497	21593	
==>ng so, found that the "too many branches" error wasn't being raised
until the second pass.  Figur <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22017	22126	
==>ords {  # see 12.11
      <'switch'> <'('> <Expression> <')'> <CaseBlock>
}
rule CaseBlock :words {  # see 12. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14282	14373	
==>>
    | <LeftHandSideExpression><no_LineTerminator_here><'++'>
    | <LeftHandSideExpression <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17850	18021	
==>st considered ok?
              actual_ok => did it literally say 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17291	17397	
==>_ng(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2808	2921	
==>][1] );
    }	
    elsif $tree[0] eq '"PVal"' | '"PInt"' | '"PLit"' {
        $ret = traverse_ast ( $tree[1][0][1] <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21578	21685	
==>y %space_from_sigil;
my %sigil_from_space;
BEGIN{
%space_from_sigil = ( '$' => 'scalar', '@' => 'array', '%' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2503	2615	
==>ontent-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2503	2615	
==>ontent-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # XXX -- correct?
  }

  return $c;
}

# XXX Str wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12436	12536	
==>or

Use the errmsg() and errnum() methods to get the error information.

To see if an error is a part <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15678	15766	
==>arp::carp("p6_perl6_objects_from_whatever called on $_[0]"); undef };
my %as_p6obj_handle <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5277	5417	
==>3),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5277	5417	
==>3),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => chr(928 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2341	2455	
==>f defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2341	2455	
==>f defined( %param<end> )    { $end =   %param<end> };
        if defined( %param<before> ) { $end =   %param<before <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1658	1770	
==>t {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11668	11815	
==>.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11668	11815	
==>.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	734	912	
==>s and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section h <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	734	912	
==>s and empty lines
                # Workaround for next
                if ( $line ~~ rx:perl5/^\s*(?:\#|\;|$)/ ) { }
                else {
                    # Handle section h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8510	8602	
==>r::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2335	2427	
==>r::Perl6->require(@_) };
push @statements, sub { Grammar::Perl6->use_rule(@_) };
push @statem <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	739	840	
==>r is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::T <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	739	840	
==>r is export(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	6	122	
==>/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2ti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	6	122	
==>/bin/pugs
use v6;

module HTTP::Date {
    sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2ti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2322	2464	
==>_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2322	2464	
==>_input = =$*IN;

        # user simply hits return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29047	29228	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29326	29507	
==>rammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19538	19639	
==>date is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl external fil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19538	19639	
==>date is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl external fil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1518	1663	
==>code);
            warn $@ if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	179	299	
==>sub val { ${ $_[0] } }

	sub str { "${ $_[0] }" }

	sub fmap {
		my $self = shift;
		my $f = shift;
		my $res = (ref $sel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1552	1693	
==>nctional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1552	1693	
==>nctional 
{
    # TODO - optimize; invert loop order, since the new span is usually "after"
    my @tmp;
    my @res;
    my @a = *@.spans, *$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	595	740	
==>if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	595	740	
==>if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub debug_recv(Str $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7273	7411	
==>hod server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7273	7411	
==>hod server ($self: )                    is rw { $self.header("Server") }

method from ($self: )                      is rw { $self.header(" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	750	999	
==>ommand.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	750	999	
==>ommand.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) return <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	956	1091	
==>r   => File::Basename::dirname($^X),
        size        => 51928,
        run         => 'Nmake15.exe /o > nul',
        check_for   => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	827	936	
==>r => File::Basename::dirname($^X),
		size      => 51928,
		run       => 'Nmake15.exe /o > nul',
		check_for => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1024	1138	
==>h = $rpc_token->match($str)   for 1..40},
        P6_Regex   => sub{ $match = $rpc_regex->match($str)   for 1..40} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37320	37433	
==>cks whether or not it has already been
loaded, returning true if so and false if not.

=item C<load_template_modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37320	37433	
==>cks whether or not it has already been
loaded, returning true if so and false if not.

=item C<load_template_modul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5296	5422	
==>tent;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5296	5422	
==>tent;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32567	32661	
==>r configuration, its
main purpose is to convert Message objects on demand into user-readable
me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32567	32661	
==>r configuration, its
main purpose is to convert Message objects on demand into user-readable
me <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4395	4515	
==>art` or `end` values belong to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For exampl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4395	4515	
==>art` or `end` values belong to the span ("closed") or not ("open").

- size()

Return the "size" of the span.

For exampl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11112	11207	
==>?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_co <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11112	11207	
==>?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child_co <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1951	2056	
==>ch, arity => 1 );
  my @nameSplit = split /:/, $name;
  #print "@nameSplit ", length @nameSplit, " ", $#na <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13158	13257	
==>et1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> w <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13158	13257	
==>et1 ∩ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1970	2074	
==>er) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1970	2074	
==>er) returns Bool {
    return (($self.size == $other.size) &&
            ($self.includes($other.members) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18003	18113	
==>f the interaction is via global variables.  A lot of it uses a
regexp struct, which gets attached to the op tre <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2362	2472	
==>f the interaction is via global variables.  A lot of it uses a
regexp struct, which gets attached to the op tre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16050	16187	
==>,

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16050	16187	
==>,

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6763	6855	
==>ent<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6763	6855	
==>ent<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<cha <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5537	5656	
==>1
  term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target, pos, 1
    if $S0 != $S2 goto <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	922	1019	
==>d1 METHODS

=head2 $pkg = JIB::Package->new( file => /path/to/jib | meta => META_OBJ );

Returns a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20404	20534	
==>ub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20683	20813	
==>ub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dum <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19892	19980	
==>::Internals::string_as_number(16,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26607	26693	
==>er->pass_as_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_metho <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11568	11743	
==>ext));
      
      my $link = {};
      $link->{linkfile} = $linkfile;
      $link->{linkhead} = $linkhead;
      $link->{whole}    = $whole;
      $link->{relfile}  = $relati <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9311	9428	
==>4
      <!before <LineTerminator>> <-[\'\\]> #SourceCharacter but not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeS <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	363	485	
==>.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	363	485	
==>.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8047	8222	
==>::Dumper::Terse = 1;
            my $res = 
    
                "*{'$prefix:<$id>'} = sub {\n" .
                "    my \$rule = concat( \n" .
                "        consta <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	260	403	
==>App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
			App(
				Sym('&infix:<+>'),
				Val(42),
				Val(42),
			),
		),
	),
);

my $t1 = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7221	7331	
==>g.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7221	7331	
==>g.

=item C<_tail>

    C<method _tail() returns Array of byte {...}>

Called as part of C<finish>; ciphers and <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2231	2351	
==>::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2231	2351	
==>::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20053	20251	
==>($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40513	40711	
==>($e->get('$_')->to_native), 
                              $e->get('%params')->fetch($e->get('$_'))
                          );
                    })
                );
                return $nil: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2017	2131	
==>ature like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3609	3723	
==>ature like ->features by passing in the second
        # argument as a reference.  Accomodate for that.
        $mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23418	23507	
==>herwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
exter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23418	23507	
==>herwise have
non-trivial external dependencies; Locale::KeyedText has no non-trivial
exter <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24940	25046	
==>ee->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → β →  <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25381	25478	
==>ee->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α → <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3092	3236	
==>cessful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3092	3236	
==>cessful login
  %handler<001> = [-> $event {
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4004	4123	
==>s Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4004	4123	
==>s Node has, if any.
    has Rosetta::Model::Node     @!child_nodes;
    # Array of Rosetta::Model::Node
    # List of th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6198	6336	
==>ATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recrea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6198	6336	
==>ATA section, or else the DATA file
                # handle becomes invalid.

                # XXX - Maybe there is a way to simply recrea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10352	10453	
==>rammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] negate( sub{ $name(\@_) } )\n";
}
sub node:: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	234	331	
==>ing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	234	331	
==>ing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C<$a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	615	761	
==>_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm T <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	615	761	
==>_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3329	3434	
==>$self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $self.intersection <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3329	3434	
==>$self: Set::Infinite::Functional $span ) returns Set::Infinite::Functional {
    return $self.intersection <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5494	5600	
==>which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5494	5600	
==>which explicitly zeroizing the 
cipher object would be desirable.

Note that calling any methods on a zeroe <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11883	12011	
==>x}+1..@$details) {
                    next unless ref $details->[$overrun-1];
                    push @{$test{failed}}, $overru <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	346	445	
==>$seen{"$c[1]|$c[2]|$_[0]"} > 3 ) {
        die "Caught an potential prompt infinite loop ($c[1]|$c[2 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	309	425	
==>acros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot cur <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	309	425	
==>acros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2251	2431	
==>(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2498	2678	
==>(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capturing_group {
        \( <rule> \)
            
        { return { capturing_group => $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4045	4212	
==>{
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package that <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4509	4676	
==>{
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every package that <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6644	6746	
==>handle blocks of text which seem to still be inside a list?

Basically the item body, much like this te <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6644	6746	
==>handle blocks of text which seem to still be inside a list?

Basically the item body, much like this te <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14378	14471	
==>\\N{',AName,'}\n")'],Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - warn on failure
  assert(ca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	624	743	
==>oment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calling send for $label";
    
    $label = str- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1935	2108	
==>nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1935	2108	
==>nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3264	3404	
==>>( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3159	3296	
==>>( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10425	10530	
==>ome time after the input has been set, and could potentially
never be performed at all.  They validate eve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10425	10530	
==>ome time after the input has been set, and could potentially
never be performed at all.  They validate eve <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	926	1090	
==>/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.requir <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	926	1090	
==>/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.requir <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	598	778	
==>( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $archive -C $my_tmp_dir -xz] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	880	1048	
==>( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3982	4092	
==>$flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4199	4309	
==>$flags = $_[1];
    die "compile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5878	5987	
==>die "interpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5866	5975	
==>die "interpolation of $name not implemented"
        unless defined $value;

    return call_constant( $value, <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1938	2083	
==>tion {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1938	2083	
==>tion {
            # XXX doesn't work because of a pugsbug ATM
            for sort keys %self -> $section {
                next if $_ eq "_err_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	760	874	
==>hift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	760	874	
==>hift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq \''.$const.'\' ) 
    ? d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7260	7458	
==>es this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7724	7922	
==>es this dep already?
                    for my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15892	16014	
==>ompile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2285	2407	
==>ompile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = shift;
    my $symbol = shift;

    return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2552	2646	
==>, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2552	2646	
==>, because this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28060	28154	
==><HARNESS_PERL_SWITCHES>

Its value will be prepended to the switches used to invoke perl on
eac <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	352	468	
==>or LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
ha <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	352	468	
==>or LATER

# parsefail :(

sub ∅ returns Set {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
ha <==
2	/Users/nnunley/pugs/util/fixauthors.pl	339	464	
==>)$/;
  next unless /\((.*?)\)/;
  
  chomp;
  if ($1) {
    $_ .= "   " . cpanid2realname($1) . "\n";
  } else {
    $_ .= "\n <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11644	11763	
==>nternals::runInteractiveCommand($command);
        close $err;
        close  ($r ?? $in !! $out);
        ($r ?? $out ! <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1615	1730	
==>ILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1615	1730	
==>ILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_prev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16464	16583	
==>strial strength) and has fully integrated database functionality;
this language, which satisfies TTM's definition of a " <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16464	16583	
==>strial strength) and has fully integrated database functionality;
this language, which satisfies TTM's definition of a " <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2583	2724	
==>print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.pri <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2583	2724	
==>print("=back\n\n")
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $fh.pri <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7451	7547	
==>ML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store results in FILE [default: $Config{"outp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4557	4642	
==>});

$::TestBuilder->FETCH('::Test')->STORE('::TODO' => class 'TestBuilder::Test::TODO <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3418	3515	
==>hc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3418	3515	
==>hc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3944	4105	
==>s}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( ke <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5168	5329	
==>s}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( ke <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	656	779	
==>, exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3579	3689	
==>ode>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\&$grammar1/;
    return "    $op $name, $code;\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1947	2076	
==>se_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1947	2076	
==>se_params($content);
            }
        } elsif ($.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13001	13162	
==>9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13001	13162	
==>9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12537	12688	
==>h;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12537	12688	
==>h;
        
        if ($uri.can('epath')) {
            $path = $uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16506	16650	
==>")) {
            $builtin = $self->reduce($builtin);
        }
        $val->set($builtin);
    }

    return $val;
}

sub reduce_val {
    my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4216	4349	
==>).

=back


=head2 Functions

Test::Harness currently only has one function, here it is.

=over 4

=item B<runtests>

  my $allok = ru <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5949	6084	
==>->{'%:methods'}};
        },                
    }
);

ok(!$Class->has_method('resolve'), '... we do not have the resolve method');

# B <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4622	4706	
==>~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4622	4706	
==>~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3705	3973	
==>on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3705	3973	
==>on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Loca <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1496	1613	
==>y ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a co <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1496	1613	
==>y ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	32	130	
==>rcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	32	130	
==>rcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Cipher::Arcfour.encipher( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21170	21269	
==>value of C<undef> to header() or any of the convenience
methods, does not delete that field.  It oug <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21170	21269	
==>value of C<undef> to header() or any of the convenience
methods, does not delete that field.  It oug <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	500	610	
==>available!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	467	577	
==>available!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://([^/]+) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3970	4112	
==>.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3970	4112	
==>.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value: <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2707	2812	
==>X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, Th <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2707	2812	
==>X", ord) } split(//, $_[0]);
    return qq["$q"];
}

1;

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, Th <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	711	836	
==>rary (basically a set of simple
# macros) to make writing this kind of application easy(er).

# Bootstrap to a new, simpler, a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5483	5577	
==>tart(R), ")".
p5_elemental(standalone(R))       --> "(?>",  !, p5_start(R), ")".
p5_elemental(l <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	71	170	
==>as Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	71	170	
==>as Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5179	5386	
==>else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # po <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5179	5386	
==>else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # po <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	445	550	
==>split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	445	550	
==>split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher($self: Array $data <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14839	14937	
==>4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14839	14937	
==>4le")> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2024	2136	
==>ilter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inherit <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2024	2136	
==>ilter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up inherit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9508	9638	
==>ame    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9508	9638	
==>ame    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	152	272	
==>f = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	152	272	
==>f = shift;
    my $match = shift;
    # die "not a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$mat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16356	16521	
==>r_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            S <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20782	20947	
==>r_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            S <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2106	2213	
==>h($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2106	2213	
==>h($path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6086	6182	
==>e necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Strea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6086	6182	
==>e necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Cipher::Strea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15468	15579	
==>ive Nodes it can have, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Ha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15468	15579	
==>ive Nodes it can have, as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Ha <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2920	3203	
==>?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<v <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2920	3203	
==>?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16829	16926	
==>nment variables, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't ac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16829	16926	
==>nment variables, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't ac <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8301	8394	
==>d_element ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8301	8394	
==>d_element ('verbatim')>

This event closes a verbatim section.

=item I<start_element ('line_i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2299	2438	
==>t
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rul <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2299	2438	
==>t
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rul <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1864	1983	
==>g>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1864	1983	
==>g>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0],2,0x <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12375	12475	
==>he header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12375	12475	
==>he header field name ($field) is not case sensitive and '_'
can be used as a replacement for '-'.

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9109	9220	
==>ect always

then there's absolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8810	8918	
==>ect always
then there's absolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31924	32026	
==>ants it shown to the user, the main program would check each
of the 3 Template module sets in turn, loo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31924	32026	
==>ants it shown to the user, the main program would check each
of the 3 Template module sets in turn, loo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6146	6265	
==>eturn $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6146	6265	
==>eturn $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	45	155	
==>ib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/../P <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	973	1101	
==>@paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation o <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	973	1101	
==>@paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which simplifies the 
manipulation o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5850	5968	
==>Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/ht <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5850	5968	
==>Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/ht <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17410	17507	
==>Module::Compile controls the compilation process, calling each compiler
at the right time with the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17410	17507	
==>Module::Compile controls the compilation process, calling each compiler
at the right time with the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4750	4846	
==>mpiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4890	4986	
==>mpiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12202	12344	
==>L5LIB {
    my($self) = shift;

    return unless $self->{_is_vms};

    if (defined $self->{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30044	30141	
==>bject, just itself.  This is used primarily when
inspecting the parsing of the regex.

=item my $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10490	10618	
==>push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is the first branch
    else {
      $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27074	27196	
==>aw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->raw;
  }

  sub walk {
    my ($se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1648	1744	
==>eaders) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1648	1744	
==>eaders) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method header ($self: Str $fie <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	833	932	
==>piler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	833	932	
==>piler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22197	22294	
==>password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "..." <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22197	22294	
==>password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot.privmsg(to =E<gt> "..." <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1433	1604	
==>ned( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1433	1604	
==>ned( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( objec <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	38	133	
==>----------------------------------------------------------------------
## attributes

has $.node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	38	133	
==>----------------------------------------------------------------------
## attributes

has $.node <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4874	5019	
==>t->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

1;

# Local variabl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1671	1801	
==>t->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re;
    }
}    

# Lo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5248	5398	
==>look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in what <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5712	5862	
==>look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a match, it found it in what <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1299	1397	
==>ut type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1299	1397	
==>ut type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5327	5433	
==>eturn $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16777	16878	
==>ees fit.  It
also does not make direct use of environment variables, which can aid in
portability.

Pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16777	16878	
==>ees fit.  It
also does not make direct use of environment variables, which can aid in
portability.

Pr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3895	3992	
==>> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) re <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3895	3992	
==>> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix:<%#> (@a, $b) re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8777	8890	
==>rt_arg_str( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8777	8890	
==>rt_arg_str( 'load_template_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this ' <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3651	3759	
==>ks the actual algorithm description. See links or read
the source (there are about 10 lines of sparse perl in <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3651	3759	
==>ks the actual algorithm description. See links or read
the source (there are about 10 lines of sparse perl in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9023	9158	
==>_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10500	10635	
==>_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] };
        @list       = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	498	621	
==>error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	498	621	
==>error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3004	3114	
==>ue.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending applicati <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3004	3114	
==>ue.

=item fill()

Fills the bucket.

=back

=head1 EXAMPLES

Think a rate limiter for a mail sending applicati <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13310	13406	
==>` named parameter for all these  functions.

The `:depends("string")` parameter to most of the fu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13368	13464	
==>` named parameter for all these  functions.

The `:depends("string")` parameter to most of the fu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	897	1012	
==>ie::Emitter::Pretty->new->string($result); # works for all nodes


    # perl equivalent

    (sub {
        my $x = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10550	10670	
==>ect);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10550	10670	
==>ect);
  my $seen = set(@to_do);

  while my $item = @to_do.shift {

      # ... do something with $item ...

      if ($i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	951	1080	
==>d_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.su <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	951	1080	
==>d_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.su <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	985	1106	
==>ator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work so good on 5.5.4.
    return scalar <$fh>;
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15180	15275	
==>parties) implement.  This interface is rigorously defined, such that there
should be no ambiguit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15180	15275	
==>parties) implement.  This interface is rigorously defined, such that there
should be no ambiguit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26224	26372	
==>less {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'flags',
      type => 'flags',
      on => $on,
      off => $off,
      ze <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30209	30313	
==>es that correspond
to Message Variables, which will be substituted at run-time before the text
is shown t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30209	30313	
==>es that correspond
to Message Variables, which will be substituted at run-time before the text
is shown t <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4259	4378	
==>e
skeleton in util/smoker-example. Alternatively, say "--anonymous"
on the command line to withold your identity (and th <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11891	12001	
==>h;
      $output .= $text;
      my $syn_path = catfile($output_dir, "Synopsis", "$linkfile.html");
      $outp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23629	23728	
==>ny commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module wo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23629	23728	
==>ny commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this module wo <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4968	5216	
==>en);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if th <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4968	5216	
==>en);
                        # and start an event ..
                        %events<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if th <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	26	108	
==>l/Scripts.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Install/Scripts.pm"
pack <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4925	5053	
==>.
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5147	5275	
==>.
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4161	4266	
==>}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infin <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4161	4266	
==>}  

method is_infinite () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1071	1183	
==>tch (not longest). 
# note: the list in @$nodes can be modified at runtime
sub alternation {
    my $nodes = s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10800	10941	
==>ons);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10800	10941	
==>ons);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2576	2680	
==>rse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2576	2680	
==>rse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	161	301	
==>er;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq ' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	161	301	
==>er;

    no strict 'refs';

    push @{"$pkg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3321	3481	
==>o file associated with this object -- " .
                  "can not extract meta object" );
            return;
        }
        
        ### extract to a temp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9184	9285	
==><This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9184	9285	
==><This documentation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11841	11943	
==>nted, so you will have to wait
a little while. Until then, you can just write your own functions like t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11899	12001	
==>nted, so you will have to wait
a little while. Until then, you can just write your own functions like t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13191	13289	
==>ate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method retu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13191	13289	
==>ate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This method retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6485	6614	
==>[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6485	6614	
==>[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10234	10396	
==>'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statem <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10234	10396	
==>'insert_stmt', { 'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10247	10357	
==>ro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CON <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10247	10357	
==>ro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy list created from coroutines or subs.

= CON <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36258	36359	
==>esulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by tra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36258	36359	
==>esulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by tra <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3168	3266	
==>_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3226	3324	
==>_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $ref is rw, Str $ex <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5860	5967	
==>alue::Null $v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v)   { ?$v :: JSX::true :: +0 }
multi sub <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1852	1978	
==>hile (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0] <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1852	1978	
==>hile (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(index(0         ,0,@octect[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9036	9167	
==>y_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifie <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9032	9163	
==>y_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$quantifie <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3565	3668	
==>y %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} keys %$args;
    if ($self->admin->p <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2608	2708	
==>y %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} keys %$args;

    if ($self->admin->p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3580	3704	
==>tart == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3580	3704	
==>tart == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	562	686	
==>nst = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	562	686	
==>nst = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)"
}

# implement <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2926	3049	
==>l::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Boo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2926	3049	
==>l::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    return Boo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	666	765	
==>n it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	666	765	
==>n it is triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E< <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	12	117	
==>.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $RE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	12	117	
==>.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $RE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7397	7539	
==>_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7590	7732	
==>_group'} = 
       ruleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	36	146	
==>_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_ <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	36	146	
==>_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	289	440	
==>YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->config;
    my %h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	287	438	
==>YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self->config;
    my %h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2221	2313	
==>urn unless $_[0];

    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2133	2224	
==>urn unless $_[0];
    ($extracted,$remainder) = Text::Balanced::extract_delimited( $_[0], "' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2805	2913	
==>when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.for <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2805	2913	
==>when ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.for <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6126	6230	
==>rence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6126	6230	
==>rence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7336	7470	
==>);
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7336	7470	
==>);
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{capture} = $head;   # XXX -- array ref n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	702	807	
==>_END__

=pod

=head1 NAME

Blondie::Prelude::IO - IO related builtins

=head1 SYNOPSIS

    use Blondie::P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3035	3175	
==>}

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2918	3050	
==>}
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6432	6577	
==>and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6432	6577	
==>and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cookie compat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	830	950	
==>class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 66 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	830	950	
==>class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 66 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	543	671	
==>where { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	543	671	
==>where { 
    my $const = shift;
    "( ( \$s =~ m/\Q$const\E/s ) 
    ? do { \$pos = pos \$s; push \@match, $const } 
    : 0 
)" <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2747	2844	
==>oogle.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2747	2844	
==>oogle.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2165	2291	
==>small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2165	2291	
==>small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   => 'à',  # small a, grave a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1924	2030	
==>e($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1924	2030	
==>e($module, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7860	7958	
==>-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null() ] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7593	7688	
==>-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null() ] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	251	378	
==>tors.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	251	378	
==>tors.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    does Parse::Rule <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9374	9508	
==>on_method(), 
   '$iFoo::test_iFoo_singleton_method',
   '... got the right return value from $iFoo singleton method');
   
$iFoo->add_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4614	4728	
==>urns true if everything was ok.  Otherwise it will C<die()> with
one of the messages in the DIAGNOSTICS section.

= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10428	10549	
==>*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10428	10549	
==>*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./set_cookie(*@_); } });
    }
    
    method scan (Code $callback) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8156	8283	
==>ned $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when I <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8156	8283	
==>ned $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when I <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5325	5423	
==>o clear its internal state as completely as possible. 
This is automatically done as part of C<fini <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5325	5423	
==>o clear its internal state as completely as possible. 
This is automatically done as part of C<fini <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4516	4653	
==>@modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4516	4653	
==>@modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modifier_s <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2840	2981	
==>"open: $target: $!";

    {
        my $prelude = shift @{ $Config{precompile} };
        warn "*** warning: Prelude.pm should probably be the <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	884	1002	
==>al Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { return $x ** <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16495	16638	
==>2 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset a <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20921	21064	
==>2 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_substr;    /* utf8 variant */
        };

min_offset a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31552	31651	
==>, another library likewise, and a program which uses both libraries
could have yet another set for i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31552	31651	
==>, another library likewise, and a program which uses both libraries
could have yet another set for i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8841	8991	
==>variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9034	9184	
==>variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4290	4383	
==>y()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomor <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4290	4383	
==>y()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorrow()`

Synonym for `Date.new('tomor <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15656	15783	
==>b reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2053	2180	
==>b reduce_sym {
    my $self = shift;
    my $node = shift;
    my $symbol = $node->val;

    # if the symbol is a lexical then i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9228	9325	
==>ERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating object <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9228	9325	
==>ERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating object <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2602	2719	
==>> $libs->{prefix},
        SITEPREFIX      => $libs->{siteprefix},
    );
}

sub pugs_fix_makefile {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12584	12694	
==>uch as beats per minute, 
wags per second, or holidays per month.

It is also used when the objects represent " <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12584	12694	
==>uch as beats per minute, 
wags per second, or holidays per month.

It is also used when the objects represent " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	990	1112	
==>rrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	990	1112	
==>rrayRef = Pugs::Compiler::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $< <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15726	15817	
==>nment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15784	15875	
==>nment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5546	5665	
==>Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retva <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5546	5665	
==>Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is export {
#    my @retva <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3562	3660	
==>ler inherits L<Blondie::Reducer> in order to traverse the node
structure. The only dirty part is C< <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	687	792	
==>e>.

This means;

=over

=item *

You can construct new classes which are of its type.

=item *

It serves <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8246	8477	
==>// yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8246	8477	
==>// yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    method keys ( $a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7671	7809	
==>ES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7671	7809	
==>ES]} == 0) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $conten <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1154	1244	
==>Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1374	1464	
==>Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(< <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4010	4218	
==>.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7487	7695	
==>.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15569	15707	
==>hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!que <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15569	15707	
==>hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my @q = splice @!que <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23330	23438	
==>erent Relation-implementing classes are used together, and
each doesn't know the others' internals.  Implemen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10354	10465	
==>e_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Par <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10354	10465	
==>e_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v req PGE/Par <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14128	14238	
==>cision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It wo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14128	14238	
==>cision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It wo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3164	3262	
==>classing is overrated, yeah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3051	3147	
==>classing is overrated, yeah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18376	18486	
==>n", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18376	18486	
==>n", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<r <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	405	509	
==>ap';
use Inline C=><<'C';
#include "parrot/parrot.h"
int get_int(Parrot_Interp i,PMC *pmc) {
	return VTAB <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2050	2152	
==>UNTIME} eq 'PERL5' or $ENV{PUGS_RUNTIME} eq 'JSPERL5'));

sub make { return `$Config{make} @_` };
my $d <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5613	5699	
==>atcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5613	5699	
==>atcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4805	4922	
==>$self = $class->SUPER::new;
	$self->{name} = shift;
	$self->{param} = shift;

	$self;
}

sub splat {
	my $self = shift <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2602	2706	
==>0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config{'archive_control'}  = [ 'c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1709	1841	
==>pture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1849	1981	
==>pture}, $self );
    }
    else {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::emit( 
            $self->{grammar}, $self->{a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7912	8012	
==>SIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7912	8012	
==>SIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port of the Perl 5 File::Spec: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8406	8511	
==>( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8406	8511	
==>( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Without any parameters, returns an empty span <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4280	4377	
==>s, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the right met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6182	6279	
==>s, '... $Object class slot is $Class');
is($Object->name, 'Object', '... $Object got the right met <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24787	24908	
==>rm {  # see 15.10.1
      <Assertion>
    | <Atom>
    | <Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11226	11391	
==>for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11226	11391	
==>for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11859	12010	
==>line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^= <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11859	12010	
==>line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17338	17437	
==>the Perl interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17338	17437	
==>the Perl interpreter
itself, which provides a virtual machine in which Perl code runs).

The classes <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5151	5251	
==>a config file, and returns a boolean value
of success or failure

=item data

The C<data> method retu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5151	5251	
==>a config file, and returns a boolean value
of success or failure

=item data

The C<data> method retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11676	11819	
==>ie_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11676	11819	
==>ie_with_msg( 'LKT_ARG_ARY_ELEM_EMP_STR',
                { 'METH' => $meth, 'ARG' => $arg } )
            if $val_elem eq $EMPTY_STR;
    }
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	67	199	
==>(Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	67	199	
==>(Str $buffer is rw) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	386	484	
==>hey match
# asking the notifications to dispatch themselves

# the code tries to provide reusable c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7524	7649	
==>ringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7524	7649	
==>ringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $spa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2346	2456	
==>ol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2346	2456	
==>ol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_message) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2298	2475	
==>en => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2298	2475	
==>en => Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     sta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4260	4407	
==>=> '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4260	4407	
==>=> '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => ' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5927	6036	
==>_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5927	6036	
==>_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : c <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1161	1276	
==>t '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1161	1276	
==>t '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File::Spec.cwd(), $script )
          unless file_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	281	383	
==>.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	281	383	
==>.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1351	1451	
==>nctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::Lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1351	1451	
==>nctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Value::Lis <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13174	13281	
==>FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This met <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13174	13281	
==>FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep:{...}`

This met <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1378	1581	
==>$cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1378	1581	
==>$cnt: $line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17425	17541	
==>or some practical examples of Locale::KeyedText in use, see the /examples
directory of this distribution.  Or, see my <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17425	17541	
==>or some practical examples of Locale::KeyedText in use, see the /examples
directory of this distribution.  Or, see my <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1083	1212	
==>he tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1083	1212	
==>he tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we have found it <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3217	3331	
==>');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f" <==
2	/Users/nnunley/pugs/util/package-osx.pl	7381	7478	
==>.3pm
        /usr/local/man/man3/Perl6::Spec::Concurrency.3
        /usr/local/man/man3/Perl6::Spe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4283	4396	
==>');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1409	1522	
==>');
  });

  $self->add_handler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	394	513	
==>is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ arg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1252	1371	
==>is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite because]
           ~ q[ arg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24143	24258	
==>hen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20564	20679	
==>hen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8101	8255	
==>tr target, $I0, $I1
    mob["value"] = $S0
    inc pos
  end:
    mpos = pos
    .return (mob)
.end


.sub "parse_closure"
    .param pmc mob
    .local pm <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4283	4421	
==>$v{0} --> %v{0};

    $#v   --> @v.last_index;

    $r = \@v --> $r = @v;
    $r = \%v --> $r = %v;
    
    $r->[0]  --> $r[0];
    $r->{0 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2398	2518	
==>dren -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2398	2518	
==>dren -> $child {
        $self.add_child($child);
    }
    $self;
}

## ------------------------------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1147	1290	
==>\$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1147	1290	
==>\$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2] <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2109	2220	
==>HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Has <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2109	2220	
==>HTTP-Status: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Has <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	218	323	
==>yt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls will need to b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	209	313	
==>yt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls will need to b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4799	4897	
==>on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5049	5147	
==>on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1929	2071	
==>is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1929	2071	
==>is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1614	1747	
==>ame) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1614	1747	
==>ame) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clear () {
        %!params.d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	875	988	
==>the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	875	988	
==>the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::I <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1872	1965	
==>ules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1961	2054	
==>ules.

=item * L<Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	483	601	
==>st infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2011	2129	
==>st infini parce que]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10373	10484	
==>lf->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(qua <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10002	10113	
==>lf->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(qua <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19888	19983	
==>res about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19888	19983	
==>res about is that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::En <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	462	601	
==>ad1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (serv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	462	601	
==>ad1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    print header;
    
    if (serv <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17704	17846	
==>orting the result of 
                    each test looks like this:

    $results{details}[$test_num - 1] = 
            { ok        => is the <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4931	5056	
==>pad<"pNode"> );
    }
    elsif $tree[0] eq '"PAssign"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# key <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36135	36235	
==>e are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Members o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36135	36235	
==>e are adjacent
to each other in the output; for example, with Sets of ['MyApp','MyLib']
and Members o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3118	3221	
==>X does add_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be nee <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3118	3221	
==>X does add_content() need to create references, etc. like the P5 version?
# I figure it shouldn't be nee <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8958	9140	
==>_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8958	9140	
==>_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %ha <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15736	15851	
==>e->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2133	2248	
==>e->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18036	18137	
==>:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its desc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18036	18137	
==>:

=over

=item C<export_as_hash()>

This method returns a deep copy of this Node plus all of its desc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5329	5441	
==>, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm)

  /lib/Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5144	5251	
==>, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like CPAN/Config.pm)
  /lib/Pug <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23348	23444	
==>han Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23348	23444	
==>han Perl
files.  Or alternately they have a compiled C component or otherwise have
non-trivial ex <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3989	4089	
==>) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3989	4089	
==>) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - A Role of u <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	19	138	
==>eds a Perl6 regex pattern reference grammar.
Here is a place to accumulate one.

Resources:
  http://search.cpan.org/dis <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29869	29958	
==>ement Straps callbacks.  (experimentally implemented)

Straps->analyze_file() not taint cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13826	13949	
==>d of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13820	13943	
==>d of [^a] in perl5re

	   return call_perl5($cmd, $_[1]);
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2189	2295	
==>output ;# = svn("up") or die "Could not update pugs tree: $!";
system($^X, qw(-w ./util/yaml_harness.pl),@y <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4642	4758	
==>plement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4642	4758	
==>plement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7778	7907	
==>d =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7778	7907	
==>d =~ /!/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1456	1557	
==>eturn { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1456	1557	
==>eturn { expr => $/[0]() ,} }
) )->code;

# ----------

package statement;
use Pugs::Grammar::Base;
use <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7385	7486	
==>fer input data until they have an entire block, then cipher 
the block and return the new ciphertext ( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7385	7486	
==>fer input data until they have an entire block, then cipher 
the block and return the new ciphertext ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3614	3704	
==>assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3798	3888	
==>assertion)> <{code-returns-rule}>
 <<character-class>> <[character-class]>
 :flag :flag() : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1097	1236	
==>diate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1302	1441	
==>diate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	848	991	
==>param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos};
    $self->{p}        = delete $param->{p}    unl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3673	3778	
==>to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3673	3778	
==>to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1992	2238	
==>ass Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External package <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1992	2238	
==>ass Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External package <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16512	16620	
==>nd returned as a separate value if in
an array context.  If there is no such header field, then the empty
str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16512	16620	
==>nd returned as a separate value if in
an array context.  If there is no such header field, then the empty
str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1245	1349	
==>ipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1245	1349	
==>ipher), retrieving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27003	27129	
==>in your own module.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # insta <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	715	815	
==>(ExtUtils::MM_Unix->parse_version($file)) if -f $file;
    }

    $self->version or die << "END";
Can <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24342	24455	
==>n $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20763	20876	
==>n $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1852	2048	
==>n.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1852	2048	
==>n.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @fo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1279	1403	
==>Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1279	1403	
==>Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1910	2013	
==>die "bug - no callback" if !defined($callback);
  my $r_address;
  my $regexp_compile_hook = sub {
    $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2426	2561	
==>__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($cl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2426	2561	
==>__;
        return 1;
    }

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17770	17937	
==>lue',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17770	17937	
==>lue',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attribute <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12511	12852	
==>Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12511	12852	
==>Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Loca <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3100	3222	
==>n \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3100	3222	
==>n \%events;
}

multi sub pod2html (IO $fh) returns Hash is export {
    my %events = (
        # Elements
        start_ele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2115	2247	
==>,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2033	2158	
==>,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9845	9971	
==>,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9845	9971	
==>,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2636	2739	
==>nts.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expect <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2636	2739	
==>nts.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expect <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	219	344	
==>rict on
# use strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	64	183	
==>OP goodness

# something which does publisher can send events
# something which does subscriber can recieve them
# two k <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1259	1393	
==>/\(|\)|\'|[a-zA-Z0-9_:=!$%?@&]+/).each { |token|
            if token == '('
                new_arr = Array.new
                if !st <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2570	2691	
==>: use a real temp file?
sub emit_chunk {
    my($self) = @_;
    DumpFile("tests.$$.yml", $self->structure);
}

sub emit { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	204	319	
==>s it is executed, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.ba <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	204	319	
==>s it is executed, but the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.ba <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11789	11886	
==>: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or deco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11789	11886	
==>: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or deco <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9583	9674	
==>llary->new("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nullary->n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1006	1169	
==>s.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1006	1169	
==>s.kv -> $name, $key {
            my $val = %*ENV{$key};
            
            $!headers.header($name => $val) if $val.defined;
        }
        
        $.remo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2355	2488	
==>src, $self->config->build_dir ) )
#                 or error( "Could not remove metadir from '$tmpdir" ), return;
# 
#         ### cop <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2472	2595	
==>class = shift;
    my $self  = $class->new(@_);
    my $who   = $self->_caller;

    unless ( -f $self->{file} ) {
        r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2530	2647	
==>le - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2747	2864	
==>le - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new prelude <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5995	6191	
==>e($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5995	6191	
==>e($x);
                        return;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1459	1578	
==>}
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1459	1578	
==>}
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_path, Str $_base?) retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	899	1007	
==>{ast}{tail}'\n" 
        if $self->{ast}{tail} || $@;
    #print 'rule ast: ', do{use Data::Dumper; Dumper( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3568	3689	
==>::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3568	3689	
==>::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7994	8098	
==>abc123', :capture );



  # returns a Match object that has no capture (but the 'bool' field is still tru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7725	7827	
==>abc123', :capture );

  # returns a Match object that has no capture (but the 'bool' field is still tru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15347	15477	
==>op} eq '--' ) {
        return _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	235	377	
==>sed';

use base 'type';

sub new {
    my ($class, $env, $signature, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5806	5923	
==>hift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*u <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5806	5923	
==>hift () {
    self._shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*u <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1209	1304	
==>arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> al <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1209	1304	
==>arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<optional> al <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8689	8789	
==>ymbol} in " . Dumper(@_);
	
	unify($x->left, $y->left, @_);
	unify($x->right, $y->right, @_);
};

mul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4744	4853	
==>eam E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4994	5103	
==>eam E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you'd like to participate <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6234	6354	
==>t, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to E <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6234	6354	
==>t, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8881	8988	
==>oke this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # wil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8881	8988	
==>oke this 'require' in an eval string
    # because we need the bareword semantics, where 'require'
    # wil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	207	314	
==>ngs;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	207	314	
==>ngs;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtered
my $f <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2744	2853	
==>:Basic::sqrt($x);
 }
 multi Math::Basic::sqrt ( Num $x = CALLER::<$_> --> Num )
 {
     $x ** 0.5;
 }


packag <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3589	3688	
==>docs) {
    print "P6 design documents   : Won't generate cross-referenced P6 design documents\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	551	640	
==>arc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node) <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	551	640	
==>arc(Str $trigger,FA::DFA::Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3766	3887	
==>lass->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just retur <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3766	3887	
==>lass->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can't open the file, just retur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1508	1641	
==>r::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1508	1641	
==>r::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@array of 
                           # that type <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5972	6100	
==>onstant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5960	6088	
==>onstant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2125	2238	
==>de", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2125	2238	
==>de", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %re <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1101	1206	
==>e if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromat <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1101	1206	
==>e if they are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromat <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3134	3267	
==>+ $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3134	3267	
==>+ $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7577	7747	
==>}
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7577	7747	
==>}
            return $.current if $.current != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14088	14207	
==>nterface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14088	14207	
==>nterface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18789	18925	
==>ond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20147	20283	
==>ond) = splice @{ $ifthen->{data} }, 0, 2;
        $br->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14274	14373	
==>face defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14274	14373	
==>face defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11673	11766	
==>THOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.co <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11673	11766	
==>THOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.co <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	873	999	
==>sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	774	900	
==>sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31209	31313	
==>ither
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31209	31313	
==>ither
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy u <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11609	11731	
==>eturn $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object represent <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11609	11731	
==>eturn $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object represent <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9968	10119	
==>param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9968	10119	
==>param_list;
        my @param = split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2279	2392	
==>elete directory '$args->{dir}': $@] );
        return;
    }

    return 1;
}

=pod

=head2 JIB::Utils->_perl_vers <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	332	432	
==>r.

# It looks like the ("A feasibility and performance reality check")
# spike has succeeded.  The m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30967	31076	
==>.

=head1 COPYRIGHT

Copyright 2002-2005
by Michael G Schwern C<< <schwern at pobox.com> >>,
Andy Lester C<< < <==
2	/Users/nnunley/pugs/util/version_h.pl	2085	2185	
==>OUT, "> $version_h" or die $!;
  print OUT "#undef PUGS_SVN_REVISION\n";
  print OUT "#define PUGS_SV <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3824	3921	
==>AY|HASH|CODE|REF|GLOB|LVALUE)\z/;
    return 'perl5:$ref' if $ref ne 'Dispatchable';
    return $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7195	7336	
==>md =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7195	7336	
==>md =~ /::/ ) {
            # call method in fully qualified $package::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	672	768	
==>s triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	672	768	
==>s triggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3088	3181	
==>e_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3146	3239	
==>e_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5003	5112	
==>});

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1586	1695	
==>});

  $self->add_handler('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3528	3631	
==>y $union = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3528	3631	
==>y $union = $span0.union( $span1 );
    return $span0.compare( $union ) == 0;
}

method intersects ($self <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	182	286	
==>piler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() retu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	182	286	
==>piler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	755	890	
==>B::Meta->new_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11609	11818	
==>{ 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11609	11818	
==>{ 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8152	8276	
==>+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8152	8276	
==>+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return "$_[1] perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10475	10588	
==>my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10475	10588	
==>my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5876	5969	
==>--------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5876	5969	
==>--------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1597	1722	
==>od delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1597	1722	
==>od delete (Str $name) {
        return if !defined %!params{$name};
        %!params.delete($name);
    }
    
    method clea <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24349	24460	
==>'-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; die @args;}

sub p6_to_perl {
    my($x)=@_;
    return 'und <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7630	7727	
==>:join $delimiter, *@values;
}

# signature from S29draft.pod 8655.  In the List section.
multi Arr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7955	8081	
==>e
    $S0 = substr target, pos, 1
    if $S0 != "(" goto end
    $I0 = pos + 1
    pos = index target, ")", pos
    $I1 = pos - <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28531	28709	
==>y ... 
                $e->get('$self:')
                  ->get_attr(symbol->new('@:MRO'))
                  ->is_empty
                  ->and(
                      block->new( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2732	2840	
==>nd Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2732	2840	
==>nd Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_req <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15414	15511	
==>n it needs to account for a variance of needs between its different
users, such as their preferred <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15414	15511	
==>n it needs to account for a variance of needs between its different
users, such as their preferred <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24935	25033	
==>he constructor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24935	25033	
==>he constructor, C<Net::IRC> won't simply
send all commands immediately to the server, but creates a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7771	7895	
==>s }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()" <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7771	7895	
==>s }( &{ $self.closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7064	7180	
==>ess $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7623	7739	
==>ess $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11806	12050	
==>) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11806	12050	
==>) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.push($k, %rest{$k});
                }
                
                @h.push('version', $version);
                
                take "Set-C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3218	3325	
==>copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.co <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3218	3325	
==>copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42843	42944	
==>hat is at least 6.0.0.

It also requires these Perl 6 classes that are in the current distribution:
L< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17043	17142	
==>dispatcher(:descendant);
    for WALKMETH($dispatcher, 'BUILD') -> $method {
        $method.($self, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5616	5738	
==>ck
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5616	5738	
==>ck
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12616	12713	
==>his module deals with encoding and decoding of strings with HTML
character entities.  The module p <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12616	12713	
==>his module deals with encoding and decoding of strings with HTML
character entities.  The module p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1244	1380	
==>= $table;  
    TRY_AGAIN:
        if (my $method = $_table->{$message}) {
            return $method->($self, @_);
        }
        els <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	727	843	
==>= length( $const );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13573	13674	
==>ds exactly to the named parameters of
Document.new(); you can produce a direct clone like this:

    m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13573	13674	
==>ds exactly to the named parameters of
Document.new(); you can produce a direct clone like this:

    m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3543	3656	
==>5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> x <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3543	3656	
==>5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> x <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4024	4122	
==>ity
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
mu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4024	4122	
==>ity
our &Set::elems ::= &Set::size;
#our &Set::values ::= &Set::members;

# unicode intersection
mu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8263	8391	
==>$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method comm <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8263	8391	
==>$marks, $name => $match.backtrack }),
                    -> $m { &continue($m.clone(marks => $marks)) });
    });
}

method comm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4562	4669	
==>=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

The set of implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4812	4919	
==>=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

The set of implemen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	709	805	
==>l it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	709	805	
==>l it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17386	17491	
==>$bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # En <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17386	17491	
==>$bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot.connect();
  $bot.login();

  # En <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	378	508	
==>S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9796	9926	
==>S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11939	12141	
==>l_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11939	12141	
==>l_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_source_field' => 'id' } ] <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3830	3927	
==>rse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3830	3927	
==>rse it.  The strings "now",
"today", "tomorrow", and "yesterday" return the appropriate date.

Any <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2252	2355	
==>oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2252	2355	
==>oook.de>

Based upon C<Text::Glob> by Richard Clamp

=head1 LICENSE

This library is free software . You <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2961	3059	
==>ub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2961	3059	
==>ub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1489	1648	
==>-map');
                goto TRY_AGAIN;
            }
        }
        confess "could not find message ($message)";
    } => 'Dispatchable';
}

{
    package D <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15789	15901	
==>'t be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compile_tim <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2186	2294	
==>'t be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compile_tim <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16837	16931	
==>ile.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C< <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16837	16931	
==>ile.

The next time around, Perl 5 will automatically load F<MyModule.pmc>
when someone says C< <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11764	11867	
==>.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGH <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11764	11867	
==>.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGH <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36780	36882	
==>d be matched, this method returns undef.  This method could be
considered to implement the 'main' funct <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36780	36882	
==>d be matched, this method returns undef.  This method could be
considered to implement the 'main' funct <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	887	1020	
==>s

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "Wha <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	887	1020	
==>s

rule pointysub { # from A06
        -\> <signature> <block>
}

# Variables 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "Wha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7764	7950	
==>axage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7764	7950	
==>axage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3621	3744	
==>ram> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitpa <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3621	3744	
==>ram> \)]?
        | will <identZZ> <closure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitpa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	350	613	
==>ckages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	350	613	
==>ckages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given version applies to all of t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4051	4199	
==>es[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3927	4070	
==>es[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $cap <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30119	30218	
==>e message text associated with the
Message; this user string may also contain variable names that co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30119	30218	
==>e message text associated with the
Message; this user string may also contain variable names that co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16657	16753	
==>sees; it never outputs anything by itself to the user, but
rather returns its results for calling <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16657	16753	
==>sees; it never outputs anything by itself to the user, but
rather returns its results for calling <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16470	16635	
==>code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

O <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16470	16635	
==>code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

O <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1175	1325	
==>}
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPY <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1175	1325	
==>}
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPY <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	759	883	
==>der() ignored for ", $self->family, "/", $self->type);
      return;
    }
    [ 'tail' ];
  }

  sub walk {
    my $self = s <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1102	1213	
==>'s method is a simple method for finding roots, like square roots or
cube roots (as in the example above).  Read <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1560	1782	
==>$line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is expo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1560	1782	
==>$line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is expo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4406	4646	
==>nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (block &dispatcher) returns opaque {
    &dispatcher.()
}

( <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	2	103	
==>se v6;

# this is a super-class for Arrays, Hashes, Sets and other collections
# like Bags, ordered ha <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	541	637	
==>is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Arra <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	541	637	
==>is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8606	8713	
==>h fields are all out of whack.
# This is where this method comes into play
# it will recurse down the tree a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8606	8713	
==>h fields are all out of whack.
# This is where this method comes into play
# it will recurse down the tree a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20398	20503	
==>ed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20398	20503	
==>ed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of this is that r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	553	676	
==>_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	553	676	
==>_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is_fresh = 0;
  } e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1541	1665	
==>al O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "O <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1541	1665	
==>al O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "O <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	536	688	
==>{ $_[0] } }

    sub str {
        map { "$_ => $_[0]{$_}" } keys %{ $_[0] };
    }

    package Node;
    sub new {
        my $class = shift;
        b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3841	3954	
==>bject(anyof_class => $S->force_object(horiz => 1)) if $cc;
    return $S->object(horiz => 1);
  });

  $self->add_ <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2425	2553	
==>class, $what) = @_;
    die "unknown option: $what" unless exists $Conf->{$what};
    my $value = $Conf->{$what};
    return $val <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30787	30882	
==>ywhere.  You want to go along
the I<object>'s inheritance tree.  Use Damian Conway's F<NEXT> mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20307	20403	
==>something that end users could do,
although program package installers usually do it.  An os-leve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20307	20403	
==>something that end users could do,
although program package installers usually do it.  An os-leve <==
2	/Users/nnunley/pugs/util/config_h.pl	374	472	
==>o current directory)

=cut

my ($ghc_line, $base) = @ARGV or exit;

$ghc_line ||= $ENV{GHC} || 'ghc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24602	24729	
==>good okay, ";
        if ($max) {
            my $goodper = sprintf("%.2f",100*($good/$max));
            $skipmsg .= "$goodper% <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13907	14071	
==>skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9962	10060	
==>> smoke reports. These smokes are
    automatically generated and show how much a given backend (no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19756	19899	
==>my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16177	16320	
==>my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2424	2577	
==>hs
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LW <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2424	2577	
==>hs
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LW <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3839	3934	
==>r $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an excepti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4023	4118	
==>r $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an excepti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3280	4002	
==>::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

class Relation- <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2661	2765	
==>.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2661	2765	
==>.difference( $span2 );
    my @set2_span = $span2.difference( $span1 );
    my @intersect = $span1.inters <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7680	7787	
==>(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7680	7787	
==>(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1598	1694	
==>have
comments.

=head1 Construction

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

In <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28767	28858	
==>er> equals the immutable identity of the invocant.

=item C<not_equal (Relation::Example $ot <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2255	2356	
==>pth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2255	2356	
==>pth() unless $child.is_leaf(); 
    @!children.push($child);
    $self;
}

method add_children ($self: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2370	2488	
==>h @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2370	2488	
==>h @grammar1::ops, ::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub
    {
 $_[0] . $_[1]     }
    ;
    push <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	498	596	
==>as $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	498	596	
==>as $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submethod BUILD (HTTP::Header <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	2	114	
==>Pugs::Grammar::Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	2	114	
==>Pugs::Grammar::Rule - fglock
#
# the 'Rule' grammar - 'rule' is the main rule
#

package Pugs::Grammar::Rule;
use <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7004	7104	
==>item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This mod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7004	7104	
==>item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This mod <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5688	5804	
==>package}::{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $mess;
    }
}


=kwid

rol <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4783	4899	
==>-------

my $head = 'head.p6';
my $tail = 'tail.p6';
my $rev  = 'rev.p6';
my $mid  = 'mid.p6';
my $wc   = 'wc.p6';
if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11235	11367	
==>q '//' ) {
        return ' do { my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $n->{ex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24059	24156	
==>meters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has ze <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28611	28708	
==>meters
C<$heading> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has ze <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2292	2442	
==>GE__->add_rule( 
        name => '!=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/temp2.pl	1	119	
==>=temp2.pl - Anwendung von temp
sub beispiel {
	my $i = 1;
	
	say "a: i=$i\n";
	while $i < 100 {
		temp $i;
		
		$i = 10 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9431	9532	
==>odule',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9431	9532	
==>odule',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32035	32153	
==>just the set member for
each that corresponds to language A, looking for a match to said error
message.  If it finds on <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32035	32153	
==>just the set member for
each that corresponds to language A, looking for a match to said error
message.  If it finds on <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	105	204	
==>_prim_within( $count ) {
	my @numbers := $prim...$prim+$count :by(2);
	let $prim;
	
	for @numbers -> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	158	258	
==>1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher- <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	158	258	
==>1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	377	527	
==>{
        return ',';
    }
    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1236	1336	
==>but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($x) }


 multi  Num::ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21671	21769	
==>'s provided independence
is I<Database Driver Independence>, and not I<Database Language
Independen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21671	21769	
==>'s provided independence
is I<Database Driver Independence>, and not I<Database Language
Independen <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2988	3100	
==>unct(Z) --> p6_concatenation(W), p6_conjunctions(W,Z).

p6_alternatives(W, Z) --> "|", p6_conjunction(X), p6_alte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7326	7462	
==>ub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7338	7474	
==>ub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dumper::Indent = 0;
    #print "emit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34812	34916	
==>, member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34812	34916	
==>, member_names => ['Eng'] );

Note that a Translator object does not permit changes to its attributes;
th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	114	363	
==>:KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	114	363	
==>:KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2199	2309	
==>ing matches.
#   * Perhaps define a macro gram ($name) { "rule $name :words" },
#     rather than having the cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29470	29569	
==>if
the node was merged with the previous one.

=item my $o = $obj->omit()

=item my $o = $obj->omit( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	23	122	
==>e Blondie::Emitter;
use base qw/Blondie::Reducer/;

use strict;
use warnings;



__PACKAGE__;

__END <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7566	7660	
==>6_code_mk_CODE($name,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DOWN($pVal); }

NODE PVa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8842	8953	
==>ule_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8842	8953	
==>ule_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the bareword s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	601	702	
==>erence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	601	702	
==>erence($two);
}

# multiplication is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	47	149	
==>e;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*% <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	47	149	
==>e;
for split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*% <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4613	4752	
==>Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7336	7475	
==>Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6459	6614	
==>percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13,
      filename      => $name,
      link          => BASEHTTPDIR . $name, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3296	3389	
==>ock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3180	3270	
==>ock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1324	1416	
==>L::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1324	1416	
==>L::Util::Context {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4619	4849	
==>($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stac <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4619	4849	
==>($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    unless (@modifier_stac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	483	598	
==>te because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1341	1456	
==>te because]
           ~ q[ argument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1485	1582	
==>ssing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

ou <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1485	1582	
==>ssing a C<Result> object that has a
$.backtrack closure that calls back into the parser.

=cut

ou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	875	984	
==>sed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	875	984	
==>sed () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13451	13572	
==>} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13451	13572	
==>} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5139	5280	
==>else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5139	5280	
==>else {
        @tail = self._pop_n( -$offset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	258	375	
==>rammar

#   <fglock> re inheritance - p5 rule calls will need to be written like methods 

#            for this to wo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	249	364	
==>rammar
#   <fglock> re inheritance - p5 rule calls will need to be written like methods 
#            for this to wo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7754	7853	
==>he array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7754	7853	
==>he array2 elements into array1
  $lazy_array.push( $lazy_array_2.list );  

- `fetch` / `store`

= A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5912	6029	
==>rs? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        ms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5912	6029	
==>rs? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Node';
    die Locale::KeyedText::Message.new(
        ms <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4565	4662	
==>ring, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

Wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4565	4662	
==>ring, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

Wh <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6812	6913	
==>se qw/node/;

package val;
use base qw/node/;

sub new {
	my $self = shift->SUPER::new(@_);
	$self->{t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16256	16383	
==>"{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16256	16383	
==>"{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6234	6344	
==>t LINKING unless $link_this;

        ### remove the registered alternative
        $self->remove_registered_al <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3167	3266	
==>n->new(
				type => Blondie::TypeSafe::Type::Std->new($type),
				struct_equiv => $node,
				orig => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1784	1915	
==>5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1977	2108	
==>5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10042	10140	
==>unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10042	10140	
==>unless $self.is_root();
}

method get_index ($self:) returns Int {
    return -1 if $self.is_root() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	260	366	
==>MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	260	366	
==>MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROMPT'
        => q[Give me a county thingy, or push that <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1270	1385	
==>ectory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1270	1385	
==>ectory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($directory, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1723	1823	
==>:PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fiel <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1723	1823	
==>:PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $fiel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10025	10151	
==>thod cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10025	10151	
==>thod cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head {
            take *$self <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20788	20893	
==>mplement the Rosetta DBMS natively, and be I<the> back-end which
I recommend above all others for producti <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20788	20893	
==>mplement the Rosetta DBMS natively, and be I<the> back-end which
I recommend above all others for producti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	71	178	
==>ake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	71	178	
==>ake cipher is used in testing the Cipher API.  No user servicable parts 
inside.

=head1 SECURITY

This ciph <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12060	12248	
==>s_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15537	15725	
==>s_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1542	1642	
==>ammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1542	1642	
==>ammar::Base;
use Pugs::Grammar::Category;
use Data::Dumper;
no warnings qw( once );

our $statement = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	477	601	
==>( \%args, $class );
}

#line 61

sub AUTOLOAD {
    my $self = shift;
    local $@;
    my $autoload = eval { $self->_top->au <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8074	8169	
==></"ERROR HANDLING">.

=head2 Inspecting the Parsing

To intercept each node as it is parsed, use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19281	19380	
==>se.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19281	19380	
==>se.

One distinctive feature of a Rosetta DBMS (compared to a typical other
vendor's DBMS) is that d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7566	7663	
==>pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7566	7663	
==>pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunks[0])) {
        shift(@pathchunks <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6440	6559	
==>s sequential rather than nonblocking / as-they-come, because
# we want to preserve ordering anyway and it's probably oka <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2283	2385	
==>n::Example-0.1.0 {
    does Relation;

    # External packages used by the Relation::Example class, tha <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4537	4656	
==>g "current" because this "is primitive".
    #      If I'm wrong then the above two subs might not work?
    # XXX2: "fa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1058	1166	
==>f->makemaker_args;
    $args->{name} = defined $args->{$name}
    	? join( ' ', $args->{name}, @_ )
    	: jo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3516	3668	
==>cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3516	3668	
==>cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_is_open ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6751	6871	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6944	7064	
==>= $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot =>  match::get( $_[0], '$() <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24190	24294	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All righ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24190	24294	
==>e is part of the Rosetta DBMS framework.

Rosetta is Copyright (c) 2002-2006, Darren R. Duncan.  All righ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5656	5759	
==>de_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5656	5759	
==>de_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ .export_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9638	9777	
==>ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10474	10613	
==>ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$final_ast->{capture} );\n" .
                #"    print \"perl5_fi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5530	5712	
==>Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9007	9189	
==>Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Rela <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36693	36790	
==>mily: groupp

Types: groupp1, groupp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

F <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5829	5939	
==>ort {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our ar <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5829	5939	
==>ort {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1375	1461	
==>ompiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1375	1461	
==>ompiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	247	343	
==>AME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	247	343	
==>AME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's
invite to

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8000	8127	
==>lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8000	8127	
==>lowast"   => chr(8727),
    "radic"    => chr(8730),
    "prop"     => chr(8733),
    "infin"    => chr(8734),
    "ang"      => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4261	4516	
==>bug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4261	4516	
==>bug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10064	10161	
==>st - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.fr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10064	10161	
==>st - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl6::Value::List.fr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6904	7022	
==>) if defined $meta;
    Carp::confess("p6_new: unknown class $cls\n");
}

sub p6_code_mk_CODE {
    my($name,$kind,$pam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2329	2461	
==>> 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2329	2461	
==>> 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $ <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1159	1305	
==>x'),
						App(
							Sym('&infix:<+>'),
							Val(2),
							Sym('$x'),
						),
					),
				),
			),
		),
		result => 4,
		name => "higher orde <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5559	5833	
==>s Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9036	9310	
==>s Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23753	23853	
==>ry.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logica <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22269	22369	
==>ry.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logica <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23288	23423	
==>_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19709	19844	
==>_handler('(?(' => sub {
    my ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23592	23749	
==>,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23871	24028	
==>,
         )
       ,
         ruleop::capture( 'block', \&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18877	18979	
==>e.  While Rosetta D is very different from SQL, it
is fully capable of modelling anything in the real w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18877	18979	
==>e.  While Rosetta D is very different from SQL, it
is fully capable of modelling anything in the real w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	244	341	
==>rage is much less.  The test passing was simply to
permit refactoring with confidence.

It uses La <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2505	2653	
==>Sym->new('$y'),
            ),
        ),
    ),
    '&infix:<*>' => Thunk->new(
        Seq->new(
            Param->new('$x'),
            Param->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6299	6412	
==>'%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\x[A;B] in character class <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8481	8591	
==>modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when interpolation is complete.

= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8481	8591	
==>modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when interpolation is complete.

= <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	138	267	
==>lan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer re <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	138	267	
==>lan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24786	24885	
==>y () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29338	29437	
==>y () returns Set of Mapping(Str) of Any>

This method returns this Relation's body.

=item C<size () <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	26	133	
==>.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	26	133	
==>.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5045	5198	
==>_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5045	5198	
==>_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closures
        # c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	836	949	
==>hen ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { . <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	836	949	
==>hen ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { . <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5628	5739	
==>nt',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar I <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5628	5739	
==>nt',
  'tTokDepth' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar I <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4611	4745	
==>!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4611	4745	
==>!children) {
        $removed_child = @!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	79	181	
==>.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	79	181	
==>.hs in Perl 6's terms

= DESCRIPTION

=cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Com <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9896	10026	
==>s module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2928	3058	
==>s module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt;
        {   my $wanted = join '-' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5159	5272	
==>icks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5159	5272	
==>icks);

    # For each nick, make sure we've registered them as people who are on
    # $chan:
    %channels{$chan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1963	2069	
==>list);\n";
}
sub node::sub_call_term {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( ge <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	172	269	
==>l for the
# meta-model, except perhaps to express sub-types, default values,
# etc.
enum ExpType  <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	836	949	
==>result found, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_install = _recurse_res <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	69	172	
==>0" if $var == 0;
say "ist wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say " <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30193	30284	
==>e it returns the identity-one
Relation::Example or the invocant Relation::Example respective <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	927	1114	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submetho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	927	1114	
==>ymbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS object:
    # (None Yet)

###########################################################################

submetho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2344	2492	
==>her => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2344	2492	
==>her => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11875	11988	
==>nd) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInt <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12278	12391	
==>nd) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::Internals::runInt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7430	7558	
==>rning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $self.hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7430	7558	
==>rning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { $self.hea <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5266	5404	
==>l_ok} ) );

            # We don't want these to be undef because they are often
            # checked and don't want the checker to have t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	82	180	
==>s

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code objects to a particular Type <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4626	4727	
==>kages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4626	4727	
==>kages in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3577	3696	
==>rn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4426	4545	
==>rn $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::term1 {
    return $_[0] unless ref($_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3119	3246	
==>tch, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3119	3246	
==>tch, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	577	682	
==>an::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	577	682	
==>an::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	930	1077	
==>rn '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	930	1077	
==>rn '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8668	8799	
==>,
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8668	8799	
==>,
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7703	7831	
==>3);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular or <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7703	7831	
==>3);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1,2,6])    # 1 2 3 6  (in no particular or <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16991	17086	
==>in localization methodology
in an easily accessable manner, such that would not be possible if i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16991	17086	
==>in localization methodology
in an easily accessable manner, such that would not be possible if i <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1483	1579	
==>r by giving 
them to the unexported C<Log::Selective::select> function or by including them 
in t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1483	1579	
==>r by giving 
them to the unexported C<Log::Selective::select> function or by including them 
in t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16295	16431	
==>compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # .. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16295	16431	
==>compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # .. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37386	37482	
==>ed an argument to the constructor.  The
argument is a true or false value determining whether thi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11216	11312	
==>the unnecessary parts of the prelude weren't compiled into the code #print "Compiled AST: " . Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1200	1356	
==>ne {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1151	1301	
==>ne {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]- <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17241	17443	
==>is will 
                      contain the reason.

  ok                number of tests which passed 
                      (including todo and skips)

  todo              number of todo tests seen
  bon <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	21	112	
==>age Blondie::Backend::Perl::Silly;
use base qw/Blondie::Backend::Perl/;

use strict;
use war <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2980	3103	
==>ed,]
           ~ q[ but one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2980	3103	
==>ed,]
           ~ q[ but one of its elements is an empty string.],
    'LKT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	823	935	
==>e "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	823	935	
==>e "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1712	1834	
==>s>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1712	1834	
==>s>? <'('> <ws>? $<param> := (<Parameters>) <')'> ]?
    {
      use v5;
      if($<param>[0]){
	return "(" . $<FunctionName <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9497	9719	
==>en "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when / <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9497	9719	
==>en "amp"  { "&" }
            when "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when / <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	42	141	
==>g::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	42	141	
==>g::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Con <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9007	9108	
==>ed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9007	9108	
==>ed and/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2643	2752	
==>$class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# G <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2643	2752	
==>$class->freshness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# G <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10386	10485	
==>))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\w", !.
p56_char_class(class_neg( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9678	9778	
==>ecurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9678	9778	
==>ecurrence object, or a scalar value.

- `union( $object )` / `intersection( $span )` / `difference( $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4953	5089	
==>vOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->e <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5952	6076	
==>ead --help?
    You can stop this program by hitting ^C (<Ctrl>+<C>).
HELP

step
  descr  => "Checking for Linux",
  help   = <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1150	1257	
==>C}};
    write_buildinfo($version, $ghc, $ghc_version, @args);

    my $pwd = cwd();

    print "*** Buildin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2028	2243	
==>t_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $ind <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2028	2243	
==>t_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $ind <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8757	8911	
==>ms },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip param <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8757	8911	
==>ms },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip param <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	440	591	
==>tatus',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See O <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	440	591	
==>tatus',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        302 => 'Found',
        303 => 'See O <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4230	4358	
==>and assertion rules or macros, you may
    use the following syntactic categories:

         rule rxbackslash:<w> { ... }    # de <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1060	1183	
==>&sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<inpu <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1060	1183	
==>&sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, %v) {
    return '<inpu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5079	5173	
==>d_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5079	5173	
==>d_since ($self: )   is rw { $self!date_header("If-Modified-Since")   }
method if_unmodified_sin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7035	7133	
==>anguage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7035	7133	
==>anguage ($self: )          is rw { $self.header("Content-Language") }
method content_length ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6168	6354	
==>urrent {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if define <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6168	6354	
==>urrent {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if define <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3823	3938	
==>pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3823	3938	
==>pmc = $module . 'c';

    # If we can't open the file, just return. The filtering will not be cached,
    # but that <==
2	/Users/nnunley/pugs/util/package-osx.pl	7752	7849	
==>rl6::Spec::Block.3pm
        /usr/local/man/man3/Perl6::Spec::Module.3pm
        /usr/local/man/ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6813	6970	
==>num, $rep);
  });

  # eol, seol, meol
  $self->add_handler('$' => sub {
    my ($S) = @_;
    my $type =
      &Rf & $S->FLAG_m ? 'meol' :
      &Rf & $S->FL <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	381	512	
==>t
main(int ac, char **av)
{
    int i;
#ifdef __BORLANDC__
    char *s = GetCommandLine();
    int j=0;
    av[0] = s;
    i <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4762	4867	
==>new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4762	4867	
==>new( recurrence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurren <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11707	11813	
==>t live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This store <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11707	11813	
==>t live in this Document.

=item C<@!root_nodes> - B<Root Nodes>

Array of Rosetta::Model::Node - This store <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3010	3171	
==>alue::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3010	3171	
==>alue::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2613	2718	
==>fore ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2797	2902	
==>fore ...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant param <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	440	554	
==>$dir = $inst->meta_dir

=cut

sub meta_dir {
    my $self = shift;
    my $dir  = $self->dir or return;

    return <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1186	1296	
==>doesnt parse. using simplified one.
#multi Array::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10182	10309	
==>to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10182	10309	
==>to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3612	3717	
==>od intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._norm <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3612	3717	
==>od intersects ($self: $span is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._norm <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	55	152	
==>evelopment snapshot of the prolog regex engine I
started over the weekend.  A "look at what I'm up <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15905	16057	
==>,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16184	16336	
==>,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1195	1371	
==>code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1400	1576	
==>code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28294	28389	
==>e(library(time)). call_with_time_limit,  but allegedly cant from perl. :(

# XXX - Known bugs
() <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	173	331	
==>{ fields =>
      { ref =>
        { schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $_ => \&$_ }
                   qw( gener <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1739	1838	
==>rl 6. It is only an experiment, it's not
API compatible to the original POE, and is possibly very un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1288	1420	
==>[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1288	1420	
==>[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1896	1998	
==>ce => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1896	1998	
==>ce => 'tighter', other => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18134	18267	
==>\&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18413	18546	
==>\&{'grammar1::p6ws'}
       ,
         ruleop::constant( "parsed" )
       ,
         ruleop::optional(
             \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17025	17118	
==>easily accessable manner, such that would not be possible if its
functionality was subsumed in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17025	17118	
==>easily accessable manner, such that would not be possible if its
functionality was subsumed in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9643	9761	
==>| [] } ) {
            1 while unlink $conf->bin_dir->file( $script );
            1 while unlink $self->alternatives_d <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	157	244	
==>se File::Spec;

my $setup = File::Spec->catfile(File::Spec->curdir, "Setup$Config{_exe}" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	236	346	
==>tle>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web server coul <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	236	346	
==>tle>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web server coul <==
2	/Users/nnunley/pugs/util/package-osx.pl	191	298	
==>nd parrot under /usr/local

    exit;
}

my ($bundle, $dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6935	7049	
==>f %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6935	7049	
==>f %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was kicked from channel \"$chan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4698	4807	
==>$self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4838	4947	
==>$self) . ")";
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Regex - Compiler for Perl 6 Regex

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6490	6688	
==>0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span] <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6490	6688	
==>0
                }
                if $.current_span > @spans.end {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span] <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6131	6246	
==>ethod fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6131	6246	
==>ethod fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3860	3966	
==>onfig::Simple, Config::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does no <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3860	3966	
==>onfig::Simple, Config::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7514	7659	
==>X - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7526	7671	
==>X - not all nodes are actually used

    if ( ref($n) eq '' ) {
        # XXX - this should not happen, but it does
        return '';
    }
    i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8183	8279	
==>same line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8183	8279	
==>same line.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is f <==
2	/Users/nnunley/pugs/util/config_h.pl	1552	1668	
==>ase compile your GHC with the
    GHCi option.

.
}

close OUT;

sub try_compile {
    my $code = shift;
    my $temp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24159	24279	
==>_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20580	20700	
==>_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1003	1186	
==>E unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1003	1186	
==>E unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16772	16917	
==>er/;

sub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "(", ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24619	24719	
==>* regmlen      length of regmust string
 *  [regmlen not used currently]

Confined to regcomp/regexec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12840	12937	
==>of fields removed is returned.

Note that if you pass in multiple field names then it is generally <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12840	12937	
==>of fields removed is returned.

Note that if you pass in multiple field names then it is generally <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5760	5900	
==>$iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5760	5900	
==>$iter = $self.iterator();
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4738	4840	
==>f (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4738	4840	
==>f (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8432	8542	
==>egory.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5972	6076	
==>egory.

options:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * n <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10365	10465	
==>/exclusive/other stuff. For lots of discussion but no final
    # spec, see the thread rooted at <200 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	326	458	
==>>sign(1)                if $args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self- <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	372	478	
==>>sign(1) if $args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15181	15280	
==>iso and -M $iso <= -M $initrd_gz and -M $iso <= -M "$cdroot/boot/grub/menu.lst" },
  using  => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1383	1507	
==>r>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1383	1507	
==>r>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6408	6501	
==>s for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6408	6501	
==>s for use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35306	35400	
==>d parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35306	35400	
==>d parameters of new().

=item C<get_set_names()>

This method returns all Set Names elements in <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1301	1469	
==>' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str whe <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1301	1469	
==>' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str whe <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3269	3377	
==>ail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3269	3377	
==>ail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7369	7477	
==>DS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )` <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7369	7477	
==>DS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )` <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7244	7350	
==>anying text has been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7244	7350	
==>anying text has been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5921	6029	
==>urns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TOD <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5979	6087	
==>urns Bool {
    $Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TOD <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1628	1736	
==>my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pug <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1628	1736	
==>my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pug <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7377	7469	
==>eturn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10854	10946	
==>eturn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Rela <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	754	919	
==>my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_N <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	754	919	
==>my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PROGRAM_N <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18153	18289	
==>ethod) } || push @nok, $method;
    }

    my $name;
    $name = @methods == 1 ? "$class->can('$methods[0]')"
                          : <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32594	32690	
==>een walk()ed, it will insert the matching 'close' node into the
walking stack.

The purpose of ad <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	642	758	
==>, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # (None Ye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	642	758	
==>, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object:
    # (None Ye <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	746	859	
==>e enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	746	859	
==>e enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only methods `end()`, `previo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13224	13344	
==>parser->RPe_NULNUL;

=over 4

=item RPe_ZQUANT (-1)

Quantifier unexpected on zero-length expression

=item RPe_NOTIMP (- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	914	1020	
==>haracter sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Foo but <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1167	1267	
==>gn and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1167	1267	
==>gn and implementation of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4026	4206	
==>y $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every packag <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4490	4670	
==>y $maybe (@$avail) {
                    next RESOLVE if dependency_satisfied_by($entry, $maybe);
                }

                my @found;
                ### find every packag <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	46	144	
==>et of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
wher <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	46	144	
==>et of PIL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
wher <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14866	14980	
==>ith this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used headers can also be acc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14866	14980	
==>ith this line ending sequence.

=back

=head1 CONVENIENCE METHODS

The most frequently used headers can also be acc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18707	18804	
==>Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS products) becaus <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18707	18804	
==>Rosetta does not use any dialect of SQL in its native API (unlike many
other DBMS products) becaus <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4651	4755	
==>' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4651	4755	
==>' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	349	450	
==>.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable li <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	349	450	
==>.cipher($_) for @input };

=head1 DESCRIPTION

Arcfour is a very simple (less than fifteen readable li <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5505	5613	
==>tipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5505	5613	
==>tipart/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1316	1424	
==>slice
# - lists of junctions --> junctions of lists
# - list concatenation --> array concatenation

# ------- <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1316	1424	
==>slice
# - lists of junctions --> junctions of lists
# - list concatenation --> array concatenation

# ------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3269	3428	
==>ameter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defined $n ||
            @$n == 0;
    
    #warn "parameter l <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2019	2145	
==>eSplit ", length @nameSplit, " ", $#nameSplit, "\n";
  my @spacePresent = split / /, $nameSplit[$#nameSplit];
  if ( @spacePres <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6496	6638	
==>ns that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6496	6638	
==>ns that we only allow compilation on
                # the module content; not the DATA section. Because we
                # want to make sure <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	372	517	
==>s ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.rea <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	372	517	
==>s ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.rea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1693	1801	
==>ption class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exceptio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1693	1801	
==>ption class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Exceptio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2663	2869	
==>urn sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        while (1) {

            

            $matches[0] = $no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2575	2774	
==>urn sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        while (1) {
            
            $matches[0] = $no <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	158	258	
==>nctional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite::F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	158	258	
==>nctional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite::F <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1891	1985	
==>til::blessed($node) ? $self->SUPER::reduce($node->struct_equiv) : $node;
	}
}

{
	package Blond <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15810	15917	
==>length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10666	10773	
==>length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(exac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	578	705	
==>y $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	578	705	
==>y $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3195	3306	
==><[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex l <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3195	3306	
==><[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8745	8843	
==>st(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->vars <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2570	2668	
==>st(@_) };
push @terms, sub { Grammar::Perl6->varhash(@_) };
push @terms, sub { Grammar::Perl6->vars <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13730	13853	
==>($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13730	13853	
==>($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	950	1049	
==>ults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_sof <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	950	1049	
==>ults for debugging.

=head1 FUNCTIONS

=over 4

=item B<server_name returns Str>

=item B<server_sof <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5167	5326	
==>s                 = $::SELF->$status_sub();
            $status->{"TODO"}          = 1;
            $status->{"passed"}        = 1;
            $status->{"reall <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7414	7535	
==>ION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7472	7593	
==>ION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4464	4592	
==>oved_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    e <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4464	4592	
==>oved_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this optimization    
    e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3302	3478	
==>g$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3302	3478	
==>g$_") }, 0 ..^ .args) ~ ')'
                );
                $str;
            }

            when ::Perl::Compiler::PIL::PILAssign {
                my $str = ./gen(.right, $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	248	356	
==>en{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	248	356	
==>en{./normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_ch <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3070	3189	
==>,  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, sla <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3070	3189	
==>,  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, sla <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3809	3937	
==>ble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5169	5296	
==>ble} if defined $text;
    $self->{preamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->a <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2051	2212	
==>t .= "node_" . $superclass->id . " -- node_" . $class->id . " [ dir = back, style = dashed, color = blue ];\n";       
        }
    }    
    
    foreach my $ro <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1360	1450	
==>inator_here>.
#
#  Resources:
#   http://www.ecma-international.org/publications/standards/ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2594	2690	
==>ubset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2594	2690	
==>ubset($self));
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") ~ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1060	1208	
==>))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Conca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1060	1208	
==>))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Conca <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4341	4493	
==>e('@:slots')})->scalar_fetch;
            },

            'array_shift' => sub { # $val
                my $self = shift;
                (shift @{$self- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	236	353	
==>kage';

my %indexed = map { $_->{package} => $_ } LoadFile( $Repoindex ); 

for my $pkg (@ARGV ) {
    
    ### in cas <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5807	5917	
==>::Find::Rule->directory->in( $from ) ) {
            ### strip the leading dirs from the target so we don't get <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2429	2536	
==>rt;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns Li <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2429	2536	
==>rt;
    return $cmp if $cmp;
    return $.end <=> $span.end;
}

method difference ($self: $span ) returns Li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30098	30216	
==>cting the parsing of the regex.

=item my $t = $obj->type()

The specific type of this object.  See the object's docume <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	923	1090	
==>card_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	923	1090	
==>card_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3989	4118	
==>{$key};
    }
    foreach my $key (@tuple_keys) {
        next unless exists $values{$key};
        $dump .= "$key:\n";
        fo <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10332	10429	
==>param = $_sub->bind_params(@_); '
		  .$my_args.$code_body.'}');
    my $code_params = '[map{Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30608	30724	
==>);

The name is 'c)' which has no predecessor 'c', so that means it is
pre-consumptive, which is why it must match th <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	869	970	
==>-----------------------------



our $re_sigil = '[\$\@\%]';
our $re_symbol = '\w[\w\d]*';
our $re_con <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9251	9377	
==>+ 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9309	9435	
==>+ 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2298	2392	
==>cript with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Find <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2298	2392	
==>cript with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Find <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3391	3492	
==>t) = @_;
    ($left->params->equal_to($right->params) == bit->new(1) && 
     $left->returns eq $right <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21431	21524	
==>added (specifically, making sure C<(?(N)T|F)> works right).
In doing so, found that the "too m <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5953	6083	
==>lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normalize_version($a)
            } glob( <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2854	2974	
==>push @{$self->get_value('@:slots')}, mk_containers((undef) x ($size));
            },

            '_extend_to_slot' => s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	521	617	
==>Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	521	617	
==>Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.org/perl6 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3317	3436	
==>win variable gives us a hint to the
        # cygwin root.  There is probably a better way to find this.
        # (regi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	867	979	
==>=> $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	867	979	
==>=> $param->{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5118	5237	
==>cted
# if $range is 0, then check it's exact
# else if $expected is 0, then $range is an absolute value
# otherwise $ran <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11038	11154	
==>ode = "(p6_setq(__PACKAGE__,$namestr,$code_val));";
    }
    $code;
}

my %as_bool_handlers =
    ( undef => sub { u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5567	5744	
==>ther );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation::Example {

    die "Some k <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15753	15853	
==>,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+(match_captures_get(I,E0,_)) ; match_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11253	11367	
==>he server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11253	11367	
==>he server if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1310	1420	
==>hing gets built
  &RxPOS = 0;
  eval { $self->parse };
  $self->{errmsg} = $@, return if $@;

  # reset things, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3123	3259	
==>cient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3123	3259	
==>cient Arguments : no tree(s) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tre <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	486	628	
==>ut.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsb <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	486	628	
==>ut.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsb <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1030	1264	
==>ent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "< <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1030	1264	
==>ent_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "< <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	611	715	
==>0.0.1;

role Class::Events::Publisher {
    use Set;
    has Set $.subscriptions handles :add_subscriptio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15953	16078	
==>ler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10809	10934	
==>ler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6290	6425	
==>$match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6290	6425	
==>$match) }),
                &continue);
        });
    }
}

method capture ($p, Int :$num, Str :$name) is export {
    $.Parser.new(par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19655	19751	
==>ssages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19655	19751	
==>ssages).

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Rosetta> for the maj <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14939	15067	
==>ECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14939	15067	
==>ECOND' => $second,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1372	1483	
==>->{errmsg} = $@, return if $@;

  # reset things, define tree as []
  &RxPOS = 0;
  $self->{tree} = [];
  $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2185	2292	
==>package Regexp::Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3183	3299	
==>pty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3183	3299	
==>pty;
    return @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1605	1715	
==>RIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redist <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1605	1715	
==>RIGHT

Copyright 2006 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redist <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2741	2848	
==>ntZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2741	2848	
==>ntZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11196	11349	
==>nt )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.curre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11196	11349	
==>nt )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.current if $.current == Inf;
        return $.curre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1714	1813	
==>()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1714	1813	
==>()
    $.set = Set::Infinite::Functional.empty_set();
    $.set = $.set.union( Set::Infinite::Functi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15003	15102	
==>rd) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $te <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15003	15102	
==>rd) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str $to, Str $te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1359	1507	
==>$base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1359	1507	
==>$base = ./header('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4601	4832	
==>]]/ 
            ) {
                #print "mismatched name: $name\n";
                $m = Pugs::Grammar::Term->parse( $match, { p => 1 } );
                $ast = $m->();
            }
        }        

        {
            # t <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	350	446	
==>value, arrange for
it to be the last evaluated expression.

All functions (but not macros) in thi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15082	15187	
==>e routines modify the string passed as the first argument, if
called in a void context.  In scalar and arr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15082	15187	
==>e routines modify the string passed as the first argument, if
called in a void context.  In scalar and arr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2196	2300	
==>ckage Blondie::Seq;
    use base 'Blondie::Node::List';

    package Blondie::Stub;
    use base qw/Blond <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1666	1763	
==>ope

=head1 DESCRIPTION

Assumes a hash structure of $self, and uses the 'scopes' keys therein.

= <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1274	1372	
==>ber($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1274	1372	
==>ber($self: $item) returns Object {
    return $item if $self.includes($item);
}

method size() retu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3437	3529	
==>ck('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3437	3529	
==>ck('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5765	5867	
==>ly the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5765	5867	
==>ly the channels we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler< <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	22	132	
==>vent::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'en <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	22	132	
==>vent::Parser-0.0.1;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'en <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2698	2788	
==>en }

## ----------------------------------------------------------------------------
## in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2698	2788	
==>en }

## ----------------------------------------------------------------------------
## in <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7394	7510	
==>d || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.po <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7394	7510	
==>d || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $self.po <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13776	13888	
==>ast_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13776	13888	
==>ast_traffic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13216	13315	
==>nce set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set conta <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13216	13315	
==>nce set with all elements negated (-$x).

- `grep:{...}`

This method returns a recurrence set conta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26361	26456	
==>g informed any time you create a modified version of Rosetta
that you are willing to distribute, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26361	26456	
==>g informed any time you create a modified version of Rosetta
that you are willing to distribute, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31038	31133	
==>their use, the full name of a module
consists of the two parts concatenated without any delimite <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31038	31133	
==>their use, the full name of a module
consists of the two parts concatenated without any delimite <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3453	3557	
==>OD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3453	3557	
==>OD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Eve <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10947	11045	
==>iscarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10947	11045	
==>iscarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43712	43885	
==>')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # meth <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	954	1071	
==>\n"; }
	    else { print "not ok \# Unexpected compilation failure.\n$err\n" }
	    next;
	}
	if($ok =~ /c/) {
	    pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21505	21628	
==>gth $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser::Handlers - handlers for Perl 5 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4699	4813	
==>eturn;

    for my $inst ( @{ $self->available } ) {
        return $inst if $inst->package eq $pkg->package;
    } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2439	2566	
==>.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@field <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2439	2566	
==>.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@field <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2611	2720	
==>353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2611	2720	
==>353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and logs $msg to STDERR.
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3997	4209	
==>ast if ( $m );
            
            local $Carp::CarpLevel = 2;
            carp "unrecognized token '",substr($match,0,10),"'\n"
                if $match;
            
        } # /for
            
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5696	5825	
==>rn " " . $n->{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7043	7161	
==>>{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unkno <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7055	7173	
==>>{print_program};
    my $code = eval($program); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unkno <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7004	7121	
==>", "\\x[0]") if $cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handler('\X' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3360	3461	
==>of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HTTP::Server: <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3360	3461	
==>of L<HTTP::Server::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HTTP::Server: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38595	38718	
==>)},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parser->regex($_) or die $parser->errmsg;
    print "VISUAL: ", $pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14669	14767	
==>ng header
values are not folded.

The optional $eol parameter specifies the line ending sequence to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14669	14767	
==>ng header
values are not folded.

The optional $eol parameter specifies the line ending sequence to <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	47	147	
==>lude_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	47	147	
==>lude_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23441	23548	
==>ain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23441	23548	
==>ain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>no <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7133	7267	
==>ne"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7133	7267	
==>ne"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "weierp"   => chr(8472) <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1525	1649	
==>>\>  \:\=  <construct>  }
rule array_alias            {  \@\<<name>\>  \:\=  <construct>  }
rule hash_alias             {  \% <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30633	30733	
==>s match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35184	35284	
==>s match
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12874	12996	
==>y $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6349	6471	
==>y $brace = 0;
    my $num = $1;

    if ($num eq '{') {
      $S->error(RPe_RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} } <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1271	1397	
==>ages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1271	1397	
==>ages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1267	1386	
==>er_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1267	1386	
==>er_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1507	1629	
==>oup = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1518	1640	
==>oup = 
    ruleop::concat(
        ruleop::constant( '(' ),
        ruleop::capture( 'capturing_group',
            \&rule, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20428	20519	
==>ght want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20428	20519	
==>ght want to use the C<logged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2423	2543	
==>sts };
    }
    if ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->autho <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11729	11826	
==>o methods above, for when one wishs to take
advantage of the internal caching of keys that is expe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9832	9929	
==>e written for Pugs.

It provides a simple set of common test utility functions, and is
an implemen <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9890	9987	
==>e written for Pugs.

It provides a simple set of common test utility functions, and is
an implemen <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13189	13290	
==>* $set2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13189	13290	
==>* $set2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	608	726	
==>ucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burs <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	608	726	
==>ucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket with a burs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3279	3557	
==>ure => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3151	3415	
==>ure => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1693	1790	
==>_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 } <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1693	1790	
==>_root returns Bool { $!parent.defined ?? 0 !! 1 }
method is_leaf returns Bool { +@!children == 0 } <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	665	762	
==>these
methods

=item *

unbound public attributes, which are actually just accessor methods
for va <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32694	32791	
==>xternal Template modules as a template.
The Translator class as a whole is not pure and determinis <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32694	32791	
==>xternal Template modules as a template.
The Translator class as a whole is not pure and determinis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20849	20956	
==>ut the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20849	20956	
==>ut the colons do
not show in $h->as_string.

=head1 BUGS

In the argument list to the constructor or header( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15262	15421	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15256	15415	
==>' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1946	2057	
==>$key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must be a str type";
    bit->new(e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4918	5013	
==>r die "fix_up_makefile: Couldn't open $makefile_name: $!";
    print MAKEFILE  "$preamble$makefi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2995	3102	
==>f.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2995	3102	
==>f.closure_previous, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30773	30881	
==>mber
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for every modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30773	30881	
==>mber
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for every modu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11434	11568	
==>:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      de <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11434	11568	
==>:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^ERROR ?:?(.*)$/ {
      de <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3239	3392	
==>y_deleteElem' => sub { # $int -> (); # undef $array[$idx];
                my $self = shift;
                my $idx = shift;
                undef $self- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	337	434	
==>lass.addMethod(Method.new(...))
 $class.apply;

 # my SomeClass $foo does Foo;
 my $role = Role.ne <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4936	5022	
==>6_range(W, Z) --> "**{", !, p6_range_bounds(Min,Max), "}", p6_range_greed(W,Min,Max,Z), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1911	2000	
==>represents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2000	2089	
==>represents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<Mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1467	1601	
==>led Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad G <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1467	1601	
==>led Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'Bad G <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1061	1153	
==>ctional functionality.

The complementary functions are emulated using iterations.

- `new( c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1061	1153	
==>ctional functionality.

The complementary functions are emulated using iterations.

- `new( c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22984	23126	
==>new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42587	42729	
==>new('class'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5305	5431	
==>TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5305	5431	
==>TCxtVoid';
node_a 'TCxt',                 'TCxtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2053	2158	
==>--------------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_pa <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2053	2158	
==>--------------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_pa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	258	406	
==>t = JIB::Alternative->new_from_struct( struct => $struct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	276	373	
==>-----
## This is an extension of the Mini-MetaModel which adds a self-bootstrapping
## implementat <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	198	291	
==>RNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# -----------------------------------------------

m <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	198	288	
==>RNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ----------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39696	39810	
==>$cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates an object:
      $S->warn(RPe_BADESC, "y", " in c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	869	982	
==>_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	880	993	
==>_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $code;
    # print " <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5182	5393	
==>e {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5182	5393	
==>e {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifier_stack[-1]) {
                            # pop the t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	271	379	
==>( q() => q( \d+ { return { num => $() ,} } ) );
    __PACKAGE__->add_rule( Inf => q({ return { num => 'Inf' , <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20454	20563	
==>her, 'DESTROYALL') -> $method {
        $method.($self);
    }    
}

(method DESTROYALL ((opaque $self:) (has <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5213	5319	
==>d them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5213	5319	
==>d them as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<chann <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2052	2190	
==>ess $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2112	2250	
==>ess $_[0];
            my $pos = $_[1]{p} || 0;
            #my ($test, $tail) = $_[0] =~ /$rx/;
            #warn "Matching $char_class in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1135	1241	
==>1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1135	1241	
==>1 NAME

Rosetta::Engine::Example -
Self-contained reference implementation of a Rosetta Engine

=head1 VERS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	925	1063	
==>{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	950	1088	
==>{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	829	972	
==>params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	829	972	
==>params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12910	13036	
==>s.

These are all constants in the F<Regexp::Parser> package, which means
you can access them as though they were methods.  The <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4050	4199	
==>(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We ini <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4050	4199	
==>(.+)/)[0] }\
                 .grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We ini <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	210	309	
==>universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span.new( sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	210	309	
==>universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( spans => [Span.new( sta <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3652	3757	
==>self = shift;
		my $sym = shift;
		
		my $type = $self->find_dyn_sym($sym->val)->val;

		warn "linking the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2339	2445	
==>@$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2339	2445	
==>@$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10368	10488	
==>atch}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10368	10488	
==>atch}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9246	9377	
==>hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9246	9377	
==>hash.delete('domain');
                my $port    = %hash.delete('port');
                my $expires = str2time(%hash.delete('expi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5203	5329	
==>(*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5203	5329	
==>(*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	288	396	
==>rrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	288	396	
==>rrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12757	12905	
==>new('bless'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6150	6301	
==>";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        us <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5658	5809	
==>";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        us <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8656	8752	
==>s method if you've built your own strap subclass,
such as a PHP interpreter for a PHP-based strap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3662	3803	
==>$match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3802	3943	
==>$match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	895	1007	
==>s Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	895	1007	
==>s Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic;
  has Int <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1698	1809	
==>used only for reconstruction to source.
 # represented as processing instructions, or maybe comments
 # in the " <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1698	1809	
==>used only for reconstruction to source.
 # represented as processing instructions, or maybe comments
 # in the " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1887	1983	
==>5 Test::Builder and Test::Harness::TAP.
Perl 6 Test::Builder;

=head1 AUTHORS

Perl6::MetaModel 2 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2841	2953	
==>eturn Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2841	2953	
==>eturn Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    return $.e <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5205	5311	
==>:

=over 3

=item get($url)

The get() function will fetch the document identified by the given URL
and ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5205	5311	
==>:

=over 3

=item get($url)

The get() function will fetch the document identified by the given URL
and ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24482	24606	
==>ub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20903	21027	
==>ub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->obj <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5749	5842	
==>Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5749	5842	
==>Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1462	1561	
==>}
}

sub usage { print STDERR <<USAGE; exit }
Usage: $0 [options] -- smoke1.html smoke2.html ...

Av <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	18	110	
==>re::Closure;

use Perl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Str;
use Perl6::C <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	981	1091	
==>akemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1872	1982	
==>akemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shift );
} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12166	12309	
==>data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12166	12309	
==>data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4151	4271	
==>tent.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4151	4271	
==>tent.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    r <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1398	1533	
==>$para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($pa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1398	1533	
==>$para = Perldoc::DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4212	4430	
==>Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4212	4430	
==>Array of Str
        # List of Template module Member Names to search.

###########################################################################

submethod BUILD (Str :@set_names!, Str :@member_names!) {

    $?SELF! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	487	577	
==>d,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	487	577	
==>d,$remainder) = Text::Balanced::extract_codeblock( $_[0] );
    return Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2290	2411	
==>i >> ", substr($_, $n[$i], $e[$i] - $s[$i]),$/;
#       }

       if($n !~ /${re_reserved}/){
           $c =~ s/\$self->{ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1650	1759	
==>:PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression - <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1650	1759	
==>:PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression - <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	438	583	
==>ules    => [],
    ghc_heap_size         => '',       # use GHC's default
    install_dir           => '',
);

sub import {
    my($class, $filena <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3546	3689	
==>mmar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        "    require <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1018	1141	
==>s Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! define <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1018	1141	
==>s Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($self: ) {
    return ! define <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2172	2283	
==>100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2172	2283	
==>100000000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	717	831	
==>e      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	717	831	
==>e      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str i <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	284	381	
==>pm"; # XXX: move this to config.yml?
END { unlink $TEMP_PRELUDE unless $Config{keep} };

GetOption <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4528	4652	
==>do this AFTER installing, duh!
            $inst_pkg = $inst->register( package => $self ) 
                or error("Could n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21076	21260	
==>hod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = shift;
                $e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44000	44167	
==>hod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8066	8196	
==>ck->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8259	8389	
==>ck->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5183	5273	
==>ete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5183	5273	
==>ete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17275	17375	
==>`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterato <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17275	17375	
==>`

Returns true if the start or the end of the span are Infinite.

- `iterator()`

Returns an iterato <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5900	6006	
==>.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chr <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5900	6006	
==>.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49524	49675	
==>);
            }
        )
    )
);

$::Module->send('add_method' => (
    # method label
        symbol->new('authority'),
    # method body
        me <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1730	1842	
==>slating:\n";
    print Dump( $deps );
    print "\n\nTo:\n";
    print join " AND ", map { pp_deps( $_ ) } @$deps <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15678	15772	
==>de.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15678	15772	
==>de.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3572	3746	
==>ETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3572	3746	
==>ETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $ol <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19285	19395	
==>t>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a pack <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19285	19395	
==>t>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first block in a pack <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1063	1168	
==>lgorithm is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to com <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1063	1168	
==>lgorithm is a flexible way of imposing a rate limit
against a stream of items. It is also very easy to com <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7767	7873	
==>dir_files = _globdir $Files_In_Dir if defined $Files_In_Dir;
    my $t_start = new Benchmark;

    my $widt <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	295	407	
==>user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	295	407	
==>user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4062	4180	
==>die "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # agains <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4062	4180	
==>die "Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # agains <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1822	1963	
==>xport {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    N <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1822	1963	
==>xport {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    N <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31539	31636	
==>pecific
to it, another library likewise, and a program which uses both libraries
could have yet an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31539	31636	
==>pecific
to it, another library likewise, and a program which uses both libraries
could have yet an <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	850	962	
==>-
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	850	962	
==>-
    return $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	499	613	
==>reate a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### copy all the stuff over to <==
2	/Users/nnunley/pugs/util/package-osx.pl	102	211	
==>sx.pl [pugs|parrot|pugs-parrot] target_base_dir
        Run after make install'ing pugs and parrot under /usr/ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4618	4760	
==>b {
			my $node = shift;
			return $node unless $i++; # skip the thunk

			my $expected = shift @context;

			#warn "## unifying " . $self->dis <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1604	1734	
==>t unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catf <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1604	1734	
==>t unless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catf <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7364	7473	
==>ag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7422	7531	
==>ag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	172	291	
==>put   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method ne <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	172	291	
==>put   $.output handles 'diag';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method ne <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13259	13349	
==>cases</span>:<br />
		<span class="tests_ok"><tmpl_var name=ok> ok</span>,
		<span class="t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8869	9012	
==>dir( $inst_pkg->package )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            system( qq[ $^X $pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5495	5616	
==>>{flags}[-1],
      family => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis,
    }, $cl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1327	1427	
==>rl -wne '/^sub (p6_\S+)/ and print(" " x 7,$1,"\n");'
our @CARP_NOT = (__PACKAGE__);
my $ROOT = "Perl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	468	597	
==>\$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	462	591	
==>\$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9357	9504	
==>},
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9357	9504	
==>},
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	674	783	
==>symbols:
    # (None Yet)

    # Attributes of every Relation::Example::Heading object:
    has Mapping %!attr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6930	7020	
==>lf->{dups} = Set::Object->new( $dup_finder->duplicate_nodes($prog) );

	my $main = $self->r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25081	25178	
==>age class is pure and deterministic,
such that all of its class and object methods will each retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25081	25178	
==>age class is pure and deterministic,
such that all of its class and object methods will each retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21028	21134	
==>s.  Your package or program can be distributed with one or more
resource files containing text for users, a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21028	21134	
==>s.  Your package or program can be distributed with one or more
resource files containing text for users, a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13135	13274	
==>at( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X::pos)=($X:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14356	14465	
==>ig{_exe};
	}
       $exe = '' unless defined $exe;

	# This doesn't absolutize the path: beware of future chdi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8855	8986	
==>hr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8855	8986	
==>hr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "s <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	423	578	
==>$self->set_value('@:slots', []);
        },        
        methods => {
            'array_fetch' => sub { # evaluated in rvalue contexxt
                m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	893	996	
==>END__

=pod

=head1 NAME

reference - the core reference type

=head1 METHODS

=over 4

=item B<new (~ty <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6842	7008	
==>1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6842	7008	
==>1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX ne <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1061	1157	
==>lter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1061	1157	
==>lter::Simple::Compile sub { ... };

=head1 DESCRIPTION

This module lets you write B<Module::Comp <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1063	1184	
==>ms to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering rebuild... " if $Config{verbose <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	615	712	
==>flavor, however, it is
not pure since it uses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Sch <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5815	5973	
==>ub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last un <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5815	5973	
==>ub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call::filter_read();
            last un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4384	4482	
==>$var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4569	4667	
==>$var = emit(get_data($_[0], '$<variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3826	3936	
==>gexp::Parser::anyof;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg, @da <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3721	3837	
==>ort {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3721	3837	
==>ort {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $URL_ENCODING {
        when 'iso-8859 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	123	278	
==>vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

sub Makefile { $_[0] }

my %seen = ();

sub prompt {
    shift <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4762	4869	
==>) = @_;

    local ($\, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_results($tot, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22922	23025	
==>f the main distinctions of this approach over similar packages is that
text is always looked up by a key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22922	23025	
==>f the main distinctions of this approach over similar packages is that
text is always looked up by a key <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25332	25443	
==><AtomEscape>
    | <CharacterClass>
    | <'('> <Disjunction> <')'>
    | <'(?:'> <Disjunction> <')'>
    | <'(? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17964	18061	
==>m

This header should contain an Internet e-mail address for the human
user who controls the reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17964	18061	
==>m

This header should contain an Internet e-mail address for the human
user who controls the reque <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	602	695	
==>l::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	602	695	
==>l::Type { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	49	144	
==>-----------------------------------------------------------
## attributes

has $.node is rw;

ha <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	49	144	
==>-----------------------------------------------------------
## attributes

has $.node is rw;

ha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22954	23051	
==>ber tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute names <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27506	27603	
==>ber tuples of
the Relation; each Set member is a Mapping whose keys and values are
attribute names <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4011	4151	
==>ocess_list {
  my $tmpl = HTML::Template->new(filehandle => *DATA, die_on_bad_params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22815	22917	
==>n all of the available details depending on the
intended viewer.

=head2 Compared to Other Solutions

O <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22815	22917	
==>n all of the available details depending on the
intended viewer.

=head2 Compared to Other Solutions

O <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	362	498	
==>:Dumper;
    
    my %__classes__ = map { $_ => undef } 
        qw/
        num bit str symbol nil type  
        list hash reference bl <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	203	336	
==>real
# precompiled AST of Prelude.pm.

our %Config;
our $TEMP_PRELUDE = "Prelude.pm"; # XXX: move this to config.yml?
END { unlink $TE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25983	26117	
==>) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $self = shift;
    return;
  }
}


{
  package Regexp::Parser::flags;
  push @ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	192	312	
==>e Log::Message::Simple    qw[:STD];

use base 'Object::Accessor';

=head1 METHODS

=head2 $meta = JIB::Meta->new( file => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	165	277	
==>ry);

use Pugs::Grammar::Infix;

# TODO - generate AST
# TODO - prefix:{'+'}
# TODO - ~ ? 

sub add_rule {
    my <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2041	2174	
==>=> {
    attributes => [
        '$.passed',
        '$.number',
        '$.diagnostic',
        '$.description',
    ],
    submethod <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6684	6782	
==>a document identified by a URL and stores it in the file. The
return value is the HTTP response cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6684	6782	
==>a document identified by a URL and stores it in the file. The
return value is the HTTP response cod <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4990	5090	
==>perclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7658	7758	
==>perclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_precen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	521	623	
==>aramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2049	2151	
==>aramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key!) returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22430	22524	
==>Generally, when a program package would return a code-key to indicate a
condition, often it wil <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22430	22524	
==>Generally, when a program package would return a code-key to indicate a
condition, often it wil <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5723	5948	
==>le modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6187	6412	
==>le modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                fo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	258	732	
==>2 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	258	732	
==>2 0
#          2 C            19 T            36 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3582	3760	
==>s!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND co <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4046	4224	
==>s!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND co <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	983	1078	
==>T EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	983	1078	
==>T EDIT.  pugsbug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11000	11124	
==>C)) --> "\\r", {[C] = "\r"}, !.
p5_simple_escape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !. %# XXX - more

p6_simple_escap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1852	1966	
==>e}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1992	2106	
==>e}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@;
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	96	190	
==>ystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	96	190	
==>ystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $data <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	446	546	
==>er_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	446	546	
==>er_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: me <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2387	2689	
==>('$accum'),
                    ),
                ),
                Val(
                    Thunk(
                        App(
                            Sym('&repeatedly_apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	509	621	
==>$s eq '$!';

    substr($s,1) =~ s/ ([^a-zA-Z0-9_:]) / '_'.ord($1).'_' /xge;
    return $s;
}

sub _not_imp <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1246	1350	
==>y the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> ju <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1246	1350	
==>y the compiler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> ju <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7276	7382	
==>ss_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_with_pr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25515	25617	
==>ibute is a column, but a Relation::Example is not a table.

The Relation::Example class is pure and det <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2418	2543	
==>ri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = . <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2418	2543	
==>ri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $headers = . <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	810	942	
==>time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5) <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	810	942	
==>time() - $time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5) <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	168	263	
==>----------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ---------------------- <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	168	263	
==>----------------------
#  !!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ---------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15235	15361	
==>1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15514	15640	
==>1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         ruleop::greedy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	463	567	
==>name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	463	567	
==>name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class->create($name, $ve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20351	20460	
==>type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use it by
creating obje <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24903	25012	
==>type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use it by
creating obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	603	720	
==>0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	603	720	
==>0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    retu <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	195	283	
==>!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------------------------ <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	195	283	
==>!WARNING!!  UGLY, NON-COMMENTED  !!WARNING!!
# ------------------------------------------ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3902	4023	
==>\\ \\ /gm;
#
#    chomp $file;
    
#    open FH, "> $fname.tex" or die "can not open '$fname.tex' for writing";
#    prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	481	647	
==>ift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	481	647	
==>ift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        delete $opt{fi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1688	1795	
==>TestBuilder->FETCH('::Test')->FETCH('::Fail')->new(
                '$.description' => $params{'$.descriptio <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4107	4195	
==>824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4107	4195	
==>824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16( <==
2	/Users/nnunley/pugs/util/package-osx.pl	3665	3768	
==>cal/man/man3/Perl6::API.3pm
        /usr/local/man/man3/Perl6::Bible.3pm
        /usr/local/man/man3/Per <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2212	2362	
==>($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2212	2362	
==>($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3683	3830	
==>my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3876	4023	
==>my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3602	3706	
==>= $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3602	3706	
==>= $self.difference($other);
    say "One diff: "~$one_diff.stringify if $DEBUG;
    my $two_diff = $other <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19545	19646	
==>nded use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  T <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24097	24198	
==>nded use of a L<Set> class; a Relation is like a Set that exists
over N dimensions rather than one.  T <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2824	2918	
==>n> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2824	2918	
==>n> <ws>? <ProductionRule>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() } <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3101	3200	
==>ent_expr>? }
rule interpolated_hash     { \% <name> <element_expr>? }
# XXX - kludge
rule element_ex <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2454	2567	
==>em L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder fo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2454	2567	
==>em L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder fo <==
2	/Users/nnunley/pugs/util/testgraph.pl	329	426	
==>elp};

my $yamlfile = shift || 'tests.yml';

open(my $yamlfh, '<', $yamlfile) or die "Couldn't ope <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3144	3244	
==>eptible to related-key attacks.

This means that you should strive to use only truly random keys; Per <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3144	3244	
==>eptible to related-key attacks.

This means that you should strive to use only truly random keys; Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4439	4539	
==>es Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4439	4539	
==>es Locale::KeyedText::L::en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	783	891	
==>Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	783	891	
==>Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/s <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	117	219	
==>$in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$name =~ s/\..*$//;
my @path = grep {!/^src$|^ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22254	22352	
==>Perl 6

=head1 VERSION

This document describes Relation version 0.1.0.

It also describes the same <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16460	16587	
==>d give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16460	16587	
==>d give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25372	25474	
==>system following the terms of the GPL for Rosetta and the licenses
of the other components concerned, p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25372	25474	
==>system following the terms of the GPL for Rosetta and the licenses
of the other components concerned, p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5458	5575	
==>d.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5458	5575	
==>d.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17610	17723	
==>x == seen == ok.


There is one final item, the details.

  details           an array ref reporting the result of <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2530	2639	
==>oblem of supplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - see " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2435	2541	
==>oblem of supplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - see " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1271	1366	
==>eenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time people <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1271	1366	
==>eenExt> is a role which installs a event handler listening
for all C<PRIVMSG>s. Each time people <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	707	817	
==>ift;
    $$self = shift;
  }

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIPTION

Provid <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19288	19391	
==>de,wantarray);
    eval_p5_log_error($code,$@) if $@;
    return(@res);
}
sub number_the_lines {
    my( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5035	5225	
==>er_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5035	5225	
==>er_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14996	15099	
==>.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $obj <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14996	15099	
==>.

- `new( object => 1 )`

Creates a span with a single element. This is the same as `new( start => $obj <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3810	3992	
==>.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3810	3992	
==>.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4441	4553	
==>d code, do I need
    #      current_pragma_value or caller_pragma_value?
    #      I'm guessing "current" becau <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	634	777	
==>substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	610	746	
==>substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 } <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	45	153	
==>INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.r <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	45	153	
==>INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33002	33106	
==>ames> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each eleme <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33002	33106	
==>ames> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each eleme <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	512	630	
==>() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Sel <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	512	630	
==>() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but true;
	}
	return;
}

=head1 TITLE

Log::Sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6362	6484	
==>ically part of the API, most ciphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6362	6484	
==>ically part of the API, most ciphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3584	3719	
==>=$parrot_path
    mklivecd.pl takes --parrot-path as the root of an Parrot source directory.
  --pge=$pge
    mklivecd.pl takes --pge as <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7700	7799	
==>dler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7700	7799	
==>dler<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1186	1442	
==>[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1186	1442	
==>[ which isn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20457	20556	
==>bcdf32beec15";

The rationale of this is that randoms strings are usally left alone by
compilers. Af <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20457	20556	
==>bcdf32beec15";

The rationale of this is that randoms strings are usally left alone by
compilers. Af <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36273	36362	
==>s
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by transl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36273	36362	
==>s
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'].  This method is used
internally by transl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5830	5938	
==>truly must be implemented is the 
one that actually enciphers the data.  They may choose, however, to overrid <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5830	5938	
==>truly must be implemented is the 
one that actually enciphers the data.  They may choose, however, to overrid <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1807	1975	
==>l => sub {
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                $self->_hash_vivifyElem($idx)->scalar_st <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15380	15581	
==>2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18857	19058	
==>2 {
        $r1 = $r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) re <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	879	975	
==>s a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	879	975	
==>s a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C<Perl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4064	4164	
==>ring>);

This class method constructs a new cipher object.  The options passed to the 
C<new> constru <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4064	4164	
==>ring>);

This class method constructs a new cipher object.  The options passed to the 
C<new> constru <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8475	8569	
==>d for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when interpo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8475	8569	
==>d for modifiers.

=item I<end_element ('line_interpolation')>

This event is fired when interpo <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2582	2680	
==>rogram is Free Software, and may be used, distributed and modified under 
the same terms as Perl it <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2582	2680	
==>rogram is Free Software, and may be used, distributed and modified under 
the same terms as Perl it <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22172	22265	
==>'> <CaseClauses>? <DefaultClause> <CaseClauses>? <'}'>
}
rule CaseClauses :words {  # see 12.1 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3507	3631	
==>defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3507	3631	
==>defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7029	7145	
==>ie "Regexp compilation bug";
  }
}
{
  # \s \S
  package Regexp::Parser::space;
  sub emit {
    my($o)=@_;
    my $r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	55	171	
==>:
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Ins <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7920	8030	
==>ilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infini <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7920	8030	
==>ilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infini <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4566	4662	
==>(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4566	4662	
==>(:16($2)+&63)*64+(:16($3)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(E[\dA-F])%([8-9AB][\dA-F <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14094	14215	
==>enting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14094	14215	
==>enting 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11003	11169	
==>nels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11003	11169	
==>nels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($connected) {
        $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4886	5018	
==>runcore}{$cat} }
      ];
    }

    $runcores{$runcore} = [
      map {{
        catname => $_,
        smokes  => $runcores{$runcor <==
2	/Users/nnunley/pugs/util/config_h.pl	660	767	
==>>) {
    /version (\S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#ifdef PUGS_VERSION
#undef PUGS <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13979	14088	
==>ld other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13979	14088	
==>ld other heredocs from the
# same line.
sub pmc_fold_here {
    my $class = shift;
    my $result = "$2~~~$3$4 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4143	4226	
==>nterface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4143	4226	
==>nterface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14230	14341	
==>, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14230	14341	
==>, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would e <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1231	1325	
==>-------------------------

Since you are using Microsoft Windows, you will need the 'nmake' uti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1071	1165	
==>-------------------------

Since you are using Microsoft Windows, you will need the 'nmake' uti <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3648	3791	
==>./xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3648	3791	
==>./xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2974	3109	
==>_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $round_up {
                $x_round = round_up_symmetric($x) <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4661	4785	
==>ontent;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4661	4785	
==>ontent;

  if (mirror("http://www.sn.no/", "foo") == ???) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4841	4989	
==>s  => closure::params->new(symbol->new('&dispatcher' => 'block')),
            returns => 'opaque' 
        ),
        sub {
            my $e = shif <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25646	25727	
==>,_,_,_,_,_,_,_,_))).
flag_m(amat(_,flgs(_,m,_,_,_,_,_,_,_,_))).
flag_s(amat(_,flgs <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6681	6797	
==>qw/node/;

package comb;
use base qw/node/;

package ide;
use base qw/node/;

package let;
use base qw/node/;

packag <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1642	1788	
==>am<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1642	1788	
==>am<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span::Int' | 'Span::Code' )
        {
            $.sp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	772	873	
==>ring individual bits.  Also note that the 
Cipher API operates at the byte level, not the character le <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	772	873	
==>ring individual bits.  Also note that the 
Cipher API operates at the byte level, not the character le <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1665	1806	
==>$chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $c <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1665	1806	
==>$chunk ~~ s:P5/[\r\n\s]+$//;
        if $chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $c <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2441	2591	
==>ite the data into the available list
                ### XXX temp file, then mv
                my @list = LoadFile( $Available );
                push <==
2	/Users/nnunley/pugs/util/importgraph.pl	1429	1551	
==>ub setup_mod {
  my $type = shift;
  my $name = shift;
  my $regexp = join '|', map {
    UNIVERSAL::isa($_, 'Regexp') ? $_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6077	6171	
==>ill not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6077	6171	
==>ill not be necessary to write these 
methods yourself; in particular, L<Cipher::Block> and L<Ci <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22279	22372	
==>E<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22279	22372	
==>E<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optionally us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20954	21055	
==>e that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20954	21055	
==>e that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8958	9069	
==>rator hack
  my $file_key =  $relative_file;
  $file_key =~ s#\\#/#g;

  $relative_file =~ s/t$/html/;
  
  my $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26099	26191	
==>ify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rmSomewhere(Re,F0,_F1,[],_B1,E0,E1),
  mat <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5102	5200	
==>a Prelude.hs fallback or a Prelude.pm.yml file (written to stdout),
to be loaded by Run.hs.

When p <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1934	2025	
==>args)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as arguments.
Note tha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1058	1171	
==>$got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1116	1229	
==>$got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deep <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5609	5709	
==>echook_hook;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 npar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3198	3331	
==>ree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3198	3331	
==>ree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
} <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2162	2280	
==>rn $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2162	2280	
==>rn $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.equal($other);
    return $rv;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4758	4880	
==>nds);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub ski <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4816	4938	
==>nds);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub ski <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	421	536	
==>self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ /Build.PL$/i ) {
        $self->Build->write;
    } <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	441	547	
==>self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ /Build.PL$/i) {
	$self->Build->write;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4261	4390	
==>);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    i <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4319	4448	
==>);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8506	8616	
==>thod intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8506	8616	
==>thod intersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17120	17245	
==>([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13541	13666	
==>([.=:]) (\^?) (.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        i <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2288	2464	
==>651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signature fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2108	2254	
==>};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2108	2254	
==>};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	979	1059	
==>:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	979	1059	
==>:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\.\.?\Z(?!\n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12938	13059	
==>m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     : <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12938	13059	
==>m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     : <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3426	3525	
==>TP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3426	3525	
==>TP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237 <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	91	207	
==>rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>* <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	91	207	
==>rule sp {
    <[ ]>
}

rule id {
    <[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>* <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	751	906	
==>returns Hash is
export{
    my %terms;
    for 1 .. $sizeof_crowd {
        my $phrase = finger @x;
       %terms{$phrase}++
    }
    %terms
}

sub addtoli <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	279	390	
==>vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	279	390	
==>vars qw( @rule_terms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4753	4861	
==>Array::splice(@array, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array> := &Array::splic <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	282	388	
==>Array::splice(@array, @array.elems, 0, @values);
   @array.elems;
 }
 &Array::shift<Array> := &Array::splic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26258	26355	
==>ranty for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26258	26355	
==>ranty for it.

While it is by no means required, the copyright holders of Rosetta would
appreciate <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12125	12228	
==>>push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12125	12228	
==>>push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map { "image/$_" }, <gif png tiff <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36583	36681	
==>urns an equivalent human readable text message
string; this assumes that a Template corresponding t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36583	36681	
==>urns an equivalent human readable text message
string; this assumes that a Template corresponding t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37861	37956	
==>y the given module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37861	37956	
==>y the given module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2474	2912	
==>t:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example

###########################################################################
###########################################################################
=x

class Relation::Example-0.1.0 {

    # External packages used by the Relatio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1256	1357	
==>= shift;

		(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base qw/Blondie::Ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3948	4072	
==>= ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3948	4072	
==>= ${$tree}{fixity};
            $fixity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4636	4736	
==>->orig);
}

sub reduce_val {
	my $self = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24591	24731	
==>re( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24870	25010	
==>re( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1045	1140	
==>st say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, th <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1045	1140	
==>st say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly more efficient, th <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3012	3130	
==>hod dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An obje <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3012	3130	
==>hod dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7972	8072	
==>s;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $kill <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7972	8072	
==>s;
    %channels{$_}<users>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $kill <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1822	1935	
==>)/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    p <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1822	1935	
==>)/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	616	738	
==>ame> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	616	738	
==>ame> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36215	36304	
==>MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppF <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36215	36304	
==>MyLib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppF <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14375	14467	
==>ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic? <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14375	14467	
==>ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic? <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	162	268	
==>cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	162	268	
==>cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN;
    print cipher();

    m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	581	798	
==>hift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	581	798	
==>hift;
                    $buffer ~= "=over $indent\n\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4185	4287	
==>s
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns positional
c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4185	4287	
==>s
succeeded or not.

=head2 @{}

When used as an array reference, the match object returns positional
c <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8702	8811	
==>parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8702	8811	
==>parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &contin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35654	35751	
==>ata: array reference of any number of objects

Ender: I<close>

=head2 close

Family: close

Types <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11232	11349	
==>ch it
    passed, this page would report 100 % test passes.)
  </p>

  <table>
    <tmpl_loop name=runcores>
      <tr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1504	1614	
==>rom() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $p <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10053	10152	
==>equence {  # see 7.8.4
      <'u'> <HexDigit> <HexDigit> <HexDigit> <HexDigit>
}
rule RegularExpress <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4825	4914	
==>provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4965	5054	
==>provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5093	5232	
==>ontiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $arra <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5093	5232	
==>ontiguous => sub { Bool::False },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $arra <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3436	3529	
==>ndamentally object-oriented; the procedural and functional 
interfaces are layers on top of th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3436	3529	
==>ndamentally object-oriented; the procedural and functional 
interfaces are layers on top of th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9680	9813	
==>ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{skip};

        my($e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8056	8163	
==>list in (index, value) order, C<pairs> a C<Pair(index, value)>.

C<@array> is considered single dimensional. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1995	2139	
==>[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1917	2056	
==>[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29810	29912	
==>ght parenthesis ')'.  There cannot
be one without a matching left parenthesis '('; if there is an extra <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1120	1219	
==>lient/" . VERSION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp-> <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9198	9297	
==>nd -s $initrd_img == 1024 * $initrd_size },
    using  => sub { system "dd", "if=/dev/zero", "of=$in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1387	1480	
==>pe;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Cont <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1387	1480	
==>pe;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Cont <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2158	2464	
==>$mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2158	2464	
==>$mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= ";"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "</CODE>"                     
                }                        
                when rx:perl5/ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6608	6730	
==>traverse_ast ( %pad<"pType"> );
        $ret = emit_Code( $body, $is_multi, $lvalue, @params, $type );
    }	
    elsif $tr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18286	18381	
==>source module is preprocessed to hide heredocs, since the content
inside heredocs can possibly c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18286	18381	
==>source module is preprocessed to hide heredocs, since the content
inside heredocs can possibly c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19440	19605	
==>print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml(@_);
        $Last_ML_Print = time;
    }
}

sub _bonusmsg {
    my($tot) = @_;

    my $bonusms <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	777	897	
==>defined) {
        $header ~= "Location: " ~ $location;
    }
    else {
        $header ~= "Content-type: " ~ $content_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3544	3697	
==>{

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3403	3550	
==>{
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1068	1183	
==>ge(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# T <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1068	1183	
==>ge(), when start/end are Str - 'a'..'z'
#      - add tests
# TODO - rewrite ops using closures (instead of coro)
# T <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	841	997	
==>es{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	841	997	
==>es{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.names{$name} //= ./newr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5291	5428	
==>$removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of this module
    # to pro <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5291	5428	
==>$removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibility 
    # of the user of this module
    # to pro <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13663	13791	
==>my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      my $v = $f->($noop);
      FAIL_IF_FAILED($v);
      TAILCAL <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6653	6774	
==>_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6653	6774	
==>_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? ' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10420	10566	
==>sses]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_us <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10420	10566	
==>sses]];
                $text = '';
                @classes = grep {$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_us <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	587	711	
==>t>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the buc <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	587	711	
==>t>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the buc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1123	1234	
==>rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1123	1234	
==>rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSIS

  my $grammar = Pugs::Runt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	668	768	
==>q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument < <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	668	768	
==>q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument < <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1350	1526	
==>ass to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1350	1526	
==>ass to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4322	4464	
==>get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4334	4476	
==>get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2617	2729	
==>exact same key twice can compromise both encryptions.

If two different data streams are enciphered with the same <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2617	2729	
==>exact same key twice can compromise both encryptions.

If two different data streams are enciphered with the same <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5890	6002	
==>ethod unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5890	6002	
==>ethod unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

method push ( *@item ) {
    &*push <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1899	2154	
==>se constant OPEN_FILE      => sub {
                                    my($file, $mode) = (@_, '');
                                    my $fh;
                                    open $fh, "$mode" . $file
                                        or error( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16038	16146	
==>section( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19515	19623	
==>section( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    return Relati <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6026	6145	
==>urrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6026	6145	
==>urrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3118	3260	
==>ingle( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3118	3260	
==>ingle( @list ); 
    }

    method from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5905	6024	
==>ng methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient A <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5905	6024	
==>ng methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient A <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6698	6805	
==>list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6698	6805	
==>list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside text? 

One <==
2	/Users/nnunley/pugs/util/package-osx.pl	2932	3058	
==>);
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/local/lib/libreadlin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26287	26425	
==>family => 'flags',
      type => 'flags',
      on => $on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39871	39963	
==>thod is a generic binary relational operator that takes
another Relation::Example as its C<$o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	39	138	
==>::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	39	138	
==>::Message-0.1;

our $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_head <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5299	5430	
==>[];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5299	5430	
==>[];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $?SE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12950	13085	
==>RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6425	6560	
==>RBRACE, 'x') if ${&Rx} !~ m{ \G ( [^\}]* ) \} }xgc;
      $num = $1;
      $brace = 1;
    }
    else {
      my $good = ($num =~ s/^([a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2999	3142	
==>$protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3463	3606	
==>$protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4945	5068	
==>(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8422	8545	
==>(Str) of Code $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	813	942	
==>se Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	813	942	
==>se Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13891	13991	
==>`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13949	14049	
==>`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1649	1772	
==>I}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure o <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1649	1772	
==>I}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self->init_pugs;
    $self->eval_pugs($code);

    # now try to figure o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9944	10051	
==>(@$st and @{ $st->[-1] } and $st->[-1][-1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27775	27877	
==>er object and a boolean as arguments.
The boolean is true if the flag is going to be turned on, and fal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	291	387	
==>r::Perl6::statements> <?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs::Compiler::Rule->c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19080	19186	
==>de.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = My <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19080	19186	
==>de.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = My <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14732	14876	
==>cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14726	14870	
==>cmd eq '.' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" a <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	639	739	
==>ws you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	639	739	
==>ws you to insert Perl 6 source code directly 
I<inline> in a Perl 5 script or module.

=head1 CAVEATS <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34269	34373	
==>!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translator object.
The Se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34269	34373	
==>!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Translator object.
The Se <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2153	2265	
==>x

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Base <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2153	2265	
==>x

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Base <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	596	717	
==>e Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math::Basic:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5619	5738	
==>rint META $self->_dump;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    requi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2490	2586	
==>s, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errmsg} = sprintf $err <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5313	5500	
==>dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir u <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5313	5500	
==>dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6752	6926	
==>urn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6752	6926	
==>urn;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        my $ret = $a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2994	3119	
==>ld} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2994	3119	
==>ld} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	929	1085	
==>);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	929	1085	
==>);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($message <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8021	8128	
==>t fired will be
any text which follows the item.

=item I<end_element ('item')>

This event is fired once th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8021	8128	
==>t fired will be
any text which follows the item.

=item I<end_element ('item')>

This event is fired once th <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1631	1740	
==>d all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1631	1740	
==>d all be done better so the response doesn't live in
  # memory all at once

  if ($head ~~ rx:perl5{^HTTP\/\d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9898	10003	
==>ned with union, intersection, difference, and a few
other operations.

This class also provides methods fo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9898	10003	
==>ned with union, intersection, difference, and a few
other operations.

This class also provides methods fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4808	4906	
==>eenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5058	5156	
==>eenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://d <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	788	901	
==>m here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here to <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	788	901	
==>m here at somefile.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here to <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4545	4642	
==>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4545	4642	
==>.

=item C<cipher>

    push @output, $cipher_obj.cipher($data);

Enciphers or deciphers the given <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12428	12549	
==>$in, $out, $err, $pid);
    }
}


role Iter {
    multi sub prefix:<=> () is primitive { self.shift() }
    
    method sh <==
2	/Users/nnunley/pugs/util/config_h.pl	744	839	
==>PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef PUGS_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	889	979	
==>X::ValuePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::St <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12942	13083	
==>" worked, so I
# added the .shift() declaration here.  --iblech
class Str does Iter {
    method shift () is primitive { =open(self) }

    me <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5157	5284	
==>$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re)=@_;
    my $noop = $o->noop;
    my $qr = qr/\G($re)/;
    sub {
      my $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13932	14047	
==>rce;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13932	14047	
==>rce;
}

# Fold a heredoc's content but don't fold other heredocs from the
# same line.
sub pmc_fold_here {
    my $c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	49	164	
==>Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $IN <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	49	164	
==>Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $IN <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	747	872	
==>e_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	747	872	
==>e_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	852	984	
==>my $message = shift;
        return $table  if $message eq 'message-map';        
        
        # alias prototype to some common n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1163	1252	
==>oken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1638	1753	
==>d found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub : <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1843	1958	
==>d found for $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2055	2172	
==>_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2055	2172	
==>_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1095	1217	
==>mediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1300	1422	
==>mediate_statement_exec: " . $@
            if $@;
        # print "immediate_statement_exec: CODE[ $code ]\n";
        retu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	155	259	
==>ON = '0.02';

@ISA = qw(Exporter);
@EXPORT = qw(assert);


=head1 NAME

Test::Harness::Assert - simple as <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4256	4380	
==>3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@inde <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4256	4380	
==>3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@inde <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	992	1097	
==>ub set_as_failed {
    my($o)=@_;
    $o->set(0,"",[],{});
    return $o;
}
sub set_str {my($o,$s)=@_;$$o- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17041	17141	
==>tem $h.content_length

A decimal number indicating the size in bytes of the message content.

=item $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17041	17141	
==>tem $h.content_length

A decimal number indicating the size in bytes of the message content.

=item $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19807	19910	
==>PAREN)
    } until $tree->[-1]->{down};

    $self->{nparen} = $tree->[-1]->nparen
      if $self->famil <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	609	711	
==>erl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic=' ~ $0 ~ '">' ~ $0 ~ '</a>'}/;

given $action {
    when ' <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2831	2949	
==>ub _dump {
    my $self    = shift;
    my $package = ref( $self->_top );
    my $version = $self->_top->VERSION;
    m <==
2	/Users/nnunley/pugs/util/package-osx.pl	5679	5768	
==>l/man/man3/Perl6::Overview::Control.3
        /usr/local/man/man3/Perl6::Overview::Control <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4719	4850	
==>}
}

my $source = q|
($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	284	407	
==>nt);
use Inline C=>'Config',
	INC => `pkg-config --cflags parrot`,
	LIBS => `pkg-config --libs parrot`,
	TYPEMAPS=>'typemap' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17537	17709	
==>sh_content($t);
                my $syn_ref = $syn_indexs->{ substr($syn,0,1) }{$syn};
                $syn_ref->{tests}++;

                my $found;
                if ($ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13351	13450	
==>index (eval $loc failed: $@)" if $@;
  $total_links += $links;
  $total_files++;
  $outfile->print($ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3965	4074	
==>$res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3965	4074	
==>$res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) return <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1296	1404	
==>s $$o->{'RULE'}; # REMOVE THIS NOW
    $s .= "<".($o?"1":"0").",\"$os\",[";
    for (@{$o}) { $s .= "\n".$o-> <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	853	960	
==>oncurrency();
$Test::Harness::Verbose  = 1;
$Config{"output-file"} ||= "tests.yml";
$Config{"recurse"} = 1 i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6904	7030	
==>sh @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::is <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7368	7494	
==>sh @maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::is <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16552	16672	
==>le MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loade <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16552	16672	
==>le MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this module is loade <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	358	479	
==>e) = split /\//, $f;
    next if not -e "$dir/$file.expected";
    unlink "$file.out";
    system "$pugs $f.p6 > $file.out <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6336	6444	
==>ree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a si <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6336	6444	
==>ree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add a si <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1029	1142	
==>ay) ?? $wanted !! [$wanted];

  return sub($input) {
    return
      unless defined $input;
    my $next = head($ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6606	6708	
==>re as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basi <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6606	6708	
==>re as I develop this.

- how should I handle blocks of text which seem to still be inside a list?

Basi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9472	9571	
==>@statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3297	3396	
==>@statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9741	9852	
==>,
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9741	9852	
==>,
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_name, ' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3101	3239	
==>the .jib
    unless( $meta ) {
        
        ### installed packages don't have a 'file' method, but they /should/
        ### have a met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1501	1617	
==>::Dependency->new_from_struct( struct => $obj->depends )
        ) or return;
    }
    
    return $obj;
}

=head2 $ <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	40	140	
==>or derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	58	158	
==>or derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr05a.pl
# Only handles operators: + - <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17193	17339	
==>p_all          if the whole test was skipped, this will 
                      contain the reason.

  ok                number of tests which passe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	794	886	
==>mp->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	794	886	
==>mp->export_to_level(1,@_);
	eval "require $dumper->[0]";
	die "install $dumper->[0] to enable <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20921	21041	
==>o is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile bas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20921	21041	
==>o is add this line to your
Makefile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile bas <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	262	386	
==>ty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	262	386	
==>ty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
method start_is_closed () { r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24723	24823	
==>t indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invok <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24723	24823	
==>t indicates a failure is to throw an
exception; most often this is due to invalid input.  If an invok <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16439	16545	
==>5, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribute it and/or m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16497	16603	
==>5, 2006. Audrey Tang. All rights reserved.

This program is free software; you can redistribute it and/or m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1019	1171	
==>names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Keye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1019	1171	
==>names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::Keye <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	14	125	
==>::Simple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	14	125	
==>::Simple::Compile;

use strict;
use warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	178	307	
==>od _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	178	307	
==>od _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39755	39852	
==>ware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public Li <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39755	39852	
==>ware; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public Li <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2439	2533	
==>nfess "Attribute (" . $name->to_str->to_native . ") already exists";
    return $self->[2]->sto <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8833	8957	
==>_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8891	9015	
==>_of_tests_failed = 0;
    $Test::num_of_tests_badpass = 0;
    $Test::num_of_tests_planned = undef;
    $Test::force_todo_tes <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6395	6505	
==>node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6395	6505	
==>node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4992	5106	
==>RING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4992	5106	
==>RING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9138	9246	
==>"before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9138	9246	
==>"before" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	96	193	
==>acking)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	96	193	
==>acking)
# see: RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9365	9460	
==>y{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9365	9460	
==>y{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is export
{ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	527	684	
==>> %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	527	684	
==>> %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3628	3721	
==>BUGS

Documentation lacks the actual algorithm description. See links or read
the source (ther <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3628	3721	
==>BUGS

Documentation lacks the actual algorithm description. See links or read
the source (ther <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	267	392	
==>it ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	267	392	
==>it ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7784	7882	
==>0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7784	7882	
==>0, $span0.new( start => $span1, end => $span1 );
}

method compare ($self: $span is copy) returns i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6293	6410	
==>[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6281	6398	
==>[1] );
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3988	4108	
==>me ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3988	4108	
==>me ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $event {
    my ($chan, $topic) = split " ", $ev <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1086	1174	
==>oken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12164	12271	
==>rt, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12164	12271	
==>rt, before => $dtend );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	273	405	
==>ch;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	273	405	
==>ch;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( keys %h ) {
        $h{$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22684	22780	
==>ation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22684	22780	
==>ation is pending.>

=head2 The Rosetta::Interface::Command Class

I<This documentation is pending <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4862	4986	
==>clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4862	4986	
==>clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span.end }

method set_e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1087	1258	
==>r>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1087	1258	
==>r>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::st <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20668	20789	
==>META->new()" if $name =~ /\@/;
    return "\$${ROOT}::Hash::META->new()" if $name =~ /\%/;
    Carp::confess "bug >$name<" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1600	1732	
==>h_variable';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? \( <rule> \) 
        
        { return { name <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	903	998	
==>ive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::Val <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2897	2996	
==>$self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2897	2996	
==>$self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $self. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6269	6374	
==>, 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6269	6374	
==>, 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6884	7007	
==>rror in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{capture} );
    print "ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6896	7019	
==>rror in rule '$_[0]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{capture} );
    print "ge <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	501	607	
==>@{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	501	607	
==>@{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6023	6154	
==>ge as absolute
        $pass = ($got <= $range) && ($got >= - $range);
    } else {
        my $diff = $got - $expected;
        $pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8644	8738	
==>ll be caught later.
    return ::($module_name).does(Package);
}

method load_template_module ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8644	8738	
==>ll be caught later.
    return ::($module_name).does(Package);
}

method load_template_module ( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8626	8728	
==>t cannot call singleton method defined in Foo';  

## make instances

my $iFoo = $Foo->new;
is($iFoo->i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	131	254	
==>as Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	131	254	
==>as Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLengths =
    ( 31, 28 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11334	11443	
==>(\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11334	11443	
==>(\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3410	3515	
==>nstructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3410	3515	
==>nstructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::$data) \{ \$s eq '$ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3748	3841	
==>arse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<g <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3748	3841	
==>arse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<lt>iblech@web.deE<g <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3667	3806	
==>_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3667	3806	
==>_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $op <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3036	3142	
==>};
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3036	3142	
==>};
    @intersect = @intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5862	6002	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_wor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6055	6195	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_wor <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19767	19880	
==>s immutable.  The value of
a Relation object is determined when it is constructed, and the object can
not be chang <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24319	24432	
==>s immutable.  The value of
a Relation object is determined when it is constructed, and the object can
not be chang <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	2002	2124	
==>Test(yylex => $lex, yyerror => sub {});

    $out=$p->YYParse;

    print Dumper $out;

    undef $p;
    undef(&Tes <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	614	726	
==>e(@rv);
        });
    };
}

1;

__END__

=head1 NAME 

re::override::PCRE - Perl-compatible regular expressions <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1353	1472	
==>2,$remainder) = Text::Balanced::extract_delimited( "/" . $remainder, "/" );
    $extracted2 = substr( $extracted2, 1, -1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2458	2561	
==>ct_typed_value($_->type, Blondie::TypeSafe::Type::Std->new("Type")) } $from, $to )
		),
	);
}

sub do_ca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	11	100	
==>rl6::Core::Num;

use Perl6::Core::Type::Comparable;
use Perl6::Core::Bit;
use Perl6::Core: <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8701	8835	
==>xt =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_num <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8701	8835	
==>xt =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_num <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4079	4190	
==>h other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4079	4190	
==>h other.

- empty_set()

- universal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6553	6672	
==>already loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6553	6672	
==>already loaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	425	546	
==>d BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	425	546	
==>d BUILD {
  $.net   //= FA::DFA::Node.new;
  $.state //= $.net;
}

multi method reset {
  $.state = $.net;
}

multi method <==
2	/Users/nnunley/pugs/util/version_h.pl	1348	1479	
==>\d+/) {
            $source_depot = '/'.$source_depot; # convert /svk/trunk to //svk/trunk
            if (my @info = qx/svk info $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4883	5029	
==>x:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4883	5029	
==>x:<+> infix:<*>'
        , 
        'AST +/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30746	30845	
==>use F<__object__> doesn't inherit from anywhere.  You want to go along
the I<object>'s inheritance t <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15016	15114	
==>Q: Can't be LChars because we don't go into "language" mode unless there's
a specific language decl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3559	3706	
==>rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3547	3694	
==>rul\n" .
        "$_[1] ||\n" .
        "$_[1]   1\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	48	148	
==>e strict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	45	141	
==>e strict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15479	15617	
==>fined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> St <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15479	15617	
==>fined $topic {
        enqueue "TOPIC $channel :$topic";
      } else {
        enqueue "TOPIC $channel";
      }
    },
    kick  => -> St <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4150	4294	
==>elf->{lone_not_line} == $self->{line} - 1) ) 
        {
            $result{ok} = 0;
        }

        my $pass = $result{ok};
        $result{t <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	458	553	
==>perl6 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p6" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2018	2131	
==>>pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2018	2131	
==>>pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    return;
}

# Set up in <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1028	1131	
==>ed-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1028	1131	
==>ed-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{
  getstor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1423	1519	
==>hin a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's pr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1423	1519	
==>hin a single call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's pr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1075	1199	
==>ccent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "I <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1075	1199	
==>ccent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2019	2115	
==>ct-serialization format is shared across all runtimes.



=head1 Directory Layout



lib/Pugs/Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1943	2035	
==>ct-serialization format is shared across all runtimes.

=head1 Directory Layout

lib/Pugs/Com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24178	24273	
==>ontrast, Locale::KeyedText does no compile time binding and
will support multiple languages or l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24178	24273	
==>ontrast, Locale::KeyedText does no compile time binding and
will support multiple languages or l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1752	1973	
==>?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1752	1973	
==>?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take qq($k="$esc");
                        } <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13105	13211	
==>or most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13105	13211	
==>or most recurrence sets, this is '-Inf..Inf'.

= ARITHMETIC AND LIST FUNCTIONS

- `negate()`

Returns a rec <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	832	925	
==>lder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is r <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	832	925	
==>lder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	112	231	
==>ree;

has Tree $:type_tree;

method tree ($self:) returns Tree {
    # create the tree lazily ...
    $self.:create_tree <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	874	970	
==>ted as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	874	970	
==>ted as a series of events fired in by
something that C<.does(Perldoc::Sender)>, such as another
C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5186	5295	
==>_quoted>
            { return { double_quoted => $/{'Pugs::Grammar::Term.double_quoted'}->() ,} }
        ) ), <==
2	/Users/nnunley/pugs/util/build_pugs.pl	988	1091	
==>_PRELUDE segment";
    
    print "Build configuration:\n" . PugsBuild::Config->pretty_print;

    my ($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1526	1623	
==>minates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 20 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1526	1623	
==>minates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYRIGHT

Copyright 20 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3782	3981	
==>shift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tm <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3782	3981	
==>shift(@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tm <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5383	5504	
==>extends'>
    | <'long'>
    | <'super'>
    | <'char'>
    | <'final'>
    | <'native'>
    | <'synchronized'>
    | <'cl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2935	3045	
==>mkpath() or error($!), return;
    }

    return 1;
}

### these plural functions seem more confusion than help <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11324	11426	
==>.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11324	11426	
==>.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1407	1515	
==>ugs::Compiler::Rule->compile('[a|b](b)', { ratchet => 1 } );
#print $rpcr2->perl5;
print "Benchmark:\n";
B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2360	2459	
==>um>

=item B<mulitply (x as num) returns num>

=item B<divide (x as num) returns num>

=item B<incre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1205	1331	
==>x name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1205	1331	
==>x name_sec { <-[0..9:.]> <-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12935	13104	
==>_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12935	13104	
==>_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8739	8866	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8932	9059	
==>$rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1531	1736	
==>sg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1531	1736	
==>sg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6044	6168	
==>ntains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6044	6168	
==>ntains ($self: $x ) returns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.n <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14076	14185	
==>my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17553	17662	
==>my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10401	10504	
==>_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into being TODO <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10459	10562	
==>_todo (*@todo_tests) returns Void`

If you have some tests which you would like to force into being TODO <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	723	840	
==>$type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	723	840	
==>$type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9615	9721	
==>ta::Model indicates a failure is to throw an
exception; most often this is due to invalid input.  If an inv <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9615	9721	
==>ta::Model indicates a failure is to throw an
exception; most often this is due to invalid input.  If an inv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7994	8102	
==>1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7994	8102	
==>1.is_empty;
    return -1 if $span0.is_empty;
    return 1  if $span1.is_empty;
    return $span0.compare( $s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	916	1032	
==>nt {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	916	1032	
==>nt {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16092	16211	
==>am[1];     /* Unwarranted chumminess with compiler. */

I don't know.

Internals:

  regnode *regstclass;

Points into - <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14414	14521	
==>terator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14414	14521	
==>terator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= CONSTRUCTORS

- `new( start = <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	608	737	
==>eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	608	737	
==>eq '/' ) { $first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10296	10395	
==>vided and that they are of the correct
container type (eg, hash vs array).  The deferred validations <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10296	10395	
==>vided and that they are of the correct
container type (eg, hash vs array).  The deferred validations <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2675	2803	
==>T;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2892	3020	
==>T;
      }
      else {
        ## print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	533	681	
==>= $target / 2;
    my Int $count  = 1;

    while (abs($f($guess) - $target) > $epsilon) {

        if ($count > $max_iterations) {
            die " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3123	3253	
==>meta ) {
        
        ### installed packages don't have a 'file' method, but they /should/
        ### have a meta object at al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9964	10075	
==>atch;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9958	10069	
==>atch;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$named{'$name'};
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3429	3578	
==>path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3429	3578	
==>path & $base)) { # <<< refactored into junction
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	364	479	
==>-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot.h"
int get_int(Parrot_Int <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	211	322	
==>-config --libs parrot`,
	TYPEMAPS=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode( <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2004	2117	
==>as arguments.
Note that possibly, the event handler is I<not> called immediately -- other
events may be pending pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30168	30264	
==>fic type of this object.  See the object's documentation for
possible values for its type.

=item <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2214	2391	
==>t>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# co <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2214	2391	
==>t>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23981	24141	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24260	24420	
==>$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13389	13498	
==>~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13389	13498	
==>~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5766	5865	
==>r;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5766	5865	
==>r;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a straightforward e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11434	11545	
==>ns only the elements in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11434	11545	
==>ns only the elements in this recurrence that are also in the given recurrence.

- `difference( $recurrence )`

R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	632	742	
==>jects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	632	742	
==>jects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    my $match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	659	784	
==>pture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	659	784	
==>pture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str}}, $_[0]->from, $_[0]->to - $_[0]->f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12363	12471	
==>..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Identifier> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1221	1350	
==>ACKAGE__->add_rule(
        name => 'ANGLE',    # <str>
        assoc => 'left',
        precedence => 'equal',
        other => ' <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	937	1030	
==>_symbol = '\w[\w\d]*';
our $re_condition = '(?:if|elsif|else|unless|while|unless)';
our $re_re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	10883	10979	
==>!heading);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation::Ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8443	8570	
==>:alternation( [ 

        ruleop::null(),

        ruleop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8149	8270	
==>:alternation( [ 
        ruleop::null(),
        ruleop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6310	6418	
==>urn if lc($subpath) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.pm";
        my $pkg = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17962	18053	
==>(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Mi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9533	9648	
==>ed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9591	9706	
==>ed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1798	1907	
==>* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1798	1907	
==>* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	728	851	
==>e Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule_x1    => sub{ $m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28762	28857	
==>bers.........ok
  t/ok................ok
  t/test-harness......ok
  All tests successful.
  File <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8367	8481	
==>(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2192	2306	
==>(@_) };
push @statements, sub { Grammar::Perl6->pod(@_) };
push @statements, sub { Grammar::Perl6->use_v6(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1920	2015	
==>w($type=>$f)->as_p5();
}
if ($repl || (!@eval && !@ARGV && !$compile)) {
    Perl6::Run::OnPerl5 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1514	1654	
==>path is currently more oo than rules, my time
is limited, and there are other bootstrap approaches to rules, so this
file may or may not go a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	37	128	
==>erl6::Core::Type;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Symbol;
use P <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25298	25398	
==>e immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29850	29950	
==>e immutable identity of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1644	1772	
==>azy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1644	1772	
==>azy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5382	5480	
==>[<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\x[b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4655	4780	
==>] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4848	4973	
==>] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        ta <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2507	2630	
==>h as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2507	2630	
==>h as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4720	4844	
==>ion} <=> $a->{pugs_revision} ||
          lc $a->{osname}     cmp lc $b->{osname}     ||
          $b->{timestamp}[0]  <=> $a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13779	13970	
==>{
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 peo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13779	13970	
==>{
                show_error_likely_bad_input( $e );
            }
            else {
                show_add_success_message();
            }
        }

        # Prompt user for id of 3 peo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	499	607	
==>e,@rest)=split(/\t/,$line);
	$value = "" if !defined($value);

	#print STDERR "        \# $line\n";
	#if ($pa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	770	873	
==>e utf8;
use strict;
use warnings;

use Set::Object ();
use Data::Dumper ();
use Storable ();

use Devel: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11834	11973	
==>grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12113	12252	
==>grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21024	21121	
==>grams.  Your package or program can be distributed with one or more
resource files containing text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21024	21121	
==>grams.  Your package or program can be distributed with one or more
resource files containing text <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5543	5705	
==>cond'),
            Param->new('$left_thunk'),
            Param->new('$right_thunk'),
            App->new(
                App->new(
                    Sym->new <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	438	567	
==>tus::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	438	567	
==>tus::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/);
# $FULL_LWP++ if grep {lc($_) eq "http_proxy <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	268	370	
==>.block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_blo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	268	370	
==>.block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_blo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25448	25541	
==>her components concerned, provided that you include the source
code of the other components wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25448	25541	
==>her components concerned, provided that you include the source
code of the other components wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18743	18868	
==>ror(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15164	15289	
==>ror(RPe_LPAREN) if ${&Rx} !~ m{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6007	6134	
==>ait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6007	6134	
==>ait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($path)) {
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6227	6355	
==>ser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = bless {
      rx => $rx,
      flags <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	849	982	
==>name($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/\\n/g; s/\t/\\t/g; s/\r/\\r/g; s/\"/\\"/g;
        print O <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15137	15250	
==>= @_;
    return $S->force_object(anyof_class => upper => $neg, \$how);
  });

  # word POSIX class
  $self->add_h <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1197	1299	
==>p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<inpu <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1197	1299	
==>p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<inpu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1116	1233	
==>f: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1116	1233	
==>f: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2330	2432	
==>( $_[0], '$<ident>' );
    my $program = Pugs::Emitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	952	1087	
==>non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	952	1087	
==>non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_capturing_group' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9784	9889	
==>as the
distinction of being the very first module written for Pugs.

It provides a simple set of common te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9842	9947	
==>as the
distinction of being the very first module written for Pugs.

It provides a simple set of common te <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	170	299	
==>e :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	170	299	
==>e :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace no <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	420	566	
==>?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    meth <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	420	566	
==>?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1154	1272	
==>o Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Rang <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1154	1272	
==>o Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported Media Type',
        416 => 'Request Rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24831	24961	
==>('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21252	21382	
==>('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9017	9130	
==>r->root;

It will be an array reference of objects.

=head2 Getting the OPEN Count

You can access the number capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8683	8788	
==>code("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8683	8788	
==>code("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10935	11030	
==>lly new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10935	11030	
==>lly new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4583	4685	
==>w', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4583	4685	
==>w', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3014	3192	
==>::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            las <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3014	3192	
==>::List) {
            &*push( @ret: @tmp.shift );
            next;
        }
        my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            las <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3246	3351	
==>plit " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curuserna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3246	3351	
==>plit " ", $event<rest>;
      if(normalize(%rest<nickname>) eq normalize($curnick)) {
        ($.curuserna <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23484	23594	
==>>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23484	23594	
==>>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt>(to =E<gt> "...", text =E<gt> "...")> <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	714	839	
==>ep { not defined $nodes{$_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11852	11980	
==>ts, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12131	12259	
==>ts, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "grammar" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5445	5645	
==>> \$_[0],
                from  => \( $match->from ),
                to    => \( $match->from ),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ra <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4943	5055	
==>iledtests), 
           q{ok status jives with $failedtests});

    return $ok;
}

=begin _private

=item B<_all_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2137	2268	
==>nt $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2137	2268	
==>nt $year) returns bool {
    if $year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	537	651	
==>ck if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	537	651	
==>ck if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4956	5086	
==>ompiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimizer => [] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4785	4910	
==>ompiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimizer => [] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1321	1520	
==>op::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1448	1647	
==>op::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1173	1310	
==>Text::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Lo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1173	1310	
==>Text::L::',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Lo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13959	14061	
==>on a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

So <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14017	14119	
==>on a test is to be skipped, you can use this
function to do so.

- `pass (Str $desc?) returns Bool`

So <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1785	1947	
==>urn $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1785	1947	
==>urn $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22527	22619	
==>also provide some variable values to be
interpolated into the user strings; Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22527	22619	
==>also provide some variable values to be
interpolated into the user strings; Locale::KeyedText <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	631	771	
==>@arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	631	771	
==>@arg -> $param, $type {
        if $param ne $type {
            die "Type error: Expecting $type; Got $param";
        }
    }
}

# PILNil : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1964	2063	
==>_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1964	2063	
==>_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_vars{$var_name};
}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	957	1053	
==>p. And the current Regexp::Parser Object
# ast isnt really what we want long-term.  If Perl6::Rul <==
2	/Users/nnunley/pugs/util/run-smoke.pl	426	522	
==>A bundle is available to install at Bundle::Pugs::SmokeKit.
EOF
#'

#
# run-smoke.pl /some/sandbo <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	318	417	
==>engths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	318	417	
==>engths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5019	5169	
==>re that the removed child
    # is no longer connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # an <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5019	5169	
==>re that the removed child
    # is no longer connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2991	3088	
==>tem C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2991	3088	
==>tem C<$q.param()>

This exists as an alias for C<params>.

=item C<$q.param($name)>

Returns the v <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17303	17420	
==>g"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze(pad)
    exp["expr"] = $P0
    if_null $P0, end

    $P0 = n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	875	980	
==>p5-b >= 3 OR p5-b < 2) AND p5-c AND (p5-e OR p5-d)

=cut

### XXX combine with the dependency checker?
sub <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2619	2763	
==>$tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.va <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2619	2763	
==>$tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.va <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	879	995	
==>nsional Newton's method

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;

    use Newton;

    sub f(Num $x) { retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13742	13852	
==>nite object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13742	13852	
==>nite object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of this
    my <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2898	3000	
==>me check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshnes <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2898	3000	
==>me check to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshnes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2260	2430	
==>} }
    | IF exp block 'elsif' exp block 'else' block
        { $_[0]->{out}= { 
            op1 => $_[1], exp1 => $_[2], exp2 => $_[3], 
                          exp3 => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	416	579	
==>}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	416	579	
==>}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1337	1430	
==>ext {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Slur <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1337	1430	
==>ext {
    has Perl::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::Slur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13726	13832	
==>ts, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13726	13832	
==>ts, such as times, temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5565	5671	
==>lement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5565	5671	
==>lement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1950	2241	
==>em');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %even <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1950	2241	
==>em');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %even <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1853	1945	
==>rldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informati <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1853	1945	
==>rldoc::DOM::PI->new({ source => "\n\n=cut"}));

=head1 DESCRIPTION

Well, with that informati <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3286	3385	
==>ctory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3286	3385	
==>ctory, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1484	1577	
==>m/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in % <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1324	1417	
==>m/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in % <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8699	8806	
==>ew(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8699	8806	
==>ew(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parser.parse()($match, &c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12972	13079	
==>nfinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string repr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12972	13079	
==>nfinite.
Returns negative infinite if the recurrence is an empty set.

- `stringify()`

Return a string repr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4901	5071	
==>) } ;\n";
            
    if ( defined $self->{header} ) {
        $s .= $self->{header};
    }
    else {
        $s .=     
            "exp:   NUM  { \$_[0]->{o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4551	4720	
==>ay {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4551	4720	
==>ay {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12354	12460	
==>n unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12633	12739	
==>n unless $match;
        my $capture_block = sub { return { grammar_name =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	631	737	
==>a::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	631	737	
==>a::Shell module, that do export symbols:
    # (None Yet)

    # State variables used by the Rosetta::Shell <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2673	2780	
==>$multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(pars <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2673	2780	
==>$multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(pars <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3169	3296	
==>t "}";
    close STDOUT;
}

#    my ($fname) = @_;
#    print "processing $fname...\n";
#    my $file = slurp $fname;
#    my $d <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6352	6453	
==>m B<parse (Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$filename> an <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6352	6453	
==>m B<parse (Str $filename, Hash %events)>

The main C<parse> function currently takes a C<$filename> an <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	202	298	
==>e for Perl6's CPAN, also known as sixpan.

Please refer the documentation of the other Modules in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4789	4976	
==>s'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4789	4976	
==>s'    => [@!set_names],
        'member_names' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns A <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17558	17672	
==>hod emits a warning and returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17558	17672	
==>hod emits a warning and returns undef.

- `span()`

Returns the internal object that represents the Span.

- `lazy( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6834	6918	
==>verhaul
p5_metachar("\\").
p5_metachar("\|").
p5_metachar("?").
p5_metachar("*").
p5_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	414	544	
==>ements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	620	750	
==>ements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	755	908	
==>rser->parse($source);
        #warn Dumper $sexpr;
        return $self->evaluate($sexpr);
    }
    
    my $depth = 0;
    
    sub evaluate {
        m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1234	1334	
==>ns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my $str = ~@values[ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3650	3744	
==>asec';
trig_func 'acosec';
trig_func 'acotan';
trig_func 'sinh';
trig_func 'cosh';
trig_func 't <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25212	25318	
==>istics about the performance are
printed.

=item C<FAILED tests %s\n\tFailed %d/%d tests, %.2f%% okay.>

Fo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	526	624	
==>h + 0)  }
sub to_str { str->new((shift)->fetch . '') }
sub to_bit { (shift)->fetch == $nil::NIL ? b <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	67	159	
==>as @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	67	159	
==>as @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	810	899	
==>ngine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	810	899	
==>ngine::Example::L::en -
Localization of Rosetta::Engine::Example for English

=head1 VERSI <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7210	7300	
==>ubParams, $pSubLValue, $pSubIsMulti, $pSubBody) {
    code_helper($pSubName, $pSubType, $pS <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	614	713	
==>"multi submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	614	713	
==>"multi submethod BUILD", but that
# makes pugs barf last I checked
multi submethod BUILD (Int|Num :$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1724	1876	
==>less $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1917	2069	
==>less $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8392	8506	
==>[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8380	8494	
==>[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	242	357	
==>ll;

        method bind ( Code &fun, Array of Str @args ) {
            $fun.assuming( *self.parse_arguments( @args <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33051	33155	
==>an ordered list of one or more elements where
each element is a Template module Set Name.  When we have t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33051	33155	
==>an ordered list of one or more elements where
each element is a Template module Set Name.  When we have t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	904	1020	
==>he match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	904	1020	
==>he match was stopped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22821	22909	
==>lass_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- char <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17005	17159	
==>ax}, 
                              $percent_ok;

        my($fmt_top, $fmt) = _create_fmts($failedtests);

        # Now write to formats
        for my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4961	5173	
==>sions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4961	5173	
==>sions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1211	1394	
==>y, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1211	1394	
==>y, go here.

###########################################################################

submethod BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ' <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6905	7045	
==>e     pairs   safe   (rw!Pair)\
\\n   List      pre     Str::split   safe   (Str)\
\\n   List      pre     Str::split   safe   (Str: Str)\
\\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7830	7933	
==>nnels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7830	7933	
==>nnels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<chan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2501	2616	
==>efined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2641	2756	
==>efined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match: grammar $rule->{grammar}, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5684	5859	
==>Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5684	5859	
==>Array of Str {
    return [@!member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_messag <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2033	2166	
==>args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $modul <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2033	2166	
==>args{inline}) {
        external($args{inline});
        delete $args{inline};
    }
    return %args;
}

sub external {
    my $modul <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3643	3772	
==>val "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::pro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3701	3830	
==>val "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::pro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	279	373	
==>inated';
use constant RPe_LOGDEP => --$ENUM, '(?p{}) is deprecated -- use (??{})';
use constant <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	323	423	
==>odel which adds a self-bootstrapping
## implementation of Roles into the model. See below for more de <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	229	353	
==>$*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $ <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	229	353	
==>$*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $path) {
            $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12971	13095	
==>fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12971	13095	
==>fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_com <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	181	310	
==>Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	181	310	
==>Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2683	2812	
==>self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto gen <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2683	2812	
==>self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto gen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2119	2219	
==>msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2119	2219	
==>msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedTe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17326	17431	
==>nalagous to the Perl interpreter
itself, which provides a virtual machine in which Perl code runs).

The c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17326	17431	
==>nalagous to the Perl interpreter
itself, which provides a virtual machine in which Perl code runs).

The c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	79	175	
==>base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	79	175	
==>base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spec;
use <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1756	1862	
==>desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my $chr = shift @file) ) {
	++ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7206	7329	
==>ls>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7206	7329	
==>ls>.delete($chan)
          if %!users{normalize $kickee}<channels>;
      }
    });

    # Somebody was killed. Update %cha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1320	1412	
==>tta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1320	1412	
==>tta::Shell for English

=head1 VERSION

This document describes Rosetta::Shell::L::en version <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6706	6840	
==>> chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "b <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6706	6840	
==>> chr(8216),
    "rsquo"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "b <==
2	/Users/nnunley/pugs/util/build_pugs.pl	727	843	
==>variable.

Current settings:
.
    print PugsBuild::Config->pretty_print;

    exit 0;
}

my $run_setup;

sub build { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1373	1478	
==>e_$1/g;
	$c_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		pack <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32459	32594	
==>,  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$se <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33114	33249	
==>,  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$se <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5535	5637	
==>l5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns St <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5535	5637	
==>l5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns St <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1069	1161	
==>ass Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1069	1161	
==>ass Perl::Compiler::PIL::Node::X0::Base {
}
class Perl::Compiler::PIL::Node::X1::Base {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9316	9501	
==>_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9316	9501	
==>_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta:: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	18290	18385	
==>=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.com> >>, currently maintained by
Andy Lester <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6471	6583	
==>inations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6471	6583	
==>inations()} -> $module_name {
        # Determine if requested template module is already loaded.
        # It ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2026	2114	
==>dToken("postfix:+", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:? <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2098	2186	
==>dToken("postfix:?", "postfix:*", "left", &parse_quant);
    $optable->addToken("postfix:: <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24024	24118	
==>urns, you can assume that it has succeeded.

=head2 The Relation::Example Class

A Relation::Ex <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2870	2961	
==>it bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005- <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2870	2961	
==>it bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	496	616	
==>ce from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	496	616	
==>ce from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local;
        $EPOCH_OFFSET = Time::Local::time <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27525	27686	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27804	27965	
==>ammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14735	14838	
==>_IRANGE (-28)

Invalid [] range "%s-%s"

=back

=head1 EXTENSIONS

Here are some ideas for extensions (s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20881	20983	
==>IfStatement :words {  # see 12.5
      <'if'> <'('> <Expression> <')'> <Statement> <'else'> <Statement> <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1207	1329	
==>) or
            die "copy: $!";
        print <<".";
*** Default build config file created.
    You can edit some settings <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21451	21574	
==>nes with minimal effort.

This might seem strange to somebody who has not tried to port between
databases before, especially <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21451	21574	
==>nes with minimal effort.

This might seem strange to somebody who has not tried to port between
databases before, especially <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5056	5171	
==>add_singleton_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40640	40744	
==>y use
Carp::carp() or Carp::croak().  The argument list is used to fill in
the format string for sprintf( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2215	2327	
==>, @args);

    if ((!-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the use <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1399	1505	
==>b BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname'";
   print F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17358	17457	
==>PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17358	17457	
==>PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $bot. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5245	5382	
==>se;
    push @{ "${class}::ISA" }, __PACKAGE__ . "::$type" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3422	3522	
==>ILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3422	3522	
==>ILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2009	2157	
==>rn $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2009	2157	
==>rn $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast->{capture} ] }; 
};
    push @grammar1::statements, \ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3262	3397	
==>e => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3262	3397	
==>e => sub ($match, &continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &contin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	471	597	
==>earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The curren <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	471	597	
==>earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The curren <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8312	8417	
==>_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this man <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8312	8417	
==>_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - this man <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3618	3831	
==>tches[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3506	3712	
==>tches[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $su <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	716	840	
==>t our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	716	840	
==>t our variables ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11062	11197	
==>m( qq[rm -rf ] . $self->control_dir( $inst_pkg->package ) ) and die $?;

    msg( "Package '".$inst_pkg->package."' and associated metad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4330	4447	
==>backslash:<w> { ... }    # define your own \w and \W
         rule rxassertion:<*> { ... }    # define your own <*stuf <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33552	33648	
==>.

=item C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ary ver <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38102	38198	
==>.

=item C<intersection (Relation *@others) returns Relation>

This multi-method is the N-ary ver <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7656	7742	
==>:Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1481	1567	
==>:Perl6->sub_call_term(@_) };
push @terms, sub { Grammar::Perl6->access_hashref_element( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12826	12941	
==>be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12826	12941	
==>be done?
    #our &!url_path ::= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8317	8446	
==>$::ENV, 
        closure::signature->new(
            params => closure::params->new(
                        symbol->new("&dispat <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4922	5108	
==>) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $se <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4781	4967	
==>) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $se <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1297	1408	
==>nd up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Per <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1297	1408	
==>nd up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Per <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	446	616	
==>t       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	446	616	
==>t       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	500	643	
==>nfig{make} =~ /^nmake\b/i    and
        $^O eq 'MSWin32'                        and
        !$self->can_run('nmake')
    );

    print "The req <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	85	239	
==>RI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	85	239	
==>RI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4630	4731	
==>ers the given data.  May return data which is part of the 
ciphertext, but is not necessarily the ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4630	4731	
==>ers the given data.  May return data which is part of the 
ciphertext, but is not necessarily the ciph <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	6	105	
==>arse::Rule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the r <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	6	105	
==>arse::Rule::Strategy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2751	2871	
==>rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2739	2859	
==>rule( $_[0], $_[1] );
}        
sub quant {
    my $term = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #pri <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	422	522	
==>$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BOLD . <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3076	3175	
==>h, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3076	3175	
==>h, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (without a time <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7789	7897	
==>urn that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7789	7897	
==>urn that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_cpy.get_msg_vars( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2217	2340	
==>t check the AUTO flag yet for link management
    LINKING: {   
        ### load in the alternatives collection
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2062	2162	
==>index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@oc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2062	2162	
==>index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@oc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4375	4472	
==>($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4375	4472	
==>($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9851	9955	
==>err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4031	4205	
==>ime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ': <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4031	4205	
==>ime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "not implemented";
                # XXX - untested (use ': <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5511	5625	
==>off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5511	5625	
==>off
        my $mdex = $matchy.multidex;
        # Put another dimension on the multidex and match the recursive ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1121	1288	
==>sh out this format better
    {   my @files = eval {
            ### XXX CONFIG!!!!
            my $file = $inst->files_list( $meta->package );
            open my $fh, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	908	1006	
==>Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering> >> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	908	1006	
==>Caesar used 1).  If a shift is specified, you should also specify 
either C<< :mode<enciphering> >> <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3408	3503	
==>le time zones or leap
seconds.

All methods take named parameters unless otherwise specified.

= <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3408	3503	
==>le time zones or leap
seconds.

All methods take named parameters unless otherwise specified.

= <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8517	8646	
==>SES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8517	8646	
==>SES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21028	21150	
==>dd_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17449	17571	
==>dd_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    re <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	471	583	
==>%param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	471	583	
==>%param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6203	6310	
==>fy () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6203	6310	
==>fy () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef if $ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7727	7853	
==>le, -s           Run tests in random order
    --recurse, -r           Recurse into directories on test include list
    --incu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2791	2893	
==>h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2791	2893	
==>h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40749	40842	
==>=over 4

=item $parser->warn(RPe_ERRMSG, ARGS...)

Throws a warning I<only> during the first p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10659	10766	
==>azy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10659	10766	
==>azy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1392	1588	
==>ort {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XX <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1392	1588	
==>ort {
    join ', ', gather {
        for @words -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XX <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34591	34696	
==>xt::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => [ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34591	34696	
==>xt::Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => [ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19122	19215	
==>osetta DBMS with little
trouble.  Likewise, emulation layers for any other programming languag <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19122	19215	
==>osetta DBMS with little
trouble.  Likewise, emulation layers for any other programming languag <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3281	3387	
==>ould never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3281	3387	
==>ould never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10580	10695	
==>.= "sub ${package_name}::${name}::${method_name} {";

    my $rep = $info->rep_type;
    if($vars eq "") {}
    elsi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2065	2172	
==>two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2065	2172	
==>two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$one.subset($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2909	3006	
==>over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2909	3006	
==>over 4

=item C<encipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10823	11016	
==>al $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$uns <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10823	11016	
==>al $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$uns <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1109	1256	
==>sub { shift()->temp_dir->subdir( shift() ) }
                            ];

### repository dirs/files
$config{'repo_pool'}        = [ Path::Class:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	739	847	
==>t_node_type {
	my $self = shift;
	Blondie::Backend::Perl::Builtins->cast(@_);
}

sub execute {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	681	1098	
==>ibutes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding u <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	681	1098	
==>ibutes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1467	1570	
==>self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1607	1710	
==>self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8898	9003	
==>set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for Set::Infinite obj <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8898	9003	
==>set()`

Creates an empty set.

= OBJECT METHODS

The following methods are available for Set::Infinite obj <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	400	500	
==>args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	218	329	
==>at userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - The p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	218	329	
==>at userland folks will
see, but it has some other clutter because of unclear design.

    $.from         - The p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10529	10623	
==>ious => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10529	10623	
==>ious => sub {...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25324	25464	
==>";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25883	26023	
==>";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	906	1006	
==>ugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	906	1006	
==>ugs::Runtime::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4950	5064	
==>ontent = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4950	5064	
==>ontent = do { local $/; <$fh> };
    close $fh;

    # Find the real __DATA__ or __END__ line. (Not one hidden in a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	171	267	
==>T  = Package::Constants->list( __PACKAGE__ );

sub constants { @EXPORT };

use constant IS_CODERE <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5228	5319	
==>se64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decod <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5228	5319	
==>se64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 encoder/decod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1635	1728	
==>ile_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_na <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1635	1728	
==>ile_name_is_absolute (Str $file) returns Bool is export {
    return &::($worker_pkg)::file_na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4622	4725	
==>($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4622	4725	
==>($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?' <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2696	2784	
==>he list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compiler> o <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2696	2784	
==>he list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compiler> o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18971	19097	
==>ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20329	20455	
==>ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	693	797	
==>ns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=he <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	693	797	
==>ns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod

=he <==
2	/Users/nnunley/pugs/util/grokprims.pl	192	297	
==>sociative infix',
    right => 'right-associative infix',
    non   =>   'non-associative infix',
    list <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6098	6247	
==>me_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6098	6247	
==>me_is_absolute($path)) {
        my $base;
        if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!fil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1191	1390	
==>else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1191	1390	
==>else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10025	10146	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10304	10425	
==>e->( @_ );
        return unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], ' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6272	6430	
==>_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TO <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6330	6488	
==>_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $context =  "TO <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7524	7655	
==>'%='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'|='>
    | <'^='>
}
rule DivPunctuator {  # see 7.7
      <'/' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7804	7913	
==>egexp::Parser> object will
still be returned, but if you use regex() then it will return false.

  if (! $pars <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	815	977	
==>\;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	815	977	
==>\;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# category 'bare_statement'
# statements that don't n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3630	3785	
==>ps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: fo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4094	4249	
==>ps    = shift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23066	23282	
==>nt( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23345	23561	
==>nt( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::const <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2699	2844	
==>rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2699	2844	
==>rule( $term, $_[1] ) 
        if $sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	565	694	
==>dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $no <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	565	694	
==>dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $no <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2130	2331	
==>");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2130	2331	
==>");
                    }                    
                    when rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6264	6363	
==>ot very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (S <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6264	6363	
==>ot very forgiving about whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (S <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	94	203	
==>tion $duration) returns Duration {
    $self.new($self.length + $duration.length);
}

method subtract($self: D <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15601	15695	
==>s,
which contain the mapping from all characters to the corresponding entities
(and vice versa, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15601	15695	
==>s,
which contain the mapping from all characters to the corresponding entities
(and vice versa, <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	527	635	
==>{ $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nu <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	527	635	
==>{ $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:<∑>  ($nu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1247	1371	
==>Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_cod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1247	1371	
==>Perl::Compiler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_cod <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33592	33689	
==>rs) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<diff <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38142	38239	
==>rs) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<diff <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6944	7053	
==>tent);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6944	7053	
==>tent);
        $class->$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6253	6378	
==>}
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6253	6378	
==>}
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5053	5183	
==>ated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5246	5376	
==>ated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1891	1992	
==>datatype !~ /\A(p6_file|p6|pil_code|pil_tree|p5)\z/;
    bless {
	stages => [qw(p6_file p6 pil_code pi <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26297	26406	
==>lassRanges> <']'> #lookahead
    | <'[^'> <ClassRanges> <']'>
}
rule ClassRanges {  # see 15.10.1
      <null> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1338	1435	
==>);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # work around two uninterestin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4366	4493	
==>nfix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4366	4493	
==>nfix:<+> infix:<+>', 
        'AST looks ok' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3+ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	331	461	
==>= $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	331	461	
==>= $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	914	1070	
==>ne.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	914	1070	
==>ne.split(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .m <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22179	22308	
==>body => comb(
		fun => comb(
			fun => ide("cons"),
			param => ide("x"),
		),
		param => ide("nil"),
	),
);

my $length_and_first <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12312	12440	
==>ax {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->min, $self->ma <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2695	2807	
==>st::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2753	2865	
==>st::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$d <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6232	6386	
==>quence>
}
rule UnicodeLetter {  # see 7.6
      # any character in the Unicode categories "Uppercase letter (Lu)",
      # "Lowercase letter (Ll)", "Titlec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	196	329	
==>eader> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	196	329	
==>eader> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15866	15964	
==>gram will raise a condition or error that,
while resembling a message that would be shown to a user <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15866	15964	
==>gram will raise a condition or error that,
while resembling a message that would be shown to a user <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33256	33345	
==>aforementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37806	37895	
==>aforementioned.

=item C<intersection (Relation $other!) returns Relation>

This multi-met <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2222	2368	
==>irst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2222	2368	
==>irst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9783	9886	
==>ct )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9783	9886	
==>ct )`

Returns a Set::Infinite. 

The argument can be a Set::Infinite, a Span object, a Recurrence objec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1638	1737	
==>ate containers.



the Body is just a structure with three node forms: Var

(variable lookup), App ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1572	1668	
==>ate containers.

the Body is just a structure with three node forms: Var
(variable lookup), App ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4744	4853	
==>ple who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4744	4853	
==>ple who are on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$ch <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33187	33284	
==>rs) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<inte <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37737	37834	
==>rs) returns Relation>

This multi-method is the N-ary version of the aforementioned.

=item C<inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4082	4194	
==>itter that generates perl5

  # load it as 'the' handler for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3938	4048	
==>itter that generates perl5
  # load it as 'the' handler for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	2	110	
==>dule lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_path <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	2	110	
==>dule lib-0.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_path <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8231	8366	
==>{ $f->($c) }LET;
        return $v if not FAILED($v);
      }
      TAILCALL(&$f_last,$c);
    };
  }
}
{
  package Regexp::Parser::exac <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6285	6414	
==>ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6285	6414	
==>ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could be a lazy list of pairs!
    s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16905	17002	
==>lication in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
ap <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16905	17002	
==>lication in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14715	14822	
==>e "%s-%s"

=item RPe_IRANGE (-28)

Invalid [] range "%s-%s"

=back

=head1 EXTENSIONS

Here are some ideas f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1209	1308	
==>$invocant = $db_param;
	}
	elsif ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$named_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11505	11619	
==>$self->$type($node)
        : $self->generic_reduce($node);
}

sub generic_reduce {
    my $self = shift;
    my $n <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	925	1019	
==>tests.yml";
$Config{"recurse"} = 1 if not defined $Config{"recurse"};
# Needed for smokeserv
$C <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1252	1379	
==>}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1252	1379	
==>}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	38893	38991	
==>s file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43707	43805	
==>s file is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

Relatio <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	634	768	
==>ub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	634	768	
==>ub content_length returns Str is export { $CONTENT_LENGTH }

# make some of the less used values 'on demand'

sub path_info       retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10558	10652	
==>ess, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10558	10652	
==>ess, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, that th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4477	4642	
==>('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4699	4864	
==>('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BE <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24225	24325	
==>on has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single mem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28777	28877	
==>on has zero tuples.  If a Relation has zero attributes, then
C<$body> may be an Set with a single mem <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39419	39579	
==>f:')->get_attr(symbol->new('%:attributes'))->values();                                 
            }
        )
    )
);

## ------------------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6237	6382	
==>p eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6750	6895	
==>p eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9723	9830	
==>gh the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unless $sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9723	9830	
==>gh the parents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unless $sel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12161	12263	
==>ks with ref() since we do not yet have
object support. Once object support is created, we will add it h <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12219	12321	
==>ks with ref() since we do not yet have
object support. Once object support is created, we will add it h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5877	6004	
==>TP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5877	6004	
==>TP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	482	597	
==>file();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/Pu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	482	597	
==>file();
}

sub get_perl6_libs {
    # Special case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/Pu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	398	516	
==>or the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# re <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	398	516	
==>or the below classes.

=cut
#'

# The types given below, although Haskellesque, are not pure functions.  They only
# re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1049	1157	
==>h = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1049	1157	
==>h = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3734	3879	
==>ul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3722	3867	
==>ul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$_[1] (\n$rul\n" .
        "$_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	154	275	
==>a) {
      my $f = shift(@a);
      my $kludge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_down = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11237	11344	
==>e:
    $I0 = pos
  subrule_name_1:
    pos = find_not_cclass .CCLASS_WORD, target, pos, lastpos
    $S0 = su <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1071	1171	
==>closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(whic <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1071	1171	
==>closure.  The closure,
C<$.parse>, takes two parameters:  a C<Result> object and a continuation
(whic <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36478	36574	
==>ects

Ender: tail

=head2 ifthen

Family: assertion

Types: ifthen (C<(?(>)

Data: array referenc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	873	970	
==>to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	873	970	
==>to Filter::Simple

=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilt <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35178	35270	
==>eturns
True when given the tuple/Mapping as its sole read-only argument. The new
Relation::Ex <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5374	5475	
==>own";
    print "$rev_get_cmd returns revision '@{[$self->{_revision}]}'\n";
}

sub run {
    my $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4096	4276	
==>t && -s _ ) {
                system( qq[ $^X $preinst ] )                    and die $?;
            }
            
            ### XXX we should build a binary package here, inste <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1872	1984	
==>ing (Num $x) {
	my Int $t = int($x);
	$x > 0 && $x != $t ??
		$t + 1 !! $t
}

our Int multi Num::round_floor (Num <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	872	978	
==>md));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	805	902	
==>md));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2882	2980	
==>y string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if avail <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2882	2980	
==>y string portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if avail <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9047	9142	
==>de; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9047	9142	
==>de; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This document <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	201	311	
==>k letters and unicode symbols, or type literals

# second part is the object model for a lambda calculus, and a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3040	3167	
==>$match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3040	3167	
==>$match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4777	4974	
==>ifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<C <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4777	4974	
==>ifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ {
                    $fh.print("<C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	323	433	
==>re are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	323	433	
==>re are unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5115	5217	
==>type . '::'};
    my $user_base = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4964	5068	
==>rl_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplisti <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4964	5068	
==>rl_encode (Str $to_encode) returns Str is export {
    my $encoded = $to_encode;
    # create a simplisti <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7889	8064	
==>he right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8353	8528	
==>he right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        n <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	18	121	
==>y $test_file = shift || 'test';

print(('-' x 80), "\n");
print "Testing perl5 naive bayesian script wit <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2798	2905	
==>works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2798	2905	
==>works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Unix since this is what
GHC and P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20055	20157	
==>o in a most specific to most general order.
So inner blocks get compiled first, then outer blocks.

A c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20055	20157	
==>o in a most specific to most general order.
So inner blocks get compiled first, then outer blocks.

A c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3461	3564	
==>re
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to the query object:

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3461	3564	
==>re
C<$r> is the HTTP::Request::CGI object).  The following methods are delegated
to the query object:

= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5460	5605	
==>my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5682	5827	
==>my ( $k ) = keys %$n;
        my $v = $n->{$k};
        #print "*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	4090	4193	
==>mbers;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.inters <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	4090	4193	
==>mbers;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.inters <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5041	5184	
==>sure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5041	5184	
==>sure_previous }($x); 
                      return $x if $x==-Inf || $select($x) } 
            },
        # -- use the default generated closur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4354	4449	
==>enames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is expo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4354	4449	
==>enames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is expo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	515	632	
==>raw {
    my $self = shift;
    exists $self->{raw} ? $self->{raw} : $self->visual(@_);
  }

  sub data {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	626	719	
==>NOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a l <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	626	719	
==>NOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25613	25713	
==>e same as the invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30165	30265	
==>e same as the invocant Relation but that some of its attributes
are renamed.  The argument C<$mapping <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	48	153	
==>cessor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer_role = ::Getopt: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3430	3604	
==>rammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3570	3744	
==>rammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4486	4587	
==>my $accum = shift;

	bless {
		%$self, 
		left => $self->left->splat($accum),
		right => $self->right- <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12341	12442	
==>set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12341	12442	
==>set2)>

=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1789	1912	
==>OAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3249	3455	
==>args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3249	3455	
==>args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                }
                whe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10252	10347	
==>- `new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Crea <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10252	10347	
==>- `new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

Crea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5655	5758	
==>s);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, es <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5655	5758	
==>s);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, es <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6518	6630	
==>ne if requested template module is already loaded.
        # It may have been embedded in a core program file and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6518	6630	
==>ne if requested template module is already loaded.
        # It may have been embedded in a core program file and <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	386	507	
==>rint $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	483	604	
==>rint $rpc_token->perl5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benc <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	179	291	
==>ll;
        has $coercer_role = ::Getopt::Argument::Coercer::Null;

        method bind ( Code &fun, Array of Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37030	37142	
==>head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: an object in the I<quant> family

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1005	1156	
==>os = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1005	1156	
==>os = \$_[2]{p};\n" .
        "    \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1246	1355	
==>tart () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1246	1355	
==>tart () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () returns <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	552	663	
==>~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	552	663	
==>~ q[ Node of the invocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an exp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32560	32657	
==>utes for configuration, its
main purpose is to convert Message objects on demand into user-readabl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32560	32657	
==>utes for configuration, its
main purpose is to convert Message objects on demand into user-readabl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4888	5008	
==>\&\$f$i}";
    }
    my $code = $code0."\n sub{my \$cn = \$_[0]; \@_=".$code1."\$cn".$code2.";goto \&\$f0}\n";
    #print <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21089	21188	
==>csym)) ), !.

rm(negSet(Set),[C|F1],F1,B0,[C|B0],E0,E0) :- \+(charset_member(E0,C,Set)).
rm(posSet(S <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1755	1947	
==>events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1755	1947	
==>events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16327	16436	
==>ingle binaries to support N
locales or user types simultaneously, and that allows any end users to add
support <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16327	16436	
==>ingle binaries to support N
locales or user types simultaneously, and that allows any end users to add
support <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21150	21284	
==>next'}..$test->{max};
            $failed = @{$test->{failed}};
            (my $txt, $canon) = _canonfailed($test->{max},$test->{skipp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7816	7924	
==>"));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use Fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7816	7924	
==>"));
}


=kwid

= NAME

File::Spec::Win32 - Part of Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use Fi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19983	20093	
==>, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific to most general or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19983	20093	
==>, Module::Compile dispatches the code blocks
to the compilers. It does so in a most specific to most general or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2586	2721	
==>rn 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2586	2721	
==>rn 0 };
    for @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13056	13160	
==>l remove all the header fields used to describe the content of
a message.  All header field names prefixe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13056	13160	
==>l remove all the header fields used to describe the content of
a message.  All header field names prefixe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	332	454	
==>ing

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submet <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	332	454	
==>ing

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos;
}

has $.Pos;

submet <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	274	366	
==>_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argumen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	274	366	
==>_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argumen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26551	26648	
==>attrs> is either empty or equal to
the invocant Relation's header, in which case it returns the id <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31103	31200	
==>attrs> is either empty or equal to
the invocant Relation's header, in which case it returns the id <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1326	1454	
==>Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1326	1454	
==>Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $.end + $.density     < $span.start;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1481	1573	
==>her by giving 
them to the unexported C<Log::Selective::select> function or by including them <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1481	1573	
==>her by giving 
them to the unexported C<Log::Selective::select> function or by including them <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	614	733	
==>)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Soc <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	581	700	
==>)/(.+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Soc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4391	4513	
==>b{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub concat {
    my($o,$aref <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	52	148	
==>uire 'conf.pl' }
BEGIN { require 'pkg.pl' }

use JIB::Config;
use JIB::Repository;

use Path::Cla <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	829	943	
==>ss::Events::Event $event) {
        (.get_subscriptions($event) ==> .mk_notifications)».dispatch;
    }
    
    m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	177	267	
==>se Digest::MD5 qw<md5_hex>;
use HTML::Template;
use Algorithm::TokenBucket;
use Time::Piece <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5145	5268	
==>rence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.nex <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5145	5268	
==>rence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.nex <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	45	154	
==>tional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	45	154	
==>tional-0.01;

has @.spans;

submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1761	1886	
==>{ require Compress::Zlib } or
    *Compress::Zlib::memGunzip = sub { return };
  eval { require Compress::Bzip2 } or
    *Comp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	920	1022	
==>define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	920	1022	
==>define classes, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5885	5991	
==>n
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5885	5991	
==>n
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model do <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4248	4352	
==>n", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4306	4410	
==>n", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	38	143	
==>erl5)
use v6-pugs;

module Test-0.0.6;

### CONSTANTS

# some options available through the environment
$T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14959	15051	
==>e
Rosetta framework and defines a common programmatic interface (API), called
the Rosetta Nat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14959	15051	
==>e
Rosetta framework and defines a common programmatic interface (API), called
the Rosetta Nat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30434	30533	
==>an an exclusive alternative for the rest
of the set. There is a separate template module for each di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30434	30533	
==>an an exclusive alternative for the rest
of the set. There is a separate template module for each di <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3698	3802	
==>}
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of one tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3698	3802	
==>}
}

# insert_child is really the same as
# insert_children, you are just inserting
# and array of one tr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15970	16087	
==>tion.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semij <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19447	19564	
==>tion.new(
        heading => $!heading,
        body => $!body.intersection( $other!body ),
    );
}

my method _semij <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20585	20694	
==>elsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20585	20694	
==>elsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accessor, you
have to use the C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31058	31180	
==>w('_make_dispatcher_iterator'),
    # method body
        method->new(
            $::ENV,
            method::signature->n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16530	16618	
==>ers_from(Ey,E0,E1).

rm(group(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  set <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5625	5756	
==><name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5637	5768	
==><name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2142	2264	
==>take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2142	2264	
==>take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14725	14839	
==>4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14725	14839	
==>4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::Key <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12968	13082	
==>event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12968	13082	
==>event) for *%handler{$code};
      }
    },

    # Handle word commands (e.g. JOIN, INVITE)
    handle_command => - <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2594	2697	
==>he bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2594	2697	
==>he bucket contains at least I<N> tokens. In that
case it is allowed to transmit (or just process) I<N> i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33951	34049	
==>and
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C<$o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38501	38599	
==>and
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C<$o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4079	4176	
==>[ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4662	4759	
==>[ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17476	17568	
==>itialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<Thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17476	17568	
==>itialized automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<Thi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14413	14590	
==>:Element->new("link", rel  => "stylesheet", 
                                           type => "text/css", 
                                           href => "http://dev.perl.o <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5295	5393	
==>();

Tells the cipher object to clear its internal state as completely as possible. 
This is automa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5295	5393	
==>();

Tells the cipher object to clear its internal state as completely as possible. 
This is automa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8813	8921	
==>- `universal_set()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8813	8921	
==>- `universal_set()`

Creates an object with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	160	264	
==>er - emitter base class - not more than just a namespace.

=head1 SYNOPSIS

    # moot

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/util/package-osx.pl	5642	5742	
==>Perl6::Overview.3pm
        /usr/local/man/man3/Perl6::Overview::Control.3
        /usr/local/man/man <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	66	319	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Const <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	66	319	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Const <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	821	916	
==>e Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::Null <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	821	916	
==>e Test::Builder::TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::Null <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26240	26338	
==>can sell you a warranty for it.

While it is by no means required, the copyright holders of Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26240	26338	
==>can sell you a warranty for it.

While it is by no means required, the copyright holders of Rosetta <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9802	9914	
==>string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependency_sat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11279	11391	
==>string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependency_sat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1461	1558	
==>se(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1461	1558	
==>se(1000, {
    PCR_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19550	19649	
==>ned for Locale::KeyedText that will enable
user text to be stored in non-Perl external files, such a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19550	19649	
==>ned for Locale::KeyedText that will enable
user text to be stored in non-Perl external files, such a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3169	3271	
==>an::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3169	3271	
==>an::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22006	22215	
==>nt( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22285	22494	
==>nt( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1424	1587	
==>:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1424	1587	
==>:P5{^=item\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18684	18808	
==>o the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular deman <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18684	18808	
==>o the current
     page.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular deman <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	263	378	
==>Message::Simple    qw[:STD];
use File::Basename          qw[basename];
use Path::Class             ();
use Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13407	13539	
==>bject),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo event <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13407	13539	
==>bject),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo event <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22350	22465	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22629	22744	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	945	1128	
==>line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	945	1128	
==>line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    elsif ($line ~~ rx:perl5/^\ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3010	3127	
==>continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3010	3127	
==>continue) {
        &continue($match);
    });
}

method concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30450	30551	
==>alternative for the rest
of the set. There is a separate template module for each distinct "user
langu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30450	30551	
==>alternative for the rest
of the set. There is a separate template module for each distinct "user
langu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12817	12933	
==>(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_targe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12817	12933	
==>(Locale::KeyedText::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_targe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11701	11842	
==>emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::ca <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14549	14690	
==>emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::ca <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1147	1269	
==>rivlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1147	1269	
==>rivlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	16	111	
==>ammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, et <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	16	111	
==>ammar::Base;
use Pugs::Runtime::Match;

# This class defines <ws>, unicode character classes, et <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	773	933	
==>se Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	766	926	
==>se Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} );
        return { 
            \%\$match,
            capture => [ \$capture_bloc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2335	2435	
==>lf: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    metho <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2335	2435	
==>lf: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    metho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1209	1308	
==>e ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1209	1308	
==>e ops

# Things that will be solved by the compiler:
# - keys/kv/pairs/values with indexes (S29) --> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	45	144	
==>as int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	45	144	
==>as int @.buffer;

# Stuff the block cipher has to implement
method cipher_block(Array $data) returns <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4038	4253	
==>f, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear;
        },              
        class => sub { \&Point3 <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1381	1544	
==>'&fact'),
						App(
							Sym('&fact'),
							Val(5),
						),
					),
				),
			),
			Val(
				Thunk(
					Seq(
						Param('$n'),
						App(
							Sym('&contr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13961	14055	
==>y $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13961	14055	
==>y $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.new( *%{$has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24057	24172	
==>groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20478	20593	
==>groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifth <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10923	11040	
==>}
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10923	11040	
==>}
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/F <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4017	4137	
==>c=$linuxrc
    --linuxrc is the first script to run after the kernel has started.
  --welcome-p6=$welcome_p6
    --welcom <==
2	/Users/nnunley/pugs/util/version_h.pl	2166	2272	
==>OUT "#define PUGS_SVN_REVISION $revision\n";
  close OUT;

  if ($revision != 0) {
    # rebuild Help.hs to <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29371	29477	
==>output returns raw data
on the state of the tests.  (Partially done in Test::Harness::Straps)

Document the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	93	194	
==>r;
use Perl6::Core::Ref;

use Perl6::MM::Attribute;

package opaque;

use strict;
use warnings;

use C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7364	7466	
==>./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7364	7466	
==>./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13141	13268	
==>st {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13141	13268	
==>st {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/#--vim
      my $event = {
        line      => $line, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1580	1709	
==>epresents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1580	1709	
==>epresents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13352	13488	
==>n.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13352	13488	
==>n.prepare();
        for 1..3 {
            my Rosetta::Interface::Row $new_person .= new( payload => {
                'id' => ask_user_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7548	7686	
==>t_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We success <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7548	7686	
==>t_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We success <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3011	3139	
==>rt {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %extr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3011	3139	
==>rt {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX just clone %extr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35222	35396	
==>turn');                 
            }
        )
    )
);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('add_attribute'),
    # method b <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1268	1364	
==>mar;

# this attribute grammer pretty prints bare types (no foralll)
my $pretty = Language::Attri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	388	490	
==>mance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# UP <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	399	501	
==>mance reasons,
# because they are too frequent and they are too slow using the basic
# rule parser
# UP <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	26	142	
==>e lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use Y <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	26	142	
==>e lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use Data::Dumper;
use File::Basename;
use Y <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2672	2824	
==>$end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2672	2824	
==>$end;

        if defined( $start ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3750	3883	
==>1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # register <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3750	3883	
==>1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # register <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32214	32359	
==>ant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32869	33014	
==>ant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params  => method <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16442	16532	
==>ationalExpression>
    | <EqualityExpression> <'!=='> <RelationalExpression>
}
rule Equalit <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1459	1567	
==>lti sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unesca <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1459	1567	
==>lti sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT) {
        @str = @str.map:{ uri_unesca <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3709	3823	
==>my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testin <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5611	5725	
==>my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1035	1158	
==>'left',
        precedence => 'equal',
        other => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '?', <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4105	4203	
==>ion = $matchObj->position();
  $lastPosition = length $target;

  if matches( /\s/, $target, $pos ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22261	22366	
==>ack

=head2 C<$botE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optiona <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22261	22366	
==>ack

=head2 C<$botE<lt>joinE<gt>(channel =E<gt> "#chan", key =E<gt> "password")>

Joins a channel (optiona <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6158	6256	
==>mber} + 1 if $type eq 'test';
}

=head2 C<analyze_fh>

  my %results = $strap->analyze_fh($name, $t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19793	19898	
==>e C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after logi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19793	19898	
==>e C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itself after logi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4337	4470	
==>||= ($^O eq 'VMS' ? '_author' : '.author');
    $args{bundle}   ||= 'inc/BUNDLES';
    $args{base}     ||= $base_path;
    $class =~ s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10994	11104	
==>ocess it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10994	11104	
==>ocess it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13366	13462	
==>hich you can create an identical Document (with member
Nodes) to the one you first invoked export <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13366	13462	
==>hich you can create an identical Document (with member
Nodes) to the one you first invoked export <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12910	13008	
==>hen iterating through the span range, the unit is added to the current value to get the next value. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12910	13008	
==>hen iterating through the span range, the unit is added to the current value to get the next value. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1923	2041	
==>h = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1923	2041	
==>h = @_path;
    my $file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11744	11847	
==>n recurrence.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are ex <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11744	11847	
==>n recurrence.

- `equal( $recurrence )`

Returns true if the closures that define the recurrences are ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9927	10026	
==>::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9927	10026	
==>::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	225	339	
==>hift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	298	412	
==>hift : { @_ };

    my $node = Blondie::Prelude->env->get($params->{name});

    my $digest = $node->digest;

    $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22247	22346	
==>d each attribute is a column, but a Relation is not a table.

The Relation class is pure and determi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26799	26898	
==>d each attribute is a column, but a Relation is not a table.

The Relation class is pure and determi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1659	1815	
==>an";
            }
            _('$.output')->write(_('$.testplan')->header());            
        },
        'ok' => sub { 
            my ($self, $passed, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5735	5851	
==>plit("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5793	5909	
==>plit("\n", $diag)) -> $line {
        say "# $line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6666	6772	
==>`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6666	6772	
==>`.

The `start` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3665	3758	
==>ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3665	3758	
==>ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2571	2695	
==>rence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2571	2695	
==>rence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1707	1819	
==>erand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1707	1819	
==>erand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', name => '+', assoc => 'left',
} );
$statement- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18728	18825	
==>any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18728	18825	
==>any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9255	9374	
==>less $sub;
    return "$_[1] ruleop::$sub(\n" .
           emit_rule( $term, $_[1] ) . "$_[1] )\n";
}        
sub node:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	585	695	
==>ve value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_bit { shift }

# conver <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	83	182	
==>d generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Arr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	83	182	
==>d generate_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Arr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5417	5678	
==>);
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8894	9155	
==>);
}

###########################################################################

method wrap ( Mapping(Str) of Set of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	250	354	
==>r needs nmake, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	201	299	
==>r needs nmake, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3090	3200	
==>= `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'g <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3090	3200	
==>= `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9271	9365	
==>head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9271	9365	
==>head2 C<$set1.not_equal($set2)>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7764	8012	
==>new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7764	8012	
==>new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++;
                        yield $x;
                        return;
                },
                celems => sub { $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3110	3222	
==>.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3110	3222	
==>.)
    ./add_handler("352", -> $event {
      my %rest;
      %rest<_ username hostname servername nickname umode <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6914	7064	
==>push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_para <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6914	7064	
==>push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_para <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6150	6280	
==>pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6150	6280	
==>pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7058	7207	
==>1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7046	7195	
==>1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6271	6369	
==>method|Macro|Rule|Block|Bare|Parametric)\z/) {
	my($name,$argl,$f,$lval)=@_;
	my $body = $f;
	$body <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10984	11078	
==>al; sub{\$__f->(\@_)}})));");
    } elsif($name) {
	$code = "(p6_setq(__PACKAGE__,$namestr,$cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23523	23652	
==>ew {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23876	24005	
==>ew {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15625	15809	
==>_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15625	15809	
==>_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compi <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2527	2654	
==>bg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain:    "; my $main =   traverse_ast ( %p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9252	9346	
==>L;
}


END

#----------------------------------------------------------------------
package mai <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2899	2993	
==>bugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2899	2993	
==>bugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, The Pugs Contributors.

Pu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14242	14346	
==>hars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14242	14346	
==>hars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5836	5956	
==>oks like we've found a GHC directory.  Find the latest
            # ghc inside that.  Sort versions from highest to lowe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3379	3480	
==>ar::Perl6->_return(@_) };
PUSH
print "1;\n";
__END__


package Test;
${'a'} = '10';
*{'a'} = sub { '20 <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1098	1214	
==>E_FILES} ||= [];
    push @$exe_files, @_;
}

sub _read_script {
    my ($self, $script_file) = @_;
    local *SCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10474	10578	
==>ct,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10474	10578	
==>ct,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@to_do <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3225	3323	
==>rt);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_callback = r- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1641	1737	
==>Blondie::Node::Unit;
    use base qw/Blondie::Unit Blondie::Node/;

    package Blondie::Node::Li <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8068	8238	
==>airs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8068	8238	
==>airs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14417	14535	
==>t, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so wil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14475	14593	
==>t, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in progress. As Pugs grows, so wil <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10419	10530	
==>n.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10419	10530	
==>n.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4737	4847	
==>ltin is safe {
        if Pugs::Internals::current_pragma_value($?CLASS) //
                $fatal::DEFAULT_FAT <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2200	2410	
==>"Could not open file '$file': $!");
                                    return $fh if $fh;
                                    return;
                            };      

use constant ISA_JIB_META   => sub { U <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	26	129	
==>ict;


# this test script will compare the result of all the listed cookbook files
# to some expected se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1525	1653	
==>y $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_INSTALLATION },
        repository      => { allow => IS <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4915	5044	
==>'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $v <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4774	4903	
==>'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($self, $module => $v <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9813	9913	
==>. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9813	9913	
==>. 

The argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25771	25869	
==>s.

Any versions of Rosetta that you modify and distribute must carry prominent
notices stating tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25771	25869	
==>s.

Any versions of Rosetta that you modify and distribute must carry prominent
notices stating tha <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3696	3795	
==>s or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 AU <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3696	3795	
==>s or read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 AU <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	553	658	
==>vides' called on @_";
}

sub run {
	die "virtual method 'run' called on @_";
}

__PACKAGE__;

__END__

=po <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6336	6441	
==>my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'bas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6336	6441	
==>my Rosetta::Model::Node $sdtd_person_name = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'bas <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14929	15020	
==>ys
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14929	15020	
==>ys
export it with C<use HTML::Entities qw(encode_entities_numeric);>
or even C<use HTML::Ent <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2425	2548	
==>!defined $result;
	my $warn = $result->warnings();
	$ret .= $warn if defined $warn;
    }
    $ret;
}
sub compile {
    my($ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10010	10120	
==>0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10010	10120	
==>0 = $span0.difference( $span1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $sp <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2073	2181	
==>( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2073	2181	
==>( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) returns bool {
    if $year % 400 = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2379	2496	
==>:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2379	2496	
==>:{ $^a.compare( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31439	31558	
==>d in the second it is "L::Foo".

A library could be distributed with a Template module set that is specific
to it, anoth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31439	31558	
==>d in the second it is "L::Foo".

A library could be distributed with a Template module set that is specific
to it, anoth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3084	3252	
==>$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2966	3124	
==>$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10080	10213	
==>e( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10080	10213	
==>e( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2292	2424	
==>> 'name', exp1 => \$_[1], exp2 => \$_[3],} }",
    #infix_list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2855	2982	
==>ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3102	3229	
==>ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	67	158	
==>is file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	67	158	
==>is file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	902	1021	
==>ft.com/Softlib/MSLFILES/Nmake15.exe',
        local_dir   => File::Basename::dirname($^X),
        size        => 51928, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	779	882	
==>ft.com/Softlib/MSLFILES/Nmake15.exe',
		local_dir => File::Basename::dirname($^X),
		size      => 51928, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16275	16369	
==>ins a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spans <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16275	16369	
==>ins a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spans <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	302	414	
==>ration( Int|Real ?$seconds ) returns Duration::Gregorian is export {
    duration(:second($seconds));
}

multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8471	8565	
==>[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8459	8553	
==>[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4232	4324	
==>n:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4232	4324	
==>n:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALS <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6282	6409	
==>(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6282	6409	
==>(967),
    "psi"      => chr(968),
    "omega"    => chr(969),
    "thetasym" => chr(977),
    "upsih"    => chr(978),
    "piv" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3361	3452	
==>on -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3361	3452	
==>on -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3066	3181	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3259	3374	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15604	15699	
==>andle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIR <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15662	15757	
==>andle arbitrarily complex data structures automatically (at least
that is what I hope).

= ENVIR <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3373	3542	
==>if $excl;
}

sub _build_include_re {
    my @include = map { split /,/ } @{ $Config{include} };
    s/^\.// for @include;
    @include = ("t") unless @include;
    my $in <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4806	4896	
==>ax), !.
p5_range_bounds_RHS(_Min,-)   --> ",", !.
p5_range_bounds_RHS(Min ,Min) --> {true}. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15212	15379	
==>self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (le <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	347	518	
==>($node) = @_;
    return "node_" . $node->id . " [ " . 
                    "shape = box, " . 
                    "fontcolor = orange, " . 
                    "color = or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7270	7384	
==>abs($Result1));
    my $n2_32 = 2**32;
    my $Result4 = $Result3 % $n2_32;
    return $Result4;
}

# 9.7
multi sub <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4219	4326	
==>um::round_ceiling ( Num $x ) {
    my $x_round = ceil($x);

    return $x_round;
}

our Int multi Num::round <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	236	410	
==>n '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	236	410	
==>n '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3113	3211	
==>ugs::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3003	3098	
==>ugs::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4946	5086	
==>educes to the value of it's last child.
Reducing this:

    Seq(
        Val(10),
        Val("moose"),
    ),

will yield "moose".

Inherits <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15096	15185	
==>AdditiveExpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExpression> <'-'> <Mul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5285	5440	
==>ad = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5285	5440	
==>ad = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{capture} = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8607	8733	
==>] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8603	8729	
==>] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $D <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10385	10497	
==>Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10385	10497	
==>Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    say $i while $i = $iter.next <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1896	2067	
==>ents<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('fo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1896	2067	
==>ents<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('fo <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2938	3036	
==>multi Array::push (@array is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4695	4792	
==>multi Array::push (@array is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16734	16863	
==>IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # ( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16734	16863	
==>IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15187	15286	
==>sting span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The follow <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15187	15286	
==>sting span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT METHODS

The follow <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23462	23556	
==>ts.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23462	23556	
==>ts.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text =E<gt> "...")>,
C<$botE<lt>noticeE<gt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	311	428	
==>a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remot <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	311	428	
==>a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remot <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	568	677	
==>hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not suppose <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	568	677	
==>hack to make this work well
# with objects. Eventually it should be 
# removed (IIRC hash keys are not suppose <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9289	9552	
==>undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9289	9552	
==>undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32906	32998	
==>headings are object I<classes>.  The field
"family" represents the general category into whic <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15514	15595	
==>%----------------------------------------------------------------------

rm(noop,F <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4113	4209	
==>/ %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4113	4209	
==>/ %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21041	21146	
==>age or program can be distributed with one or more
resource files containing text for users, and your prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21041	21146	
==>age or program can be distributed with one or more
resource files containing text for users, and your prog <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3065	3165	
==>m($name)>

Returns the value of the parameter named C<$name>.  If called in List context,
it will ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3065	3165	
==>m($name)>

Returns the value of the parameter named C<$name>.  If called in List context,
it will ret <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13857	13982	
==>scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1337	1462	
==>scope;

    return $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4756	4877	
==>n $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method rem <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4756	4877	
==>n $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $span );
    $.set = $tmp.set;
}
method rem <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	338	595	
==>s readonly = q{};

###########################################################################
###########################################################################

class Relation-0.0.1 {

    # External packages used by the Relation class, that do ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	647	814	
==>/Pugs-Utils/lib",
        #"$Bin/../Pugs-Compiler-Precedence/lib",
        
        "$Bin/../lib",
        "$Bin/../../Pugs-Compiler-Rule/lib",
        "$Bin/../../Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2906	3072	
==>q '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3123	3289	
==>q '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $filename\n";
            open( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2341	2457	
==>v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2341	2457	
==>v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS.new;

  for %! <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	600	705	
==>ed to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	600	705	
==>ed to put in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS P <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10119	10230	
==>. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10177	10288	
==>. For more information see the FUTURE PLANS
section of this document.

= FUNCTIONS

- `plan (Int $number_of_test <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5325	5622	
==>when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        v <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5325	5622	
==>when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod ~ ">");
                }
            }
        },      

        # Text handling
        v <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4062	4172	
==>has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4062	4172	
==>has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @k <==
2	/Users/nnunley/pugs/util/run-smoke.pl	669	774	
==>utput file location";
my $optional_args   = $ARGV[2] || "";

my $smoke_upload     = PugsBuild::Config->loo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2338	2432	
==>se subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and structu <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2338	2432	
==>se subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and structu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1670	1778	
==>|| $return_value->isa('nil')))
        || confess "bad return value, got($return_value) expected(" . $self->{ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1844	1938	
==>l the testscripts named
as arguments and checks standard output for the expected strings
in TAP <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VJunc.pm	37	131	
==>AST/Internals.hs, line starting `data VJunc'

has Perl::JuncType $.juncType;

has Set of Val $. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41528	41616	
==>=item C<join (Relation::Example *@others) returns Relation::Example>

This multi-method i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22956	23055	
==>proach over similar packages is that
text is always looked up by a key which is not meant to be mean <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22956	23055	
==>proach over similar packages is that
text is always looked up by a key which is not meant to be mean <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	271	371	
==>ing, and
# continue conversion to p6 code.

class Char is Str;
class LanguageChar is Char;
class Grap <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	476	575	
==>he spike "coded to the tests", and thus is far from being a
# complete p5 compatible regex engine, t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	284	448	
==>ssage) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	284	448	
==>ssage) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } e <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10596	10726	
==>tem = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10596	10726	
==>tem = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.member <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	847	945	
==>etch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* mor <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	847	945	
==>etch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* mor <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1227	1332	
==>assive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1194	1299	
==>assive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->cwd <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1368	1490	
==>s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is c <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1368	1490	
==>s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	622	726	
==>er::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	622	726	
==>er::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	290	398	
==>($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "not enough elements to construct a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2887	3083	
==>$state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $matches[0]{abort};

            if ( ! $matches[0]{bool} ) {

                retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2792	2983	
==>$state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                retu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7263	7382	
==>8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7263	7382	
==>8472),
    "real"     => chr(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6986	7096	
==>(anyof_char => "\0", "\\x[0]") if $cc;
    return $S->object(exact => "\0", "\\x[0]");
  }

  $self->add_handle <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12454	12550	
==>) (str $canidate) (hash %params)) returns opaque
    ((($canidate to_bit) or (= $canidate (str ne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2803	2947	
==>[\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2803	2947	
==>[\\/])};
        my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_pat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1030	1124	
==>er> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameter <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1030	1124	
==>er> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two parameter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	626	749	
==>\$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	626	749	
==>\$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match::Ratchet';
  $bool = substr <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	647	784	
==>et<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	647	784	
==>et<conform>(10)) {
      die for 'truth';
      # because the bucket with a burst size of 5
      # will never conform to 10
    }

    my <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	961	1071	
==>reach my $node (sort @nodes) {
        next if $node =~ /^(\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$no <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2875	3011	
==>];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### generate a list of metho <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9778	9886	
==>d} += $results{skip};

        my($estatus, $wstatus) = @results{qw(exit wait)};

        if ($results{passin <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1125	1307	
==>1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4944	5209	
==>new('&f'),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new(' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2187	2283	
==>ses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2187	2283	
==>ses.

=over 4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11591	11700	
==>All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11591	11700	
==>All Nodes>

Array of Rosetta::Model::Node - This stores a collection of Node objects,
which are all of the Nod <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15971	16075	
==>e is a "Bail out!".  Places the reason for bailing
(if any) in $reason.

=cut

sub _is_bail_out {
    my( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9389	9479	
==>D__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@returns) = ([1,undef, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6188	6289	
==>IO') {
	die "unimplemented";
    }
    if($cls =~ /\A(?:Code|Routine|Sub|Method|Submethod|Macro|Rule|B <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2094	2189	
==>gh Arcfour is perfectly secure when used properly, it has several known 
problems and weaknesses <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2094	2189	
==>gh Arcfour is perfectly secure when used properly, it has several known 
problems and weaknesses <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2861	2989	
==>error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2861	2989	
==>error    (./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8989	9118	
==>y installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10466	10595	
==>y installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2095	2264	
==>acute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2095	2264	
==>acute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig"    => 'æ',  # small ae diphthong (ligature)
    "agrave"   = <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	523	633	
==>d2 C<assert()>

  assert( EXPR, $name );

If the expression is false the program aborts.

=cut

sub assert ($;$ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3835	3941	
==>.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a has <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3835	3941	
==>.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a has <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2870	3010	
==>(./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2870	3010	
==>(./code); }
    
    method error_as_HTML () {
        my $title = "An Error Occurred";
        my $body = ./status_line;
        
        re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1382	1485	
==>n C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1382	1485	
==>n C<quantify>.

=cut

method optional ($p, :$minimal = 0) {...}

=pod

C<capture($p, :num($num), :name($ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17917	18032	
==>t,$fi,1); $fi++;
        my $conversion = substr($fmt,$start,$fi - $start);

        # FIXME -- when next; works, do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12250	12377	
==>ly qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12244	12371	
==>ly qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TODO - send $pos to <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12901	12999	
==>Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12959	13057	
==>Str :$depends) returns Bool`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) retu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3958	4076	
==>";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @i <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3958	4076	
==>";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22377	22462	
==>(_E,C,[char(C)|_]) :- !.
charset_member(E0,C,[char(X)|_]) :- flag_i(E0), case_insensit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8594	8708	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternatio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8787	8901	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&variable_rule;
*{'runtime_alternatio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30478	30595	
==>the set. There is a separate template module for each distinct "user
language" (or "user type") for each distinct Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30478	30595	
==>the set. There is a separate template module for each distinct "user
language" (or "user type") for each distinct Mess <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27726	27861	
==>stant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28005	28140	
==>stant( "perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \& <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1105	1267	
==>ebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1105	1267	
==>ebytes(@bytes) {
    gather {
        for @bytes -> $b1, $b2, $b3, $b4 {
            my $quad = $b1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17953	18084	
==>isual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14374	14505	
==>isual, $rhs->visual);
          &RxPOS = $before_range;
          $ret = $lhs;
        }
        elsif ($lhs->visual gt $rhs->visual <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9053	9158	
==>_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2878	2983	
==>_) };
push @statements, sub { Grammar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2977	3092	
==>e the first --include\n"
            unless $prelude =~ /Prelude/;
        open my $ifh, $prelude or die "open: $pre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4122	4274	
==>eturn int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf } <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4122	4274	
==>eturn int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == Inf } <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1115	1222	
==>); #/#--vim
  }
}

class POE::Session {
  method dispatch (Str $event, *@args) {
    die 'Please override &d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2605	2726	
==>rst in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      & <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2605	2726	
==>rst in the $volume if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      & <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4444	4586	
==>ute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4444	4586	
==>ute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    "cedil"    => '¸',
    "ordm"     => 'º',
    "r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12316	12415	
==>red in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresponding a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12316	12415	
==>red in the Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresponding a <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	263	359	
==>ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_ty <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	263	359	
==>ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_ty <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3856	3965	
==>low, it may happen that your perl was compiled without PMC support.

  Can't locate object method "compile" vi <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	897	991	
==>e provides a Perl interface to use the B<libpcre> library for
regular expressions.

=head1 AUTH <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23032	23124	
==>ast
must determine the storage representation of the roles' attributes (eg,
volatile or persi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8388	8528	
==>ey ", _qq($key), " is ", _qq($value),
                   ", not in original.\n";
      $fail = 1;
    }
  }
  foreach (keys %$orig) {
    # F <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37046	37142	
==>ew('@:MRO'             => 'list')));
$::Class->send('add_attribute', (symbol->new('@:superclasses <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	457	607	
==>= GetCommandLine();
    int j=0;
    av[0] = s;
    if (s[0]=='"') {
    for(;s[++j]!='"';)
      ;
    av[0]++;
    }
    else {
    for(;s[+ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19565	19673	
==>thorization

=item $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19565	19673	
==>thorization

=item $h.proxy_authorization

A user agent that wishes to authenticate itself with a server or a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5095	5207	
==>ACKAGE },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $inst_pkg <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1900	2003	
==>should be supplied by name.

Note that the above code is not robust.  (If you need a real implementation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	721	884	
==>n { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	692	849	
==>n { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6555	6765	
==>d {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6555	6765	
==>d {
                    $self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	787	893	
==>ray is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.elems;
 }

 multi su <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6982	7079	
==>d;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7040	7137	
==>d;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1235	1455	
==>,
                   ruleop::constant( "\%" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	253	369	
==>normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	253	369	
==>normalize($event<from_nick>)} = {
      date => time,
      text => $event<rest>,
    } if $sent_to_a_chan;

    if $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49628	49769	
==>->new('authority'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5486	5607	
==>onized'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'throws'>
    | <'const'>
    | <'goto'>
    | <'private <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21462	21588	
==>$match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21741	21867	
==>$match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumpe <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13915	14057	
==>>noop;
#    die Data::Dumper::Dumper $o;

    my $f_test = $o->data->[0]->emit;
    my $f_then = $o->data->[1]->data->[0][0]->emit;
    my $cru <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4018	4124	
==>ce_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1325	1431	
==>ce_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1475	1577	
==>st}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1615	1717	
==>st}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capture})};

    if ( $sel <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	996	1190	
==>abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $nod <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	996	1190	
==>abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                if $wdir_cb( $nod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6149	6300	
==>if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6149	6300	
==>if ((!$_base.defined) or ($_base eq '')) {
            $base = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12646	12797	
==>match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12925	13076	
==>match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	311	430	
==>_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	311	430	
==>_all("lib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1643	1757	
==>{realclean} ||= {};
    %$realclean = (
        %$realclean, 
        FILES => join(' ', grep length, $realclean->{ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3218	3461	
==>,
                                          Bit :$inplace
                             ) returns Array

 multi sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	85	203	
==>um;
use Perl6::Core::Bit;
use Perl6::Core::Str;

package symbol;

use strict;
use warnings;

use Carp 'confess';
use Sc <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3075	3201	
==>z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3075	3201	
==>z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13478	13579	
==>s evaluated lazily. This means that side effects, such as "say" and
database queries, may occur much l <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13478	13579	
==>s evaluated lazily. This means that side effects, such as "say" and
database queries, may occur much l <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12688	12942	
==>le (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12688	12942	
==>le (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4151	4245	
==>ages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4151	4245	
==>ages).

It also requires these Perl 6 classes that are in the current distribution:
L<Rosetta-( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13705	13804	
==>fic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13705	13804	
==>fic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12245	12374	
==>$1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4888	5017	
==>$1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13250	13356	
==>es:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13250	13356	
==>es:
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), sta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18483	18583	
==>ot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18483	18583	
==>ot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC library for Pugs. Note that it is I<not> a port <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1875	1978	
==>och => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.ne <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1875	1978	
==>och => time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1128	1309	
==>$old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (St <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1128	1309	
==>$old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (St <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4722	4848	
==>n sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4574	4697	
==>n sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9818	9922	
==>elf.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9818	9922	
==>elf.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1354	1482	
==>h @{ $self->{'values'}{$key} }, @rv;
        @rv;
    };
}

sub all_from {
    my ( $self, $file ) = @_;

    $self->version_from <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8764	8868	
==>efault ? DOWN($tpDefault)." " : "";
    #$type." ".DOWN($tpParam);
    DOWN($tpParam);
}

NODE TCxtVoid ( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1064	1160	
==>DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is
margina <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1064	1160	
==>DOM::Text->new("foo");

(also, the latter form is slightly more efficient, though this is
margina <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4307	4410	
==>\n\t$body;\n}");
	return $symbol . "()";
}

sub define_val {
	my $self = shift;
	my ($node, $symbol, $bo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9355	9456	
==>he set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set cont <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9355	9456	
==>he set.

For example: if `start` and `end` are times, then `size` will be a duration.

If the set cont <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	101	206	
==>s;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_TERM => 1;
use constant PGE_OPTABLE_POSTF <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	339	517	
==>_str
       p6_Undef
       p6_Bool
       p6_Bit
       p6_Int
       p6_Num
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_Lis <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10321	10439	
==>/t/">Pugs's testsuite</a>.
  </p>

  <p>
    Submitting your own smoke is easy,
  </p>

  <pre class="indent2">$ make s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11371	11524	
==>img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Cop <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4374	4479	
==>or: $0 needs an already compiled Pugs to precompile the Prelude\n"
        unless $Config{pugs};
    gen_s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19689	19785	
==>rl5::X1::CodeCompile->new(p6=>$p6)->compile;
    print STDERR $cc->warnings;
    my $p5 = "packag <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29221	29314	
==>(re && re->refcnt++), re)
 #define ReREFCNT_dec(re) CALLREGFREE(aTHX_ re)

 #define FBMcf_TAIL <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8388	8490	
==>:
  $operator = &$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$token{name};
  goto (pop @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2125	2241	
==>~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2125	2241	
==>~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submethod BUILD "
          ~"("~join(", ",map -> $n,$t { "\$$ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6475	6570	
==>lf.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6475	6570	
==>lf.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns Tree {
    ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4973	5201	
==><CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $m <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4973	5201	
==><CODE>")
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	5	115	
==>r/bin/perl -w

use FindBin '$Bin';
use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../P <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9445	9630	
==>AILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i+ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10436	10621	
==>AILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i+ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3637	3764	
==>x2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3637	3764	
==>x2/xx3/../../xx -> xx1/xx
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15630	15757	
==>eue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15630	15757	
==>eue. Will need throttling later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	652	750	
==>y "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::forc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	710	808	
==>y "1..$number_of_tests";
}

sub force_todo (*@todo_tests) returns Void is export {
     $Test::forc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7742	7871	
==>st"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7742	7871	
==>st"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => chr(8711),
    "isin"     => chr(8712),
    "notin"    => chr( <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2287	2387	
==>identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=hea <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2287	2387	
==>identity function.

=head2 C<< const($x) >>

Returns a new function which always returns C<$x>.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16411	16536	
==>erms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16411	16536	
==>erms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11579	11711	
==>f $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11579	11711	
==>f $.current == -Inf;
        return $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	619	761	
==>$first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $ch <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	619	761	
==>$first_byte = 1 }
        if ( $char eq '.' || $char eq '(' || $char eq ')' || $char eq '|' ||
             $char eq '+' || $char eq '^' || $ch <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3438	3535	
==>amentally object-oriented; the procedural and functional 
interfaces are layers on top of the obje <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3438	3535	
==>amentally object-oriented; the procedural and functional 
interfaces are layers on top of the obje <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19255	19357	
==>ld be editing them.  At
the same time, this information is in separate resource files used by the
progr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19255	19357	
==>ld be editing them.  At
the same time, this information is in separate resource files used by the
progr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	606	715	
==>, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	606	715	
==>, Str $content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10250	10375	
==>$!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method logi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10250	10375	
==>$!in_login_phase = 0;
    %!channels       = ();
    $!queue.clear;
    $!nickgen.reset;
    debug "done.";
  }

  method logi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8167	8281	
==>lines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toen <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8167	8281	
==>lines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2488	2616	
==>er::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2488	2616	
==>er::PIL::Util::Pad @.pads;   # XXX perhaps a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2927	3059	
==>S_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2927	3059	
==>S_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg, 'KEY' => $k } )
                i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7645	7794	
==>t }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7645	7794	
==>t }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_ne <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15164	15276	
==>ap->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15164	15276	
==>ap->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_unfold {
    my <==
2	/Users/nnunley/pugs/util/package-osx.pl	7089	7214	
==>erl6::Perl5::Docfinder.3pm
        /usr/local/man/man3/Perl6::Pugs.3
        /usr/local/man/man3/Perl6::Pugs.3pm
        /usr/ <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	92	191	
==>ot at all portable.

my ($in, $out) = @ARGV;

my ($name, $path) = fileparse($in);
$name =~ s/\..*$// <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	543	683	
==>ta = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	543	683	
==>ta = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18985	19082	
==>ect type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<data> field is the str <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	208	335	
==>eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $pat <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	208	335	
==>eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $path and not -d $pat <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10499	10726	
==>p_all}\n";
                $tot{skipped}++;
            } else {
                print "skipped\n        all skipped: no reason given\n";
                $tot{skipped}++;
            }             
            
            # Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5974	6093	
==>int "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5974	6093	
==>int "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6796	6935	
==>!! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if the <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6796	6935	
==>!! $_
        }
    );
}

method to_list () { 
    my $ret = self.clone;
    # TODO - optimization - return the internal list object, if the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1653	1763	
==>L $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> St <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1653	1763	
==>L $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> St <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1658	1787	
==>ry.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1658	1787	
==>ry.parse_keywords($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header(' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7905	8032	
==>),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7905	8032	
==>),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727),
    "radi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16643	16743	
==>irst time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16643	16743	
==>irst time this module is loaded, it will compile Perl 6
blocks into Perl 5 (as soon as the C<no v6> l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	373	489	
==>]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite beca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1231	1347	
==>]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is infinite beca <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1449	1567	
==>$file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugi <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1449	1567	
==>$file ~~ m:P5/\.pm$/;
        return 0;
    };
    return $f.find;
}

=head1 NAME

Module::Pluggable::Fast - Fast plugi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5724	5832	
==>"/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5724	5832	
==>"/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - Part of Perl 6/Pugs Portable file handl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14777	14895	
==>tr

General notes about strings:

A Str can exist at several Unicode levels at once. Which level you
interact with typi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14664	14757	
==>it=/linuxrc ramdisk_size=$initrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/spla <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7981	8078	
==>{ yield $^node }, $traversal_order);
    };
}

## ------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7981	8078	
==>{ yield $^node }, $traversal_order);
    };
}

## ------------------------------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	166	393	
==>ode = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	166	384	
==>ode = $1;
            #print "Code: $code\n";
            pop @s;
            my $program;
            if ( @s == 1 ) {
                $program = $s[0];
            }
            else {
                $program = "$tab <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1501	1622	
==>thod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!al <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1501	1622	
==>thod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!al <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5225	5453	
==>t.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5225	5453	
==>t.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote the value
                        if ($val ~~ m:P5/\W/ && $ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1356	1507	
==>->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1301	1445	
==>->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    re <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10084	10216	
==>module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10084	10216	
==>module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	368	465	
==>sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	368	465	
==>sub reset_params returns Void is export { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	230	361	
==>ool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	230	361	
==>ool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused!
sub new { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24015	24123	
==>y.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24015	24123	
==>y.org/pugs/> for example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LI <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1738	1833	
==>elf->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_nati <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2060	2155	
==>elf->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_nati <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4300	4407	
==>).

I<Note that the "Rosetta" package serves only as the name-sake
representative for this whole file, which <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4300	4407	
==>).

I<Note that the "Rosetta" package serves only as the name-sake
representative for this whole file, which <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1433	1684	
==>::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1433	1684	
==>::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # External packages used by the Rosetta::Interfa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8335	8463	
==>t>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8335	8463	
==>t>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      my $newnick = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29059	29240	
==>s'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29338	29519	
==>s'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	638	743	
==>stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	638	743	
==>stack_frame { 0 };

# This is called while parsing source code to determine if the
# module/class in a use <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2452	2717	
==>"our other args $arg";                        
                            push @body => $statement;
                        }
                    }                    
                    
                    @t = 'sub { my $e = shift; ' . (join '; ' => reverse @bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16743	16870	
==>ft;
    $self->family . $self->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub qr {
    my $se <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6116	6369	
==>ub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR depend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6580	6833	
==>ub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR depend <==
2	/Users/nnunley/pugs/util/config_h.pl	1246	1387	
==>< '.');
{-# OPTIONS_GHC -fth #-}
main :: (Monad m) => m ()
main = $([| return () |])
.

if ($has_th) {
    print OUT "#define PUGS_HAVE_TH 1\n <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	967	1062	
==>expressions.

=head1 AUTHORS

Audrey Tang

=head1 COPYRIGHT

Copyright 2006 by Audrey Tang E<lt> <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	60	159	
==>heck $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getpr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	60	159	
==>heck $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getpr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10028	10139	
==>}  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10028	10139	
==>}  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7215	7325	
==>ES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packag <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7215	7325	
==>ES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packag <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	776	876	
==>nshift (@array is rw ; *@values) returns Int {
   Array::splice(@array, 0, 0, @values);
   @array.ele <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1928	2024	
==>urn $self->($label, @_);
    }
}

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18223	18317	
==>of embedded classes, so the class
C<[\w\d:4-65:]> will render as C<[\w\d:4-6]>.  If you want to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1085	1248	
==>}
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$self->{levels}[$_]}, $opt;
            }
            else {
                die "inv <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2286	2423	
==>on for now)
.
# XXX Not sure about the above heuristic. So die if incorrect.
    $path =~ s/\/\d+\.\d+\.\d+//g;
    $config->{$name} = $pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16235	16328	
==>ren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <cor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16293	16386	
==>ren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

Max Maischein <cor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2895	3022	
==>nst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        my $bool = $const eq substr( $_[0], $_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32084	32179	
==>Walking an Object

Most objects inherit their ender() and walk() methods from the base
object cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5076	5186	
==>st 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5076	5186	
==>st 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3853	3968	
==>pen_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3853	3968	
==>pen_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self )
        if $span.isa( 'S <==
2	/Users/nnunley/pugs/util/version_h.pl	443	547	
==>pdated when the file in which the keyword appears
# is modified.
my $revision = 0;

# SVK tries to ask th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8537	8637	
==>S->object(exact => join("", map chr(oct), @oct), "\\0[$o]");
    }

    $S->error(0, "Missing right % <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10612	10748	
==>ft {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10612	10748	
==>ft {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert( <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1319	1417	
==>ke' utility
before installation. It's available at:

  http://download.microsoft.com/download/vc15/ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1159	1257	
==>ke' utility
before installation. It's available at:

  http://download.microsoft.com/download/vc15/ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4814	4911	
==>day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4814	4911	
==>day_of_quarter()`

Returns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4987	5108	
==>>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4987	5108	
==>>('config.ini');
  
where C<$config> is an 'instance' returned by the C<Config::Tiny::new> 
constructor.

=over 4

=item r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4117	4272	
==>rt} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4117	4272	
==>rt} ) {
                # die "not implemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14499	14603	
==>UCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14499	14603	
==>UCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end`.

- `n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3693	3800	
==>ta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3693	3800	
==>ta::Model::Node     $!parent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6372	6486	
==>base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6372	6486	
==>base);
        }
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1876	1981	
==>::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=k <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1876	1981	
==>::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=k <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1015	1168	
==>lti method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1015	1168	
==>lti method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16779	16930	
==>ub layout {
    our $indent;

    if (@_ > 1 or "@_" =~ /\n/){
        return join(
            "\n" . ("\t" x $indent),
            "(", (map { "$_," } <==
2	/Users/nnunley/pugs/util/version_h.pl	747	851	
==>}
elsif (-r $svn_entries) {
    print "Writing version from $svn_entries to $version_h\n";
    open FH, $ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	85	216	
==>Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $* <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	85	216	
==>Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir := $Bin;
    $RealDir := $RealBin;
    if ( $* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17902	17997	
==>like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17902	17997	
==>like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	392	499	
==>YNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.childre <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	392	499	
==>YNOPSIS

 use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.childre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24430	24550	
==>ch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20851	20971	
==>ch inside ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    pus <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10537	10631	
==>er(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<decip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10537	10631	
==>er(Class $class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<decip <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8087	8204	
==>rk ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8087	8204	
==>rk ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p. <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	332	461	
==>ENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = op <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	332	461	
==>ENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = op <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3286	3444	
==>nue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3286	3444	
==>nue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12867	12963	
==>- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12867	12963	
==>- `end()` 

Returns the last element in the recurrence.

Returns positive infinite if the recurre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11346	11507	
==>_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    if ( $n->{op1}{op} eq ':=' ) {
        #warn "bind: ", Dumper( $n );
        return " tie " . _emit( $n->{e <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1596	1720	
==>>new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1563	1687	
==>>new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15963	16163	
==>rule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15957	16157	
==>rule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $_[1]."        ", @param ) . ";\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20972	21065	
==>p
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database manager (s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20972	21065	
==>p
Rosetta's rigorously defined API onto a pre-existing (pseudo) relational
database manager (s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2047	2195	
==>et {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zon <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2047	2195	
==>et {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zon <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1149	1262	
==>read_script {
    my ($self, $script_file) = @_;
    local *SCRIPT;
    open SCRIPT, $script_file
      or die "Ca <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	300	437	
==>) returns Bool {
    .meta.isa($class);
}

=head1 NAME

Type - Perl 6 types

=head1 SYNOPSIS

 my $class = Class.new("SomeClass");
 my $ty <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	642	761	
==>running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	642	761	
==>running " ~ server_software() ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	550	673	
==>sful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press EN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	550	673	
==>sful.],
    'ROS_S_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press EN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5021	5139	
==>3{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5021	5139	
==>3{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We have already initialized %cache353{$chan}.
    %cache3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1784	1963	
==>ug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1784	1963	
==>ug("Checking $domain for cookies");
                my $cookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	693	844	
==>h is already installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_di <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14035	14149	
==>eturn;

    ### dump out alternatives again
    ### XXX pretty method?
    $self->registered_alternatives([ @{$self <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4961	5077	
==>_method($method_name);
            # otherwise ... add the method in 
            $self->add_method($method_name => $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4081	4169	
==>mber versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Excep <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4081	4169	
==>mber versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception ("Excep <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2527	2655	
==>inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2527	2655	
==>inside++;
      $.servername     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:hand <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	487	595	
==>$node = shift;

    if ($self->can_reduce($node)){
		my $r = $self->runtime;
		if (my $replacement = $r->prov <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6264	6372	
==>n added and moved around. See
L<Regexp::Parser::Objects> for documentation about nodes and the objects
that r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11502	11635	
==>rcname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11502	11635	
==>rcname");
        });
      }
    },

    # Process $queue, wait for input from server and process it
    run => {
      while($connec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9481	9621	
==>, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $sc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2534	2674	
==>, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $sc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5928	6043	
==>my $current = $self;
    while ($current) {
        if (exists $current->{env}->{$name}) {
            $current->{en <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40123	40416	
==>il'
            ),          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19672	19956	
==>il'
            ), 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6342	6476	
==>];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6330	6464	
==>];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runti <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1527	1651	
==>p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    return $return;
} <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1527	1651	
==>p, %v) {
    my $return;
    for %v{%p{'id'}} {
        $return ~= %p{'_content'}.fill_with(%$_);
    }
    return $return;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3019	3169	
==>m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3019	3169	
==>m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1990	2117	
==>subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2001	2128	
==>subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        rule <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1064	1158	
==>Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1064	1158	
==>Str $file) returns Str is export {
    return &::($worker_pkg)::catpath( $volume, $directory, $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10289	10387	
==>osure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10289	10387	
==>osure_previous => sub {...}, universe => $universe )`

Creates a recurrence set.

The complementary <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6317	6416	
==>yntax, contained in a package

### rule must ever use Rule::rule form - never Rule->rule ??? (assumi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6102	6200	
==>yntax, contained in a package
### rule must ever use Rule::rule form - never Rule->rule ??? (assumi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7718	7816	
==>rs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, "" <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7718	7816	
==>rs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, "" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	216	338	
==>($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $? <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	216	338	
==>($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $? <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5488	5593	
==>);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5546	5651	
==>);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1284	1401	
==>ath ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1284	1401	
==>ath ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1801	1909	
==>alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1861	1969	
==>alpha
alnum
ascii
blank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = q <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	987	1096	
==>track or whatever
    return - the block (sub-reference) that contains 'return'
    label - the capture name ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	987	1096	
==>track or whatever
    return - the block (sub-reference) that contains 'return'
    label - the capture name ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	702	838	
==>heck( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    ### make it a P::C item
    $args->{file} = Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8027	8137	
==>:Parser::branch;
  sub emit {
    my($o)=@_;
    my(@fs) = map { $o->concat($_) } @{$o->data};
    my $f_last = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6693	6805	
==>);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6693	6805	
==>);
      my $chan = normalize $event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39229	39327	
==>:Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39229	39327	
==>:Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11003	11098	
==>tr $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11061	11156	
==>tr $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `like (Str $got <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41016	41109	
==>item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41016	41109	
==>item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1456	1654	
==>,
            packages => {
                default     => [ ],
                no_override => 1,
                store       => \$pkgs,
            },
        };

        check($tmpl, \%args) or err <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2303	2407	
==>gs{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2281	2385	
==>gs{remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5292	5398	
==>. "::$type" if $orig_base;
  }

  return $class->new(@_);
}


sub add_flag {
  my ($self, $seq, $func) = @_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10356	10453	
==>har_class(class_neg(space_perl))    --> "\\S", !.
p56_char_class(class_pos(word))          --> "\\ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7322	7438	
==>pen;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7322	7438	
==>pen;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :start($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6352	6488	
==>$num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6340	6476	
==>$num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my \$m = Pugs::Runtime::Match->n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	958	1065	
==>re for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	958	1065	
==>re for single elements (Span::Singleton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_dif <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10586	10730	
==>e $@} qw(+ - == <=), '<', do {
        grep {
            print "Implement &infix:<$_> in perl instead of the mini language? ";
            ReadM <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	962	1068	
==>che;
sub bind {
	my $self = shift;
	my $c_code = shift;

	my $digest = Digest->new("SHA-1");
	$digest->add( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7283	7485	
==>toflush(\*STDERR);

    my(%failedtests);

    # Test-wide totals.
    my(%tot) = (
                bonus    => 0,
                max      => 0,
                ok       => 0,
                files    = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2015	2175	
==>trm && -s _ ) {
        system( qq[ $^X $postrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX d <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	302	414	
==>Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	302	414	
==>Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# p <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7510	7633	
==>$pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7567	7690	
==>$pattern, $license ) = splice( @phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9816	9925	
==>gs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9810	9919	
==>gs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return "$_[1] do{ 
$try_match
$_[1]     if ( \$bo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	214	313	
==>ule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	214	313	
==>ule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \S+ ))->co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8985	9081	
==>you should never refer directly to "Rosetta::Model" in
your code; instead refer to other above-na <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8985	9081	
==>you should never refer directly to "Rosetta::Model" in
your code; instead refer to other above-na <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8560	8665	
==>peSafe::Type::Bottom->new,
			);
		});

		return Blondie::TypeSafe::Annotation->new(
			type => Blondie::T <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	672	774	
==>ed with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support encipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	672	774	
==>ed with the Cipher API must operate on bytes or multi-byte blocks; 
the API does not support encipherin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3120	3283	
==>, $obj->alternatives_dir,
                                $obj->control_dir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and er <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3813	3953	
==>ified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op(W, Z) --> p5_range(W, Z), !.
p5_quantified_op(W, W) --> {true}.

p6_quantified <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2301	2549	
==>_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3889	4137	
==>_) eq 'HASH' ) ? %$_
                                                : @$_
                        : $_
            } @$mods
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1750	1932	
==>\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1750	1932	
==>\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape " and \
                            take <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	234	324	
==>------------------------------------------------------------
## constructors

submethod BUI <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	234	324	
==>------------------------------------------------------------
## constructors

submethod BUI <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8631	8730	
==>exists $suspect->{$_});
    print STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3890	3993	
==>ange(W, Z), !.
p5_quantified_op(W, W) --> {true}.

p6_quantified(Z) --> p6_elemental(W), p6_quantified_o <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	17	120	
==>w

use strict;
use IPC::Open2;
use Getopt::Long;
use Config ();

# helper code to inline the Standard Pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1540	1660	
==>he message is properly escaped.
    _diag @mess;

    $test++;

    return $pass;
}

sub _where {
    my @caller = caller <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1152	1248	
==>zel>,
under a BSD-style license.  See the F<LICENCE> file for details.

This program is free soft <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4921	5010	
==>$PIL::PIL1CPerl5::NodesInfo::node_named{$1});
}
sub field_type_simple {
    my($self,$fnam <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2391	2506	
==>ct[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      tak <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2391	2506	
==>ct[0],4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      tak <==
2	/Users/nnunley/pugs/util/grokprims.pl	1848	1952	
==>)";
  } elsif (/non-associative/) {
    $example = "\$$a0 $name \$$a1";
  } elsif (/postfix/ and $arity = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3888	4073	
==>method' => $e->get('$label')));                    
                      })
                  );    
                $e->set('$current' => $e->get('&dispatcher')->do());
            })- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	11	108	
==>::VCode;

# from src/Pugs/AST/Internals.hs (see data VCode)

has Bool $.isMulti;

has Str $.subNam <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	917	1019	
==>e::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=hea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	917	1019	
==>e::Match::Ratchet - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=hea <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3971	4171	
==>round = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 1;
            }
        } <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5810	5942	
==>e {}
class Pugs::Internals::VRule does Rule {}
class Rul does Rule is builtin {
    has $.f;
}
# This infix:<~~> doesnt work yet.
mul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1146	1260	
==>is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1146	1260	
==>is_closed () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10097	10213	
==>nto_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10097	10213	
==>nto_template_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	278	388	
==>non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	278	388	
==>non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19259	19382	
==>n, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (spli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15680	15803	
==>n, $r_off) = ("", "");
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (spli <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	442	542	
==>adable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Secur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	442	542	
==>adable lines) but surprisingly 
secure stream cipher.  It is believed to be compatible with RSA Secur <==
2	/Users/nnunley/pugs/util/addauthors.pl	531	659	
==>re = qr/$c/i;
  foreach my $a (@$authors) {
    if ($a->{wholeline} =~ $re) {
      $author = $a;
      last;
    }
  }
  if (!$a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7227	7485	
==>_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7227	7485	
==>_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4711	4840	
==>= substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4711	4840	
==>= substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] perl5( '\\$_' )\n" if $char eq $_;
        return "$_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2097	2218	
==>ct[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if ( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2097	2218	
==>ct[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1681	1826	
==>tp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example. <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2322	2451	
==>}
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to rec <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2322	2451	
==>}
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do something else to rec <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1707	1805	
==>, Int $burst_size)

The constructor takes as parameters at least C<rate of information> in
items pe <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1707	1805	
==>, Int $burst_size)

The constructor takes as parameters at least C<rate of information> in
items pe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	645	753	
==>er needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	645	753	
==>er needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "matc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8973	9079	
==>rget') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulatin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8973	9079	
==>rget') = $target if $target.defined;
    
    return $h;
}

=head1 NAME

HTTP::Headers - Class encapsulatin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10383	10482	
==>d validations are performed
on demand at some time after the input has been set, and could potential <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10383	10482	
==>d validations are performed
on demand at some time after the input has been set, and could potential <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1120	1224	
==>r_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1120	1224	
==>r_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24306	24412	
==>et with a single member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=ite <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28858	28964	
==>et with a single member that is an empty Mapping.

=back

A Relation object has these methods:

=over

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8662	8770	
==>subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8662	8770	
==>subrule (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4896	5036	
==>elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of ti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4896	5036	
==>elsif $n > $high {
            $match.backtrack()();
        }
        else {
            # In here, we are within the specified number of ti <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	864	970	
==>ared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	864	970	
==>ared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20968	21163	
==>,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21247	21442	
==>,
                   ruleop::constant( "local" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7224	7323	
==>of data about: backtracking, aborting, capturing.



There are 2 kinds of ruleop operators:



- hig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6978	7073	
==>of data about: backtracking, aborting, capturing.

There are 2 kinds of ruleop operators:

- hig <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2259	2379	
==>eue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AU <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2259	2379	
==>eue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AU <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	66	161	
==>eceiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	66	161	
==>eceiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7807	7902	
==>s Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assume tha <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7807	7902	
==>s Void {...}>

Clears the cipher object's internal structures.

Cipher authors should assume tha <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2712	2801	
==>tasyntactic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <commit_alternation <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	447	580	
==>+@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	447	580	
==>+@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38598	38697	
==>n $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38598	38697	
==>n $text and
"{ 'place' => 'World' }" in %msg_vars, it will return "Hello World!".  All
occurances of <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2382	2480	
==>::Perl>, which happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk of but have <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27228	27323	
==>ests() was called.  Putting absolute path into 
C<HARNESS_FILELEAK_IN_DIR> may give more predict <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4461	4556	
==>head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex obje <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4711	4806	
==>head2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	838	960	
==>nges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	838	960	
==>nges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticate
>;

my @entity_headers = <
 Allow Conte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8843	8940	
==>scalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2668	2765	
==>scalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	388	490	
==>,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = und <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	388	490	
==>,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input file
local $/ = und <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4111	4217	
==>pty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4111	4217	
==>pty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) returns bool { 
    return $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11185	11293	
==>he last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11185	11293	
==>he last traffic from the server was seen, so we can
    # autoping the server if needed.
    $.last_traffic = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9133	9283	
==>ing ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9133	9283	
==>ing ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) return <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2599	2696	
==>erl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work autom <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2599	2696	
==>erl 5 File::Spec::Functions module than the base File::Spec. Also the
/hack/ to make it work autom <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29192	29300	
==>d with the previous object in the tree.

=item my $m = $obj->merge()

Merges this node with the previous one, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	473	591	
==>$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	473	591	
==>$tab     $subrule( \$_[0], { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	377	497	
==>.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	377	497	
==>.query handles «
        param params
        :delete_param<delete> :delete_params<clear>
        keywords
    » = { HT <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	535	658	
==>elf: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	535	658	
==>elf: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	181	283	
==>::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	181	283	
==>::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3415	3531	
==>s) {
	unshift(@mess, "#      got "._q($got)."\n",
		       "# expected "._q($expected)."\n");
    }
    _ok($pass, _w <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	388	488	
==>reality check")
# spike has succeeded.  The most of the re_tests are passing.  While
# the spike "cod <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	478	584	
==>rm one step -- i.e. get an event from @:events and call it.
  my method step () {
    return unless @:event <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3990	4107	
==>::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3990	4107	
==>::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4811	4954	
==>s module is meant for people who want a simplified view of the
libwww-perl library.  It should also be suitable for one-liners.  If
you need mor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4811	4954	
==>s module is meant for people who want a simplified view of the
libwww-perl library.  It should also be suitable for one-liners.  If
you need mor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26166	26268	
==>URPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26166	26268	
==>URPOSE.  However, for an additional fee, the copyright
holders of Rosetta can sell you a warranty for i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3362	3464	
==>$kind";
	warn "defining a new $kind (@_)";
	return $self->$method(@_);
}

sub define_prim {
	my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	161	316	
==>y $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined % <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	161	316	
==>y $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined % <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1218	1372	
==>);
    }
    default      {
        show();
    }
};

sub show () {
    print template( "wiki.tmpl", topic => $topic, entry => $entry, entry_html => $entry <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8455	8595	
==>1),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8455	8595	
==>1),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1221	1324	
==>tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1232	1335	
==>tail ) = $_[0] =~ /^\<\!(.*?)\>(.*)$/s;
    return unless defined $code;
    # print "negated_subrule $c <==
2	/Users/nnunley/pugs/util/addauthors.pl	359	455	
==>rs = readauthors();
#print Dumper $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7987	8088	
==>idate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7987	8088	
==>idate whether the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_pe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1370	1479	
==>Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1370	1479	
==>Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my method set_parent ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22600	22705	
==>ected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22600	22705	
==>ected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot's nick. Also se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21451	21586	
==>urn unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21730	21865	
==>urn unless $match;
        my $capture_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1602	1721	
==>$base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1602	1721	
==>$base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6757	6850	
==>ze($event<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6757	6850	
==>ze($event<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13944	14034	
==>code_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13944	14034	
==>code_entities( $string, $unsafe_chars )

This routine replaces unsafe characters in $string <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1247	1341	
==>emory footprint of constant size because the
algorithm is based on statistics. This was my main <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1247	1341	
==>emory footprint of constant size because the
algorithm is based on statistics. This was my main <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	206	311	
==>e notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	206	311	
==>e notes on macros:

   Ideally, the node definition clauses would be in one file,
   and the defining macr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19951	20089	
==>sg .= ", $tot->{skipped} test"
                     . ($tot->{skipped} != 1 ? 's' : '');
        if ($tot->{sub_skipped}) {
            $bo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25677	25766	
==>t(_,flgs(_,m,_,_,_,_,_,_,_,_))).
flag_s(amat(_,flgs(_,_,s,_,_,_,_,_,_,_))).
flag_x(amat(_, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10	115	
==>-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10	115	
==>-0.0.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3745	3923	
==>& defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3745	3923	
==>& defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($start <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3302	3400	
==>t once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3302	3400	
==>t once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\012}{}) {
  i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5291	5411	
==>,
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data structures used b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5291	5411	
==>,
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the other data structures used b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11040	11179	
==>.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11040	11179	
==>.current;
    has $.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.sp <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1373	1473	
==>her rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1373	1473	
==>her rate limiters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3746	3863	
==>c> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3746	3863	
==>c> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353", -> $event {
      my ($chan, $nicks) = $eve <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10066	10175	
==>:FilterNodeDefs;
our($package_name,$method_name);
sub import {
    my($pkg,$name)=@_;
    $package_name = $pkg <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1168	1294	
==>g
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4646	4772	
==>g
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to have zero <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11396	11529	
==>ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF! <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11396	11529	
==>ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF! <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11398	11496	
==>gs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11456	11554	
==>gs, it is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1388	1558	
==>perl6_grammar {
    # item=>'<item>',
    my ($self, $op) = @_;
    print "emitting grammar\n";
    my $s = "";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1483	1604	
==>< @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1483	1604	
==>< @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_pat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21472	21573	
==>right (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redistribu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21472	21573	
==>right (c) 2006. Ingy döt Net. All rights reserved.

This program is free software; you can redistribu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4460	4607	
==>tf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4682	4829	
==>tf('%08X', unpack('%32N*', $_[0]));
        print "# Generated file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6099	6205	
==>e.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= CO <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6099	6205	
==>e.new( recurrence => $recurrence_set, span => $span );

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= CO <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3668	3766	
==>path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3668	3766	
==>path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17435	17606	
==>y $idx = index($fmt,"%",$fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	800	895	
==>ESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	826	921	
==>ESTROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6893	7023	
==>arts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CH <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6893	7023	
==>arts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $self!boundary;
    
    # XXX need to do the CH <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	413	527	
==>xscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule l <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	413	527	
==>xscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2728	2838	
==>igil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2728	2838	
==>igil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6835	7035	
==>ch.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6835	7035	
==>ch.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12316	12425	
==>0:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "di <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12316	12425	
==>0:00.0,24:00:00.0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "di <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	362	475	
==>tion
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter(). <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	362	475	
==>tion
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter(). <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3728	3832	
==>-pugs <?p6ws>? \;
RULE
*{'require'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    require <?p6w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25279	25375	
==>s using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This prog <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25279	25375	
==>s using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This prog <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1589	1712	
==>>superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::creat <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1794	1917	
==>>superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- placed here so ::creat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20145	20247	
==>be completely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20145	20247	
==>be completely testable on its own.  It is
coded intentionally in a simple fashion so that it is easy to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13991	14116	
==>ey");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13991	14116	
==>ey");
      } else {
        ./:enqueue("JOIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6856	7122	
==>/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6856	7122	
==>/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $request <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1050	1187	
==>ie $?;
            ### rename it to <package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$Me <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1840	1943	
==>int "*** Finished building dependencies.\n\n";

    $run_setup = sub { system($setup, @_) };
    $run_se <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5264	5349	
==>digits_int(Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(Max), !.
p6_range_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	587	721	
==>rser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	587	721	
==>rser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	562	679	
==>xscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packa <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	562	679	
==>xscope> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	551	647	
==>>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	551	647	
==>>;

my @request_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15901	15999	
==>r that,
while resembling a message that would be shown to a user, is in fact meant
to be interprete <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15901	15999	
==>r that,
while resembling a message that would be shown to a user, is in fact meant
to be interprete <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2899	3025	
==>_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ou <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2899	3025	
==>_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1423	1535	
==>'t open $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  ) <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	118	221	
==>o 1st Jan 2000, UTC
method epoch($self:) returns Float {
    ...
}

# return a unix time_t
method time_t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3066	3179	
==>olerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Arra <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3066	3179	
==>olerant returns Bool`

- `splitdir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Arra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	655	751	
==>ackslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	655	751	
==>ackslashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14024	14141	
==>(+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17501	17618	
==>(+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7819	7981	
==>,
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7819	7981	
==>,
    "isin"     => chr(8712),
    "notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6928	7047	
==>_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6928	7047	
==>_TYPE', { 'METH' => $meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $va <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1991	2089	
==>ing the 
last component of the calling function's package name.  (For example, if 
a function in C< <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1991	2089	
==>ing the 
last component of the calling function's package name.  (For example, if 
a function in C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2340	2483	
==>, other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2340	2483	
==>, other => '[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1746	1897	
==>M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        warn "* precompi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5870	5964	
==>'... $Bar is the fifth id');
is($Bar->class, $Class, '... $Bar refs to metaclass');
is($Bar->na <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15050	15210	
==>2 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19225	19385	
==>2 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \digi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	492	638	
==>ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	492	638	
==>ng is rw) {
        my $ret = do given $tree {
            say "Processing $tree / $tree.ref()";
            
            when ::Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1770	1869	
==>proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
mu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1770	1869	
==>proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
mu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5062	5181	
==>s), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5062	5181	
==>s), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it does it remove . a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7229	7325	
==>---------------------------------------------
## traversal

method traverse ($self: Code $func, S <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7229	7325	
==>---------------------------------------------
## traversal

method traverse ($self: Code $func, S <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4087	4314	
==>t_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.prin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4087	4314	
==>t_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size>\n");                     
                }
                when 'list' {
                    $fh.prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1463	1566	
==>the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1670	1773	
==>the prelude is always required, even if it is out of date!
      warn "* loading Prelude: $prelude_file- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	728	859	
==>e = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	728	859	
==>e = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1269	1386	
==>ch;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1269	1386	
==>ch;
};

# specced methods

sub ws {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	835	992	
==>e('@:slots')} = @$repl;
            },

            'array_fetchKeys' => sub { # returns list of indices
                my $self = shift;
                0 . <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18722	18822	
==>t use any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18722	18822	
==>t use any dialect of SQL in its native API (unlike many
other DBMS products) because SQL is more ambi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4266	4363	
==>t returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4266	4363	
==>t returns positional
captures as match objects.

=head2 %{}

When used as a hash reference, the ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	843	980	
==>ing = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	857	988	
==>ing = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $num.isa("Num")    { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7727	7826	
==>provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clear <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7727	7826	
==>provided which returns nothing.

=item C<zeroize>

    C<method zeroize() returns Void {...}>

Clear <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5764	5872	
==>et_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5764	5872	
==>et_universe,
    );
}

# --------- scalar functions -----------

method next ( $x ) { 
    return $.closure_n <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21739	21899	
==>: ' ~
        join(' ',@*INC) ~ ")."; #XXX - should be fail
  }
  my $seen = %*INC{$module};
  if $seen {
    opRequire();
  }
  else {
    find();
  }
}
sub Pug <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	931	1050	
==>y);
	}

	sub get {
		$_[0]{$_[1]}
	}

	sub fmap {
		my $self = shift; my $f = shift;
		(ref $self)->new( map { $_ => &$f <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1663	1763	
==>METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters a <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1663	1763	
==>METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as parameters a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8709	8827	
==>v_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8709	8827	
==>v_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4159	4259	
==>::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5008	5108	
==>::variable {
    return $_[0];
}
sub node::immediate_statement_exec {
    return get_data( $_[0], '$< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2292	2392	
==>ld see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Elemen <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2292	2392	
==>ld see the subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Elemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2010	2151	
==>_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2010	2151	
==>_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13097	13214	
==>tr $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13097	13214	
==>tr $from, Str $command, Str $object, Str $rest {
      my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+)!/; #/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2561	2685	
==>ype {
    my $self = shift;
    ($self->{neg} ? 'n' : '') . $self->family;
  }

  sub visual {
    my $self = shift;
    $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	889	1006	
==>rcumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	914	1031	
==>rcumfix:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '(' <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2021	2134	
==>/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory fr <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2021	2134	
==>/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory fr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	772	872	
==>gs::Runtime::Rule;
    my $grammar = shift;
    ].Pugs::Emitter::Rule::Perl5::emit_rule( $ast, '    ' <==
2	/Users/nnunley/pugs/util/run-smoke.pl	460	557	
==>t Bundle::Pugs::SmokeKit.
EOF
#'

#
# run-smoke.pl /some/sandbox/dir /some/www/file.html
#
my $pug <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2081	2233	
==>ngful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -bas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2081	2233	
==>ngful return value here?
    return;
}

# Set up inheritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1249	1352	
==>>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1249	1352	
==>>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs::Runtime:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	466	607	
==>ck_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	466	607	
==>ck_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13591	13697	
==>ted is TRUE then we also unterminated named
entities will also be expanded.  The longest matching name in
% <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13591	13697	
==>ted is TRUE then we also unterminated named
entities will also be expanded.  The longest matching name in
% <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10702	10797	
==>$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not ye <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10760	10855	
==>$depends) returns Bool`

*NOTE:* This function currently uses `require()` since Pugs does not ye <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	469	584	
==>");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	469	584	
==>");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tempfilename);
  ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	858	987	
==>e() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	858	987	
==>e() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_header (HTTP::Request $request) {
        my $uri = $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32486	32580	
==>:KeyedText::Translator Class

While a Translator object stores some attributes for configuratio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32486	32580	
==>:KeyedText::Translator Class

While a Translator object stores some attributes for configuratio <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7814	7915	
==>ectories on test include list
    --incude=I1,[I2,...]    Include files
    --exclude=E1,[E2,...]   Ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4296	4553	
==>ot fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4296	4553	
==>ot fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies t <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	306	409	
==>e target that uploads the results of this
#    to a server somewhere.


package Test::Harness::YAML;
use <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14860	14958	
==>ocument>

Rosetta::Model::Document - This stores a reference to the Document that
this Node and all <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14860	14958	
==>ocument>

Rosetta::Model::Document - This stores a reference to the Document that
this Node and all <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	198	307	
==>e

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	198	307	
==>e

#regex block { \{ <code> \} } # a block of code
# pugs parsing problem? - 2005 Jul 31
token block { <[{]> < <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	405	537	
==>tart => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns O <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	405	537	
==>tart => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns O <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3028	3142	
==>p = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object represent <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3028	3142	
==>p = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object represent <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8817	8933	
==>:$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Lo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8817	8933	
==>:$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Lo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3491	3627	
==>$ar = $ghc;
        $ar =~ s{(.*)ghc}{$1ar};
    }

    my $fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1166	1306	
==>man3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(privlib            = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2762	2892	
==>"*{'$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	952	1077	
==>r or die "Could not chdir to $builddir: $!";
    }

    ### build an archive file
    my $archive = $path . $Ext;
    {   syst <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12143	12242	
==>se tree independently, use the root()
method to get it.  From there, you're on your own.  You'll pro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	438	585	
==>new( dir => /path/to/source )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $dir;
    my $tmpl = {
        dir     => <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9764	9869	
==>::operator::nullary->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		my $a = type::variable: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19466	19601	
==>= $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15887	16022	
==>= $S->$f(1) and $r_on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7923	8023	
==>ternation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7653	7749	
==>ternation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alte <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1779	1903	
==>t functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub| <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1779	1903	
==>t functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code =~ /^\s*(?:sub| <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3366	3456	
==>P::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3366	3456	
==>P::Query object that
is part of every HTTP::Request::CGI object (accessible as C<$r.query>, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	74	188	
==>:Rule::Strategy;

=pod

C<Result> is the match state that is passed around.  It essentially
forms a linked list thr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	74	188	
==>:Rule::Strategy;

=pod

C<Result> is the match state that is passed around.  It essentially
forms a linked list thr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3469	3729	
==>,
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(10),
    ),

Will reduce all the children of <==
2	/Users/nnunley/pugs/util/config_h.pl	613	739	
==>/src/Pugs/pugs_config.h" or die $!;

while (<IN>) {
    /version (\S+) .*\breleased (.*)\./ or next;
    print OUT << ".";

#if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	425	562	
==>m ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	425	562	
==>m ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> $name {
                return $query.param($n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13681	13780	
==>an is used to represent continuous measurements, such as times, temperatures, or price ranges.

Crea <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13681	13780	
==>an is used to represent continuous measurements, such as times, temperatures, or price ranges.

Crea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2206	2321	
==>(Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2206	2321	
==>(Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13296	13417	
==>ple and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13296	13417	
==>ple and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta::Interface: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5089	5202	
==>t_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SEL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5089	5202	
==>t_node;
        $parent_node!child_nodes.push( $?SELF );
    }
    else {
        $document!root_nodes.push( $?SEL <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5758	5901	
==>ame( $from );
        
        for my $dir ( File::Find::Rule->directory->in( $from ) ) {
            ### strip the leading dirs from the target <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9447	9535	
==>ed'};
	push(@args,"name=>".$stringify->($aname));

	push(@args,"invocant=>1") if $op{'isI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3925	4036	
==>rl6 Grammar with the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3785	3894	
==>rl6 Grammar with the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7150	7370	
==>e {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7150	7370	
==>e {
                if defined $.current_span {
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	0	101	
==>package p6dump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	0	101	
==>package p6dump;
use strict;
use warnings;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1753	1925	
==>($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1753	1925	
==>($_) for %!params.keys;
    }
    
    method keywords () {
        return @!keywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2696	2815	
==>nd returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta objec <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3160	3279	
==>nd returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta objec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	857	951	
==>::Engine::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	857	951	
==>::Engine::Example for English

=head1 VERSION

This document describes Rosetta::Engine::Example <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	97	211	
==>e = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	97	211	
==>e = ruleop::concat( 
        ruleop::constant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       rule <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	298	398	
==>base 'Object::Accessor';

=head1 ACCESSORS

=over 4

=item dir

=item meta

=item config

=back

=hea <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7679	7796	
==>ghc_pkg($ghc));
}

sub has_ghc_package {
    my ($self, $package) = @_;
    my $ghc_pkg = $self->assert_ghc_pkg;
    ` <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	79	180	
==>e of attribute grammars and multimethods)

# first part is a type pretty printer and the type object m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3842	4029	
==>t_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3842	4029	
==>t_time);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33388	33492	
==>rary
which it uses, the Template module for the program or first library should
appear first in the array <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33388	33492	
==>rary
which it uses, the Template module for the program or first library should
appear first in the array <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	597	697	
==>rset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	597	697	
==>rset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modified-Since If-N <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6419	6537	
==>n currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=hea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6419	6537	
==>n currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process each line of the file.

=back

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1006	1106	
==>ting simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; me <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1006	1106	
==>ting simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I<tags>; me <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	261	387	
==>rent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	261	387	
==>rent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $.template <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2392	2494	
==>thod remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2392	2494	
==>thod remove_content_headers () {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5671	5805	
==>,
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5671	5805	
==>,
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	397	499	
==>s Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.be <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	397	499	
==>s Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util::Pos $.be <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2171	2283	
==>',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2171	2283	
==>',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfix', name => '(', na <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	585	728	
==>ren(
                Tree.new(:node<Object>).add_children(
                    Tree.new(:node<List>).add_children(
                        Tree. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2011	2163	
==>rence
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl filehandle
    Code        Base class for al <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	854	971	
==>urn 1;
    }
}

sub base_path {
    my $self = shift;
    $self->{_top}{base};
}

sub is_extension_build {
    my $sel <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10456	10554	
==>okeserv/smokeserv-client.pl ./smoke.html</pre>

  <p>
    should suffice. See the <a
    href="http <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7793	7923	
==>s $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7986	8116	
==>s $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40829	40926	
==>ied version of Locale::KeyedText that you are willing to distribute,
because that is a practical w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40829	40926	
==>ied version of Locale::KeyedText that you are willing to distribute,
because that is a practical w <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10661	10795	
==>pe;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22788	22900	
==>egcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTENDED
 PMf_MULTILINE

 ROPT_ANCH 
 RO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3571	3695	
==>kgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname inform <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3571	3695	
==>kgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, and
  # ircname inform <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22705	22800	
==>rather than one.  The Relation::Example operators are somewhat of
a superset of the Set operator <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	212	301	
==>ule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@Grammar::Perl6::s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8189	8298	
==>le for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create yo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8189	8298	
==>le for various reasons
# of convience. Sometimes that depth 
# field is not always correct.
# If you create yo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9394	9518	
==>rocess_hash( $hash{$_} ),
        ] )
    } @keys;
    return alternation( \@keys );
}

sub end_of_string {
    return <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8751	8845	
==>ss([$s] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepArray2::unparse {
    my $n = $_[0]->name <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6080	6225	
==>{
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6080	6225	
==>{
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        when 'utf-8' {
            $encode <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3301	3413	
==>ttr block 
        { $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[5], %{$_[4]} } }
    | SUB SUB BARE <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1073	1180	
==>et_str {my($o,$s)=@_;$$o->{'val_string'}=$s;}
sub describe {
    my($o)=@_;
    my $os = "$o";
    $os = $o- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1618	1778	
==>d not clean out '$builddir'" ), return;
#         }                
#         JIB::Utils->_mkdir( dir => $builddir )
#             or error( "Could not create cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9226	9354	
==>$neg, $how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16579	16694	
==>ize => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will nee <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16579	16694	
==>ize => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @queue. Will nee <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7471	7590	
==>body, $is_multi, $lvalue, @params, $type );
    }
    elsif $tree[0] eq '"PApp"' {   
        my %app = $tree[1];  # key <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1444	1580	
==>para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with co <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1444	1580	
==>para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of creating Texts with co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8090	8191	
==>push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1915	2016	
==>push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
push @statements, sub { Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23507	23607	
==>cluded in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23507	23607	
==>cluded in the Rosetta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10955	11053	
==>ocument object is a simple container which stores data to be used or
displayed by your program.  It <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10955	11053	
==>ocument object is a simple container which stores data to be used or
displayed by your program.  It <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	239	338	
==>c{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	239	338	
==>c{$trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7131	7323	
==>$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7131	7323	
==>$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1236	1338	
==>s can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1236	1338	
==>s can be numerically compared
# multi sub *infix:«<» (Set $one, Set $two) {
#    $one.proper_subset($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15656	15752	
==>help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15656	15752	
==>help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12475	12574	
==>urns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12533	12632	
==>urns Bool`

These functions will eval a code snippet, and then pass the result to is or ok
on succes <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19773	19882	
==>in phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19773	19882	
==>in phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30295	30414	
==>the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one member
large, with eac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30295	30414	
==>the text
is shown to the user.

Each Template module ideally comes as part of a set, at least one member
large, with eac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	425	531	
==>ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGIN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	425	531	
==>ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCESS'
        => q[Initialization of the Engine "<ENGIN <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1242	1368	
==>r = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1242	1368	
==>r = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16036	16136	
==>B1,E0,E1) ; rm(Rb,F0,F1,B0,B1,E0,E1).

rm(lookahead(Re),F0,F0,B0,B0,E0,E0)     :-    rm(Re,F0,_,B0,_, <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3876	3965	
==>f, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/ass <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3876	3965	
==>f, E<lt>kappa@rambler-co.ruE<gt>

=head1 SEE ALSO

L<http://www.eecs.harvard.edu/cs143/ass <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3113	3224	
==>b ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alter <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3113	3224	
==>b ($match, &continue) {
        $a.parse()($match, -> $m { $b.parse()($m, &continue) });
    });
}

method alter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6704	6819	
==>tr' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6704	6819	
==>tr' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1542	1637	
==>her modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1542	1637	
==>her modules:

=over 4

* Front-end Modules

=item * L<Pugs::Compiler::Rule> compiles Perl 6 Rule <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2162	2271	
==>()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2162	2271	
==>()      returns bool   { return $.set.is_empty }
method is_infinite ()   returns bool   { return $.set.is_infi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3403	3562	
==>>{$label} ? 1 : 0;
        },        
        'add_method' => sub ($$$) {
            my ($self, $label, $method) = @_;
            ::opaque_instance_attrs($sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1613	1742	
==>(sequence of integers, no Unicode)
    num         native floating point
    ref         native pointer 
    bool        native bo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1386	1500	
==>erl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1444	1558	
==>erl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4653	4774	
==>tfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4653	4774	
==>tfix( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5783	5923	
==>);
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::I <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5783	5923	
==>);
    loop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	888	979	
==>=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=hea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	888	979	
==>=head1 VERSION

This document describes Rosetta::Engine::Example::L::en version 0.2.1.

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4543	4648	
==>y $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4543	4648	
==>y $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2719	2832	
==>~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2719	2832	
==>~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    return 1;
}

method r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25321	25423	
==>ical; they do not
interact with the outside environment at all.

A Message object has two main attribut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25321	25423	
==>ical; they do not
interact with the outside environment at all.

A Message object has two main attribut <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9823	9933	
==>-> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9823	9933	
==>-> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => -> Str $c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9227	9362	
==>e', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9285	9420	
==>e', todo => 1);

  ok(2 + 2 == 4, '2 and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1569	1667	
==>$methods = $class->get_attr(symbol->new('%:methods'));
        #warn "looking for method (" . $labe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9570	9658	
==>{ 
  '$iFoo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test_iFoo_single <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9991	10117	
==>ocedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9991	10117	
==>ocedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_type' = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29964	30076	
==>don't know if it can be

Fix that damned VMS nit.

HARNESS_TODOFAIL to display TODO failures

Add a test for verb <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19790	19885	
==>mple C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itse <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19790	19885	
==>mple C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

C<Net::IRC> will C</WHO> itse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1254	1357	
==>parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1254	1357	
==>parameters:

    *subrule = $grammar->compile( $source, { signature => $sig } )->code;

    *rule = $gra <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8891	8993	
==>nt processes raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8891	8993	
==>nt processes raw strings.

=item I<newline>

This event handles newlines in the text, it is a specializ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	417	551	
==>= try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	417	551	
==>= try { open($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18118	18266	
==>e visual() method of I<anyof> objects will quell the repetition of any
character in the class I<outside> of embedded classes, so the class
C<[\w\d:4- <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8436	8533	
==>2JS Array.pm r8593.
# not in S29draft, but test cases exist.
multi Array::max(@self; Code $cmp = & <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1180	1332	
==>turn;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => substr($_[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1133	1278	
==>turn;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => substr($_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12715	12823	
==>ovides the following functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12715	12823	
==>ovides the following functions:

=over 4

=item decode_entities( $string, ... )

This routine replaces HTML e <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2814	2925	
==>alternate rounding .5 up and down
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4415	4516	
==>>add_package_to_index(package => $pkg)

Adds a package to all necessary index files.

=cut

sub add_pa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5119	5250	
==>eta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5119	5250	
==>eta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "Iota"     => chr(921),
    "Kappa"    => chr(922) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3059	3171	
==>t.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3059	3171	
==>t.elems { &*push(@list, $ret.shift); }
        $self.from_single( @list ); 
    }

    method from_range ( $class <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10095	10283	
==>g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10095	10283	
==>g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	987	1121	
==>p {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	987	1121	
==>p {
    return "sub { 
    my \@match; my \$pos = 0; my \$s = shift; 
    $_[0]; 
    return \\\@match; \n}\n";
}

my $r = 
    concat( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11459	11606	
==>', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11459	11606	
==>', $path);
                @h.push('domain', $domain);
                @h.push('port', $port) if $port.defined;
                @h.push('path_spec', <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	373	492	
==>:cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if(de <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8965	9173	
==>lems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TO <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8965	9173	
==>lems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TO <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5122	5238	
==>rAgent> module.

The following functions are provided (and exported) by this module:

=over 3

=item get($url)

The g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5122	5238	
==>rAgent> module.

The following functions are provided (and exported) by this module:

=over 3

=item get($url)

The g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2316	2441	
==>lternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ), <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2327	2452	
==>lternation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ), <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5357	5497	
==>nf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5357	5497	
==>nf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($self: $x is copy ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1054	1164	
==>he package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1054	1164	
==>he package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18102	18202	
==>er at a level visible in the Rosetta Native
Interface, if at all.  To account for situations where mu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18102	18202	
==>er at a level visible in the Rosetta Native
Interface, if at all.  To account for situations where mu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21755	21934	
==>'&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44662	44841	
==>'&dispatcher'), symbol->new('DESTROY'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e- <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1005	1166	
==>ersion = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	884	1045	
==>ersion = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_000 + $3/1 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	138	244	
==>ss = sub { return };

GetOptions(
  "smokeserv=s" =>
    \(my $smokeserv = "http://m19s28.vlinux.de/cgi-bin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12543	12642	
==>the result to is or ok
on success, or report that the eval was not successful on failure.

- `throws <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12601	12700	
==>the result to is or ok
on success, or report that the eval was not successful on failure.

- `throws <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1980	2082	
==>cal $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1980	2082	
==>cal $Carp::CarpLevel = 1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4323	4450	
==>arn "*** Found more than one '$basename' -- using the first one. \n";
        }
        elsif (@candidates == 0) {
            d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4008	4137	
==>ntifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3996	4125	
==>ntifier not implemented: $quantifier";
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11926	12038	
==>ration.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parame <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11926	12038	
==>ration.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parame <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	479	652	
==>rn new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	479	652	
==>rn new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$nam <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12181	12283	
==>in (Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient to <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15658	15760	
==>in (Relation $other!) returns Relation {

    # First look for trivial cases that are more efficient to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2614	2764	
==>> 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsif ($backslash_escape{$c}) {
                    $y .= $backslash_escape <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	189	292	
==>tertiärer Operator
$wahr ?? $a !! $b	# in Perl 5 war das $wahr ? $a : $b
$wahr.tertiary:<?? !!>($a, $b) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39135	39234	
==>re the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Valid <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39135	39234	
==>re the initial main dependents of Locale::KeyedText:
L<Rosetta::Model>, L<Rosetta>, L<Rosetta::Valid <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8194	8362	
==>ength'});
            my $k;
            loop(;$k < $length; $k++) {
                my $key = $k; # Eh. Spec would have us use ToString(k).
                $A.<[[Delete <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6397	6540	
==>ipped     => $11,
        unexpect    => $12,
      }],
      percentage    => sprintf("%.02f", $8 / ($7||1) * 100),
      id            => $13, <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3435	3534	
==>ds.

All methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Witho <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3435	3534	
==>ds.

All methods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Witho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4059	4181	
==>'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infini <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4059	4181	
==>'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infini <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4507	4614	
==>urn $meta;
}

=head2 package_re

=head2 prefix

=head2 name

=head2 version

=head2 authority

=cut

### XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27134	27238	
==>Regexp::Parser's handlers
    $self->SUPER::init();

    # now add your own...
    $self->add_handler('&' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3622	3745	
==>lves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %res <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3622	3745	
==>lves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler<352> = [-> $event {
    my %res <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	322	427	
==>n?, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	322	427	
==>n?, $output? )
{
    return $singleton //= $Class.SUPER::new(
        testplan => $plan, output => $output <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2657	2775	
==>riables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2797	2915	
==>riables: ", Dumper ( $flags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	370	479	
==>ugs::Grammar::BaseCategory::ws;

sub ast {
    my $match = shift;
    $match .= '';
    # print "Grammar::Expr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6445	6545	
==>e used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6238	6334	
==>e used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4157	4287	
==>ure},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{capture};

            push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4029	4156	
==>ure},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{capture};
            push <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	154	284	
==>!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	154	284	
==>!uri       is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19493	19590	
==>ariables are system catalog relation variables rather than user-defined
relation variables.  In SQ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19493	19590	
==>ariables are system catalog relation variables rather than user-defined
relation variables.  In SQ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4112	4215	
==>h and day default
to 1 if not given.

The value for day can also be the string "last", in which case the <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4112	4215	
==>h and day default
to 1 if not given.

The value for day can also be the string "last", in which case the <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	27	140	
==>e v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key { <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	27	140	
==>e v6;

sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key { <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3745	3853	
==>recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3745	3853	
==>recurrence );
    @intersect = @intersect.map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    r <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	635	745	
==>system($setup, @args);
if ($rv == 0) {
    if ($prompt_register) {
        print << ".";
*** Installed!  If you <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3743	3840	
==>) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3743	3840	
==>) returns Array { set(@a).union(@b).members }
## multi sub *infix:<-#> (@a, @b) returns Array { se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13764	13899	
==>erl`;
    } else {
	$result = `$runperl`;
    }
    $result =~ s/\n\n/\n/ if $is_vms; # XXX pipes sometimes double these
    return $res <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32397	32489	
==>aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation::Ex <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1906	2010	
==>p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1906	2010	
==>p>, while setting up a
backtracking mark named C<$name>.  The name is scoped to C<$p>.  That
is, once the <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16023	16133	
==>if any) in $reason.

=cut

sub _is_bail_out {
    my($self, $line, $reason) = @_;

    if( $line =~ /^Bail out! <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14565	14669	
==>class supplying localtime
class Time::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregorian dates a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	218	323	
==>$chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	218	323	
==>$chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels it's <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19053	19167	
==>e
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19053	19167	
==>e
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	601	711	
==>ERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        goto &ExtUtils::MakeMa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22291	22383	
==>'t warrant the warning.

Added "Unrecognized escape" warnings to I<all> escape sequence handl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25252	25343	
==>d by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25252	25343	
==>d by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2721	2826	
==>ons



I'm not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd like to off <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2621	2723	
==>ons

I'm not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd like to off <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8751	8900	
==>et.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implemen <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8751	8900	
==>et.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implemen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3490	3595	
==>:Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3490	3595	
==>:Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6653	6867	
==>ram runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_cont <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6653	6867	
==>ram runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        }

        $real_cont <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7370	7470	
==>kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7370	7470	
==>kicked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	513	644	
==>t supported by p5 by default)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstract syntax tree

  - the data <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	487	612	
==>t supported by p5 by default)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstract syntax tree
  - the data <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1673	1805	
==>>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <I <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1673	1805	
==>>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <I <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	636	765	
==>the problem that macros are currently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	636	765	
==>the problem that macros are currently
   quite slow (~10sec for this file).

   And because macros are buggy, the node_Mumble macr <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10617	10716	
==>ational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<que <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10617	10716	
==>ational

=over 4

=item B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<que <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7127	7241	
==>sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = & <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7139	7253	
==>sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$_[0]};
    no strict 'refs';
    my $code = & <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8632	8780	
==>hod>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$method", $nil::NIL); 
            $e->create("$current", $e->get <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9243	9366	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9436	9559	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12252	12377	
==>y => sub { 0+ @{$_[0]} },
      hash  => sub { 0+ %{$_[0]} },
      code  => sub { Carp::carp("p6_as_num called on code"); $na <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3981	4080	
==>lock($node, $symbol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, $bod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1147	1246	
==>away code.
# However, the perl5 core team expressed some interest in perhaps
# maintaining the capab <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	696	854	
==>06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>* <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	696	854	
==>06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsub {
        <subintro> <psignature>?
        <trait>* <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1960	2092	
==>r its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1960	2092	
==>r its '<KEY>' key is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10185	10313	
==>= undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.cle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10185	10313	
==>= undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %!channels       = ();
    $!queue.cle <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	34	201	
==>sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	34	201	
==>sub make_attribute(%attrs, Bool $escape = 0) is export {
    my @return;
    
    for %attrs.keys -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18863	18979	
==>ind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15284	15400	
==>ind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	313	420	
==>push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	313	420	
==>push @return, (%attrs{$key}.defined) ?? qq/$copy="$value"/ !! qq/$copy/;
    }
    
    return @return;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9923	10024	
==>s}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {lo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9923	10024	
==>s}; %PARAMS.keys; }
multi sub param (Str $key) returns Array is export { unless($IS_PARAMS_LOADED) {lo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1906	2139	
==>> -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1906	2139	
==>> -> { return },
                pos       => $input,
                match     => $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14680	14824	
==>leop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14959	15103	
==>leop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1476	1578	
==>ne value, and has a type (C<Val>).

=item List

A list is a a node with multiple children.

C<App> is a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24513	24611	
==>t under
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24513	24611	
==>t under
the terms of the GNU General Public License (GPL) as published by the Free
Software Foundat <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6892	7016	
==>' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6892	7016	
==>' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span-num";
        return $span0, $span1 if $span0.i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1814	1911	
==>ithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to inter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1814	1911	
==>ithm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32381	32488	
==>object() that will produce
its ending node:

  # the 'open' node's ender:
  sub ender {
    my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7006	7200	
==>$r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10483	10677	
==>$r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation $other!) returns Rela <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	535	658	
==>cess(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>( <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	535	658	
==>cess(3);

    # leak (flush) bucket
    $bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6642	6789	
==>$i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5146	5293	
==>$i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $size_change { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1819	1942	
==>e, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1819	1942	
==>e, $curhostname);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($ni <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25016	25138	
==>. ∀β. ∀γ. α → β → γ", "pretty print a -> b -> c");
}
{
	my $type = type::operator::pair->new(
		type::variable <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9293	9435	
==>match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9486	9628	
==>match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6704	6790	
==>.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))}.
p5_elemental(char(C)) --> "\\" <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1599	1705	
==>de = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self- <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1599	1705	
==>de = $self->{API}{code};
    my $pkg  = $self->{API}{pkg} || 'main';
    my $pid  = $self->{pid} ||= $self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1706	1843	
==>chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1706	1843	
==>chunk ~~ m:P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3704	3804	
==>ure_next, $self.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3704	3804	
==>ure_next, $self.closure_previous, $set.closure_next, $set.closure_previous ),
        closure_previou <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2592	2712	
==>= $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.di <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2592	2712	
==>= $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @set2_span = $span2.di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28565	28660	
==>ssertion's ender is a C<tail> node, and a
character class's ender is an C<anyof_close> node.

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	562	675	
==>l ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	562	675	
==>l ._box_submatch() 
sub _str {
    my $match = $_[0];
    #print "STR: ", ref( $match ), " ", Dumper( $match ), "\ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3505	3607	
==>re "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3505	3607	
==>re "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18757	18870	
==>> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<pac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18757	18870	
==>> statement.
    PACKAGES - Lines beginning with a C<package statement and continuing
        until the next C<pac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10607	10708	
==>ul in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10665	10766	
==>ul in other contexts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23955	24047	
==>of alternate solutions like "gettext" suggests that they
use a compile-time macro-based appro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23955	24047	
==>of alternate solutions like "gettext" suggests that they
use a compile-time macro-based appro <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2668	2814	
==>base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2668	2814	
==>base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that are the same
    my @pathchunks = sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1296	1406	
==>).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1296	1406	
==>).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match( 'abc' );
  
  if ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1210	1333	
==>al );
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

1;

# Local variables:
# c-indentatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13326	13419	
==>=item RPe_NOTIMP (-2)

Sequence (?%.*s...) not implemented

=item RPe_NOTERM (-3)

Sequence (? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	598	712	
==>with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	598	712	
==>with objects. Eventually it should be 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringif <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	820	955	
==>an::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	820	955	
==>an::Int 
{
    if $.end == Inf {
        return () if $.start == -Inf;
        return $self.new( start => -Inf, end => $.start - $.densi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	725	821	
==>), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	725	821	
==>), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infinite l <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	387	536	
==>($tok =~ /^-?\d+$/) {
            push @stack, $tok;
            next;
        }
        my $x = pop @stack;
        defined $x or die "Stack underflo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24479	24579	
==>->stringify, "∀α. α → α", "pretty print a -> b where a = b");
}
{
	my $type = type::operator:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35023	35125	
==>tor object, you must create a new
object that is a clone of the first but for the changes.

=back

A Tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35023	35125	
==>tor object, you must create a new
object that is a clone of the first but for the changes.

=back

A Tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4590	4685	
==>xperimental development version.  The API is still in flux.

The set of implemented features dep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4840	4935	
==>xperimental development version.  The API is still in flux.

The set of implemented features dep <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1048	1177	
==>=> 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1059	1188	
==>=> 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4896	5109	
==>nstant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               }

           if $_[2]{capture};  # flags->{capture}

        return { bool => 1,

                 match => { co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4744	4951	
==>nstant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               }
           if $_[2]{capture};  # flags->{capture}
        return { bool => 1,
                 match => { co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1882	1985	
==>turn Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1882	1985	
==>turn Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3191	3323	
==>/^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @in <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3191	3323	
==>/^   \/   $/ {63}
		when /^   \=   $/ {-1}
		when /^<-[A..Za..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1703	1821	
==>/^\\(.)/s;

    return;

};



# ----- the following were included only for performance reasons,

# because they are to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1635	1748	
==>/^\\(.)/s;
    return;
};

# ----- the following were included only for performance reasons,
# because they are to <==
2	/Users/nnunley/pugs/util/importgraph.pl	775	888	
==>if (/^module \s+ ([\w.]+) (\s* \()?/x) {
      $module_name = $1;
      $exports = defined $2;
    } elsif (/^impo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9307	9420	
==>ub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper => $neg, $how);
  });

  # wor <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	99	219	
==>e::Bit;

package str;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::compar <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2480	2575	
==>e Perl 6 class
system.

Note that the files in this distribution at C<lib/Class.pm> will
probabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1203	1333	
==>sions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1203	1333	
==>sions, my, our

# ---------

*bare_statement = $rule->compile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	145	268	
==>sename          qw[basename];
use File::Temp              qw[tempdir];
use Params::Check           qw[check];
use Log::Messa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17905	18013	
==>lp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exists $symtab\n     ? \${$symtab} : \n <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26989	27084	
==>e of a directory, harness will check after each
test whether new files appeared in that director <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	2086	2210	
==>ccflags} $minus_o $exename.c >log 2>&1") != 0) {
    print "# Could not compile $exename.c, status $?\n"
         ."# Where <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5039	5147	
==>le_escape_sequence { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><octaldigit <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5631	5719	
==>c_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SE <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5631	5719	
==>c_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SE <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1375	1468	
==>l::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1375	1468	
==>l::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	458	572	
==>) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	458	572	
==>) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13672	13881	
==>);
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13672	13881	
==>);
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $e );
            }
            else {
                s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	244	357	
==>s export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	244	357	
==>s export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub splitdir (Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3200	3310	
==>m, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3188	3298	
==>m, $tab );
    $rul = "$ws &&\n$rul" if $sigspace && $_[0]->{ws1} ne '';
    $rul = "$rul &&\n$ws" if $sigspace <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	345	472	
==>NV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYIN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	345	472	
==>NV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYIN <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4174	4277	
==>alize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<ob <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4174	4277	
==>alize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~normalize($event<ob <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3215	3311	
==>%lu\n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,PL_reg_ganch);
*/

    perl_c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	958	1072	
==>parent()!set_height($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	958	1072	
==>parent()!set_height($self) unless $self.is_root();
}

my method set_width ($self: Tree $child) returns Void {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1561	1766	
==>ent>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1561	1766	
==>ent>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35748	35843	
==>ion::Example in its C<$other> argument, where <$other> has the same heading as
the invocant Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37780	37875	
==>ion::Example
in its C<$other> argument, where <$other> has the same heading as the
invocant Rela <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	745	854	
==>rently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This wh <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	745	854	
==>rently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28643	28819	
==>nt( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28922	29098	
==>nt( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22250	22354	
==>s.  Rosetta
does not declare any subroutines or export such.

The usual way that Rosetta indicates a fail <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22250	22354	
==>s.  Rosetta
does not declare any subroutines or export such.

The usual way that Rosetta indicates a fail <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2161	2264	
==>c => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2161	2264	
==>c => 'left',
    precedence => 'equal', other => '[',
} );
$statement->add_op( {
    fixity => 'circumfi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23873	23993	
==>\G matches at start. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29050	29158	
==>\G matches at start. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	955	1070	
==>} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($arg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	922	1037	
==>} or return if exists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($arg <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	424	557	
==>mpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	908	1041	
==>mpl = {
        struct => { required => 1, store => \$struct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	686	820	
==>e({}) ;
  $object->termTable({});
  $object->operatorTable({});
  $object->whitespaceTermTable({});
  $object->whitespaceOperatorTable( <==
2	/Users/nnunley/pugs/util/testgraph.pl	1287	1399	
==>util/run-smome.pl     - automate the smoke process

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	346	465	
==>);
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	346	465	
==>);
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2176	2412	
==>atch->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_quoted => $m->() },
                        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27618	27713	
==>C<(?u:...)> or C<(?u)>.  The values 0x01, 0x02, 0x04,
and 0x08 are used for C</m>, C</s>, C</i>, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18932	19030	
==>t
thing on the wire.

When setting the referrer, this method removes the fragment from the
given UR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18932	19030	
==>t
thing on the wire.

When setting the referrer, this method removes the fragment from the
given UR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19216	19310	
==>t>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19216	19310	
==>t>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	704	800	
==>hannel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICEN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	704	800	
==>hannel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICEN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1832	1989	
==>'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1832	1989	
==>'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumper @a;
    while ( ref $a[-1] <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1312	1418	
==>out of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1312	1418	
==>out of 60 seconds (however)
  # * Send Connection: close, at least until we know better

  my ($host,$port, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	204	301	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_H <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	204	301	
==>packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_H <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4146	4269	
==>t;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            for <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4353	4476	
==>t;
    (blessed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            for <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3759	3856	
==>et.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3759	3856	
==>et.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_previ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	966	1077	
==>ules.
    # This is not enforced yet, but will be some time in the next few
    # releases once we can make sure <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	574	691	
==>b sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	574	691	
==>b sig {
    my $class = shift;
    my $now_named = 0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31621	31729	
==>dless of its
argument, in which case the new Relation has either all of the tuples of
the original, or has ze <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36171	36279	
==>dless of its
argument, in which case the new Relation has either all of the tuples of
the original, or has ze <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27259	27429	
==>grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27538	27708	
==>grammar1::literal'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::co <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	555	661	
==>eTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs b <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	555	661	
==>eTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# makes pugs b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17392	17511	
==>( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gath <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20869	20988	
==>( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gath <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1851	1969	
==>ram>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1851	1969	
==>ram>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11128	11224	
==>context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not chan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11128	11224	
==>context.  The HTTP spec (RFC 2616) promise that joining multiple
values in this way will not chan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22722	22818	
==>::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Val <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22722	22818	
==>::Interface::Command Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Val <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10910	11067	
==>ing\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10910	11067	
==>ing\"\n "
        #           ~ "into code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1051	1172	
==>all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1051	1172	
==>all_nodes;
    # Array of Rosetta::Model::Node
    # The set of all Nodes that this Document contains.
    has Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28737	28855	
==>le, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYA <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28737	28855	
==>le, inside the text Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1910	2027	
==>erpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1910	2027	
==>erpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	514	690	
==>) {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	514	690	
==>) {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  + <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	91	189	
==>Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balance <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	91	189	
==>Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balance <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2815	2923	
==>urst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are les <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2815	2923	
==>urst size>.

It returns a boolean value.

=item count(Num $n)

This sub removes I<N> (or all if there are les <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	736	838	
==>rompt = "Do you want to install '$script_name'";
        $prompt .= " ($abstract)" if defined $abstract <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	384	482	
==>elf.add(-$duration);
}

method difference($self: Date $other) returns Duration {
    ...
}

#method <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14945	15091	
==>s)) apply 
            ((= %attrs store (($_ name) ($_ instantite_container)))
             (= $c (WALKCLASS (&dispatcher)))))))
     (opaque new ( <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2216	2357	
==>le (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
	        print "{}\n";
		next;
	    } elsif ($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	996	1106	
==>ks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	996	1106	
==>ks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7822	7945	
==>g an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7822	7945	
==>g an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16419	16533	
==>returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19896	20010	
==>returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	477	572	
==>eSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->require || die <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29360	29460	
==>j has been added to the tree, $obj will be
removed from the tree.  Most node types don't merge.  Retu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4337	4475	
==>: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4337	4475	
==>: $start ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3202	3344	
==>c' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3202	3344	
==>c' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version = $1;

    my $config = get_perl6_libs();
    my $pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4346	4479	
==>$_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4358	4491	
==>$_[0];
    my $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8898	9038	
==>int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8898	9038	
==>int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1279	1422	
==>= [ $_[1] ] }
        |   exp ';' list_right  { $out= [ $_[1], @{$_[3]} ] }
;

%%
EOT


my $in = [ 
    ['-'=>{op=>'-'}], 
    ['NUM'= <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/vergl1.pl	36	164	
==>a ~~ $b;    # smart-match, mehr dazu gleich
#=Verknüpfungen in Perl 5:
$a < $b && $b <= $c;
$a > $b && $b >= $c;
#=Perl 6: Verke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3546	3639	
==>se 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3546	3639	
==>se 128 bits of a good 
cryptographic hashing/authentication algorithm like HMAC-SHA-256 for th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	231	336	
==>override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buf <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	231	336	
==>override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5004	5112	
==>->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5004	5112	
==>->();
}

{
    print "# TODO - ws not allowed before subscript\n";
    my $match = $grammar->parse( '3*@a{$b} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9087	9176	
==>mar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2912	3001	
==>mar::Perl6->_print_with_fh(@_) };
push @statements, sub { Grammar::Perl6->_print(@_) };
pu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	561	664	
==>quest_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	561	664	
==>quest_headers = <
 Accept Accept-Charset Accept-Encoding Accept-Language
 Authorization Expect From Host <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15304	15412	
==>= @_;
    return $S->force_object(anyof_class => word => $neg, \$how);
  });

  # xdigit POSIX class
  $self- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	239	337	
==>return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	239	337	
==>return &::($worker_pkg)::curdir();
}

sub updir returns Str is export {
    return &::($worker_pkg) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3196	3293	
==>),
        complement_previous => $self._get_intersection( $self.complement_previous, $self.comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3196	3293	
==>),
        complement_previous => $self._get_intersection( $self.complement_previous, $self.comple <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10781	10878	
==>{...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an em <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10781	10878	
==>{...}, :is_universe(1) )`

Creates a "universal set".

The complement set of the universe is an em <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1506	1679	
==>dex--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$val <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1506	1679	
==>dex--+
#######################################################################


multi encode (Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$val <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4332	4471	
==>=> '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4332	4471	
==>=> '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5976	6104	
==>th 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5976	6104	
==>th 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_a <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1544	1651	
==>gable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1544	1651	
==>gable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8467	8572	
==>=> $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6003	6106	
==>=> $operator_name - the name of this operator, such as '+', '*'

=item * name2 => $operator_name - the n <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	928	1096	
==>ouldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	928	1096	
==>ouldn't require "$class", "$!"/ };
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	713	806	
==>tr $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	713	806	
==>tr $.name;
}

class Perl::Compiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::U <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3426	3533	
==>$.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $uni <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3426	3533	
==>$.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $uni <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23592	23729	
==>kwrd cmpt */


  #define REXEC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	850	957	
==>le ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our loc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	850	957	
==>le ) };
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our loc <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	266	394	
==>returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# X <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	266	394	
==>returns Str (Int $run)
    {
        return '' if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# X <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1084	1250	
==>ge) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1084	1250	
==>ge) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = .code // "000";
        my $mess = ./message // HT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36857	36953	
==>implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36857	36953	
==>implement the 'main' functionality of Locale::KeyedText.

Some example usage:

    my Str $user_t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1124	1234	
==>r)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($str) for 1..40},
        P5_regex_x <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5090	5200	
==>e,$re)=@_;
  my $r = compile($re) || die;
  def_rule($name,$r);
  my $r2 = compile("<$name>") || die;
  my $are <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	811	920	
==><'RULE')->code();

    grammar <p6ws> <ident> <p6ws>? \;
        { return { grammar_name => $() ,} }
RULE
*{'c <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4868	5021	
==>)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4868	5021	
==>)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = ca <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2240	2353	
==>draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   Bool      pre     exists  safe   (rw!Array <==
2	/Users/nnunley/pugs/util/package-osx.pl	8521	8631	
==>Pugs::Doc::Run.3
        /usr/local/man/man3/Pugs::Doc::Run.3pm

    );
}

sub change_files {
    my ($dest, %c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1524	1633	
==>t_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1524	1633	
==>t_previous;
    has Recurrence $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	954	1172	
==>.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	954	1172	
==>.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current script '$*PROGRAM <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5878	5982	
==>------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5878	5982	
==>------------------
## sibling methods

method get_sibling ($self: Int $index) returns Tree {
    (!$self. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10673	10764	
==>t singleton/class method called by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4193	4347	
==>cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4193	4347	
==>cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18343	18470	
==>ternals::sprintf($conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4648	4764	
==>ps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4507	4623	
==>ps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	992	1111	
==>n FILE, "<", $filename
        or die "can't open $filename for compilation";
    my @a=<FILE>;
    close FILE;
    my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	146	245	
==>p6 one after bootstrap).  Or spec code which doesnt actually
# run yet.  The immediate goal is simpl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7653	7801	
==>);
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7653	7801	
==>);
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.closure_next }( $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6483	6644	
==>e\n";
        return;
    }
}

sub license_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7390	7548	
==>>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <'*='>
    | <'%='>
    | <'<<='>
    | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5085	5206	
==>se v6-pugs
            if ( exists $n->{param}{cpan_bareword} ) {
                if ( $n->{param}{cpan_bareword} =~ /^v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	15	110	
==>rammar::Expression;

use strict;
use warnings;

#use Pugs::Compiler::Rule;
use Pugs::Grammar::Pr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6801	6925	
==>nal Perl template module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6801	6925	
==>nal Perl template module; on a require
        # failure, we assume that module intentionally doesn't exist,
        # and so <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	809	914	
==>f->{env}->set('$?SELF'    => $inv);
    $self->{env}->set('$?CLASS'   => $inv->class);    
    $self->{env <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3514	3606	
==>593) from Prelude/PIL.pm.
# Prim.hs r8593 defines this as List::splice.
multi Array::splice ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15871	15982	
==>create('$c' => $e->get('WALKCLASS')->do(list->new($e->get('&dispatcher'))));            
                block-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	105	236	
==>port {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	105	236	
==>port {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_document   => { $buff <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4675	4780	
==>re YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has alread <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4534	4639	
==>re YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has alread <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	919	1037	
==>opped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-refer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	919	1037	
==>opped by a { return } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-refer <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2362	2473	
==>a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the return value away.
En <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2362	2473	
==>a kilobyte or so by calling 
C<generate_keystream> with a number of bytes and throwing the return value away.
En <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2365	2515	
==>n";
    }

    return @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26261	26348	
==>========================================================

use strict;
use warnings;
BEGI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15993	16086	
==>eates and returns a new Rosetta::Model::Node object, that
lives in the Document object given i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15993	16086	
==>eates and returns a new Rosetta::Model::Node object, that
lives in the Document object given i <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2286	2430	
==>hen 'yaml'    { Pugs::Internals::eval_yaml($code) };

            die "Language \"$lang\" unknown.";
        }
    }


    # S29:
    # Behaves l <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	63	172	
==>@.known_parsers;
my $parser_details = 'ParserDetails.ini';
# use 
# my constant $:parser_details = 'ParserDeta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2033	2130	
==>precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2033	2130	
==>precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix', n <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	425	528	
==>oc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup( <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	425	528	
==>oc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $node = $kwoc.lookup( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13547	13653	
==>t
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can produce a direct cl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13547	13653	
==>t
('root_nodes') corresponds exactly to the named parameters of
Document.new(); you can produce a direct cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9295	9399	
==>rom_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9295	9399	
==>rom_loaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22369	22467	
==>rectories in your path that packages could be installed in.

Generally, when a program package woul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22369	22467	
==>rectories in your path that packages could be installed in.

Generally, when a program package woul <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12713	12856	
==>od' => (
    # method label
        symbol->new('bless'),
    # method body
        method->new(
            $::ENV,
            method::signatu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3894	4004	
==>le::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    r <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3894	4004	
==>le::Spec->catfile($dir, $cmd);
        return $abs if (-x $abs or $abs = MM->maybe_command($abs));
    }

    r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1515	1613	
==>ME> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1515	1613	
==>ME> for links to rendered versions (HTML, PDF).

=head2 Examples

In the F<examples/> directory the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1877	2077	
==>ta
$Ext            = '.jib';                           # archive extension
$Fileslist      = 'files.list';                     # .packlist equiv
$Build_prefix   = 'root-';                          # bu <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4263	4372	
==>nd = ceil($x);

    return $x_round;
}

our Int multi Num::round_floor ( Num $x ) {
    my $x_round = floor($x <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7828	7923	
==>Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authoriz <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7828	7923	
==>Authorization") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authoriz <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4595	4734	
==>n $f, 'file';      -->  $f = open 'file';
    open my $f, 'file';   -->  my $f = open 'file';
    open our $f, 'file';  -->  our $f = open ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	559	730	
==>{$stack} => $new_arr;
        }
        elsif ($token eq ')') {
            pop @{$stack};
        }
        else {
            if (@{$stack}) {
                push @{$sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1902	2013	
==>?\;
        { return { sub_call => $() } }
RULE
*{'access_hashref_element'} = Pugs::Compiler::Rule->compile(<<'R <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	779	879	
==>s this as List::kv.  And with rw!Array.
multi Array::kv     (@array ; MatchTest *@indextests --> Int| <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1826	1934	
==>ntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1886	1994	
==>ntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char_class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1996	2119	
==>e,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2007	2130	
==>e,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16244	16340	
==>ides a simple but effective mechanism for
applications and packages that empowers single binaries <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16244	16340	
==>ides a simple but effective mechanism for
applications and packages that empowers single binaries <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1622	1724	
==>tr {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1622	1724	
==>tr {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2580	2739	
==>b ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2481	2634	
==>b ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8708	8829	
==>);
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Boo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8708	8829	
==>);
    });
}

method redirect (::?CLASS ::class: Str $location, Str $target?, Str $status = "302 Found", Str :$cookie, Boo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14174	14300	
==>If C<@keytests> are provided, only elements whose keys evaluate
C<$key ~~ any(@keytests)> as true are iterated.

What is return <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	13	115	
==>uild::MiniYAML;
use strict;
use warnings;
our $VERSION = '0.01';

sub new { bless {}, shift }

sub load <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	345	490	
==>rule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	345	490	
==>rule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" .
        "$tab     # param: @param \n" .
        "$tab     $subrule( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	831	955	
==>umper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	831	955	
==>umper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unle <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1388	1514	
==>two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1388	1514	
==>two) {
#    $one.proper_superset($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi su <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class3.pl	25	120	
==>arametern definieren
class Welt {
	method hallo ( String $gruß, String $name ) { "$gruß, $name <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	238	364	
==>gs as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    do <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	238	364	
==>gs as
combinators.

    $.text     - The string
    $.pos      - The offset from 0 in that string

=cut

our role Pos { 
    do <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9350	9451	
==>key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9350	9451	
==>key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module',
        '$mod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3610	3723	
==>hannels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3610	3723	
==>hannels{normalize $chan}<topic> = $topic;
    });
    ./add_handler("TOPIC", -> $event {
      %!channels{normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3881	3974	
==>::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preser <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3881	3974	
==>::General or one of the
many other Config:: modules. To rephrase, Config::Tiny does not preser <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2468	2562	
==>ol {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2468	2562	
==>ol {
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20620	20712	
==>vor is that
the new (under development) enterprise-strength and Perl implemented
database ser <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20620	20712	
==>vor is that
the new (under development) enterprise-strength and Perl implemented
database ser <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4622	4741	
==>my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4622	4741	
==>my $tmp = $span1.complement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12102	12206	
==>$args{stdin} . qq{)' > teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11131	11259	
==>n "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11125	11253	
==>n "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6569	6670	
==>ethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6569	6670	
==>ethod _get_union ( $closure1, $closure2, $direction ) {
    return $closure1 if $closure1 === $closure <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2562	2669	
==>rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2562	2669	
==>rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4619	4726	
==>alue;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4619	4726	
==>alue;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11264	11374	
==>f needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11264	11374	
==>f needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13801	13908	
==>n or not happen, but the relevant line of code is
  off in perl runtime guts where it can't plausibly be rea <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	558	648	
==>CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Florian Ragwitz E<lt>rafl@d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2588	2703	
==>ush @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2588	2703	
==>ush @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    }
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2342	2626	
==>'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2342	2626	
==>'for') {
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    whe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	743	857	
==>mber is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have zero at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4221	4335	
==>mber is a name of one of this Relation's attributes.
        # Note that it is valid for a Relation to have zero at <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	11501	11667	
==>turn { bool => \1,
                 #tail => $_[0],
               }
    };
};
=cut

# experimental!

=for example
    # adds an 'before' or 'after' sub call <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2351	2497	
==>'[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2351	2497	
==>'[',
} );

*term = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4218	4321	
==>s also 
parameters for block size and so on; see the cipher module's documentation for 
details.  The C< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4218	4321	
==>s also 
parameters for block size and so on; see the cipher module's documentation for 
details.  The C< <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1874	2088	
==>sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...}
# signatu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10156	10279	
==>$package_name = $pkg || '__PACKAGE__';
    $method_name = $name || 'emit';
}
sub gen {
    my($name,$vars,$body)=@_;

    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3430	3550	
==>,  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grav <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3430	3550	
==>,  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # small u, grav <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32436	32589	
==>> 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33091	33244	
==>> 'block'
            ),  
            sub {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4634	4744	
==>PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4634	4744	
==>PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd ret <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2223	2381	
==>after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninst <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14226	14344	
==>nfig; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $exe = '';
	} else {
	    $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20433	20538	
==>nt, and study; you should not use it in production.

For production use, there should be a wide variety of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20433	20538	
==>nt, and study; you should not use it in production.

For production use, there should be a wide variety of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6044	6146	
==>}

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[1]->visua <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19965	20073	
==>ate output path of a test files
sub inpath_to_outpath {
    my $inpath  = shift;
    my $outpath = abs2rel($i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11313	11412	
==>ethod; specifically, in the case
of a sub-class that adds a handler, the qr() method is used to prod <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	95	186	
==>lay (overlays-in (point-min) (point-max)))";
say "(overlay-put (make-overlay {$m.from +1} {$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3085	3181	
==>ce($other).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3085	3181	
==>ce($other).union($other.difference($self));
}

our &Set::Hash::count ::= &Set::Hash::size;
our &S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2114	2213	
==>Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::K <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2114	2213	
==>Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Rosetta::Model::Document';
    die Locale::K <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22314	22427	
==>ax_namelen < length($failed_str)) {
            $max_namelen = length($failed_str);
            $Columns = $max_na <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7145	7496	
==>e; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yie <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7145	7496	
==>e; 
                            yield $x;
                        }                       
                        return;
                },
                cend => coro {
                        my $x = $ret.pop // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yie <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	103	209	
==>er scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	103	209	
==>er scoping stuff.
# - Build code into an AST.
package Module::Compile;

use 5.006;
use strict;
use warnings <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3254	3350	
==>n(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3254	3350	
==>n(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args);
}
mul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1596	1754	
==>FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1596	1754	
==>FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::Key <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8887	8992	
==>ed package and an optional available list
    ### and check if the package is available/provided by any in <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10364	10469	
==>ed package and an optional available list
    ### and check if the package is available/provided by any in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16375	16470	
==>s simultaneously, and that allows any end users to add
support for new languages easily and with <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16375	16470	
==>s simultaneously, and that allows any end users to add
support for new languages easily and with <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5204	5308	
==>cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $self->{_revision} = $1 if /pugs_revision: (\d+) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2812	2970	
==>ift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /\n/;
	    }
	    p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1433	1547	
==>y %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1433	1547	
==>y %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!in_login_phase;
  h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14873	15077	
==>_join        ::= &product;

###########################################################################

multi method join (Relation::Example $other!) returns Relation::Example {

    # First look for triv <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	6116	6225	
==>perator->emit_yapp;
    #print $g;
    my $p = $operator->emit_grammar_perl5;

    # create a local variable ' <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2272	2367	
==>ngle test, assigning it the given C<$name>
for use in the total report.  Returns the C<%results> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	931	1049	
==>ping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a M <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4409	4527	
==>ping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a M <==
2	/Users/nnunley/pugs/util/package-osx.pl	8018	8127	
==>::Spec::Overview.3pm
        /usr/local/man/man3/Perl6::Spec::Package.3pm
        /usr/local/man/man3/Perl6::S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1851	1976	
==>a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringif <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1851	1976	
==>a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringif <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7002	7110	
==>, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7002	7110	
==>, you are just inserting
# and array of one tree
our &Tree::insert_sibling ::= &Tree::insert_siblings;

# I a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13483	13581	
==>ifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13483	13581	
==>ifically, export_as_hash() returns a Perl hash ref whose key list
('root_nodes') corresponds exactl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1566	1673	
==>re {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1566	1673	
==>re {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool};
}

sub _get_captur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1696	1785	
==>ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1696	1785	
==>ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Enciphers the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4952	5100	
==>ht->fetch($i)->name->to_native . ' => ' . $right->fetch($i)->type->to_native;                    
        return bit->new(0) 
            if $left->f <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24911	25012	
==>nd _private

=back

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is exported by Test::Harness by de <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	73	169	
==>ort { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	73	169	
==>ort { %*ENV<SERVER_NAME>     || 'localhost' }
sub server_software returns Str is export { %*ENV<S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	912	1058	
==>ld; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	912	1058	
==>ld; },
            STORE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7615	7755	
==>rrent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.curr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7615	7755	
==>rrent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.curr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	835	963	
==>e->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	835	963	
==>e->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4104	4308	
==>keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if $a eq 'list';
                $s .= "% <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	967	1062	
==>design_dir  Directory containing the perl6 design docs apo/exe/syn
    --no_designdocs Do not ge <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1592	1732	
==>ue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (P <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1592	1732	
==>ue(floodcontrol => $floodcontrol);
                           # Queue
  my %handler;             # Callbacks for numeric (001) and command (P <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1723	1831	
==>self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack f <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1723	1831	
==>self->eval_pugs($code);

    # now try to figure out what functions are toplevel...
    # XXX - bloody hack f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2096	2210	
==>t(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2096	2210	
==>t(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) { %StatusCode{$code} }
    
    sub is_info     ($c <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3250	3363	
==>a..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = gr <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3250	3363	
==>a..z0..9+\/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = gr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4604	4732	
==>ksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4826	4954	
==>ksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	403	516	
==>s qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	609	722	
==>s qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immediate_statement_ru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6932	7042	
==>cordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6932	7042	
==>cordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = split " ", $event<rest>;
    $reason = s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19178	19284	
==>rver was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Retur <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19178	19284	
==>rver was seen, and C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$bot.connected>

Retur <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2302	2477	
==>> Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2302	2477	
==>> Bool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5722	5845	
==>}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5540	5660	
==>}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5905	6007	
==>$token = $operatorEmpty;
  $key = "";
  $whitespacePosition = $position;
  push @bsrStack, "bsr_token_m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6303	6414	
==>An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6303	6414	
==>An object representing a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	836	931	
==>urn "package " . "$<grammar_name>" .
	    ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4120	4240	
==>method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( headin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7597	7717	
==>method project (Set of Str $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return Relation.new( headin <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9507	9622	
==>on operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9507	9622	
==>on operators available: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	650	763	
==>->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $prog <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	856	969	
==>->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        my $prog <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4761	4869	
==>d ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4761	4869	
==>d ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5801	5946	
==>', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5801	5946	
==>', other => '[',
        } );
        no warnings qw( redefine );
        eval $statement->emit_grammar_perl5();
    }
    
    my $match = $gramm <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7686	7795	
==>chunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7686	7795	
==>chunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4828	4964	
==>x->compile( q(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler::Regex->compile( q(
            <Pugs:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1106	1224	
==>t $pilfn.err`.$err;
    }
    my $pil_code = `cat $pilfn`;
    unlink "$pilfn.err" or die "Couldn't remove \"$pilfn.err <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3260	3367	
==>/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3260	3367	
==>/=]>$/ {fail "This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep { <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	321	446	
==>al = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

= <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	321	446	
==>al = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($val.defined ?? ($_ => $self.($_)) !! ())
    } };
}

= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	296	400	
==>t_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	296	400	
==>t_start() )
    * Span::Code.compare is incomplete
    * Constructors should emit error messages if there <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2206	2328	
==>ot a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2206	2328	
==>ot a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	437	559	
==>RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1965	2087	
==>RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est zero],
);

module <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10437	10549	
==>e, isWritable=>$isWritable, isLazy=>$isLazy, paramName=>$paramName, paramContext=>$paramContext, paramDefault=>$d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37308	37411	
==>ing) and checks whether or not it has already been
loaded, returning true if so and false if not.

=item <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37308	37411	
==>ing) and checks whether or not it has already been
loaded, returning true if so and false if not.

=item <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	174	314	
==>die 'Need at least one source dir';

for my $srcdir (@ARGV ) {
    
    ### copy all the relevant files to the repo
    for my $archive ( qx[ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5111	5206	
==>t positional constructors.  At least it's isolated here. :(
sub new_box {get_meta($_[0])->new('$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1105	1212	
==>base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1105	1212	
==>base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10751	10909	
==>ersion, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10751	10909	
==>ersion, $val, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	10141	10275	
==>@ { $meta->{provides} } 
                        : $meta->{provides} || ();
    }      
}


# Local variables:
# c-indentation-style: b <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2604	2703	
==>e letters for type variables
	# it's ok to destroy the objects since they're copies
	foreach my $ent <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5131	5236	
==>ter   => 'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4953	5055	
==>ter   => 'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::C <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6315	6422	
==>presenting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6315	6422	
==>presenting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.n <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1733	1829	
==>s = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=hea <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1733	1829	
==>s = $p.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=hea <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1054	1190	
==>es once we can make sure it won't clash with custom
    # Module::Install extensions.
    $VERSION = '0.61';
}

# Whether or not inc::Mod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15554	15671	
==>esses with:

  I32 refcnt;

What invariants?  Don't know.


  I32 minlen;             /* mininum possible length of $& <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3511	3658	
==>ome heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$inde <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3511	3658	
==>ome heavy lifting here
    else {
        @!children = (
            @!children[0 .. ($index - 1)],
            @trees,
            @!children[$inde <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1696	1820	
==>lti method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

##multi method infix:<->( <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3554	3658	
==>lti method infix:<+>( $self: Str|Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

# sti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20378	20482	
==>double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The ration <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20378	20482	
==>double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The ration <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28165	28288	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<litera <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28444	28567	
==>( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0], '$<litera <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2864	2976	
==>" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2864	2976	
==>" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10690	10806	
==>sa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterat <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10690	10806	
==>sa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    return ::Span::Iterat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3058	3159	
==>$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List context,
it wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3058	3159	
==>$q.param($name)>

Returns the value of the parameter named C<$name>.  If called in List context,
it wi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7375	7550	
==>/perl5 -Isrc/perl5 ";
        $ghc_flags .= " -isrc/perl5 ";
        $ghc_flags .= join(' ', grep { m{^/} or m{^-[DILl]} or m{^-Wl,-R} }
                        split (' ', `$^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2475	2578	
==>/";
  push @args, substr(${&Rx}, 0, &RxPOS), &RxCUR;
  $self->{errnum} = $enum;
  $self->{errmsg} = spri <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16879	17010	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17158	17289	
==>[ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36958	37058	
==>string = $translator.translate_message( $message );

=back

The Translator class also has these utili <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36958	37058	
==>string = $translator.translate_message( $message );

=back

The Translator class also has these utili <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7424	7578	
==>concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7617	7771	
==>concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13157	13252	
==>ntext the arguments are decoded in-place.

This routine is exported by default.

=item _decode_e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13157	13252	
==>ntext the arguments are decoded in-place.

This routine is exported by default.

=item _decode_e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18429	18535	
==>t>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18429	18535	
==>t>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1177	1290	
==>:Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1177	1290	
==>:Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List of all Nodes that have no parent Nodes; a sub-s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35715	35811	
==>s multi-method is a generic binary relational operator that takes
another Relation as its C<$othe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40265	40361	
==>s multi-method is a generic binary relational operator that takes
another Relation as its C<$othe <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1697	1818	
==>ialize a new strap.

=cut

sub new {
    my $class = shift;

    my $self = bless {}, $class;
    $self->_init;

    retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13516	13623	
==>de effects, such as "say" and
database queries, may occur much later than expected.

It may enter an infinit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13516	13623	
==>de effects, such as "say" and
database queries, may occur much later than expected.

It may enter an infinit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7046	7164	
==>elf: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $self.hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7046	7164	
==>elf: )          is rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $self.hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10039	10149	
==>reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10039	10149	
==>reconnect>() },
    reconnect  => {
      $self<disconnect>() if $connected;

      debug "Connecting to $host: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8037	8149	
==>'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8025	8137	
==>'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15329	15428	
==>your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15329	15428	
==>your namespace, you can
call them as:

  use HTML::Entities ();
  $decoded = HTML::Entities::decode( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11556	11677	
==>lation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            di <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15033	15154	
==>lation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            di <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9769	9869	
==>b decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9769	9869	
==>b decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_entities <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10998	11099	
==>s $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10998	11099	
==>s $class: *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    return sub(Str $c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10302	10407	
==>d1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10302	10407	
==>d1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8170	8269	
==>l %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8170	8269	
==>l %channels he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2681	2792	
==>x[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2681	2792	
==>x[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.new(parse => sub ($m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13310	13407	
==>ields>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers only. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13310	13407	
==>ields>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers only. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7899	8044	
==>],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exists (and is corr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7899	8044	
==>],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate whether the 'person'
    # table exists (and is corr <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	237	376	
==>y $thr2 = async {
    say "Thread 2 started";
    atomically {
        { $a > 100 or retry }\
            .retry_with:{ $a < -100 or retry } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	983	1107	
==>Regex_x1   => sub{ $match = $rpc_regex->match($str) for 1..40},
        P5_regex_x10 => sub{ 
                   $match = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	321	467	
==>o be written like methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	311	448	
==>o be written like methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22266	22375	
==>m multiple packages which
have the same method names as you or each other, or having multiple search
directori <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22266	22375	
==>m multiple packages which
have the same method names as you or each other, or having multiple search
directori <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5608	5700	
==>use Pugs::Grammar::Postfix;
use Pugs::Grammar::Circumfix;
use Pugs::Grammar::Postcircumfix;
u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5690	5794	
==>mpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5690	5794	
==>mpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec::Unix - P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	755	858	
==>=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	755	858	
==>=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This document describ <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	811	949	
==>epresent them all as attributes
                  attrs => [ map { $self->generate_attribute($_) }
                             $class->att <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	351	459	
==>($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: Code $filter_function) { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	351	459	
==>($self:) returns Void { $!filter_function = undef }
method set_node_filter   ($self: Code $filter_function) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16156	16254	
==>les. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

=he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16156	16254	
==>les. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

=he <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24560	24660	
==>parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation's "is m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29112	29212	
==>parameters of C<new>.

=item C<is_mutable () returns Bool>

This method returns this Relation's "is m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26974	27105	
==>'ll probably want
to call it in your own module.

  package Regexp::AndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2862	2979	
==>efile {
    my $self = shift;
    my $top_class = ref($self->_top) || '';
    my $top_version = $self->_top->VERSION | <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2189	2271	
==>p://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2189	2271	
==>p://www.freepan.org/>
(L<http://tpe.freepan.org/repos/iblech/Perl6-Bible/>), if you <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1325	1502	
==>ken == '('
                new_arr = Array.new
                if !stack.empty?
                    stack[-1].push(new_arr)
                else
                    subexp.push(n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	463	545	
==>--------------------------------------------------------------------------

use Tes <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2891	2991	
==>$<value>:=(<term1>)<?p6ws>?\;
        { return { _open => $() } }
RULE
*{'assign'} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6783	6882	
==>p (pTHX_ char* exp, char* xend, PMOP* pm)
{
  SV* handler = NULL;

  fprintf(stderr,"hook_regcompp i <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	64	179	
==>nnable module - use 'pil2_json_emit_<language>.p6' instead

  ../../pugs -CPIL2-JSON -e ' say "hello" ' | \
    ../. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2845	2960	
==>f: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2845	2960	
==>f: $span) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinit <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3106	3208	
==>($node) . " is $type";
			return Blondie::TypeSafe::Annotation->new(
				type => Blondie::TypeSafe::Typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Interface.pm	5	104	
==>k in progress
package Pugs::Utils::Interface;

#options
our $print_program = 0;
our $print_ast     = <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	120	249	
==>s Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty comp <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	120	249	
==>s Void {
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty comp <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3896	3996	
==>revious, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3896	3996	
==>revious, $set.closure_next ),
        complement_next =>     $self._get_union( $self.complement_next, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2043	2139	
==>--------------------------------------------------------------------------
## some metamodel tool <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	661	754	
==>rg)
# --------------------------------------------------

use strict;
use IO::All;
use Regexp: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3921	4021	
==>?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatib <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3921	4021	
==>?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatib <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34385	34481	
==>e supporting class for the F<Regexp::AndBranch::and> object it
creates!

A method call for a F<Re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17615	17725	
==>"::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code .= "our \$META;\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21757	21857	
==>w user message in
one of their own resource files.  At some appropriate place, usually in the
main pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21757	21857	
==>w user message in
one of their own resource files.  At some appropriate place, usually in the
main pr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14267	14381	
==><< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C< <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14267	14381	
==><< & >>, C<< > >>, and C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8645	8745	
==>de $predicate!) returns Relation::Example {
    return Relation::Example.new(
        heading => $!he <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4303	4409	
==>cal $/; <$fh> };

    return $contents;
}

=pod JIB::Utils->_move( from => $file|$dir, to => $target );

Mo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18097	18194	
==>"ignorecase"] = $I0
    .return (self)
.end

.namespace [ "PGE::Exp::Cut" ]

.sub "p6analyze" :met <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	442	545	
==>erl::Prim->new(
		equals => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7406	7600	
==>f.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7406	7600	
==>f.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.previous( Inf );
            }
            return $.c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5759	5859	
==>if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5759	5859	
==>if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open () returns Bool {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7484	7610	
==>>{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7233	7353	
==>>{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1195	1455	
==>sn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1195	1455	
==>sn't allowed when creating Nodes from <ARG>.],
);

###########################################################################
###########################################################################

module Rosetta::Model::L::en-0.400.1 {
    sub get_text_b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2134	2237	
==>> \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2122	2225	
==>> \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture, \n" .
        "  }, 'Pugs::R <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5548	5663	
==>Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5548	5663	
==>Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	374	558	
==>::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	374	558	
==>::capture( 'expr', 
             ruleop::non_greedy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9349	9439	
==>sh @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3174	3264	
==>sh @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::Per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5258	5429	
==>} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5258	5429	
==>} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2-> <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3159	3286	
==>ash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umla <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3159	3286	
==>ash"   => 'ø',  # small o, slash
    "otilde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umla <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5153	5290	
==>us!
        my $basename = $a_ext;
        $basename =~ s!.*/!!;
        my $dir = "dist/tmp-$basename";
        mkdir $dir;
        chdir <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29530	29693	
==>new(
                params => method::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$or <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17983	18090	
==>y pair and returns it's first thingy
# (a x b) -> a
# applied to $pair (int x str) this should be int
my $fs <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4457	4559	
==>THODS

The following methods are available for Date objects:

- `year()`

Returns the year for the obje <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4457	4559	
==>THODS

The following methods are available for Date objects:

- `year()`

Returns the year for the obje <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19482	19579	
==>es, and not change
your main program.

I<Note that an update is planned for Locale::KeyedText that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19482	19579	
==>es, and not change
your main program.

I<Note that an update is planned for Locale::KeyedText that <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8425	8532	
==>sts, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Lo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8483	8590	
==>sts, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	476	618	
==>AD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	476	618	
==>AD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\.?|\d*\.\d+)$/; # integer <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10212	10316	
==>Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10212	10316	
==>Perl6::Value::List.new( start => coro mylist2 { yield $_ for 1..3; yield; } );

= DESCRIPTION

A lazy lis <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2144	2270	
==>(embedded latex)
	    if ($file[0] eq '!') {
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    las <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	748	854	
==>d1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6 <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	748	854	
==>d1 NAME

Benchmark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2827	2927	
==>LVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2827	2927	
==>LVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5020	5130	
==>re => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5242	5352	
==>re => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13640	13763	
==>nslator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13640	13763	
==>nslator .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for loca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23595	23752	
==>de("f"),
					),
					param => comb(
						fun => ide("tail"),
						param => ide("xs"),
					),
				),
			),
		),
	),
	),
	in => ide("map"),
);

my $list_plu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13961	14102	
==>kip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_test>

  my $is_test = $strap-> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	994	1125	
==>if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	994	1125	
==>if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.density );
    }
    return ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	896	1012	
==>che({});

    $self->reduce($ast);
}

sub reduce_stub {
    my $self = shift;

	my $node = shift;

    die "trying to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2988	3090	
==>w( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2988	3090	
==>w( recurrence => $set2.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	712	826	
==>RG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather cont <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	712	826	
==>RG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather cont <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6037	6404	
==>(($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                })) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7799	8166	
==>(($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$method")) is_nil)
                                                })))
                                })) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12151	12252	
==>gs{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print STDERR "# $stdindi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5972	6075	
==>return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too speci <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5972	6075	
==>return Bool::False if $.span.is_empty;
    return $.span.end_is_closed;
}

# Removed - this is too speci <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2907	3031	
==>$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3756	3880	
==>$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3967	4070	
==>Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3967	4070	
==>Something::WaveHands` for
parsing.

- `new( year => $year, month => $month, day => $day )`

Returns a da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5109	5207	
==>n} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.key <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5109	5207	
==>n} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31069	31175	
==>installs the given handles.  You send the names (like '|' or
'atom').  Here is a very simple complete sub-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5208	5359	
==>urn;
    }
}

sub before { 
    my $op = shift;
    return sub {
        my $match;
        $op->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8827	8963	
==>UDE_DIRS__/@include_dirs/;
        s/__LIBS__/@libs/;
        s/__LIB_DIRS__/@lib_dirs/;
        print OUT $_;
    }

    close IN;
    c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8744	8848	
==>tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8802	8906	
==>tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_failed <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2069	2183	
==>, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2057	2171	
==>, from => \\(0+\$pos), to => \\(\$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18264	18365	
==>ead2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection to the server
dies <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18264	18365	
==>ead2 C<$bot.run()>

Starts the main runloop, which is only exited if the connection to the server
dies <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36976	37075	
==>or.translate_message( $message );

=back

The Translator class also has these utility methods, which <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36976	37075	
==>or.translate_message( $message );

=back

The Translator class also has these utility methods, which <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31547	31641	
==>to it, another library likewise, and a program which uses both libraries
could have yet another <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31547	31641	
==>to it, another library likewise, and a program which uses both libraries
could have yet another <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5328	5447	
==>tributes;
    has %:methods;
}

(class (Class)
    ((attribute new (@:MRO))             (list)
     (attribute new (@:su <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4939	5036	
==>es
my $files = {}; # mapping from test-file-name to test-record
$files->{$_->{file}} = $_ for @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8333	8460	
==>ss $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8526	8653	
==>ss $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7214	7304	
==>ree variable instantiates into whatever it is combined with (except instantiated variables, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4793	4972	
==>h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4793	4972	
==>h_exp = ($date - $last_modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6749	6872	
==>defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' param <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6749	6872	
==>defined($_base) && $_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' param <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	492	604	
==>pport unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	459	571	
==>pport unavailable!\n"), return);
        ($scheme, $host, $path, $file) = 
            $args{url} =~ m|^(\w+)://( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31236	31338	
==>:Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31236	31338	
==>:Fre, Foo::L::Ger] or [L::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1323	1473	
==>utable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing class, it can default to True or <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4801	4951	
==>utable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the implementing class, it can default to True or <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6670	6779	
==>o{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
NODE PPos ($p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3961	4056	
==>. $Class got the right method return value');
is($Class->superclass, $Object, '... $Class is now <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5863	5958	
==>. $Class got the right method return value');
is($Class->superclass, $Object, '... $Class is now <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4689	4838	
==>------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = & <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4689	4838	
==>------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = & <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3258	3366	
==>param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3258	3366	
==>param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<before> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15454	15546	
==>lete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15454	15546	
==>lete and uncompromising implementation of "The
Third Manifesto" (TTM), a formal proposal by C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7750	7871	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7943	8064	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2139	2247	
==>e;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2139	2247	
==>e;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # If it's UNC, make su <==
2	/Users/nnunley/pugs/util/importgraph.pl	193	304	
==>int from importer to importee

use strict;
use warnings;
use File::Find;
use GraphViz;
use Getopt::Long;

my $la <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6189	6341	
==>( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no war <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6189	6341	
==>( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no war <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	967	1086	
==>OK
   exit(1);
}

sub GolfScore {
   my $script = shift;
   open(FF, $script) or die "error: open '$script'";
   my $gol <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8381	8515	
==>) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8381	8515	
==>) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1656	1770	
==>" [ dir = back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses')) { # roles don't ha <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	598	698	
==>when you
declare a new class.

A class is a role with the enhancement that is it I<typable>.

This me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2223	2346	
==>($self, %params) = @_;
            _('$.number'     => 0)     unless exists $params{'$.number'};
            _('$.diagnostic <==
2	/Users/nnunley/pugs/util/func_refact.pl	2679	2781	
==>ten best candidates
    print_cand($_, $cands{$_}) for
        sort {score(@{$cands{$b}}) <=> score(@{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16464	16575	
==>thing like C</(\w+(?<!\d))(\d+)/>.
The other difficulty is complex regexes with if-then assertions.  I
don't wan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17610	17804	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17889	18083	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1379	1507	
==>p->{'nprec'};
      }
      else { die "Did not understand '$name' '$prec'"; }
    }
    my $o = { name => $name, nprec=>$nprec } <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1742	1862	
==>tes }
       );
}

method all_methods($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1690	1823	
==>nfinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1690	1823	
==>nfinite   //= sub { &{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9944	10056	
==>iff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9944	10056	
==>iff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1698	1809	
==>::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1698	1809	
==>::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.conte <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4817	4961	
==>$key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $v <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4676	4820	
==>$key, $value ) = each %$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1922	2035	
==>ck that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1922	2035	
==>ck that we don't flood excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9318	9493	
==>ter ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9318	9493	
==>ter ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $c <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	360	480	
==>LF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	360	480	
==>LF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7477	7576	
==>(@array ; MatchTest *@indextests --> Int|List )
 multi Array::kv     (@array ; MatchTest *@indextest <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8388	8475	
==>&Foo::singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::singleton_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8196	8324	
==>data, but this is a low-level op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "asser <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7920	8044	
==>data, but this is a low-level op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "asser <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3659	3757	
==>se interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3876	3974	
==>se interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2454	2550	
==>me) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2454	2550	
==>me) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14192	14290	
==>thod nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14192	14290	
==>thod nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("W <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16576	16675	
==>e; if $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16576	16675	
==>e; if $parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2373	2495	
==>MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2373	2495	
==>MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	643	742	
==>)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> wi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	643	742	
==>)>

Note, if you want to specify an B<opaque> object, then please
sub-class C<Perldoc::DOM::Node> wi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11113	11225	
==>de =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11263	11375	
==>de =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) / <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1886	2001	
==>bmethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThun <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1886	2001	
==>bmethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () { 'Stmt' }
}

# PILThun <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	276	376	
==>class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	276	376	
==>class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6468	6567	
==>>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6468	6567	
==>>

    C<method _cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphe <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1373	1489	
==>or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by gi <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1373	1489	
==>or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have been "selected", either by gi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4923	5045	
==>ository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4923	5045	
==>ository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Ros <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4684	4795	
==>e_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4684	4795	
==>e_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	157	259	
==>))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	157	259	
==>))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1762	1850	
==>tatement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19582	19679	
==>n is like a Set that exists
over N dimensions rather than one.  The Relation operators are somewha <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24134	24231	
==>n is like a Set that exists
over N dimensions rather than one.  The Relation operators are somewha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4840	4954	
==>ngine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4840	4954	
==>ngine_name => 'Rosetta::Engine::Example' );

    # TODO: Create or connect to a repository and work with it.

=head <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11	112	
==>pt to convert S29draft.pod to p6 code.
# Based on r8593.
# Multis are defined in terms of others, or o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	869	998	
==>]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1075	1204	
==>]###\n";
        #print "immediate_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15171	15285	
==>turn _not_implemented( $n, "prefix" );
}

sub postfix {
    my $n = $_[0];
    # print "postfix: ", Dumper( $n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	352	550	
==>,
		),
	),
    '&say' => Thunk(
        Seq(
            Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24466	24581	
==>r('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20887	21002	
==>r('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S->{next} }, qw< ifthen_a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32670	32766	
==>rings, using data from external Template modules as a template.
The Translator class as a whole i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32670	32766	
==>rings, using data from external Template modules as a template.
The Translator class as a whole i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2748	2852	
==>ethod size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2748	2852	
==>ethod size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7533	7655	
==>$message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7533	7655	
==>$message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13170	13316	
==>ap {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13170	13316	
==>ap {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys ) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25857	25970	
==>nse,
the script dies with this message.

=back

=head1 ENVIRONMENT

=over 4

=item C<HARNESS_ACTIVE>

Harness sets <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	111	366	
==>le::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	111	366	
==>le::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (No <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	972	1092	
==>UT "1..0\n";
    }
    exit(0);
}

sub _ok {
    my ($pass, $where, $name, @mess) = @_;
    # Do not try to microoptimize <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2869	3003	
==>trs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_in <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3074	3208	
==>trs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, $label) = @_;
            ::opaque_in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14625	14761	
==>ULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14625	14761	
==>ULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 e <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1547	1664	
==>.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/l <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1547	1664	
==>.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/^.*\.pm$/;
    }
    $f.dirs = qw/l <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6626	6744	
==>he HTTP response code.

=item getstore($url, $file)

Gets a document identified by a URL and stores it in the file. The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6626	6744	
==>he HTTP response code.

=item getstore($url, $file)

Gets a document identified by a URL and stores it in the file. The <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	359	614	
==>s file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	359	614	
==>s file:
# (None Yet)

###########################################################################
###########################################################################

class Rosetta::Engine::Example-0.724.0 {

    # External packages used by the Ros <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19156	19259	
==>Likewise, emulation layers for any other programming language can
be supported, such as Tutorial D or XQ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19156	19259	
==>Likewise, emulation layers for any other programming language can
be supported, such as Tutorial D or XQ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8497	8595	
==>etta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document descri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8497	8595	
==>etta::Model -
Abstract syntax tree for the Rosetta D language

=head1 VERSION

This document descri <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12370	12477	
==>ence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If bot <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12370	12477	
==>ence set.

- `closest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If bot <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	68	215	
==>ontent should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$c <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	68	215	
==>ontent should disallow storing of spaces...

#sub content {
    #if ( @_ ) {
        ## FIXME - unicode :)
        #my $content = shift;
        #$c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1191	1288	
==>nd now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1191	1288	
==>nd now bubble up to the parent (unless we are the root)
    $self.parent()!set_width($self) unless <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18267	18470	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18546	18749	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9029	9250	
==>ue::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9029	9250	
==>ue::List.new(
                cstart => coro {
                        my @x;
                        my $count = 0;
                        # TODO - rewrite this checking 'elems()'
                        # XXX - the list <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	346	447	
==>%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tag <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	346	447	
==>%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless @msg;
	
	if $active eq any('all', keys %tag <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2880	3056	
==>g_func($func) {
    '
 multi Num::'~$func~' (  Num  $x             ; :$base --> Num )
 {
     Math::Trig::'~$func~'($x,$base);
 }
 multi Math::Trig::'~$func~' ( Num $x = CALLER: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2595	2715	
==>:oop{$id}{'op_ahead'};
      if(defined $op) {
        print STDERR "op $op\n" if $debug;
        my $ops = [@{$Z::oop{$i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30274	30370	
==>e Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34826	34922	
==>e Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C<$hea <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13594	13693	
==>days = $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13594	13693	
==>days = $month.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6876	7116	
==>nump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6876	7116	
==>nump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $num {
                            my $newnum = defined $num
                                            ?? multidex($mma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15374	15474	
==>tring identifies what kind of Node this is, and by extension
what kinds of attributes or relative Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15374	15474	
==>tring identifies what kind of Node this is, and by extension
what kinds of attributes or relative Nod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2409	2521	
==>[^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not jus <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2409	2521	
==>[^\\/]+[\\/][^\\/]+$} && $directory ~~ rx:perl5{^[^\\/]});
    $vol ~= $directory;
    # If the volume is not jus <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9434	9535	
==>o => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9492	9593	
==>o => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::Module');

  pass('This test passed' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9602	9709	
==>es that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shif <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9602	9709	
==>es that use/no a Module::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shif <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15494	15589	
==>ted, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will ea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15552	15647	
==>ted, Str $desc?) returns Bool;

Because these functions will be mutually recursive, they will ea <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	249	363	
==>ut");
    $optable->addToken("term:\\b", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\\B", " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12812	12926	
==>sub { Carp::carp("p6_as_str called on undef"); "" },
      numeric     => sub { "". $_[0] },
      non_numeric => s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9843	9965	
==>me,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9843	9965	
==>me,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26341	26484	
==>$on,
      off => $off,
      zerolen => 1,
    }, $class;
    return $self;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1345	1455	
==>$c_code =~ s/([GIP]V)/blondie_$1/g;
	$c_code =~ s/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2711	2843	
==>DERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2711	2843	
==>DERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16898	17022	
==>h @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13319	13443	
==>h @{ $S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3223	3336	
==>ot || !defined $expected ) {
        # undef only matches undef
        $pass = !defined $got && !defined $expecte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21370	21484	
==>->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17791	17905	
==>->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->add_han <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13175	13271	
==>s are decoded in-place.

This routine is exported by default.

=item _decode_entities( $string, \ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13175	13271	
==>s are decoded in-place.

This routine is exported by default.

=item _decode_entities( $string, \ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5796	5900	
==>-- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5796	5900	
==>-- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24293	24400	
==>ly at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24293	24400	
==>ly at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entirely object-oriented; you use i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2569	2674	
==>ethod superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2569	2674	
==>ethod superset($self: Set $other) returns Bool {
    my $rv = $other.subset($self);
    return $rv;
}
meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1318	1438	
==>hans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1318	1438	
==>hans have we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of l <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7198	7305	
==>=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-request>,
L<lwp-mirror <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7198	7305	
==>=back

=head1 SEE ALSO

L<LWP>, L<lwpcook>, L<LWP::UserAgent>, L<HTTP::Status>, L<lwp-request>,
L<lwp-mirror <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	992	1094	
==>turns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	992	1094	
==>turns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1429	1545	
==>means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1429	1545	
==>means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5996	6113	
==>er
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5996	6113	
==>er
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolute($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8306	8415	
==>>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Renam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8306	8415	
==>>) for @chans;
    %users.delete(normalize $event<from_nick>);
  }];

  # Somebody changed his/her nick. Renam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10779	10929	
==>if'     ||
           $n->{op1}{stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9481	9594	
==>stic = '' )
  {
      $.output.diag( $diagnostic );
  }
  
  method todo returns Bit ( $self: Bit $passed, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	25	127	
==>te;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	25	127	
==>te;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from rest <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24502	24601	
==>ported
  }

You'll probably not be adding handlers that have to parse flags, but if
you do, remember <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2268	2393	
==>to;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*E <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2268	2393	
==>to;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*E <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	78	194	
==>unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	78	194	
==>unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metas <==
2	/Users/nnunley/pugs/util/testgraph.pl	779	889	
==>die $!;
}
else {
    $fh = \*STDOUT;
}
binmode $fh, ":utf8" or die "binmode: $!";
print $fh "$v";
close $fh;

s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7055	7229	
==>m
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7055	7229	
==>m
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1164	1259	
==>o combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footpri <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1164	1259	
==>o combine several
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footpri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9923	10022	
==>()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `compa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9923	10022	
==>()`

Returns a Set::Infinite.

- `stringify()`

Return a string representation of the set.

- `compa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5170	5282	
==>ree, $self;
    push @{ $rx->{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Regexp::Parse <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	838	946	
==>}
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'TestBuilder::NullPlan' => {
    is => [ $::Object ] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41324	41422	
==>vided feedback towards improving this module's
documentation, particularly towards using a much sho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41324	41422	
==>vided feedback towards improving this module's
documentation, particularly towards using a much sho <==
2	/Users/nnunley/pugs/util/importgraph.pl	2959	3043	
==>as_canon("importgraph.dot");
#$g->as_png("importgraph.png");
$g->as_ps("importgraph.p <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	621	986	
==>when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	621	986	
==>when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21137	21231	
==>recompiled. This means that people who install your
module distribtution do not need to have th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21137	21231	
==>recompiled. This means that people who install your
module distribtution do not need to have th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2351	2481	
==>list =>        
    #    "exp 'name' list_right \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3] <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2982	3114	
==>list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.fro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2982	3114	
==>list"
        #     if $ret.is_infinite;

        my @list;
        while $ret.elems { &*push(@list, $ret.shift); }
        $self.fro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20681	20778	
==>tion does not declare any subroutines or export such.

The usual way that Relation indicates a fai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25233	25330	
==>tion does not declare any subroutines or export such.

The usual way that Relation indicates a fai <==
2	/Users/nnunley/pugs/util/grokprims.pl	2016	2139	
==>rity == 1) {
    $example = "$name\$$a0 # ???";
  } else {
    $example = "$_ ($arity)";
  }

  print "   <tr>";
  print "<t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16443	16544	
==>lue.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16443	16544	
==>lue.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16750	16849	
==>method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordina <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20227	20326	
==>method _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordina <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13243	13337	
==><Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13243	13337	
==><Last-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15552	15645	
==>the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all charact <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15552	15645	
==>the %char_to_entity and the %entity_to_char hashes,
which contain the mapping from all charact <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3621	3738	
==>ller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3679	3796	
==>ller().package;

    eval "package $caller; require $module";

    #try {
    #    &::($module)::import.goto();
    #} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32856	32957	
==>mainly in the
C<translate_message()> method, but it has no other side effects.

A Translator object ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32856	32957	
==>mainly in the
C<translate_message()> method, but it has no other side effects.

A Translator object ha <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7784	7915	
==>efix);
	}
    } elsif($s =~ /HASH/) {
        for (keys %$o) {
	    my $v = $$o{$_};
	    if(ref($v)) {
		rebless_with_prefix_and_cl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	817	1019	
==>ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	818	1020	
==>ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12139	12236	
==>@root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12139	12236	
==>@root_nodes (an array ref) is set, then each
element in it is used to initialize a new Node object <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7863	7981	
==>nt is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7863	7981	
==>nt is fired when a '=back' directive is reached.
    
=item I<start_element ('item')>

This event is fired when an '=it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1729	1914	
==>sg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1729	1914	
==>sg_vars' => {%!msg_vars},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13237	13335	
==>n $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6712	6810	
==>n $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->object(exact => chr hex <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1459	1601	
==>=> $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    $self->enter_scope;
    my @params = $self->param <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	354	458	
==>rammar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <immediate_statement_rule>*
        { re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	240	352	
==>me::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	240	352	
==>me::Match->new( { bool => 0 } );
}

# non-working :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5312	5497	
==>er->($ghc);

    if (!$ghc_version and (    $Config{osname} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Loo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7938	8039	
==>gleton methods ..

is($Foo->another_singleton_test_on_object(), 
   '&Object::another_singleton_test_o <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1964	2100	
==>f.all_superclasses, $self ).members.map:{ .get_assocations }
       );
}

# sigh ... how you get used to infrastructure you've built up i <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	747	863	
==>$i = $input.();
      if $i.isa(Array) {
        my($sep, $tok) = $split.($buf);
        $tok = $maketoken.($tok, $la <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	669	779	
==>$_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	669	779	
==>$_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2176	2273	
==>{ true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subset complex of complex64  where { true <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13484	13571	
==><span class="tests_skipped"><tmpl_var name=skipped> skipped</span> and
		<span class="te <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8952	9132	
==>header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $versi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8952	9132	
==>header_words($_) -> @cookie {
                my ($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $versi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	149	268	
==>ort(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	149	268	
==>ort(:MANDATORY) { ... }
    
    sub parse_date ($str)            is export(:DEFAULT) { ... }
    sub time_to_iso ($time <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3252	3396	
==>, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3252	3396	
==>, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	777	895	
==>londie::Reducer::DynamicScoping::Pad->new(
        name => $name,
        val => $val,
    );

    push @{ $self->{scop <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2927	3123	
==>~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x unless wantarray;
        push @result, $x;
    }
    return @result <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	967	1092	
==>um::ceil ::= &Num::ceiling;


 multi  Num::round (  Num  $x            --> Int )
 {
     Pugs::Internals::round($x);
 }

 mult <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8700	8797	
==>jects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8700	8797	
==>jects.

- `new( recurrence => $recurr )`

Creates a `Set::Infinite` object using an existing Recur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1848	1953	
==>Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1848	1953	
==>Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	357	456	
==>on ciphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
u <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	357	456	
==>on ciphers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33066	33163	
==>ve more complete
documentation.  For now, read the source (!).

=head2 bol

Family: anchor

Types: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18248	18383	
==>$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa_ok ($$;$) {
    my($object <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	511	637	
==>tr {
    # construct our header
    my $header;
    $header ~= "Status: " ~ $status ~ "\n";
    # TODO:
    # Need to add suppo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39223	39313	
==>setta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITAT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39223	39313	
==>setta::Validator>,
L<Rosetta::Engine::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITAT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3712	3903	
==>/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warning <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3712	3903	
==>/ }
                  sort keys %$tree
                ), 
                ( exists ${$tree}{list} ? 'list' : () ) 
            );
        if ( defined ${$tree}{op1} ) {
            no warning <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9771	9869	
==>it has succeeded, even if the return
value is undefined.

Rosetta::Model's input validation is perf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9771	9869	
==>it has succeeded, even if the return
value is undefined.

Rosetta::Model's input validation is perf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8951	9056	
==>POS, 1));
    return $S->force_object(anyof_char => "\0", "\\0[0]") if $cc;
    return $S->object(exact => <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6764	6866	
==>rypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6764	6866	
==>rypted or 
decrypted.

=item C<_head>

    C<method _head() returns Array of byte {...}>

Returns any d <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	693	803	
==>not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also tak <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	693	803	
==>not given, it defaults to infinity.  So
C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also tak <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	71	185	
==>:Num;
use Perl6::Core::Str;
use Perl6::Core::Bit;
use Perl6::Core::Closure;

package block;

use strict;
use warnin <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9336	9466	
==>calar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res, $cur);
   }
   $re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	732	862	
==>calar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res, $cur);
    }
    $re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2001	2106	
==>us::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATOR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2001	2106	
==>us::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATOR <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	636	762	
==>fined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@ite <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	636	762	
==>fined ) {
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16936	17042	
==>hen present, its value indicates what additional
encoding mechanism has been applied to the resource.

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16936	17042	
==>hen present, its value indicates what additional
encoding mechanism has been applied to the resource.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5016	5181	
==>pecified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5016	5181	
==>pecified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { 
                                         $p.parse()($m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23634	23739	
==>itional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any or <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23634	23739	
==>itional (like with 'sprintf'); whereas, Locale::KeyedText has
named variables, which can be used in any or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8372	8498	
==>}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8082	8202	
==>}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11499	11643	
==>arker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possibl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11499	11643	
==>arker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possibl <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6172	6273	
==>it into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6172	6273	
==>it into the respective
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the head <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	709	831	
==>rs, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($sel <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	709	831	
==>rs, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17365	17487	
==>);

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17365	17487	
==>);

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta::Model::Node $dt_sex .= new(
        no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1712	1868	
==>shift(@$in);
            defined($t)
        or  $t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp(input => $g);
    $p= <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	566	689	
==>hile @values {
       take $expression
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub redu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10404	10523	
==>d_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10683	10802	
==>d_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6814	6924	
==>nt( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6814	6924	
==>nt( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16930	17023	
==>ind_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, $P0) = newfrom(pattern, 0, "PGE::Exp" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3636	3790	
==>};   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3776	3930	
==>};   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            subs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23800	23930	
==>rn { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24079	24209	
==>rn { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	530	652	
==>$X::cap)=($str,$pos,$cap);
        return $kludge_retval if defined $kludge_retval;
        return $v;
      }
    }
    re <==
2	/Users/nnunley/pugs/util/claim_drift.pl	782	887	
==>(my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $real;
    my $clean = sub { $_[0] = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5125	5232	
==>( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5318	5425	
==>( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negated_subrule;
*{'grammar1::subrule'} = sub <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2236	2361	
==>-s $ppc_yml) or -M $ppc_yml > -M $ppc_hs) {
        # can't assume blib6/lib exists: the user may be running
        # `make u <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41591	41684	
==>mple>

This multi-method is the N-ary version of the aforementioned binary join()
operator, an <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15286	15392	
==>ool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (H <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15344	15450	
==>ool;
  multi sub is_deeply (List  $got, List  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (H <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4961	5084	
==>skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5019	5142	
==>skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2234	2360	
==>urns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2234	2360	
==>urns Str {
    return '  Debug String of a Locale::KeyedText::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $ <==
2	/Users/nnunley/pugs/util/run-smoke.pl	302	398	
==><<"EOF" if $failed;

You don't seem to have the required modules installed.
Please install it fro <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1093	1187	
==>lementary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1093	1187	
==>lementary functions are emulated using iterations.

- `new( closure_next => sub {...}, closure_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4530	4718	
==>\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n   List      post    ...     safe   (Str)\
\\n   List      post    ...     safe   (Scala <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1973	2104	
==>0+35, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
sub dayify {
  my @till_day;

  for(@_) {
    my $cur_day = int(($ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1417	1525	
==>_;
    print STDERR "processing $fname...\n";
    my $file = slurp($fname);
    # remove the description line <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9717	9821	
==>my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9717	9821	
==>my @parts = split /^([^\S\n]*(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1055	1157	
==>o not generate html files for the perl6 design docs (faster)
    --output_dir    Output Directory to pu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2822	2917	
==>essage (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.translate_me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2822	2917	
==>essage (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.translate_me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	382	515	
==>! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	382	515	
==>! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@vals) is rw {
        return new Proxy:
            FETCH => -> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8153	8278	
==>efined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8153	8278	
==>efined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8120	8222	
==>}
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_pl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8178	8280	
==>}
}


sub test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_pl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	686	836	
==>{ 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	697	847	
==>{ 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2309	2425	
==>= HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2309	2425	
==>= HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI: "    ~ $r.uri;
    say <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7958	8093	
==>to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7970	8105	
==>to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4689	4783	
==>oject_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.diff <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8166	8260	
==>oject_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!heading.diff <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4955	5080	
==>"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(91 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4955	5080	
==>"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(91 <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	56	159	
==>nt   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	56	159	
==>nt   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $.results;
has Code  $.wanted_dir;
has Code <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20195	20294	
==>tentionally in a simple fashion so that it is easy to maintain and
and easy for developers to study. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20195	20294	
==>tentionally in a simple fashion so that it is easy to maintain and
and easy for developers to study. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	345	444	
==>esented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type k <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	345	444	
==>esented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

This node type k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6989	7142	
==>2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6989	7142	
==>2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9485	9599	
==>ry { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected+ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9485	9599	
==>ry { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected+ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7354	7492	
==>),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7354	7492	
==>),
    "larr"     => chr(8592),
    "uarr"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => ch <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8880	9025	
==>es for closure")
    .return (mob)
.end
    

.sub "parse_quant"
    .param pmc mob
    .local string target
    .local int min, max, islazy
    . <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19016	19112	
==>intersection( $other!body ),
    );
}

my method _semijoin (Relation::Example $other!) returns Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27640	27730	
==>er::__object__>, the global object base class.  All
user-defined F<MyRx::*> objects inherit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	549	649	
==>set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	549	649	
==>set_start / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closu <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9922	10027	
==>actor  ::= Code(Any --> Any );
 type Comparator    ::= Code(Any, Any --> Int );
 type SortCriterion ::= Ke <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1137	1240	
==>actor  ::= Code(Any --> Any );
type Comparator    ::= Code(Any, Any --> Int );
type SortCriterion ::= Ke <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3566	3688	
==>ns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Sp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3566	3688	
==>ns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec, although this version is more akin 
to File::Sp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4977	5080	
==>_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self->{extensions};

    forea <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	408	511	
==>:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the diff <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	408	511	
==>:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  note the diff <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7555	7709	
==>or ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf | <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7555	7709	
==>or ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf | <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3274	3395	
==>) }; # typicall there are no free vars inside a thingy

package type::operator;
use base qw/type/;

sub new {
	my $class = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12797	12908	
==>ome_file"
# I'm not sure where this is specced, but when I migrated &prefix:<=> from
# meaning the same as &read <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	738	865	
==>> 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	738	865	
==>> 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Met <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13004	13180	
==>]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12998	13174	
==>]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]-> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1757	1896	
==>ode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = m <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1757	1896	
==>ode(@oct);
}

multi encode (*@string is copy) returns Array {
#  say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40013	40110	
==>ou
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40013	40110	
==>ou
should have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1812	1939	
==>n =>         
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	666	781	
==>-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	666	781	
==>-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	780	963	
==>tion for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub ha <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	780	963	
==>tion for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26779	26918	
==>ss, $rx, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'minmod',
      type => 'minm <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	80	187	
==>line;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fiel <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	80	187	
==>line;

# fixme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fiel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20539	20635	
==>the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20539	20635	
==>the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5686	5817	
==>&{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5686	5817	
==>&{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19500	19596	
==>s are system catalog relation variables rather than user-defined
relation variables.  In SQL term <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19500	19596	
==>s are system catalog relation variables rather than user-defined
relation variables.  In SQL term <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1430	1528	
==>al module which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=h <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1430	1528	
==>al module which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21034	21156	
==>dler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17455	17577	
==>dler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6753	6870	
==>s
    pos = $I0 + 1
    if pos > 0 goto term_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1770	1871	
==>indent -1);
		local $Data::Dumper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dum <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1825	1935	
==>s:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1825	1935	
==>s:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1277	1398	
==>unks) {
        return $self->can_run("@chunks") || (pop(@chunks), next);
    }

    return;
}

# Fix Cygwin bug on maybe_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1210	1319	
==>unks) {
		return $self->can_run("@chunks") || (pop(@chunks), next);
	}

	return;
}

# Fix Cygwin bug on maybe_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4552	4682	
==>~ JSX::null) {
        $Result2.<[[Put]]>(GetPropertyName($V),$W);
        return;
    } # 6
    JSX::global_object.<[[Put]]>(GetPr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29395	29498	
==>will be
removed from the tree.  Most node types don't merge.  Returns true if
the node was merged with t <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1991	2092	
==>context;
    # Check if it's now in 'sub' context
    if(/\bsub\s*(${re_symbol}\s*)?($RE{balanced}{-pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1761	1926	
==>,state)=@$state"

            $match = 

                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );

            ### match: $match

            if ( $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1702	1863	
==>,state)=@$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $flags );
            ### match: $match
            if ( $ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2934	3056	
==>term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2945	3067	
==>term,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6588	6702	
==>build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6588	6702	
==>build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1511	1644	
==>m<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param< <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1511	1644	
==>m<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param< <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8199	8298	
==>= int((@dirs+1) / 3) +1;
    $template->param(parent => $index->{_parent} || "../");
    $template-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	120	236	
==>t ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</tit <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	120	236	
==>t ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</tit <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43389	43486	
==>ation class.

These other Perl 6 packages also work in the problem domain of managing
data or data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34431	34526	
==>::and> object it
creates!

A method call for a F<Regexp::MyRx::THING> object will look in its ow <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26411	26527	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26690	26806	
==>match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	229	337	
==>'$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	229	337	
==>'$:pkg_meta' => (
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local ha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12980	13073	
==>.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Message") a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12980	13073	
==>.73.0.

It also describes the same-number versions of Locale::KeyedText::Message
("Message") a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	113	237	
==>submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	113	237	
==>submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31634	31751	
==>argument, in which case the new Relation has either all of the tuples of
the original, or has zero tuples, respectivel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36184	36301	
==>argument, in which case the new Relation has either all of the tuples of
the original, or has zero tuples, respectivel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9638	9733	
==>$module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMP <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9638	9733	
==>$module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GET_TMP <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4250	4367	
==>tch,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4467	4584	
==>tch,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $pro <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11236	11352	
==>r() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Arra <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11236	11352	
==>r() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3012	3373	
==>'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3012	3373	
==>'ARG' => $arg, 'KEY' => $k } )
                if $val_elem.exists($k);
        }
    }
}

###########################################################################

} # class Rosetta::Model::Document

###########################################################################
###########################################################################

class <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20045	20192	
==>::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20324	20471	
==>::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7116	7249	
==>request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($respons <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7116	7249	
==>request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($respons <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14116	14217	
==>an" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might wa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14116	14217	
==>an" Little (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might wa <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1618	1721	
==>ub inline {
    print STDERR "Generating inlined source Prelude... " if $Config{verbose};

    gen_sourc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8970	9079	
==>able/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10447	10556	
==>able/provided by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted p <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1213	1313	
==>r::int_size 64;');

#XXX- rename $n or $^n.  having the two of them "n" is confusing.
macro Clutter:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5281	5416	
==>y $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5293	5428	
==>y $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15622	15745	
==>~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10478	10601	
==>~ m{ \G (\d+) (,?) (\d*) \} }xgc) {
      my ($min, $range, $max) = ($1, $2, $3);
      $max = $min unless $range;
      pus <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	150	252	
==>hing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_infinite( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	150	252	
==>hing a lazy list into a normal array turns the array into a lazy array
* New method: Array.is_infinite( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20417	20515	
==>stracted to the ender() method of the node.

The init() method has been moved to another file to he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2976	3064	
==>urp($source_file);
my $match  = Pugs::Compiler::Grammar->grammar($source);
print "$match" <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	739	862	
==>from_whatever
       p6_meta
       p6_meta_CODE
       p6_initialize_package
       p6_wrap_code_with_package
       p6_eva <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20748	20845	
==>e ($module=$+_) is builtin is unsafe {
    #Pugs::Internals::use($module);
    Pugs::Internals::re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4596	4698	
==>ipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphertext <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4596	4698	
==>ipher($data);

Enciphers or deciphers the given data.  May return data which is part of the 
ciphertext <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3740	3837	
==>and anything we
write shouldn't need to have documentation/comments. If you need something
with mo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3740	3837	
==>and anything we
write shouldn't need to have documentation/comments. If you need something
with mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10670	10787	
==>arser bug - this should be a statement
    if ( exists $n->{op1}{stmt} && (
           $n->{op1}{stmt} eq 'if'     | <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	303	397	
==>nal first attempts, head.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early vers <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7594	7682	
==>::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1419	1507	
==>::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->sub_call_term(@_) } <==
2	/Users/nnunley/pugs/util/config_h.pl	1931	2038	
==>ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs");
    unlink("$temp.hi");
    unlink("$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18383	18487	
==>luded in an embedded
class, set the I<anyof> object's C<strict> attribute to 1; the character
class would <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	125	223	
==>lass Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	125	223	
==>lass Set::Infinite-0.01
    does Set::Symbols
{
    has Set::Infinite::Functional $.set;

=for TODO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13918	14046	
==>rn { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14197	14325	
==>rn { _push =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18590	18687	
==>ate each member in a set of key-codes,
which are hard-coded into your application or package, with <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18590	18687	
==>ate each member in a set of key-codes,
which are hard-coded into your application or package, with <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11796	11915	
==>ther digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11796	11915	
==>ther digest
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3189	3306	
==>ting (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3653	3770	
==>ting (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nTo:\n" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2319	2431	
==>st in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} & <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2319	2431	
==>st in the $volume
    my $vol = $volume;
    $vol ~= $0 if ($vol ~~ rx:perl5{^([\\/])[\\/][^\\/]+[\\/][^\\/]+$} & <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1101	1291	
==>ew(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1101	1291	
==>ew(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    me <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16853	16952	
==>pans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, a R <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16853	16952	
==>pans don't intersect. 
Otherwise, it contains a single span.

The argument can be a Span object, a R <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12447	12548	
==>new env (the parameter is associated with a new type variable)
# this new env is passed down to the bo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20468	20563	
==>instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20468	20563	
==>instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged in.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7638	7744	
==>dy was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7638	7744	
==>dy was killed. Update %channels and %users accordingly.
  %handler<KILL> = [-> $event {
    my ($killee, $r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2566	2677	
==>recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2566	2677	
==>recurrence

    my $span1 = $set1.span;
    my $span2 = $set2.span;

    my @set1_span = $span1.difference( $spa <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	386	517	
==>onfig{archname},
        exe_ext   => $Config{exe_ext},
        path_sep  => $Config{path_sep},

        scriptdir => $Config{script <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2162	2258	
==>nguage model (M2)

=head1 SYNOPSIS

 my $role_mc = Meta::Class.new("Role");
 my $class_mc = Meta: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4712	4812	
==>t @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper::Dump <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6264	6351	
==>f->mangle_sym_name($node->struct_equiv->val->struct_equiv);
}

sub mangle_sym_name {
	my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12753	12854	
==>.

The return value is the values of the fields removed.  In scalar
context the number of fields remov <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12753	12854	
==>.

The return value is the values of the fields removed.  In scalar
context the number of fields remov <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6373	6463	
==>ize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<objec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6373	6463	
==>ize($event<from_nick>) eq normalize($curnick)) {
      $chans.remove(normalize $event<objec <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3837	3938	
==>_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3837	3938	
==>_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	42	295	
==>es used by packages in this file, that don't export symbols:
use Relation-(0.1.0);

###########################################################################
###########################################################################

# Constant values <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12289	12463	
==>rest);
#      $body->push_content($rest);
      my $test_class = {
                      0 => 'test_fail',
                      1 => 'test_pass',
                      2 => ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12495	12598	
==>pans.

- Discrete span

This is used to represent ranges of things that can be counted, such as beats pe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12495	12598	
==>pans.

- Discrete span

This is used to represent ranges of things that can be counted, such as beats pe <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	427	581	
==>en($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            } <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	427	581	
==>en($file) };
            if ( ref $input ne 'IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            } <==
2	/Users/nnunley/pugs/util/testgraph.pl	1603	1725	
==>self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t$/.html/;
        File::Spec->catdir("t_index",$ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4746	4836	
==>nt(Max).
p5_range_bounds_RHS(_Min,Max) --> ",", digits_int(Max), !.
p5_range_bounds_RHS(_Mi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2554	2673	
==>e ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2554	2673	
==>e ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.end <=> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5203	5323	
==>tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5203	5323	
==>tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	376	512	
==>unless $mod =~ /\.pm$/i;

    my $pkg = $mod;
    $pkg =~ s{/}{::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pk <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	501	622	
==>unless $mod =~ /\.pm$/i;

	my $pkg = $mod;
	$pkg =~ s{/}{::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pk <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3712	3842	
==>ar::Term.ident>
                { return { scalar => '$.' . $_[0]->() ,} }
            ) ),
        '@' => Pugs::Compiler::Regex->c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	197	304	
==>es should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if poss <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	197	304	
==>es should return a Set::Infinite / Span
    * cleanup extra "is copy"
    * remove "arbitrary_limit" if poss <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1851	1975	
==>ile) ) {
	++$col;
	
	if ( $chr =~ /([\'\"])/ ) {
	    my $end = $1;
	    print '\synstr{';
	    while (scalar @file) {
		++$c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10570	10684	
==>e is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.nex <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10570	10684	
==>e is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.nex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	731	838	
==>cv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	731	838	
==>cv(Str $msg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

class Net::IRC {
  has Bool  $.conn <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10825	10945	
==>ements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10825	10945	
==>ements from the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	661	776	
==>html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a fun <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	661	776	
==>html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a fun <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32318	32440	
==>re->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'bl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32973	33095	
==>re->new(
                params  => method::params->new(symbol->new('$self:'  => 'opaque')),
                returns => 'bl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1751	1869	
==>cted,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1751	1869	
==>cted,]
           ~ q[ but the value for its '<KEY>' key is undefined.],
    'LKT_ARG_HASH_VAL_NO_ARY'
        => q[<CL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5444	5607	
==>n all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5444	5607	
==>n all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_lifetime > ./current_age }
    method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3176	3327	
==>ool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3051	3197	
==>ool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	202	300	
==>nt rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	202	300	
==>nt rot13("Insert secret here");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Ci <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5817	5921	
==>table file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5817	5921	
==>table file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very primative port o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4545	4659	
==>n;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $di <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4545	4659	
==>n;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span2 );

    my $di <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10076	10202	
==>{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10076	10202	
==>{
    # XXX temp does not yet appear to be working
    #temp %char_to_entity;
    my %temp        = %char_to_entity;
    %char_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15683	15783	
==>prefers to
communicate in those languages.  Or, when viewing an error message, the
application's deve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15683	15783	
==>prefers to
communicate in those languages.  Or, when viewing an error message, the
application's deve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7592	7743	
==>" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7592	7743	
==>" .
            "$_[1] }\n";
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return "$_[1] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	86	196	
==>DTs;
use Blondie::Nodes;


sub new {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1569	1692	
==>last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1569	1692	
==>last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signa <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5895	6003	
==>n Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9372	9480	
==>n Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ $replacements.( $_ ) }) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6595	6692	
==>directory indices
for (@dirs) {
    build_indexes($_, $index->{_dirs}->{$_});
}


# Generating err <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8889	9031	
==>ub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all od <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8889	9031	
==>ub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all od <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2377	2474	
==>ckend::Perl>, which happens to be
an interpreter.

=over 4

=item Thunk

Something you thunk of bu <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1136	1223	
==>rgs";
$ENV{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $o <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1554	1668	
==>es read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2216	2330	
==>es read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $file;
    if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	740	868	
==>ulti method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	740	868	
==>ulti method param ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2194	2299	
==>1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2194	2299	
==>1.new( recurrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recu <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2211	2307	
==>ifferent types of nodes in a Perldoc DOM tree have different properties,
you should see the subcl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2211	2307	
==>ifferent types of nodes in a Perldoc DOM tree have different properties,
you should see the subcl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5075	5188	
==>my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5075	5188	
==>my $match = $grammar->parse( '3*@a{$b}[$c]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3743	3844	
==>$_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3743	3844	
==>$_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12602	12774	
==>$uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12602	12774	
==>$uri.epath; # URI::URL method
        } else {
            $path = $uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7696	7794	
==>, :$next_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7435	7530	
==>, :$next_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1204	1319	
==>${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1204	1319	
==>${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7416	7528	
==>") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7416	7528	
==>") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3526	3635	
==>NOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3526	3635	
==>NOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2916	3025	
==>y report:

  t/base..............ok
  t/nonumbers.........ok
  t/ok................ok
  t/test-harness......ok <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	523	620	
==>self->dir or return;

    return $dir->subdir( $self->config->_meta_dir);
}

=head2 $dir = $inst-> <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1655	1794	
==>ile_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1655	1794	
==>ile_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $linktext );
        }
        $Bin     = rel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	230	378	
==>rn { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	230	378	
==>rn { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that ar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9950	10127	
==>ert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9950	10127	
==>ert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ();
        
        $?SELF;
    }
    
    multi method clear (*@_) {
        if (@_ == <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2982	3077	
==>BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2982	3077	
==>BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15658	15867	
==>optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15937	16146	
==>optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleop::optional(
             ruleop::capture( 'term1', \&{'grammar1::term <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	611	758	
==>ture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	587	727	
==>ture} ? ( capture => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        mat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	567	657	
==>ersion);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	567	657	
==>ersion);
	my $self = $class->meta->new_object(pkg_meta => $meta);
	$meta->add_method('gramm <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1251	1357	
==>y 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hide the letter <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1251	1357	
==>y 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to hide the letter <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	597	755	
==>TORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	597	755	
==>TORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method para <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15285	15389	
==>ou prefer not to import these routines into your namespace, you can
call them as:

  use HTML::Entities ( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15285	15389	
==>ou prefer not to import these routines into your namespace, you can
call them as:

  use HTML::Entities ( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4190	4318	
==>p = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, makin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4190	4318	
==>p = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, makin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10080	10199	
==>- A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print h <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10080	10199	
==>- A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20424	20524	
==>d to the ender() method of the node.

The init() method has been moved to another file to help keep I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4428	4538	
==>3
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], } }
    | exp '.' BAREWORD '( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23084	23208	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42687	42811	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'opaque <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5690	5797	
==>n;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5690	5797	
==>n;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	72	187	
==>a::Method;

use Meta::Util;

Has($?CLASS, "name", "Str");
Has($?CLASS, "abstract", "Bool");

# traits, really
Has($? <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8953	9060	
==>] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepHash::unparse {
    my $n = $_[0]->name;
    my @kv;
    for <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17665	17784	
==>rary for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "ble <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17665	17784	
==>rary for Pugs

=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "ble <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6379	6488	
==>_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().ad <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6379	6488	
==>_root()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().ad <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29470	29570	
==>ment the format.

Fix HARNESS_COMPILE_TEST without breaking its core usage.

Figure a way to report t <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2327	2428	
==>lisecond returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $.y <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2089	2213	
==>__HELP__

    exit ($usage_err ? 1 : 0);
}

# Input parameters
my $syn_src_dir; # The root directory for perl6 Design POD 
my <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10253	10369	
==>d next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10253	10369	
==>d next ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	683	777	
==>';
use constant RPe_SEQINC => --$ENUM, 'Sequence (? incomplete';
use constant RPe_BADFLG => --$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8385	8494	
==>u planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8443	8552	
==>u planned $Test::num_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17203	17304	
==>1 length of the array.
Other than that, we can do anything we want with it.
This is perhaps the most f <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22303	22404	
==>1 length of the array.
Other than that, we can do anything we want with it.
This is perhaps the most f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2792	2887	
==>or example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2792	2887	
==>or example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query stri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23807	23914	
==>ntation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23807	23914	
==>ntation of a Rosetta Engine.

The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1067	1231	
==>value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1067	1231	
==>value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8454	8606	
==>X_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $neg, $how);
  });

  # lower POSIX class
  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14250	14354	
==>X_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $neg, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9897	9994	
==>ity functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9955	10052	
==>ity functions, and is
an implementation of the TAP protocol.

This module, like Pugs, is a work in <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	568	672	
==>pfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $descrip <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	568	672	
==>pfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_description ( Str $descrip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12682	12811	
==>ush @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12961	13090	
==>ush @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6180	6298	
==>=> sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6180	6298	
==>=> sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5047	5153	
==>ub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, wh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5269	5375	
==>ub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, wh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50619	50740	
==>re->new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12327	12430	
==>Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresponding argument is unde <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12327	12430	
==>Root
Nodes attribute (that attribute defaults to empty if the parameter's
corresponding argument is unde <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12128	12224	
==>have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12128	12224	
==>have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1  <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11901	12029	
==>t:
    pos += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, pos, $I0
    mob <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1152	1261	
==>} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1152	1261	
==>} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ---------

*bare_statement = $rule->compi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43790	43905	
==>:Object->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        meth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11978	12085	
==><variable>'
    ) );
    return "$_[1] alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12320	12545	
==>son_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12320	12545	
==>son_id' } ],
                            ] ],
                        ] ],
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2615	2775	
==>th=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2615	2775	
==>th=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does no <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1037	1272	
==>> {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

C <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1037	1272	
==>> {
                          my @r = gather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21266	21374	
==>on API for access to those databases, each of which takes a different
SQL or pseudo-SQL dialect.  An applicat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21266	21374	
==>on API for access to those databases, each of which takes a different
SQL or pseudo-SQL dialect.  An applicat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7621	7712	
==>s{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7621	7712	
==>s{normalize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4551	4646	
==>ntire match string, but may be arbitrary
objects returned from the rule using a C<return> clause <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4551	4646	
==>ntire match string, but may be arbitrary
objects returned from the rule using a C<return> clause <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9598	9730	
==>rn if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9598	9730	
==>rn if $.height == ($max_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2836	3004	
==>ip' => sub { 
            my ($self, $num, $reason) = @_;
            $num ||= 1;
            $reason ||= 'skipped';
            for (1 .. $num) {
                $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	54	145	
==>require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(dump_tree); 

use Pugs::Utils::Inter <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11891	11988	
==>the same field are retained.

As for the header() method, the field name ($field) is not case
sens <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11891	11988	
==>the same field are retained.

As for the header() method, the field name ($field) is not case
sens <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3396	3607	
==>ier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3643	3854	
==>ier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	785	897	
==>_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	785	897	
==>_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3926	4071	
==>$age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3926	4071	
==>$age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc = ./header('Ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	440	535	
==>ler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	440	535	
==>ler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provides an implementati <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12770	12866	
==>$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (supe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12770	12866	
==>$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (supe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5470	5565	
==>malize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5470	5565	
==>malize($event<from_nick>) eq normalize($curnick)) {
        $!chans.insert(normalize $event<obje <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3935	4093	
==>D"};
        };
    }
}

sub new {
    my ($class, %args) = @_;

    # ignore the prefix on extension modules built from top level.
    my $base_path = Cwd::ab <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	465	561	
==>Syck YAML/], qw/LoadFile DumpFile/ ];
use Test::Harness;
use Test::TAP::Model;
use File::Spec;
us <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9875	9989	
==>ing); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_ent <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9875	9989	
==>ing); };
}

multi sub decode_entities(@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_ent <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	15	124	
==><»( $a, $b );      # $a.infix:«<»( $b );
infix:«<=>»( $a, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5840	5938	
==>d => $rule_name - the name of the rule that will parse operands.

=head2 add_op ()

Instance method <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2777	2889	
==>sMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.mon <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2777	2889	
==>sMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.mon <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	320	431	
==>ed = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	320	431	
==>ed = {};

# A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so su <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	18	123	
==>n::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	18	123	
==>n::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	606	696	
==>}

## ----------------------------------------------------------------------------
## priva <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	606	696	
==>}

## ----------------------------------------------------------------------------
## priva <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	94	196	
==>od

C<Result> is the match state that is passed around.  It essentially
forms a linked list through the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	94	196	
==>od

C<Result> is the match state that is passed around.  It essentially
forms a linked list through the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	28	145	
==>n;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	28	145	
==>n;

use strict;
use warnings;
use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	65	171	
==>ime = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	65	171	
==>ime = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18928	19022	
==>, the object's C<data> field points to the underlying
object type (I<prop>, I<alnum>, etc.).  I <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2022	2127	
==>t {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2080	2185	
==>t {
    my $test := not($got ~~ $expected);
    Test::proclaim($test, $desc, $todo, $got, $expected, $depe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23666	23774	
==>hereas, Locale::KeyedText has
named variables, which can be used in any order, or not used at all, or
used mu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23666	23774	
==>hereas, Locale::KeyedText has
named variables, which can be used in any order, or not used at all, or
used mu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17189	17284	
==>her package or application says that it uses
Locale::KeyedText, that is a terse way of saying th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17189	17284	
==>her package or application says that it uses
Locale::KeyedText, that is a terse way of saying th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	356	530	
==>fix'
          #~ },
          #~ 'value' => {
            #~ 'single_quoted' => 'xx'
          #~ }
        #~ }    
    #if ( $_[0]{pair} ) {
        my $category = $_[0]{pa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1898	2049	
==>ift;
    
    my $str = '';
    return $str unless $deps;

    if( ! ref $deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2467	2568	
==>Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $ex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2525	2626	
==>Test::ok.goto($result, $desc, :$todo, :$depends);
    }
}

## eval_is

sub eval_is (Str $code, Str $ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20529	20627	
==>variety of third party Engine
modules that become available over time.  One plan which I favor is t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20529	20627	
==>variety of third party Engine
modules that become available over time.  One plan which I favor is t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	731	1060	
==>batim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	731	1060	
==>batim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	294	455	
==>k(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	603	764	
==>k(
        Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3384	3700	
==>($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3384	3700	
==>($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1942	2050	
==>od excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutatio <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1942	2050	
==>od excessively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16437	16559	
==>.*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12858	12980	
==>.*? \1 ] }xgc) {
      $S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13657	13752	
==>us span

This type os span is used to represent continuous measurements, such as times, temperat <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13657	13752	
==>us span

This type os span is used to represent continuous measurements, such as times, temperat <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2545	2651	
==>other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2545	2651	
==>other) returns Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    ret <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17154	17259	
==>mitive is safe {
        Num::round_gen($n, &Num::do_floor)
    }
}

sub sprintf ($fmt, *@args) is primiti <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3360	3460	
==>mklivecd.pl automatically fetches a GRUB tarball.
  --grub-local=$grub_local
    Locally, the GRUB ta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19858	19956	
==>wever it likes; all Rosetta cares about is that the user
interface and behaviour conform to its pre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19858	19956	
==>wever it likes; all Rosetta cares about is that the user
interface and behaviour conform to its pre <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4311	4419	
==>multi Num::round_floor ( Num $x ) {
    my $x_round = floor($x);

    return $x_round;
}

our Int multi Num:: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27117	27213	
==>is(t(ide("snd")), "∀α. ∀β. (α × β) → β", ":t snd");
is(t($id_pair), "(int × str)", " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5752	5860	
==>eturn "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5740	5848	
==>eturn "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10548	10656	
==>'switches' must be an ARRAYREF " . _where()
	    unless ref $args{switches} eq "ARRAY";
	_quote_args(\$runper <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5683	5778	
==>start(R), ")".
p5_elemental(lookbehind(R))       --> "(?<=", !, p5_start(Rx), {re_reverse(Rx,R)} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1230	1353	
==>$.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method loa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1230	1353	
==>$.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method loa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	961	1070	
==>ent->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	961	1070	
==>ent->new ({ name => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	604	717	
==>. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket wi <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	604	717	
==>. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth';
      # because the bucket wi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5822	5928	
==>:Infix::hash,
        %Pugs::Grammar::Prefix::hash,
        %Pugs::Grammar::Postfix::hash,
        %Pugs::G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	436	541	
==>rammar =  shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_[0] =~ / ^(\$(?:(?:\:\:)?[_[:alnum: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	82	174	
==>e HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_wor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	82	174	
==>e HTTP::Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_wor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3076	3181	
==>nt;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3076	3181	
==>nt;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the P5 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3521	3652	
==>( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3521	3652	
==>( $ref eq 'HASH' ) {
        return postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15550	15667	
==>hod _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19027	19144	
==>hod _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	839	956	
==>Document {

    # External packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Ye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	839	956	
==>Document {

    # External packages used by the Rosetta::Model::Document class, that do export symbols:
    # (None Ye <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	643	740	
==>ation Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	643	740	
==>ation Expect From Host
 If-Match If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	244	421	
==>ter_sub {
    #~ $_[0] == 
        #~ 'pair' => {
          #~ 'key' => {
            #~ 'single_quoted' => 'prefix'
          #~ },
          #~ 'value' => {
            #~ 'sin <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	959	1082	
==>pt::Argument::Style {
        has $value;

        method ^string_to_arguments ( $string ) {
            return $?CLASS.new( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7240	7350	
==>= rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $bas <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7240	7350	
==>= rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($path, 1))[1];
    my $bas <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10823	10914	
==>ntent_length returns Str>

=back

B<The following informational functions are fetched on-dem <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10823	10914	
==>ntent_length returns Str>

=back

B<The following informational functions are fetched on-dem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17952	18048	
==>=item $h.from

This header should contain an Internet e-mail address for the human
user who contr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17952	18048	
==>=item $h.from

This header should contain an Internet e-mail address for the human
user who contr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1198	1320	
==>dirs {
    my $self    = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        pu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	539	658	
==>dirs {
    my $self = shift;
    my $subdirs = $self->makemaker_args->{DIR} ||= [];
    for my $subdir (@_) {
        pu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3712	3886	
==>ift)->superclass;
        },                       
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self);
            my $c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2085	2196	
==>te(printable($node)),
	}
}

sub can_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node = shift;

	my $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7400	7539	
==>{
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt';
    if($ref !~ /^([A-Z]+)$/) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8894	9007	
==>::Grammar in p5 code

I'd _expect_ the match object returned to carry the same magic.



overload in p5 is just st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8600	8710	
==>::Grammar in p5 code
I'd _expect_ the match object returned to carry the same magic.

overload in p5 is just st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16381	16573	
==>)->name => $e->get('$_')->instantiate_container
                                  );
                          })
                      );
                    $e->set('$c' => $e->get('WALKCLASS <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3965	4104	
==>lready exists in this repository");
        return;
    }

    my $inst = JIB::Package->new( 
                    meta        => $pkg->meta, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	954	1091	
==>f_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	954	1091	
==>f_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text.substr($pos.p <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5192	5295	
==>e
of success or failure

=item data

The C<data> method returns a hash reference representing the config <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5192	5295	
==>e
of success or failure

=item data

The C<data> method returns a hash reference representing the config <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3708	3826	
==>resis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3708	3826	
==>resis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22633	22753	
==>andle
this.

A program generates a Message that contains all possibly useful details, so
that each Template can optionall <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22633	22753	
==>andle
this.

A program generates a Message that contains all possibly useful details, so
that each Template can optionall <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4286	4388	
==>ull;
    my $Result4 = $Result2.<[[Get]]>(GetPropertyName($V));
    return $Result4;
}
# 8.7.2
method P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14033	14153	
==>OIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14033	14153	
==>OIN $channel");
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7811	7911	
==>t(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1636	1736	
==>t(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, sub { Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8991	9121	
==>eturn unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::conc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8677	8804	
==>eturn unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::conc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14646	14760	
==>son?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14646	14760	
==>son?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method mode(Str $target, Str $mode?) {
    if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7436	7555	
==>n cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7436	7555	
==>n cipher 
the block and return the new ciphertext (or plaintext).  A call to C<_tail> 
indicates that there is no more i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1040	1186	
==>{
        $self->{perl5} = Pugs::Emitter::Perl6::Perl5::emit( 
            $self->{grammar}, $self->{ast}(), $self );
    };
    carp "Error in <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17445	17545	
==>e iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuou <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17445	17545	
==>e iterator has `next()`, `previous()`, `current()`, and `reset()` methods.

If the span is "continuou <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7527	7689	
==>$x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7527	7689	
==>$x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1370	1487	
==>not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1370	1487	
==>not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15624	15754	
==>l be on separate lines on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $sel <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15646	15759	
==>ted to an LChar).

Attempting to use a string at a level lower than what it supports is not
allowed.

If a functio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	445	546	
==>r::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	445	546	
==>r::L::en-0.160.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10183	10302	
==>PACKAGE__';
    $method_name = $name || 'emit';
}
sub gen {
    my($name,$vars,$body)=@_;

    my $info = $PIL::PIL1CPer <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	2	87	
==>equire Perl6::Run::OnPerl5::X1::PilUtil;
require Perl6::Run::OnPerl5::X1::Api;
require <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8130	8225	
==>test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_plann <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8188	8283	
==>test_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_plann <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4564	4663	
==>o code refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Ti <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4564	4663	
==>o code refs. The only function this module
exports is the constructor. 

=over 4

=item B<Config::Ti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8212	8368	
==>g', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8212	8368	
==>g', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	187	325	
==>"< $file" or die "can not open '$file' for reading";
    local $/;
    my $ret = <FH>;
    close FH;
    return $ret;
}

#sub syn {
#    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6572	6672	
==>>compile(<<'RULE')->code();

    $<term1> := (<term1>|<term2>) <p6ws>? 
    $<op>    := (<@Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	214	337	
==>($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	214	337	
==>($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = s <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	934	1034	
==>$title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	934	1034	
==>$title = Perldoc::DOM::Element->new ({ name => "title" });
 $node->add_daughter($title);

 # text nod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7816	7935	
==>urnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7816	7935	
==>urnick)) {
      $chans.clear;
      debug "Was killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %user <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35870	35972	
==>o a new Relation, such that all common attribute names
and corresponding common tuple values are aligne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40420	40522	
==>o a new Relation, such that all common attribute names
and corresponding common tuple values are aligne <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5669	5900	
==>Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5669	5900	
==>Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $x if &$code($x);
                        return;
                },
                cend => coro { <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3795	3969	
==>+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3795	3969	
==>+--3.index--+
#######################################################################

sub decode (*@string is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14917	15028	
==>vmlinuz"],
) {
  my ($src, $dest) = @$_;

  step
    descr  => "Copying \"$src\" to \"$dest\"",
    ensure => su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1824	1926	
==>rammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1964	2066	
==>rammar}, $self->{ast}{capture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2769	2928	
==>ser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()() <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2769	2928	
==>ser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &continue($match);
        }
        else {
            $match.backtrack()() <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8646	8749	
==>or C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8646	8749	
==>or C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set.

=head2 C< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5623	5738	
==>tribute new (%:methods))         (hash)))    

=cut

# create the basic Class
$::Class = opaque->new(
        refere <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5708	5817	
==>um => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	868	1005	
==>ultidimensional arrays of the match
                     object, telling captures where in the deep structure
                     to stor <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	868	1005	
==>ultidimensional arrays of the match
                     object, telling captures where in the deep structure
                     to stor <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10902	11005	
==>etched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<reques <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10902	11005	
==>etched on-demand>

=over 4

=item B<path_info returns Str>

=item B<referer returns Str>

=item B<reques <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	134	243	
==>Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	134	243	
==>Set $one, Set $two) {
    $one.intersection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	525	624	
==>et", { companion => "superclasses" });

# every Meta::Class is a part of an object model object call <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2484	2582	
==>uct is used
both to return a compiled regexp, and to provide match results.  This
module is an expe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2365	2483	
==>n", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2365	2483	
==>n", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	66	156	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	66	156	
==>his file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10385	10487	
==>r of items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is co <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10385	10487	
==>r of items
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	357	477	
==>umber est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): abouti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1885	2005	
==>umber est ne nombre,]
           ~ q[ il est "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): abouti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6272	6394	
==>atch ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6284	6406	
==>atch ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19286	19383	
==>401 Unauthorized> response.
The field value consist of a challenge that indicates the
authenticati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19286	19383	
==>401 Unauthorized> response.
The field value consist of a challenge that indicates the
authenticati <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21631	21729	
==>han",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.ki <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21631	21729	
==>han",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$bot.ki <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	583	684	
==>ply a source code generator.
   Which also addresses the problem that macros are currently
   quite sl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	583	684	
==>ply a source code generator.
   Which also addresses the problem that macros are currently
   quite sl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8312	8414	
==>upposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8312	8414	
==>upposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" returns 'Type' if the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20218	20315	
==>on_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20218	20315	
==>on_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6201	6305	
==>gify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6201	6305	
==>gify () returns String {
    return $.span.stringify;
}

method size () returns Object {
    return undef <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2204	2314	
==>mpty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Obje <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2204	2314	
==>mpty }
method is_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Obje <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11537	11636	
==>til objects are done for this, but maybe I will
figure out a good way to do this without. Either way <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11537	11636	
==>til objects are done for this, but maybe I will
figure out a good way to do this without. Either way <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23939	24077	
==>/* This is another iteration of //g. */
  #define REXEC_ML        0x20            /* $* was set. */



 regcomp.h:
 * The "internal use onl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11831	11926	
==>d character's name, and returns the actual character:

  my $R = $parser->nchar("LATIN CAPITAL L <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2767	2865	
==>ce>

=item B<source($new_source)>

Returns the representation of this node in the original text, or <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2767	2865	
==>ce>

=item B<source($new_source)>

Returns the representation of this node in the original text, or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	131	284	
==>lue is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @cur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	131	284	
==>lue is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @cur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6725	6829	
==>( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6737	6841	
==>( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	316	428	
==>GS_EXECUTABLE} if !defined $pugs;
    $pugs = "pugs" if !defined $pugs;

    my $frob = sub{ my $n=$_[0];($n =~ / <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5803	5938	
==>filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5803	5938	
==>filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filter::Util::Call: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	4	117	
==>age interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	4	117	
==>age interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_print  = 0; #no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	941	1038	
==>h object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	941	1038	
==>h object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pug <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12571	12674	
==>be counted, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12571	12674	
==>be counted, such as beats per minute, 
wags per second, or holidays per month.

It is also used when the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6261	6372	
==>.";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6261	6372	
==>.";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normali <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19087	19178	
==>he removal does I<not> happen automatically if using the header(),
push_header() or init_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19087	19178	
==>he removal does I<not> happen automatically if using the header(),
push_header() or init_hea <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2563	2886	
==>apply_and_accum'),
                            Sym('&f'),
                            App(
                                Sym('&f'),
                                Sym('$accum'),
                                Sym('$x'),
                            ),
                            Sym('$x'),
                            Ap <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2470	2586	
==>ibs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib},
        SITELIBEXP      => $libs->{sitelib},
        PE <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12772	12868	
==>et1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (supers <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12772	12868	
==>et1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (supers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9257	9366	
==>always anchored at ^

### because it was specialized for subrules

### - needs to be generalized, and the anch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8953	9060	
==>always anchored at ^
### because it was specialized for subrules
### - needs to be generalized, and the anch <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12515	12642	
==>{ self.shift() }
    
    method shift   () { ... }
    method next    () { ... }
    method current () { ... }
}

# Support for <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5532	5714	
==>t of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9009	9191	
==>t of Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7416	7508	
==>>condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1241	1333	
==>>condition_rule(@_) };
push @statements, sub { Grammar::Perl6->meth_call_statement(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2225	2331	
==>ement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2225	2331	
==>ement->add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => ' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19540	19664	
==>(M), %# XXX - excess caution
  M = [Str|_], %# XXX - need api
  re_parse(Str,Re), %# XXX - eeeeeeeep.  and need to quote.
  r <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	7	106	
==>is a replacement for the old BEGIN preamble which heads (or
# should head) up every core test progr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6758	6861	
==>> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=ba <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6758	6861	
==>> which the HTML will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Event::Parser>

=ba <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32608	32699	
==>onvert Message objects on demand into user-readable
message strings, using data from externa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32608	32699	
==>onvert Message objects on demand into user-readable
message strings, using data from externa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	339	434	
==>ce honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

require_compression_modules();

use constant {
  VERSI <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12272	12371	
==>eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in p <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12272	12371	
==>eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4765	4919	
==>ldren[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    } <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4765	4919	
==>ldren[$index];
        @!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    } <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12580	12674	
==><$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12580	12674	
==><$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=head2 C<$s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10374	10481	
==>thod clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10374	10481	
==>thod clear_temporary_cookies () {
        ./scan(sub (*@_) { if (@_[9]) || (!@_[8].defined) { @_[8] = -1; ./ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2655	2823	
==>\$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2902	3070	
==>\$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule q <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11564	11680	
==>od amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

This would also be a goo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11564	11680	
==>od amount of Tree::Simple's test will not be relevant though.

=item Create a Visitor class

This would also be a goo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6091	6206	
==>d_handler('\x' => sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = subs <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4906	5075	
==>) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we ca <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4906	5075	
==>) || die "Unbalanced close modifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we ca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30316	30468	
==>dant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_descendant_dispatcher');
                }    
                elsif ($orde <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5341	5439	
==>n("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1148	1259	
==>2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1148	1259	
==>2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5860	5955	
==>, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_star <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5918	6013	
==>, $todo?, Str $got?, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_star <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4980	5258	
==>)
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4980	5258	
==>)
                }
                when rx:perl5/[BI]/ {
                    $fh.print("<" ~ $mod ~ ">");             
                }
            }
        },
        end_modifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6296	6407	
==>tent ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6296	6407	
==>tent ($self: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33199	33307	
==>on, C<\A>), mbol (C<^> with
C</m> on)

=head2 bound

Family: anchor

Types: bound (C<\b>), nbound (C<\B>)

Ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5816	5949	
==>ule->directory->in( $from ) ) {
            ### strip the leading dirs from the target so we don't get a silly
            ### deep di <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15265	15388	
==>ve is builtin is safe {
    my $res;
    my $sec = int $when;
    my $pico = ($when - int $when) * 10**12;
    # XXX: waitin <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12516	12619	
==>e same distance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12516	12619	
==>e same distance, returns the previous one.

- `is_empty()`

Returns true if the recurrence is an empty s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21486	21582	
==>sages, but another package or program which uses yours may wish to
override some of your messages <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21486	21582	
==>sages, but another package or program which uses yours may wish to
override some of your messages <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11255	11347	
==>eld, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11255	11347	
==>eld, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22506	22654	
==>hod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42295	42442	
==>hod::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1640	1766	
==>er"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1640	1766	
==>er"
    my @tmp;
    my @res;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20732	20832	
==>ly the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20732	20832	
==>ly the messages in these files are looked up by the
program using keys.  Mac OS X (and the previous n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11654	11786	
==>eue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Rea <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11654	11786	
==>eue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Rea <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1135	1350	
==>]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_st <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1135	1350	
==>]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_st <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4158	4254	
==>d. Please create a file named $SMOKERFILE
either in this directory or under your home. You can us <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1603	1789	
==>' . $Prerm;
    if( -e $prerm && -s _ ) {
        system( qq[ $^X $prerm ] )                              and die $?;
    }
    
    while( <$fh> ) {
        chomp;
        -e $_ && syste <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2372	2529	
==>other => '*',
        fixity => 'infix',
    } );
    $cat->add_op( {
        name => '*',
        block => sub {},
        assoc => 'left',
        precedenc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2480	2600	
==>es {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4068	4188	
==>es {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6603	6699	
==>lers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the H <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6603	6699	
==>lers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the H <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1387	1534	
==>perl
EOT

close $F;

# build the executable
chdir($testdir);
END {
    #chdir($cwd) && rmtree("$cwd/$testdir") if -d "$cwd/$testdir";
}
if <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1432	1588	
==>s =>
        { %attrs.pairs.map:{ ( .key => 
            (.value.does(Pair)
                ?? ( .value.key =>
                    (.value.value.does(Relatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14617	14714	
==>d "Good Practice" of ordering the header fields.  Long header
values are not folded.

The optional <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14617	14714	
==>d "Good Practice" of ordering the header fields.  Long header
values are not folded.

The optional <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16169	16277	
==>ot a predefined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2578	2686	
==>ot a predefined global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self-> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25005	25098	
==>ss by default.

C<$verbose>, C<$switches> and C<$debug> are exported upon request.

=head1 DIA <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8955	9080	
==>t};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8943	9068	
==>t};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    # TODO - repeated captures create a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9360	9478	
==>charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9360	9478	
==>charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5722	5818	
==>elf = shift;
	$self->{instance} = shift;
	bless $self, "type::variable::instantiated";
}

sub spl <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19397	19482	
==>,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % match_captures(Ex,C1,E1).
rm(matchref(I),F <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11360	11452	
==>signaling the first arguement should be before/tied with/after the
second in the final orderi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1748	1849	
==>arget, "%d", x);
	return target;
}
C
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19181	19273	
==>ugs::Internals::eval($code,$lang);
}


 multi Control::Basic::evalfile (Str $filename ; Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2277	2381	
==>and class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Comman <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2277	2381	
==>and class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Comman <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	5	105	
==>e Getopt::Proccesor {
    class Getopt::Processor {
        has $argument_class = ::Getopt::Argument: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11353	11448	
==>0x1B]}, !.


% XXX - connect to above
p5_comment_opt --> p5_comment(_), !.
p5_comment_opt --> {t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4370	4521	
==>f->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigsp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4510	4661	
==>f->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigsp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4077	4222	
==>>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4089	4234	
==>>
    $<a> := (.*?)  
        $<a> is a named capture in the match
    let $a := (.*?)
        $a is a hypothetical variable
                (\d+) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15178	15324	
==>, $class;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self->{off};
  }

  sub raw {
    my $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2184	2294	
==>e of the resulting matches.
#   * Perhaps define a macro gram ($name) { "rule $name :words" },
#     rather tha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19053	19170	
==>{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20411	20528	
==>{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree->[-1 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21272	21397	
==>ub find() {
    my $file = join(%?CONFIG<file_sep>,split("::",$module)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	68	179	
==>le::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	68	179	
==>le::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1263	1404	
==>'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or uml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1263	1404	
==>'Î',  # capital I, circumflex accent
    "Igrave"   => 'Ì',  # capital I, grave accent
    "Iuml"     => 'Ï',  # capital I, dieresis or uml <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6417	6545	
==>)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6417	6545	
==>)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and % <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20318	20418	
==>at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24870	24970	
==>at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entirely ob <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	1562	1681	
==>od diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, S <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	1562	1681	
==>od diag ( Str $diagnostic? = '' )
{
    $.output.diag( $diagnostic );
}

method todo returns Bit ( $self: Bit $passed, S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2559	2656	
==>y string portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2559	2656	
==>y string portion of a requested URI.
It provides the following methods:

=over 8

=item C<$q.parse <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13483	13603	
==>t;
    my $thunk = shift;

    # FIXME - ought to check if the runtime has a hash for this
    # in the future the compil <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3464	3563	
==>ts failed, 77.27% okay.

Everything passed but F<t/waterloo.t>.  It failed 10 of 20 tests and
exited <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	711	812	
==>pt or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	711	812	
==>pt or module.

=head1 CAVEATS

Currently, only the Perl 5 side can invoke subroutines defined from the <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1979	2107	
==>E;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $args{inlin <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1979	2107	
==>E;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $args{inlin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3957	4053	
==>lers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3957	4053	
==>lers for L<Pod::Event::Parser>. 

You can either pass in a string C<$buffer> which will get the P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11382	11598	
==>nto' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11382	11598	
==>nto' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22804	22901	
==>han",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22804	22901	
==>han",
topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE< <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2008	2117	
==>i
      or $path =~ s/([\/\\])(lib)(?=[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d\b/
      or die < <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4612	4709	
==>( $set.complement );
}

# --------- arithmetic and list operations ----------------

method grep ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4612	4709	
==>( $set.complement );
}

# --------- arithmetic and list operations ----------------

method grep ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11786	11906	
==>ad a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11786	11906	
==>ad a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23550	23656	
==>n $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19971	20077	
==>n $S->object(ifthen =>);
  });

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	554	654	
==>tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphered and de <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	554	654	
==>tm) cipher, in that keys should produce the same keystream and thus text 
should be enciphered and de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	932	1054	
==>::Base';\n\n" .
	    join("\n", map { "$_" } @{$<rule>} ) . "\n" }
))->code;

package main;
use IO::File;
use Pugs::Runtime <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5892	6001	
==>n { _simple_statement => $() ,} }
RULE
*{'sub_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1228	1344	
==>Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1228	1344	
==>Node
    # List of all Nodes that have no parent Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::No <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8833	8939	
==>uld be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ the match o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8540	8644	
==>uld be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ the match o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18744	18842	
==>sly
trying to avoid triggering core behavior which we are not prepared to
support (such as modifica <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3034	3132	
==>sly
trying to avoid triggering core behavior which we are not prepared to
support (such as modifica <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18095	18197	
==>ach other at a level visible in the Rosetta Native
Interface, if at all.  To account for situations whe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18095	18197	
==>ach other at a level visible in the Rosetta Native
Interface, if at all.  To account for situations whe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4590	4784	
==>'->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = q|
($::ENV create 
    ("*::WALKMETH"
        (c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1378	1538	
==>f->config;
    my %hash = @_;
    
    my $inst;
    my $tmpl = {
        installation => { 
            required => 1, store => \$inst,
            allow => sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31586	31689	
==>program which uses both libraries
could have yet another set for itself.  When the program is run, it wo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31586	31689	
==>program which uses both libraries
could have yet another set for itself.  When the program is run, it wo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	793	897	
==>.} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	793	897	
==>.} )`

Creates a recurrence set where only methods `end()`, `previous($x)` are enabled.

- `new( closure_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20591	20708	
==>er time.  One plan which I favor is that
the new (under development) enterprise-strength and Perl implemented
database <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20591	20708	
==>er time.  One plan which I favor is that
the new (under development) enterprise-strength and Perl implemented
database <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9450	9775	
==>ned any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.sta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9450	9775	
==>ned any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1681	1846	
==>e
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1681	1846	
==>e
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, t <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10501	10610	
==>gs"],
    ["$parrot_path/parrot" => "$initrd_mnt/bin/parrot"],
    [$bash                 => "$initrd_mnt/bin/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Binary.pm	71	173	
==>rn j::p::installed


}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6991	7099	
==>2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32(JSX: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1764	1881	
==>$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $head <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1764	1881	
==>$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $head <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	139	545	
==>se Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	139	545	
==>se Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

class Rosett <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15068	15217	
==>micScopes/;

sub compile {
    my $self = shift;

    $self->{cache} = {};
    $self->{runtime} = shift;
    my $env = $self->{env} = shift;
    $self <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1884	1985	
==>$name, $config) = @_;
    my $path = $Config{$name} || '';
    $path =~ s/([\/\\])[^\/\\]*(perl)[^\/\\ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	689	787	
==>lder->FETCH('::Test')->FETCH('::TODO')->new(
                '$.description' => $params{'$.descript <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21596	21693	
==>ueStatement :words {  # see 12.7
      <'continue'><no_LineTerminator_here><Identifier>? <';'>
}
r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17248	17349	
==>n do anything we want with it.
This is perhaps the most flexible place to allocate large data
which Pe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22348	22449	
==>n do anything we want with it.
This is perhaps the most flexible place to allocate large data
which Pe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13038	13138	
==>et.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, this is ' <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13038	13138	
==>et.

- `stringify()`

Return a string representation of the set.

For most recurrence sets, this is ' <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	988	1105	
==>tails.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of docu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	988	1105	
==>tails.

=head1 DOCUMENTATION

=head2 Pugs Apocrypha

The Pugs Apocrypha in the F<docs/> directory are a series of docu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15106	15311	
==>'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15385	15590	
==>'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
;
    push @statements, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9669	9769	
==>me misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9727	9827	
==>me misc comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs te <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4346	4454	
==>216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4346	4454	
==>216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2426	2575	
==>term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2437	2586	
==>term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant( '??' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20209	20305	
==>e recompiled by
some other containing parser. In this case the result of the compilation
is repla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20209	20305	
==>e recompiled by
some other containing parser. In this case the result of the compilation
is repla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8950	9047	
==>xes.  Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
your cod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8950	9047	
==>xes.  Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
your cod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12385	12481	
==>the parameter's
corresponding argument is undefined).  The new Document object's All Nodes
attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12385	12481	
==>the parameter's
corresponding argument is undefined).  The new Document object's All Nodes
attrib <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3394	3500	
==>ool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3394	3500	
==>ool {
    return Bool::False if $.span.is_empty;
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2160	2270	
==>nd line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say $x }'

Compile-only:

    $ perl -Ilib lib/v6.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1210	1317	
==>= MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1210	1317	
==>= MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $grammar->compile( $source, { signat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1675	1856	
==>x:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.pus <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1675	1856	
==>x:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.pus <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2803	2905	
==>ommon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2803	2905	
==>ommon_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2323	2440	
==>es.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2323	2440	
==>es.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8741	8851	
==>0 { # XXX disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at,$prev) =
        ('$_str_','$_pos <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20024	20123	
==>cks
to the compilers. It does so in a most specific to most general order.
So inner blocks get compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20024	20123	
==>cks
to the compilers. It does so in a most specific to most general order.
So inner blocks get compi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13971	14096	
==>ple and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13971	14096	
==>ple and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta::Interface: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12792	12887	
==>d2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12792	12887	
==>d2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i. <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11554	11691	
==>okes>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var name=pugs_version></td>
            <td>
              <tmpl_if n <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4075	4170	
==>A, die_on_bad_params => 0);

  print "Content-Type: text/html\n\n";
  #$tmpl->output(print_to => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2107	2218	
==>f($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2107	2218	
==>f($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  return "(" . $<FunctionAppExpr>() . " " . $op . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32172	32268	
==>SE).

=item on

The flags specifically turned on for this object (for flag assertions
and C<(?:.. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13084	13218	
==>5" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as('%%%02X') }/;
        }
    }
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13084	13218	
==>5" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as('%%%02X') }/;
        }
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	749	843	
==>s Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	749	843	
==>s Proxy-Authorization Range Referer TE User-Agent
>;

my @response_headers = <
 Accept-Ranges A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10489	10646	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10768	10925	
==>ptional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::alternation( \@grammar1::statements )
       ,
         ruleop::o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1616	1760	
==>e always tried even if it were expecting a simple '<'
            
                # after whitespace means '<' (default)
                # witho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22543	22668	
==>s, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23045	23170	
==>s, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6569	6686	
==>son_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_ch <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6569	6686	
==>son_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
                'max_ch <==
2	/Users/nnunley/pugs/util/package-osx.pl	1094	1200	
==>erman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/m <==
2	/Users/nnunley/pugs/util/package-osx.pl	3404	3510	
==>erman.info
        /usr/local/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	84	182	
==>Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	84	182	
==>Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether '_' ca <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11366	11462	
==><$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11366	11462	
==><$item ∈ $set>

Unicode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19861	19961	
==>y context it will return two
values; the user name and the password.  In scalar context it will
retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19861	19961	
==>y context it will return two
values; the user name and the password.  In scalar context it will
retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	545	661	
==>l AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, ci <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	545	661	
==>l AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => 'Â',  # capital A, ci <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18992	19107	
==>nds to the
"relation" of logic and mathematics and philosophy ("a predicate ranging
over more than one argument"), w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22642	22757	
==>nds to the "relation" of logic
and mathematics and philosophy ("a predicate ranging over more than one
argument"), w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6774	6873	
==>ck>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }] <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6774	6873	
==>ck>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }] <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	85	194	
==>late so trivially.

type Noop;

# hmm, there's a lot.  And we probably don't need it all for the
# meta-model, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4954	5054	
==>n $makefile_name: $!";
    print MAKEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1044	1174	
==>>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1044	1174	
==>>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<ArrayTail>();
    }
))->code;
*FunctionName = Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8768	8862	
==>t>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & S <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8768	8862	
==>t>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wiley & S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34459	34562	
==>ay ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some example us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34459	34562	
==>ay ref), and Member Names is set from the named parameter
@member_names (an array ref).

Some example us <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7483	7598	
==>val { fd_retrieve $fh };
  $data    ||= [MAX_RATE, BURST];
  my $bucket = Algorithm::TokenBucket->new(@$data);

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	461	564	
==>egex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	461	564	
==>egex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $b <==
2	/Users/nnunley/pugs/util/drift.pl	1513	1638	
==>cary_header;
my $module;
while (<IN>) { 
	if (/^module \s+ (\S*)/x) {
		$module = $1;
		last;
	}
}
print OUT <<".";
module $mo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19862	19959	
==>r it likes; all Rosetta cares about is that the user
interface and behaviour conform to its precon <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19862	19959	
==>r it likes; all Rosetta cares about is that the user
interface and behaviour conform to its precon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7596	7764	
==>\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7596	7764	
==>\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20930	21031	
==>r_type(CB,csym) ), !.
rm(word_boundary_not,F0,F0,B0,B0,E0,E0) :- 
   F0 = [CF|_], B0 = [CB|_],
   ( ch <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4693	4811	
==>ertext, but is not necessarily the ciphertext version of the data given.
The data may be either a string or an array of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4693	4811	
==>ertext, but is not necessarily the ciphertext version of the data given.
The data may be either a string or an array of <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8538	8666	
==>" goto body
    inc len
    inc pos
    goto init
  body:
    $S0 = repeat "}", len
    $I0 = index target, $S0, pos
    if $I0 < <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	14	130	
==>my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
h <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	14	130	
==>my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11865	11986	
==>(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4508	4629	
==>(RPe_RBRACE, 'P') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5821	5920	
==>$num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($nu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5821	5920	
==>$num/64)%64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15970	16096	
==>ub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10826	10952	
==>ub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if ${&Rx} =~ m{ \G \? }xgc;
    return;
  });

  # al <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20510	20608	
==>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20510	20608	
==>()>

Returns a true value if the bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a l <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8191	8337	
==>s;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8191	8337	
==>s;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &continue <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5259	5387	
==>tes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5259	5387	
==>tes  = %attributes;
    @!child_nodes = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11249	11347	
==>cludes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11249	11347	
==>cludes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3486	3586	
==>::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3486	3586	
==>::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NAME

Set::Infinite::Functional - An <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11780	11876	
==>umeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $cod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11780	11876	
==>umeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $cod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11442	11560	
==>th, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11442	11560	
==>th, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELE <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12883	13042	
==>ame $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@libs) {
        copy $_ => "$initrd_mnt/lib/" . basename $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6834	6930	
==>to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_el <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6834	6930	
==>to all these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_el <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2924	3034	
==>ool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    } <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2924	3034	
==>ool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @b }
    } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33199	33314	
==>)->send('_make_dispatcher_iterator' => $e->get('$self:')->send('MRO'));
            }
        )
    )
);

=pod

=cut <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	357	457	
==>ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::SmokeBac <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12203	12351	
==>__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data sec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12203	12351	
==>__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block and data sec <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20325	20448	
==>osnl,       [10],[10],B0,B0,E0,E0) :- !.
rm(bos,         F0,F0,[],[],E0,E0) :- !.
rm(bol,         F0,F0,[],[],E0,E0) :- !.
r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6485	6581	
==>cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6485	6581	
==>cipher(Array of byte $data) returns Array of byte {...}>

Performs the actual ciphering.  This me <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9395	9500	
==>2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::M <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9453	9558	
==>2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ok({'one' => 1}, 'Hash', :todo(1));

  use_ok('My::M <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3599	3734	
==>ndex - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the sam <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3599	3734	
==>ndex - 1)],
            @trees,
            @!children[$index .. (@!children - 1)],
        );
    }
}

# insert_child is really the sam <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2646	2755	
==>y $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2646	2755	
==>y $universe = $self.get_universe;
    return $universe if $set.equal( $universe );
    return $universe if $se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	223	323	
==>O system written in Scheme, which can
be seen here:

  http://okmij.org/ftp/Scheme/pure-oo-system.scm <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4900	4997	
==>w+)/
     && defined $PIL::PIL1CPerl5::NodesInfo::node_named{$1});
}
sub field_type_simple {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1944	2072	
==>n( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2161	2289	
==>n( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prelude file: $prelude_file.p6 - $!";
        my $prelude = <F <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	919	1029	
==>n, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Sp <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	919	1029	
==>n, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - provide a better default stringify - see Sp <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1385	1486	
==>iters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strictly exa <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1385	1486	
==>iters on CPAN keep track of I<ALL> incoming
events in memory and are able therefore to be strictly exa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1961	2084	
==>, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute acc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1961	2084	
==>, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => 'Ý',  # capital Y, acute acc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4247	4363	
==>ethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4247	4363	
==>ethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1439	1544	
==>ed %param<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1439	1544	
==>ed %param<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( %param <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	109	239	
==>ethod clear () {
    $.x = 0;  # accessible within the class
    $.y = 0;
}

# use v5;
# package Point;
# use Moose;
#
# has x => ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5123	5287	
==>ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    .. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5111	5275	
==>ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    .. <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	512	629	
==>tring ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $string;
}

1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	512	629	
==>tring ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    $string ~~ s:P5:g/"/&quot;/;
    
    return $string;
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	856	953	
==>ional parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TOD <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	856	953	
==>ional parameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TOD <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2769	3000	
==>while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2769	3000	
==>while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verbatim ~= <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11171	11269	
==>s(undef, %params // hash());
}

(method new ((opaque $class:) (hash ?%params)) returns opaque
    ( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5868	5987	
==>,
  using  => sub { $welcomed++ },
  pause  => 1,
  help   => <<HELP;
    Have you read --help?
    You can stop this pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6863	6975	
==>s %copy; #all groups minus the current one
    for my $key (@copy) {
        my $path = dir($key)->subdir($pkg->m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3180	3282	
==>s means that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enou <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3180	3282	
==>s means that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enou <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6523	6622	
==>ray of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
dat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6523	6622	
==>ray of byte {...}>

Performs the actual ciphering.  This method should operate on a copy of the 
dat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17773	17875	
==>.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains information about the s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17773	17875	
==>.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains information about the s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	83	185	
==>ct attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	83	185	
==>ct attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my $CONTENT_TYPE;
my $QUERY_STRING <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3377	3479	
==>L::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3377	3479	
==>L::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Comp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16242	16373	
==>enefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16242	16373	
==>enefits:

=head1 EXAMPLE

You can declare a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16597	16701	
==>* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21023	21127	
==>* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data.
Perl_re_d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2754	2863	
==>assign_open_to_variable'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14929	15049	
==>($Perl !~ /\Q$exe\E$/i) {
	    $Perl .= $exe;
	}

	warn "which_perl: cannot find $Perl from $^X" unless -f $Perl;

	# For <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19319	19419	
==>ords {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpressi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13228	13347	
==>t/dev/console" },
    pause  => 1,
    using  => sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Pl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15827	15932	
==>ram string message
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    $P0 = new .Exception <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	252	387	
==>ate tokenizer.
#   * <SourceCharacter> removals.
#     Several "SourceCharacter but not ..." have been expressed as
#     complemented c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	780	888	
==>ile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow intero <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	780	888	
==>ile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that this will allow intero <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19998	20097	
==>le dispatches the code blocks
to the compilers. It does so in a most specific to most general order. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19998	20097	
==>le dispatches the code blocks
to the compilers. It does so in a most specific to most general order. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1902	2315	
==>ct:
    # (None Yet)

###########################################################################




###########################################################################

} # class Relation::Example::Tuple

###########################################################################
###########################################################################

class Relation::Example-0.1.0 {
    does Relat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2891	3024	
==>le;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2891	3024	
==>le;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is export {
    # take a copy of our args here, maybe
    # re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36896	36992	
==>ocale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36896	36992	
==>ocale::KeyedText.

Some example usage:

    my Str $user_text_string = $translator.translate_mess <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21664	21808	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21943	22087	
==>urn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27420	27519	
==>bject is constructed.  If you want to
conceptually change an existing Message object, you must creat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27420	27519	
==>bject is constructed.  If you want to
conceptually change an existing Message object, you must creat <==
2	/Users/nnunley/pugs/t/packages/Test.pm	235	356	
==>ub cant_see_pkg {
    return My::Package::pkg();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my pa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3554	3659	
==>)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3554	3659	
==>)}{} unless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13458	13555	
==>ed.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are al <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13458	13555	
==>ed.  Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are al <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22287	22455	
==>ant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22566	22734	
==>ant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _simple_statement =>  mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19637	19737	
==>uthenticate itself with a server or a
proxy, may do so by including these headers.

=item $h.authoriz <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19637	19737	
==>uthenticate itself with a server or a
proxy, may do so by including these headers.

=item $h.authoriz <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13743	13876	
==>">View full smoke report</a>
            </td>
          </tr>
        </tmpl_loop>
      </tmpl_loop>
    </tmpl_loop>
  </table>
</b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4026	4114	
==>an.org/Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Team E<lt>perl6-compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1092	1191	
==>ule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1092	1191	
==>ule;
    use base 'Pugs::Grammar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4999	5103	
==>s, 
then clears the object's internal state.  This should be called as the last 
step of enciphering.

=i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4999	5103	
==>s, 
then clears the object's internal state.  This should be called as the last 
step of enciphering.

=i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11613	11708	
==>ext/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $acc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11613	11708	
==>ext/html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $acc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	701	813	
==>re});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	701	813	
==>re});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not open the output f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	692	799	
==>od BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	692	799	
==>od BUILD (Str $.file, Bool $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10501	10619	
==>ined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10501	10619	
==>ined && $unsafe_chars.defined) {
        #unless (exists %subst{$unsafe_chars}) {
        #    # Because we can't compi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2995	3237	
==>%events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_el <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2995	3237	
==>%events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_el <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25518	25617	
==>and C<$?> are printed in a message similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

= <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4413	4506	
==>tatements));

my @tokens;
my $tok = def_rule('token',mk_dynamic_alt(\@tokens));
# tokens shoul <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1609	1707	
==>ll's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=he <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1609	1707	
==>ll's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=he <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12657	12756	
==>if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12657	12756	
==>if the recurrence is infinite.

- `start()`

Returns the start element in the recurrence.

Returns n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4869	5033	
==>dx++) {
        SV* v;
        IV vi;

        v = POPs; pops_left--;
        vi = SvOK(v) ? SvIV(v) : -1;
        r->startp[cap_idx] = vi;

        v = POPs; pops_l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1978	2095	
==>e .. $end_index->to_native]
    );
}

sub length {
    my $self = shift;
    return num->new(scalar(@{$self}));
}

sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	741	901	
==>, \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	741	901	
==>, \&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6355	6460	
==>e must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)

  my $matcher;   # must b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6139	6243	
==>e must ever use Rule::rule form - never Rule->rule ??? (assuming example in p5)
  my $matcher;   # must b <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6060	6219	
==>)\
\\n   List      pre     values  safe   (rw!Hash)\
\\n   List      pre     List::kv      safe   (rw!Hash)\
\\n   List      pre     pairs   safe   (rw!Hash)\
\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7822	7983	
==>.., 
            precedence => ...,
        );
    }

    rule prototype {
        proto <category>:<name> <options>
        { 
            return new_pro <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28036	28138	
==>fdef PERL_COPY_ON_WRITE
 #define RX_MATCH_COPY_FREE(rx) \
	 STMT_START {if (rx->saved_copy) { \
	     S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21144	21257	
==>ht to be kept.

Passing a value of C<undef> to header() or any of the convenience
methods, does not delete that fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21144	21257	
==>ht to be kept.

Passing a value of C<undef> to header() or any of the convenience
methods, does not delete that fi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1911	2021	
==>MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1911	2021	
==>MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5261	5385	
==>_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the ot <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5261	5385	
==>_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attributes will hold all of
    # the ot <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2602	2824	
==>_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_mess <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2602	2824	
==>_RESULT' ) );
        };
        _show_message( $! )
            if $!; # input error, detected by library
    }

    return;
}

###########################################################################

my sub _show_mess <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1960	2063	
==>ect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1960	2063	
==>ect return value.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv = <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	446	554	
==>) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.n <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	446	554	
==>) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    return $class.n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	40	136	
==>mple JavaScript-on-p6 runtime.
It seems likely there will be more than one.

Design goals:
 1 Cor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15126	15217	
==>ngeable "Engine" back-ends (usually provided by third
parties) implement.  This interface is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15126	15217	
==>ngeable "Engine" back-ends (usually provided by third
parties) implement.  This interface is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7760	7852	
==>ements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1585	1677	
==>ements, sub { Grammar::Perl6->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	67	168	
==>s.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't yet know an au <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	67	168	
==>s.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't yet know an au <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1569	1681	
==>rt {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1627	1739	
==>rt {
    my $test := not($got eq $expected);
    Test::proclaim($test, "Should not match: $desc", $todo, $got, $e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19214	19325	
==>age can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19214	19325	
==>age can
be supported, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBM <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30957	31055	
==>hat distinguishes each module from others in
its set. For maximum flexibility in their use, the ful <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30957	31055	
==>hat distinguishes each module from others in
its set. For maximum flexibility in their use, the ful <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23726	23841	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24005	24120	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10349	10453	
==>_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10349	10453	
==>_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_str/; #: v <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24105	24205	
==>ngify, "∀α. α → int", "pretty print a -> b where b = int");
}
{
	my $a = type::variable::free-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23393	23495	
==>st> <','> <Identifier>
}
rule FunctionBody :words {  # see clause 13
      <SourceElements>
}
rule Prog <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	507	610	
==>e ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	507	610	
==>e ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4141	4247	
==>turn UNIVERSAL::isa($x,$cls);
    }
    return ($cls eq 'undef') if !defined $x;
    return ($cls eq 'str') <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7447	7543	
==>hunk = ($app->struct_equiv->values)[0]->struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19591	19692	
==>tement
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19591	19692	
==>tement
are marked to be passed to that compiler. The end of an inner block
effectively acts as a C<no> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2033	2147	
==>= $inst_pkg->uninstall

=cut

sub uninstall {
    my $self = shift;
    my $inst = $self->installation;
    
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1520	1642	
==>od end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1520	1642	
==>od end_is_open     () { return Bool::False }

method compare ($self: $set2 is copy) returns int {
    my $set1 = $self.span <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	725	835	
==>an_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Sing <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	725	835	
==>an_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Sing <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	563	668	
==>METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is ex <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	563	668	
==>METHOD }
sub content_type   returns Str is export { $CONTENT_TYPE   }
sub content_length returns Str is ex <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1605	1708	
==>iler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1605	1708	
==>iler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vty <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17523	17712	
==>eop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17802	17991	
==>eop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	3021	3113	
==>roviding implementations of
some math, string and IO operations (including a value for $*OUT) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2828	2949	
==>d ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") return <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2828	2949	
==>d ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") return <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4127	4331	
==>\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4127	4331	
==>\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1364	1554	
==>ess ($c){
                    $c = PIL::Run::Container::Scalar->new;
                    $self->hash_storeElem($idx, $c);
                }
                $c;
            },
            hash <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	527	638	
==>NFO

# Read the logfile
while(<>) {
  # Only process headlines
  next unless m/^r/ and m/lines?$/ and m/\|/;
  m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	811	915	
==>>compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	811	915	
==>>compile(q(
    <'token'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, - <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11145	11251	
==>he total number of
    tests run -- for example, if a backend only ran three tests, which it
    passed, th <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1832	1944	
==>sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1832	1944	
==>sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    ret <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10016	10145	
==>requires all parms quoted.  Also, don't quote
    # it if it's already quoted.
    for ( @derived_switches ) {
        $_ = qq["$_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2827	2944	
==>$self = shift;
    my $conf = $self->config;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1588	1843	
==>\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.deb <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1588	1843	
==>\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.deb <==
2	/Users/nnunley/pugs/util/version_h.pl	1394	1506	
==>e_depot; # convert /svk/trunk to //svk/trunk
            if (my @info = qx/svk info $source_depot/ and $? == 0) { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37924	38022	
==>le that has the same heading and
whose body contains all of the tuples that are in the invocant Rel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1744	1942	
==>?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1744	1942	
==>?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3398	3501	
==>rameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3398	3501	
==>rameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTHORS

"Aankh <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13245	13338	
==>of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13245	13338	
==>of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

=head2 C<$set1 ∖ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22763	22855	
==>ntation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is pen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22763	22855	
==>ntation is pending.>

=head2 The Rosetta::Interface::Value Class

I<This documentation is pen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8228	8333	
==>stead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8228	8333	
==>stead of [^a] in perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20127	20215	
==>rmalized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20127	20215	
==>rmalized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_hand <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2831	2965	
==>($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3036	3170	
==>($) {
            ::opaque_instance_attrs(shift)->{'$:superclass'}
        },
        'get_method' => sub ($$) {
            my ($self, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5511	5622	
==>/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5511	5622	
==>/,) {
        my @h = HTTP::Headers::Util::split_header_words(.header("Content-Type"));
        my %h = %{@h[0]} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3314	3445	
==>ree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3314	3445	
==>ree;
    return;
}
=cut

sub ::postfix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6901	7108	
==>r::Term.ident'}->() } }
            #|
            #    ### v6
            #    <Pugs::Grammar::Term.bareword> 
            #    { return $/{'Pugs::Grammar::Term.bareword'}->() }
        ! ),
    );
    $clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23850	23988	
==>@{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split //, $on) {
    if (my $h = $S->can("FLAG_$_")) {
      my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	636	751	
==>- no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	636	751	
==>- no longer needed

    state - a "continuation" or undef
    bool - an "assertion" (true/false)
    match - the "ma <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	119	234	
==>nt $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLe <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	119	234	
==>nt $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & year

my @MonthLe <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	9	109	
==>eratoren (nullär)
# der "und so weiter und so fort"-Operator:
$x = {...}	# "yada, yada, yada"
$x = { <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14994	15095	
==>);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these routines mod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14994	15095	
==>);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All these routines mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36218	36306	
==>ib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36218	36306	
==>ib']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	634	790	
==>am('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<+>'),
                Sy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	621	714	
==>ackslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))-> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3971	4065	
==>infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3971	4065	
==>infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Se <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1455	1549	
==>MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_command <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1375	1465	
==>MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_command <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	500	678	
==>$str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	500	678	
==>$str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5178	5271	
==>ase64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5178	5271	
==>ase64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2785	2893	
==>se {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2843	2951	
==>se {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3608	3704	
==>:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3608	3704	
==>:{ %standard_case{$_} || $_ };
}

method scan ($self: Code $sub) {
  for $self!sorted_field_names <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3697	3844	
==>(0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3837	3984	
==>(0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flags-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4044	4166	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4237	4359	
==>l  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my $bool = $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3775	3876	
==>aim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3833	3934	
==>aim(undef, "require $module;", $todo, "Import error when loading $module: $!", :$depends);
    }
    e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3431	3525	
==>ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3489	3583	
==>ref.isa($expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21131	21228	
==>s, and your program would use
associated keys internally.

It is strongly suggested (but not requi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21131	21228	
==>s, and your program would use
associated keys internally.

It is strongly suggested (but not requi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15939	16045	
==>self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10795	10901	
==>self->add_handler('minmod' => sub {
    my ($S) = @_;
    $S->nextchar;
    return $S->object(minmod =>) if <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2478	2577	
==>le($code)> executes $code, passing the match object as a parameter, and
it should return a I<compile <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2478	2577	
==>le($code)> executes $code, passing the match object as a parameter, and
it should return a I<compile <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1268	1377	
==>irectory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($di <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1268	1377	
==>irectory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne (substr($di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8259	8380	
==>nown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8271	8392	
==>nown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    return emit_rule( $_[0], $_[1] );
    #return "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11132	11226	
==>et_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns every <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11132	11226	
==>et_universe()`

Returns the "universal set" recurrence object.

- `complement()`

Returns every <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4055	4194	
==>cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4055	4194	
==>cc = ./header('Cache-Control');
        
        # First look for the Cache-Control: max-age=n header
        if (@cc) {
            for @cc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8688	8811	
==>ll recurse down the tree and fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8688	8811	
==>ll recurse down the tree and fix the
# depth fields appropriately.
# This method is called automatically when 
# a subtree i <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18991	19111	
==>length,undef,$replace) }


# unpack

# vec # XXX - obsolete?


package Control::Basic {}

 multi Control::Basic::eval ( S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4826	5017	
==>tdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5048	5239	
==>tdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { cap <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	484	600	
==>es);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	484	600	
==>es);
    @dirs = @dirs.map:{ split("\\", $_) };
    if (($directories ~~ rx:perl5{[\\/]\Z(?!\n)})) {
        @dirs[@d <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4622	4733	
==>n1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4622	4733	
==>n1.intersection( $span2 );

    my $diff_recurr = $set1.recurrence.difference( $set2.recurrence );

    @set1_sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4649	4808	
==>ipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4649	4808	
==>ipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6662	6833	
==>=~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7670	7802	
==>=~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [a-fA-F0-9]+ ) }xgc) {
      return $S->force_object(anyof_char_comp => chr(hex $1 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12905	13009	
==>gs) into
  $1,etal, or even into the return value.  In that event, it may not
  be possible to get a plau <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1487	1581	
==>rence to nonexistent group';
use constant RPe_ESLASH => --$ENUM, 'Trailing \\';
use constant RP <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	452	734	
==>'$x'),
                    App(
                        Sym('&infix:<+>')
                        Val(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Backend::Perl; # something to run <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3477	3587	
==>atchObj, my $target, my $matchObjFrom, my $matchObjPos) = Parser::Rule::Match::newfrom($matchObj, 0);
  my $pos <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5067	5202	
==>"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "I <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5067	5202	
==>"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr(920),
    "I <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30557	30656	
==>(or "user type") for each distinct Message; each file can be
shared by multiple Messages but the who <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30557	30656	
==>(or "user type") for each distinct Message; each file can be
shared by multiple Messages but the who <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4728	4833	
==>hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4728	4833	
==>hack
#sub cwd returns Str { system("pwd") }
sub cwd returns Str is export {
  return '/';
}

sub tmpdir re <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	322	430	
==>e = 0;

# tokenizer

sub tokenize ( $s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11340	11515	
==>eredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11340	11515	
==>eredoc starting line
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5670	5780	
==>ir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5670	5780	
==>ir.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4395	4504	
==>l.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4395	4504	
==>l.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	489	637	
==>STDERR
		"# Looks like you planned $planned tests but ran $ran.\n";
	} elsif ($noplan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8856	8996	
==>elf->control_dir( $inst_pkg->package )
                          ->file( $conf->postrm );
        if( -e $postrm && -s _ ) {
            syst <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3976	4182	
==>pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3976	4182	
==>pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37793	37894	
==>tional parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is already <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37793	37894	
==>tional parameter
$msg_key (a string).  Assuming that a Perl module by the given module name
is already <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	429	534	
==>mpiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	429	534	
==>mpiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tre <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	858	968	
==>be_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	791	892	
==>be_command($_cmd));

	for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3053	3166	
==>KT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3053	3166	
==>KT_ARG_HASH_KEY_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23902	24007	
==>mplements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23902	24007	
==>mplements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of ex <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26558	26653	
==>ly only works when sitting in the perl source
directory!

=item C<HARNESS_DEBUG>

If true, Test: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	583	683	
==>ource);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	583	683	
==>ource);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6Grammar::em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	769	875	
==>use less stack space.

- Simplify arg list - the functions currently take 8 arguments.

=cut

use str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2454	2571	
==>dicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2454	2571	
==>dicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.servername     = $event<ser <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3299	3441	
==>if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3287	3429	
==>if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TO <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1096	1244	
==>[$n] }, {%$event, revision => $revision };
            }
        }
    }
    
    #
    # Remove all events which are *identical*
    #
    my $all_t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3240	3346	
==>ame (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6717	6823	
==>ame (Mapping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3530	3653	
==>her a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            my $ref = re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20429	20525	
==>ntax charts or "railroad normal form" in
parsing technology).  Each node is an opcode plus a "nex <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12198	12295	
==>m in the same relative order they had in C<@values>.

If C<$inplace> is specified, the array is so <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	355	469	
==>s/", 'blibjs/lib');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13258	13356	
==>se tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

Th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13316	13414	
==>se tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4856	4960	
==>ified version
of the result object (usually the entire match string).

=head1 METHODS

=head2 from ()

Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4856	4960	
==>ified version
of the result object (usually the entire match string).

=head1 METHODS

=head2 from ()

Re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4316	4465	
==>~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = split <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4316	4465	
==>~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = split <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	400	506	
==>ariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	400	506	
==>ariableName> \\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21805	21967	
==>p.c/regexec.c.


  struct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1] <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14836	14931	
==>l Unicode levels at once. Which level you
interact with typically depends on what your current l <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5315	5409	
==>Returns all the files in a directory.  This is shorthand for backwards
compatibility on systems <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4622	4746	
==>>( $new_parser );

  

  # build a new compiler, that uses:

  # - the new Grammar

  # - no optimizer

  # - the new emitter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4464	4583	
==>>( $new_parser );
  
  # build a new compiler, that uses:
  # - the new Grammar
  # - no optimizer
  # - the new emitter <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36829	36921	
==>ike
C<union> except that the returned Relation::Example contains only tuples that are in
exac <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20066	20170	
==>s2rel($inpath, $start_dir); 
    $outpath    = rel2abs($outpath, $output_dir);
    $outpath    =~ s/\.t$/ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7550	7655	
==>ray ; MatchTest *@indextests --> Int|List )
 multi Array::pairs  (@array ; MatchTest *@indextests --> Int| <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3359	3473	
==>nfig
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style conf <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3359	3473	
==>nfig
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::Tiny is a utility to read and write .ini style conf <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19559	19685	
==><ExpressionStatement>
    | <IfStatement>
    | <IterationStatement>
    | <ContinueStatement>
    | <BreakStatement>
    | <Re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	473	734	
==>key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	473	734	
==>key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::L::en

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3690	3933	
==>e ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3690	3933	
==>e ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.readline;
                            }                          
                            %events<end_element>('p <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	15900	16023	
==>pipe to \"ldd $bin\": $!\n";
    while(<$ldd>) {
      s{^.*?/}{} or next;
      push @so, "/" . (split " ")[0];
    }

  re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4124	4222	
==>"DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4124	4222	
==>"DBMS"), Rosetta::Interface::Exception ("Exception"),
Rosetta::Interface::Command ("Command"), Rose <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6238	6364	
==>:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packe <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6238	6364	
==>:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packe <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	660	756	
==>li><a href="/~$_/">$_</a></li>\n] for sort @users;

print { $fh } <<'END';
</ul>
<p>
Or <a href=" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20962	21060	
==>ms to bring this sort of functionality to Perl packages
or programs.  Your package or program can b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20962	21060	
==>ms to bring this sort of functionality to Perl packages
or programs.  Your package or program can b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2527	2643	
==>:Placeholder->new(undef);

    # if the symbol is not a predefined global it's an error. If it exists, it can be redu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1865	1997	
==>e .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1865	1997	
==>e .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24023	24149	
==>n_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20444	20570	
==>n_atom >;
      return $S->object(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15706	15797	
==>e).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15706	15797	
==>e).

- `start_is_open()` / `end_is_open()` / `start_is_closed()` / `end_is_closed()`

Return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1100	1205	
==>_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1100	1205	
==>_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	525	617	
==>mplementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	525	617	
==>mplementation for Perl 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1372	1490	
==>erence between an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## un <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1372	1490	
==>erence between an ident, a name and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## un <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7258	7352	
==>s been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directive <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7258	7352	
==>s been
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directive <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1886	1984	
==>:en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1886	1984	
==>:en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12517	12614	
==>ference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12517	12614	
==>ference to a list of
scalars.

=item $h.remove_header( $field, ... )

This function removes the he <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15452	15564	
==>ributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!attributes> - B< <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15452	15564	
==>ributes or relative Nodes it can have, as well as where
and how the Node can be used.

=item C<%!attributes> - B< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3760	3912	
==>nf->archive_data;
        my $control = $conf->archive_control;
        my $jibdir  = $conf->jib_dir;
    
        ### XXX hardcoded .svn exclusion! we s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23225	23325	
==>rl6::Run::OnPerl5::X1::Api;
use strict;
sub p6_return_CODE {
    my(@args)=@_;
    my $argl = join(", <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4703	4886	
==>ebug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple mat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4703	4886	
==>ebug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be if multiple mat <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	875	989	
==>'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_d <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	842	956	
==>'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_d <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20437	20538	
==>= eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

sub p6_container <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	294	388	
==>da calculus, and a type inferrencer

# the algorithm implemented is Hindley-Milner type inferre <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3307	3406	
==>onfig = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs') <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3307	3406	
==>onfig = get_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2950	3066	
==>old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2950	3066	
==>old if want.List;
              });
}

my method set_content (Str $content, Bool $keep?) returns Void {
    $!content <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	733	853	
==>cket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	700	820	
==>cket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31425	31522	
==>n given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35975	36072	
==>n given the tuple/Mapping as its sole read-only argument. The new
Relation has all of the same att <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3996	4095	
==>cts.

The array of spans must be ordered, and the spans must not intersect with each other.

- empty <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3996	4095	
==>cts.

The array of spans must be ordered, and the spans must not intersect with each other.

- empty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15491	15598	
==>as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15491	15598	
==>as well as where
and how the Node can be used.

=item C<%!attributes> - B<Attributes>

Hash(Str) of Any - Th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22405	22512	
==>lexible place to allocate large data
which Perl_re_dup() will copy for us.

    New(0, ret->offsets, 2*len+1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	186	296	
==>w {
    my ($class, $klass) = @_;
    (blessed($klass) && $klass->isa('opaque'))
        || confess "C3 only ac <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1535	1636	
==>k "pugs$Config::Config{_exe}";
    print STDERR "done.\n" if $Config{verbose};
}

sub inline {
    pri <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8439	8530	
==>y block of characters is interpolated for modifiers.

=item I<end_element ('line_interpolati <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8439	8530	
==>y block of characters is interpolated for modifiers.

=item I<end_element ('line_interpolati <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3154	3266	
==>elf->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19866	19970	
==>text it will return two
values; the user name and the password.  In scalar context it will
return I<"unam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19866	19970	
==>text it will return two
values; the user name and the password.  In scalar context it will
return I<"unam <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5256	5384	
==>n( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS""pRHS"
        dbg "# keys: " <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15503	15655	
==>co);
    #} else {
        my @tm = Pugs::Internals::localtime(Bool::False, $sec, $pico);

        # FIXME: this is how it oughta look, with @ids being c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11701	11787	
==>evan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11701	11787	
==>evan@iinteractive.comE<gt>

Audrey Tang, E<lt>autrijus@autrijus.comE<gt>

Curtis "Ovid" <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	198	299	
==>KAGE__ . "::Compiler" };

sub interpreter_class { __PACKAGE__ . "::Interpreter" }

sub run {
    my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2192	2290	
==>pe;
foreach my $x (split //, 'nrtfa\\\'"') {
    $backslash_escape{ord eval "\"\\$x\""} = "\\$x";
} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20372	20466	
==>lt in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20372	20466	
==>lt in double quotes followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	931	1035	
==>file (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	931	1035	
==>file (*@_path) returns Str is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (S <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2326	2433	
==>e   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    met <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2326	2433	
==>e   ( $self: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    met <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16436	16560	
==>{
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            fo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19913	20037	
==>{
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather {
            fo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5600	5748	
==>{ $self->registered_alternatives };
        
        ### check if we're the 'prefered' package
        my $link_this   = 1;
        my $unlink_this = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3638	3741	
==>n is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3638	3741	
==>n is copy) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1771	1859	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3147	3235	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<name>:=(<ident>)<?p6ws>?\(<?p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	976	1099	
==>sity );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.den <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	976	1099	
==>sity );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density => $.den <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	759	886	
==>ital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Cced <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	759	886	
==>ital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Cced <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3806	4000	
==>ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3806	4000	
==>ord('a');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16373	16468	
==>pes simultaneously, and that allows any end users to add
support for new languages easily and wi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16373	16468	
==>pes simultaneously, and that allows any end users to add
support for new languages easily and wi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8506	8602	
==>nalysis before using it in any 
sensitive application.>

B<I<The authors and copyright holders DO <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8506	8602	
==>nalysis before using it in any 
sensitive application.>

B<I<The authors and copyright holders DO <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4608	4726	
==>This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- inters <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4608	4726	
==>This method return a logical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- inters <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1038	1164	
==>n statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "imm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1243	1369	
==>n statement:\n", $program if $@;
        die "error in immediate_statement_exec: " . $@
            if $@;
        # print "imm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2314	2422	
==>ns num>

=item B<subtract (x as num) returns num>

=item B<mulitply (x as num) returns num>

=item B<divide ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1665	1774	
==>{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1665	1774	
==>{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17301	17405	
==>st flexible place to allocate large data
which Perl_re_dup will copy for us.

    New(0, ret->offsets, 2* <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	1140	1238	
==>ODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1193	1291	
==>ODS

=over 4

=item B<new (*native*) returns str>

=item B<to_native () returns *native*>

=item B< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19721	20010	
==>tant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20000	20289	
==>tant( "print" )
                 ,
                   ruleop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         rul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10110	10272	
==>ide: a <prefix>-<name>
            ### implementation;
            my @list = @{ $self->available };
            
            my @maybe;
            for my $test ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4560	4660	
==>cate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->includes($node->orig);
}

sub reduce_va <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9774	9922	
==>^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9774	9922	
==>^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12900	12985	
==>tail(T,Close).


brackets("{","}"). brackets("(",")"). brackets("[","]").
brackets("<" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	415	540	
==>(or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	415	540	
==>(or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15288	15386	
==>g to invoke or implement it, and so an
application written to it should behave identically no matte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15288	15386	
==>g to invoke or implement it, and so an
application written to it should behave identically no matte <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1274	1382	
==>st be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters enco <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1274	1382	
==>st be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters enco <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4988	5142	
==>he stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modif <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4988	5142	
==>he stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $last_mod = pop(@modif <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16150	16276	
==>xsuflen;
    }
    # + 3 : we want three dots between the test name and the "ok"
    return $maxlen + 3 - $maxsuflen;
}


sub _ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4538	4686	
==>dit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4760	4908	
==>dit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$F = __F <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5269	5387	
==>t-path=s"  => \$parrot_path,
  "pugs=s"         => \$pugs,
  "bash=s"         => \$bash,
  "linuxrc=s"      => \$linuxr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	384	528	
==>_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9802	9946	
==>_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33250	33349	
==>ppear in this array until a match for that message is found.  Since a
program or library may wish to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33250	33349	
==>ppear in this array until a match for that message is found.  Since a
program or library may wish to <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4046	4136	
==>4.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4046	4136	
==>4.0.

It also describes the same-number versions of Rosetta::Interface::DBMS
("DBMS"), Rose <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	757	861	
==>gger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method fi <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	757	861	
==>gger) {
  $.state = $.state.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method fi <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3706	3910	
==>ound = round_up_symmetric($x);
                }
                else {
                    $x_round = round_down_symmetric($x);
                }
                $rand_up = 0;
            }
            el <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24124	24216	
==>pControl('-text' => 'last'))";
}
sub p6_next_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2355	2458	
==>⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for include <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2355	2458	
==>⊋» (Set $one, Set $two) {
    $one.proper_superset($two);
}

# several unicode operators for include <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	1024	1120	
==>e 'closure::signature';

package method::params;

use strict;
use warnings;

use base 'closure::p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6305	6436	
==>. 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6305	6436	
==>. 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$_[ <==
2	/Users/nnunley/pugs/util/func_refact.pl	2396	2538	
==>passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , union(Sto <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13460	13580	
==>ert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    # quantifiers must follow something
    $rx->error($rx-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30532	30645	
==>{ \G \) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

The name is 'c)' which has no pred <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10221	10323	
==>>header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10221	10323	
==>>header( $field )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more he <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	214	327	
==>"Use perl version of &infix:<$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc(R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3709	3836	
==>_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3709	3836	
==>_time) {
                # Add response_delay to age to get 'corrected_initial_age'
                $age += ($response_time - $r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	330	432	
==>.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New Lis <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	330	432	
==>.to_list
* New List methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New Lis <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	58	157	
==>s $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	58	157	
==>s $.density;

submethod BUILD ( $.start, $.end, $.density = 1 ) {}

method empty_span ($class: $dens <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7653	7757	
==>eys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $ki <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7653	7757	
==>eys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %!users.delete(normalize $ki <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	853	945	
==>for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	853	945	
==>for English

=head1 VERSION

This document describes Rosetta::Validator::L::en version 0.160. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3092	3191	
==>nc($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3150	3249	
==>nc($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func.name() $expected", <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2067	2288	
==>{
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.pr <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2067	2288	
==>{
                    my $size = @args.shift;
                    $fh.print("=head$size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5079	5191	
==>.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5079	5191	
==>.new(.remove_content_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2516	2618	
==>lear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data you 
p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2516	2618	
==>lear the cipher's state.  
Remember that ciphering steps may not return all (or any) of the data you 
p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3161	3277	
==>signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submeth <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3161	3277	
==>signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submeth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4174	4266	
==>s these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4174	4266	
==>s these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	804	940	
==>mar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	966	1102	
==>mar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{p}        = delete $param->{pos} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9454	9586	
==>$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9442	9574	
==>$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1963	2072	
==>ead1 Perl 6 Code
  
  class Test::Builder::Output-0.2.1;
  
  has $.output;
  has $.error_output;
  
  submeth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1586	1683	
==>ick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1586	1683	
==>ick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	35	152	
==>LoadFile DumpFile];
use Data::Dumper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    requir <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1822	1928	
==>own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix: <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1822	1928	
==>own metaoperators (like C<[...]> or C<»...«>).
Then, all functions can be "infixized".

=head2 C<< infix: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2109	2203	
==>ct.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2198	2292	
==>ct.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gramm <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1048	1156	
==>alternative seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Triggering reb <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1875	2021	
==>r(1970), :month(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoch;
}

met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9908	10017	
==>sub _create_runperl { # Create the string to qx in runperl().
    my %args = @_;
    my $runperl = $^X =~ m/\s <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	231	336	
==>y $install_version = shift;
    die "Install version must be 5 or 6 for WritePugs"
      unless $install_v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13257	13363	
==>>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> ob <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13257	13363	
==>>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a new C<HTTP::Headers> ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33904	34003	
==>ertion.  It's an "AND", much like '|' is an
"OR".  The vim regex C</x\&y/> means "match I<y> if I<x> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17134	17261	
==>(.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13555	13682	
==>(.*?) \1 \] }xgcs) {
        my ($how, $neg, $name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4273	4388	
==>ounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4273	4388	
==>ounds : got ($index) expected no more than (" ~ $self.child_count() ~ ")";        
    my $removed_child;
    # if i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	180	283	
==>ssionLiteral has been added to Literal.
#     Since we dont have a separate tokenizer.
#   * <SourceChar <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2800	2986	
==>ym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:</>' => Thunk->new(
        Seq->new(
            Param->new('$ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27284	27378	
==>α) → α", ":t (λx. (x 'str'))");
is(t($app_id_to_str), "str", ":t (λx. (x 'str'))(id)");
i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9494	9613	
==>Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9494	9613	
==>Unrecognized mode $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3048	3142	
==>onv =~ s/^\s*#.+$//g;
while($conv =~ /(conv_\w+)\s*($RE{balanced}{-parens=>'{}'})\n/sg){
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6208	6368	
==>e = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6208	6368	
==>e = cwd();
        }
        elsif (!file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21572	21678	
==>ur messages, showing other messages instead which are
more appropriate to the context in which they are usi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21572	21678	
==>ur messages, showing other messages instead which are
more appropriate to the context in which they are usi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7593	7715	
==>x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($cont <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7593	7715	
==>x-www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($cont <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4341	4455	
==>e {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4341	4455	
==>e {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res.set = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1402	1550	
==>CKAGE__->add_rule( 
        name => '..',
        assoc => 'left',
        precedence => 'looser',
        other => '+',
    );
    
    __PACKAGE__- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15400	15521	
==>lass
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9597	9718	
==>lass
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4651	4778	
==>n( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # X <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4651	4778	
==>n( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # X <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12222	12332	
==>kage Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1148	1278	
==>};
    }

    sub compute_digest {
    my $self = shift;
        my $sha1 = Digest->new("SHA-1");

        {
			local $SIG{__WARN__ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9463	9582	
==>ush @{ $prev->{data} }, @{ $self->{data} };
    pop @$tree;
    return 1;
  }

  sub walk {
    my ($self, $ws, $d) = @_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14165	14292	
==>1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $prefac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14165	14292	
==>1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $prefac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	272	396	
==>:Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	272	396	
==>:Generator',\&xml]
);
sub xmlify {
	my $x    = shift;
	my $val = shift;
	if (ref $val eq 'HASH') {
		return map {
			$x->$_(x <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2056	2219	
==>y $sec = $.second;
    my $round_sec = int($sec);
    my $rem = $sec - $round_sec;
    my $nano = $rem * 1e9;
    return int($nano);
    #int( ($.second - int($.sec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21253	21353	
==>specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21253	21353	
==>specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17677	17798	
==>Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17677	17798	
==>Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurrence
    
    Set::Infinite

= AUTHOR

Fl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1178	1284	
==>((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1178	1284	
==>((.).).' )->code;
    my $match = MyGrammar->rule( 'abc' );

Rules may have parameters:

    *subrule = $gr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	656	774	
==>@.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::Fa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	656	774	
==>@.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_is_open () returns bool {
    return Bool::Fa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7483	7596	
==>alse, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7483	7596	
==>alse, Num $maxage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21156	21278	
==>s:

 #define anchored_substr  substrs->data[0].substr
 #define anchored_utf8    substrs->data[0].utf8_substr
 #define ancho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18566	18683	
==>iven {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18566	18683	
==>iven {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the link that the user followed t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5724	5841	
==>tact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5724	5841	
==>tact
    my $done = 0;
    require Filter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $d <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1964	2079	
==>n( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) | <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1964	2079	
==>n( $span );
    return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) | <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11430	11539	
==>rams (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11430	11539	
==>rams (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	205	316	
==>= ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub cl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	205	316	
==>= ';';
my $URL_ENCODING = 'iso-8859-1';
my $IS_PARAMS_LOADED = 0;

## functions

# information functions

sub cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3225	3338	
==>item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3225	3338	
==>item 3. Referer

=item 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2559	2768	
==>t unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2559	2768	
==>t unless $!content.defined;
                    
                    my $old = $self!content;
                    $old = $$old if $old.ref eq "Scalar";
                }
                
                $!conte <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15987	16087	
==>be interpreted by the machine itself and not any human user.  In some
situations, a shared program co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15987	16087	
==>be interpreted by the machine itself and not any human user.  In some
situations, a shared program co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1580	1718	
==>::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1580	1718	
==>::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ';
    die "u <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15254	15366	
==>age Y;
our %rules;
sub dorule {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	540	666	
==>[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	540	666	
==>[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tai <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25229	25326	
==>ion::Example with zero tuples or
one tuple respectively have a special meaning in relational algeb <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1156	1260	
==>, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1156	1260	
==>, $file );
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    return &::($worker_pkg):: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3517	3629	
==>_2mortal(newSViv(minend)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;

    fprintf(stderr,"exec hoo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2392	2583	
==>("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2392	2583	
==>("=item ");
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1661	1798	
==>1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performance reasons, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1595	1726	
==>1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performance reasons, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	747	849	
==>RG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	747	849	
==>RG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13577	13688	
==>ments>
}
rule NewExpression :words  {  # see 11.2
      <MemberExpression>
    | <'new'> <?ws_required> <NewExpr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	409	518	
==>t
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	409	518	
==>t
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11476	11590	
==>m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3067	3181	
==>m{ \G (.?) }xgc;
    my $c = $1;
    return $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    r <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12697	12804	
==>> <Elision>? <']'>
}
rule ElementList :words {  # see 11.1.4
      <Elision>? <AssignmentExpression>
    | < <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33722	33820	
==>C<\s>), nspace (C<\S>)

Neg: 1 if negated

=head2 digit

Family: digit

Types: digit (C<\d>), ndigi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1742	1850	
==>'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Laz <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1742	1850	
==>'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Laz <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	428	547	
==>bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	337	456	
==>bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2490	2667	
==>gs) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2490	2667	
==>gs) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^header|item|par <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	677	784	
==>-----------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $child_heigh <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	677	784	
==>-----------
## private methods

my method set_height ($self: Tree $child) returns Void {
    my $child_heigh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7247	7373	
==>te this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	548	674	
==>te this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $entr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19071	19175	
==>iginal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19071	19175	
==>iginal_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1409	1511	
==>%v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'r <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1409	1511	
==>%v) {
    return '<textarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	262	376	
==>other clutter because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	262	376	
==>other clutter because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4750	4910	
==>idex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $hig <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4750	4910	
==>idex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif $n > $hig <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13786	13891	
==>ges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..10 <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13786	13891	
==>ges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0..10 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1006	1126	
==>, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combina <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1006	1126	
==>, :$minimal = 0) {...}

=pod

C<optional($p)> is pretty much the same as C<quantify($p,0,1)>,  but it
has its own combina <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15558	15674	
==>$self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21729	21845	
==>$self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = sh <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12594	12840	
==>$failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$test{failed}},
                                             name    = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11858	12002	
==>h::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return "$_[1] ruleop::capture( '$name', \n" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23919	24022	
==>nd shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external referenc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23919	24022	
==>nd shell for the Rosetta DBMS.

Go to the L<Rosetta::SeeAlso> file for the majority of external referenc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	779	885	
==>-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	779	885	
==>-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  slice accepts a lazy li <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6543	6647	
==>, 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6543	6647	
==>, 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9150	9245	
==>eate_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9150	9245	
==>eate_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4289	4391	
==>if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@ind <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4289	4391	
==>if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@ind <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	102	223	
==>$_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	102	223	
==>$_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $match = shift;
    # die "not a match" unless ref($ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7968	8061	
==>$self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7968	8061	
==>$self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth ($self: Str $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4056	4195	
==>;
  }
  my $max = @array.shift;
  $max = ($cmp($max, $_)) < 0 ?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1615	1709	
==>------------------------------------------
## informational methods

method is_root returns Boo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1615	1709	
==>------------------------------------------
## informational methods

method is_root returns Boo <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1068	1196	
==>_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $arg <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1959	2087	
==>_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $arg <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13029	13126	
==>he invocant.
returns the value(s) that were associated to those keys.

=over

=item Unary Form

Im <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7356	7451	
==>gnature from S29draft.pod 8655.  In the List section.
multi Array::grep (@values ;  MatchTest $t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	343	446	
==>hecked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	343	446	
==>hecked against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	2016	2136	
==>s "Key must be a str type";
    bit->new(exists $self->{$key->to_str->to_native} ? 1 : 0);    
}

1;

__END__

=pod

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4226	4337	
==>tion');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @toke <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4226	4337	
==>tion');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @toke <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18395	18492	
==>ures are in exactly the right input
format for Node.new(), by which you can create an identical No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18395	18492	
==>ures are in exactly the right input
format for Node.new(), by which you can create an identical No <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8381	8503	
==>method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8381	8503	
==>method commit (Str $name) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9102	9199	
==>ou can access the number capture groups with the nparen() method:

  my $captgroups = $parser->npa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	122	232	
==>';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	122	232	
==>';

# stash the metaclass for the package 
# that we store the grammer in
__PACKAGE__->meta->add_attribute('$:p <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4007	4121	
==>her {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4007	4121	
==>her {
    while (@string>0 and all(@string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@ <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	354	474	
==>version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Dat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	354	474	
==>version can iterate()

    * set_time_zone

=cut

method from_dates ($class: %param is copy ) {
    %param<density> = Dat <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16428	16587	
==>truct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_sub <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20854	21013	
==>truct reg_substr_datum {
            I32 min_offset;
            I32 max_offset;
            SV *substr;         /* non-utf8 variant */
            SV *utf8_sub <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4778	4882	
==>%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4778	4882	
==>%([CD][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	568	704	
==>l) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	568	704	
==>l) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method.defined;
            .p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	684	779	
==>rt the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/sy <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	684	779	
==>rt the full Perl 6
specification, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/sy <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6521	6617	
==>'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'T <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6521	6617	
==>'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', 'TypeOr',
  'xLHS' ,'T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2512	2693	
==>f $x) {
            my $y = '';
            foreach my $c (unpack("U*", $x)) {
                if ($c > 255) {
                    $y .= sprintf "\\x{%x}", $c;
                } elsi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	408	509	
==>s xml
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast(xmlify($x,$_[0])); 
}

# xml h <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	339	468	
==>substr($str, -1, 1) eq "\n" {
        substr $str, 0, chars($str) - 1;
    } else {
        $str;
    }
}

sub chop (Str $str is r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4808	4934	
==>$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4796	4922	
==>$pos; 1 } : 0 }"
    }
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $name doesn't look up i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	534	623	
==>ass::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	534	623	
==>ass::MOP::Class->create($name, $version);
	my $self = $class->meta->new_object(pkg_meta => <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	296	410	
==>" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <= <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	296	410	
==>" if possible
    * cleanup circular references using 'submethod DESTROY {}'
    
  Tests:
    * overloading - ~ <= <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6936	7092	
==>));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6936	7092	
==>));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2897	2995	
==>n of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2897	2995	
==>n of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34561	34674	
==>: 'POSIX' if C<[:NAME:]>, C<[^:NAME:]> (or other POSIX notations, like
C<[=NAME=]> and C<[.NAME.]>); otherwise, re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2647	2758	
==>my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2635	2746	
==>my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_group {
    return emit_rule( $_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16416	16516	
==>r
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16416	16516	
==>r
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16398	16505	
==>t (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19875	19982	
==>t (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other! <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	6707	6821	
==>mpile
 */

static regcomp_t previous_comp_hook = NULL;

regexp* hook_regcompp (pTHX_ char* exp, char* xend, PMOP* p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19273	19379	
==>g with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19273	19379	
==>g with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - Lines before the first <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6010	6119	
==>int($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6010	6119	
==>int($str) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17539	17639	
==>to ship precompiled modules without shipping Module::Compile and
the compiler modules themselves.

=i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17539	17639	
==>to ship precompiled modules without shipping Module::Compile and
the compiler modules themselves.

=i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1575	1685	
==>ubIsMulti' ,'Bool',
  'pSubBody'    ,'PIL_Stmts';

node_h 'PIL_Literal',          'PVal', 
  'pVal'  ,'Val';

n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4519	4614	
==>f($_[0])?$_[0]:die "bug"} # XXX - name conflict. sigh.

# some abbreviations for p6_new('Foo')
s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17948	18053	
==>ted from each other, even if more than one uses the
same Engine class to implement it; that is, multiple D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17948	18053	
==>ted from each other, even if more than one uses the
same Engine class to implement it; that is, multiple D <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1179	1305	
==>}) or return;

    # $Config{cc} may contain args; try to find out the program part
    while (@chunks) {
        return $self- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1118	1232	
==>}) or return;

	# $Config{cc} may contain args; try to find out the program part
	while (@chunks) {
		return $self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	882	1015	
==>s -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	882	1015	
==>s -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return "sub { 
    my <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4590	4704	
==>ATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4590	4704	
==>ATH'}.defined;
    return split(':', %*ENV{'PATH'}).map:{ $_ eq '' ?? '.' !! $_ };
}

# This HACK is worse than
# t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5774	5865	
==>ind object ($child_to_remove) in self";
}

## ---------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5774	5865	
==>ind object ($child_to_remove) in self";
}

## ---------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	533	673	
==>Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	533	673	
==>Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        307 => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2732	2833	
==>not sure... I think Pugs::Compiler could work as the

basic interface, and if you'd like to offer more <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2630	2730	
==>not sure... I think Pugs::Compiler could work as the
basic interface, and if you'd like to offer more <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2832	2952	
==>::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2832	2952	
==>::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_vars => %msg_vars );
}

m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1565	1659	
==>PTION

These ADTs are the implementation classes of all the L<Blondie::Nodes> and some
more obj <==
2	/Users/nnunley/pugs/util/package-osx.pl	9491	9624	
==>";
    if (-e "$dir/.svn") {
        print `rm -rf $dir/.svn`;
        print "Removed $dir/.svn\n";
    }
    for my $sub_dir (grep -d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1490	1591	
==>nfess "The right hand side must be a core type";    
    return num->new($left->to_native * $right->to <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3617	3715	
==>o provide functionality
while Perl 6 was still being developed.

This module is primarily for readi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3617	3715	
==>o provide functionality
while Perl 6 was still being developed.

This module is primarily for readi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6865	6973	
==>losing match, I should
ignore the opening one. However, this means I should defer events until I get to the
e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6865	6973	
==>losing match, I should
ignore the opening one. However, this means I should defer events until I get to the
e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9982	10089	
==>so provides methods for iterating through the set, and for querying 
set properties.

Note that all set func <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9982	10089	
==>so provides methods for iterating through the set, and for querying 
set properties.

Note that all set func <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5906	6126	
==>omain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5906	6126	
==>omain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$port") if $port.c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12880	12976	
==>eturns the last element in the recurrence.

Returns positive infinite if the recurrence is infini <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12880	12976	
==>eturns the last element in the recurrence.

Returns positive infinite if the recurrence is infini <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2627	2843	
==>n rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2627	2843	
==>n rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (defined($_line)             && 
                              !($_li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12886	13083	
==>nt( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13165	13362	
==>nt( "push" )
                 ,
                   ruleop::constant( "unshift" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	300	415	
==>ic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	300	415	
==>ic and can be used by any package:

    'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8049	8176	
==>ue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8049	8176	
==>ue. It is not yet certain if this is the case.
sub pmc_reduce {
    my $class = shift;
    my @blocks;
    my $prev;
    while ( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1087	1192	
==>turn scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $self = shift;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1041	1154	
==>ed as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the value <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4519	4632	
==>ed as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the value <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8961	9102	
==>l, undef, $flags );

        return unless $match->{bool};

        $match->{state} = {

            state => $match->{state},

            op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8648	8785	
==>l, undef, $flags );
        return unless $match->{bool};
        $match->{state} = {
            state => $match->{state},
            op <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4575	4725	
==>ackage satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{ve <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5039	5189	
==>ackage satisfies '$entry'\n" unless @found;
                
                ### XXX should be policy based
                my @sorted = sort { $b->{ve <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2629	2732	
==>rite( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2629	2732	
==>rite( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3043	3194	
==>efined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3183	3334	
==>efined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluation: $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	392	506	
==>$class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	424	538	
==>$class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->compile( $source, { signature = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	492	596	
==>method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	492	596	
==>method alternate ($a, $b) {...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9519	9628	
==>t;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Module::Co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9519	9628	
==>t;
}

# Divide a Perl module into blocks. This code divides a module based on
# lines that use/no a Module::Co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3682	3790	
==>put to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3682	3790	
==>put to the .pmc file
sub pmc_output {
    my ($class, $module, $output) = @_;
    $class->pmc_can_output($mod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	146	397	
==>tta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	146	397	
==>tta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is readonly = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3170	3502	
==>rn;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive comma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3170	3502	
==>rn;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive comma <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11362	11572	
==>o_type}test" . ($test{todo} > 1 ? "s" : "") . "\n");                
            }  
            ## XXX - End Pugs addition
                    
            $tot{good}++;
        }
        else {
            # L <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13359	13463	
==>s* ([\w:]+\s?) (.*) )?     # optional skip with optional reason
REGEX

sub _is_header {
    my($self, $li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4980	5086	
==>till in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4980	5086	
==>till in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # We h <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2336	2450	
==>treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2336	2450	
==>treat single array ref as an arg list
#        ]
#}
# comments appear to be poisonous - 2005 Jul 31
rule paramlet { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	501	608	
==>>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	501	608	
==>>;
      my $reply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2285	2476	
==>h.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2285	2476	
==>h.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=item ");
                }
            }
        },
        end_element => -> ($ev <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2264	2360	
==>cally, the first few bytes of data aren't encrypted well.  If your 
application allows, skip over <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2264	2360	
==>cally, the first few bytes of data aren't encrypted well.  If your 
application allows, skip over <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34504	34599	
==>ed parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34504	34599	
==>ed parameter
@member_names (an array ref).

Some example usage:

    my Locale::KeyedText::Trans <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13323	13428	
==>ill not be available in the index (eval $loc failed: $@)" if $@;
  $total_links += $links;
  $total_files+ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7357	7461	
==>ode_helper {
    my($name,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9198	9351	
==>_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10189	10342	
==>_old = -1;
      my $i = 0;
      my($fmin,$fagain,$frest);
      $fmin = sub{
        if($i >= $min) {
          goto &$fagain;
        }
        @_=$fmi <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	949	1159	
==>k yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current scri <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	949	1159	
==>k yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        warn "Cannot find current scri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4572	4689	
==>our own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define your own m:x()/stuff/

    As with any such syn <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	180	272	
==>method subtract($self: Duration $duration) returns Duration {
    $self.new($self.length - $d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29856	29953	
==>e

A Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29856	29953	
==>e

A Template module is very simple, consisting mainly of a data-stuffed hash
and an accessor meth <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18593	18705	
==>LOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are described
as follow <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18593	18705	
==>LOCK | POD | PLAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are described
as follow <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7676	7781	
==>hift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return can <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7676	7781	
==>hift(@basechunks);
    }
    my $result_dirs = catdir((updir) xx @basechunks, @pathchunks);
    return can <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	844	943	
==>sent, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	844	943	
==>sent, tells
the combinator to succeed as soon as it has matched C<$low> times, and
backtrack by matc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2262	2360	
==>tem * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2351	2449	
==>tem * L<Pugs::Grammar::Base> is the base Grammar: <ws>, <space>.

* Code Emitters

=item * L<Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5533	5648	
==>xport {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5591	5706	
==>xport {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	50	168	
==>arnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	48	166	
==>arnings;
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use Path::Class             ();
u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	647	787	
==>1)/e; 
        $category = 'Pugs::Grammar::' . $category;
        $category->add_rule( 
            name => $name,
            assoc => 'left <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5873	5986	
==>sed POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of development.   

=hea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5873	5986	
==>sed POD parser, it is modeled after XML SAX 
parsers and is currently in the early stages of development.   

=hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2205	2296	
==>r::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2294	2385	
==>r::Rule::Rule> specifies the Rules syntax with Rules.

=item * L<Pugs::Grammar::Base> is the <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8508	8613	
==>span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8508	8613	
==>span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6515	6642	
==>f;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6515	6642	
==>f;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	330	461	
==>node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	330	461	
==>node?) {
    $.depth  = -1;
    $.height = 1;
    $.width  = 1;
    $.node   = $node if $node.defined;   
}

## -------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1742	1846	
==>ugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebast <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1742	1846	
==>ugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AUTHOR

Sebast <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1250	1350	
==>ry footprint of constant size because the
algorithm is based on statistics. This was my main motivati <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1250	1350	
==>ry footprint of constant size because the
algorithm is based on statistics. This was my main motivati <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5108	5205	
==>C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5108	5205	
==>C<finishstr>

    push @output, $cipher_obj.finishstr();

The same as C<finish>, but returns the d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17185	17290	
==>ecifies the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
This is perh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22285	22390	
==>ecifies the 2*len+1 length of the array.
Other than that, we can do anything we want with it.
This is perh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1136	1242	
==>s defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1136	1242	
==>s defines an explicit '<KEY>' key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],
) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2190	2342	
==>s rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2190	2342	
==>s rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3149	3249	
==>hey are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3149	3249	
==>hey are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. Referer

=item 4. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4643	4754	
==>}),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8120	8231	
==>}),
    );
}

&select ::= &project;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18517	18607	
==>B0,E0,E0).
rm_repeat_min(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx,E0,Ex),
  N1 is N - <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	958	1071	
==>tr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	958	1071	
==>tr($param->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	538	667	
==>: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D') <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	538	667	
==>: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D') <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	72	193	
==>port {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	72	193	
==>port {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	203	330	
==>o
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'e <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	203	330	
==>o
# I decided to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2614	2724	
==>y'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2614	2724	
==>y'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>( <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1074	1209	
==>nput) {
    return
      unless defined $input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9980	10094	
==>1][-1]->type eq 'ifthen') {
      my $ifthen = $st->[-1][-1];
      my $cond = shift @{ $ifthen->{data} };
      $i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3567	3707	
==>with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = sh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4031	4171	
==>with _pp_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = sh <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5655	5765	
==>pty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5655	5765	
==>pty;
    return $.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.sp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4265	4530	
==>"   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4265	4530	
==>"   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($version > 0 && $netscape_only) {
                            #LWP::Debug::debug("   d <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4014	4115	
==>e => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4014	4115	
==>e => $.recurrence.get_universe, span => $_ ) };
    my $compl_recurr = $set1.new( recurrence => $.recu <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12943	13036	
==>s("(",")"). brackets("[","]").
brackets("<",">"). brackets(">","<").
brackets("/","/"). bracke <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8170	8267	
==>event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8170	8267	
==>event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1529	1634	
==>these(500, {
    PCR_x1       => sub{$rpcr->match('abc') for 1..20},
    PCR_ratchet_x1  => sub{$rpcr2-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7985	8315	
==>al->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->new(
                        Thunk->new(
                            App->new(
                                Sym <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3559	3651	
==>e,$warn) = Perl6::Run::OnPerl5::X1::Pugs::compile_p6($p6);
	    my $failed = !defined $pil_co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5490	5603	
==>return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5490	5603	
==>return $cmp if $cmp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25475	25600	
==>rovided that you include the source
code of the other components when and as the GPL requires distribution of
source code.  Ho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25475	25600	
==>rovided that you include the source
code of the other components when and as the GPL requires distribution of
source code.  Ho <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	440	537	
==>my $class = $self->interpreter_class;
    $class->require or die $UNIVERSAL::require::ERROR;
    $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	839	956	
==>_str->to_native;
}

# methods ... 
 
sub concat {
    my ($left, $right) = @_;
    (blessed($right))
        || confes <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2078	2181	
==>Pugs development.

An user-supplied regular expression may lead to execution of arbitrary code;
each alt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1698	1841	
==>ss defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1686	1829	
==>ss defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$pos\n\";\n" .
        "  my \%index;\n" . 
        "  my \@matc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9094	9289	
==>ok},
                    'next'      => $Strap->{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $results <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2673	2828	
==>keMaker::VERSION) > 6.17 and $self->sign ) {
        $args->{SIGN} = 1;
    }
    unless ( $self->is_admin ) {
        delete $args->{SIGN};
    }

    # me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10911	11008	
==>of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-valu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10911	11008	
==>of the header fields is returned.
If no such field exists C<undef> will be returned.

A multi-valu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	575	677	
==>hat build the return value based on the objects /current/
### value.. this allows subdirs to 'change' m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32386	32483	
==>y alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32386	32483	
==>y alternately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Local <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15244	15346	
==>n empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15244	15346	
==>n empty span.

= OBJECT METHODS

The following methods are available for Span objects:

- `start()` / ` <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1138	1381	
==>buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1138	1381	
==>buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31896	32015	
==>rates an error
message and wants it shown to the user, the main program would check each
of the 3 Template module sets i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31896	32015	
==>rates an error
message and wants it shown to the user, the main program would check each
of the 3 Template module sets i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2030	2137	
==>res};
}


sub nchar {
  my $self = shift;
  return map chr(/^\^(\S)/ ? (64 ^ ord $1) : charnames::vianame($_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1683	1780	
==>ipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Encipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1683	1780	
==>ipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

Encipher <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2634	2760	
==>e.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2634	2760	
==>e.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx:perl5{[^\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6840	6986	
==>replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6840	6986	
==>replace this with 'is copy' parameter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2246	2343	
==>Token("postfix:::", "postfix:*", "left", &fail);
    $optable->addToken("infix:", "<postfix:*", "r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	641	748	
==>ow> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be w <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	641	748	
==>ow> is not given, it
defaults to 0.  If C<$high> is not given, it defaults to infinity.  So
C</a*/> can be w <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19438	19537	
==>returns Relation::Example {
    return Relation::Example.new(
        heading => $!heading.union( $o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4142	4287	
==>sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4335	4480	
==>sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1160	1251	
==>tionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1160	1251	
==>tionName = Pugs::Compiler::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	156	274	
==>l
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missing arguments!";
my $output_fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	156	274	
==>l
use IO::File;

# Process command line arguments
my $input_filename = shift || die "Missing arguments!";
my $output_fi <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1034	1172	
==>$abs) or $abs = MM->maybe_command($abs));
    }

    return;
}

sub can_cc {
    my $self = shift;
    my @chunks = split(/ /, $Config::Con <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5480	5579	
==>Int';
    return new_box('Num',@_) if $cls eq 'Num';
    return get_meta('Rat')->new('$.a' => $_[0], <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16619	16746	
==>match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16898	17025	
==>match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	891	989	
==>OM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text-> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	891	989	
==>OM::Node>'s / C<Tree::DAG_Node>'s - instead of
specifying options as a hash;

 Perldoc::DOM::Text-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11161	11267	
==>ject:

  my $real_rx = $parser->qr;

The regex is formed by calling the qr() method of each node in the tre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4835	4956	
==>hift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
        unshift(@mess, "#      got "._q($got)." <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16177	16301	
==>def_rule {
  my($name,$re)=@_;
  my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2022	2134	
==>ule_decl: $name -- $regex \n";
    my $program =
    "*{'Pugs::Grammar::Rule::$name'} = sub {" . '
    my $gramma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4325	4429	
==>e> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4325	4429	
==>e> value indicates the operation to be performed; the values 
C<encrypting>, C<encrypt> and C<encipher> a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15170	15270	
==>enerate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it
c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15170	15270	
==>enerate a message to be
shown to the user.  Sometimes this is an error message of some kind, but it
c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3	129	
==>enerated file - do not edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_sta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3	128	
==>enerated file - do not edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_sta <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	483	625	
==>utput.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	483	625	
==>utput.join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	718	829	
==>" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	718	829	
==>" (true/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need thi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4255	4398	
==>parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4255	4398	
==>parts;
    
    return Proxy.new(
        FETCH => { return @old if want.List; return @old[0]; },
        STORE => -> *@new {
            my $co <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9821	9932	
==>tering the following
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17347	17446	
==>thod directly, you can only call it through an object that
inherits from that class.

There are no l <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9421	9556	
==>> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implem <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9421	9556	
==>> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to implem <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	89	220	
==>mk_containers {
    map {
        my $c = PIL::Run::Container::Scalar->new;
        $c->scalar_store($_);
        $c;
    } @_;
}

r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	607	705	
==>er API> for general information.

=head2 Constructor options

With no options, Cipher::Caesar creat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	607	705	
==>er API> for general information.

=head2 Constructor options

With no options, Cipher::Caesar creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11964	12106	
==>Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $min, $max, $data) = @_;
    my $self = bless {
      rx => $rx,
      flags => <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	161	256	
==>ata::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
require YAML;
use Scriptalicious 1.05;
use st <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17827	17967	
==>X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $fi++;
        my $conversion = substr($f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4628	4726	
==>p6_new('Undef',@_)}
sub p6_Bool {p6_new('Bool',@_)}
sub p6_Bit {p6_new('Bit',@_)}
sub p6_Int {p6_ne <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1504	1622	
==>mp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1504	1622	
==>mp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontro <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3413	3551	
==>[~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octe <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3413	3551	
==>[~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12044	12144	
==>e $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12044	12144	
==>e $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_header("Accept <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	575	704	
==>ngth\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  < <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	575	704	
==>ngth\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  < <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7613	7757	
==>$depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	914	1058	
==>$depends, $info ) ) {

                    ### if the dependency is also sastisfied by /another/
                    ### package, it's still safe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20113	20217	
==>.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as simple <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20113	20217	
==>.  Each user
language is in a separate file, and adding a localization to a Mac OS X
program is as simple <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13997	14097	
==>e this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14055	14155	
==>e this
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	23	124	
==>egy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	23	124	
==>egy;

use Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is c <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1161	1267	
==>er a BSD-style license.  See the F<LICENCE> file for details.

This program is free software; you can redis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1389	1517	
==>t @rv, _recurse_resolve( list_dependencies( $dep, 1 ) );
    }
    
    return @rv;
}    

__END__





    ### XXX can be custom <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4650	4773	
==>!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4650	4773	
==>!children.pop();    
    }
    # otherwise do some heavy lifting here    
    else {
        $removed_child = @!children[$in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	898	1152	
==>} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common compre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	898	1152	
==>} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator -
A common compre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6430	6598	
==>'', " . _emit( $n->{param} );
            }
            return " print '', $s";
        }
        if ( $n->{method}{bareword} eq 'say' ) {
            my $s = _emit <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	244	357	
==>doesn't work quite right.
# package Parser;

# use lib '../Chap6';
use Stream;# :all;

# use base Exporter;
# @EXP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7210	7309	
==>rs::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7210	7309	
==>rs::Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5670	5794	
==>$name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5658	5782	
==>$name =~ /^%/ ) {
        # XXX - runtime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $nam <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7059	7416	
==>'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Art <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7116	7473	
==>'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD'                                             => 'bsd',
            'Art <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20479	20582	
==>on where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific spelling <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20479	20582	
==>on where this is not
appropriate.  Prefixing field names with ':' allow you to force a
specific spelling <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5934	6038	
==>previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5934	6038	
==>previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18162	18263	
==>'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.referer <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18162	18263	
==>'King Kong <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.referer <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	138	389	
==>use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	138	389	
==>use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16247	16342	
==>a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16247	16342	
==>a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the parameter's <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12099	12244	
==>);
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12099	12244	
==>);
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2526	2645	
==>ame => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2526	2645	
==>ame => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $stateme <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2198	2295	
==>a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richar <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2198	2295	
==>a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Text::Glob> by Richar <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5826	5934	
==>shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.it <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5826	5934	
==>shift_n( 1 )[0]
}

method pop () {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.it <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15766	15869	
==>ce Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15824	15927	
==>ce Test.pm to always
append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5850	5978	
==>ection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5850	5978	
==>ection( $_ ) };
    return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	648	782	
==>ch = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	745	879	
==>ch = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $mat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2939	3036	
==>ost>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the cl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2939	3036	
==>ost>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP address of the cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24929	25024	
==>.

Linking Rosetta statically or dynamically with other components is making a
combined work bas <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24929	25024	
==>.

Linking Rosetta statically or dynamically with other components is making a
combined work bas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10889	11046	
==>_emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " .
            _emit( $n->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13639	13747	
==>_handlers =
    ( undef => sub { $as_array_complain->("undef"); [] },
      numeric     => sub { $as_array_co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1201	1333	
==>RUE;
    }
    else {
        return $FALSE;
    }
}

sub or : method {
    my ($self, $block) = @_;
    (blessed($block) && $block-> <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	994	1112	
==>rns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@w <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	994	1112	
==>rns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6543	6662	
==>r_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6543	6662	
==>r_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($boundary, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	739	836	
==>$x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only m <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	739	836	
==>$x)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3451	3553	
==>universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3451	3553	
==>universe = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7348	7498	
==>STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_skip {
    my $why = shift;
    my $n   = @_ ? s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5772	5877	
==>/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q(.) => Pugs::Compiler::Regex->com <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2441	2617	
==>Sym->new('$x'),
                Sym->new('$x'),
                Sym->new('$y'),
            ),
        ),
    ),
    '&infix:<*>' => Thunk->new(
        Seq->new(
            Pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7238	7335	
==>d::C::Builtins->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = shif <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28301	28396	
==>lation::Example's body.

=item C<size () returns Int>

This method returns a count of this Relat <==
2	/Users/nnunley/pugs/util/addauthors.pl	1095	1238	
==>) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }

  if (!$author) {
    warn "$c missing from AUTHO <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11321	11419	
==>yteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringif <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11321	11419	
==>yteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub stringif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12831	12954	
==>tributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these metho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12831	12954	
==>tributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these metho <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3528	3663	
==>nce, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3528	3663	
==>nce, span => $_ ) };
        return @inter;
    }
    my $span1 = $set1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.int <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1914	2037	
==>EFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1914	2037	
==>EFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20908	21015	
==>kup('$mn','$name')})";
}
sub p6_var { # XXX - not quite the right thing
    my($name)=@_;
    my $mn = p6_ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	859	965	
==>urn $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @item <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	859	965	
==>urn $str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @item <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3810	3910	
==>on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3810	3910	
==>on the fourth match of the group).  In the
latter, it will be, say, C<[2,4]> (on the third match of t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2022	2138	
==>et::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2022	2138	
==>et::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.sp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14028	14165	
==>old_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14028	14165	
==>old_here {
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8337	8475	
==>is should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].com <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8337	8475	
==>is should work
    # my @union = $self.span.union( $span.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7568	7676	
==>Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7568	7676	
==>Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorization") }

method p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1017	1121	
==>t   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1017	1121	
==>t   { ./gen(.value, $ng.fork('expr')) ~ $ng.r('expr') }

            when ::Perl::Compiler::PIL::PILThunk <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19380	19471	
==>ing C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19380	19471	
==>ing C<readline> call is used.

=head2 C<$botE<lt>curnickE<gt>()>, C<$botE<lt>curusernameE<gt <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/IO.pm	395	593	
==>(
            Param('$string'),
            App(
                Sym('&print'),
                Sym('$*OUT'),
                App(
                    Sym('&infix:<~>'),
                    Sym('$str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1101	1222	
==><equal>',
);

sub new {
    my ($class, $opt) = @_;
    my $self = { levels => [], %$opt };
    bless $self, $class; 
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1747	1872	
==>ut, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1747	1872	
==>ut, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4560	4671	
==>olation of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4560	4671	
==>olation of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9962	10149	
==>die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11439	11626	
==>die "Wanted & Meta required";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	40	138	
==>PORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	40	138	
==>PORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_to_char %char <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1580	1696	
==>>registered_alternatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg- <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	295	407	
==>$delimiter ; *@values) returns List {
   my $str = ~@values[0];
   for 1..@values.end {
     $str ~= $delimiter ~ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3625	3725	
==>-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3625	3725	
==>-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14770	14894	
==>$mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14770	14894	
==>$mode {
      ./:enqueue("MODE $target $mode");
    } else {
      ./:enqueue("MODE $target");
    }
  },
  method invite(Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18997	19097	
==>prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<data> field is the string "POSIX".  P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	73	164	
==>erl6::Run::OnPerl5::X1::Api;
use Perl6::Run::OnPerl5::X1::Compile;

use Data::Dumper;
$Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	1263	1398	
==>',    # <str>
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<++>',
    );

    __PACKAGE__->recompile <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	321	416	
==>py_all('src', 'blib6/arch/CORE/pugs');
    copy_all("$_/blib/", 'blib6/pugs/perl5') for <perl5/* <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	45	153	
==>urrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	45	153	
==>urrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1850	1968	
==>er($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1850	1968	
==>er($field, $val) }
  );
}

method clear () { %!headers = () }

method push_header ($self: Str $field, Str $val) {
  $se <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	735	835	
==>VEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not v <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	735	835	
==>VEATS

Currently, only the Perl 5 side can invoke subroutines defined from the
Perl 6 side, but not v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7981	8091	
==>normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Some <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7981	8091	
==>normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Some <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1560	1665	
==>te) {
        print <<".";
*** Build config file '$filename' is older than template
    '$config_template' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1065	1166	
==>st be a core type";    
    return num->new($left->to_native + $right->to_num->to_native());
}

sub su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7918	8019	
==>s => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7918	8019	
==>s => $span );

= DESCRIPTION

This class represents an ordered set of spans.

The problem this class s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10443	10547	
==>ich is already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10443	10547	
==>ich is already inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7277	7404	
==>TENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7277	7404	
==>TENT_LENGTH>;   
            
        if (lc($REQUEST_METHOD) eq ('get' | 'head')) {
            $QUERY_STRING = %*ENV<QUERY_STR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7358	7464	
==>--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7358	7464	
==>--boundary$CRLF") ~ "$CRLF--$boundary$CRLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15272	15371	
==>Methods that deal with dates/times always convert their value to system
time (seconds since Jan 1, 1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15272	15371	
==>Methods that deal with dates/times always convert their value to system
time (seconds since Jan 1, 1 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5674	5795	
==>ub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# ------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5674	5795	
==>ub ($x) { - &{ $set._get_complement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# ------- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6157	6252	
==>--> "\\Z".
p5_elemental(eos)   --> "\\z".
p5_elemental(bol)   --> "^".
p5_elemental(eol)   --> " <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2066	2163	
==>le, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look fo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2066	2163	
==>le, if 
a function in C<Some::Module> called C<note> without providing any tags, it 
would look fo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2877	2966	
==>s \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module_ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2877	2966	
==>s \$(GHC_FLAGS) $module_name.hs

$module_name.hs :: $module_path
	pugs --external $module_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1036	1137	
==>ence set with full bidirectional functionality.

The complementary functions are emulated using iterat <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1036	1137	
==>ence set with full bidirectional functionality.

The complementary functions are emulated using iterat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1911	2035	
==>ends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1969	2093	
==>ends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $te <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4176	4305	
==>::InternalValue::Reference $V) {
    my $Result2 = GetBase($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	267	423	
==>mple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	265	421	
==>mple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self    = shift;
    my $conf    = $self-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	95	194	
==>tegory);
use Pugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TODO - implement the " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2591	2863	
==>ace::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Rosetta::Interface::Value class, th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2591	2863	
==>ace::Command

###########################################################################
###########################################################################

class Rosetta::Interface::Value {

    # External packages used by the Rosetta::Interface::Value class, th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12995	13098	
==>ists $args{switches} && grep m/^-T$/, @{$args{switches}} and $tainted++;

    if ($tainted) {
	# We will <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5868	5979	
==>eturns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9345	9456	
==>eturns Relation {
    return Relation.new(
        heading => $heading,
        body => set( $!body.values.map:{ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1236	1330	
==>self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1236	1330	
==>self.size;
}

method includes($self: *@items) returns Bool {
    ?(%!members.exists(all(@items. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5102	5211	
==>n {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5102	5211	
==>n {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.star <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4647	4770	
==>nt;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4647	4770	
==>nt;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3858	3985	
==>ecoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3858	3985	
==>ecoded ~~ s:perl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2648	2742	
==>->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ---- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2648	2742	
==>->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ---- <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6862	6997	
==>for Bash binary",
  ensure => sub { -r $bash and -s $bash };

my $pugs_version;
step
  descr  => "Querying Pugs for its version",
  ensu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17259	17355	
==>s a terse way of saying that it subscribes to the
localization methodology that is described here <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17259	17355	
==>s a terse way of saying that it subscribes to the
localization methodology that is described here <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	86	194	
==>rl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    m <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	86	194	
==>rl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10008	10126	
==>= $_[0];
    $name = '$grammar->' . $_[0] unless $_[0] =~ /->/;
    return "$_[1] capture( '$_[0]', sub{ $name(\@_) } ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39975	40078	
==>(at your option) any later version.  You
should have received a copy of the LGPL as part of the Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39975	40078	
==>(at your option) any later version.  You
should have received a copy of the LGPL as part of the Locale:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6062	6199	
==>the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DAT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6062	6199	
==>the DATA section.
            next if $lines_to_skip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DAT <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3098	3196	
==>ir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3098	3196	
==>ir (Str $dir) returns Array`

- `splitpath (Str $path, Bool ?$nofile) returns Array`

- `catdir (*@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2340	2474	
==>leop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2351	2485	
==>leop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	360	503	
==>source => $rule_source };

    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	954	1072	
==>Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'} - $increment;
      }
      elsif($prec = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	26	124	
==>londie::Runtime;

use strict;
use warnings;

use UNIVERSAL::require;

use Blondie::Prelude;

sub ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19656	19754	
==>with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19656	19754	
==>with a server or a
proxy, may do so by including these headers.

=item $h.authorization_basic

This <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2038	2168	
==>extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ $extrac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1958	2085	
==>extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ $extrac <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3520	3650	
==>er('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3520	3650	
==>er('', $status, cookies => $cookie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3224	3356	
==>e constants
use constant ISA_JIB_PACKAGE
                            => sub { UNIVERSAL::isa(shift(), 'JIB::Package') }; 
use constan <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1873	1972	
==>(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*8640 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	367	468	
==>et::Object->new;

    $self->reduce($program);

	$self->{dups}->members;
}

sub generic_reduce {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	502	619	
==>al(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	502	619	
==>al(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./assertion: -> $m {
        my $pos <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10810	10906	
==>RL5LIB;

Takes the current value of C<@INC> and turns it into something suitable
for putting onto <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22074	22175	
==>urns the first one it finds.  This also works for the multiple language
or permissions issue; simply o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22074	22175	
==>urns the first one it finds.  This also works for the multiple language
or permissions issue; simply o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	609	737	
==>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	609	737	
==>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9323	9448	
==>[1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9381	9506	
==>[1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :todo(1));
  is(2 + 2, 5, desc => '2 and 2 make 5', todo => 1);
  isa_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40993	41087	
==>NOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a fea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40993	41087	
==>NOWLEDGEMENTS

=over

=item Jason Martin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a fea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4939	5039	
==>DS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final posit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4939	5039	
==>DS

=head2 from ()

Returns the initial position of the match.

=head2 to ()

Returns the final posit <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3351	3439	
==>n_more(W, Z), !.
p5_concatenation(noop) --> {true}.
p5_concatenation_more(W, Z) --> p5_qu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	641	749	
==>0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	641	749	
==>0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	434	577	
==>sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	416	554	
==>sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3524	3623	
==>takes --pugs as the binary to put on the CD.
  --parrot-path=$parrot_path
    mklivecd.pl takes --pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1219	1335	
==>}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1219	1335	
==>}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label};
    ref($ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9140	9278	
==>e are the type signatures of some builtins
our %prelude = (
	# int -> int -> int
	add => type::operator::arrow->new(
		type::operator::null <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	729	853	
==>%$n;
        my $v = $n->{$k};
        return '' unless defined $k;
	return emit_node($k,$v);
    }
    die "unknown node!! " <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	476	583	
==>e - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =he <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	476	583	
==>e - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this:
 #
 #  =he <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13423	13518	
==>%entity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13423	13518	
==>%entity_to_char
hash must be provided.  Named entities not found in the %entity_to_char
hash are <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3160	3305	
==>(my $line = $it->next) ) {
        $self->_analyze_line($line, \%totals);
        last if $self->{saw_bailout};
    }

    $totals{skip_all} = $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37162	37250	
==>::Parser>, L<Regexp::Parser::Handlers>.

=head1 AUTHOR

Jeff C<japhy> Pinyan, F<japhy@per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4778	4905	
==>:Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$new_emitter_p5 );

      

=head2 E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4614	4736	
==>:Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$new_emitter_p5 );
      
=head2 E <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3580	3685	
==>/[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3580	3685	
==>/[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5033	5150	
==>, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5255	5372	
==>, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended to bind variables in a macro, <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16705	16844	
==>:do_round)
    }

    sub truncate($n) is primitive is safe {
        int($n)
    }
    our &trunc ::= &truncate;

    sub do_ceil($n) is pr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16463	16564	
==>t::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (10 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16463	16564	
==>t::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (10 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5367	5492	
==>class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11022	11147	
==>class, $rx, $data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1654	1754	
==>ill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the re <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1654	1754	
==>ill (this introduces a new scope).
If no $num or $name is given, a new scope is introduced but the re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3795	3929	
==>ault value
            $Obj->$acc( $config{$key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we do <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1265	1389	
==>hift;

	push @{ $self->{param_count_stack} }, 0;
	
	$self->SUPER::enter_scope;	
}

sub leave_scope {
	my $self = shift;

	$se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3283	3401	
==>RG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This gro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3283	3401	
==>RG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This gro <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13677	13793	
==>ources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading.union <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15202	15318	
==>ources have zero tuples; so does result.
        return Relation::Example.new(
            heading => $!heading.union <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2039	2211	
==>_registered_alternatives'} 
                            = [ 'registered-alternatives' 
                                                => SUBFILE_OF_META  ];

### source pac <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1079	1183	
==>ype";    
    return num->new($left->to_native + $right->to_num->to_native());
}

sub subtract {
    my ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8264	8368	
==>tim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=ite <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8264	8368	
==>tim section is found.
    
=item I<end_element ('verbatim')>

This event closes a verbatim section.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22568	22660	
==>face::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22568	22660	
==>face::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16430	16542	
==>ize 'syntax'.
    $results =~ s/^(syntax|parse) error/syntax error/mig;

    if ($^O eq 'VMS') {
        # some t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4875	4994	
==>module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4875	4994	
==>module
        or die "Can't open $module for input:\n$!";
    my $module_content = do { local $/; <$fh> };
    close $f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2670	2777	
==>s_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2670	2777	
==>s_closed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3	101	
==>kage Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3	101	
==>kage Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1945	2083	
==>ns          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1945	2083	
==>ns          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    tokens     => { $self<token_flow>(); $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	228	342	
==>compilation.

=head1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::Nodes; # for easy cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5164	5261	
==>::Grammar::Term.double_quoted>
            { return { double_quoted => $/{'Pugs::Grammar::Term.dou <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8280	8415	
==>encode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8280	8415	
==>encode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX check for HT <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5580	5709	
==>_content, $meta;
        
        ### XXX do delayed writes, as an explicit ->write() call on the
        ### object, like in JIB: <==
2	/Users/nnunley/pugs/util/importgraph.pl	1569	1678	
==>@_;
  $regexp = qr/$regexp/;
  for my $mod (keys %modules) {
    next unless $mod =~ /$regexp/;
    $modules{$ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1588	1722	
==>parator);



 multi sub zip (Array *@lists) returns List {
   gather {
     while any(@lists) {
       for @lists -> @list {
         t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10400	10515	
==>named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10679	10794	
==>named_capture;
*{'immediate_statement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10017	10119	
==>DED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10017	10119	
==>DED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=head1 S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12861	12978	
==>] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3898	4001	
==>sition) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /</ )
  {
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3433	3555	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3433	3555	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Y <==
2	/Users/nnunley/pugs/misc/S29_round.pl	303	423	
==>turn $x_round;
}

our Int multi Num::round_half_up_asymmetric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1544	1632	
==>ule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1544	1632	
==>ule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "pa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11202	11295	
==>ild_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11202	11295	
==>ild_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_chil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3050	3196	
==>_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;

    return;

};



sub variable {

    #return unless $_[0];

    return { 

        bool  => 1,

        m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2932	3070	
==>_[0] =~ /^((?:\s|\#(?-s:.)*)*)(.*)$/s;
    return;
};

sub variable {
    #return unless $_[0];
    return { 
        bool  => 1,
        m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6456	6581	
==><from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6456	6581	
==><from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	655	757	
==>a native form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1245	1347	
==>a native form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new((shift) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3193	3394	
==>ir(''), 
                ) {
                    system( qw[mkdir -p], $subdir )     and error($?), return;
                }
        
                ### set up the files
                for my $meth ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7150	7295	
==>of
        # the meta file
        push @index_files, file($path.'.index');
        push @index_files, map { $path->file($_) }
                $se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	460	687	
==>1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	460	687	
==>1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	949	1061	
==>l(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that contains 'ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	949	1061	
==>l(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that contains 'ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1951	2087	
==>st_error ), return;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor object, blessed in th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2482	2613	
==>${to}",
							type => [$from => $to],
						),
					),
				),	
			),
			(ref $node)->new(
				%$node,
				orig => Blondie::Val->new <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1578	1678	
==>$field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1578	1678	
==>$field_code ~= "\n  has \$.$n;"; }

    $code ~= "class Perl::Compiler::PIL::Node::X0::{$constructor} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2254	2429	
==>= eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and mayb <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2312	2487	
==>= eval $code;
    if (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and mayb <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4201	4300	
==>uce Pugs.
  --splashscreen=$splashscreen
    The file referenced by --splashscreen will be displayed <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	454	565	
==>atement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	660	771	
==>atement_exec = sub {
        my $match = immediate_statement_rule( @_ );
        # print "immediate_statement_ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	676	784	
==>rates

  (link to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we hav <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	644	743	
==>rates
  (link to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we hav <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2091	2185	
==>ing_group>|<quantified_construct> }
rule quantified_construct  {  <construct_but_not_alias> <qu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13461	13561	
==>nother file or test which must be
made to pass before this test can pass (or before an implementation <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13519	13619	
==>nother file or test which must be
made to pass before this test can pass (or before an implementation <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3134	3238	
==>ment_previous, $set.complement_next, $set.complement_previous ),
        complement_previous => $self._ge <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3134	3238	
==>ment_previous, $set.complement_next, $set.complement_previous ),
        complement_previous => $self._ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7908	7998	
==>c_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_au <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7908	7998	
==>c_auth("Authorization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_au <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4539	4661	
==>} =~ m{ \G \(\?\# [^)]* }xgc) {
      ${&Rx} =~ m{ \G \) }xgc and redo;
      $self->error(RPe_NOTERM);
    }
    &Rf & $se <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7063	7173	
==>lt4;
}

# 9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign floor abs);
    my $Result1 = ToNumber($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	181	290	
==>ring, and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	181	290	
==>ring, and it provides the fundamental operations on strings as
combinators.

    $.text     - The string
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	11	111	
==>ig::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	11	111	
==>ig::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32102	32205	
==>g for a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32102	32205	
==>g for a match to said error
message.  If it finds one, then that is displayed; if not, it then checks
ea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2902	3041	
==>me
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2902	3041	
==>me
    # update: this is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16376	16482	
==>>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and potential
par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16376	16482	
==>>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and potential
par <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10230	10401	
==>}
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### takes a string with a wanted package and an optional available l <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	77	187	
==>, $b );    # $a.infix:«<=>»( $b );
infix:<¥>( @a, @b );      # @a.infix:<¥>( @b );
#=circumfix
circumfix:« <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9898	10046	
==>ure( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10177	10325	
==>ure( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4779	4879	
==>t>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5029	5129	
==>t>.

Please join us on irc.freenode.net #perl6 if you'd like to participate.

=head1 SEE ALSO

The Pe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14975	15093	
==>et, pos, $I1
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0
    got <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4451	4562	
==>";
    goto token_match;
    bsr_token_match_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8116	8231	
==>d_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'res <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8116	8231	
==>d_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { 'name' => 'res <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1863	1975	
==>ex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | b <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1863	1975	
==>ex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7801	7901	
==>ec {
    return get_data( $_[0], '$<perl5>' );
}
sub node::immediate_statement_rule {
    return emit <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1305	1446	
==>t
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!succe <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1305	1446	
==>t
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!succe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13863	13984	
==>1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold oth <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13863	13984	
==>1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don't fold oth <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7092	7237	
==>f+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! un <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5593	5738	
==>f+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! un <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	215	371	
==>cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized optio <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	215	371	
==>cur {
            when '--' { last }
            when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized optio <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	615	712	
==>i *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	615	712	
==>i *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *postfix <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8398	8531	
==>ld
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8398	8531	
==>ld
# or create a tree you are doing it with 
# a single tree and not a hierarchy.
# If however you are creating your tree
# bottom-up, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26911	27008	
==>Relation>

This method is the same as C<project> but that the returned Relation has
the complement <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31463	31560	
==>Relation>

This method is the same as C<project> but that the returned Relation has
the complement <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8407	8516	
==>s not implemented.  And is unexpected.\n";
	return "";
    }
    if($kind eq 'Coroutine') {
	warn "Coroutine n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21438	21545	
==>specifically, making sure C<(?(N)T|F)> works right).
In doing so, found that the "too many branches" error w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7680	7843	
==>) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How di <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7680	7843	
==>) {
            my $content = $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How di <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23138	23306	
==>(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42741	42908	
==>(symbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9062	9179	
==>m_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_differ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9062	9179	
==>m_difference = $set % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_differ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9262	9373	
==>c operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9262	9373	
==>c operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $set2;  # o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	248	357	
==>Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	231	336	
==>Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	284	387	
==>e `return()`, because
that messes up PIR generation.  To return a value, arrange for
it to be the last e <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14757	14893	
==>t;

        for my $headlevel (reverse 1..7) {
          my $tag = 'h'.$headlevel;
          
          while (my $beg = $sobj->look_down <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8498	8612	
==>t or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8498	8612	
==>t or @{$next->[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	649	764	
==>whether we'll need root permission.
print "    (You may need to do that as the 'root' user.)\n"
    unless -w $Confi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13850	13945	
==>tions) pass their env to eval their children
comb: env($.fun) = { env($$) }
comb: env($.param) = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1606	1705	
==>x engines.  Its structure follows the spec.  If for
#  instance, your engine cannot handle left recu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21179	21275	
==>ase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21179	21275	
==>ase, etc).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11581	11683	
==>currence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11581	11683	
==>currence that are not in the given recurrence.

- `intersects( $recurrence )`

Returns true if this rec <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3298	3394	
==>olving compile time resolvable symbols into values

=item *

Replacing all values which the runti <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1400	1495	
==>(0);
    }
}

use Perl6::Run::OnPerl5::X1;
use Perl6::Run::OnPerl5::X1::Compile;
use Perl6::Run: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6302	6410	
==>hed' flag in the returned match, 

that makes it return until the start of the rule, which unsets the flag be <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6097	6204	
==>hed' flag in the returned match, 
that makes it return until the start of the rule, which unsets the flag be <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3888	3997	
==>._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3888	3997	
==>._normalize_parameter( $span );
    my $tmp = $span0.union( $span1 );
    my $res = Set::Infinite.new();
    $ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4501	4605	
==>],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @strin <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4501	4605	
==>],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @strin <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1282	1400	
==>lti sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:1 <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1282	1400	
==>lti sub uri_unescape ($str is copy) returns Str is export(:DEFAULT) {
        $str ~~ s:P5:g/%([0-9A-Fa-f]{2})/{ chr(:1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10868	10996	
==>n;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and proce <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10868	10996	
==>n;
      ./:readline;
      ./:livecheck;
      ./:handle_pseudo("runloop");
    }
  }

  # Read a line from the server and proce <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1479	1591	
==>= %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1479	1591	
==>= %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4992	5153	
==>>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4992	5153	
==>>  sub { $size },
                    cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	956	1079	
==>ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	956	1079	
==>ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3993	4291	
==>(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port do <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3993	4291	
==>(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port do <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5980	6083	
==>ject(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  });

  $s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17944	18027	
==>B0,Bx,E0,Ex),
  rm(star(Re),Fx,F1,Bx,B1,Ex,E1).
rm(repeat(Re,Min,Max),F0,F1,B0,B1,E0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5026	5146	
==>er('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->obje <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1609	1729	
==>er('\t' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\t", '\t') if $cc;
    return $S->obje <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10197	10334	
==>%char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10197	10334	
==>%char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %char_to_entity = %temp;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1764	1877	
==>ral).



App is divided to Multiple, Single and Primitive dispatch.

Lit is divided to various intrinsic object ty <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1695	1805	
==>ral).

App is divided to Multiple, Single and Primitive dispatch.
Lit is divided to various intrinsic object ty <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	901	1004	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message obje <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	901	1004	
==>ass, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Message obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5041	5149	
==>rt/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5041	5149	
==>rt/,) {
        my $message = ::?CLASS.new(.remove_content_headers, .content(""));
        $self.content_type <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	542	647	
==>to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	542	647	
==>to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #tail = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1617	1764	
==>);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1617	1764	
==>);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new_path));
}

sub catfile <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4166	4259	
==>ar::Util::blessed($self)){
		return 1 if $self->{class_that_should_be}->isa($class);
	}
	 
	$s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9718	9838	
==>r 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9718	9838	
==>r 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12647	12830	
==>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12641	12824	
==>to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7366	7489	
==>y Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7366	7489	
==>y Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4981	5084	
==>($Foo->superclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7649	7752	
==>($Foo->superclass, $Object, '... $Foo got the right method return value');
is_deeply(
    [ $Foo->class_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	44	145	
==>3.prefix:<->()
="file"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein prefix Listen-Opera <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9657	9762	
==>ut not all, ciphers will need to override these
method _head() returns Array { return }
method _tail() ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9657	9762	
==>ut not all, ciphers will need to override these
method _head() returns Array { return }
method _tail() ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7952	8044	
==>%!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7952	8044	
==>%!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	58	152	
==>This class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	58	152	
==>This class defines <ws>, unicode character classes, etc
# runtime parameters are: $grammar, $st <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13493	13599	
==>e
made to pass before this test can pass (or before an implementation
could be started).  This is most usef <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13551	13657	
==>e
made to pass before this test can pass (or before an implementation
could be started).  This is most usef <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15370	15486	
==>t is present inside the function, if it was free it might be unified to a concrete value
	$ret;
}

# in a let block w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28510	28621	
==>eganch & ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_on(prog)		((prog)->reganch |= ROPT_MATCH_UTF8)
 #define RX_MATC <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8142	8257	
==>e;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8335	8450	
==>e;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variabl <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1272	1423	
==>e as
            # our last result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1272	1423	
==>e as
            # our last result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7861	7962	
==>as killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7861	7962	
==>as killed by \"$event<from>\" (\"$reason\").";
    }

    my @chans = %users{~normalize($killee)}<chan <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6091	6211	
==>extensions {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3768	3887	
==>extensions {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1600	1687	
==>(blessed($return_value) && ($return_value->isa($self->{sig}->returns) || $return_value-> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	297	395	
==>on functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Voi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	297	395	
==>on functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_params returns Voi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7082	7205	
==>=> chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7082	7205	
==>=> chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	979	1074	
==>alled C<Type>.  Perhaps this module should be called
something else like C<t>, or maybe they are <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7830	7979	
==>, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7830	7979	
==>, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that w <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7549	7660	
==>>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7549	7660	
==>>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Update % <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	569	692	
==>EFAULT} ) {
        local $ENV{PERL_MM_USE_DEFAULT} = 1;
        goto &ExtUtils::MakeMaker::prompt;
    } else {
        got <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	870	973	
==>r level, so different 
character encodings may be enciphered in different ways.

=head2 Using the API

T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	870	973	
==>r level, so different 
character encodings may be enciphered in different ways.

=head2 Using the API

T <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	77	199	
==>dium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within that string, and it provid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	77	199	
==>dium;

=pod

C<Text> is the most common medium.  It stores a finite string and a position
within that string, and it provid <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10661	10780	
==>y()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new element <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10661	10780	
==>y()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new element <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5269	5378	
==>ld.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5269	5378	
==>ld.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the responsibil <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2022	2129	
==>sts(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2022	2129	
==>sts(), delete() - S29

# TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse a <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8681	8797	
==>close $fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $index->{_dirs}->{$_});
    }
} 

# Note: modf <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1736	1837	
==>}

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   invocant => $in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1042	1137	
==>-Range Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1042	1137	
==>-Range Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1475	1585	
==>EAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everyt <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1475	1585	
==>EAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everyt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10	152	
==>d file - do not edit!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10	151	
==>d file - do not edit!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5830	5924	
==>64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5830	5924	
==>64)~$dec2hex(128+$num%64); }
        else { $dec2hex(252+$num/1073741824)~$dec2hex(248+($num/16 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2129	2348	
==>res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2129	2348	
==>res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4310	4459	
==>path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4310	4459	
==>path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($path);
    my @dirs = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11948	12048	
==>TIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11948	12048	
==>TIONS

- `next( $x )`

Returns the element in the recurrence that is right after the parameter.

- `p <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	151	272	
==>s.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	151	272	
==>s.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13534	13630	
==>:exists ($key --> Bool )

True if invocant has an element whose key matches C<$key>, false
otherw <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12198	12287	
==>\", ("x";"X"), !, p6_hex_spec(X), !.
p6_hex_spec(char(C)) --> hexdigits4_int(C), !.
p6_hex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16112	16213	
==>cument, and
whose Node Type attribute is set from the named parameter $node_type (a
string); the optio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16112	16213	
==>cument, and
whose Node Type attribute is set from the named parameter $node_type (a
string); the optio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3156	3284	
==>tive path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3156	3284	
==>tive path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all names with $parentDir
    $ba <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5450	5575	
==>rn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5450	5575	
==>rn $x;
}

method previous ($self: $x is copy ) {
    $x = $.recurrence.previous( $x );
    if $x > $.span.end && ! $.span.end_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1992	2092	
==>namic lookup. 



This object-serialization format is shared across all runtimes.



=head1 Directory <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1918	2014	
==>namic lookup. 

This object-serialization format is shared across all runtimes.

=head1 Directory <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7795	7895	
==>ray.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com> <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7795	7895	
==>ray.push( $lazy_array_2.list );  

- `fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3174	3268	
==>st of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3174	3268	
==>st of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	587	700	
==>turn $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	587	700	
==>turn $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    retu <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3306	3410	
==>on  { <assert_bos>|<assert_eos>|<assert_bol>|<assert_eol>|<lookahead>|<lookbehind>|<word_boundary> }
rule <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	189	319	
==>ap/;
}

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12270	12367	
==>ew child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute defa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12270	12367	
==>ew child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute defa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	498	598	
==>cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programm <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	498	598	
==>cryptographic ciphers.  Ciphers 
conforming to the Cipher API are interchangable, allowing a programm <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	138	277	
==>y {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	138	277	
==>y {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$key}) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	334	433	
==>return $class->no_match unless $_[0];
    #print "match pair $_[0]\n";
    return Pugs::Runtime::Mat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1834	1994	
==>);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1834	1994	
==>);
                           # Our current nick, username, ircname, etc.
  my $nickgen = new_permutation($nick);
                           # A permutation obje <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	45	155	
==>::Emitter::Rule::Perl5;
our %nodes;

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13829	13915	
==>mber_chars(I, [42,111,D0|D]) }.% [42,111]="0o"
octdigits([D|T]) --> octdigit(D), octdig <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3240	3359	
==>${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3240	3359	
==>${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4417	4549	
==>butes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7894	8026	
==>butes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6533	6658	
==>eholder")
	}

	sub types_eq {
		my $self = shift;
		my $h = indent;

		my $x = shift;
		my $y = shift;

		warn "comparing $x a <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10996	11112	
==>=> "Note: You might want to strip pugs and parrot to save space.",
    ensure => sub {
      for(@files) {
        my <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24061	24166	
==>attr (symbol new @:superclasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	734	844	
==>atulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	734	844	
==>atulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i>(If you' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10707	10800	
==>item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_type re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10707	10800	
==>item B<query_string returns Str>

=item B<request_method returns Str>

=item B<content_type re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2839	2960	
==>s;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2839	2960	
==>s;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	525	669	
==>dir {
    my $self = shift;

    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1 },
    };

    my $args = check( $tmpl, \%ha <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3910	4017	
==>g tests from tests.yaml\n";
}
print "Output directory      : $output_dir\n";
print "\n";

my $quotable = qr/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6405	6544	
==>{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6405	6544	
==>{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16857	16965	
==>normally just write some components of their application in Rosetta D (as
either named modules or anonymous r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16857	16965	
==>normally just write some components of their application in Rosetta D (as
either named modules or anonymous r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	351	454	
==>print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1078	1180	
==>print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{match}[0]{match}[1]{captur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8576	8677	
==>rs and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8576	8677	
==>rs and copyright holders DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	78	329	
==>at don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	78	329	
==>at don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1891	2014	
==>recompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2108	2231	
==>recompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelude_file.p6" ) or 
            die "can't open prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5027	5151	
==>0]->{out}= $_[1] }
    | stmt exp            
        { $_[0]->{out}= { op1 => ';', assoc => 'list', list => [ $_[1], $_[2] ] <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	576	685	
==>bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	576	685	
==>bucket<count>(3);  # or, e.g. $bucket<count>(1) for 1..3;

    if($bucket<conform>(10)) {
      die for 'truth <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12372	12481	
==>s::Internals::runInteractiveCommand($command);
        ($in, $out, $err, $pid);
    }
}


role Iter {
    mult <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15832	15931	
==>the same levels as the input, unless specified otherwise.

=over

=item chop

 multi Str::chop (  St <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	900	1049	
==>ontrol.tgz
            system( qq[tar -f $my_tmp_dir/$Control -C $my_tmp_dir ] .
                    qq[-xz ./$Metafile] )                       and d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8058	8169	
==>t<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # al <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8058	8169	
==>t<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # al <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8354	8460	
==>t<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8354	8460	
==>t<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and update
  # all <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2737	2857	
==>nsity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

met <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2737	2857	
==>nsity if defined $.density;
    return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

met <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12281	12391	
==>s
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single line containi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12281	12391	
==>s
)
/xsm;

# Fold each heredoc, pod section, comment block and data section, each
# into a single line containi <==
2	/Users/nnunley/pugs/util/package-osx.pl	8170	8272	
==>Perl6::Spec::Structure.3pm
        /usr/local/man/man3/Perl6::Spec::Subroutine.3pm
        /usr/local/m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13895	13993	
==>`skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13953	14051	
==>`skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, you can <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18828	18928	
==>us hash
definition.  While it is obvious that people who would be writing the text
would have to know <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18828	18928	
==>us hash
definition.  While it is obvious that people who would be writing the text
would have to know <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	203	304	
==>.}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	203	304	
==>.}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1873	1967	
==>en, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair construct <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1873	1967	
==>en, all functions can be "infixized".

=head2 C<< infix:<⇒> ($key, $value) >>

Pair construct <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16829	16954	
==>o_ceil($n) is primitive is safe {
        ($n < 0) ?? (-int(-$n)) !! int($n + 1)
    }
    sub ceiling($n) is primitive is saf <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1053	1171	
==>self->meta->package );
    
    return $self;
}

=head2 $path = $pkg->file

Location of the source package

=head2 $met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1844	1958	
==>e too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$remainder) = T <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1771	1880	
==>e too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$remainder) = T <==
2	/Users/nnunley/pugs/util/package-osx.pl	4086	4205	
==>m
        /usr/local/man/man3/Perl6::Bible::A20.3pm
        /usr/local/man/man3/Perl6::Bible::E02.3pm
        /usr/local <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30993	31088	
==>ple has as
many additional attributes as there are pairs in the argument C<$attrs>,
where the ke <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	68	202	
==>[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	68	202	
==>[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1775	1870	
==>on;  
}

#get_string_keyed_int
#get_pmc_keyed_int
#set_pmc_keyed_int
#delete_keyed_int
#defined_ <==
2	/Users/nnunley/pugs/util/drift.pl	963	1058	
==>ess @program;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary_header = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	294	418	
==>my $f = 0) => __PACKAGE__;

sub new {
    my (undef, $value) = @_;
    (defined $value            && 
     looks_like_number( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1425	1635	
==>e => \$index_file
            },
            packages => {
                default     => [ ],
                no_override => 1,
                store       => \$pkgs,
            },
        };

        check($t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21406	21502	
==>ta[1].utf8_substr
 #define float_min_offset substrs->data[1].min_offset
 #define float_max_offset <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8357	8483	
==>apture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8550	8676	
==>apture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	152	255	
==>used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	152	255	
==>used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13925	14070	
==>ct => 
                    { bin => \@bins, auto => 1, package => $inst_pkg->package } 
                ) or return;

    ### dump out alternative <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12297	12428	
==>};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($self->mi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	475	583	
==>y-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	475	583	
==>y-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files that ma <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9636	9754	
==>/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $resul <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9636	9754	
==>/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $resul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1910	2032	
==>as byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.tabl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1910	2032	
==>as byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.tabl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20786	20901	
==>x}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17207	17322	
==>x}, &RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6537	6689	
==>_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.define <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6595	6747	
==>_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends working)";
    }

    my $out = $desc.define <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26112	26218	
==>ranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyrigh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26112	26218	
==>ranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE.  However, for an additional fee, the copyrigh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13605	13724	
==>en we also unterminated named
entities will also be expanded.  The longest matching name in
%entity_to_char will be used <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13605	13724	
==>en we also unterminated named
entities will also be expanded.  The longest matching name in
%entity_to_char will be used <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4982	5105	
==>a"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4982	5105	
==>a"    => chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1181	1288	
==>self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«< <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1181	1288	
==>self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20058	20209	
==>h @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16479	16630	
==>h @{ $S->{flags} }, &Rf;
        push @{ $S->{next} }, qw< c) atom >;
      }
      &Rf |= $f_on;
      &Rf &= ~$f_off;
      return $S->object($type => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7099	7251	
==>$base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7099	7251	
==>$base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2211	2319	
==>nnected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2211	2319	
==>nnected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.debug_raw;
    $!socket.print("$msg\13\10 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13672	13787	
==>>
              <a href="<tmpl_var name=link>" title="Full smoke report">View full smoke report</a>
            </td <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5985	6099	
==>codeLetter>
    | <'$'>
    | <'_'>
    | <'\\'> <UnicodeEscapeSequence>
}
rule IdentifierPart {  # see 7.6
      < <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10159	10248	
==>$')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10894	10983	
==>$')?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	734	844	
==>unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This modul <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2015	2125	
==>unless( can_load( modules => { 'File::Path' => 0.0 } ) ) {
        error( "Could not use File::Path! This modul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4971	5090	
==>O REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Defi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4971	5090	
==>O REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Defi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3404	3505	
==>5 17 19
  Failed 1/5 test scripts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Everything passed <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16532	16654	
==>,$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15586	15700	
==>,$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7054	7184	
==>$boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7054	7184	
==>$boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36550	36649	
==>case is where C<@others> is an
empty list, in which case the returned Relation is identical to the
i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41099	41198	
==>case is where C<@others> is an
empty list, in which case the returned Relation is identical to the
i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5626	5740	
==>ous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5626	5740	
==>ous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_next }( -$x ) },
        univer <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3274	3403	
==>resis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelan <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3274	3403	
==>resis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # small thorn, Icelan <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	993	1222	
==>my $in_string = 0;
        my $in_block = 0;
        
        my @t;
        my @buffer;
        
        my @x = @{$sexpr};
        foreach my $i (reverse(0 .. $#{$sexpr})) {
            my $t = $sexpr->[$i];
            if (ref( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3746	3870	
==>l error conditions
    # in library code. Do either! Let your caller decide!
    # instead of "die             'file not foun <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5912	6021	
==>urned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5912	6021	
==>urned

=item Item Context

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10164	10389	
==>else {
                die "Illegal token: $entry\n";
            }
        }
        
        $str =~ s/^ AND //;
        
        return $str;
    }
        
     
    ### takes a string with a wanted package and an optional <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	352	453	
==>arams;

has Array of Perl::Binding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6130	6244	
==>ptions... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented only in Pugs::Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5920	6031	
==>ptions... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented only in Pugs::Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1318	1410	
==>gs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b](b)');
my $rpcr2 = Pugs: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1705	1807	
==>se --> Num )
 {
     Math::Basic::log($x,$base);
 }
 multi Math::Basic::log ( Num $x = CALLER::<$_>, Nu <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3681	3783	
==>:«<=>»;
  }
  @array.max:{ $cmp($^b, $^a) };
}
&min ::= *&List::min;
# derived from PIL2JS Array.pm r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16541	16639	
==>t contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a lis <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16541	16639	
==>t contains
a single span. Otherwise, it contains two spans.

- `difference( $span )`

Returns a lis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2390	2502	
==>m1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3171	3283	
==>m1, $term2 );\n";
}
sub node::sub_application_term {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    m <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	424	528	
==>class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<den <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	424	528	
==>class: %param is copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<den <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13186	13364	
==>" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = subst <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13180	13358	
==>" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = subst <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	181	310	
==>_cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mod <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	181	310	
==>_cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new(:mod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8407	8570	
==>f, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8407	8570	
==>f, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJE <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2383	2477	
==><http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending m <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2383	2477	
==><http://pugscode.org/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5642	5770	
==>pop     safe   (rw!Array)\
\\n   Scalar    pre     List::shift   safe   (rw!Array)\
\\n   Scalar    pre     sum     safe   (List) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17927	18025	
==>essentially all isolated from each other, even if more than one uses the
same Engine class to imple <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17927	18025	
==>essentially all isolated from each other, even if more than one uses the
same Engine class to imple <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21024	21138	
==>f->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17445	17559	
==>f->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	116	216	
==>.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> F <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	116	216	
==>.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> F <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30908	31008	
==>current one.  The
Member Name comes next and is what distinguishes each module from others in
its set <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30908	31008	
==>current one.  The
Member Name comes next and is what distinguishes each module from others in
its set <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1390	1523	
==>t at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1390	1523	
==>t at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1037	1152	
==>utine, method, coro definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1037	1152	
==>utine, method, coro definitions
# - module, class, grammar

# category 'statement'
# statements that need a \; or \} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3617	3738	
==>rk
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3617	3738	
==>rk
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Some e <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	484	656	
==>);

 multi sub map (Code $expression ; *@values) returns List {
   gather {
     while @values {
       take $expression
          .( splice(@values, 0, $expression.arity) ) <==
2	/Users/nnunley/pugs/util/package-osx.pl	4718	4848	
==>rl6::Bible::S06.3pm
        /usr/local/man/man3/Perl6::Bible::S09.3pm
        /usr/local/man/man3/Perl6::Bible::S10.3pm
        /us <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2955	3068	
==>hod empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method co <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2955	3068	
==>hod empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

method co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8478	8595	
==>3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/do <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8478	8595	
==>3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3915	4021	
==>, $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3915	4021	
==>, $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$matches[1]} if ref($matches[1]) eq 'P <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5829	5976	
==>Perl5::NodesInfo::nodes) {
        my $name = $n->{'name'};
        my $rep = ucfirst $n->rep_type;
        my $type = $n->{'type'};
	my $pkg_this = <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	286	428	
==>,
        pager     => $Config{pager},
        prefix    => $Config{prefix},
        archname  => $Config{archname},
        exe_ext   => $Conf <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5062	5172	
==>r connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5062	5172	
==>r connected to the parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18985	19089	
==>rate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18985	19089	
==>rate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1984	2092	
==>ol {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1984	2092	
==>ol {
    return (($self.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	200	310	
==>e

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- AST, Grammar, Optimizer internals:

    AST <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	186	291	
==>e
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- AST, Grammar, Optimizer internals:
    AST <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	687	794	
==>ink to wikipedia?)



* DSL Domain-specific-language



...



=head1 The User Story



Say we have a Perl 6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	654	753	
==>ink to wikipedia?)

* DSL Domain-specific-language

...

=head1 The User Story

Say we have a Perl 6 <==
2	/Users/nnunley/pugs/util/package-osx.pl	10793	10898	
==>) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1890	2035	
==>(1),  :day(1),
                        :hour(0),    :minute(0), :second(0),
                        :tz(tz "UTC") ) + $epoch;
}

method nanosecond <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2076	2248	
==>channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2076	2248	
==>channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are always
                           # normaliz <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1070	1231	
==>=> $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1070	1231	
==>=> $_[0],
        match => $1,
        tail  => $2,
        capture => $1,
        from  => $pos,
        to    => $pos+1,
    } )
        if $_[0] =~ /^.{$pos}(. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12934	13037	
==>sitive infinite if the recurrence is infinite.
Returns negative infinite if the recurrence is an empty s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12934	13037	
==>sitive infinite if the recurrence is infinite.
Returns negative infinite if the recurrence is an empty s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20271	20365	
==>the "Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20271	20365	
==>the "Proxy-Authorization"
header instead.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The hea <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3360	3603	
==>g. For example

    App(
        Val(
            Thunk(
                Seq(
                    Param('$x'),
                    App(
                        Sym('&infix:<+>'),
                        Val(1),
                        Sym('$x') <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11044	11150	
==>oot returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$statu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11044	11150	
==>oot returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<header (:$statu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4457	4578	
==>s = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_ba <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4457	4578	
==>s = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_ba <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8791	8895	
==>overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8500	8601	
==>overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18918	19029	
==>ave to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18918	19029	
==>ave to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedText is only meant to be us <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	67	174	
==>tions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings of Code objects to a particula <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10294	10388	
==>>

  my @switches = $self->_cleaned_switches( @switches_from_user );

Returns only defined, non <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1184	1283	
==>azy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1184	1283	
==>azy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32993	33092	
==>C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32993	33092	
==>C<@!set_names> - B<Set Names>

Array of Str - This stores an ordered list of one or more elements wh <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	987	1103	
==>l_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	954	1070	
==>l_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	803	926	
==>$code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	814	937	
==>$code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2707	2794	
==>----------------------------------------------------------------------------
## insertin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2707	2794	
==>----------------------------------------------------------------------------
## insertin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15981	16080	
==>.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stev <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16039	16138	
==>.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stev <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7605	7702	
==>ning under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7663	7760	
==>ning under PIL2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2402	2526	
==>extracted ne '' ),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2310	2431	
==>extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	891	987	
==>dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	821	911	
==>dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	177	306	
==>ws()

# placeholder for the Pod grammar

# XXX Pod can only start at a line start

BEGIN {
    __PACKAGE__->add_rule(
        "=be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11107	11231	
==>en)
  $self->add_handler('(' => sub {
    my ($S) = @_;
    my $c = '(';
    $S->nextchar;

    if (${&Rx} =~ m{ \G (.) }xgcs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	347	440	
==>st methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	347	440	
==>st methods: is_contiguous(), to_str(), clone(), to_ref(), to_bit(), to_num()
* New List hooks: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1639	1729	
==>" . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1639	1729	
==>" . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11257	11348	
==>$child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11257	11348	
==>$child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<get_c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2084	2284	
==>, @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        e <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2084	2284	
==>, @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	611	746	
==>ore = 0;

        for ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard in that it r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7348	7450	
==>rson' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7348	7450	
==>rson' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28758	28860	
==>value set members do not match invocant
Relation attribute names, or duplicate any other value set memb <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33310	33412	
==>value set members do not match invocant
Relation attribute names, or duplicate any other value set memb <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19049	19144	
==>ophy ("a predicate ranging
over more than one argument"), which is also the basis of the relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22699	22794	
==>ophy ("a predicate ranging over more than one
argument"), which is also the basis of the relatio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	914	1037	
==>0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	914	1037	
==>0;
        $directory = ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	778	899	
==>ed " . _('$:expect') . " but ran $run";            
        }
    }
});

$::TestBuilder->STORE('::NullPlan' => class 'Test <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4869	5048	
==>shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4869	5048	
==>shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	799	914	
==>ing_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	799	914	
==>ing_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50870	50986	
==>get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr(symbol->new('$:versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12550	12661	
==>r('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6025	6136	
==>r('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12248	12353	
==>l;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12248	12353	
==>l;ve
 papier-m&acirc;ch&eacute; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17041	17152	
==>) {
        ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
        $name .= '...' if length $first_line > len <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1432	1539	
==>'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=>'+'}], 
    ['NUM' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1868	1965	
==>return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg): <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1868	1965	
==>return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg): <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6052	6167	
==>s and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6052	6167	
==>s and fragments thereof.
    my Rosetta::Model::Document $irl_doc.= new();

    # Define some data types.
    my Ros <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12334	12461	
==>block and data section, each
# into a single line containing a digest of the original content.
#
# This makes further dividing o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12334	12461	
==>block and data section, each
# into a single line containing a digest of the original content.
#
# This makes further dividing o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10086	10265	
==>b {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \^ }xgc) {
      my $n = '^^';
      return $S->$n;
    }

    return $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40140	40421	
==>,          
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19689	19961	
==>, 
            sub {
                my $e = shift;
                $e->get('%params')
                  ->keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->ge <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1515	1608	
==>V{HARNESS_PERL}  = "$^X $FindBin::Bin/../perl5/PIL-Run/pugs-p5.pl"
    if $ENV{PUGS_RUNTIME} a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10573	10658	
==>.
p6_char_class(class_neg(horizontal_space))  --> "\\H", !.
p6_char_class(class_pos(ve <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13901	14006	
==>($syn_src_dir, 'syn', "$syn.pod"); }
            elsif ( $syn =~ /^A/i ) { $synpod = catfile($syn_src_dir, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27147	27240	
==>. (α × β) → β", ":t snd");
is(t($id_pair), "(int × str)", ":t id(pair(id(10))(id('foo' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4407	4534	
==>{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4407	4534	
==>{ $set1.new( recurrence => $.recurrence, span => $_ ) };
        return @diff;
    }
    my $span1 = $set1.span;
    my $span2 = <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	111	213	
==>_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6: <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	111	213	
==>_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6: <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	759	865	
==>Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x) <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	759	865	
==>Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15744	15855	
==>ush @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10600	10711	
==>ush @{ $S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2723	2853	
==>ing Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2940	3070	
==>ing Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4008	4109	
==>ss in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4008	4109	
==>ss in a string C<$buffer> which will get the POD appended to it, 
or you can pass in a filehandle C<$f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32947	33048	
==>r object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This store <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32947	33048	
==>r object has 2 main attributes:

=over

=item C<@!set_names> - B<Set Names>

Array of Str - This store <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	330	468	
==>tics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	330	468	
==>tics, $message;
    }

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	608	768	
==>atch[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$wid <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	608	768	
==>atch[1] and $match[1] ne '' {
        for 0..$match[1].elems-1 {
            %parameters{$match[1][$_]} = $match[2][$_];
        }
    }
    return %WIDGETS{$wid <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1413	1519	
==>$encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1413	1519	
==>$encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1830	1949	
==>day () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () retu <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1830	1949	
==>day () returns Date {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () retu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1045	1270	
==>8 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     oct <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1045	1270	
==>8 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     oct <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19086	19199	
==>first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19086	19199	
==>first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own line in t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4424	4575	
==>).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4424	4575	
==>).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2842	2962	
==>);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2842	2962	
==>);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<encipherer>

    $encipher = Some::Cip <==
2	/Users/nnunley/pugs/util/package-osx.pl	2775	2865	
==>nk /System/Library/Perl6/
        /Users/dromano/dev/pugs/src/pge/run_pge.pir /System/Libra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13860	13966	
==>ve = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13860	13966	
==>ve = $original_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $has <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20594	20742	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20873	21021	
==>atch,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3514	3719	
==>ne = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, % <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3514	3719	
==>ne = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate($_line, % <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3066	3198	
==>constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3066	3198	
==>constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15557	15661	
==>ap to the lower level is an
error (for example, attempting to store Kanji in a Byte uplifted to an LChar) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5227	5374	
==>ndex, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a ma <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5691	5838	
==>ndex, we only let it look at the 
                    ### installed packages. This way, we're sure that when
                    ### it returns a ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9643	9794	
==>)
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9922	10073	
==>)
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	464	558	
==>ilter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method results <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	464	558	
==>ilter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method results <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11099	11204	
==>, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11157	11262	
==>, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `unlike (Str $got, Rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3456	3590	
==>> 'right',
        precedence => 'looser',
        other => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        asso <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1147	1251	
==>erent interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1147	1251	
==>erent interfaces:

=over 4

=item 1. Create the cipher.

=item 2. Give it data to encipher (or decipher), <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3340	3438	
==>].substr;

    PUSHMARK(SP);
    XPUSHs(sv_2mortal(newSVpv(strbeg,strend-strbeg)));
    XPUSHs(sv_2 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1641	1765	
==>on {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4844	4968	
==>on {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11175	11291	
==><enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11175	11291	
==><enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handler can ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3116	3232	
==>}; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3309	3425	
==>}; 
    }
;
    push @grammar1::statements, \&perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	493	610	
==>me problem as with Set; how do you
# specify a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7719	7830	
==>ans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7719	7830	
==>ans;
      %!users.delete(normalize $killee);
    });

    # Somebody quit. Remove him/she from %users and %chan <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3764	3875	
==>sult->new($pil_code,$warn,$failed);
	} elsif($stage eq 'p6_file') {
	    $self->get_p6_file;
	} else { die "bug" <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2061	2164	
==>r valid.
This gives the impression of lexically scoped marks (but it may also
limit the engine semantica <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2061	2164	
==>r valid.
This gives the impression of lexically scoped marks (but it may also
limit the engine semantica <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8186	8418	
==>cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8186	8418	
==>cstart => coro {
                        my $x = $ret.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4463	4599	
==>ttributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4463	4599	
==>ttributes?  = {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!' <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5431	5526	
==>ile) or die "Failed to open $index_file: $!";
my $template = HTML::Template->new(filename => 'ut <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7655	7764	
==>rt a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7655	7764	
==>rt a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	123	222	
==>mplement the "magic hash" dispatcher
# TODO - generate AST
# TODO - redefine <ws> to test Pod.pm aft <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	745	905	
==>}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	745	905	
==>}$/;
            my $abs = catdir( $dir, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4721	4831	
==>ode?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_asser <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4721	4831	
==>ode?', $parent_node );
    }
    $?SELF!_assert_arg_str( 'new', ':$node_type!', $node_type );
    $?SELF!_asser <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29231	29364	
==>capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29510	29643	
==>capture_block = sub { return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	100	231	
==>ty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_opti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	100	231	
==>ty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_opti <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1419	1531	
==>}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::F <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1419	1531	
==>}

=head1 NAME

File::Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::F <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9953	10062	
==>inter in the match tree
4 - a grammar name
5 - pos 
#6 - the whole string to match - TODO - unify with $_[0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24100	24208	
==>t

$::Class->send('add_method' => (
    # method label
        symbol->new('superclasses'),
    # method body <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17140	17305	
==>pture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17419	17584	
==>pture( 'prefix', 
             ruleop::capture( 'word', \&{'grammar1::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20081	20200	
==>:capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20360	20479	
==>:capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'g <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23615	23743	
==>e REXEC_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr alr <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28845	28946	
==>e REXEC_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr alr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5352	5465	
==>ed.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5352	5465	
==>ed.
    # Somebody joined. Update %channels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2998	3143	
==>e: ", Dumper( $n );

    if ( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36590	36684	
==>s; first: I<ifmatch>, I<unlessm>,
I<eval>, I<groupp>; second: I<branch>

Ender: tail

=head2 gr <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2206	2306	
==>nd -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2184	2284	
==>nd -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args{r <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2242	2342	
==>em($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2220	2320	
==>em($args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5597	5715	
==>tes))      (hash)
     (attribute new (%:methods))         (hash)))    

=cut

# create the basic Class
$::Class = opaq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3267	3522	
==>re} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3139	3384	
==>re} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    retu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21731	21842	
==>.param pmc pad
    .local int isarray, iscapture
    .local string cname
    .local pmc reps

    iscapture = se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	927	1055	
==>r} );
    #~ die "not a pair";
}

BEGIN {
    __PACKAGE__->add_rule(
        ';' => q( { return { stmt => ';'} } ));
    __PACKAG <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	577	704	
==>_num { (shift)->length             }
sub to_bit { (shift)->length->to_bit     }

# methods ...

sub fetch {
    my ($self, $inde <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1020	1140	
==>s;
	    }
	}
	when Scalar {
	    reverse @values ==> join;
	}
    }
}


# copied from S29draft.pod 8651.
type KeyExtracto <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1761	1860	
==>e :lang<YAML> doesn't quite belong here?)
    multi sub eval (Str $code = $CALLER::_, Str :$lang = ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1404	1501	
==>and case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1404	1501	
==>and case matching.
our %header_order;
our %standard_case;

{
  for @header_order.kv -> $i, $header <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	594	738	
==>upers ), # the MRO of all the superclasses
        list->new(@supers)                  # a list of all the superclasses        
    );

    my @r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2500	2618	
==>=> '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10782	10879	
==>rs)=\@{\$self}{qw($keys)};";}
    else { # array
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self} <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1174	1272	
==>so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3014	3112	
==>so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2954	3101	
==>n ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_sta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2954	3101	
==>n ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.start;
    if ($cmp > 0) {
        $i_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13480	13653	
==>t( $n->{exp1} );
    }

    if ( $n->{op1}{op} eq 'has' ) {
            # Moose: has 'xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33103	33193	
==>union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) ret <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37653	37743	
==>union>, C<d_union>, and C<symmetric_difference>.

=item C<exclusion (Relation *@others) ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22448	22542	
==>program package would return a code-key to indicate a
condition, often it will also provide som <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22448	22542	
==>program package would return a code-key to indicate a
condition, often it will also provide som <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12996	13104	
==>=> undef, param_stack => [] }, shift;
}

sub reduce_val { $_[1]->val }

sub reduce_stub {
    my $self = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8890	9010	
==>dent};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8878	8998	
==>dent};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24117	24252	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24396	24531	
==>sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::capture( 'term1', \&{'grammar <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2505	2606	
==>= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2505	2606	
==>= "\n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2287	2412	
==>patibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2287	2412	
==>patibility)
    
    my $foo = $q.param('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3817	3959	
==>->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #ret <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1917	2059	
==>->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #ret <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3720	3828	
==>aut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3720	3828	
==>aut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-96)
    "copy"     => '©' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1276	1404	
==>st};
}

sub prelude {
<<C
#include <stdio.h>
#include <gc.h>

typedef int IV;
typedef FILE * GV;
typedef char * PV;

int prel_pri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18545	18644	
==>elves.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18545	18644	
==>elves.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are hard-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	52	180	
==>n this file 

### separate into:

- Introduction

- Documentation Index

- Compiler internals:

    Compiler

    Compiler::Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	45	167	
==>n this file 
### separate into:
- Introduction
- Documentation Index
- Compiler internals:
    Compiler
    Compiler::Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1109	1219	
==>L {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1109	1219	
==>L {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'LValu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17408	17506	
==>d users alike.

For some practical examples of Locale::KeyedText in use, see the /examples
director <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17408	17506	
==>d users alike.

For some practical examples of Locale::KeyedText in use, see the /examples
director <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2455	2560	
==>"foo", ...) then "foo" is the name of the subscription
        method add_subscription (String $name, $sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1520	1650	
==>t $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AU <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1520	1650	
==>t $match->to;       # 3
      print $match->[0];      # "ab"
      print $match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AU <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9717	9822	
==>TION

This module was built to facilitate the Pugs test suite. It has the
distinction of being the very fi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9775	9880	
==>TION

This module was built to facilitate the Pugs test suite. It has the
distinction of being the very fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1046	1199	
==>e.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1046	1199	
==>e.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $code = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11089	11216	
==>skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11089	11216	
==>skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($version, $key, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16874	17007	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17153	17286	
==>e => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3511	3626	
==>{
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3511	3626	
==>{
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $o <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1020	1117	
==>d_alternate (Num $x) {
# XXX I don't understand what round-alternate means.
# But in my understand <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5321	5478	
==>ure} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5153	5303	
==>ure} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6527	6638	
==>);
        $path = catpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6527	6638	
==>);
        $path = catpath($base_volume, catdir($base_directories, $path_directories), $path_file);
    }
    re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5549	5725	
==>ug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5549	5725	
==>ug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!member_names. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	139	240	
==>xt, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	139	240	
==>xt, :key($key));

    &cipher := Cipher::Arcfour.encipherer(:key($key));
    print cipher($_) for =$IN <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21265	21348	
==>eate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44172	44255	
==>eate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':a <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8039	8143	
==>her to be deleted immediately.  This method should be as thorough as 
possible; for example, it should no <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8039	8143	
==>her to be deleted immediately.  This method should be as thorough as 
possible; for example, it should no <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8548	8681	
==>$!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12025	12158	
==>$!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersection( $r2 );
    }

    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	112	254	
==>@!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	112	254	
==>@!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!params;
    }
    
    multi method param (Str $na <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13571	13685	
==>ath(my $syndir = catdir($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17790	17897	
==>r and returns it's second thingy
# (a x b) -> b
# applied to $pair (int x str) this should e str
my $snd = c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8133	8246	
==>E:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience. Sometimes that dept <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8133	8246	
==>E:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience. Sometimes that dept <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	824	959	
==>t);
    $self->env(my $env = shift);

    my $ast = shift;
    $self->cache({});

    $self->reduce($ast);
}

sub reduce_stub {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19426	19519	
==>tandard data manipulation statements but that the target relation
variables are system catalog <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19426	19519	
==>tandard data manipulation statements but that the target relation
variables are system catalog <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	598	696	
==>cleaned up, and p6 added.  It's basically three days old,
and only now is changing from an experime <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18007	18097	
==>eate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':descenda <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41272	41362	
==>eate('&dispatcher' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':descenda <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13672	13782	
==>nect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_tra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13672	13782	
==>nect.
    if(time() - $.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_tra <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10966	11081	
==>}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10960	11075	
==>}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22072	22210	
==>amelen;
    }

    my $list_len = $Columns - length($middle_str) - $max_namelen;
    if ($list_len < length($list_str)) {
        $list_len <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6380	6496	
==>hain/list
 # rule=>$rule 
 #  (is parsed) 
 # block => ???
 #  (will do) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21332	21447	
==>larationListNoIn> <';'> <Expression>? <';'> <Expression>? <')'> <Statement>
    | <'for'> <'('> <LeftHandSideExpress <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	158	254	
==>tracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

= <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	158	254	
==>tracks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

= <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1423	1532	
==>- hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$mo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1423	1532	
==>- hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5996	6104	
==>= $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5996	6104	
==>= $self.content;
        
        my $class = ($content ~~ m,^(HTTP/.*)\n,) ?? HTTP::Response !! HTTP::Reques <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2495	2602	
==>: this is ok, because we can use <$var><$var> instead

    

    return ruleop::concat( +shift, ruleop::conc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2412	2517	
==>: this is ok, because we can use <$var><$var> instead
    
    return ruleop::concat( +shift, ruleop::conc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4049	4160	
==>, :mode<enciphering>);

This class method constructs a new cipher object.  The options passed to the 
C<new> con <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4049	4160	
==>, :mode<enciphering>);

This class method constructs a new cipher object.  The options passed to the 
C<new> con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1382	1482	
==>abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1382	1482	
==>abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1400	1525	
==>ame and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subn <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1400	1525	
==>ame and a subname
## A06 doesn't tell me even though it uses them.  These are guesses
## until we are enlightened.

regex subn <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1268	1405	
==>/) {
#	    print "\\" if $col == 1;
	    print "{$1}";
	    return;
	}
	print "\\";
    }
    print "$chr";
}

sub process_file {
    my ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	159	248	
==>mmar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs::Grammar::Base';
use C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8246	8380	
==>f match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/false)

    match - the "match" tree or unde <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7969	8099	
==>f match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/false)
    match - the "match" tree or unde <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	645	807	
==>list->new(@supers)                  # a list of all the superclasses        
    );

    my @res;
    while (1) {
        # remove all empty seqences
        my @n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1907	2005	
==>od get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1907	2005	
==>od get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16926	17046	
==>.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16926	17046	
==>.unshift(@q);
    },

    # Enqueue a new callback
    enqueue => -> Code $code { push @queue, $code },

    # Remove all <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13722	13829	
==>er of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13722	13829	
==>er of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header fiel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7816	7926	
==>users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7816	7926	
==>users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3258	3367	
==>of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relation's attributes. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6735	6844	
==>of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this relation's attributes. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4779	4919	
==>XX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4779	4919	
==>XX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

Returns a list of `Span` objects.

= AUTHOR

F <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29796	29904	
==>EXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29796	29904	
==>EXT_STRINGS{$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7569	7678	
==>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7569	7678	
==>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$_}< <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2337	2457	
==>: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $sel <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2337	2457	
==>: ) { &{$.cis_infinite}() }
    method is_contiguous ( $self: ) { &{$.cis_contiguous}() }
    method to_str        ( $sel <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9070	9175	
==>ld not appear" }

NODE MkTEnv ($tLexDepth, $tTokDepth, $tCxt, $tReg, $tLabel) {
    ""; # XXX - ???
}

NOD <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	378	482	
==>e_runtime($m);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::SmokeBackends - 

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2766	2885	
==>ew( _top => $self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}: <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	942	1059	
==>ew(_top => $self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10752	10971	
==>t->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10752	10971	
==>t->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8956	9069	
==>lf.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8956	9069	
==>lf.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4947	5124	
==>ound";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $las <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4947	5124	
==>ound";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off  
                my $las <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12033	12133	
==>or '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12033	12133	
==>or '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

 $header->push_hea <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12677	12775	
==>now.  The zip function needs
to build tuples of the "across" values.  Also, it maybe probably be
in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24478	24591	
==>or if the flag isn't supported
  }

You'll probably not be adding handlers that have to parse flags, but if
you do <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1738	1839	
==>)sprintf(target, "%d", x);
	return target;
}
C
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::B <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1969	2098	
==>se MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $a <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1969	2098	
==>se MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inline}) {
        external($args{inline});
        delete $a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10560	10672	
==>add_person );

    # Define and compile a function that will select a record from the
    # 'person' table, whose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10560	10672	
==>add_person );

    # Define and compile a function that will select a record from the
    # 'person' table, whose <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5340	5459	
==>w!Array, ?Int=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splic <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1814	1924	
==>cedence - options: $options - match: $match\n" ;
  my %token = ( name => $name, options => $options, equiv => $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10209	10309	
==>nterpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10209	10309	
==>nterpolate_vars_into_template_text',
        '%msg_vars!', %msg_vars );

    for %msg_vars.kv -> $var <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11458	11615	
==>.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11458	11615	
==>.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -Inf;
        return $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/given1.pl	107	221	
==>'   { werfe('steak'); }
	when .füttert     { schleiche_vorbei();  }
	when /grrr+/      { ohren_zuhalten();  }
	
	p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2336	2445	
==>= ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2336	2445	
==>= ./protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($stat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7640	7764	
==>verloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) {
	    rebless_with_prefix <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7081	7200	
==>verloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ /ARRAY/) {
        for (@$o) { rebless_with_prefix <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1084	1290	
==><end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list') <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1084	1290	
==><end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>('list') <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	217	321	
==>file"
    unless $pmc =~ /\.pmc/;
# test file dates
my $pmc_is_uptodate = (-s $pmc and (-M $pmc <= -M $fi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	126	226	
==>ss - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infini <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	126	226	
==>ss - elements can be spans

  Bugs:
    * operations with non-Recurrences should return a Set::Infini <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4756	4876	
==>pends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4814	4934	
==>pends);
    }
    else {
        &Test::ok.goto(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10184	10281	
==>.. $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the right method return value');
is <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5431	5553	
==>n't work right.

=cut

sub _globdir { 
    opendir DIRH, shift; 
    my @f = readdir DIRH; 
    closedir DIRH; 

    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2009	2122	
==>ented";
}

sub emit_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13960	14085	
==>id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13960	14085	
==>id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rosetta: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	232	325	
==>le ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	232	325	
==>le ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9474	9611	
==>ld_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9474	9611	
==>ld_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	752	878	
==>st) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'htt <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	719	845	
==>st) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $scheme eq 'htt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16783	16904	
==>char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13204	13325	
==>char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G (?= ] | \z ) }xgc;
    push @{ $S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	164	283	
==>ER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	164	283	
==>ER

# parsefail :(

sub ∅ returns Set is export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4585	4722	
==>erl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__EN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4725	4862	
==>erl5}    . ",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__EN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3585	3719	
==>'s returned in { return ... }
    $/0
        the first submatch
Alternate names:        
    $()   
        the same as $/()
Submatche <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1202	1344	
==>eys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new(%$self, %$other);
	}
}

{
	package Blondie::Env;
	use base q <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1614	1719	
==>erv.pl
    Sets the path to the smoke server.
  --version
    Outputs the version of this program and exit <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5418	5514	
==>C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5418	5514	
==>C<finish>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zero <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8512	8622	
==>ntersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8512	8622	
==>ntersects ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9008	9123	
==>niverse );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $no <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9008	9123	
==>niverse );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero integers
    $no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1063	1187	
==>atch => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1074	1198	
==>atch => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	274	412	
==>: {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	274	412	
==>: {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $param->{sigspace} = 1 
        unless defined $param->{sig <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	515	617	
==>.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	515	617	
==>.SUPER::new( testplan => $plan, output => $output );
}

submethod BUILD
(
    Test::Builder::TestPlan $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32561	32661	
==>e an anchor).

=back

If there is a method with the name of one of these attributes, it is
I<imperati <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2421	2560	
==>ader ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2421	2560	
==>ader ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Array) ?? ($cookies) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1064	1180	
==>il> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() } <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1064	1180	
==>il> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18384	18495	
==>ed locks so that resource corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18384	18495	
==>ed locks so that resource corruption or application
failure is prevented.  I<Also, Rosetta should be thread safe <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	211	320	
==>rences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	211	320	
==>rences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Array
        - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	888	993	
==>ocument describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	888	993	
==>ocument describes Rosetta::Validator::L::en version 0.160.1.

=head1 SYNOPSIS

I<This documentation is pen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17208	17389	
==>::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17487	17668	
==>::word'} )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17222	17350	
==>on>
    | <BitwiseXORExpression> <'^'> <BitwiseANDExpression>
}
rule BitwiseXORExpressionNoIn :words {  # see 11.10
      <Bitwis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1818	1952	
==>test_ends() }
1;
=kwid
=cut
say;
return if 1;

PERL6

    print Dumper $match->();
    print "tail: ", substr( ${$match}->{ta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	332	439	
==>A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	332	439	
==>A map of digests to code blocks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22381	22521	
==>= @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18802	18942	
==>= @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6061	6187	
==>return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6061	6187	
==>return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $.start_is_open && $x > <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	698	800	
==>t where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

C <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	698	800	
==>t where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7196	7461	
==>{
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                } <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7196	7461	
==>{
                    $.current_span--
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2673	2783	
==>else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Functional <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2673	2783	
==>else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Functional <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15452	15574	
==>odule::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15452	15574	
==>odule::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2623	2809	
==>");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2623	2809	
==>");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  path $path:$req_path does not fit");
                        n <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1763	1863	
==>ig->new
	({ named => $named, positional => $positional,
	   invocant => $invocant,
	   named_slurpy = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1090	1196	
==>thod($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1090	1196	
==>thod($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15704	15803	
==>ively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15704	15803	
==>ively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	96	198	
==>:Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	96	198	
==>:Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25059	25215	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25338	25494	
==>capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_application'} = 

    su <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6399	6502	
==>Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precendence_list');

## test <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19008	19197	
==>o regex
                # or if the regex failed
                unless ($found) {
                  push @bad_regex, { regex   => $regex,
                                     target  => $ta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	815	941	
==>ft =>      '<tight> <op> <equal>', 
    infix_right =>     '<equal> <op> <tight>',
    infix_non =>       '<tight> <op> <tight> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6524	6639	
==>a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method revers <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6524	6639	
==>a loop"
# method next     () { $array.shift } 
# method previous () { $array.pop }    # just in case 

method revers <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6107	6239	
==>ub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6107	6239	
==>ub $code };\n" .
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	947	1059	
==>.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	947	1059	
==>.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6085	6217	
==>turn "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6085	6217	
==>turn "" unless $ct.defined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3297	3582	
==>,

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3169	3439	
==>,
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25118	25222	
==>special exception, the copyright holders
of Rosetta give you permission to link Rosetta with other free s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25118	25222	
==>special exception, the copyright holders
of Rosetta give you permission to link Rosetta with other free s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1844	1938	
==>is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod B <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1844	1938	
==>is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5941	6055	
==>-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5941	6055	
==>-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41030	41121	
==>tin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41030	41121	
==>tin (C<jhmartin@toger.us>)

On 2004.07.26, suggested a feature, and provided sample usage an <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3080	3208	
==>'))
        || confess "you can only add types to a list got($_) => " . (CORE::join ", " => @_)
            foreach @_;
    CORE: <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9862	9951	
==>%mods,$pat,$qo,$qc) is builtin is safe {
    rx_common_("pugs_internals_m",%mods,$pat,$qo, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	339	456	
==>ver could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD RE <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	339	456	
==>ver could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD RE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32626	32720	
==>f these attributes, it is
I<imperative> you use the method to access the attribute when I<outsi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20447	20552	
==>ation.  There are some application where this is not
appropriate.  Prefixing field names with ':' allow yo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20447	20552	
==>ation.  There are some application where this is not
appropriate.  Prefixing field names with ':' allow yo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2475	2655	
==>,
                from  => $pos,
                to    => $pos+length $1,
            } )
                if $_[0] =~ # /$rx/;
                    /^.{$pos}([[:$char_class:]])(.*)$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6466	6607	
==>ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__EN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6466	6607	
==>ok( 
        postfix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__EN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	830	947	
==>ace::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	830	947	
==>ace::DBMS {

    # External packages used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17250	17402	
==>m_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F',' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17250	17402	
==>m_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F',' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3749	3846	
==>rrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The stri <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3749	3846	
==>rrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to parse it.  The stri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8322	8431	
==>r hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stri <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8322	8431	
==>r hand, a Set::Infinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stri <==
2	/Users/nnunley/pugs/util/testgraph.pl	28	127	
==>s;
use strict;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump Load/ ];
use Getopt::Long;
use Test:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	382	500	
==>f pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	382	500	
==>f pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - the whole string to match - TODO - un <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7025	7171	
==>less @$x == @$y;
			my @x = @$x;
			my @y = @$y;

			while (@x) {
				return unless $self->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6744	6864	
==>s_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we ass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6744	6864	
==>s_loaded( $module_name );

        # Try to load an external Perl template module; on a require
        # failure, we ass <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1415	1525	
==>y );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1415	1525	
==>y );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3988	4088	
==>nts, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the s <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3988	4088	
==>nts, whitespace, or the order of your config file.

=head1 CONFIGURATION FILE SYNTAX

Files are the s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10927	11023	
==>elds is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10927	11023	
==>elds is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14062	14160	
==>allback routine has case as suggested by HTTP spec, and the headers
will be visited in the recommen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14062	14160	
==>allback routine has case as suggested by HTTP spec, and the headers
will be visited in the recommen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13829	13948	
==>nect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13829	13948	
==>nect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9377	9478	
==>if `start` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9377	9478	
==>if `start` and `end` are times, then `size` will be a duration.

If the set contains lazy recurrences, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	801	926	
==>"\n" );
        @:diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.create( output => Te <==
2	/Users/nnunley/pugs/util/importgraph.pl	2822	2940	
==>[0] ? "blue" : "black";
    $g->add_edge($name, $k, color => $color);
    $edges++;
  }
}
print "$nodes nodes and $edge <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	74	178	
==>rAgent;

use constant VERSION => 0.4;
sub debug($);

our $compress = sub { return };

GetOptions(
  "smok <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14093	14224	
==>a} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # bounded quantifier (but n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	596	697	
==>xternal packages used by the Relation::Example::Heading class, that do export symbols:
    # (None Yet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5516	5605	
==>push @subroutine_names, $opt{name};
}

use Pugs::Grammar::Infix;
use Pugs::Grammar::Prefix <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3984	4091	
==>er>. 

You can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3984	4091	
==>er>. 

You can either pass in a string C<$buffer> which will get the POD appended to it, 
or you can pass in <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16991	17093	
==>ssion>
}
rule BitwiseANDExpressionNoIn :words {  # see 11.10
      <EqualityExpressionNoIn>
    | <Bitw <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	626	772	
==>re => [ substr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	602	741	
==>re => [ substr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3675	3775	
==>S_PERL} = q{$full_pugs}; \@ARGV = sort map glob, \@ARGV; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4000	4128	
==>Primitives,

  # - an optimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3859	3983	
==>Primitives,
  # - an optimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5116	5251	
==>]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5116	5251	
==>]+5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10074	10271	
==>ile =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10074	10271	
==>ile =~ s{(?:::|')}{/}g;
            {
                local $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	663	780	
==>ock>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	663	780	
==>ock>
}
rule packagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        < <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22581	22686	
==>ass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22581	22686	
==>ass

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exception Class

I<This documentati <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23297	23401	
==>ire your text data to be stored in a format other than Perl
files.  Or alternately they have a compiled C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23297	23401	
==>ire your text data to be stored in a format other than Perl
files.  Or alternately they have a compiled C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	557	677	
==>s;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*EN <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	557	677	
==>s;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*EN <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	306	420	
==>to config.yml?
END { unlink $TEMP_PRELUDE unless $Config{keep} };

GetOptions \%Config, qw(--inline --pugs|p=s --pr <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	200	318	
==>';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	200	318	
==>';
has Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12738	12836	
==>ction takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12796	12894	
==>ction takes a block of code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$exp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2983	3095	
==>y($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a success <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2983	3095	
==>y($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a success <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1671	1767	
==>iler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1671	1767	
==>iler::PIL::Util::Signature {
    has Perl::Compiler::PIL::Util::Parameter @.params;
}

class Perl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1834	1931	
==>t,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	830	927	
==>t,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4153	4277	
==>";
      }
    }
END
}

{
  package Hacks;

  #XXX - surely this is part of the Regexp::Parser api... somewhere?
  sub flag_v <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1774	1874	
==>rl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Som <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1774	1874	
==>rl 6 port of the C<File::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Som <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10116	10243	
==>apture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10395	10522	
==>apture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16891	16994	
==>ontains a single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16891	16994	
==>ontains a single span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	0	115	
==>use v6;

module HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	0	115	
==>use v6;

module HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	679	778	
==>ne, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	679	778	
==>ne, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1558	1650	
==>( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1558	1650	
==>( grammar <ws> <grammar_name>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	272	424	
==>le_var {
    my $s = shift;
    #warn "mangle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7073	7188	
==>r_test {
    $test = shift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart me <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2114	2221	
==>tly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2114	2221	
==>tly secure when used properly, it has several known 
problems and weaknesses.

=over 4

=item Initial portio <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6383	6490	
==>t()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6383	6490	
==>t()) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10379	10474	
==>"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
pri <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11114	11209	
==>"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]":"undef","\n";
pri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8564	8661	
==>d1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also describes the same-nu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8564	8661	
==>d1 VERSION

This document describes Rosetta::Model version 0.724.0.

It also describes the same-nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1947	2062	
==>int $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1947	2062	
==>int $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', $fh->getlines);
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7819	7935	
==>w( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	520	632	
==>d($key)   && $key->isa('type')) && 
         (blessed($value) && $value->isa('type')))
            || confess "Ke <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	94	262	
==>= 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.ne <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	94	262	
==>= 1,
        $skip        = 0,
        $todo        = 0,
        $reason      = '', 
        $description = '',
    )
    {
        return ::Test::Builder::Test::TODO.ne <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1361	1494	
==>ree.new(:node<Scalar>).add_children(
                        Tree.new(:node<Complex>).add_children(
                            Tree.n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	1113	1222	
==>($condition->do()->to_bit == $bit::TRUE) {
        $self->do();
    }
}

sub do_until {
    my ($self, $condit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9299	9429	
==>]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9287	9417	
==>]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15085	15205	
==>is Node's parent Node,
if it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are list <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15085	15205	
==>is Node's parent Node,
if it has one.  Nodes that do not have this attribute set are considered
"root Nodes" and are list <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14102	14239	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14381	14518	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9030	9170	
==>warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9030	9170	
==>warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1515	1621	
==>ease> contact the author
if you'd like a feature added or something change or just have
comments.

=head1 C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36482	36578	
==>on()
operator, and the order of its arguments is not significant to the result;
the new Relation: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1753	1865	
==>urn ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1753	1865	
==>urn ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14319	14424	
==>s, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escape <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14319	14424	
==>s, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escape <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2153	2251	
==>everal known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2153	2251	
==>everal known 
problems and weaknesses.

=over 4

=item Initial portions of Arcfour's keystreams are <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10339	10445	
==>y Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10339	10445	
==>y Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_value_as_st <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9174	9355	
==>erence;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12651	12832	
==>erence;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF.difference( $?SELF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1788	1897	
==>e;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1788	1897	
==>e;

package main;
use IO::File;

my $source_file = shift(@ARGV);
my $source = slurp($source_file);
my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1715	1826	
==>t $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1715	1826	
==>t $.autoping     = 90,   # Autoping the server when we haven't seen traffic for 90s
    Int $.live_timeout = 120 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18520	18619	
==>::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 ME <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18520	18619	
==>::IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 ME <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12731	12875	
==>r $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12731	12875	
==>r $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $server,
        to     => $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	809	915	
==>' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shif <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	710	816	
==>' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29	159	
==>t!
package grammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::altern <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29	158	
==>t!
package grammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::altern <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1514	1628	
==>ly one option, C<:key>, containing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1514	1628	
==>ly one option, C<:key>, containing the key.  
Arcfour keys can be any random number between 40 and 128 bits long, r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39351	39464	
==>ned all at once, but piece by piece.
Because range checking (C<[a-z]>) requires knowledge of the characters
on the <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16530	16649	
==>{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to'} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15584	15695	
==>{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to'} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3162	3262	
==>perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3355	3455	
==>perl5_rule_decl;
*{'grammar1::word'} = sub {
    my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2647	2748	
==>od vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2647	2748	
==>od vtype () { 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::C <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2216	2353	
==>t.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can w <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2216	2353	
==>t.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  return %res
    #} else {
    #  # What context can w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	734	866	
==>.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	734	866	
==>.end;
    return $i_start <= $i_end;
}

method complement ($self: ) returns List of Span::Int 
{
    if $.end == Inf {
        return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4837	5022	
==>> [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

met <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4837	5022	
==>> [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names];
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	24	129	
==>e v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa( <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	24	129	
==>e v6;

sub timeit ($count, $code is copy) is export {
    $code = eval "sub \{ $code \}" unless $code.isa( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17417	17510	
==>:Compile controls the compilation process, calling each compiler
at the right time with the ri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17417	17510	
==>:Compile controls the compilation process, calling each compiler
at the right time with the ri <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	746	916	
==>ar eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.stric <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	746	916	
==>ar eq '^' || $char eq '$' ) {
            $regex ~= "\\$char";
        }
        elsif ( $char eq '*' ) {
            $regex ~= $escaping ?? "\\*" !!
              $.stric <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1441	1638	
==>$in_string) {
                    $in_string = 0;
                    push @t => "'" . (join ' ' => reverse @buffer) . "'";
                    @buffer = ();
                }
                else { <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1097	1220	
==>ke.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

-------------------------------------------- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27050	27149	
==>new files appeared in that directory, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relati <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4296	4405	
==>rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4296	4405	
==>rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12117	12259	
==>e "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12117	12259	
==>e "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # pa <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1838	1952	
==>gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(ind <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1838	1952	
==>gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take encode(ind <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13486	13590	
==>ted lazily. This means that side effects, such as "say" and
database queries, may occur much later than e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13486	13590	
==>ted lazily. This means that side effects, such as "say" and
database queries, may occur much later than e <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1051	1170	
==>wtoks = $split.($buf);
      while +@newtoks > 2 
         || +@newtoks && !defined $i {

        @tokens.push( @newtoks <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1329	1432	
==>ts of junctions --> junctions of lists
# - list concatenation --> array concatenation

# ---------

clas <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1329	1432	
==>ts of junctions --> junctions of lists
# - list concatenation --> array concatenation

# ---------

clas <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9831	9929	
==>p: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9831	9929	
==>p: -> $string is copy { decode_entities($string); };
}

multi sub decode_entities(@strings is rw) i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6456	6574	
==>s
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6456	6574	
==>s
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5849	5953	
==>late_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 't <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5849	5953	
==>late_message (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 't <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	455	549	
==>REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.p <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	455	549	
==>REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\r\n");
    $.remote.p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11221	11342	
==>ents for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # Here <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11221	11342	
==>ents for matching heredoc, pod section, comment block and
# data section.
my $re_here = qr/
(?:                     # Here <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8525	8652	
==>tain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8525	8652	
==>tain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1611	1706	
==>l/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1611	1706	
==>l/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

=over 4

=item new_bucket(Num $rate <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10198	10302	
==>cerned with the well-formedness of the input, such as that mandatory
constructor arguments are provided a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10198	10302	
==>cerned with the well-formedness of the input, such as that mandatory
constructor arguments are provided a <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6195	6324	
==>'\b') if $re eq '\b';
    # \G
    return $o->mk_eater_for_re('\Z') if $re eq '\Z';
    return sub{
      FAIL() if !($X::pos == ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19688	19796	
==>ch in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19688	19796	
==>ch in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta Engine has the co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6752	6906	
==>) }
            |
                ### Test::More
                <Pugs::Grammar::Term.ident> 
                { return { bareword => $/{'Pugs::Grammar::Ter <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	417	530	
==>{}, $class;
  $object;
}

sub newfrom {
  my ( $matchObj, $fromd, $grammar ) = @_;
  my $from;

  if ( $matchObj n <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11348	11448	
==>child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11348	11448	
==>child ($self: Int $index) returns Tree>

=item B<get_all_children returns Array>

=item B<traverse ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	393	582	
==>/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	393	582	
==>/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        g <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	421	523	
==>b can_use {
	my ($self, $mod, $ver) = @_;
	$mod =~ s{::|\\}{/}g;
	$mod .= '.pm' unless $mod =~ /\.pm$/i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4071	4451	
==>q_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($versio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4071	4451	
==>q_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next;
                            }
                        }
                
                        if ($versio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7446	7567	
==>rns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7446	7567	
==>rns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::e <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	37	140	
==>Getopt::Processor {
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer_rol <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3901	4008	
==>g is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gathe <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3901	4008	
==>g is copy) {
#  say "decode Array ->" ~ @index.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gathe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3500	3648	
==>]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub sp {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9974	10074	
==>opy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9974	10074	
==>opy { decode_entities($string); };
}

sub encode_entities_numeric (Str $string) returns Str is export <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2051	2151	
==>d across all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1975	2070	
==>d across all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	528	649	
==>", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime paramete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	528	649	
==>", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime paramete <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8060	8177	
==>from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8060	8177	
==>from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and update
    # all %chann <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10115	10271	
==>t_parameter_binding( $n->{signature} ) .
                        _emit( $n->{exp2}{pointy_block} ) . 
                    "\n }";
        }
        retur <==
2	/Users/nnunley/pugs/util/build_pugs.pl	628	724	
==>nfig.yml` in
the build root. You may override these settings using the PUGS_BUILD_OPTS
environmen <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3079	3178	
==>ult5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() } <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3625	3724	
==>ult5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get]]>() } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13458	13567	
==>s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13458	13567	
==>s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4504	4621	
==>s{name}     ||= $class;
    $args{version}  ||= $class->VERSION;
    unless ( $args{path} ) {
        $args{path}  = $ <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2245	2361	
==>s{name}     ||= $class;
    $args{version}  ||= $class->VERSION;

    unless ($args{path}) {
        $args{path}  = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10802	10927	
==>apture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11081	11206	
==>apture( 'immediate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3492	3590	
==>ctive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell ve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3492	3590	
==>ctive command shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell ve <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13558	13699	
==>~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13558	13699	
==>~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20786	20882	
==>sy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
Module:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20786	20882	
==>sy to prepare a module distribution
with compiled .pmc files. Module::Compile installs a
Module:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1119	1220	
==>Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1119	1220	
==>Perl::Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $typ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	223	320	
==>.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	223	320	
==>.root;

method BUILD($self:) {
    $self.root ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15335	15455	
==>at(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15614	15734	
==>at(
         ruleop::greedy_star(
           ruleop::concat(
             ruleop::capture( 'term1', \&{'grammar1::term1'} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5991	6090	
==>eful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be nec <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5991	6090	
==>eful to avoid changing the 
actual semantics.

Please note that most of the time, it will not be nec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	165	288	
==>is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	165	288	
==>is rw;
    
    submethod BUILD (Str $.method, $.uri) { }
    
    method parse (Str $str is copy) {
        my $request_lin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10823	10999	
==>atement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11102	11278	
==>atement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2304	2445	
==>.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2304	2445	
==>.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods;
}
sub TRUE  { 1 }
sub FALSE { 0 }

=pod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3367	3534	
==>ned $n ||
            @$n == 0;
    
    #warn "parameter list: ",Dumper $n;

    #    'scalar' => '$desc',    $v
    #    'optional' => 1,        $v?
    #    ' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6700	6828	
==>pkg;\n";
    }
    #print $code;
    $code;
}
BEGIN{ eval(gen_code); die $@ if $@; }

package PIL::PIL1CPerl5::Util;
sub rebless_ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2093	2193	
==>e::Module> called C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Sin <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2093	2193	
==>e::Module> called C<note> without providing any tags, it 
would look for a tag named C<Module>.)  Sin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1035	1167	
==>"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1035	1167	
==>"    => 'Ê',  # capital E, circumflex accent
    "Egrave"   => 'È',  # capital E, grave accent
    "Euml"     => 'Ë',  # capital E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14546	14675	
==>e v6.pm ???
            'my $p6 = Pugs::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . ' ); ' .
            'my @result = e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	839	958	
==>) 
                or error( Params::Check->last_error ), return;

    $self->mk_accessors( qw[files alternative install <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/bindung.pl	115	247	
==>fzeit an $y gebunden
my $y := $x;
$y = 'Perl Hacker'; # $x ist nun auch 'Perl Hacker'
	
#=Bindung (statisch)
my $y ::= $x # Bindung z <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9565	9663	
==>et1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9565	9663	
==>et1.proper_superset($set2)>

Returns true if C<$set1> is a proper subset (superset) of C<$set2>, i. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	6	104	
==>ge Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

ou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	6	104	
==>ge Pugs::Runtime::Grammar;

use strict;
use warnings;
use metaclass;

use Pugs::Compiler::Rule;

ou <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3801	3900	
==>sc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5703	5802	
==>sc);
}

# Begins testing

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4945	5046	
==>roclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) retu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5003	5104	
==>roclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $count, Str $reason, :$depends) retu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1735	1852	
==>anded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1735	1852	
==>anded = eval $perl5;
    die $@ if $@; 
    my $final_ast = 
        ::compile_rule( q( [ <?ws>? <@grammar1::statement <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12053	12147	
==>, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function curr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12111	12205	
==>, Str $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function curr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5569	5705	
==>rong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5581	5717	
==>rong, but bug-compatible with previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18685	18808	
==>bject(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20043	20166	
==>bject(branch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $if <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37402	37498	
==>ion>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41951	42047	
==>ion>

This multi-method is the N-ary version of the aforementioned binary join()
operator, and th <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	847	967	
==>p { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => jo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	748	868	
==>p { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => jo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13006	13105	
==>returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structur <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13006	13105	
==>returns a deep copy of all of this Document's member Nodes as a
tree of primitive Perl data structur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2241	2361	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2241	2361	
==>atch = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7383	7598	
==>_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7847	8062	
==>_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13131	13280	
==>int "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @ke <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13131	13280	
==>int "hash keys: @keys\n";
    @keys = map {
        concat(
            constant( $_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @ke <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12563	12710	
==>NG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12563	12710	
==>NG $0");
      } else {
        debug "No handler found for \"$line\".";
      }
    },

    # Handle numeric commands (e.g. 001 -> welcome)
    han <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1717	1853	
==>lf->{levels}[$_]} ) {
            $relative_precedences{$opt->{precedence}}->($self, $_, $opt);
            return;
        }
    }
    p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3442	3538	
==>Type', 'MkType',
  'typename', 'String';
node_a2 'Type', 'TypeOr',
  'lhs' ,'Type',
  'rhs' ,'Typ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1125	1230	
==>r_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1125	1230	
==>r_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param ) <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3755	3857	
==>e_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        ne <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3755	3857	
==>e_command($_cmd));

    for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
        ne <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10542	10634	
==>...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10542	10634	
==>...}, complement_next => sub {...}, complement_previous => sub {...} )`

Creates a recurrence <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6361	6458	
==>print a document identified by a URL. The document is printed
to the selected default filehandle f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6361	6458	
==>print a document identified by a URL. The document is printed
to the selected default filehandle f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3877	3994	
==>BUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::inclu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3877	3994	
==>BUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::inclu <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2122	2233	
==>y $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2122	2233	
==>y $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_size if $tokens > $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3480	3665	
==>sub  Perl6::List::sort(; SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             ) returns List
 multi sub Perl6::Lists::zi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	749	858	
==>op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "postcircumfix:<" . $opt{name} . " " <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21918	22069	
==>t;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifde <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16820	16970	
==>t;
            U8 *what;
            void* data[1];
        };

Leave something real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifde <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	231	340	
==>alue = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	231	340	
==>alue = ($escape) ?? simple_escape(%attrs{$key}) !! %attrs{$key};
        
        push @return, (%attrs{$key}. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5879	5978	
==>, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5937	6036	
==>, Str $expected?, $depends?, $negate?) returns Bool {
    $Test::testing_started = 1;
    $Test::num <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1829	1922	
==>/builtins,t/macros --output_dir=t_test --no_designdocs

   See also:
     util/yaml_harness.pl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3028	3119	
==>e;
  "}; if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpva <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3455	3625	
==>y_bindir;

                ### load in the alternatives collection
                my $href = LoadFile( $Altfile );
                
                ### check if we're the <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4028	4165	
==>|| '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '' <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2979	3102	
==>|| '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12082	12269	
==>duct;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivial cases that are mor <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15559	15746	
==>duct;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look for trivial cases that are mor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10576	10698	
==>eset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10576	10698	
==>eset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6968	7082	
==>ef($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6968	7082	
==>ef($match) eq 'Pugs::Runtime::Match';
        return unless $match->{bool};
        ## return if $match->{abort}; - <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9514	9642	
==>e is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # ot <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9514	9642	
==>e is no change, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # ot <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4355	4452	
==>ied to the CD, too.
  --initrd-gz=$initrd_gz
    mklivecd.pl automatically generates a gzipped ini <==
2	/Users/nnunley/pugs/util/run-smoke.pl	141	236	
==>in, "..", "inc");
use PugsBuild::Config;

my $failed = 0;
for (qw/YAML Test::TAP::Model Test::TA <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13956	14063	
==>@_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX class
  $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13447	13570	
==>mand} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13447	13570	
==>mand} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7397	7527	
==>RLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7397	7527	
==>RLF", 1);
}

my method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	253	364	
==>rammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	264	375	
==>rammar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7493	7611	
==>ets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.in <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7493	7611	
==>ets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4758	4871	
==>piler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emitter => \$n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4594	4704	
==>piler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emitter => \$n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23800	23929	
==>urn $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20221	20350	
==>urn $S->$n if $S->can($n);
      &RxPOS--;
    }

    if (${&Rx} =~ m{ \G ( [1-9]\d* ) }xgc) {
      my $n = $1;
      $S->error(R <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3353	3487	
==>= $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3353	3487	
==>= $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15855	15959	
==>_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19332	19436	
==>_difference( $other!body ),
    );
}

my method _intersection (Relation $other!) returns Relation {
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8462	8563	
==>Y' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8450	8551	
==>Y' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, 'Pugs::Runtime <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3412	3552	
==>= "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3412	3552	
==>= "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2335	2451	
==>as $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2335	2451	
==>as $.Parser;
has $.Result;

submethod BUILD () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	705	815	
==>TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infi <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	705	815	
==>TODO - test flatten(), is_lazy(), error messages
# TODO - emit error message if attempting to flatten() an infi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	399	494	
==>.node   = $node if $node.defined;   
}

## ----------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	399	494	
==>.node   = $node if $node.defined;   
}

## ----------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31347	31441	
==>dren of this object.

=item dir

The direction of this object (for look-ahead/behind assertions <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1285	1390	
==>$item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1285	1390	
==>$item) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!m <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4085	4204	
==>s;
        $ret = emit_parameter_with_default(
            traverse_ast( %pad<"tpParam"> ), traverse_ast( %pad<"tpDefaul <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3052	3170	
==>lues{perl_version} ) {

        # Always canonical to three-dot version
        $perl_version =~
          s{^(\d+)\.(\ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15299	15406	
==>,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	502	629	
==>n32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $scr <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	502	629	
==>n32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $script ~~ m:P5 [/] || ( $dosish && $scr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7696	7799	
==>azy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.p <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7696	7799	
==>azy_array.push( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1508	1706	
==>ey;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1508	1706	
==>ey;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2847	2966	
==>use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2905	3024	
==>use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21685	21812	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21964	22091	
==>match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statem <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1766	1862	
==>one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1766	1862	
==>one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	481	617	
==>kwid? - easier to indent (but not supported by p5 by default)

### move definitions to end-of-file?



* boxed / unboxed



* AST Abstrac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	455	586	
==>kwid? - easier to indent (but not supported by p5 by default)
### move definitions to end-of-file?

* boxed / unboxed

* AST Abstrac <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	310	436	
==>ect & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Me <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1535	1661	
==>ect & error checking
    my $struct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Me <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13293	13578	
==>ailedtests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile, 
                                             percen <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17443	17543	
==>se map{$_=$ROOT.$_} @classes;
    shift(@classes); # dont want current class;
    push(@classes,$ROOT <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9816	9920	
==>t() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9816	9920	
==>t() unless $self.is_root();
}

method fix_width ($self:) {
    my $fixed_width = 0;
    for @!children -> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4009	4116	
==>mpile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4226	4333	
==>mpile: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "co <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32624	32725	
==>on()
operator, and the order of its arguments is not significant to the result;
the new Relation conta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37174	37275	
==>on()
operator, and the order of its arguments is not significant to the result;
the new Relation conta <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22331	22437	
==>Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invok <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22331	22437	
==>Rosetta indicates a failure is to throw an exception;
most often this is due to invalid input.  If an invok <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1871	1969	
==>urn &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1871	1969	
==>urn &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmp <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4457	4583	
==>ny( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            map <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7934	8060	
==>ny( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            map <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3780	4114	
==>n 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                whe <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3780	4114	
==>n 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                whe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	4119	4300	
==>0,10),"'\n"
                if $match;
            
        } # /for
            
        my $ast = $m->();

        {
            # XXX temporary hack - check if an alphanumeric-end <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	455	577	
==>ol nil type  
        list hash reference block 
        closure closure::env closure::signature closure::params
        op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4713	4868	
==>le with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4725	4880	
==>le with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2895	3019	
==>/add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we / <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2895	3019	
==>/add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2766	2861	
==>The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2766	2861	
==>The request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.que <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10914	11036	
==>ram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10908	11030	
==>ram . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule} <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	588	688	
==>is not bound to a type until the role is included in the class.

This has the effect of making C<Role <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	435	534	
==>thods.

=back

Normally, when you declare a Method on a Class, it is bound to that
Class' C<Type> ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13481	13585	
==>eld_names

Returns the list of distinct names for the fields present in the
header.  The field names have <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13481	13585	
==>eld_names

Returns the list of distinct names for the fields present in the
header.  The field names have <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	828	950	
==>TROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }

sub AUTOLOAD {}

sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	802	922	
==>TROY {}

package Module::Install::Base::FakeAdmin;

my $Fake;
sub new { $Fake ||= bless(\@_, $_[0]) }
sub AUTOLOAD {}
sub <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	184	297	
==>fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fie <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	184	297	
==>fields($self:) {
    <source sourcefile sourceline>;
}

method dom_attr($self:) returns Hash {
    { $self.dom_fie <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29435	29551	
==>e types don't merge.  Returns true if
the node was merged with the previous one.

=item my $o = $obj->omit()

=item m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21499	21611	
==>-= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser::Handlers - ha <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3730	3853	
==>dir);
    print "P6 design documents   : $syn_src_dir\n";
}
if($#t_dirs >= 0) {
    print "Tests                 : @t_dirs\n <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	535	649	
==>t;
    goto &{$self->_top->autoload};
}

#line 60

sub _top { $_[0]->{_top} }

#line 71

sub admin {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8049	8155	
==>ize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8049	8155	
==>ize $event<from_nick>);
    });

    # Somebody changed his/her nick. Rename his/her entry in %users, and u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3974	4109	
==>\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3974	4109	
==>\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	649	774	
==>);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchm <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	649	774	
==>);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
}

=pod

=head1 NAME

Benchmark - Benchm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1108	1215	
==>= 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos(' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1108	1215	
==>= 
    concat( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos(' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7727	7832	
==>ir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7727	7832	
==>ir((updir) xx @basechunks, @pathchunks);
    return canonpath(catpath("", $result_dirs, ""));
}


=kwid

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3540	3690	
==>ent {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]->{captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3399	3543	
==>ent {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1941	2044	
==>tr $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1941	2044	
==>tr $field, Str $val) {
  $self!header($field, $val, "PUSH");
}

method init_header ($self: Str $field, S <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	243	350	
==>rt {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	243	350	
==>rt {
	my $caller=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10528	10698	
==>try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10528	10698	
==>try { $hdl.close };
        # We want to have a sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	924	1029	
==>print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1176	1281	
==>print "Perl5 source:\n", wrap( $r ), "\n";
my $x = eval wrap( $r );
print "Tail, Match:\n", Dumper( $x-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10418	10524	
==>$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10418	10524	
==>$var_name\>/$var_value_as_str/; #: v req PGE/Parrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	633	747	
==>0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	633	747	
==>0D\x0A\x0D\x0A";
my $VERSION = "0.0.1";


sub getprint (Str $url) is export
{
  getstore $url, '';
};

# FIXME to u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4797	4935	
==>ble the
    internal/external distinction is just a trait, and that some of those
    things are subs or methods rather than rules or macro <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16889	16989	
==>= "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (exp, $P99, $P99, $P0 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6324	6511	
==>)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot fin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2662	2755	
==>->type while Scalar::Util::blessed($type);
	$type = $type->[0] while ref $type and @$type == 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1107	1226	
==>Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1107	1226	
==>Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete($self._stringify($x));
    }
    return $pre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16032	16154	
==>od clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16032	16154	
==>od clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has Str @!perms;

    submethod BUILD( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11031	11131	
==>ed by your program.  It is analagous to a simplified version of the
"Document" interface defined in t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11031	11131	
==>ed by your program.  It is analagous to a simplified version of the
"Document" interface defined in t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	545	673	
==>ing of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric capt <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	545	673	
==>ing of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2162	2255	
==>s the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2251	2344	
==>s the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rules syntax with Rule <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5346	5470	
==>c2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5346	5470	
==>c2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1051	1143	
==>rl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1051	1143	
==>rl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25605	25702	
==>ch is the same as the invocant Relation but that some of its attributes
are renamed.  The argument <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30157	30254	
==>ch is the same as the invocant Relation but that some of its attributes
are renamed.  The argument <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9328	9431	
==>urn = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9328	9431	
==>urn = $klass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $retu <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	770	896	
==>oc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "sour <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	770	896	
==>oc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this node
     });


 # no "sour <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3836	3938	
==>Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3836	3938	
==>Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our &Se <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19599	19716	
==>bonusmsg = '';
    $bonusmsg = (" ($tot->{bonus} subtest".($tot->{bonus} > 1 ? 's' : '').
               " UNEXPECTEDL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5589	5756	
==>-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5589	5756	
==>-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	974	1102	
==>ELF;

}

# takes the object and "builds" it into a class
method apply {
    ...
}

# hmm, what do we need to test to check for ci <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6769	6922	
==>) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7233	7386	
==>) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, _parse_d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1508	1660	
==>f last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1508	1660	
==>f last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5632	5860	
==>me} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6481	6709	
==>me} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	267	393	
==>pted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	267	393	
==>pted',
        203 => 'Non-Authoritative Information',
        204 => 'No Content',
        205 => 'Reset Content',
        206 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16590	16702	
==>e...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16590	16702	
==>e...
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
bloc <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7360	7470	
==>ched.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which is preceeded by an '= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7360	7470	
==>ched.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (which is preceeded by an '= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8806	8900	
==>ush @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2631	2725	
==>ush @terms, sub { Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3758	3856	
==>alue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3758	3856	
==>alue
class Perl::Compiler::PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6402	6518	
==>ti sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6402	6518	
==>ti sub *infix:<+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17429	17520	
==>ocument.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE>. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17429	17520	
==>ocument.  In libwww-perl this header will be
initialized automatically from the E<lt>TITLE>. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1907	2004	
==>e (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1834	1930	
==>e (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4018	4135	
==>untime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4158	4275	
==>untime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_[0] : 'undef' }
sub _quot { 
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3746	3843	
==>ans.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete AP <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3746	3843	
==>ans.

It is intended mostly for "internal" use by the Set::Infinite class. 
For a more complete AP <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14202	14322	
==>elation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17679	17799	
==>elation @r_with_disjoint_attrs;
    while (my $r1 = @sources.shift()) {
        if ($r1!body.size() == 0) {
            @ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13362	13481	
==>n boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is ev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13362	13481	
==>n boolean function.

    # remove 0 and 5 from the recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is ev <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11205	11306	
==>e $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11263	11364	
==>e $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	267	375	
==>ash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the has <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	267	375	
==>ash of (v => v)
has %!members;

method members() returns List {
    # XXX - this is nessecary because the has <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32584	32743	
==>e->get('$self:')->send('MRO')->reverse);
            }
        )
    )
);

=pod

method _make_ascendant_dispatcher (opaque $self:) returns block {
    $self._ma <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	364	483	
==>rted = 0;
BEGIN { our $regcompp = undef };

sub import {
    my $class = shift;
    my $flavor = shift;
    $flavor =~ s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2377	2496	
==>D () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$mul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2377	2496	
==>D () {
    $.Result = Result;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$mul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33099	33197	
==>For now, read the source (!).

=head2 bol

Family: anchor

Types: bol (C<^>), sbol (C<^> with C</s> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23591	23682	
==>extend the
Relation library's interface.

See also the bundled L<Relation::Example>, which p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6050	6154	
==>y_ the capture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5857	5957	
==>y_ the capture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11221	11319	
==>change the semantic of a header field, but
in practice there are cases like old-style Netscape cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11221	11319	
==>change the semantic of a header field, but
in practice there are cases like old-style Netscape cook <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26294	26397	
==>e attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the original (or <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30846	30949	
==>e attribute names in the argument C<$attrs>.  The new Relation has all
of the tuples of the original (or <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5662	5772	
==>r to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util:: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5662	5772	
==>r to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30768	30872	
==>he Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30768	30872	
==>he Member
Name.  The Set Name comes first and makes up most of the module name; it
must be the same for e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3978	4075	
==>bility

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the sa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3978	4075	
==>bility

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also describes the sa <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5064	5191	
==>n_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5064	5191	
==>n_end );
    }
    return;
}

method stringify () returns String {
    return '' unless defined $.start;
    my $tmp1 = "$.start <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11825	11925	
==>6:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 S <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11825	11925	
==>6:16 gisle Exp $

=head1 NAME

HTML::Entities - Encode or decode strings with HTML entities

=head1 S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2759	2886	
==>ndencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3223	3350	
==>ndencies {
        my $meta    = shift or die "Meta object required";
        my $print   = shift || 0;   # print the parsed dep <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7351	7450	
==>ation, concatenation.

- "plain" match operators: like 'literal'.



Higher order operators take a l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7101	7197	
==>ation, concatenation.
- "plain" match operators: like 'literal'.

Higher order operators take a l <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7319	7424	
==>t {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.differenc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7319	7424	
==>t {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns Set {
    $one.differenc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3976	4070	
==>:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Sy <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3976	4070	
==>:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Sy <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12089	12183	
==>input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12089	12183	
==>input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print encode_entities($in), " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2450	2547	
==>.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2450	2547	
==>.set.start_is_open }
method start_is_closed () returns Bool { return $.set.start_is_closed }
metho <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27932	28036	
==>H_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_COPIED_on(prog) \
					  : RX_MATCH_COPIED_off(prog))

 #if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20473	20582	
==>production.

For production use, there should be a wide variety of third party Engine
modules that become avai <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20473	20582	
==>production.

For production use, there should be a wide variety of third party Engine
modules that become avai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1293	1409	
==>r.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1282	1390	
==>r.methodname 99;
$bar.methodname;
my $code = { 42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16239	16350	
==>$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16239	16350	
==>$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1516	1647	
==>rgs) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1516	1647	
==>rgs) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA Module::Compile and get the hell out o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	708	868	
==>asses        
    );

    my @res;
    while (1) {
        # remove all empty seqences
        my @nonemptyseqs = (map { (($_->is_empty == $bit::FALSE) ? $_ : () <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17221	17325	
==>a virtual machine that is embedded in your Perl application and
in which the Rosetta D code runs (it is a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17221	17325	
==>a virtual machine that is embedded in your Perl application and
in which the Rosetta D code runs (it is a <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1213	1319	
==>rce fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1213	1319	
==>rce fragment, but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	503	597	
==>LE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http: <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	503	597	
==>LE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2410	2561	
==>_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item confo <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2410	2561	
==>_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item confo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	135	255	
==>lf.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
} <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	135	255	
==>lf.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %att = (%att, %.attr);

    return %att;
} <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1675	1786	
==>ck "u", <$EIN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11763	11875	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12042	12154	
==>pture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'gram <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9295	9412	
==>port {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $lati <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9295	9412	
==>port {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $lati <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1782	1913	
==>, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.ce <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1782	1913	
==>, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.ce <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3193	3327	
==>match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3193	3327	
==>match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1141	1298	
==>rcname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1141	1298	
==>rcname      is rw;
  has Str   $.host         is rw;
  has Int   $.port         is rw;
  has Int   $.autoping     is rw;
  has Int   $.live_timeout is rw;
  h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7096	7229	
==>shift;
    if (ref $self->{data}) {
      $self->{data}->visual;
    }
    else {
      join "", "[", $self->{how}, ($self->{neg} ? '^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6219	6363	
==>ent};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6219	6363	
==>ent};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3201	3311	
==>tring.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3201	3311	
==>tring.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18705	18802	
==>s to avoid problems.  While simultaneously
trying to avoid triggering core behavior which we are n <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2995	3092	
==>s to avoid problems.  While simultaneously
trying to avoid triggering core behavior which we are n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9440	9528	
==>ass_pos(X)) --> "[:",  charset_identifier(X), ":]", !.
p5_charset_item(R) --> p56_char_cl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38109	38356	
==>mbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:attr <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1013	1112	
==>m::round_alternate (Num $x) {
# XXX I don't understand what round-alternate means.
# But in my under <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18340	18442	
==>ing to users, easy messages are
better.

I have found that when it comes to getting the most accurate p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18340	18442	
==>ing to users, easy messages are
better.

I have found that when it comes to getting the most accurate p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7394	7509	
==>eanup {
    my($o,$prefix)=@_;
    my $ref = ref $o;
    return $o if !$ref;
    return $o if $ref eq 'Math::BigInt' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2364	2491	
==>s);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2422	2549	
==>s);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $d <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17961	18156	
==>bstr($fmt,$start,$fi - $start);

        # FIXME -- when next; works, do if $spec eq "%" { ...; next; }
        my $arg;
        if $specifier ne '%' {
            die "Insufficient arguments to s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9867	9972	
==>L::PIL1::NodeSet0::');
    return if !defined $p;
    my $c1 = $p->unparse;
    $c1 =~ s/PIL_Environment/P <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4866	4993	
==>Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4866	4993	
==>Yuml"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1023	1179	
==>rchive -C $my_tmp_dir -xz] )    and die $?;
    
        my $meta_dir = $Metactrl . "/$path";
        ### extract the meta info
        ### XXX extract to $B <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	1850	1977	
==>lass->superclass;
        }

        confess "No method found for '$label'";
    }
}

# The 'Class' class -- placed here so ::cr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	268	377	
==>Bad Request</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body> <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	268	377	
==>Bad Request</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </body> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7036	7234	
==>x"
        
        if ( exists $n->{self}{code} ) {
            # &code.goto;
            return 
                " \@_ = (" . _emit( $n->{param}, '  ' ) . ");\n" .
                " " . _emit <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14364	14465	
==>gexp engine was long ago derived from Henry Spencer's
  regexp library.  http://arglist.com/regex/  Wh <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11901	12004	
==>r()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11901	12004	
==>r()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C<$set1 == $set2 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15370	15481	
==>ift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub reduce_thunk { <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23487	23581	
==>ACE

The interface of Relation::Example is entirely object-oriented; you use it by
creating obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4684	4859	
==>=~ m{ \G (?: \s+ | \# .* )+ }xgc and redo;
  }
}


sub object {
  return if &SIZE_ONLY;
  my $self = shift;
  $self->force_object(@_);
}


sub force_object {
  Carp::croak("cla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33423	33520	
==>eol (C<$> with C</s> on, C<\Z>), meol (C<$> with
C</m> on), eos (C<\z>)

=head2 reg_any

Family: r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4431	4536	
==>e.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite { <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4431	4536	
==>e.new();
    $res.set = $tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29421	29533	
==>ree.  Most node types don't merge.  Returns true if
the node was merged with the previous one.

=item my $o = $ob <==
2	/Users/nnunley/pugs/util/package-osx.pl	8468	8565	
==>man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Run.3
        /usr/local/man/man3/ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	926	1025	
==>less we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	926	1025	
==>less we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_ <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	26	163	
==>ng = 2;
my $thr1 = async {
    say "Thread 1 started";
    atomically {
        $a > 5 or retry;
        $a = -1000;
        $still_runnin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9382	9485	
==>m($value)" if !ref($value);
    # Math::BigInt-> bnan binf binf('-') is part of -CPerl5 spec.
    my %un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1317	1429	
==>\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1317	1429	
==>\\])/\\$1/g;

    my $expr = match::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1316	1431	
==>->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1316	1431	
==>->{label};
    ref($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	651	763	
==>$doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You n <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	651	763	
==>$doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body>
    <h1>Congratulations!</h1>

    <p>You n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5280	5391	
==>docs;

# Generating index.html
my @dirs = sort keys %{$index->{_dirs}};
my $index_file = catfile($output_dir,"in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9403	9709	
==>satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10880	11186	
==>satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21030	21121	
==>eudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Or <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21030	21121	
==>eudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Firebird, Teradata,
Or <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4693	4794	
==>ata = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some val <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4552	4653	
==>ata = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has already set some val <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2621	2730	
==>le($subrole);
        #$output .= "node_" . $subrole->id . " -- node_" . $role->id . " [ dir = back, style = s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	515	640	
==>adline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_par <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	515	640	
==>adline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:P5{^=pod}) {
            $is_par <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	764	869	
==>.

It has one property - content.

The constructor for this class has a special shortcut syntax compared
t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	764	869	
==>.

It has one property - content.

The constructor for this class has a special shortcut syntax compared
t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	196	330	
==>= (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # great <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	196	330	
==>= (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # great <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	472	561	
==>----------------------------------------------
## accessors and mutators

method parent ($ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	472	561	
==>----------------------------------------------
## accessors and mutators

method parent ($ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1170	1311	
==>r => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verba <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1170	1311	
==>r => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handling
        verba <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	118	365	
==>edText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	118	365	
==>edText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file: <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9064	9167	
==>tches($file);

Formats and returns the switches necessary to run the test.

=cut

sub _switches {
    my <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5054	5155	
==>nce { \\ <[trfeTRFE]> }
rule octal_escape_sequence  {
    \\ 0
      [ <octaldigit><octaldigit><octald <==
2	/Users/nnunley/pugs/misc/S29_round.pl	428	567	
==>low 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1433	1530	
==>his for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1433	1530	
==>his for anything more than obscuring text from 
accidental viewing.  (rot13 in particular is often <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4131	4308	
==>se $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4131	4308	
==>se $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7014	7128	
==>onment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7573	7687	
==>onment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11807	11899	
==>azi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Li <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11807	11899	
==>azi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Stevan Li <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	911	1012	
==>'d from meta.pm -- subclass/inherit
=head2 $struct = $alt->to_struct;

=cut

sub to_struct {
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4717	4833	
==>) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4717	4833	
==>) {
     ...
  }

  if (getprint("http://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for p <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	20	139	
==>type Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	20	139	
==>type Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9707	9810	
==>pan => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clone <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9707	9810	
==>pan => $_ ) };
}

method difference ($self: $span is copy) returns List of Span {
    return $self.clone <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23617	23709	
==>y's interface.

See also the bundled L<Relation::Example>, which provides a minimal in-RAM
st <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4733	4821	
==>',@_)}
sub p6_Num {p6_new('Num',@_)}
sub p6_Rat {p6_new('Rat',@_)}
sub p6_Str {p6_new('St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5920	6040	
==>5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5920	6040	
==>5] - ", length($_[6])-length($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14402	14503	
==>r appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14460	14561	
==>r appended to it, this is
ignored by the TAP protocol.

= FUTURE PLANS

This module is still a work in <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	439	544	
==>s copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    retur <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	439	544	
==>s copy ) {
    %param<density> = Date::Duration.new( days => 1 ) unless defined %param<density>;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5631	5750	
==>ete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our st <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5631	5750	
==>ete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our st <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4891	4990	
==>nit.

=item Seq

Applies it's children one by one and reduces to the value of it's last child.
Reduc <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	866	1002	
==>g "doesn't look like a smoke; aborting.\n";
    exit 1;
  }

  $request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4673	4791	
==>f = shift;
	my $val = shift;

	$self->reduce($val->struct_equiv->val);
}

sub add_definition {
	my $self = shift;
	my $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17196	17292	
==>mp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives y <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17196	17292	
==>mp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives y <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	985	1107	
==>[0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use bas <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	985	1107	
==>[0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use bas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	846	961	
==>\$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	855	970	
==>\$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_p <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	141	263	
==>lsevier Inc
###
### Ported to Perl6 by Dan Brook
###

## Chapter 6 section 2

#package Stream;

# use base Exporter;
# @EXP <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	531	629	
==>pecify a higher order type?
type CxtItem ( Perl::Type );
type CxtSlurpy ( Perl::Type );

type Perl: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13759	13899	
==>or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13759	13899	
==>or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4567	4675	
==>kes the runtime throw a fatal error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	176	273	
==>log > /tmp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use Time::Piece;
use Time:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28585	28697	
==>:KeyedText doesn't define any "Template" modules, but it expects you
to make modules having a specific simple API <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28585	28697	
==>:KeyedText doesn't define any "Template" modules, but it expects you
to make modules having a specific simple API <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4393	4537	
==>"sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4393	4537	
==>"sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "micro"    => 'µ',
    "para"     => '¶',
    "middot"   => '·',
    " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8049	8141	
==>::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1874	1966	
==>::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1221	1431	
==>ot.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interfac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1221	1431	
==>ot.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interfac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9028	9160	
==>on_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$qu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9024	9156	
==>on_greedy_plus',
            '?' =>'optional',
            '??' =>'null_or_optional',
        }->{$quantifier};
    # print "*** \$qu <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	677	778	
==>tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize du <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	677	778	
==>tmp<density> = Date::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize du <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10170	10289	
==>e$_[0]'}\n";
}
sub node::negated_subrule {
    return "$_[1] ruleop::negate( \\&{'$namespace$_[0]'} )\n";
}
sub node::co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2758	2853	
==>rototype->class, \&Object, '... got the right class name');

is($p->get_x, 5, '... got the right <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13669	13829	
==>=~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $ma <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13669	13829	
==>=~ s/
        (
            ^__DATA__\n[0-9a-fA-F]{40}\n
        |
            ^=pod\s[0-9a-fA-F]{40}\n=cut\n
        )
    /
        my $match = $1;
        $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2825	2973	
==>);
    __PACKAGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    
    _ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15902	16009	
==>g = env($$);
	my %new = (
		%$orig,
		($.ide) => type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	220	329	
==>turn $?SELF;
}

method addMethod(Method--Perl6 $meth) {
    ...
}

method apply() {
    ...
}


=head1 NAME

R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40590	40687	
==>ee methods you can use when a problem arises.  They use
Carp::carp() or Carp::croak().  The argume <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17087	17207	
==>Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'prede <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17087	17207	
==>Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        attributes => {
            'prede <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1105	1220	
==>r_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1105	1220	
==>r_superset
    * subset
    * superset
    * includes/member/has

=cut

submethod BUILD ($class: *%param is copy ) { <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	494	608	
==>y($o)=@_;$$o->{'to'}}

sub new {
    my($cls,%args)=@_;
    my $h = {};
    my $o = (bless \$h,$cls)->init();
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1136	1227	
==>ll_term'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13410	13524	
==>he recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effect <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13410	13524	
==>he recurrence
    my $span1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effect <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	999	1103	
==>ed.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	999	1103	
==>ed.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	936	1050	
==>rn } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	936	1050	
==>rn } or a fail(),
           and it should not backtrack or whatever
    return - the block (sub-reference) that co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2061	2222	
==>nt ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2061	2222	
==>nt ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.List) {
                    $!content unless $!co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2154	2290	
==>{
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2154	2290	
==>{
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1201	1315	
==>wer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) returns Object {
    ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1201	1315	
==>wer = (all(@items) === any($!members));
    return $answer;
}

method member($self: $item) returns Object {
    ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	372	472	
==>st_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	372	472	
==>st_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidentally override th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10086	10181	
==>rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE MkParam ($isInvocant, $isOptional, $isName <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2664	2754	
==>varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname})\s*${re <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	398	493	
==>fh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	398	493	
==>fh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1437	1669	
==>.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1437	1669	
==>.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_element>('item');                     
                    }
                    w <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7807	7905	
==>equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emitter - 

=head1 S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5543	5683	
==>::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5736	5876	
==>::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	141	240	
==>z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.* <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	141	240	
==>z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.* <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1450	1649	
==>y " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1450	1649	
==>y " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3602	3705	
==>/local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on t <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3602	3705	
==>/local/ date.

- `new( epoch => Int|Real $epoch)`

Given an epoch time, returns a Date object based on t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17806	17916	
==>em $h.server

The server header field contains information about the software being
used by the originating ser <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17806	17916	
==>em $h.server

The server header field contains information about the software being
used by the originating ser <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14842	15022	
==>roduct     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation::Example $other!) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6241	6339	
==>turn $node;
		} else {
			warn "casting";
			return $self->runtime->cast_node_type($node, $de_facto <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4832	5014	
==>es' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4832	5014	
==>es' => [@!member_names],
    };
}

###########################################################################

method get_set_names () returns Array of Str {
    return [@!set_names] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4761	4857	
==>ex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4901	4997	
==>ex - Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Pe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6588	6685	
==>'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type', <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6588	6685	
==>'Type', 'TypeOr',
  'xLHS' ,'Type',
  'xRHS' ,'Type';
node_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type', <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8916	9019	
==>he Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8916	9019	
==>he Perl 5 File::Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	210	325	
==>int "Use perl version of &infix:<$_> instead of Blondie one from prelude? ";
        ReadMode(3);
        my $y = lc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1413	1523	
==>re the main program here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2399	2499	
==>"'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2457	2557	
==>"'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($result, $desc, :$t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16237	16329	
==>$as_p6obj_complain->("glob") },
      lvalue => sub { p6_perl6_objects_from_whatever(${$_[0]} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7131	7287	
==>> 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7131	7287	
==>> 'name' }, [
                $sdtd_person_name,
            ] ],
            [ 'row_data_type_field', { 'name' => 'sex' }, [
                $sdtd_person_se <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2535	2729	
==>s ) = splice( @_, 0, 2 ) ) {
        $self->feature( $name, @$mods );
    }
    return @{ $self->{'values'}{'features'} };
}

sub no_index {
    my $self = shift;
    my $type = shift;
    push @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4507	4648	
==>( q(
            { return { num => 'Inf' ,} } 
        ) ),
        NaN => Pugs::Compiler::Regex->compile( q(
            { return { num => 'N <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12078	12185	
==>ove_available( package => $inst_pkg );

=cut

sub remove_available {
    my $self = shift;
    my %hash = @_ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1138	1233	
==>ord.  Or maybe the full package
name (C<Type--Perl6>) disambiguates this case.

Types have a dis <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6335	6439	
==>t<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6335	6439	
==>t<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if %!users{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20129	20217	
==>alized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20129	20217	
==>alized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_handle <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	695	812	
==>l-compatible regular expressions

=head1 SYNOPSIS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20581	20672	
==>rn "\$${ROOT}::Scalar::META->new()" if $name =~ /\$|\&/;
    return "\$${ROOT}::Array::META- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26532	26630	
==>cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which case <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31084	31182	
==>cases are where C<$attrs> is either empty or equal to
the invocant Relation's header, in which case <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6930	7034	
==>o->mk_eater_for_re('\w') if $re eq '\w';
    return $o->mk_eater_for_re('\W') if $re eq '\W';
    die "Re <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2664	2766	
==>let_stack;
sub let_gen {
  my($vars)=@_;
  my $nvars = 1+($vars =~ tr/,//);
  my $tmpvars = join(",",ma <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	140	235	
==>>', '$cond', '$true', '$false'), # non short circuiting

    '&control_structure:<if>' => Thunk( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16404	16499	
==>med parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16404	16499	
==>med parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2578	2735	
==>P::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2578	2735	
==>P::Debug::debug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	570	727	
==>program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	570	727	
==>program
*body = $rule->compile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25841	26033	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26120	26312	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'ter <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8801	8900	
==>tem I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This event process <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8801	8900	
==>tem I<verbatim>

This event handles the entire verbatim string.

=item I<string>

This event process <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4931	5103	
==>,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method str <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4931	5103	
==>,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24578	24721	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24857	25000	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::captur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1372	1465	
==>eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1430	1523	
==>eq $expected_perl);
    Test::proclaim($test, $desc, $todo, $got_perl, $expected_perl, $depend <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9507	9597	
==>t of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9507	9597	
==>t of C<$set2>.

=head2 C<$set1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Retu <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1256	1363	
==>ttp_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1256	1363	
==>ttp_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: c <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10362	10477	
==>S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" goto err_closure
    inc pos <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	929	1028	
==>$request{smoke} = $compress->($smoke) || $smoke;
  debug "ok.\n";
}

{
  debug "Sending data to smok <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3043	3159	
==>$.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3043	3159	
==>$.start <=> $span.start;
    if ($cmp > 0) {
        $i_start = $span.start;
        $open_start = $span.start_is_ope <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3895	4080	
==>$path );
    
                    for my $test ( keys %$href ) {
                        if( $prefix     eq package_prefix(  $test ) and
                            $package    eq packag <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4679	4784	
==>s &fail.
    sub __fail($e = "failed") is primitive is builtin is safe {
        if Pugs::Internals::curre <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1779	1896	
==>rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1779	1896	
==>rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10335	10428	
==>erse )`

Creates a recurrence set.

The complementary functions are emulated using iterations. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10335	10428	
==>erse )`

Creates a recurrence set.

The complementary functions are emulated using iterations. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2726	2828	
==>_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2726	2828	
==>_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4606	4702	
==>ww.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4606	4702	
==>ww.sn.no/");
  die "Couldn't get it!" unless defined $content;

  if (mirror("http://www.sn.no/", <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20059	20152	
==>E<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20059	20152	
==>E<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly accessors. C<l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13965	14097	
==>bining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17442	17574	
==>bining
    # occur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4076	4217	
==>s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4076	4217	
==>s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4493	4593	
==>nitrd_img
    --initrd-img is the temporary image of the initrd, which will be mounted.
  --initrd-si <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15757	15855	
==>symbol introduced by the binding
# the body of the binding contains the env with the the symbols of <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8256	8431	
==>ch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8256	8431	
==>ch;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
sub negate { 
    my $op = shift;
    return <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	657	755	
==>t 'refs';
    require "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1804	1910	
==>ad "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1804	1910	
==>ad "Syntax for
specifying role parameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7283	7383	
==>tart_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7283	7383	
==>tart_element ('begin')>

This event is fired when a '=begin' directive is reached.

=item I<end_eleme <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3354	3516	
==>st ( grep { $_->{package} ne $pkg } @list ) {
                push @maybe, $test if grep {
                        $_ eq $wanted
                    } @{ $test->{p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	816	1016	
==>erface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	816	1016	
==>erface::DBMS      $dbms;

###########################################################################

sub main (Str :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        se <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	0	111	
==>=head1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method ze <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	0	111	
==>=head1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method ze <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9256	9342	
==>r::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3081	3167	
==>r::Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1797	1897	
==>do objective 1 above.

If anyone would like to help out, let me know, and I'll upload more of
the dev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12376	12471	
==>empty if the parameter's
corresponding argument is undefined).  The new Document object's All No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12376	12471	
==>empty if the parameter's
corresponding argument is undefined).  The new Document object's All No <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	578	671	
==>g out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm beca <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	578	671	
==>g out the archname, version_dir, version_arch_dir
# and inc_version_list code from lib.pm beca <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1158	1378	
==>{
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1158	1378	
==>{
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35772	35867	
==>ther> argument, where <$other> has the same heading as
the invocant Relation::Example, and retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37804	37899	
==>ther> argument, where <$other> has the same heading as the
invocant Relation::Example, and retur <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11189	11284	
==>>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11189	11284	
==>>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17932	18042	
==>,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq '--test') {
  require './re_tests_match.pl';
  Pkg_re_tests::test <==
2	/Users/nnunley/pugs/util/config_h.pl	83	181	
==>p qw(tempdir);

=pod

=head1 DOCUMENTATION

This file seems to determine some configuration.

  uti <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12169	12314	
==>a = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, po <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12169	12314	
==>a = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, po <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15926	16120	
==>_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15920	16114	
==>_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21347	21442	
==>bstrs->data[1].substr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float_min_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14447	14726	
==>lesheet", 
                                           type => "text/css", 
                                           href => "http://dev.perl.org/css/perl.css"
                                   ));
        if (exists $index->{$syn}) {
        # This makes later processing easie <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7650	7761	
==>set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7650	7761	
==>set.size} items";

  $set.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2599	2733	
==>or @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONT <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2599	2733	
==>or @{ $headers } -> $header {
        my Str $tag = $header.key.uc;
        $tag = "HTTP_$tag"
            unless $tag ~~ m:P5/^(?:CONT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6684	6845	
==>t( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6877	7038	
==>t( "\." )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { dot = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19850	19940	
==>tr $hexstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as_number(16,$hexstr) }
 mult <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37991	38116	
==>$self = shift;
    $self->{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{neg} ? 'not' : 'and';
  }

An <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17528	17637	
==>tr::capitalize (  Str $string              --> Str )
 multi Str::capitalize ( Str $string = CALLER::<$_> --> S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	912	1009	
==>bad to have both a MetaClass called C<Type> and a
language object called C<Type>.  Perhaps this mo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13229	13325	
==>efault.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $string, \% <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13229	13325	
==>efault.

=item _decode_entities( $string, \%entity_to_char )

=item _decode_entities( $string, \% <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3744	3843	
==>losure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3744	3843	
==>losure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17666	17774	
==>ad2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot wil <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17666	17774	
==>ad2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot wil <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10264	10362	
==>a plan. A plan is simply the number of tests which are
expected to run. This should be specified at <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10322	10420	
==>a plan. A plan is simply the number of tests which are
expected to run. This should be specified at <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15038	15207	
==>esult:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19213	19382	
==>esult:

  I32 sublen;             /* Length of string pointed by subbeg */
  char *subbeg;           /* saved or original string 
                                   so \d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7777	7898	
==>@!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: S <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7777	7898	
==>@!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18837	18938	
==>ike this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$orig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18837	18938	
==>ike this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$orig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11233	11410	
==>\&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11512	11689	
==>\&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         rule <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1753	1848	
==>reduce_" . $node->struct_equiv->moniker)) {
		return $self->$meth($node);
	} else {
		return $se <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27439	27550	
==>" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@_;
	#print "s>$s<\n";
	#use Data::Dumper; print Dumper($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	579	683	
==>HORS

Jos Boumans E<lt>kane@cpan.orgE<gt>

Florian Ragwitz E<lt>rafl@debian.orgE<gt>

=head1 COPYRIGHT AN <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	868	970	
==>ing your CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	868	970	
==>ing your CGI. 
It also attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	454	558	
==>{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	454	558	
==>{s};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	38	296	
==>eyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	38	296	
==>eyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	385	480	
==>ferer
    www_authenticate authorization proxy_authorization authorization_basic proxy_authoriza <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	385	480	
==>ferer
    www_authenticate authorization proxy_authorization authorization_basic proxy_authoriza <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	825	941	
==>or localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::ne <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	825	941	
==>or localtime in Pugs
    my ( $y, $m, $d ) = (localtime)[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::ne <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7136	7233	
==>the output.

A default implementation of this method is provided which returns nothing.

=item C<_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7136	7233	
==>the output.

A default implementation of this method is provided which returns nothing.

=item C<_ <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	877	987	
==>{
	return int($x.is_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8301	8398	
==>um_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8359	8456	
==>um_of_tests_planned != $Test::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Tes <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	172	277	
==>:Any ];

# FIXME - no insert methods
multi method delete ($index ) returns Object;
multi method delete (*@ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23635	23723	
==>(N1,Replace,[],T1).
replace_at_n(N,Replace,[H|T],[H|T1]) :- !, N1 is N - 1, replace_at_n( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17311	17410	
==>calization methodology that is described here, and hence provides these
benefits to developers and u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17311	17410	
==>calization methodology that is described here, and hence provides these
benefits to developers and u <==
2	/Users/nnunley/pugs/util/package-osx.pl	2342	2474	
==>e/JS.pm /Library/Perl/5.8.6/Prelude/JS.pm
        /Users/dromano/dev/pugs/examples /usr/local/share/doc/pugs/examples
        /Users/ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	137	258	
==>ssed around.  It essentially
forms a linked list through the rule as it is executed, but the linked
list is done in code ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	137	258	
==>ssed around.  It essentially
forms a linked list through the rule as it is executed, but the linked
list is done in code ( <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1622	1723	
==>here is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1622	1723	
==>here is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26742	26848	
==>> <ClassAtom> <ClassRanges>
}
rule ClassAtom {  # see 15.10.1
      <'-'>
    | <ClassAtomNoDash>
}
rule Cl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	453	573	
==>=> 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	447	567	
==>=> 1, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    m <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	284	393	
==>ISA, 'DynaLoader';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $inserted = 0;
BEGIN { our $regcomp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22095	22209	
==>being turned into "b" inside a character class, instead of
a backspace.  (Mike Lambert)

Fixed errant "Quantifier u <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3245	3333	
==>_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)]{0,0})\)/return undef/ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1329	1495	
==>ush($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1329	1495	
==>ush($current_tree);
            $self.set_results(@results);
            # and set the sucess flag
            $!success = 1;
            return;
        }
        # o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5037	5139	
==>"Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Si <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5037	5139	
==>"Expires")             }
method if_modified_since ($self: )   is rw { $self!date_header("If-Modified-Si <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	663	764	
==>next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_ope <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	663	764	
==>next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29162	29267	
==>nsumption: they have already matched what they are
named.

The handle 'atom' is pre-consumptive (because t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1681	1778	
==>t( $self.all_superclasses, $self ).members.map:{ .get_attributes }
       );
}

method all_methods <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	354	463	
==>args{sign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_a <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	385	483	
==>args{sign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_a <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class4.pl	142	244	
==>hod hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=aufrufen polymorpher Methoden
Per <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22302	22399	
==>ally create any objects.  Afterwards, it is an array
reference of (node) objects.

=item stack

In <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16465	16647	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16744	16926	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24917	25016	
==>undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple container whic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24917	25016	
==>undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a simple container whic <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5220	5345	
==>le prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op( name => $<name>, fixity => <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4705	4812	
==>r Int multi Num::round_away_from_zero ( Num $x ) {
    my $x_round;

    # round ceiling above 0, round floo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4351	4541	
==>rn $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4351	4541	
==>rn $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // tim <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	659	789	
==>ndir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $nod <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	659	789	
==>ndir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2}$/;
            my $abs = catdir( $dir, $nod <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1976	2076	
==>scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1976	2076	
==>scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no longer valid.
This gi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5331	5488	
==>end =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5331	5488	
==>end =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1194	1301	
==>aram) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1182	1289	
==>aram) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_list
    # rule parameters: see Runtim <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	946	1084	
==>ly->new; # might or might not have some builtins
                                        # instead of prelude functions

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	681	780	
==>, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	681	780	
==>, Set $two) {
    $one.intersection($two);
}

# modulus is symmetric difference
multi sub *infix:<%> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	177	328	
==>>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	177	328	
==>>;

class HTTP::Cookies-0.0.1 {
    ## Class variables
    our $EPOCH_OFFSET;
    
    ## Attributes
    has %!cookies           is rw;
    
    has $.f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	973	1091	
==>r $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::procl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1031	1149	
==>r $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $got eq $expected;
    Test::procl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3099	3227	
==>./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3099	3227	
==>./gen($^arg, $^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	734	844	
==>des{$_} } keys %funcs;
}

if ($Conf{cc}) {
    my %ccset = map { $_ => 1 } @{ $Conf{cc} };
    comp_cc(\%ccset) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14772	14880	
==>RUB

for(
  [$splashscreen => "$cdroot/boot/splashscreen.txt"],
  [$initrd_gz    => "$cdroot/boot/initrd.gz"] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7421	7548	
==>method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7421	7548	
==>method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($self: )          is rw { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7235	7359	
==>ring_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7223	7347	
==>ring_group {
    my $program = $_[0];

    $program = emit_rule( $program, $_[1].'      ' )
        if ref( $program );
    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	406	509	
==>ndefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Ar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	406	509	
==>ndefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is not an Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5013	5122	
==>{ capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5235	5344	
==>{ capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match::str( get_data( @_ ) )
}

# XXX not used - intended t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12726	12852	
==>-> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $serv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12726	12852	
==>-> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   => $line,
        server => $serv <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25290	25392	
==>et::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free softw <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25290	25392	
==>et::IRC>.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICENSE

This program is free softw <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16597	16694	
==>.  This module is more of a theoretical
exercise, a jump-start to built-in reversing capability in <==
2	/Users/nnunley/pugs/util/importgraph.pl	1959	2048	
==>('RRegex', qr/^RRegex\b/);
setup_cluster('Emit', qr/^Emit\b/);
setup_rank('parser', qr/^Pu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13240	13348	
==>be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13298	13406	
==>be tested, and those tests to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5294	5427	
==>'[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5294	5427	
==>'[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7263	7361	
==>h @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1088	1186	
==>h @statements, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->gramm <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	328	485	
==>y $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_id <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	328	485	
==>y $ret = $?CLASS.new(
            template     => $.template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_id <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	101	195	
==>AP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	101	195	
==>AP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $optional_args? ) r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1234	1348	
==>path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1234	1348	
==>path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2855	2964	
==>{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2855	2964	
==>{$field}.defined {
      # generate a %standard_case entry for this field
      $old ~~ s:g/\b(\w)/{$0.ucfirst <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	253	363	
==>ARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	253	363	
==>ARAMS_LOADED = 0;

## functions

# information functions

sub clear_params returns Void is export { %PARAMS = ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9374	9491	
==>t }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9374	9491	
==>t }
  method reconnect() {
    ./disconnect if $.connected;

    debug "Connecting to $.host:$.port... ";
    try { $! <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3123	3242	
==>bove
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3123	3242	
==>bove
    $code;
}
sub node_s ($data,$constructor) {
    my $code = "";
    $code ~= "\nmulti method does(String \$s: Per <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	379	527	
==>ue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	379	527	
==>ue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	515	621	
==>_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	515	621	
==>_file>;

# Compile the input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	5026	5188	
==>->from ),
                to    => \( $match->to ),
                named => {},
                match => [ $match ],
            }, 'Pugs::Runtime::Match::Rat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1999	2144	
==>$.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1999	2144	
==>$.PARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=h <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten2.pl	1	112	
==>=infix
$a < $b		# $a.infix:«<»( $b );
$a <=> $b	# $a.infix:«<=>»( $b );
@a ¥ @b		# @a.infix:<¥>( @b );

#= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23776	23906	
==>pture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24055	24185	
==>pture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	320	438	
==>class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	320	438	
==>class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10084	10222	
==>$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemente <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10084	10222	
==>$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @param ) . 
            "$_[1] )\n";
    }
    die "<$cmd> not implemente <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1450	1588	
==>ist {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_con <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1450	1588	
==>ist {
    does List;
    has Code $.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4497	4624	
==>s> ]* ) <?p6ws>? 
    \}
        { return { block => $<list> ,} }
RULE
*{'macro_decl'} = Pugs::Compiler::Rule->compile(<<'RULE') <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1479	1590	
==>nt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1537	1648	
==>nt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := n <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2170	2307	
==>year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2170	2307	
==>year % 400 == 0 {
        return Bool::True;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5317	5444	
==>$set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5317	5444	
==>$set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2330	2467	
==>0 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2330	2467	
==>0 }
    sub is_redirect ($code) is export(:MANDATORY) { 300 <= $code < 400 }
    sub is_error    ($code) is export(:MANDATORY) { 400 <= $c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2966	3094	
==>Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2966	3094	
==>Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10184	10320	
==>nect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10184	10320	
==>nect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $l <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3196	3395	
==>s copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } els <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3196	3395	
==>s copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $start += $step } els <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2005	2115	
==>e are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet { <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2005	2115	
==>e are defined in A06

# Siglets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet { <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	739	837	
==>IS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	739	837	
==>IS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This file contains both the Test::Builder:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1771	1887	
==>($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return B <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1771	1887	
==>($self: $span is copy) returns bool {
    ...
}

method intersects ($self: $span is copy) returns bool {
    return B <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	335	445	
==>od which pushes a given $callback to @:events.
  my method enqueue (Code $callback) {
    push @:events, $callb <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	420	521	
==>e split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	420	521	
==>e split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	326	434	
==>> q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGIN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	326	434	
==>> q[Give me a county thingy, or push that big button instead.],
    'MYAPP_RESULT'
        => q[Turn "<ORIGIN <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6803	6916	
==>'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6803	6916	
==>'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8770	8913	
==>(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8770	8913	
==>(8901),
    "lceil"    => chr(8968),
    "rceil"    => chr(8969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => ch <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24548	24635	
==>C0,G),amat(C1,G)) :- replace_at_n_if_undef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G), <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16866	16971	
==>o p6rule_1
    grammar = "PGE::Rule"
  p6rule_1:
    newfrom = find_global "PGE::Match", "newfrom"
    (ex <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1742	1906	
==>{
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our resu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1742	1906	
==>{
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the current tree 
                # in our resu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11396	11539	
==>' => (
    # method label
        symbol->new('new'),
    # method body
        method->new(
            $::ENV,
            method::signature-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	52	183	
==>nd creates a .pmc file

use strict;
use warnings;

my $filename = (caller)[1];
my $pmc = $filename;
$pmc =~ s/\.(pl|pm|t)$/\.pmc/;
d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	732	851	
==>re_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	725	844	
==>re_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"capture was: \", Dumper( \$match->{capture} ) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17063	17165	
==>mes generic (id is polymorphic)
my $id = fun(
	param => "x",
	body => ide("x"),
);

# plus_ten(15) (int <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	919	1014	
==>rface to use the B<libpcre> library for
regular expressions.

=head1 AUTHORS

Audrey Tang

=head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5155	5338	
==>,

               }

    }

}



sub ruleop::null {

    return sub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4996	5170	
==>,
               }
    }
}

sub ruleop::null {
    return sub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4475	4610	
==>= {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4475	4610	
==>= {},
            Hash                     :@child_nodes? = [],
        ) {

    $?SELF!_assert_arg_doc( 'new', ':$document!', $document <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6723	6830	
==>$event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6723	6830	
==>$event<object>;

      if(normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8575	8672	
==>use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2400	2497	
==>use_rule(@_) };
push @statements, sub { Grammar::Perl6->block(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4657	4756	
==>fig::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (ps <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4657	4756	
==>fig::Tiny::new>

The constructor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (ps <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5005	5119	
==>simplify_type {
		my $self = shift;
		my $type = shift;
		while (Scalar::Util::blessed($type) and !$type->isa("Blon <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6111	6210	
==>->{callback};

    $self->{'next'} = $result{number} + 1 if $type eq 'test';
}

=head2 C<analyze_fh> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21925	22038	
==>ay = pad["isarray"]
    reps = pad["reps"]
    $I0 = exists reps[cname]
    if $I0 == 0 goto reps_1
    $P0 = reps <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1976	2097	
==>.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1976	2097	
==>.

    say "Comparing: "~$self.stringify~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.si <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2928	3029	
==>e_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closure_pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2928	3029	
==>e_next, -1 ),
        closure_previous =>    $self._get_union( $self.closure_previous, $set.closure_pr <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	192	298	
==>esenting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This c <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	192	298	
==>esenting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION

This c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2295	2447	
==>:Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2295	2447	
==>:Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.ma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2325	2443	
==>v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2325	2443	
==>v ~~ Array ?? @$v !! $v if defined $v;
  }

  return @values;
}

method remove_content_headers () {
  my $c = ::?CLASS. <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	537	702	
==>' !! 'clear');
}

sub max (Array @x) returns Int is export{
    my $max;
    for @x->$try{
        $max =    $max > $try ?? $max !! $try; 
    }
    $max.int
}    

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6304	6411	
==>elf: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6304	6411	
==>elf: ) {
    my $content_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) { <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23731	23873	
==>ck_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #define REXEC_IGNOREPOS 0x08            /* \ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28934	29050	
==>ck_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #define REXEC_IGNOREPOS	0x08		/* \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12120	12255	
==>->{exp1};
        return '(' . _emit( $n->{exp1} ) . ')';
    }
    
    return _not_implemented( $n, "circumfix" );
}

sub postc <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3477	3572	
==>oping

You should be able to do both lexically and dynamically scoped
overriding.  You currently <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	294	405	
==>ods.  Just for internal 
# clarification.
my $TRUE  = (1==1);
my $FALSE = !$TRUE;
my $YES   = $TRUE;
my $NO    = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2527	2614	
==>gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and availa <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2527	2614	
==>gt>>. It is archived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and availa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	93	185	
==>ders $!headers handles «
    header push_header init_header remove_header remove_content_hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	93	185	
==>ders $!headers handles «
    header push_header init_header remove_header remove_content_hea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29155	29257	
==>EXEC_ML	0x20		/* $* was set. */

 #define ReREFCNT_inc(re) ((void)(re && re->refcnt++), re)
 #define Re <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3104	3199	
==>Date::Gregorian::doy;
method week returns Int { int (./doy / 7) }

method day_of_month returns I <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	28	128	
==>se Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our rol <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	28	128	
==>se Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our rol <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	148	262	
==>lan' => class 'TestBuilder::TestPlan' => {
    is => [ $::Object ],
    attributes => [ '$:expect' ],
    submethod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1082	1226	
==>\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:ho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1082	1226	
==>\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domain = ./:ho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13326	13481	
==>," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13605	13760	
==>," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capt <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	485	592	
==>* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Remo <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	485	592	
==>* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Remo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14071	14175	
==>ynpod = catfile($syn_src_dir, 'exe', "$syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_file <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7094	7218	
==>,
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "im <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7094	7218	
==>,
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "im <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30441	30534	
==>use the CPAN bug ticketing system at L<http://rt.cpan.org/>.
You can also mail bugs, fixes and <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4054	4216	
==>1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3930	4087	
==>1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2072	2204	
==>n_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2072	2204	
==>n_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3153	3316	
==>from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $star <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3153	3316	
==>from_range ( $class: $start is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $star <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8148	8292	
==>"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "the <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8148	8292	
==>"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2502	2610	
==>= \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1114	1222	
==>= \n$program;\n";
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9729	9835	
==>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9729	9835	
==>.

=head2 C<$set1.union($set2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6043	6181	
==>[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6031	6169	
==>[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	953	1086	
==>:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	953	1086	
==>:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_if_exp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23932	24025	
==>::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. α → β", "pretty print a -> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9708	9819	
==>h_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9708	9819	
==>h_msg( 'LKT_T_FAIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            ' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2484	2634	
==>>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2484	2634	
==>>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \]
        ]
}

rule varlet {
        <sigil> [ \( <s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10467	10584	
==>ontinuation" or undef
    abort - the match was stopped by a { return } or a fail(),
           and it should not ba <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	213	335	
==>bscriber:
# - Code
# - Object

# The notification process involves:
# creating an *event*
# getting the *subscriptions* for <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3203	3317	
==>parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { m <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3203	3317	
==>parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro }

regex lexscope { m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	6453	6612	
==>am} );
            }
            return " print '', $s";
        }
        if ( $n->{method}{bareword} eq 'say' ) {
            my $s = _emit( $n->{self} ) <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	65	158	
==>oo/;
say "(mapcar 'delete-overlay (overlays-in (point-min) (point-max)))";
say "(overlay-put ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36804	36900	
==>ion

Types: eval (C<(?{>)

Data: string with contents of assertion

=head2 logical

Family: asser <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36569	36671	
==>hers> is an
empty list, in which case the returned Relation is identical to the
invocant.  Another triv <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41118	41220	
==>hers> is an
empty list, in which case the returned Relation is identical to the
invocant.  Another triv <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10958	11067	
==>%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10958	11067	
==>%$context}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4289	4429	
==>@$capture, @{$matches[1]{capture}} 

                if $matches[1]{capture};

            undef $capture unless @$capture;



            re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4158	4294	
==>@$capture, @{$matches[1]{capture}} 
                if $matches[1]{capture};
            undef $capture unless @$capture;

            re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7412	7525	
==>From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7412	7525	
==>From") }
method warning ($self: )                   is rw { $self.header("Warning") }

method www_authenticate ($s <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	219	325	
==>["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=< <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	219	325	
==>["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=< <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14033	14204	
==>ash> in no apparent order, but the order
will be the same between successive calls to these functions, as long as
C<%hash> doesn't change. 

If C<@keytests> are provided, o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11611	11713	
==>if (defined $args{stdin}) {
	# so we don't try to put literal newlines and crs onto the
	# command line <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22776	22871	
==>onfined to regcomp/regexec.

 RE_INTUIT_TAIL 
 RE_USE_INTUIT 

 PMf_COMPILETIME
 PMf_EXTENDED
 P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20494	20615	
==>gc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16915	17036	
==>gc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1982	2091	
==>wid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1982	2091	
==>wid

= NAME

File::Spec - Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15133	15231	
==>ou pass
an argument to the method.  The old header value is always returned.
If the given header di <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15133	15231	
==>ou pass
an argument to the method.  The old header value is always returned.
If the given header di <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1229	1317	
==>tionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Comp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1229	1317	
==>tionally, C<no Filter::Simple::Compile> does the same thing
as C<use Filter::Simple::Comp <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	19840	19939	
==>or die "Can't open output test file $synhtml: $!";
        $outfile->print($sobj->as_HTML(undef, ' ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10134	10251	
==>ecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10134	10251	
==>ecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflush( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10723	10846	
==>:$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10723	10846	
==>:$.ircname");
    });
  }

  # Process $queue, wait for input from server and process it
  method run() {
    while $.connec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6821	6961	
==>ck = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7014	7154	
==>ck = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4303	4439	
==>r 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method z <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4303	4439	
==>r 0..255 -> $i {
        ($j += @.state[$i] + @key[$i % @key.elems]) %= 256;
        @.state[$i, $j] = @.state[$j, $i];
    }
}

method z <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1294	1391	
==>'<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'te <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1294	1391	
==>'<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	525	640	
==>tr $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    pri <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	525	640	
==>tr $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    pri <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	135	248	
==>";

# Hash:
say "%test{a}";   # print "$test{a}";

# Array Referenz:
say "$test[1]";   # print "$test->[1]";

# Ha <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	32	145	
==>istic of Pugs' development.
# Usage: svn log | util/svnlog2graph.pl > /tmp/graph.png   --or
#        svn log > /tm <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	3026	3180	
==>unction>),
                        Tree.new(:node<Scalar::Const>),
                        Tree.new(:node<Scalar::Proxy>),
                        Tree.new <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6071	6162	
==>cted_type) . " for placeholder of " . Blondie::Emitter::Pretty->new->string(Blondie::TypeSaf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8870	9006	
==>or (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8870	9006	
==>or (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	178	272	
==>ugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Variab <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	178	272	
==>ugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*Variab <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	125	272	
==>sage;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	125	272	
==>sage;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submethod BUILD (:$. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6856	6962	
==>Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Ex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6856	6962	
==>Bool',
  'isLazy'       ,'Bool',
  'paramName'    ,'String',
  'paramContext' ,'Ctx',
  'paramDefault' ,'Ex <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15700	15808	
==>ay hour min sec picosec wday yday tzname tz is_dst>; # XXX: this should be a class variable!
        #Time::L <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21705	21792	
==>_offset_max substrs->data[2].max_offset

data[0].substr, aka anchored_substr, is used on <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3627	3787	
==>t submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3639	3799	
==>t submatch
Alternate names:        
    $()   
        the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8719	8826	
==>s tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8777	8884	
==>s tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Tes <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4263	4375	
==>},
        'status' => sub {
            my $status_sub    = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5001	5111	
==>},
        'status' => sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETCH('::WithReason <==
2	/Users/nnunley/pugs/util/claim_drift.pl	340	441	
==>usage: cd $pugs_wd ; util/claim-drift.pl

our ($FS) = ($Config{sitelib} =~ /([\/\\])/)
       or die " <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1541	1654	
==>orted";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1541	1654	
==>orted";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9608	9716	
==>unk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIP <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9666	9774	
==>unk('this fails, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIP <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3135	3237	
==>::Example's attributes.
        # Note that it is valid for a Relation::Example to have zero attributes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9627	9725	
==>as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9627	9725	
==>as member variables of the
C<HTTP::Request> and C<HTTP::Response> classes, internal to the
library. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12203	12356	
==>status, $wstatus);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen}) {
                if (@{$test{fail <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2781	2890	
==>ture doesnt parse. using simplified one.
#multi Array::pop ( --> Scalar ) {
multi Array::pop (  ) {
    Array: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1723	1870	
==>P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1723	1870	
==>P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1744	1857	
==>es. Use like() instead.
sub ok ($@) {
    my ($pass, $name, @mess) = @_;
    _ok($pass, _where(), $name, @mess);
} <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11452	11542	
==>}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ")".
p5_comment_body([C|L]) --> [C], {[C <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1663	1765	
==>..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct) <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1663	1765	
==>..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	875	979	
==>ernals::exec($prog, Bool::False, @args);
    }
    multi sub exec(@args) returns Bool is builtin is primi <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20538	20634	
==>ir};
	while( ( exists $val->{_dirs} && scalar %{$val->{_dirs}}||0 == 1 ) &&  ! exists $val->{_fil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2850	2964	
==>*@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $self. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2850	2964	
==>*@trees) returns Void {
    # check the bounds of our children 
    # against the index given
    ($index <= $self. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14891	15013	
==>of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of par <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19059	19181	
==>of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U32 nparens;            /* number of par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10174	10291	
==>rn $S->$n;
    }

    return $S->object(bol => bos => '^');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	819	929	
==>| confess "body must be a code ref";
    
    if ($signature->isa('closure::params')) {
        $signature = cl <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1889	2013	
==>= 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ----------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1889	2013	
==>= 1;
    for @!children -> $child {
        $size += $child.size();    
    }
    return $size;
}

## ----------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9304	9433	
==>$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9292	9421	
==>$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1052	1155	
==>st := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1110	1213	
==>st := $got eq $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## is_de <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2123	2228	
==>turn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # I <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2123	2228	
==>turn $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    # I <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20492	20620	
==>fined

# undef

# item 

# want

# caller


# tie tied untie


# -X accept alarm bind binmode chown close closedir connect eof fc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5266	5359	
==>$ops = mk_dynamic_alt(\@operators);

def_rule('expr',mk_operator_precedence_parser($ws,$ops,$t <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	724	831	
==>escription;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	724	831	
==>escription;
  }
  else {
    $Test::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4820	4927	
==>the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Comp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4820	4927	
==>the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.finish();

Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	234	407	
==>uleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	234	407	
==>uleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'expr', 
             r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2389	2519	
==>responding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2389	2519	
==>responding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3106	3230	
==>2028\u2029"
  );
    # See http://www.unicode.org/Public/UNIDATA/PropList.txt for above



$P6RulesInP5::P6Rule::optable = $o <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	428	578	
==>e || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	428	578	
==>e || sub { 1 };
    for @start -> $dir {
        my $abs = $dir;
        $abs = rel2abs($abs);
        $.queue.push($abs);
    }
    my $dir;
    while <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2225	2327	
==>type () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    do <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2225	2327	
==>type () { 'Expression' }
}

# PILCode :: [Stmt] -> Expression
class Perl::Compiler::PIL::PILCode
    do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	429	671	
==>ne = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	429	671	
==>ne = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22844	22963	
==>n => ide("listify"),
						param => val(10),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"), <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18772	18922	
==>::NIL;                 
            }
        )
    )
);

=pod

method BUILD (opaque $self: hash %params) returns nil {
    for %params.kv -> $key, $va <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1999	2107	
==>die "all_from: cannot find $file from $name" unless -e $file;
    }

    $self->version_from($file)      unle <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31367	31467	
==>ame disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31367	31467	
==>ame disk directory.  In the first example, the Set Name is
"Foo::L::" and in the second it is "L::Foo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4436	4558	
==>($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4436	4558	
==>($index == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # th <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8436	8542	
==>f.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8436	8542	
==>f.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	927	1078	
==>,} }
            ' );
    __PACKAGE__->add_rule( '%' => '
                <Pugs::Grammar::Var.ident>
                { return { hash => "\%" . $() , <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2362	2476	
==>$prog = shift;
		
		$self->{runtime} = $runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2501	2592	
==>----------------------------------------------
## getting children

method get_child ($self: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2501	2592	
==>----------------------------------------------
## getting children

method get_child ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5101	5233	
==>es of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8578	8710	
==>es of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation.new(
        heading => $!heading.union( se <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13705	13808	
==>ase of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17182	17285	
==>ase of a inner join.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10086	10229	
==>lti method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10086	10229	
==>lti method clear (*@_) {
        if (@_ == 1) {
            %!cookies.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.de <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4968	5051	
==>ange_bounds(Min,Max), "}", p6_range_greed(W,Min,Max,Z), !.
p6_range_greed(W,Min,Max, <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	929	1028	
==>*&test  ) returns Lazy
 multi sub Array::grep (@values,   MatchTest $test  ) returns Lazy
 multi sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	505	604	
==>at will be put into the index files. jibs/ if
not specified.

=item index

Path to the index directo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2945	3067	
==>nted"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3794	3916	
==>nted"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1328	1457	
==>mar = shift;\n" .
        #"    warn 'rule argument is undefined' unless defined \$_[0];\n" .
        "    \$_[0] = '' unless defi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5253	5350	
==>will fetch the document identified by the given URL
and return it.  It returns C<undef> if it fail <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5253	5350	
==>will fetch the document identified by the given URL
and return it.  It returns C<undef> if it fail <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	713	884	
==>oop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.val <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	713	884	
==>oop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.val <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17246	17350	
==>ad1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17246	17350	
==>ad1 BENEFITS

Module::Compile compilers gives you the following benefits:

=over

=item *

Ability to mix <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3029	3123	
==>lias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3029	3123	
==>lias for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3934	4044	
==>$span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method inter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3934	4044	
==>$span0.union( $span1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method inter <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	319	444	
==>->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=he <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	319	444	
==>->{content} = $content;
    #} else {
        #$self->{content};
    #}
#}

sub event_type {
    "ignorable_whitespace"
}

=he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13475	13576	
==>der_field_names

Returns the list of distinct names for the fields present in the
header.  The field n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13475	13576	
==>der_field_names

Returns the list of distinct names for the fields present in the
header.  The field n <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	5897	5996	
==>est.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

c <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	5897	5996	
==>est.  Internal use only, probably.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3535	3636	
==>d time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functional <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3535	3636	
==>d time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to provide functional <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13368	13476	
==>t2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13368	13476	
==>t2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set2>.  Note that "∖" (\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33639	33743	
==>ne or more elements where each
element is a Template module Member Name and usually corresponds to a
lang <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33639	33743	
==>ne or more elements where each
element is a Template module Member Name and usually corresponds to a
lang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9071	9218	
==>->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map join("", map $_->visual, @$_), @{ $self->{data} };
  }

  sub merge { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	165	277	
==>Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	165	277	
==>Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which f <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4285	4401	
==>ect { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4285	4401	
==>ect { return $.span.start }

method set_start ($self: $start ) {
    if $.span.is_empty 
    {
        $.span = $self <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14729	14833	
==>>
    | <'!'> <UnaryExpression>
}
rule MultiplicativeExpression :words {  # see 11.5
      <UnaryExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1427	1584	
==>s defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1427	1584	
==>s defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new().union( $span );
        }
        else {
            $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30227	30326	
==>ping whittling away at _run_all_tests()

Clean up how the summary is printed.  Get rid of those damn <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6781	6898	
==>);
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6781	6898	
==>);
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closure1, $clos <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1258	1396	
==>_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1258	1396	
==>_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37918	38014	
==>voke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Tem <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37918	38014	
==>voke $module_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Tem <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6382	6511	
==>py = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # D <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6382	6511	
==>py = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # D <==
2	/Users/nnunley/pugs/util/package-osx.pl	487	602	
==>rge
        /usr/local/bin/disassemble
        /usr/local/bin/parrot
        /usr/local/bin/pbc_info
        /usr/lo <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2383	2504	
==>pon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute i <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2383	2504	
==>pon C<FindBin> by Graham Barr and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7923	8120	
==>MBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7923	8120	
==>MBER;
        last;
    }

    return $text;
}

###########################################################################

method template_module_is_loaded (Str $module_name!) returns Bool {
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1841	1965	
==>e ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelud <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2058	2182	
==>e ) {
        local $/ = undef; 
        warn "* precompiling Prelude: $prelude_file.p6\n";
        open( FILE, "<", "$prelud <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2332	2447	
==>Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/valu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2332	2447	
==>Things that will be solved by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/valu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9855	10009	
==>tant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10134	10288	
==>tant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2668	2785	
==>f (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    els <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2726	2843	
==>f (defined $!) {
        Test::proclaim(undef, $desc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    els <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4419	4507	
==>OTSTRAPPING Roles
## -------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27754	27856	
==>ond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key at <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27754	27856	
==>ond to the 2 named parameters of new().

=item C<get_msg_key()>

This method returns the Message Key at <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	118	222	
==>> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	118	222	
==>> || 'localhost' }
sub remote_address  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub re <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2333	2451	
==>l_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print sub <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2333	2451	
==>l_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOKIE . "\n";
    print sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1601	1728	
==>angle quotes are always tried even if it were expecting a simple '<'
            
                # after whitespace means '<' ( <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	412	554	
==>until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	412	554	
==>until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because we now can
    process(3);

    # leak <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	914	1131	
==>GRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        wa <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	914	1131	
==>GRAM_NAME {
			# XXX -T doesn't work yet.
                        $script = $*PROGRAM_NAME unless try { -T $script };
                    }
                    last;
                }
            }
        }
        wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19841	19957	
==>ting

The object() method calls force_object().  force_object() creates an
object no matter what pass the parser is m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1019	1124	
==>e => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly mo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1019	1124	
==>e => "foo" });

You can just say;

 Perldoc::DOM::Text->new("foo");

(also, the latter form is slightly mo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18597	18693	
==>not>
necessarily the names you specified in the constructor. For example,
this module automatical <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18597	18693	
==>not>
necessarily the names you specified in the constructor. For example,
this module automatical <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14664	14791	
==>anguage.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14664	14791	
==>anguage.  For example, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $trans <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	310	427	
==>s export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negat <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	310	427	
==>s export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $unsafe, Bool :$negat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5409	5505	
==>64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5409	5505	
==>64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(128+ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1848	1951	
==>e {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () return <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1848	1951	
==>e {
    return Date.new( epoch => time );
}

our &Date::now ::= &Date::today;

method tomorrow () return <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16009	16119	
==>s get compiled into some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Pe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16009	16119	
==>s get compiled into some
altered form the first time they are run. The result is cached into
C<.pmc> files.

Pe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1182	1319	
==>",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = shift;

    $by_digest{$digest};
}

sub prelude {
<<C
#include <stdio.h> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8740	8845	
==>_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_fai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8798	8903	
==>_of_tests_run passed unexpectedly");
    }
    $Test::num_of_tests_run    = 0;
    $Test::num_of_tests_fai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1815	1945	
==>de.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1815	1945	
==>de.kv -> $code, $message is copy {
        $message .= uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13246	13353	
==>require Config; Config->import";
	if ($@) {
	    warn "test.pl had problems loading Config: $@";
	    $sep = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	444	542	
==>ype.new(Class.new("SomeClass"));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17581	17682	
==>Interface::DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspir <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17581	17682	
==>Interface::DBMS object represents a single active Rosetta virtual
machine; it has a spartan DBI-inspir <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	359	479	
==>e structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignat <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	359	479	
==>e structures

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <subname> <psignat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1783	1888	
==>+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1783	1888	
==>+', assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	619	767	
==>her dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )    and die "$?";

        ### XXX instead of cp -R, we can r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	103	204	
==>ng Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pret <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1334	1436	
==>ever)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1334	1436	
==>ever)
  # * Send Connection: close, at least until we know better

  my ($host,$port,$path) = split_uri <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17637	17821	
==>if $len > 0;
            $fi = $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1388	1492	
==>.\n";
}

sub BuildFile {
   my ($fname, $data) = @_;
   open(FF, '>'.$fname) or die "error: open '$fname' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14164	14303	
==>escape). The default set
of characters to encode are control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
chara <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14164	14303	
==>escape). The default set
of characters to encode are control chars, high-bit chars, and the
C<< < >>, C<< & >>, C<< > >>, and C<< " >>
chara <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5738	5838	
==>om_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5738	5838	
==>om_nick>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %chan <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16321	16421	
==>spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16321	16421	
==>spans. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	522	633	
==>ct {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	522	633	
==>ct {
    return unless @.spans;
    my $head = @.spans[0];
    return $head.start;
}
method end () returns Objec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18990	19092	
==>the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18990	19092	
==>the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3589	3700	
==>ent $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3589	3700	
==>ent $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4514	4619	
==>line string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return spli <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4514	4619	
==>line string
}

sub path returns Array is export {
    return unless %*ENV{'PATH'}.defined;
    return spli <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32276	32377	
==>e present, Locale::KeyedText expects its Template modules to come
from Perl modules, but in the future <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32276	32377	
==>e present, Locale::KeyedText expects its Template modules to come
from Perl modules, but in the future <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1186	1293	
==>opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	289	395	
==>opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { die "not implem <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5755	5869	
==>oot;
    my $code = "";
    my(%created,%used);
    for my $n (@PIL::PIL1CPerl5::NodesInfo::nodes) {
        my $na <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7155	7267	
==>sMulti, $pBody);
}
NODE PSub ($pSubName, $pSubType, $pSubParams, $pSubLValue, $pSubIsMulti, $pSubBody) {
    code <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9982	10075	
==>turn stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Arra <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9982	10075	
==>turn stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	564	683	
==>_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	564	683	
==>_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => sub {...} )`

Creates a <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	288	410	
==>$unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $uns <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	288	410	
==>$unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_escape (Str $string is copy, Str $uns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8195	8311	
==>ined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8195	8311	
==>ined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10943	11060	
==>-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11093	11210	
==>-filter - temporary hacks to translate p6 to p5
    # $()<name>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::g <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8601	8699	
==>s.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span ob <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8601	8699	
==>s.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set::Infinite` object using existing Span ob <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15084	15184	
==>lass, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15084	15184	
==>lass, $text) = @_;
    my $digest = Digest::SHA1::sha1_hex($text);
    $digest_map->{$digest} = $text <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2279	2425	
==>nostic ||= '';            
            _('$.output')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $descr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20618	20717	
==>Expression>
}
rule InitialiserNoIn :words {  # see 12.2
      <'='> <AssignmentExpressionNoIn>
}
rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5918	6020	
==>r('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5606	5708	
==>r('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1679	1772	
==>se(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1679	1772	
==>se(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1692	1890	
==>de {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1692	1890	
==>de {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19251	19370	
==>)

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        met <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17389	17495	
==>rst param and the second param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $half_pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17108	17206	
==>s of the message content.

=item $h.content_language

The natural language(s) of the intended audie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17108	17206	
==>s of the message content.

=item $h.content_language

The natural language(s) of the intended audie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6749	6853	
==>normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        fo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6749	6853	
==>normalize($kickee) eq normalize($curnick)) {
        $!chans.remove(normalize $event<object>);
        fo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13516	13641	
==>ale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $trans <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13516	13641	
==>ale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedText::Translator $trans <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3984	4265	
==>ort.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3984	4265	
==>ort.split(',') -> $p {
                                    $found++, $last if $p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug(" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1385	1509	
==>ed to delete '$pkg'\n" unless $delete_ok;
    }
    
    ### uninstall the files
    ### XXX check dependencies
    open my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17895	18005	
==>]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14316	14426	
==>]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $rhs->visual);
          &RxPOS = $before_rang <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6118	6225	
==>le ( ".*", options... );

  my $match = $matcher( "hello" );



### "internals" thing - should be documented <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5908	6012	
==>le ( ".*", options... );
  my $match = $matcher( "hello" );

### "internals" thing - should be documented <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2195	2308	
==>ement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2195	2308	
==>ement )
    return $.universe = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12594	12696	
==>odes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12594	12696	
==>odes.

Some sample usage:

    my Rosetta::Model::Document $document .= new();

    my Rosetta::Model:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3392	3515	
==>} }
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define sub: ", Dumper( $_[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19616	19716	
==>assed to that compiler. The end of an inner block
effectively acts as a C<no> statement for any compi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19616	19716	
==>assed to that compiler. The end of an inner block
effectively acts as a C<no> statement for any compi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	727	840	
==>ant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	727	840	
==>ant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$le <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1740	1838	
==>or takes as parameters at least C<rate of information> in
items per second and C<burst size> in ite <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1740	1838	
==>or takes as parameters at least C<rate of information> in
items per second and C<burst size> in ite <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1583	1711	
==>esents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1583	1711	
==>esents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Signature {
    has Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4230	4353	
==>t Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4230	4353	
==>t Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	756	865	
==>, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	756	865	
==>, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14183	14290	
==>elf, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1663	1770	
==>elf, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13472	13574	
==>cal @ENV{@keys} = ();
	# Untaint, plus take out . and empty string:
	$ENV{PATH} =~ /(.*)/s;
	local $ENV <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1078	1167	
==>xclude"}}, 'Disabled' if not $Config{"exclude"} or not @{$Config{"exclude"}};
if(!@ARGV) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1129	1252	
==>fy any filenames ... - Perl::Tidy.pm
      eval {
        require Perl::Tidy;
        my $perl5_tidy;
        Perl::Tidy::pe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1459	1559	
==>t {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1459	1559	
==>t {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) returns Array i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	17	133	
==>od::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	17	133	
==>od::Event::Parser-0.0.2;

my @EVENTS = (
    'start_document',
    'end_document',
    
    'start_element',
    'end <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6894	6993	
==>m, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6894	6993	
==>m, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is fired once the '=head(n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6721	6832	
==>self->emit_yapp();
    #print $g;
    my $p = Parse::Yapp->new( input => $g );
    return $p->Output( classna <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5454	5561	
==>ass => $S->force_object(vert => 0)) if $cc;
    return $S->object(vert => 0);
  });

  $self->add_handler('\ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	340	474	
==>truct  = LoadFile( "$srcdir/$Pms/$Metafile" ) 
                        or die "Could not read $Metafile";

    my $path    = $struct->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39537	39639	
==>irst pass.  To accomplish this, use force_object(), which creates
an object regardless of what pass it' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14557	14656	
==>_complain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_hash_handlers =
    ( un <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20853	20952	
==>$name);
    "(do{no strict;defined(\$$mn)?\$$mn:p6__lookup('$mn','$name')})";
}
sub p6_var { # XXX - <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11284	11391	
==>ze();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $stri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11284	11391	
==>ze();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $stri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5347	5469	
==>);
}


sub add_flag {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::FL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2071	2243	
==>msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2071	2243	
==>msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () returns Str { <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	641	730	
==>mpletion is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class JSX::ValuePrim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	5	92	
==>ge Runtime::RuleCompiler;
use Pugs::Emitter::Rule::Perl5;
use base qw(Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5311	5407	
==>ype = $self->simplify_type(@_);
		Scalar::Util::blessed($type)
			? '<Placeholder>'
			: (ref $ty <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	642	737	
==>neric_reduce($node);
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Reducer::Duplicate <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14689	14843	
==>stant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14968	15122	
==>stant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33117	33219	
==>mplate module Set Name.  When we have to translate a
message, the corresponding Template modules will b <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33117	33219	
==>mplate module Set Name.  When we have to translate a
message, the corresponding Template modules will b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2019	2165	
==>RGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2019	2165	
==>RGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP::Requ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	628	747	
==>ompiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	628	747	
==>ompiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2824	2943	
==>tion of this node in the original text, or at
least a valid representation of it that "honours the spirit of the
dialect <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2824	2943	
==>tion of this node in the original text, or at
least a valid representation of it that "honours the spirit of the
dialect <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14585	14677	
==>nsafe_chars )

This routine works just like encode_entities, except that the replacement
enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14585	14677	
==>nsafe_chars )

This routine works just like encode_entities, except that the replacement
enti <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4812	4966	
==>::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" < <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6574	6728	
==>::ENV)
             (closure::signature new 
                 ((params  (closure::params new 
                                ((symbol new ("&dispatcher" < <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6710	6839	
==>file {
    my($self, $file) = @_;

    unless( -e $file ) {
        $self->{error} = "$file does not exist";
        return;
    } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28055	28150	
==>, the flag is removed from the resulting
object's visual flag set, so C<(?ig-o)> becomes C<(?i)> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	165	255	
==>eroot dir
$config->root( Path::Class::dir( cwd() )->subdir( 'fakeroot' ) );

$INSTALLATION_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5799	5908	
==>Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5799	5908	
==>Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($ev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25164	25272	
==>setta give you permission to link Rosetta with other free software
components, as defined by the Free Softwar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25164	25272	
==>setta give you permission to link Rosetta with other free software
components, as defined by the Free Softwar <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2242	2485	
==>ts<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (def <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2242	2485	
==>ts<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while (def <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2246	2359	
==>args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2224	2337	
==>args{run}) if exists $args{run};
    unlink($file) if $args{remove};

    print(((!exists $args{check_for} or -e $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3696	3818	
==>k (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5598	5720	
==>k (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1244	1360	
==>rns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1244	1360	
==>rns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this with ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2322	2474	
==>~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2322	2474	
==>~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .k <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1461	1630	
==>}
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did n <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1461	1630	
==>}
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err_str> = 'You did n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1029	1215	
==>);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1029	1215	
==>);
            $value = uri_unescape($value);
            
            if (%!params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %! <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2174	2272	
==>hall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will al <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2174	2272	
==>hall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will al <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6496	6597	
==>s received from the network.  If the request fails, then the
status code and message are printed on ST <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6496	6597	
==>s received from the network.  If the request fails, then the
status code and message are printed on ST <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2551	2704	
==>st    = $inst->files_list( $self->package );
        
            system( qq[mkdir -p $meta_dir] )                and die $?;
            ### XXX need sta <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1432	1556	
==>$directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1432	1556	
==>$directory ~ "/$file";
    }
    else {
        return $directory ~ $file;
    }
}

## real to absolute

sub rel2abs (Str $_p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1743	1849	
==>eplace $grammar references
    # $source =~ s/\$grammar/$grammar/gs;
    # print $source;
}
sub node::perl5 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7618	7721	
==>L2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply & <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7676	7779	
==>L2JS.
    if (index('&Test::is &Test::isnt &Test::cmp_ok &Test::eval_is &Test::isa_ok &Test::is_deeply & <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	477	589	
==>x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	477	589	
==>x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently simply a s <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2426	2526	
==>or Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE< <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2426	2526	
==>or Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl6-compiler-subscribe@perl.orgE< <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	185	288	
==>late  = HTML::Template.new(filename => "wiki.html");

my $action    = param('action');
my %wiki      = e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	62	157	
==>/Blondie::Emitter/;

use strict;
use warnings;

use String::Escape qw/quote printable/;
use Scal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3157	3305	
==>ed {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3157	3305	
==>ed {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!hea <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	727	830	
==>rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	727	830	
==>rule_name, $rule) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7538	7700	
==>_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnam <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7538	7700	
==>_name{$name}, $mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14153	14272	
==>k_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14153	14272	
==>k_user_for_id() );
            $fnh_get_person.bind_arg( 'person_id', $person_id );
            my Rosetta::Interface::R <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2798	2919	
==>ects new method and return it
        return $obj->new( %hash );
        
    }
}    

=head2 $meta = $pkg->extract_meta_o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	370	489	
==>e)) 
        || confess "Bad numeric value ($value)";
    bless \$value => $class;
}

# conversion to native value
sub t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13399	13501	
==>le::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13399	13501	
==>le::KeyedText" in
your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2215	2354	
==>r ), return;
    
        ### make the path absolute
        ### XXX path::class doesn't seem to have a rel2abs
        $dir = Path::Class:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	27	123	
==>ackage Inline::Parrot;
#use Inline 'INFO','NOISY','FORCE';
use lib 'lib';
use Inline::Parrot::PMC <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1899	2103	
==>s<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1899	2103	
==>s<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} {
                        @for_or_begin.push('for');
                        %events <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15303	15400	
==>mes always convert their value to system
time (seconds since Jan 1, 1970) and they also expect thi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15303	15400	
==>mes always convert their value to system
time (seconds since Jan 1, 1970) and they also expect thi <==
2	/Users/nnunley/pugs/util/version_h.pl	2384	2485	
==>ugs/Version.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $version_h because $old_revis <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2729	2822	
==>en (\${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
}

conv_condition {
    if(/ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7360	7466	
==>!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10837	10943	
==>!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns R <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8413	8508	
==>his event is begun when any block of characters is interpolated for modifiers.

=item I<end_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8413	8508	
==>his event is begun when any block of characters is interpolated for modifiers.

=item I<end_elem <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14970	15123	
==>queue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14970	15123	
==>queue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqueue "PART $cha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1170	1341	
==>!
my $Package_re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # au <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	270	383	
==>use Time::Seconds;

# All dates should be displayed as UTC (Time::Piece honours $*ENV<TZ>).
$ENV{TZ} = "UTC";

req <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	809	904	
==>class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	809	904	
==>class Rosetta::Interface::DBMS {

    # External packages used by the Rosetta::Interface::DBMS c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13049	13149	
==>his will remove all the header fields used to describe the content of
a message.  All header field na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13049	13149	
==>his will remove all the header fields used to describe the content of
a message.  All header field na <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	190	441	
==>alues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	190	441	
==>alues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10358	10498	
==>my ($node, $depth) = $iter->()) {
    if ($depth == $iter->(-depth)) {
      # this is as deep as it will look
    }
  }

If passed any other <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	498	599	
==>Y_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	498	599	
==>Y_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD }
sub content_type   returns S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	449	542	
==>_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	449	542	
==>_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_codeblock( $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16315	16438	
==>ender {
  my($f,$name)=@_;
  sub {
    my $c = $_[0];
    my $pos = $X::pos;
    my $cap = $X::cap;
    my $m0 = $X::current <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20531	20653	
==>er


# tie tied untie


# -X accept alarm bind binmode chown close closedir connect eof fcntl
# fileno flock getc getpeerna <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1925	2018	
==>-----------------------------------

my $file1 = <<'GROK';
1st line
GROK

my $file2 = <<'GROK' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6055	6150	
==>od

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Event: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6055	6150	
==>od

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Pod::Event: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	384	499	
==>caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	384	499	
==>caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24616	24710	
==>>new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free-> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25588	25682	
==>>new(
			type::variable::free->new,
			type::variable::free->new,
		),
		type::variable::free-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3794	3908	
==>ed the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3658	3769	
==>ed the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5446	5561	
==>subclasses))      (list)
     (attribute new (@:superclasses))    (list)
     (attribute new (%:private_methods)) (h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8186	8286	
==>_object(anyof_class => cntrl => $neg, $how);
  });

  # digit POSIX class
  $self->add_handler('POSIX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31361	31465	
==>bject.

=item dir

The direction of this object (for look-ahead/behind assertions).  If
less than 0, it i <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16957	17048	
==>NDExpression> <'&'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn :words {  # see 11. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1374	1482	
==>>id->to_native <=> $right->id->to_native;
}

## methods

sub id    { (shift)->[0]        }
sub class { (shift <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7527	7632	
==>&& substr($k,-2,2) eq ("th"|"st"|"nd"|"rd")
                 && pugs_internals_m:perl5/\A(\d+)(?:th|st|nd| <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6323	6454	
==>ty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclass <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6323	6454	
==>ty;
    return $.span.size;
}

sub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclass <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1388	1514	
==>$name'} = sub {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32598	32694	
==>se is to convert Message objects on demand into user-readable
message strings, using data from ex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32598	32694	
==>se is to convert Message objects on demand into user-readable
message strings, using data from ex <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	358	504	
==>method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	358	504	
==>method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my $tmp = -Inf;
    for ( 1 .. $samples ) {
        $tmp = $self. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9576	9676	
==>0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{% <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9576	9676	
==>0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{% <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1863	1975	
==>);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1863	1975	
==>);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($two);
}
multi sub *infix:«⊄» (Set $on <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6808	6920	
==>ich failed
    percent     Percentage of tests which failed
    canon       List of tests which failed (as string <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12784	12892	
==>e portable.
  http://www.perlmonks.org/index.pl?node_id=531465

  It may not be possible to get Match objects <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1164	1286	
==>nding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4642	4764	
==>nding
        # to that is the value for that attribute for that tuple.
        # Note that it is valid for a Relation to h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11036	11164	
==>turn _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    if ( $n->{op1}{op} eq '~=' ) {
        return _emit( $n->{ex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20509	20611	
==>re should be a wide variety of third party Engine
modules that become available over time.  One plan wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20509	20611	
==>re should be a wide variety of third party Engine
modules that become available over time.  One plan wh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18413	18511	
==>to getting the most accurate program text
for users, we still get the best results by having a huma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18413	18511	
==>to getting the most accurate program text
for users, we still get the best results by having a huma <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2489	2597	
==>ni style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootpro <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2489	2597	
==>ni style files with as little code as possible

=head1 SYNOPSIS

    # In your configuration file
    rootpro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4683	4836	
==>emove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4683	4836	
==>emove_content_headers;
                $self.content_type("multipart/mixed");
            }
            
            @!parts = @new;
            $self!sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2785	2903	
==>is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2785	2903	
==>is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale::KeyedText::Message.new(
        m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8870	8997	
==>t ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $arr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8870	8997	
==>t ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $arr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28030	28122	
==>tional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28030	28122	
==>tional parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Mess <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21790	21929	
==>&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22069	22208	
==>&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::c <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2408	2537	
==>en_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $s <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2408	2537	
==>en_flow>();
      $tokens -= $n;
      $tokens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	513	614	
==>gument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1371	1472	
==>gument $number is zero],
);

module MyLib::L::Eng {
    sub get_text_by_key (Str $msg_key!) returns St <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39533	39627	
==>2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug repo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39533	39627	
==>2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, and bug repo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9855	9991	
==>hat's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2887	3023	
==>hat's now the default
        ### for this module
        ### make sure we dont see ourselves again, so grep that out
        my $new_alt <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2108	2255	
==>m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2108	2255	
==>m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> and C<$.Result> are virtual classes within the strategy <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3864	3958	
==>port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3864	3958	
==>port of the Perl 5 File::Spec module which is currently 
maintained by Ken Williams <KWILLIAMS@ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13467	13610	
==>it(D), hexdigits(T), !.
hexdigits([])    --> [].
hexdigit(D) --> [D], { code_type(D, xdigit(_)) }.

hexdigits4_int(I) -->
  hexdigit(D0), hexdig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2591	2750	
==>ug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  pat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2591	2750	
==>ug("- checking cookie path=$path");
                    
                    if ($req_path.index($path) != 0) {
                        LWP::Debug::debug("  pat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9385	9568	
==>miminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) retu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12862	13045	
==>miminus    ::= &semidifference;
&not_matching ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) retu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2018	2129	
==>ions }
       );
}

# sigh ... how you get used to infrastructure you've built up in Perl5

=head1 NAME

Meta::C <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2242	2359	
==>};
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2242	2359	
==>};
        my $intersect = $set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14046	14171	
==>);
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QU <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14046	14171	
==>);
      }
    }
  }
  method part(Str $channel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QU <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	521	625	
==>pecial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        loca <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	521	625	
==>pecial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        loca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3179	3301	
==>t "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nT <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3643	3765	
==>t "Translating (dependency for $meta->{package}):\n";
            print Dump( $meta->{depends} );
            #print "\n\nT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1181	1337	
==>:',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1181	1337	
==>:',
                $engine_name ~ '::L::',
            ],
        member_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.ne <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4036	4217	
==>hatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if un <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4036	4217	
==>hatever else.
    local $@;
    eval {
        print $fh $output
           or die;
        close $fh
           or die;
    };
    if ( my $e = $@ ) {
        # close $fh? die if un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1387	1491	
==>ode;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1387	1491	
==>ode;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )->co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16185	16278	
==>de_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16185	16278	
==>de_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1678	1823	
==>rammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1678	1823	
==>rammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Gramma <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12954	13109	
==>('$class:'   => 'opaque'), 
                              symbol->new('$canidate' => 'str'), 
                              symbol->new('%params'   => 'hash <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4416	4543	
==>""paramDefault""paramName"
        dbg "# keys: ",%pad.keys;
        $ret = emit_parameter( 
            %pad<"paramName">,  %pa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10676	10767	
==>ode = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; re <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10676	10767	
==>ode = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4123	4267	
==>{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        ta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4316	4460	
==>{'grammar1::ws'} = sub {
    my $bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	934	1071	
==>RE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	934	1071	
==>RE => { $!uri = $HTTP::URI_CLASS.new($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2248	2377	
==>=> 'left',
    #    precedence => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 's <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1929	2054	
==>=> 'left',
        precedence => 'looser',
        other => 'infix:<|>',
    );
    __PACKAGE__->add_rule( 
        name => 'n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	55	154	
==>use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	55	154	
==>use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17229	17332	
==>l machine that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagou <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17229	17332	
==>l machine that is embedded in your Perl application and
in which the Rosetta D code runs (it is analagou <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2501	2613	
==>ll except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and re <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2501	2613	
==>ll except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11893	11990	
==>set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11893	11990	
==>set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

=head2 C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20639	20762	
==>x}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17060	17183	
==>x}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7671	7810	
==>60),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7671	7810	
==>60),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(8707),
    "empty"    => chr(8709),
    "nabla"    => c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13335	13442	
==>n for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13335	13442	
==>n for {time() - $.last_traffic} seconds; pinging server.";
      ./raw("PING :$.curservername");
      $.las <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2408	2553	
==>d().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2408	2553	
==>d().
  my %cache353;            # We need a temporary storage for the names we
                           # receive after we've done a /NAMES (the <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8902	9007	
==>%channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8902	9007	
==>%channels{$_}<users>{$newnick}++;
      }
    }

    # The more elegant %users{$newnick} = %users.delete($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6199	6324	
==>quent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not nec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6199	6324	
==>quent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() on undef.
    # The workaround is not nec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2157	2270	
==>"' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2938	3051	
==>"' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op =    get <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	250	363	
==>t work quite right.
# package Parser;

# use lib '../Chap6';
use Stream;# :all;

# use base Exporter;
# @EXPORT_OK <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	1	97	
==>line 1
package Module::Install::Base;

$VERSION = '0.61';

# Suspend handler for "redefined" warn <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4673	4838	
==>r);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4673	4838	
==>r);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs pop one item from
    # @base_dirs
    my $dir;
    w <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5311	5404	
==>lass->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folde <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5311	5404	
==>lass->pmc_unfold_blocks($folded_content);
    my $real_data = $class->pmc_unfold_blocks($folde <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	436	559	
==>0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1162	1282	
==>0]{match}[1]{capture};
}

sub recompile {
    my ( $class ) = @_;
    no strict qw( refs );
    #print "creating ${class} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15470	15569	
==>$a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15470	15569	
==>$a);
  $encoded = HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entit <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	521	623	
==>ve been in the Perl Monks
# thread mentioned above.
#
# To test head.p6, tail.p6, rev.p6, mid.p6, wc.p6 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	33	133	
==>Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	33	133	
==>Parse::Rule::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5626	5743	
==>a::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (clos <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5626	5743	
==>a::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (clos <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15711	15857	
==>ore thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19944	20090	
==>ore thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted information used by regexec? */

Flags <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12206	12316	
==>ed on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request $r, U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12206	12316	
==>ed on an instance, but they are not tied to a
    # particular instance
    my method host (HTTP::Request $r, U <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4649	4738	
==>> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) --> ",", d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15543	15666	
==>isual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21714	21837	
==>isual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8063	8215	
==>.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8063	8215	
==>.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_p <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1716	1815	
==>nstruction to source.
 # represented as processing instructions, or maybe comments
 # in the "normat <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1716	1815	
==>nstruction to source.
 # represented as processing instructions, or maybe comments
 # in the "normat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4435	4534	
==>ill
finish, the stacks will be popped once more, and the whole AST is now reduced
to 11.

Inherits U <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10701	10880	
==>();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10701	10880	
==>();
        $servername     = undef;
        $hdl            = undef;
        $curnick        = undef;
        $curusername    = undef;
        $curircname     = undef;
        $cu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1669	1764	
==>pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_fram <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1669	1764	
==>pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_fram <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3340	3451	
==>{stack} } while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  my ($self, $de <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2729	2834	
==>ny (any byte)
  $self->add_handler('\C' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "C", " in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7262	7425	
==>e::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7262	7425	
==>e::var
            return 
                "$_[1] sub { $cmd->match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12320	12491	
==>$uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12320	12491	
==>$uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.lc;
    }
    
    my <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2736	2841	
==>$file12,
        "1st line\n2nd line\n3rd line\n4th line\n5th line\n".
        "6th line\n7th line\n8th li <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1325	1439	
==>struct->{$_} ) for keys %$struct;
    
    ### if it has a dependency list, transform it into an object
    if( $ob <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19315	19416	
==>n :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoIn> <','> <AssignmentExpre <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8989	9090	
==>method:

  my $root = $parser->root;

It will be an array reference of objects.

=head2 Getting the OP <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	550	684	
==>$modules[0]));
        };
        print STDERR $@ if $@;
    }
    elsif (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5541	5643	
==>ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|NaN) ?? JSX::false !! JSX::true;
}
multi sub ToBoo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22885	23027	
==>0),
					),
				),
			),

			param => comb(
				fun => ide("length_and_first"),
				param => comb(
					fun => ide("listify"),
					param => va <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10138	10245	
==>PIL-Run/">Perl 6 on Perl 5</a>,
    <a href="http://svn.openfoundry.org/pugs/perl5/PIL2JS/">Perl 6 on
    Ja <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2420	2517	
==>all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the las <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2420	2517	
==>all except the first element of C<@array>.

=head2 C<< init(@array) >>

Returns all except the las <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10002	10099	
==>($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for progr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10002	10099	
==>($IS_PARAMS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for progr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3286	3387	
==>{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3286	3387	
==>{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3397	3494	
==>{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3397	3494	
==>{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5778	5880	
==>object ($child_to_remove) in self";
}

## ------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5778	5880	
==>object ($child_to_remove) in self";
}

## ------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2325	2419	
==>In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-dat <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2325	2419	
==>In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-dat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1888	1998	
==><Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<M <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1977	2087	
==><Pugs::Runtime::Match> represents a B<Match> object.

=item * L<Pugs::Runtime::Match::Ratchet> represents a B<M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19478	19576	
==>rget relation
variables are system catalog relation variables rather than user-defined
relation var <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19478	19576	
==>rget relation
variables are system catalog relation variables rather than user-defined
relation var <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2101	2195	
==>u might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2101	2195	
==>u might also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	227	333	
==>(Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	227	333	
==>(Set $one, Set $two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $tw <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5268	5407	
==>> sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5268	5407	
==>> sub ($x) {...},
        universe =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14791	14884	
==>r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14791	14884	
==>r&ocirc;le", but
C<escape_entities_numeric("r\xF4le")> returns "r&#xF4;le".

This routine is I <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2328	2432	
==>her) returns Bool {
    return ($self.size < $other.size && $other.includes($self.members));
}
method sup <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2328	2432	
==>her) returns Bool {
    return ($self.size < $other.size && $other.includes($self.members));
}
method sup <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6295	6390	
==>Bare|Parametric)\z/) {
	my($name,$argl,$f,$lval)=@_;
	my $body = $f;
	$body = '$f->(@_)' if ref( <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2386	2478	
==>estgraph.pl --inlinecss tests.yml), $html_location) == 0 or die "Could not convert .yml to te <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4194	4303	
==>{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $rx->[0]->fam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9731	9892	
==>[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9711	9872	
==>[0], $_[1] );
}        
sub node::code {
    # return "$_[1] # XXX code - compile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	68	173	
==>class;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	68	173	
==>class;

use Pugs::Compiler::Rule;

our $VERSION ='0.01';

# stash the metaclass for the package 
# that we <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4302	4415	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4495	4608	
==>re} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::p6ws'} = sub {
    my $bool = $_[0] =~ /^((?:\s|\#(?-s:. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4136	4258	
==>er for 'eval( ... , :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3991	4110	
==>er for 'eval( ... , :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10051	10179	
==>aram_info);
    my $my_args = "";
    if(@$params) {
        my $sig = @names6 > 1 ? '@' : '$';
	$my_args = ('my('
		    .join(", <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22192	22288	
==>confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = split('::',$mn);
	$parts <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17598	17723	
==>0(code)
    if has_name == 0 goto end
    $I0 = find_type grammar
    if $I0 > 0 goto end
    $P0 = getclass "PGE::Rule"
    $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	10	119	
==>role Math::Basic;

multi sub abs (; Num ?$x = $CALLER::_ )
    returns Num { ... }

multi sub exp (; Num ?$exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12556	12658	
==>.remove_header( $field, ... )

This function removes the header fields with the specified names.

The h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12556	12658	
==>.remove_header( $field, ... )

This function removes the header fields with the specified names.

The h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9349	9450	
==>urn $S->force_object(anyof_class => upper => $neg, $how);
  });

  # word POSIX class
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	21	121	
==>nt for the old BEGIN preamble which heads (or
# should head) up every core test program to prepare i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2375	2479	
==>open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2592	2696	
==>open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-c <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	296	396	
==>_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	296	396	
==>_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12824	12971	
==>line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12824	12971	
==>line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($even <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27564	27665	
==>but for the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27564	27665	
==>but for the changes.

=back

A Message object has these methods:

=over

=item C<export_as_hash()>

Th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1812	1944	
==>hey are too frequent and they are too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1739	1866	
==>hey are too frequent and they are too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	758	897	
==>:Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $messa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	758	897	
==>:Response.new
                ($code, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $messa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36725	36825	
==>slator object's Set and Member properties; if none
could be matched, this method returns undef.  This <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36725	36825	
==>slator object's Set and Member properties; if none
could be matched, this method returns undef.  This <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	807	909	
==>}

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	807	909	
==>}

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Ne <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1614	1756	
==>ge_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4817	4959	
==>ge_re;
    }

    sub version {
        return $3 if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	173	282	
==>use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSI <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	173	282	
==>use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSI <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25994	26109	
==>ter {  # see 15.10.1
      <[a..zA..Z]>
}
rule IdentityEscape {  # see 15.10.1
      <!before <IdentifierPart>> <Sou <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11194	11299	
==>undef","\n";
print ' $^N ',defined($^N)?"\"$^N\"":"undef","\n";
END




__END__

=pod
Objective:

  Permit <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20281	20375	
==>2
      <VariableDeclarationNoIn>
    | <VariableDeclarationListNoIn> <','> <VariableDeclaratio <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6565	6661	
==>}
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6565	6661	
==>}
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $data) returns Str is <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1086	1217	
==>pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1086	1217	
==>pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1235	1327	
==>al recurrence set.

These methods are disabled: complement(), difference($set)

  ----------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1235	1327	
==>al recurrence set.

These methods are disabled: complement(), difference($set)

  ----------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1272	1516	
==>( "\%" )
                 ,
                   ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::co <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1079	1198	
==>$x);
 }

 multi  Num::truncate (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num::int ::= &N <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8602	8692	
==>setta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8602	8692	
==>setta::Model version 0.724.0.

It also describes the same-number versions of Rosetta::Model <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2690	2793	
==>thod is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2690	2793	
==>thod is_success  () { HTTP::Status::is_success  (./code); }
    method is_redirect () { HTTP::Status::is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9266	9419	
==>( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            wa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9266	9419	
==>( $cmd =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            wa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	975	1102	
==>y ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	975	1102	
==>y ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern matching and named binding
        #if ($string ~~ s:/^ $fi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7372	7469	
==>traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7372	7469	
==>traversal_order.defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26523	26629	
==>h.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26523	26629	
==>h.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

Th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1150	1274	
==>even higher order functions get prims instead of thunks when
    # possible

    my $body = $thunk->val;

    $self->enter_sc <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13676	13794	
==>even higher order functions get prims instead of thunks when possible

    my $body = $thunk->val;

    $self->enter_sc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1896	2044	
==>y in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2676	2824	
==>y in grammar
    return 
        # "    { no strict 'refs';\n" .
        "    *{'$fix:<$id>'} = sub\n" . emit($block) . "    ;\n" .
        # "    }\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2161	2369	
==>ugs::Runtime::Match->new( { 
                            bool  => 1,
                            match => $m,
                            tail  => $$m->{tail},
                            capture => { angle_qu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	726	823	
==>s
### XXX touch the 'root' entry and the tests will run somewhere quite different!
$config{'root'} <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2227	2410	
==>r install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$R <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12575	12675	
==>= ($self ($class: send (CREATE ($canidate %params)))))
     ($self send (BUILDALL %params))
     ($se <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	471	584	
==>st.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	471	584	
==>st.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4873	4971	
==>e_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5066	5164	
==>e_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[0] =~ /^ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18192	18322	
==>classes) {
	$code .= $hlp->($cls);
    }
    my $where = $pkg;  $where = "root namespace" if $where eq "";
    my $tell = 0 ? "conf <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3737	3837	
==>at>

If the test exited with non-zero, this is its exit status.

=item B<Wstat>

The wait status of t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12383	12481	
==>`closest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both pr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12383	12481	
==>`closest( $x )`

Returns the element in the recurrence that is closest to the parameter.
If both pr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2686	2818	
==>e {
		die "can't perform runtime cast of ($node)::$from to $to";
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::Pe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12075	12173	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12133	12231	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on checks with ref() <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	389	505	
==>oY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	389	505	
==>oY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12973	13105	
==>ld_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12973	13105	
==>ld_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fold_pod()     :
            $result =~ m{\A($re_comment)} ? $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6621	6734	
==>m file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6621	6734	
==>m file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded = .template <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4505	4618	
==>as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump($pil_tree)."\n\n";
    $dump =~ s <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5128	5236	
==>ests;
    @tests;
}

sub get_revision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	80	199	
==>nto:

- Introduction

- Documentation Index

- Compiler internals:

    Compiler

    Compiler::Perl6

    Compiler::Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	72	185	
==>nto:
- Introduction
- Documentation Index
- Compiler internals:
    Compiler
    Compiler::Perl6
    Compiler::Rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11157	11283	
==>) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11157	11283	
==>) {
        $queue<enqueue>({
          # Indicate that we're currently logging in, so our nick_already_used
          # handle <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7842	7940	
==>/add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7842	7940	
==>/add_handler("QUIT", -> $event {
      my @chans = %!users{normalize $event<from_nick>}<channels>.k <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6778	6892	
==>\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6778	6892	
==>\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $char =~ /!/;
    return "$_[1] constant( q($char) )\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1335	1449	
==>eturn $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1335	1449	
==>eturn $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    #print "POS $pos ";
    return Pugs::Runtim <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14983	15078	
==>ies_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14983	15078	
==>ies_numeric);>
or even C<use HTML::Entities qw(:DEFAULT encode_entities_numeric);>

=back

All t <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	404	540	
==>e.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub time <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	404	540	
==>e.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub time <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14474	14697	
==>)
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14753	14976	
==>)
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3077	3172	
==>t := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3135	3230	
==>t := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compare_func <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1298	1408	
==>iterion $by ; *@values) returns List
 &sort<> := &sort<Criterion>.assuming(by => &infix:<cmp>);

 type KeyExtra <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9796	9936	
==>alls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = split(/::/,$name); pop(@parts);
	    $class = join("::",@parts) if @par <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13911	14008	
==>s...) not recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatched )

=i <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	784	954	
==>, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.pu <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	784	954	
==>, $node );
            unless -d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.pu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2690	2807	
==>->{$pkg}->{bin} || [] } ) {
            1 while unlink "$Bindir/$script";
            1 while unlink "$Alternatives/$s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4688	4845	
==>eturn {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4881	5038	
==>eturn {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : ( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1596	1716	
==>rnatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns an a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	631	754	
==>r ( 1 ) {
            $m = Pugs::Grammar::BaseCategory->ws( $match );
            # <ws> is nonstandard in that it returns a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	372	467	
==>nt RPe_NOTBAL => --$ENUM, 'Sequence (?{...}) not terminated or not {}-balanced';
use constant RP <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	247	351	
==>r;

# Flags used as return values from our methods.  Just for internal 
# clarification.
my $TRUE  = (1== <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9573	9663	
==>f $op{'isLValue'};
	push(@args,"lazy=>1") if $op{'isLazy'};
	push(@args,"named=>1") if $op{ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1476	1574	
==>), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1476	1574	
==>), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$num]> and C<$match <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17840	18008	
==>},
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17840	18008	
==>},
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A No <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2038	2158	
==>DATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2038	2158	
==>DATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &RC_FOUND;
    
    sub status_message ($code) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13542	13665	
==>altdir
        my $script = basename($_);
    
        my $alt = $self->alternatives_dir->file( $script );
        my $bin = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7764	7881	
==>sage vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7764	7881	
==>sage vars into it and return that.
        $text = .interpolate_vars_into_template_text(
            $text, $message_c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15663	15765	
==>h the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15663	15765	
==>h the entity should be
considered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

The <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	981	1161	
==>ld; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	981	1161	
==>ld; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $! <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2305	2421	
==>$path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2305	2421	
==>$path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        $path = rel2abs($path);
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1039	1155	
==>class },
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1554	1664	
==>_string {
  my ( $self ) =  @_;
  my $target = $self->target();
  my $from = $self->from();
  my $position = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1483	1588	
==>entation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1483	1588	
==>entation for Perl 6 Rules.  It is a front-end
to several other modules:

=over 4

* Front-end Modules

=it <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1548	1651	
==>ng spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - Th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1548	1651	
==>ng spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	674	809	
==>%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	674	809	
==>%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'C <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22493	22589	
==>f["iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp::Modifier" ]

.sub "p6analyze" <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1391	1485	
==>existent versions of perl5.  Perhaps
# because the challenges being faced were insufficiently d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	451	553	
==>evels}[$_[1]]}, $_[2] ) },
);

# parsed: - the rule replaces the right side
# note: S06 - 'chain' can't <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3933	4028	
==>s($Class->name, 'Class', '... $Class got the right method return value');
is($Class->superclass, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5835	5930	
==>s($Class->name, 'Class', '... $Class got the right method return value');
is($Class->superclass, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1088	1193	
==>en ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1088	1193	
==>en ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen(.v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9844	9932	
==>e(1,undef,undef,1,3,2,3);
};
=pod
=cut

my($qr) = Regexp::StructHook::make_qr_regexp_pair <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	767	877	
==>e the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	767	877	
==>e the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile( $rule ) };
	die "Could not comp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9271	9382	
==>r $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  met <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9271	9382	
==>r $event, Code $callback) {
    push %!handler{$event}: $callback;
  }

  method connect() { ./reconnect }
  met <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32785	32883	
==>::Class->send('add_method' => (
    # method label
        symbol->new('_make_ascendant_dispatcher' <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	51	152	
==>or split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%new <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	51	152	
==>or split ' ', %*ENV<SELECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%new <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8834	8927	
==>erl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2659	2752	
==>erl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38725	38822	
==>ll be replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38725	38822	
==>ll be replaced, non-recursively,
and any "<foo>" not matched by a variable name will be left intac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4506	4642	
==>ate = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4506	4642	
==>ate = ./date // ./client_date // time;
        my $expires = ./expires;
        
        unless ($expires.defined) {
            # Must a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	419	584	
==>();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	419	584	
==>();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15226	15336	
==>n't unlink '$file': $!\n" if -f $file;
    }
}


my $tmpfile = "misctmp000";
1 while -f ++$tmpfile;
END { unlin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	2932	3215	
==>x:<->'),
                                Sym('$y'),
                                Val(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12296	12434	
==>o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        { local <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15516	15617	
==>ns Bool;

Because these functions will be mutually recursive, they will easily be
able handle arbitrar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15574	15675	
==>ns Bool;

Because these functions will be mutually recursive, they will easily be
able handle arbitrar <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2311	2427	
==>eturn $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOK <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2311	2427	
==>eturn $pid;
}

sub eval_pugs {
    my $self = shift;
    print IN $self->quote_pugs($_[0]), "\n";
    local $/ = COOK <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12292	12421	
==>host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12292	12421	
==>host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3056	3159	
==>@intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3056	3159	
==>@intersect.map:{ $set1.new( recurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15787	15889	
==>append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15845	15947	
==>append the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Te <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4583	4828	
==>([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    u <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4583	4828	
==>([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<string>($token);                    
                }
                else {
                    # if the stack is empty then ...
                    u <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	503	614	
==>---------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## --- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	503	614	
==>---------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $!parent;
}

## --- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2893	2991	
==>rtion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=ite <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2893	2991	
==>rtion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=ite <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3888	4066	
==>ft') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3888	4066	
==>ft') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8681	8818	
==>tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::em <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9516	9653	
==>tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::em <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17296	17407	
==>arser->root };
  die "$@" if !defined $n;
  #print Dumper $n;
  my $r = Hacks->concat($n);
  return $r;
}
sub ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10180	10286	
==>) }.

p56_char_class(class_pos(digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> " <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	29679	29782	
==>is method is a generic relational operator that returns a new Relation::Example
which has a subset of th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	34897	35000	
==>is method is a generic relational operator that returns a new Relation::Example
which has a subset of th <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	217	349	
==>to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self< <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	217	349	
==>to write OO before OO existed

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3086	3208	
==>rcumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3086	3208	
==>rcumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "otilde"   = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	36565	36809	
==>l' => 'symbol'),                                
                          ),
                returns => 'attribute'
            ),
            sub {
                my $e = shift; 
                $e->get('$self:')
                  ->get_attr( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	406	503	
==>ype {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	406	503	
==>ype {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitespace in a Perl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6551	6682	
==>) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6551	6682	
==>) if %users{$_}<channels>;
      }
      %channels.delete($chan);
      debug "Left channel \"$chan\".";
    } else {
      %channel <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	193	305	
==>ict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filte <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	193	305	
==>ict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3768	3883	
==>Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3633	3744	
==>Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14579	14669	
==>->registered_alternatives };
    eval { DumpFile( $self->registered_alternatives_file, @alt <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/kontext-ops.pl	93	199	
==>t wahr" if ?$var;
say "'Hallo' ist true" if ?"Hallo";

#=String-Kontext: ~
say "4 ist " ~ 4;

#=Zahlen-Kont <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7301	7400	
==>in')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

Th <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7301	7400	
==>in')>

This event is fired when a '=begin' directive is reached.

=item I<end_element ('begin')>

Th <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6647	6749	
==>spath2runcore {
  local $_ = shift;

  /JSPERL5/i and return "jsperl5";
  /PIL2JS/i  and return "pil2js <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14345	14443	
==>y @avail = map { $_->meta->to_struct } @{ $self->available };
    eval { DumpFile( $self->available <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	591	715	
==>path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	591	715	
==>path;
    }
    else {
        $path ~~ rx:perl5{^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $fi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	84	175	
==>doc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	84	175	
==>doc::DOM::Node;
use Perldoc::DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1765	1894	
==>sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1958	2087	
==>sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4765	4910	
==>st)\
\\n   List      pre     gather  safe   (Code)\
\\n   List      pre     map     safe   (Code, List)\
\\n   List      pre     grep    safe   (C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2102	2223	
==>ame'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unless defined $_[0];
    $_[0] = "" un <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	804	936	
==>['"<]?([^'">]+)/) {
            dump_file(dirname($file) . "/$1");
            next;
        }
        s/\\/\\\\/g; s/\n/\\n/g; s/\t/ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	1	106	
==>se strict;

### fixes the config for us
BEGIN { require 'conf.pl' }

use JIB::Config;
use JIB::Source;

us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3530	3695	
==>_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3530	3695	
==>_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5781	5890	
==>line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5839	5948	
==>line";
    }
}

## 'private' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19834	19958	
==>}
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16255	16379	
==>}
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)] <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9606	9706	
==>e.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with closur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9606	9706	
==>e.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with closur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10447	10563	
==>] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10447	10563	
==>] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	311	420	
==>coding content_length content_language
    title user_agent server from referer
    www_authenticate authoriza <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	311	420	
==>coding content_length content_language
    title user_agent server from referer
    www_authenticate authoriza <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3403	3505	
==>ESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration files
with as little c <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3403	3505	
==>ESCRIPTION

Config::Tiny is a utility to read and write .ini style configuration files
with as little c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14015	14139	
==>.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_wi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17492	17616	
==>.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_wi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14495	14596	
==>_char(Name,C)), !.

%-------------------------

re_reverse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse( <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14463	14558	
==>) order, C<pairs> a C<Pair(key, value)>.

Note that C<kv %hash> returns the same as C<zip(keys % <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16593	16693	
==>n( $other );
}

multi method join (Relation::Example *@others) returns Relation::Example {

    # Fir <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2472	2604	
==>rst)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2472	2604	
==>rst)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::debug("- checking <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3940	4052	
==>a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3952	4064	
==>a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3327	3449	
==>tions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3338	3460	
==>tions

=for reference - see S05 "Return values from matches"
    $/    
        the match 
        Inside a closure, refers <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2140	2246	
==>urn !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2140	2246	
==>urn !$self.equal($other);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $oth <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1751	1887	
==>lean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( L <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	862	996	
==>lean->{FILES}, @_),
    );
}

sub libs {
    my $self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( L <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8679	8791	
==>@union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8679	8791	
==>@union = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2579	2672	
==>urn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3534	3627	
==>urn $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26663	26774	
==>ew Locale::KeyedText::Message object.
The Message Key attribute of the new object is set from the named paramete <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26663	26774	
==>ew Locale::KeyedText::Message object.
The Message Key attribute of the new object is set from the named paramete <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3137	3229	
==>ming(:offset(0) :length(1));
## an alternate implementation:
#multi method Array::shift (@arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2355	2487	
==>p {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2602	2734	
==>p {
        \( <rule> \)
            
        { return { capturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'captur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15804	15951	
==>ned $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { id <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15798	15945	
==>ned $param_list;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { id <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1830	1944	
==>nName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1830	1944	
==>nName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2082	2191	
==>ize == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2082	2191	
==>ize == $other.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5515	5615	
==>ntent-Type') when you are accessing the web using this
function.  If you need that information you sh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5515	5615	
==>ntent-Type') when you are accessing the web using this
function.  If you need that information you sh <==
2	/Users/nnunley/pugs/misc/S29_round.pl	864	1019	
==>c ( Num $x ) {
    my $x_round;

    # round .5 down above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7996	8124	
==>ce
        my($leader, $ml) = _mk_leader($tfile, $width);
        local $ML = $ml;

        print $leader;

        $tot{files}++ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17675	17776	
==>/filtered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penal <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17675	17776	
==>/filtered code. The C<.pmc> has the real
code you want to see.

=item *

Zero additional runtime penal <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7813	7921	
==>teral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'null'>
}
rule BooleanLite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7065	7169	
==>rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $self.header(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7065	7169	
==>rw { $self.header("Content-Language") }
method content_length ($self: )            is rw { $self.header(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9337	9473	
==>} else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9325	9461	
==>} else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5790	5873	
==>n Data::Dumper::Dumper($expected_type) unless defined $self->simplify_type($expected <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1151	1263	
==>();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1151	1263	
==>();
    $.width += $child_width;
    # and now bubble up to the parent (unless we are the root)
    $self.parent( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19643	19741	
==>icate itself with a server or a
proxy, may do so by including these headers.

=item $h.authorizatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19643	19741	
==>icate itself with a server or a
proxy, may do so by including these headers.

=item $h.authorizatio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24913	25017	
==>:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24913	25017	
==>:floodcontrol(1)> to the constructor, C<Net::IRC> won't simply
send all commands immediately to the serve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13738	13867	
==>fix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13732	13861	
==>fix eq '+' ) {
	       $cmd = substr($cmd, 2);
	   }
	   # XXX <[^a]> means [\^a] instead of [^a] in perl5re

	   return call_perl <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	189	290	
==>epresenting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	189	290	
==>epresenting a datetime recurrence set

= SYNOPSIS

  use DateTime::Recurrence;

  # XXX

= DESCRIPTION <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20606	20707	
==>>error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_han <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17027	17128	
==>>error(RPe_NOTREC, 1, substr(${&Rx}, &RxPOS - 1));
  });

  # not implemented (?@...)
  $self->add_han <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3163	3261	
==>key attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
func <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3163	3261	
==>key attacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
func <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24869	24993	
==>s to the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{regex} }

    # the position in the re <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7516	7616	
==>d_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step
  descr  => "Searchi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22405	22516	
==>s => $length_and_first,
		in => comb(
			fun => ide("length_and_first"),
			param => comb(
				fun => ide("listi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	621	749	
==>->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory::capture( $/ ) }
    ' )->code;
}

1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1345	1468	
==>->compile( '
        %' . $class . '::hash
        { return Pugs::Grammar::BaseCategory::capture( $/ ) }
    ' )->code;
}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1532	1642	
==>= []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1532	1642	
==>= []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'new', ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6615	6782	
==>l {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6615	6782	
==>l {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	489	652	
==>join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' un <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	489	652	
==>join( "\n" );
        @!output   = ();
        return $output;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' un <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2564	2664	
==>statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2564	2664	
==>statement.parse>) \)    { return { expr => $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_pe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1087	1215	
==>on a META_OBJ.

XXX needs verification
XXX needs binary package recognition

=cut

{   my $acc = {
        file            => { a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16230	16342	
==>< time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the media ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16230	16342	
==>< time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header field indicates the media ty <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22693	22790	
==>ion Heading>

Set of Str - This contains zero or more Relation attribute names that
define the hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27245	27342	
==>ion Heading>

Set of Str - This contains zero or more Relation attribute names that
define the hea <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18545	18652	
==>ed as a constant.

# sprintf # XXX - see Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3620	3798	
==>f $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3620	3798	
==>f $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	2514	2680	
==>eate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            if ($class != $EigenClass) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8866	8967	
==>ous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8866	8967	
==>ous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The following methods <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3560	3674	
==>nless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3560	3674	
==>nless $path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1284	1384	
==>s along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The proced <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1284	1384	
==>s along the way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The proced <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9601	9696	
==>ethod _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to overrid <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9601	9696	
==>ethod _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to overrid <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30916	31034	
==>ple
which has a superset of the original's attributes; the new Relation::Example has as
many additional attributes as t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9250	9448	
==>t would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if def <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9250	9448	
==>t would normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if def <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10072	10196	
==>ME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    prin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10072	10196	
==>ME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5340	5469	
==>brule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5533	5662	
==>brule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5937	6042	
==>\t", "", (map { "$_;" } @exps), "return $last_exp;") . "\n}");

		return $symbol;
	} else {
		$self->reduc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3579	3689	
==>le '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3579	3689	
==>le '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7134	7226	
==>ssume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7134	7226	
==>ssume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4867	4970	
==>item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4867	4970	
==>item C<finish>

    push @output, $cipher_obj.finish();

Completes ciphering of any leftover data and re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1539	1658	
==>red within

that scope.



the Sig contains a simply structure of the signature; it does

not allocate containers.



th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1477	1590	
==>red within
that scope.

the Sig contains a simply structure of the signature; it does
not allocate containers.

th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10563	10661	
==>ccepts multiple ($field => $value) pairs, which
means that you can update several fields with a sin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10563	10661	
==>ccepts multiple ($field => $value) pairs, which
means that you can update several fields with a sin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	246	346	
==>rfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher:: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	246	346	
==>rfect cipher--it's impossible to retrieve the plaintext from...

=cut

#'

use Cipher;
class Cipher:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	110	238	
==>d cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	110	238	
==>d cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things roles can override <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10604	10725	
==>alue = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code inte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10762	10883	
==>alue = eval $name if $name =~ /^\$/;
    $value = join('', eval $name) if $name =~ /^\@/;

    # XXX - what hash/code inte <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6581	6685	
==>al and -s $kernel_local },
  using  => sub { getstore $kernel_uri => $kernel_local };

step
  descr  => " <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37078	37181	
==>)));
$::Class->send('add_attribute', (symbol->new('@:superclasses')    => attribute->new('@:superclasses <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1720	1852	
==>self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1720	1852	
==>self.insert($item);
        }
    }
    return $rv;
}

method clear() {
    undefine %!members;
}

method clone ($self:) returns Set: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2967	3192	
==>-tz |] .
                    qq[xargs -I % echo ] . $inst->dir . qq[/%] . 
                    qq[ >> $packlist] )   
                                                            and die $?;
        }

=begin comment

        { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2487	2598	
==>> executes $code, passing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Ru <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2487	2598	
==>> executes $code, passing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Ru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28032	28138	
==>onal parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28032	28138	
==>onal parameter $var_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable nam <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	579	728	
==>s++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	579	728	
==>s++;
        return map {
            ($self.mode eq 'enciphering' ?? ord 'E' !! ord 'D'), 
            ord $.num_invocations
        }, *$data;
    } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6825	6939	
==>_from_single(@_);
    }
    my $meta = get_meta($cls);
    return $meta->new(@_) if defined $meta;
    Carp::confes <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3192	3314	
==>IL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3192	3314	
==>IL::PIL $.tail;
    submethod BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9344	9437	
==>};
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3169	3262	
==>};
push @statements, sub { Grammar::Perl6->sub_defin(@_) };
push @statements, sub { Grammar::P <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3715	3840	
==>ode, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5617	5742	
==>ode, $desc) = @_;
    local $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	551	674	
==>= shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	551	674	
==>= shift;

    _setup_filter($pkg, $code);
}

sub _setup_filter {
    my ($pkg, $code) = @_;

    no strict 'refs';
    *{"$p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4746	4876	
==>ll the lines including the ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $mo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4746	4876	
==>ll the lines including the ones before the `use`
    # statement, so we can parse Perl into packages and such.
    open my $fh, $mo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1948	2057	
==>amed C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no lo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1948	2057	
==>amed C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the mark is no lo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	822	965	
==>parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    subm <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	822	965	
==>parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    has $.pos;
    has $.match;

    subm <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2671	2764	
==>er>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/group/pe <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2671	2764	
==>er>.

You can also read the list via Google Groups at
L<http://groups-beta.google.com/group/pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4727	4848	
==>Text

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_nam <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4727	4848	
==>Text

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32981	33084	
==>ere is the walk() method for all the quantifier and
'minmod' nodes:

  # star, plus, curly, minmod
  sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5737	5842	
==>r('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5816	5921	
==>r('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4022	4153	
==>e'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4215	4346	
==>e'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::ws'} = sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18960	19058	
==>houldn't be a problem
because Locale::KeyedText is only meant to be used with user text that is
ass <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18960	19058	
==>houldn't be a problem
because Locale::KeyedText is only meant to be used with user text that is
ass <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2825	2918	
==>Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2825	2918	
==>Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::con <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	797	927	
==>check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root o <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	797	927	
==>check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont match the root o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	741	840	
==>)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only metho <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	741	840	
==>)` are enabled.

- `new( closure_previous => sub {...} )`

Creates a recurrence set where only metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3579	3707	
==>} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3579	3707	
==>} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( grep { $_ !~ /^(op|fix|l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14046	14156	
==>w( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14046	14156	
==>w( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container wh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1645	1792	
==>'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1645	1792	
==>'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _show_message( Locale::KeyedText::Message.new(
            msg_k <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12892	12977	
==>aracter_tail(T,Close).


brackets("{","}"). brackets("(",")"). brackets("[","]").
brac <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3337	3449	
==>kefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4473	4585	
==>kefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3984	4112	
==>e.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3984	4112	
==>e.new();
    $res.set = $tmp;
    return $res;
}
method intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13395	13525	
==>rn call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13389	13519	
==>rn call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd, 1, -1 ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	783	893	
==>l HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclas <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	783	893	
==>l HTTP::Server::Simple running.
      </p>

    <p><i>(If you're seeing this page, it means you haven't subclas <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3128	3232	
==>dir = $_ and last if -f catfile($_, 'syn', "S12.pod"); 
    };
    unless($syn_src_dir && -f catfile($syn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5959	6058	
==>$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "open ".$var.", '>', ".$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2949	3067	
==>d $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Co <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2949	3067	
==>d $.pad;
    has Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8502	8627	
==>ion user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8502	8627	
==>ion user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2359	2475	
==>d -e $pod ) {
        $file = $pod;
    }

    $self->author_from($file)   unless $self->author;
    $self->license_f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	976	1090	
==>ules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_met <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	976	1090	
==>ules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6154	6296	
==>=~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7152	7294	
==>=~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31819	31917	
==>le>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational opera <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32866	32964	
==>le>

I<TODO.  This method has not yet been implemented.>

This method is a generic relational opera <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1766	1863	
==>f C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<».. <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1766	1863	
==>f C<map> and C<grep>.

These will go when we can define own metaoperators (like C<[...]> or C<».. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22794	22918	
==>f;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19215	19339	
==>f;
      return $S->object(logical => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8502	8606	
==>users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8502	8606	
==>users{$oldnick}<channels> {
        for %!users{$oldnick}<channels>.keys {
          %!channels{$_}<users <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5574	5671	
==>sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5632	5729	
==>sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim(0, $desc, $t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11795	11925	
==>::Node - This stores an ordered list of all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11795	11925	
==>::Node - This stores an ordered list of all this
Document's Node objects that do not have parent Nodes of their own; it is a
sub-se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1157	1300	
==>::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1157	1300	
==>::p5_make_thunk( sub () \{ { ./gen(.value) } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILCode   { 
                my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	808	944	
==>, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	808	944	
==>, tilde
    "Auml"     => 'Ä',  # capital A, dieresis or umlaut mark
    "Ccedil"   => 'Ç',  # capital C, cedilla
    "ETH"      => 'Ð <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1688	1829	
==>($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1688	1829	
==>($name);
    }
    
    method clear () {
        %!params.delete($_) for %!params.keys;
    }
    
    method keywords () {
        return @! <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10188	10315	
==>1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10188	10315	
==>1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return stringify($s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9480	9585	
==>string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F] <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9480	9585	
==>string;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F] <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1235	1396	
==>[\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head2 prefix

=head2 na <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1351	1486	
==>d = Cwd::cwd();
    my $sym = "$caller\::AUTOLOAD";

    $sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3812	3908	
==>METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule ob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3996	4092	
==>METHODS

=head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule ob <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	183	286	
==>tate is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	183	286	
==>tate is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.state?) { } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	534	636	
==>ations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg - <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	534	636	
==>ations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    for @arg - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1637	1757	
==>available',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1637	1757	
==>available',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient S <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1471	1571	
==>hod union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1471	1571	
==>hod union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{
    # TO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2150	2285	
==>ash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2150	2285	
==>ash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7492	7591	
==>lize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7492	7591	
==>lize $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12089	12211	
==>);
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12089	12211	
==>);
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dtstart, before => $dtend );
    #  [2005-07-03T00:00 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6772	6905	
==>pture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6772	6905	
==>pture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36492	36586	
==>thod takes a (machine-readable) Message object as its positional
parameter $message and returns <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36492	36586	
==>thod takes a (machine-readable) Message object as its positional
parameter $message and returns <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16194	16296	
==>'s an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) | <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2603	2705	
==>'s an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) | <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4053	4190	
==>nless $test;
        #   print "ok $num\n";
        if( $self->{saw_lone_not} && 
            ($self->{lone_not_line} == $self->{line} - 1 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4879	5013	
==>then
            # ignore it and go to the next one
            next if $self->has_method($method_name);
            # otherwise ... ad <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3548	3669	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3741	3862	
==>$1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::escaped_char'} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40629	40729	
==>NESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40629	40729	
==>NESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22284	22388	
==>s which
have the same method names as you or each other, or having multiple search
directories in your pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22284	22388	
==>s which
have the same method names as you or each other, or having multiple search
directories in your pa <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12685	12801	
==>, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. It then smart-matches ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12743	12859	
==>, Bool :$todo, Str :$depends) returns Bool`

This function takes a block of code and runs it. It then smart-matches ( <==
2	/Users/nnunley/pugs/util/importgraph.pl	2291	2384	
==>.Haskell', 'Pugs.Compile.Pugs',
  qr/^Pugs\.CodeGen\.\w+$/);

my ($nodes, $edges) = (0, 0);
wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8328	8451	
==>t<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8328	8451	
==>t<object>;
        debug "Changed nick to \"$.curnick\".";
      }

      my $oldnick = normalize $event<from_nick>;
      m <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	395	490	
==>sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitesp <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	395	490	
==>sub event_type {
    "ignorable_whitespace"
}

=head1 NAME

Perldoc::DOM::WS - ignorable whitesp <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	542	671	
==>::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($s <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	609	738	
==>::Gregorian.new( :year($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	462	583	
==>ccept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "d <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	462	583	
==>ccept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	879	1055	
==>> $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	879	1055	
==>> $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11213	11305	
==>eturns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11213	11305	
==>eturns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=item B<add_children ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4578	4716	
==>/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4578	4716	
==>/)[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	375	486	
==>->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ( $0 =~ / <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	406	505	
==>->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admin;

    if ($0 =~ / <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	485	666	
==>);
        },
        methods => {
            hash_fetch => sub {
                my $self = shift;
                $self->get_value('%:slots');
            },
            hash_stor <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15179	15283	
==>s_dst;
}

multi sub localtime(Num $when = time) returns Time::Local
        is primitive is builtin is sa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25228	25327	
==>pository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechsc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25228	25327	
==>pository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=head1 AUTHOR

Ingo Blechsc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2315	2419	
==>ct { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_ope <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2315	2419	
==>ct { return $.set.start }
method end ()           returns Object { return $.set.end }
method start_is_ope <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2367	2483	
==>nes begin with:



    use Perl-6.0;

    class Foo;



and we can stepwise replace p5 ones with p6 ones _without_ ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2279	2390	
==>nes begin with:

    use Perl-6.0;
    class Foo;

and we can stepwise replace p5 ones with p6 ones _without_ ch <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	479	592	
==>licates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archn <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	479	592	
==>licates
        @*INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archn <==
2	/Users/nnunley/pugs/util/build_pugs.pl	495	604	
==>pugs exectuable, optionally inlining
precompiled modules in a second pass.

Primary configuration settings are <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1019	1124	
==>e methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1019	1124	
==>e methods in a Grammar:

    package MyGrammar;
    use Pugs::Compiler::Rule;
    use base 'Pugs::Grammar: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29384	29532	
==>(
    # method label
        symbol->new('dispatcher'),
    # method body
        method->new(
            $::ENV,
            method::signature->new <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15480	15591	
==>U32 lastcloseparen;     /* last paren matched */

Other things the world messes with:

  I32 refcnt;

What invar <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1140	1283	
==>s to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" un <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1140	1283	
==>s to non-HTTP requests');
            return;
        }
    
        my $domain = ./:host($request, $uri);
        $domain = "$domain\.local" un <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2811	2920	
==>($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read respon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2811	2920	
==>($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read respon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	683	813	
==>+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	683	813	
==>+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14275	14410	
==>]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14269	14404	
==>]      \$pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_s <==
2	/Users/nnunley/pugs/util/testgraph.pl	5	104	
==>r/bin/perl

use warnings;
use strict;

use Best 0.05 [ [qw/YAML::Syck YAML/], qw/Dump Load/ ];
use G <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16330	16416	
==>+(rm(Re,B0,_,F0,_,E0,_)).

rm(modify(M),F0,F0,B0,B0,E0,E1) :- 
  set_modifiers(E0,M,E1) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18776	18880	
==>CKAGES - Lines beginning with a C<package statement and continuing
        until the next C<package> or C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18776	18880	
==>CKAGES - Lines beginning with a C<package statement and continuing
        until the next C<package> or C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19760	19862	
==>d off.  Fixed.

=back

=head2 0.02 -- July 1, 2004

=over 4

=item Better Abstracting

The object() met <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	67	180	
==>scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	67	180	
==>scope-local state; i.e. state that
gets allocated anew whenever you enter a new rule or parenthesized
group.  This <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2517	2647	
==>meSplit[0];
  if ( $syncat eq "infix" )
  {
    $token{syncat} = PGE_OPTABLE_INFIX;
    $token{arity} = 2;
  }
  elsif ( $syncat eq <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2879	2974	
==>remove_subscription (Class::Events::Subscription::Named $subscription) {
            %.subscript <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8237	8465	
==>et.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    meth <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8237	8465	
==>et.shift // yield;
                        my $pair = $count => $x;
                        yield $pair;
                        $count++;
                },
                celems => sub { $ret.elems },
        )
    }

    meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21281	21383	
==>r' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44188	44290	
==>r' => $e->get('$self:')->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10081	10202	
==>ew( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10081	10202	
==>ew( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1.map:{ $self <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10773	10868	
==>lued field. If the $value is undefined or not
given, then that header field will remain unchange <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10773	10868	
==>lued field. If the $value is undefined or not
given, then that header field will remain unchange <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24430	24532	
==>h () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28982	29084	
==>h () returns Hash>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2480	2617	
==>ached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2697	2834	
==>ached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1964	2062	
==>params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1964	2062	
==>params{$name} = $val); }
}

=pod

=head1 NAME

HTTP::Query - Class designed to allow easy manipulat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3842	3938	
==>rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4026	4122	
==>rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an exception o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	565	692	
==>> $c);
  });

  ### BACKSLASHED THINGS

  $self->add_handler('\\' => sub {
    my ($S, $cc) = @_;
    my $c = '\\';

    if (${& <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6566	6689	
==>t; ($varlist)$init; use strict;";
    }
    else { die "bug $sn" }
    my $body = DOWN($pStmts);
    "(do{$decl\n$body})";
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1258	1368	
==>:Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1258	1368	
==>:Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<param> := (<Parameters>) <ws>? ]?
    { use v5;
      if($<param <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3410	3574	
==>warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4259	4423	
==>warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    re <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	24	122	
==>--------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, u <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	24	122	
==>--------------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, u <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3225	3332	
==>is should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:pe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3225	3332	
==>is should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1086	1191	
==>when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1086	1191	
==>when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./gen( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25416	25517	
==>* [In fact, we now use regmust in many cases to locate where the search
 * starts in the string, so if <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8572	8699	
==>);
      }
      handler = SvREFCNT_inc(POPs); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18945	19052	
==>e wire.

When setting the referrer, this method removes the fragment from the
given URI if it is present, as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18945	19052	
==>e wire.

When setting the referrer, this method removes the fragment from the
given URI if it is present, as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	115	365	
==>KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is read <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	115	365	
==>KeyedText-(1.72.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
my Str $EMPTY_STR is read <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3700	3860	
==>++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3700	3860	
==>++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires:
#   HTTP::Headers::Util (done)
#   C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8717	8896	
==>ess ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            nex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8717	8896	
==>ess ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            nex <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16503	16603	
==>ze => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16503	16603	
==>ze => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $b <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25611	25707	
==>w many characters back from
 * where regmust matched is the earliest possible start of the match. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36815	36932	
==>ndef.  This method could be
considered to implement the 'main' functionality of Locale::KeyedText.

Some example usage <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36815	36932	
==>ndef.  This method could be
considered to implement the 'main' functionality of Locale::KeyedText.

Some example usage <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3124	3224	
==>n \"$filename\" for writing: $!\n";
  print $fh $html or
    die "Couldn't write to \"$filename\": $! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4073	4211	
==>{bare_block} ) . "\n }";
        }
        return  "{\n" . _emit( $n->{bare_block} ) . "\n }\n";
    }

    if ( $n->{op1} eq 'call' ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1260	1375	
==>ta data?
    $obj->mk_accessors( keys %$struct );
    $obj->$_( $struct->{$_} ) for keys %$struct;
    
    ### if i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2754	2852	
==>cs' => \$no_designdocs,
        'help' => \&usage) || usage(1);
@t_dirs = split(/,/,join(',',@t_dir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2362	2470	
==>losure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2362	2470	
==>losure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new().union( $self );
    return $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12658	12756	
==>finition of each() now.  The zip function needs
to build tuples of the "across" values.  Also, it m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5217	5326	
==>em as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5217	5326	
==>em as people who are on
    # $chan:
    %channels{$chan}<users>{$_}++ for @nicks;
    %users{$_}<channels>{$c <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7317	7441	
==>pends = ', Win32 -any' unless $ghc_version =~ /^6.4(?:.0)?$/;
    }
    else {
        $depends = ', unix -any';
    }

    i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1765	1859	
==>lf->compile(@_);
	warn "compiled: $compiled";
	my $safe = $self->annotate($compiled);

	$self-> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3089	3273	
==>ns Array

 multi sub Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplac <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	224	321	
==>s28.vlinux.de/cgi-bin/pugs-smokeserv.pl"),
  "help"        => \&usage,
  "compress|c!" => \(my $co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1486	1602	
==>mc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1486	1602	
==>mc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3587	3770	
==>') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./ge <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3587	3770	
==>') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4925	5114	
==>et-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Versi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4925	5114	
==>et-Cookie headers have different versions themselves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Versi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7404	7519	
==>'  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7416	7531	
==>'  ';
    local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - no <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14662	14775	
==>, that is, it does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14662	14775	
==>, that is, it does not include the start or end values.

- `new( start => 1.0 )`

Given a start value, creates a s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2941	3038	
==>orig} ||= do {
		my $struct = $node->struct_equiv;
		my $type = Scalar::Util::blessed($struct) ? $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19096	19190	
==>:Basic::eval ( Str $code = CALLER::<$_>, Grammar :$lang = CALLER::<$?PARSER>)
{
    Pugs::Inter <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5191	5321	
==>t";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5191	5321	
==>t";
    my $tmp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11117	11224	
==>\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11117	11224	
==>\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was seen <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2864	2963	
==>PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2864	2963	
==>PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26302	26405	
==>can be anything at
all.  Note that while the Hash itself is copied on input and output, any
variable val <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26302	26405	
==>can be anything at
all.  Note that while the Hash itself is copied on input and output, any
variable val <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4246	4377	
==>ta( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	5095	5226	
==>ta( $_[0], '$<perl5>' );
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementation <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2151	2310	
==>hod start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    me <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2151	2310	
==>hod start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    method elems         () { &{$.celems}() }
    me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2614	2769	
==>[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2514	2664	
==>[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	639	739	
==>nciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	639	739	
==>nciphered and deciphered the same way.  RC4 and Arcfour are used in 
standards such as SSH, SSL and T <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	217	340	
==>t, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	217	340	
==>t, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12311	12453	
==>} }, [];
}

sub leave_scope {
    my $self = shift;
    pop @{ $self->{scopes} };
}

package Runtime;

sub new {
    my $class = shift;

    bl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	139	244	
==>GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	197	302	
==>GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_failed = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	237	347	
==>XT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodb <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	237	347	
==>XT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodb <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5251	5345	
==>is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5251	5345	
==>is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICENCE AND COPYRIGHT of L<Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1014	1127	
==>e haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 1 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1014	1127	
==>e haven't seen traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 1 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5767	5869	
==>_meta('Ref')->new('$.referred',@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$.key' => $_[0], <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20633	20730	
==>.

Every bit of the default process described above is overridable by
various methods.

=head1 DIS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20633	20730	
==>.

Every bit of the default process described above is overridable by
various methods.

=head1 DIS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4210	4335	
==>$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4198	4323	
==>$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19203	19319	
==>P2 = reps[$P1]
    savereps[$P1] = $P2
    goto reps_1
  reps_2:
    $I0 = pad["subpats"]
    exp0 = self[0]
    exp0 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4364	4500	
==>> $name,
        rep  => $rep,
        type => $type,
        pairs => $pairs,
        fields => \@fields,
        field_type => \%field_ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4263	4362	
==>rently only has one function, here it is.

=over 4

=item B<runtests>

  my $allok = runtests(@test_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5629	5730	
==>skip => $i++) err last;
            $mess ~= "\n\t{$caller.package}::{$caller.subname}() at {$caller.f <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5823	5912	
==>token($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule {      def_rule($X::cap->[ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	284	390	
==>he first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	284	390	
==>he first place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests) <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	7	104	
==>Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) re <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	7	104	
==>Perldoc::DOM::Element is Perldoc::DOM::Node;

has $.name;

has %.attr;

method dom_attr($self:) re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5241	5414	
==>th >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            } <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5241	5414	
==>th >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shift(@tail));
            } <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3602	3719	
==>01_dur ) {
    #$self + duration($iso8601_dur);
#}

# still an outstanding bug in overloaded -
#multi method infix:<-> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28264	28368	
==>t do a higher order app with uneq types";

# a helper that returns the stringified type of an AST
sub t { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7007	7136	
==>need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7007	7136	
==>need to do the CHECK_BOUNDARY bit
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1445	1559	
==>ail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'meta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1445	1559	
==>ail  => $remainder,
        capture => { metasyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'meta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	677	766	
==>mar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filena <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	677	766	
==>mar::emit($match->{capture});

# Write down
my $output_file = IO::File->new($output_filena <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	558	709	
==>turns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Bui <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	558	709	
==>turns Str
    {
        return '';
    }

    method footer returns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Bui <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2537	2649	
==>) }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2537	2649	
==>) }
))->code;
*VariableDeclaration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2452	2564	
==>}

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2452	2564	
==>}

    return 0;
}

# Generate the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7134	7289	
==>kie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7134	7289	
==>kie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method extract_cookies ($response) {
        ...
    }
    
    # XXX lo <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6536	6652	
==>uest fails, then the
status code and message are printed on STDERR.  The return value is
the HTTP response code.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6536	6652	
==>uest fails, then the
status code and message are printed on STDERR.  The return value is
the HTTP response code.

=it <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	130	304	
==>::WriteAll;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

sub WriteAll {
    my $self = shift;
    my %args = (
        meta => 1,
        sign => 0,
        i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7911	8041	
==>\s+is rw//;
	    $h{'type'}=$1 if s/\A(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4927	5054	
==>_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5120	5247	
==>_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\!(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'negat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6019	6119	
==>ient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6019	6119	
==>ient Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13505	13598	
==>the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13505	13598	
==>the same
character as "\" (\x{005C} - backslash).

=head2 C<$set1.symmetric_difference($set2)> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1069	1187	
==>eadable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1069	1187	
==>eadable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variab <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9861	9960	
==>gleton_method',
 '... still got the right return value from $iFoo singleton method');

## make subcl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24248	24362	
==>[^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20669	20783	
==>[^|]) }xgcs or return;
    my $c = $1;

    push @{ $S->{next} }, qw< ifthen_atom >;
    return $S->$c if $S->can($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	691	1105	
==>every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	691	1105	
==>every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # module Rosetta::Validator

###########################################################################
###########################################################################

=pod

=encoding utf8

=h <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1964	2073	
==>ad1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<F <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1964	2073	
==>ad1 SYNOPSIS

    use FindBin;
    use lib "$FindBin::Bin/../lib";

=head1 DESCRIPTION

Perl 6 port of the C<F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	367	489	
==>ders
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connectio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	367	489	
==>ders
#    - Request-Headers
#    - Response-Headers
#    - Entity-Headers

my @general_headers = <
 Cache-Control Connectio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	735	835	
==>ell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	735	835	
==>ell module:
    my Locale::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $d <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1016	1121	
==>dd If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1016	1121	
==>dd If-Modified-Since: header
# TODO: Handle 30x Not Modified response
sub mirror ($url, $file) is export
{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2614	2743	
==>urn $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2614	2743	
==>urn $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        return unless d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3600	3785	
==>N( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3600	3785	
==>N( $ng.r('right') )"
                );
                $str;
            }
            
            when ::Perl::Compiler::PIL::PILBind   {
                my $str = ./gen(.right, $ng.f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2508	2618	
==>ume is not just A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $vo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2508	2618	
==>ume is not just A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $vo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	510	609	
==>ment_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	716	815	
==>ment_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{capture <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	122	252	
==>lid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    m <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	122	252	
==>lid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3604	3700	
==>---------------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5506	5602	
==>---------------------

# Utility to test that "No method found" error is raised

sub fails_ok (&$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22611	22721	
==>{
    TREE = pop STACK;
  }

After the tree has been created, this key is deleted; this gives the
code a way to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1422	1527	
==>($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "use Perl6::Slurp;\n" <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10623	10718	
==>exts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10681	10776	
==>exts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6289	6394	
==>def.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6289	6394	
==>def.
    # The workaround is not necessary if $! is respecced to ENV scope.
    my $message_cpy = $message <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5561	5665	
==>complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5561	5665	
==>complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6789	6901	
==>rint postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6789	6901	
==>rint postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1463	1568	
==>ends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is expo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1521	1626	
==>ends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is expo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3622	3738	
==>>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3622	3738	
==>>

=item C<delete_param> -> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	303	445	
==>|| ', @_ ) . ' )';
}

sub concat {    
    return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    retu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10393	10507	
==>(
			type::operator::nary->new(list => $a),
			$a,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::varia <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11410	11505	
==>ludes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.incl <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11410	11505	
==>ludes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented unicode versions of C<.incl <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12636	12775	
==>ort for =$fh
class IO does Iter {
    method shift   () is primitive { self.readline() }
    method next    () is primitive { self.shift() } <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4016	4130	
==>tion( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub gt {
  my ( $matchObj ) = @_
  my ($matchObj, $target, <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2734	2828	
==>groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.com <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2734	2828	
==>groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane.org/gmane.com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1402	1576	
==>a::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1402	1576	
==>a::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_aoh( 'n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4717	4821	
==>die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4939	5043	
==>die "Cannot open \$F: \$!"; binmode(F, ':crlf'); unpack('%32N*',<F>)
== 0x$sum or die "Checksum failed fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1135	1242	
==>ernation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1135	1242	
==>ernation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	320	438	
==>nv {
    my $class = shift;
    Blondie::Env->new(
        $class->symbols,
    )
}

__PACKAGE__;

__END__

=pod

=head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	408	519	
==>->build_dir .'*' )   and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19121	19234	
==>hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19121	19234	
==>hash_to_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10043	10144	
==>AME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10043	10144	
==>AME

Perl6::Value::List - implementation of Perl6 'List' class in Perl6

= SYNOPSIS

  my $list = Perl <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5814	5903	
==>");
$template->param(files => $total_files);
$template->param(links => $total_links);
prin <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	863	1054	
==>node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { s <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	863	1054	
==>node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7492	7623	
==>erface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandator <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7492	7623	
==>erface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandator <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	74	197	
==>::Constants;
use JIB::Dependency;

use YAML                    qw[LoadFile];
use Params::Check           qw[check];
use Log: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4978	5088	
==>irlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle taintin <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4978	5088	
==>irlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION: How does Perl6 handle taintin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22020	22113	
==>l name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22020	22113	
==>l name to the C<target> parameter.

=head2 C<$bot.invite(channel =E<gt> "#chan", target =E<gt> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11835	12061	
==>> 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11835	12061	
==>> 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18874	18998	
==>rtion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15295	15419	
==>rtion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2813	2923	
==>hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2813	2923	
==>hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21089	21179	
==>QL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21089	21179	
==>QL, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20222	20323	
==>adding a language file to the program package.  No
recompilation necessary.  This is something that en <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20222	20323	
==>adding a language file to the program package.  No
recompilation necessary.  This is something that en <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4681	4781	
==>g, the match object returns the stringified version
of the result object (usually the entire match st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4681	4781	
==>g, the match object returns the stringified version
of the result object (usually the entire match st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1913	2042	
==>byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1913	2042	
==>byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18819	18916	
==>.
rm_repeat_max(_Re,_,F0,F0,B0,B0,E0,E0).

rm_repeat_max_ng(_Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22289	22375	
==>har_eq(Ca,Cb) :-
  char_type(Ca,to_lower(C)), char_type(Cb,to_lower(C)).

charset_membe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	928	1061	
==>install = _recurse_resolve( list_dependencies( $found, 1 ) );

    print "Installing:\n";
    for my $obj (@to_install) {
        prin <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14115	14215	
==>ne, \%test);

Checks if the $line is a test report (ie. 'ok/not ok').  Reports the
result back in C<% <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	36618	36718	
==>d Relation is identical to the
invocant.  Another trivial case is where any any source relation has z <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41167	41267	
==>d Relation is identical to the
invocant.  Another trivial case is where any any source relation has z <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3484	3707	
==>rk('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3484	3707	
==>rk('right')) ~ ./gen(.left, $ng.fork('left'));
                $ng.ret(
                    $ng.r('left') ~ "->ASSIGN( $ng.r('right') )"
                );
                $str;
            }
            
            when :: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12862	13025	
==>ed: ###\$expanded### \\n\"; \n" .
                "    require Runtime::Perl5::RuleInit;\n".
                "    my \$final_ast = \n" .
                "        Ru <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	80	188	
==>bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucke <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	80	188	
==>bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucke <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8867	8999	
==>create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8867	8999	
==>create the 'person' table.
    # Like: CREATE TABLE person (
    #           id INTEGER(9) NOT NULL,
    #           name VARCHAR(100 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4442	4548	
==>ad2 &{}

When used as a code reference, the match object returns the I<result>
object; this is normally the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4442	4548	
==>ad2 &{}

When used as a code reference, the match object returns the I<result>
object; this is normally the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	0	93	
==>package Pugs::Compiler::Regex;

# Version in Pugs::Compiler::Rule
# Documentation in the __END <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	0	93	
==>package Pugs::Compiler::Regex;

# Version in Pugs::Compiler::Rule
# Documentation in the __END <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	789	891	
==>rl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	789	891	
==>rl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PIL <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3735	3888	
==>r 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3735	3888	
==>r 
    # trait at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	806	912	
==>in ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	707	813	
==>in ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub cc_optimize_flags {
    my $self = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4475	4576	
==>dd_handler('\R' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\r", ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	262	370	
==>ment $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a numbe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1120	1228	
==>ment $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a numbe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	518	620	
==>y_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	518	620	
==>y_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5044	5160	
==>lose MAKEFILE  or die $!;

    1;
}

sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	19423	19536	
==>per second.
sub _print_ml_less {
    if ( $Last_ML_Print != time ) {
        _print_ml(@_);
        $Last_ML_Print <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2494	2617	
==>rd output of the script
without altering the behavior otherwise.  The F<prove> utility's C<-v>
flag will set this.

=item C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25111	25234	
==>s => $rx->{flags}[-1],
      family => 'assertion',
      type => 'eval',
      data => $code,
      zerolen => 1,
    }, $c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16866	16968	
==>f that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16866	16968	
==>f that new Node) that gets stored in the Child Nodes attribute (that
attribute defaults to empty if the <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7236	7333	
==>end::C::Builtins->prelude, @{$self->{defs}});
}

sub reduce_app {
	my $self = shift;
	my $app = sh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2754	2869	
==>size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2754	2869	
==>size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: $span) {
    # is it a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	294	397	
==>> [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

me <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	294	397	
==>> [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns bool { return ! @.spans }

me <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15673	15777	
==>ody.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19150	19254	
==>ody.union( $other!body ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15923	16023	
==>AP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autriju <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15981	16081	
==>AP protocol can be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autriju <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35976	36076	
==>.. reffN
(C<\1>, C<\2>, etc. with C</i> on)

=head2 ifmatch

Family: assertion

Types: ifmatch (C<(?= <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6504	6602	
==>s) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6504	6602	
==>s) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_directories, $path_dir <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10464	10574	
==>ed.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10464	10574	
==>ed.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $seen = set(@t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	882	996	
==>curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	882	996	
==>curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curircname;
  has Int   $.last_traffic <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1141	1246	
==>te ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1141	1246	
==>te ops using closures (instead of coro)
# TODO - reuse map() to write ops

# Things that will be solved by <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3290	3422	
==>&&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3278	3410	
==>&&\n$ws" if $sigspace && $_[0]->{ws2} ne '';
    #print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4304	4407	
==>fore booting.
  --lib6=$lib6
    --lib6 will be copied to the CD, too.
  --initrd-gz=$initrd_gz
    mkli <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6537	6652	
==>..}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either by declaring C<$data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6537	6652	
==>..}>

Performs the actual ciphering.  This method should operate on a copy of the 
data, either by declaring C<$data <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6378	6542	
==>s )
            if $unlink_this;

        ### link the files
        return unless $self->link_files( package => $inst_pkg );

    }

    ### update the available fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2848	2956	
==>>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2848	2956	
==>>
    { use v5; return $<VariableDeclaration>() . $<ProductionRule>() }
    | <Return>
    { use v5; return $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	327	579	
==>t values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell- <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	327	579	
==>t values used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	782	920	
==>sg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	782	920	
==>sg) { say "> $msg" }

class Net::IRC {
  has Bool  $.connected;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  h <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1622	1725	
==>od all_attributes($self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.ma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10708	10803	
==>tring') {}
    elsif($rep eq 'hash') {
	$code .= " my \$self=\$_[0];my($vars)=\@{\$self}{qw($key <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	377	478	
==>::Dump($_[0]);
}

# dump data as xml
sub xml {
	my $x = new XML::Generator(":pretty");
	return $x->ast <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13461	13557	
==><Expression> <']'>
    | <MemberExpression> <'.'> <Identifier>
    | <'new'> <?ws_required> <Memb <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	730	843	
==>ess($guess, $target, $f, $fprime);

        say "{$count++}: $guess" if $verbose;
    }
    return $guess;
}

=hea <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	777	878	
==>do it later.

=cut
###*** Value types - numeric

macro Clutter::int_size($n) {
  'subset  int'~$n~' of <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	23	128	
==>written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	23	128	
==>written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Grammar-0.0.1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1351	1449	
==>_equiv . " is duplicated, and has been alocated $symbol" if defined $symbol;

	my $result = $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18908	19005	
==>xt
would have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18908	19005	
==>xt
would have to know how to edit Perl files, this shouldn't be a problem
because Locale::KeyedTex <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5458	5612	
==>e,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Co <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5458	5612	
==>e,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method grep ( $array: Co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9873	10001	
==>{
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixe <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9873	10001	
==>{
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18751	18867	
==>rt of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18751	18867	
==>rt of a
     request.

     (1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	415	527	
==>, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	415	527	
==>, @param ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	887	984	
==>w( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	887	984	
==>w( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previous => sub {. <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	1109	1212	
==>y are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<l <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	1109	1212	
==>y are not present.

=back

=head1 SEE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

code by chromatic E<l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	507	615	
==>thod end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	507	615	
==>thod end_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9920	10053	
==>ELP

  my @dirs = map { "$initrd_mnt/$_" }
               "bin", "dev", "lib", "lib6", "tmp",
               "etc", "etc/terminfo", "e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8354	8453	
==>_pad( $param->val, my $placeholder = Blondie::TypeSafe::Type::Placeholder->new );

		my $rparam = $p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17429	17526	
==>->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* regcompp (pTHX_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2902	3005	
==>heck to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_che <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2902	3005	
==>heck to see if the
# .pmc file is fresh.  By default we use a 32-bit running checksum.
sub freshness_che <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	390	487	
==>= $parser_details;

	my $fh = open(catfile($dir, $file), :r);
	unless ($fh) {
		XML::SAX.do_warn(" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2451	2548	
==>6-pugs> module is a front-end to the experimental Perl6-to-Perl5 compiler.

The current state of t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5503	5600	
==>emoved_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5503	5600	
==>emoved_child;
}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2232	2350	
==>cutable objects
    Sub         Perl subroutine
    Method      Perl method
    Submethod   Perl subroutine acting like <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1306	1402	
==>ur is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1306	1402	
==>ur is largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6503	6615	
==>ge Pugs::Grammar::Rule;

      $matcher = rule ( alternation ( literal ( 'a' ), .... );

  }



Match objects (Pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6285	6393	
==>ge Pugs::Grammar::Rule;
      $matcher = rule ( alternation ( literal ( 'a' ), .... );
  }

Match objects (Pu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	780	883	
==>{ ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	780	883	
==>{ ... }

=pod

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt>

=head1 COPYRIGHT

Copyri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2764	2858	
==>e = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2764	2858	
==>e = Pugs::Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	952	1045	
==>low Content-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Ran <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	952	1045	
==>low Content-Encoding Content-Language Content-Length Content-Location
 Content-MD5 Content-Ran <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	312	424	
==>($self->val));
	}
}

{
	package Blondie::List;

	sub new {
	my $class = shift;
		bless [@_], $class;
	}

	sub str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20311	20417	
==>t>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently connected.

Note t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20311	20417	
==>t>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently connected.

Note t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19049	19165	
==>en->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20407	20523	
==>en->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $tree <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21232	21329	
==>feature is that it provides a
common API for access to those databases, each of which takes a diff <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21232	21329	
==>feature is that it provides a
common API for access to those databases, each of which takes a diff <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	504	647	
==>ery.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	504	647	
==>ery.new() };
    
    has @!keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3189	3284	
==>ah -- mixins are much better

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3076	3169	
==>ah -- mixins are much better
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1681	1829	
==>} } }
    ;

signature:
        #empty  
        { $_[0]->{out}= { signature => [] } }
    |   signature_term 
        { $_[0]->{out}= { signature => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9163	9336	
==>t ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12640	12813	
==>t ::= &difference;

###########################################################################

method semidifference (Relation $other!) returns Relation {
    return $?SELF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4986	5091	
==>n of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4986	5091	
==>n of the match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<l <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6873	6969	
==>e> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6873	6969	
==>e> (header, list, item, etc.). 

=over 4

=item I<start_element ('header', $size)>

This event is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	882	978	
==>on 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	882	978	
==>on 0.210.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This docum <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2896	2999	
==>elf: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEB <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2896	2999	
==>elf: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEB <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1290	1635	
==>ted PIL2 ':'";
                my $value = parse( <<>>, 'item', <<>>, @_ );
                [ $key, $value ];
            },
        item =>  sub (@_ is rw) {
                if @_[0] eq '{' { 
                    return parse( << { >>, 'hash', << } >>, @_ ) 
                };
                if @_[0] eq '[' { 
                    return parse <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1327	1433	
==>ng
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and the text they said <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1327	1433	
==>ng
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and the text they said <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3615	3801	
==>=> \$pkg,
            allow       => ISA_JIB_PACKAGE,
        },
        force => {
            store       => \$force,
            default     => undef
        }
    };
    
    check($t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8451	8627	
==>$tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub bef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8451	8627	
==>$tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail => $_[0],
               }
    };
};

sub bef <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	842	966	
==>anta.tmp';

sub Usage {
   print <<'GROK';
usage: perl tsanta.pl
   or: perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GR <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1975	2094	
==>( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a referen <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3567	3686	
==>( $_[0] ) ) {
        # The user used ->feature like ->features by passing in the second
        # argument as a referen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22522	22649	
==>b new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23024	23151	
==>b new {
    my ($class, $rx, $dir, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      f <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16410	16510	
==>$other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!headi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19887	19987	
==>$other!) returns Relation {
    return Relation.new(
        heading => $!heading.union( $other!headi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1632	1730	
==>s Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::No <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1632	1730	
==>s Perl::Compiler::PIL::Node::X0::{$constructor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::No <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8973	9103	
==>1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-z <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8973	9103	
==>1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-z <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	95	208	
==>ler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	95	208	
==>ler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Internals';

    method generate <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	974	1089	
==>Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniq <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	974	1089	
==>Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniq <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2266	2365	
==>will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2266	2365	
==>will always succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3770	3890	
==>ame as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3782	3902	
==>ame as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        the value $x in { return { a => $x <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5196	5408	
==>tinue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5196	5408	
==>tinue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) }),
                           $new_continue);
            }
        }
    }

    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	753	852	
==>piler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	753	852	
==>piler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/util/package-osx.pl	10829	10942	
==>` !~ /^no / and \$file =~ /\(?:parrot\).*\\.\(?:dylib|3|info\)\$/ \) \{
                print "Not removing \$file <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14630	14731	
==>> 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14630	14731	
==>> 2.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8890	8996	
==>a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$old <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8890	8996	
==>a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$old <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8131	8227	
==>and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8131	8227	
==>and %channels.
  %handler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4678	4814	
==>set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4678	4814	
==>set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1688	1809	
==>$start_index->isa('num')) &&
     (blessed($end_index) && $end_index->isa('num')))    
        || confess "Indecies must b <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15372	15462	
==>Expression>
    | <ShiftExpression> <'>>>'> <AdditiveExpression>
}
rule RelationalExpressio <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2703	2881	
==>rt ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2703	2881	
==>rt ) && defined( $end ) {
            $.span = Span::Int.new( :start($start), 
                                    :end($end), 
                                    :density($densi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18594	18717	
==>s->{skip_reason} = $detail->{reason}
              unless defined $totals->{skip_reason};
            $totals->{skip_reason} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18652	18768	
==>he link that the user followed to the current
     page.  Most browsers pass this information as part of a
     reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18652	18768	
==>he link that the user followed to the current
     page.  Most browsers pass this information as part of a
     reque <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2767	2873	
==>{
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2767	2873	
==>{
    has $.value;
    method vtype () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	170	270	
==>This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's imposs <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	170	270	
==>This cipher doesn't even use the plaintext.  I suppose that means it's a 
perfect cipher--it's imposs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1542	1644	
==>g Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelud <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1749	1851	
==>g Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$prelud <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1747	1833	
==>oin(" ",\$m->from,map{\$_->from}\@\$m).\"/g;
	$expr =~ s/\@\+/\".join(" ",\$m->to,map{\ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	3014	3181	
==>y $new_alt;
        {   my $wanted = join '-',  package_prefix(   $pkg ),
                                    package_name(     $pkg );

            ### find all packag <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6370	6469	
==>me} cmp $b->{name} } (values %{ $syn_indexs->{E} }) ] ); 
    $template->param("apo", [ sort { $a->{ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7155	7264	
==>EST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7155	7264	
==>EST_METHOD = %*ENV<REQUEST_METHOD>;
        $CONTENT_TYPE   = %*ENV<CONTENT_TYPE>;    
        $CONTENT_LENGTH <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2287	2421	
==>ol_dir( $self->package );
        my $data     = $conf->archive_data;
        my $control  = $conf->archive_control;

        ### extra <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1445	1535	
==>llenges being faced were insufficiently documented,
# audreyt forked, creating re-override, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6972	7078	
==>_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6972	7078	
==>_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15225	15337	
==>queue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15225	15337	
==>queue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois => -> Str $target  { e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6308	6430	
==>t: ", Dumper( @expect );

        return($$t[0],$$t[1]);
    };

    # TODO - check for remaining whitespace!

    $p = Pug <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7800	7908	
==>e::instantiated', 'type') => sub { unify($_[0]{instance}, $_[1], @_[2, 3]) };
multi unify => ('type', 'type:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5693	5792	
==>g for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5693	5792	
==>g for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
class i <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3925	4023	
==>-------------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3925	4023	
==>-------------
## removing children

method remove_child_at ($self: Int $index) returns Tree {
    ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6397	6553	
==>back to the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6397	6553	
==>back to the start of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10008	10113	
==>cally generated and show how much a given backend (normal
    Haskell runcore, <a
    href="http://svn.ope <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26271	26365	
==>==============================================

use strict;
use warnings;
BEGIN {
    require L <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1865	1998	
==>($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1865	1998	
==>($_)) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	156	261	
==>ation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	156	261	
==>ation from \"$from\" to join channel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12318	12426	
==>e
to an array of them) and does something to them (and their children).

=head1 ERROR HANDLING

=head2 Determ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20838	20932	
==>seek seekdir select(both)
# send setsockopt shutdown slurp socket socketpair stat symlink
# sys <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2736	2853	
==>d assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            & <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2736	2853	
==>d assertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            & <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	830	964	
==>.32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	830	964	
==>.32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1408	1518	
==>apture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1408	1518	
==>apture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    retur <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	846	960	
==>sort keys %$Conf;
}

sub read {
    my($class, $filename) = @_;
    my $config_default    = 'config.yml';
    my $c <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	561	658	
==>6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Per <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	561	658	
==>6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to insert Per <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15486	15597	
==>_end( $object )`

Change the start or end value of the span.

These methods may raise a warning if the new value <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15486	15597	
==>_end( $object )`

Change the start or end value of the span.

These methods may raise a warning if the new value <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17969	18068	
==>is header should contain an Internet e-mail address for the human
user who controls the requesting u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17969	18068	
==>is header should contain an Internet e-mail address for the human
user who controls the requesting u <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4642	4836	
==>y @bins;
                print "Linking scripts/manpages...\n";
                for ( qx[find $my_bindir -type f] ) {
                    chomp; 
                    
                    ### link <==
2	/Users/nnunley/pugs/util/package-osx.pl	10088	10188	
==>iles are all files that will be removed. The last one passed in is the
# remover that will be install <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1016	1127	
==>];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1016	1127	
==>];
  # or
  class MyBot does Net::IRC::SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4545	4648	
==>imes, then `size` will be a duration.

- `intersects( $set )`

This method return a logical value.

- un <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4545	4648	
==>imes, then `size` will be a duration.

- `intersects( $set )`

This method return a logical value.

- un <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3661	3780	
==>ure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex closure { yada closure } <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3661	3780	
==>ure>
        | of <type>
        | returns <type>
}

regex traitparam { yada traitparam }
regex closure { yada closure } <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	723	835	
==>er {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	723	835	
==>er {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # modu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	753	856	
==>= any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int { <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	753	856	
==>= any(@items);
    }
    return ($self.size - $pre_size);
}

method remove($self: *@items) returns Int { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14279	14433	
==>tched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14279	14433	
==>tched_person = try {
                $fnh_get_person.execute();
            };
            if (my $e = $!) {
                show_error_likely_bad_input( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	42	201	
==>ammar1;
*{'perl5_regex'} = 
 
    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::consta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	42	200	
==>ammar1;
*{'perl5_regex'} = 

    sub { 
        my $rule = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   ruleop::consta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11073	11202	
==>s_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($ve <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11073	11202	
==>s_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = (gather {
            ./scan(sub ($ve <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	974	1076	
==>ame => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moa <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	974	1076	
==>ame => "title" });
 $node->add_daughter($title);

 # text nodes are different, like W3C DOM - don't moa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	457	548	
==>ource> property, and adds nothing else.

More specialised processing instructions may sub-cl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	457	548	
==>ource> property, and adds nothing else.

More specialised processing instructions may sub-cl <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	619	753	
==>my $self = shift;

    package MM;
    *init_INST = sub {
        my $hash = $self->{MM};
        my $mm = shift;
        $mm->SUPER::i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8799	8902	
==>es $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_);
  my $relative_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	889	1006	
==>$!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($! <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	889	1006	
==>$!members.defined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24201	24303	
==>ext does no compile time binding and
will support multiple languages or locales simultaneously at run t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24201	24303	
==>ext does no compile time binding and
will support multiple languages or locales simultaneously at run t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9982	10195	
==>equired";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $met <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11459	11672	
==>equired";
        
        return scalar grep { 
                        $wanted eq $_ 
                    } ref $meta->{provides} 
                        ? @ { $meta->{provides} } 
                        : $met <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2432	2551	
==>rn
    Block       Base class for all unnameable executable objects
    Bare        Basic Perl block
    Parametric  Bas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9795	9934	
==>person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9795	9934	
==>person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::Model::Node $ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3702	3843	
==>shift;
                @{$self->get_value('@:slots')} = (); # just ref = []?
            },

            'array_push' => sub { # @values -> () <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1652	1749	
==>dge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_ca <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1652	1749	
==>dge.
    $class->pmc_set_base(@args) and return;

    my ($module, $line) = (caller($class->pmc_ca <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21427	21542	
==>for example, your package could come with a set of user
messages, but another package or program which uses yours ma <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21427	21542	
==>for example, your package could come with a set of user
messages, but another package or program which uses yours ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7534	7680	
==>1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7522	7668	
==>1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2380	2479	
==>fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2380	2479	
==>fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	877	1017	
==>on       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	877	1017	
==>on       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtim <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8819	8916	
==>{
  package Regexp::Parser::quant;

  # Needed for regexp_try.pl, but... bad idea for development. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7522	7636	
==>d +w' '$file': $!");
        return;
    }
}    

=head2 JIB::Utils->_vcmp( VERSION, VERSION );

Normalizes the ver <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12423	12520	
==>termining Error

Use the errmsg() and errnum() methods to get the error information.

To see if an <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4534	4639	
==>= $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4534	4639	
==>= $set2.span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	0	90	
==>package Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	131	221	
==>package Grammar::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Pe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	97	245	
==>nue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	97	245	
==>nue',
        101 => 'Switching Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created', <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3449	3721	
==>ort symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3449	3721	
==>ort symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1833	1946	
==>and they are too slow using the basic 

# rule parser



sub code {

    return unless $_[0];

    ($extracted,$re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1760	1868	
==>and they are too slow using the basic 
# rule parser

sub code {
    return unless $_[0];
    ($extracted,$re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3166	3498	
==>return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3166	3498	
==>return;
}

###########################################################################

} # module Rosetta::Shell

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Shell -
Interactive c <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1896	2034	
==>p { $_ => '@' } qw(flat_array array iarray)),
      );

sub generate_attribute {
    my $self = shift;
    my $attr = shift;

    # $attr m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2151	2253	
==>ve.comE<gt> and chromatic.

=head1 Perl 6 Code

  class Test::Builder::TestPlan-0.2.1
  {
      has Int <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	293	423	
==>::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    my $file;
    m <==
2	/Users/nnunley/pugs/util/importgraph.pl	1114	1238	
==>e_name) {
    warn "couldn't find a module in $File::Find::name\n";
    return;
  }

  $modules{$module_name} = [\%imports, $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3617	4043	
==>ep ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3617	4043	
==>ep ) {
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                re <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13373	13469	
==>$.body),
	),
}

# identifiers pass the generic variables unchanged
ide: generic($$) = { generic_i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3074	3168	
==>$self._get_intersection( $self.complement_next, $self.complement_previous, $set.complement_next <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3074	3168	
==>$self._get_intersection( $self.complement_next, $self.complement_previous, $set.complement_next <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8330	8458	
==>nless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8523	8651	
==>nless $match;
        my $capture_block = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	492	605	
==>haracter> isnt called for all characters anyway,
#     so no great loss.
#
#  Other notes:
#   * <ws> is redefined <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4912	5023	
==>}
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4912	5023	
==>}
    }
}

method end () returns Object { return $.span.end }

method set_end ($self: Object $end ) {
    if $.s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1292	1393	
==>indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation --> <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1292	1393	
==>indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concatenation --> <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	193	290	
==>_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub rem <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	193	290	
==>_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub rem <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7426	7551	
==>ry (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7426	7551	
==>ry (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4684	4806	
==>e => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Chec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5336	5458	
==>e => \$from },
        to      => { required => 1, store => \$to }
    };

    check( $tmpl, \%hash ) or error(Params::Chec <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1350	1442	
==>. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmak <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1190	1282	
==>. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmak <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	121	214	
==>-------------------------------
## Mini Meta-Model with Self-Bootstrapping Roles
## ---------- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	144	237	
==>--------
## Mini Meta-Model with Self-Bootstrapping Roles
## --------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24938	25039	
==>elation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29490	29591	
==>elation's member tuples as an Int.

=item C<exists (Mapping(Str) of Any $tuple!) returns Bool>

This m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16901	16998	
==>n the Child Nodes attribute (that
attribute defaults to empty if the corresponding argument is und <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16901	16998	
==>n the Child Nodes attribute (that
attribute defaults to empty if the corresponding argument is und <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13189	13288	
==>n't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13189	13288	
==>n't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $.last <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	61	155	
==>arness;

require 5.00405;
use Test::Harness::Straps;
use Test::Harness::Assert;
use Exporter;
u <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	183	282	
==>le::Install::Base);

$VERSION = '0.04';

use strict 'vars';
use vars qw($VERSION);

sub Meta { shift <==
2	/Users/nnunley/pugs/util/package-osx.pl	4249	4346	
==>r/local/man/man3/Perl6::Bible::E04.3pm
        /usr/local/man/man3/Perl6::Bible::E05.3pm
        / <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5354	5452	
==>n?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5412	5510	
==>n?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2099	2214	
==>: *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delete_key($k) );
    }
    *@re <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1889	1983	
==>f
the development environment.

Recognition is due
  Salvador Fandino Garcia  for Language::Pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1601	1743	
==>} else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method cle <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1601	1743	
==>} else {
            $string ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method cle <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25440	25538	
==>f the other components concerned, provided that you include the source
code of the other components <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25440	25538	
==>f the other components concerned, provided that you include the source
code of the other components <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	97	211	
==>end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	97	211	
==>end_is_open;

=for TODO

    * open-set could be "start = object but true" and
      closed-set could be "start = o <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	385	491	
==>am ) {
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tm <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	385	491	
==>am ) {
    return $class.new( %param );
}

method from_datetime_and_duration ($class: %param ) {
    my %tm <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	943	1048	
==>dir},
        installman3dir     => $Config{installman3dir},
        installsiteman1dir => $Config{install <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	2160	2283	
==>s, 'REF' ) ) {
        $str .= '(' . pp_deps( $$deps ) . ')';
    } elsif ( UNIVERSAL::isa( $deps, 'HASH' ) ) {
        whil <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9847	9982	
==>turns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9847	9982	
==>turns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tail;
}
method finishstr(Cipher $self:) returns Str {
    ret <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27537	27651	
==>print Dumper($s);
	my $ret = swi_find_one(domatch($rem,$s,L),L);
	if ($ret) {
	    #print ">>$ret<<\n";
	    my $re <==
2	/Users/nnunley/pugs/util/package-osx.pl	4349	4446	
==>r/local/man/man3/Perl6::Bible::E06.3pm
        /usr/local/man/man3/Perl6::Bible::E07.3pm
        / <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5642	5746	
==>ject has undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5642	5746	
==>ject has undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of i <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2019	2139	
==>vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2019	2139	
==>vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes($othe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13315	13420	
==>ed parameter for all these  functions.

The `:depends("string")` parameter to most of the functions is a w <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13373	13478	
==>ed parameter for all these  functions.

The `:depends("string")` parameter to most of the functions is a w <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	909	1012	
==>ool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	909	1012	
==>ool::False unless @.spans;
    my $head = @.spans[0];
    return $head.start_is_closed;
}
method end_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17919	18019	
==>hey are
essentially all isolated from each other, even if more than one uses the
same Engine class to <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17919	18019	
==>hey are
essentially all isolated from each other, even if more than one uses the
same Engine class to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28714	28808	
==>at aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33266	33360	
==>at aren't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation at <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39718	39846	
==>ct->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14	114	
==>gexp engine, written in p5.  It the very beginnings of a
# proof of concept.  A feasibility and perfo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12873	12973	
==>d Hash::delete ( *@keys --> List )
 multi method Hash::delete (   $key --> Scalar ) is default

Delet <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	924	1019	
==>unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	924	1019	
==>unless we are the root)
    $self.parent()!set_height($self) unless $self.is_root();
}

my metho <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2638	2813	
==>ption') },        
        'status' => sub {
            return {
                passed      => _('$.passed'),
                description => _('$.description'),
            } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7061	7177	
==>);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7061	7177	
==>);
    my $chan = normalize $event<object>;

    if(normalize($kickee) eq normalize($curnick)) {
      $chans.remove( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5654	5758	
==>)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5654	5758	
==>)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num/16777216)~$dec2hex(128 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	849	954	
==>ompiled = Blondie::Backend::Foo->compile($program);
    my $result = Blondie::Backend::Foo->execute($compi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32091	32191	
==>nd whose body contains all of the tuples that are in either or both of the
invocant Relation and C<$o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36641	36741	
==>nd whose body contains all of the tuples that are in either or both of the
invocant Relation and C<$o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	474	592	
==>$self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	474	592	
==>$self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0];
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10739	10886	
==>\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while tryin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10739	10886	
==>\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while tryin <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5918	6036	
==>onal ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &conti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5918	6036	
==>onal ($p, :$minimal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &conti <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5727	5829	
==>st, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shif <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5727	5829	
==>st, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shif <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21976	22074	
==>n = length $failedtests->{$script}->{name};
        $max_namelen = $namelen if $namelen > $max_name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1207	1307	
==>riableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1207	1307	
==>riableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws>? [ , <ws>? $<par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16989	17094	
==>.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16989	17094	
==>.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14300	14421	
==>_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14300	14421	
==>_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $last_autoping = time;
        } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4559	4658	
==>tch string, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 "" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4559	4658	
==>tch string, but may be arbitrary
objects returned from the rule using a C<return> clause.

=head2 "" <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1185	1287	
==>ion of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1185	1287	
==>ion of Pugs.

=head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38273	38376	
==>(a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38273	38376	
==>(a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It returns a copy o <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	194	298	
==>sert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	194	298	
==>sert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method empty () {...}

=pod

C<concat($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6413	6533	
==>re returning.

- this can also be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experiment <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6207	6323	
==>re returning.
- this can also be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experiment <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2693	2816	
==>capture},
                abort   => ${$_[3]{match}[1]}->{abort},
        }, 'Pugs::Runtime::Match::Ratchet';
        ret <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8675	8778	
==>fier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p5_charset_items_opt(L0), p5_ch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10561	10676	
==>ogin_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10561	10676	
==>ogin_phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nic <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7143	7269	
==>n, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7143	7269	
==>n, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $span1.end;
        $start += $ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	927	1025	
==>instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "f <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	927	1025	
==>instead of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	327	424	
==>{
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::DuplicateFinder->n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	110	214	
==>) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	110	214	
==>) returns Array {...}

# Things we implement for them.
method _cipher(Array $data) returns Array {
    re <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	25	161	
==>d-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	25	161	
==>d-0.0.1;

sub getopts (Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21038	21161	
==>('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17459	17582	
==>('(?!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->ob <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9221	9335	
==>24 * $initrd_size },
    using  => sub { system "dd", "if=/dev/zero", "of=$initrd_img", "bs=1K", "count=$initrd_siz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4244	4358	
==>ubmethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4244	4358	
==>ubmethod BUILD (
            Rosetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_no <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	331	445	
==>+" returns 9
sub evaluate (Str $expr) returns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1964	2067	
==>ic lookup (lex only) or a dynamic lookup. 



This object-serialization format is shared across all runt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1890	1991	
==>ic lookup (lex only) or a dynamic lookup. 

This object-serialization format is shared across all runt <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1514	1618	
==>rticular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

Da <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1514	1618	
==>rticular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L<Cipher>

Da <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12898	12996	
==>ultiple field names then it is generally not
possible to tell which of the returned values belonged <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12898	12996	
==>ultiple field names then it is generally not
possible to tell which of the returned values belonged <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8398	8522	
==>}
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NA <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8398	8522	
==>}
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NA <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1766	1872	
==>oes Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n" <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1766	1872	
==>oes Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n" <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5794	5896	
==>d => localtime() . "");
$template->param(files => $total_files);
$template->param(links => $total_links <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9263	9356	
==>e) { "p6_Int($value)" }
NODE VRat ($value) { "p6_Rat($value->[0],$value->[1])" }
NODE VNum ($v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1004	1130	
==>ct to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1004	1130	
==>ct to be created as a Child]
           ~ q[ Node of the invocant Node; however, at least one of]
           ~ q[ the given Has <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3181	3302	
==>::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3181	3302	
==>::Server::Simple;

    method handler {
        $.remote.say('Hello World!');
    }


    use MyServer;
    my $s = MyServ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2256	2390	
==>$mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2256	2390	
==>$mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %.table = %tt;
    }    
}

method zeroi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2682	2883	
==>terpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2682	2883	
==>terpolation$/ {
                    $fh.print("\n") 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $fh.print($mod ~ "<") <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14235	14353	
==>ing >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14235	14353	
==>ing >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds; pinging server.";
          $self<r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11991	12090	
==>hod:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11991	12090	
==>hod:

=over

=item C<new( :@root_nodes? )>

This method creates and returns a new Rosetta::Model::Do <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3735	3871	
==>mm = ExtUtils::MakeMaker::WriteMakefile(%args);
    $self->fix_up_makefile($mm->{FIRST_MAKEFILE} || 'Makefile');
}

sub fix_up_makefile { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	150	253	
==>ethod new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

method addMethod(M <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15708	15889	
==>ue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15708	15889	
==>ue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3934	4066	
==>defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4074	4206	
==>defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26077	26174	
==>names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relationa <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30629	30726	
==>names.

=item C<project (Set of Str $attrs!) returns Relation>

This method is a generic relationa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10900	10993	
==>dd-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10900	10993	
==>dd-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container wh <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10134	10238	
==>n object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10134	10238	
==>n object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the set is empty.

- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32485	32579	
==>amed C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37035	37129	
==>amed C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N- <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	959	1071	
==>print << ".";
*** Installation failed (exit code $rv).
.
}

exit $rv;

sub is_root {
    local $@;
    eval('$> = <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4735	4837	
==>all methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4594	4696	
==>all methods explicitly in case user has already set some values.
    while ( my ( $key, $value ) = each <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	67	194	
==>lass HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	67	194	
==>lass HTTP::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6109	6238	
==>sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7107	7236	
==>sub {
    my ($S, $cc) = @_;

    if (${&Rx} =~ m{ \G ($non_nest_brack) }xgc) {
      my $h = substr($1, 1, -1);
      my @hex = s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23788	23891	
==>ack

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28340	28443	
==>ack

This is the main Relation constructor method:

=over

=item C<new (Set of Str :$heading?, Set of Ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2990	3099	
==>b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2990	3099	
==>b[0].end { shift @a } else { shift @b }
    }
    return Bool::False;
}

method complement ($self: ) returns S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7889	8005	
==>defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7877	7993	
==>defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8546	8672	
==>ing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8542	8668	
==>ing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	18	117	
==>y-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	18	117	
==>y-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2358	2649	
==>> { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  --- less than
                    # x<1    --- starts angle- <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11189	11277	
==>_sequence(char(C)) --> "\\r", {[C] = "\r"}, !.
p6_simple_escape_sequence(char(C)) --> "\\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1367	1482	
==>%headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1367	1482	
==>%headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %head <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8015	8132	
==>command_line {
    my $self = shift;
    my $file = shift;

    my $command =  $self->_command();
    my $switches = $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11644	11746	
==>&Test::Builder::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my $ret = &$orig(@_) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3408	3768	
==>$now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3408	3768	
==>$now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15509	15602	
==>e_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15509	15602	
==>e_numeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3582	3712	
==>-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3722	3852	
==>-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	5	104	
==>d

= NAME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= D <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	5	104	
==>d

= NAME

Perl::Compiler::PIL - Specifies PIL from pugs/src/Pugs/Compiler.hs in Perl 6's terms

= D <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	168	277	
==>es;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.st <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	168	277	
==>es;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $.parent_ident?, $.st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2770	2881	
==>e ne '';
        }
        $self->{env}->set($param->to_str->to_native, $arg);
    }
}

package closure::signatu <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14849	14975	
==>ion:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U3 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19017	19143	
==>ion:

  I32 prelen;             /* length of precomp */
  char *precomp;          /* pre-compilation regular expression */
  U3 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9666	9792	
==>nto the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9666	9792	
==>nto the
    # 'person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :ne <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6193	6303	
==>erson_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6193	6303	
==>erson_id = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'NUM_INT',
            'num <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9161	9279	
==>ght ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9161	9279	
==>ght ($self:) returns Void {
    # we must find the tallest sub-tree
    # and use that to define the height
    my $max <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1113	1238	
==>tory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1113	1238	
==>tory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@_path) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17460	17558	
==>e::KeyedText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17460	17558	
==>e::KeyedText in use, see the /examples
directory of this distribution.  Or, see my dependent CPAN p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3134	3282	
==>nt "Installing code...\n";
            system( qq[cp -R $Builddir/$path $Site] )       and die $?;     
            
            ### link files to $P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1057	1156	
==>is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1285	1380	
==>ItemContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1285	1380	
==>ItemContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19250	19356	
==>"foo", t => type::operator::nullary->new("str")),
		),
	),
);

# if we don't know what symbol it is we can' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17907	18101	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18186	18380	
==>ws'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1673	1774	
==>$two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.prope <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1673	1774	
==>$two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊃» (Set $one, Set $two) {
    $one.prope <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	13	106	
==>gs::Grammar::Ternary;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pug <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23302	23401	
==>arget =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> ".. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23302	23401	
==>arget =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>operE<gt>(username =E<gt> ".. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6849	6943	
==>ents is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('heade <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6849	6943	
==>ents is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ('heade <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19230	19329	
==>rted, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19230	19329	
==>rted, such as Tutorial D or XQuery or FoxPro or dBase.

One distinctive feature of a Rosetta DBMS (c <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4158	4247	
==>, ques_ng(W)) --> "??", !.
p56_quantified_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1870	1972	
==>p::Parser::reg_any;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3471	3557	
==>pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowin <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3471	3557	
==>pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing-signatures -fno-warn-name-shadowin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5982	6137	
==>ent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5982	6137	
==>ent;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1358	1465	
==>state.

=back 4

The procedural interface does the same thing within a single call, hiding the 
full complex <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1358	1465	
==>state.

=back 4

The procedural interface does the same thing within a single call, hiding the 
full complex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27356	27467	
==>$flag>, and sets it to
the code reference in $code.  Example:

  $parser->add_flag("u" => sub { 0x10 });

This m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	922	1033	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	922	1033	
==>t do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has Rosett <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4668	4804	
==>*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4861	4997	
==>*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3643	3743	
==>ror(Params::Check->last_error), return;

    return $version if $version =~ /^\.?\d/;
    return '0.0 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29712	29807	
==>styles)

Add option for coverage analysis.

Trap STDERR.

Implement Straps total_results()

Reme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10348	10492	
==>'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10342	10486	
==>'}, \$match];
$_[1]         } else {
$_[1]           push \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6925	7018	
==>red", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char => "\0", "\\x[0]") if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2733	2859	
==>ue' pairs.  This
method should be called before any other methods, as it initialises the list of
parameters.

=item C<$q.params <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2733	2859	
==>ue' pairs.  This
method should be called before any other methods, as it initialises the list of
parameters.

=item C<$q.params <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1958	2064	
==>h(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1958	2064	
==>h(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2], @path[3]) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20107	20225	
==>rationList :words {  # see 12.2
      <VariableDeclaration>
    | <VariableDeclarationList> <','> <VariableDeclaration> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2960	3081	
==>\C');
  });

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10678	10774	
==>gleton/class method called by Bar');

is($Bar->singleton_test_on_object(), 
  '&Object::singleton <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12217	12335	
==>nce object support is created, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $cod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12275	12393	
==>nce object support is created, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $cod <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	696	790	
==>nalyze_fh($name, $test_filehandle);
  my %results = $strap->analyze_file($test_file);

  # UNIM <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2704	2820	
==>lisher($?SELF));
            ( %.subscriptions<$name> ||= Set.new ).insert($subscription);
            $subscriber.no <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	3165	3273	
==>KAGE__;

__END__

=pod

=head1 NAME

Blondie::Prelude::Math - Math related builtins

=head1 SYNOPSIS

    use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19034	19120	
==>C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traff <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19034	19120	
==>C<$bot.last_traffic>, C<$bot.last_autoping>

These are readonly accessors. C<last_traff <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2469	2623	
==>idex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multid <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2469	2623	
==>idex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multid <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	267	386	
==>e Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for perfo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	278	397	
==>e Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were included only for perfo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2208	2316	
==>ealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2208	2316	
==>ealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4109	4246	
==>= [];

            ### capture: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3982	4116	
==>= [];
            ### capture: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9277	9417	
==>1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10113	10253	
==>1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error in macro a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1622	1734	
==>st = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1610	1722	
==>st = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$ma <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9545	9665	
==>my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi Array::reverse (   @values --> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27540	27629	
==>F<Regexp::Parser>.

=head2 Inheritance

All F<Regexp::Parser::*> objects inherit from
F<Re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5152	5279	
==>when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5374	5501	
==>when it returns an AST
#     instead of string
sub bind_variable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	799	916	
==>turn the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	799	916	
==>turn the capture
sub code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2351	2496	
==>[3]{match}[1]->bool,
                str   => \$_[0],
                from  => \$_[3]{match}[0]->from,
                to    => \$_[3]{match}[1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6330	6430	
==>, pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::E <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6330	6430	
==>, pod2html($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod::E <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1477	1574	
==>:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) return <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1477	1574	
==>:i/^last$/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) return <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5350	5477	
==>xtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5350	5477	
==>xtLValue',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxtItem',
  'xType' ,'Type';
node_a 'TCxt',                 'TCxt <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1517	1614	
==>d C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> environment varia <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1517	1614	
==>d C<Log::Selective::select> function or by including them 
in the C<SELECT_LOGS> environment varia <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13253	13349	
==>he new env), and the type of the body
fun: type($$) = {
	type::operator::arrow->new(
		new_env($$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5577	5695	
==>s_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5577	5695	
==>s_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.span.end && $.s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	796	956	
==>le) = @_;
    my $self;
    $self = bless sub {
        my $message = shift;
        return $table  if $message eq 'message-map';        
        
        # alia <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8896	8998	
==>e and an optional available list
    ### and check if the package is available/provided by any installe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10373	10475	
==>e and an optional available list
    ### and check if the package is available/provided by any installe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1584	1747	
==>$_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        while ( defined $state ) {

            ### alternation string to match: " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1529	1688	
==>$_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        while ( defined $state ) {
            ### alternation string to match: " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5667	5873	
==>st;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6516	6722	
==>st;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dum <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5671	5825	
==>istlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4171	4325	
==>istlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $len;
        while $i < $stop {
            push(@result,@array <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8944	9100	
==>count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8944	9100	
==>count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                cstart => coro {
                        m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3371	3458	
==>015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3371	3458	
==>015?\012)+?\015?\012}{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10621	10749	
==>e regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10621	10749	
==>e regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5576	5690	
==>s{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5576	5690	
==>s{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cache353{$chan}.keys);
    %users{$_}<channels>.delete( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7461	7617	
==>rray ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7461	7617	
==>rray ref not needed
                #print 'got capture: ',do{use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_ma <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7335	7547	
==>$newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$nam <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7335	7547	
==>$newnum;
                        }
                        if defined $name {
                            my $newname = defined $name
                                            ?? multidex($mmat.capture_name{$nam <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	86	220	
==>rx:perl5:ix/\s*
        # year
        (?: (\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) -? | - ) (\d\d) | (\d{3 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4439	4551	
==>path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4439	4551	
==>path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1835	1936	
==>fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1835	1936	
==>fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$stat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14199	14301	
==>ck(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14199	14301	
==>ck(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { ./:enqueue("WHO $target" <==
2	/Users/nnunley/pugs/util/package-osx.pl	8965	9077	
==>\n";
    }
}

sub make_symlinks {
    my ($dest, %symlinks) = @_;
    make_dir("${dest}/usr/bin") unless (-d "${d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10276	10396	
==>state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10276	10396	
==>state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[2], $_[3]{match}, @_[4..6] );
        re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20256	20352	
==>ram package.  No
recompilation necessary.  This is something that end users could do,
although pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20256	20352	
==>ram package.  No
recompilation necessary.  This is something that end users could do,
although pr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7331	7437	
==>e :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7331	7437	
==>e :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, Str $port?, Bool $pa <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	7286	7401	
==><+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	7286	7401	
==><+> (Set $one, *@args) returns Set {
    $one.union(set(@args));
}
multi sub *infix:<-> (Set $one, *@args) returns S <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5991	6095	
==>ect>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5991	6095	
==>ect>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~normalize($event<object>)} <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	883	1013	
==>turn $table  if $message eq 'message-map';        
        
        # alias prototype to some common names for super
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2361	2445	
==>program = Pugs::Emitter::Rule::Perl5::emit('Pugs::Grammar::Base', get_data( $_[0], '$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3621	3873	
==>es[0]{state}, 0 );

                }

                ### backtracking - state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3509	3753	
==>es[0]{state}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	143	252	
==>m



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optional "continuatio <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	138	240	
==>m

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optional "continuatio <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5259	5373	
==>emoved_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the respon <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5259	5373	
==>emoved_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it is the respon <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1880	2005	
==>ar( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1891	2016	
==>ar( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&s <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1266	1385	
==>nless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1266	1385	
==>nless file_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2124	2240	
==>it];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1];
    my %tokenClone = %token;
    $tokenClo <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	350	459	
==>%*ENV{'HTTP_COOKIE'} ne '') {
        for (split(rx:perl5/\s*;\s*/,%*ENV{'HTTP_COOKIE'})) {
            my ($p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2522	2645	
==>my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2522	2645	
==>my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3942	4048	
==>(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3942	4048	
==>(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_difference(@b).members } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2964	3060	
==>ry string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2964	3060	
==>ry string is preserved.

=item C<$q.param()>

This exists as an alias for C<params>.

=item C<$q. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33147	33249	
==>we have to translate a
message, the corresponding Template modules will be searched in the order
they a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33147	33249	
==>we have to translate a
message, the corresponding Template modules will be searched in the order
they a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13735	13836	
==>iginal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When sav <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13735	13836	
==>iginal_doc.export_as_hash()} );

Or, to demonstrate the use of a persistence solution:

    # When sav <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1139	1238	
==>ons.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectional r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1139	1238	
==>ons.

- `new( closure_next => sub {...}, closure_previous => sub {...} )`

Creates a bidirectional r <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1076	1289	
==>ather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E< <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1076	1289	
==>ather {
                            take(@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12347	12450	
==>ON

This class represents a "span".

Depending on your data, you may need a "discrete" or a "continuous" <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12347	12450	
==>ON

This class represents a "span".

Depending on your data, you may need a "discrete" or a "continuous" <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11132	11269	
==>see 9.3.1
      <StrWhiteSpaceChar> <StrWhiteSpace>?
}
rule StrWhiteSpaceChar {  # see 9.3.1
      <TAB>
    | <SP>
    | <NBSP>
    | <FF <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7999	8101	
==>f reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7999	8101	
==>f reduction each pass, or infinite loop
# will ensue. It is not yet certain if this is the case.
sub pm <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1761	2047	
==>$mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buf <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1761	2047	
==>$mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buf <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13394	13526	
==>trip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13394	13526	
==>trip_colon($object),
      };

      if %handler{$command} {
        $_($event) for *%handler{$command};
      }
    },

    # Handle <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20678	20772	
==>have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20678	20772	
==>have to use the C<join> and C<part> methods to join or leave channels.

=head2 C<$botE<lt>chann <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2880	2975	
==>ncludes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.grep: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2880	2975	
==>ncludes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.grep: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6543	6638	
==>tta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6543	6638	
==>tta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'b <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	292	389	
==>:dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	292	389	
==>:dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19470	19580	
==>return Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	20467	20577	
==>return Relation::Example.new(
        heading => $!heading.union( $other!heading ),
        body => set( gather <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3243	3360	
==>2');
cmp_ok($p->id, '==', $old_p_id, '... got the same ids');

my $p2 = new $p1->class->(100, 200);
is($p2->class, \&P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31756	31855	
==>hat the
current user is fluent in (and prefers) language A but also understands
language B.  Later o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31756	31855	
==>hat the
current user is fluent in (and prefers) language A but also understands
language B.  Later o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18780	18876	
==>1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18780	18876	
==>1998-10-19)

By popular demand C<referrer> exists as an alias for this method so you
can avoid th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11430	11564	
==>" : "exact";
  }

  sub data {
    my $self = shift;
    join "", @{ $self->{data} };
  }

  sub merge {
    my ($self) = @_;
    my $t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1438	1545	
==>obj->can('depends') ) {
        $obj->depends( 
            JIB::Dependency->new_from_struct( struct => $obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23078	23175	
==>paren

The number of OPENs (capturing groups) in the regex.

=item captures

An array reference to <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16793	16901	
==>` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it contains a s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16793	16901	
==>` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, it contains a s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19056	19143	
==>,N1,Fx,F1,Bx,B1,Ex,E1).


rm(capture(N,Re),F0,F1,B0,B1,E0,E1) :-
  % match_captures_nest <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3496	3619	
==>s{max} == $totals{seen} && 
                  $totals{max} == $totals{ok});
    $totals{passing} = $passed ? 1 : 0;

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29095	29195	
==>s this object into the tree.  It returns a value that says whether
or not it ended up being merged wi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19023	19155	
==>urn $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15444	15576	
==>urn $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing <==
2	/Users/nnunley/pugs/util/package-osx.pl	9864	10012	
==>st$dirs");

        if ($_ = qx/cp -r $from $dest$from 2>&1/) {
            print "Error copying $from to $dest$from: $_\n";
        }
        else { <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24970	25061	
==>untests> is exported by Test::Harness by default.

C<$verbose>, C<$switches> and C<$debug> a <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5291	5447	
==>led packages. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5755	5911	
==>led packages. This way, we're sure that when
                    ### it returns a match, it found it in what we already
                    ### had, therefor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3371	3468	
==>e C</usr/bin/pugs>.

* it tells perl5 that Perl v6.0.0 required.

- The C<Pugs::Compiler::Rule> mo <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6244	6335	
==>);
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_int (@a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14948	15109	
==>ed $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14948	15109	
==>ed $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $channel { enqu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2166	2298	
==>is_empty {
    my $self = shift;
    @{$self} ? bit->new(0) : bit->new(1);
}

sub join {
    my ($self, $delimiter) = @_;
    (blesse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27864	28021	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28143	28300	
==>grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3369	3493	
==>ion = $self->perl_version ) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, " <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2411	2534	
==>ion = $self->perl_version) {
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, " <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5739	5837	
==>Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5739	5837	
==>Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy';
node_s 'Scope', 'SOur';
node_s 'Scope', ' <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1144	1332	
==>roxy accessors)
                             # $self->rev_assocs->members,
                           ],
                },
              });
    }
}

# ok, so Class::Tangram doesn't have a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4682	4814	
==>iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaro <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4682	4814	
==>iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(338),
    "oelig"    => chr(339),
    "Scaro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8303	8424	
==>hift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8015	8131	
==>hift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6407	6518	
==>gs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree stringify>;
        %modifiers_support <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36858	36953	
==>of assertion

=head2 logical

Family: assertion

Types: logical (C<(??{>)

Data: string with con <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22221	22336	
==>st.  The analogy is similar to inheriting from multiple packages which
have the same method names as you or each oth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22221	22336	
==>st.  The analogy is similar to inheriting from multiple packages which
have the same method names as you or each oth <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27531	27629	
==>de values applied to each tuple.  The new Relation has all
of the tuples of the original (or rather <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32083	32181	
==>de values applied to each tuple.  The new Relation has all
of the tuples of the original (or rather <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	313	415	
==>_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	313	415	
==>_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7110	7241	
==>s_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7110	7241	
==>s_empty;
        # $span is a span, but it has a different type than $self
        my $start = $span1.start;
        my $end =   $sp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19024	19139	
==>subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19024	19139	
==>subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level (not nested) <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	225	325	
==>y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *inf <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	225	325	
==>y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor
multi *inf <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3618	3715	
==>urselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler<3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3618	3715	
==>urselves so we can provide accurate username, hostname, and
  # ircname information.)
  %handler<3 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	309	431	
==>s";
    bless { class  => $klass } => $class;
}

sub linearize {
    my $self = shift;
    
    my @supers = $self->{class} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1351	1452	
==>aken self-referential things

sub alternation {
    # alternation is first match (not longest).  thoug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1351	1452	
==>aken self-referential things

sub alternation {
    # alternation is first match (not longest).  thoug <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2841	2953	
==>perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyrig <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2841	2953	
==>perl6.compiler>.

Please submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyrig <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1037	1271	
==>is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1037	1271	
==>is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<e <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1884	1999	
==>rn Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_emp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1884	1999	
==>rn Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    return ! $tmp.is_emp <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	858	960	
==>esult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	858	960	
==>esult), chomp($expected), $description );
}

sub pil_parsed_is_eq( Str $code, Str $expected, Str $descr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13195	13329	
==>here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13195	13329	
==>here()    :
                die "'$result' didn't match '$re_comment'";
        /ex or last;
    }

    $source =~ s/(?<!~)~~~(?!~)/<</ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7981	8078	
==>nt_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7981	8078	
==>nt_previous if defined $.complement_previous;
    $self.get_universe;
    return $.complement_prev <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	3	102	
==>ass Perldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	3	102	
==>ass Perldoc::DOM::PI is Perldoc::DOM::Node;

sub event_type {
    "processing_instruction"
}

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19492	19637	
==>_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15913	16058	
==>_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17955	18058	
==>em $h.from

This header should contain an Internet e-mail address for the human
user who controls the re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17955	18058	
==>em $h.from

This header should contain an Internet e-mail address for the human
user who controls the re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8867	9028	
==>'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8863	9024	
==>'literal'}[0];
    my $sub = { 
            '*' =>'greedy_star',     
            '+' =>'greedy_plus',
            '*?'=>'non_greedy_star', 
            '+?'=>'no <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	49635	49776	
==>authority'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method:: <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11529	11636	
==>L::Element->new('pre')->push_content($text));
      
      my $link = {};
      $link->{linkfile} = $linkfil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10100	10252	
==>n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10936	11088	
==>n" .
                "};\n";
    
            # register new syntax in the grammar category
    
            # example: macro statement_control:<if> ($ex <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6943	7051	
==>fer events until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- a <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6943	7051	
==>fer events until I get to the
end of the line. I could probably do that, but it could get ugly.s

= TODO

- a <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2603	2754	
==>=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2603	2754	
==>=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12115	12215	
==>é's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12115	12215	
==>é's naïve\npapier-mâché résumé";
 print encode_entities($in), "\n"

Prints this out:

 vis-&agr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15880	15976	
==>Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distribu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15938	16034	
==>Test

- Test::More

Information about the TAP protocol can be found in the Test::Harness
distribu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13112	13219	
==>};

  step
    descr  => "Copying necessary device files to \"$initrd_mnt/dev\"",
    ensure => sub { -c "$i <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	502	599	
==>ts", and thus is far from being a
# complete p5 compatible regex engine, that establishes feasibli <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5159	5479	
==>pp->new(
                                Sym->new('&infix:<->'),
                                Sym->new('$y'),
                                Val->new(1),
                            ),
                        ),
                    ),
                ),
            ),
        ),
    ),
    
    '&control_structure:< <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2252	2343	
==>omplex64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset complex of c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2390	2570	
==>->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<stateme <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2390	2570	
==>->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<stateme <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13877	13990	
==>v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->sh <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1357	1470	
==>v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->sh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	988	1111	
==>t_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.userna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	988	1111	
==>t_traffic;
  has Int   $.last_autoping;
  has Str   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.userna <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1815	1915	
==>class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @li <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1815	1915	
==>class; renamed 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @li <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	134	253	
==>= -1000;
        $still_running--;
    }
    say 'Thread 1 finished: $a is >5 and reset to -1000';
}

my $thr2 = async { <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5796	5892	
==>yck_st.o src/syck/token.o src/syck/yaml2byte.o src/cbits/fpstring.o );
    #push @o, 'src/Unicode <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3833	3997	
==>what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #return $self - duration($what);
    #}
#} <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1933	2097	
==>what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #return $self - $other;
    #} else {
        #return $self - duration($what);
    #}
#} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2700	2796	
==>ble>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2700	2796	
==>ble>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3013	3118	
==>et = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3013	3118	
==>et = set($self.members, $other.members);
    say "Returning union of "~$set.stringify if $DEBUG;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	347	467	
==>tail =~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1;
  PA <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	337	447	
==>values[$_];
    }
    $str;
}
# copied from S29draft.pod 8651.
&join := &join.assuming:delimiter(' ');


# copi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22581	22671	
==>,C2)|_]) :-
   flag_i(E0),
   code_type(C,to_lower(Cx)), code_type(C1,to_lower(C1x)), code_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	584	708	
==>s'}{$key} unless @_;
        $self->{'values'}{$key} = shift;
        return $self;
    };
}

sub sign {
    my $self = shift <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2318	2434	
==>my($self)=@_;
    my $ret="";
    for my $stage ($self->_stages) {
	my $result = $self->{$stage};
	next if !defined $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1333	1432	
==>rns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1333	1432	
==>rns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14776	14882	
==>rom(mob, 0, "PGE::Exp::Anchor")
    mob["value"] = "$"
    goto end
  scalar:
    (mob, $P0, mfrom, mpos) = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2422	2522	
==>ses,
Roles, etc - or when you do even scarier things to the Perl 6 class
system.

Note that the files <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3670	4058	
==>is should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $st <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3670	4058	
==>is should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $st <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7336	7511	
==>'>>'>
    | <'>>>'>
    | <'&'>
    | <'|'>
    | <'^'>
    | <'!'>
    | <'~'>
    | <'&&'>
    | <'||'>
    | <'?'>
    | <':'>
    | <'='>
    | <'+='>
    | <'-='>
    | <' <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2736	2841	
==>For now, I made the script stop if you aren't running under
      Linux, you may want to change that.

Not <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19748	19846	
==>elation data type is immutable.  The value of
a Relation object is determined when it is constructe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24300	24398	
==>elation data type is immutable.  The value of
a Relation object is determined when it is constructe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8046	8162	
==>th ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $ol <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8046	8162	
==>th ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $ol <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8050	8152	
==>has no capture (but the 'bool' field is still true)

  match_word( 'abc123' );



A ruleop function ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7779	7878	
==>has no capture (but the 'bool' field is still true)
  match_word( 'abc123' );

A ruleop function ret <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3806	3899	
==>:TypeSafe::Annotation->new(
			type => $type,
			struct_equiv => $sym->fmap(sub { Blondie::Typ <==
2	/Users/nnunley/pugs/util/func_refact.pl	223	331	
==>odes data produced by --nodes
of graphfuncs.pl. Will print initial set sizes for all functions
by default, or <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	530	666	
==>ed Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        3 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	530	666	
==>ed Permanently',
        302 => 'Found',
        303 => 'See Other',
        304 => 'Not Modified',
        305 => 'Use Proxy',
        3 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10403	10525	
==>sh \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10397	10519	
==>sh \@{ \$named{'$name'} }, \$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1329	1446	
==>smoke given!";
    exit;
  }

  uncompress_smoke();
  unless($CGI->param("smoke") =~ /^<!DOCTYPE html/) {
    print "T <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	862	973	
==>$attrs 
    ] => $class;
}

# we dont really have a native type
sub to_native { shift }

# conversion to other n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1842	1945	
==>pected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1900	2003	
==>pected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlike (St <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1221	1352	
==>cut

sub _chdir {
    my $self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	60	186	
==>er = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	56	182	
==>er = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2004	2097	
==>2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent t <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2004	2097	
==>2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent t <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2813	2941	
==>url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2813	2941	
==>url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read response+headers:
  # $hdl. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1186	1294	
==>*can* have an alternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1186	1294	
==>*can* have an alternate source fragment, but it
 # defaults to be the same as the content, modulo whatever we <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25164	25296	
==>e length of the regex string
    sub RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    su <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9062	9159	
==>leton method fails';

is($iFoo->foo, 'Foo->foo', '... $iFoo got the right method return value');
i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	563	716	
==>body => $body,
        env  => $local_env
    } => $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1757	1962	
==>ot_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1757	1962	
==>ot_node} );
    }

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'root_nodes' => [@!root_nodes.map: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5284	5448	
==>n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5296	5460	
==>n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "c <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1573	1672	
==>ly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

= <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1573	1672	
==>ly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE

=cut

=head2 METHODS

= <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1302	1458	
==>ing and " ~
        pick (
            "$x",
            "is $x",
        );
    }else{
      "$string $x";
    }
}

sub matchval ($x,Hash %x,Int $cap?) retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34352	34449	
==>nslator object.
The Set Names property of the new object is set from the named parameter
@set_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34352	34449	
==>nslator object.
The Set Names property of the new object is set from the named parameter
@set_name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9538	9639	
==>er.  The
field names are cases insensitive.

Instances of this class are usually created as member var <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9538	9639	
==>er.  The
field names are cases insensitive.

Instances of this class are usually created as member var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	587	758	
==>ail = $3;
        if ($paren eq '}') {
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $pa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4414	4506	
==>nd C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4414	4506	
==>nd C<encipher> are equivalent to C<enciphering>, 
while C<decrypting>, C<decrypt> and C<decip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	552	651	
==>$match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	552	651	
==>$match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tai <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	4831	4951	
==>ice(@{$self->get_value('@:slots')}, $idx_from, $idx_to, mk_containers(@$replacement));
            },
        },
    },
} <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10637	10729	
==>ight return value from another Object singleton/class method called by Bar');

is($Bar->singl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1414	1544	
==>d') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1414	1544	
==>d') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5926	6019	
==>s/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Ga <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5926	6019	
==>s/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Ga <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8999	9112	
==>.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might ar <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8999	9112	
==>.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to fix any height 
# discrepencies which might ar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31483	31586	
==>ould be distributed with a Template module set that is specific
to it, another library likewise, and a p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31483	31586	
==>ould be distributed with a Template module set that is specific
to it, another library likewise, and a p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19537	19640	
==>es within a given block between a C<use> and C<no> statement
are marked to be passed to that compiler. T <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19537	19640	
==>es within a given block between a C<use> and C<no> statement
are marked to be passed to that compiler. T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8746	8862	
==>cause that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8456	8569	
==>cause that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" le <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5235	5336	
==>aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5235	5336	
==>aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	885	993	
==>Text::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	885	993	
==>Text::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::M <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4862	4987	
==>ildren[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4862	4987	
==>ildren[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5084	5199	
==>or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($f <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5084	5199	
==>or heredoc).
    my $folded_content = $class->pmc_fold_blocks($module_content);
    my $folded_data = '';
    if ($f <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18605	18763	
==>g);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversion),int($arg));
            }
            w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1115	1229	
==>ant('b') ),
        capture( '0', constant('b') ),
    );
print "Perl5 source:\n", wrap( $r ), "\n";
my $x = ev <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4004	4188	
==>quotable = qr/\w+|$RE{delimited}{-delim=>'"'}/;
my $link     = qr{(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($qu <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5256	5413	
==>META_NOT_OURS: {
        local *FH;
        if ( open FH, "META.yml" ) {
            while (<FH>) {
                last META_NOT_OURS if /^generated_by: Modu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3089	3264	
==>king cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3089	3264	
==>king cookie $key=$val");
                        
                        if ($secure && $secure_request) {
                            #LWP::Debug::debug("   not a secure requ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18787	18887	
==>r which we are not prepared to
support (such as modification of the compiled re op tree the native
co <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3077	3177	
==>r which we are not prepared to
support (such as modification of the compiled re op tree the native
co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4398	4501	
==>ng happens in parametrized type operators, since they have children
	my $self = shift;
	my $accum = shif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25537	25640	
==>ts when and as the GPL requires distribution of
source code.  However, for an additional fee, the copyri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25537	25640	
==>ts when and as the GPL requires distribution of
source code.  However, for an additional fee, the copyri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11320	11444	
==>ogin_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11320	11444	
==>ogin_phase is reset to 0
          # when we're successfully logged in.
          $in_login_phase++;
          $say("NICK {$n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6737	6869	
==>( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6737	6869	
==>( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5827	5929	
==>Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5827	5929	
==>Update %channels and %users accordingly.
    ./add_handler("PART", -> $event {
      my $chan = normali <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1451	1583	
==>ine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1451	1583	
==>ine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7215	7325	
==>$base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7215	7325	
==>$base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (splitpath($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7414	7522	
==>local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7426	7534	
==>local $Data::Dumper::Indent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8904	9011	
==>n eval string
    # because we need the bareword semantics, where 'require'
    # will munge the package nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8904	9011	
==>n eval string
    # because we need the bareword semantics, where 'require'
    # will munge the package nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6545	6661	
==>compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6557	6673	
==>compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = grammar1::rul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	345	460	
==>s;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	345	460	
==>s;
    return *.cipher_block(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8633	8723	
==>It also describes the same-number versions of Rosetta::Model::Document
("Document") and Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8633	8723	
==>It also describes the same-number versions of Rosetta::Model::Document
("Document") and Ros <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25729	25837	
==>key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25729	25837	
==>key itself is not meant to be
meaningful to a user.  The Message Key can be any defined and non-empty
string. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8192	8423	
==>f:')
                  ->get_attr(symbol->new('%:methods'))
                  ->exists($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method (opaque $self: sy <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11939	12088	
==>rter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    ( <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11939	12088	
==>rter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $re_comment = qr/
(?:
    ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18336	18471	
==>f->{rx};

    do {
      $tree = pop @{ $rx->{stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx- <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3757	3853	
==>ine\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd line\n1st line\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1276	1413	
==>\$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'postcircumfix', o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	742	848	
==>_END__

=pod

=head1 NAME 

Pugs::Runtime::Perl6

=head1 DESCRIPTION

Provides runtime routines for the Per <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2779	2908	
==>self );
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    * <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	954	1082	
==>self);
        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    * <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	279	383	
==>:$backend";
		use_ok($m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8522	8650	
==>de ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faster backtrac <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8226	8347	
==>de ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faster backtrac <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13756	13851	
==>ssible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13814	13909	
==>ssible to use the `force_todo()` function to do large scale
TODO-ing of tests.

== Misc. Functio <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1980	2087	
==>return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1980	2087	
==>return ! $tmp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10265	10376	
==>(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10265	10376	
==>(Cipher $self: Str $data) {
    return stringify($self.cipher(byteify($data)));
}

method encipher(Class $class: <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	146	244	
==>arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$tri <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	146	244	
==>arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$tri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1672	1833	
==>uilddir';             # buildir on client side          
$Data           = 'data.tgz';                       # part of archive /w code
$Control        = 'control. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7191	7294	
==>st ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


 multi Array::unshift (@array is rw <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	627	747	
==>ake *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	627	747	
==>ake *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	466	577	
==>-Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	466	577	
==>-Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans;
    my $head = @.spans[0 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	126	238	
==>ode--Perl6 %:methods;

method new(Str $name) returns Class--Perl6 {
    $.name = $name;
    return $?SELF;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11214	11314	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11272	11372	
==>ed, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7854	8002	
==>if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7866	8014	
==>if $tmp;
        }

        # XXX XXX XXX - source-filter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17492	17617	
==>ype   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17492	17617	
==>ype   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CHAR_STR',
            'char_max_length' <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2064	2218	
==>.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = sh <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2064	2218	
==>.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_pugs {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2949	3045	
==>ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3007	3103	
==>ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) retur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19621	19722	
==><join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hash <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19621	19722	
==><join> and C<part> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hash <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10586	10706	
==>hile my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10586	10706	
==>hile my $item = @to_do.shift {

      # ... do something with $item ...

      if ($item.isa(Container)) {
          @to_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36092	36200	
==>All combinations having the same Member Name are adjacent
to each other in the output; for example, with Sets <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36092	36200	
==>All combinations having the same Member Name are adjacent
to each other in the output; for example, with Sets <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12224	12351	
==>, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcircumfix: ", Dumper( $n );
    
    if ( $n-> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	819	920	
==>Class, all of the methods that are
included via roles will be able to access the Class' private
attrib <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	646	741	
==>c::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of content <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	646	741	
==>c::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::DOM::Text> represents a little slice of content <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45760	46009	
==>e'),
                              symbol->new('?$name' => 'str'),
                          ),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->get('?$name')
                  ->is_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	407	501	
==>doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	407	501	
==>doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	907	1005	
==>(the API is

specified in Perl6::API::AST - so maybe the implementation

lives there too?)



Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	861	955	
==>(the API is
specified in Perl6::API::AST - so maybe the implementation
lives there too?)

Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6059	6252	
==>st ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6059	6252	
==>st ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        retur <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1521	1620	
==>$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1521	1620	
==>$.backtrack closure that calls back into the parser.

=cut

our class Parser {
    does Parse::Rule: <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2994	3101	
==>suedo_scalar_literal { \$ <name> } # $foo ==> <'$foo'>  Scary.
rule interpolated_array    { \@ <name> <eleme <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10050	10149	
==>IL1CPerl5::Util::FilterNodeDefs;
our($package_name,$method_name);
sub import {
    my($pkg,$name)=@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1177	1272	
==>($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1177	1272	
==>($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..>" );
    $extracted = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8760	8877	
==>hat p6 does)

and also you can overload @{} %{} &{} + ~



I think it should be magical at "unboxed" level yes.

I mea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8470	8583	
==>hat p6 does)
and also you can overload @{} %{} &{} + ~

I think it should be magical at "unboxed" level yes.
I mea <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15116	15279	
==>har *subbeg;           /* saved or original string 
                                   so \digit works forever. */

  I32 *startp;
  I32 *endp;

for $n (eg $1 => n= <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	818	923	
==>bj->position();
  }

  $me = new $grammar;
  $me->target($target);
  $me->from($from);
  my $position = -1 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10946	11049	
==>SCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

= <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10946	11049	
==>SCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $node?)>

= <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	843	953	
==>refix}/$self->{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2678	2778	
==>refix}/$self->{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24013	24120	
==>DE: bug";
       }
      }'."\n";
}
sub p6_last_CODE {
    "(throw Perl6::Run::OnPerl5::X1::Api::Exception:: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17080	17179	
==>res the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence obj <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17080	17179	
==>res the spans numerically. Returns -1, 0, or 1.

The argument can be a Span object, a Recurrence obj <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3365	3471	
==>is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3365	3471	
==>is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T_FAI <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2329	2426	
==>>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all exc <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2329	2426	
==>>

Returns a new function which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all exc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3620	3731	
==>_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3620	3731	
==>_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37175	37273	
==>late_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its positi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37175	37273	
==>late_module_is_loaded( $module_name! )>

This method takes the name of a Perl package in its positi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	404	518	
==>ble quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AE <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	404	518	
==>ble quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986//ENTITIES Added Latin 1//EN//HTML
    "AE <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	547	664	
==>overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	547	664	
==>overloading - ~ <=> 
    * empty_span - test with "density"
    * universal_span

  Constructor:
    * constructor :ne <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3194	3318	
==>turn @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method di <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3194	3318	
==>turn @.spans.map:{ $self.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method di <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8439	8540	
==>CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8439	8540	
==>CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CLASSES]} < @{$block->[CLASS <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35482	35569	
==>amed
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation * <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40032	40119	
==>amed
C<cartesian_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation * <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19899	19991	
==>s that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19899	19991	
==>s that the user
interface and behaviour conform to its preconceptions.

L<Rosetta::Engine::Ex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18550	18657	
==>} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18550	18657	
==>} standard.  A given {web
     page}'s referer (sic) is the {URL} of whatever web page
     contains the lin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9157	9266	
==>1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9215	9324	
==>1, 3 .. 5, 9);

  use_ok('Some::Module');
  use_ok('Some::Other::Module', todo => 1);

  ok(2 + 2 == 4, '2 and <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11795	11893	
==>r( $field, $value )

Add a new field value for the specified header field.  Previous values
for the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11795	11893	
==>r( $field, $value )

Add a new field value for the specified header field.  Previous values
for the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4681	4803	
==>bool::true' => Pugs::Compiler::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7547	7652	
==>en of the seq child of the thunk
			my $last = pop @children_of_seq;

			my @params = grep { $_->struct_eq <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5361	5507	
==>ist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5361	5507	
==>ist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $tmpdir = $.curdir unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2048	2215	
==>sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2048	2215	
==>sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5760	5872	
==>ilter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5760	5872	
==>ilter::Util::Call;
    Filter::Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5826	5936	
==>export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5826	5936	
==>export {
  return '';
}

sub rel2abs (Str $_path, Str $_base?) returns Str is export {
    # take a copy of our <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	732	915	
==>ck, $y - $x;
        } elsif ($tok eq '*') {
            push @stack, $y * $x;
        } elsif ($tok eq '/') {
            push @stack, int($y / $x);
        } else {
            die " <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4001	4085	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4001	4085	
==>9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4652	4778	
==>( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4652	4778	
==>( '" . $value . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        retur <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	549	650	
==>($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	549	650	
==>($_) eq "http_proxy"}, keys %*ENV;

# my $CRLF = rx:perl5/\015?\012/;
my $CRLF = "\x0D\x0A\x0D\x0A";
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	632	732	
==>compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	632	732	
==>compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11378	11494	
==>ric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($lin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11378	11494	
==>ric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($lin <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8105	8210	
==>HTML::Template->new(filename => 'util/catalog_tmpl/directory.tmpl');
    my $i = 0;
    my $c = int((@dirs <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4152	4272	
==>eld ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4152	4272	
==>eld ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with embedded newlines with care
      $val ~~ s/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19767	19865	
==>Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19767	19865	
==>Each Rosetta Engine has the complete freedom to implement the Rosetta DBMS
and Rosetta D however it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21273	21371	
==>E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$b <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21273	21371	
==>E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7834	7939	
==>n $S->object(exact_comp => chr(hex $1), "\\X$1");
    }

    $S->warn(0, "Illegal hexadecimal digit '%s' i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4558	4672	
==>ject.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for the object, fro <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4558	4672	
==>ject.

- `month()`

Returns the month for the object, from 1 to 12.

- `day()`

Returns the day for the object, fro <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19567	19679	
==>/\A$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $cc = Perl6:: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	108	217	
==>til ();

sub reduce {
    my $self = shift;
    my $node = shift;

	return $node unless $self->can_reduce($nod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18197	18314	
==>ple $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources -> $r2 {
        $r1 = $r1.join( $r2 ) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5941	6051	
==>s( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5941	6051	
==>s( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

method contains ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7764	7885	
==>id {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7764	7885	
==>id {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3154	3284	
==>fined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3154	3284	
==>fined {
    my @new = ($op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2219	2324	
==>s_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { retur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2219	2324	
==>s_infinite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8368	8497	
==>k = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8561	8690	
==>k = sub { return { variable =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7902	8019	
==>ex{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7890	8007	
==>ex{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3723	3821	
==>ally the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::inser <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3723	3821	
==>ally the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::inser <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	485	583	
==>eturn Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	485	583	
==>eturn Bool::True  }
method end_is_open     () { return Bool::False }

method intersects ( Span::Int <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10211	10324	
==>digit))         --> "\\d", !.
p56_char_class(class_neg(digit))         --> "\\D", !.
p56_char_class(class_pos(spac <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4330	4432	
==>th '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any com <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4330	4432	
==>th '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, any com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8863	9002	
==>> [[]],
      family => 'branch',
      type => 'branch',
      raw => '|',
      branch => 1,
    }, $class;
  }

  sub qr {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16609	16743	
==>n unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16888	17022	
==>n unless $match;
        my $capture_block = sub { return { block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4199	4296	
==>n to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4383	4480	
==>n to match. Starts in zero. Defaults to C<undef>.

=item * sigspace => 1 - Whitespace is significa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	10	103	
==>ckage Module::Install::Fetch;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @I <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8381	8481	
==>ad2 Building the Tree

If you don't care to intercept the building of the tree, you can use the
parse <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31784	31880	
==>d C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36334	36430	
==>d C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi-method is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11282	11398	
==>S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< c) atom >;
    &SIZE_ONLY ? ++$S->{maxpar} : ++$S->{ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	20670	20778	
==>2.2
      <'='> <AssignmentExpressionNoIn>
}
rule EmptyStatement :words {  # see 12.3
      <';'>
}
rule Expr <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9315	9434	
==>ck $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $strin <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9315	9434	
==>ck $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $strin <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7147	7257	
==>hift;
    my @rest = @_;
    my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
    warn "$kid$tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3578	3731	
==>} 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3825	3978	
==>} 
    
    ]?
    
    { return { quant => $_[0]{q1}() ,} } 
}

rule rule {
    $<q1> := (<concat>) 
    [
        \| $<q2> := (<rule>) 

        { retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32228	32323	
==>s object (for flag assertions
and C<(?:...)>).

=item raw

The raw representation of this object <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	515	615	
==>eply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	515	615	
==>eply_msg = %!seen{$0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	243	351	
==>order for things to init 
# in the correct order
use Perl6::Core::Bit;

# comparisons

# implement this and g <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10477	10581	
==>ent.pl ./smoke.html</pre>

  <p>
    should suffice. See the <a
    href="http://search.cpan.org/dist/Per <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5019	5115	
==>$self = shift;
	my $node = shift;
	$self->{defined_nodes}->includes($node);
}

sub reduce_thunk { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8433	8575	
==>signment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EX <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8433	8575	
==>signment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc' => 'DEPOT_OBJECT_EX <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	216	323	
==>...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = s <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6527	6660	
==>rom {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing| <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6584	6717	
==>rom {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        =head \d \s+
        (?:licen[cs]e|licensing| <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	334	424	
==>lear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	334	424	
==>lear_node_filter ($self:) returns Void { $!filter_function = undef }
method set_node_filter <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10882	11102	
==>= shift;
                $e->get('$self:')
                  ->get_attr(symbol->new('%:methods'))
                  ->keys();                                                  
            }
        )
    )
);

=pod

metho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1729	1850	
==>f },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.ce <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1729	1850	
==>f },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.ce <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27701	27799	
==>dy> may be an Set with a single member that is an empty Mapping.

=back

A Relation::Example object <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1545	1652	
==>the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1545	1652	
==>the capture
sub capture {
    ${$_[0]}->{capture};
}

# return the bool value
sub bool {
    ${$_[0]}->{bool <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16374	16470	
==>ailing chars that match C</\n/>. In
either case, it returns the number of chars removed.

Note: M <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	299	399	
==>mDefault;

# deriving (Show, Eq, Ord)
method Show {
    ...
}

method &infix:«==»($self, Perl::Para <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5513	5624	
==>urrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5513	5624	
==>urrence.previous( $x );
    if $x > $.span.end && ! $.span.end_is_open {
        $x = $.recurrence.previous( $.r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1837	1968	
==>onstant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1848	1979	
==>onstant',
            ruleop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6526	6649	
==>ated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6538	6661	
==>ated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0]\n";
    my $match = g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1332	1437	
==>he meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Si <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1332	1437	
==>he meaning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Si <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	611	719	
==>doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body> <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	611	719	
==>doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <title>Hello!</title>
  </head>
  <body> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35511	35608	
==>his object as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35511	35608	
==>his object as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10238	10388	
==>1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10232	10382	
==>1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8293	8384	
==>mmar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2118	2209	
==>mmar::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	746	862	
==>onst'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13443	13543	
==>an.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" an <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13443	13543	
==>an.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3451	3570	
==>Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3451	3570	
==>Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Ros <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3885	3979	
==>esterday" return the appropriate date.

Any other string will be passed to `Date::Something::Wa <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3885	3979	
==>esterday" return the appropriate date.

Any other string will be passed to `Date::Something::Wa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2468	2567	
==>ys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # X <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2468	2567	
==>ys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.delete($f); # X <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9645	9852	
==>ides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta ob <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11122	11329	
==>ides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a wanted string and a meta object, and checks if the meta ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	503	681	
==>r = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	503	681	
==>r = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_li <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5556	5674	
==>t( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5556	5674	
==>t( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15848	15950	
==>ues belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For exa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15848	15950	
==>ues belong to the span ("closed") or not ("open").

- `size()`

Return the "size" of the span.

For exa <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1581	1814	
==>);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1581	1814	
==>);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5782	5900	
==>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5782	5900	
==>}++;
    });

    # Somebody left a channel. Update %channels and %users accordingly.
    ./add_handler("PART", -> $eve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	793	909	
==>tch->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	793	909	
==>tch->{match} ) 
        if ref( $match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3626	3737	
==>ect(digit => 0);
  });

  # gpos (last global match end)
  $self->add_handler('\G' => sub {
    my ($S, $cc) = @ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28718	28950	
==>{
                          my $e = shift;
                          $e->get('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1838	1983	
==>my $type =
      &Rf & $S->FLAG_m ? 'mbol' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S->object(bol => $type, '^');
  });

  # s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	40	301	
==>edText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	40	301	
==>edText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num {
        die Locale::KeyedText::Message <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6671	6779	
==>] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6683	6791	
==>] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die " <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1681	1828	
==>.

    # safety of the individual methods is defined in Pugs.Prim.hs
    # (maybe :lang<YAML> doesn't quite belong here?)
    multi sub eval (Str $c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3415	3578	
==>if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3415	3578	
==>if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif ($cmp == 0) {
        $i_end = $.end;
        $open_end = $.end_i <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4312	4466	
==>¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "m <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4312	4466	
==>¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "sup1"     => '¹',
    "sup2"     => '²',
    "sup3"     => '³',
    "acute"    => '´',
    "m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5927	6044	
==>etry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5927	6044	
==>etry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4628	4726	
==>\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."->{".$key."}";
}
sub node::as <==
2	/Users/nnunley/pugs/util/package-osx.pl	10500	10646	
==>/bin/perl
        # $files[-1]
        use strict;
        use warnings;\n
        chdir '/usr/local/bin';\n
        my \@files = qw\(
    );
    @ <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	230	334	
==>-e catfile($Path, $SID)) { $SID=''; }
    $SID=IDGenerate() if $SID eq '';
    SessionDecode(slurp(catfil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5865	5985	
==>d time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5865	5985	
==>d time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1368	1479	
==>ACKAGE__;

__END__

=pod

=head1 NAME

Blondie::ADTs - Reused abstract data types.

=head1 SYNOPSIS

	use Blondi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	381	491	
==>class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	381	491	
==>class: ) { $class.new( start => undef, end => undef ) }
method is_empty        () returns bool   { ! defined( $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9604	9728	
==>ef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9604	9728	
==>ef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SELF!_die_with_msg( 'LKT_T_FAIL_GE <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7550	7673	
==>dex    = shift;
    
    return unless exists $index->{_dirs} or exists $index->{_files};
    collapse_isolated_dirs($index) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	442	544	
==>ass;
}

# native conversion
sub to_native { @{(shift)} }

# conversion to other types
sub to_str { (shi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3320	3420	
==>:Test::Fail' => {
    is   => [ $::Object ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH(':: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2662	2797	
==>ookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2662	2797	
==>ookie) ?? $cookie.as_string !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6636	6740	
==>v};
  goto shift_reduce_2 if ( $topcat == PGE_OPTABLE_TERNARY );
  goto ternary_error if ( $topcat == PGE <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	14	120	
==>le::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	14	120	
==>le::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	342	450	
==>, { companion => "dest" });
Has($?CLASS, "methods", "Set", { companion => "class" });
Has($?CLASS, "superclas <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4139	4260	
==>defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4139	4260	
==>defined $http_proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10913	11026	
==>any members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10913	11026	
==>any members
were actually new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. <==
2	/Users/nnunley/pugs/util/version_h.pl	2354	2461	
==>unlink "$base/dist/build/src/Pugs/Version.o";
    exit;
  }
} elsif ($revision) {
  print "Not writing $vers <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5353	5476	
==>=0)\
\\n   Any       pre     List::splice  safe   (rw!Array, Int, Int)\
\\n   Any       pre     List::splice  safe   (rw!Arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	245	348	
==>on.

- It currently passes all it's tests.

- The algorithm is a bit simpler than the previous versi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13625	13725	
==>currence_holidays );

- Continuous span

This type os span is used to represent continuous measuremen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13625	13725	
==>currence_holidays );

- Continuous span

This type os span is used to represent continuous measuremen <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18990	19088	
==>ately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applicat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18990	19088	
==>ately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applicat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15359	15477	
==>" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15359	15477	
==>" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $topic? {
      if d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7281	7415	
==>rson_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.buil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7281	7415	
==>rson_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_doc.buil <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1265	1376	
==>imiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameter <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1265	1376	
==>imiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameter <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	791	981	
==>shift;
        my %args = @_;

        my ($root, $pool, $pool_rel, $index, $index_file, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4158	4258	
==>gram runnable by Pugs which will
    introduce Pugs.
  --splashscreen=$splashscreen
    The file refe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	555	657	
==>tatement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	761	863	
==>tatement_exec: BEGIN AST: \n", Dumper( $match->{capture} );
        return $match unless $match->{bool} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9561	9690	
==>r!) returns Relation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13038	13167	
==>r!) returns Relation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the heading of the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3705	3822	
==>flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3889	4006	
==>flag[]
 \x0a \0123 ...
 &    
 $1      - lvalue match variables
 $/ $()  - global match variables 

=head1 METHODS

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2567	2750	
==>";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2567	2750	
==>";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_m <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1405	1508	
==>the same thing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1405	1508	
==>the same thing within a single call, hiding the 
full complexity.

=head3 Procedural interface

The Ciph <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7741	7844	
==>undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7741	7844	
==>undefine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9334	9434	
==>not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9334	9434	
==>not equal C<$set2>.

=head2 C<$set1.subset($set2)>

Returns true if C<$set1> is a subset of C<$set2>. <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13822	13926	
==>ng of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13880	13984	
==>ng of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3712	3901	
==>|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3712	3901	
==>|5 4 3 2 1 0|5 4 3 2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	322	433	
==>n $self->$meth($node);
	} else {
		return $self->generic_reduce($node);
	}
}

sub can_reduce {
	my $self = shift <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4346	4452	
==>es  = map { unpack_smoke($_) } glob "pugs-smoke-*.html";
  my %runcores;
  push @{ $runcores{$_->{runcore}} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10352	10451	
==>ld
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10352	10451	
==>ld
name ($field) is not case sensitive.  To make the life easier for perl
users who wants to avoid q <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3810	3951	
==>a('block')) {
            my $ref = reference->new($val);  
            $closure->env->set('$_' => $ref);          
            $closure->do() <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4642	4730	
==>Max) --> digits_int(Min), !, p5_range_bounds_RHS(Min,Max), !.
p5_range_bounds( 0 ,Max) -- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1026	1134	
==>en traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  B <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1026	1134	
==>en traffic for 90s
  Int $live_timeout  = 120,    # Drop connection when we haven't seen traffic for 120s
  B <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4028	4121	
==>setta version 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4028	4121	
==>setta version 0.724.0.

It also describes the same-number versions of Rosetta::Interface::DBMS <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4247	4367	
==>6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      tak <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4247	4367	
==>6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      tak <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3964	4048	
==>$decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3964	4048	
==>$decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	243	364	
==>od BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	243	364	
==>od BUILD (
    $.start, 
    $.end, 
    $.start_is_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

meth <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	454	588	
==>alue == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    return $FALSE;
}

# conversion to native v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22901	22995	
==>Example object is determined when it is constructed, and the object can
not be changed afterwar <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4935	5057	
==>tes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4935	5057	
==>tes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.defined;
#     ## QUESTION <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21477	21601	
==>>add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17898	18022	
==>>add_handler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8381	8484	
==>"::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8381	8484	
==>"::($m).ref" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11353	11544	
==>les;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11353	11544	
==>les;
                
                my @h = ($key, $val);
                
                @h.push('path', $path);
                @h.push('domain', $domain);
                @h.push('port', <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11483	11588	
==>ode versions of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11483	11588	
==>ode versions of C<.includes()>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8898	9029	
==>ttom: 10px; }

    p, dl, pre, table { margin:      15px; }
    dt    { font-weight: bold; }
    dd+dt { margin-top:  1em;  }
    .l <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12204	12319	
==>ure"] = iscapture
    if iscapture == 0 goto end
    $S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4263	4406	
==>its
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4275	4418	
==>its
                { let $digits := $1 }
=cut

sub match::get {
    my $match =   $_[0];
    my $name =    $_[1];
    
    return $match->{capt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10924	11070	
==>key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10924	11070	
==>key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, *%rest);
                }
            }
        }
    }
    
    method <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2008	2141	
==>base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2008	2141	
==>base = canonpath($base);
        }
        $path = catdir($base, $path);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path <==
2	/Users/nnunley/pugs/util/grokprims.pl	113	226	
==>special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'left-associative infix',
    right => 'rig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13148	13248	
==>zero-width chunk
  # with a boundless quantifier on it
  my ($num, $fmt) = $parser->RPe_NULNUL;

=ove <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7974	8060	
==>rammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->ass <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1799	1885	
==>rammar::Perl6->assign_hash_to_scalar(@_) };
push @statements, sub { Grammar::Perl6->ass <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2836	2941	
==>::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2836	2941	
==>::Interface::Value class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2431	2530	
==>an stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that has the pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2338	2435	
==>an stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that has the pro <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	647	750	
==>(IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_it <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	647	750	
==>(IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_it <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	786	899	
==>Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	786	899	
==>Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4000	4111	
==>".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4000	4111	
==>".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &contin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	901	1040	
==>te_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program);
        print "Error in s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1107	1219	
==>te_statement_exec: eval'ing code:\n###$program###\n";
        no strict 'refs';
        my $code = eval($program) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	857	989	
==>:PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	857	989	
==>:PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when :: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4848	4947	
==>ck

The following are the (pseudo) methods for Config::Tiny objects. These
methods can be called wit <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4848	4947	
==>ck

The following are the (pseudo) methods for Config::Tiny objects. These
methods can be called wit <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7742	7850	
==>e) = @_;
    my $ghc_pkg = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /package-url/;
}

sub _ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1676	1773	
==>w/Blondie::Unit Blondie::Node/;

    package Blondie::Node::List;
    use base qw/Blondie::List Bl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1092	1230	
==>=> $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1092	1230	
==>=> $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, density => $.density ),
               $self.new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	144	255	
==>event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	144	255	
==>event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!seen{./nor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4169	4262	
==>quires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4169	4262	
==>quires these Perl 6 classes that are in the current distribution:
L<Rosetta-(0.722.0...)|Roset <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14271	14372	
==>rough a continuous span, because the "separation" 
between values would be very close to zero:

    $i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14271	14372	
==>rough a continuous span, because the "separation" 
between values would be very close to zero:

    $i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	761	859	
==>resting
# as a perl6 bootstrap path, which was the objective.

# Interest was expressed in developi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6582	6680	
==>{eqiv};
  goto oper_shift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PGE <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	873	987	
==>ian is export {

    # FIXME - missing XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored
        or die "can't ma <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	145	240	
==>nd substitution are used, and
# this brute-force, simplistic, and extremely foolish
# script, ig <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2649	2760	
==>tr $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at leas <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2649	2760	
==>tr $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: Send Connection: close, at leas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5377	5518	
==>ch->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5377	5518	
==>ch->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 postcircumfix:<{}> inf <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	577	683	
==>s should produce the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	577	683	
==>s should produce the same keystream and thus text 
should be enciphered and deciphered the same way.  RC4 a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	641	748	
==>n ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	641	748	
==>n ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}->{str} <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6551	6647	
==>m B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eit <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6551	6647	
==>m B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can eit <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10044	10139	
==>rying 
set properties.

Note that all set functions may end up being calculated using iterations <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10044	10139	
==>rying 
set properties.

Note that all set functions may end up being calculated using iterations <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2974	3089	
==>eturn "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<va <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3823	3938	
==>eturn "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<va <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6372	6537	
==>$todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6430	6595	
==>$todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test::num_of_tests_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5461	5574	
==>_) } @{$type}) . " )") : $type);
	}

	sub unify_type {
		my $self = shift;

		my $node = shift;
		my $expected_typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	850	968	
==>EXPORT) if $pkg;
}


sub new {
  my ($class, $rx) = @_;
  my $self = bless {}, $class;
  $self->init;
  $self->regex($r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8846	8947	
==>bject with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

T <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8846	8947	
==>bject with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2689	2945	
==>$old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2689	2945	
==>$old.ref eq "Scalar";
                }
                
                $!content = $content;
                
                #@!parts = () if $del;
                
                $self!set_content($content, $keep);
                
                retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31336	31445	
==>les from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31336	31445	
==>les from multiple
sets in the same disk directory.  In the first example, the Set Name is
"Foo::L::" and in th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1871	1982	
==>ol {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1871	1982	
==>ol {
    return Bool::False if ! $.span.intersects( $span );

    my $tmp = $self.intersection( $span );
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1	107	
==>se Cipher::Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1	107	
==>se Cipher::Block;
class Cipher::TEA is Cipher::Block;

has int @.key;
my  int $delta is readonly = 0x9e3779 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2254	2423	
==>delete $self->hash_fetch->{$idx};
            },
            hash_existsElem => sub {
                my $self = shift;
                my $idx = shift;
                e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3118	3220	
==>r.)

=item Arcfour is susceptible to related-key attacks.

This means that you should strive to use onl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3118	3220	
==>r.)

=item Arcfour is susceptible to related-key attacks.

This means that you should strive to use onl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25418	25512	
==>tta and the licenses
of the other components concerned, provided that you include the source
co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25418	25512	
==>tta and the licenses
of the other components concerned, provided that you include the source
co <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6974	7133	
==>re3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6974	7133	
==>re3;
    return sub ( $x ) {
        my $n1;
        my $n2 = &{ $closure3 }( $x );
        for ( 0 .. $!arbitrary_limit )
        {
            $n1 = &{ $closu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7208	7310	
==>te limiting
sub limit_rate {
  # Open the DB and lock it exclusively. See perldoc -q lock.
  sysopen my <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2909	3009	
==>{"${who}::AUTOLOAD"} = $self->autoload;
    $self->preload;

    # Unregister loader and worker packa <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4705	4846	
==>rep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4705	4846	
==>rep ($set: Code $select ) {
    return $set.new( 
        closure_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3994	4089	
==>mmentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule MultiLineNotAsteriskChar {  # see 7. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25353	25483	
==>lf = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25912	26042	
==>lf = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    push @$tree, $self;
  }

  sub walk {
    my $se <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7466	7588	
==>NG;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'applicat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7466	7588	
==>NG;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'applicat <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8081	8193	
==>d should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8081	8193	
==>d should be as thorough as 
possible; for example, it should not merely set arrays to C<()>, but loop 
through th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	340	442	
==>'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	340	442	
==>'LKT_ARG_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9518	9643	
==>.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.las <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9518	9643	
==>.port) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.las <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18619	18717	
==>eads, nor have objects in separate
threads try to access the same external resources.>

Rosetta doe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18619	18717	
==>eads, nor have objects in separate
threads try to access the same external resources.>

Rosetta doe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3075	3186	
==>n('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must ascend out <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3075	3186	
==>n('/', @basechunks);

    # $base now contains the directories the resulting relative path
    # must ascend out <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2531	2656	
==>a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2531	2656	
==>a hack
    has PIL $.statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3896	4024	
==>$curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3896	4024	
==>$curnick)) {
      ($curusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The top <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2495	2598	
==>th_0 returns Int { $.month - 1 }
method yy returns Int { die if $.year < 0; $.year % 100 }
method centur <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2809	2896	
==>tives(W, Z) --> "|", p5_concatenation(X), p5_alternatives(union(W,X), Z), !.
p5_alternat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5951	6081	
==>[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5951	6081	
==>[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            re <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2029	2186	
==>lable!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2007	2164	
==>lable!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; return;
    }

    return if e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30278	30379	
==>ow the summary is printed.  Get rid of those damned formats.

=head1 BUGS

HARNESS_COMPILE_TEST curren <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15438	15532	
==>r a variance of needs between its different
users, such as their preferred language of communic <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15438	15532	
==>r a variance of needs between its different
users, such as their preferred language of communic <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6909	7061	
==>list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6909	7061	
==>list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub load_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5837	5950	
==>dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5837	5950	
==>dbms.
    my Rosetta::Interface::Connection $conn
        = $engine.new_depot_connection( %DB_CONFIG{'depot_identi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	100	220	
==>$^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & yea <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	100	220	
==>$^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - check that day is valid for month & yea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20578	20679	
==>lling.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Ba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20578	20679	
==>lling.  For example if you really want a header field name
to show up as C<foo_bar> instead of "Foo-Ba <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10897	11020	
==>$o->data );
    return $f;
  }
}
{
  # ( capturing
  package Regexp::Parser::open;
  sub emit {
    my($o)=@_;
    my $f = $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	708	820	
==>elds in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys %$struc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1192	1304	
==>elds in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys %$struc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1493	1596	
==>s Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@arr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1493	1596	
==>s Perl::Compiler::PIL::Util::Type @.types;
    has Bit $.unbounded;   # the last type represents a *@arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7927	8063	
==>\$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7915	8051	
==>\$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match::Ratc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	402	502	
==>xport { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	402	502	
==>xport { %PARAMS = (); $IS_PARAMS_LOADED = 0; }

sub query_string   returns Str is export { $QUERY_STR <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1751	1874	
==>E__};

not:

    use ${\__PACKAGE__};

END_DIE
}

use Cwd        ();
use File::Find ();
use File::Path ();
use FindBin;

*in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1507	1632	
==>|| '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chun <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1507	1632	
==>|| '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chun <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	423	578	
==>essage.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $numbe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	423	578	
==>essage.new(
                msg_key => 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $numbe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	709	853	
==>col($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	709	853	
==>col($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6393	6531	
==>r(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6393	6531	
==>r(978),
    "piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1351	1463	
==>set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1351	1463	
==>set GET and POST parameters encoding
sub set_url_encoding(Str $encoding) is export {
    unless $encoding eq ('is <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4547	4694	
==>isInvocant">,
            %pad<"isLValue">,   %pad<"isLazy">,
            %pad<"isNamed">,    %pad<"isOptional">,
            %pad<"isWritable">, %p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2896	3171	
==>e Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Valu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2896	3171	
==>e Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	83	181	
==>unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	83	181	
==>unicode character classes, etc
# runtime parameters are: $grammar, $string, $flags, $state

# inter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	404	518	
==>:Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non',
        name => 'postcircumf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3273	3534	
==>( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3145	3393	
==>( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2997	3138	
==>eter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zon <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2997	3138	
==>eter {
         [ <type>? <zone>? <variable> <trait>* <defval>?
         | \[ <signature> \]
         ]
}


regex type { yada type }
regex zon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1018	1143	
==>flict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1018	1143	
==>flict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3932	4035	
==>r example, the <Pos1> and <End> keys working, we need a terminfo
    file.
  --linuxrc=$linuxrc
    --li <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2052	2149	
==>t $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2052	2149	
==>t $one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	380	560	
==>template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	380	560	
==>template,
            conter       => $.counter,
            parent       => $?SELF,
            parent_ident => $ident,
            state        => %.state,
        );
        $ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8147	8257	
==>ective, followed by any text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8147	8257	
==>ective, followed by any text on the same line.

=item I<start_element ('verbatim')>

This event is fired once a <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	933	1045	
==>d;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^: <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	933	1045	
==>d;
    return %opts;
}


sub hashify (Str $spec is copy) returns Hash {
    my @with_args = $spec ~~ rx:P5:g/([^: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17745	17855	
==>the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains inf <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17745	17855	
==>the request.  I<E.g.>:

  $h.user_agent = 'Mozilla/1.2';

=item $h.server

The server header field contains inf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	113	259	
==>is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submeth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	113	259	
==>is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has $.request   is rw;
    
    submeth <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	747	853	
==>() ,} }
RULE
*{'grammar_name'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    grammar <p6ws> <iden <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2833	2951	
==>rn $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2833	2951	
==>rn $self.new( 
        closure_next =>        $self._get_union( $self.closure_next, $set.closure_next, -1 ),
        cl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10560	10684	
==>ubst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10560	10684	
==>ubst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = "su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5123	5249	
==>eck( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $inst_pkg = JIB::Package->new(meta => $pkg->meta, i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23108	23232	
==>rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'unlessm',
      dir => $dir,
      data => \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3476	3570	
==>e_object(anyof_char_comp => "\f", '\F') if $cc;
    return $S->object(exact_comp => "\f", '\F') <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2491	2584	
==>ndard output of the script
without altering the behavior otherwise.  The F<prove> utility's C< <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10598	10691	
==>(horizontal_space))  --> "\\H", !.
p6_char_class(class_pos(vertical_space))    --> "\\v", !.
p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18704	18836	
==>:Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other!body ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12817	12918	
==>ft available for extensions.  Please
refer to L<perldiag> for the explanations of the messages.

These <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9666	9789	
==>r  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9666	9789	
==>r  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6299	6398	
==>nished' flag in the returned match, 

that makes it return until the start of the rule, which unsets <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6094	6192	
==>nished' flag in the returned match, 
that makes it return until the start of the rule, which unsets <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4717	4819	
==>ale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $db <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4717	4819	
==>ale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $db <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	637	738	
==>the data structure that the Parser generates

  (link to wikipedia?)



* DSL Domain-specific-language <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	605	703	
==>the data structure that the Parser generates
  (link to wikipedia?)

* DSL Domain-specific-language <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8143	8277	
==>@blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8143	8277	
==>@blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASS <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2567	2684	
==>on( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2567	2684	
==>on( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $self.get_universe;
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2699	2834	
==>ACKAGE__->add_rule( 
        name => '<=',
        assoc => 'left',
        precedence => 'equal',
        other => 'eq',
    );
    __P <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2206	2302	
==>m Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2206	2302	
==>m Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data aren <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6482	6583	
==>lume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6482	6583	
==>lume, $base_directories) = splitpath($base, 1);
        $path = catpath($base_volume, catdir($base_dir <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8147	8289	
==>cks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8147	8289	
==>cks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	7128	7331	
==>m/^\s*package\s+($pkg)\s*;/i ) {
                    $pkg = $1;
                    last;
                }
            }
            close PKGFILE;
        }

        push @found, [ $file, $pkg ];
    }, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4000	4108	
==>utput')->write( $test->report() );
        }
    }
};

require "lib/TestBuilder/TestPlan.pm";
require "lib/Te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25160	25255	
==>f Rosetta give you permission to link Rosetta with other free software
components, as defined by <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25160	25255	
==>f Rosetta give you permission to link Rosetta with other free software
components, as defined by <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6094	6231	
==>@x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6094	6231	
==>@x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26957	27052	
==>t> but that the returned Relation has
the complement subset of the original's attributes to what <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31509	31604	
==>t> but that the returned Relation has
the complement subset of the original's attributes to what <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15300	15411	
==>e parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15300	15411	
==>e parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node thi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24127	24226	
==>empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28679	28778	
==>empty Set, the
Relation has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13121	13250	
==>an of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of date <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13121	13250	
==>an of 10 up to 20:

    $int_span = Span.new( :int, start => 0, end => 10 );
    #  [10,20]   11 things
    
Create a span of date <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11002	11107	
==>ext;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11002	11107	
==>ext;
    return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5679	5807	
==>d");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpd <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5679	5807	
==>d");
#    my $cwd = @retval[0];
#    chomp($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2210	2409	
==>t unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2210	2409	
==>t unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scalar";
                    
                    return $old <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	944	1079	
==>t)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	944	1079	
==>t)

    # Attributes of every Locale::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	697	828	
==>because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 72 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	697	828	
==>because the bucket with a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 72 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10036	10150	
==>an1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10036	10150	
==>an1.span );
    # return @span0.map:{ $self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7947	8085	
==>nly die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7947	8085	
==>nly die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	340	454	
==>::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	340	454	
==>::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    has Str $.file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	521	693	
==>e {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	521	693	
==>e {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!params{$name} = @vals;
                return $query <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16786	16885	
==>$span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16786	16885	
==>$span )` 

Returns a list os Spans. The list may be empty, if the spans don't intersect. 
Otherwise, <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	841	949	
==>is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }! <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	841	949	
==>is export {
    my $return = $template;
    $return ~~ s:g! <elem> | <block> !{ run_widget($/, %variables) }! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4163	4301	
==>$_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4356	4494	
==>$_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{captu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2394	2489	
==>ype $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2394	2489	
==>ype $.codetype;
    has Perl::Compiler::PIL::Util::Signature $.signature;
    has Perl::Compiler <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10650	10759	
==>nfo->rep_type;
    if($vars eq "") {}
    elsif($rep eq 'string') {}
    elsif($rep eq 'hash') {
	$code .= " m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	797	900	
==>utput = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	797	900	
==>utput = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/let1.pl	83	195	
==>prim ist
}

sub search_prim_within( $count ) {
	my @numbers := $prim...$prim+$count :by(2);
	let $prim;
	
	for @n <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13721	13823	
==>tionship.  There may end up being a gotcha, where one needs
  something to happen or not happen, but th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9381	9773	
==>xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.s <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9381	9773	
==>xx.shift]);
                        }
                        if defined any(@x) {
                            for @lists -> $xx {
                                yield &*shift(@x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11356	11492	
==>defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11356	11492	
==>defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    fo <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5581	5778	
==>@dirs+1) / 3)+1;
$template->param(directories => [ map { { title => $_,
                                          wrap  => !(++$i % $c),
                                        }} @dirs ]);
$templat <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	592	689	
==>e} install' to install.\n";

# make an educated guess of whether we'll need root permission.
print <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3704	3801	
==>This class represents an ordered set of spans.

It is intended mostly for "internal" use by the Se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3704	3801	
==>This class represents an ordered set of spans.

It is intended mostly for "internal" use by the Se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3934	4066	
==>);
            push @{_('@:results')} => $test;
            _('$.output')->write( $test->report() );
        }
    }
};

require "lib <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6797	6908	
==>ious - not document ?

...



- rule()



### internals - move to module documentation



Rules, just like other <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6568	6672	
==>ious - not document ?
...

- rule()

### internals - move to module documentation

Rules, just like other <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	802	970	
==>Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	802	970	
==>Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	456	580	
==>to_native;
    my @seqs = (
        list->new($self->{class}),          # the class we are linearizing
        (map { $_->sen <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	576	668	
==>:Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	576	668	
==>:Node $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1463	1597	
==>'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'B <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1463	1597	
==>'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Implemented',
        502 => 'B <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	405	549	
==>parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	405	549	
==>parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        my $line = $fh.readline;
        last unless $line <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2728	2829	
==>me key, the encryption 
can be removed by XORing them together; you might not be able to derive the 
p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2728	2829	
==>me key, the encryption 
can be removed by XORing them together; you might not be able to derive the 
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15846	16012	
==>1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16125	16291	
==>1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
;
*{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3340	3433	
==>ssert_bol>|<assert_eol>|<lookahead>|<lookbehind>|<word_boundary> }
rule assert_bos  { \^ }
rul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2122	2220	
==>(but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2122	2220	
==>(but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mark ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15683	15779	
==>=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15683	15779	
==>=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta::Model::Node - This stores an ordered l <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	612	728	
==>notator_class->new;
}

sub annotate {
	my $self = shift;
	$self->annotator->annotate($self, @_);
}

sub emitter_class <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	845	954	
==>gs, @_ ) if @_;
    $args;
}

# For mm args that take multiple space-seperated args,
# append an argument to t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11225	11370	
==>g' );
            }
        }
    } elsif (defined $args{progfile}) {
	$runperl .= qq( "$args{progfile}");
    } else {
	# You probaby didn't want <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1441	1535	
==>l_args"
    if $ENV{PUGS_RUNTIME} and $ENV{PUGS_RUNTIME} eq 'JSPERL5';
$ENV{HARNESS_PERL}  = "$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3747	3891	
==>it at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3747	3891	
==>it at some point    
    my $path = $_path;
    $path ~~ s:perl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7343	7457	
==>bs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7343	7457	
==>bs
# Parse the code by `use/no *::Compiler`
# Build an AST
# Reduce the AST until fully reduced
# Return the result <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2256	2409	
==>rst!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2256	2409	
==>rst!
  my %users;               # Stores the channels a user is on. Note: As with
                           # %channels, hash keys are always normalized( <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	308	400	
==>aesar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	308	400	
==>aesar implements simple byte-level modular addition ciphers, including 
rot13, the Caesar cip <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22958	23060	
==>oach over similar packages is that
text is always looked up by a key which is not meant to be meaningfu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22958	23060	
==>oach over similar packages is that
text is always looked up by a key which is not meant to be meaningfu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5092	5223	
==>e how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'd <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5092	5223	
==>e how to talk to our database and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5328	5445	
==>tale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5328	5445	
==>tale_content () {
    undefine($!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	902	1000	
==>n. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=it <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	902	1000	
==>n. It also 
attempts to provide some useful defaults for debugging.

=head1 FUNCTIONS

=over 4

=it <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27905	28013	
==>r_name! )>

This method returns the Message Variable value (a string) associated with
the variable name speci <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27905	28013	
==>r_name! )>

This method returns the Message Variable value (a string) associated with
the variable name speci <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3218	3453	
==>atim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>(' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3218	3453	
==>atim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>(' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5151	5287	
==>mber to update t/pugsrun/11-safemode.t if you change the fully
    # qualified name of longmess.
    multi sub longmess (; $e = '') retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20326	20420	
==>users could do,
although program package installers usually do it.  An os-level preference
/ co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20326	20420	
==>users could do,
although program package installers usually do it.  An os-level preference
/ co <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	73	168	
==>- datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recu <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	73	168	
==>- datetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2496	2633	
==>d clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2496	2633	
==>d clone         ( $self: ) { $self }  --- auto generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Scalar.pm	213	364	
==>:value' ],
        methods => {
            'scalar_fetch' => sub {
                (shift)->get_value('$:value');
            },
            'scalar_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	0	130	
==>package Pugs;







1;





### There is too much in this file 

### separate into:

- Introduction

- Documentation Index

- Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	0	119	
==>package Pugs;



1;


### There is too much in this file 
### separate into:
- Introduction
- Documentation Index
- Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1627	1720	
==>1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE AL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1627	1720	
==>1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE AL <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	466	587	
==>next if __PACKAGE__->can($1);

        no strict 'refs';
        push @EXPORT, $1;
        *{$1} = sub { $class->new(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9538	9636	
==>th walker()Z<>:

  my $iter = $parser->walker;

This will produce an iterator that will traverse th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8756	8855	
==>ck>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8756	8855	
==>ck>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. 1995, published by 
John Wi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	637	740	
==>value.. this allows subdirs to 'change' magically if a rootdir gets changed

### base dirs
### XXX touch <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21901	21997	
==>::Internals::compile_file_to_yml($file) is builtin is unsafe {
    # XXX - re-enable this when Pa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16278	16369	
==>($.if) = { generic_in($$) }
cond: generic_in($.then) = { generic($.if) }
cond: generic_in($. <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4533	4636	
==>but that's simple too, and the
# difference won't matter for the spike target.

sub def_thing {
  my($ar <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11147	11304	
==>imiter (provided only one delimiter was specified)
      my $reopts   = $9;
      $rest        = $10;
      
      $linkfile = $1 if ($linkfile =~ /^"(.*)"$/) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14855	14948	
==>tiveExpression> <'*'> <UnaryExpression>
    | <MultiplicativeExpression> <'/'> <UnaryExpressio <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14912	15005	
==>tiveExpression> <'/'> <UnaryExpression>
    | <MultiplicativeExpression> <'%'> <UnaryExpressio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6752	6911	
==>() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6752	6911	
==>() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23147	23248	
==>p in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23147	23248	
==>p in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	236	340	
==>RG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1094	1198	
==>RG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13677	13786	
==>($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } split <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6393	6489	
==>);
	my $code = code_for_code_CODE(name=>$name,kind=>$cls,params=>$argl,
				      body=>$body,lva <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2751	2956	
==>pan::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2751	2956	
==>pan::Int.new( :start($start), 
                                    :end($end), 
                                    :density($density) );
        }
        else
        {
            $.span = Span::Int.empt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40146	40241	
==>the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40146	40241	
==>the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

A <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9608	9710	
==>cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9608	9710	
==>cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	318	444	
==>}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exist <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	318	444	
==>}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exist <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1122	1235	
==>]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_subma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1122	1235	
==>]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_subma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6868	7019	
==>'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $fh $s1;\n"
            if $s1;
    }
    return $s . "$cmd $fh \"\\n\";\n" 
        if $op eq 's <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	190	289	
==>even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	190	289	
==>even use the plaintext.  I suppose that means it's a 
perfect cipher--it's impossible to retrieve th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26818	26922	
==>arameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26818	26922	
==>arameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1542	1651	
==>Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1542	1651	
==>Variable> { use v5; return $<Variable>() }
    | <Constants> { use v5; return $<Constants>() }
    | <ArrayRef <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7528	7676	
==>p::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7721	7869	
==>p::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ru <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	472	648	
==>IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	472	648	
==>IO' ) {
                %self<_err_str> = "Failed to open '$file' for reading" and return FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1938	2040	
==>us::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDAT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1938	2040	
==>us::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDAT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16731	16832	
==>he C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16731	16832	
==>he C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the result into a
F<MyModule.pm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15117	15292	
==>a,
      on => $on,
      off => $off,
      down => 1,
    }, $class;
  }

  sub on {
    my $self = shift;
    $self->{on};
  }

  sub off {
    my $self = shift;
    $self-> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24926	25051	
==>ack

=cut


1;
__END__


=head1 EXPORT

C<&runtests> is exported by Test::Harness by default.

C<$verbose>, C<$switches> and C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1634	1725	
==>::Nodes> and some
more objects.

They provide stringification, fmapping and value encapsulat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2795	2889	
==>example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2795	2889	
==>example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18272	18376	
==>bot.run()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18272	18376	
==>bot.run()>

Starts the main runloop, which is only exited if the connection to the server
dies. To read d <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6257	6363	
==>T tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6257	6363	
==>T tree";
    $self.parent().get_all_children();
}

method add_sibling ($self: Tree $sibling) returns Tree { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	937	1039	
==>om Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub ne <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	937	1039	
==>om Module::Compile but still want to do this sort
# of thing.
sub pmc_is_compiler_module { 1 };

sub ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5605	5745	
==>atch->() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5605	5745	
==>atch->() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5533	5658	
==>e_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5533	5658	
==>e_next }( -$x ) }, 
        complement_next =>     sub ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complemen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26786	26890	
==>s of the invocant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31338	31442	
==>s of the invocant
Relation.  This method has an alias named C<select>.

=item C<project_all_but (Set of S <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1988	2094	
==>args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{aut <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4223	4329	
==>args{_self} if $args{_self};

    $args{dispatch} ||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{aut <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25331	25431	
==>ml>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the li <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25331	25431	
==>ml>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and the li <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16464	16591	
==>ve p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16464	16591	
==>ve p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    module MyModule;
    # ...some p6 code here. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3403	3586	
==>le->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3543	3726	
==>le->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9414	9754	
==>f grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        retu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10891	11231	
==>f grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14120	14220	
==>nel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14120	14220	
==>nel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7313	7417	
==>inish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until they have an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7313	7417	
==>inish>; ciphers and returns any pending data.  Block 
ciphers should buffer input data until they have an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3450	3568	
==>);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3450	3568	
==>);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {}}) {
	my $param = $self->named- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13536	13684	
==>now it's type
ide: type($$) = {
	my $t = env($$)->{$.v};

	die "no such identifier " . $.v unless defined $t;
	
	$t;
}

# values also pass the set of <==
2	/Users/nnunley/pugs/util/grokprims.pl	2367	2489	
==>op->{args}}) {
    print "<td>$arg</td>";
  }
  print "</td></tr></table>";
  print "<td>)</td>";
#  print "<td>Prim.hs lin <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3048	3146	
==>al', 'VBool' , 'value' ,'unk';
node_a 'Val', 'VInt'  , 'value' ,'unk';
node_a 'Val', 'VRat'  , 'val <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4583	4688	
==>rbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a string, the m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4583	4688	
==>rbitrary
objects returned from the rule using a C<return> clause.

=head2 ""

When used as a string, the m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10236	10349	
==>if ($is_macos) {
	    $runperl .= ' -I::lib';
	    # Use UNIX style error messages instead of MPW style.
	    $run <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3447	3551	
==>ler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3447	3551	
==>ler::POD - A collection of POD event handlers for Pod::Event::Parser

=head1 SYNOPSIS

  use v6;
  use Po <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8558	8746	
==>> 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8558	8746	
==>> 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5648	5796	
==>r globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5648	5796	
==>r globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'lo <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	636	753	
==>t OUT "\"\n";

sub dump_file {
    my $file = shift;

    local *IN;
    open IN, "< $file" or die "Cannot open $file: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3963	4081	
==>'\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1270	1388	
==>'\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1268	1395	
==>lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to us <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1268	1395	
==>lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to us <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6721	6947	
==>.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6721	6947	
==>.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11109	11204	
==>ent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11109	11204	
==>ent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B<child <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2000	2097	
==>ead1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPS <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2000	2097	
==>ead1 NAME

HTTP::Query - Class designed to allow easy manipulation of query strings

=head1 SYNOPS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	464	566	
==>x = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	464	566	
==>x = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13405	13501	
==>ly.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13405	13501	
==>ly.

=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14348	14525	
==>ant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14627	14804	
==>ant( "pod" )
             ,
               ruleop::constant( "head1" )
             ,
               ruleop::constant( "kwid" )
             ,
               ruleop::constant( "f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12824	12946	
==>n}" }
    else { "{$min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1089	1230	
==>ray ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1089	1230	
==>ray ref as expected,]
           ~ q[ but one of its elements is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_AR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	52	204	
==>pe>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	52	204	
==>pe>;

class HTTP::Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18098	18197	
==>d be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18098	18197	
==>d be
machine-usable, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4139	4237	
==>wline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4139	4237	
==>wline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@new) is rw { <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1445	1541	
==>ExtUtils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1365	1457	
==>ExtUtils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1128	1246	
==>}
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1131	1239	
==>}
#~ }

sub foo () {
    say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "par <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24837	24942	
==>the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24837	24942	
==>the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Ros <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10680	10869	
==>e.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10680	10869	
==>e.new(:node<2.1.1>).add_children(
                  Tree.new(:node<2.1.1.1)
              ),
              Tree.new(:node<2.1.2>),             
          )
      )        
  );
  
  $root.tr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9180	9316	
==>::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10657	10793	
==>::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions
        ### defaults t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	137	240	
==>",
    "$Bin/../Pugs-Compiler-Precedence/lib",
;

use Pugs::Compiler::Perl6;
#use Pugs::Utils::Dump;
use <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5804	5930	
==>r functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5804	5930	
==>r functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method previous ( $x ) { 
    return $.closu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11034	11139	
==>document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<head <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11034	11139	
==>document_root returns Str>

=item B<script_name returns Str>

=back

=head2 Utility

=over 4

=item B<head <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8137	8241	
==>ds {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8195	8299	
==>ds {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) {
        s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6915	7019	
==>6 values, exists in 'boxed' 

and 'unboxed' versions. 



The rule() constructor provides an interface be <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6679	6780	
==>6 values, exists in 'boxed' 
and 'unboxed' versions. 

The rule() constructor provides an interface be <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8199	8346	
==>niverse.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8199	8346	
==>niverse.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14864	14985	
==>$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9064	9185	
==>$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_space' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	192	348	
==>ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	192	348	
==>ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::constant( "\(" ) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6502	6651	
==>($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1207	1324	
==>_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1207	1324	
==>_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m->{label} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8050	8177	
==>e::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8038	8165	
==>e::Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2720	2894	
==>return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2720	2894	
==>return;
}

###########################################################################

my sub _show_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13764	13897	
==>{ map { $_ => 1 } split /\s+/, $todo } if $todo;

            if( $self->{max} == 0 ) {
                $reason = '' unless defined $s <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1055	1155	
==>*@subscriptions of Class::Events::Subscription) {
        map { Class::Events::Notification.new(:subs <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1652	1748	
==>e Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1652	1748	
==>e Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7425	7556	
==>t'} = $?;
    if( $? && $self->{_is_vms} ) {
        eval q{use vmsish "status"; $results{'exit'} = $?};
    }
    else {
        $r <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6918	7036	
==>ildren($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you are just inserting
# and arra <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6918	7036	
==>ildren($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you are just inserting
# and arra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	620	722	
==>s a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invit <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	620	722	
==>s a event handler listening
for C<INVITE>. When it is triggered, the bot joins the channel it was invit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15688	15779	
==>nsidered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15688	15779	
==>nsidered stale.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fiel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10709	10858	
==>s;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10703	10852	
==>s;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2132	2252	
==>]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_[0];

    ($extract <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2049	2163	
==>]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_[0];
    ($extract <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1383	1478	
==>ns My/State/Temp markers for container

allocation, as well as the compile-time-bound values for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1323	1417	
==>ns My/State/Temp markers for container
allocation, as well as the compile-time-bound values for <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1614	1715	
==>en launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; tha <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1454	1555	
==>en launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; tha <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	240	345	
==>l_version = shift;
    die "Install version must be 5 or 6 for WritePugs"
      unless $install_version =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5123	5256	
==>"var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5123	5256	
==>"var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return constan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1126	1249	
==>ure => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1137	1260	
==>ure => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\!(.*?) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2808	2910	
==>1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep) <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2808	2910	
==>1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$.year, $.month, $.day].join($sep) <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	71	185	
==>ugh one may wish to overwrite a limited piln version with a more
# general p6 one after bootstrap).  Or spec code w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	206	309	
==>ML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	206	309	
==>ML::Dump($_[0])}],
	p5  =>  ['Data::Dumper',\&p5],
	xml =>  ['XML::Generator',\&xml]
);
sub xmlify {
	my <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1194	1301	
==>ngify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ? <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1194	1301	
==>ngify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) returns Bool {
    ? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21347	21444	
==>005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21347	21444	
==>005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it an <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	877	983	
==>e::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	877	983	
==>e::KeyedText::Message class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Ke <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18686	18783	
==>hat the core expects to avoid problems.  While simultaneously
trying to avoid triggering core beha <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2976	3073	
==>hat the core expects to avoid problems.  While simultaneously
trying to avoid triggering core beha <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9527	9649	
==>e, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9527	9649	
==>e, then we 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4973	5085	
==>nless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4973	5085	
==>nless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25308	25438	
==>{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    pus <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25867	25997	
==>{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  sub insert {
    my ($self, $tree) = @_;
    pus <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	662	792	
==>f;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls,$name,$prec)=@_;
    $name = "$name";
    $pr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1859	1953	
==>ap &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1859	1953	
==>ap &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7852	7949	
==>ernal structures.

Cipher authors should assume that if this method is being called, the Secret 
P <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7852	7949	
==>ernal structures.

Cipher authors should assume that if this method is being called, the Secret 
P <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10653	10755	
==>person' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10653	10755	
==>person' table, whose 'id' field matches the functions 'person_id'
    # argument, and returns that as a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38518	38617	
==>able name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'plac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38518	38617	
==>able name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'plac <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	162	266	
==>rsion to other native types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_no <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	282	380	
==>gs atm

## Chapter 8 section 1.3

sub tokens(Code *$input, Str *$label, Str $pattern, Code $maketok <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12751	12854	
==>");
     $output .= "\n";
  }
  $template->param("tests", $output);
  my $tres = $test_results->{results <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18375	18475	
==>tem-managed locks so that resource corruption or application
failure is prevented.  I<Also, Rosetta s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18375	18475	
==>tem-managed locks so that resource corruption or application
failure is prevented.  I<Also, Rosetta s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	931	1029	
==>het - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	931	1029	
==>het - Match object created by :ratchet rules

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21525	21635	
==>offset
 #define check_substr     substrs->data[2].substr
 #define check_utf8       substrs->data[2].utf8_substr <==
2	/Users/nnunley/pugs/util/testgraph.pl	641	738	
==>P::HTMLMatrix->new($tap, Dump($data));
$v->has_inline_css($Config{inlinecss});

my $fh;
if (my $ou <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5940	6040	
==>:Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5940	6040	
==>:Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns S <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	515	684	
==>kage_prefix  package_authority   package_name  package_version
            list_dependencies  dependency_satisfied   dependency_satisfied_by               
        ];


$ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8870	8977	
==>es[$_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24926	25019	
==>USA.

Linking Rosetta statically or dynamically with other components is making a
combined wor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24926	25019	
==>USA.

Linking Rosetta statically or dynamically with other components is making a
combined wor <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	891	1005	
==>$self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	891	1005	
==>$self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> $x { %!members{$self._stringify($x) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3239	3389	
==>my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3239	3389	
==>my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8939	9041	
==>rchive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8939	9041	
==>rchive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta::Model" in
yo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8208	8332	
==>check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8208	8332	
==>check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1572	1732	
==>ey  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _sho <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1572	1732	
==>ey  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    }
    else {
        _sho <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24422	24538	
==>o_perl {
    my($x)=@_;
    return 'undef' if !defined $x;
    my $s = eval {p6_as_str($x->perl)};
    defined $s ? $ <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	178	279	
==>}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() { <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	178	279	
==>}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3237	3355	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method con <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3237	3355	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method con <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12829	12926	
==>], !.
p6_named_character_tail([C,T],Close) --> [C], p6_named_character_tail(T,Close).


brackets(" <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4581	4692	
==>ib/script/$pugs";
}

sub warn_cygwin {
    if ($^O eq 'cygwin') {
        warn << "."
** Note that Cygwin suppor <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3971	4107	
==>es listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "ye <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3971	4107	
==>es listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "ye <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1059	1166	
==>s {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use_means_n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1059	1166	
==>s {}, shift;
}

# This is called to determine whether the meaning of use/no is reversed.
sub pmc_use_means_n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34473	34576	
==>ember Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34473	34576	
==>ember Names is set from the named parameter
@member_names (an array ref).

Some example usage:

    my L <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1334	1483	
==>script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            m <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1334	1483	
==>script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10073	10171	
==>ed to facilitate the
testing of those features. For more information see the FUTURE PLANS
section o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10131	10229	
==>ed to facilitate the
testing of those features. For more information see the FUTURE PLANS
section o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8338	8444	
==>nfinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CON <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8338	8444	
==>nfinite object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CON <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4572	4675	
==>$span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.interse <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4572	4675	
==>$span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp = $span0.interse <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16067	16175	
==>->{$name}},$m1);# sigh,
  #  twice: once for inline code, once for the final Match tree.
  return $v;
}
}
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1448	1568	
==>n for Perl 6 regexes that use the "Perl5" switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6122	6260	
==>.
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6122	6260	
==>.
        "$_[1]     }\n" .
        "$_[1] )\n";
}
sub named_capture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29919	30018	
==>a-stuffed hash
and an accessor method to read values from it by key.  Each template hash
key corresp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29919	30018	
==>a-stuffed hash
and an accessor method to read values from it by key.  Each template hash
key corresp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12042	12153	
==>handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12042	12153	
==>handler{$code} {
      $_($event) for *%!handler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6191	6315	
==>start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object rep <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6191	6315	
==>start;
    return $x      if ! $.start_is_open && $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Num - An object rep <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20934	21025	
==>hannel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20934	21025	
==>hannel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt>("nick" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	760	863	
==>) because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	760	863	
==>) because it is non-standard.

2005-08-08
* New lazy array methods: FETCH(), STORE(), fetch_slice().
  s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3431	3533	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3431	3533	
==>class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Variable <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4374	4473	
==>are ignored.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Sin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4374	4473	
==>are ignored.

When writing back to the config file, any comments are discarded.

=head1 METHODS

Sin <==
2	/Users/nnunley/pugs/util/addauthors.pl	389	484	
==>per $authors;

foreach my $c (sort {$comitters{$b} <=> $comitters{$a}} keys %comitters) {
  prin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1440	1580	
==>string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.q <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1440	1580	
==>string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.q <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	334	442	
==>s class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently define cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	334	442	
==>s class hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently define cla <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	545	667	
==>::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### X <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1029	1151	
==>::Check->last_error), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### X <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3977	4122	
==>is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3977	4122	
==>is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () retur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12777	12875	
==>the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12777	12875	
==>the recurrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9588	9711	
==>tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table, which is populat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9588	9711	
==>tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' table, which is populat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6392	6524	
==>m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6392	6524	
==>m:i,^\s*message/,) {
        $self!set_content(@!parts[0].as_string($CRLF), 1);
        return;
    }
    
    my @v = HTTP::Headers: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6691	6787	
==><users>.delete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6691	6787	
==><users>.delete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>)}<channels <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9729	9844	
==>et2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9729	9844	
==>et2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with arrays
  say ~([1,2,3] <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24078	24176	
==>and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28630	28728	
==>and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation has zero attributes.  If C <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6433	6536	
==>not add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6433	6536	
==>not add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	378	493	
==>is is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	378	493	
==>is is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1142	1251	
==>oodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1142	1251	
==>oodcontrol = 0,      # Check that we don't flood excessively
  Bool $debug_raw = 0,
) is export {
  my $connec <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2288	2441	
==>uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2288	2441	
==>uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15142	15247	
==>($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original con <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15142	15247	
==>($text);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1079	1212	
==>e} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1035	1162	
==>e} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23245	23354	
==>When a scope is entered, the top
value is copied and pushed onto the stack.  When a scope is left, the
top val <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6560	6663	
==>ex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \\%s", 'brace', "x$1") if ${&Rx} =~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3416	3518	
==>is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3416	3518	
==>is specific to Locale::KeyedText itself:

    'LKT_T_FAIL_LOAD_TMPL_MOD'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	397	487	
==>mpiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	397	487	
==>mpiler::Rule->compile(q( \{ [<block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14994	15089	
==>r $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14994	15089	
==>r $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  method privmsg(Str <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	790	894	
==>l>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC (C<irc.fre <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	790	894	
==>l>.

The Pugs project was started on February 1st 2005.  It is under active
development on IRC (C<irc.fre <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13021	13123	
==>tions both take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13079	13181	
==>tions both take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4217	4313	
==>a section, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

L <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4217	4313	
==>a section, it will be assigned to the root
section, available at C<$configE<lt>dataE<gt>{''}>.

L <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	914	1043	
==>pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.te <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	914	1043	
==>pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.te <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3041	3155	
==>program);

    # or more conveniently

    my $r = Blondie::Backend::Foo->new;
    my $compiled = $r->compile($prog <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12499	12610	
==>temp file, then mv
    my @prev  = @{ $self->available };
    my @avail = grep { $_->package ne $inst_pkg->packa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5043	5150	
==>Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5043	5150	
==>Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7472	7567	
==>EE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1700	1795	
==>EE ALSO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1480	1628	
==>ded for our 
    ### param checking too
    my $tmpl = {
        %$acc,
        installation    => { allow => ISA_JIB_INSTALLATION },
        reposit <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3383	3503	
==>r.elems ?? Control::Caller.new(
        package => @caller[0],
        file    => @caller[1],
        line    => @caller[ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3914	4015	
==>outer group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3914	4015	
==>outer group, and
the fifth match of the inner group).  XXX wrong; they should be "flat".

=cut

method <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24505	24616	
==>str($x->perl)};
    defined $s ? $s : p6_as_str($x);
}

sub p6_defined {
    my($x)=@_;
    return 0 if !defined <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15978	16072	
==>5+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation fil <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15978	16072	
==>5+ years, along with Codd himself (some are listed in the
L<Rosetta::SeeAlso> documentation fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20684	20833	
==>@statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20963	21112	
==>@statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::altern <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14049	14155	
==>class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8254	8360	
==>class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2274	2387	
==>ays succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what thes <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2274	2387	
==>ays succeed.  When backtracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what thes <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	754	929	
==>bject gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    h <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	754	929	
==>bject gets
                  allocated when you enter a new rule or parenthesized
                  group.

=cut

our class Result {
    has $.backtrack;
    has $.marks;
    h <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6715	6814	
==>and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

G <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6715	6814	
==>and stores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

G <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6796	6958	
==>$self->config;
    my %hash = @_;
    
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        al <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12881	13038	
==>$self->config;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmpl = {
        package => { required => 1, store => \$inst_pkg, 
                        al <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2556	2661	
==>_;
    my @todo;
    for my $stage (reverse $self->_stages) {
	last if defined $self->{$stage};
	push(@tod <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17662	17747	
==>| <BitwiseORExpressionNoIn> <'|'> <BitwiseXORExpressionNoIn>
}
rule LogicalANDExpressi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23007	23116	
==>)
    self[0] = exp
    pad[mname] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6an <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26414	26520	
==>og::Yaswi::Low::args = ($Language::Prolog::Yaswi::Low::args[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:q <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7326	7548	
==>',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7383	7605	
==>',
            'BSD'                                             => 'bsd',
            'Artistic'                                        => 'artistic',
        );
        while ( my ( $pattern, $license ) = splice( @phrases <==
2	/Users/nnunley/pugs/misc/S29_round.pl	367	501	
==>Num $x ) {
    my $x_round;

    # round .5 up above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <  .5) && ($ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2486	2717	
==>ined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= " <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2486	2717	
==>ined($_line)             && 
                              !($_line ~~ rx:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= " <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15693	15804	
==>dy ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19170	19281	
==>dy ),
    );
}

my method _exclusion (Relation $other!) returns Relation {
    return Relation.new(
        head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1822	1962	
==>ature => [ $_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signatu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6461	6564	
==>t_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6461	6564	
==>t_is_open => Bool::False, end_is_open => Bool::False );

= DESCRIPTION

This class represents a single s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10284	10405	
==>" => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10284	10405	
==>" => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	9836	9949	
==>owing
      command as root:
      # mount -o loop -t ext2 $initrd_img $initrd_mnt
HELP

  my @dirs = map { "$init <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11796	11891	
==>er the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Unti <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11854	11949	
==>er the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Unti <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10725	10843	
==>his was our old TODO handler
            #print("        $test{todo}/$test{max} TODO test" . ($test{todo} > 1 ? "s" : " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1407	1521	
==>traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1407	1521	
==>traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last ping se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1	96	
==>use v6;
module Pod::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Ha <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1	96	
==>use v6;
module Pod::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Ha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1462	1582	
==>hem.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Num <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1462	1582	
==>hem.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2856	3001	
==>tches[0] = $nodes[0]->( $tail, $state[0], $flags );

            ### 1st match: $matches[0]

            return $matches[0] 

                if $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2761	2903	
==>tches[0] = $nodes[0]->( $tail, $state[0], $flags );
            ### 1st match: $matches[0]
            return $matches[0] 
                if $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1777	1910	
==>lse }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1777	1910	
==>lse }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2810	2923	
==>e>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2810	2923	
==>e>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single array ref as an arg list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3875	4005	
==>s::Grammar::Term.ident>
                { return { array => "\@" . $_[0]->() ,} }
            ) ),
        '%' => Pugs::Compiler::R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1243	1360	
==>::Tidy::perltidy( source => \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl5_tidy;
      }
    }

    r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3639	3792	
==>hift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4103	4256	
==>hift;
        my $index   = shift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	515	618	
==>rovides {
    die "virtual method 'provides' called on @_";
}

sub run {
	die "virtual method 'run' call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2224	2347	
==>n 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2224	2347	
==>n 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1492	1607	
==>r $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $ch <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1492	1607	
==>r $proto  = $2 || '';
    return( $method, $uri, $proto );
}

method parse_headers {
    my @headers;
    my Str $ch <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20806	20903	
==>er_field_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUG <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20806	20903	
==>er_field_names and the $h->scan callback, but the colons do
not show in $h->as_string.

=head1 BUG <==
2	/Users/nnunley/pugs/misc/S29_round.pl	195	315	
==>= sign($x) * floor( abs($x) ) }
        when $_ >= .5 { $x_round = sign($x) * ceil( abs($x) ) }
    }
    return $x_round <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2585	2695	
==>rr, @args;
  croak $self->{errmsg};
}


sub warn {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14878	14979	
==>ne is I<not> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14878	14979	
==>ne is I<not> exported by default.  But you can always
export it with C<use HTML::Entities qw(encode_en <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2347	2478	
==>) {
            my $n = $event->{num};
            if( defined $sum{$fname}[$n]){
                $event->{more_events} = $sum{$fnam <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1321	1416	
==>elf->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    o <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1321	1416	
==>elf->mkpath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2045	2139	
==>te version of t/rules/rules.t.  This could either be done
#using Regexp::Parser Objects, or wai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	115	206	
==>Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	115	206	
==>Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24730	24825	
==>Example tuple must be distinct from the other tuples.  All Relation::Example
attributes may be i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3188	3295	
==>that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You sho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3188	3295	
==>that you should strive to use only truly random keys; Perl's C<rand> 
function is not good enough.  (You sho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1863	1971	
==>";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1863	1971	
==>";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->comp <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4543	4663	
==>dir unless @ARGV;
    push( @tests, -d $_ ? all_in( $_ ) : $_ ) for @ARGV;

    if ( @tests ) {
        if ($Config{shuff <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	13962	14064	
==>ue {
    my %attrs;
    my $dispatcher = $class.dispatcher(:descendant);
    for WALKCLASS($dispatcher) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22653	22756	
==>te:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27205	27308	
==>te:

=over

=item C<$!heading> - B<Relation Heading>

Set of Str - This contains zero or more Relation a <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3446	3552	
==>plement );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NA <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3446	3552	
==>plement );
}

method compare ($self: Set::Infinite::Functional $span ) returns int {
    ...
}

=kwid

= NA <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3669	3837	
==>ift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### pl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4133	4301	
==>ift or return;
        my $avail   = shift or return;

        my @maybe;
        ### AND context
        RESOLVE: for my $entry ( @$deps ) {
        
            ### pl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6974	7075	
==>se this module as is, load it, and create an instance:

  use Regexp::Parser;
  my $parser = Regexp::P <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2991	3095	
==>r].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2991	3095	
==>r].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7609	7738	
==>r(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7609	7738	
==>r(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    " <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11016	11120	
==>safe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11016	11120	
==>safe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5867	5990	
==>pan.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5867	5990	
==>pan.start && $.span.start_is_open {
        $x = -Inf;
    }
    return $x;
}


} # class Span::Code


=kwid

= NAME

Span:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4657	4761	
==>_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4657	4761	
==>_ };

    unless defined %cache353{$chan} {
      # We initialize %cache353{$chan} by makeing %cache353{$ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	240	342	
==>efined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	240	342	
==>efined }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10038	10134	
==>s, new test functions will be defined to facilitate the
testing of those features. For more infor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10096	10192	
==>s, new test functions will be defined to facilitate the
testing of those features. For more infor <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5684	5779	
==>van@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http: <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5684	5779	
==>van@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=item Adam's Perl 5 implementation

L<http: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2206	2331	
==>=>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_[0]->{out}= {op1 => 'name', exp1 => \$_[1], exp2 => \$_[3] <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9819	9908	
==>ingleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... still got the right return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5902	6042	
==>ar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5902	6042	
==>ar_perl5();
    }
    
    my $match = $grammar->parse( '+1+2' );
    ok( 
        postfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7368	7476	
==>lue
    .local pmc mfrom, mpos
    $P0 = find_global "PGE::Match", "newfrom"
    (mob, target, mfrom, mpos) = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2398	2492	
==>ludes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2398	2492	
==>ludes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other.s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6961	7114	
==>pe', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_fi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6961	7114	
==>pe', undef, [
            [ 'row_data_type_field', { 'name' => 'id' }, [
                $sdtd_person_id,
            ] ],
            [ 'row_data_type_fi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8095	8196	
==>self->_command();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ /\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15249	15353	
==>ut changing the input string).

If you prefer not to import these routines into your namespace, you can
c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15249	15353	
==>ut changing the input string).

If you prefer not to import these routines into your namespace, you can
c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5161	5274	
==>$.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5161	5274	
==>$.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12788	12896	
==>late->param("tests", $output);
  my $tres = $test_results->{results};
  my $data = { 
        file   => $file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1774	1919	
==>est;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1774	1919	
==>est;
        
        if ($req) {
            # if $base is undef here, the return value is effectively
            # just a copy of $self.request <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4132	4233	
==>n Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Default <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4316	4417	
==>n Rules and Tokens.

=item * pos => $pos - Specify a string position to match. Starts in zero. Default <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5563	5837	
==>al");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5563	5837	
==>al");
                        }
                        
                        # and finally remember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$pa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2241	2353	
==>string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::R <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2241	2353	
==>string($_.first), list(@{ $_.second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::R <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1648	1754	
==>en.

=item Map

A map is like a hash - it has keys and values.

C<Env> is a map - it contains symbol to val <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	654	794	
==>al A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	654	794	
==>al A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1681	1834	
==>mar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1681	1834	
==>mar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match = Pugs::Grammar::Rule->$m <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2660	2888	
==>tractor, Comparator);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2189	2288	
==>HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2189	2288	
==>HTTP::Request for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5247	5384	
==>\/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5259	5396	
==>\/? \( \) <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4800	4923	
==>=> -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4800	4923	
==>=> -> $time {
      $self!header($header, HTTP::Date::time2str($time));
    }
  );
}

method date ($self: )                i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	69	169	
==>copy of the original MiniMetaModel here
# for reference purposes, as this is what 2.0 is based on
# t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4941	5080	
==>_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4941	5080	
==>_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires")             }
method if_modified_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15879	16074	
==>ODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15873	16068	
==>ODO - send $pos to subrule
        return named_capture(
            { ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9794	9925	
==>el)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => - <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9794	9925	
==>el)} },
    user          => -> Str $nick    { %users{~normalize($nick)} },

    # Main handler register method
    add_handler => - <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	584	708	
==>ion;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic::abs($x);
 }
 multi Math <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2067	2181	
==>\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2067	2181	
==>\?(.*))?/;
    my Str $file  = $0 || '';
    my Str $query = $1 || '';
    unless $method ~~ m:P5/^(?:GET|POST|HEAD <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14820	14926	
==>umeric") },
      scalar_numeric     => sub { $as_hash_complain->("scalar_numeric") },
      scalar_non_num <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2075	2173	
==>>type;
	my $to = shift->type;

	Blondie::TypeSafe::Annotation->new(
		type => $to,
		struct_equiv = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13858	13992	
==>, pos, "Unescaped ']' in charlist")
    goto end
  err_hyphen:
    parse_error(mob, pos, "Unescaped '-' in charlist (use '..' or '\-')" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4507	4603	
==>ject, '... go the right super-superclass name for Point3D');

is($p3d->get_x, 5, '... got the rig <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7809	7904	
==>wait2exit = sub { POSIX::WEXITSTATUS($_[0]) }
}

=head2 C<_command_line( $file )>

  my $command <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	57	153	
==>ch will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	57	153	
==>ch will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH;
my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4946	5066	
==>t.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Local <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4946	5066	
==>t.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model and Local <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7028	7145	
==>hr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7028	7145	
==>hr(8242),
    "Prime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12623	12770	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12902	13049	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       rul <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5178	5294	
==>_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5178	5294	
==>_data = '';
    if ($folded_content =~ s/^((?:__(?:DATA|END)__$).*)//ms) {
        $folded_data = $1;
    }
    my $r <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2953	3072	
==>$method);
    }

    my $admin = $self->{admin} or die << "END";
The '$method' method does not exist in the '$self->{pre <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3654	3767	
==>$self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    my $mm = ExtUtils::MakeMaker::WriteMa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	983	1090	
==>erl - an interpreting backend for Blondie ASTs

=head1 SYNOPSIS

    use Blondie::Backend::Perl;

=head1 DES <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7167	7385	
==>r(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7360	7578	
==>r(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 ,
                   \&{'grammar1::quantifier'}
                 ,
             ] )
           ,
         )
       ,
;
*{'no <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16997	17097	
==>Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16997	17097	
==>Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1467	1599	
==>oop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@ne <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1467	1599	
==>oop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/}{\\};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@ne <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11922	12029	
==>r own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two stri <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11980	12087	
==>r own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two stri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1583	1698	
==>NIVERSAL::isa( $entry, 'REF' ) ) {
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3240	3449	
==>2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3113	3315	
==>2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2126	2273	
==>1], exp2 => \$_[3], exp3 => \$_[5],} }",
        
    # XXX
    #infix_chain =>       
    #    "exp 'name' list_right  \n" .
    #    "\t{ \$_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8140	8284	
==>arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8140	8284	
==>arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous }( $x );
                return $x if $x == Inf || $x == -Inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2454	2592	
==>um  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2454	2592	
==>um  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16418	16522	
==>sers to add
support for new languages easily and without a recompile (such as by simply
copying files), o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16418	16522	
==>sers to add
support for new languages easily and without a recompile (such as by simply
copying files), o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15356	15459	
==>uld behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15356	15459	
==>uld behave identically no matter which
conforming "Engine" is in use.

Rosetta incorporates a complete a <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3792	3998	
==>: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3792	3998	
==>: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	438	558	
==>_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %ha <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	438	558	
==>_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3648	3741	
==>e_v6'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();
 
    use <?p6ws> v6 \-pugs <?p6ws>? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3252	3401	
==>= $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return $matches[1] 

                if $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3147	3293	
==>= $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return $matches[1] 
                if $m <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1292	1394	
==>ec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile(' <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1292	1394	
==>ec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File::Spec->catfile(' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7051	7202	
==>tat;
    
    my $file;
    my $tmpl = {
        file    => { required => 1, allow => IS_FILE, store => \$file },
    };
    
    check( $tmpl, \%hash ) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2200	2304	
==>etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currentl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2200	2304	
==>etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 File::Spec module. Since 
we currentl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3378	3512	
==>rs($self)->{'%:methods'}->{$label} ? 1 : 0;
        },        
        'add_method' => sub ($$$) {
            my ($self, $label, $meth <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6827	6913	
==>idist/build -Ldist/build -idist/build/src -Ldist/build/src -o pugs src/Main.hs), @libs) <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3583	3762	
==>en ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3583	3762	
==>en ?? $span.end_is_open !! 0;
    }
    else {
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2089	2204	
==>rep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2969	3084	
==>rep $_,
                 ($self->build_requires, $self->requires) );

    # merge both kinds of requires into prereq <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	67	184	
==>mper;
use File::Basename;
use Config;

BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->impo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3438	3538	
==>t x for p2');
is($p2->get_y, 200, '... got the right y for p2');

$p->clear;
is($p->get_x, 0, '... go <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14176	14287	
==>dy->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduc <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1656	1767	
==>dy->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	655	809	
==>ct 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	655	809	
==>ct 'refs';
    *{"$pkg\::pmc_compile"} = sub {
        local $_;
        (undef, $_, undef) = @_;
        $code->();
        return $_;
    };
}

1;

__END <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6965	7111	
==>sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if $match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6732	6873	
==>sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21601	21724	
==>atus,
           };
}


sub _create_fmts {
    my($failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_st <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	96	200	
==>Carp ();
use Class::Inspector ();

use Blondie::ADTs;

our @EXPORT = qw/stub/;

sub stub {
	my $name = sh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4483	4592	
==>_token_match_2:
    goto found_term if $operator;
  }
  null_term:
  if (@tokenStack)
  {
    my $top = $token <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2025	2145	
==>lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where sc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2025	2145	
==>lib";

=head1 DESCRIPTION

Perl 6 port of the C<FindBin> library.

    $Bin         - path to bin directory from where sc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10822	10932	
==>builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10880	10990	
==>builtin.

- `ok (Bool $cond, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	732	856	
==>export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	732	856	
==>export {
    my ($volume, $directory, $file) = ('','','');
    if ($nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3069	3155	
==>copied from S29draft.pod r8649.
&Array::shift := &Array::splice.assuming(:offset(0) :le <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9087	9197	
==>remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2122	2232	
==>remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2633	2734	
==>- see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultaneous versions



I'm not <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2535	2632	
==>- see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultaneous versions

I'm not <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6884	6992	
==>n the Unicode category "Connector punctuation (Pc)"
      <Pc>
}
rule HexDigit {  # see 7.6
      <[0..9a..fA <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5210	5309	
==>e::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5210	5309	
==>e::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.

See the LICE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	914	1004	
==>get the format specified on the command line
	$dumper = $format{$Pugs::Utils::Interface::fo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7965	8067	
==>ing down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7965	8067	
==>ing down the door and Our Heroes need any sensitive data still 
in the cipher to be deleted immediately <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14143	14238	
==>tr $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14143	14238	
==>tr $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NICK $new <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14487	14578	
==>GRUB; $wrote_menulst++ };
default 0
timeout 0
color light-blue/black black/light-gray
hidden <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1323	1456	
==>splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlin <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1323	1456	
==>splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6284	6405	
==>dirs from the target so we don't get a silly
        ### deep dir structure
        %from = map { my $target = $_; $target <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1808	1906	
==>his is an experimental, pre-alpha development snapshot.  There are currently
no support for match f <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	431	874	
==>8 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	431	874	
==>8 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11400	11535	
==>ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11400	11535	
==>ARY_NO_ELEMS',
            { 'METH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_w <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	787	881	
==>return false;">open each link in a
new window</a>.  (Useful with Firefox 1.5's Preferences/Tabs <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	668	823	
==>ss = shift;
        bless [@_], $class;
    }

    sub str { @{ $_[0] } }

    sub fmap {
        my $self = shift;
        my $f = shift;
        (ref $sel <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3461	3570	
==>s \\n   Scalar    pre     min     safe   (List)\
multi List::min(Code $cmp = &infix:«<=>», *@array --> Scala <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4012	4132	
==>method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4012	4132	
==>method freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16275	16371	
==>h.content_type

The Content-Type header field indicates the media type of the message
content. I< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16275	16371	
==>h.content_type

The Content-Type header field indicates the media type of the message
content. I< <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	404	504	
==>se();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readlin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	404	504	
==>se();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = $pilfh.readlin <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13530	13627	
==>ch as "say" and
database queries, may occur much later than expected.

It may enter an infinite lo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13530	13627	
==>ch as "say" and
database queries, may occur much later than expected.

It may enter an infinite lo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5861	5966	
==>"matcher" things.

Rules operate on strings (normally) and return Match objects.



### examples will be i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5658	5760	
==>"matcher" things.
Rules operate on strings (normally) and return Match objects.

### examples will be i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7935	8032	
==>lement(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statement <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1760	1857	
==>lement(@_) };
push @statements, sub { Grammar::Perl6->assign_hash_to_scalar(@_) };
push @statement <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2	93	
==>dule HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2	93	
==>dule HTML::Entities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_enti <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1229	1350	
==>return
        unless ~$wp.[$_] eq ~$next.[$_];
    }
    
    return $value.($next, $u), tail($input);
  };
}

## Chapter <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13147	13263	
==>3">
              <tmpl_loop name=summary>
                <span class="tests_total"><tmpl_var name=total> test cases <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1576	1712	
==>URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1576	1712	
==>URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            return $HTTP::URI_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5372	5465	
==>urns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5430	5523	
==>urns Bool is export {
    Test::skip($Test::num_of_tests_planned - $Test::num_of_tests_run, $r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1002	1153	
==>le $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1013	1164	
==>le $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { non_capturing_sub <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13817	14088	
==>} else {
                print "FAILED before any test output arrived\n";
                $tot{bad}++;
                $failedtests{$tfile} = { canon       => '??',
                                         max         => '??',
                                         fail <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7729	7870	
==>List      non     ^..     safe   (Scalar, Scalar)\
\\n   List      non     ^..^    safe   (Scalar, Scalar)\
\\n   List      spre    <==     sa <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2278	2466	
==>children(
                                Tree.new(:node<Sub>).add_children(
                                    Tree.new(:node<Method>),
                                    Tree.new(:node< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1483	1603	
==>e";
    # replace the value with a nil type
    $self->[$index->to_native] = nil->new();
    return nil->new();
}

sub sl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7363	7519	
==>n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7363	7519	
==>n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6296	6419	
==>me', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6296	6419	
==>me', \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27854	28017	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28133	28296	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop::capture( 'p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	438	573	
==>cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	438	573	
==>cookie2      is rw;
    
    $EPOCH_OFFSET = 0; # difference from Unix epoch
    
    if ($*OS eq "MacOS") {
        require Time::Local <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	52633	52727	
==>ule, $::Package, $::Object));
$::Object->set_attr(symbol->new('@:MRO') => list->new($::Object)) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1119	1210	
==>>struct_equiv; #. Data::Dumper::Dumper($node->struct_equiv);

	if ($self->has_symbol($node)) <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25959	26076	
==>Harness sets this before executing the individual tests.  This allows
the tests to determine if they are being execute <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	474	574	
==>le.out";
    if (compare("$file.out", "$dir/$file.expected")) {
        print "$dir/$file.p6 has some <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21524	21626	
==>which uses yours may wish to
override some of your messages, showing other messages instead which are
m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21524	21626	
==>which uses yours may wish to
override some of your messages, showing other messages instead which are
m <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	512	623	
==>,$t) { return [$h, $t] }

sub head($s) { $s.[0] }

sub tail(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6177	6292	
==>arse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6177	6292	
==>arse( '3*(4+5)' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5672	5767	
==>.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5672	5767	
==>.span.start_is_open;
}
method start_is_closed () returns Bool {
    return Bool::False if $.span <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1412	1511	
==>r contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1412	1511	
==>r contains '<VAL>'.],
    'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <AR <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2953	3094	
==>my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2953	3094	
==>my $data = shift;
    my $ref = ref $tree;
    if ( $ref eq 'ARRAY' ) {
        for ( @$tree ) {
            return 1 if contains( $_, $data ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12833	13017	
==>e |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12833	13017	
==>e |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9041	9189	
==>'F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9041	9189	
==>'F'),
    #           PRIMARY KEY (id)
    #       );
    #       COMMIT;
    my Rosetta::Model::Node $prd_create_tb_person = $irl_doc.build_node_tre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	9431	9574	
==>untime::Perl5::RuleOps::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro: ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2976	3093	
==>>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a succe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2976	3093	
==>>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First event we get, indicating a succe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5560	5710	
==>ngify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5560	5710	
==>ngify,
        );
    }

    method grep ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	1	262	
==>!/usr/bin/pugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1	262	
==>!/usr/bin/pugs
use v6;

use Locale::KeyedText;

###########################################################################
###########################################################################

module MyLib {
    sub my_invert (Str $number!) returns Num { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17667	17760	
==>artan DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17667	17760	
==>artan DBI-inspired set of methods which you use to
compile/prepare and/or invoke/execute Roset <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23542	23672	
==>, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23895	24025	
==>, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      typ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1911	2022	
==>hich then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a dynamic lookup. 



This object-s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1838	1946	
==>hich then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a dynamic lookup. 

This object-s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9152	9271	
==>te_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9152	9271	
==>te_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routi <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8136	8259	
==>ng if we have to rebuild the initrd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2566	2676	
==>ementation only provides a small sample of
Perl 6 syntax and semantics.

=head2 Other Perl 6 implementations

T <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4486	4580	
==>ive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in your <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4486	4580	
==>ive indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in your <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8263	8366	
==>_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8263	8366	
==>_}<users>.delete(normalize $event<from_nick>) for @chans;
    %users.delete(normalize $event<from_nick>) <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2444	2571	
==>ode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2444	2571	
==>ode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octect = map { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1289	1393	
==>m) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1289	1393	
==>m) returns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!memb <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	289	386	
==>ER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	289	386	
==>ER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER:: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15165	15263	
==>ext.  In scalar and array contexts, the encoded or
decoded string is returned (without changing the <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15165	15263	
==>ext.  In scalar and array contexts, the encoded or
decoded string is returned (without changing the <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22683	22778	
==>spect) an important constraint on what fields can contain.

=head1 reganch

 REG_SEEN_GPOS

Conf <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4991	5105	
==>multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5049	5163	
==>multi sub skip (Int $count, Str $reason, :$depends) returns Bool is export {
    for (1 .. $count) {
        # Hack <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2839	2933	
==>ue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2839	2933	
==>ue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	224	485	
==>e:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	224	485	
==>e:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L::en-0.160.1 {
    sub get_text_by_ke <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1390	1498	
==>);
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1390	1498	
==>);
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infin <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4699	4808	
==>4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4699	4808	
==>4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (@string <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1001	1115	
==>thod end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1001	1115	
==>thod end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $l <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5608	5747	
==>now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4108	4247	
==>now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	630	737	
==>tion is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	630	737	
==>tion is intersection
multi sub *infix:<*> (Set $one, Set $two) {
    $one.intersection($two);
}

# modulus i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	721	825	
==>);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_di <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	721	825	
==>);
}

# modulus is symmetric difference
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21729	21869	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22008	22148	
==>ck->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14528	14654	
==>d()s,
	# which is a bit heavyweight to do here.

	if ($Perl =~ /^perl\Q$exe\E$/i) {
	    my $perl = "perl$exe";
	    eval "requ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1873	1975	
==>> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1873	1975	
==>> form.)  By convention, tags are 
lowercase.

If C<note> is not provided with any tags, it will intuit <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16537	16661	
==>6_objects_from_whatever($_)}@_) if @_ > 1;
    return () if @_ < 1;
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $h <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3182	3282	
==>$code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3182	3282	
==>$code = "";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL::Node::X0::$constructor <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5262	5362	
==>h the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5262	5362	
==>h the document identified by the given URL
and return it.  It returns C<undef> if it fails.  The $url <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5266	5394	
==>next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end & <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5266	5394	
==>next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span.end & <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3055	3177	
==>>add_handler('\E' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\e", '\E') if $cc;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	330	590	
==>this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given ver <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	330	590	
==>this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

package Rosetta::Model-0.724.0 {
    # Note: This given ver <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3322	3464	
==>mp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.item <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3322	3464	
==>mp = ();
        }
    };
    @.items = @tmp;
    return @ret;
}

method _pop_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.item <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7503	7617	
==>}

# signature from S29draft.pod 8655.  In the List section.
multi Array::join (@values ;  Str $delimiter --> Str ) <==
2	/Users/nnunley/pugs/t/packages/Test.pm	366	474	
==>:Package {
        sub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params($arg1, $arg2) is export { "[$arg <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2371	2465	
==>at");
    $optable->addToken("infix:&", "<infix:", "left,nows", "PGE::Exp::Conj");
    $optable <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	99	198	
==>tegies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method liter <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	99	198	
==>tegies::CPS;

use Parse::Rule::Media::Text;
does Parse::Rule::Media::Text;

has $.Pos;

method liter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40651	40750	
==>PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40651	40750	
==>PURPOSE.  See the LGPL for more
details.

While it is by no means required, the copyright holders of <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13096	13224	
==>me=id>">
            <td colspan="11" class="indent3">
              <tmpl_loop name=summary>
                <span class="tests_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Filtered-Comments.pm	16	104	
==>opsis
 BEGIN {require "Filtered-Comments.pm";import Filtered::Comments 'regex matching su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	697	829	
==>what: " . Dumper( $n ) . ")";
}

sub emit {
    
    # <audreyt> %Namespace:: = ();  # clear stash
    
    my ($grammar, $ast <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1833	1930	
==>_superclasses, $self ).members.map:{ .get_methods }
       );
}

method all_assocs($self:) returns <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4671	4804	
==>ct ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        'report' => sub {
            m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4088	4207	
==>ct ],
    does => [ $::TestBuilder->FETCH('::Test')->FETCH('::WithReason') ],
    methods => {
        'report' => sub { <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	484	577	
==>code for driving events, and implements a
# "named event" mechanism, for Class::Publisher like <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	417	527	
==>en (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do giv <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	417	527	
==>en (Perl::Compiler::PIL::PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do giv <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2822	3056	
==>= chr $c; # Maybe we can get away with a literal...
                    $z = sprintf "\\%03o", $c if $z =~ /[[:^print:]]/;
                    $y .= $z;
                }
            }
            $x = $y;
        }
        return $x u <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9840	9930	
==>'$iFoo::test_iFoo_singleton_method',
 '... still got the right return value from $iFoo sing <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3661	3794	
==>x
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3661	3794	
==>x
    $path ~~ s:perl5:g{\\\.\.\.\\}{\\\.\.\\\.\.\\};                                # \...\ is 2 levels up
    $path ~~ s:perl5:g{^\. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	193	298	
==>ve
sub to_native { undef }

# conversion to other native types
sub to_num { num->new(0)  }
sub to_bit { bi <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3109	3214	
==>lication. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3109	3214	
==>lication. We'd like to
allow 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2868	2985	
==>ue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2868	2985	
==>ue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11421	11512	
==>:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11421	11512	
==>:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-Web-Client <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4614	4723	
==>elf = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4473	4582	
==>elf = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml' <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1778	1874	
==>nt(rand() * 100)) % @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	169	265	
==>perations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy" <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	169	265	
==>perations with non-Recurrences should return a Set::Infinite / Span
    * cleanup extra "is copy" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6572	6693	
==>, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6572	6693	
==>, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20155	20256	
==>'s important;
the interface/behaviour is), this Relation data type is proposed to be
generally useful, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24707	24808	
==>'s important;
the interface/behaviour is), this Relation data type is proposed to be
generally useful, <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	940	1059	
==>n @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TOD <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	940	1059	
==>n @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Object {
    # TODO - not lazy
    # TOD <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4000	4147	
==>pec->catfile(qw< dist build src >, $pathname)
        );
        my $wanted = sub {
            return unless $_ eq $basename;
            push @can <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	978	1079	
==>fromd and $from < 0)

  return ($me, $target, $from, $position)
}

#Tell a Match object to continue th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19973	20070	
==>is is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19973	20070	
==>is is a readonly accessor. To set the nickname, use the C<nick> method.

=head2 C<$botE<lt>last_tr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	290	404	
==>urns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	290	404	
==>urns Str is export {
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9848	9943	
==>put validation is performed over 2 main phases, which
are referred to as "immediate" and "deferr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9848	9943	
==>put validation is performed over 2 main phases, which
are referred to as "immediate" and "deferr <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	43	145	
==>lti *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	43	145	
==>lti *infix:<o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34170	34277	
==>ty string.

=back

This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34170	34277	
==>ty string.

=back

This is the main Translator constructor method:

=over

=item C<new( :@set_names!, :@memb <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	741	843	
==>return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { c <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	741	843	
==>return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) returns Str is export { c <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3917	4019	
==>stamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{pos <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5276	5378	
==>stamble} ||= $self->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{pos <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7291	7412	
==>(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593) <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7291	7412	
==>(8476),
    "trade"    => chr(8482),
    "alefsym"  => chr(8501),
    "larr"     => chr(8592),
    "uarr"     => chr(8593) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4261	4396	
==>-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loo <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4261	4396	
==>-independent!
                # inside a quantifier, making no progress is the same as failing
                #  (to avoid infinite loo <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8668	8796	
==>_/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$depends/;
        s/__UNICODE_C__/$unicode_c/;
        s/__PERL5_C <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7791	7898	
==>| <RegularExpressionLiteral> # ADDED - this is not in the spec.
}
rule NullLiteral {  # see 7.8.1
      <'nu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	717	868	
==>eturn '' if $run == _('$:expect');
            return "Expected " . _('$:expect') . " but ran $run";            
        }
    }
});

$::TestBuilder->ST <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5329	5429	
==>write> method the file for the properties, and writes it
to disk.  Returns boolean value of success o <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5329	5429	
==>write> method the file for the properties, and writes it
to disk.  Returns boolean value of success o <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1866	1979	
==>$msg = shift;

    print STDERR "* " and $fresh++ unless $fresh;
    print STDERR $msg;
    $fresh = 0 if substr($ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_search.pl	87	196	
==>import();
}

use Data::Dumper;
use File::Basename;
use YAML            qw[LoadFile Dump];

@ARGV or die usage( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5338	5459	
==>x( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5338	5459	
==>x( $match->() );
    #print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postf <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	618	743	
==>+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	585	710	
==>+)| or return;
    }

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	260	367	
==>y $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	260	367	
==>y $bs = .block_size;
    @.buffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36771	36867	
==>?(>)

=head2 eval

Family: assertion

Types: eval (C<(?{>)

Data: string with contents of asserti <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12725	12861	
==>t = $1;
        return $YES;
    }
    else {
        return $NO;
    }
}

=head2 C<_is_header>

  my $is_header = $strap->_is_header($li <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6958	7183	
==>st.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6958	7183	
==>st.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::True; 
                            yield $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27289	27399	
==>' => $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27289	27399	
==>' => $col_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3631	3815	
==>{
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3631	3815	
==>{
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35534	35637	
==>_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N-ary version o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40084	40187	
==>_join>.

=item C<product (Relation *@others) returns Relation>

This multi-method is the N-ary version o <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34450	34548	
==>tem C<semijoin (Relation $other!) returns Relation>

This method is a generic relational operator t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39000	39098	
==>tem C<semijoin (Relation $other!) returns Relation>

This method is a generic relational operator t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5554	5824	
==>eturns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9031	9301	
==>eturns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method map (S <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2598	2725	
==>,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2598	2725	
==>,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24841	24963	
==>' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21262	21384	
==>' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&R <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1003	1116	
==>block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1003	1116	
==>block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, grammar

# category 'statemen <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6032	6165	
==>_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6032	6165	
==>_is_open && $x <= $.end;
    return Inf;
}

method previous ($self: $x ) {
    return $.end   if $x > $.end;
    return $x      if   $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2197	2304	
==>quest for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2197	2304	
==>quest for dealing with CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16159	16268	
==>. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

Y <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16159	16268	
==>. It always checks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

Y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14435	14554	
==>port any analogy of CDATA sections, though).
The Node class is pure and deterministic, such that all of its class and
ob <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14435	14554	
==>port any analogy of CDATA sections, though).
The Node class is pure and deterministic, such that all of its class and
ob <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34608	34723	
==>e the heading of <$other> is a subset of the
heading of the invocant Relation, and returns a new Relation that has t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39158	39273	
==>e the heading of <$other> is a subset of the
heading of the invocant Relation, and returns a new Relation that has t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8469	8612	
==>ils}[$_-1]{ok} }
                     1..@{$results{details}};
        
        ## XXX - Begin Pugs addition
        # This addition analyzes th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27289	27384	
==>y?)>

This method creates and returns a new Relation::Example object, whose Heading and
Body att <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10391	10490	
==>tems
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is commo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10391	10490	
==>tems
inserted.

It is not fatal to insert an item which is already inserted.  In fact,
this is commo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7038	7147	
==>t_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7096	7205	
==>t_out;

    Test::report_failure($context, $got, $expected, $negate) unless $cond;

    return $cond;
}

sub r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24627	24726	
==>ww.fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You should h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24627	24726	
==>ww.fsf.org/>); either version 2 of the
License, or (at your option) any later version.  You should h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15619	15724	
==>atabase management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15619	15724	
==>atabase management systems
(DBMSs); like Edgar F. Codd's original papers, TTM can be seen as an
abstract b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19119	19236	
==>op level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sectio <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19119	19236	
==>op level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sectio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1	100	
==>!/usr/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1	100	
==>!/usr/bin/pugs
use v6;

# XXX LWP::Debug to debug things :-)
#use LWP::Debug;

use HTTP::Date <str2t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	664	767	
==>arget, $from, 1) =~ /[:upper:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $mat <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30695	30877	
==>der ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher_iterator (opaque $self: list @valu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10229	10324	
==>>Perl 6 on
    JavaScript</a>, ...) supports of <a
    href="http://svn.openfoundry.org/pugs/t/" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	127	223	
==>r;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	127	223	
==>r;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11718	11867	
==>=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14566	14715	
==>=@_;
    my $noop = $o->noop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16912	17071	
==>tests failed, %.2f%% okay.",
                              $tot->{max} - $tot->{ok}, $tot->{max}, 
                              $percent_ok;

        my($fmt_t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	372	479	
==>=head1 SYNOPSIS

 my $role = Role.new("SomeRole");

 $role.addMethod(Method.new(...))

 $role.apply;

=head1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1961	2085	
==>t::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1883	2004	
==>t::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	249	358	
==>s readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	249	358	
==>s readonly = (
    'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2399	2497	
==>UGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copy <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2399	2497	
==>UGS

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copy <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1248	1370	
==>te that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4726	4848	
==>te that it is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	474	607	
==>lier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	474	607	
==>lier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - The current position <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	417	559	
==>e/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking of these as <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	417	559	
==>e/group ended.  C<Medium>
                     represents positions I<between> elements, so if you're
                     thinking of these as <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6686	6824	
==>ub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direct <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6686	6824	
==>ub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direct <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7377	7496	
==>plice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7377	7496	
==>plice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- `unshift( @list )`

@list may contain <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	791	918	
==>file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	791	918	
==>file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $buffer) {
    $fh.print($buffer);
    $fh.c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21363	21478	
==>n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17784	17899	
==>n if $S->can($n);
    }

    $S->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # look-behind
  $self->a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	940	1079	
==>}

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	940	1079	
==>}

    method r($name) {
        %.names{$name} //= ./newreg;
    }

    method newreg() {
        $.template($.counter[0]++);
    }
}

# vi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11915	12019	
==>is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11915	12019	
==>is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

=item C<new( :@r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31150	31248	
==>for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31150	31248	
==>for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7366	7459	
==>ame(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1191	1284	
==>ame(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	692	810	
==>_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocation <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	692	810	
==>_invocations
        }, *$data;
    }
    
    submethod BUILD() { .zeroize() }
    method zeroize() { $.num_invocation <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1037	1197	
==>$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1037	1197	
==>$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	901	1040	
==>atch->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	901	1040	
==>atch->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	530	638	
==>${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	530	638	
==>${$_[0]}->{bool}} }
sub hash  {  ${$_[0]}->{named}   }
sub array {  ${$_[0]}->{match}   }

sub flat {
    ret <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	634	761	
==>ons exported to the global `*` namespace, please use
the `is builtin` trait.

=cut


class Process {
    multi sub exec($prog, @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2865	2987	
==>>{op1} && exists $n->{op1}{stmt};

    return default( $n );
}

sub assoc_list {
    my $n = $_[0];
    # print "lis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1194	1310	
==>or in evaluation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

1;

__END__

=head1 NAM <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1181	1289	
==>$_[0]{$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new(%$sel <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7707	7795	
==>mmar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1532	1620	
==>mmar::Perl6->access_hashref_element(@_) };
push @statements, sub { Grammar::Perl6->access <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4444	4550	
==>4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4444	4550	
==>4,@index[2],2,0xFF); # 1.octet
#      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15437	15529	
==>corporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15437	15529	
==>corporates a complete and uncompromising implementation of "The
Third Manifesto" (TTM), a for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22636	22738	
==>4

=item * Bugs...?

I'd like to say this module doesn't have bugs.  I don't know of any in
this curren <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6277	6374	
==>object_repr_types.pod r8593.
multi method Array::as_int (@array:) returns Int {
    +@array;
}
# n <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6652	6752	
==>, grep /^-[lL]/, @_;
    push @libs, grep /\.(?:a|o(?:bj)?|\Q$Config{so}\E)$/, @_;
    push @libs, gr <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1399	1501	
==>.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1239	1341	
==>.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	122	227	
==>ent;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	122	227	
==>ent;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldoc::DOM::Element $.root <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5164	5308	
==>f;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.pr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5164	5308	
==>f;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.pr <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	770	869	
==>ide can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is ju <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	770	869	
==>ide can invoke subroutines defined from the
Perl 6 side, but not vise versa.  This whole thing is ju <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3219	3341	
==>nly truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3219	3341	
==>nly truly random keys; Perl's C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4310	4458	
==>, @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4298	4446	
==>, @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	11	123	
==>:override;

use 5.005;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.03';

    loc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	333	435	
==>itting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	333	435	
==>itting

sub splitdir (Str $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21489	21618	
==>_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21768	21897	
==>_block = sub { return { _my =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	231	330	
==>Harness::Iterator;

# Flags used as return values from our methods.  Just for internal 
# clarificat <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3364	3457	
==>:Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3364	3457	
==>:Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12256	12363	
==>n = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12256	12363	
==>n = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION

This class re <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1899	2151	
==>[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   = <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1899	2151	
==>[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[BI]/ {
                    $buffer ~= "<" ~ $mod ~ ">"             
                }
            }
        },
        end_modifier   = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6593	6715	
==>}
   
    while( my($orig,$target) = each %from ) {
        unless( File::Copy::copy( $orig, $target ) ) {
            erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	331	451	
==>e Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	363	483	
==>e Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15083	15177	
==>ications invoke and which
multiple interchangeable "Engine" back-ends (usually provided by thir <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15083	15177	
==>ications invoke and which
multiple interchangeable "Engine" back-ends (usually provided by thir <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23467	23592	
==>lasses.defined) {
        for @superclasses -> $super {
            $super.add_subclass($self);
        }
        @:superclass <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33820	33940	
==>character will mean.  If you've used F<vim>, you might know
about its '\&' regex assertion.  It's an "AND", much like '|' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	659	828	
==>ory => { 
            required    => 1, 
            store       => \$inst,
            allow       => ISA_JIB_REPOSITORY,
        },
        ### XXX this won't work over <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1530	1639	
==>rn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1737	1846	
==>rn "* loading Prelude: $prelude_file-cached.pl\n";
      require "$prelude_file-cached.pl";

      if ( -f "$p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	476	642	
==>eturn new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	476	642	
==>eturn new Proxy:
            FETCH => -> $name {
                return $query.param($name);
            },
            STORE => -> $name, *@vals {
                %!p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6732	6844	
==>>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6732	6844	
==>>);
      %users{~normalize($event<from_nick>)}<channels>.delete($chan)
        if %users{~normalize($event<from_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22326	22443	
==>:Exp::WS" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .retu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5753	5880	
==>pan.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5753	5880	
==>pan.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.span.start && $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	688	815	
==>( 
        $opt{name2}, 
        '{ return { op => "' . $opt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "circumfi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	518	619	
==>{...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	518	619	
==>{...}

=pod

C<quantify($p, $low, $high)> tries to match C<$p> at least C<$low>
times, and at most C<$ <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1686	1803	
==>IN>;
    close $EIN;
    }
    open my $EOUT, ">$exename.exe" or die "Can't write $exename.exe: $!";
    binmode $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8771	8885	
==>_});
    }
} 

# Note: modfies $index
sub handle_t_file {
  return unless /\.t$/;
  my $input_path    = rel2abs($_) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6451	6548	
==>, 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkT <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6451	6548	
==>, 'CxtItem'   , 'xType' ,'Type';
node_a 'Cxt', 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkT <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2026	2159	
==>vailable!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; ret <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2004	2137	
==>vailable!\n";
        chdir $dir; return;
    }

    unless (-f $file) {
        warn "Fetching failed: $@\n";
        chdir $dir; ret <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8260	8380	
==>Position, $match);
  #What does this line 
  #$temp1 = length $key + $whitespacePosition;
  goto tok_match_end;

  tok_ma <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7748	7850	
==>ement ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7748	7850	
==>ement ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_element ('list' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14968	15095	
==>a) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'group',
      type => 'group' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23527	23623	
==>/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Dependi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28079	28175	
==>/or
same-named accessor method can be used to see if a Relation-doing object
can mutate.  Dependi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1324	1420	
==>ening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and the t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1324	1420	
==>ening
for all C<PRIVMSG>s. Each time people say something (in public), the current
time and the t <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	3085	3253	
==>$listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            @a[$off+$i] = @list[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27483	27580	
==>RIPTION

This module contains the object definitions for F<Regexp::Parser>.

=head2 Inheritance

A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14395	14491	
==>rarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node cla <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14395	14491	
==>rarchy with
other Nodes (it does not support any analogy of CDATA sections, though).
The Node cla <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25592	25695	
==>code.  However, for an additional fee, the copyright holders of
Rosetta can sell you an alternate, limit <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25592	25695	
==>code.  However, for an additional fee, the copyright holders of
Rosetta can sell you an alternate, limit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5824	6012	
==>ts $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not impl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5836	6024	
==>ts $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match variable $name is not impl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3037	3143	
==>s with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Se <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3037	3143	
==>s with non-sets
multi sub *infix:<+> (Set $one, *@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	822	968	
==>al_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_gro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	822	968	
==>al_char {
        \\ .

        { return { special_char => $(), } } 
    }
    unshift @rule_terms, 'special_char';
    
    rule non_capturing_gro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24390	24482	
==>it L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24390	24482	
==>it L<http://www.DarrenDuncan.net/> for more information.

Rosetta is free software; you can r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13738	13865	
==>tree->[-1]->family eq "quant";

    # on /abc+/, we extract the 'c' from the 'exact' node
    if ($tree->[-1]->family eq "exact" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	862	1004	
==>s $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	862	1004	
==>s $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        sub prefix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2642	2752	
==>='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*Pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2642	2752	
==>='> <ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*Pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8202	8299	
==>ssign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2027	2124	
==>ssign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms, sub { Grammar::P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	80	185	
==>Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Rege <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	80	185	
==>Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Rege <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10126	10222	
==>X

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports ov <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10126	10222	
==>X

=head1 BUGS

Currently, no operators are overloaded. This will change as soon Pugs supports ov <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10943	11073	
==>rn unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    subm <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10943	11073	
==>rn unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    subm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4067	4174	
==>::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4067	4174	
==>::Symbols - A Role of unicode symbols for "set" operations

=head1 AUTHORS

Organized by Flavio S. Glock; th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22132	22233	
==>iple language
or permissions issue; simply order the files appropriately in the search
list.  The anal <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22132	22233	
==>iple language
or permissions issue; simply order the files appropriately in the search
list.  The anal <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	211	300	
==>n;

## ----------------------------------------------------------------------------
## con <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	211	300	
==>n;

## ----------------------------------------------------------------------------
## con <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6133	6254	
==>hod fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 ) <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6133	6254	
==>hod fetch ( Int $pos ) {
    # XXX - this is very inefficient
    # see also: slice()
    my $ret = self.splice( $pos, 1 ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5381	5509	
==>"\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5381	5509	
==>"\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	492	598	
==>method members() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	492	598	
==>method members() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3390	3489	
==>Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3390	3489	
==>Base) \{ \$s eq '$constructor'}";
    $code ~= "\nmulti method does(String \$s: Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1506	1612	
==>_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1506	1612	
==>_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and head <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5632	5735	
==>y 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5632	5735	
==>y 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: ',@list;
    @.items = ( @head, @list, @tail <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1118	1214	
==>rameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1118	1214	
==>rameters:  a C<Result> object and a continuation
(which takes in turn a C<Result> object as a par <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9523	9651	
==>) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autopi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9523	9651	
==>) }
    if($!socket) {
      try { $!socket.autoflush(1) }
      $.connected++;
      $.last_traffic  = time;
      $.last_autopi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6682	6792	
==>ill be inside a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` insid <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6682	6792	
==>ill be inside a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` insid <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6836	6955	
==>e' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_da <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6836	6955	
==>e' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person = $irl_doc.build_node_tree(
        [ 'row_da <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2578	2682	
==>) {
    system("$^X $smoke_upload_script $html_location") == 0
        or die "Couln't run smoke upload s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1634	1733	
==>lf->from();
  my $position = $self->position();
  return ("") if $position < 0 or $position <= $from <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2993	3145	
==>lse {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{labe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2993	3145	
==>lse {
                $r{$m->{label}} = [ $r{$m->{label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{labe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14121	14243	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14400	14522	
==>re => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_push;
*{'pod'} = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10672	10783	
==>e 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10672	10783	
==>e 'id' field matches the functions 'person_id'
    # argument, and returns that as a row.
    # Like: SELECT s.i <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1431	1552	
==>it_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1431	1552	
==>it_uri($url);

  my $req = _make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7086	7196	
==>ram); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7098	7208	
==>ram); die $@ if $@;
    return $code;
}

sub emit_rule_node {
    die "unknow node type:$_[0]" unless $node::{$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2879	2979	
==>$self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2879	2979	
==>$self._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	184	290	
==>s, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, W <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	184	290	
==>s, released June 26, 2006.

=head1 SYNOPSIS

    % pugs -e "{ 'Hello, ', @^x }.('World!').say"
    Hello, W <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3713	3833	
==>ine\n11th line\n10th line\n".
        "9th line\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3529	3866	
==>ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3529	3866	
==>ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	594	732	
==>abel = \"" . $node->name . "(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ($node) = @_;
    return <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1008	1117	
==>uilds" it into a class
method apply {
    ...
}

# hmm, what do we need to test to check for circular supercla <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5911	6033	
==>ative type";
    my $current = $self;
    while ($current) {
        if (exists $current->{env}->{$name}) {
            $cu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	64	179	
==>ead1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.n <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	64	179	
==>ead1 SYNOPSIS

    my &rot13 := Cipher::Caesar.encipherer;     # Defaults to rot13
    my $julius = Cipher::Caesar.n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20664	20772	
==>stead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20664	20772	
==>stead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18715	18878	
==>on} = 'various reasons'
              if $totals->{skip_reason} ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $cur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36951	37065	
==>f->SUPER::init();

    # X&Y = match Y if match X at the same place
    $self->add_handler('&' => sub {
      my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22909	23026	
==>(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and v <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27461	27578	
==>(Str) of Any - This contains zero or more member tuples of
the Relation; each Set member is a Mapping whose keys and v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1877	2002	
==>equired => 1, allow => IS_DIR },
    };

    my $args = check( $tmpl, \%hash ) 
        or error(Params::Check->last_error), r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1799	1931	
==>cies must be a num type";
    return list->new(
        # make sure to create any nils we need
        map { defined $_ ? $_ : nil->n <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5860	5962	
==>ay::splice(@array, 0, 0, @values);
    @array.elems;
}

# name from docs/notes/piln_object_repr_types.p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6175	6322	
==>,
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "o <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6175	6322	
==>,
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    "psi"      => chr(968),
    "o <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	449	547	
==>ate ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, o <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	449	547	
==>ate ( Test::Builder $Class: $plan?, $output? )
{
    return $Class.SUPER::new( testplan => $plan, o <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1086	1210	
==>t );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->mak <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1977	2101	
==>t );
}

sub write {
    my $self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->mak <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25909	26009	
==>ontains zero or more variable names and values
that are associated with the message, and can be inter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25909	26009	
==>ontains zero or more variable names and values
that are associated with the message, and can be inter <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	589	722	
==>ffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._ze <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	589	722	
==>ffer.splice(0, $bs, []);
            take *.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._ze <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2916	3029	
==>&& $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2916	3029	
==>&& $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9530	9740	
==>n "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9530	9740	
==>n "quot" { '"' }
            when "gt"   { ">" }
            when "lt"   { "<" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(: <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1162	1297	
==>XX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    re <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1162	1297	
==>XX: add advanced class detection
           }
        }
    }
    return %plugins.values;
}

method find_packages ( Str $path ) {
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	965	1110	
==>\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	965	1110	
==>\s*,//) {
                push @return, [@current] if @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $val <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10147	10311	
==>s
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10147	10311	
==>s
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR> <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2331	2464	
==>file->{events} }) {
            my $n = $event->{num};
            if( defined $sum{$fname}[$n]){
                $event->{more_events <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3355	3467	
==>) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) ! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3355	3467	
==>) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) ! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38409	38509	
==>g the %msg_vars into it, where each variable value is
substituted for any occurance of its correspond <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38409	38509	
==>g the %msg_vars into it, where each variable value is
substituted for any occurance of its correspond <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12774	12877	
==>1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12774	12877	
==>1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns true if C<$set1> is a proper subset (superset) of C< <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8957	9082	
==>wlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8957	9082	
==>wlines in the text, it is a specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14020	14140	
==>osetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a sim <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14020	14140	
==>osetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a sim <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	990	1087	
==>over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_por <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	990	1087	
==>over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<server_por <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19482	19578	
==>r must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorization

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19482	19578	
==>r must be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorization

= <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	25491	25612	
==>ion> <')'>
}
rule PatternCharacter {  # see 15.10.1
      <-[^$\\.*+?()[\]{}|]> #SourceCharacter but not ...
}
rule AtomEs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11575	11735	
==>.
            "\\" . _emit( $n->{exp2} );
    }

    if ( exists $n->{exp2}{bare_block} ) {
        # $a = { 42 } 
        return " " . _emit( $n->{exp1} ) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	354	477	
==>er is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1212	1335	
==>er is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): result is i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9188	9296	
==>MPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_fro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9188	9296	
==>MPL_MOD_NAME' => $module_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_fro <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5066	5163	
==>:Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5066	5163	
==>:Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config file <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	730	824	
==>Val"))) {
				$self->{seen}->insert($orig);
			}
			$self->Blondie::Reducer::generic_reduce($no <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16319	16440	
==>= @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if (_all_ok($tot)) {
        print "All tests successful$bonu <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	348	471	
==>uthor license
    distribution_type perl_version tests
>;
my @tuple_keys = qw<
    build_requires requires recommends bundle <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3233	3365	
==>lf->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1083	1215	
==>lf->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->obj <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14368	14482	
==>sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1848	1962	
==>sym($symbol)->val;
}

sub reduce_seq {
    my $self = shift;
    my $seq = shift;
    (map { $self->reduce($_) } $s <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	581	693	
==>bar',
		name => "simple concatenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2),
			Val(3),
		),
		r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1602	1698	
==>ass Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy support <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1602	1698	
==>ass Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map()
* Array::Lazy support <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	311	430	
==>ns Void {
    $self.tree().traverse(-> $t { 
        say(('  ' x $t.depth()) ~ " " ~ $t.node()) 
    });
}

my method cr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15782	15924	
==>f => sub { p6_Undef() },
      numeric     => sub { p6_Num($_[0]) },
      non_numeric => sub { p6_Str($_[0]) },
      scalar_numeric     => su <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14527	14657	
==>ttrs{$_.meta.name()} = $_.meta.instantite_container();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3181	3377	
==>is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $st <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3181	3377	
==>is copy, $end is copy, $step? ) {
        $class.new(
                    cstart =>  sub {
                                my $r = $start;
                                if ( defined $step ) { $st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1722	1836	
==>tch is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1722	1836	
==>tch is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	364	474	
==></p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	364	474	
==></p>
  </body>
</html>';
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 400 BAD REQUEST\r\n");
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2747	2871	
==>=> $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2994	3118	
==>=> $_[0]->() ,} }
    }
    push @rule_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2972	3079	
==>dy = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2972	3079	
==>dy = ./status_line;
        
        return "<HTML>
<HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</H1 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2558	2679	
==>:expect;
          return "Expected $.expect but ran $run";
      }
  }
  
  # XXX: extract the useful similarities into a <==
2	/Users/nnunley/pugs/util/testgraph.pl	374	467	
==>open(my $yamlfh, '<', $yamlfile) or die "Couldn't open $yamlfile for reading: $!";
binmode $ya <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10010	10109	
==>tch? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10745	10844	
==>tch? ",$m ? "yes" : "no","\n";
print ' $` ',defined($`)?"\"$`\"":"undef","\n";
print ' $& ',defined( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3770	3991	
==>Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.spli <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3770	3991	
==>Set-Cookie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.spli <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31866	31962	
==>example the first library generates an error
message and wants it shown to the user, the main pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31866	31962	
==>example the first library generates an error
message and wants it shown to the user, the main pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1543	1655	
==>mediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1543	1655	
==>mediate_statement_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3963	4069	
==>$.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3963	4069	
==>$.left.vtype, 'LValue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1358	1462	
==>ing runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-fir <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1358	1462	
==>ing runtime since Pugs 
does not yet support `BEGIN{}` or `use`. Modules are 
loaded in a /first-come-fir <==
2	/Users/nnunley/pugs/util/testgraph.pl	1799	1947	
==>Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        F <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12947	13084	
==>es->{ok} - $tres->{todo} - $tres->{skip},
        todo   => $tres->{todo},
	skipped   => $tres->{skip},
        failed => ($tres->{seen} | <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3185	3282	
==>rsion?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3185	3282	
==>rsion?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add_co <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9830	9927	
==>ule written for Pugs.

It provides a simple set of common test utility functions, and is
an implem <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9888	9985	
==>ule written for Pugs.

It provides a simple set of common test utility functions, and is
an implem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1470	1590	
==>alues for them.

It includes the parameters as well as anything declared within

that scope.



the Sig contains a simply <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1409	1525	
==>alues for them.
It includes the parameters as well as anything declared within
that scope.

the Sig contains a simply <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11385	11487	
==>ment should be before/tied with/after the
second in the final ordering of the List. aka "The Perl 5 way <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1755	1877	
==>t?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1755	1877	
==>t?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $header;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7344	7443	
==>->regex($regex)

Clears the parser's memory and sets $regex as the regex to be parsed.

=back

These <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2258	2368	
==>ad2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always r <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2258	2368	
==>ad2 C<< identity($x) >>

The identity function.

=head2 C<< const($x) >>

Returns a new function which always r <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39046	39187	
==>thod' => (
    # method label
        symbol->new('get_attributes'),
    # method body
        method->new(
            $::ENV,
            me <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7490	7615	
==>m_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7490	7615	
==>m_loaded_module( $module_name,
            $message_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_M <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12945	13048	
==>nite if the recurrence is infinite.
Returns negative infinite if the recurrence is an empty set.

- `str <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12945	13048	
==>nite if the recurrence is infinite.
Returns negative infinite if the recurrence is an empty set.

- `str <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	507	620	
==>od size            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	507	620	
==>od size            () returns Object { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1872	1981	
==>DO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync w <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1872	1981	
==>DO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync w <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9913	10015	
==>nd is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new fea <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9971	10073	
==>nd is
an implementation of the TAP protocol.

This module, like Pugs, is a work in progress. As new fea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8748	8863	
==>ndent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8744	8859	
==>ndent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1209	1360	
==>uld not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub jo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1209	1360	
==>uld not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

multi sub jo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13306	13402	
==>o(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most of th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13364	13460	
==>o(1)` named parameter for all these  functions.

The `:depends("string")` parameter to most of th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1442	1539	
==>_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expect <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1442	1539	
==>_ARG_ARY_ELEM_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expect <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11200	11308	
==>t_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11200	11308	
==>t_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	37008	37104	
==>: flags (C<(?i-s)>)

=head2 minmod

Family: minmod

Types: minmod (C<?> after I<quant>)

Data: an <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2681	2797	
==>hc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_t <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2681	2797	
==>hc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10991	11130	
==>direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10985	11124	
==>direction = "-";
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $program );
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28699	28796	
==>that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28699	28796	
==>that will serve their role.

For example, inside the text Template file "MyApp/L/Eng.pm" you can h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26009	26118	
==>r - This contains zero or more Relation::Example attribute names that
define the heading of this Relation::Exa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1932	2030	
==>ubstr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$match}->{tail};
__END__

use YAML;
print Dump $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9826	9921	
==>from "negative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9826	9921	
==>from "negative Infinite" until "Infinite".

Recurrence sets can be combined with union, intersec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3676	3791	
==>mpile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Rule->compile( '
    $<q1> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4614	4715	
==>eld_is_array {
    my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /^\[/ ? 1 : 0;
}
sub fiel <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16519	16610	
==>Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16519	16610	
==>Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<f <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23836	23932	
==>lace|T]) :- !, var(X).
replace_at_n_if_undef(N,Replace,[],[_H|T1]) :- !, N1 is N - 1, replace_at_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12924	13019	
==>ift(), ="some_file" worked, so I
# added the .shift() declaration here.  --iblech
class Str does <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4449	4530	
==>s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4449	4530	
==>s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25362	25461	
==>te
such a system following the terms of the GPL for Rosetta and the licenses
of the other components <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25362	25461	
==>te
such a system following the terms of the GPL for Rosetta and the licenses
of the other components <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24899	24994	
==>e return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24899	24994	
==>e return
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20286	20380	
==>toping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20286	20380	
==>toping.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5922	6023	
==>W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5610	5711	
==>W' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2760	2870	
==>d by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2760	2870	
==>d by $class $version ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	920	1078	
==>it(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	920	1078	
==>it(' ', 3);
            }
            
            .protocol($protocol) if $protocol.defined;
            .code($code) if $code.defined;
            .message($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3950	4065	
==>hing in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, refer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3962	4077	
==>hing in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypothetical variable, refer <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5001	5132	
==>rn {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5194	5325	
==>rn {
        bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( captur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	346	464	
==>KAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $na <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	346	464	
==>KAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $na <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11961	12062	
==>orce_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4604	4705	
==>orce_object(anyof_class => $S->force_object(prop => $name, 1)) if $cc;
    return $S->object(prop => $ <==
2	/Users/nnunley/pugs/util/fixauthors.pl	128	237	
==>STDIN,  ":utf8");

my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16788	16912	
==>O $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ing <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16788	16912	
==>O $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ing <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	672	928	
==>ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	672	928	
==>ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Roset <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	334	479	
==>erpreter;
    
    use Data::Dumper;
    
    my %__classes__ = map { $_ => undef } 
        qw/
        num bit str symbol nil type  
        lis <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1909	2007	
==>epends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1967	2065	
==>epends);
}

## unlike

sub unlike (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9539	9658	
==>connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_auto <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9539	9658	
==>connected     => { $connected },
    logged_in     => { $inside },
    last_traffic  => { $last_traffic },
    last_auto <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32687	32791	
==>t to the result;
the new Relation contains all the tuples of the source Relations, including
one copy eac <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37237	37341	
==>t to the result;
the new Relation contains all the tuples of the source Relations, including
one copy eac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	160	270	
==>controls whether '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	160	270	
==>controls whether '_' can be used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7261	7372	
==>multi Array::unshift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, 0, 0, @values);
   @array.ele <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12849	12954	
==>Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12849	12954	
==>Locale::KeyedText -
Refer to user messages in programs by keys

=head1 VERSION

This document describes Lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1739	1891	
==>>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1739	1891	
==>>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.chars {
                            my $esc = $v;
                            $esc ~~ s:P5:g/([\"\\])/\\$0/; # escape <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3375	3481	
==>\( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subn <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3375	3481	
==>\( <signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subn <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3604	3730	
==>nd_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defin <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3604	3730	
==>nd_is_open =   Bool::True if $end == Inf;

        die "start must be less or equal to end" if $start > $end;

        if defin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3938	4033	
==>tion(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3938	4033	
==>tion(@b).members }
## multi sub *infix:<%#> (@a, $b) returns Array { set(@a).symmetric_differenc <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6225	6334	
==>= 0 goto term_literal_end
    inc pos
    inc litlen
    goto term_literal_loop
  term_literal_end:
    if lit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	166	274	
==>r to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	159	264	
==>r to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglo <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14699	14916	
==>?               # failure?
                  ok\b
                  (?:\s+(\d+))?         # optional test number
                  \s*
                  (.*)                  # and the rest
REGEX

sub _is_test {
    my <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5356	5530	
==>$Config{osname} eq "cygwin" 
                            or $Config{osname} eq "MSWin32"
                          )
       ) {

        # Looks like we're on a Windows-ish sy <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15751	15864	
==>$S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10607	10720	
==>$S->{next} }, qw< minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(q <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4951	5049	
==>005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4951	5049	
==>005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4930	5037	
==>IGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistr <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4930	5037	
==>IGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This program is free software; you can redistr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	329	483	
==>ile              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	329	483	
==>ile              is rw;
    has $.autosave          is rw;
    has $.ignore_discard    is rw;
    has $.hide_cookie2      is rw;
    
    $EPOCH_OFFSET = 0 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14	113	
==>ntities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14	113	
==>ntities-0.2;
use v6;

#@EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5733	5851	
==>rfaces can be
# addressed.  One possibility is to return a negative value for
# relative seconds and a positive value f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5733	5851	
==>rfaces can be
# addressed.  One possibility is to return a negative value for
# relative seconds and a positive value f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3550	3686	
==>okie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3550	3686	
==>okie, nph => $nph, extra => %out);
    } else {
        return header('', $status, nph => $nph, extra => %out);
    }
}

sub url_decode ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7261	7368	
==>een
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7261	7368	
==>een
parsed.

=item I<start_element ('begin')>

This event is fired when a '=begin' directive is reached.

=i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2603	2719	
==>e real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2591	2707	
==>e real references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_cap <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10843	10940	
==>+= (1,2,3,4);

Note that in this instance, the information about how many members
were actually ne <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10843	10940	
==>+= (1,2,3,4);

Note that in this instance, the information about how many members
were actually ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1970	2137	
==>=> 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'af <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1970	2137	
==>=> 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'af <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26976	27076	
==>urned Relation has
the complement subset of the original's attributes to what C<project> would
return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31528	31628	
==>urned Relation has
the complement subset of the original's attributes to what C<project> would
return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	46	158	
==>s) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=fo <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	46	158	
==>s) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10648	10755	
==>ndef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10648	10755	
==>ndef.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7005	7120	
==>ase);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7005	7120	
==>ase);
    my $path = canonpath($_path);

    my ($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4936	5070	
==>'$from' to '$to': $!");
        return;
    }
}

=pod JIB::Utils->_copy( from => $file|$dir, to => $target );

Copies a file or directo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8523	8645	
==>Stack >= 1 )
  {
    push @bsrStack, "bsr_reduce_2";
    goto reduce;
    bsr_reduce_2:
    goto end;
  }
  end_1:
  goto e <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1616	1715	
==>::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
    die <<"END_DIE";
Please invoke ${\__PACKAGE <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20762	20861	
==>method do ($self %params))
        (= $method (WALKMETH (&dispatcher (symbol new DESTROY)))))))

=cu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16428	16539	
==>elation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( ga <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19905	20016	
==>elation {
    return Relation.new(
        heading => $!heading.union( $other!heading ),
        body => set( ga <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19692	19786	
==>f($fmt,$k,$v) }, $obj.kv );
}

sub PIL2JS::Internals::use_jsan_module_imp (*@whatever) {
    di <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3583	3675	
==>t';
__PACKAGE__->mk_accessors(qw(positional invocant named named_slurpy));
use Carp qw(croak) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1076	1176	
==>one and the same as what
you get when you use the C<type> keyword.  Or maybe the full package
name (C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	460	566	
==>t should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	460	566	
==>t should be called only once, whenever there is an access
#       to: .from(); .to(); methods that call ._b <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11062	11196	
==>e into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11062	11196	
==>e into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my ($class, $source) = @_;
    return $s <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	197	329	
==>er {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) returns List <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1534	1632	
==>dule first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRI <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1534	1632	
==>dule first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1158	1247	
==>iler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1378	1467	
==>iler::Rule->compile(<<'RULE')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4292	4562	
==>->new($e, sub {
                              my $e = shift;
                              $e->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
) <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	638	727	
==>->analyze($name, \@test_output);
  my %results = $strap->analyze_fh($name, $test_filehandl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26228	26324	
==>g(Str) of Any - This contains zero or more member tuples of
the Relation::Example; each Set membe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12731	12873	
==>$path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12731	12873	
==>$path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2858	2992	
==>f ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2858	2992	
==>f ( $cmp > 0 ||
         ( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_s <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2632	2747	
==>ugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Zlib;
    open m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1626	1760	
==>.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1626	1760	
==>.nick,
    Str $.ircname  = $.nick,
    Str $.host,
    Int $.port         = 6667,
    Int $.autoping     = 90,   # Autoping the server <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	778	945	
==>ion's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of An <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4256	4423	
==>ion's attributes.
        # Note that it is valid for a Relation to have zero attributes.
    has Set of Mapping(Str) of Any $!body;
        # Set of Mapping(Str) of An <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1797	1904	
==>::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing b <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1797	1904	
==>::Find> library.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	3936	4150	
==>tr   => \$_[0],
                from  => \(0 + $_[5]),
                to    => \(0 + $_[5]),
                named => {},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8617	8730	
==>tity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8617	8730	
==>tity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	4027	4132	
==>rt() );
        }
    }
};

require "lib/TestBuilder/TestPlan.pm";
require "lib/TestBuilder/Output.pm";
re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1208	1304	
==>Source:\n$self->{perl5}\n" if $@;
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self-> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	533	634	
==>d if $pad->name eq $symbol;
	}

	die "symbol $symbol could not be resolved in the last scope by $self. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3717	3814	
==>evan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@D <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3717	3814	
==>evan Little <stevan@iinteractive.com>

Max Maischein <corion@cpan.org>

Darren R. Duncan (C<perl@D <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6969	7069	
==>" unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7027	7127	
==>" unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19144	19235	
==>header(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authenti <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19144	19235	
==>header(),
push_header() or init_header() methods to set the referrer.

=item $h.www_authenti <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	221	335	
==>hift;
	$name => Thunk(
		Seq(
			(map { Param($_) } @params),
			Stub($name),
		)
	)
}

sub mk_constructors {
    f <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3314	3440	
==>size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3314	3440	
==>size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1846	1943	
==>algorithms will have a key, which will be specified in the options; check your 
cipher's documenta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1846	1943	
==>algorithms will have a key, which will be specified in the options; check your 
cipher's documenta <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5344	5445	
==>again to load it.
END_DIE

    my $obj = $admin->load($method, 1);
    push @{$self->{extensions}}, $o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24989	25083	
==>regmust only if the r.e. contains something
 * potentially expensive (at present, the only such <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	218	361	
==>ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	218	361	
==>ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    ha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11783	11882	
==>ngs');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little wh <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11841	11940	
==>ngs');

However the `&infix:<gt>` is currently not implemented, so you will have to wait
a little wh <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	702	818	
==>et-Cookie: (multiple cookies)
    print CookiesHeader();
    if ($location.defined) {
        $header ~= "Location: " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17634	17729	
==>etta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prep <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17634	17729	
==>etta virtual
machine; it has a spartan DBI-inspired set of methods which you use to
compile/prep <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	266	387	
==>TER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = call <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	266	387	
==>TER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

sub unimport {
    my $pkg = call <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10462	10565	
==>]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10462	10565	
==>]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_pe <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12033	12130	
==>parameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the par <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12033	12130	
==>parameter.

- `previous( $x )`

Returns the element in the recurrence that is right before the par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4538	4699	
==>kage->new( 
                file => File::Spec->rel2abs( $archive ),
                meta => $self->meta,
            );                
}



1;

# Local variable <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	4333	4441	
==>$src = $conf->compile_dir->subdir( $self->package );
            system( qq[cp -R $src ]. $inst->dir )     an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12916	13043	
==>hod normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12916	13043	
==>hod normalize_path (Str $str is rw) {
        given ($str) {
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	374	472	
==>input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	374	472	
==>input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Read the input f <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	818	929	
==>$path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $dire <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	818	929	
==>$path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $volume    = ~$0;
        $dire <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10517	10651	
==>ol;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10511	10645	
==>ol;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( $pro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10752	10852	
==>::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10752	10852	
==>::KeyedText::Translator';
    die Locale::KeyedText::Message.new(
        msg_key => $msg_key, msg_va <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17109	17214	
==>y $noop = Hacks->noop;
sub compile {
  my($re)=@_;
  $re =~ s/<(\w+)([^\>]*)>/(?{\@_=(\$__c__,'$1','$2');g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3124	3249	
==>is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3124	3249	
==>is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3034	3168	
==>) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3034	3168	
==>) = @_;
    my $sum = sprintf('%08X', do {
        local $/;
        open my $fh, "<", $module
          or die "Cannot open $module: $ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2085	2209	
==>ng !! $.count }
        multi method as (--> Str) { $.string }
        multi method as (--> Bool) { true }
        multi meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13613	13711	
==>cument.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13613	13711	
==>cument.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Docum <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13541	13680	
==>$self->{max}  = $max;
        assert( $self->{max} >= 0,  'Max # of tests looks right' );

        if( defined $extra ) {
            my($to <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3692	3790	
==>x where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multidex> wil <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3692	3790	
==>x where
captures should put themselves.  In the former example, when C<(bar)> runs,
C<multidex> wil <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	180	277	
==>ckage Blondie::Backend::Perl::Prim;
	use base qw/Blondie::Backend::Prim/;
}

sub native {
    my $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4007	4117	
==>$self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamble by $top_class $top_versi <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2958	3067	
==>$self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamble by $top_class $top_versi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3714	3849	
==>ied = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3702	3837	
==>ied = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    return
        "$_[1] do { my \$quantified = 1;\n" . 
        "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4894	4996	
==>ually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4894	4996	
==>ually the entire match string).

=head1 METHODS

=head2 from ()

Returns the initial position of the ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24705	24805	
==>t Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24705	24805	
==>t Locale::KeyedText indicates a failure is to throw an
exception; most often this is due to invalid i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1121	1220	
==>mar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1121	1220	
==>mar::Base';

    *rule = Pugs::Compiler::Rule->compile( '((.).).' )->code;
    my $match = MyGrammar <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8295	8397	
==>spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8295	8397	
==>spec says it is supposed to, or whether is due a fluke or unspecced.
    # Currently, "::($m).ref" retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3228	3339	
==>ory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two togethe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3228	3339	
==>ory.  So,
    # replace all names with $parentDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two togethe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3233	3362	
==>te => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3233	3362	
==>te => 2/60,    burst_size => 1);
    my $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2170	2297	
==>ode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2170	2297	
==>ode{$code} }
    
    sub is_info     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10569	10661	
==>s that Rosetta::Model Nodes are arranged correctly
depending on their types, that their attri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10569	10661	
==>s that Rosetta::Model Nodes are arranged correctly
depending on their types, that their attri <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	572	765	
==>rsion
            list_dependencies  dependency_satisfied   dependency_satisfied_by               
        ];


$Cwd            = cwd();
$Pms            = '_jib';                           # met <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3276	3383	
==>.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> E <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3276	3383	
==>.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt]' }
}

# PILApp :: Expression -> [Expression] -> E <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18280	18390	
==>" if $where eq "";
    my $tell = 0 ? "confess" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell.'("Undefin <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28036	28129	
==>--perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepended to the switches u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2440	2564	
==>n Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2580	2704	
==>n Pugs::Runtime::Match->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1518	1783	
==>stant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
                   ruleop::constant( "dig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1391	1644	
==>stant( "\<" )
                 ,
                   ruleop::constant( "\>" )
                 ,
                   ruleop::constant( "\!" )
                 ,
                   ruleop::constant( "alnum" )
                 ,
             ] )
           , <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1389	1527	
==>2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1389	1527	
==>2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy) returns Array is export(:DEFAULT <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15055	15157	
==>ulti-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. The func <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15113	15215	
==>ulti-
sub which will be able to handle structures of arbitrary depth and of
an arbitrary type. The func <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1336	1444	
==>pans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1336	1444	
==>pans;
    return @.spans.map:{ .stringify }.join( ',' );
}
method size () returns Object {
    return [+] @.s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7082	7215	
==>"pir"    and return "PIR (Perl 6 on Parrot)";
  $_ eq "normal" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limit <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1441	1588	
==>th::Class::dir($_)} 
                                    qw(author name prefix)] ];


### meta dirs/files
### These are dependant on the installatio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1785	1889	
==>($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1785	1889	
==>($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20124	20229	
==>sword);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Sa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20124	20229	
==>sword);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authorization_basic

Sa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16262	16355	
==>effective mechanism for
applications and packages that empowers single binaries to support N
l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16262	16355	
==>effective mechanism for
applications and packages that empowers single binaries to support N
l <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33669	33774	
==>tioned.

=item C<difference (Relation $other!) returns Relation>

This method is a generic relational oper <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38219	38324	
==>tioned.

=item C<difference (Relation $other!) returns Relation>

This method is a generic relational oper <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	695	822	
==>ry = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	695	822	
==>ry = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path) retu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1645	1754	
==>:PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Express <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1645	1754	
==>:PIL::PIL $.value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Express <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7156	7262	
==>kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kickee} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7156	7262	
==>kickee);
        %!users{normalize $kickee}<channels>.delete($chan)
          if %!users{normalize $kickee} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23490	23655	
==>op::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23769	23934	
==>op::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'block', \&{'gra <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5843	5953	
==>ns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5843	5953	
==>ns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is_open;
}
method end_is_closed () r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6186	6347	
==>$range;
    }
    unless ($pass) {
        if ($got eq $expected) {
            unshift @mess, "# $got - $expected = " . ($got - $expected) . "\n";
        }
	uns <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1545	1646	
==>NAME

bit - the core bit type

=head1 METHODS

=over 4

=item B<new (*native*) returns bit>

=item B<t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8613	8734	
==>l_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8613	8734	
==>l_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18362	18569	
==>) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_content($i, 1, $1, $2, $back <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6832	7010	
==>pm: $!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1478	1592	
==>}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Mak <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1478	1592	
==>}

sub pmc_import {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Mak <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3642	3739	
==>{pathnames}{$pkg} = delete $INC{$file};
        push @{$self->{extensions}}, $pkg->new( _top => $t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3332	3430	
==>It 
also means that the nonce or initialization vector should be hashed with the 
key, not merely a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3332	3430	
==>It 
also means that the nonce or initialization vector should be hashed with the 
key, not merely a <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1101	1232	
==>$duration = duration($/[1..7]);
        if ( defined $8 ) {
            $duration.end = duration($/[9..17]);
        }
    }
    els <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7312	7401	
==>dition_test(Rk), p5_concatenation(R1), p5_condition_alternative(R2).
p5_condition_alternat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4406	4504	
==>+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4406	4504	
==>+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[0-7])%([8-9AB][\dA-F])%([8-9AB][\dA-F])% <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	589	749	
==>required => 1, allow => sub { -d shift() }, 
                     store => \$dir },
    };
    
    my $args = check( $tmpl, \%hash ) 
                    or ( e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31003	31101	
==>ts set. For maximum flexibility in their use, the full name of a module
consists of the two parts c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31003	31101	
==>ts set. For maximum flexibility in their use, the full name of a module
consists of the two parts c <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21470	21565	
==>ugh several attributes may store values of the same class;
every Relation tuple must be distinct <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26022	26117	
==>ugh several attributes may store values of the same class;
every Relation tuple must be distinct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7880	7997	
==>1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7868	7985	
==>1 unless defined \$index{$rnd};
$_[1]     if ( \$quantified ) {
$_[1]       if ( \$bool ) {
$_[1]         push \@{ \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3694	3818	
==>er for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Grammar file to $n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3562	3682	
==>er for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Grammar file to $n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	868	970	
==>t (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also speci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	868	970	
==>t (e.g. Julius Caesar used 3; 
Augustus Caesar used 1).  If a shift is specified, you should also speci <==
2	/Users/nnunley/pugs/util/build_pugs.pl	476	571	
==>lls GHC to build a pugs exectuable, optionally inlining
precompiled modules in a second pass.

P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3764	3880	
==>uns Perl5

  # - you have loaded the Grammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # buil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3629	3741	
==>uns Perl5
  # - you have loaded the Grammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # buil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2055	2171	
==>> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2055	2171	
==>> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++' : $<op>[0];
	  re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14633	14737	
==>.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start => 1. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14633	14737	
==>.0 )`

Creates an "open" span, that is, it does not include the start or end values.

- `new( start => 1. <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3015	3112	
==>";
The '$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5217	5314	
==>";
The '$method' method does not exist in the '$self->{prefix}' path!
Please remove the '$self->{p <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2027	2149	
==>ented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2027	2149	
==>ented :(
    #if (want.Item) {
      return $head
    #};
    # my @list = "X-LWP-HTTP-Status: $code", (split rx:perl5/\015 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9789	9941	
==>ar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10068	10220	
==>ar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       , <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	901	1026	
==>fined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep: <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	901	1026	
==>fined ) {
        $pre_size = $self.size;
        my $to_remove = none(@items);
        $!members = any($!members.values.grep: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11735	11889	
==>1]         return { bool => 1, tail => \$_[0], return => sub $code };\n" .
           "$_[1]     }\n" .
           "$_[1] )\n";
}
sub node::runtime_alterna <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6278	6386	
==>wid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6278	6386	
==>wid

= NAME

Span::Num - An object representing a single span, with a simple functional API.

= SYNOPSIS

  u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4664	4782	
==>::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # s <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4664	4782	
==>::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.items, " splice: $offset, $length, ", @list;
    # s <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1012	1182	
==>$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced clas <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1012	1182	
==>$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX: add advanced clas <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18243	18379	
==>ere = $pkg;  $where = "root namespace" if $where eq "";
    my $tell = 0 ? "confess" : "croak";
    $code .= '  $_[2] ? 0 : Carp::'.$tell <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	525	624	
==>1 SYNOPSIS

    use Blondie::Prelude;

=head1 DESCRIPTION

The prelude is essentially a reference im <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1136	1246	
==>ns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shells have trouble with a f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7308	7418	
==>here /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7308	7418	
==>here /.../` clauses here :-)
    method set_cookie (Num $version, Str $key, Str $val, Str $path, Str $domain, S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6781	6907	
==>M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6781	6907	
==>M' } ],
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_pers <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6595	6718	
==>.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6595	6718	
==>.isa( 'Recurrence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( sp <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6189	6286	
==>ctive
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6189	6286	
==>ctive
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2899	3001	
==>C and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2899	3001	
==>C and Pugs currently run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1248	1338	
==>his document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1248	1338	
==>his document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<This d <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5875	5959	
==>y Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5875	5959	
==>y Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config/Tin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1760	1870	
==>_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1760	1870	
==>_[0]} if exists ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21265	21362	
==>es this would come up with keys which are unique across all Perl packages
(perhaps the key name ca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21265	21362	
==>es this would come up with keys which are unique across all Perl packages
(perhaps the key name ca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4952	5068	
==>es );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $! <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4952	5068	
==>es );

    $!document = $document;
    $document!all_nodes.push( $?SELF );
    if ($parent_node.defined) {
        $! <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1558	1655	
==>ent.depth() + 1;
}

## --------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1558	1655	
==>ent.depth() + 1;
}

## --------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4862	5015	
==>h_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4862	5015	
==>h_dirs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $pat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	616	730	
==>ator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	616	730	
==>ator module, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # ( <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8503	8614	
==>rminfo and
      -M $initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $init <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4519	4631	
==>if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a log <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4519	4631	
==>if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set )`

This method return a log <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5542	5637	
==>ule is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Regio <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5542	5637	
==>ule is based on Adam Kennedy's Perl 5 module by the same name

Joshua Gatcomb, E<lt>Limbic_Regio <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2535	2668	
==>open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2535	2668	
==>open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my int $cmp;
    $cmp = $.en <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7938	8080	
==>THOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7938	8080	
==>THOD; # only die if we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9012	9118	
==>d/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <encipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9012	9118	
==>d/or modified under 
the same terms as Perl itself.

=cut

class Cipher-0.02;

#enum Cipher::Mode <encipher <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5056	5200	
==>ys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    t <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5380	5524	
==>ys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11161	11263	
==>$class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11161	11263	
==>$class, $source) = @_;
    return $source;
}

# Regexp fragments for matching heredoc, pod section, com <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1018	1110	
==>lsiteman1dir => $Config{installsiteman1dir} || $Config{installman1dir},
        installsitema <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6445	6587	
==>erator->new(
        yylex => $lex, 
        yyerror => sub { 
            local $Carp::CarpLevel = 2;
            carp "parsing error in Expre <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7486	7572	
==>>struct_equiv->val->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3374	3497	
==>> $_[5], %{$_[4]} } }
    | SUB SUB BAREWORD '(' signature ')' attr block 
        {
            #print "parse-time define s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1387	1498	
==>ion --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    h <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1387	1498	
==>ion --> array concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10304	10464	
==>str;
    }
        
     
    ### takes a string with a wanted package and an optional available list
    ### and check if the package is available/provided by a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6409	6502	
==>d_method ((opaque $self:) (symbol $label) (method $method)) returns nil
    ((($self: get_attr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15925	16028	
==>ize" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `cont <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15925	16028	
==>ize" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `cont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19630	19728	
==>es to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19630	19728	
==>es to authenticate itself with a server or a
proxy, may do so by including these headers.

=item $h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21810	21904	
==>t some appropriate place, usually in the
main program, Locale::KeyedText can be given input tha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21810	21904	
==>t some appropriate place, usually in the
main program, Locale::KeyedText can be given input tha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1444	1551	
==>n though it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

reg <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1444	1551	
==>n though it uses them.  These are guesses
## until we are enlightened.

regex subname { \*? <nameZZ> };

reg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	590	700	
==>rray {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	590	700	
==>rray {  ${$_[0]}->{match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1621	1721	
==>piles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1621	1721	
==>piles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=i <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2039	2132	
==>ipies.)  In particular, it suffers from
convergence problems for some functions, which all New <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1393	1515	
==>mbers;

            # FIXME this is bullshit - i ought to read the details
            #for $class ($self.meta.superclasses <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1442	1565	
==>'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1442	1565	
==>'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10758	10859	
==>ethod returns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<T <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10758	10859	
==>ethod returns Str>

=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<T <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3783	3879	
==>e documentation/comments. If you need something
with more power, move up to Config::Simple, Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3783	3879	
==>e documentation/comments. If you need something
with more power, move up to Config::Simple, Confi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4023	4153	
==>e
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empt <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4023	4153	
==>e
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12937	13130	
==>epot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12937	13130	
==>epot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	759	938	
==>e::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	759	938	
==>e::KeyedText::Translator $translator;
    my Rosetta::Interface::DBMS      $dbms;

###########################################################################

sub main (Str :$engi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	734	835	
==>nstants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	734	835	
==>nstants = Pugs::Compiler::Rule->compile(q(
    <String>
    | \\d+
))->code;
*ArrayTail = Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	451	542	
==>rization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protoc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	451	542	
==>rization_basic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protoc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	42	158	
==>e];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    use lib         qw[bin];
    require '_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5563	5744	
==>< 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4063	4244	
==>< 0;
    $len = 0 if $len < 0;
    # $len is now ready

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33030	33125	
==>ery sparse.  Future versions will have more complete
documentation.  For now, read the source (! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14564	14662	
==>suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14564	14662	
==>suggested by HTTP spec, and it will follow
recommended "Good Practice" of ordering the header field <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	191	304	
==>l \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot joi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	191	304	
==>l \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot joi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4487	4602	
==>ize" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4487	4602	
==>ize" of the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `intersects( $set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4151	4259	
==>);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4151	4259	
==>);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [-> $event {
    %channels{~n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9336	9435	
==>lass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return ! <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9336	9435	
==>lass->pmc_compile($text, ($context->{$klass} || {}));
        $text = (defined $return and $return ! <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6395	6546	
==>n "*** Found $ghc\n";
                }
            }
        }
    }

    $ghc_version or die << '.';
*** Cannot find a runnable 'ghc' from path.
*** P <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5143	5253	
==>urrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5143	5253	
==>urrence.previous( $.span.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1996	2096	
==>_; $s =~ s/^(?!\Z)/  /mg; $s}
sub _indent_except_top {my($o,$s)=@_; $s =~ s/^(?<!\A)(?!\Z)/  /mg; $s} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5146	5241	
==>re what to do about TVar and pSyms.
package PIL::PIL1CPerl5::NodesInfo;
our %node_named;
our @no <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21241	21336	
==>y using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21241	21336	
==>y using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot.quit( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	15430	15532	
==>ler = $as_hash_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

su <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12805	12954	
==>s, 3
    pos += 2
    if $S0 != "<-[" goto scan
    mob["isnegated"] = 1
    inc pos
  scan:
    if pos >= lastpos goto err_close
    $S0 = substr tar <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2406	2515	
==>turns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2406	2515	
==>turns Str {
    my $tmp = Span.new().union( $self );
    return $tmp.stringify;
}

method intersects ($self: $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22119	22250	
==>ty numbers 0 and 1 mean to normal algebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and ea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26671	26802	
==>ty numbers 0 and 1 mean to normal algebra.

A picture of a Relation can look like a table, where each of its tuples is
a row, and ea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	301	440	
==>$n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	389	528	
==>$n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28615	28765	
==>cat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28894	29044	
==>cat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'val', 
             ruleop::alter <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6795	6906	
==>rm_ws_1
    pos = lastpos
  end:
    $P0 = getattribute mob, "PGE::Match\x0$:pos"
    $P0 = pos
    .return (mob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30573	30665	
==>eturned Relation::Example has
the complement subset of the original's attributes to what C<pr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26456	26543	
==>:Yaswi::Low::args[0], @ARGV);
}
use Language::Prolog::Yaswi qw(:query :interactive :load <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13762	13877	
==>$thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1242	1357	
==>$thunk->val;

    $self->enter_scope;
    
    my $v = $self->reduce($body);

    $self->leave_scope;

    return $v <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6605	6701	
==>The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6605	6701	
==>The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document identif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30592	30692	
==>Message; each file can be
shared by multiple Messages but the whole module must represent a single
la <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30592	30692	
==>Message; each file can be
shared by multiple Messages but the whole module must represent a single
la <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3821	3923	
==>uncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
mai <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3821	3923	
==>uncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module which is currently 
mai <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1991	2101	
==>mp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1991	2101	
==>mp.is_empty;
}

method union ($set1: $set2 is copy) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::In <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	82	208	
==>ces

=head1 SYNOPSIS

 class Role does NameSpace;

=head1 DESCRIPTION

This type is not used directly; however, it adds the "na <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1490	1586	
==>(@values,   Code $expression) returns Lazy 
 multi sub  Perl6::List::map (Code $expression ; *@va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	200	296	
==>aybe subscripts, dereferences, and method calls

    @baz[3](1,2,3){$xyz}<blurfl>.attr()

and <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2808	2934	
==>ethod insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the ind <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2808	2934	
==>ethod insert_children ($self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the ind <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1669	1773	
==>4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

E <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1669	1773	
==>4

=item C<encipher>

    $ciphertext = Some::Cipher.encipher($plaintext, :opt<value>, :opt2<value2>);

E <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12349	12451	
==>=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12349	12451	
==>=head2 C<$set1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16047	16146	
==>SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainly on how Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16047	16146	
==>SeeAlso> documentation file).  Note that the Rosetta
documentation will be focusing mainly on how Ro <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6304	6401	
==>Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6304	6401	
==>Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
node_a 'Val', 'VType' , 'xVa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20053	20141	
==>C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly acc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20053	20141	
==>C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readonly acc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4	104	
==>/Common/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4	104	
==>/Common/p6rule.pl - fglock
#
# experimental implementation of p6-regex parser
#

use strict;
use warn <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40621	40725	
==>Y or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40621	40725	
==>Y or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no means required, <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	608	729	
==>e();
exit 1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $Config{output}" or
            die "open <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2706	2811	
==>| die $@;

    # fill the place holder with the compiled version of the builtin
    $val->set($self->reduc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2471	2571	
==>{
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2471	2571	
==>{
    return ($other.subset($self));
}
method proper_superset($self: Set $other) returns Bool {
    r <==
2	/Users/nnunley/pugs/util/version_h.pl	220	329	
==>n IN, "< $version_h" and do {
  while (<IN>) {
    /#define PUGS_SVN_REVISION (\d+)/ or next;
    $old_revisio <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2244	2383	
==>(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'), <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2602	2741	
==>(
            Param->new('$x'),
            Param->new('$y'),
            App->new(
                Sym->new('&repeatedly_apply_and_accum'), <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	20684	20797	
==>ispatcher (symbol new DESTROY))))
     (while ($method is_not_nil) 
        ($method do ($self %params))
        ( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19251	19340	
==>,
  match_captures_set(N,[Str,NPos,[]],Ex,Ey),
  set_modifiers_from(Ey,E0,E1).
  % match_c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9818	9916	
==>he argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `comp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9818	9916	
==>he argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `comp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17052	17149	
==>Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
the glu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17052	17149	
==>Assuming the main
application is written in Perl, it is this "Rosetta" file which provides
the glu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5442	5567	
==>STNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstract($file)
     );
}

sub _slurp {
    my ( $se <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5948	6059	
==>STNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1051	1168	
==>ACKAGE__->add_rule(
        '{' => q( { return { stmt => '{'} } ));
    __PACKAGE__->add_rule(
        '}' => q( { ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8985	9088	
==>specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8985	9088	
==>specialization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parse <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8695	8831	
==>ure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8695	8831	
==>ure_next =>     sub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22955	23049	
==>rl5::X1::Api::Exception;
@ISA=qw(Error);
package Perl6::Run::OnPerl5::X1::Api::Exception::Retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	9387	9507	
==>rn $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	9387	9507	
==>rn $match;
    }
}


# ------- higher-order ruleops

sub optional {
    return alternation( [ $_[0], null() ] );
}

sub n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1220	1325	
==>s a bidirectional recurrence set.

These methods are disabled: complement(), difference($set)

  --------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1220	1325	
==>s a bidirectional recurrence set.

These methods are disabled: complement(), difference($set)

  --------- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1195	1319	
==>ssively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1195	1319	
==>ssively
  Bool $debug_raw = 0,
) is export {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1607	1713	
==>rnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1607	1713	
==>rnings qw( once );

our $statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	1499	1675	
==>s

        return unless @$nodes;



        my $tail =  $_[0];

        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];

        my $flags = $_[2];

        my $match;

        wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	1448	1617	
==>s
        return unless @$nodes;

        my $tail =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        my $flags = $_[2];
        my $match;
        wh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1806	1941	
==>eval_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3432	3538	
==>he Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3432	3538	
==>he Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7259	7355	
==>("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7259	7355	
==>("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CR <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17838	17941	
==>o we care?


=cut


=pod

=head1 Perl5's struct regexp and its abuse

=head1 Description

The perl5 rege <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4026	4173	
==>($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4026	4173	
==>($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3088	3178	
==>ersection( $self.complement_next, $self.complement_previous, $set.complement_next, $set.com <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3088	3178	
==>ersection( $self.complement_next, $self.complement_previous, $set.complement_next, $set.com <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15980	16121	
==>de }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15980	16121	
==>de }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str $.orig is rw;
    has S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2166	2344	
==>rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2413	2591	
==>rule> \> 
        
        { return { after => {
                rule  => $_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'after';
        
    rule capt <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26055	26151	
==>]).

domatch(R,T,O) :-
  listify(R,RS), listify(T,F0),
  re_parse(RS,Re),
  initialE(E0), !,
  rm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4601	4705	
==>ntersection( $set.complement );
}

# --------- arithmetic and list operations ----------------

method gr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4601	4705	
==>ntersection( $set.complement );
}

# --------- arithmetic and list operations ----------------

method gr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	454	556	
==>AME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fra <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	454	556	
==>AME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fra <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2372	2485	
==>their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COP <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2372	2485	
==>their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always appreciated.

=head1 COP <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	344	450	
==>h.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	344	450	
==>h.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pil $optional_args $te <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2097	2258	
==>node<Socket>),
                        Tree.new(:node<Thread>),
                        Tree.new(:node<Code>).add_children(
                            Tree.new(: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	911	1032	
==>ludge:
    'yaml'       => \$as_yaml,
    'e|eval=s'  => \@eval,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnPerl <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21712	21830	
==>my $middle_str = " Stat Wstat Total Fail  Failed  ";
    my $list_str = "List of Failed";

    # Figure out our longest <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3252	3368	
==>l6_rule($self, $level, $default) .
            " }\n";
    }
    return "grammar $self->{name} { \n$s}\n";
}

sub _qu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25795	25951	
==>ss;
    return $self;
  }

  sub visual {
    my $self = shift;
    "(??{$self->{data}})";
  }

  sub qr {
    my $self = shift;
    $self->visual;
  }

  su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33846	33942	
==>ted

=head2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char>, I< <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	946	1118	
==>or_var_CODE
       p6_var_CODE
       p6_var
       p6_assign
       p6_setq
       p6_bind
       p6_mangle
       p6_apply
       p6_applym
       p6_return_CODE
       p6 <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	558	687	
==>$pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	558	687	
==>$pilresult;
}

sub pil_is_ok( Str $code, Str $description? ) returns Bool {
  my $pilresult = pil_output( $code );
  ok( chomp($pi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12053	12172	
==>t, $pid);
    }

    # Tridirectional pipe. Potenially dangerous. Uses the shell.
    # Please remember to update t/pugs <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	330	430	
==>rldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = P <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	330	430	
==>rldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Perldoc::DOM;

 $kwoc = P <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4380	4491	
==>this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_co <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4380	4491	
==>this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    my $in_co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11935	12048	
==>der() method, the field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11935	12048	
==>der() method, the field name ($field) is not case
sensitive and '_' can be used as a replacement for '-'.

The $va <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23163	23278	
==>tring cname
    .local pmc exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    exp1 = self[1]
    exp1["cna <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5652	5751	
==>L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C<head> retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5652	5751	
==>L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C<head> retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3274	3373	
==>._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3274	3373	
==>._normalize_parameter( $span );
    return $span0.compare( $span1 );
}

method contains ($self: $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8053	8183	
==>Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8041	8171	
==>Match::Ratchet';
$_[1]       }
$_[1]       else {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9546	9652	
==>e into blocks. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9546	9652	
==>e into blocks. This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1133	1246	
==>esub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1133	1246	
==>esub {
#        <block> { .find_placeholders() }
#}

# Identifiers

regex name_sec { <-[0..9:.]> <-[:]>* };

regex <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6441	6542	
==>er> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is r <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6441	6542	
==>er> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $buffer is r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1973	2147	
==>e?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @uppe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1973	2147	
==>e?) {
    if $.all {
        for 0..255 {
            %.table{$_} = ($_ + $shift) % 256;
        }
    }
    else {
        for 0..26 {
            %.table{@upper[$_]} = @uppe <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3650	3757	
==>~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3650	3757	
==>~$one_diff.stringify if $DEBUG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	710	826	
==>ammar)
    {
      $grammar = classname of mod;
    }
    $target = $matchObj->target();
    $from = $matchObj->posit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32477	32600	
==>b {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33132	33255	
==>b {
                my $e = shift;
                $e->get('$self:')->send('_make_dispatcher_iterator' => $e->get('$self:')- <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17014	17162	
==>e
  wait              the wait code of the test run, if from a file

  max               total tests which should have been run
  seen              t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	337	435	
==>paths {
	warn "inc_paths has been changed to cc_inc_paths due to confusion between Perl and C";
	sh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24912	25037	
==>{ sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25191	25316	
==>{ sub_application_term =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4342	4456	
==>hash reference, the match object returns named captures
as match objects, keyed by their names.

=head2 &{}

When u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4342	4456	
==>hash reference, the match object returns named captures
as match objects, keyed by their names.

=head2 &{}

When u <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6887	6999	
==>ionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6887	6999	
==>ionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loaded) { <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	23	129	
==>6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	23	129	
==>6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5084	5197	
==>{
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5084	5197	
==>{
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1244	1350	
==>ock = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1244	1350	
==>ock = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr = match <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15751	15919	
==>nform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15751	15919	
==>nform(1) {
          $!bucket.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14362	14470	
==>< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

This rou <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14362	14470	
==>< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"');

This rou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	939	1057	
==>ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	939	1057	
==>ref( $match ) eq 'HASH';
    return $match;
}

sub from {
    ${$_[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3213	3319	
==>status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3213	3319	
==>status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head1 SYNOPSIS

  use Test::Builder::Test;

=head <==
2	/Users/nnunley/pugs/util/run-smoke.pl	576	673	
==>GV[0] or die "Need pugs sandbox location";
my $html_location   = $ARGV[1] or die "Need HTML output <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3020	3115	
==>od doy returns Int { $.month * 30 + $.day }
#our &Date::Gregorian::day_of_year ::= &Date::Gregor <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19692	19834	
==>ad
    $P0 = self[0]
    $P0 = $P0.p6analyze(pad)
    self[0] = $P0
    $P1 = self[1]
    $P1 = $P1.p6analyze(pad)
    self[1] = $P1
    .retur <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2464	2571	
==>= pugspath2runcore($1);
  $html =~ /summary="(\d+) test cases: (\d+) ok, (\d+) failed, (\d+) todo, (\d+) ski <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3379	3524	
==>.
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3379	3524	
==>.
        "$_[1] )\n";
}        
sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub varia <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	895	989	
==>uePrimitive;
class JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	994	1083	
==>::ValuePrimitive;
class JSX::Value::Object is JSX::Value;
class JSX::Value::Array is JSX:: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	197	306	
==>e vars qw(
    $VERSION 
    @ISA @EXPORT @EXPORT_OK 
    $Verbose $Switches $Debug
    $verbose $switches $de <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16213	16311	
==>rns a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it cont <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16213	16311	
==>rns a list of Spans. If the spans overlap, then the list contains a single
span. Otherwise, it cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1383	1488	
==>)->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1383	1488	
==>)->code;

*statement = $rule->compile( q(
    (<statement.parse>)
    { return { expr => $/[0]() ,} }
) )- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2387	2528	
==>cat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2398	2539	
==>cat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1018	1128	
==>_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1018	1128	
==>_module { 1 };

sub new {
    return bless {}, shift;
}

# This is called to determine whether the meaning of u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6952	7137	
==>il );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$o <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7416	7601	
==>il );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry ) {
                    my ($ver,$o <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4500	4624	
==>node = shift;

	$self->{names}{$node->orig};
}

sub is_duplicate {
	my $self = shift;
	my $node = shift;

	$self->{dups}->inc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2959	3230	
==>_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                }
            }
            
            # XXX temporary hack - matching options in 'expected' ord <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2883	3007	
==>= shift;
    my $top_class = ref($self->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5704	5829	
==>Pugs::Grammar::Ternary;

sub recompile {
    my $class = shift;

    # tokenizer
    %hash = (
        %Pugs::Grammar::Infix:: <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2751	2871	
==>:zip. r8593.
# But Prim.hs is \\n   List      list    ¥       safe   (Array)\
#   ie, both return and argument types dif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21114	21215	
==>ing text for users, and your program would use
associated keys internally.

It is strongly suggested ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21114	21215	
==>ing text for users, and your program would use
associated keys internally.

It is strongly suggested ( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8300	8402	
==>a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WAR <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8300	8402	
==>a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WAR <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11745	11995	
==>id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11745	11995	
==>id' } ],
                        ] ],
                        [ 'query_clause', { 'type' => 'WHERE' }, [
                            [ 'expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2106	2276	
==>ies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2106	2276	
==>ies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domain};
                    next unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	254	389	
==>ex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $g <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	254	389	
==>ex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $g <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	148	248	
==>ir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	148	248	
==>ir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1766	1869	
==>dules look like, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 co <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1766	1869	
==>dules look like, you can have a look at the
modules in F<ext/>. Another good source of working Perl 6 co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	8682	8861	
==>and die $?;
            
            die "File '$_' not removed" if -e $_;
        }
        close $fh;
    
        ### XXX need status dir like dpkg
        my $postrm = $self->c <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1832	1977	
==>and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $fh;


    ### XXX need status dir like dpkg
    my $postrm = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7962	8060	
==>{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7962	8060	
==>{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users.delete(normalize $event<f <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	456	571	
==>};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	456	571	
==>};
    $class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4018	4134	
==>uantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4018	4134	
==>uantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1578	1676	
==>y.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map() <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1578	1676	
==>y.
* Removed internal class Lazy::Generator

2005-08-06
* new lazy methods reverse(), grep(), map() <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5166	5316	
==>s a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5630	5780	
==>s a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed packages. This way, we <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13857	13975	
==>onnected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13857	13975	
==>onnected) {
        # We haven't seen any traffic for at least $autoping seconds, so we
        # PING the server. If t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5376	5568	
==>eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5388	5580	
==>eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - w <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	334	445	
==>d)
method Show {
    ...
}

method &infix:«==»($self, Perl::Param $other) {
    ...
}

method &infix:«<»($se <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1211	1335	
==>e}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($se <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1211	1335	
==>e}";
    my $obj  = $self->{API}{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($se <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36516	36610	
==>s arguments is not significant to the result;
the new Relation::Example contains all the tuples <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12470	12568	
==>L::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are pas <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12470	12568	
==>L::Entities>.  Until we have it stabilized, these
docs will not be updated.  The tests that are pas <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	137	253	
==>$format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {requir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	137	253	
==>$format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got_options;
	$got_options = 1;
	eval {requir <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23874	23973	
==>s bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::Se <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23874	23973	
==>s bundled with Rosetta and implements
a command shell for the Rosetta DBMS.

Go to the L<Rosetta::Se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12479	12581	
==>ated with a new type variable)
# this new env is passed down to the body, but is also reused in the 'ty <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2548	2647	
==>e) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduce(" . (ref($node) ? $node : qprint <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1095	1217	
==>_recurse_resolve( $entry );
    
    ### find what dependencies we have 
    for my $depends ( @list ) {
        print "\n* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5527	5679	
==>{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5527	5679	
==>{state} = $succ;
            delete $match2->{label};
            #delete $matches[1]{abort};
            delete $matches[1]{return};

            # prin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4283	4405	
==>->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4283	4405	
==>->() ) eq '3 4 infix:<+> 5 infix:<+>' || 
        postfix( $match->() ) eq '3 4 5 infix:<+> infix:<+>', 
        'AST looks <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4789	4955	
==>ine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4789	4955	
==>ine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3938	4061	
==>utes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!chi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3938	4061	
==>utes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any.
    has Rosetta::Model::Node     @!chi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12006	12123	
==>urn "$_[1] alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { ca <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	941	1051	
==>b add {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || confess "The right <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6629	6750	
==>thod reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6629	6750	
==>thod reverse () { 
    return Perl6::Container::Array.from_list(
        &*reverse(@.items).map:{
            .isa(Perl6:: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25662	25754	
==>ype::variable::free->new,
	);
	is($type->stringify, "∀α. ∀β. ∀γ. (α × β) → γ", <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2812	2936	
==>me )) {
            return Bool::true;
        }
    }
    return Bool::false;
}

method no_names_exist of Bool (Relation::At <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5114	5216	
==>expected
# if $range is 0, then check it's exact
# else if $expected is 0, then $range is an absolute v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	523	612	
==>Source>, L<JIB::Utils>, L<CPAN>, L<CPANPLUS>

=head1 AUTHORS

Jos Boumans E<lt>kane@cpan.o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14805	14937	
==>urn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14799	14931	
==>urn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" and "after" are handled in a separate rule
        if ( $cmd e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14327	14434	
==>arget) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14327	14434	
==>arget) { ./:enqueue("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  metho <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9103	9209	
==>optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9099	9205	
==>optional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	610	722	
==>med, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	610	722	
==>med, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Runtime::Match: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4820	4917	
==>er, the match object returns the numified version
of the result object (usually the entire match s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4820	4917	
==>er, the match object returns the numified version
of the result object (usually the entire match s <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1577	1672	
==>tion composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< i <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1577	1672	
==>tion composition, think of Haskell's C<.>. There's also the ASCII
equivalent C<o>.

=head2 C<< i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1443	1591	
==>traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_que <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1443	1591	
==>traffic seen from server
  my $last_autoping;       # Timestamp of last ping sent to server
  my $hdl;                 # Socket
  my $queue = new_que <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9079	9180	
==>ng HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9079	9180	
==>ng HTTP Message headers

=head1 SYNOPSIS

 use HTTP::Headers;
 $h = HTTP::Headers.new;

 $h.header('Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	255	346	
==>\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	255	346	
==>\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11545	11650	
==>cts are done for this, but maybe I will
figure out a good way to do this without. Either way it is still T <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11545	11650	
==>cts are done for this, but maybe I will
figure out a good way to do this without. Either way it is still T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13880	13989	
==>class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8086	8195	
==>class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17604	17707	
==>the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17604	17707	
==>the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6846	6989	
==>key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6846	6989	
==>key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4955	5116	
==>nd =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4955	5116	
==>nd =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	814	998	
==>-d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	814	998	
==>-d $abs {
                $abs = catfile( $dir, $node );
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5792	5987	
==>eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5804	5999	
==>eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    die "match v <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4951	5082	
==>= $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $resu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4951	5082	
==>= $tmp.set;
}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $resu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3487	3635	
==>-R $srcdir/* $builddir/$path ] ) and error($?), return;
    }        

    ### XXX make me more robust
    local $CWD = $builddir;
    
    ### XXX i <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3048	3167	
==>y' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)] <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3048	3167	
==>y' parameter
    # trait at some point
    my $path = $_path;
    my $orig_path = $path;
    $path ~~ s:perl5[^([a-z]:)] <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12059	12161	
==>377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12059	12161	
==>377");

For example, this:

 $input = "vis-à-vis Beyoncé's naïve\npapier-mâché résumé";
 print e <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	310	436	
==>$a > 100 or retry }\
            .retry_with:{ $a < -100 or retry }
        $still_running--;
    }
    say 'Thread 2 finished: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12882	12996	
==>e.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autopi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12882	12996	
==>e.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for at least $autopi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1814	1929	
==>gexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callba <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	810	925	
==>gexp_pair {
  my($pat,$nparens,$callback)=@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callba <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8182	8272	
==>alDigits> <ExponentPart>?
    | <DecimalIntegerLiteral> <ExponentPart>?
}
rule DecimalInteg <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5615	5763	
==>dy

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $l <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4115	4263	
==>dy

    my $listlen = +@values;
    my $size_change = $listlen - $len;
    my @result;

    if 1 {
        my $i = $off;
        my $stop = $off + $l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1693	1788	
==>pkg->files

Returns an arrayref of files installed by this package

=head2 $alt = $pkg->alternat <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15262	15355	
==>(So
that's the object's qr() method for you right there!)

=item Regexp::MinLength

Implements <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6270	6397	
==>s;
        my $subpath = $1;
        return if lc($subpath) eq lc($self->{dispatch});

        $file = "$self->{path}/$subpath.p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8672	8792	
==>goto err_noclose
    $I1 = $I0 - pos
    $S1 = substr target, pos, $I1
    mob["value"] = $S1
    pos = $I0 + len
    mpo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5214	5309	
==>ode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 enc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5214	5309	
==>ode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTION

C<MIME::Base64> is a base64 enc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3231	3322	
==>perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_progr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3448	3539	
==>perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_progr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5522	5639	
==>d %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cach <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5522	5639	
==>d %cache353{$chan} {
      %cache353{$chan} = %channels{$chan}<users>;
    }

    %channels{$chan}<users>.delete(%cach <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7090	7191	
==>head2 Setting a Regex

To have the parser work on a specific regex, you can do use any of the
followin <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30665	30763	
==>now. What we know for
sure is, that it was inspired by Larry Wall's TEST script that came
with perl <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1720	1945	
==>difier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1720	1945	
==>difier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30666	30768	
==>e new Relation has all of the tuples of the
original (or rather, the corresponding transformation of ea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35217	35319	
==>e new Relation has all of the tuples of the
original (or rather, the corresponding transformation of ea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1300	1433	
==>es.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the imple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4778	4911	
==>es.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation is mutable or not;
        # depending on the imple <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14392	14492	
==>) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14392	14492	
==>) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if defined $topic <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3391	3516	
==>dex is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some he <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3391	3516	
==>dex is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwise do some he <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6912	7131	
==>ic license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic lic <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6969	7188	
==>ic license'                              => 'gpl',
            'GNU lesser public license'                       => 'gpl',
            'BSD license'                                     => 'bsd',
            'Artistic lic <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20794	20993	
==>ture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21073	21272	
==>ture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	635	738	
==>h unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	841	944	
==>h unless $match->{bool};
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match->{cap <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	813	948	
==>$open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	813	948	
==>$open_end;
    my $cmp = $.start <=> $span.start;
    if ($cmp < 0) {
        $i_start       = $span.start;
        $open_start    = $sp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16482	16607	
==>1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12903	13028	
==>1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4243	4338	
==>erence, the match object returns positional
captures as match objects.

=head2 %{}

When used as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4243	4338	
==>erence, the match object returns positional
captures as match objects.

=head2 %{}

When used as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18502	18596	
==>ing a human being write out
that text themselves.

What Locale::KeyedText does is associate eac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18502	18596	
==>ing a human being write out
that text themselves.

What Locale::KeyedText does is associate eac <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	302	406	
==>e , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	302	406	
==>e , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13832	13932	
==>s.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) retur <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13890	13990	
==>s.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, Str $reason?) retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4249	4404	
==>th care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4249	4404	
==>th care
      $val ~~ s/\s+$//;                    # trailing newlines and space must go
      $val ~~ s:g/\n\n+/\n/;               # no empty lines
      $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8901	9000	
==>es raw strings.

=item I<newline>

This event handles newlines in the text, it is a specialization o <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8901	9000	
==>es raw strings.

=item I<newline>

This event handles newlines in the text, it is a specialization o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8108	8261	
==>ce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and " <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8108	8261	
==>ce {
    my $class = shift;
    my @blocks;
    my $prev;
    while (@_) {
        my $block = shift;
        my $next = $_[TEXT];
        if ($next and " <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3593	3691	
==>It's not clear how to do
it.  Possible tools include get_sv, eval_pv, and %^H.  The first thing
nee <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	33979	34079	
==>er, and it works like Perl's
standard C<map> operator. It returns a new Relation::Example whose attri <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	744	844	
==>lf->get_file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-U <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	637	729	
==>lf->get_file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-U <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2735	2994	
==>readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verba <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2735	2994	
==>readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) {                                
                            $verba <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13011	13110	
==>These functions both take blocks of code, run the code, and test whether they live or die.

=== A No <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13069	13168	
==>These functions both take blocks of code, run the code, and test whether they live or die.

=== A No <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	697	802	
==>rn defined($input) ?? () !! (undef, undef);
}

## Chapter 8 section 3.1

## XXX - the sub(Siglet) syntax w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1193	1290	
==>ository dirs/files
$config{'repo_pool'}        = [ Path::Class::dir('jibs')    ];
$config{'repo_in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12377	12480	
==>ss to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12377	12480	
==>ss to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HTML::Entities|HTML::Entities <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3156	3265	
==>$match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3156	3265	
==>$match, -> $m { $b.parse()($m, &continue) });
    });
}

method alternate ($a, $b) {
    $.Parser.new(parse => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8901	9043	
==>ng"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8901	9043	
==>ng"     => chr(9001),
    "rang"     => chr(9002),
    "loz"      => chr(9674),
    "spades"   => chr(9824),
    "clubs"    => chr(9827),
    " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	272	384	
==>{antler()}

our %hash;

sub pair {
    my $class = shift;
    return $class->no_match unless $_[0];
    #print "m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4736	4837	
==>my($self,$fname)=@_;
    $self->{'field_type'}{$fname} =~ /Maybe/ ? 1 : 0;
}
sub field_is_node {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2460	2570	
==>returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
met <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2460	2570	
==>returns Bool {
    my $rv = ($self.size < $other.size && $other.includes($self.members));
    return $rv;
}
met <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6245	6402	
==>file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6245	6402	
==>file_name_is_absolute($_base)) {
            $base = rel2abs($_base);
        }
        else {
            $base = canonpath($_base);
        }
        my ($p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2211	2321	
==>_show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2211	2321	
==>_show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        my Str $user <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7430	7546	
==>a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7430	7546	
==>a).symmetric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6638	6847	
==>e that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        } <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6638	6847	
==>e that the program runs the same way
                # as both a .pm and a .pmc.

                $data_line = $_;
                last;
            }
        }
        continue {
            $_ = '';
        } <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1021	1129	
==>rl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1021	1129	
==>rl::Compiler::PIL::Util::Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}


role Perl::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7589	7722	
==>ception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7589	7722	
==>ception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got template text for the mess <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16564	16680	
==>000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16564	16680	
==>000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  return {
    # Run all entries of @q <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4137	4239	
==>6($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4137	4239	
==>6($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decoded ~~ s:perl5 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10310	10402	
==>ed($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"unde <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11045	11137	
==>ed($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"unde <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7585	7706	
==>y of strings
	my @p = map{
	    my %h;
	    s/\s+/ /; s/\A\s+//; s/\s+\Z//;
	    $h{'isOptional'}=1 if s/\?//;
	    $h{'sl <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3180	3290	
==>lf = shift;
	bless {%$self}, (ref $self);
}

sub is_arrow { 0 }; # or arrows
sub free_vars { () }; # typicall t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11363	11466	
==>dard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14840	14943	
==>dard case of a cross-join.
    return $?SELF!_product( $other );
}

multi method product (Relation *@oth <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4005	4117	
==>,  "1st line\n" ],
      [ 'file2',  $file2,  "1st line\n2nd line\n" ],
      [ 'file3',  $file3,  "2nd line\n" ] <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9772	9921	
==>er {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> join;
     }
   }
 }


=item sort

 type KeyExtr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14538	14637	
==>$x);
}

my $as_hash_complain = sub { Carp::carp("p6_as_hash called on $_[0]"); undef };
my %as_hash_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7264	7357	
==>tent-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7264	7357	
==>tent-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @parts.join("$CRLF <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5345	5496	
==>KING: { 
        ### XXX config!
        my $my_bindir = File::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2459	2588	
==>ngest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2459	2588	
==>ngest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.chars } -> $path {
                    #LWP::Debug::d <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5156	5256	
==>fig file, and returns a boolean value
of success or failure

=item data

The C<data> method returns a <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5156	5256	
==>fig file, and returns a boolean value
of success or failure

=item data

The C<data> method returns a <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7030	7345	
==>pl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7087	7402	
==>pl',
            'BSD license'                                     => 'bsd',
            'Artistic license'                                => 'artistic',
            'GPL'                                             => 'gpl',
            'LGPL'                                            => 'lgpl',
            'BSD' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1429	1543	
==>n $pmc for writing";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn " <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4231	4342	
==>n ($cls eq 'str') if !((~$x & $x) eq 0);
    return ($cls eq 'num' || $cls eq 'int') if int($x) == $x;
    retur <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1597	1707	
==>r', '--user');

        print "*** Building the '$module' dependency.  Please wait...\n\n";

        system(".. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1290	1419	
==>ent(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1290	1419	
==>ent(), difference($set)

  ---------------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	714	821	
==>y $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n";
  local $/;
  my $smoke = <$fh>;

  un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18640	18730	
==>de_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18640	18730	
==>de_type', 'attributes', 'child_nodes') corresponds exactly to the named
parameters of Node. <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	208	314	
==>p`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	208	314	
==>p`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) { @y.grep(&f) }

# Pair constructor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16704	16803	
==>med parameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16704	16803	
==>med parameter
@child_nodes (an array ref) is set, then each element in it is used to
initialize a ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17068	17212	
==>der {
    my $self = shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15910	16006	
==>nt!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates and retu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15910	16006	
==>nt!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method creates and retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2056	2223	
==>ns
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2056	2223	
==>ns
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0];
            unshift @a, @tmp[1,2];
            redo;
        }
        if @t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9293	9457	
==>e;
    }

    sub _pp_depends {
        my $deps = shift;
        
        my $str = '';       
        return $str unless $deps;

        for my $entry ( @$deps ) { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10576	10746	
==>sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10576	10746	
==>sane state when we connect next time.
        $connected      = 0;
        $inside         = 0;
        $chans          = set();
        $servername     = undef;
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3532	3663	
==>Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3532	3663	
==>Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        die "star <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5771	5920	
==>\
\\n   Scalar    pre     min     safe   (List)\
\\n   Scalar    pre     max     safe   (List)\
\\n   List      pre     uniq    safe   (List)\
\\n   S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	801	944	
==>age) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	801	944	
==>age) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            } <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5345	5445	
==>'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5345	5445	
==>'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' ?? '.' !! $_ } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19923	20017	
==>e and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-contain <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19923	20017	
==>e and behaviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-contain <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	422	624	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	422	624	
==>edy_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'gram <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3646	3746	
==>ummary report mean:

=over 4

=item B<Failed Test>

The test file which failed.

=item B<Stat>

If th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2618	2713	
==>ntax and semantics.

=head2 Other Perl 6 implementations

The Pugs/Haskell Perl 6 is currently t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22588	22781	
==>)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x $Columns
                  . "\n.\n";

    my $fmt = "format STDOUT =\n"
              . "@" . "< <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	46	127	
==>local/lib/perl5/site_perl/5.8.7/Module/Install/Include.pm"
package Module::Install <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9364	9455	
==>ass encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9364	9455	
==>ass encapsulates HTTP-style message headers.
The headers consist of attribute-value pairs al <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3705	3967	
==>e => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



}



1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3558	3805	
==>e => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

}

1 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4864	4959	
==>g are the (pseudo) methods for Config::Tiny objects. These
methods can be called with the follow <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4864	4959	
==>g are the (pseudo) methods for Config::Tiny objects. These
methods can be called with the follow <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17624	17720	
==>Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17624	17720	
==>Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1636	1726	
==>new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1636	1726	
==>new lazy methods reverse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Arr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10824	10977	
==>@{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10824	10977	
==>@{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6026	6189	
==>st eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6026	6189	
==>st eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10290	10401	
==>}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10290	10401	
==>}
=pod

=head1 NAME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1727	1892	
==>= Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => B <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1727	1892	
==>= Inf) {
        return () if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => B <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6267	6393	
==>re eq '\Z';
    return sub{
      FAIL() if !($X::pos == (length($X::str)));
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2910	3009	
==>at
      http://m19s28.vlinux.de/iblech/pugs/livecd.iso.

Note: If you want to modify the kernel use <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2768	2910	
==>thod _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2768	2910	
==>thod _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items = ();
        return @t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6660	6763	
==>ypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'is <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6660	6763	
==>ypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'is <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18935	19041	
==>th the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18935	19041	
==>th the line C<__DATA__> or
        C<__END__>.
    SUBROUTINE - A top level (not nested) subroutine. Ending <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33621	33717	
==>ulti-method is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38171	38267	
==>ulti-method is the N-ary version of the aforementioned.

=item C<difference (Relation $other!) re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14455	14627	
==>::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14734	14906	
==>::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'grammar1 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6628	6828	
==>ather_results {
    my($self) = @_;
    my $kid;
    for my $pid (@{ $self->{_children} }) {
        my $file = "tests.$pid.yml";
        warn sprintf "waiting for chunk #%d...\n", ++$kid; 
        wai <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21065	21222	
==>elf->nparen;
  }

  sub nparen {
    my $self = shift;
    $self->{nparen};
  }

  sub visual {
    my $self = shift;
    "\\$self->{nparen}";
  }
}


{
  pac <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4608	4728	
==>2\n" ],
      [ 'file21', $file21, "0000000021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2191	2313	
==>utine     Base class for all nameable executable objects
    Sub         Perl subroutine
    Method      Perl method
    Su <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3016	3110	
==>arn;
	    $self->{'p5'} = Perl6::Run::OnPerl5::X1::Result->new($p5,$warn,$failed);
	} elsif($st <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5089	5198	
==>.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x < <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5089	5198	
==>.start_is_open {
        $x = $.recurrence.next( $.recurrence.previous( $.span.start ) );
    }
    elsif $x < <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3205	3367	
==>ture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3216	3378	
==>ture( 'term', \&quantifier ),
                ),
            ),
        ),
    ),                
;

}

#------ match functions

=for reference - see S05 "Return v <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars3.pl	108	216	
==>st[1]";   # print "$test[1]";

# Hash:
say "%test{a}";   # print "$test{a}";

# Array Referenz:
say "$test[1] <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1882	1988	
==>time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch = <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1882	1988	
==>time );
}

our &Date::now ::= &Date::today;

method tomorrow () returns Date {
    return Date.new( epoch = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11481	11575	
==>ompare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This functio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11539	11633	
==>ompare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This functio <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7206	7315	
==>ant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7206	7315	
==>ant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	70	176	
==>se Pugs::Compiler::Rule;
use base qw(Pugs::Grammar::Base);

sub add_rule {
    my ( $class, $key, $rule ) <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	884	980	
==>::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 T <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	884	980	
==>::NullPlan. 

Test::Builder::NullPlan is roughly equivalent to C<plan('no_plan')>
in the Perl 5 T <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4958	5082	
==>unless (-e $index) {
            # create the directory an index file lives in (ignores errors)
            # and touch the i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2366	2489	
==>g = shift;
		
		$self->{runtime} = $runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2432	2533	
==>ure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2432	2533	
==>ure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it's at, baby, yeah!

=item L <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16275	16372	
==>hanism for
applications and packages that empowers single binaries to support N
locales or user ty <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16275	16372	
==>hanism for
applications and packages that empowers single binaries to support N
locales or user ty <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12134	12361	
==>'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12134	12361	
==>'id' } ],
                                [ 'expression', {
                                    'call_sroutine_arg' => 'RHS',
                                    'vf_routine_arg' => 'person_id' } ],
                            ] <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17648	17782	
==>item, the details.

  details           an array ref reporting the result of 
                    each test looks like this:

    $resu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4649	4773	
==>nding);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4649	4773	
==>nding);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!heade <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4683	4786	
==>rce code instead of taking from filter,
    # because we need all the lines including the ones before th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4683	4786	
==>rce code instead of taking from filter,
    # because we need all the lines including the ones before th <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4177	4280	
==>ar2=value2

If a property is outside of a section, it will be assigned to the root
section, available at <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4177	4280	
==>ar2=value2

If a property is outside of a section, it will be assigned to the root
section, available at <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	601	746	
==>ion
          .( splice(@values, 0, $expression.arity) );
     }
   }
 }

 multi sub reduce (Code $expression ; *@values) returns List {
   my $re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35988	36085	
==>ations of this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35988	36085	
==>ations of this object's
Set Names and Member Names elements, concatenated in the form
"<Set><Membe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16979	17129	
==>lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13400	13550	
==>lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif (${&Rx} =~ m{ \G \[ ([.=:]) (\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7033	7148	
==>m channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7033	7148	
==>m channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<users>.delete(norm <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1798	1926	
==>ch my $subclass (@{$class->subclasses}) {
           $output .= _draw($subclass);     
        }
    }
    
    if ($class->can(' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14157	14264	
==>f($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14157	14264	
==>f($servername and time() - $last_traffic >= $autoping and time() - $last_autoping >= 60) {
          debug " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4274	4516	
==>ndex) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### not <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4738	4980	
==>ndex) {
                    ### not the right package
                    next unless dependency_satisfied_by( $entry, $maybe );               

                    push @found, $maybe;
                }
               
                ### not <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14219	14317	
==>ack routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14219	14317	
==>ack routine are ignored.  The loop can
be broken by raising an exception (C<die>), but the caller o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5974	6111	
==>less $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_sk <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5974	6111	
==>less $status;
            return $status if $status < 0;
            # Skip lines up to the DATA section.
            next if $lines_to_sk <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18527	18637	
==>ut
that text themselves.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18527	18637	
==>ut
that text themselves.

What Locale::KeyedText does is associate each member in a set of key-codes,
which are <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3384	3507	
==>$acc;
    }
}

=head2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Obj;

    sub new {
        return $Obj if $O <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6031	6137	
==>a}[1]->qr;
  }

  sub visual {
    my $self = shift;
    join "-", $self->{data}[0]->visual, $self->{data}[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23044	23163	
==>t to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23044	23163	
==>t to be meaningful for a
user.  Whereas, with the other packages like "gettext" it looks like you
are supposed to pass i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2352	2454	
==>'build_dir'}        = $config{'jib_dir'}->subdir('build');
$config{'build_dir'}        = [ Path::Class: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/NameSpace.pm	34	134	
==>.name;

=head1 NAME

NameSpace - package namespaces

=head1 SYNOPSIS

 class Role does NameSpace;

=h <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2513	2630	
==>new("Type")) } $from, $to )
		),
	);
}

sub do_cast {
	my $self = shift;
	my $node = shift;
	my $from = shift;
	my $to <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	154	249	
==>d a position
within that string, and it provides the fundamental operations on strings as
combin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	154	249	
==>d a position
within that string, and it provides the fundamental operations on strings as
combin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8558	8662	
==>}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$new <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8558	8662	
==>}<channels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$new <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15662	15835	
==>package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15662	15835	
==>package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pm <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2203	2315	
==>en Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2203	2315	
==>en Error { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { d <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25036	25146	
==>$switches> and C<$debug> are exported upon request.

=head1 DIAGNOSTICS

=over 4

=item C<All tests successful. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	391	489	
==>Caesar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	391	489	
==>Caesar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where all b <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	497	601	
==>INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, vers <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	497	601	
==>INC.unshift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, vers <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3198	3357	
==>ata<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a c <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3198	3357	
==>ata<section><Foo> = 'Not Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21480	21579	
==>er
messages, but another package or program which uses yours may wish to
override some of your messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21480	21579	
==>er
messages, but another package or program which uses yours may wish to
override some of your messa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3140	3280	
==>$rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %arg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3280	3420	
==>$rule->{perl5};
            die "Error in evaluation: $@\nSource:\n$rule->{perl5}\n" if $@;
        }
        
        my %args;
        %arg <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3214	3330	
==>ders
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3214	3330	
==>ders
  # This should all be done better so the response doesn't live in
  # memory all at once

  # if ($buffer ~~ s: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1125	1216	
==>ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1125	1216	
==>ArrayTail>();
    }
))->code;
*FunctionName = Pugs::Compiler::Rule->compile(q( <VariableName <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1510	1603	
==>har * target = (char *)GC_MALLOC(sizeof(char) * (strlen(x) + strlen(y) + 1));
	(void)sprintf(t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1832	1964	
==>ay};
        
    return _mangle_var( $n->{hash} )
        if exists $n->{hash};
        
    return '"' . $n->{double_quoted} . <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1680	1780	
==>/terminfo/l/linux";
my $linuxrc      = "linuxrc";
my $welcome_p6   = "welcome.p6";
my $splashscreen = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5861	5964	
==>andler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5861	5964	
==>andler<JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	58	164	
==>e.
# So this is all throw-away code.
use strict;
package PIL::PIL1CPerl5::NodesList;
my $list;
sub get_name <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12026	12112	
==>re(Rc0,conc(R,char(C))) --> ";", octdigits_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3896	3989	
==>eturn the appropriate date.

Any other string will be passed to `Date::Something::WaveHands` f <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3896	3989	
==>eturn the appropriate date.

Any other string will be passed to `Date::Something::WaveHands` f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7270	7389	
==>ls>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7270	7389	
==>ls>;
      }
    });

    # Somebody was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4507	4616	
==>_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @membe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4507	4616	
==>_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @membe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3271	3407	
==>entDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty res <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3271	3407	
==>entDir
    $base ~~ s:perl5:g{[^/]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty res <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	767	879	
==>'', entry => '', entry_html => '');
    }
    when 'edit' {
        print template( "wiki_edit.tmpl", topic => $t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4344	4464	
==>$val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for cont <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4344	4464	
==>$val ~~ s:g/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for cont <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1572	1684	
==>.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method com <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1572	1684	
==>.

=cut

our class Parser {
    does Parse::Rule::Core::Parser;
    does Parse::Rule::Core::Rule;

    method com <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	987	1185	
==>es for super
        return $table->{prototype}
            if ($message eq 'prototype' ||
                $message eq 'super'     ||
                $message eq 'parent'    ) &&
                exis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1330	1446	
==>{ num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 

s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	740	855	
==>{ num->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33301	33414	
==>);

=pod

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('is_a'),
    # method body <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4235	4336	
==>s for block size and so on; see the cipher module's documentation for 
details.  The C<mode> value ind <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4235	4336	
==>s for block size and so on; see the cipher module's documentation for 
details.  The C<mode> value ind <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2682	2793	
==>ethod stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2682	2793	
==>ethod stringify ()     returns String { return $.set.stringify }
method size ()          returns Object { return <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4241	4337	
==>ts the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')` <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4241	4337	
==>ts the last day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')` <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8928	9036	
==>er('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8928	9036	
==>er('Location') = $location;
    $h.header('Target') = $target if $target.defined;
    
    return $h;
}

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21678	21783	
==>hannel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21678	21783	
==>hannel's topic or tries to set it.

=head2 C<$bot.kick(channel =E<gt> "#chan", nick =E<gt> "...", reason = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5789	5894	
==>ined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5789	5894	
==>ined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1210	1325	
==>attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_muta <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4688	4803	
==>attribute for that tuple.
        # Note that it is valid for a Relation to have zero tuples.
    has Bool $!is_muta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6562	6682	
==>oaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by translate <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6562	6682	
==>oaded.
        # It may have been embedded in a core program file and hence
        # should never be loaded by translate <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5769	5896	
==>s($self)->{'%:methods'}->{$label};
        },        
        'get_method_list' => sub ($$) {
            my ($self, $label) = @ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	223	330	
==>e IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline P <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	223	330	
==>e IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=head1 NAME

Inline::Pugs - Inline P <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18569	18676	
==>intf # XXX - see Prelude.pm  And p5's sv.c

 multi substr(Str $s, StrPos $start  ; StrPos $end,      $replac <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2074	2186	
==>ode ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submeth <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2074	2186	
==>ode ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  method vtype() \{'$data'}";
    $code ~= ("\n  submeth <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18928	19040	
==>mismatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        print "Confused test output: test $curr answ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10247	10430	
==>lush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    di <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10247	10430	
==>lush(1) };
        $connected++;
        $last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    di <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1595	1704	
==>$.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, densi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1595	1704	
==>$.end   < $span.end   ?? $span.end   !! $.end;
    return $self.new( start => $i_start, end =>   $i_end, densi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9512	9684	
==>ef $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= joi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1315	1467	
==>ef $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= joi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11463	11555	
==>(Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11521	11613	
==>(Str $got, Code &compare_func, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6229	6328	
==>pretty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=head1 F <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6229	6328	
==>pretty minimal and the 
parser is not very forgiving about whitespace in some situations. 

=head1 F <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1295	1433	
==>osition(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $self->position();
}

sub as_bool {
  my ( $self ) =  @_;
  retu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2069	2253	
==>nf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2069	2253	
==>nf,
                     start_is_open => ! $.end_is_open,
                     end_is_open =>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8107	8218	
==>_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8107	8218	
==>_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [
            [ 'routine_arg', { ' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2525	2660	
==>{ $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2525	2660	
==>{ $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be less or equal to end" i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3350	3446	
==>:: Expression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3350	3446	
==>:: Expression -> [Expression] -> Expression
class Perl::Compiler::PIL::PILApp
    does Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5408	5498	
==>($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5466	5556	
==>($Test::num_of_tests_planned - $Test::num_of_tests_run, $reason // "", :$depends);
}

sub p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7546	7655	
==>els>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Upd <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7546	7655	
==>els>.delete($chan)
        if %users{~normalize($kickee)}<channels>;
    }
  }];

  # Somebody was killed. Upd <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2122	2246	
==>ch = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2122	2246	
==>ch = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3299	3389	
==>l at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\01 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3299	3389	
==>l at once

  # if ($buffer ~~ s:perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\012]*?\015?\012)+?\015?\01 <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1512	1630	
==>:= KeyExtractor | Comparator
                       | Pair(KeyExtractor, Comparator);



 multi sub zip (Array *@lists) <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1119	1226	
==>Class::Events::Notification.new(:subscriber($_), :event($event)) }, *@subscriptions;
    }
    
    method g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1923	2054	
==>t
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1923	2054	
==>t
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or umlaut mark
    "Yacute"   => <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6067	6194	
==>URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        whe <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6067	6194	
==>URL_ENCODING {
        when 'iso-8859-1' {
            $encoded ~~ s:perl5:g/([^-.\w])/$dec2hex(ord($0))/;
        }
        whe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8025	8127	
==>t to see if an error is a particular error, see
L</"ERROR HANDLING">.

=head2 Inspecting the Parsing

T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9658	9759	
==>to any depth.  To restrict the depth to which it reaches, pass walker()
an argument:

  my $iter = $pa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5940	6047	
==>lf: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5940	6047	
==>lf: Int $index) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2520	2676	
==>w;
    
        return unless $obj;

        ### create accessors
        my %acc = map { $_ => $acc->{$_}->{allow} } keys %$acc;
        $obj->mk_accessors( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5636	5747	
==>ars;# XXX - Api abstraction violation
    my $varlist = join(",",map{'$'.$_}@varsm); 
    my $init = '=('.join(" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10730	10837	
==>"creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10730	10837	
==>"creating an iterator for a continuous Span";
    }
    return ::Span::Iterator.new( span => $.span );
}

co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2777	2893	
==>ft)})   }

sub unshift : method { 
    my $self = shift;
    (blessed($_) && $_->isa('type'))
        || confess "you <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	33	139	
==>warnings;

## ----------------------------------------------------------------------------
## Mini Meta-Mod <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2404	2551	
==>f defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2404	2551	
==>f defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defined( $end ) { $start = -Inf }
        e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19796	20059	
==>keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->ge <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40256	40519	
==>keys
                  ->apply(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->ge <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4036	4139	
==>hod intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $sel <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4036	4139	
==>hod intersection ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $sel <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12904	13004	
==>ple, when iterating through the span range, the unit is added to the current value to get the next va <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12904	13004	
==>ple, when iterating through the span range, the unit is added to the current value to get the next va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11568	11707	
==>d;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11568	11707	
==>d;
                @h.push('path_spec', undef) if $path_spec;
                @h.push('secure', undef) if $secure;
                @h.push(' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8683	8807	
==>], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "** <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8679	8803	
==>], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "** <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16208	16298	
==>hingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@grayst <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16266	16356	
==>hingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@grayst <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten3.pl	139	256	
==>in term Operator sein:
say PI;
say term:<PI>()

#=tertiärer Operator
$wahr ?? $a !! $b	# in Perl 5 war das $wahr ? $a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9025	9120	
==>tta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYN <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9025	9120	
==>tta::Model" in
your code; instead refer to other above-named packages in this file.>

=head1 SYN <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7732	7842	
==>so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_templ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7732	7842	
==>so
        # interpolate the message vars into it and return that.
        $text = .interpolate_vars_into_templ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1742	1864	
==>P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$doma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1742	1864	
==>P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$doma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7796	7900	
==>_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1621	1725	
==>_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5956	6106	
==>/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5956	6106	
==>/;
        
    return
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5608	5774	
==>y %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5608	5774	
==>y %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8517	8719	
==>bol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            returns => q<method>
        ), 
        sub { 
            my $e = shift; 
            $e->create("$met <==
2	/Users/nnunley/pugs/misc/S29_round.pl	927	1039	
==>own below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8097	8219	
==>lse {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8085	8207	
==>lse {
$_[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2279	2386	
==>=> Blondie::Val->new(
					Blondie::TypeSafe::Annotation->new(
						type => [$from => $to],
						struct_eq <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22981	23078	
==>E 
 ROPT_CANY_SEEN 
 ROPT_CHECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3178	3313	
==>op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3178	3313	
==>op eq "PUSH") ?? @old !! ();
    if $val !~ Array {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12488	12681	
==>n" .
                "    my \$perl5 = Emitter::Perl5::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n\"; \n" .
                "    my \$expanded = eval \$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1793	1924	
==>value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Nu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1793	1924	
==>value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run::Nu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18482	18582	
==>$tree;

    $self->{nparen} = $tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]-> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43244	43342	
==>ile is part of the Relation library.

Relation is Copyright (c) 2006, Darren R. Duncan.

See the LI <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1183	1275	
==>rt map glob, "t/*/*.t", "t/*/*/*.t", "ext/*/t/*.t"
}

help() if $Config{help};

_build_includ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2957	3083	
==>kie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$loca <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2957	3083	
==>kie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$loca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	702	806	
==>irst_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store fo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	702	806	
==>irst_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store fo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3870	3975	
==>}
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3870	3975	
==>}
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection(@b).members }
## multi sub *infix <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10427	10545	
==>ee.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10427	10545	
==>ee.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1	116	
==>use v6;

class Set::Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1	116	
==>use v6;

class Set::Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5545	5662	
==>ir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5545	5662	
==>ir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () returns Str {
#     return $tmpdir i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1264	1357	
==>e it easier for programs to work with test results, we provide
Test::Harness::Straps.  Instead <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3949	4098	
==>o();
            $val = $ref->fetch;            
        }
    }
    return nil->new();
}

sub apply {
    my ($self, $closure) = @_;
    (blessed($cl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	405	499	
==>ted superficial success proved
# straightforward, a more robust solution would be far more diff <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1383	1479	
==>tr( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1383	1479	
==>tr( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	20962	21132	
==>sts completed successfully\n";
            $percent = 0;
            $failed = 0;        # But we do not set $canon!
        }
        else {
            push @{$test->{fa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11157	11307	
==>lf.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subro <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11157	11307	
==>lf.cipher($ciphertext) }
        else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subro <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3778	3881	
==>c 'acosh';
trig_func 'atanh';
trig_func 'sech';
trig_func 'cosech';
trig_func 'cotanh';
trig_func 'asech <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3252	3400	
==>gs in a hash to reduce algorithmic complexity
            gather {
                given $event.name {
                    when '*' { take %.subscrip <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2837	2916	
==><variable>:=(<variable>)<?p6ws>?\=<?p6ws>?open<?p6ws>?$<value>:=(<term1>)<?p6ws> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15340	15437	
==>f the program or any of its components are intended for widespread use
then it needs to account fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15340	15437	
==>f the program or any of its components are intended for widespread use
then it needs to account fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3539	3637	
==>n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3723	3821	
==>n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10812	10945	
==>stmt} eq 'unless' ) ) {
        #warn "IF: ", Dumper( $n );
        return _emit( $n->{exp1} ) . 
            " $n->{op1}{stmt} " . <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35945	36085	
==>->get('$self:')
                  ->get_attr(symbol->new('%:attributes'))
                  ->store(
                      $e->get('$label'), <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16079	16204	
==>rivmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16079	16204	
==>rivmsg => -> Str $to, Str $text {
      enqueue "PRIVMSG $to :$text";
    },
    notice  => -> Str $to, Str $text {
      enqu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7572	7664	
==>tements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1397	1489	
==>tements, sub { Grammar::Perl6->sub_call_statement(@_) };
push @terms, sub { Grammar::Perl6->s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5408	5641	
==>$op ( @{$assoc{$_}} ) {
                    if ( $op->{assoc} eq 'list' ) {
                        $s .= 
                            "    |  exp '$op->{name}' exp   %prec $prec\n" .
                            "        { \$_[0]- <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	612	736	
==>[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li>\n] for sort @users;

print { $fh } <<'END';
</ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	570	671	
==>ine, that establishes feasiblity.
# Limited testing suggest performance is quite plausible.

# Next st <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9756	9899	
==>[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9756	9899	
==>[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4121	4242	
==>s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4121	4242	
==>s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $grammar->parse( '3+4+5' );
    #print Dumper $mat <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7701	7853	
==>ck_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($in <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7701	7853	
==>ck_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_params($in <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11574	11720	
==>hod::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('?%params' => 'hash' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19145	19246	
==>f the program*, and not the program's users' own data; only
someone already involved in making the pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19145	19246	
==>f the program*, and not the program's users' own data; only
someone already involved in making the pro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23259	23376	
==>tE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>oper <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23259	23376	
==>tE<lt>inviteE<gt>(channel =E<gt> "#chan", target =E<gt> "nick")>

Invites C<nick> to C<#chan>.

=head2 C<$botE<lt>oper <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3150	3281	
==>) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3150	3281	
==>) to insert";    
    for @trees -> $tree {    
        $tree!set_parent($self);
        $self!set_height($tree);   
        $self!s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3607	3702	
==>lgorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Br <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3607	3702	
==>lgorithm like HMAC-SHA-256 for this.

=back 4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Br <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4354	4488	
==>if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4354	4488	
==>if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.s <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1581	1701	
==>in::maybe_command = sub {
            my ($self, $file) = @_;
            if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_W <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1492	1594	
==>in::maybe_command = sub {
			my ($self, $file) = @_;
			if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_W <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3691	3837	
==>item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31175	31270	
==>l module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31175	31270	
==>l module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, Foo::L::Ger] or [L::FooEng, L <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15113	15218	
==>er value is set if you pass
an argument to the method.  The old header value is always returned.
If the gi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15113	15218	
==>er value is set if you pass
an argument to the method.  The old header value is always returned.
If the gi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3033	3130	
==>pletely independent of Pugs or Parrot. 

=head1 REQUIREMENTS

- The source file header must be val <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11910	12033	
==>s += 2
    $I0 = index target, ">", pos
    if $I0 < 0 goto end
    $I0 -= pos
    $S0 = substr target, pos, $I0
    mob["ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	149	272	
==>GE__;
sub new { $NIL }

# conversion to native
sub to_native { undef }

# conversion to other native types
sub to_num { num- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6366	6507	
==>turn $/{'Pugs::Grammar::Term.pair'}->() }
            #~ |
                #~ ### func(... func.(...
                #~ <Pugs::Grammar::Term.s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3702	3815	
==>z => 0)) if $cc;
    return $S->object(horiz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16997	17091	
==>alization methodology
in an easily accessable manner, such that would not be possible if its
fu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16997	17091	
==>alization methodology
in an easily accessable manner, such that would not be possible if its
fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15430	15560	
==>t inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15424	15554	
==>t inheritable, but this should be ok
            return
                "$_[1] ( ( substr( \$s, \$pos, 1 ) =~ /[[:$cmd:]]/ ) 
$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2611	2734	
==>atch}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]}->{capture},
                abort   => ${$_ <==
2	/Users/nnunley/pugs/util/addauthors.pl	1006	1123	
==>$last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3885	4021	
==>de this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3885	4021	
==>de this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has, if any <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3443	3546	
==>ally object-oriented; the procedural and functional 
interfaces are layers on top of the object-oriented <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3443	3546	
==>ally object-oriented; the procedural and functional 
interfaces are layers on top of the object-oriented <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8604	8730	
==>s-fps -any, pugs-HsSyck -any, //;
        }
        s/__OPTIONS__/@_/;
        s/__VERSION__/$version/;
        s/__DEPENDS__/$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3412	3529	
==>sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3412	3529	
==>sub code {
    return "$_[1] $_[0]\n";  
}        
sub dot {
    return call_subrule( 'any', $_[1] );
}
sub variable { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20013	20115	
==>y($name)=@_;
    $macros{$name};
}
sub p6_def_macrop5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10444	10579	
==>able {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10602	10737	
==>able {
    my $name = match::str( $_[0] );
    # print "var name: ", match::str( $_[0] ), "\n";
    my $value = "sub { die 'not implemen <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17388	17492	
==>r = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17388	17492	
==>r = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous()`, `current( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1214	1425	
==>ds or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1214	1425	
==>ds or not.
    # It WILL be replaced.
    eval "require $engine_name;";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::In <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	282	383	
==>le :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	282	383	
==>le :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\%\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17854	17955	
==>om it.

You can create more than one DBMS object at a time, and they are
essentially all isolated from <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17854	17955	
==>om it.

You can create more than one DBMS object at a time, and they are
essentially all isolated from <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5107	5217	
==>nsions}}) {
        return $obj if $obj->can($method);
    }

    my $admin = $self->{admin} or die <<"END_DIE" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1738	1858	
==>@new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace thi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1738	1858	
==>@new_path));
}

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, maybe
    # replace thi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	192	310	
==>oesnt actually
# run yet.  The immediate goal is simply to permit a piln backend to
# pass most of the tests the curren <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14550	14652	
==>0 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I0 > pos goto numeric
    $I0 = find_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	842	955	
==>ft, $right) = @_;
    return bit->new(0) 
        unless blessed($right) && $right->isa('symbol');
    return bit- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1686	1780	
==>OSIX class [:%s:] unknown';
use constant RPe_OUTPOS => --$ENUM, 'POSIX syntax [%s %s] belongs i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1053	1147	
==>ead1 DESCRIPTION

The blondie intermediate language is a language for machines and not for
huma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	714	807	
==>was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Thi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	714	807	
==>was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12700	12822	
==>{
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12700	12822	
==>{
      pseudo => $pseudo,
      args   => @args,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseu <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2011	2106	
==>$regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2011	2106	
==>$regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of the C<Text::Glob> library <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1152	1352	
==>$2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        pu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1031	1231	
==>$2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2424	2544	
==>ack

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2608	2728	
==>ack

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subru <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1503	1602	
==>e Cipher API's procedural interface is good enough for many purposes.  
Although the interface is sa <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1503	1602	
==>e Cipher API's procedural interface is good enough for many purposes.  
Although the interface is sa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17559	17684	
==>ackages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17559	17684	
==>ackages whose
problem domain is databases and/or SQL.

=head2 How It Works

Modern programs or database systems often refer to <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5643	5746	
==>ine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5643	5746	
==>ine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17447	17587	
==>:Element->new('sup');
                $t->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19841	19946	
==>red to have this organization partly by how Mac OS X manages its
resources.  It is the standard practice f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19841	19946	
==>red to have this organization partly by how Mac OS X manages its
resources.  It is the standard practice f <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	264	417	
==>when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unsh <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	264	417	
==>when rx:P5/-(.)(.*)/ {
                if ! defined %spec{$0} {
                    warn "unrecognized option: $0";
                    if $1.chars { unsh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26087	26190	
==>dable short
string; the allowed variable names you can have depend on the Message Key
it is being used w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26087	26190	
==>dable short
string; the allowed variable names you can have depend on the Message Key
it is being used w <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	793	931	
==>int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	793	931	
==>int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6206	6320	
==>@ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $type, $neg, $how) = @_;
    my $self = b <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	10	114	
==>wton;

use v6;

sub update_guess(Num $guess is rw, Num $target, Code $f, Code $fprime) {
    $guess += ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4935	5059	
==>k' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4935	5059	
==>k' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed before sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1031	1130	
==>b-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations are us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1031	1130	
==>b-reference) that contains 'return'
    label - the capture name (ident or '')

Continuations are us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	127	251	
==>"$Bin/../../Pugs-Compiler-Precedence/lib",
;

use Pugs::Grammar::Perl6;
use strict;
use warnings;
use Data::Dumper;
$D <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	964	1111	
==>module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	843	990	
==>module = shift or last;
            my $version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6124	6227	
==>document successfully. However, more complex POD 
documents may not do as well. Error reporting is still <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6124	6227	
==>document successfully. However, more complex POD 
documents may not do as well. Error reporting is still <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6416	6507	
==>::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6416	6507	
==>::Num.new( start => $start, end => $end, start_is_open => Bool::False, end_is_open => Bool:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6048	6173	
==>end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6048	6173	
==>end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x;
    return @x[0];
}

method fetch ( Int $pos ) {
    # XXX - this <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20712	20805	
==>> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hash <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20712	20805	
==>> methods to join or leave channels.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hash <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2638	2736	
==>that
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fr <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2638	2736	
==>that
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	149	271	
==>::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	149	271	
==>::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subru <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1242	1336	
==>her uses as well.

Log::Selective exports a single function, C<note>, which is called with zero <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1242	1336	
==>her uses as well.

Log::Selective exports a single function, C<note>, which is called with zero <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4355	4453	
==>head2 $inst_pkg = $inst->is_installed( package => $package )

=cut

### XXX package name?
sub is_in <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11428	11522	
==>gex implementation of the new node.

=head2 Named Character Support

Perl's regex engine doesn' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	195	301	
==>ludge_retval; ($f,$kludge_retval) = @$f if ref($f) eq 'ARRAY';
      my $c_down = $c;
      my($str,$pos,$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4335	4425	
==>homepage at L<http://www.parrotcode.org>.

=head1 COPYRIGHT

Copyright 2006 by Flavio Soibe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19014	19126	
==>t nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19014	19126	
==>t nested) subroutine. Ending '}' must be
        on its own line in the first column.
    BAREBLOCK - A top level <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3628	3767	
==>{
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3628	3767	
==>{
        $i_end = $.end;
        $open_end = $.end_is_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	486	612	
==>ode.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_sta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	486	612	
==>ode.compare()
    * contains
    * size
   
  Constructor:
    * new() from Array
   
  Methods:
    * set_start_open / set_sta <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	806	904	
==>$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	806	904	
==>$pugs_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24371	24466	
==>ion object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28923	29018	
==>ion object has these methods:

=over

=item C<export_as_hash () returns Hash>

This method retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19805	19909	
==>KAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19805	19909	
==>KAGE. C<use> statements in a PREAMBLE apply to all the code in
all PACKAGES.

After all the code has been <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14102	14202	
==>it into one of the standard
testing functions. In that case, you can use the rather blunt pass()
func <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14160	14260	
==>it into one of the standard
testing functions. In that case, you can use the rather blunt pass()
func <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	5021	5119	
==>rns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	5021	5119	
==>rns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2950	3091	
==>> closure->new(
        $::ENV,
        closure::signature->new(
            params => closure::params->new(
                           symbol <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4759	4873	
==>> closure->new(
        $::ENV,
        closure::signature->new(
            params  => closure::params->new(symbol <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9475	9648	
==>eys );
}

sub end_of_string {
    return sub {
        $_[3] = { 
            bool  => ($_[0] eq ''),
            match => '',
            #tail  => $_[0],
        } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4881	4982	
==>to_num () returns num>

=item B<to_str () returns str>

=item B<fetch (num) returns ~type>

=item B<st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1498	1758	
==>STRINGS_E{$msg_key};
    }
} # module MyLib::L::Eng

###########################################################################
###########################################################################

my Str %TEXT_STRINGS_F is readonly = (
    'MYLIB_MYINV <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	356	474	
==>l5;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8705	8847	
==>an1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8705	8847	
==>an1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems == 1;
}

method union ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3651	3756	
==>r));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event ha <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3651	3756	
==>r));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event ha <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5324	5431	
==>}
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_pla <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5382	5489	
==>}
}

sub skip_rest (Str $reason?, :$depends) returns Bool is export {
    Test::skip($Test::num_of_tests_pla <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7972	8098	
==>closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7984	8110	
==>closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        my ( $k, $v ) = each <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	404	507	
==>all loads
#     4. inc::Module::Install calls "require Module::Install"
#     5. The ./inc/ version of M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1156	1249	
==>unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1156	1249	
==>unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], "<..> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1061	1158	
==>urn %!attrs;
}

method export_attr_names of List of Relation::AttrName () {
    return %!attrs.key <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6410	6567	
==>tart of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the module conten <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6410	6567	
==>tart of it.
                # Needs investigation.

                # For now this means that we only allow compilation on
                # the module conten <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6566	6693	
==>name,
      link          => BASEHTTPDIR . $name, 
    };
  return ();
}

sub pugspath2runcore {
  local $_ = shift;

  /JSPERL5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	55	174	
==>gs;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar::StatementControl;
use Pugs::Grammar::Expression;
use Pu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	265	374	
==>een here:

  http://okmij.org/ftp/Scheme/pure-oo-system.scm

I ended up removing the "purely functional" aspec <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30330	30427	
==>tion whose attributes
(provided in C<$heading>) may or may not resemble those of the original. 
Th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34882	34978	
==>tion whose attributes
(provided in C<$heading>) may or may not resemble those of the original.
Th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5038	5153	
==>k($pass, _where(), $name, @mess);
}

# Check that $got is within $range of $expected
# if $range is 0, then check it <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1698	1814	
==>ment_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arb <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1698	1814	
==>ment_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arb <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	707	811	
==>- use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 section 2.2

sub show(Array $s is c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16366	16469	
==>ad of 'syntax error',
    # various yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3304	3418	
==>t)->{params}  }
sub returns { (shift)->{returns} }

sub equal_to {
    my ($left, $right) = @_;
    ($left->params- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	638	741	
==>Perl5->compile( $rule_source, $param )
        if exists $param->{P5} || exists $param->{Perl5};

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1185	1274	
==>')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1405	1494	
==>')->code();

    $<class>:=(<ident>) \. $<meth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11745	11874	
==>>_default_inc();
    @inc = grep !$seen{$_}++, @inc;

    return @inc;
}


sub _default_inc {
    my $self = shift;

    local $EN <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9224	9348	
==>_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "encipheri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9224	9348	
==>_head = 0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "encipheri <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23352	23455	
==>false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and so <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27904	28007	
==>false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and so <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4737	4866	
==>{ 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4930	5059	
==>{ 'non_capturing_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    pus <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18129	18237	
==>> $pair,
);

# this makes sure that ':t id(10)' is the same as ':t 10'
my $app_id = let(
	ide => "id",
	is => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4523	4653	
==>to_index { #TODO: compression of index files.
    my $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        packa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1512	1610	
==>Perl6::Slurp;\n".$var." = slurp ".$lit.";\n";
}
sub node::meth_call_term {
    my $ident = get_str( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4420	4556	
==>}
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4420	4556	
==>}
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_date // time;
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2451	2562	
==>mpile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2451	2562	
==>mpile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "return \\$ " . $<Expr>() }
))->code;
*VariableDec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15995	16099	
==>tes and returns a new Rosetta::Model::Node object, that
lives in the Document object given in the named p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15995	16099	
==>tes and returns a new Rosetta::Model::Node object, that
lives in the Document object given in the named p <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1625	1723	
==>parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a spa <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1625	1723	
==>parameters, returns an empty span.

- `new( start => $start )`

Given a start object, returns a spa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3	105	
==>kage JIB::Installation;

use strict;
use warnings;

use JIB::Constants;
use JIB::Package;
use JIB::Conf <==
2	/Users/nnunley/pugs/util/testgraph.pl	850	952	
==>mode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > output_file <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23551	23645	
==>e are other differences.  Where other solutions take variables, they
seem to be positional (lik <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23551	23645	
==>e are other differences.  Where other solutions take variables, they
seem to be positional (lik <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3347	3467	
==>() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3347	3467	
==>() unless $tree.is_leaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5376	5537	
==>n"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5376	5537	
==>n"  => chr(927),
    "Pi"       => chr(928),
    "Rho"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5961	6057	
==>.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This progr <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5961	6057	
==>.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All rights reserved.
This progr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5831	5970	
==>rm_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::Exp::Literal")
    litstart = pos <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6737	6839	
==>ched.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument to all <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6737	6839	
==>ched.

=back

=head2 Element Events

For each POD element, an event is fired, the first argument to all <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12699	12820	
==>ome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12699	12820	
==>ome)
    handle_numeric => -> Str $line, Str $server, Str $code, Str $to, Str $rest {
      my $event = {
        line   = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1230	1445	
==>et
            system( qq[mv $my_tmp_dir/$Metafile $Repodir/$meta_info] )
                                                                and die $?;
            system( qq[rm -rf $my_tmp_dir] )                    an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11260	11372	
==>er if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11260	11372	
==>er if needed.
    $.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4268	4383	
==>plit
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4268	4383	
==>plit
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6982	7085	
==>the '=head(n)' directive is reached. This does not include 
the text of the header, that will be process <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6982	7085	
==>the '=head(n)' directive is reached. This does not include 
the text of the header, that will be process <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	697	824	
==>t<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	697	824	
==>t<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIP <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14679	14801	
==>xample, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.tran <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14679	14801	
==>xample, if the user
        # inputs '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.tran <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11318	11477	
==>{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11597	11756	
==>{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7480	7578	
==>ir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7480	7578	
==>ir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunks && <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12285	12410	
==>lse { return $S->object(ref => $v, "\\$v") }
        }

        $v .= $1 while ${&Rx} =~ m{ \G ([0-7]) }xgc;
        return $S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	586	697	
==>^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	586	697	
==>^-?(\d+\.?|\d*\.\d+)$/; # integer or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2404	2545	
==>lt (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2404	2545	
==>lt (passive) handlers
    # First event we get, indicating a successful login
    ./add_handler("001", -> $event {
      $.inside++;
      $.s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8630	8743	
==>) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should wor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8630	8743	
==>) = _normalize_parameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX - this should wor <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	124	220	
==>ernals:: subs,
# or implemented in p6 (S29 already defines some p6 implementations).
# To contrib <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9438	9540	
==>nf binf('-') is part of -CPerl5 spec.
    my %unpack = ('inf' => '100**100**100',
		  '-inf' => '-100** <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8122	8220	
==>l> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <Decima <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13609	13749	
==>tests looks right' );

        if( defined $extra ) {
            my($todo, $skip, $reason) = $extra =~ /$Extra_Header_Re/xo;

            $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	707	836	
==>$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9275	9427	
==>ists, and it looks like it's in windows
            # land, and it has an executable extension...

            if ( -f $ghc_pkg 
                and $ghc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3984	4088	
==>, ($self->{neg} ? '^' : ''),
	#     $self->{type}, $self->{how}, "]";
	join "", "[", ${$self->{how}}, ($s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20328	20434	
==>ers could do,
although program package installers usually do it.  An os-level preference
/ control-panel di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20328	20434	
==>ers could do,
although program package installers usually do it.  An os-level preference
/ control-panel di <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6174	6284	
==>odifiers_known, %modifiers_supported_p6, %modifiers_supported_p5);
    FIRST {
        %modifiers_known = map { <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2270	2369	
==>oto = $O.<[[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut] <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2560	2676	
==>ate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somew <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2560	2676	
==>ate(Int $n, Code &f) >>

Runs C<&f> C<$n> times and returns the results.

=head1 BUGS

This module is currently somew <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8167	8280	
==>, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8167	8280	
==>, or three spans, depending on
the contents of $span1 and $span2:

  @span = $span1.union( $span2 );
  say @span.m <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3463	3560	
==>this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3463	3560	
==>this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % "~$oth <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1364	1488	
==>ze() returns Int {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv;
    for @items -> $i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1364	1488	
==>ze() returns Int {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $rv;
    for @items -> $i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5639	5749	
==>ndition) $then\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	509	600	
==>t recognized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too man <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1190	1301	
==>ntf STDERR "%sfailed%s.\n", BOLD . RED, RESET;
      exit 1;
    }
  }
}

my $kernel_uri   = "http://m19s28.vlin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1151	1266	
==>ented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1151	1266	
==>ented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $bo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	690	794	
==>todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	748	852	
==>todo (*@todo_tests) returns Void is export {
     $Test::force_todo_test_junction = join ' ', '', @todo_t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1514	1651	
==>pan> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1514	1651	
==>pan> );

    if defined( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2290	2433	
==>Text::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2290	2433	
==>Text::Message object:'
         ~ "\n"
         ~ '    $msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1136	1232	
==>-
A common comprehensive test suite to run against all Engines

=head1 VERSION

This document des <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1136	1232	
==>-
A common comprehensive test suite to run against all Engines

=head1 VERSION

This document des <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2673	2791	
==>\s*${re_comma}\s*($RE{quoted})/$1 = open $2/g;
#    s/open (\${re_varname})\s*${re_comma}\s*($RE{quoted})/$1 = open $2/ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17357	17465	
==>"";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @path;
    @classes = reverse map{$_=$ROOT.$_} @cl <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6836	6939	
==>!! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6836	6939	
==>!! $n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2908	3012	
==>esc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2966	3070	
==>esc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_func, Str $expected, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	1041	1186	
==>.40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #print "Str = $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1210	1355	
==>.40},
        P5_regex_x10 => sub{ 
                   $match = sub{$_[0] =~ /[a|b](b)c/os}->($str) for 1..400},
    });
    #print "Str = $st <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8422	8584	
==>(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8422	8584	
==>(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub" <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	557	668	
==>this file is currently simply a source code generator.
   Which also addresses the problem that macros are curre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	557	668	
==>this file is currently simply a source code generator.
   Which also addresses the problem that macros are curre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19643	19742	
==>hods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19643	19742	
==>hods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref describing C<#ch <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1110	1413	
==>tcolor = green, "                                                          
                            )
                        :                        
                        '') .
                    "style = rounded, " . 
                    "label = \"" . $node->name . "(" . $node->id . ")\" " . <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7264	7386	
==>->file($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    return @index_files;
}

### these plural f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1443	1540	
==>$self->inner_reduce($node);
	
	if (defined $symbol) {
		return $self->define($node, $symbol, $resu <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18911	19028	
==>g.>

=head1 DESCRIPTION

This class implements a Relation data type that corresponds to the
"relation" of logic and ma <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5351	5455	
==>e($head, $tail, $rev, $mid, $wc);
CheckHead($head);
CheckTail($tail);
CheckRev($rev);
CheckMid($mid);
Che <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3219	3320	
==>des;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.inters <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3219	3320	
==>des;

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) returns Set {
    $one.inters <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9562	9665	
==>5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(& <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9562	9665	
==>5:g/(&\#[xX]([0-9a-fA-F]+);?)/{my $c = :16($1); $c < 256 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(& <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8457	8561	
==>e and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8457	8561	
==>e and not a hierarchy.
# If however you are creating your tree
# bottom-up, then you might find that 
# w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8852	8947	
==>) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->liter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2677	2772	
==>) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->liter <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2550	2658	
==>it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then inco <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2550	2658	
==>it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser>
object).  This rule is then inco <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30720	30818	
==>ch the right parenthesis
itself.  The handler throws an error if it can't match the ')', because
if <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11386	11543	
==>to subrule_name_2
    pos += 2
    goto subrule_name_1
  subrule_name_2:
    $I1 = pos - $I0
    subname = substr target, $I0, $I1
    $S0 = substr target, po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2705	2800	
==>rrently the most complete implementation. 
Pugs currently has some issues with Perl 5 interopera <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3241	3352	
==>--> Scalar) {
#    @array.splice(0,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using sim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	898	1063	
==>.*)$/s;

    return;

};

sub p6ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	863	1019	
==>.*)$/s;
    return;
};
sub p6ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16673	16798	
==>lurb could be run, ".
            "alas--no output ever seen\n";
    } else {
        $pct = sprintf("%.2f", $tot->{good} / $t <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	13	117	
==>Santa Claus golf game test program.
# For more detail: http://www.perlmonks.org/?node_id=438876
# For his <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6297	6436	
==>{
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6297	6436	
==>{
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	78	169	
==>s;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {} <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	78	169	
==>s;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.include_trunk) {} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23451	23602	
==>&RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19872	20023	
==>&RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifthen =>);
  });

  # (?(...)t|f) condi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	513	669	
==>state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No paren <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	513	669	
==>state        => %.state,
        );
        $ret;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No paren <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14449	14620	
==>ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14728	14899	
==>ruleop::constant( "kwid" )
             ,
               ruleop::constant( "for" )
             ,
         ] )
       ,
         ruleop::non_greedy_star(
             \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	173	271	
==>ree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, e <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	173	271	
==>ree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

These nodes can be used to, e <==
2	/Users/nnunley/pugs/util/version_h.pl	862	1016	
==>s or die $!;
    while (<FH>) {
        /^ *committed-rev=.(\d+)./ or next;
        $revision = $1;
        last;
    }
    close FH;
} elsif (my @info = q <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23112	23210	
==>seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23112	23210	
==>seen to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6414	6524	
==>rser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6414	6524	
==>rser.new(parse => sub ($match, &continue) {
        $p.parse()($match.clone(match => Parse::Rule::Core::Match.n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8087	8225	
==>infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8087	8225	
==>infin"    => chr(8734),
    "ang"      => chr(8736),
    "and"      => chr(8743),
    "or"       => chr(8744),
    "cap"      => chr(8745), <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1395	1492	
==>>param("smoke") =~ /^<!DOCTYPE html/) {
    print "The submitted smoke does not look like a smoke! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	76	207	
==>::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	76	207	
==>::Response[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1594	1687	
==>ples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can fi <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1594	1687	
==>ples/> directory there're examples of working Perl 6 code. In
F<examples/cookbook/> you can fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	998	1114	
==>= eval($program);
        print "Error in statement:\n", $program if $@;
        die "error in immediate_statement_ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29541	29649	
==>()

=item my $o = $obj->omit(VALUE)

Whether this node is omitted from the parse tree.  Certain objects
do no <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1880	1987	
==>ge Blondie::Thunk;
    use base 'Blondie::Node::Unit';

    package Blondie::Sym;
    use base 'Blondie::Nod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	106	246	
==>r         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	106	246	
==>r         returns Str  is export { '..'        }
sub rootdir       returns Str  is export { '/'         }
sub devnull       returns Str  is e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	469	577	
==>SS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	469	577	
==>SS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_AR <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2327	2470	
==>ut')->diag($diagnostic);
        },
        'todo' => sub { 
            my ($self, $passed, $description, $reason) = @_;
            $self->rep <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2176	2277	
==>{pugs_version}  = $1;
  $html =~ /pugs_revision: (\d+)/   and $smoke{pugs_revision} = $1;
  $html =~ / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20105	20204	
==>sic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20105	20204	
==>sic = ($uname, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.prox <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1877	2011	
==>{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1877	2011	
==>{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12168	12271	
==>equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not eq <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12168	12271	
==>equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not eq <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	333	432	
==>_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	333	432	
==>_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

su <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1246	1361	
==>te $INC{"$self->{path}.pm"};
}

sub autoload {
    my $self = shift;
    my $caller = caller;

    my $cwd = Cwd::cw <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43385	43480	
==>ails.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Relation> apply to this file too.

=cu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	752	895	
==>} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10142	10252	
==>ar->baz' },
    },
);

is($Bar->id, 10, '... $Bar is the fifth id');
is($Bar->name, 'Bar', '... $Bar got the ri <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13745	13845	
==>temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13745	13845	
==>temperatures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4976	5088	
==>ss $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4976	5088	
==>ss $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2525	2630	
==>d (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_;
    return $S->force_obj <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25777	25877	
==>er.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25777	25877	
==>er.  The Message Key can be any defined and non-empty
string.

=item C<%!msg_vars> - B<Message Variab <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7489	7614	
==>DILl]} or m{^-Wl,-R} }
                        split (' ', `$^X -MExtUtils::Embed -e ccopts,ldopts`));
    }
    chomp $ghc_fl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2933	3038	
==>d::Perl::Builtins;

=head1 DESCRIPTION

This file bridges between perl and Blondie, by providing implement <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	473	573	
==>uthorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	473	573	
==>uthorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!parts;

multi submet <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6707	6876	
==>d\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itsel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6764	6933	
==>d\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under the same (?:terms|license) as perl itsel <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	249	385	
==>o_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    fo <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	249	385	
==>o_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6865	6983	
==>$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6865	6983	
==>$_[1] constant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7448	7585	
==>NG) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'appli <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7448	7585	
==>NG) if $QUERY_STRING;
        }
        elsif (lc($REQUEST_METHOD) eq 'post') { 
            if (!$CONTENT_TYPE || $CONTENT_TYPE eq 'appli <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4122	4234	
==>ons

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4122	4234	
==>ons

=head1 AUTHORS

Organized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	980	1074	
==>hortcut");
    $optable->addToken("term:\\S", "term:", "nows", "PGE::Exp::CCShortcut");
    $op <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2249	2337	
==>define RECOGNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2776	2900	
==>);
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $sel <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2776	2900	
==>);
    return $set      if $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_union( $sel <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1740	1846	
==>};
}

sub build_indirect_typed_value {
	my $class = shift;
	my $val = shift;
	my $type = shift || $val->typ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35114	35225	
==>as an alias named C<matching>.

=item C<product (Relation $other!) returns Relation>

This multi-method is a gen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39664	39775	
==>as an alias named C<matching>.

=item C<product (Relation $other!) returns Relation>

This multi-method is a gen <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13229	13342	
==>meter (as allocated in the new env), and the type of the body
fun: type($$) = {
	type::operator::arrow->new(
		new <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	264	367	
==>POS :lvalue	{ pos ${&Rx} }
sub RxCUR		{ substr ${&Rx}, &RxPOS }
sub RxLEN		{ $_[0]{len} }

sub Rf :lvalu <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7812	7955	
==>be $package` =~ /package-url/;
}

sub _normalize_version {
    my $dir = shift;
    $dir =~ /.*ghc-(.*)$/i or die "Invalid version: $dir";
    m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1134	1228	
==>hortcut");
    $optable->addToken("term:\\W", "term:", "nows", "PGE::Exp::CCShortcut");
    $op <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	308	411	
==>ass;
}

sub string {
	my $self = shift;
	my $program = shift;

	my $dup_finder = Blondie::Reducer::Dupli <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31221	31483	
==>rams->new(
                              symbol->new('$self:'  => 'opaque'),
                              symbol->new('@values' => 'list')                                                                
                          ),
                returns => 'bl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5358	5504	
==>t,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5358	5504	
==>t,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $ret.cis_c <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9647	9748	
==>lass handles an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9647	9748	
==>lass handles an infinite recurrence set, defined with closures. 

A recurrence set is defined by a "su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	262	370	
==>ot

- AST, Grammar, Optimizer internals:

    AST::Perl6::API

    Grammar::Perl6

    Optimizer::AST   -- op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	245	349	
==>ot
- AST, Grammar, Optimizer internals:
    AST::Perl6::API
    Grammar::Perl6
    Optimizer::AST   -- op <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4556	4671	
==>ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($! <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4614	4729	
==>ok

sub lives_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($! <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2558	2661	
==>s Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2558	2661	
==>s Bool {
    return ($other.proper_subset($self));
}

method stringify() returns Str {
    return("set(" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3354	3479	
==>set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3354	3479	
==>set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8918	9045	
==>tion = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8918	9045	
==>tion = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths o <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3265	3408	
==>map { +$_ }, @arrays;
#  map {
#    my $i := $_;
#    map { @arrays[$_][$i] } 0..@arrays.end;
#  }, 0..$maxlen-1;
#}


# derived from PIL2JS Arr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5470	5581	
==>Info::Object->new($name,$rep,$type,\@pairs);
        $node_named{$name} = $o;
        push(@nodes,$o);
        p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11082	11189	
==>plement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence obj <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11082	11189	
==>plement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence obj <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5523	5652	
==>one;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5523	5652	
==>one;
            $.span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3403	3506	
==>ymmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3403	3506	
==>ymmetric_difference($self: Set $other) returns Set {

    # this one was particularly disturbing..
    s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2273	2469	
==>tion
        get_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x;
        },                  
        set_y => s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	101	214	
==>SG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the messag <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	101	214	
==>SG", -> $event {
    my $sent_to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the messag <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	737	843	
==>, error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	737	843	
==>, error messages
# TODO - emit error message if attempting to flatten() an infinite list 
# TODO - does zip <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2825	2927	
==>eld;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2825	2927	
==>eld;
    unless %standard_case{$field}.defined {
      # generate a %standard_case entry for this field <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3262	3519	
==>capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ % ]

                (?: 

                    (?:\:\:)? 

                    [_[:alnum:]]+ 

                )+

            )  

            (.*) $ /xs;

    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3134	3381	
==>capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ % ]
                (?: 
                    (?:\:\:)? 
                    [_[:alnum:]]+ 
                )+
            )  
            (.*) $ /xs;
    r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10236	10346	
==>{$stringify->($_)}@names6)
		    .'});');
    }

    $code_body = ('sub{ my $_sub = shift; my %_param = $_sub-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	599	717	
==>nternalValue;
class JSX::InternalValue::Completion is JSX::InternalValue;
class JSX::Value is JSX::PseudoValue;
class J <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23395	23495	
==>(-text =>q{$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19467	19578	
==>rds {  # see clause 12
      <Block>
    | <VariableStatement>
    | <EmptyStatement>
    | <ExpressionStatement <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31173	31272	
==>ributes may also be set:

=over 4

=item branch

Whether this object has branches (like C<|>).

=ite <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13707	13805	
==>return the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subrou <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13707	13805	
==>return the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subrou <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6703	6819	
==>c" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6761	6877	
==>c" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # message like "test #1 # T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10697	10803	
==>y $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10697	10803	
==>y $a while $a = $set.lazy;

= MUTATOR METHODS

- `add( $set )`

Includes new elements in the set

- `remove <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2120	2219	
==>o checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http:/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2120	2219	
==>o checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.freepan.org/>
(L<http:/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8283	8397	
==>{ 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::non_greed <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7996	8105	
==>{ 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::non_greed <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	746	906	
==>';
        $msg .= " - '$name'" if defined $name;
        $msg .= '!';
        Carp::croak($msg);
    }

}

=head1 AUTHOR

Michael G Schwern C<< <schwern@pobox.c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1856	1955	
==>@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback) <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	852	951	
==>@_;
  die "bug - no nparens" if !defined($nparens);
  die "bug - no callback" if !defined($callback) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2776	2875	
==>ange, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Uni <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2776	2875	
==>ange, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 and (basic) Uni <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1581	1672	
==>In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookbo <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1581	1672	
==>In the F<examples/> directory there're examples of working Perl 6 code. In
F<examples/cookbo <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2272	2376	
==>t1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).so <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2272	2376	
==>t1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $intersect ).so <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9854	9963	
==>ght pass some initial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9854	9963	
==>ght pass some initial
attribute-value pairs as parameters to the constructor.  I<E.g.>:

 $h = HTTP::Headers.n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10566	10679	
==>phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickge <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10566	10679	
==>phase is reset to 0
      # when we're successfully logged in.
      $in_login_phase++;
      $say("NICK {$!nickge <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	129	220	
==>l::Makefile;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01' <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10671	10779	
==>tem.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can al <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10671	10779	
==>tem.isa(Container)) {
          @to_do.push($item.members.grep:{ $seen.insert($_) });
      }
  }

You can al <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	57	160	
==>_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Pe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	57	160	
==>_type {
    "processing_instruction"
}

=head1 NAME

Perldoc::DOM::PI - a processing instruction in a Pe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14356	14459	
==>arget") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14356	14459	
==>arget") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29503	29599	
==>PILE_TEST without breaking its core usage.

Figure a way to report test names in the failure summ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10626	10722	
==>can update several fields with a single invocation.

The $value argument may be a plain string or <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10626	10722	
==>can update several fields with a single invocation.

The $value argument may be a plain string or <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	62	160	
==>lasses.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't yet kn <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	62	160	
==>lasses.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I don't yet kn <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	96	198	
==>kdir($Path) unless -e $Path;

sub SessionInit() {
    my %Session=();
    $SID=GetCookie('sid'); $SID ~ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6778	6944	
==>ize_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessa <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5282	5448	
==>ize_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delete here is necessa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10916	11058	
==>m . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10910	11052	
==>m . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rule};
    $program = emit_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1688	1822	
==>= $struct->{depends};
    
    print "Translating:\n";
    print Dump( $deps );
    print "\n\nTo:\n";
    print join " AND ", map { pp <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	179	285	
==>c::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

.

use strict 'vars';
use Cwd ();
use File::Find ();
u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15898	15992	
==>ew( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15898	15992	
==>ew( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )>

This method cr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1399	1512	
==>t;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1399	1512	
==>t;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22694	22792	
==>ick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22694	22792	
==>ick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5054	5146	
==>ld use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The foll <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5054	5146	
==>ld use the full object-oriented
interface provided by the C<LWP::UserAgent> module.

The foll <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2132	2312	
==>ds = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3724	3900	
==>ds = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( ref($_) eq 'HASH' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14049	14176	
==>^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should have 'perl' aliased properly
	return $P <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19052	19160	
==>s mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the header(),
push_he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19052	19160	
==>s mandated by RFC2616.  Note that
the removal does I<not> happen automatically if using the header(),
push_he <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4866	5018	
==>rs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4866	5018	
==>rs)) {
        unless ($dir eq updir()) {
            unshift(@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6745	6841	
==>html");
open( my $error, '>', $error_file) or die "Failed to open $error_file: $!";
$template = H <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6439	6647	
==>_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6439	6647	
==>_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5224	5355	
==>eturn $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5224	5355	
==>eturn $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	945	1069	
==>o do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 2 <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	945	1069	
==>o do to make it
      useful.)</i>
      </p>
  </body>
</html>";
    my $length = $doc.chars;
    $.remote.print("HTTP/1.0 2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	391	496	
==>m );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	391	496	
==>m );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2536	2659	
==>>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2720	2843	
==>>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         -- implemented i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	170	270	
==>e no pos field
# FIXOTHERS (smoke): skipped tests have pos point to the test library

use warnings;
u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21407	21510	
==>rijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All righ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21407	21510	
==>rijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 2006. Ingy döt Net. All righ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5071	5198	
==>der->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$st <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4335	4453	
==>der->FETCH('::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$st <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1356	1455	
==>ry_html => $entry_html );
}

sub template ($filename, *%params) {
    my $template = slurp $filename <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15431	15554	
==>ackage Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $sour <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15431	15554	
==>ackage Foo;
    use Module::Compile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $sour <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	838	951	
==>ead1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	838	951	
==>ead1 ",  # text "eaten" by this node
     });


 # no "source", as this is an "implied" tag
 my $title = Perldoc:: <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1221	1351	
==>n $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () ret <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1221	1351	
==>n $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.start;
}
method end () ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28900	29121	
==>'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29179	29400	
==>'term2', \&{'grammar1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24265	24407	
==>, "\tFailed $failed/$max tests, ";
    if ($max) {
        push @result, sprintf("%.2f",100*(1-$failed/$max)), "% okay";
    } else {
        p <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	137	267	
==>paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value giv <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	137	267	
==>paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value giv <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22194	22297	
==>k like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26746	26849	
==>k like a table, where each of its tuples is
a row, and each attribute is a column, but a Relation is not <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13423	13548	
==>nge_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2
    charlist .= $S1
    goto addrange_1
  dotrange:
    if isr <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2687	2793	
==>e.  For fprime, the
example goes on step further and Curries approxfprime with the user supplied
f.  Such t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6382	6484	
==>0, "\\x[A;B] in character class") if @hex > 1;
        return $S->force_object(anyof_char => chr(hex $h <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3926	4053	
==>}
    elsif ($arg eq '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort gr <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1362	1453	
==>die::TypeSafe::Type::Std";
	}

	package Blondie::TypeSafe::Type::Std;
	use base qw/Blondie:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12948	13041	
==>ibes Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Locale:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12948	13041	
==>ibes Locale::KeyedText version 1.73.0.

It also describes the same-number versions of Locale:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28307	28419	
==>s the invocant Relation but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32859	32971	
==>s the invocant Relation but that some of its attributes
have been combined/wrapped into tuple/Mapping-valued attr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	397	537	
==>ipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	397	537	
==>ipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1594	1698	
==>t .= "node_" . $class->class->id . " -- node_" . $class->id . " [ dir = back, style = dotted, color = red <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12178	12296	
==>and(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12178	12296	
==>and(Str $line, Str $from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6696	6805	
==>];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6708	6817	
==>];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5292	5400	
==>T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $self->add_handler('\v' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5969	6067	
==>osition;
  push @bsrStack, "bsr_token_match_3";
  goto token_match;
  bsr_token_match_3:
  goto end <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2013	2112	
==>ptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2013	2112	
==>ptography resources written in the last ten years or so.

=head1 SECURITY

Although Arcfour is perfe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4840	4933	
==>to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	5090	5183	
==>to participate.

=head1 SEE ALSO

The Perl 6 Rules Spec: L<http://dev.perl.org/perl6/doc/desig <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	751	853	
==>e_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	809	911	
==>e_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$todo, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11464	11617	
==>];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11458	11611	
==>];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $str eq '$';
    return "$_[1] ( \$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16060	16195	
==>'"
    $P1 = getattribute mob, "PGE::Match\x0$:target"
    $S1 = $P1
    $S1 = substr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0[ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	496	604	
==>ving events, and implements a
# "named event" mechanism, for Class::Publisher like behavior.

module Class::E <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21066	21237	
==>ams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub {                
                my $e = sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43990	44144	
==>ams => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub {
                my $e = sh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2007	2118	
==>{
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	993	1104	
==>{
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die $@ if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	245	372	
==>head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	245	372	
==>head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web server could not
      grok.</p>
  </ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4880	5021	
==>);
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4880	5021	
==>);
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $se <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	2454	2651	
==>};
            },
            hash_clear => sub {
                my $self = shift;
                %{$self->hash_fetch} = ();
            },
            hash_isEmpty => sub {
                my $se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5201	5447	
==>ay: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5201	5447	
==>ay: ) { 
        my $ret = $array;
        Perl6::Value::List.new( 
                cstart =>         $ret.cend,
                cend =>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.c <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1635	1794	
==>RE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1602	1761	
==>RE';
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }

        my @dialog = split( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2990	3119	
==>} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = ev <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3130	3259	
==>} disappeared - in t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = ev <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	12	126	
==>use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    us <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	12	126	
==>use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN {
    us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20694	20794	
==>set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20694	20794	
==>set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intact f <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11185	11281	
==>Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11185	11281	
==>Bool>

=item B<child_count returns Int>

=item B<add_child ($self: Tree $child) returns Tree>

=i <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5909	6013	
==>hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($nu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5909	6013	
==>hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~$dec2hex(128+($num/4096)%64)~$dec2hex(128+($nu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	629	905	
==>that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # modu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	629	905	
==>that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Validator object:
    # (None Yet)

###########################################################################



###########################################################################

} # modu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21823	21921	
==>riate place, usually in the
main program, Locale::KeyedText can be given input that says what resou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21823	21921	
==>riate place, usually in the
main program, Locale::KeyedText can be given input that says what resou <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24803	24902	
==>ile named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, B <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24803	24902	
==>ile named
"GPL"; if not, write to the Free Software Foundation, Inc., 51 Franklin St,
Fifth Floor, B <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	12	302	
==>ugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): paramètre $number est manquant],
    'MYLIB_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14622	14720	
==>rams} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_st <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2103	2201	
==>rams} }" if $self->{params} and @{ $self->{params} };
    $self->{params} = pop @{ $self->{param_st <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10593	10690	
==>FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10593	10690	
==>FUNCTIONS

=head2 Informational

=over 4

=item B<param returns Array>

=item B<param (Str $key) r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20327	20449	
==>$old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->er <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16748	16870	
==>$old));
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->er <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12150	12250	
==>head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12150	12250	
==>head2 C<$set1.not_equal($set2)>

=head2 C<$set1 != $set2>

=head2 C<$set1 ≠ $set2>

Returns true if <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	595	755	
==>>init();
    $$o->{'val_string'} = $args{'str'} if defined $args{'str'};
    return $o;
}
sub init {
    my($o)=@_;
    $o->set(1,"",[],{});
    return $o;
}
sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14353	14452	
==>) and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14353	14452	
==>) and attributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy o <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9271	9369	
==>set_items_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_charset_item(class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18983	19143	
==>}xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15404	15564	
==>}xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2415	2562	
==>urns Str
      {
          return "1..$:expect";
      }
  
      method footer returns Str (Int $run)
      {
          return '' if $run == $:expe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3706	3805	
==>uby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3706	3805	
==>uby)
## multi sub *infix:<+#> (@a, @b) returns Array { set(@a).union(@b).members }
## multi sub *inf <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6835	6987	
==>(%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$k <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6835	6987	
==>(%PARAMS{"$key"}) {
            my $list := %PARAMS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$k <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	581	695	
==>- text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::D <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	581	695	
==>- text node in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

A C<Perldoc::D <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12540	12638	
==>t1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12540	12638	
==>t1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=h <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	99	217	
==>ALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	157	275	
==>ALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals to keep track of our tests
$Test::num_of_tests_run    = 0;
$ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1166	1299	
==>ir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1166	1299	
==>ir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath (Str $volume, Str $directory, Str $file) returns Str <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11618	11712	
==>without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iintera <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11618	11712	
==>without. Either way it is still TODO.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iintera <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	796	996	
==>x, " . 
                    ($node->id > 6 ? 
                        ($node->class == $::EigenClass ? 
                            "color = grey60, " .
                            "fontcolor = grey60, <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	107	211	
==>$arg is readonly ) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10826	10997	
==>$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10826	10997	
==>$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secure, $expires, $discard, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1719	1832	
==>sition <= $from;
  return substr $target, $from, $position;  
}

#get_string_keyed_int
#get_pmc_keyed_int
#set_pmc <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	567	664	
==>s not exist!
    Current directory is @{[Cwd::abs_path(Cwd::cwd())]}
    Program path is @{[Cwd::a <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	44	145	
==>se Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
doe <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	44	145	
==>se Parse::Rule::Strategies::CPS;
does Parse::Rule::Strategies::CPS;

use Parse::Rule::Media::Text;
doe <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2014	2125	
==>/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2014	2125	
==>/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec;
  
  catdir('path', 'to', 'dir');
  catfile('path', <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10819	10975	
==>rname    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_log <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10819	10975	
==>rname    = undef;
        $curircname     = undef;
        $curhostname    = undef;
        $last_traffic   = 0;
        $last_autoping  = 0;
        $in_log <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10255	10356	
==>ate->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10255	10356	
==>ate->{op}->( $tail, $state->{state}, $flags ); 

        my $match = $state->{op}->( $tail, undef, $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	368	561	
==>ption: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { un <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	368	561	
==>ption: $0";
                    if $1.chars { unshift @args, "-$1" }
                }
                elsif ! %spec{$0} {
                    %opts{$0} = 1;
                    if $1.chars { un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2879	3015	
==>tch => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1501	1637	
==>tch => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
';
    return $pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10973	11083	
==>self->add_handler('|' => sub {
    my ($S) = @_;
    return $S->object(branch =>);
  });

  # opening parenthes <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2000	2091	
==>L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2000	2091	
==>L<official AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	677	895	
==>*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @cu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	677	895	
==>*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push @cu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21921	22048	
==>ext} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler(' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18342	18469	
==>ext} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler(' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19047	19142	
==>osophy ("a predicate ranging
over more than one argument"), which is also the basis of the relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22697	22792	
==>osophy ("a predicate ranging over more than one
argument"), which is also the basis of the relat <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13424	13548	
==>% [42,120]="0x"
hexdigits([D|T]) --> hexdigit(D), hexdigits(T), !.
hexdigits([])    --> [].
hexdigit(D) --> [D], { code_type( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9756	9853	
==>$hash->{'bool'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	368	479	
==>) }
sub is_not_nil { bit->new(0) }

1;

__END__

=pod

=head1 NAME 

nil - the base native nil type

=head1 METH <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2453	2574	
==>RY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_cl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2453	2574	
==>RY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4669	4791	
==>i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 25 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4669	4791	
==>i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + @.state[$.j]) % 25 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10115	10236	
==>atch;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10109	10230	
==>atch;
$_[1]       } else {
$_[1]         if ( ! defined \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12149	12250	
==>e independently, use the root()
method to get it.  From there, you're on your own.  You'll probably
wa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	841	1013	
==>$data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	841	1013	
==>$data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $pair.split('=');
            
            $key = ur <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17474	17596	
==>$len) {
    local $X::str = $s;
    local $X::pos = $start;
    local $X::cap = [];
    my $m = MatchX->new();
    local $X <==
2	/Users/nnunley/pugs/util/grokprims.pl	1736	1834	
==>associative with arity $arity";
  } elsif (/right-associative/) {
    $example = "\$$a0 $name (\$$a <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	144	269	
==>nless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer retu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	144	269	
==>nless defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer retu <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	3223	3321	
==>tfile($syn_src_dir, 'syn', "S12.pod"))  {
        print ("*** Could not locate (syn/S12.pod). Setti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21187	21287	
==>).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for access to t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21187	21287	
==>).
Given this fact, Rosetta's most prominant feature is that it provides a
common API for access to t <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	314	413	
==>codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	314	413	
==>codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10162	10264	
==>?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10897	10999	
==>?"\"$'\"":"undef","\n";
print ' $-[0] ',defined($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2618	2728	
==>);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2618	2728	
==>);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO: Set a timeout of 60 seconds (however)
  # TODO: <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3648	3757	
==>h)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | ' <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3648	3757	
==>h)`

Given an epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2288	2391	
==>one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $on <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2288	2391	
==>one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) {
    $on <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2857	3079	
==>$buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2857	3079	
==>$buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $buffer .= chomp;
        },
        string  => -> ($str)  { $buffer ~= $str <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	60	168	
==>arse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	60	168	
==>arse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD ( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2666	2768	
==>ls

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2666	2768	
==>ls

An HTTP::Request::CGI object has the following public attributes:

=over 8

=item C<$r.method>

The <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1012	1129	
==>er::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<Array <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1012	1129	
==>er::Rule->compile(q(
    \\[ <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return '[' . $<Expr>() . $<Array <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12134	12261	
==>join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # part <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12134	12261	
==>join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but they are not tied to a
    # part <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12557	12668	
==>ings that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It is also used wh <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12557	12668	
==>ings that can be counted, such as beats per minute, 
wags per second, or holidays per month.

It is also used wh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9878	10014	
==>deSet0::');
    return if !defined $p;
    my $c1 = $p->unparse;
    $c1 =~ s/PIL_Environment/PIL::Environment/g;
    if($c0 ne $c1) { pi <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	412	512	
==>lurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Array is shape() or another obje <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2763	2885	
==>tion( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $fro <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/summe1.pl	10	126	
==>l - Unicode wird in Perl 5
use utf8;
sub Σ {
	my $i = 0;
	$i += $_ for @_;
	return $i;
}
print Σ(1..10), "\n"; # gi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22612	22706	
==>eyedText would also handle
this.

A program generates a Message that contains all possibly usef <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22612	22706	
==>eyedText would also handle
this.

A program generates a Message that contains all possibly usef <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3968	4113	
==>, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3968	4113	
==>, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else.
    local $@;
    eval {
        print $fh $output
           or <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13752	13859	
==>tures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13752	13859	
==>tures, or price ranges.

Create a span of real numbers:

    $num_span = Span.new( start => -1.0, end => 2.5 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	659	757	
==>e
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	659	757	
==>e
    does Perl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2562	2671	
==>ear) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

m <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2562	2671	
==>ear) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $?SELF.quarter() ) - 3 ];
}

m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	124	223	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	165	264	
==>e strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type::comparable <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2642	2825	
==>t_value('@:slots')} = ($size - 1);
                }
            },

            'array_extendSize' => sub { # $int -> () # +=?
                my $self = shift;
                my $si <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2270	2369	
==>set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $interse <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2270	2369	
==>set1.new( recurrence => $.recurrence.get_universe, span => $set2 );
        return ( @diff, $interse <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15193	15363	
==>mplemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15187	15357	
==>mplemented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $ch <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13202	13304	
==><AssignmentExpression>
}
rule PropertyName :words {  # see 11.1.5
      <Identifier>
    | <StringLiter <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5088	5234	
==>lse {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4947	5093	
==>lse {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = shift;
    return $self unless <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12446	12647	
==>t::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12446	12647	
==>t::Message',
            'VAL' => $val } )
        if !$val.does(Locale::KeyedText::Message);
}

###########################################################################

} # class Locale::KeyedText: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11837	11947	
==>l_var name=timestamp></td>
            <td class="leftsep num"><tmpl_var name=duration></td>
            <td cl <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3935	4040	
==>->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5294	5399	
==>->admin->postamble;
    $self->{postamble} .= $text if defined $text;
    $self->{postamble}
}

1;

__END_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5321	5413	
==>YRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5321	5413	
==>YRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4884	5010	
==>76),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4884	5010	
==>76),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta" <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	999	1103	
==>tter default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'.. <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	999	1103	
==>tter default stringify - see Span.pm
# TODO - fix elems() in from_range(), when start/end are Str - 'a'.. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4119	4316	
==>x:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4119	4316	
==>x:perl5{\.\.\.\.};                                    # too many .'s to cleanup
    $path ~~ s:perl5{^\\\.\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9601	9764	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9880	10043	
==>&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	424	537	
==>ule Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	424	537	
==>ule Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	573	672	
==>ammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	573	672	
==>ammar->($source);
die 'Syntax error at !!'.$match->{tail}.'!!' if ($match->{tail});
my $code = Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1254	1365	
==>volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1254	1365	
==>volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $file) &&
        '/' ne <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16985	17119	
==>f the test run, if from a file
  wait              the wait code of the test run, if from a file

  max               total tests which <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17076	17169	
==>nNoIn>
    | <BitwiseANDExpressionNoIn> <'&'> <EqualityExpressionNoIn>
}
rule BitwiseXORExpres <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19067	19162	
==>rcname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19067	19162	
==>rcname> you've
specified in the constructor. If the nickname is already used, C<Net::IRC> will
t <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	782	884	
==>te.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	782	884	
==>te.next($trigger);
}

multi method final() {
  $.state.final;
}

multi method final($final) {
  $.state <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2150	2261	
==>>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2931	3042	
==>>' ) . "' );\n";
}
sub node::sub_application {
    my $term1 = emit( get_data( $_[0], '$<term1>' ) );
    my $op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	983	1087	
==>urce;
    print "RULE\n";
}
print <<'PUSH';
push @terms, sub { Grammar::Perl6->indirect_object(@_) };
pus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13604	13703	
==>ers of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Mode <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13604	13703	
==>ers of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Mode <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6219	6331	
==>$encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params retu <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6219	6331	
==>$encoded ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2166	2281	
==>ueue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.deb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2166	2281	
==>ueue.enqueue({ ./:send($msg) })
      if $.connected;
  }

  my method send(Str $msg) {
    debug_sent $msg if $.deb <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	328	444	
==>e unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	328	444	
==>e unknown parameters

  Tests:
    * unicode, overloading - ~ <=> 
    * compare - depends on finishing Set::Infinite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7348	7443	
==>ernation, concatenation.

- "plain" match operators: like 'literal'.



Higher order operators t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7098	7190	
==>ernation, concatenation.
- "plain" match operators: like 'literal'.

Higher order operators t <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	595	711	
==>> "simple concatenation",
	},
	{
		ast => App(
			Sym('&infix:<*>'),
			Val(2),
			Val(3),
		),
		result => 6,
		name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4409	4519	
==>($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4631	4741	
==>($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        print "# Generat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22726	22826	
==>ontains zero or more Relation attribute names that
define the heading of this Relation.  Each attribu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27278	27378	
==>ontains zero or more Relation attribute names that
define the heading of this Relation.  Each attribu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31970	32072	
==>, "Sequence (?xx not recognized").  If
you want to throw your own error, see L</"ERROR HANDLING">.

=ba <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	504	602	
==>ASS, "subclasses", "Set", { companion => "superclasses" });

# every Meta::Class is a part of an ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19300	19403	
==>ed> response.
The field value consist of a challenge that indicates the
authentication scheme and parame <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19300	19403	
==>ed> response.
The field value consist of a challenge that indicates the
authentication scheme and parame <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17525	17622	
==>tion.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 Ho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17525	17622	
==>tion.  Or, see my dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 Ho <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20306	20403	
==>otE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20306	20403	
==>otE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server is currently conn <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2931	3024	
==>erer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2931	3024	
==>erer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encip <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6207	6325	
==>tr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7205	7323	
==>tr($1, 1, -1);
      my @hex = split /;/, $h;

      $S->warn(0, "Illegal hexadecimal digit '%s' ignored", $1) if $h =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	650	773	
==>::add_rule( 
        "postfix:<" . $opt{name} . ">",
        '{ return { op => "postfix:<' . $opt{name} . '>" ,} }' );
}


B <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9904	9999	
==>class = join("::",@parts) if @parts;
	}

	my $args = "[".join(",",@args)."]";
	push(@param_info, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10641	10776	
==>gin_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait fo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10641	10776	
==>gin_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait fo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	575	677	
==>ntly simply a source code generator.
   Which also addresses the problem that macros are currently
   q <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	575	677	
==>ntly simply a source code generator.
   Which also addresses the problem that macros are currently
   q <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3719	3823	
==>here are about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<l <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3719	3823	
==>here are about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechschmidt, E<l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12917	13087	
==>conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12917	13087	
==>conn.create_target_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exist <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15486	15587	
==>= HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15486	15587	
==>= HTML::Entities::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	279	395	
==>.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), t <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	279	395	
==>.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List methods: is_contiguous(), to_str(), clone(), t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1451	1598	
==>) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1451	1598	
==>) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+/);
    }
    
    method <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1091	1199	
==>.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unl <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1091	1199	
==>.spans[-1];
    return $last.end_is_open;
}
method end_is_closed () returns bool {
    return Bool::False unl <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	114	222	
==>/0/5a/tpr05a.pl
# Only handles operators: + - * /

# Pugs note: change "die" to "fail" when "fail" is impleme <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4934	5042	
==>$node = shift;

	$self->{defined_nodes}->insert($node);
}

sub node_is_defined {
	my $self = shift;
	my $node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	66	166	
==>_
use 5.006;
use strict;
use warnings;
use Module::Compile-base;
use File::Basename;
use Pugs::Runtim <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17166	17267	
==>D */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we wan <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22266	22367	
==>D */

offsets[0] specifies the 2*len+1 length of the array.
Other than that, we can do anything we wan <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	112	205	
==>:DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldo <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	112	205	
==>:DOM::Element;
use Perldoc::DOM::PI;
use Perldoc::DOM::WS;
use Perldoc::DOM::Text;

has Perldo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2422	2528	
==>r    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:D <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2422	2528	
==>r    ($code) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:D <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2552	2674	
==>statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2552	2674	
==>statements;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' } <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14579	14722	
==>g localtime
class Time::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregorian dates are inaccurate" - GHC
                        # System <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12709	12934	
==>" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12703	12928	
==>" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pug <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1294	1456	
==>0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descripti <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1294	1456	
==>0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descripti <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2634	2731	
==>hat the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:k <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2634	2731	
==>hat the finishing step may return data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:k <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2637	2847	
==>asily
    {   my $re = qr/^(\w+)      -   # the prefix
                     ([\w-]+?)  -   # the package name
                     ([\d.]+)   -   # the version
                     (\w+\+\S+) $   # the authority <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1242	1361	
==>CRIPTION

B<NOTE:>
This is a Perl6-MetaModel 2.0 port of the Perl 6 version of 
Test::Builder::TestPlan.

This file cont <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2952	3083	
==>lt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2963	3094	
==>lt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4960	5064	
==>$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4960	5064	
==>$char! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24667	24761	
==>attributes may store values of the same class;
every Relation::Example tuple must be distinct f <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15325	15423	
==>ince this return value is a type variable that is present inside the function, if it was free it mi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6087	6182	
==>pkg_node = "${pkg_root}::Node";
	$pkg_type = "" if $pkg_type eq $pkg_this;
	$used{$pkg_type}=1 i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25526	25624	
==>at the object
represents (or gives the name of a condition being reported, if it is used
as an exce <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25526	25624	
==>at the object
represents (or gives the name of a condition being reported, if it is used
as an exce <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24813	24910	
==>(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29365	29462	
==>(Str) of Any>

This method returns this Relation's body.

=item C<size () returns Int>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2669	2769	
==>LF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2669	2769	
==>LF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5178	5315	
==>revious ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5178	5315	
==>revious ( $x ) { 
    # TODO - simplify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6765	6958	
==>os,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6765	6958	
==>os,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14016	14135	
==>the regexp struct to create one?

Possible next steps:

  Get per-package hooks working.

Notes:

  http://perl.plover.c <==
2	/Users/nnunley/pugs/util/importgraph.pl	287	387	
==>opt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetOptions(
  "layout=s" => \$la <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6625	6725	
==>:Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or yo <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6625	6725	
==>:Parser>. 

You can either pass in a string C<$buffer> which will get the HTML appended to it, 
or yo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	799	900	
==>$nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $v <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	799	900	
==>$nofile) {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)(.*)};
        $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8428	8581	
==>turn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8428	8581	
==>turn sub {
        #my $tail = $_[0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 tail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2315	2414	
==>arn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2532	2631	
==>arn "* caching Prelude: $prelude_file-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	997	1087	
==>ug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	997	1087	
==>ug workaround\n\n"; }

say '
class Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler: <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3417	3516	
==>s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;

    $m <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4553	4651	
==>s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ s/( "-I\$\(INST_LIB\)")/ "-Iinc"$1/g;
    $m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	6950	7087	
==>eth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Mod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	6950	7087	
==>eth,
            'ARG' => $arg, 'EXP_TYPE' => 'Rosetta::Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Mod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1715	1884	
==>ile-cached.pl" > 
            -M "$prelude_file.p6";
      }
      else {
        $recompile = 1;
      }
      if ( $recompile ) {
        local $/ = undef; 
        war <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17150	17252	
==>s);
    }
}

(method BUILDALL ((opaque $self:) (hash %params)) returns nil
    ((= &dispatcher (($self: <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20131	20230	
==>umber(2,$binstr) }
 multi prefix:<:10> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::str <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	916	1024	
==>Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	916	1024	
==>Perl::Compiler::PIL::PILPos    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILStmt   { ./ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	828	976	
==>sub {
        my $self = shift;
        return $self->{'values'}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	68	170	
==>/i, /x flags
  $self->add_flag('m' => sub { 0x1 });
  $self->add_flag('s' => sub { 0x2 });
  $self->add <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24439	24536	
==>mation.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24439	24536	
==>mation.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3140	3237	
==>susceptible to related-key attacks.

This means that you should strive to use only truly random ke <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3140	3237	
==>susceptible to related-key attacks.

This means that you should strive to use only truly random ke <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	454	583	
==>efore any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make thi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	454	583	
==>efore any values are
    # set results in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make thi <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6046	6174	
==>malize_version($a)
            } glob(qq/$ghc_root${slash}ghc-*/);

            GHC_TEST:
            for my $ghc_dir (@ghc_choic <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4305	4447	
==>ntifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4305	4447	
==>ntifier, making no progress is the same as failing
                #  (to avoid infinite loops)
                $m.backtrack()();
            } <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	705	815	
==>bmethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
} <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	705	815	
==>bmethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) if $footer;
} <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	689	830	
==>.. ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	656	797	
==>.. ";

    unless (eval { require Socket; Socket::inet_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7869	7977	
==>opy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7869	7977	
==>opy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8041	8162	
==>secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8041	8162	
==>secure, $expires, $discard);
        @array.push(*%rest) if %rest.keys;
        
        @array.pop while !defined @array[ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	478	633	
==>s ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	478	633	
==>s ) {
        $tmp = $self.next( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6568	6757	
==>return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6568	6757	
==>return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        return $_[3] = { 
            bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # retur <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6563	6698	
==>chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsqu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6563	6698	
==>chr(8205),
    "lrm"      => chr(8206),
    "rlm"      => chr(8207),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsqu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	22	133	
==>s is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	22	133	
==>s is defined in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Spa <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1795	1918	
==>cted:\n"; print STDERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oops, you failed.\n";
   }
}

# ------------ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	840	974	
==>};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	840	974	
==>};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my $p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12588	12702	
==>},
     );
sub p6_as_num {
    my($x)=@_;
    my $reftyp = ref_flavor($x);
    my $handler = $as_num_handlers{$reft <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	796	899	
==>alled

=head1 ACCESSORS 

=head2 package

Set the name of the full package package. For example:

    p5 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3013	3287	
==>t>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $i <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3013	3287	
==>t>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4813	4913	
==>bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4813	4913	
==>bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cipher_obj.f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2169	2268	
==>et($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2169	2268	
==>et($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2561	2688	
==>s;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal : <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2561	2688	
==>s;
    submethod BUILD () {
        type_check $.value.vtype, '[Stmt]';
    }
    method vtype () { 'Expression' }
}

# PILVal : <==
2	/Users/nnunley/pugs/util/drift.pl	812	919	
==>c",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, $setup, "$in.tmp"
);

my @program <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6222	6325	
==>::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6222	6325	
==>::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("path/to/file. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	353	464	
==>Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	353	464	
==>Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<source>
        if %att.exists<source> and %att<s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5712	5844	
==>Term.angle_quoted>
        #    { return { angle_quoted => $/{'Pugs::Grammar::Term.angle_quoted'}->() ,} }
        #) ),
        #~ q <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1107	1327	
==>$config
            },
            pool => {
                store => \$pool,
                #XXX allow?
            },
            pool_rel => {
                store => \$pool_rel,
            },
            index => { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24125	24234	
==>atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20546	20655	
==>atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2583	2702	
==>wline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_succe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2583	2702	
==>wline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code); }
    method is_succe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12930	13050	
==>.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12930	13050	
==>.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the server. If the connec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3686	3841	
==>each my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3826	3981	
==>each my $i (0..length($str)) {
        my $match = $rule->{code}( 
            $grammar,
            substr($str, $i),
            $state,
            $flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	479	654	
==>b ),\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$matc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	61	217	
==>qw[LoadFile Dump];
use Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $E <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16607	16710	
==>array'} = $X::cap; #EEEP
      $$m1->{'to'} = $X::pos; #EEEP
      $m1->set_str(substr($X::str,$pos,$X:: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15655	15754	
==>array'} = $X::cap; #EEEP
    $$m1->{'to'} = $X::pos; #EEEP
    $m1->set_str(substr($X::str,$pos,$X:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5125	5230	
==>$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5125	5230	
==>$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan}.keys);
      %!users{$_}<c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2874	3053	
==>2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2874	3053	
==>2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	231	352	
==>e strict;

#line 41

sub new {
    my ($class, %args) = @_;

    foreach my $method ( qw(call load) ) {
        *{"$class\ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1917	2008	
==>xes constructed with this module may cause
segfaults on C<split>, substitution, and/or other <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14848	15031	
==>p::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15127	15310	
==>p::constant( "use" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5551	5651	
==>proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5609	5709	
==>proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends) returns Bool is export {
    Test::p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	334	442	
==>::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    ha <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	334	442	
==>::Util::Pos {
    has Int $.line;
    has Int $.column;
}

class Perl::Compiler::PIL::Util::PosRange {
    ha <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15291	15394	
==>eturn value from the function
	# since this return value is a type variable that is present inside the f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10346	10445	
==>d be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you ha <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10404	10503	
==>d be specified at the very top of your tests.

- `force_todo (*@todo_tests) returns Void`

If you ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11787	11892	
==>in || $is_netware || $is_vms) {
	    $runperl = qq{$^X -e "print qq(} .
		$args{stdin} . q{)" | } . $runpe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38017	38155	
==>{neg} ? '!' : '&';
  }

  sub type {
    my $self = shift;
    $self->{neg} ? 'not' : 'and';
  }

And finally, the small change to the qr() <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10066	10155	
==>tachar("-").
p5_charset_item(char(C)) --> [C], {[C] = "-"}.

charset_identifier(A) --> aln <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4049	4172	
==>{
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newline, ($content.chars && $content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4049	4172	
==>{
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $newline, ($content.chars && $content <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	202	312	
==>readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	202	312	
==>readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MYAPP_PROM <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12729	12826	
==>cts without the time part.

Discrete spans take a "units" specifier, which can be either `:int` or <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12729	12826	
==>cts without the time part.

Discrete spans take a "units" specifier, which can be either `:int` or <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	459	616	
==>),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	459	616	
==>),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6880	7025	
==>oesnt work yet.
    my sub warning($e){warn("Warning: $e\n")};
    for %mods.keys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40610	40711	
==>CHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40610	40711	
==>CHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the LGPL for more
details.

While it is by no m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12328	12428	
==>Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expecte <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12386	12486	
==>Str $code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

- `eval_is (Str $code, Str $expecte <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4124	4222	
==>lf = shift;
	my $class = shift;

	if (Scalar::Util::blessed($self)){
		return 1 if $self->{class_th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10013	10107	
==>ntaining all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_diff <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10013	10107	
==>ntaining all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_diff <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	363	464	
==>An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.ne <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	363	464	
==>An extreemly simple DFA.

has $.state;
has $.net;

multi method BUILD {
  $.net   //= FA::DFA::Node.ne <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	2041	2177	
==>f);
    $class->defaults($conf);
    return $conf;
}

sub env_override {
    my($class, $conf) = @_;
    my %env = map { split /=/ } (spl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	171	281	
==>e;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	171	281	
==>e;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16425	16532	
==>odcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::Tok <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16425	16532	
==>odcontrol
    ?? Algorithm::TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::Tok <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1017	1159	
==>= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1017	1159	
==>= $escaping ?? "\\?" !!
              $.strict_wildcard_slash ?? "[^/]" !! ".";
        }
        elsif ( $char eq '{' ) {
            $regex ~ <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	84	186	
==>::C;
use Blondie::Emitter::Pretty;
use Blondie::TypeSafe;

my $r = Blondie::Backend::C->new;

my $x = 1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1091	1216	
==>> 'Nmake.exe',
        remove      => 1,
    );

    if (!$rv) {
        die << '.';

---------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	1892	2008	
==>$from;
    $to   = "" if !defined $to;
    $s .= "$from,$to>";
    return $s;
}
sub _indent {my($o,$s)=@_; $s =~ s/^( <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1401	1562	
==>tes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_elemen <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1401	1562	
==>tes;
                        %events<start_element>('header', $size);
                        interpolate($1, %events);
                        %events<end_elemen <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2673	2782	
==>losed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns Obje <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2673	2782	
==>losed }
method stringify ()     returns String { return $.set.stringify }
method size ()          returns Obje <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22361	22472	
==>ptionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22361	22472	
==>ptionally using the specified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	212	309	
==>tests), but it's
real p5 re coverage is much less.  The test passing was simply to
permit refactor <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6539	6652	
==>m;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6539	6652	
==>m;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $result = Span::Num.new( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7363	7468	
==>s = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchun <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7363	7468	
==>s = (splitpath($base, 1))[1];

    # Now, remove all leading components that are the same
    my @pathchun <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4364	4467	
==>S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1490	1593	
==>S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exact => "\r", '\r');
  });

  $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20420	20524	
==>e($code);
	$mfun = eval($code);
	eval_p5_log_error($code,$@) if $@;
    }
    $macros{$name}=$mfun;
}

su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	218	310	
==>ndie::Reducer::DuplicateFinder;
use Blondie::TypeSafe;
use Set::Object ();

{
	package Blondi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5731	5862	
==>$Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10042	10173	
==>$Foo,
    '%:methods'    => {
        'bar' => sub ($) { 'Bar->bar' },
        'baz' => sub ($) { 'Bar->baz' },
    },
);

is($Bar-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16386	16485	
==>can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16386	16485	
==>can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list of S <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5845	5957	
==>')->new('$.key' => $_[0], '$.value' => $_[1]) if $cls eq 'Pair';
    if($cls eq 'Scalar') {
	my $o = get_meta('Sc <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	72	157	
==>8.7/Module/Install/Win32.pm"
package Module::Install::Win32;
use Module::Install::Base <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3224	3360	
==>ay
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3224	3360	
==>ay
sub array {
    my @a = _get_captures( $_[0] );
    my @r;
    for my $m ( @a ) {
        next unless exists $m->{label};
        if ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6588	6688	
==>ries, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6588	6688	
==>ries, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2rel (Str $_path, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15233	15357	
==>elect our language.  so I suspect the default should be Grf. -law]

Attempting to use a string at a level higher it can suppo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3605	3734	
==>ng an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordere <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3605	3734	
==>ng an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordere <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1066	1196	
==>om Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1066	1196	
==>om Array::Lazy to 
  Lazy::List. These methods can be accessed from an array
  by doing a 'splat()' first. 
  Array::Lazy::reverse( <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1925	2025	
==>fix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1925	2025	
==>fix:<⇒> ($key, $value) >>

Pair constructor (equivalent to C<< => >>).

=head2 C<≥>, C<≤>, C< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4735	4889	
==>= q|
($::ENV create 
    ("*::WALKMETH"
        (closure new 
            (($::ENV)
             (closure::signature new 
                 ((params  (closu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10136	10246	
==>oot();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10136	10246	
==>oot();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibling {
        ($sibling === $self) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2357	2481	
==>$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2415	2539	
==>$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval_ok()";
        &Test::ok.goto($ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	18	129	
==>n::Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	18	129	
==>n::Num-0.01;

has $.start;
has $.end;
has bool   $.start_is_open;
has bool   $.end_is_open;

=for TODO

    * op <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6348	6445	
==>ns Int {
    +@array;
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Arra <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5739	5868	
==>.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5739	5868	
==>.previous( $.span.end );
    }
    if $x < $.span.start && ! $.span.start_is_open {
        $x = -Inf;
    }
    elsif $x <= $.spa <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2002	2113	
==>ML summary of a YAML test run
     util/run-smome.pl     - automate the smoke process

__HELP__

    exit ($usag <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24267	24363	
==>pe->stringify, "∀α. α → α", "pretty print a -> a");
}
{
	my $type = type::operator::arrow- <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1168	1324	
==>ostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???' <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1168	1324	
==>ostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	205	316	
==>s export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	205	316	
==>s export {
    set();
}

=cut

# the Set is represented as a hash of (v => v)
has %!members;

method members() r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3051	3187	
==>File( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Transl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3515	3651	
==>File( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps ) {
            print "Transl <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5955	6050	
==>:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	93	183	
==>e "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Output' => class 'TestBuilder::Output' => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7498	7625	
==>rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7691	7818	
==>rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_ru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4020	4119	
==>string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4020	4119	
==>string("\n") }

method as_string ($self: Str $ending = "\n") {
  my @result;

  $self.scan(-> $field <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	50	175	
==>warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no str <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	50	175	
==>warnings;
use Module::Compile ();

sub import {
    my $class = shift;
    my $code = shift;
    my $pkg = caller;

    no str <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20653	20748	
==>you chose so to pick a supported language closest to your
preference.  Presumably the messages i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20653	20748	
==>you chose so to pick a supported language closest to your
preference.  Presumably the messages i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	687	808	
==>rcumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfix', op1 => \$_[1], <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5236	5360	
==>D)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5236	5360	
==>D)__$).*)//ms) {
        $folded_data = $1;
    }
    my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2151	2251	
==>) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2151	2251	
==>) {
    !$one.subset($two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1226	1334	
==>idy;
        Perl::Tidy::perltidy( source => \$perl5, destination => \$perl5_tidy );
        $perl5 = $perl5_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	385	491	
==>shift()->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( \%args, $clas <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15151	15256	
==>t to the method.  The old header value is always returned.
If the given header did not exist then C<undef> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15151	15256	
==>t to the method.  The old header value is always returned.
If the given header did not exist then C<undef> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4041	4141	
==><value2>, :mode<enciphering>);

This class method constructs a new cipher object.  The options passed <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4041	4141	
==><value2>, :mode<enciphering>);

This class method constructs a new cipher object.  The options passed <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25699	25793	
==>ecause an lvalued subroutine returning a
normal scalar doesn't work quite right with a regex th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	709	1118	
==>ry Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=enco <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	709	1118	
==>ry Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=enco <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	238	381	
==>r $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	238	381	
==>r $number!) returns Num {
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_NO_ARG' )
            if !$number. <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5619	5882	
==>en eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5619	5882	
==>en eq '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	732	905	
==>ocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	732	905	
==>ocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14118	14236	
==>r {
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = opaque.new(\$class, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	591	697	
==>ize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./not <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	591	697	
==>ize($0)}<date>} seconds ago, saying: %seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./not <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5794	5896	
==>r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5794	5896	
==>r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4406	4568	
==>"  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4546	4708	
==>"  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $self->{sigspace} ) . "),\n" . 
        "  code "     .  "=> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	36	141	
==>(*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    re <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	36	141	
==>(*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	125	238	
==>arameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	125	238	
==>arameters are: $grammar, $string, $flags, $state

# internal methods - not in spec

sub no_match { 
    Pugs::Runt <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	233	330	
==>les apples");
    system("perl naive_bayesian.p5 add oranges oranges");
    system("perl naive_bay <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18994	19131	
==>L::isa($object, $class) ) {
                    my $ref = ref $object;
                    $diag = "$obj_name isn't a '$class' it's a '$re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14879	15000	
==>r)))
     (while ($c is_not_nil)
        ((($c send (get_attributes)) apply 
            ((= %attrs store (($_ name) ($_ i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14110	14267	
==>syn.pod"); } 
        }
        Pod::Simple::HTML->parse_from_file($synpod, $synhtml);
        
        # and parse it into a tree
        my $sobj = HTML::Tr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	141	249	
==>ath::Class             ();
use Data::Dumper;

use JIB::Installation;

use base 'Object::Accessor';

=head2 $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17416	17542	
==>ur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($st <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17416	17542	
==>ur;
    },
  };

  $self<reset>();
  return $self;
}

sub strip_colon(Str $str is copy) {
  $str = substr $str, 1 if substr($st <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2515	2616	
==>und_floor
}

our Int multi Num::truncation (Num $x) {
	...
}

# Other math functions.
our bool multi N <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	340	467	
==>il-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to various.
                  poin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	340	467	
==>il-call this if they fail (see below)
    $.marks     - A hash that stores backtrack closures to various.
                  poin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	569	681	
==>es
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() shoul <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	569	681	
==>es
# * Removed pair() - this module does not have access to the Pair constructor
#
# TODO - is_contiguous() shoul <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	393	485	
==>$role = Role.new("SomeRole");

 $role.addMethod(Method.new(...))

 $role.apply;

=head1 DESCR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4193	4302	
==>bject(anyof_char_comp => "\n", '\N') if $cc;
    return $S->object(exact_comp => "\n", '\N');
  });

  $self-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37858	37959	
==>f;
  }

We've added a C<neg> attribute, and removed both C<type> and C<raw>.  We
will replace them wit <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15434	15543	
==>$.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15434	15543	
==>$.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5434	5539	
==>esis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5434	5539	
==>esis rules! :)
    my $chan = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3484	3587	
==>::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3484	3587	
==>::PIL::Node::$data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30982	31079	
==>dule from others in
its set. For maximum flexibility in their use, the full name of a module
consi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30982	31079	
==>dule from others in
its set. For maximum flexibility in their use, the full name of a module
consi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	291	535	
==>$size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	291	535	
==>$size = @args.shift;
                    $buffer ~= "<H$size>";          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $buffer ~= "<UL>\n";
                }
                wh <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1920	2019	
==>e methods which return the p6 version of the
#regexp.  We can then pour the re_test suite through it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12238	12354	
==>);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12238	12354	
==>);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5856	5959	
==>ssage (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'transla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5856	5959	
==>ssage (Locale::KeyedText::Message $message!)
        returns Str {

    $?SELF!_assert_arg_msg( 'transla <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4307	4406	
==>*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4307	4406	
==>*@filenames) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13174	13284	
==>w b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13174	13284	
==>w b0rked, we won't get a reply.
    if($.curservername and time() - $.last_traffic >= $autoping and time() - $. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1777	1898	
==>*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1777	1898	
==>*?\015?\012)*?)\015?\012}) {
    my ($code,$head) = ($0,$1);

    # if (want.Boolean) {
    #  return $code ~~ rx:perl5/^2 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7669	7773	
==>ich is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7669	7773	
==>ich is preceeded by an '=for' directive) 
is reached.    
    
=item I<start_element ('list')>

This even <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14967	15066	
==>an also be accessed through the
following convenience methods.  These methods can both be used to re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14967	15066	
==>an also be accessed through the
following convenience methods.  These methods can both be used to re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2239	2356	
==>};
    for my $op ( @{$self->{levels}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{asso <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	969	1067	
==>le => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a JIB:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1254	1358	
==>_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1254	1358	
==>_names => @user_lang_prefs,
    );

    _show_message( Locale::KeyedText::Message.new(
        msg_key => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2267	2377	
==>face::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2267	2377	
==>face::Command class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19117	19221	
==>e nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, et <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19117	19221	
==>e nickname is already used, C<Net::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, et <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6459	6557	
==>PTABLE_CLOSE );
  goto oper_shift if ( $topcat == PGE_OPTABLE_POSTCIRCUMFIX );
  #$temp1 = $$token{ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35498	35587	
==>_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40048	40137	
==>_product>, C<cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns R <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5600	5686	
==>e = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d]+)-(\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2788	2888	
==>ings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2788	2888	
==>ings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1367	1475	
==>n;
}

# Fix Cygwin bug on maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    requir <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1288	1392	
==>n;
}

# Fix Cygwin bug on maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	requir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23469	23564	
==>ale::KeyedText has no non-trivial
external dependencies (it is very simple).

There are other di <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23469	23564	
==>ale::KeyedText has no non-trivial
external dependencies (it is very simple).

There are other di <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13510	13615	
==>e span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13510	13615	
==>e span:

    $month = Span.new( start => $dstart, end => $dend );
    my $month_holidays = $month.intersec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34594	34712	
==>:Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'G <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34594	34712	
==>:Translator $translator .= new(
        set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3362	3529	
==>turn values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if there is another
        match inside the closure <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3373	3540	
==>turn values from matches"
    $/    
        the match 
        Inside a closure, refers to the current match, even if there is another
        match inside the closure <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9933	10114	
==>$.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curus <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9933	10114	
==>$.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.servername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24935	25034	
==>king Rosetta statically or dynamically with other components is making a
combined work based on Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24935	25034	
==>king Rosetta statically or dynamically with other components is making a
combined work based on Rose <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16326	16424	
==>. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence obje <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16326	16424	
==>. Spans of recurrences may yield three spans.

The argument can be a Span object, a Recurrence obje <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	849	1001	
==>$self);
    }

    sub values { @{ $_[0] } }
    
    package Unit;
    sub new {
        my $class = shift;
        my $value = shift;
        bless \$v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35527	35623	
==>n array that holds array references; each of those array
references is the body of one and-branch <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2711	2811	
==>ion($self: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersection($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2711	2811	
==>ion($self: Set $other) returns Set {
    set($self.members, $other.members);
}
method intersection($s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	90	176	
==>Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	90	176	
==>Date <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32252	32349	
==>at; and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Per <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32252	32349	
==>at; and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from Per <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1750	1875	
==>till_day ],              # Commits
  [ 0, map { 50 * $_ } @devs_till_day ], # Developers (scaled)
);

my $gd = $graph->plot(\@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2027	2145	
==>t_perl6_rule {
    my ($self, $level, $default) = @_;
    my @rules;
    my $tight = $level ? 'r' . ($level - 1) : $sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27522	27645	
==>a new
object that is a clone of the first but for the changes.

=back

A Message object has these methods:

=over

=item C<e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27522	27645	
==>a new
object that is a clone of the first but for the changes.

=back

A Message object has these methods:

=over

=item C<e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1338	1446	
==>ning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1338	1446	
==>ning for C<use>
and C<no> will be reversed for your filter:

    package MyFilter;
    no Filter::Simple::Com <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5034	5151	
==>ethod return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_pr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7702	7819	
==>ethod return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_pr <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17620	17733	
==>Handlers = (
    header => \&header_handler,
    test => \&test_handler,
    bailout => \&bailout_handler,
);

$St <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20290	20384	
==>warranted chumminess with compiler. */

regcomp.h: This is essentially a linear encoding of a n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	686	813	
==>~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $statu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	686	813	
==>~ /^\d**{3}/) {
                # Looks like a response created by HTTP::Response.new
                ($code, $message) = $statu <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5623	5888	
==>q '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5623	5888	
==>q '`';                            
                        }
                        else {
                            # push the latest modifier on to it ...
                            @modifier_stack.push($token);
                            # and start an event <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5451	5563	
==>received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_af <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5451	5563	
==>received.
method client_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_af <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3194	3292	
==>zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3194	3292	
==>zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value1>, :opt2< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10427	10525	
==>sers who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10427	10525	
==>sers who wants to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7273	7375	
==>span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- ` <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7273	7375	
==>span,1..Inf,10

= CONSTRUCTORS

- `from_list( @list )`

@list may contain "Lazy" lists.

= METHODS

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4444	4547	
==>) or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are time <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4444	4547	
==>) or not ("open").

- size()

Return the "size" of the span.

For example: if `start` and `end` are time <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9785	9903	
==>ss already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && length($_) > 0;
	$$runperl .= ' ' . $_;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2037	2258	
==><end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>(' <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2037	2258	
==><end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element>(' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4681	4795	
==>e thunk

			my $expected = shift @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . D <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1651	1796	
==>def if $top < 0;
    my $e = @a[0];
    my $i = 0;
    while $i < $top {
        @a[$i++] = @a[$i];
    }
    pop(@a);
    return $e;
}

sub splic <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3854	3979	
==>lues;
    $class->SUPER::new(@values);
}

sub store {
    my ($self, $index, $value) = @_;
    (blessed($value) && $value->isa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10805	10907	
==>d;
	my $meth = "";
	Carp::confess("class undefined") if !defined $class;
	$code = ("(p6_meta('$class')" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	466	579	
==>urns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	466	579	
==>urns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	726	835	
==>art_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $he <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	726	835	
==>art_is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $he <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	866	1011	
==>egex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $re <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	866	1011	
==>egex ~= $escaping ?? "\\*" !!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7468	7583	
==>ld->isa("Blondie::Seq")){
			my @children_of_seq = $child->values; # the children of the seq child of the thunk
			m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1123	1277	
==>t_left:  exp                 { $out= [ $_[1] ] }
        |   list_left ',' exp   { $out= [ @{$_[1]}, $_[3] ] }
;

list_right: exp                 { $ou <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1983	2078	
==>to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1983	2078	
==>to C<< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1867	1995	
==>($subclass);     
        }
    }
    
    if ($class->can('superclasses')) { # roles don't have subclasses
        foreach my $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	193	447	
==>es used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	193	447	
==>es used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1986	2162	
==>= -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1986	2162	
==>= -Inf) {
        return $self.new( start => $.end,
                     end =>   Inf,
                     start_is_open => ! $.end_is_open,
                     end_is_open => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3269	3386	
==>, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # sm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3269	3386	
==>, dieresis or umlaut mark
    "szlig"    => 'ß',  # small sharp s, German (sz ligature)
    "thorn"    => 'þ',  # sm <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11542	11664	
==>l($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs::Internals::runInteract <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1120	1210	
==>rotocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1120	1210	
==>rotocol returns Str>

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iinteractive.comE<gt <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1104	1206	
==>desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1162	1264	
==>desc, $todo, $got, $expected, $depends);
}

## is_deeply
sub is_deeply(Any $got, Any $expected, Str $de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3336	3452	
==>e /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3336	3452	
==>e /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nic <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2083	2186	
==>ITY

Although Arcfour is perfectly secure when used properly, it has several known 
problems and weaknes <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2083	2186	
==>ITY

Although Arcfour is perfectly secure when used properly, it has several known 
problems and weaknes <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1595	1738	
==>class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1595	1738	
==>class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa( 'Span::Num' | 'Span <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1398	1493	
==>EADME>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look i <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1398	1493	
==>EADME>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<docs/talks/>. Look i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8902	8997	
==>_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2727	2822	
==>_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, sub { Grammar::Perl6-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25914	26008	
==>changes, in
addition to preserving this original copyright notice and other credits.
Rosetta is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25914	26008	
==>changes, in
addition to preserving this original copyright notice and other credits.
Rosetta is <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18413	18550	
==>ls->{max};
    my $detail = $totals->{details}[-1];

    if( $detail->{ok} ) {
        _print_ml_less("ok $curr/$max");

        if( $deta <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3714	3822	
==>lues) = @_;
    (blessed($_) && $_->isa('symbol'))
        || confess "You must store a symbol type in a para <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3111	3212	
==>er::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    s <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3111	3212	
==>er::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11447	11602	
==>eturns IO
            is primitive is unsafe {
        die "Pipe::open is unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        m <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14807	14914	
==>s:

A Str can exist at several Unicode levels at once. Which level you
interact with typically depends on wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21484	21605	
==>ndler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17905	18026	
==>ndler('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4336	4438	
==>($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1462	1564	
==>($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    return $S->object(exa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7025	7163	
==>mechanism to call arbitrary stuff on the package
        # obj? otherwise all data we index after must be a toplevel element of
        # t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2188	2289	
==>-- those are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files should b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2107	2206	
==>-- those are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files should b <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	809	904	
==>it->new(1) : bit->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare($_[1]) >= 0  ? bit->n <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3076	3185	
==>ting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3076	3185	
==>ting a single span, with a simple functional API.

= SYNOPSIS

  use Span::Int;

  $span = Span::Int.new( star <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2202	2314	
==>o     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 20 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2202	2314	
==>o     ($code) is export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 20 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19155	19268	
==>g group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15576	15689	
==>g group
    ${&Rx} =~ m{ \G ([a-zA-Z]*) (-? [a-zA-Z]*) }xgc;
    my ($on, $off) = ($1, $2);
    my ($r_on, $r_off) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9837	9991	
==>";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9837	9991	
==>";
    try { $!socket.close }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1995	2128	
==>hr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $chr =~ /#/ ) {
	    # sp <==
2	/Users/nnunley/pugs/t/packages/RequireAndUse2.pm	156	238	
==>ntp.perl.org/group/perl.perl6.language/22258">.

module t::packages::RequireAndUse2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3364	3494	
==>ree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3364	3494	
==>ree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8396	8498	
==>ame} in " . Dumper(@_);
};

# binary operators must have the same symbol, and are also unified recursiv <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	797	900	
==>ntax works better
# sub parser (Code $f) { $f }

## Chapter 8 section 3.1

sub lookfor($wanted, Code $va <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7505	7614	
==>!! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7563	7672	
==>!! "Expected";

    # As PIL2JS doesn't support junctions yet, skip the junction part when
    # running under <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2854	2954	
==>, but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a non <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2854	2954	
==>, but any cryptographer worth the name can.  To avoid 
this, make sure you combine the key with a non <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2559	2840	
==>:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $ver <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2559	2840	
==>:perl5{^\n$})  && 
                                $_line ~~ rx:perl5{^\s(.*?)$} ) {                                
                            $verbatim ~= "$0\n";
                            $_line = $fh.readline;
                        }           
                        $ver <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1168	1263	
==>"Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_reque <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1168	1263	
==>"Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_reque <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19006	19103	
==>n support a complete SQL emulation layer on top of it, so that your
legacy applications can be mig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19006	19103	
==>n support a complete SQL emulation layer on top of it, so that your
legacy applications can be mig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3724	3846	
==>eturn $S->object(horiz => 0);
  });

  $self->add_handler('\H' => sub {
    my ($S, $cc) = @_;
    return $S->force_object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21224	21373	
==>_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17645	17794	
==>_handler('(?<' => sub {
    my ($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6247	6371	
==>atch )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6259	6383	
==>atch )
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4883	5001	
==>p5 );

      

=head2 Example: a YAML compiler

      

* load the YAML compiler



  *compile::YAML = Pugs::Compiler-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4716	4828	
==>p5 );
      
=head2 Example: a YAML compiler
      
* load the YAML compiler

  *compile::YAML = Pugs::Compiler-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2412	2514	
==>ode;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2412	2514	
==>ode;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7382	7488	
==>0]) });
		$self->leave_scope;
		
		my $child = $rthunk->val->struct_equiv;

		if ($child->isa("Blondie::Seq <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11095	11187	
==>%# XXX - more

p6_simple_escape_sequence(char(C)) --> "\\t", {[C] = "\t"}, !.
p6_simple_escap <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1286	1401	
==><» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1286	1401	
==><» (Set $one, Set $two) {
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $o <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2119	2222	
==>s: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2119	2222	
==>s: $code", (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	882	1012	
==>* as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	882	1012	
==>* as_list - how to create a lazy list ?

  Optimizations:
    * create a store for single elements (Span::Singleton)
    
  From "S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4550	4667	
==>? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4743	4860	
==>? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24597	24738	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24876	25017	
==>6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'g <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2963	3078	
==>nyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\E' => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	994	1100	
==>nyof_char => "\e", '\e') if $cc;
    return $S->object(exact => "\e", '\e');
  });

  $self->add_handler('\ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1660	1775	
==>rently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1660	1775	
==>rently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[\]?={}\x7F-\xFF]/ || !$v.c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	183	283	
==>ng to generate the same data structure as
the 'ratchet' version.

- It currently passes all it's t <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7575	7673	
==>_CODE($name,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DOWN($pVal); }

NODE PVar ($pVarName) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	454	610	
==>chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	454	610	
==>chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	612	717	
==>$content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	612	717	
==>$content = "") {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18715	18826	
==>nd;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20073	20184	
==>nd;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} }, 0, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1790	1905	
==>rbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1790	1905	
==>rbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self --> $self doesn <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15469	15570	
==>(Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15527	15628	
==>(Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because these functions will be mutually recu <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4146	4270	
==>ounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Out of <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4146	4270	
==>ounds of our children 
    # against the index given        
    ($index < $self.child_count()) 
        || die "Index Out of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22623	22722	
==>uld also handle
this.

A program generates a Message that contains all possibly useful details, so
t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22623	22722	
==>uld also handle
this.

A program generates a Message that contains all possibly useful details, so
t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	347	449	
==>ed against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given be <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	347	449	
==>ed against each other for agreement at BUILD time
for the below classes.

=cut
#'

# The types given be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1151	1273	
==>0,
    nparen => 0,
    captures => [],
    flags => [0],
    next => ['atom'],
  );

  # do the initial scan (populates ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11520	11637	
==>unless defined $args{args} or defined $args{switches}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1741	1838	
==>t $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1741	1838	
==>t $one, Set $two) {
    $one.proper_superset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33732	33832	
==>ds to a
language like English or French.  The order of these items corresponds to
an individual user' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33732	33832	
==>ds to a
language like English or French.  The order of these items corresponds to
an individual user' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7232	7343	
==>... still got the right return value from first Object singleton/class method');   

## make class

my $Foo = $C <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	848	957	
==>thods 
sub env { (shift)->{env} }

sub do {
    my $self = shift;
    $self->{body}->($self->{env});
} 

sub d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1651	1746	
==>ine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase development <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	492	595	
==>"CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|htt <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	492	595	
==>"CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|htt <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5961	6074	
==>tart = pos
    litlen = 0
  term_literal_loop:
    if pos >= lastpos goto term_literal_end
    $I0 = is_cclass .CC <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1455	1554	
==>.round_half_odd },

#		{ $^a.round_half_alternate },
#		{ $^a.round_half_random },

		{ $^a.round_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	963	1068	
==>rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1100	1205	
==>rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = main::emit_rule( get_data( $_[0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10272	10389	
==>, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target, pos
    max = $S0
    pos = $I1
  quant_clo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	997	1101	
==>$compiled_rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	997	1101	
==>$compiled_rule;
	# but put the .code version of it into the package
	$self->_pkg_meta->add_method($rule_n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12647	12766	
==>and decoding of strings with HTML
character entities.  The module provides the following functions:

=over 4

=item deco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12647	12766	
==>and decoding of strings with HTML
character entities.  The module provides the following functions:

=over 4

=item deco <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4153	4283	
==>proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4153	4283	
==>proxy {
    if $http_proxy ~~ rx:Perl5!http://()(:(\d+))?$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	6268	6384	
==>supply a name to get";    
    my $current = $self;
    while ($current) {
        return $current->{env}->{$name}->f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	330	439	
==>lace where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Mediu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	330	439	
==>lace where this subrule/group started.
    $.to           - The place where this subrule/group ended.  C<Mediu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15904	16116	
==>,
            month   => @tm[1],
            day     => @tm[2],
            hour    => @tm[3],
            min     => @tm[4],
            sec     => @tm[5],
            picosec => @tm[6],
            wday    => @t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	384	492	
==>dth  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	384	492	
==>dth  = 1;
    $.node   = $node if $node.defined;   
}

## --------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11815	11909	
==>hat define the recurrences are exactly the same.

This method tests the closures identities usi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11815	11909	
==>hat define the recurrences are exactly the same.

This method tests the closures identities usi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	780	1078	
==>{
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %e <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	780	1078	
==>{
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2013	2132	
==>returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2013	2132	
==>returns Set::Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2933	3053	
==>n ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2933	3053	
==>n ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8810	8955	
==>_pkg) || $self->can_run('ghc-pkg');

        # This above fails under cygwin with a Win32-flavoured ghc-pkg.
        # https://rt.cpan.org/Ticket/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23376	23519	
==>) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19797	19940	
==>) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    push @{ $S->{next} }, qw< ifthen( >;
    push @{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8931	9054	
==>te
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # In <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8931	9054	
==>te
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3138	3246	
==>=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hell <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3138	3246	
==>=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hell <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5349	5489	
==>in( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5349	5489	
==>in( q{", "} ) ~ '"]'
         ~ "\n"
         ~ '    @member_names: ["' ~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20923	21017	
==>re on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20923	21017	
==>re on the channel as
keys.  Note that the nicknames are normalized.

=head2 C<$botE<lt>userE<gt <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5163	5284	
==>';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5163	5284	
==>';

node_h 'TParam',               'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	534	634	
==>0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	534	634	
==>0}
        ?? "$0 was last seen {time() - %!seen{./normalize($0)}<date>} seconds ago, saying: %seen{. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	753	908	
==>>{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	915	1070	
==>>{grammar}  || 
                        'Pugs::Grammar::Base';
    $self->{ratchet}  = delete $param->{ratchet}  || 
                        0;
    $self->{ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1494	1609	
==>$hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1494	1609	
==>$hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip away everything except status and h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21195	21298	
==>er() or any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 COPYRI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21195	21298	
==>er() or any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 COPYRI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3404	3527	
==>sername hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3404	3527	
==>sername hostname ircname>;
      }
    });

    # The topic of a chan.
    ./add_handler("332", -> $event {
      my ($chan, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31479	31576	
==>nt. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36029	36126	
==>nt. The new
Relation has all of the same attributes as the original.  Trivial cases are
where C<$p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13048	13152	
==>ally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13048	13152	
==>ally when joining two spans, and when getting the span size.

Create a span of 10 up to 20:

    $int_spa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12985	13085	
==>d
entities are left alone.

If multiple strings are provided as argument they are each decoded
separa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12985	13085	
==>d
entities are left alone.

If multiple strings are provided as argument they are each decoded
separa <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1104	1219	
==>bject {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1104	1219	
==>bject {
    # TODO - change Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13855	13961	
==>t2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This wi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13855	13961	
==>t2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 )

=head1 BUGS

Currently, no operators are overloaded. This wi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17150	17252	
==>date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BEN <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17150	17252	
==>date. If
it is, then it will touch its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BEN <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1093	1228	
==>ever at some early
    # stages of the bootstrap, this is not yet 
    # populated with anything, so ....
    my $supers = $class->get_a <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2080	2177	
==>:true if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.4
method <[[HasPropert <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	696	789	
==>State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $trans <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	696	789	
==>State variables used by the Rosetta::Shell module:
    my Locale::KeyedText::Translator $trans <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6988	7095	
==>first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6988	7095	
==>first call to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block ciph <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1357	1479	
==>ass ? "ok $test" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unless ($pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26012	26117	
==>lated into the
human-readable version.  Each variable name is a machine-readable short
string; the allowed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26012	26117	
==>lated into the
human-readable version.  Each variable name is a machine-readable short
string; the allowed <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	106	226	
==>unter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	106	226	
==>unter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26691	26832	
==>subclass'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::p <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1717	1823	
==>$col = 0;
#    print '\frametitle{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5908	6009	
==>imative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5908	6009	
==>imative port of the Perl 5 File::Spec::Unix module.

= FUNCTIONS

- `curdir returns Str`

- `updir ret <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3122	3220	
==>$self.complement_previous, $set.complement_next, $set.complement_previous ),
        complement_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3122	3220	
==>$self.complement_previous, $set.complement_next, $set.complement_previous ),
        complement_pre <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	289	380	
==>CRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	289	380	
==>CRIPTION

Cipher::Caesar implements simple byte-level modular addition ciphers, including 
r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10754	10862	
==>oin('', eval $name) if $name =~ /^\%/;

    return "$_[1] ruleop::constant( '" . $value . "' )\n";
}
sub node <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10041	10140	
==>And ($lhs, $rhs) {
    #DOWN($lhs)."&".DOWN($rhs);
    p6_type_and(DOWN($lhs),DOWN($rhs));
}

NODE M <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2938	3039	
==>esh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2938	3039	
==>esh.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25248	25338	
==>fined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  Yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25248	25338	
==>fined by the Free Software Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  Yo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9675	9780	
==>c comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. I <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9733	9838	
==>c comments and documentation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. I <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	4574	4759	
==>y $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	6243	6428	
==>y $self = shift;
    my %args = @_;
    my $pkg;

    my $tmpl = {
        package => {
            required    => 1,
            store       => \$pkg,
            allow       => ISA_JIB <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4013	4177	
==>cl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4013	4177	
==>cl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    " <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9455	9647	
==>) {
            $str .= ' AND ';
    
            if( ! ref $entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1270	1434	
==>) {
        $str .= ' AND ';

        if( ! ref $entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $st <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	454	572	
==>=~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	570	682	
==>=~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we can run some co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	375	495	
==>);
}

sub can_reduce { 1 }

sub generic_reduce {
	my $self = shift;
	my $node = shift;
	die "generic reductions don't mak <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7324	7419	
==>tatements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->con <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1149	1244	
==>tatements, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->con <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11580	11670	
==>ll compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::M <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11638	11728	
==>ll compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1360	1489	
==>ms ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1360	1489	
==>ms ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %*ENV<QUERY_STRING> // %*ENV<REDIRECT_QUE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4438	4548	
==>me eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture}  if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4450	4560	
==>me eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    return $match->{capture}  if <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	396	497	
==>le::Install loads
#     4. inc::Module::Install calls "require Module::Install"
#     5. The ./inc/ ve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17721	17812	
==>pile/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual mach <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17721	17812	
==>pile/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual mach <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4425	4526	
==>ad1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4425	4526	
==>ad1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -MLWP::Simple -e ' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	323	426	
==>atch C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<altern <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	323	426	
==>atch C<$a>, then tries C<$b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<altern <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8668	8803	
==>w?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8668	8803	
==>w?
        my $magic = =$fh;
        
        unless ($magic ~~ m:P5/^\#LWP-Cookies-(\d+\.\d+)/) {
            warn "$file does not seem <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	622	824	
==>a;
                loop {
                    return $a if @_[0] eq '}';
                    push $a, parse( <<>>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8844	8948	
==>1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSafe - 

=head1 SYNOPSIS

	use Blondie::T <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4065	4179	
==>.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infinite ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4065	4179	
==>.empty_span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infinite ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20234	20335	
==>e base object
class.

The walker() method is also now abstracted -- each node it comes across
will hav <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10070	10165	
==>rep { $prog->get($_)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { native(env => $en <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20670	20785	
==>ick a supported language closest to your
preference.  Presumably the messages in these files are looked up by the
pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20670	20785	
==>ick a supported language closest to your
preference.  Presumably the messages in these files are looked up by the
pr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1829	1942	
==>ift)->to_native;
    list->new(values %native);
}

sub length { (shift)->keys->length }

sub exists {
    my ($sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9256	9390	
==>m . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9244	9378	
==>m . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$h <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1907	2039	
==>o)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self-> <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1907	2039	
==>o)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            my @args = map { $self-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18170	18295	
==>ng <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (U <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18170	18295	
==>ng <king@kong.com>';

I<This header is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (U <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14720	14855	
==>tack} };
}

sub prepare_scope {
    my $self = shift;
    my @params = @_;
    push @{ $self->{param_stack} }, $self->{params};
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3264	3397	
==>(), 
                $_[0]{q2}(),
            ] ,} 
    }
  }
  is tighter/looser/equiv
  is assoc left/right/non/chain/list
  (is par <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21575	21682	
==>X)         ,C) :- catch(   char_type(C, X),_,fail), !.
class_member(class_neg(X)         ,C) :- catch(\+(cha <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	631	732	
==>rmation.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	631	732	
==>rmation.

=head2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decip <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1879	1978	
==>S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# XXX Prim.hs has a different ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1874	1975	
==>r {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1874	1975	
==>r {
    return $!msg_key;
}

method get_msg_var (Str $var_name!) returns Any {
    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1021	1206	
==>ock }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1021	1206	
==>ock }
        eval( \' 
                if ( &{\\\'prefix:<_if_expr>\\\'}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lan <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15780	15895	
==>en it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;
    
    $self->compi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2177	2288	
==>en it can't be prebound
    eval { $self->find_dyn_sym($symbol) };
    return $node if not $@;

    $self->compi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3408	3511	
==>mpiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::C <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3408	3511	
==>mpiler::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::C <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6837	7015	
==>!";
            my $in_pod = 0;
            while ( <PKGFILE> ) {
                $in_pod = 1 if /^=\w/;
                $in_pod = 0 if /^=cut/;
                next if ($in_pod | <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30673	30842	
==>nsupported dispatch order ($order)'
                }
                return $dispatcher;                 
            }
        )
    )
);

=pod

method _make_dispatcher <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1499	1597	
==>tdir") if -d "$cwd/$testdir";
}
if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
    print " <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34389	34481	
==>ethod has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38939	39031	
==>ethod has aliases named
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other! <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3280	3423	
==>'};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::T <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3280	3423	
==>'};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DESCRIPTION

Config::T <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10096	10193	
==>argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_emp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10096	10193	
==>argument can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_emp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25269	25372	
==>tware Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25269	25372	
==>tware Foundation at
L<http://www.gnu.org/philosophy/free-sw.html>.  You may copy and distribute
such a s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	295	411	
==>erms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	295	411	
==>erms );
use base 'Pugs::Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $gra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	372	478	
==>IT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCE <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	372	478	
==>IT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.],
    'ROS_S_DBMS_INIT_SUCCE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19244	19343	
==>is header must be included as part of a C<401 Unauthorized> response.
The field value consist of a c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19244	19343	
==>is header must be included as part of a C<401 Unauthorized> response.
The field value consist of a c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5630	5745	
==>ild {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5630	5745	
==>ild {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	257	369	
==>ar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were includ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	268	380	
==>ar1;

  use Data::Dumper;
  no warnings 'once';

  use vars qw( @rule_terms );

# ----- the following were includ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19032	19159	
==>n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing gro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15453	15580	
==>n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing gro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3285	3403	
==>ize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3285	3403	
==>ize(%rest<nickname>) eq normalize($curnick)) {
        ($.curusername, $.curhostname, $.curircname) =
          %rest<u <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6604	6702	
==>>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6604	6702	
==>>

This event is fired when a '=pod' directive is reached.

=item I<end_document>

This event is fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29174	29291	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29453	29570	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _return =>  match::get( $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	773	902	
==>BEGIN {
    __PACKAGE__->add_rule( 
        name => '++',
        assoc => 'left',
        precedence => 'equal',
        other => <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2751	2841	
==>ernatives(W, Z), !.
p5_start(noop) --> {true}.

p5_alternatives(W, Z) --> "|", p5_concatena <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4230	4331	
==>-Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4230	4331	
==>-Inf || $self.end == Inf
}

method start () returns Object { return $.span.start }

method set_start ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	940	1074	
==>r->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	940	1074	
==>r->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1917	2056	
==>ODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $con <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1917	2056	
==>ODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $header ~= "\nContent-Type: " ~ $con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8217	8389	
==>match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8217	8389	
==>match->{abort} = 1;
        return $match;
    };
};

sub fail { 
    return abort( 
        sub {
            return { bool => 0 };
        } 
    );
};

# experimental!
su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	353	473	
==>,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "clas <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	353	473	
==>,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "clas <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33930	34046	
==>has the same heading and
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38480	38596	
==>has the same heading and
whose body contains all of the tuples that are in the invocant Relation but
that aren't in C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5948	6083	
==>alue;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5936	6071	
==>alue;

    return call_constant( $value, $_[1] );
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17159	17272	
==>) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17316	17429	
==>) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng(Re),Fx,F1,Bx,B1, <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	701	812	
==>erl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6_meta_CODE
       p6_initialize_pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4257	4394	
==>";
  }

  sub visual {
    my $self = shift;
    join "", $self->raw, map($_->visual, @{ $self->{data} }), "]";
  }

  sub raw {
    my $s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7196	7293	
==>ore concise

# a free variable instantiates into whatever it is combined with (except instantiated <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5933	6058	
==>objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::compile or Rule->compile? (assuming <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5729	5849	
==>objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::compile or Rule->compile? (assuming <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5223	5336	
==>.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5223	5336	
==>.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_o <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9989	10095	
==>es are
    automatically generated and show how much a given backend (normal
    Haskell runcore, <a
    hr <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22417	22517	
==>Tuple ("Tuple").

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15376	15495	
==>rn _emit( $n->{exp1} ) . $n->{op1}{op};
    }

    if ( $n->{op1}{op} eq 'ANGLE' ) {
        my $name = _emit( $n->{ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15347	15469	
==>ram {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

    return $param;
}

sub re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19055	19160	
==>= $value if $.($key);
    }
}

(method BUILD ((opaque $self:) (hash %params)) returns nil 
    ((%params k <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18360	18466	
==>andler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18360	18466	
==>andler>("loggedin", \&on_ready);

  # Connect and login
  $bot<connect>();
  $bot<login>();

  # Enter main <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4770	4918	
==>\\n   List      pre     gather  safe   (Code)\
\\n   List      pre     map     safe   (Code, List)\
\\n   List      pre     grep    safe   (Code, Lis <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2977	3091	
==>other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.str <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2977	3091	
==>other.stringify if $DEBUG;
    my $set = set($self.members, $other.members);
    say "Returning union of "~$set.str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14675	14771	
==>der
values are not folded.

The optional $eol parameter specifies the line ending sequence to
use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14675	14771	
==>der
values are not folded.

The optional $eol parameter specifies the line ending sequence to
use <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6816	6981	
==>(
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU le <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6873	7038	
==>(
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU le <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4536	4644	
==>_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4319	4422	
==>_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{prin <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3761	3882	
==>ues{name};
        $name =~ s/::/-/g;
        die "Error in name(): '$values{name}' should be '$name'!\n";
    }

    my $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15837	15944	
==>by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "Internal us <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20070	20177	
==>by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "Internal us <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9746	9881	
==>)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9746	9881	
==>)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub param returns Array is expor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8655	8751	
==>by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8655	8751	
==>by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO

L<Cipher::Stream>, L<Cipher: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14548	14655	
==>tes a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14548	14655	
==>tes a span.

Dies if `start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11892	12032	
==>git
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11886	12026	
==>git
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) {
        # X <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9904	10019	
==>for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9904	10019	
==>for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.width = $fixed_width;
    $self <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5780	5911	
==>le_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6629	6760	
==>le_code = main::emit_rule( $rule, '' );
            # print "macro: $prefix / $id \n";  #, Dumper($list);
            # print "macro <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	517	618	
==>types
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # eventually m <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1395	1500	
==>fill in... };
   subset complex'~$n~' of ValueType where { $^n ~~ Num and ...XXXfill in... };'
}
Clutter:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5215	5326	
==>_does = sub { exists $roles{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $_does);
};

# our class(Role), wh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41090	41185	
==>re, and provided sample usage and patch
code, that supports embedding of Template modules into t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41090	41185	
==>re, and provided sample usage and patch
code, that supports embedding of Template modules into t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3085	3215	
==>closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3269	3399	
==>closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $/<>           -- special variables can't be u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10443	10588	
==>]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10437	10582	
==>]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{rule};
    $program <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	301	421	
==>ires requires recommends bundles
};

sub Meta            { shift        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_T <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	36	166	
==>6;
use strict;
use vars qw( @ISA @EXPORT $VERSION );

BEGIN {
    $VERSION = '0.04';

    local $@;
    eval {
        require XSLo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4310	4439	
==>$item );
        my @r = map { $_ eq $item ? '' : substr($_,$len) } @rules[$i..$j];
        pop @r if $r[-1] eq '';
        #print <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3372	3480	
==>~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3372	3480	
==>~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($_)}, decode(@index)}
  }
}

#        1716151413121110 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3509	3656	
==>($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4358	4505	
==>($_);
        $s .= "$cmd $s1;\n"
            if $s1;
    }
    return $s . "$cmd \"\\n\";\n" 
        if $op eq 'say';
    return $s;
}
sub node::t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34755	34877	
==>or $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34755	34877	
==>or $translator2 .= new(
        set_names => ['Foo::L::'], member_names => ['Eng'] );

Note that a Translator object does n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7391	7497	
==>"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7391	7497	
==>"$chan\" by \"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2174	2306	
==>OST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2174	2306	
==>OST|HEAD)$/ {
        ./bad_request;
        return 0;
    }
    %*ENV<SERVER_PROTOCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6844	6957	
==>} > $$top{eqiv} )
  {
    goto oper_shift if ( (index $$top{opts}, "right" ) >=0 );
  }
  
  oper_reduce:
  push @ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3270	3411	
==>PNil"' {
        $ret = '';
    }	
    elsif $tree[0] eq '"PVar"' {
        $ret = emit_Variable( $tree[1][0][1] );
    }
    elsif $tree[0] e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7557	7690	
==>b files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->add_fi <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	915	1028	
==>**'~$n~' <= $^n <  2**'~$n~' };
   subset uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45184	45270	
==>->send('new');
$::Package->send('superclasses' => list->new($::Object));

$::Package->s <==
2	/Users/nnunley/pugs/util/package-osx.pl	11573	11693	
==>n" for @header;
    print REMOVER "    $_\n" for @files; 
    print REMOVER "$_\n" for @footer;

    close REMOVER;
    c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	1642	1759	
==>abc') for 1..20},
    fast_x10     => sub{$x->('abc')         for 1..200},
    P5regex_x100 => sub{ 'abc' =~ /[a|b]( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20806	20903	
==>ta DBMS natively, and be I<the> back-end which
I recommend above all others for production use.

M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20806	20903	
==>ta DBMS natively, and be I<the> back-end which
I recommend above all others for production use.

M <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11503	11641	
==>ie "Pipe::open is unidirectional" if all($r, $w);
        $r = Bool::True if none($r, $w);
        my ($in, $out, $err) =
            Pugs: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10906	11001	
==>.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which stor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10906	11001	
==>.

=head2 The Rosetta::Model::Document Class

A Document object is a simple container which stor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9423	9571	
==>and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code d <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9423	9571	
==>and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $text;
}

# Divide a Perl module into blocks. This code d <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18590	18721	
==>version,1.0*$arg);
            }
            when any(<X D U O>) {
                $str ~= uc Pugs::Internals::sprintf(lc($conversio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2148	2255	
==>or {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and Bl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10328	10449	
==>rom coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. G <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10328	10449	
==>rom coroutines or subs.

= CONSTRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. G <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	364	467	
==>ers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed simi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	364	467	
==>ers, including 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed simi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6456	6559	
==>ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6456	6559	
==>ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: *@siblings) returns T <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14362	14462	
==>self.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14362	14462	
==>self.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fields as a formatted MIME h <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6555	6664	
==>rns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6555	6664	
==>rns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot add siblings to a ROOT tree <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1373	1475	
==>ound at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<do <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1373	1475	
==>ound at
F<docs/quickref/README>.

=head2 Talks

There're various talks about Perl 6 and/or Pugs in F<do <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6166	6301	
==>-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rule_finis <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5969	6096	
==>-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rule_finis <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2642	2757	
==>ntersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2642	2757	
==>ntersection( $_ ) };
    return @span;
}

method next ($self: $x is copy ) {
    $x = $x + $.density if defined $.de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6176	6300	
==>);



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low level operators

  # Domain-specific <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5965	6085	
==>);

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low level operators
  # Domain-specific <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2	109	
==>To Do:
#
# - Make preface part of parsed code, since it might contain `package`
#   statements or other scop <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2	109	
==>To Do:
#
# - Make preface part of parsed code, since it might contain `package`
#   statements or other scop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2264	2366	
==>$<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2264	2366	
==>$<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12957	13052	
==>ge are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as argu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12957	13052	
==>ge are replaced. Unrecognized
entities are left alone.

If multiple strings are provided as argu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	280	379	
==>:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!fil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	280	379	
==>:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Void { $!fil <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6397	6511	
==>{
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6397	6511	
==>{
    # TODO - reorder these rules or move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	286	392	
==>h lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnIn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	286	392	
==>h lets your bot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnIn <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	295	407	
==>the defining macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	295	407	
==>the defining macros, for each of various class hierarchies,
   in others.  But we cant do that yet.

   And since <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	8	102	
==>rldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	8	102	
==>rldoc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3008	3160	
==>turn $program;
}
sub node::block {
    return "\n    {\n" . emit($_[0]) . "\n    }\n";
}
sub node::sub_defin {
    my $id =    get_str( $_[0], '$<ident>' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15386	15484	
==>e must be a subref that tests the first argument
# for success, or returns the definition of succes <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3095	3231	
==>elf.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3095	3231	
==>elf.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location;
    
    for %extra.kv -> <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13550	13647	
==>base queries, may occur much later than expected.

It may enter an infinite loop if the formula ca <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13550	13647	
==>base queries, may occur much later than expected.

It may enter an infinite loop if the formula ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19075	19169	
==>g>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic fro <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19075	19169	
==>g>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
traffic fro <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2925	3029	
==>irit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tr <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2925	3029	
==>irit of the
dialect", if the original form is not available or has been discarded.

=head1 SEE ALSO

L<Tr <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6110	6222	
==>to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6500	6612	
==>to @array[$i], see t/operators/binding/arrays.t.
            @array.delete($i);
            @array[$i] = @array[$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	14	101	
==>r::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	145	232	
==>r::Perl6;
use base 'Pugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
u <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1669	1772	
==>","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

mu <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1669	1772	
==>","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

mu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2363	2500	
==>ts return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        tr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2363	2500	
==>ts return on an empty line to quit the program
#        last INPUT_LINE
        last
            if $user_input eq $EMPTY_STR;

        tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20512	20620	
==>});

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTR <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16933	17041	
==>});

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTR <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	693	952	
==>'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	693	952	
==>'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that command.],
);

###########################################################################
###########################################################################

module Rosetta::Shell::L::en-0.1.1 { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18505	18598	
==>ld Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18505	18598	
==>ld Nodes) to the one you first invoked export_as_hash() on.

Specifically, export_as_hash() re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	537	641	
==>ash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is inte <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	537	641	
==>ash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is inte <==
2	/Users/nnunley/pugs/util/testgraph.pl	950	1055	
==>ile.html

Generates an HTML summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HT <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14974	15075	
==>e parameter with the type to the left of the arrow in the function's type,
	# this causes the type var <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2156	2284	
==>, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2156	2284	
==>, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) } <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2101	2230	
==>s{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can' <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2101	2230	
==>s{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      or die "Can' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10489	10585	
==>n use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10489	10585	
==>n use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($field <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6496	6596	
==>, 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6496	6596	
==>, 'CxtSlurpy' , 'xType' ,'Type';

node_a 'Type', 'MkType',
  'xTypeName', 'String';
node_a2 'Type', ' <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1282	1404	
==>nshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	842	964	
==>nshift, as they are prereqs for THIS dependency, so they
        ### must be installed first
        unshift @rv, _recurse_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8180	8334	
==>$match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &conti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8180	8334	
==>$match.marks;
        $p.parse()($match.clone( 
                       marks => { %$marks, $name => $match.backtrack }),
                    -> $m { &conti <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11534	11651	
==>SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sourc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15011	15128	
==>SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sourc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8443	8553	
==>UBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8443	8553	
==>UBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4635	4750	
==>t_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we need all th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4635	4750	
==>t_process) = @_;

    # Read original module source code instead of taking from filter,
    # because we need all th <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1168	1263	
==>, only an abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS

=head2 Base <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	836	929	
==>calization of Rosetta::Engine::Example for English

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	836	929	
==>calization of Rosetta::Engine::Example for English

=head1 VERSION

This document describes Ro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11534	11652	
==>~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11534	11652	
==>~ rx:P5/^ERROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3573	3719	
==>h( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3573	3719	
==>h( $_[0], $m );                
    }
    return \@r;
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match - Match object

=head1 SYNOPSIS

    use P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8199	8324	
==>k = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8199	8324	
==>k = shift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7136	7233	
==>ume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7136	7233	
==>ume_def (Str $meth!, Str $arg!, $val!) {
    $?SELF!_die_with_msg( 'LKT_ARG_NO_EXP_TYPE', { 'METH' <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6786	6894	
==>).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6026	6108	
==>x1 = def_stmt_prim('bs_ws_decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}(?{ &::hl <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1458	1573	
==>_make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1458	1573	
==>_make_request( "HEAD", $url );
  my $hdl = _send_request( $host, $port, $req );

  my $head = slurp $hdl;

  # strip <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	810	912	
==>s_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	810	912	
==>s_path -V` or die "Pugs not installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3225	3377	
==>ay {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3225	3377	
==>ay {
      push @new, $val;
    } else {
      push @new, *@$val;
    }
    %!headers{$field} = @new > 1 ?? \@new !! @new[0];
  }

  return @old;
}

my m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1130	1250	
==>t
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "I <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1130	1250	
==>t
    "Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "I <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6286	6384	
==>t whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6286	6384	
==>t whitespace in some situations. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8659	8788	
==>xt->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8659	8788	
==>xt->[CLASSES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10771	10903	
==>e: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10771	10903	
==>e: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	898	1055	
==>0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    ret <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	898	1055	
==>0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $sum -= $delta;
        }
    }
    
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15329	15430	
==>t  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15387	15488	
==>t  $expected, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc? <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2017	2141	
==>f $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2017	2141	
==>f $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density => $.density );
}

method stringify () <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9140	9334	
==>->{'next'},
                    max         => $results{max},
                    failed      => \@failed,
                    bonus       => $results{bonus},
                    skipped     => $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4214	4316	
==>y $Result2 = GetBase($V);
    raise ReferenceError if $Result2 ~~ JSX::null;
    my $Result4 = $Result2 <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	894	1035	
==>$y * $x) }
            when '/' { @stack.push(int($y / $x)) }
            default  { die "Invalid token:\"$tok\"\n" }
        }
    }

    @st <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8523	8648	
==>object(anyof_class => graph => $neg, $how);
  });

  # lower POSIX class
  $self->add_handler('POSIX_lower' => sub {
    my ($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	57	159	
==>ION = '0.06';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

use base 'Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33270	33378	
==>until a match for that message is found.  Since a
program or library may wish to override the user text of an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33270	33378	
==>until a match for that message is found.  Since a
program or library may wish to override the user text of an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4431	4622	
==>// "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4431	4622	
==>// "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $content_type content!"
                    if @new > 1;
            } elsif <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2172	2274	
==>$two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2172	2274	
==>$two);
}
multi sub *infix:«⊉» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12292	12403	
==>) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12292	12403	
==>) ?(.*)$/) {
        $self<handle_command>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13302	13463	
==>noop);
          FAIL() if not FAILED($v);
        }
        TAILCALL(&$c,$noop);
      };
    } else {
      sub {
        my $c = $_[0];
        FAIL() if &Rege <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16641	16760	
==>e "FAILED--$tot->{tests} test $blurb could be run, ".
            "alas--no output ever seen\n";
    } else {
        $p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	373	510	
==>y $class = shift;
		bless [@_], $class;
	}

	sub str { map { "$_" } @{ $_[0] } }

	sub fmap {
	my $self = shift;
	my $f = shift;
		(ref $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4957	5076	
==>e $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8434	8553	
==>e $attrs!) returns Relation {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1246	1358	
==>spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1246	1358	
==>spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TODO - write t/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20116	20214	
==>me, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authoriz <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20116	20214	
==>me, $password);

The method will croak if the $uname contains a colon ':'.

=item $h.proxy_authoriz <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6203	6312	
==>c_candidate = qq/${ghc_dir}${slash}bin${slash}ghc.exe/;
                if ($ghc_version = $test_ghc_ver->($gh <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1110	1220	
==>{
      printf STDERR "%sgood%s.\n", BOLD . GREEN, RESET;
    } else {
      printf STDERR "%sfailed%s.\n", BOL <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31789	31886	
==>is object (for quantifiers).

=item neg

Whether this object is negated (like a look-ahead or a ch <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10862	10966	
==>Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10862	10966	
==>Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37468	37556	
==>lias named C<intersect>.

=item C<intersection (Relation::Example *@others) returns Relat <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8682	8817	
==>[0];
        FAIL() if !(substr($X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAILCALL(&$c,$noop);
      };
    }
  }
} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8105	8209	
==>$fun_name = do{
	    my $n=$self;
	    for my $k qw(pFun pLV pVarName){
		if(exists $n->{$k}){$n=$n->{$k} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14556	14679	
==>ult;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14556	14679	
==>ult;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16704	16803	
==>new($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub layout {
    our $inde <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	375	474	
==>ad1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stored in this
t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	375	474	
==>ad1 DESCRIPTION

An `element'.

All meta-information provided by dialects should be stored in this
t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	74	164	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	74	164	
==>, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6385	6492	
==>)) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6385	6492	
==>)) 
        || die "Insufficient Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_ch <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18272	18370	
==>der time figuring out the
best way to deal with it.  But for displaying to users, easy messages are <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18272	18370	
==>der time figuring out the
best way to deal with it.  But for displaying to users, easy messages are <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1240	1335	
==>----------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
befor <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1080	1175	
==>----------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
befor <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1584	1680	
==>me>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1584	1680	
==>me>\; <ws> [<rule>|<token>|<regex>]* { return "package " . $<grammar_name>() . ";\nuse Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3040	3134	
==>params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If call <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3040	3134	
==>params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If call <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	237	346	
==>umper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	237	346	
==>umper;
$Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	591	698	
==>re::ERROR;
	$self->annotator_class->new;
}

sub annotate {
	my $self = shift;
	$self->annotator->annotate($s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22288	22390	
==>utines or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
most o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22288	22390	
==>utines or export such.

The usual way that Rosetta indicates a failure is to throw an exception;
most o <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21946	22049	
==>and in what order they should be consulted.  When
Locale::KeyedText is told to fetch the user message fo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21946	22049	
==>and in what order they should be consulted.  When
Locale::KeyedText is told to fetch the user message fo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1581	1686	
==>umbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex dec <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1581	1686	
==>umbers

# base 10

regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex dec <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9696	9812	
==>ntation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
distinction of being t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9754	9870	
==>ntation');

= DESCRIPTION

This module was built to facilitate the Pugs test suite. It has the
distinction of being t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14221	14366	
==>= $inst->write;

=cut

sub write {
    my $self = shift;
    my $conf = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3421	3616	
==>h';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3421	3616	
==>h';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( ! $matches[0]{bool} ) {
                return unless def <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5931	6033	
==>e $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5931	6033	
==>e $event<object>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Pod.pm	315	512	
==>q(
                #{ print "pod - $_[0]\n" }
                .* \n \= end .*? \n
            
            {
                return { pod_block => $() ,}
            }
    ) );
    __PACKAGE__->reco <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15106	15210	
==>l) = $extra ? split(/(?:[^\\]|^)#/, $extra) : ();
        (my $type, $test->{reason})  = $control ? $cont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1584	1686	
==>lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1584	1686	
==>lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key) = $_.v <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3886	3981	
==>$buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3886	3981	
==>$buffer is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	487	598	
==>sults in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# w <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	487	598	
==>sults in a error
    %!members ?? %!members.values !! ();
}

# NOTE:
# this is a hack to make this work well
# w <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2081	2198	
==>$depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencie <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3450	3563	
==>$depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified dependencie <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22385	22492	
==>ified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22385	22492	
==>ified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>quitE<gt>("reason")> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12254	12377	
==>sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2	100	
==>pX/Common/p6rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-reg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2	98	
==>pX/Common/p6rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-reg <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31006	31104	
==>set. For maximum flexibility in their use, the full name of a module
consists of the two parts conc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31006	31104	
==>set. For maximum flexibility in their use, the full name of a module
consists of the two parts conc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1168	1292	
==>merge {
    my ($self) = @_;
    return;
  }
}


{
  # \A ^ \B \b \G \Z \z $
  package Regexp::Parser::anchor;
  push @ISA, q <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4726	4834	
==>img will be mounted to --initrd-mnt in order to copy files to it.
  --cdroot=$cdroot
    --cdroot is the dire <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26570	26665	
==>pty or equal to
the invocant Relation's header, in which case it returns the identity-one
Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31122	31217	
==>pty or equal to
the invocant Relation's header, in which case it returns the identity-one
Relati <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1570	1695	
==>f its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1570	1695	
==>f its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'.],

    'LKT_ARG_HASH_VAL_UNDEF'
        => q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7497	7633	
==>nt "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shift;

    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7246	7375	
==>nt "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shift;
    my $ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2447	2568	
==>ee[1];  # keys: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $global = traverse <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1921	2023	
==>->new(Stub->new($_)) } @_ } # subs that do nothing but have distinct digests

my $env = Env->new(
    s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2938	3054	
==>{
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_c <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2938	3054	
==>{
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6003	6095	
==>P::Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6003	6095	
==>P::Headers>
object, depending on when C<want> gets implemented. Currently, the headers
are re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4764	4904	
==>.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4764	4904	
==>.
The data may be either a string or an array of bytes; the array of bytes will 
be slightly faster.

=item C<finish>

    push @output, $cip <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4986	5116	
==>erators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4986	5116	
==>erators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3318	3455	
==>& !defined $expected;
    }
    else {
        $pass = $got eq $expected;
    }

    unless ($pass) {
	unshift(@mess, "#      got "._q($go <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5378	5477	
==>en> [<hexdigit> | ; ]+ <bracket_close>
      ] }
rule bracket_open  { <[\{\(\[\<\>\/\!\=\?\#\x[abd]\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10628	10725	
==>g on their types, that their attributes have reasonable values, and
that attributes or Nodes are n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10628	10725	
==>g on their types, that their attributes have reasonable values, and
that attributes or Nodes are n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2135	2291	
==><zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # o <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2135	2291	
==><zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5492	5626	
==>ype' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5492	5626	
==>ype' ,'Type';
node_a 'TCxt',                 'TTailCall',
  'xCtx' ,'TCxt';

node_h 'TEnv',                 'MkTEnv', 
  'tLexDepth' ,' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4971	5177	
==>selves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4971	5177	
==>selves
                        if (!$set_ver++) {
                            if ($version >= 1) {
                                take "\$Version=$version";
                            } elsif (!(.hide_cook <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2112	2209	
==>self->version;
    $self->perl_version_from($file) unless $self->perl_version;

    # The remainin <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2902	3008	
==>IL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2902	3008	
==>IL::PIL {
    has Perl::Compiler::PIL::Util::Pad $.pad;
    has Str $.value;
    method vtype () { 'LValue' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5619	5721	
==>k;
}


/*
 * regexp struct setup
 */

static void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* cal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16179	16280	
==>tical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gra <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16237	16338	
==>tical.com>

Yuval Kogman <nothingmuch@woobling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gra <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	704	893	
==>ey = sub {
        my $self = shift;
        return $self->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10533	10669	
==>ral ) );
    return "$_[0] constant( \"$name\" )\n";
}
sub node::variable {
    my $name = match::str( $_[0] );
    # print "var name: ", <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12587	12689	
==>e if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12587	12689	
==>e if the recurrence is an empty set.

- `is_infinite()`

Returns true if the recurrence is infinite.

- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	7214	7337	
==>arams::Check->last_error), return;
    
    ### set the mode to +w for a file and +wx for a dir
    my $x       = File::stat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5005	5116	
==>nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5005	5116	
==>nodes.push( $?SELF );
    if ($parent_node.defined) {
        $!parent_node = $parent_node;
        $parent_node <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14574	14697	
==>iner();
        };
        $c = WALKCLASS(&dispatcher);    
    }
    return opaque.new(\$class, %attrs)
}

(method CREATE ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18347	18439	
==>opriate measures
such as system-managed locks so that resource corruption or application
fail <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18347	18439	
==>opriate measures
such as system-managed locks so that resource corruption or application
fail <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3416	3556	
==>xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3416	3556	
==>xx\xx
    $path ~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3682	3834	
==>the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3694	3846	
==>the same as $/()
Submatches:
    $/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5421	5665	
==>"$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7183	7427	
==>"$current")) send ("has_method" ($e get ("$label"))))) 
                            and (block new 
                                    (($e)
                                     {
                                         ($e set ("$method" ((($ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1363	1483	
==>= ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        retur <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1363	1483	
==>= ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.pm$/;
        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8715	8880	
==>X::str,$X::pos,$len) eq $s);
        $X::pos += $len;
        TAILCALL(&$c,$noop);
      };
    }
  }
}
{
  package Regexp::Parser::quant;

  # Needed for regexp_try. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19630	19725	
==>compiler. The end of an inner block
effectively acts as a C<no> statement for any compile sectio <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19630	19725	
==>compiler. The end of an inner block
effectively acts as a C<no> statement for any compile sectio <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1370	1493	
==>P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1370	1493	
==>P5:g/%([0-9A-Fa-f]{2})/{ chr(:16($0)) }/;
        
        return $str;
    }
    
    multi sub uri_unescape (*@str is copy <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4956	5096	
==>number'), $description);            
        },
        'status' => sub {
            my $status_sub  = $::TestBuilder->FETCH('::Test')->FETC <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6787	6909	
==>,
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6787	6909	
==>,
            [ 'scalar_data_type_value', { 'value' => 'F' } ],
        ] ]
    );
    my Rosetta::Model::Node $rdtd_person <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17457	17579	
==>Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CH <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17457	17579	
==>Node $dt_sex .= new(
        node_type   => 'data_sub_type',
        attributes  => {
            'predef_base_type' => 'CH <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	8658	8779	
==>mber
  {
      return +@:results + 1;
  }
  
  method plan ( Str $explanation?, Int $tests? )
  {
      fail "Plan already <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1276	1377	
==>ency to crack the cipher, and even if the message is 
contrived to hide the letter frequency, the keys <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1276	1377	
==>ency to crack the cipher, and even if the message is 
contrived to hide the letter frequency, the keys <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	428	520	
==>tity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	428	520	
==>tity-Headers

my @general_headers = <
 Cache-Control Connection Date Pragma Trailer Transfer- <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1544	1759	
==>($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $esc <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1544	1759	
==>($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~= $char;
            $esc <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2576	2681	
==>my $obj = $self->load($method) or return;

    unshift @_, $obj;
    goto &{$obj->can($method)};
}

sub lo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7795	7908	
==>ld is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traver <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7795	7908	
==>ld is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traverse_iter($self: Str $traver <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3612	3715	
==>ove



=head1 Modifying the compiler



Let's say you have a new Grammar and Emitter for your own langua <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3484	3583	
==>ove

=head1 Modifying the compiler

Let's say you have a new Grammar and Emitter for your own langua <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1881	2009	
==>akefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    m <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1881	2009	
==>akefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1815	1915	
==>and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_ <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1815	1915	
==>and C<burst size> in items.

=cut

sub new_bucket(Num $rate, Int $burst_size) is export {
  my $last_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12155	12256	
==>n checks with ref() since we do not yet have
object support. Once object support is created, we will a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12213	12314	
==>n checks with ref() since we do not yet have
object support. Once object support is created, we will a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1425	1539	
==>sity> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( % <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1425	1539	
==>sity> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<span> );

    if defined( % <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5151	5253	
==>e();

	$<op> := (open) <p6ws> <varscalar> <p6ws>? \;
		{ return { _open => $(), } }
RULE
*{'_print_with <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5581	5698	
==>export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attrib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5581	5698	
==>export_as_hash () returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attrib <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7404	7538	
==>ther );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10881	11015	
==>ther );
}

multi method exclusion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3911	4093	
==>{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3911	4093	
==>{^\.\.};                                       # skip relative paths
    return $path unless $path ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	870	1102	
==>se {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    e <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	870	1102	
==>se {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle properties
                    e <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11132	11282	
==>();
      my $from = $X::pos;
      my $close = sub {
        my $c0 = $_[0];
        my $to = $X::pos;
        $m->set(1,substr($X::str,$from,$to-$fro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26366	26467	
==>ed on input and output, any
variable values which are references will be passed by reference, so you
m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26366	26467	
==>ed on input and output, any
variable values which are references will be passed by reference, so you
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23930	24055	
==>bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion',
      type => 'ifthen',
      data => [ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14495	14619	
==>ext);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14495	14619	
==>ext);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $class = shift;
    my $text = <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1671	1788	
==>$status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1671	1788	
==>$status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?,
    Str :$target?,
    :$expires?,
    Bool :$nph <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4676	4775	
==>t;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!head <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8153	8252	
==>t;

method project_all_but (Set of Str $attrs!) returns Relation {
    return $?SELF.project( $!head <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4448	4590	
==>F->$status_sub();
            $status->{"skip"} = 1;
            return $status;            
        }
    }
});

$::TestBuilder->FETCH('::Test <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2224	2330	
==>inite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2224	2330	
==>inite ()   returns bool   { return $.set.is_infinite }
method start ()         returns Object { return $.se <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	666	873	
==>%opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @sk <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	666	873	
==>%opts{$0} = ~$1;
                    } else {
                        %opts{$0} = @args.shift err warn "missing option for -$0";
                    }
                }
            }
            default { @sk <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	219	327	
==>s file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	219	327	
==>s file:
my Str %TEXT_STRINGS is readonly = (
    # This group of strings is generic and can be used by any pa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10100	10196	
==>ment can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10100	10196	
==>ment can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `is_empty( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	808	984	
==>n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	808	984	
==>n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub {\n" . 
        "    my \$grammar = shift;\n" .
        "    my \$tree;\n" . <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8527	8625	
==>lation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

=ove <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8527	8625	
==>lation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier Events

=ove <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	332	439	
==>rence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are av <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	332	439	
==>rence of datetimes.

= CONSTRUCTORS

- `new( ... )`

  # XXX

= OBJECT METHODS

The following methods are av <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2895	3024	
==>ith_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2895	3024	
==>ith_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $meth, 'ARG' => $arg <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14080	14213	
==>$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14080	14213	
==>$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA-F]{40})\n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	698	816	
==>CH('::Test')->FETCH('::TODO')->new(
                '$.description' => $params{'$.description'},
                '$.pas <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26045	26140	
==>ermine if they are being executed through the harness
or by any other means.

=item C<HARNESS_CO <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5640	5768	
==>p;
    close META;

    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $sel <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24864	24989	
==>ts fast rejection
 * of lines that cannot possibly match.  The regmust tests are costly enough
 * that pregcomp() supplies a r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2754	2888	
==>rmal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # tr <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2754	2888	
==>rmal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39622	39752	
==>s of what pass it's on.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1884	1981	
==>ncluding

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex onl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1812	1907	
==>ncluding
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex onl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	53	156	
==>ilable through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	111	214	
==>ilable through the environment
$Test::ALWAYS_CALLER = %*ENV<TEST_ALWAYS_CALLER>;

### GLOBALS

# globals <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1055	1200	
==>if we do match, then store the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we h <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1055	1200	
==>if we do match, then store the tree in our results
        @results.push($current_tree);
    }

    loop {
        # if we have no more @path we h <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7320	7490	
==>e );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### chec <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	621	791	
==>e );

        my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### chec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4482	4600	
==>al ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  }) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4482	4600	
==>al ~~ s:g/\n/$ending/;             # substitute with requested line ending
    }
    @result.push("$field: $val");
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21202	21290	
==>nnel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21202	21290	
==>nnel names are normalized.

=head2 C<$botE<lt>add_handlerE<gt>("001", -E<gt> $event {...} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	314	422	
==>t

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	314	422	
==>t

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	572	675	
==>self = shift;
    my $node = shift;

	return $node unless Scalar::Util::blessed($node);

	$node->isa("Bl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12297	12414	
==>CE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4940	5057	
==>CE, 'p') if ${&Rx} !~ m{ \G ([^\}]*) \} }xgc;
      $name = $1;
    }

    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19111	19202	
==>E0,E1) :-
  % match_captures_nest(E0,Ex0),
  % rm(Re,F0,F1,B0,B1,Ex0,Ex),
  rm(Re,F0,F1,B0,B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9049	9162	
==>ODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9037	9150	
==>ODO - repeated captures create an Array

    my($try_match, $gen_match, $post_match);
    if ( $flat ) {
        $ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9266	9375	
==>(.*)__$/PugsBuild::Config->lookup($1)/e;
        
        die "don't know where this option belongs: $_" unles <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2069	2175	
==>G

sub stringify {
	my $dag = shift;

	my @free;

	my $tree = $dag->splat(\@free); # Attribute grammars can <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	30	127	
==>am is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array {. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	30	127	
==>am is Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array {. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1068	1178	
==>don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1068	1178	
==>don't moan
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46990	47140	
==>(str->new('{}'))
                  ->and(block->new($e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:nam <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4229	4331	
==>ll
be reduced to 10 (as bound by the Param object).

Then the thunk for + will be reduced, with 1 and 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9587	9704	
==>s the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9587	9704	
==>s the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12849	12949	
==>ing with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in the Lati <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12849	12949	
==>ing with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in the Lati <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17741	17836	
==>invoke/execute Rosetta D statements and routines
within the virtual machine, input data to it, a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17741	17836	
==>invoke/execute Rosetta D statements and routines
within the virtual machine, input data to it, a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12176	12279	
==>od join (Relation $other!) returns Relation {

    # First look for trivial cases that are more efficien <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15653	15756	
==>od join (Relation $other!) returns Relation {

    # First look for trivial cases that are more efficien <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11772	11894	
==>P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4415	4537	
==>P') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S->error(RPe_RBRACE, 'P') if ${&Rx} !~ <==
2	/Users/nnunley/pugs/util/importgraph.pl	102	245	
==>rent directory
# it expects to run from the top pugs directory with src present
# arrows point from importer to importee

use strict;
use warnin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27526	27623	
==>od
C<FLAG_u>.  This doesn't mean you can use them on C<qr//>, but rather
that you can write C<(?u: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4618	4749	
==>ized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nick, make sure we've registered them as people wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4618	4749	
==>ized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nick, make sure we've registered them as people wh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3255	3345	
==>ulesInP5::P6Rule;
use base qw/Class::Accessor P6RulesInP5::Match/;
use strict;
use warnings <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5677	5762	
==>[\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\]> }
rule metacharacter { <[\{\}\[\]\(\)\^\$\.\|\*\+\?\ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	431	551	
==>etta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	431	551	
==>etta::L::en-0.210.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38497	38614	
==>ts corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38497	38614	
==>ts corresponding variable name that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1443	1573	
==>tr $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1443	1573	
==>tr $data) {
        $data = uri_unescape($data);
        $data .= trans('+' => ' ');
        
        @!keywords = $data.split(/\s+ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4657	4776	
==>c and list operations ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4657	4776	
==>c and list operations ----------------

method grep ($set: Code $select ) {
    return $set.new( 
        closure_next = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4839	4934	
==>ash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_no <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4839	4934	
==>ash( 'new', ':%attributes?', %attributes );
    $?SELF!_assert_arg_ch_nd_aoh( 'new', ':@child_no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2042	2169	
==>nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2182	2309	
==>nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - in <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1210	1318	
==>} may contain args; try to find out the program part
    while (@chunks) {
        return $self->can_run("@ch <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1146	1245	
==>} may contain args; try to find out the program part
	while (@chunks) {
		return $self->can_run("@ch <==
2	/Users/nnunley/pugs/util/package-osx.pl	8899	9009	
==>t$dirs");
        print "Copied $orig to $dest$change_files{$orig}\n";
    }
}

sub make_symlinks {
    my ($de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	446	561	
==>om repository metadata
    my $path = basename($archive);
    $path    =~ s/$Ext$//;

    ### check if it is already <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9869	10022	
==>ds( $$entry );
            } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
                while (my($k,$v) = each %$entry) {
                    my ($ver, <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3845	3965	
==>reamble};
}

sub postamble {
    my ($self, $text) = @_;

    $self->{postamble} ||= $self->admin->postamble;
    $self-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5205	5324	
==>reamble};
}

sub postamble {
    my ($self, $text) = @_;
    $self->{postamble} ||= $self->admin->postamble;
    $self-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10281	10400	
==>an('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10281	10400	
==>an('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12296	12426	
==>rl .= q{ < teststdin };
	}
	else {
	    $runperl = qq{$^X -e 'print qq(} .
		$args{stdin} . q{)' | } . $runperl;
	}
    }
    if (d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1951	2074	
==>st->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1951	2074	
==>st->{tail} . "'\n"
        if $final_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7371	7520	
==>ntry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /an <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	672	821	
==>ntry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /an <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	917	1033	
==>hs to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	917	1033	
==>hs to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2626	2734	
==>$thispugs, '--output', $ppc_yml);
    }
}

sub gzip_file {
    my ($in, $out) = @_;
    require Compress::Zli <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	792	914	
==>de, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_lin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	792	914	
==>de, $message) = $status_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_lin <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1395	1681	
==>@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($st <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1395	1681	
==>@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($st <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5602	5703	
==>returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5602	5703	
==>returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
method st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5655	5794	
==>le to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$su <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6119	6258	
==>le to short circuit, as there are
                    ### no available modules on that check
                    eval { _parse_depends( [$su <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6024	6125	
==>Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6024	6125	
==>Arguments : cannot get siblings to a ROOT tree";
    $self.parent().get_child($index);
}

method  get_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20332	20454	
==>);
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(R <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16753	16875	
==>);
  });

  # comment
  $self->add_handler('(?#' => sub {
    my ($S) = @_;
    ${&Rx} =~ m{ \G [^)]* }xgc;
    $S->error(R <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	485	606	
==>k>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	485	606	
==>k>;
    my $widget = $match[0];
    my %parameters;
    %parameters{'_content'} = $match[3] if $match[3];
    if defined $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4688	4845	
==>returns opaque
    (&dispatcher do)

=cut

$::ENV->create('WALKCLASS' => closure->new(
        $::ENV,
        closure::signature->new(
            params  => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10535	10635	
==>gnoring it.

The iterator will return undef when it has reached the end of the tree;
it will then res <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17730	17847	
==>st;

sub compute {
    my $class = shift;
    my $thunk = shift;

    use Data::Structure::Util qw/signature/;;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4725	5008	
==>t =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size }, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4725	5008	
==>t =>  sub {
                                my $r = &{$start}();
                                $size = 0 unless defined $r;
                                return $r;
                            },
                    cend =>    sub {},
                    celems =>  sub { $size }, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12809	12921	
==>entList> <','> <Elision>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <','>
    | <Elision <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20351	20462	
==>$radix, Str $string --> Num)
{ ... } # XXX - oh that is non-trivial.


package Time::Local {}
# gmtime 

# local <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20012	20121	
==>ave the user language data in separate
files (usually XML files I think) from the main program binary.  Each u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20012	20121	
==>ave the user language data in separate
files (usually XML files I think) from the main program binary.  Each u <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13314	13425	
==>et2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13314	13425	
==>et2)>

=head2 C<$set1 ∖ $set2>

=head2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8550	8645	
==>plication.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecurit <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8550	8645	
==>plication.>

B<I<The authors and copyright holders DO NOT take responsibility for any 
insecurit <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5960	6078	
==>rns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5960	6078	
==>rns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT tree";
    $s <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1167	1350	
==>ow] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?S <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1167	1350	
==>ow] { $meth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?S <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6129	6262	
==>$x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6129	6262	
==>$x > $.end;
    return $x      if   $.start_is_open && $x > $.start;
    return $x      if ! $.start_is_open && $x >= $.start;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1459	1681	
==>r', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1459	1681	
==>r', $size);
                        interpolate($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4638	4739	
==>--------- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4638	4739	
==>--------- arithmetic and list operations ----------------

method grep ($set: Code $select ) {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6454	6573	
==>STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6454	6573	
==>STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	979	1078	
==>er C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the modul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	979	1078	
==>er C<< :mode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the modul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12669	12820	
==>$uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this bin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12669	12820	
==>$uri.path;  # URI::_generic method
        }
        
        $path.chars || $path = "/";
        return $path;
    }
    
    # XXX how should this bin <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	118	231	
==>ew --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) { <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	118	231	
==>ew --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2052	2185	
==>y manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2052	2185	
==>y manipulation of query strings

=head1 SYNOPSIS

    require HTTP::Query;
    
    my $q = HTTP::Query.new();
    
    $q.parse_param <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	191	297	
==>E => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=he <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	191	297	
==>E => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dumper;

@ISA     = 'Inline';
$VERSION = 0.01;

=he <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3791	3887	
==>Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3791	3887	
==>Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	129	252	
==>ased) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node defini <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	129	252	
==>ased) nodes
where I don't yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node defini <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	229	373	
==>push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output ret <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	229	373	
==>push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2461	2590	
==>ail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2367	2491	
==>ail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star { <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	139	242	
==>ils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6 <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	139	242	
==>ils::MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6 <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	12	117	
==>.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) retu <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	12	117	
==>.0.1;
use v6;

our @ORIG_INC = @*INC;  # take a copy of the original

sub import (Str $pkg: *@_paths) retu <==
2	/Users/nnunley/pugs/util/package-osx.pl	5459	5556	
==>Q::Capture.3pm
        /usr/local/man/man3/Perl6::FAQ::FUD.3
        /usr/local/man/man3/Perl6::FA <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	89	181	
==>e Perl6::Core::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Pe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4724	4871	
==>tch => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_conti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4724	4871	
==>tch => $m.match.clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_conti <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	446	553	
==>class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interfa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	355	462	
==>class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent interfa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4028	4131	
==>alue1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher object.  The opti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4028	4131	
==>alue1>, :opt2<value2>, :mode<enciphering>);

This class method constructs a new cipher object.  The opti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40098	40217	
==>ion, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40098	40217	
==>ion, in the file named "LGPL"; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	550	653	
==>Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	550	653	
==>Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-named rules are objects:

    use Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	19	114	
==>l::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	19	114	
==>l::Expr (":easy");

use Perl::Compiler::CodeGen::NameGen;

class Perl::Compiler::CodeGen::Perl5_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12841	12950	
==>ze)`.

The unit specifier is used for several things. 
For example, when iterating through the span range, the <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12841	12950	
==>ze)`.

The unit specifier is used for several things. 
For example, when iterating through the span range, the <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1025	1134	
==>t/plain\n\n";

  limit_rate();
  validate_params();
  add_smoke();
  clean_obsolete_smokes();

  print "ok";
} <==
2	/Users/nnunley/pugs/util/package-osx.pl	1538	1628	
==>erl5/site_perl/jspugs.pl /Library/Perl/5.8.6/jspugs.pl
        /usr/local/lib/perl5/site_pe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5111	5237	
==>return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5111	5237	
==>return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a = $. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1256	1514	
==>fer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1256	1514	
==>fer ~= "</UL>\n"
                }  
                when 'item' {
                    $buffer ~= "</LI>\n";
                }                
                when 'paragraph' {
                    $buffer ~= "</P>\n" 
                }     
                w <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	248	346	
==>ored as a possible
# bootstrap path for perl6.

# The perl5 regexp engine is unfortunately entangle <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	480	588	
==>content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text n <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	480	588	
==>content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - text n <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	509	662	
==>if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - N <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	509	662	
==>if you're
                     thinking of these as numbers, this will be one past the
                     last character matched.
    $.capture_num  - N <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6763	6954	
==>.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6763	6954	
==>.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13311	13417	
==>containing only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13311	13417	
==>containing only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1441	1628	
==>-> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex belo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1441	1628	
==>-> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex belo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6708	6915	
==>.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        m <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6708	6915	
==>.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $array: ) { 
        my %seen = ();
        m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	232	317	
==>--------------------------------------------------------------
## constructors

submet <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	232	317	
==>--------------------------------------------------------------
## constructors

submet <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3386	3520	
==>tch, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3386	3520	
==>tch, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified expressions are "parallelized <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1106	1224	
==>in both Package

and Code -- because it is both a namespace of symbols and has

a main body closure. 



the Package pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1055	1169	
==>in both Package
and Code -- because it is both a namespace of symbols and has
a main body closure. 

the Package pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	504	617	
==>ram );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	504	617	
==>ram );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSIS

Un-name <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8181	8274	
==>b { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2006	2099	
==>b { Grammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2007	2103	
==>ject matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2096	2192	
==>ject matched with C<:ratchet>.

=item * L<Pugs::Runtime::Grammar> represents a B<Grammar> class / <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13120	13222	
==>if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.pre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13120	13222	
==>if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) {
            $prh_create_tb_person.pre <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25798	25900	
==>= type::operator::nary->new(list => type::variable::free->new);
	is($type->stringify, "∀α. list α", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4596	4730	
==>",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4736	4870	
==>",\n" . 
        "  perl5 "    .  "=> q(" . _quot( $self->{perl5} )  . "), }, " . 
        "q(" . ref($self) . ")";
}

1;

__END__

=he <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1293	1406	
==>eturns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1293	1406	
==>eturns Object {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11145	11287	
==>%char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11145	11287	
==>%char_to_entity{$0}
                !! num_entity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5387	5522	
==>x;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils::MM_Unix'
        )->parse_abstrac <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5905	6019	
==>x;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils::MM_Unix' )
          ->parse_abstrac <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34711	34811	
==>on that has the
same heading as the invocant and whose body contains all of the tuples that
are in th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39261	39361	
==>on that has the
same heading as the invocant and whose body contains all of the tuples that
are in th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7742	7884	
==>ontent .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remain <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7742	7884	
==>ontent .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get here?!?";
}

# Analyze the remain <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1329	1425	
==>ath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJEC <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1329	1425	
==>ath($self->{API}{build_dir}) unless -d $self->{API}{build_dir};
    local *OBJECT;
    open(OBJEC <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2883	2997	
==>udes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2883	2997	
==>udes($_) });
}
method difference($self: Set $other) returns Set {
    set($self.members.grep:{ !$other.includes($_) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10104	10244	
==>$connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.aut <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10104	10244	
==>$connected;

      debug "Connecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.aut <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7457	7551	
==>west_mod_stamp = 100000; # ugly
-M "$lib6/$_" <= $newest_mod_stamp and $newest_mod_stamp = -M " <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4500	4615	
==>LValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pS <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4500	4615	
==>LValue' ,'Bool',
  'pBody'   ,'PIL_Stmts';

node_h 'PIL_Decl',             'PSub', 
  'pSubName'   ,'SubName',
  'pS <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8621	8733	
==>> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8621	8733	
==>> /
        # <http://lists.w3.org/Archives/Public/www-html/1997Mar/0003.html>.
        
        #$string ~~ s:P5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4816	5019	
==>modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4816	5019	
==>modified) * 0.10; # 10% since last-mod
                
                if ($h_exp < 60) {
                    return 60; # minimum
                } elsif ($h_exp > (24 * 3600)) {
                    # S <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	8067	8230	
==>S
        },
        force => {
            store   => \$force,
            default => undef
        }
    };

    check($tmpl, \%args) or error(Params::Check->last <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9986	10111	
==>y $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl5 open, it isn't very d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16701	16807	
==>ocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16701	16807	
==>ocks into Perl 5 (as soon as the C<no v6> line is seen), and
merge it with the Perl 5 blocks, saving the re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2312	2424	
==>= @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::F <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2312	2424	
==>= @tmp[0];
        }
    }
    return $self.new( spans => @res );
}

method intersection ($self: Set::Infinite::F <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	159	281	
==>e();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.impo <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	159	281	
==>e();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.impo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	26	122	
==>ext;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	26	122	
==>ext;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text> is the most common medium <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	619	734	
==>makemaker_args->{'PL_FILES'} ) {
        	$self->makemaker_args( PL_FILES => {} );
        }
        if ($args{inlin <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4688	4834	
==>e">, %pad<"paramContext">,   
            %pad<"paramDefault">,   # ???
        );
    }
    elsif $tree[0] eq '"PPos"' {
        my %pad = $tree[1 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13152	13323	
==>turn $?SELF!_semijoin( $other );
}

&matching ::= &semijoin;

###########################################################################

multi method product (Relation::E <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2678	2807	
==>>to_str->to_native . " got($arg) -> expected($param_type)"
                    if $param_type ne '';
        }
        $self->{env <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2168	2288	
==>}

    eval { File::Path::rmtree($args->{dir}) };

    if($@) {
        chomp($@);
        error(qq[Could not delete dire <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24776	24869	
==>1)  :- set_flag_i(E0,i,E1), !.
set_flag(E0,-i,E1) :- set_flag_i(E0,-,E1), !.
set_flag(E0,m,E1) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13490	13619	
==>ead1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13490	13619	
==>ead1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a translator.
        my Locale::KeyedT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5685	5801	
==>rn $S->object(vert => 1);
  });

  $self->add_handler('\w' => sub {
    my ($S, $cc) = @_;
    return $S->force_objec <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9810	9916	
==>tr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not_cclass .CCLASS_NUMERIC, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9730	9847	
==>ator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	# a -> list a -> list a
	cons => do {
		m <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7703	7867	
==>ew(
            Param->new('$n'),
            App->new(
                App->new(
                    Sym->new('&control_structure:<if>'),
                    App->n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	422	548	
==>lue) && 
     ($value == 1 || $value == 0))
        || confess "Bad bit value ($value)";    
    return $TRUE if $value;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12686	12801	
==>ar => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6161	6276	
==>ar => 'X') if $cc;
    return $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16949	17101	
==>efore_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13370	13522	
==>efore_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      elsif ($ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6041	6141	
==>>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6041	6141	
==>>\".";
    }

    %channels{~normalize($event<object>)}<users>{$event<from_nick>}++;
    %users{~norm <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3529	3655	
==>lti sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3529	3655	
==>lti sub *infix:<~~> ($member, Set $one) returns Bool {
    $one.includes($member);
}

# Subs to make operations on arrays
# E.g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38764	38874	
==>a new Relation::Example that has the
same heading as the invocant and whose body contains all of the tuples tha <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5915	6038	
==>dividual tests ran
    ok              Number of individual tests passed
    sub_skipped     Number of individual tests skip <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	411	518	
==>e ($value)";
    bless \$value => $class;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14935	15039	
==>s->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14935	15039	
==>s->pmc_fold($text);
    return qq{''' $digest\n};
}

# Fold a piece of code into a unique string.
sub pmc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5658	5783	
==>y $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9969	10094	
==>y $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1912	2036	
==>d location to the metadata
        ### location of .jib is in same dir as $meta
        ### XXX add other found data to the m <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3331	3450	
==>m::round_random ( Num $x ) {
    my $x_round;
    state $rand_up = 1;

    # randomly round .5 up or down
    given abs( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	194	298	
==>INGS is readonly = (
    'MYLIB_MYINV_NO_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8037	8133	
==>ub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1862	1958	
==>ub { Grammar::Perl6->assign_slurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assi <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	1019	1114	
==>PYRIGHT

Copyright 2006 by Audrey Tang E<lt>autrijus@autrijus.orgE<gt>.

The F<libpcre> code bun <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21339	21441	
==>yright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21339	21441	
==>yright 2005 Ingo Blechschmidt (port to Perl 6).

This library is free software; you can redistribute it <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	289	399	
==>ent - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `elem <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	289	399	
==>ent - element in a Perldoc::DOM tree

=head1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `elem <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1846	1943	
==>rce of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocaly <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1846	1943	
==>rce of working Perl 6 code is the
comprehensive test suite in the F<t/> directory.

=head2 Apocaly <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14609	14713	
==>s. The
following is a list of future features planned for this module.

- better error handling for cmp_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14667	14771	
==>s. The
following is a list of future features planned for this module.

- better error handling for cmp_o <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	540	656	
==>sHeader() {
    my $header = '';
    for(%Cookies.keys) {
        $header ~= "Set-Cookie: " ~ $_ ~ "=" ~ %Cookies{$_} <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	169	273	
==>) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	169	273	
==>) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

sub visit ($se <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1134	1224	
==>IL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1134	1224	
==>IL::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8726	8826	
==>local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8722	8822	
==>local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dumper <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	454	567	
==>uration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	454	567	
==>uration ($class: %param ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26417	26516	
==>re references will be passed by reference, so you
may store references to other objects in them if y <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26417	26516	
==>re references will be passed by reference, so you
may store references to other objects in them if y <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3646	3770	
==>er



Let's say you have a new Grammar and Emitter for your own language.



  # assuming:

  # - your target system runs Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3516	3635	
==>er

Let's say you have a new Grammar and Emitter for your own language.

  # assuming:
  # - your target system runs Per <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16343	16443	
==>pe of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16343	16443	
==>pe of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned will be con <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27513	27610	
==>e_elem_list), "∀α. α → list α", ":t listify(x)");
is(t(comb( fun => $one_elem_list, param = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	521	637	
==>g"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	521	637	
==>g"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	633	754	
==>e($replacement);
		}
	}

    return $self->SUPER::reduce($node);
}

sub new {
    my $class = shift;
    bless {
    }, $c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1529	1642	
==>::OnPerl5::X1::Repl;
use strict;


for (@inc_dirs) {p6_eval("push(\@INC,'$_');");}

for my $e (@eval) {
    p6_eva <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4248	4367	
==>t' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Valu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4248	4367	
==>t' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy () {
    [||] @.items.map:{
        ($_.isa( 'Perl6::Valu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5302	5413	
==>ta = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Compiler/YAML.pm  # configuration (like <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5117	5224	
==>ta = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Compiler/YAML.pm  # configuration (like <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1643	1769	
==>rrent tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1643	1769	
==>rrent tree's children
        # for a match
        for $current_tree.get_all_children() -> $child {
            if $func($chil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7115	7262	
==>rms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7308	7455	
==>rms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternation( [
                   \&{'grammar1::alt'}
                 , <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1684	1800	
==>y @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1684	1800	
==>y @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[0]}->{label};
    if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27498	27605	
==>object, you must create a new
object that is a clone of the first but for the changes.

=back

A Message obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27498	27605	
==>object, you must create a new
object that is a clone of the first but for the changes.

=back

A Message obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4246	4352	
==>nce, the match object returns positional
captures as match objects.

=head2 %{}

When used as a hash refere <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4246	4352	
==>nce, the match object returns positional
captures as match objects.

=head2 %{}

When used as a hash refere <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21651	21758	
==>$failedtests) = @_;

    my $failed_str = "Failed Test";
    my $middle_str = " Stat Wstat Total Fail  Faile <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4694	4793	
==>$dump;
}


package Perl6::Run::OnPerl5::X1::PilToPerl5;
BEGIN{
  eval(PIL::PIL1::NodeSet0::gen_code( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2305	2398	
==>er::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2305	2398	
==>er::PIL::PILCode
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::Util::Type $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4081	4210	
==>grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4081	4210	
==>grep:{ defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3552	3667	
==>plate]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3552	3667	
==>plate]
           ~ q[ module '<TMPL_MOD_NAME>': <REASON>],
    'LKT_T_FAIL_GET_TMPL_TEXT'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	736	840	
==>ou are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	736	840	
==>ou are running " ~ server_software() ~ " on the standard port<BR>";
    }

=head1 DESCRIPTION

This modul <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11594	11749	
==>query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11594	11749	
==>query_source', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16667	16805	
==>{ block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16946	17084	
==>{ block =>  match::get( $_[0], '$()<list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7631	7757	
==>r {  # see 7.7
      <'/'>
    | <'/='>
}
rule Literal {  # see 7.8
      <NullLiteral>
    | <BooleanLiteral>
    | <NumericLi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2931	3051	
==>$extracted,
        tail  => $remainder,
        capture => $extracted,
    } );
}

*ident = Pugs::Compiler::Regex->compi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9690	9854	
==>r($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9690	9854	
==>r($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# information functions (again)

multi sub p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1171	1311	
==>t_CODE
       p6_next_CODE
       p6_redo_CODE
       p6_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat oth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6941	7045	
==>' 

and 'unboxed' versions. 



The rule() constructor provides an interface between the 

low-level func <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6705	6805	
==>' 
and 'unboxed' versions. 

The rule() constructor provides an interface between the 
low-level func <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1615	1711	
==>head1 Construction

=head2 C<new>

  my $strap = Test::Harness::Straps->new;

Initialize a new st <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4470	4613	
==>mp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4470	4613	
==>mp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than end yields an empty set";
            undefine $.s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	956	1099	
==>ser_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	956	1099	
==>ser_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6928	7037	
==>,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6928	7037	
==>,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        return unless $match->{b <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4270	4351	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(: <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4270	4351	
==>)%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3924	4037	
==>name, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3924	4037	
==>name, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan. <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2003	2087	
==>t_alias>|<alias> }
rule construct_but_not_alias { <subrule>|<capturing_group>|<noncap <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2903	3045	
==>eturn @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @r <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2903	3045	
==>eturn @tmp;
    }    
    while @tmp {
        last if @ret >= $length;
        unless @tmp[0].isa(Perl6::Value::List) {
            &*push( @r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1384	1516	
==>ess defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1384	1516	
==>ess defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the capture
sub code {
    my $c = ${$_[0]}->{capture};
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5450	5560	
==>r_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This module is based on Ada <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5450	5560	
==>r_str

The C<err_str> method returns the last error message

=back

=head1 AUTHORS

This module is based on Ada <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2231	2371	
==>key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2231	2371	
==>key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given $key {
            when "Target" { $header ~= "\nWindo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1620	1717	
==>examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1620	1717	
==>examples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5379	5501	
==>$data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11034	11156	
==>$data, $vis) = @_;
    $vis = $data if not defined $vis;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	48	161	
==>fail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $o <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	48	161	
==>fail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16488	16589	
==>2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16488	16589	
==>2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	904	1021	
==>t );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	892	1009	
==>t );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23749	23848	
==>ibrary.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of l <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22265	22364	
==>ibrary.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4901	5027	
==>te or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4901	5027	
==>te or connect to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	355	520	
==>1, Num :$seed )
    returns Num { ... }

multi sub sign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	459	580	
==>Module::Install"
#     5. The ./inc/ version of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Modu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3914	4014	
==>may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Str <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3914	4014	
==>may be used, distributed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Str <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3898	4001	
==>ss, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right method return valu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5800	5903	
==>ss, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right method return valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16656	16747	
==>art to built-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements charac <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6744	6848	
==>=back

=head2 Element Events

For each POD element, an event is fired, the first argument to all these ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6744	6848	
==>=back

=head2 Element Events

For each POD element, an event is fired, the first argument to all these ev <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2558	2679	
==>_file'}        = [ META => sub { $_[1] . $_[0]->meta_ext  } ];

$config{'archive_data'}     = [ 'data.tgz'      ];
$config <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4192	4287	
==>:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F]) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4192	4287	
==>:16($5)+&63))}/;
            $decoded ~~ s:perl5:g:i/%(F[8-B])%([8-9AB][\dA-F])%([8-9AB][\dA-F]) <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5923	6041	
==>pSyms">.map:{ $_[0] };
        dbg "# Symbols:    @symbols[]";

        dbg "# Statements: "; my $statements = traverse <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1425	1516	
==>rg/publications/standards/Ecma-262.htm
#   http://bclary.com/2004/11/07/ecma-262
#
#  The SP <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1844	2059	
==>),
											App(
												Sym('&infix:<->'),
												Sym('$n'),
												Val(1),
											),
										),
									),
								),
							),
						),
					),
				),
			),
		),
		result => 120,
		name => " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9194	9308	
==>og     => one-liner (avoid quotes)
#   progs    => [ multi-liner (avoid quotes) ]
#   progfile => perl script
#   s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10739	10957	
==>elete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10739	10957	
==>elete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, { <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2061	2161	
==>------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_paren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2061	2161	
==>------
## adding children 

method add_child ($self: Tree $child) returns Tree {
    $child!set_paren <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	513	628	
==>( ${$match}->{tail}, 0, 20 ),"...\n";
    print "P5: ",$p6->{perl5}, "\n";
    exit;
}

warn "no code";
__END__

#us <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4241	4339	
==>block size and so on; see the cipher module's documentation for 
details.  The C<mode> value indica <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4241	4339	
==>block size and so on; see the cipher module's documentation for 
details.  The C<mode> value indica <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7680	7790	
==>rt(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7680	7790	
==>rt(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1,2,3] +# [1 <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1175	1354	
==>eth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1175	1354	
==>eth = 'today }
#                     tomorrow    { $meth = 'tomorrow' }
#                     yesterday   { $meth = 'yesterday' }
#                    / ) {
#        return $?SELF. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16593	16707	
==>.
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
blocks in <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16593	16707	
==>.
    no v6;
    # ...back to p5 land...

On the first time this module is loaded, it will compile Perl 6
blocks in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	138	243	
==>(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeC <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	138	243	
==>(q(
    \\\\ | \\"
))->code;
*String = Pugs::Compiler::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16576	16685	
==>s ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12997	13106	
==>s ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1626	1763	
==>rt {
    say "1..$number_of_tests";
}

1 if 4; 2 if 5;
my $x = do 1 if 2;

say(3 if 4);    # wrong?
(4 if 5) + (6 if 7);   # wrong <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48123	48325	
==>amespace'))
                  ->store(
                      $e->get('$label'),
                      $e->get('$value')
                  );
            }
        )
    )
);

## ------------------------- <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	895	1021	
==>s_odd ?? $x + 0.4 !! $x + 0.5)
		if $x > 0;

	return 0 if $x == 0;

	return -(&?ROUTINE(abs($x)));
}

our Int multi Num::round_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7767	7958	
==>$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ }
              split "\000",
              `find $parrot_path/runtime/parrot/include -print0`;
  };
my $newest_p_stamp = 100000; # ugly
-M "$pa <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2060	2172	
==><-T> or C<-t> in the #! line on your
test files.  So if you begin a test with:

    #!perl -T

the test will be r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3639	3738	
==>r error(Params::Check->last_error), return;

    return $version if $version =~ /^\.?\d/;
    return <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7584	7728	
==>57),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(87 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7584	7728	
==>57),
    "rArr"     => chr(8658),
    "dArr"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(87 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23598	23736	
==>condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20019	20157	
==>condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @{ $S->{next} }, qw< c) atom >;

    i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2793	2917	
==>scope
for it).

If we have a Thunk inside '&func' in the Env, executing this tree will invoke
'&func':

    App(
        Sym( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2294	2403	
==>get_method($label, %opts)
            if $current.has_method($label, %opts);
    }
}

# alternate p6 version
s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	6125	6252	
==>ct NUM \n" if grep { $_ eq 'NUM' } @expect;
        #print "expect '/' \n" if grep { $_ eq '/' }   @expect;

        # print "to <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	323	534	
==>s) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	323	534	
==>s) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $buffer ~= "=head$size ";          
                }
                when 'li <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8316	8410	
==>to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8316	8410	
==>to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3863	3946	
==>---------------------------------------------------------------------------
## remov <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3863	3946	
==>---------------------------------------------------------------------------
## remov <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1433	1563	
==>q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1433	1563	
==>q(" .
	$body . "), { ratchet => 1, sigspace => 1 } )->code;"
    }
))->code;

*grammar = Pugs::Compiler::Rule->compile(q( gram <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3347	3464	
==>elves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already us <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3347	3464	
==>elves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already us <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	305	460	
==>Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<*>' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	614	766	
==>Seq(
            Param('$x'),
            Param('$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:< <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	695	801	
==>e::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such a <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	695	801	
==>e::Duration.new( days => 1 ) unless defined %tmp<density>;
    # TODO - normalize duration syntaxes, such a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8444	8548	
==>tions:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5982	6082	
==>tions:

=item * name => $operator_name - the name of this operator, such as '+', '*'

=item * name2 = <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6907	7025	
==>ut = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6965	7083	
==>ut = $context.defined ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1692	1800	
==>684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEF <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1692	1800	
==>684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is constant = map &ord, "ABCDEF <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4781	4885	
==>rl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Comp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4921	5025	
==>rl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1361	1508	
==>ool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1372	1519	
==>ool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_subrule => $code } ],
    }
}

*capturing_grou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27657	27755	
==>sh()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspon <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27657	27755	
==>sh()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14466	14572	
==>er.  Since it
internally uses the C<scan> method to build the string, the result
will use case as suggested <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14466	14572	
==>er.  Since it
internally uses the C<scan> method to build the string, the result
will use case as suggested <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7556	7659	
==>_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7556	7659	
==>_blocks($data);
    while (@blocks = $class->pmc_reduce(@blocks)) {
        if (@blocks == 1 and @{$bloc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8249	8350	
==>1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite objec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8249	8350	
==>1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::Infinite objec <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14377	14491	
==>tor.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14377	14491	
==>tor.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.00000000000002

= <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	3	114	
==>e Parse::Rule::Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a str <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	3	114	
==>e Parse::Rule::Medium;

use Parse::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3955	4049	
==>}
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_stri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3955	4049	
==>}
}

multi sub *infix:<as> (::?CLASS $self, Str ::to) { $self.as_string("\n") }

method as_stri <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6750	6927	
==>= 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delet <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5254	5431	
==>= 0;
        while $n-- > $size_change {
            pop(@array);
        }
    }

    if $listlen > 0 {
        my $i = 0;
        while $i < $listlen {
            # The .delet <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2449	2590	
==>e_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2654	2795	
==>e_attrs(shift)->{'$:name'}
        },
        'class_precendence_list' => sub ($) {
            my ($self) = @_;
            my @cpl = ($self) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1361	1471	
==>wed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have been "selec <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1361	1471	
==>wed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or more of the tags have been "selec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13086	13184	
==>sts and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13086	13184	
==>sts and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute().get_payload()) { <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13438	13545	
==>hash<key1>{@keys}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash::exists ($ke <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19116	19205	
==>my($code,$err)=@_;
    Carp::confess("$@\n".number_the_lines($code)."\n");
}
sub eval_p5_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3979	4101	
==>turn $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4119	4241	
==>turn $match;  
    }
    return Pugs::Runtime::Match->new( { bool => 0 } );   # XXX - fix?
}

sub _str { defined $_[0] ? $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	837	940	
==>dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	837	940	
==>dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tre <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16862	16964	
==>n>
}
rule BitwiseANDExpression :words {  # see 11.10
      <EqualityExpression>
    | <BitwiseANDExpres <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1870	2067	
==>.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1870	2067	
==>.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2566	2663	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2778	2875	
==>} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<variable>)<?p6ws>?\=<?p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37230	37359	
==>dler('!' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S->object(and => 0);
    });
  }

We'v <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6806	6898	
==>open $error_file: $!";
$template = HTML::Template->new(filename => 'util/catalog_tmpl/error.t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	163	266	
==>ts.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	163	266	
==>ts.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15276	15380	
==>y ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15276	15380	
==>y ($class, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2310	2423	
==>$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2310	2423	
==>$msg\13\10");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handler <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6149	6253	
==>wever, more complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6149	6253	
==>wever, more complex POD 
documents may not do as well. Error reporting is still pretty minimal and the 
p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8476	8593	
==>p::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STOR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8476	8593	
==>p::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STOR <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7876	8022	
==>),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7876	8022	
==>),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => chr(8722),
    "lowast"   => chr(8727), <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	950	1095	
==>h unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	950	1095	
==>h unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bool  => 1,
        str   => $_[0],
        match => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	869	958	
==>ample for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	869	958	
==>ample for English

=head1 VERSION

This document describes Rosetta::Engine::Example::L::en <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6623	6762	
==>{
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = & <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6623	6762	
==>{
    return $closure1 if $closure1 === $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = & <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3346	3507	
==>};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3346	3507	
==>};
        if ( $m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        } <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6518	6651	
==>$Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends workin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6576	6709	
==>$Test::num_of_tests_badpass ++;
            }
        }
    }

    if ( $depends ) {
        $context ~= " (depends on $depends workin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38165	38264	
==>)>

This method takes a defined (but possibly empty) Template text string in
its positional paramete <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38165	38264	
==>)>

This method takes a defined (but possibly empty) Template text string in
its positional paramete <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14218	14339	
==>class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8422	8543	
==>class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	590	837	
==>tor::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	590	837	
==>tor::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Validator::L::en -
Localization of Rose <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16150	16245	
==>ndle it internally, while another one displays it to the
user instead.

Locale::KeyedText provid <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16150	16245	
==>ndle it internally, while another one displays it to the
user instead.

Locale::KeyedText provid <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1003	1134	
==>ay "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1011	1136	
==>ay "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { say "ok 1" } else { say "not ok 1" }
#~ } <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4491	4611	
==>tion.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7968	8088	
==>tion.new(
        heading => $attrs,
        body => set( $!body.values.map:{
            mapping( $_.pairs.grep:{ $_.key <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	384	501	
==>:JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	384	501	
==>:JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBot does Net::IRC: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1781	1903	
==>ub AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	69	161	
==>in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	69	161	
==>in Perl6

=for ChangeLog

2005-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4492	4595	
==>rence ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4492	4595	
==>rence ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $span1 = $self._normaliz <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5027	5132	
==>a; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5027	5132	
==>a; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database and where i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2449	2588	
==>n { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2449	2588	
==>n { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3338	3463	
==>glock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglock );



but where does the .pm live for real? I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3221	3341	
==>glock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglock );

but where does the .pm live for real? I <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9575	9694	
==>e()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to overr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9575	9694	
==>e()                {...}
method _cipher(Array $data) returns Array {...}
# Many, but not all, ciphers will need to overr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3751	3853	
==>ent handlers for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3751	3853	
==>ent handlers for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

=head1 FUNCTIONS <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	305	762	
==>6 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	305	762	
==>6 k            53 1
#          3 D            20 U            37 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	63	160	
==>s_tests`;
print "plan ".@jsfiles."\n";
foreach $jsfile (@jsfiles) {
    print STDERR "# $jsfile\n" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4954	5050	
==>m) returns ~type>

=item B<store (num, ~type) returns nil>

=item B<remove (num) returns nil>

=i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4593	4728	
==>tal error. Used for thunks that cannot
have a value:

    Env(
        '&infix:<+>' => Thunk(
            Stub(
                'Additio <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1638	1744	
==>+ params

    $self->enter_scope;

    my $reduced = $self->generic_reduce($app);

    my $received = $self <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3795	3922	
==>(21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3795	3922	
==>(21-May-96)
    "copy"     => '©',  # copyright sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non <==
2	/Users/nnunley/pugs/util/drift.pl	520	644	
==>_;
        next;
    }
    /^(?:data)\b(?!.*\bwhere)/ .. /^$/ or next;
    s/^newtype\b/data/;
    s/--.*$//;
    /\S/ or nex <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27940	28036	
==>hreading perl, or a different version.

If you're using the F<prove> utility, you can use the C<- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3810	3921	
==>o, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module impo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3868	3979	
==>o, "Import error when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module impo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5588	5693	
==>oined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5588	5693	
==>oined channel \"$event<object>\".";
      }

      %!channels{normalize $event<object>}<users>{$event<from <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3958	4102	
==>ing_group     { \[ <pattern> \] }
rule closure                { \{ <code> <'}'> }
rule literal                { \<(!?)\' [ <-[\\\']> | \\ . ]* \' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4782	4865	
==>0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNodeDefs::import(__PACKAGE <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1024	1261	
==>f Relation::LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	1978	2150	
==>m' => Thunk(
        Seq(
            Param('&f'),
            Param('$accum'),
            Param('$x'),
            Param('$y'),
            App(
                Sym('&cont <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	790	892	
==>{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2625	2727	
==>{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self->{admin} = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	563	830	
==>{
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	563	830	
==>{
    # Note: This given version applies to all of this file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9496	9673	
==>1,
          ?$skip        = 0,
          ?$todo        = 0,
          ?$reason      = '', 
          ?$description = '',
      )
      {
          return ::Test::Builder::Test:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24240	24323	
==>-,-,-))).
match_captures(amat(C0,_G),C0).
match_captures(amat(_C0,G),C1,amat(C1,G)). <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	703	817	
==>", av[i]);
    printf("\n");
    return 0;
}
EOT

open($F, ">$testdir/$plxname.bat")
    or die "Can't creat <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6799	6893	
==>1 or above from path (we have $ghc_version).
*** Please install a newer version from http://has <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45024	45120	
==>--------------------------------------------------------------------------
## now build Package & <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39546	39632	
==>--------------------------------------------------------------------------
## now build <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17458	17598	
==>$1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP]) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13879	14019	
==>$1);
      }

      if ($ret == \$lhs) {
        if (${&Rx} =~ m{ \G (?= - ) }xgc) {
          if ($lhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP]) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4415	4541	
==>= emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4403	4529	
==>= emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = reverse @s if $direction eq '-';
    return "$_[1] ( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8587	8684	
==>w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8587	8684	
==>w3.org/docs/errors.html#bad-entity> /
        # <http://lists.w3.org/Archives/Public/www-html/1997 <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	984	1081	
==>ONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<serv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	984	1081	
==>ONS

=over 4

=item B<server_name returns Str>

=item B<server_software returns Str>

=item B<serv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17977	18089	
==>iving such a code can identify
it easily in its conditional logic, using a simple 'equals', and then the
applicat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17977	18089	
==>iving such a code can identify
it easily in its conditional logic, using a simple 'equals', and then the
applicat <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3662	3761	
==>epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yest <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3662	3761	
==>epoch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yest <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	793	894	
==>CRIPTION

This module provides information about the remote user that is using your CGI. 
It also atte <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	793	894	
==>CRIPTION

This module provides information about the remote user that is using your CGI. 
It also atte <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1083	1201	
==>is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the value f <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4561	4679	
==>is the name
        # of one of this Relation's attributes and the value corresponding
        # to that is the value f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22515	22628	
==>->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18936	19049	
==>->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1232	1341	
==>eturns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.per <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1290	1399	
==>eturns Bool is export {
    # hack for now
    my $got_perl = $got.perl;
    my $expected_perl = $expected.per <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	555	676	
==>se as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric capture <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	555	676	
==>se as numbers, this will be one past the
                     last character matched.
    $.capture_num  - Numeric capture <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7465	7569	
==>char_comp => chr(hex $h), "\\X[$h]");
      }

      return $S->object(exact_comp => join("", map chr(hex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28454	28586	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28733	28865	
==>ure => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_perl5;
*{'_return'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1405	1511	
==>ON

This is an experimental module which eases the use of functional programming
techniques in Perl 6.

=he <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1405	1511	
==>ON

This is an experimental module which eases the use of functional programming
techniques in Perl 6.

=he <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9119	9224	
==>en 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9119	9224	
==>en 
# you remove a sub-tree
method fix_height ($self:) returns Void {
    # we must find the tallest sub-t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18224	18323	
==>ant to use the same external resources, such as a repository file
on disk, it is expected that the E <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18224	18323	
==>ant to use the same external resources, such as a repository file
on disk, it is expected that the E <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7370	7474	
==>ULL) {
    fprintf(stderr,"hook_regcompp punt.\n");
    return previous_comp_hook(aTHX_ exp,xend,pm);
  } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	593	692	
==>rn $!parent;
}

## ----------------------------------------------------------------------------
## p <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	593	692	
==>rn $!parent;
}

## ----------------------------------------------------------------------------
## p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	353	513	
==>'$y'),
            App(
                Sym('&repeatedly_apply_and_accum'),
                Sym('&infix:<*>'),
                Sym('$x'),
                Sym('$x <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	917	1068	
==>pture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if @s == 1;
        return "$tab concat(\n" <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11250	11345	
==>: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11250	11345	
==>: Tree $child) returns Tree>

=item B<add_children ($self: *@children) returns Tree>

=item B<ge <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	180	287	
==>port { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	180	287	
==>port { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant returns Bool is export { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1754	1853	
==>esulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1754	1853	
==>esulting object
is discarded (used for eg. <?ws>).

=cut

method capture ($p, Int :$num, Str :$name) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1695	1808	
==>_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performance reasons,

# becaus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1627	1735	
==>_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performance reasons,
# becaus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10848	11002	
==>r1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11127	11281	
==>r1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2236	2404	
==>elf{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2236	2404	
==>elf{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => sub { \%self },
    );
    return \%methods <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1035	1147	
==>anyof_char => "\b", '\b') if $cc;
    return $S->object(bound => bound => '\b');
  });

  $self->add_handler('\B' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19037	19161	
==>$S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15458	15582	
==>$S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC);
    }

    # flag assertion or non-capturing group <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11059	11192	
==>.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.cu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11059	11192	
==>.span;
    submethod BUILD ( $.span ) {}
    method next () {
        if defined $.current {
            $.current = $.span.next( $.cu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20577	20701	
==>ram, it will search for language files specific to the program
in the order you chose so to pick a supported language closest <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20577	20701	
==>ram, it will search for language files specific to the program
in the order you chose so to pick a supported language closest <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5773	5938	
==>m_literal                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::E <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8941	9059	
==>eturn @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8941	9059	
==>eturn @blocks;
}

# Call a set of compilers on a piece of source code.
sub pmc_call {
    my $class = shift;
    my $bl <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2551	2659	
==>results.  This
module is an experiment, to see if it is possible to use the regexp
struct as a new api into t <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2032	2138	
==>method as (--> Num) { defined($.string) ?? Num $.string !! $.count }
        multi method as (--> Str) { $. <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6787	6905	
==>n <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
mainta <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6787	6905	
==>n <corion@cpan.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
mainta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2617	2730	
==>} = 2;
  }
  elsif ( $syncat eq "postfix" )
  {
    $token{syncat} = PGE_OPTABLE_POSTFIX;
  }
  elsif ( $syncat eq <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37129	37230	
==>ickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method tak <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37129	37230	
==>ickier parts of its work:

=over

=item C<template_module_is_loaded( $module_name! )>

This method tak <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1085	1206	
==>ng is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $stri <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1085	1206	
==>ng is copy, Str $unsafe) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_escape_utf8 (Str $stri <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	636	746	
==>length->to_bit     }

# methods ...

sub fetch {
    my ($self, $index) = @_;
    (blessed($index) && $index->i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2723	2826	
==>yncat eq "circumfix" )
  {
    $token{syncat} = PGE_OPTABLE_CIRCUMFIX;
  }
  elsif ( $syncat eq "prefix" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12391	12492	
==>ject(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5034	5135	
==>ject(anyof_class => $S->force_object(prop => $name, 0)) if $cc;
    return $S->object(prop => $name, 0 <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2452	2561	
==>str(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2452	2561	
==>str(<OUT>, 0, -length($/));
    my $out = substr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27950	28058	
==>β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), "list int → list int", ":t map ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2097	2218	
==>op1 => $_[1], exp1 => $_[2], exp2 => $_[3] } }
    | IF exp block 'else' block
        { $_[0]->{out}= { op1 => $_[1], exp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5538	5650	
==>no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{"FLAG_$_"} for @flags;
}


sub add_hand <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1993	2102	
==>! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1993	2102	
==>! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $i_start, end =>   $i_end, density <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2807	2953	
==>en ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2807	2953	
==>en ::Perl::Compiler::PIL::PILStmts  { 
                ./gen(.head, $ng.fork) ~ '; ' ~ ./gen(.tail, $ng.fork);
            }

            when ::Pe <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10384	10497	
==>n smoke is easy,
  </p>

  <pre class="indent2">$ make smoke
$ ./util/smokeserv/smokeserv-client.pl ./smoke.html</ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27968	28060	
==>tring) associated with
the variable name specified in the positional parameter $var_name (a
s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27968	28060	
==>tring) associated with
the variable name specified in the positional parameter $var_name (a
s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7243	7357	
==>the
        # successfully loaded template module; on a function call
        # death, assume module is damaged and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7243	7357	
==>the
        # successfully loaded template module; on a function call
        # death, assume module is damaged and <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3127	3305	
==>?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "S <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6604	6782	
==>?SELF.equal( $other );
}

###########################################################################

method rename (Mapping(Str) of Str $mapping!) returns Relation {

    die "S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20094	20209	
==>st', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20373	20488	
==>st', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12205	12318	
==>le_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12205	12318	
==>le_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) {
        $self< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1275	1381	
==>method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.jo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1275	1381	
==>method stringify () returns String {
    return '' unless @.spans;
    return @.spans.map:{ .stringify }.jo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22860	22962	
==>item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27412	27514	
==>item C<$!body> - B<Relation Body>

Set of Mapping(Str) of Any - This contains zero or more member tuple <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28537	28692	
==>eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28816	28971	
==>eval_perl5;
*{'_return'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "return" )
       ,
         \&{'grammar1::p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10015	10178	
==>\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10851	11014	
==>\"; " .
                "    return { \%\$match, capture => [ \$ast->{capture} ] }; \n" .
                "};\n";
    
            # register new syntax in the gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2591	2712	
==>onstant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2784	2905	
==>onstant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19742	19844	
==>. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE ap <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19742	19844	
==>. C<use> statements in a PREFACE apply to all the code in
a PACKAGE. C<use> statements in a PREAMBLE ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1892	2017	
==>ub code { 
    warn "not implemented";
}

sub match {
    warn "not implemented";
}

sub perl5 {
    warn "not implemented";
} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21347	21447	
==>:ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44254	44354	
==>:ascendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3510	3645	
==>er => '||',
    );
    __PACKAGE__->add_rule( 
        name => ':=',
        assoc => 'right',
        precedence => 'equal',
        ot <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23126	23223	
==>OPT_IMPLICIT 
 ROPT_LOOKBEHIND_SEEN 
 ROPT_MATCH_UTF8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18681	18776	
==>e automatically tries to use slight variations of the nickname in the
login phase (for example C <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18681	18776	
==>e automatically tries to use slight variations of the nickname in the
login phase (for example C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1859	1959	
==>thod universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => - <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1859	1959	
==>thod universal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18399	18506	
==>or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $rx->{tree} = $tree;

    $self->{npare <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4963	5098	
==>}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4963	5098	
==>}

# scalar methods, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1236	1357	
==>star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Bench <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1236	1357	
==>star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Bench <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	58	173	
==>use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	58	173	
==>use Data::Dumper;

sub term {
    { term => $_[1]{'term'}->() ,}
}

sub operator {
    my $self = shift;
    my $mat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30063	30159	
==>n>

This method is a short-hand or alternative for the functionality provided
by the 5 generic re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34615	34711	
==>n>

This method is a short-hand or alternative for the functionality provided
by the 5 generic re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25869	25974	
==>ns a
I<reference> to a scalar, makes it work (!).

B<These functions can only work if called with ampersan <==
2	/Users/nnunley/pugs/misc/S29_round.pl	45	186	
==>metric ( Num $x ) {
    my $x_round;

    # round .5 up above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <  .5 { $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9559	9847	
==>x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

} <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9559	9847	
==>x);
                            }
                        }
                        else {
                            yield;
                        }
                }
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

} <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19722	19824	
==>e the Set data type, the Relation data type is immutable.  The value of
a Relation object is determined <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24274	24376	
==>e the Set data type, the Relation data type is immutable.  The value of
a Relation object is determined <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2105	2206	
==>d grammar which actually runs, is efficient,
#     and has captures for easy use of the resulting matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2443	2554	
==>'t open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2660	2771	
==>'t open prelude file: $prelude_file-cached.pl - $!";
        print FILE "# Generated file - do not edit!\n" . $p <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5107	5234	
==>l be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5107	5234	
==>l be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F>;
    my $dec2hex = -> $dec { '%' ~ @hex[int <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2691	2850	
==>tate;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2691	2850	
==>tate;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2102	2207	
==>$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2090	2195	
==>$pos), \n" .
        "    bool => \\\$bool, match => \\\@match, named => \\\%named, capture => \\\$capture <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1659	1822	
==>return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $fi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1659	1822	
==>return FALSE;
            }
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1785	1899	
==>, assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1785	1899	
==>, assoc => 'left',
} );
$statement->add_op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38031	38291	
==>lf:' => 'opaque'),  
                              symbol->new('$label' => 'symbol'),                                
                          ),
                returns => 'bit'
            ),
            sub {
                my $e = shift;
                $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17875	17981	
==>my($re,$s)=@_;
  my $r = compile($re);
  my $m = match($r,$s);
  return $m;
}

if(@ARGV && $ARGV[0] eq '--t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11547	11702	
==>ft quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11547	11702	
==>ft quote
    ([\w\-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8669	8795	
==>ES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8669	8795	
==>ES]} : 0;
            my $offset = ($prev_len > $next_len) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1967	2066	
==>Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2056	2155	
==>Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=item * L<Pugs::Runtime::Gra <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4477	4630	
==>(List)\
\\n   List      pre     pair    safe   (List)\
\\n   Any       pre     reverse safe   (List)\
\\n   List      spre    ^       safe   (Scalar)\
\\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3048	3185	
==>LE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3048	3185	
==>LE></HEAD>
<BODY>
<H1>$title</H1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46366	46514	
==>label
        symbol->new('FETCH'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                pa <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1154	1309	
==>50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1154	1309	
==>50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     octet--+
#        |7 6 5 4 3 2 1 0|7 6 5 4 <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10970	11103	
==>n prints out the differnt TODO types
            foreach my $todo_type (keys %todos) {
                my $num_tests = $todos{$todo_ty <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	511	609	
==>e that this is nothingmuch's first article that he read from cover
# to cover with no hand holding, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	312	431	
==>t from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	312	431	
==>t from 0 in that string

=cut

our role Pos { 
    does Parse::Rule::Medium::Pos;

    has Str $.text;
    has Int $.pos <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11558	11660	
==>for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=bac <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11558	11660	
==>for this, but maybe I will
figure out a good way to do this without. Either way it is still TODO.

=bac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8082	8185	
==>d_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8082	8185	
==>d_tb_person_exists = $irl_doc.build_node_tree(
        [ 'function', { 'name' => 'tb_person_exists' }, [ <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	405	544	
==>?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perl <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	405	544	
==>?? ($_ => $self.($_)) !! ())
    } };
}

=head1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perl <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1623	1719	
==>mples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Per <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1623	1719	
==>mples of working Perl 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Per <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	501	600	
==>it_grammar { die "not implemented" };

sub add_op {
    # name=>'*', precedence=>'>', other=>'+', ru <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19922	20026	
==>s the standard practice for Mac OS X programs, including
the operating system itself, to have the user la <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19922	20026	
==>s the standard practice for Mac OS X programs, including
the operating system itself, to have the user la <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13	111	
==>- Make preface part of parsed code, since it might contain `package`
#   statements or other scopin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13	111	
==>- Make preface part of parsed code, since it might contain `package`
#   statements or other scopin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3245	3347	
==>l's C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3245	3347	
==>l's C<rand> 
function is not good enough.  (You should be doing this anyway, though.)  It 
also means t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2126	2253	
==>le{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2126	2253	
==>le{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) % 26];
        }
    }
    i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	118	230	
==>ew {
	my $class = shift;
	bless { }, $class;
}

sub typecheck {
	my $self = shift;
	my $runtime = shift;
	my $pro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20391	20519	
==>ure_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20670	20798	
==>ure_block = sub { return { _print =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capt <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21739	21842	
==>key code with a new user message in
one of their own resource files.  At some appropriate place, usually <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21739	21842	
==>key code with a new user message in
one of their own resource files.  At some appropriate place, usually <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1167	1295	
==>fier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handli <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1167	1295	
==>fier => -> ($mod) { $buffer ~= $mod ~ "<" },
        end_modifier   => -> ($mod) { $buffer ~= ">" },      

        # Text handli <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	710	857	
==>k

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args = @_;

        my ($root, $pool, $pool_rel, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2378	2475	
==>, who created the HTML-ified ecma-262, without which
#  this grammar would likely not have been wr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1037	1134	
==>ods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1037	1134	
==>ods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed from a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1896	2003	
==>();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1896	2003	
==>();
}

sub tmpdir returns Str is export {
    return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2982	3091	
==>internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the obje <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2982	3091	
==>internal error: can't find user text for a message:"
            ~ "\n$message$translator" ); # note: the obje <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6764	6868	
==>ings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert sibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6764	6868	
==>ings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot insert sibli <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3882	4018	
==>da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3882	4018	
==>da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3259	3373	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an emp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3259	3373	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is an emp <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	409	555	
==>return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	409	555	
==>return $obj;
    };
    $.require ||= 0;
}

method plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8725	8833	
==>I mean, seriously, because that's what p6 does)

and also you can overload @{} %{} &{} + ~



I think it shou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8435	8540	
==>I mean, seriously, because that's what p6 does)
and also you can overload @{} %{} &{} + ~

I think it shou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26830	26983	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27109	27262	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "eval" )
       ,
         ruleop::optional(
             ruleop::cap <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	227	334	
==>@ISA};
BEGIN {
	$VERSION = '0.59';
	@ISA     = qw{Module::Install::Base};
}

sub cc_files {
    require Conf <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11259	11350	
==>ce(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_sequence(char(C)) --> "\\e", {[C] = <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3928	4028	
==>E ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3928	4028	
==>E ?
our &Set::count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
o <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1184	1305	
==>) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1184	1305	
==>) {
    my $tmp = $self.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $se <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	680	773	
==>-------------------------------------

use strict;
use IO::All;
use Regexp::Common;
use Data:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7536	7659	
==>ssage_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.def <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7536	7659	
==>ssage_cpy.get_msg_key() ); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.def <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1420	1517	
==>m<density> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<span> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1420	1517	
==>m<density> if defined %param<density>;

    %param<object> = %param<span> if defined( %param<span> <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1608	1732	
==>de $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf }, <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1608	1732	
==>de $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems}() == Inf }, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	11	111	
==>::Config;

use strict;
use warnings;
use Cwd;
use Config;
use Path::Class ();
use base 'Object::Acces <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3805	3924	
==>->archive_control;
        my $jibdir  = $conf->jib_dir;
    
        ### XXX hardcoded .svn exclusion! we should fix th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3100	3195	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3100	3195	
==>erl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2306	2436	
==>has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do someth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2306	2436	
==>has failed.
    }
    # we do however, store the 
    # results as far as we got,
    # so that the user can maybe 
    # do someth <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30173	30270	
==>.

Fix so perls with spaces in the filename work.

Keeping whittling away at _run_all_tests()

Cle <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1353	1513	
==>$pkg = $src->build( ... )

=cut

### XXX need some good path manipulation tools.. this is too much work :(
#     
#     ### clean out the builddir 
#     {   if( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23648	23783	
==>=> 'assertion',
      type => 'suspend',
      data => \@data,
      down => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	918	1021	
==>odule Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	918	1021	
==>odule Rosetta::Shell::L::en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3318	3435	
==>_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3318	3435	
==>_perl6_libs();
    my $pugs_core = File::Spec->catdir($config->{archlib}, 'CORE', 'pugs');
    my $ghc_flags = "-H0 -L <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10020	10129	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            ' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10020	10129	
==>F!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text',
            ' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11610	11765	
==>(\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11610	11765	
==>(\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1332	1473	
==>s, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        % <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	670	810	
==>s, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args->{clean} ||= {};
    %$clean = (
        % <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1802	1896	
==>ggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This lib <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1802	1896	
==>ggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This lib <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4157	4273	
==>ssed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4364	4480	
==>ssed($_) && $_->isa('symbol'))
        || confess "you can only add symbol types to a param list"
            foreach <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1039	1159	
==>= shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() take <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1930	2050	
==>= shift;
    $self->makemaker_args( INC => shift );
}

sub write {
    my $self = shift;
    die "&Makefile->write() take <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4607	4711	
==>returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((block &dispatcher)) returns opaque
    (&dis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2364	2516	
==>erm = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2364	2516	
==>erm = Pugs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8055	8173	
==>capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8248	8366	
==>capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    su <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2210	2395	
==>ist' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2210	2395	
==>ist' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $fh.print("=i <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10197	10298	
==>fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10197	10298	
==>fail and emit warnings in some cases.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_prev <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	105	354	
==>e Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	105	354	
==>e Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packages in <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13060	13176	
==>ange
    if $S0 != "\\" goto addchar
  backslash:
    inc pos
    $S0 = substr target, pos, 1
    $I0 = index "nrtfae <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27847	28005	
==>ure( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28126	28284	
==>ure( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11415	11578	
==>code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] }\n" .
           "$_[1] }\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5754	5881	
==>ory_name - the name of this category 
(a namespace or a Grammar name).

=item * operand => $rule_name - the name of the rule tha <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6503	6642	
==>"\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '$';
    die "didn't implement $re"
  }
}
{
  # . \C
  package Regexp::Pars <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3161	3263	
==>ta::Dumper::Dumper(get_config());
}
#__test__;

1;

__DATA__
{-# OPTIONS -fglasgow-exts #-}

{-
    *** <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1876	1975	
==>types, including

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1804	1901	
==>types, including
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10945	11053	
==>^\%/;

    return "$_[1] constant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4858	4959	
==>)->name->to_native . ' => ' . $left->fetch($i)->type->to_native;
        # warn "with " . $right->fetc <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3271	3474	
==>lace
                             ) returns Array

 multi sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 m <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6081	6177	
==>e template-haskell -package base -package pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSW <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19735	19849	
==>ledStatement>
    | <SwitchStatement>
    | <ThrowStatement>
    | <TryStatement>
}
rule Block :words {  # see 12.1 <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	50	160	
==>t defines no properties.

# return floating point seconds relative to 1st Jan 2000, UTC
method epoch($self:) re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	955	1060	
==>tr is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $director <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	955	1060	
==>tr is export {
    return &::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $director <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11963	12078	
==>tart => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11963	12078	
==>tart => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

    $num_span = Span.new( start => -1.0, e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2509	2608	
==>>isa('nil') && $param->to_str->to_native =~ /^\?/) {
            (blessed($arg) && $arg->isa($param_ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10270	10400	
==>. A plan is simply the number of tests which are
expected to run. This should be specified at the very top of your tests.

- `force <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10328	10458	
==>. A plan is simply the number of tests which are
expected to run. This should be specified at the very top of your tests.

- `force <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12146	12308	
==>d )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12140	12302	
==>d )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qualified $package::var
            # ...->match( $rule, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	9	107	
==>ME

Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	9	107	
==>ME

Cipher::Arcfour - Arcfour (RC4-compatible) stream cipher

=head1 SYNOPSIS

    $ciphertext = Ci <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	1050	1143	
==>time object is responsible for providing the compiler with replacement
data for stubs and othe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4077	4183	
==>ct');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5979	6085	
==>ct');
is_deeply(
    [ $Class->class_precendence_list ], 
    [ $Class, $Object ], 
    '... $Class class_p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16457	16581	
==>ive is safe {
        (int($n) == $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe {
        ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6683	6787	
==>e',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  ' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6683	6787	
==>e',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool',
  ' <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	944	1114	
==>d_last ($x,$string is rw,$pass){
    if $pass > 2 {
        chop $string;
        "$string and " ~  
        pick (
            "$x",
            "is $x",
            "$x, <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1041	1157	
==>:Emitter::Pretty->new->string($node);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self-> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8183	8289	
==>xists $n->{$k}){$n=$n->{$k}}else{$n=undef;last}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_applym('$fu <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	363	464	
==>1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	363	464	
==>1.0'  }

=pod

=head1 NAME

CGI::Server - A CGI module to getting information about the server

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4404	4564	
==>ew( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4404	4564	
==>ew( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting start bigger than e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20292	20387	
==>.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20292	20387	
==>.

=head2 C<$botE<lt>connectedE<gt>()>

Returns a true value if the bot's socket to the server i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19860	19961	
==>et::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> infor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19860	19961	
==>et::IRC> will C</WHO> itself after login, so it can give you accurate
C<username> and C<ircname> infor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10296	10451	
==>affic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10296	10451	
==>affic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect => {
      i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	165	274	
==>ipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn" <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	165	274	
==>ipher::Caesar.new(:shift(3));
    print rot13("Insert secret here");
    print $julius.cipher("Attack at dawn" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12093	12295	
==>=~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = Grammar::Perl6::immediate_statement_rule( \$ret );\n" .
                "    die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2026	2202	
==>ACKAGE__->add_rule(
        #~ name => '&',
        #~ assoc => 'left',
        #~ precedence => 'equal',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	741	844	
==>le) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	741	844	
==>le) = @_;
	# try to compile the rule first ...
	my $compiled_rule = eval { Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5918	6066	
==>>{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5930	6078	
==>>{$n};
            }
        }
        return;
    }

    die "match variable $name is not implemented";
    # die "no submatch like $name in " . Dum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1702	1814	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is unde <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1702	1814	
==>S>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '<KEY>' key is unde <==
2	/Users/nnunley/pugs/util/importgraph.pl	2861	3017	
==>e($name, $k, color => $color);
    $edges++;
  }
}
print "$nodes nodes and $edges edges\n";

#$g->as_canon("importgraph.dot");
#$g->as_png("importgraph.png") <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22813	22899	
==>r(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_member(E0,C,[_|T <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1708	1860	
==>can('maybe_command')) {
                ExtUtils::MM_Win32->maybe_command($file);
            }
            else {
                ExtUtils::MM_Unix->may <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1601	1708	
==>can('maybe_command')) {
				ExtUtils::MM_Win32->maybe_command($file);
			} else {
				ExtUtils::MM_Unix->may <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26256	26352	
==>arranty for it.

While it is by no means required, the copyright holders of Rosetta would
appreci <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26256	26352	
==>arranty for it.

While it is by no means required, the copyright holders of Rosetta would
appreci <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4433	4550	
==>lues}{no_index};
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAML', 0 );

    require YAML;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1285	1415	
==>ess $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1285	1415	
==>ess $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5252	5502	
==>aximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5252	5502	
==>aximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 hour is fallback when all else fails
            }
        }
    
        retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2950	3077	
==>depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3414	3541	
==>depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1148	1245	
==>o_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1148	1245	
==>o_match unless $_[0];
    my ($extracted,$remainder) = Text::Balanced::extract_bracketed( $_[0], " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1642	1742	
==>an be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Bewa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1642	1742	
==>an be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Bewa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4882	4999	
==>($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4882	4999	
==>($self: $span ) {
    my $tmp = $self.difference( $span );
    $.set = $tmp.set;
}

# scalar methods, iterators

metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4490	4602	
==>eturn "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4490	4602	
==>eturn "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5051	5164	
==>, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5051	5164	
==>, @path_dirs), $file);
    return $path;
}

# Refacted this into a Junction instead of the
# regexp since all it d <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1438	1717	
==>e eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    re <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1438	1717	
==>e eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8750	8843	
==>a `Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates an <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8750	8843	
==>a `Set::Infinite` object using an existing Recurrence object.

- `universal_set()`

Creates an <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8573	8677	
==>b PIL::PIL1::NodeSet0::NodeRepArray1::unparse {
    my $n = $_[0]->name;
    my $v0 = $_[0][0]; my $s = r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14238	14341	
==>p6_as_array(${$_[0]}) },
      perl5_object => sub { [@{$_[0]}] },
      perl6_object => sub { $_[0]->as <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1528	1659	
==>_Cygwin::maybe_command)) {
        *ExtUtils::MM_Cygwin::maybe_command = sub {
            my ($self, $file) = @_;
            if ($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1444	1552	
==>_Cygwin::maybe_command) ) {
		*ExtUtils::MM_Cygwin::maybe_command = sub {
			my ($self, $file) = @_;
			if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1177	1329	
==>{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" ! <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1177	1329	
==>{' !! '(';
            ++$in_curlies unless $escaping;
        }
        elsif ( $char eq '}' && $in_curlies ) {
            $regex ~= $escaping ?? "}" ! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21136	21230	
==>d your program would use
associated keys internally.

It is strongly suggested (but not require <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21136	21230	
==>d your program would use
associated keys internally.

It is strongly suggested (but not require <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	79	181	
==>> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method as <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	79	181	
==>> runs C<&assert>. If the result is true, is continues. If
it is false, it backtracks.

=cut

method as <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4940	5035	
==>ported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4940	5035	
==>ported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

=head1 BUG <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6170	6290	
==>new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6170	6290	
==>new(parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2988	3108	
==>o test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2988	3108	
==>o test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9806	9915	
==>for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9806	9915	
==>for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    re <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11760	11860	
==>\&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11760	11860	
==>\&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HTML: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	479	580	
==>reach my $pad (@{ ($self->scopes)[0] }) {
		return $pad if $pad->name eq $symbol;
	}

	die "symbol $sy <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4473	4556	
==>_range_greed(W,Min,Max,Z), !.
p5_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12301	12471	
==>P::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12301	12471	
==>P::Request $r, URI $uri) {
        if (my $h = $r.header('Host')) {
            $h ~~ s:P5/:\d+$//;
            return $h.lc;
        }
        
        return $uri.host.l <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1852	1968	
==>FILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    clo <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1852	1968	
==>FILE;
    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE $makefile;
    print MAKEFILE $postamble;
    clo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15850	15959	
==>rn $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('mi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10706	10815	
==>rn $S->object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('mi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2734	2842	
==>\^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2734	2842	
==>\^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* < <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2284	2417	
==>ck} }, $self->{params};
    $self->{params} = [ @_ ];
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

su <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2868	2992	
==>rint the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = Load <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3332	3456	
==>rint the parsed dependencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = Load <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3698	3827	
==>e};

    if ( $values{name} =~ /::/ ) {
        my $name = $values{name};
        $name =~ s/::/-/g;
        die "Error in name(): <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13622	13738	
==>y succeeded</span>
              </tmpl_loop><br />
              <a href="<tmpl_var name=link>" title="Full smoke re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19321	19422	
==>rate resource files used by the
program, so that if you wanted to upgrade or localize what text the us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19321	19422	
==>rate resource files used by the
program, so that if you wanted to upgrade or localize what text the us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	298	418	
==>interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	504	624	
==>interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statement <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26588	26704	
==>and sends the constructor whatever
other arguments are included.  This method takes care of building the
proper inher <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1031	1128	
==>ENUM, 'Can\'t do {n,m} with n > m';
use constant RPe_NULNUL => --$ENUM, '%s matches null string ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3266	3426	
==>(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3513	3673	
==>(),
            ws2   => $_[0]{ws2}(),
            ws3   => $_[0]{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13784	13914	
==>fic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13784	13914	
==>fic} seconds; disconnecting.";
      ./disconnect;
    }
  }

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9637	9758	
==>ns);
  return reverse(@$ret);
});
my(@a)=split($qr,$str);
print STDERR "(",join(", ",map{defined($_)?"'$_'":"undef"}@a),") <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7437	7556	
==>dent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7449	7568	
==>dent = 0;
    #print "emit_rule: ", ref($n)," ",Dumper( $n ), "\n";

    # XXX - not all nodes are actually used

    if <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	752	853	
==>file(
        url         => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	645	738	
==>file(
		url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15 <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	868	968	
==>t the server your CGI is running on. It also 
attempts to provide some useful defaults for debugging. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	868	968	
==>t the server your CGI is running on. It also 
attempts to provide some useful defaults for debugging. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10962	11093	
==>n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10962	11093	
==>n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2175	2285	
==>land objects -- those are written in p6 perhaps?



I propose: no lib6/ and lib/ distinctions -- .pm files shou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2094	2202	
==>land objects -- those are written in p6 perhaps?

I propose: no lib6/ and lib/ distinctions -- .pm files shou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5051	5236	
==>rns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5051	5236	
==>rns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () returns Str {
    return '  Debug Str <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	713	827	
==>ast_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	713	827	
==>ast_span; span_iterator
    * see also: Span.pm TODO

  Optimizations:
    * create a store for single elements (Sp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	928	1042	
==>nf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	928	1042	
==>nf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( st <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3115	3243	
==>unctional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.compleme <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3115	3243	
==>unctional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.spans.map:{ $self.new( spans => $_.compleme <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	198	323	
==>ot a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	198	323	
==>ot a match" unless ref($match) eq 'Pugs::Runtime::Match';
    my %h = %$match;
    my %opt = @_;
    
    #print "capture ", D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10106	10244	
==>grammar1::statements> ]* <?ws>? ) )\n" .
                "        ->( \$expanded );\n" .
                "    die \"compile: syntax error i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33943	34041	
==>s an
"OR".  The vim regex C</x\&y/> means "match I<y> if I<x> can be matched
at the same location". <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6675	6836	
==>ndex);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6675	6836	
==>ndex);
    
    my @tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1629	1781	
==>d even if it were expecting a simple '<'
            
                # after whitespace means '<' (default)
                # without whitespace means ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3790	3916	
==>e::Perl5::RuleOps::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::list {
    my $d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20950	21086	
==>header() method, the same
field name should not occur multiple times.  The result of doing so,
it that only the last of these fields will <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20950	21086	
==>header() method, the same
field name should not occur multiple times.  The result of doing so,
it that only the last of these fields will <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	20619	20773	
==>dont work. :(
    #die "-M bug $m" if not $m ~~ rx:perl5/\A[-e0-9\.]+\Z/;    
    +$m;
  }
}



sub Pugs::Internals::Disabled::use ($module=$+_) is builtin <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	634	782	
==>}/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = ur <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	634	782	
==>}/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy) returns Str is export(:DEFAULT) {
        $string = ur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2430	2532	
==>ode) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAU <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2430	2532	
==>ode) is export(:MANDATORY) { 400 <= $code < 500 }
    
    sub is_server_error ($code) is export(:DEFAU <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3196	3305	
==>hod, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5402	5511	
==>hod, 1);
    push @{$self->{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	676	774	
==>re "re/override/$flavor.pm";
    goto &{"re::override::${flavor}::import"};
}

sub unimport {
    r <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6478	6564	
==>equence(R).
p5_elemental(negSet(X)) --> "[^", !, p5_charset_def(X), "]".
p5_elemental(p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21012	21103	
==>a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Fire <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21012	21103	
==>a pre-existing (pseudo) relational
database manager (such as SQLite, PostgreSQL, MySQL, Fire <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	203	328	
==>arnings;
use strict;

use GD::Graph::lines;
use Time::Piece;
use Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7662	7772	
==>bel))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('has_method'), 
    # me <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	18	133	
==>ile $_ = =<> {$src ~= $_;}

my $m = $src ~~ rx/oo/;
say "(mapcar 'delete-overlay (overlays-in (point-min) (point-max <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30157	30307	
==>) = @_;
    pop @{ $S->{next} };  # there was an 'atom' there
    &RxPOS--;             # this does pos(regex)--
    return;
  });

This handler un-con <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2215	2327	
==>x);
	return $x if $x == $t;
	$x > 0 ?? $t + 1 !! $t - 1;
}

our Int multi Num::round_up (Num $x, int $symmetrical <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10324	10437	
==>lue {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_val <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10324	10437	
==>lue {
        my Str $var_value_as_str = $var_value // $EMPTY_STR; #/
#        $text ~~ s:g/\<$var_name\>/$var_val <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	496	594	
==>tem(($?OS eq any <MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) returns Int is export <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2217	2320	
==>s export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2217	2320	
==>s export(:MANDATORY) { 100 <= $code < 200 }
    sub is_success  ($code) is export(:MANDATORY) { 200 <= $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	918	1048	
==>ring) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern match <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	918	1048	
==>ring) returns HTTP::Headers {
    my %headers;
    
    my ($field, $value);
    
    loop {
        # XXX use Perl 6 pattern match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3903	4030	
==>wline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4096	4223	
==>wline'} = sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	490	588	
==>method literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./ass <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	490	588	
==>method literal(Str $text) {...}

method any_char() {...}

method beginning_of_string () {
    ./ass <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2807	2928	
==>t some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<enci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2807	2928	
==>t some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up

=over 4

=item C<enci <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1259	1359	
==>ving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1259	1359	
==>ving intermediate 
results along the way.

=item 3. Retrieve any final data and clear the cipher's st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24580	24674	
==>vate, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines or e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24580	24674	
==>vate, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines or e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4053	4193	
==><' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4053	4193	
==><' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+|\s+$//;
    return $s;
}

{
    my $match = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1147	1249	
==>od includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1147	1249	
==>od includes($self: *@items) returns Bool {
    my $answer = (all(@items) === any($!members));
    retur <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4672	4776	
==>B][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4672	4776	
==>B][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15393	15486	
==>highest supported level is simply mapped char for
char to the desired level. However, attempti <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3742	3870	
==>$rule = Pugs::Compiler::Rule->compile( '
    $<q1> := (<previous>) 
    [
        \| 
        $<q2> := (<self>) 

        { retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2589	2701	
==>ight As Specified is more important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2493	2601	
==>ight As Specified is more important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	654	749	
==>|| $signature->isa('closure::signature')))
        || confess "signature must be an closure::par <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	885	989	
==>teroperability with modules that
# do not inherit from Module::Compile but still want to do this sort
# o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	885	989	
==>teroperability with modules that
# do not inherit from Module::Compile but still want to do this sort
# o <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10098	10200	
==>& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ' <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10833	10935	
==>& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',defined($')?"\"$'\"":"undef","\n";
print ' $-[0] ' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14901	15012	
==>s_not_nil)
        ((($c send (get_attributes)) apply 
            ((= %attrs store (($_ name) ($_ instantite_co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6161	6282	
==>ly declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6161	6282	
==>ly declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pugs to die when we call get_msg_key() <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7639	7785	
==>re_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7639	7785	
==>re_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_previous }( &{ $self.c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	585	696	
==>::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	585	696	
==>::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2778	2885	
==>method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2778	2885	
==>method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query st <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1259	1377	
==>llection of functions and
methods that are queried during dispatch (which includes attribute
lookup as well as method l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27352	27448	
==>LAG_$flag>, and sets it to
the code reference in $code.  Example:

  $parser->add_flag("u" => sub <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1398	1515	
==>b', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1398	1515	
==>b', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile = do { local $/; <MAKEFILE> };
    $full_pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28920	29174	
==>1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29199	29453	
==>1::term2'} )
                 ,
             ] )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20214	20306	
==>zation_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header ins <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20214	20306	
==>zation_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
header ins <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3256	3368	
==>tches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3256	3368	
==>tches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{match}[0], @_[4,5,6,7] );
            $matches[0] = ${$mat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36953	37046	
==>text_string = $translator.translate_message( $message );

=back

The Translator class also has <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36953	37046	
==>text_string = $translator.translate_message( $message );

=back

The Translator class also has <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4318	4441	
==>$text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track d <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4318	4441	
==>$text); #`
    @tokens = @tokens.grep:{ defined($_) }; 
    # this is a memory stack for modifiers
    # it helps us track d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26067	26163	
==>ame is a machine-readable short
string; the allowed variable names you can have depend on the Mes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26067	26163	
==>ame is a machine-readable short
string; the allowed variable names you can have depend on the Mes <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	814	963	
==>array that is an
                     index into the multidimensional arrays of the match
                     object, telling captures where in the d <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	814	963	
==>array that is an
                     index into the multidimensional arrays of the match
                     object, telling captures where in the d <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3044	3185	
==>b::gzerrno";
    }
    $gz->gzclose;
    unlink $in;
    1;
}

sub build_lib {
    my $version = shift;
    my $ghc     = shift;

    my $ar = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14916	15002	
==>------------

re_rewrite(R0,R1) :- re_rewrite(R0,R1,rewr(0),_). 

re_rewrite(plus(cap(p <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1681	1778	
==>w/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 po <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1681	1778	
==>w/MyApp::Plugins MyApp::MorePlugins/;
    my @plugins = $p.plugins;

=head1 DESCRIPTION

Perl 6 po <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6991	7087	
==>y "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7049	7145	
==>y "ok ", $Test::num_of_tests_run, $out, $context_out;

    Test::report_failure($context, $got, $ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1694	1798	
==>);
}

sub require_compression_modules {
  no strict 'refs';
  eval { require Compress::Zlib } or
    *Com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30251	30354	
==>s type.

=item my $v = $obj->visual()

The visual representation of this object.  It includes the visual <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10073	10244	
==>new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stm <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10073	10244	
==>new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', undef, [
                [ 'insert_stm <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	169	265	
==>:Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	178	274	
==>:Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.01';

use strict;

sub determine <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3065	3252	
==>thod not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6542	6729	
==>thod not_equal (Relation $other!) returns Bool {
    return !$?SELF.equal( $other );
}

###########################################################################

method rename (Mapping( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21518	21663	
==>d, 
             percent => $percent,
             estat => $estatus, wstat => $wstatus,
           };
}


sub _create_fmts {
    my($failedtests) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9439	9534	
==>those objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9439	9534	
==>those objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8511	8637	
==>>[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $nex <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8511	8637	
==>>[CLASSES]} < @{$block->[CLASSES]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $nex <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	427	541	
==>g information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	427	541	
==>g information about the server

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23409	23633	
==>'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23688	23912	
==>'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1692	1805	
==>for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1692	1805	
==>for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { %!headers{$fie <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	419	519	
==>filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is non-i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	419	519	
==>filter   ($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is non-i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36407	36514	
==>e module
names that it will search.

=item C<translate_message( $message! )>

This method takes a (machine-r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36407	36514	
==>e module
names that it will search.

=item C<translate_message( $message! )>

This method takes a (machine-r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1668	1780	
==>captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1668	1780	
==>captures {
    my @a;
    # special case: the whole match is a single capture
    return ${$_[0]} if exists ${$_[ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	504	607	
==>hift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_di <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	504	607	
==>hift($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2953	3175	
==>xity} eq 'infix';
    for my $level ( 0 .. $#{$self->{levels}} ) {
        if ( grep { 
                defined $opt->{other} 
                ? ($_->{name} eq $opt->{other}) 
                : 0 
             } @{$se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22741	22831	
==>>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22741	22831	
==>>topicE<gt>("#chan")>, C<$botE<lt>topicE<gt>(channel =E<gt> "#chan",
topic =E<gt> "new topi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16326	16446	
==>"_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16326	16446	
==>"_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1275	1376	
==>t Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1275	1376	
==>t Nodes; a sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attr <==
2	/Users/nnunley/pugs/util/build_pugs.pl	276	390	
==>b 'inc';
use PugsBuild::Config;

help() if ($ARGV[0] || '--help') =~ /^--?h(?:elp)?/i;
build(classify_options(@ARGV <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14080	14202	
==>setta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14080	14202	
==>setta::Interface::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	762	868	
==>f the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	762	868	
==>f the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# The hope is that th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	13075	13195	
==>q "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as('%%%02X' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	13075	13195	
==>q "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/;
            s:P5:g/([\0-\x20\x7f-\xff])/{ ord($0).as('%%%02X' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13662	13761	
==>ed "Good Practice" order.

In scalar context return the number of distinct field names.

=item $h.sc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13662	13761	
==>ed "Good Practice" order.

In scalar context return the number of distinct field names.

=item $h.sc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1111	1297	
==>\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $ver <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	990	1176	
==>\d+)}
                             {$1 + $2/1_000 + $3/1_000_000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $ver <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	576	686	
==>nText;
use Tie::RefHash;
use Best 0.05 qw/YAML::Syck YAML/;


$| = 1;
my $start = time;

sub usage {
    my $us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1398	1515	
==>my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1398	1515	
==>my $last_traffic;        # Timestamp of last traffic seen from server
  my $last_autoping;       # Timestamp of last p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7474	7570	
==>rl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1299	1395	
==>rl6->meth_call_statement(@_) };
push @terms, sub { Grammar::Perl6->meth_call_term(@_) };
push @st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2399	2511	
==>ram_type = $param->type->to_native;
        my $arg        = $args->fetch(num->new($i));
        unless ($arg->is <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8390	8504	
==>pan.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8390	8504	
==>pan.span );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	518	638	
==>debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	518	638	
==>debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ / $/) {
    p <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8807	8905	
==>ference (Relation $other!) returns Relation {

    die "The heading of the relation in $other does" <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12284	12382	
==>ference (Relation $other!) returns Relation {

    die "The heading of the relation in $other does" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17895	17993	
==>format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17895	17993	
==>format like 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2751	2892	
==>Terminator>>*? ]
}


# 7.2 White Space

rule TAB  { \x0009 }
rule VT   { \x000B }
rule FF   { \x000C }
rule SP   { \x0020 }
rule NBSP { \x00A0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3634	3774	
==>ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3622	3762	
==>ws3"
        if $quantifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier e <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8283	8394	
==>key = $k; # Eh. Spec would have us use ToString(k).
                $A.<[[Delete]]>($k) if exists $A.property_va <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1781	1879	
==>: $equivalence - rp: $relativePrecedence - options: $options - match: $match\n" ;
  my %token = ( n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	40987	41079	
==>ning that can only be figured out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...) <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	255	345	
==>e_deps { +shift->admin->include_deps(@_) };
sub auto_include { +shift->admin->auto_include( <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16109	16201	
==>ve.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogma <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16167	16259	
==>ve.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vincent <jesse@bestpractical.com>

Yuval Kogma <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20065	20176	
==>5 {
    my($kind,$name,$param,$fun)=@_;
    my $mfun = $fun;
    if($param =~ /\*/) {
	my $modifyargs ="";
	my $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5010	5095	
==>W,Min,Max,Z), !.
p6_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p6_range_g <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15563	15689	
==>0); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15563	15689	
==>0); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later.
    method run() {
      my <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2629	2727	
==>:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2629	2727	
==>:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into 'name' and <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16552	16670	
==>g);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12973	13091	
==>g);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${&Rx} <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	801	912	
==>.= " ($abstract)" if defined $abstract;
        $prompt .= '?';
    }
    return unless $self->prompt($prompt, ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16374	16475	
==>oodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16374	16475	
==>oodcontrol = 0) {
  my @queue;

  my $bucket = $floodcontrol
    ?? Algorithm::TokenBucket::new_bucket <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1538	1792	
==>} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localizat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1538	1792	
==>} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::Model::L::en -
Localizat <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	184	296	
==>eck that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ) <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	184	296	
==>eck that day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 ) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3891	3988	
==>s, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right metho <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5793	5890	
==>s, $Class, '... $Class refs to itself');
is($Class->name, 'Class', '... $Class got the right metho <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34260	34350	
==>set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Tr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34260	34350	
==>set_names!, :@member_names! )>

This method creates and returns a new Locale::KeyedText::Tr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11360	11513	
==>ule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11639	11792	
==>ule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	716	853	
==>ol $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        . <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	716	853	
==>ol $.autosave = 0, Bool $.ignore_discard = 0, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2702	2811	
==>-- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2886	2995	
==>-- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-rule (but not Rule|Str) <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	236	343	
==>ered as the superset of round_half_up and
# round_half_down

}

our Int multi Num::round_half_up (Num $x, in <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2742	2836	
==>performs the actions denoted by
the AST, ultimately flattenning the tree down to a single value <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5490	5617	
==>Scope, $pSyms, $pStmts) {
    my(@vars);
    for (@$pSyms) {
	my($var)=@$_;
        push(@vars,$var);
    }

    my @varsm = map <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7708	7814	
==>sh( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_arra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7708	7814	
==>sh( $lazy_array_2 );  
  
  # insert each of the array2 elements into array1
  $lazy_array.push( $lazy_arra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21682	21804	
==>your package.  One
can override simply by using the same key code with a new user message in
one of their own resource file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21682	21804	
==>your package.  One
can override simply by using the same key code with a new user message in
one of their own resource file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	326	489	
==>bute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	326	489	
==>bute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1110	1246	
==>ib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
su <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1110	1246	
==>ib => $archlib,
        privlib => $privlib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23078	23184	
==>->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19499	19605	
==>->error(RPe_NOTREC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3568	3675	
==>e, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $mo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3626	3733	
==>e, :$todo, :$depends) is export {
    my $caller = caller().package;

    eval "package $caller; require $mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	841	976	
==>',
    );
    __PACKAGE__->add_rule( 
        name => '/',
        assoc => 'left',
        precedence => 'equal',
        other => '*', <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	160	275	
==>lined Perl 6 source Prelude fallback, or a real
# precompiled AST of Prelude.pm.

our %Config;
our $TEMP_PRELUDE = " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2763	2865	
==>in;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2763	2865	
==>in;

use strict;
use warnings;
use Pugs::AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28273	28366	
==>FLAG_" prefix.

=item $parser->add_handler($seq, $code)

This method creates a method of the p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19544	19644	
==>p -> $v { sprintf($fmt,$v) }, @$obj );
}
multi as (Hash $obj; $fmt, $comma) is builtin is primitive i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28583	28675	
==>e::KeyedText doesn't define any "Template" modules, but it expects you
to make modules having <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28583	28675	
==>e::KeyedText doesn't define any "Template" modules, but it expects you
to make modules having <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	625	731	
==>evious()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container:: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	625	731	
==>evious()

2005-08-09
* Renamed Lazy::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container:: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	45	176	
==>_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	45	176	
==>_pkg
    =  $?OS eq 'MSWin32' ?? 'File::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6623	6724	
==>ments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method ins <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6623	6724	
==>ments : cannot add siblings to a ROOT tree";
    $self.parent().add_children(@siblings);
}

method ins <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16302	16446	
==>ct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_da <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20728	20872	
==>ct reg_substr_data *substrs;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_da <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	343	476	
==>"lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	343	476	
==>"lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single quote

 # PUBLIC ISO 8879-1986 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29862	29966	
==>emplate module is very simple, consisting mainly of a data-stuffed hash
and an accessor method to read va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29862	29966	
==>emplate module is very simple, consisting mainly of a data-stuffed hash
and an accessor method to read va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16582	16677	
==>$parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16582	16677	
==>$parent_node is not set, then the new Node is instead stored
in its Document's "Root Nodes" attr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2360	2467	
==>od register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a suc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2360	2467	
==>od register_default_handlers() {
    # Default (passive) handlers
    # First event we get, indicating a suc <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7233	7335	
==>he code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7233	7335	
==>he code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse the code into packages, blocks <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2114	2209	
==>2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2114	2209	
==>2 C<< prefix:<∑>(@nums) >>, C<< prefix:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2923	3020	
==>ld load Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Compiler::Some <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2816	2912	
==>ld load Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Compiler::Some <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2821	2931	
==>($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2821	2931	
==>($path);
    my @basechunks = splitdir($base);

    while (@pathchunks and @basechunks) {
        @pathchunks[0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3170	3307	
==>_CLOSE;
    $token{arity} = 0;
  }
  else
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	247	362	
==>1 SYNOPSIS

    # a program that reduces to the value 4

    use Blondie::Nodes; # for easy constructors

    my $pr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2047	2160	
==>TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens whe <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2047	2160	
==>TODO - preprocessing, indexing, etc - lazily
    
# TODO - add support for sparse arrays
#      - what happens whe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6449	6548	
==>,params=>$argl,
				      body=>$body,lvalue=>$lval);
	my $ret = eval($code);
	Carp::confess("p6_new <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25898	26002	
==>", "pretty print list a");
}
{
	my $a = type::variable::free->new;
	my $type = type::operator::arrow->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19016	19115	
==>c.).  If the element is a POSIX class,
the C<data> field is the string "POSIX".  POSIX classes don't <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13060	13159	
==>Return a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHM <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13060	13159	
==>Return a string representation of the set.

For most recurrence sets, this is '-Inf..Inf'.

= ARITHM <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1623	1720	
==>re's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1623	1720	
==>re's also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1412	1522	
==>fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1412	1522	
==>fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n\n"
    if !%done{$data}++ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15878	15974	
==>N

This module provides a system for writing modules that I<compile> other
Perl modules.

Modules <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15878	15974	
==>N

This module provides a system for writing modules that I<compile> other
Perl modules.

Modules <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1321	1479	
==>Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependenc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1321	1479	
==>Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2860	3041	
==>l}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2860	3041	
==>l}} ) eq 'ARRAY' ) {
                push @{$r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m-> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	453	557	
==>lass.new("SomeClass"));

 $class.apply;

 $type =:= ::SomeClass;   # true

=head1 DESCRIPTION

Every vari <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1020	1147	
==>ict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Ent <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1020	1147	
==>ict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 => 'Request Ent <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19637	19730	
==>or
updating their "information schema" records, which in SQL are read-only,
not by using speci <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19637	19730	
==>or
updating their "information schema" records, which in SQL are read-only,
not by using speci <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2212	2358	
==>e;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Boo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2212	2358	
==>e;
    }
    elsif $year % 100 == 0 {
        return Bool::False;
    }
    elsif $year % 4 == 0 {
        return Bool::True;
    }

    return Boo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18662	18764	
==>ew bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn' <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18662	18764	
==>ew bot "object". See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4890	5015	
==>ref,$r);
  $r;
}
sub def_token      { def_thing(\@tokens,1,@_) }
sub def_whitespace { def_thing(\@whitespaces,1,@_) }
sub def_ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5357	5500	
==>$a_file, glob("*"));
        unlink(glob("*"));
        chdir '..';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib.
    system( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20210	20307	
==>s inherit theirs from the base object
class.

The walker() method is also now abstracted -- each n <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	155	263	
==>use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.59';
	@ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	56	157	
==>use Module::Install::Base;
use File::Basename ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0. <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	1288	1424	
==>r(    $dir      );
    }        
    
    return $obj;
}

=head2 $pkg = $src->build( ... )

=cut

### XXX need some good path manipulatio <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3388	3519	
==>ke %.subscription.values».members };
                    default { take %.subscriptions<$_>.members }
                    # FIXME l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12324	12518	
==>, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12318	12512	
==>, $flags, $state )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14612	14711	
==>mended "Good Practice" of ordering the header fields.  Long header
values are not folded.

The optio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14612	14711	
==>mended "Good Practice" of ordering the header fields.  Long header
values are not folded.

The optio <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	867	963	
==>roles will be able to access the Class' private
attributes.  This is "early" method binding.

=he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8642	8738	
==>lf!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8642	8738	
==>lf!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27506	27611	
==>you must create a new
object that is a clone of the first but for the changes.

=back

A Message object ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27506	27611	
==>you must create a new
object that is a clone of the first but for the changes.

=back

A Message object ha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	676	793	
==>ackagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rul <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	676	793	
==>ackagesub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rul <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	223	335	
==>ut the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parser <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	223	335	
==>ut the linked
list is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parser <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18205	18297	
==>on describes the rather complex algorithm that
Module::Compile uses.

First, the source modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18205	18297	
==>on describes the rather complex algorithm that
Module::Compile uses.

First, the source modul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	473	650	
==>$_[1] }
        |   STMT                { $out= $_[1] }
        |   STMT exp            { $out= [ $_[1], $_[2] ] }
        |   exp ';' STMT            { $out= [ $_[1], $_[3] ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24847	24979	
==>ub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (? <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21268	21400	
==>ub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (? <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1230	1353	
==>d Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unproces <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1230	1353	
==>d Media Type',
        416 => 'Request Range Not Satisfiable',
        417 => 'Expectation Failed',
        422 => 'Unproces <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3725	3827	
==>($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character class") if $cc;
    return $S->force_objec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	368	481	
==>rns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	368	481	
==>rns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull returns Str is export {
    return &::( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1054	1163	
==>tty->new->string($node);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10652	10747	
==>heir attributes have reasonable values, and
that attributes or Nodes are not missing.  The defer <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10652	10747	
==>heir attributes have reasonable values, and
that attributes or Nodes are not missing.  The defer <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1699	1787	
==>at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1699	1787	
==>at once

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6701	6808	
==>->noop;
    my $re = $o->raw();
    return $o->mk_eater_for_re('.') if $re eq '.';
    die "didn't implement <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2033	2150	
==>ets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2033	2150	
==>ets

rule siglet {
        [<paramlet> [<[,:]> <paramlet> ]* ]?
}

#rule paramlet {
#        [ <type> <zone>? <varlet> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	647	790	
==>l    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	647	790	
==>l    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNoop   { "; # Noop\n" }
            
            when ::Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	459	566	
==>%att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perld <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	459	566	
==>%att<source> eq %att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perld <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3414	3514	
==>t won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3414	3514	
==>t won't flood

    while(my $mail = get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2706	2836	
==>>new('&repeatedly_apply_and_accum'),
                Sym->new('&infix:<+>'),
                Sym->new('$x'),
                Sym->n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1862	1964	
==>Match> object.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provides the runtime engine for Rules <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2074	2218	
==>LE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2291	2435	
==>LE>;
        # print "Prelude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12090	12218	
==>m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12090	12218	
==>m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1048	1170	
==>ove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@ite <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1048	1170	
==>ove) });
    } else {
        $!members = any();
    }
    return ($pre_size - $self.size);
}

method includes($self: *@ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6785	6929	
==>$label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6785	6929	
==>$label = shift;
    my $node = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8468	8574	
==>lities.  B<Perform your own security analysis before using it in any 
sensitive application.>

B<I<The auth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8468	8574	
==>lities.  B<Perform your own security analysis before using it in any 
sensitive application.>

B<I<The auth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1544	1699	
==>TP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1544	1699	
==>TP/1.0
        
        require URI;
        
        if ($base.defined && $base ~~ /^ <URI::scheme> \:/) {
            # already absolute
            retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4395	4497	
==>e thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # this is the command used to implement 'ev <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4242	4343	
==>e thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # this is the command used to implement 'ev <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2464	2636	
==>orage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2464	2636	
==>orage for the names we
                           # receive after we've done a /NAMES (the numeric
                           # code for /NAMES is 353).
  my $in_login_phase <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11219	11337	
==>rn $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $strin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11219	11337	
==>rn $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $strin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10843	10958	
==>),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11495	11588	
==>tr $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11553	11646	
==>tr $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compar <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1007	1205	
==>r = 2000 + $year;  # XXX - fixme ;)
    }

    if ( $3 ) {
        # day of year ..
        !!!
    }
    elsif ( $4 ) {
        # week of year ..
        !!!
    }
    my $second = $7 || 0;
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22166	22267	
==>those objects.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22166	22267	
==>those objects.  All of
their attributes are private, so you must use accessor methods.  Rosetta
does n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2780	2898	
==>tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to htt <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2780	2898	
==>tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to htt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4079	4164	
==>number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception (" <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4079	4164	
==>number versions of Rosetta::Interface::DBMS
("DBMS"), Rosetta::Interface::Exception (" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	904	1018	
==>argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_A <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	904	1018	
==>argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is undefined.],
    'LKT_ARG_A <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3237	3366	
==>List) {
#  my $maxlen = max map { +$_ }, @arrays;
#  map {
#    my $i := $_;
#    map { @arrays[$_][$i] } 0..@arrays.end;
#  }, 0. <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7054	7176	
==>oto oper_reduce if $topcat < PGE_OPTABLE_TERNARY;
  goto end if $key ne $$top{token2};

  oper_shift:
  push @tokenStack, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2487	2604	
==>+ *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2671	2788	
==>+ *? +? ??
 literal
 [] 
 ()     
 |

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subru <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6300	6462	
==>use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl ve <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5808	5970	
==>use \s*
        v?
        ([\d\.]+)
        \s* ;
    /ixms
      )
    {
        $self->perl_version($1);
    }
    else {
        warn "Cannot determine perl ve <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2266	2367	
==>ub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2266	2367	
==>ub is_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is exp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	740	909	
==>eturn 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	740	909	
==>eturn 
        "do {\n" .
        "    package Pugs::Runtime::Rule;\n" .
        "    my \$matcher = \n" . 
        emit_rule( $ast, '    ' ) . "  ;\n" .
        "  sub { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6636	6729	
==>sion of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTH <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6636	6729	
==>sion of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTH <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28200	28309	
==>_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COPIED_off(rx); \
	 }} STMT_END
 #else
 #d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6792	6907	
==>t postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6792	6907	
==>t postfix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $gr <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	449	549	
==>ad1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc:: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	449	549	
==>ad1 NAME

Perldoc::DOM::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26114	26214	
==>gainst the regex is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern }xgc) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12556	12676	
==>e =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/g <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12556	12676	
==>e =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10688	10774	
==>$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $s <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10688	10774	
==>$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_entity(\$0)}/; return $s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9167	9295	
==>rsor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tests_todo     { co <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2931	3072	
==>302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2931	3072	
==>302 Found",
    Str  :$cookie,
    Bool :$nph,
    *%extra
) returns Str is export {
    my %out;
    
    # XXX provide default for $location <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8328	8439	
==>t::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8386	8497	
==>t::num_of_tests_run) {
        $*ERR.say("# Looks like you planned $Test::num_of_tests_planned tests, but ran $T <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	69	165	
==>essor/;

use strict;
use warnings;
use constant PGE_OPTABLE_EMPTY => 0;
use constant PGE_OPTABLE_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19461	19566	
==>s but that the target relation
variables are system catalog relation variables rather than user-defined
re <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19461	19566	
==>s but that the target relation
variables are system catalog relation variables rather than user-defined
re <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	2097	2201	
==>K

my $file4 = <<'GROK';
1st line
2nd line
3rd line
4th line
GROK

my $file12 = <<'GROK';
1st line
2nd li <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	787	911	
==>d1 SYNOPSIS

    use Blondie::Reducer::DuplicateFinder;

    my $dup_finder = Blondie::Reducer::DuplicateFinder->new;

    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23143	23355	
==>ix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23422	23634	
==>ix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'id', 
             ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17095	17193	
==>ionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17095	17193	
==>ionality was subsumed into a larger package that would otherwise use
it.  Hereafter, if any other p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10686	10802	
==>}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and pr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10686	10802	
==>}");
      $say("USER $.username * * :$.ircname");
    });
  }

  # Process $queue, wait for input from server and pr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6433	6555	
==>r move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "nor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6433	6555	
==>r move to the subclasses
    my $span0 = $self.isa( 'Span' ) ?? $self.span !! $self;
    my $span1 = $param;
    # say "nor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	232	337	
==></title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web se <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	232	337	
==></title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request which this web se <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16087	16220	
==>len    > $maxlen;
        $maxsuflen = $suflen if $suflen > $maxsuflen;
    }
    # + 3 : we want three dots between the test name and <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12598	12709	
==>(CREATE ($canidate %params)))))
     ($self send (BUILDALL %params))
     ($self)))

=cut

$::Class->send('add_m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1064	1176	
==>ody . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1064	1176	
==>ody . "), { ratchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	104	226	
==>::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	104	226	
==>::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runti <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3244	3382	
==>mod) = @_;
    (my $file = $mod) =~ s,::,/,g;
    if (eval { require "$file.pm"; 1 }) {
        return 1;
    }
    else {
        warn "$m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1471	1636	
==>r {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1411	1570	
==>r {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{cap <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	3	126	
==>usr/bin/pugs

use v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	3	126	
==>usr/bin/pugs

use v6;
use Test;

our $PIL = (($*OS eq 'MSWin32') ?? 'pil.exe' !! './pil');

sub check_pil {
    return if -f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2500	2610	
==>ERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $heade <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2500	2610	
==>ERY_STRING>    = $query;
    my $headers = ./parse_headers or do { ./bad_request; return 0 };
    for @{ $heade <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3995	4133	
==>elation-0.1.0 {

    # External packages used by the Relation class, that do export symbols:
    # (None Yet)

    # Attributes of every Re <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4436	4562	
==>o ( Num $x ) {
    my $x_round;

    # round floor above 0, round ceiling below 0
    if $x < 0 {
        $x_round = round_floo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	260	392	
==>od BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	260	392	
==>od BUILD (:$.code, :$.message) { }
    
    method parse (Str $str is copy) {
        my $status_line;
        
        if ($str ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2684	2792	
==>TTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $heade <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2684	2792	
==>TTP_$tag"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $heade <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	2843	2988	
==>t'}         = [ 'POSTINST.pl'   ];
$config{'prerm'}            = [ 'PRERM.pl'      ];
$config{'postrm'}           = [ 'POSTRM.pl'     ];




### g <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1571	1671	
==>aracteristics
#  of particular regex engines.  Its structure follows the spec.  If for
#  instance, y <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26831	26927	
==>_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
provid <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26831	26927	
==>_vars (a hash ref)
sets the "Message Variables" attribute if the corresponding argument is
provid <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5721	5851	
==>($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5721	5851	
==>($cwd);
#    return $cwd;
#}
sub cwd returns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7114	7259	
==>->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) {
			return $x eq $y;
		} else {
			return;
		}
	}
	
	sub reduce_t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2111	2217	
==>oped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mar <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2111	2217	
==>oped marks (but it may also
limit the engine semantically, we shall see).  See C<commit>.

=cut

method mar <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2371	2499	
==>eturns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ----------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2371	2499	
==>eturns Tree {
    for @children -> $child {
        $self.add_child($child);
    }
    $self;
}

## ----------------------------- <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	2173	2271	
==>eval { require Compress::Zlib; debug "Gzip compression on\n" } and
    $compress = sub { Compress:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5976	6076	
==>string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5976	6076	
==>string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemented. Currently, <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12998	13095	
==>infinite if the recurrence is an empty set.

- `stringify()`

Return a string representation of th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12998	13095	
==>infinite if the recurrence is an empty set.

- `stringify()`

Return a string representation of th <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18645	18783	
==>unless defined $totals->{skip_reason};
            $totals->{skip_reason} = 'various reasons'
              if $totals->{skip_reason} ne $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6097	6204	
==>turn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6085	6192	
==>turn call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) if $char e <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7167	7258	
==>n general it is a bad idea

## ------------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7167	7258	
==>n general it is a bad idea

## ------------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6674	6831	
==>bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6674	6831	
==>bool => 1,
            tail => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub { <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12554	12769	
==>nt "$test{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1090	1192	
==>der to make a DAG out of a tree (to gain strong typing)
#	::free - an unbound type variable
#	::instant <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8216	8350	
==>chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "con <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8216	8350	
==>chr(8745),
    "cup"      => chr(8746),
    "int"      => chr(8747),
    "there4"   => chr(8756),
    "sim"      => chr(8764),
    "con <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28118	28213	
==>'t type λf.(pair (f 3))(f 'foo')";
dies_ok { t($no_such_sym) } "all identifiers need to be reso <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27883	27981	
==>ant to have it run by a different executable, such as
a threading perl, or a different version.

If <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4165	4300	
==>e\n" ],
      [ 'file12', $file12, "6th line\n7th line\n" ],
      [ 'file21', $file21, "11th line\n" ],
   );
   for my $r (@tt) { Chec <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4086	4270	
==>p;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == I <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4086	4270	
==>p;
                                return int(( $end - $start + 1 ) / $step);
                            },
                    cis_infinite => sub { return $start == -Inf || $end == I <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	326	440	
==>E

Role - Entities in a program's model (M1)

=head1 SYNOPSIS

 my $role = Role.new("SomeRole");

 $role.addMethod( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3659	3823	
==>= $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3659	3823	
==>= $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_content needs to be ported.  It requires: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	901	1015	
==>CShortcut");
    $optable->addToken("term:\\s", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("t <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2774	2872	
==>f(grep { not $smoke{$_} } qw<pugs_version osname duration summary runcore>) {
    print "The submit <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	275	373	
==>HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	275	373	
==>HELLO' => q[Welcome to the Rosetta DBMS!],
    'ROS_S_GOODBYE' => q[Goodbye!],
    'ROS_S_DBMS_INIT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7319	7422	
==>arser::anyof_close;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2607	2707	
==>T is non-trivial, TEMP isn't.  Minimalism wins.
=cut
my @let_stack;
sub let_gen {
  my($vars)=@_;
  m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33086	33184	
==>umentation.  For now, read the source (!).

=head2 bol

Family: anchor

Types: bol (C<^>), sbol (C< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8387	8534	
==>])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::immediate_statement_rule( \ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	2270	2456	
==>e>).add_children(
                                Tree.new(:node<Sub>).add_children(
                                    Tree.new(:node<Method>),
                                    Tree. <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	97	217	
==>ch_path;
has $!success;

sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must speci <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	97	217	
==>ch_path;
has $!success;

sub set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must speci <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1369	1465	
==>le, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those modul <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1369	1465	
==>le, L<Cipher>; for example, the methods used for actual 
cryptography are there.  See those modul <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2811	2913	
==>hObj;
}

sub cntrl {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) = P6RulesInP5: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12612	12741	
==>ts (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12612	12741	
==>ts (runloop, loggedin)
  my method handle_pseudo(Str $pseudo, *@args) {
    my $event = {
      pseudo => $pseudo,
      args   => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3065	3172	
==>& $_->isa('type'))
        || confess "you can only add types to a list got($_) => " . (CORE::join ", " => @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20680	20787	
==>ted (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17101	17208	
==>ted (?@...)
  $self->add_handler('(?@' => sub {
    my ($S) = @_;
    $S->error(RPe_NOTREC, 1, substr(${&Rx} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12733	12834	
==>);
	\%new;
}

# inherit the set of generic vars to our body
fun: generic_in($.body) = { generic_in($$) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13902	13999	
==>nce (?%.*s...) not recognized

=item RPe_LPAREN (-12)

Unmatched (

=item RPe_RPAREN (-13)

Unmatc <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	732	842	
==>t $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	732	842	
==>t $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10130	10288	
==>cal $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10130	10288	
==>cal $@;
                eval { require "$file.pm" };
                die $@ if $@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1357	1476	
==>=> 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1357	1476	
==>=> 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name => $engine_name ) <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6229	6335	
==>', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6229	6335	
==>', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4012	4124	
==>le: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4229	4341	
==>le: syntax error in program '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "compile: s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4	124	
==>v6;

module File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4	124	
==>v6;

module File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns Str  i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19139	19259	
==>) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19139	19259	
==>) code block. Ending '}' must be
        on its own line in the first column.
    POD - Pod sections beginning with C<^=\ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2719	2845	
==>0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2719	2845	
==>0,0x3F)); # 1.index
      take "=";
      take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18694	18820	
==>nch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20052	20178	
==>nch =>);
      my $cond;

      if (ref $ifthen->{data}[0] eq "ARRAY") {
        (my($true), $cond) = splice @{ $ifthen->{data} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19826	20064	
==>(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	40286	40524	
==>(
                    block->new($e, sub {
                        my $e = shift;                        
                        $e->get('$self:')
                          ->set_attr(
                              symbol->new($e->get('$_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30853	30946	
==>a generic relational operator that returns a new Relation::Example
which has a superset of the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11565	11696	
==>) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11559	11690	
==>) \n" 
        if $str eq '$';
    return "$_[1] ( \$pos == 0 ) \n" 
        if $str eq '^';
    die "'$str' not implemented";
}
sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	79	186	
==>se Config ();
### This adds a 5.005 Perl version dependency.
### This is a bug and will be fixed.
use File:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10363	10467	
==>literal ) );
    return "$_[0] ruleop::constant( \"$name\" )\n";
}
sub node::variable {
    my $name = ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8870	8967	
==>.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currentl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8870	8967	
==>.org>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currentl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8806	8930	
==>} &{} + ~



I think it should be magical at "unboxed" level yes.

I mean, if I use Pugs::Grammar in p5 code

I'd _expect_ th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8515	8635	
==>} &{} + ~

I think it should be magical at "unboxed" level yes.
I mean, if I use Pugs::Grammar in p5 code
I'd _expect_ th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9801	9896	
==>return
value is undefined.

Rosetta::Model's input validation is performed over 2 main phases, w <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9801	9896	
==>return
value is undefined.

Rosetta::Model's input validation is performed over 2 main phases, w <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12167	12262	
==>_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m& <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12167	12262	
==>_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier-m& <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3402	3508	
==>ugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fn <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3402	3508	
==>ugs');
    my $ghc_flags = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fn <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4840	4974	
==>$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = ea <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4699	4833	
==>$data ) {
        next unless $self->can($key);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = ea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27801	27898	
==>C<get_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27801	27898	
==>C<get_msg_key()>

This method returns the Message Key attribute of its object.

=item C<get_msg_va <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8318	8420	
==>not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a secur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8318	8420	
==>not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been reviewed by a secur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1402	1532	
==>int
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1402	1532	
==>int
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s:perl5:g{/} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17826	17919	
==>rver header field contains information about the software being
used by the originating server <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17826	17919	
==>rver header field contains information about the software being
used by the originating server <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3674	3800	
==>module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $modul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3732	3858	
==>module";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $modul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2710	2825	
==>unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2710	2825	
==>unless $field ~~ /^\:/ {
    $field ~~ s:g/_/-/ if $TRANSLATE_UNDERSCORE;
    my $old = $field;
    $field = lc $fie <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2107	2262	
==>elude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2324	2479	
==>elude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # print <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6777	6884	
==>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Some <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6777	6884	
==>)}<channels>.delete($chan)
        if %users{~normalize($event<from_nick>)}<channels>;
    }
  }];

  # Some <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	514	630	
==>debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	514	630	
==>debug(Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1564	1911	
==>(:node<Rat>).add_children(
                                    Tree.new(:node<Int>).add_children(
                                        Tree.new(:node<Bit>)
                                    ),
                                ),
                            ),
                        ),                        
                        Tree.new( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10212	10350	
==>and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10212	10350	
==>and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compil <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2435	2533	
==>IL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2435	2533	
==>IL::Util::Signature $.signature;
    has Perl::Compiler::PIL::Util::Pad @.pads;   # XXX perhaps a h <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14131	14228	
==>ver.com/Rx/paper/

  Some files of interest in the perl sources:
    ./regexp.h ./regcomp.c ./rege <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1946	2069	
==>_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1946	2069	
==>_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return () if $i_start > $i_end;
    return $self.new( start => $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15823	15917	
==>public would.

Alternately, sometimes a program will raise a condition or error that,
while res <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15823	15917	
==>public would.

Alternately, sometimes a program will raise a condition or error that,
while res <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10589	10705	
==>main {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10589	10705	
==>main {
            for %!cookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sor <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	259	368	
==>ub new {
    my ($class, $env, $body) = @_;
    (blessed($env) && $env->isa('closure::env'))
        || confes <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7078	7250	
==>my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something tha <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7542	7714	
==>my($k,$v) = each %$entry ) {
                    my ($ver,$op) = reverse split /\s+/, $v;
                    $op ||= '>=';

                    ### do we have something tha <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8393	8492	
==>:singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo::singleton_test_on_Foo',
  ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8629	8737	
==>node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8625	8733	
==>node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	98	223	
==>lement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things rol <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	98	223	
==>lement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# Things rol <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	296	394	
==>ilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.clo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	296	394	
==>ilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.clo <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2097	2296	
==>alue);
            },

            'array_fetchSize' => sub { # $int
                my $self = shift;
                my $idx = shift;
                my $value = shift;
                scalar @{$sel <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11193	11304	
==>.

- `complement()`

Returns everything (from the universal set) that is not in this recurrence.

- `union( $rec <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11193	11304	
==>.

- `complement()`

Returns everything (from the universal set) that is not in this recurrence.

- `union( $rec <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9708	9992	
==>->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x-1),
                    ),
                ),
            ), <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	8132	8293	
==>nt );
    }
    else {
        dbg "# -- unknown node";
        $ret = " # ??? $tree[0]\n";
        $ret ~= traverse_ast( $_ ) for $tree;
    }

    dbg "# $tree[ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17773	17928	
==>mt,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++;
        }
        my $specifier = substr($fmt,$fi,1); $f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	491	596	
==>DATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	502	607	
==>DATE - move these to prelude using rx:perl

sub subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<(.*?)\>(. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	999	1118	
==>= any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	999	1118	
==>= any($!members.values.grep:{ $_ === none($to_remove) });
    } else {
        $!members = any();
    }
    return ($pre <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4072	4192	
==>span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4072	4192	
==>span();
        }
    }
}

method is_empty () returns bool { return $.span.is_empty }

method is_infinite ($self: ) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6733	6842	
==>onstant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $cha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6733	6842	
==>onstant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return "$_[1] constant( q!$char! )\n" unless $cha <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6668	6837	
==>ht|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6725	6894	
==>ht|legal)\b
        (.*?)
        (=head\\d.*|=cut.*|)
        \z
    /ixms
      )
    {
        my $license_text = $1;
        my @phrases      = (
            'under t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20911	21026	
==>t has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, each of which is an
un <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25463	25578	
==>t has succeeded.

=head2 The Relation Class

A Relation object is an unordered set of tuples, each of which is an
un <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6320	6430	
==>over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to implement 
a constr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6320	6430	
==>over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will want to implement 
a constr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4756	4876	
==>on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4756	4876	
==>on
      # $chan:
      %_channels{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16773	16870	
==>th the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16773	16870	
==>th the Perl 5 blocks, saving the result into a
F<MyModule.pmc> file.

The next time around, Perl 5 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11070	11215	
==>unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    } <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11070	11215	
==>unsafe_chars])/{
            %char_to_entity.exists($0)
                ?? %char_to_entity{$0}
                !! num_entity($0)
        }/;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	10	110	
==>doc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces... <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	10	110	
==>doc::DOM::WS is Perldoc::DOM::Text;

# the mutator for $.content should disallow storing of spaces... <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9429	9539	
==>a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
set size.

- `conta <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9429	9539	
==>a duration.

If the set contains lazy recurrences, it may not be possible to calculate the 
set size.

- `conta <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2458	2555	
==>{...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it sho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2458	2555	
==>{...}

=pod

C<subrule($code)> executes $code, passing the match object as a parameter, and
it sho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9132	9248	
==>olib    => 1 # don't use -I../lib (included by default)
#   prog     => one-liner (avoid quotes)
#   progs    => [ mu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2524	2658	
==>stract_from($file) unless $self->abstract;
}

sub provides {
    my $self     = shift;
    my $provides = ( $self->{values}{provides} | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4736	4892	
==>en{$_->{name}} = 1 for @{$assoc{$_}};
                $prec++;
            }
        }
    }
    $s .= "%%\n" .
        "statement:  exp { return(\$_[0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1740	1843	
==>$inst = JIB::Installation->new;

=cut

### XXX do some smart caching here -- but can't just make it a si <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	52	192	
==>header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	52	192	
==>header_words (*@values) is export {
    my @return;
    
    for @values -> $value is copy {
        my @current;
        
        while ($va <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6322	6436	
==>ontent_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6322	6436	
==>ontent_type = $self.content_type // "";
    
    if ($content_type ~~ m:i,^\s*message/,) {
        $self!set_conten <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1304	1400	
==>.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This progr <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1304	1400	
==>.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rights reserved.

This progr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	12	129	
==>e Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	12	129	
==>e Set::Symbols;

=for LATER

# parsefail :(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9908	10153	
==>symbol->new('$label' => 'symbol')                
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;               
                $e->get('$self:')
                  ->g <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2551	2660	
==>$self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2551	2660	
==>$self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $universe = $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3292	3395	
==>$one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3292	3395	
==>$one, *@args) {
    $one.symmetric_difference(@args);
}
multi sub *infix:<~~> (Set $one, $member) return <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2071	2177	
==>ec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/d <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2071	2177	
==>ec;
  
  catdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14196	14309	
==>nd );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, because the "s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14196	14309	
==>nd );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous span, because the "s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9636	9747	
==>he entire parse tree,
to any depth.  To restrict the depth to which it reaches, pass walker()
an argument:

  my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13468	13564	
==>}) is deprecated -- use (??{})

=item RPe_NOTBAL (-5)

Sequence (?{...}) not terminated or not {} <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1299	1423	
==>ate::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1299	1423	
==>ate::Infinite
    return $.start;
}
method end () returns Object {
    # TODO - change Inf to Date::Infinite
    return $.end <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	933	1067	
==>>{names}{$node} ||= '$node_' . ++$self->{node_counter};
}

sub layout {
	my $self = shift;

	our $indent;

	if (@_ > 1 or "@_" =~ /\n/) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	265	381	
==>_;
    $value = '' unless defined $value; # default to empty string
    bless \$value => $class;
}

# conversion to n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5205	5313	
==>data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5205	5313	
==>data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroize();

Tells the ciph <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5678	5783	
==>y to
# access it until we have know how both these interfaces can be
# addressed.  One possibility is to r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5678	5783	
==>y to
# access it until we have know how both these interfaces can be
# addressed.  One possibility is to r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2179	2284	
==>e, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2237	2342	
==>e, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $result := eval $code;
    if (defined $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12212	12330	
==>reverse @{ $self->{scopes} };
}

sub enter_scope {
    my $self = shift;
    push @{ $self->{scopes} }, [];
}

sub leav <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3373	3491	
==>m' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3373	3491	
==>m' ) || $set2.isa( 'Span::Int' ) )
    {
        my @inter = $.span.intersection( $set2 );
        @inter = @inter.map: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1419	1539	
==>Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1419	1539	
==>Ntilde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2560	2665	
==>ember to do it at both ends!)

=item Encrypting with the exact same key twice can compromise both encrypti <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2560	2665	
==>ember to do it at both ends!)

=item Encrypting with the exact same key twice can compromise both encrypti <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3325	3447	
==>$srcfile;
my $DEBUG;


if(!@ARGV || $ARGV[0] eq '-h'){ 
    print( <<'HELP') and exit;

<< USAGE >>

 % p526.pl        # Co <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3356	3491	
==>= shift;
                undef $self->get_value('@:slots')->[$idx];
            },

            'array_existsElem' => sub { # $int -> $b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22741	22854	
==>mname == ":sigspace" goto words
    if mname == ":ignorecase" goto ignorecase
    goto setpad
  words:
    mname = <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/euler.pl	106	223	
==>: $b }
sub postfix:<!> ($x) { [*] 1..$x >? 1 }
sub e {
	my $ret = 0;

	for 0..1000 -> $i {
		my $old = $ret;
		$ret += <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10774	10883	
==>can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10774	10883	
==>can also use the `+=' operator to add new values into a set;

  $set += (1,2,3,4);

Note that in this instance <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11798	11918	
==>yn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad->n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	207	322	
==>yn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads) {
		return $pad if $pad->n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	235	380	
==>ial meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "q <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	235	380	
==>ial meaning in SGML context
    "amp"      => '&',  # ampersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "q <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10631	10735	
==>ecord from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10631	10735	
==>ecord from the
    # 'person' table, whose 'id' field matches the functions 'person_id'
    # argument, a <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4418	4531	
==>elf->{_smoker} ||= { name => "anonymous" };
}

sub get_tests {
    my($self) = @_;
    my @tests;
    @ARGV = File <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1699	1802	
==>nc;
}

sub compile_to_c {
	my $self = shift;
	
	my $compiled = $self->compile(@_);
	warn "compiled: $com <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16653	16765	
==>turn unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class rang <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13074	13186	
==>turn unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char class rang <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18802	18908	
==>nes and returns an anonymous hash
definition.  While it is obvious that people who would be writing the tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18802	18908	
==>nes and returns an anonymous hash
definition.  While it is obvious that people who would be writing the tex <==
2	/Users/nnunley/pugs/util/combine_tests.pl	343	455	
==>rns the modified reference.
# Note: no copy is made!
#
# Adds a more_events[] with events to each event for which <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	549	647	
==>dator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export symb <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	549	647	
==>dator-0.724.0 {

    # External packages used by the Rosetta::Validator module, that do export symb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	157	284	
==>'&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2084	2210	
==>'&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),
    '&infix:<**> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2521	2620	
==>code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"", <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2521	2620	
==>code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constructor,"", <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10710	10814	
==>"";
    }

    return @switches;
}

=head2 C<_INC2PERL5LIB>

  local $ENV{PERL5LIB} = $self->_INC2PERL5LI <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1415	1538	
==>kernel_local = "vmlinuz";
my $grub_local   = "grub.tar.bz2";
my $pugs         = "../../pugs";
my $pge          = "../../src/ <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2411	2509	
==>r and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2411	2509	
==>r and Nick Ing-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	499	606	
==>orial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pug <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	499	606	
==>orial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pug <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	668	780	
==>s always an optional match.
#   * Parts of the grammar, intended for a tokenizer, are not actually used.
#   * So <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1056	1193	
==>@_" =~ /\n/){
	return join(
		"\n" . ("    " x $indent),
		"(", (map { "$_," } @_)
	) . "\n" . ("    " x ($indent-1)) . ")";
	} else {
	re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11112	11216	
==>terface defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11112	11216	
==>terface defined in the XML DOM spec; it exists as a container
in which Node objects live.  The Document c <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2165	2276	
==>(@progs) {
		my $r = $runtime_class->new;

		my $result;
		
		lives_ok {
			$result = $r->run($prog->{ast});
		} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34234	34325	
==>f_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]>, C<[:^NAME:]>, C<\p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8827	8942	
==>le_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8827	8942	
==>le_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we need the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3945	4041	
==>oving children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3945	4041	
==>oving children

method remove_child_at ($self: Int $index) returns Tree {
    ($self.child_count( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1645	1741	
==>y machine.

# Sidebar: State of Regexp::Parser's Perl6::Rules: it looks like early
# phase develo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	179	296	
==>sub get_file {
    my ($self, %args) = @_;
    my ($scheme, $host, $path, $file) = 
        $args{url} =~ m|^(\w+)://( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8702	8798	
==>push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2527	2623	
==>push @terms, sub { Grammar::Perl6->empty_list(@_) };
push @terms, sub { Grammar::Perl6->varhash(@ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3502	3609	
==>urns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3502	3609	
==>urns Set {
    $one.union($two);
}

# subtraction is difference
#method *infix:<-> (Set $one, Set $two) retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21091	21181	
==>, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21091	21181	
==>, MySQL, Firebird, Teradata,
Oracle, Sybase, SQL Server, Informix, DB2, OpenBase, FrontBase <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36676	36787	
==>ed tuples.

=item C<exclusion (Relation::Example $other!) returns Relation::Example>

This multi-method is a gen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23534	23626	
==>eir own objects, for efficiency, and they can optionally extend the
Relation library's interf <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7663	7787	
==>r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 ) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11140	11264	
==>r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 ) <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5743	5827	
==>implicit.o src/syck/node.o src/syck/syck.o src/syck/syck_st.o src/syck/token.o src/sy <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12610	12706	
==>he header fields with the specified names.

The header field names ($field) are not case sensitiv <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12610	12706	
==>he header fields with the specified names.

The header field names ($field) are not case sensitiv <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12957	13052	
==>head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12957	13052	
==>head2 C<$set1.union($set2)>

=head2 C<$set1 ∪ $set2>

=head2 C<$set1 + $set2>

Returns a new s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9048	9174	
==>ts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9048	9174	
==>ts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my %char_to_entity;
for %entity_to_char.kv -> $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1042	1164	
==>g globals
    # ought to check if the runtime has a hash for this right now this is a non
    # issue since even higher ord <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10763	10929	
==>, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10763	10929	
==>, $port, $path_spec, $secure, $expires, $discard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6885	7019	
==>ts'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements insi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6885	7019	
==>ts'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamements insi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3100	3345	
==>my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    } <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3100	3345	
==>my $i = @tmp[0].shift;
        if defined $i {
            &*push( @ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	685	784	
==>the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<g <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	685	784	
==>the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1046	1146	
==>ge Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1046	1146	
==>ge Content-Type Expires Last-Modified
>;

#my %entity_header = @entity_headers.map:{ uc $_ => 1 };
my <==
2	/Users/nnunley/pugs/util/package-osx.pl	4833	4946	
==>.3pm
        /usr/local/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::Bible::S12.3pm
        / <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14167	14294	
==>rnatives}, $alt ]);

    return $alt;
}

=head2 $bool = $inst->write;

=cut

sub write {
    my $self = shift;
    my $conf = $s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9277	9396	
==>ingleStringCharacter {  # see 7.8.4
      <!before <LineTerminator>> <-[\'\\]> #SourceCharacter but not ...
    | <'\\'> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1138	1242	
==>t> object and a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1138	1242	
==>t> object and a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16117	16259	
==>has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16117	16259	
==>has Str @!perms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$. <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1213	1310	
==>ugging", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1213	1310	
==>ugging", but can be put to other uses as well.

Log::Selective exports a single function, C<note>, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	314	453	
==>meter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	314	453	
==>meter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	291	396	
==>t place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	291	396	
==>t place.
# Wonder how to get rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use <==
2	/Users/nnunley/pugs/util/run-smoke.pl	874	982	
==>ient.pl'); 

chdir($pugs_sandbox) or die "Could change directory: $!";

# '.' needs to be at the front of the <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	105	199	
==>lice<Array>.assuming(:offset(-1) :length(1));

multi sub Array::pop () returns Scalar {
    pop <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16011	16110	
==>rijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16069	16168	
==>rijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39072	39170	
==>ITIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39072	39170	
==>ITIES

None reported.

=head1 SEE ALSO

These Perl 6 packages are the initial main dependents of Lo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3406	3523	
==>xternal packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3406	3523	
==>xternal packages used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4095	4213	
==>:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4944	5062	
==>:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::immediate_st <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10524	10633	
==>max
    mob["islazy"] = islazy
    mpos = pos
    .return (mob)
  err_closure:
    parse_error(mob, pos, "Erro <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1083	1207	
==>the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `r <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1083	1207	
==>the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2016	2134	
==>~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2016	2134	
==>~" vs "~$other.stringify if $DEBUG;
    my $rv =
        (($self.size == $other.size) &&
              ($self.includes( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8726	8843	
==>) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($bloc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8726	8843	
==>) ? $prev_len : $next_len;
            my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($bloc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8581	8705	
==>ence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8581	8705	
==>ence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = Recurrence.new( 
        closure_next => <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	696	809	
==>.
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	696	809	
==>.
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2776	2891	
==>NV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2776	2891	
==>NV{$tag} = $header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	839	971	
==>, $cur);
   }
   $res;
 }

 multi sub reverse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %resu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16863	16960	
==>Content-Encoding header field is used as a modifier to the
media type.  When present, its value in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16863	16960	
==>Content-Encoding header field is used as a modifier to the
media type.  When present, its value in <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1027	1166	
==>ed.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    sub <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1027	1166	
==>ed.

=cut

our class Match {
    has $.from;
    has $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    sub <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1533	1662	
==>ime_t ) returns Date::Gregorian is export {
    Date::Gregorian.new( :year(1970), :month(1),  :day(1),
                        :ho <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1384	1504	
==>n ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * ceil( abs($x) ) }
        when ($_ <  .5) && ($x <  0) { $x_round = sig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	539	644	
==>:Parser::Handlers;


# this handles 'use base "Regexp::Parser"'
# which wouldn't call 'import'
{
  my ($le <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2205	2308	
==>rrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.ge <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2205	2308	
==>rrence => $.recurrence, span => $_ ) };
        my $intersect = $set1.new( recurrence => $.recurrence.ge <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7487	7618	
==>check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	788	919	
==>check if this entry depends on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depen <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6690	6818	
==>lit(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($k <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6690	6818	
==>lit(rx:perl5{[&;]}, $data);
    for @pairs -> $pair {
        my ($key, $value) = split('=', $pair);
        $key = url_decode($k <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13350	13453	
==>ead2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13350	13453	
==>ead2 C<$set1 * $set2>

Returns a new set containing all the elements of C<$set1> which are
not in C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	269	394	
==>lutter because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	269	394	
==>lutter because of unclear design.

    $.from         - The place where this subrule/group started.
    $.to           - The p <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	526	659	
==>add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	526	659	
==>add blib support
        for $.search -> $search {
           for ./find_packages($dir) -> $package {
               my $rel = abs2rel <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19076	19203	
==><'+='>
    | <'-='>
    | <'<<='>
    | <'>>='>
    | <'>>>='>
    | <'&='>
    | <'^='>
    | <'|='>
}
rule Expression :words { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1526	1639	
==>>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1526	1639	
==>>=» (Set $one, Set $two) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi s <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1119	1238	
==>ess ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1119	1238	
==>ess ?@path;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	227	334	
==>s export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $dire <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	227	334	
==>s export { 'nul' }
sub case_tolerant returns Bool is export { 1     }

## Splitting

sub splitdir (Str $dire <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22524	22708	
==>ymbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            } <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42313	42496	
==>ymbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')->id;
            } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1686	1810	
==>ile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class shou <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1686	1810	
==>ile() { $?SELF }   # no compilation phase
    method run($input, $match) {
        $.parse(
            # XXX this class shou <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3245	3371	
==>ee}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = sh <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3245	3371	
==>ee}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfix {
    my $tree = sh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5029	5165	
==>ent<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5029	5165	
==>ent<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28412	28510	
==>erride this,
or you can use the C<-v> switch in the F<prove> utility.

=back

=head1 EXAMPLE

Here' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5235	5347	
==>xport {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PA <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5235	5347	
==>xport {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $path = %*ENV{'PA <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1305	1430	
==>@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemaker_args <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	643	767	
==>@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemaker_args <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5056	5154	
==><slice (num, num) returns list>

=item B<length () returns num>

=item B<elem () returns num>

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26419	26537	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match::get( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26698	26816	
==>$rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_application =>  match::get( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17427	17535	
==>ontrols the compilation process, calling each compiler
at the right time with the right data.

=item *

Abili <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17427	17535	
==>ontrols the compilation process, calling each compiler
at the right time with the right data.

=item *

Abili <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6601	6722	
==>ded in a core program file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6601	6722	
==>ded in a core program file and hence
        # should never be loaded by translate_message().
        my $module_is_loaded <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1066	1189	
==>pr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./ge <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1066	1189	
==>pr') }

            when ::Perl::Compiler::PIL::PILThunk  { 
                $ng.ret("$INS\::p5_make_thunk( sub () \{ { ./ge <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1409	1577	
==>o be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require UR <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1409	1577	
==>o be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./header('Base');                 # HTTP/1.0
        
        require UR <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3886	3997	
==>or {

    # External packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (No <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3886	3997	
==>or {

    # External packages used by the Locale::KeyedText::Translator class, that do export symbols:
    # (No <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3770	4032	
==>NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3770	4032	
==>NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15413	15508	
==>ntities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15413	15508	
==>ntities::decode($a);
  $encoded = HTML::Entities::encode($a);
  $encoded = HTML::Entities::encod <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2322	2463	
==>aram('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2322	2463	
==>aram('foo');
    
    $q.param('foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delet <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	730	842	
==>..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	730	842	
==>..$x }
# multi ∞()       { Inf } -- doesn't work
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5149	5265	
==>== any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8626	8742	
==>== any( $!heading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	679	782	
==>ive { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1269	1372	
==>ive { shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1141	1243	
==>t;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1141	1243	
==>t;
    my $path = "$self->{API}{install_lib}/auto/$self->{API}{modpname}";
    my $obj  = $self->{API}{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	353	476	
==>ew { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	385	508	
==>ew { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $source, { p=>1 } )
    # $class->c <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8395	8511	
==>pan );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8395	8511	
==>pan );
    
    return Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5192	5320	
==>aren = SvOK(lp) ? SvIV(lp) : r->nparens;
      r->lastcloseparen = SvOK(lcp) ? SvIV(lcp) : r->nparens;
    }
    else {
      whi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1182	1321	
==>e team expressed some interest in perhaps
# maintaining the capability if created, and in perhaps accepting
# patches to remove roadblocks i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	407	540	
==>5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	504	637	
==>5, "\n";

{
    print "P5 regex benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        s <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2647	2752	
==>() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2647	2752	
==>() );
}

=pod

=head1 NAME

Test::Builder - Backend for building test libraries

=head1 SYNOPSIS

  module <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8080	8209	
==>n Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8080	8209	
==>n Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15948	16132	
==>{ ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15942	16126	
==>{ ident => $subrule, 
              rule => 
                "$_[1]         do {\n" . 
                "$_[1]           push \@match,\n" . 
                    call_subrule( $subrule, $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18902	19012	
==>ry different from SQL, it
is fully capable of modelling anything in the real world accurately, and it
can suppo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18902	19012	
==>ry different from SQL, it
is fully capable of modelling anything in the real world accurately, and it
can suppo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2540	2634	
==>n't yet have object support, this module is more like the
Perl 5 File::Spec::Functions module t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2540	2634	
==>n't yet have object support, this module is more like the
Perl 5 File::Spec::Functions module t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26101	26197	
==>(Set of Str $attrs!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30653	30749	
==>(Set of Str $attrs!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16889	17045	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17168	17324	
==>_block->( $match ) ],
        }; 
    }
;
    push @statements, \&block;
*{'macro_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	146	232	
==>:Grammar::Rule;
use Pugs::Runtime::Match;
*{'immediate_statement_rule'} = Pugs::Compile <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16084	16190	
==>h the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16084	16190	
==>h the resource was last
modified. I<E.g.>:

  # check if document is more than 1 hour old
  if my $last_mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16052	16146	
==>some
situations, a shared program component may raise such a condition, and one
application may <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16052	16146	
==>some
situations, a shared program component may raise such a condition, and one
application may <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	4005	4123	
==>item) = $rules[$i] =~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rules ) {
        last unless $ru <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4824	4914	
==>h to fix this please refer to:

   http://www.haskell.org/ghc/docs/5.04/html/building/winbu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16560	16678	
==>0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16560	16678	
==>0, 1) eq ":";
    return $str;
  }

  sub normalize(Str $str) returns Str { return lc $str }
}

=head1 NAME

Net::IRC:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	744	849	
==>}
    bless \%values => $class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to other <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2362	2456	
==>s L<Blondie::Backend::Perl>, which happens to be
an interpreter.

=over 4

=item Thunk

Somethi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9083	9255	
==>cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delet <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9083	9255	
==>cookie;
                
                my $version = %hash.delete('version');
                my $path    = %hash.delete('path');
                my $domain  = %hash.delet <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6023	6134	
==>$sn eq 'our') {
	warn "our PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad no <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5814	5929	
==>es) = @_;
  no strict 'refs';
  my $stash = \%{ ref($self) . "::" };
  undef $stash->{$_} for @handles;
}


1;

__EN <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1258	1361	
==>g dependencies.  Please wait...\n\n";

    # XXX - instead of --user, use our own package-conf storage p <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	419	542	
==>> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # f <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	419	542	
==>> <type>?
        <submodifer>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule lexicalsub { # f <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12509	12610	
==>$comment);

Checks if the given line is a comment.  If so, it will place it into
C<$comment> (sans #). <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4487	4589	
==>needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{'P <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4487	4589	
==>needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV{'P <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5849	5975	
==>e found a GHC directory.  Find the latest
            # ghc inside that.  Sort versions from highest to lowest.

            my <==
2	/Users/nnunley/pugs/util/package-osx.pl	1233	1339	
==>ocal/lib/libreadline.a
        /usr/local/lib/libhistory.a
    );
}
if ($bundle =~ /pugs/) {

    %symlinks <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	92	201	
==>l Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
pr <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	88	197	
==>l Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1326	1458	
==>::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1326	1458	
==>::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DBMS.new(
            engine_name <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6253	6437	
==>e.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9730	9914	
==>e.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $other!) re <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6821	6950	
==>e""pSubName""pSubParams""pSubType"
        dbg "# keys: ",%pad.keys;
        dbg "# Body:       "; my $body =     traverse_ast ( % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	75	169	
==>ompiler::Rule;
use Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs::Grammar::Opera <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2274	2375	
==>ke this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUI <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2274	2375	
==>ke this until pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUI <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3767	3873	
==>)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, s <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3767	3873	
==>)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the group).  In the
latter, it will be, s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	9687	9917	
==>)
                      ); 
                })
            ); 
            $e->get("$method"); 
        }
    )
);


 
(($::ENV) create 
    ("*::WALKCLASS" 
        (closure new             
            (($::ENV)
             (clo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	771	903	
==>->{current_node} = $_;
		"$name = " . $self->reduce($_) . ";\n\n";
	} @nodes, $program);

	$out;
}

sub make_name {
	my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6297	6391	
==>s{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6297	6391	
==>s{$chan}<users>.delete(normalize $event<from_nick>);
        %!users{normalize $event<from_nick <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3226	3344	
==>d( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3226	3344	
==>d( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31666	31764	
==>he program is run, it would
determine either from a user config file or a user interface that the
c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31666	31764	
==>he program is run, it would
determine either from a user config file or a user interface that the
c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21410	21833	
==>ly_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation: <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	839	948	
==>r
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set! <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	839	948	
==>r
{
    return +@!results + 1;
}

method plan ( Str $explanation?, Int $tests? )
{
    fail "Plan already set! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8578	8703	
==>et' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8566	8691	
==>et' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, bless \\\$hash, 'Pugs::Runtime::Match <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11279	11387	
==>.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11279	11387	
==>.last_traffic = time;

    if $line ~~ rx:P5/^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6311	6458	
==>_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6299	6446	
==>_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    ... sub { 
        my <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4319	4424	
==>starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4319	4424	
==>starting with '#' or ';' are comments, and blank lines are ignored.

When writing back to the config file, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32287	32388	
==>Locale::KeyedText expects its Template modules to come
from Perl modules, but in the future they may a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32287	32388	
==>Locale::KeyedText expects its Template modules to come
from Perl modules, but in the future they may a <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	38	138	
==>ict;

use Getopt::Long;
use LWP::UserAgent;

use constant VERSION => 0.4;
sub debug($);

our $compres <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3694	3791	
==>d is a scope.t test file.

=item Memory

One sees both segfaults and memory exhaustion when runnin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4512	4616	
==>uced
to 11.

Inherits Unit.

=item Stub

A node that makes the runtime throw a fatal error. Used for thun <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7594	7706	
==>}
    $results{passing} = 0 unless $? == 0;

    $self->_restore_PERL5LIB();

    return %results;
}


eval { req <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	480	580	
==>ethod on a Class, it is bound to that
Class' C<Type> object immediately; however, in the case of a Ro <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17920	18007	
==>BitwiseORExpressionNoIn>
    | <LogicalANDExpressionNoIn> <'&&'> <BitwiseORExpressionNoI <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6754	6878	
==>y $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersectio <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6754	6878	
==>y $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersectio <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5037	5307	
==>die $?;
                    system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                    and die $?;
                    push @bins, $script;
                }
                
                ### add thi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4257	4483	
==>die $?;
            system( qq[ln -fs $Alternatives/$script $Bindir/$script ] )
                                                                and die $?;
            push @bins, $script;
        }
        
        ### add thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8656	8785	
==>t @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8849	8978	
==>t @rule_terms, \&variable_rule;
*{'runtime_alternation'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2798	2925	
==>ead>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Sy <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2798	2925	
==>ead>( 'cfg.ini' ) || die $cfg<err_str>();

    # Reading properties 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Sy <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1835	1949	
==>on extension modules built from top level.
    delete $args{prefix}
      unless Cwd::abs_path(Cwd::cwd()) eq Cwd:: <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1162	1261	
==>ole Getopt::Argument::Normalizer::Null { }

    role Getopt::Argument::Coercer::Null { }
}

module G <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4027	4167	
==>()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4027	4167	
==>()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        " <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	650	765	
==>ef,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argumen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	650	765	
==>ef,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argumen <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2438	2561	
==>ke encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octe <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2438	2561	
==>ke encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my Int @octe <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3065	3188	
==>requires into prereq_pm
    my $subdirs = ($args->{DIR} ||= []);
    if ($self->bundles) {
        foreach my $bundle (@{ $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7852	7954	
==>- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleop::null <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7585	7684	
==>- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleop::null <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12457	12562	
==>ing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12457	12562	
==>ing of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9859	10019	
==>( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10138	10298	
==>( "\(" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5778	5882	
==>ls we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5778	5882	
==>ls we've joined.
  # Somebody joined. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $ev <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	197	304	
==>S is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	197	304	
==>S is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOODBYE' => q[Light goes off!],
    'MY <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	4699	4820	
==>3
        { $_[0]->{out}= { op1 => 'method_call', self => $_[1], method => $_[3], param => $_[4], } }
        

    | MY N <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	804	915	
==>dule::Install core packages now require synchronised versions.
    # This will be used to ensure we don't accide <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3665	3763	
==>ch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yester <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3665	3763	
==>ch time, returns a Date object based on that epoch.

- `new( 'now' | 'today' | 'tomorrow' | 'yester <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5241	5370	
==>/tmp-$basename";
        mkdir $dir;
        chdir $dir;
        system($ar, x => $a_ext);
        system($ar, r => $a_file, glob( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1033	1125	
==>= Devel::STDERR::Indent::indent;
	warn "annotation: $node";
	warn "reducing " . $node->struct <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5605	5721	
==>platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5605	5721	
==>platform hack
#sub cwd returns Str is export {
#    my @retval = system("cd");
#    my $cwd = @retval[0];
#    chomp( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2109	2246	
==>ib6/lib/Prelude.pm.yml";

    build_lib($version, $ghc, @args);
    build_exe($version, $ghc, $ghc_version, @args);

    if ((!-s $ppc_yml <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8581	8679	
==>is might be to run a threaded Perl, for example.

You can also overload this method if you've built <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13325	13453	
==>$S0
    goto scan
  addrange:
    isrange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22527	22621	
==>his library provides a partial implementation, in the form of several
roles, for a Relation dat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	629	745	
==>y $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can hav <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1113	1229	
==>y $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the fields in the file
    ### so we can hav <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1475	1599	
==>les_list( $pkg_name )

=cut

sub files_list {
    my $self = shift;
    my $pkg  = shift        or return;
    my $dir  = $se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4276	4374	
==>$class);
}

sub is_arrow {
	my $self = shift;
	$self->{class_that_should_be}->is_arrow;
}

sub spla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19485	19621	
==>on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15906	16042	
==>on .= $_;
        $f_on |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2740	2896	
==><@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2924	3080	
==><@var>             -- special-cased for array-of-rule (but not Rule|Str)
 \char              -- not all chars implemented
 {code}             -- non-capturin <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1408	1534	
==>$sym->{$cwd} = sub {
        my $pwd = Cwd::cwd();
        if (my $code = $sym->{$pwd}) {
            goto &$code unless $cwd e <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20601	20712	
==>|0 == 1 ) &&  ! exists $val->{_files} ) {
	    my $subsubdir = (keys %{$val->{_dirs}})[0];

	    # Update the ar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5789	6015	
==>( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6253	6479	
==>( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1282	1385	
==>p( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1282	1385	
==>p( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5410	5530	
==>ngth($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$cls emit() unimplemente <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	228	334	
==>Exporting still doesn't work quite right.
# package Parser;

# use lib '../Chap6';
use Stream;# :all;

# us <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1178	1275	
==>Type--Perl6>) disambiguates this case.

Types have a dispatch table; this is a collection of funct <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5462	5625	
==>Pugs::Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5292	5384	
==>can.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEM <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5292	5384	
==>can.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEM <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10650	10785	
==>{
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10650	10785	
==>{
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my :($version, $val, $port, $path_spec, $s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	581	695	
==>Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	581	695	
==>Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22792	22888	
==>The Rosetta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Inter <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22792	22888	
==>The Rosetta::Interface::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Inter <==
2	/Users/nnunley/pugs/util/func_refact.pl	1772	1874	
==>->{$t} or $ignoring{$t};
	        print "unionising $new: adding $t on account of $f\n" if $Conf{verbos <==
2	/Users/nnunley/pugs/util/package-osx.pl	2646	2747	
==>bin/p6doc
        /usr/local/usr/bin/pugs /usr/local/bin/pugs
        /usr/local/usr/bin/pugscc /usr/l <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	299	417	
==>ot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::I <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	299	417	
==>ot join all channels it's
invite to

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::JoinOnInvite;

  my $bot = Net::I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	656	921	
==>:Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta::Model::Document class, tha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	656	921	
==>:Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosetta::Model::Document class, tha <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	404	513	
==>ther) {
    ...
}

method &infix:«<»($self, Perl::Param $other) {
    ...
}

# maybe something like  this?
t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9182	9327	
==>rite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lis <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9182	9327	
==>rite this checking 'elems()'
                        # XXX - the list would normally stop after the first 'undef'
                        for @lis <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	673	769	
==>n fact, maybe the following syntax could auto-define the extra
# types for 1 to 1 correspondance! <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4102	4197	
==>0]{ident};
		return { use_bareword => $() ,} 
	}
RULE
*{'term1'} = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2242	2381	
==>ep = sub{
      print STDERR Data::Dumper::Dumper $Z::oop{$id} if $debug;
      my $reduce_helper = sub {
        print STDERR "reduce\n" if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32844	32936	
==>Regexp::Parser::>, but that is omitted
here for brevity.  The headings are object I<classes>. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	751	885	
==>(shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub env { (shift)->{env} }

sub <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	964	1064	
==>anted = [$wanted] unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wanted !! [$wanted];

  retu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18442	18561	
==>into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREF <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18442	18561	
==>into a shallow tree of blocks:

    PREAMBLE:
        (SUBROUTINE | BAREBLOCK | POD | PLAIN)S
    PACKAGES:
        PREF <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	460	613	
==>ema;

    for my $class ( $schema->classes ) {

        class($class->name =>
              { instance =>
                { methods => { map { $_->name => <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	532	636	
==>companion => "superclasses" });

# every Meta::Class is a part of an object model object called the
# sch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2856	2959	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value obje <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2856	2959	
==>lass, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value obje <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6332	6437	
==>le span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6332	6437	
==>le span, with a simple functional API.

= SYNOPSIS

  use Span::Num;

  $span = Span::Num.new( start => $s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15201	15312	
==>bination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= new( he <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18678	18789	
==>bination work.
    # Start with identity-one relation and join all sources to it.
    my Relation $r1 .= new( he <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	906	1033	
==>d C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	906	1033	
==>d C<$low> times, and
backtrack by matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14548	14658	
==>nspecced) facade class supplying localtime
class Time::Local {
    has Int  $.year;    # eg., 2005; "pre-Gregor <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	858	974	
==>) ? $_ : ()) } @seqs);
        # return the list if we have no more no-empty sequences
        return list->new(@res) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	212	330	
==>) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	212	330	
==>) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8137	8264	
==>pt each node as it is parsed, use the next() method:

  while (my $node = $parser->next) {
    # $node is a Regexp::Parser::* ob <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	769	893	
==>>{clean} ||= {};
    %$clean = (
        %$clean, 
        FILES => join(" ", grep length, $clean->{FILES}, @_),
    );
}

su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	154	268	
==>mpiler

    Compiler::Perl6

    Compiler::Rule

    Compiler::YAML

    Compiler::Perl5

    Compiler::Parrot

- A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	142	250	
==>mpiler
    Compiler::Perl6
    Compiler::Rule
    Compiler::YAML
    Compiler::Perl5
    Compiler::Parrot
- A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6676	6830	
==>ch->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6460	6605	
==>ch->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1530	1649	
==>n_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1530	1649	
==>n_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.nick,
    Str $.ircname <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1548	1652	
==>st}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1688	1792	
==>st}{capture})};

    if ( $self->{ratchet} ) {
        $self->{perl5} = Pugs::Emitter::Rule::Perl5::Ratch <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1422	1544	
==>lde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1422	1544	
==>lde"   => 'Ñ',  # capital N, tilde
    "Oacute"   => 'Ó',  # capital O, acute accent
    "Ocirc"    => 'Ô',  # capital O <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	59	168	
==>ads (or
# should head) up every core test program to prepare it for running.
# Now instead of:
#
# BEGIN { <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1577	1685	
==>nd = sign($x) * ceil( abs($x) ) }
    }
    return $x_round;
}

our Int multi Num::round_half_even ( Num $x ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39257	39351	
==>ne::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39257	39351	
==>ne::Example>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2515	2775	
==>ent>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2515	2775	
==>ent>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my $_line = $fh.readline;
                        while ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28085	28188	
==>_vars()>

This method returns all Message Variable names and values of this object as
a hash ref.

=item <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28085	28188	
==>_vars()>

This method returns all Message Variable names and values of this object as
a hash ref.

=item <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13781	13902	
==>ype (see package val above)
val: type($$) = { $.t }

# combs (applications) pass their env to eval their children
comb: en <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	153	256	
==>e '_inc.pl';
    protoconf->import();
}

@ARGV or die 'Need at least one archive';

INSTALL: for my $arc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26502	26595	
==>ust be
mutually distinct.

=item C<$!is_mutable> - B<Relation::Example Is Mutable>

Bool - Thi <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16465	16558	
==>:unify(
		type($.if), type::operator::nullary->new("bool"),
		$.if, "bool",
	);

	types::unify <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1565	1675	
==>NCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $stat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1565	1675	
==>NCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? = 'text/html',
    Str  $stat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2356	2469	
==>hed.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2573	2686	
==>hed.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17994	18097	
==>);

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns a dee <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17994	18097	
==>);

=back

A Node object has these methods:

=over

=item C<export_as_hash()>

This method returns a dee <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13981	14110	
==>ur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17458	17587	
==>ur first, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3630	3771	
==>";
            $_[0]->{out}= { op1 => $_[2], name => $_[3], block => $_[8], %{$_[5]}, %{$_[7]} } 
        }

    | block        
        { $_[ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1186	1294	
==>on") or $CGI->param("version") != VERSION) {
    print "Versions do not match!";
    exit;
  }

  if(not $CGI <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4439	4546	
==>zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4439	4546	
==>zeroize() {
    @.state[$_] = $_ for 0..255;
    $.i = $.j = 0;
}

method generate_keystream(Int $n) returns <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	562	671	
==>Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better name <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	562	671	
==>Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - better name <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14945	15097	
==>fined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14945	15097	
==>fined $key {
          enqueue "JOIN $channel $key";
        } else {
          enqueue "JOIN $channel";
        }
      }
    },
    part  => -> Str $ch <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1188	1291	
==>eturns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» ( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1188	1291	
==>eturns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» ( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10657	10787	
==>.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10657	10787	
==>.density ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33266	33360	
==>oned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a generi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37816	37910	
==>oned.

=item C<intersection (Relation $other!) returns Relation>

This multi-method is a generi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2005	2139	
==>subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2016	2150	
==>subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_star,
        ruleop::alternation( \@rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12497	12629	
==>$runperl .= ' 2>&1'          if  $args{stderr} && !$is_macos;
    $runperl .= " \xB3 Dev:Null" if !$args{stderr} &&  $is_macos;
    i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6109	6194	
==>e = shift;

	$self->find_immediate_dyn_sym($node->struct_equiv->val->struct_equiv)->va <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37975	38070	
==>that subroutine's result, which is a Template text
string if the module recognizes $msg_key, and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37975	38070	
==>that subroutine's result, which is a Template text
string if the module recognizes $msg_key, and <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20246	20344	
==>to maintain and
and easy for developers to study.  As a result, while it performs correctly
and rel <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20246	20344	
==>to maintain and
and easy for developers to study.  As a result, while it performs correctly
and rel <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	98	229	
==>ng algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per h <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	98	229	
==>ng algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBucket;

    # configure a bucket to limit a stream up to 100 items per h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8001	8127	
==>}
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implemen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5406	5523	
==>}
    }

    rule statement {
        <category.parse> ...
    }

=head1 DESCRIPTION

This module provides an implemen <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1279	1382	
==>/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concat <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1279	1382	
==>/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of lists
# - list concat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23837	23948	
==>The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23837	23948	
==>The Perl 6 module L<Rosetta::Shell> is bundled with Rosetta and implements
a command shell for the Rosetta DBMS. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6707	6805	
==>s to match next, but there is not currently a way of extracting a
complete grammar.  This may chang <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3194	3316	
==>compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersectio <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3194	3316	
==>compare( $^b.span ) };

    # XXX - why this doesn't work?
    #.sort:{ $^a.span.compare( $^b.span );
}

method intersectio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4607	4727	
==>capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        pr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4390	4505	
==>capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0]));
        pr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8832	8933	
==>thod union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_paramet <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8832	8933	
==>thod union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) = _normalize_paramet <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4335	4445	
==>0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13979	14117	
==>'..' or '\-')")
    goto end
  err_close:
    parse_error(mob, pos, "No closing ']>' for charlist")
  end:
    .return (mob)
.end

.sub "pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21408	21523	
==>mmand. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21408	21523	
==>mmand. Note that the
socket usually stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18348	18459	
==>('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14769	14880	
==>('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    return $S->object(an <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4434	4553	
==>f !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7911	8030	
==>f !(all( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!bod <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	484	590	
==>e Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	484	590	
==>e Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGHT

Copyright (c) 2005, Flavio S. G <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17487	17587	
==>e right time with the right data.

=item *

Ability to ship precompiled modules without shipping Modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17487	17587	
==>e right time with the right data.

=item *

Ability to ship precompiled modules without shipping Modu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7119	7220	
==>llow for
any modifiers).

=item I<end_element ('header')>

This event is fired after the '=head(n)' di <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7119	7220	
==>llow for
any modifiers).

=item I<end_element ('header')>

This event is fired after the '=head(n)' di <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3543	3662	
==>chable';
    return 'perl6_object';
}
sub p6_ref {
    my $x = shift;
    return 'undef' if !defined $x;
    my $ref = r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20842	20953	
==>iles. Module::Compile installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20842	20953	
==>iles. Module::Compile installs a
Module::Install::PMC plugin. All you need to do is add this line to your
Makefi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3429	3523	
==>"-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing- <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3429	3523	
==>"-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-missing- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2337	2442	
==>f.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new(). <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2337	2442	
==>f.closure_next === $set.closure_next
}

method stringify ($self: ) returns Str {
    my $tmp = Span.new(). <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2248	2355	
==>e: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2259	2366	
==>e: <term>\* creates a term named 'star'
*quantifier = 
    ruleop::alternation( [
        ruleop::capture( ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1227	1399	
==>() {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1227	1399	
==>() {
        $!uri;
    }
    
    our &url ::= &uri;
    
    method as_string (Str $newline = "\n") {
        my $req_line = $.method // "-";
        my $uri = (./uri().de <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1013	1127	
==>nce of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1013	1127	
==>nce of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_s <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5938	6057	
==>tor
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5938	6057	
==>tor
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33241	33341	
==>er
they appear in this array until a match for that message is found.  Since a
program or library may <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33241	33341	
==>er
they appear in this array until a match for that message is found.  Since a
program or library may <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10065	10166	
==>te evaluation will not be set at all.  The scope of immediate
validation is kept to the minimum possib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10065	10166	
==>te evaluation will not be set at all.  The scope of immediate
validation is kept to the minimum possib <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1152	1288	
==>has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     = <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1152	1288	
==>has Str  $.diagnostic;
    has Str  $.description;

    submethod BUILD (
        $.description,
        $.passed,
        $.number     = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3449	3654	
==>+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3315	3508	
==>+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5489	5644	
==>>{param}{sub}{bareword} eq 'v6' ) {
                return " # use v6\n";
            }
            # use module::name 'param'
            return "use " <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	802	927	
==>1 ) {
        warn "More than one result found, using highest versioned\n";
    }
    
    my $found = $metas[0];

    my @to_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21633	21726	
==>ss_member(class_neg(X)         ,C) :- catch(\+(char_type(C, X)),_,fail), !.
class_member(class <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7497	7654	
==>e_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'tab <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7497	7654	
==>e_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id', 'mandatory' => 1 } ],
            [ 'tab <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5580	5681	
==>kahead(R))        --> "(?=",  !, p5_start(R), ")".
p5_elemental(lookahead_not(R))    --> "(?!",  !, p5 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32428	32535	
==>der to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36978	37085	
==>der to the invocant relation.  This
method has an alias named C<plus>.

=item C<union (Relation *@others) re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	20500	20607	
==>acros{$name}=$mfun;
}

sub p6_container_for_var_CODE {
    my($name)=@_;
    return "\$${ROOT}::Scalar::META <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4444	4735	
==>r args $arg";                        
                        $args .= ', ' . $arg;
                    }
                }
                @t = ('->' . $t . "($args)");                
            }
        } 
        
        $depth--;
        
        reverse @t;    
    }
}

my $source = <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11989	12116	
==>y $self";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    push @{ $self->{scopes}[-1 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2124	2229	
==>ually runs, is efficient,
#     and has captures for easy use of the resulting matches.
#   * Perhaps defi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4427	4529	
==>iler/Language/Perl6.yaml

  # this is the command used to implement 'eval( ... , :lang<name> )'

  my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4274	4374	
==>iler/Language/Perl6.yaml
  # this is the command used to implement 'eval( ... , :lang<name> )'
  my $ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4070	4339	
==>(.*?)                                     # Leading bit
                  (L <+
                    ($quotable)(?:/($quotable))?             # Normal bit of link 
                        (?:
                          \s+                                   # Whitespace be <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20322	20424	
==>E<gt>()>

Returns a true value if the bot's socket to the server is currently connected.

Note that you <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20322	20424	
==>E<gt>()>

Returns a true value if the bot's socket to the server is currently connected.

Note that you <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4657	4780	
==>( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4657	4780	
==>( $match->() );
}

{
    my $match = $grammar->parse( '3*4+5' );
    #print Dumper $match->();
    ok( 
        postfix( $ma <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12050	12193	
==>)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12050	12193	
==>)
/xsm;

my $re_comment = qr/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23547	23645	
==>sor method can be used to see if a Relation-doing object
can mutate.  Depending on the implementing <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28099	28197	
==>sor method can be used to see if a Relation-doing object
can mutate.  Depending on the implementing <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24486	24579	
==>mmand is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24486	24579	
==>mmand is not modified by C<Net::IRC>,
aside from appending the correct newline characters.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17132	17229	
==>ackage that would otherwise use
it.  Hereafter, if any other package or application says that it u <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17132	17229	
==>ackage that would otherwise use
it.  Hereafter, if any other package or application says that it u <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9397	9561	
==>");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            whe <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9397	9561	
==>");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "&" }
            when "quot" { '"' }
            whe <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12257	12391	
==>_" => "$initrd_mnt/$_";
        }
      }
    };

  my @pge = map { s/^\Q$pge//; $_ } glob "$pge/* $pge/*/* $pge/*/*/*";
  step
    des <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	362	458	
==>asibility and performance reality check")
# spike has succeeded.  The most of the re_tests are pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2046	2152	
==>";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1728	1830	
==>";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" . $name->to_str->to_n <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2530	2641	
==>est $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.r <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2530	2641	
==>est $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.output.write( $test.r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17938	18066	
==>s' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17938	18066	
==>s' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<export_as_has <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	223	306	
==>-----------------------------------------------------------------------
## construct <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	223	306	
==>-----------------------------------------------------------------------
## construct <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2006	2153	
==>f.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2006	2153	
==>f.size == $other.size) &&
            ($self.includes($other.members)));
}

method not_equal($self: Set $other) returns Bool {
    return !$self.equ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17006	17109	
==>dule just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17006	17109	
==>dule just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> module will <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16396	16514	
==>lti sub round_gen(Num $n, Code $corner) returns Int is primitive is safe {
        (int($n) == $n) ?? int($n) !! $corne <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8614	8735	
==>Ps); /*XXX needed? */
      expr_code = POPs;
      PUTBACK;
      expr_result = eval_pv(SvPV_nolen(expr_code),0);
      S <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11002	11119	
==>ame>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11152	11269	
==>ame>
    $code =~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	285	396	
==>1
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	285	396	
==>1
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like structures

rule lexicalsub { # from <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1622	1732	
==>ll_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1622	1732	
==>ll_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node.new( do <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9806	9923	
==>ompile '$_[0]' ?\n";
    return "$_[1] $_[0]  # XXX - code\n";  
}        
sub node::dot {
    return "$_[1] \\&{'${na <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1980	2080	
==>my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1980	2080	
==>my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTION

Perl 6 port of <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8049	8149	
==>deleted immediately.  This method should be as thorough as 
possible; for example, it should not mere <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8049	8149	
==>deleted immediately.  This method should be as thorough as 
possible; for example, it should not mere <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	109	214	
==>aph.png   --or
#        svn log > /tmp/log; util/svnlog2graph /tmp/log > /tmp/graph.png

use warnings;
use <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4969	5065	
==>lf->load_extensions(
        "$self->{prefix}/$self->{path}", $self
    ) unless $self->{extensio <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	17372	17476	
==>r!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20849	20953	
==>r!heading.difference( $!heading );

    return Relation.new(
        heading => $!heading.union( $other!h <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18998	19105	
==>KeyedText is only meant to be used with user text that is
associated with hard-coded program conditions.  In <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18998	19105	
==>KeyedText is only meant to be used with user text that is
associated with hard-coded program conditions.  In <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15942	16054	
==>s Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19419	19531	
==>s Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.intersection( $other!b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	744	912	
==>&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	744	912	
==>&{'grammar1::code'} )
           ,
         )
       ,
       )
    );
    my $match = $rule->( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!E <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3344	3493	
==>ack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified ex <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3344	3493	
==>ack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &continue);
    });
}

=pod

Captures within quantified ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3952	4050	
==>e syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belong <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4136	4234	
==>e syntax.

options:

=item * grammar => $class - Specify which namespace (Grammar) the rule 
belong <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5960	6081	
==>first chunk by 1/3.
        $this_size -= $chunk_size if $child == 1;

        my @own_tests = splice @$all_tests, 0, $thi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1506	1605	
==>("name" => $value); # shadows any previous "name"

    $self->find_dyn_sym("name"); # returns $value <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2968	3081	
==>mmar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2956	3069	
==>mmar to not emit empty quantifier
    my $tab = ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyn <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2905	3064	
==>k ';
            $ok    .= _('$.number');
            $ok    .= " - " . _('$.description') if _('$.description');
            return $ok;
        }
    }
});

$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3643	3757	
==>t that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5545	5659	
==>t that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    local $@; eval { &$co <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1639	1765	
==>span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method cont <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1639	1765	
==>span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

method cont <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3505	3746	
==>e($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                inter <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3505	3746	
==>e($line, %events);   
                            my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                inter <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3772	3871	
==>ese methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3772	3871	
==>ese methods.

=head1 AUTHORS

"Aankhen"

=head1 LICENSE

This program is free software; you can redi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2406	2579	
==>$old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2406	2579	
==>$old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (want ~~ List) {
                    $!content unless $!content.de <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7787	7889	
==>ft;

	$prim->struct_equiv->body;
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Emit <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1257	1394	
==>ft;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check( $tmpl, \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12594	12721	
==>ft;
    my ($min, $max) = ($self->min, $self->max);
    if ($min == 0 and $max eq '') { '*' }
    elsif ($min == 1 and $max eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6125	6248	
==>e(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5930	6047	
==>e(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(. <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	563	685	
==>Test ::= Item | Junction;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math::Basic:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5015	5116	
==>Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7683	7784	
==>Foo got the right method return value');
is_deeply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11638	11750	
==>$line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11638	11750	
==>$line ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5180	5292	
==>finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5180	5292	
==>finish>, but returns the data as a string instead of an array of 
bytes.

=item C<zeroize>

    $cipher_obj.zeroi <==
2	/Users/nnunley/pugs/util/func_refact.pl	2341	2450	
==>s $ccset->{$cand} or $ignoring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$n <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1705	1814	
==>};

    gen_source($TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't open temp prelude ($TEM <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17840	17932	
==>eld contains information about the software being
used by the originating server program hand <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17840	17932	
==>eld contains information about the software being
used by the originating server program hand <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7394	7504	
==>_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7394	7504	
==>_open;
        my $ret = $span0.new( :start($start), :end($end), :density($span0.density) );
        # say "ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15593	15723	
==>raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21764	21894	
==>raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      i <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6410	6508	
==>r_types.pod r8593.
multi method Array::as_num (@array:) returns Num {
    +@array;
}

# speculative <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17311	17407	
==>tion>. You can't call
their new() method directly, you can only call it through an object that
in <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7118	7246	
==>8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "w <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7118	7246	
==>8250),
    "oline"    => chr(8254),
    "frasl"    => chr(8260),
    "euro"     => chr(8364),
    "image"    => chr(8465),
    "w <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	18	120	
==>6;

is Role--Perl6;

has Type $.type;

method subclass(Role $base, Str ?$name) returns Class {

}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9693	9792	
==>$args) {
	# In VMS protect with doublequotes because otherwise
	# DCL will lowercase -- unless alrea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24761	24877	
==>from the other tuples.  All Relation::Example
attributes may be individually addressed only by their names, and all
R <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1556	1653	
==>O

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1556	1653	
==>O

`perldoc lib`

= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1430	1569	
==>(\n)/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1373	1505	
==>(\n)/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7742	7861	
==>bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7730	7849	
==>bool, to => \\(0+\$pos), capture => \\\$capture }
$_[1]     };
$_[1]     my \$bool = \$hash->{'bool'};
$_[1]     \$index <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1973	2084	
==>_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Q <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1973	2084	
==>_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($.nick);
    $!queue = new Q <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1320	1432	
==>($x >= 0) { $x_round = sign($x) * floor( abs($x) ) }
        when ($_ >  .5) && ($x >= 0) { $x_round = sign($x) * <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9884	9978	
==>top- through third-level

The iterator returned is a function reference.  When called in scalar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	981	1120	
==>N {
    __PACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'equal',
        ot <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4	106	
==>sr/bin/perl

package Blondie;

use strict;
use warnings;

__PACKAGE__;

__END__

=pod

=head1 NAME

Blo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	84	223	
==>se[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	84	223	
==>se[?::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.code      is rw;
    has $.message   is rw;
    has $.previous  is rw;
    has <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	941	1033	
==>PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	941	1033	
==>PIL::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3363	3454	
==>failed: $@\n$pil_code" : "";
	    $self->{'pil_tree'} = Perl6::Run::OnPerl5::X1::Result->new <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8522	8624	
==>OWN($pRHS);
    "p6_assign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1 <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1384	1484	
==>ease of installation and portability, we may have
  bought fairly simple code with tolerable performa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	81	185	
==>__

=pod

=head1 NAME

Blondie - Blondie is a dumb intermediate language and a compiler collection for
th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1558	1682	
==>accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1558	1682	
==>accent
    "Ograve"   => 'Ò',  # capital O, grave accent
    "Oslash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ', <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	305	412	
==>::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	305	412	
==>::num_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
  $codefh.close();
  m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10888	10990	
==>s) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10946	11048	
==>s) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool` <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35765	35863	
==>ator that takes
another Relation as its C<$other> argument and combines it with the
invocant relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40315	40413	
==>ator that takes
another Relation as its C<$other> argument and combines it with the
invocant relati <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1189	1339	
==>e @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($curren <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1189	1339	
==>e @path we have found it
        unless @path {
            # store the current tree as
            # our last result
            @results.push($curren <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37614	37716	
==>xt_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37614	37716	
==>xt_from_loaded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25224	25317	
==>ftware
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosop <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25224	25317	
==>ftware
components, as defined by the Free Software Foundation at
L<http://www.gnu.org/philosop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3816	3925	
==>=
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curuserna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3816	3925	
==>=
      split " ", $event<rest>;
    if(normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curuserna <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	18	122	
==>::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew w <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	18	122	
==>::Core;

=pod

C<Match> is the object that holds scope-local state; i.e. state that
gets allocated anew w <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1762	1878	
==>to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1762	1878	
==>to figure out what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12141	12300	
==>nt lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold ea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12141	12300	
==>nt lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold ea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	333	431	
==>put file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	333	431	
==>put file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the source fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2892	3001	
==>yof_char => 'C') if $cc;
    return $S->object(reg_any => c_any => '\C');
  });

  # control character
  $self <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20302	20401	
==>eplaced by a single line containing the hexadecimal digest of the
result in double quotes followed b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20302	20401	
==>eplaced by a single line containing the hexadecimal digest of the
result in double quotes followed b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5828	5940	
==>... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5816	5928	
==>... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unless def <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3392	3569	
==>) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_subm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3392	3569	
==>) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m->{label} ne '';
        push @r, _box_subm <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10331	10432	
==>arExpressionChars>
}
rule RegularExpressionChars {  # see 7.8.5
      <null>
    | <RegularExpressionC <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8688	8872	
==>count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8688	8872	
==>count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	373	498	
==>ks with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	373	498	
==>ks with bytearrays and strings
    print $encrypt.finishstr();

=head1 DESCRIPTION

The Cipher API is a common interface for c <==
2	/Users/nnunley/pugs/util/testgraph.pl	1332	1442	
==>ocess

USAGE
  exit 0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_clas <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5546	5652	
==>ate the directories first if it's a dir -> dir
    ### move. Which means a bit more work, as file::copy doe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14528	14643	
==>ss $f->is_arrow;
	
	
	my $p_f = $f->left;
	my $ret = $f->right;
	
	my $generic_vars = generic($.fun);

	# if the fun <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	421	528	
==>ub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/< <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	421	528	
==>ub simple_escape (Str $string is copy) returns Str {
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/< <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1609	1757	
==>er::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1609	1757	
==>er::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($class), "new", $value);
                } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1680	1774	
==>piler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1680	1774	
==>piler::Rule;\nuse base 'Pugs::Grammar::Base';\n\n" . join("\n", map { $_->() } @{$<rule>} ) . " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4024	4126	
==>= @_;
  $self->parse if $self->{stack};
  my $vis = join "", map($_->visual, @{ $self->{tree} });
  ret <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13487	13591	
==>in a rather
  stable are of the code, so this may not be a real problem.
  [It was.  The regexp implement <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1333	1459	
==>f($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1333	1459	
==>f($match)->new($m);
}

sub flat {
    return '' unless defined ${$_[0]}->{capture};
    ${$_[0]}->{capture};
}

# return the ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11860	11974	
==>= readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11860	11974	
==>= readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1384	1612	
==>$line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1384	1612	
==>$line" and return FALSE;
                    }
                }
            }
            $input.close;
            return TRUE;
        },
        'write' => sub ($file) {
            if ( ! $file ) {
                %self<_err <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5548	5697	
==>re',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @param = @_;

        $param[2] = {} unless defined $param[2];

        $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5372	5515	
==>re',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @param = @_;
        $param[2] = {} unless defined $param[2];
        $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9014	9129	
==>"clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9014	9129	
==>"clubs"    => chr(9827),
    "hearts"   => chr(9829),
    "diams"    => chr(9830)
);

# Make the opposite mapping
my <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4132	4264	
==>w_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-ind <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4132	4264	
==>w_continue = -> $m { 
            my $mp = $m.pos;  my $map = $match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-ind <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19242	19348	
==>ginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    P <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19242	19348	
==>ginning with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    P <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	282	545	
==>alues used by packages in this file:
my Str $EMPTY_STR is readonly = q{};

###########################################################################
###########################################################################

subtype Relation::AttrName of Str wh <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7426	7534	
==>ouldn't flock \"@{[ BUCKET ]}\": $!\n";

  my $data   = eval { fd_retrieve $fh };
  $data    ||= [MAX_RATE, B <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26671	26767	
==>nt debugging information about itself as
it runs the tests.  This is different from C<HARNESS_VER <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12814	12933	
==>ler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12814	12933	
==>ler{$pseudo};
    }
  }

  # Check that our connection is still alive.
  my method livecheck() {
    return unless $.con <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2631	2752	
==>s::switches>

The package variable C<$Test::Harness::switches> is exportable and can be
used to set perl command line opti <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13343	13451	
==>nking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $my_bindir -type f] ) {
        chom <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1608	1734	
==>to    => $pos+length $1,
    } )
        if $_[0] =~ /^.{$pos}(\s+)(.*)$/s;
    return $grammar->no_match;
};

BEGIN {
    # th <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2890	3007	
==>gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gzerrno";
    while (<$ifh>) {
        $gz->gzwrite($_ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2366	2482	
==>returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2366	2482	
==>returns int {
    my int $cmp;
    $cmp = $.start <=> $span.start;
    return $cmp if $cmp;
    return $.end <=> $spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23180	23300	
==>sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19601	19721	
==>sub {
    my ($S) = @_;
    $S->warn(RPe_LOGDEP);
    my $c = "(??{";
    return $S->$c;
  });

  $self->add_handler('(?( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15229	15331	
==>g is returned (without changing the input string).

If you prefer not to import these routines into you <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15229	15331	
==>g is returned (without changing the input string).

If you prefer not to import these routines into you <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1291	1388	
==>dex'}       = [ Path::Class::dir('dists')   ];
$config{'repo_index_file'}  = [ Path::Class::file(' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1517	1665	
==>ng sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1517	1665	
==>ng sent to server
  my $hdl;                 # Socket
  my $queue = new_queue(floodcontrol => $floodcontrol);
                           # Queue
  my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	2621	2751	
==>atible namespace
    Module      Perl 6 standard namespace
    Class       Perl 6 standard class namespace
    Object      Perl 6 o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6084	6182	
==>e, $type, $totals) if $self->{callback};

    $self->{'next'} = $result{number} + 1 if $type eq 'te <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11660	11751	
==>e_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11660	11751	
==>e_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entities_numeric;
#*d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7276	7369	
==>, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1101	1194	
==>, sub { Grammar::Perl6->rule_decl(@_) };
push @statements, sub { Grammar::Perl6->grammar_name( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16859	16948	
==>,
  rm(Re2,F0,F1,B0,B1,Ex,E1).

rm(conc(Re1,Re2),F0,F1,B0,B1,E0,E1) :- 
  rm(Re1,F0,Fx,B0, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1416	1508	
==>sing Test::Simple.  Test::Harness is the module that reads the
output from Test::Simple, Test <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33743	33960	
==>'bit'
            ),
            sub {
                my $e = shift;               
                $e->create('$return' => bit->new(0));
                $e->get('$self:')
                  ->id
                  ->eq <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9607	9816	
==>" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# info <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9607	9816	
==>" }
            
            if ($latin) {
                when /^#(\d+)$/     { chr($1) }
                when /^#x(\d+)$/    { chr(:16($1)) }
            }
        }
    }/;
    
    return $string;
}

# info <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3040	3144	
==>an_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3040	3144	
==>an_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bversion <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	7459	7637	
==>star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8293	8471	
==>star,\n" .
                main::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data::Dumper->Dump( $block ) . <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3522	3630	
==>g-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3522	3630	
==>g-signatures -fno-warn-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2109	2200	
==>also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.free <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2109	2200	
==>also want to checkout the
Perl 6 module L<Perl6::Bible>, hosted at L<FreePAN|http://www.free <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5047	5193	
==>_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5047	5193	
==>_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$ <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	401	492	
==><h1>~</h1>
<p>(<a href="/">Back to /</a>)</p>
<p>
These users have something in their <tt>~/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6535	6625	
==>application'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<term1> := (<term1>| <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1035	1351	
==>:LaxPairAttrType|Relation::LaxAttrScalarSubType;

###########################################################################
###########################################################################

role Relation::Heading-0.1.0 {

###########################################################################

subme <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13174	13281	
==>= 'push @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $loc .= "->{_files}} , \$data";
  eva <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5561	5683	
==>ar = chr $I0
    if $I2 < 0 goto term_bx3
    $S0 = substr target, pos, 1
    if $S0 != $S2 goto err_close
    inc pos
  te <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14970	15078	
==>ng unicode level to be". Default is LChars.

[Q: Can't be LChars because we don't go into "language" mode unl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	376	483	
==>ng 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	376	483	
==>ng 
rot13, the Caesar cipher (add or subtract values from all letters), and an 
unnamed similar cipher where <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	952	1093	
==>5 . "\n" .
        "; 1;\n";

    {
      # Perl::Tidy is used if available
      local $@;   # don't care if there are errors here
      loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	59	158	
==>warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	59	158	
==>warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22444	22540	
==>n a program package would return a code-key to indicate a
condition, often it will also provide s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22444	22540	
==>n a program package would return a code-key to indicate a
condition, often it will also provide s <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1747	1848	
==>ile needed by this module.

You may then resume the installation process described in README.

------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1587	1688	
==>ile needed by this module.

You may then resume the installation process described in README.

------- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7958	8107	
==>we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7958	8107	
==>we are running under CGI
        }
    };
    if ($!) {
        print header;
        say "There was an error getting the params:\n\t" ~ $!;
        e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	711	829	
==>airAttrType of Pair where {
    .key.does(Str) and (
        (.key eq 'Scalar' and .value.does(Relation::LaxAttrScalarS <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	633	744	
==>/;
  my ($dev, $date) = (split / \| /)[1, 2];
  $date =~ s/ [+-]\d+ \(.*$//;

  # Example: $date is now "2005-02 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18612	18720	
==>RL} of whatever web page
     contains the link that the user followed to the current
     page.  Most browse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18612	18720	
==>RL} of whatever web page
     contains the link that the user followed to the current
     page.  Most browse <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13697	13824	
==>, 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => ['Eng', 'Fr' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13697	13824	
==>, 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => ['Eng', 'Fr' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2386	2507	
==>auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2386	2507	
==>auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => 'ç',  # small c, cedilla
    "eacute"   => 'é', <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5976	6075	
==>e_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5664	5763	
==>e_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnum => 1);
  } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18222	18319	
==>t of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18222	18319	
==>t of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1091	1324	
==>e<Hash::Const>),
                                Tree.new(:node<Hash::Env>),
                            ),
                        ),
                        Tree.new(:node<Eager>),
                    ),
                    Tree.new <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5174	5268	
==>->struct_equiv;
	my $child = $thunk->val->struct_equiv;

	if ($child->isa("Blondie::Seq")){ # F <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	771	866	
==>:: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	771	866	
==>:: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vtype <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9463	9602	
==>ight < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9463	9602	
==>ight < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    return if <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2199	2297	
==>4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2199	2297	
==>4

=item Initial portions of Arcfour's keystreams are weak.

Basically, the first few bytes of data <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8734	8884	
==>:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8734	8884	
==>:g/"/&#34;/;
    #} else {
        $string ~~ s:P5:g/"/&quot;/;
    #}
    
    my $latin;
    
    # XXX check $self.charset
    #$latin = ?(uc $self. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31184	31282	
==>t returns a new Relation
which has a subset of the original's tuples, and it works like Perl's
stan <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35734	35832	
==>t returns a new Relation
which has a subset of the original's tuples, and it works like Perl's
stan <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	266	366	
==>ccessors(qw/runtime cache env/)
}

{
    package Blondie::Compiler::Placeholder;
    use base qw/Blon <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	0	114	
==>class Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

h <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	0	114	
==>class Date;

#my subtype Month of Int where { 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

h <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9595	9718	
==>me as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9595	9718	
==>me as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18981	19074	
==>To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autopin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18981	19074	
==>To set the nickname, use the C<nick> method.

=head2 C<$bot.last_traffic>, C<$bot.last_autopin <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2898	3011	
==>rray *@arrays --> Lazy) { zip *@arrays }

# copied from S29draft.pod 8651.
multi List::zip ( Array *@lists, Bit :$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33865	33965	
==>you might know
about its '\&' regex assertion.  It's an "AND", much like '|' is an
"OR".  The vim reg <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25804	25899	
==>subtest decides that further testing will not make sense,
the script dies with this message.

=b <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20717	20826	
==>s or export such.

The usual way that Relation indicates a failure is to throw an exception;
most often this i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25269	25378	
==>s or export such.

The usual way that Relation indicates a failure is to throw an exception;
most often this i <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	148	243	
==>ol $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	148	243	
==>ol $.include_trunk) {}

method has_node_filter   ($self:) returns Bool { $.filter_function.defin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28767	28874	
==>ile "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28767	28874	
==>ile "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welc <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	459	583	
==>DIT THIS FILE.
    This module was automatically generated by util/file_to_hs.pl
    from $in.
-}
EOF
print OUT "$data :: Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18037	18195	
==>ar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "pars <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18316	18474	
==>ar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "is" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::constant( "pars <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1640	1738	
==>to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1640	1738	
==>to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	35	137	
==>n;

use strict;
use Module::Install::Base;
use Config ();
### This adds a 5.005 Perl version dependency <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10179	10302	
==>n_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10179	10302	
==>n_head = 1;
        }
        take *$self._cipher($data);
    };
}
multi method cipher(Cipher $self: Str $data) {
    return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1955	2051	
==>ses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hos <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1955	2051	
==>ses, and Synopses (AES)

Additionally to the L<official AES|http://dev.perl.org/perl6/>, Pugs hos <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3034	3132	
==>for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3034	3132	
==>for C<params>.

=item C<$q.param($name)>

Returns the value of the parameter named C<$name>.  If ca <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8523	8632	
==>ME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8523	8632	
==>ME

Recurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3978	4137	
==>-exclude .svn -czf $data $path] )
                                                        and error($?), return;
        system( qq[tar -f $control --exclude .s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2021	2157	
==>--------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => sub { \&Object  },
    };
}

s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6538	6806	
==>e other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere contex <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7002	7270	
==>e other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere contex <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3140	3249	
==>Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_chec <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3140	3249	
==>Compiler::PIL::PIL $.head;
    has Perl::Compiler::PIL::PIL $.tail;
    submethod BUILD () {
        type_chec <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	705	856	
==>/ftp/Scheme/#pure-oo

=cut

# new() creates instances of classes
sub new ($) {
    my ($table) = @_;
    my $self;
    $self = bless sub {
        my $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7621	7743	
==>);
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7621	7743	
==>);
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self, Str ::to) {
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	990	1089	
==>idgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', su <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	990	1089	
==>idgets

sub new_widget($name, &sub) is export {
    %WIDGETS{$name} = &sub;
}

new_widget 'text', su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	269	384	
==>$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( key <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	269	384	
==>$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( key <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2516	2614	
==>ents a client's request.  It also contains extra
information passed on by the HTTP server, useful t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2516	2614	
==>ents a client's request.  It also contains extra
information passed on by the HTTP server, useful t <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	453	582	
==>rt here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unle <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	453	582	
==>rt here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unle <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	16	105	
==>Super simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tpr0 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12392	12487	
==>ameter's
corresponding argument is undefined).  The new Document object's All Nodes
attribute st <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12392	12487	
==>ameter's
corresponding argument is undefined).  The new Document object's All Nodes
attribute st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9465	9572	
==>t:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autofl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9465	9572	
==>t:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      try { $!socket.autofl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12885	12984	
==>l things. 
For example, when iterating through the span range, the unit is added to the current valu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12885	12984	
==>l things. 
For example, when iterating through the span range, the unit is added to the current valu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	619	730	
==>) returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	619	730	
==>) returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
method start_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37624	37720	
==>aded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its pos <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37624	37720	
==>aded_module( $module_name!, $msg_key! )>

This method takes the name of a Perl package in its pos <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11881	12118	
==>expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_so <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11881	12118	
==>expression', {
                                    'vf_call_sfunc' => 'EQ' }, [
                                [ 'expression', {
                                    'call_sroutine_arg' => 'LHS',
                                    'vf_so <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3833	3944	
==>nite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.unio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3833	3944	
==>nite {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span0.unio <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10622	10738	
==>ern '$re'.\n";
  return reverse(13,"b",1,$foo);
};

#package Foo;

eval <<'END';
my $m = "wxyzqwerty" =~ /qwert/;
pri <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6116	6212	
==>{instance}->is_arrow;
}

sub splat { # this simplifies the AG above, and avoids unnecessary dupli <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8749	8934	
==>{
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [[]],
      family => 'branch',
      type => 'branch',
      raw => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34830	34994	
==>{
    my ($class, $rx) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      data => [ [] ],
      family => 'branch',
      type => ' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2197	2333	
==>hen rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2197	2333	
==>hen rx:P5{^=end\s(.*?)$} {
                        my $last_for_or_begin = pop(@for_or_begin);
                        if ($last_for_or_b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19798	19895	
==>ion header that use the
"Basic Authentication Scheme".  In array context it will return two
values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19798	19895	
==>ion header that use the
"Basic Authentication Scheme".  In array context it will return two
values <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12903	13004	
==>le field names then it is generally not
possible to tell which of the returned values belonged to whic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12903	13004	
==>le field names then it is generally not
possible to tell which of the returned values belonged to whic <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1514	1605	
==>yFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYR <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1514	1605	
==>yFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpan@audreyt.orgE<gt>

=head1 COPYR <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1141	1250	
==>or
humans. It has no syntax, only an abstract syntax tree, and some very simple
operations.

=head1 CONSTRUCTS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17168	17274	
==>}

    _ok($pass, _where(), "fresh_perl - $name");
}

#
# fresh_perl_is
#
# Combination of run_perl() and i <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5057	5161	
==>k>

  my $ok = _all_ok(\%tot);

Tells you if this test run is overall successful or not.

=cut

sub _all_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5140	5281	
==>(returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6902	7043	
==>(returns <method>)))
             {
                 ($e create ("$method"  ($nil::NIL)))
                 ($e create ("$current" ((($e get (" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10168	10280	
==>ed \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10162	10274	
==>ed \$named{'$name'} ){
$_[1]           \$named{'$name'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} <==
2	/Users/nnunley/pugs/util/package-osx.pl	4030	4127	
==>A06.3pm
        /usr/local/man/man3/Perl6::Bible::A12.3pm
        /usr/local/man/man3/Perl6::Bible <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	599	726	
==>tern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	599	726	
==>tern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri_escape (Str $string is copy <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16221	16311	
==>ling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

M <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16279	16369	
==>ling.org>

Darren Duncan <perl@DarrenDuncan.net>

Nathan Gray <kolibrie@graystudios.org>

M <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6067	6162	
==>ree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array { <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6067	6162	
==>ree";
    $self.parent().get_child($index);
}

method  get_all_siblings ($self:) returns Array { <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1402	1540	
==>@args = $string.split;
        exec(@args);
    }
}

class Control::Basic {
    # multi-lingual eval.

    # S29:
    # Execute C<$code> as <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26424	26547	
==>ESS_COMPILE_TEST>

When true it will make harness attempt to compile the test using
C<perlcc> before running it.

B<NOTE> Th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3618	3737	
==>-------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5520	5639	
==>-------

# Utility to test that "No method found" error is raised

sub fails_ok (&$) {
    my ($code, $desc) = @_;
    l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5429	5551	
==>mework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5429	5551	
==>mework, as used by
    # the current process/application.
    my Rosetta::Interface $rosetta_root .= new();

    # Load a R <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6494	6624	
==>os,1) eq "\n");
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '$';
    die "didn't implement $re"
  }
}
{
  # . \C
  pa <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	943	1046	
==>oot)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($self: Tree $c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	943	1046	
==>oot)
    $self.parent()!set_height($self) unless $self.is_root();
}

my method set_width ($self: Tree $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	564	699	
==>{out}= { 'bare_block' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAR <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	575	752	
==>,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	575	752	
==>,
         ruleop::optional(
             \&{'grammar1::ws'}
           ,
         )
       ,
         ruleop::capture( 'block', 
             ruleop::capture( 'code', \&{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7016	7226	
==>tscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method ex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7016	7226	
==>tscape_only = 0;
                    }
                }
            }
        };
        
        $request.header(Cookie => @vals.join("; ")) if @vals;
        
        return $request;
    }
    
    method ex <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5246	5348	
==>ake instances

my $iFoo = $Foo->new;
is($iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1394	1492	
==>/int main \(\) {.*?}//;

	my $func = eval sprintf <<'BIND', __PACKAGE__, ++$i;
		package %s::inline <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1959	2079	
==>) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1959	2079	
==>) := sub () { $code };
        &HTTP::Status::("RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15350	15449	
==>seconds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15350	15449	
==>seconds since Jan 1, 1970) and they also expect this kind of
value when the header value is set.

=o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3683	3818	
==>dd_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACKAGE__->a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5264	5414	
==>$/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5276	5426	
==>$/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_-> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2798	2907	
==>type () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2798	2907	
==>type () { 'Literal' }
}

# PILVar :: LValue
class Perl::Compiler::PIL::PILVar
    does Perl::Compiler::PIL::PI <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3220	3404	
==>ot Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DES <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3220	3404	
==>ot Bar!';                # Change a value
    delete $data{''};                                # Delete a value or section

    # Save a config
    $cfg<write>( 'new.ini' );

=head1 DES <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11303	11409	
==>ld work with most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is su <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11361	11467	
==>ld work with most reg-exps, but given that they are still a
somewhat experimental feature in Pugs, it is su <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	557	651	
==>unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descr <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	557	651	
==>unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_descr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8531	8625	
==>rom Foo singleton/class method');  
  
fails_ok { $Object->singleton_test_on_Foo() } '... Objec <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	456	556	
==>QLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pu <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	456	556	
==>QLite:dbname=test.db');
    $dbh.do("CREATE TABLE Test (Project, Pumpking)");

=head1 DESCRIPTION

Pu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1955	2119	
==>le );
                
                my %avail = map { $_->{package} => $_ } LoadFile( $Available );
                for my $depends ( list_dependencies( $info ) ) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1304	1403	
==>ller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the b <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4649	4752	
==>00021\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

# ---------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	846	941	
==>EC => --$ENUM, 'Sequence (?%.*s...) not recognized';
use constant RPe_LPAREN => --$ENUM, 'Unmatc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2669	2806	
==>num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- au <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2669	2806	
==>num        ( $self: ) { $self.elems }
    method to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- au <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11559	11682	
==>ion @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "Th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15036	15159	
==>ion @sources = ($?SELF, *@others);
    while (my $r1 = @sources.shift()) {
        for @sources -> $r2 {
            die "Th <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	302	403	
==>aller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	302	403	
==>aller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: currently"] unless <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	118	220	
==>cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	118	220	
==>cut

#use fatal;

use Perl::Compiler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8122	8238	
==>terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \& <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8315	8431	
==>terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', \& <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7744	7838	
==>t_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_ele <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7744	7838	
==>t_element ('list')>

This event is fired when an '=over' directive is reached.

=item I<end_ele <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1104	1347	
==>@args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buff <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1104	1347	
==>@args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n"
                }  
                when 'item' {
                    $buff <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	297	419	
==>sign.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/g <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	297	419	
==>sign.

    $.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	451	572	
==>y %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	451	572	
==>y %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4779	4961	
==>',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5001	5183	
==>',<F>)
== 0x$sum or die "Checksum failed for outdated .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9280	9374	
==>ent(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3105	3199	
==>ent(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gram <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7158	7280	
==>ct $flushy_fh;
    $| = 1;
    select $old_fh;
}

sub _run_all_tests {
    my @tests = @_;

    _autoflush(\*STDOUT);
    _ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24410	24514	
==>.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24410	24514	
==>.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends a command to the server. The command is not modified by C<Ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18206	18356	
==>mbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41471	41621	
==>mbol->new('BUILD'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3040	3157	
==>.........dubious
          Test returned status 3 (wstat 768, 0x300)
  DIED. FAILED tests 1, 3, 5, 7, 9, 11, 13, 15, 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9079	9199	
==>et % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9079	9199	
==>et % $set2;

  # same as
  $sym_difference = ( $set ∖ $set2 ) ∪ ( $set2 ∖ $set );
  $sym_difference = ( $set - $set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3244	3347	
==>tem 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessib <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3244	3347	
==>tem 4. Accept

=item 5. User-Agent

=back

=head2 Parameters

The parameters of the request are accessib <==
2	/Users/nnunley/pugs/util/package-osx.pl	1966	2055	
==>brary/Perl/5.8.6/runjs.pl
        /usr/local/lib/perl5/site_perl/Class/Rebless.pm /Library <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13728	13813	
==>exdigit(D1), {number_chars(I,[42,120,D0,D1])}.

octdigits_int(I) --> octdigit(D0), oct <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5461	5559	
==>5536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5461	5559	
==>5536) { $dec2hex(224+$num/4096)~$dec2hex(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1036	1148	
==>l($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1036	1148	
==>l($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	751	856	
==>$time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_slept = time() - $time;
    $seconds_s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12806	12908	
==>test.pl:runperl() does not take a hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10454	10583	
==>$connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane sta <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10454	10583	
==>$connected) {
        debug "Disconnecting from $host:$port... ";
        try { $hdl.close };
        # We want to have a sane sta <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	316	409	
==>self->{seen} = Set::Object->new;
	$self->{dups} = Set::Object->new;

    $self->reduce($progra <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7580	7715	
==>t;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7580	7715	
==>t;
    }
    if $span1.isa( 'Span::Int' ) 
    {
        ($span1, $span0) = _normalize_parameter( $span1, $span0 );
        return $span <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	697	823	
==>\~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	697	823	
==>\~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rule special <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	528	621	
==>ved class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	528	621	
==>ved class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods next(), <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3984	4090	
==>ols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3984	4090	
==>ols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!set_na <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3090	3227	
==>($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3090	3227	
==>($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		when /^   \=   $/ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	276	393	
==>my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	276	393	
==>my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12067	12161	
==>d_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on check <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12125	12219	
==>d_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on check <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5380	5504	
==>t-Date header is
# added as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5380	5504	
==>t-Date header is
# added as a timestamp to a response when it has been received.
method client_date ($self: )         is rw { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1132	1256	
==>ned;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1132	1256	
==>ned;
        }
        
        $.remote_host = %*ENV<REMOTE_HOST> if %*ENV<REMOTE_HOST>;
        $.remote_addr = %*ENV<REMOT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1728	1849	
==>);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1728	1849	
==>);
}

method clear ($self: ) returns Void {
    $!headers.clear();
    $self.content = '';
    @!parts = ();
    return;
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11724	11826	
==>header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new f <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11724	11826	
==>header('Accept');  # get values as a single string

=item $h.push_header( $field, $value )

Add a new f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8070	8186	
==>illee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8070	8186	
==>illee);
  }];

  # Somebody quit. Remove him/her from %users and %channels.
  %handler<QUIT> = [-> $event {
    my @c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10088	10188	
==>be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essentially <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10088	10188	
==>be set at all.  The scope of immediate
validation is kept to the minimum possible, and is essentially <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	757	883	
==>^O =~ /win/i ) {
        # fixes dir-name-with-spaces in Windows
        $dir = '"' . $dir . '"';
    }
    my $extra_args = $P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5551	5662	
==>mitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter related files



=head1 Compiler p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5359	5467	
==>mitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter related files

=head1 Compiler p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	521	640	
==>g ($node)";
}

sub reduce_val { $_[1]->val }

sub reduce_app {
    my $self = shift;
    my $app = shift;

    my ($thun <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2415	2528	
==>ew(
        CORE::join $delimiter->to_native => 
        map { $_->to_str->to_native } 
        $self->slice(num-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32952	33060	
==>fore the node
is returned.  Here is the walk() method for all the quantifier and
'minmod' nodes:

  # star, p <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	659	788	
==>'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	659	788	
==>'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2055	2160	
==>one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2055	2160	
==>one, Set $two) {
    !$one.proper_superset($two);
}
multi sub *infix:«⊈» (Set $one, Set $two) {
    !$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	353	614	
==>is file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Vali <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	353	614	
==>is file:
# (None Yet)

###########################################################################
###########################################################################

module Rosetta::Validator-0.724.0 {

    # External packages used by the Rosetta::Vali <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1227	1332	
==>ed by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely defined by L< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1227	1332	
==>ed by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is largely defined by L< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3118	3378	
==>PACKAGE__->add_rule( 
        name => '||',
        assoc => 'right',
        precedence => 'looser',
        other => '&&',
    );
    __PACKAGE__->add_rule( 
        name => '//',
        assoc => 'right',
        precedence => 'equal',
        other => '||', <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3852	3972	
==>urn any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3852	3972	
==>urn any leftover data 
and clear the cipher object.

The methods intended to be used by Cipher API users are:

=over 4

= <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	580	673	
==>e $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $tri <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	580	673	
==>e $node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $tri <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13059	13150	
==>e
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13059	13150	
==>e
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Locale::Ke <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20789	20886	
==>am using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resource <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20789	20886	
==>am using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
lots of other program resource <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9392	9495	
==>efin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3217	3320	
==>efin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31146	31242	
==>ns,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, F <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31146	31242	
==>ns,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fre, F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7118	7221	
==>lize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channe <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7118	7221	
==>lize($kickee) eq normalize($curnick)) {
      $chans.remove(normalize $event<object>);
      for %channe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12012	12164	
==>er>
}
rule ExponentIndicator {  # see 9.3.1
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 9.3.1
      <DecimalDigits>
    | <'+'> <DecimalDigits> <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	252	385	
==>(Method--Perl6 $meth) {
    ...
}

method apply() {
    ...
}


=head1 NAME

Role - Entities in a program's model (M1)

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11179	11381	
==>e_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11179	11381	
==>e_arg', { 'name' => 'person_id',
                    'arg_type' => 'IN' }, [
                $sdtd_person_id,
            ] ],
            [ 'routine_body', undef, [
                [ 'select_stmt', { 'i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1312	1416	
==>{
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_super <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1312	1416	
==>{
#    $one.proper_subset($two);
#}
#multi sub *infix:«>» (Set $one, Set $two) {
#    $one.proper_super <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	464	563	
==>al" use.  It's more of a pugs bootstrap exercise.

This code is currently completely in flux.  It is <==
2	/Users/nnunley/pugs/util/package-osx.pl	6258	6368	
==>perator.3
        /usr/local/man/man3/Perl6::Overview::Operator.3pm
        /usr/local/man/man3/Perl6::Overview <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34213	34305	
==>r bounds, both I<anyof_char>

=head2 anyof_class

Family: anyof_class

Types: via C<[:NAME:]> <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2628	2726	
==>k

=head1 API METHODS

These methods must be implemented by subclasses... though a default
implemen <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2628	2726	
==>k

=head1 API METHODS

These methods must be implemented by subclasses... though a default
implemen <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	6	96	
==>/bin/perl

# --------------------------------------------------
# This script converts p5 s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4625	4735	
==>arent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4625	4735	
==>arent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34492	34771	
==>')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$retu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33913	34161	
==>')
                  ->id
                  ->equal_to(
                     $e->get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$retu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	523	627	
==>244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submeth <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	523	627	
==>244, 274, 305, 335 );

# has DateTime::Locale $.locale


# probably this should be done as "multi submeth <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3148	3248	
==>ntext,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3148	3248	
==>ntext,
it will return a list of values.  Otherwise, it will return the first value.

=item C<$q.param <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	755	865	
==>houg this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it. <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	755	865	
==>houg this may be a 
# naive understanding of what this stuff is for, so if it is, I invite 
# others to fix it. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10639	10736	
==>m B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10639	10736	
==>m B<param returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns St <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10505	10611	
==>$name);
    my $code_args = "";
    $code_args .= "'\$.name'=>$namestr," if $name;
    $code_args .= "'\$.p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1902	2052	
==>file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1902	2052	
==>file_name_is_absolute($base)) {
            $base = rel2abs($base);
        }
        else {
            $base = canonpath($base);
        }
        $p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1785	1884	
==>);
    my $m = MatchX->new->set(1,$str,\@args,{},$from,$to);
    $$m->{'RULE'} = $o->{'name'}; #EEEP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4788	4897	
==>ls{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAM <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4788	4897	
==>ls{$chan}<users>{$_}++ for @nicks;
      %!users{$_}<channels>{$chan}++ for @nicks;
    });

    # End of /NAM <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8185	8314	
==>a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub nod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8197	8326	
==>a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5528	5637	
==>ject(space => 0);
  });

  # nalnum (not a word character)
  $self->add_handler('\W' => sub {
    my ($S, $cc) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	299	401	
==>guments:

=over 4

=item root

The root directory of the repository

=item pool

Path to the pool direc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	816	914	
==>ates on whole bytes, XORing elements of a constantly-transforming 
state table with each byte of pl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	816	914	
==>ates on whole bytes, XORing elements of a constantly-transforming 
state table with each byte of pl <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2437	2542	
==>thor; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bren <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2437	2542	
==>thor; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gordon <brent@bren <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1114	1270	
==>ift;
        my $f = shift;
        (ref $self)->new(&$f($self->val));
    }

    package Thunk;
    use base 'Unit';

    sub digest {
        my $self = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38073	38188	
==>t;
    $self->{neg} ? 'not' : 'and';
  }

And finally, the small change to the qr() method:

  sub qr {
    my ($sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16078	16177	
==>program component may raise such a condition, and one
application may handle it internally, while an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16078	16177	
==>program component may raise such a condition, and one
application may handle it internally, while an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18841	18968	
==>r->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20199	20326	
==>r->{data} = [ $true, $ifthen->{data} ];
      }
      else {
        $cond = shift @{ $ifthen->{data} };
        $br->{data} = [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1283	1428	
==>> { 'newline'=> $1 },

        tail  => substr($_[0],1),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1230	1371	
==>> { 'newline'=> $1 },
        tail  => substr($_[0],1),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	187	300	
==>use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	187	300	
==>use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22383	22474	
==>ecified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22383	22474	
==>ecified key).

=head2 C<$botE<lt>partE<gt>("#chan")>

Parts a channel.

=head2 C<$botE<lt>qu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2787	2915	
==>accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2787	2915	
==>accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => ' <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1845	1951	
==>d)
);

my $gd = $graph->plot(\@data) or die $graph->error;
binmode STDOUT;
print $gd->png;

# Input:  (2, 5 <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2094	2233	
==>nything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:met <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2299	2438	
==>nything here ...
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:met <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3060	3164	
==>%smoke);

  open my $fh, ">", $filename or
    die "Couldn't open \"$filename\" for writing: $!\n";
  pri <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1943	2043	
==>ark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1943	2043	
==>ark named C<$name>.  The name is scoped to C<$p>.  That
is, once the match succeeds beyond C<$p>, the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33020	33127	
==>s>

Array of Str - This stores an ordered list of one or more elements where
each element is a Template modu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33020	33127	
==>s>

Array of Str - This stores an ordered list of one or more elements where
each element is a Template modu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12865	12994	
==>to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12865	12994	
==>to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11877	11977	
==>us values
for the same field are retained.

As for the header() method, the field name ($field) is no <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11877	11977	
==>us values
for the same field are retained.

As for the header() method, the field name ($field) is no <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1071	1179	
==>{
        'get_test_number' => sub { scalar(@{_('@:results')}) + 1 },
        'testplan' => sub { _('$.testpl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5440	5548	
==>Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5498	5606	
==>Test::num_of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3043	3195	
==>label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3043	3195	
==>label}}, _box_submatch( $_[0], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1281	1442	
==>tisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # We <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1281	1442	
==>tisfiable',
        417 => 'Expectation Failed',
        422 => 'Unprocessable Entity',            # WebDAV
        423 => 'Locked',                          # We <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6332	6438	
==>f: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot ad <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6332	6438	
==>f: Tree $sibling) returns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot ad <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31175	31275	
==>rator that returns a new Relation
which has a subset of the original's tuples, and it works like Perl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35725	35825	
==>rator that returns a new Relation
which has a subset of the original's tuples, and it works like Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3276	3392	
==>b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $var <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3460	3576	
==>b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplemented or untested features

 $var <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17091	17188	
==>n in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17091	17188	
==>n in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your Roset <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2136	2262	
==>0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2196	2322	
==>0] =~ /$rx/;
            #warn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13053	13182	
==>postcircumfix" );
}

sub prefix {
    my $n = $_[0];
    # print "prefix: ", Dumper( $n );
    
    if ( $n->{op1}{op} eq ' <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1202	1305	
==>s @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns Str <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1202	1305	
==>s @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
method stringify () returns Str <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14318	14435	
==>n" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14318	14435	
==>n" 
between values would be very close to zero:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	24032	24126	
==>example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICEN <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	24032	24126	
==>example bots using this module.

=head1 AUTHOR

Ingo Blechschmidt <iblech@web.de>

=head1 LICEN <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3366	3470	
==>\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4502	4606	
==>\$\(TEST_VERBOSE\), )/$1'inc', /;
    $makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
    $makefile =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3392	3565	
==>match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3532	3705	
==>match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' a <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2606	2734	
==>ns Int { die if $.year < 0; int($.year / 100) }

our @months = <January February March     April   May      June
               J <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9694	9821	
==>s_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9694	9821	
==>s_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be used
  $contains_7     = $set2 ~~ 7;

  # Set arithmetic with <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3739	3863	
==>/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3739	3863	
==>/;
    my $vals = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1756	1851	
==>r;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is const <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1756	1851	
==>r;

my @upper is constant = map &ord, "ABCDEFGHIJKLMNOPQRSTUVWXYZ".split('');
my @lower is const <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12106	12198	
==>scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12106	12198	
==>scalars.

 $header->push_header("Accept", 'image/jpeg');
 $header->push_header("Accept", [map <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4661	4786	
==>alue . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4661	4786	
==>alue . "' )\n";
}
sub special_char {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1286	1410	
==>sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1286	1410	
==>sub-set of all_nodes.

    # Entrust the Rosetta::Model::Node class to see our private attributes.
    trusts Rosetta::Model: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	929	1074	
==>n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	929	1074	
==>n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.t <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	814	996	
==>/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               u <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	814	996	
==>/^$search(\:\:|$){1}/;
               try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5476	5590	
==>and return a labeled capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5301	5412	
==>and return a labeled capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $nod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1332	1432	
==>he documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19207	19300	
==>_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19207	19300	
==>_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6723	6830	
==>f ( $topcat == PGE_OPTABLE_TERNARY );
  goto oper_shift;

  shift_reduce2:
  #if ( $temp1 >= $temp2 )
  if ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21085	21185	
==>nto .pmc files and shipped with your
distribtution precompiled. This means that people who install yo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21085	21185	
==>nto .pmc files and shipped with your
distribtution precompiled. This means that people who install yo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5061	5193	
==>rule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5254	5386	
==>rule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&negate <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	333	431	
==>al hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	333	431	
==>al hash
__PACKAGE__->meta->add_attribute('%:rules' => (
	reader  => 'rules',
	default => sub { {} } <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4529	4625	
==>tprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4529	4625	
==>tprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  die " <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1305	1484	
==>\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1305	1484	
==>\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3575	3718	
==>_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or retu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4039	4182	
==>_depends!      
    sub _parse_depends {
        my $deps    = shift;
        my $index   = shift or return;
        my $avail   = shift or retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3657	3787	
==>fier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3645	3775	
==>fier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq '*';
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	88	201	
==>ion of p6-regex parser

#

# see: README





# XXX - rename the system grammar to 'Grammar'

# XXX - use method c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	86	193	
==>ion of p6-regex parser
#
# see: README


# XXX - rename the system grammar to 'Grammar'
# XXX - use method c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3407	3505	
==>astian Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3407	3505	
==>astian Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

T <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	608	712	
==>ream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
stand <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	608	712	
==>ream and thus text 
should be enciphered and deciphered the same way.  RC4 and Arcfour are used in 
stand <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	53	185	
==>a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - chec <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	53	185	
==>a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # where {  }; XXX - chec <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12332	12430	
==>0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12332	12430	
==>0]

= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discret <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2207	2320	
==>rror { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2207	2320	
==>rror { box("P5::PIL::Run::Error", string($_.first), list(@{ $_.second })) }
                    when Junc { die "n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8648	8790	
==>_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8644	8786	
==>_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::star {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	221	332	
==>ss';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1136	1246	
==>rn "fixity: $n->{fixity}\n" if exists $n->{fixity};
    
    # 'undef' example: parameter list, in a sub call <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23375	23478	
==>tely they have a compiled C component or otherwise have
non-trivial external dependencies; Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23375	23478	
==>tely they have a compiled C component or otherwise have
non-trivial external dependencies; Locale::Keyed <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18846	18965	
==>I<anyof_class> element is a Unicode property or a Perl class (like
C<\w> or C<\S>), the object's C<data> field points to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34634	34742	
==>set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedTe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34634	34742	
==>set_names => ['Foo::L::','Bar::L::'],
        member_names => ['Eng', 'Fre', 'Ger'] );
    my Locale::KeyedTe <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1801	1926	
==>ap/;

    package Stub;
    use base qw/Unit/;
    
    package Pad;
    use base qw/Map/;
}

sub stub { map { $_, Thunk->new( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19728	19827	
==>ecial 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19728	19827	
==>ecial 'create' or 'alter' statements.

Each Rosetta Engine has the complete freedom to implement the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18229	18327	
==>o use the same external resources, such as a repository file
on disk, it is expected that the Engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18229	18327	
==>o use the same external resources, such as a repository file
on disk, it is expected that the Engin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	391	636	
==>p::concat(\n" . 
                            ( join '', @s ) . 
                            "$tab )\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$progr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7096	7207	
==>ift if @_;
    return $test;
}

sub next_test {
  $test++;
}

# Note: can't pass multipart messages since we try <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24867	24970	
==>y.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples as an Int <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29419	29522	
==>y.

=item C<size () returns Int>

This method returns a count of this Relation's member tuples as an Int <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8798	8966	
==>( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.ele <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8798	8966	
==>( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters
        # TODO: implement count = max( @lists.ele <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	583	747	
==>ble
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	583	747	
==>ble
        if ($line ~~ rx:perl5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9069	9198	
==>ft;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9069	9198	
==>ft;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	863	969	
==>$str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	863	969	
==>$str_item;
}

method insert($self: *@items) returns Int {
    my $pre_size = $self.size;

    for @items -> <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2004	2106	
==>:: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2004	2106	
==>:: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4757	4886	
==>rule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4950	5079	
==>rule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&non <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12549	12675	
==>hift   () { ... }
    method next    () { ... }
    method current () { ... }
}

# Support for =$fh
class IO does Iter {
    me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	6257	6369	
==>mapping.pairs };

    return Relation::Example.new(
        heading => set( %full_map.values ),
        body => s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3480	3612	
==>$old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3480	3612	
==>$old_ref = $!content_ref;
    $old = $$old if $old_ref;
    
    return Proxy.new(
        FETCH => { return $old; },
        STORE = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3234	3383	
==>ft)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaq <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3953	4077	
==>ft)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaq <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2745	2846	
==>}
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2745	2846	
==>}
method size ()          returns Object { return $.set.size }

submethod _normalize_parameter ($self: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9219	9343	
==>ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9219	9343	
==>ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25351	25460	
==>h the outside environment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25351	25460	
==>h the outside environment at all.

A Message object has two main attributes:

=over

=item C<$!msg_key> - B<Me <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6328	6430	
==>e $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6328	6430	
==>e $event<from_nick>);
        %!users{normalize $event<from_nick>}<channels>.delete($chan)
          if <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	136	249	
==>:Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	136	249	
==>:Text;
does Parse::Rule::Media::Text;

has $.Pos;

method literal (Str $text) {
    $.Parser.new(parse => sub ($ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2853	2962	
==>->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2841	2950	
==>->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = '' unless defined $quantifier;
    # TODO: fi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3526	3631	
==>nds);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().pack <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3584	3689	
==>nds);
}

## use_ok

sub use_ok (Str $module, :$todo, :$depends) is export {
    my $caller = caller().pack <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	97	190	
==>cScoping Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blondie: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	569	678	
==>d start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	569	678	
==>d start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () returns bool   { ! $.end_i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3930	4119	
==>en), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () re <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3930	4119	
==>en), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_span();
        }
    }
}

method is_empty () re <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1168	1261	
==>_foreach is moved out of CONVERSION_SUBS section
# temporarily for the use of $RE{balanced}{-p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1794	1906	
==>AGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C::Builtins - 

=head1 SYNOPSIS

	use Blondie::Backend::C:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11680	11821	
==>unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    
    push @{ $prev->{data} }, @{ $self->{data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9365	9501	
==>unless @$tree > 1;
    my $prev = $tree->[-2];
    return unless $prev->type eq $self->type;
    push @{ $prev->{data} }, @{ $self->{data <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	32768	32863	
==>just an
extension of the relation).

=item C<unwrap ( Set of Str $attrs! ) returns Relation::Exa <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	704	821	
==>pugsbug?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diagnostics.join( "\n" );
        @:dia <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	426	537	
==>$self->add_flag('c' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_BADFLG, $plus ? "" : "-", "c", $plus ? "" <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10758	10853	
==>losure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10758	10853	
==>losure_previous => sub {...}, :is_universe(1) )`

Creates a "universal set".

The complement set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23713	23813	
==>, this module won't simply
send all commands immediately to the server, but creates a queue, which is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23713	23813	
==>, this module won't simply
send all commands immediately to the server, but creates a queue, which is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39786	39937	
==>n(RPe_BADESC, "y", " in character class");
      return $S->force_object(exact => "y");
    }
    else {
      # ...
    }
  });

Also note the C<RPe_BA <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11629	11720	
==>de = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11629	11720	
==>de = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4638	4735	
==>cape_sequence>|<named_character>|<simple_character> }
rule a_dot  { \. }
rule logical_grapheme { \ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5999	6092	
==>uiltin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) is primitive is safe is builtin {$r.f.($x <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17416	17554	
==>e($_[0]) })->str;

            return (ref $node) . "->new<=$node>" . layout(@gut);
        } else {
            warn "weird - $node doesn' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3625	3745	
==>pass;
    if( !defined $got || !defined $isnt ) {
        # undef only matches undef
        $pass = defined $got || defi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5933	6051	
==>imal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.clon <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5933	6051	
==>imal = 0) {
    if $minimal {
        $.Parser.new(parse => sub ($match, &continue) {
            &continue($match.clon <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2159	2253	
==>P::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SY <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2159	2253	
==>P::Request::CGI - Subclass of HTTP::Request for dealing with CGI-generated requests.

=head1 SY <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1140	1273	
==>d($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$wp.[$_] eq ~$next.[$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2518	2643	
==>Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2735	2860	
==>Generated file - do not edit!\n" . $perl5;
        close FILE;
        warn "*** restarting the compilation to use the new pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5467	5640	
==>:Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the lexer
        #q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4390	4576	
==>ture unless @$capture;



            return { 

                bool =>  1,

                match => [ @matches ], 

                tail =>  $matches[1]{tail},

                state = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4257	4437	
==>ture unless @$capture;

            return { 
                bool =>  1,
                match => [ @matches ], 
                tail =>  $matches[1]{tail},
                state = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2777	2891	
==>ion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2777	2891	
==>ion ($base $VERSION) - do not edit!",
        "$check$content$data";
}

# This returns a piece of Perl code to do a <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7905	8203	
==>'&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new(
                            Val->new(1),
                        ),
                    ),
                    Val->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	996	1145	
==>p1 => $_[1], exp2 => $_[3] } }
    ;
    
signature_term:
        NUM 
        { $_[0]->{out}= $_[1] }
    |   type signature_term
        { $_[0]->{o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	80	243	
==>.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	80	243	
==>.parent;
    has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	414	556	
==>die::Node::Map/;

	use Carp qw/croak/;

	sub fmap {
		my $self = shift;
		die "annotations are not fmappable, flatten first";
	}

	sub values { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	428	542	
==>:pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	428	542	
==>:pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    m <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1466	1569	
==>v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id' <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1466	1569	
==>v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my $return;
    for %v{%p{'id' <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1721	1853	
==>*DH;
    if ( opendir( DH, $start ) ) {
        while ( my $file = readdir DH ) {
            next if $file eq File::Spec->updir || $ <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	2072	2199	
==>or(@_) {
    my $cur_day = int(($_ - $_[0]) / ONE_DAY);

    if($cur_day != $#till_day) {
      push @till_day, $till_day[-1] || <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4659	4789	
==>};
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        & <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4717	4847	
==>};
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    }
    else {
        & <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7025	7132	
==>f $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32(JSX::Value $v) {
    use Math qw(sign <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3343	3470	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3536	3663	
==>=> $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	500	611	
==>ue]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2028	2139	
==>ue]
           ~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_k <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	245	365	
==>::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_date <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	245	365	
==>::Span
        - Perl5 version uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_date <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	516	645	
==>other types
sub to_str { (shift)->join(str->new('')) }
sub to_num { (shift)->length             }
sub to_bit { (shift)->length->to <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1798	1905	
==>elf )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1798	1905	
==>elf )
        if $span.isa( 'Span::Code' ) || $span.isa( 'Span::Num' );
    my $i_start = $.start < $span.st <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1660	1759	
==>",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1660	1759	
==>",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my @oct = split('',$string);
  [~] encode <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5916	6012	
==>n.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Jo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5916	6012	
==>n.org/repos/adamk/Config-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Jo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18766	18904	
==>skip_reason} ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $next ) {
        prin <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8916	9024	
==>g.
        # https://rt.cpan.org/Ticket/Display.html?id=16375 fixes this,
        # but we can't rely upon ev <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16053	16155	
==>rst time they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16053	16155	
==>rst time they are run. The result is cached into
C<.pmc> files.

Perl has native support for C<.pmc> fi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8999	9108	
==>arted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9057	9166	
==>arted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  u <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	216	334	
==>ent.getElementsByTagName('A');
    for (var i = 0; i < links.length; i++) {
        var href = links[i].href;
        i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4460	4560	
==>s is the command used to implement 'eval( ... , :lang<name> )'

  my $compiler = Pugs::Compiler->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4306	4405	
==>s is the command used to implement 'eval( ... , :lang<name> )'
  my $compiler = Pugs::Compiler->new( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14530	14671	
==>ld('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14530	14671	
==>ld('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the database c <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	143	248	
==>:MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	143	248	
==>:MakeMaker();
use File::Spec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs( <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2401	2516	
==>S

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Bren <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2401	2516	
==>S

None known.  Report any to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Bren <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6679	6839	
==>ord> 
                { return $/{'Pugs::Grammar::Term.cpan_bareword'}->() }
            |
                ### Test::More
                <Pugs::Grammar::Term.id <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33275	33372	
==>bound (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gpos

Family: anchor

Types: gpos (C<\G>) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	143	235	
==>utine | SubBlock | SubPrim
enum SubType «SubMethod SubRoutine SubBlock SubPrim»;
has SubTyp <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10863	10999	
==>) . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, $prog);
my $t2 = times;
my $res  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	18	110	
==>rammar::Operator;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pug <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1738	1901	
==>n::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %par <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1738	1901	
==>n::Int' | 'Span::Code' )
        {
            $.span = %param<object>;
            return;
        }
        if %param<object>.ref eq 'Array' {
            if %par <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	756	851	
==>erty, and adds C<content>,
which is the whitespace to be represented in the normative XML.

=cut <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	756	851	
==>erty, and adds C<content>,
which is the whitespace to be represented in the normative XML.

=cut <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	203	339	
==>me];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	201	337	
==>me];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only c <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	782	966	
==>on for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashi <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	782	966	
==>on for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    return %opts;
}


sub hashi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3290	3388	
==>y, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3290	3388	
==>y, Str $file) returns Str`

- `rel2abs (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1231	1346	
==>pans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    r <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1231	1346	
==>pans[-1];
    return $last.end_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22614	22710	
==>edText would also handle
this.

A program generates a Message that contains all possibly useful d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22614	22710	
==>edText would also handle
this.

A program generates a Message that contains all possibly useful d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	458	574	
==>ro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is curre <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	458	574	
==>ro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is curre <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2611	2739	
==>file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # N <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2611	2739	
==>file_name_is_absolute($base)) {
        $base = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # N <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	83	195	
==>acked up from mini_harness.plx in the Test::Harness dist.
# (And some stuff stolen from prove, too.)

# Please im <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16684	16784	
==>t;

    return Val->new($self->reduce($node->val));
}

package Dumper;
use base qw/Reducer/;

sub lay <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2854	2955	
==>params()>

Returns the names of all the parameters as a list.  The order in which they were
present in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2854	2955	
==>params()>

Returns the names of all the parameters as a list.  The order in which they were
present in <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27335	27427	
==>s.

=item C<HARNESS_IGNORE_EXITCODE>

Makes harness ignore the exit status of child processes <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14651	14738	
==>ight... need some symetric op pairs.
re_reverse(bos,eos).
re_reverse(eos,bos).
re_revers <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	527	677	
==>5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	527	677	
==>5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	595	684	
==>harset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modifi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	595	684	
==>harset Accept-Encoding Accept-Language
 Authorization Expect From Host
 If-Match If-Modifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12122	12238	
==>_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4765	4881	
==>_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8049	8184	
==>($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* B <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8049	8184	
==>($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $old and $old ~~ s/^\s* B <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6213	6333	
==>[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6213	6333	
==>[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($program <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17276	17419	
==>d;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tmp = "";
    my @classes = map{my $c = $tmp.$_;$tmp=$c.'::';$c} @pat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20970	21061	
==>ames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20970	21061	
==>ames are normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29006	29099	
==>&')
are pre-consumption: that is, they have not matched something yet.
Handle names that I<do> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	259	391	
==>y $self = shift;
    $self->{family};
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub qr {
    my $self = shift <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/zuweisung.pl	51	152	
==>eugt Kopie

#=Bindungsoperator
$x := $y; # $x ist nun der selbe Container wie $y

#=Bindungsoperator ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7025	7177	
==>n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7013	7165	
==>n";
    
    return 
        "$_[1] ( sub $code->( \$m ) || 1 )" 
        unless $code =~ /return/;
        
    return
        "$_[1] ( ( \$capture = su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16378	16510	
==>thod next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16378	16510	
==>thod next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4698	4801	
==>etta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4698	4801	
==>etta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::I <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3167	3375	
==>@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    retu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3167	3375	
==>@ret: $i);
            last if @ret >= $length;
        }
        elsif @tmp.end > 0 {
            &*shift( @tmp );
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2882	3007	
==>$?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2882	3007	
==>$?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' => $me <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1196	1341	
==>n($/[9..17]);
        }
    }
    elsif ( defined $/[18] ) {
        my $start = date($/[19..27]);

        if ( defined $/[28] ) {
            $d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4792	4897	
==>Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: C <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4792	4897	
==>Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TODO: C <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1309	1416	
==>ronment for Perl 6

=head1 SYNOPSIS

  class MySession is POE::Session {
    method dispatch (Str $event, *@ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	313	486	
==>$str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../pars <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	313	486	
==>$str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../pars <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16100	16201	
==>arameter $document, and
whose Node Type attribute is set from the named parameter $node_type (a
string <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16100	16201	
==>arameter $document, and
whose Node Type attribute is set from the named parameter $node_type (a
string <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12849	13171	
==>, 
                                             percent => 100*(scalar @{$test{failed}})/$test{max},
                                             estat   => '',
                                             wstat   => '',
                                           };
                } else {
                    print "Don' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1712	1820	
==>root {
  my ($self) = @_;
  $self->parse if $self->{stack};
  return $self->{tree};
}


sub nparen {
  my ($s <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1085	1203	
==>glet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

reg <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1085	1203	
==>glet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers

reg <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4023	4136	
==>ptimizer chain,

  # - the default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handle <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3881	3991	
==>ptimizer chain,
  # - the default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handle <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	502	607	
==>param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	502	607	
==>param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Rule - Compiler for Perl 6 Rules

=head1 SYNOPSI <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	345	448	
==>nts only a an hour or two of work.
It is very much in a state of flux.

=cut

class JSX::PseudoValue;
cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3382	3524	
==>uantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3370	3512	
==>uantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Array
    return 
        "$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3366	3521	
==>e = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3366	3521	
==>e = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30504	30607	
==>te template module for each distinct "user
language" (or "user type") for each distinct Message; each fi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30504	30607	
==>te template module for each distinct "user
language" (or "user type") for each distinct Message; each fi <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	607	697	
==>pe { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::T <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	607	697	
==>pe { }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::T <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1578	1687	
==>med, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1578	1687	
==>med, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuff

sub _get_c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10403	10506	
==>onnected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10403	10506	
==>onnected;

    $!queue.enqueue({
      # Indicate that we're currently logging in, so our nick_already_u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3181	3279	
==>5 version?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3181	3279	
==>5 version?
# I figure it shouldn't be needed since the parameters are bound, not copied.
method add <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5245	5359	
==>rrectly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5245	5359	
==>rrectly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return ths removed child
    # it <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9663	9776	
==>/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9663	9776	
==>/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4465	4562	
==>2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4715	4812	
==>2 perl5

Instance method.  Returns a string that can be eval'ed into a rule/token/regex object.

= <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6312	6440	
==>!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Juncti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39656	39752	
==>et>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free so <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39656	39752	
==>et>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedText is free so <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	605	702	
==>_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# an <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	605	702	
==>_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl6
# an <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3568	3662	
==>ribes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3568	3662	
==>ribes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19740	19890	
==>$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16161	16311	
==>$_")) {
        my $v = $S->$f(0) and $r_off .= $_;
        $f_off |= $v;
        next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RP <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12602	12697	
==>g features.

This module deals with encoding and decoding of strings with HTML
character entitie <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12602	12697	
==>g features.

This module deals with encoding and decoding of strings with HTML
character entitie <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8226	8343	
==>ast}}
	    $n =~ s/^&// if $n;
	    $n};
	return "p6_applym('$fun_name',$argl)" if $fun_name;
	return "p6_applyi($fun, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	905	1015	
==>.
#   * Character sets are sometimes collapsed.
#     Eg, <'0'> | <'1'> ... <'9'> changed to <[0..9]>
#   * "Fo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	243	350	
==>_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefil <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	243	350	
==>_libs();
    my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	189	285	
==>er::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	189	285	
==>er::Rule->compile(q(
    \\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2604	2706	
==>e->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2744	2846	
==>e->{grammar}, $_[0], $flags\n";
    #print "match: Variables: ", Dumper ( $flags->{args} ) if defined $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4320	4434	
==>b flag_val_i { 0x4 }
  sub flag_val_x { 0x8 }

  my $noop;
  $noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TA <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	290	393	
==>t. Due to regexp's limits, it is only
# expected to serve as a tool to somewhat speed up
# the rewrite o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2240	2337	
==>rying with m and s.
# Match objects arent being created for capture groups which are never reached <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6699	6845	
==>il => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6699	6845	
==>il => $_[0],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	555	687	
==>rols.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being matched aga <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	555	687	
==>rols.  a*: ...
    $.pos       - The current position of the match (also holds the
                  string that is being matched aga <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17064	17226	
==>ueue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        " <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17064	17226	
==>ueue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => {
      @perms = (
        "$nick",
        " <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	491	631	
==>=> {
            'array_fetch' => sub { # evaluated in rvalue contexxt
                my $self = shift;
                @{$self->get_value(' <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1601	1699	
==>:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthL <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1601	1699	
==>:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	545	694	
==>f = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	545	694	
==>f = ../parse($str);
        
        given ($self) {
            my ($protocol, $code, $message);
            
            if ($status_line ~~ /^\d**{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2415	2534	
==>"C$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;
    $S->error(0, "Missing brackets on \\%s", 'C');
  });

  $self->add_handler( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16431	16549	
==>perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if sub <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16431	16549	
==>perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, 1 if sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29808	29920	
==>$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data- <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29808	29920	
==>$msg_key};
        }
    } # module MyApp::L::Fre

A Template module is very simple, consisting mainly of a data- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50771	50891	
==>ub {
                my $e = shift;
                $e->create('$identifier' => $e->get('$self:')->get_attr(symbol->new(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9739	9835	
==>ly returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9739	9835	
==>ly returns, you can assume that it has succeeded, even if the return
value is undefined.

Rosetta <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2786	2895	
==>igned = shift @letters;
			$map{$entry->{orig}} = $assigned;
			push @forall, $assigned;
		}
		$entry->{new}-> <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	59	166	
==>Run::Container::Scalar;

sub mk_containers { # consolidate with Array
    map {
        my $c = PIL::Run::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16873	16977	
==>coding header field is used as a modifier to the
media type.  When present, its value indicates what addi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16873	16977	
==>coding header field is used as a modifier to the
media type.  When present, its value indicates what addi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19458	19556	
==>id separate resource files, and not change
your main program.

I<Note that an update is planned for <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19458	19556	
==>id separate resource files, and not change
your main program.

I<Note that an update is planned for <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3507	3619	
==>rl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_che <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3507	3619	
==>rl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PIL::PIL @.args;
    submethod BUILD () {
        type_che <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1055	1151	
==>CShortcut");
    $optable->addToken("term:\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $op <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2785	2905	
==>_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3032	3152	
==>_terms, 'colon';
    
# /terms


rule quantifier {
    $<ws1>   := (<?ws>?)
    $<term>  := (<@Pugs::Grammar::Rule::rule_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3698	3886	
==>))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$method' => $e->get('$current')->send('get <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6570	6678	
==>== 1 ? (v => $_[0]) : @_), # an easy constructor
	}, $class;
}

# functions are applied 
package fun;
use bas <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8871	9009	
==>sure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $uni <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8871	9009	
==>sure_next =>     sub { 2 * int( $_ / 2 ) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $uni <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	846	1043	
==>type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	846	1043	
==>type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragraph|line_interpolation$/ {
                    $b <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3005	3115	
==><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3005	3115	
==><one>;
    my $Foo = $data<section><Foo>;

    # Changing data
    $cfg<data>()<newsection> = { 'this' => 'that <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2586	2712	
==>curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our userna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2586	2712	
==>curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin");
      # We want to know our userna <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8602	8716	
==>"$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8598	8712	
==>"$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
sub node::st <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	671	811	
==>a sexy new P6 construct that can avoid
        # long if/elsif/else chains
        given $tok {
            when '+' { @stack.push($y + $x) } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21089	21195	
==>makes things flow more
cleanly.

=item Flag Handlers

Flag handlers now receive an additional argument that <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1615	1723	
==>0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1819	1927	
==>0], '$<class>' );
    my $meth = get_str( $_[0], '$<meth>' );
    my $list = emit( get_data( $_[0], '$<params <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12834	12962	
==>t::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12834	12962	
==>t::Message)
                and $e.get_msg_key eq 'DEPOT_NO_EXIST') {
            $conn.create_target_depot();
            $conn. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1137	1267	
==>Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î', <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1137	1267	
==>Euml"     => 'Ë',  # capital E, dieresis or umlaut mark
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î', <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5696	5877	
==>s! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9173	9354	
==>s! ) returns Relation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Rel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6469	6584	
==>ule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ nul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6469	6584	
==>ule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ nul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4539	4635	
==>e/token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4789	4885	
==>e/token/regex object.

=head1 CAVEATS

This is an experimental development version.  The API is s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10552	10646	
==>ormedness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10552	10646	
==>ormedness, such as that Rosetta::Model Nodes are arranged correctly
depending on their types, t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1218	1319	
==>security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the me <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1218	1319	
==>security; a cryptanalyst need only 
graph the letter frequency to crack the cipher, and even if the me <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	416	530	
==>lt => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	416	530	
==>lt => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8303	8400	
==>t test cases exist.
multi Array::min(@self; Code $cmp = &infix:«<=>» --> Scalar) {
    List::min <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3193	3294	
==>compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3193	3294	
==>compare ($self: $span is copy) {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	409	531	
==>_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1937	2059	
==>_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15620	15720	
==>y complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15678	15778	
==>y complex data structures automatically (at least
that is what I hope).

= ENVIRONMENT

Setting the e <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	427	553	
==>.$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is i <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	427	553	
==>.$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is i <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1844	1957	
==>config_template: $!";
        my $tpl_stream = do { local $/; <$tpl> };
        my $tpl_config = $YAML->load($stre <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7427	7533	
==>l currently
# 
# ## XXX @bools? how is this useful?
# =head2 @bools = $repo->add_files($file1, $file2, ...) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3629	3751	
==>,
  );

    my $rule = Pugs::Compiler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	277	382	
==>-9_]+$/)
        || confess "bad attribute name ($name)";
    $class->SUPER::new($name, $type);
}

sub ins <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	306	434	
==>ap { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - ve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	306	434	
==>ap { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - shebang, 
# - ve <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3943	4119	
==>rom;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3943	4119	
==>rom;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When <==
2	/Users/nnunley/pugs/util/testgraph.pl	1352	1469	
==>0;
}

{
    package My::Model;
    use base qw/Test::TAP::Model::Visual/;
    sub file_class { "My::File" }
    
    p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22306	22399	
==>warning.

Added "Unrecognized escape" warnings to I<all> escape sequence handlers.

The 'g', ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21608	21738	
==>$S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18029	18159	
==>$S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{nex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	141	279	
==>::Util 'blessed';

use base 'symbol';

sub new {
    my ($class, $klass) = @_;
    (blessed($klass) && $klass->isa('opaque'))
        || co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	362	483	
==>"} = sub {
            shift()->_top->$method(@_);
        } unless defined &{"$class\::$method"};
    }

    bless( \%arg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	229	345	
==>201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	229	345	
==>201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => 'No Conte <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4684	4785	
==>uctor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4684	4785	
==>uctor C<Config::Tiny::new> creates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24397	24479	
==>,G),CL,amat(C1,G)) :- append(C0,CL,C1).
match_captures_set(N,X,amat(C0,G),amat(C1,G <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15803	15915	
==>LY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(ex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10659	10771	
==>LY) if length($max) and $min > $max;
      return $S->object(quant => $min, $max);
    }
    return $S->object(ex <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14139	14245	
==>long as
C<%hash> doesn't change. 

If C<@keytests> are provided, only elements whose keys evaluate
C<$key ~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	992	1126	
==>ACKAGE__->add_rule( 
        name => '(',
        name2 => ')',
        assoc => 'non',
        precedence => 'equal',
        other => <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	549	654	
==>ookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scient <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	549	654	
==>ookup - t.b.c.

=head1 DESCRIPTION

A Perldoc::DOM is a directed acyclic graph, which is a Computer
Scient <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16653	16744	
==>-start to built-in reversing capability in Perl.

=item Regexp::CharClassOps

Implements cha <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	9	90	
==>inc/Module/Install/Makefile.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module/Insta <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1073	1201	
==>y $merged = 0;
    return if $self->omit;
    push @$tree, $self;
    $self->merge;
  }

  sub merge {
    my ($self) = @_;
    r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27252	27348	
==>ng?, Set of Mapping(Str) of Any :$body?)>

This method creates and returns a new Relation::Exampl <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	3709	4040	
==>>new(
                                    Sym->new('&infix:<->'),
                                    Sym->new('$x'),
                                    Sym->new('$y'),
                                ),
                                Sym->new('$y'),
                            ),
                        ),
                    ) <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	215	314	
==>------------------------------------------------------------------
## This is an extension of the Mi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	183	282	
==>------------------------------------------------------------------
## This is an extension of the Mi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21322	21416	
==>ject's visual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics and Bug Fixe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	983	1096	
==>es
sub to_num { (shift)->[0]           } # return the id
sub to_str { str->new((shift) . '') } # get a str like re <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	85	188	
==>$.year;
has Int $.month;
has Int $.day;
has Int $.hour;
has Int $.minute;
has Real $.second;

has Time:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9930	10049	
==>e zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13407	13526	
==>e zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ($other! <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	1130	1279	
==>h = open("wiki.db", :w);
        $fh.print(%wiki.perl);
        $fh.close;
        show();
    }
    default      {
        show();
    }
};

sub show <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	748	843	
==>rt(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	748	843	
==>rt(:DEFAULT) {
        $string = uri_escape($string, "A-Za-z0-9\-_.!~*'()", negate => Bool::True <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1311	1427	
==>cale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1311	1427	
==>cale::KeyedText::Message.new(
        msg_key => 'ROS_S_HELLO' ) );

    try {
        $dbms = Rosetta::Interface::DB <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2390	2483	
==>.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2390	2483	
==>.set.end }
method start_is_open () returns Bool   { return $.set.start_is_open }
method start_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11017	11131	
==>n of some methods, 
because it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `g <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11017	11131	
==>n of some methods, 
because it will try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	187	327	
==>q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	187	327	
==>q(
    <header> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3291	3406	
==>ode);

	my $kind = $node->struct_equiv->moniker;
	my $method = "define_$kind";
	warn "defining a new $kind (@_)";
	r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8580	8688	
==>\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8580	8688	
==>\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode(" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4062	4161	
==>m * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4246	4345	
==>m * ratchet => 1 - Disable backtracking. Match faster. Defaults to 1 in Rules and Tokens.

=item * p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23761	23861	
==>ODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tuples <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22277	22377	
==>ODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of mappings, or a set of logical tuples <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7965	8064	
==>eturn $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7965	8064	
==>eturn $.complement_previous if defined $.complement_previous;
    $self.get_universe;
    return $.c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2944	3035	
==>ncipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2944	3035	
==>ncipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer closu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2482	2583	
==>previliged user, it will ask you to enter
      commands requiring root privilegies.

Note: The only o <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2147	2255	
==>ame;
    $args->{NAME}     = $self->module_name || $self->name || $self->determine_NAME($args);
    $args->{V <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1257	1361	
==>ame;
    $args->{NAME} = $self->module_name || $self->name || $self->determine_NAME($args);
    $args->{V <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19286	19429	
==>' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39738	39881	
==>' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method::signature <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5371	5464	
==>1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.

=cut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5371	5464	
==>1 ACKNOWLEDGEMENTS

The ACKNOWLEDGEMENTS in L<Locale::KeyedText> apply to this file too.

=cut <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3580	3780	
==>{ return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decode <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3580	3780	
==>{ return $old; },
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decode <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	154	257	
==>file($FindBin::Bin, @_) }
my $src_root = path_from_me();

sub compile_p6 {
    my($p6)=@_;

    my $pugs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22116	22209	
==>ple;

I<This documentation is pending.>

=head1 DESCRIPTION

Relation::Example provides a mini <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1238	1339	
==>t has a memory footprint of constant size because the
algorithm is based on statistics. This was my ma <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1238	1339	
==>t has a memory footprint of constant size because the
algorithm is based on statistics. This was my ma <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	443	540	
==>t intended for
"general" use.  It's more of a pugs bootstrap exercise.

This code is currently com <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	31	123	
==>tor;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar::P <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9665	9891	
==>'&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3451	3582	
==>eturn &$step;
      }
      my $op1 = $operators->($noop);
      if($op1) {
        print STDERR "new op\n" if $debug;
        local <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	955	1071	
==>t uint'~$n~' of ValueType where { $^n ~~ Int and      0     <= $^n <= 2**'~$n~' };'
}
Clutter::int_size 1;
Clutter::i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2246	2382	
==>Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2234	2370	
==>Match::Ratchet';\n" .
        "  \$bool = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25000	25127	
==>Parser::eval;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags} <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	454	556	
==>($class, $plan, $output) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$. <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	341	454	
==>USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI mod <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	341	454	
==>USER> }
sub auth_type       returns Str is export { %*ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI mod <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3152	3251	
==>t ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
mult <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3152	3251	
==>t ::= &Set::Hash::size;
our &Set::Hash::has   ::= &Set::Hash::includes;

# unicode intersection
mult <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6026	6127	
==>semantics.

Please note that most of the time, it will not be necessary to write these 
methods yourse <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6026	6127	
==>semantics.

Please note that most of the time, it will not be necessary to write these 
methods yourse <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3327	3429	
==>s (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3327	3429	
==>s (Str $path, Str ?$base) returns Str`

- `abs2rel (Str $path, Str $base) returns Str`

- `no_upwards ( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2798	2889	
==>ntersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2798	2889	
==>ntersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes($_ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2155	2322	
==>rait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2155	2322	
==>rait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34335	34428	
==>e::KeyedText::Translator object.
The Set Names property of the new object is set from the name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34335	34428	
==>e::KeyedText::Translator object.
The Set Names property of the new object is set from the name <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4549	4658	
==>:<x> { ... } # define your own /:x() stuff/
         macro rxmodexternal:<x> { ... } # define your own m:x()/s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21670	21801	
==>f->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18091	18222	
==>f->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2667	2826	
==>)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2667	2826	
==>)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when ::Perl::Compiler: <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1682	1790	
==>.. " if $Config{verbose};

    gen_source($TEMP_PRELUDE);
    open IN, $TEMP_PRELUDE or
        die "Couldn't <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3488	3578	
==>ly installed.

An improperly installed C<Pugs::Compiler::Rule> module would prevent the Per <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16140	16262	
==>ntation that is like the $html->as_text
            $heading = $p->interpolate($heading);
            $heading =~ s/^\s+|\s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7278	7377	
==>traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traver <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7278	7377	
==>traversal

method traverse ($self: Code $func, Str $traversal_order?) returns Void {
    if !$traver <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	285	394	
==>ve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocatio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	285	394	
==>ve the plaintext from...

=cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocatio <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3120	3232	
==>"# keys: ",%pad.keys;
        $ret =  traverse_ast ( %pad<"pStmt"> );
        $ret ~= traverse_ast ( %pad<"pStmts <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2993	3094	
==>er stack.

Inherits List.

=item Sym

Resolves a symbol into a value. Could be a global or a dynamic s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1030	1117	
==>s Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1030	1117	
==>s Perl::Compiler::PIL::Node::Base {}
class Perl::Compiler::PIL::Node::X0::Base {
}
class <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2539	2642	
==>members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subse <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2539	2642	
==>members));
    return $rv;
}
method superset($self: Set $other) returns Bool {
    my $rv = $other.subse <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1489	1598	
==>n( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub xdigit {
  my ( $matchObj ) = @_
  my ($matchObj, $t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6476	6593	
==>), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6269	6380	
==>), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2270	2432	
==>> \$repo_set,
            allow       => ISA_JIB_REPOSITORY_SET,
        },
        installation_set => { 
            required    => 1, 
            store       = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	869	972	
==>nto a cpan module for
# real use.  It might, imaginably, perhaps, be possible to do this
# Maybe.  And p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12384	12487	
==>ns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12442	12545	
==>ns Bool`

- `eval_is (Str $code, Str $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19876	19968	
==>t the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19876	19968	
==>t the nicknames are normalized.

=head2 C<$bot.user("nick")>

Returns a hashref describing C< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	74	179	
==>is should really be an acccessor - all it's doing is making the
# "source" property of the object fallback <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	74	179	
==>is should really be an acccessor - all it's doing is making the
# "source" property of the object fallback <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1608	1713	
==>t variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1608	1713	
==>t variable.  There is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4696	4800	
==>on is one thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with push-on-array
  m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5972	6093	
==>e ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5972	6093	
==>e ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6060	6235	
==>tribute->new('%:attributes')      => hash->new(),
            attribute->new('%:methods')         => hash->new(),                     
        )
    );
    
# link Class back t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	206	314	
==>bject = bless {}, $class;
  $object;
}

sub null {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	968	1068	
==>$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	968	1068	
==>$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the package
	$se <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32634	32732	
==>tor, and the order of its arguments is not significant to the result;
the new Relation contains all <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37184	37282	
==>tor, and the order of its arguments is not significant to the result;
the new Relation contains all <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1773	1884	
==>l::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1773	1884	
==>l::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10663	10790	
==>ty ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10663	10790	
==>ty ) &&
         ! $.span.isa( 'Span::Code' ) )
    {
        warn "creating an iterator for a continuous Span";
    }
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3886	4039	
==>nstant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3886	4039	
==>nstant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15258	15413	
==>null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined cha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15252	15407	
==>null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined cha <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3945	4069	
==>q '-c'){
        no strict;
        print "---- Regexps ----\n";
        print map{ "$_ => ${$_}\n" } sort grep { /patt/ } ke <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1941	2034	
==>axAttrList () {...}

proto method export_attr_names of List of Relation::AttrName () {...}

pr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8787	8933	
==>ol},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8787	8933	
==>ol},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	560	673	
==>year($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($sec <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	627	740	
==>year($year), :month($month), :day($day),
                             :hour($hour), :minute($minute), :second($sec <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	327	429	
==>ength content_language
    title user_agent server from referer
    www_authenticate authorization prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	327	429	
==>ength content_language
    title user_agent server from referer
    www_authenticate authorization prox <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14362	14475	
==>ro:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.0 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14362	14475	
==>ro:

    $iterator.next;   # 1.00000000000000
    $iterator.next;   # 1.00000000000001
    $iterator.next;   # 1.0 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	271	388	
==>').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	271	388	
==>').say"
    Hello, World!

With Perl 5 embedding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1403	1496	
==>l::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1403	1496	
==>l::Compiler::PIL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Pe <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4118	4206	
==>)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4118	4206	
==>)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3123	3231	
==>path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3123	3231	
==>path = $path;
    $path ~~ s:perl5[^([a-z]:)][{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2413	2513	
==>ered or deciphered; when you're done, call the closure 
with no arguments to finish the ciphering and <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2413	2513	
==>ered or deciphered; when you're done, call the closure 
with no arguments to finish the ciphering and <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38390	38489	
==>ied
by interpolating the %msg_vars into it, where each variable value is
substituted for any occuran <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38390	38489	
==>ied
by interpolating the %msg_vars into it, where each variable value is
substituted for any occuran <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	631	752	
==>*.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	631	752	
==>*.cipher_block(@data);
        }
    }
}

# Things we have to do
method zeroize() {
    ._zeroize();
    for @.buffer -> $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2875	2999	
==>ecedence => 'equal',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rule(
        name => 'try',
        assoc => <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11773	11893	
==>equence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(char(C)) --> octaldigit3_int(C), !.
p6_oct_spec(R)       --> [Open], <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2801	2915	
==>ag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2859	2973	
==>ag "'$desc' was non-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7847	7973	
==>_ );

  sub new {
    my ($class, $rx, $type, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2164	2266	
==>s::Compiler::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*grammar = Pugs::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3717	3870	
==>start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3717	3870	
==>start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_is_open =>   $open_end );
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	509	604	
==>erl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundan <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	509	604	
==>erl5 version
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundan <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1331	1446	
==>blessed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self->{$k <==
2	/Users/nnunley/pugs/util/package-osx.pl	2197	2287	
==>IL /Library/Perl/5.8.6/PIL
        /usr/local/lib/perl5/site_perl/PIL2JS /Library/Perl/5.8. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	339	459	
==>e


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	545	665	
==>e


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @terms @ops );

    *immediate_statemen <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2882	2987	
==>perty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2882	2987	
==>perty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    my $one <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5876	6300	
==>do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$me <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	7638	8062	
==>do_while 
                            (block new 
                                (($e) 
                                {
                                    (((($e get ("$current")) is_not_nil)) 
                                        and (block new 
                                                (($e) 
                                                {
                                                    (($e get ("$me <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	564	714	
==>@{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $class;
	}

	sub AUTOLOAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13873	13986	
==>rn $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1353	1466	
==>rn $v;
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3985	4077	
==>, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3985	4077	
==>, $b) returns Array { set(@a).symmetric_difference(@b).members }

=head1 NAME

Set::Symbols - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	724	838	
==>nstant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	724	838	
==>nstant_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1203	1405	
==>1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1203	1405	
==>1 +< 24;
            $quad  +|= $b2 +< 16;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17345	17453	
==>add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17345	17453	
==>add_handler("PRIVMSG",  \&on_privmsg);
  $bot.add_handler("loggedin", \&on_ready);

  # Connect and login
  $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3533	3634	
==>elegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<de <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3533	3634	
==>elegated
to the query object:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<de <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6664	6872	
==>ode($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6664	6872	
==>ode($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'elems()'
        )
    }

    method uniq ( $a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2201	2331	
==>bit () returns bit>

=item B<to_num () returns num>

=item B<to_str () returns str>

=item B<add (x as num) returns num>

=item B<s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6928	7034	
==>text' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLin <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6928	7034	
==>text' ,'Ctx',
  'paramDefault' ,'Exp';

node_h 'Pos', 'MkPos',
  'posName'        ,'String',
  'posBeginLin <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13291	13425	
==>]+) )?      # optional todo set
                        (?: \s* \# \s* ([\w:]+\s?) (.*) )?     # optional skip with optional reason
REG <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4914	5083	
==>start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4914	5083	
==>start => $i_start,
                     end =>   $i_end,
                     start_is_open => $open_start,
                     end_is_open =>   $open_end );
    }
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13308	13459	
==>}
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub ins <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	865	988	
==>ssocs;   # of assocs

method new($class: Str $name) returns Meta::Class {

    $.name = $name;
    return $?SELF;

}

# take <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1922	2045	
==>l  - produce the data for this tool
     util/testgraph.pl     - Generates an HTML summary of a YAML test run
     util/run- <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16709	16822	
==>bug $reftyp" if !defined $handler;
    $handler->($x);
}


sub p6_meta_CODE {
    my($pkg)=@_;
    "\$${ROOT}::${p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16201	16316	
==>_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header fi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16201	16316	
==>_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type header fi <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1150	1268	
==>rs   safe   (rw!Array)\
# signature doesnt parse. using simplified one.
#multi Array::pairs  (@array ; MatchTest *@inde <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5374	5566	
==>ush(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*pu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5374	5566	
==>ush(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                last if @tail <= -$length;
                &*pu <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17666	17870	
==>= $idx;
        }

        # a conversion
        my $start = $fi;
        $fi++;
        while !(substr($fmt,$fi,1)
                ~~ any(<% c s d u o x e f g X E G b p n i D U O F>)) {
            $fi++ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	246	354	
==>@ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}


# check if we can load some mod <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	536	643	
==>eturn $self->{values}{$key} if defined wantarray and !@_;
        $self->{values}{$key} = shift;
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4136	4252	
==>ure: $matches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4008	4122	
==>ure: $matches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $mat <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2247	2369	
==>:reverse (; *@values) returns Lazy|Str {
   given want {
     when List {
       gather {
         1 while take pop @values <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9072	9171	
==>tput_path   = inpath_to_outpath($input_path);
  my $path = dirname($relative_file);
  my $file = bas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16672	16776	
==>" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each element in it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16672	16776	
==>" attribute.  If the optional named parameter
@child_nodes (an array ref) is set, then each element in it <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	448	580	
==>support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        un <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	448	580	
==>support here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        un <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13374	13469	
==>r refer directly to "Locale::KeyedText" in
your code; instead refer to other above-named package <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13374	13469	
==>r refer directly to "Locale::KeyedText" in
your code; instead refer to other above-named package <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1870	1974	
==>sal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1870	1974	
==>sal_set ($class: ) returns Set::Infinite { 
    $class.new( spans => [Span.new( start => -Inf, end => Inf <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	715	808	
==>n, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs proje <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	715	808	
==>n, as detailed in the
L<Synopses|http://dev.perl.org/perl6/doc/synopsis.html>.

The Pugs proje <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8187	8322	
==>my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8380	8515	
==>my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( @_ );
        r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	312	408	
==>* Span::Code.compare is incomplete
    * Constructors should emit error messages if there are unk <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	312	408	
==>* Span::Code.compare is incomplete
    * Constructors should emit error messages if there are unk <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4469	4648	
==>s
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modif <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4469	4648	
==>s
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $token {
            when rx:P5{^([A-Z])<$} {
                @modif <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1589	1718	
==>} },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    ### install check
    if( $ins <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5819	5956	
==>nt "Cleaning up...\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9001	9118	
==>ted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  r <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9059	9176	
==>ted = 0;
}

END { Test::test_ends() }


=kwid

= NAME

Test - Test support module for perl6

= SYNOPSIS

  use v6;
  r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5524	5659	
==>*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5746	5881	
==>*** $k, $v \n";
        #return unless defined $k;
        return bind_variable( $v, @_[1,2] ) if ref( $v );
        if ( $k eq 'variabl <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	153	256	
==>ss  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	153	256	
==>ss  returns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is expor <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38674	38772	
==>ld!".  All
occurances of any given variable name will be replaced, non-recursively,
and any "<foo>" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38674	38772	
==>ld!".  All
occurances of any given variable name will be replaced, non-recursively,
and any "<foo>" <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2157	2291	
==>$value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc() <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2157	2291	
==>$value {
        # XXX use $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc() <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8688	8827	
==>);
    $s = "\"$v0\"" if $n eq 'VStr' && $s !~ /\A\"/;
    "bless([$s] , \"$n\")";
}
sub PIL::PIL1::NodeSet0::NodeRepArray2::unparse {
    m <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16925	17046	
==>n") if !$m;
    $m;
}
sub get_meta {
    my($pkg)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    no strict;
    $$meta;
} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17759	17865	
==>nce
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17759	17865	
==>nce
    
    Set::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1886	2016	
==>de =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            m <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1886	2016	
==>de =~ /^\s*(?:sub|coro)\s+(\w+)\s+/mg) {
        *{"$pkg\::$sym"} = sub {
            local $Data::Dumper::Terse = 1;
            m <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2792	2893	
==>$union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2792	2893	
==>$union_recurr = $set1.recurrence.union( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	216	350	
==>\&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	216	350	
==>\&hash,
    'bool'   => \&bool,
    '&{}'    => \&code,
    '""'     => \&flat,
    '0+'     => \&flat,
    fallback => 1,
);

# unused <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10835	10964	
==>y ? "compiling" : "skipping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($env, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1307	1404	
==>continuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $resul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1307	1404	
==>continuation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $resul <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47506	47659	
==>l->new('STORE'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method::params-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	649	757	
==>ule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->code;"
    }))->code;
*grammar = Pugs::Comp <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2205	2318	
==>l solvers usually do
a bit of algorithm switching.  When their fast method fails, they fall back
on something more <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	489	599	
==>tch = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	695	805	
==>tch = immediate_statement_rule( @_ );
        # print "immediate_statement_exec: BEGIN AST: \n", Dumper( $match <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	508	612	
==>($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, ve <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	508	612	
==>($path) unless $path eq any(@*INC);
    }
}

# I am purposfully leaving out the archname, version_dir, ve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1950	2123	
==>ot_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1950	2123	
==>ot_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_v <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	455	570	
==>>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	487	602	
==>>1 } )
    # $class->compile( $source, { signature => $sig } ) -- TODO

    my ( $class, $rule_source, $param ) = @_ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	7011	7135	
==>s::Debug ) {
        local $^W=0; # ignore undef warnings
        print "# PERL5LIB=$ENV{PERL5LIB}\n";
    }

    # *sigh* th <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1403	1501	
==>bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This wo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7333	7445	
==>rsection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if defined $.compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7333	7445	
==>rsection()";
    }
}

submethod _get_complement_next ($self: ) { 
    return $.complement_next if defined $.compl <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	354	505	
==>ile::Find;
    File::Find::find(sub { push @modules, $File::Find::name =~ /\.pm\z/i }, 'lib');

    if (@modules == 1) {
        eval {
            $sel <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6985	7093	
==>IL2JS (Perl 6 on JavaScript)";
  $_ eq "pilrun" and return "PIL-Run (Perl 6 on Perl 5)";
  $_ eq "pir"    and <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	569	721	
==>heck_nmake if $args{check_nmake};
        $self->makemaker_args( PL_FILES => {} )
            unless $self->makemaker_args->{'PL_FILES'};

        if ($a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8615	8705	
==>pec_neg([-x|L]) --> "x", p5_modifier_spec_neg(L), !.
p5_modifier_spec_neg([])     --> {true <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13646	13780	
==>r .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app compone <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13646	13780	
==>r .= new(
            set_names => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app compone <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10690	10804	
==>argument may be a plain string or a reference to an array
of strings for a multi-valued field. If the $value is und <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10690	10804	
==>argument may be a plain string or a reference to an array
of strings for a multi-valued field. If the $value is und <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3516	3623	
==>ch must be either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure->isa('closure <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4972	5081	
==>6_new('List',@_)}
sub p6_Scalar {p6_new('Scalar',@_)}

# XXX - Using field names here is a major abstraction v <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	1205	1303	
==>he test results difficult for anything but a human.  To
make it easier for programs to work with te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37364	37462	
==>d, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

This met <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37364	37462	
==>d, returning true if so and false if not.

=item C<load_template_module( $module_name! )>

This met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5512	5615	
==>rnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<objec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5512	5615	
==>rnick)) {
        $!chans.insert(normalize $event<object>);
        debug "Joined channel \"$event<objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	333	467	
==>) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	333	467	
==>) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1554	1719	
==>)");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1554	1719	
==>)");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value) {
                    callm(string($cla <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9569	9679	
==>( $object )`

These methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Rec <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9569	9679	
==>( $object )`

These methods return a logical value. 

The argument can be a Set::Infinite, a Span object, a Rec <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9715	9814	
==>ad() returns Array { return }
method _tail() returns Array { return }

# What we implement for them. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9715	9814	
==>ad() returns Array { return }
method _tail() returns Array { return }

# What we implement for them. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3026	3118	
==>:: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3026	3118	
==>:: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL::PILStmts
    does Perl::Compiler::PIL: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	631	760	
==>my $eval_p6 = sub {
        my($p6)=@_;
	$p6 = "{;$p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10122	10248	
==>y $r = Runtime->new( map { native(env => $env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? !!>',
        bod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2418	2558	
==>),

        match => $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2326	2463	
==>),
        match => $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ { literal => $extracted } ] ) : ( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23761	24001	
==>ne
            if ($_ > $last+1 || $_ == $last) {
                if ($min == $last) {
                    push @canon, $last;
                } else {
                    push @canon, "$min-$last";
                }
                $min = $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4708	4808	
==>shift @context;

			#warn "## unifying " . $self->display_type($expected) . " with " . Data::Dumper:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25319	25419	
==>of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29871	29971	
==>of the invocant.

=item C<not_equal (Relation $other!) returns Bool>

This method returns the complem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3140	3268	
==>>{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3140	3268	
==>>{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @a = _get_captures( $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6820	6998	
==>my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6820	6998	
==>my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $newnamep = $mmat.capture_name;
                        if defined $nu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2043	2150	
==>.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2043	2150	
==>.],
    'LKT_ARG_HASH_VAL_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,] <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6263	6385	
==>lf.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could b <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6263	6385	
==>lf.splice( $pos, 0, [$ret.items] ); 
    return $ret.items;
}

method store ( Int $pos, $item ) {
    # TODO - $pos could b <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3437	3541	
==>ent nodes

=item *

Ensuring that there is no crap in the AST - no calls to stubs and no inexistant symbo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31171	31268	
==>lues applied to each tuple.  The new Relation::Example has all
of the tuples of the original (or r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6061	6195	
==>qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6049	6183	
==>qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_;
        return call_perl5( "[^\\$_]", $_[1] ) i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20274	20425	
==>ant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20553	20704	
==>ant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	159	381	
==>ation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	160	382	
==>ation( [
                   ruleop::constant( "\." )
                 ,
                   ruleop::constant( "\|" )
                 ,
                   ruleop::constant( "\*" )
                 ,
                   ruleop <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	683	786	
==>b sleep (Num $seconds) returns Num is builtin is primitive {
    my $time = time;
    Perl6::Internals:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	973	1118	
==>'*',
    );

    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence => 'looser',
        other => '*',
    ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4864	4958	
==>egex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	5004	5098	
==>egex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14996	15100	
==>m C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14996	15100	
==>m C<$!parent_node> - B<Parent Node>

Rosetta::Model::Node - This stores a reference to this Node's parent <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	342	457	
==>hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      mac <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	342	457	
==>hierarchies,
   in others.  But we cant do that yet.

   And since macros cannot currently define classes,
      mac <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5142	5232	
==>e")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5142	5232	
==>e")   }
method if_unmodified_since ($self: ) is rw { $self!date_header("If-Unmodified-Since <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3240	3435	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                } <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3240	3435	
==>t_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("<H$size>");          
                } <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4640	4752	
==>omplement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4640	4752	
==>omplement;
    $tmp = $span0.intersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7762	7882	
==>Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traver <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7762	7882	
==>Void {
    for @!children -> $child is rw {
        $child.traverse($func);
        $func($child);
    }
}

method traver <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	367	503	
==>see below)
    $.marks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is us <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	367	503	
==>see below)
    $.marks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is us <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9376	9510	
==>8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "& <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9376	9510	
==>8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/{
        given (lc $1) {
            when "amp"  { "& <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	828	947	
==>::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	916	1035	
==>::ws {
	return ''
}
sub node::grammar_name {
    my $ident = get_str( $_[0], '$<ident>' );
    return "package $ident;\n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1104	1206	
==>rity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insecurities pl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1104	1206	
==>rity; see the L</SECURITY> section for details.  (In particular, 
note that the serious insecurities pl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	201	450	
==>by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	201	450	
==>by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Validator::L:: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	677	772	
==>aking C<Role> objects appear to "flatten" in
the classes which they are included; unlike the "mi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1465	1665	
==>ke join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1465	1665	
==>ke join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in regex below
                        # currently <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15877	16017	
==>_width {
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@_) {
        my $suf    = /\.(\w+)$/ ? $1 : '';
        my $len    = length <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1840	1933	
==>Regexes to return a B<Match> object.

* Runtime Classes

=item * L<Pugs::Runtime::Rule> provid <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25895	25993	
==>atom_codes(X,L), !.
listify(X,L) :- string_to_list(X,L), !.
listify(L,L).
listify_lists([X|Xs],[L|L <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14414	14515	
==>re appling must be a function
	die "Can't apply non function type (" . $.fun . " has type " . $f->stri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13619	13729	
==>.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        * <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13619	13729	
==>.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Model::Document.new(
        * <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	136	285	
==>ue = shift;

		bless \$value, $class;
	}

	sub val { ${ $_[0] } }

	sub str { "${ $_[0] }" }

	sub fmap {
		my $self = shift;
		my $f = shift;
		my $r <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	2896	3001	
==>ad1 SYNOPSIS

    use Blondie::Backend::Perl::Builtins;

=head1 DESCRIPTION

This file bridges between per <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10775	10899	
==>for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10775	10899	
==>for input from server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12738	12904	
==>nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12738	12904	
==>nodes => [
            {
                'node_type'  => 'data_sub_type',
                'attributes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13352	13474	
==>strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13352	13474	
==>strip_colon($rest),
        object    => strip_colon($object),
      };

      if %handler{$command} {
        $_($event) f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9974	10074	
==>s
are performed at the moment the user tries to set the input, and input that
fails immediate evaluat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9974	10074	
==>s
are performed at the moment the user tries to set the input, and input that
fails immediate evaluat <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2978	3079	
==>$didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2978	3079	
==>$didget ~ "<-";
  given $didget {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26017	26118	
==>irst value in C<@_>.>  I made sure of this in
my code; you should make sure in yours.

Matching agains <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	765	879	
==>on between them.)  The C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Juli <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	765	879	
==>on between them.)  The C<:shift(N)> option can be used to 
select a different number of letters to shift (e.g. Juli <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	69	165	
==>kage
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Sym <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	69	165	
==>kage
use Set::Symbols;
use Set::Infinite::Functional;

class Set::Infinite-0.01
    does Set::Sym <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10733	10848	
==>ing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10733	10848	
==>ing.  The deferred validations, which
can be arbitrarily complex, make up the bulk of the Rosetta::Model code,
and t <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	162	260	
==>odifed to be somehow incorporated in the test suit

use File::Compare qw(compare);


my $pugs = ".. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12118	12225	
==>>add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4761	4868	
==>>add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgc <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3225	3343	
==>ld_exclude_re {
    my $excl = join "|", # map { quotemeta }
        map { split /,/ } @{ $Config{exclude} };
    $Conf <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2199	2304	
==>size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2177	2282	
==>size} and -s $file != $args{size};
    system($args{run}) if exists $args{run};
    unlink($file) if $args <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1532	1630	
==>erface is good enough for many purposes.  
Although the interface is said to be procedural, it is i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1532	1630	
==>erface is good enough for many purposes.  
Although the interface is said to be procedural, it is i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	832	949	
==>ames ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * crea <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	832	949	
==>ames ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * crea <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20306	20413	
==>erl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entire <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24858	24965	
==>erl 6
core, at least as worthy as a Set data type is.

=head1 INTERFACE

The interface of Relation is entire <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2665	2900	
==>or, Comparator);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7028	7155	
==>if @_;
      $self->{neg};
    }
  }

  sub visual {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->vis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1	99	
==>!/usr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1	99	
==>!/usr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16324	16432	
==>d/g;

    # bison says 'parse error' instead of 'syntax error',
    # various yaccs may or may not capitalize <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	233	319	
==>mmar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q([\w|\d|\:]+))->code;
*rul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6147	6240	
==>L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6147	6240	
==>L<Cipher::Block> and L<Cipher::Stream> can 
reduce the implementation of most block and stream <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5932	6057	
==>oop);
    } if $re eq '\A';
    return sub{
      FAIL() if !($X::pos == 0 || substr($X::str,$X::pos-1,1) eq "\n");
      my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6983	7083	
==>Currently this function is still noisy.  I'm working on it.

=cut

# Turns on autoflush for the handl <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2081	2185	
==>code(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0, <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2081	2185	
==>code(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index(@octect[2],0,         0,0, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3386	3507	
==>\f');
  });

  $self->add_handler('\F' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char_comp => "\f" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2695	2795	
==>omagically for platforms is really bad. I 
hope that as Pugs matures this will change, but for now, i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2695	2795	
==>omagically for platforms is really bad. I 
hope that as Pugs matures this will change, but for now, i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	772	897	
==>ars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.t <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	772	897	
==>ars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12561	12771	
==>st{ml}$txt";
                    $failedtests{$tfile} = { canon   => $canon,
                                             max     => $test{max},
                                             failed  => scalar @{$ <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	115	235	
==>late;
#use perl5:Text::Textile qw(textile);

print header();
#my $template  = HTML::Template.new(filename => "wiki.html") <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11286	11403	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11286	11403	
==>F',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	13275	13394	
==>> sub { utime undef, undef, $initrd_img },
    help   => <<HELP;
      Please create a $initrd_mnt/dev/console by enteri <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10986	11083	
==>Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10986	11083	
==>Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B<script_name re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1008	1145	
==>=> 'type'
        );
    }    
    
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        sig  => $sign <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1486	1607	
==>r
    #     { $_[0]->{out}= { %{$_[2]}, %{$_[1]} } }
    
    |   signature_term BAREWORD BAREWORD
        { $_[0]->{out}= <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7978	8068	
==>arrot/include/$_" <= $newest_p_stamp and
  $newest_p_stamp = -M "$parrot_path/runtime/parro <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6840	6956	
==>n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6840	6956	
==>n2;
    }
}

submethod _get_intersection ( $closure1, $closure2, $closure3, $closure4 ) {
    return $closure1 if $cl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5470	5590	
==>n // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5528	5648	
==>n // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3671	3795	
==>our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3671	3795	
==>our args here, maybe 
    # replace this with 'is copy' parameter 
    # trait at some point    
    my $path = $_path;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1372	1511	
==>der('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1372	1511	
==>der('Content-Base')      //  # used to be HTTP/1.1
                   ./header('Content-Location')  //  # HTTP/1.1
                   ./head <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	16563	16681	
==>('WALKCLASS')->do(list->new($e->get('&dispatcher'))));
                })->do_while(
                    block->new($e, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7941	8030	
==>fy(M,R)) --> ":", !, p5_start(R), ")", !.

p5_modifier_spec(L) --> p5_modifier_spec_pos(L) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6211	6322	
==>lete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(nor <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6211	6322	
==>lete($chan);
        debug "Left channel \"$chan\".";
      } else {
        %!channels{$chan}<users>.delete(nor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1249	1347	
==>RIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1249	1347	
==>RIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for all C<PRIVMSG> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3677	3818	
==>ule";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Impor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3735	3876	
==>ule";

    #try {
    #    &::($module)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Impor <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	397	511	
==>no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (& <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	397	511	
==>no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (& <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	985	1078	
==>uage Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	985	1078	
==>uage Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires Last-Modi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	559	673	
==>tself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindB <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	559	673	
==>tself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindB <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10128	10228	
==>constructor arguments are passed to the C<header> method which is
described below.

=item $h->header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10128	10228	
==>constructor arguments are passed to the C<header> method which is
described below.

=item $h->header( <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3299	3416	
==>.
    This module is generated by util/PugsConfig.pm.
-}

{-|
    Pugs System Configuration.

>   Alive without breath <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2939	3061	
==>{
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2939	3061	
==>{
        return ( $span, $self );
    }

    my ($i_start, $i_end, $open_start, $open_end);
    $cmp = $.start <=> $span.s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13885	14008	
==>r $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13885	14008	
==>r $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqueue("JOIN $channel $key");
      } else <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9356	9482	
==>k       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9356	9482	
==>k       => { $curnick },
    curusername   => { $curusername },
    curircname    => { $curircname },
    curhostname   => { $c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6705	6869	
==>uping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7169	7333	
==>uping    
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6908	7007	
==>tent = $class->pmc_process($real_content);
        $class->$post_process($filtered_content, $real_da <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6908	7007	
==>tent = $class->pmc_process($real_content);
        $class->$post_process($filtered_content, $real_da <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	601	711	
==>lf: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!result <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	601	711	
==>lf: @results) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!result <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15881	16025	
==>ocking
        $prog =~ s{if \(-e _ and -f _ and -r _\)}
                  {if (-e _ and -f _)}
    }

    print TEST $prog;
    close TEST or di <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5049	5176	
==>default'>
    | <'if'>
    | <'throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof'>
    | <'typ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	641	792	
==>{ $_[0]->{out}= { attribute => [] } }
    |   BAREWORD  BAREWORD  attr
        { $_[0]->{out}= { 
            attribute => [ 
                [$_[1], $_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1704	1818	
==>e/;

    package Blondie::Node::List;
    use base qw/Blondie::List Blondie::Node/;

    package Blondie::Node::Map <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3661	3844	
==>send('has_method' => $e->get('$label'))
                  ->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	201	451	
==>by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 { <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	201	451	
==>by packages in this file:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::L::en-0.210.1 { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14165	14275	
==>y
	return $Perl if $^O eq 'VMS';

	my $exe;
	eval "require Config; Config->import";
	if ($@) {
	    warn "test. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1045	1171	
==>_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!memb <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1045	1171	
==>_size);
}

method remove($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!memb <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	8435	8629	
==>to wrap $k?
            }
            $A.property_value{$P} = $Result12;
            return;
        }
        # 5
        $A.property_value($P) = $V;
    } else { # 7
        $A.property_value($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	398	493	
==>'Sequence (?{...}) not terminated or not {}-balanced';
use constant RPe_SWNREC => --$ENUM, 'Swit <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	462	598	
==>hift;
    $flavor =~ s/\W//g;

    die "Usage: use re::override-flavor" unless $flavor;

    unless ($inserted++) {
        regexp_execho <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19973	20068	
==>,E0,E0) :- !.
rm(char(C),     [Ci|F1],F1,B0,[C|B0],E0,E0) :- flag_i(E0), case_insensitive_char_e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2859	3002	
==>') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2859	3002	
==>') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL',
                    { 'METH' = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15552	15666	
==>E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and time after which th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15552	15666	
==>E.g.>:

  $h.date = time;  # set current date

=item $h.expires

This header gives the date and time after which th <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7818	8005	
==>ored.";
            $msg ~= "  Perhaps you meant :i:s ?" if $k eq ("is"|"si");
            warning $msg;
        }
    }
    if !$p5 {
        my $pre = "";
        if %mods<i> || %mods<ig <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3679	3784	
==>nd)
  $self->add_handler('\G' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "G", " in character <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24771	24868	
==>e Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, In <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24771	24868	
==>e Rosetta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, In <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17475	17587	
==>.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pug <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17475	17587	
==>.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC::OO> is an IRC library for Pug <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22091	22218	
==>s_1:
    reps[cname] = self
    self["isarray"] = isarray
  
  next_cname:
    $S0 = substr cname, 0, 1
    if $S0 == '"' goto e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	59	163	
==>l5;
use base qw(Pugs::Compiler::Rule);
use Exporter 'import';
use Data::Dumper;
use strict;
our @EXPORT_O <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1261	1402	
==>ocal $SIG{__WARN__} = sub { };
            local $Storable::forgive_me = 1;
            local $Storable::canonical = 1;
            local $Sto <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	362	493	
==>s (
		$^O eq 'MSWin32'                     and
		$Config::Config{make}                and
		$Config::Config{make} =~ /^nmake\b/i and <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3263	3367	
==>opied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3263	3367	
==>opied.
method add_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23960	24053	
==>ternate solutions like "gettext" suggests that they
use a compile-time macro-based approach to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23960	24053	
==>ternate solutions like "gettext" suggests that they
use a compile-time macro-based approach to <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1303	1403	
==>hack to be identified by smokeserv
$ENV{HARNESS_PERL}  = "$^X -I/tmp/JSPERL5 $FindBin::Bin/../perl5/P <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	632	832	
==>op::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	633	833	
==>op::constant( "\]" )
                 ,
                   ruleop::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5681	5853	
==>ere are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next R <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6145	6317	
==>ere are
                    ### no available modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1598	1703	
==>ure of the signature; it does

not allocate containers.



the Body is just a structure with three node fo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1533	1635	
==>ure of the signature; it does
not allocate containers.

the Body is just a structure with three node fo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9299	9431	
==>ce (Code $expression ; *@values --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	695	825	
==>ce (Code $expression ; *@values --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1370	1495	
==>r => 'prefix:<+>',
    );
    __PACKAGE__->add_rule(
        name => '!',
        assoc => 'left',
        precedence => 'equa <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	344	459	
==>d~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$content_type = 'text <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16902	17000	
==>ingle span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16902	17000	
==>ingle span.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `stringi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1729	1865	
==>ompare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1729	1865	
==>ompare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shift @a
        if @a;
    while( @a ) {
        m <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5547	5649	
==>ct>),
    $smoke{id};
}

sub unpack_smoke {
  my $name = shift;

  /^pugs-smoke-([\d.]+)-r(\d+)-([\w\d] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35165	35264	
==>er

=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35165	35264	
==>er

=item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23898	23997	
==>Str) of Any :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28450	28549	
==>Str) of Any :$body?)>

This method creates and returns a new Relation object, whose Heading and
Body <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5662	5788	
==>$h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$bounda <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5662	5788	
==>$h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$bounda <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3495	3607	
==>ck/Compiler.pm

lib/Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fgloc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3371	3479	
==>ck/Compiler.pm
lib/Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fgloc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8057	8155	
==>t" operations on 
Span objects, that return lists of spans.

In this example, @span may contain zer <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8057	8155	
==>t" operations on 
Span objects, that return lists of spans.

In this example, @span may contain zer <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	618	765	
==>package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\. <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	618	765	
==>package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\. <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22856	22947	
==>class_neg(X),C), !.
charset_member(E0,C,[_|T]) :- charset_member(E0,C,T).

%---------------- <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1254	1357	
==>de.pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1564	1663	
==>n(x) + strlen(y) + 1));
	(void)sprintf(target, "%s%s", x, y);
	return target;
}

PV type_convert_IV_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2641	2738	
==>e base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
h <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2641	2738	
==>e base File::Spec. Also the
/hack/ to make it work automagically for platforms is really bad. I 
h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1337	1429	
==>TestPlan.

This file contains both the TestBuilder::TestPlan object and 
a subclass, TestBuil <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2314	2429	
==>dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICEN <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2314	2429	
==>dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICEN <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17237	17335	
==>that, we can do anything we want with it.
This is perhaps the most flexible place to allocate large <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22337	22435	
==>that, we can do anything we want with it.
This is perhaps the most flexible place to allocate large <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3786	3899	
==>rsion.version)
    ,("pugs_revision", Pugs.Version.revnum)
    ]

getConfig :: String -> String
getConfig key = Ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2558	2660	
==>t support, this module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. A <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2558	2660	
==>t support, this module is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. A <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1347	1444	
==>> junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Val <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1347	1444	
==>> junctions of lists
# - list concatenation --> array concatenation

# ---------

class Perl6::Val <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2540	2667	
==>to generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2540	2667	
==>to generated
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	698	834	
==>g;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid for a R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4176	4312	
==>g;
        # Set of Str
        # Each Set member is a name of one of this Relation's attributes.
        # Note that it is valid for a R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3993	4186	
==>map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7470	7663	
==>map{$_.key} => $_.value } )
        }),
    );
}

###########################################################################

method project (Set of Str $attrs!) returns Relation {

    if ($at <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1546	1751	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1546	1751	
==>eturn;
}

###########################################################################

method export_as_hash () returns Hash {
    return {
        'msg_key'  => $!msg_key,
        'msg_vars' => {%!msg_vars <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3851	3950	
==>`Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Crea <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3851	3950	
==>`Set::Infinite`.

= CONSTRUCTORS

- `new()`

Creates an empty set.

- `new( spans => @spans )`

Crea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8024	8151	
==>rnation( [ ruleop::null(), $_[0] ] );

}



sub ruleop::greedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7750	7871	
==>rnation( [ ruleop::null(), $_[0] ] );
}

sub ruleop::greedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	279	372	
==>G_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	279	372	
==>G_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9509	9628	
==>de $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) r <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9509	9628	
==>de $.mode" }
    }
}

# What they need to implement.
method zeroize()                {...}
method _cipher(Array $data) r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4601	4719	
==>e already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nick, make sure we'v <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4601	4719	
==>e already initialized %!cache353{$chan}.
      %!cache353{$chan}.delete(@nicks);

      # For each nick, make sure we'v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	235	382	
==>$_[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	322	435	
==>$_[2] ] ) },
    looser  => sub { splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   pu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11282	11375	
==>em B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11282	11375	
==>em B<url_decode (Str $to_decode) returns Str>

=item B<url_encode (Str $to_encode) returns Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20612	20763	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20891	21042	
==>capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_print;
*{'_my'} = 

    sub { 
        my $rule = 
       ruleop <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12687	12784	
==>et2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12687	12784	
==>et2)>

=head2 C<$set1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14757	14853	
==>be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14815	14911	
==>be expanded more to handle the
error reporting needs of the cmp_ok() function.

- is_deeply

Once <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3881	4002	
==>t) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckMid {
   my ($scr) = @_;
   my @tt = (
      [ 'file1',  $fil <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	937	1049	
==>:all) {
  ## XXX - orig: $wanted = [$wanted] unless ref $wanted;
  my $wp := $wanted.isa(Array) ?? $wanted !! [$w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20025	20120	
==>.  This means that force_object()
should be used to create stand-alone objects.

Each object now <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	756	851	
==>oc/trunk/';
    my $_PERL6_BIBLE =  'http://tpe.freepan.org/repos/iblech/Perl6-Bible/';
    prin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13277	13379	
==>e() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; ping <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13277	13379	
==>e() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; ping <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5698	5823	
==>{$caller.subname}() at {$caller.file} line {$caller.line}";
        };

        $mess;
    }
}


=kwid

role Rule {}
class Pug <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10590	10683	
==>err_closure:
    parse_error(mob, pos, "Error in closure quantifier")
.end

.sub "parse_subrul <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3787	3909	
==>map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3787	3909	
==>map:{ $set1.new( recurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	623	749	
==>ns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use T <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	623	749	
==>ns Str (Int $run)
    {
        return "1..$run";
    }
}

=pod

=head1 NAME

Test::Builder::TestPlan

=head1 SYNOPSIS

  use T <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8527	8639	
==>ed from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8527	8639	
==>ed from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-entity> /
        # <http <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1352	1450	
==>{}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1352	1450	
==>{}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_assert_arg_hash( 'n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7094	7203	
==>pher mode role to add some information to the output.

A default implementation of this method is provided whi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7094	7203	
==>pher mode role to add some information to the output.

A default implementation of this method is provided whi <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2757	2867	
==>tream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2757	2867	
==>tream. A bucket never
conforms to an I<N> greater than C<burst size>.

It returns a boolean value.

=item count <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10663	10781	
==>d

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .local int pos, last <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4610	4712	
==>odule, $line_number, $post_process) = @_;

    # Read original module source code instead of taking fro <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4610	4712	
==>odule, $line_number, $post_process) = @_;

    # Read original module source code instead of taking fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3919	4062	
==>rse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5143	5286	
==>rse 0 .. $#{$self->{levels}} ) {            
        my %assoc;
        for ( @{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27860	27995	
==>ess (@:MRO) {
        @:MRO = $self._merge();
    }
    @:MRO;
}

(method MRO ((opaque $self:)) returns list 
    (($self: get_attr (sym <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4340	4454	
==>ame($V));
    return $Result4;
}
# 8.7.2
method PutValue (JSX::PsuedoValue $V) { raise ReferenceError; }
method Put <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7120	7234	
==>ingleton/class method');
   
is($Object->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	43021	43118	
==>1 SEE ALSO

Go to L<Relation> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4368	4457	
==>---------------------------------------------
## BOOTSTRAPPING Roles
## ------------------ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4391	4480	
==>----------------------
## BOOTSTRAPPING Roles
## ----------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	487	636	
==>olume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:per <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	487	636	
==>olume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:per <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7467	7582	
==>ms = map{DOWN($_)} @$pParams;
    my $lval = $pLValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CODE($n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19112	19228	
==>K - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Po <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19112	19228	
==>K - A top level (not nested) code block. Ending '}' must be
        on its own line in the first column.
    POD - Po <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2520	2635	
==>ust A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $volume if possible. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2520	2635	
==>ust A:, make sure the glue separator is
    # there, reusing whatever separator is first in the $volume if possible. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6675	6777	
==>%channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6675	6777	
==>%channels{$chan}<users>.delete(normalize $event<from_nick>);
      %users{~normalize($event<from_nick>) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1100	1225	
==>ther {
     for @values -> $x {
       take $x if $x ~~ $test;
     }
   }
 }
 multi sub Array::join (@values,   Str $delimite <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5109	5205	
==>de.hs fallback or a Prelude.pm.yml file (written to stdout),
to be loaded by Run.hs.

When pugs i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15292	15406	
==>st) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15292	15406	
==>st) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Module Compilation <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3385	3493	
==>);
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3385	3493	
==>);
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers f <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24429	24556	
==>le::free->new,
	);
	$a->instantiate($b);
	is($type->stringify, "∀α. α → α", "pretty print a -> b where a = b");
}
{
	my $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9949	10066	
==>t
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9949	10066	
==>t
        (Str $text! is copy, Any %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9125	9295	
==>export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " {\n" . 
                    _emit_parameter_binding( $n->{signature} <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1367	1465	
==>uming(by => &infix:<cmp>);

 type KeyExtractor ::= Code(Any) returns Any;
 type Comparator   ::= Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1353	1477	
==>less defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1353	1477	
==>less defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s, \$_[1], \ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	333	432	
==>time::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	3248	3349	
==>ping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	6725	6826	
==>ping(Str) of Str $mapping!) returns Relation {

    die "Some keys of $mapping! do not match this rela <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	936	1079	
==>unt>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a fle <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	936	1079	
==>unt>(5);
      }
    }
    # we're likely to have processed 200 items (and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a fle <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2109	2225	
==>XISTS, store => \$dir },
        };
    
        check( $tmpl, \%hash ) or error( Params::Check->last_error ), return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5052	5159	
==>Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = ( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5052	5159	
==>Model and Locale::KeyedText

    # Define how to talk to our database and where it is.
    my %DB_CONFIG = ( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10049	10156	
==>n unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10328	10435	
==>n unless $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	76	211	
==>t_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	76	211	
==>t_match   = 0;
our $pretty_print  = 0; #no effect yet...
our $format        = 'p5';
our $got_options   = 0;
sub import {
	return if $got <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1588	1748	
==>rn;
      @values.push($v);
    }
    ## XXX - @values != \@values
    return \@values, $input;
  };
}

## Chapter 8 section 3.2

sub alternate(Array *@p) is exp <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6271	6411	
==>\n   List      pre     values  safe   (rw!Array)\
\\n   List      pre     List::kv      safe   (rw!Array)\
\\n   List      pre     pairs   sa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3432	3563	
==>~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unles <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3432	3563	
==>~~ s:perl5{^(\.\\)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unles <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	710	865	
==>LASS->new(@_) }        
    },
    submethods => {
        'BUILD' => sub {
            _('$.output' => $::TestBuilder->FETCH('::Output')->new());
        } <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5300	5400	
==>ion data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Retur <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5300	5400	
==>ion data

=item write

The C<write> method the file for the properties, and writes it
to disk.  Retur <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7307	7453	
==>"pSubType"> );
            # types: SubMethod, ...
        dbg "# Name:       "; my $name =     emit_Variable( %pad<"pSubName"> );
        $ret = e <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15152	15260	
==>in seconds
    has Bool $.is_dst;
}

multi sub localtime(Num $when = time) returns Time::Local
        is pri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	75	169	
==>s::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	75	169	
==>s::Grammar::Base';

*EscapeChar = Pugs::Compiler::Rule->compile(q(
    \\\\ | \\"
))->code;
*St <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11437	11542	
==>ibutes is identical; they do not
interact with the outside environment at all.

A Document object has 2 ma <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11437	11542	
==>ibutes is identical; they do not
interact with the outside environment at all.

A Document object has 2 ma <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9318	9489	
==>$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_ol <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10309	10480	
==>$fagain;
        }
        @_=$fmin; $i++; goto &$f;
      };
      $fagain = sub{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_ol <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9238	9361	
==>T end
        
        s/^__(.*)__$/PugsBuild::Config->lookup($1)/e;
        
        die "don't know where this option belo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23379	23481	
==>ard to the near
future where "Relation" is a Role rather than a Class, and some
implementations are imm <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27931	28033	
==>ard to the near
future where "Relation" is a Role rather than a Class, and some
implementations are imm <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1274	1410	
==>le_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        l <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1274	1410	
==>le_name_is_absolute($script);
        my @path = splitpath($script);
        $Script = pop @path;
        $Bin = catdir(@path);
        l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14556	14670	
==>second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14556	14670	
==>second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in
        # the first possible language <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2067	2208	
==>".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are alwa <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2067	2208	
==>".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are alwa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4150	4249	
==>nless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4150	4249	
==>nless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3090	3204	
==>:fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2981	3091	
==>:fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1338	1440	
==>$config{'repo_index_file'}  = [ Path::Class::file('index')  ];
$config{'repo_index_groups'}= [ [map {Pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	111	223	
==>RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	111	223	
==>RuleInline.pl, RuleInline-more.pl for a program prototype

# XXX - cleanup unused nodes

use strict;
use warnings <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3195	3317	
==>curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our usern <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3195	3317	
==>curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle_pseudo>("loggedin");
    # We want to know our usern <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2666	2769	
==>e defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2666	2769	
==>e defval { \= <item> }

# Placeholders

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6402	6533	
==>s>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6402	6533	
==>s>.delete($chan)
          if %!users{normalize $event<from_nick>}<channels>;
      }
    });

    # Somebody was kicked. Update %ch <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5523	5652	
==>t($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.po <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6020	6144	
==>t($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.po <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12135	12230	
==>function currently on checks with ref() since we do not yet have
object support. Once object sup <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12193	12288	
==>function currently on checks with ref() since we do not yet have
object support. Once object sup <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32244	32345	
==>plays that; and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32244	32345	
==>plays that; and so on.

I<For the present, Locale::KeyedText expects its Template modules to come
from <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4698	4832	
==>mplement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4698	4832	
==>mplement()

  # XXX

- intersects( $set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12454	12593	
==>ess {
        map { $_->equals => $_  } @_,
    }, $class;
}

sub compile {
    my $self = shift;
    
    my $env = shift;
    my $ast = sh <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	983	1098	
==>name => '&infix:<~>',
			body => 'prel_cat',
			type => type("PV -> PV -> PV"),
		},
		{
			arity => 2,
			name => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10617	10726	
==>mpile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10617	10726	
==>mpile regex we fake it with a cached sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%cha <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19270	19399	
==>send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39722	39851	
==>send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3073	3276	
==>); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::She <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3073	3276	
==>); # note: the objects will stringify
        return;
    }
    $*OUT.say( $user_text );
    return;
}

###########################################################################

} # module Rosetta::She <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40859	40954	
==>xt that you are willing to distribute,
because that is a practical way of suggesting improvement <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40859	40954	
==>xt that you are willing to distribute,
because that is a practical way of suggesting improvement <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2238	2336	
==>but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): ar <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2238	2336	
==>but rather contains '<VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): ar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3816	3945	
==>ontrol;
        my $jibdir  = $conf->jib_dir;
    
        ### XXX hardcoded .svn exclusion! we should fix this proper!
        sy <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1145	1258	
==>s::compile_pir(".sub pugs_eval_parrot\n$code\n.end\n");
    $sub();
}

sub pi () returns Num is builtin is primiti <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	16	123	
==>HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	16	123	
==>HTTP::Headers::Util-0.2;

sub split_header_words (*@values) is export {
    my @return;
    
    for @values <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14387	14493	
==>class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8590	8696	
==>class
  $self->add_handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2089	2191	
==>method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_hei <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2089	2191	
==>method add_child ($self: Tree $child) returns Tree {
    $child!set_parent($self);   
    $self!set_hei <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1245	1351	
==>ds, it tail-calls the continuation (i.e. returns whatever the
continuation returns) with an updated C<Resul <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1245	1351	
==>ds, it tail-calls the continuation (i.e. returns whatever the
continuation returns) with an updated C<Resul <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12065	12187	
==>"#" .(0+$link) . 
                    "' id='" . (0+$link) . "'>" . encode_entities($whole) . "</a>";
      push @{$link_in <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3043	3151	
==>ef );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3043	3151	
==>ef );
    # new() knows what to do: Span, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14061	14158	
==>_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14061	14158	
==>_saved} );

=back

=head2 The Rosetta::Model::Node Class

A Node object is a simple container whic <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3355	3466	
==>aram<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3355	3466	
==>aram<before>; $end_is_open =   Bool::True };

        if   !defined( $start ) &&  defined( $end ) { $start = -In <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	845	941	
==>lements of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	845	941	
==>lements of a constantly-transforming 
state table with each byte of plaintext or ciphertext.  (It <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10432	10587	
==>ement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10711	10866	
==>ement_rule'} = 
       ruleop::concat(
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::altern <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24182	24293	
==>ush @result, "FAILED test $last\n";
        $canon = $last;
    }

    push @result, "\tFailed $failed/$max test <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5722	5830	
==>cc;
    return $S->object(alnum => 1);
  });

  # alnum (a word character)
  $self->add_handler('\w' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6342	6463	
==>s %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6354	6475	
==>s %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile_rule( $source, {flag <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	807	947	
==>6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	807	947	
==>6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v1 +< 4) <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1953	2056	
==>both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$p <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2833	2936	
==>both kinds of requires into prereq_pm
    my $prereq = ($args->{PREREQ_PM} ||= {});
    %$prereq = ( %$p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5814	5910	
==>. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5814	5910	
==>. Update %channels and %users accordingly.
  %handler<JOIN> = [-> $event {
    if(normalize($even <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1504	1842	
==>r has
    ) ) {
        __PACKAGE__->add_rule(
            $_ =>  qq( <before \\s> { return { stmt => '$_' } } ));
    }
    for ( qw(
          BEGIN
          CHECK
           INIT
            END
          FIRST
          ENTER
          LEAVE
           KEEP
           UNDO
           NEXT
           LAST
            PRE
           P <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12214	12326	
==>=)
  package Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23664	23815	
==>lock'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23943	24094	
==>lock'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { sub_decl => <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	241	378	
==>[0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	241	378	
==>[0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.new(
            template     => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5493	5625	
==>> chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omeg <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5493	5625	
==>> chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi"      => chr(936),
    "Omeg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2380	2510	
==>okies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2380	2510	
==>okies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $cookies.keys. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2605	2724	
==>)
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2798	2917	
==>)
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2560	2697	
==>ic
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and lo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2560	2697	
==>ic
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and lo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9996	10092	
==>urns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9996	10092	
==>urns a new set containing all the elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5290	5381	
==>my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5290	5381	
==>my $real_content = $class->pmc_unfold_blocks($folded_content);
    my $real_data = $class->p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2458	2598	
==>), return;
# 
#         ### copy these sources to a build dir
#         JIB::Utils->_copy( file => $tmpsrc, to => $builddir )
#             o <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10333	10450	
==>ubstr target, pos
    max = $S0
    pos = $I1
  quant_closure_end:
    $S0 = substr target, pos, 1
    if $S0 != "}" g <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15527	15620	
==>ecause these functions will be mutually recursive, they will easily be
able handle arbitrarily <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15585	15678	
==>ecause these functions will be mutually recursive, they will easily be
able handle arbitrarily <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2476	2583	
==>rom($file)  unless $self->license;
    $self->abstract_from($file) unless $self->abstract;
}

sub provides { <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	0	105	
==>module Text::Glob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcar <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	0	105	
==>module Text::Glob-6.0.0;

use v6;

has Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10027	10126	
==>he elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10027	10126	
==>he elements of C<$set1> which are not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1574	1670	
==>= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1574	1670	
==>= AUTHOR

Stevan Little <stevan@iinteractive.com>

= COPYRIGHT

Copyright (c) 2005. Stevan Little <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7005	7157	
==>de($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7005	7157	
==>de($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32781	32878	
==>ne copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relation>

Th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37331	37428	
==>ne copy each of any duplicated tuples.

=item C<exclusion (Relation $other!) returns Relation>

Th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9211	9313	
==>alue} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9211	9313	
==>alue} = '&'~$key~';';
}

%char_to_entity.delete("'");  # only one-way decoding

# Fill in missing entit <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	686	811	
==>$!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	686	811	
==>$!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    return ($self.size - $pre_size);
} <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1835	1934	
==>y @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submeth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1835	1934	
==>y @lower is constant = map &ord, "abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submeth <==
2	/Users/nnunley/pugs/util/package-osx.pl	1856	1983	
==>e_perl/pugs-smokejs.pl /Library/Perl/5.8.6/pugs-smokejs.pl
        /usr/local/lib/perl5/site_perl/runjs.pl /Library/Perl/5.8.6/r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27345	27450	
==>= $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser::Objects - objects <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2082	2181	
==>the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and t <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2082	2181	
==>the C<Text::Glob> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and t <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10333	10440	
==>y tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1 <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10333	10440	
==>y tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3806	3918	
==>>code();

    require <?p6ws> <ident> <?p6ws>? \;
        { 
		eval 'require '.$()->[2]{ident}[0]{ident};
		retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28099	28268	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28378	28547	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3279	3386	
==>e else?

libX/fglock/Pugs/Compiler.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fgl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3164	3267	
==>e else?
libX/fglock/Pugs/Compiler.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fgl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4063	4341	
==>p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4063	4341	
==>p eq $req_port;
                                }
                            }
                        
                            unless ($found) {
                                #LWP::Debug::debug("   port $port:$req_port does not fit");
                                next <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1008	1100	
==>ion> \| <term>+? }
rule non_alternation { <conjunction> | <non_conjunction> }

rule conjuncti <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16971	17079	
==>or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare( $span )`

Compa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16971	17079	
==>or a scalar value.

- `stringify()`

Return a string representation of the span.

- `compare( $span )`

Compa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	917	1052	
==>r $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	917	1052	
==>r $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping the server when we haven't seen traffic for 90s
  Int $l <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2310	2429	
==>_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why thi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2310	2429	
==>_universe, span => $set2 );
        return ( @diff, $intersect ).sort:{ $^a.compare( $^b ) };
    }

    # XXX - why thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12267	12414	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12546	12693	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15332	15430	
==><$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extens <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15332	15430	
==><$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by extens <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3544	3640	
==>-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_fla <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3544	3640	
==>-name-shadowing -I$pugs_core -L$pugs_core -i$pugs_core";
    return ($ghc, $ghc_version, $ghc_fla <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32833	32924	
==>usion (Relation $other!) returns Relation>

This multi-method is a generic binary relational <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37383	37474	
==>usion (Relation $other!) returns Relation>

This multi-method is a generic binary relational <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10786	10904	
==>rom server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livech <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10786	10904	
==>rom server and process it
  method run() {
    while $.connected {
      $queue.run;
      ./:readline;
      ./:livech <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2618	2839	
==>parator
                      | Pair(KeyExtractor, Comparator);

 multi sub Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2493	2604	
==>nbound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8798	8906	
==>plate_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8798	8906	
==>plate_module',
        '$module_name!', $module_name );

    # Note: We have to invoke this 'require' in an e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10278	10408	
==>e'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10272	10402	
==>e'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{'$name'}, \$match];
$_[1]         } else {
$_[1]           push \@{ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13409	13580	
==>tional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( my($max, $extra) = $line =~ /^1\.\.(\d+)(.*)/ ) {
        $self->{max}  = $max;
        assert( $s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	10633	10719	
==>p6_char_class(class_pos(vertical_space))    --> "\\v", !.
p6_char_class(class_neg(verti <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	727	866	
==>1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		my $self = shift;
		m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	23	118	
==>beginning of a simple JavaScript-on-p6 runtime.
It seems likely there will be more than one.

De <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	706	900	
==>{
    return unless @_;
    my @mess = map { /^#/ ? "$_\n" : "# $_\n" }
               map { split /\n/ } @_;
    my $fh = $TODO ? *STDOUT : *STDERR;
    print $fh @mess;

}

sub skip_all {
    i <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	801	939	
==>, which we can get away with since
   this is currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so.. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	801	939	
==>, which we can get away with since
   this is currently simply a code generator.

=cut

# XXX - macro's cant currently define classes, so.. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7391	7488	
==>put data until they have an entire block, then cipher 
the block and return the new ciphertext (or <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7391	7488	
==>put data until they have an entire block, then cipher 
the block and return the new ciphertext (or <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1630	1730	
==>s bit>

=item B<to_native () returns *native*>

=item B<to_bit () returns bit>

=item B<to_num () ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16222	16345	
==>rms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16222	16345	
==>rms = (
        "$.orig",
        "{$.orig}_", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3500	3595	
==>mmand shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3500	3595	
==>mmand shell for the Rosetta DBMS

=head1 VERSION

This document describes Rosetta::Shell version <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21917	22011	
==>distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely objec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21917	22011	
==>distribution for that comparison.

=head1 INTERFACE

The interface of Rosetta is entirely objec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3338	3477	
==>ir] )                and error($?), return;   
        system( qq[mkdir -p $builddir/$path] )          and error($?), return;
        system <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/op-arten.pl	63	160	
==>le"		# "file".prefix:<=>()

# der "reduce metaoperator" ist ein prefix Listen-Operator
[+] 1, 2, 3 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	591	699	
==>) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	591	699	
==>) returns bool {
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4316	4446	
==>ub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4316	4446	
==>ub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3426	3520	
==>AME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=hea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3426	3520	
==>AME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parser

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4166	4287	
==>niverse,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4166	4287	
==>niverse,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_comple <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4221	4650	
==>it of link 
                        (?:
                          \s+                                   # Whitespace before re
                          $RE{delimited}{-delim=>'/'}{-keep}    # Regex
                          ([xim]*)                              # RE options
                        )?                                      # End of regex block
                      >+)                                       # End <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10264	10373	
==>!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_valu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10264	10373	
==>!', %msg_vars );

    for %msg_vars.kv -> $var_name, $var_value {
        my Str $var_value_as_str = $var_valu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4658	4768	
==>OPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / v <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4658	4768	
==>OPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / v <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	220	328	
==>ar

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @M <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	220	328	
==>ar

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @M <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3142	3269	
==>($x), $base);
 }
'
}
sub Pugs::Internals::arc_units (Num $radians, $base) {
    given $base {
	undef   { $radians }
	/:i ^r/ { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7496	7606	
==>har => 'z') if $cc;
    return $S->object(eol => eos => '\z');
  });

  # alpha POSIX class
  $self->add_handle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	2081	2221	
==>il  => $remainder,
        capture => $extracted,
    } );
}

sub double_quoted {
    my $grammar = shift;
    return $grammar->no_match unle <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	6282	6414	
==>c_version = $test_ghc_ver->($ghc_candidate)) {
                    $ghc = $ghc_candidate;
                    warn "*** Found $ghc\n" <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4474	4582	
==>erl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless % <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4474	4582	
==>erl5{^/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless % <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2266	2389	
==>],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2266	2389	
==>],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4544	4663	
==>ildren
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4544	4663	
==>ildren
    # then use this optimization    
    elsif ($index == +@!children) {
        $removed_child = @!children.pop( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	958	1079	
==>e    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

--------------------------------------------------------------- <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2859	2962	
==>$config;
    $template =~ s/#all_definitions#/$all_definitions/;

    print $template;
}

sub __test__ { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51666	51895	
==>w($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51055	51281	
==>w($e, sub {
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-') <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16351	16495	
==>__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16351	16495	
==>__",
      );
    }

    method next() {
      my $cur = @!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2261	2420	
==>class definition
        get_x => sub { $x },
        get_y => sub { $y },  
        set_x => sub {
            my ($self, $new_x) = @_;
            $x = $new_x <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15325	15441	
==>acks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    warn "Unknown rule '$name'";
    FAIL();
  }

  my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3028	3166	
==>( $n->{op1} eq ';' ||
         $n->{op1} eq ',' ) {
        return join ( $n->{op1} . "\n", 
            map { _emit( $_ ) } @{$n->{list <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22357	22447	
==>C)).

charset_member(_E,C,[char(C)|_]) :- !.
charset_member(E0,C,[char(X)|_]) :- flag_i(E0) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4315	4397	
==>\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4315	4397	
==>\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26360	26507	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26639	26786	
==>nstant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9971	10097	
==>ss File {
    my $SEEK_START = 0;
    my $SEEK_CUR   = 1;
    my $SEEK_END   = 2;

    # Simple file open. Unlike perl5 open, i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27600	27766	
==>' => 'opaque')),
                returns => 'list'
            ), 
            sub {
                my $e = shift;
                C3->new($e->get('$self:'))->lineari <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1798	1895	
==>the original POE, and is possibly very unstable.

=head1 METHODS ON C<$POE::Kernel>

=head2 C<post <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2999	3104	
==>set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2999	3104	
==>set;
    return $span if $span.isa( $span0.ref );
    # new() knows what to do: Span, Span::Num, Span.Int, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8463	8633	
==>, 
                        symbol->new("$label", q<symbol>), 
                        symbol->new("?%opts", q<hash>)
                    ), 
            returns => q<metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2909	3020	
==>uest URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2909	3020	
==>uest URI.

=item C<$r.remote_host>

The hostname of the client, if available.

=item C<$r.remote_addr>

The IP a <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1675	1763	
==>addToken("term:<[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:<-[" <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1971	2097	
==>$deps ) {
        $str .= "$deps";

    } elsif ( UNIVERSAL::isa( $deps, 'ARRAY' ) ) {
        $str .= join " OR ", map { pp_de <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	567	722	
==>eturn;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	560	715	
==>eturn;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        m <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	500	614	
==>)/;
        $default = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstract:\s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20729	20827	
==>n on sub-classing includes an ordered list of what
packages a method is looked up in for a given ob <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24447	24549	
==>>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28999	29101	
==>>

This method returns a deep copy of this Relation as a Hash ref of 2
elements, which correspond to th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9115	9229	
==>TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9115	9229	
==>TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $module_name, 'REASON' => <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1276	1375	
==>-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rig <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1276	1375	
==>-liang Kao, E<lt>clkao@clkao.orgE<gt>

=head1 COPYRIGHT

Copyright (c) 2005. Chia-liang Kao. All rig <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1085	1186	
==>dd_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1085	1186	
==>dd_method($rule_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Gram <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6793	6901	
==>ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking for Bash binary",
  ensure => sub { -r $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3927	4029	
==>spans => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must be o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3927	4029	
==>spans => @spans )`

Creates a set containing zero or more `Span` objects.

The array of spans must be o <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6736	6849	
==>ike this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the lin <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6736	6849	
==>ike this text is.

- how should I handle *, / and ` inside text? 

One idea is that if I get to the end of the lin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1159	1287	
==>t "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1364	1492	
==>t "immediate_statement_exec: CODE[ $code ]\n";
        return {
            %$match,
            capture => [ { perl5 => $program <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1711	1834	
==>{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1711	1834	
==>{$.celems}() == Inf },
        $.cis_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1667	1891	
==>*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0 <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1667	1891	
==>*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<start_element>('list');
                            $in_list = 1;
                        }
                        my $depth = $0 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8638	8732	
==><start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

T <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8638	8732	
==><start_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

T <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	476	584	
==>att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - te <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	476	584	
==>att<content>;

    %att;
}

sub event_type {
    return "characters";
}

=head1 NAME

Perldoc::DOM::Text - te <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	983	1080	
==>{...}, universe => $universal_set )`

Create a recurrence set with full bidirectional functionalit <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	983	1080	
==>{...}, universe => $universal_set )`

Create a recurrence set with full bidirectional functionalit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15484	15586	
==>represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set cu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15484	15586	
==>represents the date and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set cu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11410	11503	
==>.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-W <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11410	11503	
==>.

Examples:

 $header.header("MIME_Version") = '1.0';
 $header.header("User_Agent")   = 'My-W <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	545	646	
==>.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	545	646	
==>.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1927	2031	
==>, $name, $value) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute names m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1666	1777	
==>back, style = dotted, color = red ];\n";
    }
    
    if ($class->can('subclasses')) { # roles don't have subc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7681	7769	
==>:eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7739	7827	
==>:eval_is &Test::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_o <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	852	950	
==>ntly simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ sa <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	852	950	
==>ntly simply a code generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ sa <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13930	14022	
==>ng )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe character <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13930	14022	
==>ng )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe character <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1183	1312	
==>safe {
        # say "e:string"; # XXX delme
        # so, why do these two not actually split?
        # my @args = $string.split <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	156	247	
==>pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $namespace = 'Pugs::Grammar::Rule::' <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7201	7301	
==>er the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7201	7301	
==>er the '=head(n)' directive and it's accompanying text has been
parsed.

=item I<start_element ('begi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8205	8354	
==>ift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEX <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8205	8354	
==>ift;
        my $next = $_[TEXT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEX <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9760	9862	
==>h->{'bool'};
.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = " <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13540	13627	
==>ped</span> and
		<span class="tests_unexpect"><tmpl_var name=unexpect> unexpectedly succ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	493	597	
==>-------------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	493	597	
==>-------------------------
## accessors and mutators

method parent ($self:) returns Tree { 
    return $! <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	473	619	
==>tput) = @_;
            __('$:singleton' => $::CLASS->new('$.testplan' => $plan, '$.output'   => $output)) 
                unless defined __('$:si <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4119	4311	
==>'¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4119	4311	
==>'¥',
    "brvbar"   => '¦',
    "sect"     => '§',
    "uml"      => '¨',
    "ordf"     => 'ª',
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	532	675	
==>keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	532	675	
==>keywords;
    has %!params;
    
    submethod BUILD ($self: ) {
        $.method = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%* <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	198	351	
==>der> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	198	351	
==>der> <body>*
    { 
        return { 
            program_header => $<header>(), 
            program => [ map { $_->() } @{$<body>} ],
        } 
    }
) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8806	8912	
==>n @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8806	8912	
==>n @union.elems == 1;
}

method union ($self: $span is copy) returns List of Span { 
    my ($span0, $span1) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9471	9566	
==>ributes are private, so you must use accessor methods.
Rosetta::Model does not declare any subro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9471	9566	
==>ributes are private, so you must use accessor methods.
Rosetta::Model does not declare any subro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	851	951	
==>ing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	851	951	
==>ing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need to do to <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10951	11068	
==>urns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10951	11068	
==>urns Str>

=item B<referer returns Str>

=item B<request_uri returns Str>

=item B<document_root returns Str>

=item B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14648	14739	
==>rn opaque.new(\$class, %attrs)
}

(method CREATE ((opaque $class:) (str $repr) (hash %params <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9788	9896	
==>ng all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9788	9896	
==>ng all the elements of C<$set1> and C<$set2>

=head2 C<$set1.intersection($set2)>

Returns a new set containi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3194	3283	
==>rintf(stderr," start=%lu\n",start);
/*
    fprintf(stderr," minend=%ld pos=%ld\n",minend,P <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7342	7445	
==>lse {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7400	7503	
==>lse {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_te <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	835	950	
==>n unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	802	917	
==>n unless $scheme eq 'ftp' or $scheme eq 'http';

    require Cwd;
    my $dir = Cwd::getcwd();
    chdir $args{local <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	134	233	
==>...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNO <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	134	233	
==>...


=kwid

= NAME

DateTime::Recurrence - An object representing a datetime recurrence set

= SYNO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1954	2073	
==>egated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1965	2084	
==>egated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7363	7454	
==>r_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1188	1279	
==>r_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
push @statements <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1676	1784	
==>\\\$1/g;  # escape ( and ) as we are in q()
        return "*" . $<rule_name> . " = Pugs::Compiler::Token->co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33530	33630	
==>nd non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordere <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33530	33630	
==>nd non-empty
string.

=item C<@!member_names> - B<Member Names>

Array of Str - This stores an ordere <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	71	162	
==>lready loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( S <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	71	162	
==>lready loaded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( S <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3498	3598	
==>data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environmen <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3498	3598	
==>data) \{ \$s eq '$constructor'}";
    $code;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environmen <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1404	1516	
==>ackage MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1404	1516	
==>ackage MyFilter;
    no Filter::Simple::Compile sub { ... }

    # "no MyFilter" begins filtering
    # "use MyFi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1176	1282	
==>~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1176	1282	
==>~> ($self) returns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4355	4470	
==>ldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8777	8874	
==>Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<s <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8777	8874	
==>Text Events

=over 4

=item I<verbatim>

This event handles the entire verbatim string.

=item I<s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9590	9691	
==>_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9590	9691	
==>_zero = $universe.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30472	30566	
==>(Set of Str $attrs!) returns Relation::Example>

This method is the same as C<project> but that <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15716	15812	
==>the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller informat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15774	15870	
==>the environment variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller informat <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16928	17044	
==>d"),
			param => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any value and returns it
# x stays f <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6357	6501	
==>omain, alternately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6357	6501	
==>omain, alternately stripping
                    # leading name components and leading dots.  When this
                    # results in a domain <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3235	3350	
==>ins( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3235	3350	
==>ins( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree && $data eq $tree;
    return;
}
=cut

sub ::postfi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19703	19798	
==>g these headers.

=item $h.authorization_basic

This method is used to get or set an authorizati <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19703	19798	
==>g these headers.

=item $h.authorization_basic

This method is used to get or set an authorizati <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	162	254	
==>tion
within that string, and it provides the fundamental operations on strings as
combinators <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	162	254	
==>tion
within that string, and it provides the fundamental operations on strings as
combinators <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	779	881	
==>uld make this tmp file unique (using $$ say).
my $intmp  = 'insanta.tmp';

sub Usage {
   print <<'GROK <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2535	2648	
==>{
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2535	2648	
==>{
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_empty;
}

method union ($self: $set ) { 
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1257	1365	
==>ler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of list <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1257	1365	
==>ler:
# - keys/kv/pairs/values with indexes (S29) --> array slice
# - lists of junctions --> junctions of list <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5066	5207	
==>re_this_node {
    my($o)=@_;
    my $noop = $o->noop;
    sub{my $c = $_[0]; TAILCALL(&$c,$noop);};
  }
  sub mk_eater_for_re {
    my($o,$re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1240	1345	
==>catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1240	1345	
==>catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    if (''  ne ($directory & $fil <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16847	16977	
==>*$tot->{ok}/$tot->{max};
        my $subpct = sprintf " %d/%d subtests failed, %.2f%% okay.",
                              $tot->{ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3960	4070	
==>RLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3960	4070	
==>RLF;
};

sub _send_request (Str $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$por <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1816	1914	
==>hm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpre <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1816	1914	
==>hm itself.  The attributes in question are 
C<i>, C<j> and C<state>.  To understand how to interpre <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13492	13615	
==>mand};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13492	13615	
==>mand};
      }
    },

    # Handle pseudo events (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14633	14893	
==>eport_Re = <<'REGEX';
                 ^
                  (not\ )?               # failure?
                  ok\b
                  (?:\s+(\d+))?         # optional test number
                  \s*
                  (.*)                  # and the rest
REGEX <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17564	17672	
==>ession>
}
rule BitwiseORExpressionNoIn :words {  # see 11.10
      <BitwiseXORExpressionNoIn>
    | <BitwiseO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	830	919	
==>ccept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	830	919	
==>ccept-Ranges Age ETag Location Proxy-Authenticate Retry-After Server
 Vary WWW-Authenticat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6137	6253	
==>elation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9614	9730	
==>elation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $predicate <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8697	8812	
==>hc-pkg-6.5
            or $ghc_pkg = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_pk <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4997	5086	
==>_range_greed(W,Min,Max,Z), !.
p6_range_greed(W,Min,Max,repeat_ng(W,Min,Max)) --> "?", !.
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2706	2951	
==>eop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2717	2962	
==>eop::constant( '+?' ),
                        ruleop::constant( '*' ),
                        ruleop::constant( '+' ),
                    ] ),
                ),
                \&ws_star,
            ),
        ),
        \&term,
    ] );

*a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9451	9540	
==>dule_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9451	9540	
==>dule_name!', $module_name );
    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_mo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6927	7030	
==>perator::nullary->new("int");
	$self;
}


package types;

use Class::Multimethods::Pure;
use Data::Dumpe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25661	25758	
==>ed is the earliest possible start of the match.
 * For instance, /[a-z].foo/ has a regmust of 'foo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4255	4371	
==>match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4472	4588	
==>match');
    }
    if ($flags->{print_ast}) {
        print dump_tree($match->{capture},'ast');
    }
    my $program <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1942	2041	
==>return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1942	2041	
==>return &::($worker_pkg)::tmpdir();
}

=kwid

= NAME

File::Spec - Perl 6/Pugs Portable file handling <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4911	5026	
==>d1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4911	5026	
==>d1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go to L<Locale::KeyedText> for the majority of references.

= <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16210	16314	
==>my $r = ref($re) ? $re : compile($re);
  die if !defined $r;
  $Y::rules{$name} = $r;
}

sub mk_Match_app <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17690	17790	
==>bjects) now have another attribute, C<charmap>,
which is a hash reference holding character values (e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18597	18723	
==>C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18597	18723	
==>C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "object". See L<SYNOPSIS> for accepted parameters.

The <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9574	9699	
==>, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9574	9699	
==>, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = <==
2	/Users/nnunley/pugs/util/package-osx.pl	6476	6573	
==>iew::Rule.3
        /usr/local/man/man3/Perl6::Overview::Rule.3pm
        /usr/local/man/man3/Perl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2083	2194	
==>=>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless defined $.star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2083	2194	
==>=>   $i_end, density => $.density );
}

method stringify () returns String {
    return '' unless defined $.star <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28916	29032	
==>1.02 CPU)

=head1 SEE ALSO

The included F<prove> utility for running test scripts from the command line,
L<Test> and <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	2441	2534	
==>ll_names_exist of Bool (Relation::AttrName *@attr_names) {
    for @attr_names -> $attr_name { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4116	4220	
==>t>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4116	4220	
==>t>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3905	4041	
==>ptures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3917	4053	
==>ptures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6)
            XXX - E05 says it is a hypo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1423	1557	
==>ment->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1423	1557	
==>ment->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way of <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type.pm	172	276	
==>ther native types
sub to_num;
sub to_bit;
sub to_str;

sub is_nil     { bit->new(0) }
sub is_not_nil { bi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3760	3895	
==>$_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3760	3895	
==>$_[3]{match}[0]{capture};
            #print "Matched concat 0, tree:", Dumper($_[2]);

            $matches[1] = $nodes[1]->( $matches[ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13723	13834	
==>n.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # F <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17200	17311	
==>n.
    return $?SELF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # F <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	186	306	
==>rn _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) ) <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	186	306	
==>rn _time_func( _loop_func($count, $code) )
           »-« # overhead
           _time_func( _loop_func($count, -> {}) ) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1264	1388	
==>str =~ /\\b/i;  # a\\b    a\b     y       $&      a\b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&] <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2097	2195	
==>b> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it t <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2097	2195	
==>b> library.

=head1 METHODS

=over 4

=item glob_to_regex

Takes a glob pattern and translates it t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14524	14667	
==>et_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the databa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14524	14667	
==>et_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the databa <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24186	24295	
==>run lots faster on
 * simple cases.  They are:
 *
 * regstart     sv that must begin a match; Nullch if none o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27432	27525	
==>∀α. list α → int", ":t length");
is(t($fac_5), "int", ":t fac 5");
is(t($one_elem_list), <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9781	9885	
==>type'}; # for calls via Api.
	}
	if(!$class && $op{'isInvocant'}) {
	    my @parts = split(/::/,$name); p <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	4696	4812	
==>gram = do { local $/; <$rh> };
    waitpid($pid, 0);

    exit 1 unless length $lines;

    die "Pugs ".(($?&255)?"ki <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30498	30663	
==>ant')) == $bit::TRUE) {
                    $dispatcher = $self->send('_make_ascendant_dispatcher');
                }   
                else {
                    c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	17074	17178	
==>r WALKMETH($dispatcher, 'BUILD') -> $method {
        $method.($self, %params);
    }
}

(method BUILDALL <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9524	9672	
==>( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10163	10329	
==>$env, %$_) }
    {
        arity => 3,
        name => '&ternary:<?? !!>',
        body => sub {
            $_[1] ? $_[2] : $_[3]
        }
    },
    {
        arity <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9624	9754	
==>>bstr};
    return "p6_Num($v)";
}
NODE VStr ($value) { my $s = $value; $s =~ s/\\/\\\\/g; $s =~ s/\'/\\\'/g; "p6_Str('$s')" }
NODE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	419	540	
==>aram ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	419	540	
==>aram ) = @_;
    $subrule = "\$grammar->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # X <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5361	5459	
==>roperties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5361	5459	
==>roperties, and writes it
to disk.  Returns boolean value of success or failure;

=item err_str

The <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5357	5460	
==>::blessed($type)
			? '<Placeholder>'
			: (ref $type ? ("( " . join(" -> ", map { $self->display_type($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5705	5818	
==>untime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5693	5806	
==>untime or compile-time interpolation?
        return "$_[1] ... hash( \\$name )\n" if $name =~ /::/;
        retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19891	19991	
==>l the code has been parsed into blocks and the blocks have been
marked for various compilers, Module: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19891	19991	
==>l the code has been parsed into blocks and the blocks have been
marked for various compilers, Module: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1173	1292	
==>.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1173	1292	
==>.density, density => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.dens <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1804	1904	
==>::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

su <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1804	1904	
==>::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg)::cwd();
}

su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11418	11588	
==>?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11418	11588	
==>?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - he <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5918	6042	
==>header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5918	6042	
==>header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4414	4752	
==>>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Mod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4414	4752	
==>>\n");
                }                
                when 'paragraph' {
                    $fh.print("</P>\n");
                }     
                when 'verbatim' {
                    $fh.print("</PRE>\n");
                }                                                       
            }
        },          

        # Mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	392	513	
==>$ran = $test - 1;
    if (!$NO_ENDING) {
	if (defined $planned && $planned != $ran) {
	    print STDERR
		"# Looks like yo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20951	21054	
==>efile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
wi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20951	21054	
==>efile.PL:

    pmc_support;

Any of your distrbution's modules that use Module::Compile based modules
wi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6133	6245	
==>ns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9610	9722	
==>ns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ $p <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7447	7561	
==>'foo' => sub ($) { 'Foo->foo' },
        'bar' => sub ($) { 'Foo->bar' },
    },
);

is($Foo->id, 6, '... $Foo is t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2558	2650	
==>use this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2558	2650	
==>use this would
# cause multi-dimensional arrays to be flattened.

class Perl6::Container::Arr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1660	1799	
==>( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            while (my($k,$v) = each %$entry) {
                my ($ver, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2602	2772	
==>g_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2602	2772	
==>g_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

my method _die_with_msg (Str $msg_key!, Any <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1265	1356	
==>e continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> ob <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1265	1356	
==>e continuation (i.e. returns whatever the
continuation returns) with an updated C<Result> ob <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	791	902	
==>d $k;
	return emit_node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	return ''
}
su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	305	491	
==>unk'),
            Param('$right_thunk'),
            App(
                App(
                    Sym('&ternary:<?? !!>'),
                    Sym('$cond'),
                    Sym('$le <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	105	233	
==>::Style;
        has $normalizer_role = ::Getopt::Argument::Normalizer::Null;
        has $coercer_role = ::Getopt::Argument::Coe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5617	5746	
==>ursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5617	5746	
==>ursive match_n
        # combinator.
        match_n(0, $match.clone(
                      match => $match.match.clone(multidex = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6671	6790	
==>5 P5 i ignorecase g global  stringify>;
    }
    my $pat = $pat0;
    my %mods = %mods0;
    my $p5 = %mods{"perl5"} || <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	399	503	
==>t an potential prompt infinite loop ($c[1]|$c[2]|$_[0])";
    }

    # In automated testing, always use d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11357	11534	
==>ine
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11357	11534	
==>ine
    ^                   # Start of some line
    ((?-s:.*?))         # $2 - text before heredoc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	186	316	
==>e used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	186	316	
==>e used
# as a replacement for '-' in header field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13806	13934	
==>:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full pr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13806	13934	
==>:

    $num_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
Create a span representing a day with full pr <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	352	458	
==>en expressed as
#     complemented character sets.  <-[...]>  They are all tagged with
#     #SourceCharact <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19697	19806	
==>ed */
  U32 lastcloseparen;     /* last paren matched */

=head2 Other things the world messes with:


  I32 r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9264	9381	
==>and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9322	9439	
==>and 2 make 4');
  is(2 + 2, 4, '2 and 2 make 4');
  isa_ok([1, 2, 3], 'List');

  ok(2 + 2 == 5, '2 and 2 make 5', :to <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13722	13842	
==>er using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13722	13842	
==>er using a Set::Infinite object if you want to exclude
large ranges.

    # it's better to use Set::Infinite instead of t <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	7477	7574	
==>SO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	1705	1802	
==>SO

Perl 5 Test::Builder.

=head1 AUTHORS

Perl6::MetaModel 2.0 code by Stevan Little E<lt>stevan@ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6910	7008	
==>nsert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6910	7008	
==>nsert_children($index, @siblings);
}

# insertSibling is really the same as
# insertSiblings, you a <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2353	2473	
==>n which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2353	2473	
==>n which always returns C<$x>.

=head2 C<< tail(@array) >>

Returns all except the first element of C<@array>.

=head2 C<< <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26076	26178	
==>y, "∀α. list α → α", "pretty print list a -> a");
}
{
	my $a = type::variable::free->new;
	my $b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4688	4805	
==>:= (.*?) \> <?p6ws>? 
    \(  <?p6ws>? <list>? <?p6ws>? \) <?p6ws>?
    is <?p6ws> parsed <?p6ws>? \( 
        <?p6ws> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15548	15631	
==>-------------------------------------

rm(noop,F0,F0,B0,B0,E0,E0).

rm(standalone(Re <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9959	10081	
==>This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test functions will be defined to fac <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10017	10139	
==>This module, like Pugs, is a work in progress. As new features are
added to Pugs, new test functions will be defined to fac <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5297	5394	
==>= _globdir $dir;

Returns all the files in a directory.  This is shorthand for backwards
compatibi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3583	3728	
==>>= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3583	3728	
==>>= $length;
        unless @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	13213	13337	
==>$_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_strin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	13213	13337	
==>$_ ),
            _preprocess_hash( $hash{$_} ),
        )
    } @keys;
    return alternation( \@keys );
}

sub end_of_strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34197	34313	
==>\&b\&c\&d/> in vim would be
C</(?=a)(?=b)(?=c)d/> in Perl.  We will support this with the '&'
metacharacter.

We have <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	601	695	
==>shift;

	return $node unless Scalar::Util::blessed($node);

	$node->isa("Blondie::Node")
		or d <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1126	1248	
==>ath;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath ( <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1126	1248	
==>ath;
    my $dir = catdir(@path);
    $dir ~= "/" unless substr($dir, -1) eq "/";
    return $dir ~ $file;
}

sub catpath ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1660	1808	
==>@rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1660	1808	
==>@rule_terms with Grammar
    @rule_terms = map { 
        my $method = $_;
        sub{ 
            # warn "Trying $method\n";
            my $match <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4549	4658	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4549	4658	
==>n0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    my $tmp = $span1.complement;
    $tmp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3310	3420	
==>ur username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3310	3420	
==>ur username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$servername\" a <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2336	2460	
==>ng
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2336	2460	
==>ng
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, dieresis or umlaut mark
    "ccedil"   => ' <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32465	32563	
==>ethod has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37015	37113	
==>ethod has an alias named C<plus>.

=item C<union (Relation *@others) returns Relation>

This multi- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4402	4574	
==>atch->bool ),
                str   => \$_[0],
                from  => \( $match->from ),
                to    => \( $match->to ),
                named => { $label => <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17181	17274	
==>uppercase
form, if lowercase. This is not a Unicode "titlecase" operation, but a
full "upperca <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1869	2024	
==>) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    whe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1869	2024	
==>) }
                    when Num { box("P5::PIL::Run::Number" => number($_)) }
                    when Bool { &?OUTER::BLOCK(+$_) }
                    whe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1913	2049	
==>st_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    toke <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1913	2049	
==>st_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size },
    toke <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26759	26865	
==>do not match attribute names of the invocant
Relation.  This method has an alias named C<select>.

=item C< <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31311	31417	
==>do not match attribute names of the invocant
Relation.  This method has an alias named C<select>.

=item C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	353	479	
==>(
        %Pugs::Grammar::Str::hash,
        %Pugs::Grammar::Num::hash,
        %Pugs::Grammar::Var::hash,
    );
    $class->S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1236	1346	
==>ty => 'postfix', op1 => \$_[2], exp1 => \$_[1],} }", 
    postcircumfix_non => 
        "exp 'name' exp 'name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8311	8458	
==>thod save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ig <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8311	8458	
==>thod save (Str $file = $.file) {
        my $fh = open($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ig <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13233	13392	
==>1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13227	13386	
==>1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9863	10024	
==>e }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.serverna <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9863	10024	
==>e }
    # We want to have a sane state when we connect next time.
    $.connected      = 0;
    $.inside         = 0;
    $!chans          = set();
    $.serverna <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2806	2894	
==>ews.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt> <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2806	2894	
==>ews.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please submit bug reports to C<E<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	213	318	
==>join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	213	318	
==>join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets your bot join all channels <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1486	1593	
==>/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1486	1593	
==>/ }
multi submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $da <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4603	4744	
==>st->push($closure->do());      
        }
    }    
    return $list;
}

1;

__END__

=pod

=head1 NAME

list - the core list type

=head1 MET <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25587	25722	
==>$self:')->get_attr(symbol->new('@:superclasses'));                
            }
        )
    )
);

=pod

method subclasses (opaque $se <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10548	10685	
==>t/bin/parrot"],
    [$bash                 => "$initrd_mnt/bin/bash"],
    [$inputrc              => "$initrd_mnt/etc/inputrc"],
    [$ter <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	926	1046	
==>heck_for => 'Nmake.exe',
		remove    => 1,
	);

	if (!$rv) {
        die <<'END_MESSAGE';

------------------------------ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6041	6187	
==>ke the timestamps not break so the smoke reports look
          # good even on 640x480
          $str;
        },
      ],
      duration      => s <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	128	249	
==>'};
Please invoke ${\__PACKAGE__} with:

    use inc::${\__PACKAGE__};

not:

    use ${\__PACKAGE__};

.

use strict 'var <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10261	10380	
==>_ for @dirs },
    help   => <<HELP;
      We need a temporary directory the initrd.gz will be built later from.
      W <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1615	1713	
==>e> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1615	1713	
==>e> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Perl 6 Tokens to Per <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5986	6107	
==>$message );

    # This Perl-6 specific workaround is done since $message param can oft
    # be set from a caught excepti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5986	6107	
==>$message );

    # This Perl-6 specific workaround is done since $message param can oft
    # be set from a caught excepti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7392	7510	
==>d_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7392	7510	
==>d_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8261	8419	
==>want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8261	8419	
==>want {
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	703	827	
==>tch     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parent <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	703	827	
==>tch     - State that is scope-local.  A new match object gets
                  allocated when you enter a new rule or parent <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9869	9992	
==>f:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.widt <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9869	9992	
==>f:) {
    my $fixed_width = 0;
    for @!children -> $child is rw {
        $fixed_width += $child.width();
    }
    $.widt <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	38	126	
==>EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	38	126	
==>EXPORT = qw(encode_entities decode_entities _decode_entities);
#@EXPORT_OK = qw(%entity_t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10280	10376	
==>ndef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)? <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11015	11111	
==>ndef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defined($2)? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23955	24048	
==>o the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMIT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23955	24048	
==>o the L<Rosetta::SeeAlso> file for the majority of external references.

=head1 BUGS AND LIMIT <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	308	431	
==>xport {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	308	431	
==>xport {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;
    my @for_or <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19531	19626	
==>E<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necess <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19531	19626	
==>E<gt>()>

Returns the current nickname, username, or ircname. Note that thesse are I<not>
necess <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2268	2375	
==>$tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns in <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2268	2375	
==>$tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span::Int $span ) returns in <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2886	2983	
==>d union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2886	2983	
==>d union($self: Set $other) returns Set {
    say "Self is "~$self.stringify~", other is "~$other.s <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5734	5855	
==>rn "*** ghc not found in path.  Looking in $ghc_root\n";

        if (-d $ghc_root) {
            # Looks like we've found <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2733	2891	
==>> _('$.passed'),
                description => _('$.description'),
            };
        },
        'report' => sub {
            my $ok  = _('$.passed') ? ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7123	7238	
==>ical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7123	7238	
==>ical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10930	11035	
==>s is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will be returned a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10930	11035	
==>s is returned.
If no such field exists C<undef> will be returned.

A multi-valued field will be returned a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21586	21715	
==>:ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }), ")";
  }

  sub vis <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	343	458	
==>eta            { shift        }
sub Meta_ScalarKeys { @scalar_keys }
sub Meta_TupleKeys  { @tuple_keys  }

foreach m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1136	1247	
==>scope {
    my $self = shift;
    shift @{ $self->{scopes} };
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blond <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6675	6764	
==>lf.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@sibli <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6675	6764	
==>lf.parent().add_children(@siblings);
}

method insert_siblings ($self: Int $index, *@sibli <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4078	4198	
==>lf.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method compleme <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4078	4198	
==>lf.complement_previous, $set.complement_previous, 1 ),
        universe =>            $universe,
    )
}

method compleme <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	7864	8084	
==>p->new(
                        Sym->new('&infix:<==>'),
                       Sym->new('$n'),
                        Val->new(0),
                    ),
                    Val->new(
                        Thunk->new( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2512	2679	
==>'JIB::Config') };

use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17774	17949	
==>,
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'val <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17774	17949	
==>,
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'val <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13447	13550	
==>r = $as_str_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
}

my $as <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	690	789	
==>esult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) ret <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	690	789	
==>esult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $expected, Str $description? ) ret <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3224	3452	
==>%events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interp <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3224	3452	
==>%events<end_element>('list');
                                $in_list = 0;
                            }                        
                            %events<start_element>('paragraph');
                            interp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7169	7390	
==>(
                      $e->get('$label'), 
                      $e->get('$method')
                  );
            }
        );

    # and use it to add itself to the $::Class
    $_add_method->do(list->new($::Class, sy <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	553	666	
==>$s.[0] }

sub tail(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $s.[1];
}


sub is_promise <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1141	1249	
==>ue since even higher order functions get prims instead of thunks when
    # possible

    my $body = $thunk-> <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13667	13769	
==>ue since even higher order functions get prims instead of thunks when possible

    my $body = $thunk-> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10896	11047	
==>oop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10896	11047	
==>oop { 
        my $n = $iter.next;
        return unless defined $n;
        yield $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17208	17375	
==>f_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17208	17375	
==>f_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num_scale'        => 1,
            'num_min_value'    => 0,
        },
    );

    # D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8121	8259	
==>"$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unkn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8133	8271	
==>"$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unkn <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1616	1749	
==>ng .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2278	2411	
==>ng .pod, use that instead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13569	13718	
==>dle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13569	13718	
==>dle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) { <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9145	9267	
==> ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc oper <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9145	9267	
==> ( $set2 ∖ $set );
  $sym_difference = ( $set - $set2 ) + ( $set2 - $set );

  # sets support subset, superset, etc oper <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3092	3200	
==>ce => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3092	3200	
==>ce => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $^a.compare <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17154	17248	
==>ing each character to it's uppercase
form, if lowercase. This is not a Unicode "titlecase" oper <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22070	22179	
==>f PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I don <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16971	17079	
==>f PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I don <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	21914	22272	
==>}
        } ),
    );
}

###########################################################################

} # class Relation

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERS <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	741	844	
==>sg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	741	844	
==>sg) { say "< $msg" }
sub debug_sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	459	593	
==>=> 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	459	593	
==>=> 'MYLIB_MYINV_BAD_ARG',
                msg_vars => { 'GIVEN_VALUE' => $number },
            )
#            if $number !~ m/^-?(\d+\ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18688	18774	
==>Internals::substr($s,undef,$start,undef,$end,$replace) }
 multi substr(Str $s, StrPos $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1363	1596	
==>_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1363	1596	
==>_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when :: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	248	368	
==>_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	248	368	
==>_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4304	4448	
==>de->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4845	4989	
==>de->( @_[0,1,2], $match, @_[4,5,6,7] );
        $_[3] = bless \{ 
                bool  => \( $match->bool ),
                str   => \$_[0], <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7739	7841	
==>$span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7739	7841	
==>$span is some kind of scalar
    return $span0, $span0.new( start => $span1, end => $span1 );
}

method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	9227	9363	
==>s = sort {length $b <=> length $a } keys %hash;
    #print "hash keys: @keys\n";
    @keys = map {
        concat( [
            cons <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7237	7356	
==>h @index_files, map { $path->file($_) }
                $self->_index_files($pkg, \@copy, $key);
    }

    return @inde <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1751	1929	
==>() if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1751	1929	
==>() if $.start == -Inf;
        return $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_i <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3655	3776	
==>{
    my($self, $line, $totals) = @_;

    my %result = ();

    $self->{line}++;

    my $type;
    if ( $self->_is_test( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23388	23485	
==>e near
future where "Relation" is a Role rather than a Class, and some
implementations are immutab <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27940	28037	
==>e near
future where "Relation" is a Role rather than a Class, and some
implementations are immutab <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9553	9696	
==>s, $tmp if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s ) .
           "$_[1] ] )\n";
}        
sub nod <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	852	1015	
==>try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$cla <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	852	1015	
==>try {
                   $class.require;
                   CATCH { die qq/Couldn't require "$class", "$!"/ };
               };
               unless %plugins{$cla <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4081	4204	
==>as Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4081	4204	
==>as Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    else { @key = m <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26942	27037	
==>ame as C<project> but that the returned Relation has
the complement subset of the original's att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31494	31589	
==>ame as C<project> but that the returned Relation has
the complement subset of the original's att <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4003	4143	
==>)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4003	4143	
==>)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    => '£',
    "curren"   => '¤',
    "yen"      => '¥',
    "brvbar"   => ' <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1333	1478	
==>se { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=hea <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1333	1478	
==>se { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=head1 NAME

File::Find - Traverse a directory tree

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14001	14101	
==>is
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14059	14159	
==>is
function to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14017	14136	
==>0] },
      hash  => sub { [%{$_[0]}] },
      code  => sub { $as_array_complain->("code") },
      ref   => sub { $as_a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6659	6776	
==>);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6659	6776	
==>);
}

sub abs2rel (Str $_path, Str $_base?) returns Str is export {
    my $base;
    if (defined($_base) && $_base ne <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1312	1413	
==>S & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` o <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1312	1413	
==>S & CAVEATS

Currently this will only work during runtime since Pugs 
does not yet support `BEGIN{}` o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12668	12774	
==>hen the objects represent "chunks" of data, such as date objects without the time part.

Discrete spans tak <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12668	12774	
==>hen the objects represent "chunks" of data, such as date objects without the time part.

Discrete spans tak <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	676	774	
==>ndBin::Bin)]}
*** Please report this issue to <perl6-compiler\@perl.org>.
.
        require "$self- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8457	8576	
==>ot, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str ! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8457	8576	
==>ot, put
    #   Carp::croak("Basic authorization user name can't contain ':'")
    # back.
    # XXX Str where { $^str ! <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22566	22655	
==>erface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exce <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22566	22655	
==>erface::DBMS Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Exce <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15360	15473	
==>!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15360	15473	
==>!bucket;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rat <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Basic.pm	378	528	
==>urns Num { ... }

multi sub sign (; Num ?$x = $CALLER::_)
    returns Int { ( defined $x
            ? ( ($x > 0)
            ? 1
            : ($x < 0 <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1070	1170	
==>WP::UserAgent->new;
  $ua->agent("pugs-smokeserv-client/" . VERSION);
  $ua->env_proxy;

  my $resp = <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	1257	1379	
==>pm.yml.pm";
    #unlink "src/Pugs/PreludePC.hs";
    #unlink "src/Pugs/Run.hi";
    #unlink "src/Pugs/Run.o";
    #unlink " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8595	8725	
==>ls{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$ne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8595	8725	
==>ls{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # The more elegant %users{$ne <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	682	776	
==>p6}" if $p6 =~ /^\s*[\"\']|^\S+$/s; # so "3" works
	my $cc = Perl6::Run::OnPerl5::X1::CodeCompi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5856	5972	
==>r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5856	5972	
==>r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15883	15977	
==>is module provides a system for writing modules that I<compile> other
Perl modules.

Modules th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15883	15977	
==>is module provides a system for writing modules that I<compile> other
Perl modules.

Modules th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	767	864	
==>Nil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vty <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	767	864	
==>Nil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method vty <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15690	15787	
==>versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COP <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15690	15787	
==>versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COP <==
2	/Users/nnunley/pugs/util/combine_tests.pl	1815	1969	
==>op @{ $events->[$i] };
            }
        }
    }
    
    #
    # Now, walk the target tree and add anomalies
    # to each event.
    # Note that I us <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12752	12859	
==>ared libraries to \"$initrd_mnt/lib\"",
    ensure => sub {
      -r "$_" && -x "$_" or return for map { "$i <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10903	11026	
==>h
      # $6  captures the opening delimiter (provided only one delimiter was specified)
      my $regex    = $7; 
      # c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22252	22344	
==>assertion followed by C<?>, which doesn't warrant the warning.

Added "Unrecognized escape" w <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4532	4724	
==>mes!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4532	4724	
==>mes!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

method <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5883	5967	
==>252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5883	5967	
==>252+$num/1073741824)~$dec2hex(248+($num/16777216)%64)~$dec2hex(128+($num/262144)%64)~ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	693	803	
==>ec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, w <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	693	803	
==>ec for this file).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	861	980	
==>n ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	870	989	
==>n ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $cons <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14876	15002	
==>ms;
}

sub shift_param {
    my $self = shift;
    shift @{ $self->{params} };
}

sub params {
    my $self = shift;
    @{ $se <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	12463	12563	
==>ameter is associated with a new type variable)
# this new env is passed down to the body, but is also <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	10	102	
==>ntime::RuleCompiler;
use Pugs::Emitter::Rule::Perl5;
use base qw(Pugs::Compiler::Rule);
use E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1071	1189	
==>dable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variable <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1071	1189	
==>dable key that uniquely ident this message.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variable <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	434	542	
==>nd calling members before any values are
    # set results in a error
    %!members ?? %!members.values !! () <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	434	542	
==>nd calling members before any values are
    # set results in a error
    %!members ?? %!members.values !! () <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3522	3633	
==>eed version >= $perl_version";
    }

    my %args = map { ( $_ => $args->{$_} ) } grep {defined($args->{$_})} k <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2565	2672	
==>eed version >= $perl_version";
    }

    my %args = map {($_ => $args->{$_})} grep {defined($args->{$_})} k <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4530	4655	
==>$tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5015	5140	
==>$tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $tmpl, \%hash <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19436	19537	
==>Length is nparens+1.
startp[n] is the starting offset in subbeg,
endp[n] is the offset of the last cha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4561	4652	
==>}
RULE
*{'macro_decl'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    macro <?p6ws> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5221	5316	
==>t_equiv;

	if ($child->isa("Blondie::Seq")){ # FIXME if (has_params)
		my $symbol = $self->decla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	452	580	
==>b { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	452	580	
==>b { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = shift;

    _setup_filter($p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6387	6487	
==>se Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, e <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6387	6487	
==>se Span::Num;

  $span = Span::Num.new( start => $start, end => $end, start_is_open => Bool::False, e <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2092	2238	
==>her.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2092	2238	
==>her.size) &&
              ($self.includes($other.members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17660	17814	
==>eop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'lis <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17939	18093	
==>eop::constant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'lis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2567	2678	
==>../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2567	2678	
==>../as_string($newline)).join($newline);
    }
    
    method is_info     () { HTTP::Status::is_info     (./code <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35072	35217	
==>bit::FALSE && $e->get('$next') != $nil::NIL) ? $bit::TRUE : $bit::FALSE 
                    })
                );
                return $e->get( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4764	4867	
==>- Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4904	5007	
==>- Compiler for Perl 6 Regex

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Regex <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10140	10246	
==>: '$';
	$my_args = ('my('
		    .join(",",@names5)
		    .")=(${sig}_param{"
		    .join(",",map{$stringify <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32631	32728	
==>erator, and the order of its arguments is not significant to the result;
the new Relation contains <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37181	37278	
==>erator, and the order of its arguments is not significant to the result;
the new Relation contains <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6588	6695	
==>nted on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6588	6695	
==>nted on STDERR.  The return value is
the HTTP response code.

=item getstore($url, $file)

Gets a document i <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3484	3589	
==>files
with as little code as possible, reducing load time and memory overhead.

Written using Pugs as of 2 <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3484	3589	
==>files
with as little code as possible, reducing load time and memory overhead.

Written using Pugs as of 2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6212	6325	
==>];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6212	6325	
==>];

  # Somebody left a channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1134	1249	
==>e "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args->{DISTNAME} = $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2025	2139	
==>e "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args->{DISTNAME} = $ <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	812	944	
==>rowd {
        my $phrase = finger @x;
       %terms{$phrase}++
    }
    %terms
}

sub addtolist ($x){
    " $x,";    
}

sub append <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	850	966	
==>Internals::floor($x) }


 multi  Num::ceiling (  Num  $x          --> Int )
 {
     Pugs::Internals::ceil($x);
 }
 &N <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	969	1087	
==>Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	969	1087	
==>Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	897	1002	
==>^$/;

		if ($line ~~ rx:perl5/^\[\s*(.*)\s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($lin <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7010	7178	
==>alue) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7010	7178	
==>alue) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals
    try {
        $REQUEST_METHOD = %*ENV<REQUE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3887	4004	
==>[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4104	4221	
==>[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[1];
    die <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8327	8432	
==>er, this is usually not an issue
# since each time you either add a child
# or create a tree you are doing <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8327	8432	
==>er, this is usually not an issue
# since each time you either add a child
# or create a tree you are doing <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	558	771	
==>urn FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Wo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	558	771	
==>urn FALSE;
            }
            my $sect = '';
            my $cnt  = 0;
            for =$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Wo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9901	10058	
==>match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9895	10052	
==>match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$named{'$name'} = [] if ! defined \$name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2726	2825	
==>nd 'value' pairs.  This
method should be called before any other methods, as it initialises the list <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2726	2825	
==>nd 'value' pairs.  This
method should be called before any other methods, as it initialises the list <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27049	27165	
==>ch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;

    # installs Regexp::Parser's handlers
    $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5246	5398	
==>atch2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5246	5398	
==>atch2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8133	8229	
==>t_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8191	8287	
==>t_ends {
    return unless $Test::testing_started;
    if (!defined($Test::num_of_tests_planned)) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	14289	14401	
==>f = $self->config;
    
    ### XXX use tempfiles

    my @avail = map { $_->meta->to_struct } @{ $self->availabl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12700	12803	
==>ensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fields rem <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12700	12803	
==>ensitive and '_'
can be used as a replacement for '-'.

The return value is the values of the fields rem <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5110	5212	
==>r Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $de <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5110	5212	
==>r Pugs

=head1 SYNOPSIS

  use MIME::Base64;

  my $encode = MIME::Base64::encode("A string");
  my $de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	2647	2816	
==>s = @_;

    return sub {

        my $tail  = $_[0];

        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );

        my $flags = $_[2];

        my @matches;

        whi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	2560	2723	
==>s = @_;
    return sub {
        my $tail  = $_[0];
        my @state = $_[1] ? ( @{$_[1]} ) : ( 0, 0 );
        my $flags = $_[2];
        my @matches;
        whi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20957	21068	
==>return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17378	17489	
==>return $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1180	1275	
==>.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1180	1275	
==>.map:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_header <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7316	7426	
==>ar now does Role');

# create a class to put the roles in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7843	7961	
==>- $I0
    $S0 = substr target, $I0, $I1
    $S0 = concat ":", $S0
    mob["mname"] = $S0
    mob["value"] = value
    $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	984	1100	
==>ilter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=hea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	984	1100	
==>ilter::Simple::Compile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1277	1444	
==>>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_AR <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1277	1444	
==>>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a Hash ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_AR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	896	996	
==>$rule ) = @_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Regex->compil <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4095	4195	
==>filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::E <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4095	4195	
==>filehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::E <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9732	9845	
==>MPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9732	9845	
==>MPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $module_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1369	1490	
==>eaders{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1369	1490	
==>eaders{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .*) \n?//) {
            %headers{$fie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3340	3497	
==>print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Ar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3328	3485	
==>print $rul;
    return $rul 
        if $quantifier eq '';
    # *  +  ?
    # TODO: *? +? ??
    # TODO: *+ ++ ?+
    # TODO: quantifier + capture creates Ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	30	132	
==>?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	30	132	
==>?$public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	44	165	
==>{ 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # wh <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	44	165	
==>{ 1 <= $^a <= 12 };
#my subtype Day of Int where { 1 <= $^a <= 31 };

has Int $.year;
has Int $.month;
has Int $.day; # wh <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3010	3119	
==>@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - se <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3010	3119	
==>@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24356	24453	
==>ng lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24356	24453	
==>ng lest they end up in a loop with
  another automaton.

=head2 C<$botE<lt>rawE<gt>("...")>

Sends <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3214	3320	
==>ethod alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.cl <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3214	3320	
==>ethod alternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.cl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5647	5776	
==>my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5647	5776	
==>my $boundary = $h<boundary>).defined) {
            my $str = $self.content;
            
            if ($str ~~ s:P5/(^|.*?\r?\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4276	4447	
==>?
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4276	4447	
==>?
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7334	7493	
==>my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	635	794	
==>my $delete_ok = 1;

        for my $entry ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	659	753	
==>y::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	659	753	
==>y::List to Perl6::Value::List
* Renamed Array::Lazy to Perl6::Container::Array
* Removed fetch_ <==
2	/Users/nnunley/pugs/util/build_pugs.pl	9778	9909	
==>c)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_path) {
            copy($src_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11677	11781	
==>ines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{stdin} =~ s/\r/\\r/g;

	if ($i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3288	3458	
==>e) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3288	3458	
==>e) {
            $age = $response_time - $date; # apparent_age
            $age = 0 if $age < 0;
        }
        
        my $age_v = ./header('Age');
        
        i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4981	5073	
==>:KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4981	5073	
==>:KeyedText> for the majority of references.

=head1 BUGS AND LIMITATIONS

I<This documentatio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1845	1969	
==>f $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1845	1969	
==>f $is_universe {
        # $.universe = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2001	2089	
==>$node" if Blondie::TypeSafe::Annotator->guess_perl_type($node) eq "IV";
		return quote(pr <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4952	5217	
==>),
                                Sym->new('$accum'),
                                Sym->new('$x'),
                            ),
                            Sym->new('$x'),
                            App->new(
                                Sym->new('&infix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28251	28343	
==>g names,
without the "FLAG_" prefix.

=item $parser->add_handler($seq, $code)

This method cr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8031	8151	
==>method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8031	8151	
==>method basic_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if ( <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8990	9094	
==>32};
    return $^X;
}


=head2 C<_switches>

  my $switches = $self->_switches($file);

Formats and retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3222	3334	
==>x);
    if(!$ref) {
	return 'non_numeric' if !((~$x & $x) eq 0);
	return 'numeric';
    }
    if($ref eq 'SCALAR' <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5071	5163	
==>param}->free_vars;
}


package type::operator::arrow;
use base qw/type::operator::binary/;

s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3963	4085	
==>, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3963	4085	
==>, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::KeyedText::Translator object:
    has Str @!s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1972	2125	
==>omplex number
    Ref         Perl reference
    Bool        Perl boolean
    Array       Perl array
    Hash        Perl hash
    IO          Perl fileha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29781	29895	
==>passing a value.

=item my $q = $obj->qr()

The regex representation of this object.  It includes the regex
represe <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2480	2595	
==>^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2480	2595	
==>^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/";

  ret <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18278	18374	
==>st, the source module is preprocessed to hide heredocs, since the content
inside heredocs can pos <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18278	18374	
==>st, the source module is preprocessed to hide heredocs, since the content
inside heredocs can pos <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	533	635	
==>ns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Ar <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	533	635	
==>ns Bool is export {
    return &::($worker_pkg)::case_tolerant();
}

sub splitdir (Str $dir) returns Ar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3992	4089	
==>eturn value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deep <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5894	5991	
==>eturn value');
is($Class->superclass, $Object, '... $Class is now a subclass of $Object');
is_deep <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1191	1294	
==>rns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1191	1294	
==>rns Str {
    ./stringify
}

# removed - spans can be numerically compared
# multi sub *infix:«<» (Set <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1644	1743	
==>_is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1644	1743	
==>_is_leap_year($year) ?? @LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2688	2857	
==>g !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2688	2857	
==>g !! $cookie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20235	20334	
==>nd C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Ret <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20235	20334	
==>nd C<last_autoping> is the timestamp of the
last autoping.

=head2 C<$botE<lt>connectedE<gt>()>

Ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2098	2213	
==>t;
    my $inst = $self->installation;
    
    return $inst->unregister( package => $self );
}

1;


# Local variab <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26980	27085	
==>ATIVE_ML	0x0800000 
 #define REINT_ONCE_NOML		0x1000000 /* Intuit can succed once only. */
 #define REINT_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20820	20933	
==>ly, and be I<the> back-end which
I recommend above all others for production use.

Most of the other (near term) t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20820	20933	
==>ly, and be I<the> back-end which
I recommend above all others for production use.

Most of the other (near term) t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6269	6388	
==>3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6269	6388	
==>3 4 5 infix:<+> circumfix:<()> infix:<*>', 
        'parenthesis' 
    );
    #print postfix( $match->() );
    #print D <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10799	10900	
==>e(1) )`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_univers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10799	10900	
==>e(1) )`

Creates a "universal set".

The complement set of the universe is an empty set.

`:is_univers <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1486	1604	
==>st be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1486	1604	
==>st be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

Stevan Little <stevan <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3055	3145	
==>lement_next =>     $self._get_intersection( $self.complement_next, $self.complement_previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3055	3145	
==>lement_next =>     $self._get_intersection( $self.complement_next, $self.complement_previou <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10806	10960	
==>2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=hea <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10806	10960	
==>2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19791	19899	
==>ue to its more
dynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manage <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19791	19899	
==>ue to its more
dynamic capabilities.>

I was inspired to have this organization partly by how Mac OS X manage <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29412	29523	
==>Mcf_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FB <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7039	7162	
==>t
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7039	7162	
==>t
    
    if ($boundary_index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundar <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10306	10410	
==>AME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10306	10410	
==>AME

Tree - A basic I<n>-ary tree

=head1 SYNOPSIS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	486	605	
==>xity => 'prefix', 
        assoc => 'non',
        name => 'prefix:<' . $opt{name} . '>',
    );
    $self->SUPER::add_r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8154	8261	
==>);

    $file = qq["$file"] if ($file =~ /\s/) && ($file !~ /^".*"$/);
    my $line = "$command $switches $f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8911	9032	
==>nteractive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8911	9032	
==>nteractive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	737	866	
==>fig();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	737	866	
==>fig();
    }

    my $pugs_path = shift || 'pugs';
    my $output = `$pugs_path -V` or die "Pugs not installed";
    my ($archlib) <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5845	5934	
==>---------------------------------------------------
## sibling methods

method get_sibling <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5845	5934	
==>---------------------------------------------------
## sibling methods

method get_sibling <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20889	20987	
==>duction use.

Most of the other (near term) third party Engines will likely just map
Rosetta's rigo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20889	20987	
==>duction use.

Most of the other (near term) third party Engines will likely just map
Rosetta's rigo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12066	12178	
==>hat to be a
problem.

=head2 Using the Tree

If you want to work with the parse tree independently, use the root( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	3191	3299	
==>ptions{returns} = 'type' if !(exists $options{returns});
    bless { %options } => $class;
}

sub params  { ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9764	9862	
==>ti sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_e <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9764	9862	
==>ti sub decode_entities(*@strings is rw) is export
{
    @strings.map: -> $string is copy { decode_e <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	636	754	
==>my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	636	754	
==>my $pilresult = pil_output( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1890	1987	
==>nderstand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bru <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1890	1987	
==>nderstand how to interpret them, see the 
Wikipedia article on RC4, I<Applied Cryptography> by Bru <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13263	13376	
==>toping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13263	13376	
==>toping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41715	41820	
==>s not significant to the result;
the new Relation::Example is the result of combining all of the source Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16638	16737	
==>Example *@others) returns Relation::Example {

    # First do some optimizing of the order that sour <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3523	3622	
==>reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to prov <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3523	3622	
==>reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written to prov <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21866	21967	
==>ocale::KeyedText can be given input that says what resource
files it should use and in what order they <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21866	21967	
==>ocale::KeyedText can be given input that says what resource
files it should use and in what order they <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4465	4584	
==>tdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4465	4584	
==>tdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3749	3852	
==>e_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3749	3852	
==>e_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( $self.closure_p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	937	1061	
==>ifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	937	1061	
==>ifies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16116	16246	
==>ns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19593	19723	
==>ns Relation {
    return Relation.new(
        heading => $!heading,
        body => set( $!body.values.grep:{
            mapping( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19248	19347	
==>ram would be editing them.  At
the same time, this information is in separate resource files used by <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19248	19347	
==>ram would be editing them.  At
the same time, this information is in separate resource files used by <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13195	13293	
==>2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13195	13293	
==>2>

Returns a new set containing all the elements of C<$set1> which are in C<$set2>, too.

=head2 C <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2259	2365	
==>lti sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2259	2365	
==>lti sub *infix:«⊊» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1417	1533	
==>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1417	1533	
==>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17650	17744	
==>ad1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for acc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17650	17744	
==>ad1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for acc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5206	5339	
==>lsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5206	5339	
==>lsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2891	3009	
==>gs::Compiler-fglock;

# this would load Pugs::Compiler::fglock as well as 

# all ::fglock things -- that is, Pugs::Com <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2785	2901	
==>gs::Compiler-fglock;
# this would load Pugs::Compiler::fglock as well as 
# all ::fglock things -- that is, Pugs::Com <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	39	169	
==>perators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * op <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	39	169	
==>perators
use Span;          # stringify()

=for TODO

    * make a Recurrence::Span class - elements can be spans

  Bugs:
    * op <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3970	4161	
==>},
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step) <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3970	4161	
==>},
                    celems =>  sub {
                                return $end - $start + 1 unless defined $step;
                                return int(( $end - $start + 1 ) / $step) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2768	2869	
==>e request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_strin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2768	2869	
==>e request method used (for example, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_strin <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3132	3238	
==>( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3132	3238	
==>( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param<end <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2526	2630	
==>a command.

Returns the perl version on success and false on failure.

=cut

sub _perl_version {
    my $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50674	50839	
==>symbol->new('$self:' => 'opaque')),
                returns => 'str'
            ),
            sub {
                my $e = shift;
                $e->create('$iden <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	553	679	
==>{
            next if /^\s*(?:#|$)/;
            $self->module_name($1) if /^\s*package\s+(\w[\w:]*)\s*;\s*$/;
            last <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2288	2473	
==>te[0]; 
        $_[3] = bless \{
                bool  => \$_[3]{match}[1]->bool,
                str   => \$_[0],
                from  => \$_[3]{match}[0]->from,
                t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2333	2445	
==>e::Spec->catfile( $tmpsrc, $self->config->build_dir ) )
#                 or error( "Could not remove metadir fro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15540	15636	
==>or their
privileges regarding access to information details, or their technical
skills.  For exam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15540	15636	
==>or their
privileges regarding access to information details, or their technical
skills.  For exam <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25339	25432	
==>that has failing subtests statistics like the
above are printed.

=item C<Test returned status <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11103	11198	
==>e $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11103	11198	
==>e $parent?) returns Tree>

=item B<is_root returns Bool>

=item B<is_leaf returns Bool>

=item B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9851	9951	
==>e, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9851	9951	
==>e, a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a Set::Infinite. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37970	38065	
==>turn that subroutine's result, which is a Template text
string if the module recognizes $msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37970	38065	
==>turn that subroutine's result, which is a Template text
string if the module recognizes $msg_key <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2926	3025	
==>tart(Z)    --> p6_conjunct(W), p6_alternatives(W, Z).

p6_conjunct(Z) --> p6_concatenation(W), p6_co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4841	5010	
==>(
            { return { bool => 0 ,} } 
        ) ),
        q(') => Pugs::Compiler::Regex->compile( q(
            <Pugs::Grammar::Term.single_quoted>
            { ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	169	286	
==>[ls -1 src] ) {
    chomp;
    my $dir = Path::Class::dir( 'src', $_ );
    
    my $src = JIB::Source->new( dir => $d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11278	11399	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11278	11399	
==>ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14711	14814	
==>puts '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14711	14814	
==>puts '3' and '4', it the output will be '3 plus 4 equals 7'.
        print $translator.translate_message <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2251	2385	
==>== pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contigu <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2251	2385	
==>== pop

    method elems         () { &{$.celems}() }
    method is_infinite   ( $self: ) { &{$.cis_infinite}() }
    method is_contigu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1167	1300	
==>h");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which instal <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1167	1300	
==>h");
  say "iblech was last seen {time - $date}s ago, saying: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which instal <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	413	608	
==>{
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char e <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	413	608	
==>{
        if $first_byte {
            if $.strict_leading_dot {
                $regex ~= '(?=[^\.])' unless $char eq '.'
            }
            $first_byte = 0;
        }
        if ( $char e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21378	21482	
==>Perl 6).

This library is free software; you can redistribute it and/or
modify it under the same terms as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21378	21482	
==>Perl 6).

This library is free software; you can redistribute it and/or
modify it under the same terms as <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2608	2730	
==>l references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_grou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2596	2718	
==>l references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_capturing_grou <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1571	1671	
==>A;B] in character class") if @names > 1;
        return $S->force_object(anyof_char => $S->nchar($n), <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	193	302	
==>t out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_ran <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	193	302	
==>t out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_ran <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2172	2268	
==>back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the easiest <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2172	2268	
==>back 4

=head3 Functional interface

The Cipher API's functional interface is perhaps the easiest <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4210	4324	
==>nt_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4427	4541	
==>nt_match}) {
        print dump_tree($match,'match');
    }
    if ($flags->{print_ast}) {
        print dump_tree( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5114	5215	
==>target;
   method is_abrupt_completion() { !$.type.normal }
}
# empty is represented by undef.

# 9. T <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8314	8412	
==>, next() returns false, and will
return false if called again.

=head2 Building the Tree

If you do <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3211	3311	
==>urn the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assign <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3211	3311	
==>urn the first value.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assign <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13551	13651	
==>lementation
could be started).  This is most useful when writing modules and you
find there is some l <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13609	13709	
==>lementation
could be started).  This is most useful when writing modules and you
find there is some l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1845	1959	
==>. $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1845	1959	
==>. $<param>[0] . ")";
      }else{
	return $<FunctionName>();
      }
    }
))->code;
*AdditiveExpr = Pugs::Compiler <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4889	5045	
==>onfig{dry} ) {
            print join( "\n", @tests, "" );
            exit 0;
        } else {
            print "# ", scalar @tests, " tests to run\n" if $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2962	3101	
==>n( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Boo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2962	3101	
==>n( :density($density) );
        }
    }
    else
    {
        if defined( %param<start> )  { $start = %param<start>;  $start_is_open = Boo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24444	24541	
==>")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appendi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24444	24541	
==>")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside from appendi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	752	855	
==>ooter( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@ <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	752	855	
==>ooter( +@!results );
    $.output.write( $footer ) if $footer;
}

method get_test_number
{
    return +@ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6079	6222	
==>ignal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6079	6222	
==>ignal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::Li <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12104	12198	
==>d C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 ! <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12104	12198	
==>d C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

=head2 C<$set1 ! <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2216	2325	
==>ark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2216	2325	
==>ark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over, it skips to the <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	453	573	
==>rver

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    pri <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	453	573	
==>rver

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    require CGI::Server-0.0.1;
    
    pri <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1710	1868	
==>se {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$rege <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1710	1868	
==>se {
            $regex ~= $char;
            $escaping = 0;
        }
        $escaping = 0;
    }
    say "Regex is $regex" if $.debug;
    return m:P5/$rege <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15752	15865	
==>urns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19229	19342	
==>urns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7330	7419	
==>f to the $::Class
    $_add_method->do(list->new($::Class, symbol->new('add_method'), $_ad <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6380	6485	
==>once bytes codes graphs langs x nth ov overlap ex exhaustive
        rw keepall e each any parsetree strin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7695	7796	
==>::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7753	7854	
==>::isa_ok &Test::is_deeply &Test::todo_is &Test::todo_isnt &Test::todo_cmp_ok &Test::todo_eval_is &Test <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17196	17309	
==>kage or application says that it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17196	17309	
==>kage or application says that it uses
Locale::KeyedText, that is a terse way of saying that it subscribes to the
l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13917	14020	
==>tities( $string )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe charact <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13917	14020	
==>tities( $string )

=item encode_entities( $string, $unsafe_chars )

This routine replaces unsafe charact <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	682	804	
==>hat.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespac <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	682	804	
==>hat.

=head2 SUB-CLASS PROPERTIES

This node type keeps the C<source> property, and adds C<content>,
which is the whitespac <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46164	46296	
==>:name'), $e->get('?$name'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:name'));
            } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1891	2010	
==>st = emit( get_data( $_[0], '$<params>' ) );
    return "$ident->$meth($list);\n";
}
sub node::sub_call_term {
    my $i <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1045	1155	
==>"  %s»%s ", BOLD . BLUE, RESET;
    }
    if($args{ensure}->()) {
      printf STDERR "%sgood%s.\n", BOLD . GR <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1552	1673	
==>=> { 'escaped_char'=> $1 },

        tail  => substr($_[0],2),

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1488	1607	
==>=> { 'escaped_char'=> $1 },
        tail  => substr($_[0],2),
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ), <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2562	2709	
==>)
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2755	2902	
==>)
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'perl5_regex', \&{'grammar1::perl5_regex'} )
       ,
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1548	1654	
==>wo) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1548	1654	
==>wo) {
#    $one.superset($two);
#}

# look at all these great unicode operators!  :D
multi sub *infix:«⊂ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5176	5310	
==>ror ), return;

    my $inst_pkg = JIB::Package->new(meta => $pkg->meta, installation => $self)
        or error("Could not create inst <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	9020	9127	
==>t.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHO <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	9020	9127	
==>t.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML::SAX

=back

=head1 AUTHO <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8186	8293	
==>(
			type => ($rseq->values)[-1]->type,
			struct_equiv => $rseq,
			orig => $seq,
		);
	}

	sub reduce_para <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26628	26719	
==>NIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 and perl5_method/4 will be available

do{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23426	23518	
==>")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23426	23518	
==>")>

Tries to gain IRC operator rights.

=head2 C<$botE<lt>privmsgE<gt>(to =E<gt> "...", text <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1189	1336	
==>$x ) {
    my $x_round;

    # round .5 down above 0, up below 0
    given abs($x) - floor( abs($x) ) {
        when ($_ <= .5) && ($x >= 0) { $x_ro <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12164	12268	
==>te t/pugsrun/11-safemode.t if you change the fully
    # qualified name of open3.

    multi sub open3 (S <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9699	9798	
==>these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we imp <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9699	9798	
==>these
method _head() returns Array { return }
method _tail() returns Array { return }

# What we imp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2390	2512	
==>> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2390	2512	
==>> };
        if defined( %param<before> ) { $end =   %param<before> - $density };

        if   !defined( $start ) &&  defi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1096	1221	
==>" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1096	1221	
==>" .
        "    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	845	943	
==>ernal packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Ye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	845	943	
==>ernal packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (None Ye <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6899	6999	
==>he beginning, before the 
ciphertext.  This will be prepended to the return value of the first call t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6899	6999	
==>he beginning, before the 
ciphertext.  This will be prepended to the return value of the first call t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	989	1095	
==>{ %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_N <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	989	1095	
==>{ %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_N <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15207	15306	
==>r to pay attention to
to select our language.  so I suspect the default should be Grf. -law]

Attemp <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3520	3616	
==>e, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written t <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3520	3616	
==>e, reducing load time and memory overhead.

Written using Pugs as of 2005-05-05, it was written t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8278	8404	
==>toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX c <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8278	8404	
==>toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $string ~~ s:P5:g/>/&gt;/;
    
    # XXX c <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4219	4371	
==>,
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "su <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4219	4371	
==>,
    "laquo"    => '«',
    "not"      => '¬',
    "shy"      => '­',
    "macr"     => '¯',
    "deg"      => '°',
    "plusmn"   => '±',
    "su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4067	4254	
==>des;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BU <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4067	4254	
==>des;
    # Array of Rosetta::Model::Node
    # List of this Node's child Nodes, if there are any.

###########################################################################

submethod BU <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18832	18968	
==>ct(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15253	15389	
==>ct(close =>);
  });

  # some kind of assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8415	8553	
==>:Placeholder->new );

		my $rparam = $param->fmap(sub {
			Blondie::TypeSafe::Annotation->new(
				struct_equiv => $_[0],
				type => Blond <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1448	1540	
==>eth>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_call <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7214	7326	
==>Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boun <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7214	7326	
==>Util::join_header_words(@v);
    $self.header("Content-Type", $content_type);
    
    $self!set_content("--$boun <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1590	1717	
==>nt_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_a <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1590	1717	
==>nt_path = @path.shift;
        # now check all the current tree's children
        # for a match
        for $current_tree.get_a <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1001	1111	
==>mpile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1001	1111	
==>mpile;
    FILTER { ... };

This way also works:

    use Filter::Simple::Compile sub { ... };

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	661	763	
==>rname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $for <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	661	763	
==>rname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $for <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10572	10665	
==>hat Rosetta::Model Nodes are arranged correctly
depending on their types, that their attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10572	10665	
==>hat Rosetta::Model Nodes are arranged correctly
depending on their types, that their attribute <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	124	211	
==>eader push_header init_header remove_header remove_content_headers header_field_names sc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	124	211	
==>eader push_header init_header remove_header remove_content_headers header_field_names sc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	186	297	
==>has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	186	297	
==>has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / set_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20731	20843	
==>bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names and the $h->scan callba <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20731	20843	
==>bar") = 1;

These field names are returned with the ':' intact for
$h->header_field_names and the $h->scan callba <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2074	2244	
==>@a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2074	2244	
==>@a;
        push @a, @{$t->{match}};
    }
    return @a;
}

# as hash
sub hash {
    my @a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1417	1526	
==>he main program here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@AR <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4623	4721	
==>size specifies the size of the (uncompressed) initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --ini <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8875	8979	
==>p5_charset_def_x(L0,L), !. % 93 is ]
p5_charset_def(L)            -->      p5_charset_items(L0), p5_chars <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2443	2542	
==>-------------------------------------------------------

preludeStr :: String
.
    print OUT qq<pre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3430	3541	
==>ule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &< <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3430	3541	
==>ule scopedsubvar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16108	16208	
==>> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a C<.p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16108	16208	
==>> files.

Perl has native support for C<.pmc> files. It always checks for them, before
loading a C<.p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29994	30146	
==>= $e->get('?$order');
                
                $order = str->new(':ascendant') # C3 is the canonical order
                    if $order == $nil: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11318	11432	
==>, pos, lastpos
    $S0 = substr target, pos, 2
    if $S0 != "::" goto subrule_name_2
    pos += 2
    goto subrule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18599	18711	
==>ic) is the {URL} of whatever web page
     contains the link that the user followed to the current
     page.  Mo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18599	18711	
==>ic) is the {URL} of whatever web page
     contains the link that the user followed to the current
     page.  Mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2657	2785	
==>eturn postcircumfix( $n )
            if $n->{fixity} eq 'postcircumfix';
        return ternary( $n )
            if $n->{fix <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	374	527	
==>d value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	374	527	
==>d value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\"\\]*)*)\"//) {
                    my $val = ~$0;
                    $val ~~ s:P5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5837	5956	
==>x:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5837	5956	
==>x:P5/\r?\n--\Q$b\E\r?\n/, $str).map:{ HTTP::Message::parse($_); };
            }
        }
    } elsif ($content_type eq <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37169	37285	
==>= match Y unless match X at the same place
    $self->add_handler('!' => sub {
      my ($S) = @_;
      push @{ $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33354	33456	
==>rride the user text of another library
which it uses, the Template module for the program or first libr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33354	33456	
==>rride the user text of another library
which it uses, the Template module for the program or first libr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	434	528	
==>nt("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	434	528	
==>nt("HTTP/1.0 400 BAD REQUEST\r\n");
    $.remote.print("Content-Type: text/html; charset=UTF-8\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27659	27770	
==>()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27659	27770	
==>()>

This method returns a deep copy of this Message as a Hash ref of 2
elements, which correspond to the 2 name <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1175	1270	
==>everal
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of const <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1175	1270	
==>everal
rate-limiters in an C<AND> or C<OR> fashion.

Each bucket has a memory footprint of const <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1700	1831	
==>t some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined | <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1700	1831	
==>t some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$base.defined | <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	2258	2406	
==>/){
		    $valuex = eval("\"$value\""); die "bug $@\n$value\n" if $@;
		}
		if ($res ne $valuex) {
		    print "not ok\n  \# Expected: >$valuex<\n  \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2007	2160	
==>ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2007	2160	
==>ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 NAME

HTTP: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7767	7912	
==>[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7767	7912	
==>[2]);

        return $_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5055	5151	
==>re is a major abstraction violation.
# Need to figure out positional constructors.  At least it's <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4033	4120	
==>_quantified_op(W,Z), !.
p6_quantified_op(W, Z) --> p6_range(W, Z), !.
p6_quantified_op(W <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3250	3364	
==>nd =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<befor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3250	3364	
==>nd =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<before> ) { $end =   %param<befor <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3136	3263	
==>d"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3136	3263	
==>d"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11279	11423	
==>ve( package => $inst_pkg )

=cut

sub remove_registered_alternative {
    my $self = shift;
    my %hash = @_;
    
    my $inst_pkg;
    my $tmp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8587	8706	
==>[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8583	8702	
==>[0], $_[1] ) . "$_[1] )\n";
}        
sub node::non_capturing_group {
    return emit_rule( $_[0], $_[1] );
}        
su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24440	24559	
==>ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20861	20980	
==>ifthen
  $self->add_handler('ifthen|' => sub {
    my ($S) = @_;
    return if ${&Rx} !~ m{ \G \| }xgc;
    push @{ $S-> <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3612	3742	
==>tes => [ '$.reason' ],
    methods => {
        'reason' => sub { _('$.reason') },
        'status' => sub {
            my $status <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1911	2025	
==>ON;
@inc::Module::Install::ISA     = __PACKAGE__;

sub autoload {
    my $self = shift;
    my $who  = $self->_call <==
2	/Users/nnunley/pugs/util/package-osx.pl	5286	5394	
==>m
        /usr/local/man/man3/Perl6::Doc.3
        /usr/local/man/man3/Perl6::Doc.3pm
        /usr/local/man/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1336	1429	
==>abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1336	1429	
==>abxxxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	162	296	
==>- unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	162	296	
==>- unicode :)
        #my $content = shift;
        #$content =~ /\S/
            #&& croak "tried to put non-whitespace in a whitespace <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14661	14772	
==>) - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; dis <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14661	14772	
==>) - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_traffic} seconds; dis <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9550	9675	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13027	13152	
==>ation $other!) returns Relation {

    die "The heading of the relation in $other is not a full subset"
            ~ " of the <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12834	12969	
==>butes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=it <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12834	12969	
==>butes' => { 'predef_base_type' => 'BOOLEAN' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=it <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10685	10814	
==>ence>
}
rule BackslashSequence {  # see 7.8.5
      <'\\'> <NonTerminator>
}
rule NonTerminator {  # see 7.8.5
      <!before <Lin <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1963	2070	
==>s = &$expression($res, $cur);
   }
   $res;
 }


 multi sub Perl6::Hash::reverse (%hash) returns Hash is def <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1227	1350	
==>pture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1227	1350	
==>pture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5216	5352	
==>arts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    und <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5216	5352	
==>arts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_content;
    return;
}

my method stale_content () {
    und <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	12	115	
==>:Installation::Set;

use strict;
use warnings;
use Params::Check           qw[check];
use Log::Message:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	341	465	
==>atchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	341	465	
==>atchet};
    $param->{sigspace} = 1 
        unless defined $param->{sigspace} ||
               defined $param->{s};
    $cl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4838	4950	
==>packages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_co <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4838	4950	
==>packages and such.
    open my $fh, $module
        or die "Can't open $module for input:\n$!";
    my $module_co <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	645	735	
==>d2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	645	735	
==>d2 Constructor options

With no options, Cipher::Caesar creates a rot13 encipherer/decipher <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	87	209	
==>e use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	87	209	
==>e use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

# vim: ft=perl6 : <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8491	8610	
==>t be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8491	8610	
==>t be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18412	18517	
==>gin
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<N <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18412	18517	
==>gin
  $bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<N <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19636	19730	
==>rt> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref desc <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19636	19730	
==>rt> methods to join or leave channels.

=head2 C<$bot.channel("#chan")>

Returns a hashref desc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3147	3286	
==>ld stuff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read ma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1074	1184	
==>=>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1074	1184	
==>=>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - $.density, de <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25665	25762	
==>an sell you an alternate, limited license that allows you to link
Rosetta with non-free software c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25665	25762	
==>an sell you an alternate, limited license that allows you to link
Rosetta with non-free software c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	557	672	
==><VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	557	672	
==><VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<CLASS>.<METH>(): argument <ARG> is not a Hash ref,]
           ~ q[ bu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18964	19080	
==>d, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18964	19080	
==>d, etc.).

=head2 C<$botE<lt>loginE<gt>()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	994	1096	
==>rn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	994	1096	
==>rn "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "), { ratchet => 1 } )->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1273	1380	
==>print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1273	1380	
==>print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x->("abxxxd") );

use Benchmark;
use Pugs::Compile <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2648	2776	
==>< @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Fun <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2648	2776	
==>< @b[0].end { shift @a } else { shift @b }
    }
    return $self.new( spans => @res );
}

method intersects ( Set::Infinite::Fun <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1198	1308	
==>e(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1198	1308	
==>e(q(
    <'rule'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22587	22682	
==>e user strings; Locale::KeyedText would also handle
this.

A program generates a Message that co <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22587	22682	
==>e user strings; Locale::KeyedText would also handle
this.

A program generates a Message that co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9161	9262	
==>{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9161	9262	
==>{normalize $nick} }
  method channel(Str $channel) { %!channels{normalize $channel} }

  method add_ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10531	10648	
==>er names.

The header() method accepts multiple ($field => $value) pairs, which
means that you can update several fiel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10531	10648	
==>er names.

The header() method accepts multiple ($field => $value) pairs, which
means that you can update several fiel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6224	6476	
==>n];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.cu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6224	6476	
==>n];
                $.current = $span.next( $.current );                
            }
            else {
                if defined $.current_span {
                    $.current_span++ 
                }
                else {
                    $.cu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9333	9447	
==>ft @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9526	9640	
==>ft @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	703	808	
==>teral {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	703	808	
==>teral {
    my $grammar = shift;
    return $grammar->no_match unless $_[0];
    my ($extracted,$remainder <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3455	3786	
==>::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attrib <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3455	3786	
==>::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attrib <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	627	762	
==>ST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	627	762	
==>ST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONT <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6188	6358	
==>$match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6188	6358	
==>$match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($match) }),
                &continue);
        });
    }
}

method c <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	558	689	
==>{ (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @! <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	558	689	
==>{ (($tree.node() ~ "") eq $test) };  
    }

    # get ready with our results
    my @results;

    # get our path
    my @path = @! <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4975	5139	
==>s this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5439	5603	
==>s this dep already?
                for my $sub_entry ( @$entry ) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	5228	5423	
==>)
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$c <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6990	7185	
==>)
                 ($e create ("$current" ((($e get ("&dispatcher")) do))))
                 ((block new 
                    (($e) 
                     {
                         (((($e get ("$c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9220	9343	
==>ock->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pm <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9220	9343	
==>ock->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $klass->pm <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	105	214	
==>A};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install::Base};
}

# determine if the user needs nmake, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7679	7845	
==>m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7679	7845	
==>m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if $maxage <= 0 {
                %!cookies{$domain}{$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11085	11181	
==>catenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joinin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11085	11181	
==>catenated with ", " as separator in scalar
context.  The HTTP spec (RFC 2616) promise that joinin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	141	247	
==>oadFile];
use Params::Check           qw[check];
use Log::Message::Simple    qw[:STD];

use base 'Object::A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6542	6663	
==>$_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6542	6663	
==>$_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1014	1123	
==>pen () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1014	1123	
==>pen () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	279	397	
==>T> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	279	397	
==>T> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth_type       returns Str is export { %*ENV <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40916	41019	
==>practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40916	41019	
==>practical way of suggesting improvements to the standard
version.

=head1 ACKNOWLEDGEMENTS

=over

=item <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4886	5052	
==>);
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = sel <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4886	5052	
==>);
        if $length >= 0 {
            @body = self._shift_n( $length ); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1821	1961	
==>atch} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1821	1961	
==>atch} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #print Dumpe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2422	2526	
==>y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inheri <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2422	2526	
==>y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inheri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1522	1674	
==>an.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1522	1674	
==>an.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @sp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9600	9785	
==>= $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi method exclusion (Relation::Example $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3966	4107	
==>n different lines,
        # happens often on VMS if you do:
        #   print "not " unless $test;
        #   print "ok $num\n";
        if( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	2042	2171	
==>->shift if $seq->fetch(num->new(0)) == $cand;
        }
    }       
}

1;

__END__

=pod

=head1 NAME

C3 - the core C3 type

=cu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	791	882	
==>e($_[1]) == -1 ? bit->new(1) : bit->new(0) }

sub greater_than_or_equal_to { $_[0]->_compare <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16947	17051	
==>faults to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16947	17051	
==>faults to empty if the corresponding argument is undefined).

Some sample usage:

    # Declare a unsigne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	603	723	
==>v
    } => $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other native t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1201	1313	
==>v
    } => $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other native t <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5044	5149	
==>my $tokenCat = $$token{syncat};
  $position = $operator->to();
  goto oper_shift if ( $tokenCat == PGE_OPT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21714	21807	
==>arser> class,
which installs all the handlers for standard Perl 5 regexes.  This
documentation <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	9	106	
==>= 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	9	106	
==>= 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Grammar::Perl6;

us <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2310	2464	
==>number'};
            _('$.diagnostic' => '???') unless exists $params{'$.diagnostic'};
        }
    },
    methods => {
        'number'      => sub { _( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22070	22168	
==>uple.

=head1 SYNOPSIS

    use Relation::Example;

I<This documentation is pending.>

=head1 DESCR <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	45	137	
==>cape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	45	137	
==>cape <uri_unescape>;

use HTTP::Request;
use HTTP::Query;

class HTTP::Request::CGI-0.0.1[?:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7773	7873	
==>ze>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures.

Cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7773	7873	
==>ze>

    C<method zeroize() returns Void {...}>

Clears the cipher object's internal structures.

Cip <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3846	3994	
==>entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4310	4458	
==>entry, we want to resolve this one
            if( ! ref $entry ) {
                
                ### do we have something that satisfies this dep <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8895	9010	
==>he tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().de <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8895	9010	
==>he tree's depth 
    # is up to date all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().de <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3800	3912	
==>hich will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3800	3912	
==>hich will
perform POD roundtripping.

=head1 FUNCTIONS

=over 4

=item B<pod2pod (Str $buffer is rw)>
=item B<pod <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14008	14099	
==>oned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14008	14099	
==>oned_doc = Rosetta::Model::Document.new( *%{$hash_was_saved} );

=back

=head2 The Rosetta:: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4037	4149	
==>an up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $ht <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4037	4149	
==>an up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $ht <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1326	1429	
==>------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1326	1429	
==>------- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2733	2860	
==>return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2733	2860	
==>return $universe if $self.equal( $universe );
    return $set      if $self.equal( $set );

    return $self.new( 
        closu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	93	187	
==>_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $d <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	93	187	
==>_keystream(Int $n) returns Array {...}

# Things we implement for them.
method _cipher(Array $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1090	1201	
==>})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1090	1201	
==>})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3591	3706	
==>f $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3591	3706	
==>f $self.equal( $set );

    return $self.new( 
        closure_next =>        $self._get_intersection( $self.closure <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	293	444	
==>\@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], stri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	287	438	
==>\@dirs] );

=cut

sub new {
    my $class   = shift;
    my %hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], stri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24435	24530	
==><gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24435	24530	
==><gt>("...")>

Sends a command to the server. The command is not modified by C<Net::IRC>,
aside f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	785	899	
==>lib",
        "$Bin/../../Pugs-Utils/lib",
        #"$Bin/../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs: <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2272	2362	
==>ue }');
Helpers::macif(%?CONFIG{'num_width'} == 128,'subset complex of complex128 where { t <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	471	568	
==>turns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	471	568	
==>turns Str is export { $QUERY_STRING   }
sub request_method returns Str is export { $REQUEST_METHOD <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11596	11696	
==>);
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11596	11696	
==>);
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	251	367	
==>am ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	251	367	
==>am ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUPER::compi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	151	266	
==>tdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	151	266	
==>tdir       returns Str  is export { '\\'  }
sub devnull       returns Str  is export { 'nul' }
sub case_tolerant ret <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1874	1978	
==>($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is sco <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1874	1978	
==>($p, $name)> simply executes C<$p>, while setting up a
backtracking mark named C<$name>.  The name is sco <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23161	23254	
==>s in english text and they translate it, which could
produce ambiguous results or associations <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23161	23254	
==>s in english text and they translate it, which could
produce ambiguous results or associations <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6730	6816	
==>> [C], {\+(p5_metachar([C]))}.
p5_elemental(char(C)) --> "\\", [C], {p5_metachar([C])}. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2943	3052	
==>load;
    $self->preload;

    # Unregister loader and worker packages so subdirs can use them again
    delet <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11784	11913	
==>lock->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12063	12192	
==>lock->( $match ) ],
        }; 
    }
;
    push @grammar1::statements, \&rule_decl;
*{'grammar_name'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4252	4348	
==>nnels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<35 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4252	4348	
==>nnels{~normalize($event<object>)}<topic> = $event<rest>;
  }];

  # /NAMES response
  %handler<35 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1732	1852	
==>ous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1732	1852	
==>ous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_un <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12465	12563	
==>pends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12523	12621	
==>pends) returns Bool`

These functions will eval a code snippet, and then pass the result to is or o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6807	6917	
==>= Pugs::Compiler::Rule->compile(<<'RULE')->code();

    eval <p6ws>? \( <p6ws>? 
        <literal> <p6ws>? \, < <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17906	18015	
==>0 goto end
    $S0 = self
    self["value"] = $S0
  end:
    .return (self)
.end

.namespace [ "PGE::Exp::Lite <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2959	3053	
==>elf.members.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2959	3053	
==>elf.members.grep:{ !$other.includes($_) });
}

method symmetric_difference($self: Set $other) r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6270	6375	
==>pty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.sta <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6270	6375	
==>pty ($self: ) {
    return $self.start > $self.end;
}

method is_infinite ($self: ) {
    return $self.sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4301	4417	
==>Defaults to 1 in Rules.

=head2 match (Str $match_against)

Instance method.  Returns a L<Pugs::Runtime::Match> objec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	432	582	
==>atch->new( { 
        bool  => 1,
        match => $1,
        tail  => $3,
        capture => { 
            pair => { key => { single_quoted => $1 }, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10432	10543	
==>"&dispatcher")->do() 
        }
    )
);

=cut

my $i = Interpreter->new;
my $code = join "" => $i->parse($sourc <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4893	5047	
==>$x > 0 {
        $x_round = round_floor($x);
    }
    else {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::sign (Num $x) {
	retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	38549	38661	
==>h->new;

  my @RX = (
    q{^(?:.*foo&\D*(\d+))},
    q{^(?:.*foo!\D*(\d+))},
  );

  for (@RX) {
    $parser->re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10034	10144	
==>atch - TODO - unify with $_[0]
7 - argument list - <subrule($x,$y)>

it modifies argument #3 to:

    { bo <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1187	1296	
==>$_}" } $_[0]->keys;
	}

	sub merge {
		my $self = shift;
		my $other = shift;

		(ref $self)->new(%$self, %$ot <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9617	9729	
==>6 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $resul <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9617	9729	
==>6 ?? chr($c) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $resul <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6534	6658	
==>rint $fh $template->output();
    close $fh;
}

# Generating directory indices
for (@dirs) {
    build_indexes($_, $index->{_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2424	2521	
==>iphered; when you're done, call the closure 
with no arguments to finish the ciphering and clear t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2424	2521	
==>iphered; when you're done, call the closure 
with no arguments to finish the ciphering and clear t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	333	434	
==>tr,$X::pos,$X::cap)=($X::str,$X::pos,$X::cap);
        $v = $f->($c_down);
        ($str,$pos,$cap)=($ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5968	6062	
==>kg_this = "${pkg_root}::$name";
	my $pkg_type = "${pkg_root}::$type";
	my $pkg_rep  = "${pkg_ro <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	950	1080	
==>fix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	950	1080	
==>fix:<_if_expr>  { return $expr ; }
        sub prefix:<_if_block> { $block }
        eval( \' 
                if ( &{\\\'prefix:<_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3280	3412	
==>_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.def <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3280	3412	
==>_content (Str $content) {
    $!content ~= $content;
}

method content_ref (Ref $content?) is rw {
    $!content unless $!content.def <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16536	16634	
==>d in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16536	16634	
==>d in $parent_node's Child Nodes
attribute; if $parent_node is not set, then the new Node is instead <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8761	8862	
==>inite` object using an existing Recurrence object.

- `universal_set()`

Creates an object with a cont <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8761	8862	
==>inite` object using an existing Recurrence object.

- `universal_set()`

Creates an object with a cont <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	558	661	
==>_id=442402
#
# --------------------------------------------------
# Author: Yung-chung Lin (xern@cpan.or <==
2	/Users/nnunley/pugs/util/drift.pl	1842	1944	
==>rIFT>/../<\/DrIFT>/) {
		next if (/DrIFT/);
		print OUT;
	}
}

close IN;

shift(@program) until $progra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	218	368	
==>{
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'postcircumfix', 
        assoc => 'non <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	212	328	
==>{
    my $self = shift;
    my %opt = @_;
    $self->Pugs::Grammar::Operator::add_rule( %opt,
        fixity => 'post <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4919	5045	
==>',@_)}
sub p6_Hash {p6_new('Hash',@_)}
sub p6_List {p6_new('List',@_)}
sub p6_Scalar {p6_new('Scalar',@_)}

# XXX - Using field <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1479	1591	
==>he Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = j <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	161	265	
==>cks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	161	265	
==>cks.

=cut

method assertion ($assert) {...}

=pod

C<empty> matches nothing, successfully.

=cut

method <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3305	3449	
==>\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3305	3449	
==>\\xx  -> xx\xx
    $path ~~ s:perl5:g{(\\\.)+\\}{\\};                                           # xx\.\.\xx -> xx\xx
    $path ~~ s:perl5{^(\.\\) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37390	37490	
==>d false if not.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37390	37490	
==>d false if not.

=item C<load_template_module( $module_name! )>

This method takes the name of a Perl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	138	241	
==>ns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	138	241	
==>ns Set::Infinite::Functional {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11305	11408	
==>METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_EL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11305	11408	
==>METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_EL <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	415	515	
==>od

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	415	515	
==>od

C<alternate($a, $b)> tries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13773	13888	
==>ude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0. <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13773	13888	
==>ude
large ranges.

    # it's better to use Set::Infinite instead of this
    my $span1 = $span.grep:{ $^a != all(0. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26476	26569	
==>practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

No <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26476	26569	
==>practical way of
suggesting improvements to the standard version.

=head1 ACKNOWLEDGEMENTS

No <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25514	25615	
==>x c");
}
{
	my $type = type::operator::arrow->new(
		type::operator::pair->new(
			type::variable::fre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	639	742	
==>urn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	639	742	
==>urn ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${${$_[0]}- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7012	7118	
==>ill noisy.  I'm working on it.

=cut

# Turns on autoflush for the handle passed
sub _autoflush {
    my $f <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3955	4079	
==>{_('@:results')} => $test;
            _('$.output')->write( $test->report() );
        }
    }
};

require "lib/TestBuilder/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	216	331	
==>"${class}::hash"}{$key} = Pugs::Compiler::Rule->compile( 
        $rule, 
        grammar => $class,
    );
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	483	613	
==>>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <su <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	483	613	
==>>?
        <trait>*
        <block>
}

rule lexicalsub { # from A06
        <lexscope> <type>?
        <submodifer>? <subintro> <su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16562	16672	
==>.  I
don't want to think about that.  This module is more of a theoretical
exercise, a jump-start to built-in r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3667	3776	
==>oly war about whether to raise
    # exceptions or return false values to signal error conditions
    # in lib <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7462	7623	
==>$self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7462	7623	
==>$self.get_universe;
    return $.complement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1452	1582	
==>NV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.que <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1452	1582	
==>NV<QUERY_STRING> // %*ENV<REDIRECT_QUERY_STRING>;
            
            if ($.query_string ~~ /<[;&=]>/) {
                $.que <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	226	344	
==>e ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even ma <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	226	344	
==>e ?

# I really hate this.  I was a bad idea to do it in the first place.
# Wonder how to get rid of it???  (It even ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14380	14481	
==>Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if def <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14380	14481	
==>Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $topic?) {
    if def <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5061	5165	
==>eply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7729	7833	
==>eply(
    [ $Foo->class_precendence_list ], 
    [ $Foo, $Object ], 
    '... $Foo class_precendence_list <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4717	4843	
==>ray is rw ; *@values --> Int ) {
   Array::splice(@array, @array.elems, 0, @values);
   @array.elems;
 }


 &Array::shift<Array <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2960	3070	
==>ray is rw ; *@values --> Int ) {
    Array::splice(@array, @array.elems, 0, @values);
    @array.elems;
}

# co <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47109	47252	
==>:')->get_attr(symbol->new('%:namespace')));
                  }))
                  ->or(block->new($e, sub {
                      $e->set('$re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3839	3943	
==>s_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3839	3943	
==>s_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( $self ) <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1586	1691	
==>}
    }
}

role Class::Events::Subscriber {
    use Set;
    has Set $.subscriptions handles :note_subscri <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	23465	23561	
==>-----------

replace_at_n(0,Replace,[],[Replace]) :- !.
replace_at_n(0,Replace,[_|T],[Replace|T]) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32264	32360	
==>stack.

When an object does have an ending node, its ender() method should
return an array refere <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	162	287	
==>onal {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	162	287	
==>onal {
    $class.new( spans => [] );
}

method universal_set ($class: ) returns Set::Infinite::Functional {
    $class.new( s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	194	359	
==>d\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	194	359	
==>d\n\n" },
        end_document   => { $buffer ~= "=cut"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1641	1754	
==>};

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1641	1754	
==>};

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6200	6444	
==>add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6664	6908	
==>add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } elsif ( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45949	46136	
==>ft;
                $e->get('?$name')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$self: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13622	13765	
==>ives_dir->file( $script );
        my $bin = $conf->bin_dir->file( $script );
        system( qq[ln -fs $_ $alt] )                    and die $? <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26727	26823	
==>ail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This meth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31279	31375	
==>ail if
any members of C<$attrs> do not match attribute names of the invocant
Relation.  This meth <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16296	16422	
==>my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if (_all_ok($tot)) {
        print "All tes <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12918	13025	
==>ta}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27057	27164	
==>ta}->qr, $self->raw;
  }

  sub visual {
    my $self = shift;
    join "", $self->{data}->visual, $self->ra <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3425	3534	
==>ny is a utility to read and write .ini style configuration files
with as little code as possible, reducing loa <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3425	3534	
==>ny is a utility to read and write .ini style configuration files
with as little code as possible, reducing loa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6227	6348	
==>lf = shift;
	$self->{instance}->splat(@_);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29109	29204	
==>iming routines, and L<Devel::Cover> for test coverage
analysis.

=head1 TODO

Provide a way of r <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4915	5025	
==>r into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4915	5025	
==>r into class attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $t <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13059	13172	
==>e code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because so <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13117	13230	
==>e code, and test whether they live or die.

=== A Note about TODO-ing tests

Sometimes a test is broken because so <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8477	8593	
==>y.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8477	8593	
==>y.
# If however you are creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5591	5694	
==>base access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5591	5694	
==>base access requests.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18335	18444	
==>->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14756	14865	
==>->add_handler('cce]' => sub {
    my ($S) = @_;
    $S->error(RPe_LBRACK) if ${&Rx} !~ m{ \G ] }xgc;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4316	4428	
==>f: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4316	4428	
==>f: ) returns Set::Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infin <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1077	1190	
==>n
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1077	1190	
==>n
 # kiddies, this is for your own good :)
 my $text = Perldoc::DOM::Text->new ("NAME");

 # note that Texts *can* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10553	10687	
==>d( $n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # XXX - parser bug - this s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	383	561	
==>{
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	383	561	
==>{
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $p <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11323	11451	
==>ing  => sub {
      utime undef, undef, $initrd_img;
      for(@files) {
        my ($src, $dest) = @$_;
        copy $src => $de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13853	13969	
==>N/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13853	13969	
==>N/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./:enqu <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5845	5977	
==>"theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5845	5977	
==>"theta"    => chr(952),
    "iota"     => chr(953),
    "kappa"    => chr(954),
    "lambda"   => chr(955),
    "mu"       => chr(956 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	610	708	
==>{ }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	610	708	
==>{ }

class Perl::Compiler::PIL::Util::ConcreteType
    does Perl::Compiler::PIL::Util::Type {
    h <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2270	2378	
==>le::Spec module. Since 
we currently do not have objects or fully functioning modules in 
Pugs, this port doe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2270	2378	
==>le::Spec module. Since 
we currently do not have objects or fully functioning modules in 
Pugs, this port doe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21314	21412	
==>ibute name and each Mapping value
is the corresponding attribute value.

Every Relation attribute h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25866	25964	
==>ibute name and each Mapping value
is the corresponding attribute value.

Every Relation attribute h <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12930	13101	
==>arget_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12930	13101	
==>arget_depot();
            $conn.open();
        }
        else {
            die $!;
        }
    }

    try {
        # Check that the 'person' table exists and create i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6555	6669	
==>ordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reaso <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6555	6669	
==>ordingly.
    ./add_handler("KICK", -> $event {
      my ($kickee, $reason) = split " ", $event<rest>;
      $reaso <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23345	23431	
==>the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23345	23431	
==>the current distribution:
L<Rosetta::Model-(0.724.0)|Rosetta::Model>.

=head1 INCOMPATI <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4247	4360	
==>$set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4247	4360	
==>$set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span.d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1436	1617	
==>ords -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1436	1617	
==>ords -> $cur {
            take join '; ', gather {
                for $cur -> $k, $v {
                    if $v.defined {
                        # XXX add / to character class in <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5448	5547	
==>e 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object would be <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5448	5547	
==>e 
destructor, but there may be situations in which explicitly zeroizing the 
cipher object would be <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8451	8571	
==>ENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <ht <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8451	8571	
==>ENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted from the HTML 3.2 DTD -- see
        # <ht <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3404	3512	
==>\"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [- <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3404	3512	
==>\"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  %handler<433> = [- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	252	385	
==>og::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	250	383	
==>og::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];



### only called form JIB::Package
sub new {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1568	1895	
==>E>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:per <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1568	1895	
==>E>\n" 
                }                                                       
            }
        },          

        # Modifiers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:per <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4828	4941	
==>dir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4828	4941	
==>dir returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16595	16708	
==>t( $n - 0.5) !! int($n + 0.5);
    }
    sub round($n) is primitive is safe {
        Num::round_gen($n, &Num::do_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24955	25043	
==>0,s,E1)  :- set_flag_s(E0,s,E1), !.
set_flag(E0,-s,E1) :- set_flag_s(E0,-,E1), !.
set_fla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12631	12738	
==>er class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6106	6213	
==>er class') if $cc;
    return $S->force_object(anyof_char => 'X') if $cc;
    return $S->object(clump => '\X <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2947	3057	
==>urns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2947	3057	
==>urns Str {
    return [$.month, $.day, $.year].join($sep);
}

method dmy (Str $sep = "-") returns Str {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4580	4726	
==>[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cac <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4580	4726	
==>[0] }\
               .grep:{ defined $_ }\
               .map:{ normalize $_ };

    unless defined %cache353{$chan} {
      # We initialize %cac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21202	21298	
==>ly suggested (but not required) that each Perl package which
uses this would come up with keys wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21202	21298	
==>ly suggested (but not required) that each Perl package which
uses this would come up with keys wh <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14818	14914	
==>mp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14876	14972	
==>mp_ok() function.

- is_deeply

Once nested data structures are implemented, we will need an easy <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2527	2625	
==>tions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact sam <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2527	2625	
==>tions of the keystream.
(Just remember to do it at both ends!)

=item Encrypting with the exact sam <==
2	/Users/nnunley/pugs/util/config_h.pl	1864	1998	
==>=> "$temp.exe",
            "$temp.hs"
        );

    };

    my $ok = -s "$temp.exe";

    unlink("$temp.exe");
    unlink("$temp.hs" <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4137	4257	
==>self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4137	4257	
==>self._normalize_parameter( $span );
    my $tmp = $span0.intersection( $span1 );
    my $res = Set::Infinite.new();
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2819	2940	
==>ush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2819	2940	
==>ush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me to define &subs easily. :)
  sub enqu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26376	26472	
==>t and output, any
variable values which are references will be passed by reference, so you
may st <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26376	26472	
==>t and output, any
variable values which are references will be passed by reference, so you
may st <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6016	6123	
==>FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.char <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6016	6123	
==>FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unless $ct.defined and $ct.char <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30667	30767	
==>must represent a single
language.

The name of each Template module has two parts, the Set Name and t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30667	30767	
==>must represent a single
language.

The name of each Template module has two parts, the Set Name and t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11290	11421	
==>},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9901	10005	
==>rrow->new(
			$a,
			type::operator::arrow->new(
				type::operator::nary->new(list => $a),
				type::ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8635	8755	
==>t %s on \\%s", 'brace', "0$1") if ${&Rx} =~ m{ \G ([[({<]) }xgc;

    if (${&Rx} =~ m{ \G ( [0-7]+ ) }xgc) {
      return <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2376	2470	
==>{sig}->bind({ invocant => $invocant, positional => $_[1][0], named => $_[1][1] }, 2);
}

=head1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32302	32396	
==>ding node, its ender() method should
return an array reference of arguments to object() that wi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	480	606	
==>ruct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	964	1090	
==>ruct },
    };
    
    check( $tmpl, \%hash ) or ( error( Params::Check->last_error), return );

    ### XXX check validity of <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2305	2481	
==>ool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2305	2481	
==>ool::True,
                     end_is_open =>   ! $.start_is_open ),
               $self.new( start => $.end,
                     end =>   Inf,
                     start_is_ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14213	14343	
==>} 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->va <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1693	1823	
==>} 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    my $symbol = shift->va <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5285	5403	
==>oes' => $_does);
};

# our class(Role), which is also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	359	457	
==>is export {
    duration(:second($seconds));
}

multi sub duration( Int ?$year, Int ?$month, Int ?$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	131	247	
==>to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	131	247	
==>to_a_chan = $event<object> ~~ rx:Perl5/^[#+&]/;
    
    # Only record if the message was sent to a channel.
    %!se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2624	2743	
==>grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2624	2743	
==>grave accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	539	683	
==>my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t6 = times;

printf "Total time: %.3f seconds (%.3f compilation, %.3f type che <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28615	28708	
==>e.

=item C<equal (Relation::Example $other!) returns Bool>

This method returns a Bool indica <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1798	1900	
==>am>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1798	1900	
==>am>[0]){
	return "(" . $<FunctionName>() . " " . $<param>[0] . ")";
      }else{
	return $<FunctionName <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3286	3391	
==>never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3286	3391	
==>never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4605	4721	
==>rapp->fmap(sub {
			my $node = shift;
			return $node unless $i++; # skip the thunk

			my $expected = shift @context <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3432	3537	
==>pended to it; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoana <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3432	3537	
==>pended to it; appending can create precisely the sort of weak 
keying that can be exploited by a cryptoana <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18447	18558	
==>s->{details}[-1];

    if( $detail->{ok} ) {
        _print_ml_less("ok $curr/$max");

        if( $detail->{typ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4090	4221	
==>y($cls,$name,$rep,$type,$pairs)=@_;
    my @fields;
    my %field_type;
    for(my $i=0; $i < @$pairs; $i+=2) {
        my($fname,$f <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2414	2507	
==>ring_group> | <noncapturing_group>
  | <literal> | <interpolated_literal>
  | <closure> | <cod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8272	8379	
==>ian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8272	8379	
==>ian events like object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

T <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2185	2284	
==>3 Functional interface

The Cipher API's functional interface is perhaps the easiest one that allows <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2185	2284	
==>3 Functional interface

The Cipher API's functional interface is perhaps the easiest one that allows <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	353	496	
==>%hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    che <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	347	490	
==>%hash    = @_;
    
    my $dirs;
    my $tmpl = {
        dirs => { default => [@INC], strict_type => 1, store => \$dirs },
    };
    
    che <==
2	/Users/nnunley/pugs/misc/pX/Common/P5_to_P6_Translation/TestInit.pm	87	206	
==>very core test program to prepare it for running.
# Now instead of:
#
# BEGIN {
#   chdir 't' if -d 't';
#   @INC = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9204	9303	
==>ar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @stateme <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3029	3128	
==>ar::Perl6->_my(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @stateme <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3490	3592	
==>LUE)\z/;
    return 'perl5_object' if $ref ne 'Dispatchable';
    return 'perl6_object';
}
sub p6_ref { <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18670	18754	
==>Re,0,F0,F0,B0,B0,E0,E0).
rm_repeat_max(Re,N,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,Fx,B0,Bx <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	994	1095	
==>e => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$na <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	994	1095	
==>e => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurpy) {
		$na <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12022	12235	
==>&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First l <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15499	15712	
==>&cross_product     ::= &product;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First l <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	749	850	
==>rce_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	807	908	
==>rce_todo_test_junction = join ' ', '', @todo_tests, '';
}

## ok

sub ok (Bool $cond, Str $desc?, :$to <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3856	3952	
==>,
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be pas <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3856	3952	
==>,
"today", "tomorrow", and "yesterday" return the appropriate date.

Any other string will be pas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	11	103	
==>s::Compiler::Rule;
$Pugs::Compiler::Rule::VERSION = '0.03';

# Documentation in the __END__
u <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5607	5709	
==>et_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5607	5709	
==>et_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set._get_complement_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6959	7087	
==>ys -> $k {
        if %modifiers_known.{$k} {
            if $p5 && !%modifiers_supported_p5.{$k} {
                warning "Modi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2475	2586	
==>00 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2475	2586	
==>00 }
    
    sub is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22244	22360	
==>eturn $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18665	18781	
==>eturn $S->object(eval => $1);
    }
    $S->error(RPe_NOTBAL);
  });

  # logical prefix
  $self->add_handler('(??' = <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22031	22288	
==>ion

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Relation -
Relations for Perl 6

=head1 VERSION

This docume <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12840	12957	
==>hashref"
	if ref $_[0] and ref $_[0] eq 'HASH';
    my $runperl = &_create_runperl;
    my $result;

    my $tainted = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	866	978	
==>bj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta object
    {   my $config  = JIB::Con <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21289	21388	
==>"#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21289	21388	
==>"#chan")>

Parts a channel.

=head2 C<$bot.quit("reason")>

Quits the connection to the server by se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5580	5706	
==>rec $prec\n" .
                            "        { \$_[0]->{out}= Pugs::Grammar::Precedence::add_to_list( '$op->{name}', \$ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3937	4037	
==>rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of your config file. <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3937	4037	
==>rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of your config file. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7997	8096	
==>s>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7997	8096	
==>s>.delete(~normalize($killee)) for @chans;
    %users.delete(normalize $killee);
  }];

  # Somebody <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1509	1644	
==><ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1509	1644	
==><ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '< <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2564	2667	
==>nstall, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_instal <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2564	2667	
==>nstall, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_instal <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	425	557	
==>rrently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	425	557	
==>rrently define classes,
      macro f($x) { "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2688	2844	
==>} elsif ($backslash_escape{$c}) {
                    $y .= $backslash_escape{$c};
                } else {
                    my $z = chr $c; # Maybe we ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6	108	
==>e Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6	108	
==>e Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warnings;
#use Smart: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3951	4094	
==>erse sort @_;
    my $i = 0;
    my $j = $i;
    my ($item) = $rules[$i] =~ /^(<.*?>)/;
    #print "item: $item\n";
    for my $i ( $i .. $#rule <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10906	11014	
==>, mpos) = $P0(mob, 0, "PGE::Exp::Subrule")
    pos = mfrom 
    lastpos = length target
    $S0 = substr targ <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1849	1955	
==>head1 METHODS ON C<$POE::Kernel>

=head2 C<post(POE::Session $session, Str $event, *@args)>

Calls C<$sessi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6301	6428	
==>is;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_node);
{ my \$info = \$PIL::PIL <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4307	4409	
==>q 'int') if int($x) == $x;
    return ($cls eq 'num');
}

sub p6_undef {undef}
sub p6_bool {$_[0]?1:und <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14550	14638	
==>rse(conc(Ra0,Rb0),conc(Rb1,Ra1)) :- re_reverse(Ra0,Ra1), re_reverse(Rb0,Rb1), !.
%# XXX - <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6542	6640	
==>"p6_new($cls,$name,...):\n$@\n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Cla <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4566	4705	
==>"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4566	4705	
==>"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10252	10358	
==>()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10252	10358	
==>()`

Returns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spa <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21257	21363	
==>le);
  }
  my sub find() {
    my $file = join(%?CONFIG<file_sep>,split("::",$module)) ~ ".pm";
    for @*I <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	1056	1256	
==>k (
            "$x",
            "is $x",
            "$x, period",
            "$x, as well",
            "$x, besides",
            "$x, too",
            "$x, to boot"
            ); 
    }elsif $p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	12	112	
==>:Dependency;

use strict;
use warnings;

use Params::Check   qw[check];

use JIB::Constants;
use JIB: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1678	1773	
==>Token("term:<[", "term:", "nows", &parse_enumclass);
    $optable->addToken("term:<-[", "term:", <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13453	13552	
==>t2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13453	13552	
==>t2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - backslash) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6325	6454	
==>essary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6325	6454	
==>essary if $! is respecced to ENV scope.
    my $message_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3507	3614	
==>pm

lib/Pugs/Compiler.pm



### how about lib/Pugs-fglock/Compiler.pm

###   just like use Pugs-fglock above <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3383	3486	
==>pm
lib/Pugs/Compiler.pm

### how about lib/Pugs-fglock/Compiler.pm
###   just like use Pugs-fglock above <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24643	24739	
==>ee->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->stringify <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25615	25711	
==>ee->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->stringify <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20101	20200	
==>_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20101	20200	
==>_autopingE<gt>()>

These are readonly accessors. C<last_traffic> is the timestamp of when the last
t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36220	36310	
==>']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36220	36310	
==>']
and Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','M <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4636	4772	
==>ac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(33 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4636	4772	
==>ac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "divide"   => '÷',
    "OElig"    => chr(33 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16380	16482	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16380	16482	
==>ument can be a Span object, a Recurrence object, or a scalar value.

- `complement()`

Returns a list o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4010	4148	
==>ethod elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    } <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4010	4148	
==>ethod elems () {
    [+] &*map({
        $_.isa( 'Perl6::Value::List' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3998	4097	
==>',
  'posEndColumn'   ,'Int';
}

package PIL::PIL1CPerl5::NodesInfo::Object;
sub new {
    my($cls,$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5114	5228	
==>atabase and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5114	5228	
==>atabase and where it is.
    my %DB_CONFIG = (
        'engine_name' => 'Rosetta::Engine::Example',
        'depot_ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2414	2516	
==>2, without which
#  this grammar would likely not have been written. - Mitchell N Charity
#


grammar J <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12727	12824	
==>et2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12727	12824	
==>et2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 E<gt> $set2)>

Returns <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1523	1696	
==>lback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1490	1663	
==>lback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8242	8352	
==>turn $alt;

}



sub ruleop::greedy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7958	8063	
==>turn $alt;
}

sub ruleop::greedy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10522	10635	
==>rrent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10522	10635	
==>rrent( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method iterator ($self: ) returns Span::Iterator {
    i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4293	4438	
==>$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4281	4426	
==>$pos = \$pos1;\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] ) <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1077	1205	
==>as $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1077	1205	
==>as $.to;
    
    has $.capture_num;
    has $.capture_name;

    has $.multidex;

    submethod BUILD () {
        $.capture_num <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6375	6474	
==>f the rule, which unsets the flag before returning.

- this can also be used to do fail() and assert <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6169	6267	
==>f the rule, which unsets the flag before returning.
- this can also be used to do fail() and assert <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8032	8120	
==>---------------------------------------------------------------------------
## utility me <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8032	8120	
==>---------------------------------------------------------------------------
## utility me <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2191	2332	
==>tr $target, $from, 1) =~ /[:print:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub graph {
  my ( $mat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1825	1928	
==>st := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlik <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1883	1986	
==>st := $got ~~ $expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlik <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	303	411	
==>ter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef }
method se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	303	411	
==>ter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = undef }
method se <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14640	14745	
==>uture features planned for this module.

- better error handling for cmp_ok

The error handling capabiliti <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14698	14803	
==>uture features planned for this module.

- better error handling for cmp_ok

The error handling capabiliti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14076	14186	
==>ou need to test does not fit into one of the standard
testing functions. In that case, you can use the rather b <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14134	14244	
==>ou need to test does not fit into one of the standard
testing functions. In that case, you can use the rather b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2566	2701	
==>IL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.p <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2566	2701	
==>IL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($tree is topic)
                my $pad = $tree.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3214	3321	
==>'\E');
  });

  $self->add_handler('\f' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_ch <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3653	3752	
==>'.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $sourc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3870	3969	
==>'.';
use interface;
require 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $sourc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14114	14252	
==>cale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($fi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14114	14252	
==>cale::KeyedText::Message.new(
                msg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	300	415	
==>owser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	300	415	
==>owser sent a request which this web server could not
      grok.</p>
  </body>
</html>';
    my $length = $doc.chars <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10876	11010	
==>//= "r";

        # XXX failures
        my $fh = Pugs::Internals::openFile($filename, $mode);

        # XXX layers :)
        Pugs::I <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10979	11093	
==>trd",
    help   => "Note: You might want to strip pugs and parrot to save space.",
    ensure => sub {
      for(@ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1567	1668	
==>piler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    h <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1567	1668	
==>piler::PIL::PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    h <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	238	341	
==>ist is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	238	341	
==>ist is done in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40019	40151	
==>uld have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Fr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40019	40151	
==>uld have received a copy of the LGPL as part of the Locale::KeyedText
distribution, in the file named "LGPL"; if not, write to the Fr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10856	10953	
==>desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10914	11011	
==>desc?, Bool :$todo, Str :$depends) returns Bool`

- `is (Str $got, Str $expected, Str $desc?, Bool <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6102	6234	
==>atch, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6102	6234	
==>atch, &continue) }));
        });
    }
    else {
        $.Parser.new(parse => sub ($match, &continue) {
            $p.parse()($ma <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6800	6953	
==>@phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6857	7010	
==>@phrases      = (
            'under the same (?:terms|license) as perl itself' => 'perl',
            'GNU public license'                              = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1168	1277	
==>ool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
met <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1168	1277	
==>ool {
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_closed;
}
met <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1878	2000	
==>l' :
      &Rf & $S->FLAG_s ? 'sbol' :
      'bol';
    return $S->object(bol => $type, '^');
  });

  # sbol (beginning of <==
2	/Users/nnunley/pugs/util/package-osx.pl	9010	9107	
==>st, %symlinks) = @_;
    make_dir("${dest}/usr/bin") unless (-d "${dest}/usr/bin");
    chdir("${d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6534	6655	
==>lit_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6534	6655	
==>lit_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v[0];
    
    my ($bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	572	689	
==>>{perl5}, "\n";
    exit;
}

warn "no code";
__END__

#use Test::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2048	2166	
==>$_[0];
    my $id = rand()."";
    my $mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24243	24341	
==>:Example are of the same
degree, and the attribute names of each tuple are all the same as those of <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6927	7039	
==>d ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6985	7097	
==>d ?? " # $context" !! "";

    print "not " unless $cond;
    say "ok ", $Test::num_of_tests_run, $out, $context_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1865	1963	
==>stant RPe_FRANGE => --$ENUM, 'False [] range "%s-%s"';
use constant RPe_IRANGE => --$ENUM, 'Invalid <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6880	6976	
==>- optimization - return the internal list object, if there is one
    return Perl6::Value::List.n <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6880	6976	
==>- optimization - return the internal list object, if there is one
    return Perl6::Value::List.n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12658	12754	
==>lso used when the objects represent "chunks" of data, such as date objects without the time part. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12658	12754	
==>lso used when the objects represent "chunks" of data, such as date objects without the time part. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1048	1145	
==>into the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1048	1145	
==>into the package
	$self->_pkg_meta->add_method($rule_name, sub { $compiled_rule });
}

1;

__END__ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7513	7611	
==>- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list co <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7513	7611	
==>- `shift`

- `reverse`

- `to_list`

Implements the "splat" operation (*@x).
Returns a lazy list co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2876	3012	
==>ute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WH <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2876	3012	
==>ute our nick.
    ./add_handler("433", -> $event {
      if $!in_login_phase {
        ./nick($!nickgen.next);
      }
    });

    # /WH <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3149	3266	
==>1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Tes <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3149	3266	
==>1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Tes <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	143	258	
==>rent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	143	258	
==>rent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.template, $.counter = [0], $.parent?, $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2805	2918	
==>rm = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2793	2906	
==>rm = $_[0]->{'term'};
    my $quantifier = $_[0]->{quant};
    #print "QUANT: ",Dumper($_[0]);
    $quantifier = ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9723	9840	
==>AIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9723	9840	
==>AIL_GET_TMPL_TEXT',
            { 'METH' => 'get_template_text_from_loaded_module',
            'TMPL_MOD_NAME' => $mo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6160	6294	
==>o post-process the match:

  try(

    xx(xx(xx(

      abort(

        capture_closure(..)

      )

    )))

  )

abort() sets a 'rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5963	6089	
==>o post-process the match:
  try(
    xx(xx(xx(
      abort(
        capture_closure(..)
      )
    )))
  )
abort() sets a 'rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6812	6933	
==>e = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6812	6933	
==>e = shift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3113	3220	
==>his is here just because of an icky pugsbug.
    #my %idx = <package file line subname subtype params> Y 0 . <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1888	2019	
==>() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1888	2019	
==>() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'dim'
# TODO - sync with Perl5 version of Array

# TODO - e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12165	12259	
==>de_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12165	12259	
==>de_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papier <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5823	5916	
==>claim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5881	5974	
==>claim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends?, $negate?) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1879	1992	
==>rse = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1879	1992	
==>rse = $self --> $self doesn't exist yet
        $.complement_next =     sub { +Inf } unless defined $.complement_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4123	4306	
==>his Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4123	4306	
==>his Node's child Nodes, if there are any.

###########################################################################

submethod BUILD (
            Rosetta::Model::Document :$documen <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	103	206	
==>ue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	103	206	
==>ue;
has Array $.results;
has Code  $.wanted_dir;
has Code  $.wanted_file;

submethod BUILD { $.debug = 0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3680	3845	
==>e to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relation::Example is mutable or not;
        # depending on the implement <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17563	17678	
==>1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17747	17862	
==>1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star(Re),Fx,F1,Bx,B1,Ex,E <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7044	7162	
==>rime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "fras <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7044	7162	
==>rime"    => chr(8243),
    "lsaquo"   => chr(8249),
    "rsaquo"   => chr(8250),
    "oline"    => chr(8254),
    "fras <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	26468	26582	
==>see 15.10.1
      <ClassAtom>
    | <ClassAtom> <NonemptyClassRangesNoDash>
    | <ClassAtom> <'-'> <ClassAtom> <Cl <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8825	8959	
==>ERL}           if defined $ENV{HARNESS_PERL};
    return "MCR $^X"                    if $self->{_is_vms};
    return Win32::GetShortPa <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4487	4602	
==><SourceCharacter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <Numeri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17087	17224	
==>= shift;
    [ close => $self->nparen ];
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '= <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18825	18925	
==>ion version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I<This documentation is pending.>

=head1 DES <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5262	5378	
==>ML' );



* use the compiler



  my $data = compile::eval( $source, lang => 'YAML' );



* Files



  /lib/Pugs/Comp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5081	5189	
==>ML' );

* use the compiler

  my $data = compile::eval( $source, lang => 'YAML' );

* Files

  /lib/Pugs/Comp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3667	3914	
==>lass Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3667	3914	
==>lass Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText::Translator {

    # External packages <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37836	37934	
==>ming that a Perl module by the given module name
is already loaded, it tries to invoke $module_name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37836	37934	
==>ming that a Perl module by the given module name
is already loaded, it tries to invoke $module_name <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6387	6499	
==>|| $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6387	6499	
==>|| $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2326	2453	
==>$pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2326	2453	
==>$pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5546	5691	
==>RHS"> );
        $ret = emit_Bind( $to, $from );
    }
    elsif $tree[0] eq '"PPad"' {
        my %pad = $tree[1];  # keys: "pScope", "pSyms", "p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14035	14143	
==>etimes wrong $^X.
my $Perl;
sub which_perl {
    unless (defined $Perl) {
	$Perl = $^X;

	# VMS should have ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22001	22209	
==>onstant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22280	22488	
==>onstant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	153	263	
==>igger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi met <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	153	263	
==>igger} = $node;
  $node;
}

multi method next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi met <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1114	1229	
==>self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2005	2119	
==>self = shift;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33609	33702	
==>ion>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38159	38252	
==>ion>

This multi-method is the N-ary version of the aforementioned.

=item C<difference (Relat <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34431	34524	
==><not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a gener <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38981	39074	
==><not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method is a gener <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5291	5389	
==>onfiguration data

=item write

The C<write> method the file for the properties, and writes it
to d <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5291	5389	
==>onfiguration data

=item write

The C<write> method the file for the properties, and writes it
to d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3348	3457	
==>thod contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3348	3457	
==>thod contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    my $span0 = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28772	28879	
==>MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28772	28879	
==>MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10844	11014	
==>rt;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    retu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10844	11014	
==>rt;
            }
        }
        else {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    retu <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	7542	7678	
==>phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	7599	7735	
==>phrases, 0, 2 ) ) {
            $pattern =~ s{\s+}{\\s+}g;
            if ( $license_text =~ /\b$pattern\b/i ) {
                $self->l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	41	139	
==>ct;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	40	134	
==>ct;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use Pugs: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1390	1525	
==>@ and error( "Could not load files list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = grep { $_->package <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3145	3250	
==>Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3145	3250	
==>Span::Int;

  $span = Span::Int.new( start => $start, end => $end );

= DESCRIPTION

This class represents <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	517	621	
==>e - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# mu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	517	621	
==>e - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference($two);
}

# mu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1691	1814	
==>CKAGE__->add_rule(
        name => '*',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	978	1101	
==>CKAGE__->add_rule(
        name => '-',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18982	19078	
==>object type (I<prop>, I<alnum>, etc.).  If the element is a POSIX class,
the C<data> field is the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11178	11283	
==>ining multiple
values in this way will not change the semantic of a header field, but
in practice there ar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11178	11283	
==>ining multiple
values in this way will not change the semantic of a header field, but
in practice there ar <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	90	195	
==>gs, ordered hashes and so on.

role Map--Perl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no in <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14333	14449	
==>tier
        $sobj->look_down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "styles <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	472	575	
==>alue ] pair
### the default_value is the value of initalization, the return value is
### a subroutine th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13128	13245	
==>gth $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6603	6720	
==>gth $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->for <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18921	19091	
==>= '%';
            }
            default {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $str;
}

multi shift (@arr <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4374	4501	
==>he first one. \n";
        }
        elsif (@candidates == 0) {
            die "*** Wasn't able to find '$basename', aborting.. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5964	6108	
==>an;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5964	6108	
==>an;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify this
        my @spa <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8116	8232	
==>thod contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8116	8232	
==>thod contains ($self: $span is copy) returns bool {
    return Bool::False if $.span.is_empty;
    
    my ($span0, $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	1262	1385	
==>CKAGE__->add_rule(
        name => '~',
        assoc => 'left',
        precedence => 'equal',
        other => 'prefix:<+> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25213	25304	
==>her free software
components, as defined by the Free Software Foundation at
L<http://www.gnu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25213	25304	
==>her free software
components, as defined by the Free Software Foundation at
L<http://www.gnu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2516	2633	
==>y_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2516	2633	
==>y_of_year();

    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1622	1743	
==>slash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, di <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1622	1743	
==>slash"   => 'Ø',  # capital O, slash
    "Otilde"   => 'Õ',  # capital O, tilde
    "Ouml"     => 'Ö',  # capital O, di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19090	19194	
==>ons can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any othe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19090	19194	
==>ons can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation layers for any othe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11623	11726	
==>ompare_func`. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_o <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11681	11784	
==>ompare_func`. This will
eventually allow Test::More-style cmp_ok() though the following syntax:

  cmp_o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3591	3711	
==>l u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3591	3711	
==>l u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresi <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7388	7505	
==>defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7388	7505	
==>defined || $traversal_order.lc() eq 'pre_order' {
        $self.pre_order_traverse($func)
    }
    else {
        $se <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1280	1386	
==>nt multi Num::round_random (Num $x) {
	my @l = (
		{ $^a.round_half_up: symmetrical => $^b },
		{ $^a.round <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7708	7853	
==>= $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get he <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7708	7853	
==>= $blocks[0][TEXT];
            $content .= "\n" unless $content =~ /\n\z/;
            return $content;
        }
    }
    die "How did I get he <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9025	9113	
==>ub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2850	2938	
==>ub { Grammar::Perl6->_open(@_) };
push @statements, sub { Grammar::Perl6->_print_with_fh( <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Util.pm	130	274	
==>s -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$ke <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Util.pm	130	274	
==>s -> $key {
        my $copy = lc $key;
        
        $copy ~~ s:P5:g/_/-/;
        
        my $value = ($escape) ?? simple_escape(%attrs{$ke <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1419	1529	
==>t($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1419	1529	
==>t($two);
#}
#multi sub *infix:«<=» (Set $one, Set $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3978	4096	
==>' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3978	4096	
==>' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.st <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2828	2953	
==>nd maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2886	3011	
==>nd maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	70	206	
==>::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.met <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	70	206	
==>::URI_CLASS = URI] {
    is HTTP::Message;
    
    has $.method    is rw;
    has $!uri       is rw;
    
    submethod BUILD (Str $.met <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3844	3942	
==>a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3844	3942	
==>a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).intersection( <==
2	/Users/nnunley/pugs/util/build_pugs.pl	371	475	
==>assify_options(@ARGV));
exit 0;

sub help {
    print <<".";
$0 - build a pugs executable

This script ca <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9778	9917	
==>}||0 == 0;
          } else { 
              # skipped tests do not carry the a line number, so leave them out for now
          if($test->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10027	10149	
==>ties_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10027	10149	
==>ties_numeric (Str $string) returns Str is export
{
    # XXX temp does not yet appear to be working
    #temp %char_to_enti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9337	9460	
==>rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9530	9653	
==>rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         rul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26374	26469	
==>put and output, any
variable values which are references will be passed by reference, so you
may <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26374	26469	
==>put and output, any
variable values which are references will be passed by reference, so you
may <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2978	3105	
==>@index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move th <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3442	3569	
==>@index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6406	6522	
==>r class") if @hex > 1;
        return $S->force_object(anyof_char => chr(hex $h), "\\x[$h]");
      }

      return $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10151	10248	
==>ssionLiteral {  # see 7.8.5
      <'/'> <RegularExpressionBody> <'/'> <RegularExpressionFlags>
}
r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	519	640	
==>ule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	519	640	
==>ule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab     $subrule( \$s, { p => \$pos, args => {" . join(", " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17700	17834	
==>se Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17700	17834	
==>se Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	297	425	
==>e};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { subs <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	198	326	
==>e};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { subs <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2392	2506	
==>mments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2392	2506	
==>mments appear to be poisonous - 2005 Jul 31
rule paramlet {
        [ <type> <zone>? <varlet>? <trait>*
        | < <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1022	1129	
==>sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1022	1129	
==>sub catpath (Str $volume, Str $directory, Str $file) returns Str is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9357	9454	
==>to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is ex <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9357	9454	
==>to_entity{~chr($ascii_val)} //= "&#$ascii_val;";
}

multi sub decode_entities($string is rw) is ex <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	33	139	
==>0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callbac <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	33	139	
==>0.0;

use v6;
use File::Spec;
use File::Find;

has Array $.search;
has Int   $.require;
has Code  $.callbac <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3813	3948	
==>ig{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if ( <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3813	3948	
==>ig{path_sep}/, $ENV{PATH}), '.') {
        next unless $dir;
        my $abs = File::Spec->catfile($dir, $cmd);
        return $abs if ( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27929	28023	
==>(t($map), "∀α. ∀β. (α → β) → list α → list β", ":t map");
is(t($list_plus_ten), <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25778	25859	
==>x,_,_,_,_,_,_))).

%-------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1357	1487	
==>th 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1357	1487	
==>th 'is copy' parameter
    # trait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @pa <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2390	2498	
==>\d+//g;
    $config->{$name} = $path;
}

sub write_config_module {
    my $config = get_config();
    my $tem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5498	5676	
==>(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handled by the lexer
        #q(<) => Pugs::Compiler::Regex->compil <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6744	6840	
==>s);
    }
    if($cls =~ /\A(?:List|Lazy|Eager)\z/) {
	return get_meta($cls)->new_from_single(@_) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8554	8664	
==>esenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8554	8664	
==>esenting an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all integer numbers
    $universe = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	295	409	
==>ule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rul <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1447	1542	
==>g the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is g <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1447	1542	
==>g the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is g <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8519	8641	
==>CII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8519	8641	
==>CII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the set" if $set.i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22361	22458	
==>earch
directories in your path that packages could be installed in.

Generally, when a program pac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22361	22458	
==>earch
directories in your path that packages could be installed in.

Generally, when a program pac <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5105	5249	
==>n having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it lo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5569	5713	
==>n having
                    ### _parse_depends see if there's a suitable candidate
                    ### in the whole index, we only let it lo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1534	1704	
==>ned( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %para <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1534	1704	
==>ned( %param<object> ) 
    {
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %para <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2194	2301	
==>perl6 Design POD 
my @t_dirs;      # Test root directories (if used)
my $output_dir;  # The root directory o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1072	1178	
==>e syntax 
# with Attribute Grammers (stolen from Haskell (I think))

class SExpParser     
    def parse (s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1954	2046	
==>C4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1954	2046	
==>C4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources written in the <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8827	8929	
==>m);
    DOWN($tpParam);
}

NODE TCxtVoid () { "should not appear" }
NODE TCxtLValue ($type) { "should n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19771	19874	
==>),
    );
}

my method _inner_join (Relation::Example $other!) returns Relation::Example {
    # This fo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	264	360	
==>:Repository->new(...);

Required arguments:

=over 4

=item root

The root directory of the repos <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	527	641	
==>=> 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	527	641	
==>=> 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acute accent
    "Acirc"    => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1199	1311	
==>= .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mes <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1199	1311	
==>= .code // "000";
        my $mess = ./message // HTTP::Status::status_message($code) // "?";
        "$code $mes <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4425	4529	
==>ile) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4425	4529	
==>ile) returns Bool is export {
    ?($file ~~ rx:perl5{^/})  # needs to work in the multi-line string
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13618	13726	
==>tree->[-1]->family eq "flags";

    # quantifiers must NOT follow quantifiers
    $rx->error($rx->RPe_NESTED) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14963	15078	
==>eates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same a <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14963	15078	
==>eates a span with "day" semantics.

- `new( object => 1 )`

Creates a span with a single element. This is the same a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13733	13893	
==>vent) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13733	13893	
==>vent) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24841	24959	
==>rtant attributes:

  # access to the regex
    # reference to the regex string
    sub Rx :lvalue          { $_[0]{rege <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	457	572	
==>b clear returns Void is export{
    system(($?OS eq any <MSWin32 mingw>) ?? 'cls' !! 'clear');
}

sub max (Array @x) <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2295	2400	
==>rd Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2295	2400	
==>rd Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3619	3734	
==>version of File::Spec, although this version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <steva <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3619	3734	
==>version of File::Spec, although this version is more akin 
to File::Spec::Functions.

= AUTHOR

Stevan Little <steva <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	182	278	
==>operator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	182	278	
==>operator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *infix:<`grep`> (Code &f, *@y) <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15398	15584	
==>$r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18875	19061	
==>$r1.join( $r2 );
    }

    return $r1;
}

&natural_join ::= &join;

###########################################################################

my method _union (Relation $other!) retur <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3113	3226	
==>pe { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# Th <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3113	3226	
==>pe { yada type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# Th <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11239	11348	
==>ncode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=? <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11239	11348	
==>ncode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=? <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11521	11637	
==>></tr>
        <tmpl_loop name=smokes>
          <tr>
            <td class="indent2">Pugs&nbsp;<tmpl_var name=pugs_v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1750	1934	
==>rs},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_nam <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1750	1934	
==>rs},
    };
}

###########################################################################

method get_msg_key () returns Str {
    return $!msg_key;
}

method get_msg_var (Str $var_nam <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	741	835	
==>$name = MM->guess_name or die <<"END";
Can't determine a NAME for this distribution.
Please use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9499	9616	
==>\%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$fro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9487	9604	
==>\%named;
$_[1]       my \$capture;
$_[1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$fro <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12977	13162	
==>n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12971	13156	
==>n" . 
                "$_[1]           push \@match,\n" . 
                "$_[1]             \$r->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9069	9164	
==>ther above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9069	9164	
==>ther above-named packages in this file.>

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5760	5912	
==>lsif ($range < 0) {
        # This is also a fail
        unshift @mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27721	27810	
==>th_and_first");
is(t($length_and_first_p), "(int × int)", ":t length_and_first [1]");
is( <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1048	1161	
==>TS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, % <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1048	1161	
==>TS{$name} = &sub;
}

new_widget 'text', sub (%p, %v) {
    return %v{%p{'id'}};
};

new_widget 'input', sub (%p, % <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10778	10881	
==>=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The following informati <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10778	10881	
==>=item B<content_type returns Str>

=item B<content_length returns Str>

=back

B<The following informati <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2229	2372	
==>onfig->repo_index_file)
        ));
        $obj->pool_rel((defined $pool_rel
                    ? dir($pool_rel)
                    : $config <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7706	7801	
==>h = *node::variable;
sub node::empty_list {
    return "()";
}
sub node::immediate_statement_exe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1259	1370	
==>hing there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it d <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1259	1370	
==>hing there if it didn't match.

C<optional> also takes a C<:minimal> argument, which does the same thing
as it d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4605	4762	
==>xpires.defined) {
            # Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4605	4762	
==>xpires.defined) {
            # Must apply heuristic expiration
            my $last_modified = ./last_modified;
            
            if ($last_modified.d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1319	1443	
==>type";
    (blessed($value) && $value->isa('type'))
        || confess "Index must be a native type";            
    $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1430	1540	
==>kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRI <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1430	1540	
==>kwid

= NAME

Date::Span - An object representing a date span

= SYNOPSIS

  use Date::Span;

  # XXX

= DESCRI <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9377	9524	
==>atives
        last LINKING unless $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### have a situation w <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4687	4784	
==>t_equal_to($right->length) == bit->new(1);
    foreach my $i (map { num->new($_)  } 0 .. $left->el <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7186	7291	
==>ry to fetch template text for the given message key from the
        # successfully loaded template module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7186	7291	
==>ry to fetch template text for the given message key from the
        # successfully loaded template module <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17735	17844	
==>alANDExpression :words {  # see 11.11
      <BitwiseORExpression>
    | <LogicalANDExpression> <'&&'> <Bitwise <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6414	6519	
==>ent Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method ad <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6414	6519	
==>ent Arguments : cannot add a sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method ad <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2716	2847	
==>d to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2716	2847	
==>d to_list       ( $self: ) { $self }

    # method is_lazy       ( $self: ) { ... }  --- auto generated
    method flatten       ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9808	9920	
==>one if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9808	9920	
==>one if $self.is_empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7033	7160	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::gree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7226	7353	
==>apture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::gree <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8542	8691	
==>S]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8542	8691	
==>S]})
        ) {
            my $prev_len = $prev ? @{$prev->[CLASSES]} : 0;
            my $next_len = $next ? @{$next->[CLASSES]} : 0;
            m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13676	13781	
==>est matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($strin <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13676	13781	
==>est matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17562	17675	
==>>visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13983	14096	
==>>visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
            $S->warn(RPe_FRANGE, $lhs->visual, "");
            $ret = $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16183	16281	
==>hem, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declar <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16183	16281	
==>hem, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You can declar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3815	3916	
==>ed Perl 6 files.

If you see the error below, it may happen that your perl was compiled without PMC su <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4485	4620	
==>(@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4485	4620	
==>(@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4500	4628	
==>ath_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4500	4628	
==>ath_dirs);
    my $use_base_dirs = 1;
    for (@dirs) -> $dir {
        $use_base_dirs = 0 if $dir eq updir();
        if ($use_b <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1012	1104	
==>PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1012	1104	
==>PILExp :: LValue -> Expression
class Perl::Compiler::PIL::PILExp
    does Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5524	5693	
==>sub build_exe {
    my $version     = shift;
    my $ghc         = shift;
    my $ghc_version = shift;
    #my @o = qw( src/pcre/pcre.o src/syck/bytecode.o src/syck/emitt <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3869	4001	
==>rn anything\n"); exit(0);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	28	151	
==>6;
$Pugs::Compiler::Perl6::VERSION = '0.05';

# Documentation in the __END__
use 5.006;
use strict;
use warnings;

u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2702	2811	
==>rs

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2702	2811	
==>rs

regex placeholder { <sigil> \^ <identZZ> }

# Formal parameter syntax

#rule parameter {
#        [ <type> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6432	6533	
==>ent::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $bu <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6432	6533	
==>ent::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<pod2html (Str $bu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	484	585	
==>echecking.pdf

# please note that this is nothingmuch's first article that he read from cover
# to cov <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20744	20925	
==>ule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21023	21204	
==>ule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	878	1008	
==>{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	878	1008	
==>{is_rw},
               is_slurpy => $param->{is_slurpy},
	       p5type => substr($param->{var}, 0, 1),
	       name => substr($pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1681	1790	
==>= $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1681	1790	
==>= $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FETCH => { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3327	3448	
==>> $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3544	3665	
==>> $interface::print_program,
		print_match => $interface::print_match
	}); 
    }

    exit;

}

# ------ emitter

my $nam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6989	7116	
==>ED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

=pod
    
    my @list        = Loa <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19690	19793	
==>ist Context"?
}


 multi Conversions::Item::item ($item --> Item )
{
    $item; #XXX - sufficient to "Fo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2201	2328	
==>class Test::Builder::TestPlan-0.2.1
  {
      has Int $:expect;
  
      submethod BUILD ( $:expect = 0 )
      {
          fail <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4325	4463	
==>";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4325	4463	
==>";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $fil <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	5789	5957	
==>top {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $of <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	4289	4457	
==>top {
            push(@result,@array[$i]);
            $i++;
        }
    }

    if $size_change > 0 {
        my $i = $size + $size_change -1;
        my $final = $of <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33031	33138	
==>f Str - This stores an ordered list of one or more elements where
each element is a Template module Set Name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33031	33138	
==>f Str - This stores an ordered list of one or more elements where
each element is a Template module Set Name <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1837	1946	
==>nd_params {
    my ($self, $args) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "Args mu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11300	11453	
==>o);
        TAILCALL(&$c0,$c);
      };
      return LET($X::cap){
        $X::cap = [@$X::cap];
        $X::cap->[$idx] = $m;
        my $v = $f->($close <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26728	26824	
==>H_UTF8		0x10000000 /* subbeg is utf-8 */

 #define RE_USE_INTUIT_NOML	0x0100000 /* Best to intuit <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17905	18001	
==>e 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can ide <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17905	18001	
==>e 'ORA-03542'.  These codes
are "machine readable"; any application receiving such a code can ide <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3105	3205	
==>on`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' f <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3105	3205	
==>on`;
    ($ghcver =~ /Glasgow.*\bversion\s*(\S+)/s) or die << '.';
*** Cannot find a runnable 'ghc' f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11622	11834	
==>s',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11622	11834	
==>s',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'query_clause', { 'type' = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9058	9174	
==>ramContext'}) =~ /Slurpy/ #XXX
	    || $op{'slurpy'};

	my $pname = $op{'paramName'};
	push(@names6,$pname);
	if($hyb <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6585	6696	
==>racter in the Unicode categories "Non-spacing mark (Mn)"
      # or "Combining spacing mark (Mc)"
      <Mn> | < <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17902	17999	
==>originating server program handling the request.

=item $h.from

This header should contain an Int <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17902	17999	
==>originating server program handling the request.

=item $h.from

This header should contain an Int <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3227	3323	
==>ssor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
us <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3227	3323	
==>ssor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
us <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	611	869	
==>ges.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	611	869	
==>ges.
} # package Locale::KeyedText

###########################################################################
###########################################################################

class Locale::KeyedText::Message {

    # External packages used by th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	829	929	
==>:Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	829	929	
==>:Compiler::PIL::PIL {
    method vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25852	25949	
==>g_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names and v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25852	25949	
==>g_vars> - B<Message Variables>

Hash(Str) of Any - This contains zero or more variable names and v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18228	18356	
==>= 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $name );
}

sub isa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3276	3403	
==>( $self->can('file') ) {
            error("No file associated with this object -- " .
                  "can not extract meta o <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	572	689	
==>pans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1 <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	572	689	
==>pans[0];
    return $head.start;
}
method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5987	6141	
==>constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5987	6141	
==>constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8343	8454	
==>ess \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8331	8442	
==>ess \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4462	4617	
==>netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            nex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4462	4617	
==>netscape_only) {
                            #LWP::Debug::debug("   domain $domain applies to Netscape-style cookies only");
                            nex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11285	11435	
==>de\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] } }\n"
        un <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	404	529	
==>n);
        ($str,$pos,$cap)=($X::str,$X::pos,$X::cap) if defined $v;
      }
      if(defined $v) {
        ($X::str,$X::pos, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	1001	1124	
==>sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};
    my $merged = 0;
    return if $self->omit;
    push @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38054	38150	
==>zes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38054	38150	
==>zes $msg_key, and the undefined value if not.

=item C<interpolate_vars_into_template_text( $text <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4856	4983	
==>_set  { (\+|-)? \[ [ <-[\\\]]> | \\ . ]* \] | (\+|-) <subrule> }

rule escape_sequence { <simple_escape_sequence> | <octal_escap <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10828	10946	
==>r->new( $a, $b ),
			),
		);
	},
	# (a x b) -> a
	fst => do {
		my $a = type::variable::free->new;
		my $b = type::vari <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18921	19015	
==>> <AssignmentOperator> <AssignmentExpressionNoIn>
}
rule AssignmentOperator :words {  # see 11. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1429	1520	
==>ayout($$) = { $.instance }
type::operator::nullary: layout($$) = { $.name }

type::operator: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4535	4661	
==>ler = Pugs::Compiler->new( 

      lang => 'Perl6' );



my $new_parser_p5 = $compiler->( $new_parser );

  

  # build a new c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4380	4501	
==>ler = Pugs::Compiler->new( 
      lang => 'Perl6' );

my $new_parser_p5 = $compiler->( $new_parser );
  
  # build a new c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1815	1918	
==>>code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3191	3294	
==>>code();

    $<name>:=(<ident>)<?p6ws>?\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { ret <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12456	12568	
==>Bit :$shortest --> Lazy ) {
   gather {
     while $shortest ?? all(@lists) !! any(@lists) {
       for @lists -> <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3006	3113	
==>Bit :$shortest --> Lazy ) {
    gather {
	while $shortest ?? all(@lists) !! any(@lists) {
	    for @lists -> <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	950	1073	
==>e lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which si <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	950	1073	
==>e lib;
  import('lib': @paths);
  
  # no load your other modules ...

= DESCRIPTION

This is a small simple module which si <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1915	2010	
==>print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n" if ${$match}->{tail};
__END__

use <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	131	250	
==>char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub u <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	131	250	
==>char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- must check that $0 is being set
    #multi sub u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	566	675	
==>($noplan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing failure di <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22302	22408	
==>ame method names as you or each other, or having multiple search
directories in your path that packages cou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22302	22408	
==>ame method names as you or each other, or having multiple search
directories in your path that packages cou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14878	14973	
==>method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method op <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14878	14973	
==>method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $channel") },
  method op <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2288	2391	
==>pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Re <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2288	2391	
==>pugs gets support for virtual classes.

=cut

has $.Parser;
has $.Result;

submethod BUILD () {
    $.Re <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12885	12984	
==>ssages in programs by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12885	12984	
==>ssages in programs by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4006	4192	
==>ath ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4006	4192	
==>ath ~~ rx:perl5{\.\.};                                    # too few .'s to cleanup
    return $path if $path ~~ rx:perl5{\.\.\.\.};                                    # too many .'s to cl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3382	3474	
==>e "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$su <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3382	3474	
==>e "Cannot open \$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$su <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6007	6129	
==>eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6007	6129	
==>eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+infix' 
    );
    #print postfix( <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10652	10747	
==>urns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10652	10747	
==>urns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=item B <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3094	3207	
==>} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3094	3207	
==>} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18737	18838	
==>ct of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and error- <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18737	18838	
==>ct of SQL in its native API (unlike many
other DBMS products) because SQL is more ambiguous and error- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	255	367	
==>('opaque'))
        || confess "C3 only accepts classes";
    bless { class  => $klass } => $class;
}

sub linear <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	836	937	
==>=pod

=head1 NAME

Blondie::Reducer - generic reducing base class for fmapping nodes.

=head1 SYNOPSIS <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2377	2527	
==>ompiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2377	2527	
==>ompiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { nam <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2574	2679	
==>h) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2574	2679	
==>h) = $2 || "/";

  return ($host,$port,$path);
};

sub _trivial_http_get (Str $url) returns Str {
  # TODO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21488	21608	
==>r('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17909	18029	
==>r('(?<=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11232	11333	
==>semantic of a header field, but
in practice there are cases like old-style Netscape cookies (see
L<HTT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11232	11333	
==>semantic of a header field, but
in practice there are cases like old-style Netscape cookies (see
L<HTT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3216	3307	
==>Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Ca <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3216	3307	
==>Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Ca <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6766	6878	
==>n => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6766	6878	
==>n => $result ) );
    }
    $span1 = $span1.span if $span1.isa( 'Span' );
    return $span0, $span1 if $span1.isa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8104	8205	
==>instance}, @_[2, 3]) };

# nullary operators much have the same name (e.g. int == int, str == str, int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1627	1756	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1561	1684	
==>_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17296	17447	
==>le'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17296	17447	
==>le'        => 1,
            'num_min_value'    => 0,
        },
    );

    # Declare an enumerated ('F','M') character value data type.
    my Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	29301	29410	
==>ich is the same as the invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33853	33962	
==>ich is the same as the invocant Relation but that some of its
tuple/Mapping-valued attributes have been split/ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	554	677	
==>ype MatchTest ::= Item | Junction;

package Math::Basic {}

 multi  Num::abs (  Num  $x              --> Num )
 {
     Math: <==
2	/Users/nnunley/pugs/util/combine_tests.pl	454	554	
==>ch
# there are variations among the tests.
# A revision is added to each member of the more_events[]. <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4957	5054	
==>ave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4957	5054	
==>ave Rolsky.  All rights reserved.

This program is free software; you can redistribute it and/or m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/t/grammar.pl	81	204	
==>lan ".@jsfiles."\n";
foreach $jsfile (@jsfiles) {
    print STDERR "# $jsfile\n";
    my $cmd = '../../pugs -I . -e \'use Gr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13538	13665	
==>nts (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        arg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13538	13665	
==>nts (runloop, loggedin)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        arg <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7595	7718	
==>www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7595	7718	
==>www-form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7830	7943	
==>continuation"

  $capture       - capture then entire match. For example:

  

  # returns a Match object that has <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7565	7675	
==>continuation"
  $capture       - capture then entire match. For example:
  
  # returns a Match object that has <==
2	/Users/nnunley/pugs/util/package-osx.pl	5896	5984	
==>al/man/man3/Perl6::Overview::File.3
        /usr/local/man/man3/Perl6::Overview::File.3pm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4630	4751	
==>ent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4630	4751	
==>ent_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.content_type("multipart/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9261	9408	
==>$n;
    }

    if (${&Rx} =~ m{ \G ([a-z]+) }xgc) {
    }

  });

  $self->add_handler('::' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: } <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	12477	12568	
==>perly do (non-leaking) memory management, via reverse
  engineering (almost completely undoc <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	46	145	
==>1 NAME

Method - functions on classes

=head1 SYNOPSIS



=head1 DESCRIPTION

Methods are bindings o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4653	4758	
==>sult{number} > 100000 && $result{number} > $self->{max} ) {
            warn "Enormous test number seen [t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3437	3530	
==>ased upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free softw <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3437	3530	
==>ased upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This library is free softw <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2402	2495	
==>g/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2402	2495	
==>g/>.

The mailing list for Pugs is C<perl6-compiler>. Subscribe by sending mail to
C<E<lt>perl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3362	3467	
==>ey is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3362	3467	
==>ey is an empty string.],

    # This group of strings is specific to Locale::KeyedText itself:

    'LKT_T <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10472	10581	
==>and line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10472	10581	
==>and line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	637	754	
==>ay is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Arra <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	637	754	
==>ay is export {
    return &::($worker_pkg)::splitdir( $dir );
}

sub splitpath (Str $path, Bool $nofile?) returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15770	15867	
==>ication's developer should see more details than joe public would.

Alternately, sometimes a progr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15770	15867	
==>ication's developer should see more details than joe public would.

Alternately, sometimes a progr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5687	5789	
==>Writing for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
clas <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5687	5789	
==>Writing for the API

Although the API seems large, most of it is implemented within the C<Cipher> 
clas <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11053	11158	
==>ource code into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11053	11158	
==>ource code into something else. This is almost
# always overridden in a subclass.
sub pmc_compile {
    my <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1503	1594	
==>orm>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http: <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1503	1594	
==>orm>, C<count>, C<information rate>, C<burst size> terms are
shamelessly borrowed from http: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9090	9187	
==>he same failure object always

then there's absolutely no overhead

I'm not sure about this - fail <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8791	8886	
==>he same failure object always
then there's absolutely no overhead
I'm not sure about this - fail <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	126	225	
==>set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a pat <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	126	225	
==>set_search_path ($self: @path) {
    (@path) || die "Insufficient Arguments : You must specify a pat <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8094	8193	
==>e}, $_[1]{instance}, @_[2, 3]) };

# nullary operators much have the same name (e.g. int == int, str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4052	4142	
==>html?id=20152>

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SE <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	235	364	
==>5/^$iso8601_re$/;

multi sub date( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$minute, Int|Real ?$sec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36868	36993	
==>ndBranch;
  use base 'Regexp::Parser';

  sub init {
    my $self = shift;
    $self->SUPER::init();

    # X&Y = match Y if m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1093	1186	
==>>[0] to enable $interface::format" if $@;

	#export the funtions
	Pugs::Utils::Dump->export_to <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	2078	2173	
==>iately -- other
events may be pending processing, too.

=head2 C<run()>

Enter the main runloop. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16129	16271	
==>rms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16129	16271	
==>rms;

    submethod BUILD(Str $.orig) {
      ./reset;
    }

    method reset() {
      @!perms = (
        "$.orig",
        "{$.orig}_", "{$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7032	7148	
==>' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7032	7148	
==>' );
        return $span0, $span0.new( :density($span0.density) ) if $span1.is_empty;
        # $span is a span, but <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	994	1122	
==>ton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	994	1122	
==>ton)
    
  From "Set.pm" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_superset
    * s <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3229	3346	
==>f $perl_version >= 5.006;
        $values{requires} =
          [ [ perl => $perl_version ], @{ $values{requires} || [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3522	3684	
==>urn;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $1 },

        tail  => $2,

        ( $_[2]-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3384	3537	
==>urn;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $1 },
        tail  => $2,
        ( $_[2]-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	909	1026	
==>nt class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	909	1026	
==>nt class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Document object:
    has <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5113	5338	
==>e = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifi <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5113	5338	
==>e = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal to our token then ...
                        if ($token eq @modifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24749	24877	
==>if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21170	21298	
==>if ${&Rx} !~ m{ \G \| }xgc;
    $S->error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19524	19656	
==>next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15945	16077	
==>next;
      }
      my $bad = substr ${&Rx}, $old;
      $S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    &RxPOS++ if $off =~ s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4094	4180	
==>)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4094	4180	
==>)+&1)*1073741824+(:16($1)+&63)*16777216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4 <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2891	3007	
==>ription (Class::Events::Subscription::Named $subscription) {
            %.subscriptions<$subscrption.name>.remove($s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6406	6540	
==>piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(820 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6406	6540	
==>piv"      => chr(982),
    "ensp"     => chr(8194),
    "emsp"     => chr(8195),
    "thinsp"   => chr(8201),
    "zwnj"     => chr(820 <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	267	408	
==>r::Array' => {
    does => [ 'IArray' ],
    instance => {
        attrs => [ '@:slots' ],
        BUILD => sub {
            my $self = shift <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	103	221	
==>.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.tem <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	103	221	
==>.counter;
    has $.parent;
    has $.parent_ident;
    has %.names;
    has %.state is rw;

    submethod BUILD ($.tem <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5953	6074	
==>e
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5953	6074	
==>e
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	952	1108	
==>return _emit( $ast, '' );
        #"do{\n" .
        #_emit( $ast, '    ' ) . "\n" .
        #"}";
}

sub _emit {
    my $n = $_[0];
    #die "_emit: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13843	13971	
==>$neg, \$how);
  });

  # cntrl POSIX class
  $self->add_handler('POSIX_cntrl' => sub {
    my ($S, $neg, $how) = @_;
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16197	16312	
==>last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16197	16312	
==>last_modified {
    if $last_mod < time - 60*60 {
      ...
    }
  }

=item $h.content_type

The Content-Type heade <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	122	225	
==>N

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	122	225	
==>N

This is the Perl 6 Grammar used to Parse and generate the 
Abstract Syntax Tree (AST) for Rules.

=cu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6766	6864	
==>Events

For each POD element, an event is fired, the first argument to all these events is
the C<$e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6766	6864	
==>Events

For each POD element, an event is fired, the first argument to all these events is
the C<$e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1718	1815	
==>value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1718	1815	
==>value.vtype }
}

# PILStmt :: Expression -> Stmt
class Perl::Compiler::PIL::PILStmt
    does Perl: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1243	1373	
==>tine
    #&$coroutine();
  }
  else
  {
    $self->position(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return $sel <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17118	17215	
==>&'> <EqualityExpressionNoIn>
}
rule BitwiseXORExpression :words {  # see 11.10
      <BitwiseANDEx <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7381	7486	
==>LL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normali <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7381	7486	
==>LL", -> $event {
      my ($killee, $reason) = $event<object rest>;
      if(normalize($killee) eq normali <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3274	3509	
==>batim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3274	3509	
==>batim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($li <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2449	2586	
==>}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n/;
		    print $chr;
		}
		print "} <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4814	4909	
==>ully qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny ob <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4814	4909	
==>ully qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny ob <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15759	15873	
==>lation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19236	19350	
==>lation {
    return Relation.new(
        heading => $!heading,
        body => $!body.symmetric_difference( $other <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4084	4188	
==>p_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Per <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4084	4188	
==>p_proxy = %*ENV<HTTP_PROXY> // %*ENV<http_proxy>;
  if defined $http_proxy {
    if $http_proxy ~~ rx:Per <==
2	/Users/nnunley/pugs/util/func_refact.pl	2365	2501	
==>noring{$cand};
        #print "passed: $cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1279	1374	
==>s) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1279	1374	
==>s) returns Bool {
    ?(%!members.exists(all(@items.map:{ $self._stringify($_) })));
}

method m <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	258	392	
==>$glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	258	392	
==>$glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1355	1455	
==>::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1355	1455	
==>::Compiler::PIL::Util::Type $.type;
}

class Perl::Compiler::PIL::Util::SlurpyContext
    does Perl:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	166	266	
==>lement the "magic hash" dispatcher
# TODO - term:<...>  - yada-yada-yada
# moose=>1
# moose:<elk>
# m <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26199	26298	
==>g always at start. */
 #define ROPT_GPOS_SEEN		0x00080
 #define ROPT_CHECK_ALL		0x00100
 #define ROP <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6997	7094	
==>"Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-Lan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6997	7094	
==>"Content-Encoding") }
method content_language ($self: )          is rw { $self.header("Content-Lan <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3170	3282	
==>end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3170	3282	
==>end of enciphering with zero arguments.

=item C<decipherer>

    $decipher = Some::Cipher.decipherer(:opt1<value <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25932	26055	
==>uleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26211	26334	
==>uleop::capture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::ter <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6524	6744	
==>it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cook <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6524	6744	
==>it is for
                    # Netscape cookie compatibility only:
                    #
                    # a.b.c.net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cook <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	500	603	
==>nify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match faile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	500	603	
==>nify with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match faile <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	336	455	
==>g;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Confi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	237	356	
==>g;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Confi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12286	12422	
==>$self->{min};
  }

  sub max {
    my $self = shift;
    $self->{max};
  }

  sub type {
    my $self = shift;
    my ($min, $max) = ($se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5241	5346	
==>s{$_[1]} ? 1 : 0 };
    $self->add_method('does' => $_does);
};

# our class(Role), which is also the role <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4212	4341	
==>n1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4212	4341	
==>n1 );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}
method complement ($self: ) returns Set::Infinite <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14165	14273	
==>w( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate throu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14165	14273	
==>w( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate throu <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16761	16877	
==>wercase
form, if uppercase.


=item lcfirst

 multi Str::lcfirst    (  Str $string              --> Str )
 multi Str: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12756	12885	
==>";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12756	12885	
==>";
        return $path;
    }
    
    # XXX how should this binding be done?
    #our &!url_path ::= &!uri_path; # for backwards <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	744	849	
==>y . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	744	849	
==>y . "))->code;"
    }
))->code;

*token = Pugs::Compiler::Rule->compile(q(
    <'token'> <ws> <rule_n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19960	20064	
==>rograms, including
the operating system itself, to have the user language data in separate
files (usually <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19960	20064	
==>rograms, including
the operating system itself, to have the user language data in separate
files (usually <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7496	7633	
==>xage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7496	7633	
==>xage?, Bool $discard = Bool::False, *%rest) {
        return $?SELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3695	3814	
==>depth;
    carp "unexpected argument ($_[0]) to iterator" if @_;

    {
      $next = shift @stack;
      $d += $next->( <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1685	1815	
==>h
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we fi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1685	1815	
==>h
        for $current_tree.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7248	7343	
==>self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7248	7343	
==>self.header("Content-Type", $content_type);
    
    $self!set_content("--$boundary$CRLF" ~ @par <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1843	1946	
==>as Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Express <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1843	1946	
==>as Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Express <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1088	1186	
==>led to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1088	1186	
==>led to determine whether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Modul <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21325	21446	
==>rcent = 100*(scalar @{$test->{failed}})/$test->{max};
            print "DIED. ",$txt;
        }
    }

    return { canon <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	963	1061	
==>ew( file => /path/to/jib | meta => META_OBJ );

Returns a JIB::Package::Source on a jib file, and a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1355	1529	
==>able Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Interna <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1355	1529	
==>able Entity',            # WebDAV
        423 => 'Locked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Interna <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1551	1659	
==>nce $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1551	1659	
==>nce $.universe;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_prev <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/pkg.pl	5	113	
==>trict;

### fixes the config for us
BEGIN { require 'conf.pl' }

use JIB::Config;
use JIB::Source;

use Path: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15385	15505	
==>side the function, if it was free it might be unified to a concrete value
	$ret;
}

# in a let block we thread the set of <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3347	3465	
==>bj, $obj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JIB::Config->new

XXX Singleton

=cut

{   my $Obj <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	472	568	
==>ify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	472	568	
==>ify( $code )
* Started syncing with Perl5 version
* Removed class Lazy::Range
* Lowercase methods <==
2	/Users/nnunley/pugs/util/combine_tests.pl	914	1054	
==>test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} }) {
                my $n = $event->{n <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2252	2380	
==>test_files} }) {
        my $fname = $file->{file};
        for my $event (@{ $file->{events} }) {
            my $n = $event->{n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11743	11906	
==>pires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.pu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11743	11906	
==>pires)) if $expires;
                @h.push('discard' => undef) if $discard;
                
                for %rest.keys.sort -> $k {
                    @h.pu <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2428	2529	
==>bj );
  if ( (substr $target, $from, 1) =~ /[:graph:]/ )
  {
    $matchObj->position( $matchObj->from( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	27743	27898	
==>>get('$self:'))->linearize;
            }
        )
    )
);

=pod

method MRO (opaque $self:) returns list {
    unless (@:MRO) {
        @:MRO = $self._me <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16240	16359	
==>n $maxlen + 3 - $maxsuflen;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19902	19998	
==>user name and the password.  In scalar context it will
return I<"uname:password"> as a single str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19902	19998	
==>user name and the password.  In scalar context it will
return I<"uname:password"> as a single str <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14276	14376	
==>ce defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14276	14376	
==>ce defined in the XML DOM spec; it has a type (what the XML
spec calls 'name') and attributes, and is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	820	954	
==>code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object creat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	820	954	
==>code {
    my $c = $_[0]->flat;
    return sub { $c };
}

1;

__END__

=head1 NAME 

Pugs::Runtime::Match::Ratchet - Match object creat <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	2041	2175	
==>ernary:<?? !!>',
        '&print',
        '&infix:<==>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '& <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	227	322	
==>ere");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implement <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	227	322	
==>ere");
    print $julius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implement <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3047	3146	
==>Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $self.uni <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3047	3146	
==>Bool::False;
}

method complement ($self: ) returns Set::Infinite::Functional {
    return $self.uni <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	169	292	
==>Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	169	292	
==>Span::Code;

    has $.span;

=for TODO
    
  Bugs:
    * 'undefine span' is wrong - use empty_span instead (in set_end() / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1594	1708	
==>match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1594	1708	
==>match->[0][0];   # "a"
  }

=head1 DESCRIPTION

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

= <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5561	5673	
==>& ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5561	5673	
==>& ! $.span.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1339	1477	
==>")$mod)->code;"
    }
))->code;
*token = Pugs::Compiler::Rule->compile(q(<'token'> <rule_name> <mod>* <block>
    {
        my $body = subs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31434	31534	
==>sertions).  If
less than 0, it is behind; otherwise, it is ahead.

=item down

Whether this object cr <==
2	/Users/nnunley/pugs/util/testgraph.pl	545	639	
==>>);
undef $yamlfh;

my $tap = My::Model->new_with_struct(delete $data->{meat});
my $v = Test::T <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1245	1340	
==>upports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1245	1340	
==>upports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previous( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22758	22931	
==>ce" goto words
    if mname == ":ignorecase" goto ignorecase
    goto setpad
  words:
    mname = ":s"
    goto setpad
  ignorecase:
    mname = ":i"
  setpad:
    $P0 = pad[ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	153	256	
==>tBuilder = undef;

$::TestBuilder = class 'TestBuilder' => {
    is => [ $::Object ],
    class_attribut <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2282	2381	
==>ows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure with a b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2282	2381	
==>ows 
for continuous ciphering.

Both of these functions return a closure.  Call the closure with a b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15634	15740	
==>names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15634	15740	
==>names and values
that help to define this Node.

=item C<@!child_nodes> - B<Child Nodes>

Array of Rosetta: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13606	13747	
==>{
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13606	13747	
==>{
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *%han <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2705	2805	
==>y (@free) {
		my $assigned = $map{$entry->{orig}};
		unless ($assigned) {
			$assigned = shift @lette <==
2	/Users/nnunley/pugs/util/config_h.pl	738	833	
==>ifdef PUGS_VERSION
#undef PUGS_VERSION
#endif
#define PUGS_VERSION "$1"

#ifdef PUGS_DATE
#undef <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	660	762	
==>r :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	660	762	
==>r :next(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11930	12046	
==>all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was see <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11930	12046	
==>all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic from the server was see <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4709	4805	
==>16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4709	4805	
==>16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([CD][\dA-F])%([8-9AB][\dA- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7379	7471	
==>urn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10856	10948	
==>urn $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others) returns Relati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2613	2718	
==>ollowing methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2613	2718	
==>ollowing methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, seperating it into ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22634	22730	
==>setta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22634	22730	
==>setta::Interface::Exception Class

I<This documentation is pending.>

=head2 The Rosetta::Interfa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3983	4236	
==>z] )
                                                                and die $?;
              
        $meta = eval { LoadFile( File::Spec->catfile( 
                                    $my_tmp_dir,
                                    $conf->meta_file ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1258	1362	
==>an (populates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->parse } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24795	24915	
==>SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21216	21336	
==>SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $S->{next} }, q <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Control.pm	217	359	
==>ure:<if>' => Thunk(
        Seq(
            Param('$cond'),
            Param('$left_thunk'),
            Param('$right_thunk'),
            A <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13912	14014	
==>tdigits(T), !.
octdigits([])    --> [].
octdigit(D) --> [D], { member(D,"01234567") }.

octdigits3_int( <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2422	2559	
==>r-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @_[$j, $i];
    }
}

# concurrency temp-f <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3401	3501	
==>t;
	bless {}, $class;
}

package type::operator::nullary;
use base qw/type::operator/;

sub new {
	my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	597	764	
==>ile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	597	764	
==>ile( q(
        [ \;      
            { return { null_statement => 0 ,} } 
        ] |
        [ <bare_statement> 
            { return $<bare_statement>() }
        ] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	627	734	
==>re objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	627	734	
==>re objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
    m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12785	12884	
==>rrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12785	12884	
==>rrence is infinite.
Returns positive infinite if the recurrence is an empty set.

- `end()` 

Return <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1626	1723	
==>>constructor($reduced) . $self->layout($reduced->str);
		}
	}

	if (ref $node) {
		use Data::Dumpe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	112	269	
==>lude;

sub new {
    my $class = shift;

    bless {

    }, $class;
}

sub compiler {
    my $self = shift;

    my $class = $self->compiler_class;

    $cla <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23516	23639	
==>$b} grep !$seen{$_}++, @failed;
    my $failed = @failed;
    my @result = ();
    my @canon = ();
    my $min;
    my $last <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5765	5859	
==>X::true }

# 9.3
multi sub ToNumber(JSX::Value::Undefined $v) { NaN }
multi sub ToNumber(JSX::V <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11199	11291	
==>arset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11199	11291	
==>arset, :$location) returns Str>

=item B<redirect (Str $location) returns Str>

=item B<url_d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3997	4108	
==>ype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3997	4108	
==>ype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6371	6502	
==>b before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6371	6502	
==>b before {
    my $program = $_[0]{rule};
    return 
        "$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7233	7493	
==>-
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7233	7493	
==>-
                }
                else {
                    $.current_span = @spans.end
                }
                if $.current_span < 0 {
                    $self.reset();
                    return;
                }
                my $span = @spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5175	5273	
==>ethod as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5175	5273	
==>ethod as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translato <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2186	2345	
==>ss in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2246	2405	
==>ss in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1146	1246	
==>onstant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1146	1246	
==>onstant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( const <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8910	9050	
==>) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8910	9050	
==>) + 2     },
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2832	2949	
==>ACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Compiler - the base compiler for Blondie ASTs

=head1 SYNOPSIS

    us <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39091	39201	
==>lls it if it's inside a character
class.

  $parser->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13889	13988	
==>ol`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, yo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13947	14046	
==>ol`
- `skip (Int $count, Str $reason?) returns Bool`

If for some reason a test is to be skipped, yo <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11548	11672	
==>char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11548	11672	
==>char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12407	12499	
==>todo"><span title="<tmpl_var name=todo> todo"><tmpl_var name=todo></span>,</td>
	      <td cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32065	32163	
==>hat corresponds to language A, looking for a match to said error
message.  If it finds one, then th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32065	32163	
==>hat corresponds to language A, looking for a match to said error
message.  If it finds one, then th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11285	11467	
==>rd?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11285	11467	
==>rd?, *%rest) {
                return if $discard && $skip_discardables;
                
                my @h = ($key, $val);
                
                @h.push('path', $path) <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1085	1187	
==>aller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker packages so subdirs can <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	649	751	
==>ms) = map { $self->reduce($_) } $app->values;

    $self->prepare_scope(@params);

    # profiling actu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1357	1477	
==>t

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Co <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1357	1477	
==>t

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.closure_previous;
    has Co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6144	6252	
==>, 
    [ $Bar, $Foo, $Object ], 
    '... $Bar class_precendence_list');

## make instances of subclasses

my <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3534	3632	
==>l_blib .= join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|test_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	604	717	
==>d

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	604	717	
==>d

or a hash containing: - TODO - no longer needed

    state - a "continuation" or undef
    bool - an "assertion <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28548	28678	
==>argument C<$tuple> exists
in / is a member of this Relation::Example.

=item C<equal (Relation::Example $other!) returns Bool>

Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3216	3319	
==>>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3433	3536	
==>>;
        my $perl5 = Perl6Grammar::compile( $source,{
		print_ast => $interface::print_ast,
		print_pr <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6661	6802	
==>= $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6661	6802	
==>= $closure2;
    return sub ( $x is copy ) {
        my $n1 = &{ $closure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9630	9738	
==>span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method differe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9630	9738	
==>span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method differe <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9325	9446	
==>alues --> Scalar ) {
   my $res;
   for @values -> $cur {
        FIRST {$res = $cur; next;}
     $res = &$expression($res <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	721	840	
==>alues --> Scalar ) {
    my $res;
    for @values -> $cur {
        FIRST {$res = $cur; next;}
	$res = &$expression($res <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25942	26109	
==>ture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26221	26388	
==>ture( 'term2', 
             ruleop::alternation( [
                   ruleop::capture( 'term1', \&{'grammar1::term1'} )
                 ,
                   ruleop::c <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3375	3486	
==>);
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2]) }
}

sub CheckRev {
   my ($scr) = @_;
   my @ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	9529	9638	
==>b { open(F,">$_[0]") or die; print F $_[1];close F;};
    $tof->("deleteme_pil0",$c01[0]);
    $tof->("deletem <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13570	13670	
==>ub { Carp::carp("p6_as_array called on $_[0]"); undef };
my %as_array_handlers =
    ( undef => sub { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	445	541	
==>lass = $self->interpreter_class;
    $class->require or die $UNIVERSAL::require::ERROR;
    $clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12892	13022	
==>my $runperl = &_create_runperl;
    my $result;

    my $tainted = ${^TAINT};
    my %args = @_;
    exists $args{switches} && grep <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	264	366	
==>l"
#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
#     3. The i <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	395	494	
==>List of Bool;

multi sub keys   (@array ; Any|Junction *@indextests) returns List of Object
multi su <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1579	1673	
==>ATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that direct <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1419	1513	
==>ATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that direct <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	895	1007	
==>ce::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS obje <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	895	1007	
==>ce::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::DBMS obje <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14799	14898	
==>egant system, which makes
it easy to create and use relational databases in a very reliable,
portabl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14799	14898	
==>egant system, which makes
it easy to create and use relational databases in a very reliable,
portabl <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5936	6045	
==>rn $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5936	6045	
==>rn $x;
}


} # class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10142	10245	
==>ept to the minimum possible, and is essentially just
concerned with the well-formedness of the input, su <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10142	10245	
==>ept to the minimum possible, and is essentially just
concerned with the well-formedness of the input, su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25381	25481	
==>llowing the terms of the GPL for Rosetta and the licenses
of the other components concerned, provided <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25381	25481	
==>llowing the terms of the GPL for Rosetta and the licenses
of the other components concerned, provided <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3551	3685	
==>eturn postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3551	3685	
==>eturn postfix( ${$tree}{term} ) if exists ${$tree}{term};
        $s = join( ' ', map { postfix( ${$tree}{$_} ) } 
                ( gr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13948	14044	
==>toring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13948	14044	
==>toring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model::Document.n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8622	8719	
==>space; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method loa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8622	8719	
==>space; any incompat will be caught later.
    return ::($module_name).does(Package);
}

method loa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9452	9553	
==>ication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3277	3378	
==>ication(@_) };
push @statements, sub { Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Gramm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1681	1785	
==>e( $self->config->_files_list );
}

=head1 METHODS

=head2 $inst = JIB::Installation->new;

=cut

### XXX <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15804	15910	
==>quest conditional.  If the requested
resource has (or has not) been modified since the time specified in th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15804	15910	
==>quest conditional.  If the requested
resource has (or has not) been modified since the time specified in th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11939	12050	
==>This means you must have the F<charnames> pragma installed, but since
this module requires Perl 5.6 or better, I <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9895	9991	
==>uring_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
}
sub node::subrule <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1574	1677	
==>t::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucr <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1574	1677	
==>t::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	273	415	
==>,Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	361	503	
==>,Dumper( $n ), "\n";

    # $n = $n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        re <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5032	5205	
==>$module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4891	5064	
==>$module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    return $self;
}

sub write {
    my $self = s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20516	20615	
==>lus a "next" pointer,
possibly plus an operand.

We don't care.


=head2 Internals:

  regnode *regs <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13784	13885	
==>> Int|List )
 multi Hash::kv     (%hash ; MatchTest *@keytests --> Int|List )
 multi Hash::pairs  (%ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22010	22128	
==>ere being misrepresented as C<{n,}>.
It's been corrected.  (Mike Lambert)

C<\b> was being turned into "b" inside a cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15534	15648	
==>neg, \$how);
  });

  $self->add_handler('{' => sub {
    my ($S) = @_;
    if (${&Rx} =~ m{ \G (\d+) (,?) (\d*) \} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9842	10029	
==>ain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9842	10029	
==>ain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %! <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	291	410	
==>1strings/*.p6>) {
    (my $f = $p6) =~ s/.p6$//;
    my ($dir, $file) = split /\//, $f;
    next if not -e "$dir/$file.e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6989	7099	
==>d_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6989	7099	
==>d_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_number}//;

        $_ = $filtered_content <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	673	870	
==>when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                wh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	673	870	
==>when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                wh <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12702	12811	
==>e( \@avail );
    return 1;
}

=head2 $bool|$alt = $inst->link_files( package => $inst_pkg );

=cut

### XXX n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8873	8972	
==>= (shift, shift);

	$x->{name} eq $y->{name}
		or die "Can't unify $x->{name} with $y->{name} in " . <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13351	13490	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13630	13769	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'cod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7994	8120	
==>ined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8052	8178	
==>ined ?? $got !! "undef") ~ "'");
    }
    else {
        Test::diag("    Actual: " ~ ($got.defined ?? $got !! "undef"));
    } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5633	5733	
==>it();}

package PIL::PIL1::NodeSet0;
sub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19723	19839	
==>|B0],E0,E0) :- C \= 10, !. %\n
rm(dot,         [C|F1],F1,B0,[C|B0],E0,E0) :- flag_s(E0), !.
%#rm(ws(C),      [C|F1],F <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2888	2988	
==>for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2888	2988	
==>for allowing me to define &subs easily. :)
  sub enqueue (Str $msg) {
    $queue<enqueue>({ $say($msg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7729	7817	
==>shref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1554	1642	
==>shref_element(@_) };
push @statements, sub { Grammar::Perl6->access_hashref_element(@_) } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	215	322	
==>is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	215	322	
==>is export(:DEFAULT) { ... }
    sub time_to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	440	545	
==>ll returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is ex <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	440	545	
==>ll returns Str is export {
    return &::($worker_pkg)::devnull();
}

sub case_tolerant returns Bool is ex <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51676	51986	
==>{
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                             ->concat(
                                str->new('-')
                            )                          
                            ->conc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	51065	51346	
==>{
                      my $e = shift;
                      $e->set('$identifier' => 
                          $e->get('$identifier')
                            ->concat(
                              str->new('-')
                            )
                            ->conc <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8449	8555	
==>bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
sensitive applicat <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8449	8555	
==>bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in any 
sensitive applicat <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5186	5275	
==>(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5186	5275	
==>(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$chan}. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6942	7076	
==>gx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6930	7064	
==>gx;
    # $/
    $code =~ s/ ([^']) \$ \/ /$1 \$_[0] /sgx;
    #print "Code: $code\n";
    
    return 
        "$_[1] ( sub $code->( \ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1840	1940	
==>expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlik <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1898	1998	
==>expected;
    Test::proclaim($test, $desc, $todo, $got, $expected, $depends);
}

## unlike

sub unlik <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12643	12896	
==>Text::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in pr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12643	12896	
==>Text::Translator

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Locale::KeyedText -
Refer to user messages in pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4194	4290	
==>es that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITI <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4194	4290	
==>es that are in the current distribution:
L<Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITI <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7755	7892	
==>nclude\E(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ }
              split "\000",
              `find $parrot_path/runtime/parrot/ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17204	17317	
==>tialize_package {
    my($pkg,$kind)=@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	718	821	
==>entation
and tests.

- Quantified matches could use less stack space.

- Simplify arg list - the fu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33981	34074	
==>f negated

Ender: I<anyof_close>

=head2 anyof_char

Family: anyof_char

Types: anyof_char (C< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39906	40014	
==>tion (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any later version.  You <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39906	40014	
==>tion (L<http://www.fsf.org/>); either
version 2.1 of the License, or (at your option) any later version.  You <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16946	17053	
==>dules or anonymous routines) and write the rest of the
application in their other language(s) of choice.  As <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16946	17053	
==>dules or anonymous routines) and write the rest of the
application in their other language(s) of choice.  As <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	948	1092	
==>) {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs) or $abs = MM->maybe_command($abs));
    }

    return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23882	23984	
==>hat Relation::Example indicates a failure is to throw an exception;
most often this is due to invalid i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	507	640	
==>@.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	507	640	
==>@.buffer >= $bs {
            my @data = @.buffer.splice(0, $bs);
            @.buffer.splice(0, $bs, []);
            take *.cipher_b <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3158	3273	
==>ry later about large body

  # strip away status and headers
  # This should all be done better so the response does <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3158	3273	
==>ry later about large body

  # strip away status and headers
  # This should all be done better so the response does <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21304	21413	
==>->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WA <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44211	44320	
==>->class->send('dispatcher' => symbol->new(':ascendant')));
                $e->create('$method' => $e->get('WA <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22760	22867	
==>'try'> <Block> <Finally>
    | <'try'> <Block> <Catch> <Finally>
}
rule Catch :words {  # see 12.14
      <' <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1225	1326	
==>patch in your subclass of POE::Session.';
  }
}

=head1 NAME

POE - Perl Object Environment for Perl 6 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15405	15533	
==>nt
    #if want ~~ rx:P5/^Item/ {
    #    $res = Pugs::Internals::localtime(Bool::True, $sec, $pico);
    #} else {
        my @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14313	14435	
==>he operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_tw <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14313	14435	
==>he operands and their sum.
        MyLib::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_tw <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7522	7771	
==>aybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7986	8235	
==>aybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2477	2583	
==>ringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2477	2583	
==>ringify;
}

method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1219	1333	
==>,
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1219	1333	
==>,
        greedy_star( constant_at_pos('x') ),
    );
print wrap( $r );
my $x = eval wrap( $r );
print Dumper( $x-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1377	1465	
==>piler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(10 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1377	1465	
==>piler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a|b]bx*');
Benchmark::cmpthese(10 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33824	33937	
==>C<\D>)

Neg: 1 if negated

=head2 anyof

Family: anyof

Types: anyof (C<[>)

Data: array reference of I<anyof_char <==
2	/Users/nnunley/pugs/util/grokprims.pl	1235	1341	
==>$arity>1 and $a0 =~ s/:$//) or
        $arity==1) {
      $example = "\$$a0.$name(".join(', ', map {"\$$_"} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27108	27246	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27387	27525	
==>leop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'li <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	1361	1472	
==>ction must receive at least:

    y - target value for y
    f - function of one variable

It looks for an x suc <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	182	274	
==>austier";
say "$wer mag @obst[0] und @obst[1]";
say "{$wer}s Lieblingsfarbe ist %lieblings{'F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17659	17754	
==>is used in request messages and contains information
about the user agent originating the reques <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17659	17754	
==>is used in request messages and contains information
about the user agent originating the reques <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26307	26408	
==>==========

use strict;
use warnings;
BEGIN {
    require Language::Prolog::Yaswi::Low;
    @Language: <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	438	547	
==>sts are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	438	547	
==>sts are not implemented
    * operations with Set::Infinite should return a Set::Infinite 
  
  Tests:
    * o <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5543	5686	
==>th;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' l <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5543	5686	
==>th;
                &*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2537	2633	
==>ule::Perl5::Ratchet> converts parsed :ratchet Rules to Perl 5 code.

=back

=head2 Implemented Fe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5351	5480	
==>$x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($sel <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5351	5480	
==>$x = Inf;
    }
    elsif $x >= $.span.end && $.span.end_is_open {
        $x = Inf;
    }
    return $x;
}

method previous ($sel <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	12089	12184	
==>of C<cmp> as a Comparator.

If all criteria are exhausted when comparing two elements, sort shou <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12336	12443	
==>= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discrete" or a "cont <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12336	12443	
==>= DESCRIPTION

This class represents a "span".

Depending on your data, you may need a "discrete" or a "cont <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10279	10383	
==>... )

Get or set the value of one or more header fields.  The header field
name ($field) is not case sen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10279	10383	
==>... )

Get or set the value of one or more header fields.  The header field
name ($field) is not case sen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	667	808	
==>$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	660	801	
==>$rule->( \@_ );
        return unless \$match;
        my \$capture_block = sub " . $code . "; 
        #use Data::Dumper;
        #print \"ca <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4128	4231	
==>ic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4128	4231	
==>ic = strip_colon($topic);

    %channels{~normalize($chan)}<topic> = $topic;
  }];
  %handler<TOPIC> = [ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	820	915	
==>ted on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6> <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	820	915	
==>ted on February 1st 2005.  It is under active
development on IRC (C<irc.freenode.net>, C<#perl6> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26777	26878	
==>bute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<project_all_b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31329	31430	
==>bute names of the invocant
Relation.  This method has an alias named C<select>.

=item C<project_all_b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4580	4680	
==>'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_as <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4580	4680	
==>'new', ':$document!', $document );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_as <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7675	7780	
==>.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1, <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7675	7780	
==>.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # Set arithmetic with arrays
  say ~([1, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8451	8561	
==>_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::nu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8509	8619	
==>_tests_run");
    }

    if ($Test::num_of_tests_failed) {
        $*ERR.say("# Looks like you failed $Test::nu <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1755	2017	
==>given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[B <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1755	2017	
==>given $mod {
                when 'E' {
                    $buffer ~= "&"                     
                }
                when rx:perl5/[CF]/ {
                    $buffer ~= "<CODE>"                     
                }
                when rx:perl5/[B <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9150	9258	
==>n => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9150	9258	
==>n => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.clone if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	2013	2239	
==>statement (@t) {
                        if (!@body) {
                            #warn "our first arg $arg";
                            push @body => $statement
                        }
                        elsif ($state <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4014	4206	
==>b {
            my ($self, $new_z) = @_;
            $z = $new_z;
        }, 
        clear => sub {
            my $self = shift;
            $z = 0;
            $self->super->clear;
        } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	698	812	
==>all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1182	1296	
==>all the fields in the file
    ### so we can have other accessors for other meta data?
    $obj->mk_accessors( keys <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18225	18322	
==>f the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from wh <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18225	18322	
==>f the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document from wh <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	628	737	
==>%seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	628	737	
==>%seen{./normalize($0)}<text>"
        !! "Never seen $0.";
      ./notice(to => $reply_to, text => $reply_msg) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18814	18911	
==>rns an anonymous hash
definition.  While it is obvious that people who would be writing the text
w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18814	18911	
==>rns an anonymous hash
definition.  While it is obvious that people who would be writing the text
w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5597	5721	
==>) returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5597	5721	
==>) returns Hash {
    return {
        'node_type'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19840	19937	
==>S
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19840	19937	
==>S
and Rosetta D however it likes; all Rosetta cares about is that the user
interface and behaviour <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	4657	4759	
==>rn << "."
** Note that Cygwin support for pugs still depends on the .msi
   version of GHC and does not <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2596	2812	
==>natives config 
                                   dir] 
                            );
            
            ### set these 2 first, the other methods rely on it
            $obj->dir( $dir );
            $obj->con <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7244	7383	
==>ot yet supported by PGE/pugs.";
            }
        }
        elsif ($k.chars > 1 && substr($k,-1,1) eq "x"
               && internals_m: <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5240	5339	
==>nt $tmpl->output;
}

sub pack_smoke {
  my %smoke = @_;

  return sprintf "pugs-smoke-%s-r%d-%s-%s-- <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3730	3828	
==>' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to p <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3730	3828	
==>' | 'today' | 'tomorrow' | 'yesterday' | $date_string )`

Given a string, this module attempts to p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8253	8399	
==>", _qq($orig->{$key}),
                     " now ", _qq($value), "\n";
        $fail = 1;
      }
    } else {
      print STDOUT "# key ", _qq($k <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2877	3149	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2877	3149	
==>symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interface::Value object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Ro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14366	14494	
==>servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout sec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14366	14494	
==>servername");
          $last_autoping = time;
        }

        # So we haven't seen any traffic for at least $live_timeout sec <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6700	6813	
==>TML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6700	6813	
==>TML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will be printed too.

=back

=head1 SEE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1236	1377	
==>$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1441	1582	
==>$match,
            capture => [ { perl5 => $program } ],
        }
    };

    # load/precompile Prelude(s)

    my $recompile;
    for my $p <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4197	4300	
==>ed_op(W, star_ng(W)) --> "*?", !.
p56_quantified_op(W, plus_ng(W)) --> "+?", !.
p56_quantified_op(W, que <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	180	297	
==>AML ();
our $YAML = PugsBuild::MiniYAML->new;
our $Conf;

our %DEFAULTS = (
    optimization          => '-O',
    smo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	8	100	
==>package Module::Install::Deprecated;

use strict;
use Module::Install::Base;

use vars qw{$VE <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7828	8022	
==>t.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7828	8022	
==>t.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(match = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14296	14410	
==>[0]}] },
      perl6_object => sub { $_[0]->as_perl5_array },
     );
sub p6_as_array {
    my($x)=@_;
    my $reft <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4353	4453	
==>$Object got the right method return value');
is($Object->superclass, undef, '... $Object got the righ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6255	6355	
==>$Object got the right method return value');
is($Object->superclass, undef, '... $Object got the righ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1467	1558	
==>re insufficiently documented,
# audreyt forked, creating re-override, intending to provide j <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1315	1465	
==>subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1326	1476	
==>subrule $code - $1\n";
    return { 
        bool  => 1,
        match => { code => $code },
        tail  => $tail,
        capture => [ { negated_sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5459	5566	
==>an = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5459	5566	
==>an = normalize (split " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2812	2933	
==>bject required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depend <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3276	3397	
==>bject required";
        my $print   = shift || 0;   # print the parsed dependencies?
        my @deps    = $meta->{depend <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	530	643	
==>ity>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp< <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	530	643	
==>ity>;
    return $class.new( %param );
}

method from_date_and_duration ($class: %param ) {
    my %tmp;
    %tmp< <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1918	2030	
==>atterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1918	2030	
==>atterns to regexes

=head1 SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15769	15880	
==>minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10625	10736	
==>minmod >;
      $S->error(RPe_BCURLY) if length($max) and $min > $max;
      return $S->object(quant => $min, $m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16309	16415	
==>rn $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $buck <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16309	16415	
==>rn $self;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $buck <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1710	1876	
==>RI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1710	1876	
==>RI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return value is effectively <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3477	3598	
==>return call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3477	3598	
==>return call_subrule( 'any', $_[1] );
}
sub variable {
    my $name = "$_[0]";
    my $value = undef;
    # XXX - eval $nam <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1173	1276	
==>d;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1173	1276	
==>d;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateTime <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	3376	3524	
==>nfig{precompile} }) {
        my $module; # guess what to put in %*INC
        open my $ifh, $file or die "open: $file: $!";
        
        print $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1337	1454	
==>e ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1337	1454	
==>e ~~ s:P5/\r\z//;
            %headers{$field} = $value;
        } elsif (%headers.pairs && $string ~~ s/^ (<[ \t]> .* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7121	7239	
==>lse {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7121	7239	
==>lse {
        @v.push(boundary => "boundary");
    }
    
    $content_type = HTTP::Headers::Util::join_header_words(@v <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	169	280	
==>rsection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	169	280	
==>rsection($two);
}

# unicode union
multi sub *infix:<∪> (Set $one, Set $two) {
    $one.union($two);
}

# addi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5857	5966	
==>och based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5857	5966	
==>och based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method conten <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10883	10981	
==>nce

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10883	10981	
==>nce

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Gloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3752	3887	
==>=> 'list' };
}

sub emit_yapp {
    my ($self) = @_;
    my $s;  # = "%{ my \$_[0]->{out}; %}\n";
    my $prec = "P000";
    my % <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7543	7638	
==>y = DOWN($pBody);
    p6_code_mk_CODE($name,$type,\@pams,$lval,$body);
}

NODE PVal ($pVal) { DO <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22151	22266	
==>>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22151	22266	
==>>.

=head2 C<$bot.oper(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	551	666	
==>.\n";
	} elsif ($noplan) {
	    print "1..$ran\n";
	}
    }
}

# Use this instead of "print STDERR" when outputing f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4004	4108	
==>al = shift;

		my $rval = $val->fmap(sub { $self->reduce($_[0]) });
		my $sub = $rval->val;

		Blondie::T <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2954	3069	
==>ondie::Compiler;

    my $c = Blondie::Compiler->new;
    $c->compile($runtime, $env, $program);

    # or more conv <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16509	16606	
==>e span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `di <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16509	16606	
==>e span if Infinite, then the list contains
a single span. Otherwise, it contains two spans.

- `di <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5525	5673	
==>= 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5718	5866	
==>= 
         ruleop::capture( 'word', \&{'grammar1::word'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5332	5434	
==>s also the role(Role) as well
$Role = $Class->new(
    '$:name' => 'Role',
    '$:superclass' => $Objec <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3947	4059	
==>tional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "po <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3947	4059	
==>tional ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "po <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	869	973	
==>e generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated fi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	869	973	
==>e generator.

=cut

# XXX - macro's cant currently define classes, so...
BEGIN{ say "\n# autogenerated fi <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1250	1356	
==>ix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = Fil <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1250	1356	
==>ix_makefile {
    my $full_pugs = File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = Fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6440	6539	
==>lso be used to do fail() and assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6233	6328	
==>lso be used to do fail() and assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10877	10978	
==>person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10877	10978	
==>person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1393	1527	
==>d 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1393	1527	
==>d 1..10,20..30)
        next unless defined( $span );
        my $sp;
        if $span.isa( 'Recurrence' ) {
            $sp = Span.new <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3220	3312	
==>_end().";"/eg;
  s/\bFAIL_IF_FAILED\(([^\)]+)\);/FAIL() if FAILED($1);/g;
  s/\bFAIL\(([^\)]{ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5563	5690	
==>&*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5563	5690	
==>&*push(@body, &*shift(@tail));
            }
        }
    };
    #say 'head: ',@head, ' body: ',@body, ' tail: ',@tail, ' list: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5643	5750	
==>pe'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5643	5750	
==>pe'   => $!node_type,
        'attributes'  => {%!attributes},
        'child_nodes' => [@!child_nodes.map:{ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10072	10188	
==>hod get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10072	10188	
==>hod get_index ($self:) returns Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6875	7003	
==>tant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $pref <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6875	7003	
==>tant( q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $pref <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/main.pl	226	311	
==>lize_package("",'package');
    Perl6::Run::OnPerl5::X1::Api::p6_initialize_package("m <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8565	8666	
==>$initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newest_p_stamp and
      -d "$initrd_mnt/t <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7504	7596	
==>->struct_equiv; # eep!
	if ($orig_thunk->isa("Blondie::Backend::C::Prim") and ($orig_thunk->f <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	186	294	
==>hannel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets yo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	186	294	
==>hannel \"$chan\".");
    ./join($chan);
  });
}

1;

=head1 NAME

Net::IRC::JoinOnInvite - Role which lets yo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22904	23007	
==>>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22904	23007	
==>>kickE<gt>(channel =E<gt> "#chan", nick
=E<gt> "...", reason =E<gt> "...")>

Kicks somebody from a chann <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8194	8315	
==>t {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8194	8315	
==>t {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10049	10209	
==>tine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', und <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10049	10209	
==>tine_arg', { 'name' => 'new_person',
                    'arg_type' => 'IN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_body', und <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17148	17256	
==>B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17305	17413	
==>B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex = E1) ; rm(star_ng( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6174	6292	
==>parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6174	6292	
==>parse => sub ($match, &continue) {
            $p.parse()($match.clone(
                backtrack => -> { &continue($ma <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2942	3059	
==>cer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2942	3059	
==>cer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Changi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4273	4385	
==>||= 'Admin';
    $args{prefix}   ||= 'inc';
    $args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
    $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	557	669	
==>$@;
    my $autoload = eval { $self->_top->autoload } or return;
    goto &$autoload;
}

#line 76

sub _top { $_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10509	10633	
==>}
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10509	10633	
==>}
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cookies{$domain}.key <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1283	1642	
==>";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # Exte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1283	1642	
==>";
    die $!
        if $!;

    return;
}

###########################################################################

} # class Rosetta::Interface::DBMS

###########################################################################
###########################################################################

class Rosetta::Interface::Exception {

    # Exte <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1852	1975	
==>hift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shi <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	962	1084	
==>hift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->makemaker_args( INC => shi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	839	942	
==>s Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	839	942	
==>s Str is export { %*ENV<REQUEST_URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4096	4216	
==>ual, @{ $self->{tree} });
  return $vis;
}


sub qr {
  my ($self) = @_;
  $self->parse if $self->{stack};
  my $rx = $se <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	5	119	
==>v6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	5	119	
==>v6;

class Set;

our $DEBUG = 0;
sub debug_set($v) is export {
    $DEBUG = $v;
}

# FIXME - refactor out into a Se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16265	16364	
==>he
"Attributes" attribute if provided (it defaults to empty if the parameter's
corresponding argumen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16265	16364	
==>he
"Attributes" attribute if provided (it defaults to empty if the parameter's
corresponding argumen <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2415	2504	
==>tters = split //, "αβγδεζηθικλμνξοπρστυφχψω"; # some identifiers f <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3365	3482	
==>ag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3365	3482	
==>ag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) {
      until($r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	842	940	
==>}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	842	940	
==>}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, Set $tw <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	503	625	
==>believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	503	625	
==>believed to be compatible with RSA Security's 
RC4(tm) cipher, in that keys should produce the same keystream and thus text <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7046	7141	
==>text of the header, that will be processed as a interpolated string (to allow for
any modifiers) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7046	7141	
==>text of the header, that will be processed as a interpolated string (to allow for
any modifiers) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	896	1003	
==>Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::D <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	896	1003	
==>Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::D <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10047	10160	
==>rns <method>)))
            {  (($e get ("&dispatcher")) do) }))))


$::ENV->create(
    "*::WALKCLASS", 
    clos <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17405	17514	
==>e second param inside a pair
# hence pair is a -> b -> (a x b). So if a is an int, $half_pair is b -> (int x b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6842	6942	
==>->_mode_plus_w( file => '/path/to/file' );

Sets the +w bit for the file.

Returns true on success, f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20744	20857	
==>ges in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
l <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20744	20857	
==>ges in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix Mac OS) handles
l <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	622	785	
==>(" . $node->id . ")\" ". 
                    "];\n";
}

sub _draw_class_node {
    my ($node) = @_;
    return "node_" . $node->id . " [ " . 
                    " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15711	15872	
==>ternary: ", Dumper( $n );

    if ( $n->{op1}{op} eq '??' ||
         $n->{op2}{op} eq '!!' ) {
        return _emit( $n->{exp1} ) . 
            ' ? ' . _em <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10102	10347	
==>(KeyExtractor, Comparator);

 multi Array::sort(                 @values is rw,
                                              *&by
                              ;           Bit :$inplace
                             --> Array )

 multi Array::sor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5294	5428	
==>es = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $? <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5294	5428	
==>es = [];
    for @child_nodes -> $child_node {
        $?CLASS.new(
            document    => $document,
            parent_node => $? <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6589	6783	
==>t();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6589	6783	
==>t();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.current if <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2977	3092	
==>_('$.description') if _('$.description');
            return $ok;
        }
    }
});

$::TestBuilder->FETCH('::Test <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	11484	11577	
==>ethod difference (Relation::Example $other!) returns Relation::Example {

    die "The heading <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	168	287	
==>pec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	168	287	
==>pec;
use Config;
use FindBin;

sub WriteMakefile {
    my $libs = get_perl6_libs();
    my @mm_args = @_;
    @mm_args = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6514	6634	
==>P::Headers::Util::split_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6514	6634	
==>P::Headers::Util::split_header_words($content_type);
    die "Multiple Content-Type headers!" if @v > 1;
    
    @v = @v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1700	1855	
==>n $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1700	1855	
==>n $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	949	1085	
==>} 

sub do_while {
    my ($self, $condition) = @_;
    (blessed($condition) && $condition->isa('block'))
        || confess "Condition m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6885	6987	
==>ch = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6885	6987	
==>ch = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1858	1973	
==>s, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1858	1973	
==>s, $content, $data) = @_;
        my $output = $class->pmc_template($module, $content, $data);
        $class->pmc_o <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	203	337	
==>on    => '0',
        perl_subversion => '0',

        osname    => $Config{osname},
        pager     => $Config{pager},
        prefi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1602	1719	
==>has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1602	1719	
==>has Code $.cstringify;
    has Bool $.is_lazy;

    submethod BUILD () {
        $.cis_infinite   //= sub { &{$.celems <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24037	24185	
==>h ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24316	24464	
==>h ) ],
        }; 
    }
;
    push @statements, \&sub_decl;
*{'term2'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	753	882	
==>aram ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	753	882	
==>aram ($self: ) {
        return $self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	644	816	
==>rams{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	644	816	
==>rams{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($self: ) {
        return $self.params();
    }
    
    m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9785	9895	
==>f.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9785	9895	
==>f.elems }
    method pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	128	266	
==>cal $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require Dyna <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	123	261	
==>cal $@;
    eval {
        require XSLoader;
        XSLoader::load(__PACKAGE__ => $VERSION);
        1;
    } or do {
        require Dyna <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18081	18184	
==>ious blocks; so that by the
time a compiler is called it only gets the source code that it should be
loo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18081	18184	
==>ious blocks; so that by the
time a compiler is called it only gets the source code that it should be
loo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11831	11927	
==>ecurrences are exactly the same.

This method tests the closures identities using the '===' opera <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11831	11927	
==>ecurrences are exactly the same.

This method tests the closures identities using the '===' opera <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7932	8032	
==>led, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7932	8032	
==>led, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data still 
in t <==
2	/Users/nnunley/pugs/util/package-osx.pl	9290	9439	
==>r .= "$_/";
        if (!-d $curr_dir) {
            mkdir $curr_dir;
            print "Made $curr_dir\n";
        }
    }
}

sub remove_svn {
    my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1911	2006	
==>,$base);
 }

sub Pugs::Internals::log_base(Num $x, Num $base) {
    return Pugs::Internals::log( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9258	9348	
==>:Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3083	3173	
==>:Perl6->_simple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
pu <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung1.pl	5	109	
==>hrung1.pl - Perl 5 Version
use utf8;

# sub £to€ {  @_[0] * 1.4656 } # geht leider nicht!
sub PoundToE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8339	8437	
==>nd will
return false if called again.

=head2 Building the Tree

If you don't care to intercept the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2509	2612	
==>n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constru <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2509	2612	
==>n}\n";
    $code;
}
sub node_h ($data,$constructor,*@fields) {
    my $code = common_code($data,$constru <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4414	4553	
==>elf.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $conten <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4414	4553	
==>elf.content_type // "";
            
            if ($content_type ~~ m,^message/,) {
                die "Only one part allowed for $conten <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4219	4316	
==>hen used as an array reference, the match object returns positional
captures as match objects.

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4219	4316	
==>hen used as an array reference, the match object returns positional
captures as match objects.

=h <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	270	374	
==>$self = shift;
    my $program = shift;

    $self->{seen} = Set::Object->new;
	$self->{dups} = Set::Obje <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2668	2839	
==>h => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^(\s*)(.*)$/s;

    return;

};

sub p6w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2565	2729	
==>h => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^(\s*)(.*)$/s;
    return;
};
sub p6w <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3610	3817	
==>hile (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.r <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3610	3817	
==>hile (defined($_line)             && 
                                   !($_line ~~ rx:P5{^$}) ) {
                                interpolate($_line, %events);
                                $_line = $fh.r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	869	972	
==>re enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previo <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	869	972	
==>re enabled.

- `new( closure_next =>     sub {...}, universe => $universal_set )`
- `new( closure_previo <==
2	/Users/nnunley/pugs/util/package-osx.pl	2907	3036	
==>pugs/pge/run_pge.pir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15228	15329	
==>r did not exist then C<undef> is returned.

Methods that deal with dates/times always convert their va <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15228	15329	
==>r did not exist then C<undef> is returned.

Methods that deal with dates/times always convert their va <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13631	13749	
==>ce_holidays );

- Continuous span

This type os span is used to represent continuous measurements, such as times, tempe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13631	13749	
==>ce_holidays );

- Continuous span

This type os span is used to represent continuous measurements, such as times, tempe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7487	7595	
==>$pParams;
    my $lval = $pLValue; # XXX - ?
    my $body = DOWN($pBody);
    p6_code_mk_CODE($name,$type,\@p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1365	1480	
==>ompile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an impl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1365	1480	
==>ompile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module provides an impl <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2413	2554	
==>x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my In <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2413	2554	
==>x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@string == 1) {
      my In <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	253	356	
==>m_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOT <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	253	356	
==>m_of_tests_run;
  my $codefh = open( $tempfilename , :w);
  $codefh.print($code);
#  $codefh.print($BOOT <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3	113	
==>ad1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3	113	
==>ad1 NAME

Cipher.pm - Perl 6 Cipher API

=head1 SYNOPSIS

    class Cipher::Not is Cipher {
        method zero <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3424	3564	
==>r ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     o <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3424	3564	
==>r ($_)}, decode(@index)}
  }
}

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octet--+--2     o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12534	12633	
==>be updated.  The tests that are passing represent the
current working features.

This module deals w <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12534	12633	
==>be updated.  The tests that are passing represent the
current working features.

This module deals w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	8	114	
==>ct;
package Perl6Grammar;
our %nodes;

sub Pugs::Runtime::Rule::rule_wrapper { @_ };
my $grammar1 = 'Pugs:: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2679	2778	
==>ub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2679	2778	
==>ub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12482	12618	
==>@pge; 1 },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@pge) {
        if(-d "$pge/$_") {
          mkdir "$init <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3721	3845	
==>l;
}

sub define_thunk {
	my $self = shift;
	my ($node, $symbol, $body) = @_;

	# all thunks with protos were already defined <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	1197	1293	
==>SIS

  use TestBuilder::TestPlan;

=head1 DESCRIPTION

B<NOTE:>
This is a Perl6-MetaModel 2.0 por <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5212	5308	
==>); }
}

# reading synopses
infest_syns($link_info) unless $no_designdocs;

# Generating index.htm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11098	11196	
==>t is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11098	11196	
==>t is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "universal set" recurrence object.

- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	260	376	
==>p track of which files have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_ma <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	260	376	
==>p track of which files have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_ma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5996	6112	
==>- An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5996	6112	
==>- An object representing a recurrence set span 

= SYNOPSIS

    use Span::Code;

    $span = Span::Code.new( recurre <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1583	1694	
==>se; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and re <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1583	1694	
==>se; >. Make
    # them ISA Module::Compile and get the hell out of Dodge.
    $class->pmc_set_base(@args) and re <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	48	146	
==>litpath>;

our @.known_parsers;
my $parser_details = 'ParserDetails.ini';
# use 
# my constant $:pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	30242	30340	
==>es for its type.

=item my $v = $obj->visual()

The visual representation of this object.  It inclu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3547	3783	
==>=> 1,      :$v
    #    'type' => {             Str $v
    #      'bareword' => 'Str',
    #    }
    #    'splat' => 1,           *$v
    #    'attribute' => \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17862	17967	
==>ms of StrPos, not Int.

=item pack

=item pos

=item quotemeta

=item rindex 

Needs to be in terms of Str <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14802	14904	
==>hen we leave the body of the function)
	if ($generic_vars->includes($p_f)) {
		my $c = $f->clone;
		($p <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	22050	22149	
==>index($file, 'Test.pm') == -1;
    say "Attempting to compile $file ...";
    system($*EXECUTABLE_NA <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7374	7533	
==>y ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the ite <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	675	834	
==>y ( @list ) {
            for my $depends ( list_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the ite <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5210	5359	
==>riable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5432	5581	
==>riable {
    my $n = $_[0];
    my ( $var_name, $value ) = @_;
    #print ref($n),"\n";
    if ( ref( $n ) eq 'ARRAY' ) {
        bind_variable( $_, @ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1146	1265	
==>.new(:subscriber($_), :event($event)) }, *@subscriptions;
    }
    
    method get_subscriptions (Class::Events::Publis <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13693	13810	
==>reason) = $extra =~ /$Extra_Header_Re/xo;

            $self->{todo} = { map { $_ => 1 } split /\s+/, $todo } if $todo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1203	1299	
==>till supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), ele <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1203	1299	
==>till supported.

2005-08-07
* Lazy Range supports 'a'..Inf
* New lazy array methods: splat(), ele <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	553	652	
==>it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to inse <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	553	652	
==>it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows you to inse <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3722	3867	
==>$self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { da <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1822	1967	
==>$self: Int|Real $iso8601_dur ) {
    #$self + duration($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { da <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3446	3551	
==>thods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3446	3551	
==>thods take named parameters unless otherwise specified.

= CONSTRUCTORS

- `new()`

Without any parameters <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1672	1774	
==>, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$to <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1730	1832	
==>, $got, $expected, $depends, :negate);
}

## like

sub like (Str $got, Rule $expected, Str $desc?, :$to <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1411	1539	
==>superclasses($self:) returns Set {
    if ( $:superclasses.size ) {
        return ([+] $:superclasses,
                $:supercl <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2473	2569	
==>e Perl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this wou <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2473	2569	
==>e Perl6::Value::List; 

# This class should not inherit from Perl6::Value::List, because this wou <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10565	10668	
==>()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Ma <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10565	10668	
==>()` methods.

If the set is "continuous", this method emits a warning and returns undef.

- `lazy()`

Ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11532	11646	
==>KAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $al <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13057	13169	
==>KAGE_INSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2069	2239	
==>'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2069	2239	
==>'cookie'};
                    %!cookies.delete($domain);
                    ./load_cookie($data[1]);
                    
                    $cookies = %!cookies{$domai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7167	7274	
==>r("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7167	7274	
==>r("Content-Length") }

method user_agent ($self: )                is rw { $self.header("User-Agent") }
metho <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1713	1893	
==>:Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1713	1893	
==>:Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method export_as_hash () r <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1408	1509	
==>(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso- <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1408	1509	
==>(Str $encoding) is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22881	22971	
==>a::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22881	22971	
==>a::Interface::Variable Class

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	2571	2724	
==>1;
        my $final = $off + $size_change;
        while $i >= $final {
            @a[$i] = @a[$i-$size_change];
            $i--;
        }
    } elsif <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5950	6058	
==>return { method => $/{'Pugs::Grammar::Term.bareword'}->() ,} }
        #~ ) ),
        q() => Pugs::Compiler: <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	914	1018	
==>perl tsanta.pl head.p6 tail.p6 rev.p6 mid.p6 wc.p6
GROK
   exit(1);
}

sub GolfScore {
   my $script = sh <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	1801	1900	
==>'TCxt',
  'pFun'  ,'PIL_Expr',
  'pInv'  ,'Maybe PIL_Expr',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LVa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15026	15120	
==>I), called
the Rosetta Native Interface (RNI), which applications invoke and which
multiple int <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15026	15120	
==>I), called
the Rosetta Native Interface (RNI), which applications invoke and which
multiple int <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9248	9385	
==>k};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9248	9385	
==>k};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = {
    # Readonly accessors
    curnick       => { $curnick },
    c <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	93	218	
==>d 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document diffe <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	93	218	
==>d 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tweaks

    * tests and docs

    * document diffe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	409	554	
==>$data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	409	554	
==>$data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer >= $bs {
            my @data = @.buffe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1513	1621	
==>.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1513	1621	
==>.

regex subname { \*? <nameZZ> };

regex identZZ { <nameZZ> };

# Numbers

# base 10

regex natural { <digit <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	2315	2407	
==>etopt::Argument::Style::Clustered is Getopt::Argument::Style {
        method ^string_to_argu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4087	4186	
==>opic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4087	4186	
==>opic) = split " ", $event<rest>;
    $topic = strip_colon($topic);

    %channels{~normalize($chan)} <==
2	/Users/nnunley/pugs/t/packages/Test.pm	279	414	
==>g();
}

{
    sub my_pkg {
        return My::Package::pkg();
    }

    my package My::Package {
        sub pkg { $?PACKAGE }
    }

} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33491	33602	
==>nces are used to go deeper and
shallower in scope; C<sub { -1 }> is used to go down into a deeper
scope, and C<s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	803	939	
==>c";
    my $nprec = 1;
    if($prec) {
      $increment = $increment / 2;
      if($prec =~ /is looser\((.*?)\)/) {
        my $op = $dic <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	493	615	
==>(go cperl-mode ;))

our $iso8601_dur_re = rx:perl5:ix/\s*
        P \s*
        (?: (\d+) \s* Y )? \s*
        (?: (\d+) \s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4719	4849	
==>'; { $base = 16; goto term_bx0; }
    elsif ( $initchar eq 'o' ) { $baase = 8; goto term_bx0; }
    else
    {
      if ( exists $e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	557	672	
==>lues { @{ $_[0] } }
}

{
	package Blondie::Map;

	sub new {
		my $class = shift;
		bless {@_}, $class;
	}

	sub AUTO <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13395	13497	
==>st of the functions is a way
to provide a comment that refers to another file or test which must be
mad <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13453	13555	
==>st of the functions is a way
to provide a comment that refers to another file or test which must be
mad <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4483	4606	
==>$return_type = pop @context;

		warn "Unifying paramter types with thunk prototype in $app";

		my $i; my $unified_app = $ra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39937	40039	
==>either
version 2.1 of the License, or (at your option) any later version.  You
should have received a c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39937	40039	
==>either
version 2.1 of the License, or (at your option) any later version.  You
should have received a c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12038	12167	
==>wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12032	12161	
==>wrap @array items - see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2401	2548	
==>lt { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when :: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2401	2548	
==>lt { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }.perl); ''
            }

            when :: <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23216	23347	
==>ond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide("nil"),
			else => comb(
				fun => comb <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13432	13533	
==>That said, the use of internals is rather limited, and in a rather
  stable are of the code, so this m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7937	8036	
==>hod proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7937	8036	
==>hod proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	1117	1297	
==>@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	1117	1297	
==>@a[$_] + @b[$_]) for 0..@a.end;
                          }
                         }
                       });

=head1 TODO

many

=cut

=head1 AUTHOR

Chia-liang Kao, E<lt>clkao <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6087	6226	
==>ts look
          # good even on 640x480
          $str;
        },
      ],
      duration      => sprintf("%.02f", Time::Seconds->new($6)- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26264	26365	
==>hat subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30816	30917	
==>hat subset is the same as
those attribute names in the argument C<$attrs>.  The new Relation has all
o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1532	1684	
==>e => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1532	1635	
==>e => $_[0]{num_variable}() ,} }
    }
    unshift @rule_terms, 'match_variable';

    rule named_capture <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4800	4952	
==>mber of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have diffe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4800	4952	
==>mber of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have diffe <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1173	1286	
==>d with #lookahead
#     If rules taking arguments had any hope of working soon,
#     I would have said <!lookahea <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2313	2413	
==>| <interpolated_array> | <interpolated_hash>
  | <null_term>
  | <assertion>
  | <subrule>
  | <captu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17196	17301	
==>ended audience for the message
content.  The value is one or more language tags as defined by RFC
1766.  E <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17196	17301	
==>ended audience for the message
content.  The value is one or more language tags as defined by RFC
1766.  E <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2077	2180	
==>\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Rege <==
2	/Users/nnunley/pugs/util/package-osx.pl	4157	4259	
==>man/man3/Perl6::Bible::E02.3pm
        /usr/local/man/man3/Perl6::Bible::E03.3pm
        /usr/local/man <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1564	1717	
==>m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1564	1717	
==>m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7562	7674	
==>g data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7562	7674	
==>g data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> class takes care of much of <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11684	11803	
==>("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 00 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11684	11803	
==>("PONG $0");
    } else {
      debug "No handler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 00 <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	761	944	
==>rr warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    retur <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	761	944	
==>rr warn "missing option for -$0";
                    }
                }
            }
            default { @skipped.push($_) }
        }
    }
    unshift @args, @skipped;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2788	2928	
==>e {
    dSP;
    int pops_left;
    SV* perl_callback;
    I32 ret;
    IV matched;
    U32 start;
    int newstr;

    if(stringarg-strbeg < <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19493	19609	
==>,E0,E1) :-
  match_captures_get(I,E0,M), nonvar(M), %# XXX - excess caution
  M = [Str|_], %# XXX - need api
  re_par <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3067	3239	
==>p;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3067	3239	
==>p;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        m <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	193	306	
==>:= $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRA <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	193	306	
==>:= $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12920	13034	
==>n unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12920	13034	
==>n unless $.connected;

    # We haven't seen any traffic for at least $autoping seconds, so we
    # PING the serve <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	192	310	
==>iler {
    my $self = shift;

    my $class = $self->compiler_class;

    $class->require or die $UNIVERSAL::require::E <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3199	3311	
==>code<<<";
	    my $pil_tree = eval($pil_code);
	    #print STDERR $pil_tree;
	    my $failed = $@ || !defined $pi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	413	525	
==>print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1202	1314	
==>print Dump $match->();
    #print dump_tree $p6;
    #print Dumper $p6;
    # print "tail: ", substr( ${$match}-> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23703	23801	
==>onstructor, this module won't simply
send all commands immediately to the server, but creates a que <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23703	23801	
==>onstructor, this module won't simply
send all commands immediately to the server, but creates a que <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3725	3839	
==>elves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the gro <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3725	3839	
==>elves.  In the former example, when C<(bar)> runs,
C<multidex> will be, say, C<[3]> (on the fourth match of the gro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8994	9109	
==>ading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12471	12586	
==>ading === $!heading);

    return Relation.new(
        heading => $!heading,
        body => $!body.difference( $ot <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2840	2982	
==>der\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    * <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2840	2982	
==>der\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 Found",
    Str  :$cookie,
    Bool :$nph,
    * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1183	1285	
==>p:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@resp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1183	1285	
==>p:{ %entity_header{uc $_} = 1 };

our @header_order = (
 *@general_headers,
 *@request_headers,
 *@resp <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1915	2024	
==>eop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1926	2035	
==>eop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capturing_subrule,
    \&subrule,
);

# <ws>* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2491	2602	
==>b is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2491	2602	
==>b is_server_error ($code) is export(:DEFAULT)   { 500 <= $code < 600 }
    sub is_client_error ($code) is export <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1787	1928	
==>r underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = check( $tmpl, \%hash ) 
                        or er <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3887	4000	
==>> $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3899	4012	
==>> $x ,} }
Named captures:
    $a := (.*?)  
        $a is something in the outer lexical scope (TimToady on #perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4399	4491	
==>h

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4399	4491	
==>h

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1.0.1.

=head1 SY <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7053	7163	
==>($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize acro <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7053	7163	
==>($path_volume) = splitpath($path, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize acro <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23888	24008	
==>tart. */
  #define REXEC_NOT_FIRST 0x10            /* This is another iteration of //g. */
  #define REXEC_ML        0x20 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29065	29166	
==>tart. */
 #define REXEC_NOT_FIRST	0x10		/* This is another iteration of //g. */
 #define REXEC_ML	0x20 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3431	3547	
==>git => 1);
  });

  # digit (a digit)
  $self->add_handler('\d' => sub {
    my ($S, $cc) = @_;
    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3779	3886	
==>ops, Runtime::Perl5::RuleOps::compile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n" <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11660	11753	
==><cmp>.

=item Pair(KeyExtractor, Comparator)

A combination of the two methods above, for when <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11011	11113	
==>return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always overr <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11011	11113	
==>return @blocks;
}

# Compile/Filter some source code into something else. This is almost
# always overr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	185	331	
==>sub compile {
    my ( $class, $rule_source, $param ) = @_;
    $param = ref $param ? { %$param } : {}; 
    delete $param->{P5};
    delete $pa <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8408	8516	
==>Dumper(@_);
};

# binary operators must have the same symbol, and are also unified recursively
multi unify => <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1722	1924	
==>-I % echo $Site/% >> $meta_dir/$Fileslist] )   
                                                            and die $?;
            
            ### dependencies satisfied?
            {   my $info = Loa <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	312	419	
==>cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	312	419	
==>cut

#'

use Cipher;
class Cipher::TestGuts is Cipher {
    has int $.num_invocations;

    method _head() { <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2266	2392	
==>ould return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebasti <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2266	2392	
==>ould return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

=back

=head1 AUTHOR

Sebasti <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4801	5044	
==>edly_apply_and_accum'),
                            Sym->new('&f'),
                            App->new(
                                Sym->new('&f'),
                                Sym->new('$accum'),
                                Sym->n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12631	12800	
==>`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12631	12800	
==>`{3,})/$1`/gm;
    $source =~ s/(^={3,})/$1=/gm;

    while (1) {
        no warnings;
        $source =~ s/
            (
                $re_pod |
                $re_c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1878	2001	
==>ift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1878	2001	
==>ift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.stringify }.join(":");
        if <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2679	2785	
==>.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2679	2785	
==>.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other.members) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13225	13321	
==>key}> in all it's forms. Below are some
example translations. This list is I<not> exhaustive.

 d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21586	21679	
==>exp::Parser::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

This module holds the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	141	241	
==>s 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	141	241	
==>s 
inside.

=head1 SECURITY

This cipher doesn't even use the plaintext.  I suppose that means it's a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26196	26293	
==>on::Example Body>

Set of Mapping(Str) of Any - This contains zero or more member tuples of
the Re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2160	2283	
==>() {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expressi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2160	2283	
==>() {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expression' }
}

# PILCode :: [Stmt] -> Expressi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7657	7780	
==>if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11134	11257	
==>if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7407	7504	
==>vent<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7407	7504	
==>vent<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kickee) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5973	6110	
==>eturn
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5973	6110	
==>eturn
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1204	1320	
==>elf.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( In <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1204	1320	
==>elf.next( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( In <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4862	4995	
==>($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4862	4995	
==>($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3182	3318	
==>d' => sub ($) {
            ::opaque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3910	4020	
==>d'    => sub ($) { ::opaque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2103	2201	
==>/ object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2192	2290	
==>/ object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pugs::Gra <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	868	1074	
==>);
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $. <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	868	1074	
==>);
                if $wfile_cb( $node, $dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5072	5190	
==>ec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5072	5190	
==>ec-to-hex converter
    # which will be able to handle the 0-255 values
    my @hex = <0 1 2 3 4 5 6 7 8 9 A B C D E F> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5249	5356	
==>}
		$type;
	}

	sub display_type {
		my $self = shift;
		my $type = $self->simplify_type(@_);
		Scalar::Util <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2278	2383	
==>» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2278	2383	
==>» (Set $one, Set $two) {
    $one.proper_subset($two);
}
multi sub *infix:«⊋» (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	104	225	
==>od BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad R <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	104	225	
==>od BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad R <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	2613	2798	
==>=> $self->get_test_number(),
                    '$.reason'      =>  $reason,
                    '$.description' =>  $description,
                )
            );
            return $p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	776	887	
==>n" effect of
adding more superclasses to a Class, all of the methods that are
included via roles will be able to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4407	4521	
==>interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4407	4521	
==>interpolation?
        return "$_[1] hash( \\$name )\n" if $name =~ /::/;
        return "$_[1] hash( get_variable( <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11466	11585	
==>hers) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14943	15062	
==>hers) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2205	2318	
==>$self->{$stage};
	return 1 if defined $result && $result->has_failed();
    }
    return 0;
}
sub warnings {
    m <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	7418	7531	
==>nals::VRule, Str)\
\\n   List      pre     split   safe   (Pugs::Internals::VRule, Str, Int)\
\\n   List      spre <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6948	7143	
==>:Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::Tr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6948	7143	
==>:Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        unless %seen{$x} { 
                            %seen{$x} = Bool::Tr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17757	17879	
==>ew_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's B <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17757	17879	
==>ew_bot(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircname  => "Ingo's B <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1822	1926	
==>ects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGH <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1822	1926	
==>ects:

- `start()`

Returns the start.

  # XXX

= AUTHOR

Flavio S. Glock, <fglock@pucrs.br>

= COPYRIGH <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	116	217	
==>mance reality check.
# Hopefully it will develop into a p6 rules engine, and then a p6
# parser, for p <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	254	377	
==>escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_esca <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	254	377	
==>escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi sub uri_esca <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2270	2371	
==>vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SEL <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2270	2371	
==>vars => %msg_vars );
}

my method _assert_arg_rt_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SEL <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2673	2940	
==>xample

###########################################################################
###########################################################################
=x

class Relation::Example-0.1.0 {

    # External packages used by the Relation::Example class, that do ex <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2185	2330	
==>ate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return : <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2390	2535	
==>ate_class(
    '$:name'    => 'Class',
    '%:methods' => {
        'new' => sub ($%) {
            my ($class, %attrs) = @_;
            return : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3269	3419	
==>{
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3462	3612	
==>{
        bool  => $bool,
        match => { 'word'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	826	947	
==>tter names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * cr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	826	947	
==>tter names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizations:
    * cr <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	11386	11532	
==>@files) {
        my ($src, $dest) = @$_;
        copy $src => $dest;
        chmod 0755, $dest;
      };
    };

  step
    descr  => "Copying Per <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	96	191	
==>es);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	96	191	
==>es);
#@EXPORT_OK = qw(%entity_to_char %char_to_entity encode_entities_numeric);

my %entity_to_c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1103	1230	
==>nd => '\b');
  });

  $self->add_handler('\B' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, "B", " in character class <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20869	20964	
==>d setsockopt shutdown slurp socket socketpair stat symlink
# syscall sysopen sysread sysseek sys <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4941	5068	
==>$program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5163	5290	
==>$program;
    }
    return $program;

}

sub get_data {
    match::get( { capture => $_[0] }, $_[1] ) 
}
sub get_str {
    match <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3211	3340	
==>my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3404	3533	
==>my $bool = $_[0] =~ /^([_[:alnum:]]+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'word'=> $1 },
        tail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	379	493	
==>f - match failed



or a hash containing:



    state - a "continuation" or undef

    bool - an "assertion" (true <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	361	470	
==>f - match failed

or a hash containing:

    state - a "continuation" or undef
    bool - an "assertion" (true <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3598	3719	
==>eresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or uml <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3598	3719	
==>eresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or uml <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1360	1499	
==>();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi subm <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1360	1499	
==>();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# day as Str where { rx:i/^last$/ }
multi subm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	695	798	
==>notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	695	798	
==>notice(to => $reply_to, text => $reply_msg);
    }
  });
}

method seen(Str $nick) { %!seen{./normalize( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8791	8925	
==>ASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev = $blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8791	8925	
==>ASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        push @blocks, $block;
        $prev = $blo <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1037	1137	
==>hing else like C<t>, or maybe they are one and the same as what
you get when you use the C<type> keyw <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2665	2829	
==>hod Array::pop (@array is rw : --> Scalar) {
#    @array.splice(-1,1);
#}

# copied from S29draft.pod r8649.
# signature doesnt parse. using simplified one.
#multi A <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	506	604	
==>, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	506	604	
==>, not just letters.

Cipher::Caesar conforms to the standard Cipher API; see L<Cipher/Using the 
Ci <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7278	7390	
==>($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7336	7448	
==>($todo) test ($?CALLER::CALLER::CALLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2716	2813	
==>it_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2716	2813	
==>it_grammar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	4090	4204	
==>perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::imm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4939	5053	
==>perl5:\n", $_[0] if $@;
    die $@ if $@;
    return $res;
}
sub node::variable {
    return $_[0];
}
sub node::imm <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1464	1568	
==>tr $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1464	1568	
==>tr $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::e <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14807	14903	
==>ds of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will n <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14865	14961	
==>ds of the cmp_ok() function.

- is_deeply

Once nested data structures are implemented, we will n <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	543	688	
==>s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && do {
            my($key, $val) = ( <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	383	479	
==>a L<Type>), which is used for
dispatching private methods.

=back

Normally, when you declare a M <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9902	10004	
==>IT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9902	10004	
==>IT;
    my Rosetta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'n <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9185	9312	
==>P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX c <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9185	9312	
==>P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4031	4131	
==>kCommentChars>?
}
rule MultiLineNotAsteriskChar {  # see 7.4
      <-[*]> #SourceCharacter but not .. <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11245	11357	
==>iversal set) that is not in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recur <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11245	11357	
==>iversal set) that is not in this recurrence.

- `union( $recurrence )`

Returns all elements both from this recur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25920	26031	
==>o or more variable names and values
that are associated with the message, and can be interpolated into the
human <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25920	26031	
==>o or more variable names and values
that are associated with the message, and can be interpolated into the
human <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	767	889	
==>~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	767	889	
==>~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38707	38801	
==>n variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable na <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38707	38801	
==>n variable name will be replaced, non-recursively,
and any "<foo>" not matched by a variable na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2050	2189	
==>_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2243	2382	
==>_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "rule" )
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5985	6106	
==>_bailout} = 1;
    }
    else {
        $type = 'other';
    }

    $self->{callback}->($self, $line, $type, $totals) if $ <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3734	3839	
==>line\n".
        "9th line\n8th line\n7th line\n6th line\n5th line\n".
        "4th line\n3rd line\n2nd li <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3221	3359	
==>stance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a sub <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3940	4053	
==>stance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12274	12383	
==>hild Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute defaults to empty if <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12274	12383	
==>hild Nodes of that new Node) that gets stored in the Root
Nodes attribute (that attribute defaults to empty if <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7290	7389	
==>-q lock.
  sysopen my $fh, BUCKET, O_RDWR|O_CREAT
    or die "Couldn't open \"@{[ BUCKET ]}\": $!\n" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2699	2818	
==>returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object r <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3163	3282	
==>returns a list of
    ### its dependencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17331	17461	
==>my $ai = 0;
    my $str = "";
    while ($fi < $flen) {
        # optional non-conversion text
        my $idx = index($fmt,"%",$fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	376	498	
==>ler::Rule->compile(<<'RULE')->code();

    <immediate_statement_rule>*
        { return $() }
RULE
*{'indirect_object'} = P <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	967	1068	
==>output_filehandle);


=head1 DESCRIPTION

B<THIS IS ALPHA SOFTWARE> in that the interface is subject t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4952	5058	
==>r)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4952	5058	
==>r)',
  'pArgs' ,'[PIL_Expr]';
node_h 'PIL_LValue',           'PAssign', 
  'pLHS'  ,'[PIL_LValue]',
  'pRHS <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2824	2963	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1446	1585	
==>*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2773	2872	
==>:Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2773	2872	
==>:Compiler::Rule->compile(q(
    <VariableDeclaration> <ws>? <ProductionRule>
    { use v5; return $< <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9014	9133	
==>ependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10491	10610	
==>ependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ shift || [] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3319	3450	
==>rt = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3319	3450	
==>rt = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $sp <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4467	4629	
==>fier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code & <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4467	4629	
==>fier_stack;
    my $in_code = 0;
    for (@tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code & <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1610	1722	
==>od BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complem <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1610	1722	
==>od BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complem <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1805	1900	
==>lattenning $node " . (eval { $node->struct_equiv } || "(not an object)");

		Scalar::Util::bless <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	630	725	
==>rint

Pretty prints the dependency declaration from the META.info.
It will turn an entry like th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	250	378	
==>::Message::Simple    qw[:STD];
use YAML                    qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24382	24494	
==>$self->{data}[1]->visual, ")";
  }
}


{
  # the N in (?(N)t|f) when N is a number
  package Regexp::Parser::grou <==
2	/Users/nnunley/pugs/util/run-smoke.pl	3174	3284	
==>'t run user smoke upload command: $!";
}

sub check_prereq {
    my ($mod) = @_;
    (my $file = $mod) =~ s,::, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18568	18659	
==>ecifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attribute <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18568	18659	
==>ecifically, export_as_hash() returns a Perl hash ref whose key list
('node_type', 'attribute <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4140	4235	
==>position) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ />/ ) <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	444	541	
==>ction *@indextests) returns List of Object
multi sub kv     (@array ; Any|Junction *@indextests) r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1711	1944	
==>t( "alnum" )
                 ,
                   ruleop::constant( "digit" )
                 ,
             ] )
           ,
         )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34937	35097	
==>o_while(
                    block->new($e, sub {
                       my $e = shift;
                       ($e->get('$return') == $bit::FALSE && $e->get('$ne <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	725	872	
==>rst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      i <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	725	872	
==>rst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # be bursty
      i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	77	214	
==>ock cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# T <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	77	214	
==>ock cipher has to implement
method cipher_block(Array $data) returns Array {...}
method _zeroize()                              {...}

# T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	840	944	
==>ay "Hello, $x!";



Pugs::Parser gets it, turns it into a AST node (the API is

specified in Perl6::API:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	796	897	
==>ay "Hello, $x!";

Pugs::Parser gets it, turns it into a AST node (the API is
specified in Perl6::API:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3884	3982	
==>ator {

    # External packages used by the Locale::KeyedText::Translator class, that do export sym <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3884	3982	
==>ator {

    # External packages used by the Locale::KeyedText::Translator class, that do export sym <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3468	3568	
==>} = sub { '20 ' };
print Test->a.$/;
print &Test::a.$/;
print $Test::a.$/;


${'rule'} = Pugs::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3556	3675	
==>self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, an <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3556	3675	
==>self<nick>($nickgen<next>());
    }
  }];

  # /WHO (we /WHO ourselves so we can provide accurate username, hostname, an <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	820	965	
==>time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # w <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	820	965	
==>time < 7200) {  # two hours
      # be bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # w <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2305	2431	
==>r;
		}
	        print "{}\n";
		next;
	    } elsif ($file[0] eq '=') {
		print '}\end{block}' if $inblock;
		$inblock = 1;
		pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	906	1013	
==>@_;
    no strict qw( refs );
    ${"${class}::hash"}{$key} = Pugs::Compiler::Regex->compile( 
        $rule <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1696	1804	
==>code (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) re <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1696	1804	
==>code (Str $string) {
  my @oct = split('',$string);
  [~] encode(@oct);
}

multi encode (*@string is copy) re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34204	34301	
==>t>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38754	38851	
==>t>.

=item C<semidifference (Relation $other!) returns Relation>

This method is a generic relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	347	452	
==>variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	347	452	
==>variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnum:] <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6355	6456	
==>ub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6355	6456	
==>ub _normalize_parameter ( $self, $param ) {
    # TODO - reorder these rules or move to the subclasses <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1647	1755	
==>or $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1852	1960	
==>or $label";
    }
}

# The 'Class' class -- placed here so ::create_class can refer to it
my $Class;

sub ::c <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8391	8498	
==>rn $self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert_ghc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2786	2925	
==>s $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2786	2925	
==>s $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1744	1858	
==>eresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1744	1858	
==>eresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uacute"   => 'Ú',  # capital U, acu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10312	10411	
==>e or more header fields.  The header field
name ($field) is not case sensitive.  To make the life ea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10312	10411	
==>e or more header fields.  The header field
name ($field) is not case sensitive.  To make the life ea <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5014	5140	
==>bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5207	5333	
==>bool  => $bool,
        match => { 'negated_subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3681	3837	
==>s_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3681	3837	
==>s_open;
    }
    return $self.new( start => $i_start,
                 end =>   $i_end,
                 start_is_open => $open_start,
                 end_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	638	798	
==>tr($_[0],0,1) ] ) : () ),

    };

}

sub ws {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws'=> $1 },

        tail  => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	614	766	
==>tr($_[0],0,1) ] ) : () ),
    };
}
sub ws {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws'=> $1 },
        tail  => $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2244	2352	
==>RANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2244	2352	
==>RANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Array ?? @$v !! $v if d <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	637	746	
==>}

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_ato <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	604	713	
==>}

    $|++;
    print "Fetching '$file' from $host... ";

    unless (eval { require Socket; Socket::inet_ato <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14184	14314	
==>' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14184	14314	
==>' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	807	913	
==>$pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_par <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	807	913	
==>$pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $description );
}

sub pil_par <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6530	6644	
==>a signleton method on the class instance)

$Object->add_singleton_method('singleton_test_on_object' => sub { 
    ' <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp1.pl	18	124	
==>ktionsaufruf in Perl 5 (und 6?)
sub hallo {
	"Hallo, $_[0]!" # geht derzeit mit pugs
}

print "Otto sagt: " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7558	7655	
==>oming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> class ta <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7558	7655	
==>oming data, and the remaining data should be 
padded and ciphered.  (The L<Cipher::Block> class ta <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8151	8256	
==>ring, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.es <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8151	8256	
==>ring, Bool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.es <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7504	7591	
==>test(lookahead(R))      --> p5_elemental(lookahead(R)).
p5_condition_test(lookahead_not( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6065	6185	
==>eturns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6065	6185	
==>eturns bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15919	16060	
==>{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16198	16339	
==>{'block'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\{" )
       ,
         ruleop::capture( 'list <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5892	6110	
==>q(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5892	6110	
==>q(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Port';
                                $p ~= qq(="$p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3919	4034	
==>m} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4059	4174	
==>m} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs::Runtime::Match->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9400	9525	
==>$how);
  });

  # word POSIX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1554	1672	
==>method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1554	1672	
==>method parse_headers {
    my @headers;
    my Str $chunk = '';
    while $chunk = $.remote.readline {
        $chunk ~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5884	6067	
==>>{out}= \$_[1] } \n" ;
                        next;
                    }
                    my $t = $rule_templates{"$op->{fixity}_$op->{assoc}"};
                    unless ( d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4498	4599	
==>ssert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4498	4599	
==>ssert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!memb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2924	3095	
==>\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2924	3095	
==>\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1994	2114	
==>ut);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    retur <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1994	2114	
==>ut);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return value here?
    retur <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	2283	2457	
==>pod 8651.
 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             --> List )
{...}


# signa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9997	10109	
==>connect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $conne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9997	10109	
==>connect methods
    connect    => { $self<reconnect>() },
    reconnect  => {
      $self<disconnect>() if $conne <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1454	1549	
==>export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1454	1549	
==>export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) retur <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8730	8838	
==>g = 'ghc-pkg'; # fallback if !/^ghc/


        my $ghc_exe = $self->can_run($ghc_pkg) || $self->can_run('ghc- <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	13	107	
==>0.1-cpan:ASAVIGE;

# Super simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.n <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16768	16856	
==>='> <RelationalExpressionNoIn>
    | <EqualityExpressionNoIn> <'!=='> <RelationalExpressi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	724	828	
==>i-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API ope <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	724	828	
==>i-byte blocks; 
the API does not support enciphering individual bits.  Also note that the 
Cipher API ope <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1356	1465	
==>\n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\r' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18217	18313	
==>such as
'error opening file', programs would have a harder time figuring out the
best way to deal <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18217	18313	
==>such as
'error opening file', programs would have a harder time figuring out the
best way to deal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11473	11596	
==>f +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11473	11596	
==>f +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5479	5580	
==>t " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5479	5580	
==>t " ", $event<rest>)[0];

    unless defined %cache353{$chan} {
      %cache353{$chan} = %channels{$ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11667	11801	
==>'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11661	11795	
==>'$str' not implemented";
}
sub constant {
    call_constant( @_ );
}

use vars qw( %char_class );
BEGIN {
    %char_class = map { $_ => <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1041	1159	
==>/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @wit <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1041	1159	
==>/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @wit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48908	49053	
==>ethod::params->new(
                              symbol->new('$self:' => 'opaque'),
                              symbol->new('?$version' => 'str <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10540	10662	
==>nitrd_mnt/bin/parrot"],
    [$bash                 => "$initrd_mnt/bin/bash"],
    [$inputrc              => "$initrd_mnt/e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5122	5263	
==>e },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.n <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5122	5263	
==>e },
        );
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.n <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2277	2374	
==>test, assigning it the given C<$name>
for use in the total report.  Returns the C<%results> of the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12457	12564	
==>cement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12457	12564	
==>cement for '-'.

The $value argument may be a scalar or a reference to a list of
scalars.

=item $h.remove_h <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5014	5187	
==>];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5338	5511	
==>];  # keys: "pLHS""pRHS"
        dbg "# keys: ",%pad.keys;
        dbg "# Assign to:      "; my $to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6218	6329	
==>eturn $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

metho <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6218	6329	
==>eturn $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    return $self.start > $self.end;
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11852	11965	
==>11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11852	11965	
==>11 things
    
    $one_day = Date::Duration.new( days => 1 );
    $date_span = Span.new( :density($one_day), star <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	832	926	
==>SION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	832	926	
==>SION

This document describes Rosetta::L::en version 0.210.1.

=head1 SYNOPSIS

I<This document <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15834	15929	
==>ack

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15834	15929	
==>ack

This is the main Node constructor method:

=over

=item C<new( :$document!, :$parent_node?, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3016	3157	
==>ndex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3480	3621	
==>ndex ); 
        my @avail   = LoadFile( $protoconf::Available );

        ### XXX move the AND to the subroutine
        if( $print and @deps <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5964	6073	
==>insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5964	6073	
==>insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %channels{~norm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16465	16603	
==>arn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12886	13024	
==>arn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->ad <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3600	3714	
==>ent {  # see 7.4
      <MultiLineComment>
    | <SingleLineComment>
}
rule MultiLineComment {  # see 7.4
      <'/* <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	9379	9519	
==>ion =>  $description,
          )
      );
  
      return $passed;
  }
  
  method diag ( Str $diagnostic = '' )
  {
      $.output.diag( $d <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6592	6685	
==>r;})');

my $Perl_prog = def_rule('prog','<statement>*');

my $source = `cat parser_spike_targ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3776	3997	
==>okie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3776	3997	
==>okie attribute was empty
                                $found++ if $port eq $req_port;
                                $port = "";
                            } else {
                                for $port.split(',') <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17640	17740	
==>return defined $node ? String::Escape::qprintable($node) : "undef";
    }
}


package Digest;

sub co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6588	6704	
==>ve been embedded in a core program file and hence
        # should never be loaded by translate_message().
        my <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6588	6704	
==>ve been embedded in a core program file and hence
        # should never be loaded by translate_message().
        my <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3760	4019	
==><TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3760	4019	
==><TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13783	13922	
==>s
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        ) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13783	13922	
==>s
            member_names => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        ) <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4211	4512	
==>>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4211	4512	
==>>\n");                     
                }
                when 'list' {
                    $fh.print("</UL>\n");
                }  
                when 'item' {
                    $fh.print("</LI>\n");
                }                
                when 'paragraph' {
                    $fh <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15317	15420	
==>Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15317	15420	
==>Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	57	158	
==>ter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	57	158	
==>ter

# XXX - cleanup unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7919	8123	
==>depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1220	1424	
==>depends on $pkg ***\n";
                        $delete_ok = 0;
                    }
                }
            }      
        }
        
        die "Not allowed to delete '$pkg'\n" unless $delete_ok <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5302	5423	
==>ex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(12 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5302	5423	
==>ex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(12 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8525	8630	
==>g it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take responsibility for <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8525	8630	
==>g it in any 
sensitive application.>

B<I<The authors and copyright holders DO NOT take responsibility for <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37928	38019	
==>le_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37928	38019	
==>le_name.get_text_by_key(
$msg_key ) and return that subroutine's result, which is a Template <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	599	695	
==>_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	645	739	
==>_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Perl6->parse( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16188	16282	
==>type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" at <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16188	16282	
==>type (a
string); the optional named parameter %attributes (a hash ref) sets the
"Attributes" at <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3326	3427	
==>x = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3326	3427	
==>x = split('',$didget);
		  @index = grep {$_ ~~ /^<[A..Za..z0..9+\/=]>+$/},@index;
		  [~] map {chr ($ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6556	6672	
==>array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Contain <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6556	6672	
==>array.shift } 
# method previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Contain <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19614	19719	
==>::List::list ( *@list --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conve <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6276	6370	
==>remove the registered alternative
        $self->remove_registered_alternative( package => $unl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17509	17606	
==>ombined into one class, I<quantifier>.  You pass it the min and max,
and the object's C<type> is d <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3201	3337	
==>>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3201	3337	
==>>);
    });
    return << "...";
#line 1 #########((( 32-bit Checksum Validator II )))################
BEGIN { use 5.006; local (*F, \$/) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19744	19846	
==>current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19744	19846	
==>current Perl-based solution will also be kept due to its more
dynamic capabilities.>

I was inspired to <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10230	10363	
==>');
  });

  $self->add_handler('^^' => sub {
    my ($S) = @_;
    return $S->object(bol => bol => '^^');
  });


  ### '&'


  ### ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	760	908	
==>, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	760	908	
==>, Bool $.hide_cookie2 = 0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance metho <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	79	222	
==>D ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        retu <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	79	222	
==>D ( $!expect = 0 )
    {
        fail "Invalid or missing plan" unless defined $!expect;
    }

    method header returns Str
    {
        retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5749	5851	
==>if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5749	5851	
==>if ($str ~~ s:P5/(^|.*?\r?\n)--\Q$boundary\E\r?\n//) {
                @!parts = split(rx:P5/\r?\n--\Q$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4117	4252	
==>wn => 1,
    }, $class;
    return $self;
  }

  sub qr {
    my $self = shift;
    join "", $self->raw, map($_->qr, @{ $self->{data} }) <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10460	10594	
==>gs                 => "$initrd_mnt/bin/pugs"],
    ["$parrot_path/parrot" => "$initrd_mnt/bin/parrot"],
    [$bash                 => " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22597	22689	
==>onnected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22597	22689	
==>onnected for a few seconds.

=head2 C<$botE<lt>nickE<gt>("newnick")>

Tries to change the bot <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5652	5760	
==>inite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5652	5760	
==>inite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro lazy ($self: ) {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3126	3237	
==>e && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3114	3225	
==>e && $_[0]->{ws3} ne '' ) ? " &&\n$ws" : '';
    my $rul = emit_rule( $term, $tab );
    $rul = "$ws &&\n$rul" i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15107	15261	
==>o be instantiated to the concrete values as inferred in the body of the function, based on the param
	types::unify(
		$p, $p_f,
		$.fun, $.param,
	);

	# t <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5192	5289	
==>rnel-local=s" => \$kernel_local,
  "grub-local=s"   => \$grub_local,
  "parrot-path=s"  => \$parro <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1771	1885	
==>rl6::Run::OnPerl5::X1::CodeCompile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	10176	10366	
==>:methods'))
                  ->remove($e->get('$label'));                                                  
            }
        )
    )
);

=pod

method get_method_list (opaque $self:) ret <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	200	309	
==>ument differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Arra <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	200	309	
==>ument differences from Perl5 DateTime::Span
        - Perl5 version uses Set::Infinite; this version uses Arra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24595	24696	
==>turn $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21016	21117	
==>turn $S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handl <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1341	1493	
==>$sub_seq->tail->to_native);
                # NOTE:
                # jump out as soon as we find one matching
                # there is no reason not t <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	856	978	
==>>{author}");
        $self->{admin} = 
          "$self->{name}::$self->{dispatch}"->new(_top => $self);
        $self->{ad <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2691	2804	
==>>{author}");
        $self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
        $self->{ad <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	499	606	
==>r die $UNIVERSAL::require::ERROR;
    $class->new;
}

sub provides {
    my $self = shift;
	my $node = shift <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	4452	4540	
==>r Point3D');
is($p3d->prototype->prototype->class, \&Object, '... go the right super-supe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4590	4712	
==>= emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4373	4490	
==>= emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = sprintf('%08X', unpack('%32N*', $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6075	6172	
==>ubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6075	6172	
==>ubPointy';
node_s 'SubType', 'SubPrim';

node_s 'Val', 'VUndef';
node_a 'Val', 'VBool' , 'xVal' ,' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	434	589	
==>r = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.spl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	434	589	
==>r = "";
        }
        
        my $self = ../parse($str);
        
        given ($self) {
            my ($method, $uri, $protocol) = $request_line.spl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	51	142	
==>er;
use base qw/Blondie::Emitter Blondie::Reducer::DynamicScoping/;

use strict;
use warning <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34409	34513	
==>med
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38959	39063	
==>med
C<semiminus> and C<not_matching>.

=item C<semijoin (Relation $other!) returns Relation>

This method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	533	685	
==>ch}->{tail}, 0, 20 ),"...\n";
    exit;
}

#use Test::More 'no_plan';
print q(#if key:<val> {10 + $a / "abc"}),"\n";
my $match = Pugs::Grammar::Per <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2958	3046	
==>numbers.........ok
  t/ok................ok
  t/test-harness......ok
  t/waterloo........ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6236	6340	
==>channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6236	6340	
==>channel. Update %channels and %users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normaliz <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16373	16472	
==>.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and pot <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16373	16472	
==>.g.>:

  $h.content_type = 'text/html';

The value returned will be converted to lower case, and pot <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5727	5858	
==>tch.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5727	5858	
==>tch.clone(multidex => [ *$mdex, 0 ])),
                -> $m { 
                    &continue($m.clone(match => $m.match.clone(multi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5848	5964	
==>defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5848	5964	
==>defined $n;
        yield $n;
    }
}

} # class Set::Infinite

class Set::Infinite::Iterator
{
    has $.current_spa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3150	3288	
==>stuff
        system( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read mani <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	283	395	
==>------

my %Cookies;

sub CookiesInit() {
    %Cookies=();
    if (%*ENV{'HTTP_COOKIE'} ne '') {
        for (spl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15817	15953	
==>st;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { iden <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15811	15947	
==>st;
        my @param = split( ',', $param_list );
        # TODO - send $pos to subrule
        return named_capture(
            { iden <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3478	3589	
==>in quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo ( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3478	3589	
==>in quantified expressions are "parallelized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9218	9334	
==>block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9218	9334	
==>block->[CLASSES]}, $offset, $length);
    for my $klass (@classes) {
        local $_ = $text;
        my $return = $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2308	2497	
==>ppen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2308	2497	
==>ppen
                }
                
                # Want to add cookies corresponding to the most specific paths
                # first (i.e. longest path first)
                for $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17299	17394	
==>osetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual mac <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17299	17394	
==>osetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual mac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19894	19989	
==>e_object() creates an
object no matter what pass the parser is making; object() will return
imme <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	301	405	
==>= Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	301	405	
==>= Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( st <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7315	7435	
==>rt_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7315	7435	
==>rt_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $ret = $span0.new( :star <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2278	2396	
==>lanced::extract_delimited( $_[0], "'" );

    $extracted = substr( $extracted, 1, -1 );

    return { 

        bool  = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2189	2304	
==>lanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 );
    return { 
        bool  = <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2038	2134	
==>'s package name.  (For example, if 
a function in C<Some::Module> called C<note> without providin <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2038	2134	
==>'s package name.  (For example, if 
a function in C<Some::Module> called C<note> without providin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4717	4836	
==>e.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4717	4836	
==>e.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    my $tmp = $self.union( $s <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1638	1737	
==>mand line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nma <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1478	1577	
==>mand line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nma <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2264	2398	
==>dles) {
        push @$dir, map "$_->[1]", @{$self->bundles};
        delete $prereq->{$_->[0]} for @{$self->bundles};
    }

    if (m <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	1976	2166	
==>ore($value);
            },
            hash_fetchKeys => sub {
                my $self = shift;
                keys %{ $self->hash_fetch };
            },
            hash_deleteElem => su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9534	9627	
==>et1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a prop <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9534	9627	
==>et1.proper_subset($set2)>, C<$set1.proper_superset($set2)>

Returns true if C<$set1> is a prop <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2344	2541	
==>{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2344	2541	
==>{ _box_submatch( $_[0], $m ) };
            while ( my ($k, $v) = each %h ) {
                my @v = ref($v) eq 'ARRAY' ? @$v : 
                        defined $v ? $v :
                        () <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14527	14643	
==>how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8729	8845	
==>how);
  });

  # print POSIX class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5316	5419	
==>Glob, $pilMain) {
    join("\n",map{DOWN($_)} @$pilGlob,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStm <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1378	1482	
==>hout any parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1378	1482	
==>hout any parameters, returns an empty span.

- `new( start => $dstart )`

Given a start object, returns a <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3799	3910	
==>S29draft.pod.
# Prim.hs line is \\n   Scalar    pre     max     safe   (List)\
multi List::max(Code $cmp = &infi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10359	10467	
==>TRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmai <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10359	10467	
==>TRUCTORS

- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmai <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4232	4440	
==>};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4232	4440	
==>};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = splitpath($pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2692	2788	
==>ammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warni <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2692	2788	
==>ammar: ", $statement->emit_grammar_perl6();

# ------------

package main;

use strict;
use warni <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3014	3129	
==>= ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3002	3117	
==>= ( $quantifier eq '' ) ? $_[1] : $_[1] . "  ";
    my $ws = metasyntax( '?ws', $tab );
    my $ws3 = ( $sigspace && <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	398	501	
==>sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  not <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	398	501	
==>sub *infix:<-> (Set $one, Set $two) {
    $one.difference($two);
}

# unicode difference operator
#  not <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4071	4191	
==>@.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    el <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4071	4191	
==>@.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    if $key.isa(Array)  { @key = *$key }
    el <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11309	11413	
==>tines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11309	11413	
==>tines

sub byteify(Str $string) returns Array of Int {
    return map {.ord}, $string.split('');
}
sub st <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20381	20476	
==>e interface of Relation is entirely object-oriented; you use it by
creating objects from its mem <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24933	25028	
==>e interface of Relation is entirely object-oriented; you use it by
creating objects from its mem <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6265	6394	
==>$0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6265	6394	
==>$0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3120	3225	
==>ift;
	
	$self->shallow_clone;
}

sub shallow_clone {
	my $self = shift;
	bless {%$self}, (ref $self);
}

s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4557	4778	
==>te}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4557	4778	
==>te}, 0 );
                }
                ### backtracking - state: @state
                ### backtracking - match: @matches
                next;
            }
            
            }
            #print "Matched con <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5423	5535	
==>$_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5423	5535	
==>$_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1774	1903	
==>g $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1774	1903	
==>g $method\n";
            my $match = Pugs::Grammar::Rule->$method(@_);
            #warn "Match $method ".Dumper($match) if $matc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1953	2052	
==>onpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1953	2052	
==>onpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path[2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5257	5353	
==>ference to the current value, 
this allows r/w access to the value.

=item B<apply (closure) retu <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4559	4659	
==>ze` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4559	4659	
==>ze` will be a duration.

- `intersects( $set )`

This method return a logical value.

- union( $set ) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	344	443	
==>eapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	344	443	
==>eapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5068	5176	
==>cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5068	5176	
==>cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<user <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1336	1451	
==>d Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1336	1451	
==>d Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has Code $.cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3331	3467	
==>$self, $level, $opt);
            return;
        }
    }
    if ( ! defined $opt->{precedence} ) {
        push @{$self->{levels}}, <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9556	9673	
==>ander = document.getElementById("expander_" + id);
      if(elem.className == "details") {
	elem.className = "";  /* h <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11242	11344	
==>ethod
fails_ok { $iBar->name } '... instance calling metaclass method fails';
fails_ok { $iBar->another <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	1128	1230	
==>mmar}, $self->{ast}(), $self );
    };
    carp "Error in perl 5 emitter: $@\nSource:\n$self->{perl5} <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2154	2256	
==>:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=h <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2154	2256	
==>:<∏>(@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8994	9103	
==>$how) = @_;
    return $S->force_object(anyof_class => punct => $neg, $how);
  });

  # space POSIX class
  $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1434	1571	
==>/s;

    return;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'= <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1377	1507	
==>/s;
    return;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'= <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1837	1972	
==>art_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_elemen <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1837	1972	
==>art_document => { $fh.print("=pod\n\n") },
        end_document   => { $fh.print("=cut")     },

        # Elements
        start_elemen <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	997	1163	
==>nless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	997	1163	
==>nless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class);
               }
               # XXX <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2672	2833	
==>erl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2865	3026	
==>erl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $cap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9219	9362	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9412	9555	
==>eturn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alte <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1151	1274	
==>ib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $ful <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1151	1274	
==>ib,
        sitearch => $sitearch,
        sitelib => $sitelib,
    };
}

my $postamble = '';
sub fix_makefile {
    my $ful <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6119	6251	
==>content =~ m/
        =head \d \s+ (?:authors?)\b \s*
        ([^\n]*)
        |
        =head \d \s+ (?:licen[cs]e|licensing|copyrig <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6770	6897	
==>ist) { seems a preferable phrasing, it doesnt parse.
multi method Array::perl (@array:) returns Str {
    "["~ join(", ", @array <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7005	7117	
==>:Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7005	7117	
==>:Model::Document',
            'VAL' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9928	10040	
==>rk?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9928	10040	
==>rk?
    # say 'diff ' , $span0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1461	1566	
==>ndex must be a num type";
    # replace the value with a nil type
    $self->[$index->to_native] = nil->ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4146	4301	
==>e=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4146	4301	
==>e=n header
        if (@cc) {
            for @cc -> $cc {
                for $cc.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	404	517	
==>$file.expected";
    unlink "$file.out";
    system "$pugs $f.p6 > $file.out";
    if (compare("$file.out", "$dir/ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8877	8986	
==>ing>

This event processes raw strings.

=item I<newline>

This event handles newlines in the text, it is a sp <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8877	8986	
==>ing>

This event processes raw strings.

=item I<newline>

This event handles newlines in the text, it is a sp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13122	13263	
==>$f = $o->concat( $o->data );
    my $dir = $o->{'dir'};
    if($dir>0) {
      sub {
        my $c = $_[0];
        my $v;
        { local($X: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23445	23541	
==>atch_return_CODE {
    my($code)=@_;
    '(try { '.$code.' } catch Perl6::Run::OnPerl5::X1::Api:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1693	1788	
==>package Regexp::StructHook;

our $inserted = 0;
sub import {
  $inserted++ or regexp_exechook_in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1635	1799	
==>::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1635	1799	
==>::scheme> \:/) {
            # already absolute
            return $HTTP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1623	1726	
==>onstants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1623	1726	
==>onstants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <ws>? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1432	1527	
==>id is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::See <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1432	1527	
==>id is saved.

If the (optional) role parameter C<public> is set to a true value,
C<Net::IRC::See <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16838	16930	
==>iables, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't actual <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16838	16930	
==>iables, which can aid in
portability.

Practically speaking, Locale::KeyedText doesn't actual <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15153	15268	
==>eates a `Span` object using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT M <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15153	15268	
==>eates a `Span` object using an existing span.

- `new()`

Without any parameters, creates an empty span.

= OBJECT M <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3705	3869	
==>\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3898	4062	
==>\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8883	8989	
==>pan { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8883	8989	
==>pan { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return $self.new( span => $span1 <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2687	2779	
==>so read the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compil <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2687	2779	
==>so read the list via Google Groups at
L<http://groups-beta.google.com/group/perl.perl6.compil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15863	15974	
==>ot) been modified since the time specified in this field,
then the server will return a C<304 Not Modified> resp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15863	15974	
==>ot) been modified since the time specified in this field,
then the server will return a C<304 Not Modified> resp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9731	9941	
==>spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    me <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9731	9941	
==>spec, $secure, $expires, $discard);
                push @array, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    me <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3837	3961	
==>{$key}->[0] );
        }
        return $Obj;
    }
}

### add our own ls_accessors, so we don't give back the private access <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1155	1264	
==>PERL}  = "$^X $FindBin::Bin/../perl5/PIL2JS/pugs-smokejs.pl ./pugs $optional_args"
    if $ENV{PUGS_RUNTIME} a <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17465	17549	
==>E0,E1) :- rm(Re,F0,F1,B0,B1,E0,E1).
rm(ques(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10408	10511	
==>(Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $un <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10408	10511	
==>(Str $string is rw, $unsafe_chars?) is export
{
    my $result = $string;
    if ($string.defined && $un <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3201	3324	
==>lde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # sma <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3201	3324	
==>lde"   => 'õ',  # small o, tilde
    "ouml"     => 'ö',  # small o, dieresis or umlaut mark
    "szlig"    => 'ß',  # sma <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10573	10692	
==>$p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10573	10692	
==>$p;
}

method iterator ($self: ) returns Span::Iterator {
    if ( ! defined( $.span.density ) &&
         ! $.span.isa( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8174	8391	
==>ybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8638	8855	
==>ybe;
                    }

                    ### nothing satisfied this depenendency
                    unless( @found ) {
                        keys %$entry;   # reset keys!!!!!
                        die "No p <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20330	20482	
==>("r"),
					else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb(
									fun => ide("sub"),
									p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3190	3289	
==>runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3190	3289	
==>runnable 'ghc' from path.
*** Please install GHC from http://haskell.org/ghc/.
.
    my $ghc_version <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7289	7428	
==>@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7301	7440	
==>@_,$code),"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Du <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1583	1692	
==>:@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1583	1692	
==>:@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_nod <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6794	6924	
==>take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6794	6924	
==>take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some point
        $base = $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7079	7216	
==>ay.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5580	5717	
==>ay.delete($off+$i);
            @array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10815	10931	
==>diate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11094	11210	
==>diate_statement_exec', \&{'grammar1::immediate_statement_exec'} )
           ,
         )
       ,
;
*{'rule_decl'} = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11373	11532	
==>mmar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11652	11811	
==>mmar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	183	294	
==>tity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampers <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	183	294	
==>tity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => '&',  # ampers <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	919	1035	
==>des => Set::Object->new,
		names => {},
	}, $class;
}

sub reduce {
	my $self = shift;
	my $node = shift;

	my $h = D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25063	25160	
==>program.  The Message class is pure and deterministic,
such that all of its class and object metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25063	25160	
==>program.  The Message class is pure and deterministic,
such that all of its class and object metho <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2424	2544	
==>{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._exists_key($k) );
    }
    *@ret;
}
 

# copied from S29dra <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10583	10676	
==>6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http://svn.openfoundry.o <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4031	4142	
==>al { LoadFile(($ENV{HOME}||'')."/$SMOKERFILE") };
        if (!$self->{_smoker}) {
            warn<<"AD";
Smoke <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	994	1114	
==>}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	994	1114	
==>}

method size () returns Object {
    # TODO - not lazy
    # TODO - empty set
    return undef;
}

method is_empty ($se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25580	25694	
==>tion being reported, if it is used
as an exception payload).  The key is intended to be read by a machine and
mappe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25580	25694	
==>tion being reported, if it is used
as an exception payload).  The key is intended to be read by a machine and
mappe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	149	267	
==>080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1> <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	149	267	
==>080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <title>Bad Request</title>
  </head>
  <body>
    <h1> <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	923	1039	
==>=> -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	923	1039	
==>=> -Inf, end => $.start - $.density, density => $.density );
    }
    if $.start == -Inf {
        return $self.new( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15931	16037	
==>f the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $ob <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15931	16037	
==>f the span.

For example: if `start` and `end` are times, then `size` will be a duration.

- `contains( $ob <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	811	920	
==>he
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. : <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	811	920	
==>he
Perl 6 side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	701	811	
==>ess defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	789	899	
==>ess defined $k;
	return emit_node($k,$v);
    }
    die "unknown node: ", Dumper( $n );
}
sub node::pod {
	retu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1652	1769	
==>ure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TO <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1652	1769	
==>ure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TO <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5833	5925	
==>---------------------------------------------------------------
## sibling methods

method ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5833	5925	
==>---------------------------------------------------------------
## sibling methods

method ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4000	4177	
==>{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) {
                my $a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	5224	5378	
==>{$self->{levels}[$level]} ) {
            push @{$assoc{ $_->{assoc} }}, $_;
        }
        for ( keys %assoc ) {
            if ( @{$assoc{$_}} ) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2276	2406	
==>ce => 'looser',
    #    other => 'infix:<,>',
    #);
    #__PACKAGE__->add_rule(
    #    name => 'substr',
    #    assoc => 'le <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1039	1157	
==>ement;
      }
      elsif($prec =~ /is tighter\((.*?)\)/) {
        my $op = $dict{$1} or die "Operator '$1' is not de <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5579	5679	
==>:
  $key = $$currentOperatorTable->lkey($target, $whitespacePosition);
  $token = $$currentOperatorTa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1247	1342	
==>n), and/or
  motivating implementations in p5/p6/haskell.
  - perhaps serve as a reference imple <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3453	3557	
==>ETCH('::Test')->STORE('::WithReason' => role 'TestBuilder::Test::WithReason' => {
    does => [ $::TestBu <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	6	108	
==>6;

class Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

subm <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	6	108	
==>6;

class Tree::Visitor-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

subm <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6052	6153	
==>decl','\s*token\s+whitespace:<(\w+)>\s+{([^}]*)}(?{ &::hlp_ws;})');
my $x2 = def_stmt_prim('bs_token_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1432	1532	
==>LER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1412	1509	
==>LER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_tests_planned;
say < <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5792	5933	
==>name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5780	5921	
==>name =~ /::/;
        return "$_[1] ... hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not implemented"
        unl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1240	1330	
==>$code .= join("\n",map{`cat $_`}@ARGV) if !@eval;
	my $cc = Perl6::Run::OnPerl5::X1::CodeCo <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5505	5628	
==>s $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5505	5628	
==>s $tmpdir.defined;
#     $tmpdir = $tmpdir.defined && .canonpath($tmpdir);
#     return $tmpdir;
# }
#
# method tmpdir () re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8153	8254	
==>ler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8153	8254	
==>ler<QUIT> = [-> $event {
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %ch <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2150	2383	
==>size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2150	2383	
==>size ");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("=over $indent\n\n");
                }
                when 'item' {
                    $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	205	307	
==>nings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtere <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	205	307	
==>nings;

our $VERSION = '0.15';

# A lexical hash to keep track of which files have already been filtere <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	687	779	
==>ipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	687	779	
==>ipher::Caesar creates a rot13 encipherer/decipherer (rot13 
draws no distinction between them <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6678	6779	
==>rt` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6678	6779	
==>rt` value must be less than or equal to `end`. There is no checking.

= AUTHOR

Flavio S. Glock, <fglo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4748	4868	
==>$offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4748	4868	
==>$offset, $length, ", @list;
    # say 'insert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	486	603	
==>ument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<C <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	486	603	
==>ument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'LKT_ARG_NO_HASH'
        => q[<C <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7199	7301	
==>ss") if $cc;
    return $S->force_object(anyof_char => 'Z') if $cc;
    return $S->object(eol => seol = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11339	11439	
==>o use, unidirectional pipe. Uses the shell.

    multi sub open (Str $command, Bool :$r is copy, Bool <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1487	1610	
==>{
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1487	1610	
==>{
    +%!members.keys;
}

method invert($self: *@items) returns int {
    my int $rv;
    for @items -> $item {
        if ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7561	7675	
==>nt<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7561	7675	
==>nt<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.keys;
      %!channels{$ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1910	2070	
==>lf = shift;
                my $idx = shift;
                my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_fetchE <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1335	1453	
==>if !defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@tokens.perl}";
    return @tok <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2653	2761	
==>t_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2653	2761	
==>t_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6();

# ------------

package m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2204	2325	
==>match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2204	2325	
==>match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $matc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3085	3204	
==>lf: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3085	3204	
==>lf: ) returns Set::Infinite::Functional {
    return $self.universal_set() 
        if $self.is_empty;
    return @.span <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10312	10400	
==>y($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%optio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10312	10400	
==>y($self.cipher(byteify($data)));
}

method encipher(Class $class: Str $plaintext, *%optio <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12708	12841	
==>exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12708	12841	
==>exist yet, try to create it.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	7057	7156	
==>ch $m --> Match) is parsed(rx:perl5/<simple_call>/) {$m}

multi infix:<*> ($a,$b) {...}
multi infix: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5039	5184	
==>) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candid <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5503	5648	
==>) {
                    ### $avail, [] is NOT a typo -- rather than having
                    ### _parse_depends see if there's a suitable candid <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3241	3368	
==>('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3241	3368	
==>('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port of L<HTTP <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17552	17649	
==>is method emits a warning and returns undef.

- `span()`

Returns the internal object that represe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17552	17649	
==>is method emits a warning and returns undef.

- `span()`

Returns the internal object that represe <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2454	2545	
==>--------------------------------------------

preludeStr :: String
.
    print OUT qq<prelud <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26781	26892	
==>_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26781	26892	
==>_key (a string); the optional named parameter %msg_vars (a hash ref)
sets the "Message Variables" attribute if t <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	107	197	
==>package Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basena <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	8	98	
==>package Module::Install::Compiler;

use strict;
use Module::Install::Base;
use File::Basena <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1429	1572	
==>tr @strings;

        method subsume ( Getopt::Argument $arg ) { 
            $.append( $self.accept( $arg ) );
        }
        
        metho <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3475	3616	
==>n
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3475	3616	
==>n
        $path = "$base/$path";
    } else {
        $path = "$base$path";
    }
    return canonpath($path);
}

## Misc.

sub canonpath (Str <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2494	2594	
==>turns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2494	2594	
==>turns all except the last element of C<@array>.

=head2 C<< replicate(Int $n, Code &f) >>

Runs C<&f> <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35728	35822	
==>takes a single
Relation::Example in its C<$other> argument, where <$other> has the same heading <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37760	37854	
==>takes a single Relation::Example
in its C<$other> argument, where <$other> has the same heading <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	0	95	
==>﻿package Pugs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	0	92	
==>﻿package Pugs::Grammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCate <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	451	555	
==>ator_class { "Blondie::TypeSafe::Annotator" }

sub annotator {
	my $self = shift;
	#$self->annotator_clas <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16491	16587	
==>bjects_from_whatever {
    return (map{p6_perl6_objects_from_whatever($_)}@_) if @_ > 1;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24775	24870	
==>setta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24775	24870	
==>setta distribution, in the file named
"GPL"; if not, write to the Free Software Foundation, Inc. <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2232	2355	
==>le");
 my $class_mc = Meta::Class.new("Class");

=head1 DESCRIPTION

Meta::Class objects are objects in the Perl 6 class sys <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27461	27561	
==>ceptually change an existing Message object, you must create a new
object that is a clone of the firs <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27461	27561	
==>ceptually change an existing Message object, you must create a new
object that is a clone of the firs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	55	163	
==>/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blon <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2023	2118	
==>/Blondie::Reducer Blondie::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3117	3230	
==>eaders) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This sho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3117	3230	
==>eaders) = split /$CRLF/, $buffer;
  # worry later about large body

  # strip away status and headers
  # This sho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2281	2401	
==>equest::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2281	2401	
==>equest::CGI;
    
    my $r = HTTP::Request::CGI.new();
    
    say "Request method: " ~ $r.method;
    say "Request URI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21263	21359	
==>ommon API for access to those databases, each of which takes a different
SQL or pseudo-SQL dialec <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21263	21359	
==>ommon API for access to those databases, each of which takes a different
SQL or pseudo-SQL dialec <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20264	20368	
==>ase the result of the compilation
is replaced by a single line containing the hexadecimal digest of the
r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20264	20368	
==>ase the result of the compilation
is replaced by a single line containing the hexadecimal digest of the
r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12158	12262	
==>, otherwise a no-op.

=cut

sub _restore_PERL5LIB {
    my($self) = shift;

    return unless $self->{_is <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3330	3495	
==>mper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3794	3959	
==>mper( $meta->{depends} );
            print "\n\nTo:\n";
            print _pp_depends( \@deps );
            print $/ . $/;
        }
        
        my @resolved = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18217	18315	
==>jects want to use the same external resources, such as a repository file
on disk, it is expected th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18217	18315	
==>jects want to use the same external resources, such as a repository file
on disk, it is expected th <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1816	1974	
==>hift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.string <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1816	1974	
==>hift @a
        if @a;
    while( @a ) {
        my $elem = shift @a;
        @tmp = @res[-1].union( $elem );
        # say "span union ", @tmp.map:{ $_.string <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	540	633	
==>new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	540	633	
==>new(...);

=head1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event hand <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37610	37816	
==>')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod

=cut

$::Class->send('add_method' => (
    # method label
        symb <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2541	2631	
==>chived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2541	2631	
==>chived at
L<http://www.nntp.perl.org/group/perl.perl6.compiler> and available via NNTP at
L <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17293	17441	
==>_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<r <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17293	17441	
==>_{$nick}_", "__{$nick}__",
      );
    },
    "next" => {
      my $cur = @perms.shift;
      @perms.push($cur);

      $cur;
    },
  };

  $self<r <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	921	1048	
==>update' { 
        say "Updating";
#        die "No topic no entry!\n" unless $topic;
#        die "Topci $topic isn't a WikiWoo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	2184	2273	
==>x::", "postfix:*", "left", "PGE::Exp::Cut");
    $optable->addToken("postfix:::", "postfix <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	590	692	
==>et_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleto <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	590	692	
==>et_start_open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * is_singleto <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4156	4297	
==>bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4349	4490	
==>bool = $_[0] =~ /^(\s+)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{c <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	2193	2438	
==>if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	2193	2438	
==>if ($in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        my $verbatim = "$0\n";
                        my $_line = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12185	12314	
==>= $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		print STDERR "# $stdindisplay\n";
	    }
	    `$stdin`;
	    $runperl .= q{ < teststdi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11474	11592	
==>6; print "a" =~ /<word>**{1}/;'

Status:

  Perl subs get called for regexp comp and exec.
  The hooks are not package- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10842	10938	
==>s Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B<p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10842	10938	
==>s Str>

=back

B<The following informational functions are fetched on-demand>

=over 4

=item B<p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22243	22346	
==>milar to inheriting from multiple packages which
have the same method names as you or each other, or hav <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22243	22346	
==>milar to inheriting from multiple packages which
have the same method names as you or each other, or hav <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	27003	27114	
==>DecimalEscape>
    | <'b'>
    | <CharacterEscape>
    | <CharacterClassEscape>
}



grammar JavaScript::ECMAScr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2440	2540	
==>t[$#nameSplit];
  $self->tokenTable()->{$name} = \%token;

  my $syncat = $nameSplit[0];
  if ( $sync <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	157	259	
==>e; @ISA = qw(Module::Install::Base);

$VERSION = '0.02';

use strict;

# determine if the user needs nm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36507	36603	
==>hen

Family: assertion

Types: ifthen (C<(?(>)

Data: array reference of two objects; first: I<if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18161	18281	
==>o 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18161	18281	
==>o 0)
    debug_raw => 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1532	1628	
==>> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> me <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1532	1628	
==>> installs a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24312	24427	
==>, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation br <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20733	20848	
==>, qw< ifthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation br <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	424	556	
==>.\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self->SUPER::p <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1823	1979	
==>l
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1823	1979	
==>l
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => -> { return },
                pos       => $input,
                matc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	6049	6157	
==>NOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= A <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	6049	6157	
==>NOPSIS

    use Span::Code;

    $span = Span::Code.new( recurrence => $recurrence_set, span => $span );

= A <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	861	959	
==>on about the server your CGI is running on. It also 
attempts to provide some useful defaults for d <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	861	959	
==>on about the server your CGI is running on. It also 
attempts to provide some useful defaults for d <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	377	474	
==>trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	377	474	
==>trivial tests)
# use HTTP::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf(" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39722	39838	
==>.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser Gen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39722	39838	
==>.

Locale::KeyedText is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser Gen <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20886	21008	
==>sh @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahe <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17307	17429	
==>sh @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => 1);
  });

  # look-ahe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8353	8456	
==>is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8353	8456	
==>is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3260	3352	
==>ssors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3260	3352	
==>ssors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalker qw(peek_my);

sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	1034	1287	
==>GS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::She <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	1034	1287	
==>GS{$msg_key};
    }
} # module Rosetta::Shell::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta::She <==
2	/Users/nnunley/pugs/perl5/PIL-Run/util/src_to_blib.pl	318	437	
==>ib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/src_to_blib.pl	318	437	
==>ib6/", 'blib6/lib/');
}

sub copy_all {
    my ($src, $dest) = @_;
    mkpath($dest);
    local *DIR;
    opendir(DIR, $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1231	1361	
==>-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What i <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1231	1361	
==>-[:]>* };

regex nameZZ {  <name_sec>
             | [\:\: <name_sec> ]+
             | <name_sec> [\:\: <name_sec> ]+};

## What i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9271	9424	
==>d =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9271	9424	
==>d =~ /^after\s+(.*)/s ) {
            warn "<after ...> not implemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "< <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7013	7224	
==>try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7013	7224	
==>try {
                $?SELF.load_template_module( $module_name );
            };
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11018	11123	
==>fe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11018	11123	
==>fe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_chars])/{
            %char_to_entity.exists($0 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	4	269	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOOD <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	4	269	
==>sr/bin/pugs
use v6;

###########################################################################
###########################################################################

my Str %TEXT_STRINGS is readonly = (
    'MYAPP_HELLO' => q[Light goes on!],
    'MYAPP_GOOD <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	778	894	
==>rk
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const( <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	778	894	
==>rk
multi *infix:<÷>   ($a, $b) { $a / $b }

# Standard functions of fp
sub identity($x)  is export { $x }
sub const( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12459	12567	
==>g of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12459	12567	
==>g of Perl code less troublesome.
sub pmc_fold_blocks {
    my ($class, $source) = @_;

    $source =~ s/(~{3, <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	402	503	
==>are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	402	503	
==>are unknown parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18709	18807	
==>ings to show human users.  This association would normally be
stored in a Perl file that defines an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18709	18807	
==>ings to show human users.  This association would normally be
stored in a Perl file that defines an <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4540	4699	
==>tidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4540	4699	
==>tidex index.
                my $matchy = $match.match;
                my $multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2896	3010	
==>r( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3745	3859	
==>r( $_[0], '$<op>' );
    $op = 'warn "not implemented"' if $op eq '...';
    return "    $op;\n";
}
sub node::_my { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8675	8813	
==>ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9510	9648	
==>ast->{tail};\n" .
                #"    print \"ast: \\n\", Dumper( \$ast->{capture} ); \n" .
                "    my \$perl5 = Perl6Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7767	7881	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7960	8074	
==>@_ );
        return unless $match;
        my $capture_block = sub { return { closure =>  match::get( $_[0], '$()' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9270	9387	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9463	9580	
==>> [ $capture_block->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2349	2639	
==>{
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2349	2639	
==>{
                            %events<end_element>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	780	930	
==>e "quantifier index".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	780	930	
==>e "quantifier index".  This is an array that is an
                     index into the multidimensional arrays of the match
                     object <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25408	25510	
==>wo main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the typ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25408	25510	
==>wo main attributes:

=over

=item C<$!msg_key> - B<Message Key>

Str - This uniquely identifies the typ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3823	3917	
==>ng

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5725	5819	
==>ng

is($Class->id, 1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22868	22988	
==>o setpad
  ignorecase:
    mname = ":i"
  setpad:
    $P0 = pad[mname]
    pad[mname] = value
    exp = self[0]
    exp = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	210	331	
==>y package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - fro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	210	331	
==>y package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - fro <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	12051	12238	
==>ct;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	15528	15715	
==>ct;
&cross_join        ::= &product;

###########################################################################

multi method join (Relation $other!) returns Relation {

    # First look <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	3776	3912	
==>($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #re <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	1876	2012	
==>($iso8601_dur);
#}

#multi method infix:<->( $self: Str $what ) {
    #my $other = eval { date($what) };
    #if ( $other ) {
        #re <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	13007	13130	
==>lass Str does Iter {
    method shift () is primitive { =open(self) }

    method trans (Pair *@intable) is primitive is saf <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6379	6496	
==>could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you g <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6379	6496	
==>could be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14202	14307	
==>lues of the callback routine are ignored.  The loop can
be broken by raising an exception (C<die>), but th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14202	14307	
==>lues of the callback routine are ignored.  The loop can
be broken by raising an exception (C<die>), but th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9875	9989	
==>rence sets can be combined with union, intersection, difference, and a few
other operations.

This class also provi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9875	9989	
==>rence sets can be combined with union, intersection, difference, and a few
other operations.

This class also provi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1399	1524	
==>st be a native type";            
    $self->{$key->to_str->to_native} = $value;
    nil->new();    
}

sub remove {
    my ($ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21267	21363	
==>max},$test->{skipped},@{$test->{failed}});
            $percent = 100*(scalar @{$test->{failed}}) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27547	27655	
==>one of the first but for the changes.

=back

A Message object has these methods:

=over

=item C<export_as_h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27547	27655	
==>one of the first but for the changes.

=back

A Message object has these methods:

=over

=item C<export_as_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21661	21775	
==>g)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18082	18196	
==>g)
  $self->add_handler('(?<!' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4317	4419	
==>he "Rosetta" package serves only as the name-sake
representative for this whole file, which can be refe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4317	4419	
==>he "Rosetta" package serves only as the name-sake
representative for this whole file, which can be refe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8034	8134	
==>be
any text which follows the item.

=item I<end_element ('item')>

This event is fired once the last <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8034	8134	
==>be
any text which follows the item.

=item I<end_element ('item')>

This event is fired once the last <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20027	20144	
==>nguage data in separate
files (usually XML files I think) from the main program binary.  Each user
language is in a se <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20027	20144	
==>nguage data in separate
files (usually XML files I think) from the main program binary.  Each user
language is in a se <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4658	4775	
==>$initchar = lc $initchar;
    my $base
    if $initchar eq 'x'; { $base = 16; goto term_bx0; }
    elsif ( $initchar e <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8991	9101	
==>lization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8991	9101	
==>lization of the 'string' event.

=back

=head1 SEE ALSO

=over 4

=item Any of the Perl5 POD parsers

=item XML <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5946	6060	
==>th($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5946	6060	
==>th($_[0]), "\n";
        #print "Runtime.constant: $const \n";
        if ( $const eq substr( $_[0], $_[5], $lconst <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1907	2040	
==>my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size }, <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1907	2040	
==>my $last_check_time = time;
  my $tokens          = 0;

  my $self = {
    rate       => { $rate },
    burst_size => { $burst_size }, <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2215	2324	
==>m_width'} == 64, 'subset complex of complex64  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 128,' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29425	29522	
==>andle '|' is post-consumptive.  It happens to be executed when
'atom' matches a '|'.  This means t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1513	1621	
==>param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_sl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1513	1621	
==>param;
	}
    }

    return Data::Bind::Sig->new
	({ named => $named, positional => $positional,
	   named_sl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3312	3414	
==>r.pm?

lib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fgl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3196	3294	
==>r.pm?
lib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fgl <==
2	/Users/nnunley/pugs/util/build_pugs.pl	2836	2955	
==>: $!";
    binmode $ofh;
    my $gz = Compress::Zlib::gzopen($ofh, "wb") or
            die "gzopen: $Compress::Zlib::gz <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1910	2024	
==>'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role 'TestBuild <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	487	613	
==>op {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:per <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	487	613	
==>op {
        my $line = $fh.readline;
        last unless $line.defined; # exit as soon as possible
        if ($line ~~ rx:per <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9221	9314	
==>> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns tru <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9221	9314	
==>> and C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns tru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8723	8857	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8916	9050	
==>b { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'gr <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12361	12474	
==>t1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12361	12474	
==>t1 ⊆ $set2)>

Returns true if C<$set1> is a subset of C<$set2>.

=head2 C<$set1.superset($set2)>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1674	1798	
==>s($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Typ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1674	1798	
==>s($.query_string);
            }
        } elsif ($.method.lc() eq 'post') {
            my $type = $self.header('Content-Typ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	660	999	
==>$buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	660	999	
==>$buffer ~= "<P>" 
                }          
                when 'verbatim' {
                    $buffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	799	898	
==>store for single elements (Span::Singleton)
    * use binary search instead of linear search

  From <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	799	898	
==>store for single elements (Span::Singleton)
    * use binary search instead of linear search

  From <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	9860	9974	
==>se set it in your GHC_PKG environment variable.\n"
        unless $ghc_pkg;

    return $self->{ghc_pkg} = $ghc_pkg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4358	4488	
==>y $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4370	4500	
==>y $name =    $_[1];
    
    return $match->{capture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compat <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	10338	10444	
==>initrd.gz will be built later from.
      We'll copy pugs and the libraries it needs to it.
HELP

  my @fil <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25817	25914	
==>es that further testing will not make sense,
the script dies with this message.

=back

=head1 ENV <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3053	3168	
==>d("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62} <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3053	3168	
==>d("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2064	2192	
==>s ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2064	2192	
==>s ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
}
method is_empty ()      returns bool   { return <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9955	10061	
==>an0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9955	10061	
==>an0.stringify, ' to ', $span1.stringify;
    # my @span0 = $span0.difference( $span1.span );
    # return @ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15732	15835	
==>t for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<ht <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15732	15835	
==>t for the design of a DBMS and the language interface to
such a DBMS.  The main web site for TTM is
L<ht <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13052	13178	
==>()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13052	13178	
==>()     :
            $result =~ m{\A($re_comment)} ? $class->pmc_fold_comment() :
            $result =~ m{\A($re_here)}    ? $ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5457	5565	
==>s_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5515	5623	
==>s_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $de <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	20	120	
==>ar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gramm <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	20	120	
==>ar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::Gramm <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6233	6346	
==>urn $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6233	6346	
==>urn $.span.stringify;
}

method size () returns Object {
    return undef if $.span.is_empty;
    return $.span.si <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9894	10001	
==>parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9894	10001	
==>parts) {
        my $part = shift @parts;
        if ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8312	8465	
==>by Foo');  

$Foo->add_singleton_method('singleton_test_on_Foo' => sub { 
 '&Foo::singleton_test_on_Foo'
});

is($Foo->singleton_test_on_Foo(), 
  '&Foo:: <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15182	15282	
==>ne (by use of
\r and such).  C<$ml> may be empty if Test::Harness doesn't think you're
on TTY.

The C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7332	7436	
==>s, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1157	1261	
==>s, sub { Grammar::Perl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	31	137	
==>ire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	31	137	
==>ire 'p6rule.pl';
require 'emit.pl';
require 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8513	8651	
==>"
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersecti <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11990	12128	
==>"
            if !($r2!heading === $!heading);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_intersecti <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6362	6463	
==>$Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass metho <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11208	11309	
==>$Bar');

# try to call the Class method
fails_ok { $iBar->name } '... instance calling metaclass metho <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1942	2051	
==>Backend::C::Builtins->find($node->digest || return);
}

sub cast_node_type {
	my $self = shift;
	my $node = sh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20235	20336	
==>uage file to the program package.  No
recompilation necessary.  This is something that end users could <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20235	20336	
==>uage file to the program package.  No
recompilation necessary.  This is something that end users could <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1663	1766	
==>e =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
                ExtUtils::MM_Win32- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1556	1647	
==>e =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
				ExtUtils::MM_Win32- <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11293	11389	
==>`union( $recurrence )`

Returns all elements both from this recurrence and from the given recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11293	11389	
==>`union( $recurrence )`

Returns all elements both from this recurrence and from the given recurre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4150	4392	
==>} ) {
                my $a = $_;
                $a = 'nonassoc' if $a eq 'non';
                $a = 'left'     if $a eq 'list';
                $s .= "%$a ";
                for ( @{ $assoc{$_} } ) {
                    next if $seen{ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5498	5595	
==>JSX::Value::Boolean $v)   { $v }
multi sub ToBoolean(JSX::Value::Number $v) {
    +$v == (+0|-0|Na <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5507	5624	
==>mp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5507	5624	
==>mp;
    $cmp = $span.start_is_open <=> $.start_is_open;
    return $cmp if $cmp;
    $cmp = $.end <=> $span.end;
    r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6098	6225	
==>ons {
    my ($self, $path) = @_;

    my @found;
    File::Find::find( sub {
        my $file = $File::Find::name;
        retu <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3775	3901	
==>ons {
    my ($self, $path) = @_;
    my @found;

    File::Find::find(sub {
        my $file = $File::Find::name;
        retu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3149	3262	
==>ng relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all names w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3149	3262	
==>ng relative path
    # must ascend out of before it can descend to $path_directory.  So,
    # replace all names w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8990	9113	
==>hould never refer directly to "Rosetta::Model" in
your code; instead refer to other above-named packages in this file.>

=he <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8990	9113	
==>hould never refer directly to "Rosetta::Model" in
your code; instead refer to other above-named packages in this file.>

=he <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	68	183	
==>{
	package Blondie::Unit;

	sub new {
		my $class = shift;
		my $value = shift;

		bless \$value, $class;
	}

	sub v <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2321	2419	
==>\
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RECOGNITION_FLAG)

static regexec_t previous_exec_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9681	9796	
==>person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9681	9796	
==>person' table, which is populated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_pe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31887	31985	
==>rary generates an error
message and wants it shown to the user, the main program would check each
o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31887	31985	
==>rary generates an error
message and wants it shown to the user, the main program would check each
o <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	729	913	
==>> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PRO <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	729	913	
==>> $dir {
                my Str $scr = catfile( $dir, $script );
                if -r $scr && ( !$dosish || -x _ ) {
                    $script = $scr;
                    if -f $*PRO <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	947	1052	
==>back);
  my $r_address;
  $^H{regcompp} = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	95	189	
==>ts;
use JIB::Config;

use JIB::Package::Source;
use JIB::Package::Binary;
use JIB::Package::Ins <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2924	3048	
==>a->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = Lo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3388	3512	
==>a->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protoconf::Repoindex ); 
        my @avail   = Lo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	10596	10717	
==>,
            Bool :$a) returns IO is primitive is unsafe is builtin {
        die "fancy open modes not supported yet" if <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Type.pm	186	279	
==>:Type::Junctive;

class Perl::Type::Regular isa Perl::Type;
has Str $.type;

class Perl::Type: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2065	2195	
==>f;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::st <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2065	2195	
==>f;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP::Status::st <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18027	18128	
==>cess, by
parsing up your module's source code into various blocks; so that by the
time a compiler is c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18027	18128	
==>cess, by
parsing up your module's source code into various blocks; so that by the
time a compiler is c <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2419	2551	
==>nt"' {
        my %pad = $tree[1];  # keys: "pilGlob", "pilMain"
        dbg "# keys: ",%pad.keys;
        dbg "# pilGlob:    "; my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6029	6193	
==>urn;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $arr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6029	6193	
==>urn;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $arr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1693	1798	
==>o $num or $name is given, a new scope is introduced but the resulting object
is discarded (used for eg. <? <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1693	1798	
==>o $num or $name is given, a new scope is introduced but the resulting object
is discarded (used for eg. <? <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	390	520	
==>0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	390	520	
==>0 unless defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3457	3584	
==>@!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3457	3584	
==>@!children.unshift(@trees);
    }
    # otherwise do some heavy lifting here
    else {
        @!children = (
            @!chi <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1227	1312	
==>et_subscriptions (Class::Events::Publisher $publisher, Class::Publisher::Event $event) <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5701	5824	
==>mplement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions --------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5701	5824	
==>mplement_next }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions --------- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3036	3173	
==>_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3514	3651	
==>_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]-> <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	378	504	
==>Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial( <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	378	504	
==>Inline Pugs => '
        sub postfix:<!> { [*] 1..$_ }
        sub sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13063	13176	
==>NSTALLED },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;

    my $my_bind <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	18037	18138	
==>applied to $pair (int x str) this should be int
my $fst = comb(
	fun => ide("fst"),
	param => $pair,
) <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2151	2268	
==>ypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter kludge. not even trying with m and s.
# Match o <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	71	159	
==>l/5.8.8/Module/Install/Compiler.pm"
package Module::Install::Compiler;

use strict;
use M <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3425	3526	
==>pp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3425	3526	
==>pp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::P <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18269	18400	
==>en == ":" goto cutatom
    $I0 = PGE_CUT_RULE
    if token == ":::" goto cut_1
    $I0 = pad["cutnum"]
  cut_1:
    self["cutnum"] = <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1489	1603	
==>-lingual eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$lang>. C<Perl6> is the
    # onl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11637	11754	
==>ethod reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SY <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11637	11754	
==>ethod reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing a single span

= SY <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5757	5864	
==>e following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5757	5864	
==>e following values:

=over 4

=item Boolean Context

The HTTP status code (success/failure) is returned

=it <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21234	21332	
==>ature is that it provides a
common API for access to those databases, each of which takes a differe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21234	21332	
==>ature is that it provides a
common API for access to those databases, each of which takes a differe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1674	1791	
==>y $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1674	1791	
==>y $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expanded = eval $perl5;
    die $@ if $@; 
    my $final_ast <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	272	390	
==>our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	272	390	
==>our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	980	1085	
==>),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurp <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	980	1085	
==>),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->is_slurp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16174	16272	
==>cks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16174	16272	
==>cks for them, before
loading a C<.pm> file.

You get the following benefits:

=head1 EXAMPLE

You c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3291	3387	
==>d2 Parameters

The parameters of the request are accessible through the HTTP::Query object that
i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3291	3387	
==>d2 Parameters

The parameters of the request are accessible through the HTTP::Query object that
i <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4477	4591	
==>@.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offse <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4477	4591	
==>@.items {
        $_ .= flatten if (.isa( 'Perl6::Value::List' ) && .is_lazy);
    }
}

method splice ( 
    $offse <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3073	3166	
==>$test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compar <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3131	3224	
==>$test := compare_func($got, $expected);
    Test::proclaim($test, $desc, $todo, $got, "&compar <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3880	3980	
==>1)[3]; $name =~ s/.+:://; $name }

=pod

=head2 _get_file_contents( file => $file );

Returns the con <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1969	2072	
==>ress;
  my $regexp_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$cal <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	198	305	
==>id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [ <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	198	305	
==>id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \> (.*?) \<\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19766	19872	
==>stack} }
        or $rx->error($rx->RPe_RPAREN)
    } until $tree->[-1]->{down};

    $self->{nparen} = $tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	144	250	
==>umper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	144	250	
==>umper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @par <==
2	/Users/nnunley/pugs/util/testgraph.pl	1753	1880	
==>y::Subtest;
    use base qw/Test::TAP::Model::Subtest::Visual/;
    sub link {
        my $self = shift;
        my $link = $sel <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	352	447	
==>_TERNARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
use constant PGE_OPTABLE_CIRCUMFIX = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7432	7542	
==>usion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10909	11019	
==>usion (Relation *@others) returns Relation {

    for @others -> $r2 {
        die "The heading of at least one <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12277	12377	
==>e; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progres <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12277	12377	
==>e; r&eacute;sum&eacute;

=head1 DESCRIPTION

B<Note>:  at the current time, this is a work in progres <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	68	161	
==>e Carp 'confess';

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Output' => class 'T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	746	835	
==>::Token->compile(q( \w+ ))->code;

*block = Pugs::Compiler::Token->compile(q( \{ [ <block> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1531	1661	
==>ath) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1531	1661	
==>ath) if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to " <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	67	184	
==>ey;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SEL <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	67	184	
==>ey;
my  int $delta is readonly = 0x9e3779b9;

submethod BUILD($key) {
    if ($key.isa(Array)) {
        @.key = $?SEL <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14855	14969	
==>pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{' <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14855	14969	
==>pmc_fold_data {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1656	1749	
==>erse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1656	1749	
==>erse(), grep(), map()
* Array::Lazy supports multi-dimensional Lazy Array
* new class 'Lazy::L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	97	191	
==>nchmark;
use Pugs::Compiler::Rule;
use Pugs::Compiler::Token;
use Pugs::Compiler::Regex;
us <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10656	10766	
==>r")
.end

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .local pmc mfrom, mpos
    .loca <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27752	27851	
==>mpty Mapping.

=back

A Relation::Example object has these methods:

=over

=item C<export_as_hash ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28647	28752	
==>->reganch &= ~ROPT_MATCH_UTF8)
 #define RX_MATCH_UTF8_set(prog, t)	((t) \
			 ? (RX_MATCH_UTF8_on(prog), ( <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3580	3695	
==>b     => @caller[5],
    ) !! undef;
}

class fatal {
    # pragma to dispense of the holy war about whether to rais <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7732	7844	
==>et;
# }

=head2 $bool = $repo->add_file(file => $file, [force => BOOL])

Adds a given file to the repository.

=c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10186	10283	
==>hich is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... ) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10186	10283	
==>hich is
described below.

=item $h->header( $field )

=item $h->header( $field ) = ( $value, ... ) <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	354	500	
==>e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        m <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	354	500	
==>e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = open($filename);    
    loop {
        m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1205	1331	
==>ver /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	765	891	
==>ver /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4721	4827	
==>:KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= ne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4721	4827	
==>:KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DBMS $dbms .= ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	939	1042	
==>re_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	939	1042	
==>re_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - subroutine, <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19278	19420	
==>d_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39730	39872	
==>d_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::ENV,
            method:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9297	9443	
==>= %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9297	9443	
==>= %hash.delete('port');
                my $expires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	667	779	
==>(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_c <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	667	779	
==>(&coderef) / :previous(&coderef)
    * from_start_and_duration
  
  Methods:  
    * set_start_open / set_start_c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2749	2892	
==>er;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:supercla <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2954	3097	
==>er;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:supercla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	634	745	
==>f "print STDERR" when outputing failure diagnostic
# messages
sub _diag {
    return unless @_;
    my @mess = m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5795	5885	
==>]) }
sub hlp_token {    def_token($X::cap->[-2],"<ws>?(?x)".$::X::cap->[-1]) }
sub hlp_rule <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9883	9996	
==>= find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10231	10344	
==>= find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S0 = substr target <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	991	1101	
==>eturn $ret;
}

## Chapter 6 section 2.2

## XXX - perl5 semantics are desired here
sub drop {
  my $h = head($_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9815	9909	
==>internals_rx",%mods,$pat,$qo,$qc);
}
macro m_ (%mods,$pat,$qo,$qc) is builtin is safe {
    rx_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1410	1510	
==>mit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return "use <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5938	6035	
==>mit(get_data($_[0], '$<variable>'));
    my $lit = emit(get_data($_[0], '$<value>'));
    return " <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2860	2984	
==>P   { \x0020 }
rule NBSP { \x00A0 }
rule USP  { <<Zs>-<TAB>-<VT>-<FF>-<SP>-<NBSP>> }

# 7.3 Line Terminators

rule LF   { \x0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18034	18126	
==>gin()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18034	18126	
==>gin()>

Tries to login, using the C<nickname>, C<username>, and C<ircname> you've
specified i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8526	8626	
==>ackage' is checked for instead of 'Module' since all types of
    # packages share the same namespace <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8526	8626	
==>ackage' is checked for instead of 'Module' since all types of
    # packages share the same namespace <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3435	3547	
==>other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3435	3547	
==>other) returns Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23326	23426	
==>lity to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a Rol <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27878	27978	
==>lity to mutate, and it is false if not.  Looking forward to the near
future where "Relation" is a Rol <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15346	15460	
==>ass => word => $neg, \$how);
  });

  # xdigit POSIX class
  $self->add_handler('POSIX_xdigit' => sub {
    my ($S, <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26572	26677	
==>anguage::Prolog::Yaswi::swi_converter->pass_as_opaque('UNIVERSAL');
#Predicates perl5_call/3, perl5_eval/2 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1276	1376	
==>he interface for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Ci <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1276	1376	
==>he interface for Cipher::Arcfour is largely defined by L<Cipher::Stream> and 
its parent module, L<Ci <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4748	4878	
==>mit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   return $var.' = '.$lit.";\n";
}
sub node::s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4224	4329	
==>mit(get_data($_[0], '$<variable>'));
   my $lit = emit(get_data($_[0], '$<value>'));
   return $var." = \\ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2490	2577	
==>---------------------------------------------------------
## getting children

method ge <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2490	2577	
==>---------------------------------------------------------
## getting children

method ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4701	4834	
==>$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4689	4822	
==>$_[1] do { \$pos < length( \$s ) ? ++\$pos : 0 }"
    }
    else {
        "$_[1] do { \$pos >= 0 ? do{ --\$pos; 1 } : 0 }"
    }
}
su <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	9571	9716	
==>ason      = '', 
          ?$description = '',
      )
      {
          return ::Test::Builder::Test::TODO.new(
              description => $des <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20282	20434	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20561	20713	
==>" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _print =>  match: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4803	4920	
==>(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4861	4978	
==>(1, $desc, :$todo, :$depends);
    }
}

## misc. test utilities

multi sub skip (Str $reason?, :$depends) returns Bool <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10341	10440	
==>ner type (eg, hash vs array).  The deferred validations are performed
on demand at some time after t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10341	10440	
==>ner type (eg, hash vs array).  The deferred validations are performed
on demand at some time after t <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3414	3513	
==>od

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parse <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3414	3513	
==>od

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for Pod::Event::Parse <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	561	666	
==>);
#}

#method infix:<->($self: Duration $duration) returns Date {
    #$self.subtract($duration);
#}

#me <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21495	21617	
==>ad["cutnum"] = cutnum
    goto end
  unscoped:
    exp = self[0]
    exp = exp.p6analyze(pad)
    self[0] = exp
    pad["cu <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	464	586	
==>ode ref";
    my $local_env = closure::env->new();
    $local_env->next($env);
    bless {
        body => $body,
        e <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7883	7983	
==>table file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7883	7983	
==>table file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7046	7152	
==>int postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7046	7152	
==>int postfix( $match->() );
    print Dumper $match->();
}

=for TODO
test lexical add_op:
    $statement->a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3999	4110	
==>N

This document describes Rosetta version 0.724.0.

It also describes the same-number versions of Rosetta::Inte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3999	4110	
==>N

This document describes Rosetta version 0.724.0.

It also describes the same-number versions of Rosetta::Inte <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	87	191	
==>Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haust <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	83	187	
==>Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haust <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1169	1283	
==>"";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2043	2157	
==>"";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8331	8434	
==>em which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Ret <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8331	8434	
==>em which is already inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17680	17800	
==>=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17680	17800	
==>=head1 SYNOPSIS

  use Net::IRC;
  
  # Create new bot "object"
  my $bot = new_bot(
    nick     => "blechbot",
    user <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	15063	15222	
==>);
              $beg->attr('class', 'empty_head '.$tag);

              next;
            }

            $end = $end->right until (!$end->right or $end->right- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36473	36577	
==>essage! )>

This method takes a (machine-readable) Message object as its positional
parameter $message an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36473	36577	
==>essage! )>

This method takes a (machine-readable) Message object as its positional
parameter $message an <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7855	7963	
==>al structures.

Cipher authors should assume that if this method is being called, the Secret 
Police are brea <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7855	7963	
==>al structures.

Cipher authors should assume that if this method is being called, the Secret 
Police are brea <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17833	17961	
==>lsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14254	14382	
==>lsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) {
          $S->warn(RPe_FRANGE, $lhs->visual, $r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14213	14427	
==>n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            } <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14213	14427	
==>n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            } <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	932	1037	
==>ad of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	932	1037	
==>ad of
specifying options as a hash;

 Perldoc::DOM::Text->new({ content => "foo", source => "foo" });

You <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1958	2073	
==>Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1958	2073	
==>Inf } unless defined $.complement_next;
        $.complement_previous = sub { -Inf } unless defined $.complement_pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	648	749	
==>XX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $par <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	810	911	
==>XX - should use user's lexical pad instead of an explicit grammar?
    $self->{grammar}  = delete $par <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5140	5289	
==>ntent_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5140	5289	
==>ntent_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!sta <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1773	1870	
==><rate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1773	1870	
==><rate of information> in
items per second and C<burst size> in items.

=cut

sub new_bucket(Num $r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5753	5852	
==>:Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a stra <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5753	5852	
==>:Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DESCRIPTION

This is a stra <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4866	4989	
==>en[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4866	4989	
==>en[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15856	15955	
==>ifesto.com/>, and its authors have also written
several books and papers and taught classes on the s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15856	15955	
==>ifesto.com/>, and its authors have also written
several books and papers and taught classes on the s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1329	1430	
==>lass->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_me <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1329	1430	
==>lass->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    return unless $class->pmc_use_me <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	208	419	
==>{ schema => { class => "T2::Schema" }
        },
      },
      methods => { map { $_ => \&$_ }
                   qw( generate_p6mm generate_attribute )
                 },
    };

sub generate_p6mm {
    my $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	655	783	
==>al>', 
    circumfix =>       '<op> <parse> <op2>',  
    postfix =>         '<tight> <op>', 
    postcircumfix =>   '<tight> <op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24460	24565	
==>mand to the server. The command is not modified by C<Net::IRC>,
aside from appending the correct newline c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24460	24565	
==>mand to the server. The command is not modified by C<Net::IRC>,
aside from appending the correct newline c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21554	21674	
==>c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->ad <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17975	18095	
==>c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->ad <==
2	/Users/nnunley/pugs/util/package-osx.pl	3036	3138	
==>sr/local/lib/libreadline.5.1.dylib
        /usr/local/lib/libhistory.5.1.dylib
        /Library/Framewo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	502	607	
==>e the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	502	607	
==>e the difference - ∖ vs \ (backslash)
multi sub *infix:<∖> (Set $one, Set $two) {
    $one.difference( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2493	2615	
==>et2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.span;
    my $sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2493	2615	
==>et2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.span;
    my $sp <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5921	6052	
==>opaque_instance_attrs($self)->{'%:methods'}};
        },                
    }
);

ok(!$Class->has_method('resolve'), '... we do not <==
2	/Users/nnunley/pugs/util/config_h.pl	1355	1475	
==>int OUT "#define PUGS_HAVE_TH 1\n";
}
else {
    print OUT "#undef PUGS_HAVE_TH\n";
    warn << '.';

*** Template Haskel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16043	16140	
==>ith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16101	16198	
==>ith

Norman Nunley

Steve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cp <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2458	2555	
==>[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    pu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2458	2555	
==>[\-\.]/_/g;

    my @to_install = ("$module_name.o", "$module_name.hi", "$module_name.hs");
    pu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1692	1786	
==>supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1692	1786	
==>supports multi-dimensional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	735	841	
==>avor}::import"};
}

sub unimport {
    regexp_hook_off();
}

sub make_qr_regexp_pair {
  my($pat,$nparens,$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1391	1528	
==>req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1391	1528	
==>req_path = ./:uri_path($uri);
        my $req_port = $uri.port;
        
        my $now = time();
        
        ./:normalize_path($req <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2608	2728	
==>tters for type variables
	# it's ok to destroy the objects since they're copies
	foreach my $entry (@free) {
		my $assign <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26520	26617	
==>wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26520	26617	
==>wish.

=back

This is the main Message constructor method:

=over

=item C<new( :$msg_key!, :%msg_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4293	4392	
==>es as match objects.

=head2 %{}

When used as a hash reference, the match object returns named capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4293	4392	
==>es as match objects.

=head2 %{}

When used as a hash reference, the match object returns named capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3803	3919	
==>ammar file to $new_parser

  # - and the emitter to $new_emitter

  

  # build a "normal" compiler that has: 

  # - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3667	3779	
==>ammar file to $new_parser
  # - and the emitter to $new_emitter
  
  # build a "normal" compiler that has: 
  # - <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5640	5735	
==>x(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5640	5735	
==>x(128+($num/64)%64)~$dec2hex(128+$num%64); }
        elsif ($num < 67108864) { $dec2hex(248+$num <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	748	900	
==>ey[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	748	900	
==>ey[3];
        }
    }
    else {
        my int $sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 + <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2627	2815	
==>{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{lab <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2627	2815	
==>{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v;
            }
            next;
        }
        next if $m->{label} eq '';
        if ( exists $r{ $m->{lab <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	952	1050	
==>y $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	952	1050	
==>y $to_remove = none(@items);
        $!members = any($!members.values.grep:{ $_ === none($to_remove <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	555	659	
==>art / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	555	659	
==>art / set_end
    * remove "difference()" method ?

  Constructor:  ------------

- `new( closure_next => <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	376	516	
==>..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, time <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	376	516	
==>..$count) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, time <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	208	317	
==>l6;
use Pugs::Emitter::Perl6::Perl5;
use Carp;

use Data::Dumper;

sub compile {
    my ( $class, $rule <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8413	8513	
==>turn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8413	8513	
==>turn Bool::False if @union.elems == 2;
    return @union[0].compare( $self.span ) == 0;
}

method int <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17183	17281	
==>h its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17183	17281	
==>h its timestamp so the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compil <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3859	4006	
==>is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3859	4006	
==>is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip relative paths
    return $path unless $pa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	515	613	
==>~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	2043	2141	
==>~ q[ paramètre $number est zero],
);

module MyLib::L::Fre {
    sub get_text_by_key (Str $msg_key <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3016	3117	
==>eturn -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple function <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3016	3117	
==>eturn -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple function <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13389	13514	
==>em RPe_NOTERM (-3)

Sequence (?#... not terminated

=item RPe_LOGDEP (-4)

(?p{}) is deprecated -- use (??{})

=item RPe_NOTBA <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	914	1026	
==>$variable ne '');
    } 
}

sub SessionDestroy() {
    my $fh = open("$Path/$SID", :w);
    $fh.print(SessionCode <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	444	566	
==>ap 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_en <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	444	566	
==>ap 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set )
    * set_start / set_en <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1987	2137	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2180	2330	
==>=> [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3928	4021	
==>');
is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->supe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5830	5923	
==>');
is($Class->name, 'Class', '... $Class got the right method return value');
is($Class->supe <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	785	896	
==>n $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simple

=head <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	785	896	
==>n $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filter::Simple

=head <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6375	6484	
==>me = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_cha <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6375	6484	
==>me = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_type' => 'STR_CHAR',
            'max_cha <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	876	985	
==>TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	876	985	
==>TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() syntax
# TODO - <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8530	8737	
==>unt = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celem <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8530	8737	
==>unt = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celem <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2718	2829	
==>n $provides;
}

sub auto_provides {
    my $self = shift;
    return $self unless $self->is_admin;

    unless ( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4763	4854	
==>(PIL::PIL1::NodeSet0::gen_code(__PACKAGE__));
  PIL::PIL1CPerl5::Util::FilterNodeDefs::impor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1342	1450	
==>42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALW <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1329	1430	
==>42 };

sub ok_auto {
    say "ok $counter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALW <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35170	35268	
==>item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
ele <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35170	35268	
==>item C<export_as_hash()>

This method returns a deep copy of this Translator as a Hash ref of 2
ele <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10452	10561	
==>ready inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10452	10561	
==>ready inserted.  In fact,
this is commonly used for directed graph traversal;

  my @to_do = ($object);
  my $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3763	3866	
==>r,"exec hook survived.\n");
    if(ret < 1) {
        fprintf(stderr,"regexp_hook_exec failed - didnt re <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	710	825	
==>e_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that i <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	710	825	
==>e_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier index".  This is an array that i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6953	7088	
==>ostfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6953	7088	
==>ostfix( $match->() ) eq 
        '1 2 3', 
        'stamements inside a block' 
    );
    print postfix( $match->() );
    print Dumper <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4576	4673	
==>utput, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4576	4673	
==>utput, $cipher_obj.cipher($data);

Enciphers or deciphers the given data.  May return data which i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5356	5455	
==>WP extension.  The Client-Date header is
# added as a timestamp to a response when it has been recei <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5356	5455	
==>WP extension.  The Client-Date header is
# added as a timestamp to a response when it has been recei <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	101	192	
==>e::Str;
use Perl6::Core::Num;
use Perl6::Core::Ref;
use Perl6::Core::Hash;
use Perl6::Core:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	237	384	
==>[2] ] );
    },
    looser  => sub {
        splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] );
    },
    equal   => sub {    
        push <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	324	455	
==>[2] ] ) },
    looser  => sub { splice( @{$_[0]->{levels}}, $_[1]+1, 0, [ $_[2] ] ) },
    equal   => sub {   push( @{$_[0]->{levels <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9291	9393	
==>s export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9291	9393	
==>s export {
    # XXX check $self.charset
    #my $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32992	33093	
==>to which that object falls.

This is very sparse.  Future versions will have more complete
documentati <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13744	13838	
==>ames.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in turn <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13744	13838	
==>ames.

=item $h.scan( \&process_header_field )

Apply a subroutine to each header field in turn <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5938	6050	
==>Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to chec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5996	6108	
==>Test::testing_started = 1;
    $Test::num_of_tests_run++;

    # $context is now the raw TODO, so we have to chec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3689	3804	
==>Emitter for your own language.



  # assuming:

  # - your target system runs Perl5

  # - you have loaded the Gram <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3557	3668	
==>Emitter for your own language.

  # assuming:
  # - your target system runs Perl5
  # - you have loaded the Gram <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	871	977	
==>URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	871	977	
==>URI>   }
sub referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7196	7365	
==>'>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7660	7829	
==>'>=';

                    ### do we have something that satisfies this dep already?
                    for my $maybe (@$avail) {
                        next unless dep <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11033	11260	
==>open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '['


  ### ']'


  ### '<'


  ### '>'


  ### '.'

  $self->add_handler('.' => sub {
    my ($S) = @_;
    return $S->object(reg_any => sany => '.');
  } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7081	7194	
==>le (@x) {
				return unless $self->types_eq(pop @x, pop @y)
			}

			return 1;
		} elsif (!ref($x) and !ref($y)) { <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5157	5261	
==>tions are provided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5157	5261	
==>tions are provided (and exported) by this module:

=over 3

=item get($url)

The get() function will fetc <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	316	441	
==>method BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	316	441	
==>method BUILD ( $.span, $.recurrence ) {}

method stringify ($self: ) {
    my @start;
    my @end;
    my $samples = 3;
    my <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9681	9792	
==>ng },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9681	9792	
==>ng },
    channels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($chan <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3002	3133	
==>sub package_version     { $_[0] =~ $re; $3 }
        sub package_authority   { $_[0] =~ $re; $4 }
    }
    
    ### takes the metad <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	821	926	
==>unctions currently take 8 arguments.

=cut

use strict;
use warnings;
#use Smart::Comments; #for deb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3913	4048	
==>sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4106	4241	
==>sub {
    my $bool = $_[0] =~ /^(\n)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'newline'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	24731	24882	
==>";
        } else {
            $skipmsg .= "?%)";
        }
        push @result, $skipmsg;
    }
    push @result, "\n";
    my $txt = join "", @resul <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14623	14717	
==>b1), !.
%# XXX - not quite right... need some symetric op pairs.
re_reverse(bos,eos).
re_revers <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	435	529	
==>--verbose|v --touch --output|o=s --keep|k);

touch() if $Config{touch};

setup_output();

inlin <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	3094	3181	
==>ch/pugs/livecd-kernel.config.

Available options and defaults:
  --kernel-uri=$kernel_ur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3314	3426	
==>{ Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return(@_) };
PUSH
print "1;\n";
__E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9489	9577	
==>{ Grammar::Perl6->eval_perl5(@_) };
push @statements, sub { Grammar::Perl6->_return(@_) } <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2039	2164	
==>R::leave_scope(@_);
    
#    warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $sel <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14559	14683	
==>R::leave_scope(@_);
    
    warn "unbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6031	6211	
==>n;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6031	6211	
==>n;
                },
                # TODO - signal end of data using 'elems()'
        );
    }

    method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3352	3561	
==>ault {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_li <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3352	3561	
==>ault {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($line, %events);   
                            my $_li <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1170	1280	
==>levels => [], %$opt };
    bless $self, $class; 
}

sub exists_op { die "not implemented" };
sub delete_op { di <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	273	382	
==>levels => [], %$opt };
    bless $self, $class;
}

sub exists_op { die "not implemented" };
sub delete_op { di <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1393	1509	
==>!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1393	1509	
==>!socket;
  has Queue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15854	15952	
==>etimes a program will raise a condition or error that,
while resembling a message that would be sho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15854	15952	
==>etimes a program will raise a condition or error that,
while resembling a message that would be sho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7825	7943	
==>atch;

    }

}



# ------- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], r <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7562	7673	
==>atch;
    }
}

# ------- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], r <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7680	7791	
==>Array::values (@array ; MatchTest *@indextests --> Int|List )

Iterates the elements of C<@array>, in order. 

I <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8080	8181	
==>hc_pkg> installed.  This caches its result,
any further calls to ghc_pkg This method expects to
be cal <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1276	1367	
==>it :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1276	1367	
==>it :: Literal -> Expression
class Perl::Compiler::PIL::PILLit
    does Perl::Compiler::PIL:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21732	21831	
==>e same key code with a new user message in
one of their own resource files.  At some appropriate pla <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21732	21831	
==>e same key code with a new user message in
one of their own resource files.  At some appropriate pla <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18298	18399	
==>);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Co <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18298	18399	
==>);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_ready);

  # Co <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4177	4348	
==>e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4177	4348	
==>e = $@ ) {
        # close $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8932	9024	
==>Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8932	9024	
==>Spec::Win32 module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1209	1347	
==>EMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my meth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1209	1347	
==>EMOTE_HOST>;
        $.remote_addr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6620	6745	
==>ar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6620	6745	
==>ar_data_type', { 'base_type' => 'STR_CHAR',
                'max_chars' => 1, 'char_set' => 'UNICODE' }, [
            [ 'scal <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9083	9206	
==>_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9083	9206	
==>_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMPL_MOD_NAME' => $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27298	27417	
==>_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must all be set when the <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27298	27417	
==>_name,
        } );

Note that a Message object does not permit changes to its attributes; they
must all be set when the <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1097	1193	
==>for circular superclasses?
# I guess that we're not the superclass of any superclass

method set_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	151	292	
==>:Test' => {
    is => [ $::Object ],
    class_methods => { 
        'new' => sub {
            my ($self, %params) = @_;
            $params{ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	90	223	
==>prime) {
    $guess += ($target - $f($guess)) / $fprime($guess);
}

sub approxfprime(Code $f, Num $x) {
    my Num $delta = 0.1;
    r <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14453	14558	
==>ternals::but_block ($obj, Code $code) is primitive is safe {
    $code($obj);
    $obj;
}

# (Unspecced) f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39654	39804	
==>eate something here

$::Object = $::Class->send('new');

$::Object->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # metho <==
2	/Users/nnunley/pugs/util/testgraph.pl	961	1066	
==>enerates an HTML summary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTML header ( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2686	2780	
==>y subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2686	2780	
==>y subclasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	13298	13585	
==>tests{$tfile} = { canon   => '??',
                                             max     => $test{max},
                                             failed  => '??',
                                             name    => $tfile, 
                                             percent => un <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2177	2276	
==>and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Te <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2177	2276	
==>and translates it to a regex.

=back

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<Te <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9300	9411	
==>oaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9300	9411	
==>oaded_module
        (Str $module_name!, Str $msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2329	2446	
==>sa('str'))
        || confess "delimiter must be a string type";    
    return str->new(
        CORE::join $delimite <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	291	402	
==>gs) = @_;
    (blessed($args) && $args->isa('list'))
        || confess "You must have an arg list";
    ($args- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1025	1142	
==>M_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1025	1142	
==>M_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10781	10943	
==>";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10781	10943	
==>";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \"$string\"\n "
        #           ~ "i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11388	11493	
==>my $node = shift;

    my $type = "reduce_" . lc(Scalar::Util::blessed($node));
    
    $self->can($type) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3703	3804	
==>file =~ s/ /\\ /g;
#    $file =~ s/\^/\\textasciicircum\{\}/g;
#    $file =~ s/\~/\\textasciitilde\{\} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4114	4230	
==>$field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with em <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4114	4230	
==>$field is copy, $val is copy {
    $field ~~ s/^://;
    if $val ~~ m/\n/ {
      # must handle header values with em <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	403	516	
==>Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	403	516	
==>Str $.text;
    has Int $.pos;
}

has $.Pos;

submethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) { <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11255	11399	
==>NBSP>
    | <FF>
    | <VT>
    | <CR>
    | <LF>
    | <LS>
    | <PS>
    | <USP>
}
rule StrNumericLiteral {  # see 9.3.1
      <StrDecimalLite <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Perl6.pm	356	496	
==>st( $src );
    return Pugs::Runtime::Match->new( { 
        bool  =>   1,
        match =>   $src,
        tail  =>   $tail,
        capture <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10728	10829	
==>eturns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10728	10829	
==>eturns Str>

=item B<request_method returns Str>

=item B<content_type returns Str>

=item B<content_l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	193	292	
==>es used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcom <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	193	292	
==>es used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_S_HELLO' => q[Welcom <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2177	2368	
==>1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2177	2368	
==>1,2];
            redo;
        }
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5681	5794	
==>sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_U <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5163	5276	
==>sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtUtils::MM_U <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1516	1614	
==>}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable: <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1516	1614	
==>}

=head1 NAME

Module::Pluggable::Fast - Fast plugins

=head1 SYNOPSIS

    use Module::Pluggable: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23317	23456	
==>y ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19738	19877	
==>y ($S) = @_;
    my $c = '(?(';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1214	1315	
==>WEP were caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is larg <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1214	1315	
==>WEP were caused by improper use of 
RC4.)

=head2 Interface

The interface for Cipher::Arcfour is larg <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7702	7845	
==>nother/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1003	1146	
==>nother/
                    ### package, it's still safe to delete us, otherwise not
                    if( !dependency_satisfied( $depends, \@ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5597	5696	
==>$n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5597	5696	
==>$n !! $p;
}

method iterator ($self: ) returns Set::Infinite::Iterator {
    return ::Set::Infinite: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1814	1958	
==>$_[0]{rule}(),
            }, } 
        }
    }
    unshift @rule_terms, 'named_capture';
        
    rule before {
        \< before <?ws> <ru <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22652	22747	
==>:Example is like a Set that exists
over N dimensions rather than one.  The Relation::Example ope <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	929	1033	
==>asses, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	929	1033	
==>asses, so...
BEGIN{ say "\n# autogenerated file. DO NOT EDIT.  pugsbug workaround\n\n"; }

say '
class Pe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15409	15505	
==>gine" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15409	15505	
==>gine" is in use.

Rosetta incorporates a complete and uncompromising implementation of "The
Third <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35387	35498	
==>to
C<(?=A)(?=B)C>.

  # still in Regexp::AndBranch::and
  sub qr {
    my ($self) = @_;
    my @kids = @{ $self- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2926	3022	
==>ncipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2926	3022	
==>ncipherer>

    $encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an enc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11136	11282	
==>\\&Grammar::Perl6::ws_star,\n" .
                Runtime::Perl5::RuleOps::emit_rule( $rule ) .
                "    );\n" .
    
                #" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	2708	2809	
==>d { CORE::shift(@{(shift)}) }
sub pop     : method { CORE::pop(@{(shift)})   }

sub unshift : method { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14257	14354	
==>who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14257	14354	
==>who(Str $target)   { ./:enqueue("WHO $target") }
  method whois(Str $target) { ./:enqueue("WHOIS $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13610	13714	
==>So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13610	13714	
==>So, we
    # conclude, the connection is b0rked, and we disconnect.
    if(time() - $.last_traffic >= $.l <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6391	6501	
==>letter (Lt)",
      # "Modifier letter (Lm)", "Other letter (Lo)", or "Letter number (Nl)".
      <Lu> | <Ll> | <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	21311	21403	
==>esulting object's visual flag set.  That
means C<(?gi-o)> becomes C<(?i)>.

=item Diagnostics <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21690	21828	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21969	22107	
==>,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    su <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	131	254	
==>::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	131	254	
==>::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($work <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	17191	17295	
==>@_=(\$__c__,'$1','$2');goto \&Y::dorule;})/g;
  my $parser = Regexp::Parser->new($re);
  my $n = eval{ $p <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22249	22344	
==>he L<Relation> library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essentially a set of map <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1472	1585	
==>=head3 Procedural interface

The Cipher API's procedural interface is good enough for many purposes.  
Although th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1472	1585	
==>=head3 Procedural interface

The Cipher API's procedural interface is good enough for many purposes.  
Although th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2006	2114	
==>"RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2006	2114	
==>"RC_" ~ $message) is export(:MANDATORY);
    }
    
    our &RC_MOVED_TEMPORARILY is export(:MANDATORY) := &R <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3767	3863	
==>s_version", Pugs.Version.version)
    ,("pugs_revision", Pugs.Version.revnum)
    ]

getConfig :: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	481	572	
==>->compile(q(<'rule'> <rule_name><?ws>?<block>{
	my $body = substr($<block>, 1, -1);
	$body = <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	617	732	
==>er or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	617	732	
==>er or decimal
            if $number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedTex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10256	10407	
==>' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'ca <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10256	10407	
==>' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7624	7786	
==>capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7624	7786	
==>capture} = $_[0];
            }
        }
        $new_match->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1664	1776	
==>ory->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1664	1776	
==>ory->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_op( {
    fixity => 'infix', nam <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	161	268	
==>le::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	161	268	
==>le::Compile;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.15';

# A lexical hash to keep track o <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6917	7127	
==>> 'method')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$self:')
                  ->get_attr(symbol->ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1887	1990	
==>uding

intrinsic Code (which then has Pad/Sig/Body too)

Var is either a static lookup (lex only) or a d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1815	1916	
==>uding
intrinsic Code (which then has Pad/Sig/Body too)
Var is either a static lookup (lex only) or a d <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4603	4717	
==>:non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4796	4910	
==>:non_capturing_subrule'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14406	14521	
==>handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8609	8724	
==>handler('POSIX_lower' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => lower => $ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5193	5322	
==>tch2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5193	5322	
==>tch2->{tail} ) {
                my $len = length( $match2->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7605	7718	
==>list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7605	7718	
==>list containing the lazy array elements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_a <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7876	7977	
==>ugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7876	7977	
==>ugs Portable file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2819	2919	
==>$self = shift;
		my $node = shift;

		if (Scalar::Util::blessed($node) and $node->can("type")){
			re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1738	1862	
==>TOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $AUTOLOAD)[-1];
        ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24857	24953	
==>t too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C<N <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24857	24953	
==>t too many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, C<N <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6293	6413	
==>rl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6293	6413	
==>rl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7492	7629	
==>mmar::Precedence->new( 
    grammar => 'rxinfix',
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'inf <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2035	2161	
==>l::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2035	2161	
==>l::Compiler::PIL::PILThunk
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    submethod BUILD () <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3571	3686	
==>ft;
	$self;
}

package type::operator::binary;
use base qw/type::operator/;

use Scalar::Util ();

sub new {
	my $cl <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3383	3520	
==>ocal $Z::oop{$id}{'var'} = $var;
        push(@$var,$tok);
        return &$step;
      }
      my $op1 = $operators->($noop);
      if($o <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	4149	4269	
==>t $.event;

    method dispatch {
        dispatch($?SELF, $.subscription.subscriber);
    }
    
    method dispatch (Co <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3702	3803	
==>y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-9 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3702	3803	
==>y, dieresis or umlaut mark

 # Some extra Latin 1 chars that are listed in the HTML3.2 draft (21-May-9 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4605	4759	
==>pture => $capture,

            };

        }

    }

}



sub ruleop::constant { 

    my $const = shift;

    return sub {

        ### matching constant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4465	4610	
==>pture => $capture,
            };
        }
    }
}

sub ruleop::constant { 
    my $const = shift;
    return sub {
        ### matching constant <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7262	7347	
==>fail)}, !.

p5_condition_body(Rk,R1,R2) --> p5_condition_test(Rk), p5_concatenation(R1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4530	4640	
==>t dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4313	4418	
==>t dump_tree($match->{capture},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8984	9075	
==>,"default=>sub{$default}") if defined $default;

	my $slurpy = ref($op{'paramContext'}) =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	4059	4211	
==>},
                match => [],
            }, 'Pugs::Runtime::Match::Ratchet';
        return;
    }
};

sub named {
    # return a named captur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5348	5483	
==>le ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtU <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5866	5977	
==>le ) = @_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtU <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1293	1457	
==>esterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1293	1457	
==>esterday' }
#                    / ) {
#        return $?SELF.$meth();
#    }
#    else {
#        # load a heavier weight parser - hand waving ensues
#    }
}

# da <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41342	41455	
==>ards improving this module's
documentation, particularly towards using a much shorter and
non-intimidating SYNOPSI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41342	41455	
==>ards improving this module's
documentation, particularly towards using a much shorter and
non-intimidating SYNOPSI <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2307	2418	
==>mar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2396	2507	
==>mar: <ws>, <space>.

* Code Emitters

=item * L<Pugs::Emitter::Rule::Perl5> converts parsed Rules to Perl 5 code <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	447	551	
==>urn $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	447	551	
==>urn $self.start == -Inf || $self.end == Inf
}

method start () returns Object {
    return unless @.spans <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3776	3911	
==>(%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3776	3911	
==>(%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF,
    "$method $u HTTP/1.0",
    "Host: $h",
    "User-Agent: lwp-trivial <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5713	5886	
==>member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5713	5886	
==>member_names.map:{ @!set_names »~« $_ }];
}

###########################################################################

method translate_message (Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17443	17532	
==>ibwww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITL <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17443	17532	
==>ibwww-perl this header will be
initialized automatically from the E<lt>TITLE>...E<lt>/TITL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34102	34213	
==>rred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the main Translat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34102	34213	
==>rred language
is used.  Each Set Name can be any defined and non-empty string.

=back

This is the main Translat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25314	25417	
==>s identical; they do not
interact with the outside environment at all.

A Message object has two main at <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25314	25417	
==>s identical; they do not
interact with the outside environment at all.

A Message object has two main at <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2643	2748	
==>t($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2643	2748	
==>t($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $rv = ($other. <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	5036	5141	
==>DERR);$|=1;select(STDOUT);$|=1;  # auto-flush
-f $head or die "error: file '$head' not found.\n";
-f $tail <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	715	839	
==>tr( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	715	839	
==>tr( $_ ) } @$match )
        if ref( $match ) eq 'ARRAY';
    return _str( $match->{match} ) 
        if ref( $match ) eq 'HA <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	485	595	
==>ined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	485	595	
==>ined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_closed () return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24609	24706	
==>dation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later ve <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24609	24706	
==>dation (L<http://www.fsf.org/>); either version 2 of the
License, or (at your option) any later ve <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7822	7974	
==>NIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7822	7974	
==>NIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27586	27711	
==>($rem,$s,L),L);
	if ($ret) {
	    #print ">>$ret<<\n";
	    my $res = eval($ret); die "bug $@\n$ret" if $@;
	    #use Data::Du <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26069	26171	
==>e is a machine-readable short
string; the allowed variable names you can have depend on the Message Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26069	26171	
==>e is a machine-readable short
string; the allowed variable names you can have depend on the Message Key <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9364	9464	
==>ue $self: symbol $label) returns nil { 
    %:methods.delete($label);
}

(method remove_method ((opaq <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6387	6511	
==>}
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = spl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6387	6511	
==>}
        my ($path_directories, $path_file) = (splitpath($path, 1))[1,2];
        my ($base_volume, $base_directories) = spl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2763	2881	
==>'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2763	2881	
==>'í',  # small i, acute accent
    "icirc"    => 'î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8238	8338	
==>pan = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::In <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8238	8338	
==>pan = $span1.union( $span2 );
  say @span.map:{ .stringify }.join(",");

On the other hand, a Set::In <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2997	3213	
==>m ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2997	3213	
==>m ~= "$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19362	19455	
==>cates the
authentication scheme and parameters applicable to the requested URI.

=item $h.prox <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19362	19455	
==>cates the
authentication scheme and parameters applicable to the requested URI.

=item $h.prox <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3102	3213	
==>er::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method han <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3102	3213	
==>er::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method han <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8007	8104	
==>:Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retur <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8007	8104	
==>:Spec::Win32 module.

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11504	11617	
==>regex engine doesn't see \N{NAME} escapes -- they get interpolated
by Perl first.  In fact, if one slipped through <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5033	5130	
==>ee_vars {
	my $self = shift;
	$self->{param}->free_vars;
}


package type::operator::arrow;
use ba <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	81	202	
==>thod dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so w <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	81	202	
==>thod dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	122	238	
==>t Filtered-Comments.pm



=pod



A "rule" function gets as argument a list:



0 - a string to match

1 - an optiona <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	117	226	
==>t Filtered-Comments.pm

=pod

A "rule" function gets as argument a list:

0 - a string to match
1 - an optiona <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	777	881	
==>left, $right) = @_;
    return $left->to_native cmp $right->to_str->to_native;
}

# methods ... 
 
sub co <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	848	963	
==>ow handlers
    $obj->mk_accessors( qw[meta config dir] );

    ### get a config and the meta object
    {   my $con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11698	11793	
==>terprets the '\N' as a needlessly backslashed 'N'.  My
module parses them and handles them prope <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	898	996	
==>e", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	898	996	
==>e", as this is an "implied" tag
 my $title = Perldoc::DOM::Element->new ({ name => "title" });
 $no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	413	523	
==>\\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	413	523	
==>\\>  { use v5; return $<VariableName>() }
    | $<cap_num> := (\\d+) { use v5; return "capture_" . $<cap_num> } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25010	25150	
==>al;

  sub new {
    my ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15208	15308	
==>ser.  Sometimes this is an error message of some kind, but it
could also be a prompt or response mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15208	15308	
==>ser.  Sometimes this is an error message of some kind, but it
could also be a prompt or response mess <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	958	1065	
==>hored
        or die "can't match '$iso8601' to available ISO-8601 duration formats";

=pod

    my $duratio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10448	10554	
==>otes because of VMS
	}
    }
    if ($args{switches}) {
	local $Level = 2;
	die "test.pl:runperl(): 'switch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18689	18806	
==>s exactly to the named
parameters of Node.new(); you need to supply its $document and optional
$parent_node though; yo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18689	18806	
==>s exactly to the named
parameters of Node.new(); you need to supply its $document and optional
$parent_node though; yo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29415	29528	
==>_TAIL_z            8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_T <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	2667	2767	
==>}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Backend::C - 

=head1 SYNOPSIS

	use Blondie::B <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1295	1437	
==>pute($self);
    }

    package Env;
    use base 'Map';

    package MEnv;
    use base 'Env';
    sub set { $_[0]{$_[1]} = $_[2] }

    packa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	387	512	
==>st";
    ($args->is_empty == $bit::FALSE)
        || confess "Your arg list must at least include the invocant";
    my $inv = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8933	9043	
==>ter(' ');


=item map 

 multi Array::map (@values,   Code $expression --> Lazy ) 
 multi  List::map (Code $exp <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16360	16459	
==>PGE::P6Rule", "$optable"
    $P0 = optable."parse"(mob)
    .return ($P0)
.end

.namespace [ "PGE" ] <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	293	395	
==>s_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $cla <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	293	395	
==>s_open? = Bool::False, 
    $.end_is_open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $cla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12531	12641	
==>source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12531	12641	
==>source) = @_;

    $source =~ s/(~{3,})/$1~/g;
    $source =~ s/(^'{3,})/$1'/gm;
    $source =~ s/(^`{3,})/$1`/ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14138	14232	
==>uit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NIC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14138	14232	
==>uit(Str $reason)  { ./:enqueue("QUIT :$reason") }
  method nick(Str $newnick) { ./:enqueue("NIC <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5893	6009	
==>s => $S->force_object(alnum => 0)) if $cc;
    return $S->object(alnum => 0);
  });

  # clump (a unicode clump)
  $s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10288	10438	
==>$last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10288	10438	
==>$last_traffic  = time;
        $last_autoping = time;
        debug "done.";
      } else {
        debug "failed ($!).";
      }
    },
    disconnect <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8735	8827	
==>tream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8735	8827	
==>tream>, L<Cipher::Block>

L<Digest>

Bruce Schneier. I<Applied Cryptography, Second Edition>. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1980	2115	
==>&?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1980	2115	
==>&?OUTER::BLOCK(+$_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6074	6209	
==>ator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6074	6209	
==>ator globally; prefix+infix' 
    );
    #print postfix( $match->() );
}

{
    my $match = $grammar->parse( '3*(4+5)' );
    #print Dum <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7597	7762	
==>{
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7597	7762	
==>{
                $x = &{ $.universe.closure_next }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1589	1803	
==>lement>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1589	1803	
==>lement>('item');                     
                    }
                    when rx:P5{^=back} {
                        %events<end_element>('list');
                    }
                    when rx:P5{^=begin <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2577	2672	
==>ule is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hac <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2577	2672	
==>ule is more like the
Perl 5 File::Spec::Functions module than the base File::Spec. Also the
/hac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4635	4775	
==>.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4635	4775	
==>.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node?', $parent_node );
    }
    $?SELF!_assert_arg_str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	22406	22513	
==>{stack} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  # (?=) (?<=)
  package Regexp::Parser::ifmatc <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1561	1717	
==>{
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1561	1717	
==>{
        if %param<object>.isa( $class.ref )
        {
            $.span = %param<object>.span;
            return;
        }
        if %param<object>.isa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4376	4476	
==>.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4376	4476	
==>.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($file ~~ rx:perl <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9438	9630	
==>midifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12915	13107	
==>midifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of the relation in $other <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5140	5247	
==>'YAML' );



  # use the configuration file (Pugs::Compiler::YAML.pm)

  *compile::YAML = Pugs::Compiler->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4962	5066	
==>'YAML' );

  # use the configuration file (Pugs::Compiler::YAML.pm)
  *compile::YAML = Pugs::Compiler->ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3418	3615	
==><q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { qua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3665	3862	
==><q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0]{q1}() ,}, 
                $_[0]{q2}(),
            ] ,} 
        } 
    
    ]?
    
    { return { qua <==
2	/Users/nnunley/pugs/util/grokprims.pl	30	187	
==>use strict;

while (<>) {
  last if /^initSyms = /;
}

my %assoc = (
    spre  => 'special',
    pre   => 'prefix',
    post  => 'postfix',
    left  =>  'lef <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9307	9414	
==>s Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12784	12891	
==>s Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semidifference <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6244	6383	
==>want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6244	6383	
==>want {
        when List { return @ct }
        when Item { return @ct[0] }
      }
    },
    STORE => -> Str $type {
      $self!header("C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11776	11965	
==>_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12134	12323	
==>_[0] }, 
        '$<ident>'
    ) );
    my $program = emit_rule(
            match::get( 
                { capture => $_[0] }, 
                '$<rule>'
            ), $_[1] );
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2019	2127	
==>> 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2019	2127	
==>> 'left',
    precedence => 'tighter', other => '*',
} );
$statement->add_op( {
    fixity => 'postcircumfix' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1192	1304	
==>he cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
results along the way.

=it <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1192	1304	
==>he cipher.

=item 2. Give it data to encipher (or decipher), retrieving intermediate 
results along the way.

=it <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24502	24604	
==>ified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24502	24604	
==>ified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	538	636	
==>.
type SlurpLimit is ( Int, Perl::Exp );

has SlurpLimit $.subSlurpLimit;

has Perl::Type $.subRetu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4023	4137	
==>?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $matc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4081	4195	
==>?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $matc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15791	15900	
==>nd the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

I <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15849	15958	
==>nd the caller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

I <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11454	11599	
==>oc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc termi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11454	11599	
==>oc marker
    <<                  # heredoc marker
    (['"\{\[]?)         # $3 - possible left quote
    ([\w\-\.]*)         # $4 - heredoc termi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4771	4910	
==>338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4771	4910	
==>338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => chr(376),
    "fnof"     => chr( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1208	1300	
==>:Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1208	1300	
==>:Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same thing
as C<use Fil <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2328	2429	
==>ne utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2328	2429	
==>ne utility.

=head1 SEE ALSO

The Pugs homepage is at L<http://pugscode.org/>.

The mailing list for P <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	990	1098	
==>losed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	990	1098	
==>losed;
}
method end_is_open () returns bool {
    return Bool::False unless @.spans;
    my $last = @.spans[- <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	506	609	
==>Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.o <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	506	609	
==>Test (Project, Pumpking)");

=head1 DESCRIPTION

Pugs is an implementation of L<Perl 6|http://dev.perl.o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	13574	13732	
==>ackage Regexp::Parser::suspend;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    sub {
      my $c = $_[0];
      m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5023	5129	
==>", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5023	5129	
==>", $event<rest>)[0];

      unless defined %!cache353{$chan} {
        %!cache353{$chan} = %!channels{$chan <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	668	772	
==>hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File::P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1949	2053	
==>hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File::P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1791	1925	
==>syntax> { return { rule => $_[0]{metasyntax}(), } } ]
    }
    
    rule named_capture {
        \$ \< <ident> \> <?ws>? \:\= <?ws>? < <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2504	2626	
==>ult ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # other <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2504	2626	
==>ult ($self:) {
    # if we did not succeed, then 
    # we return undef, ...
    return undef unless $!success;
    # other <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18779	18896	
==>) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15200	15317	
==>) }xgc;
    pop @{ $S->{flags} };
    return $S->object(close =>);
  });

  # some kind of assertion...
  $self->add_h <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2783	2924	
==>(scalar @file) {
			$chr = shift @file;
			last if $chr =~ /\n/;
			print $chr;
		    }
		    next;
		}
		printlatex $chr, $col;
		$chr = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4207	4298	
==>)->code();

    <@Grammar::Perl6::terms>
RULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17303	17405	
==>lowing benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane mann <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17303	17405	
==>lowing benefits:

=over

=item *

Ability to mix many source filterish modules in a much more sane mann <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2694	2811	
==>eturns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2694	2811	
==>eturns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5513	5635	
==>se_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Can <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6010	6127	
==>se_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "Can <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	427	536	
==>:Module::Install calls "require Module::Install"
#     5. The ./inc/ version of Module::Install loads
# } ELSE <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7346	7449	
==>a class to put the roles in ...
my $FooBar = $Class->new(
    '$:name' => 'FooBar',
    '$:superclass' = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4670	4786	
==>ntersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4670	4786	
==>ntersection( $tmp );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method a <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	385	489	
==>ode);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	385	489	
==>ode);
  $codefh.close();
  my $pilfh = Pipe::open("$PIL $optional_args $tempfilename");
  my $pilresult = <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1510	1636	
==>ses,
                $:superclasses.map:{ .all_superclasses });
    } else {
        return set();
    }
}

method all_attribut <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1284	1505	
==>'list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1284	1505	
==>'list');
                            $in_list = 0;
                        }
                        my $size = $0.bytes;
                        %events<start_element>('header', $size);
                        interpolate <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15350	15451	
==>sc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  mul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15408	15509	
==>sc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  mul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9109	9225	
==>al',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9105	9221	
==>al',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemen <==
2	/Users/nnunley/pugs/util/importgraph.pl	667	780	
==>imports);

  open my $fh, '<', $_
    or die "couldn't open $File::Find::name: $!\n";

  while(<$fh>) {
    if (/^ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5019	5126	
==>__DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5019	5126	
==>__DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = $clas <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13025	13129	
==>s both take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13083	13187	
==>s both take blocks of code, run the code, and test whether they live or die.

=== A Note about TODO-ing t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23406	23502	
==>e "Relation" is a Role rather than a Class, and some
implementations are immutable rather than mu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27958	28054	
==>e "Relation" is a Role rather than a Class, and some
implementations are immutable rather than mu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22207	22312	
==>re private, so you must use accessor methods.  Rosetta
does not declare any subroutines or export such.

T <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22207	22312	
==>re private, so you must use accessor methods.  Rosetta
does not declare any subroutines or export such.

T <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1096	1230	
==>}
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1096	1230	
==>}
            }
        }
        warn "Cannot find current script '$*PROGRAM_NAME'" unless -f $script;
        $script = catfile( File <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7483	7612	
==>$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7471	7600	
==>$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       my \$quantified;
$_[1]       \$bool = 0 unle <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25645	25740	
==>re regmust matched is the earliest possible start of the match.
 * For instance, /[a-z].foo/ has <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12905	13038	
==>ult = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12905	13038	
==>ult = $1;
            $result =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class- <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2082	2179	
==>tdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2082	2179	
==>tdir('path', 'to', 'dir');
  catfile('path', 'to', 'file');
  
  my @path = splitdir('/path/to/dir <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6018	6125	
==>) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6018	6125	
==>) }
    );
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9349	9473	
==>\&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9542	9666	
==>\&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13779	13930	
==>ant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14058	14209	
==>ant( "\;" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { _push => <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4769	4943	
==>";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4769	4943	
==>";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	35629	35950	
==>ol->new('$label'     => 'symbol'), 
                              symbol->new('$attribute' => 'attribute'),                                 
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;                               
                $e->get( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3494	3611	
==>$start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_op <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3494	3611	
==>$start ) && !defined( $end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_op <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30247	30342	
==>hat order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34799	34894	
==>hat order, and it works like Perl's
standard C<map> operator. It returns a new Relation whose at <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7519	7627	
==>,
    },
);

is($Foo->id, 6, '... $Foo is the fourth id');
is($Foo->name, 'Foo', '... $Foo got the right meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	502	677	
==>)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	502	677	
==>)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4737	4858	
==>ew emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4574	4691	
==>ew emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2587	2789	
==>red_alternatives config 
                                   dir] 
                            );
            
            ### set these 2 first, the other methods rely on it
            $obj->dir( $dir ) <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	30	161	
==>s ~~ @a        # $s Element in @a
123 ~~ @a       # ?@a[123]
123 ~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Element <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4133	4249	
==>ETHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothin <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4133	4249	
==>ETHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

These methods may return nothin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17651	17750	
==>r field is used in request messages and contains information
about the user agent originating the re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17651	17750	
==>r field is used in request messages and contains information
about the user agent originating the re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1450	1577	
==>= $Root . $Config{installsitelib};  # site_perl dir
$Tmpdir         = $Root . '/tmp';                   # temp dir for install
$ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13594	13727	
==>($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synhtml = catfile( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1359	1463	
==>h) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1359	1463	
==>h) returns Void { $.depth = $depth }

my method remove_parent returns Void { $!parent = undef }


my meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16941	17094	
==>$rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13362	13515	
==>$rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) {
        my $c = $1;
        $$ret = $S->$c(1);
      }
      e <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9915	10020	
==>andler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    conn <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9915	10020	
==>andler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/disconnect methods
    conn <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	837	954	
==>SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	837	954	
==>SeenExt - Tracks the times people spoke lastly

=head1 SYNOPSIS

  use Net::IRC;
  use Net::IRC::SeenExt;

  my $bot = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6201	6311	
==>see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6201	6311	
==>see also: slice()
    my $ret = self.splice( $pos, 1 );
    self.splice( $pos, 0, [$ret.items] ); 
    return $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10106	10228	
==>it modifies argument #3 to:

    { bool => 0 } - match failed

or to a hashref containing:

    bool  - an "assertion <==
2	/Users/nnunley/pugs/util/drift.pl	969	1064	
==>rogram;

# Rearrange the DrIFT header
@program[0..2] = @program[2,0,1];
my @scary_header = split <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14019	14133	
==>$how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8224	8338	
==>$how);
  });

  # digit POSIX class
  $self->add_handler('POSIX_digit' => sub {
    my ($S, $neg, $how) = @_;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1140	1307	
==>te $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1280	1447	
==>te $param->{s}        || 
                        0;

    warn "Error in rule: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15117	15232	
==>ct )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15117	15232	
==>ct )`.

- `new( span => $span )`

Creates a `Span` object using an existing span.

- `new()`

Without any parameters <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	329	460	
==>{
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly
    # and calling members before a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	329	460	
==>{
    # XXX - this is nessecary because the hash 
    # does not seem to get initialized properly
    # and calling members before a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	972	1076	
==>les

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	972	1076	
==>les

=head1 SEE ALSO

Pugs::Runtime::Match

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<g <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	4467	4625	
==>oreach (@a)        -->  for @a
    foreach my $r (@a)  -->  for @a -> $r

    package MY::Class;  -->  class MY::Class;

    open $f, 'file';      -->  $f = op <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2595	2738	
==>edly succeeded"/    and $smoke{summary}       = {
    total    => $1,
    ok       => $2,
    failed   => $3,
    todo     => $4,
    skipped  = <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22283	22399	
==>se>
    | <CaseClauses> <CaseClause>
}
rule CaseClause :words {  # see 12.11
      <'case'> <Expression> <':'> <State <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4096	4204	
==>->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4313	4421	
==>->{tail};
    die "compile: syntax error in program '$_[0]'\n"
        unless $match->{bool};
    if ($flags- <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1172	1363	
==>000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1051	1242	
==>000}e;
                $self->perl_version($version);
                next;
            }
            my $rv = [ $module, $version ];
            push @rv, $rv;
        }
        push @{ $self <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	7626	7837	
==>sing 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	7626	7837	
==>sing 'elems()'
        )
    }

    method kv ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = $ret <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	12851	12989	
==>map { "$initrd_mnt/lib/" . basename $_ } @libs;
      1;
    },
    using  => sub {
      utime undef, undef, $initrd_img;
      for(@libs) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1501	1611	
==>reated .pmc file: $^X $pmc \n";
  );
warn "compilation error: ", $@ if $@;
eval $p6->{perl5}  
    unless $file <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2724	2820	
==><N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst s <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2724	2820	
==><N> can be fractional) from the stream. A bucket never
conforms to an I<N> greater than C<burst s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1545	1685	
==>}
                        @{ $inst->registered_alternatives };
        $self->alternative( $alt );
    }
    
    return $self;
}

=head2 $fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	3241	3338	
==>->{precedence} $opt->{other}\n";
            $relative_precedences{$opt->{precedence}}->($self, $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21374	21489	
==>h the package name?).  An advantage of
this is that, for example, your package could come with a set of user
message <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21374	21489	
==>h the package name?).  An advantage of
this is that, for example, your package could come with a set of user
message <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3836	3962	
==>ugs::Grammar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12681	12798	
==>ift;
    my $ast = shift;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3951	4068	
==>al ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3951	4068	
==>al ISO-8859/1 entities listed in rfc1866 (section 14)
    "iexcl"    => '¡',
    "cent"     => '¢',
    "pound"    = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8538	8634	
==>e Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8538	8634	
==>e Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0.724.0.

It <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	641	892	
==>ackage Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	641	892	
==>ackage Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages used by the Rosett <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	47	165	
==>(Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cu <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	47	165	
==>(Str $spec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1106	1282	
==>params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1106	1282	
==>params.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	795	926	
==>};
    
    my $args = check( $tmpl, \%hash ) 
                or error( Params::Check->last_error ), return;

    $self->mk_accesso <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3567	3679	
==>path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3567	3679	
==>path ~~ rx:perl5{^([A-Z]:)?\\\Z(?!\n)};  # xx\       -> xx
    # xx1/xx2/xx3/../../xx -> xx1/xx
    $path ~~ s:pe <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11509	11629	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11567	11687	
==>Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function will compare `$got` and `$expected` using `&compare_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	32	144	
==>public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	32	144	
==>public = 1];

has %!seen;

submethod BUILD() {
  ./add_handler("PRIVMSG", -> $event {
    my $sent_to_a_chan = $e <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	617	761	
==>cent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capita <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	617	761	
==>cent
    "Acirc"    => 'Â',  # capital A, circumflex accent
    "Agrave"   => 'À',  # capital A, grave accent
    "Aring"    => 'Å',  # capita <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	542	677	
==>aged found matching '$package'\n" unless $tried;
}                        

### XXX merge with pp_deps.pl            
sub _recurse_resol <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8459	8588	
==>it {  # see 7.8.3
      <[0..9]>
}
rule ExponentIndicator {  # see 7.8.3
      <'e'>
    | <'E'>
}
rule SignedInteger {  # see 7.8 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	947	1068	
==>array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1420	1541	
==>array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29draft.pod r8 <==
2	/Users/nnunley/pugs/util/importgraph.pl	2386	2500	
==>le (my ($name, $module) = each %modules) {
  my $cluster = $module->[2];
  my $rank = $module->[3];
  $g->add_node( <==
2	/Users/nnunley/pugs/util/package-osx.pl	5786	5877	
==>/local/man/man3/Perl6::Overview::Data.3
        /usr/local/man/man3/Perl6::Overview::Data.3p <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1931	2064	
==>print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1909	2042	
==>print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; retur <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1625	1725	
==>b fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1625	1725	
==>b fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try uri_escape_utf8() instead", <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4993	5100	
==>e match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4993	5100	
==>e match.

=head2 to ()

Returns the final position of the match.

=head1 AUTHORS

The Pugs Team E<lt>perl6-c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3483	3597	
==>_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3483	3597	
==>_MOD'
        => q[<CLASS>.<METH>(): can't load Locale::KeyedText Template]
           ~ q[ module '<TMPL_MOD_NAME> <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2925	3064	
==>()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

metho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2925	3064	
==>()();
        }
    });
}

method empty () {
    $.Parser.new(parse => sub ($match, &continue) {
        &continue($match);
    });
}

metho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22334	22497	
==>(
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42123	42286	
==>(
    # method label
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                param <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	913	1015	
==>= Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { requi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	880	982	
==>= Cwd::getcwd();
    chdir $args{local_dir} or return if exists $args{local_dir};

    if (eval { requi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1578	1707	
==>',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Vers <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1578	1707	
==>',
        502 => 'Bad Gateway',
        503 => 'Service Unavailable',
        504 => 'Gateway Timeout',
        505 => 'HTTP Vers <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2030	2130	
==>urn %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2030	2130	
==>urn %!msg_vars{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
} <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15890	15976	
==>item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15890	15976	
==>item C<new( :$document!, :$parent_node?, :$node_type!, :%attributes?,
:@child_nodes? )> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	1539	1633	
==>are defined

=head1 DESCRIPTION

These ADTs are the implementation classes of all the L<Blondie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2460	2589	
==>ch->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2600	2729	
==>ch->new( { bool => 0 } )
        unless defined $str;   # XXX - fix?
        
    $grammar ||= $rule->{grammar};
    #print "match <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20244	20352	
==>, elsewhere.


  regnode program[1];     /* Unwarranted chumminess with compiler. */

regcomp.h: This is esse <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1211	1332	
==>t( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1211	1332	
==>t( -Inf );
    return $tmp == Inf ?? undef !! $tmp;
}

method end ($self: ) {
    my $tmp = $self.previous( Inf );
    ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4015	4137	
==>hod freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4015	4137	
==>hod freshness_lifetime () {
        my @cc = ./header('Cache-Control');
        
        # First look for the Cache-Control <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1772	1898	
==>) {
        my $name = $self->name
            or die "all_from called with no args without setting name() first";
        $fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/Parrot.pm	244	340	
==>=>'typemap';
use Inline C=><<'C';
#include "parrot/parrot.h"
void run_bytecode(Parrot_Interp i,ch <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13699	13812	
==>nt to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13699	13812	
==>nt to any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $se <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	821	922	
==>side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-) <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	821	922	
==>side, but not vise versa.  This whole thing is just a proof of
concept -- use it at your own risk. :-) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5402	5502	
==>2+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(1 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5402	5502	
==>2+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(224+$num/4096)~$dec2hex(1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25302	25398	
==>attributes is identical; they do not
interact with the outside environment at all.

A Message obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25302	25398	
==>attributes is identical; they do not
interact with the outside environment at all.

A Message obj <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35778	35877	
==>argument, where <$other> has the same heading as
the invocant Relation::Example, and returns a new R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37810	37909	
==>argument, where <$other> has the same heading as the
invocant Relation::Example, and returns a new R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17404	17497	
==>nner.
Module::Compile controls the compilation process, calling each compiler
at the right tim <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17404	17497	
==>nner.
Module::Compile controls the compilation process, calling each compiler
at the right tim <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2781	2919	
==>rt if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2781	2919	
==>rt if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16209	16332	
==>ti Str::chomp (  Str  $string is rw                 --> Int )
 multi Str::chomp ( Str *@strings = (CALLER::<$_>) is rw --> I <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1783	1874	
==>$(${re_symbol})->(\[.+?])/\$$1$2/g;
    s/\$(${re_symbol})->(\{.+?\})/\$$1$2/g;
    s/\$(${r <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	309	407	
==>.subAssoc;

has Array of Perl::Param @.subParams;

has Array of Perl::Binding @.subBindings;

# so, <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2650	2751	
==>then incorporated into the match.  XXX it is not clear
that this is the optimal interface for this com <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2650	2751	
==>then incorporated into the match.  XXX it is not clear
that this is the optimal interface for this com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	399	535	
==>defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	399	535	
==>defined $pos;   # TODO - .*? $match
  my @match;
  my %named;
  my $bool;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	247	337	
==>lius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	247	337	
==>lius.cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-l <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	7646	7766	
==>t, pos, lastpos
    if pos == $I0 goto name
    $I1 = pos - $I0
    value = substr target, $I0, $I1
    $I0 = pos
  name: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15325	15422	
==>offset in subbeg,
endp[n] is the offset of the last char within the capture.
n=0 is the total matc <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2983	3086	
==>} = 'C:\usr\lib';
    $Config{archlib} = 'C:\usr\lib';
    $Config{sitearch} = 'C:\usr\site\lib';
    $C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	579	723	
==>($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	676	820	
==>($str,3,1) eq 'd') for 1..4000},
        regex          => sub{ $match = ($str =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5636	5745	
==>erminfo=s"     => \$terminfo,
  help             => \&usage,
) or usage();
check_for_evil_chars($initrd_img, $ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14312	14424	
==>hift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1792	1904	
==>hift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

sub reduce_seq {
    my $self = shi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1475	1678	
==>_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1475	1678	
==>_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () returns Hash {
    re <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	622	722	
==>on @_";
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::Runtime - Base class for execution syst <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3966	4090	
==>lf->_top) || '';
    my $top_version   = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
        ? "# Preamb <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2919	3040	
==>lf->_top) || '';
    my $top_version = $self->_top->VERSION || '';

    my $preamble = $self->preamble 
       ? "# Preamb <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16477	16597	
==>list of Spans. If one side of the span if Infinite, then the list contains
a single span. Otherwise, it contains two span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16477	16597	
==>list of Spans. If one side of the span if Infinite, then the list contains
a single span. Otherwise, it contains two span <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1670	1774	
==>ust a structure with three node forms: Var

(variable lookup), App (application) and Lit (literal).



Ap <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1602	1703	
==>ust a structure with three node forms: Var
(variable lookup), App (application) and Lit (literal).

Ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17631	17815	
==>ANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14052	14236	
==>ANGE, $lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2572	2675	
==>it at both ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2572	2675	
==>it at both ends!)

=item Encrypting with the exact same key twice can compromise both encryptions.

If t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	71	168	
==>ire 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::Fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	71	168	
==>ire 'p6prelude-cached.pl';
require 'p6primitives-cached.pl';
use interface;
# External
use IO::Fil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9001	9160	
==>($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9001	9160	
==>($key, $val) = @cookie.splice(0, 2);
                
                my %hash = @cookie;
                
                my $version = %hash.delete('version') <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30019	30115	
==>ESS_TODOFAIL to display TODO failures

Add a test for verbose.

Change internal list of test resu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10123	10226	
==>SIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::L <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10123	10226	
==>SIS

  my $list = Perl6::Value::List.from_range( start => 10, end => 20 );

  my $list = Perl6::Value::L <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1342	1521	
==>:Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1342	1521	
==>:Node class to see our private attributes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@ro <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9429	9530	
==>/<![CDATA[[
    function toggle_visibility (id) {
      var elem     = document.getElementById("detail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6961	7104	
==>l!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ );

        return if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6729	6866	
==>l!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ );
        return if <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34950	35049	
==>t is constructed.  If you want to
conceptually change an existing Translator object, you must create <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34950	35049	
==>t is constructed.  If you want to
conceptually change an existing Translator object, you must create <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1049	1140	
==>multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1049	1140	
==>multi sub uri_escape_utf8 (Str $string is copy, Str $unsafe) returns Str is export(:DEFAULT) <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1861	2078	
==>multi Array::sort(                 @values is rw
                              ; SortCriterion :$by = &infix:<cmp>,
                                          Bit :$inplace
                             --> Array )
{...} <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2123	2227	
==>our Int multi Num::round_away_from_zero (Num $x) {
	return 0 if $x == 0;

	my Int $t = int($x);
	return $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7363	7507	
==>rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7351	7495	
==>rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	395	527	
==>eem to get initialized properly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!membe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	395	527	
==>eem to get initialized properly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!membe <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3616	3712	
==>th/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 D <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3616	3712	
==>th/to/file.pod", pod2pod($str_buffer));
  
  parse("path/to/file.pod", pod2pod($fh));  

=head1 D <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33401	33500	
==>e
C<union> except that the returned Relation contains only tuples that are in
all of the source Rela <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37951	38050	
==>e
C<union> except that the returned Relation contains only tuples that are in
all of the source Rela <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	934	1037	
==>epends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	992	1095	
==>epends);
}

## is

sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is expor <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3471	3576	
==>isely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptogr <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3471	3576	
==>isely the sort of weak 
keying that can be exploited by a cryptoanalyst.  Use 128 bits of a good 
cryptogr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12244	12358	
==>ed to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header(' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12244	12358	
==>ed to a
    # particular instance
    my method host (HTTP::Request $r, URI $uri) {
        if (my $h = $r.header(' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8556	8698	
==>ope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8556	8698	
==>ope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12387	12490	
==>taining a digest of the original content.
#
# This makes further dividing of Perl code less troublesome. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12387	12490	
==>taining a digest of the original content.
#
# This makes further dividing of Perl code less troublesome. <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1118	1255	
==>rx:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1118	1255	
==>rx:perl5/^\s*([^=]+?)\s*=\s*(.*?)\s*$/) {
                        my ($key, $val) = ($0, $1);
                        %self{$sect}{$key} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35057	35150	
==>amily: branch

Types: branch (C<|>)

Data: array reference of array references, each represent <==
2	/Users/nnunley/pugs/util/package-osx.pl	2539	2628	
==>ers/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	404	512	
==>set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	404	512	
==>set();
}

=cut

# the Set is represented as a hash of (v => v)
has Junction $!members;

method members() retu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3338	3436	
==>mbers.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $ot <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3338	3436	
==>mbers.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: Set $ot <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	245	351	
==>(
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	245	351	
==>(
	reader   => '_pkg_meta',
	init_arg => 'pkg_meta'
));

# keep the rules handy in a local hash
__PACKAGE__ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2337	2434	
==>e->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2337	2434	
==>e->compile(q(
    <AdditiveExpr> { use v5; return $<AdditiveExpr>() }
))->code;
*Return = Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9807	9914	
==>onnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we conne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9807	9914	
==>onnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane state when we conne <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	226	372	
==>h = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byt <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	226	372	
==>h = 1;
}

method glob_to_regex ($glob) {
    my Str $regex      = '';
    my Int $in_curlies = 0;
    my Int $escaping   = 0;
    my Int $first_byt <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7108	7210	
==>hod content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7108	7210	
==>hod content_length ($self: )            is rw { $self.header("Content-Length") }

method user_agent ($s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6508	6652	
==>nts'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortable <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6301	6437	
==>nts'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	266	371	
==>would be in one file,
   and the defining macros, for each of various class hierarchies,
   in others.  Bu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	266	371	
==>would be in one file,
   and the defining macros, for each of various class hierarchies,
   in others.  Bu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1115	1208	
==>he L</SECURITY> section for details.  (In particular, 
note that the serious insecurities plag <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1115	1208	
==>he L</SECURITY> section for details.  (In particular, 
note that the serious insecurities plag <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1365	1458	
==>::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1365	1458	
==>::($worker_pkg)::abs2rel( $_path, $_base );
}

sub canonpath (Str $_path) returns Str is expor <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1282	1379	
==>= File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File:: <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1282	1379	
==>= File::Spec->catfile($Config{installbin}, 'pugs');
    my $full_blib = File::Spec->rel2abs(File:: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10452	10546	
==>ciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10452	10546	
==>ciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
method decipher(Class $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11471	11571	
==>er.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11471	11571	
==>er.header("User_Agent")   = 'My-Web-Client/0.01';
 $header.header("Accept") = "text/html, text/plain, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	3663	3773	
==>ler::Rule->compile( '
    (<item>) [ @op (<self>) ]?
    ' );

=cut

{

    my $rule = Pugs::Compiler::Rule->co <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	368	811	
==>7 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	368	811	
==>7 l            54 2
#          4 E            21 V            38 m            55 3
#          5 F            22 W            39 n            56 4
#          6 G            23 X            40 o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21334	21437	
==>substr     substrs->data[1].substr
 #define float_utf8       substrs->data[1].utf8_substr
 #define float <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5196	5307	
==>ed by undef.

# 9. Type Conversion

# 9.1
multi sub ToPrimitive(JSX::Value::Object $o) {$o.<[[DefaultValue]]>}
m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23734	23827	
==>bject attributes are private, so you must use accessor
methods.  Relation::Example does not de <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3912	4115	
==>ight') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3912	4115	
==>ight') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RETVAL = $ret";
        return $ret;
    }

    method pad_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1313	1406	
==>uation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1313	1406	
==>uation returns) with an updated C<Result> object.  If the parser
fails, it tail-calls $result. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4611	4731	
==>h? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4611	4731	
==>h? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tail );
    # say "items: ", @.i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1770	1911	
==>, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class- <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1770	1911	
==>, 2];

    return if $filtered->{$module}++;

    my $callback = sub {
        my ($class, $content, $data) = @_;
        my $output = $class- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5384	5483	
==>_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, sin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5384	5483	
==>_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source filter, sin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3072	3256	
==>\*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3319	3503	
==>\*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quant => $_[0]{quant}(),
            ws1   => $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5988	6103	
==>l document in which we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5988	6103	
==>l document in which we store some local
    # command definitions and fragments thereof.
    my Rosetta::Model::Docu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	410	524	
==>{ 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E)(.*)/s ) ? do{ \$s = \$2; push \@match, \$1 } : 0 <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10642	10747	
==>sure quantifier")
.end

.sub "parse_subrule"
    .param pmc mob
    .local string target
    .local pmc mf <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	637	735	
==>- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `ne <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	637	735	
==>- `new( closure_next => sub {...} )`

Creates a recurrence set where only methods `start()` and `ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1536	1663	
==>if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "an <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1536	1663	
==>if $req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "an <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2832	2942	
==>self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2832	2942	
==>self: Int $index, *@trees) returns Void {
    # check the bounds of our children 
    # against the index given <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5802	5910	
==>Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very prima <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5802	5910	
==>Perl 6/Pugs Portable file handling

= SYNOPOSIS

  use File::Spec::Unix;

= DESCRIPTION

This is a very prima <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7367	7467	
==>tion.

- "plain" match operators: like 'literal'.



Higher order operators take a list of match oper <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7117	7214	
==>tion.
- "plain" match operators: like 'literal'.

Higher order operators take a list of match oper <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4077	4209	
==>t' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4077	4209	
==>t' )
            ?? $_.Perl6::Value::List::elems
            !! 1;
    }, @.items);
}  

method is_infinite () {
    [||] @.items.map <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6855	7013	
==>method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6855	7013	
==>method previous ($self: ) {
        # TODO - simplify this
        my @spans = $.set.spans;
        loop {
            if defined $.current {
                m <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12055	12165	
==>s( $x )`

Returns the element in the recurrence that is right before the parameter.

- `current( $x )`

Returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12055	12165	
==>s( $x )`

Returns the element in the recurrence that is right before the parameter.

- `current( $x )`

Returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19838	19946	
==>ation Scheme".  In array context it will return two
values; the user name and the password.  In scalar contex <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19838	19946	
==>ation Scheme".  In array context it will return two
values; the user name and the password.  In scalar contex <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4568	4730	
==>!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.con <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4568	4730	
==>!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $self.con <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1745	1848	
==>unctional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @sp <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1745	1848	
==>unctional.empty_set();
    $.set = $.set.union( Set::Infinite::Functional.new( spans => [$_] ) ) for @sp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2299	2404	
==>aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_key <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2299	2404	
==>aren't encrypted well.  If your 
application allows, skip over a kilobyte or so by calling 
C<generate_key <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22374	22515	
==>y ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18795	18936	
==>y ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S- <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	719	913	
==>{
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element> <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	719	913	
==>{
            if ($is_parsing) {
                given $line {
                    when rx:perl5{^=cut} { 
                        if ($in_list) {
                            %events<end_element> <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	254	369	
==>d get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Vo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	254	369	
==>d get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_filter ($self:) returns Vo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40171	40268	
==>ion, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40171	40268	
==>ion, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301, USA.

Any versions of Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	61	173	
==>:Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# pars <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	61	173	
==>:Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# pars <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9105	9207	
==>Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "encipherin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9105	9207	
==>Mode <enciphering deciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "encipherin <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12929	13045	
==>esult =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12929	13045	
==>esult =~ m{\A($re_data)}    ? $class->pmc_fold_data()    :
            $result =~ m{\A($re_pod)}     ? $class->pmc_fo <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	883	994	
==>lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no loa <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	883	994	
==>lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no loa <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1331	1433	
==>d'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textar <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1331	1433	
==>d'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget 'textarea', sub(%p, %v) {
    return '<textar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3007	3188	
==>n t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3147	3328	
==>n t/08-hash.t ???
        unless ( defined $rule->{code} ) {
            local $@;
            $rule->{code} = eval 
                $rule->{perl5};
            die "Error in evaluat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	752	885	
==>h' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	752	885	
==>h' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	2166	2273	
==>ster( package => $self );
}

1;


# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	26687	26782	
==>5_method/4 will be available

do{open F,">deleteme_pro.pl";print F $prolog;close F;} if 1;
swi_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40758	40850	
==>::KeyedText would appreciate being informed any time you create a
modified version of Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40758	40850	
==>::KeyedText would appreciate being informed any time you create a
modified version of Locale: <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1744	1915	
==>$fh> ) {
        chomp;
        -e $_ && system(qq[rm -rf $_])                          and die $?;
        
        die "File '$_' not removed" if -e $_;
    }
    close $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1636	1750	
==>values'}{'dynamic_config'} = $_[0] ? 1 : 0;
	return $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	941	1046	
==>lso at Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

# note: <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3865	3961	
==>iv => $sym->fmap(sub { Blondie::TypeSafe::Annotation->new(struct_equiv => $_[0]) }),
		);
	}

	su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12581	12745	
==>ng - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{int} 
               || exists $n->{exp2}{scalar} 
               ) 
               && e <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	379	512	
==>fer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buff <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	379	512	
==>fer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buff <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6546	6644	
==>::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_ty <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6546	6644	
==>::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scalar_data_type', { 'base_ty <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4220	4335	
==>or), return;

    my $fh = OPEN_FILE->($file) or return;
    my $contents = do { local $/; <$fh> };

    return $con <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1755	1870	
==>( defined($file) ) {
        my $name = $self->name
            or die "all_from called with no args without setting <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16540	16642	
==>age, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16540	16642	
==>age, which satisfies TTM's definition of a "D" language, is
described fully in the L<Rosetta::Language> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18364	18465	
==>ocs can possibly confuse further parsing.

Next, the source module is divided into a shallow tree of b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18364	18465	
==>ocs can possibly confuse further parsing.

Next, the source module is divided into a shallow tree of b <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1170	1273	
==>.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateT <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1170	1273	
==>.end;
}

=kwid

= NAME

DateTime::Span - An object representing a datetime span

= SYNOPSIS

  use DateT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5391	5490	
==>nels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5391	5490	
==>nels and %users accordingly.
    ./add_handler("JOIN", -> $event {
      if(normalize($event<from_ni <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5453	5608	
==>1 >= base goto term_bx2
    $I0 *= base
    $If0 += $I1
    inc pos
    goto term_bx1
  term_bx2:
    initchar = chr $I0
    if $I2 < 0 goto term_bx3
    $S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8821	8984	
==>ed";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8821	8984	
==>ed";
            return;
        }
        return 
            "$_[1] negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18293	18386	
==>nvite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18293	18386	
==>nvite);
  $bot<add_handler>("PRIVMSG",  \&on_privmsg);
  $bot<add_handler>("loggedin", \&on_re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1459	1573	
==>.. }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpa <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1459	1573	
==>.. }

    # "no MyFilter" begins filtering
    # "use MyFilter" terminates it

=head1 AUTHORS

Audrey Tang E<lt>cpa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11590	11690	
==>ody([])    --> {true}.

p6_comment --> "#", rest_of_line(_).
rest_of_line([10])  --> [10], !.
rest_of <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	4058	4158	
==>_->ls_all_accessors }


1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# inden <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5944	6045	
==>ct>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5944	6045	
==>ct>;

      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.remove(normalize <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	480	616	
==>f Array]* of Str

sub parse (@start, $token, @end, @_ is rw) {
    state %tok = (
        hash =>  sub (@_ is rw) {
                my Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10117	10222	
==>eturns the next node and its depth:

  while (my ($node, $depth) = $iter->()) {
    # $node is a Regexp::P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3651	3844	
==>$acc = '_'.$key;
    
            ### XXX allow handlers?
            $Obj->mk_accessors( $acc );
            
            ### set to a sane default value
            $Obj->$acc( $config{$key}-> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	22	129	
==>e v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "b <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	22	129	
==>e v6;
my $wer = "Otto";
my $haustier = "Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "b <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	433	532	
==>ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	433	532	
==>ord, 'head'.split('') }
    method _tail() { return map &ord, 'tail'.split('') }
    method _cipher( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2965	3061	
==>ugs> requires the installation of a lot of Perl 5 modules,
it is completely independent of Pugs o <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	544	686	
==>gil$name$space}";
#	
#    # digits
#    } elsif ($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	646	758	
==>1 };
}

# check if we can run some command
sub can_run {
	my ($self, $cmd) = @_;

	my $_cmd = $cmd;
	return $_cmd <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	985	1090	
==>emicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	985	1090	
==>emicolon
# - bare block
# - if, while, for
# - subroutine, method, coro definitions
# - module, class, gra <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	418	638	
==>,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	419	639	
==>,
                   ruleop::constant( "\(" )
                 ,
                   ruleop::constant( "\)" )
                 ,
                   ruleop::constant( "\[" )
                 ,
                   ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	313	427	
==>if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similariti <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	313	427	
==>if $run == $!expect;
        return "Expected $.expect but ran $run";
    }
}

# XXX: extract the useful similariti <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	301	407	
==>e::Install::Base};
}


# check if we can load some module
### Upgrade this to not have to load the module i <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8071	8191	
==>ual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8129	8249	
==>ual: " ~ ($got.defined ?? $got !! "undef"));
    }
}


sub test_ends {
    return unless $Test::testing_started;
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	842	941	
==>(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	842	941	
==>(), fetch_slice().
  slice accepts a lazy list or lazy array as argument!
* elems() actually works
* <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1369	1469	
==>2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1369	1469	
==>2abs(File::Spec->catfile('blib', 'lib'));
    open MAKEFILE, '< Makefile' or die $!;
    my $makefile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	577	752	
==>" . $() ,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16414	16552	
==>= @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16414	16552	
==>= @_;
        # ... some way to invoke pugs and give p5 code back ...
    }

and use it like:

    # MyModule.pm
    use v6-pugs;
    modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	348	446	
==>$class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::To <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	348	446	
==>$class->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::To <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15118	15216	
==>as the first argument, if
called in a void context.  In scalar and array contexts, the encoded or
d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15118	15216	
==>as the first argument, if
called in a void context.  In scalar and array contexts, the encoded or
d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22545	22677	
==>${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18966	19098	
==>${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(??{' => sub {
    my ($S) = @_;
    my $nest;
    $nest = qr[ (?> [^\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	318	439	
==>:Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	318	439	
==>:Grammar::Base';
use Pugs::Grammar::Rule::Rule;   # compiled with lrep

sub code {
    my $grammar = shift;
    return $gr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1307	1466	
==>ned \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1307	1466	
==>ned \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_wrapper( \$_[0], \n" . 
        "        \$matcher->( \$s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5836	5972	
==>=> $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5836	5972	
==>=> $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, :$minimal = 0) {
    if $minimal {
        $. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5188	5288	
==>negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5381	5481	
==>negated_subrule;
*{'grammar1::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    retu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7622	7743	
==>he lazy array elements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7622	7743	
==>he lazy array elements.

  # insert a reference to array2 into array1
  $lazy_array.push( $lazy_array_2 );  
  
  # insert <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1405	1509	
==>t
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a true valu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1405	1509	
==>t
time and the text they said is saved.

If the (optional) role parameter C<public> is set to a true valu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	245	357	
==>Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	245	357	
==>Data::Dumper::Indent = 1;

our $direction = "+";  # XXX make lexical
our $sigspace = 0;

# XXX - reuse this sub i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23359	23457	
==>f not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27911	28009	
==>f not.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	816	914	
==>$nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	816	914	
==>$nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21270	21407	
==>my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17691	17828	
==>my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1664	1782	
==>if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4867	4985	
==>if shift->package() =~ $Package_re;
    }
    
    sub authority {
        return $4 if shift->package() =~ $Package_re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3373	3496	
==>rver::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 L <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3373	3496	
==>rver::Simple>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 L <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1150	1262	
==>ive());
}

sub subtract {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        || co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2543	2640	
==>XPORTS

For each node type a function named for its class (without the prefix) is
exported. This i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21856	21950	
==>y.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21856	21950	
==>y.

=head2 C<$bot.mode(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C< <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9795	9898	
==>n.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9795	9898	
==>n.

Recurrence sets can extend from "negative Infinite" until "Infinite".

Recurrence sets can be combin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11032	11149	
==>ed as separate values in list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11032	11149	
==>ed as separate values in list
context and will be concatenated with ", " as separator in scalar
context.  The HTTP spe <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2741	2838	
==>matrix saved as '$html_location'.
    You may want to submit the report to the public smokeserver: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	28232	28324	
==>d only pass the flag names,
without the "FLAG_" prefix.

=item $parser->add_handler($seq, $co <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18013	18126	
==>sily in its conditional logic, using a simple 'equals', and then the
application can "do the right thing".  No par <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18013	18126	
==>sily in its conditional logic, using a simple 'equals', and then the
application can "do the right thing".  No par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1517	1638	
==>->package eq $meta->package }
                        @{ $inst->registered_alternatives };
        $self->alternative( $al <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17651	17762	
==>ader_handler,
    test => \&test_handler,
    bailout => \&bailout_handler,
);

$Strap->{callback} = \&strap_cal <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7998	8098	
==>er the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exist <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7998	8098	
==>er the 'person'
    # table exists (and is correct).
    my Rosetta::Model::Node $fnd_tb_person_exist <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13050	13150	
==>rgument they are each decoded
separately and the same number of strings are returned.

If called in v <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13050	13150	
==>rgument they are each decoded
separately and the same number of strings are returned.

If called in v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3910	4090	
==>) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4374	4554	
==>) {
                
                ### do we have something that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependen <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	102	191	
==>me time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	102	191	
==>me time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class HTTP: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3058	3198	
==>dence => 'looser',
        other => 'eq',
    );
    
    __PACKAGE__->add_rule( 
        name => '||',
        assoc => 'right',
        pre <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3500	3911	
==>every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3500	3911	
==>every Rosetta::Interface::Variable object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Variable

###########################################################################
###########################################################################

=p <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8922	9030	
==>lize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.n <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8922	9030	
==>lize_parameter( $self, $span );
    return $self.new( span => $span1 ) if $span0.is_empty;
    return $self.n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13128	13228	
==>turned.

If called in void context the arguments are decoded in-place.

This routine is exported by d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13128	13228	
==>turned.

If called in void context the arguments are decoded in-place.

This routine is exported by d <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1498	1632	
==>eval.

    # S29:
    # Execute C<$code> as if it were code written in C<$lang>. C<Perl6> is the
    # only required language, but supp <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	5835	5983	
==>..\n";
        system( qq[rm -rf $my_tmp_dir] )                    and die $?;
    
        my $final_dir = $Site .'/'. $path;
        print -d  $fin <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1500	1621	
==>= sign($x) * floor( abs($x) ) }
        when ($_ >= .5) && ($x <  0) { $x_round = sign($x) * ceil( abs($x) ) }
    }
    r <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4827	4929	
==>d function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. These
methods <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4827	4929	
==>d function name.

=back

The following are the (pseudo) methods for Config::Tiny objects. These
methods <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2101	2211	
==>se File::Path! This module should be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2542	2654	
==>when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2542	2654	
==>when ::Perl::Compiler::PIL::PILVar    {
                # XXX shouldn't need $tree.pad.id ; .pad.id should do ($t <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	154	276	
==>kenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bu <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	154	276	
==>kenBucket;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25379	25501	
==>he first pass?
    sub SIZE_ONLY           { ! $_[0]{tree} }

    # the most recent addition to the tree
    sub LATEST :lv <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7610	7703	
==>self: get_attr (symbol new (%:methods))) exists ($label))))

=cut

$::Class->send('add_method' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	464	561	
==>r Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	464	561	
==>r Perl 6 Token

=head1 DESCRIPTION

This module provides an implementation for Perl 6 Token.
See L <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5735	5836	
==>xt, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (succe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5735	5836	
==>xt, C<head> returns
the following values:

=over 4

=item Boolean Context

The HTTP status code (succe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3518	3619	
==>tes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3518	3619	
==>tes of every Rosetta::Model::Node object:
    has Rosetta::Model::Document $!document;
    # Rosetta:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3167	3298	
==>{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3167	3298	
==>{$data};
        for ( keys %$tree ) {
            return 1 if contains( ${$tree}{$_}, $data );
    }}
    return 1 if defined $tree <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2711	2812	
==>however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2711	2812	
==>however)
  # TODO: Send Connection: close, at least until we know better
  my ($h,$p,$u) = split_uri($ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5223	5333	
==>s Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5223	5333	
==>s Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub path returns Array is export {
    my $pa <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	441	533	
==>pe keeps the C<source> property, and adds nothing else.

More specialised processing instruct <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	441	533	
==>pe keeps the C<source> property, and adds nothing else.

More specialised processing instruct <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	11896	11998	
==>um"><tmpl_var name=duration></td>
            <td class="leftsep num"><tmpl_var name=percentage>&nbsp;% <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1915	2105	
==>ems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1915	2105	
==>ems > 0
            {
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<st <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1263	1371	
==>elimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST para <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1263	1371	
==>elimiter must be a semi-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST para <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	550	651	
==>r ( error( Params::Check->last_error), return );

    my $struct = eval { LoadFile( $file ) } or error <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17188	17285	
==>tta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17188	17285	
==>tta D code; "Rosetta"
implements a virtual machine that is embedded in your Perl application and
i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2353	2468	
==>'foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('fo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2353	2468	
==>'foo') = <an array of values>;
        # or `$q.param('foo', 'an', 'array', 'of', 'values');`
    
    $q.delete('fo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3281	3439	
==>continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3281	3439	
==>continue) {
        $a.parse()($match.clone(
            backtrack => -> {
                $b.parse()($match, &continue);
            }
        ),
        &con <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5190	5356	
==>from =    traverse_ast ( %pad<"pRHS"> );
        $ret = emit_Assign( $to, $from );
    }
    elsif $tree[0] eq '"PBind"' {
        my %pad = $tree[1];  # keys: "pLHS"" <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	356	459	
==>( $s ) {
    $s ~~ m:g:perl5 {(\"(?:\\\\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2057	2214	
==>ostrm ] )                             and die $?;
    }

    ### remove alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doen <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	915	1015	
==>return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @arr <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	915	1015	
==>return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2457	2557	
==>s with p6 ones _without_ changings its name.



of course that has the problem of supplying Perl.pm i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2364	2462	
==>s with p6 ones _without_ changings its name.

of course that has the problem of supplying Perl.pm i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	247	351	
==>ne in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	247	351	
==>ne in code (i.e. with closures).  It has the following
members:

    $.backtrack - Parsers tail-call this <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1778	1886	
==>P) = $V;
    return;
}    
# 8.6.2.3
method <[[CanPut]]> ($O: JSX::String $P) {
    if $O.property_value.exis <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5157	5261	
==>begin creating the metamodel, starting with Class

=pod

class Class {
    has @:MRO;
    has @:subclasse <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2399	2536	
==>QUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $head <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2399	2536	
==>QUEST_URI>     = $uri;
    %*ENV<REMOTE_ADDR>     = '';
    %*ENV<REMOTE_HOST>     = '';
    %*ENV<QUERY_STRING>    = $query;
    my $head <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37503	37603	
==>its positional parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37503	37603	
==>its positional parameter
$module_name (a string) and tries to load it using 'require'.

=item C<get_t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6843	6948	
==>m_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6843	6948	
==>m_nick>)}<channels>;
    }
  }];

  # Somebody was kicked. Update %channels and %users accordingly.
  %han <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31999	32108	
==>ate module sets in turn, looking at just the set member for
each that corresponds to language A, looking for a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31999	32108	
==>ate module sets in turn, looking at just the set member for
each that corresponds to language A, looking for a <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2640	2808	
==>d should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2640	2808	
==>d should do ($tree is topic)
                my $pad = $tree.pad;
                $ng.ret(./pad_var($pad) ~ "->\{'{ $tree.value }'}"); ''
            }

            when <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	558	663	
==>time;
		if (my $replacement = $r->provides($node)) {
			return $self->reduce($replacement);
		}
	}

    re <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3607	3719	
==>t>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or read
the source (th <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3607	3719	
==>t>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm description. See links or read
the source (th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4890	5012	
==>ant.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4890	5012	
==>ant.List;
            return @old[0];
        });
}

method add_part ($self: ::?CLASS $part) returns Void {
    if ((.conte <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	389	490	
==>s => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		typ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	465	566	
==>s => $digest,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		typ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7599	7725	
==>form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $c <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7599	7725	
==>form-urlencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2937	3056	
==>is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Cha <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2937	3056	
==>is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><Foo>;

    # Cha <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	849	978	
==>{path_sep}/, $ENV{PATH}), '.') {
		my $abs = File::Spec->catfile($dir, $_[1]);
		return $abs if (-x $abs or $abs = MM->maybe_comma <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	919	1037	
==>{path_sep}/, $ENV{PATH}), '.') {
        my $abs = File::Spec->catfile($dir, $_[1]);
        return $abs if ($mx->($abs <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9935	10151	
==>,
                    ),
                ),
            ),
        } 1 .. 10,
    ),
);

#warn "$_ => " .  $prog->get($_)->digest for grep { $prog->get($_)->isa("Thunk") } keys %$prog;

my $r = Runtime->new( map { nat <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14358	14447	
==>ndSideExpression><no_LineTerminator_here><'--'>
}
rule UnaryExpression :words {  # see 11. <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4707	4866	
==>>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and shoul <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4707	4866	
==>>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, and shoul <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	331	428	
==>er_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
} <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	331	428	
==>er_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
} <==
2	/Users/nnunley/pugs/util/drift.pl	1305	1412	
==>ram, 2, 0, @scary_header);

open IN, $in or die $!;
open OUT, "> $out" or die $!;
while (<IN>) {
    /OPTION <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11319	11414	
==>) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11319	11414	
==>) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_children r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9364	9472	
==>For example: if `start` and `end` are times, then `size` will be a duration.

If the set contains lazy recurr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9364	9472	
==>For example: if `start` and `end` are times, then `size` will be a duration.

If the set contains lazy recurr <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	517	623	
==>ms{'$.reason'}      = '' unless exists $params{'$.reason'};
            $params{'$.description'} = '' unles <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1033	1133	
==>on::LaxAttrList () {
    return %!attrs;
}

method export_attr_names of List of Relation::AttrName () <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	121	234	
==>k/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	121	234	
==>k/Config-Tiny/lib/Config/Tiny.pm
#
# Unfortunately, OO doesn't exist in Pugs yet so
# I decided to write OO before <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4915	5035	
==>to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4915	5035	
==>to a repository and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4063	4160	
==>ode, $symbol, $body) = @_;

	$self->define_named_block($node, $symbol, $body, $self->resolve_type( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8793	8954	
==>ant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8986	9147	
==>ant( "\<" )
       ,
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
         ruleop::constant( "\>" )
       ,
       )
    ;
        m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1490	1611	
==>less( chdir $args->{dir} ) {
        error( q[Could not chdir into '$args->{dir}'] );
        return;
    }

    return $c <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5775	5885	
==>ier {  # see 7.6
      <!before <ReservedWord>> <IdentifierName>
}
rule IdentifierName {  # see 7.6
      <Iden <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	196	299	
==>ecord if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	196	299	
==>ecord if the message was sent to a channel.
    %!seen{./normalize($event<from_nick>)} = {
      date => <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3777	3896	
==>=~ s/\~/\\textasciitilde\{\}/g;
#    $file =~ s/^(.+)$/$1\\\\/gm;
#    $file =~ s/^\s*$/\\ \\\\/gm;
#    $file =~ s/\t/\ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1061	1208	
==>w->string($node);
}

sub reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => undef);

	$self->count_param <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5380	5484	
==>('\v' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(vert => <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2677	2807	
==>%$args;

    if ($self->admin->preop) {
        $args{dist} = $self->admin->preop;
    }

    ExtUtils::MakeMaker::WriteMakefile(%a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	695	818	
==>trs->isa('hash'))
        || confess "Attrs must be an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4277	4370	
==>e::Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
repr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4277	4370	
==>e::Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
repr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1935	2114	
==>{
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %p <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1935	2114	
==>{
                %param<start> = %param<object>[0];
                %param<end> = %param<object>[-1];
            }
        }
        else
        {
            %param<start> = %p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1676	1792	
==>tive . ")";
        if ($methods->exists($label) == $bit::TRUE) {
            #warn "calling method (" . $label->to_n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6527	6629	
==>bject(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0, "Missing right %s on \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12336	12550	
==>tate )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12330	12544	
==>tate )  
            # TODO - send $pos to subrule
            return 
                "$_[1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11190	11328	
==>tity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11190	11328	
==>tity($0)
        }/;
    }
    else {
        # Encode control chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18000	18115	
==>ssionNoIn>
}
rule LogicalORExpression :words {  # see 11.11
      <LogicalANDExpression>
    | <LogicalORExpression> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17266	17364	
==>se way of saying that it subscribes to the
localization methodology that is described here, and hen <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17266	17364	
==>se way of saying that it subscribes to the
localization methodology that is described here, and hen <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33384	33483	
==>rator that is like
C<union> except that the returned Relation contains only tuples that are in
all o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37934	38033	
==>rator that is like
C<union> except that the returned Relation contains only tuples that are in
all o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1098	1199	
==>le_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 S <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1098	1199	
==>le_name, sub { $compiled_rule });
}

1;

__END__

=pod

=head1 NAME 

Pugs::Runtime::Grammar

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14324	14435	
==>r example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14324	14435	
==>r example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3729	3865	
==>ined $got || defined $isnt;
    }
    else {
        $pass = $got ne $isnt;
    }

    unless( $pass ) {
        unshift(@mess, "# it sho <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17834	17950	
==>ze" :method
    .param pmc pad
    $I0 = defined self["value"]
    if $I0 goto end
    $S0 = self
    self["value"] = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3368	3491	
==>tches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3368	3491	
==>tches[0]} if ref($matches[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3347	3517	
==>sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::List::sort(; SortCriterion <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17583	17694	
==>he object's C<type> is determined dynamically.

=item Character Class Hashes

Character classes (I<anyof> object <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2526	2624	
==>ng " . qprintable($node) . "...";
		my $res = $self->SUPER::reduce($node);
		warn "reduce(" . (ref( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3950	4075	
==>-> type

	$self->define_named_block($node, $symbol, $body, $type);
}

sub define_app {
	my $self = shift;
	my ($node, $symbol, <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1264	1370	
==>sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1264	1370	
==>sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close, a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	330	433	
==>open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	330	433	
==>open?   = Bool::False, 
) 
{}

method empty_span ($class: ) { $class.new( start => undef, end => undef ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39263	39355	
==>ample>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

= <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39263	39355	
==>ample>, L<Rosetta::Shell>.

=head1 BUGS AND LIMITATIONS

I<This documentation is pending.>

= <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13463	13564	
==>Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are always expa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13463	13564	
==>Named entities not found in the %entity_to_char
hash are left alone.  Numeric entities are always expa <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2764	2882	
==>:abs (Num $x) {
	$x < 0 ?? -$x !! $x;
}

our int multi Num::sign (Num $x) {
	return 0 if $x == 0;
	$x > 0 ?? 1 !! -1;
} <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1445	1582	
==>d( Storable::nfreeze($self) );
        };

        $sha1->hexdigest;
    }
}

{
	package Blondie::Node::Atomic;
	use base qw/Blondie::Node <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14253	14368	
==>rst, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $firs <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14253	14368	
==>rst, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        MyLib::add_two( $firs <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	457	608	
==>ir
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6_code_mk_CODE
       p6_a <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13573	13694	
==>sert( $self->{max} >= 0,  'Max # of tests looks right' );

        if( defined $extra ) {
            my($todo, $skip, $re <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4906	5025	
==>(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $enc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4906	5025	
==>(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_encode) returns Str is export {
    my $enc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9154	9251	
==>nding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9154	9251	
==>nding.>

=head1 DESCRIPTION

I<This documentation is pending.>

=head1 INTERFACE

The interface of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14599	14798	
==>ar(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	14878	15077	
==>ar(
             \&{'grammar1::any'}
           ,
         )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::constant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	408	509	
==>known parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	408	509	
==>known parameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should retur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2139	2352	
==>ETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scal <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2139	2352	
==>ETCH => {
                if (want.List) {
                    $!content unless $!content.defined;
                    
                    my $old = $!content;
                    $old = $$old if $old.ref eq "Scal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11017	11134	
==>=~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11167	11284	
==>=~ s/ ([^']) \$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < ( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1088	1200	
==>h > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bub <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1088	1200	
==>h > $self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25510	25701	
==>,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25789	25980	
==>,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2800	2910	
==>= split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2800	2910	
==>= split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14116	14222	
==>s

A Node object is a simple container which stores data to be used or
displayed by your program.  It is an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14116	14222	
==>s

A Node object is a simple container which stores data to be used or
displayed by your program.  It is an <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4094	4210	
==>if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(und <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4152	4268	
==>if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(und <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11305	11465	
==>:constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11584	11744	
==>:constant( "\{" )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	770	890	
==>\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	779	899	
==>\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$s, \$pos, $len ) eq '$const' ) 
$_[1]     ? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	8372	8515	
==>arams => closure::params->new(
                        symbol->new("&dispatcher", q<block>), 
                        symbol->new("$label", q<sy <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5797	5889	
==>/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechsch <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5797	5889	
==>/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechsch <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1404	1503	
==>BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as wit <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1404	1503	
==>BEGIN{}` or `use`. Modules are 
loaded in a /first-come-first-served/ basis, so just be
sure (as wit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1269	1406	
==>*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'ge <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1269	1406	
==>*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'ge <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6189	6316	
==>[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_varia <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6177	6304	
==>[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $char, $_[1] );
}
sub match_varia <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5954	6125	
==>$sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6418	6589	
==>$sub_entry ( @$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1219	1321	
==>~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name=" <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1219	1321	
==>~ %v{%p{'id'}} ~ '" />';
};

new_widget 'hidden', sub(%p, %v) {
    return '<input type="hidden" name=" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	400	502	
==>gs::Compiler::Token->compile(q(
  \= <'cut'> \N* [\n|$] |
  \N* [ $ | \n <pod> ]
))->code;

# space, co <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Cxt.pm	695	832	
==>owing syntax could auto-define the extra
# types for 1 to 1 correspondance!  :)
#
#  type Perl::Cxt is CxtVoid
#                  | CxtIte <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	3048	3167	
==>RR "op reduce\n" if $debug;
          my $var = [@{$Z::oop{$id}{'var'}}]; local $Z::oop{$id}{'var'} = $var;
          &$ <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1823	1919	
==>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1823	1919	
==>.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This library is free software . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	350	475	
==>return '( ' . join( ' && ', @_ ) . ' )';
}

sub constant { 
    my $const = shift;
    return "( ( \$s =~ m/^(\Q$const\E) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25061	25183	
==>gex string from the current position on
    sub RxCUR               { substr ${&Rx}, &RxPOS }

    # the length of the rege <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3149	3280	
==>$_ ) } @{$n->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1}, "list-op" );
}

sub _emit_parameter_bindi <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1383	1477	
==>, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemente <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1383	1477	
==>, it tail-calls $result.backtrack()().  Backtracking parsers such
as quantifiers are implemente <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17690	17787	
==>rror condition by an
internal code which is guaranteed to be unique for a situation, and this is
m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17690	17787	
==>rror condition by an
internal code which is guaranteed to be unique for a situation, and this is
m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1752	1854	
==>1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This docume <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1752	1854	
==>1 NAME

Rosetta::Model::L::en -
Localization of Rosetta::Model for English

=head1 VERSION

This docume <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11905	12014	
==>git {  # see 9.3.1
      <[0..9]>
}
rule ExponentPart {  # see 9.3.1
      <ExponentIndicator> <SignedInteger> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2803	2897	
==>:AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2803	2897	
==>:AST::Expression;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Test::More qw(no_plan);

= <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7546	7663	
==>upport junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7604	7721	
==>upport junctions yet, skip the junction part when
    # running under PIL2JS.
    if (index('&Test::is &Test::isnt &Te <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3003	3216	
==>$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($ver <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3003	3216	
==>$0\n";
                            $_line = $fh.readline;
                        }                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($ver <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2681	2821	
==>ags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( def <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2821	2961	
==>ags->{args} ) if defined $flags->{args};

    my $p = defined $flags->{p} 
            ? $flags->{p} 
            : $rule->{p};

    if ( def <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3338	3434	
==>hod does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3338	3434	
==>hod does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq '$constructor'}";
    $code ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2524	2656	
==>tch = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2524	2656	
==>tch = $node->( @_ );
        $debug->{after}( $match, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	628	781	
==>cript ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	628	781	
==>cript ~~ m:P5 [\\] ) )
                 && -f $script )
        {
            for File::Spec.path() -> $dir {
                my Str $scr = catfile( $dir, <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1845	1965	
==>$stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1845	1965	
==>$stuff;
    $code ~= "\n}\n";

    $code ~= "class Perl::Compiler::PIL::Node::X1::{$constructor} \{";
    $code ~= "\n  d <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3936	4033	
==>ed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher:: <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3936	4033	
==>ed and/or modified under 
the same terms as Perl itself.

=cut

use Cipher::Stream;
class Cipher:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4773	4872	
==>ence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4773	4872	
==>ence => $set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23781	23924	
==>_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24060	24203	
==>_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4505	4625	
==>($closure->isa('block')) {
            $closure->env->set('$_' => $val);          
            $list->push($closure->do() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9978	10088	
==>args = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
    #- this allows, for example, to set PERL_RUNPE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29267	29366	
==>App::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29267	29366	
==>App::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRI <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3990	4099	
==>r $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3990	4099	
==>r $host, Int $port, Str $request) {
  # XXX clean up!

  my ($h,$p) = ($host,$port);
  my $http_proxy = %*ENV< <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28128	28238	
==>@:MRO)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('MRO'),
    # method bo <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	522	640	
==>mit($annotated);
my $t4 = times;
#my $f = $r->bind($res);
my $t5 = times;
#&$f;
my $t6 = times;

printf "Total time: %. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6829	6958	
==>221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hel <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6829	6958	
==>221),
    "bdquo"    => chr(8222),
    "dagger"   => chr(8224),
    "Dagger"   => chr(8225),
    "bull"     => chr(8226),
    "hel <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2353	2465	
==>rn Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_o <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2353	2465	
==>rn Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9313	9415	
==>dler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9313	9415	
==>dler{$event}: $callback;
  }

  method connect() { ./reconnect }
  method reconnect() {
    ./disconnec <==
2	/Users/nnunley/pugs/misc/S29_round.pl	945	1065	
==>ven abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * floor( abs($x) ) }
        when $_ >  .5 { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19624	19716	
==>sses.  Fixed.
(Mike Lambert)

Non-grouping parentheses weren't being parsed properly.  Fixed. <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	5050	5140	
==>rl6/Prelude.pm --pugs ./pugs.exe [options]

Creates a Prelude.hs fallback or a Prelude.pm.y <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	10774	10960	
==>eq 'y';
            ReadMode(0);
            print " - " . ($y ? "compiling" : "skipping") . "...\n";
            $y;
        } qw(* ** /),
    }
);

my $t1 = times;
my $c = $r->compile($ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/aufruf1.pl	174	265	
==>x
circumfix:«{ }»($a, 'foo'); # $a.circumfix:«{ }»('foo');
#=postcircumfix
postcircumfix <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	727	836	
==>1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i> <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	727	836	
==>1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple running.
      </p>

    <p><i> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31752	31870	
==>y.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36302	36420	
==>y.  This method has aliases
named C<where> and C<grep>.

=item C<union (Relation $other!) returns Relation>

This multi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21988	22093	
==>something real here and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  S <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16890	16994	
==>something real here and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  S <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7765	7904	
==>g = $self->assert_ghc_pkg;
    `$ghc_pkg describe $package` =~ /package-url/;
}

sub _normalize_version {
    my $dir = shift;
    $dir =~ / <==
2	/Users/nnunley/pugs/util/drift.pl	1762	1881	
==>Control.Monad
import qualified Data.ByteString as Buf

.

while (<IN>) {
	if(/<DrIFT>/../<\/DrIFT>/) {
		next if (/DrIFT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4924	5053	
==>+/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed befo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4924	5053	
==>+/* looks ok' 
    );
    #print postfix( $match->() );
    #print Dumper $match->();
}

{
    print "# TODO - ws not allowed befo <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5184	5275	
==>:encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5184	5275	
==>:encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4521	4646	
==>$Role;

my $_resolve = sub ($) {
    my ($self) = @_;
    my %roles;
    foreach my $role (@{::opaque_instance_attrs($self)->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15268	15374	
==>ut string).

If you prefer not to import these routines into your namespace, you can
call them as:

  use H <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15268	15374	
==>ut string).

If you prefer not to import these routines into your namespace, you can
call them as:

  use H <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26168	26360	
==>,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	26447	26639	
==>,
             ] )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1537	1647	
==>>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1537	1647	
==>>, C<burst size> terms are
shamelessly borrowed from http://linux-ip.net/gl/tcng/node62.html.

=head1 INTERFACE <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22519	22683	
==>TOP =\n"
                  . sprintf("%-${max_namelen}s", $failed_str)
                  . $middle_str
                  . $list_str . "\n"
                  . "-" x <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12496	12651	
==>" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12490	12645	
==>" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1944	2062	
==>code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1944	2062	
==>code;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	453	604	
==>?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	453	604	
==>?SELF!fusebytes($block);
    
    if ($.mode eq 'enciphering') {
        my int $sum = 0;
        for 0..32 {
            $sum += $delta;
            $v <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19130	19262	
==>ata} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20488	20620	
==>ata} };
    }
    else {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7943	8102	
==>ependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8407	8566	
==>ependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	766	894	
==>2 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	766	894	
==>2 => 'Payment Required',
        403 => 'Forbidden',
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20772	20905	
==>of what
packages a method is looked up in for a given object of type 'OBJ':
F<YourMod::OBJ>, F<YourMod::__object__>, F<Regexp::Parser: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18294	18411	
==>isk, it is expected that the Engines will employ appropriate measures
such as system-managed locks so that resource co <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18294	18411	
==>isk, it is expected that the Engines will employ appropriate measures
such as system-managed locks so that resource co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3898	4056	
==>esponse_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3898	4056	
==>esponse_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () {
        my @cc <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3835	3974	
==>e"} = sub {
            ${"${who}::AUTOLOAD"} = "${who}::$name";
            goto &{"${who}::AUTOLOAD"};
        };
    }
}

sub new {
    m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2118	2236	
==>an_reduce { 1 }

sub constructor {
	my $self = shift;
	my $node = shift;

	my $class = ref $node;
	if ($class =~ /^Blon <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4619	4752	
==>turns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", : <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4677	4810	
==>turns Bool is export {
    try { code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", : <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14786	14923	
==>sult }';  # /do
    }
    if ( $n->{op1}{op} eq '~' ) {
        return ' "" . ' . _emit( $n->{exp1} );
    }
    if ( $n->{op1}{op} e <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	575	709	
==>its
#    } elsif ($name =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$nam <==
2	/Users/nnunley/pugs/util/claim_drift.pl	751	854	
==>, qw<.. DrIFT src *.hs>) {
    (my $real = $orig) =~ s,.*$FS,src${FS}DrIFT${FS},;
    next unless -f $re <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1980	2078	
==>C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added t <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1980	2078	
==>C<wanted_file> and C<wanted_dir>.

=over 4

=item wanted_file

Gets called before a file is added t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	3329	3494	
==>KAGE__->add_rule(
            name => $_,
            assoc => 'left',
            precedence => 'tighter',
            other => '=',
        );
    }

    __PACKAGE_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4972	5174	
==>> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6734	6936	
==>> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (returns <method>)))
             { <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11432	11556	
==>TH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11432	11556	
==>TH' => $meth, 'ARG' => $arg } )
        if +@val == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14075	14203	
==>t = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14075	14203	
==>t = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a-fA <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	4499	4631	
==>error($?), return;

    return JIB::Package->new( 
                file => File::Spec->rel2abs( $archive ),
                meta => $ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8351	8449	
==>inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8351	8449	
==>inserted.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns the number <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	3825	3925	
==>rd line\n2nd line\n1st line\n" ],
   );
   for my $r (@tt) { CheckOne($scr, $r->[0], $r->[1], $r->[2] <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	167	331	
==>',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        20 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	167	331	
==>',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        20 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6996	7138	
==>art => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::A <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6996	7138	
==>art => sub { $ret.shift },
            cend =>   sub { $ret.pop },
            celems => sub { $ret.elems },
        )
}

} # end class Lazy::A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18322	18420	
==>hich the
requested resource address was obtained.

The "Free On-line Dictionary of Computing" as th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18322	18420	
==>hich the
requested resource address was obtained.

The "Free On-line Dictionary of Computing" as th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8998	9123	
==>1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $po <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8986	9111	
==>1].'        ' )
        if ref( $program );
    # TODO - repeated captures create an Array

    my($try_match, $gen_match, $po <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	299	422	
==>unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	299	422	
==>unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return 
        "$tab sub{ \n" . <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9869	9994	
==>_charset_item(char(C)) --> [C], {\+(set_metachar([C]))}.
p5_charset_item(char(C)) --> "\\", [C], {set_metachar([C])}.
%# XXX - <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8711	8817	
==>}, %mods.keys);
    if $ov && 0 { # XXX disabled until Rul works.
        my($str,$pos,$re,$m,$m0,$a,$s,$at <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9824	9940	
==>empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9824	9940	
==>empty;

    my ($span0, $span1) = _normalize_parameter( $self, $span );

    # XXX - why this doesn't work?
    # say <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13560	13700	
==>)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13560	13700	
==>)
    handle_pseudo => -> Str $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%h <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	351	442	
==>erldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dia <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	351	442	
==>erldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by dia <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11254	11403	
==>ction, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11254	11403	
==>ction, comment block and
# data section.
my $re_here = qr/
(?:                     # Heredoc starting line
    ^                   # Start of some lin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1116	1228	
==>\$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1116	1228	
==>\$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3079	3212	
==>/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		wh <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3079	3212	
==>/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when /^   \/   $/ {63}
		wh <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9821	9960	
==>@classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9821	9960	
==>@classes = ();
    my $context = {
    };
    my $text = '';
    while (@parts) {
        my $part = shift @parts;
        if ($part =~ /^[^ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18361	18531	
==>conversion,int($arg));
            }
            when 's' {
                $str ~= Pugs::Internals::sprintf($conversion,"$arg");
            }
            when any(<e f g <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	38443	38531	
==><semiminus> and C<not_matching>.

=item C<semijoin (Relation::Example $other!) returns Re <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7917	8020	
==>ompilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7917	8020	
==>ompilers to call to reduce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3609	3735	
==>mlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Som <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3609	3735	
==>mlaut mark
    "yacute"   => 'ý',  # small y, acute accent
    "yuml"     => 'ÿ',  # small y, dieresis or umlaut mark

 # Som <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18632	18733	
==>ch are hard-coded into your application or package, with one or more
text strings to show human users. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18632	18733	
==>ch are hard-coded into your application or package, with one or more
text strings to show human users. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9603	9723	
==>

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11  <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9603	9723	
==>

  # to test membership
  my $contains_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11  <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3851	4013	
==>e;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3851	4013	
==>e;
    # Str
    # What type of Node this is.
    has Any                      %!attributes;
    # Hash(Str) of Any
    # Named attribute values that this Node has <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21196	21299	
==>>{nparen}";
  }
}


{
  package Regexp::Parser::assertion;
  push @ISA, qw( Regexp::Parser::__object__ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5515	5692	
==>'our' 
                || $ast->{stmt} eq 'has' ) {
                $t = [ 'MY' => $ast ]
            }
            elsif ( $ast->{stmt} eq '{' ) {
                $t = [ 'BLOCK_ <==
2	/Users/nnunley/pugs/util/combine_tests.pl	2567	2680	
==>ot the target though
    #
    pop @revisions;
    $target->{more_revisions} = [ @revisions ] if @revisions;
    $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7641	7727	
==>tion_test(lookbehind(R))     --> p5_elemental(lookbehind(R)).
p5_condition_test(lookbeh <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3071	3191	
==>[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when / <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3071	3191	
==>[a..z]>$/ {26 + ord($didget)-ord("a")}
		when /^<[0..9]>$/ {52 + $didget}
		when /^   \+   $/ {62}
                when / <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1731	1829	
==>OE to Perl 6. It is only an experiment, it's not
API compatible to the original POE, and is possibl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2320	2434	
==>");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers
    # Fir <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2320	2434	
==>");
    $!socket.flush();
  }

  my method register_default_handlers() {
    # Default (passive) handlers
    # Fir <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8746	8871	
==>vious => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        clos <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8746	8871	
==>vious => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        clos <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5197	5422	
==>erface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5197	5422	
==>erface, so I just make this the
                    # maximum value.
                    return 24 * 3600;
                }
                
                return $h_exp;
            } else {
                return 3600; # 1 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1169	1286	
==>embers.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1169	1286	
==>embers.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes($self: *@items) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	31	126	
==>rl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, R <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	31	126	
==>rl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInline.pl, R <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35794	35903	
==>ion as its C<$other> argument and combines it with the
invocant relation into a new Relation, such that all co <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40344	40453	
==>ion as its C<$other> argument and combines it with the
invocant relation into a new Relation, such that all co <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2953	3074	
==>{
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, host <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2953	3074	
==>{
        ./nick($!nickgen.next);
      }
    });

    # /WHO (we /WHO ourselves so we can provide accurate username, host <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	502	623	
==>ng until we need it
eval 
  q(
    use FindBin '$Bin';
    use lib
        "$Bin/lib",
        "$Bin/../Pugs-Compiler-Rule <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2182	2310	
==>INE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2182	2310	
==>INE:
    while (1) {
        _show_message( Locale::KeyedText::Message.new(
            msg_key => 'ROS_S_PROMPT' ) );

        m <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1048	1141	
==>tem B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1048	1141	
==>tem B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type returns S <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	890	993	
==>etta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	890	993	
==>etta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1235	1423	
==>e.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=h <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1235	1423	
==>e.push($abs);
                    say "  +d $abs" if $.debug;
                }
                else { say "  -d $abs" if $.debug }
            }
        }
    }
    return $.results;
}

=h <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13570	13764	
==>xxx';
            # has $x;
            #warn "has: ",Dumper $n;
            my $attr = join( ', ', 
                map { 
                    join( ' => ', map { "'" . _emit($_) . "'" } @$ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28436	28540	
==>off(rx); \
	 }} STMT_END
 #endif

 #define RX_MATCH_UTF8(prog)		((prog)->reganch & ROPT_MATCH_UTF8)
 #def <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2262	2463	
==>pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run after uninstall                       
$Repodir        = $Root . '/jibs';                  # r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19919	20016	
==>nto blocks and the blocks have been
marked for various compilers, Module::Compile dispatches the c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19919	20016	
==>nto blocks and the blocks have been
marked for various compilers, Module::Compile dispatches the c <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1209	1297	
==>-----------------------------------------------

Since you are using Microsoft Windows, y <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1049	1137	
==>-----------------------------------------------

Since you are using Microsoft Windows, y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	149	555	
==>::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0. <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	149	555	
==>::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6495	6614	
==>ader("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6495	6614	
==>ader("Referer")}[0] },
    STORE => -> $new is copy {
      if ($new ~~ /\#/) {
        # Strip fragment per RFC 2616, s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10648	10748	
==>lds with a single invocation.

The $value argument may be a plain string or a reference to an array
o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10648	10748	
==>lds with a single invocation.

The $value argument may be a plain string or a reference to an array
o <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5937	6034	
==>fig-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All righ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5937	6034	
==>fig-Tiny/lib/Config/Tiny.pm>

=back

=head1 COPYRIGHT

Copyright (c) 2005 Joshua Gatcomb. All righ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2269	2392	
==>ctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<Addi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2269	2392	
==>ctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rule->compile(q(
    <AdditiveExpr> { use v5; return $<Addi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24583	24678	
==>e, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines or expor <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24583	24678	
==>e, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines or expor <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20133	20249	
==>return (self)
.end
    
.namespace [ "PGE::Exp::Group" ] 

.sub "p6analyze" :method
    .param pmc pad
    .local pmc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12616	12716	
==>> <Elision>? <']'>
    | <'['> <ElementList> <']'>
    | <'['> <ElementList> <','> <Elision>? <']'>
} <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2189	2363	
==>ction} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => su <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2189	2363	
==>ction} {
                    $output.say("$_=%self{$section}{$_}");
                }
            }
        $output.close;
        return TRUE;
        },
        'data' => su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9013	9110	
==>%OVERLOAD entry

the only overhead is a SVMG (i.e. bless())

you can return the same failure objec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8716	8811	
==>%OVERLOAD entry
the only overhead is a SVMG (i.e. bless())
you can return the same failure objec <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7305	7474	
==>my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version goo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7769	7938	
==>my $maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version goo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	16263	16381	
==>len;
}


sub _show_results {
    my($tot, $failedtests) = @_;

    my $pct;
    my $bonusmsg = _bonusmsg($tot);

    if <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11745	11863	
==>"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11745	11863	
==>"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $ser <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	969	1080	
==>ep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetri <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	969	1080	
==>ep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21384	21478	
==>en to it should easily port
to alternative relational database engines with minimal effort.

Th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21384	21478	
==>en to it should easily port
to alternative relational database engines with minimal effort.

Th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23662	23780	
==>f you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all commands immediately to the serv <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23662	23780	
==>f you supply C<:floodcontrol(1)> to the constructor, this module won't simply
send all commands immediately to the serv <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10175	10282	
==>his document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10233	10340	
==>his document.

= FUNCTIONS

- `plan (Int $number_of_tests) returns Void`

All tests need a plan. A plan is s <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	946	1067	
==>yml';
    my $config_template   = 'util/config-template.yml';
    $filename           ||= $ENV{PUGS_BUILD_CONFIG} || $conf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15127	15242	
==>need to display a message to the user, or generate a message to be
shown to the user.  Sometimes this is an error me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15127	15242	
==>need to display a message to the user, or generate a message to be
shown to the user.  Sometimes this is an error me <==
2	/Users/nnunley/pugs/util/build_pugs.pl	4239	4375	
==>es > 1) {
            # This is harmless -- so we don't do anything.
            # warn "*** Found more than one '$basename' -- using the <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9732	9855	
==>d($_)?"'$_'":"undef"}@a),") ",0+@a,"\n";

0;
__END__
=cut
$foo = sub{
    print STDERR "hi\n";
    return reverse(1,undef,un <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	2280	2388	
==>);
  }
  return $matchObj;
}

sub graph {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $from, $position) <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19260	19355	
==>imitive { List::pop(@array) };
multi pop ($array) is builtin is primitive { die "Cannot 'pop' sc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	10061	10168	
==>not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	10061	10168	
==>not in C<$set2>.

=head2 C<$set1.symmetric_difference($set2)>

XXX

=head1 BUGS

Currently, no operators are <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18238	18335	
==>andard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18238	18335	
==>andard.>

=item $h.referer

Used to specify the address (URI) of the document from which the
reque <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3086	3199	
==>@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3086	3199	
==>@args) {
    $one.union(@args);
}
multi sub *infix:<-> (Set $one, *@args) {
    $one.difference(@args);
}
multi su <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6106	6264	
==>fined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6106	6264	
==>fined and $ct.chars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when L <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	280	397	
==>:got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	486	603	
==>:got_options;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    us <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5712	5903	
==>ation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relatio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9189	9380	
==>ation {
    # TODO.
}

###########################################################################

method map (Set of Str $heading!, Code $replacements!) returns Relation {
    return Relatio <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5716	5858	
==>op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( rede <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5716	5858	
==>op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no warnings qw( rede <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1299	1409	
==>);
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1299	1409	
==>);
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $self, $span ) if $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7903	8047	
==>.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7903	8047	
==>.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3959	4071	
==>\N' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_BRACES, 'N') if ${&Rx} !~ m{ \G \{ }xgc;
    $S->error(RPe_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8513	8646	
==>me can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8513	8646	
==>me can't contain ':'")
    # back.
    # XXX Str where { $^str !~ /\:/ }
    STORE => -> Str $user, Str $passwd = "" {
      #$self!he <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5156	5259	
==>igit>
      | <bracket_open> [<octaldigit> | ; ]+ <bracket_close>
      ] }
rule hexidecimal_escape_sequ <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	2525	2623	
==>ood at that).

=head2 The Defaults

Note that Perl 6 allows us to provide defaults for optional par <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7833	8019	
==>es{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7833	8019	
==>es{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7806	7905	
==>s> are provided, only elements whose indices match
C<$index ~~ any(@indextests)> are iterated.

What <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2016	2202	
==>{ ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> an <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2016	2202	
==>{ ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse;
}

=pod

C<$.Parser> an <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2406	2532	
==>[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@stri <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2406	2532	
==>[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsif (@stri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1570	1706	
==>s::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1570	1706	
==>s::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] . '  ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6399	6506	
==>n $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6411	6518	
==>n $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_program=>1 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32391	32490	
==>ernately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::Keye <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32391	32490	
==>ernately be something
else, such as XML or tab-delimited plain text files.>

=head2 The Locale::Keye <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3402	3493	
==>beg,strend-strbeg)));
    XPUSHs(sv_2mortal(newSVuv(flags)));
    XPUSHs(sv_2mortal(newSVuv( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2137	2243	
==>s efficient,
#     and has captures for easy use of the resulting matches.
#   * Perhaps define a macro gra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9796	9897	
==>iter = $parser->walker(1);  # top- and second-level
  my $iter = $parser->walker(2);  # top- through t <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	1477	1575	
==>}

# convert from a unix time_t
multi sub time_t( Int $time_t ) returns Date::Gregorian is export { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	1184	1381	
==>re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head2 pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	467	660	
==>re = qr/^(\w+)     - # prefix
                    ([\w-]+?)  - # package name
                    ([\d.]+)   - # version
                    (\w+\+\S+) $ # authority
                /smx;

=head <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25603	25733	
==>ver, for an additional fee, the copyright holders of
Rosetta can sell you an alternate, limited license that allows you to link
Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25603	25733	
==>ver, for an additional fee, the copyright holders of
Rosetta can sell you an alternate, limited license that allows you to link
Ros <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2188	2373	
==>INST.pl';                    # run after install
$Prerm          = 'PRERM.pl';                       # run before uninstall
$Postrm         = 'POSTRM.pl';                      # run afte <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10209	10340	
==>$@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10209	10340	
==>$@ and "$@" !~ /^Can't locate /;
            }
            if ($klass->can('pmc_is_compiler_module') and
                $klass->pmc <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21375	21822	
==>,
                            $t2only_m.pairs,
                        );
                    }
                }
            }
        } ),
    );
}

###########################################################################

} # class Relation::Example

=cut
###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5075	5176	
==>:Util::rebless_with_prefix_and_cleanup($pil_tree,__PACKAGE__.'::');
    #print STDERR Dumper($pil_tree <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1437	1548	
==>der;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1437	1548	
==>der;
our %standard_case;

{
  for @header_order.kv -> $i, $header {
    my $lc = lc $header;
    %header_order{$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7309	7476	
==>' );
        }
        
        if ( exists $n->{self}{scalar} ) {
            # $scalar.++;
            return 
                " Pugs::Runtime::Perl6::Scalar::" <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	908	1039	
==>y;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4386	4517	
==>y;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represen <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6903	7005	
==>e I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6903	7005	
==>e I<Content-Length>.  Returns
the HTTP response code.

=back

=head1 INCOMPATIBLE CHANGES

=over 2

=it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11675	11801	
==>code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	12033	12159	
==>code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { capture => $_[0] }, 
        '$<ident> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5542	5664	
==>span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5542	5664	
==>span.end = $end;
        }
    }
}

method start_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2781	2935	
==>pe;
    return $self->{'values'}{'no_index'};
}

sub _dump {
    my $self    = shift;
    my $package = ref( $self->_top );
    my $version = $self->_top-> <==
2	/Users/nnunley/pugs/util/package-osx.pl	2265	2355	
==>L2JS /Library/Perl/5.8.6/PIL2JS
        /usr/local/lib/perl5/site_perl/Prelude/JS.pm /Libra <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2706	2830	
==>ment <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2706	2830	
==>ment <ARG> is a Hash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>. <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6156	6254	
==>are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6156	6254	
==>are returned split into the respective
lines.

=item Hash Context (if it exists?)

A hash is return <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	900	1010	
==>r addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other mod <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	900	1010	
==>r addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no load your other mod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	24047	24198	
==>data => [],
      down => 1,
      ifthen => 1,
    }, $class;
    return $self;
  }

  sub raw {
    my $self = shift;
    "(?";
  }

  sub qr {
    my <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	300	453	
==>';
        __PACKAGE__->bootstrap($VERSION);
    };
}

our $inserted = 0;
BEGIN { our $regcompp = undef };

sub import {
    my $class = shift;
    my $fl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	550	652	
==>ittle ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_R <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	550	652	
==>ittle ...!],
    'MYLIB_MYINV_BAD_ARG' => q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_R <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6169	6263	
==><Cipher::Stream> can 
reduce the implementation of most block and stream ciphers to a construct <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6169	6263	
==><Cipher::Stream> can 
reduce the implementation of most block and stream ciphers to a construct <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12236	12348	
==>0.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12236	12348	
==>0.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

= DESCRIPTION <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14621	14732	
==>ked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14621	14732	
==>ked, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen f <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6499	6644	
==>=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $dat <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6499	6644	
==>=' ~ url_encode($val));                            
        }
    }
    return join($QS_DELIMITER, @packed_params);
}

sub unpack_params (Str $dat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9708	9863	
==>leop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9987	10142	
==>leop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8216	8341	
==>= MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8216	8341	
==>= MIME::Base64::decode($cur);

        given want {
          when Item { return $val }
          when List { return split /\: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2243	2367	
==>nd.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no stric <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2243	2367	
==>nd.
    if ($class eq __PACKAGE__ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no stric <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1507	1603	
==>code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1507	1603	
==>code;

*grammar = Pugs::Compiler::Rule->compile(q( grammar <ws> <grammar_name>\; <ws> [<rule>|< <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2043	2246	
==>E' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2043	2246	
==>E' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	1648	1806	
==>xpecting a simple '<'
            
                # after whitespace means '<' (default)
                # without whitespace means '<str>'
                #p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	1134	1227	
==>keyword.  Or maybe the full package
name (C<Type--Perl6>) disambiguates this case.

Types have <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14423	14527	
==>does not support any analogy of CDATA sections, though).
The Node class is pure and deterministic, such t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14423	14527	
==>does not support any analogy of CDATA sections, though).
The Node class is pure and deterministic, such t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	159	290	
==>)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zer <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	159	290	
==>)) {
        @.key = $?SELF!fusebytes($key);
    }
    else {
        @.key = $?SELF!fusebytes(map &ord, $key);
    }
}

method _zer <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27963	28059	
==>ferent version.

If you're using the F<prove> utility, you can use the C<--perl> switch.

=item C <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	464	560	
==>ution on.

= AUTHORS

Brian Ingerson <ingy@cpan.org>

= COPYRIGHT

Copyright (c) 2005. Brian Inge <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1741	1865	
==>n($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS: <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1741	1865	
==>n($input, $match) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	917	1047	
==>en; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	926	1056	
==>en; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_perl5 {
    my $const = $_[0];
    return
    "$_[1] ( ( substr( \$s, \$pos ) =~ m/^$co <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13600	13701	
==>ameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13600	13701	
==>ameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_doc = Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5102	5199	
==>53{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5102	5199	
==>53{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9022	9147	
==>{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9976	10101	
==>{'min','max'});
    $min = 0 if $min eq "";
    $max = $o->inf if $max eq "";
    $min += 0; $max += 0; 
    my $f = $o->data- <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3606	3737	
==>ess @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].p <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3606	3737	
==>ess @tmp[-1].isa(Perl6::Value::List) {
            &*unshift(@ret: @tmp.pop);
            next;
        }
        my $i = @tmp[-1].p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7411	7539	
==>y method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::enco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7411	7539	
==>y method boundary (Num ?$size) returns Str {
    if (!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::enco <==
2	/Users/nnunley/pugs/util/testgraph.pl	840	944	
==>r die "binmode: $!";
print $fh "$v";
close $fh;

sub usage {
  print <<"USAGE";
usage: $0 [OPTIONS] > out <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8734	8906	
==>se {
                die "Illegal token: $deps\n";
            }
        }
        return @maybe;
    }
        
     
    ### takes a string with a wanted package and an op <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2374	2471	
==>($.second) ) * 1e3);
}
method ce_year returns Int { $.year }
method quarter returns Int { int(($.m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9921	10086	
==>r1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10200	10365	
==>r1::rule'} )
       ,
         ruleop::constant( "\)" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Primitives.pm	166	293	
==>::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleI <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	633	744	
==>lar::Util::blessed($node);

	$node->isa("Blondie::Node")
		or die "it doesn't look like $node is a piece of a Bl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21059	21166	
==>t :words {  # see 12.6
      <'do'> <Statement> <'while'> <'('> <Expression> <');'>
    | <'while'> <'('> <E <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2049	2159	
==>,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2049	2159	
==>,0x3F)); # 1.index
      take encode(index(@octect[1],2,@octect[2],6,0x3F)); # 2.index
      take encode(index( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4150	4251	
==>object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4150	4251	
==>object returns whether the match has
succeeded or not.

=head2 @{}

When used as an array reference, t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	837	1077	
==>" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	838	1078	
==>" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop::constant( "\\" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2210	2327	
==>rnum} && $self->{errnum} == $enum;
}


sub errmsg {
  my ($self) = @_;
  return $self->{errmsg};
}


sub errnum {
  my <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	694	805	
==>p6_as_perl5_whatever
       p6_perl6_objects_from_whatever
       p6_meta
       p6_meta_CODE
       p6_initiali <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17682	17780	
==>OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will auto <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17682	17780	
==>OO.new(...)>

Creates a new bot object. See L<SYNOPSIS> for accepted parameters.

The bot will auto <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3773	3935	
==>ode of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3773	3935	
==>ode of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # What type of Node this is.
    has Any                      %!attr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	811	907	
==>e::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	811	907	
==>e::KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, th <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	8	123	
==>PugsConfig;
use strict;
use warnings;
use Cwd;
use Config();
use File::Spec;
our %Config = %Config::Config;

sub get <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	28188	28281	
==>dentifiers need to be resolvable";
dies_ok { t($app_plus_ten_to_str) } "can't do a higher orde <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22066	22177	
==>ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
 #endif

I d <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16967	17077	
==>ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If non-NULL, SV which is COW from original */
#endif

I d <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3453	3560	
==>iverse = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3453	3560	
==>iverse = $self.get_universe;
    return $self if $set.equal( $universe );
    return $set  if $self.equal( $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4317	4425	
==>s) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4317	4425	
==>s) returns Array is export {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $fi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11026	11133	
==>$1,$2,$3)/mseg;
    s/\bDOWN\((.+?)\)/${1}->emit()/g;
    #s/\bLOOK\((.+?)\)//g;
    #print;
    #print STDE <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	757	848	
==>arn "optimize_flags has been changed to cc_optimize_flags for consistency reasons";
	shift() <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15949	16047	
==>> type::variable::free->new,
	);
	\%new;
}
let: env($.is) = { new_env($$) }
let: env($.in) = { new_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	424	543	
==>'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est z <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1952	2071	
==>'MYLIB_MYINV_RES_INF'
        => q[my_invert(): aboutir a est infini parce que]
           ~ q[ paramètre $number est z <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	529	635	
==>mplement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	529	635	
==>mplement backtracking controls.  a*: ...
    $.pos       - The current position of the match (also holds th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24362	24469	
==>$c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20783	20890	
==>$c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_handler('i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1983	2170	
==>ri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1983	2170	
==>ri);
        }
        
        # can't find an absolute base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	1242	1335	
==>ION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	1242	1335	
==>ION

This document describes Rosetta::Engine::Example version 0.724.0.

=head1 SYNOPSIS

I<Thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25185	25334	
==>*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25464	25613	
==>*{'sub_application'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [ <==
2	/Users/nnunley/pugs/util/package-osx.pl	9189	9344	
==>b make_dir {
    my ($dir) = @_;
    my $curr_dir = "";
    for (split m#/#, $dir) {
        $curr_dir .= "$_/";
        if (!-d $curr_dir) {
            mk <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3611	3718	
==>n MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE "$preamble$makefile$postamble";
    close MAKEFILE;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18635	18765	
==>diag = "$obj_name isn't a reference";
    }
    else {
        # We can't use UNIVERSAL::isa because we want to honor isa() overrid <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25184	25326	
==>x string
    sub RxLEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	7709	7810	
==>y;
submethod BUILD {
    $.property_attributes{'length'} =
        JSX::PropertyAttributes.new(:DontEn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5784	5880	
==>rn $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(al <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5863	5959	
==>rn $S->force_object(anyof_class => $S->force_object(alnum => 0)) if $cc;
    return $S->object(al <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13424	13526	
==>erns.
  That said, the use of internals is rather limited, and in a rather
  stable are of the code, so <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	84	182	
==>:Base);
use strict;
use Config;
use File::Spec;
use File::Basename;
use IPC::Open3 'open3';
use Car <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27181	27277	
==>tr) of Code $attrs!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31733	31829	
==>tr) of Code $attrs!) returns Relation>

This method is a generic relational operator that returns <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	46749	46932	
==>,
                returns => 'type'
            ),
            sub {
                my $e = shift;
                $e->create('$return' => $nil::NIL);
                $e->get('$label' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1254	1363	
==>node);
	}

	my $symbol = $self->declare($node) if $self->is_duplicate($node);
	warn $node->struct_equiv . " is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15701	15793	
==>e.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15701	15793	
==>e.

=item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21717	21864	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21996	22143	
==>$capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_my;
*{'_simple_statement'} = 

    sub { 
        my $rule = 
       rule <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2604	2706	
==>ts, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for buil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2604	2706	
==>ts, $test;
    $.output.write( $test.report() );
}

=pod

=head1 NAME

Test::Builder - Backend for buil <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4480	4586	
==>/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4480	4586	
==>/})  # needs to work in the multi-line string
}

sub path returns Array is export {
    return unless %*ENV <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	442	575	
==>d is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	442	575	
==>d is_empty        () returns bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8125	8257	
==>parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks = <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8125	8257	
==>parse => sub ($match, &continue) {
        my $marks = $match.marks;
        $p.parse()($match.clone( 
                       marks = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	800	906	
==>latten() an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported ope <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	800	906	
==>latten() an infinite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported ope <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	997	1196	
==>h|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	997	1196	
==>h|line_interpolation$/ {
                    $buffer ~= "\n" 
                }              
            }
        },          
  
        # Modifiers
        start_modifier => -> ($mod) { $buffer ~= <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6156	6260	
==>Bool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6156	6260	
==>Bool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	15049	15182	
==>} eq '--' ||
         $n->{op1}{op} eq '+'  ) {
        return $n->{op1}{op} . _emit( $n->{exp1} );
    }
    
    return _not_im <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1232	1341	
==>:=(<word>)\(<?p6ws>?$<params>:=(<list>?)<?p6ws>?\)<?p6ws>?
        { return { meth_call_term => $() } }
RULE
* <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18821	18931	
==>a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, * <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18821	18931	
==>a direct clone like this:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, * <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2504	2644	
==>n,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2504	2644	
==>n,
                     end_is_open =>   Bool::True ) );
}

method union ($self: Span::Num $span ) 
    returns List of Span::Num 
{
    my i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6044	6207	
==>], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lco <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6044	6207	
==>], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => substr( $_[0], $_[5]+$lco <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	92	187	
==>te <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	92	187	
==>te <str2time time2str>;
use HTTP::Headers::Util <split_header_words join_header_words>;

class H <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1510	1601	
==>$node)) {
		if ($node->isa("Blondie::Node")){
			my $reduced = $self->SUPER::generic_reduce( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	37	160	
==>:Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Proc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	37	160	
==>:Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 => 'Proc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20453	20557	
==>ged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20453	20557	
==>ged_in> method instead.

=head2 C<$botE<lt>logged_inE<gt>()>

Returns a true value if the bot is logged i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10939	11079	
==>'} = sub {\n" .
                "    my \$rule = Runtime::Perl5::RuleOps::concat( \n" .
                "        Runtime::Perl5::RuleOps::con <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2171	2275	
==>ec->devnull;

my $output ;# = svn("up") or die "Could not update pugs tree: $!";
system($^X, qw(-w ./util <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	8483	8906	
==>!>'),
                                    App->new(
                                        Sym->new('&infix:<->'),
                                        Sym->new('$n'),
                                        Val->new(1),
                                    ),
                                ),
                            ),
                        ),
                    ),
                ),
            ),
        ), <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	411	541	
==>> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	411	541	
==>> 

  Methods:
    * iterator / map 
    * size - accept a function; use as_list
    * compare
    * as_list
    * contains( $set ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1389	1488	
==>".$pil_code; # part of spec.  eew.

    ($pil_code,$err);
}


package Perl6::Run::OnPerl5::X1::Resul <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7830	7924	
==>USHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_CALL:
/*    fprintf(stderr,"calling <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1560	1656	
==>).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1560	1656	
==>).

=head2 Examples

In the F<examples/> directory there're examples of working Perl 6 code. In
F <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1504	1768	
==>rn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1504	1768	
==>rn %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Model::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

Rosetta:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18032	18131	
==>>get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->create <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41297	41396	
==>>get('$self:')->class->send('dispatcher' => symbol->new(':descendant')));
                $e->create <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	45	149	
==>se CGI;
use CGI::Carp   qw<fatalsToBrowser>;
use Fcntl       qw<:DEFAULT :flock>;
use Storable    qw<stor <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	237	333	
==>on {
    $self.new($self.length - $duration.length);
}

#method infix:<->($self: Duration $durati <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2654	2775	
==>shness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $ver <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2654	2775	
==>shness_check($module);
    my $version = $class->VERSION || '0';
    return join "\n",
        "# Generated by $class $ver <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2961	3089	
==>tr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3439	3567	
==>tr block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{b <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5464	5596	
==>=> chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5464	5596	
==>=> chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    "Chi"      => chr(935),
    "Psi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4839	5010	
==>rom altdir to install dir
                    ### then from pathdir, to altdir
                    my $script = basename($_);
                    system( qq[ln -fs $_ $Alte <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4079	4226	
==>rom altdir to install dir
            ### then from pathdir, to altdir
            my $script = basename($_);
            system( qq[ln -fs $_ $Alte <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	505	608	
==>with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	505	608	
==>with $_[0]
7 - argument list - <subrule($x,$y)>

it returns (or "yields"):

    undef - match failed

or <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	842	938	
==>l shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	842	938	
==>l shortcut syntax compared
to normal C<Perldoc::DOM::Node>'s / C<Tree::DAG_Node>'s - instead of
s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21603	21711	
==>turn $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18024	18132	
==>turn $S->object(ifmatch => -1);
  });

  # look-behind (neg)
  $self->add_handler('(?<!' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2082	2224	
==>else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2082	2224	
==>else {
        for 0..26 {
            %.table{@upper[$_]} = @upper[($_ + $shift) % 26];
            %.table{@lower[$_]} = @lower[($_ + $shift) <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	1193	1304	
==>Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::I <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	1193	1304	
==>Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to Date::I <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	1025	1131	
==>ift;
    my $args = $self->makemaker_args;
    my $exe_files = $args->{EXE_FILES} ||= [];
    push @$exe_fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2202	2325	
==>ld just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2342	2465	
==>ld just use @_, or use named params
        my ( $grammar, $str, $flags, $state ) = @_; 
        $rule->match( $str, $gramma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	856	1058	
==>l, $index, $index_file, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                store       => \$root
            },
            config => {
                n <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7276	7393	
==>Regexp compilation bug";
  }
}
{
  # \d \D
  package Regexp::Parser::digit;
  sub emit {
    my($o)=@_;
    my $re = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1099	1230	
==>mpile to fail.\n";
	    next;
	}


	print STDERR "  eval \"$str\"\n" if $debug_warnings;
	my $strx = eval("\"$str\""); die "bug $@\n <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1244	1353	
==>bj->from() + 1);
  }
  return $matchObj;
}

sub digit {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $fro <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	14764	14870	
==>mpos) = newfrom(mob, 0, "PGE::Exp::Anchor")
    mob["value"] = "$"
    goto end
  scalar:
    (mob, $P0, mf <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1168	1258	
==>Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} i <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3483	3600	
==>INST_LIB\)")/ "-Iinc"$1/g;

    $makefile =~ s/^(FULLPERL = .*)/$1 -Iinc/m;
    $makefile =~ s/^(PERL = .*)/$1 -Iinc/m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	120	226	
==>Ratchet for the final implementation

use strict;
use warnings;
use Data::Dumper;
use PadWalker qw( pe <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	222	312	
==>st[1]";
say "{$wer}s Lieblingsfarbe ist %lieblings{'Farbe'}";
say "{$wer}s Lieblingsdrink i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34702	34800	
==>e definition of F<Regexp::AndBranch::and>:

  package Regexp::AndBranch::and;
  @ISA = qw( Regexp:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1468	1562	
==>method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1468	1562	
==>method union ($self: Set::Infinite::Functional $set ) 
    returns Set::Infinite::Functional 
{ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	178	272	
==>ines some p6 implementations).
# To contribute, just scroll down until pod lines start appearin <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44927	45086	
==>turn $nil::NIL;                                          
            }
        )
    )
);

## ----------------------------------------------------------------- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	24	130	
==>l;

use Perl6::Core::Type;

package nil;

use strict;
use warnings;

use base 'type';

our $NIL = bless \(m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11559	11702	
==>atch::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1] ruleop::alternation( \\$code )\n";
}
sub node::named <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6628	6736	
==>>write or return;
    
    return $inst_pkg;

}

=head2 $bool = $inst->unregister( package => $inst_pkg );

= <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1680	1786	
==>t> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1680	1786	
==>t> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax which is not yet a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4837	4950	
==>rns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4837	4950	
==>rns the day of the quarter, from 1 to 92.

= AUTHOR

Dave Rolsky, <autarch@urth.org>

= COPYRIGHT

Copyright (c) 2 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4148	4250	
==>} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_scalar {
   my $var = emit(get_data($_[0], '$<vari <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1073	1169	
==>ame = $re_sigil.$re_symbol;
our $re_comma = '(?:,|=>)';
our $re_scopeop = '(?:my|our)';

# conv_f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4050	4183	
==>n') if $cc;
    return $S->object(exact => "\n", '\n');
  });

  $self->add_handler('\N' => sub {
    my ($S, $cc) = @_;
    return $S <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1127	1249	
==>$x {
       take $x if $x ~~ $test;
     }
   }
 }
 multi sub Array::join (@values,   Str $delimiter) returns Str
 multi su <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9215	9319	
==>%users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9215	9319	
==>%users{$newnick} = %users{$oldnick};
    %users.delete($oldnick);
  }];

  # Instance methods
  $self = { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15800	15912	
==>ller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information a <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15858	15970	
==>ller information to the test's `$desc`.

= SEE ALSO

The Perl 5 Test modules

- Test

- Test::More

Information a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8394	8554	
==>e_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8394	8554	
==>e_body', undef, [
                [ 'assignment_stmt', { 'into' => 'result' }, [
                    [ 'expression', {
                            'vf_call_sfunc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17915	18029	
==>y $cls=$_[0];
		  my $symtab = '$'.$cls.'::{$_[0]}';
		  "  exists $symtab\n     ? \${$symtab} : \n";};
    $code . <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25152	25246	
==>modifiers_from(E0,Em,E1) :-
  E0 = amat(C0,_),
  Em = amat(_,flgs(A,B,C,D,E,F,G,H,I,J)),
  E1 = <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6650	6753	
==>=item getstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
return v <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6650	6753	
==>=item getstore($url, $file)

Gets a document identified by a URL and stores it in the file. The
return v <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3224	3382	
==>$x);
                $round_up = 1;
            }
        }
    }

    return $x_round;
}

our Int multi Num::round_random ( Num $x ) {
    my $x_round;
    st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37458	37559	
==>ttribute', (symbol->new('%:attributes')      => attribute->new('%:attributes'      => 'hash')));
$::Cl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5939	6052	
==>ert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5939	6052	
==>ert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specific workaround is done since $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	304	401	
==>g arguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	304	401	
==>g arguments!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21146	21265	
==>"] = isarray
    $I0 = self["isscope"]
    if $I0 == 0 goto unscoped

  scoped:
    subpats = pad["subpats"]
    pad["su <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	400	496	
==>l5') for <perl5/*>;
    copy_all("$_/blib6/", 'blib6/pugs/perl6') for <perl5/*>;
    copy_all("$_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10369	10457	
==>ned($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]": <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11104	11192	
==>ned($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined($3)?"\"$3\" $-[3] $+[3]": <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	597	729	
==>e =~ m/\d+/) {
#        return "{$name$space}";
#
#    # func
#    } else {
#        return "$segil\\synfunc{$name$space}";
#    }
#} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	996	1124	
==>truct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

### XXX c/p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1660	1775	
==>truct {
    my $self = shift;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
} <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	17425	17522	
==>py(r->offsets, ret->offsets, 2*len+1, U32);


} regexp;


Notes on functions:

regexp* regcompp (p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	634	745	
==>e 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	634	745	
==>e 
# removed (IIRC hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1715	1837	
==>}
    sub can { our $AUTOLOAD = 'can'; goto &AUTOLOAD; }    
    sub AUTOLOAD {
        my ($label) = (split '::' => our $A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	136	235	
==>ugs::Grammar::Var;
use Pugs::Grammar::Num;
use Pugs::Grammar::Str;

# TODO - implement the "magic ha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1458	1549	
==>ture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.captur <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1458	1549	
==>ture($p, :num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.captur <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14140	14250	
==>acks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests of Set.

=cu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14140	14250	
==>acks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the tests of Set.

=cu <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4661	4759	
==>ressed) initrd (in KiB).
  --initrd-mnt=$initrd_mnt
    --initrd-img will be mounted to --initrd-mn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4800	4891	
==>DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4940	5031	
==>DESCRIPTION

This module provides an implementation for Perl 6 Regex.
See L<Pugs::Compiler:: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11315	11409	
==>dren) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_child <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11315	11409	
==>dren) returns Tree>

=item B<get_child ($self: Int $index) returns Tree>

=item B<get_all_child <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	716	832	
==>store $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	716	832	
==>store $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = open $file, : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	6010	6121	
==>s> $<fix> := (infix|prefix|postfix) 
        \: \< $<id> := (.*?) \> <?p6ws>? <block>
        { return { sub_dec <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4003	4109	
==>- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given values.  The mo <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4003	4109	
==>- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given values.  The mo <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1418	1516	
==>> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count> <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1418	1516	
==>> incoming
events in memory and are able therefore to be strictly exact.

FYI, C<conform>, C<count> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3045	3149	
==>ther end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptibl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3045	3149	
==>ther end along with 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptibl <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8705	8824	
==>t.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8705	8824	
==>t.insert(13);
  $set.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..1 <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	614	804	
==>l5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    whe <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	614	804	
==>l5{^=kwid}) {
            $is_parsing = 1;
            %events<start_document>();
        }
        else {
            if ($is_parsing) {
                given $line {
                    whe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	398	497	
==>est,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	474	573	
==>est,
		body => $params->{body},
		arity => $params->{arity},
		name => $params->{name},
		type => $p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3670	3764	
==>elete_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more informatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3670	3764	
==>elete_params> -> C<clear>

=back

Please read the HTTP::Query documentation for more informatio <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	797	940	
==>$sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	797	940	
==>$sum = 0xc6ef3720;
        for 0..32 {
            $v1  -= ($v0 +< 4) + @.key[2] +^ $v0 + $sum +^ ($v0 +> 5) + @.key[3];
            $v0  -= ($v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7636	7737	
==>e actual rule object will be full OO



:(Str $match_against, :$next_state, Bool :$capture?

  --> Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7377	7475	
==>e actual rule object will be full OO

:(Str $match_against, :$next_state, Bool :$capture?
  --> Pug <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3464	3643	
==>de to p6 code

    -c            # Show conversion rules
    -e            # Convert one-liner
    -s            # List supported features
    -d            # Dump debugging inform <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5597	5699	
==>n () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
metho <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5597	5699	
==>n () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_open;
}
metho <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2440	2528	
==>olog be built ./configure --enable-shared.
=cut
# export LD_LIBRARY_PATH=/usr/local/lib/p <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1596	1716	
==>ge Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    sub set { ${ $_[0] } = $_[1]; bless $_[0], <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12440	12608	
==>2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written a <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3723	3818	
==>tem Memory

One sees both segfaults and memory exhaustion when running against
some of the perl5 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9270	9365	
==>ple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3095	3190	
==>ple_statement(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7469	7581	
==>e($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Cod <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7469	7581	
==>e($func)
    }
    else {
        $self.post_order_traverse($func)
    }
}

method pre_order_traverse ($self: Cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34617	34707	
==>otations, like
C<[=NAME=]> and C<[.NAME.]>); otherwise, reference to I<alnum>, I<digit>,
I< <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14358	14459	
==>e
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"') <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14358	14459	
==>e
C<< < >>, C<< & >>, C<< > >>, and C<< " >> characters:

  $escaped = encode_entities($input, '<>&"') <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6266	6381	
==>%users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6266	6381	
==>%users accordingly.
  %handler<PART> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($even <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4917	5010	
==>->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7585	7678	
==>->name, 'Foo', '... $Foo got the right method return value');
is($Foo->superclass, $Object, '. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15282	15382	
==>ument itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string ide <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15282	15382	
==>ument itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This string ide <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	357	472	
==>self->reduce($prog);
}

sub can_reduce { 1 }

sub generic_reduce {
	my $self = shift;
	my $node = shift;
	die "gener <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/repo.pl	279	390	
==>y created";

$REPO->create   or die "Creation failed";

for my $jib ( values %PKGS ) {
    $REPO->add_file( file <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	169	275	
==>emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	375	481	
==>emit.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interf <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5195	5309	
==>( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2737	2851	
==>( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $code;\n";
}
sub n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1039	1225	
==>) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1039	1225	
==>) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1182	1279	
==>for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective expo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1182	1279	
==>for so-called 
"print-based debugging", but can be put to other uses as well.

Log::Selective expo <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	879	992	
==>ME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no l <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	879	992	
==>ME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths);
  
  # no l <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	351	459	
==>$!;
print OUT "module $fullname ($data) where\n\n";
print OUT <<EOF . "\n";
{-
    *** NOTE ***
    DO NOT ED <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	36	164	
==>as Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0 <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	36	164	
==>as Int $.debug;
has Int $.strict_leading_dot;
has Int $.strict_wildcard_slash;

submethod BUILD {
    $.debug                 = 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3868	3987	
==>[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3868	3987	
==>[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $_[2], $_[3]{match}[1], @_[4,5,6,7] );
            $matches[1] = ${$mat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15713	15819	
==>ld Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15713	15819	
==>ld Nodes>

Array of Rosetta::Model::Node - This stores an ordered list of all this
Node's child Nodes, if i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23141	23311	
==>mbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ), 
            sub {
                my $e = shift;
                return $e->get('$sel <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42744	42913	
==>mbol->new('$self:' => 'opaque')),
                returns => 'opaque'
            ),
            sub {
                my $e = shift;
                return $e->get('$sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4610	4723	
==>t );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4610	4723	
==>t );
    if ($parent_node.defined) {
        $?SELF!_assert_arg_node_assume_def(
            'new', ':$parent_node <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	39292	39383	
==>lation::Example>

This multi-method is a generic binary relational operator that is identica <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	359	475	
==>ift;
    return Runtime::RuleCompiler->compiled(sub {
       	my $grammar = shift;
	my $tree;
	print Dumper($rule->($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5449	5550	
==>";
}
sub node::condition {
    my $op = get_str($_[0],'$<op>');
    my $condition = emit(get_data($_[0 <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1115	1225	
==>xport
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refact <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1115	1225	
==>xport
{
  getstore($url,$file)
}

sub get (Str $url) is export {
  return _trivial_http_get($url);
};

# Refact <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	933	1038	
==>ernals::exit $status;
}

sub Perl6::Internals::eval_parrot (Str $code) is builtin is primitive {
    my $s <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	935	1044	
==>Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateT <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	935	1044	
==>Object ($self: ) {
    return $self.size;
}

method start () returns Object {
    # TODO - change Inf to DateT <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3223	3363	
==>ance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a subclas <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3942	4057	
==>ance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a subclas <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6150	6264	
==>::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6150	6264	
==>::Parser

=head1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  use Pod::Event::Handler::HTML;
  
  parse("path/to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	473	572	
==>ative value
sub to_native { ${$_[0]} }

# keep this here for a consistent interface
sub to_num { shi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5696	5834	
==>per( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5696	5834	
==>per( $match2 );

            return $_[3] = $match2;
        }
    }
}

sub constant { 
    my $const = shift;
    my $lconst = length( $co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2920	3034	
==>run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- ` <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2920	3034	
==>run on (yeah no VMS !!). 

= FUNCTIONS

- `curdir returns Str`

- `updir returns Str`

- `rootdir returns Str`

- ` <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1475	1574	
==>f $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1475	1574	
==>f $span.end + $.density < $.start;
    my $i_start = $.start > $span.start ?? $span.start !! $.start <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4062	4166	
==>urns a date object for the given values.  The month and day default
to 1 if not given.

The value for day <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4062	4166	
==>urns a date object for the given values.  The month and day default
to 1 if not given.

The value for day <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1606	1725	
==>ns

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1606	1725	
==>ns

sub header (
    Str  $content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    St <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15389	15497	
==>y (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15447	15555	
==>y (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10680	10773	
==>le, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require() <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10738	10831	
==>le, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This function currently uses `require() <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19821	19921	
==>s(C),      [C|F1],F1,B0,B0,E0,E0) :- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F1,B0,[C|B <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12485	12570	
==>chars_more(Rc0,conc(R,char(C))) --> ";", hexdigits_int(C), p6_hex_chars_more(Rc0,R), ! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5986	6098	
==>ostfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+inf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5986	6098	
==>ostfix( $match->() ) eq 
        '1 prefix:<+> 2 infix:<+>', 
        'define a new operator globally; prefix+inf <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8437	8582	
==>rint(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = op <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8437	8582	
==>rint(./as_string(!$.ignore_discard));
        $fh.close;
        
        1;
    }
    
    method load (Str $file = $.file) {
        my $fh = op <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5951	6052	
==>class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPS <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5951	6052	
==>class Span::Code


=kwid

= NAME

Span::Code - An object representing a recurrence set span 

= SYNOPS <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1747	1888	
==>ufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $messag <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1747	1888	
==>ufficient Storage'            # WebDAV
    );
    
    for %StatusCode.kv -> $code, $message is copy {
        $message .= uc;
        $messag <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1345	1480	
==>chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1345	1480	
==>chunk or return undef;
    $chunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5223	5339	
==>n '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5223	5339	
==>n '  Debug String of a Locale::KeyedText::Translator object:'
         ~ "\n"
         ~ '    @set_names: ["' ~ @!set <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	780	892	
==>%!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	780	892	
==>%!seen{./normalize($nick)} }

1;

=head1 NAME

Net::IRC::SeenExt - Tracks the times people spoke lastly

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3311	3405	
==>arameters of the request are accessible through the HTTP::Query object that
is part of every HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3311	3405	
==>arameters of the request are accessible through the HTTP::Query object that
is part of every HT <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12248	12356	
==>ptional
hierarchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12248	12356	
==>ptional
hierarchy of new child Nodes of that new Node) that gets stored in the Root
Nodes attribute (that att <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7560	7697	
==>); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7560	7697	
==>); # let escape any thrown exception
#        next SET_MEMBER
        next
            if !$text.defined;

        # We successfully got t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3971	4093	
==>n::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3971	4093	
==>n::Code' );

    my ($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14914	15012	
==>calar_non_numeric => sub { $as_hash_complain->("scalar_non_numeric") },
      array => sub { {@{$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5338	5522	
==>body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                las <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5338	5522	
==>body >= $length;
                &*push(@body, &*shift(@tail));
            }
        }
        else {
            # make $#tail = -$length
            while @tail {
                las <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	264	382	
==>$key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	264	382	
==>$key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns int { 8 }

meth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5437	5539	
==>("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.in <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5437	5539	
==>("JOIN", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $!chans.in <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	86	181	
==>lf: Duration $duration) returns Duration {
    $self.new($self.length + $duration.length);
}

me <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	163	257	
==>equire;

sub compiler_class { __PACKAGE__ . "::Compiler" };

sub interpreter_class { __PACKAGE_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30385	30481	
==>Relation::Example.  This method has an alias named C<select>.

=item C<project_all_but (Set of St <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1180	1315	
==>]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1180	1315	
==>]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $submatch) = @_;
    my $m = { %$submatch };
    delete $m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4697	4870	
==>LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4697	4870	
==>LWP::Debug::debug("   it's a match");
                        
                        # set version number of cookie header.
                        # XXX: What should it be <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3064	3165	
==>$buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3064	3165	
==>$buffer !~ rx:perl5{$CRLF$CRLF} );
  # my ($status,@headers) = split /$CRLF/, $buffer;
  # worry later <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1714	1808	
==>burst_size)

The constructor takes as parameters at least C<rate of information> in
items per s <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1714	1808	
==>burst_size)

The constructor takes as parameters at least C<rate of information> in
items per s <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	408	526	
==>table->addToken("term:^", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:^^", "term:", "nows", "PGE <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13954	14081	
==>r for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13954	14081	
==>r for id of 3 people and fetch them from the database.
        $fnh_get_person.prepare();
        for 1..3 {
            my Rose <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22812	22911	
==>ce::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22812	22911	
==>ce::Value Class

I<This documentation is pending.>

=head2 The Rosetta::Interface::Variable Class

I <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19689	19785	
==>l be much easier for a non-programmer to edit.
But the current Perl-based solution will also be k <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19689	19785	
==>l be much easier for a non-programmer to edit.
But the current Perl-based solution will also be k <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2528	2644	
==>ossible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2528	2644	
==>ossible

=head1 SYNOPSIS

    # In your configuration file
    rootproperty=blah

    [section]
    one=twp
    three <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2691	2799	
==>g"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2691	2799	
==>g"
            unless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26269	26367	
==>t.

While it is by no means required, the copyright holders of Rosetta would
appreciate being infor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26269	26367	
==>t.

While it is by no means required, the copyright holders of Rosetta would
appreciate being infor <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	33	136	
==>d in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span:: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	33	136	
==>d in the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25328	25427	
==>.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25328	25427	
==>.html>.  You may copy and distribute
such a system following the terms of the GPL for Rosetta and th <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8971	9086	
==>s{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8971	9086	
==>s{$newnick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3019	3119	
==>rn -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3019	3119	
==>rn -Inf;
}

=kwid

= NAME

Span::Int - An object representing a single span, with a simple functional <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	537	733	
==>equired    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        repository => { 
            required    => 1, 
            store       => \$inst, <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2050	2148	
==>version == 6;
    $self->{MM}{INST_AUTODIR} = '$(INST_LIB)/$(BASEEXT)';
    $self->{MM}{INST_ARCHAU <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	319	465	
==>params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!defined $params{ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5809	5919	
==>sed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5809	5919	
==>sed;
}
method end_is_open () returns Bool {
    return Bool::False if $.span.is_empty;
    return $.span.end_is <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	938	1050	
==>s*\]$/) {
			@config.push({Name => $0});
			next;
		} elsif ($line ~~ rx:perl5/^(.*?)\s*?=\s*(.*)$/) {
			@config <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5088	5193	
==>-netz.de>
USAGE

GetOptions(
  "kernel-uri=s"   => \$kernel_uri,
  "grub-uri=s"     => \$grub_uri,
  "kern <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14469	14582	
==>ANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14527	14640	
==>ANS

This module is still a work in progress. As Pugs grows, so will it's
testing needs. This module will be the c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22497	22640	
==>offsets, 2*len+1, U32);
    Copy(r->offsets, ret->offsets, 2*len+1, U32);


 } regexp;

=head2 Additional notes

Perl_re_dup() in sv.c is a usef <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	526	658	
==>$TRUE if $value;
    return $FALSE;
}

# conversion to native value
sub to_native { ${$_[0]} }

# keep this here for a consistent int <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25853	25941	
==>---------------

listify(X,L) :- atom(X), atom_codes(X,L), !.
listify(X,L) :- string_to_l <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	13432	13534	
==>lete %hash<key1>{@keys}         %hash<key1>.delete{@keys}


=back


=item exists
 
 multi method Hash:: <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11854	11947	
==>(C), !.
p6_oct_spec(R)       --> [Open], brackets(Open,Close), p6_oct_chars(R), [Close].
p6_oc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39476	39568	
==>::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All ri <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39476	39568	
==>::KeyedText library.

Locale::KeyedText is Copyright (c) 2003-2006, Darren R. Duncan.  All ri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4632	4752	
==>ical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4632	4752	
==>ical value.

- union( $set ) / intersection( $set )

  # XXX

- complement()

  # XXX

- intersects( $set )

  # XXX
  
- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	724	839	
==>PE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	724	839	
==>PE'
        => q[<CLASS>.<METH>(): argument <ARG> is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL>'. <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1192	1287	
==>alias> | <simple_term> }

rule repetition  { <simple_term> <quantifier> }
rule quantifier  { \*\ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1669	1795	
==>LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1669	1795	
==>LeapYearMonthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11754	11857	
==>ode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HT <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11754	11857	
==>ode = \&decode_entities;

1;

# $Id: Entities.pm,v 1.29 2004/11/23 15:06:16 gisle Exp $

=head1 NAME

HT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	941	1058	
==>e whole string to $tail every time



# XXX - weaken self-referential things



sub ruleop::alternation {

    # alter <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	904	1016	
==>e whole string to $tail every time

# XXX - weaken self-referential things

sub ruleop::alternation {
    # alter <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7667	7818	
==>TENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*A <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7667	7818	
==>TENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22597	22736	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22876	23015	
==>rn { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&_simple_statem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3026	3161	
==>eop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3037	3172	
==>eop::capture( 'term', \&quantifier ),
            ruleop::greedy_plus(
                ruleop::concat(
                    ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8703	8821	
==>span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8703	8821	
==>span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.elems = <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	511	633	
==>shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = sh <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	412	534	
==>shift;
    $self->makemaker_args(
        INC => join ' ', map { "-I$_" } @_
    );
}

sub cc_lib_paths {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31582	31680	
==>d a program which uses both libraries
could have yet another set for itself.  When the program is r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31582	31680	
==>d a program which uses both libraries
could have yet another set for itself.  When the program is r <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	14358	14503	
==>down(_tag=>"head")->push_content(
                HTML::Element->new("link", rel  => "stylesheet", 
                                           typ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	418	521	
==>ys = qw<
    build_requires requires recommends bundles
>;

foreach my $key (@scalar_keys) {
    *$key = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4310	4407	
==>$Class');
is($Object->name, 'Object', '... $Object got the right method return value');
is($Object <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6212	6309	
==>$Class');
is($Object->name, 'Object', '... $Object got the right method return value');
is($Object <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6107	6309	
==>ends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6571	6773	
==>ends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19027	19161	
==>nd, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20385	20519	
==>nd, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, @$_), @{ $ifthen->{data}[1]{data} };
    }
    else {
      $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5604	5737	
==>::name 'param'
            return "use " . _emit( $n->{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15966	16076	
==>match = $m1;
    local $X::cap = [];
    $v = $ru->($rest);
  }
  FAIL_IF_FAILED($v);
  unshift(@{$m0->{$name}} <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5688	5802	
==>d && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5688	5802	
==>d && $.span.end_is_open {
        $x = $.recurrence.previous( $.span.end );
    }
    if $x < $.span.start && ! $.s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3041	3161	
==>accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3041	3161	
==>accent
    "ocirc"    => 'ô',  # small o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12873	12975	
==>r to user messages in programs by keys

=head1 VERSION

This document describes Locale::KeyedText versi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12873	12975	
==>r to user messages in programs by keys

=head1 VERSION

This document describes Locale::KeyedText versi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1054	1166	
==>:SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1054	1166	
==>:SeenExt[public => 0] {...}
  my $bot = MyBot.new(...);

  my :(date => $date, text => $text) := $bot.seen("iblec <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6985	7086	
==>CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6985	7086	
==>CHANGES

=over 2

=item This Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=it <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4204	4315	
==>xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4204	4315	
==>xFF); # 1.octet
      take index(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17004	17102	
==>module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17004	17102	
==>module just fine, as C<use v6-pugs> and C<no v6>
both works in a Perl 6 setting.

The B<v6.pm> modu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8222	8369	
==>s }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8222	8369	
==>s }( $x );
                return $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_prev <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31102	31197	
==>e $predicate!) returns Relation>

This method is a generic relational operator that returns a ne <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35652	35747	
==>e $predicate!) returns Relation>

This method is a generic relational operator that returns a ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	595	695	
==>e;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	595	695	
==>e;
*Variable = Pugs::Compiler::Rule->compile(q(
    \\$ <CaptureVariableName>
    { use v5; return $< <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8135	8236	
==>@span may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8135	8236	
==>@span may contain zero, one, two, or three spans, depending on
the contents of $span1 and $span2:

  @ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2532	2629	
==>---------------
## getting children

method get_child ($self: Int $index) returns Tree { @!childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2532	2629	
==>---------------
## getting children

method get_child ($self: Int $index) returns Tree { @!childre <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2109	2219	
==>path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, mayb <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2109	2219	
==>path);
}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, mayb <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19800	19913	
==>eneric Item context"?
}

 
 multi prefix:<:16> ( Str $hexstr = CALLER::<$_> --> Num )
{ Pugs::Internals::string_as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	108	354	
==>ocale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by package <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	108	354	
==>ocale::KeyedText-(1.72.0...);
use Rosetta::Model-(0.724.0);

###########################################################################
###########################################################################

# Constant values used by package <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	38	148	
==>the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	38	148	
==>the Recurrence.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16753	16858	
==>hod _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natura <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	20230	20335	
==>hod _inner_join (Relation $other!) returns Relation {
    # This form takes the form of an ordinary natura <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31658	31817	
==>$e, sub { 
                    my $e = shift;
                    $e->create('$temp' => $e->get('$counter'));
                    $e->set('$counter' => $e->get( <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1204	1302	
==>mple_term> }

rule repetition  { <simple_term> <quantifier> }
rule quantifier  { \*\* {<[\d\.]>+}(\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9285	9417	
==>ock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9478	9610	
==>ock->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&runtime_alternation;
*{'named_capture'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	578	686	
==>}\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	578	686	
==>}\n";
}

sub emit {
    my ($grammar, $ast) = @_;
    # runtime parameters: $grammar, $string, $state, $arg_l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	880	994	
==>nary:<' . $opt{name} . ' ' . $opt{name2} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '?? <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4784	4881	
==>, $,);

    my($tot, $failedtests) = _run_all_tests(@tests);
    _show_results($tot, $failedtests) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18061	18164	
==>ects will not
have references to each other at a level visible in the Rosetta Native
Interface, if at al <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18061	18164	
==>ects will not
have references to each other at a level visible in the Rosetta Native
Interface, if at al <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Num.pm	31	164	
==>use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);

=for pod

Parses text like:

    1
    1.1
    +1
    1e10

=cu <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3090	3188	
==>for p1');

cmp_ok($p->id, '!=', $p1->id, '... got different ids');

my $old_p_id = $p->id;

$p->set <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	136	243	
==>ty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $density ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	136	243	
==>ty_span ($class: $density = 1 ) {
    return $class.new( start => undef, end => undef, density => $density ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	15	118	
==>ompiler.pl - fglock
#
# experimental implementation of a p6 compiler
# 

use strict;
use warnings;
no wa <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2333	2437	
==>nd returns Int {
    int( ($.second - int($.second) ) * 1e3);
}
method ce_year returns Int { $.year }
met <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13065	13162	
==>st was skipped
C<< $strap->{skip_all} >> contains the reason.

=cut

# Regex for parsing a header. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12656	12784	
==>k to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12656	12784	
==>k to the underlying dbms;
    # if database doesn't exist yet, try to create it.
    try {
        $conn.open();
    };
    if (m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15742	15835	
==>EST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15800	15893	
==>EST_ALWAYS_CALLER to force Test.pm to always
append the caller information to the test's `$des <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1534	1675	
==>"    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1534	1675	
==>"    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2223	2348	
==>arams = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2223	2348	
==>arams = $q.params();
        # or `$q.param()` (for backward compatibility)
    
    my $foo = $q.param('foo');
    
    $q.pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5278	5382	
==>mp => "\t", '\T') if $cc;
    return $S->object(exact_comp => "\t", '\T');
  });

  $self->add_handler('\ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1909	2026	
==>rcumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or u <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1909	2026	
==>rcumflex accent
    "Ugrave"   => 'Ù',  # capital U, grave accent
    "Uuml"     => 'Ü',  # capital U, dieresis or u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4920	5018	
==>w', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $? <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4920	5018	
==>w', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $document!all_nodes.push( $? <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3057	3162	
==>e($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$con <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3057	3162	
==>e($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$con <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	278	415	
==>ns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	278	415	
==>ns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_str> },
        'read' => sub ($file) {
            my $input <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1613	1715	
==>returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) { <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1613	1715	
==>returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24485	24591	
==>istribute it and/or modify it under
the terms of the GNU General Public License (GPL) as published by the F <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24485	24591	
==>istribute it and/or modify it under
the terms of the GNU General Public License (GPL) as published by the F <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2640	2768	
==>],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it h <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2640	2768	
==>],
    'LKT_ARG_HASH_NO_ELEMS'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but it h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1717	1856	
==>P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1717	1856	
==>P5/^([\w\-]+): (.+)/ {
            @headers.push( $0 => $1 );
        }
        last if $chunk ~~ m:P5/^$/;
    }
    return \@headers;
}

m <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	768	875	
==>lf->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	669	776	
==>lf->makemaker_args(
        LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
    );
}

sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2458	2584	
==>h($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2458	2584	
==>h($path);
    }

    # Figure out the effective $base and clean it up.
    if (!$base.defined || $base eq '') {
        $base = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15307	15408	
==>always convert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15307	15408	
==>always convert their value to system
time (seconds since Jan 1, 1970) and they also expect this kind o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37593	37720	
==>w( Regexp::Parser::branch );

  sub new {
    my ($class, $rx, $pos) = @_;
    my $self = bless {
      rx => $rx,
      flags = <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	82	204	
==>rload
    'bool'  => 'as_bool',
    '""'    => 'as_string',
    '@{}'   => 'as_array',
    '%{}'   => 'as_hash'
  ; 
use st <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22256	22355	
==>tribute is a column, but a Relation is not a table.

The Relation class is pure and deterministic, s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26808	26907	
==>tribute is a column, but a Relation is not a table.

The Relation class is pure and deterministic, s <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6658	6756	
==>'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6658	6756	
==>'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool' <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	367	491	
==>) returns Int {
    my @stack;
    for ($expr.split()) -> $tok {
        if $tok ~~ rx:Perl5/^-?\d+$/ {
            @stack.pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Inline-Parrot/lib/Inline/Parrot/PMC.pm	538	634	
==>ackage PMCPtr;
# fix the typemap to make all those stuff live in Inline::Parrot::PMC
our $interpr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	32	146	
==>use warnings;
use JIB::Constants;

use JIB::Constants;
use JIB::Dependency;

use YAML                    qw[LoadFil <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24962	25055	
==>that pregcomp() supplies a regmust only if the r.e. contains something
 * potentially expensiv <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	912	1023	
==>ng nodes.

=head1 SYNOPSIS

    package My::ASTWalker;

    use base qw/Blondie::Reducer/;

    sub reduce_sym { <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	398	504	
==>duce($program);

	$self->{dups}->members;
}

sub generic_reduce {
    my $self = shift;
    my $node = shif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17629	17738	
==>user_agent

This header field is used in request messages and contains information
about the user agent origin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17629	17738	
==>user_agent

This header field is used in request messages and contains information
about the user agent origin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	17030	17134	
==>:words {  # see 11.10
      <EqualityExpressionNoIn>
    | <BitwiseANDExpressionNoIn> <'&'> <EqualityExpr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3714	3818	
==>s{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353" <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3714	3818	
==>s{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handler("353" <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2233	2351	
==>mp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2233	2351	
==>mp2 = "$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return '[' ~ $tmp1 ~ ',' ~ $tmp2 ~ ']';
}

method compare ( Span <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	351	467	
==>filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_f <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	351	467	
==>filter function
    my $func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_f <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	58	180	
==>ct;
use warnings;

use Blondie::Nodes;

sub symbols {
    (
		map { stub($_, '$x', '$y') }
        '&infix:<==>',
        ' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1861	1977	
==>:Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ? <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1861	1977	
==>:Num' );
    my $i_start = $.start < $span.start ?? $span.start !! $.start;
    my $i_end =   $.end > $span.end     ? <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	619	738	
==>execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and exe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	619	738	
==>execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and exe <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10332	10431	
==>+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11067	11166	
==>+[1]":"undef","\n";
print ' $2 ',defined($2)?"\"$2\" $-[2] $+[2]":"undef","\n";
print ' $3 ',defined <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3085	3265	
==>}                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3085	3265	
==>}                        
                        %events<start_element>('verbatim');
                        %events<verbatim>($verbatim);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3343	3450	
==>= shift;
		
		my $obj = B::svref_2object(ref($node) ? $node : \$node);
		my $class = B::class($obj);

		retu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4249	4349	
==>ast day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorro <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4249	4349	
==>ast day for the specified month.

- `today()`
- `now()`

Synonyms for `Date.new('today')`

- `tomorro <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	115	220	
==>n't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	115	220	
==>n't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($ua);
# How do we get <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3472	3582	
==>xport symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3472	3582	
==>xport symbols:
    # (None Yet)

    # Attributes of every Rosetta::Model::Node object:
    has Rosetta::Model: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2134	2240	
==>ritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> com <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2134	2240	
==>ritance
sub pmc_set_base {
    my ($class, $flag) = @_;

    # Handle the C<use Module::Compile -base;> com <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	22342	22448	
==>ds {  # see 12.11
      <'case'> <Expression> <':'> <StatementList>?
}
rule DefaultClause :words {  # see 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7486	7621	
==>bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ruleop::wrap {

    my $debug = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7235	7364	
==>bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ruleop::wrap {
    my $debug = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	215	330	
==>\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	215	330	
==>\" [ <-[\\"]> | \\\\ <EscapeChar> ]* \\"
))->code;
*VariableName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->cod <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9746	9867	
==>(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    m <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9746	9867	
==>(?:use|no)[^\S\n]+[\w\:\']+[^\n]*\n)/m, $data;
    my @blocks = ();
    my @classes = ();
    my $context = {
    };
    m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10407	10505	
==>med
on demand at some time after the input has been set, and could potentially
never be performed a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10407	10505	
==>med
on demand at some time after the input has been set, and could potentially
never be performed a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	653	773	
==>op => "' . $opt{name} . '" ,} }' );
    $self->SUPER::add_rule( 
        "prefix:<" . $opt{name} . ">",
        '{ return <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10442	10554	
==>,
		);
	},
	# list a -> list a
	tail => do {
		my $a = type::variable::free->new;
		my $l = type::operator::nary- <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5658	5794	
==>tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5658	5794	
==>tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope', 'SState';
node_s 'Scope', 'SMy' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2573	2691	
==>? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$mult <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2573	2691	
==>? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$mult <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1705	1859	
==>TP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1705	1859	
==>TP::URI_CLASS.new($base);
        }
        
        my $req = ./request;
        
        if ($req) {
            # if $base is undef here, the return val <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2219	2324	
==>ed before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2219	2324	
==>ed before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14281	14392	
==>for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14281	14392	
==>for {time() - $last_traffic} seconds; pinging server.";
          $self<raw>("PING :$servername");
          $la <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	844	948	
==>:Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import {
	# get the format specified on the com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3393	3538	
==>[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abor <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3393	3538	
==>[0]) eq 'Pugs::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8266	8428	
==>e' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8266	8428	
==>e' => 'RETURN' }, [
                [ 'scalar_data_type', { 'base_type' => 'BOOLEAN' } ],
            ] ],
            [ 'routine_body', undef, [
                [ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2051	2144	
==>operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2051	2144	
==>operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< prefix:<∑>(@nums) >>, C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5893	6022	
==>{
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $stat <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5893	6022	
==>{
            my $status = Filter::Util::Call::filter_read();
            last unless $status;
            return $status if $stat <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3376	3512	
==>}

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3376	3512	
==>}

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = $span.end;
        $open_end = $span.end_is_open;
    }
    elsif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10218	10312	
==>-formedness of the input, such as that mandatory
constructor arguments are provided and that th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10218	10312	
==>-formedness of the input, such as that mandatory
constructor arguments are provided and that th <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2498	2595	
==>e < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2498	2595	
==>e < $other.size && $other.includes($self.members));
    return $rv;
}
method superset($self: Set $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	425	630	
==>_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	425	630	
==>_star(
                 \&{'grammar1::any'}
               ,
             )
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1616	1743	
==>{
            $str .= $self->_pp_from_struct( $$entry );
        } elsif ( UNIVERSAL::isa( $entry, 'HASH' ) ) {
            whil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2799	2906	
==>ple, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2799	2906	
==>ple, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string portion of the r <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1528	1637	
==>, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1586	1695	
==>, :$todo, :$depends) returns Bool is export {
    my $test := not($got eq $expected);
    Test::proclaim($test <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5610	5703	
==>- PGE doesnt do <-<metacharacter>> yet.
rule simple_character  { <-[\{\}\[\]\(\)\^\$\.\|\*\+\? <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	340	489	
==>->load('can_run');
    $self->load('get_file');

    require Config;
    return unless (
        $Config::Config{make}                   and
        $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	618	728	
==>ust be an opaque type";
    $self->SUPER::do($args);
}

sub _bind_params {
    my ($self, $args) = @_;
    $sel <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1311	1434	
==>stead of --user, use our own package-conf storage position

    foreach my $module (qw< fps HsSyck >) {
        chdir "third <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7613	7753	
==>, 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7613	7753	
==>, 'mandatory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_in <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	523	641	
==>act_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	523	641	
==>act_codeblock( $_[0] );
    return Pugs::Runtime::Match->new( { 
        bool  => ( $extracted ne '' ),
        match = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5541	5719	
==>h.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no avai <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6005	6183	
==>h.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as there are
                    ### no avai <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5140	5235	
==>r_base = ${"${ref}::"}{'__object__::'};

    push @{ "${class}::ISA" }, $ref . "::__object__" if <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	699	805	
==>ke some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> | <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	699	805	
==>ke some of the less used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> | <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3047	3159	
==>r {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3047	3159	
==>r {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19931	20030	
==>haviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-P <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19931	20030	
==>haviour conform to its preconceptions.

L<Rosetta::Engine::Example> is the self-contained and pure-P <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50294	50439	
==>get('?$authority'));
                  }));
                $e->get('$self:')->get_attr(symbol->new('$:authority'));
            }
        )
    ) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	625	735	
==>0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	625	735	
==>0;
    my ($named, $positional, $named_slurpy) = ({}, []);

    for my $param (@_) {
	my $db_param = Data::Bind <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5113	5262	
==>tent(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5113	5262	
==>tent(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @! <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4101	4230	
==>hildren to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4101	4230	
==>hildren to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $self.chil <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41105	41206	
==>d sample usage and patch
code, that supports embedding of Template modules into the same files as
prog <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41105	41206	
==>d sample usage and patch
code, that supports embedding of Template modules into the same files as
prog <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6413	6532	
==>thod start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6413	6532	
==>thod start ($self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# - <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11977	12077	
==>rn match information.  Match
  information gets inserted in $1 etal.  These will be limited to
  stri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12707	12908	
==>\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12701	12902	
==>\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8326	8441	
==>This event closes a verbatim section.

=item I<start_element ('line_interpolation')>

This event is begun when any b <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8326	8441	
==>This event closes a verbatim section.

=item I<start_element ('line_interpolation')>

This event is begun when any b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8980	9088	
==>ded by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10457	10565	
==>ded by any installed pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23706	23839	
==>{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20127	20260	
==>{next} }, qw< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1140	1266	
==>in(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2014	2140	
==>in(", ", @{$<mod>}) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5649	5780	
==>"alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(94 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5649	5780	
==>"alpha"    => chr(945),
    "beta"     => chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(94 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16506	16598	
==>database functionality;
this language, which satisfies TTM's definition of a "D" language, is <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16506	16598	
==>database functionality;
this language, which satisfies TTM's definition of a "D" language, is <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22794	22892	
==>oose to show less than all of the available details depending on the
intended viewer.

=head2 Compa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22794	22892	
==>oose to show less than all of the available details depending on the
intended viewer.

=head2 Compa <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	54	156	
==>unk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.incl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	54	156	
==>unk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $!filter_function, Bool $.incl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	725	887	
==>sub {
            my ($self, $message) = @_;            
            $message =~ s/^(?!#)/# /;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.er <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	895	1007	
==>rn the list if we have no more no-empty sequences
        return list->new(@res) if not @nonemptyseqs; 
        m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24398	24494	
==>ample class' API, a tuple is represented by a Perl
Mapping where each Mapping key is an attribute <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	1914	2005	
==>sion, Str $event, *@args)>

Calls C<$session>'s C<$event> event handler, passing C<@args> as <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	181	281	
==>onstant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	181	281	
==>onstant values used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_A <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1326	1508	
==>w => ISA_JIB_CONFIG },
        package         => { allow => $Package_re, no_override => 1 },
    };

    ### acc is just for accessors, the others get added for our 
    ### param ch <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	2118	2262	
==>iagnostic',
        '$.description',
    ],
    submethods => { 
        'BUILD' => sub {
            my ($self, %params) = @_;
            _('$. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14647	14746	
==>xcept that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
exam <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14647	14746	
==>xcept that the replacement
entities are always C<&#xI<hexnum>;> and never C<&I<entname>;>.  For
exam <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	884	995	
==>referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	884	995	
==>referer         returns Str is export { %*ENV<HTTP_REFERER>  }
sub document_root   returns Str is export { %*ENV <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8268	8390	
==>[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8268	8390	
==>[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # XXX if $cmd eq '!)'
    }
    if ( $pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	290	403	
==>NSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	290	403	
==>NSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> is an Array ref]
           ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	5193	5317	
==>e inside a grammar:

    rule prototype {
        proto <category>:<name> <options>
        { 
            $<category>.add_op <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3056	3171	
==>tly
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo->add_packages($pkg1, $pkg2, ...)
# 
# Adds a li <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1775	1889	
==>:Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1775	1889	
==>:Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n}\n";

    $code ~= " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	1354	1503	
==>{ return { stmt => '.'} } ));
    for ( qw( 
        for 
        if else elsif unless
        while 
        sub multi method submethod
        my ou <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12930	13057	
==>$v = $f->($at_pos);
      return 1 if not FAILED($v);
    }
    return 0;
  }
}
{
  # (?!) (?<!)
  package Regexp::Parser::unles <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15726	15839	
==>bol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symb <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2123	2236	
==>bol = $node->val;

    # if the symbol is a lexical then it can't be prebound
    eval { $self->find_dyn_sym($symb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	708	817	
==>Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	708	817	
==>Runtime::Match::Ratchet';
  $bool = substr( $s, $pos, 1 ) =~ /\s/s ? 1 : 0;
  print "Match any(): ", do{use Da <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8697	8816	
==>ion( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.el <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8697	8816	
==>ion( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    return @union.el <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2250	2372	
==>ommit_something>
  | <match_var>
  | <psuedo_scalar_literal>
  | <interpolated_array> | <interpolated_hash>
  | <null_term> <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5511	5610	
==>@_) if $cls eq 'Num';
    return get_meta('Rat')->new('$.a' => $_[0], '$.b' => $_[1]) if $cls eq 'Ra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25015	25143	
==>POS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxCUR               { substr ${&Rx} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4435	4538	
==>s.

=head2 &{}

When used as a code reference, the match object returns the I<result>
object; this is no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4435	4538	
==>s.

=head2 &{}

When used as a code reference, the match object returns the I<result>
object; this is no <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1028	1168	
==>at, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_plac <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1028	1168	
==>at, swearing?"
regex variable { <sigil> <nameZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_plac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	346	462	
==>nt $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1204	1320	
==>nt $number is not a number,]
           ~ q[ it is "<GIVEN_VALUE>"],
    'MYLIB_MYINV_RES_INF'
        => q[my_invert <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15669	15782	
==>Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the language interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15669	15782	
==>Codd's original papers, TTM can be seen as an
abstract blueprint for the design of a DBMS and the language interfa <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	785	896	
==>chr =~ /([\[\]\<\>\s\t\$\%_\}\&\#\{\\\^\~])/) {
	if ($chr =~ /\t/) {
	    print "\\ " x 4;
	    return;
	} elsif <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	1183	1277	
==>eta

The JIB::Meta object associated with this package

=head2 $pkg->install( installation => I <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1057	1160	
==>nt)
# type::variable - a placeholder to make a DAG out of a tree (to gain strong typing)
#	::free - an u <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	119	216	
==>ie kontextabhängige Sigil-Wahl in Perl 5 Newcommern oft
Probleme bereitet, wird sie in Perl 6 nur <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23013	23161	
==>max},'
              . '  $Curtest->{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	22231	22325	
==>ised by a zero-width
assertion followed by C<?>, which doesn't warrant the warning.

Added "Unr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37296	37395	
==>_name (a string) and checks whether or not it has already been
loaded, returning true if so and fals <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37296	37395	
==>_name (a string) and checks whether or not it has already been
loaded, returning true if so and fals <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	84	249	
==>Data::Dumper;

use base 'Exporter';
@EXPORT = qw[
            $Cwd            $Pms        $Root       $Meta       $Site
            $Ext            $Tmpdir     $Metac <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10543	10633	
==>ult=>$default };
}

NODE MkPos ($posName, $posBeginLine, $posBeginColumn, $posEndLine, $pos <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1678	1814	
==>onthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $da <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1678	1814	
==>onthLengths !! @MonthLengths;

        $day = @lengths[ $month - 1 ];
    }

    $.year  = $year;
    $.month = $month;
    $.day   = $da <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	55	159	
==>{
        has $argument_class = ::Getopt::Argument::Style;
        has $normalizer_role = ::Getopt::Argum <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5365	5495	
==>he responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5365	5495	
==>he responsibility 
    # of the user of this module
    # to properly dispose of this
    # child (and all its sub-children)
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	213	317	
==>et_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

subme <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	213	317	
==>et_start / set_end

=cut

class Span::Code-0.01
{
    has Recurrence $.recurrence;
    has $.span;

subme <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	860	965	
==>', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, mayb <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	860	965	
==>', (@path, ''))) }

sub catfile (*@_path) returns Str is export {
    # take a copy of our args here, mayb <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1897	2006	
==>d.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = "cdroot";
my $ <==
2	/Users/nnunley/pugs/util/version_h.pl	1245	1344	
==>/^(Copied|Merged) From/, @info) {
        if (my ($source_depot) = $source_line =~ /From: (.*?), Rev <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	284	400	
==>g],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GI <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1142	1258	
==>g],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $number is not a number,]
           ~ q[ it is "<GI <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14211	14316	
==>and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14211	14316	
==>and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} seconds <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1870	2004	
==>uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1870	2004	
==>uc;
        $message ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20343	20440	
==>et data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24895	24992	
==>et data type is.

=head1 INTERFACE

The interface of Relation is entirely object-oriented; you use <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11178	11275	
==>and associated metadata removed");

    return 1;
}

=head2 $alt = $inst->remove_registered_altern <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7937	8047	
==>$pArgs);
    my $argl = join(",",@args);
    my $fun = DOWN($pFun);
    if($fun =~ /^is macrop5 (.+)$/) {
	retu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3797	3904	
==>ek_my($lv);
    my $named_arg = $args->{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8221	8331	
==>ICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<ob <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8221	8331	
==>ICK", -> $event {
      if(normalize($event<from_nick>) eq normalize($curnick)) {
        $.curnick = $event<ob <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12875	13000	
==>N' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12875	13000	
==>N' },
            },
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This me <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2401	2555	
==>sult;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $r <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2401	2555	
==>sult;
    $.Parser = Parser;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10131	10248	
==>onnecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10131	10248	
==>onnecting to $host:$port... ";
      try { $hdl = connect($host, $port) };
      if($hdl) {
        try { $hdl.autoflu <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	601	703	
==>cal chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	601	703	
==>cal chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	169	286	
==>=> 'as_bool',
    '""'   => 'as_string',
    '@{}'  => 'as_array',
    '%{}'  => 'as_hash',
    ;

sub as_bool   {my($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4263	4367	
==>etta::Interface::Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
r <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4263	4367	
==>etta::Interface::Variable ("Variable").

I<Note that the "Rosetta" package serves only as the name-sake
r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1283	1409	
==>@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1283	1409	
==>@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless defined \$_[0];\n" .
        "    my \$match = rule_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10251	10401	
==>'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10251	10401	
==>'into' => 'person' }, [
                    [ 'expression', { 'vf_routine_arg' => 'new_person' } ],
                ] ],
                [ 'statement', <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7853	7968	
==>child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7853	7968	
==>child);
    }
}

method traverse_iter($self: Str $traversal_order?) returns Code {
    return coro {
        $self.t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7809	7909	
==>]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7797	7897	
==>]     my \$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8695	8790	
==>est::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8753	8848	
==>est::num_of_tests_badpass tests of $Test::num_of_tests_run passed unexpectedly");
    }
    $Tes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	672	786	
==>ontent;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	672	786	
==>ontent;
}

multi submethod BUILD (%header, Str $content = "") {
    $!headers = HTTP::Headers.new(*%header);
    $! <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	428	532	
==>($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	428	532	
==>($self: Code $filter_function) { $!filter_function = $filter_function }

# XXX This is non-idiomatic Perl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2594	2731	
==>{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2594	2731	
==>{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    return sub {
        ret <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	106	206	
==>:DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $tri <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	106	206	
==>:DFA::Node.new --> FA::DFA::Node) {
  %.arc{$trigger} = $node;
  $node;
}

multi method next(Str $tri <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5480	5607	
==>n;

    ### build a from => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### move. W <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2151	2268	
==>path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 F <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2151	2268	
==>path = splitdir('/path/to/dir'); 
  
  # ... etc etc etc

= DESCRIPTION

This is a very primative port of the Perl 5 F <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1452	1582	
==>wrap_code_with_package($1,'main');
            my @result = eval($code);
            warn $@ if $@;
	    print "",(map{defined $_ ? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1925	2055	
==>exp1 => \$_[1], exp2 => \$_[3],} }", 
    ternary_non =>       
        "exp 'name' exp 'name2' exp \n" .
        "\t{ \$_[0]->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33010	33118	
==>B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each element is a Temp <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33010	33118	
==>B<Set Names>

Array of Str - This stores an ordered list of one or more elements where
each element is a Temp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18677	18772	
==>) corresponds exactly to the named
parameters of Node.new(); you need to supply its $document an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18677	18772	
==>) corresponds exactly to the named
parameters of Node.new(); you need to supply its $document an <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7213	7458	
==>mat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7213	7458	
==>mat.capture_num[$num];
                            $newnump = [ @$newnump ];
                            $newnump[$num] = $newnum;
                        }
                        if defined $name {
                            my $newname = defi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2937	3076	
==>m,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2948	3087	
==>m,
    ] );

*alt = 
    ruleop::capture( 'alt', 
        ruleop::concat(
            ruleop::capture( 'term', \&quantifier ),
            r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17200	17302	
==>o the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the fol <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17200	17302	
==>o the C<.pmc> is loaded on the
next time.

=head1 BENEFITS

Module::Compile compilers gives you the fol <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	362	502	
==>second,
                   Str|Time::Zone ?$tz )#?
    returns Date::Gregorian is export {
        #$tz = tz($tz) if $tz.defined and !$tz.isa <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4974	5085	
==>e => $_,
        smokes  => $runcores{$runcore}{$_},
      }} sort { lc $a cmp lc $b } keys %{ $runcores{$runcor <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6890	7003	
==>was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6890	7003	
==>was kicked. Update %channels and %users accordingly.
  %handler<KICK> = [-> $event {
    my ($kickee, $reason) = s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7381	7501	
==>l::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7381	7501	
==>l::Node $tbd_person = $irl_doc.build_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18606	18726	
==>($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19964	20084	
==>($tree->[-1]->{ifthen}) {
      my $ifthen = $tree->[-1];
      my $br = $rx->object(branch =>);
      my $cond;

      i <==
2	/Users/nnunley/pugs/util/addauthors.pl	977	1085	
==>last name.
    my ($initial, $last) = $c =~ m/^(.)(.*)/;
    $re = qr/^$initial.*$last/i;
    foreach my $a ( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6568	6670	
==>$@\n") if $@;
	return $ret;
    }
    if($cls =~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16106	16234	
==>ymbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefined global it's an error. If it exists, it can be redu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	1126	1252	
==>,
			type => type("IV -> IV -> IV"),
			fixity => "infix",
		},
	)
);

sub find {
    my $class = shift;
    my $digest = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5658	5789	
==>>{param} );
        }

        return " " . $n->{sub}{bareword} . " '', " . _emit( $n->{param} ) 
            if $n->{sub}{barew <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14556	14664	
==>class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8758	8866	
==>class
  $self->add_handler('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14360	14456	
==>ttributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CD <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14360	14456	
==>ttributes, and is arranged in a hierarchy with
other Nodes (it does not support any analogy of CD <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6218	6330	
==>:Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_ty <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6218	6330	
==>:Message.parse($self.content);
    }
    
    @!parts //= ();
}

my method content ($self: ) {
    my $content_ty <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	51	159	
==>y;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submetho <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	51	159	
==>y;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submetho <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12285	12391	
==>d $self->{_old5lib}) {
        $ENV{PERL5LIB} = $self->{_old5lib};
    }
}

=head1 Parsing

Methods for ide <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	751	856	
==>}
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    me <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	751	856	
==>}
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14581	14685	
==>r('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8783	8887	
==>r('POSIX_print' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => print = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5649	5749	
==>return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5649	5749	
==>return $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    r <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5749	5884	
==>1";
    goto token_match;
    bsr_token_match2_1:
    goto found_oper if $operator;          
  }

  expect_oper_empty:
  goto end unles <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15455	15553	
==>turns the definition of success (e.g. the
# expected scalar) if given no arguments.
#

sub _fresh_p <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	56	161	
==>traight out of S29.  I think most of these
# actually belong on "Map"

 multi sub grep (Any|Junction $test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1812	1952	
==>_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1812	1952	
==>_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}->{match};        
    }
    #pr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	424	522	
==>. $root/jibs if not specified.

=item pool_rel

The path to the pool directory that will be put int <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5921	6054	
==>ilter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5921	6054	
==>ilter::Util::Call::filter_read();
            last unless $status;
            return $status if $status < 0;
            # Skip lines <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8083	8198	
==>eld is still true)

  match_word( 'abc123' );



A ruleop function returns:



    # spec says it returns normal dat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7812	7922	
==>eld is still true)
  match_word( 'abc123' );

A ruleop function returns:

    # spec says it returns normal dat <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2789	2900	
==>r::WriteMakefile(%args);

    $self->fix_up_makefile();
}

sub fix_up_makefile {
    my $self = shift;
    my $t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5139	5259	
==>er $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5139	5259	
==>er $match->();
    ok( 
        postfix( $match->() ) eq 
        '3 @a $b postcircumfix:<{}> $c postcircumfix:<[]> infix <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22990	23241	
==>op::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23269	23520	
==>op::constant( "infix" )
                 ,
                   ruleop::constant( "prefix" )
                 ,
                   ruleop::constant( "postfix" )
                 ,
             ] )
           ,
         )
       ,
         ruleop::constan <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4059	4163	
==>pended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 S <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4059	4163	
==>pended to it, 
or you can pass in a filehandle C<$fh> which the POD will be printed too.

=back

=head1 S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9623	9723	
==>, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9681	9781	
==>, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

T <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	559	708	
==>et;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if define <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	559	708	
==>et;
    }

    method inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if define <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	961	1066	
==>les 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	961	1066	
==>les 
# From A06

regex sigil { <[$@%&]> <[*.?^]>? }   # "What is that, swearing?"
regex variable { <sigil> <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4343	4482	
==>rt ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start < <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4343	4482	
==>rt ) {
    if $.span.is_empty 
    {
        $.span = $self.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start < <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3300	3415	
==>regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3300	3415	
==>regex lexscope { my | our }

regex submodifer { multi }

rule psignature { \( <signature> \) }

rule psiglet { \( <s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3969	4050	
==>ded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3969	4050	
==>ded ~~ s:perl5:g:i/%(F[CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7992	8096	
==>s.

The problem this class solves is when you need do perform "set" operations on 
Span objects, that ret <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7992	8096	
==>s.

The problem this class solves is when you need do perform "set" operations on 
Span objects, that ret <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	5400	5548	
==>Role',
    '$:superclass' => $Object,
    '%:methods' => {
        'resolve' => $_resolve,
        'add_method' => sub ($$$) {
            my ($self, <==
2	/Users/nnunley/pugs/util/addauthors.pl	431	530	
==>ters{$b} <=> $comitters{$a}} keys %comitters) {
  print "$c: $comitters{$c}\n";
  my $author;
  my $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14172	14288	
==>t => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14172	14288	
==>t => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It would not make sense to iterate through a continuous <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1043	1141	
==>line() doesn't work so good on 5.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2224	2333	
==>ield ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Arra <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2224	2333	
==>ield ~~ /^\:/ and $TRANSLATE_UNDERSCORE;
    my $v = %!headers.delete($field.lc);
    push @values, $v ~~ Arra <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1006	1102	
==>(and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1006	1102	
==>(and hogged CPU, btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	501	616	
==>pare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Construc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	501	616	
==>pare
    * as_list
    * contains( $set )
    * set_start / set_end
    * remove "difference()" method ?

  Construc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16582	16690	
==>t gives your application the maximum amount of control as
to what the user sees; it never outputs anything by <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16582	16690	
==>t gives your application the maximum amount of control as
to what the user sees; it never outputs anything by <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8680	8793	
==>xample {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	19122	19235	
==>xample {
    return Relation::Example.new(
        heading => $!heading,
        body => set( $!body.values.grep:{ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8830	8956	
==>969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8830	8956	
==>969),
    "lfloor"   => chr(8970),
    "rfloor"   => chr(8971),
    "lang"     => chr(9001),
    "rang"     => chr(9002),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11405	11501	
==>is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11463	11559	
==>is suggested you don't try anything
too funky.

- `cmp_ok (Str $got, Code &compare_func, Str $exp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13957	14058	
==>er field is multi-valued, then the
routine is called once for each value.  The field name passed to th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13957	14058	
==>er field is multi-valued, then the
routine is called once for each value.  The field name passed to th <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9565	9664	
==>'100**100**100/100**100**100');
    my $v = $unpack{$value->bstr};
    return "p6_Num($v)";
}
NODE V <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18522	18623	
==>IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHOD <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18522	18623	
==>IRC> is an IRC library for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHOD <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4988	5101	
==>AKEFILE  "$preamble$makefile$postamble" or die $!;
    close MAKEFILE  or die $!;

    1;
}

sub preamble {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10821	10957	
==>onstant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - tempo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10971	11107	
==>onstant( '" . $value . "' )\n";
}
sub node::closure {
    my $code = match::str( $_[0] ); 
    
    # XXX XXX XXX - source-filter - tempo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20211	20329	
==>$r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $ol <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16632	16750	
==>$r_on, $r_off);
    }

    &RxPOS++;
    my $l = length($on.$off) + 2;
    $S->error(RPe_NOTREC, $l, substr(${&Rx}, $ol <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2638	2789	
==>keys %$acc;
        $obj->mk_accessors( \%acc );
        
        ### set the config
        $obj->config( JIB::Config->new );
        
        ### call <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3661	3752	
==>intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurren <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3661	3752	
==>intersection( $span2 );
    my $inter_recurr = $set1.recurrence.intersection( $set2.recurren <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1328	1448	
==>we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1328	1448	
==>we joined?
  my $servername;          # What is the IRC servername?
  my $last_traffic;        # Timestamp of last traffi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26886	26985	
==>te if the corresponding argument is
provided (it defaults to empty if the argument is not provided). <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26886	26985	
==>te if the corresponding argument is
provided (it defaults to empty if the argument is not provided). <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5960	6089	
==>t_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify t <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5960	6089	
==>t_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($self: ) {
        # TODO - simplify t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	689	797	
==>atch->{capture});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	689	797	
==>atch->{capture});

# Write down
my $output_file = IO::File->new($output_filename,'>') ||
    die 'Could not o <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3725	4077	
==><P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3725	4077	
==><P>"); 
                }          
                when 'verbatim' {
                    $fh.print("<PRE>\n") 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            gi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	1881	2023	
==>is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	1881	2023	
==>is_open => Bool::True,
                     end_is_open =>   ! $.start_is_open );
    }
    if ($.start == -Inf) {
        return $self.new( st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	859	962	
==>he character level, so different 
character encodings may be enciphered in different ways.

=head2 Using <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	859	962	
==>he character level, so different 
character encodings may be enciphered in different ways.

=head2 Using <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22128	22341	
==>,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22407	22620	
==>,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $match = <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6506	6633	
==>n !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $resu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6506	6633	
==>n !! $self;
    my $span1 = $param;
    # say "normalize ", $span0, $span1;
    if $span1.isa( 'Recurrence' ) {
        my $resu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9343	9466	
==>pires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9343	9466	
==>pires = str2time(%hash.delete('expires'));
                
                my $path_spec = %hash.exists('path_spec'); %hash <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4729	4825	
==>t1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @inters <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4729	4825	
==>t1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurrence, span => $_ ) };
    @inters <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	4682	4796	
==>= ::create_class(
    '$:name'       => 'EigenClass',
    '$:superclass' => $Class,
);

# The 'Object' class
my $Ob <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4792	4920	
==>anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbal <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4792	4920	
==>anything on the stack
                # then we are not balanced, and should die
                (+@modifier_stack) || die "Unbal <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2710	2840	
==>print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2927	3057	
==>print "* loading Prelude: $prelude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        m <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2535	2641	
==>return JSX::false if $attr && $attr.ReadOnly;
    delete $O.property_value{$P};
    delete $O.property_attr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1521	1634	
==>{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $ma <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1521	1634	
==>{\\}{\\\\}g; 
    $full_pugs =~ s{'}{\\'}g;
    $full_blib =~ s{\\}{\\\\}g; 
    $full_blib =~ s{'}{\\'}g;
    $ma <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3769	3877	
==>osition( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lt {
  my ( $matchObj ) = @_
  my ($matchObj, <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	335	433	
==>YNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provid <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	335	433	
==>YNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provid <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23888	24018	
==>ast if $__flag eq "last";
          next if $__flag eq "next";
          redo if $__flag eq "redo";
          die "p6_loop_CODE: bu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16337	16434	
==>dia type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16337	16434	
==>dia type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned wi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1315	1410	
==>D (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1315	1410	
==>D (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $ms <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1485	1616	
==>.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstr <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1485	1616	
==>.cstart;
    has Code $.cend;
    has Code $.celems;
    has Code $.cis_infinite;
    has Code $.cis_contiguous;
    has Code $.cstr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	67	157	
==>is file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	67	157	
==>is file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0 <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	582	681	
==>ding;

    # External packages used by the Relation::Example::Heading class, that do export symbols: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9695	9787	
==>t_iFoo_singleton_method',
  '... got the right return value from another $iFoo singleton meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	233	333	
==>O_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inve <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1091	1191	
==>O_ARG' => q[my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_inve <==
2	/Users/nnunley/pugs/util/combine_tests.pl	602	717	
==>mber of the older versions.
#
sub combine_tests{
    #
    # Collect all the test results indexed on filename/number <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10233	10347	
==>0] =~ /->/;
    return "$_[1] sub{ $name(\@_) }\n";
}
sub node::negated_subrule {
    my $name = $_[0];
    $name = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3420	3526	
==>es used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of ev <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3420	3526	
==>es used by the Rosetta::Model::Node class, that do export symbols:
    # (None Yet)

    # Attributes of ev <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1339	1441	
==>r 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or mor <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1339	1441	
==>r 
more strings, followed by zero or more tags.  The strings are printed to 
C<$ERR> only if one or mor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14739	14853	
==>SCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it easy to create and use rel <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14739	14853	
==>SCRIPTION

The "Rosetta" DBMS framework is a powerful but elegant system, which makes
it easy to create and use rel <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2011	2151	
==>$str =~ s/^ AND //;
    
    return $str;
}    

sub list_missing_dependencies {
    my $self = shift;
    my %hash = @_;
    
    my($repo_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9629	9759	
==>eop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2924	3022	
==>tor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} = <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2924	3022	
==>tor,*@fields) {
    my $code = "\n  sub new(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16284	16412	
==>a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16284	16412	
==>a C<v6.pm> compiler with:

    package v6;
    use Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7347	7460	
==>"Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- ` <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7347	7460	
==>"Lazy" lists.

= METHODS

- `splice( ... )`

...

- `push( @list )`

@list may contain "Lazy" lists.

- `pop`

- ` <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3153	3276	
==>re aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3337	3460	
==>re aliasing
 $<> $/<>           -- special variables can't be used inside a match yet
 $/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	3475	3587	
==>t, $from, 1) =~ /[:alnum:]/ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20595	20692	
==>E0) :- !.
rm(eol,         [10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx],[ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2587	2677	
==>$self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Arra <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2587	2677	
==>$self: Int $index) returns Tree { @!children[$index] }
method get_all_children returns Arra <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4997	5125	
==>we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4997	5125	
==>we are within the specified number of times.  
            if $minimal {
                &continue($match.clone(backtrack => -> { <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1028	1122	
==>rser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two paramet <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1028	1122	
==>rser> is simply an object wrapper around a closure.  The closure,
C<$.parse>, takes two paramet <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4578	4672	
==>FETCH('::Test')->STORE('::TODO' => class 'TestBuilder::Test::TODO' => {
    is   => [ $::Object <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23085	23173	
==>r> <'('> <FormalParameterList>? <')'. <'{'> <FunctionBody> <'}'>
}
rule FunctionExpressio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1017	1218	
==>f @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1017	1218	
==>f @current;
                @current = ();
            } elsif ($value ~~ s:P5/^\s*;// || $value ~~ s:P5/^\s+//) {
                # continue
            } else {
                die "This should not ha <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1225	1345	
==>aram ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1225	1345	
==>aram ) {    
    my @spans;
    for ( *%param<objects>, *%param<spans>, *%param<recurrence> ) -> $span
    {
        # TO <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2647	2750	
==>ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
p <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2647	2750	
==>ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = assert_ghc();

    $postamble = <<_;
p <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17625	17728	
==>themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17625	17728	
==>themselves.

=item *

Easier debugging of compiled/filtered code. The C<.pmc> has the real
code you want <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20810	20907	
==>S X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as we <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20810	20907	
==>S X (and the previous non-Unix Mac OS) handles
lots of other program resources as data files as we <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1123	1242	
==>}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can b <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1123	1242	
==>}

# what will be used for stringify?
method prefix:<~> ($self) returns Str {
    ./stringify
}

# removed - spans can b <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5158	5263	
==>evision {
    my($self) = @_;
    my $rev_get_cmd = $Config{"pugs-path"}.' -V:pugs_revision';
    do { $se <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12427	12523	
==>ve quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12427	12523	
==>ve quite like the old 
L<HTML::Entities|HTML::Entities>.  Until we have it stabilized, these
docs <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18707	18812	
==>:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C<pac <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18707	18812	
==>:

    PREAMBLE - Lines before the first C<package> statement.
    PACKAGES - Lines beginning with a C<pac <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3044	3160	
==>more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3044	3160	
==>more than (" ~ $self.child_count() ~ ")";
    (@trees) 
        || die "Insufficient Arguments : no tree(s) to insert <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30429	30528	
==>eing an an exclusive alternative for the rest
of the set. There is a separate template module for ea <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30429	30528	
==>eing an an exclusive alternative for the rest
of the set. There is a separate template module for ea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4685	4793	
==>lso loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4685	4793	
==>lso loads Rosetta::Model and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Ro <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5126	5272	
==>refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5126	5272	
==>refs';
#     #     if (${"\cTAINT"}) { # Check for taint mode on perl >= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	747	901	
==>an instance of hash";        
    bless [ 
        ($OBJECT_ID = $OBJECT_ID->increment), 
        $klass, 
        $attrs 
    ] => $class;
}

# we dont re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11336	11494	
==>undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11336	11494	
==>undef, [
                [ 'select_stmt', { 'into' => 'result' }, [
                    [ 'query', undef, [
                        [ 'interface_row', undef, [ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6145	6293	
==>2),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6145	6293	
==>2),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi"      => chr(967),
    " <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3130	3234	
==>ctories the resulting relative path
    # must ascend out of before it can descend to $path_directory.  S <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3130	3234	
==>ctories the resulting relative path
    # must ascend out of before it can descend to $path_directory.  S <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10194	10292	
==>= '.' goto quant_closure_end
    $I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13315	13416	
==>>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers only.

=item $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13315	13416	
==>>.

The return value is a new C<HTTP::Headers> object that contains the
removed headers only.

=item $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8755	8853	
==>n $S->force_object(anyof_char => chr(oct $1), "\\0$1") if $cc;
      return $S->object(exact => chr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9254	9374	
==>t` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9254	9374	
==>t` or `end` values belong to the 
set ("closed") or not ("open").

- `size()`

Return the "size" of the set.

For example <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8412	8531	
==>r HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted fr <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8412	8531	
==>r HTML 3.2
    #if ($self.DTD_PUBLIC_IDENTIFIER ~~ rx:P5/[^X]HTML 3\.2/i) {
        # $quot; was accidentally omitted fr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1444	1726	
==>') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%ev <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1444	1726	
==>') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
        },
        string => -> ($str) { $buffer ~= $str }
    );
    return \%ev <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8351	8451	
==>vent<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and updat <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8351	8451	
==>vent<from_nick>);
  }];

  # Somebody changed his/her nick. Rename his/her entry in %users, and updat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1525	1648	
==>y ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1525	1648	
==>y ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE>,]
           ~ q[ but rather contains '<VAL> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16857	16951	
==>id in
portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internall <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16857	16951	
==>id in
portability.

Practically speaking, Locale::KeyedText doesn't actually do a lot
internall <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4219	4348	
==>$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4219	4348	
==>$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we currently think are on the
        # channel <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1252	1357	
==>ial scan (populates maxpar)
  # because tree is undef, nothing gets built
  &RxPOS = 0;
  eval { $self->pa <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19449	19554	
==>bj);
}
multi as (List $obj; $fmt, $comma) is builtin is primitive is safe {
    join($comma, map -> $v { s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5546	5678	
==>ad in the alternatives collection
        my @alts = @{ $self->registered_alternatives };
        
        ### check if we're the 'pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2663	2756	
==>ementations

The Pugs/Haskell Perl 6 is currently the most complete implementation. 
Pugs curr <==
2	/Users/nnunley/pugs/util/drift.pl	1115	1271	
==>ING --

This is an autogenerated file from $in.

Do not edit this file.

All changes made here will be lost!

-- WARNING WARNING WARNING --
-}

#ifndef HADDO <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1417	1514	
==>t complex'~$n~' of ValueType where { $^n ~~ Num and ...XXXfill in... };'
}
Clutter::num_size 32;
C <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1290	1391	
==>s C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1290	1391	
==>s C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed for your fi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20427	20534	
==>he
'_' to '-' translation.  There are some application where this is not
appropriate.  Prefixing field names <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20427	20534	
==>he
'_' to '-' translation.  There are some application where this is not
appropriate.  Prefixing field names <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1065	1228	
==>elf->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1205	1368	
==>elf->{sigspace} = delete $param->{sigspace} ||
                        delete $param->{s}        || 
                        0;

    warn "Error in rule: unknown pa <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3298	3404	
==>onstructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3298	3404	
==>onstructor'}";
    $code ~= "\mmulti method does(String \$s: Perl::Compiler::PIL::Node::XO::Base) \{ \$s eq <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3875	4011	
==>e::Find::name;
        return unless $file =~ m!^\Q$path\E/(.+)\.pm\Z!is;
        return if $1 eq $self->{dispatch};

        $file = "$s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	377	543	
==>k



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	366	521	
==>k

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35510	35613	
==><cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-metho <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40060	40163	
==><cross_product>, C<cross_join>.

=item C<product (Relation *@others) returns Relation>

This multi-metho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28593	28709	
==>> node, and a
character class's ender is an C<anyof_close> node.

=item my $c = $obj->family()

The general family of <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11556	11674	
==>= @_;
    my $family =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any';
    return $S->object(reg_any => $family, '.' <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1643	1741	
==>l 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you w <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1643	1741	
==>l 6 code. In
F<examples/cookbook/> you can find the Perl 6 version of the Perl 5 cookbook.
If you w <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	217	322	
==>sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is expo <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	217	322	
==>sub remote_ident    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is expo <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15281	15390	
==>le {
  my($c,$name,$args)=@_;
  my $noop = Hacks->noop;

  my $ru = $rules{$name};
  if(!defined $ru) {
    wa <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1326	1427	
==>ub lcfirst (Str $str) returns Str is builtin is primitive {
    lc(substr $str, 0, 1) ~ substr $str, 1 <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	844	1069	
==>/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	844	1069	
==>/ ) { }
                else {
                    # Handle section headers
                    if ($line ~~ rx:perl5/^\s*\[(.+?)\]\s*$/) {
                        $sect = $0;
                    }
                    # Handle <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3997	4100	
==>ing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given values <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3997	4100	
==>ing.

- `new( year => $year, month => $month, day => $day )`

Returns a date object for the given values <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1294	1392	
==>ath.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not ye <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1294	1392	
==>ath.

= LIMITATIONS & CAVEATS

Currently this will only work during runtime since Pugs 
does not ye <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2827	2953	
==>e
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersectio <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2827	2953	
==>e
    my @res;
    my @a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersectio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	8873	8970	
==>g>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
m <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	8873	8970	
==>g>

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec::Win32 module which is currently
m <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	713	823	
==>ely.  Assume the existence of what would
  be useful, and we'll do it later.

=cut
###*** Value types - numeric <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3273	3411	
==>iles to $PATH/$MANPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my_bindir = "$Site/$path/bin" <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15352	15477	
==>nt $when) * 10**12;
    # XXX: waiting on a better want
    #if want ~~ rx:P5/^Item/ {
    #    $res = Pugs::Internals::localt <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16791	16957	
==>et<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16791	16957	
==>et<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	432	544	
==>$source = "";
    my $deep = 1;
  PARENMATCH:
    while ($tail =~ m/([^\{\}]*)([\{\}])(.+)$/gs) {
        $source <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	251	362	
==>ary

use warnings;
use strict;

use Cwd;
use File::Find;
use File::Spec::Functions ':ALL';
use File::Path;
use F <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3981	4103	
==>at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3981	4103	
==>at ($self: Int $index) returns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no chil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19247	19356	
==>ng with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19247	19356	
==>ng with C<^=\w+> and ending with C<=cut>.
    PLAIN - Lines not in SUBROUTINE, BAREBLOCK or POD.
    PREFACE - <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7604	7757	
==>d not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7616	7769	
==>d not happen, but it does
        return '';
    }
    if ( ref( $n ) eq 'ARRAY' ) {
        my @s;
        for ( @$n ) {
            #print "emitting arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	13973	14086	
==>"# @_\n";
    exit 1;
}

# A somewhat safer version of the sometimes wrong $^X.
my $Perl;
sub which_perl {
    unl <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29434	29534	
==>8
 #define FBMcf_TAIL              (FBMcf_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4672	4792	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 0)) if $cc;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5398	5518	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 0)) if $cc;
    retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	226	314	
==>e;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	226	314	
==>e;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;
use Pugs::Emitter::Rule::Per <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	692	802	
==>nut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	692	802	
==>nut!],
);

module MyApp::L::Homer {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1962	2070	
==>⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1962	2070	
==>⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi sub *infix:«⊅» (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5376	5513	
==>tail => $_[0],

               }

    }

};



sub ruleop::capture {

    # sets the 'capture' flag and return a labeled capture

    # XX <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5207	5337	
==>tail => $_[0],
               }
    }
};

sub ruleop::capture {
    # sets the 'capture' flag and return a labeled capture
    # XX <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4853	4955	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5197	5299	
==>=> sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(space => 1) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5961	6064	
==>ns.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5961	6064	
==>ns.insert(normalize $event<object>);
      debug "Joined channel \"$event<object>\".";
    }

    %chann <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	654	755	
==>per::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	654	755	
==>per::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumpe <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3052	3153	
==>t in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to loa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5254	5355	
==>t in the '$self->{prefix}' path!
Please remove the '$self->{prefix}' directory and run $0 again to loa <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3590	3712	
==>ugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    ret <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3590	3712	
==>ugs_core";
    return ($ghc, $ghc_version, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15282	15382	
==>ollowing methods are available for Span objects:

- `start()` / `end()`

Return the start or end valu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15282	15382	
==>ollowing methods are available for Span objects:

- `start()` / `end()`

Return the start or end valu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4692	4789	
==>ference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.rec <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4692	4789	
==>ference( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.rec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23904	24027	
==>$n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_ato <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20325	20448	
==>$n = $1;
      $S->error(RPe_SWNREC) if ${&Rx} !~ m{ \G \) }xgc;
      push @{ $S->{next} }, qw< ifthen|2 ifthen| ifthen_ato <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2776	2868	
==>mpiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please sub <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2776	2868	
==>mpiler> or GMane at
L<http://news.gmane.org/gmane.comp.lang.perl.perl6.compiler>.

Please sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10815	10975	
==>rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10815	10975	
==>rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec, $secur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25365	25467	
==>that disables the test if it usually matches.]
 *
 * [In fact, we now use regmust in many cases to loca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2849	3003	
==>elf: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infinite list"
        #     if <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2849	3003	
==>elf: ) { 
        my $ret = $array;

        # TODO - add tests for this error message
        # fail "can't instantiate an infinite list"
        #     if <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6158	6267	
==>pcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStack <= 0 )
  {
    goto end if $tokenCat == PGE_OPTABLE_CLOSE;
    go <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2514	2618	
==>);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2572	2676	
==>);
    }
}

## eval_is

sub eval_is (Str $code, Str $expected, Str $desc?, :$todo, :$depends) returns Boo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13720	13814	
==>mber of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13720	13814	
==>mber of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine to e <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27242	27389	
==>)}@$A];
    my $from = $len-$npos;
    my $to = $from + length($str);
    MatchX->new()->set(1,$str,$cap,{},$from,$to);
}
sub rx {
    my($re,$mods) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3398	3508	
==>$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3398	3508	
==>$F: \$!"; binmode(F, ':crlf'); if (unpack('%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2663	2851	
==>nt->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::o <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2868	3056	
==>nt->superclass) {
                push @cpl => $super;
                $current = $super;
            }
            return @cpl;
        },
        'superclass' => sub ($) {
            ::o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5912	6018	
==>_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FET <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5912	6018	
==>_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return Proxy.new(
    FET <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1953	2049	
==>ny tags, it will intuit one by extracting the 
last component of the calling function's package n <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1953	2049	
==>ny tags, it will intuit one by extracting the 
last component of the calling function's package n <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3101	3218	
==>ve the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3565	3682	
==>ve the AND to the subroutine
        if( $print and @deps ) {
            print "Translating (dependency for $meta->{p <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	268	376	
==>Time::Seconds;

local $_;
my $num_commits;
my @commits;
my @developers;
my %devs_seen;

print STDERR <<INFO u <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7878	7978	
==>lass;
}
{
  package Regexp::Parser::anyof_close;
}
{
  package Regexp::Parser::prop;
}
{
  package Re <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	96	188	
==>s $!headers handles «
    header push_header init_header remove_header remove_content_header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	96	188	
==>s $!headers handles «
    header push_header init_header remove_header remove_content_header <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6825	6929	
==>isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( ' <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6825	6929	
==>isa( 'Span' );
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( ' <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	4058	4159	
==>First its children will be reduced -
Sym('&infix:<+>') will resolve '&infix:<+>' into the thunk that d <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10719	10807	
==>$Bar->singleton_test_on_object(), 
  '&Object::singleton_test_on_object',
  '... still go <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Runtime/RuleCompiler.pm	391	493	
==>piler->compiled(sub {
       	my $grammar = shift;
	my $tree;
	print Dumper($rule->($grammar)->( $_[0], <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	184	280	
==>use base 'Object::Accessor';

=head1 ACCESSORS

=head1 METHODS

=head2 $alt = JIB::Alternative->n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3494	3610	
==>332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3494	3610	
==>332", -> $event {
      my ($chan, $topic) = split " ", $event<rest>;
      $topic = strip_colon($topic);

      %!ch <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2332	2455	
==>True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

me <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2332	2455	
==>True;
    }

    return Bool::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

me <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1	109	
==>se strict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	1	109	
==>se strict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13069	13170	
==>the header fields used to describe the content of
a message.  All header field names prefixed with C<C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13069	13170	
==>the header fields used to describe the content of
a message.  All header field names prefixed with C<C <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2422	2563	
==>return $cache{$dir} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX tidy up
        {   $obj->mk_accessor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1218	1350	
==>t(exact => "\f", '\f');
  });

  $self->add_handler('\n' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\ <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5646	5763	
==>win" ) ? '/' : '\\';

        my $ghc_root = "$ENV{SYSTEMDRIVE}${slash}ghc";

        warn "*** ghc not found in path. <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3448	3565	
==>= get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.ta <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3448	3565	
==>= get_next_mail()) {
      until($rl1<conform>(1) and $rl2<conform>(1)) {
        busy_wait();
      }

      $mail.ta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1772	1907	
==>= $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1772	1907	
==>= $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www-form-urlencoded') {
                m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1712	1815	
==>sional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1712	1815	
==>sional Lazy Array
* new class 'Lazy::List'
* lazy List / Array of junctions is tested
* removed 'Iter' c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8961	9074	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9154	9267	
==>ch = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { runtime_alternation = <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15948	16052	
==>on);

Checks if the line is a "Bail out!".  Places the reason for bailing
(if any) in $reason.

=cut

sub <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9297	9405	
==>r!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semid <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12774	12882	
==>r!) returns Relation {
    return $?SELF.difference( $?SELF.semijoin( $other ) );
}

&semiminus    ::= &semid <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	786	898	
==>ncatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	786	898	
==>ncatenating

sub catdir (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_pat <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	89	190	
==>rict;
use warnings;

use String::Escape qw/quote printable/;
use Scalar::Util qw/blessed/;

use Blondi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	160	585	
==>724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	160	585	
==>724.0);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

package Rosetta-0.724.0 {
    # Note: This given <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	223	363	
==>callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't insta <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	223	363	
==>callback = sub ($class) {
        my $obj = $class;
        try {
            $obj = $class.new();
            CATCH { warn qq/Couldn't insta <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3009	3112	
==>method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NA <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3009	3112	
==>method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
}

=kwid

= NA <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1022	1115	
==>rns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<serv <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1022	1115	
==>rns Str>

=item B<server_software returns Str>

=item B<server_port returns Int>

=item B<serv <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4008	4116	
==>($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4008	4116	
==>($self: Str $newline = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12353	12453	
==>this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HT <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12353	12453	
==>this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like the old 
L<HT <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14732	14876	
==>stant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15011	15155	
==>stant( "cut" )
       ,
       )
;
    push @statements, \&pod;
*{'use_v6'} = 
       ruleop::concat(
         ruleop::constant( "use" )
       , <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4188	4362	
==>imes resets $!
        $pass = eval "\$got $type \$expected";
    }
    unless ($pass) {
        # It seems Irix long doubles can have 2147483648 and 2147483648
        # that <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4210	4340	
==>urceCharacter but not ...
}
rule SingleLineComment {  # see 7.4
      <'//'> <SingleLineCommentChars>?
}
rule SingleLineCommentChar <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4886	5022	
==>),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4886	5022	
==>),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "Beta"     => chr( <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2251	2390	
==>s, $currfile ) if $currfile =~ $Config{include_re};
            }
        }
    } else {
        warn "$start: $!\n";
    }

    return @hit <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9252	9354	
==>tem(Item1), p5_charset_items_opt(MoreItems).
p5_charset_items_opt([])                --> {true}.
p5_cha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	963	1094	
==>um.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { sa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	971	1097	
==>um.isa("Num")    { say "ok 2" } else { say "not ok 2" }
}

#~ {
    #~ my $string = "Pugs";
    #~ if $string.ref eq "Str" { sa <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2294	2392	
==>acktracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mea <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2294	2392	
==>acktracked over, it skips to the
C<mark> (see above) named C<$name>.  It's not clear what these mea <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	880	994	
==>+ 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	880	994	
==>+ 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $se <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	6442	6547	
==>urns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.dif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	6442	6547	
==>urns Set {
    $one.union(set(@args));
}
#method *infix:<-> (Set $one, *@args) returns Set {
    #$one.dif <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2350	2463	
==>nted, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always ap <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2350	2463	
==>nted, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patches are always ap <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4555	4695	
==>,
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4555	4695	
==>,
    "ordm"     => 'º',
    "raquo"    => '»',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => ' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17277	17390	
==>ion and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17277	17390	
==>ion and
in which the Rosetta D code runs (it is analagous to the Perl interpreter
itself, which provides a virtual <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7854	7984	
==>"notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7854	7984	
==>"notin"    => chr(8713),
    "ni"       => chr(8715),
    "prod"     => chr(8719),
    "sum"      => chr(8721),
    "minus"    => c <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9461	9645	
==>p);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10452	10636	
==>p);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub{
        if($i >= $max) {
          TAILCALL(&$c,$noop);
        }
        $i++;
        my $ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19855	19969	
==>:- flag_x(E0), !. XXX - so how???
rm(ws(C),       [C|F1],F1,B0,[C|B0],E0,E0) :- !.
rm(char(C),     [C|F1],F1,B0,[C| <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9918	10016	
==>ta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9918	10016	
==>ta::Model::Node $prd_add_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1485	1602	
==>ASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1485	1602	
==>ASS>.<METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but one of its elements is not a <EXP_TYPE <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1262	1365	
==>ues) returns List
 multi sub sort(Criterion $by ; *@values) returns List
 &sort<> := &sort<Criterion>.as <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20561	20663	
==>all the compilers have finished, the digest lines will
be expanded again.

Every bit of the default pro <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20561	20663	
==>all the compilers have finished, the digest lines will
be expanded again.

Every bit of the default pro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11793	11889	
==>wever the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Un <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11851	11947	
==>wever the `&infix:<gt>` is currently not implemented, so you will have to wait
a little while. Un <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	307	416	
==>@{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	307	416	
==>@{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5524	5634	
==>= (print|say|warn|die) <p6ws> <list> <p6ws>? \;
        { return { _print => $() ,} }
RULE
*{'_my'} = Pugs::Com <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4566	4668	
==>=pod

sub *WALKCLASS (block &dispatcher) returns opaque {
    &dispatcher.()
}

(closure *WALKCLASS ((b <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2974	3083	
==>his into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2974	3083	
==>his into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $buffer !~ rx:perl5{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1467	1567	
==>d values for them.

It includes the parameters as well as anything declared within

that scope.



th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1406	1502	
==>d values for them.
It includes the parameters as well as anything declared within
that scope.

th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4729	4897	
==>g start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4729	4897	
==>g start equal to end yields an empty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	478	595	
==>n map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	478	595	
==>n map {xmlify($x,$_) } @{$val};
	} else {
		return $val;
	}
}
sub xml {
	my $x = new XML::Generator(":pretty");
	retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22707	22799	
==>ad2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rose <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22707	22799	
==>ad2 The Rosetta::Interface::Command Class

I<This documentation is pending.>

=head2 The Rose <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31040	31140	
==>eir use, the full name of a module
consists of the two parts concatenated without any delimiter.  Thi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31040	31140	
==>eir use, the full name of a module
consists of the two parts concatenated without any delimiter.  Thi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11090	11185	
==>(Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `un <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11148	11243	
==>(Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- `un <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6026	6141	
==>);
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Po <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6026	6141	
==>);
    return \%events;
}

=pod

=head1 NAME

Pod::Event::Handler::HTML - A collection of HTML event handlers for Po <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	758	867	
==>upport enciphering individual bits.  Also note that the 
Cipher API operates at the byte level, not the charac <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	758	867	
==>upport enciphering individual bits.  Also note that the 
Cipher API operates at the byte level, not the charac <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	552	653	
==>.
-}
EOF
print OUT "$data :: String\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8341	8452	
==>leop::greedy_plus( $node ) );

}



sub ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8052	8158	
==>leop::greedy_plus( $node ) );
}

sub ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternati <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1225	1342	
==>capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1225	1342	
==>capture_name //= {};
        $.multidex //= [];
    }
}

our role Parser {
    method compile() {...}
}

our role Rule <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	124	227	
==>y_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that ha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	124	227	
==>y_to_char %char_to_entity encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24319	24431	
==>fthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20740	20852	
==>fthen_atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	2200	2303	
==>:Parser::alnum;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx, $neg) = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29132	29228	
==>a '&&' with a
'&') are post-consumption: they have already matched what they are
named.

The hand <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14427	14519	
==>open my $fh, ">", "$cdroot/boot/grub/menu.lst"; print $fh <<GRUB; $wrote_menulst++ };
default <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	972	1092	
==>.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	972	1092	
==>.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, density = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3557	3655	
==>ject:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<dele <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3557	3655	
==>ject:

=over 8

=item C<param>

=item C<params>

=item C<keywords>

=item C<delete_param> -> C<dele <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7308	7436	
==>en = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7308	7436	
==>en = length( $match->{tail} );
                my $head = $len?substr($_[0], 0, -$len):$_[0];
                $new_match->{captur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27014	27172	
==>ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27293	27451	
==>ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12134	12243	
==>ts>
    | <'+'> <DecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 9.3.1
      <'0x <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1477	1575	
==>ams>:=(<list>?)<?p6ws>?\)<?p6ws>?\;
        { return { meth_call => $() } }
RULE
*{'sub_call_term'} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5979	6064	
==>:cap->[-3],$X::cap->[-2],$X::cap->[-1]) }

my $x1 = def_stmt_prim('bs_ws_decl','\s*tok <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12269	12385	
==>returns opaque {
    $canidate //= 'P6opaque';
    my $self = $class.CREATE(repr => $canidate, %params);
    $self.BU <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48643	48741	
==>authority') => attribute->new('$:authority' => 'str')));

$::Module->send('add_method' => (
    # m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4953	5078	
==>L compiler



  *compile::YAML = Pugs::Compiler->new( 

      lang      => 'YAML',

      parser    => ['YAML']

      optimiz <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4782	4902	
==>L compiler

  *compile::YAML = Pugs::Compiler->new( 
      lang      => 'YAML',
      parser    => ['YAML']
      optimiz <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1288	1389	
==>eturn '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget ' <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1288	1389	
==>eturn '<input type="hidden" name="' ~ %p{'id'} ~ '" value="' ~ %v{%p{'id'}} ~ '" />';
};

new_widget ' <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12244	12363	
==>fmatch;
  sub emit {
    my($o)=@_;
    my $noop = $o->noop;
    my $f = $o->concat( $o->data );
    my $dir = $o->{'dir <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	238	353	
==>am = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	238	353	
==>am = ref $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5707	5850	
==>'&ternary:<?? !!>'),
                    Sym->new('$cond'),
                    Sym->new('$left_thunk'),
                    Sym->new('$right_th <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	182	323	
==>an' => {
    is => [ $::Object ],
    attributes => [ '$:expect' ],
    submethods => {
        'BUILD' => sub {
            my ($self, %param <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7938	8036	
==>CRIPTION

This class represents an ordered set of spans.

The problem this class solves is when you <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7938	8036	
==>CRIPTION

This class represents an ordered set of spans.

The problem this class solves is when you <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6502	6600	
==>Bool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6502	6600	
==>Bool::False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "int <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11305	11403	
==>e Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11305	11403	
==>e Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of the syntax of a single
field <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2122	2256	
==>)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2122	2256	
==>)); # 2.index
      take encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4745	4861	
==>er

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang'],

      optimizer => [],

      emit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4582	4694	
==>er
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang'],
      optimizer => [],
      emit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4146	4282	
==>ist',
        precedence => 'equal',
        other => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6603	6696	
==>hift if $$token{eqiv} > $$top{eqiv};
  goto shift_reduce_2 if ( $topcat == PGE_OPTABLE_TERNARY <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	8998	9203	
==>$qo$pat$qc;
           my $pos = 0;  my $a = []; my $prev = -1; my $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_try.pl	148	262	
==>e') {
  my $file = shift;
  $str = `cat $file`;
}
my $re = shift;
my $bench = shift;
my $duration = shift || 10;

u <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7078	7200	
==>ems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7078	7200	
==>ems => sub { $ret.elems },
        )
}

} # end class Lazy::Array

=kwid

= NAME

Perl6::Container::Array - A Lazy Array

= <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3254	3416	
==>rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3254	3416	
==>rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] concat( \n" . 
        join( ',', @s ) .
        "$_[1] )\n";
}        
sub c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8275	8390	
==>dy_star { 

    my $node = shift;

    return ruleop::optional( ruleop::greedy_plus( $node ) );

}



sub ruleop::no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7988	8098	
==>dy_star { 
    my $node = shift;
    return ruleop::optional( ruleop::greedy_plus( $node ) );
}

sub ruleop::no <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11658	11760	
==>n of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11658	11760	
==>n of Node objects,
which are all of the Nodes that live in this Document.

=item C<@!root_nodes> - B<Ro <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11847	11945	
==>so you will have to wait
a little while. Until then, you can just write your own functions like thi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11905	12003	
==>so you will have to wait
a little while. Until then, you can just write your own functions like thi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10410	10521	
==>todo_tests) returns Void`

If you have some tests which you would like to force into being TODO tests
then you c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10468	10579	
==>todo_tests) returns Void`

If you have some tests which you would like to force into being TODO tests
then you c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5976	6112	
==>rn
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5976	6112	
==>rn
        "$_[1] abort(\n" .
        "$_[1]     sub {\n" . 
        "$_[1]         return { bool => 1, tail => \$_[0], return => sub $co <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	696	796	
==>truct) and $struct->isa("Blondie::Val"))) {
				$self->{seen}->insert($orig);
			}
			$self->Blondie: <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Method.pm	220	318	
==>erty usually has a single invocant typed to the
Role it is attached to (however, this is a trend an <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	798	894	
==>l {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descriptio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	798	894	
==>l {
  my $pilresult = pil_output( $code );
  is( chomp($pilresult), chomp($expected), $descriptio <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15228	15332	
==>IX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9426	9530	
==>IX class
  $self->add_handler('POSIX_word' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_ob <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	804	904	
==>ath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	804	904	
==>ath( $path, $nofile );
}

sub catdir (*@path) returns Str is export {
    return &::($worker_pkg)::ca <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8643	8737	
==>s for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8643	8737	
==>s for C<includes>.

=head2 C<$set.member($item)>

Returns the specified item if it's in the set <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	960	1120	
==>= $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	960	1120	
==>= $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!params.exists($ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1110	1211	
==>`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `requi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1110	1211	
==>`.

It is typically used to add extra directories to Pugs's 
search path so that later `use` or `requi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1416	1543	
==>nterface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1416	1543	
==>nterface::DBMS.new(
            engine_name => $engine_name );
    };
    if ($!) {
        _show_message( Locale::KeyedText::Me <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13558	13663	
==>tion
could be started).  This is most useful when writing modules and you
find there is some language feat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13616	13721	
==>tion
could be started).  This is most useful when writing modules and you
find there is some language feat <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7892	8079	
==>right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8356	8543	
==>right package
                        next unless dependency_satisfied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	244	358	
==>ef $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUP <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	244	358	
==>ef $param ? { %$param } : {}; 
    $param->{ratchet} = 1 
        unless defined $param->{ratchet};
    $class->SUP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18449	18535	
==>.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the cu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18449	18535	
==>.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the cu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23649	23792	
==>\&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23928	24071	
==>\&{'grammar1::block'} )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	678	782	
==>__END__

=pod

=head1 NAME

Blondie::Backend::Perl::Silly - a subclass of the perl backend that
condition <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8363	8472	
==>actical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Withou <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8363	8472	
==>actical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTORS

- `new()`

Withou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7049	7242	
==>0];

        my $match = $op->( @_ );

        return if $match->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6813	6999	
==>0];
        my $match = $op->( @_ );
        return if $match->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4966	5064	
==>y.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4966	5064	
==>y.  All rights reserved.

This program is free software; you can redistribute it and/or modify
it u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2815	2990	
==>]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2815	2990	
==>]     $sub(\n" .
        emit_rule( $term, $_[1] . ("    "x2) ) . 
        "$_[1]     )\n" .
        "$_[1] )\n" .
        '';
}        
sub alt {
    my @s;
    for ( @{$_[0]} <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	508	707	
==>ta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3110	3245	
==>p1} . "\n", 
            map { _emit( $_ ) } @{$n->{list}} 
        );
    }
    
    return _not_implemented( $n->{op1}, "list-op" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1825	1934	
==>op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1825	1934	
==>op( {
    fixity => 'infix', name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16280	16413	
==>",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16280	16413	
==>",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() {
      my $cur = @!perm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	786	947	
==>self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	786	947	
==>self.params();
    }
    
    method parse_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($k <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3052	3157	
==>n_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3052	3157	
==>n_code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	213	307	
==>e base 'Object::Accessor';

=head2 $set = JIB::Installation::Set->new( [dirs => \@dirs] );

=cu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3822	3937	
==>rror when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3880	3995	
==>rror when loading $module: $!", :$depends);
    }
    else {
        &Test::ok.goto(1, "$module imported OK", :$todo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18669	18766	
==>on or package, with one or more
text strings to show human users.  This association would normally <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18669	18766	
==>on or package, with one or more
text strings to show human users.  This association would normally <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10804	10899	
==>up the bulk of the Rosetta::Model code,
and these could potentially be extended by third party a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10804	10899	
==>up the bulk of the Rosetta::Model code,
and these could potentially be extended by third party a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	248	414	
==>"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	248	414	
==>"     },

        # Elements
        start_element => -> ($event_type, @args) { 
            given $event_type {
                when 'header' {
                    my <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7606	7769	
==>lencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7606	7769	
==>lencoded') {
                my $content; # = read($*IN, $CONTENT_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	693	790	
==>ce set where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	693	790	
==>ce set where only methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub { <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Role.pm	545	673	
==>ble unit of behaviour; which includes;

=over

=item *

unbound public and private methods, including the signatures of these
met <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4851	4975	
==>urn;
        splice(@_, 0, 2, $obj);
	goto &{$obj->can($method)};
}

sub load {
    my ($self, $method) = @_;

    $self->loa <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1813	1933	
==>DERR $exp;
      warn "Got:\n"; print STDERR $out;
      die "Oops, you failed.\n";
   }
}

# --------------------------- <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22002	22119	
==>$script}->{name};
        $max_namelen = $namelen if $namelen > $max_namelen;
    }

    my $list_len = $Columns - len <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21269	21363	
==>you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21269	21363	
==>you don't need to make the compiler modules be
prerequisites.

=head1 SEE ALSO

Module::Install <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8463	8602	
==>"le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8463	8602	
==>"le"       => chr(8804),
    "ge"       => chr(8805),
    "sub"      => chr(8834),
    "sup"      => chr(8835),
    "nsub"     => chr(8836), <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22518	22611	
==>urn value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is pe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22518	22611	
==>urn value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentation is pe <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	5	104	
==>trict;

use JIB::Config;
use Path::Class ();
use Cwd;
use Config;

use vars qw[$INSTALLATION_DIR $RE <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16431	16527	
==>ns the number of chars removed.

Note: Most users should consider setting their I/O handles to au <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7688	7793	
==>peratorStack;

  reduce_args:
  goto reduce_saveterm if $arity < 1;
  $temp2 = pop @termStack;
  if ( $tem <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5698	5814	
==>ct 'refs';
  no warnings 'redefine';
  *{ ref($self) . "::$seq" } = $func;
}


sub del_handler {
  my ($self, @handle <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2049	2159	
==>Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2049	2159	
==>Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run::List" => list(map { &OUTER:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5453	5615	
==>n => $/{'Pugs::Grammar::Term.substitution'}->(),
                    options => { g => 1 },
                } 
            }
        ) ),
        # angle is handle <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2055	2153	
==>ross all runtimes.



=head1 Directory Layout



lib/Pugs/Compiler.pm  # functional things

lib/Per <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1979	2072	
==>ross all runtimes.

=head1 Directory Layout

lib/Pugs/Compiler.pm  # functional things
lib/Per <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9085	9184	
==>SION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9085	9184	
==>SION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27337	27436	
==>ibutes; the new Relation has as
many additional attributes as there are pairs in the argument C<$att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31889	31988	
==>ibutes; the new Relation has as
many additional attributes as there are pairs in the argument C<$att <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32661	32768	
==>od

method _make_ascendant_dispatcher (opaque $self:) returns block {
    $self._make_dispatcher_iterator(@: <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2069	2183	
==>oken_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2069	2183	
==>oken_flow>(); $tokens },

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7209	7343	
==>=> $tail,

               }

    };

};



# experimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6968	7095	
==>=> $tail,
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18425	18524	
==>ng delimiters must not be treated as rules but as constants.  The
default is no longer ' ' since tha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7466	7589	
==>r  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7215	7333	
==>r  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub rule <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	308	426	
==>$.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/group en <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	308	426	
==>$.from         - The place where this subrule/group started.
    $.to           - The place where this subrule/group en <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1686	1809	
==>>author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($E <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2538	2661	
==>>author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) {
        $args->{NO_META} = 1;
    }
    if ( eval($E <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2727	2815	
==>http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane. <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2727	2815	
==>http://groups-beta.google.com/group/perl.perl6.compiler> or GMane at
L<http://news.gmane. <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14111	14235	
==>urs with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14111	14235	
==>urs with full precision:
    
    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0,24:00:00.0]

It <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8676	8786	
==>when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Event <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8676	8786	
==>when a modifier is encountered.

=item I<end_modifier>

This event closes a modifier.

=back

=head2 Text Event <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3666	3771	
==>$node, "const $type $symbol = $body;");

	return $symbol;
}

sub define_thunk {
	my $self = shift;
	my ($n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17750	17842	
==>ro additional runtime penalty after compilation, because C<perl> has
already been doing the C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17750	17842	
==>ro additional runtime penalty after compilation, because C<perl> has
already been doing the C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33704	33811	
==>r Name and usually corresponds to a
language like English or French.  The order of these items corresponds t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33704	33811	
==>r Name and usually corresponds to a
language like English or French.  The order of these items corresponds t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	678	796	
==>key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_K <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	678	796	
==>key,]
           ~ q[ which isn't allowed when creating Nodes from <ARG>.],

    'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_K <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1781	1882	
==>rset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infi <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1781	1882	
==>rset($two);
}
multi sub *infix:«⊆» (Set $one, Set $two) {
    $one.subset($two);
}
multi sub *infi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7535	7629	
==>ase_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunk <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7535	7629	
==>ase_directories);

    while (@pathchunks && @basechunks && lc(@pathchunks[0]) eq lc(@basechunk <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1700	1853	
==>elf = shift;
                my $idx = shift;
                $self->array_fetchElem($idx)->scalar_fetch;
            },
     
            'array_storeVal <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	12523	12615	
==>rror is a particular one, use the error_is() method:

  if ($parser->error_is($parser->RPe_BC <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1139	1279	
==>=~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1093	1226	
==>=~ /^((?:\s|\#(?-s:.)*)+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        matc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2692	2785	
==>lasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<source <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2692	2785	
==>lasses... though a default
implementation exists, too.

=over

=item B<source>

=item B<source <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	71	167	
==>:Straps.
# Hacked up from mini_harness.plx in the Test::Harness dist.
# (And some stuff stolen fr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28428	28523	
==>snt handled properly
(a(b)?)* aba  doesnt have $2 as an unsuccessful match.
//x isnt being handl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2309	2468	
==>t';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix';
        return prefix( $n )
            i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6702	6862	
==>return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### abortin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6485	6636	
==>return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortin <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1316	1437	
==>m_size($n) {
  'subset num'~$n~'     of ValueType where { $^n ~~ Num and ...XXXfill in... };
   subset complex'~$n~' of Va <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9450	9550	
==>tures(2);

=head2 Walking the Tree

To walk over the created tree, create an iterator with walker()Z< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1152	1316	
==>) 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1152	1316	
==>) 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7833	7934	
==>fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7833	7934	
==>fetch` / `store`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flav <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	6154	6297	
==>'"PCode"' {
        my %pad = $tree[1];  # keys: "pBody""pIsMulti""pLValue""pParams""pType"
        dbg "# keys: ",%pad.keys;  
        dbg "# B <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	566	674	
==>nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{'PL_FILES'} ) {
        	$self->makemak <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22512	22604	
==>he return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22512	22604	
==>he return value is
undefined.

=head2 The Rosetta::Interface::DBMS Class

I<This documentatio <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3540	3645	
==>e;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3540	3645	
==>e;
}

# from src/Pugs/PIL1.hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	10	109	
==>lass Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.de <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	10	109	
==>lass Span::Int-0.01;

has $.start;
has $.end;
has $.density;

submethod BUILD ( $.start, $.end, $.de <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11105	11221	
==>move all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was s <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11105	11221	
==>move all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We record the time the last traffic from the server was s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9414	9551	
==>my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9402	9539	
==>my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[1]       my \$capture;
$_[1]       \$bool <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	281	375	
==>AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	281	375	
==>AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
        => q[<CLASS>.<METH>(): as expected, argument <ARG> i <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6588	6695	
==>other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10065	10172	
==>other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation *@others) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21341	21447	
==>r pseudo-SQL dialect.  An application written to it should easily port
to alternative relational database e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21341	21447	
==>r pseudo-SQL dialect.  An application written to it should easily port
to alternative relational database e <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4041	4134	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+( <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4041	4134	
==>dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&1)*1073741824+(:16($1)+&63)*16777216+( <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3387	3504	
==>f index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwis <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3387	3504	
==>f index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # otherwis <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2887	2985	
==>ing portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2887	2985	
==>ing portion of the request URI.

=item C<$r.remote_host>

The hostname of the client, if available. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	980	1097	
==>::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ide <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	980	1097	
==>::KeyedText::Message object:
    has Str $!msg_key;
        # Str
        # The machine-readable key that uniquely ide <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	36381	36474	
==>) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned bin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	41568	41661	
==>) returns Relation::Example>

This multi-method is the N-ary version of the aforementioned bin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10813	10938	
==>x AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10813	10938	
==>x AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10061	10152	
==>($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',de <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10796	10887	
==>($`)?"\"$`\"":"undef","\n";
print ' $& ',defined($&)?"\"$&\"":"undef","\n";
print ' $\' ',de <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2007	2162	
==>->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the temp d <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3537	3687	
==>->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the temp d <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15191	15287	
==>something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Boo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15249	15345	
==>something
like this:

  multi sub is_deeply (Array @got, Array @expected, Str $desc?) returns Boo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7156	7284	
==>op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } );
=cut

__EN <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7156	7284	
==>op( {
        fixity => 'infix', name => '*', assoc => 'left',
        precedence => 'tighter', other => '+',
    } );
=cut

__EN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4446	4567	
==>>() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4446	4567	
==>>() );
}

{
    my $match = $grammar->parse( '3+4*5' );
    #print Dumper $match->();
    ok( 
        postfix( $match->() <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15292	15419	
==>>{off};
  }

  sub raw {
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{o <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7382	7483	
==>,$pType, $pParams, $pLValue, $pIsMulti, $pBody)=@_;
    my $type = $pType;
    my @pams = map{DOWN($_) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12507	12638	
==>clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5982	6113	
==>clump (a unicode clump)
  $self->add_handler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15560	15652	
==>tually recursive, they will easily be
able handle arbitrarily complex data structures automat <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15618	15710	
==>tually recursive, they will easily be
able handle arbitrarily complex data structures automat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	815	914	
==>per::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Dumper::Dumper($_[0]);
}

sub import {
	# g <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	682	814	
==>\; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	682	814	
==>\; | \_ | \/ | \~ | \" | \' | \=

        { return { 'constant' => $() ,} }
    }
    unshift @rule_terms, 'plain_text';
    
    rul <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30638	30739	
==>ch
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the corre <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35189	35290	
==>ch
those of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the corre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5023	5198	
==>hod get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5023	5198	
==>hod get_member_names () returns Array of Str {
    return [@!member_names];
}

######################################################################

method as_debug_string () <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	5151	5264	
==>64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	5151	5264	
==>64;

  my $encode = MIME::Base64::encode("A string");
  my $decode = MIME::Base64::decode("QSBzdHJpbmc=");

=head1 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1748	1871	
==>d2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1748	1871	
==>d2pod (IO $fh) returns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9545	9707	
==>0) {
         @lines = $start .. $end;
      } else {
         @lines = ($start);
      }
      next unless $start;
      for my $line (@lines) {
          if (exi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18472	18585	
==>ide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18472	18585	
==>ide Web> A misspelling of "referrer" which
     somehow made it into the {HTTP} standard.  A given {web
     page} <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11259	11357	
==>=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11259	11357	
==>=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includes()>.

=head2 C<$set ∋ $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1846	1976	
==>tin is primitive {
    my $off = +$offset;
    my $len = $length;
    my $size = +@a;

    $off += $size if $off < 0;
    if $off > <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	29475	29562	
==>_TAIL_DOLLAR|FBMcf_TAIL_DOLLARM|FBMcf_TAIL_Z|
 FBMcf_TAIL_z)

 #define FBMrf_MULTILINE 1 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11611	11734	
==>urn $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11611	11734	
==>urn $.current;
    }
    method reset () {
        undefine $.current;
    }
}

=kwid

= NAME

Span - An object representing <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1142	1241	
==>ng)
#	::free - an unbound type variable
#	::instantiated - points to another variable or operator

u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34558	34647	
==>xp::MyRx::__object__> (if it exists), then
in F<Regexp::Parser::THING> (if it exists), and <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8509	8609	
==>accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8509	8609	
==>accidentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18430	18517	
==>sed.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18430	18517	
==>sed.

=head2 C<$bot.curnick>, C<$bot.curusername>, C<$bot.curircname>,
C<$bot.curhostnam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13693	13798	
==>calar context return the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13693	13798	
==>calar context return the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17374	17479	
==>tor:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17374	17479	
==>tor:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `next()`, `previous( <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5526	5679	
==>for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as t <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5990	6143	
==>for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able to short circuit, as t <==
2	/Users/nnunley/pugs/util/combine_tests.pl	694	825	
==>dexed on filename/number
    # into %sum
    #
    my %sum;
    my @revisions;
    for my $data (@_) {
        my $revision = $data- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5390	5485	
==>assed the current value itself, which means 
you it is essentially read-only, however, all the r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12422	12532	
==>elf->min, $self->max);
    if ($min == 0 and $max eq '') { 'star' }
    elsif ($min == 1 and $max eq '') { 'plu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3229	3321	
==>e.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3229	3321	
==>e.

=item C<$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22916	23073	
==>pture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23195	23352	
==>pture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant( "infix" )
                 ,
                   ruleop::constant( "pre <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3363	3526	
==>m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3363	3526	
==>m->{label} eq '*quantifier*' ) {
            my @m = @{ _box_submatch( $_[0], $m ) };
            push @r, \@m if @m;
            next;
        }
        next if $m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3908	4008	
==>mpty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The arr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3908	4008	
==>mpty set.

- `new( spans => @spans )`

Creates a set containing zero or more `Span` objects.

The arr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2534	2643	
==>m of supplying Perl.pm itself - but I think to

do it Right As Specified is more important.



### - see "Modi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2439	2545	
==>m of supplying Perl.pm itself - but I think to
do it Right As Specified is more important.

### - see "Modi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12129	12228	
==>arameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12129	12228	
==>arameter.

- `current( $x )`

Returns the parameter value if the parameter is a member of the recurr <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13963	14065	
==>ld is multi-valued, then the
routine is called once for each value.  The field name passed to the
callb <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13963	14065	
==>ld is multi-valued, then the
routine is called once for each value.  The field name passed to the
callb <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2098	2194	
==>lass / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2187	2283	
==>lass / object.

* Grammars

=item * L<Pugs::Grammar::Rule> parses the Rules syntax.

=item * L<Pu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1753	1873	
==>e server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traff <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1753	1873	
==>e server when we haven't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traff <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3033	3136	
==>glock

# as well -- and "use Pugs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2925	3026	
==>glock
# as well -- and "use Pugs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5727	5830	
==>}];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %channel <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5727	5830	
==>}];

  # We track our status, especially the channels we've joined.
  # Somebody joined. Update %channel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7386	7519	
==>"$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7374	7507	
==>"$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       m <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	911	1029	
==>t's $" these days?
    $ret ~= "{@{head($s)}}" ~ ' ';
    $s = tail($s);
  }
  return $ret;
}

## Chapter 6 section 2.2 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2655	2779	
==>e = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2655	2779	
==>e = rel2abs($base);
    }
    else {
        $base = canonpath($base);
    }

    # Now, remove all leading components that a <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19165	19309	
==>r_the_lines($code)."\n");
}
sub eval_p5_code {
    my($code)=@_;
    eval_p5_log_code($code);    
    my @res = eval_wa($code,wantarray);
    eva <==
2	/Users/nnunley/pugs/util/grokprims.pl	1379	1495	
==>>";
    }
    $example .= "$name(". join(', ', map {$a=$_; $a=~s/:$//; '$'.$a} @{$op->{args}}) .")";
  } elsif (/(lis <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1639	1752	
==>, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1639	1752	
==>, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.universe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7636	7734	
==>her::Block> class takes care of much of this.)

A default implementation of this method is provided <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7636	7734	
==>her::Block> class takes care of much of this.)

A default implementation of this method is provided <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	9157	9255	
==>other!heading === $!heading);

    return $?SELF!_union( $other );
}

multi method union (Relation: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	661	809	
==>uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	661	809	
==>uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method ur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	10337	10476	
==>= $prefix;
            $category = 'statements' if $prefix eq 'statement_control';
    
            $res .= "    push \@grammar1::$category, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9692	9811	
==>force_object(anyof_class => xdigit => $neg, $how);
  });

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S- <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16071	16180	
==>l};
    my $val = $self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	554	653	
==>ad1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	554	653	
==>ad1 DESCRIPTION

C<Net::IRC::JoinOnInvite> is a role which installs a event handler listening
for C< <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5268	5367	
==>ence representing the configuration data

=item write

The C<write> method the file for the properti <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5268	5367	
==>ence representing the configuration data

=item write

The C<write> method the file for the properti <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1466	1662	
==>s?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1466	1662	
==>s?', %msg_vars );

    $!msg_key  = $msg_key;
    %!msg_vars = %msg_vars;

    return;
}

###########################################################################

method export_as_hash () retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4555	4657	
==>ject.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

The set <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4805	4907	
==>ject.

=head1 CAVEATS

This is an experimental development version.  The API is still in flux.

The set <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5335	5497	
==>=>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $re <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5335	5497	
==>=>           $ret.cstart,
                celems =>         $ret.celems,
                cis_infinite =>   $ret.cis_infinite,
                cis_contiguous => $re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3232	3367	
==>p1}, "list-op" );
}

sub _emit_parameter_binding {
    my $n = $_[0];
    
    # no parameters
    return ''
        if  ! defin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	485	666	
==>signature => $_[2], } }
    |   'BLOCK_START' exp '}'        
        { $_[0]->{out}= { 'bare_block' => $_[2] } }
    ;
    
attr:
        #empty  
        { $_[0]->{out}= { attribut <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3062	3194	
==>abel);

    # FIXME: why doesn't this work?
    # this is here just because of an icky pugsbug.
    #my %idx = <package file line sub <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	806	918	
==>tor method

sub _compare {
    my ($left, $right) = @_;
    return $left->to_native <=> $right->to_num->to_native <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15073	15166	
==>tiveExpression>
    | <AdditiveExpression> <'+'> <MultiplicativeExpression>
    | <AdditiveExp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1280	1382	
==>rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1280	1382	
==>rule(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->m <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4202	4309	
==>tems.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4202	4309	
==>tems.map:{
        ($_.isa( 'Perl6::Value::List' ) && $_.is_infinite);
    }, Bool::False;
}

method is_lazy <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9040	9139	
==>your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This docum <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9040	9139	
==>your code; instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This docum <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	677	792	
==>hy we wanted YAML.pm.
    join "", map { ref $Conf->{$_} ?
            "\t$_ => [". (join ", ", @{ $Conf->{$_} }) ." <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	180	286	
==>_runtime/;

my @progs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), Val(2) ),
		result => 4,
		name => "s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	833	957	
==>per($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	833	957	
==>per($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $grammar->no_match unless <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	966	1087	
==>y => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, dens <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	966	1087	
==>y => $.density );
    }
    if $.start == -Inf {
        return $self.new( start => $.end + $.density,  end =>   Inf, dens <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2378	2499	
==>od;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2378	2499	
==>od;
    say "Request URI: "    ~ $r.uri;
    say "Query string: "   ~ $r.query_string;

=head1 DESCRIPTION

An object of t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1746	1887	
==>s_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        // <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1746	1887	
==>s_contiguous //= sub { Bool::False }, 
        $.cstringify     //= sub { &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        // <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5708	5805	
==>Although the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fac <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5708	5805	
==>Although the API seems large, most of it is implemented within the C<Cipher> 
class itself; in fac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16232	16333	
==>r %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16232	16333	
==>r %attributes (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7572	7687	
==>push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7765	7880	
==>push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::captu <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3517	3635	
==>end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $en <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3517	3635	
==>end ) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $en <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	86	182	
==>::Core::Ref;
use Perl6::Core::Symbol;
use Perl6::Core::List;

package closure;

use strict;
use w <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9754	9861	
==>e
	# DCL will lowercase -- unless already doublequoted.
       $_ = q(").$_.q(") if $is_vms && !/^\"/ && len <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20538	20653	
==>f third party Engine
modules that become available over time.  One plan which I favor is that
the new (under develop <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20538	20653	
==>f third party Engine
modules that become available over time.  One plan which I favor is that
the new (under develop <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14108	14245	
==>o one of the standard
testing functions. In that case, you can use the rather blunt pass()
functions and its compliment the flunk() functi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14166	14303	
==>o one of the standard
testing functions. In that case, you can use the rather blunt pass()
functions and its compliment the flunk() functi <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	5049	5272	
==>nts<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	5049	5272	
==>nts<start_modifier>($token);    
                        $in_code = 1 if $token eq '`';
                    }
                    else {
                        # if the top of the stack is 
                        # equal t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1639	1761	
==>t );
    }
    
    return $self;
}

=head2 $files = $pkg->files

Returns an arrayref of files installed by this package

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11024	11119	
==>B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) retur <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11024	11119	
==>B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) retur <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15459	15564	
==>red level. However, attempting to stuff something into
the string at a higher level that doesn't map to th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27988	28088	
==>s> would be called with a false one.

If the flag handler returns 0, the flag is removed from the res <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	919	1122	
==>) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add sym <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	919	1122	
==>) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add sym <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13024	13154	
==>}
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13024	13154	
==>}
    }

    try {
        # Check that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17712	17885	
==>gex) {
                    # we're skipping forward till we find a regex
                    my @stuff = $h->look_down(sub {$_[0]->as_text =~ $regex});
                    if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16244	16339	
==>s (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the paramete <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16244	16339	
==>s (a hash ref) sets the
"Attributes" attribute if provided (it defaults to empty if the paramete <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	555	664	
==>t *@indextests --> Int|List )
{
    my @ret;
    for @array.kv -> ($k, $v) {
	push(@ret, $k ) if $k ~~ any(@in <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3562	3674	
==>nce
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set differenc <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3562	3674	
==>nce
#method *infix:<-> (Set $one, Set $two) returns Set {
#    $one.difference($two);
#}

# unicode set differenc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2424	2556	
==>s
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4012	4144	
==>s
        ]
    );

    return @$features;
}

sub features {
    my $self = shift;
    while ( my ( $name, $mods ) = splice( @_, 0, 2 <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11136	11231	
==>niverse()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everything <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11136	11231	
==>niverse()`

Returns the "universal set" recurrence object.

- `complement()`

Returns everything <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13411	13546	
==>, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = $self->{rx};

    # quantifiers must fol <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16084	16187	
==>al = $self->{cache}{$symbol} = Placeholder->new(undef);
    
    # if the symbol is not a predefined glo <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	464	583	
==>= (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for % <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	464	583	
==>= (time, times);
    $loop.();
    return (time, times) »-« @s;
}

sub timethese ($count, %hash) is export {
    for % <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	226	326	
==>est::Harness::Iterator;

# Flags used as return values from our methods.  Just for internal 
# clarif <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1120	1237	
==>n::AttrName () {
    return %!attrs.keys;
}

method export_attr_type of Relation::LaxPairAttrType
        (Relation::A <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1534	1648	
==>t.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     values  safe   (rw!Array)\
mu <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6077	6188	
==>fh, ">",  $syn_index) or die "Failed to open $syn_index: $!";
    $template = HTML::Template->new(filename => 'u <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15900	16008	
==>ified in this field,
then the server will return a C<304 Not Modified> response instead of
the document itsel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15900	16008	
==>ified in this field,
then the server will return a C<304 Not Modified> response instead of
the document itsel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26349	26453	
==>reciate being informed any time you create a modified version of Rosetta
that you are willing to distribu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26349	26453	
==>reciate being informed any time you create a modified version of Rosetta
that you are willing to distribu <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	2502	2622	
==>port_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.ou <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	2502	2622	
==>port_test ( Test::Builder::Test $test )
{
    fail 'No plan set!' unless $.testplan;

    push @!results, $test;
    $.ou <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2554	2729	
==>) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2459	2624	
==>) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	742	833	
==>an be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, whi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	742	833	
==>an be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argument, whi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15021	15117	
==>1) :-
  re_rewrite(cap(plus(R)),R1,RW0,RW1).
re_rewrite(cap(R0),capture(N,R1),RW0,RW1) :-
  !, RW <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8879	8978	
==>nvoke this 'require' in an eval string
    # because we need the bareword semantics, where 'require' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8879	8978	
==>nvoke this 'require' in an eval string
    # because we need the bareword semantics, where 'require' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24996	25084	
==>lag(E0,-s,E1) :- set_flag_s(E0,-,E1), !.
set_flag(E0,x,E1)  :- set_flag_x(E0,x,E1), !.
se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18978	19099	
==>>{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20336	20457	
==>>{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_->{zerolen}, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19154	19254	
==>er class, so I'm a little wary of making them
objects in their own right, even if it would create a b <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2632	2779	
==>twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2632	2779	
==>twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37360	37455	
==>m C<join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the af <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41909	42004	
==>m C<join (Relation *@others) returns Relation>

This multi-method is the N-ary version of the af <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10809	10934	
==>s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10809	10934	
==>s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    my Rosetta::Model::Node $fnd_get_person = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3161	3331	
==>{state}, 0 );

                next;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3060	3225	
==>{state}, 0 );
                next;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd matc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18254	18351	
==>esources, such as a repository file
on disk, it is expected that the Engines will employ appropria <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18254	18351	
==>esources, such as a repository file
on disk, it is expected that the Engines will employ appropria <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4201	4302	
==>ialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4201	4302	
==>ialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which w <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	697	1115	
==>butes of every Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	697	1115	
==>butes of every Rosetta::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3780	3933	
==>t( $_ ) } @$n
    );
    return "my ($param) = \@_;\n";
}

sub default {
    my $n = $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exist <==
2	/Users/nnunley/pugs/misc/Sample-Module/lib/Sample/Module.pm	239	337	
==>s purpose of this module is simply to be an example Perl6 module that will
run and install and have <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22343	22450	
==>> $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22620	22727	
==>> $one_elem_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43524	43647	
==>e->get('WALKMETH')
                  ->do(list->new(
                      $e->get('$self:')->class->send('dispatcher' => sy <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30632	30729	
==>iple Messages but the whole module must represent a single
language.

The name of each Template mo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30632	30729	
==>iple Messages but the whole module must represent a single
language.

The name of each Template mo <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	314	434	
==>dding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	314	434	
==>dding support (also note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2176	2301	
==>_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => - <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2176	2301	
==>_time) * $rate;
      $tokens = $burst_size if $tokens > $burst_size;

      $last_check_time = $time;
    },
    conform => - <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	749	852	
==>j=i
        --shuffle|s --recurse|r --include=s@ --anonymous|a --exclude|X=s@
        --help|h);
fixup_c <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	9794	9892	
==>ap{DOWN($_)}@$value).")" } # XXX
NODE VType ($value) { die "VType $value" } # XXX

NODE MkType ($ty <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1890	1991	
==>still missing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_fil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1890	1991	
==>still missing but will be added in the future...

=head1 CALLBACKS

We have two callbacks C<wanted_fil <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	3544	3650	
==>join(q{}, q{:}, $cygroot, $full_blib)
    }

    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_V <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22795	22883	
==>, !.
charset_member(_,C,[class_neg(X)|_])    :- class_member(class_neg(X),C), !.
charset_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24944	25038	
==>le::KeyedText::Message Class

A Message object is a simple container which stores data to be us <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24944	25038	
==>le::KeyedText::Message Class

A Message object is a simple container which stores data to be us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	301	413	
==>ammar => $class,
    );
}

sub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2856	2978	
==>rtkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2856	2978	
==>rtkeys = 1;
use Test::More qw(no_plan);

=for nothing
sub ::contains {
    my $tree = shift;
    my $data = shift;
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10408	10532	
==>mit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=h <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10408	10532	
==>mit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	378	502	
==>ules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the pack <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	378	502	
==>ules' => (
	reader  => 'rules',
	default => sub { {} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the pack <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6848	6956	
==>f|-Inf);
    my $Result3 = sign($Result1) * floor(abs($Result1));
    my $n2_32 = 2**32;
    my $n2_31 = 2**3 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6756	6862	
==>ne so already (looked at $pugs).",
  ensure => sub { -r $pugs and -s $pugs };

step
  descr  => "Checking f <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17253	17360	
==>PGE_CUT_GROUP
    pad["subpats"] = 0
    pad[":lang"] = "PIR"
    $P0 = exp["expr"]
    $P0 = $P0.p6analyze( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18453	18608	
==>leop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18732	18887	
==>leop::constant( "\/" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'rul <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14035	14167	
==>= 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17512	17644	
==>= 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relat <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	245	364	
==>$x ~~ $test;
     }
   }
 }

 multi sub join (Str $delimiter ; *@values) returns List {
   my $str = ~@values[0];
   for <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7446	7547	
==>ub {...}.
 multi Array::keys   (@array ; MatchTest *@indextests --> Int|List )
 multi Array::kv     (@ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1265	1507	
==>or does not exist]);
                                    return;
                            };    
use constant IS_DIR         => sub { return 1 if -d $_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $di <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12829	12935	
==>ion>? <AssignmentExpression>
}
rule Elision :words {  # see 11.1.4
      <','>
    | <Elision> <','>
}
rule <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	706	814	
==>ift;
    $self->{'values'}{'sign'} = ( @_ ? $_[0] : 1 );
    return $self;
}

foreach my $key (@tuple_keys) { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	563	754	
==>re       => \$meta, 
            allow       => ISA_JIB_META, 
        },
        installation => { 
            required    => 1, 
            store       => \$inst,
            allow       = <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23399	23521	
==>e REG_SEEN_LOOKBEHIND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	18286	18396	
==>ressionNoIn>
}
rule ConditionalExpression :words {  # see 11.12
      <LogicalORExpression>
    | <LogicalORExp <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	829	975	
==>n
                     index into the multidimensional arrays of the match
                     object, telling captures where in the deep structur <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	829	975	
==>n
                     index into the multidimensional arrays of the match
                     object, telling captures where in the deep structur <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12454	12551	
==>to the parameter.
If both previous and next elements are at the same distance, returns the previou <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12454	12551	
==>to the parameter.
If both previous and next elements are at the same distance, returns the previou <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	17052	17180	
==>s from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	17052	17180	
==>s from the queue
    clear => { @queue = () },
  };
}

sub new_permutation(Str $nick) {
  my @perms;

  my $self = {
    reset => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline.pl	2203	2382	
==>=> 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};


sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	237	389	
==>-expr got quite messy
as well. Although that could be fixed with macros.

=cut

{
    package Interpreter;
    
    use Data::Dumper;
    
    my %__clas <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2992	3084	
==>elds[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,* <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2992	3084	
==>elds[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constructor,$code,* <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3872	3995	
==>rl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD]) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3872	3995	
==>rl5:g/%([\da-fA-F][\da-fA-F])/{chr(:16($0))}/;
        }
        when 'utf-8' {
            $decoded ~~ s:perl5:g:i/%(F[CD]) <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	333	465	
==>t $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_le <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	333	465	
==>t $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.strict_le <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	266	378	
==>turns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # thi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	266	378	
==>turns Bool is export { 1     }

## Splitting

sub splitdir (Str $directories) returns Array is export {
    # thi <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	538	657	
==>uch as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %par <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	538	657	
==>uch as 'hours => 12'
    my $duration = %param<duration>;
    if defined %param<start> 
    {
        %tmp<start> = %par <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5794	5897	
==>---- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5794	5897	
==>---- scalar functions -----------

method next ( $x ) { 
    return $.closure_next( $x );
}

method prev <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5670	5775	
==>sub gen_code {
    my($pkg_root)=@_;
    $pkg_root = 'PIL::PIL1::NodeSet0' if !$pkg_root;
    my $code = " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5866	5973	
==>.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5866	5973	
==>.
    ./add_handler("PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($even <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7777	7935	
==>ary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7777	7935	
==>ary' ,
                    'index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    ) <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5784	5877	
==>.
p5_elemental(lookbehind_not(R))   --> "(?<!", !, p5_start(Rx), {re_reverse(Rx,R)}, ")".
p5_e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	2136	2246	
==>t(" . $args->length()->to_native . ") expected(" . $params->length->to_native . ")";      
    # loop through t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23700	23834	
==>HECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* use scream table. */
  #defi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28915	29021	
==>HECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* use scream table. */
 #defi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18543	18670	
==>y for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "o <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18543	18670	
==>y for Pugs. Note that it is I<not> a port of Perl
5's C<Net::IRC>.

=head1 METHODS

=head2 C<new_bot(...)>

Creates a new bot "o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2990	3104	
==>h::Class::dir( $conf->build_dir . $path );
    my $srcdir   = $self->dir;

    {   ### copy all the stuff over to a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1858	1971	
==>turn if 1;

PERL6

    print Dumper $match->();
    print "tail: ", substr( ${$match}->{tail}, 0, 20 ),"...\n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24588	24672	
==>ef(N,X,C0,C1).
match_captures_get(N,amat(C0,_G),X) :- nth0(N,C0,X).

set_modifiers(E0 <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	4444	4535	
==><(!?)<[&]> <ident> [ \( <argument_list> \) ]? \> }
rule symbolic_indirect_rule { \<(!?)\:\:\ <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	619	813	
==>code }
                               $class->methods->members
                             },

                  # Perl 6 has no concept of associative attributes,
                  # so we repr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1033	1142	
==>epresented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4511	4620	
==>epresented as a Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes a <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6449	6554	
==>as_num (@array:) returns Num {
    +@array;
}

# speculative?
# behavior based on pugs r8593.
# while (@ar <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	9541	9655	
==>%:methods))) delete ($label))))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('rem <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	4081	4184	
==>right 2006 by Audrey Tang and others.

This program is free software; you can redistribute it and/or mod <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2458	2560	
==>~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 8 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2458	2560	
==>~~ rx:Perl5{^http://([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 8 <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	132	238	
==>.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ( <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	132	238	
==>.callback;

submethod BUILD {
    # XXX: $.search should default to caller namespace
    $.callback = sub ( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10566	10755	
==>se_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10566	10755	
==>se_means_no) {
                    push @classes, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11451	11595	
==>ious( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11451	11595	
==>ious( $.current )
        }
        else {
            $.current = $.span.previous( Inf )
        }
        undefine $.current if $.current == -I <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19579	19666	
==>re on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19579	19666	
==>re on CPAN:
L<Locale::KeyedText-(1.72.0...)|Locale::KeyedText> (for error messages).

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4584	4683	
==>s an experimental development version.  The API is still in flux.

The set of implemented features d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4834	4933	
==>s an experimental development version.  The API is still in flux.

The set of implemented features d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10369	10480	
==>- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10369	10480	
==>- `new( ... )`

= METHODS

- `shift`

- `pop`

- `reverse`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COP <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4103	4216	
==>indBin::Bin);
    unless ( Cwd::abs_path(Cwd::cwd()) eq $base_path ) {
        delete $args{prefix};
    }

    re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3880	3990	
==>nt";
    }
}

# 8.7 The Reference Type
class JSX::InternalValue::Reference {
    has $.base_object;
    has $.p <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6441	6545	
==>stmt;})');
my $x5 = def_stmt_prim('bs_infix_decl','\s*multi\s+(infix:<(.+?)>)\s+\([^\)]*\)\s+((?:is (?:lo <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13694	13793	
==>$.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} secon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13694	13793	
==>$.last_traffic >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} secon <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	462	578	
==>tch,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	462	578	
==>tch,
		"pretty-print" => \$pretty_print,
		"format=s" => \$format
	);
}
1;

__END__

our @prelude;    => The files th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	256	374	
==>= @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	256	374	
==>= @_;
    $subrule = "\$_[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - so <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9727	9862	
==>}
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class P <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9727	9862	
==>}
        )
    }

    method shift () { self.start if self.elems }
    method pop   () { self.end   if self.elems }  

}  # end class P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15144	15260	
==>=> -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15144	15260	
==>=> -> Str $reason  { enqueue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   = <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	675	792	
==>f:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	675	792	
==>f:)          returns Array { @!results }

# it is abstract
method visit ($self: Tree $tree) returns Void { ... }

=pod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5717	5859	
==>vailable modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6181	6323	
==>vailable modules on that check
                    eval { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4952	5053	
==>om ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4952	5053	
==>om ()

Returns the initial position of the match.

=head2 to ()

Returns the final position of the mat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	1659	1782	
==>'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the v <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	1659	1782	
==>'LKT_ARG_HASH_VAL_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the v <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7550	7685	
==>t of jib files to the repository.
# 
# =cut
# 
# sub add_files {
#     my $self = shift;
#     my @ret;
#     
#     push @ret, $self->a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26748	26844	
==>", ":t (+ 10) 5");
is(t($half_pair), "∀α. α → (int × α)", ":t pair(10)");
is(t($pair), "( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9088	9188	
==>ds may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed( <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9088	9188	
==>ds may return nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed( <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	466	567	
==>se five examples
# can be improved in many ways, and have been in the Perl Monks
# thread mentioned ab <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	4103	4223	
==>peatedly_apply_and_accum' => Thunk->new(
        Seq->new(
            Param->new('&f'),
            Param->new('$accum') <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15991	16083	
==>creates and returns a new Rosetta::Model::Node object, that
lives in the Document object give <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15991	16083	
==>creates and returns a new Rosetta::Model::Node object, that
lives in the Document object give <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1619	1720	
==>s Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1619	1720	
==>s Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode (Str $string) {
  my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2072	2229	
==>=> $extracted,

        tail  => $remainder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unles <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1991	2141	
==>=> $extracted,
        tail  => $remainder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unles <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	257	361	
==>arsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like s <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	257	361	
==>arsing problem? - 2005 Jul 31
token block { <[{]> <code> <[}]> } # a block of code

# subs and sub-like s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1839	1953	
==>? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->make <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	950	1062	
==>? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub inc {
    my $self = shift;
    $self->make <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	3183	3306	
==>se STDOUT;
}

#    my ($fname) = @_;
#    print "processing $fname...\n";
#    my $file = slurp $fname;
#    my $desc = "$fn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2381	2482	
==>FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cach <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2598	2699	
==>FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $prelude_file-cach <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10491	10618	
==>0, '');
  });


  ### '+'

  $self->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27093	27190	
==>not be further changed;
this class defaults it to False.

=back

This is the main Relation::Exampl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3911	4047	
==>ot be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3911	4047	
==>ot be cached,
    # but that might be ok.
    open my $fh, ">", $pmc
      or return 0;

    # Protect against disk full or whatever else <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	379	640	
==>Y_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	379	640	
==>Y_STR is readonly = q{};

###########################################################################
###########################################################################

module Rosetta::Shell-0.1.2 {

    # External packages used by the Rosetta::Shell m <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	209	335	
==>'Need at least one source dir';

for my $srcdir (@ARGV ) {
    ### XXX can be custom file & nicer object & error checking
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22003	22213	
==>stant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22282	22492	
==>stant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\ <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2426	2528	
==>y to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gord <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2426	2528	
==>y to the author; patches are always appreciated.

=head1 COPYRIGHT

Copyright (C) 2005 Brent Royal-Gord <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28009	28105	
==>l if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32561	32657	
==>l if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( Ma <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1367	1487	
==>ir  = $self->dir or return;

    return $dir->file( $self->config->_available );
}

=head2 $file = $inst->files_list( $pk <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	535	627	
==>he input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	535	627	
==>he input file
my $match = grammar1::grammar->($source);
die 'Syntax error at !!'.$match->{tai <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1898	2028	
==>eturn Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1898	2028	
==>eturn Proxy.new(
        FETCH => { $!protocol; },
        STORE => -> Str $val { $!protocol = $val; }
    );
}

# XXX this might n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19559	19661	
==>k between a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19559	19661	
==>k between a C<use> and C<no> statement
are marked to be passed to that compiler. The end of an inner bl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34831	34938	
==>'Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must all be set whe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34831	34938	
==>'Eng'] );

Note that a Translator object does not permit changes to its attributes;
they must all be set whe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1065	1206	
==>, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1065	1206	
==>, 'non_capturing_group';
    
    rule closure_rule {
        <code>
            
        { return { closure => $_[0]{code}() ,} }
    }
    u <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4761	4941	
==>mpty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4761	4941	
==>mpty set";
            undefine $.span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8127	8227	
==>_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8127	8227	
==>_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $module_name );
    # Note: It <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5425	5572	
==>our is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5425	5572	
==>our is fallback when all else fails
            }
        }
    
        return $expires - $date;
    }

    method is_fresh     () { ./freshness_li <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	386	505	
==>rks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	386	505	
==>rks     - A hash that stores backtrack closures to various.
                  points earlier in the match.  This is used <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	560	657	
==>pher, in that keys should produce the same keystream and thus text 
should be enciphered and decip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	560	657	
==>pher, in that keys should produce the same keystream and thus text 
should be enciphered and decip <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2478	2577	
==>ists($P);
    my $attr = $O.property_attributes{$P};
    return JSX::false if $attr && $attr.ReadOnl <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14324	14419	
==>menu.lst\"",
  ensure => sub { -r "$cdroot/boot/grub/menu.lst" and $wrote_menulst },
  using  => <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1	94	
==>!/usr/bin/pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_C <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1	94	
==>!/usr/bin/pugs
use v6;

use HTTP::Status ();
use HTTP::Message;

class HTTP::Response[?::URI_C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1627	1737	
==>->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expand <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1627	1737	
==>->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = Perl6Grammar::emit( $ast->{capture} );
    my $expand <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19428	19553	
==>atch ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19707	19832	
==>atch ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&literal;
*{' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1566	1690	
==>he last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Sig <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1566	1690	
==>he last type represents a *@array of 
                           # that type if true
}


class Perl::Compiler::PIL::Util::Sig <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40750	40846	
==>f
Locale::KeyedText would appreciate being informed any time you create a
modified version of Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40750	40846	
==>f
Locale::KeyedText would appreciate being informed any time you create a
modified version of Loc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8529	8639	
==>up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# T <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8529	8639	
==>up, then you might find that 
# when adding hierarchies of trees, your
# depth fields are all out of whack.
# T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19339	19435	
==>es. To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnick <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19339	19435	
==>es. To read data from the server, a blocking C<readline> call is used.

=head2 C<$botE<lt>curnick <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2790	2921	
==>($ops->[-1])) ? -1 : $ops->[-1]->op_cmp($op);
        if($cmp <= 0) {
          print STDERR "op shift\n" if $debug;
          push( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15832	15934	
==>used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "I <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20065	20167	
==>used by regexec? */

Flags.  Despite the comment, _lots_ of folks look at it.  The one
field labeled "I <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1508	1641	
==>need to keep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1508	1641	
==>need to keep looking ...
        # get the next element in the path
        $current_path = @path.shift;
        # now check all the c <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2025	2122	
==>>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< pre <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2025	2122	
==>>

Standard comparision operators.

=head2 C<≣>, C<≡>

Equivalent to C<===>.

=head2 C<< pre <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21668	21798	
==>@' => 'array', '%' => 'hash',
			 '&' => 'code', ':' => 'type');
%sigil_from_space = map {$space_from_sigil{$_},$_} keys(%space_fro <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1843	1961	
==>ses, $self ).members.map:{ .get_methods }
       );
}

method all_assocs($self:) returns Set {
    set(
        set( $s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1493	1611	
==>);    
}

sub remove {
    my ($self, $key) = @_;
    (blessed($key) && $key->isa('type'))
        || confess "Key must <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1311	1487	
==>{
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1311	1487	
==>{
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %events<start_elem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	319	418	
==>\\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	319	418	
==>\\w+
))->code;
*CaptureVariableName = Pugs::Compiler::Rule->compile(q(
    \\< <VariableName> \\>  { <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1434	1533	
==>ous talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to re <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1434	1533	
==>ous talks about Perl 6 and/or Pugs in F<docs/talks/>. Look into
F<docs/talks/README> for links to re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Utils/lib/Pugs/Utils/Dump.pm	1112	1213	
==>erface::format" if $@;

	#export the funtions
	Pugs::Utils::Dump->export_to_level(1,@_);
}

sub dump_t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1938	2033	
==>dia article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1938	2033	
==>dia article on RC4, I<Applied Cryptography> by Bruce Schneier, or most 
cryptography resources w <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11685	11778	
==>rrence intersects (has any element in common) with the given recurrence.

- `equal( $recurrenc <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11685	11778	
==>rrence intersects (has any element in common) with the given recurrence.

- `equal( $recurrenc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7323	7505	
==>>match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variabl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7323	7505	
==>>match( \@_[0, 4], {p => 0}, \$_[1] ) }\n";
        }
        # call method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variabl <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	624	757	
==>eader;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorize <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	624	757	
==>eader;
    
    if (auth_type() eq 'Basic') {
        say "Hello " ~ remote_user() ~ "<BR>";
    }
    else {
        say "Unauthorize <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	620	788	
==>%:slots');
            },
            hash_store => sub {
                my $self = shift;
                my $hash = shift;
                $self->set_value('%:slots', <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	292	411	
==>f $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
} <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	292	411	
==>f $DEBUG;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :(

sub ∅ returns Set {
    set();
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26101	26200	
==>ring; the allowed variable names you can have depend on the Message Key
it is being used with (other <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26101	26200	
==>ring; the allowed variable names you can have depend on the Message Key
it is being used with (other <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	979	1070	
==>t-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	979	1070	
==>t-Language Content-Length Content-Location
 Content-MD5 Content-Range Content-Type Expires L <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6507	6609	
==>:False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" us <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6507	6609	
==>:False );

= DESCRIPTION

This class represents a single span.

It is intended mostly for "internal" us <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	696	899	
==>p::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	697	900	
==>p::constant( "\?" )
                 ,
                   ruleop::constant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	943	1056	
==>$k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29 <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1416	1529	
==>$k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # want Item ?? +@ret !! *@ret;
}
# signature from S29 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15665	15820	
==>h of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	19898	20053	
==>h of $& */

Must be zero.  Otherwise the run core thinks too much.


  U32 reganch;            /* Internal use only +
                             Tainted i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22129	22223	
==>ultiple language
or permissions issue; simply order the files appropriately in the search
list. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22129	22223	
==>ultiple language
or permissions issue; simply order the files appropriately in the search
list. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1108	1224	
==>"    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1108	1224	
==>"    my \$s = \$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31260	31354	
==>::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31260	31354	
==>::FooEng, L::FooFre,
L::FooGer]; the latter is mainy useful if you want modules from multiple
s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12660	12765	
==>ader field names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12660	12765	
==>ader field names ($field) are not case sensitive and '_'
can be used as a replacement for '-'.

The return <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2764	2867	
==>self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2764	2867	
==>self));
    return $rv;
}

method stringify() returns Str {
    return("set(" ~ $?SELF.members.join(" ") <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22745	22868	
==>s successful.

=item maxpar

The highest number of parentheses.  It will end up being identical to
C<nparen>, but it is incr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19161	19262	
==>and not the program's users' own data; only
someone already involved in making the program would be ed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19161	19262	
==>and not the program's users' own data; only
someone already involved in making the program would be ed <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Var.pm	406	652	
==>TODO - generate AST

*ident = Pugs::Compiler::Rule->compile( '
            [
                [ \:\: ]?
                [ \_ | <alnum> ]+
            ]+
            { return { scalar => "\$" . $() ,} }
        ' )->code;

BEGIN {
    __P <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2522	2644	
==>|

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2706	2828	
==>|

 <'literal'>
 <subrule>
 <namespace::subrule>
 <$var>      
 <?subrule>
 <!subrule>
 <before ...>
 <after ...>         - <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1122	1231	
==>\$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1122	1231	
==>\$_[0]; # TODO - substr( \$_[0], \$pos );\n" .
        # "    print \"\\nVariables: args[\", join(\",\",\@_) , <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	32493	32592	
==>lus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	37043	37142	
==>lus>.

=item C<union (Relation *@others) returns Relation>

This multi-method is the N-ary version o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3385	3493	
==>ages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3385	3493	
==>ages used by the Rosetta::Interface::Variable class, that do export symbols:
    # (None Yet)

    # Attribut <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17754	17853	
==>dditional runtime penalty after compilation, because C<perl> has
already been doing the C<.pmc> chec <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17754	17853	
==>dditional runtime penalty after compilation, because C<perl> has
already been doing the C<.pmc> chec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18012	18110	
==>class to implement it; that is, multiple DBMS objects will not
have references to each other at a l <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18012	18110	
==>class to implement it; that is, multiple DBMS objects will not
have references to each other at a l <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	186	285	
==>unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	186	285	
==>unused nodes

use strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

our $direction <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	600	729	
==>e => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	600	729	
==>e => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.pos < $pos.text.chars {
            &continue($match. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2308	2436	
==>,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2308	2436	
==>,$t { "\$.{$n} = \$$n;" }, @fields)
          ~"\n    ./type_check("
          ~"\n      "~join(",\n      ",map -> $n,$t { "\$.{$ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11702	11828	
==>"PGE::Rule", "p6rule"
    $P1 = $P0(mob)
    unless $P1 goto end
    $S0 = $P1
    mob["arg"] = $S0
    pos = $P1.to()
    mpos <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10480	10583	
==>r, you can use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10480	10583	
==>r, you can use
'_' as a replacement for '-' in header names.

The header() method accepts multiple ($fie <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7476	7600	
==>turn "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7476	7600	
==>turn "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($size * 3).map:{ c <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2177	2302	
==>nt.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2177	2302	
==>nt.List) { return @list };
    #if (want.Hash) {
    #  my %res = map { rx:perl5/^(.*?): (.*)/; ($0 => $1) }, @list;
    #  re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11161	11296	
==>],
      family => 'exact',
      data => [$data],
      vis => [$vis],
    }, $class;
    return $self;
  }

  sub visual {
    my $sel <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7636	7758	
==>chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(870 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7636	7758	
==>chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr(870 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1005	1133	
==>[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1005	1133	
==>[0]}->{from} || 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #p <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11682	11799	
==>mp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11740	11857	
==>mp_ok() though the following syntax:

  cmp_ok('test', &infix:<gt>, 'me', '... testing gt on two strings');

However t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	464	637	
==>{
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        dele <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	464	637	
==>{
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            ${$_}{fixity} = $opt{fixity};
        }
        $h{list} = $a;
        dele <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	826	973	
==>->new(map { &$f($_) } @$self);
    }

    sub values { @{ $_[0] } }
    
    package Unit;
    sub new {
        my $class = shift;
        my $valu <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1925	2020	
==>ry.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http:/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1925	2020	
==>ry.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|http:/ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2479	2600	
==>difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2479	2600	
==>difference( $set2.span );

    # TODO - simplify the result if both sets have the same recurrence

    my $span1 = $set1.s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1728	1834	
==>ir).  (The value of the 
pair is currently unused, but for forward compatibility it should always be the 
v <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1728	1834	
==>ir).  (The value of the 
pair is currently unused, but for forward compatibility it should always be the 
v <==
2	/Users/nnunley/pugs/examples/cookbook/test.pl	210	356	
==>it

use File::Compare qw(compare);


my $pugs = "../../pugs";

foreach my $p6 (<01strings/*.p6>) {
    (my $f = $p6) =~ s/.p6$//;
    my ($dir, $fi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9827	9944	
==>[0]  # XXX - code\n";  
}        
sub node::dot {
    node::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8498	8598	
==>re creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8498	8598	
==>re creating your tree
# bottom-up, then you might find that 
# when adding hierarchies of trees, your <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	3309	3416	
==>nP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $clas <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	80	187	
==>nP5::Match/;
use strict;
use warnings;
BEGIN {
  __PACKAGE__->mk_accessors(qw/
    /
}

sub new {
  my $clas <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	150	251	
==>f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *in <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	150	251	
==>f g $x } }

# Haskell `...` metaoperator
multi *infix:<`map`>  (Code &f, *@y) { @y.map(&f) }
multi *in <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	3354	3597	
==>args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	3354	3597	
==>args.shift;
                    $fh.print("<H$size>");          
                }
                when 'list' {
                    my $indent = @args.shift;
                    $fh.print("<UL>\n");
                }
                when 'item <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1069	1178	
==>s to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is design <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1069	1178	
==>s to be selected by use of I<tags>; messages whose 
tags haven't been selected won't be printed.  It is design <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3331	3509	
==>{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3578	3756	
==>{ws3}(),
        } 
    }
}

rule concat {
    $<q1> := (<quantifier>) 
    [
        $<q2> := (<concat>) 
        
        { return { concat => [ 
                { quant => $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	20095	20213	
==>te that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	20095	20213	
==>te that the channel names are normalized.

=head2 C<$bot.add_handler("001", -E<gt> $event {...})>

=head2 C<$bot.add_ha <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7001	7208	
==>{
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            ! <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7001	7208	
==>{
                            my $newnum = defined $num
                                            ?? multidex($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            ! <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25991	26086	
==>eading>

Set of Str - This contains zero or more Relation::Example attribute names that
define t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5216	5386	
==>::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5409	5579	
==>::subrule'} = sub {
    my $bool = $_[0] =~ /^\<(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'subrule'=> $1 },
        tail  => $2,
        ( $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	257	348	
==>Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	257	348	
==>Renamed methods: Array.new() -> Array.from_list(); Array.splat() -> Array.to_list
* New List <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22904	22998	
==>ANCH_BOL 
 ROPT_ANCH_GPOS 
 ROPT_ANCH_MBOL 
 ROPT_ANCH_SBOL 
 ROPT_ANCH_SINGLE 
 ROPT_CANY_SEEN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6684	6799	
==>eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6684	6799	
==>eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\\' ? '\\\\' : $_[0];
    return <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8579	8677	
==>eturns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8579	8677	
==>eturns true if all given items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.m <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2669	2768	
==>$code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fie <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2669	2768	
==>$code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \{ BUILD({@fie <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3049	3161	
==>$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \$__v__ })"
}
use Filter::Simple su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18988	19085	
==>urately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy appli <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18988	19085	
==>urately, and it
can support a complete SQL emulation layer on top of it, so that your
legacy appli <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2817	2939	
==>n 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        m <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2817	2939	
==>n 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localhost:8080";
    loop {
        m <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3220	3336	
==>defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<befor <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3220	3336	
==>defined( %param<end> )    { $end =   %param<end>;    $end_is_open =   Bool::False };
        if defined( %param<befor <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	710	815	
==>$val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^(n|N|n <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5925	6036	
==>.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

me <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5925	6036	
==>.closure_previous( $x );
}

method current ( $x ) {
    return $.closure_next( $.closure_previous( $x ) );
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22061	22285	
==>p::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22340	22564	
==>p::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::cons <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	558	656	
==>art }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	558	656	
==>art }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_is_closed   () retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	356	464	
==>built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	356	464	
==>built match tree
3 - a leaf pointer in the match tree
4 - a grammar name
5 - pos - TODO - change #0 ???
6 - t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3413	3515	
==>r::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3413	3515	
==>r::PIL::PILApp
    does Perl::Compiler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compi <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	199	313	
==>ng a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($ex <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	255	363	
==>ng a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" returns 9
sub evaluate (Str $e <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	785	907	
==>.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, In <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	785	907	
==>.write( $footer ) if $footer;
}

method get_test_number
{
    return +@!results + 1;
}

method plan ( Str $explanation?, In <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	195	301	
==>warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @va <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	172	278	
==>warnings;

use Carp 'confess';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @va <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5453	5553	
==>tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::pro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5511	5611	
==>tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::pro <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11631	11734	
==>n image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Acc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11631	11734	
==>n image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header.header('Acc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	3315	3420	
==>ion ], @{ $values{requires} || [] }, ];
    }

    warn "No license specified, setting license = 'unknown' <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3598	3711	
==>1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3598	3711	
==>1.span;
    my $span2 = $set2.span;
    my @intersect = $span1.intersection( $span2 );
    my $inter_recurr = $set <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	513	624	
==>nd_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	513	624	
==>nd_is_open     () { return Bool::False }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16619	16727	
==>the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribution.

While it is possibl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16619	16727	
==>the L<Rosetta::Language> documentation file that comes
with this "Rosetta" distribution.

While it is possibl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17348	17487	
==>name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13769	13908	
==>name$how") }
      }
      elsif (${&Rx} =~ m{ \G (.) }xgcs) {
        $$ret = $S->force_object(anyof_char => $1);
      }

      if ($ret = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4202	4394	
==>e $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whe <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4202	4394	
==>e $fh? die if unlink?
        if ( -e $pmc ) {
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37568	37669	
==>lation is the result of combining all of the source Relations,
such that all common attribute names an <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	42117	42218	
==>lation is the result of combining all of the source Relations,
such that all common attribute names an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8194	8281	
==>%users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8194	8281	
==>%users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users>.delete(no <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1391	1490	
==>n maybe_command();
if ($^O eq 'cygwin') {
    require ExtUtils::MM_Cygwin;
    require ExtUtils::MM_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1312	1407	
==>n maybe_command();
if ( $^O eq 'cygwin' ) {
	require ExtUtils::MM_Cygwin;
	require ExtUtils::MM_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1020	1132	
==>spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_supers <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1020	1132	
==>spans

  From "Set" API:
    * equal/not_equal
    * symmetric_difference
    * proper_subset
    * proper_supers <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	835	949	
==>ot installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privl <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	835	949	
==>ot installed";
    my ($archlib) = ($output =~ /^\s*archlib:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privl <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9516	9687	
==>entry ) {
                $str .= "$entry";
        
            } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
                $str .= '(';
                $str .= join " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1319	1470	
==>entry ) {
            $str .= "$entry";
    
        } elsif ( UNIVERSAL::isa( $entry, 'ARRAY' ) ) {
            $str .= '(';
            $str .= join " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1998	2116	
==>'::Base' => role 'TestBuilder::Test::Base' => {
    attributes => [
        '$.passed',
        '$.number',
        '$. <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	12540	12632	
==>pl_var name=skipped> skipped"><tmpl_var name=skipped></span>,</td>
	      <td class="num test <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2271	2374	
==>u want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2271	2374	
==>u want to read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1005	1193	
==>bject:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1005	1193	
==>bject:
    # (None Yet)

###########################################################################

submethod BUILD (Str :$engine_name!) {

    # This is a quick hack that just tests if t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13849	13954	
==>lback routine
is called with two parameters; the name of the field and a single
value (a string).  If a he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13849	13954	
==>lback routine
is called with two parameters; the name of the field and a single
value (a string).  If a he <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1520	1734	
==>"\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~ <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1520	1734	
==>"\\" ) {
            if ($escaping) {
                $regex ~= "\\\\";
                $escaping = 0;
            }
            else { $escaping = 1 }
            next;
        }
        else {
            $regex ~ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16097	16185	
==>elationalExpressionNoIn> <'>='> <ShiftExpression>
    | <RelationalExpressionNoIn> <'inst <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12721	12818	
==>ate objects without the time part.

Discrete spans take a "units" specifier, which can be either ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12721	12818	
==>ate objects without the time part.

Discrete spans take a "units" specifier, which can be either ` <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1111	1218	
==>es whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"print-based debugging <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1111	1218	
==>es whose 
tags haven't been selected won't be printed.  It is designed for so-called 
"print-based debugging <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13245	13340	
==>ated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements t <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13245	13340	
==>ated (-$x).

- `grep:{...}`

This method returns a recurrence set containing only the elements t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	447	550	
==>{
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	447	550	
==>{
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP::Class-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4404	4522	
==>apture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4416	4534	
==>apture}  if $name eq '$/()' || $name eq '$()';
    
    # XXX - wrong, but bug-compatible with previous versions
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9611	9784	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9890	10063	
==>1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'g <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	357	464	
==>s Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    meth <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	357	464	
==>s Cipher {
    has int $.num_invocations;

    method _head() { return map &ord, 'head'.split('') }
    meth <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19958	20062	
==>val($cc->as_p6);
}


my %macros;
sub p6_macrop5 {
    my($name)=@_;
    $macros{$name};
}
sub p6_def_macr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5875	6010	
==>rint '', " . _emit( $n->{param} ) . ";\n" .
            " print " . '"\n"'
            if $n->{sub}{bareword} eq 'say';
        retur <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	162	271	
==>ns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOT <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	162	271	
==>ns Str is export { %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8574	8706	
==>ily => 'clump',
      type => 'clump',
      vis => $vis,
    }, $class;
  }
}


{
  package Regexp::Parser::branch;
  push @ISA, qw( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4343	4458	
==>['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml

  # th <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4193	4304	
==>['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Perl6.yaml
  # th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3296	3395	
==>ue2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Object- <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3296	3395	
==>ue2>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Object- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2679	2807	
==>_[6],
        } }

    | 'for' exp block
        { $_[0]->{out}= { op1 => $_[1], exp1 => $_[2], exp2 => $_[3], } }

    | SUB BAR <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14771	14872	
==>s (hash new))
     (= &dispatcher ($class: send (dispatcher :descendent)))
     (= $c (WALKCLASS (&dis <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5871	6015	
==>$v)      { +0 }
multi sub ToNumber(JSX::Value::Boolean $v)   { ?$v :: JSX::true :: +0 }
multi sub ToNumber(JSX::Value::Number $v)    { $v }
multi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	16434	16561	
==>@data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'open',
      nparen => $n <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5146	5346	
==>_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5146	5346	
==>_stack);
                %events<end_modifier>($last_mod);
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17515	17610	
==>ITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
sta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17515	17610	
==>ITLE>...E<lt>/TITLE> element
of HTML documents.  I<This header is no longer part of the HTTP
sta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10041	10168	
==>f ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10035	10162	
==>f ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! define <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1553	1676	
==>$self->enter_scope;
    my @params = $self->params;

    # the body is a code ref
    my $v = $prim->body->($self, map { $se <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	1343	1446	
==>ts) {
                _('$.testplan' => $::TestBuilder->FETCH('::TestPlan')->new( '$.expect' => $tests ) <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1643	1748	
==>o deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1643	1748	
==>o deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2752	2861	
==>ugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 a <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2752	2861	
==>ugs matures this will change, but for now, it works :).

= PLATFORM SUPPORT

Currently we only support Win32 a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2977	3091	
==>rn "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<vari <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3826	3940	
==>rn "    $op;\n";
}
sub node::_my {
    my $op =   get_str( $_[0], '$<op>' );
    my $name = get_str( $_[0], '$<vari <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2046	2178	
==>rce:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsisten <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2186	2318	
==>rce:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    sub { 
        # XXX - inconsisten <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8129	8224	
==>e last '=item' directive, followed by any text on the same line.

=item I<start_element ('verbat <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8129	8224	
==>e last '=item' directive, followed by any text on the same line.

=item I<start_element ('verbat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2151	2278	
==>ents, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2151	2278	
==>ents, \&{'statement_control:<if>'};
    *{'infix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11963	12076	
==>->registered_alternatives( \@alts ) if $alt;

    return $alt if $alt;
    return;
}    

=head2 $bool = $inst->re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	709	821	
==>{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = op <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	709	821	
==>{
  getstore $url, '';
};

# FIXME to use a callback
sub getstore (Str $url, Str $file) is export
{
  my $fh = op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19993	20089	
==>tely if it's just the first pass.  This means that force_object()
should be used to create stand- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1550	1658	
==>rms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1550	1658	
==>rms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made automatically by <@xxx> runtime
    # curry <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	316	413	
==>hLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	316	413	
==>hLengths = @MonthLengths;
@LeapYearMonthLengths[1]++;

my @PreviousMonthDoY =
    ( 0, 31, 59, 90, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8607	8716	
==>user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    }) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8607	8716	
==>user, Str $passwd = "" {
      #$self!header($h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    }) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15287	15385	
==>ing methods are available for Span objects:

- `start()` / `end()`

Return the start or end value o <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15287	15385	
==>ing methods are available for Span objects:

- `start()` / `end()`

Return the start or end value o <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16201	16303	
==>rror. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2610	2712	
==>rror. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($symbol) || die $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7850	7947	
==>--- higher-order ruleops



sub ruleop::optional {

    return ruleop::alternation( [ $_[0], ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7583	7677	
==>--- higher-order ruleops

sub ruleop::optional {
    return ruleop::alternation( [ $_[0], ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5179	5278	
==>d as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator obj <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5179	5278	
==>d as_debug_string () returns Str {
    return '  Debug String of a Locale::KeyedText::Translator obj <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31745	31878	
==>exp::NoCode->new;

  # if it failed, reject it how you choose
  if (! $p->regex($regex)) {
    reject_regex(...);
  }

Any regex conta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1332	1451	
==>ecure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1332	1451	
==>ecure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $uri.por <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10255	10397	
==>sif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10255	10397	
==>sif (@_ == 3) {
            %!cookies{@_[0]}{@_[1]}.delete(@_[2]);
        }
        
        $?SELF;
    }
    
    method clear_temporary_coo <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15206	15317	
==>t;
    $self->{digests} = { map { Digest->compute($_) => $_ } $env->values };
    my $ast = shift;

    $self->r <==
2	/Users/nnunley/pugs/util/version_h.pl	98	189	
==>/Pugs/pugs_version.h";
my $base = shift || Cwd::cwd();
my $svn_entries = "$base/.svn/entries <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	263	382	
==>%h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( k <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	263	382	
==>%h = %$match;
    my %opt = @_;
    
    #print "capture ", Dumper($match) if $opt{'fixity'} eq 'circumfix';
    for ( k <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13715	13821	
==>>RPe_NESTED)
      if $tree->[-1]->family eq "quant";

    # on /abc+/, we extract the 'c' from the 'exact' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	412	515	
==>lean though,
# so it should be considered a protected 
# method, which is used to implement the 
# other <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20543	20661	
==>bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20543	20661	
==>bot is logged in.

=head2 C<$botE<lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonl <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33726	33826	
==>responds to a
language like English or French.  The order of these items corresponds to
an individual <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33726	33826	
==>responds to a
language like English or French.  The order of these items corresponds to
an individual <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4699	4859	
==>..     safe   (Scalar)\
\\n   Bool      pre     not     safe   (List)\
\\n   List      pre     gather  safe   (Code)\
\\n   List      pre     map     safe   (Cod <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9973	10084	
==>ce in it, or if
    # we're VMS, since VMS requires all parms quoted.  Also, don't quote
    # it if it's alread <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9172	9293	
==>rotoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10649	10770	
==>rotoconf::Available ) unless @list;
    
        ### XXX objectify properly
        ### XXX no | dependencies, no versions <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3892	4023	
==>);
    }
    pops_left = ret;
    matched = POPi; pops_left--;

    { /* fail captures */
      int i;
      for(i=0;i<=r->nparens;i <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	404	510	
==>?$tz )#?
    returns Date::Gregorian is export {
        #$tz = tz($tz) if $tz.defined and !$tz.isa("Time:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25095	25207	
==>ole combination.  As a special exception, the copyright holders
of Rosetta give you permission to link Rosetta wi <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25095	25207	
==>ole combination.  As a special exception, the copyright holders
of Rosetta give you permission to link Rosetta wi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1371	1507	
==>ical = 1;
            local $Storable::Deparse = 1;

            $sha1->add( Storable::nfreeze($self) );
        };

        $sha1->hexdi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1799	1986	
==>,
                '$.passed'      =>                        0,
                '$.number'      =>      $params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Tes <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5310	5458	
==>ew {
    my $class = shift;
    bless {
        env  => {},
        next => undef
    } => $class;
}

sub create {
    my ($self, $name, $value) = @_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11320	11455	
==>== Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11320	11455	
==>== Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current = $.span.previous( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2534	2636	
==>dule_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2534	2636	
==>dule_name.hs");
    push @to_install, glob("src/*");

    my $cp_to_install = join "\n", map "	\$(CP) $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28066	28179	
==>).

=item C<get_msg_vars()>

This method returns all Message Variable names and values of this object as
a hash re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28066	28179	
==>).

=item C<get_msg_vars()>

This method returns all Message Variable names and values of this object as
a hash re <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4712	4809	
==>reates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4712	4809	
==>reates and returns an empty 
Config::Tiny (pseudo) object.

NOTE: To avoid name collisions, we use <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16796	16973	
==>nform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callba <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16796	16973	
==>nform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshift(@q);
    },

    # Enqueue a new callba <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	301	424	
==>> [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - sheban <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	301	424	
==>> [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

# things that are only valid in the start of a file
# - sheban <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	15892	16014	
==>over

=item chop

 multi Str::chop (  Str  $string is rw                 --> Char )
 multi Str::chop ( Str *@strings = (CAL <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	419	525	
==>rint(('-' x 80), "\n");
print "Testing perl6 naive bayesian script with $test_file\n";
print(('-' x 80), "\ <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	837	936	
==>:TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equi <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	837	936	
==>:TestPlan object and 
a subclass, Test::Builder::NullPlan. 

Test::Builder::NullPlan is roughly equi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17638	17731	
==>::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17638	17731	
==>::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot object. See L<SYNO <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12339	12446	
==>meter is a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12339	12446	
==>meter is a member of the recurrence set.

- `closest( $x )`

Returns the element in the recurrence that is c <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1247	1429	
==>,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.pa <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1247	1429	
==>,
        $.passed,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1932	2047	
==>hod, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1932	2047	
==>hod, $uri, $proto ) = ./parse_request
        or do { ./bad_request; return 0 };
    $proto ||= 'HTTP/0.9';
    $uri <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	781	887	
==>r::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	781	887	
==>r::PIL::PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	319	437	
==>am;# :all;

# use base Exporter;
# @EXPORT_OK = qw(parser nothing End_of_Input lookfor
#                 alternate conc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1605	1749	
==>cter class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1605	1749	
==>cter class in regex below
                        # currently results in parsefail
                        if $v ~~ m:P5/[\x00-\x20()<>@,;:\\\"\[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	795	912	
==>_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a laz <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	795	912	
==>_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a laz <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11136	11226	
==>header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns S <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11136	11226	
==>header (:$status = '200 OK', :$content_type = 'text/html', :$charset, :$location) returns S <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	992	1120	
==>$!";
    }

    ### build an archive file
    my $archive = $path . $Ext;
    {   system( qq[tar --exclude $Pms -czf $Data $path] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4394	4514	
==>} }, @_ if $type;
    return $self->{values}{no_index};
}

sub read {
    my $self = shift;
    $self->include_deps( 'YAM <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20031	20124	
==>,$octstr) }
 multi prefix:<:2> ( Str $binstr = CALLER::<$_> --> Num )
{ Pugs::Internals::strin <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	908	1120	
==>$dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add s <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	908	1120	
==>$dir, $abs ) {
                    $.results.push($abs);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	900	1014	
==>t.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	900	1014	
==>t.substr($pos.pos-1, 1) eq "\n";
    }
}

method end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2072	2174	
==>ents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2072	2174	
==>ents a node in the Perldoc DOM tree (see L<Perldoc::DOM> for more).
The DOM tree has a root node, which <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10620	10751	
==>~ s/^\s+//;
        $switch =~ s/\s+$//;
        push( @switches, $switch ) if $switch ne "";
    }

    return @switches;
}

=head2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	82	205	
==>$class, $source) = @_;
    my ($stack, $subexp) = ([], []);
    
    my @tokens = ($source =~ /\(|\)|\'|\"|[a-zA-Z0-9_\:\=\! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7697	7819	
==>template text for the message key, so
        # interpolate the message vars into it and return that.
        $text = .inte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7697	7819	
==>template text for the message key, so
        # interpolate the message vars into it and return that.
        $text = .inte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	600	708	
==>=head2 $dir = $inst->control_dir( $pkg_name )

=cut

sub control_dir {
    my $self = shift;
    my $pkg  = s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9432	9529	
==>e_2 = $parser->captures(2);

=head2 Walking the Tree

To walk over the created tree, create an ite <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	679	772	
==>notator->annotate($self, @_);
}

sub emitter_class { "Blondie::Backend::C::Emitter" }

sub emi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18100	18199	
==>copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18100	18199	
==>copy of this Node plus all of its descendent
Nodes (if any) as a tree of primitive Perl data structu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12198	12304	
==>from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12198	12304	
==>from, Str $command, Str $object, Str $rest) {
    my $from_nick; $from_nick = $0 if $from ~~ rx:P5/^([^!]+) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5293	5400	
==>allows r/w access to the value.

=item B<apply (closure) return list>

The closure here will be passed the c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9336	9507	
==>mented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9336	9507	
==>mented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commit' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	641	772	
==>((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $fi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	641	772	
==>((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1861	1983	
==>leop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1872	1994	
==>leop::non_greedy_star( \&any ),
        ),
        ruleop::constant( "\'>" ),
    ),

    \&negated_subrule,
    \&non_capt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	810	937	
==>o{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	810	937	
==>o{use Data::Dumper; Dumper($m)};
  return $m;
}
       
# old version       
sub any {
    my $grammar = shift;
    return $gram <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1255	1479	
==>= "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $inpu <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1255	1479	
==>= "$val";
                    }
                    else {
                        %self<_err_str> = "Syntax error at line $cnt: $line" and return FALSE;
                    }
                }
            }
            $inpu <==
2	/Users/nnunley/pugs/util/package-osx.pl	4856	4953	
==>/man/man3/Perl6::Bible::S11.3pm
        /usr/local/man/man3/Perl6::Bible::S12.3pm
        /usr/loc <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4094	4198	
==>racking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string positio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4278	4382	
==>racking. Match faster. Defaults to 1 in Rules and Tokens.

=item * pos => $pos - Specify a string positio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16265	16359	
==>ective mechanism for
applications and packages that empowers single binaries to support N
local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16265	16359	
==>ective mechanism for
applications and packages that empowers single binaries to support N
local <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1774	1878	
==>/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1774	1878	
==>/;
    $makefile =~ s/("-MExtUtils::Command::MM")/"-Iinc" $1/g;
    close MAKEFILE;
    open MAKEFILE, '> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20657	20756	
==>bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field na <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20657	20756	
==>bar> instead of "Foo-Bar", you might set it like
this:

  $h.header(":foo_bar") = 1;

These field na <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2601	2701	
==>ovides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, sep <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2601	2701	
==>ovides the following methods:

=over 8

=item C<$q.parse_params($data)>

Parses the given string, sep <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9405	9549	
==>crypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9405	9549	
==>crypting decrypt> {
            $.mode = "deciphering";
        }
        default { die "Unrecognized mode $.mode" }
    }
}

# What they need to <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30169	30278	
==>e's header, in which case it returns the identity-one
Relation::Example or the invocant Relation::Example resp <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5945	6069	
==>re, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $pat <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5945	6069	
==>re, maybe
    # replace this with 'is copy' parameter
    # trait at some point
    return cwd() if $_path eq '';
    my $pat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2489	2628	
==>refix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circumfix( $n )
            if $n->{fixity <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4472	4577	
==>significant. Defaults to 1 in Rules.

=item * Perl5 => 1 - Use Perl 5 grammar and semantics for Regex.

=h <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	650	740	
==>--------------------------------------
## private methods

my method set_height ($self: Tre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	650	740	
==>--------------------------------------
## private methods

my method set_height ($self: Tre <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	620	731	
==>if (my $file = "lib/" . $self->name . ".pm") {
        $file =~ s!-!/!g;
        $self->version(ExtUtils::MM_Uni <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11924	12022	
==>for the header() method, the field name ($field) is not case
sensitive and '_' can be used as a rep <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11924	12022	
==>for the header() method, the field name ($field) is not case
sensitive and '_' can be used as a rep <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	16845	16963	
==>t, and most expensive later.
    if (+@others == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15132	15229	
==>imilar version which will overwrite the current line (by use of
\r and such).  C<$ml> may be empty <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15060	15177	
==>ic);>

=back

All these routines modify the string passed as the first argument, if
called in a void context.  In scal <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15060	15177	
==>ic);>

=back

All these routines modify the string passed as the first argument, if
called in a void context.  In scal <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7818	7914	
==>\$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7806	7902	
==>\$bool = \$hash->{'bool'};
$_[1]     \$index{$rnd} = \$#match+1 unless defined \$index{$rnd};
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1738	1870	
==>eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www- <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1738	1870	
==>eq 'post') {
            my $type = $self.header('Content-Type');
            
            if (!$type || $type eq 'application/x-www- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12215	12323	
==>od bless (opaque $class: str $canidate, hash %params) returns opaque {
    $canidate //= 'P6opaque';
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1537	1644	
==>e is good enough for many purposes.  
Although the interface is said to be procedural, it is invoked via two <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1537	1644	
==>e is good enough for many purposes.  
Although the interface is said to be procedural, it is invoked via two <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1368	1502	
==>ou want to do is write a test script, consider
using Test::Simple.  Test::Harness is the module that reads the
output from Test::Simple <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	154	261	
==>h) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

su <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	154	261	
==>h) {
    (@path) || die "Insufficient Arguments : You must specify a path";
    @!search_path = @path;
}

su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	524	630	
==>ial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SI <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	524	630	
==>ial case: check if we are in Pugs itself
    if (-e "$FindBin::Bin/util/PugsConfig.pm") {
        local $SI <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	311	407	
==>ng',@_); }
sub node_a { hlp('array1',@_); }
sub node_a2{ hlp('array2',@_); }
sub node_h { hlp('ha <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	970	1151	
==>($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	970	1151	
==>($^new); $old; }
        );
    }
    
    multi method uri (URI $new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2414	2516	
==>e;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2414	2516	
==>e;
*Return = Pugs::Compiler::Rule->compile(q(
    <'return'> <ws> <Expr> \\;?
    { use v5; return "ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3144	3247	
==>to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3144	3247	
==>to create references, etc. like the P5 version?
# I figure it shouldn't be needed since the parameters a <==
2	/Users/nnunley/pugs/util/package-osx.pl	2513	2611	
==>/doc/pugs/docs
        /Users/dromano/dev/pugs/LICENSE /usr/local/share/doc/pugs/LICENSE
        /u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41010	41102	
==>igured out the second pass.

=item $parser->error(RPe_ERRMSG, ARGS...)

Throws a fatal error. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48769	48911	
==>>new('version'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => metho <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1418	1520	
==>turn %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1418	1520	
==>turn %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.keys;
}

method i <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5599	5706	
==>_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5599	5706	
==>_element>('line_interpolation');        
}

=pod

=head1 NAME

Pod::Event::Parser - A simple event based POD <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1659	1765	
==>:values (@array ; MatchTest *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1369	1472	
==>tringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

metho <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1369	1472	
==>tringify }.join( ',' );
}
method size () returns Object {
    return [+] @.spans.map:{ .size };
}

metho <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1240	1360	
==>ddr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1240	1360	
==>ddr = %*ENV<REMOTE_ADDR> if %*ENV<REMOTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_param <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1085	1215	
==>e },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1096	1226	
==>e },
        tail  => $tail,
        capture => [ { non_capturing_subrule => $code } ],
    }
}

sub negated_subrule {
    my ( $co <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3808	3905	
==>lechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<g <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3808	3905	
==>lechschmidt, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<g <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	523	652	
==>acktrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $mat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	523	652	
==>acktrack()();
        }
    });
}

method any_char () {
    $.Parser.new(parse => sub ($match, &continue) {
        my $pos = $mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19415	19542	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19694	19821	
==>e_block->( $match ) ],
        }; 
    }
;
    push @statements, \&macro_decl;
    push @terms, \&variable;
    push @terms, \&l <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13692	13793	
==>e in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13692	13793	
==>e in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb => " <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3992	4076	
==>CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3992	4076	
==>CD])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	955	1057	
==>d2 Using the API

The Cipher API has functional, procedural, and object-oriented interfaces.  The 
func <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	955	1057	
==>d2 Using the API

The Cipher API has functional, procedural, and object-oriented interfaces.  The 
func <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9336	9453	
==>@!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9336	9453	
==>@!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_height i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18834	18931	
==>n alias for this method so you
can avoid this misspelling in your programs and still send the righ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18834	18931	
==>n alias for this method so you
can avoid this misspelling in your programs and still send the righ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2138	2238	
==>em glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2138	2238	
==>em glob_to_regex

Takes a glob pattern and translates it to a regex.

=back

=head1 AUTHOR

Sebastian <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5026	5227	
==>each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5038	5239	
==>each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $/()<name>
    # $()<name>
    i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10483	10618	
==>et_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10483	10618	
==>et_cookie(*@_); } });
    }
    
    method scan (Code $callback) {
        for %!cookies.keys.sort -> $domain {
            for %!cooki <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	75	185	
==>Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method wr <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	75	185	
==>Builder::Output;

class Test::Builder::Tester::Output
{
    has @!output;
    has @!diagnostics;

    method wr <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5466	5560	
==>e the response code or response headers
(like 'Content-Type') when you are accessing the web us <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5466	5560	
==>e the response code or response headers
(like 'Content-Type') when you are accessing the web us <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9486	9611	
==>ostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    la <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9486	9611	
==>ostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside },
    la <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12702	12797	
==>Returns the start element in the recurrence.

Returns negative infinite if the recurrence is inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12702	12797	
==>Returns the start element in the recurrence.

Returns negative infinite if the recurrence is inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4007	4148	
==>tches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4007	4148	
==>tches[1]) eq 'Pugs::Runtime::Match';
            ### 2nd match: $matches[1]
            if ( ! $matches[1]{abort} ) {
                # die "n <==
2	/Users/nnunley/pugs/util/claim_drift.pl	592	697	
==>ake sure you are in the top level of a pugs
    working directory, and that you have a copy of DrIFT one l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2117	2256	
==>ce => 'equal',
        #~ other => 'prefix:<+>',
    #~ );
    
    #__PACKAGE__->add_rule(
    #    name => 'say',
    #    assoc => 'left' <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8234	8356	
==>XT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8234	8356	
==>XT];
        if ($next and "@{$block->[CLASSES]}" eq "@{$next->[CLASSES]}") {
            shift;
            $block->[TEXT] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7746	7851	
==>ar::Match)



  $match_against - a string to match

  $next_state    - an optional "continuation"

  $capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7484	7585	
==>ar::Match)

  $match_against - a string to match
  $next_state    - an optional "continuation"
  $capt <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1347	1449	
==>atch::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1347	1449	
==>atch::str( match::get( $_[0], '$<expr>' ) );
    $expr =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	10707	10813	
==>what hash/code interpolate to?
    # $value = join('', eval $name) if $name =~ /^\%/;

    return "$_[1] ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4600	4701	
==>variable>'));
   $var =~ s/^\%/\$/;
   my $key = emit(get_data($_[0], '$<key>'));
   return $var."->{" <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5435	5586	
==>had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5899	6050	
==>had, therefor we don't need to install it
                    ### This above section works for an OR search.
                    ### The [ ] is passed f <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	518	629	
==>key} =~ /\b$func\b/;
        push @{ $nodes{$key} }, $func if $funcs{$key} =~ /\b$func\b/;
#		$g->add_edge($key, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3650	3796	
==>{
        'reason' => sub { _('$.reason') },
        'status' => sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH(':: <==
2	/Users/nnunley/pugs/util/grokprims.pl	972	1098	
==>b->{assoc} or
               @{$a->{args}} <=> @{$b->{args}}} @ops
        ) {

  my $example;
  
  local $_=$op->{assoc};
  my <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	9399	9551	
==>{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10390	10542	
==>{
        if($pos_old >= $X::pos){
          TAILCALL(&$c,$noop);
        }
        $pos_old = $X::pos;
        goto &$frest;
      };
      $frest = sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2675	2829	
==>ch->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2675	2829	
==>ch->{state} = $state;
            return $_[3] = $match if $match->{bool} || $match->{abort};
        }
        undef $_[3];
        return;
    }
}

sub c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8293	8398	
==>am {
		my $self = shift;
		my $param = shift;
		
		$self->new_pad( $param->val, my $placeholder = Blondie: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16406	16511	
==>d parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16406	16511	
==>d parameter
$parent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15285	15429	
==>"<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are no <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15279	15423	
==>"<$cmd> not implemented";
            return;
        }
        if ( exists $char_class{$cmd} ) {
            # XXX - inlined char classes are no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	507	603	
==>iler Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Ac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	507	603	
==>iler Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Ac <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2728	2828	
==>$code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$construc <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2728	2828	
==>$code = "\n  sub new(\$v0) \{ BUILD({@fields[0]} => \$v0) }";
    $code = common_code($data,$construc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4076	4205	
==>y { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4134	4263	
==>y { code() };
    if ($!) {
        &Test::ok.goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclai <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3497	3602	
==>ng..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3497	3602	
==>ng..
    say "Symmetric difference: "~$self.stringify~" % "~$other.stringify if $DEBUG;
    my $one_diff = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3129	3231	
==>Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3129	3231	
==>Headers object,
if they are present:

=over 8

=item 1. Content-Length

=item 2. Content-Type

=item 3. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24500	24592	
==>odified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO E <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24500	24592	
==>odified by C<Net::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1628	1758	
==>e,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1639	1769	
==>e,
        ),
        ruleop::constant( ')' )
    );

@rule_terms = (
    \&capturing_group,

    # <'literal'> literal \*
    rule <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47266	47396	
==>get('$self:')->get_attr(symbol->new('%:namespace'))->fetch($e->get('$label')));
                  }));
                $e->get('$re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17763	17933	
==>type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17763	17933	
==>type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19487	19592	
==>t be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19487	19592	
==>t be included in a C<407 Proxy Authentication Required>
response.

=item $h.authorization

=item $h.proxy_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2080	2180	
==>ut deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

= <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2080	2180	
==>ut deciphers instead of enciphering.  (There may not be a 
distinction for some ciphers.)

=back 4

= <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2367	2504	
==>, ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2367	2504	
==>, ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. Your compiler must be sick." }
                }. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2916	3018	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	947	1049	
==>y ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    return $S->object(e <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3785	3886	
==>PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Pe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3785	3886	
==>PIL::PILAssign
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.left;
    has Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2813	2957	
==>rule(
        name => 'do',
        assoc => 'non',
        precedence => 'equal',
        other => 'infix:<IF>',
    );
    __PACKAGE__->add_rul <==
2	/Users/nnunley/pugs/util/version_h.pl	1497	1674	
==>$? == 0) {
                if (my ($line) = grep /(?:file|svn|https?)\b/, @info) {
                    ($revision) = $line =~ / (\d+)$/;
                }
            }
        } <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	2250	2348	
==>cv = _get_cv(caller_cv(1));
    my $invocant  = ref($_[1][0]) && ref($_[1][0]) eq 'ARRAY' ? undef : <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4456	4573	
==>tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4456	4573	
==>tmp;
    return $res;
}
method difference ($self: $span ) returns Set::Infinite {
    my $span0 = $self.set;
    my $s <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10935	11145	
==>,
                                              *@values
                             --> List )

Returns C<@values> sorted, using criteria C<$by> or C<@by> for
comparisions. C<@by> differs from C<$by> in that e <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12504	12654	
==>( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] better written as $a[1]"
        if (   (  exists $n->{exp2}{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1579	1702	
==>\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1567	1690	
==>\n\";\n" .
        #"  print \"match arg_list = \@{[\%{\$_[1]} ]}\n\" if defined \$_[1];\n" .
        "  \$pos = 0 unless de <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	8771	8917	
==>l => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	8771	8917	
==>l => $match->{bool},
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'before' or 'after' sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	358	474	
==>is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	358	474	
==>is export {
    # this is an ugly hack since we dont
    # have split(<regexp>, Str) yet.
    my @dirs = split("/", $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	454	568	
==>ule, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	454	568	
==>ule, class, grammar extending to the end of file 
*header = $rule->compile( q(
    { return [] }
) )->code;

# main <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4752	4855	
==>ttp://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simpl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4752	4855	
==>ttp://www.sn.no/")) {
     ...
  }

=head1 DESCRIPTION

This module is meant for people who want a simpl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	184	305	
==>gument a list:



0 - a string to match

1 - an optional "continuation"

2 - an optional "flags" hashref

    'capture'=>1 <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	175	291	
==>gument a list:

0 - a string to match
1 - an optional "continuation"
2 - an optional "flags" hashref
    'capture'=>1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1009	1138	
==>y $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1009	1138	
==>y $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cooki <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22521	22615	
==>outside
environment at all.

A Relation object has 2 main attributes (implementation details su <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27073	27167	
==>outside
environment at all.

A Relation object has 2 main attributes (implementation details su <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15847	15948	
==>rl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> ot <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15847	15948	
==>rl -c Bar.pm

=head1 DESCRIPTION

This module provides a system for writing modules that I<compile> ot <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4748	4853	
==>bject (usually the entire match string).

=head2 0+

When used as a number, the match object returns the n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4748	4853	
==>bject (usually the entire match string).

=head2 0+

When used as a number, the match object returns the n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5314	5412	
==>er object to clear its internal state as completely as possible. 
This is automatically done as par <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5314	5412	
==>er object to clear its internal state as completely as possible. 
This is automatically done as par <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8298	8451	
==>val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8298	8451	
==>val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasonable warning? <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4796	4940	
==>_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4646	4787	
==>_[0] || $_[0] !~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3242	3342	
==>.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3242	3342	
==>.intersection(@args);
}
multi sub *infix:<%> (Set $one, *@args) {
    $one.symmetric_difference(@args <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21255	21397	
==>($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->er <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17676	17818	
==>($S) = @_;
    my $c = '(?<';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
    }

    $S->er <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7932	8029	
==>lement ('item')>

This event is fired when an '=item' directive is reached, the next event fired w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7932	8029	
==>lement ('item')>

This event is fired when an '=item' directive is reached, the next event fired w <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18890	18981	
==>str(Str $s, StrLen $offset ; StrLen $length,   $replace)
{ Pugs::Internals::substr($s,$offse <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4782	4878	
==>set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4782	4878	
==>set1.recurrence, span => $_ ) };
    @intersect = @intersect.map:{ $set1.new( recurrence => $diff <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3327	3469	
==>$_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4176	4318	
==>$_[0], '$<list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13924	14032	
==>_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13924	14032	
==>_save );

    # When restoring.
    my $hash_was_saved = MyPersist.get();
    my $cloned_doc = Rosetta::Model <==
2	/Users/nnunley/pugs/util/version_h.pl	409	509	
==>e $Rev$), because
# that is only updated when the file in which the keyword appears
# is modified.
my <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	20621	20704	
==>[10|Fx],[10|Fx],B0,B0,E0,E0) :- flag_m(E0), !.
rm(word_boundary,[C|Fx],[C|Fx],[],[], <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	228	325	
==>e::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	228	325	
==>e::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5361	5479	
==>Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

method c <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5361	5479	
==>Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

method c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2949	3056	
==>Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # ne <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2949	3056	
==>Set::Infinite::Functional ?
    my $span0 = $self.set;
    return $span if $span.isa( $span0.ref );
    # ne <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	864	979	
==>t.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths) <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	864	979	
==>t.

=kwid

= NAME

lib - A pragma for addition of paths to @*INC

= SYNOPSIS

  require lib;
  import('lib': @paths) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6746	6847	
==>rn $S->force_object(anyof_char => chr(hex $1), "\\x$1") if $cc;
      return $S->object(exact => chr(h <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1243	1358	
==>{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) u <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1243	1358	
==>{location};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20459	20567	
==>OTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16880	16988	
==>OTERM) unless ${&Rx} =~ m{ \G \) }xgc;
    return;
  });

  # not implemented (?$...)
  $self->add_handler('( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5544	5645	
==>A-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is exp <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5544	5645	
==>A-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str is exp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12619	12721	
==>ctually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12619	12721	
==>ctually connect to the database / talk to the underlying dbms;
    # if database doesn't exist yet, try <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9888	10013	
==>ring
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        retur <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11365	11490	
==>ring
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Meta required";
        
        retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1344	1464	
==>.
        #"    warn 'rule argument is undefined' unless defined \$_[0];\n" .
        "    \$_[0] = '' unless defined \$_ <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	668	778	
==>$a) {
  return $a.isa(Code);
}

## XXX - use sub(Siglet) instead
# sub promise(Code $f) { $f }

## Chapter 6 se <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	5184	5294	
==>e = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2726	2836	
==>e = get_str( $_[0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    return "    $op $name, $co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	37010	37131	
==>me place
    $self->add_handler('&' => sub {
      my ($S) = @_;
      push @{ $S->{next} }, qw< atom >;
      return $S-> <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	124	230	
==>) { $arg = 123; } # geht nicht!
#="is rw"  Parameter-Trait
sub swap (*@_ is rw) { @_[0,1] = @_[1,0] }
#="is <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6075	6200	
==>Part {  # see 7.6
      <IdentifierStart>
    | <UnicodeCombiningMark>
    | <UnicodeDigit>
    | <UnicodeConnectorPunctuation <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	148	295	
==>ray {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.pu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	148	295	
==>ray {...}
method _zeroize()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.pu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3963	4066	
==>module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3963	4066	
==>module Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        re <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1461	1562	
==>irst-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`per <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1461	1562	
==>irst-served/ basis, so just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`per <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	13821	13926	
==>UQUANT (-10)

Useless (%s%s) -- %suse /%s modifier

=item RPe_NOTREC (-11)

Sequence (?%.*s...) not recogn <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3282	3387	
==>$self.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3282	3387	
==>$self.complement_next, $set.complement_previous, $set.complement_next ),
        universe =>            $u <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	207	311	
==>s::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	101	205	
==>s::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Install: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	19258	19362	
==>d2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently connected.

Not <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	19258	19362	
==>d2 C<$bot.connected>

Returns a true value if the bot's socket to the server is currently connected.

Not <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24847	24948	
==>ns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::K <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24847	24948	
==>ns, you can assume that it has succeeded, even if the return
value is undefined.

=head2 The Locale::K <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9485	9618	
==>');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9485	9618	
==>');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('d <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16280	16389	
==>tent_type

The Content-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16280	16389	
==>tent_type

The Content-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.conte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8381	8502	
==>ruleop::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8089	8206	
==>ruleop::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1853	1970	
==>urn value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1853	1970	
==>urn value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20558	20648	
==>le.  F<Regexp::Parser> installs its handlers
in F<Regexp/Parser/Handlers.pm>.  That file mi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2383	2491	
==>dlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2383	2491	
==>dlers() {
    # Default (passive) handlers
    # First event we get, indicating a successful login
    ./add_ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	517	623	
==>$::CLASS->new('$.testplan' => $plan, '$.output'   => $output)) 
                unless defined __('$:single <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	279	375	
==>t;

use Cwd;
use File::Find;
use File::Spec::Functions ':ALL';
use File::Path;
use File::Basename <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10336	10477	
==>->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @class <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10336	10477	
==>->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	832	943	
==>ract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	832	943	
==>ract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12734	12877	
==>t.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_k <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12734	12877	
==>t.
    try {
        $conn.open();
    };
    if (my $e = $!) {
        if ($e.does(Locale::KeyedText::Message)
                and $e.get_msg_k <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39509	39617	
==>edText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39509	39617	
==>edText is Copyright (c) 2003-2006, Darren R. Duncan.  All rights
reserved.  Address comments, suggestions, an <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14852	14958	
==>s "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C<use HTML:: <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14852	14958	
==>s "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C<use HTML:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21643	21776	
==>d1 DESCRIPTION

This module holds the init() method for the F<Regexp::Parser> class,
which installs all the handlers for standard Perl <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Type.pm	782	887	
==>ferent entity to the objects that are
created when you use;

  type Bar;
  subtype Foo of Str where { rx/^ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6142	6234	
==>_type eq $pkg_this;
	$used{$pkg_type}=1 if $pkg_type;
	$used{$pkg_rep}=1;
	$used{$pkg_node}=1 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	997	1139	
==>invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       name          => substr($param->{var}, 1) });

	if ($param->{invocant} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5628	5773	
==>me>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5640	5785	
==>me>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match::get( $match, '$()' ) } ) {
            ne <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	12035	12156	
==>p6_as_num called on undef"); $nan },
      numeric     => sub { $_[0] },
      non_numeric => sub { 0+ $_[0] },
      scal <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	840	935	
==>desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$dep <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	898	993	
==>desc?, :$todo, :$depends) returns Bool is export {
    Test::proclaim($cond, $desc, $todo, :$dep <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14591	14737	
==>turn 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14585	14731	
==>turn 
            "$_[1] ... negate( '$_[0]', \n" .
            call_subrule( $_[0], $_[1]."  " ) .
            "$_[1] )\n";
    }
    if ( $cmd eq <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11784	11884	
==>ic commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11784	11884	
==>ic commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	128	233	
==>r_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	128	233	
==>r_software returns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	682	781	
==>file\" to upload... ";

  open my $fh, "<", $file or die "Couldn't open \"$file\" for reading: $!\n" <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19605	19703	
==>dText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19605	19703	
==>dText-(1.72.0...)|Locale::KeyedText> (for error messages).

=head1 INCOMPATIBILITIES

None reported <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17334	17433	
==>*

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile controls <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17334	17433	
==>*

Ability to mix many source filterish modules in a much more sane manner.
Module::Compile controls <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1363	1471	
==>return $self->position();
}

sub as_bool {
  my ( $self ) =  @_;
  return $self->position() > 0;
}

sub as_in <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6987	7094	
==>% $n2_32;
    return $Result4-$n2_32 if $Result4 >= $n2_31;
    return $Result4;
}

# 9.6
multi sub ToUint32 <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5144	5279	
==>orrectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5202	5337	
==>orrectly yet
        if $*OS eq "browser" {
            Test::proclaim(1, "", "skip $reason", :$depends);
        } else {
            T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Eng.pm	245	354	
==>my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $numbe <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1103	1212	
==>my_invert(): argument $number is missing],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert(): argument $numbe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3353	3491	
==>{
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3353	3491	
==>{
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3636	3754	
==>c_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->mayb <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3636	3754	
==>c_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM->mayb <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7423	7582	
==>tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_f <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7423	7582	
==>tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_f <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	187	314	
==>::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	187	314	
==>::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type class for PIL nodes.  vtype() returns a string that represents <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1402	1501	
==>rkers for container

allocation, as well as the compile-time-bound values for them.

It includes the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1342	1439	
==>rkers for container
allocation, as well as the compile-time-bound values for them.
It includes the <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2801	2907	
==>, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2801	2907	
==>, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift)) +< $ashift) +| ($ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5560	5675	
==>to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5560	5675	
==>to_remove) returns Tree {
    my $index = 0;
    for @!children -> $child {
        ($child === $child_to_remove) && <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3912	4050	
==>r};

        # sometimes the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if you do:
        #   print "not " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11619	11765	
==>le>'
    ) );
    return "$_[1] ruleop::alternation( \\$code )\n";
}
sub node::named_capture {
    my $name = match::str( match::get( 
        { ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2469	2576	
==>o');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2469	2576	
==>o');
    
    $q.clear();

=head1 DESCRIPTION

An object of this class represents the query string portion o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11220	11352	
==>( \) /$1 match::get( \$_[0], '\$()' ) /sgx;
    #print "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $cod <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1914	2039	
==>DOUT;
print $gd->png;

# Input:  (2, 5, 9, 86400+17, 2*86400+35, 4*86400+50)
# Output: (3,       4,        5,          5, 6)
s <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6140	6248	
==>e('\B') if $re eq '\B';
    return $o->mk_eater_for_re('\b') if $re eq '\b';
    # \G
    return $o->mk_eater <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1120	1324	
==>as Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1120	1324	
==>as Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod BUILD (Str :$m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2621	2751	
==>me if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2621	2751	
==>me if possible.
    if ( !($vol  ~~ rx:perl5{^[a-zA-Z]:$}) &&
           $vol  ~~ rx:perl5{[^\\/]$}      &&
           $file ~~ rx: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9800	9902	
==>ement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zero <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9800	9902	
==>ement for them.
method finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zero <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15613	15728	
==>span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case).

- `start_is_open() <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15613	15728	
==>span 
in an invalid state, such as `start` bigger than `end` (the span is
emptied in this case).

- `start_is_open() <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25286	25405	
==>ed %d/%d tests, %.2f%% okay.>

For any single script that has failing subtests statistics like the
above are printed.

= <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14698	14796	
==>ize quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen.txt
GRUB

for(
  [$splashscree <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1349	1447	
==>piler for Perl 6 style "Perl5" regex

=head1 DESCRIPTION

This module provides an implementatio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1328	1441	
==>----- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1328	1441	
==>----- end Constructor 
  
=cut

class Recurrence-0.01
    does Set::Symbols
{
    has Code $.closure_next;
    has <==
2	/Users/nnunley/pugs/t/packages/Export_PackB.pm	0	135	
==>module t::packages::Export_PackB {
  use t::packages::Export_PackA;

  sub does_export_work () {
    try { exported_foo() } == 42;
  }
} <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16263	16357	
==>e_state>

  $strap->_reset_file_state;

Resets things like C<< $strap->{max} >> , C<< $strap->{ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1424	1534	
==>is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encoding <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1424	1534	
==>is export {
    unless $encoding eq ('iso-8859-1' | 'utf-8') {
    die "Currently iso-8859-1 and utf-8 encoding <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3984	4119	
==>ity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3984	4119	
==>ity = $1 if $fixity =~ /^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1227	1332	
==>: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1227	1332	
==>: $text";

=head1 DESCRIPTION

C<Net::IRC::SeenExt> is a role which installs a event handler listening
for <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18554	18647	
==>any embedded class that is I<entirely> redundant (that is, I<every>
character in that embedded <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	297	437	
==>meGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::P <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	297	437	
==>meGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        ./gen($tree, $ng);
    }

    method gen (Perl::Compiler::P <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7451	7548	
==>_method (opaque $self: symbol $label) returns bit { 
    %:methods.exists($label);
}

(method has_ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	357	455	
==>tructors should emit error messages if there are unknown parameters
    * Lazy lists are not implem <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	357	455	
==>tructors should emit error messages if there are unknown parameters
    * Lazy lists are not implem <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	415	583	
==>m
       p6_Rat
       p6_Str
       p6_Pair
       p6_Array
       p6_Hash
       p6_Ref
       p6_List
       p6_Scalar
       p6_new
       p6_new_code_CODE
       p6 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	2276	2381	
==>r;  # The root directory of the output tree.
my $start_dir = cwd;

# ref to hash of information about link <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	401	507	
==>,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	412	518	
==>,
# because they are too frequent and they are too slow using the basic
# rule parser
# UPDATE - move these <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	592	720	
==>./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel) <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	592	720	
==>./find_packages($dir) -> $package {
               my $rel = abs2rel( $package, $dir );
               my $class = splitdir($rel) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3899	3995	
==>rn the appropriate date.

Any other string will be passed to `Date::Something::WaveHands` for
par <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3899	3995	
==>rn the appropriate date.

Any other string will be passed to `Date::Something::WaveHands` for
par <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22113	22336	
==>] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22392	22615	
==>] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleop::constant( "\;" )
       ,
       )
    ;
        my $ma <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1388	1521	
==>ait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1388	1521	
==>ait at some point
    my @path = @_path;
    my @new_path;
    my $i = 0;
    loop ($i = 0; $i < @path; $i++) {
        @path[$i] ~~ s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	2995	3098	
==>hese plural functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7374	7476	
==>hese plural functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1434	1539	
==>e call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1434	1539	
==>e call, hiding the 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	542	664	
==>r:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - bett <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	542	664	
==>r:
    * new() from Array
   
  Methods:
    * set_start_open / set_start_closed
    * set_end_open / set_end_closed - bett <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13276	13402	
==>$t->data([+=], \@data)");
      }
    }
    $self->{data};
  }

  sub walk {
    my ($self, $ws, $d) = @_;
    unshift @$ws, su <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9137	9244	
==>.

=cut

sub _switches {
    my($self, $file) = @_;

    my @existing_switches = $self->_cleaned_switches( $ <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4425	4522	
==>e.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects:

- `y <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4425	4522	
==>e.new('yesterday')`

= OBJECT METHODS

The following methods are available for Date objects:

- `y <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21494	21602	
==>ay store values of the same class;
every Relation tuple must be distinct from the other tuples.  All Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26046	26154	
==>ay store values of the same class;
every Relation tuple must be distinct from the other tuples.  All Relation <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1561	1661	
==>t such
# a usable module.  Any further efforts should likely take place there.

# Some raw developmen <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2130	2230	
==>nfig{make} @_` };
my $dev_null = File::Spec->devnull;

my $output ;# = svn("up") or die "Could not up <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	192	291	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONS <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	192	291	
==>ues used by packages in this file:
my Str %TEXT_STRINGS is readonly = (
    'ROS_M_D_ARG_AOH_TO_CONS <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	514	656	
==>efault = $1  if $line =~ /^#\s*default:\s+(.*)/;
        $abstract = $1 if $line =~ /^#\s*abstract:\s+(.*)/;
    }
    unless (defined $prompt) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	7390	7505	
==>unk, @params) = $rapp->struct_equiv->values;

	my $orig_thunk = ($app->struct_equiv->values)[0]->struct_equiv->val-> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29089	29181	
==>for
the underlying timing routines, and L<Devel::Cover> for test coverage
analysis.

=head1 T <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	19349	19444	
==>E0,C0),
  % match_captures(Ex,Cx),
  % append(C0,[[Str,NPos,[]]],Cy), append(Cy,Cx,C1),
  % matc <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	13304	13391	
==><tmpl_var name=ok> ok</span>,
		<span class="tests_failed"><tmpl_var name=failed> failed <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7312	7433	
==>LLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7370	7491	
==>LLER::POSITION)");
    }
    else {
        Test::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Tes <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1212	1337	
==>ey/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	772	897	
==>ey/ need
    my @rv = @deps;
    for my $dep ( @deps ) {
        ### unshift, as they are prereqs for THIS dependency, so they <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8402	8514	
==>}
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8390	8502	
==>}
$_[1]       elsif ( ref( \$match[\$index{$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$mat <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3726	3844	
==>x/workaround
    package Regexp::Parser::anyof_class;
    sub visual {
      my $self = shift;
      if (ref $self->{da <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	5594	5699	
==>e_facto_type = $node->type;
		
		warn "attempting to unify " . $node->struct_equiv . " whose type is " . $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5732	5911	
==>@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5732	5911	
==>@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, Any %msg_va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2563	2659	
==>laration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2563	2659	
==>laration = Pugs::Compiler::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17067	17159	
==>ecimal number indicating the size in bytes of the message content.

=item $h.content_language <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17067	17159	
==>ecimal number indicating the size in bytes of the message content.

=item $h.content_language <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1264	1358	
==>rl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of con <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1264	1358	
==>rl 6 can be found in the F<docs/quickref/>
directory, similar to L<perlcheat>. The table of con <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	853	951	
==>:Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	853	951	
==>:Type $.left;
    has Perl::Compiler::PIL::Util::Type $.right;
}

class Perl::Compiler::PIL::Util:: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50844	50966	
==>er' => $e->get('$self:')->get_attr(symbol->new('$:name')));
                $e->get('$self:')
                  ->get_attr( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	252	369	
==>nite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns b <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	252	369	
==>nite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is_empty () returns b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10002	10110	
==>t the user tries to set the input, and input that
fails immediate evaluation will not be set at all.  The sco <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10002	10110	
==>t the user tries to set the input, and input that
fails immediate evaluation will not be set at all.  The sco <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11832	11941	
==>ank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11826	11935	
==>ank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10246	10346	
==>`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This should <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10304	10404	
==>`

All tests need a plan. A plan is simply the number of tests which are
expected to run. This should <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	3967	4098	
==>hing that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satis <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4431	4562	
==>hing that satisfies this dep already?
                for my $maybe (@$avail) {
                    next RESOLVE if dependency_satis <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5202	5361	
==>onstant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5190	5349	
==>onstant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12111	12213	
==>right before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a membe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12111	12213	
==>right before the parameter.

- `current( $x )`

Returns the parameter value if the parameter is a membe <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	879	1013	
==>ket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hog <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	879	1013	
==>ket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have processed 200 items (and hog <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20713	20820	
==>thods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20713	20820	
==>thods.

=head1 DISTRIBUTION SUPPORT

Module::Install makes it terribly easy to prepare a module distribution <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4290	4397	
==>all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4290	4397	
==>all the tokens with a split
    my @tokens = split(rx:P5{([A-Z]<\s+|[A-Z]<|\s+>|>)}, $text);
    @tokens = @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4366	4507	
==>$self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4506	4647	
==>$self->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1561	1697	
==>_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1561	1697	
==>_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{%04X}, try <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	252	344	
==>rical amusement, I've inserted unchanged
# my original first attempts, head.p6, tail.p6, rev. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2060	2186	
==>elf->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my $cat = Pugs::Grammar: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6950	7082	
==>experimental!

sub ruleop::negate { 

    my $op = shift;

    return sub {

        my $tail = $_[0];

        my $match = $op->( @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6718	6845	
==>experimental!
sub ruleop::negate { 
    my $op = shift;
    return sub {
        my $tail = $_[0];
        my $match = $op->( @_ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	2551	2683	
==>e repo

### be strict from here on down
{   use strict;

    ### parse package names easily
    {   my $re = qr/^(\w+)      -   # the <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3614	3725	
==>f the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other option <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3614	3725	
==>f the appropriate 
class, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other option <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14521	14660	
==>n.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14521	14660	
==>n.get_field('name') );
                show_fetched_sex( $fetched_person.get_field('sex') );
            }
        }
    };

    # Close the <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	45253	45362	
==>));

$::Package->send('add_attribute', (symbol->new('$:name')      => attribute->new('$:name'      => 'str'))) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	2664	2766	
==>ineTerminator>
    | <Comment>
}  
rule no_LineTerminator_here {
      [ <ws> & <-<LineTerminator>>*? ] <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11771	11857	
==>_sequence(X) --> "\\0", p6_oct_spec(X), !.
p6_oct_spec(char(C)) --> octaldigit3_int(C), <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13253	13349	
==>istence solutions.
Moreover, these data structures are in exactly the right input format for
Docu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13253	13349	
==>istence solutions.
Moreover, these data structures are in exactly the right input format for
Docu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20187	20288	
==>a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilation ne <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20187	20288	
==>a Mac OS X
program is as simple as adding a language file to the program package.  No
recompilation ne <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3134	3239	
==>low 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2 <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3134	3239	
==>low 2 mails per minute but no more than 20 mails per hour.
Go, go, go!

    my $rl1 = new_bucket(rate => 2 <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2783	2886	
==>rs);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2783	2886	
==>rs);
}
method intersection($self: Set $other) returns Set {
    set($self.members.grep:{ $other.includes <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10901	11030	
==>xt) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $se <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10901	11030	
==>xt) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $se <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	280	397	
==>es have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subrou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	280	397	
==>es have already been filtered
my $filtered = {};

# A map of digests to code blocks
my $digest_map = {};

# All subrou <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16237	16334	
==>xt provides a simple but effective mechanism for
applications and packages that empowers single bi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16237	16334	
==>xt provides a simple but effective mechanism for
applications and packages that empowers single bi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2839	2942	
==>we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2839	2942	
==>we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no VMS !!) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	39655	39768	
==>r->add_handler('\y' => sub {
    my ($S, $cc) = @_;
    if ($cc) {
      # so that $S->object(...) creates an obje <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5098	5212	
==>t_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5098	5212	
==>t_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } elsif (! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30257	30358	
==>ill be substituted at run-time before the text
is shown to the user.

Each Template module ideally com <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30257	30358	
==>ill be substituted at run-time before the text
is shown to the user.

Each Template module ideally com <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8541	8728	
==>'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8541	8728	
==>'vf_call_sfunc' => 'DEPOT_OBJECT_EXISTS' }, [
                        $tbd_person,
                    ] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interfa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11327	11434	
==>[^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11327	11434	
==>[^ ]+) (\d+) ([^ ]+) ?(.*)$/ {
      ./:handle_numeric($line, $0, $1, $2, $3);
    } elsif $line ~~ rx:P5/^: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10408	10541	
==>ll_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10408	10541	
==>ll_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_add_person
        = $conn.comp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6215	6321	
==>';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'x <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6215	6321	
==>';
node_a 'Val', 'VRat'  , 'xVal' ,'unk';
node_a 'Val', 'VNum'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'x <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4665	4764	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4665	4764	
==>%([8-9AB][\dA-F])/{chr((:16($0)+&15)*4096+(:16($1)+&63)*64+(:16($2)+&63))}/;
            $decoded ~~ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9940	10059	
==>hod');

## make subclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:metho <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11467	11570	
==>3.1
      <StrUnsignedDecimalLiteral>
    | <'+'> <StrUnsignedDecimalLiteral>
    | <'-'> <StrUnsignedDe <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2707	2817	
==>o STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.f <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2707	2817	
==>o STDERR.
  my $say = -> Str $msg {
    debug_sent $msg if $debug_raw;
    $hdl.print("$msg\13\10");
    $hdl.f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11176	11271	
==>recurrence object.

- `complement()`

Returns everything (from the universal set) that is not in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11176	11271	
==>recurrence object.

- `complement()`

Returns everything (from the universal set) that is not in <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13874	13981	
==>_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13874	13981	
==>_doc.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_was_saved = M <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9621	9718	
==>ls, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9679	9776	
==>ls, but might work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	733	827	
==>C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argumen <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	733	827	
==>C</a*/> can be written C<quantify(literal("a"))>.

C<quantify> also takes a C<:minimal> argumen <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	881	1005	
==>ptimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#lin <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	782	906	
==>ptimize_flags {
    my $self = shift;
    $self->makemaker_args(
        OPTIMIZE => join ' ', @_
    );
}

1;

__END__

#lin <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14463	14567	
==>elf->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1943	2047	
==>elf->reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7946	8047	
==>efine and compile a routine that will validate whether the 'person'
    # table exists (and is correct <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7946	8047	
==>efine and compile a routine that will validate whether the 'person'
    # table exists (and is correct <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1087	1183	
==>ure name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1087	1183	
==>ure name (ident or '')

Continuations are used for backtracking.

A "ruleop" function gets some a <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1822	1941	
==>say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1822	1941	
==>say "Array";

  gather {
    while (@string>=3) {

      my Int @octect = map { ord $_}, splice @string,0,3;

      take <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7514	7621	
==>eq = $child->values; # the children of the seq child of the thunk
			my $last = pop @children_of_seq;

			my <==
2	/Users/nnunley/pugs/perl5/PIL2JS/util/src_to_blib.pl	284	382	
==>ath qw(mkpath);

{
    copy_all("lib6/", 'blib6/lib/');
	copy_all("libjs/", 'blibjs/lib');
}

sub c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	415	516	
==>pen the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	415	516	
==>pen the source file '.$input_filename;

# Read the input file
local $/ = undef;
my $source = <$input_f <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	128	227	
==><[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	128	227	
==><[a..z]><[a..z0..9]>+
}

rule elem {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5805	5956	
==>$noop = $o->noop;
    my $re = $o->raw();
    return sub{
      FAIL() if !($X::pos == 0);
      my $c = $_[0]; TAILCALL(&$c,$noop);
    } if $re eq '\A <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4469	4601	
==>osure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.in <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4469	4601	
==>osure_previous },
        universe =>            $self.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.in <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5688	5807	
==>st: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shi <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5688	5807	
==>st: ',@list;
    @.items = ( @head, @list, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4795	4966	
==>span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4795	4966	
==>span;
        }
        else
        {
            $.span = $.span.clone;
            $.span.start = $start;
        }
    }
}

method end () returns Object { return $.span <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	3099	3207	
==>er is a name of one of this Relation::Example's attributes.
        # Note that it is valid for a Relation::E <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	339	473	
==>=> { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	339	473	
==>=> { %self<_err_str> },
        'read' => sub ($file) {
            my $input = try { open($file) };
            if ( ref $input ne 'IO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20690	20791	
==>ght set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intac <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20690	20791	
==>ght set it like
this:

  $h.header(":foo_bar") = 1;

These field names are returned with the ':' intac <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1490	1621	
==>];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_li <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1478	1609	
==>];\n" .
        "  my \$pos = \$_[3]{p};\n" .
        #"  print \"match arg_list = \$_[1]\n\";\n" .
        #"  print \"match arg_li <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1626	1722	
==>s also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1626	1722	
==>s also the ASCII
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:< <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8891	8993	
==>parsed) 

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@perl.orgE<gt>.

=head1 SEE ALSO

Su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18453	18561	
==>ject(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14874	14982	
==>ject(anyof_close => "]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14509	14632	
==>translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14509	14632	
==>translator!) {
        my Num $sum = $first + $second;

        # This will print '<FIRST> plus <SECOND> equals <RESULT>' in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7837	7934	
==>tion") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7837	7934	
==>tion") }

method authorization_basic ($self: )       is rw { $self!basic_auth("Authorization") }
m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7704	7818	
==>_state, Bool :$capture?

  --> Pugs::Grammar::Match)



  $match_against - a string to match

  $next_state    - an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7443	7553	
==>_state, Bool :$capture?
  --> Pugs::Grammar::Match)

  $match_against - a string to match
  $next_state    - an <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	3996	4107	
==>rgs) {
        super *@args;
    }
}

class Class::Events::Notification {
    has Class::Events::Subscription $. <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	273	382	
==>nt.

use Test::More tests => 32;

{
    use Hash::Util 'lock_keys';

    # Every instance should have a unique <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3697	3971	
==>y_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3697	3971	
==>y_key() on]
           ~ q[ Locale::KeyedText Template module '<TMPL_MOD_NAME>':]
           ~ q[ <REASON>],
);

###########################################################################
###########################################################################

module Lo <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15428	15537	
==>ing if the span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of t <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15428	15537	
==>ing if the span is empty.

- `set_start( $object )` / `set_end( $object )`

Change the start or end value of t <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6674	6773	
==>oin(" ",@array.values);
}

# speculative?
# behavior based on pugs r8593.
# while (@array: --> List) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12735	12960	
==>~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12735	12960	
==>~ s/
            (
                $re_pod |
                $re_comment |
                $re_here |
                $re_data
            )
        /
            my $result = $1;
            $result =~ m{\A($re_data)}    ? $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2588	2693	
==>::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2588	2693	
==>::Rule->compile(q(
    <'my'> <ws> <Variable> <ws>? <'='> <ws>? <Expr> \\;
    { use v5; return "let " . $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	385	500	
==>once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immedi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	591	706	
==>once';
    use vars qw( @statements @terms @ops );

    *immediate_statement_exec = sub {
        my $match = immedi <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9433	9532	
==>>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9433	9532	
==>>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=head2 C<$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6819	6977	
==>ry_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6819	6977	
==>ry_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @parts = @!parts.map({ .as_string($CRLF) });
    
    my $bno = 0;
    $boundary //= $s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	3179	3330	
==>ON

The compiler reduces an AST into an executable program. This process has three
main aspects:

=over 4

=item *

Resolving compile time resolvable sy <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5859	5955	
==>ion($node => "$return_type $symbol (" . join(", ", @params) . ") {" . join("\n\t", "", (map { "$_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8024	8122	
==>ersection (Relation $other!) returns Relation {

    die "The heading of the relation in $other doe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11501	11599	
==>ersection (Relation $other!) returns Relation {

    die "The heading of the relation in $other doe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	674	806	
==>Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	674	806	
==>Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5565	5803	
==>my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6414	6652	
==>my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main::emit_rul <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	63	181	
==>ash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	63	181	
==>ash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents);
    return $set;
}

=for LATER

# parsefail :( <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17531	17646	
==>n is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the internal object that repr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17531	17646	
==>n is "continuous", this method emits a warning and returns undef.

- `span()`

Returns the internal object that repr <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18374	18476	
==>d data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot.curusernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18374	18476	
==>d data from the server, a blocking C<readline> call is used.

=head2 C<$bot.curnick>, C<$bot.curusernam <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8703	8804	
==>);
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8703	8804	
==>);
    my Rosetta::Interface::Routine $fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_p <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4034	4118	
==>complement_previous => $self._get_union( $self.complement_previous, $set.complement_p <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4034	4118	
==>complement_previous => $self._get_union( $self.complement_previous, $set.complement_p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5210	5330	
==>"$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5210	5330	
==>"$.end";
    return $tmp1 if $tmp1 eq $tmp2;
    return ( $.start_is_open ?? '(' !! '[' ) ~
           $tmp1 ~ ',' ~ $tmp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2030	2146	
==>luation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	2170	2286	
==>luation: $@\nSource:\n$self->{perl5}\n" if $@;

    bless $self, $class;
}

sub code { 
    my $rule = shift; 
    su <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2489	2601	
==>method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_em <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2489	2601	
==>method intersects ($self: $set ) returns bool {
    my $tmp = $self.intersection( $set );
    return ! $tmp.is_em <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	273	364	
==>leName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	273	364	
==>leName = Pugs::Compiler::Rule->compile(q(
    \\w+
))->code;
*CaptureVariableName = Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3307	3428	
==>_class(shift)
        }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	4009	4122	
==>_class(shift) }
    },
);

# < Class is a subclass of Object >
::opaque_instance_attrs($Class)->{'$:superclass'} = <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	268	398	
==>( Int ?$year, Int ?$month, Int ?$day,
                   Int ?$hour, Int ?$minute, Int|Real ?$second,
                   Str|Time:: <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3317	3440	
==>) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unl <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3317	3440	
==>) { %out<Target> = $target; }
    
    for %out.keys -> $key {
        %out{$key} = unescapeHTML(%out{$key})
            unl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18069	18170	
==>l not
have references to each other at a level visible in the Rosetta Native
Interface, if at all.  To <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18069	18170	
==>l not
have references to each other at a level visible in the Rosetta Native
Interface, if at all.  To <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	190	303	
==>at day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	190	303	
==>at day is valid for month & year

my @MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10058	10176	
==>ed{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$name <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10052	10170	
==>ed{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else {
$_[1]         if ( ! defined \$name <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4453	4544	
==>phering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4453	4544	
==>phering>, 
while C<decrypting>, C<decrypt> and C<decipher> are equivalent to 
C<deciphering> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26487	26581	
==>mpile the test using
C<perlcc> before running it.

B<NOTE> This currently only works when sitti <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14093	14211	
==>ace::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'p <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14093	14211	
==>ace::Scalar $person_id
                .= new( payload => ask_user_for_id() );
            $fnh_get_person.bind_arg( 'p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7305	7409	
==>y was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7305	7409	
==>y was killed. Update %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($k <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	2116	2247	
==>}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with ' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	2116	2247	
==>}

sub abs2rel (Str $_path, Str $_base) returns Str is export {
    # take a copy of our args here, maybe 
    # replace this with ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22756	22856	
==>use them; but often a template will
choose to show less than all of the available details depending o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22756	22856	
==>use them; but often a template will
choose to show less than all of the available details depending o <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2998	3099	
==>($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
} <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2998	3099	
==>($sep);
}

method dmy (Str $sep = "-") returns Str {
    return [$.day, $.month, $.year].join($sep);
} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8824	8918	
==>Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2649	2743	
==>Grammar::Perl6->varscalar(@_) };
push @terms, sub { Grammar::Perl6->variable(@_) };
push @terms <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2809	2913	
==>code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2809	2913	
==>code($data,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_a2 ($data <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3821	3918	
==>) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3821	3918	
==>) returns Array { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	331	448	
==>so note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	331	448	
==>so note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	1821	1928	
==>ank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	1881	1988	
==>ank
cntrl
digit
graph
lower
print
punct
space
upper
word
xdigit
) ) {
        #my $rx = qr(^.{$pos}([[:$char <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6587	6776	
==>set();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.cur <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6587	6776	
==>set();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            return $.cur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20742	20841	
==>sages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20742	20841	
==>sages in these files are looked up by the
program using keys.  Mac OS X (and the previous non-Unix M <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7731	7834	
==>r("Proxy-Authenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authori <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7731	7834	
==>r("Proxy-Authenticate") }
method proxy_authorization ($self: )       is rw { $self.header("Proxy-Authori <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	681	801	
==>esub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsu <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	681	801	
==>esub { # from A06
        <submodifer> <subintro> <subname> <psignature>?
        <trait>*
        <block>
}

rule anonsu <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11636	11732	
==>orig = \&Test::Builder::output;
	no warnings 'redefine';
	*Test::Builder::output = sub {
		my $re <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4038	4149	
==>our is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    i <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4038	4149	
==>our is Cipher::Stream;

has Byte @.state;
has Int $.i;
has Int $.j;

submethod BUILD($key?) {
    my @key;
    i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	699	853	
==>lready installed"; 
            next INSTALL;
        }
    }

    ### install the archive
    {   ### extract to a temp dir
        my $my_tmp_dir = $Tmpd <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	8404	8513	
==>&$$match($matchObj);
  tok_match_end:
  $$operator{type} = $$token{name};
  goto (pop @bsrStack);

  end:
  if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	2786	2943	
==>=> 'equal',
        other => 'eq',
    );
    __PACKAGE__->add_rule( 
        name => '>=',
        assoc => 'left',
        precedence => 'equal',
        ot <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5732	5898	
==>my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a policy test!
            if( $pkg->prefix    eq $test->prefix    a <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	855	967	
==>est *@indextests --> Int|List )
{
    my @ret;
    for @array.keys -> $k {
	push(@ret, ($k,@array[$k]) ) if $k ~~ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17067	17171	
==>a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17067	17171	
==>a Perl 6 setting.

The B<v6.pm> module will also check if F<MyModule.pmc> is up to date. If
it is, then i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	805	959	
==>{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule    => sub{ $match = $rpc_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	708	834	
==>{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match;
    Benchmark::cmpthese(500, {
        P6_Rule <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4327	4466	
==>ML;
        local $YAML::UseHeader = 0;
        $dump .= YAML::Dump( { no_index => $no_index } );
    }
    else {
        $dump .= << "META <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26476	26578	
==>is used by PMf_COMPILETIME */

 #define ROPT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20000 /* how expone <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1029	1173	
==>y   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1029	1173	
==>y   => $d,
                          );
}

multi submethod BUILD (Str $string) returns Date {
    my $meth;
#    if ( $string ~~ /[today|now] { $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2197	2336	
==>xpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2197	2336	
==>xpr>() . " " . $op . " " . $<rhs>[0] . ")";
      }else{
	  return $<FunctionAppExpr>();
      }
    }
))->code;
*Expr = Pugs::Compiler::Rul <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16562	16666	
==>text.  If there is no such header field, then the empty
string is returned.  This makes it safe to do the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16562	16666	
==>text.  If there is no such header field, then the empty
string is returned.  This makes it safe to do the <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16335	16431	
==>media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16335	16431	
==>media type of the message
content. I<E.g.>:

  $h.content_type = 'text/html';

The value returned <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1165	1259	
==>nt("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_r <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1165	1259	
==>nt("Content-Length: $length\r\n\r\n");
    $.remote.print($doc);
}

method handler { ./handle_r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16890	16982	
==>peaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16890	16982	
==>peaking, Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8403	8500	
==>um_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_f <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8461	8558	
==>um_of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14579	14695	
==>d {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14579	14695	
==>d {
    my $class = shift;
    my $text = $1;
    my $digest = $class->pmc_fold($text);
    return qq{===pod $digest\ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	4098	4197	
==>ehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	4098	4197	
==>ehandle C<$fh> which the POD will be printed too.

=back

=head1 SEE ALSO

=over 4

=item L<Pod::Eve <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1011	1107	
==>($verbose $switches);

$Verbose  = $ENV{HARNESS_VERBOSE} || 0;
$Debug    = $ENV{HARNESS_DEBUG} || <==
2	/Users/nnunley/pugs/util/package-osx.pl	11833	11927	
==>:wheel $dest < ~/.pass");
}

&change_files($dest, %change_files) if (keys %change_files > 0);
& <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9232	9362	
==>0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        } <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9232	9362	
==>0;
    given lc $.mode {
        when any <enciphering encipher encrypting encrypt> {
            $.mode = "enciphering";
        } <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3678	3783	
==>UG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3678	3783	
==>UG;
    my $two_diff = $other.difference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23872	23969	
==>now about language specific details like
encodings or plurality.

My understanding of alternate so <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23872	23969	
==>now about language specific details like
encodings or plurality.

My understanding of alternate so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3663	3818	
==>t' => 1,           *$v
    #    'attribute' => \@attr   $v is rw

    my $param = join( ',' , 
        map { _emit( $_ ) } @$n
    );
    return "my ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3863	3969	
==>self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3863	3969	
==>self.closure_next, $set.closure_previous, $set.closure_next ),
        complement_next =>     $self._get_un <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22810	22918	
==>topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22810	22918	
==>topic =E<gt> "new topic")>

Retrieves a channel's topic or tries to set it.

=head2 C<$botE<lt>kickE<gt>(chan <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14982	15107	
==>ens;            /* number of parentheses */

The match result:

  I32 sublen;             /* Length of string pointed by subbe <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12227	12342	
==>f iscapture == 0 goto end
    $S0 = escape subname
    $S0 = concat '"', $S0
    $S0 = concat $S0, '"'
    mob["cnam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3415	3510	
==>iedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This l <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3415	3510	
==>iedel <sri@oook.de>

Based upon L<HTTP::Server::Simple> by Jesse Vincent

=head1 LICENSE

This l <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18089	18190	
==>:descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41354	41455	
==>:descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new($e->get('&d <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	8	106	
==>onfig::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan. <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	8	106	
==>onfig::Tiny-0.01;
use v6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan. <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	65	172	
==>of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @ <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	65	172	
==>of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse();
    for @ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27988	28088	
==>th
the variable name specified in the positional parameter $var_name (a
string).

=item C<get_msg_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27988	28088	
==>th
the variable name specified in the positional parameter $var_name (a
string).

=item C<get_msg_var <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12057	12157	
==>r $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12115	12215	
==>r $expected_type, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

This function currently on c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	8849	9148	
==>on}}++
                }
                else {
                    $todos{'__'}++
                }   
            }
        }
        ## XXX - End Pugs addition        
        
        my %test = (
                    ok          => $results{ok},
                    'next'      => $Strap->{'next' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	507	606	
==>heme code):

  http://okmij.org/ftp/Scheme/oop-in-fp.txt
  
This system is still relatively "functio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7964	8065	
==>sents an ordered set of spans.

The problem this class solves is when you need do perform "set" operat <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7964	8065	
==>sents an ordered set of spans.

The problem this class solves is when you need do perform "set" operat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1186	1292	
==>ny $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1244	1350	
==>ny $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    # hack for now
    my $got_perl = <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8553	8658	
==>ates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8553	8658	
==>ates a `Set::Infinite` object with a few elements.

- `new( spans => ( $span1, $span2 ) )`

Creates a `Set <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2512	2618	
==>into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PAC <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2512	2618	
==>into the .pmc file.
sub pmc_template {
    my ($class, $module, $content, $data) = @_;
    my $base = __PAC <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14161	14297	
==>sg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a sta <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14161	14297	
==>sg_key => 'MYAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a sta <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18961	19064	
==>tting the referrer, this method removes the fragment from the
given URI if it is present, as mandated by <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18961	19064	
==>tting the referrer, this method removes the fragment from the
given URI if it is present, as mandated by <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43469	43562	
==>aging
data or data definitions or connections to databases: L<Set>, L<Rosetta>.

=head1 BUGS A <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2869	2980	
==>return "[ " . join( ' | ', @rules ) . " ]";
}

sub emit_grammar_perl6 {
    # item=>'<item>',
    my ($self, $de <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2248	2370	
==>T, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    pri <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2248	2370	
==>T, \*IN, 'pugs', '-e', MAGIC);
    print IN COOKIE, "\n";
    return $pid;
}

sub eval_pugs {
    my $self = shift;
    pri <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2095	2224	
==>charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirs <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2095	2224	
==>charset" if $charset.defined;
    
    for %extra.kv -> $key, $value {
        # XXX use $key is rw;
        my $temp_key = ucfirs <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	785	904	
==>file
        system( qq[mkdir -p $builddir/$path] )          and die "$?";
        system( qq[ cp -R $srcdir/* $builddir <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	41	132	
==>trict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Grammar::Precedence <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3957	4058	
==>er group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3957	4058	
==>er group).  XXX wrong; they should be "flat".

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$m <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3738	3845	
==>ocal $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, ' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5640	5747	
==>ocal $@; eval { &$code };
    like($@, qr/No method found/, $desc);
}

# Begins testing

is($Class->id, 1, ' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3025	3132	
==>urselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_handler("3 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3025	3132	
==>urselves so we can provide accurate username, hostname, and
    # ircname information.)
    ./add_handler("3 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	491	612	
==>ed Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	491	612	
==>ed Latin 1//EN//HTML
    "AElig"    => 'Æ',  # capital AE diphthong (ligature)
    "Aacute"   => 'Á',  # capital A, acut <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25551	25654	
==>e similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, %.2f%% oka <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1441	1548	
==>=~ s/-/::/g;

    # Only call $self->tests if we haven't been given explicit
    # tests from makemaker_args <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	543	638	
==>print "*** Successfully built!  Type '$Config{make} install' to install.\n";

# make an educated <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2547	2669	
==>METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2547	2669	
==>METH>(): argument <ARG> is an Array ref as expected,]
           ~ q[ but it has no elements.],
    'LKT_ARG_HASH_NO_ELEMS' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6803	6915	
==>like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $con <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6861	6973	
==>like "test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $con <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6543	6653	
==>nterpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blo <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6543	6653	
==>nterpolation');      
}

=kwid

= THOUGHTS

Some basic notes here as I develop this.

- how should I handle blo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9837	9938	
==>lems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.sta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9837	9938	
==>lems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::List $l ) is export { $l.sta <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5664	5784	
==>return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtU <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5146	5266	
==>return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Unix;
    $self->version( ExtU <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	512	607	
==>Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	512	607	
==>Transfer-Encoding Upgrade
 Via Warning
>;

my @request_headers = <
 Accept Accept-Charset Accept <==
2	/Users/nnunley/pugs/util/importgraph.pl	405	509	
==>s" => \$overlap,
  "ignore=s" => \@ignore,
) or die "invalid command line";

my $g = GraphViz->new(
  lay <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	24312	24402	
==>rl5::X1::Api::Exception::LoopControl('-text' => 'redo'))";
}

sub p6_die  {my(@args)=@_; di <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18547	18651	
==>>family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19905	20009	
==>>family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1]->{ifthen}) {
      my $ifthen = $ <==
2	/Users/nnunley/pugs/util/package-osx.pl	5559	5670	
==>:FUD.3pm
        /usr/local/man/man3/Perl6::Overview.3
        /usr/local/man/man3/Perl6::Overview.3pm
        / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1345	1459	
==>::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1485	1599	
==>::Grammar::Rule->rule( 
        $self->{source} );
    die "Error in rule: '$rule_source' at: '$self->{ast}{tail}'\ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	893	993	
==>b:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($outpu <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	893	993	
==>b:\s+(\S+)/m);
    my ($privlib) = ($output =~ /^\s*privlib:\s+(\S+)/m);
    my ($sitearch) = ($outpu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29072	29189	
==>yet.
Handle names that I<do> have a "predecessor" (that is, a '&&' with a
'&') are post-consumption: they have already <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	432	542	
==>ss = shift;
    my $flavor = shift;
    $flavor =~ s/\W//g;

    die "Usage: use re::override-flavor" unless $f <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12245	12341	
==>d, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12303	12399	
==>d, we will add it here, and
maintain backwards compatibility as well.

- `eval_ok (Str $code, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1479	1595	
==>' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1479	1595	
==>' . $src . '"' ); 
    die $@ if $@; 
    my $ast = grammar1::immediate_statement_rule( $ret );
    die "compile: syn <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17580	17673	
==>ing Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compile <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17580	17673	
==>ing Module::Compile and
the compiler modules themselves.

=item *

Easier debugging of compile <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20363	20473	
==>age installers usually do it.  An os-level preference
/ control-panel displays a list of all the languages your <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20363	20473	
==>age installers usually do it.  An os-level preference
/ control-panel displays a list of all the languages your <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2941	3061	
==>.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprint <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2941	3061	
==>.  By default we use a 32-bit running checksum.
sub freshness_check {
    my ($class, $module) = @_;
    my $sum = sprint <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5877	5992	
==>ic: Most of the first tests (ext/) are slow,
        # so we arbitrarily lower the first chunk by 1/3.
        $this <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	784	901	
==>ng time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, ' <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	784	901	
==>ng time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, ' <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2790	2935	
==>ookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 F <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2790	2935	
==>ookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redirect (
    Str   $location,
    Str   $target?,
    Str   $status? = "302 F <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2495	2619	
==>e"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2495	2619	
==>e"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumflex accent
    "egrave"   => 'è',  # small <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1656	1751	
==>(Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file ) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1656	1751	
==>(Str $file) returns Bool is export {
    return &::($worker_pkg)::file_name_is_absolute( $file ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22203	22300	
==>gus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = split('::',$mn);
	$parts[-1] = $spac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1685	1788	
==>ce::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interf <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1685	1788	
==>ce::Exception class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Interf <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	653	758	
==>hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$i <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	653	758	
==>hash keys are not supposed
# to stringify).
method _stringify ($item) returns Str {
    my $str_item = ~$i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4182	4292	
==>e if $self->{stack};
  my $rx = $self->{tree};
  no warnings 'regexp';
  use re 'eval';

  if (@$rx == 1 and $r <==
2	/Users/nnunley/pugs/misc/Blondie/example.pl	620	712	
==>rintf "Total time: %.3f seconds (%.3f compilation, %.3f type checking, %.3f emission, %.3f bi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	538	694	
==>ALAR {
    my $class = shift;
    my $var_ref = shift;
    return bless $var_ref, $class;
}
sub FETCH {
    my $self = shift;
    $$self;
}
sub STORE {
    m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	633	793	
==>HOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	633	793	
==>HOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Content-Length' => 'CONTENT_LENGTH',
            'Conte <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17738	17889	
==>node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17738	17889	
==>node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'F' },
            },
            {
                'node_type'  => ' <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	24	120	
==>:DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Ele <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	24	120	
==>:DOM;

#is Perldoc::Sender;
#is Perldoc::Receiver;

use Perldoc::DOM::Node;
use Perldoc::DOM::Ele <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5649	5750	
==>s undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5649	5750	
==>s undefined results.

=back 4

=head2 Writing for the API

Although the API seems large, most of it is <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3563	3707	
==>reach my $val (@{$self}) {
        if ($closure->isa('closure')) {
            my $ref = reference->new($val);            
            $closure-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	827	962	
==>e_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	827	962	
==>e_params (Str $data) {
        my @pairs = $data.split(/;|&/);
        
        for @pairs -> $pairs {
            my ($key, $value) = $ <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	319	460	
==>= 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.stri <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	319	460	
==>= 0;
    my Int $escaping   = 0;
    my Int $first_byte = 1;
    for $glob.split('') -> $char {
        if $first_byte {
            if $.stri <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	8526	8647	
==>my $pat = $s;
      $pat =~ s/(\W)/\\$1/g;
      $pat = "(?:(?i)(?:$pat))";
      $o->mk_eater_for_re($pat);
    }
    els <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19462	19557	
==>roperly in the tree.  Fixed.

Standard escapes (C<\a>, C<\e>, etc.) were being returned as I<exa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30835	30942	
==>r gets called, it's expected to match!  It pops the
flag stack, and returns an object.

Finally, if you want <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47043	47149	
==>e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace')) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47210	47316	
==>e, sub {
                      $e->set('$return' => $e->get('$self:')->get_attr(symbol->new('%:namespace')) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1526	1627	
==>list is a a node with multiple children.

C<App> is a type of value - it applies its first child to th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14730	14852	
==>t the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14730	14852	
==>t the output will be '3 plus 4 equals 7'.
        print $translator.translate_message(
            Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11705	11814	
==>h('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $dis <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11705	11814	
==>h('expires', HTTP::Date::time2isoz($expires)) if $expires;
                @h.push('discard' => undef) if $dis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19150	19274	
==>se {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self u <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20508	20632	
==>se {
      $tree->[-1]->{zerolen} ||=
        !grep !$_->{zerolen}, @{ $tree->[-1]->{data} };
    }

    push @$tree, $self u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5790	5923	
==>:Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5790	5923	
==>:Util::Call::filter_add(sub {
        return 0 if $done;
        my $data_line = '';
        while (1) {
            my $status = Filt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3578	3672	
==>-----------------------------------------------

# Utility to test that "No method found" error <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5480	5574	
==>-----------------------------------------------

# Utility to test that "No method found" error <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3052	3179	
==>)  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3052	3179	
==>)  { $start = %param<start>;  $start_is_open = Bool::False };
        if defined( %param<after> )  { $start = %param<after>;  $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	33234	33333	
==>n)

=head2 bound

Family: anchor

Types: bound (C<\b>), nbound (C<\B>)

Neg: 1 if negated

=head2 gp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4651	4772	
==>($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4651	4772	
==>($.j += @.state[$.i]) %= 256;
            @.state[$.i, $.j] = @.state[$.j, $.i];
            take @.state[ (@.state[$.i] + <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6788	6918	
==>rror in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6800	6930	
==>rror in rule '$_[0]' at '" . $match->{tail} . "'\n"
        if $match->{tail};
    die "syntax error in rule '$_[0]'\n"
        unl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1884	1976	
==>L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1884	1976	
==>L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTIO <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	8361	8513	
==>chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	8361	8513	
==>chr(8773),
    "asymp"    => chr(8776),
    "ne"       => chr(8800),
    "equiv"    => chr(8801),
    "le"       => chr(8804),
    "ge"       => chr(8805 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4404	4781	
==>eep}    # Regex
                          ([xim]*)                              # RE options
                        )?                                      # End of regex block
                      >+)                                       # End of link
                      (.*)                                      # rest of thing
                }sx;
           

my $inde <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1211	1308	
==>. Give it data to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1211	1308	
==>. Give it data to encipher (or decipher), retrieving intermediate 
results along the way.

=item 3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4032	4137	
==>\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4032	4137	
==>\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline), $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13130	13248	
==>h $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6605	6723	
==>h $num;
      $num = $good;
    }

    my $rep = $brace ? "\\x{$num}" : sprintf("\\x%02s", $num);
    return $S->force_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21583	21681	
==>uples.  All Relation
attributes may be individually addressed only by their names, and all
Relation <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26135	26233	
==>uples.  All Relation
attributes may be individually addressed only by their names, and all
Relation <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18674	18773	
==>s module automatically tries to use slight variations of the nickname in the
login phase (for exampl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18674	18773	
==>s module automatically tries to use slight variations of the nickname in the
login phase (for exampl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	617	727	
==>meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	617	727	
==>meta => $meta);
	$meta->add_method('grammar' => sub { $self });
	return $self;
}

sub add_rule {
	my ($self, $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7463	7587	
==>fter  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },

        },

        \&variable

    )

=cut

sub ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7212	7331	
==>fter  => sub { $_[0]->{bool} ? print "matched\n" : print "no match\n" },
        },
        \&variable
    )
=cut
sub ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	672	766	
==>rl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeCon <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	672	766	
==>rl::Compiler::PIL::Util::Type {
    has Str $.name;
}

class Perl::Compiler::PIL::Util::TypeCon <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21246	21382	
==>ata[0].utf8_substr
 #define anchored_offset  substrs->data[0].min_offset
 #define float_substr     substrs->data[1].substr
 #define float <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16570	16679	
==>ges that won't be expected
        $results =~ s/\n?%[A-Z]+-[SIWEF]-[A-Z]+,.*//;

        # pipes double these <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	23740	23878	
==>return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24019	24157	
==>return unless $match;
        my $capture_block = sub { return { sub_decl =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6484	6641	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6677	6834	
==>->( $match ) ],
        }; 
    }
;
    unshift @rule_terms, \&const_escaped_char;
*{'dot'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'capt <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5832	5979	
==>in( $from ) ) {
            ### strip the leading dirs from the target so we don't get a silly
            ### deep dir structure
            my $ta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13563	13685	
==>ange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    isrange = 1
    goto scan
  endclass: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1335	1443	
==>time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first match (not longest <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1335	1443	
==>time

# XXX - weaken self-referential things

sub alternation {
    # alternation is first match (not longest <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	10989	11105	
==>.pm
    $self->write or return;
    
    ### unisntall metadata
    system( qq[rm -rf ] . $self->control_dir( $inst_p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1200	1311	
==>head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
direc <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1200	1311	
==>head2 Quick reference of Perl 6

Quick reference documents of Perl 6 can be found in the F<docs/quickref/>
direc <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13652	13752	
==>anguage feature missing, or core bug that needs to
be sorted out before you can continue.

It is also <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13710	13810	
==>anguage feature missing, or core bug that needs to
be sorted out before you can continue.

It is also <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	1310	1405	
==>s largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the metho <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	1310	1405	
==>s largely defined by L<Cipher::Stream> and 
its parent module, L<Cipher>; for example, the metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11889	12052	
==>ation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1] alternation( \\$code )\n";
}
sub nod <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11523	11653	
==>ation {
    my $code = match::str( match::get( 
        { capture => $_[0] }, 
        '$<variable>'
    ) );
    return "$_[1] rul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26778	26903	
==>ush @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27057	27182	
==>ush @statements, \&sub_application;
*{'eval_perl5'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	8847	8962	
==>r(mob, pos, "Missing closing braces for closure")
    .return (mob)
.end
    

.sub "parse_quant"
    .param pmc mob <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34408	34514	
==>D>), graph, lower,
print, punct, space (C<\s>, C<\S>), upper, word, xdigit; others are
possible (Unicode pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	992	1157	
==>> 1,

        match => { 'p6ws'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] =~ /^((?:\s|\#(?-s: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	951	1111	
==>> 1,
        match => { 'p6ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] =~ /^((?:\s|\#(?-s: <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8642	8743	
==>f_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8700	8801	
==>f_tests_badpass) {
        $*ERR.say("# Looks like $Test::num_of_tests_badpass tests of $Test::num_of_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6951	7050	
==>nboxed' versions. 



The rule() constructor provides an interface between the 

low-level functiona <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6714	6810	
==>nboxed' versions. 

The rule() constructor provides an interface between the 
low-level functiona <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	1450	1544	
==>ils::MM_Cygwin;
    require ExtUtils::MM_Win32;
    if (!defined(&ExtUtils::MM_Cygwin::maybe_co <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	1370	1460	
==>ils::MM_Cygwin;
	require ExtUtils::MM_Win32;
	if ( ! defined(&ExtUtils::MM_Cygwin::maybe_co <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8834	8947	
==>operator::nary') => sub {
	my ($x, $y) = (shift, shift);

	$x->{name} eq $y->{name}
		or die "Can't unify $x->{nam <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19490	19586	
==>ere Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19490	19586	
==>ere Foo is a Module::Compile subclass.

The lines within a given block between a C<use> and C<no> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	513	688	
==>xtract to a temp dir
            my $my_tmp_dir = $Tmpdir . "/$$";
            system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
            
            ### extr <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	803	962	
==>xtract to a temp dir
        my $my_tmp_dir = $Tmpdir . "/$$";
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        ### extr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13583	13797	
==>_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13583	13797	
==>_sex(),
            } );
            $prh_add_person.bind_arg( 'new_person', $new_person );
            try {
                $prh_add_person.execute();
            };
            if (my $e = $!) {
                s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4490	4621	
==>1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4490	4621	
==>1 SYNOPSIS

  pugs -MLWP::Simple -e 'getprint "http://www.sn.no"'

  require LWP::Simple;
  $content = get("http://www.sn.no/");
  d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9147	9243	
==>_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_perso <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9147	9243	
==>_create_tb_person = $irl_doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_perso <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5215	5346	
==>1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5273	5404	
==>1, "", "skip $reason", :$depends);
        } else {
            Test::skip $reason, :$depends;
        }
    }
}

sub skip_rest (Str <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6304	6406	
==>e attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will wan <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6304	6406	
==>e attributes.

=over 4

=item C<BEGIN>

Although not technically part of the API, most ciphers will wan <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	2535	2653	
==>iption (String $name, $subscriber = $?CALLER::?SELF) {
            my $subscription = Class::Events::Subscription::Name <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	225	328	
==>se strict 'vars';
use vars qw($VERSION);

sub Meta { shift }

my @scalar_keys = qw<
    name module_name <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	1243	1430	
==>6;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            tak <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	1243	1430	
==>6;
            $quad  +|= $b3 +<  8;
            $quad  +|= $b4;
            take $quad;
        }
    }
}

my method splitbytes(@bytes) {
    gather {
        for @bytes {
            tak <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13714	13811	
==>the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13714	13811	
==>the number of distinct field names.

=item $h.scan( \&process_header_field )

Apply a subroutine t <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2275	2371	
==>fdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r->offsets[1] == RE <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6369	6476	
==>document identified by a URL. The document is printed
to the selected default filehandle for output (normall <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6369	6476	
==>document identified by a URL. The document is printed
to the selected default filehandle for output (normall <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3399	3497	
==>\%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for P <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3399	3497	
==>\%events;
}

=pod

=head1 NAME

Pod::Event::Handler::POD - A collection of POD event handlers for P <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3121	3242	
==>a type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

rege <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3121	3242	
==>a type }
regex zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

rege <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2372	2482	
==>nels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2372	2482	
==>nels, hash keys are always normalized().
  my %cache353;            # We need a temporary storage for the names <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1450	1548	
==>he 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1450	1548	
==>he 
full complexity.

=head3 Procedural interface

The Cipher API's procedural interface is good en <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13703	13832	
==>dler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    li <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13703	13832	
==>dler{$pseudo}) {
        $_($event) for *%handler{$pseudo};
      }
    },

    # Check that our connection is still alive.
    li <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	4711	4832	
==>reduce($val->struct_equiv->val);
}

sub add_definition {
	my $self = shift;
	my $node = shift;
	my $body = shift;

	push @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15121	15221	
==>th and of
an arbitrary type. The function signatures will likely look something
like this:

  multi s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15179	15279	
==>th and of
an arbitrary type. The function signatures will likely look something
like this:

  multi s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36521	36619	
==>e) Message object as its positional
parameter $message and returns an equivalent human readable tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36521	36619	
==>e) Message object as its positional
parameter $message and returns an equivalent human readable tex <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18757	18884	
==>totals->{skip_reason} ne $detail->{reason};
        }
    }
    else {
        _print_ml("NOK $curr");
    }

    if( $curr > $n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	25531	25632	
==>n, but a Relation::Example is not a table.

The Relation::Example class is pure and deterministic, suc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5397	5523	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5590	5716	
==>ture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	332	431	
==>pected to serve as a tool to somewhat speed up
# the rewrite of existing p5 programs instead of doin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12420	12537	
==>g "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12420	12537	
==>g "Error in connection to $host:$port (\"$0\").";
        $self<disconnect>();
      } elsif($line ~~ rx:P5/^PING ?:?( <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2069	2189	
==>efault {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %result;
 }

 multi sub Array::reverse <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5763	5878	
==>ns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5763	5878	
==>ns Str is export {
  return '\\';
}

sub tmpdir returns Str is export {
  return '';
}

sub rel2abs (Str $_path, Str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5725	5865	
==>. " '', " . _emit( $n->{param} ) 
            if $n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        r <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	72	193	
==>pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	72	193	
==>pil.exe' !! './pil');

sub check_pil {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8311	8405	
==>atal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the spec <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8311	8405	
==>atal to insert an item which is already inserted.

=head2 C<$set.remove(...)>

Removes the spec <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6184	6327	
==>apture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6184	6327	
==>apture {
    my $name    = $_[0]{ident};
    my $program = $_[0]{rule};
    return 
        "$_[1] capture( '$name', \n" . 
        emit_rule($p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4048	4156	
==>e default Perl6 libs,

  # - an emitter that generates perl5

  # load it as 'the' handler for 'eval( ... , : <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3905	4011	
==>e default Perl6 libs,
  # - an emitter that generates perl5
  # load it as 'the' handler for 'eval( ... , : <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2091	2217	
==>},

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_siz <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2091	2217	
==>},

    token_flow => {
      my $time = time;

      $tokens += ($time - $last_check_time) * $rate;
      $tokens = $burst_siz <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	382	497	
==>if $space =~ /\n/;
#    print "[$segil][$name][$space]\n";
#    # var
#    if (length $segil != 0) {
#	$segil =~ s/^ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	101	203	
==>ulti *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix: <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	101	203	
==>ulti *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# Haskell `...` metaoperator
multi *infix: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4241	4331	
==>lue
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" pa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4241	4331	
==>lue
("Value"), and Rosetta::Interface::Variable ("Variable").

I<Note that the "Rosetta" pa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1632	1738	
==>$content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?, <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1632	1738	
==>$content_type? = 'text/html',
    Str  $status? = '200 OK',
    Str  $charset? = undef,
    Str :$cookies?, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1690	1817	
==>, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1690	1817	
==>, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.join(":");
    @res[0] = shi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15780	15957	
==>.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $cod <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15780	15957	
==>.count(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @!queue.unshift(@q);
    }

    # Enqueue a new callback
    method enqueue(Code $cod <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9283	9383	
==>coding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9283	9383	
==>coding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10431	10564	
==>$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10425	10558	
==>$match;
$_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14569	14673	
==>`start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14569	14673	
==>`start` if bigger than `end`.

- `new( after => 1.0, before => 2.0 )`

Creates an "open" span, that is, i <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2394	2490	
==>.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2394	2490	
==>.includes($self.members));
}
method superset($self: Set $other) returns Bool {
    return ($other <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1194	1291	
==>sult> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. return <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1194	1291	
==>sult> object as a parameter).  If the parser
succeeds, it tail-calls the continuation (i.e. return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3934	4064	
==>hostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3934	4064	
==>hostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a chan.
  %handler<332> = [-> $eve <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	425	536	
==>it(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    i <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	425	536	
==>it(<regexp>, Str) yet.
    my @dirs = split("/", $directories);
    @dirs = @dirs.map:{ split("\\", $_) };
    i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5646	5779	
==>ubclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => su <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9957	10090	
==>ubclasses

my $Bar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14606	14747	
==>ex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14606	14747	
==>ex') );
            }
        }
    };

    # Close the database connection (it can be reopened later).
    $conn.close();

=head1 DESCRIPTION <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3337	3478	
==>list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4186	4327	
==>list>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8456	8546	
==>r::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2281	2371	
==>r::Perl6->use_v6(@_) };
push @statements, sub { Grammar::Perl6->require(@_) };
push @statem <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18498	18618	
==>paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14919	15039	
==>paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    r <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	633	732	
==>tive - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	633	732	
==>tive - Selectively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	569	727	
==>urn;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	562	720	
==>urn;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \$rule->( \@_ );
        return unless \$match;
        my \$c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1818	1948	
==>{ &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1818	1948	
==>{ &{$.cstart}() ~ '....' ~ &{$.cend}() }, 
        $.is_lazy        //= Bool::True,
        $.celems         //= ( defined $.cstart <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1	103	
==>use strict;
use warnings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Hash.pm	0	102	
==>use strict;
use warnings;

use Perl6::MetaModel;

use PIL::Run::Container::Scalar;

sub mk_containers { <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4541	4666	
==>lsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oc <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4541	4666	
==>lsif (all(@string[0..1])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0xFF); # 0.oc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5718	5843	
==>m[2]}, capture=>1 };

        my $match = $node->( @param );

        return unless $match->{bool};

        return if $match- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5536	5658	
==>m[2]}, capture=>1 };
        my $match = $node->( @param );
        return unless $match->{bool};
        return if $match- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18647	18749	
==>ins the link that the user followed to the current
     page.  Most browsers pass this information as p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18647	18749	
==>ins the link that the user followed to the current
     page.  Most browsers pass this information as p <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10535	10659	
==>e.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_childre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10535	10659	
==>e.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>).add_childre <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9333	9450	
==>or @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_heigh <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9333	9450	
==>or @!children -> $child is rw {
            my $child_height = $child.height();
            $max_height = $child_heigh <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5588	5679	
==>y the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5588	5679	
==>y the same name

Joshua Gatcomb, E<lt>Limbic_Region_2000@Yahoo.comE<gt>

Stevan Little, E<lt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	5082	5225	
==>'::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status                 = $::SELF->$status_sub();
            $st <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4346	4480	
==>'::Test')->FETCH('::WithReason')->FETCH('&status');            
            my $status        = $::SELF->$status_sub();
            $st <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	6676	6929	
==>e(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	6676	6929	
==>e(
                            from => $match.pos,
                            to => $m.pos,
                        );
                        my $mmat = $match.match;
                        my $newnump = $mmat.capture_num;
                        my $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1757	1855	
==>lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Ra <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1757	1855	
==>lazy List / Array of junctions is tested
* removed 'Iter' class; renamed 'Iter::Range' to 'Lazy::Ra <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6159	6349	
==>fined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if d <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6159	6349	
==>fined $.current {
                my $span = @spans[$.current_span];
                $.current = $span.next( $.current );                
            }
            else {
                if d <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2523	2665	
==>e;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2523	2665	
==>e;
    }
    else {
        my $ret = $container ?? [ *$container ] !! [ ];
        my $idx = $multidex[0];
        $ret[$idx] = multidex($ret[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36808	36905	
==>turns undef.  This method could be
considered to implement the 'main' functionality of Locale::Key <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36808	36905	
==>turns undef.  This method could be
considered to implement the 'main' functionality of Locale::Key <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	289	445	
==>, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	289	445	
==>, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s*=\s*\"([^\"\\]*(?:\\.[^\" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16531	16666	
==>->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12952	13087	
==>->object(anyof => $neg);
  });

  # char class ] at beginning
  $self->add_handler('cc]' => sub {
    my ($S) = @_;
    return unless ${ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	148	254	
==>Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" func <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	148	254	
==>Filtered-Comments.pm
use Data::Dumper;
use PadWalker qw( peek_my );  # peek_our ); ???

=pod

A "rule" func <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31340	31616	
==>'@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$counter' => num->ne <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	86	199	
==>_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show all elemen <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	86	199	
==>_list
    * contains
    * include Span::Code in Span.pm API
    * document that stringify doesn't show all elemen <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1194	1287	
==>Working with a p5 accessible runtime (pil2js or pilrun), and/or
  motivating implementations i <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1167	1266	
==>SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the let <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1167	1266	
==>SECURITY

Caesar ciphers provide extremely trivial security; a cryptanalyst need only 
graph the let <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1258	1407	
==>ompile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1258	1407	
==>ompile( q(
    \{ <body>* \}
    { 
        return { 
            block => [ map { $_->() } @{$<body>} ],
        } 
    }
) )->code;

*statement = $r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10244	10342	
==>such as that mandatory
constructor arguments are provided and that they are of the correct
containe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10244	10342	
==>such as that mandatory
constructor arguments are provided and that they are of the correct
containe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3056	3184	
==>];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq " <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3056	3184	
==>];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if $op eq "INIT" and @old;
  if $val.defined {
    my @new = ($op eq " <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4492	4590	
==>sion of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only funct <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4492	4590	
==>sion of Pugs does not support OO, methods are
implemented as hash keys to code refs. The only funct <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24151	24260	
==>has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28703	28812	
==>has zero attributes.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation h <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2454	2603	
==>into the available list
                ### XXX temp file, then mv
                my @list = LoadFile( $Available );
                push @list, $inf <==
2	/Users/nnunley/pugs/util/config_h.pl	1595	1727	
==>on.

.
}

close OUT;

sub try_compile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2159	2261	
==>ther);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2159	2261	
==>ther);
}

method subset($self: Set $other) returns Bool {
    return ($self.size <= $other.size && $oth <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3165	3312	
==>@matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3165	3312	
==>@matches;
        $_[3] = { match => [] };
        while (1) {
            
            $matches[0] = $nodes[0]->( $tail, $state[0], $_[2], $_[3]{ma <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2269	2370	
==>esolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook. <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2269	2370	
==>esolved
    $RealScript  - $Script with all links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	1798	1904	
==>Compile;
use strict;
use Carp;

sub new {
    my($cls,$datatype,$data)=@_;
    die "bug" if $datatype !~ /\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postcircumfix.pm	25	119	
==>:Postcircumfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Gram <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10235	10339	
==>d )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  Th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10235	10339	
==>d )

=item $h->header( $field ) = ( $value, ... )

Get or set the value of one or more header fields.  Th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3907	4072	
==>rt_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3907	4072	
==>rt_is_open($start_is_open), 
                                    :end_is_open($end_is_open) );
        }
        else
        {
            $.span = Span::Num.empty_s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	410	556	
==>tent',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        30 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	410	556	
==>tent',
        207 => 'Multi-Status',                    # WebDAV
        300 => 'Multiple Choices',
        301 => 'Moved Permanently',
        30 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2669	2774	
==>use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2669	2774	
==>use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*ProductionRule = Pugs::C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	624	798	
==>{
            $deep--;
            last PARENMATCH unless $deep;
        } else {
            $deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::Rul <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5128	5238	
==>->write_meta;
    return $self;
}

sub version_from {
    my ( $self, $file ) = @_;
    require ExtUtils::MM_Un <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4440	4569	
==>dex == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4440	4569	
==>dex == 0) {
        $removed_child = @!children.shift;
    }
    # if index is equal to the number of children
    # then use this <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15769	15888	
==>header fields are used to make a request conditional.  If the requested
resource has (or has not) been modified since th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15769	15888	
==>header fields are used to make a request conditional.  If the requested
resource has (or has not) been modified since th <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20164	20266	
==>ble on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and e <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20164	20266	
==>ble on its own.  It is
coded intentionally in a simple fashion so that it is easy to maintain and
and e <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2675	2781	
==>or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
con <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2675	2781	
==>or just process) I<N> items (not
exactly right, I<N> can be fractional) from the stream. A bucket never
con <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5593	5724	
==>ft @INC, $self->{prefix};
    }

    foreach my $rv ( $self->find_extensions($path) ) {
        my ($file, $pkg) = @{$rv};
        n <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11237	11323	
==>6_simple_escape_sequence(char(C)) --> "\\f", {[C] = "\f"}, !.
p6_simple_escape_sequence <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	26548	26697	
==>{
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ")";
  }
}


{
  package Regexp::Parser: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15315	15427	
==>{
    my $self = shift;
    join "", "(?", $self->{on},
      (length $self->{off} ? "-" : ""), $self->{off}, ":" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3934	4045	
==>::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Keyed <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3934	4045	
==>::KeyedText::Translator class, that do export symbols:
    # (None Yet)

    # Attributes of every Locale::Keyed <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	581	680	
==>ore()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Valu <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	581	680	
==>ore()
* Removed redundant methods next(), previous()

2005-08-09
* Renamed Lazy::List to Perl6::Valu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6252	6382	
==>)
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6264	6394	
==>)
        if ref( $match ) eq 'ARRAY';
    return join( '', map { match::str( $_ ) } values %$match )
        if ref( $match ) eq ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	19570	19667	
==>stead of I<anyof_char> nodes when inside character classes.  Fixed.
(Mike Lambert)

Non-grouping p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32116	32222	
==>to said error
message.  If it finds one, then that is displayed; if not, it then checks
each set's member f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32116	32222	
==>to said error
message.  If it finds one, then that is displayed; if not, it then checks
each set's member f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2758	2891	
==>n.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2758	2891	
==>n.start_is_open ) ) {
        return ( $self, $span );
    }
    $cmp = $.start <=> $span.end;
    if ( $cmp > 0 ||
         ( $cmp == <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24225	24371	
==>apture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24504	24650	
==>apture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'gram <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1056	1174	
==>urns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1056	1174	
==>urns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $.width += $chil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3094	3255	
==>1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3094	3255	
==>1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7785	7922	
==>/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7785	7922	
==>/;
        return "$_[1] constant( q($cmd) )\n";
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $cmd = substr( $cmd <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4766	4910	
==>for my $i (reverse(1..$#a)) {
      $code0 .= "my \$f$i = \$fs[$i]; ";
      $code1 .= "sub{\@_=";
      $code2 .= ";goto \&\$f$i}";
    }
    my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31877	31972	
==>d is a generic binary relational operator that takes a single
Relation in its C<$other> argument <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36427	36522	
==>d is a generic binary relational operator that takes a single
Relation in its C<$other> argument <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14906	15004	
==>y_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14906	15004	
==>y_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semantics.

- `new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5982	6095	
==>) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5982	6095	
==>) is rw {
  return Proxy.new(
    FETCH => {
      my $ct = ($self!header("Content-Type"))[0];
      return "" unl <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	430	540	
==>>members;
}

sub generic_reduce {
    my $self = shift;
    my $node = shift;

    if ($self->{seen}->includes( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2703	2805	
==>)
     (while (($current is_not_nil) and ($method is_nil))
        (($current send (has_method $label)) <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2298	2423	
==>stead
    my $pod = $file;
    if ( $pod =~ s/\.pm$/.pod/i and -e $pod ) {
        $file = $pod;
    }

    $self->author_from <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1220	1330	
==>host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1187	1297	
==>host, Passive => 1, Timeout => 600);
        $ftp->login("anonymous", 'anonymous@example.com');
        $ftp->c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3026	3137	
==>y = pop @{ $self->{next} }) {
    if (defined(my $r = $self->$try)) {
      $r->insert($self->{tree});
      ret <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	69	162	
==>cessor';

use JIB::Constants;
use JIB::Config;

use JIB::Package::Source;
use JIB::Package::Bi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13215	13317	
==>02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6690	6792	
==>02s", $num);
    return $S->force_object(anyof_char => chr hex $num, $rep) if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10217	10389	
==>minmod >;
    return $S->object(quant => 1, '');
  });

  $self->add_handler('?' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(qua <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21831	21960	
==>_type(C,xdigit(_))).
class_member(class_pos(ascii)     ,C) :- !,    isAscii(C).
class_member(class_neg(ascii)     ,C) :- !, \+(isA <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2628	2754	
==>e accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacut <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2628	2754	
==>e accent
    "eth"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacut <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10652	10789	
==>gram );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10646	10783	
==>gram );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1577	1678	
==>_case{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1577	1678	
==>_case{$lc} = $_;
  }
}

has %!headers;

submethod BUILD ($self: Str *%headers) {
  $self.header($_.key <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2289	2442	
==>ends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends->{package} };
                }

                ### writ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11893	11993	
==>e same field are retained.

As for the header() method, the field name ($field) is not case
sensitive <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11893	11993	
==>e same field are retained.

As for the header() method, the field name ($field) is not case
sensitive <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6995	7130	
==>[ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6995	7130	
==>[ url_decode($value) ];            
        }
    }  
}

sub load_params {
    $IS_PARAMS_LOADED = 1; 
    ## initialize all the globals <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2416	2515	
==>nue when you run it again.

Note: This program should be run as unpreviliged user, it will ask you t <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2803	2942	
==>l_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2803	2942	
==>l_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	3694	3800	
==>ise
    # exceptions or return false values to signal error conditions
    # in library code. Do either! Le <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6832	6936	
==>al";
}

sub runcore2human {
  local $_ = shift;

  $_ eq "jsperl5"and return "JSPERL5 (Perl 6 on JavaScri <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5213	5344	
==>lify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5213	5344	
==>lify this 
    my @a = $.set.spans;
    @a = reverse @a;
    for @a {
        my $result = $_.previous( $x );
        return $result <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6832	6951	
==>e()



### internals - move to module documentation



Rules, just like other Perl 6 values, exists in 'boxed' 

and 'un <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6600	6714	
==>e()

### internals - move to module documentation

Rules, just like other Perl 6 values, exists in 'boxed' 
and 'un <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3613	3698	
==>_concatenation_more(W, Z) --> p6_quantified(X), p6_concatenation_more(conc(W,X), Z), ! <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	663	779	
==>] )";
}

sub call_constant {
    my $const = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5954	6052	
==>cePosition = $position;
  push @bsrStack, "bsr_token_match_3";
  goto token_match;
  bsr_token_matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	89	190	
==>XPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	89	190	
==>XPORT=qw(dump_tree); 

use interface;
our $dumper;
#Will work soon...
my %format = (
	yaml => ['YAML', <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12342	12441	
==>rent time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like t <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12342	12441	
==>rent time, this is a work in progress to test Pugs'
features.  It does not (yet) behave quite like t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9109	9251	
==>$gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9097	9239	
==>$gen_match, $post_match);
    if ( $flat ) {
        $try_match = <<"."
$_[1]     my \$bool = 1;
$_[1]     \$bool = 0 unless
.
.            $pr <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	519	625	
==>$a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	519	625	
==>$a, $b) { $a === $b }
multi *infix:<≡> ($a, $b) { $a === $b }

# Misc. mathematical chars
multi *prefix:< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4154	4290	
==>$s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4294	4430	
==>$s =~ s/\\/\\\\/sg;
    return $s;
}

sub perl5 {
    my $self = shift;
    return "bless {\n" . 
        "  grammar "  .  "=> q(" . _str <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7766	7870	
==>, 0  or die "Couldn't rewind \"@{[ BUCKET ]}\": $!\n";
  truncate $fh, 0     or die "Couldn't truncate \" <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6966	7061	
==>>$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_numb <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6966	7061	
==>>$post_process($filtered_content, $real_data);

        $filtered_content =~ s/(.*\n){$line_numb <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4390	4497	
==>given I<@test_files> and divines whether they passed
or failed based on their output to STDOUT (details abov <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	3375	3542	
==>SOURCE
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Package::Source') }; 
use constant ISA_JIB_PA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1368	1483	
==>5}, "\n";

    open FILE, ">", $pmc
        or die "can't open $pmc for writing";

    print FILE $p6->{perl5}, "\n" <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2869	3042	
==>no filename";
        if ($filename eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3086	3259	
==>no filename";
        if ($filename eq '-') {
            warn "* compiling source from STDIN\n";
            *FILE = *STDIN
        } else {
            warn "* compiling: $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23671	23788	
==>ring. */



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28890	28986	
==>ring. */
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0 <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25970	26115	
==>efine ROPT_ANCH_MBOL	 	0x00002
 #define ROPT_ANCH_SBOL	 	0x00004
 #define ROPT_ANCH_GPOS	 	0x00008
 #define ROPT_SKIP		0x00010
 #define ROPT_IMPLI <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18502	18616	
==>ation::Example {
    return Relation::Example.new(
        heading => $!heading,
        body => $!body.union( $oth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3562	3658	
==>t describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3562	3658	
==>t describes Rosetta::Shell version 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=h <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	384	506	
==>ort() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshif <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	384	506	
==>ort() must be directory, not file");
        }
        # add to the @*INC, but do not allow duplicates
        @*INC.unshif <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11391	11538	
==>, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11391	11538	
==>, $1, $2, $3);
    } elsif $line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/ {
      ./:handle_command($line, $0, $1, $2, $3);
    } elsif $line ~~ rx: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9098	9190	
==>urn nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9098	9190	
==>urn nothing if the set is empty.

- `start_is_open()` / `end_is_open()` / `start_is_closed()` <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18995	19099	
==>, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applications can be <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18995	19099	
==>, and it
can support a complete SQL emulation layer on top of it, so that your
legacy applications can be <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1733	1886	
==>RIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, use <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1733	1886	
==>RIVMSG)
                           # messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, use <==
2	/Users/nnunley/pugs/examples/hop6/Lexer.pm	1293	1427	
==>[~] @newtoks;
      undefine $buf
        if !defined $i;

      @tokens.=grep:{ $_ ne "" };
    }
    # say "tokens looks like: {@toke <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17599	17715	
==>t it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot ob <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17599	17715	
==>t it is I<not> a port of
Perl 5's C<Net::IRC>.

=head1 METHODS

=head2 C<Net::IRC::OO.new(...)>

Creates a new bot ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	664	861	
==>*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	664	861	
==>*=\s*([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } e <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1312	1409	
==>s a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1312	1409	
==>s a C<:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	14672	14765	
==>xrc ramdisk_size=$initrd_size quiet
initrd   /boot/initrd.gz
clear
cat      /boot/splashscreen <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	350	453	
==>lass->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - C <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	350	453	
==>lass->SUPER::compile( $rule_source, $param );   
}

1;

__END__

=head1 NAME 

Pugs::Compiler::Token - C <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	982	1137	
==>gs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	982	1137	
==>gs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub build {
    my $self = s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6060	6165	
==>ture set inside capture_closure:

  xx(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5867	5968	
==>ture set inside capture_closure:
  xx(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6361	6524	
==>$context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test:: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6419	6582	
==>$context = $todo;
        }
        else {
            $context =  "TODO" ~ ($todo.isa('Str') ?? " $todo" !! '');
            if ( $cond ) {
                $Test:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7897	8028	
==>l_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_AR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7897	8028	
==>l_elem.does(Hash);
        for ('document', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_N_AR <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14423	14526	
==>exp library.  http://arglist.com/regex/  While the code has diverged,
  at least the library has some do <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	1173	1264	
==>er or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	488	610	
==>uptodate = (-s $pmc and (-M $pmc <= -M $file));
        if ($pmc_is_uptodate) {
            local $@; do $pmc; die $@ if $@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9197	9290	
==>tation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-orie <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9197	9290	
==>tation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-orie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2766	2909	
==>m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2766	2909	
==>m->{label} eq '';
        if ( exists $r{ $m->{label} } ) {
            if ( ref( $r{$m->{label}} ) eq 'ARRAY' ) {
                push @{$r{$m- <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14417	14549	
==>ib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $fir <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14417	14549	
==>ib;

    sub add_two (Num $first!, Num $second!,
            Locale::KeyedText::Translator $translator!) {
        my Num $sum = $fir <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36790	36899	
==>ed, this method returns undef.  This method could be
considered to implement the 'main' functionality of Local <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36790	36899	
==>ed, this method returns undef.  This method could be
considered to implement the 'main' functionality of Local <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13687	13788	
==>g name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13687	13788	
==>g name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entities($string, { nb <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15221	15348	
==>se_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15500	15627	
==>se_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::concat(
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3120	3222	
==>mpiler, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so l <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3010	3108	
==>mpiler, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so l <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	350	488	
==>}

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output. <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	350	488	
==>}

    method output returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11853	11984	
==>e, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11853	11984	
==>e, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $server,
      to     => $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3123	3221	
==>et;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $o <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3123	3221	
==>et;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ $o <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3333	3430	
==>lf.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: S <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3333	3430	
==>lf.members.grep:{ !$other.includes($_) });
    return $rv;
}

method symmetric_difference($self: S <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25977	26062	
==>lists([X|Xs],[L|Ls]) :- listify(X,L), listify_lists(Xs,Ls).
listify_lists([],[]).

dom <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34632	34887	
==>(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e->set('$next' => $e- <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	650	738	
==>xern@cpan.org)
# --------------------------------------------------

use strict;
use IO:: <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5219	5317	
==>tem data

The C<data> method returns a hash reference representing the configuration data

=item wr <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5219	5317	
==>tem data

The C<data> method returns a hash reference representing the configuration data

=item wr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5055	5206	
==>atches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5055	5206	
==>atches[1]{state} ];
            }

            # XXX - cleanup!
            my $match2 = { %{$matches[1]} };

            if ( defined $match2->{tail} ) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9670	9805	
==>ebug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Dis <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9670	9805	
==>ebug "done.";
    } else {
      debug "failed ($!).";
    }
  }

  method disconnect() {
    return unless $.connected;

    debug "Dis <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1742	1891	
==>( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1742	1891	
==>( Locale::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_SUCCESS',
            msg_vars => {
                'ENGINE_NAME' => $engin <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7645	7788	
==>efine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7645	7788	
==>efine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current;
    }
}

=kwid

= NAME

Set: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3108	3326	
==>'   => 1,
                        '$.number' => $self->get_test_number(),
                        '$.reason' =>  $reason,
                    )
                );
            }
        },        
        'skip_all' => s <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	12703	12820	
==>ft;
    Interpreter->new->reduce($ast);
}

sub provides {
    my $self = shift;
    my $hash = shift;

    $self->{$ha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	194	285	
==>ediate_statement_rule'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <?p6ws>? <@G <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	744	847	
==>{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->fl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	744	847	
==>{str}}, $_[0]->from, $_[0]->to - $_[0]->from );
}

# return the capture
sub code {
    my $c = $_[0]->fl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1409	1529	
==>ueue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1409	1529	
==>ueue $!queue;
  has Array %!handler;
  has Hash  %!channels;
  has Hash  %!users;
  has Hash  %!cache353;
  has Bool  $!i <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	448	566	
==>, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Local <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	448	566	
==>, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has DateTime::Local <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7496	7650	
==>omplement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7496	7650	
==>omplement_next =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_next }( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12143	12282	
==>{
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4786	4925	
==>{
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) }xgcs;

    my $name = $1;
    if ($name eq '{') {
      $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2360	2630	
==>= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2360	2630	
==>= "</CODE>"                     
                }                        
                when rx:perl5/[BI]/ {
                    $buffer ~= "</" ~ $mod ~ ">"             
                }
            }
        },      

        # Text handling
        verbatim => -> <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5078	5195	
==>he parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that th <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5078	5195	
==>he parent
    # so we change its parent to ROOT
    $removed_child!remove_parent();
    # and now we make sure that th <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2740	2858	
==>sertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &conti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2740	2858	
==>sertion ($assert) {
    $.Parser.new(parse => sub ($match, &continue) {
        if $assert($match) {
            &conti <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2078	2184	
==>mic scope",
	},
);

sub smoke_runtime {
	my $runtime_class = shift;

	foreach my $prog (@progs) {
		my $r = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6204	6297	
==>lem,
please let L<me|/"AUTHOR"> know.

Documentation has been added and moved around. See
L<Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	787	927	
==>fix:<' . $opt{name} . '>" ,} }' );
}


BEGIN {
    __PACKAGE__->add_rule( 
        name => '+',
        assoc => 'left',
        precedence = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8732	8833	
==>8, '... $iFoo is the fourth id');

# try to call the Class method
fails_ok { $iFoo->name } '... instan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1653	1778	
==>efined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1641	1766	
==>efined \$_[1];\n" .
        "  \$pos = 0 unless defined \$pos;   # TODO - .*? \$match \n" .
        #"  print \"match pos = \$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3865	4001	
==>>$status_sub();
            $status->{"reason"} = _('$.reason');
            return $status;
        }
    }
});

$::TestBuilder->FETCH(' <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13772	13875	
==>to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13772	13875	
==>to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15672	15774	
==>ntities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15672	15774	
==>ntities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18332	18506	
==>"\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18611	18785	
==>"\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\/" )
       ,
         ruleop::optio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	904	1017	
==>5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence o <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	904	1017	
==>5 version of Set::Infinite:
    * "backtracking"  
    * map / grep / intersected_spans / span 
    * recurrence o <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1587	1676	
==>\".\$m->to.\"/g;
	$expr =~ s/\$\-\[([0-9]+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12707	12801	
==>1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12707	12801	
==>1.proper_superset($set2)>

=head2 C<$set1 ⊃ $set2>

=head2 C<$set1 ⊋ $set2>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2021	2130	
==>ute names must be symbols";    
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1703	1808	
==>ute names must be symbols";
    ($self->[2]->exists($name) == $bit::TRUE)
        || confess "Attribute (" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20962	21082	
==>n $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17383	17503	
==>n $S->object(ifmatch => 1);
  });

  # look-ahead (neg)
  $self->add_handler('(?!' => sub {
    my ($S) = @_;
    push @{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17219	17334	
==>> 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17219	17334	
==>> 0,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3937	4096	
==>ta) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof',
      type => 'anyof',
      neg => $neg,
      data <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	278	379	
==>fix=$/, @ARGV;
my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	892	993	
==>=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Sim <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	892	993	
==>=head1 SYNOPSIS

Drop-in replacement for L<Filter::Simple>:

    package MyFilter;
    use Filter::Sim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4318	4440	
==>2'],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4169	4287	
==>2'],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1243	1387	
==>=>      $params{'$.reason'},
                '$.number'      =>      $params{'$.number'},
            ) if $params{'$.skip'};

            return <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2433	2529	
==>s/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit f <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2433	2529	
==>s/kv/pairs/values with indexes (S29)

use Perl6::Value::List; 

# This class should not inherit f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	587	729	
==>ta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum + <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	587	729	
==>ta;
            $v0  += ($v1 +< 4) + @.key[0] +^ $v1 + $sum +^ ($v1 +> 5) + @.key[1];
            $v1  += ($v0 +< 4) + @.key[2] +^ $v0 + $sum + <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1264	1363	
==>hods are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

clas <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1264	1363	
==>hods are disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

clas <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6129	6245	
==>nd the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing P <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6129	6245	
==>nd the Perl-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing P <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5886	5991	
==>"PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5886	5991	
==>"PART", -> $event {
      my $chan = normalize $event<object>;

      if(normalize($event<from_nick>) eq n <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	800	903	
==>o) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#mul <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	800	903	
==>o) {
    $one.symmetric_difference($two);
}

# XXX define multisubs
# comparison is subset/superset
#mul <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	161	286	
==>et;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	161	286	
==>et;

    # configure a bucket to limit a stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6781	6905	
==>ile()



### obvious - not document ?

...



- rule()



### internals - move to module documentation



Rules, just like ot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6554	6669	
==>ile()

### obvious - not document ?
...

- rule()

### internals - move to module documentation

Rules, just like ot <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11270	11417	
==>rint "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11402	11549	
==>rint "Code: $code\n";
    
    return "$_[1] sub {\n" . 
           "$_[1]     $code;\n" . 
           "$_[1]     return { bool => 1, tail => \$_[0] <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8189	8284	
==>ine.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is found. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8189	8284	
==>ine.

=item I<start_element ('verbatim')>

This event is fired once a verbatim section is found. <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4272	4389	
==>octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@i <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4272	4389	
==>octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@i <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	961	1174	
==>s);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                i <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	961	1174	
==>s);
                    say "  +f $abs" if $.debug;
                }
                else { say "  -f $abs" if $.debug }
            }
            # XXX: Add symlink detection!
            else {
                i <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	130	244	
==>"Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	130	244	
==>"Code");
    # TODO: handle count too low case.
    return _time_func( _loop_func($count, $code) )
           »-« <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1579	1679	
==>PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::Po <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1579	1679	
==>PILPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::Po <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2734	2829	
==>exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation o <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2734	2829	
==>exists, too.

=over

=item B<source>

=item B<source($new_source)>

Returns the representation o <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	750	877	
==>ent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.inclu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	750	877	
==>ent_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the trunk
    if $self.inclu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25041	25147	
==>Thus, the terms and conditions of the GPL
cover the whole combination.  As a special exception, the copyrig <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25041	25147	
==>Thus, the terms and conditions of the GPL
cover the whole combination.  As a special exception, the copyrig <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6325	6442	
==>str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6337	6454	
==>str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $match;
}

#------ rule emitter

# compile <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18975	19085	
==>to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.exp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18975	19085	
==>to demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.exp <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	1302	1421	
==>$1} or die "Operator '$1' is not defined in $name $prec";
        $nprec = $op->{'nprec'};
      }
      else { die "Did <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	36	136	
==>nings;

use Perl6::MetaModel;

1;

__END__

module Test::Builder::Tester-0.2.1;

use v6;

use Test::B <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3507	3709	
==>my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3507	3709	
==>my $_line = $fh.readline;
                            while (defined($_line)             && 
                                   !($_line ~~ rx:perl5{^\n$}) ) {
                                interpolate <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	607	718	
==>method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
me <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	607	718	
==>method end () returns Object {
    return unless @.spans;
    my $last = @.spans[-1];
    return $last.end;
}
me <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/reduce1.pl	40	148	
==>refix:<Σ> (@x) { [+] *@x }   # Summe
sub postfix:<!> ($x) { [*] 1..$x } # Produkt
say Σ [1..5!] # 7260 
#=a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5788	5890	
==>ement'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<op> := (die|\.\.\.) \;
        { retu <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2883	3005	
==>( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2883	3005	
==>( $cmp == 0 && $span.end_is_open && $.start_is_open ) ) {
        return ( $span, $self );
    }

    my ($i_start, $i_end, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8459	8572	
==>new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinit <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8459	8572	
==>new()`

Without any parameters, returns an empty span.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2611	2740	
==>he compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2828	2957	
==>he compilation to use the new prelude...\n";
        goto RESTART;
      }
      else {
        ## print "* loading Prelude: $prel <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	489	639	
==>ume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	489	639	
==>ume    = '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2664	2773	
==>t[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2664	2773	
==>t[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assertion ($assert) {
    $.Parser.n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4652	4768	
==>code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    } <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4710	4826	
==>code() };
    if ($!) {
        Test::proclaim(undef, $desc, $todo, "An exception was thrown : $!", :$depends);
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7117	7273	
==>MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully load <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7117	7273	
==>MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfully load <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3191	3384	
==>Builddir/$path $Site] )       and die $?;     
            
            ### link files to $PATH/$MANPATH
            ### XXX symlink the manpages
            LINKING: {   
                my $my <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7694	7803	
==>for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' dir <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7694	7803	
==>for' directive) 
is reached.    
    
=item I<start_element ('list')>

This event is fired when an '=over' dir <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2922	3045	
==>s is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2922	3045	
==>s is ok, because we can use <$var><$var> instead
    
    return concat( +shift, concat( @_ ) )
        if @_ > 2;
    my @n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6395	6502	
==>eturn $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_progra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6407	6514	
==>eturn $match;
}

#------ rule emitter

# compile_rule( $source, {flag=>value} );
#
# flags:
#   print_progra <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1845	2018	
==>or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1845	2018	
==>or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    when rx:P5{^=for\s(.*?)$} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6653	6767	
==>$pStmts);
    "(do{$decl\n$body})";
}

NODE PNoop () {
    ";";
}
NODE PStmt ($pExpr) {
    DOWN($pExpr).";\n";
}
N <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17052	17176	
==>d 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17052	17176	
==>d 32-bit integer data type.
    my Rosetta::Model::Node $dt_uint32 .= new(
        node_type  => 'data_sub_type',
        att <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6650	6823	
==>RI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  ) <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6650	6823	
==>RI) {
          $new .= clone;
          $uri.fragment = undef;
        } else {
          $new ~~ s/\#.*//;
        }
      }

      $self!header("Referer", $new);
    }
  ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2127	2233	
==>";
}
sub node::sub_call {
    my $ident = get_str( $_[0], '$<name>' );
    my $list = emit( get_data( $_[0] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	2112	2211	
==>the codes \n etc map to, values are 2 char strings such as \n
my %backslash_escape;
foreach my $x (s <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2996	3126	
==>rns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX jus <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2996	3126	
==>rns Str is export {
    my %out;
    
    # XXX provide default for $location
    #$location //= $self.location;
    
    # XXX jus <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7528	7786	
==>{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that sat <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7992	8250	
==>{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that sat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	441	541	
==>ries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	441	541	
==>ries C<$a>, and tries C<$b> if C<$a> fails.

=cut

method alternate ($a, $b) {...}

=pod

C<quantify( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7138	7266	
==>Foo->does('Role'), '... rFoo now does Role');

my $rBar = $Role->new(
    '$:name' => 'rBar',
    '%:methods' => { bar => sub { ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5646	5758	
==>> Pugs::Compiler::Regex->compile( q(
        #    <Pugs::Grammar::Term.angle_quoted>
        #    { return { angl <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3725	3838	
==>tr $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3725	3838	
==>tr $uri) {
  my ($h,$p,$u) = split_uri($uri);
  if (%*ENV<HTTP_PROXY>) {
    $u = $uri;
  };

  join "\n", # $CRLF <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	202	336	
==>stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      bur <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	202	336	
==>stream up to 100 items per hour
    # with bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      bur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2049	2175	
==>method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.Li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2049	2175	
==>method content ($self: Str $content?, Bool $keep?) is rw {
    return Proxy.new(
        FETCH => {
                if (want.Li <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2309	2450	
==>n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tok <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2309	2450	
==>n {
      $self<token_flow>();
      $tokens >= $n;
    },
    count => -> Num $n {
      $self<token_flow>();
      $tokens -= $n;
      $tok <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16894	17013	
==>T:\n$results\n";
        _diag "# STATUS: $status\n";
    }

    # Use the first line of the program as a name if none w <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20878	20980	
==>}->{$subsubdir}->{_parent} = ($val->{_parent} || "../")  . "../";
	    $val = $val->{_dirs}->{$subsubdi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6933	7154	
==>}

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi me <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10410	10631	
==>}

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_union( $r2 );
    }

    return $r1;
}

&plus ::= &union;

###########################################################################

multi me <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	289	450	
==>sub {
            my ($self, %params) = @_;
            if (!exists $params{'$:expect'}) {
                _('$:expect' => 0);
            }
            elsif (!d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3093	3237	
==>>new('&dispatcher' => 'block'),
                           symbol->new('$label'      => 'symbol'),
                           symbol->new('?%opts <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1413	1519	
==>key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1413	1519	
==>key );
    $?SELF!_assert_arg_hash( 'new', ':%msg_vars?', %msg_vars );

    $!msg_key  = $msg_key;
    %!ms <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	2144	2236	
==>set complex of complex32  where { true }');
Helpers::macif(%?CONFIG{'num_width'} == 64, 'subs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	846	1036	
==>c"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	846	1036	
==>c"
        print $match->from;     # 0
        print $match->to;       # 3
        print $match->[0];      # "ab"
        print $match->[0][0];   # "a"
    }

Named rules are methods in a Gra <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	808	985	
==>e, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|it <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	808	985	
==>e, @args) { 
            given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|it <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2942	3029	
==>$encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2942	3029	
==>$encipher = Some::Cipher.encipherer(:opt1<value1>, :opt2<value2>);

Create an encipherer <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12707	12805	
==>epends) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~` <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12765	12863	
==>epends) returns Bool`

This function takes a block of code and runs it. It then smart-matches (`~~` <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	326	435	
==>etup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	326	435	
==>etup_filter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6121	6228	
==>e pugs-fps -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        push @pkgs, -pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	677	777	
==>eturn num->new((shift)->to_native() + 0);
}

# implement comparitor method

sub _compare {
    my ($l <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	345	440	
==>ee L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	345	440	
==>ee L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

An `element'.

All meta-information provided by d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18014	18120	
==>ass to implement it; that is, multiple DBMS objects will not
have references to each other at a level visib <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18014	18120	
==>ass to implement it; that is, multiple DBMS objects will not
have references to each other at a level visib <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2238	2372	
==>agnostics
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $ava <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3599	3725	
==>agnostics
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $ava <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3838	4004	
==>flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3978	4144	
==>flags->{args},
        );
        $match or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	822	976	
==>{
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.na <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	822	976	
==>{
            %.names{$name} = $value;
        }
    }

    method ret($value) {
        ./inject('RET', $value);
    }

    method r($name) {
        %.na <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	608	713	
==>t in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIE <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	608	713	
==>t in a little whitespace to fill an XML
document.  This node type is for that.

=head2 SUB-CLASS PROPERTIE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9475	9612	
==>'path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9475	9612	
==>'path_spec');
                my $secure    = %hash.exists('secure');    %hash.delete('secure');
                my $discard   = %hash.exi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3456	3613	
==>ft)->{'$:name'}
        },
        'id' => sub ($) {
            ::opaque_instance_id(shift)
        },        
        'class' => sub ($) {
            retur <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20490	20603	
==>production use, there should be a wide variety of third party Engine
modules that become available over time.  One <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20490	20603	
==>production use, there should be a wide variety of third party Engine
modules that become available over time.  One <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3078	3231	
==>opy all the stuff over to another dir
        
        ### toss out old stuff
        system( qq[ rm -rf $builddir ] )                and error($?), retur <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1771	1889	
==>ns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1771	1889	
==>ns Array is export {
    return &::($worker_pkg)::path();
}

sub cwd returns Str is export {
    return &::($worker_pkg <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6560	6672	
==>volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2 <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6560	6672	
==>volume, catdir($base_directories, $path_directories), $path_file);
    }
    return canonpath($path);
}

sub abs2 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1036	1177	
==>r   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1036	1177	
==>r   $.curservername;

  has Str   $.nick         is rw;
  has Str   $.username     is rw;
  has Str   $.ircname      is rw;
  has Str   $.host <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16739	16836	
==>could write a self-contained application in
Rosetta D and compile that into its own executable, in <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16739	16836	
==>could write a self-contained application in
Rosetta D and compile that into its own executable, in <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1926	2078	
==>w_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %cha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1926	2078	
==>w_permutation($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %cha <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27509	27627	
==>, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples of the original (or rath <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32061	32179	
==>, and
the values provide values applied to each tuple.  The new Relation has all
of the tuples of the original (or rath <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	60	160	
==>>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;fl <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	60	160	
==>>;
use constant MAGIC =>
    'my$Z= =$*IN;while 1{$_=perl eval eval=$*IN;print$Z;say$!//$_;print$Z;fl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8197	8331	
==>_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8209	8343	
==>_rule_node($k,$v,$tab);
    }
    else 
    {
        die "unknown node: ", Dumper( $n );
    }
}

#rule nodes
sub node::rule {
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8612	8775	
==>}\n" .
                " else" .
                " {\n" . _emit( $n->{exp3} ) . "\n }";
    }

    if ( $n->{op1}{stmt} eq 'sub' ) {
        #warn "sub: ",Dum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1228	1341	
==>racketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1228	1341	
==>racketed( $_[0], "<..>" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted) > 1;
    return Pugs <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2375	2476	
==>iv => $reduced_struct);
}

sub can_reduce {
	my $self = shift;
	my $node = shift;
	Scalar::Util::bless <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16904	17031	
==>S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13325	13452	
==>S->{next} }, qw< cc >;
    my ($lhs, $rhs, $before_range);
    my $ret = \$lhs;

    {
      if (${&Rx} =~ m{ \G ( \\ ) }xgcs) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	353	472	
==>~ m/rule\s+(\S+)\s+\{(.+)$/gs) {
    my $rulename = $1;
    $tail = $2;
    my $source = "";
    my $deep = 1;
  PARENMA <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7716	7815	
==>{ (/^\Q$parrot_path\/runtime\/parrot\/include\E(.+)$/)[0] }
              grep { !/(^|\/)\.(?!\.)/ } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9334	9505	
==>lemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9334	9505	
==>lemented";
            return;
        }
        if ( $cmd eq 'cut' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( $cmd eq 'commi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	262	366	
==>opy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTRO <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	262	366	
==>opy"
    * remove "arbitrary_limit" if possible
    * cleanup circular references using 'submethod DESTRO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20692	20787	
==>lemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20692	20787	
==>lemented
database server named L<Genezzo> (see also L<http://www.genezzo.com/>) will
evolve to i <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3830	3933	
==>argument must be a TestBuilder::Test instance";
            confess 'No plan set!' unless _('$.testplan' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1291	1410	
==>he cipher, and even if the message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1291	1410	
==>he cipher, and even if the message is 
contrived to hide the letter frequency, the keyspace is only 26.  You would 
have <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14127	14233	
==>(misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14127	14233	
==>(misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to read the t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12387	12493	
==>/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12387	12493	
==>/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\").";
        $self<disconnect <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	1543	1676	
==>t';

    package App;
    use base 'Node';

    package Val;
    use base 'Unit';

    package Placeholder;
    use base 'Val';
    su <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1257	1406	
==>iler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (j <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1257	1406	
==>iler::PIL::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (j <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	25213	25303	
==>s Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=he <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	25213	25303	
==>s Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using C<Net::IRC>.

=he <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3721	3825	
==>sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	5081	5185	
==>sub preamble {
    my ($self, $text) = @_;
    $self->{preamble} = $text . $self->{preamble} if defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4006	4115	
==>turns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remo <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4006	4115	
==>turns Tree {
    ($self.child_count() != 0) 
        || die "Illegal Operation : There are no children to remo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19879	19993	
==>$S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ': <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16300	16414	
==>$S->error(RPe_NOTREC, &RxPOS - $old, $bad);
    }

    if (${&Rx} =~ m{ \G ([:)]) }xgc) {
      my $type = $1 eq ': <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19778	20012	
==>eop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20057	20291	
==>eop::constant( "say" )
                 ,
                   ruleop::constant( "warn" )
                 ,
                   ruleop::constant( "die" )
                 ,
             ] )
           ,
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wiederholungs-ops.pl	62	171	
==>= "a" x 3  # "aaa"

#=der xx Operator
# neu in Perl 6 ist der xx Operator
# so wie x Strings wiederholt, wiede <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15742	15839	
==>F0,F1,B0,B1,E0,E1) :- !, 
  %# XXX - move (is "capture matched" not)
  ( \+(match_captures_get(I,E <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	841	962	
==>ted;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	841	962	
==>ted;
  has Bool  $.inside;
  has Str   $.curnick;
  has Str   $.curusername;
  has Str   $.curhostname;
  has Str   $.curi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	571	679	
==>vocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' ke <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	571	679	
==>vocant Document; however, at least one of]
           ~ q[ the given Hash refs defines an explicit '<KEY>' ke <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3273	3379	
==>"This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3273	3379	
==>"This should never happen"}
 		default {
		  my @index = split('',$didget);
		  @index = grep {$_ ~~ /^<[A. <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8551	8679	
==>in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $cod <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8551	8679	
==>in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $cod <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	716	890	
==>ent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method re <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	716	890	
==>ent_ident {
                $.parent.inject($.parent_ident, $value);
            }
        }
        else {
            %.names{$name} = $value;
        }
    }

    method re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	244	343	
==>h Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	244	343	
==>h Perl5 version:
# * Separate from_num_range() and from_range() constructors. 
#   - from_num_range( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33968	34066	
==>rder, if preferred ones aren't supported by a program or its libraries.
When translating a message, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33968	34066	
==>rder, if preferred ones aren't supported by a program or its libraries.
When translating a message, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14469	14578	
==>gest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_po <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14469	14578	
==>gest = $class->pmc_fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_po <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4906	5012	
==>s) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $c <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4964	5070	
==>s) returns Bool is export {
    Test::proclaim(1, "", "skip $reason", :$depends);
}

multi sub skip (Int $c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5330	5464	
==>h => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5523	5657	
==>h => { 'subrule'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	468	585	
==>push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  });

  ### B <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9886	9993	
==>push @{ $S->{next} }, qw< atom >;
    return $S->$c if $S->can($c);
    return $S->object(exact => $c);
  }) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18760	18867	
==>ormally be
stored in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18760	18867	
==>ormally be
stored in a Perl file that defines and returns an anonymous hash
definition.  While it is obvious <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	73	176	
==>LECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any( <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	73	176	
==>LECT_LOGS> -> $_ is copy {
	s:perl5:g{^:}{};
	$active |= $_;
}

sub select(*%newtags) {
	$active |= any( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2396	2514	
==>e} = $runtime;

		$self->reduce($prog);
	}

	sub reduce {
		my $self = shift;
		my $h = indent;
		my $node = shift;
		w <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	165	260	
==>graph /tmp/log > /tmp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use Time::Piec <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8432	8553	
==><from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$old <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8432	8553	
==><from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<channels> {
        for %!users{$old <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	325	422	
==>ad.p6, tail.p6, rev.p6, mid.p6,
# wc.p6, developed with a very early version of Pugs (6.0.10)
# an <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1385	1482	
==>th = File::Spec->catdir($base, $blib);

    $self->makemaker_args->{INST_LIB} =
      File::Spec-> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3223	3312	
==>Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3223	3312	
==>Accessor::Fast';
__PACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9872	9978	
==>es the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Met <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11349	11455	
==>es the wanted string
    sub dependency_satisfied_by {
        my($wanted, $meta) = @_ or die "Wanted & Met <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7507	7637	
==>crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7507	7637	
==>crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(8657),
    "rArr"     => chr(8658),
    "dArr"     => ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11386	11536	
==>";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11380	11530	
==>";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub colon {
    my $str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22985	23090	
==>is that
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22985	23090	
==>is that
text is always looked up by a key which is not meant to be meaningful for a
user.  Whereas, with t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	707	809	
==>ead>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple runn <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	707	809	
==>ead>
  <body>
    <h1>Congratulations!</h1>

    <p>You now have a functional HTTP::Server::Simple runn <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10219	10342	
==>me'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10213	10336	
==>me'} = \$match;
$_[1]         } elsif ( ref ( \$named{'$name'} ) ne 'ARRAY' ){
$_[1]           \$named{'$name'} = [\$named{' <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	6291	6405	
==>> 1)},
        <perl5 Perl5 P5 i ignorecase s sigspace g global c continue p pos
        once bytes codes graphs la <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	4381	4494	
==>$noop = sub{my $c = $_[0]; return 1 if $c eq $noop; TAILCALL(&$c,$noop);};
  sub noop {
    $noop;
  }
  sub conca <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13437	13544	
==>are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - ba <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13437	13544	
==>are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x{005C} - ba <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27516	27621	
==>reate a new
object that is a clone of the first but for the changes.

=back

A Message object has these me <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27516	27621	
==>reate a new
object that is a clone of the first but for the changes.

=back

A Message object has these me <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1449	1546	
==>e
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manual <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1289	1386	
==>e
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manual <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	228	345	
==>lf: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_d <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	228	345	
==>lf: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7257	7379	
==>__END__

=head1 NAME 

Pugs::Grammar::Precedence - Engine for Perl 6 Rule operator precedence

=head1 SYNOPSIS

  u <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	689	809	
==>$1, $2);
            $val = 1 if $val =~ /^(y|Y|yes|Yes|YES|true|True|TRUE|on|On|ON)/;
            $val = 0 if $val =~ /^ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/VCode.pm	380	483	
==>inding @.subBindings;

# so, a SlurpLimit is a tuple of Int, Perl::Exp.  Maybe this needs to
# be an Arr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31166	31264	
==>lete sub-class that does not allow
the C<(?{ ... })> and C<(??{ ... })> assertions:

  package Rege <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10120	10216	
==>ted using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10120	10216	
==>ted using iterations, 
which can be slow sometimes.
Set functions might also fail and emit warnin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3368	3513	
==>?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3368	3513	
==>?) is rw {
    $!content unless $!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1700	1866	
==>++;
        }

        method append_name ( $arg ) {
            $.name ||= $arg.name;
            push @.names, $arg.name;
        }
        
        method append_va <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16928	17031	
==>as
either named modules or anonymous routines) and write the rest of the
application in their other lang <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16928	17031	
==>as
either named modules or anonymous routines) and write the rest of the
application in their other lang <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2601	2795	
==>\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2848	3042	
==>\+ ]   | 
            [ \:\: ]   | \: |
            [ \$\$ ]   | \$ |
            [ \^\^ ]   | \^
        )
            
        { return { colon => $_[0]->() ,} }
    }
    push @rule_terms, 'co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14635	14788	
==>) . ' ); ' .
            'my @result = eval $p6->{perl5}; ' .     # XXX - test want()
            _mangle_var( '$!' ) . ' = $@; ' .
            '@resul <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	988	1150	
==>)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	988	1150	
==>)\s(.*?)$} {
                        my $size = "$0";
                        %events<start_element>('header', $size);
                        interpolate($1, %eve <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3103	3203	
==>ders are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=it <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3103	3203	
==>ders are set on the HTTP::Headers object,
if they are present:

=over 8

=item 1. Content-Length

=it <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3622	4046	
==>{
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                retur <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3622	4046	
==>{
                                    # XXX - this should use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                retur <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6309	6440	
==>}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $va <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6309	6440	
==>}

sub pack_params returns Str is export {
    my @packed_params;
    for (%PARAMS.kv) -> $param, $value {
        for $value -> $va <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25603	25700	
==>hich is the same as the invocant Relation but that some of its attributes
are renamed.  The argume <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30155	30252	
==>hich is the same as the invocant Relation but that some of its attributes
are renamed.  The argume <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2024	2199	
==><object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2024	2199	
==><object>[-1];
            }
        }
        else
        {
            %param<start> = %param<end> = %param<object>;
        }
    }

    if defined $density 
    {
        i <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14280	14391	
==>ub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1760	1871	
==>ub reduce_sym {
    my $self = shift;
    my $symbol = shift->val;

    $self->find_dyn_sym($symbol)->val;
}

su <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5495	5601	
==>ub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$tod <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5553	5659	
==>ub pass (Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$tod <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4240	4358	
==>rence ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4240	4358	
==>rence ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @diff = $.span <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17348	17445	
==>nterpreter
itself, which provides a virtual machine in which Perl code runs).

The classes and met <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17348	17445	
==>nterpreter
itself, which provides a virtual machine in which Perl code runs).

The classes and met <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	20298	20399	
==>bitrary?

sub Pugs::Internals::string_as_number (Int $radix, Str $string --> Num)
{ ... } # XXX - oh t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27716	27804	
==>objects inherit from F<MyRx::__object__> first,
then from the F<Regexp::Parser::*> object <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6902	7037	
==>]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6914	7049	
==>]'\n"
        unless $match->{bool};
    my $program = main::emit_rule( $match->{capture} );
    print "generated rule:\n$program" if $f <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	225	349	
==>ser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) e <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	225	349	
==>ser.new(parse => sub ($match, &continue) {
        my $pos = $match.pos;
        if $pos.text.substr($pos.pos, $text.chars) e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13764	13877	
==>);
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of the order that s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17241	17354	
==>);
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizing of the order that s <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3494	3601	
==>self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3494	3601	
==>self if $set.equal( $universe );
    return $set  if $self.equal( $universe );
    return $set  if $self.equ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	18218	18339	
==>@methods == 1 ? "$class->can('$methods[0]')"
                          : "$class->can(...)";

    _ok( !@nok, _where(), $n <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1851	1944	
==>Node! You cannot execute environments, they
contain ASTs that are compiled by the compiler int <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16039	16138	
==>an user.  In some
situations, a shared program component may raise such a condition, and one
applica <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16039	16138	
==>an user.  In some
situations, a shared program component may raise such a condition, and one
applica <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1142	1243	
==>ot implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <bloc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1142	1243	
==>ot implemented yet
*rule = Pugs::Compiler::Rule->compile(q(
    <'rule'> <ws> <rule_name> <ws> <bloc <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2010	2108	
==>mplement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2010	2108	
==>mplement_previous = sub { -Inf } unless defined $.complement_previous;
    }
}

method get_universe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2618	2721	
==>...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant paramete <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2802	2905	
==>...>
 <after ...>         -- implemented in :ratchet mode only
 <subrule('param')>  -- constant paramete <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2941	3065	
==>eue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2941	3065	
==>eue (Str $msg) {
    $queue<enqueue>({ $say($msg) })
      if $connected;
  };

  # Default (passive) handlers
  # First even <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1768	1913	
==>f (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1768	1913	
==>f (!file_name_is_absolute($path)) {
        if (!$base.defined || $base eq '') {
            $base = cwd();
        }
        elsif (!file_name_is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	868	968	
==>mper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	868	968	
==>mper->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2451	2577	
==>ens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2451	2577	
==>ens = 0 if $tokens < 0;
    },
    fill => { $tokens = $burst_size },
  };

  return $self;
}

1;


=item conform(Num $n)

This <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3223	3350	
==>{extensions}}, $obj;

    $obj;
}

sub load_extensions {
    my ($self, $path, $top_obj) = @_;
    $path = "$self->{base}/$path" <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9074	9192	
==>eturn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9074	9192	
==>eturn;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled in a separate rule, because it requ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3421	3527	
==>PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left') <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3421	3527	
==>PIL::PILAssign {
                my $str = ./gen(.right, $ng.fork('right')) ~ ./gen(.left, $ng.fork('left') <==
2	/Users/nnunley/pugs/util/file_to_hs.pl	579	686	
==>: String\n";
print OUT "$data = \"";
dump_file($in);
print OUT "\"\n";

sub dump_file {
    my $file = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	4703	4802	
==>igans, the declaration must be visible
    in the lexical scope to have any effect. It's possible th <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5914	6036	
==>is ==
        $pass = $got == $expected;
    } elsif ($expected == 0) {
        # If expected is 0, treat range as absolute <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11702	11820	
==>self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and proce <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11702	11820	
==>self<livecheck>();
        $self<handle_pseudo>("runloop");
      }
    },

    # Read a line from the server and proce <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15544	15660	
==>, burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15544	15660	
==>, burst_size => 5000); # hack
      $!bucket.fill;
    }

    # Run all entries of @queue. Will need throttling later <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4636	4768	
==>'$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7359	7491	
==>'$:name'       => 'Foo',
    '$:superclass' => $Object,
    '%:methods'    => {
        'foo' => sub ($) { 'Foo->foo' },
        'bar <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1256	1352	
==>ts::Publisher $publisher, Class::Publisher::Event $event) {
        grep { .match($event) }, gath <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2390	2486	
==>log plugin.

Fyi,
Yaswi apparently requires swi prolog be built ./configure --enable-shared.
=cut <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9405	9527	
==>'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9405	9527	
==>'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $prh_cr <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2110	2263	
==>mlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <tra <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2110	2263	
==>mlet {
#        [ <type> <zone>? <varlet>? <trait>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <tra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12711	12814	
==>d '_'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  In s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12711	12814	
==>d '_'
can be used as a replacement for '-'.

The return value is the values of the fields removed.  In s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	12415	12563	
==>] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fn <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	12415	12563	
==>] ],
                ] ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $fnh_get_person
        = $conn.compile_routine( $fn <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20011	20111	
==>contained and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20011	20111	
==>contained and pure-Perl reference
implementation of an Engine and is included in the "Rosetta" core
d <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4016	4212	
==>x(  $test ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1108	1250	
==>e (  Num  $x         --> Int )
 {
     Pugs::Internals::trunc($x);
 }
 our &Num::int ::= &Num::truncate;

 # XXX - referred to, but not specced <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7744	7863	
==>efine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  u <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7744	7863	
==>efine $.current;
    }
}

=kwid

= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  u <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	60	160	
==>TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBuck <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	60	160	
==>TokenBucket - Token bucket rate limiting algorithm

=head1 SYNOPSIS
    
    use Algorithm::TokenBuck <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	855	963	
==>};
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	855	963	
==>};
	die "Could not compile rule ($rule_name) because : $@" if $@;
	
	# add the compiled rule to our local sta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35693	35786	
==>returns Relation>

This multi-method is a generic binary relational operator that takes
anothe <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40243	40336	
==>returns Relation>

This multi-method is a generic binary relational operator that takes
anothe <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21339	21473	
==>le)) ~ ".pm";
    for @*INC -> $dir {
      my $path = $dir ~ %?CONFIG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3173	3288	
==>~ s/^\{[\s\n]*(.+)\}/$1/s;
    $newconv .= <<".";
sub $n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4788	4952	
==>nsert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $le <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4788	4952	
==>nsert: ', $_, ' ', $_.ref for @list;
    if $offset >= 0 {
        @head = self._shift_n( $offset );
        if $length >= 0 {
            @body = self._shift_n( $le <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2416	2569	
==>capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2427	2580	
==>capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternation( [
                        ruleop::constant <==
2	/Users/nnunley/pugs/util/config_h.pl	1628	1767	
==>pile {
    my $code = shift;
    my $temp = "pugs-tmp-$$";

    eval {
        open TMP, "> $temp.hs";
        print TMP $code;
        clos <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	1430	1541	
==>xtarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	1430	1541	
==>xtarea name="' ~ %p{'id'} ~ '">' ~ %v{%p{'id'}} ~ '</textarea>';
};

new_widget 'repeater', sub(%p, %v) {
    my <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17478	17625	
==>ode>" . layout(@gut);
        } else {
            warn "weird - $node doesn't fmap but is an object";
            return "$node";
        }
    } e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1722	1829	
==>{
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub space {
  my ( $matchObj ) <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8901	9031	
==>t zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value: <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8901	9031	
==>t zip parameters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value: <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7820	8019	
==>j = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(matc <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7820	8019	
==>j = $mmat.clone(
                            capture_num => $newnump,
                            capture_name => $newnamep,
                        );

                        &continue($m.clone(matc <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1129	1245	
==>1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeou <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1096	1212	
==>1 }) { eval {
        # use Net::FTP to get past firewall
        my $ftp = Net::FTP->new($host, Passive => 1, Timeou <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	148	250	
==>$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dump <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	148	250	
==>$_;print$Z;flush$*OUT}';
use constant COOKIE => rand();
use Perl6::Pugs;
use IPC::Open2;
use Data::Dump <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4522	4656	
==>atch->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4522	4656	
==>atch->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<*> infix:<+>', 
        'AST +/* looks ok' 
    );
    #print postfix <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	4758	4872	
==>x;
           

my $index = {};
my (@unresolved, @bad_regex, @bad_heading);

# Loading test results from yml file
m <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	23209	23312	
==>plementations of all other necessary
operators (over said accessors), which can be employed when objects <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	719	838	
==>used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     return <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	719	838	
==>used values 'on demand'

sub path_info       returns Str is export { %*ENV<PATH_INFO> || '' }
sub request_uri     return <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30769	30861	
==>ributions for ages. Numerous anonymous contributors
exist.  Andreas Koenig held the torch for <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1941	2039	
==>turns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1941	2039	
==>turns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    return %!msg_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24617	24769	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24896	25048	
==>p6ws'} )
           ,
         )
       ,
         ruleop::capture( 'term2', 
             ruleop::capture( 'term1', \&{'grammar1::term1'} )
           , <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2769	2886	
==>return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2769	2886	
==>return $.start if $x < $.start;
    return $x      if $x <= $.end;
    return Inf;
}

method previous ($self: $x is co <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4568	4660	
==>fference won't matter for the spike target.

sub def_thing {
  my($aref,$match_hack,$name,$re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3218	3331	
==>.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3218	3331	
==>.new( spans => $_.complement ) }\
                  .reduce:{ $^a.intersection( $^b ) };
}

method difference ($se <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	132	232	
==>is passed around.  It essentially
forms a linked list through the rule as it is executed, but the lin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	132	232	
==>is passed around.  It essentially
forms a linked list through the rule as it is executed, but the lin <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2432	2576	
==>ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) * (floor( abs <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11303	11420	
==>T: " . Dumper->reduce($c);

package Reducer;

sub reduce {
    my $self = shift;
    my $node = shift;

    my $type = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15262	15357	
==>of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15262	15357	
==>of speaking, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Typ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24073	24217	
==>flag on
      else { ... }           # the flag's value is 0
      next;
    }
    # throw an error if the flag isn't supported
  }

  for (map " <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8979	9082	
==>o read the list of shared libraries (*.so) pugs
      requires. This is necessary so we can copy them on <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10593	10697	
==>elf = $class.new(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr() <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10593	10697	
==>elf = $class.new(*%options, :mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr() <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	92	185	
==>ynamicScoping Class::Accessor/;

use Scalar::Util qw/blessed/;

use Blondie::Nodes ();
use Blo <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19109	19226	
==>de("pair"),
			param => comb(
				fun => ide("f"),
				param => val(3),
			),
		),
		param => comb(
			fun => ide("f") <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4025	4137	
==>_[0]{left} }
sub right { $_[0]{right} }


sub isa { # FIXME this is the same hack for L::AG
	my $self = shift;
	m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1826	2236	
==>t)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1826	2236	
==>t)

###########################################################################



###########################################################################

} # class Rosetta::Interface::Exception

###########################################################################
###########################################################################

class Rosetta::Interface::Command {

    # External packa <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3156	3269	
==>ghc     = shift;

    my $ar = $Config{full_ar};
    my $a_file = File::Spec->rel2abs("dist/build/libHSPugs-$versi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5731	5835	
==>ol {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open ( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5731	5835	
==>ol {
    return Bool::False if $.span.is_empty;
    return $.span.start_is_closed;
}
method end_is_open ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25682	25804	
==>ternate, limited license that allows you to link
Rosetta with non-free software components.

Any versions of Rosetta that y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25682	25804	
==>ternate, limited license that allows you to link
Rosetta with non-free software components.

Any versions of Rosetta that y <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2613	2716	
==>entation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... though a defaul <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2613	2716	
==>entation.

=back

=head1 API METHODS

These methods must be implemented by subclasses... though a defaul <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1796	1895	
==>% @l.elems;

	@l[$selector]($x, $sym_flag);
}

our Int multi Num::round_ceiling (Num $x) {
	my Int $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4469	4584	
==>me =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not impl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4469	4584	
==>me =~ /::/;
        return "$_[1] hash( get_variable( '$name' ) )\n";
    }
    die "interpolation of $name not impl <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2629	2728	
==>dule than the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2629	2728	
==>dule than the base File::Spec. Also the
/hack/ to make it work automagically for platforms is really <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20505	20618	
==>urn;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	16926	17039	
==>urn;
  });

  # not implemented (?$...)
  $self->add_handler('(?$' => sub {
    my ($S) = @_;
    $S->error(RPe_NO <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1984	2113	
==>FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1984	2113	
==>FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3040	3137	
==>t, if available.

=back

In addition, the following request headers are set on the HTTP::Headers o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3040	3137	
==>t, if available.

=back

In addition, the following request headers are set on the HTTP::Headers o <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3962	4058	
==>ors
sub ls_all_accessors { sort keys %config }
sub ls_accessors { grep { $_ !~ /^_/ } __PACKAGE__ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7946	8050	
==>)>

This event is fired when an '=item' directive is reached, the next event fired will be
any text which <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7946	8050	
==>)>

This event is fired when an '=item' directive is reached, the next event fired will be
any text which <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15653	15784	
==>ng later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.coun <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15653	15784	
==>ng later.
    method run() {
      my @q = splice @!queue;
      while @q {
        if $!bucket.conform(1) {
          $!bucket.coun <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7627	7754	
==>"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7627	7754	
==>"     => chr(8659),
    "hArr"     => chr(8660),
    "forall"   => chr(8704),
    "part"     => chr(8706),
    "exist"    => chr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6886	6983	
==>me ($pRawName) { "$pRawName" }
NODE PExp ($pLV) { DOWN($pLV); }
NODE PLit ($pLit) { DOWN($pLit); } <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10054	10167	
==>list a
	nil => type::operator::nary->new(list => type::variable::free->new),
	# list a -> bool
	'is_nil?' => type: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	813	926	
==>Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	813	926	
==>Text::Balanced::extract_delimited( $_[0], "'" );
    $extracted = substr( $extracted, 1, -1 ) if length($extracted <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9260	9366	
==>'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9260	9366	
==>'");  # only one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	31	127	
==>e warnings;

use Perl6::MetaModel;

require "lib/TestBuilder.pm";

$::TestBuilder->STORE('::Test' <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	1474	1564	
==>Xfill in... };'
}
Clutter::num_size 32;
Clutter::num_size 64;
Helpers::macif(%?CONFIG{'has_ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	4924	5062	
==>nd_floor($x);
    }
    else {
        $x_round = 0;
    }

    return $x_round;
}

our Int multi Num::sign (Num $x) {
	return 0 if $x == 0 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6759	6913	
==>, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7223	7377	
==>, 'REF' ) ) {

                ### a mere context switch, just return what ever
                ### the recursive call returns
                push @maybe, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21	112	
==>ptable = new P6RulesInP5::OpTable;
    $optable->addToken("term:", "", "nows", &parse_ws_lit <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	8360	8479	
==>rse;
    } elsif($x !~ /^\d+(\.\d+)?$/s) {
	$x =~ s/([\$\@\%\\\"])/\\$1/g;
	$s = "\"$x\"";
    } else { $s = $x }
    $s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8246	8339	
==>c_pos([x|L])  --> "x", p5_modifier_spec_pos(L), !.
p5_modifier_spec_pos(L)      --> "-", p5_mo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9493	9623	
==>g, $how) = @_;
    return $S->force_object(anyof_class => word => $neg, $how);
  });

  # xdigit POSIX class
  $self->add_handler(' <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7713	7812	
==>tion.
multi Array::map (@values ;  Code $expression --> Lazy ) 
{
    List::map $expression, *@value <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6298	6417	
==>->runtime->cast_node_type($node, $de_facto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	1078	1173	
==>server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan lit <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	1078	1173	
==>server_port returns Int>

=item B<server_protocol returns Str>

=back

=head1 AUTHOR

stevan lit <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5197	5354	
==>= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5197	5354	
==>= 5.8.0
#     #             require Scalar::Util;
#     #         @dirlist = grep { ! Scalar::Util::tainted($_) }, @dirlist;
#     #     }
#     # }
#     for <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	247	380	
==>ssage;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns St <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	247	380	
==>ssage;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $message;
    }

    method output returns St <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3216	3447	
==>rbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_elem <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3216	3447	
==>rbatim);
                        %events<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_elem <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7403	7513	
==>LLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expec <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7461	7571	
==>LLER::POSITION)");
        $Test::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expec <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1153	1265	
==>$x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes( <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1153	1265	
==>$x {
        %!members.delete($self._stringify($x));
    }
    return $pre_size - $self.size;
}

method includes( <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1705	1814	
==>e

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1705	1814	
==>e

  if ($head ~~ rx:perl5{^HTTP\/\d+\.\d+\s+(\d+) (?:.*?\015?\012)((?:.*?\015?\012)*?)\015?\012}) {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4978	5172	
==>= $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4990	5184	
==>= $n ) {
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        re <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11663	11762	
==>urns true if this recurrence intersects (has any element in common) with the given recurrence.

- `e <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11663	11762	
==>urns true if this recurrence intersects (has any element in common) with the given recurrence.

- `e <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3566	3678	
==>Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &inf <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	3934	4046	
==>Scalar) {
  # Hack, see comment at &sort.
  unless $cmp.isa("Code") {
    unshift @array, @$cmp;
    $cmp := &inf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2613	2712	
==>) ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2613	2712	
==>) ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", $statement- <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	3272	3991	
==>Relation::Tuple-0.1.0 {

###########################################################################




###########################################################################

} # role Relation::Tuple

###########################################################################
###########################################################################

role Relation-0.1.0 {

###########################################################################




###########################################################################

} # role Relation

###########################################################################
###########################################################################
=x

clas <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	28943	29039	
==>gument.

=item C<rename ( Mapping(Str) of Str $mapping! ) returns Relation::Example>

This method <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6395	6503	
==>ers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byt <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6395	6503	
==>ers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher(Array of byt <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	146	271	
==>ess defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer return <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	146	271	
==>ess defined $!expect;
    }

    method header returns Str
    {
        return "1..$!expect";
    }

    method footer return <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2873	2968	
==>bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, T <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2873	2968	
==>bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright 2005-2006, T <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	821	954	
==>NO|false|False|FALSE|off|Off|OFF)/;
            $val = undef if $val eq "~";
            die "sorry, only scalars are supported: $key: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12710	12837	
==>eturn $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6185	6312	
==>eturn $S->object(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3419	3537	
==>und;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {} <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3419	3537	
==>und;

    my $pad = peek_my($lv);
    my $named_arg = $args->{named};
    for my $param_name (keys %{$self->named || {} <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1266	1382	
==>am;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1406	1522	
==>am;

    #print 'rule source: ', $self->{source}, "\n";
    $self->{ast} = Pugs::Grammar::Rule->rule( 
        $self- <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22743	22844	
==>ore Relation attribute names that
define the heading of this Relation.  Each attribute name is a chara <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27295	27396	
==>ore Relation attribute names that
define the heading of this Relation.  Each attribute name is a chara <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2555	2645	
==>my $prolog = <<'END';
%==================================================================== <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15871	15969	
==>("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` an <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15871	15969	
==>("closed") or not ("open").

- `size()`

Return the "size" of the span.

For example: if `start` an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	194	310	
==>method calls

#   <audreyt> because all grammars inherits from Grammar

#   <fglock> re inheritance - p5 rule calls w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	186	300	
==>method calls
#   <audreyt> because all grammars inherits from Grammar
#   <fglock> re inheritance - p5 rule calls w <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16990	17144	
==>{ 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17269	17423	
==>{ 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37868	37959	
==>iven module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37868	37959	
==>iven module name
is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_ke <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	337	460	
==>arse_arguments( @args ) );
        }

        method parse_arguments ( Array of Str @args ) {
            collect_arguments( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9022	9127	
==>$default;

	my $slurpy = ref($op{'paramContext'}) =~ /Slurpy/ #XXX
	    || $op{'slurpy'};

	my $pname = $o <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	729	952	
==>( <<>>, 'pair', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop { <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	692	830	
==>/dists/index

=back

=cut

{
    my $config = JIB::Config->new;

    sub new {
        my $class = shift;
        my %args = @_;

        m <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7082	7180	
==>cessed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

Thi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7082	7180	
==>cessed as a interpolated string (to allow for
any modifiers).

=item I<end_element ('header')>

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2318	2437	
==>, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe should <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2376	2495	
==>, $desc, $todo, "eval was fatal: $!", :$depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe should <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5611	5762	
==>() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5611	5762	
==>() );
}

{
    # define a new operator globally
    {
        package statement;
        $statement->add_op( {
            fixity => 'prefix', name => ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6642	6857	
==>net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6642	6857	
==>net Any cookie
                    # .b.c.net  Any cookie
                    # b.c.net   Netscape cookie only
                    # .c.net    Any cookie
                    
                    if ($domain ~~ s:P5/^ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1216	1440	
==>e);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1216	1440	
==>e);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2456	2565	
==>thod day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2456	2565	
==>thod day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @doy := _is_leap_year($.year) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8305	8399	
==>>sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { G <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2130	2224	
==>>sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { G <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8513	8615	
==>dentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-e <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8513	8615	
==>dentally omitted from the HTML 3.2 DTD -- see
        # <http://validator.w3.org/docs/errors.html#bad-e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9601	9699	
==>iverse.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9601	9699	
==>iverse.difference( 0 );

= DESCRIPTION

This class handles an infinite recurrence set, defined with <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8545	8700	
==>ign($lhs,$rhs)"
}
NODE PBind ($pLHS, $pRHS) {
    die "bug @$pLHS" if @$pLHS > 1;
    my($lhs)=@$pLHS;
    my $rhs = $pRHS;
    "p6_bind($lhs,$rhs)"
}

NODE <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11568	11715	
==>=> method::params->new(
                              symbol->new('$class:' => 'opaque'), 
                              symbol->new('?%params' => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6397	6521	
==>atch->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6397	6521	
==>atch->();
}

{
    my $match = $grammar->parse( '1infix:<+>1' );
    ok( 
        postfix( $match->() ) eq 
        '1 1 infi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	983	1109	
==>quest Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Preconditio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	983	1109	
==>quest Timeout',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Preconditio <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8131	8226	
==>2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts t <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8131	8226	
==>2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS

=head2 C<$set.insert(...)>

Inserts t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4025	4132	
==>ine = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4025	4132	
==>ine = "\n") returns Str {
    my $content = $self.content;
    
    return [~] ($!headers.as_string($newline <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	403	543	
==>that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtr <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	403	543	
==>that stores backtrack closures to various.
                  points earlier in the match.  This is used to
                  implement backtr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1067	1167	
==>t do we need to test to check for circular superclasses?
# I guess that we're not the superclass of a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6015	6146	
==>r {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6003	6134	
==>r {
    my $char = substr($_[0],1);
    for ( qw( r n t e f w d s ) ) {
        return call_perl5(   "\\$_",  $_[1] ) if $char eq $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20753	20860	
==>d names are returned with the ':' intact for
$h->header_field_names and the $h->scan callback, but the colon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20753	20860	
==>d names are returned with the ':' intact for
$h->header_field_names and the $h->scan callback, but the colon <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10510	10615	
==>es/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Infor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10510	10615	
==>es/test.p6 "greetings=hello world"    

=head1 DESCRIPTION

CGI for Pugs! 

=head1 FUNCTIONS

=head2 Infor <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6030	6305	
==>eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, t <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6030	6305	
==>eq '`';                            
                        }
                    }
                }
            }
            default {
                %events<string>($token);
            }
        }
    }
    # if we find we still have some modifiers
    # on the stack, t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13226	13375	
==>match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13220	13369	
==>match[-1] != 1;\n" .
                "$_[1]         }"
    }
    if ( $prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15064	15164	
==>res a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15064	15164	
==>res a reference to this Node's parent Node,
if it has one.  Nodes that do not have this attribute set <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	252	357	
==>cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular additio <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	252	357	
==>cipher("Attack at dawn");

=head1 DESCRIPTION

Cipher::Caesar implements simple byte-level modular additio <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1795	1994	
==>5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    w <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1795	1994	
==>5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>('begin', "$0");
                    }                    
                    w <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6699	6797	
==>(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6699	6797	
==>(@siblings);
}

method insert_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	345	449	
==>l_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	345	449	
==>l_variable 
              :P5 {^([\$\%\@]\^(?:[_[:alnum:]]+))}

rule ident    :P5 {^((?:(?:\:\:)?[_[:alnu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2350	2591	
==>apture => { angle_quoted => $m->() },
                        } );
                        #print "Match: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  -- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	415	530	
==>w(nil->new), 
    hash->new()
    ] => __PACKAGE__;

sub new {
    my ($class, $klass, $attrs) = @_;
    ((blessed($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19340	19445	
==>OD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines l <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19340	19445	
==>OD.
    PREFACE - Lines before the first block in a package.

Next, all the blocks are scanned for lines l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	56	157	
==>e2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MAND <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	56	157	
==>e2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MAND <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2760	2902	
==>{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2760	2902	
==>{abort};
        }
        undef $_[3];
        return;
    }
}

sub concat {
    
    # note: the list in @nodes can NOT be modified at runtim <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12632	12719	
==>d_character(char(C)) --> "\\", ("c","C"), [Open], brackets(Open,Close),
  p6_named_chara <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16579	16703	
==>flag
    .param string name         :optional
    .param int has_name        :opt_flag
    .local pmc exp
    .local pmc newf <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14916	15011	
==>way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14916	15011	
==>way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmatic <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10160	10282	
==>for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10160	10282	
==>for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

method next ( $x ) { 
    return $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2018	2153	
==>ture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2018	2153	
==>ture( '',\n" .
        emit_rule( $_[0], $_[1].'  ' ) . 
        "$_[1] )\n" .
        '';
}        
sub non_capturing_group {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	817	935	
==>osed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizatio <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	817	935	
==>osed - better names ?
    * set_density ?
    * is_singleton
    * as_list - how to create a lazy list ?

  Optimizatio <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1597	1697	
==>)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1597	1697	
==>)::no_upwards( *@filenames );
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15597	15728	
==>{
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19074	19205	
==>{
    return Relation.new(
        heading => $!heading,
        body => $!body.union( $other!body ),
    );
}

my method _exclusion <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17774	17874	
==>ts and routines
within the virtual machine, input data to it, and output data from it.

You can creat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17774	17874	
==>ts and routines
within the virtual machine, input data to it, and output data from it.

You can creat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	724	845	
==>e/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	724	845	
==>e/false)
    match - the "match" tree or undef
    tail - the string tail or undef - TODO - don't need this if 'pos' is us <==
2	/Users/nnunley/pugs/util/drift.pl	780	885	
==>IFT",
    "-i$Bin/../../DrIFT/src",
    "$Bin/../../DrIFT/src/DrIFT.hs",
);
my $pid = open2(
    $rh, $wh, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1737	1866	
==>{
            $relative_precedences{$opt->{precedence}}->($self, $_, $opt);
            return;
        }
    }
    push @{$self-> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3902	4004	
==>>{symbol} = $class_that_should_be->symbol;
	$self->{class_that_should_be} = $class_that_should_be;

	$s <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15434	15536	
==>n>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExpression <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1810	1971	
==>_p6->($cc->as_p6);
            next;
        }
        $eval_p6->($line);
    }
}

sub number_the_lines {
    my($s)=@_;
    my $cnt = 1;
    $s =~ s/^/$cnt++."\t <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30271	30365	
==>like Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	34823	34917	
==>like Perl's
standard C<map> operator. It returns a new Relation whose attributes
(provided in C <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	294	385	
==>ile($prog);
	my $type_annotated = $self->annotate($c);
	my $c_code = $self->emit($type_annot <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1692	1791	
==>represented by a named parameter (pair).  (The value of the 
pair is currently unused, but for forwa <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1692	1791	
==>represented by a named parameter (pair).  (The value of the 
pair is currently unused, but for forwa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5165	5265	
==>return bit->new(1);
}

package closure::env;

use strict;
use warnings;

use Carp 'confess';
use Scal <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	788	917	
==>'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	788	917	
==>'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER',
            'Accept'         => 'HTTP_ACCEPT', <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1067	1172	
==>_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), m <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1067	1172	
==>_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.say;
    (map { ;~$_ => 0 }, @without_args), m <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3775	3965	
==>ath ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3775	3965	
==>ath ~~ s:perl5:g{^\.\.\.\\}{\.\.\\\.\.\\};                                   # ...\ is 2 levels up
    return $path if $path ~~ rx:perl5{^\.\.};                                       # skip r <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Session.pl	686	792	
==>~ "=" ~ url_encode(%Session{$_}));
    }
    return @coded.join('&');
}
 
sub SessionDecode($data) {
    fo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	31	125	
==>r;
our %nodes;

sub Pugs::Runtime::Rule::rule_wrapper { @_ };
my $grammar1 = 'Pugs::Grammar::Ru <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	23196	23311	
==>=> "xs",
		body => cond(
			if => comb(
				fun => ide("is_nil?"),
				param => ide("xs"),
			),
			then => ide("nil <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31219	31321	
==>xample has all
of the tuples of the original (or rather, the corresponding extension of
each tuple).  E <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2803	3078	
==>x      => 0,
                   seen     => 0,

                   ok       => 0,
                   todo     => 0,
                   skip     => 0,
                   bonus    => 0,

                   details  => []
                  );

    # Set them up here so callbacks <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16177	16286	
==>$S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ "PGE::Rule" ]

.sub "p6ru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11601	11813	
==>ource', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'quer <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11601	11813	
==>ource', { 'name' => 's',
                                'match' => 'person' }
                            [ 'query_source_field', { 'name' => 'id' } ],
                        ] ],
                        [ 'quer <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3100	3196	
==>rver::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3100	3196	
==>rver::Simple - A minimal HTTP server

=head1 SYNOPSIS

    class MyServer is HTTP::Server::Simple <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	759	860	
==>}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	759	860	
==>}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Compiler::PIL::PIL {
    method <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1881	1993	
==>d_img   = "initrd.img";
my $initrd_mnt   = "/mnt/loop0";
my $initrd_size  = int 16.0 * 1024;
my $cdroot       = " <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1458	1565	
==>en object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load { <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1458	1565	
==>en object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load { <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31170	31269	
==>l operator that returns a new Relation
which has a subset of the original's tuples, and it works lik <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35720	35819	
==>l operator that returns a new Relation
which has a subset of the original's tuples, and it works lik <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3982	4096	
==>ue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3982	4096	
==>ue', $.right.vtype, 'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34824	34920	
==>elation and that match any tuples of C<$other> along
their common attributes.  This method will f <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39374	39470	
==>elation and that match any tuples of C<$other> along
their common attributes.  This method will f <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2601	2716	
==>_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = asse <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2601	2716	
==>_install = join "\n", map "	\$(CP) $_ \$(INST_ARCHLIB)", @to_install;
    my ($ghc, $ghc_version, $ghc_flags) = asse <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	772	862	
==>lf->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{autho <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2607	2697	
==>lf->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{autho <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	475	589	
==>am ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<durat <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	475	589	
==>am ) {
    my %tmp;
    # TODO - normalize duration syntaxes, such as 'hours => 12'
    my $duration = %param<durat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6819	6947	
==>lock = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7012	7140	
==>lock = sub { return { dot =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1629	1725	
==>ILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method head <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1629	1725	
==>ILD ($self: Str *%headers) {
  $self.header($_.key) = $_.value for pairs %headers;
}

method head <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1887	2007	
==>age ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("R <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1887	2007	
==>age ~~ s:g/<[ \-]>/_/;
        
        &HTTP::Status::("RC_" ~ $message) := sub () { $code };
        &HTTP::Status::("R <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4686	4812	
==>p );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4686	4812	
==>p );
    my $res = Set::Infinite.new();
    $res.set = $tmp;
    return $res;
}

# mutators

method add ($self: $span ) {
    m <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1723	1824	
==>sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1781	1882	
==>sub like (Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $te <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1942	2164	
==>ent>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$ <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1942	2164	
==>ent>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	498	625	
==>, { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	498	625	
==>, { p => 0, args => {" . join(", ",@param) . "} }, \$_[1] );\n" .
        "$tab }\n";
}

sub emit {
    my ($grammar, $ast) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24099	24213	
==>UNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20520	20634	
==>UNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler('ifthen_atom' => sub {
    my ($S) = @_;
    $ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16879	16998	
==>,
	body => comb(
		fun => comb(
			fun => ide("add"),
			param => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19536	19630	
==>update is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl ext <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19536	19630	
==>update is planned for Locale::KeyedText that will enable
user text to be stored in non-Perl ext <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4154	4286	
==>, :lang<perl6> )

  my $compiler = Pugs::Compiler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6'] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4009	4138	
==>, :lang<perl6> )
  my $compiler = Pugs::Compiler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6'] <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3254	3370	
==>s rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3312	3428	
==>s rw, Str $expected_type, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $out := defined($desc) ?? $d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2892	3002	
==>dler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	923	1033	
==>dler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e') if $cc;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15404	15508	
==>ad use
then it needs to account for a variance of needs between its different
users, such as their prefer <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15404	15508	
==>ad use
then it needs to account for a variance of needs between its different
users, such as their prefer <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5222	5390	
==>);
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shif <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5222	5390	
==>);
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $length;
                &*push(@body, &*shif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	990	1122	
==>uest.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Wi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	990	1122	
==>uest.uri;
        my $scheme = $uri.scheme;
        
        unless ($scheme ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Wi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20576	20670	
==><lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accesso <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20576	20670	
==><lt>channelsE<gt>()>

Returns a list of channels the bot has joined. This is a readonly accesso <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27439	27538	
==>d.  If you want to
conceptually change an existing Message object, you must create a new
object that <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27439	27538	
==>d.  If you want to
conceptually change an existing Message object, you must create a new
object that <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	5991	6094	
==>am by hitting ^C (<Ctrl>+<C>).
HELP

step
  descr  => "Checking for Linux",
  help   => "This program ne <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	588	700	
==>e object 
# (very primitive at the moment)
sub opaque::send {
    my ($inv, $label, @args) = @_;
    #warn "calli <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	89	215	
==>turns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	89	215	
==>turns Hash is export {
    my %events = (
        # Documents
        start_document => { $buffer ~= "=pod\n\n" },
        end_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2516	2637	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2709	2830	
==>ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::constant( "\{" )
       ,
         ruleop::captu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	5362	5508	
==>=~ $qr;
      FAIL() if !$x;
      $X::pos += length($1);
      TAILCALL(&$c,$noop);
    };
  }

  sub emit {
    my $cls = ref($_[0]);
    die "$c <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	1254	1396	
==>.new(:node<Eager>),
                    ),
                    Tree.new(:node<Pair>),
                    Tree.new(:node<Scalar>).add_children( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1989	2177	
==>$match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1989	2177	
==>$match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.parse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2479	2608	
==>=> \$_[3]{match}[1]->to,
                named => { %{$_[3]{match}[0]}, %{$_[3]{match}[1]} },
                match => [ @{$_[3] <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	269	383	
==>ME {
    my $self = shift;
    my @modules = glob('*.pm');

    require File::Find;
    File::Find::find(sub { push <==
2	/Users/nnunley/pugs/misc/S29_round.pl	909	1024	
==>.5 down above 0, down below 0
    given abs($x) - floor( abs($x) ) {
        when $_ <= .5 { $x_round = sign($x) * f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19340	19482	
==>$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15761	15903	
==>$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	706	823	
==>| confess "signature must be an closure::params or closure::signature type";
    (ref($body) eq 'CODE')
        || con <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5884	6030	
==>sage::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5884	6030	
==>sage::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17179	17290	
==>$name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13600	13711	
==>$name) = ($1, $2, $3);
        my $posix = "POSIX_$name";
        if ($S->can($posix)) { $$ret = $S->$posix($neg <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1292	1473	
==>:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %eve <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1292	1473	
==>:P5{^=over\s(\d)$} {
                        %events<start_element>('list', "$0");
                    }
                    when rx:P5{^=item\s(.*?)$} {
                        %eve <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1316	1417	
==>b
	my $m = $qr->($strx);
	my $expr = $thing;
	$expr =~ s/([^\\])\\\$([1&])/$1\\x{24}$2/g; # work aroun <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6451	6560	
==>handle for output (normally STDOUT) as
data is received from the network.  If the request fails, then the
stat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6451	6560	
==>handle for output (normally STDOUT) as
data is received from the network.  If the request fails, then the
stat <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15996	16089	
==>udrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16054	16147	
==>udrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Peters

Stevan Little <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	853	961	
==>binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	853	961	
==>binary search instead of linear search

  From Perl5 version of Set::Infinite:
    * "backtracking"  
    * m <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19196	19287	
==>ample C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, whic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19196	19287	
==>ample C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt>()>

Starts the main runloop, whic <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11164	11264	
==>l eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_wi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11164	11264	
==>l eq $EMPTY_STR;
}

my method _assert_arg_ary (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die_wi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23837	23935	
==>_ send (add_subclass $self:))
          ($self: set_attr ((symbol new @:superclasses) (?@superclass <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6338	6447	
==>inite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6338	6447	
==>inite ($self: ) {
    return $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8761	8922	
==>)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8761	8922	
==>)/) {
            warn "$file does not seem to contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1315	1438	
==>lse {
      debug "error: " . $resp->content . "\n";
      exit 1;
    }
  } else {
    debug "error: " . $resp->status_line <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1030	1212	
==>rn;
	} elsif ($chr =~ /\~/) {
	    print "\\textasciitilde{}";
	    return;
	} elsif ($chr =~ /\</) {
	    print "\\textless{}";
	    return;
	} elsif ($chr =~ /\>/) {
	    print "\\t <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	258	373	
==>say("hello"));

=cut

use v6;

#package PIL2;

my $debug_traverse = 0;

# tokenizer

sub tokenize ( $s ) {
    $s ~~ <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	179	317	
==>-> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $pa <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	179	317	
==>-> $path {
        if ($path eq '') {
            $*ERR.say("Empty compile time value given to lib.import()");
        }
        if (-e $pa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15122	15224	
==>will need to display a message to the user, or generate a message to be
shown to the user.  Sometimes t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15122	15224	
==>will need to display a message to the user, or generate a message to be
shown to the user.  Sometimes t <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	1097	1192	
==>e latter form is slightly more efficient, though this is
marginal in string COW environments)

= <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	1097	1192	
==>e latter form is slightly more efficient, though this is
marginal in string COW environments)

= <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	10360	10473	
==>positional submatches
    named - named submatches
    capture - return'ed things
    
    state - a "continua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1995	2131	
==>ate[1], $_[2], $_[3]->{match}[1], 
                         $_[4], $_[3]->{match}[0]->to, @_[6,7] );
            $state[0] = $st unless <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15535	15632	
==>roposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database manage <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15535	15632	
==>roposal by Christopher J. Date and Hugh
Darwen for a solid foundation for data and database manage <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3591	3726	
==>c => 'right',
        precedence => 'equal',
        other => '=',
    );
    __PACKAGE__->add_rule( 
        name => '~=',
        asso <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1153	1250	
==>f %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10274	10396	
==>lass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10274	10396	
==>lass->can('pmc_is_compiler_module') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$t <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6481	6607	
==>or); 
    }
    else {
        warn "Cannot determine author info from $file\n";
    }
}

sub license_from {
    my ( $self, $f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	4838	4995	
==>= 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     star <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	4838	4995	
==>= 0  ||  ( ! $open_start && ! $open_end ) )
    {
        return $self.new( start => $i_start,
                     end =>   $i_end,
                     star <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	3037	3127	
==>if(!FAILED(\$__v__)){ ($tmpvars)=($vars); }}; if(!FAILED(\$__v__)){ ($vars)=($tmpvars) }; \ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5574	5688	
==>g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5574	5688	
==>g);
    my $lines_to_skip = @lines;
    $lines_to_skip -= $line_number;

    # Use filter to skip past that many li <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6132	6229	
==>Undef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6132	6229	
==>Undef';
node_a 'Val', 'VBool' , 'xVal' ,'unk';
node_a 'Val', 'VInt'  , 'xVal' ,'unk';
node_a 'Val' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15614	15720	
==>s

This header gives the date and time after which the entity should be
considered stale.

=item $h.if_modi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15614	15720	
==>s

This header gives the date and time after which the entity should be
considered stale.

=item $h.if_modi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5135	5266	
==>);
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5135	5266	
==>);
    }

    # --- list operations ---

    method reverse ( $array: ) { 
        my $ret = $array;
        Perl6::Value::List.new( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11902	12022	
==>\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11902	12022	
==>\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We record the time the last traffic <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3743	3838	
==>on of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

= <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3743	3838	
==>on of event handlers for use with L<Pod::Event::Parser> which will
perform POD roundtripping.

= <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15187	15294	
==>iplicativeExpression>
}
rule ShiftExpression :words {  # see 11.7
      <AdditiveExpression>
    | <ShiftExp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2235	2344	
==>_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', oth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2235	2344	
==>_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tighter', oth <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1055	1175	
==>ple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
searc <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1055	1175	
==>ple module which simplifies the 
manipulation of `@*INC`.

It is typically used to add extra directories to Pugs's 
searc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	0	95	
==>role Parse::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	0	95	
==>role Parse::Rule::Media::Text;

use Parse::Rule::Medium;
does Parse::Rule::Medium;

=pod

C<Text <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12203	12303	
==>ndle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12203	12303	
==>ndle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~~ rx:P5/^:([^ ]+) (\w+) ([^ ]+) ?(.*)$/) { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19583	19680	
==><no> statement
are marked to be passed to that compiler. The end of an inner block
effectively act <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19583	19680	
==><no> statement
are marked to be passed to that compiler. The end of an inner block
effectively act <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	77	178	
==>tetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - A <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	77	178	
==>tetime-specific methods:
#  add_duration, set_time_zone, ...


=kwid

= NAME

DateTime::Recurrence - A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7403	7497	
==>, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7403	7497	
==>, Str $domain, Str $port?, Bool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21459	21556	
==>come with a set of user
messages, but another package or program which uses yours may wish to
over <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21459	21556	
==>come with a set of user
messages, but another package or program which uses yours may wish to
over <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	417	524	
==>ameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return a Set::Infini <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	417	524	
==>ameters
    * Lazy lists are not implemented
    * operations with Set::Infinite should return a Set::Infini <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22352	22509	
==>el
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42141	42298	
==>el
        symbol->new('id'),
    # method body
        method->new(
            $::ENV,
            method::signature->new(
                params => method: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1277	1412	
==>OTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1277	1412	
==>OTE_ADDR>;
        
        $self!load_params();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'he <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1245	1337	
==>ilter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the mea <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1245	1337	
==>ilter::Simple::Compile> does the same thing
as C<use Filter::Simple::Compile>, except the mea <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10729	10843	
==>t
    .local pmc mfrom, mpos
    .local int pos, lastpos
    .local int iscapture
    .local string subname
    $P0 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	835	995	
==>"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	835	995	
==>"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host,
  Int $port          = 6667,
  Int $autoping      = 90,     # Autoping <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	289	410	
==>ons;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	495	616	
==>ons;
    interface->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11565	11739	
==>-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11565	11739	
==>-\.]*)         # $4 - heredoc terminator
    (\3                 # $5 - possible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19155	19264	
==>ing.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        doc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19155	19264	
==>ing.
    my $hash_was_saved = MyPersist.get();
    my $cloned_node = Rosetta::Model::Document.new(
        doc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19343	19443	
==>challenge that indicates the
authentication scheme and parameters applicable to the requested URI.

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19343	19443	
==>challenge that indicates the
authentication scheme and parameters applicable to the requested URI.

= <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1413	1567	
==>he sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1413	1567	
==>he sucess flag
            $!success = 1;
            return;
        }
        # otherwise we need to keep looking ...
        # get the next element in t <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11068	11170	
==>phering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($cip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11068	11170	
==>phering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { return $self.cipher($cip <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14196	14295	
==>pe($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::vari <==
2	/Users/nnunley/pugs/util/package-osx.pl	5957	6054	
==>n3/Perl6::Overview::File.3pm
        /usr/local/man/man3/Perl6::Overview::Functions.3
        /usr <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	53	149	
==>IL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I d <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	53	149	
==>IL tree classes.

xFoo leading-"x" field names are used in nameless (array-based) nodes
where I d <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1600	1701	
==>(Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode ( <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1600	1701	
==>(Int $value) returns Str {
#  say "Int";
  ("A".."Z","a".."z",0..9,"+","/")[$value];
}

multi encode ( <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1161	1256	
==>my $resp = $ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp->content = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15336	15430	
==>inLength

Implements a min_length() method for all objects that determines the
minimum length o <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	693	829	
==>,
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	693	829	
==>,
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required',
        403 => 'Forbidden',
        404 <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10397	10528	
==>iled ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10397	10528	
==>iled ($!).";
      }
    },
    disconnect => {
      if($connected) {
        debug "Disconnecting from $host:$port... ";
        t <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1584	1765	
==>)->[$idx] = $container;
            },

            'array_fetchVal' => sub { # $idx -> $value
                my $self = shift;
                my $idx = shift;
                $sel <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17152	17273	
==>= pattern goto end
    pad = new .Hash
    $P0 = new .Hash
    pad["reps"] = $P0
    pad["cutnum"] = PGE_CUT_GROUP
    pad <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2232	2394	
==>or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comme <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2232	2394	
==>or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \]        # treat single array ref as an arg list
#        ]
#}
# comme <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16168	16270	
==>essionNoIn> <'instanceof'> <ShiftExpression>
}
rule EqualityExpression :words {  # see 11.9
      <Rela <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	9523	9623	
==>_s_ ~~ '~"$hook$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macros cannot be "is <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28254	28385	
==>l5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28533	28664	
==>l5 =>  match::get( $_[0], '$<literal>' )  } }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1847	2005	
==>input => $g);
    $p=$p->Output(classname => 'Test');

        $DEBUG
    and print $p;

    eval $p;
        $@
    and die "$@\n";

    $p=new Test <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	333	453	
==>opy') {
    if (@args != @ARGV and is_root()) {
        # if there's no prefix, we want an install.
        $args[0] = 'i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1227	1331	
==>ures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1227	1331	
==>ures, it simply doesn't
put anything there if it didn't match.

C<optional> also takes a C<:minimal> argu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3474	3797	
==>");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was emp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3474	3797	
==>");
                            next;
                        }
                        
                        if ($port) {
                            my $found;
                            
                            if ($port ~~ s/^_//) {
                                # The correponding Set-Cookie attribute was emp <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3112	3244	
==>$^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CAL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3112	3244	
==>$^gen) }, zip([.args], [map { $ng.fork("arg$_") }, 0 ..^ .args]);
                $ng.ret(
                    $ng.r('code') ~ '->CAL <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1681	1786	
==>->new();
}

sub keys { 
    my %native = (shift)->to_native;
    list->new(map { str->new($_) } keys %nati <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	822	939	
==>$node->struct_equiv);
		}
	}
}

sub new {
	my $class = shift;
	bless {
		defs => [],
		defined_nodes => Set::Object->n <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	11930	12043	
==>n_path = catfile($output_dir, "Synopsis", "$linkfile.html");
      $output .= "<a href='". abs2rel($syn_path, dirn <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3808	3917	
==>rints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4025	4134	
==>rints the generated program
#
sub compile {
    #print "compile: matching: \n$_[0]\n";
    my $match = grammar <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1482	1585	
==>o just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

St <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1482	1585	
==>o just be
sure (as with perl5 lib.pm) to use this module first.

= SEE ALSO

`perldoc lib`

= AUTHOR

St <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21545	21653	
==>CKAGE__;
  push @Regexp::Parser::logical::ISA, __PACKAGE__;

  sub qr {
    my $self = shift;
    join "", $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16853	16949	
==>child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defau <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16853	16949	
==>child Nodes
of that new Node) that gets stored in the Child Nodes attribute (that
attribute defau <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1620	1717	
==>s structure follows the spec.  If for
#  instance, your engine cannot handle left recursive rules, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9044	9167	
==>hift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9044	9167	
==>hift;
    my $block = shift;
    my $offset = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	567	688	
==>ome command
sub can_run {
    my ($self, $cmd) = @_;
    # XXX: what to do in native win32?
    my $mx = $^O eq 'cygwin' ? <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	9876	9998	
==>h @derived_switches, map { "-I$_" } @inc;
    }

    # Quote the argument if there's any whitespace in it, or if
    # we'r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	244	355	
==>pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	244	355	
==>pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'CODE') or return;
    _setup_filter($pkg, $code);
}

s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	2237	2357	
==>sub add_attr {
    my ($self, $name) = @_;
    (blessed($name) && $name->isa('symbol'))
        || confess "Attribute nam <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21470	21617	
==>ew('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->g <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44377	44524	
==>ew('DESTROY'))));
                block->new($e, sub {
                    my $e = shift;
                    $e->get('$method')->do(list->new($e->g <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	1371	1472	
==>6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:digit:]/ )
  {
    $m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5421	5531	
==>~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5421	5531	
==>~ @!member_names.join( q{", "} ) ~ '"]'
         ~ "\n";
}

#&coerce:as(Str) ::= &as_debug_string;
# &circumfix <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6077	6193	
==>use MM?
    }
    elsif($sn eq 'let') {
	warn "let PPad not implemented\n";
    }
    elsif($sn eq 'temp') {
	my $vl2 <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7978	8081	
==>rt keys %{$index->{_dirs}};    

    my @files = (exists $index->{_files} ? sort @{$index->{_files}} : ( <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11525	11640	
==>lt;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encod <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11525	11640	
==>lt;
}

sub num_entity($char) {
    '&#x' ~ uc(sprintf '%x;', ord($char));
}

1;

# Set up aliases
#*encode = \&encod <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	789	911	
==>PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            whe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	789	911	
==>PILLit    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            whe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11392	11492	
==>em B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=hea <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11392	11492	
==>em B<get_all_children returns Array>

=item B<traverse ($self: Code $func) returns Void>

=back

=hea <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3658	3784	
==>{ 
                map { JIB::Alternative->new_from_struct( struct => $_ ) }
                    LoadFile( $obj->registered_alt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12774	12943	
==>thod in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12768	12937	
==>thod in lexical $var
        # TODO - send $pos to subrule
        return 
                "$_[1]         do {\n" .
                "$_[1]           my \$r = Pugs::Runtim <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5726	5902	
==>' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, An <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5726	5902	
==>' => [@!child_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg_key!, An <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4456	4567	
==>:@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4456	4567	
==>:@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', ':@member_names!', @member_names );

    @!set_n <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	1205	1317	
==>lues,   Str $delimiter) returns Str
 multi sub  Perl6::List::join (Str $delimiter ; *@values) returns Str {
   my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2388	2482	
==>ice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::V <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2388	2482	
==>ice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with indexes (S29)

use Perl6::V <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	516	629	
==>No compatible subroutine found: "&C" 
   this file is currently simply a source code generator.
   Which also addr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	516	629	
==>No compatible subroutine found: "&C" 
   this file is currently simply a source code generator.
   Which also addr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38268	38365	
==>text (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38268	38365	
==>text (a string), and a Message Variables hash ref
in its positional parameter %msg_vars.  It retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1658	1786	
==>[ $1 ] ) : () ),

    }

        if $_[0] =~ /^\\(.)/s;

    return;

};



# ----- the following were included only for performa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1592	1714	
==>[ $1 ] ) : () ),
    }
        if $_[0] =~ /^\\(.)/s;
    return;
};

# ----- the following were included only for performa <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16679	16797	
==>lout_reason} = '';
    $self->{'next'}       = 1;
}

=head1 Results

The C<%results> returned from C<analyze()> contain <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	545	687	
==>utput;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $d <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	545	687	
==>utput;
    }

    method diagnostics returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!diagnostics;

        my $d <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	227	350	
==>@MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYear <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	227	350	
==>@MonthLengths =
    ( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );

my @LeapYearMonthLengths = @MonthLengths;
@LeapYear <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15591	15711	
==>->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = sh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21762	21882	
==>->raw, map($_->visual, @{ $self->{data} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = sh <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8123	8231	
==>ods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience. Some <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8123	8231	
==>ods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reasons
# of convience. Some <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	140	305	
==>tate to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	140	305	
==>tate to zeroize
        }
        method _cipher(byte @data) {
            return map { +^$_ }, @data;
        }
    }
    #Later...
    my $encrypt = Cipher::Not.new <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5331	5437	
==>is is used as a private LWP extension.  The Client-Date header is
# added as a timestamp to a response when <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5331	5437	
==>is is used as a private LWP extension.  The Client-Date header is
# added as a timestamp to a response when <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	15420	15529	
==>itiveExpression>
}
rule RelationalExpression :words {  # see 11.8
      <ShiftExpression>
    | <RelationalExp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5670	5774	
==>ce => undef,
	}, $class;
}

sub instantiate {
	my $self = shift;
	$self->{instance} = shift;
	bless $self <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7495	7599	
==>e $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kicke <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7495	7599	
==>e $kickee);
      %users{~normalize($kickee)}<channels>.delete($chan)
        if %users{~normalize($kicke <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1949	2057	
==>ssively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1949	2057	
==>ssively
    Bool $.debug_raw   = 0,
  ) {
    ./:register_default_handlers;
    $!nickgen = Permutation.new($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2455	2584	
==>ntainer, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$contai <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2455	2584	
==>ntainer, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret = $container ?? [ *$contai <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5812	5916	
==>e HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status code is returned <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5812	5916	
==>e HTTP status code (success/failure) is returned

=item Numeric Context

The HTTP status code is returned <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3060	3171	
==>');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3606	3717	
==>');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this($O) { $Result1.<[[Get <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8230	8337	
==>ng);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11707	11814	
==>ng);

    return $?SELF!_intersection( $other );
}

multi method intersection (Relation *@others) returns Re <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3048	3142	
==>_hook\n");
    fprintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg,stringarg,strend <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3657	3766	
==>ling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3657	3766	
==>ling here
  };
  return $buffer
}

sub _make_request (Str $method, Str $uri) {
  my ($h,$p,$u) = split_uri($ur <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3344	3449	
==>ers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally ob <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3344	3449	
==>ers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally ob <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8043	8160	
==>_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8043	8160	
==>_auth ($self: Str $h) is rw {
  return Proxy.new(
    FETCH => {
      my $cur = $self!header($h);
      if (defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10605	10711	
==>ction that will select a record from the
    # 'person' table, whose 'id' field matches the functions 'pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10605	10711	
==>ction that will select a record from the
    # 'person' table, whose 'id' field matches the functions 'pers <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2941	3045	
==>fig.yml file if you want the reports to be uploaded
    automatically.
EOF
}
sub upload_smoke {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	349	467	
==>b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	349	467	
==>b> where
C<$a> left off.  

=cut

method concat ($a, $b) {...}

=pod

C<alternate($a, $b)> tries C<$a>, and tries C<$b> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31714	31830	
==>m a user config file or a user interface that the
current user is fluent in (and prefers) language A but also underst <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31714	31830	
==>m a user config file or a user interface that the
current user is fluent in (and prefers) language A but also underst <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1282	1410	
==>e error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,* <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1282	1410	
==>e error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub common_code ($data,$constructor,$stuff,* <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5659	5887	
==>emember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            ta <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5659	5887	
==>emember this cookie
                        take "$key=$val";
                        
                        if ($version >= 1) {
                            take qq(\$Path="$path") if $path_spec;
                            ta <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	641	736	
==>electively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:ta <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	641	736	
==>electively choose what to log

=head1 SYNOPSIS

	use Log::Selective;
	Log::Selective::select(:ta <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	95	230	
==>g = %Config::Config;

sub get_config {
    my $config = {
        perl_revision   => '6',
        perl_version    => '0',
        perl_s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	791	964	
==>'},
                '$.passed'      =>      $params{'$.passed'},
                '$.reason'      =>      $params{'$.reason'},
                '$.number'      =>      $params{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	91	225	
==>se Pugs::Grammar::Precedence;
use Pugs::Grammar::Term;
use Pugs::Grammar::Operator;
use Pugs::Grammar::StatementControl;
use base 'Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2881	2981	
==>s sub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does not r <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2881	2981	
==>s sub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does not r <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9627	9848	
==>new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new($x),
                    ),
                    App->new(
                        Sym->new('&infi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37122	37213	
==>->new('@:superclasses')    => attribute->new('@:superclasses'    => 'list')));
$::Class->sen <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	246	366	
==>essed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (scalar(@values) % 2 == 0)
        || confess "no <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	10968	11082	
==>elimiter was specified)
      my $regex    = $7; 
      # captures delimited portion of the string (provided only o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4113	4229	
==>);
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::assign_hash_to_scalar {
   my $var = emit(ge <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	30	128	
==>d lambda calculus in perl6-ish perl 5
# (makes use of attribute grammars and multimethods)

# first <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	3106	3194	
==>arc_units(Pugs::Internals::'~$func~'($x), $base);
 }
'
}
sub Pugs::Internals::arc_units ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8921	9053	
==>,
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_nu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8921	9053	
==>,
        closure_previous => sub { 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_nu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6109	6232	
==>( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6109	6232	
==>( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8866	8984	
==>latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8866	8984	
==>latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) {
        $string ~~ s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1138	1338	
==>late($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1138	1338	
==>late($1, %events);
                        %events<end_element>('header', $size);                       
                    }
                    when rx:P5{^=over\s(\d)$} {
                        %e <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1690	1878	
==>node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method expo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1690	1878	
==>node {
        Rosetta::Model::Node.new( document => $?SELF, *%{$root_node} );
    }

    return;
}

###########################################################################

method expo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	2003	2103	
==>1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1] <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	2003	2103	
==>1;
    my $cv = _get_cv(caller_cv(1));
    *$cv->{sig}->bind({ positional => $_[1][0], named => $_[1] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16367	16464	
==>is not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16367	16464	
==>is not provided).  If the optional named parameter
$parent_node (a Node) is set, then the new Node <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	14464	14628	
==>do or skip? (if any)

It will also catch lone 'not' lines, note it saw them in
C<< $strap->{saw_lone_not} >> and the line in C<< $strap->{lone_not_line} >>.

=cut

m <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4338	4479	
==>() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!c <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4338	4479	
==>() ~ ")";        
    my $removed_child;
    # if index is zero, use this optimization    
    if ($index == 0) {
        $removed_child = @!c <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3367	3498	
==>eaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # ot <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3367	3498	
==>eaf();
    }
    # if index is zero, use this optimization
    if ($index == 0) {
        @!children.unshift(@trees);
    }
    # ot <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13581	13713	
==>ndir = catdir($output_dir, "Synopsis"));
    
    for my $syn (@syn) {
        # create HTML out of the pod
        
        my $synh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	22	118	
==>:Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInli <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	22	118	
==>:Rule::Perl5::Ratchet;

# p6-rule perl5 emitter for ":ratchet" (non-backtracking)
# see: RuleInli <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	453	570	
==>ethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_str <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	453	570	
==>ethod BUILD () {
    $.Pos = Pos;
}

method literal(Str $text) {...}

method any_char() {...}

method beginning_of_str <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	2834	2942	
==>tion})\s*($RE{balanced}{-parens=>'()'})\s*($RE{balanced}{-parens=>'{}'})/){
        my ($c, $t, $p) = ($1, $2 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2161	2350	
==>=>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2161	2350	
==>=>   Bool::True );
    }
    return (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open => <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7222	7325	
==>ns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7280	7383	
==>ns Bool {
    if ($todo) {
        Test::diag("  Failed ($todo) test ($?CALLER::CALLER::CALLER::POSITION <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2773	2883	
==>now better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_requ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2773	2883	
==>now better
  my ($h,$p,$u) = split_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_requ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26052	26152	
==>Each variable name is a machine-readable short
string; the allowed variable names you can have depend <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26052	26152	
==>Each variable name is a machine-readable short
string; the allowed variable names you can have depend <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Silly.pm	415	548	
==>g") . "...\n";
        !$y;
    } qw(* ** /),
);

sub provides {
    my $self = shift;
    my $digest = shift;

    my $prim = $self-> <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	142	234	
==>/title>
</head>
<script>
function openNewWindows() {
    var links = document.getElementsByTa <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	995	1146	
==>[{]/;
            die "Expected separator '---'" unless $doc;
            $doc->{$key} = $val;
            next;
        };
        /^\s/ && die "sorry, <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25868	25980	
==>ype->stringify, "∀α. list α", "pretty print list a");
}
{
	my $a = type::variable::free->new;
	my $type = typ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1468	1576	
==>et $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1468	1576	
==>et $two) {
#    $one.subset($two);
#}
#multi sub *infix:«>=» (Set $one, Set $two) {
#    $one.superset($two <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2612	2743	
==>dx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assert <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2612	2743	
==>dx = $multidex[0];
        $ret[$idx] = multidex($ret[$idx], $multidex[1..^$multidex], $value);
        $ret;
    }
}

method assert <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	2426	2557	
==>er;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	2426	2557	
==>er;
}



my sub multidex ($container, $multidex, $value) {
    if +$multidex == 0 {
        $value;
    }
    else {
        my $ret <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1129	1237	
==>ge Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a da <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1129	1237	
==>ge Inf to DateTime::Infinite
    return $.end;
}

=kwid

= NAME

DateTime::Span - An object representing a da <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	300	398	
==>filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = unde <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	300	398	
==>filter_function         }
method clear_node_filter ($self:) returns Void { $!filter_function = unde <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	108	210	
==>$|=1;
use Data::Dumper;

# see also:
#  http://web.mit.edu/gnu/doc/html/bison_[6,8].html

# notes <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15231	15317	
==>A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], !.
re_rewrite(X,X,RW0,RW0).
re_rewrit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	20489	20583	
==>moved to another file to help keep I<this>
file as abstract as possible.  F<Regexp::Parser> ins <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4026	4165	
==>ucc = [ $state[0], $matches[1]{state} ];

            }



            my $capture = [];

            ### capture: $matches[0]{capture},$mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3902	4037	
==>ucc = [ $state[0], $matches[1]{state} ];
            }

            my $capture = [];
            ### capture: $matches[0]{capture},$mat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8380	8519	
==>([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = grammar1::immediate_st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8516	8640	
==>s( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for faste <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8220	8337	
==>s( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for faste <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1985	2084	
==>t' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1985	2084	
==>t' }
}

# PILThunk :: Stmt -> Expression
class Perl::Compiler::PIL::PILThunk
    does Perl::Compiler <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4777	4960	
==>orting
            # helps diffing raw YAML results.
            @tests = sort @tests;
        }
        if ( $Config{dry} ) {
            print join( "\n", @tests, "" );
            e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	172	291	
==>t.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	378	497	
==>t.pl';
require 'interface.pm';

my @OLD_ARGV = @ARGV;

RESTART:
    @ARGV = @OLD_ARGV;
    undef $interface::got_options <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	394	490	
==>lass Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	394	490	
==>lass Perl::Compiler::PIL::Util::PosRange {
    has Str $.file;
    has Perl::Compiler::PIL::Util: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9329	9508	
==>, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interfa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9329	9508	
==>, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interfa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	3906	4108	
==>('$label')));                    
                      })
                  );    
                $e->set('$current' => $e->get('&dispatcher')->do());
            })->do_while(
                block->n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12199	12340	
==>DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12199	12340	
==>DATA__)\n   # DATA starter line
    .*                              # Rest of lines
)
/xsm;

# Fold each heredoc, pod section, comment block a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	347	476	
==>G_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	347	476	
==>G_UNDEF'
        => q[<CLASS>.<METH>(): argument <ARG> is undefined (or missing).],
    'LKT_ARG_NO_ARY'
        => q[<CLASS>.<MET <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6081	6191	
==>e set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6081	6191	
==>e set from a caught exception (aliased to $!), and the Perl-6 spec
    # currently declares $! as global, so th <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47366	47516	
==>);
                $e->get('$return');
            }
        )
    )
);

$::Package->send('add_method' => (
    # method label
        symbol->new('STO <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	2	103	
==>ine 1
package Module::Install::Can;

use strict;
use Module::Install::Base;
use Config ();
### This ad <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27347	27445	
==>e new Relation has as
many additional attributes as there are pairs in the argument C<$attrs>,
wher <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31899	31997	
==>e new Relation has as
many additional attributes as there are pairs in the argument C<$attrs>,
wher <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13679	13782	
==>" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&process_header_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13679	13782	
==>" order.

In scalar context return the number of distinct field names.

=item $h.scan( \&process_header_ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4846	5016	
==>stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4846	5016	
==>stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an event <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	0	160	
==>use strict;
BEGIN {
    use lib         qw[bin];
    require '_inc.pl';
    protoconf->import();
}

use File::Basename;
use YAML            qw[LoadFile DumpFile] <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	13318	13407	
==>de_type(D, digit) }.

hexdigits_int(I) --> hexdigit(D0), hexdigits(D), { number_chars(I, [ <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1130	1228	
==>ay 42)
my @commits_till_day = dayify(@commits);
my @devs_till_day    = dayify(@developers);
# @devs <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4923	5033	
==>lass attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.de <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4923	5033	
==>lass attributes
# my Str $tmpdir;
# method _tmpdir (*@dirlist) returns Str {
#     return $tmpdir if $tmpdir.de <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	1494	1704	
==>q(
						Param('$n'),
						App(
							Sym('&control_structure:<if>'),
							App(
								Sym('&infix:<==>'),
								Sym('$n'),
								Val(0),
							),
							Val(
								Thunk(
									Val(1),
								), <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	4518	4620	
==>n "Unifying paramter types with thunk prototype in $app";

		my $i; my $unified_app = $rapp->fmap(sub { <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	831	965	
==>=> Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string i <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	831	965	
==>=> Bool::True);
        
        return $string;
    }
    
    # XXX need Encode for this
    multi sub uri_escape_utf8 (Str $string i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	4399	4544	
==>elf.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	4399	4544	
==>elf.new( start => $start ).span;
    }
    else
    {
        my int $cmp = $start <=> $.span.end;
        if $cmp > 0 {
            warn "setting <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2115	2296	
==>that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( r <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3707	3884	
==>that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => [
            map {
                ref($_) ? ( r <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1873	1974	
==>ta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1873	1974	
==>ta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3370	3474	
==>se it is just a date, it does not handle time zones or leap
seconds.

All methods take named parameters u <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3370	3474	
==>se it is just a date, it does not handle time zones or leap
seconds.

All methods take named parameters u <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3449	3584	
==>)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3449	3584	
==>)+}{} unless $path eq ".\\";                             # .\xx      -> xx
    $path ~~ s:perl5{\\\Z(?!\n)}{} unless $path ~~ rx:perl5{^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7927	8031	
==>ation( [ $_[0], ruleop::null() ] );

}



sub ruleop::null_or_optional {

    return ruleop::alternation( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7657	7757	
==>ation( [ $_[0], ruleop::null() ] );
}

sub ruleop::null_or_optional {
    return ruleop::alternation( <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1154	1283	
==>nfig{installman3dir},

        sourcedir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_pa <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	149	254	
==>st;
sub get_name_rep_type_pairs_list { $list }

sub hlp {
    my($rep,$type,$name,@pairs)=@_;
    push(@$l <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30143	30241	
==>d with the
Message; this user string may also contain variable names that correspond
to Message Var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30143	30241	
==>d with the
Message; this user string may also contain variable names that correspond
to Message Var <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	930	1069	
==>tr :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	930	1069	
==>tr :$engine_name!, Str :@user_lang_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::' <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3405	3544	
==>}
rule assert_bos  { \^ }
rule assert_eos  { \$ }
rule assert_bol  { \^\^ }
rule assert_eol  { \$\$ }
rule lookahead   { \< (!?) before <ws> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6509	6649	
==>\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6509	6649	
==>\n";
}
sub colon {
    my $str = $_[0];
    return "$_[1] alternation( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12706	12807	
==>module provides the following functions:

=over 4

=item decode_entities( $string, ... )

This routine <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12706	12807	
==>module provides the following functions:

=over 4

=item decode_entities( $string, ... )

This routine <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	204	321	
==>as Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $pla <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	204	321	
==>as Test::Builder::TestPlan $.testplan;
has                         @!results;

method new ( Test::Builder $Class: $pla <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17637	17838	
==>$lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14058	14259	
==>$lhs->visual, "");
            $ret = $lhs;
            last;
          }
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ( <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	3822	3924	
==>_arg = $args->{named};

    if ($self->invocant) {
	croak 'invocant missing'
	    if !defined $args->{i <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	232	356	
==>t    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	232	356	
==>t    returns Str is export { %*ENV<REMOTE_INDENT> }
sub remote_user     returns Str is export { %*ENV<REMOTE_USER> }
sub auth <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21308	21394	
==>E<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21308	21394	
==>E<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handlerE<gt> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7771	7907	
==>, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry- <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	1072	1208	
==>, otherwise not
                    if( !dependency_satisfied( $depends, \@uninstalled ) ) {

                        warn "\t*** $entry- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	412	544	
==>sub Meta_TupleKeys  { @tuple_keys  }

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $se <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32315	32443	
==>is object.

=item type

The specific type of this object.

=item up

Whether this object goes into a shallower scope (like a CLOS <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1444	1547	
==>i Math::Basic::exp ( Num $exponent = CALLER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::U <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9107	9207	
==>n access the number capture groups with the nparen() method:

  my $captgroups = $parser->nparen;

=h <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19150	19253	
==>::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19150	19253	
==>::IRC> will
try to use a permuted nick (for example C<bot_>, C<_bot>, etc.).

=head2 C<$botE<lt>runE<gt> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10703	10839	
==>= \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10697	10833	
==>= \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$from = \$pos;
$_[1]       my \@match;
$_[1]       my \%named;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4294	4409	
==>ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4352	4467	
==>ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        &T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3216	3315	
==>r

so lib/Pugs/Compiler.pm

but augmentations lives in somewhere else?

libX/fglock/Pugs/Compiler.pm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3103	3199	
==>r
so lib/Pugs/Compiler.pm
but augmentations lives in somewhere else?
libX/fglock/Pugs/Compiler.pm <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6728	6858	
==>losure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submet <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6728	6858	
==>losure1 }( $x );
        my $n2 = &{ $closure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submet <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8506	8657	
==>^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $pre <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8506	8657	
==>^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $pre <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27992	28102	
==>s method will fail if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32544	32654	
==>s method will fail if any keys of C<$attrs>
duplicate attribute names of the invocant Relation.

=item C<wrap ( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	707	805	
==>nly methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Create <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	707	805	
==>nly methods `start()` and `next($x)` are enabled.

- `new( closure_previous => sub {...} )`

Create <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	10000	10151	
==>split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	10000	10151	
==>split( ',', $param_list );
        return             
            "$_[1] capture( '$subrule', \n" . 
            call_subrule( $subrule, $_[1]."  ", @p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9423	9512	
==>ub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3248	3337	
==>ub { Grammar::Perl6->sub_application(@_) };
push @statements, sub { Grammar::Perl6->eval_p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3505	3632	
==>);
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3645	3772	
==>);
        #$p = 0 if $p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1434	1541	
==>j") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $ <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1434	1541	
==>j") or die "Unable to open object file: $obj : $!";
    close(OBJECT) or die "Unable to close object file: $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7801	7992	
==>e <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7801	7992	
==>e <= 0 {
                %!cookies{$domain}{$path}.delete($key);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24406	24534	
==>DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24406	24534	
==>DarrenDuncan.net/> for more information.

Rosetta is free software; you can redistribute it and/or modify it under
the terms of t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3800	3902	
==>uncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module wh <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3800	3902	
==>uncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 File::Spec module wh <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15876	15979	
==>ment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely u <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20109	20212	
==>ment, _lots_ of folks look at it.  The one
field labeled "Internal use only" is one of the most widely u <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	365	465	
==>ub { shift()->_meta_dir->file(  shift() ) };

### %config is initialized with a [ default_value => re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16079	16191	
==>methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- ` <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16079	16191	
==>methods return a logical value. 

The argument can be a Span object, a Recurrence object, or a scalar value.

- ` <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	750	879	
==>_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	750	879	
==>_;
        $code->();
        return $_;
    };
}

1;

__END__

=head1 NAME

Filter::Simple::Compile - Drop-in replacement to Filt <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator/L/en.pm	785	887	
==>AME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator/L/en.pm	785	887	
==>AME

Rosetta::Validator::L::en -
Localization of Rosetta::Validator for English

=head1 VERSION

This d <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35023	35122	
==>s: clump (C<\X>)

=head2 branch

Family: branch

Types: branch (C<|>)

Data: array reference of arra <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14765	14920	
==>nds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14765	14920	
==>nds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1282	1386	
==>o crack the cipher, and even if the message is 
contrived to hide the letter frequency, the keyspace is o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1282	1386	
==>o crack the cipher, and even if the message is 
contrived to hide the letter frequency, the keyspace is o <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9462	9565	
==>my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9462	9565	
==>my @span = $span0.intersection( $span1 );
    return @span.map:{ $self.new( span => $_ ) };
}

method co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3302	3410	
==>^/]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty result <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3302	3410	
==>^/]+}{..};

    # Glue the two together, using a separator if necessary, and preventing an
    # empty result <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1108	1235	
==>NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ & <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1108	1235	
==>NAME

fp - Functional programming for Perl 6

=head1 SYNOPSIS

  use fp;

  (&say o &int)(10/3);               # 3
  (&say ∘ & <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	666	784	
==>$.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method comp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	666	784	
==>$.start;
    my $i_end =   $.end > $span.end     ?? $span.end   !! $.end;
    return $i_start <= $i_end;
}

method comp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	331	441	
==>)";
    $class->SUPER::new($name, $type);
}

sub instantiate_container {
    my $self = shift;
    return $self <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5516	5624	
==>t)
     (attribute new (%:private_methods)) (hash)
     (attribute new (%:attributes))      (hash)
     (attr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12845	12940	
==>$string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12845	12940	
==>$string with the
corresponding Unicode character.  Under perl 5.6 and earlier only
characters in <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40075	40174	
==>le::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40075	40174	
==>le::KeyedText
distribution, in the file named "LGPL"; if not, write to the Free Software
Foundation, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	3856	4041	
==>sif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	3856	4041	
==>sif @tmp.end > 0 {
            &*pop(@tmp);
        }
        else {
            @tmp = ();
        }
    };
    @.items = @tmp;    
    return @ret;
}

method elems () {
    [+] &*map({ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	256	357	
==>to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	256	357	
==>to_iso ($time = time)   is export(:DEFAULT) { ... }
    sub time_to_isoz ($time = time)  is export(:DE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14619	14737	
==>s <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the ou <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14619	14737	
==>s <RESULT>' in
        # the first possible language.  For example, if the user
        # inputs '3' and '4', it the ou <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	83	216	
==>::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	83	216	
==>::Spec::Win32'
    !!                      'File::Spec::Unix'
    ;

eval "require $worker_pkg;";
die $!
    if $!;

sub curdir return <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15970	16070	
==>istribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Pe <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16028	16128	
==>istribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benjamin Smith

Norman Nunley

Steve Pe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5517	5627	
==>}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5517	5627	
==>}

method remove_child ($self: Tree $child_to_remove) returns Tree {
    my $index = 0;
    for @!children -> $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7921	8011	
==>rization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Aut <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7921	8011	
==>rization") }
method proxy_authorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Aut <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8867	9003	
==>n        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8867	9003	
==>n        = $set ∪ $set2;  # or "+"
  my $intersection = $set ∩ $set2;  # or "*"
  my $difference   = $set ∖ $set2;  # or "-"

  # s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13017	13105	
==>mber versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13017	13105	
==>mber versions of Locale::KeyedText::Message
("Message") and Locale::KeyedText::Translator <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8858	8948	
==>hod fails';

fails_ok { $iFoo->another_singleton_test_on_object } '... instance calling met <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	1697	1818	
==>t at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$b <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	1697	1818	
==>t at some point    
    my $path = $_path;
    my $base = $_base;
    if (!file_name_is_absolute($path)) {
        if (!$b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2208	2375	
==>($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./protocol;
        $status_line = "$p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2208	2375	
==>($code) // "Unknown code";
        my $message = ./message // "";
        
        my $status_line = "$code";
        my $proto = ./protocol;
        $status_line = "$p <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1273	1393	
==>f, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $se <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1273	1393	
==>f, density => $.density ) );
}

method union ($self: Span::Int $span ) 
    returns List of Span::Int 
{
    return ( $se <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	187	313	
==>PACKAGE__};

not:

    use ${\__PACKAGE__};

.

use strict 'vars';
use Cwd ();
use File::Find ();
use File::Path ();

@inc::Mod <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8305	8406	
==>n, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been revie <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8305	8406	
==>n, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has not been revie <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33997	34109	
==>t supported by a program or its libraries.
When translating a message, a match in found in the most preferred lan <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33997	34109	
==>t supported by a program or its libraries.
When translating a message, a match in found in the most preferred lan <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14898	14992	
==>sity($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semant <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14898	14992	
==>sity($day_duration), start => $first_day, end => $last_day )`

Creates a span with "day" semant <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27838	27958	
==>om F<Regexp::Parser::__object__>.  Don't worry -- if you don't define
a base class for your module's objects, or the obje <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	1704	1798	
==>> :remove_subscription<remove> .= new;
}

class Class::Events::Subscription {
    has Class::Ev <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8286	8439	
==>m { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasona <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8286	8439	
==>m { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this create a reasona <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3256	3361	
==>PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Per <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3256	3361	
==>PIL::Node::X0::$constructor) \{ \$s eq '$constructor'}";
    $code ~= "\mmulti method does(String \$s: Per <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6141	6268	
==>r(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6141	6268	
==>r(962),
    "sigma"    => chr(963),
    "tau"      => chr(964),
    "upsilon"  => chr(965),
    "phi"      => chr(966),
    "chi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11835	11959	
==>e_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11835	11959	
==>e_numeric(Str $line, Str $server, Str $code, Str $to, Str $rest) {
    my $event = {
      line   => $line,
      server => $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6131	6270	
==>ar'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6324	6463	
==>ar'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { constant = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	8020	8186	
==>e,
      data => '',
      neg => ($neg ? 1 : 0),
    }, $class;
    return $self;
  }

  sub type {
    my $self = shift;
    $self->{type};
  }

  sub neg {
    my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20820	21000	
==>ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	21099	21279	
==>ruleop::alternation( [
                   ruleop::constant( "my" )
                 ,
                   ruleop::constant( "our" )
                 ,
                   ruleop::cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12429	12596	
==>ts $n->{exp2} ) {
            # $array[]
            return '@{ ' . _emit( $n->{exp1} ) . ' }';
        }
                
        # avoid p5 warning - "@a[1] bett <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8169	8288	
==>rd",
  ensure => sub { defined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $initrd_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	282	382	
==>ructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloadi <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	282	382	
==>ructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, overloadi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5012	5118	
==>$path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a J <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5012	5118	
==>$path = catpath($vol, catdir(@base_dirs, @path_dirs), $file);
    return $path;
}

# Refacted this into a J <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6111	6259	
==>kip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle be <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6111	6259	
==>kip-- > 0;
            if (/^__(?:END|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21597	21693	
==>::Handlers - handlers for Perl 5 regexes

=head1 DESCRIPTION

This module holds the init() method <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	421	619	
==>f->config;
    my %hash    = @_;
    
    my($meta, $inst, $file);
    my $tmpl = {
        meta => { 
            required    => 1, 
            store       => \$meta, 
            allow       => IS <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5482	5621	
==>ranlib.
    system($ar, s => $a_file);
}

sub build_exe {
    my $version     = shift;
    my $ghc         = shift;
    my $ghc_version = sh <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	360	466	
==>ign};
    $self->Meta->write            if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admi <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	391	486	
==>ign};
    $self->Meta->write if $args{meta};
    $self->admin->WriteAll(%args) if $self->is_admi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2391	2514	
==>re( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TOD <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2391	2514	
==>re( $^b ) };
    }

    # XXX - why this doesn't work?
    # my @set1_span = $set1.span.difference( $set2.span );

    # TOD <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	37	135	
==>strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;

use P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	36	130	
==>strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use P <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	694	801	
==>self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1376	1483	
==>self, $index) = @_;
    (blessed($index) && $index->isa('num'))
        || confess "Index must be a num type <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9007	9109	
==>e name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9007	9109	
==>e name into file system paths.
    eval "require $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	921	1059	
==>ta.pm -- subclass/inherit
=head2 $struct = $alt->to_struct;

=cut

sub to_struct {
    my $self = shift;

    my %struct = map { $_ => $sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13691	13788	
==>Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13691	13788	
==>Rosetta::Model::Document.new(
        *%{$original_doc.export_as_hash()} );

Or, to demonstrate th <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5459	5557	
==>ild (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $chil <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5459	5557	
==>ild (and all its sub-children)
    return $removed_child;
}

method remove_child ($self: Tree $chil <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1374	1492	
==>hunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1374	1492	
==>hunk ~~ m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	168	322	
==>>',
        '&infix:<<=>',
        '&infix:<<>',
        '&infix:<->',
        '&infix:<+>',
    ),

    '&infix:<**>' => Thunk(
        Seq(
            P <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2444	2545	
==>Note: This program should be run as unpreviliged user, it will ask you to enter
      commands requiri <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28269	28369	
==>rns a new Relation
which is the same as the invocant Relation but that some of its attributes
have be <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32821	32921	
==>rns a new Relation
which is the same as the invocant Relation but that some of its attributes
have be <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	67	170	
==>TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tw <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	67	170	
==>TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constructor needs some tw <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	136	244	
==>nstant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::opti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	136	244	
==>nstant( 'statement_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::opti <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14045	14144	
==>returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing functio <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14103	14202	
==>returns Bool`

Sometimes what you need to test does not fit into one of the standard
testing functio <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	248	389	
==>AM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	248	389	
==>AM_NAME eq '-' ) {
        $Script = $RealScript = $*PROGRAM_NAME;
        $Bin    = $RealBin    = File::Spec.cwd;
    }
    else {
        my <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1680	1823	
==>gex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1680	1823	
==>gex decimal { <Int> [\. <natural>? ]?
              | [\+|\-]? \. <natural>
             };

regex Rat  { <decimal> [ [e|E] <Int>]? };

# base N <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3208	3331	
==>lse
  {
    $token{syncat} = PGE_OPTABLE_TERM;
  }
}

sub parse
{
  my ($self, $matchObj) = @_;
  my @termStack = [];
  my @ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4333	4448	
==>:Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4333	4448	
==>:Infinite {
    my $span0 = $self.set;
    my $tmp = $span0.complement;
    my $res = Set::Infinite.new();
    $res. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6995	7099	
==>all to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher m <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6995	7099	
==>all to 
C<_cipher>.  This is rarely used by the cipher itself; more often it is used by 
a block cipher m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35904	35995	
==>C<get_set_member_combinations()>

This method returns an array ref having all combinations o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35904	35995	
==>C<get_set_member_combinations()>

This method returns an array ref having all combinations o <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	9724	9875	
==>) {
   given want {
     when List {
       gather {
         1 while take pop @values;
       }
     }
     when Scalar {
       reverse @values ==> jo <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	947	1074	
==>) {
    given want {
	when List {
	    gather {
		1 while take pop @values;
	    }
	}
	when Scalar {
	    reverse @values ==> jo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9012	9156	
==>' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9012	9156	
==>' ) {
            warn "<$cmd> not implemented";
            return;
    }
    if ( $prefix =~ /[_[:alnum:]]/ ) {  
        # "before" is handled <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	848	1034	
==>e} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	841	1027	
==>e} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $return;
        }
        return $s[0] if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7512	7643	
==>,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7705	7836	
==>,
         ruleop::constant( "\]" )
       ,
       )
;
    push @rule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14975	15073	
==>r(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  me <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14975	15073	
==>r(Str $username, Str $password) { ./:enqueue("OPER $username $password") }

  # PRIVMSG/NOTICE
  me <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1540	1697	
==>req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1540	1697	
==>req_path ~~ m:P5/%/;
        
        my $set_ver = 0;
        my $netscape_only = 0; # an exact domain match applies to "any" cookie
        
        my @val <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7092	7262	
==>};
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # succes <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7092	7262	
==>};
#            next SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # succes <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31474	31570	
==>rgument. The new
Relation has all of the same attributes as the original.  Trivial cases are
wher <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36024	36120	
==>rgument. The new
Relation has all of the same attributes as the original.  Trivial cases are
wher <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14607	14700	
==>recommended "Good Practice" of ordering the header fields.  Long header
values are not folded. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14607	14700	
==>recommended "Good Practice" of ordering the header fields.  Long header
values are not folded. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22095	22197	
==>f($sigil eq ':') {
	$mn .= "::META";
    } else {
	my $space = $space_from_sigil{$sigil};
	Carp::confes <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	309	454	
==>truct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { req <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	793	938	
==>truct );

=cut

sub new_from_struct {
    my $class   = shift;
    my %hash    = @_;
    
    my $struct;
    my $tmpl = {
        struct => { req <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5860	5945	
==>mplementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/ <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5860	5945	
==>mplementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/repos/adamk/Config-Tiny/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17667	17828	
==>nstant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17946	18107	
==>nstant( "\(" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'gramma <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5166	5307	
==>n.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5166	5307	
==>n.start ) );
    }
    elsif $x <= $.span.start && $.span.start_is_open {
        $x = $.recurrence.next( $.span.start );
    }
    if $x > $. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5795	5892	
==>ative value for
# relative seconds and a positive value for epoch based time values.
#sub retry_af <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5795	5892	
==>ative value for
# relative seconds and a positive value for epoch based time values.
#sub retry_af <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1223	1342	
==>';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1223	1342	
==>';
}
!EOT!
    my $block = match::str( match::get( $_[0], '$<block>' ) );
    $block =~ s/([\'\\])/\\$1/g;

    my $expr <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	591	710	
==>->isa('type')))
            || confess "Keys must be strings, and values must be native types";
        $values{$key->to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1678	1790	
==>&& $right->isa('type'))
        || confess "The right hand side must be a core type";    
    ($right->to_num->to <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	380	507	
==>=> $f ),
    Num  +$epsilon        = 0.0005,
    Num  +$max_iterations = 500,
    Bool +$verbose        = 0
) returns Num is exp <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43795	43910	
==>ct->send('add_method' => (
    # method label
        symbol->new('DESTROYALL'),
    # method body
        method->n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6709	6857	
==>],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6709	6857	
==>],
        };
    }
};

sub capture {
    # return a labeled capture
    my $label = shift;
    my $node = shift;
    sub {
        $_[3] = { label = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4765	4872	
==>_)  } 0 .. $left->elems->to_native) {
        # warn "calling equal_to on " . $left->fetch($i)->name->to_nat <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3785	3875	
==>uantified_op(W, Z).
p5_quantified_op(W, Z) --> p56_quantified_op(W,Z), !.
p5_quantified_op( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2414	2507	
==>ta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it' <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2414	2507	
==>ta-data and structure, not content!

=item L<Perldoc::DOM::Text>

The Text nodes are where it' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	384	495	
==>( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	384	495	
==>( $const );
    '( ( substr( $s, $pos, '.$len.' ) eq \''.$const.'\' ) 
    ? do { $pos += '.$len.'; push @match, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10625	10735	
==>ts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* T <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10683	10793	
==>ts as well.

== Testing Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* T <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	6202	6378	
==>umber
                \d+ { return { int => $() ,} } 
            |
                ### long:<name> 
                <Pugs::Grammar::Term.pair>
                { return $/{'Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2666	2775	
==>n data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2666	2775	
==>n data.

An example:

    &cipher := Cipher::Arcfour.encipherer(:key($key));  #Create the cipher closure
    p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22177	22271	
==>rname =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22177	22271	
==>rname =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$bot. <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23048	23188	
==>>{failed}, $Curtest->{percent},'
              . '  $Curtest->{canon}'
              . "\n}\n"
              . "~~" . " " x ($Columns - $list <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6621	6749	
==>], '$<list>' );
    my $fh   = get_str( $_[0], '$<indirect_object>' );
    my $cmd  = "    print";
    $cmd =    "    warn" if $o <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7531	7632	
==>west_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step
  descr  => "Searching for Parrot in <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23362	23460	
==>ot.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
im <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27914	28012	
==>ot.  Looking forward to the near
future where "Relation" is a Role rather than a Class, and some
im <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	3760	3929	
==>ge_prefix(   $path );
                    my $package = package_name(     $path );
                    my $version = package_version(  $path );
    
                    f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	30808	30916	
==>)
);

=pod

method _make_dispatcher_iterator (opaque $self: list @values) returns block {
    my $counter = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2903	3002	
==>rence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2903	3002	
==>rence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2597	2699	
==>l arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_lis <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2597	2699	
==>l arrays to be flattened.

class Perl6::Container::Array-0.01
{
    has Array @.items;

method from_lis <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25300	25488	
==>f :lvalue          { $_[0]{flags}[-1] }

  # access to the tree
    # is this the first pass?
    sub SIZE_ONLY           { ! $_[0]{tree} }

    # the most recent addition to the tree
    s <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8355	8605	
==>ies => [ map { { 
                                            title => $_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a- <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	572	695	
==>k underflow\n";
        my $y = @stack.pop() err die "Stack underflow\n";

        # given/when is a sexy new P6 construct t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8341	8429	
==>ifier_spec_neg(L), !.
p5_modifier_spec_pos([])     --> {true}.
p5_modifier_spec_neg([-i|L <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	971	1075	
==>xists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	938	1042	
==>xists $args{local_dir};

    if (eval { require LWP::Simple; 1 }) {
        LWP::Simple::mirror($args{url <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32678	32778	
==>sing data from external Template modules as a template.
The Translator class as a whole is not pure a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32678	32778	
==>sing data from external Template modules as a template.
The Translator class as a whole is not pure a <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	14097	14216	
==>ribute_list() -> $attr {
            %attrs{$attr->name} = $attr.instantiate_container();
        }
    }
    my $self = <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	1958	2070	
==>multi Num::round_floor (Num $x) {
	my Int $t = int($x);
	$x > 0 || $x == $t ??
		$t !! $t - 1
}

our Int multi Nu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6841	6931	
==>umper($prog);

	my $dup_finder = Blondie::Backend::C::Emitter::DuplicateFinder->new;
	$self <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5271	5358	
==>int(Max).
p6_range_bounds_RHS(_Min,Max) --> "..", digits_int(Max), !.
p6_range_bounds_RH <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16633	16753	
==>my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13054	13174	
==>my ($S) = @_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of cha <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1824	1920	
==>od intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1824	1920	
==>od intersects ($self: $span is copy) returns bool {
    return Bool::False if ! $.span.intersects <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	964	1061	
==>sh
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the packa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	964	1061	
==>sh
	$self->rules->{$rule_name} = $compiled_rule;
	# but put the .code version of it into the packa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	675	774	
==>riggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	675	774	
==>riggered, the bot joins the channel it was invited
to.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9850	10040	
==>th}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9850	10040	
==>th}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    multi method clear () {
        %!cookies = ( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2279	2380	
==>o read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2279	2380	
==>o read the
AES by using the C<p6bible> command line utility.

=head1 SEE ALSO

The Pugs homepage is at <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2627	2733	
==>ss Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $clas <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2627	2733	
==>ss Perl6::Container::Array-0.01
{
    has Array @.items;

method from_list ( $class: *@items ) { 
    $clas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2841	2964	
==>ent', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2841	2964	
==>ent', 'parent_node') -> $k {
            $?SELF!_die_with_msg(
                    'ROS_M_D_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10373	10477	
==>he deferred validations are performed
on demand at some time after the input has been set, and could pote <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10373	10477	
==>he deferred validations are performed
on demand at some time after the input has been set, and could pote <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18601	18738	
==>method
    .param pmc pad
    .local pmc exp0, exp1
    exp0 = self[0]
    exp0 = exp0.p6analyze(pad)
    exp1 = self[1]
    exp1 = exp1.p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	1821	1929	
==>urn $methods->fetch($label)->do($args);
        }
    }
    confess "Method (" . $label->to_native . ") not f <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	963	1126	
==>g_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosett <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	963	1126	
==>g_prefs? = 'en') {

    $translator .= new(
        set_names    => [
                'Rosetta::Shell::L::',
                'Rosetta::L::',
                'Rosett <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	209	346	
==>X might need to be a bit more elegant, and not blow it away every go
{   system( qq[rm -rf $Root] )                                  and d <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	828	947	
==>ute {
    my $self = shift;
    my $prog = shift;

    $self->interpreter->execute($prog);
}

__PACKAGE__;

__END__

=po <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14956	15084	
==>,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14956	15084	
==>,
                'RESULT' => $sum } ) );
    }

=head1 DESCRIPTION

=head2 Introduction

Many times during a program's operation <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19970	20074	
==>tatement>
}
rule VariableStatement :words {  # see 12.2
      <'var'> <?ws_required> <VariableDeclaration <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	5771	5929	
==>>{stmt} => $ast ]
            }
        }
        elsif ( exists $ast->{op} ) {
            $t = [ $ast->{op} => $ast ]
        }
        elsif ( exists $ast-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	4706	4828	
==>iler::Regex->compile( q(
            { return { bool => 1 ,} } 
        ) ),
        'bool::false' => Pugs::Compiler::Regex <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1377	1563	
==>ibutes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1377	1563	
==>ibutes.
    trusts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	504	631	
==>rs() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!member <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	504	631	
==>rs() returns List {
    $!members.values;
}

method insert($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!member <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	27357	27494	
==>to);
}
sub rx {
    my($re,$mods)=@_;
    my $rem = $re;  $rem = "(?$mods)(?:$rem)" if $mods;
    #print "re>$rem<\n";
    sub {
	my($s)=@ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13535	13654	
==>ge:
    if isrange goto addrange
    $S1 = substr target, pos, 2
    if $S1 != ".." goto addchar
    pos += 2
    israng <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	729	855	
==>es ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	729	855	
==>es ready
    my $current_path;
    my $current_tree = $tree;

    # check to see if we have been 
    # asked to include the tr <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6411	6517	
==>or use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<p <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6411	6517	
==>or use with L<Pod::Event::Parser> which will
perform HTML formatting.

=head1 FUNCTIONS

=over 4

=item B<p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5720	5825	
==>th these interfaces can be
# addressed.  One possibility is to return a negative value for
# relative seco <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5720	5825	
==>th these interfaces can be
# addressed.  One possibility is to return a negative value for
# relative seco <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40236	40330	
==>SA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent noti <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40236	40330	
==>SA.

Any versions of Locale::KeyedText that you modify and distribute must carry
prominent noti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1932	2030	
==>t($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1932	2030	
==>t($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
multi s <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6203	6305	
==>=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplicates, th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6203	6305	
==>=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplicates, th <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	1477	1661	
==>by
                              ;           Bit :$inplace
                             --> Array )
{...}
# signature from S29draft.pod 8651.
 multi Array::sort(                 @values <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	842	997	
==>capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	835	990	
==>capture} );
        return { 
            \%\$match,
            capture => [ \$capture_block->( \$match ) ],
        }; 
    }\n";
            return $retu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13228	13321	
==>all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

= <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13228	13321	
==>all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

= <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1021	1141	
==>P::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval { <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	988	1108	
==>P::Simple; 1 }) {
        LWP::Simple::mirror($args{url}, $file);
    }
    elsif (eval { require Net::FTP; 1 }) { eval { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6362	6508	
==>x->{flags}[-1],
      family => 'anyof_class',
    }, $class;

    if (ref $type) {
      $self->{data} = $type;
    }
    else {
      $self->{typ <==
2	/Users/nnunley/pugs/util/importgraph.pl	1104	1210	
==>ned $module_name) {
    warn "couldn't find a module in $File::Find::name\n";
    return;
  }

  $modules{$ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8430	8544	
==>mit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An ob <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8430	8544	
==>mit exceeded when calculating complement()";
        };
}

} # class Recurrence


=kwid

= NAME

Recurrence - An ob <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4708	4813	
==>l and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DB <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4708	4813	
==>l and Locale::KeyedText

    # Instantiate a Rosetta DBMS / virtual machine.
    my Rosetta::Interface::DB <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	247	367	
==>ub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi su <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	247	367	
==>ub uri_escape (Str $string is copy, Rule $unsafe) returns Str is export(:DEFAULT) {
    #    ...
    #}
    
    multi su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	315	424	
==>!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	315	424	
==>!";

# Open the input file
my $input_file = IO::File->new($input_filename,'<') ||
  die 'Could not open the so <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2414	2535	
==>urn $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  # bound (not a wo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1249	1354	
==>urn $S->force_object(anyof_char => 'B') if $cc;
    return $S->object(bound => nbound => '\B');
  });

  $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12096	12197	
==>rrence that is right before the parameter.

- `current( $x )`

Returns the parameter value if the para <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12096	12197	
==>rrence that is right before the parameter.

- `current( $x )`

Returns the parameter value if the para <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7703	7805	
==>r<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq no <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7703	7805	
==>r<KILL> = [-> $event {
    my ($killee, $reason) = $event<object rest>;
    if(normalize($killee) eq no <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4695	4835	
==>, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4707	4847	
==>, but bug-compatible with previous versions
    # $/<0>, $/<1>
    # $<0>, $<1>
    if ( $name =~ /^ \$ \/? <(\d+)> $/x ) {
        my $num = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16186	16427	
==>\&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16465	16706	
==>\&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::op <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6515	6626	
==>not be doing the right thing\n";
	$decl = "no strict; ($varlist)$init; use strict;";
    }
    else { die "bug $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5729	5833	
==>, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5729	5833	
==>, @tail );
    return Perl6::Container::Array.from_list( @body );
}

method shift () {
    self._shift_n( <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3259	3371	
==>n "|", # map { quotemeta }
        map { split /,/ } @{ $Config{exclude} };
    $Config{exclude_re} = qr/($excl)/ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6726	6835	
==>rt_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficien <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6726	6835	
==>rt_siblings ($self: Int $index, *@siblings) returns Tree {
    (!$self.is_root()) 
        || die "Insufficien <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9844	9959	
==>t carry the a line number, so leave them out for now
          if($test->{todo}||0 == 1) {
          $lines->{$line} <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6385	6502	
==>be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "c <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6385	6502	
==>be a lazy list of pairs!
    self.splice( $pos, 1, [$item] );
    return self;
}

# XXX - if you use this, you get: "c <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5020	5154	
==>,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless def <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5020	5154	
==>,
                     end_is_open =>   $open_end );
    }
    return;
}

method stringify () returns String {
    return '' unless def <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5595	5731	
==>ith previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5607	5743	
==>ith previous versions
    # $/<name>
    # $<name>
    if ( $name =~ /^ \$ \/? <(.+)> $/x ) {
        my $n = $1;
        for ( @{ match: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20684	20782	
==>n does not declare any subroutines or export such.

The usual way that Relation indicates a failure <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25236	25334	
==>n does not declare any subroutines or export such.

The usual way that Relation indicates a failure <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4832	4927	
==>s an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUT <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4972	5067	
==>s an implementation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUT <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	935	1045	
==>rammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	935	1045	
==>rammar->no_match unless $_[0];
    my $pos = $_[1]{p} || 0;
    return Pugs::Runtime::Match->new( { 
        bo <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4958	5139	
==>); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    e <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4958	5139	
==>); 
            @tail = self._shift_n( Inf ); 
        }
        else {
            @tail = self._pop_n( -$length ); 
            @body = self._shift_n( Inf ); 
        }
    }
    e <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	465	567	
==>name");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tem <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	465	567	
==>name");
  my $pilresult = $pilfh.readline();
  $pilresult ~~ s:P5/\r//;
  $pilfh.close();
  unlink($tem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2207	2333	
==>message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Th <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2207	2333	
==>message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end of array\n";
#      $off = $size;
#   }

# Th <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4756	4940	
==>ers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4756	4940	
==>ers
        start_modifier => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print("&")
                }
                when rx:perl5/[CF]/ { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1446	1578	
==>urn;

};

sub escaped_char {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'escaped_char'=> $1 }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1388	1514	
==>urn;
};
sub escaped_char {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'escaped_char'=> $1 }, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20106	20202	
==>r blocks get compiled first, then outer blocks.

A compiler may choose to declare that its result <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20106	20202	
==>r blocks get compiled first, then outer blocks.

A compiler may choose to declare that its result <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23386	23480	
==>rname =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23386	23480	
==>rname =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C<$botE <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	113	216	
==>act class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sour <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	113	216	
==>act class, but I'm not sure how to
# specify/enforce that.

method dom_fields($self:) {
    <source sour <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10073	10181	
==>ation will not be set at all.  The scope of immediate
validation is kept to the minimum possible, and is esse <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10073	10181	
==>ation will not be set at all.  The scope of immediate
validation is kept to the minimum possible, and is esse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8524	8636	
==>', '*'

=item * name2 => $operator_name - the name of the second operator in
an operator pair, such as circumf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6060	6169	
==>', '*'

=item * name2 => $operator_name - the name of the second operator in
an operator pair, such as circumf <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1197	1290	
==>ile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1197	1290	
==>ile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <ws> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10888	10981	
==>e information about how many members
were actually new is discarded.

=head2 C<$set.remove(... <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10888	10981	
==>e information about how many members
were actually new is discarded.

=head2 C<$set.remove(... <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	4310	4420	
==>dler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1436	1546	
==>dler('\r' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\r", '\r') if $cc;
    ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11405	11541	
==>? 1 : undef },
      hash  => sub { %{$_[0]} ? 1 : undef },
      code  => sub { 1 },
      ref   => sub { ${$_[0]} ? 1 : undef }, # p6_a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1957	2091	
==>on of .jib is in same dir as $meta
        ### XXX add other found data to the metadata as well
        my $archive = $meta;
        $a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11276	11393	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LK <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11276	11393	
==>T_ARG_UNDEF',
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LK <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Base.pm	632	738	
==>$autoload;
}

#line 76

sub _top { $_[0]->{_top} }

#line 89

sub admin {
    $_[0]->_top->{admin} or Modul <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	960	1124	
==>};
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class) <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	960	1124	
==>};
               };
               unless %plugins{$class} {
                   %plugins{$class} =
                       $.require ?? $class !! $.callback.($class) <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3925	4022	
==>modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of yo <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3925	4022	
==>modules. To rephrase, Config::Tiny does not preserve
your comments, whitespace, or the order of yo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9711	9808	
==>to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Cons <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9711	9808	
==>to the
library.

The following methods are available:

=over 4

=item $h = HTTP::Headers.new

Cons <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1975	2115	
==>xtract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $extracted,

        tail  => $remainder, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1897	2033	
==>xtract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder, <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	708	805	
==>E

Blondie::Reducer::DuplicateFinder - find duplicate nodes in a program.

=head1 SYNOPSIS

    us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5501	5612	
==>r/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5310	5419	
==>r/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	252	376	
==>re not implemented
    * Constructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, ove <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	252	376	
==>re not implemented
    * Constructors should emit error messages if there are unknown parameters

  Tests:
    * unicode, ove <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1409	1548	
==>RAY' ) ) {
            $str .= '(';
            $str .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')' <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2894	3034	
==>lid format!";
    exit;
  }

  $smoke{pugs_revision} ||= 0;
  $smoke{timestamp}       = time;
  $smoke{id}              = $id;
  my $filename <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	1137	1247	
==>nt}) {
	    $db_param->is_optional(1)
		unless $param->{required};
	    $invocant = $db_param;
	}
	elsif ($para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3265	3396	
==>gs;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3405	3536	
==>gs;
        %args = %{$flags->{args}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	15992	16090	
==>n `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods retu <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	15992	16090	
==>n `size` will be a duration.

- `contains( $object )` / `intersects( $object )`

These methods retu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13693	13815	
==>g::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => ['E <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13693	13815	
==>g::', 'MyApp::Lang::'],
                # set package prefixes for localized app components
            member_names => ['E <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	2014	2132	
==>ndie::Param;
    use base 'Blondie::Node::Unit';

    package Blondie::App;
    use base 'Blondie::Node::List';

    pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3862	3965	
==>ns )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule syntax.

opt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4046	4149	
==>ns )

Class method.  Returns a compiled rule object, or throws an exception on
invalid rule syntax.

opt <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6484	6634	
==>ix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit err <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6484	6634	
==>ix( $match->() ) eq 
        '1 1 infix:<+>', 
        'operator long name' 
    );
    print postfix( $match->() );
}

__END__
{
    # TODO - emit err <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9900	10001	
==>all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9900	10001	
==>all the elements of C<$set1> which are in C<$set2>, too.

=head2 C<$set1.difference($set2)>

Returns a <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2047	2151	
==>e::Reducer::DynamicScoping Class::Accessor/;

	use Scalar::Util ();
	use B ();
	use B::Flags ();

	use St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16806	16956	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17085	17235	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&bl <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3273	3377	
==>date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3273	3377	
==>date.year;
  say $date.ymd;

= DESCRIPTION

This class represents a date /without a time/.

Because it is <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	676	761	
==>If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Autho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	676	761	
==>If-Modified-Since If-None-Match If-Range If-Unmodified-Since
 Max-Forwards Proxy-Autho <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1929	2130	
==>= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {} <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1929	2130	
==>= ( defined $.cstart || defined $.cend ) ?? 
                             sub { Inf } !! 
                             sub { 0 };
        $.cstart         //= sub {};
        $.cend           //= sub {} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	574	679	
==>CRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node type is for <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	574	679	
==>CRIPTION

Sometimes you need to put in a little whitespace to fill an XML
document.  This node type is for <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25465	25568	
==>e Key>

Str - This uniquely identifies the type of message that the object
represents (or gives the name <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25465	25568	
==>e Key>

Str - This uniquely identifies the type of message that the object
represents (or gives the name <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TestGuts.pm	506	632	
==>t('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq ' <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TestGuts.pm	506	632	
==>t('') }
    method _cipher($self: Array $data) {
        $.num_invocations++;
        return map {
            ($self.mode eq ' <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7351	7441	
==>erl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
pus <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1176	1266	
==>erl6->grammar_name(@_) };
push @statements, sub { Grammar::Perl6->condition_rule(@_) };
pus <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5931	6052	
==>::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5931	6052	
==>::Iterator
{
    has $.current_span;
    has $.current;
    has $.set;
    submethod BUILD ( $.set ) {}
    method next ($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13099	13202	
==>nslator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
repres <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13099	13202	
==>nslator ("Translator").

I<Note that the "Locale::KeyedText" package serves only as the name-sake
repres <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28388	28543	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28667	28822	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&eval_pe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4108	4219	
==>iversal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

T <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4108	4219	
==>iversal_set()

= OBJECT METHODS

    # XXX

- `start()` / `end()`

Return the start or end value of the span.

T <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	866	984	
==>~= "Content-type: " ~ $content_type;
        $header ~= "; charset=$charset" if $charset.defined;        
    }
    ret <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18178	18309	
==>f tests\n"
      if $totals->{seen} && 
         $totals->{max}  < $totals->{seen};
};

sub test_handler {
    my($self, $line, $typ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude/Math.pm	971	1160	
==>'$y'),
            App(
                Sym('&control_structure:<if>'),
                App(
                    Sym('&infix:<<>'),
                    Sym('$x'),
                    Sym('$y <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	1459	1593	
==>tr .= join " OR ", map { $self->_pp_from_struct( [$_] ) } @$entry;
            $str .= ')';
            
        } elsif ( UNIVERSAL::i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12552	12752	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12831	13031	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&grammar_name;
*{'_push'} = 

    sub { 
        my $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7984	8096	
==>ch_word( 'abc123', :capture );



  # returns a Match object that has no capture (but the 'bool' field is still t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7715	7825	
==>ch_word( 'abc123', :capture );

  # returns a Match object that has no capture (but the 'bool' field is still t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	948	1059	
==>ze;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	948	1059	
==>ze;

    for @items -> $x { %!members{$self._stringify($x)} = $x }

    return ($self.size - $pre_size);
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16301	16397	
==>ios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@fo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16359	16455	
==>ios.org>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	387	499	
==>nless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	387	499	
==>nless defined $param->{sigspace} ||
               defined $param->{s};
    $class->SUPER::compile( $rule_source, <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3997	4102	
==>_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1304	1409	
==>_;
    return $S->force_object(anyof_char => "\n", '\n') if $cc;
    return $S->object(exact => "\n", '\n' <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	499	654	
==>, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^(\S+?) \s* : \s* (.*?) \s* $/x && d <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	26276	26370	
==>le it is by no means required, the copyright holders of Rosetta would
appreciate being informed <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	26276	26370	
==>le it is by no means required, the copyright holders of Rosetta would
appreciate being informed <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	711	833	
==>BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides informatio <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	711	833	
==>BR>";
    }
    else {
        say "Unauthorized Access!!!!<BR>"
    }

=head1 DESCRIPTION

This module provides informatio <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38528	38636	
==>that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38528	38636	
==>that is
bounded by '<' and '>'.  For example, given "Hello <place>!" in $text and
"{ 'place' => 'World' }" in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	14	136	
==>ompiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($nam <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	14	136	
==>ompiler::PIL::Util::Pad {
    has Perl::Compiler::PIL::Util::Pad $.parent;
    has Str @.names;

    method lookup_pad($nam <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3701	3837	
==>~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3894	4030	
==>~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_char'=> $1 },
        tail  => $2,
        ( $_[2]->{ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6287	6380	
==>registered alternative
        $self->remove_registered_alternative( package => $unlink_this ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19333	19482	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19612	19761	
==>apture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
    push @statements, \&m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1482	1582	
==>t)->[1]->fetch }

sub change_class {
    my ($self, $klass) = @_;
    return $self->[1]->store($klass <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7933	8031	
==>= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is whe <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7933	8031	
==>= DESCRIPTION

This class represents an ordered set of spans.

The problem this class solves is whe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	442	569	
==>PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	442	569	
==>PIL $tree is rw, PIL::Compiler::CodeGen::NameGen $ng is rw) {
        my $ret = do given $tree {
            say "Processing $tr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4307	4452	
==>\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4295	4440	
==>\n", @s ) . "
$_[1]   }
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3448	3553	
==>s Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3448	3553	
==>s Set {

    # this one was particularly disturbing..
    say "Symmetric difference: "~$self.stringify~" % <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17516	17625	
==>ata.

=item *

Ability to ship precompiled modules without shipping Module::Compile and
the compiler modules t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17516	17625	
==>ata.

=item *

Ability to ship precompiled modules without shipping Module::Compile and
the compiler modules t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15871	15970	
==>will raise a condition or error that,
while resembling a message that would be shown to a user, is i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15871	15970	
==>will raise a condition or error that,
while resembling a message that would be shown to a user, is i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	381	479	
==>onfig

=back

=head1 METHODS

=head2 $src = JIB::Source->new( dir => /path/to/source )

=cut

sub n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	38887	39035	
==>'$self:')->get_attr(symbol->new('%:attributes'))->keys();                                 
            }
        )
    )
);

=pod

=cut

$::Class->se <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16801	16906	
==>_;
    "\$${ROOT}::${pkg}::META";
}
sub p6_meta {
    my $m = get_meta($_[0]);
    die("p6_meta: undefined <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	217	319	
==>tle>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	217	319	
==>tle>Bad Request</title>
  </head>
  <body>
    <h1>Bad Request</h1>

    <p>Your browser sent a request <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	3	101	
==>usr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	3	101	
==>usr/bin/pugs
use v6;

use HTTP::Message;

class HTTP::Request-0.1[?::URI_CLASS = URI] {
    is HTTP <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19640	19739	
==>The end of an inner block
effectively acts as a C<no> statement for any compile sections in
that blo <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19640	19739	
==>The end of an inner block
effectively acts as a C<no> statement for any compile sections in
that blo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3725	3831	
==>ly the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert_child :: <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3725	3831	
==>ly the same as
# insert_children, you are just inserting
# and array of one tree
our &Tree::insert_child :: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	5	110	
==>v6;
module Pod::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export { <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	5	110	
==>v6;
module Pod::Event::Handler::POD-0.0.1;

multi sub pod2pod (Str $buffer is rw) returns Hash is export { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1219	1359	
==>(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless de <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1219	1359	
==>(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined \$_[2];\n" .
        # "    \$_[0] = '' unless de <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4471	4578	
==>alue');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precen <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6373	6480	
==>alue');
is_deeply(
    [ $Object->class_precendence_list ], 
    [ $Object ], 
    '... $Object class_precen <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6146	6292	
==>) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    ret <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6146	6292	
==>) {
    my $n = $self.next( $x );
    my $p = $self.current( $x );
    return $n - $x < $x - $p ?? $n !! $p;
}

method is_empty ($self: ) {
    ret <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1924	2016	
==>}

sub increment { num->new((shift)->to_native + 1) }
sub decrement { num->new((shift)->to_na <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	1417	1630	
==>$_[-1] };

use constant DIR_EXISTS     => sub { 
                                    my $dir = $_[-1];
                                    return 1 if IS_DIR->($dir);
                                    local $Carp <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2930	3026	
==>span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2930	3026	
==>span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurrence => $set2.recurrence, span <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14213	14491	
==>rcent     => undef,
                                         estat       => '', 
                                         wstat       => '',
                                       };
            }
        }

        if (defined $Files_In_Dir) {
            my @new_dir_files = _g <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14793	14883	
==>reverse dont currently work.
%# XXX - more...
re_reverse(R,R).

%-------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	1641	1739	
==>ternal packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	1641	1739	
==>ternal packages used by the Rosetta::Interface::Exception class, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/wurf3.pl	4	121	
==>rl 5:
my $anz = 0;

for(1..3) {
    $anz++ if wurf() == 6;
}
print "okay!\n" if $anz == 1;
#=Perl 6:
if one({wurf()} x <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7933	8041	
==>n");*/
    ret = call_sv(handler, G_ARRAY);
/*    fprintf(stderr,"...back.\n");*/
    SPAGAIN;
    api = POPi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5094	5205	
==>ntent_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5094	5205	
==>ntent_headers, .content(""));
        $self.content_type("multipart/mixed");
        @!parts = $message;
    } e <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8628	8731	
==>ecimalDigits>
    | <'-'> <DecimalDigits>
}
rule HexIntegerLiteral {  # see 7.8.3
      <'0x'> <HexDigit <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	5816	5951	
==>('@:MRO')             => list->new(),
            attribute->new('@:subclasses')      => list->new(),
            attribute->new('@:supe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	299	424	
==>poindex ); 

for my $pkg (@ARGV ) {
    
    ### in case there's more than one package matching,
    ### sort by highest versi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	454	552	
==>_value => return value ] pair
### the default_value is the value of initalization, the return value <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8187	8281	
==>ammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2012	2106	
==>ammar::Perl6->assign(@_) };
push @statements, sub { Grammar::Perl6->sub_call(@_) };
push @terms <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9051	9156	
==>uire $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9051	9156	
==>uire $module_name;";
    $?SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_t <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	762	873	
==>mark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	762	873	
==>mark - Benchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7994	8096	
==>le (my ($key, $value) = each %$suspect) {
    # Force a hash recompute if this perl's internals can cac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10465	10656	
==>rrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my meth <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10465	10656	
==>rrot
        $text ~~ s:perl5:g/\<$var_name\>/$var_value_as_str/; #: v req Pugs
    }

    return $text;
}

###########################################################################

my meth <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	14795	14972	
==>y;     # 1 to 31
    has Int  $.hour;    # 0 to 23
    has Int  $.min;     # 0 to 59
    has Int  $.sec;     # 0 to 61 (up to two leap seconds)
    has Int  $.picosec;
    has In <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	6632	6742	
==>For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checki <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	6632	6742	
==>For a more complete API, see `Span`.

The `start` value must be less than or equal to `end`. There is no checki <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15545	15650	
==>y method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!headin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19022	19127	
==>y method _union (Relation $other!) returns Relation {
    return Relation.new(
        heading => $!headin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12686	12829	
==>ta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12686	12829	
==>ta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type'  => 'data_sub_type',
                'a <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19017	19117	
==>eant to be used with user text that is
associated with hard-coded program conditions.  In other words <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19017	19117	
==>eant to be used with user text that is
associated with hard-coded program conditions.  In other words <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11672	11769	
==>> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>?
    | <Decima <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	1946	2085	
==>f the head if it matches our canidate
        foreach my $seq (@nonemptyseqs) {
            $seq->shift if $seq->fetch(num->new(0)) == $cand <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1335	1431	
==>rn $node->struct_equiv . " is duplicated, and has been alocated $symbol" if defined $symbol;

	my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12176	12307	
==>';
    }
    
    return _not_implemented( $n, "circumfix" );
}

sub postcircumfix {
    my $n = $_[0];
    #print "postcirc <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	469	587	
==>dles
>;

foreach my $key (@scalar_keys) {
    *$key = sub {
        my $self = shift;
        return $self->{'values'}{ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	492	591	
==>t_equiv;
		my $orig = $node->orig;

		if (defined($orig) and $self->{seen}->includes($orig)) {
			$s <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11289	11385	
==>"\f"}, !.
p6_simple_escape_sequence(char(C)) --> "\\e", {[C] = [0x1B]}, !.


% XXX - connect to a <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16557	16669	
==>fy(
		my $t = type($.then), type($.else),
		$.then, $.else
	);

	$t;
}


#'EOG


# these are some sample ASTs tha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6301	6403	
==>> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq norma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6301	6403	
==>> = [-> $event {
    my $chan = normalize $event<object>;

    if(normalize($event<from_nick>) eq norma <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9125	9243	
==>ciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9125	9243	
==>ciphering>;
has $.mode;
has bool $!seen_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1489	1605	
==>asyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying shoul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1489	1605	
==>asyntax => $extracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying shoul <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5746	5870	
==>ler.line}";
        };

        $mess;
    }
}


=kwid

role Rule {}
class Pugs::Internals::VRule does Rule {}
class Rul does <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	630	749	
==>tood. Everybody cheer!
# (i did not understand (or try very hard to understand) the modula 2 code, so
# the impl is prob <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	290	385	
==>Bin';
use lib "$Bin/../lib";
use Pugs::Grammar::Base;

require 'p6rule.pl';
require 'emit.pl';
r <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	1401	1510	
==>concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.ce <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	1401	1510	
==>concatenation

# ---------

class Perl6::Value::List {
    does List;
    has Code $.cstart;
    has Code $.ce <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3712	3824	
==>ule)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import erro <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3770	3882	
==>ule)::import.goto();
    #};

    if ($!) {
        Test::proclaim(undef, "require $module;", $todo, "Import erro <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	650	766	
==>smx;

=head1 NAME

    JIB::Package

=head1 DESCRIPTION

Base class for:

    JIB::Package::Source
    JIB::Package:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11553	11661	
==>ined $args{switches}
		or defined $args{stdin};
    }
    if (defined $args{stdin}) {
	# so we don't try to p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	80	175	
==>Grammar::BaseCategory);
use Pugs::Grammar::Precedence;

use Data::Dumper;

our $operator;

# TOD <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8892	9104	
==>new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'method'
            ),
            sub {
                my $e = <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8079	8189	
==>my $command =  $self->_command();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($fil <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1687	1825	
==>capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uac <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1687	1825	
==>capital O, tilde
    "Ouml"     => 'Ö',  # capital O, dieresis or umlaut mark
    "THORN"    => 'Þ',  # capital THORN, Icelandic
    "Uac <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	33497	33600	
==>Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation *@others) retur <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38047	38150	
==>Relations.  This method has an alias named C<intersect>.

=item C<intersection (Relation *@others) retur <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1717	1838	
==>up,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1728	1849	
==>up,

    # <'literal'> literal \*
    ruleop::concat(    
        ruleop::constant( "<\'" ),
        ruleop::capture( 'con <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	763	859	
==>uire "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{au <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2598	2694	
==>uire "$self->{path}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{au <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2718	2848	
==>sc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't us <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2776	2906	
==>sc, $todo, "eval was fatal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7039	7153	
==>L' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7039	7153	
==>L' => $val } )
        if !$val.does(Rosetta::Model::Document);
}

my method _assert_arg_node_assume_def (Str $meth <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15340	15449	
==>d, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15398	15507	
==>d, Str $desc?) returns Bool;
  multi sub is_deeply (Hash  %got, Hash  %expected, Str $desc?) returns Bool;
  m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18969	19105	
==>6analyze" :method
    .param pmc pad
    .local pmc reps, savereps
    .local pmc exp0, exp1

    reps = pad["reps"]
    savereps = new . <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9959	10077	
==>eturn $S->object(exact => $c);
  });

  $self->add_handler('*' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17344	17463	
==>`iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `nex <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17344	17463	
==>`iterator()`

Returns an iterator:

    $iter = $span.iterator;
    say $i while $i = $iter.next;

The iterator has `nex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13675	13783	
==>es => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13675	13783	
==>es => ['MyLib::Lang::', 'MyApp::Lang::'],
                # set package prefixes for localized app components <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1479	1594	
==>he "Perl5" switch:

    :Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	49	155	
==>sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MA <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	49	155	
==>sub time2str ($time = time)   is export(:MANDATORY) { ... }
    sub str2time ($str, $zone?)   is export(:MA <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1984	2099	
==>och => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1984	2099	
==>och => time ).add( days => 1 );
}

method yesterday () returns Date {
    return Date.new( epoch => time ).subtract( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17021	17149	
==>uleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17300	17428	
==>uleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'pr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10741	10892	
==>turns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10741	10892	
==>turns that as a row.
    # Like: SELECT s.id AS id, s.name AS name, s.sex AS sex
    #       FROM person AS s
    #       WHERE s.id = :person_id;
    m <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3631	3761	
==>, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3631	3761	
==>, nph => $nph, extra => %out);
    }
}

sub url_decode (Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3393	3490	
==>he parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTH <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3393	3490	
==>he parameter named C<$name>.

=item C<$q.clear()>

Deletes all the parameters.

=back

=head1 AUTH <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	633	754	
==>n one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that comman <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	633	754	
==>n one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_TODO_RESULT' => q[TODO: prepare and execute that comman <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	17473	17596	
==>$subpct\n";
        }
    }

    printf("Files=%d, Tests=%d, %s\n",
           $tot->{files}, $tot->{max}, timestr($tot->{be <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5769	5872	
==>dentifier {  # see 7.6
      <!before <ReservedWord>> <IdentifierName>
}
rule IdentifierName {  # see 7. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	69	163	
==>f the block cipher has to implement
method cipher_block(Array $data) returns Array {...}
method <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	69	163	
==>f the block cipher has to implement
method cipher_block(Array $data) returns Array {...}
method <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5666	5761	
==>rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database conne <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5666	5761	
==>rosetta_root.load_engine( %DB_CONFIG{'engine_name'} );

    # Initialize (closed) database conne <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11312	11406	
==>ersion of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<. <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11312	11406	
==>ersion of C<.includes()>.

=head2 C<$set ∋ $item>, C<$item ∈ $set>

Unicode versions of C<. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	516	617	
==>rsion
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods nex <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	516	617	
==>rsion
* Removed class Lazy::Range
* Lowercase methods fetch(), store()
* Removed redundant methods nex <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	87	185	
==>andy $

package Test::Harness::Straps;

use strict;
use vars qw($VERSION);
use Config;
$VERSION = ' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	28133	28219	
==>->('abc')->describe,"\n";
print $rx->('(a+|b)*')->('ab')->describe,"\n";

print "----\n <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8244	8339	
==>("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_te <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8302	8397	
==>("1..$Test::num_of_tests_run");
    }
    elsif ($Test::num_of_tests_planned != $Test::num_of_te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	743	841	
==>File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	743	841	
==>File->new($output_filename,'>') ||
    die 'Could not open the output file '.$output_filename;
prin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16456	16638	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16735	16917	
==>mmar1::p6ws'}
           ,
         )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $c <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	609	717	
==>: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days = <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	609	717	
==>: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( days = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24222	24359	
==>::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	24501	24638	
==>::capture( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6w <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	433	572	
==>urn '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method dia <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	433	572	
==>urn '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!output   = ();
        return $output;
    }

    method dia <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4912	5006	
==><to_str () returns str>

=item B<fetch (num) returns ~type>

=item B<store (num, ~type) returns <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3086	3198	
==>ewsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $da <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3086	3198	
==>ewsection> = { 'this' => 'that' }; # Add a section - Syntax below is nicer 

    my $data = $cfg<data>();
    $da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1946	2041	
==>m * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=it <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2035	2130	
==>m * L<Pugs::Runtime::Match::Ratchet> represents a B<Match> object matched with C<:ratchet>.

=it <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2731	2852	
==>pendencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = sh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3195	3316	
==>pendencies
    sub list_dependencies {
        my $meta    = shift or die "Meta object required";
        my $print   = sh <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2260	2365	
==>VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2260	2365	
==>VAL>'.],
    'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	599	721	
==>sConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return Pugs <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	599	721	
==>sConfig.pm") {
        local $SIG{__WARN__} = sub { 1 };
        do "$FindBin::Bin/util/PugsConfig.pm";
        return Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2392	2517	
==>self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2643	2768	
==>self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, substr(${&Rx}, 0, &RxPOS) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	743	851	
==>e/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# Th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	743	851	
==>e/no line is part of the Module::Compile game.
#
# Return true if this class supports PMC compilation.
#
# Th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2148	2255	
==>e
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unless defined $.univer <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2148	2255	
==>e
    # XXX - universe = self.union( self.complement )
    return $.universe = $self unless defined $.univer <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1203	1337	
==>\\/g;  # duplicate every single backslashes
        return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
        $body . <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	588	708	
==>\\/g;  # duplicate every single backslashes
	return "*" . $<rule_name> . " = Pugs::Compiler::Rule->compile(q(" .
	$body . <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8209	8312	
==>the elements to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but l <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8209	8312	
==>the elements to 0.  In reality, most calls will be for 
pedestrian events like object destruction, but l <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	817	951	
==>,
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authenticatio <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	817	951	
==>,
        404 => 'Not Found',
        405 => 'Method Not Allowed',
        406 => 'Not Acceptable',
        407 => 'Proxy Authenticatio <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7868	7994	
==>en calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7868	7994	
==>en calculating complement()";
        };
}

submethod _get_complement_previous ($self: ) { 
    return $.complement_previous if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15329	15427	
==>m C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by ext <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15329	15427	
==>m C<$!node_type> - B<Node Type>

Str - This string identifies what kind of Node this is, and by ext <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5490	5585	
==>rTable = $self->operatorTable() if ( $whitespacePosition <= $position );

  expect_oper_1:
  $ke <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6276	6376	
==>'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
nod <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6276	6376	
==>'  , 'xVal' ,'unk';
node_a 'Val', 'VStr'  , 'xVal' ,'unk';
node_a 'Val', 'VList' , 'xVal' ,'unk';
nod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	10354	10476	
==>$_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	10354	10476	
==>$_[2], $_[3]{match}, @_[4..6] );
        return unless $match->{bool};
        $match->{state} = {
            state => $ma <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24885	24988	
==>St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other comp <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24885	24988	
==>St,
Fifth Floor, Boston, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other comp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1502	1617	
==>xtracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made au <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1502	1617	
==>xtracted },
    } );
}
BEGIN {
    push @rule_terms, 'metasyntax';
}

BEGIN {
    # XXX - currying should be made au <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	654	808	
==>( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".." <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	654	808	
==>( $tmp );
        last if $tmp == -Inf;
        unshift @end, $tmp;
    }
    return '' unless @start;
    # if @start and @end intersect, don't print ".." <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41784	41958	
==>>new('BUILD'))));
                })->do_until(
                    block->new($e, sub {
                        my $e = shift;
                        $e->get('$method')->is_ <==
2	/Users/nnunley/pugs/misc/Class-Events/lib/Class/Events.pm	0	111	
==>use v6;

# perl 5's Class::Publisher redone for all the Perl 6 OOP goodness

# something which does publisher ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	359	458	
==>IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	359	458	
==>IO::File->new($input_filename,'<') ||
  die 'Could not open the source file '.$input_filename;

# Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2282	2379	
==>eturn $S->object(exact_comp => join("", $S->nchar(@names)), "\\C[$n]");
    }

    $S->error(0, "M <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	21389	21520	
==>DERR $mn,"\n";
    no strict 'refs';
    $$mn = p6_meta('Scalar')->new();
    $$mn->ASSIGN($v);
}
sub p6_assign {my($o,$v)=@_; $o->A <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19350	19462	
==>r::tail;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($class, $rx) = @_;
    my $self = bl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	730	839	
==>is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	730	839	
==>is_open () returns bool {
    return Bool::False unless @.spans;
    my $head = @.spans[0];
    return $head.s <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	6206	6412	
==>me::Seconds->new($6)->minutes) . "&nbsp;min",
      summary       => [{
        total       => $7,
        ok          => $8,
        failed      => $9,
        todo        => $10,
        skipped     => $11 <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	439	559	
==>::}g;
    $pkg =~ s{\.pm$}{}i;

    local $@;
    eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we ca <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	558	669	
==>::}g;
	$pkg =~ s{\.pm$}{}i;

	local $@;
	eval { require $mod; $pkg->VERSION($ver || 0); 1 };
}

# check if we ca <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	5876	5989	
==>m, my $entry = {
		orig => $self,
		new => undef,
	};
	
	$entry->{new} = $self->SUPER::splat($accum);
}

sub free_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2238	2364	
==>ry is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

= <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2238	2364	
==>ry is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub ( $dir, $path, $pathdir ) {
        return 1;
    }

= <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	10000	10107	
==>port { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	10000	10107	
==>port { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementation of Perl6 'List' class in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17596	17708	
==>($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\n";
    $code <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	20483	20597	
==>scapture"] = 1
    self["isscope"] = 1

  init:
    $I0 = self["iscapture"]
    if $I0 == 0 goto unscoped

  captur <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2967	3072	
==>(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constru <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2967	3072	
==>(\$v0,\$v1) \{ BUILD({@fields[0]} => \$v0,{@fields[2]} => \$v1) }";
    $code = common_code($data,$constru <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4552	4649	
==>directly to "Rosetta" in your
code; instead refer to other above-named packages in this file.>

=h <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4552	4649	
==>directly to "Rosetta" in your
code; instead refer to other above-named packages in this file.>

=h <==
2	/Users/nnunley/pugs/util/build_pugs.pl	7143	7264	
==>shift;

    open IN, "< Pugs.cabal.in" or die $!;
    open OUT, "> Pugs.cabal" or die $!;

    my $depends = '';
    if ($ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer.pm	1141	1257	
==>l}; # find the symbol
    }

    # and then

    my $reduced = My::ASTWalker->new->reduce($program);

=head1 DESCRIPT <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1073	1198	
==>ZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1073	1198	
==>ZZ> [ \( <siglet> \) ]? }

# Bare subs
# from A06

#rule baresub {
#        <block> { .find_placeholders() }
#}

# Identifiers <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	805	910	
==>use Set::Object ();
use Data::Dumper ();
use Storable ();

use Devel::STDERR::Indent;

package type;
use b <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3221	3338	
==>lternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            b <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3221	3338	
==>lternate ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match.clone(
            b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1093	1260	
==>}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1093	1260	
==>}() ) { 
                    &{\\\'prefix:<_if_block>\\\'}() 
                } 
            \', 
            :lang<perl5> );
    ';
}
!EOT!
    my $block = match::str( <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5830	5922	
==>ig/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/r <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5830	5922	
==>ig/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http://tpe.freepan.org/r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3846	3965	
==>ould not load registered alts file: $@" ), return;

            $obj->registered_alternatives( \@alts );

            my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8515	8628	
==>urn "$_[1] capture( 'capturing_group',\n" .
           emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Constants.pm	2531	2697	
==>use constant ISA_JIB_REPOSITORY
                            => sub { UNIVERSAL::isa(shift(), 
                                                'JIB::Repository') };
use <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	524	653	
==>c", $plus ? "" : "don't ", "gc");
    return 0x0;
  });
  $self->add_flag('o' => sub {
    my ($S, $plus) = @_;
    $S->warn(RPe_B <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2442	2541	
==>lf: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Se <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2442	2541	
==>lf: Set $other) returns Bool {
    return ($other.subset($self));
}
method proper_superset($self: Se <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1600	1700	
==>regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [ <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1600	1700	
==>regex natural { <digit> [_* <digit> _*]* };

regex Int {[\+|\-]? <natural>};

regex decimal { <Int> [ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	358	457	
==>locks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidenta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	358	457	
==>locks
my $digest_map = {};

# All subroutines are prefixed with pmc_ so subclasses don't
# accidenta <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15723	15865	
==>d "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15723	15865	
==>d "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24165	24293	
==>er('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    pu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20586	20714	
==>er('ifthen_atom' => sub {
    my ($S) = @_;
    $S->nextchar;
    ${&Rx} =~ m{ \G ([^|]) }xgcs or return;
    my $c = $1;

    pu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1943	2050	
==>file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1943	2050	
==>file = canonpath(pop(@path));
    return $file unless ?@path;
    my $dir = catdir(@path[0], @path[1], @path <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10643	10744	
==>sting Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This funct <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10701	10802	
==>sting Functions

- `use_ok (Str $module, Bool :$todo, Str :$depends) returns Bool`

*NOTE:* This funct <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1335	1463	
==>->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 

sub do {
    my ($ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	745	857	
==>->new((shift) + 0)  }
sub to_str { str->new((shift) . '') }
sub to_bit { bit->new(1)            }

# methods 
sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	356	472	
==>\$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	356	472	
==>\$match;
    bless $self, $class;
}

# XXX - this sub should set .from and .to in match nodes!
#     - it should be c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2035	2152	
==>~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2035	2152	
==>~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? '++ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26045	26143	
==>ming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

Thi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30597	30695	
==>ming attributes to each others' names.

=item C<project (Set of Str $attrs!) returns Relation>

Thi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18957	19133	
==>ault {
                die "sprintf does not yet implement %{$specifier}";
            }
        }
    }
    $str;
}

multi shift (@array) is builtin is primitive { List::shift( <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9205	9299	
==>t_items_opt([Item1|MoreItems]) --> p5_charset_item(Item1), p5_charset_items_opt(MoreItems).
p5_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14198	14297	
==>($.fun);
	my $p = type($.param);

	types::unify(
		$f,
		type::operator::arrow->new(
			type::variab <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5446	5596	
==>.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method g <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5446	5596	
==>.cis_infinite,
                cis_contiguous => $ret.cis_contiguous,
                cstringify =>     $ret.cstringify,
        );
    }

    method g <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	41192	41289	
==>e files as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan@iint <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	41192	41289	
==>e files as
program code, rather than requiring separate files.

=item Stevan Little (C<stevan@iint <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21973	22076	
==>hat you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21973	22076	
==>hat you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1149	1253	
==>nd a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it ta <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1149	1253	
==>nd a continuation
(which takes in turn a C<Result> object as a parameter).  If the parser
succeeds, it ta <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3674	3879	
==>at>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3921	4126	
==>at>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0]{q1} <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	626	742	
==>ck YAML/;


$| = 1;
my $start = time;

sub usage {
    my $usage_err = shift;
    my $_PERL6_DOC   =  'http://svn.per <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2404	2511	
==>those limitations and 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITA <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2404	2511	
==>those limitations and 
still produce a working version of File::Spec for use as we develop 
Pugs. 

= LIMITA <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5695	5806	
==>nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Someb <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5695	5806	
==>nick>}++;
      %!users{normalize $event<from_nick>}<channels>{normalize $event<object>}++;
    });

    # Someb <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23243	23414	
==>{
                my $e = shift;
                return $e->get('$self:')->class;                
            }
        )
    )
);

=pod

method superclasses (opaque $self: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32469	32560	
==>head2 The Locale::KeyedText::Translator Class

While a Translator object stores some attribu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32469	32560	
==>head2 The Locale::KeyedText::Translator Class

While a Translator object stores some attribu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	894	1015	
==>ons( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tab <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11606	11696	
==>um, C<E<lt>=E<gt>> is used for comparison,
otherwise C<cmp>.

=item Pair(KeyExtractor, Comp <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	421	528	
==>"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	421	528	
==>"$pkg\::pmc_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1261	1411	
==>))
        || confess "You can only compare opaque types with other opaque types (not $right)";
    return $left->id->to_native <=> $right->id->to_nati <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9662	9793	
==>ax};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} += $results{s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9732	9881	
==>ment.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9732	9881	
==>ment.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.s <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3271	3354	
==>---------------------------------------------------------------------
  t/waterloo.t <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3356	3467	
==>ase the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) { <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3356	3467	
==>ase the lag but $rl1 enforces
        # 2 per minute, so it won't flood

    while(my $mail = get_next_mail()) { <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5627	5717	
==>et_meta('Complex')->new('$.real'=>$_[0],'$.imag'=>$_[1]) if $cls eq 'Complex';
    return n <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1054	1204	
==>tta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $eng <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1054	1204	
==>tta::Shell::L::',
                'Rosetta::L::',
                'Rosetta::Model::L::',
                'Locale::KeyedText::L::',
                $eng <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23039	23143	
==>e] = $P0
    .return (exp)
.end


.namespace [ "PGE::Exp::Alias" ]

.sub "p6analyze" :method
    .param p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	2576	2710	
==>, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	2576	2710	
==>, @_ ) if $debug->{after};
        return $match;
    }
}

sub perl5 {
    my $rx = qr(^($_[0])(.*)$)s;
    #print "rx: $rx\n";
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	4733	4874	
==>$set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

R <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	4733	4874	
==>$set )

  # XXX
  
- difference( $set )

  # XXX

- stringify() 

  # XXX

- compare

  # XXX
  
- is_empty()

- is_infinite()

- `spans()`

R <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	79	177	
==>IME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether ' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	79	177	
==>IME::Base64 and use it!
#use MIME::Base64;

# The $TRANSLATE_UNDERSCORE variable controls whether ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	35117	35212	
==>F<Regexp::Parser::branch>,
which is used when two of the same node are matched in succession.  W <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4312	4532	
==>*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_da <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4312	4532	
==>*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next possibility is to look at the "Expires" header
        my $date = ./date // ./client_da <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3527	3643	
==>$p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3667	3783	
==>$p eq 'undef';  # XXX - bug - 'undef' as string in t\06-subrule.t
        eval { $$match->{from} = \(0 + $p) };   # X <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	542	640	
==>erl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	542	640	
==>erl 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	49	159	
==>st;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test:: <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	49	159	
==>st;
use Test::Builder::Output;
use Test::Builder::TestPlan;

my  Test::Builder           $singleton;
has Test:: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	277	409	
==>ead2 $meta = JIB::Meta->new( file => /path/to/meta.info )

=cut

sub new { 
    my $class   = shift;
    my %hash    = @_;
    
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	26947	27110	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27226	27389	
==>p::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::constant( "\(" )
       ,
         ruleo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3815	3921	
==>requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3815	3921	
==>requires:
#   HTTP::Headers::Util (done)
#   Compress::Zlib
#   Compress::Bzip2
#   MIME::Base64
#   MIME:: <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3953	4070	
==>self->as_p6_file;
    my $p6;
    my $warn = sub{
	open IN, $p6_file or return "open: $p6_file: $!\n";
	$p6 = do { loc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5479	5581	
==>tr $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5479	5581	
==>tr $file) returns Bool is export {
    ?($file ~~ rx:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1568	1683	
==>ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1568	1683	
==>ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tail};
    my $perl5 = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10489	10619	
==>$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $kla <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10489	10619	
==>$_ ne $klass} @classes;
                if (($use eq 'use') xor $klass->pmc_use_means_no) {
                    push @classes, $kla <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	281	396	
==>[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	281	396	
==>[4]->" . $subrule unless $subrule =~ / :: | \. | -> /x;
    $subrule =~ s/\./->/;   # XXX - source filter
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2164	2286	
==>rn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2224	2346	
==>rn "Matching $char_class in [$_[0]] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                boo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18979	19109	
==>(.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15400	15530	
==>(.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->error(RPe_SEQINC) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5513	5625	
==>pply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5798	5910	
==>pply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set '$name' to a n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	146	251	
==>ings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	146	251	
==>ings qw( once redefine );

use Text::Balanced; 
use Data::Dumper;
use Pugs::Runtime::Rule;
#use Pugs::Runt <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8966	9060	
==>eturn $S->force_object(anyof_char => "\0", "\\0[0]") if $cc;
    return $S->object(exact => "\0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16503	16604	
==>ly
copying files), often even while the program is executing.

Locale::KeyedText gives your applicatio <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16503	16604	
==>ly
copying files), often even while the program is executing.

Locale::KeyedText gives your applicatio <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3842	3937	
==>1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Cl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	5744	5839	
==>1, '... $Class is the first id');
is($Class->class, $Class, '... $Class refs to itself');
is($Cl <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1763	1872	
==>alue2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1763	1872	
==>alue2>);

Enciphers the plaintext string, returning the ciphertext version.  Most 
algorithms will have a key, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	4796	4949	
==>n number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have di <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	4796	4949	
==>n number of cookie header.
                        # XXX: What should it be if multiple matching
                        #      Set-Cookie headers have di <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5375	5479	
==>($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(22 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5375	5479	
==>($num < 2048) { $dec2hex(192+$num/64)~$dec2hex(128+$num%64); }
        elsif ($num < 65536) { $dec2hex(22 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6748	6863	
==>6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.cl <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6748	6863	
==>6::Value::List) ?? .Perl6::Value::List::reverse !! $_
        }
    );
}

method to_list () { 
    my $ret = self.cl <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8668	8786	
==>e (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parse <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8668	8786	
==>e (Code $code) {
    $.Parser.new(parse => sub ($match, &continue) {
        my $parser = $code($match);
        $parse <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	21297	21389	
==>ead2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	21297	21389	
==>ead2 C<$botE<lt>add_handlerE<gt>("JOIN", -E<gt> $event {...})>

=head2 C<$botE<lt>add_handler <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	34	135	
==>se::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	34	135	
==>se::Rule::Strategy;
does Parse::Rule::Strategy;   # we use combinators from a strategy

our role Pos { <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1241	1337	
==>ge supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previo <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1241	1337	
==>ge supports 'a'..Inf
* New lazy array methods: splat(), elems(), uniq(), end(), 
  next(), previo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7684	7829	
==>ing);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_unio <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11161	11306	
==>ing);
    }

    my Relation $r1 = $?SELF;

    for @others -> $r2 {
        $r1 = $r1!_exclusion( $r2 );
    }

    return $r1;
}

&disjoint_unio <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7600	7711	
==>e)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7600	7711	
==>e)}<channels>;
    }
  }];

  # Somebody was killed. Update %channels and %users accordingly.
  %handler<KILL> = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11146	11329	
==>::Perl6::ws_star,\n" .
                Runtime::Perl5::RuleOps::emit_rule( $rule ) .
                "    );\n" .
    
                #"    my \$body_ast = \n" .
                #Data <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	912	1029	
==>match the root of the path
        # then we have failed already and so return
        return unless $func($current_tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	912	1029	
==>match the root of the path
        # then we have failed already and so return
        return unless $func($current_tr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8255	8378	
==>rameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8255	8378	
==>rameter( $self, $span );
    my @union = $span0.union( $span1 );
    
    # XXX this should work
    # my @union = $self.spa <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	924	1046	
==>ly scalars are supported: $key: $val\n" if
                $val =~ /^[\[{]/;
            die "Expected separator '---'" unl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16707	16853	
==>>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16986	17132	
==>>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$match <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	3255	3363	
==>}

sub load_extensions {
    my ($self, $path, $top_obj) = @_;
    $path = "$self->{base}/$path";

    unshif <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17507	17622	
==>code = exp."as_pir"(name)
    code = concat $P0, code

    $P0 = compreg "PIR"
    sub = $P0(code)
    if has_name = <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	3671	3875	
==>oncat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3918	4122	
==>oncat>) 
    [
        \| $<q2> := (<rule>) 

        { return { alt => [ 
                $_[0]{q1}(), 
                $_[0]{q2}(),
            ] ,} 
        }
    
    ]?
            
    { return $_[0] <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	151	255	
==>ler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type cla <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	151	255	
==>ler::PIL::Util;

role Perl::Compiler::PIL::PIL {
    method vtype () {...}
}

=kwid

== PIL

The type cla <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3383	3490	
==>r my $meth (qw[registered_alternatives_file available_file]) {
                    system( qw[touch], $obj-> <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9747	9831	
==>p5_charset_range_x(_) --> p5_charset_item(class_neg(_)), {!, fail}.
p5_charset_range_ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	644	778	
==>{
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	644	778	
==>{
        $pre_size = $self.size;
        $!members = any($!members, @items);
    } else {
        $!members = any(@items);
    }
    r <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2511	2639	
==>.keys;
        dbg "# pilGlob:    "; my $global = traverse_ast ( %pad<"pilGlob"> );
        dbg "# pilMain:    "; my $main =   tr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	176	281	
==>at string, and it provides the fundamental operations on strings as
combinators.

    $.text     - The str <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	176	281	
==>at string, and it provides the fundamental operations on strings as
combinators.

    $.text     - The str <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7681	7813	
==>tch->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7681	7813	
==>tch->{match}   = $match ;  # XXX - workaround

        # print "Capturing ", Dumper($_[2]);

        return $_[3] = $new_match;
    } <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1229	1375	
==>y ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key  <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1229	1375	
==>y ∘ &int)(10/3);               # 3
  { $_ % 2 == 0 } `grep` [1,2,3,4];  # [2,4]
  { $_ * 2 } `map` [1,2,3];          # [2,4,6]
  my $pair = key  <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34362	34453	
==>C<\W>), alpha, ascii, cntrl, digit (C<\d>, C<\D>), graph, lower,
print, punct, space (C<\s>, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5686	5816	
==>ment;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5686	5816	
==>ment;
        $statement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[', <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5789	5879	
==>cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ing <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5789	5879	
==>cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ing <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	453	581	
==>orial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it' <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	453	581	
==>orial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Perl 6?  It's neither, it' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	0	117	
==>use v6;

module File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	0	117	
==>use v6;

module File::Spec::Win32-0.0.1;

sub curdir        returns Str  is export { '.'   }
sub updir         returns <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5765	5872	
==>on handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5765	5872	
==>on handle we will work with;
    # this does not talk to the underlying dbms.
    my Rosetta::Interface::Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2880	3058	
==>Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3127	3305	
==>Pugs::Grammar::Rule::rule_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       | <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22546	22653	
==>ariable values to be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22546	22653	
==>ariable values to be
interpolated into the user strings; Locale::KeyedText would also handle
this.

A progra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15206	15305	
==>ed.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates/times <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15206	15305	
==>ed.
If the given header did not exist then C<undef> is returned.

Methods that deal with dates/times <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1556	1664	
==>ment_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tai <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1556	1664	
==>ment_rule( $ret );
    die "compile: syntax error in macro at '" . $ast->{tail} . "'\n"
        if $ast->{tai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23164	23264	
==>hat you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23164	23264	
==>hat you can supply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$botE<lt> <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5057	5155	
==>be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.fini <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5057	5155	
==>be called as the last 
step of enciphering.

=item C<finishstr>

    push @output, $cipher_obj.fini <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9783	9884	
==>ight
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9783	9884	
==>ight
    $self.parent().fix_height() unless $self.is_root();
}

method fix_width ($self:) {
    my $fi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6299	6434	
==>, \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6299	6434	
==>, \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub before {
    my $program = $_[0]{rule};
    return 
        "$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6485	6605	
==>), "\\x[$h]");
      }

      return $S->object(exact => join("", map chr(hex), @hex), "\\x[$h]");
    }

    $S->error(0 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32097	32202	
==>rator(@:MRO.reverse);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21041	21184	
==>0;        # But we do not set $canon!
        }
        else {
            push @{$test->{failed}}, $test->{'next'}..$test->{max};
            $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	150	247	
==>encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	150	247	
==>encode_entities_numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	226	334	
==>my $class = $self->compiler_class;

    $class->require or die $UNIVERSAL::require::ERROR;
    $class->new;
} <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4347	4451	
==>p $_->qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0]->on);
  }

  $rx = join "", map($_ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4955	5142	
==>ispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6717	6904	
==>ispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("?%opts"      <hash>  )))))
                  (re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7024	7134	
==>icked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<user <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7024	7134	
==>icked from channel \"$chan\" by \"$event<from>\" (\"$reason\").";
      } else {
        %!channels{$chan}<user <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5352	5501	
==>e( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5574	5723	
==>e( $_, @_[1,2] ) for @$n;
    }
    elsif ( ref( $n ) eq 'HASH' ) 
    {
        #print Dumper($n);
        my ( $k ) = keys %$n;
        my $v = $n-> <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12213	12310	
==>d2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12213	12310	
==>d2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.subset($s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22877	23026	
==>rns opaque 
    ($self: class))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('class'),
    # method body
        met <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	40776	40870	
==>turned Relation::Example is identical to the
invocant.  Another trivial case is where any any s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2864	2981	
==>s 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    m <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2864	2981	
==>s 
    my $rootproperty = $cfg<data>(){''}<rootproperty>; # Syntax below is nicer 

    my $data = $cfg<data>();
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9294	9421	
==>ch[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$boo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9282	9409	
==>ch[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[1]     my \$hash = do {
$_[1]       my \$boo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15153	15254	
==>to the user, or generate a message to be
shown to the user.  Sometimes this is an error message of som <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15153	15254	
==>to the user, or generate a message to be
shown to the user.  Sometimes this is an error message of som <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4119	4226	
==>n used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4119	4226	
==>n used as a boolean, the match object returns whether the match has
succeeded or not.

=head2 @{}

When used <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	712	819	
==>s Num is builtin is primitive {
    my $time = time;
    Perl6::Internals::sleep $seconds;
    my $seconds_s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24957	25055	
==>y or dynamically with other components is making a
combined work based on Rosetta.  Thus, the terms <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24957	25055	
==>y or dynamically with other components is making a
combined work based on Rosetta.  Thus, the terms <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4400	4511	
==>sh;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -ML <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4400	4511	
==>sh;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNOPSIS

  pugs -ML <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5602	5757	
==>matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        } <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5602	5757	
==>matches[1]{abort};
            delete $matches[1]{return};

            # print "concat: ",Dumper( $match2 );

            return $_[3] = $match2;
        } <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	3713	3838	
==>> sub {
            my $status_sub      = $::TestBuilder->FETCH('::Test')->FETCH('::Base')->FETCH('&status');
            my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7921	8067	
==>ecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	6903	6996	
==>ecimal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return $S->force_object(anyof_char <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16842	16947	
==>tice one would
normally just write some components of their application in Rosetta D (as
either named modu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16842	16947	
==>tice one would
normally just write some components of their application in Rosetta D (as
either named modu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	21	122	
==>Invite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	21	122	
==>Invite;

submethod BUILD() {
  ./add_handler("INVITE", -> $event {
    my ($from, $chan) = $event<from <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15767	15875	
==>vid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free softwa <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15767	15875	
==>vid" Poe.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas. All rights reserved.

This library is free softwa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1913	2060	
==>$state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1913	2060	
==>$state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### alternation str <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3940	4051	
==>error($pkg->package . " already exists in this repository");
        return;
    }

    my $inst = JIB::Package- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	196	302	
==>use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module: <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	90	196	
==>use ExtUtils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1068	1174	
==>> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1068	1174	
==>> (Set $one, Set $two) {
#    $one.not_equal($two);
#}

# what will be used for stringify?
method prefix: <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4090	4221	
==>re are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4090	4221	
==>re are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($index < $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13582	13715	
==>return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13582	13715	
==>return $source;
}

sub pmc_unfold_blocks {
    my ($class, $source) = @_;

    $source =~ s/
        (
            ^__DATA__\n[0-9a-fA <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1227	1332	
==>but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace for t <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1227	1332	
==>but it
 # defaults to be the same as the content, modulo whatever we end up
 # doing with whitespace for t <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6908	7034	
==>maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7372	7498	
==>maybe, _parse_depends( $$entry, $index, $avail );
    
            ### specific version
            } elsif ( UNIVERSAL::isa( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13360	13498	
==>substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13354	13492	
==>substr( $cmd, 1, -1 );
        return call_constant( $cmd, $_[1] );
    }
    if ( $prefix eq q(") ) {   # interpolated literal "
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4340	4491	
==>ndef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4340	4491	
==>ndef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @list.shift },
                    cend <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9695	9807	
==>ray = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %ha <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9695	9807	
==>ray = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
                push @array, %hash if %ha <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16819	16911	
==>own executable, in practice one would
normally just write some components of their applicatio <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16819	16911	
==>own executable, in practice one would
normally just write some components of their applicatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7463	7583	
==>(!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7463	7583	
==>(!$size) { return "xYzZY"; }
    
    my $b;
    # XXX use MIME::Base64::encode
    #$b = MIME::Base64::encode([~] (1..($ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4447	4567	
==>core}}{$category->($_)} }, $_ for @smokes;

  foreach my $runcore (keys %runcores) {
    foreach my $cat   (keys %{ $runc <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3815	3916	
==>>

The wait status of the test.

=item B<Total>

Total number of tests expected to run.

=item B<Fail> <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	1495	1605	
==>tFailed to created '$builddir/$archive' from '$srcdir'\n"
        ;

    chdir $Cwd or die "Could not chdir bac <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33357	33456	
==>en from the I<front> of the
walking stack, so we add them in the order they are to be encountered
wi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8030	8198	
==>elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => cor <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8030	8198	
==>elems },
        )
    }

    method pairs ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => cor <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19757	19859	
==>ata type is immutable.  The value of
a Relation object is determined when it is constructed, and the ob <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24309	24411	
==>ata type is immutable.  The value of
a Relation object is determined when it is constructed, and the ob <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7873	7982	
==>nfinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7873	7982	
==>nfinite;

  my $set = Set::Infinite.new( spans => $span );

= DESCRIPTION

This class represents an ordered se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9313	9436	
==>parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9313	9436	
==>parameter( $self, $span );
    return $self.new( span => $span1 ) if $span1.is_empty;
    return $self.new( span => $span0 ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	4435	4545	
==>o the target.

Returns true on success, false on failure.

=cut

sub _move {
    my $self = shift;
    my %hash <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder.pm	689	803	
==>t.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) i <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder.pm	689	803	
==>t.new()
)
{}

submethod DESTROY
{
    my $footer = $.testplan.footer( +@!results );
    $.output.write( $footer ) i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3339	3482	
==>st>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4188	4331	
==>st>' );
    my $cmd = "    print";
    $cmd =    "    warn" if $op eq 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	1158	1275	
==>) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2032	2149	
==>) . " }" : "";
        $body =~ s/\\\\/\\\\\\\\/g;  # duplicate every single backslashes
        return "*" . $<rule_n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21730	21829	
==>the same key code with a new user message in
one of their own resource files.  At some appropriate p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21730	21829	
==>the same key code with a new user message in
one of their own resource files.  At some appropriate p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Circumfix.pm	450	597	
==>x', 
        assoc => 'non',
        name => 'circumfix:<' . $opt{name} . ' ' . $opt{name2} . '>',
    );
    $self->SUPER::add_rule( 
        $opt{ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1535	1669	
==>ES}, @_),
    );
}

sub realclean_files {
    my $self  = shift;
    my $realclean = $self->makemaker_args->{realclean} ||= {};
    %$r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	701	820	
==>::Perl6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "us <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	10521	10621	
==>(" ", @{$info->{'fields'}});

    my $code = "";
    $code .= "sub ${package_name}::${name}::${method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2674	2772	
==>Parses the given string, seperating it into 'name' and 'value' pairs.  This
method should be called <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2674	2772	
==>Parses the given string, seperating it into 'name' and 'value' pairs.  This
method should be called <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3740	3859	
==>ule, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3740	3859	
==>ule, $output) = @_;
    $class->pmc_can_output($module)
      or return 0;
    my $pmc = $module . 'c';

    # If we can <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2172	2354	
==>e[0].ref eq 'Array' {
        #dbg "# [";
        my @ret;
        push @ret, traverse_ast( $_ ) for $tree;
        #dbg "# ]";
        return ~@ret;
    }

    $depth++;
    dbg "# $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18839	19032	
==>s'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19118	19311	
==>s'}
           ,
         )
       ,
         ruleop::constant( "\)" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
         ruleop::cap <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6868	6959	
==>:Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6868	6959	
==>:Unix module which is currently
maintained by Ken Williams <KWILLIAMS@cpan.org>, and is writ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2032	2136	
==>ickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my metho <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2032	2136	
==>ickgen = Permutation.new($.nick);
    $!queue = new Queue: floodcontrol => $floodcontrol;
  }

  my metho <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	717	825	
==>tiple cookies)
    print CookiesHeader();
    if ($location.defined) {
        $header ~= "Location: " ~ $loc <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10796	10889	
==>pe returns Str>

=item B<content_length returns Str>

=back

B<The following informational fun <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10796	10889	
==>pe returns Str>

=item B<content_length returns Str>

=back

B<The following informational fun <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7918	8023	
==>d is being called, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data st <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7918	8023	
==>d is being called, the Secret 
Police are breaking down the door and Our Heroes need any sensitive data st <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6018	6212	
==>hat satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our li <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6482	6676	
==>hat satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $index, $avail ) } 
                    ) {

                        ### add to our li <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	166	281	
==>numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => ' <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	166	281	
==>numeric);

my %entity_to_char = (
 # Some normal chars that have special meaning in SGML context
    "amp"      => ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	658	755	
==>slashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->cod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	658	755	
==>slashes
	return "*" . $<rule_name>() . " = Pugs::Compiler::Rule->compile(q(" .
	$body . "))->cod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9981	10093	
==>ny %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_var <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9981	10093	
==>ny %msg_vars!) returns Str {

    $?SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_var <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33892	33992	
==>guage they prefer to communicate in, and what their backup choices are,
in order, if preferred ones a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33892	33992	
==>guage they prefer to communicate in, and what their backup choices are,
in order, if preferred ones a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2098	2239	
==>$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2098	2239	
==>$state"
            $match = 
                $nodes->[ $state->[0] ]->( $tail, $state->[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16978	17136	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	17257	17415	
==>= 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "macro" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16922	17022	
==>ribute (that
attribute defaults to empty if the corresponding argument is undefined).

Some sample us <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16922	17022	
==>ribute (that
attribute defaults to empty if the corresponding argument is undefined).

Some sample us <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10302	10473	
==>odule') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10302	10473	
==>odule') and
                $klass->pmc_is_compiler_module) {
                push @blocks, [$text, {%$context}, [@classes]];
                $text = '';
                @c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4774	4893	
==>l machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TOD <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4774	4893	
==>l machine.
    my Rosetta::Interface::DBMS $dbms .= new(
        engine_name => 'Rosetta::Engine::Example' );

    # TOD <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7549	7654	
==>ed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.key <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7549	7654	
==>ed by \"$event<from>\" (\"$reason\").";
      }

      my @chans = %users{normalize $killee}<channels>.key <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6372	6679	
==>cy, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                } <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6836	7143	
==>cy, so try the next                        
                    } elsif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21571	21666	
==>ead2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21571	21666	
==>ead2 C<$bot.topic("#chan")>, C<$bot.topic(channel =E<gt> "#chan",
topic =E<gt> "new topic")>

Re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1348	1465	
==>ule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1348	1465	
==>ule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

This module p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10761	10904	
==>)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10761	10904	
==>)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " while trying to turn range: \ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16956	17055	
==>her hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
bot <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16956	17055	
==>her hand, Perl 6 can run
MyModule.pm s a Perl 6 module just fine, as C<use v6-pugs> and C<no v6>
bot <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19082	19178	
==>pplications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation lay <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19082	19178	
==>pplications can be migrated to use the Rosetta DBMS with little
trouble.  Likewise, emulation lay <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3619	3848	
==>atch, 1 ),
                        capture => { stmt => '{' },
                    } );
                    #print "Match: ",Dumper $m->();
                    last;
                }
            }

            $m = Pugs::Grammar: <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	722	825	
==>"  %s:%s %s\n", BOLD . BLUE, RESET, $_ for map { (/^\s*(.*)$/g)[0] } split "\n", $args{help};
      prin <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21068	21184	
==>es in a Relation are of the same
degree, and the attribute names of each tuple are all the same as those of
all the o <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25620	25736	
==>es in a Relation are of the same
degree, and the attribute names of each tuple are all the same as those of
all the o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2552	2690	
==>,
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2552	2690	
==>,
            ''  => '',
        }->{$quantifier};
    die "quantifier not implemented: $quantifier" 
        unless defined $sub;
    retu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13495	13592	
==>typ" if !defined $handler;
    $handler->($x);
}

my $as_array_complain = sub { Carp::carp("p6_as_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4042	4158	
==>nt $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4042	4158	
==>nt $match->[0][0];   # "a"
    }

=head1 OVERLOAD INTERFACE

=head2 bool

When used as a boolean, the match object re <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3708	3862	
==>is rw
{
    my $off = +$offset;
    my $len = $length;
    my $size = +@array;

    $off += $size if $off < 0;
    if $off > $size {
        warn "splice() <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	256	367	
==>0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method str <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	256	367	
==>0.01
{
    has Recurrence $.recurrence;
    has $.span;

submethod BUILD ( $.span, $.recurrence ) {}

method str <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	540	689	
==>ed in rvalue contexxt
                my $self = shift;
                @{$self->get_value('@:slots')}
            },

            'array_store' => su <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17888	18007	
==>thods ) {
        return _ok( 0, _where(), "$class->can(...)" );
    }

    my @nok = ();
    foreach my $method (@metho <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8824	8930	
==>ent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bottom: 10px; }

    p, dl, pre, ta <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17449	17558	
==>n
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17449	17558	
==>n
  $bot.connect();
  $bot.login();

  # Enter main event loop
  $bot.run();

=head1 DESCRIPTION

C<Net::IRC:: <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1340	1465	
==>:Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.p <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1340	1465	
==>:Find.new;
    $f.dirs = ($path);
    $f.wanted_file = sub ( $file, $path, $pathfile ) {
        return 1 if $file ~~ m:P5/\.p <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	610	755	
==>aths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = sh <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	511	656	
==>aths {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13672	13771	
==>longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entit <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13672	13771	
==>longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar";
   _decode_entit <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1928	2073	
==>e metadata
        ### location of .jib is in same dir as $meta
        ### XXX add other found data to the metadata as well
        my $archive = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	30	125	
==>l::Makefile;

use strict 'vars';
use Module::Install::Base;
use ExtUtils::MakeMaker ();

use var <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7064	7190	
==>index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7064	7190	
==>index) {
        @v[$boundary_index] = $boundary;
    } else {
        @v.push(boundary => "boundary");
    }
    
    $content <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	13210	13334	
==>. ${$_[0]} },
      lvalue => sub { p6_as_str(${$_[0]}) },
      perl5_object => sub { "". $_[0] },
      perl6_object => sub <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3810	3935	
==>start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3810	3935	
==>start,
                 end_is_open =>   $open_end );
}

method intersection ($self: $span ) {

    return $span.intersection( <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6220	6314	
==>od::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("pa <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6220	6314	
==>od::Event::Handler::HTML;
  
  parse("path/to/file.pod", pod2html($str_buffer));
  
  parse("pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	674	794	
==>OAD {
		our $AUTOLOAD =~ /([^:]+)$/;
		my $method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			* <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4227	4325	
==>arameters for block size and so on; see the cipher module's documentation for 
details.  The C<mode <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4227	4325	
==>arameters for block size and so on; see the cipher module's documentation for 
details.  The C<mode <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7165	7264	
==>share a common API, which permits the intercommunication 

of data about: backtracking, aborting, ca <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6920	7018	
==>share a common API, which permits the intercommunication 
of data about: backtracking, aborting, ca <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2160	2325	
==>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2160	2325	
==>*     # require type
#        | <zone> <varlet>? <trait>*             # or zone
#        | <varlet> <trait>*                     # or varlet
#        | \[ <siglet> \] <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	21	132	
==>Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	21	132	
==>Hash;

sub set (*@contents) returns Set::Hash is export {
    my $set = Set::Hash.new;
    $set.insert(@contents <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	737	930	
==>are_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# cate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	737	930	
==>are_statement>() }
        ] | 
        [ <statement> 
            [ <before  \;  |  \}  >  |  
              $ 
            ] 
            { return $<statement>() }
        ]
) )->code;

# cate <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	18342	18546	
==>ch ($h->content_list) {
                      $i++;
                      next if ref $_;
                      next unless /(.*)($regex)(.*)/;
                      
                      $h->splice_conte <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7626	7731	
==>malize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7626	7731	
==>malize $killee}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $killee) for @chans;
      %! <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4646	4756	
==>deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4505	4615	
==>deps( 'YAML', 0 );

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3482	3681	
==>_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::Ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3482	3681	
==>_KEY_EMP_STR',
            { 'METH' => $meth, 'ARG' => $arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::Ke <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	147	256	
==>ame;
use IPC::Open3 'open3';
use Carp;

sub WritePugs {
    my $self = shift;

    my $install_version = shift <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	676	781	
==>b _bind_params {
    my ($self, $args) = @_;
    $self->SUPER::_bind_params($args);
    my $inv = $args->f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	15628	15776	
==>a} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	21799	21947	
==>a} }), ")";
  }

  sub data {
    my $self = shift;
    if (@_) {
      my $how = shift;
      if ($how eq '=') { $self->{data} = \@_ }
      elsif ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2284	2428	
==>l = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2272	2416	
==>l = 0 unless\n" .
        emit_rule( $ast, ' ' ) . ";\n" .
        "  return \$m;\n" .
        "}\n";
}

sub emit_rule {
    my $n = $_[0];
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8618	8709	
==>mmar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @te <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2443	2534	
==>mmar::Perl6->block(@_) };
push @statements, sub { Grammar::Perl6->macro_decl(@_) };
push @te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	544	659	
==>state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	544	659	
==>state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if($msg ~~ rx:P5/ $/) {
    print "$msg";
    $is <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5432	5535	
==>ps;

		$self->enter_scope;
		while(@children) {
			my $sub = shift @children;
			if ($sub->struct_equiv- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15297	15392	
==>ke or implement it, and so an
application written to it should behave identically no matter whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15297	15392	
==>ke or implement it, and so an
application written to it should behave identically no matter whic <==
2	/Users/nnunley/pugs/util/combine_tests.pl	313	416	
==>h the earlier one's
# and returns the modified reference.
# Note: no copy is made!
#
# Adds a more_event <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14831	14932	
==>ion.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14889	14990	
==>ion.

- is_deeply

Once nested data structures are implemented, we will need an easy way
to test them. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	22565	22662	
==>e
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program generat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	22565	22662	
==>e
interpolated into the user strings; Locale::KeyedText would also handle
this.

A program generat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2833	2934	
==>ently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2833	2934	
==>ently we only support Win32 and (basic) Unix since this is what
GHC and Pugs currently run on (yeah no <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	17483	17573	
==>ed automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This hea <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	17483	17573	
==>ed automatically from the E<lt>TITLE>...E<lt>/TITLE> element
of HTML documents.  I<This hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12904	13034	
==>colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word comm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12904	13034	
==>colon($rest),
      };

      if(%handler{$code}) {
        $_($event) for *%handler{$code};
      }
    },

    # Handle word comm <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	706	831	
==>gnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.creat <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	706	831	
==>gnostics.join( "\n" );
        @!diagnostics   = ();
        return $diagnostics;
    }
}

my $Test      = Test::Builder.creat <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2401	2720	
==>for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2401	2720	
==>for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} {
                        my $verbatim = "$0\n";
                        my <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3091	3205	
==>ringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.m <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3091	3205	
==>ringify if $DEBUG;
    return $set;
}
method intersection($self: Set $other) returns Set {
    my $rv = set($self.m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2222	2319	
==>class =~ /^Blondie::(\w+)$/ and Blondie::Nodes->can($1)){
		return $1;
	} else {
		return $class . <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21378	21483	
==>RS

Audrey Tang <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21378	21483	
==>RS

Audrey Tang <autrijus@autrijus.org>

Ingy döt Net <ingy@cpan.org>

=head1 COPYRIGHT

Copyright (c) 20 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6877	7024	
==>lf = shift;
    if (ref $self->{data}) {
      $self->{data}->neg = shift if @_;
      $self->{data}->neg;
    }
    else {
      $self->{neg} = shi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	250	362	
==>gs = 0;
my @tests = `cat re_tests`;
sub test {
    my($f)=@_;
    print "1..",0+@tests,"\n";
    for my $line (@t <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	14121	14224	
==>ittle (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	14121	14224	
==>ittle (misc. ugly hacks to make things work for now)

=head1 SEE ALSO

L<Relation>.

You might want to r <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13988	14131	
==>>shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    # the body is a code ref
    $self->enter_scope;
    my @pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1360	1498	
==>term '?'
        { $_[0]->{out}= { optional => 1, %{$_[1]} } }
        
    # XXX - infinite loop
    # |   signature_term attr
    #     { <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2705	2806	
==>lags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2705	2806	
==>lags) = assert_ghc();

    $postamble = <<_;
pure_all :: $module_name.o $module_name.hi
$cp_to_install <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	522	618	
==>nt transformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	522	618	
==>nt transformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2679	2789	
==>y
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2863	2973	
==>y
 <subrule('param')>  -- constant parameters only

 %hash

 <@var>             -- special-cased for array-of-r <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10734	10874	
==>tity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10734	10874	
==>tity{\$0} || num_entity(\$0)}/; return $string}";
        #    %subst{$unsafe_chars} = eval $code;
        #    die( 
        #        $! ~ " <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	5265	5389	
==>duce  safe   (Array: Code)\
\\n   Any       pre     List::splice  safe   (rw!Array, ?Int=0)\
\\n   Any       pre     List::sp <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	34	142	
==>s Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array {...}

# Things w <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	34	142	
==>s Cipher;

# Things they need to implement.
method generate_keystream(Int $n) returns Array {...}

# Things w <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	746	868	
==>g;
    my $dir  = $self->dir   or return;

    return $dir->subdir( $self->config->_control )->subdir( $pkg );
}


=head2 $ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	990	1086	
==>:Type;
	use base qw/Blondie::Map/;
	
	package Blondie::TypeSafe::Type::Bottom;

	use base qw/Blon <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8635	8757	
==>nteger numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8635	8757	
==>nteger numbers
    $universe = Recurrence.new( 
        closure_next =>     sub { $_ + 1 },
        closure_previous => sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1717	1835	
==>turn unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1910	2028	
==>turn unless $match;
        my $capture_block = sub { return { perl5_regex =>  match::get( $_[0], '$()' )  ,} }       , <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7535	7663	
==>infix',
  );
  $rxinfix->add_op( 
    name => '|',
    assoc => 'left',
    fixity => 'infix',
  );

Pseudo-code for usag <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2092	2219	
==>lete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      o <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2092	2219	
==>lete $args{inline};
    }
    return %args;
}

sub external {
    my $module_path = shift;
    open MODULE, $module_path
      o <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17558	17652	
==>Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17558	17652	
==>Interface.  A
Rosetta::Interface::DBMS object represents a single active Rosetta virtual
machin <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15936	16048	
==>thod enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15936	16048	
==>thod enqueue(Code $code) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!qu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9692	9799	
==>hannels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel)} } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9692	9799	
==>hannels      => { $chans.members },
    channel       => -> Str $channel { %channels{~normalize($channel)} } <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18607	18726	
==>LAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18607	18726	
==>LAIN)S
    DATA

All of these blocks begin and end on line boundaries. They are described
as follows:

    PREAMBLE - Li <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24497	24595	
==>n as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29049	29147	
==>n as a Hash ref of 2
elements, which correspond to the 2 named parameters of C<new>.

=item C<is_mu <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5129	5327	
==>');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtim <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5117	5315	
==>');
            #print "Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtim <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	8580	8779	
==>a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9044	9243	
==>a->{version } } @found;

                    ### store the best match
                    push @maybe, $sorted[0];
                }
    
            } else {
                die "Illegal token: $deps <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7777	7895	
==>= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = S <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7777	7895	
==>= NAME

Set::Infinite - An object representing an ordered set of spans

= SYNOPSIS

  use Set::Infinite;

  my $set = S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2906	3019	
==>, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3046	3159	
==>, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} disappeared - in t/08-hash.t <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	313	434	
==>les {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	214	335	
==>les {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => join ' ', map { substr($_, 0, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16908	17006	
==>ation in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16908	17006	
==>ation in Rosetta D (as
either named modules or anonymous routines) and write the rest of the
applic <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2042	2147	
==>urns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2042	2147	
==>urns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year (Int $year) r <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23094	23215	
==>EC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19515	19636	
==>EC, 2, substr(${&Rx}, &RxPOS - 2));
  });

  # logical
  $self->add_handler('(?p{' => sub {
    my ($S) = @_;
    $S->warn <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1180	1297	
==>uilddir first, THEN copy later if all goes well
        {   print "Writing meta data...\n";
            system( qq[mkd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5209	5311	
==>solute value
# otherwise $range is a fractional error.
# Here $range must be numeric, >= 0
# Non numeri <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1191	1283	
==>le with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1191	1283	
==>le with B<Filter::Simple>'s API.

Additionally, C<no Filter::Simple::Compile> does the same t <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14797	14927	
==>$self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connecte <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14797	14927	
==>$self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $connecte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3437	3535	
==>ible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are dele <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3437	3535	
==>ible as C<$r.query>, where
C<$r> is the HTTP::Request::CGI object).  The following methods are dele <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3840	3966	
==>ght sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3840	3966	
==>ght sign
    "reg"      => '®',  # registered sign
    "nbsp"     => "\240", # non breaking space

 # Additional ISO-8859/1 en <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5173	5275	
==>urns a boolean value
of success or failure

=item data

The C<data> method returns a hash reference rep <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5173	5275	
==>urns a boolean value
of success or failure

=item data

The C<data> method returns a hash reference rep <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1112	1309	
==>e.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1112	1309	
==>e.
    has Any %!msg_vars;
        # Hash(Str) of Any
        # Named variables for messages, if any, go here.

###########################################################################

submethod <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1732	1833	
==>(Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $go <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1790	1891	
==>(Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := $go <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3829	4023	
==>'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree. <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3829	4023	
==>'));
                $ng.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	4474	4587	
==>ml {
    my $pil_tree = $_[0]->as_pil_tree;
    eval { require YAML; }; die $@ if $@;
    my $dump = YAML::Dump($p <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23619	23746	
==>body)=@_;
    # the caller is responsible for providing any value capture needed, in $body.
    '{ my $__flag;
       try { '.$b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1763	1881	
==>$t=['',''];
        return($$t[0],$$t[1]);
    };


    my($p)=new Parse::Yapp(input => $g);
    $p=$p->Output(cl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8300	8407	
==>{
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8288	8395	
==>{
$_[1]         \$match[\$index{$rnd}] = bless \\\$hash, 'Pugs::Runtime::Match::Ratchet';
$_[1]       }
$_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	11	140	
==>le benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pug <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	11	140	
==>le benchmark
# - fglock
#

use strict;
use warnings;
use Data::Dumper;

use Benchmark;
use Pugs::Compiler::Rule;
use Pug <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25726	25823	
==>link
Rosetta with non-free software components.

Any versions of Rosetta that you modify and distr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25726	25823	
==>link
Rosetta with non-free software components.

Any versions of Rosetta that you modify and distr <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17216	17325	
==>()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17216	17325	
==>()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end of the span <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1077	1189	
==>atchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1077	1189	
==>atchet => 1 } )->code;"
    }
))->code;

# TODO - :sigspace not implemented yet
*rule = Pugs::Compiler::Rule <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4982	5102	
==>on {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8459	8579	
==>on {

    if ($attrs.size() == 0) {
        return $?SELF;
    }

    die "Some keys of $attrs! duplicate attribute names <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2610	2759	
==>s $_[0];

    return { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2510	2654	
==>s $_[0];
    return { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2276	2406	
==>perl6_type = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => " <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19924	20017	
==>,$hexstr) }
 multi prefix:<:8> ( Str $octstr = CALLER::<$_> --> Num )
{ Pugs::Internals::strin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8888	8998	
==>{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8876	8986	
==>{ident};
    my $program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	34687	34858	
==><alnum>, I<digit>,
I<space>, or I<prop> object

Neg: 1 if negated

=head2 anyof_close

Family: close

Types: anyof_close (C<]> when in C<[...>)

Omitted

=head2 prop

Famil <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12253	12376	
==>lti sub open3 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $pid) =
            Pugs::In <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28052	28151	
==>ute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns R <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32604	32703	
==>ute names of the invocant Relation.

=item C<wrap ( Mapping(Str) of Set of Str $mapping! ) returns R <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/L/en.pm	743	844	
==>oding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/L/en.pm	743	844	
==>oding utf8

=head1 NAME

Rosetta::L::en -
Localization of Rosetta for English

=head1 VERSION

This do <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28453	28557	
==>s method is also defined as the implicit handler when
coercing this object to a string.

=back

=head2 Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28453	28557	
==>s method is also defined as the implicit handler when
coercing this object to a string.

=back

=head2 Th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	325	455	
==>s @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	325	455	
==>s @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $name, Str *@val <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2645	2784	
==>= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the conf <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2645	2784	
==>= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new();

    # Open the conf <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31429	31535	
==>o::L::" and in the second it is "L::Foo".

A library could be distributed with a Template module set that i <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31429	31535	
==>o::L::" and in the second it is "L::Foo".

A library could be distributed with a Template module set that i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2340	2448	
==>protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2340	2448	
==>protocol;
        $status_line = "$proto $status_line" if $proto.defined;
        $status_line ~= " ($status_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11544	11655	
==>RROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11544	11655	
==>RROR ?:?(.*)$/ {
      debug "Error in connection (\"$0\").";
      ./disconnect;
    } elsif $line ~~ rx:P5/^PI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8297	8394	
==>::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2122	2219	
==>::Perl6->sub_call(@_) };
push @statements, sub { Grammar::Perl6->_push(@_) };
push @statements, su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3424	3518	
==>gs = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-mis <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3424	3518	
==>gs = "-H0 -L. -Lsrc -Lsrc/pcre -I. -Isrc -Isrc/pcre -i.  -isrc -isrc/pcre -static -fno-warn-mis <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9306	9412	
==>not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9306	9412	
==>not ("open").

- `size()`

Return the "size" of the set.

For example: if `start` and `end` are times, then <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	703	838	
==>i
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	703	838	
==>i
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB_MYINV_RES_INF' )
            if $number == 0;
        re <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10158	10254	
==>containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10158	10254	
==>containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also r <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6072	6190	
==>bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6072	6190	
==>bool {
    return $x == $self.current( $x );
}

method closest ($self: $x ) {
    my $n = $self.next( $x );
    my $p = <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7940	8067	
==>uce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7940	8067	
==>uce
# the problem.
#
# XXX This routine must do some kind of reduction each pass, or infinite loop
# will ensue. It is not yet c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2975	3071	
==>Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3033	3129	
==>Code &compare_func, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6265	6368	
==>handle);

Like C<analyze>, but it reads from the given filehandle.

=cut

sub analyze_fh {
    my($self, <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3440	3541	
==>'%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3440	3541	
==>'%32N*',
\$F=readline(*F)) != 0x$sum) { use Filter::Util::Call; my \$f = \$F;
filter_add(sub { filter_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2296	2396	
==>assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2296	2396	
==>assoc => 'left',
    precedence => 'tighter', other => '[',
} );

*term = Pugs::Compiler::Rule->compi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8904	9028	
==>$program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8892	9016	
==>$program = $_[0]{rule};
    my $flat    = $_[0]{flat};
    $program = emit_rule( $program, $_[1].'        ' )
        if ref( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1287	1417	
==>t is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!qu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1287	1417	
==>t is rw;
  has Bool  $.debug_raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!qu <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	230	343	
==>returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	230	343	
==>returns Str  is export { '/dev/null' }
sub case_tolerant returns Bool is export { 0           }

## Splitting

sub <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	496	645	
==>= '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	496	645	
==>= '';
    my $directory = '';
    my $file      = '';
    if ($nofile) {
        $directory = $path;
    }
    else {
        $path ~~ rx:perl5{^((?:. <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3449	3563	
==>er::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3449	3563	
==>er::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13985	14076	
==>ic values from their children
comb: generic_in($.fun) = { generic_in($$) }
comb: generic_in( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2591	2707	
==>e_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3546	3659	
==>e_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object(digit => 0);
  });

  # gpos ( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	576	680	
==>xpression
		.( splice(@values, 0, $expression.arity) );
	}
    }
}


# copied from S29draft.pod 8651.
mul <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	318	413	
==>FIX => 5;
use constant PGE_OPTABLE_TERNARY => 6;
use constant PGE_OPTABLE_POSTCIRCUMFIX => 7;
us <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3939	4044	
==>ontents( file => $file );

Returns the contents of a file

=cut

sub _get_file_contents {
    my $self = s <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8014	8153	
==>e(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &contin <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8014	8153	
==>e(match => $obj));
                    });          
    });
}

method mark ($p, Str $name) {
    $.Parser.new(parse => sub ($match, &contin <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24905	25003	
==>ton, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other components is makin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24905	25003	
==>ton, MA  02110-1301, USA.

Linking Rosetta statically or dynamically with other components is makin <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15139	15257	
==>, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string is returned (without changi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15139	15257	
==>, if
called in a void context.  In scalar and array contexts, the encoded or
decoded string is returned (without changi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3104	3221	
==>>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3104	3221	
==>>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but one of its keys is an empty string.],
    'LKT_ARG <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2217	2320	
==>niverse = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2217	2320	
==>niverse = $self unless defined $.universe;
    return $.universe;
}

method equal ($self: $set ) returns <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1108	1208	
==>ions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1108	1208	
==>ions are emulated using iterations.

- `new( closure_next => sub {...}, closure_previous => sub {...} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	19935	20049	
==>d
    .local pmc exp
    .local int padarray
    padarray = pad["isarray"]
    pad["isarray"] = 1
    exp = self[0] <==
2	/Users/nnunley/pugs/examples/network/wiki/wiki.pl	565	653	
==>y $entry_html = $entry;
$entry_html ~~ s:g:perl5/\b([A-Z]\w+[A-Z]\w*)/{ '<a href="?topic= <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	948	1107	
==>ey, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	948	1107	
==>ey, $value) = $pair.split('=');
            
            $key = uri_unescape($key);
            $value = uri_unescape($value);
            
            if (%!pa <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	261	440	
==>]+)$/;
        $_[0]->get($1);
    }

    sub get {
        $_[0]{$_[1]}
    }

    sub fmap {
        my $self = shift;
        my $f = shift;
        my $new = (ref $self)->new(% <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6662	6779	
==>ile::Copy::copy( $orig, $target ) ) {
            error("Failed to copy '$orig' to '$target': $!");
            return <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4022	4123	
==>ar, month => $month, day => $day )`

Returns a date object for the given values.  The month and day de <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4022	4123	
==>ar, month => $month, day => $day )`

Returns a date object for the given values.  The month and day de <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11925	12035	
==>ad of fun->new()
	(my $class) = ((our $AUTOLOAD) =~ /([^:]+) $/x);
	$class->new(@_);
}


# this is the actual i <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	24118	24224	
==>s info from
 * compile to execute that permits the execute phase to run lots faster on
 * simple cases.  Th <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	581	711	
==>inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	581	711	
==>inject($name, $value) {
        if $name eq 'RET' {
            $.parent // die "No parent at this level";
            if defined $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9708	9837	
==>ulated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_pers <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9708	9837	
==>ulated from its row argument.
    # Like: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_pers <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6661	6763	
==>le->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6673	6775	
==>le->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{print <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	203	304	
==>kg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'COD <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	203	304	
==>kg\::ISA"} => 'Module::Compile';
    *{"$pkg\::FILTER"} = \&FILTER;

    ($code and ref($code) eq 'COD <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	2005	2126	
==>------------------------------------
## Classes

sub Object { 
    { 
        id    => sub { 0+(shift) },
        class => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	107	223	
==>Dumper;
$Data::Dumper::Indent = 1;

sub _mangle_ident {
    my $s = shift;
    $s =~ s/ ([^a-zA-Z0-9_:]) / '_'.o <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4569	4693	
==>_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4627	4751	
==>_ok (Code &code, Str $desc?, :$todo, :$depends) returns Bool is export {
    try { code() };
    if ($!) {
        Test::proc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6629	6762	
==>ch my $pkg (keys %used) {
	next if $created{$pkg};
	$code .= "package $pkg;\n";
    }
    #print $code;
    $code;
}
BEGIN{ eval(gen_c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13703	13852	
==>o any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13703	13852	
==>o any of the below:

   ( $set1 ∪ $set2 ) ∖ ( $set1 ∩ $set2 )
   ( $set1 ∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3941	4038	
==>:count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::e <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3941	4038	
==>:count ::= &Set::size;
our &Set::has   ::= &Set::includes;

# Hash/Array compatibility
our &Set::e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34740	34839	
==>as the invocant and whose body contains all of the tuples that
are in the invocant Relation and that <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39290	39389	
==>as the invocant and whose body contains all of the tuples that
are in the invocant Relation and that <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21299	21415	
==>ses, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21299	21415	
==>ses, each of which takes a different
SQL or pseudo-SQL dialect.  An application written to it should easily port
to a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21235	21331	
==>ionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21235	21331	
==>ionally using the specified key).

=head2 C<$bot.part("#chan")>

Parts a channel.

=head2 C<$bot. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14623	14751	
==>d, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14623	14751	
==>d, and we disconnect.
        if(time() - $last_traffic >= $live_timeout) {
          debug "No traffic seen for {time() - $last_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2707	2814	
==>nless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    ret <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2707	2814	
==>nless $tag ~~ m:P5/^(?:CONTENT_(?:LENGTH|TYPE)|COOKIE)$/;
        %*ENV{$tag} = $header.value;
    }
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13576	13686	
==>exactly to the named parameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13576	13686	
==>exactly to the named parameters of
Document.new(); you can produce a direct clone like this:

    my $cloned_do <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	28755	28957	
==>hift;
                          $e->get('$self:')
                            ->set_attr(
                                symbol->new('@:MRO'),
                                $e->get('$self:')->send('_m <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2641	2754	
==>as a new api into the guts of the perl core.  There being no
documentation, one ends up reverse engineering perl s <==
2	/Users/nnunley/pugs/util/package-osx.pl	1061	1172	
==>info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/rea <==
2	/Users/nnunley/pugs/util/package-osx.pl	3371	3482	
==>info
        /usr/local/info/rluserman.info
        /usr/local/info/history.info
        /usr/local/man/man3/rea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21203	21325	
==>any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21203	21325	
==>any of the convenience
methods, does not delete that field.  It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9537	9649	
==>1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9525	9637	
==>1]       \$bool = 0 unless
$program;
$_[1]       { str => \\\$s, from => \\\$from, match => \\\@match, named => \ <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1436	1558	
==>f->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    $self- <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13956	14075	
==>f->new_pad($param->val => $self->shift_param);
}

sub reduce_prim {
    my $self = shift;
    my $prim = shift;

    # t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5974	6080	
==>urn $new_match;

    }

}



=for capture

At runtime, this must return _only_ the capture set inside captu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5786	5887	
==>urn $new_match;
    }
}

=for capture
At runtime, this must return _only_ the capture set inside captu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	626	734	
==>hingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	626	734	
==>hingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

module MyApp::L::Homer {
    sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7110	7290	
==>ch->{bool};

        return { bool => 1,

                 match => 'null',

                 tail => $tail,

               }

    };

};



# experimental!

=for example

    # ad <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6872	7042	
==>ch->{bool};
        return { bool => 1,
                 match => 'null',
                 tail => $tail,
               }
    };
};

# experimental!
=for example
    # ad <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Can.pm	203	307	
==>Utils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Inst <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	97	201	
==>Utils::MakeMaker ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '0.61';
	@ISA     = qw{Module::Inst <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11507	11627	
==>er
  $self->add_handler('.' => sub {
    my ($S) = @_;
    my $family =
      &Rf & $S->FLAG_s ? 'sany' :
      'reg_any' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	3533	3696	
==>luePrimitive);
        } # 5
        my $Result5 = $O.<[[Get]]>('toString');
        if $Result5.isa(JSX::Value::Object) {
            my $Result7 = JSX::with_this( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	623	737	
==>fixity => 'prefix', op1 => \$_[1], exp1 => \$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	668	815	
==>urse_resolve {
    my @deps = @_;    
    
    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1116	1255	
==>urse_resolve {
    my @deps = @_;

    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5672	5786	
==>.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec:: <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5672	5786	
==>.defined;
#     $tmpdir = ._tmpdir(%*ENV{'TMPDIR'}, "/tmp");
#     return $tmpdir;
# }

=kwid

= NAME

File::Spec:: <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12085	12195	
==>ndler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12085	12195	
==>ndler{$code};
    }
  }

  # Handle word commands (e.g. JOIN, INVITE)
  my method handle_command(Str $line, Str <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18513	18617	
==>tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1] <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	19871	19975	
==>tree->[-1]->nparen
      if $self->family eq 'close' and $tree->[-1]->can('nparen');

    if ($tree->[-1] <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15606	15730	
==>know.


  I32 minlen;             /* mininum possible length of $& */

Must be zero.  Otherwise the run core thinks too much. <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3237	3358	
==>.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3237	3358	
==>.say('Hello World!');
    }


    use MyServer;
    my $s = MyServer.new;
    $s.run;
    
=head1 DESCRIPTION

Perl 6 port <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3634	3731	
==>Documentation lacks the actual algorithm description. See links or read
the source (there are abou <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3634	3731	
==>Documentation lacks the actual algorithm description. See links or read
the source (there are abou <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3738	3836	
==>$set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3738	3836	
==>$set.closure_next, $set.closure_previous ),
        closure_previous =>    $self._get_intersection( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4886	5023	
==>method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4886	5023	
==>method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	456	727	
==>t;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when ' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	456	727	
==>t;
                    $buffer ~= "<UL>\n";
                }
                when 'item' {
                    $buffer ~= "<LI>";
                }
                when 'paragraph' {
                    $buffer ~= "<P>" 
                }          
                when ' <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	1181	1276	
==>.DontDelete;
}

class JSX::Value;
has $.property_value;
has $.property_attributes;
# 8.6.2.1
met <==
2	/Users/nnunley/pugs/util/package-osx.pl	6090	6187	
==>nctions.3pm
        /usr/local/man/man3/Perl6::Overview::Object.3
        /usr/local/man/man3/Perl <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	160	255	
==>ime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime:: <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	160	255	
==>ime::Recurrence - An object representing a datetime recurrence set

= SYNOPSIS

  use DateTime:: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	657	762	
==>ses assignment.  

SEE ALSO:

  http://okmij.org/ftp/Scheme/#pure-oo

=cut

# new() creates instances of c <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4427	4523	
==>ny comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support OO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4427	4523	
==>ny comments are discarded.

=head1 METHODS

Since the current version of Pugs does not support OO <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31290	31395	
==>]; the latter is mainy useful if you want modules from multiple
sets in the same disk directory.  In the f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31290	31395	
==>]; the latter is mainy useful if you want modules from multiple
sets in the same disk directory.  In the f <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2552	2656	
==>. All Rights Reserved.

This program is Free Software, and may be used, distributed and modified under 
t <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2552	2656	
==>. All Rights Reserved.

This program is Free Software, and may be used, distributed and modified under 
t <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1901	2012	
==>ite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AE <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1901	2012	
==>ite in the F<t/> directory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AE <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17759	17911	
==>et = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14180	14332	
==>et = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visual =~ /^(?:\[[:.=]|\\[dDsSwWpP])/) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	781	890	
==>ess defined $k;
	return emit_node($k,$v);
    }
    die "unknown node!! ", Dumper( $n );
}
sub node::pod {
	re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	13310	13406	
==>t (Relation::Example $other!) returns Relation::Example {

    die "The relation in $other has at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20459	20561	
==>e are some application where this is not
appropriate.  Prefixing field names with ':' allow you to forc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20459	20561	
==>e are some application where this is not
appropriate.  Prefixing field names with ':' allow you to forc <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3968	4063	
==>base portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also desc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3968	4063	
==>base portability

=head1 VERSION

This document describes Rosetta version 0.724.0.

It also desc <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15551	15677	
==>cname
    cname = concat cname, '"'
    mob["cname"] = cname
    pos = $I0 + 1
    goto end
  err_close:
    parse_error(mob, p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21492	21603	
==>&RxPOS -= length $1;
    }

    $S->error(RPe_SEQINC);
  });
}


1;

__END__

=head1 NAME

Regexp::Parser::Handl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22851	22955	
==>data type is immutable.  The value of
a Relation::Example object is determined when it is constructed, an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2788	2908	
==>header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localh <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2788	2908	
==>header.value;
    }
    return 1;
}

method run {
    $.socket = $.port.listen;
    say "You can connect to http://localh <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2359	2480	
==>o get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2359	2480	
==>o get?
    #  return $head;
    #};
  };
};

# Unify with URI.pm
sub split_uri (Str $url) {
  $url ~~ rx:Perl5{^http://([^ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	16402	16496	
==>yaccs may or may not capitalize 'syntax'.
    $results =~ s/^(syntax|parse) error/syntax error/ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	432	551	
==>_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	432	551	
==>_use_means_no"} = sub { 1 };

    goto &{$_[0]->can('import')};
}

sub FILTER (&) {
    my $pkg = caller;
    my $code = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5225	5353	
==>pot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attribut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5225	5353	
==>pot_identity' => {
            'file_name' => 'My Data',
        },
    );

    # Create a Rosetta Interface root, whose attribut <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10063	10180	
==>=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0. <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10063	10180	
==>=head1 NAME

CGI - A module for programming CGI

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0. <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9914	10023	
==>Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13391	13500	
==>Both sources have zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set( <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1709	1814	
==>ARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Comma <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1709	1814	
==>ARNESS_PERL} = q{$full_pugs}; ENV->{PERL6LIB} = q{$full_blib}; $1/;
    $makefile =~ s/("-MExtUtils::Comma <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3164	3274	
==>tus{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3164	3274	
==>tus{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Builder::Test

=head <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6581	6704	
==>gex set.  Grammar is quoted because the module does
not so much define a grammar as let each matched node state what it
expe <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17899	18000	
==>mb(
	fun => ide("snd"),
	param => $pair,
);

# the polymorphic fst function takes any pair and returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	586	728	
==>atch->new({
        bool  => $bool,
        match => $1,
        tail  => $2
    });
}
sub varhash {
    my $grammar =  shift;
    $_[0] = "" u <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	131	234	
==>::Install::Makefile::Name;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

$VERSION = '0.0 <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5012	5107	
==>def_statement  { def_thing(\@statements,0,@_) }
sub def_stmt_prim  {
  my($name,$re)=@_;
  my $r <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1673	1778	
==>uctor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1673	1778	
==>uctor} \{";
    $code ~= "\n  does Perl::Compiler::PIL::Node::X0::Base;";
    $code ~= "\n  does Perl::Com <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1983	2082	
==>ld, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1983	2082	
==>ld, $val, "PUSH");
}

method init_header ($self: Str $field, Str $val) {
  $self!header($field, $val <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2314	2427	
==>t( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_appl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3095	3208	
==>t( get_data( $_[0], '$<term2>' ) );
    return 
        "    &{'$op'} ( $term1, $term2 );\n";
}
sub node::sub_appl <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6150	6252	
==>for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6208	6310	
==>for a release.
    $context = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39650	39738	
==>ncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39650	39738	
==>ncan.net>, or visit L<http://www.DarrenDuncan.net/> for more
information.

Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13769	13914	
==>}
    },

    # Check that our connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at l <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13769	13914	
==>}
    },

    # Check that our connection is still alive.
    livecheck => {
      if($connected) {
        # We haven't seen any traffic for at l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	2118	2222	
==>l 6 implementation

=head1 SYNOPSIS

Command line:

    $ perl -Ilib lib/v6.pm -e ' for 1,2,3 -> $x { say <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6461	6560	
==>ll the test scripts which failed.  Each key
is the name of a test script, each value is another hash <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1513	1640	
==>path(installsitearch    => $config); 
    add_path(installsitelib     => $config); 

    $config->{perl5path} = $^X;
    $config <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23621	23746	
==>C_COPY_STR  0x01            /* Need to copy the string. */



  #define REXEC_CHECKED   0x02            /* check_substr alread <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28851	28949	
==>C_COPY_STR	0x01		/* Need to copy the string. */
 #define REXEC_CHECKED	0x02		/* check_substr alread <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5229	5335	
==>ince") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5229	5335	
==>ince") }
method last_modified ($self: )       is rw { $self!date_header("Last-Modified")       }

# This is <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19488	19580	
==>ion
variables are system catalog relation variables rather than user-defined
relation variabl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19488	19580	
==>ion
variables are system catalog relation variables rather than user-defined
relation variabl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	246	350	
==>::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	246	350	
==>::Infinite::Functional {
    $class.new( spans => [Span.new( start => -Inf, end => Inf )] );
}

method is <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4520	4624	
==>elf.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.comple <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4520	4624	
==>elf.get_universe,
    );
}

method difference ($self: $set ) {
    return $self.intersection( $set.comple <==
2	/Users/nnunley/pugs/perl5/Data-Bind/lib/Data/Bind.pm	947	1071	
==>m->{is_slurpy},
	       invocant      => $param->{invocant},
	       p5type        => substr($param->{var}, 0, 1),
	       na <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4517	4623	
==>', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4517	4623	
==>', ':@member_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5662	5786	
==>ar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9973	10097	
==>ar = $Class->new(
    '$:name'       => 'Bar',
    '$:superclass' => $Foo,
    '%:methods'    => {
        'bar' => sub ($) { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37574	37744	
==>_attribute', (symbol->new('%:methods')         => attribute->new('%:methods'         => 'hash')));
                                                                   
=pod <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	314	480	
==>angle: $s";
    
    # perl6 => perl5 variables
    return '%::ENV'    if $s eq '%*ENV';  
    return '$^O'       if $s eq '$*OS';  
    
    # special variables <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4203	4319	
==>lize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we currently think <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4203	4319	
==>lize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, which we currently think <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9338	9456	
==>y $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9338	9456	
==>y $latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    my $latin = 1;
    
    $string ~~ s:P5:g/&([^;]*);/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8066	8162	
==>lurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1891	1987	
==>lurp_to_variable(@_) };
push @statements, sub { Grammar::Perl6->assign_open_to_variable(@_) };
pu <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6397	6513	
==>> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6397	6513	
==>> $param, $value {
        for $value -> $val {
            @packed_params.push(url_encode($param) ~ '=' ~ url_encode <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	520	624	
==>cale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # packa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	520	624	
==>cale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} # packa <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6872	7027	
==>meter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = ca <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6872	7027	
==>meter
        # trait at some point
        $base = $_base;
    }
    else {
        $base = cwd();
    }
    my $base = canonpath($base);
    my $path = ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3846	4039	
==>me);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3846	4039	
==>me);
            }
        }
        
        if ($response_time) {
            $age += time - $response_time;
        }
        
        return $age;
    }
    
    method freshness_lifetime () <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8082	8215	
==>eedy_plus { 

    my $node = shift;

    my $alt;

    $alt = ruleop::concat( 

        $node, 

        ruleop::optional( sub{ goto $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7805	7933	
==>eedy_plus { 
    my $node = shift;
    my $alt;
    $alt = ruleop::concat( 
        $node, 
        ruleop::optional( sub{ goto $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20211	20301	
==>orization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20211	20301	
==>orization_basic

Same as authorization_basic() but will set the "Proxy-Authorization"
heade <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	914	1028	
==>' );
    return "package $ident;\n";
}
sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6202	6308	
==>rint Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6202	6308	
==>rint Dumper $match->();
    ok( 
        postfix( $match->() ) eq '3 4 5 infix:<+> circumfix:<()> infix:<*> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1230	1335	
==>my $self = shift;
		my $type = shift;

		warn Carp::longmess unless ref $type;

		$self->{type} = $type->t <==
2	/Users/nnunley/pugs/t/packages/pragma/Demo.pm	101	198	
==>= [~] $arg.split("").grep:{ $_ ~~ rx:Perl5/\d/ };
#  warn "pragma::Demo::import($arg)\n";
    Pugs <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1164	1268	
==>rl) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1164	1268	
==>rl) is export {
  return _trivial_http_get($url);
};

# Refactor common code with _trivial_http_get
sub h <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	11435	11528	
==>ent_opt --> {true}.
p5_comment(L) --> "(?#", !, p5_comment_body(L), ")".
p5_comment_body([C|L] <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17263	17397	
==>=$node ...";
    }

    if (Scalar::Util::blessed($node)){
        if ($node->can("fmap")){
            my @gut =  $node->fmap(sub { $s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34116	34222	
==>is used.  Each Set Name can be any defined and non-empty string.

=back

This is the main Translator constr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34116	34222	
==>is used.  Each Set Name can be any defined and non-empty string.

=back

This is the main Translator constr <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21867	21965	
==>or a Relation to have zero attributes, though such a Relation can have no
more than a single tuple. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26419	26517	
==>or a Relation to have zero attributes, though such a Relation can have no
more than a single tuple. <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13170	13347	
==>be run with /x
my $Extra_Header_Re = <<'REGEX';
                       ^
                        (?: \s+ todo \s+ ([\d \t]+) )?      # optional todo set
                        ( <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5229	5323	
==>n

# 9.1
multi sub ToPrimitive(JSX::Value::Object $o) {$o.<[[DefaultValue]]>}
multi sub ToPrimi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1847	1956	
==>apture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1987	2096	
==>apture}, $self );
    }
    #print 'rule perl5: ', do{use Data::Dumper; Dumper($self->{perl5})};

    local $@ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	594	715	
==>rrent position of the match (also holds the
                  string that is being matched against).
    $.match     - Sta <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	594	715	
==>rrent position of the match (also holds the
                  string that is being matched against).
    $.match     - Sta <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12159	12257	
==>t encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papi <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12159	12257	
==>t encode_entities($in), "\n"

Prints this out:

 vis-&agrave;-vis Beyonc&eacute;'s na&iuml;ve
 papi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	778	892	
==>sa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	798	905	
==>sa("Str");
$string.isa "Str";
#$string.say;


{
    my $string = "Pugs";
    if $string.isa("Str") { say "ok <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4869	5006	
==>l"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "B <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4869	5006	
==>l"     => chr(376),
    "fnof"     => chr(402),
    "circ"     => chr(710),
    "tilde"    => chr(732),
    "Alpha"    => chr(913),
    "B <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20038	20135	
==>ethod.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readon <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20038	20135	
==>ethod.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt>()>

These are readon <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2136	2245	
==>other.members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.eq <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2136	2245	
==>other.members)));
    return $rv;
}

method not_equal($self: Set $other) returns Bool {
    my $rv = !$self.eq <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6146	6295	
==>ND|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XX <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6146	6295	
==>ND|DATA)__$/) {
                # Don't filter the DATA section, or else the DATA file
                # handle becomes invalid.

                # XX <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3706	3814	
==>nd any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Fin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3706	3814	
==>nd any 
other options to the constructor.  Then you call the cipher() method repeatedly 
with your data.  Fin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4564	4677	
==>ion of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4564	4677	
==>ion of $name not implemented"
        unless defined $value;

    return "$_[1] constant( '" . $value . "' )\n";
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8138	8263	
==>h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given wan <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8138	8263	
==>h);
      if (defined $old and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given wan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1986	2105	
==>l_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1986	2105	
==>l_ast->{tail};
    return $final_ast;
    };
    my $ast = $code->( $match ); 
    return { %$match, capture => [ $ast-> <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5648	5740	
==>oo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=ite <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5648	5740	
==>oo.comE<gt>

Stevan Little, E<lt>stevan@iinteractive.comE<gt>

=head1 SEE ALSO

=over 4

=ite <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2950	3101	
==>::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./g <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2950	3101	
==>::Perl::Compiler::PIL::PILApp    {
                my $str = join ' ',
                    ./gen(.code, $ng.fork('code')),
                    map { ./g <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8229	8329	
==>>

This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8229	8329	
==>>

This event is fired once a verbatim section is found.
    
=item I<end_element ('verbatim')>

This <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1247	1384	
==>self = shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => DIR_EXISTS },
    };

    my $args = check <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	4291	4387	
==>5266249775724709369995957496696762772407663;
    # http://www.research.att.com/~njas/sequences/A0 <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1856	1971	
==>regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1856	1971	
==>regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1556	1663	
==>is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1556	1663	
==>is copy = 1) returns Date {
    if $day ~~ rx:perl5<i>/^last$/ {
        my @lengths := _is_leap_year($year) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	7	102	
==>mmon/p6rule_lib.pl - fglock

#

# native library for the experimental implementation of p6-regex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	7	100	
==>mmon/p6rule_lib.pl - fglock
#
# native library for the experimental implementation of p6-regex <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38797	38898	
==>le name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CON <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38797	38898	
==>le name will be left intact.

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CON <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6855	7001	
==>license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license' <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6912	7058	
==>license) as perl itself' => 'perl',
            'GNU public license'                              => 'gpl',
            'GNU lesser public license' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14776	14872	
==>=back

=head1 EXTENSIONS

Here are some ideas for extensions (sub-classes) for this module.  Some <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	786	913	
==>ee;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont ma <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	786	913	
==>ee;

    # check to see if we have been 
    # asked to include the trunk
    if $self.include_trunk() {
        # if we dont ma <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	665	778	
==>er names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizati <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	665	778	
==>er names ?
    * is_singleton
    * first_span/last_span; span_iterator
    * see also: Span.pm TODO

  Optimizati <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13059	13166	
==>that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute( <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13059	13166	
==>that the 'person' table exists and create it if not.
        if (!$fnh_tb_person_exists.prepare_and_execute( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	7785	7915	
==>closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

subm <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	7785	7915	
==>closure_next }( $x ) );
            }
            warn "Arbitrary limit exceeded when calculating complement()";
        };
}

subm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	95	192	
==>**********
# This version of lrep only compiles Grammar sections
# The full version is on misc/pX/ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15215	15335	
==>s, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::conca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15494	15614	
==>s, \&use_v6;
*{'term1'} = 
         ruleop::alternation( \@grammar1::terms )
       ,
;
*{'list'} = 
       ruleop::conca <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24606	24708	
==>ject(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21027	21129	
==>ject(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('ifthen|2 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1106	1206	
==>hether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based mod <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1106	1206	
==>hether the meaning of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based mod <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10982	11150	
==>se = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($con <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10982	11150	
==>se = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # Login
    login => {
      if($con <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4322	4454	
==>step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @l <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4322	4454	
==>step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( cstart => sub{ @l <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	701	854	
==>ir ] )    and die "$?";

        ### XXX instead of cp -R, we can read manifest/metafile
        system( qq[mkdir -p $builddir/$path] )          and die " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14284	14412	
==>pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14278	14406	
==>pos = \$match->to if \$bool;\n" .
	    "$_[1]      \$bool;\n" .
	    "$_[1] }";
    }
    if ( $prefix eq '!' ) {   # negated_sub <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36922	37022	
==>ample usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36922	37022	
==>ample usage:

    my Str $user_text_string = $translator.translate_message( $message );

=back

The T <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24450	24552	
==>ends a command to the server. The command is not modified by C<Net::IRC>,
aside from appending the corr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24450	24552	
==>ends a command to the server. The command is not modified by C<Net::IRC>,
aside from appending the corr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7104	7214	
==>e) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate? <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7162	7272	
==>e) unless $cond;

    return $cond;
}

sub report_failure (Str $todo?, Str $got?, Str $expected?, Bool $negate? <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6729	6856	
==>"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6729	6856	
==>"    => chr(8217),
    "sbquo"    => chr(8218),
    "ldquo"    => chr(8220),
    "rdquo"    => chr(8221),
    "bdquo"    => chr( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5888	5999	
==>ry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5888	5999	
==>ry_after       { shift->_date_header('Retry-After',       @_); }

method content_type ($self: ) is rw {
  return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12056	12214	
==>- see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12050	12208	
==>- see end of Pugs::Grammar::Rule
        return 
            "$_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16470	16567	
==>hout a recompile (such as by simply
copying files), often even while the program is executing.

Lo <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16470	16567	
==>hout a recompile (such as by simply
copying files), often even while the program is executing.

Lo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14027	14126	
==>ue.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14027	14126	
==>ue.  The field name passed to the
callback routine has case as suggested by HTTP spec, and the heade <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3444	3554	
==>ar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psi <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3444	3554	
==>ar {
        <lexscope> <type>? &<subname> <psiglet>? <trait>*
}

rule unscopedsubvar {
        &<subname> <psi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1674	1798	
==>n "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2454	2578	
==>n "    {\n" . emit($_[0]) . "    }\n";
}
sub node::sub_decl {
    my $fix =   get_str( $_[0], '$<fix>' );
    my $id =    get <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	371	515	
==>returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!out <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	371	515	
==>returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@!output;

        my $output = @!output.join( "\n" );
        @!out <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11454	11585	
==>str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11448	11579	
==>str = $_[0];
    return "$_[1] # : no-op\n"
        if $str eq ':';
    return "$_[1] ( \$pos >= length( \$s ) ) \n" 
        if $st <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25449	25558	
==>_key> - B<Message Key>

Str - This uniquely identifies the type of message that the object
represents (or give <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25449	25558	
==>_key> - B<Message Key>

Str - This uniquely identifies the type of message that the object
represents (or give <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11478	11599	
==>al == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11478	11599	
==>al == 0;
    for @val -> $val_elem {
        $?SELF!_die_with_msg( 'LKT_ARG_ARY_ELEM_UNDEF',
                { 'METH' => $ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1266	1452	
==>::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1266	1452	
==>::PILCode   { 
                my $inner = ./gen(.statements);
                $ng.ret("$INS\::p5_make_code( sub \{ { 
                    (join "\n", map { 
                        "my " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5263	5388	
==>ce.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5263	5388	
==>ce.next( $.span.start );
    }
    if $x > $.span.end && ! $.span.end_is_open {
        $x = Inf;
    }
    elsif $x >= $.span <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1259	1379	
==>is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4737	4857	
==>is valid for a Relation to have zero tuples.
    has Bool $!is_mutable;
        # Bool
        # Says whether this Relati <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3300	3420	
==>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3300	3420	
==>);

The same, except that the closure deciphers instead of enciphering.

=back 4

=head3 Object-Oriented interface

The C <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1370	1469	
==>k 4

The procedural interface does the same thing within a single call, hiding the 
full complexity. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1370	1469	
==>k 4

The procedural interface does the same thing within a single call, hiding the 
full complexity. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6896	6994	
==>t the beginning, before the 
ciphertext.  This will be prepended to the return value of the first c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6896	6994	
==>t the beginning, before the 
ciphertext.  This will be prepended to the return value of the first c <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4688	4801	
==>ode instead of taking from filter,
    # because we need all the lines including the ones before the `use`
    # s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4688	4801	
==>ode instead of taking from filter,
    # because we need all the lines including the ones before the `use`
    # s <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5462	5602	
==>last_error), return;

    ### build a from => to mapping
    ### note we have to create the directories first if it's a dir -> dir
    ### mo <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/create.pl	463	588	
==>= $struct->{package};
    
    ### create a buildroot
    my $builddir    = $Build_prefix . basename( $srcdir );
    {   ### c <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11403	11505	
==>rns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11403	11505	
==>rns Str>

=item B<unpack_params (Str $data) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	535	800	
==>n %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	535	800	
==>n %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding utf8

=head1 NAME

R <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10961	11071	
==>ontext}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into som <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10961	11071	
==>ontext}, [@classes]]
        if length $text;
    return @blocks;
}

# Compile/Filter some source code into som <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12351	12466	
==>2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\"). <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12351	12466	
==>2, $3);
      } elsif($line ~~ rx:P5/^ERROR ?:?(.*)$/) {
        debug "Error in connection to $host:$port (\"$0\"). <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8687	8786	
==>nick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8687	8786	
==>nick = normalize $event<from_nick>;
    my $newnick = normalize $event<object>;
    if %users{$oldni <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14487	14595	
==>02

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14487	14595	
==>02

= CONSTRUCTORS

- `new( start => 1.0, end => 2.0 )`

Creates a span.

Dies if `start` if bigger than `end <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	362	458	
==>datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_durati <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	362	458	
==>datetimes ($class: %param ) {
    return $class.new( %param );
}

method from_datetime_and_durati <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	174	269	
==>ipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.elems);
} <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	174	269	
==>ipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.elems);
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	11288	11406	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	11288	11406	
==>,
            { 'METH' => $meth, 'ARG' => $arg } )
        if !@val.defined;
    $?SELF!_die_with_msg( 'LKT_ARG_ARY_NO_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1997	2129	
==>_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1997	2129	
==>_) }
                    when undef { box("P5::PIL::Run::Undef" => perl("undef")) }
                    when List { box("P5::PIL::Run <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	95	217	
==>nges to normal Array if all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy arr <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	95	217	
==>nges to normal Array if all elements are known;
  - pushing a lazy list into a normal array turns the array into a lazy arr <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5143	5293	
==>e_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5607	5757	
==>e_depends see if there's a suitable candidate
                    ### in the whole index, we only let it look at the 
                    ### installed <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	694	797	
==>...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier inde <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	694	797	
==>...
    $.capture_name - Named captures: $/<foo>, $/<bar>, ...
    $.multidex     - The "quantifier inde <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	31	125	
==>6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Con <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	31	125	
==>6;

# Config::Tiny has already been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1119	1233	
==>at( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greed <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1119	1233	
==>at( 
        alternation( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greed <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1065	1217	
==>e ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domai <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1065	1217	
==>e ~~ m:P5/^https?\z/) {
            #LWP::Debug::debug('Will not add cookies to non-HTTP requests');
            return;
        }
    
        my $domai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20504	20613	
==>d lets you arrange the list in order of preference.  When you
open a program, it will search for language file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20504	20613	
==>d lets you arrange the list in order of preference.  When you
open a program, it will search for language file <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	427	523	
==>block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	427	523	
==>block>|<any>]*? \} ))->code;

*regex = Pugs::Compiler::Rule->compile(q(
    <'regex'> <ws> <ru <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16335	16462	
==>Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and g <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16335	16462	
==>Module::Compile -base;
    
    sub pmc_compile {
        my ($class, $source) = @_;
        # ... some way to invoke pugs and g <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2128	2243	
==>, (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = m <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2128	2243	
==>, (split rx:perl5/\015?\012/, $head);
    #if (want.List) { return @list };
    #if (want.Hash) {
    #  my %res = m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2267	2403	
==>ch) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2267	2403	
==>ch) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{state} ) {
                $state->[1] = $match->{ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12381	12509	
==>$meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12381	12509	
==>$meth,
            'ARG' => $arg, 'EXP_TYPE' => 'Locale::KeyedText::Message',
            'VAL' => $val } )
        if !$val.does <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6496	6606	
==>mob["value"] = $S0
    goto end

  term_ws:
    mob = newfrom(mob, 0, "PGE::Exp::WS")
  term_ws_1:
    pos = fi <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3229	3381	
==>>{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($self, $label) = @_;
            exists ::opaque_instance_attrs($ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2024	2134	
==>n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  me <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2024	2134	
==>n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n  me <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	2055	2153	
==>u get used to infrastructure you've built up in Perl5

=head1 NAME

Meta::Class - Entities in the P <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	344	479	
==>Makefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_ma <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	344	479	
==>Makefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSITEARCH => $libs->{sitearch},
        @mm_args,
    );
    fix_ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23793	23887	
==>ale::KeyedText is generally a simpler solution
than alternatives, and doesn't know about langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23793	23887	
==>ale::KeyedText is generally a simpler solution
than alternatives, and doesn't know about langua <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	119	375	
==>dText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Y <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	119	375	
==>dText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Y <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25517	25616	
==>f the other components when and as the GPL requires distribution of
source code.  However, for an ad <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25517	25616	
==>f the other components when and as the GPL requires distribution of
source code.  However, for an ad <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21664	21764	
==>r_here><Identifier>? <';'>
}
rule BreakStatement :words {  # see 12.8
      <'break'><no_LineTerminat <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24639	24735	
==>::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->strin <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25611	25707	
==>::free->new,
			type::variable::free->new,
		),
		type::variable::free->new,
	);
	is($type->strin <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7598	7717	
==>pturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7791	7910	
==>pturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'grammar1::code <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1213	1362	
==>domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'ht <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1213	1362	
==>domain = ./:host($request, $uri);
        $domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'ht <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10994	11181	
==>'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10994	11181	
==>'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' }, [
                $rdtd_person,
            ] ],
            [ 'routine_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/StatementControl.pm	552	692	
==>d};
        my $name     = $_[0]{pair}{value}{single_quoted};
        $category =~ s/^(\w)/uc($1)/e; 
        $category = 'Pugs::Grammar::' . <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	523	626	
==>d1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little white <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	523	626	
==>d1 SYNOPSIS

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little white <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34487	34759	
==>$next')
                      ->id
                      ->equal_to(
                          $e->get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	21394	21537	
==>nt "DIED. ",$txt;
        }
    }

    return { canon => $canon,  max => $test->{max} || '??',
             failed => $failed, 
             per <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	246	381	
==>\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub r <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	246	381	
==>\/ server \: $0 \>
}

rule block {
    \< server \: (<id>) [<sp>+ (<id>) <sp>*=<sp> *"(<-["]>*)"]* <sp>* \/\>
}

## the main subs

sub r <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16553	16659	
==>>{saw_header} = 0;
    $self->{saw_bailout}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not_line} = <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	533	649	
==>//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_des <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	533	649	
==>//;
  $pilfh.close();
  unlink($tempfilename);
  return $pilresult;
}

$Test::Pil::Description = undef;

sub find_des <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	248	369	
==>bytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	248	369	
==>bytes(map &ord, $key);
    }
}

method _zeroize() {
    for @.key -> $x is rw { $x = 0 }
}

method block_size() returns in <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1943	2044	
==>(Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2001	2102	
==>(Str $got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1233	1369	
==>port {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # Wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1233	1369	
==>port {
  my $connected = 0;
  my $inside    = 0;
  my $chans = set();       # Which chans have we joined?
  my $servername;          # Wh <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	1655	1773	
==>equiv};
    }
  }

  my $noWhitespace = 0;
  $noWhitespace = 1 if ((index $options, "nows") >= 0);

  #print "name: $na <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4890	4999	
==>y $ok = _all_ok($tot);

    assert(($ok xor keys %$failedtests), 
           q{ok status jives with $failedtes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	209	335	
==>00 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	209	335	
==>00 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        203 => 'Non-Authoritative Information',
        204 => <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	250	367	
==>sub new {
    my ($class, @values) = @_;
    (blessed($_) && $_->isa('type'))
        || confess "You must store a nat <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3372	3490	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3565	3683	
==>ure} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9100	9203	
==>ilure object always

then there's absolutely no overhead

I'm not sure about this - failed matche's .end <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8801	8902	
==>ilure object always
then there's absolutely no overhead
I'm not sure about this - failed matche's .end <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2838	2977	
==>FEST') {
        warn "Cannot deduce auto_provides without a MANIFEST, skipping\n";
        return $self;
    }

    # Avoid spurious warnin <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1858	1971	
==>gs:
#   * This grammar has never yet been run, so there no doubt are some.
#
#  Possible Bugs:
#   * We are not us <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1415	1554	
==>DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1415	1554	
==>DOM::Element->new({ name => "para",
                                      source => "\n\n" });
 $node->add_daughter($para);
 # alternate way <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14040	14178	
==>try: ", Dumper( $n );
        #if ( exists $n->{trait} ) {
        #    # CATCH/CONTROL
        #    return $n->{trait} . " {\n" . _emit <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	668	796	
==>d end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method begi <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	668	796	
==>d end_of_string () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars;
    }
}

method begi <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14053	14175	
==>-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14053	14175	
==>-07-04T00:00:00.0) 

Create a span representing 0 to 24 hours with full precision:
    
    $time_span = Span.new( start => <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2422	2530	
==>$libs->{sitearch},
        SITEARCHEXP     => $libs->{sitearch},
        INSTALLSITELIB  => $libs->{sitelib}, <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2089	2196	
==>t = split / /, $nameSplit[$#nameSplit];
  if ( @spacePresent > 1 )
  {
    $token{token2} = $spacePresent[1] <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	25850	25952	
==>subclasses)))

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('subclasse <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	14308	14427	
==>ers == 0) {
        return $?SELF;
    }

    my Relation::Example @sources = ($?SELF, *@others);
    while (my $r1 = @s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26368	26487	
==>),
            type::operator::nary->new(list => type::operator::pair->new( $a, $b )),
		),
	);
	is($type->stringify, " <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10233	10344	
==>.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

C <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10233	10344	
==>.

= CONSTRUCTORS

- `new( closure_next => sub {...}, closure_previous => sub {...}, universe => $universe )`

C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2905	3151	
==>_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3152	3398	
==>_terms>)
    $<ws2>   := (<?ws>?)
    $<quant> := (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { r <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9923	10042	
==>ces have zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ( <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	13400	13519	
==>ces have zero tuples; so does result.
        return Relation.new( heading => $!heading, body => set() );
    }
    if ( <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1762	1869	
==>n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n} <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1762	1869	
==>n  does Perl::Compiler::PIL::Node::$data;";
    $code ~= $field_code;
    $code ~= $stuff;
    $code ~= "\n} <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3271	3400	
==>y $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3271	3400	
==>y $rl2 = new_bucket(rate => 20/3600, burst_size => 10);
        # "bursts" of 10 to ease the lag but $rl1 enforces
        # 2 per <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7240	7370	
==>to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	541	671	
==>to delete this, due to depends
    {   my $info = LoadFile( $meta .'/'. $Metafile );

        my $delete_ok = 1;

        for my $e <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20581	20695	
==>ree->[-1]->{data} };
    }

    push @$tree, $self unless $self->omit;
  }
}


{
  # \1 (backrefs)
  package Regexp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	646	809	
==>[3] ] }
        |   exp '«+»' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp '-' exp         { $out= [ $_[1], $_[2], $_[3] ] }
        |   exp ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	3867	4010	
==>n = $_[0];
    #warn "emit: ", Dumper( $n );
    
    if ( exists $n->{bare_block} ) {
        if ( exists $n->{trait} ) {
            # BE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	820	929	
==>s/lib",
        #"$Bin/../../Pugs-Compiler-Precedence/lib",
    ;

    use Pugs::Compiler::Perl6;
    use Data <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	4969	5083	
==>which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # W <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	4969	5083	
==>which are still in %cache353{$chan}.

      %cache353{$chan}{$_}++ for %channels{$chan}<users>.keys;
    }

    # W <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4225	4430	
==>\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = spl <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4225	4430	
==>\.$}{\\};                                                 # \..    -> \
    1 while $path ~~ s:perl5{^\\\.\.}{};                                            # \..\xx -> \xx

    my ($vol, $dirs, $file) = spl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	17754	17871	
==>end:
    .return (sub, code, exp)
.end

.namespace [ "PGE::Exp" ]

.sub "p6analyze" :method
    .param pmc pad
    $I0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	384	498	
==>Grammar::Operator::add_rule( %opt,
        fixity => 'ternary', 
        assoc => 'non',
        name => 'ternary:< <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	1554	1694	
==>rclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- plac <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	1759	1899	
==>rclass
            $class = $class->superclass;
        }

        confess "No method found for $label";
    }
}

# The 'Class' class -- plac <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	2177	2286	
==>node = shift;

	my $class = ref $node;
	if ($class =~ /^Blondie::(\w+)$/ and Blondie::Nodes->can($1)){
		retur <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2938	3043	
==>l(1),
    ),

And also place the value 1 on the parameter stack.

Inherits List.

=item Sym

Resolves a sy <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	1058	1270	
==>hen 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	1058	1270	
==>hen 'header' {
                    my $size = @args.shift;
                    $buffer ~= "</H$size>\n";                     
                }
                when 'list' {
                    $buffer ~= "</UL>\n <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20609	20713	
==>s will
be expanded again.

Every bit of the default process described above is overridable by
various met <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20609	20713	
==>s will
be expanded again.

Every bit of the default process described above is overridable by
various met <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3390	3495	
==>"Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3390	3495	
==>"Logged in to \"$servername\" as \"$curnick\".";
  }];

  # Nick already used, so we permute our nick.
  % <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	783	896	
==>e_Exitcode = $ENV{HARNESS_IGNORE_EXITCODE};

my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};

$Strap = Test::Har <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	1598	1697	
==>UBS';
conv_array {
    s/\$(${re_symbol}\[.+])/\@$1/g;
    s/\$#(${re_symbol})/\@$1.last/g;  # last_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15267	15362	
==>ed.

Methods that deal with dates/times always convert their value to system
time (seconds since <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15267	15362	
==>ed.

Methods that deal with dates/times always convert their value to system
time (seconds since <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	612	743	
==>d = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	612	743	
==>d = %*ENV<REQUEST_METHOD>;
        $.uri    = ::URI_CLASS.new(%*ENV<REQUEST_URI>);
        
        my %pairs = (
            'Conte <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	1029	1128	
==>c ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.sa <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	1029	1128	
==>c ~~ rx:P5:g/([^:]):/;
    my @without_args = $spec ~~ rx:P5:g/([^:])(?!:)/;
    #@with_args.perl.sa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1667	1771	
==>::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax whi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1667	1771	
==>::IRC::SeenExt> for the time C<$nick> was last seen, too.

=head1 BUGS

Beware: This role uses syntax whi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2989	3085	
==>item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the foll <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2989	3085	
==>item C<$r.remote_addr>

The IP address of the client, if available.

=back

In addition, the foll <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15327	15444	
==>tring.

=cut

sub _mk_leader {
    my($te, $width) = @_;
    chomp($te);
    $te =~ s/\.\w+$/./;

    if ($^O eq 'VMS' <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1459	1585	
==>perclasses.size ) {
        return ([+] $:superclasses,
                $:superclasses.map:{ .all_superclasses });
    } else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	316	442	
==>5::Ratchet;

use Data::Dumper;

sub new { $_[0] }

sub compile {
    
    # $class->compile( $source )
    # $class->compile( $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1217	1314	
==>XXX - referred to, but not specced, in S29.
 multi int(Num $x = CALLER::<$_> --> Int) { Num::int($ <==
2	/Users/nnunley/pugs/inc/Module/Install/WriteAll.pm	1	84	
==>line 1 "inc/Module/Install/WriteAll.pm - /usr/local/lib/perl5/site_perl/5.8.7/Module <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	178	280	
==>put a string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" ret <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	234	336	
==>put a string containing a rpn expression.
# Return the evaluated integer result.
# Example: "5 4 +" ret <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/vars1.pl	10	102	
==>n
werden weiterhin mit den "magischen Zeichen" (sigils)
$, %, @ gekennzeichnet.
#=Kontextunab <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	266	367	
==>ot ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc docum <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	266	367	
==>ot ||= Perldoc::DOM::Element.new(:name<pod>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc docum <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37482	37580	
==>of a Perl package in its positional parameter
$module_name (a string) and tries to load it using 'r <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37482	37580	
==>of a Perl package in its positional parameter
$module_name (a string) and tries to load it using 'r <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9641	9759	
==>ns_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9641	9759	
==>ns_7  = $set2 ∋ 7;  # or  7 ∈ $set2
  my $contains_11 = $set2 ∌ 11; # or 11 ∉ $set2

  # smartmatch may also be <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	717	822	
==>$trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final( <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	717	822	
==>$trigger);
}

multi method next(Str $trigger) {
  $.state = $.state.next($trigger);
}

multi method final( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9948	10076	
==>g to qx in runperl().
    my %args = @_;
    my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
    #- this allows, for example, to se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18704	18813	
==>age.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18704	18813	
==>age.  Most browsers pass this information as part of a
     request.

     (1998-10-19)

By popular demand C<r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6037	6130	
==>le->compile? (assuming example in p5)

  my $matcher = Pugs::Grammar::Rule::compile ( ".*", op <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5828	5920	
==>le->compile? (assuming example in p5)
  my $matcher = Pugs::Grammar::Rule::compile ( ".*", op <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8358	8482	
==>ly if we've cached this.
    return $self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or c <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	760	917	
==>f->{values}{$key} unless @_;

        my @rv;
        while (@_) {
            my $module = shift or last;
            my $version = shift || 0;
            i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6375	6487	
==>ssage_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6375	6487	
==>ssage_cpy = $message;

    my Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2385	2523	
==>oncat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2396	2534	
==>oncat(
                ruleop::capture( 'term', \&term ),
                ruleop::capture( 'literal',
                    ruleop::alternati <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23640	23748	
==>x)> and C<(?ismx:...)>:

  # (?i:...) <-- the 'i' is only inside the (?:...)
  # (?i)     <-- the 'i' affects <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	1625	1770	
==>ring ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	1625	1770	
==>ring ~~ s:P5/^\r?\n//;
            last;
        }
    }
    
    return ::?CLASS.new(%headers, $string);
}

method clear ($self: ) returns Void { <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5299	5433	
==>rse =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5299	5433	
==>rse =>            $set.get_universe,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	963	1095	
==>$_[2] } }",  
    infix_right =>       
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	634	843	
==>\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $even <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	634	843	
==>\n";
                }
                when 'item' {
                    $buffer ~= "=item ";
                }
            }
        },
        end_element => -> ($event_type, @args) { 
            given $even <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7991	8100	
==>$event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody chan <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7991	8100	
==>$event<from_nick>) for @chans;
      %!users.delete(normalize $event<from_nick>);
    });

    # Somebody chan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1933	2106	
==>t_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1933	2106	
==>t_nodes' => [@!root_nodes.map:{ .export_as_hash() }],
    };
}

###########################################################################

my method _die_with_msg (Str $msg <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	711	806	
==>path (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	711	806	
==>path (Str $path, Bool $nofile?) returns Array is export {
    return &::($worker_pkg)::splitpath <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21127	21227	
==>ibtution precompiled. This means that people who install your
module distribtution do not need to hav <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21127	21227	
==>ibtution precompiled. This means that people who install your
module distribtution do not need to hav <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8874	8996	
==>_];
   }
   $str;
 }
 &join<> := &join<Str>.assuming:delimiter(' ');


=item map 

 multi Array::map (@values,   Code $expr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2627	2796	
==>urn { 

        bool  => 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),

    }

        if $_[0] = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2526	2689	
==>urn { 
        bool  => 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
        if $_[0] = <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	7124	7246	
==>)";
  $_ eq "normal" and return "Normal runcore (Perl 6 on Haskell)";
  die;
}

# Rate limiting
sub limit_rate {
  # Open t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12167	12277	
==>age Regexp::Parser::assertion;
}
{
  # (?=) (?<=)
  package Regexp::Parser::ifmatch;
  sub emit {
    my($o)=@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7077	7240	
==>r::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7077	7240	
==>r::Rule
        return 
            "$_[1] alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11687	11815	
==>ence intersects (has any element in common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures th <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11687	11815	
==>ence intersects (has any element in common) with the given recurrence.

- `equal( $recurrence )`

Returns true if the closures th <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1607	1750	
==>nless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $ <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1607	1750	
==>nless defined $linktext;
            $script = file_name_is_absolute($linktext)
              ?? $linktext
              !! catfile( $RealBin, $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9761	9859	
==>le:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9761	9859	
==>le:

=over 4

=item $h = HTTP::Headers.new

Constructs a new C<HTTP::Headers> object.  You might pa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6523	6626	
==>nerated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6535	6638	
==>nerated program
#
sub compile_rule {
    local $Data::Dumper::Indent = 1;
    #print "compile_rule: $_[0 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5901	6022	
==>n "state PPad not implemented\n"; # use MM?
    }
    elsif($sn eq 'my') {
	$decl = "my($varlist)$init;";
    }
    elsif( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	7628	7728	
==>->{_files};
    collapse_isolated_dirs($index);
    
    my $output_path = catfile($output_dir, $path <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2797	2892	
==>ample, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string po <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2797	2892	
==>ample, 'GET').

=item C<$r.uri>

The request URI.

=item C<$r.query_string>

The query string po <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2478	2652	
==>nt_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2478	2652	
==>nt_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9408	9505	
==>late_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9408	9505	
==>late_text_from_loaded_module',
        '$module_name!', $module_name );
    $?SELF!_assert_arg_str <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8497	8636	
==>eop::non_greedy_plus( $node ) 

    ] );

}



sub ruleop::non_greedy_plus { 

    my $node = shift;



    # XXX - needs optimization for f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8201	8333	
==>eop::non_greedy_plus( $node ) 
    ] );
}

sub ruleop::non_greedy_plus { 
    my $node = shift;

    # XXX - needs optimization for f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16644	16759	
==>_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13065	13180	
==>_;
    return unless ${&Rx} =~ m{ \G ] }xgc;
    return $S->object(anyof_char => "]");
  });

  # start of char clas <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	3804	3903	
==>ll put the 10 into the parameter stack and reduce the
Thunk.

Inside the Thunk the Seq will reduce i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5964	6063	
==>urn $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5652	5751	
==>urn $S->force_object(anyof_class => $S->force_object(alnum => 1)) if $cc;
    return $S->object(alnu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23820	23934	
==>($type eq 'group') {
    push @{ $S->{flags} }, &Rf;
    push @{ $S->{next} }, qw< c) atom >;
  }

  for (split //, <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	784	1027	
==>$a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        list =>  sub (@_ is rw) {
                my Array $a;
                loop {
                    return $a if @_[0] eq ']';
                    push $a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7431	7540	
==>ool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) { <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7431	7540	
==>ool $path_spec = Bool::False, Bool $secure = Bool::False, Num $maxage?, Bool $discard = Bool::False, *%rest) { <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13477	13585	
==>e object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $mo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13477	13585	
==>e object, the result is a discrete span:

    $month = Span.new( start => $dstart, end => $dend );
    my $mo <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4692	4858	
==><start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, a <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4692	4858	
==><start_modifier>($0);
            }
            when rx:P5{^>$} {
                # if we dont have anything on the stack
                # then we are not balanced, a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17245	17345	
==>s embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the Perl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17245	17345	
==>s embedded in your Perl application and
in which the Rosetta D code runs (it is analagous to the Perl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	774	863	
==>addToken("term:\\d", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("ter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14463	14632	
==>, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14457	14626	
==>, 1 );
        if ( $cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5159	5292	
==>rt/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5159	5292	
==>rt/mixed");
        @!parts = $message;
    } elsif (!@!parts) {
        @!parts;
    }
    
    push @!parts, $part;
    $self!stale_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1480	1579	
==>mmit>", "term:", "nows", "PGE::Exp::Commit");
    $optable->addToken("term:<", "term:", "nows", &par <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13115	13211	
==>make its magic not stick.

  The implementation is at best an XS-based module (currently Inline:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	34313	34406	
==>nd returns a new Locale::KeyedText::Translator object.
The Set Names property of the new objec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	34313	34406	
==>nd returns a new Locale::KeyedText::Translator object.
The Set Names property of the new objec <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1162	1321	
==>+)(.*)$/s;

    return;

};

sub newline {

    return unless $_[0];

    return { 

        bool  => 1,

        match => { 'newline'=> $1 },

        tail  => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1116	1267	
==>+)(.*)$/s;
    return;
};
sub newline {
    return unless $_[0];
    return { 
        bool  => 1,
        match => { 'newline'=> $1 },
        tail  => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10018	10187	
==>ervername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = u <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10018	10187	
==>ervername     = undef;
    $!socket            = undef;
    $.curnick        = undef;
    $.curusername    = undef;
    $.curircname     = undef;
    $.curhostname    = u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	827	923	
==>"require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dum <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	827	923	
==>"require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
sub dum <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3271	3367	
==>(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of encipheri <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3271	3367	
==>(:opt1<value1>, :opt2<value2>);

The same, except that the closure deciphers instead of encipheri <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1270	1365	
==>tant size because the
algorithm is based on statistics. This was my main motivation to
implement <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1270	1365	
==>tant size because the
algorithm is based on statistics. This was my main motivation to
implement <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1188	1310	
==>ty => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1188	1310	
==>ty => $.density ),
               $self.new( start => $.end + $.density,  end =>   Inf, density => $.density ) );
}

method <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6720	6825	
==>tores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and stor <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6720	6825	
==>tores it in the file. The
return value is the HTTP response code.

=item mirror($url, $file)

Get and stor <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22923	23017	
==>entation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURAT <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22923	23017	
==>entation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURAT <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/traits1.pl	244	349	
==>nc( $arg is copy ) { $arg = 123; }
#="is ref": eine Referenz wird erwartet
sub func( $arg is ref ) { ... } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8561	8699	
==>hannels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # T <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8561	8699	
==>hannels>.keys {
          %!channels{$_}<users>.delete($oldnick);
          %!channels{$_}<users>{$newnick}++;
        }
      }

      # T <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4619	4786	
==>if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4619	4786	
==>if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@path_dirs, $dir);
        }
    }
    # for each .. in @path_dirs p <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1013	1112	
==>< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1013	1112	
==>< :mode<deciphering> >>.  The C<:all> 
option will cause the module to shift across all byte values, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1185	1271	
==>::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1185	1271	
==>::Rule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	85	193	
==>on of these in terms of smartmatch seem like the kind of
thing which an implementation will overwrite. So sma <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1219	1325	
==>e.
#multi Array::pairs  (@array ; MatchTest *@indextests --> Int|(List of Pair) )
multi Array::pairs  (@arr <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	707	842	
==>matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub lower {
  my ( $matchObj ) = @_
  my ($matchObj, $target, $fr <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	317	430	
==>efh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pi <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	317	430	
==>efh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pilfh = Pipe::open("./pi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	339	467	
==>IB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	339	467	
==>IB_MYINV_NO_ARG' )
            if !$number.defined;
        die Locale::KeyedText::Message.new(
                msg_key => 'MYLIB <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7440	7545	
==>rs take a list of match operators, and return a new 

match operator.



A ruleop() function gets as argum <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7187	7289	
==>rs take a list of match operators, and return a new 
match operator.

A ruleop() function gets as argum <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12240	12361	
==>hod in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TOD <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12234	12355	
==>hod in fully qualified $package::var
            # ...->match( $rule, $str, $grammar, $flags, $state )  
            # TOD <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	892	1000	
==>uperset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	892	1000	
==>uperset
#multi sub *infix:<==> (Set $one, Set $two) {
#    $one.equal($two);
#}
#multi sub *infix:<!=> (Set $ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9854	9961	
==>param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (St <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9854	9961	
==>param returns Array is export { unless($IS_PARAMS_LOADED) {load_params}; %PARAMS.keys; }
multi sub param (St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12056	12222	
==>@; \n" .
                #"    \$ret =~ s/([\\'\"])/\\\\\$1/g;\n" .
                #"    print \"ret: ###\$ret### \\n\"; \n" .
                "    my \$ast = Grammar <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8814	8927	
==>added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to d <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8814	8927	
==>added to a child array
method fix_depth ($self:) returns Void {
    # make sure the tree's depth 
    # is up to d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38132	38229	
==>emplate_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template tex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38132	38229	
==>emplate_text( $text!, %msg_vars! )>

This method takes a defined (but possibly empty) Template tex <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	2488	2599	
==>d => nbound => '\B');
  });

  # bound (not a word boundary)
  $self->add_handler('\b' => sub {
    my ($S, $cc) <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7026	7136	
==>], see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5527	5637	
==>], see t/operators/binding/arrays.t.
            @array.delete($off+$i);
            @array[$off+$i] = @values[ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	35721	35818	
==>r that takes a single
Relation::Example in its C<$other> argument, where <$other> has the same hea <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	37753	37850	
==>r that takes a single Relation::Example
in its C<$other> argument, where <$other> has the same hea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6140	6247	
==>-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pug <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6140	6247	
==>-6 spec
    # currently declares $! as global, so the subsequent try{} block wipes
    # it out, causing Pug <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9385	9534	
==>ure'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::constant( "\$" )
       ,
         ruleop::capture( 'ident', \&{'gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3126	3229	
==>, Pugs::Emitter, etc?





I think subclassing is overrated, yeah -- mixins are much better

so lib/Pugs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3016	3115	
==>, Pugs::Emitter, etc?


I think subclassing is overrated, yeah -- mixins are much better
so lib/Pugs <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1749	1867	
==>$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $hea <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1749	1867	
==>$target?,
    :$expires?,
    Bool :$nph?,
    *%extra
) returns Str is export {
    # construct our header
    my $hea <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	8741	8847	
==>$fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	8741	8847	
==>$fnh_tb_person_exists
        = $conn.compile_routine( $fnd_tb_person_exists );

    # Define and compile a <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	6370	6501	
==>Array)\
\\n   List      pre     pairs   safe   (rw!Array)\
\\n   Junction  pre     any     safe   (List)\
\\n   Junction  pre     al <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17543	17638	
==>dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Mode <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17543	17638	
==>dependent CPAN packages whose
problem domain is databases and/or SQL.

=head2 How It Works

Mode <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2221	2337	
==>N

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do not have objects or fully fu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2221	2337	
==>N

This is a very primative port of the Perl 5 File::Spec module. Since 
we currently do not have objects or fully fu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2483	2583	
==>the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2483	2583	
==>the actual code that will go into the .pmc file.
sub pmc_template {
    my ($class, $module, $content <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4208	4337	
==>n $self->{values}->{features}
    	? @{ $self->{values}->{features} }
    	: ();
}

sub no_index {
    my $self = shift;
    my $t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	705	800	
==>Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->exp <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	705	800	
==>Data::Dumper::Dumper($_[0]);
}
sub import {
	$dumper = $format{$interface::format};
	p6dump->exp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23526	23620	
==>ta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Val <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23526	23620	
==>ta distribution:
L<Rosetta::Language>, L<Rosetta::Migration>.

The Perl 6 module L<Rosetta::Val <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6947	7065	
==>Int';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bles <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7506	7624	
==>Int';
    if($ref !~ /^([A-Z]+)$/) {
	$ref =~ s/::/_/; # PIL::Environment :(
        $ref = "$prefix$ref";
        bles <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1753	1906	
==>atch) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1753	1906	
==>atch) {
        $.parse(
            # XXX this class should be virtual
            Parse::Rule::Strategies::CPS::Result.new(
                backtrack => <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2644	2798	
==>h"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2644	2798	
==>h"      => 'ð',  # small eth, Icelandic
    "euml"     => 'ë',  # small e, dieresis or umlaut mark
    "iacute"   => 'í',  # small i, acute accent
    " <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16163	16269	
==>he named parameter $node_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"A <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16163	16269	
==>he named parameter $node_type (a
string); the optional named parameter %attributes (a hash ref) sets the
"A <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2986	3116	
==>ase{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2986	3116	
==>ase{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ Array ?? @$h !! ($h);

  $val = undef if <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3711	3811	
==>ference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.uni <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3711	3811	
==>ference($self);
    say "Two diff: "~$two_diff.stringify if $DEBUG;
    my $symm_diff = $one_diff.uni <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11889	11998	
==>osures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the r <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11889	11998	
==>osures identities using the '===' operation.

= SCALAR FUNCTIONS

- `next( $x )`

Returns the element in the r <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1546	1657	
==>ing probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $f <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2208	2319	
==>ing probes read from POD sections; if the file
    # has an accompanying .pod, use that instead
    my $pod = $f <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	509	673	
==>( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        la <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	509	673	
==>( $tmp );
        last if $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        la <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	836	959	
==>er::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	836	959	
==>er::Rule->compile(q(
    \\]
    | , <ws>* <Expr> <ws>* <ArrayTail>
    {
      use v5;
      return ', ' . $<Expr>() . $<Ar <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	2198	2407	
==>] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	2258	2467	
==>] == [$test,$tail]";
            return Pugs::Runtime::Match->new( { 
                bool  => 1,
                str   => $_[0],
                match => $1,
                tail  => $2,
                captur <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	612	751	
==>> $class;        
}

# we dont really have a native form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new(( <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1210	1341	
==>> $class;
}

# we dont really have a native form
sub to_native { shift }

# conversion to other native types
sub to_num { num->new(( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4011	4138	
==>xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} un <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4011	4138	
==>xx      -> xx
    $path ~~ s:perl5:g{^/(\.\./)+}{/};                    # /../../xx -> xx
    $path ~~ s:perl5:g{/\Z(?!\n)}{} un <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17066	17196	
==>ive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n) is primitive is safe {
        Num::round_gen($n, <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	10012	10159	
==>est{skipped}/$test{max} skipped: $test{skip_reason}")
                    if $test{skipped};
                push(@msg, "$test{bonus}/$test{max} une <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	34287	34384	
==>'&'
metacharacter.

We have added a handler for the '&' metacharacter, but now we need to
write th <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	4962	5074	
==>har! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	4962	5074	
==>har! )\n" unless $char eq '!';
    return "$_[1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11303	11436	
==>ent if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11303	11436	
==>ent if $.current == Inf;
        return $.current;
    }
    method previous () {
        if defined $.current {
            $.current <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14838	14951	
==>/:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14838	14951	
==>/:enqueue("MODE $target");
    }
  },
  method invite(Str $channel, Str $target)  { ./:enqueue("INVITE $target $ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1478	1584	
==>R_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1478	1584	
==>R_x10 => sub{$rpcr->match('abxxxd') for 1..10},
    fast_x100 => sub{$x->('abxxxd') for 1..100},
});

__END <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	1818	1926	
==>print $source;
}
sub node::perl5_rule_decl {
    # XXX - this sub does only '1' capture
    my $name = get_st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16453	16548	
==>TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bu <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16453	16548	
==>TokenBucket::new_bucket(rate => (1/2),    burst_size => 5)
    !! Algorithm::TokenBucket::new_bu <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6341	6479	
==>emit_chunk();
            exit 0;
        }
    }
    $self->gather_results();
}

# the wait here is sequential rather than nonblocking / a <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1838	1931	
==>ameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1838	1931	
==>ameters" on p6l.

=head1 AUTHOR

Ingo Blechschmidt E<lt>iblech@web.deE<gt>

=head1 LICENSE

Th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	4679	4779	
==>t of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data may b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	4679	4779	
==>t of the 
ciphertext, but is not necessarily the ciphertext version of the data given.
The data may b <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	88	218	
==>remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <titl <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	88	218	
==>remote;

submethod BUILD ( :$port ) {
    $.port = $port || 8080;
}

method bad_request {
    my $doc = '
<html>
  <head>
    <titl <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5564	5684	
==>r path.   Let's hunt around for it.

        my $slash = ( $Config{osname} eq "cygwin" ) ? '/' : '\\';

        my $ghc_r <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	19397	19500	
==>=> "x",
	body => ide("y"),
);

# this is a higher order function that takes a function and applies it to <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15342	15445	
==>m
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the header value is set. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15342	15445	
==>m
time (seconds since Jan 1, 1970) and they also expect this kind of
value when the header value is set. <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18363	18460	
==>ns.  Moreover, these data structures are in exactly the right input
format for Node.new(), by whic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18363	18460	
==>ns.  Moreover, these data structures are in exactly the right input
format for Node.new(), by whic <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7852	7991	
==>'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7852	7991	
==>'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and compile a routine that will validate <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	4501	4606	
==>ile3,  "0000000003\n" ],
      [ 'file4',  $file4,  "0000000004\n" ],
      [ 'file12', $file12, "00000000 <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2676	2771	
==>erl core.  There being no
documentation, one ends up reverse engineering perl source.

We basica <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20385	20481	
==>terface of Relation is entirely object-oriented; you use it by
creating objects from its member c <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24937	25033	
==>terface of Relation is entirely object-oriented; you use it by
creating objects from its member c <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	11844	11954	
==>y $self = shift;

    local $ENV{PERL5LIB};
    my $perl = $self->_command;
    my @inc =`$perl -le "print join <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18899	19003	
==>tes, but which we obviously don't have).


=head1 struct regexp

  typedef struct regexp {

=head2 The re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3098	3206	
==>an.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3098	3206	
==>an.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	132	245	
==>erl6 [ Role ?Key = ::Any, Role Value = ::Any ];

# FIXME - no insert methods
multi method delete ($index ) returns <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21760	21855	
==>for standard Perl 5 regexes.  This
documentation contains a sub-classing tutorial.

=head1 SUB-C <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2552	2694	
==>he numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2552	2694	
==>he numeric
                           # code for /NAMES is 353).
  my $in_login_phase;

  my $self;

  # Sub which sends $msg, flushes $hdl and <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	116	232	
==>ch;
no warnings qw(once);

sub p6ws {
    my $grammar = shift;
    $_[0] = "" unless defined $_[0];
    my $bool = $_ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10056	10170	
==>ubstr target, pos, 2
    if $S0 != '..' goto quant_closure_end
    pos += 2
    max = PGE_INF
    $S0 = substr targ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2927	3041	
==>tax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><F <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2927	3041	
==>tax below is nicer 

    my $data = $cfg<data>();
    my $one = $data<section><one>;
    my $Foo = $data<section><F <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1407	1569	
==>cked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Imp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1407	1569	
==>cked',                          # WebDAV
        424 => 'Failed Dependency',               # WebDAV
        500 => 'Internal Server Error',
        501 => 'Not Imp <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1746	1849	
==>ft;
	
		my $h = Devel::STDERR::Indent::indent();

		warn "flattenning $node " . (eval { $node->struct_eq <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	974	1082	
==>intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	974	1082	
==>intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symmetric_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2955	3077	
==>$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ A <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2955	3077	
==>$0.ucfirst}/;
      %standard_case{$field} = $old;
    }
  }

  my $h = %!headers{$field};
  $h //= [];
  my @old = $h ~~ A <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	118	220	
==>edium.  It stores a finite string and a position
within that string, and it provides the fundamental op <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	118	220	
==>edium.  It stores a finite string and a position
within that string, and it provides the fundamental op <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24054	24166	
==>ct(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20475	20587	
==>ct(groupp => $n);
    }

    $S->error(RPe_SWUNKN, &RxCUR);
  });

  # atom inside an ifthen
  $self->add_handler <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1395	1528	
==>] = $nodes->[ $state[0] ]->( $_[0], $state[1], @_[2,3,4,5,6,7] );
            $state[0]++ unless $state[1];
            last if $_[3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	418	523	
==>ted by concat() still looks like a tree, instead of a 'plain' Match.

- There are no tests yet for <befo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3963	4071	
==>tent ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3963	4071	
==>tent ($self: ) {
    ...
}

method as_string ($self: Str $newline = "\n") returns Str {
    my $content = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2409	2547	
==>ned;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $message";
        
        ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2409	2547	
==>ned;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_line ~= " $message";
        
        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8057	8199	
==>ASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8069	8211	
==>ASH' ) 
    {
        my ( $k, $v ) = each %$n;
        # print "$tab $k => $v \n";
        return '' unless defined $v;  # XXX a bug?
	emit_ru <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1223	1369	
==>nless @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self.set <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1223	1369	
==>nless @path {
            # store the current tree as
            # our last result
            @results.push($current_tree);
            $self.set <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4818	4939	
==>6($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    r <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4818	4939	
==>6($0)+&31)*64+(:16($1)+&63))}/;
            $decoded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    r <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	310	398	
==>clude { +shift->admin->auto_include(@_) };
sub auto_include_deps { +shift->admin->auto_in <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16524	16647	
==>"",[],{},$pos,undef);

    my $rest = sub{
      my $cn = $_[0];
      $$m1->{'val_array'} = $X::cap; #EEEP
      $$m1->{'to <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	15578	15693	
==>"",[],{},$pos,undef);

  my $rest = sub{
    my $cn = $_[0];
    $$m1->{'val_array'} = $X::cap; #EEEP
    $$m1->{'to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3571	3668	
==>:Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Fu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3571	3668	
==>:Functional - An object representing an ordered set of spans.

= SYNOPSIS

  use Set::Infinite::Fu <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	422	554	
==>1, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has Dat <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	422	554	
==>1, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335 );

# has Dat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	9017	9225	
==>rt' ) {
                $export = "push \@EXPORT, '$name';";
            }
        }

        return  $export .
                " " . $n->{op1}{stmt} . 
                ' ' . $name . 
                " <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	755	871	
==>il  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	766	882	
==>il  => $tail,
        capture => [ { subrule => $code } ],
    }
}

# XXX - set non-capture flag
sub non_capturing_su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15272	15377	
==>g, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This strin <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15272	15377	
==>g, the Document itself is the parent of such Nodes.

=item C<$!node_type> - B<Node Type>

Str - This strin <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3908	4022	
==>e64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3908	4022	
==>e64
#   MIME::QuotedPrint
#   Encode
method decoded_content ($self: ) {
    ...
}

method as_string ($self: Str $ne <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	2964	3115	
==>block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3442	3593	
==>block 
        {
            #print "parse-time define sub: ", Dumper( $_[2] );
            #push @subroutine_names, $_[2]->{bareword};
            #pri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1939	2107	
==>($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores th <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1939	2107	
==>($nick);
                           # A permutation object, providing the methods
                           # "reset" and "next".
  my %channels;            # Stores th <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/op/smart2.pl	148	283	
==>endein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /regex/   # ein passender Hash-Key
%a ~~ %b        # glei <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1040	1240	
==>>, 'item', <<>>, @_ );
                    return $a if @_[0] ne ',';
                    @_.shift; 
                }
            },
        pair =>  sub (@_ is rw) {
                my $key = ~@_.shi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8246	8363	
==>s ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8246	8363	
==>s ($self.escape != 0) { return $toencode; }
    
    $string ~~ s:P5:g/&/&amp;/;
    $string ~~ s:P5:g/</&lt;/;
    $s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	18542	18703	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18821	18982	
==>s'}
           ,
         )
       ,
         ruleop::capture( 'rule', \&{'grammar1::rule'} )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	313	443	
==>return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $nam <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	313	443	
==>return unless @val > 0;
        
        return (want.List) ?? @val !! @val[0];
    }
    
    multi method param ($query: Str $nam <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5798	6030	
==>ntry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6262	6494	
==>ntry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$entry ) {

                    ### we found one that satisfied <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9791	9881	
==>);   

is($iFoo->test_iFoo_singleton_method(), 
 '$iFoo::test_iFoo_singleton_method',
 '... <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8547	8643	
==>ailed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8605	8701	
==>ailed $Test::num_of_tests_failed tests of $Test::num_of_tests_run");
    }
    if ($Test::num_of_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2783	2908	
==>. '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 }, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1405	1530	
==>. '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 }, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4562	4722	
==>ontent!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4562	4722	
==>ontent!"
                    if @new > 1;
            } elsif ($content_type !~ m,^multipart/,) {
                $self.remove_content_headers;
                $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5737	5858	
==>ine {$caller.line}";
        };

        $mess;
    }
}


=kwid

role Rule {}
class Pugs::Internals::VRule does Rule {}
cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13520	13618	
==>Perl hash ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13520	13618	
==>Perl hash ref whose key list
('root_nodes') corresponds exactly to the named parameters of
Document <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30049	30145	
==>ute of a Message object, and each
hash value contains the user-readable message text associated w <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30049	30145	
==>ute of a Message object, and each
hash value contains the user-readable message text associated w <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3183	3284	
==>tart => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mo <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3183	3284	
==>tart => $start, end => $end );

= DESCRIPTION

This class represents a single span.

It is intended mo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2820	2918	
==>-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2878	2976	
==>-fatal and maybe shouldn't use eval_is()";
        &Test::is.goto($result, $expected, $desc, :$todo <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	232	338	
==>he pugs tree.
#
use Config;
use File::Copy qw(copy);
use File::Path qw(mkpath);

{
#   copy_all('src', 'bli <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3581	3681	
==>ype',
  'rhs' ,'Type';

node_h 'Param', 'MkParam',
  'isInvocant'   ,'Bool',
  'isOptional'   ,'Bool' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	3003	3125	
==>ral functions seem more confusion than helpful currently
# 
# ### XXX @bools? how is this useful?
# =head2 @bools = $repo-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	7382	7503	
==>ral functions seem more confusion than helpful currently
# 
# ## XXX @bools? how is this useful?
# =head2 @bools = $repo-> <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	2199	2332	
==>e::Installable->Object::Accessor::new      :
            $args->{file}           
                ? JIB::Package::Source->Object::Acce <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	1683	1803	
==>turn $self;
}

sub all_from {
    my ( $self, $file ) = @_;

    unless ( defined($file) ) {
        my $name = $self->na <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4740	4900	
==>clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4740	4900	
==>clone(multidex => $multidex)), &continue);
            }
        };
        if $n < $low {
            $p.parse()($match, $new_continue);
        }
        elsif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29263	29363	
==>e MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29263	29363	
==>e MyApp::L::Eng

And inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_S <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13436	13540	
==>1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13436	13540	
==>1 = $span.grep:{ $^a != 0 & 5 };

grep() is evaluated lazily. This means that side effects, such as "say" <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4908	5021	
==>f $_[0];
  my $type = splice @_, 1, 1;
  my $ref = ref $_[0];
  my $class = "${ref}::$type";

  if ($ref ne __PACK <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11430	11532	
==>::nullary->new("bool"),
		),
	),
);


package main;

use strict;
use warnings;

use Test::More 'no_plan <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5429	5565	
==>"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    " <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5429	5565	
==>"      => chr(929),
    "Sigma"    => chr(931),
    "Tau"      => chr(932),
    "Upsilon"  => chr(933),
    "Phi"      => chr(934),
    " <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2899	2996	
==>ecurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2899	2996	
==>ecurrence => $set1.recurrence, span => $_ ) };
    @set2_span = @set2_span.map:{ $set2.new( recurr <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1507	1607	
==>3 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L< <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1507	1607	
==>3 in particular is often used for obscuring spoilers, 
answers, and punchlines.)

=head1 SEE ALSO

L< <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1023	1130	
==>btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1023	1130	
==>btw)

=head1 DESCRIPTION

Token bucket algorithm is a flexible way of imposing a rate limit
against a stream <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1998	2255	
==>vents);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1998	2255	
==>vents);
                        %events<end_element>('item');                     
                    }                   
                    when rx:perl5{^\s(.*?)$} {
                        if ($in_list) {
                            %events<end_element <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2180	2275	
==>=head3 Functional interface

The Cipher API's functional interface is perhaps the easiest one th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2180	2275	
==>=head3 Functional interface

The Cipher API's functional interface is perhaps the easiest one th <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7928	8060	
==>nvalid version: $dir";
    my $ver = $1;
    $ver =~ s{(\d+)}{sprintf('%09s', $1)}eg;
    return $ver;
}

=head2 assert_ghc_pkg

Asse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2162	2270	
==>s_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2173	2281	
==>s_star,
    );

# XXX - allow whitespace everywhere

# [ <term>[\*|\+] | <term> 
# note: <term>\* creates a t <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	893	1035	
==>!!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\? <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	893	1035	
==>!!
              $.strict_wildcard_slash ?? "[^/]*" !! ".*";
        }
        elsif ( $char eq '?' ) {
            $regex ~= $escaping ?? "\\? <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	954	1054	
==>= Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC:: <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	954	1054	
==>= Net::IRC.new(...);
  $bot does Net::IRC::SeenExt[public => 0];
  # or
  class MyBot does Net::IRC:: <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35812	35910	
==>r> argument and combines it with the
invocant relation into a new Relation, such that all common at <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40362	40460	
==>r> argument and combines it with the
invocant relation into a new Relation, such that all common at <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1837	1955	
==>ef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1837	1955	
==>ef here, the return value is effectively
            # just a copy of $self.request.uri.
            return $HTTP::URI_ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	777	1172	
==>0 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	777	1172	
==>0 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716 <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	5307	5482	
==>) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $t <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	5307	5482	
==>) }, @dirlist;
#     #     }
#     # }
#     for @dirlist -> $dir {
#         next unless $dir.defined && -d -w $dir;
#         $tmpdir = $dir;
#         last;
#     }
#     $t <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6008	6109	
==>s Perl-6 specific workaround is done since $message param can oft
    # be set from a caught exception <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6008	6109	
==>s Perl-6 specific workaround is done since $message param can oft
    # be set from a caught exception <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4698	4792	
==>e( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurr <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4698	4792	
==>e( $set2.recurrence );

    @set1_span = @set1_span.map:{ $set1.new( recurrence => $set1.recurr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1602	1724	
==>ot_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1602	1724	
==>ot_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_node {
        Rosetta::Model::Node <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16996	17125	
==>r)/

  # char classes
  /[\w\d][a-zaeiou]/ => /[\w][a-z]/

  # redundancy
  /^\n?\s+/          => /^\s+/
  /[\w]/             => / <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	1370	1485	
==>>to_native());
}

sub multiply {
    my ($left, $right) = @_;
    (blessed($right) && $right->isa('type'))
        | <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8696	8808	
==>val_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto HANDLER_CALL <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2896	3001	
==>@+_;
}

# copied from S29draft.pod r8593.
multi Array::push (@array is rw ; *@values --> Int ) {
    Array <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto1.pl	101	214	
==>);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto2.pl	97	210	
==>);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

print "$wer hat einen $haustier\n";
print "$wer mag <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	2515	2640	
==>d( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be les <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	2515	2640	
==>d( $end ) { $start = -Inf }
        elsif defined( $start ) && !defined( $end ) { $end = Inf }

        die "start must be les <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11895	11999	
==>es of their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=ov <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11895	11999	
==>es of their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=ov <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	12844	12975	
==>min,$max}" }
  }

  sub qr {
    my $self = shift;
    join "", $self->{data}->qr, $self->raw;
  }

  sub visual {
    my $self = sh <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Attribute.pm	4	101	
==>kage Perl6::MM::Attribute;

use Perl6::Core::Symbol;

package attribute;

use strict;
use warnings <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5043	5159	
==>:Grammar::Term.single_quoted'}->() ,} }
        ) ),
        q(") => Pugs::Compiler::Regex->compile( q(
            < <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3155	3411	
==>::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::I <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3155	3411	
==>::Interface::Value

###########################################################################
###########################################################################

class Rosetta::Interface::Variable {

    # External packages used by the Rosetta::I <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2392	2530	
==>:sign ( Num $x = CALLER::<$_> --> Int ) {
   if !defined($x) { return undef };
   if $x < 0       { return -1    };
   if $x > 0       { re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2930	3049	
==>= $self->autoload;
    $self->preload;

    # Unregister loader and worker packages so subdirs can use them again
    de <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4210	4355	
==>$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4210	4355	
==>$! {
      $h = $0;
      $p = $1 || 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connec <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2436	2542	
==>od commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a paramete <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2436	2542	
==>od commit (Str $name) {...}

=pod

C<subrule($code)> executes $code, passing the match object as a paramete <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25120	25213	
==>tem C<All tests successful.\nFiles=%d,  Tests=%d, %s>

If all tests are successful some statis <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	569	689	
==>(), exit 0 if $Config{precompile};
usage();
exit 1;

sub setup_output {
    if ($Config{output}) {
        open OUT, "> $ <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	186	290	
==>r);
@EXPORT = qw(assert);


=head1 NAME

Test::Harness::Assert - simple assert

=head1 SYNOPSIS

  ### FO <==
2	/Users/nnunley/pugs/util/importgraph.pl	1206	1310	
==>les{$module_name} = [\%imports, $exports];
}, 'src';

#delete $modules{$_} for @ignore;
for my $mod (valu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2287	2411	
==>and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::IS <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2287	2411	
==>and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::IS <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	2884	2992	
==>._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $s <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	2884	2992	
==>._get_union( $self.closure_next, $set.closure_next, -1 ),
        closure_previous =>    $self._get_union( $s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	27882	27978	
==>rog)->reganch &= ~ROPT_COPY_DONE)
 #define RX_MATCH_COPIED_set(prog,t)	((t) \
					  ? RX_MATCH_C <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	66	159	
==>warnings;

use Test::More 'no_plan';
#use Test::NoWarnings;

use Blondie::TestPrograms qw/smok <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	328	442	
==>for (1..32) { $id~=chr(65+int(rand 26)); }
    return($id);
}

sub PageHeader (
    +$status = '200 OK', 
    +$con <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1188	1309	
==>t \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1188	1309	
==>t \"\\nVariables: args[\", join(\",\",\@_) ,\"] \\n\";\n" .
        # "    print \"         : \@{\$_[2]}} \\n\" if defined <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2424	2526	
==>nd we can stepwise replace p5 ones with p6 ones _without_ changings its name.



of course that has the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2331	2431	
==>nd we can stepwise replace p5 ones with p6 ones _without_ changings its name.

of course that has the <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6135	6291	
==>method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6135	6291	
==>method map ( $array: Code $code ) { 
        my $ret = $array; 
        Perl6::Value::List.new(
                cstart => coro {
                        my @ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2050	2192	
==>able );
                for my $depends ( list_dependencies( $info ) ) {
                    ### XXX split depends: lines and objectified depen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3423	3557	
==>able );
            for my $depends ( list_dependencies( $info ) ) {
                ### XXX split depends: lines and objectified depen <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6652	6760	
==>( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6652	6760	
==>( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code.new( recurrence => $param <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26587	26681	
==>=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26587	26681	
==>=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Locale::KeyedTex <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5956	6057	
==>($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Ba <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10213	10314	
==>($Bar->name, 'Bar', '... $Bar got the right method return value');
is($Bar->superclass, $Foo, '... $Ba <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11502	11622	
==>ecurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence that are not in the given recurre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11502	11622	
==>ecurrence.

- `difference( $recurrence )`

Returns only the elements in this recurrence that are not in the given recurre <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2044	2233	
==>{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () ret <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2044	2233	
==>{$var_name};
}

method get_msg_vars () returns Hash of Any {
    return {%!msg_vars};
}

######################################################################

method as_debug_string () ret <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1286	1393	
==>-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub se <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1286	1393	
==>-colon or ampersand";
    }
    $QS_DELIMITER = $delimiter;
}

# set GET and POST parameters encoding
sub se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5880	6008	
==>:Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.conte <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5880	6008	
==>:Message::parse($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.conte <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1887	2015	
==>s Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Contex <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1887	2015	
==>s Bit $.is_ref;
    has Bit $.is_rw;
    has Bit $.is_delayed;
    
    has Str $.name;
    has Perl::Compiler::PIL::Util::Contex <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13765	13869	
==>e_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This r <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13765	13869	
==>e_entities($string, { nb => "@", nbsp => "\xA0" }, 1);
   print $string;  # will print "foo bar"

This r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8592	8716	
==>(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8592	8716	
==>(
                    backtrack => $marks{$name}));
    });
}

method subrule (Code $code) {
    $.Parser.new(parse => sub ($ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4440	4557	
==>l( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.va <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7917	8034	
==>l( $attrs ) === any( $!heading ));

    return Relation.new(
        heading => $attrs,
        body => set( $!body.va <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4542	4643	
==>span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4542	4643	
==>span;

    my @set1_span = $span1.difference( $span2 );
    my @intersect = $span1.intersection( $span <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2672	2770	
==>ethod day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @P <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2672	2770	
==>ethod day_of_year () returns Int {
    my @doy := _is_leap_year($.year) ?? @PreviousMonthDoLY !! @P <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1267	1401	
==>s) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1267	1401	
==>s) = @_;
    return if $class->pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub unimport {
    my ($class) = @_;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9785	9897	
==>cted;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane st <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9785	9897	
==>cted;

    debug "Disconnecting from $host:$port... ";
    try { $!socket.close }
    # We want to have a sane st <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	456	592	
==>here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $sc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	456	592	
==>here

        my Int $dosish = ( $?OS eq 'MSWin32' or $?OS eq 'os2' );
        &readlink := { undef } if $dosish;

        unless ( ( $sc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40462	40567	
==>her
credits. Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40462	40567	
==>her
credits. Locale::KeyedText is distributed in the hope that it will be
useful, but WITHOUT ANY WARRANTY <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2381	2499	
==>is program at any time, it'll continue when you run it again.

Note: This program should be run as unpreviliged user, i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	26118	26223	
==>ample.  Each attribute name is a character
string.

=item C<$!body> - B<Relation::Example Body>

Set of Ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27848	27947	
==>sh () returns Hash>

This method returns a deep copy of this Relation::Example as a Hash ref of 2
el <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1318	1426	
==>:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$ <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1318	1426	
==>:minimal> argument, which does the same thing
as it does above in C<quantify>.

=cut

method optional ($p, :$ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1619	1712	
==>* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1619	1712	
==>* { return "package " . $<grammar_name>() . ";\nuse Pugs::Compiler::Rule;\nuse base 'Pugs::Gra <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	2320	2516	
==>$old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (wa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	2320	2516	
==>$old = $$old if $old.ref eq "Scalar";
                    
                    return $old;
                }
              },
        STORE => -> Str $content, Bool $keep? {
                if (wa <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	5296	5413	
==>utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$ <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	5296	5413	
==>utf82hex = -> $num {
        if ($num < 128) { $dec2hex($num); }
        elsif ($num < 2048) { $dec2hex(192+$num/64)~$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17222	17352	
==>,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_hand <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17222	17352	
==>,           # (optional, defaults to 0)
  );
  
  # Register callbacks
  $bot.add_handler("INVITE",   \&on_invite);
  $bot.add_hand <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16328	16477	
==>s;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offse <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20754	20903	
==>s;

        struct reg_substr_data {
          struct reg_substr_datum data[3];
        };
        struct reg_substr_datum {
            I32 min_offse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	3895	3990	
==>dent}[0]{ident};
		return { require_bareword => $() ,} 
	}
RULE
*{'use_rule'} = Pugs::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	35	137	
==>ugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
u <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	166	268	
==>ugs::Grammar::Base', 'Pugs::Grammar::Rule', 'Grammar::Perl6Init';
use Runtime::RuleCompiler qw(rule);
u <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8331	8447	
==>this is usually not an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a s <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8331	8447	
==>this is usually not an issue
# since each time you either add a child
# or create a tree you are doing it with 
# a s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	440	579	
==>y { 

    return unless $_[0];

    return { 

        bool  => 1,

        match => { '.'=> substr($_[0],0,1) },

        tail  => substr($ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	422	556	
==>y { 
    return unless $_[0];
    return { 
        bool  => 1,
        match => { '.'=> substr($_[0],0,1) },
        tail  => substr($ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14521	14637	
==>all Perl::Tidy here? - see v6.pm ???
            'my $p6 = Pugs::Compiler::Perl6->compile( ' . _emit( $n->{exp1} ) . <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25163	25260	
==>of backup).  Regmlen is
 * supplied because the test in pregexec() needs it and pregcomp() is comp <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21264	21365	
==>It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21264	21365	
==>It ought to do that.

=head1 COPYRIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmi <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	402	511	
==>use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $nod <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	402	511	
==>use Perldoc::DOM;

 $kwoc = Perldoc::DOM.new();

 my $body = $kwoc.root;
 my @next = $body.children;

 my $nod <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2907	3141	
==>::sort(                 @values is rw,
                                SortCriterion  @by
                              ;           Bit :$inplace
                             ) returns Array

 multi sub Array::sort(                 @va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	11018	11155	
==>t( \n" .
                "        Runtime::Perl5::RuleOps::constant( '$prefix:<$id>' ),\n" .
                "        \\&Grammar::Perl6::w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Term.pm	18	118	
==>rammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runti <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	18	114	
==>rammar::Term;
use strict;
use warnings;
use base qw(Pugs::Grammar::BaseCategory);
use Pugs::Runti <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5290	5400	
==>le_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ref);
} <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5290	5400	
==>le_content;
    return;
}

my method stale_content () {
    undefine($!content);
    undefine($!content_ref);
} <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7554	7659	
==>f.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorizat <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7554	7659	
==>f.header("WWW-Authenticate") }
method authorization ($self: )             is rw { $self.header("Authorizat <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7523	7684	
==>use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7523	7684	
==>use Data::Dumper; Dumper($new_match)};
            }
            else {
                $new_match->{capture} = $_[0];
            }
        }
        $new_match- <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	1386	1493	
==>use base qw/Blondie::Reducer::DynamicScoping/;

    ...

    $self->enter_scope; # opens a new scope

    $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27542	27638	
==>his doesn't mean you can use them on C<qr//>, but rather
that you can write C<(?u:...)> or C<(?u) <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1937	2058	
==>orrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    r <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1937	2058	
==>orrow () returns Date {
    return Date.new( epoch => time ).add( days => 1 );
}

method yesterday () returns Date {
    r <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2396	2511	
==>s Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SEL <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2396	2511	
==>s Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SEL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9346	9436	
==>msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9346	9436	
==>msg_key!) returns Str {

    $?SELF!_assert_arg_str( 'get_template_text_from_loaded_module' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9078	9189	
==>SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMP <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9078	9189	
==>SELF!_die_with_msg( 'LKT_T_FAIL_LOAD_TMPL_MOD',
            { 'METH' => 'load_template_module',
            'TMP <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	515	613	
==>at this is nothingmuch's first article that he read from cover
# to cover with no hand holding, and <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	14968	15064	
==>ests);
}

=item B<_mk_leader>

  my($leader, $ml) = _mk_leader($test_file, $width);

Generates th <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19674	19783	
==>t>
    | <ReturnStatement>
    | <WithStatement>
    | <LabelledStatement>
    | <SwitchStatement>
    | <Thro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7805	7956	
==>index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7805	7956	
==>index_type' => 'UNIQUE' }, [
                [ 'table_index_field', { 'name' => 'person_id' } ],
            ] ],
        ] ]
    );

    # Define and c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27602	27761	
==>"\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	27881	28040	
==>"\:" )
       ,
         ruleop::constant( "lang" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::constant( "perl5" )
       ,
         r <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8274	8381	
==>umber of items inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8274	8381	
==>umber of items inserted.

It is not fatal to insert an item which is already inserted.

=head2 C<$set.remove <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5223	5328	
==>get($url)

The get() function will fetch the document identified by the given URL
and return it.  It retur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5223	5328	
==>get($url)

The get() function will fetch the document identified by the given URL
and return it.  It retur <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2099	2198	
==>$self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $othe <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2099	2198	
==>$self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($self: Set $othe <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1864	1977	
==>L::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1864	1977	
==>L::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Expression';
    }
    method vtype () <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12181	12299	
==>end );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12181	12299	
==>end );
    #  [2005-07-03T00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19542	19644	
==>ther than user-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19542	19644	
==>ther than user-defined
relation variables.  In SQL terms, you create or alter tables by adding or
updat <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1275	1394	
==>rl_version == 6
      ? 'blib6'
      : die "Perl version '$perl_version' is bad. Must be 5 or 6.";
    my $path = File: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	12123	12231	
==>> teststdin; };
	    if ($args{verbose}) {
		my $stdindisplay = $stdin;
		$stdindisplay =~ s/\n/\n\#/g;
		pri <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6692	6795	
==>?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # m <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6750	6853	
==>?? " - $desc" !! "";
    $out = "$out <pos:$?CALLER::CALLER::POSITION>" if $Test::ALWAYS_CALLER;
    # m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	31565	31665	
==>but is
still allowed, so I delete its handler too.  You can use this class to
ensure that there is ar <==
2	/Users/nnunley/pugs/util/testgraph.pl	981	1085	
==>mary of a YAML test run. Options:

   --inlinecss, -e      inline css in HTML header (for broken webserve <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8284	8391	
==>ike object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8284	8391	
==>ike object destruction, but let's not make too many 
assumptions.

=back 4

=head1 DISCLAIMER

This code has <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2074	2267	
==>t         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    metho <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2074	2267	
==>t         //= sub {};
        $.cend           //= sub {};    
    }

    method start         () { &{$.cstart}() }  # == shift
    method end           () { &{$.cend}() }    # == pop

    metho <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10883	11020	
==>e {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10883	11020	
==>e {
            $text .= $part;
        }
    }
    push @blocks, [$text, {%$context}, [@classes]]
        if length $text;
    return @bl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7776	7876	
==>>, in order. 

If C<@indextests> are provided, only elements whose indices match
C<$index ~~ any(@ind <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8852	8952	
==>with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The fo <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8852	8952	
==>with a continuous span (-Inf..Inf).

- `empty_set()`

Creates an empty set.

= OBJECT METHODS

The fo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1200	1303	
==>t
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    doe <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1200	1303	
==>t
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemContext
    doe <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3085	3190	
==>ecurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3085	3190	
==>ecurrence => $union_recurr,    span => $_ ) };

    return ( @set1_span, @set2_span, @intersect ).sort:{ $ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	5195	5295	
==>PIL1CPerl5::NodesInfo;
our %node_named;
our @nodes;
our %nodes_of_type;
sub init {
    my $list = PIL <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	456	595	
==>hod plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./fi <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	456	595	
==>hod plugins {
    my %plugins;
    for @*INC -> $dir {
        # XXX: add blib support
        for $.search -> $search {
           for ./fi <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29284	29385	
==>inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = ( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29284	29385	
==>inside the text Template file "MyApp/L/Fre.pm" you can have:

    my Str %TEXT_STRINGS is readonly = ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6576	6713	
==>on( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not im <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6576	6713	
==>on( [ null(), fail() ] ) \n"
        if $str eq ':';
    return "$_[1] end_of_string() \n" 
        if $str eq '$';
    die "'$str' not im <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7558	7659	
==>:Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7558	7659	
==>:Base64::encode([~] (1..($size * 3).map:{ chr(rand(256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1961	2066	
==>$class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1961	2066	
==>$class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	13938	14052	
==>$S, $neg, $how) = @_;
    return $S->force_object(anyof_class => cntrl => $neg, \$how);
  });

  # digit POSIX clas <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11384	11478	
==>erator::nullary->new("int"),
			type::operator::nullary->new("bool"),
		),
	),
);


package mai <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16446	16547	
==>.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list conta <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16446	16547	
==>.

- `complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list conta <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2738	2866	
==>relude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2955	3083	
==>relude_file-cached.pl\n";
        ## require "$prelude_file-cached.pl";
      }
    }


    {
        my $filename = shift || die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1692	1789	
==>hree node forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1624	1718	
==>hree node forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5320	5430	
==>t {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5320	5430	
==>t {
    my $path = %*ENV{'PATH'} || %*ENV{'Path'} || %*ENV{'path'};
    return split(';', $path).map:{ $_ eq '' <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	5030	5167	
==>cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operatio <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	5030	5167	
==>cis_infinite => sub { $size == Inf },
                    cis_contiguous => sub { Bool::False },
        );
    }

    # --- list operatio <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8652	8757	
==>$h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: S <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8652	8757	
==>$h, "Basic " ~ MIME::Base64::encode("$user:$passwd", ""));
    });
}

method redirect (::?CLASS ::class: S <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34585	34868	
==>>get('$class')->id
                      )->and(
                          block->new($e, sub {
                              my $e = shift;  
                              $e->set('$return' => bit->new(1))
                          })
                      );
                    $e- <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	33993	34246	
==>>get('$class')->id
                  )->and(
                      block->new($e, sub {
                          my $e = shift;
                          $e->set('$return' => bit->new(1))
                      })
                  );
                $e- <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	12843	12948	
==>fields removed is returned.

Note that if you pass in multiple field names then it is generally not
possib <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	12843	12948	
==>fields removed is returned.

Note that if you pass in multiple field names then it is generally not
possib <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	383	529	
==>ignature from S29draft.pod r8593.
# XXX Prim.hs has this as (rw!Array).  Why rw?
# \\n   List      pre     keys    safe   (rw!Array)\
multi Array:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5205	5320	
==>} }, $tree;
    $rx->{tree} = $self->{data};
  }
}


{
  package Regexp::Parser::anyof_char;
  push @ISA, qw( Regexp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28048	28143	
==>var_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28048	28143	
==>var_name (a
string).

=item C<get_msg_vars()>

This method returns all Message Variable names an <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	150	252	
==>he system grammar to 'Grammar'

# XXX - use method calls

#   <audreyt> because all grammars inherits f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	143	243	
==>he system grammar to 'Grammar'
# XXX - use method calls
#   <audreyt> because all grammars inherits f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25596	25712	
==>ted, if it is used
as an exception payload).  The key is intended to be read by a machine and
mapped to a user-readab <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25596	25712	
==>ted, if it is used
as an exception payload).  The key is intended to be read by a machine and
mapped to a user-readab <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23364	23456	
==>$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23364	23456	
==>$botE<lt>operE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1586	1679	
==>-----------------------------------------------------------------------
## informational metho <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1586	1679	
==>-----------------------------------------------------------------------
## informational metho <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4172	4311	
==>e,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        cl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4172	4311	
==>e,
    )
}

method complement ($self: ) {
    return $self.new( 
        closure_next =>        &{ $self._get_complement_next }, 
        cl <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	49	176	
==>nce.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Co <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	49	176	
==>nce.pm package
use Set::Symbols;

class Span-0.01
    does Set::Symbols
{
    use Span::Num;
    use Span::Int;
    use Span::Co <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10941	11040	
==>d1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10941	11040	
==>d1 DESCRIPTION

=head1 METHODS

=over 4

=item B<new ($node?) returns Tree>

=item B<node ($self: $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6153	6318	
==>nst, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6153	6318	
==>nst, 
                tail => substr( $_[0], $_[5]+$lconst ),
            };
        }
        return $_[3] = { bool => 0 };
    }
}

sub perl5 {
    my $rx = qr(^($_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6443	6547	
==>sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: *@sibling <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6443	6547	
==>sibling to a ROOT tree";
    $self.parent().add_child($sibling);
}

method add_siblings ($self: *@sibling <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	3141	3255	
==>ad1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!' <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	3141	3255	
==>ad1 SYNOPSIS

    class MyServer is HTTP::Server::Simple;

    method handler {
        $.remote.say('Hello World!' <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6767	6888	
==>losure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6767	6888	
==>losure2 }( $x );
        return ( $n1 <=> $n2 ) == $direction ?? $n1 !! $n2;
    }
}

submethod _get_intersection ( $closu <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	948	1149	
==>changed,
    #      so we need to mark as stale some obj files to trigger a rebuild.
    #      The alternative seems to be to delete them *and* the pugs
    #      executable.
    print STDERR "Trigger <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14576	14676	
==>e the code support for those needs. The
following is a list of future features planned for this modul <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14634	14734	
==>e the code support for those needs. The
following is a list of future features planned for this modul <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6881	7014	
==>q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6881	7014	
==>q($char) )\n";
}
sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1339	1433	
==>xxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1339	1433	
==>xxd") );

use Benchmark;
use Pugs::Compiler::Rule;
my $rpcr = Pugs::Compiler::Rule->compile('[a <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	54	149	
==>which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	54	149	
==>which will eventually be object attributes)

my %PARAMS;

my $REQUEST_METHOD;
my $CONTENT_LENGTH <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19959	20064	
==>turn I<"uname:password"> as a single string value.

When used to set the header value, it expects two argu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19959	20064	
==>turn I<"uname:password"> as a single string value.

When used to set the header value, it expects two argu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1800	1904	
==>>}; close F;
    my $type = $compile =~ /\.pil$/ ? 'pil_code' : 'p6';
    print Perl6::Run::OnPerl5::X1:: <==
2	/Users/nnunley/pugs/inc/Module/Install/Can.pm	179	307	
==>strict;
use Config ();
use File::Spec ();
use ExtUtils::MakeMaker ();

# check if we can load some module
sub can_use {
    my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1167	1276	
==>> sub {...}, closure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These methods are disa <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1167	1276	
==>> sub {...}, closure_previous => sub {...} )`

Creates a bidirectional recurrence set.

These methods are disa <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6547	6645	
==>=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6547	6645	
==>=item B<pod2html (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. 

You can e <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	131	229	
==>ush_header init_header remove_header remove_content_headers header_field_names scan
    date expire <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	131	229	
==>ush_header init_header remove_header remove_content_headers header_field_names scan
    date expire <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12759	12859	
==>f code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12817	12917	
==>f code and runs it. It then smart-matches (`~~`) any `$!`
value with the `$expected` value.

- `dies_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10338	10506	
==>person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10338	10506	
==>person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface::Routine $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	1437	1568	
==>non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2013	2144	
==>non_nest_brack) }xgc) {
      my $n = substr($1, 1, -1);
      my @names = split /;/, $n;

      if ($cc) {
        $S->error(0, "\\ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	7579	7707	
==>ribute names of this relation."
        if any( $attrs ) === any( $!heading );

    return Relation::Example.new(
        heading <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Alternative.pm	563	710	
==>r), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the field <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1047	1194	
==>r), return );

    ### XXX check validity of the struct
    
    my $obj = $class->SUPER::new;

    ### XXX add a fields accessors for all the field <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9105	9214	
==>tional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9101	9210	
==>tional',
        }->{$quantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	614	789	
==>_PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} }
            ) );
    __PACKA <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	2709	2843	
==>ain );
    }	
    elsif $tree[0] eq '"PExp"' | '"PExpr"' {
        $ret = traverse_ast ( $tree[1][0][1] );
    }	
    elsif $tree[0] eq <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	140	242	
==>eturns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is expor <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	140	242	
==>eturns Str is export { %*ENV<SERVER_SOFTWARE> || 'cmdline'   }
sub server_port     returns Int is expor <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25032	25159	
==>y ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	25587	25714	
==>y ($class, $rx, $code) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'assertion <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	314	419	
==>our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @pa <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	314	419	
==>our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrule, $tab, @pa <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5011	5162	
==>->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4870	5021	
==>->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($self, $value);
        }
    }
    re <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	14280	14382	
==>ontinuous span, because the "separation" 
between values would be very close to zero:

    $iterator.ne <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	14280	14382	
==>ontinuous span, because the "separation" 
between values would be very close to zero:

    $iterator.ne <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6035	6141	
==>Value::String $v) {
    my $s = ~$v;
    return NaN if $s !~ rx/^<TheGrammar.StringNumericLiteral>$/;
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1338	1439	
==>main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in m <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1338	1439	
==>main motivation to
implement it. Other rate limiters on CPAN keep track of I<ALL> incoming
events in m <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	9649	9779	
==>+= $results{max};
        $tot{ok}          += $results{ok};
        $tot{todo}        += $results{todo};
        $tot{sub_skipped} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	2426	2518	
==>lar>)<?p6ws>?\=<?p6ws>?$<value>:=(<varhash>)<?p6ws>?\;
        { return { assign_hash_to_scal <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	751	860	
==>: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	751	860	
==>: Span.pm TODO

  Optimizations:
    * create a store for single elements (Span::Singleton)
    * use binary s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4842	4941	
==>mentation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4982	5081	
==>mentation for Perl 6 Regex.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6470	6585	
==>hannels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6470	6585	
==>hannels>;
      }
    });

    # Somebody was kicked. Update %channels and %users accordingly.
    ./add_handler("KI <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11030	11151	
==>\$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11180	11301	
==>\$ \( \) < (.*?) > /$1 match::get( \$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2448	2589	
==>( $n )
            if $n->{fixity} eq 'prefix';
        return postfix( $n )
            if $n->{fixity} eq 'postfix';
        return circ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21088	21195	
==>be present in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21088	21195	
==>be present in the header
after the call.  All values ought to be kept.

Passing a value of C<undef> to heade <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	780	883	
==>h}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self-> <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2615	2718	
==>h}/$self->{dispatch}.pm";
        File::Path::mkpath("$self->{prefix}/$self->{author}");
        $self-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24903	24998	
==>turn
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a sim <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24903	24998	
==>turn
value is undefined.

=head2 The Locale::KeyedText::Message Class

A Message object is a sim <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15504	15610	
==>and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15504	15610	
==>and time at which the message was
originated. I<E.g.>:

  $h.date = time;  # set current date

=item $h.exp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14173	14312	
==>YAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14173	14312	
==>YAPP_PROMPT' ) );

        # Read two numbers from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3875	3993	
==>tching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4092	4210	
==>tching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    my $flags = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	8543	8673	
==>'$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Cod <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	8543	8673	
==>'$name' in scope";
        &continue($match.clone(
                    backtrack => $marks{$name}));
    });
}

method subrule (Cod <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	652	822	
==>=$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx: <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	652	822	
==>=$input -> $line is copy {
                ++$cnt;

                # Skip comments and empty lines
                # Workaround for next
                if ( $line ~~ rx: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7414	7558	
==>ild_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7414	7558	
==>ild_node_tree(
        [ 'table', { 'name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ] <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	946	1048	
==>e {
  process_list();
}

exit;

sub process_upload {
  print "Content-Type: text/plain\n\n";

  limit_r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	931	1068	
==>ram->{pos};
    $self->{p}        = delete $param->{p}    unless defined $self->{p};
                        # default = undef;
    $self- <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	184	294	
==>mp/graph.png

use warnings;
use strict;

use GD::Graph::lines;
use Time::Piece;
use Time::Seconds;

local $_;
m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5840	5940	
==>failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

Al <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5840	5940	
==>failure) is returned

=item Numeric Context

The HTTP status code is returned

=item Item Context

Al <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	890	1010	
==>(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where th <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4368	4488	
==>(Str) of Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1869	2038	
==>args = check( $tmpl, \%hash ) 
                        or error( Params::Check->last_error ), return;
        
        ### XXX need better checks
        
        ### XXX <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	4782	4899	
==>es to it.
  --cdroot=$cdroot
    --cdroot is the directory which will later be the / of the CD.
  --iso=$iso
    The f <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11220	11330	
==>. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11220	11330	
==>. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator version of C<.includ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9856	9989	
==>$self->{rx};
    my $st = $rx->{stack};

    # this is a branch inside an IFTHEN
    if (@$st and @{ $st->[-1] } and $st->[-1][-1]->ty <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1868	1983	
==>hift;
    my $features = ( $self->{'values'}{'features'} ||= [] );

    my $mods;

    if ( @_ == 1 and ref( $_[0] ) <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	14105	14202	
==>}
comb: generic($$) = { generic($.fun) + generic($.param) }

comb: type($$) = {
	my $f = type($.fu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8956	9065	
==>$difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_di <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8956	9065	
==>$difference   = $set ∖ $set2;  # or "-"

  # symmetric difference doesn't have a maths operator
  my $sym_di <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15762	15863	
==>tores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15762	15863	
==>tores an ordered list of all this
Node's child Nodes, if it has any.

=back

This is the main Node con <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3120	3222	
==>$result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is copy) <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3120	3222	
==>$result = $self.new( spans => $span );
    return $result.set;
}

method compare ($self: $span is copy) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1095	1227	
==>e'))
        || confess "Key must be a str type";
    return $self->{$key->to_str->to_native};
}

sub store {
    my ($self, $key, $v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20228	20321	
==>Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20228	20321	
==>Same as authorization_basic() but will set the "Proxy-Authorization"
header instead.

=back

= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23235	23341	
==>ults or associations.  Or alternately, the other
packages require your text data to be stored in a format o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23235	23341	
==>ults or associations.  Or alternately, the other
packages require your text data to be stored in a format o <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6884	7056	
==>MS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub l <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6884	7056	
==>MS{"$key"};
            $list.push(url_decode($value));
        }
        else {
            %PARAMS{"$key"} = [ url_decode($value) ];            
        }
    }  
}

sub l <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8066	8171	
==>ly.  This method should be as thorough as 
possible; for example, it should not merely set arrays to C<()> <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8066	8171	
==>ly.  This method should be as thorough as 
possible; for example, it should not merely set arrays to C<()> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	515	624	
==>Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	573	682	
==>Int $number_of_tests) returns Void is export {
    $Test::testing_started = 1;
    $Test::num_of_tests_planned <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	24938	25033	
==>free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	25379	25474	
==>free->new,
			type::variable::free->new,
		),
	);
	is($type->stringify, "∀α. ∀β. ∀γ. α <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3175	3273	
==>X - kludge
rule element_expr { [ \[ <-[\]]> \] | \{ <-[\}]> <'}'> ] <element_expr>? }

rule null_te <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3720	3881	
==>s $avail{ $depends->{package} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things here too
            sys <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4648	4759	
==>@_;

    # Read original module source code instead of taking from filter,
    # because we need all the lines i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4648	4759	
==>@_;

    # Read original module source code instead of taking from filter,
    # because we need all the lines i <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	0	164	
==>class Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reaso <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	0	164	
==>class Test::Builder::Test-0.2.1
{
    method new (
        $number,     
        $passed      = 1,
        $skip        = 0,
        $todo        = 0,
        $reaso <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8354	8498	
==>ule( $_[0], $_[1] );
    #return "$_[1] capture( '$_[2]',\n" .
    #       emit_rule( $_[0], $_[1] ) . "$_[1] )\n";
}        
sub node::capturing <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21892	22004	
==>($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18313	18425	
==>($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(suspend <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2413	2537	
==>pecific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.ch <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2413	2537	
==>pecific paths
                # first (i.e. longest path first)
                for $cookies.keys.sort:{ $^b.chars <=> $^a.ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10951	11106	
==>de_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10951	11106	
==>de_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    'arg_type' => 'RETURN' } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18583	18713	
==>@{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub { <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15004	15134	
==>@{ $S->{next} };
    &RxPOS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub { <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	3580	3687	
==>PERL = .*)/$1 -Iinc/m;

    open MAKEFILE, '> Makefile' or die $!;
    print MAKEFILE "$preamble$makefile$po <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	6227	6324	
==>nstances of subclasses

my $iBar = $Bar->new;
is($iBar->id, 6, '... $iBar is the sixth id');
is($i <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	2439	2593	
==>r} if $cache{$dir};
    
        my $obj     = $class->SUPER::new;
    
        ### XXX tidy up
        {   $obj->mk_accessors( qw[available registered_alt <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	94	193	
==>::Core::Bit;

package str;

use strict;
use warnings;

use Carp 'confess';
use Scalar::Util 'blessed <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3053	3157	
==>ess_perl_type($node);
			warn "type of " . qprintable($node) . " is $type";
			return Blondie::TypeSafe:: <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7232	7374	
==>pture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?subs <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7232	7374	
==>pture} ) {
            if ( defined $match->{tail} ) {
                my $len = length( $match->{tail} );
                my $head = $len?subs <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3211	3330	
==>eturn "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4060	4179	
==>eturn "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list = get_data( $_[0 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	28	151	
==>ule HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	28	151	
==>ule HTTP::Status-0.0.1 {
    my %StatusCode = (
        100 => 'Continue',
        101 => 'Switching Protocols',
        102 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1842	1953	
==>f: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield th <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1842	1953	
==>f: Set $other) returns Bool {

    # for some reason, directly returning this expression does not
    # yield th <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10722	10820	
==>lass $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10722	10820	
==>lass $class: *%options) {
    my $self = $class.new(:mode<enciphering>, *%options);
    return sub( <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	471	572	
==>::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this: <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	471	572	
==>::Node - node in a Perldoc::DOM tree

=head1 SYNOPSIS

 # construct a Perldoc::DOM fragment from this: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Block.pm	683	785	
==>{ shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1273	1375	
==>{ shift }

# conversion to other native types
sub to_num { num->new((shift) + 0)  }
sub to_str { str->n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13469	13568	
==>$h.header_field_names

Returns the list of distinct names for the fields present in the
header.  The <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13469	13568	
==>$h.header_field_names

Returns the list of distinct names for the fields present in the
header.  The <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2348	2465	
==>rgs{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	4608	4725	
==>rgs{path}  = $args{name};
        $args{path}  =~ s!::!/!g;
    }
    $args{file}     ||= "$args{base}/$args{prefix}/$ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2723	2839	
==>ash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2723	2839	
==>ash ref as expected,]
           ~ q[ but it has no elements.],

    'LKT_ARG_EMP_STR'
        => q[<CLASS>.<METH>(): <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	570	681	
==>: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <t <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	570	681	
==>: $length\r\n\r\n");
    $.remote.print($doc);
}

method handle_request {
    my $doc = "
<html>
  <head>
    <t <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2403	2499	
==>backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2403	2499	
==>backtracking engines.

=cut

method commit (Str $name) {...}

=pod

C<subrule($code)> executes $c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	7789	7937	
==>$_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	7789	7937	
==>$_[3] = $new_match;
    }
}

# experimental!
sub try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### abortable m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24352	24461	
==>f $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20773	20882	
==>f $S->can($c);
    return $S->object(exact => $c);
  });

  # alternation branch inside ifthen
  $self->add_ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14179	14276	
==>ason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14179	14276	
==>ason") }
  method nick(Str $newnick) { ./:enqueue("NICK $newnick") }
  method who(Str $target)   { <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10496	10600	
==>ext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10496	10600	
==>ext) ~ $self.finishstr();
}
method decipher(Class $class: Str $ciphertext, *%options) {
    my $self = $c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19062	19172	
==>ave = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19062	19172	
==>ave = $original_node.export_as_hash();
    MyPersist.put( $hash_to_save );

    # When restoring.
    my $hash_ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11641	11753	
==>ne ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\". <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11641	11753	
==>ne ~~ rx:P5/^PING ?:?(.*)$/ {
      ./:send("PONG $0");
    } else {
      debug "No handler found for \"$line\". <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	968	1082	
==>print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	968	1082	
==>print $match->[0][0];   # "a"
    }

Named rules are methods in a Grammar:

    package MyGrammar;
    use Pugs::Co <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2915	3080	
==>y {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2915	3080	
==>y {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23709	23806	
==>ctor, this module won't simply
send all commands immediately to the server, but creates a queue, w <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23709	23806	
==>ctor, this module won't simply
send all commands immediately to the server, but creates a queue, w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4227	4448	
==>c.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next pos <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4227	4448	
==>c.split(/\s*,\s*/) -> $cc_dir {
                    if ($cc_dir ~~ rx:i/max-age\s*=\s*(\d+)/) {
                        return $0;
                    }
                }
            }
        }
        
        # Next pos <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30592	30690	
==>eturn a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has all of <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35143	35241	
==>eturn a new tuple/Mapping whose attributes match
those of C<$heading>.  The new Relation has all of <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16097	16305	
==>(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@gr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16376	16584	
==>(
               ruleop::concat(
                 ruleop::optional(
                     \&{'grammar1::p6ws'}
                   ,
                 )
               ,
                 ruleop::alternation( \@gr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11087	11181	
==>ke (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11145	11239	
==>ke (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`
- <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7546	7796	
==>" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies thi <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8010	8260	
==>" ) {
                            keys %$entry;   # reset keys!!!!!
                            next RESOLVE;
                        }
                    }

                    my @found;
                    ### find every package that satisfies thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22837	22998	
==>nt( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23116	23277	
==>nt( "sub" )
       ,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::const <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9464	9612	
==>be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        f <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2517	2665	
==>be done in one go, so we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        f <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8528	8636	
==>ecurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all int <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8528	8636	
==>ecurrence - An object representing an infinite recurrence set

= SYNOPSIS

    use Recurrence;

    # all int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5504	5613	
==>Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5562	5671	
==>Str $desc?) returns Bool is export {
    Test::proclaim(1, $desc);
}

sub flunk (Str $desc?, :$todo, :$depends <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	10603	10747	
==>nChar {  # see 7.8.5
      <!before <[\\\/]>> <NonTerminator>
    | <BackslashSequence>
}
rule BackslashSequence {  # see 7.8.5
      <'\\'> <Non <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib/L/Fre.pm	240	340	
==>=> q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert( <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	1768	1868	
==>=> q[my_invert(): paramètre $number est manquant],
    'MYLIB_MYINV_BAD_ARG'
        => q[my_invert( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3005	3128	
==>asechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the dir <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3005	3128	
==>asechunks);
    }

    $path = join('/', @pathchunks);
    $base = join('/', @basechunks);

    # $base now contains the dir <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	2198	2352	
==>$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %. <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	2198	2352	
==>$_]} = @lower[($_ + $shift) % 26];
        }
    }
    if $mode ~~ m:P5:i/^de/ {
        my %tt;
        for %.table.kv { %tt{$^value} = $^key }
        %. <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	4674	4820	
==>}

    ### remove this package from the available list
    ### XXX temp file, then mv
    DumpFile( $Available, @uninstalled );
    
    ### unisnt <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	2715	2817	
==>lan because of the lack of $:expect
  class Test::Builder::NullPlan
  {
      method header returns Str <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	16297	16392	
==>ntent-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.content_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	16297	16392	
==>ntent-Type header field indicates the media type of the message
content. I<E.g.>:

  $h.content_ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1490	1608	
==>mport {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1490	1608	
==>mport {
    my ($class, @args) = @_;

    # Handler modules can do C< use Module::Compile -base; >. Make
    # them ISA <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2004	2218	
==>nt "Match: ",Dumper $m->();
                    if ( grep { $_ eq 'NUM' } @expect ) {
                        # expects a term
                        $m = Pugs::Runtime::Match->new( { 
                            b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16121	16228	
==>ment can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16121	16228	
==>ment can be a Span object, a Recurrence object, or a scalar value.

- `union( $span )`

Returns a list of Sp <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2008	2117	
==>ng)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.de <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2008	2117	
==>ng)
    
    $header ~= "\nContent-Type: " ~ $content_type;
    $header ~= "; charset=$charset" if $charset.de <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13782	13897	
==>∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13782	13897	
==>∖ $set2 ) ∪ ( $set2 ∖ $set1 )

   ( $set1 + $set2 ) - ( $set1 * $set2 )
   ( $set1 - $set2 ) + ( $set2 - $set1 <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1625	1730	
==>e is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair) <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1625	1730	
==>e is no facility to deselect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	2869	2990	
==>rint "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3009	3130	
==>rint "match: grammar $rule->{grammar}, $str, %$flags\n";
        #print $rule->{code};

        # XXX BUG! - $rule->{code} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6489	6622	
==>cktracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6282	6408	
==>cktracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op-> <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	784	938	
==>0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	784	938	
==>0) {
        ./load();
    }
    
    submethod DESTROY () {
        ./save() if $.autosave;
    }
    
    ## Instance methods
    method add_cookie_heade <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1796	1915	
==>eter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1796	1915	
==>eter {
    has Bit $.is_invocant;
    has Bit $.is_optional;
    has Bit $.is_named;
    has Bit $.is_ref;
    has Bit $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28532	28629	
==>r
is a C<close> node, any other assertion's ender is a C<tail> node, and a
character class's ender <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	934	1045	
==>ect->new,
		names => {},
	}, $class;
}

sub reduce {
	my $self = shift;
	my $node = shift;

	my $h = Devel::STDE <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	4633	4736	
==>pe',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Liter <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	4633	4736	
==>pe',
  'pSubParams' ,'[TParam]',
  'pSubLValue' ,'Bool',
  'pSubBody'   ,'PIL_Stmts';

node_h 'PIL_Liter <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	105	193	
==>"
package Module::Install::Metadata;
use Module::Install::Base;
@ISA = qw(Module::Install <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15608	15703	
==>r technical
skills.  For example, a native French or Chinese speaker often prefers to
communicat <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15608	15703	
==>r technical
skills.  For example, a native French or Chinese speaker often prefers to
communicat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13410	13512	
==>=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns the list of d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13410	13512	
==>=item $h.clear

This will remove all header fields.

=item $h.header_field_names

Returns the list of d <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2343	2446	
==>be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patc <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2343	2446	
==>be 
printed, even if none of their tags match.

=head1 BUGS

None known.  Report any to the author; patc <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7632	7831	
==>pture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.cl <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7632	7831	
==>pture_name{$name};
                            $newnamep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.cl <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5657	5770	
==>filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5657	5770	
==>filter to skip past that many lines
    # Leave __DATA__ section intact
    my $done = 0;
    require Filter::Util <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3629	3748	
==>on, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3629	3748	
==>on, $ghc_flags);
}

sub can_run {
    my $cmd = shift;

    my $_cmd = $cmd;
    return $_cmd if (-x $_cmd or $_cmd = MM <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23376	23475	
==>rE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23376	23475	
==>rE<gt>(username =E<gt> "...", password =E<gt> "...")>

Tries to gain IRC operator rights.

=head2 C< <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7552	7742	
==>$mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newname <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7552	7742	
==>$mmat.multidex, $subobj)
                                            !! $mmat.capture_name{$name};
                            $newnamep = { %$newnamep };
                            $newname <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	999	1167	
==>},
        'footer' => sub {
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END__

=pod

=head1 NAME

TestBu <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5457	5567	
==>bj;
}

sub load_extensions {
    my ($self, $path, $top) = @_;

    unless ( grep { lc $_ eq lc $self->{prefix} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	1101	1200	
==>= $rpc_regex->match($str)   for 1..40},
        P6_RegexP5 => sub{ $match = $rpc_regexP5->match($st <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13432	13540	
==>!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13432	13540	
==>!=)/=/gm;

    $source =~ s/^(={3,})=/$1/gm;
    $source =~ s/^('{3,})'/$1/gm;
    $source =~ s/^(`{3,})`/$1/ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	3560	3739	
==>ft;
                exists $self->get_value('@:slots')->[$idx];
            },

            'array_clear' => sub {
                my $self = shift;
                @{$self->get_va <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	666	800	
==>atic\n";
	#    next;
	#}

	my $re = $pat;
	my $mods = "";
	if ($re =~ /^\'/) {
	    $re =~ s/^\'//;
	    $re =~ s/\'([^\']*)$//;
	    $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7959	8085	
==>xage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7959	8085	
==>xage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $secure, $expires, $discard);
        @array.p <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1410	1526	
==>",
				type => [ map { Blondie::TypeSafe::Type::Std->new($_) } (($_ eq '~') ? "PV" : "IV") x 3 ],
				body => eval 's <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	224	366	
==>ularize this.
# 2. Get to work concurrently with 'make test'
# 3. 'make smoke' make target that uploads the results of this
#    to a server so <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2085	2202	
==>ent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig" <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2085	2202	
==>ent
    "aacute"   => 'á',  # small a, acute accent
    "acirc"    => 'â',  # small a, circumflex accent
    "aelig" <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16520	16616	
==>, often even while the program is executing.

Locale::KeyedText gives your application the maximu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16520	16616	
==>, often even while the program is executing.

Locale::KeyedText gives your application the maximu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	614	738	
==>. '" ,} }' );
    $self->SUPER::add_rule( 
        "infix:<" . $opt{name} . ">",
        '{ return { op => "infix:<' . $opt{n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5789	5911	
==>y $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5789	5911	
==>y $const = shift;
    my $lconst = length( $const );
    no warnings qw( uninitialized );
    return sub {
        #print " <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5008	5119	
==>1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5008	5119	
==>1] constant( q($char) )\n";
}
sub match_variable {
    my $name = $_[0];
    my $num = substr($name,1);
    #pri <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	717	856	
==>ith a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # b <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	717	856	
==>ith a burst size of 5
      # will never conform to 10
    }

    my $time = time;
    while(time() - $time < 7200) {  # two hours
      # b <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16308	16401	
==>>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2 <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16366	16459	
==>>

Max Maischein <corion@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1431	1592	
==>tem\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1431	1592	
==>tem\s(.*?)$} {
                        %events<start_element>('item');
                        interpolate($0, %events);
                        %events<end_eleme <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	747	870	
==>Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER', <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	747	870	
==>Length' => 'CONTENT_LENGTH',
            'Content-Type'   => 'CONTENT_TYPE',
            'Referer'        => 'HTTP_REFERER', <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1766	1908	
==>urns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1766	1908	
==>urns Hash is export {
    my %events = (
        # Documents
        start_document => { $fh.print("=pod\n\n") },
        end_document   => { $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7840	7959	
==>od compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7840	7959	
==>od compare ($self: $span is copy) returns int { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5544	5716	
==>s_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!memb <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5544	5716	
==>s_debug_string;

###########################################################################

method get_set_member_combinations () returns Array of Str {
    return [@!memb <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	271	358	
==>root->subdir( $Config{installsitelib} );
$REPOSITORY_ROOT  = $config->root->subdir( 'rep <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	152	258	
==>eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	152	258	
==>eval "require $worker_pkg;";
die $!
    if $!;

sub curdir returns Str is export {
    return &::($worker_p <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5723	5839	
==>t).  $total is a hash ref summary of all the tests
run.  Its keys and values are this:

    bonus           Number of <==
2	/Users/nnunley/pugs/misc/Date/lib/Date.pm	191	289	
==>urn a unix time_t
method time_t($self:) returns Int {
    ...
}

method add($self: Duration $durati <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	787	955	
==>time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timet <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	787	955	
==>time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timet <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7632	7793	
==>ed {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7632	7793	
==>ed {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defined {
            if <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10835	10955	
==>m the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10835	10955	
==>m the set

= SEE ALSO

    Span
    
    Recurrence

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyrigh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1677	1782	
==>ey) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FE <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1677	1782	
==>ey) = $_.value for pairs %headers;
}

method header ($self: Str $field) is rw {
  return Proxy.new(
    FE <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3696	3798	
==>IPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" use by the <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3696	3798	
==>IPTION

This class represents an ordered set of spans.

It is intended mostly for "internal" use by the <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	594	696	
==>me, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	594	696	
==>me, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hoping that perl <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	3365	3524	
==>s);
        },         
        'name' => sub ($) {
            ::opaque_instance_attrs(shift)->{'$:name'}
        },
        'id' => sub ($) {
            ::op <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	2977	3111	
==>l),
		   $pretty->apply($tree)->layout,
	   );
	} || die "$@\n" . Data::Dumper::Dumper($dag);
}

sub splat {
	my $self = shift;
	my $ac <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4237	4387	
==>( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE__->add_rule( 
        n <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1143	1244	
==>( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1143	1244	
==>( constant_at_pos('a'), constant_at_pos('b') ),
        constant_at_pos('b'),
        greedy_star( con <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	22218	22346	
==>th($list_str);
        $max_namelen = $Columns - length($middle_str) - $list_len;
        if ($max_namelen < length($failed_str)) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3946	4092	
==>s );

            my @avail = eval { 
                map { JIB::Package->new( meta => $_, installation => $obj) }
                map { JIB::Meta- <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Recurrence.pm	440	540	
==>ailable for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Recurrence.pm	440	540	
==>ailable for Set::Span objects:

  # XXX - see Recurrence.pm

= AUTHOR

Flavio S. Glock, <fglock@pucrs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3835	4007	
==>"Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3835	4007	
==>"Variable #$index\n";
            #return "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7051	7179	
==>{$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use consta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7051	7179	
==>{$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use consta <==
2	/Users/nnunley/pugs/util/claim_drift.pl	251	365	
==>ably make this arrangement less hacky, but until
# we do, this "claims" DrIFT links.
#
# usage: cd $pugs_wd ; util/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4312	4415	
==>group') {
    my $vis = join "", map $_->qr, @{ $rx->[0]->{data} };
    return eval('qr/$vis/' . $rx->[0 <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	859	990	
==>bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have proce <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	859	990	
==>bursty
      if($bucket<conform>(5)) {
        process(5);
        $bucket<count>(5);
      }
    }
    # we're likely to have proce <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10621	10714	
==>:mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encip <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10621	10714	
==>:mode<deciphering>);
    return $self.cipher($ciphertext) ~ $self.finishstr();
}

method encip <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2904	3041	
==>fier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2904	3041	
==>fier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split("\n <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	599	702	
==>e generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec for thi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	599	702	
==>e generator.
   Which also addresses the problem that macros are currently
   quite slow (~10sec for thi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	69	175	
==>our %nodes;

sub emit_node {
	die "unknown node type: $_[0]" unless $node::{$_[0]};
	no strict 'refs';
	ret <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6275	6376	
==>rs. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6275	6376	
==>rs. If there are
duplicates, the last one wins.

=back

=item getprint($url)

Get and print a document <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30916	31014	
==>ject.

Finally, if you want to add a new POSIX character class, its handler
must start with "POSIX_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	870	973	
==>er->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	870	973	
==>er->[0] to enable $interface::format" if $@;
}
sub dump_tree {
	my $tree = shift;
	my $name = shift;
	re <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1437	1546	
==>) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1437	1546	
==>) returns Str is export {
    return &::($worker_pkg)::canonpath( $_path );
}

sub no_upwards (*@filenames) re <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	984	1109	
==>ract_meta_object ) {
        return;
    }
    
    $self->package( $self->meta->package );
    
    return $self;
}

=head2 $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	5571	5682	
==>.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.sp <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	5571	5682	
==>.end_is_open {
        $x = $.recurrence.previous( $.recurrence.next( $.span.end ) );
    }
    elsif $x >= $.sp <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	42	151	
==>.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constr <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	42	151	
==>.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite'

    * from_duration constr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6879	6983	
==>//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process($fi <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6879	6983	
==>//g;
        my $filtered_content = $class->pmc_process($real_content);
        $class->$post_process($fi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15972	16097	
==>eue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15972	16097	
==>eue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutation {
    has Str <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	5843	5969	
==>dividual todo tests unexpectedly passed
    max             Number of individual tests ran
    ok              Number of indivi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10265	10368	
==>[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defi <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	11000	11103	
==>[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $-[1] $+[1]":"undef","\n";
print ' $2 ',defi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1536	1706	
==>};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    } <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1536	1706	
==>};
        if (@path[$i] ~~ m:perl5{\\$}) {
            push(@new_path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    } <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13642	13752	
==>s will also be expanded.  The longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13642	13752	
==>s will also be expanded.  The longest matching name in
%entity_to_char will be used.

   $string = "foo&nbspbar <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7451	7611	
==>name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7451	7611	
==>name' => 'person' }, [
            [ 'interface_row', undef, [
                $rdtd_person,
            ] ],
            [ 'table_field_detail', { 'name' => 'id <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	690	796	
==>_err = shift;
    my $_PERL6_DOC   =  'http://svn.perl.org/perl6/doc/trunk/';
    my $_PERL6_BIBLE =  'http <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	581	713	
==>ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	581	713	
==>ref()";
            
            when ::Perl::Compiler::PIL::PILNil    { "; # Nil\n" }

            when ::Perl::Compiler::PIL::PILNo <==
2	/Users/nnunley/pugs/util/fixauthors.pl	142	251	
==>");

my @a=<STDIN>;
my @head = @a[0..4];
@a = @a[5..$#a];

@a = 
  map {$_->[0]} 
  sort {$a->[1] cmp $a->[1]} <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1018	1126	
==>[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Function <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1018	1126	
==>[0..@array.end-1] }

sub replicate(Int $n, Code &f) is export { (1..$n).map(&f) }

=head1 NAME

fp - Function <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7309	7523	
==>maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$may <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7773	7987	
==>maybe (@$avail) {
                        next unless dependency_satisfied_by($entry, $maybe);
                        
                        ### is the version good enough?
                        if ( eval "$may <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9378	9513	
==>_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9378	9513	
==>_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe );

    # TODO - test this
    # all non-zero integers <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1136	1226	
==>::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1136	1226	
==>::Util::Context { }

class Perl::Compiler::PIL::Util::VoidContext
    does Perl::Compiler:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	5532	5793	
==>an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	6381	6642	
==>an array
                        my $name = '$' . match::str( $_ );  
                        $h{$name} = 1;
                        last;
                    }
                }
                @args = keys %h;
            } 

            # my $rule_code = main <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7552	7659	
==>pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7552	7659	
==>pre_order_traverse ($self: Code $func) returns Void {
    for @!children -> $child is rw {
        $func($ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1714	1809	
==>(variable lookup), App (application) and Lit (literal).



App is divided to Multiple, Single an <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1645	1738	
==>(variable lookup), App (application) and Lit (literal).

App is divided to Multiple, Single an <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16929	17028	
==>yExpression>
    | <BitwiseANDExpression> <'&'> <EqualityExpression>
}
rule BitwiseANDExpressionNoIn <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	6694	6775	
==>---------------------------------------------------------------------

ok($Class-> <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35758	35856	
==>al operator that takes
another Relation as its C<$other> argument and combines it with the
invocant <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	40308	40406	
==>al operator that takes
another Relation as its C<$other> argument and combines it with the
invocant <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3006	3105	
==>revious, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3006	3105	
==>revious, $set.closure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.c <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6734	6836	
==>>{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6746	6848	
==>>{capture} ) if $flags->{print_ast};
    die "syntax error in rule '$_[0]' at '" . $match->{tail} . "'\ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1276	1379	
==>e same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1276	1379	
==>e same thing
as C<use Filter::Simple::Compile>, except the meaning for C<use>
and C<no> will be reversed <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	724	857	
==>is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  grou <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	724	857	
==>is scope-local.  A new match object gets
                  allocated when you enter a new rule or parenthesized
                  grou <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13514	13611	
==>h are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we a <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13514	13611	
==>h are left alone.  Numeric entities are always expanded.

If $allow_unterminated is TRUE then we a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1318	1450	
==>rams();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %* <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1318	1450	
==>rams();
    }
    
    my method load_params ($self: ) {
        if ($.method.lc() eq 'get'|'head') {
            $.query_string = %* <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3816	3934	
==>two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3816	3934	
==>two_diff);
    say "Symm. diff: "~$symm_diff.stringify if $DEBUG;
    return $symm_diff;
}

# FIXME ... $?PACKAGE ?
our <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19040	19134	
==>- obsolete?


package Control::Basic {}

 multi Control::Basic::eval ( Str $code = CALLER::<$_> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	315	407	
==>pe inferrencer

# the algorithm implemented is Hindley-Milner type inferrencing, as explained <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40799	40893	
==>ed any time you create a
modified version of Locale::KeyedText that you are willing to distribu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40799	40893	
==>ed any time you create a
modified version of Locale::KeyedText that you are willing to distribu <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	922	1064	
==>)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	922	1064	
==>)

=cut

sub register {
    return {
        language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        s <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4222	4346	
==>};
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4222	4346	
==>};
}

method difference ($set1: $set2 ) {
    if ( $set2.isa( 'Span::Num' ) || $set2.isa( 'Span::Int' ) )
    {
        my @d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	21576	21684	
==>analyze(pad)
    self[0] = exp
    pad["cutnum"] = cutnum
  end:
    .return (self)
.end

.namespace [ "PGE:: <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	730	829	
==>han was hoped, it became uninteresting
# as a perl6 bootstrap path, which was the objective.

# Inte <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code1.pl	32	136	
==>y "code!"};
$code(); # gibt "code!" aus, Klammern sind nötig!
#=Anwendung von Code-Objekten: for-Schleif <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	6409	6511	
==>._q($expected)." (within "._q($range).")\n";
    }
    _ok($pass, _where(), $name, @mess);
}

# Note: t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/moose.pl	16	132	
==>ss Point;

has $.x is rw;  # instance attributes
has $.y;        # default "is readonly" 
method clear () {
    $.x <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	12053	12151	
==>=head2 $bool = $inst->remove_available( package => $inst_pkg );

=cut

sub remove_available {
    m <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	7917	8029	
==>om();
  goto reduce_end if $arity > 1;
  $temp1 = $temp2;
  reduce_save_term:
  push @termStack, $temp1;
  reduce <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10158	10286	
==>my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10158	10286	
==>my %temp        = %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities <==
2	/Users/nnunley/pugs/util/package-osx.pl	1122	1236	
==>l/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local <==
2	/Users/nnunley/pugs/util/package-osx.pl	3432	3546	
==>l/info/history.info
        /usr/local/man/man3/readline.3
        /usr/local/man/man3/history.3
        /usr/local <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8105	8231	
==>[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8093	8219	
==>[1]         \@{ \$match[\$index{$rnd}] } = () 
$_[1]           if ! defined \$match[\$index{$rnd}];
$_[1]       }
$_[1]     }
$ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11188	11287	
==>ke (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11246	11345	
==>ke (Str $got, Rule $expected, Str $desc?, Bool :$todo, Str :$depends) returns Bool is export`

These <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	1686	1799	
==>ft;

    my %struct = map { $_ => $self->$_ } $self->ls_accessors;

    return \%struct;
}

1;

# Local variables: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20310	20406	
==>d.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canon <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20310	20406	
==>d.

=back

=head1 NON-CANONICALIZED FIELD NAMES

The header field name spelling is normally canon <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8460	8562	
==>l %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8460	8562	
==>l %channels he/she has joined.
  %handler<NICK> = [-> $event {
    if(normalize($event<from_nick>) eq n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1623	1723	
==>Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
cl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1623	1723	
==>Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
cl <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17504	17595	
==>ques(_Re),F0,F0,B0,B0,E0,E0).

rm(star(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2332	2483	
==>t = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2332	2483	
==>t = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . '::ISA'}, __PACKAGE__;
        return 1;
    }

    return 0;
}

# Generate t <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	854	1164	
==>$in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    w <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	854	1164	
==>$in_list) {
                            %events<end_element>('list');
                            $in_list = 0;
                        }                    
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/RegexPerl5.pm	1505	1613	
==>:Perl5 /.*/

    :P5 /.*/

See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Te <==
2	/Users/nnunley/pugs/misc/IDE-support/server.pl	146	240	
==>overlay-put (make-overlay {$m.from +1} {$m.to +1} nil t t) 'face '(:foreground \"red\"))" if $m <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3412	3539	
==>"uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # sm <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3412	3539	
==>"uacute"   => 'ú',  # small u, acute accent
    "ucirc"    => 'û',  # small u, circumflex accent
    "ugrave"   => 'ù',  # sm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Util/SExpParser.pm	1006	1106	
==>verted to perl (see above)
# all so that we can parse a scheme-like syntax 
# with Attribute Grammers <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13119	13246	
==>|| 0)
  };
  my (@paths) = splitdir($path);
  my $loc  = 'push @{$index';
  $loc .= "->{_dirs}->{'" . $_ . "'}" for @paths;
  $l <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3527	3626	
==>< (!?) before <ws> <pattern> \> }
rule lookbehind  { \< (!?) after  <ws> <pattern> \> }
rule word_bo <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5193	5326	
==>continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) } <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5193	5326	
==>continue) }))
            }
            else {  # greedy
                $p.parse()($match.clone(backtrack => -> { &continue($match) } <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	807	942	
==>s{help};
      printf STDERR "  %s»%s ", BOLD . BLUE, RESET;
    }
    $args{using}->();
    if($args{pause}) {
      printf STDERR "\b <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	5308	5427	
==>is safe {
        my($mess, $i);
        $mess = "$e at $?CALLER::POSITION";

        #while Control::Caller::caller(+:$ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	1824	1944	
==>'::' => our $AUTOLOAD)[-1];
        return if $label =~ /DESTROY/;
        my $self = shift;
        return $self->($labe <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	14428	14543	
==>x);
    my $handler = $as_array_handlers{$reftyp};
    die "bug $reftyp" if !defined $handler;
    $handler->($x);
} <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8647	8743	
==>eates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Cr <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8647	8743	
==>eates a `Set::Infinite` object using existing Span objects.

- `new( recurrence => $recurr )`

Cr <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1893	2011	
==>Bzip2::memBunzip = sub { return };
}

sub add_smoke {
  my $html = $CGI->param("smoke");

  my $id = md5_hex $html;
  i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17589	17695	
==>$ROOT".($pkg eq "" ? "" : "::$pkg").";\n";
    $code .= "use utf8;\n";
    $code .= "use Perl6::MetaModel;\ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2092	2205	
==>erl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Faculty/cameron/Teaching/383/regexp-plg. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11624	11748	
==>hile($connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11624	11748	
==>hile($connected) {
        $queue<run>();
        $self<readline>();
        $self<livecheck>();
        $self<handle_pseudo> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10647	10743	
==>m returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=it <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10647	10743	
==>m returns Array>

=item B<param (Str $key) returns Array>

=item B<query_string returns Str>

=it <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3028	3128	
==>of the client, if available.

=back

In addition, the following request headers are set on the HTTP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3028	3128	
==>of the client, if available.

=back

In addition, the following request headers are set on the HTTP:: <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12894	13024	
==>,
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12894	13024	
==>,
        ],
    );

=back

A Document object has these methods:

=over

=item C<export_as_hash()>

This method returns a deep copy <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9705	9847	
==>scapeCharacter {  # see 7.8.4
      <'\''>
    | <'"'>
    | <'\\'>
    | <'b'>
    | <'f'>
    | <'n'>
    | <'r'>
    | <'t'>
    | <'v'>
}
r <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1747	1861	
==>o see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Another good source of working P <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1747	1861	
==>o see how Perl 6 modules look like, you can have a look at the
modules in F<ext/>. Another good source of working P <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1039	1134	
==>ce on a jib file, and a JIB::Package::Installed
on a META_OBJ.

XXX needs verification
XXX needs <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22653	22744	
==>_lower(C1x)), code_type(C2,to_lower(C2x)),
   C1x =< Cx, Cx =< C2x, !.
charset_member(_,C,[c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9839	9933	
==>odel's input validation is performed over 2 main phases, which
are referred to as "immediate" a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9839	9933	
==>odel's input validation is performed over 2 main phases, which
are referred to as "immediate" a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6022	6185	
==>$const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => sub <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6022	6185	
==>$const eq substr( $_[0], $_[5], $lconst ) ) {
            return $_[3] = { 
                bool => 1,
                match => $const, 
                tail => sub <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	4047	4210	
==>_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	4047	4210	
==>_type, @args) { 
            given $event_type {
                when 'header' {
                    my $size = @args.shift;
                    $fh.print("</H$size <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8245	8353	
==>perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8245	8353	
==>perl5re

	   return "$_[1] perl5( q!$cmd! )\n" unless $cmd =~ /!/;
	   return "$_[1] perl5( q($cmd) )\n"; # X <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8489	8593	
==>assert_ghc_pkg not cached, and called without path to ghc";

    my $ghc_pkg = $ENV{GHC_PKG};

    unless <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	9015	9172	
==>ol};

        $match->{state} = {

            state => $match->{state},

            op    => ruleop::concat( $node, $state->{op} ),

        };

        ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8701	8853	
==>ol};
        $match->{state} = {
            state => $match->{state},
            op    => ruleop::concat( $node, $state->{op} ),
        };
        ret <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	936	1041	
==>nation> }

rule comment { \# \N* }

rule alternation     { <non_alternation> \| <term>+? }
rule non_altern <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	7482	7597	
==>ME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	7482	7597	
==>ME

Set - Sets for Perl 6

=head1 SYNOPSIS

  use Set;

  my $set = set 23, 42, $some_object;

  say "42 is in the s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	764	1010	
==>nstant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	765	1011	
==>nstant( "\:" )
                 ,
                   ruleop::constant( "s" )
                 ,
                   ruleop::constant( "w" )
                 ,
                   ruleop::constant( "_" )
                 ,
                   ruleop:: <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4883	5007	
==>urr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x i <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4883	5007	
==>urr,     span => $_ ) };

    return ( @set1_span, @intersect ).sort:{ $^a.compare( $^b.span ) };
}

method next ($self: $x i <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1669	1794	
==>) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"<$compile") or die "open $compile: $!\n";
    my $f = do{local $/=unde <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	806	893	
==>>emitter_class->require || die $UNIVERSAL::require::ERROR;
	$self->emitter_class->new;
} <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	4188	4327	
==>($cls eq 'undef') if !defined $x;
    return ($cls eq 'str') if !((~$x & $x) eq 0);
    return ($cls eq 'num' || $cls eq 'int') if int($x) = <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12746	12879	
==>gs,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still al <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12746	12879	
==>gs,
    };

    if %!handler{$pseudo} {
      $_($event) for *%!handler{$pseudo};
    }
  }

  # Check that our connection is still al <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	467	578	
==>{ "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	467	578	
==>{ "class $x \{};" }  f("C");  C.new
      Error: No compatible subroutine found: "&C" 
   this file is currently <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6120	6258	
==>) or die "Can't fork: $!";
        if ($pid) {
            push @{ $self->{_children} }, $pid;
        } else {
            $self->{_child_ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	6367	6458	
==>y;
}
# name from docs/notes/piln_object_repr_types.pod r8593.
multi method Array::as_num (@a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6401	6504	
==>n C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process ea <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6401	6504	
==>n C<parse> function currently takes a C<$filename> and a Hash of C<%events> 
which it uses to process ea <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9525	9650	
==>able: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9525	9650	
==>able: ⊄, ⊅, ⊈, ⊉
  # ⊊ is the same as ⊂, and ⊋ is the same as ⊃

  # to test membership
  my $contains_7  = $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12333	12432	
==>t the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave qui <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12333	12432	
==>t the current time, this is a work in progress to test Pugs'
features.  It does not (yet) behave qui <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12765	12893	
==>er
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6240	6368	
==>er
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{0,2} ) }sxgc;
    my $brace = 0;
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1773	1921	
==>ts ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1773	1921	
==>ts ${$_[0]}->{label};
    if ( ref( ${$_[0]}->{match} ) eq 'ARRAY' ) {
        @a = @{${$_[0]}->{match}};
    }
    else {
        push @a, ${$_[0]}- <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14006	14111	
==>nction to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into on <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14064	14169	
==>nction to do so.

- `pass (Str $desc?) returns Bool`

Sometimes what you need to test does not fit into on <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	4981	5112	
==>s, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        re <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	4981	5112	
==>s, iterators

method next ( $x ) { 
    # TODO - simplify this 
    for $.set.spans {
        my $result = $_.next( $x );
        re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	8	117	
==>ct;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	8	117	
==>ct;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEGIN <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2357	2456	
==>d by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with i <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2357	2456	
==>d by the compiler:
# - fetch slice / store slice - @a[5,7]=('x','y')
# - keys/kv/pairs/values with i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19078	19175	
==>oded program conditions.  In other words, this user
text is *part of the program*, and not the pro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19078	19175	
==>oded program conditions.  In other words, this user
text is *part of the program*, and not the pro <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10094	10226	
==>o->data->data->emit; # reach down into quant below.
    sub{
      my $c = $_[0];
      my $pos_old = -1;
      my $i = 0;
      my($ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4936	5098	
==>ifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4936	5098	
==>ifier (>) found";
                # if we have one the stack ..
                # then this one probably matches,
                # so we can pop that modifier off <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	805	914	
==>e.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Impl <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	805	914	
==>e.pl line 3."
	note "Now I'm here", :tagB;		# doesn't print, tagB isn't active
	note "And here too!";			# Impl <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1774	1875	
==>n't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1774	1875	
==>n't seen traffic for 90s
    Int $.live_timeout = 120,  # Drop connection when we haven't seen traffic <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16708	16829	
==>ead1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot", <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16708	16829	
==>ead1 SYNOPSIS

  use Net::IRC::OO;
  
  # Create new bot object
  my Net::IRC::OO $bot .= new(
    nick     => "blechbot", <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	437	557	
==>Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() f <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	437	557	
==>Infinite::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5434	5555	
==>ar'>
    | <'final'>
    | <'native'>
    | <'synchronized'>
    | <'class'>
    | <'float'>
    | <'package'>
    | <'thr <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15626	15732	
==>oughta look, with @ids being class level.
        #my @ids = <year month day hour min sec picosec wday yday <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1314	1445	
==>ig); 
    add_path(sitearch           => $config); 
    add_path(sitelib            => $config); 

    add_path(installarchlib     = <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	4517	4643	
==>$pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5002	5128	
==>$pkg;
    my $tmpl = {
        package => { required => 1, store => \$pkg, allow => ISA_JIB_PACKAGE },
    };
    
    check( $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3675	3777	
==>quire 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3892	3994	
==>quire 'iterator_engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# f <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9573	9710	
==>final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10409	10546	
==>final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar::emit( \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1426	1543	
==>rogram here
    my ($compile_only, $code);

    if ($ARGV[0] eq '--compile-only') {
        shift(@ARGV);
        $com <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	7055	7147	
==>$pType, $pParams, $pLValue, $pIsMulti, $pBody) {
    code_helper("", $pType, $pParams, $pLVal <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3849	3945	
==>urce, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
inval <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4033	4129	
==>urce, \%options )

Class method.  Returns a compiled rule object, or throws an exception on
inval <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3985	4086	
==>xt::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3985	4086	
==>xt::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2888	3019	
==>y ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2888	3019	
==>y ) {
    $x = $x - $.density if defined $.density;
    return $.end   if $x > $.end;
    return $x      if $x >= $.start;
    retur <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19080	19193	
==>n the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own lin <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19080	19193	
==>n the first column.
    BAREBLOCK - A top level (not nested) code block. Ending '}' must be
        on its own lin <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2641	2739	
==>t
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fract <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2641	2739	
==>t
case it is allowed to transmit (or just process) I<N> items (not
exactly right, I<N> can be fract <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	220	323	
==>::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	220	323	
==>::Runtime::Rule;
#use Pugs::Runtime::Grammar; -- MOP 

use vars qw( @rule_terms );
use base 'Pugs::Gramm <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	500	602	
==>thod reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::No <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	500	602	
==>thod reset {
  $.state = $.net;
}

multi method addarc(Str $trigger,FA::DFA::Node $node --> FA::DFA::No <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1202	1299	
==>param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.metho <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1196	1288	
==>param1", "param2");
&bar.goto("param1", "param2");
subname;
subname();
subname 99;
$bar.metho <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1929	2051	
==>ay iarray)),
      );

sub generate_attribute {
    my $self = shift;
    my $attr = shift;

    # $attr may be a T2::Attri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6424	6541	
==>data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6424	6541	
==>data_type', { 'base_type' => 'STR_CHAR',
            'max_chars' => 100, 'char_set' => 'UNICODE' } ]
    );
    my Ros <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Builtins.pm	752	857	
==>y => 'stdout',
			fixity => "nullary",
			type => Blondie::TypeSafe::Type::Std->new("GV"),
		},
		{
			ari <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	18301	18391	
==>m(repeat_ng(Re,Min,Max),F0,F1,B0,B1,E0,E1) :- 
  number(Max), Min =< Max,
  rm_repeat_min(R <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6316	6423	
==>s. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function cur <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6316	6423	
==>s. 

=head1 FUNCTIONS

=over 4

=item B<parse (Str $filename, Hash %events)>

The main C<parse> function cur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3182	3356	
==>> 1,

        match => { 'ws*'=> $1 },

        tail  => $2,

        ( $_[2]->{capture} ? ( capture => $1 ) : () ),

    }

        if $_[0] =~ / ^  

            (   [ $ % @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3057	3225	
==>> 1,
        match => { 'ws*'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => $1 ) : () ),
    }
        if $_[0] =~ / ^  
            (   [ $ % @ <==
2	/Users/nnunley/pugs/util/package-osx.pl	8836	8943	
==>p -r $orig $dest$change_files{$orig}/;
        remove_svn("$dest$dirs");
        print "Copied $orig to $des <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1393	1571	
==>ts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_ao <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1393	1571	
==>ts Rosetta::Model::Node;

###########################################################################

submethod BUILD (Hash :@root_nodes? = []) {

    $?SELF!_assert_arg_rt_nd_ao <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10649	10752	
==>ched sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10649	10752	
==>ched sub
        #    my $code = "sub {$string =~ s:perl5:g/([$string])/{\%char_to_entity{\$0} || num_en <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13796	13915	
==>n to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, St <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13854	13973	
==>n to do large scale
TODO-ing of tests.

== Misc. Functions

- `skip (Str $reason?) returns Bool`
- `skip (Int $count, St <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12547	12649	
==>result to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12605	12707	
==>result to is or ok
on success, or report that the eval was not successful on failure.

- `throws_ok (Co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	309	419	
==>{
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::roo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	309	419	
==>{
    return &::($worker_pkg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::roo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	21945	22063	
==>on::Example version 0.1.0.

It also describes the same-number versions of Relation::Example::Heading
and Relation::Exam <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	471	584	
==>bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_close <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	471	584	
==>bool   { ! defined( $.start ) }
method size            () returns Object { $.end - $.start }
method start_is_close <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2581	2674	
==>n $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3536	3629	
==>n $S->force_object(anyof_class => $S->force_object(digit => 0)) if $cc;
    return $S->object( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7085	7199	
==>, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path unless $ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7085	7199	
==>, 1);
    my ($base_volume) = splitpath($base, 1);

    # Can't relativize across volumes
    return $path unless $ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13752	13855	
==>oin( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17229	17332	
==>oin( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do some optimizi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	8387	8506	
==>::non_greedy_star { 

    my $node = shift;

    ruleop::alternation( [ 

        ruleop::null(),

        ruleop::non_g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	8095	8210	
==>::non_greedy_star { 
    my $node = shift;
    ruleop::alternation( [ 
        ruleop::null(),
        ruleop::non_g <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1275	1386	
==>$_[0], '$<perl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1: <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	7621	7725	
==>ply(
    [ $FooBar->get_method_list ],
    [ 'foo_bar' ],
    '... got the right method list (unresolved) <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2496	2626	
==>bstr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

s <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2496	2626	
==>bstr(<OUT>, 0, -length($/));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	2159	2259	
==>CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	2159	2259	
==>CLASS'} = 'Rosetta::Model::Document';
    die Locale::KeyedText::Message.new(
        msg_key => $msg <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	4052	4191	
==>say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    } <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	4052	4191	
==>say "RETVAL = $ret";
        return $ret;
    }

    method pad_var(Perl::Compiler::PIL::Util::Pad $pad) {
        "\$PAD_" ~ $pad.id;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8077	8224	
==>evious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8077	8224	
==>evious =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.closure_previous } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16155	16249	
==>it internally, while another one displays it to the
user instead.

Locale::KeyedText provides a <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16155	16249	
==>it internally, while another one displays it to the
user instead.

Locale::KeyedText provides a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	161	311	
==>ent;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	161	311	
==>ent;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or pa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2441	2575	
==>f ($] >= 5.005) {
        $args->{ABSTRACT} = $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1605	1723	
==>f ($] >= 5.005) {
	$args->{ABSTRACT} = $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18203	18310	
==>onal, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18203	18310	
==>onal, defaults to 0)
  );
  
  # Register callbacks
  $bot<add_handler>("INVITE",   \&on_invite);
  $bot<add <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	292	448	
==>ersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single qu <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	292	448	
==>ersand 
    "gt"       => '>',  # greater than
    "lt"       => '<',  # less than
    "quot"     => '"',  # double quote
    "apos"     => "'",  # single qu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	430	589	
==>res to various.
                  points earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - Th <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	430	589	
==>res to various.
                  points earlier in the match.  This is used to
                  implement backtracking controls.  a*: ...
    $.pos       - Th <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1480	1572	
==>alks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Ex <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1480	1572	
==>alks/>. Look into
F<docs/talks/README> for links to rendered versions (HTML, PDF).

=head2 Ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1656	1754	
==>ory of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Ciph <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1656	1754	
==>ory of Secret Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Ciph <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1238	1343	
==>lyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to h <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1238	1343	
==>lyst need only 
graph the letter frequency to crack the cipher, and even if the message is 
contrived to h <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7066	7168	
==>sP6metacharacter(C) :- member(C,"\{\}\[\]\(\)\^\$\.\|\*\+\?\#\\").
p6_metachar(C) --> [C], {isP6metacha <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4800	4942	
==>/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4812	4954	
==>/? <(\d+)> $/x ) {
        my $num = $1;
        my $n = 0;
        for ( @{ match::get( $match, '$/()' ) } ) {
            next unless ref($_) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	3079	3203	
==>1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	3079	3203	
==>1>
$body
</BODY>
</HTML>";
    }
    
    method current_age () {
        my $response_time = ./client_date;
        my $date <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4179	4297	
==>n} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, wh <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4179	4297	
==>n} {
        # We initialize %!cache353{$chan} by makeing %!cache353{$chan} a
        # hashref which has the nicks, wh <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	438	535	
==>laination of this. 
## --------------------------------------------------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2813	2931	
==>î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2813	2931	
==>î',  # small i, circumflex accent
    "igrave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3297	3432	
==>rgs}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $gram <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3437	3572	
==>rgs}} if defined $flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $gram <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8024	8161	
==>west_p_stamp = -M "$parrot_path/runtime/parrot/include/$_"
  for @pfiles;

my $rebuild;
step
  descr  => "Checking if we have to rebuild t <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	16940	17054	
==>m => val(10),
		),
		param => ide("x"),	
	),
);

# fun(x) x	-  takes any value and returns it
# x stays free, and t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7297	7413	
==>-Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $r <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7297	7413	
==>-Inf && $span1.start_is_open;
        $end   -= $span0.density if $end   !=  Inf && $span1.end_is_open;
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4355	4490	
==>/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4355	4490	
==>/\n\n+/\n/;               # no empty lines
      $val ~~ s:g/\n(<-[\040\t]>)/\n $0/;  # initial space for continuation
      $val ~~ s:g <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11636	11750	
==>ate a Visitor class

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11636	11750	
==>ate a Visitor class

This would also be a good use for Roles.

=back

=head1 AUTHOR

stevan little, E<lt>stevan@iin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	403	517	
==>t of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	403	517	
==>t of a file
# - shebang, 
# - version info 
# - module, class, grammar extending to the end of file 
*header = $rul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5930	6038	
==>rmalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<obje <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5930	6038	
==>rmalize($curnick)) {
      $chans.insert(normalize $event<object>);
      debug "Joined channel \"$event<obje <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	1040	1137	
==>Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type retur <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	1040	1137	
==>Str>

=item B<remote_ident returns Int>

=item B<remote_user returns Str>

=item B<auth_type retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18504	18613	
==>g a human being write out
that text themselves.

What Locale::KeyedText does is associate each member in a set <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18504	18613	
==>g a human being write out
that text themselves.

What Locale::KeyedText does is associate each member in a set <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1228	1336	
==>ile::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($scr <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1228	1336	
==>ile::Spec.cwd(), $script )
          unless file_name_is_absolute($script);
        my @path = splitpath($scr <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	159	251	
==>osition
within that string, and it provides the fundamental operations on strings as
combinat <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	159	251	
==>osition
within that string, and it provides the fundamental operations on strings as
combinat <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1125	1230	
==>of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1125	1230	
==>of use/no is reversed.
sub pmc_use_means_no { 0 }

# All Module::Compile based modules inherit this import <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36225	36319	
==>d Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36225	36319	
==>d Members of ['Eng','Fre'], the resulting list is
['MyAppEng','MyLibEng','MyAppFre','MyLibFre'] <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4892	4993	
==>F!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $do <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4892	4993	
==>F!_assert_arg_ch_nd_aoh( 'new', ':@child_nodes?', @child_nodes );

    $!document = $document;
    $do <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2646	2760	
==><ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*Production <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2646	2760	
==><ws>? <Expr> \\;
    { use v5; return "let " . $<Variable>() . " = " . $<Expr>() . " in\\n" }
))->code;
*Production <==
2	/Users/nnunley/pugs/misc/S29_round.xinming.pl	2628	2748	
==>(Num $x) {
        return ?(int($x) % 2);
}

our bool multi Num::is_even (Num $x) {
        return !(int($x) % 2);
}

our <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	599	693	
==>on) = P6RulesInP5::Match::newfrom( $matchObj );
  if ( (substr $target, $from, 1) =~ /[:upper:] <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	301	407	
==>make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	301	407	
==>make lexical
our $sigspace = 0;

# XXX - reuse this sub in metasyntax()
sub call_subrule {
    my ( $subrul <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9469	9601	
==>name   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9469	9601	
==>name   => { $curhostname },
    servername    => { $servername },
    connected     => { $connected },
    logged_in     => { $inside <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2209	2378	
==>}
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2209	2378	
==>}
        if @tmp == 2 {
            push @res, @tmp[1];
        }
        else {
            @res[-1] = @tmp[0];
        }
    }
    return $self.new( spans => @res );
} <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1543	1635	
==>$.depth  = $parent.depth() + 1;
}

## ------------------------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1543	1635	
==>$.depth  = $parent.depth() + 1;
}

## ------------------------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	243	332	
==>P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	243	332	
==>P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

ru <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3186	3313	
==>file' method, but they /should/
        ### have a meta object at all times
        unless( $self->can('file') ) {
            e <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	8092	8186	
==>s> a C<Pair(index, value)>.

C<@array> is considered single dimensional. If it is in fact multi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1053	1191	
==>\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $f <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1053	1191	
==>\Z(?!\n))?)?)(.*)};
        $volume    = ~$0;
        $directory = ~$1;
        $file      = ~$2;
    }
    return ($volume, $directory, $f <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13535	13647	
==>eck if the runtime has a hash for this
    # in the future the compiler might allow adding globals
    # right no <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4339	4439	
==>port {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4339	4439	
==>port {
    @filenames.grep:{ $_ ne ('.' & '..') }
}

sub file_name_is_absolute (Str $file) returns Bo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21269	21368	
==>his would come up with keys which are unique across all Perl packages
(perhaps the key name can star <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21269	21368	
==>his would come up with keys which are unique across all Perl packages
(perhaps the key name can star <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	3245	3378	
==>\S' : '\s';
  }
}


{
  # \d \D
  package Regexp::Parser::digit;
  push @ISA, qw( Regexp::Parser::__object__ );

  sub new {
    my ($ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1979	2094	
==>($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return v <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1979	2094	
==>($module, $output);
    };

    $class->pmc_filter($module, $line, $callback);

    # Is there a meaningful return v <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	691	825	
==>deps = @_;    
    
    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	1139	1265	
==>deps = @_;

    ### we need at least the deps provided, plus whatever /they/ need
    my @rv = @deps;
    for my $dep ( @deps ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3431	3568	
==>any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3624	3761	
==>any'} = sub {
    my $bool = $_[0] =~ /^(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'any'=> $1 },
        tail  = <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11255	11360	
==>method DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11255	11360	
==>method DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) returns Array of Int <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	13735	13897	
==>p { "'" . _emit($_) . "'" } @$_ )
                } @{$n->{attribute}}
            );

            my $name = _emit( $n->{exp1} );
            $name =~ s/^\$/ <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	471	576	
==>$tz) if $tz.defined and !$tz.isa("Time::Zone");
    return
        Date::Gregorian.new( :year($year), :mon <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	1060	1168	
==>rk so good on 5.5.4.
    return scalar <$fh>;
}


package Test::Harness::Iterator::ARRAY;
sub next {
    my $ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2840	2956	
==>" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.strin <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2840	2956	
==>" ~ $?SELF.members.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    say "Self is "~$self.strin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	75	170	
==>';

use JIB::Constants;
use JIB::Config;

use JIB::Package::Source;
use JIB::Package::Binary;
us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3044	3241	
==>ch: ",Dumper $m->();
                        last;
                    }
                }
            }
            
            # XXX temporary hack - matching options in 'expected' order should f <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	13788	13884	
==>Expression> <Arguments>
    | <CallExpression> <'['> <Expression> <']'>
    | <CallExpression> <' <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	375	479	
==>func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tr <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	375	479	
==>func;
    if $self.has_node_filter() {
        $func = -> ($tree, $test) { (($self.get_node_filter().($tr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40402	40496	
==>addition to preserving this original copyright notice and other
credits. Locale::KeyedText is d <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40402	40496	
==>addition to preserving this original copyright notice and other
credits. Locale::KeyedText is d <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2589	2715	
==>ve is unsafe {
        eval(slurp $filename, $lang);
    }
}


class Control::Caller {
    has Str $.package;
    has Str $.fil <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2106	2281	
==>ies( $info ) ) {
                    ### XXX split depends: lines and objectified dependencies
                    ### for better diagnostics
                    die "Dependenc <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3475	3638	
==>ies( $info ) ) {
                ### XXX split depends: lines and objectified dependencies
                ### for better diagnostics
                die "Dependenc <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5064	5190	
==>lta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr( <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5064	5190	
==>lta"    => chr(916),
    "Epsilon"  => chr(917),
    "Zeta"     => chr(918),
    "Eta"      => chr(919),
    "Theta"    => chr( <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5653	5754	
==>rn $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5653	5754	
==>rn $span.end_is_open <=> $.end_is_open;
}

method difference ($self: $span ) returns List {
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11116	11227	
==>=~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11266	11377	
==>=~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) /sgx;
    # $()
    $code =~ s/ ([^']) \$ \( \) /$1 <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3516	3635	
==>lized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3516	3635	
==>lized".  That is, /[ foo
(bar) ]*/ will put an array in $1, and /[ [ foo (bar) ]* ]*/ will put an array
of arrays in $1. <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	1931	2043	
==>ar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	1931	2043	
==>ar($source);
print $match->();

sub slurp {
    my $fh = IO::File->new(shift) || return;
    return join('', <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11825	11947	
==>. Uses the shell.

    multi sub open2 (Str $command) returns List is primitive is unsafe {
        my ($in, $out, $err, $p <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3019	3125	
==>rintf(stderr,"regexp_exechook_hook\n");
    fprintf(stderr," strbeg=%lu\n strarg=%lu\n strend=%lu\n",strbeg <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4049	4159	
==><?p6ws>? \;
        { 
		eval 'use '.$()->[2]{ident}[0]{ident};
		return { use_bareword => $() ,} 
	}
RULE
*{'t <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28317	28415	
==>ll output the verbose results of running
its tests.  Setting C<$Test::Harness::verbose> will overri <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	6082	6169	
==>vent<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	6082	6169	
==>vent<object>)}<users>{$event<from_nick>}++;
    %users{~normalize($event<from_nick>)}<ch <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8472	8575	
==>.compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool: <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8472	8575	
==>.compare( $self.span ) == 0;
}

method intersects ($self: $span is copy) returns bool {
    return Bool: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Meta.pm	697	799	
==>_struct( struct => $struct );        
}

=head2 $meta = JIB::Meta->new_from_struct( struct => $struct ) <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/t/inc/conf.pl	142	238	
==>onfig->new;
### new fakeroot dir
$config->root( Path::Class::dir( cwd() )->subdir( 'fakeroot' ) ) <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	9	111	
==>ration;

has Date $.start;
has Date $.end;

has Num $.length;

method add($self: Duration $duration) re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9530	9616	
==>ther_test_iFoo_singleton_method' => sub { 
  '$iFoo::another_test_iFoo_singleton_method <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34260	34354	
==>elation>

This method is a generic relational operator that returns the complement of
C<semijoi <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	38810	38904	
==>elation>

This method is a generic relational operator that returns the complement of
C<semijoi <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2358	2481	
==>ol::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () ret <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2358	2481	
==>ol::False;
}

method quarter () returns Int {
    return int( ( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () ret <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6738	6858	
==>code;
}
BEGIN{ eval(gen_code); die $@ if $@; }

package PIL::PIL1CPerl5::Util;
sub rebless_with_prefix {
    my($o,$prefi <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	533	680	
==>f $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	533	680	
==>f $tmp == Inf;
        push @start, $tmp;
    }
    $tmp = Inf;
    for ( 0 .. $samples ) {
        $tmp = $self.previous( $tmp );
        last if $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	15716	15822	
==>picosec wday yday tzname tz is_dst>; # XXX: this should be a class variable!
        #Time::Local.new( pair <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4359	4457	
==>"*", !.
p56_quantified_op(W, plus(W))    --> "+", !.

p5_range(W, Z) --> "{", !, p5_range_bounds(Mi <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1075	1172	
==>Debug    = $ENV{HARNESS_DEBUG} || 0;
$Switches = "-w";
$Columns  = $ENV{HARNESS_COLUMNS} || $ENV{C <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2769	2862	
==>lled before any other methods, as it initialises the list of
parameters.

=item C<$q.params()> <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2769	2862	
==>lled before any other methods, as it initialises the list of
parameters.

=item C<$q.params()> <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	2201	2299	
==>» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	2201	2299	
==>» (Set $one, Set $two) {
    !$one.superset($two);
}
multi sub *infix:«⊊» (Set $one, Set $tw <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14781	14924	
==>ng.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $conne <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14781	14924	
==>ng.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => -> Str $channel, Str $key? {
      if $conne <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25841	25942	
==>l if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> values du <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30393	30494	
==>l if any C<$mapping> keys do not match invocant
Relation attribute names, or any C<$mapping> values du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6995	7118	
==>inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	1349	1470	
==>inherit_category { die "not implemented" };
sub inherit_grammar  { die "not implemented" };
sub merge_category   { die "no <==
2	/Users/nnunley/pugs/util/package-osx.pl	246	348	
==>dest) = @ARGV;

$dest =~ s#/([^/]+)/?$#/$1#;
my $remover = "/usr/local/bin/remove-$1.pl";

my (%symlink <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30205	30300	
==>he filename work.

Keeping whittling away at _run_all_tests()

Clean up how the summary is print <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	3716	3857	
==>/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	3728	3869	
==>/[0] 
        the first submatch
    $0 
        the same as $/[0]
    $()<a>
        If the capture object return()-ed were a hash:
        t <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9231	9377	
==>ss
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9219	9365	
==>ss
.
.            $program . ";\n";
        $gen_match = "\$match[-1]";
	$post_match = "\$#match--;";
    } else {
        $try_match = <<"." ;
$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8928	9065	
==>ate all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8928	9065	
==>ate all the way down
    $self.traverse(-> $t {
        $t!set_depth($t.parent().depth() + 1);
    });
}

# NOTE:
# This method is used to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Str.pm	477	608	
==>{ shift }

# conversion to other native types
sub to_bit { (shift)->to_native() ? bit->new(1) : bit->new(0) }
sub to_num { 
    # ev <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	53	169	
==>:(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.inter <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	53	169	
==>:(

sub ∅ {
    set();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.inter <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	1340	1473	
==>ype system :-P
# there are more types ... but this will do for now
our %types
    = ( int => "Int",
        real => "Num",
        str <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2751	2845	
==>ure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$g <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2751	2845	
==>ure_all :: $module_name.o $module_name.hi
$cp_to_install

$module_name.o :: $module_name.hs
	$g <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1110	1287	
==>ms.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($k <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1110	1287	
==>ms.exists($key)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($k <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1211	1373	
==>aram, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub com <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1211	1373	
==>aram, $type {
            if $param ne $type {
                die "Type error: Expecting $type; Got $param";
            }
        }
    }
}
';

my %done;
sub com <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	27	124	
==>-----------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	27	124	
==>-----------------------
#  Copyright (C) 2005 by Andras Barthazi
#  This code is totally free, use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1188	1285	
==>ule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1188	1285	
==>ule->compile(q( <VariableName> ))->code;
*Parameters = Pugs::Compiler::Rule->compile(q(
    <Expr> <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	1264	1453	
==>d,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descri <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	1264	1453	
==>d,
        $.number     =     0,
        $.diagnostic = '???',
    ) {}

    method status returns Hash
    {
        return
        {
            passed      => $.passed,
            descri <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2177	2287	
==>0000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2177	2287	
==>0000)

# implement this error message (from PIR.pm)
#   if $off > $size {
#      warn "splice() offset past end <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	30010	30109	
==>e's a handler installed, and call it if there is.
I don't want atom to handle ')', so the handler is <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	13154	13250	
==>he type of the function the arrow operator, applied to the type of the parameter (as allocated in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9092	9204	
==>e alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag y <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2127	2239	
==>e alternatives and relink if needed
    ### XXX doesn't do manpages yet
    ### XXX doens't check the AUTO flag y <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	430	586	
==>pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Pa <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	430	586	
==>pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_char () {
    $.Pa <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2578	2711	
==>ion file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Confi <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2578	2711	
==>ion file
    rootproperty=blah

    [section]
    one=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Confi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	13366	13505	
==>, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_;
    my $rx = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27199	27324	
==>, $ws, $d) = @_;
    unshift @$ws, sub { -1 }, $self->{data}, sub { +1 } if $d;
  }

  sub insert {
    my ($self, $tree) = @_ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2680	2806	
==>(scalar @file) {
		if ($chr eq "#" and $file[0] eq "!") {
		    ++$col;
		    shift @file;
		    while (scalar @file) {
			$chr <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Param.pm	126	237	
==>onal;
has Bool $isNamed;
has Bool $isLValue;    # not is copy
has Bool $isWritable;  # is rw
has Bool $isLazy;
h <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9110	9258	
==>nes) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescape <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9110	9258	
==>nes) {
            $string ~~ s:P5:g/\012/&#10;/;
            $string ~~ s:P5:g/\015/&#13;/;
        }
    }
    
    return $string;
}

sub unescape <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1779	2001	
==>ist');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %event <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1779	2001	
==>ist');
                            $in_list = 1;
                        }
                        my $depth = $0.bytes;
                        %events<start_element>('item');
                        interpolate($1, %event <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23625	23720	
==>o many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23625	23720	
==>o many commands in too short time.

If you supply C<:floodcontrol(1)> to the constructor, this m <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19279	19405	
==>);
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxP <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15700	15826	
==>);
    my ($f_on, $f_off) = (0,0);

    &RxPOS -= length($on.$off);
    my $old = &RxPOS;

    for (split //, $on) {
      &RxP <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8516	8623	
==>act syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8516	8623	
==>act syntax tree for the Rosetta D language

=head1 VERSION

This document describes Rosetta::Model version 0 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4384	4484	
==>amed captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4384	4484	
==>amed captures
as match objects, keyed by their names.

=head2 &{}

When used as a code reference, the <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9084	9209	
==>set = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = sp <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9084	9209	
==>set = shift;
    my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = sp <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7646	7741	
==>ee') => sub { $_[1]->instantiate($_[0]) };

# an instantiated variable will unify it's instantia <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4379	4475	
==>KeyedText for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1 <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4379	4475	
==>KeyedText for English

=head1 VERSION

This document describes Locale::KeyedText::L::en version 1 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4153	4305	
==>mplemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4153	4305	
==>mplemented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8860	8973	
==>= ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Tar <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8860	8973	
==>= ::class.new();
    
    $h.header('Status') = $status;
    $h.header('Location') = $location;
    $h.header('Tar <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8266	8365	
==>ect
  }

When the regex is finished being parsed, next() returns false, and will
return false if cal <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	11873	11968	
==>h something other than C<E<lt>=E<gt>> or
C<cmp>.

=back

Any Criterion may recieve either or bot <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	153	301	
==>my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'to <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	153	301	
==>my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'to <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14903	14997	
==>epends on what your current lexical context has
declared the "working unicode level to be". Def <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2366	2464	
==>this port does it's best to work with those limitations and 
still produce a working version of Fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2366	2464	
==>this port does it's best to work with those limitations and 
still produce a working version of Fil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22375	22482	
==>less $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22654	22761	
==>less $match;
        my $capture_block = sub { return { _simple_statement =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9388	9480	
==>ub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3213	3305	
==>ub_defin(@_) };
push @statements, sub { Grammar::Perl6->sub_application(@_) };
push @statemen <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	3454	3607	
==>to_number {
    my $self = shift;
    my %hash = @_;

    my $version;
    my $tmpl = {
        version => { default => '0.0', store => \$version },
    } <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36350	36448	
==>lly by translate_message() to produce the list of Template module
names that it will search.

=item <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36350	36448	
==>lly by translate_message() to produce the list of Template module
names that it will search.

=item <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4373	4484	
==>turn 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4373	4484	
==>turn 1;
}

# Check whether output can be written.
sub pmc_can_output {
    my ($class, $file_path) = @_;
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	1687	1821	
==>$buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Docum <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	1687	1821	
==>$buffer ~= $str }
    );
    return \%events;
}

multi sub pod2pod (IO $fh) returns Hash is export {
    my %events = (
        # Docum <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1493	1597	
==>ti submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1493	1597	
==>ti submethod BUILD (Int :$year, Int :$month = 1, Int|Str :$day is copy = 1) returns Date {
    if $day ~~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1807	1971	
==>\%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	1795	1959	
==>\%index;\n" . 
        "  my \@match;\n" .
        "  my \%named;\n" .
        #"  my \$from = \$pos;\n" .
        "  my \$bool = 1;\n" .
        "  my \$capture;\n" <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	6627	6755	
==>07),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbq <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	6627	6755	
==>07),
    "ndash"    => chr(8211),
    "mdash"    => chr(8212),
    "lsquo"    => chr(8216),
    "rsquo"    => chr(8217),
    "sbq <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33173	33268	
==>sage, the corresponding Template modules will be searched in the order
they appear in this array <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33173	33268	
==>sage, the corresponding Template modules will be searched in the order
they appear in this array <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4430	4543	
==>litpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    fo <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4430	4543	
==>litpath($path);
    my @dirs = splitdir($dirs);
    my (@base_dirs, @path_dirs);
    my $use_base_dirs = 1;
    fo <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	19301	19400	
==>ed} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	19301	19400	
==>ed} );

=back

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONFIGURATION AND ENVIR <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	3559	3655	
==>ad.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 wa <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	3559	3655	
==>ad.

Written using Pugs as of 2005-05-05, it was written to provide functionality
while Perl 6 wa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2231	2336	
==>>add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tight <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2231	2336	
==>>add_op( {
    fixity => 'circumfix', name => '(', name2 => ')', assoc => 'left',
    precedence => 'tight <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8751	8856	
==>+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/cha <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	6280	6381	
==>+', 
 # fixity => 
 #  infix/prefix/circumfix/postcircumfix/ternary
 # assoc =>
 #  left/right/non/cha <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5929	6032	
==>?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specific workaro <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5929	6032	
==>?SELF!_assert_arg_msg( 'translate_message', '$message!', $message );

    # This Perl-6 specific workaro <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	308	408	
==>>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Per <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	308	408	
==>>);
}

=head1 NAME

Perldoc::DOM - Represent a Perldoc document, DOM-style

=head1 SYNOPSIS

 use Per <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6344	6442	
==>Although not technically part of the API, most ciphers will want to implement 
a constructor with C <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6344	6442	
==>Although not technically part of the API, most ciphers will want to implement 
a constructor with C <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	311	458	
==>rt {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	311	458	
==>rt {
    
    for @EVENTS -> $e { %events{$e} = sub { } unless ?%events{$e} }
    
    my $is_parsing = 0;    
    my $in_list    = 0;

    my $fh = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2505	2646	
==>re} ? ( capture => [ { literal => $extracted } ] ) : () ),

    };

}



sub ws_star {

    #return unless $_[0];

    return { 

        bool <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2410	2544	
==>re} ? ( capture => [ { literal => $extracted } ] ) : () ),
    };
}

sub ws_star {
    #return unless $_[0];
    return { 
        bool <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3532	3633	
==>r>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3716	3817	
==>r>
 **{n..m}
 :: :::   (commit)
 $var := [non-capture]
 $var := <rule>
 <(closure-assertion)> <{code-r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19950	20052	
==>t will
return I<"uname:password"> as a single string value.

When used to set the header value, it expe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19950	20052	
==>t will
return I<"uname:password"> as a single string value.

When used to set the header value, it expe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	1414	1545	
==>rse = 1;

            $sha1->add( Storable::nfreeze($self) );
        };

        $sha1->hexdigest;
    }
}

{
	package Blondie::Nod <==
2	/Users/nnunley/pugs/util/build_pugs.pl	1594	1704	
==>ster', '--user');

        print "*** Building the '$module' dependency.  Please wait...\n\n";

        system( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14029	14162	
==>son.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14029	14162	
==>son.prepare();
        for 1..3 {
            my Rosetta::Interface::Scalar $person_id
                .= new( payload => ask_user_for <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	3262	3629	
==>equest");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	3262	3629	
==>equest");
                            next;
                        }
                        
                        if ($expires && $expires < $now) {
                            #LWP::Debug::debug("   expired");
                            next;
                        }
                        
                        if ($port) {
                            my <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3047	3220	
==>push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3047	3220	
==>push @s, $tmp if $tmp;   
    }
    return "$_[1] alternation( [\n" . 
           join( ',', @s ) .
           "$_[1] ] )\n";
}        
sub concat {
    my @s;
    for ( @{$_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18844	18953	
==>s:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_node.expor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18844	18953	
==>s:

    my $cloned_node = Rosetta::Model::Document.new(
        document => $document, *%{$original_node.expor <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7231	7342	
==>] !! undef;
    @result;
}


 multi Array::unshift (@array is rw ; *@values --> Int ) {
   Array::splice(@array, <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14480	14577	
==>internally uses the C<scan> method to build the string, the result
will use case as suggested by H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14480	14577	
==>internally uses the C<scan> method to build the string, the result
will use case as suggested by H <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4902	5046	
==>lf: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4902	5046	
==>lf: )                is rw { $self!date_header("Date")                }
method expires ($self: )             is rw { $self!date_header("Expires") <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10796	10950	
==>:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIP <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10796	10950	
==>:node<2.1.2>),             
          )
      )        
  );
  
  $root.traverse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIP <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2710	2824	
==>oop{$id}{'ops'}}]; local $Z::oop{$id}{'ops'} = $ops;
        my $cmp = (!defined($ops->[-1])) ? -1 : $ops->[-1]->op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	18994	19108	
==>use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	18994	19108	
==>use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_node.export_as_hash();
    MyPe <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3327	3427	
==>h.)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not merel <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3327	3427	
==>h.)  It 
also means that the nonce or initialization vector should be hashed with the 
key, not merel <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1779	1870	
==>may then resume the installation process described in README.

----------------------------- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1619	1710	
==>may then resume the installation process described in README.

----------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14830	14930	
==>ct(anyof_class => punct => $neg, \$how);
  });

  # space POSIX class
  $self->add_handler('POSIX_spa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	14495	14590	
==>assed through

=item RPe_BADPOS (-24)

POSIX class [:%s:] unknown

=item RPe_OUTPOS (-25)

POSIX <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10094	10191	
==>> 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which i <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10094	10191	
==>> 'http://www.perl.org/'
 );

The constructor arguments are passed to the C<header> method which i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3349	3485	
==>fix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { post <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3349	3485	
==>fix {
    my $tree = shift;
    my $ref = ref $tree;
    my $s = "$tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { post <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	6838	6937	
==>ll these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	6838	6937	
==>ll these events is
the C<$event_type> (header, list, item, etc.). 

=over 4

=item I<start_element ( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1879	2024	
==>9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06 <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1879	2024	
==>9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | hex | oct  };

# these are defined in A06 <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2420	2520	
==>method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $oth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2420	2520	
==>method proper_subset($self: Set $other) returns Bool {
    my $rv = ($self.size < $other.size && $oth <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10547	10650	
==>class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10547	10650	
==>class: Str $ciphertext, *%options) {
    my $self = $class.new(*%options, :mode<deciphering>);
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8093	8203	
==>_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $modul <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8093	8203	
==>_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module_name!', $modul <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	5609	5758	
==>@_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5831	5980	
==>@_[1,2] ) if ref( $v );
        if ( $k eq 'variable' && $v eq $_[1] ) {
            #print "subst $k $v @_[1,2] ",$_[0]->{$k}, "\n";
            $_[0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	7276	7417	
==>f = shift;
		my $thunk = shift;

		$self->enter_scope;
		my $rthunk = $thunk->fmap(sub { $self->reduce($_[0]) });
		$self->leave_scope;
		
		m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	419	529	
==>roperly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!members <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	419	529	
==>roperly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!members <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1645	1791	
==>tchVal' => sub { # $idx -> $value
                my $self = shift;
                my $idx = shift;
                $self->array_fetchElem($idx)-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	740	856	
==>l "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - generalize
    return
    "$_[1] ( ( substr( \$ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7091	7210	
==>d_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7091	7210	
==>d_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant C <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	4274	4413	
==>osetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	4274	4413	
==>osetta::Model::Document :$document!,
            Rosetta::Model::Node     :$parent_node? = undef,
            Str                      :$nod <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	1685	1832	
==>}
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for wri <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	1685	1832	
==>}
            my $output = open($file, :w);
            if ( ref $output ne 'IO' ) {
                %self<_err_str> = "Failed to open $file for wri <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	2195	2359	
==>n (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	2195	2359	
==>n (   $self.new( start => -Inf,
                     end =>   $.start,
                     start_is_open => Bool::True,
                     end_is_open =>   ! $.st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1522	1667	
==>" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1522	1667	
==>" .
        "    );\n" .
        "    return Pugs::Runtime::Match->new( \$match );\n" .
        "  }\n" .
        "}\n";
}

sub emit_rule {
    my <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19514	19658	
==>iableStatement>
    | <EmptyStatement>
    | <ExpressionStatement>
    | <IfStatement>
    | <IterationStatement>
    | <ContinueStatement>
    | <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	498	603	
==>o.

# Determine which stack frame points to the code we are filtering.
# This is a method in case it needs <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	498	603	
==>o.

# Determine which stack frame points to the code we are filtering.
# This is a method in case it needs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	96	196	
==>strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyn <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	96	196	
==>strict;
use warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyn <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	11779	11915	
==>Scopes;

sub find_dyn_sym {
    my $self = shift;
    my $symbol = shift;

    foreach my $pad ($self->pads){
        return $pad if $pad <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	2090	2186	
==>proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.4
method <[[HasProperty]]> ($O: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19372	19462	
==>authentication scheme and parameters applicable to the requested URI.

=item $h.proxy_authe <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19372	19462	
==>authentication scheme and parameters applicable to the requested URI.

=item $h.proxy_authe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	707	851	
==>tocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	707	851	
==>tocol($protocol) if $protocol.defined;
        }
        
        $self;
    }
    
    multi method uri (Str $new) is rw {
        my $old = $!u <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	345	451	
==>odbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.], <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	345	451	
==>odbye!],
    'ROS_S_DBMS_INIT_FAIL'
        => q[Initialization of the Engine "<ENGINE_NAME>" has failed.], <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5770	5968	
==>al { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6234	6432	
==>al { _parse_depends( [$sub_entry], $avail, [] ) }
                        and next RESOLVE;

                    
                }


                my @found;
                for my $sub_entry ( @$ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6255	6364	
==>chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6255	6364	
==>chan\".";
      } else {
        %!channels{$chan}<users>.delete(normalize $event<from_nick>);
        %!users <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12828	12929	
==>te if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Return <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12828	12929	
==>te if the recurrence is an empty set.

- `end()` 

Returns the last element in the recurrence.

Return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9232	9353	
==>r('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::H <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9232	9353	
==>r('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DESCRIPTION

The C<HTTP::H <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11843	11946	
==>he specified header field.  Previous values
for the same field are retained.

As for the header() method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11843	11946	
==>he specified header field.  Previous values
for the same field are retained.

As for the header() method <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25312	25410	
==>ays.  The tests that use regmust have a
 * heuristic that disables the test if it usually matches.] <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11794	11895	
==>s (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $re <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11794	11895	
==>s (e.g. 001 -> welcome)
  my method handle_numeric(Str $line, Str $server, Str $code, Str $to, Str $re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11016	11201	
==>eturn $S->object(open => $S->{nparen});
  });


  ### ')'


  ### '{'


  ### '}'


  ### '['


  ### ']'


  ### '<'


  ### '>'


  ### '.'

  $self->add_handler('.' => sub {
    my ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10137	10242	
==>PERL_DEBUG}) {
	$runperl = "$ENV{PERL_RUNPERL_DEBUG} $runperl";
    }
    unless ($args{nolib}) {
	if ($is <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	99	216	
==>f:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %at <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	99	216	
==>f:) returns Hash {
    my %att = $self.SUPER::dom_attr() or die;

    # yeah, we just clobber them, so what :)
    %at <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15186	15278	
==>rray contexts, the encoded or
decoded string is returned (without changing the input string). <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15186	15278	
==>rray contexts, the encoded or
decoded string is returned (without changing the input string). <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1319	1412	
==>imilar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1319	1412	
==>imilar to L<perlcheat>. The table of contents can be found at
F<docs/quickref/README>.

=head2 <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	12335	12464	
==>{  # see 9.3.1
      <[0..9a..fA..F]>
}

# A.3 Expressions

rule PrimaryExpression :words {  # see 11.1
      <'this'>
    | <Iden <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14090	14182	
==>D0,D1,D2])}.


alnums([C|T]) --> [C], {code_type(C,alnum)}, alnums(T), !.
alnums([]) --> {tru <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	8373	8494	
==>hed this.
    return $self->{ghc_pkg} if $self->{ghc_pkg};

    my $ghc  = shift || $self->{ghc} 
        or croak "assert <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	51	156	
==>trict;

use warnings;

#use Smart::Comments; for debugging, look also at Filtered-Comments.pm



=pod



A <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	48	147	
==>trict;
use warnings;
#use Smart::Comments; for debugging, look also at Filtered-Comments.pm

=pod

A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21432	21536	
==>ket usually stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21432	21536	
==>ket usually stays connected for a few seconds.

=head2 C<$bot.nick("newnick")>

Tries to change the bot's <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	808	905	
==>r (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	808	905	
==>r (*@path) returns Str is export { canonpath(join('/', (@path, ''))) }

sub catfile (*@_path) retu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6388	6489	
==>st ciphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _ciphe <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6388	6489	
==>st ciphers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _ciphe <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5855	5959	
==>epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5855	5959	
==>epoch based time values.
#sub retry_after       { shift->_date_header('Retry-After',       @_); }

method <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4963	5077	
==>f.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4963	5077	
==>f.fix_height();
    $self.fix_width();    
    # make sure that the removed child
    # is no longer connected to t <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4673	4779	
==>m 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quar <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4673	4779	
==>m 1 to 31.

- `day_of_year()`

Returns the day of the year, from 1 to 366.

- `quarter()`

Returns the quar <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3111	3244	
==>n.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3111	3244	
==>n.start;
        $open_start = $span.start_is_open;
    }
    elsif ($cmp == 0) {
        $i_start = $.start;
        $open_start = $. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21069	21185	
==>_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17490	17606	
==>_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S->object(unlessm => 1);
  }) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14940	15064	
==>$class, $rx, $on, $off, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12556	12666	
==>t of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=he <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12556	12666	
==>t of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $set2>

=head2 C<$set1 ⊊ $set2>

=he <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	327	485	
==>l;

# use base Exporter;
# @EXPORT_OK = qw(parser nothing End_of_Input lookfor
#                 alternate concatenate star list_of 
#                 operator <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	749	876	
==>ethods => {
        'BUILD' => sub {
            _('$.output' => $::TestBuilder->FETCH('::Output')->new());
        },
        ' <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	11809	11959	
==>details = $results{details};
                foreach my $overrun ($test{max}+1..@$details) {
                    next unless ref $details->[$overrun-1] <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	119	217	
==>::TestBuilder->STORE('::Output' => class 'TestBuilder::Output' => {
    is => [ $::Object ],
    at <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1773	1889	
==>ut what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code = <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1773	1889	
==>ut what functions are toplevel...
    # XXX - bloody hack for now

    no strict 'refs';
    foreach my $sym ($code = <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9805	9998	
==>%hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    mul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9805	9998	
==>%hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./clear.load;
    }
    
    mul <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2741	2854	
==>tal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2799	2912	
==>tal: $!", $expected, $depends);
    }
    else {
        #diag "'$desc' was non-fatal and maybe shouldn't use eval <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	2306	2414	
==>remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), " <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	2284	2392	
==>remove};

    print(((!exists $args{check_for} or -e $args{check_for})
        ? "done!" : "failed! ($!)"), " <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	25	131	
==>ings;
use strict;

use Getopt::Long;
use LWP::Simple     qw<getstore>;
use File::Copy      qw<copy>;
use Fi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7417	7574	
==>uleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    pus <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7610	7767	
==>uleop::concat(
         ruleop::constant( "\[" )
       ,
         \&{'grammar1::rule'}
       ,
         ruleop::constant( "\]" )
       ,
       )
;
    pus <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15486	15582	
==>we thread the set of generic type variables, so the body has the generic variables created in the <==
2	/Users/nnunley/pugs/util/build_pugs.pl	8229	8337	
==>ush @libs, grep /\.(?:a|o(?:bj)?)$/, @_;

    my $ghc_pkg = $ghc;
    $ghc_pkg =~ s/(.*ghc)/$1-pkg/;
    my $ <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5517	5616	
==>]\>\<\/\!\=\?\#\x[bbd]\x[abd]]> }

rule named_character  { \\ <[cC]> \[ <-[\]]>+ \] }

# XXX - PGE d <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5496	5601	
==>fess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5781	5886	
==>fess "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	707	816	
==>le).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, which we can g <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	707	816	
==>le).

   And because macros are buggy, the node_Mumble macros are
   currently defined as subs, which we can g <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2147	2251	
==>e_name> . " = Pugs::Compiler::Regex->compile(q(" .
        $body . ")$mod)->code;"
    }
))->code;
*gramm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	17749	17905	
==>'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	18028	18184	
==>'}
           ,
         )
       ,
         ruleop::capture( 'list', \&{'grammar1::list'} )
       ,
         ruleop::optional(
             \&{'grammar1::p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3241	3333	
==>$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the para <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3241	3333	
==>$q.param($name, $val1, $val2...)> or C<$q.param($name) = @vals>

Assigns C<@vals> to the para <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	692	823	
==>f an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	854	985	
==>f an explicit grammar?
    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Base';
    $sel <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8604	8710	
==>items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specif <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8604	8710	
==>items are in the set. C<has> is an alias for C<includes>.

=head2 C<$set.member($item)>

Returns the specif <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8469	8576	
==>s one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since al <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8469	8576	
==>s one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' since al <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2156	2248	
==>f arbitrary code;
each alternate engine may introduce additional security or memory problems. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	965	1077	
==>/ grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symme <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	965	1077	
==>/ grep / intersected_spans / span 
    * recurrence of spans

  From "Set" API:
    * equal/not_equal
    * symme <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13843	13964	
==>}

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13843	13964	
==>}

  # JOIN/PART/KICK/...
  method join(Str $channel, Str $key?) {
    if $.connected {
      if defined $key {
        ./ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	8662	8779	
==>nt STDOUT "# key ", _qq($_), " was ", _qq($orig->{$_}), " now missing.\n";
    $fail = 1;
  }
  !$fail;
}

sub require <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	6095	6200	
==>_oper:
  $tokenCat = $$token{syncat};

  shift_reduce:
  my $topcat = PGE_OPTABLE_EMPTY;
  if ( @tokenStac <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3580	3694	
==>el::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3580	3694	
==>el::Document $!document;
    # Rosetta::Model::Document
    # The Document that this Node lives in.
    has Rosetta <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9284	9367	
==>---------------------------------------------------
package main;
Regexp::StructHook <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3416	3555	
==>tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3416	3555	
==>tree";
    if ( $ref eq 'ARRAY' ) {
        $s = join( ' ', map { postfix( $_ ) } @$tree );
    }
    if ( $ref eq 'HASH' ) {
        return <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16534	16647	
==>nBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  ret <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16534	16647	
==>nBucket::new_bucket(rate => (1000/2), burst_size => 5000); # hack
  $bucket<fill>();

  # "Instance methods"
  ret <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2196	2309	
==>m wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2196	2309	
==>m wanted_dir

Gets called before a directory is added to the queue.
Should return 1 or 0. (defaults to 1)

    sub <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	57	161	
==>r $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header remove_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	57	161	
==>r $CRLF = "\015\012";

has HTTP::Headers $!headers handles «
    header push_header init_header remove_h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1841	2001	
==>ookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delay <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1841	2001	
==>ookies = %!cookies{$domain};
                
                next unless $cookies;
                
                if (.delayload && defined $cookies{'//+delay <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5551	5817	
==>) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9028	9294	
==>) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TODO.
}

###########################################################################

method <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	364	464	
==>_agent server from referer
    www_authenticate authorization proxy_authorization authorization_basic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	364	464	
==>_agent server from referer
    www_authenticate authorization proxy_authorization authorization_basic <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5314	5442	
==>tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5314	5442	
==>tmp1 ~ ',' ~ $tmp2 ~
           ( $.end_is_open   ?? ')' !! ']' );
}

method compare ( Span::Num $span ) returns int {
    my int <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	18354	18527	
==>in ::= &join;

###########################################################################

my method _union (Relation::Example $other!) returns Relation::Example {
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7884	7990	
==>t { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7884	7990	
==>t { 
    my ($span0, $span1) = _normalize_parameter( $self, $span );
    return 0  if $span0.is_empty && $s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8555	8667	
==>::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8543	8655	
==>::Runtime::Match::Ratchet' ];
$_[1]       }
$_[1]       else {
$_[1]         push \@{ \$match[\$index{$rnd}] }, b <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9040	9133	
==>set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Retur <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9040	9133	
==>set.clear()>

Clears the set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Retur <==
2	/Users/nnunley/pugs/util/package-osx.pl	6177	6265	
==>n/man3/Perl6::Overview::Object.3pm
        /usr/local/man/man3/Perl6::Overview::Operator. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3182	3303	
==>mp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else { <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3182	3303	
==>mp == 0) {
        $i_start = $.start;
        $open_start = $.start_is_open ?? $span.start_is_open !! 0;
    }
    else { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	2033	2164	
==>return 
        "grammar $self->{name} { \n" .
        $s .
        "}\n";
}

use Test::More tests => 1;
use Data::Dumper;

{
    my <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	742	856	
==>IS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1! <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1326	1440	
==>IS

    use re::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1! <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8182	8289	
==>he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize( <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8182	8289	
==>he/she has joined.
    ./add_handler("NICK", -> $event {
      if(normalize($event<from_nick>) eq normalize( <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	553	698	
==>fe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	553	698	
==>fe])";
        
        $string ~~ s:P5:g/$pattern/{ %escapes{$0} || fail_hi($0) }/;
        
        return $string;
    }
    
    multi sub uri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2002	2150	
==>ARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 N <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2002	2150	
==>ARSE_ARGV && (@*ARGS.elems > 0)) {
            $.query!parse_params([~] @*ARGS);
        } else {
            # XXX
        }
    }
}

=pod

=head1 N <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4422	4556	
==>) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $to <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4422	4556	
==>) }; 
    # this is a memory stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $to <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	2781	2902	
==>xtensions) {
        $self->load_extensions("$self->{prefix}/$self->{path}", $self);
    }

    foreach my $obj (@{$self-> <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	48344	48434	
==>---------------------------------
## add Module

$::Module = $::Class->send('new');
$::Modu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17964	18064	
==>her, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17964	18064	
==>her, even if more than one uses the
same Engine class to implement it; that is, multiple DBMS objects <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7807	7908	
==>he from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normaliz <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7807	7908	
==>he from %users and %channels.
    ./add_handler("QUIT", -> $event {
      my @chans = %!users{normaliz <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	5471	5572	
==>$self = shift;
    return $self->SUPER::run(@_) if $Config{concurrent} == 1;
    my @tests = $self->ge <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	16653	16746	
==>xpressionNoIn>
    | <EqualityExpressionNoIn> <'!='> <RelationalExpressionNoIn>
    | <Equalit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2145	2255	
==>code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2145	2255	
==>code;
        my $status_message = HTTP::Status::status_message($code) // "Unknown code";
        my $message = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	5065	5180	
==>ons};

    foreach my $obj (@{$self->{extensions}}) {
        return $obj if $obj->can($method);
    }

    my $admi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	22361	22496	
==>> sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18782	18917	
==>> sub {
    my ($S) = @_;
    my $c = '(??';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can( <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9804	9912	
==>d pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::Li <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9804	9912	
==>d pop   () { self.end   if self.elems }  

}  # end class Perl6::Value::List

multi *shift ( Perl6::Value::Li <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14193	14355	
==>^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else { <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14193	14355	
==>^(([0-9a-fA-F]{40})\n.*\n)!!) {
            if (defined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else { <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2695	2805	
==>$class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2695	2805	
==>$class->VERSION || '0';
    return join "\n",
        "# Generated by $class $version ($base $VERSION) - do not <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4830	4953	
==>r returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdi <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4830	4953	
==>r returns Str is export {
  return '';
}

#
# ## TODO:
# # Refactor _tmpdir and tmpdir into class attributes
# my Str $tmpdi <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11445	11549	
==>) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects a <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11445	11549	
==>) returns Str>

=back

=head1 TO DO

=over 4

=item I<Cookies>

My inclination is to wait until objects a <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	1134	1246	
==>ION);
  $ua->env_proxy;

  my $resp = $ua->post($smokeserv => \%request);
  if($resp->is_success) {
    if($resp- <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	719	817	
==>mar, intended for a tokenizer, are not actually used.
#   * Some rules, eg StringNumericLiteral, ar <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14604	14723	
==>hod kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method m <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14604	14723	
==>hod kick(Str $channel, Str $nick, Str $reason?) {
    ./:enqueue("KICK $channel $nick :{$reason // ""}");
  }
  method m <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4391	4590	
==>, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	4855	5054	
==>, $maybe );               

                    push @found, $maybe;
                }
               
                ### nothing satisfied this depenendency
                die "No package satisfies <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	212	304	
==>:Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	212	304	
==>:Rule;
use base 'Pugs::Grammar::Base';

*grammar_name = Pugs::Compiler::Rule->compile(q( \ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	3805	3913	
==>ecurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $s <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	3805	3913	
==>ecurrence => $inter_recurr, span => $_ ) };
    return @intersect;
}

method complement ($set1: ) {
    my $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1560	1700	
==>ecompile;
    for my $prelude_file ( 
        'p6prelude',
        # 'p6primitives',
    ) {

      # loading the prelude is always required, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1355	1493	
==>ecompile;
    for my $prelude_file ( 
        'p6prelude',
        'p6primitives',
    ) {

      # loading the prelude is always required, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2808	2920	
==>me\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $ev <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2808	2920	
==>me\" as \"$curnick\".";
    });

    # Nick already used, so we permute our nick.
    ./add_handler("433", -> $ev <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/TestPlan.pm	965	1143	
==>=> {
        'header' => sub { '' },
        'footer' => sub {
            my ($self, $run) = @_;
            return "1..$run";            
        }
    }    
});

1;

__END__

= <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2031	2131	
==>nd C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it ma <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2031	2131	
==>nd C<$p>, the mark is no longer valid.
This gives the impression of lexically scoped marks (but it ma <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16767	16931	
==>e(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16767	16931	
==>e(@q) {
        if($bucket<conform>(1)) {
          $bucket<count>(1);
          @q.shift().();
        } else {
          last;
        }
      }
      @queue.unshi <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4177	4403	
==>$e->get('$current')
                      ->is_not_nil
                      ->and(
                          block->new($e, sub {
                              my $e = shift;
                              $e->get('$method')->i <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9519	9613	
==>w(
			type::operator::nullary->new("int"),
			type::operator::nullary->new("int"),
		),
	),
	mu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3651	3745	
==>4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Secon <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3651	3745	
==>4

=head1 SEE ALSO

L<Cipher>, L<Cipher::Stream>

Bruce Schneier. I<Applied Cryptography, Secon <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	2018	2127	
==>uperclasses}) {
           $output .= "node_" . $superclass->id . " -- node_" . $class->id . " [ dir = back, s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	19359	19489	
==>= &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15780	15910	
==>= &RxPOS;

    for (split //, $on) {
      &RxPOS++;
      if (my $f = $S->can("FLAG_$_")) {
        my $v = $S->$f(1) and $r_on .= <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5510	5690	
==>g_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array o <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5510	5690	
==>g_string;
# &circumfix:<""> ::= &as_debug_string;

###########################################################################

method get_set_member_combinations () returns Array o <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7462	7584	
==>chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(865 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7462	7584	
==>chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8629),
    "lArr"     => chr(8656),
    "uArr"     => chr(865 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8195	8335	
==>ined $rebuild },
  using  => sub {
    $rebuild = !(
      -r $initrd_gz and
      -M $initrd_gz <= -M $pugs and
      -M $initrd_gz <= -M "$ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	1003	1157	
==>$version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_0 <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	882	1036	
==>$version = shift || 0;
            if ( $module eq 'perl' ) {
                $version =~ s{^(\d+)\.(\d+)\.(\d+)}
                             {$1 + $2/1_0 <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8790	8898	
==>ly when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8790	8898	
==>ly when 
# a subtree is added to a child array
method fix_depth ($self:) returns Void {
    # make sure the t <==
2	/Users/nnunley/pugs/util/func_refact.pl	2404	2541	
==>$cand\n";
        $cands{$cand} = [ scalar @{$nodes->{$cand}}, 
                         # total callees for func
          , union(Storab <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6589	6694	
==>ift);

	my $seq = $node->struct_equiv;
	join("\n\t", "", map { "$_;" } $seq->values);
}

sub emit {
	my $s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10339	10450	
==>sult;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is expo <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10339	10450	
==>sult;
}

my %subst;  # compiled encoding regexps
sub encode_entities (Str $string is rw, $unsafe_chars?) is expo <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1787	1922	
==>iven .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run:: <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1787	1922	
==>iven .value {
                    when Str { box("P5::PIL::Run::Str" => string($_)) }
                    when Num { box("P5::PIL::Run:: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1650	1794	
==>applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checkin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1650	1794	
==>applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checkin <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2626	2733	
==>P at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Google Groups at
L<http:// <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2626	2733	
==>P at
L<nntp://nntp.perl.org/perl.perl6.compiler>.

You can also read the list via Google Groups at
L<http:// <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	583	675	
==>node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigg <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	583	675	
==>node --> FA::DFA::Node) {
  $.state.addarc($trigger,$node);
}

multi method addarc(Str $trigg <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3416	3511	
==>losure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	4098	4193	
==>losure) && ($closure->isa('closure') || $closure->isa('block')))
        || confess "argument to <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	2749	2869	
==>my $class = shift;
		bless {}, $class;
	}

	sub generic_reduce {
		my $self = shift;
		my $node = shift;

		if (Scalar::U <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5156	5377	
==>odifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print(" <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5156	5377	
==>odifier   => -> ($mod) { 
            given $mod {
                when 'E' {
                    $fh.print(";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print(" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6607	6734	
==>rence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6607	6734	
==>rence' ) {
        my $result = Span::Num.new( start => -Inf, end => Inf );
        return $span0, $self.new( span => Span::Code <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18506	18623	
==>ming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14927	15044	
==>ming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S->{next} };
    &RxPOS--;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	7097	7206	
==>>();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	7097	7206	
==>>();
}

=for TODO
test lexical add_op:
    $statement->add_op( {
        fixity => 'infix', name => '*', assoc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3195	3365	
==>t;

            }

            

            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );

            ### 2nd match: $matches[1]

            return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3093	3258	
==>t;
            }
            
            $matches[1] = $nodes[1]->( $matches[0]{tail}, $state[1], $flags );
            ### 2nd match: $matches[1]
            return <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4224	4323	
==>... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6126	6225	
==>... $Object is the second id');
is($Object->class, $Class, '... $Object class slot is $Class');
is($ <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4884	5028	
==>y);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($sel <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4743	4887	
==>y);
        if ( ref $value eq 'HASH' ) {
            while ( my ( $module, $version ) = each %$value ) {
                $self->can($key)->($sel <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8033	8164	
==>r;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$n <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8033	8164	
==>r;
        say "There was an error getting the params:\n\t" ~ $!;
        exit();
    }    
}

sub escapeHTML (Str $string, Bool :$n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	822	918	
==>eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	822	918	
==>eval "require $dumper->[0]";
	die "install $dumper->[0] to enable $interface::format" if $@;
}
su <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2286	2388	
==>sub node::rule_decl {
    my $name = get_str( $_[0], '$<ident>' );
    my $program = Pugs::Emitter::Rul <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	27316	27432	
==>ree) = @_;
    $self->{data} = $tree->[-1];
    $tree->[-1] = $self;
  }
}

1;

__END__

=head1 NAME

Regexp::Parser: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4830	5020	
==>ed .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { captur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	5052	5242	
==>ed .pmc file: \${F}c"}
#####################################################################
...
        print $program;
    }
    return $program;

}

sub get_data {
    match::get( { captur <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17634	17752	
==>ect that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    R <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17634	17752	
==>ect that represents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    R <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5445	5600	
==>t "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5457	5612	
==>t "cap\n", Dumper( $_->{$n} );
                return $_->{$n};
            }
        }
        return;
    }

    # XXX - wrong, but bug-compatible with pr <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	12948	13095	
==>ts there will be in C<< $strap->{max} >>, a list of which tests
are todo in C<< $strap->{todo} >> and if the whole test was skipped
C<< $strap->{ski <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10207	10316	
==>s `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10207	10316	
==>s `true` if the set is empty.

- `is_infinite()`

Returns true if the start or the end of the set are Infinite <==
2	/Users/nnunley/pugs/inc/Test/Harness/Assert.pm	279	396	
==>IS

  ### FOR INTERNAL USE ONLY ###

  use Test::Harness::Assert;

  assert( EXPR, $name );

=head1 DESCRIPTION

A sim <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	393	516	
==>d _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer > <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	393	516	
==>d _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    gather {
        while @.buffer > <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7421	7550	
==>turn 
                " Pugs::Runtime::Perl6::Scalar::" . _emit( $n->{method}, '  ' ) . 
                "(" . _emit( $n->{self} <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10625	10733	
==>b -> (a x b)
	pair => do {
		my $a = type::variable::free->new;
		my $b = type::variable::free->new;
		
		typ <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5752	5835	
==>rl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5752	5835	
==>rl 5 implementation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tin <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	0	100	
==>use v6;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-0 <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	0	100	
==>use v6;

# Perl6::Value::List - implementation of Perl6 'List' class in Perl6

=for ChangeLog

2005-0 <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9571	9696	
==>sg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SE <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9571	9696	
==>sg_key );

    my Str $text = undef;
    try {
        $text = &::($module_name)::get_text_by_key( $msg_key );
    };
    $?SE <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12424	12598	
==>c;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12424	12598	
==>c;
        }
        
        return $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20800	20890	
==>a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Install: <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20800	20890	
==>a module distribution
with compiled .pmc files. Module::Compile installs a
Module::Install: <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	7394	7524	
==>r"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8 <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	7394	7524	
==>r"     => chr(8593),
    "rarr"     => chr(8594),
    "darr"     => chr(8595),
    "harr"     => chr(8596),
    "crarr"    => chr(8 <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9821	9924	
==>d finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tai <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9821	9924	
==>d finish(Cipher $self:) returns Array {
    my @tail=$self._tail();
    $self.zeroize();
    return @tai <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13688	13786	
==>ange of values.

You should consider using a Set::Infinite object if you want to exclude
large rang <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13688	13786	
==>ange of values.

You should consider using a Set::Infinite object if you want to exclude
large rang <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1298	1425	
==>t result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess fla <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1298	1425	
==>t result
            @results.push($current_tree);
            $self.set_results(@results);
            # and set the sucess fla <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16535	16661	
==>v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this modu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16535	16661	
==>v6-pugs;
    module MyModule;
    # ...some p6 code here...
    no v6;
    # ...back to p5 land...

On the first time this modu <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2077	2222	
==>"_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $outp <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2077	2222	
==>"_err_str";
                $output.say("[$section]") if $section.chars;
                for sort keys %self{$section} {
                    $outp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26250	26348	
==>fined and non-empty string, and each variable value can be anything at
all.  Note that while the Ha <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26250	26348	
==>fined and non-empty string, and each variable value can be anything at
all.  Note that while the Ha <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7173	7315	
==>s
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (s <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7173	7315	
==>s
    return $path unless $path_volume eq $base_volume;

    $path = rel2abs($path);
    $base = rel2abs($base);

    my $path_directories = (s <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	9575	9666	
==>ator::nullary->new("int"),
		),
	),
	mul => type::operator::arrow->new(
		type::operator::nu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	152	254	
==>'t yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definiti <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	152	254	
==>'t yet know an authoritative name.


30 Aug 2005 - some notes on macros:

   Ideally, the node definiti <==
2	/Users/nnunley/pugs/examples/rpn/p6/Rpn.pm	489	623	
==>.push($tok);
            next;
        }
        my $x = @stack.pop() err die "Stack underflow\n";
        my $y = @stack.pop() err die <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	7657	7780	
==>or usage inside a grammar:

    sub new_proto( $match ) {
        return ${$match<category>}.add_op( 
            name = <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	20012	20117	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	20291	20396	
==>op::capture( 'p6ws', \&{'grammar1::p6ws'} )
       ,
         ruleop::capture( 'list', \&{'grammar1::list' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5498	5610	
==>ss "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5783	5895	
==>ss "You must supply a name to set";
    (blessed($value) && $value->isa('type'))
        || confess "You must set <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2297	2417	
==>_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2297	2417	
==>_TYPE'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref as expected,]
           ~ q[ but the value for its '< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2318	2417	
==>more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-d <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2318	2417	
==>more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-d <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17212	17313	
==>mpty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17212	17313	
==>mpty()`

Returns `true` if the span is empty.

- `is_infinite()`

Returns true if the start or the end <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1689	1800	
==>iles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

* Runtime Cl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1689	1790	
==>iles Perl 6 Tokens to Perl 5.

=item * L<Pugs::Compiler::Regex> compiles Perl 6 Regexes to Perl 5.

=i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5556	5679	
==>lit_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5556	5679	
==>lit_header_words(.header("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defi <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3368	3465	
==>ng.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3368	3465	
==>ng.

=back 4

=head3 Object-Oriented interface

The Cipher API is fundamentally object-oriented; t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21491	21590	
==>member(class_neg(word)      ,C) :- !, \+(char_type(C,csym)).
class_member(class_pos(X)         ,C) : <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26518	26616	
==>PT_UTF8		0x10000
 #define ROPT_NAUGHTY		0x20000 /* how exponential is this pattern? */
 #define ROP <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5813	5928	
==>ontinue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, : <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5813	5928	
==>ontinue($m.clone(match => $m.match.clone(multidex => $mdex)));
                });
    });
}

method optional ($p, : <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21883	21977	
==>::Overview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The inte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21883	21977	
==>::Overview>
documentation in this distribution for that comparison.

=head1 INTERFACE

The inte <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	369	484	
==>lock(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    g <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	369	484	
==>lock(@.buffer);
}

method _cipher(Array $data) {
    push @.buffer, *$data;
    my int $bs = .block_size;
    
    g <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11608	11703	
==>Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*enc <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11608	11703	
==>Set up aliases
#*encode = \&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*enc <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	7844	7943	
==>tore`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	7844	7943	
==>tore`

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavio S. Glo <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	3068	3166	
==>, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (witho <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	3068	3166	
==>, $.month, $.year].join($sep);
}

=kwid

= NAME

Date - An object representing a single date (witho <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	4395	4529	
==>elf = shift;
    join "", "[", $self->{neg} ? "^" : "";
  }

  sub neg {
    my $self = shift;
    $self->{neg} = shift if @_;
    $sel <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	6432	6551	
==>substr target, litstart, $I0
    $S0 = concat initchar, $S0
    mob["value"] = $S0
    goto end

  term_ws:
    mob = ne <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	25203	25347	
==>LEN               { $_[0]{len} }

  # access to the flag stack
    # the top flag value
    sub Rf :lvalue          { $_[0]{flags}[-1] }

  # acc <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	29249	29366	
==>urns block {
    $order = ':ascendant' 
        if !~$order || $order == ':canonical';
    ...
}

=cut

$::Class->send <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	764	874	
==>cros are
   currently defined as subs, which we can get away with since
   this is currently simply a code gene <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	764	874	
==>cros are
   currently defined as subs, which we can get away with since
   this is currently simply a code gene <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	20672	20763	
==>trength and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	20672	20763	
==>trength and Perl implemented
database server named L<Genezzo> (see also L<http://www.genezzo <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	283	382	
==>:\\b", "term:", "nows", "PGE::Exp::Anchor");
    $optable->addToken("term:\\B", "term:", "nows", "PG <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/NameGen.pm	233	345	
==>unter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/NameGen.pm	233	345	
==>unter = [0], $.parent?, $.parent_ident?, $.state?) { }
    
    method fork($ident) {
        my $ret = $?CLASS.n <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5857	5972	
==>) {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

metho <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5857	5972	
==>) {
    self._pop_n( 1 )[0] 
}

method unshift ( *@item ) {
    &*unshift(@.items: @item);
    return self;
}

metho <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23515	23631	
==>PIR" goto end
    $S1 = self["value"]
    $I0 = index $S1, ".sub"
    if $I0 >= 0 goto end
    $S1 = concat ".sub ano <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3834	3928	
==>eCommentChars>?
    | <'*'> <PostAsteriskCommentChars>?
}
rule PostAsteriskCommentChars {  # se <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8344	8451	
==>e object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTO <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8344	8451	
==>e object is more practical to work with:

  $set = $set1.union( $set2 );
  say $set.stringify;

= CONSTRUCTO <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11654	11757	
==>'secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $exp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11654	11757	
==>'secure', undef) if $secure;
                @h.push('expires', HTTP::Date::time2isoz($expires)) if $exp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	23745	23839	
==>le> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	23745	23839	
==>le> is bundled with Rosetta and
implements a reference implementation of a Rosetta Engine.

The <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	13775	13886	
==>demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	13775	13886	
==>demonstrate the use of a persistence solution:

    # When saving.
    my $hash_to_save = $original_doc.export_a <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	420	525	
==>151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244 <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	420	525	
==>151, 181, 212, 243, 273, 304, 334 );

my @PreviousMonthDoLY =
    ( 0, 31, 60, 91, 121, 152, 182, 213, 244 <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6529	6632	
==>fetch the kernel.",
  ensure => sub { -r $kernel_local and -s $kernel_local },
  using  => sub { getstor <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1840	1937	
==>/macros --output_dir=t_test --no_designdocs

   See also:
     util/yaml_harness.pl  - produce the <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	248	390	
==>= @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $se <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	248	390	
==>= @path;
}

sub visit ($self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $se <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24631	24742	
==>sf.org/>); either version 2 of the
License, or (at your option) any later version.  You should have received a
c <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24631	24742	
==>sf.org/>); either version 2 of the
License, or (at your option) any later version.  You should have received a
c <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	272	399	
==>self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_no <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	272	399	
==>self: $tree) {

    # reset our success flag
    $!success = 0;

    # get our filter function
    my $func;
    if $self.has_no <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4941	5069	
==>ft;

	bless {
		%$self,
		param => $self->{param}->splat($accum),
	}, (ref $self);
}

sub free_vars {
	my $self = shift;
	$self-> <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10502	10605	
==>ODO tests
then you can pass them through this function. This is primarily a release
tool, but can be use <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10560	10663	
==>ODO tests
then you can pass them through this function. This is primarily a release
tool, but can be use <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17646	17758	
==>resents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurre <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17646	17758	
==>resents the Span.

- `lazy()`

Makes a lazy iterator:

    say $a while $a = $span.lazy;

= SEE ALSO

    Recurre <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3176	3309	
==>bundle (@{ $self->bundles }) {
            my ($file, $dir) = @$bundle;
            push @$subdirs, $dir if -d $dir;
            delet <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17696	17791	
==>),F0,F0,B0,B0,E0,E0).

rm(plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( ( <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	488	584	
==>tator" }

sub annotator {
	my $self = shift;
	#$self->annotator_class->require || die $UNIVERSAL: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5198	5310	
==>'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVo <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5198	5310	
==>'MkTParam', 
  'tpParam'   ,'Param',
  'tpDefault' ,'(Maybe (PIL_Expr))';

node_s 'TCxt',                 'TCxtVo <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2303	2398	
==>subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2303	2398	
==>subclasses for more.

In short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2274	2396	
==>s}[$level]} ) {
        my $rule = $op->{fixity};
        $rule .= '_' . $op->{assoc} if $rule eq 'infix';
        my $temp <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1948	2078	
==>ion ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "p <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1948	2078	
==>ion ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say "p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20977	21066	
==>e normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20977	21066	
==>e normalized.

=head2 C<$botE<lt>userE<gt>("nick")>

Returns a hashref describing C<nick>. <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9484	9591	
==>ng;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9484	9591	
==>ng;
    
    $result ~~ s:Perl5:g/&\#(\d+);?/{chr($0)}/;
    $result ~~ s:Perl5:g/(&\#[xX]([0-9a-fA-F]+);?)/ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12797	12891	
==>his routine replaces HTML entities found in the $string with the
corresponding Unicode characte <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12797	12891	
==>his routine replaces HTML entities found in the $string with the
corresponding Unicode characte <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	1400	1526	
==>r =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $as <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	1400	1526	
==>r =~ s/([\'\\])/\\$1/g;

    $src =~ s/([\'"\\])/\\$1/g;
    my $ret = eval( '"' . $src . '"' ); 
    die $@ if $@; 
    my $as <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8393	8494	
==>_interpolation')>

This event is begun when any block of characters is interpolated for modifiers.

=i <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8393	8494	
==>_interpolation')>

This event is begun when any block of characters is interpolated for modifiers.

=i <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	1513	1607	
==>lf->makemaker_args->{INST_ARCHLIB} =
      File::Spec->catfile($path, "arch");
    $self->makem <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/WriteAll.pm	19	109	
==>ule::Install::WriteAll;

use Module::Install::Base;
@ISA = qw(Module::Install::Base);

$VER <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	612	712	
==>($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Du <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	612	712	
==>($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data::Dumper::Indent = 1;
	Data::Du <==
2	/Users/nnunley/pugs/util/addauthors.pl	240	338	
==>}

#foreach (sort {$comitters{$a} <=> $comitters{$b}} keys %comitters) {
#  print "$_: $comitters{$ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9138	9252	
==>elf.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.cl <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9138	9252	
==>elf.new( span => $_ ) };
}

method intersection ($self: $span is copy) returns List of Span {
    # return $self.cl <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1975	2105	
==>col;
		printlatex $chr, $col;
		$chr = shift @file;
		last if $chr =~ /$end/;
	    }
	    print "$chr}";

	# comments
	} elsif ( $c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6262	6369	
==>at(@_);
}

sub left {
	my $self = shift;
	$self->{instance}->left;
}

sub right {
	my $self = shift;
	$self- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	157	256	
==>e;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	157	256	
==>e;  # not 'use base'
use Pugs::Grammar::Rule;
#use Pugs::Runtime::Rule;
use Pugs::Runtime::Match;
us <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18115	18224	
==>le, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part o <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18115	18224	
==>le, as defined by RFC822.  E.g.:

  $h->from = 'King Kong <king@kong.com>';

I<This header is no longer part o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	4193	4364	
==>her => 'Y',
    );
    __PACKAGE__->add_rule( 
        name => ',',
        assoc => 'list',
        precedence => 'equal',
        other => 'Y',
    );
    
    __PACKAGE_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21799	21956	
==>_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22078	22235	
==>_simple_statement'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
           ruleop::concat(
             ruleop: <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1742	1868	
==>number
    given abs($x) - floor( abs($x) ) {
        when $_ < .5 { $x_round = sign($x) * floor(abs($x)) }
        when $_ > . <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16500	16596	
==>_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # ha <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16500	16596	
==>_size => 5)
    !! Algorithm::TokenBucket::new_bucket(rate => (1000/2), burst_size => 5000); # ha <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12872	12981	
==>still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12872	12981	
==>still alive.
  my method livecheck() {
    return unless $.connected;

    # We haven't seen any traffic for a <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4390	4496	
==>match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.n <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	7867	7973	
==>match this relation's attributes."
        if !(all( $attrs ) === any( $!heading ));

    return Relation.n <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	5791	5886	
==>erred',@_) if $cls eq 'Ref';
    return get_meta('Pair')->new('$.key' => $_[0], '$.value' => $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3939	4066	
==>th the Meta Object Protocol (implemented as macros), 

  #   Primitives,

  # - an optimizer chain,

  # - the default Perl6 lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3799	3923	
==>th the Meta Object Protocol (implemented as macros), 
  #   Primitives,
  # - an optimizer chain,
  # - the default Perl6 lib <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23175	23289	
==>utomaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not modified by this module,
as <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23175	23289	
==>utomaton.

=head2 C<$bot.raw("...")>

Sends a command to the server. The command is not modified by this module,
as <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2871	2976	
==>turn [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2871	2976	
==>turn [$.year, $.month, $.day].join($sep);
}

method mdy (Str $sep = "-") returns Str {
    return [$.month <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	3067	3218	
==>n 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	3067	3218	
==>n 1 if contains( $_, $data );
    }}
    if ( $ref eq 'HASH' ) {
        return 1 if exists ${$tree}{$data};
        for ( keys %$tree ) {
            r <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13320	13452	
==>~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $sourc <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13320	13452	
==>~(?!~)/<</g;
    $source =~ s/^'''(?!') /__DATA__\n/gm;
    $source =~ s/^```(?!`)/#/gm;
    $source =~ s/^===(?!=)/=/gm;

    $sourc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9731	9841	
==>arents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unless $self.is_root() <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9731	9841	
==>arents 
    # in order to rectify any issues with height
    $self.parent().fix_height() unless $self.is_root() <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1667	1790	
==>s;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.j <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1667	1790	
==>s;
    my @a = *@.spans, *$set.spans;
    @a = @a.sort:{ $^a.compare( $^b ) };
    # say "union ", @a.map:{ $_.stringify }.j <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9218	9311	
==>(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3043	3136	
==>(@_) };
push @statements, sub { Grammar::Perl6->_simple_statement(@_) };
push @statements, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	9571	9702	
==>\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	10407	10538	
==>\$final_ast->{capture}); \n" .
                "    return \$final_ast;\n" .
                #"    my \$perl5_final = Perl6Grammar:: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3833	3935	
==>ray { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inters <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3833	3935	
==>ray { set(@a).difference(@b).members }
## multi sub *infix:<*#> (@a, @b) returns Array { set(@a).inters <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28288	28396	
==>which is the same as the invocant Relation but that some of its attributes
have been combined/wrapped into tu <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32840	32948	
==>which is the same as the invocant Relation but that some of its attributes
have been combined/wrapped into tu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2657	2805	
==>\&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2850	2998	
==>\&{'grammar1::perl5_regex'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return un <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	2046	2151	
==>[\/\\]|$)/$1$2${1}perl6/i
#      or $path =~ m/\bman\d\b/
      or die <<".";
Can't generate the correct P <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration.pm	314	411	
==>lf: Duration $duration) returns Duration {
    #$self.subtract($duration);
#}

#method infix:<+>($ <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	2411	2558	
==>self = shift;
                my $size = shift;
                if ($size > (my $orig = $self->array_fetchSize)){
                    $self->array_e <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9951	10076	
==>e::subrule {
    my $name = $_[0];
    $name = $namespace . $_[0] unless $_[0] =~ /::/;
    return "$_[1] ruleop::capture( '$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5704	5842	
==>tement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5704	5842	
==>tement->add_op( {
            fixity => 'prefix', name => '+', 
            precedence => 'looser', other => '[',
        } );
        no w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	4740	4832	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4990	5082	
==>gs Team E<lt>perl6-compiler@perl.orgE<gt>.

Please join us on irc.freenode.net #perl6 if you' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19555	19654	
==>item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authenticate itself <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19555	19654	
==>item $h.authorization

=item $h.proxy_authorization

A user agent that wishes to authenticate itself <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	20790	20906	
==>&RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, q <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	17211	17327	
==>&RxPOS - 1));
  });

  # look-ahead
  $self->add_handler('(?=' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, q <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	72	194	
==>gs::Grammar::BaseCategory);
use Pugs::Runtime::Match;
use Pugs::Compiler::Token;

# TODO - implement the "magic hash" dispa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15169	15281	
==>eue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { e <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15169	15281	
==>eue "QUIT :$reason" },
    nick  => -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { e <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	4368	4510	
==>elf->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4508	4650	
==>elf->{ratchet} )  . "),\n" . 
        "  p "        .  "=> " . _str( $self->{p} )        . ",\n" . 
        "  sigspace " .  "=> q(" . _str( $s <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	826	938	
==>e($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.si <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	826	938	
==>e($self: *@items) returns Int {
    my $pre_size = 0;
    if ( $!members.defined ) {
        $pre_size = $self.si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36109	36208	
==>having the same Member Name are adjacent
to each other in the output; for example, with Sets of ['My <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36109	36208	
==>having the same Member Name are adjacent
to each other in the output; for example, with Sets of ['My <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5803	5902	
==>k/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5803	5902	
==>k/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO Perl 6 implementation by Ingo Blechschmidt 

L<http <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14062	14200	
==>-1]->{flags};
      $self->{data} = $q;
      push @$tree, $self;
    }
    else {
      # quantifier on (?{ ... }) is pointless;
      # b <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	5006	5142	
==>end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.st <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	5006	5142	
==>end ) {
    if $.span.is_empty
    {
        $.span = $self.new( end => $end ).span;
    }
    else
    {
        my int $cmp = $.span.st <==
2	/Users/nnunley/pugs/util/package-osx.pl	2572	2691	
==>/local/share/doc/pugs/LICENSE
        /usr/local/usr/bin/p6doc /usr/local/bin/p6doc
        /usr/local/usr/bin/pugs /usr <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5647	5740	
==>(see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C< <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5647	5740	
==>(see L<LWP::UserAgent>).

=item head($url)

Get document headers. Depending on the context, C< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	3712	3824	
==>nit;\n".
        # "    }\n" .
        "    push \@Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( '" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	15173	15281	
==>R0,R1,RWx,RW1).

re_rewrite(R0,R1,RW0,RW1) :-
  R0 =.. [P|A], re_rewrite_list(A,A1,RW0,RW1), R1 =.. [P|A1], ! <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4678	4783	
==>der ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4678	4783	
==>der ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HTTP::Date::str2time(%!headers{$header <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	1739	1916	
==>t');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	1739	1916	
==>t');
                    }
                    when rx:P5{^=begin\s(.*?)$} {
                        @for_or_begin.push('begin');
                        %events<start_element>(' <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	3015	3191	
==>r ) {
                
                ### set up the dirs
                for my $subdir ($obj->meta_dir, $obj->alternatives_dir,
                                $obj->control_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	838	994	
==>( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	838	994	
==>( @_ );
    return unless $match;
    my $code = sub { 
    my $src = <<'!EOT!'; 
{
    return '
        sub prefix:<_if_expr>  { return $expr ; }
        su <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9062	9156	
==>he set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9062	9156	
==>he set.

=head1 COMPARISION METHODS

=head2 C<$set1.equal($set2)>

Returns true if C<$set1> equ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15458	15569	
==>? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # h <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15458	15569	
==>? Bucket.new(rate => (1/2),    burst_size => 5)
        !! Bucket.new(rate => (1000/2), burst_size => 5000); # h <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	6360	6479	
==>rcase letter (Ll)", "Titlecase letter (Lt)",
      # "Modifier letter (Lm)", "Other letter (Lo)", or "Letter number (Nl) <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4420	4536	
==>bbeg = savepvn(strbeg,r->sublen);
    }
    RX_MATCH_COPIED_set(r,newstr);

    if(matched) {
      SV* lp;
      SV* <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16895	17104	
==>->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backlink = HTML::Element->new('a', 
                         href  => (abs2rel( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15003	15105	
==>nyof_class => space => $neg, \$how);
  });

  # upper POSIX class
  $self->add_handler('POSIX_upper' => <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6578	6678	
==>urns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this ver <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6578	6678	
==>urns Str`

- `cwd returns Str`

= SEE ALSO

The Perl 5 version of File::Spec::Unix, although this ver <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1831	1963	
==>eywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1831	1963	
==>eywords;
    }
    
    method FETCH ($name)        { return %!params{$name};          }
    method STORE ($name, $val)  { return (%! <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	12518	12627	
==>e
docs will not be updated.  The tests that are passing represent the
current working features.

This module d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	12518	12627	
==>e
docs will not be updated.  The tests that are passing represent the
current working features.

This module d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30266	30368	
==>bstituted at run-time before the text
is shown to the user.

Each Template module ideally comes as part <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30266	30368	
==>bstituted at run-time before the text
is shown to the user.

Each Template module ideally comes as part <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17799	17906	
==>e virtual machine, input data to it, and output data from it.

You can create more than one DBMS object at a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17799	17906	
==>e virtual machine, input data to it, and output data from it.

You can create more than one DBMS object at a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10346	10447	
==>ype (eg, hash vs array).  The deferred validations are performed
on demand at some time after the inpu <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10346	10447	
==>ype (eg, hash vs array).  The deferred validations are performed
on demand at some time after the inpu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10511	10663	
==>n }";
    }

    return _not_implemented( $n, "statement" );
}

sub infix {
    my $n = $_[0];
    #print "infix: ", Dumper( $n );
    
    # X <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	689	789	
==>r API must operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bi <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	689	789	
==>r API must operate on bytes or multi-byte blocks; 
the API does not support enciphering individual bi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	546	645	
==>l 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	546	645	
==>l 6 Token.
See L<Pugs::Compiler::Rule> for documentation.

=head1 AUTHORS

The Pugs Team E<lt>perl6- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9101	9218	
==>my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$b <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9101	9218	
==>my $length = shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	873	1003	
==>repositories( \@inst );
    
    return $obj;
}

1;

# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tab <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2332	2427	
==>ad1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Si <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2332	2427	
==>ad1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham Barr and Nick Ing-Si <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1687	1795	
==>) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filt <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1687	1795	
==>) and return;

    my ($module, $line) = (caller($class->pmc_caller_stack_frame))[1, 2];

    return if $filt <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	73	174	
==>t();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersecti <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	73	174	
==>t();
}

=cut

# unicode intersection
multi sub *infix:<∩> (Set $one, Set $two) {
    $one.intersecti <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1318	1427	
==>5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'grammar1::$name'} = sub {" . '
    my $bool = $_[0 <==
2	/Users/nnunley/pugs/util/graphfuncs.pl	289	393	
==>ature) { $fn = $1; $g->add_node($fn); next }
	if($fn) { $funcs{$fn} .= $_ }
}

our %nodes;
for my $key (k <==
2	/Users/nnunley/pugs/util/package-osx.pl	6627	6731	
==>/Perl6::Overview::Smartmatch.3pm
        /usr/local/man/man3/Perl6::Overview::Subroutine.3
        /usr/l <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	11309	11407	
==>() method; specifically, in the case
of a sub-class that adds a handler, the qr() method is used to <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	610	722	
==>lts) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results }

# it i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	610	722	
==>lts) returns Void  { @!results = @results }
sub get_results ($self:)          returns Array { @!results }

# it i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	213	333	
==>);  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continua <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	213	333	
==>);  # peek_our ); ???

=pod

A "rule" function gets as argument a list:

0 - a string to match 
1 - an optional "continua <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	673	816	
==>]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	673	816	
==>]*)};
        $directory = ~$0;
        $file      = ~$1;
    }
    return ($volume, $directory, $file);
}

## Concatenating

sub catdir (*@path <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12342	12513	
==>f (@{$test{failed}} and $test{max}) {
                    my ($txt, $canon) = _canonfailed($test{max},$test{skipped},
                                                    @{ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	9047	9146	
==>~ s/t$/html/;
  
  my $output_path   = inpath_to_outpath($input_path);
  my $path = dirname($relativ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18432	18541	
==>);
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC libra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18432	18541	
==>);
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> is an IRC libra <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16461	16584	
==>S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at be <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12882	13005	
==>S->warn(RPe_OUTPOS, $1, $1);
      &RxPOS = $pos;
    }

    return $S->object(anyof => $neg);
  });

  # char class ] at be <==
2	/Users/nnunley/pugs/util/build_pugs.pl	5391	5531	
==>k(glob("*"));
        chdir '..';
        chdir '..';
        rmdir $dir;
    }

    # Run ranlib.
    system($ar, s => $a_file);
}

sub buil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	849	963	
==>, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_per <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	858	972	
==>, \$pos, $len ) eq '$const' ) 
$_[1]     ? do { \$pos $direction= $len; 1 }
$_[1]     : 0
$_[1] )";
}

sub call_per <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15780	15878	
==>rface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15780	15878	
==>rface to
such a DBMS.  The main web site for TTM is
L<http://www.thethirdmanifesto.com/>, and its a <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	5	117	
==>e File::Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	5	117	
==>e File::Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
has Array $ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	172	318	
==>e()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.p <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	172	318	
==>e()                              {...}

# Things roles can override
method pad() {
    my $bs = .block_size;
    @.buffer.push(128);
    @.buffer.p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	608	710	
==>named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Run <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	608	710	
==>named, capture => \$capture,
    #tail => substr( $s, $pos+1 ),  # backwards compatible
  }, 'Pugs::Run <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28792	28892	
==>ocant
Relation attribute names, or duplicate any other value set members.  This
method supports havin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33344	33444	
==>ocant
Relation attribute names, or duplicate any other value set members.  This
method supports havin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	5776	5897	
==>n->{sub}{bareword} eq 'print' ||
               $n->{sub}{bareword} eq 'warn';
        return " print '', " . _emit( $n- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6467	6575	
==>d assert(), and 'no-backtracking checkpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shif <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6260	6363	
==>d assert(), and 'no-backtracking checkpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shif <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15491	15608	
==>, pos, $I1
    cname = escape cname
    cname = concat '"', cname
    cname = concat cname, '"'
    mob["cname"] = cna <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18206	18317	
==>is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document fr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18206	18317	
==>is no longer part of the HTTP standard.>

=item $h.referer

Used to specify the address (URI) of the document fr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	7364	7471	
==>setta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	7364	7471	
==>setta::Model::Node);
}

my method _assert_arg_ch_nd_aoh (Str $meth!, Str $arg!, Str @val!) {
    $?SELF!_die <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/interface.pm	2	106	
==>ckage interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_prin <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/interface.pm	2	106	
==>ckage interface;
our $print_program = 0;
our $print_ast     = 0;
our $print_match   = 0;
our $pretty_prin <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2032	2135	
==>day () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year ( <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2032	2135	
==>day () returns Date {
    return Date.new( epoch => time ).subtract( days => 1 );
}

sub _is_leap_year ( <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16879	17046	
==>elative => $link->{relfile} };
                    next;
                };

                # create the backlink <a href...>
                my $backlink = HTML::Elem <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	4816	5001	
==>ll_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8293	8478	
==>ll_but ::= &project_all_but;

###########################################################################

method extend (Mapping(Str) of Code $attrs!) returns Relation {

    if ($attrs <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3241	3359	
==>/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplem <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3425	3543	
==>/ 
 $<0> $<1>
 $0 $1
 \n \N
 $^a $^b            -- positional parameters (must start with $^a)
 ^ $
 :

=head2 Unimplem <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2186	2291	
==>[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2186	2291	
==>[1], $_[2], $_[3]{match}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9322	9444	
==>y \$ast = $grammar1::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at ' <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1898	2010	
==>plit('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..25 <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1898	2010	
==>plit('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if $.all {
        for 0..25 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9531	9646	
==>ts('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('di <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9531	9646	
==>ts('secure');    %hash.delete('secure');
                my $discard   = %hash.exists('discard');   %hash.delete('di <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6857	7083	
==>ol'), 
                              symbol->new('$method' => 'method')
                          ),
                returns => 'nil'
            ),
            sub {
                my $e = shift;
                $e->get('$sel <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4122	4230	
==>goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "N <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4180	4288	
==>goto($! ~~ $match, $desc, :$todo, :$depends);
    }
    else {
        Test::proclaim(undef, $desc, $todo, "N <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1936	2035	
==>iveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1936	2035	
==>iveExpr = Pugs::Compiler::Rule->compile(q(
    <FunctionAppExpr> <ws>?
    [ $<op> := (\\+ | \\- | ~ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	67	169	
==>class(Role $base, Str ?$name) returns Class {

}

method isa(Role $class) returns Bool {
    ...
}

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	6125	6414	
==>emplate for '$op->{fixity}_$op->{assoc}'";
                        next;
                    }
                    $t =~ s/$_/$op->{$_}/g for qw( name2 name );
                    $t =~ s/\{ /%prec $prec { /;
                    $s .= "    |  $t \n" . 
                        # "\t%p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9773	9882	
==>.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9767	9876	
==>.
        $gen_match = "bless \\\$hash, 'Pugs::Runtime::Match::Ratchet'";
	$post_match = "";
    }

    return <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31711	31809	
==>from a user config file or a user interface that the
current user is fluent in (and prefers) langua <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31711	31809	
==>from a user config file or a user interface that the
current user is fluent in (and prefers) langua <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	9633	9739	
==>nt can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / ` <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	9633	9739	
==>nt can be a Set::Infinite, a Span object, a Recurrence object, or a scalar value.

- `union( $object )` / ` <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15121	15219	
==>the first argument, if
called in a void context.  In scalar and array contexts, the encoded or
deco <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15121	15219	
==>the first argument, if
called in a void context.  In scalar and array contexts, the encoded or
deco <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7066	7176	
==>d the higher level OO/Overload 

runtime. 



- internal rule operators



Internal rule operators share a comm <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6826	6931	
==>d the higher level OO/Overload 
runtime. 

- internal rule operators

Internal rule operators share a comm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16266	16388	
==>", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16266	16388	
==>", "{$.orig}__",
        "_{$.orig}", "__{$.orig}",
        "_{$.orig}_", "__{$.orig}__",
      );
    }

    method next() <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1236	1357	
==>th) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this wit <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1236	1357	
==>th) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, maybe
    # replace this wit <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1413	1533	
==>urns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1413	1533	
==>urns Object {
    return [+] @.spans.map:{ .size };
}

method union ($self: Set::Infinite::Functional $set ) 
    returns <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	2197	2313	
==>ix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	2197	2313	
==>ix:<*>'} = sub
    {
 $_[0] * $_[1]     }
    ;
    push @grammar1::ops, ::compile_rule( 'infix\:\<\*\>' );
    *{'in <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	395	493	
==>ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the re <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	395	493	
==>ENV<AUTH_TYPE> }

=pod

=head1 NAME

CGI::Remote - A CGI module to getting information about the re <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_deps.pl	5	115	
==>trict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEG <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	5	115	
==>trict;
use YAML            qw[LoadFile Dump];
use File::Basename  qw[basename];
use Data::Dumper;
use Cwd;

BEG <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5386	5484	
==>::Undefined $v) { JSX::false }
multi sub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi s <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	60	157	
==>args) {
	# Argumente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeitung
	retur <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Compiler/Perl6.pm	381	519	
==>e };

    $self->{grammar}  = delete $param->{grammar}  || 
                        'Pugs::Grammar::Perl6';
    $self->{p}        = del <==
2	/Users/nnunley/pugs/misc/pX/Aside/value_types_numeric.pm	836	935	
==>ter::int_size($n) {
  'subset  int'~$n~' of ValueType where { $^n ~~ Int and -2**'~$n~' <= $^n <  2* <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	127	248	
==>inh cosh tanh asinh acosh atanh sech
                  cosech cotanh asech acosech acotanh /;

for @trig -> $func {
    &$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7458	7560	
==>/\s*[,:]\s*|(?<=:)\s*/,$params);
	$params = \@pn;
	$hybrid_kludge = 1;
    }
    if(@$params && !ref($p <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9810	9922	
==>nd a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_b <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11287	11399	
==>nd a meta object, and checks if the meta object
    ### provides the wanted string
    sub dependency_satisfied_b <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8774	8882	
==>rot and bash require",
    ensure => sub { @libs > 1 },
    using  => sub { my %l; @l{ldd($pugs), ldd("$parro <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4428	4518	
==>LF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4428	4518	
==>LF!_assert_arg_ary( 'new', ':@set_names!', @set_names );
    $?SELF!_assert_arg_ary( 'new', <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6433	6562	
==>"$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6433	6562	
==>"$_[1] before( \n" . 
        emit_rule($program, $_[1]) . 
        "$_[1] )\n";
}
sub colon {
    my $str = $_[0];
    return "$_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	6817	6949	
==>elf->{type}, $self->{how};
    }
  }

  sub neg {
    my $self = shift;
    if (ref $self->{data}) {
      $self->{data}->neg = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	6414	6517	
==>turn sub{
      FAIL() if !($X::pos == (length($X::str)) || substr($X::str,$X::pos,1) eq "\n");
      my <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	302	416	
==>s, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	302	416	
==>s, qw(content);
}

method dom_attr($self:) returns Hash {
    my %att = $self.SUPER::dom_attr();

    %att.delete<s <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	2077	2183	
==>unction in C<Some::Module> called C<note> without providing any tags, it 
would look for a tag named C<Modu <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	2077	2183	
==>unction in C<Some::Module> called C<note> without providing any tags, it 
would look for a tag named C<Modu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25951	26044	
==>lues
that are associated with the message, and can be interpolated into the
human-readable ver <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25951	26044	
==>lues
that are associated with the message, and can be interpolated into the
human-readable ver <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8406	8518	
==>oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8406	8518	
==>oldnick = normalize $event<from_nick>;
      my $newnick = normalize $event<object>;
      if %!users{$oldnick}<c <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	6624	6739	
==>et) = each %from ) {
        unless( File::Copy::copy( $orig, $target ) ) {
            error("Failed to copy '$orig <==
2	/Users/nnunley/pugs/util/importgraph.pl	1839	1930	
==>.Rule', qr/^Pugs\.Rule\b/);
setup_cluster('Pugs.AST', qr/^Pugs\.AST\b/);
setup_cluster('IMC' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	589	697	
==>" .
        "\t{ \$_[0]->{out}= {fixity => 'prefix', op1 => \$_[1], exp1 => \$_[2],} }", 
    circumfix_non <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	23864	23972	
==>))
          ($self: set_attr ((symbol new @:superclasses) (?@superclasses)))
          ($self: set_attr ((sy <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6Init.pm	1042	1144	
==>$|\@|\%]\*(?:(?:\:\:)?[_[:alnum:]]+)+)(.*)$ /xs;
    return Pugs::Runtime::Match->new({
        bool  = <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6046	6153	
==>ry to destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/array <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6436	6543	
==>ry to destroy all possible bindings
            # user code has to @array[$i], see t/operators/binding/array <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1581	1706	
==>LPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1581	1706	
==>LPos
    does Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.value;
    has Util::PosRange $.pos;

    method v <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2274	2408	
==>key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2274	2408	
==>key => 'ROS_S_PROMPT' ) );

        my Str $user_input = =$*IN;

        # user simply hits return on an empty line to quit the program <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1946	2075	
==>union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1946	2075	
==>union ", @tmp.map:{ $_.stringify }.join(":");
        if @tmp == 3 {
            # intersecting Recurrence Spans
            # say <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13454	13583	
==>ve-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13454	13583	
==>ve-named packages in this file.>

=head1 SYNOPSIS

    use Locale::KeyedText;

    main();

    sub main () {
        # Create a t <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25417	25498	
==>amat(C0,flgs(A,X,C,D,E,F,G,H,I,J))).
set_flag_s(amat(C0,flgs(A,B,_,D,E,F,G,H,I,J)) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14370	14464	
==>thod ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $top <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14370	14464	
==>thod ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(Str $channel, Str $top <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	2310	2399	
==>esent[1]} = %tokenClone;
    $self->whitespaceOperatorTable()->{$spacePresent[1]} = %token <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25045	25192	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25324	25471	
==>per( $match->{capture} );
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'sub_a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3879	4028	
==>[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3867	4016	
==>[1] &&\n" .
        "$_[1]   do { while (\n$rul) {}; 1 }\n" .
        "$_[1] ) }$ws3"
        if $quantifier eq '+';
    die "quantifier not implement <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	285	399	
==>king :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	285	399	
==>king :ratchet version
sub __any {
  my $grammar = $_[0];
  my $s = $_[1];
  my $pos = $_[2]{p};
  $pos = 0 unless d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	12991	13103	
==>ndclass
    if $S0 == "-" goto err_hyphen
    if $S0 == "." goto dotrange
    if $S0 != "\\" goto addchar
  backs <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	9672	9777	
==>_x(B).
p5_charset_range_x(_) --> p5_charset_item(class_pos(_)), {!, fail}.
p5_charset_range_x(_) --> p5_ch <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10020	10125	
==>ti method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10020	10125	
==>ti method cipher(Cipher $self: Array $data) returns Array {
    return gather {
        unless $!seen_head <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	309	427	
==>qw[LoadFile];
use Path::Class             ();

use Data::Dumper;
$Data::Dumper::Indent = 1;

### only called from JIB:: <==
2	/Users/nnunley/pugs/util/package-osx.pl	5710	5813	
==>trol.3
        /usr/local/man/man3/Perl6::Overview::Control.3pm
        /usr/local/man/man3/Perl6::Overv <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36299	36393	
==>MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produce the li <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36299	36393	
==>MyAppFre','MyLibFre'].  This method is used
internally by translate_message() to produce the li <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	21928	22143	
==>:concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22207	22422	
==>:concat(
             ruleop::alternation( [
                   ruleop::constant( "die" )
                 ,
                   ruleop::constant( "\." )
                 ,
             ] )
           ,
             r <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3292	3446	
==>}
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3292	3446	
==>}
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end;
    if ($cmp < 0) {
        $i_end = <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	7095	7198	
==>a...
# this is why this code is so big.

# in a language with native multimetods this would be much more <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	43442	43535	
==>n the problem domain of managing
data or data definitions or connections to databases: L<Set>, <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	142	239	
==>);

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_ <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	142	239	
==>);

sub pil_output( Str $code, Str $optional_args? ) returns Str {
  my $tempfilename = "pil_test_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14188	14303	
==>$how);
  });

  # graph POSIX class
  $self->add_handler('POSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11106	11255	
==>ef( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11100	11249	
==>ef( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1;
$_[1]       my \$from = \$pos;
$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9312	9494	
==>eate_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9312	9494	
==>eate_stmt', undef, [
                    $tbd_person,
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Ro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5334	5503	
==>{
    # print "add operator\n";
    my $self = shift;
    my %opt = @_;
    # print "Operator add: @{[ %opt ]} \n";

    delete $opt{rule};
    $operator->add_op( \%opt ) <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	10565	10656	
==>cpan.org/dist/Perl6-Pugs/lib/pugs/hack.pod">pugs::hack</a>
    manpage and <a
    href="http <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1925	2030	
==>r $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    retu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1925	2030	
==>r $var_name!) returns Any {
    $?SELF!_assert_arg_str( 'get_msg_var', '$var_name!', $var_name );
    retu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5494	5625	
==>ed capture

    # XXX - generalize to: set_flag('capture',1)

    my $label = shift;

    my $node = shift;

    sub {

        my @ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5319	5445	
==>ed capture
    # XXX - generalize to: set_flag('capture',1)
    my $label = shift;
    my $node = shift;
    sub {
        my @ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5991	6109	
==>rameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5991	6109	
==>rameter
    # trait at some point
    return cwd() if $_path eq '';
    my $path = $_path;
    if (!file_name_is_absolu <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11806	11945	
==>t
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter li <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11806	11945	
==>t
    (\4\n)              # $7 - Heredoc terminating line
)
/xsm;

my $re_pod = qr/
(?:
    (?-s:^=(?!cut\b)\w+.*\n)        # Pod starter li <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	131	278	
==>prefix}*])                       and die $?;

### set up the 'fakeroot'
### XXX might need to be a bit more elegant, and not blow it away every go
{ <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1960	2063	
==>$CGI->param("smoke");

  my $id = md5_hex $html;
  if(glob "pugs-smoke-*-$id.html") {
    print "The sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	595	710	
==>ages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	595	710	
==>ages used by the Rosetta::Engine::Example class, that do export symbols:
    # (None Yet)

    # Attributes of every <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	2384	2520	
==>rn @hits;
}

sub shuffle {
    # Fisher-Yates shuffle
    my $i = @_;
    while ($i) {
        my $j = rand $i--;
        @_[$i, $j] = @_ <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	8524	8629	
==>initrd_gz <= -M $welcome_p6 and
      -M $initrd_gz <= $newest_mod_stamp and
      -M $initrd_gz <= $newes <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8425	8534	
==>reate a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'") <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8425	8534	
==>reate a reasonable warning? If not, put
    #   Carp::croak("Basic authorization user name can't contain ':'") <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3466	3575	
==>999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  ret <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3466	3575	
==>999) <=> (%header_order{$^b} || 999) ||
    $^a cmp $^b
  };
  
}

method header_field_names ($self: ) {
  ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9128	9228	
==>uantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9124	9224	
==>uantifier};
    # print "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3068	3183	
==>l ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{lev <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	3569	3684	
==>l ( 0 .. $#{$self->{levels}} ) {
        my $equal = "r$level";
        $equal = "parse" if $level == $#{$self->{lev <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Nodes.pm	167	278	
==>/stub/;

sub stub {
	my $name = shift;
	my @params = shift;
	$name => Thunk(
		Seq(
			(map { Param($_) } @param <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	718	833	
==>ting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Comp <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	718	833	
==>ting $type; Got $param";
        }
    }
}

# PILNil :: [Stmt]
class Perl::Compiler::PIL::PILNil
    does Perl::Comp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7435	7547	
==>::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't sup <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7493	7605	
==>::num_of_tests_failed++;
    }
    my $wanted = $negate ?? "Unwanted" !! "Expected";

    # As PIL2JS doesn't sup <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	28803	28894	
==>assertion, branch, close,
clump, digit, exact, flags, group, groupp, minmod, prop, open, qua <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3743	3902	
==>ckage} };
            }
        }

=cut

        ### extract the code
        {   ### XXX we should *build* things here too
            system( qq[tar -f $my_tm <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	11048	11155	
==>ch =>);
  });

  # opening parenthesis (maybe capturing paren)
  $self->add_handler('(' => sub {
    my ($S) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	4431	4741	
==>n{$_->{name}} = 1;
                    $s .= ' ' .
                        $_ eq 'list' 
                            ? $_->{index}
                            : "'$_->{name}'";
                }
                $s .= 
                    " $prec" .
                    "\n";
                # $seen{$_- <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8369	8514	
==>TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CL <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8369	8514	
==>TEXT];
        }
        elsif ( 
            (not $prev or @{$prev->[CLASSES]} < @{$block->[CLASSES]}) and
            (not $next or @{$next->[CL <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	6245	6429	
==>predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $ot <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9722	9906	
==>predicate.( $_ ) }),
    );
}

&where ::= &restrict;
&grep  ::= &restrict;

###########################################################################

multi method union (Relation $ot <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12207	12322	
==>00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0, <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12207	12322	
==>00:00:00.0,2005-07-04T00:00:00.0) 

    $time_span = Span.new( start => $tstart, end => $tend );
    #  [00:00:00.0, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4205	4362	
==>new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib       => ['/lib' ],

      em <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4059	4211	
==>new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib       => ['/lib' ],
      em <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3655	3777	
==>tifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	3643	3765	
==>tifier eq '?';
    return 
        "$_[1] do { my \$quantified = 1; while (\n$rul) {}; 1 }$ws3"
        if $quantifier eq ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	126	283	
==>ng Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        20 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	126	283	
==>ng Protocols',
        102 => 'Processing',                      # WebDAV
        200 => 'OK',
        201 => 'Created',
        202 => 'Accepted',
        20 <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15461	15595	
==>mpile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_ou <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15461	15595	
==>mpile -base;

    sub pmc_compile {
        my ($class, $source) = @_;
        # Convert $source into (most likely Perl 5) $compiled_ou <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	881	1086	
==>[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	881	1086	
==>[5,4,3];
    $y += 1900;
    $m++;

    return Date.SUPER::new( year  => $y,
                            month => $m,
                            day   => $d,
                          );
}

multi submethod <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1069	1182	
==>continue the previous match from where it left off.
sub next {
  my ( $self ) =  @_;

  my $coroutine = $self->cor <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4347	4449	
==>>? ]* <term1>?
RULE
*{'block'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    \{ 
        $<li <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	772	881	
==>sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	772	881	
==>sent(Str $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $ <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1483	1597	
==>($fname);
    # remove the description line
#    my $desc = $1 if $file =~ s/^#\s*(.*)\n//;
    my @file = split // <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15960	16071	
==>l" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTIC <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15960	16071	
==>l" },
    oper   => -> Str $username, Str $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTIC <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3090	3238	
==>s{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=he <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3090	3238	
==>s{"TODO"}          = 1;
        $status{"passed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=he <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	29	122	
==>nary;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Oper <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1146	1241	
==>ate_params {
  if(not $CGI->param("version") or $CGI->param("version") != VERSION) {
    print " <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2465	2583	
==>pe> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \] <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2465	2583	
==>pe> <zone>? <varlet>? <trait>*
        | <zone> <varlet>? <trait>*
        | <varlet> <trait>*
        | \[ <siglet> \] <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	1362	1502	
==>op @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	1362	1502	
==>op @path;
        $Bin = catdir(@path);
        loop {
            my $linktext = try { readlink($script) };
            my @path = splitpath <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	335	445	
==>kg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	335	445	
==>kg)::updir();
}

sub rootdir returns Str is export {
    return &::($worker_pkg)::rootdir();
}

sub devnull ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21811	21915	
==>ce, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21811	21915	
==>ce, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
documentation in this <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	966	1078	
==>m->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->i <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	966	1078	
==>m->{var}, 0, 1),
	       name => substr($param->{var}, 1) });

	if ($param->{named_only}) {
	    if ($db_param->i <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12044	12161	
==>m_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dts <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12044	12161	
==>m_span = Span.new( start => -1.0, end => 2.5 );
    #  [-1.0,2.5]   
    
    $datetime_span = Span.new( start => $dts <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	958	1054	
==>xed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, .. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	958	1054	
==>xed Lazy::List::reverse() inheritance
* Lazy::CoroList is gone
* Lazy list methods (grep, map, .. <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	326	470	
==>s->new;
}

sub compile {
    my $self = shift;
    my $prog = shift;

    $self->compiler->compile($self, Blondie::Prelude->env, $prog);
}

sub c <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3652	3756	
==>Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3652	3756	
==>Set::Infinite::Functional;

  # XXX

= DESCRIPTION

This class represents an ordered set of spans.

It is <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1800	1892	
==>luggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1800	1892	
==>luggable::Fast> library.

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

=head1 LICENSE

This <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	9429	9609	
==>g ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12906	13086	
==>g ::= &semidifference;

###########################################################################

method semijoin (Relation $other!) returns Relation {

    die "The heading of t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14247	14351	
==>OSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8451	8555	
==>OSIX_graph' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => graph => $n <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9271	9379	
==>y one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_v <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9271	9379	
==>y one-way decoding

# Fill in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_v <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	625	743	
==>) {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!he <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	625	743	
==>) {
    $!headers = $header;
    $!content = $content;
}

multi submethod BUILD (%header, Str $content = "") {
    $!he <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	897	1002	
==>re too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for p <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	897	1002	
==>re too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTION

Log::Selective is a Perl 6 module for p <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1114	1253	
==>$input;
    my $next = head($input);
    
    for 0 .. $wp.end {
      next
        unless defined $wp.[$_];
      return
        unless ~$w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1520	1621	
==>l as anything declared within

that scope.



the Sig contains a simply structure of the signature; it <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1458	1556	
==>l as anything declared within
that scope.

the Sig contains a simply structure of the signature; it <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	256	374	
==>t.
# Example: "5 4 +" returns 9
sub evaluate {
    my ($expr) = @_;
    my @stack;
    for my $tok (split ' ', $expr) { <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3870	3979	
==>e: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4087	4196	
==>e: matching: \n$_[0]\n";
    my $match = grammar1::grammar->( $_[0] );
    #print "compile: matched.\n";
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5189	5351	
==>turn "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	5177	5339	
==>turn "$_[1] constant( \$_[7][$index] )\n";
            
            my $code = 
            "    ... sub { 
                #print \"Runtime Variable args[\", join <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9763	9922	
==>erson
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::M <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9763	9922	
==>erson
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COMMIT;
    my Rosetta::M <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	664	764	
==>bleName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	664	764	
==>bleName>
    { use v5; return $<CaptureVariableName>() }
))->code;
*Constants = Pugs::Compiler::Rule- <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5426	5531	
==>>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5426	5531	
==>>, C<finishstr> and the 
destructor, but there may be situations in which explicitly zeroizing the 
cipher <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9443	9539	
==>e objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Model <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9443	9539	
==>e objects.  All of
their attributes are private, so you must use accessor methods.
Rosetta::Model <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	3594	3694	
==>on 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	3594	3694	
==>on 0.1.2.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This documentati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	309	431	
==>{
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and . <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	309	431	
==>{
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $class;
}

# XXX - this sub should set .from and . <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	287	404	
==>stall::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	188	305	
==>stall::Base};
}

sub cc_files {
    require Config;
    my $self = shift;
    $self->makemaker_args(
        OBJECT => <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	541	642	
==>ors

method parent ($self:) returns Tree { 
    return $!parent;
}

## ------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	541	642	
==>ors

method parent ($self:) returns Tree { 
    return $!parent;
}

## ------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14807	14910	
==>stem, which makes
it easy to create and use relational databases in a very reliable,
portable, and effic <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14807	14910	
==>stem, which makes
it easy to create and use relational databases in a very reliable,
portable, and effic <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7763	7889	
==>o_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7821	7947	
==>o_cmp_ok &Test::todo_eval_is &Test::todo_isa_ok ', &?CALLER::CALLER::ROUTINE.name ~ ' ') >= 0) {
        Test::diag("  $wanted: <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	9	130	
==>t::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or mi <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	9	130	
==>t::Builder::TestPlan-0.2.1
{
    has Int $!expect;

    submethod BUILD ( $!expect = 0 )
    {
        fail "Invalid or mi <==
2	/Users/nnunley/pugs/blib6/lib/Date/Span.pm	607	712	
==>ss: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( d <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/Date/Span.pm	607	712	
==>ss: %param ) {
    my %tmp;
    %tmp<density> = %param<density>;
    %tmp<density> = Date::Duration.new( d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1400	1494	
==>markers for container

allocation, as well as the compile-time-bound values for them.

It inclu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1340	1432	
==>markers for container
allocation, as well as the compile-time-bound values for them.
It inclu <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	4476	4628	
==>sult{ok}
        }
        elsif( $result{type} eq 'skip' ) {
            $totals->{skip}++;
            $pass = 1;
        }

        $totals->{ok}++ if <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	589	688	
==>eys %{ { map { (split m[/])[2] => undef } @dir } };

print { $fh } qq[<li><a href="/~$_/">$_</a></li <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24601	24702	
==>S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21022	21123	
==>S->object(branch =>);
  });

  # illegal 2nd alternation branch inside ifthen
  $self->add_handler('if <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	10447	10564	
==>}" goto err_closure
    inc pos
  end:
    mob["min"] = min
    mob["max"] = max
    mob["islazy"] = islazy
    mpos = <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8264	8363	
==>from first Object singleton/class method called by Foo');  

$Foo->add_singleton_method('singleton_t <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Method.pm	328	450	
==>s->isa('list'))
        || confess "You must have an arg list";
    ($args->is_empty == $bit::FALSE)
        || confess "Yo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18230	18329	
==>r opening file', programs would have a harder time figuring out the
best way to deal with it.  But f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18230	18329	
==>r opening file', programs would have a harder time figuring out the
best way to deal with it.  But f <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38665	38759	
==>Hello World!".  All
occurances of any given variable name will be replaced, non-recursively,
an <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38665	38759	
==>Hello World!".  All
occurances of any given variable name will be replaced, non-recursively,
an <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15586	15722	
==>ompiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implie <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15586	15722	
==>ompiled_output
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implie <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10909	11034	
==>$program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10903	11028	
==>$program . ";
$_[1]       \$bool;
$_[1]     };
$_[1] }";
}
sub after {
    local $direction = "-";
    my $program = $_[0]{rul <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/TypeTree.pm	873	1080	
==>rray::Const>),
                                Tree.new(:node<Array::Slice>),
                            ),
                            Tree.new(:node<Hash>).add_children(
                                Tre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	4270	4365	
==>t = emit(get_data($_[0], '$<value>'));
   return $var." = \\".$lit.";\n";
}
sub node::access_has <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	4227	4332	
==>, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	4285	4390	
==>, "No exception thrown", :$depends);
    }
}

## dies_ok

sub dies_ok (Code &code, Str $desc?, :$todo, :$d <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1552	1687	
==>map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{ <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1552	1687	
==>map:{ uri_unescape($_) };
        
        return @str;
    }
    
    sub fail_hi (Str $char) {
        die sprintf("Can't escape \\x\{ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	11485	11577	
==>nce calling metaclass singleton method fails';

is($iBar->foo, 'Foo->foo', '... $iBar calls s <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4662	4775	
==>);

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has a <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4521	4634	
==>);

    require YAML;
    my $data = YAML::LoadFile('META.yml');

    # Call methods explicitly in case user has a <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	998	1096	
==>for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	998	1096	
==>for printing simple log messages to C<$ERR>. 
It allows sets of messages to be selected by use of I <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	361	484	
==>@tests) {
	chop($line);
	print "        \# $line\n";
	print STDERR "        \# $line\n" if $debug_warnings;
	my($pat,$str,$o <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1564	1700	
==>e;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1564	1700	
==>e;   
    has Int  $!arbitrary_limit;

submethod BUILD (
    $.closure_next, 
    $.closure_previous, 
    $is_universe?, 
    $complemen <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27768	27878	
==>amed parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attribute of its object. <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27768	27878	
==>amed parameters of new().

=item C<get_msg_key()>

This method returns the Message Key attribute of its object. <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2275	2405	
==>_ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2275	2405	
==>_ and $flag and $flag eq '-base') {
        my $descendant = (caller 1)[0];;
        no strict 'refs';
        push @{$descendant . <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6847	7120	
==>n ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $reque <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6847	7120	
==>n ~~ s:P5/^\.+//) {
                        $netscape_only = 1;
                    } else {
                        $domain ~~ s:P5/[^.]*//;
                        $netscape_only = 0;
                    }
                }
            }
        };
        
        $reque <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2273	2379	
==>, Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2490	2596	
==>, Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        open( <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3742	3917	
==>s'}};
        },                             
    },
);
# The 'Object' class
my $Object = $Class->new(
    '$:name'    => 'Object',
    '%:methods' => {     
        'id'    => <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	7889	8017	
==>pe, $neg) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      family => 'prop',
      type => $t <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3531	3651	
==>',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3531	3651	
==>',  # small u, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	18257	18352	
==>e::Compile uses.

First, the source module is preprocessed to hide heredocs, since the content
i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	18257	18352	
==>e::Compile uses.

First, the source module is preprocessed to hide heredocs, since the content
i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	454	567	
==>,
    } => $class;
}

# conversion to native value
sub to_native { shift }

# keep this here for a consistent inte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7130	7261	
==>able ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	431	562	
==>able ); 
    my @uninstalled = grep { $_->{package} ne $pkg } @list;
    
    ### check if we're even allowed to delete this, due to <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21996	22104	
==>Locale::KeyedText is told to fetch the user message for a certain code, it
returns the first one it finds.  T <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21996	22104	
==>Locale::KeyedText is told to fetch the user message for a certain code, it
returns the first one it finds.  T <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1860	1964	
==>p a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1860	1964	
==>p a bit. :)
Some features are still missing but will be added in the future...

=head1 CALLBACKS

We have <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15942	16036	
==>found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benja <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16000	16094	
==>found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

Benja <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5688	5811	
==>=> chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950), <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5688	5811	
==>=> chr(946),
    "gamma"    => chr(947),
    "delta"    => chr(948),
    "epsilon"  => chr(949),
    "zeta"     => chr(950), <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13316	13433	
==>ining only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $sp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13316	13433	
==>ining only the elements that 
satisfy the given boolean function.

    # remove 0 and 5 from the recurrence
    my $sp <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10017	10114	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10017	10114	
==>SELF!_die_with_msg( 'LKT_ARG_UNDEF',
            { 'METH' => 'interpolate_vars_into_template_text' <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	424	524	
==>infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	424	524	
==>infix:<≤> ($a, $b) { $a <= $b }
multi *infix:<≠> ($a, $b) { $a != $b }
multi *infix:<≣> ($a, $b <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	3717	3870	
==>rent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # W <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	3717	3870	
==>rent_node;
    # Rosetta::Model::Node
    # The parent Node of this Node, if there is one.
    has Str                      $!node_type;
    # Str
    # W <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3154	3250	
==>got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $re <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3212	3308	
==>got, "&compare_func.name() $expected", $depends);
}

## isa_ok

sub isa_ok (Any|Junction|Pair $re <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	466	601	
==>ter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	466	601	
==>ter_function = $filter_function }

# XXX This is non-idiomatic Perl -- better: method results ($self:) is rw {...}
sub set_results ($sel <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	2451	2686	
==>tch: ",Dumper $m->();
                        last;
                    }
                    # expects an op
                    # x < 1  --- less than
                    # x<1    --- starts angle-quote
                    unless ( $w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1753	1849	
==>distribution
somewhere with test files, and do objective 1 above.

If anyone would like to help o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	673	788	
==>}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	673	788	
==>}

# implements <after>
# $pos must be saved
sub constant_reversed { 
    my $const = shift;
    my $len = length( $ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	936	1049	
==>= ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\. <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	936	1049	
==>= ~$1;
    }
    else {
        $path ~~ rx:perl5{^((?:[a-zA-Z]:|(?:\\\\|//)[^\\/]+[\\/][^\\/]+)?)((?:.*[\\/](?:\. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5745	5848	
==>>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and % <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5745	5848	
==>>}<channels>{normalize $event<object>}++;
    });

    # Somebody left a channel. Update %channels and % <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	1239	1369	
==>depends on $depends->{package}...\n";
    
        system(qq[$^X bin/install.pl $Repodir/$depends->{location}]) and die $?;
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1753	1891	
==>?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self - <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1753	1891	
==>?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitrary_limit = 100;
    
    if $is_universe {
        # $.universe = $self - <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	6151	6308	
==>,
            ),
        ),
    ),

    '$*OUT' => Val->new(\*STDOUT),


    # user definitions
    '&fib' => Thunk->new(
        Seq->new(
            Param- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1987	2112	
==>_compile_hook = sub {
    $r_address = $_[0];
    return reverse(13,$pat,$nparens,$callback);
  };
  my $qr = eval 'qr//'; die <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1508	1627	
==>he353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.n <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1508	1627	
==>he353;
  has Bool  $!in_login_phase;
  has       $!nickgen;

  submethod BUILD(
    Str $.nick,
    Str $.username = $.n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5678	5785	
==>nels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5678	5785	
==>nels>.delete($chan) for %cache353{$chan}.keys;
  }];

  # We track our status, especially the channels we've <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	17771	17881	
==>};
  }
}


{
  # ) closing
  package Regexp::Parser::close;
  push @ISA, qw( Regexp::Parser::__object__ );

  s <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14300	14410	
==>/perl5/mirror/

  And of course man perlapi, etc.

  The perl regexp engine was long ago derived from Henry Spe <==
2	/Users/nnunley/pugs/util/grokprims.pl	538	651	
==>gs spec";
  $args = $1;

  my @args = split /, *| +/, $args;

  if (exists $assoc{$assoc}) {
    $assoc = $assoc{$ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23111	23209	
==>Perl6::Run::OnPerl5::X1::Api::Exception::LoopControl;
@ISA=qw(Perl6::Run::OnPerl5::X1::Api::Excepti <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	242	349	
==>$two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	242	349	
==>$two) {
    $one.union($two);
}

# addition is union
multi sub *infix:<+> (Set $one, Set $two) {
    $one.un <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	734	845	
==>alue;
    }
    bless \%values => $class;
}

# native conversion
sub to_native { %{(shift)} }

# conversion to o <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4199	4294	
==>rn 1 if $self->{class_that_should_be}->isa($class);
	}
	 
	$self->SUPER::isa($class);
}

sub is_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7217	7335	
==>he given message key from the
        # successfully loaded template module; on a function call
        # death, assume <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7217	7335	
==>he given message key from the
        # successfully loaded template module; on a function call
        # death, assume <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2145	2257	
==>the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit( <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2145	2257	
==>the engine semantically, we shall see).  See C<commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit( <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1704	1817	
==>ext?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitr <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1704	1817	
==>ext?, 
    $complement_previous?, 
    $.universe?, 
) 
{
    # TODO - get rid of "$!arbitrary_limit"
    $!arbitr <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	4418	4552	
==>>on);
  }

  $rx = join "", map($_->qr, @$rx);
  return qr/$rx/;
}


sub nextchar {
  my ($self) = @_;

  {
    if (${&Rx} =~ m{ \G \(\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	230	342	
==>ada-yada
# moose=>1
# moose:<elk>
# moose:{antler()}

our %hash;

sub pair {
    my $class = shift;
    return $c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13417	13533	
==>s of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13417	13533	
==>s of C<$set1> which are
not in C<$set2>.  Note that "∖" (\x{2216} - set minus) is not the same
character as "\" (\x <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	442	536	
==>londie::SmokeBackends - 

=head1 SYNOPSIS

	use Blondie::SmokeBackends;

=head1 DESCRIPTION

=c <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16704	16792	
==>item Regexp::CharClassOps

Implements character class operations like union, intersection <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C.pm	1146	1255	
==>line_c($c_code);
}

my $i;
sub generate_inline_c {
	my $self = shift;
	my $c_code = shift;

	my %table = (
		I <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5350	5455	
==>lation::Example $other!) returns Bool {
    return $other!heading === $?SELF!heading
        and $other!bo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	445	562	
==>::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from A <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	445	562	
==>::Functional.compare() 
      and Span::Code.compare()
    * contains
    * size
   
  Constructor:
    * new() from A <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	1764	1895	
==>r  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	1764	1895	
==>r  = $year;
    $.month = $month;
    $.day   = $day;
}

method today () returns Date {
    return Date.new( epoch => time );
}

our <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	827	923	
==>nt, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, a <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	827	923	
==>nt, which, if present, tells
the combinator to succeed as soon as it has matched C<$low> times, a <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	833	996	
==>given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragrap <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	833	996	
==>given $event_type {
                when 'list' {
                    $buffer ~= "=back\n\n"
                }  
                when rx:perl5/^header|item|paragrap <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	3439	3538	
==>:operator::nullary;
use base qw/type::operator/;

sub new {
	my $class = shift;
	my $self = $class-> <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3807	3944	
==>erl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3807	3944	
==>erl5:g{/+}{/};                            # xx////xx  -> xx/xx
    $path ~~ s:perl5:g{(/\.)+(/|\Z(?!\n))}{/};            # xx/././xx -> xx <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	910	1003	
==>ass JSX::Value::Number    is JSX::ValuePrimitive;
class JSX::Value::String    is JSX::ValuePri <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11655	11754	
==>ry to put literal newlines and crs onto the
	# command line.
	$args{stdin} =~ s/\n/\\n/g;
	$args{std <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15365	15517	
==>et;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! B <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15365	15517	
==>et;

    submethod BUILD(Bool $.floodcontrol = 0) {
      $!bucket = $.floodcontrol
        ?? Bucket.new(rate => (1/2),    burst_size => 5)
        !! B <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43643	43830	
==>=> symbol->new(':canonical')), 
                      $e->get('$label')
                ));                   
            }
        )
    )
);

$::Object->send('add_method' => (
    # met <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	4572	4686	
==>d2 version

=head2 authority

=cut

### XXX could autogenerate
{   
    sub package_re { $Package_re };

    sub pr <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3740	3846	
==>tamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %delete = m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15213	15312	
==>heir Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent of s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15213	15312	
==>heir Document's Root Nodes property; in a
manner of speaking, the Document itself is the parent of s <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	24170	24273	
==>.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attri <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	28722	28825	
==>.  If C<$body> is undefined or an empty Set,
the Relation has zero tuples.  If a Relation has zero attri <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	211	309	
==>for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	211	309	
==>for Rules.

=cut
 
rule ws     :P5 {^((?:\s|\#(?-s:.)*)+)}

rule variable :P5 {^([\$\%\@](?:(?:\:\: <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	542	679	
==>h($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	542	679	
==>h($abs);
    }
    my $dir;
    while $dir = $.queue.shift {
        say "$dir" if $.debug;
        my $dh = $dir.opendir;
        for $dh <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1670	1773	
==>Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1670	1773	
==>Writing>, 1967. ISBN 0684831309.

=cut

use Cipher;
class Cipher::Caesar-0.01 is Cipher;

my @upper is c <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	4412	4518	
==>parametrized type operators, since they have children
	my $self = shift;
	my $accum = shift;

	bless {
		%$ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	26	125	
==>se Perl6::Core::List;
use Perl6::Core::Bit;

package C3;

use strict;
use warnings;

use Carp 'confe <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	588	678	
==>-----------------------------------
# Author: Yung-chung Lin (xern@cpan.org)
# ------------ <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	611	701	
==>------------
# Author: Yung-chung Lin (xern@cpan.org)
# ----------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	57	144	
==>eady been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	57	144	
==>eady been ported to Perl6 at
# http://tpe.freepan.org/repos/adamk/Config-Tiny/lib/Config <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11088	11191	
==>s Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11088	11191	
==>s Str>

=back

=head2 Utility

=over 4

=item B<header (:$status = '200 OK', :$content_type = 'text/html <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9922	10024	
==>is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_en <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9922	10024	
==>is rw) is export
{
    @strings.map: -> $string is copy { decode_entities($string); };
}

sub encode_en <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2480	2654	
==>_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^he <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2480	2654	
==>_type, @args) { 
            given $event_type {
                when 'list' {
                    $fh.print("=back\n\n")
                }  
                when rx:perl5/^he <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1391	1510	
==>piler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype ( <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1391	1510	
==>piler::PIL::PIL $.value;
    submethod BUILD () { 
        type_check $.value.vtype, 'Literal';
    }
    method vtype ( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8978	9088	
==>ick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels() <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8978	9088	
==>ick} = %!users{$oldnick};
      %!users.delete($oldnick);
    });
  }

  # Instance methods
  method channels() <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	905	1021	
==>');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Ob <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	905	1021	
==>');
    }
    shift @end;
    return @start.uniq.join(',') ~ '..' ~ @end.uniq.join(',');
}

method size () returns Ob <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	867	976	
==>used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	867	976	
==>used by the Rosetta::Interface::DBMS class, that do export symbols:
    # (None Yet)

    # Attributes of ever <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	15778	15883	
==>$e->get('$class:')->send('dispatcher' => (symbol->new(':descendant'))));
                $e->create('$c' = <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5582	5695	
==>rs,$var);
    }

    my @varsm = map{p6_mangle($_)} @vars;# XXX - Api abstraction violation
    my $varlist = join <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2626	2755	
==>lds);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2626	2755	
==>lds);
    say $code; # XXX - see above
    $code;
}
sub node_a ($data,$constructor,*@fields) {
    my $code = "\n  sub new(\$v0) \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4190	4315	
==>" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4190	4315	
==>" !! "");
}

method parts ($self: *@new) is rw {
    my @old = @!parts;
    
    return Proxy.new(
        FETCH => { return @ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	460	563	
==>nvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	460	563	
==>nvite;
  # or
  class MyBot does Net::IRC::JoinOnInvite {...}
  my $bot = MyBot.new(...);

=head1 DESCRI <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	616	877	
==>is file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages use <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	616	877	
==>is file's packages.
} # package Rosetta::Model

###########################################################################
###########################################################################

class Rosetta::Model::Document {

    # External packages use <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5575	5711	
==>eader("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5575	5711	
==>eader("Content-Type"));
        my %h = %{@h[0]};
        
        if ((my $boundary = $h<boundary>).defined) {
            my $str = $se <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5472	5591	
==>nt_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (ca <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5472	5591	
==>nt_date ($self: )         is rw { $self!date_header('Client-Date')         }

# The retry_after field is dual format (ca <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3109	3211	
==>lement_next, $self.complement_previous, $set.complement_next, $set.complement_previous ),
        compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3109	3211	
==>lement_next, $self.complement_previous, $set.complement_next, $set.complement_previous ),
        compl <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	3034	3126	
==>$self: Set $other) returns Set {
    $self.difference($other).union($other.difference($self)) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	3034	3126	
==>$self: Set $other) returns Set {
    $self.difference($other).union($other.difference($self)) <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13348	13455	
==>day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is inter <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13348	13455	
==>day), start => $dstart, end => $dend );
    # [2005-07-15,2005-07-20]    6 days

When a Span object is inter <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14987	15080	
==>nes a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which ap <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14987	15080	
==>nes a common programmatic interface (API), called
the Rosetta Native Interface (RNI), which ap <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2964	3078	
==>s Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2964	3078	
==>s Str $.value;
    method vtype () { 'LValue' }
}

# PILStmts :: Stmt -> [Stmt] -> [Stmt]
class Perl::Compiler::PIL <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar.pl	2223	2319	
==>code;"
    }
))->code;
*grammar = Pugs::Compiler::Rule->compile(q( <'grammar'> <grammar_name> \;[ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	715	808	
==>code;"
    }))->code;
*grammar = Pugs::Compiler::Rule->compile(q(<'grammar'> <grammar_name>\;[ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3022	3132	
==>osure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_next, $self.compl <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3022	3132	
==>osure_previous, 1 ),
        complement_next =>     $self._get_intersection( $self.complement_next, $self.compl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2602	2710	
==>fied is more important.



### - see "Modifying the compiler" below 



Pugs::Compiler::{name} ? for simultan <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2506	2610	
==>fied is more important.

### - see "Modifying the compiler" below 

Pugs::Compiler::{name} ? for simultan <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	1742	1847	
==>elf->leave_scope;

	die "Thunk is accepting $received parameters, while App is providing $sent parameters: <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	869	973	
==>rem = @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
EOT

print $F <<EOT;
"$^X <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1157	1260	
==>say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subnam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1156	1252	
==>say "ok";
}

print &sub123;

$bar.goto("param1", "param2");
&bar.goto("param1", "param2");
subnam <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13245	13342	
==>ast-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13245	13342	
==>ast-Modified>.  RFC 2616 denote these fields as I<Entity Header
Fields>.

The return value is a ne <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1363	1510	
==>// "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protoc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1363	1510	
==>// "-";
        my $uri = (./uri().defined) ?? ./uri().as_string() !! "-";
        
        $req_line ~= $uri;
        
        my $proto = ./protoc <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1530	1699	
==>.union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TOD <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1530	1699	
==>.union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $sp;
    }
    # TOD <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	2700	3004	
==>for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	2700	3004	
==>for (@lines) -> $line {
                if ($line eq '') {
                    $buffer ~= "\n";
                }
                else {
                    $buffer ~= " $line\n";                                            
                }
            }
            # trim the last newline
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	514	616	
==>age Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	514	616	
==>age Locale::KeyedText-1.73.0 {
    # Note: This given version applies to all of this file's packages.
} <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10833	10956	
==>ser::group;
  sub emit {
    my($o)=@_;
    my $f = $o->concat( $o->data );
    return $f;
  }
}
{
  # ( capturing
  package <==
2	/Users/nnunley/pugs/util/testgraph.pl	1844	1961	
==>self = shift;
        my $link = $self->SUPER::link;
        $link =~ s/\.t(?=#line|$)/.html/;
        File::Spec->cat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11152	11276	
==>{ undef },
      numeric     => sub { $_[0] ? 1 : undef },
      non_numeric => sub { $_[0] ? 1 : undef },
      scalar_numer <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5210	5309	
==>alling instance method fails';

## make instances

my $iFoo = $Foo->new;
is($iFoo->id, 4, '... $iFoo <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	2868	2980	
==>string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expecte <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	2868	2980	
==>string.],
    'LKT_ARG_ARY_ELEM_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is an Array ref as expecte <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1259	1362	
==>nd_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.ma <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1259	1362	
==>nd_is_closed;
}
method stringify () returns String {
    return '' unless @.spans;
    return @.spans.ma <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	133	250	
==>t 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
use Pugs::Emitter::Rule::Perl5;

my %relative_preceden <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	332	446	
==>ilter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	332	446	
==>ilter($pkg, $code);
}

sub unimport {
    my $pkg = caller;

    no strict 'refs';
    *{"$pkg\::pmc_use_means_no"} <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	175	291	
==>Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealSc <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	175	291	
==>Bin;
    $RealDir := $RealBin;
    if ( $*PROGRAM_NAME eq '-e' || $*PROGRAM_NAME eq '-' ) {
        $Script = $RealSc <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4426	4525	
==>f, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_precendence_lis <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	6328	6427	
==>f, '... $Object got the right method return value');
is_deeply(
    [ $Object->class_precendence_lis <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	600	720	
==><subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	600	720	
==><subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> < <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	812	983	
==>tus_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($pr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	812	983	
==>tus_line.split(' ', 2);
            } else {
                ($protocol, $code, $message) = $status_line.split(' ', 3);
            }
            
            .protocol($pr <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	18680	18794	
==>ed $wa) {
	$s = eval($code);
    } else {
	eval($code);
    }
    $wa ? @a : $s;
}

BEGIN{unlink("deleteme_code.pl" <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4869	4972	
==>, $Class, '... $Foo refs to metaclass');
is($Foo->name, 'Foo', '... $Foo got the right method return val <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1018	1131	
==>ne
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed fro <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1018	1131	
==>ne
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These methods can be accessed fro <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15348	15458	
==>OIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15348	15458	
==>OIS $target" },
    ison  => -> Str @targets { enqueue "ISON @targets[]" },
    topic => -> Str $channel, Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14090	14186	
==>nel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") } <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14090	14186	
==>nel) { ./:enqueue("PART $channnel") }
  method quit(Str $reason)  { ./:enqueue("QUIT :$reason") } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1468	1558	
==>num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$nu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1468	1558	
==>num($num), :name($name))> will capture whatever C<$p> matched
into C<$match.capture_num[$nu <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	46	127	
==>/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile.pm"
package Module::Insta <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21400	21494	
==>n attribute has a name that is distinct from the other
attributes, though several attributes ma <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25952	26046	
==>n attribute has a name that is distinct from the other
attributes, though several attributes ma <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6618	6778	
==>ze_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $si <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5122	5282	
==>ze_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $si <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	4526	4719	
==>ber_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	4526	4719	
==>ber_names!', @member_names );

    @!set_names    = @set_names;
    @!member_names = @member_names;

    return;
}

###########################################################################

m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9213	9330	
==>set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DES <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9213	9330	
==>set
 $ct = $h.header('Content-Type');           # get
 $h.remove_header('Content-Type');          # delete

=head1 DES <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	1484	1590	
==>LER::<$_>, Num :$base --> Num )
 {
     # use (($base // Math::Unspecced::e) ** $exponent) instead?
     Pu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/List.pm	1424	1528	
==>ny) returns Any;
 type Comparator   ::= Code(Any, Any) returns Int;
 type Criterion    ::= KeyExtractor | <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1079	1183	
==>in.  A Module object mixes in both Package

and Code -- because it is both a namespace of symbols and has <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1028	1131	
==>in.  A Module object mixes in both Package
and Code -- because it is both a namespace of symbols and has <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	322	438	
==>[basename];
use Path::Class             ();
use Data::Dumper;

use base 'Object::Accessor';

=head1 ACCESSORS

=head2 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16421	16523	
==>rent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new Node i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16421	16523	
==>rent_node (a Node) is set, then the new Node's "Parent Node" attribute
is set to it, and the new Node i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1060	1177	
==>sub _emit {
    my $n = $_[0];
    #die "_emit: ", Dumper( $n ); 
    #warn "fixity: $n->{fixity}\n" if exists $n-> <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	7084	7236	
==><'['>
    | <']'>
    | <'.'>
    | <';'>
    | <','>
    | <'<'>
    | <'>'>
    | <'<='>
    | <'>='>
    | <'=='>
    | <'!='>
    | <'==='>
    | <'! <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/C3.pm	370	480	
==>e {
    my $self = shift;
    
    my @supers = $self->{class}->send('superclasses')->to_native;
    my @seqs = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19575	19677	
==>Relation is like a Set that exists
over N dimensions rather than one.  The Relation operators are somew <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24127	24229	
==>Relation is like a Set that exists
over N dimensions rather than one.  The Relation operators are somew <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	309	416	
==>gs);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSIT <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	309	416	
==>gs);
    ExtUtils::MakeMaker::WriteMakefile(
        INSTALLSITELIB  => $libs->{sitelib},
        INSTALLSIT <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8824	8933	
==>odule_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8824	8933	
==>odule_name!', $module_name );

    # Note: We have to invoke this 'require' in an eval string
    # because we <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23177	23278	
==>F8 
 ROPT_NAUGHTY 
 ROPT_NOSCAN 
 ROPT_SKIP 
 ROPT_TAINTED_SEEN 
 ROPT_UTF8 


=head1 Compilation

=he <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3002	3099	
==>::splice(@array, @array.elems, 0, @values);
    @array.elems;
}

# copied from S29draft.pod r8649. <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	430	572	
==>elf)->new(%$self);

        $_ = &$f($_) for values %$new;

        $new;
    }

    sub values { values %{ $_[0] } }

    sub str {
        ma <==
2	/Users/nnunley/pugs/inc/Test/Harness/Iterator.pm	964	1069	
==>e Test::Harness::Iterator::FH;
sub next {
    my $fh = $_[0]->{fh};

    # readline() doesn't work so good <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22056	22278	
==>ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	22335	22557	
==>ruleop::constant( "\." )
                 ,
             ] )
           ,
             ruleop::constant( "\." )
           ,
             ruleop::constant( "\." )
           ,
           )
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19934	20068	
==>imp;

sub PIL2JS::Internals::use_perl5_module_imp (*@whatever) {
    die "Can't load perl5 modules via js when not running under PIL2JS <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5376	5487	
==>o');

# try to call the Class method
fails_ok { $iFoo->name } '... instance calling metaclass method fails';

is <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1845	1957	
==>capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capita <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1845	1957	
==>capital U, acute accent
    "Ucirc"    => 'Û',  # capital U, circumflex accent
    "Ugrave"   => 'Ù',  # capita <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	37284	37380	
==>tes to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	41833	41929	
==>tes to a C<semijoin>.  This
method has an alias named C<natural_join>.

=item C<join (Relation *@ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	10730	10893	
==>ription,
          $.passed,
          ?$.number     =     0,
          ?$.diagnostic = '???',
      ) {}
  
      method status returns Hash
      {
          retu <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Pugs/Exp.pm	125	224	
==>here's a lot.  And we probably don't need it all for the
# meta-model, except perhaps to express sub <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	2693	2803	
==>et2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	2693	2803	
==>et2_span = $span2.difference( $span1 );
    my @intersect = $span1.intersection( $span2 );

    my $union_recur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6832	6958	
==>r $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6832	6958	
==>r $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	588	691	
==>true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	us <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	588	691	
==>true;
	}
	return;
}

=head1 TITLE

Log::Selective - Selectively choose what to log

=head1 SYNOPSIS

	us <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6677	6827	
==>( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print D <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6677	6827	
==>( '{1 2 3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'syntax error' 
    );
    print postfix( $match->() );
    print D <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3065	3174	
==>d concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b. <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3065	3174	
==>d concat ($a, $b) {
    $.Parser.new(parse => sub ($match, &continue) {
        $a.parse()($match, -> $m { $b. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14061	14176	
==>thing's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and ti <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14061	14176	
==>thing's fine. But if the connection is
        # somehow b0rked, we won't get a reply.
        if($servername and ti <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2181	2316	
==>se $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2181	2316	
==>se $key is rw;
        my $temp_key = ucfirst(lc($key));
        
        $temp_key ~~ s:P5:g/[-_](\w)/-$0.uc()/;
        
        given <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	270	379	
==>Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        . <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	270	379	
==>Perl::Compiler::CodeGen::NameGen.new(template => { "\$P_$_" });
        say "$?SELF / $?SELF.ref()";
        . <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5537	5728	
==>Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TOD <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	9014	9205	
==>Str $mapping! ) returns Relation {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation {
    # TOD <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28474	28570	
==>tility.

=back

=head1 EXAMPLE

Here's how Test::Harness tests itself

  $ cd ~/src/devel/Test-Ha <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24784	24901	
==>>error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21205	21322	
==>>error(RPe_SWBRAN);
  });

  $self->add_handler('ifthen(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    push @{ $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9601	9734	
==>Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method dif <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9601	9734	
==>Span {
    my $span0 = $self.span;
    my @span0 = $span0.complement;
    return @span0.map:{ $self.new( span => $_ ) };
}

method dif <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20619	20724	
==>header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header( <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20619	20724	
==>header field name
to show up as C<foo_bar> instead of "Foo-Bar", you might set it like
this:

  $h.header( <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1124	1301	
==>)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1124	1301	
==>)) {
                @{%!params{$key}}.push($value);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!pa <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	4692	4840	
==>dified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	4692	4840	
==>dified = ./last_modified;
            
            if ($last_modified.defined) {
                my $h_exp = ($date - $last_modified) * 0.10; # 10% s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31112	31215	
==>d without any delimiter.  This means,
for example, that the full module names in a set could be either
[ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31112	31215	
==>d without any delimiter.  This means,
for example, that the full module names in a set could be either
[ <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2761	2887	
==>take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2761	2887	
==>take "=";
    }
  }
}

sub index (Int $a, Int $ashift, Int $b, Int $bshift, Int $mask) returns Int {
  (($a +& ($mask +>$ashift <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24574	24669	
==>re private, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24574	24669	
==>re private, so you must use accessor methods.
Locale::KeyedText does not declare any subroutines <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/cleanup.pl	62	188	
==>_inc.pl';
    protoconf->import();
}

system(qq[rm -rf $Root ${Build_prefix}*])                       and die $?;

### set up t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	2564	2689	
==>h}[1]} },
                match => [ @{$_[3]{match}[0]}, @{$_[3]{match}[1]} ],
                capture => ${$_[3]{match}[1]} <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3569	3673	
==>off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3569	3673	
==>off();
      $rl1<count>(1); $rl2<count>(1);
    }

=head1 BUGS

Documentation lacks the actual algorithm <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2804	2918	
==>lit_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read resp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2804	2918	
==>lit_uri($url);

  my $req = _make_request( "GET", $url );
  my $hdl = _send_request( $h, $p, $req );

  # read resp <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17115	17246	
==>-1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17115	17246	
==>-1, 0, or 1.

The argument can be a Span object, a Recurrence object, or a scalar value.

- `is_empty()`

Returns `true` if the span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	7609	7721	
==>256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	7609	7721	
==>256)) }), "");
    $b ~~ s:g/\W+/X/; # ensure alnum only
    return $b;
}

multi sub *coerce:<as> (::?CLASS $self <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1927	2025	
==>perset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
mu <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1927	2025	
==>perset($two);
}
multi sub *infix:«⊄» (Set $one, Set $two) {
    !$one.proper_subset($two);
}
mu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1194	1289	
==>Context
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemC <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1194	1289	
==>Context
    does Perl::Compiler::PIL::Util::Context 
{ }

class Perl::Compiler::PIL::Util::ItemC <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1493	1590	
==>erface

The Cipher API's procedural interface is good enough for many purposes.  
Although the int <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1493	1590	
==>erface

The Cipher API's procedural interface is good enough for many purposes.  
Although the int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1423	1526	
==>, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1481	1584	
==>, $todo, $got_perl, $expected_perl, $depends);
}


## isnt

sub isnt (Str $got, Str $expected, Str $desc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	70	209	
==>Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!param <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	70	209	
==>Query-0.0.1 {
    does Hash;
    
    has @!keywords;
    has @!params;
    has %!params;
    
    method params () {
        return @!param <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	4839	4941	
==>ect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @interse <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	4839	4941	
==>ect.map:{ $set1.new( recurrence => $diff_recurr,     span => $_ ) };

    return ( @set1_span, @interse <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2571	2686	
==>&& @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2571	2686	
==>&& @b {
        push @res, @a[0].intersection( @b[0] );
        if @a[0].end < @b[0].end { shift @a } else { shift @ <==
2	/Users/nnunley/pugs/t/packages/Test.pm	386	485	
==>ub pkg { $?PACKAGE }
    }

}

sub dummy_sub_with_params($arg1, $arg2) is export { "[$arg1] [$arg2]" <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14705	14803	
==>e optional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedde <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14705	14803	
==>e optional $eol parameter specifies the line ending sequence to
use.  The default is "\n".  Embedde <==
2	/Users/nnunley/pugs/util/testgraph.pl	903	999	
==>print <<"USAGE";
usage: $0 [OPTIONS] > output_file.html

Generates an HTML summary of a YAML test <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16600	16686	
==>B0,B1,E0,Ex),
  set_modifiers_from(Ex,E0,E1).


rm(union(Re1,_Re2),F0,F1,B0,B1,E0,E1) : <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12427	12611	
==>1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12421	12605	
==>1]         do {\n" .
                "$_[1]           push \@match,\n" . 
                "$_[1]             $cmd->match( \$s, \$grammar, {p => \$pos}, undef );\n" .
                "$_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3400	3524	
==>$!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3400	3524	
==>$!content.defined;
    
    @!parts = ();
    
    my $old = \$!content;
    my $old_ref = $!content_ref;
    $old = $$old if <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	337	484	
==>2 == 0)
        || confess "not enough elements to construct a hash (must be an even number)";
    my %values;
    while (my ($key, $value) = splice <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3821	3927	
==>call the finish() method to return any leftover data 
and clear the cipher object.

The methods intended to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3821	3927	
==>call the finish() method to return any leftover data 
and clear the cipher object.

The methods intended to <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	4210	4310	
==>d2 @{}

When used as an array reference, the match object returns positional
captures as match object <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	4210	4310	
==>d2 @{}

When used as an array reference, the match object returns positional
captures as match object <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16706	16869	
==>ust copies them.

  struct reg_data *data;  /* Additional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1] <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4765	4863	
==>ject.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The followin <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4765	4863	
==>ject.

NOTE: To avoid name collisions, we use a fully qualified function name.

=back

The followin <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2073	2228	
==>ing_dependencies {
    my $self = shift;
    my %hash = @_;
    
    my($repo_set, $inst_set);
    my $tmpl = {
        repository_set => { 
            req <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5606	5709	
==>=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method differe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5606	5709	
==>=> $span.end;
    return $cmp if $cmp;
    return $span.end_is_open <=> $.end_is_open;
}

method differe <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	1822	1936	
==>et $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($tw <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	1822	1936	
==>et $one, Set $two) {
    $one.subset($two);
}
multi sub *infix:«⊇» (Set $one, Set $two) {
    $one.superset($tw <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	2867	2977	
==>t(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does n <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	2867	2977	
==>t(Num $n)

This sub removes I<N> (or all if there are less than I<N> available) tokens
from the bucket.  Does n <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3453	3566	
==>]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3453	3566	
==>]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my $code = $0;

    # XXX: Add 30[1237] checking/recursion

    if ($code ~~ rx <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	6611	6735	
==>sing  => sub { getstore $kernel_uri => $kernel_local };

step
  descr  => "Checking for Pugs binary",
  help   => "Compile Pu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	1222	1353	
==>tate = $_[1] ? @{$_[1]} : ( 0, 0 );
        $_[3] = bless \{ bool => \0 }, 'Pugs::Runtime::Match::Ratchet';
        while ( $state <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/precedence.pl	1418	1520	
==>NUM'=>{num=>'1'}], 
    ['infix:<times>'=>{op=>'*'}], 
    ['NUM'=>{num=>'2'}], 
    ['«+»'=>{op=> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10440	10571	
==>_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10434	10565	
==>_[1]         }
$_[1]       }
$_[1]     }
$_[1]     $post_match
$_[1]     \$bool;
$_[1] }";
}
sub before {
    my $program = $_[0]{ru <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3324	3458	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3517	3651	
==>1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'grammar1::any'} = sub {
    my $bool = <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3078	3199	
==>ll o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "ot <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3078	3199	
==>ll o, circumflex accent
    "ograve"   => 'ò',  # small o, grave accent
    "oslash"   => 'ø',  # small o, slash
    "ot <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1632	1745	
==>statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_o <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1632	1745	
==>statement = Pugs::Grammar::Category->new( {
    name => 'statement',
    operand => 'term',
} );
$statement->add_o <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	545	678	
==>er".
        $prompt_register = 1;
    }
}
print "*** Running: $setup @args\n";

my $rv = system($setup, @args);
if ($rv == 0) {
    i <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3524	3675	
==>oor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $rand_up {
                if rand < <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	14400	14546	
==>do { ' . 
            'use Pugs::Compiler::Perl6; ' . # XXX - load at start
            'local $@; ' .
            # call Perl::Tidy here? - see <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14744	14879	
==>- $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14744	14879	
==>- $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/...
    join => <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5967	6131	
==>@$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $inde <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6431	6595	
==>@$entry ) {

                    ### we found one that satisfied
                    if( @found = 
                        eval { _parse_depends( [$sub_entry], $inde <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	764	889	
==>.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 | <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	764	889	
==>.text.chars;
    }
}

method beginning_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 | <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	13094	13187	
==>> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	13094	13187	
==>> and C<$set2>

=head2 C<$set1.intersection($set2)>

=head2 C<$set1 ∩ $set2>

=head2 C<$set1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6722	6873	
==>};

};



# experimental!

sub ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6504	6647	
==>};
};

# experimental!
sub ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $m <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3392	3489	
==>{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3392	3489	
==>{}) {
  if ($buffer ~~ s:Perl5{^HTTP\/\d+\.\d+\s+(\d+)([^\x0A]*?\x0D?\x0A)+?\x0D?\x0A}{}) {
    my <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Match.pm	1239	1368	
==>oroutine
    #&$coroutine();
  }
  else
  {
    $self->position(-1);
    return ();
  }
}

sub to {
  my ( $self ) =  @_;
  return <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	4242	4352	
==>ee[0] eq '"MkParam"' {
        my %pad = $tree[1];  # keys: "isInvocant""isLValue""isLazy""isNamed""isOptional" <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	1586	1690	
==>other bootstrap approaches to rules, so this
file may or may not go anywhere.  The plan as of this moment <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	33737	33832	
==>ct

Ok, back to our F<Regexp::AndBranch> example.  Let me explain what the
'&' metacharacter wil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	2604	2725	
==>y $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    ret <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	2604	2725	
==>y $base = __PACKAGE__;
    my $check = $class->freshness_check($module);
    my $version = $class->VERSION || '0';
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9836	9934	
==>tive Infinite" until "Infinite".

Recurrence sets can be combined with union, intersection, differe <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9836	9934	
==>tive Infinite" until "Infinite".

Recurrence sets can be combined with union, intersection, differe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	5280	5433	
==>y $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{cap <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	5280	5433	
==>y $head = $len?substr($_[0], 0, -$len):$_[0];
                $match2->{capture} = $head;  
            }
            else {
                $match2->{cap <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7350	7446	
==>ive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (whi <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7350	7446	
==>ive is reached.

=item I<end_element ('begin')>

This event is fired when a '=end' directive (whi <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	670	793	
==>) ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard p <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	670	793	
==>) ~ " on a non-standard port<BR>";
    }
    else {
        say "You are running " ~ server_software() ~ " on the standard p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16283	16467	
==>leop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16562	16746	
==>leop::alternation( \@grammar1::statements )
               ,
               )
             )
           ,
         )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21966	22083	
==>ey should be consulted.  When
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the f <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21966	22083	
==>ey should be consulted.  When
Locale::KeyedText is told to fetch the user message for a certain code, it
returns the f <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8512	8615	
==>.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8512	8615	
==>.

- `new( objects => ( 1, 3, 9 ) )`

Creates a `Set::Infinite` object with a few elements.

- `new( spa <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1298	1423	
==>ubdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self  = shift;
    my $clean = $self->makemak <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	636	760	
==>ubdir (@_) {
        push @$subdirs, $subdir;
    }
}

sub clean_files {
    my $self = shift;
    my $clean = $self->makemak <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2092	2246	
==>rence.  Accomodate for that.
        $mods = $_[0];
    }
    else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3684	3834	
==>rence.  Accomodate for that.
        $mods = $_[0];
    } else {
        $mods = \@_;
    }

    my $count = 0;
    push @$features, (
        $name => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15922	16033	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.i <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19399	19510	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7099	7226	
==>t . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# B <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7099	7226	
==>t . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use constant CLASSES => 2;
# B <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8056	8182	
==>= 13) {
      SV* pat;
      long nparens;
      SV* exec_callback_sub;
/*      fprintf(stderr,"api 13\n");*/
      if(ret != 4 <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6484	6587	
==>ey-come, because
# we want to preserve ordering anyway and it's probably okay to keep a few
# zombies ar <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	490	666	
==>\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	483	659	
==>\n";
            }
            #print "program $program\n";
            my $return;
            $return = "
    sub { 
        my \$rule = \n$program    ;
        my \$match = \ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8961	9082	
==>relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        bod <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12438	12559	
==>relation."
        if !($other!heading === $!heading);

    return Relation.new(
        heading => $!heading,
        bod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9799	9907	
==>ed string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub depende <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11276	11384	
==>ed string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub depende <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	22856	23001	
==>,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	23135	23280	
==>,
         \&{'grammar1::p6ws'}
       ,
         ruleop::capture( 'fix', 
             ruleop::alternation( [
                   ruleop::constant <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	24993	25111	
==>egex string
    sub RxPOS :lvalue       { pos ${&Rx} }

    # the regex string from the current position on
    sub RxC <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	1977	2102	
==>on_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_sta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	1988	2113	
==>on_capturing_subrule,
    \&subrule,
);

# <ws>* [ <closure> | <subrule> | ... ]
*term = 
    ruleop::concat(
        \&ws_sta <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13051	13144	
==>::Message
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13051	13144	
==>::Message
("Message") and Locale::KeyedText::Translator ("Translator").

I<Note that the "Loca <==
2	/Users/nnunley/pugs/examples/rpn/p5/Rpn.pm	4	103	
==>age Rpn;

# Super simple rpn evaluator derived from:
#   http://perlgolf.sourceforge.net/TPR/0/5a/tp <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5712	5870	
==>this   = 1;
        my $unlink_this = '';
        
        for my $test ( @alts ) {
            ### XXX this should be a policy test!
            if( $pkg->pre <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3485	3599	
==>y.

Everything passed but F<t/waterloo.t>.  It failed 10 of 20 tests and
exited with non-zero status indicating som <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	7256	7395	
==>perimental!

=for example

    # adds an 'before' or 'after' sub call, which may print a debug message 

    ruleop::wrap( { 

            b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	7010	7145	
==>perimental!
=for example
    # adds an 'before' or 'after' sub call, which may print a debug message 
    ruleop::wrap( { 
            b <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	4544	4634	
==>Max)) --> "?", !.
p5_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p5_range_boun <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/PI.pm	325	431	
==>g node is to be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

Thi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/PI.pm	325	431	
==>g node is to be represented in a certain non-normative
way in the source.

=head2 SUB-CLASS PROPERTIES

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8995	9108	
==>niverse => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero i <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8995	9108	
==>niverse => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complement;

    # all non-zero i <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	1564	1674	
==>{ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuf <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	1564	1674	
==>{ named => $named, positional => $positional,
	   named_slurpy => $named_slurpy });
}

# some higher level stuf <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1308	1406	
==>$_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base ) <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1308	1406	
==>$_path, Str $_base?) returns Str is export {
    return &::($worker_pkg)::abs2rel( $_path, $_base ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1033	1132	
==>ed interfaces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
al <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1033	1132	
==>ed interfaces.  The 
functional and object-oriented interfaces both follow the same basic steps, 
al <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Test.pm	3132	3258	
==>assed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Buil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Test.pm	3132	3258	
==>assed"}        = 1;
        $status{"really_passed"} = $.passed;
        return $status;
    }
}

=pod

=head1 NAME

Test::Buil <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	130	276	
==>ify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-( <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	130	276	
==>ify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5/-( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14484	14659	
==>cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	14478	14653	
==>cmd =~ /^{/ ) {
            warn "code assertion not implemented";
            return;
        }
        return 
            "$_[1] ... negate( '$_[0]', \n" .
            call_ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	6276	6367	
==>PACKAGE__."::'.$_.'"}'}@varsm);
	my $vl4 = join(",",map{'\\$'.$_}@varsm);
	$decl = ("no stri <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	605	759	
==>-> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	605	759	
==>-> $name, *@vals {
                %!params{$name} = @vals;
                return $query.param($name);
            };
    }
    
    multi method param ($ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5080	5203	
==>osition = $operator->to();
  goto oper_shift if ( $tokenCat == PGE_OPTABLE_PREFIX );
  goto oper_shift if ( $tokenCat == PGE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	12171	12339	
==>\\n\"; \n" .
                "    my \$ast = Grammar::Perl6::immediate_statement_rule( \$ret );\n" .
                "    die \"compile: syntax error in macro at '\" . \ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	4313	4424	
==>"--anonymous"
on the command line to withold your identity (and this message).
AD
        }
    }
    #$self->{_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	415	574	
==>nerate AST

BEGIN {
    __PACKAGE__->add_rule( q(') => q(
                [ . | \\ \' ]* 
                \'
                { return { single_quoted => " <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	123	217	
==>t turns out we need the real YAML.pm
use PugsBuild::MiniYAML ();
our $YAML = PugsBuild::MiniYAM <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2328	2430	
==>short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and struc <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2328	2430	
==>short, those subclasses are;

=over

=item L<Perldoc::DOM::Element>

It's all about meta-data and struc <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1957	2093	
==>h->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1935	2071	
==>h->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;
    }

    unless (-f $fil <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5416	5520	
==>.map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5416	5520	
==>.map:{ $_ eq '' ?? '.' !! $_ };
}

sub file_name_is_absolute (Str $file) returns Bool is export {
    ?($ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11696	11794	
==>c;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Enti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11696	11794	
==>c;
#*encode_numerically = \&encode_entities_numeric;
#*decode = \&decode_entities;

1;

# $Id: Enti <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	7549	7648	
==>... $Foo is the fourth id');
is($Foo->name, 'Foo', '... $Foo got the right method return value');
is <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4984	5084	
==>espacePosition, "PGE::Match" );
  goto end;
  found_term:
  my $tokenCat = $$token{syncat};
  $positi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20030	20114	
==><nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt> <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20030	20114	
==><nick> method.

=head2 C<$botE<lt>last_trafficE<gt>()>, C<$botE<lt>last_autopingE<gt> <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9945	10047	
==>f ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9945	10047	
==>f ($part =~ /^[^\S\n]*(use|no)[^\S\n]+([\w\:\']+)[^\n]*\n/) {
            my ($use, $klass, $file) = ($ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9066	9178	
==>$self->{data} };
  }

  sub visual {
    my $self = shift;
    join $self->raw, map join("", map $_->visual, @$_) <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	2342	2448	
==>ly(
			$result,
			$prog->{result},
			"correct results for $prog->{name}",
		);
	}
}

__PACKAGE__;

__END_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8101	8225	
==>%rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8101	8225	
==>%rest.keys;
        
        @array.pop while !defined @array[-1];
        
        %!cookies{$domain}{$path}{$key} = \@array <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32317	32435	
==>ender() method should
return an array reference of arguments to object() that will produce
its ending node:

  # the 'o <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	3869	4020	
==>ber} = $self->{'next'} unless $result{number};

        # sometimes the 'not ' and the 'ok' are on different lines,
        # happens often on VMS if yo <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	17692	17788	
==>tire string, then performing a
C<s:g/(\w+)/{ucfirst $1}/> on it.


=item length

This word is ban <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6161	6286	
==>rn call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	6149	6274	
==>rn call_perl5( "[^\\$_]", $_[1] ) if $char eq uc($_);
    }
    $char = '\\\\' if $char eq '\\';
    return call_constant( $ch <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11634	11736	
==>\&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entiti <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11634	11736	
==>\&encode_entities;
#*encode_numeric = \&encode_entities_numeric;
#*encode_numerically = \&encode_entiti <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15735	15848	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.sym <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19212	19325	
==>tion $other!) returns Relation {
    return Relation.new(
        heading => $!heading,
        body => $!body.sym <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2278	2403	
==>ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2278	2403	
==>ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $file;
    %*ENV<REQUEST <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18781	18881	
==>head1 VERSION

This document describes Relation version 0.0.1.

=head1 SYNOPSIS

    use Relation;

I <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15158	15262	
==>gest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_u <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15158	15262	
==>gest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub pmc_u <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	15838	15953	
==>the the symbols of our outer scope
let: new_env($$) = {
	my $orig = env($$);
	my %new = (
		%$orig,
		($.ide) => typ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20529	20629	
==>pointer,
possibly plus an operand.

We don't care.


=head2 Internals:

  regnode *regstclass;

Point <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13258	13361	
==>= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traf <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13258	13361	
==>= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traf <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21862	21989	
==>handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18283	18410	
==>handler('(?>' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< c) atom >;
    push @{ $S->{flags} }, &Rf;
    return $S- <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	1028	1255	
==>31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octe <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	1028	1255	
==>31 f            48 w         (pad) =
#         15 P            32 g            49 x
#         16 Q            33 h            50 y

#        1716151413121110 F E D C B A 9 8 7 6 5 4 3 2 1 0
#        +--0     octet--+-1      octe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13296	13415	
==>$prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	13290	13409	
==>$prefix eq q(') ) {   # single quoted literal ' 
        $cmd = substr( $cmd, 1, -1 );
        return call_constant( $cm <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16409	16531	
==>!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = sub <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16409	16531	
==>!perms.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = sub <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17811	17987	
==>value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ] <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17811	17987	
==>value' => 'F' },
            },
            {
                'node_type'  => 'data_sub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ] <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	42	139	
==>le::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	42	139	
==>le::Core;

=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1191	1317	
==>rk
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1191	1317	
==>rk
    "Iacute"   => 'Í',  # capital I, acute accent
    "Icirc"    => 'Î',  # capital I, circumflex accent
    "Igrave"   => <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	4147	4243	
==>nized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	4147	4243	
==>nized by Flavio S. Glock; the unicode methods were extracted from
Set.pm, written by Sam "mugwump <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2037	2237	
==>GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::Keye <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2037	2237	
==>GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    while (1) {
        _show_message( Locale::Keye <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5468	5577	
==>here may be situations in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5468	5577	
==>here may be situations in which explicitly zeroizing the 
cipher object would be desirable.

Note that calling <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10193	10328	
==>t, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_auto <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10193	10328	
==>t, $port) };
      if($hdl) {
        try { $hdl.autoflush(1) };
        $connected++;
        $last_traffic  = time;
        $last_auto <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30174	30272	
==>tring may also contain variable names that correspond
to Message Variables, which will be substitut <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30174	30272	
==>tring may also contain variable names that correspond
to Message Variables, which will be substitut <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	18944	19037	
==>ss implements a Relation data type that corresponds to the
"relation" of logic and mathematics <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	16030	16134	
==>dy.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    r <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	19507	19611	
==>dy.intersection( $other!body ),
    );
}

my method _semijoin (Relation $other!) returns Relation {
    r <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	1815	1917	
==>\:\=  <construct>  }
rule external_array_alias   {  \@<name>      \:\=  <construct>  }
rule external_ha <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23008	23103	
==>HECK_ALL 

 ROPT_COPY_DONE 

Aka RX_MATCH_COPIED.
See also flag REXEC_COPY_STR.


 ROPT_EVAL_SEE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	19615	19787	
==>ncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	19894	20066	
==>ncat(
         ruleop::capture( 'op', 
             ruleop::alternation( [
                   ruleop::constant( "print" )
                 ,
                   ruleop::const <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2026	2144	
==>Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
} <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2026	2144	
==>Infinite { $class.new() }

method spans ()         returns List of Span {
    my $set = $.set;
    return $set.spans;
} <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16711	16815	
==>e a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a list os S <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16711	16815	
==>e a Span object, a Recurrence object, or a scalar value.

- `intersection( $span )` 

Returns a list os S <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	4577	4688	
==>endence_list');

## make class

my $Foo = $Class->new(
    '$:name'       => 'Foo',
    '$:superclass' => $Objec <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1278	1400	
==>unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1278	1400	
==>unless +@_path;
    # take a copy of our args here, maybe
    # replace this with 'is copy' parameter
    # trait at some p <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16594	16704	
==>t}= 0;
    $self->{saw_lone_not} = 0;
    $self->{lone_not_line} = 0;
    $self->{bailout_reason} = '';
    $se <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	3193	3299	
==>p away status and headers
  # This should all be done better so the response doesn't live in
  # memory all <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	3193	3299	
==>p away status and headers
  # This should all be done better so the response doesn't live in
  # memory all <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15916	16019	
==>eld,
then the server will return a C<304 Not Modified> response instead of
the document itself.

=item $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15916	16019	
==>eld,
then the server will return a C<304 Not Modified> response instead of
the document itself.

=item $ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Class.pm	701	818	
==>s;

=over

=item *

You can construct new classes which are of its type.

=item *

It serves as the basis for a method <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3691	3820	
==>engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the gen <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3908	4037	
==>engine.pl';
require 'p6rule_lib.pl';

EOT
}

# compile( $source, {flag=>value} );
#
# flags:
#   print_program=>1 - prints the gen <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	1748	1849	
==>le{', "$desc}\n";
#    print "\\begin{block}{desc}\\texttt\n{";

    while ( defined(my $chr = shift @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3314	3471	
==>$flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3454	3611	
==>$flags && defined $flags->{args};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $st <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3501	3610	
==>argument to &each must be either a closure or a block";
    foreach my $val (@{$self}) {
        if ($closure- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2408	2542	
==>default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Ar <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2408	2542	
==>default { $header ~= "\n" ~ $temp_key ~ ": " ~ $value; }
        }
    }
    
    if ($cookies) {
        my @cookies = ($cookies !~ Ar <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11384	11477	
==>ecurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence that <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11384	11477	
==>ecurrence.

- `intersection( $recurrence )`

Returns only the elements in this recurrence that <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10029	10138	
==>ame'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10023	10132	
==>ame'} = [] if ! defined \$named{'$name'};
$_[1]         push \@{\$named{'$name'}}, \$match;
$_[1]       } else <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/TestPlan.pm	706	802	
==>:Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This fil <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/TestPlan.pm	706	802	
==>:Builder::TestPlan

=head1 SYNOPSIS

  use Test::Builder::TestPlan;

=head1 DESCRIPTION

This fil <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2485	2608	
==>= $self->abstract;
        $args->{AUTHOR}   = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) { <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1642	1756	
==>= $self->abstract;
	$args->{AUTHOR} = $self->author;
    }
    if ( eval($ExtUtils::MakeMaker::VERSION) >= 6.10 ) { <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14345	14443	
==>e("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14345	14443	
==>e("WHOIS $target") }
  method ison(Str @targets) { ./:enqueue("ISON @targets[]") }
  method topic(S <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1049	1158	
==>Token bucket algorithm is a flexible way of imposing a rate limit
against a stream of items. It is also very e <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1049	1158	
==>Token bucket algorithm is a flexible way of imposing a rate limit
against a stream of items. It is also very e <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1270	1366	
==>re disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class R <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1270	1366	
==>re disabled: complement(), difference($set)

  ---------------- end Constructor 
  
=cut

class R <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4301	4441	
==>contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( csta <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4301	4441	
==>contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method from_single ( $class: *@list is copy ) {
        $class.new( csta <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23588	23691	
==>lause 14
      <SourceElement>
    | <SourceElements> <SourceElement>
}
rule SourceElement :words {  # s <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	11409	11525	
==>command, Bool :$r is copy, Bool :$w) returns IO
            is primitive is unsafe {
        die "Pipe::open is unidi <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19764	19865	
==>p (*@whatever) {
    die "Can't load JSAN modules when not running under PIL2JS!";
}
our &PIL2JS::Inte <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	2889	3007	
==>dencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protocon <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	3353	3471	
==>dencies?
        my @deps    = $meta->{depends} ? @{ $meta->{depends} } : ();
        my @index   = LoadFile( $protocon <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	964	1062	
==>Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of m <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	964	1062	
==>Log::Selective is a Perl 6 module for printing simple log messages to C<$ERR>. 
It allows sets of m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	814	939	
==>KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	814	939	
==>KeyedText::Message {

    # External packages used by the Locale::KeyedText::Message class, that do export symbols:
    # (Non <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18419	18527	
==>bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18419	18527	
==>bot<connect>();
  $bot<login>();

  # Enter main event loop
  $bot<run>();

=head1 DESCRIPTION

C<Net::IRC> i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	5117	5248	
==>print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	5117	5248	
==>print "var name: ", $num, "\n";
    my $code = 
    "    sub { 
        my \$m = Pugs::Runtime::Match->new( \$_[2] );
        return <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9649	9771	
==>t ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub d <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9649	9771	
==>t ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20057	20167	
==>(usually XML files I think) from the main program binary.  Each user
language is in a separate file, and adding <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20057	20167	
==>(usually XML files I think) from the main program binary.  Each user
language is in a separate file, and adding <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5161	5268	
==>ile, and returns a boolean value
of success or failure

=item data

The C<data> method returns a hash refere <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5161	5268	
==>ile, and returns a boolean value
of success or failure

=item data

The C<data> method returns a hash refere <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10174	10303	
==>= %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %cha <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10174	10303	
==>= %char_to_entity;
    %char_to_entity = ();
    my $temp        = $string;
    my $result      = encode_entities($temp);
    %cha <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7421	7595	
==>t_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependen <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	722	896	
==>t_dependencies( $entry ) ) {
                
                ### check if this entry depends on /any/ of the items
                ### we provide
                if( dependen <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	1719	1825	
==>is a map - it contains symbol to value mappings.

=back

=head2 Misc

=over 4

=item Blondie::Env

Note tha <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	22995	23083	
==>-------

rmSomewhere(Re,F0,F1,B0,B1,E0,E1) :-
  rm(Re,F0,F1,B0,B1,E0,Ex),
  append(Str,F1 <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14186	14322	
==>, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1666	1802	
==>, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    return $v;
}

sub reduce_sym {
    my $self = shift;
    m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9663	9797	
==>ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9942	10076	
==>ruleop::constant( "\:" )
       ,
         ruleop::constant( "\=" )
       ,
         ruleop::optional(
             \&{'grammar1::p6ws <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16430	16522	
==>computationally complete
(and industrial strength) and has fully integrated database function <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16430	16522	
==>computationally complete
(and industrial strength) and has fully integrated database function <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10484	10589	
==>force into being TODO tests
then you can pass them through this function. This is primarily a release
tool <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	10542	10647	
==>force into being TODO tests
then you can pass them through this function. This is primarily a release
tool <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	31331	31603	
==>bol->new('@values' => 'list')                                                                
                          ),
                returns => 'block'
            ),                
            sub {
                my $e = shift;
                $e->create('$counte <==
2	/Users/nnunley/pugs/misc/T2-Perl6/lib/T2/Perl6.pm	2280	2410	
==>6_type = $type_lookup{$attr->type} ) {
        return [ $name => { type => $perl6_type,
                            access => "rw", <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	24654	24747	
==>ough several attributes may store values of the same class;
every Relation::Example tuple must <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28720	28827	
==>n't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation attribute names, or d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33272	33379	
==>n't being
wrapped, or any C<$mapping> value set members do not match invocant
Relation attribute names, or d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35518	35619	
==>ect as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version of this ob <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35518	35619	
==>ect as an array
ref.

=item C<as_debug_string()>

This method returns a stringified version of this ob <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14488	14594	
==>fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $clas <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14488	14594	
==>fold($text);
    $result = "$result$preface$digest\n$stop";
    $result;
}

sub pmc_fold_pod {
    my $clas <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17741	17836	
==>tem *

Zero additional runtime penalty after compilation, because C<perl> has
already been doing <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17741	17836	
==>tem *

Zero additional runtime penalty after compilation, because C<perl> has
already been doing <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2266	2376	
==>ATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        op <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2483	2593	
==>ATCH\n", Dumper($match), "END MATCH\n";
        warn "* caching Prelude: $prelude_file-cached.pl\n";
        op <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11177	11279	
==>urns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $ite <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11177	11279	
==>urns true if all given items are in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2643	2732	
==>ement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2643	2732	
==>ement->emit_grammar_perl5();
#print "statement grammar: ", $statement->emit_grammar_perl6( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Postfix.pm	27	120	
==>ostfix;
use strict;
use warnings;
#use base qw(Pugs::Grammar::Operator);
use Pugs::Grammar::Op <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/JoinOnInvite.pm	378	485	
==>::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/JoinOnInvite.pm	378	485	
==>::IRC::JoinOnInvite;

  my $bot = Net::IRC.new(...);
  $bot does Net::IRC::JoinOnInvite;
  # or
  class MyBo <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	2380	2512	
==>own.";
        }
    }


    # S29:
    # Behaves like, and replaces Perl 5 C<do EXPR>, with optional C<$lang>
    # support.
    mul <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	701	815	
==>onst = $_[0];
    my $len = length( eval "'$const'" );
    $const = $_[0] eq '\\' ? '\\\\' : $_[0];  # XXX - genera <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2459	2577	
==>'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumfl <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2459	2577	
==>'ç',  # small c, cedilla
    "eacute"   => 'é',  # small e, acute accent
    "ecirc"    => 'ê',  # small e, circumfl <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	106	212	
==>e warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_s <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	106	212	
==>e warnings;
use Data::Dumper;
$Data::Dumper::Indent = 1;

# XXX - reuse this sub in metasyntax()
sub call_s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	446	555	
==>ocess
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is exp <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	504	613	
==>ocess
$Test::testing_started = 1;

### FUNCTIONS

## plan

sub plan (Int $number_of_tests) returns Void is exp <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15957	16082	
==>de) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutatio <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15957	16082	
==>de) { push @!queue, $code }

    # Remove all items from the queue
    method clear() { @!queue = () }
  }

  class Permutatio <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15434	15535	
==>eturns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15492	15593	
==>eturns Bool;
  multi sub is_deeply (Pair  $got, Pair  $expected, Str $desc?) returns Bool;

Because th <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13167	13265	
==>D LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep: <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13167	13265	
==>D LIST FUNCTIONS

- `negate()`

Returns a recurrence set with all elements negated (-$x).

- `grep: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	4002	4115	
==>'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compil <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	4002	4115	
==>'Expression';
    }
    method vtype () { 'LValue' }
}

# PILBind :: LValue -> LValue -> LValue
class Perl::Compil <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	329	457	
==>s.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.char <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	329	457	
==>s.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.char <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2459	2600	
==>> $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2459	2600	
==>> $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { return { name => $()     ,} } ] 
    # | [ \( (<statement.parse>) \)    { return { ex <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1959	2070	
==>s.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does th <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1959	2070	
==>s.

=item C<decipher>

    $plaintext = Some::Cipher.decipher($ciphertext, :opt<value>, :opt2<value2>);

Does th <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17485	17584	
==>current()`, and `reset()` methods.

If the span is "continuous", this method emits a warning and ret <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17485	17584	
==>current()`, and `reset()` methods.

If the span is "continuous", this method emits a warning and ret <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	55	186	
==>ec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @ <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	55	186	
==>ec, @args? is rw = @*ARGS) is export {
    my @skipped;
    my %spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @ <==
2	/Users/nnunley/pugs/misc/S29_round.pl	3509	3641	
==>= sign($x) * floor(abs($x)) }
        when $_ >  .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $r <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2919	3050	
==>= sign($x) * floor(abs($x)) }
        when $_ > .5 { $x_round = sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            if $r <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	6763	6890	
==>of individual tests
    failed      Number which failed
    percent     Percentage of tests which failed
    canon       List of <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1820	1919	
==>xample.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	7493	7667	
==>ethod}, '  ' ) . 
                "(" . _emit( $n->{self}, '  ' ) .
                ", " . _emit( $n->{param}, '  ' ) . ")" ;
        }
        
        if ( exists $n->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	1954	2078	
==>) = Text::Balanced::extract_codeblock( $_[0] );

    return { 

        bool  => ( $extracted ne '' ),

        match => $ext <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	1876	1997	
==>) = Text::Balanced::extract_codeblock( $_[0] );
    return { 
        bool  => ( $extracted ne '' ),
        match => $ext <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	815	923	
==>on of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	815	923	
==>on of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $nick,
  Str $host <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	5264	5530	
==>";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	5264	5530	
==>";");                     
                }
                when rx:perl5/[CF]/ {
                    $fh.print("</CODE>");                     
                }                        
                when rx:perl5/[BI]/ {
                    $fh.print("</" ~ $mod <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	4663	4795	
==>uld be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sor <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5127	5259	
==>uld be policy based
                my @sorted = sort { $b->{version} <=> $a->{version } } @found;

                push @maybe, $sor <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1501	1678	
==>ds)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1501	1678	
==>ds)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compiler::PIL::PILVal    {
                my sub box (String $class, $value <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1498	1603	
==>rrently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility funct <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1498	1603	
==>rrently iso-8859-1 and utf-8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility funct <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	5151	5283	
==>n conv_condition
          
              )){
    no strict;
if(main->can($c)){
    $src = &{$c}($src);
    print "---- ( $c ) ----\n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2750	2869	
==>msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2750	2869	
==>msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Message';
    die Locale: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6110	6242	
==>'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6303	6435	
==>'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	1327	1425	
==>kernel.bin";
my $grub_uri     = "http://m19s28.vlinux.de/iblech/pugs/grub.tar.bz2";
my $kernel_loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12635	12810	
==>$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12629	12804	
==>$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in lexical $var
        # TODO - <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	1951	2087	
==>e::TypeSafe::Annotation->new(
				type => $type,
				struct_equiv => $val,
			),
		),
	);
}

sub cast {
	my $class = shift;
	my $node = s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	25577	25678	
==>ndition being reported, if it is used
as an exception payload).  The key is intended to be read by a m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	25577	25678	
==>ndition being reported, if it is used
as an exception payload).  The key is intended to be read by a m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3320	3417	
==>ib/Pugs/Compiler.fglock.pm?



use Pugs-fglock; # everything is fglock

use Pugs qw( Parser fglock <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	3203	3297	
==>ib/Pugs/Compiler.fglock.pm?

use Pugs-fglock; # everything is fglock
use Pugs qw( Parser fglock <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9536	9660	
==>e 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9536	9660	
==>e 
    # need not bubble up through the
    # parents
    return if $.height == ($max_height + 1);
    # otherwise ...
    $. <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	905	1000	
==>byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering o <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	905	1000	
==>byte of plaintext or ciphertext.  (It doesn't distinguish 
between enciphering and deciphering o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	10999	11127	
==>rl5::RuleOps::concat( \n" .
                "        Runtime::Perl5::RuleOps::constant( '$prefix:<$id>' ),\n" .
                " <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2847	2957	
==>y $conf = $self->config;

    ### XXX move to builddir under pkg_dir/_jib/build
    my $path     = $self->meta- <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	16412	16520	
==>e.

=cut

sub _reset_file_state {
    my($self) = shift;

    delete @{$self}{qw(max skip_all todo)};
    $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7924	8034	
==>ick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7924	8034	
==>ick>}<channels>.keys;
      %!channels{$_}<users>.delete(normalize $event<from_nick>) for @chans;
      %!users <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6858	6974	
==>> $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($mat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6858	6974	
==>> $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($mat <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2509	2624	
==>ing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2509	2624	
==>ing the match object as a parameter, and
it should return a I<compiled> rule (i.e.  a C<Rule> object, not a C<Parser <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1058	1170	
==>$.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1058	1170	
==>$.density,  end =>   Inf, density => $.density );
    }
    return (   $self.new( start => -Inf, end => $.start - <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	7910	8023	
==>.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reached, the next event f <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	7910	8023	
==>.
    
=item I<start_element ('item')>

This event is fired when an '=item' directive is reached, the next event f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4557	4679	
==>e},'ast');
    }
    my $program = emit( $match->{capture} );
    
    if ($flags->{print_program}) {
        my $sum = spr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4340	4457	
==>e},'ast');
    }
    my $program = emit( $match->{capture} );
    if ($flags->{print_program}) {
        my $sum = spr <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	573	670	
==>ator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	573	670	
==>ator(":pretty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1807	1910	
==>brary.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing but wil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1807	1910	
==>brary.

This is no direct port, the api got cleaned up a bit. :)
Some features are still missing but wil <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17321	17423	
==>=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17321	17423	
==>=over

=item *

Ability to mix many source filterish modules in a much more sane manner.
Module::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1215	1328	
==>le: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $se <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1355	1468	
==>le: unknown parameter '$_'" 
        for keys %$param;

    #print 'rule source: ', $self->{source}, "\n";
    $se <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	9430	9553	
==>ed;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      tr <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	9430	9553	
==>ed;

    debug "Connecting to $.host:$.port... ";
    try { $!socket = connect($.host, $.port) }
    if($!socket) {
      tr <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	982	1075	
==>::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) r <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	982	1075	
==>::($worker_pkg)::catfile( *@_path );
}

sub catpath (Str $volume, Str $directory, Str $file) r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14201	14312	
==>$autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} sec <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14201	14312	
==>$autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_traffic} sec <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10670	10768	
==>msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Tran <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10670	10768	
==>msg (Str $msg_key!, Any %msg_vars? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Tran <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	619	744	
==>r" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2 <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	619	744	
==>r" if $.debug;
        my $dh = $dir.opendir;
        for $dh.readdir -> $node {
            next if $node ~~ m:P5/^(?:\.){1,2 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14956	15054	
==>d headers can also be accessed through the
following convenience methods.  These methods can both b <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14956	15054	
==>d headers can also be accessed through the
following convenience methods.  These methods can both b <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	1311	1417	
==>ent = get_str( $_[0], '$<ident>' );
    return "use $ident;\n";
}
sub node::slurp {
    my $var = emit(get_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17460	17633	
==>fi);
        if $idx < 0 {
            $str ~= substr($fmt,$fi);
            last;
        } else {
            my $len = $idx - $fi;
            $str ~= substr($fmt,$fi, $le <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Ref.pm	91	191	
==>um;
use Perl6::Core::Bit;
use Perl6::Core::Nil;

package reference;

use strict;
use warnings;

use C <==
2	/Users/nnunley/pugs/util/package-osx.pl	8436	8533	
==>::Hack.3
        /usr/local/man/man3/Pugs::Doc::Hack.3pm
        /usr/local/man/man3/Pugs::Doc::Ru <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Server.pm	781	879	
==>he standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Server.pm	781	879	
==>he standard port<BR>";
    }

=head1 DESCRIPTION

This module provides information about the server <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9624	9741	
==>e::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9624	9741	
==>e::Compile subclass.
sub pmc_parse_blocks {
    my $class = shift;
    my $data = shift;
    my @parts = split /^([^\S <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar-token.pl	508	616	
==>regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/compile_p6grammar-token.pl	508	616	
==>regex'> <ws> <rule_name> <ws> <block> <ws>
    {
	my $body = substr($<block>(), 1, -1);
	$body =~ s/\\\\/\ <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	162	259	
==>$.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$want <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	162	259	
==>$.wanted_file;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$want <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	3545	3665	
==>, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute acce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	3545	3665	
==>, grave accent
    "uuml"     => 'ü',  # small u, dieresis or umlaut mark
    "yacute"   => 'ý',  # small y, acute acce <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	1552	1666	
==>s are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, < <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	1552	1666	
==>s are available for Set::Span objects:

- `start()`

Returns the start date.

  # XXX

= AUTHOR

Flavio S. Glock, < <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	5268	5412	
==>=> chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => ch <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	5268	5412	
==>=> chr(923),
    "Mu"       => chr(924),
    "Nu"       => chr(925),
    "Xi"       => chr(926),
    "Omicron"  => chr(927),
    "Pi"       => ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	892	997	
==>ta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	892	997	
==>ta::Model::Document class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Mo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11803	11895	
==>arthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Steva <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11803	11895	
==>arthazi, E<lt>andras@barthazi.huE<gt>

"Aankhen"

=head1 COPYRIGHT

Copyright (c) 2005. Steva <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	648	787	
==>e Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	648	787	
==>e Proxy',
        307 => 'Temporary Redirect',
        400 => 'Bad Request',
        401 => 'Unauthorized',
        402 => 'Payment Required <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	169	297	
==>s;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is cop <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	169	297	
==>s;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is cop <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1828	1929	
==>d 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - a <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1828	1929	
==>d 'Iter::Range' to 'Lazy::Range'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - a <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6846	6968	
==>}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6846	6968	
==>}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match-> <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5993	6125	
==>)
          ->parse_abstract($file) );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "C <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5507	5633	
==>)->parse_abstract($file)
     );
}

sub _slurp {
    my ( $self, $file ) = @_;

    local *FH;
    open FH, "< $file" or die "C <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6255	6361	
==>e when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scop <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6255	6361	
==>e when we call get_msg_key() on undef.
    # The workaround is not necessary if $! is respecced to ENV scop <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8865	8986	
==>I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8865	8986	
==>I was unable to work out a test case, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %! <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	1616	1727	
==>automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	1616	1727	
==>automatically by <@xxx> runtime
    # curry @rule_terms with Grammar
    @rule_terms = map { 
        my $method <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18473	18589	
==>"]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14894	15010	
==>"]");
  });

  # closing paren coming from 'atom'
  $self->add_handler(')' => sub {
    my ($S) = @_;
    pop @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8616	8766	
==>ubrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8616	8766	
==>ubrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negated_subrule / code assertion 
        $cmd = substr( $cmd, 1 );
        if ( $cmd =~ / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5359	5479	
==>$!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5359	5479	
==>$!content);
    undefine($!content_ref);
}

my method parts ($self: ) {
    my $content_type = .content_type;
    
    if <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10101	10212	
==>s Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibl <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10101	10212	
==>s Int {
    return -1 if $self.is_root();
    my $index = 0;
    for  $self.parent().get_all_children() -> $sibl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2321	2443	
==>y {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_ke <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2321	2443	
==>y {
            when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_ke <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/interp1.pl	35	145	
==>erl 5 (und 6?)
sub hallo {
	"Hallo, $_[0]!" # geht derzeit mit pugs
}

print "Otto sagt: ", hallo('Hund'), "\n" <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	66	166	
==>5
# (makes use of attribute grammars and multimethods)

# first part is a type pretty printer and the <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	11008	11115	
==>ns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	11008	11115	
==>ns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ($self: Tree $parent?) r <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7619	7773	
==>f $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defi <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7619	7773	
==>f $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d+(?:,\d+)*/;
        }
        
        my $expires;
        
        if $maxage.defi <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2705	2814	
==>@_;
    return $provides;
}

sub auto_provides {
    my $self = shift;
    return $self unless $self->is_admin <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2998	3098	
==>ack.

Inherits List.

=item Sym

Resolves a symbol into a value. Could be a global or a dynamic symbo <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3835	3923	
==>n( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3835	3923	
==>n( $self.closure_previous, $self.closure_next, $set.closure_previous, $set.closure_next ) <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6198	6294	
==>the implementation of most block and stream ciphers to a constructor, 
the cryptographic core, an <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6198	6294	
==>the implementation of most block and stream ciphers to a constructor, 
the cryptographic core, an <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7403	7500	
==>\"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kic <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7403	7500	
==>\"$event<from>\" (\"$reason\").";
    } else {
      %channels{$chan}<users>.delete(normalize $kic <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	3789	3883	
==>.4
      <MultiLineNotAsteriskChar> <MultiLineCommentChars>?
    | <'*'> <PostAsteriskCommentCh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	15532	15797	
==>::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15811	16076	
==>::p6ws'}
               ,
             )
           ,
             ruleop::constant( "\," )
           ,
             ruleop::optional(
                 \&{'grammar1::p6ws'}
               ,
             )
           ,
           )
         )
       ,
         ruleo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15287	15391	
==>= "misctmp000";
1 while -f ++$tmpfile;
END { unlink_all $tmpfile }

#
# _fresh_perl
#
# The $resolve must <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	6101	6200	
==>mentation is (still) incomplete.  It
may be a little jumbled or hard to understand.  If you find a p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	18060	18178	
==>'dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	41325	41443	
==>'dispatcher' => symbol->new(':descendant')));
                $e->create('$method' => $e->get('WALKMETH')->do(list->new <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23973	24061	
==><Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23973	24061	
==><Pugs Subversion
Repository|svn.openfoundry.org/pugs/> for example bots using this module <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/ADTs.pm	717	846	
==>method = $1;

		my $a = sub { $_[0]{$method} };

		{
			no strict 'refs';
			*{$method} = $a;
		}

		$_[0]->$a;
	}

	sub can {
		m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	1971	2065	
==>ment'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    $<variable>:=(<varscalar>)\{$<ke <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2242	2342	
==>face is perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions retur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2242	2342	
==>face is perhaps the easiest one that allows 
for continuous ciphering.

Both of these functions retur <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	805	1032	
==>{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	805	1032	
==>{^=cut} { 
                        $is_parsing = 0;
                        %events<end_document>();                    
                    }
                    when rx:P5{^=head(\d)\s(.*?)$} {
                        my $size <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	3583	3726	
==>lf}) {
        if ($closure->isa('closure')) {
            my $ref = reference->new($val);            
            $closure->do(list->new($ref)) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16282	16387	
==>>get($symbol) || die $@;

    my $r = $self->runtime;

    if ($builtin->can("digest") and my $native = $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6501	6628	
==>heckpoints'

=cut



# experimental!

sub ruleop::try { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6294	6414	
==>heckpoints'
=cut

# experimental!
sub ruleop::try { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ ) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2461	2555	
==>ders.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.del <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2461	2555	
==>ders.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c!headers{$f} = %!headers.del <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11053	11160	
==>try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the " <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11053	11160	
==>try to iterate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the " <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	2108	2243	
==>..
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => { <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	2313	2448	
==>..
            %attrs,
        )
    );
}

# The 'Class' class
$Class = ::create_class(
    '$:name'    => 'Class',
    '%:methods' => { <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	16710	16907	
==>) {
                    push @unresolved, { target   => $target, 
                                        heading  => $heading,
                                        relative => $link->{relfile} } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7620	7763	
==>atory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'n <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7620	7763	
==>atory' => 1 } ],
            [ 'table_field_detail', { 'name' => 'name',
                'mandatory' => 1 } ],
            [ 'table_index', { 'n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	17773	17871	
==>et::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	17773	17871	
==>et::Infinite

= AUTHOR

Flavio S. Glock, <fglock@gmail.com>

= COPYRIGHT

Copyright (c) 2005, Flavi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9683	9804	
==>_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) i <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9683	9804	
==>_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $result;
}

multi sub decode_entities(*@strings is rw) i <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11055	11171	
==>et;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We reco <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11055	11171	
==>et;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We reco <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	908	1011	
==>ing XXXX 
    $iso8601 ~~ $iso8601_duration_re_anchored
        or die "can't match '$iso8601' to availa <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1444	1552	
==>eturn $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1444	1552	
==>eturn $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->compile(q(
    <Variable> { <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10193	10287	
==>t
concerned with the well-formedness of the input, such as that mandatory
constructor arguments <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10193	10287	
==>t
concerned with the well-formedness of the input, such as that mandatory
constructor arguments <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	4985	5196	
==>{
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	4997	5208	
==>{
                my (undef, $capture) = each %$_;
                #print "cap\n", Dumper( $capture );
                return $capture;
            }
            $n++;
        }
        return;
    }
    
    # $ <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	5870	5988	
==>return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open & <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	5870	5988	
==>return @span;
}

method next ($self: $x ) {
    return $.start if $x < $.start;
    return $x      if   $.end_is_open & <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14037	14200	
==>{
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14037	14200	
==>{
    my $class = shift;
    my $result = "$2~~~$3$4$5";
    my $preface = '';
    my $text = $6;
    my $stop = $7;
    while (1) {
        if ($text =~ s!^(([0-9a <==
2	/Users/nnunley/pugs/util/package-osx.pl	10724	10861	
==>ooter = qq(
        \ 
        \);\n
        for my \$file \(\@files\) \{
            if \( `which parrot` !~ /^no / and \$file =~ /\(?:pa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5068	5160	
==>Max)) --> "?", !.
p6_range_greed(W,Min,Max,   repeat(W,Min,Max)) --> {true}.

p6_range_bounds <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	5839	5928	
==>s => $total_files);
$template->param(links => $total_links);
print $fh $template->output() <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1902	2031	
==>y of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an a <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1902	2031	
==>y of $self.request.uri.
            return $HTTP::URI_CLASS.new_abs($base, $req.uri);
        }
        
        # can't find an a <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	381	527	
==>unt) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	381	527	
==>unt) {
            $code.();
        }
    }
}

sub _time_func ($loop) {
    my @s = (time, times);
    $loop.();
    return (time, times) »-« @s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10871	10983	
==>verse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10871	10983	
==>verse(-> $t {
      say(('    ' x $t.depth()) ~ $t.node())
  });

=head1 DESCRIPTION

=head1 METHODS

=over 4

=i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1629	1737	
==>erm:", "nows", &parse_subrule);
    $optable->addToken("term:<[", "term:", "nows", &parse_enumclass);
    $op <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3069	3204	
==>tion
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3069	3204	
==>tion
    #$location //= $self.location;
    
    # XXX just clone %extra
    #%out = %extra.clone();
    
    %out<Location> = $location <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	6578	6686	
==>d previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	6578	6686	
==>d previous () { $array.pop }    # just in case 

method reverse () { 
    return Perl6::Container::Array.from <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	7010	7117	
==>his Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This module only supp <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	7010	7117	
==>his Perl 6 version of LWP::Simple does not export the HTTP status
codes.

=item (TODO) This module only supp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3822	3929	
==>head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an ex <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	4006	4113	
==>head2 compile (Str $rule_source, \%options )

Class method.  Returns a compiled rule object, or throws an ex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18739	18837	
==>aneously
trying to avoid triggering core behavior which we are not prepared to
support (such as mod <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3029	3127	
==>aneously
trying to avoid triggering core behavior which we are not prepared to
support (such as mod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40689	40783	
==>s.

While it is by no means required, the copyright holders of
Locale::KeyedText would apprecia <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40689	40783	
==>s.

While it is by no means required, the copyright holders of
Locale::KeyedText would apprecia <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	947	1076	
==>rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	947	1076	
==>rule non_capturing_group {
        \[ <rule> \] 
         
        { return $_[0]{rule}() }
    }
    push @rule_terms, 'non_captu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	17709	17878	
==>}
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visua <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	14130	14299	
==>}
          $before_range = &RxPOS++;
          $ret = \$rhs;
          redo;
        }
        $ret = $lhs;
      }
      elsif ($ret == \$rhs) {
        if ($rhs->visua <==
2	/Users/nnunley/pugs/perl5/re-override-PCRE/lib/re/override/PCRE.pm	755	877	
==>e::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

=head1 DESC <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	1339	1461	
==>e::override-PCRE;

    if ("Hello, world" =~ /(?<=Hello|Hi), (world)/) {
        print "Greetings, $1!";
    }

    no re:: <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	37885	37976	
==>is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	37885	37976	
==>is already loaded, it tries to invoke $module_name.get_text_by_key(
$msg_key ) and return th <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9254	9451	
==>uld normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if define <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9254	9451	
==>uld normally stop after the first 'undef'
                        for @lists -> $xx {
                            &*push(@x, [$xx.shift]);
                        }
                        if define <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3777	3923	
==>t = shift @stack;
      $d += $next->(), redo if ref($next) eq "CODE";
    }

    @stack = @{ $self->{tree} }, return unless $next;
    $next->walk <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21024	21124	
==>Statement>
}
rule IterationStatement :words {  # see 12.6
      <'do'> <Statement> <'while'> <'('> <E <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	803	919	
==>of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	803	919	
==>of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == 0 || $pos.text.substr($pos.pos-1, <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	5161	5277	
==>ading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!b <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	8638	8754	
==>ading );

    return Relation.new(
        heading => $!heading.union( set( $attrs.keys ) ),
        body => set( $!b <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	17663	17768	
==>String::Escape::qprintable($node) : "undef";
    }
}


package Digest;

sub compute {
    my $class = shif <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	19685	19781	
==>which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	19685	19781	
==>which in SQL are read-only,
not by using special 'create' or 'alter' statements.

Each Rosetta En <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4625	4763	
==>'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4818	4956	
==>'} = sub {
    my $bool = $_[0] =~ /^\<\?(.*?)\>(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'non_capturing_subrule'=> <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	1115	1234	
==>ype { $_[0] }

	package Blondie::TypeSafe::Type::Placeholder;
	use base qw/Blondie::TypeSafe::Type/;

	sub set {
		my $s <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	6615	6717	
==>~ /\A(?:Package|Module|Class|Object|Grammar)\z/) {
	my @args;
	push(@args,'$.name',$_[0]) if @_;
	retur <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	3766	3886	
==>r;
    foreach my $name ( sort keys %seen ) {
        *{"${who}::$name"} = sub {
            ${"${who}::AUTOLOAD"} = "${w <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	2728	2835	
==>et perl command line options used for running the test
script(s). The default value is C<-w>. It overrides C <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4129	4226	
==>7216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decod <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4129	4226	
==>7216+(:16($2)+&63)*262144+(:16($3)+&63)*4096+(:16($4)+&63)*64+(:16($5)+&63))}/;
            $decod <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28780	28888	
==>Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.] <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28780	28888	
==>Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Welcome to MyApp.] <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20875	20974	
==>ram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring t <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20875	20974	
==>ram resources as data files as well, making them easy to
upgrade.

Locale::KeyedText aims to bring t <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	517	608	
==>ized';
use constant RPe_SWBRAN => --$ENUM, 'Switch (?(condition)... contains too many branch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	3617	3708	
==>that is the case, running C<Makefile.PL> and C<make> in
C<Pugs::Compiler::Rule> should fix t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1125	1247	
==>Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1125	1247	
==>Compiler::PIL::Node::X1::Base {
    method type_check (*@arg) {
        for @arg -> $param, $type {
            if $param n <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	570	681	
==>>()) {
    printf STDERR "skipped (%sgood%s).\n", BOLD . GREEN, RESET;
  } else {
    if($args{help}) {
      pr <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7079	7206	
==>_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use consta <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7079	7206	
==>_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use constant CONTEXT => 1;
use consta <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	11035	11150	
==>0 == "<?" goto nocapture
    if $S0 == "<!" goto negated
    iscapture = 1
    inc pos
    goto subrule_name
  negat <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24233	24335	
==>osetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestion <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24233	24335	
==>osetta is Copyright (c) 2002-2006, Darren R. Duncan.  All rights reserved.
Address comments, suggestion <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	47699	47871	
==>ol->new('$self:' => 'opaque'),                
                              symbol->new('$label' => 'symbol'), 
                              symbol->new('$value' => 'type' <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	5881	6046	
==>ental(condition(Rk,R1,R2)) --> "(?", p5_condition_body(Rk,R1,R2), !.
p5_elemental(X)                   --> "(?", p5_modifier_spec(M), !, p5_modifier_scope(M,X).
p5_el <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1605	1728	
==>@{$self->{levels}[$_]} );
        $x = "[ $x ]" if $#{$self->{levels}[$_]};
        my $prev = $_ - 1;
        my $rule_name <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11745	11871	
==>get values as a single string

=item $h.push_header( $field, $value )

Add a new field value for the specified header field.  P <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11745	11871	
==>get values as a single string

=item $h.push_header( $field, $value )

Add a new field value for the specified header field.  P <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	29886	30007	
==>s '('; if there is an extra ')'
a fatal error is thrown.  However, the nature of 'atom' is to match a
character, see if th <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23417	23555	
==>IND      2
 #define REG_SEEN_GPOS            4
 #define REG_SEEN_EVAL            8
 #define REG_SEEN_CANY           16
 #define REG_SEEN_SA <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	9364	9458	
==>Hook::import();

1;
#__END__
Regexp::StructHook::regexp_hook_on();
=pod
my $str = "axbxc";
my(@ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	1803	1895	
==>log_tests.pl --test_dirs=t/builtins,t/macros --output_dir=t_test --no_designdocs

   See also <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13587	13744	
==>tr $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *% <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13587	13744	
==>tr $pseudo, *@args {
      my $event = {
        pseudo => $pseudo,
        args   => @args,
      };

      if(%handler{$pseudo}) {
        $_($event) for *% <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31494	31595	
==>tributed with a Template module set that is specific
to it, another library likewise, and a program wh <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31494	31595	
==>tributed with a Template module set that is specific
to it, another library likewise, and a program wh <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	262	392	
==>) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($ <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	262	392	
==>) returns Hash {
    { $self.dom_fields.map:{
        my $val = eval '$self.'~$_;
        say "warning: error $!" if $!;
        ($ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9496	9612	
==>My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk(' <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9554	9670	
==>My::Module');

  pass('This test passed');
  flunk('This test failed');

  skip('skip this test for now');

  flunk(' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22683	22775	
==>the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22683	22775	
==>the bot's nick. Also see C<nick> below.

=head2 C<$botE<lt>topicE<gt>("#chan")>, C<$botE<lt>t <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	1657	1768	
==>value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
cl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	1657	1768	
==>value;
    has Util::PosRange $.pos;

    method vtype () { .value.vtype }
}

# PILStmt :: Expression -> Stmt
cl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	121	530	
==>ext-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

mo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	121	530	
==>ext-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant values used by packages in this file:
# (None Yet)

###########################################################################
###########################################################################

mo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19905	20005	
==>r name and the password.  In scalar context it will
return I<"uname:password"> as a single string val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19905	20005	
==>r name and the password.  In scalar context it will
return I<"uname:password"> as a single string val <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12934	13039	
==>e span range, the unit is added to the current value to get the next value.
The unit specifier is also use <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12934	13039	
==>e span range, the unit is added to the current value to get the next value.
The unit specifier is also use <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15595	15778	
==>utput
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use F <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15595	15778	
==>utput
        return $compiled_output;
    }

In F<Bar.pm>:
  
    package Bar;
    
    use Foo;
    ...
    no Foo

or (implied "no Foo;"):

    package Bar;
    
    {
        use F <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16350	16475	
==>$neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUT <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12771	12896	
==>$neg = ${&Rx} =~ m{ \G \^ }xgc;

    my $pos = &RxPOS;
    if (${&Rx} =~ m{ \G ([:.=]) .*? \1 ] }xgc) {
      $S->warn(RPe_OUT <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9373	9515	
==>$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9373	9515	
==>$klass} || {}));
        $text = (defined $return and $return !~ /^\d+\z/)
            ? $return
            : $_;
    }
    $block->[TEXT] = $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	2260	2355	
==>GNITION_FLAG 0xfdfcd84a
#define CONTAINS_RECOGNITION_FLAG(r) \
  (r->offsets[0] >= 1 && \
   r-> <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8158	8272	
==>ool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { ret <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8158	8272	
==>ool :$newlines) returns Str is export {
    # XXX check for $self.escape == 0
    #unless ($self.escape != 0) { ret <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15196	15366	
==>emented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	15190	15360	
==>emented";
            return;
        }
        if ( $cmd eq 'null' ) {
            warn "<$cmd> not implemented";
            return;
        }
        if ( exists $char_ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	392	569	
==>ne(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_c <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	392	569	
==>ne(
                pos => $pos.clone(pos => $pos.pos + $text.chars),
            ));
        }
        else {
            $match.backtrack()();
        }
    });
}

method any_c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10322	10495	
==>ne_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10322	10495	
==>ne_arg' => 'new_person' } ],
                ] ],
                [ 'statement', { 'call_sproc' => 'COMMIT' } ],
            ] ],
        ] ]
    );
    my Rosetta::Interface <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3875	4000	
==>" }
    }
    $self;
}
sub get_p6_file {
    my($self)=@_;
    my $p6_file = $self->as_p6_file;
    my $p6;
    my $warn = sub <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5179	5346	
==>fset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $ <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5179	5346	
==>fset );
        @head = self._shift_n( Inf );
        if $length >= 0 {
            # make $#body = $length
            while @tail {
                last if @body >= $ <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9375	9498	
==>t not ...
    | <'\\'> <EscapeSequence>
}
rule EscapeSequence {  # see 7.8.4
      <CharacterEscapeSequence>
    | <'0'> <!b <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	596	694	
==>ematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$num <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	596	694	
==>ematical chars
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$num <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4841	4963	
==>) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5034	5156	
==>) : () ),
    }
};
    push @rule_terms, \&non_capturing_subrule;
*{'grammar1::negated_subrule'} = sub {
    my $bool = $_[ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	8682	8805	
==>ion = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	8682	8805	
==>ion = $span0.union( $span1 );
    
    # XXX - this should work
    # my @union = $self.span.union( $span.span );

    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12585	12780	
==>);\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12579	12774	
==>);\n" .
                "$_[1]           \$pos = \$match[-1]->to;\n" .
                "$_[1]           !\$match[-1] != 1;\n" .
                "$_[1]         }"
        }
        # call method in <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	286	409	
==>query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	286	409	
==>query_string;
    
    has $.remote_host;
    has $.remote_addr;
    
    has HTTP::Query $.query handles «
        param p <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	3021	3139	
==>c {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bve <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	3021	3139	
==>c {
    my $ghc = can_run($ENV{GHC} || 'ghc') or die;
    my $ghcver = `$ghc --version`;
    ($ghcver =~ /Glasgow.*\bve <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32511	32613	
==>ass

While a Translator object stores some attributes for configuration, its
main purpose is to convert <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32511	32613	
==>ass

While a Translator object stores some attributes for configuration, its
main purpose is to convert <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1613	1706	
==>=~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV-> <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1613	1706	
==>=~ s{'}{\\'}g;
    $makefile =~ s/\b(runtests \@ARGV|test_harness\(\$\(TEST_VERBOSE\), )/ENV-> <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1649	1758	
==>lect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair i <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1649	1758	
==>lect a 
tag.

=head2 Tags

A tag is always represented by a named parameter (pair).  (The value of the 
pair i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	2333	2423	
==>runtime. An example runtime is L<Blondie::Backend::Perl>, which happens to be
an interprete <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13264	13362	
==>ts to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:de <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13322	13420	
==>ts to knowingly
fail, we provide the `:todo(1)` named parameter for all these  functions.

The `:de <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	36653	36747	
==>at a Template corresponding to the Message could be
found using the Translator object's Set and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	36653	36747	
==>at a Template corresponding to the Message could be
found using the Translator object's Set and <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20134	20232	
==>reatly (it isn't what's important;
the interface/behaviour is), this Relation data type is proposed <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	24686	24784	
==>reatly (it isn't what's important;
the interface/behaviour is), this Relation data type is proposed <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	3600	3725	
==>emit_Rat( 
            $tree[1][0][0][1][0],
            $tree[1][0][0][1][1] );
    }	
    elsif $tree[0] eq '"pLV"' | '"pLit <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2842	2942	
==>ss

it and call it Pugs::Compiler::Foo.



use Pugs::Compiler-fglock;

# this would load Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2739	2835	
==>ss
it and call it Pugs::Compiler::Foo.

use Pugs::Compiler-fglock;
# this would load Pugs::Compil <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	9283	9376	
==>(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	3108	3201	
==>(@_) };
push @statements, sub { Grammar::Perl6->sub_decl(@_) };
push @statements, sub { Gramma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3007	3187	
==>e {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3224	3404	
==>e {
            warn "* compiling: $filename\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3334	3437	
==>my $node = shift;
		
		my $obj = B::svref_2object(ref($node) ? $node : \$node);
		my $class = B::class($ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21621	21712	
==>Database Independence".  However, the level of DBI's provided independence
is I<Database Dri <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21621	21712	
==>Database Independence".  However, the level of DBI's provided independence
is I<Database Dri <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	170	311	
==>shift;
        bless {@_}, $class;
    }

    sub AUTOLOAD {
        our $AUTOLOAD =~ /([^:]+)$/;
        $_[0]->get($1);
    }

    sub get { <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	244	355	
==>RT_OK 
    $Verbose $Switches $Debug
    $verbose $switches $debug
    $Curtest
    $Columns 
    $ML $Last_ML_P <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2141	2268	
==>for @indicies -> $k {
	push(@ret, @array._delete_key($k) );
    }
    *@ret;
}
# signature from S29draft.pod r8593.
# XXX Prim.h <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2499	2612	
==>.() // return).get_method($label, %opts) || redo }       
}



(closure *WALKMETH ((block &dispatcher) (symbol $la <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5197	5302	
==>elf!date_header("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("L <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5197	5302	
==>elf!date_header("If-Unmodified-Since") }
method last_modified ($self: )       is rw { $self!date_header("L <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2543	2643	
==>= _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $? <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2543	2643	
==>= _is_leap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    return $doy - @doy[ ( 3 * $? <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	442	535	
==>given below, although Haskellesque, are not pure functions.  They only
# represent transformat <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	442	535	
==>given below, although Haskellesque, are not pure functions.  They only
# represent transformat <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4066	4213	
==>"Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($i <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4066	4213	
==>"Illegal Operation : There are no children to remove";        
    # check the bounds of our children 
    # against the index given        
    ($i <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	8668	8758	
==>p5_modifier_spec_neg([])     --> {true}.

p5_charset_def([char(45)|L]) --> "-", p5_charset_ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9220	9318	
==>ead1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9220	9318	
==>ead1 INTERFACE

The interface of Rosetta::Model is entirely object-oriented; you use it by
creating <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5350	5452	
==>vate LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has been re <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5350	5452	
==>vate LWP extension.  The Client-Date header is
# added as a timestamp to a response when it has been re <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11008	11146	
==>hod readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11008	11146	
==>hod readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	198	306	
==>ss';
use Scalar::Util 'blessed';

use base 'type';

sub new {
    my ($class, @values) = @_;
    (blessed($_) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	9298	9404	
==>d:

  my $all_captures = $parser->captures();

If you want to access a specific capture group, pass its num <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB.pm	341	427	
==>E ALSO

L<JIB::Config>, L<JIB::Installation>, L<JIB::Meta>, L<JIB::Package>,
L<JIB::Pac <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3856	3948	
==>normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3856	3948	
==>normalize(%rest<nickname>) eq normalize($curnick)) {
      ($curusername, $curhostname, $curi <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	106	224	
==>il {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $co <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	106	224	
==>il {
    return if -f $PIL;
    plan 1;
    skip_rest "PIL interpreter not found";
    exit;
}

sub pil_output( Str $co <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3735	3918	
==>$start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3735	3918	
==>$start ) && defined( $end ) {
            $.span = Span::Num.new( :start($start), 
                                    :end($end), 
                                    :start_is_open($ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38116	38206	
==>late_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38116	38206	
==>late_vars_into_template_text( $text!, %msg_vars! )>

This method takes a defined (but possi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11517	11618	
==>rn $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	3108	3209	
==>rn $S->force_object(anyof_char => chr(64 ^ ord $c), "\\c$c") if $cc;
    return $S->object(exact => ch <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	11269	11445	
==>my $_tmp_ = ' . _emit( $n->{exp1} ) . 
            '; defined $_tmp_ ? $_tmp_ : ' . _emit( $n->{exp2} ) . '}';
    }
    
    if ( $n->{op1}{op} eq ':=' ) {
        #warn " <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	463	619	
==>ec.
            my($key, $val) = ($1, $2);
            $doc->{$key} = [ map { /\s*(.*?)\s*$/; $1 } split /,/, $val ];
            next;
        };
        /^ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	278	381	
==>ctions

# information functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_para <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	278	381	
==>ctions

# information functions

sub clear_params returns Void is export { %PARAMS = () }
sub reset_para <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	65	187	
==>0), "\n");
print "Testing perl5 naive bayesian script with $test_file\n";
print(('-' x 80), "\n");

if (! -e "words.db.p5") <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3919	4031	
==>rusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3919	4031	
==>rusername, $curhostname, $curircname) =
        %rest<username hostname ircname>;
    }
  }];

  # The topic of a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3661	3868	
==>> $2,

        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),

    }

        if $_[0] =~ / ^  

            ( 

                (?: 

                    (?:\:\:)? 

                    [_[: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3515	3715	
==>> $2,
        ( $_[2]->{capture} ? ( capture => [ { ident => $1 } ] ) : () ),
    }
        if $_[0] =~ / ^  
            ( 
                (?: 
                    (?:\:\:)? 
                    [_[: <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	5934	6061	
==>ext

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemen <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	5934	6061	
==>ext

All headers are returned as one long string, or maybe as a L<HTTP::Headers>
object, depending on when C<want> gets implemen <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	6579	6768	
==>$self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            retu <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	6579	6768	
==>$self.reset();
                    return;
                }
                my $span = @spans[$.current_span];
                $.current = $span.next( -Inf );
            }
            retu <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	5783	5885	
==>return a negative value for
# relative seconds and a positive value for epoch based time values.
#sub r <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	5783	5885	
==>return a negative value for
# relative seconds and a positive value for epoch based time values.
#sub r <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	11759	11899	
==>);
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\0 <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	11759	11899	
==>);
      }
    },

    # Read a line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11454	11583	
==>elation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, * <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14931	15060	
==>elation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, * <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	839	942	
==>f you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	839	942	
==>f you're seeing this page, it means you haven't subclassed
      HTTP::Server::Simple, which you'll need <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19679	19788	
==>cts as a C<no> statement for any compile sections in
that block. C<use> statements in a PREFACE apply to all t <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19679	19788	
==>cts as a C<no> statement for any compile sections in
that block. C<use> statements in a PREFACE apply to all t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3074	3178	
==>tent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3074	3178	
==>tent;
    @!parts = () unless $keep;
}

# XXX does add_content() need to create references, etc. like the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	8208	8340	
==>is is a low-level op...

    undef - if match failed    



    state - a "next-state" or undef

    bool - an "assertion" (true/fals <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7932	8060	
==>is is a low-level op...
    undef - if match failed    

    state - a "next-state" or undef
    bool - an "assertion" (true/fals <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9553	9661	
==>test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  d <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9611	9719	
==>test failed');

  skip('skip this test for now');

  flunk('this fails, but might work soon', :todo(1));

  d <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	826	942	
==>match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	826	942	
==>match ) eq 'HASH' && exists $match->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6313	6450	
==>s a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs inves <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6313	6450	
==>s a way to simply recreate the DATA
                # file handle, or at least seek back to the start of it.
                # Needs inves <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	117	251	
==>@values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,] <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	117	251	
==>@values -> $value is copy {
        my @current;
        
        while ($value.chars) {
            if ($value ~~ s:P5/^\s*(=*[^\s=;,] <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	402	505	
==>::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	402	505	
==>::Status;
# push(@EXPORT, @HTTP::Status::EXPORT);

# $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	261	385	
==>'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $cla <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	261	385	
==>'     => \&flat,
    fallback => 1,
);

sub new {
    my ($class, $match) = @_;
    my $self = \$match;
    bless $self, $cla <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1947	2090	
==>>reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
#    warn "unbound params @ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14467	14609	
==>>reduce($_) } $seq->values)[-1];
}

sub leave_scope {
    my $self = shift;

    $self->SUPER::leave_scope(@_);
    
    warn "unbound params @ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3567	3671	
==>hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3567	3671	
==>hs_drift

node_h 'PIL_Environment',      'PIL_Environment', 
  'pilGlob' ,'[PIL_Decl]',
  'pilMain' ,'PIL <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	470	586	
==>l;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	470	586	
==>l;
  my $capture;
  my $m = bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	23342	23446	
==>and it is false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Clas <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27894	27998	
==>and it is false if not.  Looking forward to the near
future where "Relation" is a Role rather than a Clas <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	60	161	
==>copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse() <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	60	161	
==>copy of the original

sub import (Str $pkg: *@_paths) returns Void {
    my @paths = @_paths.reverse() <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7016	7151	
==>ment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ / <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7575	7710	
==>ment :(
        $ref = "$prefix$ref";
        bless $o,'AvoidAnyOverloading'.int(rand(10000000));
    }
    my $s = "$o";
    if($s =~ / <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Base.pm	498	642	
==>bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #t <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Base.pm	498	642	
==>bless \{
    str => \$s, from => \(0+$pos), to => \(1+$pos),
    bool => \$bool, match => \@match, named => \%named, capture => \$capture,
    #t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	637	784	
==>d.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	637	784	
==>d.defined;
            .uri($uri) if $method.defined;
            .protocol($protocol) if $protocol.defined;
        }
        
        $self;
    } <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2782	2905	
==>ipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2782	2905	
==>ipher($text1);   # Encrypt some data
    print cipher($text2);   # Encrypt more data
    print cipher();         # Finish up <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14352	14462	
==>b::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14352	14462	
==>b::add_two( $first, $second, $translator );
    }

    module MyLib;

    sub add_two (Num $first!, Num $second <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23718	23855	
==>< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	20139	20276	
==>< c) atom >;

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }

    if <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1018	1146	
==>|| 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $st <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1018	1146	
==>|| 0;
}

sub to {
    #print 'TO: ', do{use Data::Dumper; Dumper(${$_[0]})};
    #my $str = _str( ${$_[0]} );
    #print "TO: $st <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10618	10726	
==>logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.i <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10618	10726	
==>logged in.
      $in_login_phase++;
      $say("NICK {$!nickgen.next}");
      $say("USER $.username * * :$.i <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	350	459	
==>> $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
mu <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	350	459	
==>> $y }

# Comparision ops
multi *infix:<≥> ($a, $b) { $a >= $b }
multi *infix:<≤> ($a, $b) { $a <= $b }
mu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1826	1944	
==>regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style nu <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1826	1944	
==>regex binary { 0b <[01]>+ };

regex hex    { 0x <[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style nu <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	1368	1609	
==>_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	1368	1609	
==>_code( sub \{ { 
                    (join "\n", map { 
                        "my " ~ ./pad_var($_)
                    }, $tree.pads)
                    ~ $inner
                } } )");  ''
            }

            when ::Perl::Compile <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23230	23390	
==>ist_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die $@ if $@;

    retu <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/waehrung2.pl	2	115	
==>waehrung2.pl - Perl 6 Version
use v6;

sub £to€ { $_ * 1.4656 }

# interpolierter Funktions-Aufruf
say "100£ s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	1862	1975	
==>sure to create any nils we need
        map { defined $_ ? $_ : nil->new() }
        @{$self}[$start_index->to_nat <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	8679	8777	
==>nd($lhs,$rhs)"
}

NODE MkTParam ($tpParam, $tpDefault) {
    #my $type = defined $tpDefault ? DOWN( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Ternary.pm	738	847	
==>pt{name2} . '" ,} }' );
    $self->SUPER::add_rule( 
        "ternary:<" . $opt{name} . " " . $opt{name} . ">" <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	2146	2246	
==>the hypotetical new ast.

#XXX - bugs
# Flag handling is currently an utter kludge. not even trying w <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	995	1107	
==>$params{'$.todo'};

            return $::TestBuilder->FETCH('::Test')->FETCH('::Skip')->new(
                '$. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8747	8847	
==>iately.
# This method is called automatically when 
# a subtree is added to a child array
method fix_ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8747	8847	
==>iately.
# This method is called automatically when 
# a subtree is added to a child array
method fix_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	1712	1865	
==>.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the cu <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	1712	1865	
==>.get_all_children() -> $child {
            if $func($child, $current_path) {
                # if we find a match, then
                # we store the cu <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	1986	2175	
==>=> $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.par <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	1986	2175	
==>=> $match),
            -> $m { ($m.match.clone(
                        from => $input,
                        to   => $m.pos), 
                     $m.backtrack) });
    }

    has $.par <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26445	26563	
==>a, $b )),
		),
	);
	is($type->stringify, "∀α. ∀β. list α → list β → list (α × β)", "pretty print :t zip" <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11388	11481	
==>ode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented uni <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11388	11481	
==>ode versions of C<.includes()>.

=head2 C<$set ∌ $item>, C<$item ∉ $set>

Complemented uni <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21740	21840	
==>I<Database Language
Independence>.  To further demonstrate the difference, it is useful to
compare th <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21740	21840	
==>I<Database Language
Independence>.  To further demonstrate the difference, it is useful to
compare th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14112	14210	
==>, and the headers
will be visited in the recommended "Good Practice" order.

Any return values of t <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14112	14210	
==>, and the headers
will be visited in the recommended "Good Practice" order.

Any return values of t <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2025	2154	
==>rl6::Hash::reverse (%hash) returns Hash is default {
   my %result;
   for %hash.kv -> $k, $v {
     %result{$v} = $k;
   }
   %re <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	4221	4327	
==>m_ws;
  }

  $initchar = substr $target, $pos, 1;
  if (( index "<>[](){}:*?+|&^\$.", $initchar) >= 0 )
  { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15951	16047	
==>C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified

This header <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15951	16047	
==>C<304 Not Modified> response instead of
the document itself.

=item $h.last_modified

This header <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	22192	22294	
==>ed (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	22192	22294	
==>ed (varies).

=item C<pseudo>

The pseudo event (if appropriate).

=back

=head2 C<$botE<lt>joinE<gt>(c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1010	1108	
==>st is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These meth <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1010	1108	
==>st is gone
* Lazy list methods (grep, map, ...) moved from Array::Lazy to 
  Lazy::List. These meth <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8786	8906	
==>verse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8786	8906	
==>verse(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     sub { 2 * int( $_ / <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	4682	4785	
==>- Match creation is one thing which is very cruft in this spike.
  # 0- dont create one, 1- wrap with pu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9949	10045	
==>org/">Pugs</a> smoke reports. These smokes are
    automatically generated and show how much a gi <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	2220	2346	
==>this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, st <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	2220	2346	
==>this block and the whole subroutine for that matter
        # since we know the match has failed.
    }
    # we do however, st <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8598	8695	
==>rs DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual c <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8598	8695	
==>rs DO NOT take responsibility for any 
insecurity caused by bugs in the Cipher API or individual c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2557	2699	
==>q 'postfix';
        return circumfix( $n )
            if $n->{fixity} eq 'circumfix';
        return postcircumfix( $n )
            if $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	544	643	
==>l 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows yo <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	544	643	
==>l 5?  Is it Perl 6?  It's neither, it's both.  It's Inline::Pugs!

The Inline::Pugs module allows yo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8920	9030	
==>ty set.

= OBJECT METHODS

The following methods are available for Set::Infinite objects:

- `start()` / `end() <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8920	9030	
==>ty set.

= OBJECT METHODS

The following methods are available for Set::Infinite objects:

- `start()` / `end() <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14089	14189	
==>sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_att <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17566	17666	
==>sources = ($?SELF, *@others);
    my Relation @r_with_zero_tuples;
    my Relation @r_with_shared_att <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8091	8193	
==>=  $self->_command();
    my $switches = $self->_switches($file);

    $file = qq["$file"] if ($file =~ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2383	2495	
==>{
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, sub <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2634	2746	
==>{
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked by <-- HERE in m/%s <-- HERE %s/";
  push @args, sub <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	15104	15198	
==>t) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTI <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	15104	15198	
==>t) { ./:enqueue("PRIVMSG $to :$text") }
  method notice(Str $to, Str $text)  { ./:enqueue("NOTI <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16273	16367	
==>tains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spa <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16273	16367	
==>tains a single
span. Otherwise, it contains two spans. Spans of recurrences may yield three spa <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3341	3444	
==>lue for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3341	3444	
==>lue for its '<KEY>' key is an empty string.],

    # This group of strings is specific to Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10827	10953	
==>laintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.f <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10827	10953	
==>laintext?) {
        if defined $plaintext  { return $self.cipher($plaintext) }
        else                   { return $self.f <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21139	21234	
==>compiled. This means that people who install your
module distribtution do not need to have the c <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21139	21234	
==>compiled. This means that people who install your
module distribtution do not need to have the c <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	8406	8502	
==>of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_fai <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	8464	8560	
==>of_tests_planned tests, but ran $Test::num_of_tests_run");
    }

    if ($Test::num_of_tests_fai <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1434	1535	
==>head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
to seve <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1434	1535	
==>head1 DESCRIPTION

This module provides an implementation for Perl 6 Rules.  It is a front-end
to seve <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3587	3692	
==>l5::X1::Pugs::compile_p6($p6);
	    my $failed = !defined $pil_code;
	    $warn = "pugs -CPerl5 failed: $w <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	82	182	
==>prolog regex engine I
started over the weekend.  A "look at what I'm up to".

It passes most (95%) of <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11064	11162	
==>ate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11064	11162	
==>ate to find a "complement set" that is empty.

= SET FUNCTIONS

- `get_universe()`

Returns the "un <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	6763	6895	
==>le ) {
        $self->{error} = "$file does not exist";
        return;
    }

    unless( -r $file ) {
        $self->{error} = "$fi <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13894	14060	
==>d $skip and $skip =~ /^Skip/i;
            }

            $self->{skip_all} = $reason;
        }

        return $YES;
    }
    else {
        return $NO;
    }
}

=h <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	12816	12951	
==>);
  my $tres = $test_results->{results};
  my $data = { 
        file   => $file, 
        links  => $links,
        ok     => $tres->{ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1733	1862	
==>ain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$do <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1733	1862	
==>ain ~~ m:P5/\./) {
                #LWP::Debug::debug("Checking $domain for cookies");
                my $cookies = %!cookies{$do <==
2	/Users/nnunley/pugs/util/package-osx.pl	1910	2008	
==>s.pl
        /usr/local/lib/perl5/site_perl/runjs.pl /Library/Perl/5.8.6/runjs.pl
        /usr/loca <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8426	8531	
==>xpert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8426	8531	
==>xpert, and may contain bugs and 
vulnerabilities.  B<Perform your own security analysis before using it in <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	1293	1409	
==>he way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural interface does the s <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	1293	1409	
==>he way.

=item 3. Retrieve any final data and clear the cipher's state.

=back 4

The procedural interface does the s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5547	5646	
==>sh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5547	5646	
==>sh     () { ./freshness_lifetime > ./current_age }
    method fresh_until  () { ./freshness_lifetime <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	11803	11933	
==>ecimalDigits {  # see 9.3.1
      <DecimalDigit>
    | <DecimalDigits> <DecimalDigit>
}
rule DecimalDigit {  # see 9.3.1
      <[0. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5908	6014	
==>ash,
        %Pugs::Grammar::Circumfix::hash,
        %Pugs::Grammar::Postcircumfix::hash,
        %Pugs::G <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3640	3768	
==>module;
        $pathname =~ s!\.!/!g;
        $pathname .= '_stub.o';
        my $basename = $pathname;
        $basename =~ s!. <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21455	21547	
==>in'> <Expression> <')'> <Statement>
    | <'for'> <'('> <'var'> <VariableDeclarationNoIn> <'i <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	2403	2523	
==>r {
       reverse @values ==> join;
     }
   }
 }
 type KeyExtractor  ::= Code(Any) returns Any;
 type Comparator    :: <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1436	1539	
==>rot's driver, same date.
#  re_tests_match.el - an old driver putter wrote, adapted to call a Match obj. <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	1617	1725	
==>my $e (@eval) {
    p6_eval($e);
}
for my $fn (@ARGV) {
    p6_eval_file($fn);
}
if($compile) {
    open(F,"< <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	8765	8884	
==>my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        p <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	8765	8884	
==>my $length = @{$block->[CLASSES]} - $offset;
            $class->pmc_call($block, $offset, $length);
        }
        p <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	11250	11375	
==>ol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	11250	11375	
==>ol chars, high bit chars and '<', '&', '>', '"'
        $result ~~ s:perl5:g/([^\n\r\t !\#\$%\'-;=?-~])/{
            %char_to <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	4046	4176	
==>eamble = $self->preamble 
        ? "# Preamble by $top_class $top_version\n"
            . $self->preamble
        : '';
    my $p <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2997	3113	
==>eamble = $self->preamble 
       ? "# Preamble by $top_class $top_version\n" . $self->preamble
       : '';
    my $p <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1620	1723	
==>$<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <w <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1620	1723	
==>$<Constants>() }
    | <ArrayRef> { use v5; return $<ArrayRef>() }
    | <FunctionName> [ <ws>? <'('> <w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8165	8302	
==>and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8165	8302	
==>and $old ~~ s/^\s* Basic \s+//) {
        #my $val = MIME::Base64::decode($cur);

        given want {
          when Item { return $val } <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6086	6205	
==>nse !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!p <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6086	6205	
==>nse !! HTTP::Request;
        @!parts = $class.parse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!p <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	243	360	
==>« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub { <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	243	360	
==>« # overhead
           _time_func( _loop_func($count, -> {}) );
}

sub _loop_func ($count, $code) {
    return sub { <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/List.pm	4115	4245	
==>< 0 ?? $_ !! $max for @array;
  $max;
}
&max ::= *&List::max;


\\n   List      pre     sort    safe   (Array)\
\\n   List      pre <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5377	5521	
==>eturn -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.ne <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5377	5521	
==>eturn -Inf;
}

method current ($self: $x ) {
    return $self.next( $self.previous( $x ) );
}

method closest ($self: $x ) {
    my $n = $self.ne <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	303	409	
==>~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=p <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	303	409	
==>~~ s:perl5{^(?!#)}{# };
    $message ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	564	680	
==>tocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	564	680	
==>tocol) = $request_line.split(' ');
            .method($method) if $method.defined;
            .uri($uri) if $method <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3682	3783	
==>od", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod:: <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3682	3783	
==>od", pod2pod($fh));  

=head1 DESCRIPTION

This is a collection of event handlers for use with L<Pod:: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5400	5514	
==>folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them i <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5400	5514	
==>folded_data);

    # Calculate the number of lines to skip in the source filter, since
    # we already have them i <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22441	22560	
==>eturn ($P0)
  ws:
    self["subname"] = "ws"
    self["iscapture"] = 0
    .return (self)
.end

.namespace [ "PGE::Exp:: <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4256	4364	
==>position( $matchObj->from() + 1);
  }
  return $matchObj;
}

sub dot {
  my ( $matchObj ) = @_
  my ($matchOb <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	4033	4120	
==>Public/Bug/Display.html?id=20152>

=head1 AUTHORS

The Pugs Team E<lt>perl6-compiler@per <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	1372	1498	
==>" : "not ok $test";
    }

    $out .= " # TODO $TODO" if $TODO;
    print STDOUT "$out\n";

    unless ($pass) {
	_diag "# Fai <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32309	32405	
==>cts its Template modules to come
from Perl modules, but in the future they may alternately be som <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32309	32405	
==>cts its Template modules to come
from Perl modules, but in the future they may alternately be som <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6191	6297	
==>ive
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplic <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6191	6297	
==>ive
lines.

=item Hash Context (if it exists?)

A hash is returned mapping the headers. If there are
duplic <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11370	11469	
==>turn map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map { <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11370	11469	
==>turn map {.ord}, $string.split('');
}
sub stringify(Array $array) returns Str {
    return [~] map { <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7617	7758	
==>ent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7617	7758	
==>ent != -Inf;
            undefine $.current;
        }
    }
    method reset () {
        undefine $.current_span;
        undefine $.current <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17487	17615	
==>->push_content('T');
                $backlink->push_content($t);
                my $syn_ref = $syn_indexs->{ substr($syn,0,1) } <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	1450	1570	
==>::cwd();
        if (my $code = $sym->{$pwd}) {
            goto &$code unless $cwd eq $pwd; # delegate back to parent di <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4042	4141	
==>nt_previous => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        u <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4042	4141	
==>nt_previous => $self._get_union( $self.complement_previous, $set.complement_previous, 1 ),
        u <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Filter/Simple/Compile.pm	1624	1719	
==>06 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribu <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Filter/Simple/Compile.pm	1624	1719	
==>06 by Audrey Tang E<lt>cpan@audreyt.orgE<gt>.

This program is free software; you can redistribu <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-client.pl	308	421	
==>!" => \(my $compression_wanted = 1),
  "version"     => sub { print "smokeserv-client.pl v" . VERSION . "\n"; exit <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	613	714	
==>-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	613	714	
==>-named rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11963	12089	
==>ver,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11963	12089	
==>ver,
      to     => $to,
      rest   => strip_colon($rest),
    };

    if %!handler{$code} {
      $_($event) for *%!handler <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Data/Bind.pm	3243	3333	
==>ACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalke <==
2	/Users/nnunley/pugs/perl5/Data-Bind/blib/lib/Data/Bind.pm	3243	3333	
==>ACKAGE__->mk_accessors(qw(positional named named_slurpy));
use Carp qw(croak);
use PadWalke <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	947	1064	
==>v\n";
  }
  if ( not scalar keys %$hash )
  {
    print "$desc: empty\n";
  }
}

sub addToken {
  my ($self, $name, $r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	5719	5828	
==>ad1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DES <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	5719	5828	
==>ad1 SYNOPSIS

  use v6;
  use Pod::Event::Parser;
  
  parse("path/to/file.pod", %event_handlers);

=head1 DES <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	5966	6067	
==>sage', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param ca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	5966	6067	
==>sage', '$message!', $message );

    # This Perl-6 specific workaround is done since $message param ca <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	1174	1388	
==>);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        retu <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	1174	1388	
==>);
            } else {
                %!params{$key} = [ $value ];
            }
            
            if ($key != any(@!params)) {
                @!params.push($key);
            }
        }
    
        retu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16415	16538	
==>.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $st <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16415	16538	
==>.shift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $st <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6676	6778	
==>er> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6676	6778	
==>er> which will get the HTML appended to it, 
or you can pass in a filehandle C<$fh> which the HTML will <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2086	2184	
==>od not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2086	2184	
==>od not_equal($self: Set $other) returns Bool {
    return !$self.equal($other);
}

method subset($s <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	205	310	
==>b call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	205	310	
==>b call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule unless $subr <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	262	370	
==>e, and download it if needed
sub check_nmake {
    my $self = shift;
    $self->load('can_run');
    $self->l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	213	312	
==>e, and download it if needed
sub check_nmake {
	my $self = shift;
	$self->load('can_run');
	$self->l <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9486	9625	
==>we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $script <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2539	2678	
==>we don't
        ### have a situation where no 'script' is available
        
        ### unlink all the script files
        for my $script <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5010	5120	
==>the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5010	5120	
==>the real __DATA__ or __END__ line. (Not one hidden in a Pod
    # section or heredoc).
    my $folded_content = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	945	1052	
==>-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	945	1052	
==>-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key};
    } <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	341	459	
==>.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars) <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	341	459	
==>.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $pos.pos + $text.chars) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5656	5776	
==><<'RULE')->code();

    $<op> := (my|our|local) <p6ws> <variable> <p6ws>? \;
        { return { _my => $() ,} }
RULE
*{'_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28323	28431	
==>H_COPY_FREE(rx) \
	 STMT_START {if (RX_MATCH_COPIED(rx)) { \
	     Safefree(rx->subbeg); \
	     RX_MATCH_COP <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	16665	16800	
==>EP
      $m1->set_str(substr($X::str,$pos,$X::pos-$pos));
      $X::cap = $cap;
      $X::current_match = $m0;
      push(@{$X::cap},$m1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	2210	2330	
==>tall {
    my $self = shift;
    my $libs = $self->get_pugs_config;
    $self->makemaker_args(
        INSTALLARCHLIB  => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8346	8481	
==>\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8346	8481	
==>\n"; # XXX if $cmd eq '!)'
    }
    if ( $prefix eq '?' ) {   # non_capturing_subrule / code assertion
        $cmd = substr( $cmd, 1 ) <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7949	8070	
==>(\S+)\s+(\S+)\z/$2/;
	    $h{'paramName'}=$_;
	    \%h;
	} @$params;
	$params = \@p;
	$hybrid_kludge = 1;
    }

    my $s <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyLib.pm	646	766	
==>$number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                ms <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyLib.pm	646	766	
==>$number !~ m:perl5/^-?(\d+\.?|\d*\.\d+)$/; #: inte or deci
        die Locale::KeyedText::Message.new(
                ms <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	1049	1161	
==>Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the value corres <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4527	4639	
==>Mapping; each key of that Mapping is the name
        # of one of this Relation's attributes and the value corres <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	0	107	
==>module File::Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
h <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	0	107	
==>module File::Find-6.0.0;

use v6;
use File::Spec;

has Int   $.debug;
has Array $.dirs;
has Array $.queue;
h <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	830	932	
==>ence($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	830	932	
==>ence($two);
}

# XXX define multisubs
# comparison is subset/superset
#multi sub *infix:<==> (Set $one, <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7513	7686	
==>s on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	814	987	
==>s on /any/ of the items
                ### we provide
                if( dependency_satisfied_by( $depends, $info ) ) {

                    ### if the dependency is also s <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	306	424	
==>e->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	512	630	
==>e->import;

# TODO: see TASKS file


{
    package grammar1;

    no warnings 'once';
    use vars qw( @statements @ter <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	9154	9279	
==>lor: blue; cursor: pointer; }  /* hack? */

    .tests_ok       { color: #050; }
    .tests_failed   { color: #500; }
    .tes <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2313	2408	
==>links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham B <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2313	2408	
==>links resolved

=head1 AUTHOR

Sebastian Riedel <sri@oook.de>

Based upon C<FindBin> by Graham B <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10404	10516	
==>.add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10404	10516	
==>.add_children(
      Tree.new(:node<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1. <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26936	27029	
==>$snd), "str", ":t snd( pair(10)('foo') )");
is(t(ide("pair")), "∀α. ∀β. α → β → ( <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	8379	8488	
==>calar) {
    List::min $cmp, *@self;
}
# derived from PIL2JS Array.pm r8593.
# not in S29draft, but test cases <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3731	3907	
==>2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is co <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3731	3907	
==>2 1 0|5 4 3 2 1 0|
#        +--0.index--+--1.index--+--2.index--+--3.index--+
#######################################################################

sub decode (*@string is co <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	1460	1580	
==>t "emitting grammar\n";
    my $s = "";
    for ( 0 .. $#{$self->{levels}} ) {
        my $x = join( ' | ', map {"<$self- <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	74	167	
==>ND__

module Test::Builder::Tester-0.2.1;

use v6;

use Test::Builder;
use Test::Builder::Outp <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	23494	23645	
==>xp::Parser::suspend;

  sub new {
    my ($class, $rx, @data) = @_;
    my $self = bless {
      rx => $rx,
      flags => $rx->{flags}[-1],
      famil <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4412	4543	
==>o_index } );
    }
    else {
        $dump .= << "META";
no_index:
  directory:
    - inc
META
    }

    $dump .= "generated_by: $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	7949	8047	
==>thorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	7949	8047	
==>thorization_basic ($self: ) is rw { $self!basic_auth("Proxy-Authorization") }

my method basic_auth <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5586	5692	
==>b ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5586	5692	
==>b ($x) { - &{ $set._get_complement_previous }( -$x ) },
        complement_previous => sub ($x) { - &{ $set <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16065	16158	
==>eve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vin <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16123	16216	
==>eve Peters

Stevan Little <stevan@iinteractive.com>

Brian Ingerson <ingy@cpan.org>

Jesse Vin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4141	4293	
==>'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4129	4281	
==>'  ' );
        push @s, $tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	17119	17234	
==>"x",
	body => ide("x"),
);

# plus_ten(15) (int -> int applied to int) is a number
my $fifteen = comb(
	fun => $plus <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	23469	23570	
==>is.

=head1 INTERFACE

The interface of Relation::Example is entirely object-oriented; you use it by
c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3189	3295	
==>ter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3189	3295	
==>ter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintro { sub | method | submethod | regex | macro <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	537	652	
==>ge Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	537	652	
==>ge Rosetta::Model-0.724.0 {
    # Note: This given version applies to all of this file's packages.
} # package Roset <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	11429	11672	
==>ery', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'per <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	11429	11672	
==>ery', undef, [
                        [ 'interface_row', undef, [
                            $rdtd_person,
                        ] ],
                        [ 'query_source', { 'name' => 's',
                                'match' => 'per <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10257	10375	
==>xt ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method cur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10257	10375	
==>xt ( $x ) { 
    return $.span.next( $x );
}

method previous ( $x ) { 
    return $.span.previous( $x );
}

method cur <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10209	10307	
==>($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',def <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10944	11042	
==>($-[0])?"$-[0]":"undef","\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',def <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	193	338	
==>tr $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $me <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	193	338	
==>tr $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is copy )
    {
        push @!diagnostics, $me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	11208	11330	
==>},
      non_numeric => sub { $_[0] ? 1 : undef },
      scalar_numeric     => sub { ${$_[0]} ? 1 : undef },
      scalar_n <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/code2.pl	74	169	
==>umente vorbearbeiten
	$result = call('neue', 'Argumente');
	# Nachbearbeitung
	return $result;
} <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11230	11332	
==>Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, bu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11288	11390	
==>Bool :$todo, Str :$depends) returns Bool is export`

These functions should work with most reg-exps, bu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5328	5456	
==>iverse,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5328	5456	
==>iverse,
    );
}

method negate ($set: ) {
    return $set.new( 
        closure_next =>        sub ($x) { - &{ $set.closure_prev <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	178	354	
==>ject
       p6_is_perl6_object
       p6_is_native
       p6_ref
       p6_isa
       p6_undef
       p6_bool
       p6_bit
       p6_int
       p6_num
       p6_str
       p6_U <==
2	/Users/nnunley/pugs/util/run-smoke.pl	2347	2441	
==>arness: $!";
system($^X, qw(-w ./util/testgraph.pl --inlinecss tests.yml), $html_location) == 0 <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_install.pl	505	665	
==>entry );
    }
    
    warn "No packaged found matching '$package'\n" unless $tried;
}                        

### XXX merge with pp_deps.pl            
sub _r <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3352	3459	
==>Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unico <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3536	3643	
==>Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ $$
 <unico <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	933	1041	
==>k =~ /c/) { print "ok\n"; }
	    else { print "not ok \# Unexpected compilation failure.\n$err\n" }
	    next <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	3255	3507	
==>s<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	3255	3507	
==>s<end_element>('verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            %events<start_element>('paragraph');
                            interpolate($ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	1375	1481	
==>for @array.keys -> $k {
	push(@ret, Pair($k,@array[$k]) ) if $k ~~ any(@indextests);
    }
    *@ret; # wan <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	4769	4925	
==>e_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	4769	4925	
==>e_next =>
            sub ($x is copy) { 
                loop{ $x = &{ $set.closure_next }($x); 
                      return $x if $x==Inf || $select($x) } <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	11785	11966	
==>eq $inst_pkg->package
                        ? do { $alt = $_; [ $_, 0 ] }
                        : [ $_, 1 ]
                } @{ $self->registered_alternatives }; 

    $self->re <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	3120	3229	
==>il_tree') {
	    my $pil_code = $self->as_pil_code;
	    #print STDERR ">>$pil_code<<<";
	    my $pil_tree = e <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22643	22752	
==>($f)) { # XXX - see PApp in EvalX.
        return $args[0]->$f(splice(@args,1));
    }
    if(!p6_as_bool($f-> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1097	1187	
==>\\w", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("term:\\W", "term:", <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	794	908	
==>> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $ni <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	794	908	
==>> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick,
  Str $ircname  = $ni <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	693	794	
==>r are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptos <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	693	794	
==>r are used in 
standards such as SSH, SSL and TLS, WEP, and WPA, as well as many non-standard 
cryptos <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	818	988	
==>$_[3]{attribute}}, 
            ], 
        } }
    ;

type:
        BAREWORD
        { $_[0]->{out}= $_[1] }
    |   BAREWORD '|' type
        { $_[0]->{out}= { op1 => $_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	9475	9572	
==>hich
may be repeated, and which are printed in a particular order.  The
field names are cases inse <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	9475	9572	
==>hich
may be repeated, and which are printed in a particular order.  The
field names are cases inse <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	605	731	
==>ntro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> < <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	605	731	
==>ntro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodifer> <subintro> < <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	943	1051	
==>L::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	943	1051	
==>L::Util::TypeDisjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compiler::PIL::Util::Type $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	7474	7604	
==>.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.is <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	7474	7604	
==>.density) );
        # say "returning ", $span0.stringify, ",", $ret.stringify;
        return $span0, $ret;
    }
    if $span1.is <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2790	2904	
==>nt("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2790	2904	
==>nt("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ for allowing me t <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10976	11098	
==>ld $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {} <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10976	11098	
==>ld $n;
    }
}

} # class Span

class Span::Iterator
{
    has $.current;
    has $.span;
    submethod BUILD ( $.span ) {} <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	17718	17815	
==>ct. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen t <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	17718	17815	
==>ct. See L<SYNOPSIS> for accepted parameters.

The bot will autoping the server if it hasn't seen t <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10715	10811	
==>UCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Crea <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10715	10811	
==>UCTOR

- `new( closure_next => sub {...}, closure_previous => sub {...}, :is_universe(1) )`

Crea <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	279	375	
==>e() returns a string that represents the 
node type, which are checked against each other for agr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	279	375	
==>e() returns a string that represents the 
node type, which are checked against each other for agr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	418	516	
==>ad1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	418	516	
==>ad1 NAME 

Pugs::Compiler::Token - Compiler for Perl 6 Token

=head1 DESCRIPTION

This module provi <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10946	11077	
==>o code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10946	11077	
==>o code: $code\n "
        #    ) if $!;
        #}
        #%subst{$unsafe_chars}($string);
        $result ~~ s:Perl5:g/([$unsafe_c <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	18904	19020	
==>nt "Test output counter mismatch [test $curr]\n";
    }
    elsif( $curr < $next ) {
        print "Confused test out <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3345	3538	
==>};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3485	3678	
==>};
        $args{p} = $p;
        
        my $match = $rule->{code}( 
            $grammar,
            $str, 
            $state,
            \%args,
        );
        #$p = 0 if $p eq 'undef <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	6707	6812	
==>ror_file = catfile($output_dir,"error.html");
open( my $error, '>', $error_file) or die "Failed to open $e <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	2791	2908	
==>self = shift;
	my $node = shift;

	exists $self->{names}{$node->orig};
}

sub declare {
	my $self = shift;
	my $node = <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	935	1038	
==>k by matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<o <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	935	1038	
==>k by matching more.

=cut

method quantify ($p, $low? = 0, $high? = Inf, :$minimal = 0) {...}

=pod

C<o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13569	13776	
==>}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13848	14055	
==>}
               ,
             )
           ,
         )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::con <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4125	4226	
==>$newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@n <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4125	4226	
==>$newline), $newline, ($content.chars && $content !~ /\n$/) ?? "\n" !! "");
}

method parts ($self: *@n <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3306	3422	
==>pected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is spec <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3306	3422	
==>pected,]
           ~ q[ but the value for its '<KEY>' key is an empty string.],

    # This group of strings is spec <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1901	1994	
==>00.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1901	1994	
==>00.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<This document <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	232	485	
==>r %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_b <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	232	485	
==>r %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub get_text_b <==
2	/Users/nnunley/pugs/inc/PugsBuild/MiniYAML.pm	101	231	
==>ift }

sub load {
    my($self, $stream) = @_;
    my $doc;
    for (split /\r?\n/, $stream) {
        s/#.*//;
        next unless <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16331	16432	
==>n@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16389	16490	
==>n@cpan.org>

Ingo Blechschmidt <iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright ( <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16585	16687	
==>" language, is
described fully in the L<Rosetta::Language> documentation file that comes
with this "Ros <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16585	16687	
==>" language, is
described fully in the L<Rosetta::Language> documentation file that comes
with this "Ros <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31168	31264	
==>nal operator that returns a new Relation
which has a subset of the original's tuples, and it work <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35718	35814	
==>nal operator that returns a new Relation
which has a subset of the original's tuples, and it work <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6125	6372	
==>, $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependenc <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6589	6836	
==>, $index, $avail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependenc <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2954	3064	
==>$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2954	3064	
==>$CRLF/; # <-- make this into a todo test

  my $buffer = slurp $hdl;
  # 1 while ( $buffer ~= $hdl.read() and $ <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder.pm	3465	3614	
==>exit 0;
        },
        'BAILOUT' => sub {
            my ($self, $reason) = @_;
            $reason ||= '';
            _('$.output')->write("Bail <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Runtime/Perl6.pm	296	422	
==>elf = $_[0];
    return 1 if $_[1] eq 'Str'  && defined $_[0];
    return 1 if $_[1] eq 'Num'  && defined $_[0];
    return 1 i <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	78	325	
==>at don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant va <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	78	325	
==>at don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.724.0;

###########################################################################
###########################################################################

# Constant va <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1334	1455	
==>>code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1334	1455	
==>>code;

    *rule = $grammar->compile( '
            <subrule: param1, param2>
        ' )->code;

=head1 DESCRIPTION

Thi <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7324	7445	
==>e %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7324	7445	
==>e %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reason) = $event<object rest <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	1086	1220	
==><package>.info in the repodir
            my $meta_info = $file;
            $meta_info =~ s/$Ext$/$Metaext/;
            ### XXX no hi <==
2	/Users/nnunley/pugs/util/combine_tests.pl	897	1016	
==>@{ $data->{meat}{test_files} }) {
            my $fname = $file->{file};
            for my $event (@{ $file->{events} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	21	126	
==>r::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	21	126	
==>r::MiniPerl6 ;
use Pugs::Compiler::Rule;
use base 'Pugs::Grammar::Base';

*EscapeChar = Pugs::Compiler::Ru <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	1397	1496	
==>uctor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	1397	1496	
==>uctor,$stuff,*@fields) {
    my $code = "";

    $code ~= "class Perl::Compiler::PIL::Node::$data;\n <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	173	265	
==>h;
use Perl6::Core::List;
use Perl6::Core::Block;

use Perl6::MM::Opaque;
use Perl6::MM::Meth <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14950	15097	
==>>
    | <MultiplicativeExpression> <'%'> <UnaryExpression>
}
rule AdditiveExpression :words {  # see 11.6
      <MultiplicativeExpression>
    | <Ad <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	930	1158	
==>o8601_dur_re ( # $8
                                \057 $iso8601_re )? )
       |    ( # $18
              $iso8601_re \057 (?: ( # $28
                                 $iso8601_dur_re ) |
                                 ( # $3 <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5131	5259	
==>ex->openw->close or error($!), return;
        }
        
        # load the existing index file
        my $index_content = YAML <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	4319	4432	
==>ave 2147483648 and 2147483648
        # that stringify to the same thing but are acutally numerically
        # di <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	706	796	
==>Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-0 <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	706	796	
==>Lazy to Perl6::Container::Array
* Removed fetch_slice() because it is non-standard.

2005-0 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	668	794	
==>ope";
}

sub new_pad {
    my $self = shift;
    
    my $name = shift;
    my $val = shift;

    my $pad = Blondie::Reducer::D <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	6645	6761	
==>h = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{pri <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	6657	6773	
==>h = grammar1::rule->( $_[0] );
    my $flags = $_[1];
    print "ast:\n", Dumper( $match->{capture} ) if $flags->{pri <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	933	1052	
==>ng(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapp <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4411	4530	
==>ng(Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	1282	1386	
==>le(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	1282	1386	
==>le(bar => '((.).).');
  # or
  Foo->grammar->add_rule(bar => '((.).).');
  
  my $match = Foo->bar->match <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	12108	12319	
==>le} = _dubious_return(\%test, \%tot, 
                                                       $estatus, $wstatus);
                $failedtests{$tfile}{name} = $tfile;
            }
            elsif($results{seen <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	30424	30514	
==>alias named C<select>.

=item C<project_all_but (Set of Str $attrs!) returns Relation::Exam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	24928	25055	
==>ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21349	21476	
==>ifthen| ifthen_atom >;

    if (${&Rx} =~ m{ \G ( (?: <? [!=] | \{ ) ) }xgc) {
      my $n = "$c$1";
      return $S->$n if $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10943	11083	
==>build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    ' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10943	11083	
==>build_node_tree(
        [ 'function', { 'name' => 'get_person' }, [
            [ 'routine_arg', { 'name' => 'result',
                    ' <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4194	4321	
==>$match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making n <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4194	4321	
==>$match.pos;
            if $mp.pos == $map.pos {   # XXX Not medium-independent!
                # inside a quantifier, making n <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2770	2889	
==>ug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ fo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2770	2889	
==>ug_raw;
    $hdl.print("$msg\13\10");
    $hdl.flush();
  };

  # Thin wrapper around $queue<enqueue>.
  # (Perl 6)++ fo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	14	120	
==>.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUE <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	14	120	
==>.1;
use v6;

## set up all the globals (which will eventually be object attributes)

my %PARAMS;

my $REQUE <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35362	35470	
==>ethod returns all Set Names elements in this object as an array ref.

=item C<get_member_names()>

This metho <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35362	35470	
==>ethod returns all Set Names elements in this object as an array ref.

=item C<get_member_names()>

This metho <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	243	356	
==>ted

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_st <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	243	356	
==>ted

sub Config::Tiny::new () returns Ref {
    my %self;
    my %methods = (
        'err_str' => { %self<_err_st <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	9327	9460	
==>x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	9327	9460	
==>x) { $x < 0   ??  0 !!    Inf },
        complement_previous => sub ($x) { $x > 0   ??  0 !!   -Inf },
        universe => $universe ) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	192	299	
==>tasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule u <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	192	299	
==>tasyntax()
sub call_subrule {
    my ( $subrule, $tab, @param ) = @_;
    $subrule = "\$_[4]->" . $subrule u <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	6649	6768	
==>d_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	6649	6768	
==>d_of_string() \n" 
        if $str eq '$';
    die "'$str' not implemented";
}
sub constant {
    my $char = $_[0] eq '\ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4521	4679	
==>d file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4743	4901	
==>d file - do not edit!\n";
        print << "...";
##################((( 32-bit Checksum Validator )))##################
BEGIN { use 5.006; local (*F, \$/); (\$ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	762	1066	
==>uffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	762	1066	
==>uffer ~= "<PRE>\n" 
                }                                                                                                                                      
            }
        },
        end_element => -> ($event_type, @args) { 
            given $event_type {
                when 'head <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Expression.pm	3845	3972	
==>mar::Operator->parse( $match, { p => 1 } );
            last if ( $m );
            $m = Pugs::Grammar::Term->parse( $match, { p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	32646	32770	
==>it is
I<imperative> you use the method to access the attribute when I<outside>
the class, and it's a good idea to do so I<ins <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16315	16425	
==>lf;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floo <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16315	16425	
==>lf;
}

# Definition of queue "class"
sub new_queue(Bool $floodcontrol = 0) {
  my @queue;

  my $bucket = $floo <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	30262	30362	
==>ts()

Clean up how the summary is printed.  Get rid of those damned formats.

=head1 BUGS

HARNESS_CO <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	672	816	
==>$dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$ <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	672	816	
==>$dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless $class ~~ m:P5/^$ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	7988	8086	
==>spans.

The problem this class solves is when you need do perform "set" operations on 
Span objects <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	7988	8086	
==>spans.

The problem this class solves is when you need do perform "set" operations on 
Span objects <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter1/MyApp/L/Homer.pm	590	703	
==>> q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

m <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/examples/inverter2/MyApp/L/Homer.pm	590	703	
==>> q["<GIVEN_VALUE>" isn't a county thingy!],
    'MYLIB_MYINV_RES_INF' => q[Don't you give me a big donut!],
);

m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	609	722	
==>match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	609	722	
==>match}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1577	1683	
==>1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/M <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1577	1683	
==>1 SYNOPSIS

    use Module::Pluggable::Fast;

    my $p = Module::Pluggable::Fast.new;
    $p.search = qw/M <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	14178	14303	
==>is pointless;
      # bounded quantifier (but not ?) on a
      # zero-width assertion is unexpected
      if (
        ($tree <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2076	2168	
==>meron for his "Perl Style Regular Expressions in Prolog".
    http://www.cs.sfu.ca/people/Fac <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	325	435	
==>$wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	325	435	
==>$wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	23406	23507	
==>$argl},-value => [$argl]))";
}
sub p6_catch_return_CODE {
    my($code)=@_;
    '(try { '.$code.' } ca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/AST/Expression.pm	369	563	
==>';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/AST/Expression.pm	369	563	
==>';
    for ( keys %h ) {
        $h{$_} = $h{$_}->();
    }
    my @a = @$match;
    if ( @a ) {
        $a = shift @a;
        for ( @$a ) {
            $_ = $self->operator( $_ );
            $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27082	27184	
==>O_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27082	27184	
==>O_GOT_NO_ARGS' );
    my Locale::KeyedText::Message $message2 .= new(
        msg_key => 'TABLE_COL_NO_ <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5958	6064	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5958	6064	
==>turns Tree {
    (!$self.is_root()) 
        || die "Insufficient Arguments : cannot get siblings to a ROOT <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	1440	1568	
==>:Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $ <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	1440	1568	
==>:Find - Traverse a directory tree

=head1 SYNOPSIS

    use File::Find;

    my $f = File::Find.new;
    $f.wanted_file = sub ( $ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13840	13973	
==>*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13840	13973	
==>*?([0-9a-fA-F]{40}).*!$1!s or die;
        $digest_map->{$match}
    /xmeg;

    return $source;
}

# Fold a heredoc's content but don <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5097	5232	
==>$x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5097	5232	
==>$x );
        return $result if $result != Inf;
    }
    return Inf;
}

method previous ( $x ) { 
    # TODO - simplify this 
    my @a <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10500	10647	
==>Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>) <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10500	10647	
==>Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.new(:node<2>).add_children(
          Tree.new(:node<2.1>) <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18280	18378	
==>y the address (URI) of the document from which the
requested resource address was obtained.

The "F <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18280	18378	
==>y the address (URI) of the document from which the
requested resource address was obtained.

The "F <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	256	363	
==>my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        IN <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	256	363	
==>my @mm_args = @_;
    @mm_args = handle_inline(@mm_args);
    ExtUtils::MakeMaker::WriteMakefile(
        IN <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11377	11490	
==>rn;

  # control character
  $self->add_handler('\c' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G (.?) }xgc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1642	1782	
==>able',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebD <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1642	1782	
==>able',
        504 => 'Gateway Timeout',
        505 => 'HTTP Version Not Supported',
        507 => 'Insufficient Storage'            # WebD <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	186	291	
==>ue::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() a <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	186	291	
==>ue::List out of the Array package

=cut

# TODO - sync with Perl5 version:
# * Separate from_num_range() a <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1086	1215	
==>ndef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -I <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1086	1215	
==>ndef;
}

method is_empty ($self: ) {
    return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -I <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5447	5566	
==>$value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $value->i <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5732	5851	
==>$value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) && $value->i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7298	7430	
==>,"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7310	7442	
==>,"\n";
    return $code;
}
sub emit_rule {
    my $n = $_[0];
    my $tab = $_[1] || '    '; 
    $tab .= '  ';
    local $Data::Dump <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7887	7998	
==>g blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind o <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7887	7998	
==>g blocks and determine which compilers to call to reduce
# the problem.
#
# XXX This routine must do some kind o <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	7880	8013	
==>rule {
    return emit($_[0]);
}
sub node::macro {
    
            #print Dumper( get_data( $v, "\$()" ) );

            # implementa <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Gregorian.pm	2286	2387	
==>nd - int($.second) ) * 1e6);
}
method millisecond returns Int {
    int( ($.second - int($.second) ) * <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16015	16116	
==>+/>, which perhaps gets optimized to C</^\s+/>.  The difficulty
rating is so high because of cases lik <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10493	10598	
==>ace::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10493	10598	
==>ace::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and compile <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	3768	3880	
==>ust inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## ------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	3768	3880	
==>ust inserting
# and array of one tree
our &Tree::insert_child ::= &Tree::insert_children;

## ------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	771	894	
==>nchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($c <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	771	894	
==>nchmark running time of Perl 6 code

=head1 SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    use Benchmark;

    @t = timeit($c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3278	3408	
==>gedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3278	3408	
==>gedin");
    # We want to know our username and host, so we /WHO ourselves.
    $self<who>($curnick);
    debug "Logged in to \"$se <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	463	572	
==>q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	463	572	
==>q[<CLASS>.<METH>(): argument <ARG> is not an Array ref,]
           ~ q[ but rather contains '<VAL>'.],
    'L <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1378	1489	
==>itive {
    lc(substr $str, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub ucfirst (Str $str) returns Str is bu <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	24845	24963	
==>Atom> <Quantifier>
}
rule Assertion {  # see 15.10.1
      <'^'>
    | <'$'>
    | <'\\'> <'b'>
    | <'\\'> <'B'>
}
ru <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25398	25499	
==>nted.

=item C<Test returned status %d (wstat %d)>

Scripts that return a non-zero exit status, both C <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p5hacks.pl	20	162	
==>k {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p5hacks.pl	20	162	
==>k {
	my $tab = shift;
	my @s =   @_;
        if (@s && $s[-1] =~ /^#return-block#(.*)/s ) {
            #print "return block\n";
            my <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19765	19866	
==>tem; #XXX - sufficient to "Forces generic Item context"?
}

 
 multi prefix:<:16> ( Str $hexstr = CALL <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	1033	1196	
==>code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $cod <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	1033	1196	
==>code) if $code.defined;
            .message($message) if $message.defined;
        }
        
        $self;
    }
    
    method status_line () {
        my $cod <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	259	387	
==>=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: cu <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	259	387	
==>=caller;
	
	unless %tags {
		my $package=$caller.package;
		$package ~~ s{.*\:\:}{};
		%tags{$package}=1;
	}
	
	@msg = ["Note: cu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8253	8381	
==>rn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8253	8381	
==>rn $x if $x == Inf || $x == -Inf ||
                             $x != &{ $self.closure_next }( &{ $self.closure_previous }( $x ) <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14210	14334	
==>'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.exe <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14210	14334	
==>'person_id', $person_id );
            my Rosetta::Interface::Row $fetched_person = try {
                $fnh_get_person.exe <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9958	10078	
==>lti *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementa <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9958	10078	
==>lti *pop   ( Perl6::Value::List $l ) is export { $l.end   if $l.elems }  

=kwid

= NAME

Perl6::Value::List - implementa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9427	9524	
==><$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=h <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9427	9524	
==><$set2>.

=head2 C<$set1.superset($set2)>

Returns true if C<$set1> is a superset of C<$set2>.

=h <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	724	855	
==>cent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, di <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	724	855	
==>cent
    "Aring"    => 'Å',  # capital A, ring
    "Atilde"   => 'Ã',  # capital A, tilde
    "Auml"     => 'Ä',  # capital A, di <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	7148	7243	
==>b code_for_code_CODE {
    my(%c)=@_;
    my($name,$kind,$params,$body,$lvalue,$class) =
	@c{qw( <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	29001	29093	
==>om the command line,
L<Test> and L<Test::Simple> for writing test scripts, L<Benchmark> for
t <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2251	2355	
==>ize && $other.includes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    retu <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2251	2355	
==>ize && $other.includes($self.members));
}
method proper_subset($self: Set $other) returns Bool {
    retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installable.pm	1067	1171	
==>heck->last_error ), return;

    $self->mk_accessors( qw[repository] );
    
    while( my($acc,$val) = e <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/TestPrograms.pm	152	253	
==>ion;

our @EXPORT = qw/smoke_runtime/;

my @progs = (
	{
		ast => App( Sym('&infix:<+>'), Val(2), Val( <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12205	12302	
==>2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12205	12302	
==>2>

=head2 C<$set1 ≠ $set2>

Returns true if C<$set1> does not equal C<$set2>.

=head2 C<$set1.s <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2145	2268	
==>e encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $ <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2145	2268	
==>e encode(index(@octect[2],0,         0,0,0x3F)); # 3.index
    }

    if (@string == 2) {
      my Int @octect = map { ord $ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9298	9394	
==>in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$as <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9298	9394	
==>in missing entities
for 0 .. 255 -> $ascii_val {
    %char_to_entity{~chr($ascii_val)} //= "&#$as <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	88	201	
==>RT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	88	201	
==>RT_OK $VERSION);
# .. we won't need these

# @EXPORT = qw(get head getprint getstore mirror);
# @EXPORT_OK = qw($u <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	10963	11063	
==>Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11021	11121	
==>Str :$depends) returns Bool`

- `isnt (Str $got, Str $expected, Str $desc?, Bool :$todo, Str :$depend <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14433	14579	
==>hod topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14433	14579	
==>hod topic(Str $channel, Str $topic?) {
    if defined $topic {
      ./:enqueue("TOPIC $channel :$topic");
    } else {
      ./:enqueue("TOPIC $ch <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	0	94	
==>package Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warning <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	0	94	
==>package Pugs::Runtime::Rule;

# pX/Common/iterator_engine.pl - fglock
#
use strict;
use warning <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5064	5160	
==>g::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config f <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5064	5160	
==>g::Tiny::new> 
constructor.

=over 4

=item read ($filename)

The C<read> method reads a config f <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	7078	7187	
==>d by 
a block cipher mode role to add some information to the output.

A default implementation of this method <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	7078	7187	
==>d by 
a block cipher mode role to add some information to the output.

A default implementation of this method <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3406	3558	
==>::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3406	3558	
==>::Runtime::Match';
            ### 1st match: $matches[0]
            return $_[3] = $matches[0] 
                if $matches[0]{abort};
            if ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13808	13953	
==>s => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'E <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13808	13953	
==>s => ['Eng', 'Fr', 'De', 'Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'E <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	2720	2867	
==>t( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2913	3060	
==>t( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_block = sub { return { perl5_ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9966	10070	
==>rns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9966	10070	
==>rns Str {
    return stringify($self.finish());
}

multi method cipher(Cipher $self: Array $data) returns <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6695	6893	
==>tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @pa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6695	6893	
==>tmp = @v;
    
    for @tmp -> $k, $v {
        if ($k.lc() eq "boundary") {
            $boundary = $v;
            $boundary_index = @v - @tmp - 1;
            last;
        }
    }
    
    my @pa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21415	21513	
==>KMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	44322	44420	
==>KMETH')->do(list->new($e->get('&dispatcher'), symbol->new('DESTROY'))));
                block->new <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19851	19952	
==>e this organization partly by how Mac OS X manages its
resources.  It is the standard practice for Mac <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19851	19952	
==>e this organization partly by how Mac OS X manages its
resources.  It is the standard practice for Mac <==
2	/Users/nnunley/pugs/util/run-smoke.pl	188	282	
==>ailed = 0;
for (qw/YAML Test::TAP::Model Test::TAP::HTMLMatrix Best/) {
    check_prereq($_) or <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	8116	8206	
==>Literal> <'.'> <DecimalDigits>? <ExponentPart>?
    | <'.'> <DecimalDigits> <ExponentPart>? <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20551	20655	
==>rs. After all the compilers have finished, the digest lines will
be expanded again.

Every bit of the def <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20551	20655	
==>rs. After all the compilers have finished, the digest lines will
be expanded again.

Every bit of the def <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1602	1741	
==>path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1602	1741	
==>path, @path[$i]);
        }
        else {
            push(@new_path, @path[$i] ~ "\\");
        }
    }
    return canonpath(join('', @new <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1146	1256	
==>y doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'. <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1146	1256	
==>y doing a 'splat()' first. 
  Array::Lazy::reverse() is still supported.

2005-08-07
* Lazy Range supports 'a'. <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5223	5332	
==>ed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5223	5332	
==>ed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child.is_leaf();    
    # return <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	1382	1504	
==>m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $ <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	1382	1504	
==>m:P5/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
    my Str $method = $0 || '';
    my Str $uri    = $1 || '';
    my Str $proto  = $ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	4072	4171	
==>erface %*INC, instead of this hack.
    # %*INC<fatal> = { filename => "fatal", resname => "<precomp <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6798	6919	
==>fix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6798	6919	
==>fix( $match->() );
    print Dumper $match->();
}

{
    # TODO - remove 'null statements'
    my $match = $grammar->parse <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6009	6132	
==>const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6202	6325	
==>const_escaped_char'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'escaped_char', \&{'grammar1::escaped_char <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9417	9524	
==>b decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9417	9524	
==>b decode_entities($string is rw) is export
{
    my $result = $string;
    
    $result ~~ s:Perl5:g/&\#(\d+ <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	4449	4581	
==>y stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $ <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	4449	4581	
==>y stack for modifiers
    # it helps us track down problems
    my @modifier_stack;
    for (@tokens) -> $token {    
        given $ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	15650	15789	
==>lose:
    parse_error(mob, pos, "Missing close '>' in scalar")
  end:
    mpos = pos
    .return (mob)
.end
    
.sub "parse_error"
    .par <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	3016	3297	
==>'verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0 <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	3016	3297	
==>'verbatim');                        
                    }
                    default {
                        if ($line ne '') {
                            if ($in_list) {
                                %events<end_element>('list');
                                $in_list = 0 <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	20631	20729	
==>e private, so you must use accessor
methods.  Relation does not declare any subroutines or export s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	25183	25281	
==>e private, so you must use accessor
methods.  Relation does not declare any subroutines or export s <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2291	2418	
==>accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, di <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2291	2418	
==>accent
    "aring"    => 'å',  # small a, ring
    "atilde"   => 'ã',  # small a, tilde
    "auml"     => 'ä',  # small a, di <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	12421	12516	
==>}

(method bless ((opaque $class:) (str $canidate) (hash %params)) returns opaque
    ((($canida <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	1501	1754	
==>xample::Heading

###########################################################################
###########################################################################

class Relation::Example::Tuple-0.1.0 {
    does Relation::Tuple;

    # External pac <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	3601	3709	
==>($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby) <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	3601	3709	
==>($member);
}

# Subs to make operations on arrays
# E.g. [1,2,3] +# [2,5]  ==>  [1,2,3,5]
# (Similar to Ruby) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7402	7508	
==>ike 'literal'.



Higher order operators take a list of match operators, and return a new 

match operator. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7151	7254	
==>ike 'literal'.

Higher order operators take a list of match operators, and return a new 
match operator. <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8787	8916	
==>hod values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8787	8916	
==>hod values ( $array: ) { 
        $array
    }

    method zip ( $array: Array @list ) { 
        # TODO: implement zip parameters <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	105	199	
==>e Pugs::Grammar::Base;  # not 'use base'
use Pugs::Grammar::Rule;
use Pugs::Runtime::Match;
use <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6618	6727	
==>::Grammar::Match) contain:



### Match actually contain getters for $() and such

### getters need to know wh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6396	6502	
==>::Grammar::Match) contain:

### Match actually contain getters for $() and such
### getters need to know wh <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	19065	19164	
==>te ranging
over more than one argument"), which is also the basis of the relational
data model propo <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	22715	22814	
==>te ranging over more than one
argument"), which is also the basis of the relational data model propo <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	21213	21321	
==>not need to have the compilers installed
themselves. So you don't need to make the compiler modules be
prereq <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	21213	21321	
==>not need to have the compilers installed
themselves. So you don't need to make the compiler modules be
prereq <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2233	2345	
==>open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^ <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2233	2345	
==>open '$module_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^ <==
2	/Users/nnunley/pugs/examples/concurrency/stm-retry-with.pl	46	217	
==>sync {
    say "Thread 1 started";
    atomically {
        $a > 5 or retry;
        $a = -1000;
        $still_running--;
    }
    say 'Thread 1 finished: $a is >5 and re <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	307	434	
==>nfix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	307	434	
==>nfix:<+> (Set $one, Set $two) {
    $one.union($two);
}

# subtraction is difference
multi sub *infix:<-> (Set $one, Set $two) { <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1125	1234	
==>t;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;

    $args- <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2016	2124	
==>t;
    die "&Makefile->write() takes no arguments\n" if @_;

    my $args = $self->makemaker_args;
    $args- <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	3135	3264	
==>{
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	3135	3264	
==>{
    $inside++;
    $servername     = $event<server>;
    $curnick        = $event<to>;
    $in_login_phase = 0;
    $self<handle <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10434	10526	
==>%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
met <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10434	10526	
==>%options, :mode<enciphering>);
    return $self.cipher($plaintext) ~ $self.finishstr();
}
met <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5713	5834	
==>t }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

method <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5713	5834	
==>t }( -$x ) },
        universe =>            $set.get_universe,
    );
}

# --------- scalar functions -----------

method <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	3676	4060	
==>uld use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $star <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	3676	4060	
==>uld use modulus, etc.
                                    $end -= $step
                                }
                                else {
                                    $end--
                                };
                                return $r;
                            },
                    celems =>  sub {
                                return $end - $star <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	563	664	
==>> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *inf <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	563	664	
==>> (Set $one, Set $two) {
    $one.difference($two);
}

# multiplication is intersection
multi sub *inf <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13276	13373	
==>osoft systems.

  The implementation reaches into perlguts, which limits the range of
  perl versi <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	3077	3200	
==>_conjunction(X), p6_alternatives(union(W,X), Z), !.
p6_alternatives(W, W) --> {true}.

p6_conjunctions(W, Z) --> "&", p6_con <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	8512	8609	
==>it:

  $parser->parse;

This is not necessary, though, because the following methods will
invoke p <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	2424	2530	
==>g-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	2424	2530	
==>g-Simmons

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	4221	4379	
==>finite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method fro <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	4221	4379	
==>finite => sub { return $start == -Inf || $end == Inf },
                    cis_contiguous => sub { $step == -1 | 1 | undef },
        );
    }

    method fro <==
2	/Users/nnunley/pugs/inc/Module/Install/Compiler.pm	682	830	
==>join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Compiler.pm	583	731	
==>join ' ', map { "-L$_" } @_
    );
}

sub cc_lib_links {
    my $self = shift;
    $self->makemaker_args(
        LIBS => join ' ', $self->makemaker_ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16141	16240	
==>on may handle it internally, while another one displays it to the
user instead.

Locale::KeyedText p <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16141	16240	
==>on may handle it internally, while another one displays it to the
user instead.

Locale::KeyedText p <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	972	1112	
==>age => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	972	1112	
==>age => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate { }

sub <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1934	2150	
==>art_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:p <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1934	2150	
==>art_element>('item');
                        interpolate($1, %events);
                        %events<end_element>('item');                     
                    }                   
                    when rx:p <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9838	9930	
==>d2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> wh <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9838	9930	
==>d2 C<$set1.intersection($set2)>

Returns a new set containing all the elements of C<$set1> wh <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	3259	3379	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => " <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	1109	1229	
==>b {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\f", '\f') if $cc;
    return $S->object(exact => " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12072	12227	
==>er_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12072	12227	
==>er_words(@h);
            });
            take "";
        }).join("\n");
    }
    
    ## Class methods
    # these may also be called on an instance, but <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12152	12261	
==>^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12152	12261	
==>^:([^ ]+) (\d+) ([^ ]+) ?(.*)$/) {
        $self<handle_numeric>($line, $0, $1, $2, $3);
      } elsif($line ~ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2073	2179	
==>hod Array::delete (@array : *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @arra <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	7670	7845	
==>T_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_pa <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	7670	7845	
==>T_LENGTH);
                unpack_params($content) if $content;
            }
        }
        elsif (@*ARGS) {
            my $input = join('', @*ARGS);
            unpack_pa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16783	16902	
==>RC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircnam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16783	16902	
==>RC::OO $bot .= new(
    nick     => "blechbot",
    username => "blech",      # (optional, defaults to $nick)
    ircnam <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	18580	18695	
==>ompilation and execution) to
parasitize the regexp struct - attempting to make it look sufficiently
like what the co <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	2870	2985	
==>ompilation and execution) to
parasitize the regexp struct - attempting to make it look sufficiently
like what the co <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	6769	6903	
==>_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some po <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	6769	6903	
==>_base ne '') {
        # take a copy of our args here, maybe
        # replace this with 'is copy' parameter
        # trait at some po <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	5910	6050	
==>nside that.  Sort versions from highest to lowest.

            my @ghc_choices = sort {
                _normalize_version($b) cmp _normaliz <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2174	2270	
==>m and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< ident <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2174	2270	
==>m and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< ident <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	1073	1212	
==>xec(@args[0], Bool::True, @args);
    }
    multi sub exec($string) returns Bool is builtin is primitive is unsafe {
        # say "e:string <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	21405	21502	
==>t>
    | <'for'> <'('> <LeftHandSideExpression> <'in'> <Expression> <')'> <Statement>
    | <'for' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	50077	50246	
==>e->get('?$authority')
                  ->is_not_nil
                  ->and(block->new($e, sub {
                      my $e = shift;
                      $e->get('$sel <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5138	5264	
==>SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5138	5264	
==>SELF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	7102	7190	
==>}\[\]\(\)\^\$\.\|\*\+\?\#\\").
p6_metachar(C) --> [C], {isP6metacharacter(C)}.

p5_matchr <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11889	12018	
==>xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11883	12012	
==>xdigit
);
}

sub metasyntax {
    # <cmd>
    my $cmd = $_[0];   
    my $prefix = substr( $cmd, 0, 1 );
    if ( $prefix eq '@' ) <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13139	13237	
==>etimes a test is broken because something is not implemented yet. So
in order to still allow that t <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13197	13295	
==>etimes a test is broken because something is not implemented yet. So
in order to still allow that t <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	375	478	
==>args{help}   ||= "";

  $args{help} =~ s/# (.*)$/# @{[BOLD . WHITE]}$1@{[RESET]}/m;

  printf STDERR "%s <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	2332	2442	
==>elf) = @_;
  return $self->{errnum};
}


sub error {
  my ($self, $enum, $err, @args) = @_;
  $err .= "; marked <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	188	322	
==>S];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	188	322	
==>S];
    
    our Bool $.PARSE_ARGV = Bool::False;
    
    has $.method;
    has $.uri;
    has $.query_string;
    
    has $.remote_h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/opp.pl	984	1165	
==>er' ) {
                splice( @{$self->{levels}}, $_+1, 0, [ $opt ] );                
            }
            elsif ( $opt->{precedence} eq 'equal' ) {
                push @{$s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4777	4889	
==>left->elems->to_native) {
        # warn "calling equal_to on " . $left->fetch($i)->name->to_native . ' => ' . $l <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1381	1515	
==>unter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_test <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	1365	1493	
==>unter";
}

module Test-0.0.6;
$Test::ALWAYS_CALLER = %ENV<TEST_ALWAYS_CALLER>;
$Test::num_of_tests_run    = 0;
$Test::num_of_test <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	5218	5305	
==>open => $(), } }
RULE
*{'_print_with_fh'} = Pugs::Compiler::Rule->compile(<<'RULE')->cod <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Token.pm	0	105	
==>package Pugs::Compiler::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Token.pm	0	105	
==>package Pugs::Compiler::Token;

# Version in Pugs::Compiler::Rule
# Documentation in the __END__
use 5.006 <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2725	2925	
==>ine = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2725	2925	
==>ine = $fh.readline;
                        while (defined($_line)             && 
                              !($_line ~~ rx:P5{^$})  && 
                                $_line ~~ rx:P5{^\s(.*?)$} ) <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	5018	5163	
==>'this'>
    | <'with'>
    | <'default'>
    | <'if'>
    | <'throw'>
    | <'delete'>
    | <'in'>
    | <'try'>
    | <'do'>
    | <'instanceof' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4918	5054	
==>eq 'class' ? ';use Moose' : '' ) .
                ";use Exporter 'import';our \@EXPORT";
        }

        if ( $n->{sub}{bareword} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	91	192	
==>xme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	91	192	
==>xme - this is an abstract class, but I'm not sure how to
# specify/enforce that.

method dom_fields($s <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32494	32590	
==>xt::Translator Class

While a Translator object stores some attributes for configuration, its
mai <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32494	32590	
==>xt::Translator Class

While a Translator object stores some attributes for configuration, its
mai <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21334	21430	
==>it("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
so <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21334	21430	
==>it("reason")>

Quits the connection to the server by sending a C</QUIT> command. Note that the
so <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	3309	3406	
==>by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	3309	3406	
==>by the Span class. For a more complete API, see `Span`.

= AUTHOR

Flavio S. Glock, <fglock@gmail. <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	62	169	
==>ON = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spe <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	62	169	
==>ON = '0.01';
use base 'Exporter';
our @EXPORT = qw(WriteMakefile);

use ExtUtils::MakeMaker();
use File::Spe <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	271	381	
==>rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	271	381	
==>rule variable :P5 {^([\$\%\@](?:(?:\:\:)?[_[:alnum:]]+)+)}

rule positional_variable 
              :P5 {^([\$\ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1319	1430	
==>ed_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	1377	1488	
==>ed_perl = $expected.perl;
    my $test := ($got_perl eq $expected_perl);
    Test::proclaim($test, $desc, $todo, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8718	8824	
==>r {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8714	8820	
==>r {
    local $Data::Dumper::Indent = 1;
    my $term = $_[0]->[0]{'term'};
    #print "*** \$term:\n",Dump <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6225	6345	
==>rce_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6283	6403	
==>rce_todo_test_junction, ' '~$Test::num_of_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1826	1931	
==>clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1826	1931	
==>clone ($self:) returns Set::Hash {
    my $set = Set::Hash.new;
    $set.insert($self.members);
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9884	10022	
==>"$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$nam <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	9878	10016	
==>"$_[1] do{ 
$try_match
$_[1]     if ( \$bool ) {
$_[1]       my \$match = $gen_match;
$_[1]       if ( \$quantified ) {
$_[1]         \$nam <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	2884	2985	
==>>add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	915	1016	
==>>add_handler('\e' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_char => "\e", '\e' <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14732	14866	
==>for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/.. <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14732	14866	
==>for {time() - $last_traffic} seconds; disconnecting.";
          $self<disconnect>();
        }
      }
    },

    # JOIN/PART/KICK/.. <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1045	1276	
==>ng = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_el <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1045	1276	
==>ng = 0;
                        %events<end_document>();                    
                    }
                    when rx:perl5{^(=+)\s(.*?)$} {
                        if ($in_list) {
                            %events<end_el <==
2	/Users/nnunley/pugs/util/importgraph.pl	1337	1438	
==>gnore (@ignore) {
    delete $mod->[0]->{$ignore};
  }
}

# setup some predefined clusters
sub setup_m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17896	18041	
==>ub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=ov <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17896	18041	
==>ub_type_value',
                'attributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=ov <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	20	137	
==>:Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	20	137	
==>:Simple-6.00;

use v6;

has Int $.port;
has IO  $.socket;
has IO  $.remote;

submethod BUILD ( :$port ) {
    $.port = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6364	6473	
==>rn $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

meth <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6364	6473	
==>rn $self.start == -Inf || $self.end == Inf;
}

method start ($self: ) {
    return $self.next( -Inf );
}

meth <==
2	/Users/nnunley/pugs/util/src_to_blib.pl	1020	1137	
==>\.|\.\.|\.svn|t)$/;
        my $src_path = "$src/$node";
        my $dest_path = "$dest/$node";
        if (-f $src_pa <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6668	6758	
==>s(C))   --> [C], {isSpacePerl(C)}, !.
p5_elemental(char(C)) --> [C], {\+(p5_metachar([C]))} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	10554	10680	
==>sts %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	10554	10680	
==>sts %subst{$unsafe_chars}) {
        #    # Because we can't compile regex we fake it with a cached sub
        #    my $code = <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	9207	9322	
==>odule_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (S <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	9207	9322	
==>odule_name, 'REASON' => $! } )
        if $!;

    return;
}

method get_template_text_from_loaded_module
        (S <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4867	4986	
==>ded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_enco <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4867	4986	
==>ded ~~ s:perl5:g:i/%([0-7][\dA-F])/{chr(:16($0))}/;
        }
    }
    return $decoded;
}

sub url_encode (Str $to_enco <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4387	4495	
==>);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNO <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4387	4495	
==>);
  $hdl.flush;
  $hdl;
};

=pod

=head1 NAME

LWP::Simple - simple procedural interface to LWP

=head1 SYNO <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5749	5889	
==>y $match = $node->( @param );

        return unless $match->{bool};

        return if $match->{abort};

        my $new_match = { %$match } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5566	5703	
==>y $match = $node->( @param );
        return unless $match->{bool};
        return if $match->{abort};
        my $new_match = { %$match } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10488	10594	
==>nterface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and com <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10488	10594	
==>nterface::Routine $prh_add_person
        = $conn.compile_routine( $prd_add_person );

    # Define and com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3030	3170	
==>ing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3214	3354	
==>ing closure
                    -- perl5 syntax inside closure
                    -- $/ works
 $var := (capture)  -- capture aliasing
 $<> $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2542	2641	
==>presents the query string portion of a requested URI.
It provides the following methods:

=over 8

= <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2542	2641	
==>presents the query string portion of a requested URI.
It provides the following methods:

=over 8

= <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9955	10113	
==>l_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_typ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9955	10113	
==>l_doc.build_node_tree(
        [ 'procedure', { 'name' => 'add_person' }, [
            [ 'routine_arg', { 'name' => 'new_person',
                    'arg_typ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	864	969	
==>rameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	864	969	
==>rameters?
# TODO - document unsupported operations: join, reduce, sort - call fail()
# TODO - check grep() <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5386	5520	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5579	5713	
==>$_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $r <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8510	8612	
==>nt ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8510	8612	
==>nt ('line_interpolation')>

This event is fired when interpolation is complete.

=back

=head2 Modifier <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	6426	6540	
==>self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	6426	6540	
==>self: ) {
    return $self.next( -Inf );
}

method end ($self: ) {
    return $self.previous( Inf );
}

# --------- <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	1865	1962	
==>>p6 regexp syntax converter!  A
#cpan module even. Write methods which return the p6 version of th <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8427	8626	
==>_,
                                            wrap  => !(++$i % $c),
                                             }} @dirs  ]);    
    $template->param(files       => [sort {$a->{file} cmp $b->{file <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1249	1341	
==>m:\\n", "term:", "nows", "PGE::Exp::CCShortcut");
    $optable->addToken("circumfix:[ ]", "te <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	12519	12629	
==>dler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, logge <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	12519	12629	
==>dler{$command} {
      $_($event) for *%!handler{$command};
    }
  }

  # Handle pseudo events (runloop, logge <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15630	15764	
==>n separate lines on VMS.
        # We catch this and remember we saw it.
        if( $line =~ /^not\s+$/ ) {
            $self->{saw_lo <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24307	24408	
==>),C1,amat(C1,G)).
match_captures_nest(amat(_C0,G),amat([],G)).
match_captures_push(amat(C0,G),CL,amat( <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	8176	8270	
==>{
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	8176	8270	
==>{
    my @chans = %users{~normalize($event<from_nick>)}<channels>.keys;
    %channels{$_}<users <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3433	3524	
==>ipts, 80.00% okay. 10/44 subtests failed, 77.27% okay.

Everything passed but F<t/waterloo.t <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1111	1211	
==>::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1111	1211	
==>::($worker_pkg)::catpath( $volume, $directory, $file );
}

sub rel2abs (Str $_path, Str $_base?) retu <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17930	18057	
==>ttributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<expo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17930	18057	
==>ttributes' => { 'value' => 'M' },
            },
        ],
    );

=back

A Node object has these methods:

=over

=item C<expo <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Deprecated.pm	267	364	
==>eep all compiler commands as cc_";
	shift()->cc_files(@_);
}

sub inc_paths {
	warn "inc_paths has <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	11729	11849	
==>dler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	11729	11849	
==>dler found for \"$line\".";
    }
  }

  # Handle numeric commands (e.g. 001 -> welcome)
  my method handle_numeric(Str $ <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10075	10190	
==>self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1 <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10075	10190	
==>self.new( span => $_ ) };

    my @span1 = $span1.complement;
    # say $_.stringify for @span1;
    @span1 = @span1 <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4755	4879	
==>Elig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => c <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4755	4879	
==>Elig"    => chr(338),
    "oelig"    => chr(339),
    "Scaron"   => chr(352),
    "scaron"   => chr(353),
    "Yuml"     => c <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	947	1074	
==>n't distinguish 
between enciphering and deciphering operations.)

Although it is secure when used properly, using it incorrectl <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	947	1074	
==>n't distinguish 
between enciphering and deciphering operations.)

Although it is secure when used properly, using it incorrectl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5352	5472	
==>os, 1
    downcase $S0
    $I1 = index "0123456789abcdef", $S0
    if $I1 < 0 goto term_bx2
    if $I1 >= base goto term_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	2952	3038	
==>(W), p6_alternatives(W, Z).

p6_conjunct(Z) --> p6_concatenation(W), p6_conjunctions(W, <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	9882	9979	
==>multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Va <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	9882	9979	
==>multi *shift ( Perl6::Value::List $l ) is export { $l.start if $l.elems }
multi *pop   ( Perl6::Va <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	12695	12834	
==>ts, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleo <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	12974	13113	
==>ts, \&grammar_name;
*{'_push'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'op', 
             ruleo <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	240	328	
==>------------------------------------------------------
## constructors

submethod BUILD ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	240	328	
==>------------------------------------------------------
## constructors

submethod BUILD ( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10232	10326	
==>,"\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $- <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	10967	11061	
==>,"\n";
print ' $+[0] ',defined($+[0])?"$+[0]":"undef","\n";
print ' $1 ',defined($1)?"\"$1\" $- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4706	4828	
==>hift;

    return sub {

        ### matching constant:$_[0],$const

        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)( <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4559	4678	
==>hift;
    return sub {
        ### matching constant:$_[0],$const
        return if ! $_[0] || $_[0] !~ m/^(\Q$const\E)( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	1890	2051	
==>l =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### altern <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	1890	2051	
==>l =  $_[0];
        my $state = $_[1] ? [ @{$_[1]} ] : [ 0, 0 ];
        $_[3] = {};

        my $match;
        while ( defined $state ) {
            ### altern <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	5447	5547	
==>nter_scope;
		while(@children) {
			my $sub = shift @children;
			if ($sub->struct_equiv->isa("Blondi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	2002	2158	
==>$conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                  and die $?;
        
        
        ### extract the archive to the te <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	3532	3683	
==>$conf->temp_dir . "$$" );
        system( qq[mkdir -p $my_tmp_dir] )                      and die $?;
        
        ### extract the archive to the te <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	2230	2338	
==>l packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	2230	2338	
==>l packages used by the Rosetta::Interface::Command class, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8749	8889	
==>us => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     su <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8749	8889	
==>us => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers = Recurrence.new( 
        closure_next =>     su <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	629	743	
==>Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object: <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	629	743	
==>Example class, that do export symbols:
    # (None Yet)

    # Attributes of every Rosetta::Engine::Example object: <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	93	247	
==>has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.pare <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	93	247	
==>has Str @.names;

    method lookup_pad($name) {
        if grep { $_ ~~ $name }, @.names {
            $?SELF;
        }
        else {
            $.pare <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6820	6928	
==>EMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <K <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6820	6928	
==>EMENTS

This is a port of the Perl 5 File::Spec::Unix module which is currently
maintained by Ken Williams <K <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1195	1314	
==>ONFIG!!!!
            my $file = $inst->files_list( $meta->package );
            open my $fh, $file or die "Could not o <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1931	2049	
==>le, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $cal <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1931	2049	
==>le, $content, $data);
        $class->pmc_output($module, $output);
    };

    $class->pmc_filter($module, $line, $cal <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19181	19276	
==>($self: set_attrs ((symbol new ($_)) (%params fetch ($_)))))
    (nil))

=cut

$::Class->send('a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	23578	23699	
==>);

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	19999	20120	
==>);

  # (?(...)t|f) condition
  $self->add_handler('ifthen(' => sub {
    my ($S) = @_;
    my $c = 'ifthen(';

    push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	579	724	
==>dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	579	724	
==>dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule plain_text {
        <alnum> | \, | \; | \_ | \/ | \~ | \" | \' | \=

        { <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	3439	3532	
==>$expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
} <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	3497	3590	
==>$expected_type);
    Test::proclaim($test, $out, $todo, $ref.ref, $expected_type, $depends);
} <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15512	15607	
==>umeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
whic <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15512	15607	
==>umeric($a);

The module can also export the %char_to_entity and the %entity_to_char hashes,
whic <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3083	3189	
==>, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

meth <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3083	3189	
==>, Span::Num, Span.Int, Object
    my $result = $self.new( spans => $span );
    return $result.set;
}

meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16992	17096	
==>t of the
application in their other language(s) of choice.  Assuming the main
application is written in P <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16992	17096	
==>t of the
application in their other language(s) of choice.  Assuming the main
application is written in P <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	684	801	
==>hing it...\n";

    require File::Basename;
    my $rv = $self->get_file(
        url         => 'http://download.micr <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	583	686	
==>hing it...\n";

	require File::Basename;
	my $rv = $self->get_file(
		url       => 'http://download.micr <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	2284	2389	
==>b> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/or modify <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	2284	2389	
==>b> by Richard Clamp

=head1 LICENSE

This library is free software . You can redistribute it and/or modify <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9112	9242	
==>= shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offse <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9112	9242	
==>= shift;

    my $text = $block->[TEXT];
    my $context = $block->[CONTEXT];
    my @classes = splice(@{$block->[CLASSES]}, $offse <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	1227	1352	
==>_die
       p6_to_perl
       p6_defined
       p6_declare_package
       );
#cat other/api06.pl |perl -wne '/^sub (p6_\S+)/ a <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	706	825	
==>l6->compile( $source );
    my $perl5 = $p6->{perl5};

    # $perl5 =~ s/do\{(.*)\}/$1/s;
    $perl5 = 
        "use Pug <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	4516	4666	
==>erate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[ <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	4516	4666	
==>erate_keystream(Int $n) returns Array {
    return gather {
        for 1..$n {
            ++$.i;
            $.i %= 256;
            ($.j += @.state[ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15281	15393	
==>lass, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Modul <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15281	15393	
==>lass, $digest) = @_;
    return $digest_map->{$digest};
}

1;

__END__

=head1 NAME

Module::Compile - Perl Modul <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6618	6828	
==>ield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'el <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6618	6828	
==>ield;
                        &*push(@ret, &$code($x));
                        yield @ret.pop while @ret;
                        return;
                },
                # TODO - signal end of data using 'el <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15706	15798	
==>item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15706	15798	
==>item $h.if_modified_since

=item $h.if_unmodified_since

These header fields are used to make <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2164	2293	
==>a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2164	2293	
==>a = _get_captures( $_[0] );
    my %r;
    for my $m ( @a ) {
        next unless ref $m && exists $m->{label};
        if ( $m->{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/benchmark.pl	656	784	
==>tr =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/benchmark.pl	753	881	
==>tr =~ /^.{3}d/os)      for 1..4000},
    });
}

{
    print "P6 Rule Benchmark:\n";
    my $str = "abcdefg";
    my $match <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7316	7469	
==>'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$f <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7304	7457	
==>'      ' )
        if ref( $program );
    my $rnd = rand;
    return "$_[1] do{ 
$_[1]     my \$hash = do {
$_[1]       my \$bool = 1;
$_[1]       my \$f <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	860	959	
==>d vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	860	959	
==>d vtype () { '[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compi <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	2820	2966	
==>my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is e <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	2820	2966	
==>my $sep = $0 ?? $0 !! "\\";
        $vol ~= $sep;
    }
    $vol ~= $file;
    return $vol;
}

## Misc

sub canonpath (Str $_path) returns Str is e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	11437	11556	
==>method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Rel <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	14914	15033	
==>method product (Relation *@others) returns Relation {

    if (+@others == 0) {
        return $?SELF;
    }

    my Rel <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	1118	1294	
==>ETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    metho <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	1118	1294	
==>ETCH => { $old; },
            STORE => { $!uri = $^new; $old; }
        );;
    }
    
    multi method uri () {
        $!uri;
    }
    
    our &url ::= &uri;
    
    metho <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2404	2533	
==>",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub n <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2404	2533	
==>",\n      ",map -> $n,$t { "\$.{$n}.vtype, '$t'" }, @fields) ~");"
          ~"\n    }");
    $code ~= "\n}\n";
    $code;
}
sub n <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	658	757	
==>tput( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $e <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	658	757	
==>tput( $code );
  ok( chomp($pilresult) ne 'nil', $description );
}

sub pil_is_eq( Str $code, Str $e <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	99	190	
==>-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::L <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	99	190	
==>-08-10
* New methods List.flatten(), is_lazy(), from_coro( $sub )
* Factored Perl6::Value::L <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11861	11968	
==>$args{stdin} . q{)" | } . $runperl;
	}
	elsif ($is_macos) {
	    # MacOS can only do two processes under MPW <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	530	641	
==>.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# rem <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	530	641	
==>.values !! ();
}

# NOTE:
# this is a hack to make this work well
# with objects. Eventually it should be 
# rem <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	2856	2977	
==>ave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	2856	2977	
==>ave"   => 'ì',  # small i, grave accent
    "iuml"     => 'ï',  # small i, dieresis or umlaut mark
    "ntilde"   => 'ñ <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	23223	23370	
==>" x ($list_len - 1) . "\n"
              . '$Curtest->{canon}'
              . "\n.\n";

    eval $fmt_top;
    die $@ if $@;
    eval $fmt;
    die <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9508	9648	
==>$tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    return "$_[1] ruleop::alternation( [\n" . 
           join( '', @s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25149	25251	
==>t holders
of Rosetta give you permission to link Rosetta with other free software
components, as define <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25149	25251	
==>t holders
of Rosetta give you permission to link Rosetta with other free software
components, as define <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9143	9250	
==>y no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current implementati <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8843	8946	
==>y no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current implementati <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	3904	4086	
==>dex] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	3904	4086	
==>dex] )\n";
            
            my $code = 
            "    sub { 
                #print \"Runtime Variable args[\", join(\",\",\@_) ,\"] \$_[7][$index]\\n\";
                re <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3219	3332	
==>od BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3219	3332	
==>od BUILD () {
        type_check $.head.vtype, 'Stmt',  $.tail.vtype, '[Stmt]';
    }
    method vtype () { '[Stmt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	5611	5720	
==>andled by the lexer
        #q(<) => Pugs::Compiler::Regex->compile( q(
        #    <Pugs::Grammar::Term.angl <==
2	/Users/nnunley/pugs/examples/naive_bayesian/run.pl	199	291	
==>em("perl naive_bayesian.p5 add apples apples");
    system("perl naive_bayesian.p5 add orange <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2146	2237	
==>mar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2235	2326	
==>mar::Rule> parses the Rules syntax.

=item * L<Pugs::Grammar::Rule::Rule> specifies the Rule <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	4974	5125	
==>ach %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	4833	4984	
==>ach %$value ) {
                $self->can($key)->($self, $module => $version );
            }
        }
        else {
            $self->can($key)->($ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	310	482	
==>f ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	310	482	
==>f ($str ~~ s/^(.*)\n//) {
            $request_line = $0;
        } else {
            $request_line = $str;
            $str = "";
        }
        
        my $self = ../ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2953	3213	
==>= (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quan <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	3200	3460	
==>= (
        [ 
            [ \?\? ] |
            [ \*\? ] |
            [ \+\? ] |
            \?       |
            \*       |
            \+
        ]?
    )
    $<ws3>   := (<?ws>?)
    
    { return {  
            term  => $_[0]{term}(),
            quan <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	551	800	
==>Note: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	551	800	
==>Note: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

c <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16065	16171	
==>supported.

  regnode program[1];     /* Unwarranted chumminess with compiler. */

I don't know.

Internals <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	15500	15597	
==>xpected scalar) if given no arguments.
#

sub _fresh_perl {
    my($prog, $resolve, $runperl_args, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	14219	14348	
==>from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        M <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	14219	14348	
==>from the user.
        my Num ($first, $second) = =$*IN;

        # Print a statement giving the operands and their sum.
        M <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29329	29449	
==>" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MY <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29329	29449	
==>" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELLO' => q[Bienvenue allé MyApp.],
        'MY <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3917	4014	
==>encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3917	4014	
==>encoding utf8

=head1 NAME

Rosetta -
Rigorous database portability

=head1 VERSION

This document <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	414	560	
==>} else {
        $str;
    }
}

sub chop (Str $str is rw) returns Str is builtin is primitive {
    if chars($str) == 0 {
        undef;
    } else <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	2082	2187	
==>::delete (@array : *@indices --> List )
{
    my @ret;
    for @indicies -> $k {
	push(@ret, @array._delet <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	35182	35276	
==>eturns Relation>

This multi-method is a generic binary relational operator that is identical
t <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39732	39826	
==>eturns Relation>

This multi-method is a generic binary relational operator that is identical
t <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	6134	6236	
==>arse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	6134	6236	
==>arse($content);
    } elsif ($content_type ~~ m,message/,) {
        @!parts = HTTP::Message.parse($sel <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2605	2700	
==>> $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2605	2700	
==>> $/[0]() ,} } ]
) )->code;
eval $statement->emit_grammar_perl5();
#print "statement grammar: ", <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	22004	22124	
==>ere and don't touch it.
Perl_re_dup knows a lot about it.


 #ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If no <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16906	17025	
==>ere and don't touch it.
Perl_re_dup knows a lot about it.


#ifdef PERL_COPY_ON_WRITE
  SV *saved_copy;         /* If no <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	9145	9281	
==>" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^afte <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	9145	9281	
==>" is handled in a separate rule, because it requires compilation
        # if ( $cmd =~ /^before\s+(.*)/s ) {
        if ( $cmd =~ /^afte <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6863	6987	
==>d title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $sel <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6863	6987	
==>d title ($self: )                     is rw { $self.header("Title") }
method content_encoding ($self: )          is rw { $sel <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	5984	6111	
==>parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($match, &con <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	5984	6111	
==>parse => sub ($match, &continue) {
            &continue($match.clone(
                backtrack => -> { $p.parse()($match, &con <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12463	12579	
==>class implements both types of spans.

- Discrete span

This is used to represent ranges of things that can be counte <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12463	12579	
==>class implements both types of spans.

- Discrete span

This is used to represent ranges of things that can be counte <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3894	3987	
==>is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3894	3987	
==>is rw)>
=item B<pod2pod (IO $fh)>

Returns a hash of event handlers for L<Pod::Event::Parser>. <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	240	364	
==>ent;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    m <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	240	364	
==>ent;
}

method dom_fields($self:) {
    $self.SUPER::dom_fields, qw(content);
}

method dom_attr($self:) returns Hash {
    m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9883	9981	
==>de::non_capturing_subrule( 'any', $_[1] );
    # return "$_[1] \\&{'${namespace}any'}\n";
}
sub nod <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9663	9777	
==>ight = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues wi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9663	9777	
==>ight = $max_height + 1;
    # now we need to bubble up through the parents 
    # in order to rectify any issues wi <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	5711	5854	
==>rnary:<?? !!>'),
                    Sym->new('$cond'),
                    Sym->new('$left_thunk'),
                    Sym->new('$right_thunk' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	350	474	
==>d_rule( %opt,
        fixity => 'prefix', 
        assoc => 'non',
    );
    $self->Pugs::Grammar::Operator::add_rule( %opt, <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3219	3352	
==>rs($self)->{'%:methods'}->{$label};
        },
        'has_method' => sub ($$) {
            my ($self, $label) = @_;
            exi <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	41094	41193	
==>al error.

=back

=head1 SEE ALSO

L<Regexp::Parser>, L<Regexp::Parser::Objects>.

=head1 AUTHOR

Je <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1869	1984	
==>abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1869	1984	
==>abcdefghijklmnopqrstuvwxyz".split('');

has byte %.table;

submethod BUILD(int $shift = 13, $.all?, $mode?) {
    if <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11583	11675	
==>compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-s <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11641	11733	
==>compare `$got` and `$expected` using `&compare_func`. This will
eventually allow Test::More-s <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	4800	4961	
==>@!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	4800	4961	
==>@!parts = @new;
            $self!stale_content;
            
            return @old if want.List;
            return @old[0];
        });
}

method add_part ($s <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10600	10739	
==>2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10600	10739	
==>2>).add_children(
          Tree.new(:node<2.1>).add_children(
              Tree.new(:node<2.1.1>).add_children(
                  Tree.new <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9227	9323	
==>C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9227	9323	
==>C<$set1> and C<$set2> have the same size.

=head2 C<$set1.not_equal($set2)>

Returns true if C<$s <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2045	2195	
==>_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_p <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2045	2195	
==>_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs(
                "$sym(".join(',', @args).")"
            );
        }
    }
}

sub init_p <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13360	13485	
==>srange = 0
    $I2 = ord charlist, -1
    $I0 = ord $S0
  addrange_1:
    inc $I2
    if $I2 > $I0 goto scan
    $S1 = chr $I2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	8865	8970	
==>\\0$1");
    }

    $S->warn(0, "Illegal octal digit '%s' ignored", substr(${&Rx}, &RxPOS, 1));
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	10443	10579	
==>br->{zerolen} &&= $_->{zerolen};
      }
      push @{ $br->{data} }, [];
      $rx->{tree} = $br->{data}[-1];
    }

    # if this is th <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	6613	6776	
==>i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5117	5280	
==>i-$size_change];
            $i++;
        }
        # +@array = $size + $size_change;
        #   doesnt exist yet, so...
        my $n = 0;
        while $n-- > $ <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1979	2104	
==>Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1979	2104	
==>Data::Dumper::Terse = 1;
            my @args = map { $self->quote_pugs(Dumper($_)).'.eval' } @_;
            $self->eval_pugs <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	14013	14115	
==>ords {  # see 11.2
      <AssignmentExpression>
    | <ArgumentList> <','> <AssignmentExpression>
}
rul <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10703	10804	
==>? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText:: <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10703	10804	
==>? is ref = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText:: <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	2747	2886	
==>=> [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	2747	2886	
==>=> [@items] ); 
}

method _shift_n (Int $length ) returns List {
    my @ret;
    my @tmp = @.items;
    if $length == Inf {
        @.items <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	25346	25448	
==>opy and distribute
such a system following the terms of the GPL for Rosetta and the licenses
of the oth <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	25346	25448	
==>opy and distribute
such a system following the terms of the GPL for Rosetta and the licenses
of the oth <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	795	940	
==>n't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	795	940	
==>n't print ".."
    if @end[0] == any( @start ) {
        push @start, @end;
        return @start.uniq.join(',');
    }
    shift @end;
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7998	8094	
==>object(anyof_char_comp => "\0", "\\X[0]") if $cc;
    return $S->object(exact_comp => "\0", "\\X[ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3389	3486	
==>te::Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: Set: <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3389	3486	
==>te::Functional {
    return $self.intersection( $span.complement );
}

method compare ($self: Set: <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8723	8834	
==>et.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # v <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8723	8834	
==>et.remove(23);

  my @members = $set.members;

  # various common set operations
  my $set2 = set(1..10);

  # v <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26569	26668	
==>r method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Loc <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26569	26668	
==>r method:

=over

=item C<new( :$msg_key!, :%msg_vars? )>

This method creates and returns a new Loc <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	2623	2779	
==>( Num $seed)
 {
     Pugs::Internals::srand($seed);
 }


 multi  Num::sqrt (  Num  $x             --> Num )
 {
     Math::Basic::sqrt($x);
 }
 multi Math::Ba <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2266	2371	
==>est one that allows 
for continuous ciphering.

Both of these functions return a closure.  Call the closur <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2266	2371	
==>est one that allows 
for continuous ciphering.

Both of these functions return a closure.  Call the closur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23894	24044	
==>} }, qw< c) atom >;
  }

  for (split //, $on) {
    if (my $h = $S->can("FLAG_$_")) {
      my $v = $h->(1);       # 1 means this is 'on'
      if ($v <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16280	16376	
==>e => sub { p6_perl6_objects_from_whatever(${$_[0]}) },
      perl5_object => sub { $as_p6obj_comp <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5450	5551	
==>of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5508	5609	
==>of_tests_run, $reason // "", :$depends);
}

sub pass (Str $desc?) returns Bool is export {
    Test::p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	18956	19089	
==>r->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	20314	20447	
==>r->{data} = [ $ifthen->{data} ];
      }

      $ifthen->{data} = [ $cond, $br ];
      $ifthen->{zerolen} =
        !grep !(grep $_-> <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	24982	25087	
==>er components is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	24982	25087	
==>er components is making a
combined work based on Rosetta.  Thus, the terms and conditions of the GPL
cover <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	993	1106	
==>> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.no <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	993	1106	
==>> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:<≠> (Set $one, Set $two) {
#    $one.no <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	59	203	
==>escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- m <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	59	203	
==>escapes;
    
    for 0..255 -> $char {
        %escapes{chr($char)} = $char.as('%%%02X');
    }
    
    # XXX need to handle the Rule case -- m <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	461	556	
==>asic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!par <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	461	556	
==>asic proxy_authorization_basic
»;

has $!content;
has $!content_ref;
has $!protocol;

has @!par <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	662	770	
==>pl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File: <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1943	2051	
==>pl, \%hash ) 
        or error(Params::Check->last_error), return;

    unless( can_load( modules => { 'File: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	225	325	
==>ader field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	225	325	
==>ader field names.
our $TRANSLATE_UNDERSCORE;
$TRANSLATE_UNDERSCORE //= 1;

# "Good Practice" order of <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2091	2212	
==>);
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-') <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2091	2212	
==>);
}

method remove_header (Str *@fields) {
  my @values;

  for @fields -> $field is copy {
    $field.trans(('_' => '-') <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	6409	6569	
==>eading name components and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cooki <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	6409	6569	
==>eading name components and leading dots.  When this
                    # results in a domain with no leading dot, it is for
                    # Netscape cooki <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2770	2878	
==>PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$. <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2770	2878	
==>PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = "-") returns Str {
    return [$. <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	19232	19332	
==>d2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the ser <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	19232	19332	
==>d2 C<$botE<lt>runE<gt>()>

Starts the main runloop, which is only exited if the connection to the ser <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	12078	12198	
==>/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	12078	12198	
==>/
(?:
    (?m-s:^[^\S\n]*\#.*\n)+           # one or more comment lines
)
/xsm;

my $re_data = qr/
(?:
    ^(?:__END__|__ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	23344	23441	
==>the
top value is popped and discarded.

It is important to do this copy-and-push before you do any <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7841	7958	
==>ame ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Tes <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7899	8016	
==>ame ~ ' ') >= 0) {
        Test::diag("  $wanted: '" ~ ($expected.defined ?? $expected !! "undef") ~ "'");
        Tes <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8048	8207	
==>e;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.c <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8048	8207	
==>e;
    return $.complement_previous =
        sub ( $x is copy ) {
            for ( 0 .. $!arbitrary_limit )
            {
                $x = &{ $.universe.c <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	17053	17231	
==>ew('a', 
                         href  => (abs2rel($source, dirname($synhtml)) . "#" . 
                                  (0+$link)), id=>0+$link, 
                         title <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	1648	1775	
==>ft =>        
        "exp 'name' exp     \n" .
        "\t{ \$_[0]->{out}= {fixity => 'infix', op1 => \$_[2], exp1 => \$_[1], <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	611	734	
==>tch}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	611	734	
==>tch}   }

sub flat {
    return ${ ${$_[0]}->{capture} }
        if defined ${ ${$_[0]}->{capture} };
    return substr( ${$ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	3061	3165	
==>ata,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constr <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	3061	3165	
==>ata,$constructor,$code,*@fields);
    say $code; # XXX - see above
    $code;
}
sub node_s ($data,$constr <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	1923	2015	
==>tory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|h <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	1923	2015	
==>tory.

=head2 Apocalypses, Exegeses, and Synopses (AES)

Additionally to the L<official AES|h <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	8040	8331	
==>apping! ) returns Relation::Example {
    # TODO.
}

###########################################################################

method unwrap ( Set of Str $attrs! ) returns Relation::Example {
    # TODO.
}

###########################################################################

metho <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	1809	1947	
==>= shift;
    my %hash = @_;

    my $tmpl = {
        dir     => { required => 1, allow => IS_DIR },
    };

    my $args = check( $tmpl, \ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	32928	33025	
==>ify the walking stack before the node
is returned.  Here is the walk() method for all the quantifi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	3670	3805	
==>_PACKAGE__->add_rule( 
        name => '~=',
        assoc => 'right',
        precedence => 'equal',
        other => '=',
    );
    _ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3313	3438	
==>lf->{tree} = pop @{ $self->{stack} } while @{ $self->{stack} };
    delete $self->{stack};
  }

  return;
}


sub walker {
  m <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	90	348	
==>ort symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packa <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	90	348	
==>ort symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.722.0...);

###########################################################################
###########################################################################

# Constant values used by packa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3407	3558	
==>q 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4256	4407	
==>q 'warn';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'HASH';
        my $s1 = emit($_);
        $s .= "$cmd $s1;\n"
            if $ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15480	15578	
==>plementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darw <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15480	15578	
==>plementation of "The
Third Manifesto" (TTM), a formal proposal by Christopher J. Date and Hugh
Darw <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7560	7688	
==>ELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7560	7688	
==>ELF if $path !~ m,^/, || $key ~~ m,^\$,;
        
        if $port.defined {
            return $?SELF unless $port ~~ m:P5/^_?\d <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18254	18362	
==>s would have a harder time figuring out the
best way to deal with it.  But for displaying to users, easy mess <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18254	18362	
==>s would have a harder time figuring out the
best way to deal with it.  But for displaying to users, easy mess <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	90	339	
==>ort symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	90	339	
==>ort symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0...);

###########################################################################
###########################################################################

# Constant values used <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/temp/lib/Pugs/Runtime/Rule.pm	824	929	
==>tions currently take 8 arguments.

=cut

use strict;
use warnings;
#use Smart::Comments; #for debugg <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16150	16318	
==>8],
            tzname  => @tm[9],
            tz      => @tm[10],
            is_dst  => @tm[11],
        );
    #}
    $res;
}

class Num {
    multi sub round_gen(Int <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	1755	1908	
==>mk_accessors( keys %$tmpl );

        $obj->root(dir($root));
        $obj->pool((defined $pool
                    ? dir($pool)
                    : $ob <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4165	4263	
==>ay can also be the string "last", in which case the
object returned represents the last day for the <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4165	4263	
==>ay can also be the string "last", in which case the
object returned represents the last day for the <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2346	2481	
==>msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '" <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2346	2481	
==>msg_key: "' ~ $!msg_key ~ '"'
         ~ "\n"
         ~ '    %msg_vars: {' ~ %!msg_vars.pairs.sort.map:{
               '"' ~ .key ~ '" <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	14534	14650	
==>ic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	14534	14650	
==>ic");
    } else {
      ./:enqueue("TOPIC $channel");
    }
  }
  method kick(Str $channel, Str $nick, Str $reason?) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9253	9410	
==>q->new(
        map {
            App->new(
                Sym->new('&print'),
                Sym->new('$*OUT'),
                Val->new("(($_ ** $x) / ($_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	2865	2981	
==>0 {

    # External packages used by the Relation::Example class, that do export symbols:
    # (None Yet)

    # Att <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8809	8924	
==>rence (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12286	12401	
==>rence (Relation $other!) returns Relation {

    die "The heading of the relation in $other does"
            ~ " no <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21576	21675	
==>other tuples.  All Relation
attributes may be individually addressed only by their names, and all
Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26128	26227	
==>other tuples.  All Relation
attributes may be individually addressed only by their names, and all
Re <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8912	9059	
==>eters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                c <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8912	9059	
==>eters
        # TODO: implement count = max( @lists.elems )
        my @lists = ( $array, @list );
        Perl6::Value::List.new(
                c <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2438	2575	
==>{
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3397	3532	
==>{
        eval "use $perl_version; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	21958	22072	
==>->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	18379	18493	
==>->{flags} }, &Rf;
    return $S->object(suspend =>);
  });

  # eval
  $self->add_handler('(?{' => sub {
    my ($S <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27296	27413	
==>ich has a superset of the original's attributes; the new Relation has as
many additional attributes as there are pairs <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31848	31965	
==>ich has a superset of the original's attributes; the new Relation has as
many additional attributes as there are pairs <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	15307	15409	
==>ssage for interactive systems.

If the program or any of its components are intended for widespread use <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	15307	15409	
==>ssage for interactive systems.

If the program or any of its components are intended for widespread use <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	860	1000	
==>.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	860	1000	
==>.'\' ) 
    ? do { $pos -= '.$len.' }
    : 0
)'

sub greedy_star {
    "do { while @_ {} }"
}

sub null {
    "1";
};

sub wrap {
    return <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6440	6748	
==>sif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::i <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6904	7212	
==>sif ( $@ =~ /^No package satisfies/ ) {
                        next;

                    ### some other error
                    } else {
                        die $@;
                    }                            
                }
    
            ### grouping    
            } elsif ( UNIVERSAL::i <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	747	841	
==>{
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumpe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	747	841	
==>{
	$dumper = $format{$interface::format};
	p6dump->export_to_level(1,@_);
	eval "require $dumpe <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5828	5939	
==>ODO - what are the other scopes?

        #say %pad<"pSyms">.perl;
        my @symbols = %pad<"pSyms">.map:{ $_[ <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17847	17958	
==>:Api;\n";
    $code .= "use Error qw(:try);\n";

    my $hlp = sub{my $cls=$_[0];
		  my $symtab = '$'.$cls.'::{ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26333	26431	
==>trs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding project <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30885	30983	
==>trs>.  The new Relation has all
of the tuples of the original (or rather, the corresponding project <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	15773	15905	
==>= 1;
            $self->{lone_not_line} = $self->{line};
        }

        return $NO;
    }
}

=head2 C<_is_bail_out>

  my $is_bai <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2697	2860	
==>kie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redi <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2697	2860	
==>kie;
            
            $header ~= "\nSet-Cookie: " ~ $cookie
                unless $cookie eq "";
        }
    }
    
    return "$header\n\n";
}

sub redi <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	9711	9816	
==>isWritable'};

	if(!$class && $op{'isInvocant'}) {
	    $class = $op{'type'}; # for calls via Api.
	}
	if( <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/repo_create.pl	650	875	
==>e $?;
            
            ### extract the archive to the temp dir
            system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
            ### got 2 .tgz files in the tmp dir now
            ### get th <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	932	1083	
==>e $?;
        
        ### extract the archive to the temp dir
        system( qq[tar -f $archive -C $my_tmp_dir -xz] )    and die $?;
    
        my $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	8790	8912	
==>'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '* <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	8786	8908	
==>'};
    #print "*** \$term:\n",Dumper $term;
    my $quantifier = $_[0]->[1]{'literal'}[0];
    my $sub = { 
            '* <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1326	1428	
==>e for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element-> <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1326	1428	
==>e for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my $para = Perldoc::DOM::Element-> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6214	6356	
==>d =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'H <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	6727	6869	
==>d =    "    warn" if $op eq 'warn';
    $cmd =    "    die " if $op eq 'die';
    my $s;
    for ( @$list ) {
        next unless ref($_) eq 'H <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	2031	2150	
==>- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? ' <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	2031	2150	
==>- | ~) <ws>?
      $<rhs> := (<AdditiveExpr>) <ws>? ]?
    { use v5;
      if($<op>[0]){
	  my $op = $<op>[0] eq '~' ? ' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	3752	3882	
==>ls = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      } <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	3752	3882	
==>ls = %!headers{$key};
    if $vals ~~ Array {
      for @$vals -> $val {
        $sub.(%standard_case{$key} || $key, $val);
      } <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2537	2645	
==>----------
## getting children

method get_child ($self: Int $index) returns Tree { @!children[$index] }
meth <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2537	2645	
==>----------
## getting children

method get_child ($self: Int $index) returns Tree { @!children[$index] }
meth <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	943	1044	
==>en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	943	1044	
==>en-0.1.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRINGS{$msg_key <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	6639	6731	
==>n of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	6639	6731	
==>n of File::Spec::Unix, although this version is more
akin to File::Spec::Functions.

= AUTHOR <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4784	4956	
==>stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stac <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4784	4956	
==>stack is empty then ...
                    unless (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stac <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3195	3299	
==>mpty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3195	3299	
==>mpty string.],
    'LKT_ARG_HASH_VAL_EMP_STR'
        => q[<CLASS>.<METH>(): argument <ARG> is a Hash ref <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15716	15862	
==>(implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=h <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15716	15862	
==>(implied "no Foo;"):

    package Bar;
    
    {
        use Foo;
        ...
    }

To compile F<Bar.pm> into F<Bar.pmc>:

    perl -c Bar.pm

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	1630	1760	
==>f ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_fil <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1837	1967	
==>f ( -f "$prelude_file-cached.pl" ) {
        $recompile = 
            -M "$prelude_file-cached.pl" > 
            -M "$prelude_fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	8534	8682	
==>de assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negate <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	8534	8682	
==>de assertion not implemented";
            return;
        }
        return call_subrule( $cmd, $_[1] );
    }
    if ( $prefix eq '!' ) {   # negate <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5434	5553	
==>self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	5719	5838	
==>self, $name, $value) = @_;
    (defined $name) 
        || confess "You must supply a name to set";
    (blessed($value) <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	16000	16121	
==>r $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enq <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	16000	16121	
==>r $password { enqueue "OPER $username $password" },

    # PRIVMSG/NOTICE
    privmsg => -> Str $to, Str $text {
      enq <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	5442	5564	
==>et.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        comp <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	5442	5564	
==>et.closure_previous }( -$x ) }, 
        closure_previous =>    sub ($x) { - &{ $set.closure_next }( -$x ) }, 
        comp <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15210	15306	
==>ed or
decoded string is returned (without changing the input string).

If you prefer not to impor <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15210	15306	
==>ed or
decoded string is returned (without changing the input string).

If you prefer not to impor <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	13885	13993	
==>b reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1365	1473	
==>b reduce_param {
    my $self = shift;
    my $param = shift;

    $self->new_pad($param->val => $self->shift <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	15021	15124	
==>!) returns Relation::Example {

    # First look for trivial cases that are more efficient to do differe <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	474	591	
==>SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[En <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	474	591	
==>SUCCESS'
        => q[Initialization of the Engine "<ENGINE_NAME>" is successful.],
    'ROS_S_PROMPT'
        => q[En <==
2	/Users/nnunley/pugs/util/func_refact.pl	2202	2344	
==>andidates {
    my %cands;
    my $ccset = shift;
    for my $cand (keys %$nodes) {
        #print "trying: $cand\n";
        next if exists $c <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniPrototypeModel.pl	3816	3949	
==>e right y for p1');

sub Point3D {
    my ($x, $y, $z) = @_;
    {
    # prototype
        prototype => new Point($x, $y),  
    # res <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	24723	24889	
==>( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25002	25168	
==>( 'term1', \&{'grammar1::term1'} )
           ,
         )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5910	6019	
==>epot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in which we store som <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5910	6019	
==>epot_connection( %DB_CONFIG{'depot_identity'} );

    # Create a Rosetta::Model document in which we store som <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1576	1699	
==>my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "C <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1543	1666	
==>my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        unless ($fh->open("|$ftp -n")) {
            warn "C <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	5644	5761	
==>h' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope' <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	5644	5761	
==>h' ,'Int',
  'tCxt'      ,'TCxt',
  'tReg'      ,'(TVar (Int, String))',
  'tLabel'    ,'(TVar Int)';


node_s 'Scope' <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	8212	8333	
==>on_object',
  '... still got the right return value from first Object singleton/class method called by Foo');  

$Foo->add <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	10781	10882	
==>on_object',
  '... still got the right return value from first Object singleton/class method called by <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1995	2192	
==>t::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    wh <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1995	2192	
==>t::Message.new(
        msg_key => 'ROS_S_GOODBYE' ) );

    return;
}

###########################################################################

my sub _command_loop () {
#    INPUT_LINE:
    wh <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	2245	2384	
==>cs
                    die "Dependency '$depends->{package}' not satisfied " .
                        "for '$path'" unless $avail{ $depends <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Source.pm	3606	3737	
==>cs
                die "Dependency '$depends->{package}' not satisfied " .
                    "for '$path'" unless $avail{ $depends <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	2527	2653	
==>ft;
    my $self = { levels => [], @_ };
    bless $self, $class; 
}

our $op_count = '000';
sub add_op {
    my ($self, <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	959	1095	
==>:Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasynt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	959	1095	
==>:Match->new( { 
        bool  => ( $extracted ne '' ),
        match => $extracted,
        tail  => $remainder,
    } );
}

sub metasynt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	3523	3643	
==>0], '$<variable>' );
    my $code = get_str( $_[0], '$<code>' );
    $name =~ s/^\@/\@$grammar1/;
    $code =~ s/^\\&/\\& <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5110	5239	
==>$to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	5434	5563	
==>$to =      traverse_ast ( %pad<"pLHS"> );
        dbg "# Assign from:    "; my $from =    traverse_ast ( %pad<"pRHS"> );
        $ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	23677	23807	
==>*/



  #define REXEC_CHECKED   0x02            /* check_substr already checked. */

  #define REXEC_SCREAM    0x04            /* u <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	28896	28995	
==>*/
 #define REXEC_CHECKED	0x02		/* check_substr already checked. */
 #define REXEC_SCREAM	0x04		/* u <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	7941	8130	
==>ol->new('$self:' => 'opaque'), 
                              symbol->new('$label' => 'symbol')
                          ),
                returns => 'bit'
            ),
            sub { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1238	1356	
==>d_only => 1, %{$_[2]} } }
    |   '*' signature_term
        { $_[0]->{out}= { splat => 1, %{$_[2]} } }
    |   signatu <==
2	/Users/nnunley/pugs/blib6/lib/Text/Glob.pm	1945	2062	
==>SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Text-Glob/lib/Text/Glob.pm	1945	2062	
==>SYNOPSIS

    use Text::Glob;

    my $t = Text::Glob.new;
    my $regex = $t.glob_to_regex('*.pm');

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7939	8030	
==>0000; # ugly
-M "$parrot_path/runtime/parrot/include/$_" <= $newest_p_stamp and
  $newest_p_ <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2659	2767	
==>{ 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL { <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2659	2767	
==>{ 'Expression' }
}

# PILVal :: Literal
class Perl::Compiler::PIL::PILVal
    does Perl::Compiler::PIL::PIL { <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	3560	3653	
==>::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer)) <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	3560	3653	
==>::Parser;
  use Pod::Event::Handler::POD;
  
  parse("path/to/file.pod", pod2pod($str_buffer)) <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	16185	16288	
==>global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($s <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2594	2697	
==>global it's an error. If it exists, it can be reduced to it's value
    my $builtin = $self->env->get($s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7045	7172	
==>(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7045	7172	
==>(.*\n){$line_number}//;

        $_ = $filtered_content . $data_line;

        $done = 1;
    });
}

use constant TEXT => 0;
use <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	1491	1612	
==>l O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave acce <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	1491	1612	
==>l O, acute accent
    "Ocirc"    => 'Ô',  # capital O, circumflex accent
    "Ograve"   => 'Ò',  # capital O, grave acce <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	16800	16894	
==>pile that into its own executable, in practice one would
normally just write some components of <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	16800	16894	
==>pile that into its own executable, in practice one would
normally just write some components of <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2348	2471	
==>ration: (\d+)/        and $smoke{duration}      = $1;
  $html =~ /pugs-path: (.+)$/m      and $smoke{runcore}       = pugspa <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1541	1655	
==>bstr $str, 1, chars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    return undef i <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11188	11294	
==>iple
values in this way will not change the semantic of a header field, but
in practice there are cases lik <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11188	11294	
==>iple
values in this way will not change the semantic of a header field, but
in practice there are cases lik <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	11317	11413	
==>Returns all elements both from this recurrence and from the given recurrence.

- `intersection( $ <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	11317	11413	
==>Returns all elements both from this recurrence and from the given recurrence.

- `intersection( $ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1856	1962	
==>nge'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'd <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1856	1962	
==>nge'

=cut

# TODO - test splice() with parameter 'Array @list'
# TODO - add lazy/strict tests

# TODO - 'd <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	3058	3178	
==>less wantarray;
        push @result, $x;
    }
    return @result;
}

sub is ($$@) {
    my ($got, $expected, $name, @me <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	40	151	
==>use lib ("$Bin/lib",
         "$Bin/../Perl6-Value/lib",
         "$Bin/../Perl6-Container/lib",
         "$Bin/ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2217	2332	
==>th CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2217	2332	
==>th CGI-generated requests.

=head1 SYNOPSIS

    require HTTP::Request::CGI;
    
    my $r = HTTP::Request::CGI.new <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	7873	7984	
==>hen entire match. For example:

  

  # returns a Match object that has the 'capture' field set to 'abc'

  matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	7607	7715	
==>hen entire match. For example:
  
  # returns a Match object that has the 'capture' field set to 'abc'
  matc <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	307	409	
==>w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pil <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	307	409	
==>w);
  $codefh.print($code);
#  $codefh.print($BOOTSTRAP ~ "\n\n" ~ $code);
  $codefh.close();
  my $pil <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	325	441	
==>= @_;

  $self->add_handler('atom' => sub {
    my ($S) = @_;
    $S->nextchar;

    ${&Rx} =~ m{ \G (.) }xgcs or ret <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9162	9276	
==>en_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <en <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9162	9276	
==>en_head;

submethod BUILD($.mode = "enciphering") {
    $!seen_head = 0;
    given lc $.mode {
        when any <en <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	3342	3453	
==>:Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable class, that do export s <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	3342	3453	
==>:Interface::Variable {

    # External packages used by the Rosetta::Interface::Variable class, that do export s <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	2337	2431	
==>eport.  Returns the C<%results> of the test.
See L<Results>.

C<@test_output> should be the raw <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	13650	13786	
==>{
        # create HTML out of the pod
        
        my $synhtml = catfile($syndir     , "$syn.html");
        my $synpod  = catfile($ <==
2	/Users/nnunley/pugs/perl5/re-override/lib/re/override.pm	3712	3810	
==>t file.

=item Memory

One sees both segfaults and memory exhaustion when running against
some of t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	9148	9278	
==>int "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9144	9274	
==>int "*** \$quantifier:\n",Dumper $quantifier;
    die "quantifier not implemented: $quantifier" 
        unless $sub;
    return "$ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	3634	3731	
==>lass, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options to t <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	3634	3731	
==>lass, passing the key, a mode (either "enciphering" or "deciphering"), and any 
other options to t <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2967	3084	
==>$.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a si <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2967	3084	
==>$.end;
    return $x      if $x >= $.start;
    return -Inf;
}

=kwid

= NAME

Span::Int - An object representing a si <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	16767	16852	
==>F1,B0,B1,E0,E1).

rm(intersection(Re1,Re2),F0,F1,B0,B1,E0,E1) :-
  rm(Re1,F0,F1,B0,B1, <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11233	11342	
==>hstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) re <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11233	11342	
==>hstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub byteify(Str $string) re <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	1405	1528	
==>" . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	1405	1528	
==>" . $<param>[0];
      }else{
        return $<Expr>();
      }
    }
))->code;
*FunctionAppExpr = Pugs::Compiler::Rule->com <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	12688	12784	
==>esent "chunks" of data, such as date objects without the time part.

Discrete spans take a "units <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	12688	12784	
==>esent "chunks" of data, such as date objects without the time part.

Discrete spans take a "units <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	3287	3421	
==>g{$func}->[1];
        return $sub 
            ? $sub->( $obj, $obj->$acc )
            : $obj->$acc;
    }
}

=head2 $config = JIB::C <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	25548	25645	
==>sage similar to the above.

=item C<Failed 1 test, %.2f%% okay. %s>

=item C<Failed %d/%d tests, % <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4145	4260	
==>ches[0]{capture},$matches[1]{capture}

            $capture = $matches[0]{capture} 

                if $matches[0]{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4017	4130	
==>ches[0]{capture},$matches[1]{capture}
            $capture = $matches[0]{capture} 
                if $matches[0]{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7141	7258	
==>urn
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $pro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7129	7246	
==>urn
        "$_[1] ( ( \$capture = sub $code->( \$m ) ) 
$_[1]   && return \$m )";
}
sub capturing_group {
    my $pro <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2652	2745	
==>_all_children returns Array of Tree { @!children }

## --------------------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2652	2745	
==>_all_children returns Array of Tree { @!children }

## --------------------------------------- <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5748	5850	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5827	5929	
==>ub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S->force_object(alnum => 0)) if <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	14938	15091	
==>tant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	15217	15370	
==>tant( "v6" )
       ,
         ruleop::constant( "\-" )
       ,
         ruleop::constant( "pugs" )
       ,
         ruleop::optional(
             \&{' <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	2992	3122	
==>osure::signature->new(
            params => closure::params->new(
                           symbol->new('&dispatcher' => 'block') <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4801	4904	
==>osure::signature->new(
            params  => closure::params->new(symbol->new('&dispatcher' => 'block') <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5214	5305	
==>the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child. <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5214	5305	
==>the removed child is aligned correctly
    $removed_child.fix_depth() unless $removed_child. <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3991	4110	
==>($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3991	4110	
==>($i_start, $i_end);
    my bool $open_start;
    my bool $open_end;
    my int $cmp = $.start <=> $span.start;
    if ($ <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1966	2118	
==>urn;
        
        ### XXX need better checks
        
        ### XXX create an object::accessor object, blessed in the right class
        my $obj = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	21775	21876	
==>rdinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relat <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	26327	26428	
==>rdinal value.

Note that it is valid for a Relation to have zero tuples.  It is also valid
for a Relat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	3169	3335	
==>{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:p <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	3169	3335	
==>{uc$0}];
    $path ~~ s:perl5:g{/}{\\};
    $path ~~ s:perl5:g{([^\\])\\+}{$0\\};                                                 # xx\\\\xx  -> xx\xx
    $path ~~ s:p <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	24277	24371	
==>les simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entire <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	24277	24371	
==>les simultaneously at run time.

=head1 INTERFACE

The interface of Locale::KeyedText is entire <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	7668	7815	
==>ependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !depe <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	969	1116	
==>ependency is also sastisfied by /another/
                    ### package, it's still safe to delete us, otherwise not
                    if( !depe <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	4852	5002	
==>';
            my $description = "# TODO " . _('$.description');
            return join(' ', $ok, _('$.number'), $description);            
        }, <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10710	10809	
==>f = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10710	10809	
==>f = {}) {
    %msg_vars{'CLASS'} = 'Locale::KeyedText::Translator';
    die Locale::KeyedText::Messa <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2849	2994	
==>@a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0]. <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2849	2994	
==>@a = @.spans;
    my @b = $set.spans;
    while @a && @b {
        return Bool::True if @a[0].intersection( @b[0] );
        if @a[0].end < @b[0]. <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	11748	11843	
==>utrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"A <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	11748	11843	
==>utrijus@autrijus.comE<gt>

Curtis "Ovid" Poe
 
Andras Barthazi, E<lt>andras@barthazi.huE<gt>

"A <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	1835	1938	
==>VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documen <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	1835	1938	
==>VERSION

This document describes Rosetta::Model::L::en version 0.400.1.

=head1 SYNOPSIS

I<This documen <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9884	9993	
==>ndler register method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9884	9993	
==>ndler register method
    add_handler => -> Str $code, Code $cb { %handler{$code}.push($cb) },

    # Connect/ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8637	8823	
==>ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $ar <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8637	8823	
==>ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elems },
        )
    }

    method values ( $array: ) { 
        $ar <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	5647	5760	
==>etup
 */

static void regexp_setup(regexp* r, SV* pat, U32 nparens, SV* callback)
{
    I32 len;
    int i;

    f <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	4550	4648	
==>ub rep_type  { $_[0]{'rep'} } # string array1 array2 hash
sub field_is_array {
    my($self,$fname) <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10053	10185	
==>less $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10332	10464	
==>less $match;
        my $capture_block = sub { return { named_capture =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Da <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	2059	2206	
==>nd "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are al <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	2059	2206	
==>nd "next".
  my %channels;            # Stores the current topic, the users on the
                           # channel, etc. Note: Hash keys are al <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	24514	24612	
==>et::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logg <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	24514	24612	
==>et::IRC>,
aside from appending the correct newline characters.

=head1 PSEUDO EVENTS

=head2 C<logg <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor/FindByPath.pm	645	772	
==>esults;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $curre <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor/FindByPath.pm	645	772	
==>esults;

    # get our path
    my @path = @!search_path;    

    # get our variables ready
    my $current_path;
    my $curre <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	19289	19391	
==>sion>
}
rule ExpressionNoIn :words {  # see 11.14
      <AssignmentExpressionNoIn>
    | <ExpressionNoI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	32658	32753	
==>e
message strings, using data from external Template modules as a template.
The Translator class <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	32658	32753	
==>e
message strings, using data from external Template modules as a template.
The Translator class <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/BaseCategory.pm	331	432	
==>ub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/BaseCategory.pm	1059	1158	
==>ub capture {
    # print Dumper ${$_[0]}->{match}[0]{match}[1]{capture}; 
    return ${$_[0]}->{matc <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8174	8306	
==>b { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8367	8499	
==>b { 
        my $rule = 
         ruleop::capture( 'variable', \&{'grammar1::variable'} )
       ,
    ;
        my $match = $rule->( <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	23166	23286	
==>ng cname
    .local pmc exp0, exp1

    exp0 = self[0]
    cname = exp0["cname"]
    exp1 = self[1]
    exp1["cname"] = c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1604	1707	
==>the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1604	1707	
==>the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::SeenExt> for the time C<$nick> was <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18868	18986	
==>f assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgc <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15289	15407	
==>f assertion...
  $self->add_handler('(?' => sub {
    my ($S) = @_;
    my $c = '(?';

    if (${&Rx} =~ m{ \G (.) }xgc <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	843	951	
==>@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) return <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	843	951	
==>@path) returns Str is export {
    return &::($worker_pkg)::catdir( *@path );
}

sub catfile (*@_path) return <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1870	2023	
==>r;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1870	2023	
==>r;
    $header ~= "Status: " ~ $status;
    # TODO:
    # Need to add support for -
    #    NPH
    #    Expires:
    #    Pragma: (caching)
    
    $he <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9400	9564	
==>ld.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up t <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9400	9564	
==>ld.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up t <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	15146	15256	
==>xt);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	15146	15256	
==>xt);
    $digest_map->{$digest} = $text;
    return $digest;
}

# Expand folded code into original content.
sub <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1633	1756	
==>$self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

me <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1633	1756	
==>$self.span;
    my $cmp = $set1.compare( $set2 );
    return $cmp unless $cmp == 0;

    # TODO - this is hard
    ...
}

me <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	31210	31307	
==>tem branch

Whether this object has branches (like C<|>).

=item family

The general family of thi <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9774	9902	
==>}  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub de <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	11251	11379	
==>}  

    ### takes a wanted string and a meta object, and checks if the meta object
    ### provides the wanted string
    sub de <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3096	3192	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3096	3192	
==>es Perl::Compiler::PIL::PIL {
    has Perl::Compiler::PIL::PIL $.head;
    has Perl::Compiler::PI <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4601	4731	
==>',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "di <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4601	4731	
==>',
    "frac14"   => '¼',
    "frac12"   => '½',
    "frac34"   => '¾',
    "iquest"   => '¿',
    "times"    => '×',
    "di <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1114	1223	
==>witches = "-w";
$Columns  = $ENV{HARNESS_COLUMNS} || $ENV{COLUMNS} || 80;
$Columns--;             # Some shell <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MM/Opaque.pm	1	108	
==>package Perl6::MM::Opaque;

use Perl6::Core::Num;
use Perl6::Core::Hash;
use Perl6::Core::Str;
use Perl6::Co <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9756	9852	
==>t2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.inte <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9756	9852	
==>t2)>

Returns a new set containing all the elements of C<$set1> and C<$set2>

=head2 C<$set1.inte <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	18156	18329	
==>sprintf" if $ai >= +@args;
            $arg = @args[$ai];
            $ai++;
        }

        given $specifier {
            when any(<c d u o x b i>) {
                $st <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	22359	22482	
==>thod
    .param pmc pad
    $I0 = pad[":s"]
    if $I0 goto ws
    null $P0
    .return ($P0)
  ws:
    self["subname"] = "w <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	12315	12500	
==>", Dumper( $n );
    
    if ( $n->{op1}{op} eq '[' &&
         $n->{op2}{op} eq ']' ) {

        if ( ! exists $n->{exp2} ) {
            # $array[]
            return '@{ ' . _e <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	3209	3303	
==>ailed Test  Stat Wstat Total Fail  Failed  List of Failed
  ----------------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	8849	8961	
==>lf.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	8849	8961	
==>lf.charset
    #$latin = ?(uc $self.charset eq "ISO-8859-1"|"WINDOWS-1252");
    $latin = 1;
    
    if ($latin) <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1802	1917	
==>);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning thi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1802	1917	
==>);
    return $set;
}

method equal($self: Set $other) returns Bool {

    # for some reason, directly returning thi <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	1632	1746	
==>re_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.un <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	1632	1746	
==>re_next, 
    $.closure_previous, 
    $is_universe?, 
    $complement_next?, 
    $complement_previous?, 
    $.un <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17702	17809	
==>hich you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual m <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17702	17809	
==>hich you use to
compile/prepare and/or invoke/execute Rosetta D statements and routines
within the virtual m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	7788	7882	
==>->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	1613	1707	
==>->access_hashref_element(@_) };
push @terms, sub { Grammar::Perl6->access_hash_element(@_) };
p <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6128	6245	
==>}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left ch <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6128	6245	
==>}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Left ch <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13707	13821	
==>c >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      . <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13707	13821	
==>c >= $.live_timeout) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; disconnecting.";
      . <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	3177	3271	
==>of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2... <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	3177	3271	
==>of values.  Otherwise, it will return the first value.

=item C<$q.param($name, $val1, $val2... <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2946	3087	
==>:($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - che <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2946	3087	
==>:($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - che <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4629	4729	
==>es in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedTex <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4629	4729	
==>es in this file.>

=head1 SYNOPSIS

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedTex <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	3633	3745	
==>de_re)$/;
}

sub _init {
    my($self) = shift;
    $self->set_build_info;
    $self->get_smoker;
    $self->get_ <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	7408	7510	
==>".";
$0 - run tests and store results in YAML

Usage: $0 [OPTIONS]
    --output-file=FILE, -o  Store re <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	5424	5516	
==>ub ToBoolean(JSX::Value::Null $v)      { JSX::false }
multi sub ToBoolean(JSX::Value::Boolean <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12112	12220	
==>$self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4755	4863	
==>$self->add_handler('\p' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'p') if ${&Rx} !~ m{ \G (.) <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	16003	16104	
==>modules get compiled into some
altered form the first time they are run. The result is cached into
C<. <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	16003	16104	
==>modules get compiled into some
altered form the first time they are run. The result is cached into
C<. <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	2508	2614	
==>sk you to enter
      commands requiring root privilegies.

Note: The only option you'll have to specify is <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6	95	
==>1
package Module::Install::Metadata;

use Module::Install::Base;
@ISA = qw{Module::Install <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	1433	1532	
==>e 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this m <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	1433	1532	
==>e 
loaded in a /first-come-first-served/ basis, so just be
sure (as with perl5 lib.pm) to use this m <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	14242	14472	
==>efined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	14242	14472	
==>efined $digest_map->{$2}) {
                $preface .= $1;
                next;
            }
            else {
                $text = $1 . $text;
                last;
            }
        }
        last;
    }
    my $digest <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6140	6438	
==>l ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } e <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6604	6902	
==>l ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the next                        
                    } e <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3055	3164	
==>PGE_OPTABLE_TERNARY;
    $token{arity} = 3;
  }
  elsif ( $syncat eq "close" )
  {
    $token{syncat} = PGE_OP <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	5280	5376	
==>w;
is($iFoo->id, 4, '... $iFoo is the fourth id');
is($iFoo->class, $Foo, '... $iFoo refs to $Foo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8782	8893	
==>t?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.heade <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8782	8893	
==>t?, Str $status = "302 Found", Str :$cookie, Bool :$nph, *%extra) {
    my $h = ::class.new();
    
    $h.heade <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	6276	6470	
==>.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
        ([^\n]*)
    /ixms) {
        my $author = $1 || $2;
        $author =~ s{E<lt>}{<}g;
        $author =~ s{E<gt>}{>}g;
        $self->au <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	601	747	
==>udge_retval;
        return $v;
      }
    }
    return undef;
  };
}

{
  package Op;
  my $increment = 1;  
  my %dict;
  sub new {
    my($cls, <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	9260	9364	
==>etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	9260	9364	
==>etc operators
  my $is_proper_superset = $set ⊃ $set2;  # or ">"
  my $is_proper_subset   = $set ⊂ $s <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/HTML.pm	6381	6474	
==>collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML format <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/HTML.pm	6381	6474	
==>collection of event handlers for use with L<Pod::Event::Parser> which will
perform HTML format <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9195	9287	
==>entation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-o <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9195	9287	
==>entation is pending.>

=head1 INTERFACE

The interface of Rosetta::Model is entirely object-o <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1917	2024	
==>r => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'lef <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1917	2024	
==>r => '+',
} );
$statement->add_op( {
    fixity => 'postcircumfix', name => '[', name2 => ']', assoc => 'lef <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	989	1112	
==>y - takes 2 params (e.g. ->, x)
#	::nullary - takes 0 params (e.g. int)
# type::variable - a placeholder to make a DAG out o <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	29306	29406	
==>hey are of the same type. If
it is called I<after> $obj has been added to the tree, $obj will be
remo <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	397	504	
==>k(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enc <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	397	504	
==>k(Array $block) returns Array {
    my int($v0, $v1) = $?SELF!fusebytes($block);
    
    if ($.mode eq 'enc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	7299	7409	
==>$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$even <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	7299	7409	
==>$_}<channels>;
      }
      %channels.delete($chan);
      debug "Was kicked from channel \"$chan\" by \"$even <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1244	1358	
==>values;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.d <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1244	1358	
==>values;
}

method find_packages ( Str $path ) {
    return () unless -e $path;
    my $f = File::Find.new;
    $f.d <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15692	15798	
==>rsa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Cop <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15692	15798	
==>rsa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported to Pugs by Curtis "Ovid" Poe.

=head1 COPYRIGHT

Cop <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	1858	1962	
==>ort {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pk <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	1858	1962	
==>ort {
    return &::($worker_pkg)::cwd();
}

sub tmpdir returns Str is export {
    return &::($worker_pk <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7579	7708	
==>ule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7772	7901	
==>ule_terms, \&non_capturing_group;
*{'closure_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'code', \&{'gramm <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	7272	7378	
==>ebless_with_prefix($_,$prefix) }
    } else {die "bug"}
    bless $o,$ref;
    return $o;
}
sub rebless_wit <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3468	3572	
==>ak "no regex defined" unless &RxLEN;
  $self->parse if $self->{stack};

  $depth = -1 unless defined $dep <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1092	1209	
==>$self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1092	1209	
==>$self.child_count();    
    my $child_width = $child.width();
    $.width += $child_width;
    # and now bubble up to <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	26958	27184	
==>ass' => 'opaque'),           
                          ),
                returns => 'nil'
            ),             
            sub {
                my $e = shift;        
                $e->get('$self:')->get_attr(symbol <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	1158	1351	
==>ternatives   = $Meta . '/alternatives';          # Alternative link dir                                                    
$Metaext        = '.info';                          # Extension for me <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9620	9749	
==>x_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in or <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9620	9749	
==>x_height + 1);
    # otherwise ...
    $.height = $max_height + 1;
    # now we need to bubble up through the parents 
    # in or <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	2550	2686	
==>ed
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	2550	2686	
==>ed
    method to_ref        ( $self: ) { $self }
    method to_bit        ( $self: ) { $self.elems > 0 }
    method to_num        ( $self <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1987	2081	
==><< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1987	2081	
==><< => >>).

=head2 C<≥>, C<≤>, C<≠>

Standard comparision operators.

=head2 C<≣>, C< <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Element.pm	223	330	
==>att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=hea <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Element.pm	223	330	
==>att, %.attr);

    return %att;
}

=head1 NAME

Perldoc::DOM::Element - element in a Perldoc::DOM tree

=hea <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	6908	7023	
==>}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was k <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	6908	7023	
==>}<channels>.delete($chan) if %!users{$_}<channels>;
        }
        %!channels.delete($chan);
        debug "Was k <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	11065	11177	
==>\$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) / <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	11215	11327	
==>\$_[0], '\$()<$2>' ) /sgx;
    # $<name>
    $code =~ s/ ([^']) \$ < (.*?) > /$1 match::get( \$_[0], '\$<$2>' ) / <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5163	5394	
==>f (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5163	5394	
==>f (!(.hide_cookie2)) {
                                $request.add_header(Cookie2 => '$Version="1"');
                            }
                        }
                        
                        # do we need to quote th <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1256	1366	
==>domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1256	1366	
==>domain = "$domain\.local" unless $domain ~~ m:P5/\./;
        
        my $secure_request = ($scheme eq 'https' <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6266	6422	
==>_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $contex <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6324	6480	
==>_tests_run~' ') >= 0;

    if $todo {
        if (substr($todo, 0, 4) eq 'skip') {
            $context = $todo;
        }
        else {
            $contex <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	1037	1159	
==>f: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	1037	1159	
==>f: Tree $child) returns Void {
    return if $.width > $self.child_count();    
    my $child_width = $child.width();
    $ <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	245	387	
==>bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	245	387	
==>bursts of 5 items max
    my $bucket = new_bucket(
      rate       => 100 / 3600,
      burst_size => 5,
    );

    # wait till we're allowed <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	864	981	
==>= $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($sel <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	864	981	
==>= $child_height + 1;
    # and now bubble up to the parent (unless we are the root)
    $self.parent()!set_height($sel <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6393	6491	
==>phers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6393	6491	
==>phers will want to implement 
a constructor with C<BEGIN>.

=item C<_cipher>

    C<method _cipher( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5637	5736	
==>eturns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro l <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5637	5736	
==>eturns Set::Infinite::Iterator {
    return ::Set::Infinite::Iterator.new( set => $.set );
}

coro l <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4789	4937	
==>!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure w <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4789	4937	
==>!children = (
            @!children[0 .. ($index - 1)],
            @!children[($index + 1) .. (@!children - 1)],
        );
    }
    # make sure w <==
2	/Users/nnunley/pugs/examples/advocacy/Motd.pm	615	751	
==>or @x->$try{
        $max =    $max > $try ?? $max !! $try; 
    }
    $max.int
}    

sub whisper_about (Int $sizeof_crowd, Array @x?) r <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	5370	5475	
==>b,$pilMain);
}

NODE PNil () {
    "";
}
NODE PStmts ($pStmt, $pStmts) {
    DOWN($pStmt).DOWN($pStmts);
} <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32827	32959	
==>od label
        symbol->new('_make_ascendant_dispatcher'),
    # method body
        method->new(
            $::ENV,
            me <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	8795	8899	
==>1px solid #313052; }
    .indent2 { padding-left: 40px; }
    .indent3 { padding-left: 80px; padding-bott <==
2	/Users/nnunley/pugs/examples/hop6/Parser.pm	1798	1917	
==>return @p[0]
    if +@p == 1;

  return sub($input) {
    my($v, $newinput);
    for @p {
      ($v, $newinput) = $_.($i <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	4810	4997	
==>!~ m/^(\Q$const\E)(.*)/s;

        return { bool => 1,

                 match => { constant => $1 }, 

                 capture => [ $1 ], 

                 tail => $2,

               } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	4660	4842	
==>!~ m/^(\Q$const\E)(.*)/s;
        return { bool => 1,
                 match => { constant => $1 }, 
                 capture => [ $1 ], 
                 tail => $2,
               } <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	13036	13134	
==>nds (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, S <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	13036	13134	
==>nds (e.g. JOIN, INVITE)
    handle_command => -> Str $line, Str $from, Str $command, Str $object, S <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	7357	7451	
==>est::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_fa <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	7415	7509	
==>est::diag("  Failed test ($?CALLER::CALLER::CALLER::POSITION)");
        $Test::num_of_tests_fa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	12794	12944	
==>$event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	12794	12944	
==>$event = {
        line   => $line,
        server => $server,
        to     => $to,
        rest   => strip_colon($rest),
      };

      if(%handler <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	14331	14426	
==>ation varies with function.
C<keys> only returns the key; C<values> the value; C<kv> returns bot <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	1396	1483	
==>\
type::variable::instantiated: layout($$) = { $.instance }
type::operator::nullary: lay <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10399	10497	
==>e the life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_' <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10399	10497	
==>e the life easier for perl
users who wants to avoid quoting before the => operator, you can use
'_' <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	152	264	
==>{

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	152	264	
==>{

    my $INS = 'Perl6::Internals';

    method generate (Perl::Compiler::PIL::PIL $tree is rw) {
        my $ng <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	5648	5772	
==>xplicit ->write() call on the
        ### object, like in JIB::Installation
        # and write it to disk again
        YAML <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1435	1550	
==>s []
  &RxPOS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub pa <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	440	547	
==>E]}$1@{[RESET]}/m;

  printf STDERR "%s»%s %s%s%s... ", BOLD . BLUE, RESET, BOLD . RED, $args{descr}, RESET <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	3447	3549	
==>iler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	3447	3549	
==>iler::PIL::PIL {
    has Util::Context $.context;
    has Perl::Compiler::PIL::PIL $.code;
    has Perl <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	19385	19487	
==>obj; $fmt) is builtin is primitive is safe {
    sprintf($fmt,$obj);
}
multi as (List $obj; $fmt, $comm <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	996	1131	
==>',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	996	1131	
==>',
        409 => 'Conflict',
        410 => 'Gone',
        411 => 'Length Required',
        412 => 'Precondition Failed',
        413 <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3130	3234	
==>ed( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3130	3234	
==>ed( %param<after> )  { $start = %param<after>;  $start_is_open = Bool::True };
        if defined( %param <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	1545	1674	
==>if $@;
	    print "",(map{defined $_ ? $_ : 'undef'}@result),"\n";
            next;
        }
        if ($line =~ /\A:l\s+(\S+)/ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	2337	2448	
==>when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ " <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	2337	2448	
==>when "Target" { $header ~= "\nWindow-Target: " ~ $value; }
            default { $header ~= "\n" ~ $temp_key ~ " <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2861	2958	
==>t, or at
least a valid representation of it that "honours the spirit of the
dialect", if the origi <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2861	2958	
==>t, or at
least a valid representation of it that "honours the spirit of the
dialect", if the origi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	168	367	
==>..)
    qq(...)
    qw(...)
    <... ...>
    <<... ...>>
    «...»

Quoting constructs are macros:

    macro quote:<qX> (*%adverbs) {...}

=head1 See also

S02

=cut

# TODO - imp <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2468	2616	
==>ion; 1"
            or die "ERROR: perl: Version $] is installed, ".
                   "but we need version >= $perl_version";
    }

    my %args = <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	3427	3573	
==>ion; 1"
            or die "ERROR: perl: Version $] is installed, "
                . "but we need version >= $perl_version";
    }

    my %args = <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	334	477	
==>note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db') <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	334	477	
==>note the C<--> in the C<#!> line):

    #!/usr/bin/pugs --
    use v6;
    use perl5:DBI;
    my $dbh = DBI.connect('dbi:SQLite:dbname=test.db') <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	11914	12080	
==>cos) {
	    # MacOS can only do two processes under MPW at once;
	    # the test itself is one; we can't do two more, so
	    # write to temp file
	    my $stdin = qq{ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	27234	27328	
==>d('foo')))");
is(t($app_to_str), "∀α. (str → α) → α", ":t (λx. (x 'str'))");
is(t($ap <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15423	15534	
==>er('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $n <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9620	9731	
==>er('POSIX_xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11257	11377	
==>d, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11257	11377	
==>d, but
in practice there are cases like old-style Netscape cookies (see
L<HTTP::Cookies>) where "," is used as part of th <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2524	2624	
==>the problem of supplying Perl.pm itself - but I think to

do it Right As Specified is more important. <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2429	2528	
==>the problem of supplying Perl.pm itself - but I think to
do it Right As Specified is more important. <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	1554	1838	
==>er) . "'";
                    @buffer = ();
                }
                else {
                    $in_string = 1;
                }
            }
            elsif ($in_string) {
                push @buffer => $t;          
            }
            
            # deal with b <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	14624	14737	
==>l = "perl$exe";
	    eval "require File::Spec";
	    if ($@) {
		warn "test.pl had problems loading File::Spec: $@ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	15838	15929	
==>://www.thethirdmanifesto.com/>, and its authors have also written
several books and papers a <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	15838	15929	
==>://www.thethirdmanifesto.com/>, and its authors have also written
several books and papers a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	8730	8827	
==>Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
repre <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	8730	8827	
==>Model::Node ("Node").

I<Note that the "Rosetta::Model" package serves only as the name-sake
repre <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10155	10292	
==>.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10155	10292	
==>.delete(@_[0]);
        } elsif (@_ == 2) {
            %!cookies{@_[0]}.delete(@_[1]);
        } elsif (@_ == 3) {
            %!cookies{ <==
2	/Users/nnunley/pugs/util/func_refact.pl	2813	2940	
==>s;

    # prompt the user
    # return list of newly selected functions
}

sub print_cand {
    my ($cand, $data) = @_;
    my ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Tokenizer/blib/lib/Pugs/Grammar/Str.pm	585	759	
==>,} }
            ) );
    __PACKAGE__->add_rule( q(") => q(
                [ . | \\ \" ]* 
                \"
                { return { double_quoted => "\"" . $() ,} } <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	3222	3331	
==>rror(0, "PANIC! %d %s", &RxPOS, &RxCUR) if &RxPOS != &RxLEN;

  if (! &SIZE_ONLY) {
    $self->{tree} = pop @{ <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	20827	20925	
==>$val->{_dirs}->{$subsubdir};	    
	    $val->{_dirs}->{$subsubdir}->{_parent} = ($val->{_parent} || <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	788	929	
==>ere quite different!
$config{'root'}             = [ $Cwd->subdir('fr') ];
$config{'temp_dir'}         = [ tmp                     => SUBDIR_O <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	24516	24597	
==>_captures_set_if_undef(N,X,amat(C0,G),amat(C1,G)) :- replace_at_n_if_undef(N,X,C0, <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	4657	4753	
==>bal_object.<[[Put]]>(GetPropertyName($V),$W);
    return;
}

# 8.8 The List Type
class JSX::Inter <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	1946	2064	
==>de;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1]. <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	1946	2064	
==>de;
}

#rule nodes

sub capturing_group {
    return 
        "$_[1] capture( '',\n" .
        emit_rule( $_[0], $_[1]. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2635	2736	
==>er.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2635	2736	
==>er.subset($self);
    return $rv;
}
method proper_superset($self: Set $other) returns Bool {
    my $r <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16579	16691	
==>*utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21005	21117	
==>*utf8_substr;    /* utf8 variant */
        };

min_offset and max_offset would be plausible places to hide data. <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	16881	16981	
==>ld have various options,
such as whether to do optimize...

  # strings
  /foo|father|fort/  => /f(?: <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	8083	8187	
==>urns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	8083	8187	
==>urns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head1 METHODS <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	719	1127	
==>::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	719	1127	
==>::Engine::Example object:
    # (None Yet)

###########################################################################



###########################################################################

} # class Rosetta::Engine::Example

###########################################################################
###########################################################################

=pod

=encoding utf8 <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	7326	7447	
==>ED} =~ /perl5/i) {
#        $ghc_flags .= " -isrc/perl5 -Isrc/perl5 ";
        $ghc_flags .= " -isrc/perl5 ";
        $ghc <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	9482	9593	
==>>
    | <'0'> <!before <DecimalDigit>> #lookahead
    | <HexEscapeSequence>
    | <UnicodeEscapeSequence>
}
rule <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	5843	6061	
==>if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Por <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	5843	6061	
==>if $path_spec;
                            take qq(\$Domain="$domain") if $domain ~~ m:P5/^\./;
                            
                            if ($port.defined) {
                                my $p = '$Por <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10143	10251	
==>urns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Als <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10143	10251	
==>urns a new set containing all parameters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Als <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	2112	2241	
==>Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expres <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	2112	2241	
==>Compiler::PIL::PIL $.value;
    submethod BUILD () {
        type_check $.value.vtype, 'Stmt';
    }
    method vtype () { 'Expres <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	17087	17184	
==>itten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your R <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	17087	17184	
==>itten in Perl, it is this "Rosetta" file which provides
the glue between your Perl code and your R <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	778	886	
==>tr $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	778	886	
==>tr $msg) { say "> $msg" }

# Definition of the bot "class"
sub new_bot(
  Str $nick,
  Str $username = $nick, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7320	7422	
==>pdate %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reaso <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7320	7422	
==>pdate %channels and %users accordingly.
    ./add_handler("KILL", -> $event {
      my ($killee, $reaso <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19809	19909	
==>amic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages its
reso <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19809	19909	
==>amic capabilities.>

I was inspired to have this organization partly by how Mac OS X manages its
reso <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12074	12164	
==>osetta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12074	12164	
==>osetta::Model::Document object.  If
the optional named parameter @root_nodes (an array ref) <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	2066	2173	
==>tted smoke was already submitted!";
    exit;
  }

  my %smoke;
  $html =~ /pugs_versnum: ([\d.]+)/ and $smo <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	1631	1723	
==>turn_value->isa($self->{sig}->returns) || $return_value->isa('nil')))
        || confess "bad <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2409	2532	
==>erl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'liter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	2593	2716	
==>erl 5 code.

=back

=head2 Implemented Features

 <ws> 
 #comment\n 
 . 
 ? * + *? +? ??
 literal
 [] 
 ()     
 |

 <'liter <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27198	27321	
==>dd your own...
    $self->add_handler('&' => ...);  # see below
  }

=item $parser->add_flag($flag, $code)

This method crea <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14338	14437	
==>to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14338	14437	
==>to trap the exception itself.

=item $h.as_string

=item $h.as_string( $eol )

Return the header fie <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	864	1000	
==>he multidimensional arrays of the match
                     object, telling captures where in the deep structure
                     to <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	864	1000	
==>he multidimensional arrays of the match
                     object, telling captures where in the deep structure
                     to <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15498	15590	
==>ties::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15498	15590	
==>ties::encode_numeric($a);

The module can also export the %char_to_entity and the %entity_to_ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19632	19772	
==>ist --> List )
{
    @list; #XXX - sufficient to "Forces List Context"?
}


 multi Conversions::Item::item ($item --> Item )
{
    $item; #XX <==
2	/Users/nnunley/pugs/util/grokprims.pl	1115	1221	
==>ame};
  my $a0 = $op->{args}[0];
  my $a1 = $op->{args}[1];
  my $arity = 0+@{$op->{args}};

  if (/prefix/ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	147	248	
==>umper;

our $operator;

# TODO - implement the "magic hash" dispatcher
our %hash;

#our @subroutine_na <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	2319	2460	
==>rnation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	2330	2471	
==>rnation( [
        ruleop::capture( 'star', 
            ruleop::concat(
                ruleop::capture( 'term', \&term ),
                ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule.pm	84	186	
==>ackage Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Bala <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule.pm	84	186	
==>ackage Pugs::Grammar::Rule;
use strict;
use warnings;
no  warnings qw( once redefine );

use Text::Bala <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2501	2613	
==>ere it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source represe <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2501	2613	
==>ere it's at, baby, yeah!

=item L<Perldoc::DOM::PI>

Placeholder for dummy nodes that contain only source represe <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	755	863	
==>e scalar value

		# simplify [["Foo"]] into ["Foo"] 
		#$type = [$type]; # and "Foo" into ["Foo"]
		while (re <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	395	494	
==>\|\\"|.)*?\"|[\:\,\=\{\(\[\}\)\]]|\w+)};   #" 
}

# JSON parser - creates an Array [of Array]* of St <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	2090	2207	
==>pile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $ter <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2871	2988	
==>pile_rule( '" .
            quotemeta( $fix . ':<' . $id . '>' ) . "' );\n";
}
sub node::sub_application {
    my $ter <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6405	6514	
==>Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Dete <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6405	6514	
==>Str $text = undef;
#    SET_MEMBER:
    for @{.get_set_member_combinations()} -> $module_name {
        # Dete <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	127	251	
==>{
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compil <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	127	251	
==>{
    my @paths = @_paths.reverse();
    for @paths -> $path {
        if ($path eq '') {
            $*ERR.say("Empty compil <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel.pl	3214	3357	
==>aque_instance_id(shift)
        },
        'class' => sub ($) {
            ::opaque_instance_class(shift)
        }
    },
);

# < Class is a s <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3933	4051	
==>aque_instance_id(shift)    },
        'class' => sub ($) { ::opaque_instance_class(shift) }
    },
);

# < Class is a s <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	1476	1587	
==>t> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object> <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	1476	1587	
==>t> = %param<span> if defined( %param<span> );

    if defined( %param<object> ) 
    {
        if %param<object> <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	5228	5329	
==>push @termStack, $operator;

  expect_oper:
  goto end if ( $position >= $lastPosition );
  my $curren <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2728	2846	
==>ap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = " <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2728	2846	
==>ap_year($.year) ?? @PreviousMonthDoLY !! @PreviousMonthDoY;

    @doy[$.month - 1] + $.day;
}

method ymd (Str $sep = " <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/v6.pm	1643	1758	
==>perl5$/i;
    splice(@ARGV, 0, 2) if $ARGV[0] =~ /^-B$/;

    if (@ARGV and $ARGV[0] =~ s/^-e//) {
        $code = ( <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8434	8527	
==>perators must have the same symbol, and are also unified recursively
multi unify => ('type::op <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1529	1668	
==>::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1529	1668	
==>::KeyedText::Message.new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	11669	11773	
==>unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4312	4416	
==>unicode property)
  $self->add_handler('\P' => sub {
    my ($S, $cc) = @_;
    $S->error(RPe_EMPTYB, 'P' <==
2	/Users/nnunley/pugs/util/addauthors.pl	798	948	
==>= qr/$re/i;
    foreach my $a (@$authors) {
      if ($a->{wholeline} =~ $re) {
        $author = $a;
        last;
      }
    }
  }
  if (!$author) { <==
2	/Users/nnunley/pugs/inc/Module/Install/Pugs.pm	535	642	
==>self->WriteAll(@_);

    $self->pugs_fix_makefile;
}

sub set_makefile_macros {
    my $self = shift;

    p <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18940	19040	
==>on the wire.

When setting the referrer, this method removes the fragment from the
given URI if it is <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18940	19040	
==>on the wire.

When setting the referrer, this method removes the fragment from the
given URI if it is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	729	848	
==>t_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	729	848	
==>t_reversed { 
    my $const = shift;
    my $len = length( $const );
    '( ( substr( $s, $pos - '.$len.', '.$len.' ) eq <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository.pm	878	1111	
==>, $pkgs);
        my $tmpl = {
            root => {
                required    => 1,
                store       => \$root
            },
            config => {
                no_override => 1,
                default     => $conf <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	7829	7927	
==>e from S29draft.pod 8651.  In the List section.
# Prim.hs has a different return type.  List instea <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	836	963	
==>my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $nu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/perl6.pl	850	971	
==>my $string = "Pugs";
    if $string.isa("Str") { say "ok 1" } else { say "not ok 1" }
}

{
    my $num = 3.141;
    if $nu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	858	964	
==>n_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $c <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	869	975	
==>n_capturing_subrule {
    my ( $code, $tail ) = $_[0] =~ /^\<\?(.*?)\>(.*)$/s;
    return unless defined $c <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18662	18757	
==>example,
this module automatically tries to use slight variations of the nickname in the
login p <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18662	18757	
==>example,
this module automatically tries to use slight variations of the nickname in the
login p <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2837	2968	
==>eturn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1459	1590	
==>eturn {
        bool  => $bool,
        match => { \''.$name.'\'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	3106	3189	
==>omplement_next, $self.complement_previous, $set.complement_next, $set.complement_pre <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	3106	3189	
==>omplement_next, $self.complement_previous, $set.complement_next, $set.complement_pre <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/lrep.pl	98	206	
==>require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/lrep.pl	98	206	
==>require 'p6primitives-cached.pl';
use interface;
# External
use IO::File;

# Process command line arguments
m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2115	2213	
==>ostcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2115	2213	
==>ostcircumfix', name => '{', name2 => '}', assoc => 'left',
    precedence => 'equal', other => '[', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	2108	2233	
==>mainder,

        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),

    };

}



sub literal {

    return unless $_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	2026	2145	
==>mainder,
        ( $_[2]->{capture} ? ( capture => [ $extracted ] ) : () ),
    };
}

sub literal {
    return unless $_ <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25048	25143	
==>turns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation. <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	29600	29695	
==>turns a Bool indicating whether the argument C<$tuple> exists
in / is a member of this Relation. <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	373	517	
==>l we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because w <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	373	517	
==>l we're allowed to process 3 items
    until($bucket<conform>(3)) {
      sleep 0.1;
      # do things
    }
    
    # process 3 items because w <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12975	13132	
==>{
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12975	13132	
==>{
            s:P5:g/%([0-9a-fA-F][0-9a-fA-F])/{
                my $x = $0.uc;
                $x eq "2F"|"25" ?? "%$x" !! pack("C", :16($x));
            }/ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	609	709	
==>s
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *post <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	609	709	
==>s
multi *prefix:<∑>  ($nums) { [+] @$nums }
multi *prefix:<∏>  ($nums) { [*] @$nums }
multi *post <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4929	5059	
==>y and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model an <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4929	5059	
==>y and work with it.

=head1 OLD SYNOPSIS TO REWRITE

    ### DURING INIT PHASE ###

    use Rosetta; # also loads Rosetta::Model an <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	36726	36824	
==>upp2 .. grouppN (C<1>, C<2>, etc. when in C<(?(>)

=head2 eval

Family: assertion

Types: eval (C<( <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11246	11351	
==>->set(1,substr($X::str,$from,$to-$from),[],{},$from,$to);
        TAILCALL(&$c0,$c);
      };
      return <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	125	218	
==>itle>Public HTML</title>
</head>
<script>
function openNewWindows() {
    var links = document <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3465	3578	
==>set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3465	3578	
==>set;
    my $span1 = $self._normalize_parameter( $span );
    my $union = $span0.union( $span1 );
    return $span <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	17597	17695	
==>le and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. The C <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	17597	17695	
==>le and
the compiler modules themselves.

=item *

Easier debugging of compiled/filtered code. The C <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	3275	3373	
==>ence($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) }) <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	3275	3373	
==>ence($self: Set $other) returns Set {
    my $rv = set($self.members.grep:{ !$other.includes($_) }) <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie.pm	552	771	
==>l(2),
                        Sym('$x'),
                    ),
                ),
            ),
        ),
        Val(2),
    ),

    use Blondie::Backend::Perl; # something to run the program
    
    my $result = Bl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	773	874	
==>tr is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI> <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	773	874	
==>tr is export { %*ENV<PATH_INFO> || '' }
sub request_uri     returns Str is export { %*ENV<REQUEST_URI> <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	9590	9710	
==>=> { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	9590	9710	
==>=> { $inside },
    last_traffic  => { $last_traffic },
    last_autoping => { $last_autoping },
    channels      => { $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	1282	1398	
==>our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vim: ft=per <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	1282	1398	
==>our role Parser {
    method compile() {...}
}

our role Rule {
    method run($input, $match) {...}
}

# vim: ft=per <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	22172	22268	
==>gil{$sigil};
	Carp::confess "bogus name?: '$n' with sigil '$sigil'" if !$space;
	my @parts = spli <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	10881	10989	
==>on_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	10881	10989	
==>on_id;
    my Rosetta::Model::Node $fnd_get_person = $irl_doc.build_node_tree(
        [ 'function', { 'name' <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	17414	17518	
==>$_[0] eq $expected : $expected },
		$runperl_args, $name);
}

#
# fresh_perl_like
#
# Combination of run_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	11617	11723	
==>html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header. <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	11617	11723	
==>html text/plain image/*>;
 @accepts = $header.header('Accept');  # get multiple values
 $accepts = $header. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1329	1435	
==>ey!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_asse <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1329	1435	
==>ey!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $msg_key );
    $?SELF!_asse <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10358	10471	
==>ans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    sa <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10358	10471	
==>ans()`

Returns a list of `Span` objects.

- `iterator()`

Returns an iterator:

    $iter = $set.iterator;
    sa <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Closure.pm	4414	4527	
==>"you can only add symbol types to a param list"
            foreach @_;
    $self->SUPER::push(@_);
}

sub equal_t <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	5375	5477	
==>perator {
  my($name,$re,$prec)=@_;
  $re =~ s/(\W)/\\$1/g;
  $re = "<ws>?".$re;
  my $op = Op->new($na <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	2673	2776	
==>embers.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	2673	2776	
==>embers.join(" ") ~ ")");
}


method union($self: Set $other) returns Set {
    set($self.members, $other <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	547	651	
==>alse }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	547	651	
==>alse }

method intersects ( Span::Int $span ) returns bool {
    my $i_start = $.start < $span.start ?? $ <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8712	8839	
==>ub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8712	8839	
==>ub { $_ + 1 },
        closure_previous => sub { $_ - 1 },
        :is_universe(1) );

    # all even integers
    $even_numbers <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2333	2446	
==>rce =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2333	2446	
==>rce =~
    /^\s*module\s+(.*?);.*\sinline\s/ms;
    my $module_name = $1;
    $module_name =~ s/-/__/;
    $module <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7393	7501	
==>$o->raw();
    return $o->mk_eater_for_re('\d') if $re eq '\d';
    return $o->mk_eater_for_re('\D') if $re e <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9001	9121	
==>pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10478	10598	
==>pkg
    sub dependency_satisfied {
        my $wanted  = shift or die "Wanted package required";
        my @list    = @{ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22265	22356	
==>C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E< <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22265	22356	
==>C<$bot.privmsg(to =E<gt> "...", text =E<gt> "...")>,
C<$bot.notice(to =E<gt> "...", text =E< <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	5069	5217	
==>ing to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I just mak <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	5069	5217	
==>ing to
                    # RFC 2616 section 13.2.4, but I don't know how to do it
                    # from this function interface, so I just mak <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Core.pm	892	1028	
==>f the match
                     object, telling captures where in the deep structure
                     to store what they've captured <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Core.pm	892	1028	
==>f the match
                     object, telling captures where in the deep structure
                     to store what they've captured <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4572	4721	
==>$use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@pa <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4572	4721	
==>$use_base_dirs = 0 if $dir eq updir();
        if ($use_base_dirs) {
            push(@base_dirs, $dir);
        }
        else {
            push(@pa <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11641	11783	
==>ible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11641	11783	
==>ible right quote
     (?-s:.*\n))        #      and rest of the line
    (.*?\n)             # $6 - Heredoc content
    (?<!\n[0-9a-fA-F]{40}\n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request.pm	817	968	
==>$new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.ne <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request.pm	817	968	
==>$new) is rw {
        my $old = $!uri;
    
        return Proxy.new(
            FETCH => { $old; },
            STORE => { $!uri = $HTTP::URI_CLASS.ne <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1696	1811	
==>*@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we c <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1696	1811	
==>*@y) >>

=head2 C<< infix:<`grep`> (Code &f, *@y) >>

Infix versions of C<map> and C<grep>.

These will go when we c <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1305	1412	
==>t {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

meth <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1305	1412	
==>t {
    return $item if $self.includes($item);
}

method size() returns Int {
    +$!members.values;
}

meth <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	7744	7841	
==>he numerical value
of the message.  If you use new() the F<Regexp::Parser> object will
still be re <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Tester.pm	662	788	
==>returns Str
    {
        # XXX - hack or pugsbug?
        return '' unless +@:diagnostics;

        my $diagnostics = @:diagno <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5104	5203	
==>{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan} <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5104	5203	
==>{$chan} = %!channels{$chan}<users>;
      }

      %!channels{$chan}<users>.delete(%!cache353{$chan} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	646	747	
==>XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representat <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	646	747	
==>XML tree;
 #
 #  <sect1><title>NAME</title><para>foo</para></sect1>

 # Perldoc::DOM::Node representat <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	5295	5393	
==>.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	5295	5393	
==>.

See the LICENCE AND COPYRIGHT of L<Locale::KeyedText> for details.

=head1 ACKNOWLEDGEMENTS

The <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2606	2721	
==>eal references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	2594	2709	
==>eal references
    no strict 'refs';
    my $code = &$k( $v, $tab );
    return $code;
}

#rule nodes

sub non_captu <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	3235	3332	
==>k';
node_a 'Val', 'VList' , 'value' ,'unk';
node_a 'Val', 'VType' , 'value' ,'unk';

node_s 'Cxt', <==
2	/Users/nnunley/pugs/util/package-osx.pl	8790	8900	
==>") unless (-d "$dest$dirs");
    
        qx/cp -r $orig $dest$change_files{$orig}/;
        remove_svn("$dest$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9051	9145	
==>instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentati <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9051	9145	
==>instead refer to other above-named packages in this file.>

=head1 SYNOPSIS

I<This documentati <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2875	2993	
==>er worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initialization vector, a 
one-tim <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2875	2993	
==>er worth the name can.  To avoid 
this, make sure you combine the key with a nonce or initialization vector, a 
one-tim <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	17864	17978	
==>racter class.  The
character class C<[A-CB-E]> would have a character map of C<< { 65 => 1, 66
=> 2, 67 => 2, 68 => <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	918	1030	
==>code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	918	1030	
==>code;

# category 'bare_statement'
# statements that don't need a semicolon
# - bare block
# - if, while, for
# - <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7272	7419	
==>why = shift;
    my $n    = @_ ? shift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	12101	12200	
==>e that is right before the parameter.

- `current( $x )`

Returns the parameter value if the paramet <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	12101	12200	
==>e that is right before the parameter.

- `current( $x )`

Returns the parameter value if the paramet <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	2723	2819	
==>' and 'value' pairs.  This
method should be called before any other methods, as it initialises th <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	2723	2819	
==>' and 'value' pairs.  This
method should be called before any other methods, as it initialises th <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/Match.pm	780	906	
==>a,$h,$from,$to)=@_;
    $$o->{'val_bool'}   = $b;
    $$o->{'val_string'} = $s;
    $$o->{'val_array'}  = $a;
    $$o->{'val_ha <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	9135	9242	
==>bsolutely no overhead

I'm not sure about this - failed matche's .end is undefined

=cut



### current impl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	8835	8938	
==>bsolutely no overhead
I'm not sure about this - failed matche's .end is undefined
=cut

### current impl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12548	12658	
==>ler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6023	6133	
==>ler('\X' => sub {
    my ($S, $cc) = @_;
    $S->warn(RPe_BADESC, 'X', ' in character class') if $cc;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	12926	13024	
==>ol`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These function <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12984	13082	
==>ol`

- `lives_ok (Code &code, Str $desc?, Bool :$todo, Str :$depends) returns Bool`

These function <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	292	412	
==>:Sortkeys = 1;

if ( @ARGV ) {
    my @a=<>;
    my $src = join('', @a);
    my $match = Pugs::Grammar::Perl6->parse <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/update.pl	2430	2551	
==>print '\begin{block}{';
		shift @file;
	        while (scalar @file) {
		    $chr = shift @file;
		    last if $chr =~ /\n <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	8343	8445	
==>->{name}
		or die "can't unify $x->{name} with $y->{name} in " . Dumper(@_);
};

# binary operators mus <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	12656	12789	
==>cument .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type' <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	12656	12789	
==>cument .= new();

    my Rosetta::Model::Document $document2 .= new(
        root_nodes => [
            {
                'node_type' <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17241	17366	
==>@_;
    $kind = "" if !defined $kind;
    my $Kind = ucfirst $kind;
    my @path = split(/::/,$pkg);

    my $tmp = "";
    my <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1288	1391	
==>ere's a super in my duper!"
        if $supers.includes($self);

    $self.SUPER::set_superclasses($supe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20691	20789	
==>age closest to your
preference.  Presumably the messages in these files are looked up by the
progra <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20691	20789	
==>age closest to your
preference.  Presumably the messages in these files are looked up by the
progra <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	1191	1330	
==>dir      => Cwd::abs_path(),
    };

    add_path(archlib            => $config); 
    add_path(privlib            => $config); 
    add_pat <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	25572	25657	
==>,F,G,H,I,J)),X,amat(C0,flgs(A,B,C,X,E,F,G,H,I,J))).
flag_i(amat(_,flgs(i,_,_,_,_,_,_,_ <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	2087	2191	
==>mat = $X::current_match;
    my $cap = $X::cap; local $X::cap = [];
    local $Z::oop{$id} = {ops=>[undef <==
2	/Users/nnunley/pugs/misc/Blondie/t/lib/Blondie/SmokeBackends.pm	301	407	
==>m);

		can_ok($m, "new");
		isa_ok($m->new, $m);

		can_ok($m, "run");
		smoke_runtime($m);
	}
}

__PACKAGE <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	314	422	
==>?p6ws>?
        { return $() }
RULE
*{'grammar'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    <imm <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	270	401	
==>rsion uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	270	401	
==>rsion uses Set::Infinite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12724	12854	
==>ct(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	6199	6329	
==>ct(clump => '\X');
  });

  # hex character
  $self->add_handler('\x' => sub {
    my ($S, $cc) = @_;
    ${&Rx} =~ m{ \G ( \{ | .{ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	1420	1534	
==>>pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # H <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	1420	1534	
==>>pmc_use_means_no;
    goto &{$class->can('pmc_import')};
}

sub pmc_import {
    my ($class, @args) = @_;

    # H <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	31187	31284	
==>each tuple.  The new Relation::Example has all
of the tuples of the original (or rather, the corre <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14589	14689	
==>arn "unbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{pa <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	2070	2170	
==>arn "unbound params @{ $self->{params} }" if $self->{params} and @{ $self->{params} };
    $self->{pa <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	10522	10636	
==>elf->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10139	10253	
==>elf->add_handler('+' => sub {
    my ($S) = @_;
    push @{ $S->{next} }, qw< minmod >;
    return $S->object(quant <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	8609	8721	
==>ake responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	8609	8721	
==>ake responsibility for any 
insecurity caused by bugs in the Cipher API or individual ciphers.>>

=head1 SEE ALSO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9747	9900	
==>e: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COM <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9747	9900	
==>e: INSERT INTO person
    #       SET id = :new_person.id,
    #           name = :new_person.name,
    #           sex = :new_person.sex;
    #       COM <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	3476	3588	
==>q "PVMG";

		my $flags = $obj->flagspv;

		return "IV" if $flags =~ "IOK";
		return "PV" if $flags =~ "POK";

		d <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	957	1066	
==>qual($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:< <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	957	1066	
==>qual($two);
#}
#multi sub *infix:<!=> (Set $one, Set $two) {
#    $one.not_equal($two);
#}
#multi sub *infix:< <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9879	9979	
==>$I1 = find_not_cclass .CCLASS_NUMERIC, target, pos, lastpos
    if $I1 <= pos goto err_closure
    $S <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3379	3483	
==>signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subnam <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3379	3483	
==>signature> \) }

rule psiglet { \( <siglet> \) }

rule scopedsubvar {
        <lexscope> <type>? &<subnam <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	943	1058	
==>Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	943	1058	
==>Ð',  # capital Eth, Icelandic
    "Eacute"   => 'É',  # capital E, acute accent
    "Ecirc"    => 'Ê',  # capital <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	9628	9749	
==>) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	9628	9749	
==>) !! $0}/;
    $result ~~ s:Perl5:g/(&(\w+);?)/{%entity_to_char{$1} // $0}/;
    
    $string = $result;
    
    return $ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26382	26478	
==>output, any
variable values which are references will be passed by reference, so you
may store re <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26382	26478	
==>output, any
variable values which are references will be passed by reference, so you
may store re <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16464	16588	
==>safe {
        (int($n) == $n) ?? int($n) !! $corner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1525	1645	
==>8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1525	1645	
==>8 encodings supported";
    }
    $URL_ENCODING = $encoding;
}

# utility functions

sub header (
    Str  $content_type? <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28024	28126	
==>n use the C<--perl> switch.

=item C<HARNESS_PERL_SWITCHES>

Its value will be prepended to the switche <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	5268	5367	
==>e>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	5268	5367	
==>e>

    $cipher_obj.zeroize();

Tells the cipher object to clear its internal state as completely as <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	1203	1325	
==>name) or
            die "copy: $!";
        print <<".";
*** Default build config file created.
    You can edit some sett <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8956	9061	
==>id regexp_hook_on() {
  if(previous_comp_hook != NULL) { croak("Cant install twice"); }
  previous_comp_ho <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	20342	20531	
==>else => comb(
						fun => comb(
							fun => ide("fac'"),
							param => comb(
								fun => comb(
									fun => ide("sub"),
									param => ide("x"),
								),
								param => val <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	2100	2212	
==>$name'} = sub {" . '
    my $grammar = shift;
    #warn "rule argument is undefined" unless defined $_[0];
    $_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	25314	25426	
==>s.  The tests that use regmust have a
 * heuristic that disables the test if it usually matches.]
 *
 * [In fact, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6751	6901	
==>b ruleop::abort { 

    my $op = shift;

    return sub {

        my $match = $op->( @_ );

        ### aborting match: $match

        $match->{abort <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6529	6674	
==>b ruleop::abort { 
    my $op = shift;
    return sub {
        my $match = $op->( @_ );
        ### aborting match: $match
        $match->{abort <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	17027	17145	
==>eiling;

    sub do_floor($n) is primitive is safe {
        ($n < 0) ?? (-int(1-$n)) !! int($n)
    }
    sub floor($n <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	3934	4049	
==>/./xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/ <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	3934	4049	
==>/./xx -> xx/xx
    $path ~~ s:perl5:g{^(\./)+}{} unless $path eq "./";   # ./xx      -> xx
    $path ~~ s:perl5:g{^/ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9172	9311	
==>doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'cr <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9172	9311	
==>doc.build_node_tree(
        [ 'procedure', { 'name' => 'create_tb_person' }, [
            [ 'routine_body', undef, [
                [ 'cr <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15937	16032	
==>n be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

B <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15995	16090	
==>n be found in the Test::Harness
distribution.

= AUTHORS

Audrey Tang <autrijus@autrijus.org>

B <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	28748	28843	
==>$mapping> value set members do not match invocant
Relation attribute names, or duplicate any oth <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	33300	33395	
==>$mapping> value set members do not match invocant
Relation attribute names, or duplicate any oth <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3372	3546	
==>hes[1] 

                if $matches[1]{abort};

            if ( ! $matches[1]{bool} ) {

                if ( ! defined( $matches[1]{state} ) ) {

                    return <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3265	3435	
==>hes[1] 
                if $matches[1]{abort};
            if ( ! $matches[1]{bool} ) {
                if ( ! defined( $matches[1]{state} ) ) {
                    return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	431	559	
==>macros

    

=head1 Definitions



### change to kwid? - easier to indent (but not supported by p5 by default)

### move definit <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	409	532	
==>macros
    
=head1 Definitions

### change to kwid? - easier to indent (but not supported by p5 by default)
### move definit <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Query.pm	170	363	
==>ethod params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (wa <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Query.pm	170	363	
==>ethod params () {
        return @!params;
    }
    
    multi method param (Str $name) {
        my @val = %!params{$name};
        
        return unless @val > 0;
        
        return (wa <==
2	/Users/nnunley/pugs/docs/feather/~/gen.pl	189	318	
==>s() {
    var links = document.getElementsByTagName('A');
    for (var i = 0; i < links.length; i++) {
        var href = links[i] <==
2	/Users/nnunley/pugs/src/perl6/Prelude/PIR.pm	1529	1643	
==>, 0, 1) ~ substr $str, 1, chars($str) - 1;
}

sub shift (@a) is builtin is primitive {
    my $top = +@a -1;
    re <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9943	10041	
==>red".  The immediate validations
are performed at the moment the user tries to set the input, and i <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9943	10041	
==>red".  The immediate validations
are performed at the moment the user tries to set the input, and i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	7283	7400	
==>decimal digit '%s' ignored", $1) if $h =~ /([^a-fA-F0-9;])/;

      if ($cc) {
        $S->error(0, "\\X[A;B] in chara <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7111	7271	
==>x($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7111	7271	
==>x($mmat.capture_num[$num], $mmat.multidex, $subobj) 
                                            !! $mmat.capture_num[$num];
                            $newnump <==
2	/Users/nnunley/pugs/inc/PugsBuild/Config.pm	904	1015	
==>= @_;
    my $config_default    = 'config.yml';
    my $config_template   = 'util/config-template.yml';
    $fil <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	4906	5002	
==>tarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This progra <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	4906	5002	
==>tarch@urth.org>

= COPYRIGHT

Copyright (c) 2005, Dave Rolsky.  All rights reserved.

This progra <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Symbol.pm	1133	1256	
==>pod

=head1 NAME

symbol - the core symbol type

=head1 METHODS

=over 4

=item B<new (*native*) returns str>

=item B<to_na <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Output.pm	335	442	
==>sage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::O <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Output.pm	335	442	
==>sage ~~ s:perl5:g{\n(?!#)}{\n# };
    $.error_output.say( $message );
}

=pod

=head1 NAME

Test::Builder::O <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	3178	3313	
==>_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	4027	4162	
==>_data( $_[0], '$<val>' ) );
    return "    return $val;\n";
}
sub node::_print {
    my $op =   get_str( $_[0], '$<op>' );
    my $list <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10783	10892	
==>iphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10783	10892	
==>iphering>, *%options);
    return sub(Str $plaintext?) {
        if defined $plaintext  { return $self.cipher( <==
2	/Users/nnunley/pugs/util/package-osx.pl	2918	3048	
==>n_pge.pir
    );
    unless (grep /pugs-parrot/, @ARGV) { 
        @files = ();
    }

    push @files, qw(
        /usr/local/lib/ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Meta/Class.pm	1641	1741	
==>self:) returns Set {
    set(
        set( $self.all_superclasses, $self ).members.map:{ .get_attribu <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	1949	2049	
==>got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2007	2107	
==>got, Rule $expected, Str $desc?, :$todo, :$depends) returns Bool is export {
    my $test := not($got <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8390	8521	
==>ef" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8390	8521	
==>ef" returns 'Type' if the package name in $m is
    # not loaded, and it returns one of ['Class','Module', etc] if it is.
    # Note <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7573	7699	
==>$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	7561	7687	
==>$quantified;
$_[1]       \$bool = 0 unless
" .             $program . ";
$_[1]       { str => \\\$s, from => \\\$from, match => <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8432	8527	
==>when any block of characters is interpolated for modifiers.

=item I<end_element ('line_interpol <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8432	8527	
==>when any block of characters is interpolated for modifiers.

=item I<end_element ('line_interpol <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/TEA.pm	350	450	
==>ck_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/TEA.pm	350	450	
==>ck_size() returns int { 8 }

method cipher_block(Array $block) returns Array {
    my int($v0, $v1) = <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	21790	21895	
==>onstrate the difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	21790	21895	
==>onstrate the difference, it is useful to
compare the DBI and Rosetta.  See the file L<Rosetta::Overview>
d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	929	1041	
==>L::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	929	1041	
==>L::PILNoop
    does Perl::Compiler::PIL::PIL {
    method vtype () { 'Stmt' }
}

# PILExp :: LValue -> Expression <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	239	361	
==>ity );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
meth <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	239	361	
==>ity );
}

method is_empty        () { ! defined( $.start ) }
method size            () { $.end - $.start + $.density }
meth <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20488	20606	
==>).  Each node is an opcode plus a "next" pointer,
possibly plus an operand.

We don't care.


=head2 Internals:

  regn <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	6055	6188	
==>splice @$all_tests, 0, $this_size;
        defined(my $pid = fork) or die "Can't fork: $!";
        if ($pid) {
            push @{ $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	520	782	
==>{
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	520	782	
==>{
        return %TEXT_STRINGS{$msg_key};
    }
} # module Rosetta::Engine::Example::L::en

###########################################################################
###########################################################################

=pod

=encoding ut <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM.pm	703	798	
==>aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM.pm	703	798	
==>aliens that say
'tree' skit").

=head1 CREATING A Perldoc::DOM TREE

C<Perldoc::DOM> trees are s <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	988	1082	
==>ode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	988	1082	
==>ode<enciphering> >> or C<< :mode<deciphering> >>.  The C<:all> 
option will cause the module to <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3797	3896	
==>he Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

C <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3797	3896	
==>he Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new()`

C <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	860	979	
==>->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	860	979	
==>->{match};
    return join( '', map { _str( $_ ) } values %$match )
        if ref( $match ) eq 'HASH';
    return $matc <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	908	1013	
==>port { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @a <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	908	1013	
==>port { return -> $y { $x } }
sub tail(@array)  is export { @array[1...] }
sub init(@array)  is export { @a <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9732	9833	
==>ne
simply returns, you can assume that it has succeeded, even if the return
value is undefined.

Roset <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9732	9833	
==>ne
simply returns, you can assume that it has succeeded, even if the return
value is undefined.

Roset <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11196	11298	
==>live.  The Document class is pure and deterministic,
such that all of its class and object methods will <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11196	11298	
==>live.  The Document class is pure and deterministic,
such that all of its class and object methods will <==
2	/Users/nnunley/pugs/examples/algorithms/Newton.pm	266	384	
==>(2 * $delta);
}

sub newton(
    Num  $target,
    Code $f,
    Code +$fprime         = &approxfprime.assuming( f => $f <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	22474	22582	
==>ed and then exited.  The general concept is:

  if (into_scope) {
    push STACK, TREE;
    TREE = CURRENT->D <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	39834	39934	
==>r General Public License (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>) <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	39834	39934	
==>r General Public License (LGPL) as
published by the Free Software Foundation (L<http://www.fsf.org/>) <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7885	7988	
==>ble file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port o <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7885	7988	
==>ble file handling

= SYNOPOSIS

  use File::Spec::Win32;

= DESCRIPTION

This is a very primitive port o <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	10953	11117	
==>g  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # L <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	10953	11117	
==>g  = 0;
        $in_login_phase = 0;
        %channels       = ();
        $queue<clear>();
        $nickgen<reset>();
        debug "done.";
      }
    },

    # L <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	6460	6573	
==>method)) returns nil
    ((($self: get_attr (symbol new (%:methods))) store ($label $method))))

=cut

{
    # add <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	7680	7780	
==>ce_object(anyof_class => alpha => $neg, $how);
  });

  # alnum POSIX class
  $self->add_handler('POS <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	853	959	
==>esn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	853	959	
==>esn't print, tagB isn't active
	note "And here too!";			# Implicit tag 'main', is printed

=head1 DESCRIPTI <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7460	7555	
==>$text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_ke <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7460	7555	
==>$text = .get_template_text_from_loaded_module( $module_name,
            $message_cpy.get_msg_ke <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4043	4145	
==>string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4043	4145	
==>string[0..3])>0) {
      my Int @index = splice @string,0,4;
      take index(@index[0],2,@index[1],4,0 <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	3356	3461	
==>on_numeric' if !((~$$x & $$x) eq 0);
	return 'scalar_numeric';
    }
    return lc($ref) if $ref =~ /\A(?: <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/List.pm	5169	5272	
==>) returns str>

=item B<each (closure) return nil>

The closure here will be passed a reference to the c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	817	917	
==>ite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: jo <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	817	917	
==>ite list 
# TODO - does zip() has additional parameters?
# TODO - document unsupported operations: jo <==
2	/Users/nnunley/pugs/util/testgraph.pl	398	492	
==>amlfile) or die "Couldn't open $yamlfile for reading: $!";
binmode $yamlfh, ":utf8" or die "bin <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12065	12163	
==>its_int(C), p6_oct_chars_more(Rc0,R), !.
p6_oct_chars_more(Rc0,Rc0)             --> {true}.

p6_hex <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	6996	7098	
==>Multimethods::Pure;
use Data::Dumper;


# The unification of the various types depends on their data... <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	6446	6584	
==>investigation.

                # For now this means that we only allow compilation on
                # the module content; not the DATA s <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	6446	6584	
==>investigation.

                # For now this means that we only allow compilation on
                # the module content; not the DATA s <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	6011	6121	
==>{$new}($pkg, _top => $top );
    }

    $self->{extensions} ||= [];
}

sub find_extensions {
    my ($self, $pa <==
2	/Users/nnunley/pugs/util/build_pugs.pl	6130	6233	
==>s -package pugs-HsSyck );
    if ($^O =~ /(?:MSWin32|mingw|msys|cygwin)/) {
        push @pkgs, -package <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Bit.pm	1585	1685	
==>THODS

=over 4

=item B<new (*native*) returns bit>

=item B<to_native () returns *native*>

=item B< <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	13408	13506	
==>maintenance concerns.
  That said, the use of internals is rather limited, and in a rather
  stable <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	445	557	
==>sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Pe <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	445	557	
==>sum_factorial { [+] 0..$_! }
    ';
    print sum_factorial(3); # 21

=head1 DESCRIPTION

Is it Perl 5?  Is it Pe <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	25884	25976	
==>cant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate a <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	30436	30528	
==>cant
Relation attribute names, or any C<$mapping> values duplicate each other,
or duplicate a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	35447	35546	
==>: one object

=head2 group

Family: group

Types: group (C<(?:>, C<(?i-s:>)

Data: array reference o <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	12649	12763	
==>C)) --> "\\", ("c","C"), [Open], brackets(Open,Close),
  p6_named_character_tail(Name,Close), !, uncode_charname_to <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	409	525	
==>ome/dir' )

C<_mkdir> creates a full path to a directory.

Returns true on success, false on failure.

=cut

sub _mkd <==
2	/Users/nnunley/pugs/blib6/lib/CGI/Remote.pm	179	275	
==>{ %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_IN <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI/Remote.pm	179	275	
==>{ %*ENV<REMOTE_ADDR> || '127.0.0.1' }
sub remote_ident    returns Str is export { %*ENV<REMOTE_IN <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	1287	1396	
==>tever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	1287	1396	
==>tever we end up
 # doing with whitespace for the round-tripping

 $title->add_daughter($text);

 # etc etc
 my <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	27571	27672	
==>w Relation has all
of the tuples of the original (or rather, the corresponding extension of
each tuple <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	32123	32224	
==>w Relation has all
of the tuples of the original (or rather, the corresponding extension of
each tuple <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23115	23225	
==>n to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a comma <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23115	23225	
==>n to be replying lest they end up in a loop with
  another automaton.

=head2 C<$bot.raw("...")>

Sends a comma <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	3134	3251	
==>x zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintr <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	3134	3251	
==>x zone { yada zone }

rule signature {
        [<parameter> [<[,:]> <parameter> ]* ]?
}

# The sub form

regex subintr <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	559	1045	
==>o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	559	1045	
==>o            57 5
#          7 H            24 Y            41 p            58 6
#          8 I            25 Z            42 q            59 7
#          9 J            26 a            43 r            60 8
#         10 K            27 b            44 s            61 9
#         11 L            28 c            45 t            62 +
#         12 M            29 d            46 u            63 /
#         13 N            30 e            47 v
#         14 O            31 f            48 <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	5360	5500	
==>print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 post <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	5360	5500	
==>print Dumper $match->();
}

{
    my $match = $grammar->parse( '{1+@a{8}}' );
    ok( 
        postfix( $match->() ) eq 
        '1 @a 8 post <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4234	4352	
==>ex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4234	4352	
==>ex(@index[2],6,@index[3],0,0xFF); # 2.octet
    }

    if (all(@string[0..2])>0) {
      my Int @index = splice @string <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Builtins.pm	48	144	
==>:Builtins;

use strict;
use warnings;

use Blondie::Prelude;
use Blondie::ADTs;
use Blondie::Node <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2393	2508	
==>" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_li <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2393	2508	
==>" if $proto.defined;
        $status_line ~= " ($status_message)" if $status_message ne $message;
        $status_li <==
2	/Users/nnunley/pugs/misc/Date/lib/Date/Format/ISO8601.pm	129	270	
==>(\d{2}|\d{4}) -? | -)
        # month and day
        (?: (?: (\d\d) -? | - ) (\d\d) | (\d{3}) | [wW](\d{2}) )
        # optional time delimet <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	667	790	
==>$_[2],} }", 
    circumfix_non =>     
        "'name' exp 'name2' \n" .
        "\t{ \$_[0]->{out}= {fixity => 'circumfi <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8556	8757	
==>lue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elem <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8556	8757	
==>lue::List.new(
                cstart => coro {
                        my $x = $ret.shift // yield;
                        yield $count++; 
                },
                celems => sub { $ret.elem <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	6345	6619	
==>eld;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yie <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	6345	6619	
==>eld;
                        &*unshift(@ret: &$code($x)); 
                        yield @ret.shift while @ret;
                        return;
                },
                cend => coro {
                        my @ret; 
                        my $x = $ret.pop // yie <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	845	956	
==>l::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.v <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	845	956	
==>l::Compiler::PIL::PILExp    { ./gen(.value, $ng) }

            when ::Perl::Compiler::PIL::PILPos    { ./gen(.v <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13221	13333	
==>vername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic se <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13221	13333	
==>vername and time() - $.last_traffic >= $autoping and time() - $.last_autoping >= 60) {
      debug "No traffic se <==
2	/Users/nnunley/pugs/blib6/lib/lib.pm	592	684	
==>name, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hopi <==
2	/Users/nnunley/pugs/ext/lib/lib/lib.pm	592	684	
==>name, version_dir, version_arch_dir
# and inc_version_list code from lib.pm because I am hopi <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	306	454	
==>$n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'A <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	394	542	
==>$n->{match};

    if ( ! defined $n || ref($n) eq '' ) {
        # empty node; maybe a <null> match
        return '';
    }
    if ( ref( $n ) eq 'A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23254	23354	
==>d is not modified by this module,
aside from appending the correct newline characters.

=head1 PSEUDO <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23254	23354	
==>d is not modified by this module,
aside from appending the correct newline characters.

=head1 PSEUDO <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6847	6948	
==>...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This will b <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6847	6948	
==>...}>

Returns any data the cipher needs to add at the beginning, before the 
ciphertext.  This will b <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2416	2546	
==>tes{$rule};
        if ( $op->{rule} ) {
            $template =~ s/<op>.*/<op> $op->{rule}/sg;
        }
        $template =~ s/<e <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	16452	16549	
==>complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contain <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	16452	16549	
==>complement()`

Returns a list of Spans. If one side of the span if Infinite, then the list contain <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	2413	2547	
==>apturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	2660	2794	
==>apturing_group => $_[0]{rule}() ,} }
    }
    unshift @rule_terms, 'capturing_group';
    
    rule colon {
        ( 
            [ \ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	355	545	
==>s_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	355	545	
==>s_line;
        
        if ($str ~~ s/^(.*)\n//) {
            $status_line = $0;
        } else {
            $status_line = $str;
            $str = "";
        }
        
        my $self <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	1628	1787	
==>rn parse( << [ >>, 'list', << ] >>, @_ ) 
                };
                ~@_.shift;
            },
    );
    for @start { @_.shift eq $_ or die "Expected P <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	1834	1989	
==>_[1] ] } }
    |   signature ',' signature
        { $_[0]->{out}= { 
            signature => [ 
                @{$_[1]{signature}}, 
                @{$_ <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	21404	21520	
==>ONFIG<file_sep> ~ $file;
      next if !(-e $path);
      my $yml = "$path.yml";
      if -e $yml && prefix_M($yml) < <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	7920	8035	
==>le (@tests) {
        $Last_ML_Print = 0;  # so each test prints at least once
        my($leader, $ml) = _mk_leader <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	18705	18821	
==>attribute to 2; the class above would render as C<[\w:]>.

=back

=head2 0.021 -- July 3, 2004

=over 4

=item I<anyo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	1343	1453	
==>$self = shift;
    my $dir  = $self->dir or return;

    return $dir->file( $self->config->_available );
}

=he <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	2720	2811	
==>tic_token { \:\w\S+ }

rule commit_something { <commit_rule> | <commit_alternation> | <commi <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	21297	21393	
==>RIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This l <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	21297	21393	
==>RIGHT

Copyright 1995-2004 Gisle Aas.

Copyright 2005 Ingo Blechschmidt (port to Perl 6).

This l <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	5140	5316	
==>LF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	5140	5316	
==>LF );
    }
    else {
        $document!root_nodes.push( $?SELF );
    }
    $!node_type   = $node_type;
    %!attributes  = %attributes;
    @!child_nodes = [];
    for @child <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Handler/POD.pm	2885	3038	
==>},
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split( <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Handler/POD.pm	2885	3038	
==>},
        end_modifier   => -> ($mod) { $fh.print(">") },      

        # Text handling
        verbatim => -> ($text) { 
            my @lines = split( <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1406	1505	
==>ect {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.ke <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1406	1505	
==>ect {
    return %!members{$self._stringify($item)}
}

method size() returns int {
    +%!members.ke <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	1137	1260	
==>t "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $su <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	1137	1260	
==>t "TO: $str\n";
    ${$_[0]}->{to} || ($_[0]->from + length( _str( ${$_[0]} ) ));
}

sub _box_submatch {
    my ($match, $su <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2864	2955	
==>e submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2864	2955	
==>e submit bug reports to C<E<lt>pugsbugs@perl.orgE<gt>>.

=head1 COPYRIGHT

Pugs is Copyright <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	8040	8153	
==>lf = shift;
    my $file = shift;

    my $command =  $self->_command();
    my $switches = $self->_switches($file <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	26805	26897	
==>× α)", ":t pair(10)");
is(t($pair), "(int × str)", ":t pair(10)('foo')");
is(t($fst), "int <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	14	123	
==>pan;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite' <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	14	123	
==>pan;

class DateTime::Span-0.01
    does Span;

=for TODO

    * change returned 'Inf' to 'DateTime::Infinite' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	29936	30035	
==>d an accessor method to read values from it by key.  Each template hash
key corresponds to the Messa <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	29936	30035	
==>d an accessor method to read values from it by key.  Each template hash
key corresponds to the Messa <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	1656	1755	
==>=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as para <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	1656	1755	
==>=head2 METHODS

=over 4

=item new_bucket(Num $rate, Int $burst_size)

The constructor takes as para <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	7683	7885	
==>namep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnu <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	7683	7885	
==>namep = { %$newnamep };
                            $newnamep{$name} = $newname;
                        }
                        my $obj = $mmat.clone(
                            capture_num => $newnu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	8148	8309	
==>", 
                map { _emit( $_ ) } @{$n->{param}} 
            ) .
            ')';
    }

    return _not_implemented( $n, "syntax" );
}

sub state <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	6881	7013	
==>ements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamement <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	6881	7013	
==>ements'
    my $match = $grammar->parse( '{1;2;3}' );
    ok( 
        postfix( $match->() ) eq 
        '1 2 3', 
        'stamement <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Response.pm	2037	2184	
==>te base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Response.pm	2037	2184	
==>te base.
        return undef;
    }
    
    method as_string (Str $newline = "\n") {
        my $code = ./code;
        my $status_message = HTTP: <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8141	8237	
==>m' directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

This e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8141	8237	
==>m' directive, followed by any text on the same line.

=item I<start_element ('verbatim')>

This e <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11905	12063	
==>(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $r <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11905	12063	
==>(?!cut\b)\w+.*\n)        # Pod starter line
    .*?                             # Pod lines
    (?:(?-s:^=cut\b.*\n)|\z)        # Pod terminator
)
/xsm;

my $r <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3061	3160	
==>ith 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to relate <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3061	3160	
==>ith 
the ciphertext, but it's safe to send it in the clear.)

=item Arcfour is susceptible to relate <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	9046	9169	
==>eturn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9239	9362	
==>eturn { runtime_alternation =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "captu <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1879	1984	
==>for some reason, directly returning this expression does not
    # yield the correct return value.

    sa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1879	1984	
==>for some reason, directly returning this expression does not
    # yield the correct return value.

    sa <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	5415	5551	
==>=> [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	5608	5744	
==>=> [ $1 ] ) : () ),
    }
};
    push @rule_terms, \&subrule;
*{'const_word'} = 

    sub { 
        my $rule = 
         ruleop::capture <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9392	9523	
==>t = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there is no ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9392	9523	
==>t = $child.height();
            $max_height = $child_height if $max_height < $child_height;
        }
    }
    # if there is no ch <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/repl.pl	948	1067	
==>p5),"\n";
	}
	print $cc->warnings;
        print "----\n";
	my @res = eval($p5);
	print $@ if $@;
        print "\n",(ma <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	16702	16848	
==><list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	16981	17127	
==><list>' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dumper( $match->{capture} );
        return { 
            %$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2242	2348	
==>ib6/ and lib/ distinctions -- .pm files should be both

p5 and p6 capable; p5 ones begin with



    packag <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2159	2262	
==>ib6/ and lib/ distinctions -- .pm files should be both
p5 and p6 capable; p5 ones begin with

    packag <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS/Text.pm	318	438	
==>.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $p <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS/Text.pm	318	438	
==>.substr($pos.pos, $text.chars) eq $text {
            &continue($match.clone(
                pos => $pos.clone(pos => $p <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	2521	2654	
==>));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	2521	2654	
==>));
    $out =~ s{\n+$}{};
    $out =~ s{^\n+}{};
    die $out if $out =~ /\n/;
    return eval $out;
}

sub quote_pugs {
    my $self <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	1163	1296	
==>rently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<opti <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	1163	1296	
==>rently.  Instead
of creating another level of arrays in the captures, it simply doesn't
put anything there if it didn't match.

C<opti <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	10775	11022	
==>erion  @by
                              ;               *@values
                             --> List )

 multi  List::sort( SortCriterion  $by = &infix:<cmp>,
                                              *@values
                             -- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Infix.pm	1853	1990	
==>',
    #);

    __PACKAGE__->add_rule( 
        name => 'eq',
        assoc => 'left',
        precedence => 'looser',
        other => 'i <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	4008	4148	
==>^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+| <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	4008	4148	
==>^(.*)_/;
            $s .= ' ' . $fixity . ':<' . ${$tree}{op1} . ${$tree}{op2} . '>';
        }
    }
    $s =~ s/\s+/ /g;
    $s =~ s/^\s+| <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	6837	6968	
==>);
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	6837	6968	
==>);
    return $span0, $span1 if $span1.isa( 'Span::Code' | $span0.ref );
    if $span1.isa( 'Span::Num' ) 
    {
        # say "span <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10439	10546	
==>ts to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The h <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10439	10546	
==>ts to avoid quoting before the => operator, you can use
'_' as a replacement for '-' in header names.

The h <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	7863	8040	
==>);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	7863	8040	
==>);
                return $?SELF;
            }
            
            $expires = time() + $maxage;
        }
        
        my @array = ($version, $val, $port, $path_spec, $ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	27456	27550	
==>ing> and C<$body>.  If C<$heading> is undefined or an empty Set, the
Relation::Example has zero <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	8796	8910	
==>ce {
		my $self = shift;
		my $node = shift;

		1;
	}
}

__PACKAGE__;

__END__

=pod

=head1 NAME

Blondie::TypeSaf <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	2287	2422	
==>& $n->{assoc}  eq 'list';
        
    if ( exists $n->{fixity} ) {
        return infix( $n )
            if $n->{fixity} eq 'infix <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1445	1563	
==>POS = 0;
  $self->{tree} = [];
  $self->{flags} = [0];
  $self->{next} = ['atom'];

  return 1;
}


sub parse {
  my ($ <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	155	268	
==>Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@ <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	155	268	
==>Junction module.

sub set (*@contents) returns Set is export {
    my $set = Set.new;
    say "Making a set of ({@ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	2733	2861	
==>sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	2733	2861	
==>sub eq '';
    return 
        "$_[1] capture( '*quantifier*',\n" . 
        "$_[1]     $sub(\n" .
        emit_rule( $term, $_[1 <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16974	17088	
==>esponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Ro <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16974	17088	
==>esponding argument is undefined).

Some sample usage:

    # Declare a unsigned 32-bit integer data type.
    my Ro <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6357	6465	
==>f = shift;
	my $sym = shift;

	require charnames;
	
	$sym =~ s/([^a-z0-9_])/charnames::viacode(ord($1)) . "__ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6818	6947	
==>ift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6818	6947	
==>ift;
    sub {
        $_[3] = { label => $label };
        my $match = $node->( @_[0,1,2], $_[3]{match}, @_[4,5,6,7] );
        $ <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	8899	9018	
==>se, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.d <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	8899	9018	
==>se, and in interactive Pugs delete
      # seems to work...
      %!users{$newnick} = %!users{$oldnick};
      %!users.d <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	2771	2898	
==>ntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	2771	2898	
==>ntax

#rule parameter {
#        [ <type>? <zone>? <variable> <trait>* <defval>?
#        | \[ <signature> \]     # treat single <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	1114	1232	
==>iled',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported M <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	1114	1232	
==>iled',
        413 => 'Request Entity Too Large',
        414 => 'Request-URI Too Large',
        415 => 'Unsupported M <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	3600	3702	
==>/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
cap <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	3600	3702	
==>/ will put an array
of arrays in $1.  This is done by setting C<$match.multidex> to the index where
cap <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4167	4321	
==>tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4155	4309	
==>tmp if $tmp;   
    }
    return 
        "$_[1] do {
$_[1]   my \$pos1 = \$pos;
$_[1]   do {
" . join( "\n$_[1]   } || do { \$pos = \$pos1;\n", @s ) . "
$ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	824	930	
==>t "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	1030	1136	
==>t "immediate_statement_exec: matching ###$_[0]###\n";
        #print "immediate_statement_exec: eval'ing co <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4320	4442	
==>],

      lib       => ['/lib' ],

      emitter   => 'Perl5' );



  # same thing, but reads lib/Pugs/Compiler/Language/Pe <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4171	4289	
==>],
      lib       => ['/lib' ],
      emitter   => 'Perl5' );

  # same thing, but reads lib/Pugs/Compiler/Language/Pe <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	34225	34362	
==>);
                $e->create('$dispatcher' => $e->get('$self:')->send('dispatcher', symbol->new(':canonical')));
                $e->crea <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23264	23364	
==><')'> <'{'> <FunctionBody> <'}'>
}
rule FormalParameterList :words {  # see clause 13
      <Identifi <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	3071	3246	
==>], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	3071	3246	
==>], $m ) ];
            }
        }
        else {
            $r{ $m->{label} } = _box_submatch( $_[0], $m );
        }
    }
    return \%r;
}

# as array
sub array {
    my @ <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15583	15679	
==>will easily be
able handle arbitrarily complex data structures automatically (at least
that is wh <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15641	15737	
==>will easily be
able handle arbitrarily complex data structures automatically (at least
that is wh <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	19790	19888	
==>thorization header that use the
"Basic Authentication Scheme".  In array context it will return two <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	19790	19888	
==>thorization header that use the
"Basic Authentication Scheme".  In array context it will return two <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	884	1017	
==>llsbin},

        installman1dir     => $Config{installman1dir},
        installman3dir     => $Config{installman3dir},
        instal <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	201	304	
==>ON = '0.02';

use strict;

# determine if the user needs nmake, and download it if needed
sub check_nmak <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	1601	1697	
==>fforts should likely take place there.

# Some raw development notes appear after __END__.

packa <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7958	8159	
==>fied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        pu <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	8422	8623	
==>fied_by( $k, $maybe );
    
                        ### not a good enough version
                        next unless eval "$maybe->{version} $op $ver";
                      
                        pu <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	29253	29380	
==>return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	29532	29659	
==>return { _return =>  match::get( $_[0], '$()' )  ,} }       ,
; 
        #use Data::Dumper;
        #print "capture was: ", Dump <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	2625	2747	
==>es = ( $self->{values}{provides} ||= {} );
    %$provides = (%$provides, @_) if @_;
    return $provides;
}

sub auto_provi <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1628	1712	
==>+)\]/'".$m->['.($1-1).']->from."'/ge;
	$expr =~ s/\$\+\[([0-9]+)\]/'".$m->['.($1-1).' <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	20050	20156	
==>xpects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	20050	20156	
==>xpects two arguments.  I<E.g.>:

  $h->authorization_basic = ($uname, $password);

The method will croak if <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Status.pm	2270	2378	
==>s_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDAT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Status.pm	2270	2378	
==>s_success  ($code) is export(:MANDATORY) { 200 <= $code < 300 }
    sub is_redirect ($code) is export(:MANDAT <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	11000	11164	
==>%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	11000	11164	
==>%rest);
                }
            }
        }
    }
    
    method as_string (Bool $skip_discardables?) {
        # XXX use nested gather/take
        my @ret = <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	542	651	
==>);

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# ma <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	542	651	
==>);

# has DateTime::Locale $.locale


# probably this should be done as "multi submethod BUILD", but that
# ma <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	17753	17864	
==>ique for a situation, and this is
mapped to a user-readable message at some point.  For example, Oracle
database <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	17753	17864	
==>ique for a situation, and this is
mapped to a user-readable message at some point.  For example, Oracle
database <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4088	4227	
==>defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4088	4227	
==>defined $_ }\
                 .map:{ normalize $_ };

      unless defined %!cache353{$chan} {
        # We initialize %!cache353{$chan} by <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	7277	7408	
==>d_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	7277	7408	
==>d_person_sex,
            ] ],
        ] ]
    );

    # Define the 'person' table.
    my Rosetta::Model::Node $tbd_person = $irl_d <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5911	6025	
==>lly) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule compiler

### Rule::co <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5707	5816	
==>lly) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule compiler
### Rule::co <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5854	5981	
==>c;
    return $S->object(alnum => 0);
  });

  $self->add_handler('\W' => sub {
    my ($S, $cc) = @_;
    return $S->force_obje <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	27086	27186	
==>, and report them as

  LEAKED FILES: scr.tmp 0 my.db

If relative, directory name is with respect to <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	5808	5904	
==>' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	5866	5962	
==>' subs

sub proclaim (Bool $cond, Str $desc? is copy, $todo?, Str $got?, Str $expected?, $depends <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	902	1001	
==>ble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	902	1001	
==>ble up to the parent (unless we are the root)
    $self.parent()!set_height($self) unless $self.is_r <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	3521	3655	
==>) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        d <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	3521	3655	
==>) { $end = Inf }

        $start_is_open = Bool::True if $start == -Inf;
        $end_is_open =   Bool::True if $end == Inf;

        d <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	5776	5957	
==>iteral                            # \x[...], \000

  term_literal:                                    # first char is in initchar
    mob = newfrom(mob, 0, "PGE::Exp::Literal")
    l <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	773	879	
==>$VERSION};
BEGIN {
    # All Module::Install core packages now require synchronised versions.
    # This wi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	22538	22642	
==>nt at all.

A Relation object has 2 main attributes (implementation details subject to
change) plus 1 ext <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	27090	27194	
==>nt at all.

A Relation object has 2 main attributes (implementation details subject to
change) plus 1 ext <==
2	/Users/nnunley/pugs/util/ghc_setup.pl	293	405	
==>my $prompt_register;

if ($args[0] eq 'copy') {
    if (@args != @ARGV and is_root()) {
        # if there's no p <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	32768	32876	
==>:MRO);
}

=cut

$::Class->send('add_method' => (
    # method label
        symbol->new('_make_ascendant_disp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13274	13405	
==>r for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13274	13405	
==>r for details of 3 people and add them to the database.
        $prh_add_person.prepare();
        for 1..3 {
            my Rosetta <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	11148	11301	
==>t {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.cur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	11148	11301	
==>t {
            $.current = $.span.next( $.current )
        }
        else {
            $.current = $.span.next( -Inf )
        }
        undefine $.cur <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	2480	2585	
==>TION

An object of this class represents a client's request.  It also contains extra
information passed on <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	2480	2585	
==>TION

An object of this class represents a client's request.  It also contains extra
information passed on <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1727	1835	
==>($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equa <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1727	1835	
==>($self:) returns Set {
    my $set = Set.new;
    $set.insert($self.members);
    return $set;
}

method equa <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/pp_install.pl	513	660	
==>h> ) {
        chomp;
        s/^$Root/\$Root/;
        print "\t$_\n";
    }
 
    ### show alternatives
    if( my $aref = $alts->{ $struct->{pack <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/compile_p6grammar.pl	788	892	
==>r'> <grammar_name>\;[<?ws>?<rule>]*{
        return "package " . "$<grammar_name>" .
	    ";\nuse Pugs::C <==
2	/Users/nnunley/pugs/perl5/Perl6-Container/Obsolete/Array.pm	1950	2086	
==>ift;
                my $value = shift;
                $self->_extend_to_slot($idx);
                $self->array_fetchElem($idx)->scala <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	16417	16540	
==>hift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	16417	16540	
==>hift;
      @!perms.push($cur);

      return $cur;
    }
  }

  sub strip_colon(Str $str is copy) {
    $str = substr $str, <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18749	18847	
==>e
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This modul <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18749	18847	
==>e
login phase (for example C<bot_>, C<_bot>, etc.) if the desired nick is already
used.

This modul <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	477	589	
==>$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but tr <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	477	589	
==>$/ {
			@msg.push(" at $caller.file() line $caller.line().\n");
		}
		print $ERR: @msg;
		return [~] @msg #but tr <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	13870	13975	
==>outine is exported by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_ <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	13870	13975	
==>outine is exported by default.

=item encode_entities( $string )

=item encode_entities( $string, $unsafe_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	3793	3890	
==>by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	3793	3890	
==>by the Set::Infinite class. 
For a more complete API, see `Set::Infinite`.

= CONSTRUCTORS

- `new <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4817	4912	
==>y qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny objec <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4817	4912	
==>y qualified function name.

=back

The following are the (pseudo) methods for Config::Tiny objec <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	27144	27257	
==>rser's handlers
    $self->SUPER::init();

    # now add your own...
    $self->add_handler('&' => ...);  # see be <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	2829	2948	
==>$.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    retur <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	2829	2948	
==>$.end;
    return Inf;
}

method previous ($self: $x is copy ) {
    $x = $x - $.density if defined $.density;
    retur <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Medium.pm	71	185	
==>:Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = P <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Medium.pm	71	185	
==>:Strategy;   # we use combinators from a strategy

our role Pos { }

has $.Pos;

submethod BUILD () {
    $.Pos = P <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	30781	30886	
==>e.  The Set Name comes first and makes up most of the module name; it
must be the same for every module in <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	30781	30886	
==>e.  The Set Name comes first and makes up most of the module name; it
must be the same for every module in <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/prog.pl	973	1077	
==>l,
    'c=s'       => \$compile,
    );

$Perl6::Run::OnPerl5::X1::BB::debug = $debug;
$Perl6::Run::OnPer <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	23063	23159	
==>eE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. No <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	23063	23159	
==>eE<gt>(target =E<gt> $nick|$channel, mode =E<gt> "+o iblech")>

Performs the C</MODE> command. No <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4855	4992	
==>ime2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($se <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4855	4992	
==>ime2str($time));
    }
  );
}

method date ($self: )                is rw { $self!date_header("Date")                }
method expires ($se <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8062	8157	
==>e item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, fol <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8062	8157	
==>e item.

=item I<end_element ('item')>

This event is fired once the last '=item' directive, fol <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	1739	1834	
==>.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AU <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	1739	1834	
==>.plugins;

=head1 DESCRIPTION

Perl 6 port of the C<Module::Pluggable::Fast> library.

=head1 AU <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	30644	30746	
==>se of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the correspondin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	35195	35297	
==>se of C<$heading>.  The new Relation has all of the tuples of the
original (or rather, the correspondin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Category.pm	2922	3029	
==>it_grammar_perl6 {
    # item=>'<item>',
    my ($self, $default) = @_;
    #print "emitting grammar in perl <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	17077	17181	
==>ly remain unused.
    my($pkg,$meta_object)=@_;
    my $meta = "${ROOT}::${pkg}::META";
    $$meta = $met <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7888	8066	
==>on;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	11365	11543	
==>on;
&symmetric_difference ::= &exclusion;

###########################################################################

multi method intersection (Relation $other!) returns Relati <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9670	9809	
==>\$" )
       ,
         ruleop::constant( "\<" )
       ,
         ruleop::capture( 'ident', \&{'grammar1::ident'} )
       ,
         ruleo <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	187	311	
==>y $output = "graph test {\n";
      
    $output .= _draw($::Object);    

    $output .= "}\n";
    return $output;
}

my %S <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36138	36250	
==>entation of our children:

    return join "",
      map($_->qr, @kids),
      map($_->qr, @$consume);
  }

Here' <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	4245	4377	
==>| 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	4245	4377	
==>| 80;
    } else {
      die "Unhandled/unknown proxy settings: \"$http_proxy\"";
    }
  }

  my $hdl = connect $h, $p;
  $hdl.print <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	1598	1695	
==>gs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	1598	1695	
==>gs::Compiler::Rule> compiles Perl 6 Rules to Perl 5.

=item * L<Pugs::Compiler::Token> compiles Pe <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4229	4341	
==>n');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4229	4341	
==>n');
    # grab all the tokens with a split
    my @tokens = split(rx:perl5{([\*\/\`])}, $text); #`
    @tokens = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6097	6216	
==>x(xx(xx(

    capture_closure(..)

  )))

One way to do it is to post-process the match:

  try(

    xx(xx(xx(

      a <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5903	6016	
==>x(xx(xx(
    capture_closure(..)
  )))
One way to do it is to post-process the match:
  try(
    xx(xx(xx(
      a <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16983	17137	
==>item uc

 multi Str::uc         (  Str $string              --> Str )
 multi Str::uc         ( Str $string = CALLER::<$_> --> Str )

Returns the input stri <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Prelude.pm	265	389	
==>t;
    map { $_->symbols } $class->submodules;
}

sub env {
    my $class = shift;
    Blondie::Env->new(
        $class->sym <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	1175	1270	
==>run against all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.72 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	1175	1270	
==>run against all Engines

=head1 VERSION

This document describes Rosetta::Validator version 0.72 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16206	16313	
==>t of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S-> <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	12627	12734	
==>t of char class (and possible negation)
  $self->add_handler('[' => sub {
    my ($S) = @_;
    push @{ $S-> <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	26156	26255	
==>lue will be used for the width of the terminal. If it is not
set then it will default to C<COLUMNS>. <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	421	535	
==>perly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!members.value <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	421	535	
==>perly
    # and calling members before any values are
    # set results in a error
    %!members ?? %!members.value <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	501	621	
==>$tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	495	615	
==>$tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    for my $dir ( @$dirs ) {
        my <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	3060	3173	
==>nst";
		join("_", $type, ++$self->{counters}{$type});
	}
}

sub define {
	my $self = shift;
	my ($node, $symbol, $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	18313	18412	
==>nt from which the
requested resource address was obtained.

The "Free On-line Dictionary of Computin <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	18313	18412	
==>nt from which the
requested resource address was obtained.

The "Free On-line Dictionary of Computin <==
2	/Users/nnunley/pugs/util/gen_prelude.pl	2731	2844	
==>e the first module in the list.
sub gen_source {
    my($target) = @_;
    open my $ofh, ">", $target or die "open <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class5.pl	112	218	
==>s Welt {
	method hallo ( Person $person ) {
		"Hallo, {name $person}!".say;
	}
}
#=benutzen von Instanz-Var <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	33111	33208	
==>s a Template module Set Name.  When we have to translate a
message, the corresponding Template mod <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	33111	33208	
==>s a Template module Set Name.  When we have to translate a
message, the corresponding Template mod <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	15996	16095	
==>ms safe.  But more nuanced treatment will be needed if utf8 is
to be supported.

  regnode program[1 <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	2003	2119	
==>user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomodate for that. <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	3595	3711	
==>user used ->feature like ->features by passing in the second
        # argument as a reference.  Accomodate for that. <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20275	20373	
==>m[1];     /* Unwarranted chumminess with compiler. */

regcomp.h: This is essentially a linear enco <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	28065	28160	
==>ESS_PERL_SWITCHES>

Its value will be prepended to the switches used to invoke perl on
each test <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	1450	1555	
==>t}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capt <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	1590	1695	
==>t}{tail}'\n" if $self->{ast}{tail};
    #print 'rule ast: ', do{use Data::Dumper; Dumper($self->{ast}{capt <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	438	555	
==>do it from repository metadata
    my $path = basename($archive);
    $path    =~ s/$Ext$//;

    ### check if it is a <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1347	1457	
==>0, @ARGV);
print "\n";
__END__
:endofperl
EOT

close $F;

# build the executable
chdir($testdir);
END <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	444	539	
==>DESCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conformin <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	444	539	
==>DESCRIPTION

The Cipher API is a common interface for cryptographic ciphers.  Ciphers 
conformin <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2820	2926	
==>ive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure yo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2820	2926	
==>ive the 
plaintext from the result, but any cryptographer worth the name can.  To avoid 
this, make sure yo <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	6121	6295	
==>hars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	6121	6295	
==>hars;

      my @ct = split /;\s*/, $ct, 2;
      given @ct[0] {
        s:g/\s+//;
        $_ .= lc;
      }

      given want {
        when List { return @ct }
        when <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	9630	9729	
==>ight work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This mo <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	9688	9787	
==>ight work soon', :todo(1));

  diag('some misc comments and documentation');

= DESCRIPTION

This mo <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	14723	14836	
==>rn'.
  Which might come in hand when doing p6 regex.



Notes on struct regex:

  typedef struct regexp {

The reg <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	4643	4747	
==>oin($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HT <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	4643	4747	
==>oin($ending);
}

my method date_header ($self: Str $header) is rw {
  return Proxy.new(
    FETCH => { HT <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8308	8412	
==>tric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - thi <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8308	8412	
==>tric_difference(set @b).members }

=head1 NAME

Set - Sets for Perl 6

=head1 SYNOPSIS

  # WARNING - thi <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11965	12067	
==>, sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	12023	12125	
==>, sub ($a, $b) { ?($a gt $b) }, 'me', '... testing gt on two strings');

- `isa_ok ($ref, Str $expected <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	2554	2674	
==>e     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	2554	2674	
==>e     = $event<server>;
      $.curnick        = $event<to>;
      $!in_login_phase = 0;
      ./:handle_pseudo("loggedin <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	5654	5752	
==>\w+)--(\d+)-(\d+)--(\d+)-(\d+)-(\d+)-(\d+)-(\d+)-(\d+)--([a-f0-9]+).html$/
    and return {
      p <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	5525	5643	
==>=> 0);
  });

  $self->add_handler('\V' => sub {
    my ($S, $cc) = @_;
    return $S->force_object(anyof_class => $S-> <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31632	31733	
==>et another set for itself.  When the program is run, it would
determine either from a user config file <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31632	31733	
==>et another set for itself.  When the program is run, it would
determine either from a user config file <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	5893	6045	
==>se($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($co <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	5893	6045	
==>se($_); };
            }
        }
    } elsif ($content_type eq "message/http") {
        my $content = $self.content;
        
        my $class = ($co <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	17722	17825	
==>plus(Re),F0,F1,B0,B1,E0,E1) :-
  rm(Re,      F0,Fx,B0,Bx,E0,Ex),
  ( (F0 == Fx) -> (Fx = F1, Bx = B1, Ex <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	3608	3700	
==>rintf(stderr,"exec hook r=%lu callback SV*=%lu\n",(ulong)r,(ulong)perl_callback);
    ret = c <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	1874	1984	
==><[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | h <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	1874	1984	
==><[0..9a..fA..F]>+};

regex oct    { 0o <[0..7]>+};

# any perl style number

regex Num { Int | Rat | binary | h <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	5724	5882	
==>{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	5736	5894	
==>{ match::get( $match, '$()' ) } ) {
            next unless ref($_) eq 'HASH';
            if ( exists $_->{$n} ) {
                #print "cap\n", Dumper( $_- <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	11367	11529	
==>&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	11646	11808	
==>&{'grammar1::rule'} )
       ,
         ruleop::constant( "\}" )
       ,
       )
    ;
        my $match = $rule->( @_ );
        return unless $match;
        m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6319	6465	
==>[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6319	6465	
==>[0])(.*)$)s;
    no warnings qw( uninitialized );
    return sub {
        if ( $_[0] =~ m/$rx/ ) {
            return $_[3] = { 
                b <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	10643	10765	
==>T($X::pos){ $c->($noop) }LET;
        return $v if not FAILED($v);
        TAILCALL(&$f,$fagain);
      };
      goto &$fmi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	18870	18975	
==>n (exp0)
  end:
    self[1] = exp1
    .return (self)
.end

.namespace [ "PGE::Exp::Alt" ]

.sub "p6analyz <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6434	6645	
==>urn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6434	6645	
==>urn $_[3] = { 
                bool  => 1,
                match => $1,
                tail  => $2,
            };
        }
        return $_[3] = { bool => 0 };
    };
}

sub null {
    return sub {
        re <==
2	/Users/nnunley/pugs/util/grokprims.pl	621	747	
==>assoc}) {
    $assoc = $assoc{$assoc};
  } else {
    $assoc = "FIXME: $assoc";
  }

  push @ops, {name=>$name, ret=>$ret, asso <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	9889	9985	
==>hases, which
are referred to as "immediate" and "deferred".  The immediate validations
are perfor <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	9889	9985	
==>hases, which
are referred to as "immediate" and "deferred".  The immediate validations
are perfor <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	173	294	
==>le;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dir <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	173	294	
==>le;

submethod BUILD { $.debug = 0 }

method find ( $self: :@dirs, :$wanted_dir, :$wanted_file ) {
    my @start    = @dir <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	21042	21194	
==>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ), 
            sub { <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	43966	44117	
==>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'nil'
            ),
            sub { <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12455	12604	
==>eturn $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $ur <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12455	12604	
==>eturn $uri.host.lc;
    }
    
    my method uri_path (URI $uri) {
        my $path;
        
        if ($uri.can('epath')) {
            $path = $ur <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	20747	20841	
==>.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys ar <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	20747	20841	
==>.

=head2 C<$botE<lt>channelE<gt>("#chan")>

Returns a hashref describing C<#chan>. Its keys ar <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	232	329	
==>thing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C< <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	232	329	
==>thing, successfully.

=cut

method empty () {...}

=pod

C<concat($a, $b)> first tries to match C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	16758	16872	
==>ass range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	13179	13293	
==>ass range (or maybe just char)
  $self->add_handler('cc' => sub {
    my ($S) = @_;
    return if ${&Rx} =~ m{ \G ( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	23770	23861	
==>ed multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, and <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	23770	23861	
==>ed multiple times.  Locale::KeyedText is generally a simpler solution
than alternatives, and <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package.pm	1741	1877	
==>= @_;
        
        ### might get params for underlying classes
        local $Params::Check::ALLOW_UNKNOWN = 1;
        my $args = ch <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18042	18139	
==>, multiple DBMS objects will not
have references to each other at a level visible in the Rosetta N <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18042	18139	
==>, multiple DBMS objects will not
have references to each other at a level visible in the Rosetta N <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5823	5950	
==>ft @mess, "# range must not be negative\n";
    } elsif ($range == 0) {
        # Within 0 is ==
        $pass = $got == $expect <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14843	14948	
==>)> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C< <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14843	14948	
==>)> returns "r&#xF4;le".

This routine is I<not> exported by default.  But you can always
export it with C< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	8746	8901	
==>st->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/emit.pl	9581	9736	
==>st->{capture} ); \n" .
                "    my \$perl5 = Perl6Grammar::emit( \$ast->{capture} );\n" .
                #"    print \"perl5: ###\$perl5### \\n <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Stream.pm	161	261	
==>em.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.e <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Stream.pm	161	261	
==>em.
method _cipher(Array $data) returns Array {
    return *$data >>+^<< *.generate_keystream($data.e <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3978	4082	
==>KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3978	4082	
==>KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        return %TEXT_STRIN <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	3631	3807	
==>0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	3631	3807	
==>0]{state};
                @state = ( $matches[0]{state}, 0 );
                next;
            }

            $_[3]{capture} = $_[3]{match}[0]{capture};
            #print "Ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5891	6002	
==>te on strings (normally) and return Match objects.



### examples will be in p5 or p6?



  # invoking the rule <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5687	5794	
==>te on strings (normally) and return Match objects.

### examples will be in p5 or p6?

  # invoking the rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18641	18749	
==>the constructor. For example,
this module automatically tries to use slight variations of the nickname in the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18641	18749	
==>the constructor. For example,
this module automatically tries to use slight variations of the nickname in the <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	318	421	
==>t rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EX <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	318	421	
==>t rid of it???  (It even makes LWP::Simple 7% slower
# for trivial tests)
# use HTTP::Status;
# push(@EX <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	967	1103	
==>language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	967	1103	
==>language => 'Pugs',
        aliases  => [ qw(pugs) ],
        type     => 'interpreted',
        suffix   => 'p6',
    };
}

sub validate <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	10145	10250	
==>y $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

met <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	10145	10250	
==>y $_.stringify for @span1;
    @span1 = @span1.map:{ $self.intersection( $_ ) };
    return @span1;
}

met <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	9119	9215	
==>($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C< <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	9119	9215	
==>($set2)>

Returns true if C<$set1> equals C<$set2>, i.e. if C<$set1> contains all the
items of C< <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	13829	13943	
==>_bracket:
    parse_error(mob, pos, "Unescaped ']' in charlist")
    goto end
  err_hyphen:
    parse_error(mob, po <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	2421	2517	
==>umber of bytes and throwing the return value away.
Encryptions after this point will be using str <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	2421	2517	
==>umber of bytes and throwing the return value away.
Encryptions after this point will be using str <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2191	2308	
==><commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2191	2308	
==><commit>.

=cut

method mark ($p, Str $name) {...}

=pod

C<commit($name)> will always succeed.  When backtracked over <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	10215	10355	
==>>new(
            closure::params->new(
                symbol->new("&dispatcher", q<block>)
            ), 
            returns => q<method> <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/re_tests_match.pl	1815	1955	
==>n(" ",\$m->to,map{\$_->to}\@\$m).\"/g;
	$expr = "\"$expr\"";
	if ($ok !~ /[ybB]/) {
	    if ($m) {
		print "not ok \# Unexpected successful m <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	8087	8188	
==>, that return lists of spans.

In this example, @span may contain zero, one, two, or three spans, depe <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	8087	8188	
==>, that return lists of spans.

In this example, @span may contain zero, one, two, or three spans, depe <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	950	1088	
==>match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The clos <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	950	1088	
==>match;

    submethod BUILD () {
        $.marks //= {};
    }
}

=pod

A C<Parser> is simply an object wrapper around a closure.  The clos <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	7135	7259	
==>xps.";
            } elsif !$p5 && !%modifiers_supported_p6.{$k} {
                warning "Modifier :$k is not yet supported <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match/Ratchet.pm	30	133	
==>Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use war <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match/Ratchet.pm	30	133	
==>Ratchet;
# Documentation in the __END__

use base 'Pugs::Runtime::Match';
use 5.006;
use strict;
use war <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	31618	31716	
==>gardless of its
argument, in which case the new Relation has either all of the tuples of
the origin <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	36168	36266	
==>gardless of its
argument, in which case the new Relation has either all of the tuples of
the origin <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	15728	15821	
==>ent variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to th <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	15786	15879	
==>ent variable TEST_ALWAYS_CALLER to force Test.pm to always
append the caller information to th <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Math/Trig.pm	189	294	
==>cotanh asech acosech acotanh /;

for @trig -> $func {
    &$func = multi sub (; Num ?$x = $CALLER::_, :$ba <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	3781	3885	
==>n.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 Fil <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	3781	3885	
==>n.org>

Darren R. Duncan (C<perl@DarrenDuncan.net>)

= ACKNOWLEDGEMENTS

This is a port of the Perl 5 Fil <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Grammar.pm	429	542	
==>} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Grammar.pm	429	542	
==>} },
));

sub new {
	my ($class, $name, $version) = @_;
	# create the package to hold the 
	my $meta = Class::MOP: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	4249	4342	
==>ULE
*{'list'} = Pugs::Compiler::Rule->compile(<<'RULE')->code();

    [ <term1> <?p6ws>? \, <? <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	242	357	
==>trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	242	357	
==>trigger};
}

multi method finalize() {
  $.final=Bool::True;
}

multi method finalq() {
  $.final;
}


class FA::DFA <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	10450	10555	
==>.$code_param_info.')]';
    my $namestr = $stringify->($name);
    my $code_args = "";
    $code_args .= " <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8876	9022	
==>fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8876	9022	
==>fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @cookie {
                my ($key, $val) = @cookie <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	81	179	
==>ss Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Int <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	81	179	
==>ss Perl::Compiler::CodeGen::Perl5_Str
    does Perl::Compiler::CodeGen {

    my $INS = 'Perl6::Int <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	16362	16459	
==><iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	16420	16517	
==><iblech@web.de>

Gaal Yahas <gaal@forum2.org>

= COPYRIGHT

Copyright (c) 2005, 2006. Audrey Tang. <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	11210	11314	
==>in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator vers <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	11210	11314	
==>in the set. C<has> is an alias for
C<includes>.

=head2 C<$set ~~ $item>, C<$item ~~ $set>

Operator vers <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Nil.pm	224	329	
==>onversion to other native types
sub to_num { num->new(0)  }
sub to_bit { bit->new(0)  }
sub to_str { str-> <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	10090	10206	
==>capture( '$_[0]', sub{ $name(\@_) } )\n";
}
sub node::non_capturing_subrule {
    my $name = $_[0];
    $name = '$gra <==
2	/Users/nnunley/pugs/blib6/lib/Module/Pluggable/Fast.pm	649	798	
==>l = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless <==
2	/Users/nnunley/pugs/ext/Module-Pluggable-Fast/lib/Module/Pluggable/Fast.pm	649	798	
==>l = abs2rel( $package, $dir );
               my $class = splitdir($rel).join('::');
               $class ~~ s:P5/\.pm$//;
               next unless <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	5343	5444	
==>ual (Relation::Example $other!) returns Bool {
    return $other!heading === $?SELF!heading
        an <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1305	1445	
==>\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $u <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1305	1445	
==>\./;
        
        my $secure_request = ($scheme eq 'https');
        
        my $req_path = ./:uri_path($uri);
        my $req_port = $u <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	4514	4619	
==>support OO, methods are
implemented as hash keys to code refs. The only function this module
exports is th <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	4514	4619	
==>support OO, methods are
implemented as hash keys to code refs. The only function this module
exports is th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	10614	10899	
==>, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $ <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	10614	10899	
==>, $klass;
                    $context->{$klass}{use} = $part;
                }
                else {
                    delete $context->{$klass};
                }
            }
            else {
                $text .= $part;
            }
        }
        else {
            $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3442	3568	
==>my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3659	3785	
==>my $namespace = 'grammar1::';

{
  package Perl6Grammar;
  use p6dump;

sub header {
    return <<EOT;
#! perl
#
# grammar file <==
2	/Users/nnunley/pugs/blib/lib/Perl6/Pugs.pm	2004	2095	
==>ficial AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/ <==
2	/Users/nnunley/pugs/lib/Perl6/Pugs.pm	2004	2095	
==>ficial AES|http://dev.perl.org/perl6/>, Pugs hosts a
number of unofficial AES at F<docs/AES/ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36708	36804	
==>n

Here's a final example.  I'm going to rewrite F<Regexp::AndBranch> to
handle both '&' and '!'. <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Array.pm	3319	3493	
==>y

 multi sub  Perl6::List::sort(  SortCriterion  @by
                              ;               *@values
                             ) returns List

 multi sub  Perl6::Li <==
2	/Users/nnunley/pugs/util/svnlog2graph.pl	1235	1366	
==>day should have the same length as @commits_till_day --
# fill if needed
push @devs_till_day, $devs_till_day[-1] while
  @devs_till_ <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15639	15731	
==>characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigl <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15639	15731	
==>characters to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5518	5630	
==>mmar related files

  /lib/Pugs/Emitter/YAML.pm   # main Emitter file

  /lib/Pugs/Emitter/YAML/*    # Emitter re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5327	5437	
==>mmar related files
  /lib/Pugs/Emitter/YAML.pm   # main Emitter file
  /lib/Pugs/Emitter/YAML/*    # Emitter re <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	1259	1367	
==>_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	1259	1367	
==>_get
sub head (Str $url) is export {
  # * Set a timeout of 60 seconds (however)
  # * Send Connection: close <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Message.pm	3595	3782	
==>},
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Message.pm	3595	3782	
==>},
        STORE => -> Ref $content {
                $!content = $content;
                $!content_ref++;
                
                return $old;
            });
}

# XXX decoded_ <==
2	/Users/nnunley/pugs/blib6/lib/Getopt/Std.pm	119	273	
==>spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5 <==
2	/Users/nnunley/pugs/ext/Getopt-Std/lib/Getopt/Std.pm	119	273	
==>spec = hashify($spec);
    my %opts;
    my $cur;
    while $cur = @args.shift {
        given $cur {
            when '--' { last }
            when rx:P5 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	13837	13938	
==>rn.  The callback routine
is called with two parameters; the name of the field and a single
value (a s <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	13837	13938	
==>rn.  The callback routine
is called with two parameters; the name of the field and a single
value (a s <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2714	2834	
==>:Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2714	2834	
==>:Tiny;

    # Create a config
    my $cfg = new();

    # Open the config
    $cfg<read>( 'cfg.ini' ) || die $cfg<err_str <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	13579	13678	
==>later than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
rea <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	13579	13678	
==>later than expected.

It may enter an infinite loop if the formula cannot be satisfied within a 
rea <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	10104	10221	
==>plate_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_va <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	10104	10221	
==>plate_text',
            'ARG' => '$text!' } )
        if !$text.defined;
    $?SELF!_assert_arg_hash( 'interpolate_va <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	10146	10277	
==>name     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %! <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	10146	10277	
==>name     = undef;
    $.curhostname    = undef;
    $.last_traffic   = 0;
    $.last_autoping  = 0;
    $!in_login_phase = 0;
    %! <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	20971	21076	
==>ng this sort of functionality to Perl packages
or programs.  Your package or program can be distributed wi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	20971	21076	
==>ng this sort of functionality to Perl packages
or programs.  Your package or program can be distributed wi <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	2476	2586	
==>//([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	2476	2586	
==>//([^/:\@]+)(?::(\d+))?(/\S*)?$}; #/#--vim

  my ($host) = $0;
  my ($port) = $1 || 80;
  my ($path) = $2 || "/ <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	1212	1328	
==>ating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	1212	1328	
==>ating

sub catdir (*@_path) returns Str is export {
    return '' unless +@_path;
    # take a copy of our args here, <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	5320	5447	
==>);
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $se <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	5320	5447	
==>);
        return $result if $result != -Inf;
    }
    return -Inf;
}

method current ($self: $x ) {
    return $self.next( $se <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	539	637	
==>ject { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	539	637	
==>ject { $.end - $.start }
method start_is_closed () returns bool   { ! $.start_is_open }
method end_ <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4510	4677	
==>tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<s <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4510	4677	
==>tokens) -> $token {    
        given $token {
            when rx:perl5{([\*\/\`])} { #`
                if ($in_code && $token ne '`') {
                    %events<s <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	9561	9657	
==>This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	9561	9657	
==>This code divides a module based on
# lines that use/no a Module::Compile subclass.
sub pmc_parse <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1340	1439	
==>(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class L <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1340	1439	
==>(), kv(), keys(), values(), zip()
* Code rewritten to use coroutines instead of states
* New class L <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19286	19390	
==>e time, this information is in separate resource files used by the
program, so that if you wanted to upgr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19286	19390	
==>e time, this information is in separate resource files used by the
program, so that if you wanted to upgr <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	8104	8208	
==>---
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reaso <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	8104	8208	
==>---
## utility methods

# NOTE:
# Occasionally one wants to have the 
# depth available for various reaso <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	2585	2688	
==>t contain only source representation.

=back

=head1 API METHODS

These methods must be implemented by s <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	2585	2688	
==>t contain only source representation.

=back

=head1 API METHODS

These methods must be implemented by s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6809	6940	
==>test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $cont <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6867	6998	
==>test #1 # TODO" confuse the harness. Escape desc #s.
    $out ~~ s:P5:g/#/\\#/;

    my $context_out = $context.defined ?? " # $cont <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	15714	15812	
==>able explanation of the execution of a regex.  Will
be able to produce HTML output that color-codes <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_eigenclasses.pl	9557	9648	
==>thod' => sub { 
  '$iFoo::another_test_iFoo_singleton_method' 
});

is($iFoo->another_test_i <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	980	1089	
==>elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Arr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	980	1089	
==>elements is undefined.],
    'LKT_ARG_ARY_ELEM_NO_ARY'
        => q[<CLASS>.<METH>(): argument <ARG> is an Arr <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	31139	31238	
==>his means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fr <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	31139	31238	
==>his means,
for example, that the full module names in a set could be either
[Foo::L::Eng, Foo::L::Fr <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1641	1739	
==>I
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1641	1739	
==>I
equivalent C<o>.

=head2 C<< infix:<`map`> (Code &f, *@y) >>

=head2 C<< infix:<`grep`> (Code &f, <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	4561	4667	
==>{ $runcores{$runcore} }) {
      $runcores{$runcore}{$cat} = [
        map  {{ %$_, timestamp => $_->{times <==
2	/Users/nnunley/pugs/util/version_h.pl	499	605	
==>odified.
my $revision = 0;

# SVK tries to ask the user questions when it has a STDIN and there is
# no rep <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	146	273	
==>Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	146	273	
==>Grammar::Base;

*parse = $rule->compile( q(
    <header> <body>*
    { 
        return { 
            program_header => $<header <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	28163	28277	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0] <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28442	28556	
==>->( @_ );
        return unless $match;
        my $capture_block = sub { return { eval_perl5 =>  match::get( $_[0] <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/TypeSafe.pm	6336	6440	
==>acto_type, $expected_type);
		}
	}

	sub is_placeholder {
		my $self = shift;
		my $type = $self->simplif <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	4065	4167	
==>f Failed>

A list of the tests which failed.  Successive failures may be
abbreviated (ie. 15-20 to indi <==
2	/Users/nnunley/pugs/util/run-smoke.pl	1621	1733	
==>_RUNTIME} eq 'PERL5';

$ENV{PERL6LIB}      = join $Config{path_sep},
        qw<ext/Test/lib blib6/lib>, $ENV{PER <==
2	/Users/nnunley/pugs/util/grokprims.pl	1488	1592	
==>f (/(list|chaining) infix/) {
    $example = "\$$a0 $name \$$a0 $name \$$a0";
  } elsif (/left-associativ <==
2	/Users/nnunley/pugs/misc/Perl-MetaModel/lib/Map.pm	470	600	
==>s List of Object
multi sub kv     (@array ; Any|Junction *@indextests) returns List of Object|Object
multi sub pairs  (@array ; Any <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	970	1073	
==>urns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIP <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	970	1073	
==>urns Str is export { %*ENV<DOCUMENT_ROOT> }
sub script_name     returns Str is export { 
    %*ENV<SCRIP <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	7760	7869	
==>ee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	7760	7869	
==>ee);
    });

    # Somebody quit. Remove him/she from %users and %channels.
    ./add_handler("QUIT", -> $eve <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	7353	7455	
==>g === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	10830	10932	
==>g === $!heading);

    return $?SELF!_exclusion( $other );
}

multi method exclusion (Relation *@others <==
2	/Users/nnunley/pugs/blib6/lib/Test/PIL/Bootstrap.pm	80	183	
==>aded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $option <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/PIL/Bootstrap.pm	80	183	
==>aded now
#my $BOOTSTRAP = slurp('src/PIL/Native/Bootstrap.pil');

sub pil_output( Str $code, Str $option <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2723	2822	
==>mar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
us <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2723	2822	
==>mar_perl6();

# ------------

package main;

use strict;
use warnings;
use Pugs::AST::Expression;
us <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1580	1689	
==>, ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1580	1689	
==>, ':@root_nodes?', @root_nodes );

    @!all_nodes  = [];
    @!root_nodes = [];
    for @root_nodes -> $root_ <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2850	2967	
==>pan) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Func <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2850	2967	
==>pan) {
    # is it a Set::Infinite ?
    return $span.set if $span.isa( $self.ref );
    # is it a Set::Infinite::Func <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell/L/en.pm	568	699	
==>_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell/L/en.pm	568	699	
==>_PROMPT'
        => q[Enter a Rosetta D command to execute (all on one line),]
           ~ q[ or press ENTER to quit.],
    'ROS_S_ <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	1925	2040	
==>file;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inl <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	1925	2040	
==>file;
    print MAKEFILE $postamble;
    close MAKEFILE;
}

sub handle_inline {
    my %args = @_;
    if ($args{inl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2099	2259	
==>lude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # pr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2316	2476	
==>lude:$prelude\n";
        my $perl5;
        {
            no warnings 'redefine';
            $perl5 = Perl6Grammar::compile( $prelude );
        }
        # pr <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	6015	6115	
==>!, p5_modifier_scope(M,X).
p5_elemental(cap(X))              --> "(", !, p5_start(X), ")".
p5_element <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	2875	2990	
==>t::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_fu <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	2933	3048	
==>t::is.goto($result, $expected, $desc, :$todo, :$depends);
    }
}

## cmp_ok

sub cmp_ok (Str $got, Code &compare_fu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	1649	1770	
==>f->literal_value($node) unless Scalar::Util::blessed($node->struct_equiv);

	if (my $meth = $self->can("reduce_" . $node-> <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	19148	19243	
==>ang = CALLER::<$?PARSER>)
{
    Pugs::Internals::eval($code,$lang);
}


 multi Control::Basic::e <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	22472	22622	
==>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ), 
            sub <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	42261	42410	
==>new(
                params => method::params->new(symbol->new('$self:' => 'opaque')),
                returns => 'num'
            ),
            sub <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	16755	16915	
==>ditional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and do <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	21853	22013	
==>ditional data. */

        struct reg_data {
            U32 count;
            U8 *what;
            void* data[1];
        };

Leave something real here and do <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10666	10768	
==>cified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_prev <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10666	10768	
==>cified with a recurrence.

= UNIVERSAL SET CONSTRUCTOR

- `new( closure_next => sub {...}, closure_prev <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9373	9512	
==>ternatives
        last LINKING unless $alt;
        
        ### XXX this should probably be done in one go, so we don't
        ### have a <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Diagnostics.pm	1793	1887	
==>ter classes';
use constant RPe_EMPTYB => --$ENUM, 'Empty \%s{}';
use constant RPe_FRANGE => --$ <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	1550	1708	
==>new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    } <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	1550	1708	
==>new(
            msg_key  => 'ROS_S_DBMS_INIT_FAIL',
            msg_vars => {
                'ENGINE_NAME' => $engine_name,
            },
        ) );
    } <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/class/class1.pl	103	201	
==>s Objektes (Instanzierung)
my $welt = "Welt"->new();	# geht in Perl 6 nicht mehr
my $welt = Welt.ne <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	27207	27336	
==>rs => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Messag <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	27207	27336	
==>rs => {
            'GIVEN_TABLE_NAME' => $table_name,
            'GIVEN_COL_NAME' => $col_name,
        } );

Note that a Messag <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	18902	18996	
==>e, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>logi <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	18902	18996	
==>e, it'll track its status (its nick, the
channels it has joined, etc.).

=head2 C<$botE<lt>logi <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	3444	3639	
==>um:]]+ 

                )+

            )  

            (.*) $ /xs;

    return;

};



sub ident {

    #return unless $_[0];

    return { 

        bool  => 1,

        match => { 'ident'=> $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	3310	3494	
==>um:]]+ 
                )+
            )  
            (.*) $ /xs;
    return;
};

sub ident {
    #return unless $_[0];
    return { 
        bool  => 1,
        match => { 'ident'=> $ <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Hash.pm	1779	1907	
==>ys %native) 
}

sub values { 
    my %native = (shift)->to_native;
    list->new(values %native);
}

sub length { (shift)->keys-> <==
2	/Users/nnunley/pugs/misc/S29_round.pl	1884	2025	
==>sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) <==
2	/Users/nnunley/pugs/misc/S29_round.pl	2421	2562	
==>sign($x) * ceil(abs($x)) }
        when $_ == .5 {
            given floor( abs($x) ) % 2 {
                when $_ == 0 { $x_round = sign($x) <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	6168	6328	
==>$/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5676	5836	
==>$/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slurp($file) =~ m/
        ^
        use \s*
        v?
        ([ <==
2	/Users/nnunley/pugs/util/PugsConfig.pm	3108	3209	
==>usr\site\lib';
    require Data::Dumper;
    print Data::Dumper::Dumper(get_config());
}
#__test__;

1 <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/C/Emitter.pm	6205	6300	
==>reduce_param {
	my $self = shift;
	my $node = shift;

	$self->mangle_sym_name($node->struct_equi <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	4908	5021	
==>ssing_term;
  }
  missing_term:
  push @termStack, newfrom( $matchObj, $whitespacePosition, "PGE::Match" );
  goto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	487	644	
==>:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	487	644	
==>:\$[[:digit:]]+)}


# terms

    rule dot {
        \.    
            
        { return { 'dot' => 1 ,} }
    }
    unshift @rule_terms, 'dot';
    
    rule <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1535	1633	
==>nstalls a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1535	1633	
==>nstalls a public command handler matching
  ?seen nick

There's also the C<seen(Str $nick)> method, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8994	9107	
==>n unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	9187	9300	
==>n unless $match;
        my $capture_block = sub { return { runtime_alternation =>  match::get( $_[0], '$()' )  ,} <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	4247	4416	
==>{
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be wri <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	4247	4416	
==>{
            unlink $pmc
                or die "Can't delete errant $pmc: $!";
        }
        return 0;
    }
    
    return 1;
}

# Check whether output can be wri <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	11901	12004	
==>their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

= <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	11901	12004	
==>their own; it is a
sub-set of All Nodes.

=back

This is the main Document constructor method:

=over

= <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13549	13651	
==>> $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays );

- Con <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13549	13651	
==>> $dstart, end => $dend );
    my $month_holidays = $month.intersection( $recurrence_holidays );

- Con <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13605	13701	
==>th.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to represe <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13605	13701	
==>th.intersection( $recurrence_holidays );

- Continuous span

This type os span is used to represe <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40574	40669	
==>out even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the L <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40574	40669	
==>out even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the L <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	14696	14813	
==>how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    retur <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	8897	9014	
==>how);
  });

  # punct POSIX class
  $self->add_handler('POSIX_punct' => sub {
    my ($S, $neg, $how) = @_;
    retur <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	1513	1649	
==>::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        un <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	1480	1616	
==>::FTP, fallback to ftp.exe
        require FileHandle;
        my $fh = FileHandle->new;

        local $SIG{CHLD} = 'IGNORE';
        un <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	1362	1463	
==>Relation::LaxAttrList :%attrs? = {}) {
    return $?CLASS->bless( attrs =>
        { %attrs.pairs.map: <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	3330	3430	
==>*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	3330	3430	
==>*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); if <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10354	10471	
==>IS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10354	10471	
==>IS

  use Tree;
  
  my $root = Tree.new(:node<0>).add_children(
      Tree.new(:node<1>).add_children(
          Tree <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1115	1225	
==>ent'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ----- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1115	1225	
==>ent'
# statements that need a \; or \} or $$ terminator 
# - subroutine calls
# - expressions, my, our

# ----- <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	1405	1526	
==>e_VERSION($args);
    $args->{NAME} =~ s/-/::/g;

    # Only call $self->tests if we haven't been given explicit
    # tes <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20390	20491	
==>s followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20390	20491	
==>s followed by a semicolon. Like:

    "f1d2d2f924e986ac86fdf7b36c94bcdf32beec15";

The rationale of th <==
2	/Users/nnunley/pugs/blib6/lib/Span/Int.pm	1657	1776	
==>f.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $ <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Int.pm	1657	1776	
==>f.new( start => $i_start, end =>   $i_end, density => $.density );
}

method intersection ($self: $span ) {
    return $ <==
2	/Users/nnunley/pugs/util/config_h.pl	46	144	
==>se Cwd;
use File::Spec;
use File::Temp qw(tempdir);

=pod

=head1 DOCUMENTATION

This file seems to <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	1089	1209	
==>dir = $Metactrl . "/$path";
        ### extract the meta info
        ### XXX extract to $Builddir first, THEN copy later <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Config.pm	1921	2031	
==>lternatives    => SUBDIR_OF_META   ];
$config{'_available'}       = [ available       => SUBFILE_OF_META  ];
$c <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	13834	13967	
==>Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	13834	13967	
==>Esp'],
                # set list of available languages in order of preference
        );

        # This will print 'Enter 2 Numbers <==
2	/Users/nnunley/pugs/blib6/lib/Set/Symbols.pm	756	855	
==>ence
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX defin <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Set/Symbols.pm	756	855	
==>ence
multi sub *infix:<%> (Set $one, Set $two) {
    $one.symmetric_difference($two);
}

# XXX defin <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	21556	21650	
==>rride some of your messages, showing other messages instead which are
more appropriate to the c <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	21556	21650	
==>rride some of your messages, showing other messages instead which are
more appropriate to the c <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	6905	7016	
==>,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	6905	7016	
==>,2], $_[3]{match}, @_[4,5,6,7] );
        $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
        ret <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10785	10883	
==>If the $value is undefined or not
given, then that header field will remain unchanged.

The old val <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10785	10883	
==>If the $value is undefined or not
given, then that header field will remain unchanged.

The old val <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/Rule.pm	4456	4563	
==>arget, $from, 1) =~ /\./ )
  {
    $matchObj->position( $matchObj->from() + 1);
  }
  return $matchObj;
}

s <==
2	/Users/nnunley/pugs/util/livecd/mklivecd.pl	7508	7607	
==>ewest_mod_stamp and $newest_mod_stamp = -M "$lib6/$_"
  for @modfiles;

my @pfiles;
step
  descr  => <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	4427	4538	
==>MES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_ <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	4427	4538	
==>MES. Finally, we delete all nicks, which are still in
        # %!cache353{$chan}.

        %!cache353{$chan}{$_ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10615	10747	
==>ookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my : <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10615	10747	
==>ookies{$domain}.keys.sort -> $path {
                for %!cookies{$domain}{$path}.keys.sort -> $key is rw {
                    my : <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	19362	19473	
==>so that if you wanted to upgrade or localize what text the user
sees, you only have to update said separate reso <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	19362	19473	
==>so that if you wanted to upgrade or localize what text the user
sees, you only have to update said separate reso <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3943	4051	
==>ndex.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0. <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3943	4051	
==>ndex.perl ~ "<-";
  @string = map { decode($_) }, @string;
  gather {
    while (@string>0 and all(@string[0. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	1308	1408	
==>od BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $ <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	1308	1408	
==>od BUILD (Str :$msg_key!, Any :%msg_vars? = {}) {

    $?SELF!_assert_arg_str( 'new', ':$msg_key!', $ <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	53	147	
==>=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is fals <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	53	147	
==>=pod

C<assertion(&assert)> runs C<&assert>. If the result is true, is continues. If
it is fals <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	527	627	
==>ansformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    f <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	527	627	
==>ansformations between PIL node types; out-of-band data is not listed.

sub type_check (*@arg) {
    f <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	4896	5095	
==>rams new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("? <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/docs/interpreter.pl	6658	6857	
==>rams new 
                                ((symbol new ("&dispatcher" <block> ))
                                 (symbol new ("$label"      <symbol>))
                                 (symbol new ("? <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	553	803	
==>te: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

clas <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	553	803	
==>te: This given version applies to all of this file's packages.
} # package Locale::KeyedText

###########################################################################
###########################################################################

clas <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	617	717	
==>ed rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( ' <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	617	717	
==>ed rules are objects:

    use Pugs::Compiler::Rule;

    my $rule = Pugs::Compiler::Rule->compile( ' <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	40736	40829	
==>ight holders of
Locale::KeyedText would appreciate being informed any time you create a
modifi <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	40736	40829	
==>ight holders of
Locale::KeyedText would appreciate being informed any time you create a
modifi <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	936	1058	
==>Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; e <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4414	4536	
==>Str) of Any
        # Each Set member is a tuple of this Relation, where the tuple
        # is represented as a Mapping; e <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	10260	10377	
==>urns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a li <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	10260	10377	
==>urns true if the start or the end of the set are Infinite.

= ITERATORS AND LIST OPERATIONS

- `spans()`

Returns a li <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	28757	28862	
==>Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELL <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	28757	28862	
==>Template file "MyApp/L/Eng.pm" you can have:

    my Str %TEXT_STRINGS is readonly = (
        'MYAPP_HELL <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	12901	13007	
==>ms by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	12901	13007	
==>ms by keys

=head1 VERSION

This document describes Locale::KeyedText version 1.73.0.

It also describes th <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Package/Installed.pm	1328	1508	
==>$!";
            map { chomp; $_ } <$fh>;
        };
        $@ and error( "Could not load files list: $@" ), return;
        $self->files( \@files );
        
        my ($alt) = g <==
2	/Users/nnunley/pugs/inc/Module/Install.pm	4040	4165	
==>my $pkg = "$self->{name}::$1"; $pkg =~ s!/!::!g;
        push @found, [$file, $pkg];
    }, $path) if -d $path;

    @found;
} <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8089	8188	
==>dule_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8089	8188	
==>dule_name!) returns Bool {
    $?SELF!_assert_arg_str( 'template_module_is_loaded',
        '$module <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	22905	23011	
==>lass

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	22905	23011	
==>lass

I<This documentation is pending.>

=head1 DIAGNOSTICS

I<This documentation is pending.>

=head1 CONF <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	15656	15759	
==>and not $Verbose;

    return($leader, $ml);
}

=item B<_leader_width>

  my($width) = _leader_width(@te <==
2	/Users/nnunley/pugs/util/grokprims.pl	728	817	
==>ame, ret=>$ret, assoc=>$assoc, args=>[@args], line=>$.}
}

print '<?xml version="1.1" enco <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2905	3037	
==>calhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remo <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2905	3037	
==>calhost:8080";
    loop {
        my %env = %*ENV;
        $.remote = $.socket.accept;
        ./handler if ./prepare;
        $.remo <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	14028	14147	
==>thers == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_ <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17505	17624	
==>thers == 0) {
        return $?SELF;
    }

    my Relation @sources = ($?SELF, *@others);
    my Relation @r_with_zero_ <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	807	913	
==>.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
        ftp_url     => 'ftp://ftp.microsoft.com/Softl <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	692	790	
==>.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
		ftp_url   => 'ftp://ftp.microsoft.com/Softl <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	16840	16955	
==>ing              --> Str )
 multi Str::lcfirst    ( Str $string = CALLER::<$_> --> Str )

Like C<lc>, but only affec <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	27733	27874	
==>"perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	28012	28153	
==>"perl5" )
       ,
         ruleop::constant( "\>" )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	3853	4058	
==>.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RE <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	3853	4058	
==>.ret(
                    $ng.r('left') ~ "->BIND( $ng.r('right') )"
                );
                $str;
            }

            die "Unknown PIL node type: $tree.ref()";
        };

        say "RE <==
2	/Users/nnunley/pugs/blib6/lib/URI/Escape.pm	1184	1306	
==>_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($st <==
2	/Users/nnunley/pugs/ext/URI/lib/URI/Escape.pm	1184	1306	
==>_escape_utf8 (Str $string is copy) returns Str is export(:DEFAULT) {
        ...
    }
    
    multi sub uri_unescape ($st <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	4667	4767	
==>*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); un <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	4889	4989	
==>*F, \$/); (\$F = __FILE__) =~ s!c\$!!; open(F)
or die "Cannot open \$F: \$!"; binmode(F, ':crlf'); un <==
2	/Users/nnunley/pugs/blib6/lib/Date.pm	2420	2537	
==>( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @ <==
2	/Users/nnunley/pugs/ext/DateTime/lib/Date.pm	2420	2537	
==>( 1.0 / 3.1 ) * $.month ) + 1;
}

method day_of_quarter () returns Int {
    my $doy = $?SELF.day_of_year();

    my @ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	3251	3402	
==>: ]?
            [ _ | <?alnum> ]+
        ]+
    |   <before \< | \[ | \{ >   # $<thing> == $/<thing>; $[thing] = $/[thing]
    |   \/      # $/
) )->c <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Runtime.pm	679	771	
==>die::Runtime - Base class for execution system (compiler + interpreter or equivalent).

=head <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	335	441	
==>= $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 } <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	335	441	
==>= $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_file || $.wanted_file || sub { 1 } <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	14913	15009	
==>nt way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmat <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	14913	15009	
==>nt way.  This "Rosetta" file is the core of the
Rosetta framework and defines a common programmat <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	3006	3106	
==>get {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a" <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	3006	3106	
==>get {
		when /^<[A..Z]>$/ {     ord($didget)-ord("A")}
		when /^<[a..z]>$/ {26 + ord($didget)-ord("a" <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11190	11324	
==>else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub bytei <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11190	11324	
==>else                   { return $self.finishstr() }
    };
}

submethod DESTROY() {
    .zeroize();
}

# utility subroutines

sub bytei <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	38422	38523	
==>rs into it, where each variable value is
substituted for any occurance of its corresponding variable n <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	38422	38523	
==>rs into it, where each variable value is
substituted for any occurance of its corresponding variable n <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	13662	13756	
==>an

This type os span is used to represent continuous measurements, such as times, temperatures <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	13662	13756	
==>an

This type os span is used to represent continuous measurements, such as times, temperatures <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	23860	23969	
==>iCharacters {  # see 15.1.3
      <uriCharacter> <uriCharacters>?
}
rule uriCharacter {  # see 15.1.3
      <u <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14605	14703	
==>routine works just like encode_entities, except that the replacement
entities are always C<&#xI<hex <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14605	14703	
==>routine works just like encode_entities, except that the replacement
entities are always C<&#xI<hex <==
2	/Users/nnunley/pugs/blib6/lib/DateTime/Span.pm	291	407	
==>ite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $clas <==
2	/Users/nnunley/pugs/ext/DateTime-Set/lib/DateTime/Span.pm	291	407	
==>ite
        - import Perl5 POD

    * set_time_zone

=cut

method from_datetimes ($class: %param ) {
    return $clas <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	15225	15328	
==>t's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=ite <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	15225	15328	
==>t's Root Nodes property; in a
manner of speaking, the Document itself is the parent of such Nodes.

=ite <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	21908	22004	
==>egexp::NoCode>, and
F<Regexp::AndBranch>.

=head2 Parser Internals

The parser object is a hash r <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4615	4743	
==>$multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clon <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4615	4743	
==>$multidex = [ *$matchy.multidex ];
                $multidex[-1]++;
                match_n($n+1, $m.clone(match => $m.match.clon <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	6649	6788	
==>able match...

        $match->{abort} = 0;

        return $match;

    };

};



# experimental!

sub ruleop::abort { 

    my $op = shift <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	6434	6565	
==>able match...
        $match->{abort} = 0;
        return $match;
    };
};

# experimental!
sub ruleop::abort { 
    my $op = shift <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17571	17705	
==>ed

So a successful test should have max == seen == ok.


There is one final item, the details.

  details           an array ref repor <==
2	/Users/nnunley/pugs/docs/talks/perl6-apw2005/code/syn/otto3.pl	61	164	
==>"Hund";
my @obst = qw(Äpfel Bananen);
my %lieblings = (
	Farbe => "blau",
	Drink => "Martini"
);

say " <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	1770	1890	
==>messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, usernam <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	1770	1890	
==>messages
  my ($curnick, $curusername, $curircname, $curhostname);
                           # Our current nick, usernam <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10612	10714	
==>`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTR <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10612	10714	
==>`

Creates a recurrence set. The complement set is specified with a recurrence.

= UNIVERSAL SET CONSTR <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	3705	3810	
==>%!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handl <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	3705	3810	
==>%!channels{normalize $event<object>}<topic> = $event<rest>;
    });

    # /NAMES response
    ./add_handl <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	1267	1363	
==>nows", "PGE::Exp::CCShortcut");
    $optable->addToken("circumfix:[ ]", "term:", "nows", "PGE::Ex <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	114	213	
==>e Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	114	213	
==>e Data::Dumper;

require 'iterator_engine.pl';
require 'p6rule_lib.pl';
require 'p5hacks.pl';

my $n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2951	3104	
==>rsion, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2951	3104	
==>rsion, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP::Debug::debug(" - checking cookie $key <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	4790	4922	
==>OPs; pops_left--;
      for(cap_idx=0; cap_idx <= r->nparens && pops_left;cap_idx++) {
        SV* v;
        IV vi;

        v = POP <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	4496	4621	
==>aracter>
}
rule Token {  # see 7.5
      <ReservedWord>
    | <Identifier>
    | <Punctuator>
    | <NumericLiteral>
    | <St <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	7109	7265	
==>ext SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfu <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	7109	7265	
==>ext SET_MEMBER
            next
                if $!;
        }

        # Try to fetch template text for the given message key from the
        # successfu <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	8955	9084	
==>{ 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complemen <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	8955	9084	
==>{ 2 * int( ( $_ - 1 ) / 2 ) },
        universe => $universe );

    # all odd integers
    $odd_numbers = $even_numbers.complemen <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	4831	5014	
==>ess (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an eve <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	4831	5014	
==>ess (@modifier_stack) {
                        # push the latest modifier on to it ...
                        @modifier_stack.push($token);
                        # and start an eve <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	2392	2644	
==>lement>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	2392	2644	
==>lement>('for', "$0");
                        }
                        else {
                            %events<end_element>('begin', "$0");
                        }
                    }                    
                    when rx:P5{^\s(.*?)$} <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	16141	16260	
==>bstr $S1, pos, 1
    $S0 .= $S1
    $S0 .= "'"
    $P0["_message"] = $S0
    throw $P0
    .return ()
.end

.namespace [ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1979	2082	
==>role Getopt::Argument::Coercer::Perl {
        multi method as (--> Num) { defined($.string) ?? Num $.st <==
2	/Users/nnunley/pugs/util/yaml_harness.pl	1353	1454	
==>it 0;


sub fixup_concurrency {
    $Config{"concurrent"} ||= $ENV{PUGS_TESTS_CONCURRENT} || 1;
    if <==
2	/Users/nnunley/pugs/inc/Test/Harness.pm	1684	1782	
==>n a
certain format.  That format is called TAP, the Test Anything
Protocol.  It is defined in L<Tes <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	1442	1558	
==>iting";

    print FILE $p6->{perl5}, "\n";

    # print "created .pmc file: $^X $pmc \n";
  );
warn "compilation err <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	8320	8427	
==>/^Sub(\w+)$/$1/;

    my $code_body = $body;

    if($kind eq 'Macro') {
	warn "Macro is not implemented.  A <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	388	488	
==>rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $eve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	388	488	
==>rest> ~~ rx:Perl5/^\?seen\s+([^ ]+)/ {
      my $reply_to = $sent_to_a_chan ?? $event<object> !! $eve <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	5868	5974	
==>JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(norm <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	5868	5974	
==>JOIN> = [-> $event {
    if(normalize($event<from_nick>) eq normalize($curnick)) {
      $chans.insert(norm <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	6552	6667	
==>self->available( [ @{ $self->available }, $inst_pkg ] );
        
    $self->write or return;
    
    return $inst_ <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	10917	11020	
==>ree->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair- <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	11109	11212	
==>ree->new;
		my $b = type::variable::free->new;
		
		type::operator::arrow->new(
			type::operator::pair- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6168	6279	
==>"hello" );



### "internals" thing - should be documented only in Pugs::Grammar::Rule 

  # low level operators <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5957	6065	
==>"hello" );

### "internals" thing - should be documented only in Pugs::Grammar::Rule 
  # low level operators <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	2052	2157	
==>ed before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $path <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	2052	2157	
==>ed before a file is added to results.
Should return 1 or 0. (defaults to 1)

    sub ( $file, $path, $path <==
2	/Users/nnunley/pugs/util/catalog_tests.pl	8658	8764	
==>emplate->output();
    close $fh;
    for (@dirs) {
        build_indexes( catdir($path, $_), $index->{_dir <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	10280	10371	
==>default = DOWN($paramDefault) if defined($paramDefault);
    return { isInvocant=>$isInvocan <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	4237	4331	
==>Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go t <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	4237	4331	
==>Rosetta-(0.722.0...)|Rosetta>.

=head1 INCOMPATIBILITIES

None reported.

=head1 SEE ALSO

Go t <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	10653	10818	
==>l(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	10932	11097	
==>l(
             \&{'grammar1::p6ws'}
           ,
         )
       ,
       )
;
*{'grammar'} = 
         ruleop::greedy_star(
             ruleop::capture( 'immediat <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	7476	7574	
==>litdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunk <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	7476	7574	
==>litdir($path_directories);
    my @basechunks = splitdir($base_directories);

    while (@pathchunk <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	3647	3744	
==>-> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	3647	3744	
==>-> C<delete>

=item C<delete_params> -> C<clear>

=back

Please read the HTTP::Query documentation <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	10806	10967	
==>scard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	10806	10967	
==>scard, *%rest) := @{$key};
                    %rest //= {};
                    
                    $cb.($version, $key, $val, $path, $domain, $port, $path_spec <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl.pm	961	1059	
==>E

Blondie::Backend::Perl - an interpreting backend for Blondie ASTs

=head1 SYNOPSIS

    use Blon <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	9836	9956	
==>any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/uninstall.pl	2868	2988	
==>any other package that's now the default
        ### for this module
        ### make sure we dont see ourselves again, s <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	14192	14303	
==>affic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_tra <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	14192	14303	
==>affic >= $autoping and time() - $last_autoping >= 60) {
          debug "No traffic seen for {time() - $last_tra <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example.pm	70	160	
==>file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0... <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example.pm	70	160	
==>file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-(0.724.0... <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	2112	2218	
==>/Compiler.pm  # functional things

lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perh <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2032	2137	
==>/Compiler.pm  # functional things
lib/Perl6/API/Code.pm # userland objects -- those are written in p6 perh <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	2372	2518	
==>gs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	2372	2518	
==>gs::Compiler::Rule->compile( q( 
      [ (\d+)                        { return { num  => $()     ,} } ] 
    | [ ( [ \$ | \@ | \% | \& ] \w+) { ret <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4198	4332	
==>piler->new( 

      lang      => 'perl6',

      parser    => ['Perl6', 'MOP6', 'PrimP6']

      optimizer => ['Op1' 'Op2'],

      lib <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4052	4182	
==>piler->new( 
      lang      => 'perl6',
      parser    => ['Perl6', 'MOP6', 'PrimP6']
      optimizer => ['Op1' 'Op2'],
      lib <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3819	3911	
==>, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=h <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3819	3911	
==>, E<lt>iblech@web.deE<gt> (port to Perl 6)

Alex Kapranoff, E<lt>kappa@rambler-co.ruE<gt>

=h <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4329	4495	
==>}
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = revers <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	4317	4483	
==>}
$_[1] }";
}        
sub concat {
    my @s;
    for ( @{$_[0]} ) { 
        my $tmp = emit_rule( $_, $_[1] );
        push @s, $tmp if $tmp;   
    }
    @s = revers <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Media/Text.pm	947	1077	
==>d end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Media/Text.pm	947	1077	
==>d end_of_line () {
    ./assertion: -> $m {
        my $pos = $m.pos;
        $pos.pos == $pos.text.chars 
            || $pos.text <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	3078	3181	
==>ay    { \@ <name> <element_expr>? }
rule interpolated_hash     { \% <name> <element_expr>? }
# XXX - klu <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	4586	4702	
==>$offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tai <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	4586	4702	
==>$offset? = 0, 
    $length? = Inf, 
    *@list 
)
    returns Perl6::Container::Array 
{ 
    my ( @head, @body, @tai <==
2	/Users/nnunley/pugs/util/func_refact.pl	25	123	
==>rict;

use Storable;
use Getopt::Long;
use YAML;

GetOptions \our %Conf, qw(help|h nodes|n=s initia <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	21988	22081	
==>ply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(chann <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	21988	22081	
==>ply both a nickname and a
channel name to the C<target> parameter.

=head2 C<$bot.invite(chann <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5632	5750	
==>d {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Chi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5632	5750	
==>d {
        ($child === $child_to_remove) && return $self.remove_child_at($index);
        $index++;
    }
    die "Chi <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5694	5805	
==>B_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this d <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5694	5805	
==>B_CONFIG{'engine_name'} );

    # Initialize (closed) database connection handle we will work with;
    # this d <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL.pm	874	981	
==>[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    me <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL.pm	874	981	
==>[Stmt]' }
}

# PILNoop :: Stmt
class Perl::Compiler::PIL::PILNoop
    does Perl::Compiler::PIL::PIL {
    me <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	6594	6713	
==>}



Match objects (Pugs::Grammar::Match) contain:



### Match actually contain getters for $() and such

### getters n <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	6374	6488	
==>}

Match objects (Pugs::Grammar::Match) contain:

### Match actually contain getters for $() and such
### getters n <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8808	8975	
==>contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @coo <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8808	8975	
==>contain cookies";
            return;
        }
    
        for (=$fh) {
            next unless s/^Set-Cookie3\:\s*//;

            for split_header_words($_) -> @coo <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13190	13289	
==>plemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we p <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13248	13347	
==>plemented yet. So
in order to still allow that to be tested, and those tests to knowingly
fail, we p <==
2	/Users/nnunley/pugs/blib6/lib/FindBin.pm	56	171	
==>$Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir : <==
2	/Users/nnunley/pugs/ext/FindBin/lib/FindBin.pm	56	171	
==>$Bin;
our Str $Dir;
our Str $Script;
our Str $RealBin;
our Str $RealDir;
our Str $RealScript;

sub init {
    $Dir : <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	17909	18064	
==>ly say 'ok'?
              name      => name of the test (if any)
              type      => 'skip' or 'todo' (if any)
              reason    => reason for <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	2121	2248	
==>module should be core!" );
        return;
    }

    eval { File::Path::rmtree($args->{dir}) };

    if($@) {
        chomp($@) <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15856	15980	
==>>object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	10712	10836	
==>>object(quant => $min, $max);
    }
    return $S->object(exact => '{');
  });

  $self->add_handler('minmod' => sub {
    my <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	4989	5119	
==>> chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Ze <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	4989	5119	
==>> chr(913),
    "Beta"     => chr(914),
    "Gamma"    => chr(915),
    "Delta"    => chr(916),
    "Epsilon"  => chr(917),
    "Ze <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	2397	2524	
==>4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsi <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	2397	2524	
==>4,@octect[1],4,0x3F)); # 1.index
      take encode(index(@octect[1],2,         0,0,0x3F)); # 2.index
      take "=";

    } elsi <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	20570	20671	
==>ompilers have finished, the digest lines will
be expanded again.

Every bit of the default process des <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	20570	20671	
==>ompilers have finished, the digest lines will
be expanded again.

Every bit of the default process des <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	13	116	
==>s grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::G <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	13	116	
==>s grammar written as a Perl 6 regexs.  A prerequisite for self hosting.

=cut

use v6;

grammar Perl6::G <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	3165	3295	
==>ystem( qq[ rm -rf $builddir ] )                and error($?), return;   

        ### XXX instead of cp -R, we can read manifest/me <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	2770	2874	
==>ds[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - se <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	2770	2874	
==>ds[0]} => \$v0) }";
    $code = common_code($data,$constructor,$code,*@fields);
    say $code; # XXX - se <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	762	875	
==>open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleto <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	762	875	
==>open / set_start_closed
    * set_end_open / set_end_closed - better names ?
    * set_density ?
    * is_singleto <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10619	10776	
==>'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$fr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	10613	10770	
==>'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1;
$_[1]       my \$fr <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	3087	3203	
==>>{bareword};
            #print "Subroutines: @subroutine_names\n";
            $_[0]->{out}= { op1 => $_[1], name => <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8880	8974	
==>mar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2705	2799	
==>mar::Perl6->variable(@_) };
push @terms, sub { Grammar::Perl6->literal(@_) };
push @statements, <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Shell.pm	2819	2911	
==>w_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.transl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Shell.pm	2819	2911	
==>w_message (Locale::KeyedText::Message $message!) {
    my Str $user_text = $translator.transl <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	14288	14395	
==>d C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C< <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	14288	14395	
==>d C<< " >>
characters.  But this, for example, would encode I<just> the
C<< < >>, C<< & >>, C<< > >>, and C< <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule.pl	7907	8043	
==>lter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( re <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	7919	8055	
==>lter 
        #    temporary hacks to translate p6 to p5 -- see 'closure' node
	
	return return_block_hack($tab,@s);
    }
    elsif ( re <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1925	2087	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	2118	2280	
==>);
        return { 
            %$match,
            capture => [ $capture_block->( $match ) ],
        }; 
    }
;
*{'perl5_rule_decl'} = 

    sub { 
        my <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	13501	13617	
==>)'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_bl <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	13501	13617	
==>)'/$1/gm;
    $source =~ s/^(`{3,})`/$1/gm;
    $source =~ s/(~{3,})~/$1/g;

    return $source;
}

sub pmc_unfold_bl <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	8362	8491	
==>pen($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	8362	8491	
==>pen($file, :w);
        
        $fh.say("#LWP-Cookies-1.0");
        $fh.print(./as_string(!$.ignore_discard));
        $fh.close <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	17142	17291	
==>pe  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	17142	17291	
==>pe  => 'data_sub_type',
        attributes => {
            'predef_base_type' => 'NUMERIC',
            'num_precision'    => 2**32,
            'num <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	5375	5475	
==>lass->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source fil <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	5375	5475	
==>lass->pmc_unfold_blocks($folded_data);

    # Calculate the number of lines to skip in the source fil <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	5982	6106	
==>*@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	5982	6106	
==>*@item ) {
    &*push(@.items: @item);
    return self;
}

method end () {
    my @x = self.pop;
    self.push( @x[0] ) if @x <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	1018	1125	
==>script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to s <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	1018	1125	
==>script_name     returns Str is export { 
    %*ENV<SCRIPT_NAME> || $*PROGRAM_NAME
}

# do we have a way to s <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14603	14700	
==>e needs. The
following is a list of future features planned for this module.

- better error handl <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14661	14758	
==>e needs. The
following is a list of future features planned for this module.

- better error handl <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	6645	6742	
==>e_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvoc <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	6645	6742	
==>e_a2 'Type', 'TypeAnd',
  'xLHS' ,'Type',
  'xRHS' ,'Type';

node_h 'Param', 'MkParam',
  'isInvoc <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10437	10590	
==>de<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.n <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10437	10590	
==>de<1>).add_children(
          Tree.new(:node<1.1>),
          Tree.new(:node<1.2>),
          Tree.new(:node<1.3>),                
      ),
      Tree.n <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	10969	11104	
==>->{exp2} );
    }

    if ( $n->{op1}{op} eq '~' ) {
        return _emit( $n->{exp1} ) . ' . ' . _emit( $n->{exp2} );
    }
    i <==
2	/Users/nnunley/pugs/misc/POE/lib/POE.pm	173	298	
==>bmethod BUILD ($self:) {
    die "There can only be one instance of POE::Kernel."
      if defined $POE::Kernel;

    $POE::Ke <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	7063	7198	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	7256	7391	
==>$match ) ],
        }; 
    }
;
    unshift @rule_terms, \&dot;
*{'rule'} = 
         ruleop::greedy_star(
             ruleop::alternat <==
2	/Users/nnunley/pugs/examples/hop6/Stream.pm	569	683	
==>il(Array $s) {
  $s.[1] = $s.[1].()
    if is_promise($s.[1]);
  return $s.[1];
}


sub is_promise($a) {
  return $ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	1202	1351	
==>his should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

mul <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	1202	1351	
==>his should not happen: '$value'";
            }
        }
        
        push @return, [@current] if @current;
    }
    
    return @return;
}

mul <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	29	127	
==>-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	29	127	
==>-0.0.1;

has $.include_trunk is rw;

has @!results;
has $!filter_function;

submethod BUILD (Code $ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Operator.pm	5460	5569	
==>e $opt{rule};
    $operator->add_op( \%opt );
    
    #push @subroutine_names, $opt{name};
}

use Pugs::Gramm <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	37333	37416	
==>('add_attribute', (symbol->new('%:private_methods') => attribute->new('%:private_met <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	6176	6275	
==>t = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	6234	6333	
==>t = "TODO for release"
        if index($Test::force_todo_test_junction, ' '~$Test::num_of_tests_run <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	3339	3448	
==>$
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3523	3632	
==>$
 :

=head2 Unimplemented or untested features

 $variable 
 @variable
 $/<0> $/<1>
 $/0 $/1
 <"literal">
 ^^ <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	2421	2528	
==>) {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c! <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	2421	2528	
==>) {
  my $c = ::?CLASS.new;

  for %!headers.keys.grep:{ %entity_header{$_} || /^content-/ } -> $f {
    $c! <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	6681	6780	
==>ts a document identified by a URL and stores it in the file. The
return value is the HTTP response c <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	6681	6780	
==>ts a document identified by a URL and stores it in the file. The
return value is the HTTP response c <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5610	5710	
==>s.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_ <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5610	5710	
==>s.
    my Rosetta::Interface::Engine $engine
        = $rosetta_root.load_engine( %DB_CONFIG{'engine_ <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2177	2272	
==>nd product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identit <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2177	2272	
==>nd product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C<< identit <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	9450	9595	
==>ht if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    re <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	9450	9595	
==>ht if $max_height < $child_height;
        }
    }
    # if there is no change, then we 
    # need not bubble up through the
    # parents
    re <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	24439	24708	
==>mbol->new('?@superclasses' => 'list'),                              
                          ),
                returns => 'list'
            ),             
            sub {
                my $e = shift;
                $e->get('?@superclasses')
                  - <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	2516	2611	
==>rn $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
m <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	2516	2611	
==>rn $.set.start_is_closed }
method end_is_open ()   returns Bool   { return $.set.end_is_open }
m <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	35254	35353	
==>sh ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()> <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	35254	35353	
==>sh ref of 2
elements, which correspond to the 2 named parameters of new().

=item C<get_set_names()> <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1463	1548	
==>tp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1303	1388	
==>tp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually <==
2	/Users/nnunley/pugs/blib6/lib/Test/Pil.pm	755	851	
==>est::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns <==
2	/Users/nnunley/pugs/ext/Test/lib/Test/Pil.pm	755	851	
==>est::Pil::Description;
  }
}
sub pil_is_eq( Str $code, Str $expected, Str $description? ) returns <==
2	/Users/nnunley/pugs/blib6/lib/Test/Builder/Tester.pm	146	293	
==>t;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is <==
2	/Users/nnunley/pugs/ext/Test-Builder/lib/Test/Builder/Tester.pm	146	293	
==>t;
    has @!diagnostics;

    method write ( Str $message is copy )
    {
        push @!output, $message;
    }

    method diag ( Str $message is <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11081	11221	
==>'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	11075	11215	
==>'        ' )
        if ref( $program );
    return "$_[1] do{ 
$_[1]     my \$pos1 = \$pos;
$_[1]     do {
$_[1]       my \$pos = \$pos1 - 1 <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers/Util.pm	669	891	
==>([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers/Util.pm	669	891	
==>([^;,\s]*)//) {
                    my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    push <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	8111	8235	
==>hift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	8304	8428	
==>hift @rule_terms, \&closure_rule;
*{'variable_rule'} = 

    sub { 
        my $rule = 
         ruleop::capture( 'variable', <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	5181	5270	
==>elete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$c <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	5181	5270	
==>elete(%!cache353{$chan}.keys);
      %!users{$_}<channels>.delete($chan) for %!cache353{$c <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	9794	9970	
==>, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./cl <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	9794	9970	
==>, %hash if %hash;
                %!cookies{$domain}{$path}{$key} = @array;
            }
        }

        $fh.close;
        1;
    }
    
    method revert () {
        ./cl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	6226	6341	
==>d ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	6226	6341	
==>d ~~ s:perl5:g/([^-.\w])/$utf82hex(ord($0))/;
        }
    }
    return $encoded;
}

sub pack_params returns Str is <==
2	/Users/nnunley/pugs/util/importgraph.pl	258	359	
==>::Find;
use GraphViz;
use Getopt::Long;

my $layout = "neato";
my $overlap = "false";
my @ignore;
GetO <==
2	/Users/nnunley/pugs/blib6/lib/FA/DFA.pm	194	295	
==>next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool: <==
2	/Users/nnunley/pugs/ext/FA-DFA/lib/FA/DFA.pm	194	295	
==>next(Str $trigger --> FA::DFA::Node) {
  %.arc{$trigger};
}

multi method finalize() {
  $.final=Bool: <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	680	788	
==>ms) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *i <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	680	788	
==>ms) { [*] @$nums }
multi *postfix:<!> ($x) { [*] 1..$x }
# multi ∞()       { Inf } -- doesn't work
multi *i <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	1435	1539	
==>dule which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< in <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	1435	1539	
==>dule which eases the use of functional programming
techniques in Perl 6.

=head1 OPERATORS

=head2 C<< in <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	10994	11092	
==>($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ( <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	10994	11092	
==>($node?) returns Tree>

=item B<node ($self: $node?)>

=item B<depth returns Int>

=item B<parent ( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule.pl	9949	10054	
==>{'${namespace}any'}\n";
}
sub node::subrule {
    my $name = $_[0];
    $name = '$grammar->' . $_[0] unles <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	5468	5605	
==>=> $rx,
      flags => $rx->{flags}[-1],
      family => 'anyof_char',
      type => 'anyof_char',
      data => $data,
      vis => $vis, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Precedence.pm	8338	8474	
==>ce or a Grammar name).

=head2 add_op ()

Instance method.  Adds a new operator to the category.

options:

=item * name => $oper <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9373	9641	
==>sfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{p <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10850	11118	
==>sfied = 0;
       
        ++$satisfied if grep {
                            $wanted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{p <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	740	837	
==>ompiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compi <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	740	837	
==>ompiler::PIL::Util::TypeConjunction
    does Perl::Compiler::PIL::Util::Type {
    has Perl::Compi <==
2	/Users/nnunley/pugs/blib6/lib/Pod/Event/Parser.pm	8642	8737	
==>rt_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This e <==
2	/Users/nnunley/pugs/ext/Pod-Event-Parser/lib/Pod/Event/Parser.pm	8642	8737	
==>rt_modifier>

This event is fired when a modifier is encountered.

=item I<end_modifier>

This e <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	2161	2263	
==>@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C< <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	2161	2263	
==>@nums) >>

Sum and product.

=head2 C<< postfix:<!>(Int $x) >>

Factorial.

=head1 FUNCTIONS

=head2 C< <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2504	2704	
==>d $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2504	2704	
==>d $v ? $v :
                        ();
                if ( ref( $r{$k} ) ne 'ARRAY' ) {
                    $r{$k} = [ $r{$k} ] if defined $r{$k};
                }
                push @{$r{$k}}, @v <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	718	842	
==>$deep++;
        }
        $source .= $paren;
    }

    #my $rule = Runtime::RuleCompiler->compile($source);
    #print '*{\ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1389	1482	
==>State/Temp markers for container

allocation, as well as the compile-time-bound values for the <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1329	1421	
==>State/Temp markers for container
allocation, as well as the compile-time-bound values for the <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Rule.pm	2904	3066	
==>re
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- pe <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Rule.pm	3088	3250	
==>re
                    -- perl5 syntax inside closure
                    -- $/ doesn't work yet
 { return code }    -- capturing closure
                    -- pe <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	7684	7793	
==>verse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $ch <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	7684	7793	
==>verse($func);
    }
}

method post_order_traverse ($self: Code $func) returns Void {
    for @!children -> $ch <==
2	/Users/nnunley/pugs/util/build_pugs.pl	3550	3673	
==>$fixup = sub {
        my $module = shift; # eg. "Data.Yaml.Syck"
        my $pathname = $module;
        $pathname =~ s!\.! <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Type/Comparable.pm	420	523	
==>ugh,
# so it should be considered a protected 
# method, which is used to implement the 
# other methods <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	133	228	
==>ar::Util qw/blessed/;

use Blondie::Nodes ();
use Blondie::Emitter::Pretty;

use strict;
use war <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1514	1672	
==>$sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @ <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1514	1672	
==>$sp = Span.new().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15433	15536	
==>xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9630	9733	
==>xdigit' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => xdigit => $neg <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/SeenExt.pm	1570	1677	
==>tching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::Seen <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/SeenExt.pm	1570	1677	
==>tching
  ?seen nick

There's also the C<seen(Str $nick)> method, which can be used to query
C<Net::IRC::Seen <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	6105	6239	
==>, \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	6298	6432	
==>, \&{'grammar1::escaped_char'} )
       ,
    ;
        my $match = $rule->( @_ );
        return unless $match;
        my $capture_bl <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18607	18730	
==>POS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15028	15151	
==>POS--;
    return;
  });

  # closing paren coming from an opening paren
  $self->add_handler('c)' => sub {
    my ($S) = @_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	5979	6103	
==>= 0) {
        # If expected is 0, treat range as absolute
        $pass = ($got <= $range) && ($got >= - $range);
    } else <==
2	/Users/nnunley/pugs/util/package-osx.pl	6890	6991	
==>m
        /usr/local/man/man3/Perl6::Perl5::Differences.3
        /usr/local/man/man3/Perl6::Perl5::Di <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1369	1465	
==>the Pad contains My/State/Temp markers for container

allocation, as well as the compile-time-bou <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1309	1404	
==>the Pad contains My/State/Temp markers for container
allocation, as well as the compile-time-bou <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	2890	3067	
==>{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP:: <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	2890	3067	
==>{$path}.kv -> $key, $array {
                        my :($version, $val, $port, $path_spec, $secure, $expires) := $array;
                        
                        #LWP:: <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	13324	13479	
==>"\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	13603	13758	
==>"\," )
       ,
         ruleop::optional(
             ruleop::capture( 'p6ws', \&{'grammar1::p6ws'} )
           ,
         )
       ,
         ruleop::ca <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	9455	9793	
==>ted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	10932	11270	
==>ted eq $_
                        } map { 
                            ref $_->{provides} 
                                ? @ { $_->{provides} } 
                                : $_->{provides}
                                ;
                        } @list;
                        
        return $satisfied;
    }  

    ### takes a <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	15971	16074	
==>response instead of
the document itself.

=item $h.last_modified

This header indicates the date and tim <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	15971	16074	
==>response instead of
the document itself.

=item $h.last_modified

This header indicates the date and tim <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	1192	1444	
==>ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	1319	1571	
==>ruleop::constant( "n" )
                 ,
                   ruleop::constant( "\#" )
                 ,
                   ruleop::constant( "\-" )
                 ,
                   ruleop::constant( "\<" )
                 ,
                   ru <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Grammar/Rule/Rule.pm	1357	1508	
==>=> $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Grammar/Rule/Rule.pm	1357	1508	
==>=> $() ,} }
    }
    unshift @rule_terms, 'variable_rule';
    
    # $0 $1
    rule match_variable {
        <num_variable>    
            
        { <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	4680	4781	
==>is HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd re <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	4680	4781	
==>is HACK is worse than
# the File::Spec platform hack
#sub cwd returns Str { system("pwd") }
sub cwd re <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	34827	34926	
==>tion and that match any tuples of C<$other> along
their common attributes.  This method will fail if <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	39377	39476	
==>tion and that match any tuples of C<$other> along
their common attributes.  This method will fail if <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10881	10984	
==>ed by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple con <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10881	10984	
==>ed by third party add-ons.

=head2 The Rosetta::Model::Document Class

A Document object is a simple con <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	3686	3802	
==>(Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $UR <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	3686	3802	
==>(Str $to_decode) returns Str is export {
    my $decoded = $to_decode;
    $decoded ~~ s:perl5:g/\+/ /;
    given $UR <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1940	2037	
==>ovided with any tags, it will intuit one by extracting the 
last component of the calling function <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1940	2037	
==>ovided with any tags, it will intuit one by extracting the 
last component of the calling function <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Server/Simple.pm	2256	2382	
==>OCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $fi <==
2	/Users/nnunley/pugs/ext/HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	2256	2382	
==>OCOL> = $proto;
    %*ENV<SERVER_PORT>     = $.port;
    %*ENV<SERVER_NAME>     = 'localhost';
    %*ENV<PATH_INFO>       = $fi <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5766	5850	
==>ation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5766	5850	
==>ation

L<http://search.cpan.org/~adamk/Config-Tiny-2.01/lib/Config/Tiny.pm>

=item OO <==
2	/Users/nnunley/pugs/blib6/lib/Span/Code.pm	1127	1239	
==>return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Code.pm	1127	1239	
==>return ! defined( $self.start );
}

method start ($self: ) {
    my $tmp = $self.next( -Inf );
    return $tmp == <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26513	26608	
==>iminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31065	31160	
==>iminated.  Trivial cases are where C<$attrs> is either empty or equal to
the invocant Relation's <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6primitives-cached.pl	151	273	
==>ent_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6primitives-cached.pl	151	273	
==>ent_control:<if>' ),
        \&grammar1::ws_star,
       ruleop::concat(
         ruleop::optional(
             \&{'gramma <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/util/graph_classes.pl	1513	1624	
==>ists $SEEN{$class}) {
        $output .= _draw_class_node($class);
        $output .= "node_" . $class->class->i <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	542	658	
==>r: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub g <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	542	658	
==>r: method results ($self:) is rw {...}
sub set_results ($self: @results) returns Void  { @!results = @results }
sub g <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	11743	11872	
==>oop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$id <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14591	14720	
==>oop;
    my $idx = $o->{'nparen'} -1;
    sub {
      my $c = $_[0];
      FAIL() if $idx >= @$X::cap;
      my $m = $X::cap->[$id <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	26544	26640	
==>ere C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it return <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	31096	31192	
==>ere C<$attrs> is either empty or equal to
the invocant Relation's header, in which case it return <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1720	1826	
==>er::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocan <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1720	1826	
==>er::PIL::Util::Parameter @.params;
}

class Perl::Compiler::PIL::Util::Parameter {
    has Bit $.is_invocan <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3875	4016	
==>tch or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	4015	4156	
==>tch or next;   
        eval { $$match->{from} = $i unless defined $$match->{from} };   # XXX
        return $match;  
    }
    return Pugs:: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/v6.pm	582	689	
==>/lib",
        "$Bin/../Pugs-Compiler-Rule/lib",
        "$Bin/../Pugs-Utils/lib",
        #"$Bin/../Pugs-Co <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	7788	7889	
==>v_2mortal(newSVpvn(exp,xend-exp)));
    XPUSHs(sv_2mortal(newSVuv((ulong)r)));
    PUTBACK;
  HANDLER_ <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	14394	14487	
==>")'],Cmd),
  !, perl5_eval(Cmd,[C,10]), !, % XXX - warn on failure
  assert(cached_uncode_char <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1492	1607	
==>ose(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $sel <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1492	1607	
==>ose(OBJECT) or die "Unable to close object file: $obj : $!";
}

sub load {
    my $self = shift;
    my $code = $sel <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	8452	8567	
==>ed, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	8452	8567	
==>ed, and it returns one of ['Class','Module', etc] if it is.
    # Note: 'Package' is checked for instead of 'Module' <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	629	736	
==>rs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is expor <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	629	736	
==>rs = map {~$_ }, @dirs;
    return @dirs;
}

sub splitpath (Str $path, Bool $nofile?) returns Array is expor <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	1245	1345	
==>eral_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative repr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	1245	1345	
==>eral_headers,
 *@request_headers,
 *@response_headers,
 *@entity_headers,
);

# Make alternative repr <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	14942	15051	
==>this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	14942	15051	
==>this Node and all of its relative Nodes live in.

=item C<$!parent_node> - B<Parent Node>

Rosetta::Model::Nod <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	2630	2761	
==>e=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new( <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	2630	2761	
==>e=twp
    three= four
    Foo =Bar
    empty=

    # In your program
    use Config::Tiny;

    # Create a config
    my $cfg = new( <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	9295	9408	
==>tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2 <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Objects.pm	11610	11723	
==>tree;

    push @$tree, $self unless $tree->[-1] == $self;
    return unless @$tree > 1;
    my $prev = $tree->[-2 <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	11983	12140	
==>y $e = shift;
                      $e->set('?%params' => hash->new()); 
                  }));
                $e->get('$class:')->send('bless' => (str->new( <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	19544	19667	
==>kg = 'main' if $pkg !~ /\A$ROOT/;
    $pkg = "${ROOT}::main" if $pkg eq 'main';
    $pkg = "${ROOT}" if $pkg eq '';
    my $ <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	3325	3419	
==>ture doesnt parse. using simplified one.
#multi Array::shift ( --> Scalar ) {
multi Array::shif <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Caesar.pm	1585	1687	
==>.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. IS <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Caesar.pm	1585	1687	
==>.)

=head1 SEE ALSO

L<Cipher>

David Kahn, I<The Codebreakers - The Story of Secret Writing>, 1967. IS <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	371	480	
==>ut we cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	371	480	
==>ut we cant do that yet.

   And since macros cannot currently define classes,
      macro f($x) { "class $x \{ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	3659	3784	
==>aped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	3852	3977	
==>aped_char'} = sub {
    my $bool = $_[0] =~ /^\\(.)(.*)$/sx;
    return {
        bool  => $bool,
        match => { 'escaped_ <==
2	/Users/nnunley/pugs/blib6/lib/LWP/Simple.pm	767	875	
==>etstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $ <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/LWP/Simple.pm	767	875	
==>etstore (Str $url, Str $file) is export
{
  my $fh = open $file, :w;
  my $buffer = get $url;
  if (defined $ <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	7112	7263	
==>array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
}


 mul <==
2	/Users/nnunley/pugs/src/PIL/misc/prelude/Array.pm	5613	5757	
==>array[$off+$i] = @values[$i];
            $i++;
        }
    }

    #  want.List ?? *@result !! +@result ?? @result[-1] !! undef;
    @result;
} <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec.pm	2343	2443	
==>ning modules in 
Pugs, this port does it's best to work with those limitations and 
still produce a w <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec.pm	2343	2443	
==>ning modules in 
Pugs, this port does it's best to work with those limitations and 
still produce a w <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	872	988	
==>rk;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	872	988	
==>rk;

    @t = timeit($count, 'code');
    @t = timeit($count, { 1 + 1 });

    timethese($count, { hyper => { my @r = <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	897	1016	
==>f Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tupl <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	4375	4494	
==>f Any $!body;
        # Set of Mapping(Str) of Any
        # Each Set member is a tuple of this Relation, where the tupl <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	5508	5656	
==>ove section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	5972	6120	
==>ove section works for an OR search.
                    ### The [ ] is passed for the AND search, which will
                    ### then not be able <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/RuleInline-more.pl	1958	2124	
==>turn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'b <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/RuleInline-more.pl	1958	2124	
==>turn { bool => 1,
                 #match => undef,  #'null',
                 tail => $_[0],
               }
    };
};

# experimental!
=for example
    # adds an 'b <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	761	871	
==>e = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this no <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	761	871	
==>e = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this no <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation/Set.pm	457	588	
==>, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    fo <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Repository/Set.pm	451	582	
==>, store => \$dirs },
    };
    
    check( $tmpl, \%hash ) or error( Params::Check->last_error ), return;
    
    my @inst;
    fo <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36696	36794	
==>the Extension

Here's a final example.  I'm going to rewrite F<Regexp::AndBranch> to
handle both '& <==
2	/Users/nnunley/pugs/misc/XML-SAX/lib/XML/SAX.pm	326	423	
==>//= catfile((splitpath(%*INC<XML/SAX.pm>))[1], 'SAX');
	$file //= $parser_details;

	my $fh = open <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	11048	11150	
==>%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { retu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	11048	11150	
==>%options, :mode<deciphering>);
    return sub(Str $ciphertext?) {
        if defined $ciphertext { retu <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	9132	9260	
==>);

  $self->add_handler(':' => sub {
    my ($S) = @_;

    if (${&Rx} =~ m{ \G \: }xgc) {
      my $n = '::';
      return $S-> <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	4498	4602	
==>x[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @st <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	4498	4602	
==>x[2],6,@index[3],0,0xFF); # 2.octet
    } elsif (all(@string[0..1])>0) {
      my Int @index = splice @st <==
2	/Users/nnunley/pugs/blib6/lib/Recurrence.pm	10848	10957	
==>nt set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
O <==
2	/Users/nnunley/pugs/ext/Recurrence/lib/Recurrence.pm	10848	10957	
==>nt set of the universe is an empty set.

`:is_universe` must be set if this recurrence is a "universal set".
O <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	6213	6312	
==>ion of most block and stream ciphers to a constructor, 
the cryptographic core, and a couple attribu <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	6213	6312	
==>ion of most block and stream ciphers to a constructor, 
the cryptographic core, and a couple attribu <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	18475	18588	
==>ame>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username, or ircname. Note that thess <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	18475	18588	
==>ame>, C<$bot.curircname>,
C<$bot.curhostname>

Returns the current nickname, username, or ircname. Note that thess <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Block.pm	289	393	
==>ffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Block.pm	289	393	
==>ffer.push(128);
    @.buffer.push(0) while @.buffer < $bs;
    return *.cipher_block(@.buffer);
}

method <==
2	/Users/nnunley/pugs/blib6/lib/HTML/Entities.pm	15650	15745	
==>to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported <==
2	/Users/nnunley/pugs/ext/HTML-Entities/lib/HTML/Entities.pm	15650	15745	
==>to the corresponding entities
(and vice versa, respectively).

=head1 AUTHOR

Gigle Aas.  Ported <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	4488	4593	
==>e indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in your
code; instea <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	4488	4593	
==>e indexes.  Aside from
'use' statements, you should never refer directly to "Rosetta" in your
code; instea <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1909	2012	
==>rning this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.string <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1909	2012	
==>rning this expression does not
    # yield the correct return value.

    say "Comparing: "~$self.string <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8445	8548	
==>$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	8433	8536	
==>$rnd}] ) ne 'ARRAY' ) {
$_[1]         \$match[\$index{$rnd}] = [ \$match[\$index{$rnd}], bless \\\$hash, <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	4895	5031	
==>n - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the r <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	4895	5031	
==>n - 1)],
        );
    }
    # make sure we fix the height
    $self.fix_height();
    $self.fix_width();    
    # make sure that the r <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	6137	6385	
==>vail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	6601	6849	
==>vail ) } 
                    ) {

                        ### add to our list and short circuit
                        push @maybe, $found[0];
                        last;
                        
                    ### OR dependency, so try the <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5853	5956	
==>ich are "matcher" things.

Rules operate on strings (normally) and return Match objects.



### examples <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5650	5750	
==>ich are "matcher" things.
Rules operate on strings (normally) and return Match objects.

### examples <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	4463	4558	
==>:en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	4463	4558	
==>:en version 1.0.1.

=head1 SYNOPSIS

I<This documentation is pending.>

=head1 DESCRIPTION

I<Th <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	16899	16997	
==>Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certain loca <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	16899	16997	
==>Locale::KeyedText doesn't actually do a lot
internally; it exists mainly to document a certain loca <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12119	12256	
==>_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qual <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5/Ratchet.pm	12113	12250	
==>_[1] ... alternation( \\$cmd )\n";
    }
    if ( $prefix eq '$' ) {
        if ( $cmd =~ /::/ ) {
            # call method in fully qual <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	10221	10317	
==>rmedness of the input, such as that mandatory
constructor arguments are provided and that they ar <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	10221	10317	
==>rmedness of the input, such as that mandatory
constructor arguments are provided and that they ar <==
2	/Users/nnunley/pugs/blib6/lib/Tree/Visitor.pm	244	345	
==>ed }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_fi <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree/Visitor.pm	244	345	
==>ed }
method get_node_filter   ($self:) returns Code { $!filter_function         }
method clear_node_fi <==
2	/Users/nnunley/pugs/blib/lib/Inline/Pugs.pm	1251	1365	
==>n};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless - <==
2	/Users/nnunley/pugs/lib/Inline/Pugs.pm	1251	1365	
==>n};
    $self->mkpath($path)                   unless -d $path;
    $self->mkpath($self->{API}{build_dir}) unless - <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	9712	9900	
==>( [$_] ) } @$entry;
                $str .= ')';
                
            } elsif ( UNIVERSAL::isa( $entry, 'REF' ) ) {
                $str .= _pp_depends( $$entry );
            } els <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	11913	12014	
==>write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	11971	12072	
==>write your own functions like this:

  cmp_ok('test', sub ($a, $b) { ?($a gt $b) }, 'me', '... testing <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	13681	13785	
==>ore bug that needs to
be sorted out before you can continue.

It is also possible to use the `force_todo( <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	13739	13843	
==>ore bug that needs to
be sorted out before you can continue.

It is also possible to use the `force_todo( <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2099	2195	
==>lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<comm <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2099	2195	
==>lexically scoped marks (but it may also
limit the engine semantically, we shall see).  See C<comm <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2214	2357	
==>[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{stat <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2214	2357	
==>[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $match->{stat <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	10709	10819	
==>lain string or a reference to an array
of strings for a multi-valued field. If the $value is undefined or not
g <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	10709	10819	
==>lain string or a reference to an array
of strings for a multi-valued field. If the $value is undefined or not
g <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	19579	19676	
==>nd C<no> statement
are marked to be passed to that compiler. The end of an inner block
effectively <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	19579	19676	
==>nd C<no> statement
are marked to be passed to that compiler. The end of an inner block
effectively <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Engine/Example/L/en.pm	223	477	
==>le:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub ge <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Engine/Example/L/en.pm	223	477	
==>le:
my Str %TEXT_STRINGS is readonly = (
);

###########################################################################
###########################################################################

module Rosetta::Engine::Example::L::en-0.2.1 {
    sub ge <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1652	1793	
==>if exists $n->{num};
        
    return _mangle_var( $n->{scalar} )
        if exists $n->{scalar};
        
    return _mangle_var( $n- <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Term.pm	1022	1132	
==>s|$ ) .*)$/sx;
    return $class->no_match;
};

sub substitution {
    my $grammar = shift;
    return $grammar <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	10275	10366	
==>C<_cleaned_switches>

  my @switches = $self->_cleaned_switches( @switches_from_user );

Ret <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	1137	1242	
==>cument contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	1137	1242	
==>cument contains.
    has Rosetta::Model::Node @!root_nodes;
    # Array of Rosetta::Model::Node
    # List <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/P6Rule.pm	9778	9892	
==>get, pos, lastpos
    $S0 = substr target, pos, 1
    if $S0 != "{" goto err_closure
    inc pos
    $I1 = find_not <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	1527	1681	
==>w().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $s <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	1527	1681	
==>w().union( $span );
        }
        else {
            $sp = Span.new( object => $span );
        }
        next if $sp.is_empty;
        push @spans, $s <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/install.pl	4023	4218	
==>st ) and
                            $package    eq package_name(    $test ) and 
                            ### XXX this should be a policy test!
                            $version    <= packa <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	13281	13388	
==>- $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pinging serve <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	13281	13388	
==>- $.last_autoping >= 60) {
      debug "No traffic seen for {time() - $.last_traffic} seconds; pinging serve <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	6875	6995	
==>odule intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loade <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	6875	6995	
==>odule intentionally doesn't exist,
        # and so skip to the next candidate module name.
        if (!$module_is_loade <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	9432	9538	
==>he perl program ]
#   verbose  => print the command line

my $is_mswin    = $^O eq 'MSWin32';
my $is_netwar <==
2	/Users/nnunley/pugs/inc/Module/Install/Fetch.pm	742	868	
==>t_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $sche <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Fetch.pm	709	835	
==>t_aton($host) }) {
        warn "'$host' resolve failed!\n";
        return;
    }

    return unless $scheme eq 'ftp' or $sche <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	3047	3203	
==>name\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $so <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	3264	3420	
==>name\n";
            open( FILE, "<", $filename ) or 
              die "can't open file: $filename - $!";
        }
        local $/ = undef;
        my $so <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	2207	2346	
==>ch}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $m <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	2207	2346	
==>ch}, @_[4,5,6,7] );
            $match = $$match if ref($match) eq 'Pugs::Runtime::Match';
            ### match: $match
            if ( $m <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/blib/lib/Pugs/Grammar/MiniPerl6.pm	494	601	
==>turn "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Var <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Grammar-MiniPerl6/lib/Pugs/Grammar/MiniPerl6.pm	494	601	
==>turn "capture_" . $<cap_num> }
    | <VariableName>      { use v5; return $<VariableName>() }
))->code;
*Var <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6dump.pm	584	682	
==>ty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6dump.pm	584	682	
==>ty");
	return $x->ast(xmlify($x,shift)); 
}
sub p5 {
	local $Data::Dumper::Varname = $_[1];
	$Data: <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	14179	14284	
==>" order.

Any return values of the callback routine are ignored.  The loop can
be broken by raising an exc <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	14179	14284	
==>" order.

Any return values of the callback routine are ignored.  The loop can
be broken by raising an exc <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	18376	18476	
==>er.

I have found that when it comes to getting the most accurate program text
for users, we still ge <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	18376	18476	
==>er.

I have found that when it comes to getting the most accurate program text
for users, we still ge <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	495	624	
==>sub {
        my $self = shift;
        return $self->{values}{$key} if defined wantarray and !@_;
        $self->{values}{$key} = <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	6960	7063	
==>ing is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::in <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	6960	7063	
==>ing is really the same as
# insertSiblings, you are just inserting
# and array of one tree
our &Tree::in <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Source.pm	2769	2891	
==>uilddir'" ), return;

### XXX perl-ify
sub build {
    my $self = shift;
    my $conf = $self->config;

    ### XXX move to <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	12527	12630	
==>true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $s <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	12527	12630	
==>true if C<$set1> is a superset of C<$set2>.

=head2 C<$set1.proper_subset($set2)>

=head2 C<$set1 ⊂ $s <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	18207	18311	
==>le DBMS
objects want to use the same external resources, such as a repository file
on disk, it is expecte <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	18207	18311	
==>le DBMS
objects want to use the same external resources, such as a repository file
on disk, it is expecte <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	10595	10695	
==>hed the end of the tree;
it will then reset itself, and will start from the beginning the next
time i <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	36755	36852	
==>e F<Regexp::AndBranch> to
handle both '&' and '!'.  '!' will indicate a negative look-ahead.

  pa <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model/L/en.pm	939	1065	
==>ies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invoc <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model/L/en.pm	939	1065	
==>ies the values for]
           ~ q[ attributes of a new Node object to be created as a Child]
           ~ q[ Node of the invoc <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Text.pm	388	508	
==>om_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub e <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Text.pm	388	508	
==>om_attr();

    %att.delete<source>
        if %att.exists<source> and %att<source> eq %att<content>;

    %att;
}

sub e <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	13741	13843	
==>LF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do s <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	17218	17320	
==>LF!_inner_join( $other );
}

multi method join (Relation *@others) returns Relation {

    # First do s <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	4385	4592	
==>->get('$method')->is_nil
                          })
                      ); 
                })
            );
            return $e->get('$method');        
        }
    )
);

=pod

sub *WALKCLASS (block <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	1508	1650	
==>>{next} = ['atom'];

  return 1;
}


sub parse {
  my ($self, $rx) = @_;
  $self->regex($rx) or return if defined $rx;
  croak "no regex define <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Test.pm	1895	2015	
==>>      $params{'$.number'},
            );
        }
    }
});

$::TestBuilder->FETCH('::Test')->STORE('::Base' => role ' <==
2	/Users/nnunley/pugs/t/builtins/system/create_files.pl	1524	1622	
==>ir";
}
if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
    print "# Unpacking $exename.exe\ <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	2438	2580	
==>rs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	2438	2580	
==>rs.sort.map:{
               '"' ~ .key ~ '"="' ~ (.value // $EMPTY_STR) ~ '"' #/
           }.join( q{, } ) ~ '}'
         ~ "\n";
}

#&coerce <==
2	/Users/nnunley/pugs/blib6/lib/Benchmark.pm	608	735	
==>{
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
} <==
2	/Users/nnunley/pugs/ext/Benchmark/lib/Benchmark.pm	608	735	
==>{
        my @time = timeit($count, $code);
        say "$name: { @time[0] != 0 ?? int($count / @time[0]) !! "Inf" }/s";
    }
} <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/WS.pm	533	644	
==>S

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an X <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/WS.pm	533	644	
==>S

See L<Perldoc::DOM::Node>.

=head1 DESCRIPTION

Sometimes you need to put in a little whitespace to fill an X <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	12003	12122	
==>t(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	4646	4765	
==>t(prop => $name, 1)) if $cc;
    return $S->object(prop => $name, 1);
  });

  # prop (a unicode property)
  $self->add_ <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	10011	10114	
==>MS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=he <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	10011	10114	
==>MS_LOADED) {load_params}; (%PARAMS{$key}); }

=pod

=head1 NAME

CGI - A module for programming CGI

=he <==
2	/Users/nnunley/pugs/blib6/lib/fp.pm	54	164	
==><o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# H <==
2	/Users/nnunley/pugs/ext/fp/lib/fp.pm	54	164	
==><o> (Code &f, Code &g) { sub($x) { f g $x } }
multi *infix:<∘> (Code &f, Code &g) { sub($x) { f g $x } }

# H <==
2	/Users/nnunley/pugs/blib6/lib/Perldoc/DOM/Node.pm	737	868	
==>representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this <==
2	/Users/nnunley/pugs/ext/Perldoc/lib/Perldoc/DOM/Node.pm	737	868	
==>representation;
 my $node = Perldoc::DOM::Element->new
     ({ name => "sect1",
        source => "=head1 ",  # text "eaten" by this <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	12856	12972	
==>:= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ($str <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	12856	12972	
==>:= &!uri_path; # for backwards compatibility
    
    my method normalize_path (Str $str is rw) {
        given ($str <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	23207	23311	
==>.")>

Sends a command to the server. The command is not modified by this module,
aside from appending the <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	23207	23311	
==>.")>

Sends a command to the server. The command is not modified by this module,
aside from appending the <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	531	633	
==>L::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compile <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	531	633	
==>L::Util::Pos $.end;

    has $.match;
}


role Perl::Compiler::PIL::Util::Type { }

class Perl::Compile <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	4182	4352	
==>)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gra <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	4375	4545	
==>)$/sx;
    return {
        bool  => $bool,
        match => { 'ws'=> $1 },
        tail  => $2,
        ( $_[2]->{capture} ? ( capture => [ $1 ] ) : () ),
    }
};
*{'gra <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	8681	8858	
==>$r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    d <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	12158	12335	
==>$r1;
}

&intersect ::= &intersection;

###########################################################################

method difference (Relation $other!) returns Relation {

    d <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	22316	22414	
==>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destin <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	22316	22414	
==>,
C<$bot.notice(to =E<gt> "...", text =E<gt> "...")>

Sends a C<PRIVMSG> or a C<NOTICE> to a destin <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	0	92	
==>my $rule = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	0	92	
==>my $rule = 'Pugs::Compiler::Rule';
my $grammar = 'Pugs::Grammar::Perl6';

package Pugs::Gramm <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	3695	3907	
==>state: @state

                ### backtracking - match: @matches

                next;

            }

            

            my $succ;

            if ( ! defined( $matches[1]{state} ) ) {

                $ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	3581	3786	
==>state: @state
                ### backtracking - match: @matches
                next;
            }
            
            my $succ;
            if ( ! defined( $matches[1]{state} ) ) {
                $ <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install.pm	2155	2297	
==>if ( my $code = $sym->{$pwd} ) {
            # delegate back to parent dirs
            goto &$code unless $cwd eq $pwd;
        }
        $$sy <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Match.pm	2905	3055	
==>r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Match.pm	2905	3055	
==>r{$m->{label}}}, _box_submatch( $_[0], $m );                
            }
            else {
                $r{$m->{label}} = [ $r{$m->{label}}, _box <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2778	2902	
==>b {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/emit.pl	1400	1524	
==>b {" . '
    my $bool = $_[0] =~ /'.$regex.'(.*)$/sx;
    return {
        bool  => $bool,
        match => { \''.$name.'\'=> <==
2	/Users/nnunley/pugs/misc/Blondie/milner.pl	22352	22456	
==>em_list,
	in => let(
		ide => "length_and_first",
		is => $length_and_first,
		in => comb(
			fun => ide( <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	26127	26227	
==>0	/* Converted .* to ^.* */
 #define ROPT_NOSCAN		0x00040	/* Check-string always at start. */
 #defin <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser.pm	5604	5714	
==>stash->{"FLAG_$_"} for @flags;
}


sub add_handler {
  my ($self, $seq, $func) = @_;
  no strict 'refs';
  no w <==
2	/Users/nnunley/pugs/util/p5_to_p6.pl	3227	3351	
==>$n {
  \$_ = shift;
  $c;
  \$_;
}

.
}
$conv = $newconv;
eval $conv;
die $@ if $@;


my $src;
my $srcfile;
my $DEBUG;


if(! <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	5275	5383	
==>>force_object(space => 1)) if $cc;
    return $S->object(space => 1);
  });

  # space (a space)
  $self->add <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	10958	11076	
==>re()
	    unless ref $args{progs} eq "ARRAY";
        foreach my $prog (@{$args{progs}}) {
            if ($is_mswin || <==
2	/Users/nnunley/pugs/misc/Grammars/snapshot_of_prolog_engine.pl	21353	21439	
==>r(class_neg(space_perl),C) :- !, \+(char_type(C,space)), C \= 11.
class_member(class_po <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/grammar.pl	1852	1952	
==>, name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/grammar.pl	1852	1952	
==>, name => '*', assoc => 'left',
    precedence => 'tighter', other => '+',
} );
$statement->add_op( { <==
2	/Users/nnunley/pugs/blib/lib/Perl6/MakeMaker.pm	2246	2362	
==>_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?) <==
2	/Users/nnunley/pugs/lib/Perl6/MakeMaker.pm	2246	2362	
==>_path' for input\n";
    my $source = do { local $/; <MODULE> };
    return unless $source =~
    /^\s*module\s+(.*?) <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Emitter/Rule/Perl5.pm	7390	7540	
==>l method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[ <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Emitter/Rule/Perl5.pm	7390	7540	
==>l method in lexical $var
        return 
            "$_[1] sub { \n" . 
            "$_[1]     my \$r = get_variable( '$cmd' );\n" . 
            "$_[ <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Value/List.pm	8462	8634	
==>method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = <==
2	/Users/nnunley/pugs/ext/Perl6-Value-List/lib/Perl6/Value/List.pm	8462	8634	
==>method keys ( $array: ) { 
        my $ret = $array; 
        my $count = 0;
        Perl6::Value::List.new(
                cstart => coro {
                        my $x = <==
2	/Users/nnunley/pugs/inc/Module/Install/Win32.pm	1704	1803	
==>m there; that will create the
'nmake.exe' file needed by this module.

You may then resume the insta <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Win32.pm	1544	1643	
==>m there; that will create the
'nmake.exe' file needed by this module.

You may then resume the insta <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	3064	3165	
==>gs-fglock" will load all ::fglock things

# for Pugs::Compiler, Pugs::Emitter, etc?





I think subcl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	2955	3052	
==>gs-fglock" will load all ::fglock things
# for Pugs::Compiler, Pugs::Emitter, etc?


I think subcl <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	5006	5120	
==>E ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	5006	5120	
==>E ###

    use Rosetta; # also loads Rosetta::Model and Locale::KeyedText

    # Define how to talk to our database <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Date.pm	95	218	
==>TORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is e <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Date.pm	95	218	
==>TORY) { ... }
    sub str2time ($str, $zone?)   is export(:MANDATORY) { ... }
    
    sub parse_date ($str)            is e <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	8682	8795	
==>xpr_result = eval_pv(SvPV_nolen(expr_code),0);
      SPAGAIN;
      XPUSHs(expr_result);
      PUTBACK;
      goto <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	10903	11034	
==>) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	10903	11034	
==>) }
        else                   { return $self.finishstr() }
    };
}
method decipherer(Class $class: *%options) {
    my $self = <==
2	/Users/nnunley/pugs/blib6/lib/Span/Num.pm	3274	3408	
==>is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end <==
2	/Users/nnunley/pugs/ext/Span/lib/Span/Num.pm	3274	3408	
==>is_open !! 0;
    }
    else {
        $i_start = $.start;
        $open_start = $.start_is_open;
    }

    $cmp = $.end <=> $span.end <==
2	/Users/nnunley/pugs/blib6/lib/Config/Tiny.pm	5347	5446	
==>file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=item <==
2	/Users/nnunley/pugs/ext/Config-Tiny/lib/Config/Tiny.pm	5347	5446	
==>file for the properties, and writes it
to disk.  Returns boolean value of success or failure;

=item <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/ext/Test-Builder/lib/TestBuilder/Output.pm	538	704	
==>{
        'write' => sub {
            my ($self, $message) = @_;
            $message =~ s/\n(?!#)/\n# /g;
            print {_('$.output')} $message, "\n";
        } <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/emit.pl	2731	2838	
==>or my $stage (reverse @todo) {
	#print STDERR "--$stage--\n";
	if($stage eq 'p5') {
	    my $pil_tree = $sel <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	7361	7473	
==>t {
    my($o)=@_;
    my $re = $o->raw();
    return $o->mk_eater_for_re('\d') if $re eq '\d';
    return $o->mk <==
2	/Users/nnunley/pugs/inc/Module/Install/Base.pm	97	198	
==>"
package Module::Install::Base;

# Suspend handler for "redefined" warnings
BEGIN { my $w = $SIG{__WA <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Headers.pm	8266	8425	
==>{
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this cr <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Headers.pm	8266	8425	
==>{
          when Item { return $val }
          when List { return split /\:/, $val, 2 }
        }
      }

      return undef;
    },
    # -- XXX does this cr <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	73	164	
==>submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functiona <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	73	164	
==>submethod BUILD ( @.spans ) {}

method empty_set ($class: ) returns Set::Infinite::Functiona <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10177	10301	
==>meters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10177	10301	
==>meters.

=head2 C<Set.new()>

Returns a new, empty set.

=head2 C<∅>

Also returns a new, empty set.

=head1 METHODS

=head <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	1799	1911	
==>$self = shift;
    my $libs = ref $_[0] ? shift : [ shift ];
    $self->makemaker_args( LIBS => $libs );
}

sub i <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	910	1020	
==>$self = shift;
    my $libs = ref $_[0] ? shift : [shift];
    $self->makemaker_args( LIBS => $libs );
}

sub i <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DynamicScoping.pm	14	118	
==>l

package Blondie::Reducer::DynamicScoping;

use strict;
use warnings;

{
    use Blondie::ADTs;
    pac <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	1128	1221	
==>"ok";
}

sub validate_params {
  if(not $CGI->param("version") or $CGI->param("version") != VE <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1424	1565	
==>dent( $n->{bareword} )
        if exists $n->{bareword};
        
    return $n->{code} 
        if exists $n->{code};
        
    retu <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	15867	15971	
==>not $@;
    
    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Compiler.pm	2264	2364	
==>not $@;

    $self->compile_time_resolution($symbol);
}

sub compile_time_resolution {
    my $self = <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	12499	12645	
==>IL_IF_FAILED($v);
        }
        TAILCALL(&$c,$noop);
      }
    } else {
      sub {
        my $c = $_[0];
        FAIL() if not &_is_found_b <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Utils.pm	5029	5138	
==>to => $target );

Copies a file or directory to the target, recursively

Returns true on success, false on fai <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9733	9836	
==>ifference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    m <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9733	9836	
==>ifference ($self: $span is copy) returns List of Span {
    return $self.clone if $self.is_empty;

    m <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	16509	16637	
==>$corner($n);
    }

    sub do_round($n) is primitive is safe {
        ($n < 0) ?? int( $n - 0.5) !! int($n + 0.5);
    }
    su <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Reducer/DuplicateFinder.pm	154	279	
==>$class = shift;

    bless {
        seen => undef,
		dups => undef,
    }, $class;
}

sub duplicate_nodes {
    my $self = sh <==
2	/Users/nnunley/pugs/blib6/lib/Relation.pm	15261	15375	
==>in all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources - <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation.pm	18738	18852	
==>in all sources to it.
    my Relation $r1 .= new( heading => set(), body => set( mapping() ) );

    for @sources - <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Dependency.pm	7397	7642	
==>aybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            n <==
2	/Users/nnunley/pugs/misc/sixpan/prototype/bin/_inc.pl	7861	8106	
==>aybe);
                        
                        ### is the version good enough?
                        if ( eval "$maybe->{version} $op $ver" ) {
                            keys %$entry;   # reset keys!!!!!
                            n <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile.pm	2011	2129	
==>rgs->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_re <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Makefile.pm	2891	3009	
==>rgs->{PREREQ_PM} ||= {});
    %$prereq = ( %$prereq, map { @$_ } map { @$_ } grep $_,
                 ($self->build_re <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Test-Perl5Tests/t/test.pl	7306	7450	
==>hift : 1;
    for (1..$n) {
        print STDOUT "ok $test # skip: $why\n";
        $test++;
    }
    local $^W = 0;
    last SKIP;
}

sub todo_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Runtime/Rule.pm	4156	4372	
==>emented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $ma <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Runtime/Rule.pm	4156	4372	
==>emented";
                # XXX - untested (use ':' to test this)
                # XXX - what to do with $matches[0] ???
                #return $_[3] = $matches[1];
            #}
            
            if ( ! $ma <==
2	/Users/nnunley/pugs/perl5/Perl6-MetaModel/docs/MiniMetaModel_w_Role.pl	3570	3706	
==>:methods'}->{$label} = $method;
        },
        'get_method_list' => sub ($) {
            my ($self) = @_;
            keys %{::opaqu <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	2115	2220	
==>.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher A <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	2115	2220	
==>.  (There may not be a 
distinction for some ciphers.)

=back 4

=head3 Functional interface

The Cipher A <==
2	/Users/nnunley/pugs/perl5/Data-Bind/inc/Module/Install/Metadata.pm	5356	5488	
==>_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless(
            { DISTNAME => $self->name },
            'ExtUtils: <==
2	/Users/nnunley/pugs/inc/Module/Install/Metadata.pm	5874	5982	
==>_;
    require ExtUtils::MM_Unix;
    $self->abstract(
        bless( { DISTNAME => $self->name }, 'ExtUtils: <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	4928	5057	
==>@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	4928	5057	
==>@path_dirs, $dir);
            last();
        }
        pop(@base_dirs);
    }
    $path = catpath($vol, catdir(@base_dirs, @path <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Node_pm_gen.pl	189	295	
==>30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and t <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Node_pm_gen.pl	189	295	
==>30 Aug 2005 - some notes on macros:

   Ideally, the node definition clauses would be in one file,
   and t <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Grammar.pm	597	714	
==>>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodi <==
2	/Users/nnunley/pugs/ext/Perl6-Grammar/lib/Perl6/Grammar.pm	597	714	
==>>? <subintro> <subname> <psignature>?
        <trait>*
        <block>
}
rule packagesub { # from A06
        <submodi <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter.pm	7	105	
==>bin/perl

package Blondie::Emitter;
use base qw/Blondie::Reducer/;

use strict;
use warnings;



__ <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	7201	7307	
==>constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse th <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	7201	7307	
==>constant CLASSES => 2;
# Break the code into blocks. Compile the blocks.
# Fold out heredocs etc
# Parse th <==
2	/Users/nnunley/pugs/blib6/pugs/perl5/lib/Module/Compile.pm	11742	11867	
==>eredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/x <==
2	/Users/nnunley/pugs/perl5/Module-Compile/blib/lib/Module/Compile.pm	11742	11867	
==>eredoc content
    (?<!\n[0-9a-fA-F]{40}\n)  # Not another digest
    (\4\n)              # $7 - Heredoc terminating line
)
/x <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Emitter/Pretty.pm	1799	1898	
==>mper::Terse = 1;
		local $Data::Dumper::Indent = 1;
		my $str = Data::Dumper::Dumper($node);
		chomp <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Model.pm	16908	17003	
==>hild Nodes attribute (that
attribute defaults to empty if the corresponding argument is undefine <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Model.pm	16908	17003	
==>hild Nodes attribute (that
attribute defaults to empty if the corresponding argument is undefine <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategy.pm	2612	2732	
==>ot a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not clear
that this is the optimal int <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategy.pm	2612	2732	
==>ot a C<Parser>
object).  This rule is then incorporated into the match.  XXX it is not clear
that this is the optimal int <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4361	4461	
==>3)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/% <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4361	4461	
==>3)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63))}/;
            $decoded ~~ s:perl5:g:i/% <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6rule_lib.pl	336	478	
==>ke methods 

#            for this to work



{

  package grammar1;



  use Text::Balanced; 



sub any { 

    return unless $_[0];

    ret <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6rule_lib.pl	326	458	
==>ke methods 
#            for this to work

{
  package grammar1;

  use Text::Balanced; 

sub any { 
    return unless $_[0];
    ret <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	1550	1763	
==>ts<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<st <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	1550	1763	
==>ts<end_element>('header', $size);                       
                    }
                    when rx:perl5{^([\*\-]+)\s(.*?)$} {
                        if (!$in_list) {
                            %events<st <==
2	/Users/nnunley/pugs/misc/pX/Common/Pugs-Compiler-Rule/blib/lib/Pugs/Compiler/Regex.pm	3586	3732	
==>rule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $matc <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lib/Pugs/Compiler/Regex.pm	3726	3872	
==>rule.t
        eval { $$match->{from} = \(0 + $p) };   # XXX
        return $match;  
    }

    foreach my $i (0..length($str)) {
        my $matc <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	11095	11227	
==>(.+?)\)//g;
    #print;
    #print STDERR;
    $_;
};
# BEGIN { FILTER_ONLY code => sub {} }; also works?

1;
__END__
#-------------- <==
2	/Users/nnunley/pugs/inc/Module/Install/Scripts.pm	755	876	
==>t to install '$script_name'";
        $prompt .= " ($abstract)" if defined $abstract;
        $prompt .= '?';
    }
    re <==
2	/Users/nnunley/pugs/inc/Module/Install/Include.pm	119	209	
==>::Install::Include;
use Module::Install::Base; @ISA = qw(Module::Install::Base);

sub inclu <==
2	/Users/nnunley/pugs/blib6/lib/MIME/Base64.pm	32	134	
==>p://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding <==
2	/Users/nnunley/pugs/ext/MIME-Base64/lib/MIME/Base64.pm	32	134	
==>p://www.ietf.org/rfc/rfc3548.txt

#      Value Encoding  Value Encoding  Value Encoding  Value Encoding <==
2	/Users/nnunley/pugs/blib6/lib/Kwid/Event/Parser.pm	6692	6797	
==>ide a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside tex <==
2	/Users/nnunley/pugs/ext/Kwid-Event-Parser/lib/Kwid/Event/Parser.pm	6692	6797	
==>ide a list?

Basically the item body, much like this text is.

- how should I handle *, / and ` inside tex <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	10939	11034	
==>new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	10939	11034	
==>new is discarded.

=head2 C<$set.remove(...)>

Removes the specified items from the set. Returns <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4274	4367	
==>8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*2621 <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4274	4367	
==>8-9AB][\dA-F])%([8-9AB][\dA-F])%([8-9AB][\dA-F])/{chr((:16($0)+&3)*16777216+(:16($1)+&63)*2621 <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	1698	1797	
==>ode forms: Var

(variable lookup), App (application) and Lit (literal).



App is divided to Multipl <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	1630	1726	
==>ode forms: Var
(variable lookup), App (application) and Lit (literal).

App is divided to Multipl <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	4336	4419	
==>+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63) <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	4336	4419	
==>+&3)*16777216+(:16($1)+&63)*262144+(:16($2)+&63)*4096+(:16($3)+&63)*64+(:16($4)+&63) <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	8533	8629	
==>) returns method
    ((($self: get_attr (symbol new (%:methods))) fetch ($label))))

=cut

$::Cla <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	8472	8596	
==>cters.  They may not be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $som <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	8472	8596	
==>cters.  They may not be rendered correctly.  ASCII versions
  # are supplied nearby.
  use Set;

  my $set = set 23, 42, $som <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	2003	2145	
==>@tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0] <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	2003	2145	
==>@tmp == 3 {
            # intersecting Recurrence Spans
            # say "push ", @tmp[0], " left ", @tmp[1,2];
            @res[-1] = @tmp[0] <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	9555	9751	
==>w(
                    Sym->new('&infix:</>'),
                    App->new(
                        Sym->new('&infix:<**>'),
                        Val->new($_),
                        Val->new( <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3626	3738	
==>L_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedT <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3626	3738	
==>L_GET_TMPL_TEXT'
        => q[<CLASS>.<METH>(): can't invoke get_text_by_key() on]
           ~ q[ Locale::KeyedT <==
2	/Users/nnunley/pugs/blib6/lib/Algorithm/TokenBucket.pm	3699	3814	
==>r read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechsch <==
2	/Users/nnunley/pugs/ext/Algorithm-TokenBucket/lib/Algorithm/TokenBucket.pm	3699	3814	
==>r read
the source (there are about 10 lines of sparse perl in several subs, trust me).

=head1 AUTHOR

Ingo Blechsch <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	5751	5846	
==>ld Not Found : cannot find object ($child_to_remove) in self";
}

## --------------------------- <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	5751	5846	
==>ld Not Found : cannot find object ($child_to_remove) in self";
}

## --------------------------- <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	6512	6619	
==>UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scal <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	6512	6619	
==>UNICODE' } ]
    );
    my Rosetta::Model::Node $sdtd_person_sex = $irl_doc.build_node_tree(
        [ 'scal <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC.pm	15202	15316	
==>=> -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois = <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC.pm	15202	15316	
==>=> -> Str $newnick { enqueue "NICK $newnick" },
    who   => -> Str $target  { enqueue "WHO $target" },
    whois = <==
2	/Users/nnunley/pugs/blib6/lib/Perl6/Container/Array.pm	1302	1404	
==>(), uniq(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use corouti <==
2	/Users/nnunley/pugs/ext/Perl6-Container-Array/lib/Perl6/Container/Array.pm	1302	1404	
==>(), uniq(), end(), 
  next(), previous(), kv(), keys(), values(), zip()
* Code rewritten to use corouti <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/Cookie.pl	126	218	
==>it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-CO <==
2	/Users/nnunley/pugs/examples/cgi/memory_game/cgi-bin/General.pl	126	218	
==>it as you want
# -----------------------------------------------
#  !!WARNING!!  UGLY, NON-CO <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	13170	13295	
==>et_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 peo <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	13170	13295	
==>et_payload()) {
            $prh_create_tb_person.prepare_and_execute();
        }

        # Prompt user for details of 3 peo <==
2	/Users/nnunley/pugs/blib6/lib/CGI.pm	9198	9352	
==>3;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc <==
2	/Users/nnunley/pugs/ext/CGI/lib/CGI.pm	9198	9352	
==>3;/;
        }
    }
    
    return $string;
}

sub unescapeHTML (Str $string) returns Str is export {
    # XXX check $self.charset
    #my $latin = ?(uc <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Cookies.pm	1646	1787	
==>tch applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug(" <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Cookies.pm	1646	1787	
==>tch applies to "any" cookie
        
        my @vals = gather {
            loop ($domain ~~ m:P5/\./) {
                #LWP::Debug::debug(" <==
2	/Users/nnunley/pugs/blib6/lib/Span.pm	9104	9214	
==>pan1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) return <==
2	/Users/nnunley/pugs/ext/Span/lib/Span.pm	9104	9214	
==>pan1 );
    return @union.map:{ $self.new( span => $_ ) };
}

method intersection ($self: $span is copy) return <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/old/test.pl	1728	1900	
==>ong?
(4 if 5) + (6 if 7);   # wrong?

#1 if 2 if 3;

$*ERR.say("# ok");
END { Test::test_ends() }
1;
=kwid
=cut
say;
return if 1;

PERL6

    print Dumper $ma <==
2	/Users/nnunley/pugs/util/combine_tests.pl	573	681	
==>s[] is added with revision number of the older versions.
#
sub combine_tests{
    #
    # Collect all the tes <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite.pm	3645	3763	
==>py) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.in <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite.pm	3645	3763	
==>py) returns bool {
    my $span0 = $self.set;
    my $span1 = $self._normalize_parameter( $span );
    return $span0.in <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/PIL/Util.pm	1417	1524	
==>IL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/PIL/Util.pm	1417	1524	
==>IL::Util::SlurpyContext
    does Perl::Compiler::PIL::Util::Context {
    has Perl::Compiler::PIL::Util::Typ <==
2	/Users/nnunley/pugs/ext/Getopt-Process/lib/Getopt/Process.pm	1470	1602	
==>topt::Argument $arg ) { 
            $.append( $self.accept( $arg ) );
        }
        
        method append ( Getopt::Argument $a <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	3735	3839	
==>timestamp}[1]
    } @{ $cats{$_} })
    [0..MAX_SMOKES_OF_SAME_CATEGORY-1]
  ] for keys %cats;

  my %del <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	4713	4822	
==>o optimizer

  # - the new emitter

  my $compiler_OO_AST = Pugs::Compiler->load( 

      parser  => ['NewLang <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	4551	4657	
==>o optimizer
  # - the new emitter
  my $compiler_OO_AST = Pugs::Compiler->load( 
      parser  => ['NewLang <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6prelude-cached.pl	25201	25361	
==>on'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6prelude-cached.pl	25480	25640	
==>on'} = 

    sub { 
        my $rule = 
       ruleop::concat(
         ruleop::capture( 'term1', 
             ruleop::alternation( [
                   ruleop: <==
2	/Users/nnunley/pugs/blib6/lib/Cipher/Arcfour.pm	3168	3276	
==>ttacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
function is not goo <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher/Arcfour.pm	3168	3276	
==>ttacks.

This means that you should strive to use only truly random keys; Perl's C<rand> 
function is not goo <==
2	/Users/nnunley/pugs/blib6/lib/Set/Infinite/Functional.pm	1034	1146	
==>{
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_i <==
2	/Users/nnunley/pugs/ext/Set-Infinite/lib/Set/Infinite/Functional.pm	1034	1146	
==>{
    return Bool::False unless @.spans;
    my $last = @.spans[-1];
    return $last.end_is_open;
}
method end_i <==
2	/Users/nnunley/pugs/blib6/lib/Parse/Rule/Strategies/CPS.pm	4058	4195	
==>minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $m <==
2	/Users/nnunley/pugs/ext/Parse-Rule/lib/Parse/Rule/Strategies/CPS.pm	4058	4195	
==>minimal = 0) {
    my sub match_n ($n, $match, &continue) {
        my $new_continue = -> $m { 
            my $mp = $m.pos;  my $map = $m <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	19268	19396	
==>->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::E <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/MetaModel/Bootstrap.pm	39720	39848	
==>->send('add_method' => (
    # method label
        symbol->new('BUILD'),
    # method body
        method->new(
            $::E <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta.pm	9581	9692	
==>create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' tabl <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta.pm	9581	9692	
==>create_tb_person );

    # Define and compile a procedure that will insert a record into the
    # 'person' tabl <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/ARuntime.pm	6217	6327	
==>9]>)/$1$2/;
    return +0 if $s eq "";
    return +$s;
}
multi sub ToNumber(JSX::Value::Object $v) {
    my $Re <==
2	/Users/nnunley/pugs/ext/Relation/lib/Relation/Example.pm	22235	22329	
==>entation for the L<Relation> library.

I<TODO: REWRITE THE FOLLOWING.>

A relation is essential <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	737	841	
==>fined $pkg;
    my $dir  = $self->dir   or return;

    return $dir->subdir( $self->config->_control )->s <==
2	/Users/nnunley/pugs/util/config_h.pl	903	994	
==>assume if you have cywin, you're still using ghc-msys
if ($^O =~ /MSWin32|mingw|msys|cygwin/ <==
2	/Users/nnunley/pugs/misc/pX/tewk/Rules-P5/lib/P6RulesInP5/OpTable.pm	3791	3898	
==>tespaceTermTable();
  (substr $target, $position, $lastPosition) =~ m/[^\s]/;
  my $whitespacePosition = $-[ <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Name.pm	76	159	
==>l/5.8.7/Module/Install/Makefile/Name.pm"
package Module::Install::Makefile::Name;
us <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14507	14610	
==>ogress. As Pugs grows, so will it's
testing needs. This module will be the code support for those needs. <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14565	14668	
==>ogress. As Pugs grows, so will it's
testing needs. This module will be the code support for those needs. <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText/L/en.pm	3967	4069	
==>le Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retur <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText/L/en.pm	3967	4069	
==>le Locale::KeyedText::L::en-1.0.1 {
    sub get_text_by_key (Str $msg_key!) returns Str {
        retur <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	5368	5507	
==>X config!
        my $my_bindir = File::Spec->catdir( 
                            $self->dir, $pkg->package, 'bin' );

        last LINKING <==
2	/Users/nnunley/pugs/misc/Parser-Mini/pil1_json_emit.pm	7394	7498	
==>me =     emit_Variable( %pad<"pSubName"> );
        $ret = emit_Sub( $name, $body, $is_multi, $lvalue, @p <==
2	/Users/nnunley/pugs/blib6/lib/Rosetta/Validator.pm	59	153	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.72 <==
2	/Users/nnunley/pugs/ext/Rosetta/lib/Rosetta/Validator.pm	59	153	
==>es in this file, that don't export symbols:
use Locale::KeyedText-(1.72.0...);
use Rosetta-0.72 <==
2	/Users/nnunley/pugs/src/perl6/Prelude.pm	12527	12656	
==>() }
    
    method shift   () { ... }
    method next    () { ... }
    method current () { ... }
}

# Support for =$fh
class IO <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Emitter/Perl5.pm	2674	2800	
==>erl5_regex>' );
    #print "perl5_rule_decl: $name -- $regex \n";
    my $program =
    "*{'$name'} = sub {" . '
    my $bool = <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2336	2458	
==>"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. You <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2336	2458	
==>"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a value of type $_.ref cannot appear in PIL. You <==
2	/Users/nnunley/pugs/blib6/lib/WTemplate.pm	760	849	
==>GETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export <==
2	/Users/nnunley/pugs/ext/WTemplate/lib/WTemplate.pm	760	849	
==>GETS{$widget}(%parameters, %variables);
}

sub fill_with($template: %variables?) is export <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	18949	19096	
==>(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->erro <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	15370	15517	
==>(?';

    if (${&Rx} =~ m{ \G (.) }xgcs) {
      my $n = "$c$1";
      return $S->$n if $S->can($n);
      &RxPOS--;
    }
    else {
      $S->erro <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	1563	1705	
==>eturn $n->{int} 
        if exists $n->{int};
        
    return $n->{num} 
        if exists $n->{num};
        
    return _mangle_var <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	2925	3042	
==>{
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	2925	3042	
==>{
    say "Self is "~$self.stringify~", other is "~$other.stringify if $DEBUG;
    my $set = set($self.members, $other <==
2	/Users/nnunley/pugs/blib6/lib/Set/Hash.pm	1068	1181	
==>e($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete <==
2	/Users/nnunley/pugs/ext/Set/lib/Set/Hash.pm	1068	1181	
==>e($self: *@items) returns Int {
    my Int $pre_size = $self.size;
    for @items -> $x {
        %!members.delete <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/api.pl	16390	16505	
==>_object"); $_[0] }, # XXX - what's right?
      perl6_object => sub { $_[0] },
     );
sub p6_perl6_objects_from_wha <==
2	/Users/nnunley/pugs/inc/Module/Install/Makefile/Version.pm	53	139	
==>r/local/lib/perl5/site_perl/5.8.7/Module/Install/Makefile/Version.pm"
package Module::I <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/p6compiler.pl	2349	2466	
==>ile-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $p <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/p6compiler.pl	2566	2683	
==>ile-cached.pl\n";
        open( FILE, ">", "$prelude_file-cached.pl" ) or
            die "can't open prelude file: $p <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Unix.pm	356	454	
==>tr $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) ret <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Unix.pm	356	454	
==>tr $dir) returns Array is export { split('/', $dir) }

sub splitpath (Str $path, Bool $nofile?) ret <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/parser_spike.pl	6193	6283	
==>::hlp_token;})');
my $x3 = def_stmt_prim('bs_rule_decl','\s*rule\s+(\w+)\s+{([^}]*)}(?{ &:: <==
2	/Users/nnunley/pugs/misc/JavaScript-FrontEnd/Grammar.pm	1320	1420	
==>ere]" is expressed as
#     <no_LineTerminator_here>.
#
#  Resources:
#   http://www.ecma-internation <==
2	/Users/nnunley/pugs/misc/Date/lib/Duration/Gregorian.pm	209	369	
==>nt $.minute;
has $.second;

# do subs that get declared first "win" the MMD war?
multi sub duration( Int|Real ?$seconds ) returns Duration::Gregorian is export { <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Emitter/Perl6/Perl5.pm	4367	4522	
==>Moose: package xxx; use Moose;
            # class Point;
            #warn "class: ",Dumper $n;
            my $id;
            $id = exists $n->{param <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Perl6/Rule/Parser.pm	15088	15192	
==>r('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper = <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	9287	9391	
==>r('POSIX_upper' => sub {
    my ($S, $neg, $how) = @_;
    return $S->force_object(anyof_class => upper = <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/Notes-Pugs.pm	5456	5570	
==>.pm   # main Grammar file

  /lib/Pugs/Grammar/YAML/*    # Grammar related files

  /lib/Pugs/Emitter/YAML.pm   # m <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/Notes-Pugs.pm	5266	5378	
==>.pm   # main Grammar file
  /lib/Pugs/Grammar/YAML/*    # Grammar related files
  /lib/Pugs/Emitter/YAML.pm   # m <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	5818	5924	
==>}++;

        $totals->{max} += $self->{max};
    }
    elsif ( $self->_is_bail_out($line, \$self->{bailout <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Perl6/lib/Pugs/Grammar/Prefix.pm	2788	2916	
==>tal
    __PACKAGE__->add_rule(
        name => 'do',
        assoc => 'non',
        precedence => 'equal',
        other => 'inf <==
2	/Users/nnunley/pugs/inc/Test/Harness/Straps.pm	13379	13490	
==>)?     # optional skip with optional reason
REGEX

sub _is_header {
    my($self, $line) = @_;

    if( my($max, <==
2	/Users/nnunley/pugs/blib6/lib/Test.pm	14788	14887	
==>error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implem <==
2	/Users/nnunley/pugs/ext/Test/lib/Test.pm	14846	14945	
==>error reporting needs of the cmp_ok() function.

- is_deeply

Once nested data structures are implem <==
2	/Users/nnunley/pugs/examples/golf/tsanta.pl	1696	1811	
==>ut = `$cmd`; my $rc = $? >> 8;
   print "done (rc=$rc).\n";
   if ($out ne $exp) {
      warn "Expected:\n"; print S <==
2	/Users/nnunley/pugs/blib6/lib/HTTP/Request/CGI.pm	1560	1689	
==>{
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_string <==
2	/Users/nnunley/pugs/ext/libwww-perl/lib/HTTP/Request/CGI.pm	1560	1689	
==>{
                $.query.parse_params($.query_string);
            } else {
                $.query.parse_keywords($.query_string <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/Grammar/Perl6.pm	8330	8420	
==>atements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep-compiler/dump_rule.pl	2155	2245	
==>atements, sub { Grammar::Perl6->_push(@_) };
push @statements, sub { Grammar::Perl6->pod(@_ <==
2	/Users/nnunley/pugs/misc/pX/Common/Regexp-Parser/Regexp-Parser-0.20-modified/lib/Regexp/Parser/Handlers.pm	26101	26206	
==>.

Matching against the regex is done in scalar context, globally, like so:

  if (${&Rx} =~ m{ \G pattern <==
2	/Users/nnunley/pugs/misc/pilrun2-leftovers/pil.pl	6252	6397	
==>this}=1;
        $code .= <<END;

package $pkg_this;
       \@${pkg_root}::${name}::ISA=qw(
          $pkg_type
          $pkg_rep
          $pkg_ <==
2	/Users/nnunley/pugs/misc/pX/Aside/Regexp-ReplaceEngine.pm	20584	20686	
==>ead2 Internals:

  regnode *regstclass;

Points into ->data.
sv.c's Perl_re_dup sets it to NULL without <==
2	/Users/nnunley/pugs/blib6/lib/perl/Compiler/CodeGen/Perl5_Str.pm	2270	2416	
==>second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a valu <==
2	/Users/nnunley/pugs/ext/Perl-Compiler/lib/Perl/Compiler/CodeGen/Perl5_Str.pm	2270	2416	
==>second })) }
                    when Junc { die "no junctions yet"; box("P5::PIL::Run::Junction", ...) }
                    default { die "a valu <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	26901	26998	
==>sponding argument is
provided (it defaults to empty if the argument is not provided).

Some exampl <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	26901	26998	
==>sponding argument is
provided (it defaults to empty if the argument is not provided).

Some exampl <==
2	/Users/nnunley/pugs/blib6/lib/File/Find.pm	282	410	
==>art    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_fil <==
2	/Users/nnunley/pugs/ext/File-Find/lib/File/Find.pm	282	410	
==>art    = @dirs        || @{$.dirs};
    my $wdir_cb  = $wanted_dir  || $.wanted_dir  || sub { 1 };
    my $wfile_cb = $wanted_fil <==
2	/Users/nnunley/pugs/blib6/lib/Tree.pm	2431	2530	
==>d_child($child);
    }
    $self;
}

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/ext/Tree/lib/Tree.pm	2431	2530	
==>d_child($child);
    }
    $self;
}

## ------------------------------------------------------------ <==
2	/Users/nnunley/pugs/blib6/lib/Cipher.pm	9618	9717	
==>ay $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head( <==
2	/Users/nnunley/pugs/ext/Cipher/lib/Cipher.pm	9618	9717	
==>ay $data) returns Array {...}
# Many, but not all, ciphers will need to override these
method _head( <==
2	/Users/nnunley/pugs/perl5/Pugs-Compiler-Rule/lrep/iterator_engine.pl	5220	5414	
==>ub {

        return { bool => 1,

                 match => 'null',

                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),

                 tail => $_[0],

               }

    } <==
2	/Users/nnunley/pugs/misc/pX/Common/lrep/iterator_engine.pl	5055	5243	
==>ub {
        return { bool => 1,
                 match => 'null',
                 ( $_[2]->{capture} ? ( capture => [ '' ] ) : () ),
                 tail => $_[0],
               }
    } <==
2	/Users/nnunley/pugs/blib6/lib/Set.pm	1343	1465	
==>($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $r <==
2	/Users/nnunley/pugs/ext/Set/lib/Set.pm	1343	1465	
==>($item);
}

method size() returns Int {
    +$!members.values;
}

method invert($self: *@items) returns Int {
    my int $r <==
2	/Users/nnunley/pugs/blib6/lib/Locale/KeyedText.pm	3538	3875	
==>arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText <==
2	/Users/nnunley/pugs/ext/Locale-KeyedText/lib/Locale/KeyedText.pm	3538	3875	
==>arg } )
        if %val.exists($EMPTY_STR);
}

###########################################################################

} # class Locale::KeyedText::Message

###########################################################################
###########################################################################

class Locale::KeyedText <==
2	/Users/nnunley/pugs/misc/Grammars/rx_grammar.pm	5003	5091	
==>decimal_escape_sequence> }
rule simple_escape_sequence { \\ <[trfeTRFE]> }
rule octal_esc <==
2	/Users/nnunley/pugs/blib6/lib/Net/IRC/OO.pm	1316	1439	
==>raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!han <==
2	/Users/nnunley/pugs/ext/Net-IRC/lib/Net/IRC/OO.pm	1316	1439	
==>raw    is rw;

  # Internal things
  has Set   $!chans = set();
  has IO    $!socket;
  has Queue $!queue;
  has Array %!han <==
2	/Users/nnunley/pugs/util/smokeserv/smokeserv-server.pl	215	343	
==>Template;
use Algorithm::TokenBucket;
use Time::Piece;
use Time::Seconds;

# All dates should be displayed as UTC (Time::Piece ho <==
2	/Users/nnunley/pugs/perl5/Perl6-ObjectSpace/lib/Perl6/Core/Num.pm	2015	2125	
==>native - 1) }

1;

__END__

=pod

=head1 NAME

num - the core num type


=head1 METHODS

=over 4

=item B<new ( <==
2	/Users/nnunley/pugs/blib6/lib/File/Spec/Win32.pm	5531	5631	
==>:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd retu <==
2	/Users/nnunley/pugs/ext/File-Spec/lib/File/Spec/Win32.pm	5531	5631	
==>:perl5{^([a-zA-Z]:)?[\\/]})
}

# This HACK is worse than
# the File::Spec platform hack
#sub cwd retu <==
2	/Users/nnunley/pugs/misc/pX/Common/regexp_and_parser_spike/regexp_engine_demo.pl	14291	14427	
==>$X::pos);
        $v = $f_test->($noop);
      }
      if(not FAILED($v)) {
        TAILCALL(&$f_then,$c);
      } else {
        TAILCAL <==
2	/Users/nnunley/pugs/src/PIL/misc/S29code.pl	18755	18847	
==>str(Str $s, StrPos $start,   StrLen $length  ; $replace)
{ Pugs::Internals::substr($s,undef,$ <==
2	/Users/nnunley/pugs/docs/notes/circular_prelude_stuff.pl	14165	14268	
==>= $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    retu <==
2	/Users/nnunley/pugs/misc/Blondie/lib/Blondie/Backend/Perl/Interpreter.pm	1645	1748	
==>= $prim->body->($self, map { $self->shift_param } 1 .. $prim->arity);

    $self->leave_scope;

    retu <==
2	/Users/nnunley/pugs/misc/sixpan/JIB/lib/JIB/Installation.pm	13307	13417	
==>_bindir;

    my @bins;
    msg( "Linking scripts/manpages to " . $inst_pkg->package, 1 );
    for ( qx[find $m <==
2	/Users/nnunley/pugs/blib6/lib/Log/Selective.pm	1960	2058	
==>, it will intuit one by extracting the 
last component of the calling function's package name.  (Fo <==
2	/Users/nnunley/pugs/ext/Log-Selective/lib/Log/Selective.pm	1960	2058	
==>, it will intuit one by extracting the 
last component of the calling function's package name.  (Fo <==
